AB16-CMT5

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

0327 * OUTPUT CONTROL ROUTINE 0328 * 0329 00244 0 000000 OPCO DAC ** 0330 00245 -0 02 00244 LDA* OPCO 0331 00246 0 06 00674 ADD NOW ADD DISPLACEMENT TO DAC 0332 00247 0 04 00261 STA PNTX POINTER 0333 00250 0 12 00244 IRS OPCO 0334 00251 -0 02 00261 OPNW LDA* PNTX 0335 00252 101040 SNZ 0336 00253 -0 01 00244 JMP* OPCO 0337 00254 0 04 00256 STA *+2 0338 00255 0 10 00222 JST OPOW 0339 00256 0 000000 DAC ** 0340 00257 0 12 00261 IRS PNTX UPDATE POINTER 0341 00260 0 01 00251 JMP OPNW 0342 00261 0 000000 PNTX DAC ** 0343 * 0344 * OUTPUT SINGLE ERROR 0345 * 0346 00262 0 000000 TYSE DAC ** OUTPUT SINGLE ERROR SUBROUTINE 0347 00263 0 02 00751 LDA =-3 COUNT 0348 00264 0 04 00442 STA REJT+1 0349 00265 0 10 00240 JST LFCR LFCR 0350 00266 0 02 00665 LDA AME1 SET UP ERROR MESSAGE 0351 00267 0 04 00271 STA EME1 ERROR MESSAGE 0352 00270 0 10 00244 TYRE JST OPCO OUTPUT MESSAGE 0353 00271 0 000000 EME1 DAC ** 0354 00272 0 10 00203 JST SPAC 0355 00273 -0 02 00262 LDA* TYSE LOCATION OF ERROR 0356 00274 0 10 00362 JST CBAS CORRECT PATTERN 0357 00275 0 12 00262 IRS TYSE UPDATE RETURN 0358 00276 0 12 00271 IRS EME1 UPDATE MESSAGE CALL 0359 00277 0 12 00271 IRS EME1 0360 00300 0 12 00442 IRS REJT+1 0361 00301 0 01 00270 JMP TYRE REPEAT 0362 00302 -0 01 00262 JMP* TYSE RETURN 0363 * 0364 * OCTAL TO DECIMAL TO ASCII FOR OUTPUT 0365 * 0366 00303 0 000000 DECC DAC ** CONVERT OCTAL TO DECIMAL 0367 00304 0 15 00666 STX PNTW SAVE X REG. 0368 00305 0 35 00750 LDX =-4 0369 00306 140040 CRA CLEAR 0370 00307 0 04 00355 STA DECL COUNTING REGISTER 0371 00310 000201 IAB 0372 00311 -0 02 00303 LDA* DECC DATA TO BE CONVERTED 0373 00312 101400 SMI IF VALUE NOT 0 TO 9999 0374 00313 0 11 00747 CAS =9999 0375 00314 0 02 00747 LDA =9999 THEN FORCE TO BE 9999 0376 00315 101000 NOP