N16-TLT9

* N520-001-H005 (N16-TLT9) DRAWING NO. 41285786-001-01 PAGE 15

0700 01435 101040 SNZ SKIP IF INDIRECT ADDRESSING OF LAST MESSAGE 0701 01436 -0 01 01414 JMP* INIT EXIT 0702 * 0703 01437 0 02 00212 LDA PTEM TEMPORARY STORE 0704 01440 0 04 01506 STA ITPT 0705 01441 0 02 01516 LDA RESR 0706 01442 0 04 01444 STA *+2 0707 01443 0 02 00213 LDA STRE RESTORE INDIRECT ADDRESS 0708 01444 0 00 00000 *** ** 0709 01445 0 02 00230 LDA NOPE NOP INSTRUCTION 0710 01446 0 04 01516 STA RESR 0711 01447 -0 01 01414 JMP* INIT EXIT 0712 * 0713 * 0714 * ASR PRINT ROUTINE 0715 * 0716 01450 0 000000 PRTY DAC ** ASR PRINT ROUTINE 0717 01451 0 02 01506 LDA ITPT 0718 01452 0 04 00212 STA PTEM SAVE CONTENTS OF ITPT 0719 01453 -0 02 01450 LDA* PRTY PICK UP INSTRUCTION 0720 01454 0 12 01450 IRS PRTY TALLY RETURN ADDRESS 0721 01455 0 04 01503 STA PMSG 0722 01456 101400 SMI SKIP IF INDIRECT ADDRESSING OF MESSAGE 0723 01457 0 01 01473 JMP NOIN CONTINUE 0724 * 0725 01460 0 03 02004 ANA ='77777 RESET SIGN BIT 0726 01461 0 06 02003 ADD ='20000 CHANGE INSTRUCTION TO IRS 0727 01462 0 04 01506 STA ITPT 0728 01463 0 07 02003 SUB ='20000 BACK TO LDA 0729 01464 0 04 01465 STA *+1 0730 01465 0 00 00000 *** ** 0731 01466 0 04 00213 STA STRE SAVE INDIRECT ADDRESS 0732 01467 0 02 01465 LDA *-2 LDA LOC OF INDIRECT ADDRESS 0733 01470 0 03 02002 ANA ='777 0734 01471 0 06 02001 ADD ='10000 STA LOC OF INDIRECT ADDRESS 0735 01472 0 04 01516 STA RESR 0736 01473 -0 02 01450 NOIN LDA* PRTY PICK UP COUNT 0737 01474 0 12 01450 IRS PRTY TALLY RETURN ADDRESS 0738 01475 0 07 02015 SUB =1 TAKE 0739 01476 0 05 00245 ERA ONES TWO'S 0740 01477 0 04 00211 STA PWDC COMPLEMENT 0741 01500 34 0104 SKS ASRB SKIP IF ASR NOT BUSY 0742 01501 0 01 01500 JMP *-1 WAIT UNTIL NOT BUSY 0743 * 0744 01502 14 0104 OCP ASRO ASR OUTPUT MODE 0745 * 0746 01503 0 00 00000 PMSG *** ** GET MESSAGE DATA 0747 01504 74 0004 OTA OASR OUTPUT A CHARACTER TO ASR 0748 01505 0 01 01504 JMP *-1 WAIT UNTIL READY 0749 *