C210-001-6601 (FRTN) 3C NO.180463000 REV. D

* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 14

0651 * CHECK FOR COMMENTS 0652 * IC02 SET AS FOLLOWS - 0653 * NORMAL - ICIP 0654 * INITIAL SCAN -ICSR 0655 01066 0 000000 IC00 DAC ** LINK STORE 0656 01067 0 10 03007 JST SAV SAVE INDEX 0657 01070 0 02 00662 LDA CC IF CC = 73, GO TO IC 10 0658 01071 0 07 01153 SUB K108 0659 01072 100040 SZE 0660 01073 0 01 01125 JMP IC19 ELSE, GO TO IC 0661 01074 0 02 00651 IC10 LDA ICSW IF ICSW. GO TO IC12 0662 01075 101040 SNZ 0663 01076 0 01 01141 JMP IC24 ELSE, GO TO IC24 0664 01077 0 10 00000 IC12 CALL F4$IN INPUT SYMBOLIC CARD IMAGE 0665 01100 0 001155 DAC CI 0666 01101 0 02 01155 LDA CI 0667 01102 0404 70 LGR 8 GO 70 IC 14 0668 01103 0 11 01152 CAS K16 =(C) 0669 01104 0 01 01106 JMP *+2 0670 01105 0 01 01150 JMP IC30 COMMENT CARD (IGNORE) 0671 01106 0 07 00700 SUB K15 =($) 0672 01107 101040 SNZ 0673 01110 0 01 01116 JMP IC18 CONTROL CARD (IGNORE COLUMN 6) 0674 01111 0 02 00764 LDA K357 IF CARD COL, SIX IS 0675 01112 0 03 01157 ANA CI+2 ZERO OR BLANK, GO TO IC18 0676 01113 0 07 00673 SUB K8 0677 01114 100040 SZE 0678 01115 0 01 01144 JMP IC26 ELSE, GO TO IC26 0679 01116 0 04 00662 IC18 STA CC CC = 0. 0680 01117 0 02 01157 LDA CI+2 CI(6) = SPECIAL 0681 01120 0 03 00733 ANA K116 0682 01121 0 06 00763 ADD HC2 ='340 0683 01122 0 04 01157 STA CI+2 0684 01123 0 02 00756 LDA CRET 0685 01124 0 01 01135 JMP IC20 TC = C.R. 0686 01125 0 02 00662 IC19 LDA CC TC = CI(CC) 0687 01126 0 07 00717 SUB K101 0688 01127 0404 77 LGR 1 0689 01130 0 04 00000 STA XR 0690 01131 1 02 01155 LDA CI,1 0691 01132 101001 SSC 0692 01133 0404 70 LGR 8 0693 01134 0 03 00727 ANA K100 0694 01135 0 04 00607 IC20 STA TC 0695 01136 0 12 00662 IRS CC CC = CC+1 0696 01137 0 10 03016 IC22 JST RST RESTORE INDEX 0697 01140 -0 01 01066 JMP* IC00 RETURN 0698 01141 0 02 00674 IC24 LDA K9 TC = /, END OF LINE - STATEMENT SCAN 0699 01142 0 04 00607 STA TC 0700 01143 0 01 01137 JMP IC22 GO TO IC22