FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 130

4123 06427 -0 01 06225 JMP* EX00 RETURN 4124 06430 0 35 00626 EX38 LDX I 4125 06431 0 02 00036 LDA B 4126 06432 0 07 00666 SUB K109 4127 06433 0 04 00036 STA B 4128 06434 0 02 00737 LDA K103 4129 06435 0 04 00630 STA MFL 4130 06436 0 02 06216 LDA T0EX 4131 06437 0414 67 LGL 9 O (I) = T (0) 4132 06440 0 06 00036 ADD B I (I) = B+9 4133 06441 0 06 00745 ADD K124 I = I+2 4134 06442 1 04 17401 STA DP+1,1 4135 06443 0 10 07106 JST EX99 DATA POOL CHECK 4136 06444 140040 CRA 4137 06445 0 04 06216 STA T0EX T0 = 0 4138 06446 0 04 06223 STA EXT7 T7 = 0 4139 06447 0 02 00113 EX39 LDA L0 4140 06450 0 04 00625 STA A A = L0 4141 06451 0 04 00706 STA IM IM NOT EQ 0 4142 06452 0 01 06252 JMP EX10 4143 06453 0 02 00067 EX40 LDA TC TC 0 , 4144 06454 0 11 00734 CAS K5 ='254 (,) IN BCD MODE 4145 06455 0 01 06457 JMP *+2 4146 06456 0 01 06462 JMP EX41 4147 06457 0 07 00754 SUB K134 =17 4148 06460 100040 SZE 4149 06461 0 01 06475 JMP EX44 NO, GO TO EX44 4150 06462 0 02 00626 EX41 LDA I 4151 06463 0 07 00736 EX42 SUB K102 4152 06464 0 04 00000 STA 0 B VS. I (J) 4153 06465 1 02 17401 LDA DP+1,1 4154 06466 0 03 00673 ANA K118 4155 06467 0 11 00036 CAS B 4156 06470 0 01 06473 JMP *+3 4157 06471 0 01 06356 JMP EX24 EQUAL, GO TO EX24 4158 06472 -0 01 06225 JMP* EX00 LESS, RETURN 4159 06473 0 02 00000 LDA 0 GREATER, REPEAT LOOP 4160 06474 0 01 06463 JMP EX42 4161 06475 0 10 02360 EX44 JST IP00 ) - INPUT OPERATOR 4162 06476 0 01 06375 JMP EX30 GO TO EX30 4163 06477 0 35 00626 EX50 LDX I 4164 06500 0 02 00625 LDA A A(I) = A 4165 06501 1 04 17400 STA DP,1 4166 06502 0 02 00710 LDA IU IU = SUB OR ARR 4167 06503 101100 SLN 4168 06504 0 01 06375 JMP EX30 NO, GO TO EX3O 4169 06505 0 02 00067 LDA TC 4170 06506 0 07 14474 SUB K17 TC = ( 4171 06507 100040 SZE 4172 06510 0 01 07026 JMP EX76 NO, GO TO EX76