/ BOOTSTRAP UNIT TWO DECTAPE *200 /AS USUAL START, CAF /CLEAN UP DTLB /FORCE FIELD ZERO TAD (2600) /GET REVERSE MOVE DTLA /LOAD IT DTSF /WAIT FOR IT JMP .-1 /TO FINISH TAD (7600-1) /SETUP DCA I (7754) /WORD COUNT TAD (7600-1) /SETUP DCA I (7755) /CURRENT ADDRESS TAD (620) /GET FORWARD READ DTXA /LOAD IT TAD (5217) /GET JUMP INSTRUCTION DCA I (7617) /STORE IT JMP I (7617) /GO THERE DTLA= 6766 /LOAD "A" REGISTER DTLB= 6774 /LOAD "B" REGISTER DTSF= 6771 /SKIP ON DECTAPE DONE FLAG DTXA= 6764 /XOR "A" REGISTER