FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 111

3413 05264 100040 SZE 3414 05265 0 01 05232 JMP V2F 3415 05266 0 10 06046 V2J JST HS00 TRANSMIT HOLLERITH STRING 3416 05267 0 01 05223 JMP V2E5 GO TO V2E5 3417 05270 0 02 00651 V2K LDA LSTN IF LSTN = 0, 3418 05271 100040 SZE 3419 05272 0 01 05275 JMP *+3 3420 05273 0 10 02615 JST ER00 ERROR, NO PATH 3421 05274 147306 BCI 1,NF NO REFERENCE TO FORMAT STATEMENT 3422 05275 0 02 00643 LDA RPL LIF = RPL 3423 05276 0 04 00650 STA LIF 3424 05277 140040 CRA 3425 05300 0 04 00625 STA A 3426 05301 0 04 00025 STA AF 3427 05302 0 02 13026 LDA K201 = JMP 0 3428 05303 0 10 13235 JST OQ00 OUTPUT ABSOLUTE 3429 05304 0 01 05142 JMP V2A GO TO V2A 3430 * 3431 05305 0 000000 NZ00 DAC ** 3432 05306 0 02 00774 LDA TID 3433 05307 100040 SZE 3434 05310 -0 01 05305 JMP* NZ00 3435 05311 0 10 02615 NZ10 JST ER00 3436 05312 147332 BCI 1,NZ NON-ZERO STRING TEST FAILED 3437 05313 0 000000 IN00 DAC ** 3438 05314 0 10 05320 JST SI00 (A) = 0 IS ERROR CONDITION 3439 05315 100040 SZE 3440 05316 -0 01 05313 JMP* IN00 3441 05317 0 01 05311 JMP NZ10 3442 05320 0 000000 SI00 DAC ** 3443 05321 140040 CRA 3444 05322 0 04 00774 STA TID ID = T2 = O 3445 05323 0 04 05132 SI05 STA V2T2 3446 05324 0 10 01157 JST CH00 INPUT CHAR 3447 05325 0 10 11444 JST OK00 OUTPUT PACK 3448 05326 0 02 00067 LDA TC 3449 05327 0 07 00665 SUB K60 ASC-2 ZERO 3450 05330 0 11 00745 CAS K124 3451 05331 0 01 05346 JMP SI10 3452 05332 101000 NOP 3453 05333 100400 SPL 3454 05334 0 01 05346 JMP SI10 3455 05335 0 04 00067 STA TC 3456 05336 0 02 00774 LDA TID TID = 10*TID+TC 3457 05337 0415 75 ALS 3 3458 05340 0 06 00774 ADD TID 3459 05341 0 06 00774 ADD TID 3460 05342 0 06 00067 ADD TC 3461 05343 0 04 00774 STA TID 3462 05344 0 02 00735 LDA K101 T2 =1