FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 180

5915 * ************* 5916 * OUTPUT THE PACK WORD WHEN IT IS FULL. 5917 11442 0 00 00000 PKF PZE 0 PACK FLAG 5918 11443 0 00 00000 T0OK PZE 0 5919 11444 0 000000 OK00 DAC ** 5920 11445 0 11 00702 CAS CRET IF (A) = C/R 5921 11446 0 01 11450 JMP *+2 5922 11447 0 01 11462 JMP OK30 GO TO OK30 5923 11450 0 12 11442 IRS PKF PKF = PKF + 1 5924 11451 0 01 11455 JMP OK20 IF NON-ZERO, GO T0 OK20 5925 11452 0 06 11443 OK10 ADD T0OK (A) = (A) + T0 5926 11453 0 10 13243 JST OC00 OUTPUT ABS 5927 11454 -0 01 11444 JMP* OK00 5928 11455 0414 70 OK20 LGL 8 5929 11456 0 04 11443 STA T0OK 5930 11457 0 02 00676 LDA K123 PKF = - 1 5931 11460 0 04 11442 STA PKF 5932 11461 -0 01 11444 JMP* OK00 RETURN 5933 11462 0 02 11442 OK30 LDA PKF IF PKF = 0 5934 11463 101040 SNZ 5935 11464 -0 01 11444 JMP* OK00 RETURN 5936 11465 0 02 00660 LDA K8 ELSE (A) = SPACE, 5937 11466 0 04 11442 STA PKF 5938 11467 0 01 11452 JMP OK10 GO TO OK10 5939 EJCT