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

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

5687 12057 0 06 00041 ADD I 5688 12060 0 04 00657 STA KPRM 5689 12061 0 10 02676 W4M JST STXI SET INDEX = I 5690 12062 1 02 15377 LDA DP-1,1 5691 12063 0 04 00040 STA A A = DP (E-1) 5692 12064 0 02 00653 LDA IM 5693 12065 0 04 11757 STA T0W4 TO = IM 5694 12066 0 10 03656 JST FA00 5695 12067 0 02 00061 LDA BDF IF BDF NOT ZERO 5696 12070 100040 SZE 5697 12071 0 01 12217 JMP W4S GO TO W4S 5698 12072 0 10 10650 JST NM00 NON-COMMON TEST 5699 12073 0 10 02676 W4O JST STXI SET INDEX = I 5700 12074 1 02 15400 LDA DP,1 5701 12075 0 04 00060 STA RPL RPL = AF 5702 12076 0 10 14523 JST FS00 FLUSH 5703 12077 140040 CRA 5704 12100 0 04 00640 STA DF DF = 0 5705 12101 0 02 01520 LDA HOLF IS IT HOLLERITH DATA 5706 12102 100040 SZE NO 5707 12103 0 01 12122 JMP WHOW YES, GO TO OUTPUT IT 5708 12104 0 02 00633 LDA D0 5709 12105 0 04 00000 STA 0 5710 12106 1 01 12106 JMP *,1 SWITCH ON NUMBER OF WORDS TO OUTPUT 5711 12107 0 01 12161 JMP W405 5712 12110 0 01 12151 JMP W403 5713 12111 0 01 12155 JMP W404 5714 12112 0 02 01477 LDA TID+2 5715 12113 0 10 14127 JST OA00 5716 12114 0 02 01476 LDA TID+1 5717 12115 0 10 14127 JST OA00 5718 12116 0 02 03641 LDA TIDB+2 5719 12117 0 10 14127 JST OA00 5720 12120 0 02 03640 LDA TIDB+1 5721 12121 0 01 12162 JMP W406 5722 12122 0 02 00633 WHOW LDA D0 (A)=NO. OF WORDS PER ITEM 5723 12123 0415 77 ALS 1 (A)=NO. OF CHARS, PER ITEM 5724 12124 0 04 00575 STA NTID NTID=NO. OF CHARS. TO BE OUTPUT 5725 12125 0 07 01520 SUB HOLF 5726 12126 100400 SPL 5727 12127 0 01 12170 JMP WERR 5728 12130 0 02 01475 LDA ID FIRST WORD 5729 12131 0 10 12141 JST WSNG OUTPUT IT 5730 12132 0 02 01476 LDA ID+1 2ND WORD 5731 12133 0 10 12141 JST WSNG OUTPUT IT 5732 12134 0 02 01477 LDA ID+2 3RD WORD 5733 12135 0 10 12141 JST WSNG OUTPUT IT 5734 12136 0 02 01500 LDA ID+3 4TH WORD 5735 12137 0 10 14127 JST OA00 OUTPUT IT 5736 12140 0 01 12172 JMP W420 TO CHECK NEXT DATA