Previous Page Single Page Next Page  

* NAME: AB16-CCT4 DOC 70180658000 REV H PAGE 25

1130 02162 0 04 02173 STA TACP STORE FOR NEXT PASS AND 1131 02163 0 05 02167 ERA TACK CHECK RESULT USING CHECK 1132 02164 101040 SNZ VALUE 1133 02165 0 01 02125 JMP TACB RETURN FOR NEXT ITERATION 1134 02166 000000 HLT ERROR 1135 * 1136 02167 0 00 00000 TACK PZE 1137 02170 0 00 00000 TACL PZE 1138 02171 0 00 00000 TACM PZE 1139 02172 0 00 00000 TACN PZE 1140 02173 0 00 00000 TACP PZE 1141 * 1142 * 1143 * SUBROUTINE T003 ADD AND SUB 1144 * THIS SUBROUTINE CHECKS FOR PROPER OPERATION OF 1145 * THE ADD AND SUBTRACT INSTRUCTION 1146 * 1147 * 1148 02174 000003 OCT 3 TEST NO. 1149 02175 0 000000 ADSB DAC ** ADD-SUBTRACT 1150 02176 0 02 02174 LDA *-2 LOAD TEST NO. 1151 02177 0 04 00777 STA '777 STORE AT '777 1152 02200 101000 NOP KILL TEST LOCATION 1153 02201 0 02 00455 LDA CNTY INITIALIZE TEST COUNT 1154 02202 0 04 00000 STA 0 ** 1155 02203 1 02 02203 TBAB LDA *,1 PICK UP DATA WORD 1156 02204 0 04 02225 STA TBAX SAVE FOR LATER USE 1157 02205 0415 77 ALS 1 MULTIPLY BY TWO 1158 02206 0 04 02226 STA TBAY USING SHIFT 1159 02207 0 02 02225 LDA TBAX ADD DATA WORD TO 1160 02210 0 06 02225 ADD TBAX ITSELF AND CHECK RESULTS 1161 02211 0 11 02226 CAS TBAY AGAINST DATA TIMES 2 1162 02212 0 01 02214 JMP *+2 ERROR 1163 02213 0 01 02215 JMP *+2 PROPER ADD 1164 02214 000000 HLT ERROR 1165 02215 0 07 02225 SUB TBAX SUBTRACT DATA FROM SUM 1166 02216 0 11 02225 CAS TBAX AND CHECK AGAINST ORIGINAL 1167 02217 0 01 02221 JMP *+2 ERROR 1168 02220 0 01 02222 JMP *+2 PROPER SUBTRACT 1169 02221 000000 HLT ERROR 1170 02222 0 12 00000 IRS 0 INCREMENT INDEX AND 1171 02223 0 01 02203 JMP TBAB RETURN FOR NEXT PASS 1172 02224 -0 01 02175 JMP* ADSB RETURN 1173 02225 0 00 00000 TBAX PZE 1174 02226 0 00 00000 TBAY PZE 1175 * 1176 * SUBROUTINE T100 INDIRECT ADDRESSING CHECK 1177 * THIS SUBROUTINE CHECKS MOST OF THE INSTRUCTIONS 1178 * FOR THE ABILITY TO USE AN INDIRECT ADDRESS. 1179 * THE INDIRECT ADDRESS IS CHECKED AT ALL LEVELS
  Previous Page Single Page Next Page