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

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

1106 02035 0 02 00717 DN78 LDA K101 IM < INT 1107 02036 0 04 00653 STA IM 1108 02037 0 02 00607 DN80 LDA TC PACK TC TO ID 1109 02040 0 10 03055 JST PACK 1110 02041 0 10 01256 JST CH00 INPUT CHAR 1111 02042 0 02 00643 LDA DFL IF DFL IS NOT ZERO, 1112 02043 100040 SZE GO TO DN67 (18) 1113 02044 0 01 01772 JMP DN67 1114 02045 0 02 00575 LDA NTID IF NTID = 6, GO TO DN67 1115 02046 0 07 00724 SUB K106 1116 02047 100040 SZE 1117 02050 0 01 02037 JMP DN80 1118 02051 0 01 01772 JMP DN67 1119 02052 0 10 01412 DN82 JST FN00 1120 02053 0 04 01511 STA F1 F1 = CONVERTED TC 1121 02054 0 01 01534 JMP DN06 GO TO DN06 (2) 1122 02055 0 02 01511 DN84 LDA F1 IF F1 = -, 1123 02056 0 07 00720 SUB K102 GO TO DN85(13) 1124 02057 100040 SZE 1125 02060 0 01 02100 JMP DN85 1126 02061 140040 CRA 1127 02062 0 07 01475 SUB TID COMPLEMENT THREE WORDS AT TID 1128 02063 100040 SZE 1129 02064 0 01 02071 JMP DN8A 1130 02065 0 07 01476 SUB TID+1 1131 02066 100040 SZE 1132 02067 0 01 02074 JMP DN8B 1133 02070 0 01 02076 JMP DN8C 1134 02071 0 04 01475 DN8A STA TID 1135 02072 0 02 00741 LDA K123 1136 02073 0 07 01476 SUB TID+1 1137 02074 0 04 01476 DN8B STA TID+1 1138 02075 0 02 00741 LDA K123 1139 02076 0 07 01477 DN8C SUB TID+2 1140 02077 0 04 01477 STA TID+2 1141 02100 0 02 00050 DN85 LDA SXF IF SXF = 0, GO T0 DN67 (18) 1142 02101 101040 SNZ 1143 02102 0 01 01772 JMP DN67 ELSE, 1144 02103 0 02 00653 LDA IM IF IM NOT = REA, 1145 02104 0 07 00720 SUB K102 1146 02105 100040 SZE GO TO DN67 (18) 1147 02106 0 01 01772 JMP DN67 1148 02107 0 02 01516 LDA F6 ELSE, 1149 02110 101040 SNZ IF F6 = 0, GO TO DN87 1150 02111 0 01 02127 JMP DN87 1151 02112 0 02 00723 LDA K105 1152 02113 0 04 00653 STA IM IM = CPX 1153 02114 0 02 01475 LDA TID INTERCHANGE 1154 02115 0 13 03637 IMA TIDB 3 CELLS 1155 02116 0 04 01475 STA TID TID