FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 70

2063 03174 0 07 00104 SUB '104 =DP,1 2064 03175 0 07 00655 SUB DO 2065 03176 101040 SNZ IF ZERO, ASSIGN TABLE ONLY. 2066 03177 0 01 03066 JMP AS16 2067 03200 140407 TCA 2068 03201 0 04 02761 STA T0AS 2069 03202 0 35 03313 LDX ZERO 2070 03203 -0 02 03221 AS46 LDA* AS92 END-5 2071 03204 -0 04 03220 STA* AS91 END (MOVE TABLES UP) 2072 03205 0 02 00000 LDA 0 2073 03206 0 07 00735 SUB K101 =1 2074 03207 0 04 00000 STA 0 REDUCE INDEX 2075 03210 0 12 02761 IRS T0AS = NO. OF WORDS TO MOVE 2076 03211 0 01 03203 JMP AS46 2077 03212 0 01 03065 JMP AS15 2078 03213 0 10 02615 AS50 JST ER00 2079 03214 146717 BCI 1,MO DATA POOL OVERFLOW 2080 03215 0 02 00655 AS60 LDA DO 2081 03216 0 06 00642 ADD D 2082 03217 0 01 03164 JMP AS41 2083 03220 0 000000 AS91 DAC 0 2084 03221 0 000000 AS92 DAC ** 2085 EJCT