FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 99

2948 04453 0 02 00756 LDA IA90 =-3 2949 04454 0 04 00626 STA I 2950 04455 0 10 02264 V324 JST IS00 INPUT STATEMENT NUMBER 2951 04456 0 35 00626 LDX I 2952 04457 0 02 00625 LDA A 2953 04460 1 04 04526 STA T1V3+3,1 SAVE BRANCH ADDRESSES 2954 04461 0 12 00626 IRS I I=I+1 2955 04462 0 01 04511 JMP V350 CHECK FOR TERMINAL COMMA 2956 04463 0 02 04525 LDA T3V3 2957 04464 0 11 04524 CAS T2V3 CHECK FOR ADDR-2 = ADDR-3 2958 04465 0 01 04467 JMP *+2 2959 04466 0 01 04476 JMP V330 ADDR-2 = ADDR-3 2960 04467 140040 CRA 2961 04470 0 04 00625 STA A 2962 04471 0 02 13034 LDA OMJ2 =SNZ INSTR. 2963 04472 0 10 13235 JST OQ00 OUTPUT ABSOLUTE 2964 04473 0 02 04524 LDA T2V3 2965 04474 0 10 04514 JST V360 OUTPUT A JMP(ADDR-2) INSTR. 2966 04475 0 02 04525 LDA T3V3 2967 04476 0 11 04523 V330 CAS T1V3 CHECK FOR ADDR-3 = ADDR-2 2968 04477 0 01 04501 JMP *+2 2969 04500 0 01 04507 JMP V340 ADDR-3 = ADDR-1 2970 04501 140040 CRA 2971 04502 0 04 00625 STA A 2972 04503 0 02 13035 LDA OMJ3 =SMI INSTR. 2973 04504 0 10 13235 JST OQ000 OUTPUT ABSOLUTE 2974 04505 0 02 04525 LDA T3V3 2975 04506 0 10 04514 JST V360 OUTPUT A JMP (ADDR-3) INSTR. 2976 04507 0 02 04523 V340 LDA T1V3 2977 04510 0 01 04533 JMP R7B1 SET IFF = ADDR-1, CHECK NO PATH 2978 * AND INPUT NEXT STATEMENT 2979 * 2980 04511 0 02 00734 V350 LDA K5 2981 04512 0 10 02352 JST TS00 COMMA TEST 2982 04513 0 01 04455 JMP V324 INPUT NEXT STATEMENT NO. 2983 * 2984 * 2985 *---------------SUBROUTINE TO OUTPUT A RELATIVE JMP 2986 04514 0 000000 V360 DAC ** 2987 04515 0 04 00625 STA A SET ADDR. OF JUMP REF. TO A 2988 04516 140040 CRA 2989 04517 000201 IAB SET (B) = 0 2990 04520 0 02 13026 LDA OMI5 SET (A) = JMP INSTR. 2991 04521 0 10 11471 JST OB00 OUTPUT OA 2992 04522 -0 01 04514 JMP* V360 EXIT 2993 * 2994 04523 0 00 00000 T1V3 *** ** ADDR-1 2995 04524 0 00 00000 T2V3 *** ** ADDR-2 2996 04525 0 00 00000 T3V3 *** ** ADDR-3 2997 EJCT