FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 19

0708 01046 141206 AOA (A)=1 IU=SUBR 0709 01047 0 10 03623 JST AA00 ASSIGN (SPECIAL) 0710 01050 0 35 00625 LDX A 0711 01051 0 02 00625 LDA A 0712 01052 0 04 00641 STA CFL CFL=A (LOCATION OF FIRST COMMON BLOCK) 0713 01053 0 06 00675 ADD K122 ='40000 (IU=SUBR) 0714 01054 1 04 17401 STA DP+1,1 GF(A)=A (IN CASE NO BLANK COMMON IS SPECIFIED) 0715 01055 0 01 03723 JMP C7 GO TO STMNT INPUT 0716 000027 M EQU 23 0717 01056 -1 177751 A090 DAC* -M,1 0718 01057 0 00 00000 A091 PZE 0 0719 01060 0 00 00000 LIBF PZE 0 SPECIAL LIBRARY FLAG 0720 EJCT