FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 173

5721 11225 0 02 00742 LDA K106 FORMAT BCD OUTPUT 5722 11226 0414 72 LGL 6 5723 11227 0410 72 LLL 6 5724 11230 0 04 13650 STA OCI 5725 11231 000201 IAB 5726 11232 0 03 00672 ANA K116 5727 11233 0 04 13651 STA OCI+1 5728 11234 0 10 03426 JST FL00 FETCH LINK 5729 11235 1 02 17404 LDA DP+4,1 5730 11236 140500 SSM 5731 11237 0416 77 ALR 1 5732 11240 140500 SSM 5733 11241 0406 77 ARR 1 5734 11242 0400 70 LRL 8 5735 11243 0 05 13651 ERA OCI+1 5736 11244 0 04 13651 STA OCI+1 5737 11245 1 02 17403 LDA DP+3,1 5738 11246 000201 IAB 5739 11247 1 02 17404 LDA DP+4,1 5740 11250 0410 70 LLL 8 5741 11251 0 04 13652 STA OCI+2 5742 11252 1 02 17402 LDA DP+2,1 5743 11253 000201 IAB 5744 11254 1 02 17403 LDA DP+3,1 5745 11255 0410 70 LLL 8 5746 11256 0 04 13653 STA OCI+3 5747 11257 1 02 17402 LDA DP+2,1 5748 11260 0414 76 LGL 2 5749 11261 0 06 00737 ADD K103 5750 11262 0414 72 LGL 6 5751 11263 0 04 13654 STA OCI+4 5752 11264 0 02 00750 LDA K128 5753 11265 0 04 00063 STA OCNT 5754 11266 0 35 00626 LDX I I POINTS TO DATA TABLE 5755 11267 1 02 17377 LDA DP-1,1 SET A TO VARIABLE 5756 11270 0 04 00625 STA A 5757 11271 0 10 03317 JST FA00 5758 11272 0 01 11101 JMP W4O 5759 11273 0 02 00735 W4T LDA K101 =1 (=REL) 5760 11274 000201 IAB 5761 11275 0 02 00643 LDA RPL 5762 11276 0 10 03571 JST AF00 DEFINE AFT (AT=REL, AF=RPL) 5763 11277 0 35 00626 LDX I SET POINTER IN DATA POOL 5764 11300 0 02 00643 LDA RPL 5765 11301 1 04 17400 STA DP,1 DP(I) = RPL OF VARIABLE 5766 11302 0 06 00030 ADD D0 5767 11303 0 04 00643 STA RPL 5768 11304 0 01 10745 JMP W4C 5769 * 5770 *