FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 31

1101 01551 100040 SZE GO TO DN16 (4.9) 1102 01552 0 01 01476 JMP DN25 ELSE, GO TO DN25 1103 01553 0 01 01441 JMP DN16 1104 * 1105 * PROCESS OCTAL CONSTANTS 1106 * 1107 01554 0 12 00054 DNOC IRS NT NAME TAG=0 IF NAME, =1 OTHERWISE 1108 01555 0 10 01157 DNO2 JST CH00 FETCH NEXT CHARACTER 1109 01556 0 11 00720 CAS K9 (='257) TEST FOR OCTAL DIGIT 1110 01557 0 11 01576 CAS K90 (='270) X 1111 01560 0 01 01567 JMP DN52 NO...GO CLOSE OUT 1112 01561 0 01 01567 JMP DN52 X 1113 01562 0400 75 LRL 3 GOOD PART OF DIGIT TO B 1114 01563 0 02 00774 LDA TID PREVIOUS ACCUM. TO A 1115 01564 0410 75 LLL 3 *8 + NEW DIGIT 1116 01565 0 04 00774 STA TID SAVE NEW VALUE 1117 01566 0 01 01555 JMP DNO2 CONTINUE SCAN 1118 01567 0 02 01342 DN52 LDA F1 1119 01570 101040 SNZ CHECK FOR NEGATIVE OCTAL CONSTANT 1120 01571 0 01 01456 JMP DN17 NO...IT'S POSITIVE 1121 01572 0 02 00774 LDA TID YES...2'S COMPLEMENT AND CONTINUE 1122 01573 140407 TCA X 1123 01574 0 04 00774 STA TID X 1124 01575 0 01 01456 JMP DN17 X 1125 01576 000270 K90 OCT 270 1126 * 1127 * 1128 01577 0 10 01240 DN54 JST ID00 INPUT DIGIT 1129 01600 101040 SNZ 1130 01601 0 01 01374 JMP DN10 IF (A) = 0, GO TO DN10 (3) 1131 01602 0 02 00054 LDA NT 1132 01603 101040 SNZ IF NT = 0, GO TO DN56 1133 01604 0 01 01606 JMP DN56 1134 01605 0 01 01441 JMP DN16 GO TO DN16 (4) 1135 01606 140040 DN56 CRA 1136 01607 0 04 00067 STA TC TC = ) 1137 01610 0 10 01152 DN58 JST UC00 UN-INPUT A COLUMN. 1138 01611 0 02 01342 LDA F1 IF F1 = 0, GO TO DN60 1139 01612 100040 SZE 1140 01613 0 01 01627 JMP DN63 ELSE, GO TO DN63 (15) 1141 01614 0 02 00742 LDA K106 1142 01615 0 10 01253 JST IA00 INPUT (6) CHARS 1143 01616 0 10 02533 JST CIB IF IBUF = TRUE., 1144 01617 1 014137 DAC K1+3,1 1145 01620 0 01 01632 JMP DN64 1146 01621 0 10 02533 JST CIB IF IBUF = FALSE., 1147 01622 1 014142 DAC K2+3,1 GO TO DN66 (16) 1148 01623 0 01 01634 JMP DN66 1149 01624 0 10 02533 JST CIB CHECK FOR .NOT. OPERATOR 1150 01625 1 014145 DAC KNOT+3,1 CHECK FOR .NOT. OPERATOR