Previous Page Single Page Next Page  

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

0385 00343 101000 NOP 0386 00344 0 02 02742 LDA MES2 0387 00345 0 10 00402 JST TYPE TYPE PASS COUNT 0388 00346 -0 01 00335 JMP* EOPI RETURN 0389 * 0390 * 0391 00347 0 000000 ST5 DAC ** 0392 00350 -0 02 00434 LDA* CNTX LOAD UNITS + TENS 0393 00351 0 03 00503 ANA ='377 AND CHECK FOR 09 0394 00352 0 05 00502 ERA ='271 AND 99 COUNTS DEC 0395 00353 100040 SZE 0396 00354 0 01 00372 JMP INC1 COUNT LESS THAN 09 0397 00355 -0 02 00434 LDA* CNTX 0398 00356 0 03 00501 ANA ='177400 0399 00357 0 05 00500 ERA ='134400 0400 00360 100040 SZE 0401 00361 0 01 00375 JMP INC2 COUNT LESS THAN 99 0402 00362 0 02 00520 LDA ='130260 0403 00363 -0 04 00434 STA* CNTX 0404 00364 0 02 00434 LDA CNTX SET UP FOR SECOND 0405 00365 0 07 00510 SUB =1 PASS THRU IF COUNT 0406 00366 0 04 00434 STA CNTX EQUAL T0 DEC 99 0407 00367 0 12 00347 IRS ST5 0408 00370 -0 01 00347 JMP* ST5 0409 00371 000000 HLT 0410 00372 -0 12 00434 INC1 IRS* CNTX INC UNITS OR HUNDREDS 0411 00373 -0 01 00347 JMP* ST5 0412 00374 000000 HLT 0413 00375 -0 02 00434 INC2 LDA* CNTX INC TENS OR THOUSANDS 0414 00376 0 03 00501 ANA ='177400 0415 00377 0 06 00477 ADD ='660 0416 00400 -0 04 00434 STA* CNTX 0417 00401 -0 01 00347 JMP* ST5 0418 * 0419 * GENERAL TYPE ROUTINE 0420 * 0421 00402 0 000000 TYPE DAC ** TYPE ROUT 0422 00403 0 04 00432 STA TS2 SAVE MSG ADRS 0423 00404 -0 02 00432 LDA* TS2 GET WORD COUNT 0424 00405 0 04 00433 STA TS3 0425 00406 34 0104 SKS '104 TEST FOR ASR BUSY 0426 00407 0 01 00406 JMP *-1 0427 00410 14 0104 OCP '104 ENABLE, OUTPUT MODE 0428 00411 0 12 00432 PRCH IRS TS2 BUMP ADDR FOR NEXT WORD OF MSG. 0429 00412 -0 02 00432 LDA* TS2 0430 00413 0416 70 ALR 8 0431 00414 74 0004 OTA '4 OUTPUT 1-8 IN ASCII 0432 00415 0 01 00414 JMP *-1 0433 00416 -0 02 00432 LDA* TS2 0434 00417 74 0004 OTA '4 OUTPUT 9-16
  Previous Page Single Page Next Page