C210-001-6601 (FRTN) 3C NO.180463000 REV. D

* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 125

6036 12526 0 10 04214 JST AF00 DEFINE AF AND AT 6037 12527 0 02 00631 LDA AT IF AT = 'STR-RE' 6038 12530 0 07 00721 SUB K103 6039 12531 101040 SNZ 6040 12532 0 01 12542 JMP OB10 GO TO OB10 6041 12533 140040 CRA 6042 12534 0 04 00630 STA AF AF = 0 6043 12535 0 02 00720 OB08 LDA K102 6044 12536 0 04 00640 STA DF SET FLAG TO OUTPUT SYMBOLIC 6045 12537 0 02 00647 LDA FTOP 6046 12540 0 10 14127 JST OA00 OUTPUT ABSOLUTE 6047 12541 -0 01 12467 JMP* OB00 RETURN 6048 12542 0 02 12466 OB10 LDA T1OB 6049 12543 0 04 00630 STA AF 6050 12544 0 02 00647 LDA FTOP 6051 12545 0 10 13773 JST OR00 OUTPUT REL 6052 12546 -0 01 12467 JMP* OB00 RETURN 6053 12547 0 02 00647 OB15 LDA FTOP 6054 12550 140024 CHS REVERSE INDIRECT BIT 6055 12551 0 04 00647 STA FTOP 6056 12552 0 01 12542 JMP OB10 GO TO OB10 6057 12553 0 10 14523 OB20 JST FS00 OUTPUT COMMON REOUEST 6058 12554 0 02 12466 LDA T1OB PACK ADDRESS INTO BLOCK 6059 12555 0400 62 LRL 14 6060 12556 0 02 00647 LDA FTOP 6061 12557 0404 66 LGR 10 6062 12560 0 06 12673 ADD K150 6063 12561 0410 72 LLL 6 6064 12562 0 04 14632 STA OCI 6065 12563 0410 70 LLL 8 6066 12564 0 04 14633 STA OCI+1 6067 12565 0 10 03007 JST SAV 6068 12566 0 10 03770 JST FL00 6069 12567 1 02 15402 LDA DP+2,1 6070 12570 0 04 14717 STA PRI+13 SET COMMON NAME INTO PRINT BUFFER 6071 12571 0412 70 LLR 8 6072 12572 0 04 14636 STA OCI+4 6073 12573 0410 70 LLL 8 6074 12574 1 02 15403 LDA DP+3,1 6075 12575 0 04 14716 STA PRI+12 SET COMMON NAME INTO PRINT BUFFER 6076 12576 0412 70 LLR 8 6077 12577 0 04 14635 STA OCI+3 6078 12600 0410 70 LLL 8 6079 12601 1 02 15404 LDA DP+4,1 6080 12602 0 03 00730 ANA K111 ='037777 6081 12603 0 11 12604 CAS *+1 LOOK FOR BLANK COMMON 6082 12604 020240 OCT 020240 6083 12605 0 05 00740 ERA K122 6084 12606 0 05 00760 ERA HBIT 6085 12607 0 04 14715 STA PRI+11 SET NAME INTO PRINT BUFFER