AB16-CMT5

* NAME: AB16-CMT5 DOC 70181454000 REV E PAGE 25

1155 01614 0 10 01314 JST RDOO READ ROUT 1156 01615 0 02 00000 LDA 0 1157 01616 0 11 01530 CAS LA 1158 01617 101000 NOP 1159 01620 -0 01 01575 JMP* RW8K RETURN 1160 01621 0 12 00000 IRS 0 1161 01622 0 01 01577 JMP RW8L 1162 * 1163 * 1164 * 1165 01623 000410 B813 OCT 410 BITS 8 AND 13 1166 01624 000010 B13 OCT 10 BIT 13 1167 * 1168 * 1169 * JOGGLE THE MEMORY BEFORE READING BACK THE DATA 1170 * 1171 01625 0 000000 JOGL DAC ** 1172 01626 0 02 01651 LDA SHFI FETCH THE SHIFT INSTRUCTION 1173 01627 0 04 01635 STA SHFE STORE FOR EXECUTION 1174 01630 0 02 01656 LDA =-9 SET INITIAL JUSTIFICATION 1175 01631 0 04 01652 STA JCNT DELAY COUNT 1176 01632 0 02 01655 LDA =-8 1177 01633 0 04 01653 STA TLP SET DELAY CONSTANT 1178 01634 0 04 01654 LP1 STA TLPT WORKING COPY OF DELAY CONSTANT 1179 01635 0416 00 SHFE ALR ** EXECUTE SHIFT INSTRUCTION 1180 01636 0 12 01654 IRS TLPT 1181 01637 0 01 01636 JMP *-1 INITIAL DELAY 1182 01640 0 12 01635 IRS SHFE DECREMLNT THE SHIFT COUNT 1183 01641 0 02 01653 LP2 LDA TLP FETCH THE DELAY CONSTANT 1184 01642 0 12 01652 IRS JCNT BUMP THE JUSTIFICATION COUNT 1185 01643 0 01 01634 JMP LP1 1186 01644 0 02 01656 LDA =-9 1187 01645 0 04 01652 STA JCNT REINITIALIZE THE JUSTIFICATION COUNT 1188 01646 0 12 01653 IRS TLP DECREMLNT THE DELAY CONSTANT 1189 01647 0 01 01641 JMP LP2 1190 01650 -0 01 01625 JMP* JOGL RETURN 1191 * 1192 01651 0416 00 SHFI ALR ** SHIFT INSTR 1193 01652 000000 JCNT BSZ 1 1194 01653 000000 TLP BSZ 1 1195 01654 000000 TLPT BSZ 1 1196 * 1197 * 1198 01655 177770 FIN 01656 177767 01657 177777 01660 177000 01661 000777 01662 000021 01663 001000