FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 20

0721 * 0722 * 0723 * 0724 * ************** 0725 * *INPUT COLUMN* 0726 * ************** 0727 * 0728 * INPUT NEXT CHARACTER 0729 * IGNORE BLANKS 0730 * CHECK FOR COMMENTS 0731 * IC02 SET AS FOLLOWS - 0732 * NORMAL - ICIP 0733 * INITIAL SCAN -ICSR 0734 01061 0 000000 IC00 DAC ** LINK STORE 0735 01062 0 15 01134 STX ICXS SAVE INDEX 0736 01063 0 02 00656 LDA CC IF CC = 73, GO TO IC 19 0737 01064 0 07 01150 SUB K108 0738 01065 100040 SZE 0739 01066 0 01 01120 JMP IC19 ELSE, GO TO IC 0740 01067 0 02 00705 LDA ICSW IF ICSW, GO TO IC12 0741 01070 101040 SNZ 0742 01071 0 01 01135 JMP IC24 ELSE, GO TO IC24 0743 01072 0 10 00000 IC12 CALL F4$IN INPUT SYMBOLIC CARD IMAGE 0744 01073 0 014040 DAC CI 0745 01074 0 02 14040 LDA CI 0746 01075 141140 ICL GO TO IC 14 0747 01076 0 11 01147 CAS K16 =(C) 0748 01077 0 01 01101 JMP *+2 0749 01100 0 01 01144 JMP IC30 COMMENT CARD (IGNORE) 0750 01101 0 07 00662 SUB K15 =($) 0751 01102 101040 SNZ 0752 01103 0 01 01111 JMP IC18 CONTROL CARD (IGNORE COLUMN 6) 0753 01104 0 02 01146 LDA K357 IF CARD COL. SIX IS 0754 01105 0 03 14042 ANA CI+2 ZERO OR BLANK. GO TO IC18 0755 01106 0 07 00660 SUB K8 0756 01107 100040 SZE 0757 01110 0 01 01140 JMP IC26 ELSE, GO TO IC26 0758 01111 0 04 00656 IC18 STA CC CC = 0. 0759 01112 0 02 14042 LDA CI+2 CI(6) = SPECIAL 0760 01113 0 03 00672 ANA K116 0761 01114 0 06 00714 ADD HC2 ='340 0762 01115 0 04 14042 STA CI+2 0763 01116 0 02 00702 LDA CRET 0764 01117 0 01 01131 JMP IC20 TC = C.R. 0765 01120 0 02 00656 IC19 LDA CC TC = CI(CC) 0766 01121 0 07 00735 IC21 SUB K101 LOCATE BUFFER WORD ASSOC. WITH CC 0767 01122 0404 77 LGR 1 0768 01123 0 04 00000 STA 0 0769 01124 1 02 14040 LDA CI,1 0770 01125 101001 SSC IS CURRENT CHAR. IN RT. OR LEFT