4 * **************************
5 * *STATEMENT IDENTIFICATION*
6 * **************************
7 * READ FOUR CHARACTERS AND DETERMINE CORRECT ROUTINE
8 * FOR PROCESSING, THEN CHECK SPELLING ON REST
13 JST IA00 INPUT (4) CHARS
18 LDA A9Z9 INITIALIZE INDEX FOR LOOP
19 STA XR THROUGH THE STATEMENT NAMES
23 JMP A9F READ IN REST OF
24 LDA NAMF+1 CHECK REST OF SPELLING FOR
26 SZE A MATCH ON 4 CHARACTERS
30 STA A9T1 T1 = NUMBER OF REMAINING CHARACTERS
31 LDA A9X3+30,1 LEFT TO CHECK
35 STA A9T2 T2 = ADDRESS OF ROUTINE
37 JST NP00 FIRST NON-SPECIFIC. CHECK -(A) =
38 A9B LDA A9T1 HIERARCHY CODE
40 JMP A9C MUST CHECK MORE CHARACTERS
41 JMP* A9T2 FINISHED CHARACTER CHECK, EXIT TO
47 LDA K106 REMAINING SPELLING 1S CHECKED.
54 BCI 1,SP STATEMENT NAME MISSPELLED
60 A9F IRS XR LOOP CONTROL FOR STATEMENT NAMES.
61 JMP A9A MORE NAMES - CONTINUE LOOP
68 JMP C7 AND LSTN = 0 - INPUT NEW STATEMENT
70 BCI 1,ID UNRECOGNIZED STATEMENT
71 A9X1 BCI 10,INREDOCOLOFUSUBLEXDI
72 BCI 10,COEQGOCARECOFOIFWRRE
76 A9X2 BCI 10,TEALUBMPGINCBROCTEME
77 BCI 10,MMUITOLLTUNTRM( ITAD
111 DAC* TRAC+'20000,1 TRACE STATEMENT
114 * ******************************
115 * *CONTINUE STATEMENT PROCESS0R*
116 * ******************************
117 CONT LDA LSTP ACCOUNTS FOR POSSIBLE PATH ERROR
118 ADD LSTN ACCOUNTS FOR POSSIBLE PATH ERROR
119 STA LSTP ACCOUNTS FOR POSSIBLE PATH ERROR
122 *-------------THE FOLLOWING TABLE IS USED BY STATEMENT ID
123 *-------------(RIGHT 6 BITS) AND OUTPUT ITEM,
125 OCT 030100 (01) + (A$--)
126 OCT 032313 (02) - (S$--)
127 OCT 031503 (03) * (M$--)
128 OCT 030403 (04) / (D$--)
129 OCT 000004 (05) .NOT.
130 OCT 000006 (06) .AND.
131 OCT 031405 (07) .OR. (L$-,
138 OCT 031003 (16) = (H$--)
140 OCT 030503 (20) 'E' (E$--)
141 OCT 031600 (21) 'C' NC$--)
149 OCT 031400 (31) 'F' (L$--)
154 A9Z9 DAC* -30,1 NO. OF ITEMS IN STMNT NAME TABLE
157 * **********************
158 * *FIRST NON-SPEC CHECK*
159 * **********************
160 * AT FIRST SHIFT IN LEVEL FROM ZERO, WRAP-UP
161 * SPECIFICATION STATEMENTS
173 JMP NP10 TRACE STMNT. (MAY OCCUR ANYWHERE)
174 CAS SPF T0 , G.R. SPF, GO TO NP30
175 JMP NP30 T0 = SPF, G0 TO NP25
181 JST ER00 ELSE, ILLEGAL STATEMENT
182 BCI 1,EX SPECIFICATION STATEMENT APPEARS AFTER
184 NP10 LDA LSTN SPECIFICATION STATEMENT CLEAN-UP
187 JMP NP16 IF ZERO, RETURN
188 JST FA00 FETCH ASSIGNS
194 JST OS00 OUTPUT STRING RPL
195 NP15 JST LO00 DEFINE LOCATION
199 JST TRSE OUTPUT TRACE COUPLING
203 NP20 JST NR00 NON-REL TEST
208 LDA LSTP IF LSTP + LSTN =0
213 JST ER00 'NO PATH' ERROR
214 BCI 1,PH NO PATH LEADING TO THE STATEMENT
215 NP30 LDA SPF IF SPF 0 0
222 LDA BDF BLOCK DATA SUBPROGRAM FLAG
223 SZE SKIP IF NOT BLOCK DATA SUBPROGRAM
224 JMP C2 GO TO RELATE COMMON
225 STA A SET LISTING FOR OCTAL ADDR.
226 LDA OMI5 JMP INSTRUCTION
227 STA DF SET LISTING FOR SYMBOLIC INSTR.
228 JST OA00 OUTPUT ABSOLUTE
229 JMP C2 GO TO RELATE COMMON
237 NP40 STA A SET LISTING FOR OCTAL ADDR.
238 LDA XST LOCATION OF INITIAL JUMP
239 JST OS00 OUTPUT STRING
247 * ARITHMETIC IF ($1 $2 $3)
248 * IF $2 NOT = $3, JZE $2
249 * IF $3 NOT = $1, JPL $3
250 * (IF $1 NOT = NEXT ST NO., JMP $1) LATER
252 * OUTPUT JZE 77777 (FOR STRINGING AROUND
253 * IMBEDDED STATEMENT)
254 V3 JST II00 INPUT ITEM
256 JMP V310 IM=0 (POSSI8LE UNARY + OR -)
259 JMP V310 FIRST ITEM IN EXPRESSION 0.K.
260 V308 JST ER00 ERROR.....IF(SENSE SWITCH,.ETC).....
261 BCI 1,IF ILLEGAL IF STATEMENT TYPE
263 JST EX00 EXPRESSION EVALUATOR
267 STA A SET A TO SPECIAL (IF) ENTRY IN DATA POOL
269 LDA MFL SET MODE OF EXPRESSION INTO SPECIAL (IF)
272 JST TRSE OUTPUT TRACE COUPLING (IF NECESSARY)
273 LDA MFL CHECK MODE FLAG FOR LOGICAL
276 JMP V320 ARITHMETIC IF
280 STA AF SET ADDR OF SNZ AND JMP INSTR TO 00000
282 JST OA00 OUTPUT ABSOLUTE
283 LDA RPL SET LIF=CURRENT +DDR, (STRING BACK)
285 LDA OMI5 =JMP 0 INSTR.
286 JST OA00 OUTPUT ABSOLUTE
287 JST XN00 GO TO NEXT INPUT LINE
288 JMP C8 GO TO STATEMENT SCAN
290 V320 SUB K102 CHECK FOR MODE = COMPLEX
292 JMP V308 ERROR,...COMPLEX MODE EXPRESSION
295 V324 JST IS00 INPUT STATEMENT NUMBER
296 JST STXI SET INDEX TO I
298 STA T1V3+3,1 SAVE BRANCH ADDRESSES
300 JMP V350 CHECK FOR TERMINAL COMMA
302 CAS T2V3 CHECK FOR ADDR-2 = ADDR-3
304 JMP V330 ADDR-2 = ADDR-3
309 JST OA00 OUTPUT ABSOLUTE
311 JST V360 OUTPUT A JMP(ADDR-2) INSTR.
313 V330 CAS T1V3 CHECK FOR ADDR-3 = ADDR-2
315 JMP V340 ADDR-3 = ADDR-1
319 JST OA00 OUTPUT ABSOLUTE
321 JST V360 OUTPUT A JMP (ADDR-3) INSTR.
323 STA IFF SET IFF ' ADDR-1
324 JMP C5 GO TO ILL-TERM
328 JMP V324 INPUT NEXT STATEMENT NO.
332 *---------------SUBROUTINE TO OUTPUT A RELATIVE JMP
334 STA A SET ADDR. OF JUMP REF. TO A
337 LDA OMI5 SET (A) = JMP INSTR.
348 * CHECK FOR NORMAL (R740), COMPUTED (R710) OR
349 * ASSIGNED (R730). INPUT BRANCH LIST USED BY BOTH
350 * R710 AND R730 FOR STATEMENT NO. LIST.
353 R7 JST XN00 EXAMINE NEXT CHAR
355 JMP R78 GO TO TEST DFL
356 JST IS00 INPUT STMNT =
363 JST IR00 GO TO I (10, 20, 30}
365 LDA K206 OUTPUT JMP* INSTRUCTION
369 JST IB00 INPUT BRANCH LIST
371 R7D JST IB00 INPUT BRANCH LIST GO TO (10,11,12), I
374 JST IR00 INPUT INT VAR
380 STA AF CAUSE OCTAL ADDRESS IN LISTING
382 JST OA00 OUTPUT ABS (STA 0) - INDEX LOAD
384 STA AF CAUSE RPL T0 BE IN LISTING
386 JST OR00 OUTPUT RELATIVE (JMP RPL,1)
395 JMP B6 FINISHED LOOPING ON LIST
397 LDA K201 OUTPUT JMP INSTRUCTIONS
398 JST OB00 OUTPUT OA (JMP 0)
401 * *******************
402 * *INPUT BRANCH LIST*
403 * *******************
404 * INPUT STATEMENT NO. LISTS FOR GO TO PROCESSOR
412 IB10 JST IS00 INPUT STMNT =
415 STA DP,1 SET POINTER OF ST. N0. INTO TRIAD TABLE
420 LDA TC IF TC = , GO TO IB10
423 JMP IB10 CONTINUE LOOP
425 STA DP-1,1 SET END FLAG INTO TABLE
426 JST IP00 )- INPUT OPEN
434 * CHECK TO SEE THAT 'TO' IS INCLUDED PROPERLY
435 W3 JST IS00 INPUT STMNT =
441 JMP W305 CLEAR A FOR OUTPUT REL
442 STA A CAUSE OCTAL ADDRESS IN LIST
449 BCI 1,TO GO TO IN ASSIGN STATEMENT
452 STA AF OUTPUT REL LDA *+2
453 LDA K200 OUTPUT LDA *+2
457 STA AF OUTPUT REL JMP *+2
464 JST OB00 OUTPUT DAC ST. NO.
465 JST IR00 INPUT INTEGER VARIABLE
467 LDA K202 OUTPUT STA INSTRUCTION
469 JMP A1 GO TO C/R TEST
470 T1W3 PZE ** TEMP STORE
473 * ************************
474 * *DO STATEMENT PROCESSOR*
475 * ************************
476 * STACK INFO IN DO TABLE. OUTPUT DO INITIAL
479 C9 JST IS00 INPUT STATEMENT =
480 JST NR00 NON-REL TEST
483 JST UC00 UNINPUT COLUMN
490 JST DS00 DO INITIALIZE
505 JST OI00 OUTPUT I/0 LINK
506 JMP A1 GO TO C/R TEST
521 * LIST ELEMENT DATA AND IMPLIED DO CONTROL
522 * STACKED IN TRIAD TABLE. PROCESSED BY
523 * OUTPUT TRIAD ROUTINE, SPECIAL OPERATORS
524 * ARE -I = DO INITIALIZATION
526 * Q = I/0 ARG TRANSFER
530 JST XN00 EXAM NEXT CHAR
535 V4 LDA K40 NAWF = F$WN
537 V5A JST NF00 SET UP REMAINING NAME
540 JST CH00 INPUT CHARACTER
543 JST OI00 OUTPUT I0 LINK
549 V5B JST IP00 ) - INPUT OPERATOR
551 SUB CRET TEST FOR TC=C/R
553 JMP V5C N0, G0 TO V5C
554 V5B2 LDA K42 YES. NAMF = ND
559 JMP A1 G0 TO C/R TEST
563 V5D JST II00 INPUT ITEM
565 JMP V5E IF (A) NOT 0, GO TO V5E
578 V5E JST NC00 NON-CONSTANT TEST
584 SUB K17 IF TC NOT -(,
601 V5E7 LDA TC IF TC = COMMA
609 JST OT00 OUTPUT TRIADS
611 V5F JST IP00 )-INPUT OPERATOR
616 V5G JST KT00 K = = WDS/ITEM
618 V5H JST TV00 TAG VARIABLE
623 JST IT00 INTEGER TEST
625 SNZ IF IOF = ZERO OR L
631 BCI 1,PR PARENTHESES MISSING IN DO STATEMENT
641 JST ET00 ENTER TRIAD 'T'.
645 JST OA00 OUTPUT ABSOLUTE
653 V5X DAC ** INPUT FORMAT
654 JST XN00 EXAM NEXT CHARACTER
656 JMP V5X5 GO TO INPUT ARRAY NAME
657 JST IS00 INPUT STMNT NO.
658 V5X2 LRL 32 OUTPUT DAC A
661 V5X5 JST NA00 INPUT NAME
667 JST NF00 SET UP REST 0F NAME
679 * **************************
681 * *INPUT FORMAT STRING *
682 * *INPUT NUMERIC FORMAT STR*
683 * *NON ZERO TEST STRING *
684 * **************************
693 LDA LSTP IF LSTOP .NE. 0
696 V2A JST SI00 INPUT FORMAT STRING
700 SUB K12 IF TC NOT MINUS
703 JST IN00 INPUT NUMERIC FORMAT STRING
706 V2B LDA TC IF TC .NE. P
710 JST SI00 INPUT FORMAT STRING
712 JST NZ00 IF (A) .NE. 0
714 CAS K52 IF TC = D,E,F, OR G
721 JST IN00 INPUT NUMERIC FORMAT STRING
722 JST NZ00 NON-ZERO STRING TEST
725 V2D JST IN00 INPUT NUMERIC FORMAT STRING
726 V2DA LDA TC IF TC = )
731 JST OK00 INPUT CHAR AND OUTPUT PACK
732 LDA T0V2 IF F4 + ( Z (
746 V2E5 JST SI00 INPUT FORMAT STRING
749 LDA DFL IF DFL .NE. ZERO,
763 LDA TC IF TC .NE. A,I, OR L
773 V2G JST IN00 INPUT NUMERIC FORMAT STRING
774 JST NZ00 NON-ZERO STRING TEST
776 V2H JST NZ00 NON-ZERO STRING TEST
781 V2J JST HS00 TRANSMIT HOLLERITH STRING
783 V2K LDA LSTN IF LSTN = 0,
786 JST ER00 ERR0R, NO PATH
787 BCI 1,NF NO REFERENCE T0 FORMAT STATEMENT
804 BCI 1,NZ NON-ZERO STRING TEST FAILED
806 JST SI00 (A) = 0 IS ERROR CONDITION
824 LDA TID TID = 10*TID+TC
832 SI10 LDA V2T2 (A) = ERROR CONDITION OR NOT
835 BCI 1,FR FORMAT STATEMENT ERROR
861 * PAUSE AND STOP CENERATE CALLS TO F$HT
867 STA NAMF+1 NAMF = F$HT
868 JST NF00 SET-UP REMAINING CHAR 0F NAME
869 JST XN00 EXAMINE NEXT CHAR
873 JMP W7C TC = C/R - NOTING FOLLOWING
874 JST IV00 INPUT INTEGER/VARIA8LE
878 W7C JST CN00 CALL NAME
883 JST AI00 ASSIGN INTEGER CONSTANT
885 JST OB00 OUTPUT OA OF ST/PA OR HT
889 JMP C5 PA-NOT THE CASE
893 STA A CAUSE LISTING TO HAVE OCTAL ADDRESS
895 JST OR00 OUTPUT RELATWE
905 * GENERATES CALL DIRECTLY OR USES EXPRESSION TO
906 * ANALYZE AN ARGUMENT LIST.
907 R8 JST SY00 INPUT SYMBOL
911 JST TG00 TAG SUB PROCRAM
916 G2B LDA K101 SET A=1 BEFORE EXPRESSION
923 * **********************
924 * *ASSIGNMENT STATEMENT*
925 * **********************
927 JST NP00 FIRST NON-SPEC CHECK
929 LDA K102 SET A = 2 BEFORE EXPRESSION
938 * OPTIMIZES EXIT CODING FOR FUNCTIONS TO MINIMIZE
939 * FETCHES OF THE FUNCTION VALUE.
941 STA A IF ZERO, GO TO ERROR
945 BCI 1,RT RETURN NOT ALLOWED IN MAIN PROGRAM
946 LDA SFF ELSE, IF SFF = 0,
949 CAS K101 IF SFF = 1, GO TO R98
952 STA AF OUTPUT REL JMP TO 1ST RETN
954 STA A SET A=0 TO OUTPUT OCTAL ADDR ON LISTING
960 LDA K56 0UTPUT ITEM (F,A)
963 STA A SET FOR OCTAL ADDHESS IW LISTING
964 STA AF SET RELATIVE ADDRESS TO ZERO
966 R9A JST OR00 OUTPUT REL
968 K56 OCT 31 P CODE FOR 'F' (FETCH)
971 * ********************
972 * *STATEMENT FUNCTION*
973 * ********************
974 * OLD ASSIGN VALUES ARE SAVED IN SFTB AND ARE
975 * RESTORED AT COMPLETION.
979 JST NP00 FIRST NON-SPEC CHECK
980 JST SY00 INPUT SYMBOL
981 JST LO00 DEFINE LOCATION
984 JST GE00 GENERATE SUBPROGRAM ENTRANCE
1010 SUB K103 I = I-3 = 0
1014 JMP G1A NO, GO TO G1A
1020 JST TG00 TAG SUBPROGRAM
1021 JMP A1 GO TO C/R TEST
1026 * FIRST CHECK SUBPROGRAMS FOR CORRECT USAGE, THEN
1027 * GENERATE MAP AND STRING BACK VARIABLES
1030 W5 LDA BDF IF BLOCK DATA,
1033 LDA SBF IF SBF NOT ZERO
1034 STA A INDICATES SUBROUTINES
1040 W5D JST FA00 FETCH ASSIGNS
1043 SZE IF NT=L (CONSTANT)
1047 SZE INDICATES VARIABLE,
1049 W5F LDA RPL SAVE RPL
1050 STA T1W5 RPL=-AF (INHIBIT LISTING)
1056 LDA T1W5 RESTORE RPL
1061 SUB ABAR IF A=ABAR, (DONE)
1064 JMP W5D ELSE, GO TO W5D
1065 W5J JST FS00 FLUSH BUFFER
1078 JMP A051 GO TO INITIALIZE
1079 W5K LDA RPL IF RPL NOT ZERO,
1082 JST ER00 ERROR-CODE GENERATED
1083 BCI 1,BD IN A BLOCK DATA SUBPROGRAM
1084 W5M JST FA00 FETCH ASSIGNS
1085 LDA SFF IF FUNCTION,
1088 JST NU00 NO USE TEST
1090 LDA DP,1 IF NO ERROR,
1095 SUB K102 IU MUST BE VAR/CON,
1098 JST ER00 ERROR-FUNCTION
1099 BCI 1,FD NAME NOT DEFINED BY AN ARITHM, STATEMENT
1100 W5O LDA IU IF IU=VAR/CON
1104 LDA AT AND AT = STR/REL
1105 SUB K103 A "STRING" REQ'D.
1108 W5P LDA D0 IF D0 IS 4, THE
1109 SUB K104 CONSTANT IS COMPLEX,
1113 JST OS00 OUTPUT STRING
1115 LDA DP+2,1 OUTPUT 4 WORDS
1128 JST OS00 OUTPUT STRING
1131 SUB K101 INDICATES INTEGER,
1134 W5S LDA DP+2,1 OUTPUT TWO WORDS
1135 JST W5X FLOATING POINT CONSTANT
1138 LDA D0 IF DOUBLE PRECISION,
1142 W5R LDA DP+4,1 OUTPUT THE 3RD WORD
1147 JMP W5F STRONG VARIABLE (IU = NON 0)
1149 CAS K102 TEST FOR STG ABS ADDRESS
1153 LDA DP+4,1 TEST FOR PREFIX G
1157 JMP W5F STRONG VARIABLE (IU = NON 0)
1170 W5Z1 EQU K100 000377
1171 W5Z2 EQU K122 040000
1172 W5Z3 EQU K116 177400
1176 * ************************
1177 * *INPUT CHAR/OUTPUT PACK*
1178 * ************************
1181 JST OK00 OUTPUT PACK
1183 * ************************
1184 * *TRANS HOLLERITH STRING*
1185 * ************************
1186 * FORM HOLLERITH STRING, CHARACTER COUNT IN ID 0N
1187 * ENTRY. C/R WILL ALSO TERMINATE STRING.
1189 HS10 JST IC00 INPUT 1 CHARACTER
1190 CAS CRET CHECK FOR CHAR = C/R
1192 JMP HS15 HOLLERITH STRING EXTENDS PAST END 0F CARD
1193 JST OK00 OUTPUT PACK THE CHARACTER
1195 SUB K101 REDUCE CHARACTER COUNT BY 1
1198 JMP HS10 INPUT MORE CHARACTERS
1201 BCI 1,HS HOLLERITH STRING EXTENDS OVER STATEMENT
1207 * SET UP DO TABLE ENTRIES.
1210 ADD K105 IFLG = NON-ZERO
1216 LDA A DP (1-4) = (B)
1217 STA DP-2,1 DP (1-2) = A
1220 JST IV00 INPUT INT VAR/CON
1225 STA DP,1 DP(I) = INITIAL VALUE POINTER
1226 JST IV00 INPUT INT VAR/CON
1229 STA DP-1,1 DP (I-1) = A - FINAL VALUE POINTER
1234 JST IV00 READ AND ASSIGN,
1237 STA DP-3,1 DP(I-3) = INCREMENT POINTER
1239 STA IFLG CLEAR IFLAG
1242 STA ID THIRD TERM = 1
1243 JST AI00 ASSIGN CONSTANT
1248 * GENERATE DO INITIALIZATION CODE.
1250 JST STXI ESTABLISH I
1254 JST DS20 LOAD - LDA INITIAL VALUE
1258 STA DP,1 SET RETURN ADDRESS INTO DP(I)
1260 JST DS20 STORE - STA VARIABLE NAME
1262 * OUTPUT OA SUBROUTINE
1275 * GENERATE DO TERMINATION CODE.
1281 JST DS20 OUTPUT LDA VARIABLE NAME
1285 JST DS20 OUTPUT ADD INCREMENT
1289 JST DS20 OUTPUT CAS FINAL VALUE
1301 LDA OMI5 JMP RPL (SAVED) - POINTS TO 'STA' INST.
1303 LDA OMI5 OUTPUT JMP RPL (SAVED)
1309 * THE RESULTANT OUTPUT IS A BUILT UP AOIN
1310 * TABLE THAT IS FURTHER PROCESSED BY SCAN.
1322 LDA A SAVE POINTER TO FIRST VARIABLE
1323 STA TRFA FOR LATER POSSIBLE TRACING
1328 JST EX99 DATA POOL CHECK
1336 STA DP-1,1 0 (I) = 0
1340 STA DP-2,1 O(I-2) = L0
1344 STA DP,1 AOIN(I) = T(1) = 0
1346 LDA IM IF IM NOT ZERO,
1352 * PERFORM TABLE SEARCH
1353 EX11 LDA TC GO TO ROUTINE ACCORDING
1355 SNZ IF NO MATCH, ERROR
1360 LDA LIBF SPECIAL LIBRARY FLAG
1363 JMP EX95 ERROR CONDITION
1366 JMP 0,1 PROCESS LEADING OPERATOR
1367 * SPECIAL OPERATOR FLAG SET WHEN COMPILING THE FORTRAN
1368 * LIBRARY IN WHICH CASE THE OPERATIONS ( A= ) AND
1369 * ( =A ) ARE REQUIRED, THIS LOGIC WILL ALLOW THESE
1370 * TO BE PROCESSED WITHOUT GIVING AN ERROR MESSAGE IF THE
1371 * SPECIAL LIBRARY FLAG, (LIBF) IS SET TO NON-ZERO,
1375 STA B SXF = NON-ZERO
1377 EX14 JST II00 INPUT ITEM
1380 EX16 JST STXI TC = *
1382 LGL 9 OI (I-2) = *, B+13
1389 JST ER00 NO, CONSTR ERROR
1390 BCI 1,PW * NOT PRECEDED BY ANOTHER *
1396 ERA DP-1,1 CHAJNE * TO **
1406 SUB B 8 .GT. I (I-2) -B
1410 EX19 JST ER00 NO, ERROR
1411 BCI 1,NT LOGICAL .NOT. NOT A UNARY OPERATOR
1416 ADD F B + + (5) .GT. 0
1424 STA DP+1,1 OI(I) = TC , T1+B
1425 JST EX99 DATA POOL CHECK
1429 ANA K118 IF I (I-2) .LT. B
1431 JMP EX97 ERROR-----MULTIPLE + OR - SIGNS
1433 EX30 LDA K131 SET INDEX TO
1434 STA 0 SEARCH OPERATOR TABLE FOR TRAILING
1435 EX31 LDA EX92+14,1 OPERATOR AFTER HAVING ENCOUNTERED AN
1436 SUB TC ITEM 0R A NEGATE,
1444 EX32 IRS XR CONTROL OPERATOR LOOP