$LIST $DATE 020705 $JOB ASSEMBLY OF MONITOR, COMPILER SECTIONS 1 THROUGH 6 OF $00000010 $* FORTRAN II PROCESSOR, 7090-FO-928 00000020 $* VERSION 3, MODIFICATION LEVEL 35 (35)00000030 $EXECUTE IBSFAP $00000050 * IBSFAP VERSION 3/FORTRAN IBSFAP MODE LOADER 9IBS0000 * FAP 9IBS0020 2/07/05 PAGE 1 IBSFAP VERSION 3/FORTRAN IBSFAP MODE LOADER ABS 9IBS0060 SST FORTRAN $9IBS0070 00102 ORG SYSCUR 9IBS0110 BINARY CARD NO. IBSFAP00 00102 312262262147 BCI 1,IBSFAP TO INDICATE IBSFAP MODE 9IBS0120 00100 ORG SYSTRA 9IBS0130 BINARY CARD NO. IBSFAP01 00100 0021 00 0 03720 TTR LOADRR 9IBS0140 03720 ORG SYSORG 9IBS0150 BINARY CARD NO. IBSFAP02 D 03720 0074 01 4 00121 LOADRR TSX SYSLDR,4,1 LOAD FORTRAN I/O PACKAGE 9IBS0160 03721 264651635121 BCI 1,FORTRA 9IBS0170 77777 END -1 9IBS0180 BINARY CARD NO. TRA77777 2/07/05 PAGE 1 POST PROCESSOR ASSEMBLY DATA 3722 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM REFERENCES TO DEFINED SYMBOLS 73600 BOTIOP 3734 BOTTOM 3732 DATEBX 2 FINTAP 3730 FLAGBX 134 .CHEXI 135 .MODSW 1 LIBTAP 3731 LINECT 3720 LOADRR 100 7 MBNTAP 10 MCHTAP 5 MINTAP 6 MLSTAP 3 SINTAP 11 SNPTAP 122 SYSACC 114 SYSCEM 155 SYSCK1 156 SYSCK2 120 SYSCOR 144 SYSCRD 102 SYSCUR 102 124 SYSCYD 101 SYSDAT 115 SYSDMP 77777 SYSEND 132 SYSGET 117 SYSIDR 151 SYSIN1 152 SYSIN2 116 SYSIOX 133 SYSJOB 104 SYSKEY 140 SYSLB1 141 SYSLB2 142 SYSLB3 143 SYSLB4 121 SYSLDR 3720 3720 SYSORG 3720 147 SYSOU1 150 SYSOU2 146 SYSPCH 123 SYSPID 106 SYSPOS 153 SYSPP1 154 SYSPP2 145 SYSPRT 103 SYSRET 113 SYSRPT 126 SYSSLD 2/07/05 PAGE 2 POST PROCESSOR ASSEMBLY DATA 105 SYSSWS 1 SYSTAP 127 SYSTCH 100 SYSTRA 100 131 SYSTWT 111 SYSUAV 110 SYSUBC 112 SYSUCW 107 SYSUNI 157 SYSUT1 160 SYSUT2 161 SYSUT3 162 SYSUT4 4 TINTAP 77677 TOPMEM 702 (ACTIV 703 (ACTVX 720 (BCD5R 721 (BCD5X 10000 (CHKU) 741 (CHPSW 724 (CHXAC 750 (CHXSP 717 (CKWAT 746 (COMMD 736 (COMMM 722 (CVPRT 73662 (DATE) 716 (DECVA 715 (DECVD 73645 (DGLD) 73603 (DIAG) 710 (ENBSW 73665 (ENDS) 732 (ETTXI 743 (FDAMT 73660 (FGBX) 747 (IBCDZ 740 (IOXSI 73667 (LBLD) 73652 (LIBT) 73661 (LNCT) 73600 (LOAD) 73666 (LODR) 737 (LTPOS 73644 (MECL) 73664 (MSLN) 704 (NDATA 705 (NDSLX 712 (PAUSE 711 (PAWSX 3733 (PCBK) 73651 (PGCT) 73614 (PNCH) 73611 (PRNT) 2/07/05 PAGE 3 POST PROCESSOR ASSEMBLY DATA 706 (PROUT 707 (PUNCH 40014 (RBEC) 40004 (RBEP) 40010 (RBNC) 40000 (RBNP) 727 (RCHXI 726 (RCTXI 40016 (RDEC) 40006 (RDEP) 40012 (RDNC) 40002 (RDNP) 73622 (REST) 73672 (SCHU) 744 (SDCXI 73643 (SECL) 20010 (SKBC) 20000 (SKBP) 20012 (SKDC) 20002 (SKDP) 1000 (SNAP) 73663 (SNCT) 73617 (STAT) 745 (STCXI 73626 (STDN) 723 (STOPD 713 (STOPX 10003 (SUAV) 10002 (SUNV) 714 (SYMUN 73606 (TAPE) 730 (TCOXI 733 (TEFXI 4000 (TPER) 735 (TRAPS 734 (TRAPX 731 (TRCXI 742 (TRPSW 725 (URRXI 40011 (WBNC) 40001 (WBNP) 40013 (WDNC) 40003 (WDNP) 40015 (WEFC) 40005 (WEFP) 40031 (WROW) NO ERROR IN ABOVE ASSEMBLY. * FORTRAN COMMON I/O PACKAGE IOEX VERSION F0000000 * FAP F0000020 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 1 ABS F0000050 SST IBSYS $F0000070 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 2 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 3 PARAMETERS VARIABLE AT ASSEMBLY TIME F0000960 F0000970 00014 MONIT EQU 12 NUMBER OF CELLS RESERVED FOR MONITOR. F0000980 77677 TOPMEM SYN SYSEND-64 TOP OF MEMORY AVAILABLE TO SYSTEMS F0000990 77677 TOPIOP SYN TOPMEM TOP OF AD INTERIM IOP F0001000 73600 BOTIOP SYN TOPIOP-2111 LOWER LIMIT OF IOP F0001010 73577 TOPTAB SYN BOTIOP-1 TOP OF AVAILABLE TABLE BUFFERS F0001020 03734 BOTTOM SYN SYSORG+MONIT LOAD POINT FOR FORTRAN SYSTEM RECORDS F0001030 03733 (PCBK) SYN BOTTOM-1 OBJCT PROGRAM COMMON BREAK,,PROGRAM BREAK F0001040 03734 (DORG) SYN BOTTOM LOAD POINT FOR DIAGNOSTIC RECORD. F0001050 F0001060 00001 SYSTAP EQU 1 (SYSLB1) FORTRAN SYSTEM TAPE F0001070 00001 LIBTAP EQU 1 (SYSLB1) FORTRAN LIBRARY TAPE F0001080 00002 FINTAP EQU 2 (SYSUT3) INTERMEDIATE TABLE TAPE, FIRST F0001090 00003 SINTAP EQU 3 (SYSUT4) INTERMEDIATE TABLE TAPE, SECOND F0001100 00004 TINTAP EQU 4 (SYSUT1) INTERMEDIATE FORTRAN/FAP TAPE, THIRD F0001110 00005 MINTAP EQU 5 (SYSIN1) MONITOR INPUT TAPE F0001120 00006 MLSTAP EQU 6 (SYSOU1) MONITOR LISTING OUTPUT TAPE F0001130 00007 MBNTAP EQU 7 (SYSPP1) MONITOR BINARY OUTPUT TAPE F0001140 00010 MCHTAP EQU 8 (SYSUT2) MONITOR CHAIN INTERMEDIATE TAPE F0001150 00011 SNPTAP EQU 9 (SYSCK1) SNAP-SHOT TAPE F0001160 F0001170 00020 NTAPE EQU 16 MAXIMUM NUMBER OF LOGICAL TAPES IN SYSTEM F0001180 00004 NCHAN EQU 4 MAXIMUM NUMBER OF CHANNELS IN SYSTEM F0001190 C MUST BE A MULTIPLE OF 2, TABSZ ALSO. F0001200 00120 TABSZ EQU 80 MAXIMUM SIZE OF IOP DICTIONARY F0001210 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 4 LOWER MEMORY MAP F0001230 OF F0001240 IBSYS-FORTRAN F0001250 F0001260 SYSORG WEREIN BCD FLAG FOR SAVING FLAGBOX F0001270 SAVE SI F0001280 MQ F0001290 AC F0001300 QP/XR2,,XR4 F0001310 CONTENTS OF LOC. 0 (25)F0001320 TXI *-1,,XR1 PROGRAM F0001330 TRIGGER STATUS BITS (25)F0001340 FLAGBX F0001350 LINECT LINES THIS JOB,, PAGE NO. THIS F0001420 NOT USED $F0001430 PRCBRK COMMON BREAK,, PROGRAM BREAK F0001440 BOTTOM F0001450 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 5 F0001480 F0001490 F0001500 F0001510 DEFINITIONS OF OPERATION MNEMONICS FOR IOPX F0001520 F0001530 OPERATION RECORD ENDFILE CHECK F0001540 01000 K EQU 512 F0001550 40031 (WROW) EQU 32*K+16+8+1 WRITE ROW BIN IMMEDIATE F0001560 40016 (RDEC) EQU 32*K+8+4+2 READ DECIMAL PERMITTED IMMEDIATE F0001570 40015 (WEFC) EQU 32*K+8+4+1 WRITE ENDFILE IMMEDIATE F0001580 40014 (RBEC) EQU 32*K+8+4 READ BINARY PERMITTED IMMEDIATE F0001590 40013 (WDNC) EQU 32*K+8+2+1 WRITE DECIMAL IMMEDIATE F0001600 40012 (RDNC) EQU 32*K+8+2 READ DECIMAL PROHIBITED IMMEDIATE F0001610 40011 (WBNC) EQU 32*K+8+1 WRITE BINARY IMMEDIATE F0001620 40010 (RBNC) EQU 32*K+8 READ BINARY PROHIBITED IMMEDIATE F0001630 40006 (RDEP) EQU 32*K+4+2 READ DECIMAL PERMITTED LATER F0001640 40005 (WEFP) EQU 32*K+4+1 WRITE ENDFILE LATER F0001650 40004 (RBEP) EQU 32*K+4 READ BINARY PERMITTED LATER F0001660 40003 (WDNP) EQU 32*K+2+1 WRITE DECIMAL LATER F0001670 40002 (RDNP) EQU 32*K+2 READ DECIMAL PROHIBITED LATER F0001680 40001 (WBNP) EQU 32*K+1 WRITE BINARY LATER F0001690 40000 (RBNP) EQU 32*K READ BINARY PROHIBITTED LATER F0001700 20012 (SKDC) EQU 16*K+8+2 SKIP DECIMAL IMMEDIATE F0001710 20010 (SKBC) EQU 16*K+8 SKIP BINARY IMMEDIATE F0001720 BACKSPACE FOR BTT F0001730 20002 (SKDP) EQU 16*K+2 SKIP DECIMAL LATER F0001740 20000 (SKBP) EQU 16*K SKIP BINARY LATER F0001750 BACKSPACE NONE F0001760 10000 (CHKU) EQU 8*K DELAY AND CHECK LAST ACTIVITY ON LOG TAPE F0001770 10003 (SUAV) EQU 8*K+2+1 SET UNIT(S) AVAILABLE $F0001771 10002 (SUNV) EQU 8*K+2 SET UNIT(S) UNAVAILABLE $F0001772 04000 (TPER) EQU 4*K ERROR ON TAPE RECORD FOUND BY COMPILER F0001780 01000 (SNAP) EQU 1*K DUMP MEMORY AND PANEL ON LOG TAPE 9 F0001790 F0001800 CALL FOR TAPE DATA TRANSMIT F0001810 TSX (TAPE),4 F0001820 PZE IOCOM,T1,FLAGS F0001830 (MZE IOCOM,T1,FLAGS PRINT 'COND IGNORD')F0001840 PZE ,,TAPNO OMIT LABEL F0001850 (PZE LABEL,T2,TAPNO CHECK LABEL) F0001860 (MZE LABEL,T2,TAPNO OMIT LABEL CHECK) F0001870 PZE ERRET,T3 PRINT ERROR MESSAGE F0001880 (MZE ERRET,T3 DELET ERROR MESSAGE)F0001890 F0001900 CALL FOR TAPE REPOSITION F0001910 TSX (TAPE),4 F0001920 PZE SKLST,T1,FLAGS F0001930 (MZE SKLST,T1,FLAGS PRINT 'COND IGNORD')F0001940 PZE ,,TAPNO OMIT LABEL F0001950 (PZE LABEL,T2,TAPNO CHECK LABEL) F0001960 (MZE LABEL,T2,TAPNO OMIT LABEL CHECK) F0001970 PZE ERRET,T3 PRINT ERROR MESSAGE F0001980 (MZE ERRET,T3 DELET ERROR MESSAGE)F0001990 F0002000 CALL FOR SNAPSHOT F0002010 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 6 TSX (TAPE),4 F0002020 PZE SNLST,T1,FLAGS F0002030 PZE LABEL,T2,PARNO F0002040 PZE ERRET,T3 (NOT SIGNIFICANT) F0002050 F0002060 F0002070 RETURN AFTER ERROR ON PRIOR ACTIVITY F0002080 TO PRINT ERROR MESSAGE AND CALL MACHINE ERROR RECORD F0002090 TSX (TAPE),4 F0002100 PZE ERROR,T1,FLAGS F0002110 (MZE ERROR,T1,FLAGS PRINT ERROR IGNORED)F0002120 PZE LABEL,T2,TAPNO F0002130 (MZE LABEL,T2,TAPNO RETURN TO CALLER) F0002140 ERRET,T3 (NOT SIGNIFICANT) F0002150 F0002160 CALL FOR CHECK PRIOR ACTIVITY OR FOR CHANGING $F0002170 THE STATUS OF TAPES IN THE AVAILABILITY CHAIN $F0002171 TSX (TAPE),4 F0002180 PZE TAPNO,T1,FLAGS F0002190 (FOR ALL TAPES IF TAPNO,T1 IS ZERO ON $F0002191 A SYSUAV CALL) $F0002192 F0002200 CALL FOR ONLINE PRINT F0002210 TSX (PRNT),4 F0002220 PZE FWORD,,COUNT PROGRAM CONTROL F0002230 (MZE FWORD,,COUNT SINGLE SPACE) F0002240 F0002250 CALL FOR ONLINE PUNCH F0002260 TSX (PNCH),4 F0002270 PZE FWORD,,COUNT ROW BINARY F0002280 (MZE FWORD,,COUNT COLUMN BINARY) F0002290 (MON FWORD,,COUNT HOLLERITH) F0002300 IN COLUMN BINARY PACKAGE ROTATES CONTENTS F0002310 OF 24 WORD ROW BINARY BUFFER IN WHICH THE F0002320 COLUMN BINARY BITS ARE INCLUDED IN 9L F0002330 AND CHECKSUM, AND NO GARBAGE APPEARS ON F0002340 CARD IMAGE. WORD COUNT NOT SIGNIFICANT. F0002350 WORD COUNT MUST BE GREATER THAN ZERO. F0002360 F0002370 CALL TO READ NEXT SYSTEM RECORD F0002380 TSX (LOAD),4,N F0002390 BCI 1,RECNAM (IF N = 1, FOR DISK) F0002400 F0002410 CALL TO DIAGNOSTIC F0002420 TSX ERROR,4 F0002430 . F0002440 . F0002450 ERROR TXI (DIAG),,-NN F0002460 PZE ADDITIONAL F0002470 PZE INFORMATION F0002480 -NN IS ZERO FOR MACHINE ERROR. F0002490 -NN IS A UNIQUE NUMBER ASSOCIATEDF0002500 WITH SOURCE PROGRAM ERROR. F0002510 F0002520 CALL TO SOURCE ERROR RECORD F0002530 F0002540 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 7 TSX (SECL),4 F0002550 F0002560 CALL TO MACHINE ERROR RECORD F0002570 F0002580 TSX (MECL),4 F0002590 F0002600 CALL TO RESTORE MEMORY AND HALT (31)F0002610 F0002620 TSX (DGLD),4 (31)F0002630 F0002640 CALL TO RESTORE CONSOLE F0002650 F0002660 STL (REST)+3 F0002670 NOP *+2 RETURN ADDRESS. F0002680 TRA (REST) F0002690 F0002700 CALL TO SET TAPE DENSITY F0002710 F0002720 TSX (STDN),4 F0002730 *** TAPNO F0002740 F0002750 *** IS PZE FOR HIGH DENSITY. F0002760 *** IS MZE FOR LOW DENSITY. F0002770 F0002780 IOCOM,T1 ORIGIN OF LIST OF NO MORE THAN 5 I/O COMMANDSF0002790 COMMANDS TO TRANSMIT EXACTLY ONE RECORD F0002800 F0002810 SKLST,T1 LOCATION OF CONTROL WORD F0002820 PZE NRECS,,NFILS (FORWARD) F0002830 MZE NRECS,,NFILS (BACKWARD) F0002840 PZE ,,-1 (REWIND) F0002850 MZE ,,-1 (REWIND UNLOAD) F0002860 F0002870 SNLST,T1 ORIGIN OF LIST OF NO MORE THAN 8 PARAMS F0002880 OF THE FORM FWORD,,COUNT TO TAKE SELECTIVEF0002890 DUMPS ON LOG TAPE 9, WHICH WILL BE F0002900 INTERPRETED BY DUMP RECORD ONTO LOG TAPE 6F0002910 F0002920 F0002930 ERROR,T1 LOCATION OF ONE BCD WORD DESCRIBING ERROR F0002940 F0002950 LABEL,T2 LOCATION OF ONE BCD WORD LABEL F0002960 OMITTED IF RECORD IS UNLABELED (I/O TYPE) F0002970 F0002980 TAPNO LOGICAL TAPE NUMBER F0002990 F0003000 PARNO NUMBER OF PARAMETERS IN (SNAP) LIST F0003010 F0003020 ERRET,T3 LOCATION OF ERROR RETURN F0003030 F0003040 FWORD,,COUNT LOCATION OF FIRST WORD,,NUMBER OF WORDS F0003050 (LESS THAN 25) TO BE CONVERTED TO/FROM F0003060 ONE RECORD OF BCD/COL BINARY CARD IMAGES F0003070 OR (LESS THAN -1) TO BE WRITTEN/READ F0003080 DIRECTLY IN BINARY F0003090 F0003100 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 8 F0003110 FLAGS FLAGS IN DECREMENT FIELD AS LISTED BELOW F0003120 F0003130 FLAGS IN DECREMENT FIELD (K = 512) F0003140 F0003150 MNEMONIC EQUIVALENCES FOR I/O FLAGS F0003160 F0003170 40000 (DATA) SYN 32*K BIT 3 TAPE DATA TRANSMIT F0003180 20000 (SKIP) SYN 16*K 4 TAPE REPOSITION F0003190 (CHKU) 8*K 5 CHECK PRIOR ACTIVITY F0003200 (TPER) 4*K 6 ERROR ON PRIOR ACTIVITY F0003210 02000 ONLNX SYN 2*K 7 ON-LINE DATA TRANSMIT (INTERNAL) F0003220 02001 SYN 2*K+1 PUNCH F0003230 02003 SYN 2*K+3 PRINT F0003240 K 8 NOT USED F0003250 +256 9 NOT USED F0003260 +128 10 NOT USED F0003270 +64 11 NOT USED F0003280 +32 12 NOT USED F0003290 (WROW) +16 13 TAPE WRITE OF ROW BINARY CARD F0003300 00010 (...C) SYN +8 14 TAPE DATA TRANSMIT DELAY AND CHECK F0003310 TAPE REPOSITION DELAY AND CHECK F0003320 00004 (..E.) SYN +4 15 TAPE DATA READ PERMIT EOF F0003330 WRITE WRITE EOF F0003340 00002 (.D..) SYN +2 16 TAPE DATA TRANSMIT DECIMAL F0003350 TAPE REPOSITION DECIMAL F0003360 00001 (W...) SYN +1 17 TAPE DATA TRANSMIT WRITE F0003370 F0003380 F0003390 F0003400 IF P1 AND/OR P2 IS ADDRS,T1,-1 F0003410 P1 AND/OR P2 ARE FOUND (INDIRECTLY) IN LOC(ADDRS,T1) F0003420 THIS INDIRECT FEATURE IS UNLIMITED IN DEPTH F0003430 THIS INDIRECT FEATURE MAY NOT BE USED FOR ERRET,T3 F0003440 F0003450 F0003460 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 9 F0003480 LISTING CONVENTIONS F0003490 F0003500 00001 C EQU 1 SYMBOLIC TAG FOR HISTORIC CHAN. REFERENCE F0003510 00002 T EQU 2 SYMBOLIC TAG FOR CURRENT LOGICAL TAPENO F0003520 00002 H EQU 2 SYMBOLIC TAG FOR HISTORIC LOGICAL TAPENO F0003530 F0003540 USAGE OF ACTUAL TAGS INDICATES OTHER FUNCTF0003550 F0003560 THE PUNCTUATION ''..'' IS AN INTERROGATION POINT F0003570 F0003580 0 00001 1 60000 QZE OPSYN PZE PSEUDO-OP WHICH MAY BE PZE OR MZE F0003590 F0003600 000001 LODPT BOOL 1 BEGINNING OF TAPE MNEMONIC. F0003610 000004 EOFIL BOOL 4 END OF FILE MNEMONIC. F0003620 000010 REDUN BOOL 10 REDUNDANCY MNEMONIC. F0003630 000100 WMODE BOOL 100 WRONG MODE READ MNEMONIC. F0003640 000002 EOTAP BOOL 2 END OF TAPE MNEMONIC F0003650 000200 BOFBIT BOOL 200 BEGINNING OF FILE MNEMONIC $F0003651 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 10 MNEMONIC EQUIVALENCES FOR NON-DATA SELECT CALLS F0003670 F0003680 00000 .RDC. EQU 0 RESET DATA CHANNEL (NOP) F0003690 00001 .SDL. EQU 1 SET DENSITY LOW F0003700 00002 .SDH. EQU 2 SET DENSITY HIGH F0003710 00003 .REW. EQU 3 REWIND F0003720 00004 .RUN. EQU 4 REWIND AND UNLOAD F0003730 00005 .BSR. EQU 5 BACKSPACE RECORD F0003740 00006 .BSF. EQU 6 BACKSPACE FILE F0003750 00007 .WEF. EQU 7 WRITE END OF FILE F0003760 F0003770 F0003780 MNEMONIC EQUIVALENCES FOR SPR EXIT HUBS F0003790 F0003800 01000 EJECT EQU 1*512 SPR EXIT FOR PAGE EJECT F0003810 04000 DBLSP EQU 4*512 SPR EXIT FOR DOUBLE SPACE F0003820 11000 SUPRS EQU 9*512 SPR EXIT FOR SPACE SUPPRESS F0003830 12000 CLOCK EQU 10*512 SPR EXIT FOR PRINTING CLOCK F0003840 F0003850 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 11 INITIALIZATION OF IOP INITIALIZATION OF IOP VIA SYSUN1 AND SYSUAV TABLES F0003870 F0003880 F0003890 73105 ORG BOTIOP-300-15 $F0003900 BINARY CARD NO. 9F000000 73105 264651635121 BCI 1,FORTRAN SYSTEM $EXECUTE NAME, N IGNORED. F0003910 F0003920 00100 ORG SYSTRA F0003930 BINARY CARD NO. 9F000001 00100 0020 00 0 73106 TRA INITT GO INITIALIZE IOPX. F0003940 F0003950 73106 ORG BOTIOP-300-14 $F0003960 F0003970 BINARY CARD NO. 9F000002 73106 -0500 00 0 03720 INITT CAL BOTTOM-12 IS THIS OLD HAT.. F0003980 73107 0322 00 0 73451 ERA WEMES . F0003990 73110 0100 00 0 73125 TZE INITA YES. F0004000 73111 0774 00 1 67165 AXT INITT-SYSORG-1,1 NO, BRAINWASH $F0004010 73112 0600 00 1 73105 STZ INITT-1,1 $F0004020 73113 2 00001 1 73112 TIX *-1,1,1 . F0004030 73114 -0500 00 0 00102 CAL SYSCUR $EXECUTE WHAT $F0004031 73115 0322 00 0 73517 ERA FAPCD $F0004032 73116 -0100 00 0 73121 TNZ *+3 IS IT IBSFAP $F0004033 73117 0020 00 0 73534 TRA FCOUNT YES (22)F0004034 73120 -0602 60 0 73660 ORS* (FGBX) IN (FGBX) $F0004035 73121 0500 00 0 73105 CLA INITT-1 NO - SET FORTRA IN SYSCUR $F0004036 73122 0601 00 0 00102 STO SYSCUR $F0004037 73123 -0500 00 0 73451 CAL WEMES SET BCD MESSAGE FOR FUTURE INTERROGATION. F0004040 73124 0020 00 0 73525 TRA INITS $F0004050 73125 0534 00 1 00106 INITA LXA SYSPOS,1 WHICH LIBRARY TAPE IS IT $F0004060 73126 1 00137 1 73127 TXI *+1,1,SYSLB1-1 COMPUTE SYSUNI ENTRY $F0004070 73127 0634 00 1 77672 SXA TAPNO-1,1 INITIALIZE LOGICAL TAPE 1 $F0004080 73130 -0500 00 0 73452 CAL DISKF PREPARE TO SET DISK BIT $F0004090 73131 0634 00 1 73132 SXA *+1,1 SET SYSUNI LOCATION $F0004100 73132 0441 60 0 00000 LDI* ** GET UCB WORD ONE $F0004101 73133 -0056 00 020000 LNT 020000 IS THIS 7909 CHANNEL $F0004110 BINARY CARD NO. 9F000003 73134 0767 00 0 00013 ALS 11 NO, LEAVE FLAGBOX ALONE $F0004120 73135 -0602 60 0 73660 ORS* (FGBX) SET FLAGBOX $F0004130 73136 -0534 00 1 77673 LXD TAPNO,1 NUMBER OF LOGICAL TAPES $F0004140 73137 -0634 00 1 74540 SXD TPNRT,1 TO INITIALIZATION TAPE COUNT $F0004150 73140 -0056 00 020000 LNT 020000 IS SYSTEM ON DISK.. F0004160 73141 0020 00 0 73157 TRA INIT0-2 NO, INITIALIZE TAPES $F0004170 73142 -0500 00 0 73512 CAL OVLY1 YES, OVERLAY NECESSARY INSTRUCTIONS. F0004180 73143 0602 00 0 76737 SLW SECL0 F0004190 73144 -0500 00 0 73513 CAL OVLY2 F0004200 73145 0602 00 0 76741 SLW MECL0 F0004210 73146 -0500 00 0 73514 CAL OVLY3 F0004220 73147 0602 00 0 76742 SLW MECL0+1 FOR DISK ENTRY TO SER/MER. F0004230 73150 0020 00 0 73161 TRA INIT0 INITIALIZE REMAINING TAPES $F0004231 $F0004240 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 12 INITIALIZATION OF IOP 73151 DUP 1,6 NOT EXECUTED $F0004250 73151 0 00000 0 00000 PZE $F0004251 73152 0 00000 0 00000 73153 0 00000 0 00000 73154 0 00000 0 00000 73155 0 00000 0 00000 73156 0 00000 0 00000 73157 0560 00 0 74046 LDQ DIAG6+1 SYSTEM ON TAPE, DO NOT $F0004257 73160 -0620 00 0 74545 SLQ DISKT GO TO SYSLDR FOR LIBRARY $F0004260 73161 -0520 00 1 77673 INIT0 NZT TAPNO,1 DOES INSTALLATION WANT F0004270 BINARY CARD NO. 9F000004 73162 2 00001 1 73161 TIX *-1,1,1 THIS LOGICAL TAPE.. F0004280 73163 0441 00 1 77673 LDI TAPNO,1 IS THIS TAPE TO BE FOUND F0004290 73164 -0054 00 377777 LFT 377777 IN SYSUAV CHAIN.. F0004300 73165 0020 00 0 73337 TRA SYSVL *YES, FIND IT. F0004310 73166 -0500 60 1 77673 CAL* TAPNO,1 NO, FIND IN SYSUNI. F0004320 73167 0044 00 0 00000 PAI TEST SYSUNI ENTRY $F0004330 73170 0054 00 077777 RFT 077777 IS ADDRESS ZERO.. $F0004331 73171 0020 00 0 73174 TRA INIT1 NO $F0004332 73172 3 00007 1 73174 TXH *+2,1,7 YES, BUT IS IT LOGICAL TAPE 8.. F0004340 73173 0020 00 0 73310 TRA UNAVL *NO, ADD IT TO THE LIST. F0004350 73174 0621 00 1 77673 INIT1 STA TAPNO,1 NON-ZERO, IF UNIT EXISTS. F0004360 73175 0361 00 0 73515 ACL L(03) SAVE LOGICAL TAPE NUMBER IN UCB WORD 4 $F0004370 73176 0621 00 0 73177 STA *+1 F0004380 73177 -0634 00 1 00000 SXD **,1 F0004390 73200 3 00007 1 73214 TXH INIT2,1,7 DO NOT SET DENSITY OF LOG TAPE 8-16 F0004400 73201 0441 60 1 77673 LDI* TAPNO,1 IS THIS FUNCTION ON 7909 CHANNEL.. F0004410 73202 -0054 00 020000 LFT 020000 . F0004420 73203 3 00001 1 73423 TXH SYSDK,1,1 *YES, QUIT (BUT LET SYSTEM BE ON DISK). F0004430 73204 0534 00 4 77673 LXA TAPNO,4 DOES INSTALLATION WISH F0004440 73205 3 00000 4 73214 TXH INIT2,4,0 TAPE DENSITIES SET VIA SYSUNI.. F0004450 73206 0774 00 4 00002 AXT .SDH.,4 YES, ASSURE CORRECT TAPE FUNCTION DENSITY F0004460 73207 -0760 00 0 00001 PBT HIGH.. F0004470 BINARY CARD NO. 9F000005 73210 0774 00 4 00001 AXT .SDL.,4 LOW F0004480 73211 -0634 00 4 73213 SXD *+2,4 . F0004490 73212 0074 00 4 00704 TSX (NDATA,4 . F0004500 73213 0 00000 1 77673 PZE TAPNO,1,** FORMAT = L(UCB),,SDNH/SDNL F0004510 73214 2 00001 1 73161 INIT2 TIX INIT0,1,1 CONTINUE DEFINITIONS FOR ALL UNITS. F0004520 73215 0441 60 0 77666 LDI* TAPNO-5 DO NOT ALLOW SYSCRD TO BE F0004530 73216 -0054 00 000100 LFT 100 SYSIN1. F0004540 73217 0020 00 0 73416 TRA SYSCD *GOOD GRIEF, IT IS. F0004550 F0004560 73220 0774 00 1 77775 AXT -3,1 DEFINE L(UCB) FOR F0004570 73221 0500 60 1 77673 INIT3 CLA* TAPNO,1 READER/PRINTER/PUNCH F0004580 73222 0621 00 1 77673 STA TAPNO,1 NON-ZERO, IF SYSUNI FUNCTION ASSIGNED. F0004590 73223 1 00001 1 73224 TXI *+1,1,1 F0004600 73224 3 00001 1 73221 TXH INIT3,1,1 CONTINUE DEFINITIONS FOR ON-LINE UNITS. F0004610 73225 -0500 60 0 77675 CAL* TAPNO+2 PICK UP CHANNEL OF ON-LINE PUNCH F0004620 73226 -0320 00 0 77154 ANA DCMSK AND INITIALIZE CHANNEL INSTRUCTIONS. F0004630 73227 0771 00 0 00022 ARS 18 F0004640 73230 0621 00 0 75732 STA PUNSL F0004650 73231 0771 00 0 00011 ARS 9 F0004660 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 13 INITIALIZATION OF IOP 73232 0737 00 1 00000 PAC ,1 F0004670 73233 1 00001 1 73234 TXI *+1,1,1 F0004680 73234 0560 60 0 00727 LDQ* (RCHXI F0004690 73235 -0620 00 0 76006 SLQ PNCH5 F0004700 BINARY CARD NO. 9F000006 73236 -0500 00 0 76014 CAL QPNC3 F0004710 73237 -0620 00 0 76014 SLQ QPNC3 F0004720 73240 -0602 00 0 76014 ORS QPNC3 F0004730 73241 -0500 60 0 00727 CAL* (RCHXI F0004740 73242 -0501 00 0 73516 ORA D(400 F0004750 73243 -0130 00 0 00000 XCL F0004760 73244 -0620 00 0 75767 SLQ PUNLL F0004770 73245 0560 60 0 00730 LDQ* (TCOXI F0004780 73246 -0620 00 0 75711 SLQ PDELY F0004790 F0004800 73247 -0520 00 0 73106 INIT4 NZT INITT ANY UNAVAILABLE SYSUNI FUNCTIONS.. F0004810 73250 0020 00 0 73321 TRA UNVLF YES. F0004820 73251 -0534 00 2 00121 LXD SYSLDR,2 SET UP DELAY LOOP FOR LOAD ROUTINE. F0004830 73252 1 00001 2 73253 TXI *+1,2,1 . F0004840 73253 0634 00 2 73763 SXA LOADD,2 . F0004850 73254 0774 00 0 00000 AXT 0,0 (NOT USED) (33)F0004860 PREPARE FOR POSSIBLE SYSOU1/2 SWITCH F0004870 73255 0500 00 0 00147 CLA SYSOU1 IS SYSOU1 IDENTICAL WITH SYSOU2.. F0004880 73256 -0320 00 0 77153 ANA ADMSK . F0004890 73257 0100 00 0 73276 TZE INIT5 *SYSOU1 DOES NOT EXIST (HMMM...) F0004900 73260 0621 00 0 77137 STA ERASA . F0004910 73261 0500 00 0 00150 CLA SYSOU2 . F0004920 73262 -0320 00 0 77153 ANA ADMSK . F0004930 73263 0100 00 0 73276 TZE INIT5 *WHO KNOWS, SYSOU2 DOES NOT EXIST. F0004940 BINARY CARD NO. 9F000007 73264 0322 00 0 77137 ERA ERASA . F0004950 73265 0100 00 0 73276 TZE INIT5 *YES, RESIGN THYSELF. F0004960 73266 -0500 00 0 00150 CAL SYSOU2 NO, PREPARE FOR AUTOMATIC F0004970 73267 0774 00 4 77777 AXT -1,4 SWITCH TO SYSOU2 IN CASE OF EOT, RTT. F0004980 73270 -0634 00 4 76441 SXD IODGH,4 . F0004990 73271 -0634 00 0 76453 ZSD IODGI+4 . F0005000 73272 0774 00 4 00006 AXT 6,4 MOVE THE NEW SWITCH MESSAGE $F0005010 73273 -0500 00 4 73475 CAL SYSO2+6,4 $F0005020 73274 0602 00 4 76465 SLW IOSWT+6,4 $F0005030 73275 2 00001 4 73273 TIX *-2,4,1 . F0005040 73276 0774 00 4 73767 INIT5 AXT LOAD1,4 SET TRANSFER POINT F0005050 73277 0634 00 4 00100 SXA SYSTRA,4 FOR ALL SYSTEM RECORDS. F0005060 D 73300 0074 01 4 73600 TSX (LOAD),4,1 *INITIALIZATION COMPLETED, (29)F0005070 73301 112600010000 BCI 1,9F0100 CALL IN TAPE POSITIONER (29)F0005080 73302 DUP 1,6 (29)F0005090 73302 0 00000 0 00000 PZE PATCH SPACE (29)F0005100 73303 0 00000 0 00000 73304 0 00000 0 00000 73305 0 00000 0 00000 73306 0 00000 0 00000 73307 0 00000 0 00000 F0005150 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 14 INITIALIZATION OF IOP F0005170 F0005180 ROUTINE TO ACCUMULATE UNAVAILABLE SYSUNI FUNCTIONS F0005190 F0005200 73310 0600 00 0 73106 UNAVL STZ INITT FLAG UNAVAILABLE SYSUN1 FUNCTIONS. F0005210 73311 0774 00 4 77770 AXT -8,4 (LIMITED TO FOUR) F0005220 BINARY CARD NO. 9F000008 73312 1 00002 4 73313 TXI *+1,4,2 BUMP STRING POSITION F0005230 73313 0634 00 4 73311 SXA *-2,4 AND SAVE FOR NEXT ENTRY. F0005240 73314 -0500 00 1 77200 CAL SYSFC,1 ENTER FUNCTION IN UNAVAILABLITY STRING. $F0005250 73315 0602 00 4 73325 SLW STRNG,4 $F0005260 73316 -3 00000 4 73321 TXL UNVLF,4,0 EXCEED MAXIMUM MISSING LIST YET $F0005270 73317 0600 00 1 77673 STZ TAPNO,1 FLAG UNAVAILABLE. F0005280 73320 0020 00 0 73214 TRA INIT2 *RETURN FOR REMAINING TAPES. F0005290 F0005300 ROUTINE TO REQUEST OPERATOR CLARIFICATION OF SYSUNI F0005310 F0005320 73321 0074 00 4 00706 UNVLF TSX (PROUT,4 PRINT ON-LINE REQUEST FOR F0005330 73322 0 00000 0 00001 PZE 1 F0005340 73323 0 00012 0 73325 PZE STRNG,,10 F0005350 73324 0020 00 0 73430 TRA INTRP *FORCE INTERRUPT OF SYSTEM. F0005360 F0005370 73325 606060606060 STRNG BCI 8, F0005390 73335 606445216521 BCI 2, UNAVAILABLE. F0005400 F0005410 F0005420 ROUTINE TO LOCATE REQUIRED LOGICAL TAPE IN SYSUAV CHAINS F0005430 73337 -0046 00 0 00000 SYSVL PIA COMPUTE CHANNEL AND RELATIVE F0005440 BINARY CARD NO. 9F000009 73340 -0320 00 0 77154 ANA DCMSK TAPE NUMBER FOR THIS SYSUAV TAPE. F0005450 73341 0771 00 0 00022 ARS 18 F0005460 73342 0621 00 0 73354 STA SYSV2 . F0005470 73343 -0057 00 777777 RIL 777777 . F0005480 73344 -0046 00 0 00000 PIA . F0005490 73345 0767 00 0 00003 ALS 3 . F0005500 73346 0622 00 0 73351 STD SYSV1 . F0005510 73347 -0500 00 0 00111 CAL SYSUAV LOCATE THE BEGINNING OF THE F0005520 73350 0737 00 2 00000 PAC ,2 SYSUAV AVAILABILITY CHAIN. F0005530 73351 2 00000 2 73352 SYSV1 TIX *+1,2,** BUMP TO REQUIRED CHANNEL POINTER. F0005540 73352 0500 00 2 00000 CLA 0,2 . F0005550 73353 0100 00 0 73400 TZE SYSV3 *NOTHING AVAILABLE ON THIS CHANNEL. F0005560 73354 0774 00 4 00000 SYSV2 AXT **,4 BUMP TO PROPER TAPE. F0005570 73355 0737 00 2 00000 PAC ,2 . F0005580 73356 0500 00 2 00000 CLA 0,2 . F0005590 73357 -3 00000 2 73400 TXL SYSV3,2,0 IS THIS REALLY A TAPE IN CHAIN.. F0005600 73360 2 00001 4 73355 TIX *-3,4,1 YES, CONTINUE ON DOWN THE CHAIN. F0005610 73361 0441 00 2 00000 LDI 0,2 CHECK AVAILABILITY BIT. F0005620 73362 -0056 00 600000 LNT 600000 IS UNIT DETACHED FROM CHANNEL $F0005630 73363 0020 00 0 73365 TRA *+2 NO, MAYBE WE CAN USE IT $F0005640 73364 0020 00 0 73400 TRA SYSV3 YES, FORGET ABOUT IT $F0005650 73365 -0054 00 040000 LFT 40000 IS UNIT RESERVED $F0005660 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 15 INITIALIZATION OF IOP BINARY CARD NO. 9F000010 73366 0020 00 0 73403 TRA SYSV4 YES, MENTION IT $F0005670 73367 -0054 00 020000 LFT 20000 IS UNIT ON 7909 CHANNEL $F0005680 73370 0020 00 0 73405 TRA SYSV5 YES, MENTION IT $F0005690 73371 -0057 00 600000 RIL 600000 MAKE AVAILABLE AND RESET $F0005700 73372 0604 00 2 00000 STI 0,2 THE NO-REPOSITIONING FLAG $F0005710 73373 -0500 00 0 73533 CAL MZERO INDICATE WE DISTURBED $F0005720 73374 -0602 00 0 00133 ORS SYSJOB THE AVAILABILITY CHAIN $F0005730 73375 0754 00 2 00000 PXA ,2 COMPUTE UCB LOCATION FOR $F0005740 73376 -0400 00 0 73375 SBM *-1 STA IN TAPNO $F0005750 73377 0020 00 0 73401 TRA *+2 F0005760 73400 -0754 00 0 00000 SYSV3 ZAC DELETE UCB REFERENCE. F0005770 73401 0600 00 1 77673 STZ TAPNO,1 CLEANSE IOPU ENTRY. F0005780 73402 0020 00 0 73174 TRA INIT1 *ENTER THIS TAPE L(UCB) IN IOPU (MAY BE 0) F0005790 73403 -0500 00 0 73511 SYSV4 CAL SYSVR SET RESERVE UNIT MESSAGE. F0005800 73404 0020 00 0 73406 TRA *+2 F0005810 73405 -0500 00 0 73440 SYSV5 CAL SYSVD SET DISK UNIT TROUBLE MESSAGE. F0005820 73406 0602 00 0 73445 SLW SYSVM+4 . F0005830 73407 0754 00 1 00000 PXA ,1 CONVERT LOGICAL TAPE NUMBER. F0005840 73410 0074 00 4 00716 TSX (DECVA,4 . F0005850 73411 -0600 00 0 73443 STQ SYSVM+2 F0005860 73412 0074 00 4 00706 TSX (PROUT,4 NOTIFY OPERATOR IN PASSING. F0005870 73413 0 00000 0 00001 PZE 1 . F0005880 BINARY CARD NO. 9F000011 73414 0 00010 0 73441 PZE SYSVM,,8 . F0005890 73415 0020 00 0 73400 TRA SYSV3 *RETURN. F0005900 F0005910 REFUSE CARD READER INPUT F0005920 73416 0074 00 4 00706 SYSCD TSX (PROUT,4 LET OPERATOR KNOW HOW WE FEEL ABOUT IT. F0005930 73417 0 00000 0 00002 PZE 2 . F0005940 73420 -0 00004 0 73453 MZE SYSDM,,4 F0005950 73421 0 00003 0 73464 PZE CARDM,,3 $F0005960 73422 0020 00 0 73430 TRA INTRP *FORCE INTERRUPT OF SYSTEM. F0005970 F0005980 REFUSE DISK ASSIGNMENT F0005990 73423 0074 00 4 00706 SYSDK TSX (PROUT,4 *NOTIFY OPERATOR OF ILLEGAL SYSUNI DISK. F0006000 73424 0 00000 0 00003 PZE 3 . F0006010 73425 -0 00004 0 73453 MZE SYSDM,,4 . F0006020 73426 -0 00001 1 77200 MZE SYSFC,1,1 . F0006030 73427 0 00005 0 73457 PZE SYSDM+4,,5 $F0006040 F0006050 INTERRUPT ROUTINE F0006060 73430 0074 00 4 00706 INTRP TSX (PROUT,4 READY SENSE SWITCH 1 AND SYSCRD... F0006070 73431 0 00000 0 00001 PZE 1 . F0006080 73432 0 00014 0 73475 PZE SYSSW,,12 $F0006090 73433 0074 00 4 00712 TSX (PAUSE,4 ...THAT REFRESHES. F0006100 73434 0600 00 0 03720 STZ BOTTOM-12 WE'RE OUT. F0006110 73435 0500 00 0 73524 CLA IBSNXT TELL IBSYS TO SKIP TO $F0006120 73436 0601 00 0 00132 STO SYSGET NEXT $JOB $F0006130 73437 0020 00 0 00103 TRA SYSRET AND GIVE UP $F0006140 73440 243162426060 SYSVD BCI 1,DISK ILLEGAL DISK REFERENCE... F0006150 73441 434627312321 SYSVM BCI 8,LOGICAL TAPE NNNNN IS XXXXX - CAN'T BE USED. F0006160 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 16 INITIALIZATION OF IOP BINARY CARD NO. 9F000012 F0006170 73451 662551253145 WEMES BCI 1,WEREIN FLAG TO INDICATE THAT THIS ENTRY TO F0006180 INITT IS NOT DUE TO $EXECUTE CARD. F0006190 73452 -0 00100 0 00000 DISKF MZE ,,64 MONITOR AND DISK FLAGS FOR FLAGBX. F0006200 F0006210 73453 602646516351 SYSDM BCI 4, FORTRAN CANNOT ACCEPT F0006220 73457 602664452363 BCI 5, FUNCTION ON 7909 CHANNEL. $F0006230 73464 603145476463 CARDM BCI 3, INPUT ON SYSCRD. $F0006240 73467 605362663163 SYSO2 BCI 6, $SWITCH SYSOU1,SYSOU2 SIMULATED. $F0006250 BINARY CARD NO. 9F000013 73475 626321516360 SYSSW BCI 6,START WILL SKIP TO $JOB. SW1 MAY BE $F0006260 73503 606462252460 BCI 6, USED WITH $RESTART,ETC., IN SYSCRD. $F0006261 73511 512562516524 SYSVR BCI 1,RESRVD UNIT IS RESERVED $F0006262 73512 -0500 00 0 76766 OVLY1 CAL LSECL+1 F0006270 73513 -0500 00 0 76767 OVLY2 CAL LSECL+2 F0006280 73514 0602 00 0 76766 OVLY3 SLW LSECL+1 F0006290 73515 0 00000 0 00003 L(03) PZE 3 F0006300 BINARY CARD NO. 9F000014 73516 0 00400 0 00000 D(400 PZE ,,256 MASK FOR LCHX FOR ON-LINE PUNCH. F0006310 73517 312262262147 FAPCD BCI 1,IBSFAP $F0006311 73520 +000000000004 FAPBT OCT 4 $F0006312 73521 0 00000 0 00000 PZE PATCH SPACE (29)F0006320 73522 0 00000 0 00000 PZE PATCH SPACE (29)F0006321 73523 0 00000 0 00000 PZE PATCH SPACE (29)F0006322 73524 312262456763 IBSNXT BCI 1,IBSNXT TO SKIP TO $JOB $F0006323 73525 0602 00 0 03720 INITS SLW BOTTOM-12 $F0006324 73526 0560 00 0 00133 LDQ SYSJOB $F0006325 73527 0162 00 0 73125 TQP INITA IS SYSJOB PLUS $F0006326 73530 -0500 00 0 77162 CAL L(08) NO,SET BIT IN FLAGBOX $F0006327 73531 -0602 60 0 73660 ORS* (FGBX) FOR SYSUAV RESTORATION $F0006328 73532 0020 00 0 73125 TRA INITA $F0006329 73533 -0 00000 0 00000 MZERO MZE 0 USED TO SET SYSJOB $F0006330 73534 -0535 00 4 00121 FCOUNT LDC SYSLDR,4 -L(UCB) FOR LIBRARY UNIT (29)F0006340 73535 -0500 00 4 00002 CAL 2,4 PICK UP UCB WORD 3, THEN ADJUST RECORD(29)F0006341 73536 0361 00 0 77152 ACL TGADD AND FILE COUNT,AS IBSFAP LOADS FORTRA (29)F0006342 73537 0441 00 4 00000 LDI 0,4 DO NOT DO SO (29)F0006343 73540 -0056 00 020100 LNT 020100 IF ON DISK (29)F0006344 73541 0602 00 4 00002 SLW 2,4 (29)F0006345 73542 0500 00 0 73520 CLA FAPBT SET BIT 33 OF FLAGBOX (22)F0006346 73543 0020 00 0 73120 TRA INITA-5 (22)F0006347 F0006350 73544 IPTCH SYN * PATCH SPACE FROM HERE TO (LOAD) $F0006360 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 17 TRANSFER VECTOR COMMON TRANSFER VECTOR AND TAPE I/O ROUTINES F0006380 F0006390 F0006400 ENTRY POINTS F0006410 F0006420 73600 ORG BOTIOP F0006430 BINARY CARD NO. 9F000015 73600 0020 00 0 73756 (LOAD) TRA LOAD0 CALLER TO READ SYSTEM TAPE. F0006440 73601 0 00000 0 77125 PZE DGLD3 LOCATION OF FORTRAN RECORD NUMBER FOR DIAGF0006450 73602 0761 00 0 00000 NOP F0006460 F0006470 73603 -0625 00 0 73730 (DIAG) STL IOSVX SET RETURN FROM CHANNEL SAVER ROUTINE F0006480 73604 0761 00 0 74007 NOP DIAG0 F0006490 73605 0020 00 0 73713 TRA IOSAV *SAVE ALL REGISTERS F0006500 F0006510 73606 -0625 00 0 73730 (TAPE) STL IOSVX SET RETURN FROM CHANNEL SAVER ROUTINE F0006520 73607 0761 00 0 74072 NOP TAPS0 F0006530 73610 0020 00 0 73713 TRA IOSAV *SAVE ALL REGISTERS F0006540 F0006550 73611 -0625 00 0 73730 (PRNT) STL IOSVX SET RETURN FROM CHANNEL SAVER ROUTINE F0006560 73612 0761 00 0 75613 NOP PRNT0 F0006570 73613 0020 00 0 73713 TRA IOSAV *SAVE ALL REGISTERS F0006580 F0006590 73614 -0625 00 0 73730 (PNCH) STL IOSVX SET RETURN FROM CHANNEL SAVER ROUTINE F0006600 73615 0761 00 0 75700 NOP PNCH0 F0006610 73616 0020 00 0 73713 TRA IOSAV *SAVE ALL REGISTERS F0006620 F0006630 73617 0774 00 1 77452 (STAT) AXT TERST,1 LOAD ORIGIN OF STATISTICS TABLE AND F0006640 73620 0774 00 2 77673 AXT TAPNO,2 UNIT TABLE. F0006650 73621 0020 00 4 00001 TRA 1,4 F0006660 F0006670 73622 -0625 00 0 77120 (REST) STL DGLD2 RESTORE CONSOLE AND REGISTERS F0006680 73623 0761 00 0 73625 NOP *+2 FROM DIAGNOSTIC SAVE ROUTINE. F0006690 73624 0020 00 0 77075 TRA DGLD0 *RESTORE. F0006700 73625 0020 60 0 00000 TRA* ** *RETURN TO CALLER. F0006710 F0006720 BINARY CARD NO. 9F000016 73626 0634 00 4 73641 (STDN) SXA STDNX,4 SAVE LINKAGE. F0006730 73627 0500 00 4 00001 CLA 1,4 HIGH OR LOW DENSITY.. F0006740 73630 0774 00 4 00001 AXT .SDL.,4 F0006750 73631 -0120 00 0 73633 TMI *+2 MINUS 1,4 SETS DENSITY LOW. F0006760 73632 0774 00 4 00002 AXT .SDH.,4 F0006770 73633 -0634 00 4 73640 SXD SETDN,4 SAVE DENSITY SPECIFICATION. F0006780 73634 0737 00 4 00000 PAC ,4 COMPUTE L(UCW) POINTER F0006790 73635 2 00105 4 73636 TIX *+1,4,-TAPNO F0006800 73636 0634 00 4 73640 SXA SETDN,4 F0006810 73637 0074 00 4 00704 TSX (NDATA,4 *NON-DATA SELECT TO SET DENSITY F0006820 73640 0 00000 0 00000 SETDN PZE **,,** FORMAT= PZE L(UCW),,SDNH/SDNL F0006830 73641 0774 00 4 00000 STDNX AXT **,4 RETURN F0006840 73642 0020 00 4 00002 TRA 2,4 *TO CALLER. F0006850 F0006860 73643 0021 00 0 76737 (SECL) TTR SECL0 CALLER TO SOURCE ERROR RECORD. F0006870 F0006880 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 18 TRANSFER VECTOR 73644 0021 00 0 76741 (MECL) TTR MECL0 CALLER TO MACHINE ERROR RECORD. F0006890 F0006900 73645 0021 00 0 77064 (DGLD) TTR DGLDH RESTORE MEMORY,REGISTERS,CONSOLE,HALT (31)F0006910 73646 0 00000 0 00000 PZE SPACE FOR AN F0006920 73647 0 00000 0 00000 PZE ADDITIONAL F0006930 73650 0 00000 0 00000 PZE ENTRY POINT. F0006940 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 19 MONITOR AND FLAG CELLS PARAMETERS VARIABLE AT EDIT TIME F0006960 73651 0 00070 0 00000 (PGCT) PZE 0,,56 MAXIMUM NUMBER OF LINES PER PAGE F0006970 (EXCLUDING HEADING)(NON-ZERO ADDRESS RESTRF0006980 73652 0 00001 0 00000 (LIBT) PZE ,,LIBTAP LIBRARY ON LOGICAL TAPE 1 (SYSLB1) F0006990 73653 +000000000000 OCT ,,,, SPACE FOR ADDITIONAL PARAMETERS F0007000 BINARY CARD NO. 9F000017 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 20 MONITOR AND FLAG CELLS MONITOR COMMUNICATIONS REGION F0007020 F0007030 73660 0 00000 0 03730 (FGBX) PZE BOTTOM-4 LOCATION OF MONITOR FLAGS F0007040 F0007050 400000000000 MONITOR CONTROL F0007060 010000000000 JOB NOT PRECEDED BY EOF (26)F0007065 000100000000 SYSLB1 IS ON DISK F0007070 000002000000 CHAIN JOB F0007080 000001000000 CHAIN JOB-BSS CNTRL IN CORESF0007090 000000400000 DEBUG FOR THIS JOB F0007100 000000200000 BINARY INPT EXISTS ON MBNITPF0007110 000000100000 XEQ FOLLOWS THIS COMPILE F0007120 000000000200 XEQ FOLLOWS THIS JOB F0007130 000000000010 LEAVE SYSJOB MINUS $F0007138 000000000004 MODE IS IBSFAP $F0007139 000000000002 SNAP-SHOTS EXIST F0007140 000000000001 TAPE STATISTICS OUTPUT F0007150 SYSTEM TAPE SPACERS $F0007160 000000000000 SPACE SYSTEM TO SIGN-ON $F0007161 000010000000 SPACE SYSTEM TO SOURCE ERR $F0007162 000020000000 SPACE SYSTEM TO MACH. ERR. $F0007163 000040000000 SPACE SYSTEM TO DUMP $F0007164 $F0007165 F0007170 73661 0 00000 0 03731 (LNCT) PZE BOTTOM-3 LOCATION OF CUMULATIVE LINES OUTPUT. F0007180 73662 0 00000 0 00000 (DATE) PZE FORTRAN DATE CELL $F0007190 73663 0 00000 0 00000 (SNCT) PZE COUNT OF SNAP-SHOTS ON LOG TAPE 9 F0007200 F0007210 73664 0 00000 0 00000 (MSLN) *** ** FLAG FOR ENTRY INTO MACHINE ERROR RECORD F0007220 OR SOURCE ERROR RECORD. F0007230 1 FROM FAP F0007240 2 FROM MONITOR F0007250 4 FROM SECTIONS 1 THROUGH 6 F0007260 AND THE GENERAL DIAGNOSTIC F0007270 F0007280 73665 0 00000 0 00000 (ENDS) PZE END CARD SETTINGS 1 THROUGH 15. F0007290 73666 1 00000 0 00000 (LODR) TXI **,,** *ENTRY POINT,,FORTRAN RECORD RECORD NUMBER F0007300 73667 0 00000 0 00000 (LBLD) PZE ** LOAD POINT FOR DISK LIBRARY $F0007310 LOADED WITH SYSLDR $F0007311 SPACE FOR $F0007319 73670 0 00000 0 00000 PZE ADDITIONAL F0007320 73671 0 00000 0 00000 PZE COMMUNICATIONS. F0007330 F0007340 TABLE OF CHANNEL REGISTERS AFTER SUCCESSFUL READ F0007350 F0007360 RELEVANT INFORMATION IS CHANNEL ADDRESS REGISTER (21-35) F0007370 CHANNEL ADDRESS REGISTER IS LOCATION OF LAST WORD READ+1 F0007380 73672 0 00000 0 00000 (SCHU) PZE ** CHANNEL STATUS FLAGS F0007390 73673 DUP 1,NTAPE F0007400 73673 0 00000 0 00000 PZE **,,** LOGICAL TAPES 1 THRU NTAPE F0007410 BINARY CARD NO. 9F000018 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 21 *************************************************************F0007430 ROUTINE TO SAVE CONSOLE AND REGISTERS F0007440 F0007450 73713 0602 00 0 73735 IOSAV SLW IOSVR+3 SAVE ALL REGISTERS F0007460 73714 0771 00 0 00002 ARS 2 F0007470 73715 0601 00 0 73734 STO IOSVR+2 F0007480 73716 -0600 00 0 73733 STQ IOSVR+1 F0007490 73717 0604 00 0 73732 STI IOSVR F0007500 73720 0441 00 0 73731 LDI INDIC LOAD CONSOLE INDICATORS F0007510 73721 0140 00 0 73723 TOV *+2 IS AC OVERFLOW ON .. F0007520 73722 0057 00 001000 RIR 1000 NO, TURN BIT OFF, F0007530 73723 0604 00 0 73736 STI IOSVR+4 SAVE FLAG. F0007540 73724 0634 00 4 77205 SXA CURTP+5,4 SET CALLER LOCATION IN LABEL. F0007550 73725 0634 00 4 73741 SXA IOSEX+2,4 F0007560 73726 0634 00 2 73740 SXA IOSEX+1,2 F0007570 73727 0634 00 1 73737 SXA IOSEX,1 F0007580 BINARY CARD NO. 9F000019 73730 0020 60 0 00000 IOSVX TRA* ** *RETURN VIA ENTRY POINT. F0007590 F0007600 73731 +000000001400 INDIC OCT 1400 PRESET CONSOLE INDICATORS(OVFLO LIGHTS) F0007610 DEFINITIONS OF INDICATOR BITS F0007620 F0007630 BITS S,1-25 NOT USED F0007640 BIT 26 ON AC OVERFLOW INDICATOR ON F0007650 BIT 27 ON MQ OVERFLOW INDICATOR ON F0007660 BIT 28 ON DIVIDE CHECK INDICATOR ON F0007670 BIT 29 ON SENSE LIGHT 4 OFF F0007680 BIT 30 ON SENSE LIGHT 3 OFF F0007690 BIT 31 ON SENSE LIGHT 2 OFF F0007700 BIT 32 ON SENSE LIGHT 1 OFF F0007710 BIT 33 ON TURNS OFF ALL SENSE LIGHTS F0007720 BIT 34 NOT USED F0007730 BIT 35 NOT USED F0007740 F0007750 F0007760 73732 0 00000 0 00000 IOSVR PZE ** SAVE INDICATORS F0007770 73733 0 00000 0 00000 PZE ** SAVE MQ F0007780 73734 0 00000 0 00000 PZE ** SAVE LOGICAL ACCUMULATOR F0007790 73735 0 00000 0 00000 PZE ** SAVE ALGEBRAIC ACCUMULATOR F0007800 73736 0 00000 0 00000 PZE ** SAVE TRIGGER FLAGS F0007810 ROUTINE TO RESTORE CONSOLE AND REGISTERS F0007820 F0007830 F0007840 73737 0774 00 1 00000 IOSEX AXT **,1 RELOAD REGISTERS F0007850 73740 0774 00 2 00000 AXT **,2 F0007860 73741 0774 00 4 00000 AXT **,4 F0007870 73742 0441 00 0 73736 LDI IOSVR+4 LOAD TRIGGER FLAGS F0007880 73743 -0500 00 0 73737 CAL IOSEX PREPARE TO TURN AC OVERFLOW ON F0007890 73744 0054 00 001000 RFT 1000 WAS AC OVERFLOW ON. F0007900 73745 0767 00 0 00004 ALS 4 YES, TURN IT BACK ON F0007910 73746 0500 00 0 73734 CLA IOSVR+2 RESTORE ALGEBRAIC AND LOGICAL ACCUMULATOR F0007920 73747 0767 00 0 00002 ALS 2 F0007930 73750 -0501 00 0 73735 ORA IOSVR+3 F0007940 73751 0056 00 001000 RNT 1000 WAS AC OVERFLOW ON. F0007950 73752 0140 00 0 73753 TOV *+1 NO, TURN IT BACK OFF F0007960 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 22 73753 0560 00 0 73733 LDQ IOSVR+1 RELOAD MQ F0007970 73754 0441 00 0 73732 LDI IOSVR RELOAD SI F0007980 73755 0020 60 0 00000 IORLX TRA* ** *RETURN TO USER. F0007990 *************************************************************F0008000 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 23 SYSTEM TAPE RECORD TO CORE STORAGE (1 TO CS) F0008020 F0008030 BINARY CARD NO. 9F000020 73756 0634 00 4 73771 LOAD0 SXA LOADX,4 SAVE POSSIBLE LINKAGE. F0008040 73757 0560 00 4 00000 LDQ 0,4 PREPARE FOR POSSIBLE DISK LOADING. F0008050 73760 -0620 00 0 73765 SLQ LOADS (SET TO NOP IF SYSTEM IS ON TAPE) F0008060 73761 -0500 00 4 00001 CAL 1,4 PICK UP RECORD NAME TO BE LOADED F0008070 73762 0602 00 0 73766 SLW LOADS+1 . F0008080 73763 0520 00 0 00000 LOADD ZET ** DELAY FOR POSSIBLE TRAPPING ON SYSLB1. F0008090 73764 0020 00 0 73763 TRA *-1 . F0008100 73765 0074 00 4 00121 LOADS TSX SYSLDR,4 (SET TO TSX SYSLDR,4,1 FOR DISK USE) F0008110 73766 676767676767 BCI 1,XXXXXX BCD RECORD NAME TO BE SEARCHED, IF ON DISKF0008120 F0008130 SYSTRA RETURNS CONTROL TO THIS POINT F0008140 73767 LOAD1 SYN * F0008150 73767 -0534 00 4 73666 LXD (LODR),4 . F0008160 73770 -0634 00 4 77205 SXD CURTP+5,4 SAVE CURRENT RECNO IN LABEL. F0008170 73771 0774 00 4 00000 LOADX AXT **,4 RESTORE POSSIBLE LINKAGE. F0008180 73772 -0500 00 0 77330 CAL POINT-SYSTAP UPDATE SYSTEM TAPE POSITION POINTER. F0008190 73773 0400 00 0 77157 ADD L(01) . F0008200 73774 0601 00 0 77330 STO POINT-SYSTAP . F0008210 73775 -0520 00 0 74052 NZT DIAGY IS THIS A LOAD OF GENERAL DIAGNOSTIC.. F0008220 73776 0020 00 0 74005 TRA *+7 NO F0008230 73777 0500 00 0 74052 CLA DIAGY YES, PICK UP PARAMETERS. F0008240 74000 0560 00 0 74053 LDQ DIAGY+1 . F0008250 74001 0441 00 0 74054 LDI DIAGY+2 . F0008260 74002 0534 00 1 77060 LXA DGSV6-2,1 RESTORE INDEX REGISTERS. F0008270 74003 0534 00 2 77061 LXA DGSV6-1,2 . F0008280 BINARY CARD NO. 9F000021 74004 0534 00 4 77062 LXA DGSV6,4 . F0008290 74005 0600 00 0 74052 STZ DIAGY RESET SWITCH. F0008300 74006 0020 00 0 73666 TRA (LODR) *TRANSFER INTO NEW RECORD. F0008310 F0008320 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 24 GENERAL DIAGNOSTIC CALLER F0008340 F0008350 74007 0500 00 4 00000 DIAG0 CLA 0,4 GET LOCATION OF TSX TO DIAGNOSTIC F0008360 74010 0621 00 0 74011 STA *+1 SET ADDRESS TO GET LOCATION OF TXI (DIAG).F0008370 74011 0441 00 0 00000 LDI ** LOAD TXI INSTRUCTION. F0008380 74012 -0054 00 077777 LFT 77777 IS THIS A CALL TO GENERAL DIAGNOSTIC. F0008390 74013 0020 00 0 74016 TRA DIAG1 YES, GO TO CALLER. F0008400 74014 0500 00 0 74055 CLA DIAG9 GET PRINT PARAMETERS. F0008410 74015 0020 00 0 76361 TRA IODG0 GO TO ON-LINE DIAGNOSTIC. F0008420 F0008430 74016 0604 00 0 74052 DIAG1 STI DIAGY SAVE FIRST WORD OF CALLING SEQUENCE (TXI).F0008440 74017 0400 00 0 77157 ADD L(01) INCREMENT TO GET SECOND WORD, IF ANY. F0008450 74020 0621 00 0 74023 STA *+3 F0008460 74021 0400 00 0 77157 ADD L(01) INCREMENT TO GET THIRD WORD, IF ANY. F0008470 74022 0621 00 0 74024 STA *+2 F0008480 74023 0560 00 0 00000 LDQ ** GET SECOND AND F0008490 74024 0500 00 0 00000 CLA ** THIRD WORD OF CALLING SEQUENCE. F0008500 74025 -0600 00 0 74053 STQ DIAGY+1 F0008510 74026 0601 00 0 74054 STO DIAGY+2 F0008520 74027 -0625 00 0 77050 STL DGSV4 SET RETURN FROM SAVER ROUTINE. F0008530 74030 0761 00 0 74032 NOP *+2 F0008540 74031 0020 00 0 76773 TRA DGSVA DUMP MEMORY FOR DIAGNOSTIC F0008550 BINARY CARD NO. 9F000022 74032 0441 60 0 73660 LDI* (FGBX) CHECK FOR DISK SYSTEM. F0008560 74033 -0054 00 000100 LFT 100 . F0008570 74034 0020 00 0 74045 TRA DIAG6 SYSTEM IS IN THE DISK FILE. F0008580 74035 0500 00 0 77330 CLA POINT-1 GET CURRENT POSITION OF SYSTEM TAPE. F0008590 74036 0622 00 0 74040 STD *+2 SAVE CURRENT FILE POSITION. F0008600 74037 0774 00 4 00004 AXT 4,4 COMPUTE FILE POSITION OF G.DIAG. F0008610 74040 2 00000 4 74041 TIX *+1,4,** . F0008620 74041 -0634 00 4 77140 SXD ERASD,4 . F0008630 74042 0074 00 4 73606 TSX (TAPE),4 SPACE TO THE GENERAL DIAGNOSTIC FILE. F0008640 74043 0 20000 0 77140 PZE ERASD,,(SKBP) . F0008650 74044 0 00001 0 00000 PZE ,,SYSTAP . F0008660 74045 -0625 00 0 77120 DIAG6 STL DGLD2 SET RETURN FROM RELOADING ROUTINE. F0008670 74046 0761 00 0 74050 NOP *+2 F0008680 74047 0020 00 0 77075 TRA DGLD0 F0008690 D 74050 0074 01 4 73600 TSX (LOAD),4,1 *ENTER GENERAL DIAGNOSTIC. F0008700 74051 112400000000 BCI 1,9D0000 F0008710 F0008720 74052 0 00000 0 00000 DIAGY PZE **,,** CELL FOR SAVING TXI (DIAG),,-N F0008730 74053 0 00000 0 00000 PZE ** CELL FOR SAVING SECOND WORD OF CALLER. F0008740 74054 0 00000 0 00000 PZE ** CELL FOR SAVING THIRD WORD OF CALLER. F0008750 F0008760 74055 0 77135 0 74056 DIAG9 PZE *+1,,ERAS1 F0008770 74056 0 00013 0 74057 PZE *+1,,11 F0008780 74057 605454546047 BCI 9, *** PROBABLE MACHINE ERROR. PLEASE REFER TO SYSTEM L F0008800 BINARY CARD NO. 9F000023 74070 316263314527 BCI 2,ISTING. *** F0008810 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 25 GENERAL I/O ROUTINES F0008830 F0008840 F0008850 INITIALIZE CURRENT OFF-LINE ACTIVITY F0008860 F0008870 F0008880 F0008890 74072 0441 00 4 00002 TAPS0 LDI 2,4 LOAD LABEL-ADDRESS,T2,TAPENO. F0008900 74073 -0056 00 077777 LNT 77777 IS THIS INDIRECT.. F0008910 74074 0020 00 0 74100 TRA *+4 NO. F0008920 74075 0604 00 0 77136 STI ERAS2 YES, INITIALIZE LOCATION OF PARAMETER F0008930 74076 0441 60 0 77136 LDI* ERAS2 GET NEW LABEL ADDRESS, T2, TAPNO. F0008940 74077 0020 00 0 74073 TRA TAPS0+1 AND CHECK F0008950 74100 -0046 00 0 00000 PIA PLACE SECOND PARAMETER IN AC. F0008960 74101 0441 00 4 00001 LDI 1,4 LOAD INSTRUCTION,T1,FLAGS. F0008970 74102 -0056 00 077777 LNT 77777 IS THIS INDIRECT F0008980 74103 0020 00 0 74107 TRA *+4 NO F0008990 74104 0604 00 0 77136 STI ERAS2 YES, INITIALIZE LOCATION OF PARAMETER F0009000 74105 0441 60 0 77136 LDI* ERAS2 LOAD NEW INSTRUCTION,T1,FLAGS F0009010 BINARY CARD NO. 9F000024 74106 0020 00 0 74102 TRA *-4 AND CHECK F0009020 74107 -0054 00 075000 LFT 75000 IS THIS ILLEGAL FLAG F0009030 74110 0020 00 0 74113 TRA *+3 NO. F0009040 74111 0500 00 0 76124 CLA FLERM YES, GET MESSAGE PARAMETERS. F0009050 74112 0020 00 0 76361 TRA IODG0 *GO TO ON-LINE DIAGNOSTIC. F0009060 74113 0560 00 0 77156 LDQ L(00) SET NO ERR-RETURN/LABEL FLAG PROVISIONALLYF0009070 74114 -0056 00 010000 LNT (CHKU) IS THIS A CALL TO CHECK PRIOR ACTIVITY.. F0009080 OR CHANGE UNIT AVAILABILITY.. $F0009081 74115 0020 00 0 74134 TRA TAPS1 NO F0009090 74116 -0046 00 0 00000 PIA YES, COMPUTE EFFECTIVE TAPE NUMBER F0009100 74117 0625 00 0 74120 STT *+1 F0009110 74120 0634 00 0 77137 SXA ERASA,** F0009120 74121 0402 00 0 77137 SUB ERASA F0009130 74122 0734 00 2 00000 PAX ,T F0009140 74123 -0046 00 0 00000 PIA F0009150 74124 0020 00 0 75236 TAPCK TRA AVPCH *TO SEE IF REALLY (CHKU) CALL $F0009160 74125 -0625 00 0 75116 STL TAPRX SET RETURN FOLLOWING CHECK OF PRIOR USE. F0009170 74126 0761 00 0 74130 NOP *+2 RETURN FROM CHANNEL CHECKER ROUTINE. F0009180 74127 0020 00 0 74522 TRA TAPER *CHECK PRIOR ACTIVITY F0009190 74130 -0535 00 2 77202 LDC CURTP+2,T LOAD (SCHU) INDEX (LOGICAL TAPENO). F0009200 74131 -0520 00 2 73672 NZT (SCHU),T WAS AN EOF READ.. F0009210 74132 0600 00 2 73672 STZ (SCHU),T YEAS, SET IT TO A READ AND CHECK FLAG. F0009220 74133 0020 00 0 74442 TRA CHKTO *EXIT TO RESTORE ROUTINE. F0009230 F0009240 F0009250 BINARY CARD NO. 9F000025 74134 0630 00 0 77205 TAPS1 STP CURTP+5 SAVE LABEL FLAG (FROM CALLER 2,4). F0009260 MINUS INDICATES NO CHECK ON LABEL F0009270 74135 0625 00 0 77141 STT ERASR INITIALIZE LOCATION OF LABEL F0009280 74136 0621 00 0 77141 STA ERASR F0009290 74137 0520 00 0 77141 ZET ERASR IS A LABEL REQUIRED F0009300 74140 0560 60 0 77141 LDQ* ERASR YES, PICK UP LABEL F0009310 74141 -0600 00 0 77203 STQ CURTP+3 (ACTUAL LABEL OR ZERO FLAG) F0009320 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 26 GENERAL I/O ROUTINES 74142 0622 00 0 77202 STD CURTP+2 SAVE LOGICAL TAPE NUMBER (OR PARNO) F0009330 74143 -0046 00 0 00000 PIA RECALL INSTRUCTION ADDRESS,T1 F0009340 74144 0625 00 0 74145 STT *+1 COMPUTE EFFECTIVE INSTRUCTION ADDRESS F0009350 74145 0634 00 0 77137 SXA ERASA,** F0009360 74146 -0400 00 0 77137 SBM ERASA F0009370 74147 0621 00 0 74161 STA SKIP0 SET LOCATION OF POSSIBLE SKIP PARAMETER. F0009380 74150 0400 00 0 77161 ADD L(05) F0009390 74151 0621 00 0 77627 STA PATCH2+3 SET LOCATION OF END OF I/O LIST $F0009400 74152 0560 00 4 00003 LDQ 3,4 LOAD POSSIBLE ERROR RETURN F0009410 74153 -0625 00 0 75116 STL TAPRX SET RETURN FOLLOWING CHECK OF PRIOR USE F0009420 74154 0761 00 0 74331 NOP TAPE0 TO TAPE DATA TRANSMIT ROUTINE F0009430 74155 -0054 00 020000 LFT (SKIP) IS THIS TAPE REPOSITION.. F0009440 74156 -0625 00 0 75116 STL TAPRX YES, RESET RETURN F0009450 74157 0761 00 0 74161 NOP SKIP0 TO TAPE REPOSITION ROUTINE F0009460 74160 0020 00 0 74522 TRA TAPER *CHECK PRIOR ACTIVITY F0009470 F0009480 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 27 GENERAL I/O ROUTINES ROUTINES TO SPACE RECORDS AND FILES F0009500 F0009510 F0009520 74161 0500 00 0 00000 SKIP0 CLA ** PICK UP ACTUAL POSITIONING PARAMETER. F0009530 BINARY CARD NO. 9F000026 74162 -0535 00 4 77202 LDC CURTP+2,4 LOAD LOGICAL TAPENO, COMPLEMENTED. F0009540 74163 -0520 00 4 73672 NZT (SCHU),4 WAS EOF SENSED.. F0009550 74164 0600 00 4 73672 STZ (SCHU),4 YES, RESET POSSIBLE READ NOP. F0009560 74165 0601 00 1 77313 STO UNITT+3,C SAVE PARAMETER IN CHANNEL DATA TABLE. F0009570 74166 0621 00 0 77137 STA ERASA SAVE COUNT OF RECORDS TO BE SKIPPED. F0009580 74167 0622 00 0 77140 STD ERASD SAVE COUNT OF FILES TO BE SKIPPED. F0009590 74170 0634 00 1 74306 SXA SKIP6,C SAVE IR C. F0009600 74171 -0734 00 1 00000 PDX ,1 LOAD FILE COUNT. F0009610 74172 0120 00 0 74236 TPL SKIPF *SKIP IS SKIP FORWARD. F0009620 F0009630 74173 -3 77776 1 74202 TXL SKIP1,1,-2 IS THIS SPECIAL REWIND AND UNLOAD.. F0009640 74174 0774 00 4 00004 AXT .RUN.,4 YES, F0009650 74175 -0634 00 4 75610 REWD1 SXD NDSEL,4 SET NON-DATA SELECT PARAMETER. F0009660 74176 0074 00 4 75606 TSX NONDT,4 *RUN TAPE FUNCTION SPECIFIED IN IR2. F0009670 74177 -0500 00 0 77145 CAL INITL RESET TAPE POSITION STATUS WORD F0009680 74200 0602 00 2 77331 SLW POINT,T TO INITIAL POSITION. F0009690 74201 0020 00 0 74434 TRA TAPEX *EXIT TO CALLER, VIA TAPEX. F0009700 74202 -3 00000 1 74206 SKIP1 TXL SKIP2,1,0 ANY FILES TO BE SKIPPED.. F0009710 74203 0074 00 4 00704 TSX (NDATA,4 *BACKSPACE NFILES. F0009720 74204 0 00006 2 77673 PZE TAPNO,T,.BSF. F0009730 74205 2 00001 1 74203 TIX *-2,1,1 F0009740 F0009750 74206 0534 00 1 77137 SKIP2 LXA ERASA,1 LOAD NUMBER OF RECORDS TO BE SKIPPED. F0009760 74207 -3 00000 1 74213 TXL SKIPE,1,0 ANY RECORDS TO BE SKIPPED.. F0009770 BINARY CARD NO. 9F000027 74210 0074 00 4 00704 TSX (NDATA,4 *BACKSPACE NRECORDS. F0009780 74211 0 00005 2 77673 PZE TAPNO,T,.BSR. F0009790 74212 2 00001 1 74210 TIX *-2,1,1 F0009800 74213 -0520 00 0 77140 SKIPE NZT ERASD WERE ANY FILES SPACED.. F0009810 74214 0020 00 0 74222 TRA CMP01 *NO, COMPUTE NEW TAPE POSITION. F0009820 74215 0600 00 0 77137 STZ ERASA YES, RESET RECORD COUNT F0009830 74216 0520 00 0 77203 ZET CURTP+3 IS THERE A LABEL.. F0009840 74217 0074 00 4 75262 TSX FINDL,4 *YES, OBTAIN POSITION OF DATA. F0009850 74220 0020 00 0 74222 TRA CMP01 *NO LABEL, OR NOT FOUND. F0009860 74221 0020 00 0 74230 TRA CMP02 CONTINUE BELOW. F0009870 74222 -0500 00 2 77331 CMP01 CAL POINT,T PICK UP PREVIOUS TAPE POSITION. F0009880 74223 0402 00 0 77140 SUB ERASD SUBTRACT NFILES BACKSPACED. F0009890 74224 -0520 00 0 77140 NZT ERASD WERE FILES SPACED $F0009891 74225 0402 00 0 77137 SUB ERASA NO. SUB. NRECORDS BACKSPACED $F0009892 74226 0520 00 0 77140 ZET ERASD YES. MASK $F0009893 74227 -0501 00 0 77153 ORA ADMSK FOR FILE SPACED $F0009900 74230 0602 00 2 77331 CMP02 SLW POINT,T SAVE NEW POSITION. F0009910 74231 -0056 00 000010 LNT (...C) IS THIS DELAY AND CHECK IMMEDIATE.. F0009920 74232 0020 00 0 74434 TRA TAPEX *NO, RETURN TO CALLER VIA TAPEX. F0009930 74233 -0625 00 0 75441 STL CHKIX SPECIAL BTT TEST, CHECK UCB3. F0009940 74234 0761 00 0 74434 NOP TAPEX EXIT TO CALLER VIA TAPEX AFTER F0009950 74235 0020 00 0 75407 TRA CHKIO TESTING FOR BTT. F0009960 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 28 GENERAL I/O ROUTINES FORWARD SPACE FILES AND/OR RECORDS F0009980 BINARY CARD NO. 9F000028 74236 -3 77776 1 74243 SKIPF TXL SKIP3,1,-2 IS THIS A REWIND SPECIAL.. F0010000 74237 0500 00 2 77673 CLA TAPNO,T YES, MAY THIS TAPE BE REWOUND.. F0010010 74240 -0120 00 0 76132 TMI RWERR *NO, IT IS AN OUTPUT TAPE (LISTING). F0010020 74241 0774 00 4 00003 AXT .REW.,4 YES, SET NON-DATA SELECT PARAMETER F0010030 74242 0020 00 0 74175 TRA REWD1 *AND CONTINUE ABOVE. F0010040 F0010050 74243 -3 00000 1 74270 SKIP3 TXL SKIP5,1,0 ANY FILES TO BE SKIPPED FORWARD.. F0010060 74244 0074 00 4 75451 TSX IOPRQ,4 *SKIP FORWARD ONE FILE. F0010070 74245 0 00000 0 74326 PZE SKIPR . F0010080 74246 -2 00001 1 74260 TNX SKIP4,1,1 ANY MORE FILES TO SKIP.. F0010090 74247 0634 00 1 74256 SXA SKP01,1 SAVE LOOPING INDEX. F0010100 74250 0534 00 1 74306 LXA SKIP6,C RESTORE UNITT POINTER. F0010110 74251 -0625 00 0 75450 STL CHSKX YES, GO CHECK CHANNEL TRIGGERS F0010120 74252 0761 00 0 74254 NOP *+2 (KICKED OUT IN CASE OF RTT) F0010130 74253 0020 00 0 75443 TRA CHSKP F0010140 74254 0056 00 000004 RNT EOFIL WAS END OF FILE SENSED.. F0010150 74255 0020 00 0 76143 TRA MEFER **NO, GO TO ERROR ROUTINE. F0010160 74256 0774 00 1 00000 SKP01 AXT **,1 RESTORE LOOPING IR. F0010170 74257 0020 00 0 74244 TRA SKIP3+1 CONTINUE. F0010180 74260 0534 00 1 77137 SKIP4 LXA ERASA,1 LOAD NUMBER OF RECORDS TO BE SKIPPED. F0010190 74261 -3 00000 1 74306 TXL SKIP6,1,0 ANY RECORDS TO BE SKIPPED.. F0010200 74262 0534 00 1 74306 LXA SKIP6,C RESTORE UNITT POINTER. F0010210 74263 -0625 00 0 75450 STL CHSKX CHECK POSSIBLE PRIOR FILE SKIP, ETC. F0010220 BINARY CARD NO. 9F000029 74264 0761 00 0 74266 NOP *+2 F0010230 74265 0020 00 0 75443 TRA CHSKP F0010240 74266 0056 00 000004 RNT EOFIL WAS EOF NOT SENSED.. F0010250 74267 0020 00 0 76143 TRA MEFER *MISSING EOF, TELL THEM. F0010260 74270 0534 00 1 77137 SKIP5 LXA ERASA,1 LOAD NUMBER OF RECORDS TO BE SKIPPED. F0010270 74271 -3 00000 1 74434 TXL TAPEX,1,0 ANY RECORDS TO BE SPACED FORWARD.. F0010280 74272 0074 00 4 75451 TSX IOPRQ,4 *SKIP OVER ONE RECORD, F0010290 74273 0 00000 0 74330 PZE SKIPR+2 BY READING THE LABEL. F0010300 74274 -2 00001 1 74306 TNX SKIP6,1,1 ANY MORE RECORDS TO BE SKIPPED.. F0010310 74275 0634 00 1 74304 SXA SKP02,1 SAVE LOOPING IR. F0010320 74276 0534 00 1 74306 LXA SKIP6,C RESTORE UNITT POINTER. F0010330 74277 -0625 00 0 75450 STL CHSKX YES, CHECK PREVIOUS SKIP. F0010340 74300 0761 00 0 74302 NOP *+2 F0010350 74301 0020 00 0 75443 TRA CHSKP F0010360 74302 0054 00 000004 RFT EOFIL WAS EOF MISTAKENLY SENSED.. F0010370 74303 0020 00 0 76155 TRA TEFER YES, TELL THEM ABOUT IT. F0010380 74304 0774 00 1 00000 SKP02 AXT **,1 RESTORE LOOPING IR. F0010390 74305 0020 00 0 74272 TRA SKIP5+2 NO, CONTINUE SKIPPING. F0010400 F0010410 74306 0774 00 1 00000 SKIP6 AXT **,C RESTORE IR C. F0010420 74307 -0520 00 0 77140 NZT ERASD WERE ANY FILES SPACED.. F0010430 74310 0020 00 0 74315 TRA *+5 NO. F0010440 74311 0520 00 0 77203 ZET CURTP+3 YES. IS THERE A LABEL. F0010450 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 29 GENERAL I/O ROUTINES BINARY CARD NO. 9F000030 74312 0074 00 4 75262 TSX FINDL,4 YES, FIND DATA POSITION. F0010460 74313 0020 00 0 74315 TRA *+2 NOT LABELED, COMPUTE POSITION. F0010470 74314 0020 00 0 74413 TRA TAPE2 *POSITION SET BY FIND SUBROUTINE. F0010480 74315 -0500 00 2 77331 CAL POINT,T PICK UP CURRENT TAPE POSITION. F0010490 74316 -0520 00 0 77140 NZT ERASD WERE ANY FILES SPACED. F0010500 74317 0020 00 0 74323 TRA *+4 *NO. F0010510 74320 -0320 00 0 77154 ANA DCMSK YES, MASK OUT ALL BUT FILE NUMBER. F0010520 74321 0400 00 0 77157 ADD L(01) INITIALIZE RECORD POSITION. F0010530 74322 0400 00 0 77140 ADD ERASD ADD FILE COUNT. F0010540 74323 0400 00 0 77137 ADD ERASA ADD RECORD COUNT. F0010550 74324 0602 00 2 77331 SLW POINT,T SAVE NEW POSITION. F0010560 74325 0020 00 0 74413 TRA TAPE2 *CONTINUE WITH COMMON ROUTINE. F0010570 F0010580 74326 2 77777 2 00000 SKIPR IORPN ,,-1 I/O COMMAND TO SKIP FILE F0010600 74327 1 00000 0 74326 TCH *-1 F0010610 74330 3 00003 0 77206 IORT LABEL,,3 I/O COMMAND TO SKIP RECORD F0010620 F0010630 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 30 GENERAL I/O ROUTINES ROUTINES TO ISSUE CURRENT READ/WRITE TAPE RECORD F0010650 F0010660 74331 -0500 00 0 77202 TAPE0 CAL CURTP+2 SAVE MODE IN HISTORIC BUFFER. F0010670 74332 0621 00 1 77311 STA UNITT+1,C . F0010680 74333 -0056 00 040005 LNT (WEFP) IS THIS WRITE END OF FILE.. F0010690 74334 0020 00 0 74351 TRA TAPES NO. F0010700 74335 0074 00 4 00704 TSX (NDATA,4 *YES, ENTER NON-DATA SELECT F0010710 74336 0 00007 2 77673 PZE TAPNO,T,.WEF. ROUTINE. F0010720 74337 0020 00 0 76224 TRA ETERR *EOT ON WEF RETURN, GIVE MESSAGE. F0010730 BINARY CARD NO. 9F000031 74340 -0625 00 0 75324 STL NOENT NORMAL RETURN, F0010740 74341 0074 00 4 75326 TSX ENTER,4 UPDATE DICTIONARY. F0010750 74342 0600 00 0 75324 STZ NOENT RESET FLAG. F0010760 74343 -0500 00 2 77331 CAL POINT,T PICK UP CURRENT TAPE POSITION. F0010770 74344 -0320 00 0 77154 ANA DCMSK PRESERVE THE FILE COUNT, F0010780 74345 0400 00 0 77165 ADD D(01) AND INCREMENT IT. F0010790 74346 -0760 00 0 00003 SSM SET WRITE OPERATION FLAG. F0010800 74347 0601 00 2 77331 STO POINT,T SAVE NEW TAPE POSITION. F0010810 74350 0020 00 0 74413 TRA TAPE2 *CONTINUE WITH COMMON ROUTINE. F0010820 F0010830 OPERATION IS TAPE DATA TRANSMIT F0010840 74351 -0054 00 001001 TAPES LFT (SNAP)+(W...) IS THIS CALL FOR (SNAP) OR WRITE.. F0010850 74352 0020 00 0 74361 TRA TAPE1 *YES, ONE OR THE OTHER. F0010860 74353 -0535 00 4 77202 LDC CURTP+2,4 NO, CONSTRUCT (SCHU) INDEX. F0010870 74354 0500 00 4 73672 CLA (SCHU),4 PICK UP LAST STORE CHANNEL F0010880 74355 -0100 00 0 74361 TNZ TAPE1 WAS EOF SENSED ON PRIOR READ.. F0010890 74356 0120 00 0 74361 TPL TAPE1 YES, IS FOLLOWING RECORD DELETED.. F0010900 74357 0600 00 4 73672 STZ (SCHU),4 YES, RESET MINUS FLAG (...P), F0010910 74360 0020 00 0 74434 TRA TAPEX *AND IGNORE CURRENT REQUEST. F0010920 74361 -0634 00 1 74363 TAPE1 SXD *+2,C SET LOCATION AT $F0010930 74362 0774 00 4 77320 AXT UNITT+8,4 UNITT+8 $F0010940 74363 2 00000 4 74364 TIX *+1,4,** MINUS C(C) CHANNEL POINTER $F0010950 74364 0020 00 0 77624 TRA PATCH2 MOVE I/O (OR SNAPSHOT) LIST $F0010960 74365 -0054 00 001000 LFT (SNAP) IS THIS CALL FOR (SNAP).. F0010970 BINARY CARD NO. 9F000032 74366 0020 00 0 76024 TRA SNAP0 *YES, GO TO SNAPSHOT ROUTINE. F0010980 74367 -0634 00 1 74371 SXD *+2,C COMPUTE LOCATION OF I/O SEQUENCE. F0010990 74370 0774 00 4 77312 AXT UNITT+2,4 . F0011000 74371 2 00000 4 74372 TIX *+1,4,** . F0011010 74372 -0520 00 0 77203 NZT CURTP+3 IS LABEL REQUIRED.. F0011020 74373 1 00001 4 74374 TXI *+1,4,1 NO, BYPASS IOSP LABEL COMMAND. F0011030 74374 0634 00 4 74425 SXA TPSEL,4 SET I/O TRANSLATOR CALLER. F0011040 74375 -0054 00 000020 LFT 20 IS THIS CALLLFOR OFF-LINE ROW.. F0011050 74376 0020 00 0 74445 TRA ROTAT *YES, ROTATE AND RETURN. F0011060 74377 -0520 00 0 77203 TPROW NZT CURTP+3 IS RECORD LABELED.. F0011070 74400 0020 00 0 74407 TRA *+7 NO. F0011080 74401 -0054 00 000001 LFT (W...) YES, IS THIS A WRITE OPERATION.. F0011090 74402 0020 00 0 74406 TRA *+4 YES. F0011100 74403 0074 00 4 75262 TSX FINDL,4 *LOCATE ENTRY FOR DATA TO BE READ. F0011110 74404 0020 00 0 76313 TRA NODAT NO DATA, DON-T READ $F0011120 74405 0020 00 0 74407 TRA *+2 DATA EXISTS, READ IT. F0011130 74406 0074 00 4 75326 TSX ENTER,4 *ENTER NEWLY WRITTEN DATA IN DICTIONARY. F0011140 74407 -0500 00 0 74425 CAL TPSEL PREPARE FOR READ FLAG. F0011150 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 31 GENERAL I/O ROUTINES 74410 -0054 00 000001 LFT (W...) IS THIS WRITE OPERATION.. F0011160 74411 0502 00 0 74425 CLS TPSEL SET FLAG FOR F0011170 74412 0601 00 0 74425 STO TPSEL WRITE REQUEST. F0011180 F0011190 ENTRY FROM FORWARD SKIPS AND WEF CALL F0011200 74413 0020 00 0 77640 TAPE2 TRA PATCH3 $F0011210 BINARY CARD NO. 9F000033 74414 -0500 00 4 77206 CAL CURTP+6,4 . F0011220 74415 0602 00 4 00000 SLW **,4 MOVE HISTORIC INFORMATION $F0011230 74416 3 00003 4 74420 TXH *+2,4,3 . F0011240 74417 0602 00 4 00000 SLW **,4 . $F0011250 74420 2 00001 4 74414 TIX *-4,4,1 . F0011260 74421 -0056 00 040005 LNT (WEFP) IS THIS A WEF OR SKIP ENTRY.. F0011270 74422 -0056 00 040000 LNT (DATA) . F0011280 74423 0020 00 0 74426 TRA TPSEL+1 *YES, ONE OR THE OTHER. F0011290 74424 0074 00 4 75451 TSX IOPRQ,4 *ISSUE CURRENT TAPE DATA TRANSMIT REQUEST. F0011300 74425 0 00000 0 00000 TPSEL QZE ** . F0011310 74426 0600 00 0 74425 STZ *-1 CLEAR OPERATION BIT S. F0011320 74427 -0056 00 000010 LNT (...C) IS THIS A CHECK IMMEDIATE CALL.. F0011330 74430 0020 00 0 74434 TRA TAPEX NO, F0011340 74431 -0625 00 0 75116 STL TAPRX YES, F0011350 74432 0761 00 0 74434 NOP TAPEX SET RETURN AND F0011360 74433 0020 00 0 74575 TRA TAPR0 *CHECK CURRENT ACTIVITY IMMEDIATELY. F0011370 74434 -0625 00 0 73755 TAPEX STL IORLX SET RETURN FOLLOWING CONSOLE AND F0011390 74435 0761 00 4 00003 NOP 3,4 REGISTER RESTORATION TO CALLER 3,4. F0011400 74436 0520 00 0 77200 ZET CURTP WAS ERROR RETURN SPECIFIED.. F0011410 74437 -0625 00 0 73755 STL IORLX YES, CHANGE CALLER RETURN F0011420 74440 0761 00 4 00004 NOP 4,4 POINT TO 4,4. F0011430 74441 -0054 00 002000 LFT ONLNX BUT THEN, IS THIS AN ON-LINE CALL.. F0011440 BINARY CARD NO. 9F000034 74442 -0625 00 0 73755 CHKTO STL IORLX YES, CHANGE CALLER RETURN F0011450 74443 0761 00 4 00002 NOP 2,4 POINT TO 2,4. F0011460 74444 0020 00 0 73737 TRA IOSEX *1660 A.D. F0011470 F0011480 F0011490 OFF-LINE ROW BINARY CARD ROTATION SUBROUTINE F0011500 74445 -0500 60 0 74161 ROTAT CAL* SKIP0 PICK UP INPUT CARD IMAGE 9L ADDRESS. F0011510 74446 0621 00 0 74466 STA TPROA+2 F0011520 74447 -0500 00 0 74511 CAL ROBIO MOVE I/O COMMAND. F0011530 74450 0622 00 1 77313 STD UNITT+3,C PLACE IN HISTORIC BUFFER F0011540 74451 0621 00 1 77313 STA UNITT+3,C FOR THIS CHANNEL. F0011550 74452 0634 00 2 74506 SXA TPROC,T SAVE CURRENT LOGICAL TAPENO. F0011560 74453 0634 00 1 74507 SXA TPROC+1,C SAVE UNITT INDEX. F0011570 74454 -0625 00 0 75116 STL TAPRX SET RETURN FROM CHANNEL CHECKER ROUTINE. F0011580 74455 0761 00 0 74457 NOP *+2 (MAKE SURE CARD IMAGE BUFFER IS CLEAR) F0011590 74456 0020 00 0 74575 TRA TAPR0 *CHECK PREVIOUS OPERATION. F0011600 74457 0761 00 1 77606 NOP ROBUF+12,1 INDIRECT ADDRESSING CELL. F0011610 74460 0774 00 1 00030 TPROD AXT 24,1 LOAD WORD COUNT. F0011620 74461 0600 00 1 77622 STZ ROBUF+24,1 CLEAR OUTPUT CARD IMAGE BUFFER F0011630 74462 2 00001 1 74461 TIX *-1,1,1 F0011640 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 32 GENERAL I/O ROUTINES 74463 0774 00 2 00014 AXT 12,2 LOAD SHIFT COUNT F0011650 74464 -0774 00 4 77777 TPROA AXC -1,4 LOAD FLIP-FLOP. F0011660 74465 0774 00 1 00014 AXT 12,1 INITIALIZE BIT COUNTER. F0011670 74466 0560 00 0 00000 LDQ ** GET A WORD. F0011680 74467 -0754 00 0 00000 TPROB ZAC CLEAR AC. F0011690 BINARY CARD NO. 9F000035 74470 -0763 00 0 00001 LGL 1 SHIFT IN NEXT BIT F0011700 74471 0767 00 0 00013 ALS 11 SPACE F0011710 74472 -0763 00 0 00001 LGL 1 SHIFT IN NEXT BIT F0011720 74473 0767 00 0 00013 ALS 11 SPACE F0011730 74474 -0763 00 0 00001 LGL 1 SHIFT IN NEXT BIT F0011740 74475 0767 00 2 00014 ALS 12,2 POSITION IN WORD F0011750 74476 -0602 60 4 74460 ORS* TPROD,4 INSERT INTO OUTPUT BUFFER. F0011760 74477 2 00001 1 74467 TIX TPROB,1,1 *IS HALF COMPLETE, NO CONTINUE. F0011770 74500 -0500 00 0 74466 CAL TPROA+2 YES, INCREMENT WORD ADDRESS F0011780 74501 0400 00 0 77157 ADD L(01) OF INPUT IMAGE. F0011790 74502 0621 00 0 74466 STA TPROA+2 SET NEW ADDRESS. F0011800 74503 0634 00 4 74464 SXA TPROA,4 RESET FLIP-FLOP. F0011810 74504 -3 00001 4 74464 TXL TPROA,4,1 *IS THIS ROW COMPLETE, NO CONTINUE. F0011820 74505 2 00001 2 74464 TIX TPROA,2,1 *YES, IS CARD COMPLETE, NO. F0011830 74506 0774 00 2 00000 TPROC AXT **,T RELOAD CURRENT LOGICAL TAPENO. F0011840 74507 0774 00 1 00000 AXT **,C RELOAD UNITT INDEX. F0011850 74510 0020 00 0 74377 TRA TPROW *RETURN TO COMMON ROUTINE. F0011860 F0011870 74511 3 00030 0 77572 ROBIO IORT ROBUF,,24 F0011880 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 33 GENERAL I/O ROUTINES F0011900 PREPARE FOR CURRENT REQUEST F0011910 F0011920 ENTRY POINT FOR CURRENT ON-LINE REQUEST F0011930 74512 0600 00 0 77200 ONLNC STZ CURTP SET NO ERROR-RETURN FLAG. F0011940 74513 -0634 00 0 77202 ZSD CURTP+2 DELETE LOGICAL TAPE NUMBER. F0011950 74514 0441 00 4 00001 LDI 1,4 LOAD PARAMETER F0011960 74515 -0056 00 077777 LNT 77777 IS THIS INDIRECT F0011970 BINARY CARD NO. 9F000036 74516 0020 00 0 74563 TRA ONLN1 NO F0011980 74517 0604 00 0 77136 STI ERAS2 YES, INITIALIZE INDIRECT ADDRESS TO F0011990 74520 0441 60 0 77136 LDI* ERAS2 LOAD NEW PARAMETER F0012000 74521 0020 00 0 74515 TRA *-4 AND CHECK F0012010 F0012020 F0012030 ENTRY POINT FOR CURRENT OFF-LINE REQUEST F0012040 74522 -0130 00 0 00000 TAPER XCL RECALL POSSIBLE ERROR RETURN F0012050 74523 0044 00 0 00000 PAI FOR CURRENT REQUEST. F0012060 74524 -0054 00 377777 LFT 377777 IS THIS ERROR RETURN F0012070 74525 -0754 00 0 00000 ZAC NO. F0012080 74526 0630 00 0 77200 STP CURTP SAVE ABSOLUTE RETURN FLAG F0012090 74527 0625 00 0 74530 STT *+1 COMPUTE EFFECTIVE ADDRESS F0012100 74530 0634 00 0 77137 SXA ERASA,** F0012110 74531 0402 00 0 77137 SUB ERASA F0012120 74532 0621 00 0 77200 STA CURTP SET ERROR RETURN (MAY BE ZERO FOR NONE) F0012130 74533 -0130 00 0 00000 XCL RECALL FLAGS (1,4) F0012140 74534 0044 00 0 00000 PAI F0012150 74535 -0534 00 2 77202 LXD CURTP+2,T RELOAD CURRENT LOGICAL TAPE NUMBER. F0012160 74536 -0054 00 001000 LFT (SNAP) IS THIS CALL FOR (SNAP).. F0012170 74537 0774 00 2 00011 AXT SNPTAP,T YES, LOAD SNAP TAPE NUMBER INSTEAD. F0012180 74540 3 00000 2 76176 TPNRT TXH TPNRR,T,** *IS TAPE NUMBER LEGAL, NO. F0012190 74541 -0520 00 2 77673 NZT TAPNO,T HAS THIS UNIT BEEN ASSIGNED A UCB.. F0012200 74542 0020 00 0 76176 TRA TPNRR *NO, THIS UPDATE TAPE IS RESRVD/7909/UNAVL.F0012210 74543 -0056 00 004000 LNT (TPER) IS THIS (TPER) CALL.. F0012220 BINARY CARD NO. 9F000037 74544 -3 00000 2 76176 TXL TPNRR,T,0 *NO, IS TAPE NUMBER LEGAL, NO. F0012230 74545 -3 00001 2 75117 DISKT TXL TDISK,T,1 IS CALL FOR SYSTEM FUNCTION (NOP IF TAPE) F0012240 74546 -0754 00 2 00000 PXD ,T NO, GET LOGICAL TAPE NUMBER F0012250 74547 0767 00 0 00014 ALS 12 AND POSITION FOR SAVING IN F0012260 74550 0602 00 0 77142 SLW TPNUM INDEX TABLE. F0012270 74551 -0500 60 2 77673 CAL* TAPNO,T PREPARE TO SET THE MOOD. F0012280 74552 0771 00 0 00022 ARS 18 SHIFT TAPE ADDRESS TO AC ADDRESS. F0012290 74553 -0056 00 000002 LNT (.D..) IS MODE TO BE DECIMAL.. F0012300 74554 -0501 00 0 77164 ORA L(16) MODE TO BE BINARY. F0012310 74555 0621 00 0 77202 STA CURTP+2 SAVE TAPE UNIT ADDRESS (MODE). F0012320 74556 0771 00 0 00004 ARS 4 SET IOPRQ MODE PERAMETERS $F0012330 74557 0767 00 0 00020 ALS 16 . $F0012331 74560 0625 00 0 77146 STT L(SL) . F0012340 74561 -0500 00 2 77673 CAL TAPNO,T F0012350 74562 0630 00 0 77202 STP CURTP+2 SAVE OUTPUT TAPE FLAG. F0012360 74563 0604 00 0 77201 ONLN1 STI CURTP+1 SAVE INSTRUCTION,,FLAGS F0012370 74564 -0500 60 2 77673 CAL* TAPNO,T PICK UP CHANNEL OF THIS TAPE FUNCTION. F0012380 74565 -0320 00 0 77154 ANA DCMSK F0012390 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 34 GENERAL I/O ROUTINES 74566 0771 00 0 00033 ARS 27 F0012400 74567 0734 00 4 00000 PAX ,4 LOAD CHANNEL NUMBER. F0012410 74570 0767 00 0 00004 ALS 4 F0012420 74571 0734 00 1 00000 PAX ,C LOAD UNITT TABLE INDEX. F0012430 BINARY CARD NO. 9F000038 74572 3 00004 4 76176 TXH TPNRR,4,NCHAN DOES CHANNEL EXIST, NO. F0012440 74573 -0054 00 004000 LFT (TPER) IS THIS RETURN AFTER ERROR ON PRIOR CHECK.F0012450 74574 0020 00 0 76326 TRA DGRET *YES F0012460 F0012470 CHECK PRIOR ACTIVITY ON THIS UNIT F0012480 F0012490 ENTRY FOR IMMEDIATE CHECK OF CURRENT OPERATION F0012500 74575 -0500 00 1 77324 TAPR0 CAL UNITT+12,C PICK UP HISTORICAL FLAGS F0012510 74576 0100 00 0 75076 TZE TAPR9+7 *IS THERE ANY PRIOR HISTPRY.. F0012520 74577 0044 00 0 00000 PAI YES, LOAD HISTORICAL FLAGS. F0012530 74600 -0054 00 002000 LFT ONLNX IS THIS ON-LINE.. F0012540 74601 0020 00 0 75067 TRA TAPR9 *YES, EXIT. F0012550 74602 -0500 00 1 77325 CAL UNITT+13,C PICK UP HISTORICAL LOGICAL TAPE F0012560 74603 -0734 00 2 00000 PDX ,H NUMBER. F0012570 74604 -0054 00 020000 LFT (SKIP) IS THIS CHECK OF PRIOR TAPE SKIP FORWARD..F0012580 74605 0020 00 0 75051 TRA TAPR7 YES F0012590 F0012600 ACTIVITY WAS ON OR OFF LINE DATA TRANSMIT F0012610 74606 -0056 00 000001 LNT (W...) YES, IS THIS WRITE-SELECT OPERATION.. F0012620 74607 1 00020 2 74610 TXI *+1,H,NTAPE NO, BUMP LOGICAL TAPE NO. TO READ-BLOCK F0012630 74610 -0500 00 2 77452 CAL TERST,H INCREMENT RECORD COUNT, READ OR WRITTEN. F0012640 74611 0400 00 0 77157 ADD L(01) F0012650 74612 0601 00 2 77452 STO TERST,H F0012660 74613 2 00020 2 74614 TIX *+1,H,NTAPE BUMP LOGICAL TAPE NUMBER BACK. F0012670 F0012680 REENTRY TO CHECK AFTER REREADING/REWRITING RECORD F0012690 74614 -0625 00 0 75441 TAPR1 STL CHKIX SET RETURN FROM CHANNEL CHECKER ROUTINE F0012700 74615 0761 00 0 74617 NOP *+2 F0012710 74616 0020 00 0 75407 TRA CHKIO *CHECK PRIOR DATA TRANSMIT F0012720 74617 -0056 00 040000 LNT (DATA) IS THIS NON-DATA-TRANSMIT OPERATION.. F0012730 BINARY CARD NO. 9F000039 74620 0020 00 0 75067 TRA TAPR9 YES. F0012740 74621 -0054 00 000001 LFT (W...) NO, IS THIS WRITE.. F0012750 74622 0020 00 0 75014 TRA TAPRD YES F0012760 F0012770 PRIOR OPERATION WAS READ F0012780 74623 0634 00 2 74624 SXA *+1,H CONSTRUCT (SCHU) INDEX F0012790 74624 -0774 00 4 00000 TAPRF AXC **,4 BY COMPLEMENTED TAPENO. F0012800 74625 -0500 00 2 77673 CAL TAPNO,H PICK UP RESULTS OF F0012810 74626 0737 00 2 00000 PAC ,2 SCHX FOR PRIOR READ F0012820 74627 0500 00 2 00003 CLA 3,2 OF THIS TAPE FUNCTION. F0012830 74630 -0501 00 0 77155 ORA LSEVN ALLOW (SCHU) ARITMETIC. F0012840 74631 0601 00 4 73672 STO (SCHU),4 SAVE IN PROPER (SCHU) WORD. F0012850 74632 0621 00 0 77137 STA ERASA F0012860 74633 0534 00 2 74624 LXA TAPRF,H . F0012870 74634 0056 00 000004 RNT EOFIL WAS EOF SENSED.. F0012880 74635 -0520 00 1 77326 NZT UNITT+14,C NO, IS LABEL DELETED.. F0012890 74636 0020 00 0 74754 TRA TAPRB YES, DON'T CHECK NOISE ON UNLBLD RECORDS, F0012900 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 35 GENERAL I/O ROUTINES NOR ON LABELED EOF (IOEX HAS DONE IT ALREADY) F0012910 F0012920 74637 0734 00 4 00000 PAX ,4 F0012930 74640 0500 00 1 77313 CLA UNITT+3,C PREPARE TO COMPARE I/O COMMAND F0012940 74641 -0320 00 0 77153 ANA ADMSK WITH SCHX RESULTS. F0012950 74642 0340 00 0 77137 CAS ERASA WAS AN ACTUAL RECORD READ.. F0012960 74643 0020 00 0 74652 TRA TAPRA YES. F0012970 74644 0020 00 0 75030 TRA TAPR6 NO, LABEL ONLY. TRY AGAIN. F0012980 74645 -3 77206 4 74652 TXL TAPRA,4,LABEL MAYBE, IS ADDRESS BELOW LABEL BUFFER.. F0012990 BINARY CARD NO. 9F000040 74646 -0500 00 2 77432 CAL TERRT,H NO, INCREMENT NOISE RECORD COUNT. F0013000 74647 0400 00 0 77165 ADD D(01) ON READS. F0013010 74650 0602 00 2 77432 SLW TERRT,H . F0013020 74651 0020 00 0 75030 TRA TAPR6 *TRY AGAIN. F0013030 74652 0054 00 000110 TAPRA RFT REDUN+WMODE WAS REDUNDANCY SENSED READING DATA.. F0013040 74653 0020 00 0 74776 TRA TAPRC *YES. F0013050 74654 0500 00 1 77330 CLA UNITT+16,C NO, LOAD LABEL FLAG. F0013060 74655 -0120 00 0 75067 TMI TAPR9 SHOULD LABEL BE IGNORED. F0013070 74656 0500 00 1 77320 CLA UNITT+8,C PICK UP LABEL READ LAST TIME. F0013080 74657 0402 00 1 77326 SUB UNITT+14,C SUBTRACT THE REQUESTED LABEL. F0013090 74660 -0100 00 0 74665 TNZ POSR0 *ARE THEY THE SAME, NO.. F0013100 74661 0500 00 1 77321 CLA UNITT+9,C YES, PICK UP ACTUAL POSITION OF TAPE, F0013110 74662 0402 00 1 77327 SUB UNITT+15,C SUBTRACT WHAT IT SHOULD BE. F0013120 74663 -0100 00 0 74665 TNZ POSR0 *WAS CORRECT RECORD READ.. F0013130 74664 1 00020 2 75016 TXI TAPRE,H,NTAPE YES, CHECK CURRENT TEMPORARY RTT TOTAL. F0013140 F0013150 TAPE IS INCORRECTLY POSITIONED, TRY TO CORRECT IT F0013160 74665 -0500 00 1 77320 POSR0 CAL UNITT+8,C GET LABEL OF RECORD ACTUALLY READ. F0013170 74666 -0625 00 0 75324 STL NOENT SET FLAG FOR DUMMY SEARCH. F0013180 74667 0074 00 4 75262 TSX FINDL,4 *IS THERE A HISTORY OF IT.. F0013190 74670 0020 00 0 76212 TRA POSRR *NO, GO TO DIAGNOSTIC. F0013200 74671 0600 00 0 75324 STZ NOENT RESET SEARCH FLAG. F0013210 74672 0500 00 1 77321 CLA UNITT+9,C GET POSITION ACTUALLY READ. F0013220 74673 0621 00 0 77137 STA ERASA SAVE RECORD POSITION, F0013230 BINARY CARD NO. 9F000041 74674 0622 00 0 77140 STD ERASD AND FILE POSITION. F0013240 74675 0634 00 1 74717 SXA POSR3+1,C SAVE IR C. F0013250 74676 0500 00 1 77327 CLA UNITT+15,C GET POSITION WHERE TAPE SHOULD BE. F0013260 74677 -0320 00 0 77154 ANA DCMSK MASK OUT RECORD POSITION F0013270 74700 0402 00 0 77140 SUB ERASD COMPUTE THE FILE DIFFERENCE. F0013280 74701 0100 00 0 74720 TZE POSR3+2 *IS IT OFF BY ANY FILES, NO.. F0013290 74702 -0734 00 1 00000 PDX ,1 LOAD FILE DIFFERENCE. F0013300 74703 -0120 00 0 74710 TMI POSR2 *SHOULD ANY FILES BE BACKSPACED,YES.. F0013310 74704 0074 00 4 75451 POSR1 TSX IOPRQ,4 *NO, SKIP FORWARD NFILES. F0013320 74705 0 00000 2 74326 PZE SKIPR,2 F0013330 74706 2 00001 1 74704 TIX *-2,1,1 ALL FILES SPACED.. F0013340 74707 0020 00 0 74716 TRA POSR3 YES, CONTINUE BELOW. F0013350 74710 0774 00 4 00006 POSR2 AXT .BSF.,4 BACKSPACE NFILES. F0013360 74711 -0634 00 4 75610 SXD NDSEL,4 . F0013370 74712 0074 00 4 75606 TSX NONDT,4 . F0013380 74713 0074 00 4 75606 TSX NONDT,4 . F0013390 74714 2 00001 1 74713 TIX *-1,1,1 ALL FILES BACKSPACED.. F0013400 74715 0020 00 0 74704 TRA POSR1 YES, BUT GET OVER FILE MARK. F0013410 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 36 GENERAL I/O ROUTINES 74716 0634 00 0 77137 POSR3 ZSA ERASA ALL FILES ARE SPACED, CLEAR RECORD COUNT. F0013420 74717 0774 00 1 00000 AXT **,1 RESTORE IR C. F0013430 74720 0500 00 1 77327 CLA UNITT+15,C PICK UP PROPER TAPE POSITION. F0013440 74721 -0320 00 0 77153 ANA ADMSK SAVE ONLY RECORD COUNT F0013450 BINARY CARD NO. 9F000042 74722 0402 00 0 77137 SUB ERASA SUBTRACT ACTUAL RECORD POSITION. F0013460 74723 0734 00 1 00000 PAX ,1 LOAD RECORD COUNT DIFFERENCE. F0013470 74724 -0120 00 0 74732 TMI POSR5 *SHOULD ANY RECORDS BE BACKSPACED, YES.. F0013480 74725 -2 00001 1 74737 POSR4 TNX POSR6,1,1 NO, SHOULD ANY BE FORWARD SPACED.. F0013490 74726 0074 00 4 75451 TSX IOPRQ,4 *YES, SKIP FORWARD ONE RECORD. F0013500 74727 0 00000 2 74730 PZE *+1,2 F0013510 74730 3 77777 2 74731 IORTN *+1,,-1 I/O COMMAND TO SKIP RECORD (NOP). F0013520 74731 0020 00 0 74725 TRA POSR4 CONTINUE ON RECORD COUNT. F0013530 74732 0774 00 4 00005 POSR5 AXT .BSR.,4 BACKSPACE NRECORDS. F0013540 74733 -0634 00 4 75610 SXD NDSEL,4 . F0013550 74734 0074 00 4 75606 TSX NONDT,4 . F0013560 74735 0074 00 4 75606 TSX NONDT,4 . F0013570 74736 2 00001 1 74735 TIX *-1,1,1 ANY MORE RECORDS TO BACKSPACE.. F0013580 74737 0534 00 1 74717 POSR6 LXA POSR3+1,C RESTORE IR C. F0013590 74740 -0625 00 0 75441 STL CHKIX TAPE SHOULD BE POSITIONED F0013600 74741 0761 00 0 74743 NOP *+2 CORRECTLY. RESET ANY FLAGS. F0013610 74742 0020 00 0 75407 TRA CHKIO F0013620 74743 -0500 00 2 77673 CAL TAPNO,H INCREMENT POSITIONING ERROR COUNT. F0013630 74744 0400 00 0 77165 ADD D(01) F0013640 74745 0602 00 2 77673 SLW TAPNO,H F0013650 74746 0044 00 0 00000 PAI F0013660 74747 -0056 00 000062 LNT 62 HAVE THERE BEEN 50 POSITIONING ERRORS.. F0013670 BINARY CARD NO. 9F000043 74750 0020 00 0 75030 TRA TAPR6 *NO, TRY AGAIN. F0013680 74751 0441 00 0 73672 LDI (SCHU) YES, RELOAD FLAGS, F0013690 74752 0500 00 0 76304 CLA EXPOS AND PICK UP ERROR MESSAGE PARAMETERS. F0013700 74753 0020 00 0 76405 TRA IODGA *GO TO TAPE DIAGNOSTIC. F0013710 CHECK FOR REDUNDANCY READING UNLABELED DATA OR END FILE F0013730 F0013740 74754 0054 00 000114 TAPRB RFT REDUN+EOFIL+WMODE ANY TROUBLE.. F0013750 74755 0020 00 0 74761 TRA *+4 YES, ONE OR THE OTHER. F0013760 74756 -0054 00 002000 LFT ONLNX NO, WAS PRIOR OPERATION ON-LINE.. F0013770 74757 0020 00 0 75067 TRA TAPR9 YES, DO NOT INCREMENT COUNTERS. F0013780 74760 0020 00 0 75064 TRA UPDAT *NO. F0013790 74761 0054 00 000110 RFT REDUN+WMODE YES, WAS IT RTT OR WRONG MODE READ.. F0013800 74762 0020 00 0 74776 TRA TAPRC *YES, GO TO ERROR PROCEDURE F0013810 74763 -0754 00 0 00000 ZAC NO, SET END OF FILE FLAG. F0013820 74764 -0056 00 000010 LNT (...C) WAS DELAY AND CHECK REQUESTED.. F0013830 74765 -0760 00 0 00003 SSM NO, SET FLAG TO OMIT NEXT RECORD F0013840 74766 -0056 00 000004 LNT (..E.) IS EOF PROHIBITED.. F0013850 74767 0020 00 0 76155 TRA TEFER *YES, PRINT ERROR COMMENT. F0013860 74770 0601 00 4 73672 STO (SCHU),4 NO, SET END FILE FLAG F0013870 74771 -0500 00 2 77331 CAL POINT,H PICK UP CURRENT POSITION F0013880 74772 -0320 00 0 77154 ANA DCMSK PRESERVE FILE POSITION. F0013890 74773 0400 00 0 77145 ADD INITL INCREMENT FILE COUNT AND SET F0013900 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 37 GENERAL I/O ROUTINES 74774 0602 00 2 77331 SLW POINT,H RECORD POSITION. F0013910 74775 0020 00 0 75067 TRA TAPR9 CLEAR HISTORICAL BUFFER, AND EXIT. F0013920 F0013930 REDUNDANCY READING. F0013940 F0013950 BINARY CARD NO. 9F000044 74776 0534 00 2 74624 TAPRC LXA TAPRF,H RELOAD HISTORICAL LOGICAL TAPENO. F0013960 74777 0054 00 000100 RFT WMODE WAS TROUBLE A WRONG MODE READ.. F0013970 75000 -0520 00 1 77323 NZT UNITT+11,C YES, WAS THERE AN ERROR RETURN.. F0013980 75001 0020 00 0 76260 TRA RDPRR **NOT WRONG MODE, OR NO ERROR RETURN. F0013990 75002 0074 00 4 00704 TSX (NDATA,4 WRONG MODE READ WITH ERROR RETURN. F0014000 75003 0 00005 2 77673 PZE TAPNO,H,.BSR. BACKSPACE BEFORE THE RECORD READ WELL. F0014010 75004 0500 00 1 77323 CLA UNITT+11,C PICK UP HISTORIC ERRET F0014020 75005 0602 00 2 77351 SLW ERRET,H FOR ERROR RETURN. F0014030 75006 0535 00 4 74624 LAC TAPRF,4 SAVE FLAGS IN PROPER (SCHU). F0014040 75007 0604 00 4 73672 STI (SCHU),4 . F0014050 75010 -0500 00 2 77372 CAL TERTT,H REDUCE RTT COUNTER ON READS. F0014060 75011 0402 00 0 77157 SUB L(01) . F0014070 75012 0602 00 2 77372 SLW TERTT,H . F0014080 75013 0020 00 0 75067 TRA TAPR9 *EXIT ON WRONG MODE READ SIGNAL. F0014090 F0014100 PRIOR ACTIVITY WAS WRITE F0014110 75014 0054 00 000002 TAPRD RFT EOTAP WAS END TAPE SENSED.. F0014120 75015 0020 00 0 76224 TRA ETERR *YES F0014130 F0014140 TEMPORARY RTT POSSIBLY SENSED F0014150 75016 0441 00 2 77412 TAPRE LDI TERCT,H LOAD ERROR COUNTS FOR TESTING. F0014160 75017 2 00020 2 75024 TIX TAPR3,H,NTAPE *BUMP HISTORIC TAPENO BACK ON READ F0014170 F0014180 ERROR ON WRITE SELECT, POSSIBLY F0014190 75020 0056 00 000036 RNT 36 IS CUMULATIVE ERROR COUNT 30 FOR THIS TAPEF0014200 75021 0020 00 0 75064 TRA UPDAT *NO. F0014210 75022 0500 00 0 76234 CLA WTXRM YES, PICK UP ERROR MESSAGE PARAMETERS. F0014220 75023 0020 00 0 75153 TRA TAPRG *GO CLEAR OUT COUNT (25)F0014230 F0014240 ERROR ON A READ SELECT, POSSIBLY F0014250 BINARY CARD NO. 9F000045 75024 0056 00 000062 TAPR3 RNT 62 IS CUMULATIVE ERROR COUNT 50 ON THIS TAPE.F0014260 75025 0020 00 0 75064 TRA UPDAT *NO. F0014270 75026 0500 00 0 76247 CLA RDXRM YES, PICK UP ERROR MESSAGE PARAMETERS, F0014280 75027 0020 00 0 76261 TRA RDPRR+1 *GO TO DIAGNOSTIC. F0014290 RETRY READING ONLY LABEL READ OR MISPOSITIONED PREVIOUSLY F0014310 F0014320 75030 0534 00 2 74624 TAPR6 LXA TAPRF,H PICK UP HISTORIC LOGICAL TAPNO. F0014330 75031 0774 00 4 77312 AXT UNITT+2,4 F0014340 75032 -0520 00 1 77326 NZT UNITT+14,C SHOULD WE EXPECT A LABEL.. F0014350 75033 0774 00 4 77313 AXT UNITT+3,4 NO, BYPASS LABEL READING. F0014360 75034 -0634 00 1 75035 SXD *+1,C . F0014370 75035 2 00000 4 75036 TIX *+1,4,** . F0014380 75036 0634 00 4 75047 SXA TAPRS,4 SET UP ORIGIN OF I/O COMMAND SEQUENCE. F0014390 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 38 GENERAL I/O ROUTINES 75037 -0500 00 1 77311 CAL UNITT+1,C SET UP MODE. F0014400 75040 0767 00 0 00014 ALS 12 . F0014410 75041 0625 00 0 75047 STT TAPRS . F0014420 75042 0441 00 1 77324 LDI UNITT+12,C CHECK FOR WRITE/READ OPERATION. F0014430 75043 0500 00 0 75047 CLA TAPRS PICK UP PARAMETER FOR SPECIAL ENTRY (MODE)F0014440 75044 -0054 00 000001 LFT (W...) IS THIS WRITE.. F0014450 75045 -0760 00 0 00003 SSM YES, SET FLAG. F0014460 75046 0074 00 4 75453 TSX IOPRQ+2,4 *RETRY. F0014470 75047 0 75466 0 00000 TAPRS QZE **,**,IOPSL . F0014480 75050 0020 00 0 74614 TRA TAPR1 *CHECK THIS RETRY. F0014490 *************************************************************F0014510 F0014520 CHECK PRIOR TAPE SPACE FORWARD OPERATION F0014530 F0014540 75051 -0625 00 0 75450 TAPR7 STL CHSKX SET RETURN FROM SKIP CHECKER ROUTINE F0014550 BINARY CARD NO. 9F000046 75052 0761 00 0 75054 NOP *+2 F0014560 75053 0020 00 0 75443 TRA CHSKP *CHECK FINAL SKIP F0014570 75054 0500 00 1 77313 CLA UNITT+3,C PICK UP SKIP PARAMETER. F0014580 75055 0734 00 4 00000 PAX ,4 LOAD RECORD COUNT. F0014590 75056 0054 00 000004 RFT EOFIL WAS EOF SENSED.. F0014600 75057 0020 00 0 75062 TRA TAPR8 YES F0014610 75060 -3 00000 4 76143 TXL MEFER,4,0 *NO. WERE RECORDS SPACED FORWARD, NO. F0014620 75061 0020 00 0 75067 TRA TAPR9 *YES, VALID SKIP PERFORMED. F0014630 F0014640 CHECK FINAL RECORD SPACED FORWARD F0014650 75062 -3 00000 4 75067 TAPR8 TXL TAPR9,4,0 WERE ANY RECORDS SPACED.. F0014660 75063 0020 00 0 76155 TRA TEFER *YES, UNEXPECTED EOF, GIVE MESSAGE. F0014670 F0014680 F0014690 *************************************************************F0014700 TERMINAL ROUTINE TO UPDATE COUNTERS AND F0014710 CLEAR THE HISTORIC BUFFER. F0014720 F0014730 ENTRY FOR TAPE DATA TRANSMIT F0014740 75064 -0500 00 2 77331 UPDAT CAL POINT,H PICK UP PREVIOUS TAPE POSITION AND F0014750 75065 0400 00 0 77157 ADD L(01) INCREMENT RECORD COUNT. F0014760 75066 0602 00 2 77331 SLW POINT,H SAVE NEW TAPE POSITION. F0014770 F0014780 ENTRY FOR TAPE NON-DATA AND ON-LINE SELECTS F0014790 75067 0600 00 1 77311 TAPR9 STZ UNITT+1,C CLEAR HISTORIC BUFFER FOR THIS CHANNEL. F0014800 75070 0600 00 1 77323 STZ UNITT+11,C . F0014810 75071 0600 00 1 77324 STZ UNITT+12,C . F0014820 75072 0600 00 1 77325 STZ UNITT+13,C . F0014830 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 39 GENERAL I/O ROUTINES 75073 0600 00 1 77326 STZ UNITT+14,C . F0014840 75074 0600 00 1 77327 STZ UNITT+15,C . F0014850 75075 0600 00 1 77330 STZ UNITT+16,C . F0014860 75076 -0534 00 2 77202 LXD CURTP+2,T RESTORE CURRENT TAPENO FOR ERROR TEST, ETCF0014870 75077 0441 00 0 77201 LDI CURTP+1 LOAD CURRENT INSTRUCTION,,FLAGS (1,4) F0014880 BINARY CARD NO. 9F000047 75100 -0054 00 003000 LFT ONLNX+(SNAP) IS THIS ON-LINE OR SNAP.. F0014890 75101 0020 00 0 75115 TRA TAPRX-1 *YES, NO ERROR RETURN POSSIBLE. F0014900 75102 0500 00 2 77351 CLA ERRET,T ANY ERROR ON THIS LOGICAL TAPE.. F0014910 75103 0100 00 0 75111 TZE TAPRW *IS THERE STILL AN ERROR RETURN.. F0014920 75104 0621 00 0 75106 STA *+2 YES, ERROR OCCURED, INITIALIZE RETURN. F0014930 75105 -0625 00 0 73755 STL IORLX SET RETURN FROM CHANNEL RESTORE ROUTINE F0014940 75106 0761 00 0 00000 NOP ** TO ERROR RETURN. F0014950 75107 0600 00 2 77351 STZ ERRET,T DELETE ERROR FLAG. F0014960 75110 0020 00 0 73737 TRA IOSEX *RELOAD ALL REGISTERS. F0014970 75111 0500 00 2 77331 TAPRW CLA POINT,T PICK UP CURRENT TAPE POSITION. F0014980 75112 0602 00 0 77204 SLW CURTP+4 SET DATA POSITION FOR THIS REQUEST. F0014990 75113 -0056 00 000001 LNT (W...) IS THIS A WRITE OPERATION.. F0015000 75114 0602 00 2 77331 SLW POINT,T NO, RESET POSSIBLE WRITE FLAG. F0015010 75115 -0046 00 0 00000 PIA RESTORE CALLER 1,4. F0015020 75116 0020 60 0 00000 TAPRX TRA* ** *EXIT, TO ISSUE CURRENT REQUEST, ETC. F0015030 F0015040 F0015050 DISK LIBRARY READING F0015060 F0015070 007400 WITHOT BOOL 07400 (33)F0015080 007401 WITH BOOL 07401 (33)F0015083 75117 -0056 00 020000 TDISK LNT (SKIP) IS THIS (SKIP) (33)F0015086 75120 0074 00 4 75124 TDISKP TSX MNDSK,4 NO, INITIALIZE XR4 FOR CALLTR (33)F0015090 75121 0774 00 4 07401 AXT WITH,4 YES, RESET SWITCH FOR FIRST TIME (33)F0015100 75122 -0634 00 4 75141 SXD CALLDR,4 ... (33)F0015110 75123 0020 00 0 74434 TRA TAPEX RETURN (33)F0015120 75124 -0054 00 010010 MNDSK LFT (...C)+(CHKU) SHOULD WE READ NOW (33)F0015130 75125 1 72263 4 75131 TXI TDSK3,4,TDSK5+TDISKP (33)F0015140 YES,SET XR4 FOR CALLTR (33)F0015150 BINARY CARD NO. 9F000048 75126 -0625 00 0 75130 STL TWR NO, REMEMBER READ CALL (33)F0015160 75127 0020 00 0 74434 TRA TAPEX RETURN (33)F0015170 75130 0 00000 0 00000 TWR PZE SET NON-ZERO ON READ AND PROCEED (33)F0015180 75131 -0056 00 010000 TDSK3 LNT (CHKU) IS THIS CHECK UNIT (33)F0015190 75132 0020 00 0 75135 TRA *+3 NO (33)F0015191 75133 -0520 00 0 75130 NZT TWR YES, WAS THERE A PRECEDING READ (33)F0015192 AND PROCEED (33)F0015200 75134 0020 00 0 74442 TRA CHKTO NO, RETURN (33)F0015210 75135 0600 00 0 75130 STZ TWR SET TO ALL READS DONE (33)F0015220 75136 0604 00 0 77135 STI ERAS1 SAVE INDICATORS (33)F0015230 75137 0634 00 4 00100 CALLTR SXA SYSTRA,4 SET RETURN FROM SYSLDR (33)F0015240 75140 -0625 00 0 73673 STL (SCHU)+SYSTAP SET NO EOF, RESET BY SCATTER-LOAD (33)F0015250 D 75141 0074 01 4 00121 CALLDR TSX SYSLDR,4,1 READ NEXT RECORD, NOTE THAT DECRMENT (33)F0015260 MAY BE MODIFIED (33)F0015270 75142 112643000001 BCI 1,9FL001 (33)F0015280 75143 0774 00 4 73767 TDSK5 AXT LOAD1,4 RESTORE LOADING RETURN (33)F0015290 75144 0634 00 4 00100 SXA SYSTRA,4 ... (33)F0015300 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 40 GENERAL I/O ROUTINES 75145 0774 00 4 07400 AXT WITHOT,4 SET CALLDR TO NOT FIRST READ (33)F0015310 75146 -0634 00 4 75141 SXD CALLDR,4 ... (33)F0015320 75147 0441 00 0 77135 LDI ERAS1 RESTORE INDICATORS (33)F0015325 75150 -0056 00 010000 LNT (CHKU) WAS THIS CHECK UNIT (33)F0015326 75151 0020 00 0 74434 TRA TAPEX NO, TAKE READ RETURN (33)F0015330 75152 0020 00 0 74442 TRA CHKTO YES, TAKE (CHKU) RETURN (33)F0015331 ********************************************************$F0015340 PATCH TO PERMIT WRITE REDUNDANCY RECOVERY (25)F0015345 75153 0600 00 2 77412 TAPRG STZ TERCT,H CLEAR '30 REDUNDANCY' COUNT (25)F0015350 BINARY CARD NO. 9F000049 75154 0020 00 0 76261 TRA RDPRR+1 FROM HISTORY CELL (25)F0015355 75155 0074 00 4 75451 IODGK TSX IOPRQ,4 WRITE TRAILER RECORD ON (25)F0015360 75156 -0 00000 0 75166 MZE IODGL OUTPUT TAPE (25)F0015370 75157 -0625 00 0 75441 STL CHKIX DELAY WITH NO ACTION (25)F0015380 75160 0774 00 0 75162 AXT *+2,0 (25)F0015390 75161 0020 00 0 75407 TRA CHKIO (25)F0015400 75162 0074 00 4 00704 TSX (NDATA,4 WRITE ANOTHER END OF FILE (25)F0015410 75163 0 00007 2 77673 TAPNO,T,.WEF. (25)F0015420 75164 0020 00 0 76436 TRA IODGH-3 END OF TAPE RETURN (25)F0015430 75165 0020 00 0 76436 TRA IODGH-3 NORMAL (25)F0015440 75166 3 00004 0 75167 IODGL IORT *+1,,4 (25)F0015450 75167 012546516060 BCI 4,1EOR END OF OUTPUT REEL (25)F0015460 75173 0074 00 4 00704 IODGN TSX (NDATA,4 REWIND TAPE TO CLEAR IOEX (25)F0015470 75174 0 00003 2 77673 TAPNO,T,.REW. EOT SIGNAL FROM UCB (25)F0015480 75175 0020 00 0 76471 TRA IODGM+4 (25)F0015490 75176 DUP 1,32 PATCH SPACE (25)F0015500 75176 0 00000 0 00000 PZE (25)F0015510 BINARY CARD NO. 9F000050 BINARY CARD NO. 9F000051 ********************************************************$F0015920 75236 -0634 00 2 77202 AVPCH SXD CURTP+2,T SAVE LOGICAL TAPE NUMBER. $F0015930 75237 -0056 00 000002 LNT (SUAV)*(SUNV)-(CHKU) IS THIS SYSUAV CALL.. $F0015940 75240 0020 00 0 74125 TRA TAPCK+1 *NO, TO CHECK UNIT $F0015950 75241 -0534 00 1 77673 LXD TAPNO,1 GET NUMBER OF TAPES $F0015960 TEST TAPE NUMBER GIVEN IN CALL $F0015970 75242 0522 00 0 74540 XEC TPNRT *(TXH TPNRR,T,**) $F0015980 75243 0044 00 0 00000 PAI SAVE FLAGS FOR TEST $F0015990 75244 -3 00000 2 75246 TXL SUAV1,T,0 WAS TAPE NO. GIVEN.. $F0016000 75245 -0534 00 1 77202 LXD CURTP+2,1 YES,USE IT $F0016010 75246 -3 00012 1 74442 SUAV1 TXL CHKTO,1,10 EXIT IF TAPE NO. BELOW 11 $F0016020 CHANGE ABOVE TEST IF STRUCTURE OF IOPUN IS ALTERED $F0016030 75247 -0520 00 1 77673 NZT TAPNO,1 DOES TAPE (UCB) EXIST.. $F0016040 75250 0020 00 0 75260 TRA SUAV3 *NO,SKIP IT $F0016050 75251 0441 60 1 77673 LDI* TAPNO,1 OBTAIN UCB WORD ONE $F0016060 75252 -0057 00 400000 RIL 400000 AND SET UNAVAILABLE $F0016070 75253 0760 00 0 00001 LBT IS THAT WHAT WAS WANTED.. $F0016080 75254 0020 00 0 75257 TRA *+3 *YES $F0016090 75255 -0056 00 040000 LNT 40000 NO,IS UNIT RESERVED.. $F0016100 BINARY CARD NO. 9F000052 75256 -0055 00 400000 SIL 400000 MAKE AVAILABLE IF NOT $F0016110 75257 0604 60 1 77673 STI* TAPNO,1 SAVE NEW UCB ONE $F0016120 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 41 GENERAL I/O ROUTINES 75260 3 00000 2 74442 SUAV3 TXH CHKTO,T,0 *WAS TAPE NO. GIVEN.. $F0016130 75261 1 77777 1 75246 TXI SUAV1,1,-1 *NO,CONTINUE FOR ALL UNITS $F0016140 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 42 GENERAL I/O ROUTINES *************************************************************F0016160 F0016170 SUBROUTINE TO LOCATE DATA POSITION F0016180 F0016190 75262 0634 00 4 75322 FINDL SXA FIND5,4 SAVE CALLING LINKAGE. F0016200 75263 0774 00 4 00120 AXT TABSZ,4 LOAD LENGTH OF TABLE OF CONTENTS. F0016210 75264 -0520 00 0 75324 FIND0 NZT NOENT IS THE LABEL IN THE CURRENT BUFFER. F0016220 75265 -0500 00 0 77203 FIND1 CAL CURTP+3 YES, OTHERWISE ALREADY IN AC. F0016230 75266 -0340 00 4 77572 FIND2 LAS TABLE,4 DOES LABEL MATCH THIS ENTRY. F0016240 75267 0020 00 0 75271 TRA *+2 NO. F0016250 75270 0020 00 0 75274 TRA FIND3 YES, NAMES ARE THE SAME. F0016260 75271 2 00002 4 75264 TIX FIND0,4,2 *NO. IS THE TABLE EXHAUSTED, NO CONTINUE. F0016270 75272 0534 00 4 75322 LXA FIND5,4 YES, NO PRIOR HISTORY. RESTORE LINKAGE. F0016280 75273 0020 00 4 00001 TRA 1,4 *TAKE NOT FOUND RETURN TO CALLER. F0016290 75274 -0634 00 4 75313 FIND3 SXD FIND4,4 SAVE INDEX VALUE FOR THIS ENTRY. F0016300 75275 0520 00 0 75324 ZET NOENT SHOULD THE CURRENT BUFFER BE UPDATED. F0016310 75276 0020 00 0 75322 TRA FIND5 NO. F0016320 75277 0500 00 4 77573 CLA TABLE+1,4 YES, GET POSITION OF DATA. F0016330 75300 0322 00 0 77142 ERA TPNUM MASK OUT TAPE ADDRESS. F0016340 75301 0765 00 0 00014 LRS 12 SHIFT TAPE NUMBER INTO DECREMENT FIELD. F0016350 75302 0622 00 0 75325 STD FINDE STORE TAPE NUMBER FOR TEST. F0016360 75303 0520 00 0 75325 ZET FINDE HAS THE RIGHT DATA ON THE RIGHT F0016370 BINARY CARD NO. 9F000053 75304 0020 00 0 75271 TRA FIND2+3 *UNIT BEEN FOUND. NO, CONTINUE SEARCH. F0016380 75305 0763 00 0 00014 LLS 12 YES, RETRIEVE REST OF THE RECORD COUNT. F0016390 75306 0560 00 4 77573 LDQ TABLE+1,4 LOAD THE DATA POSITION INTO THE MQ. F0016400 75307 -0054 00 020000 LFT (SKIP) IS THIS A TAPE REPOSITION OPERATION.. F0016410 75310 0020 00 0 75317 TRA FIND4+4 *YES, SET POSITION ACCORDING TO HISTORY. F0016420 75311 -0340 00 0 77204 LAS CURTP+4 DOES CURRENT TAPE POSITION MATCH HISTORY. F0016430 75312 0602 00 0 77204 SLW CURTP+4 NO, TAPE MUST BE MISPOSITIONED. F0016440 75313 1 00000 0 75317 FIND4 TXI *+4,,** YES. DECREMENT HAS INDEX TO THIS ENTRY. F0016450 75314 -0056 00 000001 LNT (W...) IS THIS A WRITE OPERATION.. F0016460 75315 0162 00 0 75312 TQP *-3 *NO. IS THIS A MULTIPLE RECORD FILE, NO. F0016470 75316 -0500 00 0 77204 CAL CURTP+4 YES, GET LATEST TAPE POSITION. F0016480 75317 -0534 00 4 77202 LXD CURTP+2,4 LOAD LOGICAL TAPE NUMBER. F0016490 75320 0621 00 4 77331 STA POINT,4 UPDATE CURRENT TAPE POSITION. F0016500 75321 0622 00 4 77331 STD POINT,4 F0016510 75322 0774 00 4 00000 FIND5 AXT **,4 RESTORE LINKAGE. F0016520 75323 0020 00 4 00002 TRA 2,4 *TAKE FOUND EXIT TO CALLER. F0016530 F0016540 75324 0 00000 0 00000 NOENT PZE ** INDICATES STRICT SEARCH. F0016550 75325 0 00000 0 00000 FINDE PZE ,,** DECREMENT ERASABLE FOR FIND SUBROUTINE. F0016560 F0016570 F0016580 SUBROUTINE TO UPDATE THE DICTIONARY F0016590 F0016600 75326 0634 00 4 75376 ENTER SXA ENTR7,4 SAVE CALLING LINKAGE. F0016610 75327 -0534 00 4 77202 LXD CURTP+2,4 LOAD LOGICAL TAPE NUMBER. F0016620 75330 0500 00 4 77331 CLA POINT,4 GET CURRENT UNIT POSITION. F0016630 75331 -0501 00 0 77142 ORA TPNUM INCLUDE LOGICAL TAPE NUMBER WITH F0016640 BINARY CARD NO. 9F000054 75332 0602 00 0 77135 SLW ERAS1 POSITION AND SAVE. F0016650 75333 0502 00 4 77331 CLS POINT,4 GET CURRENT UNIT POSITION. F0016660 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 43 GENERAL I/O ROUTINES 75334 0120 00 0 75354 TPL ENTR4 *WAS LAST OPERATION A WRITE, YES. F0016670 75335 0601 00 4 77331 STO POINT,4 NO, SET WRITE FLAG. F0016680 75336 0774 00 4 00120 AXT TABSZ,4 LOAD DICTIONARY LENGTH. F0016690 75337 0500 00 4 77573 ENTR1 CLA TABLE+1,4 GET AN ENTRY. F0016700 75340 0100 00 0 75353 TZE ENTR3 *IS THERE AN ENTRY, NO. F0016710 75341 -0340 00 0 77135 LAS ERAS1 DOES THIS WRITE OVER-WRITE DATA. F0016720 75342 0020 00 0 75345 TRA *+3 POSSIBLY. F0016730 75343 0020 00 0 75351 TRA ENTR2 *YES. F0016740 75344 0020 00 0 75353 TRA ENTR3 NO. F0016750 75345 0322 00 0 77142 ERA TPNUM MAYBE. DELETE LOGICAL TAPE NUMBER F0016760 75346 0771 00 0 00014 ARS 12 FROM ENTRY. SHIFT TAPE NUMBER TO F0016770 75347 -0320 00 0 77154 ANA DCMSK DECREMENT FIELD AND MASK OUT REST. F0016780 75350 -0100 00 0 75353 TNZ ENTR3 *IS THIS THE SAME LOGICAL TAPE, NO. F0016790 75351 0600 00 4 77572 ENTR2 STZ TABLE,4 DELETE THIS ENTRY FROM THE F0016800 75352 0600 00 4 77573 STZ TABLE+1,4 DICTIONARY. F0016810 75353 2 00002 4 75337 ENTR3 TIX ENTR1,4,2 *HAS THE ENTIRE DICTIONARY BEEN SEARCHED. F0016820 75354 0520 00 0 75324 ENTR4 ZET NOENT IS THIS STRICTLY AN UPDATE. F0016830 75355 0020 00 0 75376 TRA ENTR7 *YES, DO NOT ENTER DATA. F0016840 75356 0074 00 4 75262 TSX FINDL,4 IS THIS A MULTIPLE RECORD FILE. F0016850 75357 0020 00 0 75364 TRA ENTR5 *NO, UNIQUE LABEL. F0016860 BINARY CARD NO. 9F000055 75360 -0534 00 4 75313 LXD FIND4,4 YES, LOAD ENTRY POSITION IN DICTIONARY. F0016870 75361 0500 00 4 77573 CLA TABLE+1,4 GET DATA POSITION WORD AND F0016880 75362 -0760 00 0 00003 SSM SET THE SIGN MINUS TO INDICATE THAT F0016890 75363 0020 00 0 75375 TRA ENTR6+3 IT IS A MULTIPLE RECORD. F0016900 75364 0774 00 4 00120 ENTR5 AXT TABSZ,4 LOAD DICTIONARY LENGTH. F0016910 75365 -0520 00 4 77572 NZT TABLE,4 IS THIS LOCATION AVAILABLE. F0016920 75366 0020 00 0 75372 TRA ENTR6 *YES. F0016930 75367 2 00002 4 75365 TIX *-2,4,2 *NO. IS TABLE EXHAUSTED, NO CONTINUE. F0016940 75370 0500 00 0 75400 CLA OVRFL YES, GET ERROR MESSAGE PARAMETERS. F0016950 75371 0020 00 0 76361 TRA IODG0 *GO TO DIAGNOSTIC. F0016960 75372 -0500 00 0 77203 ENTR6 CAL CURTP+3 GET BCD LABEL AND F0016970 75373 0602 00 4 77572 SLW TABLE,4 ADD TO DICTIONARY. F0016980 75374 0500 00 0 77135 CLA ERAS1 GET DATA POSITION AND INSERT F0016990 75375 0601 00 4 77573 STO TABLE+1,4 IN DICTIONARY WITH NAME. F0017000 75376 0774 00 4 00000 ENTR7 AXT **,4 RESTORE LINKAGE. F0017010 75377 0020 00 4 00001 TRA 1,4 *RETURN TO CALLER. F0017020 F0017030 75400 0 77135 0 75401 OVRFL PZE *+1,,ERAS1 LOC. OF PRINT PARAMETERS,,LABEL INSERT. F0017040 75401 0 00005 0 75402 PZE *+1,,5 LOCATION OF MESSAGE,, WORD COUNT. F0017050 75402 602431236331 BCI 5, DICTIONARY OVERFLOW IN IOP. F0017060 BINARY CARD NO. 9F000056 F0017070 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 44 GENERAL I/O ROUTINES ************************************************************************F0017090 F0017100 SUBROUTINE TO NOTE STATUS OF CHANNEL TRIGGERS F0017110 F0017120 IR H CONTAINS HISTORICAL LOGICAL TAPENO F0017130 (SCHU) WILL CONTAIN TRIGGER FLAGS F0017140 F0017150 F0017160 BIT 28 BEGINNING OF FILE $F0017165 BIT 29 RECORD READ IN WRONG MODE F0017170 30 CHECK COMPLETED F0017180 31 I/O CHECK (NOT AVAILABLE) F0017190 32 REDUNDANCY CHECK (READ ONLY) F0017200 33 END OF FILE F0017210 34 END OF TAPE F0017220 35 BEGINNING OF TAPE F0017230 F0017240 F0017250 75407 0057 00 777777 CHKIO RIR 777777 CLEAR INSTRUCTION FROM INDICATORS. F0017260 75410 0055 00 000150 SIR 150 PRESET INDICATORS. F0017270 75411 -0500 00 2 77673 CAL TAPNO,H DELAY TILL PRIOR SELECT IS F0017280 75412 0737 00 4 00000 PAC ,4 COMPLETED FOR F0017290 75413 0520 00 4 00001 ZET 1,4 THIS TAPE F0017300 75414 0020 00 0 75413 TRA *-1 FUNCTION. F0017310 75415 -0520 00 4 00002 NZT 2,4 COMPLETED, TEST FOR BTT. F0017320 75416 0055 00 000001 SIR LODPT UCB3 IS ZERO, ASSUME LOAD POINT (BIT 35). F0017330 75417 0500 00 4 00000 CLA 0,4 TEST FOR EOT F0017340 75420 -0320 00 0 75417 ANA *-1 AS INDICATED IN UCB1, BIT 18. F0017350 75421 0100 00 0 75423 TZE *+2 NO EOT SENSED.. F0017360 75422 0055 00 000002 SIR EOTAP END OF TAPE WAS SENSED, (BIT 34 ON). F0017370 75423 0500 00 4 00003 CLA 3,4 TEST FOR EOF F0017380 75424 0120 00 0 75426 TPL *+2 AS INDICATED IN UCB4, BIT S. F0017390 75425 0055 00 000004 SIR EOFIL END OF FILE WAS SENSED, (BIT 33 ON). F0017400 75426 0767 00 0 00001 ALS 1 TEST FOR RTT (READ ONLY) F0017410 75427 -0760 00 0 00001 PBT RTT SENSED.. F0017420 75430 0057 00 000010 RIR REDUN NO RTT SENSED, (BIT 32 OFF). F0017430 75431 0767 00 0 00001 ALS 1 TEST FOR WRONG MODE READ. F0017440 75432 -0760 00 0 00001 PBT . F0017450 75433 0057 00 000100 RIR WMODE NOT READ IN WRONG MODE (BIT 29 OFF). F0017460 BINARY CARD NO. 9F000057 75434 -0500 00 4 00002 CAL 2,4 CHECK BOF $F0017461 75435 -0320 00 0 75442 ANA REC $F0017462 75436 -0100 00 0 75440 TNZ *+2 IS THIS BOF $F0017463 75437 0055 00 000200 SIR BOFBIT YES BIT 28=1 $F0017464 75440 0604 00 0 73672 STI (SCHU) SAVE FLAGS. F0017470 75441 0020 60 0 00000 CHKIX TRA* ** *RETURN. F0017480 75442 +000000777777 REC OCT 777777 $F0017485 F0017490 F0017500 CHECK SKIP OPERATION F0017510 75443 -0625 00 0 75441 CHSKP STL CHKIX SET RETURN FROM CHANNEL CHECK ROUTINE F0017520 75444 0761 00 0 75446 NOP *+2 F0017530 75445 0020 00 0 75407 TRA CHKIO *CHECK THIS SKIP FORWARD OPERATION F0017540 75446 0054 00 000010 RFT REDUN WAS TAPE REDUNDANCY SENSED.. F0017550 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 45 GENERAL I/O ROUTINES 75447 0020 00 0 76273 TRA SKPRR *YES, PRINT ERROR MESSAGE F0017560 75450 0020 60 0 00000 CHSKX TRA* ** F0017570 *************************************************************F0017580 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 46 READ/WRITE TRANSLATOR ROUTINE TO ENTER TAPE ACTION REQUEST TO IOEX F0017600 CALLING SEQUENCE F0017620 F0017630 TSX IOPRQ,4 F0017640 QZE IOSEQ,MODE F0017650 F0017660 WHERE F0017670 F0017680 QZE = PZE FOR READ F0017690 = MZE FOR WRITE F0017700 F0017710 IOSEQ IS THE LOCATION OF AN I/O COMMAND SEQUENCEF0017720 F0017730 MODE = 0 FOR BCD F0017740 = 2 FOR BINARY F0017750 MODE USUALLY APPEARS IN TAG OF L(SL) F0017760 IR2 (CALLED T) POINTS TO WORD WITH L(UCB)IN ADDRF0017780 F0017790 F0017800 F0017810 75451 0500 00 4 00001 IOPRQ CLA 1,4 PICK UP PARAMETER. F0017820 75452 -0501 00 0 77146 ORA L(SL) MASK IN THE LOCATION OF SEL ROUTINES. F0017830 ENTRY POINT TO AVOID SEL WORD WORD MODE SETTING F0017840 75453 0634 00 4 75464 SXA IOPRX,4 SAVE LINKAGE. F0017850 75454 0131 00 0 00000 XCA SAVE SEL WORD. F0017860 75455 -0500 00 2 77673 CAL TAPNO,T LOCATE PROPER UCB WORD2, F0017870 75456 0737 00 4 00000 PAC ,4 THROUGH THE I/O FUNCTION TABLE. F0017880 75457 0520 00 4 00001 ZET 1,4 DELAY TILL F0017890 75460 0020 00 0 75457 TRA *-1 UNIT TRAPS AND IS FREED. F0017900 75461 -0600 00 4 00001 STQ 1,4 INSERT NEXT REQUEST IN UCB 2, F0017910 F0017920 BINARY CARD NO. 9F000058 75462 0074 00 4 00702 TSX (ACTIV,4 ENTER REQUEST FOR TAPE F0017930 75463 0 00000 2 77673 PZE TAPNO,T ACTIVITY AND CONTINUE ON THE WAY. F0017940 75464 0774 00 4 00000 IOPRX AXT **,4 RETURN TO F0017950 75465 0020 00 4 00002 TRA 2,4 *CALLER. F0017960 SEL ROUTINE ENTERED FROM IOEX F0017980 F0017990 75466 0634 00 4 75517 IOPSL SXA IOPSX,4 SAVE IOEX LINKAGE. F0018000 75467 0737 00 4 00000 PAC ,4 FORM INDEXIC POINTER TO UCB. F0018010 75470 -0120 00 0 75524 TMI IOPSM IS IT POSTING TIME .. F0018020 75471 -0500 00 4 00000 CAL 0,4 NO, SEL(+) MUST INITIATE I/O SEQUENCE. F0018030 75472 -0734 00 2 00000 PDX ,2 PICK UP TAPE-ADDRESS. F0018040 75473 0500 00 4 00001 CLA 1,4 SET ORIGIN OF I/O COMMAND F0018050 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 47 READ/WRITE TRANSLATOR 75474 0621 60 0 00727 STA* (RCHXI SEQUENCE (IR1 POINTS TO CHANNEL). F0018060 75475 0625 00 0 75510 STT IOPSI SET POSSIBLE WRONG MODE READ TEST. F0018070 75476 0625 00 0 75477 STT *+1 PREPARE TO MODIFY TAPE ADDRESS. F0018080 75477 -3 00000 0 75501 TXL *+2,**,0 IS MODE TO BE BINARY.. F0018090 75500 1 00020 2 75501 TXI *+1,2,16 YES F0018100 75501 -0120 00 0 75521 TMI IOPSW IS THIS READ SELECT.. F0018110 75502 0600 60 1 75602 STZ* IOPLB,1 RESET NOISE RECORD TEST, LABEL+2. F0018120 75503 0600 00 1 75576 STZ IOPER,1 TURN OFF WRONG MODE SWITCH, PROVISIONALLY.F0018130 75504 -0500 60 0 00725 CAL* (URRXI PICK UP NUMBER OF SEL(+) REENTRIES. F0018140 75505 0734 00 4 00000 PAX ,4 TEST FOR FIRST REENTRY. F0018150 75506 3 00001 4 75514 TXH *+6,4,1 . F0018160 75507 -3 00000 4 75514 TXL *+5,4,0 . F0018170 BINARY CARD NO. 9F000059 75510 3 00000 0 75512 IOPSI TXH *+2,**,0 FIRST TIME, WHAT WAS THE MODE.. F0018180 75511 1 00020 2 75513 TXI *+2,2,16 BCD, INVERT TO BINARY. F0018190 75512 2 00020 2 75513 TIX *+1,2,16 BINARY, INVERT TO BCD. F0018200 75513 -0625 00 1 75576 STL IOPER,1 SET MODE INVERSION ATTEMPT FLAG. F0018210 75514 0634 00 2 75515 SXA *+1,2 F0018220 75515 0762 00 0 00000 RDS ** SELECT TAPE UNIT F0018230 75516 0522 60 0 00727 XEC* (RCHXI AND RESET-LOAD CHANNEL. F0018240 75517 0774 00 4 00000 IOPSX AXT **,4 LOAD LINKAGE AND F0018250 75520 0020 00 4 00001 TRA 1,4 *RETURN TO IOEX. F0018260 75521 0634 00 2 75522 IOPSW SXA *+1,2 F0018270 75522 0766 00 0 00000 WRS ** SELECT TAPE UNIT F0018280 75523 0020 00 0 75516 TRA IOPSX-1 AND CONTINUE ABOVE. F0018290 75524 -0500 00 4 00003 IOPSM CAL 3,4 PICK UP LOGICAL TAPENO F0018310 75525 -0734 00 2 00000 PDX ,2 OF TRAPPING UNIT (UCB4). F0018320 75526 0520 60 1 75602 ZET* IOPLB,1 TEST FOR NOISE. F0018330 75527 -0055 00 400000 SIL 400000 FULL LABEL READ, RESET POSSIBLE NOISE FLAGF0018340 75530 -0054 00 440000 LFT 440000 IS THERE AN IOEX NOISE FLAG,READING.. (28)F0018350 75531 0020 00 0 75542 TRA IOPSN *NO, OR ELSE WE HAD TO RESET IT. F0018360 75532 -0500 00 2 77432 CAL TERRT,2 NOISE RECORD, INCREMENT COUNTER. F0018370 75533 0400 00 0 77165 ADD D(01) . F0018380 75534 0622 00 2 77432 STD TERRT,2 . F0018390 75535 0534 00 4 75517 LXA IOPSX,4 TAKE NOISE RECORD READ RETURN (28)F0018400 BINARY CARD NO. 9F000060 75536 0020 00 4 00002 TRA 2,4 *COMMENT 'NOISE DISCARDED' (28)F0018401 75537 0520 00 0 00135 IOPSP ZET .MODSW TEST FOR DC-IOEX (28)F0018402 75540 -0625 00 1 75576 STL IOPER,1 YES, SET WRONG MODE READ (28)F0018403 75541 0020 00 0 75557 TRA IOPSF-3 (28)F0018410 75542 -0054 00 200000 IOPSN LFT 200000 DO NOT TEST FOR RTT IF F0018420 75543 0020 00 0 75562 TRA IOPSF *EOF OR EOT WAS SENSED. F0018430 75544 -0054 00 100000 LFT 100000 TEST FOR PERMANENT RTT ON READ. F0018440 75545 1 00020 2 75537 TXI IOPSP,2,NTAPE PERMANENT RTT READING (28)F0018450 75546 0500 60 0 00725 CLA* (URRXI WERE THERE ANY RTT OR ERASE AREAS.. F0018460 75547 0100 00 0 75562 TZE IOPSF *NO. F0018470 75550 -0056 00 040000 LNT 040000 YES, HAVE WE JUST WRITTEN .. F0018480 75551 1 00020 2 75557 TXI *+6,2,NTAPE NO, IT WAS A BAD READ. F0018490 75552 0621 00 0 75575 STA ERASS YES, INCREMENT NUMBER OF ERASE AREAS F0018500 75553 -0500 00 2 77412 CAL TERCT,2 WRITTEN. F0018510 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 48 READ/WRITE TRANSLATOR 75554 0400 00 0 75575 ADD ERASS BY CURRENT NUMBER OF ERASES. F0018520 75555 0602 00 2 77412 SLW TERCT,2 . F0018530 75556 0020 00 0 75562 TRA IOPSF *CONTINUE BELOW. F0018540 75557 -0500 00 2 77412 CAL TERCT,2 INCREMENT READ RTTS. F0018550 75560 0400 00 0 77157 ADD L(01) . F0018560 75561 0621 00 2 77412 STA TERCT,2 . F0018570 75562 -0500 00 0 00736 IOPSF CAL (COMMM SAVE LAST SCHX RESULTS, F0018580 75563 0621 00 4 00003 STA 3,4 IN UCB4. F0018590 BINARY CARD NO. 9F000061 75564 -0057 00 040000 RIL 040000 RESET POSSIBLE WRITE FLAG. F0018600 75565 0520 00 1 75576 ZET IOPER,1 WAS THERE A SUCCESSFUL WRONG MODE READ. F0018610 75566 -0055 00 140000 SIL 140000 YES, SET WRONG MODE AND RTT BITS ON. F0018620 75567 0600 00 1 75576 STZ IOPER,1 RESET FLAG. F0018630 75570 -0046 00 0 00000 PIA SAVE EOF/EOT, PERM RTT, TEMP RTT, F0018640 75571 0767 00 0 00001 ALS 1 AND WRONF MODE FLAGS (IF ANY). F0018650 75572 0630 00 4 00003 STP 3,4 . F0018660 75573 0600 00 4 00001 STZ 1,4 HALT FURTHER ACTION ON THIS UNIT NOW. F0018670 75574 0020 00 0 75517 TRA IOPSX *RETURN TO IOEX. F0018680 75575 0 00000 0 00000 ERASS PZE ** COUNT OF ERASE ENTRIES TO SEL (+) F0018690 75576 DUP 1,NCHAN F0018710 75576 0 00000 0 00000 IOPER PZE WRONG MODE FLAGS F0018720 75602 0 00000 0 77302 IOPLB PZE UNITT+10-16 NOISE RECORD TEST POINTERS F0018730 75603 0 00000 0 77262 PZE UNITT+10-32 F0018740 75604 0 00000 0 77242 PZE UNITT+10-48 F0018750 75605 0 00000 0 77222 PZE UNITT+10-64 F0018760 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 49 NON-DATA SELECT ROUTINES NON-DATA SELECT ROUTINE F0018780 F0018790 CALLING SEQUENCE F0018800 F0018810 AXT OP,4 F0018820 SXD NDSEL,4 F0018830 TSX NONDT,4 F0018840 F0018850 WHERE F0018860 OP = 1 THROUGH 6 FOR SDNL...BSF F0018870 (WEF SELECT HANDLED UNIQUELY) F0018880 F0018890 F0018900 75606 0634 00 4 75611 NONDT SXA NONDX,4 SAVE LINKAGE. F0018910 75607 0074 00 4 00704 TSX (NDATA,4 *TAPE FUNCTION NOW INACTIVE, F0018920 75610 0 00000 2 77673 NDSEL PZE TAPNO,T,** PERFORM NON-DATA OPERATION. F0018930 75611 0774 00 4 00000 NONDX AXT **,4 F0018940 BINARY CARD NO. 9F000062 75612 0020 00 4 00001 TRA 1,4 *RETURN. F0018950 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 50 ON-LINE ROUTINES ROUTINE TO PRINT ON-LINE VIA IOEX F0018970 F0018980 75613 0502 00 0 77156 PRNT0 CLS L(00) PREPARE FOR VARIOUS TYPE LINES. F0018990 75614 0601 00 0 75672 STO PRNT6 . F0019000 75615 0601 00 0 75673 STO PRNT6+1 . F0019010 75616 0774 00 2 77775 AXT -3,T SET TAPENO INDEX TO PRINTER UNIT POINTER. F0019020 75617 -0625 00 0 75116 STL TAPRX CHECK PRIOR ACTIVITY AND PREPARE F0019030 75620 0761 00 0 75622 NOP *+2 FOR THIS CALL TO PRINT. F0019040 75621 0020 00 0 74512 TRA ONLNC . F0019050 75622 -0734 00 4 00000 PDX ,4 IS WORD COUNT ZERO.. F0019060 75623 -3 00000 4 74442 TXL CHKTO,4,0 *IF ZERO, EXIT. F0019070 F0019080 75624 0441 00 0 77143 LDI ONLIN SET HISTORICAL FLAGS F0019090 75625 -0055 00 000003 SIL 3 FOR PRINTER FUNCTION F0019100 75626 0604 00 1 77324 STI UNITT+12,C AND SAVE IN PROPER CHANNEL TABLE. F0019110 75627 0044 00 0 00000 PAI PLACE PARAMETER IN INDICATORS. F0019120 75630 0560 60 0 77201 LDQ* CURTP+1 $F0019130 75631 -0600 00 0 77135 STQ ERAS1 SAVE PROGRAM CONTROLCHARACTER $F0019140 75632 -0054 00 400000 LFT 400000 IS PROGRAM CONTRAL REQUIRED $F0019150 75633 0020 00 0 75652 TRA PRNT3 NO $F0019160 75634 -0754 00 0 00000 ZAC YES, SPACE UNDER PARTIAL PROG CONTROL F0019170 75635 0763 00 0 00005 LLS 5 OBTAIN CONTROL CHARACTER. F0019180 75636 -0120 00 0 75647 TMI PRNT2 SINGLE SPACE (B) .. F0019190 75637 0774 00 2 04000 AXT DBLSP,2 NO, DOUBLE SPACE (0) .. F0019200 BINARY CARD NO. 9F000063 75640 0100 00 0 75644 TZE *+4 YES. F0019210 75641 0774 00 2 01000 AXT EJECT,2 . F0019220 75642 0760 00 0 00001 LBT NO, EJECT (1).. F0019230 75643 -3 00014 4 75663 TXL PRNT4,4,12 NO, MUST BE SPACE SUPPRESS (+). F0019240 75644 -0634 00 2 75672 SXD PRNT6,2 SET CARRIAGE CONTROL PARAMETER F0019250 75645 -0754 00 0 00000 ZAC F0019260 75646 0630 00 0 75672 STP PRNT6 F0019270 75647 0502 00 0 77164 PRNT2 CLS L(16) RESET FIRST CHARACTER F0019280 75650 0765 00 0 00005 LRS 5 OF BCD MESSAGE F0019290 75651 -0600 60 0 77201 STQ* CURTP+1 TO BLANK. F0019300 75652 -0046 00 0 00014 PRNT3 PIA 12 F0019310 75653 -2 00014 4 75667 TNX PRNT5,4,12 SPLIT LINE INTO CYCLE BLOCKS (1-72). F0019320 75654 -0634 00 4 75674 SXD PRNT6+2,4 SET COUNT OF SECOND CYCLE BLOCK (73-120) F0019330 75655 0601 00 0 75673 STO PRNT6+1 SET BASE OF FIRST CYCLE BLOCK. F0019340 75656 0401 00 0 75652 ADM PRNT3 SET BASE+12 FOR BASE OF F0019350 75657 0621 00 0 75674 STA PRNT6+2 SECOND CYCLE BLOCK. F0019360 75660 0774 00 4 11014 AXT 12+SUPRS,4 SET SPACE SUPPRESS FOR F0019370 75661 -0634 00 4 75673 SXD PRNT6+1,4 SECOND CYCLE BLOCK. F0019380 75662 0020 00 0 75670 TRA PRINT F0019390 75663 1 11000 4 75664 PRNT4 TXI *+1,4,SUPRS SUPPRESS SPACING ON SHORT LINE. F0019410 75664 0604 00 0 75674 STI PRNT6+2 SET MESSAGE ORIGIN, F0019420 75665 -0634 00 4 75674 SXD PRNT6+2,4 SET WORD COUNT AND SPR EXIT PARAMETER. F0019430 BINARY CARD NO. 9F000064 75666 0020 00 0 75670 TRA PRINT F0019440 F0019450 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 51 ON-LINE ROUTINES 75667 0602 00 0 75674 PRNT5 SLW PRNT6+2 72 OR LESS CHARACTERS IN MESSAGE, F0019460 F0019470 75670 0074 00 4 00706 PRINT TSX (PROUT,4 *PRINT MESSAGE ON-LINE VIA IOEX. F0019480 75671 0 00000 0 00003 PZE 3 F0019490 75672 0 00000 0 00000 PRNT6 QZE ,,** PRE-PRINT CARRIAGE CONTROL. F0019500 75673 0 00000 0 00000 QZE **,,** MAY BE MZE 0, AND IGNORED. F0019510 75674 0 00000 0 00000 PZE **,,** F0019520 75675 0560 00 0 77135 LDQ ERAS1 RESTORE CONTROL CHARACTER F0019540 75676 -0600 60 0 77201 STQ* CURTP+1 TO ORIGINAL BCD TEXT. F0019550 75677 0020 00 0 74442 TRA CHKTO *RETURN TO CALLER (2,4). F0019560 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 52 ON-LINE ROUTINES F0019580 PUNCH CARDS ON-LINE F0019590 F0019600 75700 0774 00 2 77776 PNCH0 AXT -2,T LOAD PUNCH UNIT POINTER. F0019610 75701 -0625 00 0 75116 STL TAPRX GET PARAMETERS. F0019620 75702 0761 00 0 75704 NOP *+2 F0019630 75703 0020 00 0 74512 TRA ONLNC . F0019640 75704 0441 00 0 77143 LDI ONLIN SET HISTORICAL FLAG F0019660 75705 -0055 00 000001 SIL 1 FOR ON-LINE F0019670 75706 0604 00 1 77324 STI UNITT+12,C PUNCH. F0019680 F0019690 75707 -0734 00 4 00000 PDX ,4 F0019700 75710 3 00000 4 75713 TXH *+3,4,0 IS WORD COUNT ZERO.. F0019710 75711 0060 00 0 75711 PDELY TCOA * YES, DELAY TILL FINISHED. F0019720 75712 0020 00 0 74442 TRA CHKTO *EXIT. F0019730 75713 0044 00 0 00000 PAI F0019740 BINARY CARD NO. 9F000065 75714 -0054 00 100000 LFT 100000 HOLLERITH.. F0019750 75715 0020 00 0 76001 TRA PNCH4 YES, USE IOEX ROUTINES. F0019760 75716 0602 00 0 76004 SLW PNCH4+3 SAVE I/O COMMAND. F0019770 75717 0535 00 4 00146 LAC SYSPCH,4 PICK UP LOCATION OF PUNCH UCB. F0019780 75720 0500 00 0 75721 CLA *+1 SET PRIORITY WORD. F0019790 75721 3 75726 0 00000 BRN ,,*+5 F0019800 75722 0601 00 4 00001 STO 1,4 F0019810 75723 0074 00 4 00702 TSX (ACTIV,4 ENTER ACTIV FOR IMMEDIATE REQUEST. F0019820 75724 -0 00000 0 00146 MZE SYSPCH F0019830 75725 0020 00 0 74442 TRA CHKTO GO AWAY TILL SEL (+). F0019840 75726 0634 00 4 76011 SXA PNCH6,4 SAVE LINKAGE. F0019850 75727 0634 00 1 76012 SXA PNCH6+1,1 F0019860 75730 -0500 00 0 76004 CAL PNCH4+3 PICK UP I/O PARAMETER. F0019870 75731 0044 00 0 00000 PAI F0019880 75732 0766 00 0 00341 PUNSL WPU ** SELECT PUNCH F0019890 75733 -0056 00 400000 LNT 400000 IS COLUMN BINARY REQUESTED.. F0019900 75734 0020 00 0 75774 TRA PNCH3 NO, PUNCH ROW BINARY. F0019910 F0019920 75735 0400 00 0 77163 ADD L(12) YES, PREPARE TO ROTATE IMAGE. F0019930 75736 0621 00 0 76022 STA BBUFF F0019940 75737 0400 00 0 77163 ADD L(12) F0019950 75740 0621 00 0 76023 STA BBUFF+1 F0019960 75741 -0625 00 0 76014 STL QPNC3 SET SELECT INSTRUCTION TO PUNCH OUT F0019970 BINARY CARD NO. 9F000066 75742 0761 00 0 76017 PNCH2 NOP IOCBI FROM COLUMN BINARY BUFFER F0019980 75743 0774 00 4 00014 AXT 12,4 PREPARE TO PUNCH 12 ROWS ON COL BIN CARD F0019990 75744 -0500 00 0 76015 CAL CBMSK PICK UP CONVERSION MASK F0020000 75745 0602 00 0 77136 PNCH1 SLW ERAS2 SAVE CURRENT POSITION OF MASK F0020010 75746 0774 00 2 00002 AXT 2,2 SET LEFT HALF F0020020 75747 0600 00 2 76022 STZ PLEFT+2,2 CLEAR THIS HALF ROW F0020030 75750 0774 00 1 00014 AXT 12,1 PREPARE TO ROTATE 12 WORDS OF ROW IMAGE F0020040 75751 -0500 60 2 76024 CAL* BBUFF+2,2 GET NEXT WORD F0020050 75752 -0320 00 0 77136 ANA ERAS2 EXTRACT BITS FOR THIS COLUMN F0020060 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 53 ON-LINE ROUTINES 75753 0771 00 4 00014 ARS 12,4 ASSEMBLE ROW IMAGE OF COLUMN F0020070 75754 -0765 00 0 00001 LGR 1 F0020080 75755 0771 00 0 00013 ARS 11 F0020090 75756 -0765 00 0 00001 LGR 1 F0020100 75757 0771 00 0 00013 ARS 11 F0020110 75760 -0765 00 0 00001 LGR 1 F0020120 75761 -0500 00 2 76022 CAL PLEFT+2,2 PICK UP PARTIALLY CONVERTED ROW F0020130 75762 -0763 00 0 00003 LGL 3 APPEND THIS ROW BITS IN COLUMN IMAGE F0020140 75763 0602 00 2 76022 SLW PLEFT+2,2 F0020150 75764 2 00001 1 75751 TIX PNCH1+4,1,1 IS ROW BINARY WORD COUNT EXHAUSTED F0020160 75765 2 00001 2 75747 TIX PNCH1+2,2,1 YES, IS RIGHT HALF DONE F0020170 75766 0522 00 0 76014 XEC QPNC3 YES, PUNCH LEFT, RIGHT HALVES THIS ROW F0020180 75767 0544 00 0 75742 PUNLL LCHA PNCH2 DELAY TILL ROW IS PUNCHED (COMMAND RESET).F0020190 BINARY CARD NO. 9F000067 75770 -2 00001 4 76006 TNX PNCH5,4,1 IS COLUMN BINARY ROW COUNT EXHAUSTED.. F0020200 75771 -0500 00 0 77136 CAL ERAS2 NO, REPOSITION CONVERSION MASK F0020210 75772 0767 00 0 00001 ALS 1 F0020220 75773 0020 00 0 75745 TRA PNCH1 LOOP FOR MORE. F0020230 F0020240 75774 0601 00 0 76016 PNCH3 STO IORBI INITIALIZE I/O COMMAND F0020250 75775 -0625 00 0 76014 STL QPNC3 SET SELECT INSTRUCTION TO PUNCH OUT F0020260 75776 0761 00 0 76016 NOP IORBI FROM ROW BINARY BUFFER F0020270 75777 0522 00 0 76014 XEC QPNC3 PUNCH OUT CARD F0020280 76000 0020 00 0 76007 TRA PNCH5+1 *RETURN AS THOUGH THROUGH SEL(-). F0020290 F0020300 76001 0601 00 0 76004 PNCH4 STO *+3 SET PARAMETER FOR IOEX F0020310 76002 0074 00 4 00707 TSX (PUNCH,4 TO PUNCH HOLLERITH F0020320 76003 0 00000 0 00001 PZE 1 F0020330 76004 0 00000 0 00000 PZE **,,** CARDS ON-LINE. F0020340 76005 0020 00 0 74442 TRA CHKTO *RETURN TO CALLER (2,4). F0020350 F0020360 F0020370 76006 0540 00 0 77156 PNCH5 RCHA L(00) STOP PUNCH. F0020380 76007 0535 00 4 00146 LAC SYSPCH,4 RESET PRIORITY WORD. F0020390 76010 0600 00 4 00001 STZ 1,4 . F0020400 76011 0774 00 4 00000 PNCH6 AXT **,4 RETURN TO IOEX, NON-DATA F0020410 76012 0774 00 1 00000 AXT **,1 F0020420 76013 0020 00 4 00002 TRA 2,4 *RETURN. F0020430 F0020440 76014 0540 60 0 00000 QPNC3 RCHA* ** RESET LOAD CHAN. COMM. FOR PUNCH(INDIRECT)F0020450 76015 0 00100 0 10001 CBMSK PZE 4097,,64 MASK TO CONVERT ROW TO COLUMN BIN. IMAGE F0020460 BINARY CARD NO. 9F000068 76016 -1 00000 0 00000 IORBI IOCT **,,** COMMAND FOR ROW BINARY OUTPUT BUFFER F0020470 76017 -1 00002 0 76020 IOCBI IOCT PLEFT,,2 COMMAND FOR COL. BINARY OUTPUT BUFFER F0020480 76020 0 00000 0 00000 PLEFT PZE COLUMN BINARY, LEFT-HALF BUFFER F0020490 76021 0 00000 0 00000 PZE COLUMN BINARY, RIGHT-HALF BUFFER F0020500 76022 0 00000 1 00000 BBUFF PZE **,1 POINTERS TO LEFT/RIGHT F0020510 76023 0 00000 1 00000 PZE **,1 HALVES OF CARD TO BE ROTATED. F0020520 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 54 SNAPSHOTS F0020540 SNAPSHOT ROUTINE F0020550 F0020560 76024 0774 00 2 00011 SNAP0 AXT SNPTAP,T RESTORE SNAP INDEX POINTER $F0020570 76025 0520 00 0 73663 ZET (SNCT) ARE THERE ANY PREVIOUS SNAPSHOTS $F0020580 76026 0020 00 0 76036 TRA SNAP2 YES $F0020590 76027 0774 00 4 00003 AXT .REW.,4 NO, MAKE SURE SNAP-TAPE $F0020600 76030 -0634 00 4 75610 SXD NDSEL,4 IS REWOUND $F0020610 76031 0074 00 4 75606 TSX NONDT,4 $F0020620 76032 0441 60 0 73660 LDI* (FGBX) LOAD MONITOR FLAGS $F0020630 76033 0055 00 000002 SIR 2 SET UP SNAP-SHOT FLAG $F0020640 76034 0604 60 0 73660 STI* (FGBX) SAVE MONITOR FLAGS $F0020650 76035 0441 00 0 77201 LDI CURTP+1 RESTORE (SNAP) INDICATOR $F0020660 76036 -0500 00 0 77203 SNAP2 CAL CURTP+3 IS THERE A LABEL FOR THIS SNAP-SHOT $F0020670 76037 -0100 00 0 76041 TNZ *+2 YES F0020680 76040 -0500 00 0 77147 CAL BLNKS NO, SUPPLY BLANKS F0020690 76041 0602 00 0 76115 SLW SNAPA+2 FOR HEADING F0020700 76042 0500 00 0 73663 CLA (SNCT) INCREMENT SNAP COUNTER F0020710 76043 0400 00 0 77157 ADD L(01) . F0020720 BINARY CARD NO. 9F000069 76044 0601 00 0 73663 STO (SNCT) F0020730 76045 0074 00 4 00716 TSX (DECVA,4 *CONVERT THIS SNAP NUMBER TO BCD, F0020740 76046 -0600 00 0 76120 STQ SNAPA+5 INSERT IN HEADING, F0020750 76047 0074 00 4 75451 SNAP3 TSX IOPRQ,4 F0020760 76050 -0 00000 2 76113 MZE SNAPA,2 F0020770 76051 -0625 00 0 77050 STL DGSV4 SET RETURN FROM DUMP SAVE ROUTINE F0020780 76052 0761 00 0 76054 NOP *+2 F0020790 76053 0020 00 0 76774 TRA DGSV0 *SAVE CONSOLE F0020800 76054 0074 00 4 75451 TSX IOPRQ,4 WRITE CONSOLE. F0020810 76055 -0 00000 2 76121 MZE SNAPB,2 F0020820 76056 -0534 00 4 77202 LXD CURTP+2,4 LOAD PARAMETER COUNT. F0020830 76057 -3 00000 4 76074 TXL SNAP5,4,0 IS MERELY THE CONSOLE REQUESTED.. F0020840 76060 0500 00 1 77313 SNAP4 CLA UNITT+3,C NO, SOME CORE DUMPING IS REQUIRED. F0020850 76061 0621 00 0 76123 STA SNAPD INITIALIZE I/O COMMAND LOAD POINT, F0020860 76062 0622 00 0 76123 STD SNAPD AND WORD COUNT. F0020870 76063 0634 00 4 76071 SXA *+6,4 SAVE LOOPER. F0020880 76064 0074 00 4 75451 TSX IOPRQ,4 *WRITE OUT A BIT OF CORE. F0020890 76065 -0 00000 2 76122 MZE SNAPC,2 . F0020900 76066 -0625 00 0 75441 STL CHKIX DELAY ON THIS WRITE. F0020910 76067 0761 00 0 76071 NOP *+2 . F0020920 76070 0020 00 0 75407 TRA CHKIO . F0020930 76071 0774 00 4 00000 AXT **,4 RESTORE LOOPER. F0020940 BINARY CARD NO. 9F000070 76072 1 77777 1 76073 TXI *+1,C,-1 BUMP TO NEXT SNAP PARAMETER. F0020950 76073 2 00001 4 76060 TIX SNAP4,4,1 CONTINUE SNAPPING. F0020960 76074 0774 00 2 00002 SNAP5 AXT 2,2 WRITE TWO EOFS. F0020970 76075 0074 00 4 00704 TSX (NDATA,4 . F0020980 76076 0 00007 0 77662 PZE TAPNO-SNPTAP,,.WEF. F0020990 76077 0761 00 0 00000 NOP EOT ON WEFING, SAVE FLAG FOR LATER. F0021000 76100 2 00001 2 76075 TIX *-3,2,1 SECOND EOF. F0021010 76101 0074 00 4 00704 SNAP6 TSX (NDATA,4 BACKSPACE OVER SECOND EOF. F0021020 76102 0 00005 0 77662 PZE TAPNO-SNPTAP,,.BSR. F0021030 76103 0074 00 4 00706 TSX (PROUT,4 *PRINT SNAPPY COMMENT. F0021040 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 55 SNAPSHOTS 76104 0 00000 0 00001 PZE 1 . F0021050 76105 0 00004 0 76115 PZE SNAPA+2,,4 . F0021060 76106 -0625 00 0 77120 STL DGLD2 SET RETURN FROM RELOADING ROUTINE. F0021070 76107 0761 00 0 76111 NOP *+2 $F0021080 76110 0020 00 0 77075 TRA DGLD0 *RESTORE CONSOLE. F0021090 76111 0441 00 0 77201 LDI CURTP+1 $F0021095 76112 0020 00 0 74434 TRA TAPEX $F0021096 76113 3 00005 0 76114 SNAPA IORT *+1,,5 F0021100 76114 016060606060 BCI 5,1 LABELX SNAPSHOT F0021110 BINARY CARD NO. 9F000071 76121 3 00011 0 77052 SNAPB IORT DGSV5+1,,9 F0021120 76122 -0 00001 0 76123 SNAPC IOCP *+1,,1 F0021130 76123 3 00000 0 00000 SNAPD IORT **,,** F0021140 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 56 DIAGNOSTICS I/O DIAGNOSTIC ROUTINES F0021170 F0021180 ON ENTRY TO ERROR ROUTINE, THE FOLLOWING DATA EXIST F0021190 UNITT+16,1 (ADDR) CONTAINS HISTORIC CALLING LINKAGE F0021200 CURTP+5 (ADDR) CURRENT, IF NO HISTORIC F0021210 UNITT+13,1 (DECR) CONTAINS HISTORIC LOGICAL TAPE NUMBER F0021220 CURTP+2 (DECR) CURRENT, IF NO HISTORIC F0021230 XR2 CONTAINS LOGICAL TAPE NUMBER F0021240 XR1 CONTAINS UNITT INDEX F0021250 F0021260 F0021270 76124 0 77135 0 76125 FLERM PZE *+1,,ERAS1 F0021280 76125 0 00004 0 76126 PZE *+1,,4 F0021290 76126 314343252721 BCI 4,ILLEGAL OP CODE FOR IOP. F0021300 F0021310 76132 0500 00 0 76134 RWERR CLA RWERM GET PRINT PARAMETERS F0021320 76133 0020 00 0 76405 TRA IODGA GO TO TAPE DIAGNOSTIC F0021330 F0021340 76134 0 77135 0 76135 RWERM PZE *+1,,ERAS1 F0021350 76135 0 00005 0 76136 PZE *+1,,5 F0021360 76136 466463476463 BCI 5,OUTPUT TAPE MAY NOT BE REWOUND. F0021370 F0021380 F0021390 76143 0500 00 0 76145 MEFER CLA MEFEM EOF MISSING SKIPPING FILES. F0021400 76144 0020 00 0 76406 TRA IODGB GO TO TAPE DIAGNOSTIC. F0021410 F0021420 76145 0 76154 0 76146 MEFEM PZE *+1,,MEFEM+7 $F0021430 BINARY CARD NO. 9F000072 76146 0 00006 0 76147 PZE *+1,,6 $F0021440 76147 454660254626 BCI 5,NO EOF SENSED FILE SPACING TO $F0021450 76154 606060606060 BCI 1, F0021460 F0021470 76155 0500 00 0 76161 TEFER CLA TEFEM UNEXPECTED EOF SENSED. F0021480 76156 -0054 00 020000 LFT (SKIP) READING OR SPACING. F0021490 76157 0500 00 0 76166 CLA TEFRM SPACING. F0021500 76160 0020 00 0 76406 TRA IODGB GO TO TAPE DIAGNOSTIC. F0021510 F0021520 76161 0 76165 0 76162 TEFEM PZE *+1,,TEFEM+4 LOC. OF PRINT PARAMETERS,,LABEL INSERT $F0021530 76162 0 00003 0 76163 PZE *+1,,3 $F0021540 76163 602546266062 BCI 3, EOF SENSED $F0021550 F0021560 76166 0 76175 0 76167 TEFRM PZE *+1,,TEFRM+7 F0021570 76167 0 00006 0 76170 PZE *+1,,6 F0021580 76170 254626606225 BCI 5,EOF SENSED SPACING RECORDS TO F0021590 BINARY CARD NO. 9F000073 76175 606060606060 BCI 1, F0021600 F0021610 76176 0754 00 2 00000 TPNRR PXA ,T GET ILLEGAL TAPE NUMBER. F0021620 76177 0074 00 4 00716 TSX (DECVA,4 *CONVERT TO BCD F0021630 76200 -0600 00 0 76206 STQ TPNRM+3 SET IN COMMENT $F0021640 76201 0500 00 0 76203 CLA TPNRM GET PARAMETERS. F0021650 76202 0020 00 0 76361 TRA IODG0 GO TO ON-LINE DIAGNOSTIC. F0021660 F0021670 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 57 DIAGNOSTICS 76203 0 77135 0 76204 TPNRM PZE *+1,,ERAS1 F0021680 76204 0 00005 0 76205 PZE *+1,,5 $F0021690 76205 606321472560 BCI 5, TAPE NOT IN I/O TABLE. $F0021700 F0021710 F0021720 INCORRECT TAPE LABEL READ. F0021730 76212 0500 00 0 76214 POSRR CLA POSRM GET PARAMETERS. F0021740 76213 0020 00 0 76406 TRA IODGB GO TO TAPE DIAGNOSTIC. F0021750 F0021760 76214 0 76223 0 76215 POSRM PZE *+1,,POSRM+7 LOC. OF PRINT PARAMETERS,,LABEL INSERT F0021770 76215 0 00006 0 76216 PZE *+1,,6 F0021780 76216 604746623163 BCI 6, POSITIONING ERROR READING F0021790 BINARY CARD NO. 9F000074 F0021800 76224 0500 00 0 76226 ETERR CLA ETERM END OF TAPE SENSED. F0021810 76225 0020 00 0 76406 TRA IODGB GO TO TAPE DIAGNOSTIC. F0021820 F0021830 76226 0 76233 0 76227 ETERM PZE *+1,,ETERM+5 LOC.OF PRINT PARAMETERS,,LABEL INSERT $F0021840 76227 0 00004 0 76230 PZE *+1,,4 $F0021850 76230 254524604626 BCI 4,END OF TAPE SENSED $F0021860 F0021870 F0021880 F0021890 76234 0 77135 0 76235 WTXRM PZE *+1,,ERAS1 LOC. OF PRINT PARAMETERS,,NO LABEL. F0021900 76235 0 00011 0 76236 PZE *+1,,9 F0021910 76236 604446512560 BCI 9, MORE THAN 30 REDUNDANCY CHECKS WRITING THIS TAPE. F0021920 F0021930 76247 0 77135 0 76250 RDXRM PZE *+1,,ERAS1 LOC. OF PRINT PARAMETERS,, NO LABEL. F0021940 BINARY CARD NO. 9F000075 76250 0 00007 0 76251 PZE *+1,,7 F0021950 76251 466525516005 BCI 7,OVER 50 REDUNDANCIES READING THIS TAPE. F0021960 F0021970 76260 0500 00 0 76263 RDPRR CLA RDPRM PERMANENT READ REDUNDANCY. F0021980 76261 0441 00 0 73672 LDI (SCHU) RELOAD INDICATORS (NOW HAVE ERROR COUNTS).F0021990 76262 0020 00 0 76406 TRA IODGB GO TO TAPE DIAGNOSTIC. F0022000 F0022010 76263 0 76272 0 76264 RDPRM PZE *+1,,RDPRM+7 F0022020 76264 0 00006 0 76265 PZE *+1,,6 F0022030 76265 472551442145 BCI 5,PERMANENT REDUNDANCY READING F0022040 76272 606060606060 BCI 1, F0022050 F0022060 76273 0500 00 0 76275 SKPRR CLA SKPRM PICK UP ERROR MESSAGE FOR SKIPPING. F0022070 76274 0020 00 0 76406 TRA IODGB GO TO TAPE DIAGNOSTIC. F0022080 F0022090 76275 0 76303 0 76276 SKPRM PZE *+1,,SKPRM+6 LOC. OF PRINT PARAMETERS,,LABEL INSERT. $F0022100 BINARY CARD NO. 9F000076 76276 0 00005 0 76277 PZE *+1,,5 $F0022110 76277 512524644524 BCI 5,REDUNDANCY CHECK SPACING $F0022120 F0022130 76304 0 77135 0 76305 EXPOS PZE *+1,,ERAS1 LOC. OF PRINT PARAMETERS,, NO LABEL. F0022140 76305 0 00005 0 76306 PZE *+1,,5 PRINT PARAMETERS. F0022150 76306 602567232562 BCI 5, EXCESSIVE POSITIONING ERRORS. F0022160 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 58 DIAGNOSTICS F0022170 76313 0441 00 0 73736 NODAT LDI IOSVR+4 PICK UP INDICATORS FOR CURRENT COMMAND $F0022171 76314 0604 00 0 73672 STI (SCHU) AND PLACE FOR POSSIBLE CHECK. $F0022172 76315 0500 00 0 76317 CLA NDATA GET PARAMETERS. $F0022180 76316 0020 00 0 76405 TRA IODGA GO TO DIAGNOSTIC. F0022190 F0022200 76317 0 76322 0 76320 NDATA PZE *+1,,NDATA+3 LOC) OF PRINT PARAMETERS,,LABEL INSERT. F0022210 76320 0 00005 0 76321 PZE *+1,,5 PRINT PARAMETERS. F0022220 76321 606060606060 BCI 5, DOES NOT EXIST. F0022230 BINARY CARD NO. 9F000077 F0022240 RETURN ON PRIOR ERROR OR I/O RELATED ERROR (TPER) F0022250 F0022260 76326 0534 00 4 77205 DGRET LXA CURTP+5,4 GET LOCATION OF CALLER. F0022270 76327 0560 00 0 77147 LDQ BLNKS F0022290 76330 0520 00 0 77203 ZET CURTP+3 IS THERE A LABEL. F0022300 76331 0560 00 0 77203 LDQ CURTP+3 GET LABEL. F0022310 76332 -0500 00 0 77147 CAL BLNKS INSERT A BLANK AFTER THE LABEL. F0022320 76333 -0763 00 0 00006 LGL 6 F0022330 76334 0621 00 0 76354 STA TPERM+2 F0022340 76335 -0130 00 0 00000 XCL F0022350 76336 -0501 00 0 77150 ORA BLANK INSERT BLANK AFTER LABEL. F0022360 76337 0602 00 0 77203 SLW CURTP+3 SAVE LABEL. F0022370 76340 -0500 00 0 77147 CAL BLNKS F0022380 76341 0054 00 777777 RFT 777777 IS THERE AN ERROR WORD. F0022390 76342 -0500 60 0 74161 CAL* SKIP0 YES, GET IT AND F0022400 76343 -0100 00 0 76345 TNZ *+2 IF NONE EXISTS, F0022410 76344 -0500 00 0 77147 CAL BLNKS SUPPLY BLANKS. F0022420 76345 0602 00 0 76356 SLW TPERM+4 INSERT IT INTO THE COMMENT. F0022430 76346 0057 00 777777 RIR 777777 DELETE ANY CONFUSING FLAGS $F0022433 76347 0604 00 0 73672 STI (SCHU) SAVE INDICATORS AS THOUGH TAPE CALL $F0022435 76350 0500 00 0 76352 CLA TPERM GET PRINT PARAMETERS. F0022440 76351 0020 00 0 76406 TRA IODGB GO TO TAPE DIAGNOSTIC. F0022450 F0022460 BINARY CARD NO. 9F000078 76352 0 76355 0 76353 TPERM PZE *+1,,TPERM+3 F0022470 76353 0 00005 0 76354 PZE *+1,,5 F0022480 76354 606060606060 BCI 5, LABEL XXXXXX ERROR. F0022490 F0022500 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 59 DIAGNOSTICS ROUTINE FOR ON-LINE CLASS OF ERRORS. F0022520 F0022530 76361 0441 00 0 77156 IODG0 LDI L(00) RESET ANY CONFUSING FLAGS. F0022540 76362 -0057 00 400000 RIL 400000 SET CANNOT IGNORE BIT. F0022550 76363 0634 00 4 76374 IODG1 SXA IODG2,4 SAVE IR4. F0022560 76364 0074 00 4 76552 TSX IODPA,4 PRINT ANY PRIOR MESSAGE. F0022570 76365 0074 00 4 76641 TSX DGETA,4 GET NEW INFORMATION. F0022580 76366 0074 00 4 76662 TSX DGST0,4 SET UP NEW MESSAGE. F0022590 76367 0774 00 4 00706 AXT (PROUT,4 SET HEADING PARAMETER FOR ON-LINE. F0022600 76370 0634 00 4 76562 SXA IODPC,4 . F0022610 76371 0074 00 4 76557 TSX IODPB,4 PRINT NEW MESSAGE. F0022620 76372 0774 00 4 76566 AXT IODPC+4,4 RESTORE HEADING TO LONG TAPE TYPE. F0022630 76373 0634 00 4 76562 SXA IODPC,4 . F0022640 76374 0774 00 4 00000 IODG2 AXT **,4 RELOAD IR4. F0022650 76375 -0054 00 060000 LFT (DATA)+(SKIP) IS THIS REALLY A TAPE ERROR.. F0022660 76376 0020 00 0 76401 TRA IODG3 YES, QUIT. F0022670 76377 -0054 00 000003 LFT 3 F0022680 BINARY CARD NO. 9F000079 76400 0020 00 0 75067 TRA TAPR9 *RETURN TO EXECUTOR. F0022690 ENTRY FOR ERRORS WHICH HAVE NO ERROR RETURN F0022700 76401 0074 00 4 76557 IODG3 TSX IODPB,4 PRINT ERROR COMMENT. F0022710 76402 -0625 00 0 77050 STL DGSV4 SAVE MEMORY AND F0022720 76403 0761 00 0 76741 NOP MECL0 THEN GO TO MACHINE ERROR RECORD. F0022730 76404 0020 00 0 76773 TRA DGSVA F0022740 F0022750 *************************************************************F0022760 F0022770 I/O DIAGNOSTIC ROUTINE FOR TAPE ERRORS. F0022780 F0022790 76405 0057 00 777777 IODGA RIR 777777 DELETE ANY CONFUSING FLAGS. F0022800 76406 0634 00 4 76455 IODGB SXA IODGC,4 SAVE IR4. F0022810 76407 0074 00 4 76552 TSX IODPA,4 SAVE REGISTERS AND PRINT ANY PRIOR MESS. F0022820 76410 0074 00 4 76641 TSX DGETA,4 GET NEW INFORMATION. F0022830 76411 0074 00 4 76662 IODGE TSX DGST0,4 SET UP MESSAGE. F0022840 76412 0600 00 0 75324 STZ NOENT RESET TABLE SEARCH FLAG. F0022850 76413 -0534 00 2 76735 LXD DGST2,T RELOAD LOGICAL TAPE NUMBER. F0022860 76414 -0754 00 0 00000 ZAC . $F0022870 76415 0622 00 2 77412 STD TERCT,T RESET WRITE ERROR COUNT $F0022871 76416 0622 00 2 77372 STD TERCT-NTAPE,T RESET READ ERROR COUNT $F0022880 76417 0441 00 0 73672 LDI (SCHU) GET INDICATORS (FLAGS). F0022890 76420 -0056 00 040000 LNT (DATA) IS THIS TAPE DATA TRANSMIT.. F0022900 76421 0020 00 0 76465 TRA IODGM NO, SKIP POSTIONING PROCEDURE. F0022910 76422 0054 00 000010 RFT REDUN IS THIS AN RTT ERROR.. F0022920 76423 0020 00 0 76426 TRA *+3 YES. F0022930 76424 0074 00 4 00704 TSX (NDATA,4 NO, POSITION TAPE INFRONT OF ERROR RECORD.F0022940 76425 0 00005 2 77673 PZE TAPNO,T,.BSR. F0022950 BINARY CARD NO. 9F000080 76426 0500 00 2 77673 CLA TAPNO,T CHECK FOR OUTPUT TAPE FLAG. F0022960 76427 0120 00 0 76465 TPL IODGM IS THIS AN OUTPUT TAPE.. F0022970 76430 -0056 00 040001 LNT (DATA)+(W...) YES,IS THIS WRITE OPERATION.. F0022980 76431 0020 00 0 76465 TRA IODGM NO. F0022990 76432 0074 00 4 00704 TSX (NDATA,4 YES,WRITE EOF $F0023000 76433 0 00007 2 77673 PZE TAPNO,T,.WEF. $F0023010 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 60 DIAGNOSTICS 76434 0761 00 0 00000 NOP END OF TAPE RETURN. $F0023020 76435 0020 00 0 75155 TRA IODGK WRITE OPERATOR MESSAGE (25)F0023030 76436 0074 00 4 00704 TSX (NDATA,4 F0023040 76437 0 00004 2 77673 PZE TAPNO,T,.RUN. F0023050 76440 0074 00 4 76557 TSX IODPB,4 PRINT ERROR COMMENT. F0023060 76441 3 00000 4 76447 IODGH TXH IODGI,4,0 MAY WE SWITCH TO SYSOU2 (SET BY INITT).. F0023070 76442 -0500 00 0 00150 CAL SYSOU2 YES, SWITCH SYSUNI POINTERS F0023080 76443 0560 00 0 00147 LDQ SYSOU1 . F0023090 76444 0602 00 0 00147 SLW SYSOU1 . F0023100 76445 -0600 00 0 00150 STQ SYSOU2 . F0023110 76446 0621 00 0 77665 STA TAPNO-MLSTAP RESET IOPU POINTER. F0023120 76447 0074 00 4 00706 IODGI TSX (PROUT,4 PRINT PREDETERMINED MESSAGE. F0023130 76450 0 00000 0 00001 PZE 1 F0023140 76451 0 04006 0 76457 PZE IOSWT,,6+DBLSP $F0023150 76452 0074 00 4 76557 TSX IODPB,4 RESTORE REGISTERS. F0023160 76453 3 77777 4 76455 TXH *+2,4,-1 DOES THIS CHANGE REUIRE HALT.. F0023170 BINARY CARD NO. 9F000081 76454 0074 00 4 00712 TSX (PAUSE,4 $F0023180 76455 0774 00 4 00000 IODGC AXT **,4 . F0023190 76456 0020 00 0 75031 TRA TAPR6+1 *REWRITE. F0023200 76457 233021452725 IOSWT BCI 6,CHANGE TAPE, PRESS START TO CONT. $F0023210 (MESSAGE SET BY INITT) F0023220 F0023230 76465 0056 00 000002 IODGM RNT EOTAP WAS ERROR END OF TAPE CONDITION.. F0023240 76466 0020 00 0 76471 TRA *+3 NO F0023250 76467 -0520 00 0 76544 NZT IODGR YES, IS THERE AN ERROR RETURN (25)F0023260 76470 0020 00 0 75173 TRA IODGN NO, REWIND TAPE (25)F0023270 76471 -0054 00 020000 LFT (SKIP) IS THIS A SKIPPING OPERATION.. F0023280 76472 0020 00 0 76525 TRA IODGF YES, NO POSSIBLE ERROR OPTIONS. F0023290 76473 -0054 00 004000 LFT (TPER) NO, IS THIS A (TPER) CALL.. F0023300 76474 0020 00 0 76521 TRA IODGD YES. F0023310 76475 0500 00 0 76544 CLA IODGR IS THERE AN ERROR RETURN. F0023320 76476 0100 00 0 76401 TZE IODG3 *NO. F0023330 76477 0621 00 2 77351 STA ERRET,T SAVE RETURN ADDRESS. F0023340 76500 0120 00 0 76511 TPL IODGQ TRANSFER IF MESSAGE IS TO BE PRINTED. F0023350 76501 -0054 00 000001 LFT (W...) IS THIS A READ OPERATION.. F0023360 BINARY CARD NO. 9F000082 76502 0020 00 0 76510 TRA IODGQ-1 NO. F0023370 76503 0056 00 000010 RNT REDUN IS THIS REDUNDANCY ERROR.. F0023380 76504 0020 00 0 76511 TRA IODGQ NO. F0023390 76505 -0500 00 2 77432 CAL TERRT,T REDUCE COUNTER, F0023400 76506 0402 00 0 77157 SUB L(01) THIS MAY BE A READ IN WRONG MODE F0023410 76507 0602 00 2 77432 SLW TERRT,T F0023420 76510 0600 00 0 76574 STZ IODPD RESET PRINT PARAMETERS. F0023430 76511 -0535 00 4 76735 IODGQ LDC DGST2,4 LOAD LOGICAL TAPE NUMBER. F0023440 76512 -0500 00 4 73672 CAL (SCHU),4 GET LAST ADDRESS+1 FROM SCHX. F0023450 76513 0767 00 0 00022 ALS 18 MOVE TO DECREMENT FIELD AND SAVE. F0023460 76514 0601 00 4 73672 STO (SCHU),4 F0023470 76515 0500 00 0 73672 CLA (SCHU) GET ERROR FLAGS AND SAVE WITH SCHX. F0023480 76516 0621 00 4 73672 STA (SCHU),4 F0023490 76517 0074 00 4 76557 TSX IODPB,4 PRINT ERROR COMMENT. F0023500 76520 0020 00 0 75067 TRA TAPR9 RETURN TO EXECUTOR. F0023510 F0023520 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 61 DIAGNOSTICS 76521 0500 00 0 77205 IODGD CLA CURTP+5 GET INDICATOR WORD. F0023530 76522 0120 00 0 76401 TPL IODG3 *SHOULD RETURN BE MADE TO CALLER, NO. F0023540 76523 0074 00 4 76557 TSX IODPB,4 PRINT ERROR COMMENT. F0023550 76524 0020 00 0 74434 TRA TAPEX F0023560 F0023570 76525 0500 00 0 76544 IODGF CLA IODGR RECALL ERROR RETURN. F0023580 76526 0054 00 000010 RFT REDUN IS THIS REDUNDANCY ERROR.. F0023590 76527 0020 00 0 76533 TRA *+4 YES. F0023600 BINARY CARD NO. 9F000083 76530 0100 00 0 76401 TZE IODG3 *IS THERE AN ERROR RETURN, NO. F0023610 76531 0621 00 2 77351 STA ERRET,T YES, SAVE ERROR RETURN ADDRESS. F0023620 76532 0020 00 0 76511 TRA IODGQ CONTINUE WITH ACCEPT PROCEDURE. F0023630 76533 0120 00 0 76536 TPL *+3 REDUN ERROR, SHOULD MESSAGE BE PRINTED.. F0023640 76534 0600 00 0 76574 STZ IODPD NO. RESET PRINT PARAMETERS. F0023650 76535 0020 00 0 76542 TRA *+5 RETURN TO CALLER. F0023660 76536 0074 00 4 76557 TSX IODPB,4 PRINT ERROR COMMENT. F0023670 76537 0074 00 4 00706 TSX (PROUT,4 PRINT TRAILER. F0023680 76540 0 00000 0 00001 PZE 1 F0023690 76541 0 00005 0 76545 PZE IODGG,,5 -TAPE POSITIONING ERROR MAY RESULT $F0023700 76542 0074 00 4 76557 TSX IODPB,4 RESTORE REGISTERS. F0023710 76543 0020 00 0 75450 TRA CHSKX RETURN TO EXECUTOR F0023720 F0023730 76544 0 00000 0 00000 IODGR PZE STORAGE FOR ERROR RETURN INFORMATION. F0023740 F0023750 76545 604746623163 IODGG BCI 5, POSITIONING ERROR MAY RESULT $F0023760 F0023770 *************************************************************F0023780 F0023790 I/O DIAGNOSTIC CALLER TO PRINT ROUTINE. F0023800 F0023810 76552 0601 00 0 76606 IODPA STO IODPI SAVE REGISTERS. F0023820 76553 0604 00 0 76607 STI IODPI+1 F0023830 76554 -0600 00 0 76610 STQ IODPI+2 F0023840 76555 0634 00 1 76577 SXA IODPE,1 F0023850 BINARY CARD NO. 9F000084 76556 0634 00 2 76600 SXA IODPF,2 F0023860 76557 0634 00 4 76601 IODPB SXA IODPG,4 SAVE CALLING LINKAGE. F0023870 76560 -0520 00 0 76574 NZT IODPD IS THERE A PRIOR MESSAGE. F0023880 76561 0020 00 0 76577 TRA IODPE NO. F0023890 76562 0074 00 4 76566 IODPC TSX *+4,4 (SET TO TSX (PROUT,4 IF NEED BE) F0023900 76563 0 00000 0 00001 PZE 1 SHORT MESSAGE PRINTER. F0023910 76564 0 00005 0 76623 PZE IODPN,,5 $F0023920 76565 0020 00 0 76572 TRA *+5 . F0023930 76566 0074 00 4 00706 TSX (PROUT,4 *YES, PRINT HEADING. F0023940 76567 0 00000 0 00002 PZE 2 F0023950 76570 0 11014 0 76623 PZE IODPN,,12+SUPRS F0023960 76571 0 00002 0 76637 PZE IODFN+1,,2 $F0023970 76572 0074 00 4 00706 TSX (PROUT,4 PRINT ERROR COMMENT. F0023980 76573 0 00000 0 00002 PZE 2 F0023990 76574 0 00000 0 00000 IODPD PZE **,,** F0024000 76575 0 00000 0 00000 IODPH PZE **,,** (COND. IGNORED/NOT IGNORED) F0024010 76576 0600 00 0 76574 STZ IODPD RESET COMMENT PARAMETERS, F0024020 76577 0774 00 1 00000 IODPE AXT **,1 RELOAD REGISTERS F0024030 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 62 DIAGNOSTICS 76600 0774 00 2 00000 IODPF AXT **,2 TO INITIAL CONDITION. F0024040 76601 0774 00 4 00000 IODPG AXT **,4 LOAD CALLING LINKAGE. F0024050 76602 0500 00 0 76606 CLA IODPI F0024060 76603 0441 00 0 76607 LDI IODPI+1 F0024070 BINARY CARD NO. 9F000085 76604 0560 00 0 76610 LDQ IODPI+2 F0024080 76605 0020 00 4 00001 TRA 1,4 RETURN TO CALLER. F0024090 F0024100 76606 0 00000 0 00000 IODPI PZE STORAGE FOR AC. F0024110 76607 0 00000 0 00000 PZE STORAGE FOR INDICATORS. F0024120 76610 0 00000 0 00000 PZE STORAGE FOR MQ. F0024130 76611 0 00005 0 76612 IODPJ PZE *+1,,5 F0024140 76612 602346452431 BCI 5, CONDITION CAN NOT BE IGNORED. F0024150 76617 0 00003 0 76620 IODPK PZE *+1,,3 $F0024160 76620 234645243163 BCI 3,CONDITION IGNORED. $F0024170 76623 605125234651 IODPN BCI 2, RECORD NO. F0024180 76625 606060606060 IODPO BCI 2, , LOC. $F0024190 76627 606060606060 IODPP BCI 4, . ERROR ON LOG. $F0024200 BINARY CARD NO. 9F000086 76633 606060606060 IODPQ BCI 2, , TAPE $F0024210 76635 606060606060 IODPR BCI 1, F0024220 76636 736060266445 IODFN BCI 3,, FUNCTION F0024230 F0024240 *************************************************************F0024250 F0024260 SUBROUTINE TO GET INFORMATION FROM THE CURRENT F0024270 BUFFER OR THE HISTORICAL BUFFER. F0024280 F0024290 76641 -0054 00 077777 DGETA LFT 077777 IS THIS TXI DIAG,,0. F0024300 76642 -0054 00 004000 LFT 004000 NO. IS THIS (TPER). F0024310 F0024320 76643 0020 00 0 76654 TRA DGETB YES. GET CURRENT BUFFER. F0024330 76644 -0520 00 1 77324 NZT UNITT+12,C IS OPERATION IN HISTORIC BUFFER.. F0024340 76645 0020 00 0 76654 TRA DGETB NO. F0024350 76646 0500 00 1 77323 CLA UNITT+11,C YES, GET ERRET,T3. F0024360 76647 0601 00 0 76544 STO IODGR F0024370 76650 0560 00 1 77330 LDQ UNITT+16,C GET CALLER LOCATION,, FORTRAN RECORD F0024380 76651 0441 00 1 77325 LDI UNITT+13,C TAPE ADDRESS,,LOGICAL TAPNO F0024390 76652 -0500 00 1 77326 CAL UNITT+14,C LABEL. F0024400 76653 0020 00 4 00001 TRA 1,4 *RETURN TO CALLER. F0024410 76654 0500 00 0 77200 DGETB CLA CURTP GET INFORMATION FROM CURRENT BUFFER. F0024420 76655 0601 00 0 76544 STO IODGR SAVE ERRET,T3. F0024430 76656 0441 00 0 77202 LDI CURTP+2 GET TAPE ADDRESSES. F0024440 76657 -0500 00 0 77203 CAL CURTP+3 GET LABEL. F0024450 BINARY CARD NO. 9F000087 76660 0560 00 0 77205 LDQ CURTP+5 GET LOCATION OF CALLER AND FORTRAN RECORD.F0024460 76661 0020 00 4 00001 TRA 1,4 *RETURN TO CALLER. F0024470 F0024480 *************************************************************F0024490 F0024500 SUBROUTINE TO SET UP DIAGNOSTIC HEADING. F0024510 F0024520 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 63 DIAGNOSTICS 76662 0634 00 4 76733 DGST0 SXA DGST1,4 SAVE LINKAGE. F0024530 76663 -0600 00 0 76736 STQ DGST2+1 SAVE INFORMATION IN CASE OF REDUNDANCY. F0024540 76664 0604 00 0 76735 STI DGST2 SENSE INDICATORS. F0024550 76665 -0535 00 4 76606 LDC IODPI,4 LOAD ADDRESS FOR INSERTING LABEL. F0024560 76666 -0100 00 0 76670 TNZ *+2 IS THERE A LABEL. F0024570 76667 -0500 00 0 77147 CAL BLNKS NO LABEL, SET TO BLANKS. F0024580 76670 0602 00 4 00000 SLW 0,4 SET LABEL IN MESSAGE. F0024590 76671 -0046 00 0 00000 PIA SAVE LOGICAL TAPE NUMBER. F0024600 76672 -0765 00 0 00017 LGR 15 CONVERT PHYSICAL F0024610 76673 0074 00 4 00721 TSX (BCD5X,4 TAPE ADDRESS TO OCTAL. F0024620 76674 0602 00 0 76635 SLW IODPR SET IN HEADING. F0024630 76675 -0534 00 4 76735 LXD DGST2,4 GET LOGICAL TAPE ADDRESS. F0024640 76676 0754 00 4 00000 PXA ,4 F0024650 76677 0074 00 4 00716 TSX (DECVA,4 CONVERT TO BCD F0024660 76700 -0600 00 0 76633 STQ IODPQ SAVE IN HEADING. F0024670 76701 -0500 00 2 77200 CAL SYSFC,2 PLACE SYSUNI SYMBOLIC F0024680 76702 0602 00 0 76640 SLW IODFN+2 NAME IN MESSAGE. F0024690 76703 -0534 00 4 76736 LXD DGST2+1,4 GET FORTRAN RECORD NUMBER. F0024700 76704 0754 00 4 00000 PXA ,4 CONVERT RECORD NUMBER TO BCD. F0024710 76705 0074 00 4 00716 TSX (DECVA,4 . F0024720 BINARY CARD NO. 9F000088 76706 -0763 00 0 00036 LGL 30 . F0024730 76707 0767 00 0 00006 ALS 6 . F0024740 76710 -0501 00 0 77151 ORA P0INT . F0024750 76711 -0763 00 0 00006 LGL 6 . F0024760 76712 0602 00 0 76625 SLW IODPO SET IN HEADING. F0024770 76713 0535 00 4 76736 LAC DGST2+1,4 GET LOCATION OF CALLER F0024780 76714 0754 00 4 00000 PXA ,4 IN TRUE NUMBER. F0024790 76715 -0765 00 0 00017 LGR 15 CONVERT CALLER LOCATION F0024800 76716 0074 00 4 00721 TSX (BCD5X,4 TO OCTAL BCD. F0024810 76717 0602 00 0 76627 SLW IODPP INSERT IN HEADING. F0024820 76720 0500 60 0 76606 CLA* IODPI SET PRINT PARAMETERS F0024830 76721 0601 00 0 76574 STO IODPD FOR COMMENT. F0024840 76722 0441 00 0 76607 LDI IODPI+1 LOAD FIRST WORD OF CALLING SEQUENCE F0024850 76723 0500 00 0 76611 CLA IODPJ OR (SCHU). F0024860 76724 -0054 00 400000 LFT 400000 CAN ERROR BE IGNORED. F0024870 76725 0500 00 0 76617 CLA IODPK YES. F0024880 76726 -0056 00 020000 LNT (SKIP) IS THIS A SPACING OPERATION.. F0024890 76727 0020 00 0 76732 TRA *+3 NO. F0024900 76730 0054 00 000010 RFT REDUN YES, IS THIS REDUNDANCY.. F0024910 76731 0500 00 0 76617 CLA IODPK YES, CONDITION CAN BE IGNORED. F0024920 76732 0601 00 0 76575 STO IODPH SET PARAMETERS. F0024930 76733 0774 00 4 00000 DGST1 AXT **,4 LOAD CALLING LINKAGE. F0024940 BINARY CARD NO. 9F000089 76734 0020 00 4 00001 TRA 1,4 RETURN TO CALLER. F0024950 F0024960 76735 0 00000 0 00000 DGST2 PZE **,,** TAPE ADDRESSES. F0024970 76736 0 00000 0 00000 PZE **,,** CALLER,,FORTRAN RECORD. F0024980 F0024990 *************************************************************F0025000 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 64 DIAGNOSTICS ROUTINE TO CALL MACHINE ERROR RECORD OR F0025020 SOURCE PROGRAM ERROR RECORD. F0025030 F0025040 76737 0774 00 4 00013 SECL0 AXT 11,4 SKIP TO SOURCE ERROR REC (TRA TO LSECL...)F0025050 76740 0020 00 0 76742 TRA *+2 F0025060 76741 0774 00 4 00012 MECL0 AXT 10,4 SKIP TO MACH. ERROR REC (TRA TO LMECL...) F0025070 76742 0634 00 4 76772 SXA MECL2-1,4 F0025080 76743 0074 00 4 77126 TSX CLOSO,4 ELIMINATE ANY HANGING ERRORS. F0025090 76744 -0535 00 2 00121 LDC SYSLDR,2 PICK UP CURRENT FILE POSITION F0025100 76745 -0500 00 2 00002 CAL 2,2 OF SYSTEM TAPE F0025110 76746 -0734 00 1 00000 PDX ,1 F0025120 76747 -0535 00 2 00106 LDC SYSPOS,2 PICK UP INITIAL FILE POSITION. F0025130 76750 -0634 00 2 76751 SXD *+1,2 F0025140 76751 1 00000 1 76752 TXI *+1,1,** SUBTRACT INITIAL FROM CURRENT FILE F0025150 76752 1 00001 1 76753 TXI *+1,1,1 ASSURE THAT AT LEAST ONE FILE IS BKSPCD. F0025160 76753 -0634 00 1 76770 SXD MECL2-3,1 SAVE FILE DIFFERENCE. F0025170 76754 0774 00 2 00003 AXT 3,2 F0025180 76755 0074 00 4 73606 MECL1 TSX (TAPE),4 POSITION SYSTEM TAPE TO F0025190 76756 0 20000 2 76773 PZE MECL2,2,(SKBP) MER OR SER. F0025200 76757 0 00001 0 00000 PZE ,,SYSTAP F0025210 76760 2 00001 2 76755 TIX MECL1,2,1 F0025220 76761 -0500 00 0 76763 CAL *+2 GET SENSE LITE OFF OPERATION AND OR INTO F0025230 BINARY CARD NO. 9F000090 76762 -0602 00 0 73664 ORS (MSLN) ERROR FLAG CELL TO GET APPROPRIATE SLN. F0025240 76763 0760 00 0 00140 SLF MAKE SURE LITES ARE OFF. F0025250 76764 0522 00 0 73664 XEC (MSLN) TURN ON SIGNAL LITE. F0025260 D 76765 0074 01 4 73600 LSECL TSX (LOAD),4,1 *READ MACH/SOURCE ERROR REC (DISK LOAD SER)F0025270 76766 112601010000 BCI 1,9F1100 F0025280 76767 112601000000 BCI 1,9F1000 F0025290 F0025300 76770 -0 00000 0 00000 MZE ,,** NFILES BACKSPACE F0025310 76771 0 00001 0 00000 PZE ,,1 GET OVER EOF MARK F0025320 76772 0 00000 0 00000 PZE ** NRECORD FORWARD SPACE F0025330 76773 MECL2 SYN * F0025340 F0025350 *************************************************************F0025360 F0025370 ROUTINE TO SAVE MACHINE CONFIGURATION. F0025380 F0025390 76773 -0634 00 4 77034 DGSVA SXD DGSVD,4 SET SWITCH F0025400 ENTRY FOR SNAPSHOTS F0025410 76774 0634 00 4 77046 DGSV0 SXA DGSV2,4 SAVE IR4. F0025420 76775 0604 00 0 77051 STI DGSV5 SAVE SENSE INDICATORS. F0025430 76776 0500 00 0 73666 CLA (LODR) SAVE RECORD NUMBER. F0025440 76777 0601 00 0 77125 STO DGLD3 F0025450 77000 0774 00 4 00003 AXT 3,4 SAVE LOCATIONS F0025460 77001 0500 00 4 00003 CLA 3,4 0,1 AND 2 IN CASE F0025470 77002 0601 00 4 77125 STO DGLD3,4 A DUMP IS TAKEN. F0025480 77003 2 00001 4 77001 TIX *-2,4,1 F0025490 77004 0774 00 4 00010 AXT 8,4 F0025500 77005 0500 00 4 73742 CLA IOSEX+3,4 SAVE REGISTERS F0025510 77006 0601 00 4 77063 STO DGSV6+1,4 FROM SAVER ROUTINE F0025520 77007 2 00001 4 77005 TIX *-2,4,1 F0025530 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 65 DIAGNOSTICS BINARY CARD NO. 9F000091 77010 0441 00 0 77057 LDI DGSV6-3 LOAD SENSE LIGHT FLAGS F0025540 77011 0161 00 0 77013 TQO *+2 IS MQ OVERFLOW ON F0025550 77012 0057 00 000400 RIR 400 NO, TURN OFF BIT. F0025560 77013 0760 00 0 00012 DCT IS DIVIDE CHECK LIGHT ON F0025570 77014 0055 00 000200 SIR 200 YES, SET BIT 28 ON. F0025580 77015 -0500 00 0 77162 CAL L(08) LOAD SENSE LIGHT BIT. F0025590 77016 0774 00 4 00004 AXT 4,4 INITIALIZE LITE COUNTER. F0025600 77017 -0760 00 4 00145 SLT 5,4 TEST SENSE LITE. F0025610 77020 0043 00 0 00000 OAI SET APPROPRIATE BIT IF LITE IS OFF. F0025620 77021 0767 00 0 00001 ALS 1 SHIFT BIT FOR NEXT TEST. F0025630 77022 2 00001 4 77017 TIX *-3,4,1 *ALL LITES TESTED, NO CONTINUE. F0025640 77023 -0500 00 0 77165 CAL D(01) INITIALIZE BIT IN AC FOR SS TEST. F0025650 77024 0760 00 4 00167 SWT 7,4 TEST SENSE SWITCHES 6 THROUGH 1. F0025660 77025 0043 00 0 00000 OAI SENSE SWITCH UP, OR APPROPRIATE BIT. F0025670 77026 0767 00 0 00001 ALS 1 SHIFT BIT FOR NEXT TEST. F0025680 77027 1 00001 4 77030 TXI *+1,4,1 INCREMENT INDEX FOR NEXT TEST. F0025690 77030 -3 00006 4 77024 TXL *-4,4,6 *ALL SENSE SWITCHES TESTED, NO CONTINUE. F0025700 77031 0604 00 0 77057 STI DGSV6-3 SAVE SENSE LIGHT FLAGS F0025710 77032 0760 00 0 00004 ENK SAVE CONSOLE KEYS F0025720 77033 -0600 00 0 77052 STQ DGSV6-8 F0025730 77034 3 00000 4 77046 DGSVD TXH DGSV2,4,** IS THIS TERMINAL CALL F0025740 77035 -0634 00 0 77034 ZSD *-1 YES, RESET SWITCH. F0025750 BINARY CARD NO. 9F000092 77036 0074 00 4 77126 TSX CLOSO,4 ELIMINATE ANY HANGING ERRORS. F0025760 77037 0074 00 4 73606 TSX (TAPE),4 DUMP A CORE BUFFER FOR DIAGNOSTIC. (31)F0025770 77040 -0 40011 0 77063 MZE DGSV7,,(WBNC) (31)F0025780 77041 0 00003 0 00000 DGSV1 PZE ,,SINTAP (31)F0025790 77042 0 00000 0 77046 PZE *+4 ERROR RETURN ADDRESS (31)F0025800 77043 0074 00 4 73606 TSX (TAPE),4 BACKSPACE OVER DUMP (31)F0025810 77044 -0 20000 0 77144 MZE BKSRC,,(SKBP) (31)F0025820 77045 0 00003 0 00000 PZE ,,SINTAP (31)F0025830 77046 0774 00 4 00000 DGSV2 AXT **,4 RESTORE IR4. F0025840 77047 0441 00 0 77051 LDI DGSV5 RESTORE SENSE INDICATORS. F0025850 77050 0020 60 0 00000 DGSV4 TRA* ** RETURN TO CALLER. F0025860 F0025870 77051 0 00000 0 00000 DGSV5 PZE TEMPORARY STORAGE FOR SENSE INDICATORS. F0025880 77052 0 00000 0 00000 PZE ** KEYS F0025890 77053 0 00000 0 00000 PZE ** SENSE INDICATORS F0025900 77054 0 00000 0 00000 PZE ** MQ F0025910 77055 0 00000 0 00000 PZE ** LOGICAL AC F0025920 77056 0 00000 0 00000 PZE ** ALGEBRAIC AC F0025930 77057 0 00000 0 00000 PZE ** FLAGS FOR LIGHTS, SWITCHES, INDICATORS F0025940 77060 0 00000 0 00000 PZE ** INDEX REGISTER 1 F0025950 77061 0 00000 0 00000 PZE ** INDEX REGISTER 2 F0025960 77062 0 00000 0 00000 DGSV6 PZE ** INDEX REGISTER 4 F0025970 77063 3 20774 0 03734 DGSV7 IORT (DORG),,8700 I/O COMMAND FOR DUMP+DIAGNOSTIC (31)F0025980 (31)F0025990 (31)F0026000 ROUTINE TO RESTORE CONSOLE AND MEMORY. (31)F0026020 (31)F0026030 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 66 DIAGNOSTICS BINARY CARD NO. 9F000093 77064 -0625 00 0 77120 DGLDH STL DGLD2 SET RETURN TO FINAL HALT. (31)F0026040 77065 0761 00 0 77121 NOP DGLD2+1 (31)F0026050 77066 0074 00 4 73606 TSX (TAPE),4 RESTORE MEMORY FROM DUMP TAPE (31)F0026060 77067 -0 40010 0 77063 MZE DGSV7,,(RBNC) (31)F0026070 77070 0 00003 0 00000 DGLD1 PZE ,,SINTAP (31)F0026080 77071 0 00000 0 77075 PZE *+4 ERROR RETURN ADDRESS (31)F0026090 77072 0074 00 4 73606 TSX (TAPE),4 BACKSPACE OVER DUMP FOR (31)F0026100 77073 -0 20000 0 77144 MZE BKSRC,,(SKBP) FURTHER USE OF DUMP TAPE (31)F0026110 77074 0 00003 0 00000 PZE ,,SINTAP (31)F0026120 ENTRY POINT FOR (REST),DIAG,SNAP F0026130 77075 0441 00 0 77057 DGLD0 LDI DGSV6-3 LOAD SENSE LIGHT FLAGS F0026140 77076 -0500 00 0 77157 CAL L(01) PREPARE TO TURN MQ OVERFLOW ON. F0026150 77077 0054 00 000400 RFT 400 WAS MQ OVERFLOW ON. F0026160 77100 0241 00 0 74236 FDP SKIPF YES, TURN IT BACK ON. F0026170 77101 0054 00 000200 RFT 200 WAS DIVIDE CHECK INDICATOR ON. F0026180 77102 0221 00 0 77156 DVP L(00) YES, TURN IT BACK ON. F0026190 77103 -0500 00 0 77160 CAL L(04) LOAD TEST BIT FOR SENSE LITES. F0026200 77104 0774 00 4 00005 AXT 5,4 INITIALIZE COUNTER/MODIFIER. F0026210 77105 0042 00 0 77107 TIO *+2 *SHOULD LITE BE TURNED ON, NO. F0026220 77106 0760 00 4 00145 SLN 5,4 YES. (FIRST TIME EXECUTE AS SLF) F0026230 77107 0767 00 0 00001 ALS 1 SHIFT TEST BIT TO NEXT POSITION. F0026240 77110 2 00001 4 77105 TIX *-3,4,1 *ALL BITS TESTED, NO CONTINUE. F0026250 77111 0774 00 4 00010 AXT 8,4 MOVE MACHINE REGISTERS F0026260 BINARY CARD NO. 9F000094 77112 0500 00 4 77063 CLA DGSV6+1,4 INTO RELOADING BUFFER F0026270 77113 0601 00 4 73742 STO IOSEX+3,4 F0026280 77114 2 00001 4 77112 TIX *-2,4,1 F0026290 77115 -0625 00 0 73755 STL IORLX SET RELOADING RETURN ADDRESS. F0026300 77116 0761 00 0 77120 NOP *+2 F0026310 77117 0020 00 0 73737 TRA IOSEX RELOAD MACHINE REGISTERS. F0026320 77120 0020 60 0 00000 DGLD2 TRA* ** RETURN TO CALLER. F0026330 77121 0000 00 0 77121 HTR * THIS IS THE END. F0026340 F0026350 77122 +000000000000 OCT ,, CELLS FOR SAVING 0,1, AND 2. F0026360 77125 0 00000 0 00000 DGLD3 PZE CELL FOR SAVING FORTAN RECORD NUMBER F0026370 F0026380 *************************************************************F0026390 F0026400 ROUTINE TO CLOSE OUT CHANNELS AND TAPES. F0026410 F0026420 77126 -0534 00 2 77673 CLOSO LXD TAPNO,2 F0026430 77127 0600 00 2 77351 STZ ERRET,2 CLEAR ERROR RETURN BUFFER FOR THIS TAPE. F0026440 77130 2 00001 2 77127 TIX *-1,2,1 F0026450 77131 0774 00 2 00100 AXT 16*NCHAN,2 CLEAR HISTORIC TABLE OF HISTORIC INSTR, F0026460 77132 0600 00 2 77324 STZ UNITT+12,2 F0026470 77133 2 00020 2 77132 TIX *-1,2,16 F0026480 77134 0020 00 4 00001 TRA 1,4 RETURN TO CALLER. F0026490 F0026500 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 67 GENERAL ERASIBLE 77135 0 00000 0 00000 ERAS1 PZE F0026520 77136 0 00000 0 00000 ERAS2 PZE F0026530 77137 0 00000 0 00000 ERASA PZE ERASIBLE - ADDRESS F0026540 BINARY CARD NO. 9F000095 77140 0 00000 0 00000 ERASD PZE ERASIBLE - DECREMENT F0026550 77141 0 00000 0 00000 ERASR PZE FULL WORD ERASIBLE (EFFECTIVE ADDR COMP) F0026560 77142 0 00000 0 00000 TPNUM PZE CURRENT LOGICAL TAPENO, BITS 3-5. F0026570 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 68 GENERAL CONSTANTS 77143 0 02000 0 00000 ONLIN PZE ,,1024 FLAG FOR ON-LINE ACTIVITY F0026590 77144 -0 00000 0 00001 BKSRC MZE 1 BACKSPACE ONE RECORD COMMAND F0026600 77145 0 00001 0 00001 INITL PZE 1,,1 INITIAL TAPE POSITION CONSTANT F0026610 77146 0 75466 0 00000 L(SL) PZE ,,IOPSL LOCATION OF SELECT ROUTINE. F0026620 77147 606060606060 BLNKS BCI 1, BLANK WORD F0026630 77150 000000000060 BLANK BCI 1,00000 BLANK CHARACTER F0026640 77151 606060000033 P0INT BCI 1, 00. DECIMAL POINT WITH BLANKS. F0026650 77152 0 00000 7 77776 TGADD PZE -2,-1,0 ADD 1 TO FILE CT., SUB. 2 FROM REC. CT(29)F0026660 77153 0 00000 0 77777 ADMSK PZE -1 MASK FOR ADDRESS F0026670 77154 0 77777 0 00000 DCMSK PZE ,,-1 MASK FOR DECREMENT. F0026680 77155 +377777000000 LSEVN OCT 377777000000 MASK TO DUMMY UP THE (SCHU) ENTRY F0026690 77156 0 00000 0 00000 L(00) PZE 0 F0026700 77157 0 00000 0 00001 L(01) PZE 1 F0026710 77160 0 00000 0 00004 L(04) PZE 4 F0026720 77161 0 00000 0 00005 L(05) PZE 5 F0026730 77162 0 00000 0 00010 L(08) PZE 8 F0026740 77163 0 00000 0 00014 L(12) PZE 12 F0026750 77164 0 00000 0 00020 L(16) PZE 16 F0026760 77165 0 00001 0 00000 D(01) PZE ,,1 DECREMENT ONE F0026770 BINARY CARD NO. 9F000096 77166 627062234202 BCI 1,SYSCK2 THESE F0026780 77167 627062234201 BCI 1,SYSCK1 SYMBOLIC F0026790 77170 627062646302 BCI 1,SYSUT2 NAMES F0026800 77171 627062474701 BCI 1,SYSPP1 MUST F0026810 77172 627062466401 BCI 1,SYSOU1 BE F0026820 77173 627062314501 BCI 1,SYSIN1 IN F0026830 77174 627062646301 BCI 1,SYSUT1 SAME F0026840 77175 627062646304 BCI 1,SYSUT4 ORDER F0026850 77176 627062646303 BCI 1,SYSUT3 AS F0026860 77177 627062432201 BCI 1,SYSLB1 IOPU. F0026870 77200 SYSFC SYN * F0026880 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 69 TABLES F0026910 77200 0 00000 0 00000 CURTP QZE ** ERROR RETURN (SIGN = F0026920 77201 0 00000 0 00000 PZE **,,** CURRENT INSTRUCTION,,FLAGS (1) F0026930 77202 0 00000 0 00000 QZE **,,** TAPE ADDRESS,,LOGICAL TAPENO (2) F0026940 77203 606060606060 BCI 1, LABEL (3) F0026950 77204 0 00000 0 00000 PZE **,,** LOGICAL FILE,,LOGICAL RECORD (4) F0026960 77205 0 00000 0 00000 QZE **,,** CALLER LOCATION,,FORTRAN RECORD (5) F0026970 F0026980 77206 606060606060 LABEL BCI 1, BUFFER FOR TAPE LABEL (LAST THREE CELLS F0026990 77207 0 00000 0 00000 PZE **,,** IN CURTP/UNITT) F0027000 77210 0 00000 0 00000 PZE **,,** F0027010 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 70 TABLES CHANNEL DATA TABLES F0027030 F0027040 HISTORICAL TABLE CHANNEL (C) TO A F0027050 77211 DUP 16,NCHAN F0027060 77211 0 00000 0 00000 QZE ** HISTORIC SELECT (MODE). (1) F0027070 77212 -2 00003 0 77220 IOSP *+6,,3 I/O COMMAND TO READ/WRITE LABEL. (2) F0027080 77213 0 00000 0 00000 PZE **,,** I/O COMMAND TO READ/WRITE RECORD (3) F0027090 BINARY CARD NO. 9F000097 77214 0 00000 0 00000 PZE **,,** DITTO (4) F0027100 77215 0 00000 0 00000 PZE **,,** DITTO (5) F0027110 77216 0 00000 0 00000 PZE **,,** DITTO (6) F0027120 77217 0 00000 0 00000 PZE **,,** DITTO (7) F0027130 77220 606060606060 BCI 1, LABEL READ/WRITTEN. (8) F0027140 77221 0 00000 0 00000 PZE **,,** LOGICAL FILE,, LOGICAL RECORD R/W. (9) F0027150 77222 0 00000 0 00000 PZE **,,** CALLER LOCATION,, FORTRAN RECORD W. (10) F0027160 77223 0 00000 0 00000 PZE ** ERROR RETURN (11) F0027170 77224 0 00000 0 00000 PZE **,,** HISTORIC INSTRUCTION,,FLAGS (12) F0027180 77225 0 00000 0 00000 PZE **,,** TAPE ADDRESS,,LOGICAL TAPE NUMBER (13) F0027190 77226 606060606060 BCI 1, LABEL (14) F0027200 77227 0 00000 0 00000 PZE **,,** LOGICAL FILE,,LOGICAL RECORD (15) F0027210 77230 0 00000 0 00000 QZE **,,** CALLER LOCATION,,FORTRAN RECORD (16) F0027220 BINARY CARD NO. 9F000098 BINARY CARD NO. 9F000099 77310 UNITT SYN *-1 F0027230 F0027240 TABLE OF CURRENT TAPE POSITIONS. F0027250 RECORD POSITION,, FILE POSITION F0027260 77311 DUP 1,NTAPE-1 F0027270 77311 0 00001 0 00001 QZE 1,,1 LOGICAL TAPES NTAPE TO 1 F0027280 BINARY CARD NO. 9F000100 77330 0 00001 0 00002 PZE 2,,1 SYSTEM TAPE PICKS UP AT SPACER RECORD. F0027290 77331 POINT SYN * F0027300 F0027310 TABLE OF ERROR RETURNS FOR EACH LOGICAL TAPE F0027320 77331 DUP 1,NTAPE F0027330 77331 0 00000 0 00000 PZE ** LOGICAL TAPE NTAPE TO 1. F0027340 BINARY CARD NO. 9F000101 77351 0 00000 0 00000 ERRET PZE ** ONLINE ACTIVITY F0027350 F0027360 TABLE OF READ ERROR COUNTS F0027370 77352 DUP 1,NTAPE F0027380 77352 0 00000 0 00000 PZE **,,** LOGICAL TAPE NTAPE TO 1. F0027390 77372 TERTT SYN * F0027400 F0027410 TABLE OF WRITE ERROR COUNTS F0027420 77372 DUP 1,NTAPE F0027430 BINARY CARD NO. 9F000102 77372 0 00000 0 00000 PZE **,,** LOGICAL TAPE NTAPE TO 1. F0027440 77412 TERCT SYN * CUMULATIVE ERROR COUNT,,RECORD ERROR COUNTF0027450 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 71 TABLES F0027460 TABLE OF READ TAPE USAGE F0027470 RECORD COUNT,, NOISE RECORD COUNT F0027480 77412 DUP 1,NTAPE F0027490 77412 0 00000 0 00000 PZE **,,** LOGICAL TAPE NTAPE TO 1 F0027500 BINARY CARD NO. 9F000103 77432 TERRT SYN * F0027510 F0027520 TABLE OF WRITE TAPE USAGE F0027530 RECORD COUNT,, NOISE RECORD COUNT F0027540 77432 DUP 1,NTAPE F0027550 77432 0 00000 0 00000 PZE **,,** LOGICAL TAPE NTAPE TO 1 F0027560 BINARY CARD NO. 9F000104 77452 TERST SYN * F0027570 F0027580 DICTIONARY OF DATA ON TAPE F0027590 77452 DUP 2,TABSZ/2 F0027600 77452 0 00000 0 00000 PZE BCD LABEL F0027610 77453 0 00000 0 00000 PZE TAPNO-FILE,,RECORD F0027620 BINARY CARD NO. 9F000105 BINARY CARD NO. 9F000106 BINARY CARD NO. 9F000107 77572 TABLE SYN * F0027630 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 72 TABLES *************************************************************F0027650 77572 CDBUF BSS 26 F0027660 F0027670 77572 ROBUF SYN CDBUF ROTATED ROW BINARY TAPE IMAGE BUFFER. F0027680 F0027690 *************************************************************F0027700 F0027710 BINARY CARD NO. 9F000108 77624 0634 00 4 77633 PATCH2 SXA *+7,4 STORE LOCATION $F0027720 77625 0774 00 4 00005 AXT 5,4 LOAD MAX I/O SEQUENCE COUNT $F0027721 77626 0604 00 0 77637 STI ERASE SAVE INDICATORS $F0027722 77627 0441 00 4 00000 LDI **,4 MOVE I/O (OR SNAP SHOT) LIST $F0027723 77630 -0054 00 700000 LFT 700000 DO NOT ALLOW IOCD $F0027724 77631 0020 00 0 77633 TRA *+2 IF IOCD CHANGE TO IOCT $F0027725 77632 -0055 00 500000 SIL 500000 $F0027726 77633 0604 00 4 00000 STI **,4 $F0027727 77634 2 00001 4 77627 TIX *-5,4,1 $F0027728 77635 0441 00 0 77637 LDI ERASE RELOAD INDICATORS $F0027729 77636 0020 00 0 74365 TRA TAPE1+4 CONTINUE $F0027730 77637 0 00000 0 00000 ERASE PZE $F0027731 77640 -0634 00 1 77642 PATCH3 SXD *+2,C SET LOCATION AT $F0027732 77641 0774 00 4 77323 AXT UNITT+11,4 UNITT+11 MINUS $F0027733 77642 2 00000 4 77643 TIX *+1,4,** C(C) CHANNEL POINTER, $F0027734 77643 0634 00 4 74417 SXA TAPE2+4,4 STORE IT, POINT TO $F0027735 77644 1 00006 4 77645 TXI *+1,4,6 UNITT+17, AND $F0027736 77645 0634 00 4 74415 SXA TAPE2+2,4 STORE IT. $F0027737 77646 0774 00 4 00006 AXT 6,4 . $F0027738 77647 0020 00 0 74414 TRA TAPE2+1 GO BACK IN LINE $F0027739 77650 IOPTC EQU * PATCH SPACE HERE TO IOPUN $F0027740 F0027750 F0027760 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 73 IOPU LOGICAL/FUNCTIONAL EQUIVALENCE TABLE F0027780 F0027790 FUNCTION FORTRAN LOGICAL TAPE F0027800 F0027810 77653 IOPUN ORG TOPIOP-20 F0027820 BINARY CARD NO. 9FIOPU00 77653 0 00003 1 00111 PZE SYSUAV,1,3 16 B F0027840 77654 0 00003 0 00111 PZE SYSUAV,0,3 15 A F0027850 77655 0 00002 1 00111 PZE SYSUAV,1,2 14 B F0027860 77656 0 00002 0 00111 PZE SYSUAV,0,2 13 A F0027870 77657 0 00001 1 00111 PZE SYSUAV,1,1 12 B F0027880 77660 0 00001 0 00111 PZE SYSUAV,0,1 11 A F0027890 77661 0 00000 0 00156 PZE SYSCK2 10 A F0027900 77662 0 00000 0 00155 PZE SYSCK1 9 A F0027910 77663 0 00000 0 00160 PZE SYSUT2 8 B F0027920 77664 0 00000 0 00153 PZE SYSPP1 7 B F0027930 77665 -0 00000 0 00147 MZE SYSOU1 6 A F0027940 77666 0 00000 0 00151 PZE SYSIN1 5 A F0027950 77667 0 00000 0 00157 PZE SYSUT1 4 A F0027960 77670 0 00000 0 00162 PZE SYSUT4 3 B F0027970 77671 0 00000 0 00161 PZE SYSUT3 2 B F0027980 77672 0 00000 0 00140 PZE SYSLB1 1 A F0027990 77673 0 00020 0 00000 TAPNO PZE 0,,NTAPE DENSITY,,NUMBER OF LOGICAL TAPES F0028000 77674 0 00000 0 00144 PZE SYSCRD ON-LINE CARD READER F0028010 77675 0 00000 0 00146 PZE SYSPCH ON-LINE CARD PUNCH F0028020 77676 0 00000 0 00145 PZE SYSPRT ON-LINE PRINTER F0028030 77777 END -1 F0028040 BINARY CARD NO. TRA77777 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 1 POST PROCESSOR ASSEMBLY DATA 77677 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM REFERENCES TO DEFINED SYMBOLS 1 C 0,74165,74170,74250,74262,74276,74306,74332,74361,74367,74450,74451,74453,74507,74571,74575,74602 74635,74640,74654,74656,74657,74661,74662,74665,74672,74675,74676,74720,74737,75000,75004,75032,75034 75037,75042,75054,75067,75070,75071,75072,75073,75074,75075,75626,75706,76060,76072,76644,76646,76650 76651,76652,77640 2 H 0,74603,74607,74610,74612,74613,74623,74625,74633,74646,74650,74664,74743,74745,74771,74774,74776 75003,75005,75010,75012,75016,75017,75030,75064,75066,75153,75411 1000 K 0 2 T 0,74122,74130,74131,74132,74200,74204,74211,74222,74230,74237,74315,74324,74336,74343,74347,74452 74506,74535,74537,74540,74541,74544,74545,74546,74551,74561,74564,75076,75102,75107,75111,75114,75163 75174,75236,75244,75260,75455,75463,75610,75616,75700,76024,76176,76413,76415,76416,76425,76426,76433 76437,76477,76505,76507,76531 75442 REC 75435 75130 TWR 75126,75133,75135 7401 WITH 75117,75121 77153 ADMSK 73256,73262,74227,74641,74721 75236 AVPCH 74124 76022 BBUFF 75736,75740,75751 77144 BKSRC 77044,77073 77150 BLANK 76336 77147 BLNKS 76040,76327,76332,76340,76344,76667 73464 CARDM 73421 76015 CBMSK 75744 77572 CDBUF 77624 75407 CHKIO 74235,74616,74742,75161,75445,76070 75441 CHKIX 74233,74614,74740,75157,75443,76066 74442 CHKTO 74133,75134,75152,75246,75260,75623,75677,75712,75725,76005 75443 CHSKP 74253,74265,74301,75053 75450 CHSKX 74251,74263,74277,75051,76543 12000 CLOCK 0 77126 CLOSO 76743,77036 74222 CMP01 74214,74220 74230 CMP02 74221 77200 CURTP 73724,73770,74130,74134,74141,74142,74162,74216,74311,74331,74353,74372,74377,74414,74436,74512,74513 74526,74532,74535,74555,74562,74563,75076,75077,75112,75236,75245,75265,75311,75312,75316,75317,75327 75372,75630,75651,75676,76035,76036,76056,76111,76326,76330,76331,76337,76521,76654,76656,76657,76660 4000 DBLSP 0,75637,76451 77154 DCMSK 73226,73340,74320,74344,74565,74677,74772,75347 76641 DGETA 76365,76410 76654 DGETB 76643,76645 77075 DGLD0 73624,74047,76110 77070 DGLD1 77120 DGLD2 73622,74045,76106,77064,77065 77125 DGLD3 73601,76777,77002 77064 DGLDH 73645 76326 DGRET 74574 76662 DGST0 76366,76411 76733 DGST1 76662 76735 DGST2 76413,76511,76663,76664,76675,76703,76713 76774 DGSV0 76053 77041 DGSV1 77046 DGSV2 76774,77034 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 2 POST PROCESSOR ASSEMBLY DATA 77050 DGSV4 74027,76051,76402 77051 DGSV5 76121,76775,77047 77062 DGSV6 74002,74003,74004,77006,77010,77031,77033,77075,77112 77063 DGSV7 77040,77067 76773 DGSVA 74031,76404 77034 DGSVD 76773 74007 DIAG0 73604 74016 DIAG1 74013 74045 DIAG6 73157,74034 74055 DIAG9 74014 74052 DIAGY 73775,73777,74000,74001,74005,74016,74025,74026 73452 DISKF 73130 74545 DISKT 73160 77165 D(01) 74345,74647,74744,75533,77023 73516 D(400 73242 1000 EJECT 0,75641 75326 ENTER 74341,74406 75337 ENTR1 75353 75351 ENTR2 75343 75353 ENTR3 75340,75344,75350 75354 ENTR4 75334 75364 ENTR5 75357 75372 ENTR6 75363,75366 75376 ENTR7 75326,75355 4 EOFIL 0,74254,74266,74302,74634,74754,75056,75425 2 EOTAP 0,75014,75422,76465 77135 ERAS1 74055,75136,75147,75332,75341,75374,75400,75631,75675,76124,76134,76203,76234,76247,76304 77136 ERAS2 74075,74076,74104,74105,74517,74520,75745,75752,75771 77137 ERASA 73260,73264,74120,74121,74145,74146,74166,74206,74215,74225,74260,74270,74323,74530,74531,74632,74642 74673,74716,74722 77140 ERASD 74041,74043,74167,74213,74223,74224,74226,74307,74316,74322,74674,74700 77637 ERASE 77626,77635 77141 ERASR 74135,74136,74137,74140 75575 ERASS 75552,75554 77351 ERRET 75005,75102,75107,76477,76531,77127 76226 ETERM 76224,76226 76224 ETERR 74337,75015 76304 EXPOS 74752 73520 FAPBT 73542 73517 FAPCD 73115 75264 FIND0 75271 75265 FIND1 75266 FIND2 75304 75274 FIND3 75270 75313 FIND4 75274,75310,75360 75322 FIND5 75262,75272,75276 75325 FINDE 75302,75303 75262 FINDL 74217,74312,74403,74667,75356 76124 FLERM 74111 73731 INDIC 73720 73161 INIT0 73141,73150,73214 73174 INIT1 73171,73402 73214 INIT2 73200,73205,73320 73221 INIT3 73224 73247 INIT4 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 3 POST PROCESSOR ASSEMBLY DATA 73276 INIT5 73257,73263,73265 73125 INITA 73110,73527,73532,73543 77145 INITL 74177,74773 73525 INITS 73124 73106 INITT 100,73111,73112,73121,73247,73310 73430 INTRP 73324,73422 76017 IOCBI 75742 76636 IODFN 76571,76702 76361 IODG0 74015,74112,75371,76202 76363 IODG1 76374 IODG2 76363 76401 IODG3 76376,76476,76522,76530 76405 IODGA 74753,76133,76316 76406 IODGB 76144,76160,76213,76225,76262,76274,76351 76455 IODGC 76406 76521 IODGD 76474 76411 IODGE 76525 IODGF 76472 76545 IODGG 76541 76441 IODGH 73270,75164,75165 76447 IODGI 73271,76441 75155 IODGK 76435 75166 IODGL 75156 76465 IODGM 75175,76421,76427,76431 75173 IODGN 76470 76511 IODGQ 76500,76502,76504,76532 76544 IODGR 76467,76475,76525,76647,76655 76552 IODPA 76364,76407 76557 IODPB 76371,76401,76440,76452,76517,76523,76536,76542 76562 IODPC 76370,76372,76373 76574 IODPD 76510,76534,76560,76576,76721 76577 IODPE 76555,76561 76600 IODPF 76556 76601 IODPG 76557 76575 IODPH 76732 76606 IODPI 76552,76553,76554,76602,76603,76604,76665,76720,76722 76611 IODPJ 76723 76617 IODPK 76725,76731 76623 IODPN 76564,76570 76625 IODPO 76712 76627 IODPP 76717 76633 IODPQ 76700 76635 IODPR 76674 75576 IOPER 75503,75513,75540,75565,75567 75602 IOPLB 75502,75526 75451 IOPRQ 74244,74272,74424,74704,74726,75046,75155,76047,76054,76064 75464 IOPRX 75453 75562 IOPSF 75541,75543,75547,75556 75510 IOPSI 75475 75466 IOPSL 75047,77146 75524 IOPSM 75470 75542 IOPSN 75531 75537 IOPSP 75545 75521 IOPSW 75501 75517 IOPSX 75466,75523,75535,75574 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 4 POST PROCESSOR ASSEMBLY DATA 77650 IOPTC 77650 77653 IOPUN 76016 IORBI 75774,75776 73755 IORLX 74434,74437,74442,75105,77115 73713 IOSAV 73605,73610,73613,73616 73737 IOSEX 73725,73726,73727,73743,74444,75110,77005,77113,77117 73732 IOSVR 73713,73715,73716,73717,73723,73742,73746,73750,73753,73754,76313 73730 IOSVX 73603,73606,73611,73614 76457 IOSWT 73274,76451 73544 IPTCH 73544 6 .BSF. 0,74204,74710 5 .BSR. 0,74211,74732,75003,76102,76425 0 .RDC. 0 3 .REW. 0,74241,75174,76027 4 .RUN. 0,74174,76437 2 .SDH. 0,73206,73632 1 .SDL. 0,73210,73630 7 .WEF. 0,74336,75163,76076,76433 77206 LABEL 74330,74645 73756 LOAD0 73600 73767 LOAD1 73276,73767,75143 73763 LOADD 73253 73765 LOADS 73760,73762 73771 LOADX 73756 1 LODPT 0,75416 76765 LSECL 73512,73513,73514 77155 LSEVN 74630 77156 L(00) 74113,75613,76006,76361,77102 77157 L(01) 73773,74017,74021,74321,74501,74611,75011,75065,75560,76043,76506,77076 73515 L(03) 73175 77160 L(04) 77103 77161 L(05) 74150 77162 L(08) 73530,77015 77163 L(12) 75735,75737 77164 L(16) 74554,75647 77146 L(SL) 74560,75452 76741 MECL0 73145,73147,73644,76403 76755 MECL1 76760 76773 MECL2 76742,76753,76756,76773 76145 MEFEM 76143,76145 76143 MEFER 74255,74267,75060 75124 MNDSK 75120 14 MONIT 0 73533 MZERO 73373 4 NCHAN 0,74572,75576,77131,77211 76317 NDATA 76315,76317 75610 NDSEL 74175,74711,74733,76030 76313 NODAT 74404 75324 NOENT 74340,74342,74666,74671,75264,75275,75354,76412 75606 NONDT 74176,74712,74713,74734,74735,76031 75611 NONDX 75606 20 NTAPE 0,73673,74607,74613,74664,75017,75545,75551,76416,77311,77331,77352,77372,77412,77432,77673 77143 ONLIN 75624,75704 74563 ONLN1 74516 74512 ONLNC 75621,75703 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 5 POST PROCESSOR ASSEMBLY DATA 2000 ONLNX 0,74441,74600,74756,75100 73512 OVLY1 73142 73513 OVLY2 73144 73514 OVLY3 73146 75400 OVRFL 75370 77151 P0INT 76710 75711 PDELY 73246 76020 PLEFT 75747,75761,75763,76017 75700 PNCH0 73615 75745 PNCH1 75764,75765,75773 75742 PNCH2 75767 75774 PNCH3 75734 76001 PNCH4 75715,75716,75730 76006 PNCH5 73235,75770,76000 76011 PNCH6 75726,75727 77331 POINT 73772,73774,74035,74200,74222,74230,74315,74324,74343,74347,74771,74774,75064,75066,75111,75114,75320 75321,75330,75333,75335,77331 74665 POSR0 74660,74663 74704 POSR1 74715 74710 POSR2 74703 74716 POSR3 74675,74701,74707,74737 74725 POSR4 74731 74732 POSR5 74724 74737 POSR6 74725 76214 POSRM 76212,76214 76212 POSRR 74670 75670 PRINT 75662,75666 75613 PRNT0 73612 75647 PRNT2 75636 75652 PRNT3 75633,75656 75663 PRNT4 75643 75667 PRNT5 75653 75672 PRNT6 75614,75615,75644,75646,75654,75655,75657,75661,75664,75665,75667 75767 PUNLL 73244 75732 PUNSL 73230 76014 QPNC3 73236,73237,73240,75741,75766,75775,75777 76263 RDPRM 76260,76263 76260 RDPRR 75001,75027,75154 76247 RDXRM 75026 10 REDUN 0,74652,74754,74761,75430,75446,76422,76503,76526,76730 74175 REWD1 74242 74511 ROBIO 74447 77572 ROBUF 74457,74461,74511,77624 74445 ROTAT 74376 76134 RWERM 76132 76132 RWERR 74240 76737 SECL0 73143,73643 73640 SETDN 73633,73636 74161 SKIP0 74147,74157,74445,76342 74202 SKIP1 74173 74206 SKIP2 74202 74243 SKIP3 74236,74257 74260 SKIP4 74246 74270 SKIP5 74243,74305 74306 SKIP6 74170,74250,74261,74262,74274,74276 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 6 POST PROCESSOR ASSEMBLY DATA 74213 SKIPE 74207 74236 SKIPF 74172,77100 74326 SKIPR 74245,74273,74705 74256 SKP01 74247 74304 SKP02 74275 76275 SKPRM 76273,76275 76273 SKPRR 75447 76024 SNAP0 74366 76036 SNAP2 76026 76047 SNAP3 76060 SNAP4 76073 76074 SNAP5 76057 76101 SNAP6 76113 SNAPA 76041,76046,76050,76105 76121 SNAPB 76055 76122 SNAPC 76065 76123 SNAPD 76061,76062 73641 STDNX 73626 73325 STRNG 73315,73323 75246 SUAV1 75244,75261 75260 SUAV3 75250 11000 SUPRS 0,75660,75663,76570 73416 SYSCD 73217 73423 SYSDK 73203 73453 SYSDM 73420,73425,73427 77200 SYSFC 73314,73426,76701,77200 73467 SYSO2 73273 73475 SYSSW 73432 73351 SYSV1 73346 73354 SYSV2 73342 73400 SYSV3 73353,73357,73364,73415 73403 SYSV4 73366 73405 SYSV5 73370 73440 SYSVD 73405 73337 SYSVL 73165 73441 SYSVM 73406,73411,73414 73511 SYSVR 73403 77572 TABLE 75266,75277,75306,75337,75351,75352,75361,75365,75373,75375,77572 120 TABSZ 0,75263,75336,75364,77452 74124 TAPCK 75240 74331 TAPE0 74154 74361 TAPE1 74352,74355,74356,77636 74413 TAPE2 74314,74325,74350,77643,77645,77647 74522 TAPER 74127,74160 74351 TAPES 74334 74434 TAPEX 74201,74232,74234,74271,74360,74430,74432,75123,75127,75151,76112,76524 77673 TAPNO 73127,73136,73161,73163,73166,73174,73201,73204,73213,73215,73221,73222,73225,73317,73401,73620,73635 74204,74211,74237,74336,74541,74551,74561,74564,74625,74743,74745,75003,75163,75174,75241,75247,75251 75257,75411,75455,75463,75610,76076,76102,76425,76426,76433,76437,76446,77126 74575 TAPR0 74433,74456 74614 TAPR1 75050 75024 TAPR3 75017 75030 TAPR6 74644,74651,74750,76456 75051 TAPR7 74605 75062 TAPR8 75057 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 7 POST PROCESSOR ASSEMBLY DATA 75067 TAPR9 74576,74601,74620,74655,74757,74775,75013,75061,75062,76400,76520 74652 TAPRA 74643,74645 74754 TAPRB 74636 74776 TAPRC 74653,74762 75014 TAPRD 74622 75016 TAPRE 74664 74624 TAPRF 74633,74776,75006,75030 75153 TAPRG 75023 75047 TAPRS 75036,75041,75043 75111 TAPRW 75103 75116 TAPRX 74125,74153,74156,74431,74454,75101,75617,75701 74072 TAPS0 73607,74077 74134 TAPS1 74115 75117 TDISK 74545 75131 TDSK3 75125 75143 TDSK5 75125 76161 TEFEM 76155,76161 76155 TEFER 74303,74767,75063 76166 TEFRM 76157,76166 77412 TERCT 75016,75153,75553,75555,75557,75561,76415,76416,77412 77432 TERRT 74646,74650,75532,75534,76505,76507,77432 77452 TERST 73617,74610,74612,77452 77372 TERTT 75010,75012,77372 77152 TGADD 73536 76352 TPERM 76334,76345,76350,76352 76203 TPNRM 76200,76201 76176 TPNRR 74540,74542,74544,74572 74540 TPNRT 73137,75242 77142 TPNUM 74550,75300,75331,75345 74464 TPROA 74446,74500,74502,74503,74504,74505 74467 TPROB 74477 74506 TPROC 74452,74453 74460 TPROD 74476 74377 TPROW 74510 74425 TPSEL 74374,74407,74411,74412,74423 73310 UNAVL 73173 77310 UNITT 74165,74332,74362,74370,74450,74451,74575,74602,74635,74640,74654,74656,74657,74661,74662,74665,74672 74676,74720,75000,75004,75031,75032,75033,75037,75042,75054,75067,75070,75071,75072,75073,75074,75075 75602,75603,75604,75605,75626,75706,76060,76644,76646,76650,76651,76652,77132,77311,77641 73321 UNVLF 73250,73316 75064 UPDAT 74760,75021,75025 73451 WEMES 73107,73123 100 WMODE 0,74652,74754,74761,74777,75433 76234 WTXRM 75022 200 BOFBIT 0,75437 73600 BOTIOP 0,73105,73106,73600 3734 BOTTOM 0,73106,73434,73525,73660,73661 75141 CALLDR 75122,75146 75137 CALLTR 73534 FCOUNT 73117 2 FINTAP 0 73524 IBSNXT 73435 134 .CHEXI 135 .MODSW 75537 1 LIBTAP 0,73652 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 8 POST PROCESSOR ASSEMBLY DATA 7 MBNTAP 0 10 MCHTAP 0 5 MINTAP 0 6 MLSTAP 0,76446 77624 PATCH2 74151,74364 77640 PATCH3 74413 3 SINTAP 0,77041,77045,77070,77074 11 SNPTAP 0,74537,76024,76076,76102 122 SYSACC 114 SYSCEM 155 SYSCK1 77662 156 SYSCK2 77661 120 SYSCOR 144 SYSCRD 77674 102 SYSCUR 73114,73122 124 SYSCYD 101 SYSDAT 115 SYSDMP 77777 SYSEND 0 132 SYSGET 73436 117 SYSIDR 151 SYSIN1 77666 152 SYSIN2 116 SYSIOX 133 SYSJOB 73374,73526 104 SYSKEY 140 SYSLB1 73126,77672 141 SYSLB2 142 SYSLB3 143 SYSLB4 121 SYSLDR 73251,73534,73765,75141,76744 3720 SYSORG 0,73111 147 SYSOU1 73255,76443,76444,77665 150 SYSOU2 73261,73266,76442,76445 146 SYSPCH 75717,75724,76007,77675 123 SYSPID 106 SYSPOS 73125,76747 153 SYSPP1 77664 154 SYSPP2 145 SYSPRT 77676 103 SYSRET 73437 113 SYSRPT 126 SYSSLD 105 SYSSWS 1 SYSTAP 0,73772,73774,74044,75140,76757 127 SYSTCH 100 SYSTRA 100,73277,75137,75144 131 SYSTWT 111 SYSUAV 73347,77653,77654,77655,77656,77657,77660 110 SYSUBC 112 SYSUCW 107 SYSUNI 157 SYSUT1 77667 160 SYSUT2 77663 161 SYSUT3 77671 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 9 POST PROCESSOR ASSEMBLY DATA 162 SYSUT4 77670 75120 TDISKP 75125 4 TINTAP 0 77677 TOPIOP 0,77653 77677 TOPMEM 0 73577 TOPTAB 0 7400 WITHOT 75117,75145 702 (ACTIV 75462,75723 703 (ACTVX 720 (BCD5R 721 (BCD5X 76673,76716 10000 (CHKU) 0,74114,75124,75131,75150,75237 741 (CHPSW 724 (CHXAC 750 (CHXSP 717 (CKWAT 746 (COMMD 736 (COMMM 75562 722 (CVPRT 40000 (DATA) 0,74422,74617,76375,76420,76430 73662 (DATE) 716 (DECVA 73410,76045,76177,76677,76705 715 (DECVD 73645 (DGLD) 73603 (DIAG) 3734 (DORG) 0,77063 710 (ENBSW 73665 (ENDS) 732 (ETTXI 743 (FDAMT 73660 (FGBX) 73120,73135,73531,74032,76032,76034 747 (IBCDZ 740 (IOXSI 2 (.D..) 0,74553 4 (..E.) 0,74766 10 (...C) 0,74231,74427,74764,75124 73667 (LBLD) 73652 (LIBT) 73661 (LNCT) 73600 (LOAD) 73300,74050,76765 73666 (LODR) 73767,74006,76776 737 (LTPOS 73644 (MECL) 73664 (MSLN) 76762,76764 704 (NDATA 73212,73637,74203,74210,74335,75002,75162,75173,75607,76075,76101,76424,76432,76436 705 (NDSLX 712 (PAUSE 73433,76454 711 (PAWSX 3733 (PCBK) 0 73651 (PGCT) 73614 (PNCH) 73611 (PRNT) 706 (PROUT 73321,73412,73416,73423,73430,75670,76103,76367,76447,76537,76566,76572 707 (PUNCH 76002 40014 (RBEC) 0 FORTRAN COMMON I/O PACKAGE IOEX VERSION 2/07/05 PAGE 10 POST PROCESSOR ASSEMBLY DATA 40004 (RBEP) 0 40010 (RBNC) 0,77067 40000 (RBNP) 0 727 (RCHXI 73234,73241,75474,75516 726 (RCTXI 40016 (RDEC) 0 40006 (RDEP) 0 40012 (RDNC) 0 40002 (RDNP) 0 73622 (REST) 73672 (SCHU) 74131,74132,74163,74164,74354,74357,74631,74751,74770,75007,75140,75440,76261,76314,76347,76417,76512 76514,76515,76516 744 (SDCXI 73643 (SECL) 20010 (SKBC) 0 20000 (SKBP) 0,74043,76756,77044,77073 20012 (SKDC) 0 20002 (SKDP) 0 20000 (SKIP) 0,74155,74604,75117,75307,76156,76375,76471,76726 1000 (SNAP) 0,74351,74365,74536,75100 73663 (SNCT) 76025,76042,76044 73617 (STAT) 745 (STCXI 73626 (STDN) 723 (STOPD 713 (STOPX 10003 (SUAV) 0,75237 10002 (SUNV) 0,75237 714 (SYMUN 73606 (TAPE) 74042,76755,77037,77043,77066,77072 730 (TCOXI 73245 733 (TEFXI 4000 (TPER) 0,74543,74573,76473 735 (TRAPS 734 (TRAPX 731 (TRCXI 742 (TRPSW 725 (URRXI 75504,75546 40011 (WBNC) 0,77040 40001 (WBNP) 0 40013 (WDNC) 0 40003 (WDNP) 0 40015 (WEFC) 0 40005 (WEFP) 0,74333,74421 1 (W...) 0,74351,74401,74410,74606,74621,75044,75113,75314,76430,76501 40031 (WROW) 0 NO ERROR IN ABOVE ASSEMBLY. * FORTRAN II MONITOR TAPE POSITIONING RECORD F0A00000 * FAP F0A00020 FORTRAN II MONITOR TAPE POSITIONING RECORD 2/07/05 PAGE 1 ABS F0A00040 SST FORTRAN $F0A00060 00102 ORG SYSCUR F0A00080 BINARY CARD NO. 9F010000 00102 112600010000 BCI 1,9F0100 F0A00090 73666 ORG (LODR) F0A00100 BINARY CARD NO. 9F010001 73666 1 00012 0 03734 TXI ENTRY,,10 IOP TRANSFER WORD. F0A00110 03734 ORG BOTTOM F0A00120 F0A00130 BINARY CARD NO. 9F010002 03734 0441 60 0 73660 ENTRY LDI* (FGBX) LOAD INDICATORS TO DETERMINE SPACING. F0A00140 03735 0500 00 0 03755 CLA LBL SET TO DUMP INITIALLY. F0A00150 03736 -0054 00 000040 LFT 40 IF DUMP BIT IS ON, F0A00160 03737 0020 00 0 03751 TRA LOAD GO TO GET DUMP RECORD F0A00170 03740 0500 00 0 00115 CLA SYSDMP RESET LOCATION 2 TO ITS PROPER F0A00180 03741 0601 00 0 00002 STO 2 VALUE IN CASE ITS BEEN DESTROYED. F0A00190 03742 -0054 00 000070 LFT 70 NOT CALL FOR DUMP, CHECK FOR SIGNON. F0A00200 03743 0020 00 0 03756 TRA RREC NO, FOR AN ERROR RECORD. F0A00210 03744 0500 00 0 03767 CLA SGNON F0A00220 03745 0074 00 4 73606 SKIP TSX (TAPE),4 SPACE OVER RECORDS. F0A00230 03746 -0 20010 0 03772 MZE IOCOM,,(SKBC) F0A00240 03747 -0 00001 0 00000 MZE ,,SYSTAP F0A00250 03750 -0 00000 0 03751 MZE *+1 F0A00260 03751 -0057 00 000070 LOAD RIL 70 ZERO OUT THE SPACING BITS F0A00270 03752 0604 60 0 73660 STI* (FGBX) IN FLAGBOX F0A00280 03753 0601 00 0 03755 STO LBL F0A00290 D 03754 0074 01 4 73600 TSX (LOAD),4,1 F0A00300 03755 112600020000 LBL BCI 1,9F0200 F0A00310 F0A00320 03756 0774 00 4 00000 RREC AXT 0,4 SET INDEX TO ZERO. F0A00330 03757 -0056 00 000020 LNT 20 TEST FOR MACHINE OR SOURCE ERROR RECORD F0A00340 03760 1 00001 4 03761 TXI *+1,4,1 SET INDEX WITH PROPER F0A00350 03761 1 00010 4 03762 TXI *+1,4,8 SKIP LENGTH, THEN INITIALIZE F0A00360 BINARY CARD NO. 9F010003 03762 0634 00 4 03772 SXA IOCOM,4 THE SKIP COMMAND F0A00370 03763 0500 00 0 03770 CLA MCHER F0A00380 03764 -3 00010 4 03745 TXL SKIP,4,8 F0A00390 03765 0500 00 0 03771 CLA SRCER F0A00400 03766 0020 00 0 03745 TRA SKIP AND GO TO GET PROPER RECORD. F0A00410 F0A00420 03767 112600030000 SGNON BCI 1,9F0300 F0A00430 03770 112601000000 MCHER BCI 1,9F1000 F0A00440 03771 112601010000 SRCER BCI 1,9F1100 F0A00450 03772 0 00000 0 00001 IOCOM PZE 1 F0A00460 77777 END -1 F0A00470 BINARY CARD NO. TRA77777 FORTRAN II MONITOR TAPE POSITIONING RECORD 2/07/05 PAGE 1 POST PROCESSOR ASSEMBLY DATA 73667 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM NO ERROR IN ABOVE ASSEMBLY. * FORTRAN II MONITOR DUMP RECORD F0B00000 * FAP F0B00020 FORTRAN II MONITOR DUMP RECORD 2/07/05 PAGE 1 F0B00060 SST FORTRAN $F0B00070 F0B00080 ABS F0B00090 F0B00100 00102 ORG SYSCUR F0B00110 BINARY CARD NO. 9F020000 00102 112600020000 BCI 1,9F0200 F0B00120 73666 ORG (LODR) F0B00130 BINARY CARD NO. 9F020001 73666 1 00024 0 70507 TXI START,,20 F0B00140 00002 SAVTAP SYN FINTAP F0B00160 00006 OUTTAP SYN MLSTAP F0B00170 70500 ORGDP EQU BOTIOP-1600 F0B00180 07300 SAVL EQU -ORGDP $F0B00190 61200 SAVE EQU ORGDP-SAVL F0B00200 00037 SIZE EQU 31 (22)F0B00210 F0B00220 70507 ORG ORGDP+7 *F0B00230 F0B00240 F0B00250 **** PANEL SAVE **** F0B00260 F0B00270 BINARY CARD NO. 9F020002 70507 -0534 00 1 73651 START LXD (PGCT),1 SET FOR RIGHT NUMBER *F0B00280 70510 1 00002 1 70511 TXI *+1,1,2 OF LINES *F0B00290 70511 -0634 00 1 71355 SXD H-2,1 PER PAGE. *F0B00300 70512 -0634 00 1 71174 SXD CNT+3,1 *F0B00310 70513 -0534 00 1 03726 LXD BOTTOM-6,1 F0B00320 70514 -0634 00 1 73447 SXD LIMIT-19,1 SAVE X1 $F0B00330 70515 0774 00 0 00000 AXT ,0 (22)F0B00340 70516 0534 00 2 03724 LXA BOTTOM-8,2 F0B00350 70517 -0634 00 2 73450 SXD LIMIT-18,2 SAVE X2 $F0B00360 70520 -0534 00 4 03724 LXD BOTTOM-8,4 F0B00370 70521 0020 00 0 73507 TRA PCH3 TEST TAG MODE. $F0B00380 70522 0560 00 0 03722 LDQ BOTTOM-10 F0B00390 70523 -0600 00 0 73463 STQ LIMIT-7 F0B00400 70524 0441 00 0 03721 LDI BOTTOM-11 F0B00410 70525 0604 00 0 73466 STI LIMIT-4 F0B00420 70526 0441 00 0 03727 LDI BOTTOM-5 (22)F0B00430 70527 0760 00 0 00004 ENK F0B00440 70530 -0600 00 0 73471 STQ LIMIT-1 PANEL KEYS F0B00450 70531 0774 00 1 00004 AXT 4,1 F0B00460 70532 0600 00 1 73462 STZ LIMIT-8,1 LIMIT-9 SET NONZERO IF OVERFLOW IND ON. F0B00470 70533 0522 00 1 70543 XEC GARBG,1 LIMIT-10 SET NONZERO IF I/O CHECK ON, F0B00480 70534 -0625 00 1 73462 STL LIMIT-8,1 LIMIT-11 SET NONZERO IF DIVIDE CHECK ON, F0B00490 BINARY CARD NO. 9F020003 70535 2 00001 1 70532 LDTIX TIX *-3,1,1 LIMIT-12 SET NONZERO IF IN TRAPPING MODE. F0B00500 70536 0020 00 0 70543 TRA PANEL DUMP THE PANEL (22)F0B00510 70537 -0054 00 000010 LFT 10 TRAP MODE (22)F0B00520 70540 -0054 00 000004 LFT 4 DIVIDE CHECK (22)F0B00530 70541 -0054 00 000002 LFT 2 I/O CHECK (22)F0B00540 FORTRAN II MONITOR DUMP RECORD 2/07/05 PAGE 2 70542 -0054 00 000001 LFT 1 OVERFLOW (22)F0B00550 70543 GARBG BSS 0 F0B00560 F0B00570 **** SET UP PANEL **** F0B00580 F0B00590 70543 PANEL BSS 0 F0B00600 70543 0560 00 0 03723 LDQ BOTTOM-9 SIGN AND BITS 1 35 IN MQ. F0B00610 70544 -0500 00 0 03724 CAL BOTTOM-8 JUNK IN BIT P, Q IN 1 , P IN 2 F0B00620 70545 0763 00 0 00000 LLS 0 PUT SIGN OF AC IN SIGN OF AC. F0B00630 70546 0767 00 0 00001 ALS 1 JUNK IN Q, Q IN P, P IN 1. F0B00640 70547 0441 00 0 72606 LDI MNSO F0B00650 70550 -0760 00 0 00001 PBT TEST Q BIT IN P. F0B00660 70551 0441 00 0 72605 LDI MNSZ F0B00670 70552 -0120 00 0 70554 TMI *+2 TEST SIGN F0B00680 70553 0442 00 0 72607 OSI PLUS F0B00690 70554 0604 00 0 70501 STI BUF2 SET FOR OUTPUT. F0B00700 70555 0771 00 0 00042 ARS 34 JUNK IN 33, Q IN 34, P IN 35. F0B00710 70556 0763 00 0 00043 LLS 35 SHIFT INTO THE AC FROM THE MQ $F0B00720 70557 0602 00 0 73467 SLW LIMIT-3 F0B00730 70560 0765 00 0 00002 LRS 2 F0B00740 70561 0601 00 0 73470 STO LIMIT-2 F0B00750 70562 0763 00 0 00002 LLS 2 F0B00760 BINARY CARD NO. 9F020004 70563 -0130 00 0 00000 XCL F0B00770 70564 0074 00 1 71322 TSX CNVT,1 GO CONVERT TO BCD. F0B00780 70565 0604 00 0 70502 STI BUF2+1 ACCUMULATOR. F0B00790 70566 0602 00 0 70503 SLW BUF2+2 F0B00800 70567 0774 00 4 00011 AXT 9,4 F0B00810 70570 0560 00 4 73474 A LDQ LIMIT+2,4 F0B00820 70571 0074 00 1 71322 TSX CNVT,1 CONVERT MQ, SENSE INDICATORS, AND F0B00830 70572 0602 00 4 70517 SLW BUF2+14,4 PANEL KEYS TO BCD. STORE RIGHT HALF. F0B00840 70573 -0500 00 0 72626 CAL MINUS PICK UP BCD MINUS. F0B00850 70574 -0056 00 040000 LNT 40000 IS S BIT ON. F0B00860 70575 -0501 00 0 72773 ORA BLK NO, SET AC TO BLANK. F0B00870 70576 0602 00 4 70515 SLW BUF2+12,4 YES, STORE MINUS. F0B00880 70577 -0057 00 040000 RIL 40000 REMOVE S BIT. F0B00890 70600 0604 00 4 70516 STI BUF2+13,4 STORE LEFT HALF. F0B00900 70601 2 00003 4 70570 TIX A,4,3 F0B00910 70602 0074 00 4 73606 TSX (TAPE),4 WRITE OUT FIRST LINE $F0B00920 70603 0 40013 0 70710 PZE DSU1,,(WDNC) TO GAIN BUFFER SPACE. $F0B00930 70604 0 00006 0 00000 PZE ,,OUTTAP . $F0B00940 70605 0774 00 4 00024 AXT 20,4 . $F0B00950 70606 0441 00 0 72773 LDI BLK BLANK $F0B00960 70607 0604 00 4 72724 STI BUF+20,4 THIS AND $F0B00970 70610 0604 00 4 70551 STI BUF1+20,4 ANOTHER BUFFER. $F0B00980 BINARY CARD NO. 9F020005 70611 2 00001 4 70607 TIX *-2,4,1 . $F0B00990 70612 0774 00 2 00007 ICV AXT 7,2 CONVERT $F0B01000 70613 0774 00 4 00010 AXT 8,4 INDEX $F0B01010 70614 -0500 00 2 73456 ICV1 CAL LIMIT-12,2 REGISTERS $F0B01020 70615 -0734 00 1 00000 ICV2 PDX 0,1 STRAIGHT AND COMPLEMENTED. $F0B01030 70616 -0754 00 1 00000 PXD 0,1 . $F0B01040 70617 -0130 00 0 00000 XCL . $F0B01050 70620 0774 00 1 00006 AXT 6,1 . $F0B01060 FORTRAN II MONITOR DUMP RECORD 2/07/05 PAGE 3 70621 0767 00 0 00003 ALS 3 . $F0B01070 70622 -0763 00 0 00003 LGL 3 . $F0B01080 70623 2 00001 1 70621 TIX *-2,1,1 . $F0B01090 70624 0774 00 1 00004 ICV3 AXT 4,1 SET BUFFER POINTER, $F0B01100 70625 0604 60 1 73533 STI* PCH5+4,1 STORE BLANK AND $F0B01110 70626 1 77777 4 70677 TXI PTCH4,4,-1 MOVE TO NEW FRONTIERS... $F0B01120 70627 0774 00 1 00004 AXT 4,1 F0B01130 70630 0774 00 2 00004 AXT 4,2 F0B01140 70631 -0500 00 0 72604 C CAL OFF F0B01150 70632 0520 00 1 73462 ZET LIMIT-8,1 ON-OFF TRAPPING MODE, DIVIDE CHECK, F0B01160 70633 -0500 00 0 72603 CAL ON I/O CHECK, OVERFLOW. F0B01170 70634 0602 00 1 70531 SLW BUF1+4,1 F0B01180 70635 2 00001 1 70631 TIX C,1,1 F0B01190 70636 -0500 00 0 72604 D CAL OFF F0B01200 BINARY CARD NO. 9F020006 70637 -0760 00 2 00145 SLT 5,2 STATUS OF SENSE LIGHTS AND TURN ON AGAIN F0B01210 70640 0020 00 0 70643 TRA *+3 IF THEY WERE ON. F0B01220 70641 -0500 00 0 72603 CAL ON F0B01230 70642 0760 00 2 00145 SLN 5,2 F0B01240 70643 0602 00 2 70535 SLW BUF1+8,2 . $F0B01250 70644 2 00001 2 70636 TIX D,2,1 F0B01260 70645 0774 00 1 00006 AXT 6,1 F0B01270 70646 -0500 00 0 72603 E CAL ON STATUS OF SENSE SWITCHES. F0B01280 70647 0760 00 1 00167 PSE 119,1 F0B01290 70650 -0500 00 0 72604 CAL OFF F0B01300 70651 0602 00 1 70543 SLW BUF1+14,1 . $F0B01310 70652 2 00001 1 70646 TIX E,1,1 F0B01320 70653 0774 00 4 00002 AXT 2,4 SET SL2 FOR ERROR RECORD. $F0B01330 70654 0774 00 1 00006 AXT 6,1 . $F0B01340 70655 0604 00 1 70565 STI BUF3+12,1 BLANK OUT REMAINDER. $F0B01350 70656 2 00001 1 70655 TIX *-1,1,1 F0B01360 70657 0560 00 0 73467 LDQ LIMIT-3 F0B01370 70660 0500 00 0 73470 CLA LIMIT-2 F0B01380 70661 0765 00 0 00000 LRS 0 F0B01390 70662 0774 00 2 00006 AXT 6,2 F0B01400 70663 0074 00 1 71724 FAQ TSX FPT,1 FLOATING POINT ACCUMULATOR AND MQ. F0B01410 70664 0 00000 0 00000 0 F0B01420 BINARY CARD NO. 9F020007 70665 0602 00 2 70561 SLW BUF3+8,2 F0B01430 70666 -0500 00 0 72626 CAL MINUS F0B01440 70667 -0056 00 040000 LNT 40000 F0B01450 70670 -0501 00 0 72773 ORA BLK F0B01460 70671 0602 00 2 70557 SLW BUF3+6,2 F0B01470 70672 -0057 00 040000 RIL 40000 F0B01480 70673 0604 00 2 70560 STI BUF3+7,2 F0B01490 70674 0560 00 0 73463 LDQ LIMIT-7 F0B01500 70675 2 00003 2 70663 TIX FAQ,2,3 F0B01510 70676 0020 00 0 70712 TRA RETRN-1 (22)F0B01520 70677 -0760 00 0 00003 PTCH4 SSM ...PREPARE NEGATIVE WORD $F0B01530 70700 -3 00002 1 70702 TXL *+2,1,2 FOR COMPLEMENTED INDEX REGISTER, $F0B01540 70701 -0501 00 0 72602 ORA OBLK OR POSITIVE WORD, $F0B01550 70702 0601 60 1 73533 STO* PCH5+4,1 AND + REQUIESCANT IN PACEM + $F0B01560 70703 3 00000 2 70706 ICV4 TXH *+3,2,** . $F0B01570 70704 3 00004 2 70706 TXH *+2,2,4 IF COMPUTER IS IN MULT. TAG $F0B01580 FORTRAN II MONITOR DUMP RECORD 2/07/05 PAGE 4 70705 0604 60 1 73533 STI* PCH5+4,1 MODE, STORE BLANKS FOR ADDED IR*S, $F0B01590 70706 2 00001 4 73522 TIX PCH4+2,4,1 PROCEED AGAIN $F0B01600 70707 1 77777 1 73520 TXI PCH4,1,-1 TO MORE PATCH SPACE, AND ... $F0B01610 70710 3 00024 0 72700 DSU1 IORT DUMP1,,20 . $F0B01620 70711 0 00000 0 00000 PZE NOT USED $F0B01630 70712 -0534 00 3 73452 LXD LIMIT-16,3 (22)F0B01640 BINARY CARD NO. 9F020008 70713 0634 00 4 73664 RETRN SXA (MSLN),4 MACHINE ERROR RECORD. (22)F0B01650 F0B01660 **** WRITE PANEL AND EXAMINE CONTROL WORDS **** F0B01670 F0B01680 70714 0500 60 0 73661 CLA* (LNCT) UPDATE COUNT OF (22)F0B01690 70715 0400 00 0 73536 ADD L(5) LINES OF OUTPUT (22)F0B01700 70716 0601 60 0 73661 STO* (LNCT) (22)F0B01710 70717 0020 00 0 70721 TRA *+2 (22)F0B01720 70720 0 00000 0 00000 PZE NOT USED (22)F0B01730 ***** F0B01740 70721 0020 00 0 73501 WRPAN TRA PCH2 GO WRITE OUT PANEL $F0B01750 70722 0441 00 0 72773 LDI BLK TO GIVE LINE $F0B01760 70723 0604 00 0 72730 STI BUF+24 A CHARMING LOOK. $F0B01770 70724 -0500 00 0 72556 CAL FDUMP F0B01780 70725 0602 00 0 72610 SLW TEMP F0B01790 ***** F0B01800 70726 0500 00 0 03724 CLA BOTTOM-8 PICK UP SIGN BIT TO FIND IF CALL IS F0B01810 70727 -0120 00 0 70731 TMI PDUMP+1 COMING FROM DUMP OR PDUMP. F0B01820 70730 -0625 00 0 72616 PDUMP STL TEMP+6 SET PDUMP FLAG. F0B01830 ***** F0B01840 70731 0074 00 4 73606 TSX (TAPE),4 SPACE SAVING TAPE F0B01850 70732 0 20000 0 73353 PZE BS1R,,(SKBP) TO PARAMETER RECORD. F0B01860 70733 0 00002 0 00000 PZE ,,SAVTAP F0B01870 ***** F0B01880 70734 0074 00 4 73606 TSX (TAPE),4 READ F0B01890 70735 0 40000 0 72633 PZE NDIO,,(RBNP) PARAMETERS. F0B01900 70736 0 00002 0 00000 PZE ,,SAVTAP F0B01910 ***** F0B01920 70737 0074 00 4 73606 TSX (TAPE),4 REPOSITION F0B01930 70740 0 20000 0 73353 PZE BS1R,,(SKBP) SAVING TAPE. F0B01940 BINARY CARD NO. 9F020009 70741 0 00002 0 00000 PZE ,,SAVTAP F0B01950 70742 0534 00 2 72615 DUMP LXA TEMP+5,2 GET INDEX FOR NEXT PARAMETERS. F0B01960 70743 -3 00000 2 70746 TXL *+3,2,0 IS THIS FIRST SET. F0B01970 70744 -0534 00 4 71174 LXD CNT+3,4 SET TO RESTORE PAGE FOR NEXT DUMP PORTION F0B01980 70745 0634 00 4 71171 SXA CNT,4 F0B01990 70746 0520 00 0 72621 ZET TEMP+9 IS THERE ANOTHER DUMP PORTION. F0B02000 70747 0020 00 0 71573 TRA RSR NO, NO MORE DUMPING. F0B02010 70750 1 00001 2 70751 TXI *+1,2,1 YES. F0B02020 70751 0500 00 2 73451 CLA END,2 SELECT FIRST LIMIT OF DUMP PORTION. F0B02030 70752 0634 00 2 72615 SXA TEMP+5,2 F0B02040 70753 0100 00 0 71577 TZE TRSR IS 1ST LIMIT ZERO. F0B02050 70754 -0625 00 0 72622 STL TEMP+10 NO, SET INDICATOR TO LOOK FOR MORE. F0B02060 70755 -0130 00 0 00000 XCL PARAMETERS AND SAVE LIMIT IN MQ. F0B02070 70756 1 00001 2 70757 TXI *+1,2,1 F0B02080 70757 0500 00 2 73451 CLA END,2 SELECT SECOND LIMIT OF DUMP PORTION. F0B02090 70760 0100 00 0 71567 TZE FERR BAD CALLING SEQUENCE. F0B02100 FORTRAN II MONITOR DUMP RECORD 2/07/05 PAGE 5 70761 0040 00 0 70763 TLQ *+2 PUT LOWER LIMIT F0B02110 70762 0020 00 0 70764 TRA *+2 IN AC, F0B02120 70763 -0130 00 0 00000 XCL UPPER IN MQ, F0B02130 70764 -0773 00 0 00022 RQL 18 AND THEN LOWER IN DECREMENT AND F0B02140 70765 -0763 00 0 00022 LGL 18 UPPER IN ADDRESS F0B02150 70766 0602 00 0 72610 SLW TEMP OF TEMP. F0B02160 BINARY CARD NO. 9F020010 70767 1 00001 2 70770 TXI *+1,2,1 F0B02170 70770 0500 00 2 73451 CLA END,2 SELECT FORMAT-SPECIFYING ARGUMENT. F0B02180 70771 -0100 00 0 70773 TNZ *+2 3RD ARGUMENT CAN BE MISSING ONLY ON F0B02190 70772 -0625 00 0 72621 STL TEMP+9 LAST DUMP PORTION SO SET SENTINEL FOR NO F0B02200 70773 0734 00 4 00000 PAX 0,4 MORE AFTER THIS. F0B02210 70774 -3 00003 4 70777 TXL GON,4,3 F0B02220 70775 -0734 00 4 00000 PDX 0,4 FORTRAN PUTS FIXED POINT NO. IN DECR. F0B02230 70776 3 00003 4 71567 TXH FERR,4,3 ILLEGAL FORMAT SPECIFIER. F0B02240 70777 0634 00 4 72623 GON SXA TEMP+11,4 SAVE FORMAT NUMBER. F0B02250 71000 0634 00 2 72615 SXA TEMP+5,2 F0B02260 F0B02270 **** SET UP FOR NEXT GROUP AND CHECK FOR IDENTICAL WORDS***F0B02280 F0B02290 71001 -0500 00 0 72610 CONT CAL TEMP F0B02300 71002 0737 00 2 00000 PAC 0,2 COMPLIMENT UPPER LIMIT, F0B02310 71003 1 77777 2 71004 TXI *+1,2,-1 BUMP DOWN, F0B02320 71004 0634 00 2 72613 SXA TEMP+3,2 AND SAVE. F0B02330 71005 -0737 00 2 00000 PDC 0,2 COMPLIMENT LOWER LIMIT, F0B02340 71006 0634 00 2 71007 DFA SXA *+1,2 RECOMPLIMENT F0B02350 71007 -0774 00 1 00000 AXC 0,1 INTO XRA, F0B02360 71010 -0634 00 1 71114 SXD DFF2,1 SET DECREMENT, F0B02370 71011 0634 00 1 72614 SXA TEMP+4,1 AND SAVE. F0B02380 71012 -0634 00 2 71123 SXD DFF2A,2 SET DECR WITH COMPLIMENT OF LOWER LIMIT. F0B02390 71013 3 00000 2 71016 DFA1 TXH *+3,2,0 IS LOWER LIMIT ZERO. F0B02400 71014 -0500 00 2 00000 CAL 0,2 YES, PICK UP FIRST WORD OF DUMP, F0B02410 BINARY CARD NO. 9F020011 71015 0020 00 0 71021 TRA DFA2+1 AND GO AROUND OTHER TESTS. F0B02420 71016 -3 07300 2 71051 TXL DFC3,2,-ORGDP IS LOWER LIMIT IN DUMP RECORD AREA. F0B02430 71017 -0500 00 2 00000 CAL 0,2 NO, PICK UP FIRST WORD OF DUMP. F0B02440 71020 -3 16600 2 71030 DFA2 TXL DFB,2,-SAVE IS LOWER LIMIT IN BUFFER. F0B02450 71021 0322 00 2 00000 ERA 0,2 NO, TEST FOR DUPLICATE WORDS. F0B02460 71022 -0100 00 0 71112 TNZ DFF IF NOT DUPLICATE, TRANSFER. F0B02470 71023 0754 00 2 00000 PXA 0,2 IS THIS LAST F0B02480 71024 0402 00 0 72613 SUB TEMP+3 WORD OF DUMP PORTION. F0B02490 71025 0100 00 0 71112 TZE DFF F0B02500 71026 -0500 00 2 00000 CAL 0,2 NO, PICK UP NEXT WORD F0B02510 71027 1 77777 2 71020 TXI DFA2,2,-1 AND GO BACK. F0B02520 71030 -0520 00 0 72611 DFB NZT TEMP+1 IS UPPER CORE IN BUFFER. F0B02530 71031 0020 00 0 71040 TRA DFB1-1 NO. F0B02540 ***** F0B02550 71032 0074 00 4 73606 TSX (TAPE),4 YES, RESTORE F0B02560 71033 0 40000 0 72646 PZE IORT,,(RBNP) BUFFER. F0B02570 71034 0 00002 0 71704 PZE S2L,,SAVTAP F0B02580 ***** F0B02590 71035 0074 00 4 73606 TSX (TAPE),4 REPOSITION F0B02600 71036 0 20000 0 73353 PZE BS1R,,(SKBP) SAVING TAPE. F0B02610 71037 0 00002 0 00000 PZE ,,SAVTAP F0B02620 FORTRAN II MONITOR DUMP RECORD 2/07/05 PAGE 6 71040 0600 00 0 72611 STZ TEMP+1 INDICATE BUFFER IS RESTORED. F0B02630 71041 -3 07300 2 71052 DFB1 TXL DFC,2,-ORGDP IS IT IN DUMP RECORD AREA. F0B02640 71042 0322 00 2 00000 ERA 0,2 NO, TEST FOR DUPLICATE WORDS. F0B02650 BINARY CARD NO. 9F020012 71043 -0100 00 0 71112 TNZ DFF TRA IF NO DUPLICATES. F0B02660 71044 0754 00 2 00000 PXA 0,2 IS THIS LAST F0B02670 71045 0402 00 0 72613 SUB TEMP+3 WORD OF F0B02680 71046 0100 00 0 71112 TZE DFF DUMP PORTION. F0B02690 71047 -0500 00 2 00000 CAL 0,2 NO, PICK UP NEXT WORD F0B02700 71050 1 77777 2 71041 TXI DFB1,2,-1 AND GO BACK. F0B02710 71051 -0500 00 2 70500 DFC3 CAL ORGDP,2 PICK UP NEXT WORD. F0B02720 71052 0520 00 0 72620 DFC ZET TEMP+8 IS BUFFER ON SAVING TAPE. F0B02730 71053 0020 00 0 71063 TRA DFC1 YES. F0B02740 ***** F0B02750 71054 0074 00 4 73606 TSX (TAPE),4 NO, SAVE BUFFER. F0B02760 71055 0 40001 0 72646 PZE IORT,,(WBNP) F0B02770 71056 0 00002 0 71704 PZE S2L,,SAVTAP F0B02780 ***** F0B02790 71057 0074 00 4 73606 TSX (TAPE),4 REPOSITION F0B02800 71060 0 20000 0 73353 PZE BS1R,,(SKBP) SAVING TAPE. F0B02810 71061 0 00002 0 00000 PZE ,,SAVTAP F0B02820 71062 -0625 00 0 72620 STL TEMP+8 INDICATE BUFFER HAS BEEN SAVED. F0B02830 71063 0520 00 0 72611 DFC1 ZET TEMP+1 IS UPPER CORE IN BUFFER. F0B02840 71064 0020 00 0 71074 TRA DFC2 YES. F0B02850 ***** F0B02860 71065 0074 00 4 73606 TSX (TAPE),4 NO, POSITION F0B02870 71066 0 20000 0 73353 PZE BS1R,,(SKBP) SAVING TAPE F0B02880 71067 0 00002 0 00000 PZE ,,SAVTAP AND F0B02890 ***** F0B02900 71070 0074 00 4 73606 TSX (TAPE),4 READ 1ST SAVING DUMP F0B02910 BINARY CARD NO. 9F020013 71071 0 40010 0 72646 PZE IORT,,(RBNC) (UPPER CORE) INTO F0B02920 71072 0 00002 0 00000 PZE ,,SAVTAP BUFFER. F0B02930 71073 -0625 00 0 72611 STL TEMP+1 INDICATE UPPER CORE IS IN BUFFER. F0B02940 71074 3 00000 2 71076 DFC2 TXH *+2,2,0 IS THIS END CORE. F0B02950 71075 1 00001 2 71105 TXI DFE,2,1 YES, RESET XR AND GO TO WRITE DUPES. F0B02960 71076 0322 00 2 70500 ERA -SAVL,2 TEST FOR DUPE WORDS *F0B02970 71077 -0100 00 0 71107 TNZ DFE1 TRA IF NOT DUPES. F0B02980 71100 0754 00 2 00000 PXA 0,2 IS THIS LAST F0B02990 71101 0402 00 0 72613 SUB TEMP+3 WORD OF THIS F0B03000 71102 0100 00 0 71105 TZE DFE DUMP PORTION. F0B03010 71103 -0500 00 2 70500 CAL -SAVL,2 NO, PICK UP NEXT WORD *F0B03020 71104 1 77777 2 71074 TXI DFC2,2,-1 AND GO BACK. F0B03030 71105 0500 00 2 70477 DFE CLA -SAVL-1,2 PICK UP LAST DUPE WORD BELOW DUMP RECORD*F0B03040 71106 0020 00 0 71113 TRA DFF1 F0B03050 71107 0322 00 2 70500 DFE1 ERA -SAVL,2 RESTORE AC TO LAST DUPE WORD *F0B03060 71110 -0130 00 0 00000 XCL AND SAVE IN MQ. F0B03070 71111 0020 00 0 71114 TRA DFF2 F0B03080 71112 0500 00 2 77777 DFF CLA -1,2 PICK UP LAST DUPE WORD (BELOW DUMP RECORD).F0B03090 71113 0131 00 0 00000 DFF1 XCA SAVE IN MQ. F0B03100 71114 1 00000 2 71115 DFF2 TXI *+1,2,0 SUB LOWER LIMIT FROM CURRENT INDEX (DECR F0B03110 HAS INDEX OF LOC STARTED WITH FOR THIS TESTF0B03120 71115 0634 00 2 71116 SXA *+1,2 F0B03130 71116 -0774 00 2 00000 AXC 0,2 COMPLIMENT TO GET TRUE DUPE WORD COUNT. F0B03140 FORTRAN II MONITOR DUMP RECORD 2/07/05 PAGE 7 BINARY CARD NO. 9F020014 71117 0754 00 2 00000 PXA 0,2 F0B03150 71120 0771 00 0 00003 ARS 3 DIVIDE WORD COUNT F0B03160 71121 0767 00 0 00003 ALS 3 BY EIGHT. F0B03170 71122 0737 00 2 00000 PAC 0,2 PICK UP COMPLIMENT OF HIGHEST NO. OF F0B03180 DUPES DIVISIBLE BY EIGHT. F0B03190 71123 1 00000 2 71124 DFF2A TXI *+1,2,0 ADD LOWER LIMIT TO GET LAST LOC (COMPL). F0B03200 71124 0100 00 0 71212 TZE TEST IS NO. OF DUPE WORDS MORE THAN 7. F0B03210 71125 0774 00 4 00044 AXT 36,4 YES. F0B03220 71126 0534 00 1 72623 LXA TEMP+11,1 PICK UP FORMAT PARAM (0 IS OCTAL F0B03230 71127 0020 00 1 71133 TRA *+4,1 WITHOUT MNEMONICS, 1 OS FLOATING PT., 2 IS F0B03240 71130 0020 00 0 71133 TRA *+3 DECIMAL INTEGER -DECREMENT ONLY, AND 3 F0B03250 71131 0074 00 1 71705 TSX INT,1 IS OCTAL WITH MNEMONICS), AND F0B03260 71132 0074 00 1 71724 TSX FPT,1 CONVERT ACCORDINGLY. F0B03270 71133 0074 00 1 71322 TSX CNVT,1 F0B03280 71134 0602 00 0 72766 SLW DFBB+14 F0B03290 71135 -0500 00 0 72626 CAL MINUS IF BIT ONE WAS NOT ZERO, F0B03300 71136 -0056 00 040000 LNT 40000 SET THE CONVERTED WORD F0B03310 71137 -0501 00 0 72627 ORA LBLK TO MINUS. F0B03320 71140 0602 00 0 72764 SLW DFBB+12 F0B03330 71141 -0057 00 040000 RIL 40000 TAKE OUT BIT ONE. F0B03340 71142 0604 00 0 72765 STI DFBB+13 F0B03350 71143 -0500 00 0 72614 CAL TEMP+4 PICK UP BEGINNING LOC FOR THIS F0B03360 71144 -0765 00 0 00017 LGR 15 SET OF DUPE WORDS. F0B03370 BINARY CARD NO. 9F020015 71145 0760 00 0 00000 CLM CONVERT F0B03380 71146 -0765 00 0 00003 LGR 3 TO F0B03390 71147 0767 00 0 00003 ALS 3 BCD F0B03400 71150 -0763 00 0 00003 LGL 3 AND F0B03410 71151 2 00006 4 71147 TIX *-2,4,6 STORE. F0B03420 71152 -0501 00 0 72602 ORA OBLK F0B03430 71153 0602 00 0 72757 SLW DFBB+7 F0B03440 71154 0754 00 2 00000 PXA 0,2 GET TRUE F0B03450 71155 0737 00 1 00000 PAC 0,1 LOCATION OF F0B03460 71156 1 77777 1 71157 TXI *+1,1,-1 LAST DUPE F0B03470 71157 0754 00 1 00000 PXA 0,1 WORD, F0B03480 71160 -0765 00 0 00017 LGR 15 CONVERT TO F0B03490 71161 0760 00 0 00000 CLM BCD F0B03500 71162 -0765 00 0 00003 LGR 3 AND F0B03510 71163 0767 00 0 00003 ALS 3 STORE. F0B03520 71164 -0763 00 0 00003 LGL 3 F0B03530 71165 2 00001 4 71163 TIX *-2,4,1 F0B03540 71166 -0763 00 0 00006 LGL 6 F0B03550 71167 -0501 00 0 72627 ORA LBLK F0B03560 71170 0602 00 0 72761 SLW DFBB+9 F0B03570 71171 0774 00 4 00010 CNT AXT 8,4 TEST TO SEE IF F0B03580 71172 1 00002 4 71173 TXI *+1,4,2 CURRENT F0B03590 BINARY CARD NO. 9F020016 71173 -0500 00 0 72600 CAL HZR PAGE F0B03600 71174 -2 00074 4 71176 TNX *+2,4,60 IS FULL. F0B03610 71175 -0501 00 0 72557 ORA HONE YES, SET TO RESTORE. F0B03620 71176 0602 00 0 72750 SLW DFBB F0B03630 71177 0634 00 4 71171 SXA CNT,4 F0B03640 ***** F0B03650 FORTRAN II MONITOR DUMP RECORD 2/07/05 PAGE 8 71200 0074 00 4 73606 DFF3 TSX (TAPE),4 WRITE GROUP F0B03660 71201 0 40013 0 72644 PZE DSU2,,(WDNC) OF DUPLICATES (ONE LINE) . *F0B03670 71202 0 00006 0 00000 PZE ,,OUTTAP F0B03680 71203 0500 60 0 73661 CLA* (LNCT) UPDATE COUNT F0B03690 71204 0400 00 0 72601 ADD ONE OF LINES F0B03700 71205 0601 60 0 73661 STO* (LNCT) OF OUTPUT. F0B03710 71206 0754 00 2 00000 DFG PXA 0,2 F0B03720 71207 0402 00 0 72613 SUB TEMP+3 F0B03730 71210 -0100 00 0 71006 TNZ DFA MORE TO GO ON THIS PORTION OF DUMP. F0B03740 71211 0020 00 0 70742 TRA DUMP FINISHED. GO SEE IF MORE BLOCKS TO DUMP. F0B03750 F0B03760 **** PREPARE 8 WORDS TO BE DUMPED **** F0B03770 F0B03780 71212 0774 00 4 00030 TEST AXT 24,4 F0B03790 71213 -2 00000 2 71272 TNX LOW+1,2,0 IF INDEX IS ZERO, GO AROUND TESTS. F0B03800 71214 3 16600 2 71271 TXH LOW,2,-SAVE IS LOCATION BELOW BUFFER. F0B03810 71215 3 07300 2 71251 TXH MED,2,-ORGDP NO, IS IT BELOW DUMP RECORD. F0B03820 71216 0520 00 0 72620 HIGH ZET TEMP+8 NO, IT IS IN DUMP RECORD AREA. IS BUFFER F0B03830 71217 0020 00 0 71231 TRA HIGH2 ON TAPE. YES. F0B03840 71220 0634 00 4 71227 SXA HIGH1,4 NO, F0B03850 ***** F0B03860 BINARY CARD NO. 9F020017 71221 0074 00 4 73606 TSX (TAPE),4 SAVE BUFFER. F0B03870 71222 0 40001 0 72646 PZE IORT,,(WBNP) F0B03880 71223 0 00002 0 71704 PZE S2L,,SAVTAP F0B03890 ***** F0B03900 71224 0074 00 4 73606 TSX (TAPE),4 REPOSITION F0B03910 71225 0 20000 0 73353 PZE BS1R,,(SKBP) SAVING TAPE. F0B03920 71226 0 00002 0 00000 PZE ,,SAVTAP F0B03930 71227 0774 00 4 00000 HIGH1 AXT **,4 F0B03940 71230 -0625 00 0 72620 STL TEMP+8 INDICATE BUFFER IS ON TAPE. F0B03950 71231 0520 00 0 72611 HIGH2 ZET TEMP+1 IS UPPER CORE IN BUFFER. F0B03960 71232 0020 00 0 71244 TRA HIGH4 YES. F0B03970 71233 0634 00 4 71242 SXA HIGH3,4 NO, F0B03980 ***** F0B03990 71234 0074 00 4 73606 TSX (TAPE),4 POSITION F0B04000 71235 0 20000 0 73353 PZE BS1R,,(SKBP) SAVING TAPE F0B04010 71236 0 00002 0 00000 PZE ,,SAVTAP AND F0B04020 ***** F0B04030 71237 0074 00 4 73606 TSX (TAPE),4 READ UPPER CORE F0B04040 71240 0 40010 0 72646 PZE IORT,,(RBNC) INTO BUFFER. F0B04050 71241 0 00002 0 00000 PZE ,,SAVTAP F0B04060 71242 0774 00 4 00000 HIGH3 AXT **,4 F0B04070 71243 -0625 00 0 72611 STL TEMP+1 INDICATE UPPER CORE IN BUFFER. F0B04080 71244 -2 00000 2 71271 HIGH4 TNX LOW,2,0 IS LOCATION ZERO. F0B04090 71245 0560 00 2 70500 LDQ -SAVL,2 NO, PICK UP NEXT WORD *F0B04100 71246 0074 00 1 71276 TSX TESTP,1 CONVERT. F0B04110 BINARY CARD NO. 9F020018 71247 2 00003 4 71244 TIX HIGH4,4,3 IF LINE FINISHED, GO BACK. F0B04120 71250 0020 00 0 71335 TRA FINI LINE OF OUTPUT IS FINISHED. F0B04130 71251 -0520 00 0 72611 MED NZT TEMP+1 IS UPPER CORE IN BUFFER. F0B04140 71252 0020 00 0 71264 TRA MED2 NO. F0B04150 71253 0634 00 4 71262 SXA MED1,4 YES, F0B04160 ***** F0B04170 FORTRAN II MONITOR DUMP RECORD 2/07/05 PAGE 9 71254 0074 00 4 73606 TSX (TAPE),4 RESTORE F0B04180 71255 0 40000 0 72646 PZE IORT,,(RBNP) BUFFER. F0B04190 71256 0 00002 0 71704 PZE S2L,,SAVTAP F0B04200 ***** F0B04210 71257 0074 00 4 73606 TSX (TAPE),4 REPOSITION F0B04220 71260 0 20000 0 73353 PZE BS1R,,(SKBP) SAVING TAPE. F0B04230 71261 0 00002 0 00000 PZE ,,SAVTAP F0B04240 71262 0774 00 4 00000 MED1 AXT **,4 F0B04250 71263 0600 00 0 72611 STZ TEMP+1 INDICATE UPPER CORE NOT IN BUFFER. F0B04260 71264 -3 07300 2 71216 MED2 TXL HIGH,2,-ORGDP IS WORD IN UPPER CORE. F0B04270 71265 0560 00 2 00000 LDQ 0,2 NO, PICK UP NEXT WORD, F0B04280 71266 0074 00 1 71276 TSX TESTP,1 CONVERT, F0B04290 71267 2 00003 4 71264 TIX MED2,4,3 AND GO BACK IF LINE UNFINISHED. F0B04300 71270 0020 00 0 71335 TRA FINI LINE OF OUTPUT IS COMPLETE. F0B04310 71271 -3 16600 2 71251 LOW TXL MED,2,-SAVE IS WORD IN BUFFER. F0B04320 71272 0560 00 2 00000 LDQ 0,2 NO, PICK UP NEXT WORD, F0B04330 71273 0074 00 1 71276 TSX TESTP,1 CONVERT, AND F0B04340 71274 2 00003 4 71271 TIX LOW,4,3 GO BACK IF LINE UNFINISHED. F0B04350 BINARY CARD NO. 9F020019 71275 0020 00 0 71335 TRA FINI LINE OF OUTPUT IS COMPLETE. F0B04360 71276 0634 00 1 71320 TESTP SXA TSTP2,1 F0B04370 71277 0534 00 1 72623 LXA TEMP+11,1 PICK UP FORMAT AND F0B04380 71300 0020 00 1 71304 TRA *+4,1 CONVERT( 0 IS OCTAL, 1 IS FLOATING POINT, 2F0B04390 71301 0020 00 0 71304 TRA *+3 IS DECIMAL INTEGER -DECR ONLY, AND 3 IS F0B04400 71302 0074 00 1 71705 TSX INT,1 OCTAL WITH MNEMONICS.) F0B04410 71303 0074 00 1 71724 TSX FPT,1 F0B04420 71304 0074 00 1 71322 TSX CNVT,1 F0B04430 71305 0602 00 4 72732 SLW BUF+26,4 F0B04440 71306 -0500 00 0 72626 CAL MINUS IF BIT ONE IS 1, F0B04450 71307 -0056 00 040000 LNT 40000 MAKE CONVERTED WORD NEGATIVE F0B04460 71310 -0501 00 0 72773 ORA BLK AND F0B04470 71311 0602 00 4 72730 SLW BUF+24,4 STORE. F0B04480 71312 -0057 00 040000 RIL 40000 RESET BIT ONE TO ZERO F0B04490 71313 0604 00 4 72731 STI BUF+25,4 AND STORE. F0B04500 71314 1 77777 2 71315 TXI *+1,2,-1 F0B04510 71315 0754 00 2 00000 PXA 0,2 TEST FOR END F0B04520 71316 0402 00 0 72613 SUB TEMP+3 OF DUMP PORTION. F0B04530 71317 0100 00 0 71335 TZE FINI F0B04540 71320 0774 00 1 00000 TSTP2 AXT **,1 NOT END, F0B04550 71321 0020 00 1 00001 TRA 1,1 RETURN. F0B04560 71322 0634 00 1 71333 CNVT SXA CNVT9,1 THIS ROUTINE ACCEPTS THE MQ AS F0B04570 BINARY CARD NO. 9F020020 71323 0774 00 1 00044 AXT 36,1 INPUT, AND CONVERTS IT TO OCTAL F0B04580 71324 0767 00 0 00003 ALS 3 BY PRECEDING EACH THREE BITS WITH F0B04590 71325 -0763 00 0 00003 LGL 3 THREE BINARY ZEROS. F0B04600 71326 2 00006 1 71324 TIX *-2,1,6 THE LEFT HALF OF THE CONVERTED F0B04610 71327 0044 00 0 00000 PAI WORD IS LEFT IN THE F0B04620 71330 0767 00 0 00003 ALS 3 INDICATORS F0B04630 71331 -0763 00 0 00003 LGL 3 AND THE RIGHT HALF IN F0B04640 71332 2 00001 1 71330 TIX *-2,1,1 THE LOGICAL AC. F0B04650 71333 0774 00 1 00000 CNVT9 AXT 0,1 F0B04660 71334 0020 00 1 00001 TRA 1,1 F0B04670 71335 -0500 00 0 72773 FINI CAL BLK F0B04680 71336 -2 00003 4 71343 FINI1 TNX FINI2,4,3 IS DUMP PORTION ENDED, OR JUST A LINE. F0B04690 FORTRAN II MONITOR DUMP RECORD 2/07/05 PAGE 10 71337 0602 00 4 72730 SLW BUF+24,4 DUMP PORTION IS ENDED. F0B04700 71340 0602 00 4 72731 SLW BUF+25,4 FILL REST OF LINE F0B04710 71341 0602 00 4 72732 SLW BUF+26,4 WITH BLANKS. F0B04720 71342 0020 00 0 71336 TRA FINI1 F0B04730 71343 -0500 00 0 72614 FINI2 CAL TEMP+4 LINE IS ENDED, F0B04740 71344 -0765 00 0 00017 LGR 15 CONVERT LOCATION F0B04750 71345 0760 00 0 00000 CLM BEGINNING F0B04760 71346 -0765 00 0 00003 LGR 3 THIS LINE F0B04770 71347 0774 00 4 00006 AXT 6,4 TO BCD. F0B04780 71350 0767 00 0 00003 ALS 3 F0B04790 BINARY CARD NO. 9F020021 71351 -0763 00 0 00003 LGL 3 F0B04800 71352 2 00001 4 71350 TIX *-2,4,1 F0B04810 71353 0534 00 4 71171 LXA CNT,4 IS THIS F0B04820 71354 1 00002 4 71355 TXI *+1,4,2 PAGE F0B04830 71355 -2 00074 4 71357 TNX *+2,4,60 FULL. F0B04840 71356 -0501 00 0 72557 ORA HONE YES, SET TO RESTORE. F0B04850 71357 -0774 00 1 77777 H AXC -1,1 PICK UP BUFFER INDEX F0B04860 71360 0602 60 1 72665 SLW* SWT+14,1 AND STORE LOCATION IN CURRENT BUFFER. F0B04870 71361 0634 00 4 71171 SXA CNT,4 F0B04880 71362 0634 00 2 71422 PACK SXA PACK9,2 THIS ROUTINE PICKS UP THE CONVERTED F0B04890 71363 0774 00 4 00033 AXT 27,4 WORDS F0B04900 71364 0774 00 2 00000 AXT 0,2 AND STORES THEM F0B04910 71365 -0500 00 4 72733 CAL BUF+27,4 IN THE CURRENT F0B04920 71366 0560 00 4 72734 LDQ BUF+28,4 OUTPUT BUFFER IN THE F0B04930 71367 -0765 00 0 00014 LGR 12 CORRECT OUTPUT POSITIONS. F0B04940 71370 -0600 60 1 72650 STQ* SWT+1,1 F0B04950 71371 -0500 00 4 72734 CAL BUF+28,4 F0B04960 71372 0560 00 4 72735 LDQ BUF+29,4 F0B04970 71373 -0765 00 0 00014 LGR 12 F0B04980 71374 -0600 60 1 72651 STQ* SWT+2,1 F0B04990 71375 -0500 00 4 72736 CAL BUF+30,4 F0B05000 71376 0560 00 4 72737 LDQ BUF+31,4 F0B05010 BINARY CARD NO. 9F020022 71377 -0765 00 0 00014 LGR 12 F0B05020 71400 -0500 00 4 72735 CAL BUF+29,4 F0B05030 71401 -0765 00 0 00014 LGR 12 F0B05040 71402 -0600 60 1 72654 STQ* SWT+5,1 F0B05050 71403 -0500 00 4 72737 CAL BUF+31,4 F0B05060 71404 0560 00 4 72740 LDQ BUF+32,4 F0B05070 71405 -0763 00 0 00014 LGL 12 F0B05080 71406 0602 60 1 72655 SLW* SWT+6,1 F0B05090 71407 -0500 00 4 72740 CAL BUF+32,4 F0B05100 71410 0560 00 4 72741 LDQ BUF+33,4 F0B05110 71411 -0773 00 0 00030 RQL 24 F0B05120 71412 -0763 00 0 00014 LGL 12 F0B05130 71413 0602 60 1 72660 SLW* SWT+9,1 F0B05140 71414 -2 00011 4 71422 TNX *+6,4,9 IS THIS END OF LINE. F0B05150 71415 -0500 00 4 72731 CAL BUF+25,4 NO. F0B05160 71416 0602 60 1 72661 SLW* SWT+10,1 F0B05170 71417 -0500 00 4 72732 CAL BUF+26,4 F0B05180 71420 0602 60 1 72664 SLW* SWT+13,1 F0B05190 71421 1 77771 2 71365 TXI PACK+3,2,-7 F0B05200 71422 0774 00 2 00000 PACK9 AXT 0,2 COMPLETE LINE IS IN BUFFER. F0B05210 FORTRAN II MONITOR DUMP RECORD 2/07/05 PAGE 11 71423 0634 00 1 71357 SXA H,1 F0B05220 ***** F0B05230 71424 0074 00 4 73606 FINI4 TSX (TAPE),4 WRITE LINE OF DUMP OR F0B05240 BINARY CARD NO. 9F020023 71425 0 40003 1 72644 PZE DSU2,1,(WDNP) MNEMONICS. F0B05250 71426 0 00006 0 00000 PZE ,,OUTTAP F0B05260 71427 0500 60 0 73661 CLA* (LNCT) UPDATE COUNT OF F0B05270 71430 0400 00 0 72601 ADD ONE LINES F0B05280 71431 0601 60 0 73661 STO* (LNCT) OF OUTPUT. F0B05290 71432 0534 00 1 72623 LXA TEMP+11,1 SET INDEX REG. TO FORMAT. F0B05300 71433 -3 00002 1 71563 TXL J,1,2 TRANSFER IF NO MNEMONICS. F0B05310 71434 0520 00 0 72617 ZET TEMP+7 IS LINE OF MNEMONICS NEXT. F0B05320 71435 0020 00 0 71562 TRA J-1 NO. F0B05330 F0B05340 **** WITH MNEMONICS **** F0B05350 F0B05360 71436 -0625 00 0 72617 STL TEMP+7 YES, RESET MNEMONICS FLAG. F0B05370 71437 0634 00 2 71560 SXA AXT,2 F0B05380 71440 0774 00 2 00030 AXT 24,2 F0B05390 71441 0754 00 0 00000 TYPA PXA ,0 F0B05400 71442 0441 00 2 72730 LDI BUF+24,2 PICK UP CONVERTED F0B05410 71443 0560 00 2 72731 LDQ BUF+25,2 WORD. F0B05420 71444 0162 00 0 71446 TQP *+2 F0B05430 71445 0020 00 0 71551 TRA TYPB3 F0B05440 71446 -0114 01 0 72777 CAQ TBLA,0,1 IS THIS A PREFIX OPCODE. F0B05450 71447 0100 00 0 71460 TZE TYPB NO. F0B05460 71450 0054 00 000020 RFT 20 YES, IS SIGN NEGATIVE. F0B05470 71451 0020 00 0 71455 TRA *+4 NO. F0B05480 71452 0754 00 0 00000 PXA ,0 SIGN IS NEGATIVE, FIND MATCH F0B05490 BINARY CARD NO. 9F020024 71453 0560 00 2 72731 LDQ BUF+25,2 IN NEG. TABLE. F0B05500 71454 -0114 01 0 73002 CAQ TBLA+3,0,1 AND F0B05510 71455 0602 00 2 72731 SLW BUF+25,2 SAVE MNEMONIC. F0B05520 71456 -0500 00 0 72773 CAL BLK FILL IN WITH F0B05530 71457 0020 00 0 71553 TRA TYPB3+2 BLANKS. F0B05540 71460 0774 00 1 73020 TYPB AXT TBLBM,1 PICK UP ADDRESS FOR NEGATIVE OPCODES. F0B05550 71461 0054 00 000020 RFT 20 IS WORD NEGATIVE. F0B05560 71462 0774 00 1 73010 AXT TBLBP,1 NO, RESET ADDRESS FOR POSITIVE OPCODES, F0B05570 71463 0634 00 1 71464 SXA CAQ,1 AND STORE. F0B05580 71464 -0114 01 0 00000 CAQ CAQ 0,0,1 FIND RIGHT SUBTABLE F0B05590 71465 0621 00 0 71475 STA TYPB1 AND STORE ADDRESS. F0B05600 71466 -0734 00 4 00000 PDX 0,4 SET XR WITH WORD COUNT OF SUBTABLE. F0B05610 71467 0760 00 0 00000 CLM F0B05620 71470 -0763 00 0 00014 LGL 12 STORE NUMERICAL OPCODE IN F0B05630 71471 0621 00 0 71476 STA TYPB1+1 TEST FOR MATCH. F0B05640 71472 0760 00 0 00006 COM F0B05650 71473 -0320 00 0 71506 ANA TYPB2 F0B05660 71474 0621 00 0 71500 STA TYPB1+3 F0B05670 71475 0441 00 4 00000 TYPB1 LDI 0,4 PICK UP WORD FROM CORRECT SUBTABLE. F0B05680 71476 0056 00 000000 RNT 0 DOES THIS WORD MATCH. F0B05690 71477 2 00001 4 71475 TIX *-2,4,1 NO, GO BACK FOR NEXT WORD, IF ANY. F0B05700 71500 0054 00 000000 RFT 0 WORD MATCHES OR END OF SUBTABLE. ARE OTHER F0B05710 FORTRAN II MONITOR DUMP RECORD 2/07/05 PAGE 12 BINARY CARD NO. 9F020025 71501 2 00001 4 71475 TIX *-4,4,1 YES, GO BACK FOR NEXT WORD, IF ANY. F0B05720 71502 0522 00 0 71476 XEC *-4 WORD MATCHES OR END OF SUBTABLE. F0B05730 71503 0020 00 0 71550 TRA TYPB3-1 NO MATCHING MNEMONIC. F0B05740 71504 0522 00 0 71500 XEC *-4 MAYBE, CHECK AGAIN. F0B05750 71505 0020 00 0 71550 TRA TYPB3-1 END OF SUBTABLE, NO MNEMONIC. F0B05760 71506 -0046 00 0 00777 TYPB2 PIA 511 MNEMONIC WAS FOUND, PLACE IN AC. F0B05770 71507 0774 00 1 73006 AXT TBLEP,1 F0B05780 71510 -0340 00 0 73224 LAS PSE IS IT PLUS SENSE. F0B05790 71511 0020 00 0 71513 TRA *+2 NO. F0B05800 71512 0020 00 0 71532 TRA TYPE YES. F0B05810 71513 0774 00 1 73007 AXT TBLEM,1 NO, IS IT F0B05820 71514 -0340 00 0 73342 LAS MSE MINUS SENSE. F0B05830 71515 0020 00 0 71517 TRA *+2 NO. F0B05840 71516 0020 00 0 71532 TRA TYPE YES. F0B05850 71517 0771 00 0 00014 ARS 12 NO, SHIFT OUT NUMERALS, FILL F0B05860 71520 -0501 00 0 72774 ORA 2BLK WITH BLANKS F0B05870 71521 0602 00 2 72731 SLW BUF+25,2 AND STORE. F0B05880 71522 -0773 00 0 00003 RQL 3 F0B05890 71523 -0500 00 0 72773 CAL BLK F0B05900 71524 0162 00 0 71553 TQP TYPB3+2 TEST FOR INDIRECT F0B05910 71525 -0773 00 0 00001 RQL 1 BITS IN F0B05920 71526 0162 00 0 71553 TQP TYPB3+2 WORD. F0B05930 BINARY CARD NO. 9F020026 71527 -0500 00 0 72776 CAL ASTR INSTRUCTION IS INDIRECT, PUT F0B05940 71530 0602 00 2 72732 SLW BUF+26,2 ASTERISK IN MNEMONIC. F0B05950 71531 0020 00 0 71554 TRA TYPB3+3 F0B05960 71532 0771 00 0 00014 TYPE ARS 12 SHIFT OUT NUMERALS, F0B05970 71533 -0501 00 0 72774 ORA 2BLK FILL WITH BLANKS, F0B05980 71534 0602 00 2 72731 SLW BUF+25,2 AND STORE. F0B05990 71535 0560 00 2 72732 LDQ BUF+26,2 PICK UP SECOND HALF, F0B06000 71536 -0500 00 0 72773 CAL BLK STORE F0B06010 71537 0602 00 2 72730 SLW BUF+24,2 BLANKS. F0B06020 71540 0602 00 2 72732 SLW BUF+26,2 F0B06030 71541 -0773 00 0 00014 RQL 12 PUT MIDDLE F0B06040 71542 0760 00 0 00000 CLM CHARACTERS IN F0B06050 71543 -0763 00 0 00014 LGL 12 AC. F0B06060 71544 -0100 00 0 71555 TNZ TYPB3+4 ARE THEY ZERO. IF NOT, TRANSFER. F0B06070 71545 0634 00 1 71546 SXA *+1,1 YES, F0B06080 71546 -0500 00 0 00000 CAL 0 PICK UP ADDRESS OF TBLEP OR TBLEM, F0B06090 71547 0020 00 0 71465 TRA CAQ+1 AND GO BACK TO INTERPRET FURTHER. F0B06100 71550 -3 73007 1 71555 TXL TYPB3+4,1,TBLEM WAS THIS SENSE OPERATION. F0B06110 71551 -0500 00 0 72773 TYPB3 CAL BLK NO. PICK UP BLANK. F0B06120 71552 0602 00 2 72731 SLW BUF+25,2 F0B06130 71553 0602 00 2 72732 SLW BUF+26,2 F0B06140 71554 0602 00 2 72730 SLW BUF+24,2 F0B06150 BINARY CARD NO. 9F020027 71555 2 00003 2 71441 TIX TYPA,2,3 GO BACK FOR NEXT WORD. F0B06160 71556 0534 00 4 71171 STEP LXA CNT,4 END OF LINE OF MNEMONICS. F0B06170 71557 -0500 00 0 72773 CAL BLK F0B06180 71560 0774 00 2 00000 AXT AXT 0,2 F0B06190 71561 1 00001 4 71357 TXI H,4,1 GO TO WRITE LINE OF MNEMONICS. F0B06200 71562 0600 00 0 72617 STZ TEMP+7 INDICATE LINE OF DUMP NEXT . F0B06210 71563 0754 00 2 00000 J PXA 0,2 TEST FOR END OF F0B06220 FORTRAN II MONITOR DUMP RECORD 2/07/05 PAGE 13 71564 0322 00 0 72613 ERA TEMP+3 DUMP PORTION. F0B06230 71565 -0100 00 0 71006 TNZ DFA NO, GO BACK FOR NEXT LINE. F0B06240 71566 0020 00 0 70742 TRA DUMP YES, LOOK FOR NEXT PARAMETERS. F0B06250 F0B06260 **** ERROR IN CALLING SEQUENCE **** F0B06270 F0B06280 ***** F0B06290 71567 0020 00 0 73473 FERR TRA PCH1 GO WRITE ERR MESSAGE $F0B06300 71570 0500 60 0 73661 CLA* (LNCT) (22)F0B06310 71571 0400 00 0 72601 ADD ONE UPDATE LINE COUNT (22)F0B06320 71572 0601 60 0 73661 STO* (LNCT) (22)F0B06330 71573 0520 00 0 72616 RSR ZET TEMP+6 IS THIS DUMP OR PDUMP... (22)F0B06340 71574 0020 00 0 71603 TRA PRSR PDUMP. RETURN TO PROGRAM (22)F0B06350 D 71575 0074 01 4 73600 TSX (LOAD),4,1 DUMP. GO TO SIGN-ON (22)F0B06360 71576 112600030000 BCI 1,9F0300 (22)F0B06370 71577 0520 00 0 72622 TRSR ZET TEMP+10 1ST LIMIT IS ZERO, IS IT FIRST DUMP (22)F0B06380 71600 0020 00 0 71573 TRA RSR NO, END OF DUMP (22)F0B06390 71601 -0625 00 0 72621 STL TEMP+9 NO FURTHER DUMPS (22)F0B06400 71602 0020 00 0 71001 TRA CONT PROCEED (22)F0B06410 BINARY CARD NO. 9F020028 71603 -0520 00 0 72611 PRSR NZT TEMP+1 IS BUFFER RESTORED (22)F0B06420 71604 0020 00 0 71613 TRA RSR1 YES (22)F0B06430 71605 0074 00 4 73606 TSX (TAPE),4 NO, RESTORE IT (22)F0B06440 71606 0 40000 0 72646 PZE IORT,,(RBNP) (22)F0B06450 71607 0 00002 0 71704 PZE S2L,,SAVTAP (22)F0B06460 71610 0074 00 4 73606 TSX (TAPE),4 REPOSITION SAVE TAPE (22)F0B06470 71611 0 20000 0 73353 PZE BS1R,,(SKBP) (22)F0B06475 71612 0 00002 0 00000 PZE ,,SAVTAP (22)F0B06480 71613 0074 00 4 73606 RSR1 TSX (TAPE),4 SAVE LOWER MEMORY FOR READ ROUTINE (22)F0B06485 71614 0 40001 0 73535 PZE IOBOT,,(WBNP) (22)F0B06490 71615 0 00002 0 00000 PZE ,,SAVTAP (22)F0B06495 71616 0074 00 4 73606 TSX (TAPE),4 REPOSITION TAPE TO READ (22)F0B06500 71617 0 20000 0 73352 PZE BS2R,,(SKBP) SAVED UPPER CORE (22)F0B06505 71620 0 00002 0 00000 PZE ,,SAVTAP (22)F0B06510 71621 0774 00 4 00056 AXT SELEND-SELBEG,4 MOVE SELECT ROUTINE (22)F0B06520 71622 0500 00 4 71704 CLA SELOC+SELEND-SELBEG,4 TO LOWER CORE(RESTORED (22)F0B06530 71623 0601 00 4 04012 STO SELEND,4 BY PDUMP) (22)F0B06540 71624 2 00001 4 71622 TIX *-2,4,1 (22)F0B06550 71625 0020 00 0 03734 TRA SELBEG (22)F0B06560 71626 SELOC EQU * SELECT ROUTINE LOADED HERE (22)F0B06570 03734 LOC BOTTOM MOVED HERE (22)F0B06580 03734 0535 00 2 00161 SELBEG LAC SYSUT3,2 UCB FOR SAVTAP (22)F0B06590 03735 0500 00 0 03773 CLA IOXSLL LOC OF SELECT (22)F0B06600 03736 0520 00 2 00001 ZET 1,2 TEST TAPE IN USE (22)F0B06610 BINARY CARD NO. 9F020029 CARD ORIGIN 71631 03737 0020 00 0 03736 TRA *-1 YES, WAIT (22)F0B06620 03740 0601 00 2 00001 STO 1,2 LOCATE SELECT (22)F0B06630 03741 0074 00 4 00702 TSX (ACTIV,4 START UNIT (22)F0B06640 03742 0 00000 0 00161 PZE SYSUT3 (22)F0B06650 03743 0520 00 2 00001 ZET 1,2 IS READ COMPLETE... (22)F0B06660 03744 0020 00 0 03743 TRA *-1 NO, WAIT (22)F0B06670 03745 0441 00 0 03773 LDI IOXSLL ERROR INDICATION (22)F0B06680 03746 -0054 00 300000 LFT 300000 WAS READ SUCCESSFUL (22)F0B06690 03747 0020 00 0 03751 TRA *+2 NO. BOMB OUT (22)F0B06700 FORTRAN II MONITOR DUMP RECORD 2/07/05 PAGE 14 03750 0020 00 0 03727 TRA BOTTOM-5 YES. RETURN TO PDUMP (22)F0B06710 03751 0074 00 4 00706 TSX (PROUT,4 INFORM OPERATOR, SINCE (22)F0B06720 03752 0 00000 0 00001 PZE 1 WE HAVE NO MEANS OF (22)F0B06730 03753 0 00007 0 03763 PZE M,,7 WRITING OFFLINE (22)F0B06740 03754 0500 00 0 03761 CLA 1B17 SET IBSYS BOMB BIT (22)F0B06750 03755 -0602 00 0 00133 ORS SYSJOB (22)F0B06760 03756 0500 00 0 03762 CLA IBSXEC TO LOOK FOR NEXT SEGMENT (22)F0B06770 03757 0601 00 0 00132 STO SYSGET (22)F0B06780 03760 0020 00 0 00103 TRA SYSRET RETURN TO IBSYS (22)F0B06790 03761 +000001000000 1B17 DEC 1B17 (22)F0B06800 03762 312262672523 IBSXEC BCI 1,IBSXEC (22)F0B06810 03763 602321454546 M BCI 7, CANNOT RESTORE AFTER PDUMP. JOB ENDED. (22)F0B06820 BINARY CARD NO. 9F020030 CARD ORIGIN 71657 03772 3 07300 0 70500 R IORT ORGDP,,SYSEND+1-ORGDP (30)F0B06830 03773 0 03774 0 03772 IOXSLL R,,*+1 (22)F0B06840 03774 -0120 00 0 04006 TMI PST SELECT PLUS OR MINUS... (22)F0B06850 03775 0500 60 0 00161 CLA* SYSUT3 UCB FOR SAVTAP (22)F0B06860 03776 -0734 00 2 00000 PDX ,2 DECIMAL UNIT ADDRESS (22)F0B06870 03777 1 00020 2 04000 TXI *+1,2,16 BINARY UNIT ADDRESS (22)F0B06880 04000 0634 00 2 04003 SXA *+3,2 TO SELECT (22)F0B06890 04001 0500 00 0 03773 CLA IOXSLL I/O COMMAND LOCATION (22)F0B06900 04002 0621 60 0 00727 STA* (RCHXI TO RCH (22)F0B06910 04003 0762 00 0 00000 RDS ** SELECT (22)F0B06920 04004 0522 60 0 00727 XEC* (RCHXI LOAD CHANNEL (22)F0B06930 04005 0020 00 4 00001 TRA 1,4 RETURN (22)F0B06940 04006 0737 00 2 00000 PST PAC 0,2 SELECT MINUS (22)F0B06950 04007 0600 00 2 00001 STZ 1,2 SET UNIT FREE (22)F0B06960 04010 0604 00 0 03773 STI IOXSLL SAVE ERRORS (22)F0B06970 04011 0020 00 4 00001 TRA 1,4 RETURN (22)F0B06980 04012 SELEND EQU * END OF LOW CORE CODING (22)F0B06990 71704 LOC RETURN TO NORMAL LOCATIONS (22)F0B07000 71704 622165250260 S2L BCI 1,SAVE2 LABEL FOR SAVTAP (22)F0B07010 F0B07170 **** INTEGER OUTPUT **** F0B07180 F0B07190 BINARY CARD NO. 9F020031 71705 0441 00 0 72775 INT LDI 3BLK THIS ROUTINE TRANSLATES THE DECREMENTS F0B07200 71706 0162 00 0 71710 TQP *+2 OF WORDS TO DECIMAL INTEGERS. WORD IS IN MQF0B07210 71707 -0057 00 000020 RIL 20 SET MINUS SIGN IF S IS ON. F0B07220 71710 -0763 00 0 00003 LGL 3 CLEAR F0B07230 71711 0760 00 0 00000 CLM OUT F0B07240 71712 -0765 00 0 00003 LGR 3 PREFIX. F0B07250 71713 -0114 01 0 72376 CAQ T1+128,0,1 CONVERT F0B07260 71714 -0114 01 0 72276 CAQ T1+64,0,1 THE F0B07270 71715 -0114 01 0 72176 CAQ T1,0,1 BINARY DECREMENT F0B07280 71716 0114 06 0 72506 CVR T3,0,6 TO DECIMAL. F0B07290 71717 0560 00 0 72773 LDQ BLK FILL OUT WORDS F0B07300 71720 -0765 00 0 00014 LGR 12 WITH BLANKS. F0B07310 71721 0043 00 0 00000 OAI PUT FIRST HALF OF WORD IN INDICATORS, F0B07320 71722 -0130 00 0 00000 XCL 2ND HALF IN LOGICAL AC, AND F0B07330 71723 0020 00 1 00003 TRA 3,1 RETURN. F0B07340 F0B07350 **** FLOATING POINT OUTPUT **** F0B07360 F0B07370 FORTRAN II MONITOR DUMP RECORD 2/07/05 PAGE 15 71724 0634 00 4 72036 FPT SXA FPTLV,4 FLOATING POINT DUMPER F0B07380 71725 0634 00 2 72037 SXA FPTLV+1,2 IGNORES SIGN F0B07390 71726 0634 00 1 72040 SXA FPTLV+2,1 F0B07400 71727 0441 00 0 72057 LDI FPTHP PICK UP .0 F0B07410 71730 0162 00 0 71732 TQP *+2 IF FIRST WORD IS MINUS, SET F0B07420 71731 -0055 00 040000 SIL 40000 1ST BIT ON IN CONVERTED WORD. F0B07430 71732 0131 00 0 00000 XCA AND F0B07440 BINARY CARD NO. 9F020032 71733 0760 00 0 00003 SSP REMOVE SIGN. F0B07450 71734 0560 00 0 72047 LDQ FPTPZ PICK UP ZERO CHARACTERISTIC. F0B07460 71735 0100 00 0 72035 TZE FPTLV-1 IS WORD ZERO. F0B07470 71736 0774 00 2 05720 AXT -DDFTB,2 NO, CONVERT IT F0B07480 71737 0774 00 4 00002 AXT 2,4 TO FLOATING POINT. F0B07490 71740 1 77776 4 71741 FPTSH TXI *+1,4,-2 F0B07500 71741 0340 00 2 00046 CAS 38,2 F0B07510 71742 0522 00 4 71745 XEC *+3,4 F0B07520 71743 1 00001 2 71763 TXI FPTFD+2,2,1 EQUAL SET INDEX FOR NEXT HIGHER POWER $F0B07530 71744 0522 00 4 71746 XEC *+2,4 F0B07540 71745 1 00007 2 71740 TXI FPTSH,2,7 F0B07550 71746 1 77770 2 71740 TXI FPTSH,2,-8 F0B07560 71747 1 00020 2 71740 TXI FPTSH,2,16 F0B07570 71750 1 77760 2 71740 TXI FPTSH,2,-16 F0B07580 71751 1 00010 2 71740 TXI FPTSH,2,8 F0B07590 71752 1 77770 2 71740 TXI FPTSH,2,-8 F0B07600 71753 1 00004 2 71740 TXI FPTSH,2,4 F0B07610 71754 1 77774 2 71740 TXI FPTSH,2,-4 F0B07620 71755 1 00002 2 71740 TXI FPTSH,2,2 F0B07630 71756 1 77776 2 71740 TXI FPTSH,2,-2 F0B07640 71757 1 00001 2 71740 TXI FPTSH,2,1 F0B07650 71760 1 77777 2 71740 TXI FPTSH,2,-1 F0B07660 BINARY CARD NO. 9F020033 71761 1 00001 2 71763 FPTFD TXI *+2,2,1 F0B07670 71762 0020 00 0 71763 TRA *+1 F0B07680 71763 -3 05662 2 72042 TXL FPTNL,2,-30-DDFTB F0B07690 71764 0241 00 2 00056 FDP 46,2 DIVIDE BY POWER OF TEN 8 LESS THAN NO. $F0B07700 71765 0131 00 0 00000 FPTDD XCA F0B07710 71766 0760 00 0 00011 FRN F0B07720 71767 -0300 00 0 72050 UFA FPTFX F0B07730 71770 -0773 00 0 00011 RQL 9 F0B07740 71771 -0320 00 0 72051 ANA FPTMK F0B07750 71772 -0763 00 0 00010 LGL 8 F0B07760 71773 0340 00 0 72046 CAS FPTBG F0B07770 71774 0761 00 0 00000 NOP F0B07780 71775 0402 00 0 72177 SUB T1+1 F0B07790 71776 0224 14 0 72052 VDH FPTOR,0,12 F0B07800 71777 0601 00 0 72053 STO FPTMP F0B07810 72000 0760 00 0 00000 CLM F0B07820 72001 -0773 00 0 00030 RQL 24 F0B07830 72002 -0114 01 0 72276 CAQ T1+64,0,1 F0B07840 72003 -0114 01 0 72176 CAQ T1,0,1 F0B07850 72004 0114 03 0 72506 CVR T3,0,3 F0B07860 72005 0560 00 0 72053 LDQ FPTMP F0B07870 72006 0602 00 0 72053 SLW FPTMP F0B07880 FORTRAN II MONITOR DUMP RECORD 2/07/05 PAGE 16 BINARY CARD NO. 9F020034 72007 0760 00 0 00000 CLM F0B07890 72010 -0114 01 0 72476 CAQ T1+192,0,1 F0B07900 72011 -0114 01 0 72376 CAQ T1+128,0,1 F0B07910 72012 -0114 01 0 72276 CAQ T1+64,0,1 F0B07920 72013 -0114 01 0 72176 CAQ T1,0,1 F0B07930 72014 0114 06 0 72506 CVR T3,0,6 F0B07940 72015 0602 00 0 72054 SLW FPTMP+1 F0B07950 72016 0754 00 2 00000 PXA 0,2 F0B07960 72017 0402 00 0 72055 SUB FPTSB F0B07970 72020 -0765 00 0 00014 LGR 12 F0B07980 72021 -0114 01 0 72276 CAQ T1+64,0,1 F0B07990 72022 -0114 01 0 72176 CAQ T1,0,1 F0B08000 72023 0114 02 0 72506 CVR T3,0,2 F0B08010 72024 -0130 00 0 00000 XCL F0B08020 72025 0500 00 0 72056 CLA FPTPS F0B08030 72026 3 05717 2 72030 TXH *+2,2,-DDFTB-1 F0B08040 72027 0400 00 0 72056 ADD FPTPS F0B08050 72030 -0765 00 0 00006 LGR 6 F0B08060 72031 -0500 00 0 72054 CAL FPTMP+1 F0B08070 72032 -0765 00 0 00022 LGR 18 F0B08080 72033 0361 00 0 72053 ACL FPTMP F0B08090 72034 0043 00 0 00000 OAI PLACE CONVERTED WORD IN INDICATORS, F0B08100 BINARY CARD NO. 9F020035 72035 -0130 00 0 00000 XCL AND LOGICAL AC, F0B08110 72036 0774 00 4 00000 FPTLV AXT 0,4 RESTORE F0B08120 72037 0774 00 2 00000 AXT 0,2 INDEX F0B08130 72040 0774 00 1 00000 AXT 0,1 REGISTERS, F0B08140 72041 0020 00 1 00002 TRA 2,1 AND RETURN. F0B08150 72042 0131 00 0 00000 FPTNL XCA F0B08160 72043 0260 00 0 72115 FMP DDTTN F0B08170 72044 0241 00 2 00045 FDP 37,2 DIVIDE TO GET QUOTIENT BETWEEN 1E7 + 1E8 $F0B08180 72045 0020 00 0 71765 TRA FPTDD F0B08190 72046 +000575360400 FPTBG DEC 1E8B35 F0B08200 72047 000000200000 FPTPZ BCI 1,000+00 F0B08210 72050 +243000000000 FPTFX OCT 243000000000 F0B08220 72051 +000777777777 FPTMK OCT 777777777 F0B08230 72052 +036411000000 FPTOR DEC 4096000000 F0B08240 72053 +000000000000 FPTMP DEC 0,0 F0B08250 72055 0 00000 0 05720 FPTSB PZE -DDFTB F0B08260 72056 +000000000020 FPTPS OCT 20 F0B08270 72057 330000000000 FPTHP BCI 1,.00000 F0B08280 72060 +377454732313 DDFTB DEC 1E38 TABLE OF POWERS OF 10 IN FLOATING POINT $F0B08290 72061 +373741367021 DEC 1E37 F0B08300 72062 +370601137164 DEC 1E36 F0B08310 BINARY CARD NO. 9F020036 72063 +365464114135 DEC 1E35 F0B08320 72064 +361755023373 DEC 1E34 F0B08330 72065 +356612334311 DEC 1E33 F0B08340 72066 +353473426555 DEC 1E32 F0B08350 72067 +347770675742 DEC 1E31 F0B08360 72070 +344623713116 DEC 1E30 F0B08370 72071 +341503074077 DEC 1E29 F0B08380 72072 +336402374714 DEC 1E28 F0B08390 FORTRAN II MONITOR DUMP RECORD 2/07/05 PAGE 17 72073 +332635456171 DEC 1E27 F0B08400 72074 +327512676456 DEC 1E26 F0B08410 72075 +324410545213 DEC 1E25 F0B08420 72076 +320647410336 DEC 1E24 F0B08430 72077 +315522640262 DEC 1E23 F0B08440 72100 +312417031702 DEC 1E22 F0B08450 72101 +306661534466 DEC 1E21 F0B08460 72102 +303532743536 DEC 1E20 F0B08470 72103 +300425434430 DEC 1E19 F0B08480 72104 +274674055532 DEC 1E18 F0B08490 72105 +271543212741 DEC 1E17 F0B08500 72106 +266434157116 DEC 1E16 F0B08510 72107 +262706576512 DEC 1E15 F0B08520 72110 +257553630410 DEC 1E14 F0B08530 BINARY CARD NO. 9F020037 72111 +254443023471 DEC 1E13 F0B08540 72112 +250721522451 DEC 1E12 F0B08550 72113 +245564416672 DEC 1E11 F0B08560 72114 +242452013710 DEC 1E10 F0B08570 72115 +236734654500 DDTTN DEC 1E9 F0B08580 72116 +233575360400 DEC 1E8 F0B08590 72117 +230461132000 DEC 1E7 F0B08600 72120 +224750220000 DEC 1E6 F0B08610 72121 +221606500000 DEC 1E5 F0B08620 72122 +216470400000 DEC 1E4 F0B08630 72123 +212764000000 DEC 1E3 F0B08640 72124 +207620000000 DEC 1E2 F0B08650 72125 +204500000000 DEC 1E1 F0B08660 72126 +201400000000 DEC 1E0 F0B08670 72127 +175631463146 DEC 1E-1 F0B08680 72130 +172507534121 DEC 1E-2 F0B08690 72131 +167406111564 DEC 1E-3 F0B08700 72132 +163643334272 DEC 1E-4 F0B08710 72133 +160517426542 DEC 1E-5 F0B08720 72134 +155414336750 DEC 1E-6 F0B08730 72135 +151655376246 DEC 1E-7 F0B08740 72136 +146527461670 DEC 1E-8 F0B08750 BINARY CARD NO. 9F020038 72137 +143422701372 DEC 1E-9 F0B08760 72140 +137667633766 DEC 1E-10 F0B08770 72141 +134537657770 DEC 1E-11 F0B08780 72142 +131431363137 DEC 1E-12 F0B08790 72143 +125702270232 DEC 1E-13 F0B08800 72144 +122550223341 DEC 1E-14 F0B08810 72145 +117440165747 DEC 1E-15 F0B08820 72146 +113715126245 DEC 1E-16 F0B08830 72147 +110560736522 DEC 1E-17 F0B08840 72150 +105447113564 DEC 1E-18 F0B08850 72151 +101730171124 DEC 1E-19 F0B08860 72152 +076571624103 DEC 1E-20 F0B08870 72153 +073456166402 DEC 1E-21 F0B08880 72154 +067743444003 DEC 1E-22 F0B08890 72155 +064602666317 DEC 1E-23 F0B08900 72156 +061465370246 DEC 1E-24 F0B08910 FORTRAN II MONITOR DUMP RECORD 2/07/05 PAGE 18 72157 +055757132075 DEC 1E-25 F0B08920 72160 +052614110060 DEC 1E-26 F0B08930 72161 +047474723215 DEC 1E-27 F0B08940 72162 +043773036657 DEC 1E-28 F0B08950 72163 +040625513677 DEC 1E-29 F0B08960 72164 +035504411400 DEC 1E-30 F0B08970 BINARY CARD NO. 9F020039 72165 +032403472631 DEC 1E-31 F0B08980 72166 +026637304365 DEC 1E-32 F0B08990 72167 +023514235135 DEC 1E-33 F0B09000 72170 +020411660744 DEC 1E-34 F0B09010 72171 +014651264555 DEC 1E-35 F0B09020 72172 +011524220444 DEC 1E-36 F0B09030 72173 +006420163520 DEC 1E-37 F0B09040 72174 +002663437346 DEC 1E-38 F0B09050 72175 +000000000000 DDEFT DEC 0 F0B09060 **** T1 CONVERTS BINARY TO BCD 8 WORDS PER CARD **** F0B09070 72176 000000000000 T1 BCI 8,000000000001000002000003000004000005000006000007 F0B09080 72206 000000000010 BCI 8,000008000009000010000011000012000013000014000015 F0B09090 BINARY CARD NO. 9F020040 72216 000000000106 BCI 8,000016000017000018000019000020000021000022000023 F0B09100 72226 000000000204 BCI 8,000024000025000026000027000028000029000030000031 F0B09110 72236 000000000302 BCI 8,000032000033000034000035000036000037000038000039 F0B09120 BINARY CARD NO. 9F020041 72246 000000000400 BCI 8,000040000041000042000043000044000045000046000047 F0B09130 72256 000000000410 BCI 8,000048000049000050000051000052000053000054000055 F0B09140 72266 000000000506 BCI 8,000056000057000058000059000060000061000062000063 F0B09150 BINARY CARD NO. 9F020042 72276 000000000000 BCI 8,000000000064000128000192000256000320000384000448 F0B09160 72306 000000050102 BCI 8,000512000576000640000704000768000832000896000960 F0B09170 BINARY CARD NO. 9F020043 72316 000001000204 BCI 8,001024001088001152001216001280001344001408001472 F0B09180 72326 000001050306 BCI 8,001536001600001664001728001792001856001920001984 F0B09190 72336 000002000410 BCI 8,002048002112002176002240002304002368002432002496 F0B09200 BINARY CARD NO. 9F020044 72346 000002050600 BCI 8,002560002624002688002752002816002880002944003008 F0B09210 72356 000003000702 BCI 8,003072003136003200003264003328003392003456003520 F0B09220 72366 000003051004 BCI 8,003584003648003712003776003840003904003968004032 F0B09230 BINARY CARD NO. 9F020045 72376 000000000000 BCI 8,000000004096008192012288016384020480024576028672 F0B09240 72406 000302070610 BCI 8,032768036864040960045056049152053248057344061440 F0B09250 72416 000605050306 BCI 8,065536069632073728077824081920086016090112094208 F0B09260 BINARY CARD NO. 9F020046 72426 001110030004 BCI 8,098304102400106496110592114688118784122880126976 F0B09270 72436 010301000702 BCI 8,131072135168139264143360147456151552155648159744 F0B09280 FORTRAN II MONITOR DUMP RECORD 2/07/05 PAGE 19 BINARY CARD NO. 9F020047 72446 010603100400 BCI 8,163840167936172032176128180224184320188416192512 F0B09290 72456 011106060010 BCI 8,196608200704204800208896212992217088221184225280 F0B09300 72466 020211030706 BCI 8,229376233472237568241664245760249856253952258048 F0B09310 BINARY CARD NO. 9F020048 72476 000000000000 BCI 8,000000262144524288786432048576310720572864835008 F0B09320 **** T3 CONVERTS BCD ADDITION RESULT TO BCD **** F0B09330 72506 0 00000 0 72506 T3 T3 F0B09340 72507 0 10000 0 72506 T3,0,4096 F0B09350 72510 0 20000 0 72506 T3,0,2*4096 F0B09360 72511 0 30000 0 72506 T3,0,3*4096 F0B09370 72512 0 40000 0 72506 T3,0,4*4096 F0B09380 72513 0 50000 0 72506 T3,0,5*4096 F0B09390 72514 0 60000 0 72506 T3,0,6*4096 F0B09400 72515 0 70000 0 72506 T3,0,7*4096 F0B09410 72516 1 00000 0 72506 PON T3 F0B09420 72517 1 10000 0 72506 PON T3,0,4096 F0B09430 72520 0 00000 0 72507 T3+1 F0B09440 BINARY CARD NO. 9F020049 72521 0 10000 0 72507 T3+1,0,4096 F0B09450 72522 0 20000 0 72507 T3+1,0,2*4096 F0B09460 72523 0 30000 0 72507 T3+1,0,3*4096 F0B09470 72524 0 40000 0 72507 T3+1,0,4*4096 F0B09480 72525 0 50000 0 72507 T3+1,0,5*4096 F0B09490 72526 0 60000 0 72507 T3+1,0,6*4096 F0B09500 72527 0 70000 0 72507 T3+1,0,7*4096 F0B09510 72530 1 00000 0 72507 PON T3+1 F0B09520 72531 1 10000 0 72507 PON T3+1,0,4096 F0B09530 72532 0 00000 0 72510 T3+2 F0B09540 72533 0 10000 0 72510 T3+2,0,4096 F0B09550 72534 0 20000 0 72510 T3+2,0,2*4096 F0B09560 72535 0 30000 0 72510 T3+2,0,3*4096 F0B09570 72536 0 40000 0 72510 T3+2,0,4*4096 F0B09580 72537 0 50000 0 72510 T3+2,0,5*4096 F0B09590 72540 0 60000 0 72510 T3+2,0,6*4096 F0B09600 72541 0 70000 0 72510 T3+2,0,7*4096 F0B09610 72542 1 00000 0 72510 PON T3+2 F0B09620 72543 1 10000 0 72510 PON T3+2,0,4096 F0B09630 72544 0 00000 0 72511 T3+3 F0B09640 72545 0 10000 0 72511 T3+3,0,4096 F0B09650 72546 0 20000 0 72511 T3+3,0,2*4096 F0B09660 BINARY CARD NO. 9F020050 72547 0 30000 0 72511 T3+3,0,3*4096 F0B09670 72550 0 40000 0 72511 T3+3,0,4*4096 F0B09680 72551 0 50000 0 72511 T3+3,0,5*4096 F0B09690 72552 0 60000 0 72511 T3+3,0,6*4096 F0B09700 72553 0 70000 0 72511 T3+3,0,7*4096 F0B09710 72554 1 00000 0 72511 PON T3+3 F0B09720 72555 1 10000 0 72511 PON T3+3,0,4096 F0B09730 72556 0 00000 0 77777 FDUMP PZE -1 $F0B09740 72557 0 10000 0 00000 HONE PZE 0,0,4096 F0B09750 72560 0067 00 0 00000 TCOH 0 F0B09760 72561 0066 00 0 00000 TCOG 0 F0B09770 FORTRAN II MONITOR DUMP RECORD 2/07/05 PAGE 20 72562 0065 00 0 00000 TCOF 0 F0B09780 72563 0064 00 0 00000 TCOE 0 F0B09790 72564 0063 00 0 00000 TCOD 0 F0B09800 72565 0062 00 0 00000 TCOC 0 F0B09810 72566 0061 00 0 00000 TCOB 0 F0B09820 72567 0060 00 0 00000 TCOA 0 F0B09830 72570 TCOX SYN * F0B09840 72570 -0643 00 0 72616 SCHH TEMP+6 F0B09850 72571 0643 00 0 72616 SCHG TEMP+6 F0B09860 72572 -0642 00 0 72616 SCHF TEMP+6 F0B09870 72573 0642 00 0 72616 SCHE TEMP+6 F0B09880 72574 -0641 00 0 72616 SCHD TEMP+6 F0B09890 BINARY CARD NO. 9F020051 72575 0641 00 0 72616 SCHC TEMP+6 F0B09900 72576 -0640 00 0 72616 SCHB TEMP+6 F0B09910 72577 0640 00 0 72616 SCHA TEMP+6 F0B09920 72600 SCHX SYN * F0B09930 72600 006060606060 HZR BCI 1,0 F0B09940 72601 0 00000 0 00001 ONE 1 F0B09950 72602 -2 00000 0 00000 OBLK TNX ,,0 F0B09960 72603 606060604645 ON BCI 1, ON F0B09970 72604 606060462626 OFF BCI 1, OFF F0B09980 72605 606060604060 MNSZ BCI 1, - F0B09990 72606 606060604001 MNSO BCI 1, -1 F0B10000 72607 606060602000 PLUS BCI 1, +0 F0B10010 72610 +000000000000 TEMP DEC 0,0,0,0,0,0,0,0,0,0,0,0,0,0 F0B10020 BINARY CARD NO. 9F020052 72626 606060606040 MINUS BCI 1, - F0B10030 72627 0 00000 0 00060 LBLK 48 F0B10040 72630 3 00001 0 73351 ERR IORT RESTO,0,1 $F0B10050 72631 3 00011 0 72667 IORT ERROR,0,9 $F0B10060 72632 3 00001 0 72600 IORT HZR,,1 F0B10070 72633 -0 00062 0 03734 NDIO IOCP BOTTOM,,50 $F0B10080 72634 -1 00037 0 73412 IOCT END-SIZE,,SIZE $F0B10090 72635 3 00024 0 70501 DSU IORT BUF2,,20 . $F0B10100 72636 3 00024 0 70551 IORT BUF3,,20 . $F0B10110 72637 3 00024 0 72724 IORT DUMP2,,20 . $F0B10120 72640 3 00024 0 70525 IORT BUF1,,20 . $F0B10130 72641 3 00024 0 72700 IORT BUF,,20 . $F0B10140 72642 -1 00001 0 72773 IOCD IOCT BLK,0,1 F0B10150 72643 3 00024 0 70501 IORT BUF2,0,20 F0B10160 72644 3 00024 0 72750 DSU2 IORT DFBB,0,20 F0B10170 72645 3 00024 0 70525 IORT BUF1,0,20 F0B10180 72646 3 07300 0 61200 IORT IORT SAVE,,SAVL $F0B10190 72647 0 00000 2 70502 SWT BUF2+1,2 F0B10200 72650 0 00000 2 70503 BUF2+2,2 F0B10210 BINARY CARD NO. 9F020053 72651 0 00000 2 70526 BUF1+1,2 F0B10220 72652 0 00000 2 70527 BUF1+2,2 F0B10230 72653 0 00000 2 70504 BUF2+3,2 F0B10240 72654 0 00000 2 70505 BUF2+4,2 F0B10250 72655 0 00000 2 70530 BUF1+3,2 F0B10260 72656 0 00000 2 70531 BUF1+4,2 F0B10270 FORTRAN II MONITOR DUMP RECORD 2/07/05 PAGE 21 72657 0 00000 2 70506 BUF2+5,2 F0B10280 72660 0 00000 2 70507 BUF2+6,2 F0B10290 72661 0 00000 2 70532 BUF1+5,2 F0B10300 72662 0 00000 2 70533 BUF1+6,2 F0B10310 72663 0 00000 2 70510 BUF2+7,2 F0B10320 72664 0 00000 0 70501 BUF2 F0B10330 72665 0 00000 2 70534 BUF1+7,2 F0B10340 72666 0 00000 0 70525 BUF1 F0B10350 72667 606060606047 ERROR BCI 9, PLEASE SUPPLY CORRECT CALLING SEQUENCE FOR DUMP. F0B10360 BINARY CARD NO. 9F020054 72700 016060606060 DUMP1 BCI 2,1 F0B10370 72702 212360606060 BCI 9,AC MQ SI F0B10380 72713 422570626060 BCI 2,KEYS F0B10390 72715 606067510160 BCI 7, XR1 XR2 XR4 XR3 $F0B10400 72724 006063512147 DUMP2 BCI 4,0 TRAP DCT IOT OFL $F0B10410 BINARY CARD NO. 9F020055 72730 606060624301 BCI 4, SL1 SL2 SL3 SL4 $F0B10420 72734 606060626601 BCI 6, SW1 SW2 SW3 SW4 SW5 SW6 $F0B10430 72742 606060606060 BCI 6, XR5 XR6 XR7 $F0B10435 72750 606060606060 DFBB BCI 6, F0B10440 BINARY CARD NO. 9F020056 72756 232543436260 BCI 4,CELLS TO F0B10450 72762 214343602346 BCI 9,ALL CONTAIN F0B10460 72773 606060606060 BLK BCI 1, F0B10470 72774 606000000000 2BLK BCI 1, 0000 F0B10480 72775 606060000000 3BLK BCI 1, 000 F0B10490 72776 546060606060 ASTR BCI 1,* F0B10500 72777 0 00000 0 00000 TBLA 0 F0B10510 73000 606060636731 BCI 1, TXI F0B10520 BINARY CARD NO. 9F020057 73001 606060633167 BCI 1, TIX F0B10530 73002 606060636730 BCI 1, TXH F0B10540 73003 606060626351 BCI 1, STR F0B10550 73004 606060634567 BCI 1, TNX F0B10560 73005 606060636743 BCI 1, TXL F0B10570 73006 0 00014 0 73044 TBLEP TBME,0,TBME-TBPE F0B10580 73007 0 00012 0 73056 TBLEM TBP0,0,TBP0-TBME F0B10590 73010 0 00037 0 73115 TBLBP TBP1,0,TBP1-TBP0 F0B10600 73011 0 00012 0 73127 TBP2,0,TBP2-TBP1 F0B10610 73012 0 00011 0 73140 TBP3,0,TBP3-TBP2 F0B10620 73013 0 00010 0 73150 TBP4,0,TBP4-TBP3 F0B10630 73014 0 00013 0 73163 TBP5,0,TBP5-TBP4 F0B10640 73015 0 00020 0 73203 TBP6,0,TBP6-TBP5 F0B10650 73016 0 00014 0 73217 TBP7,0,TBP7-TBP6 F0B10660 73017 0 00022 0 73241 TBM0,0,TBM0-TBP7 F0B10670 73020 0 00030 0 73271 TBLBM TBM1,0,TBM1-TBM0 F0B10680 73021 0 00006 0 73277 TBM2,0,TBM2-TBM1 F0B10690 73022 0 00002 0 73301 TBM3,0,TBM3-TBM2 F0B10700 73023 0 00006 0 73307 TBM4,0,TBM4-TBM3 F0B10710 73024 0 00001 0 73310 TBM5,0,TBM5-TBM4 F0B10720 73025 0 00015 0 73325 TBM6,0,TBM6-TBM5 F0B10730 73026 0 00011 0 73336 TBM7,0,TBM7-TBM6 F0B10740 FORTRAN II MONITOR DUMP RECORD 2/07/05 PAGE 22 BINARY CARD NO. 9F020058 73027 0 00013 0 73351 TBE,0,TBE-TBM7 F0B10750 73030 602343440000 TBPE BCI 1, CLM00 F0B10760 73031 604322630001 BCI 1, LBT01 F0B10770 73032 602330620002 BCI 1, CHS02 F0B10780 73033 606262470003 BCI 1, SSP03 F0B10790 73034 602545420004 BCI 1, ENK04 F0B10800 73035 603146630005 BCI 1, IOT05 F0B10810 73036 602346440006 BCI 1, COM06 F0B10820 73037 602563440007 BCI 1, ETM07 F0B10830 73040 605145240100 BCI 1, RND10 F0B10840 73041 602651450101 BCI 1, FRN11 F0B10850 73042 602423630102 BCI 1, DCT12 F0B10860 73043 605123630104 BCI 1, RCT14 *F0B10870 73044 604722630001 TBME BCI 1, PBT01 F0B10880 73045 252663440002 BCI 1,EFTM02 F0B10890 73046 606262440003 BCI 1, SSM03 F0B10900 73047 432663440004 BCI 1,LFTM04 F0B10910 73050 256263440005 BCI 1,ESTM05 F0B10920 73051 252363440006 BCI 1,ECTM06 F0B10930 73052 604363440007 BCI 1, LTM07 F0B10940 73053 436245440100 BCI 1,LSNM10 F0B10950 73054 602563630101 BCI 1, ETT11 F0B10960 BINARY CARD NO. 9F020059 73055 605163630102 BCI 1, RTT12 F0B10970 73056 603063510000 TBP0 BCI 1, HTR00 F0B10980 73057 606351210200 BCI 1, TRA20 F0B10990 73060 606363510201 BCI 1, TTR21 F0B11000 73061 635123210202 BCI 1,TRCA22 F0B11010 73062 635123230204 BCI 1,TRCC24 F0B11020 73063 635123250206 BCI 1,TRCE26 F0B11030 73064 635123270207 BCI 1,TRCG27 F0B11040 73065 632526210300 BCI 1,TEFA30 F0B11050 73066 632526230301 BCI 1,TEFC31 F0B11060 73067 632526250302 BCI 1,TEFE32 F0B11070 73070 632526270303 BCI 1,TEFG33 F0B11080 73071 606343500400 TBP04 BCI 1, TLQ40 F0B11090 73072 603131210401 BCI 1, IIA41 F0B11100 73073 606331460402 BCI 1, TIO42 F0B11110 73074 604621310403 BCI 1, OAI43 F0B11120 73075 604721310404 BCI 1, PAI44 F0B11130 73076 606331260406 BCI 1, TIF46 F0B11140 73077 603131510501 BCI 1, IIR51 F0B11150 73100 605126630504 BCI 1, RFT54 F0B11160 73101 606231510505 BCI 1, SIR55 F0B11170 73102 605145630506 BCI 1, RNT56 F0B11180 BINARY CARD NO. 9F020060 73103 605131510507 BCI 1, RIR57 F0B11190 73104 632346210600 BCI 1,TCOA60 F0B11200 73105 632346220601 BCI 1,TCOB61 F0B11210 73106 632346230602 BCI 1,TCOC62 F0B11220 73107 632346240603 BCI 1,TCOD63 F0B11230 73110 632346250604 BCI 1,TCOE64 F0B11240 73111 632346260605 BCI 1,TCOF65 F0B11250 FORTRAN II MONITOR DUMP RECORD 2/07/05 PAGE 23 73112 632346270606 BCI 1,TCOG66 F0B11260 73113 632346300607 BCI 1,TCOH67 F0B11270 73114 606362670704 BCI 1, TSX74 F0B11280 73115 606371250000 TBP1 BCI 1, TZE00 F0B11290 73116 602365510104 BCI 1, CVR14 F0B11300 73117 606347430200 BCI 1, TPL20 F0B11310 73120 606723210301 BCI 1, XCA31 F0B11320 73121 606346650400 BCI 1, TOV40 F0B11330 73122 606350460601 BCI 1, TQO61 F0B11340 73123 606350470602 BCI 1, TQP62 F0B11350 73124 606346650400 TBP14 BCI 1, TOV40 F0B11360 73125 606350460601 BCI 1, TQO61 F0B11370 73126 606350470602 BCI 1, TQP62 F0B11380 73127 604447700000 TBP2 BCI 1, MPY00 F0B11390 73130 606543440004 BCI 1, VLM04 F0B11400 BINARY CARD NO. 9F020061 73131 602465300200 BCI 1, DVH20 F0B11410 73132 602465470201 BCI 1, DVP21 F0B11420 73133 606524300204 BCI 1, VDH24 F0B11430 73134 606524470205 BCI 1, VDP25 F0B11440 73135 602624300400 TBP24 BCI 1, FDH40 F0B11450 73136 602624470401 BCI 1, FDP41 F0B11460 73137 602644470600 BCI 1, FMP60 F0B11470 73140 602621240000 TBP3 BCI 1, FAD00 F0B11480 73141 602662220002 BCI 1, FSB02 F0B11490 73142 602621440004 BCI 1, FAM04 F0B11500 73143 602662440006 BCI 1, FSM06 F0B11510 73144 602145620200 BCI 1, ANS20 F0B11520 73145 602551210202 BCI 1, ERA22 F0B11530 73146 602321620400 TBP34 BCI 1, CAS40 F0B11540 73147 602123430601 BCI 1, ACL61 F0B11550 73150 602124240000 TBP4 BCI 1, ADD00 F0B11560 73151 602124440001 BCI 1, ADM01 F0B11570 73152 606264220002 BCI 1, SUB02 F0B11580 73153 603047510200 BCI 1, HPR20 F0B11590 73154 603131620400 TBP44 BCI 1, IIS40 F0B11600 73155 604324310401 BCI 1, LDI41 F0B11610 73156 604662310402 BCI 1, OSI42 F0B11620 BINARY CARD NO. 9F020062 73157 604626630404 BCI 1, OFT44 F0B11630 73160 605131620405 BCI 1, RIS45 F0B11640 73161 604645630406 BCI 1, ONT46 F0B11650 73162 604324210600 BCI 1, LDA60 F0B11660 73163 602343210000 TBP5 BCI 1, CLA00 F0B11670 73164 602343620002 BCI 1, CLS02 F0B11680 73165 607125630200 BCI 1, ZET20 F0B11690 73166 606725230202 BCI 1, XEC22 F0B11700 73167 604367210304 BCI 1, LXA34 F0B11710 73170 604321230305 BCI 1, LAC35 F0B11720 73171 512330210400 TBP54 BCI 1,RCHA40 F0B11730 73172 512330230401 BCI 1,RCHC41 F0B11740 73173 512330250402 BCI 1,RCHE42 F0B11750 73174 512330270403 BCI 1,RCHG43 F0B11760 73175 432330210404 BCI 1,LCHA44 F0B11770 FORTRAN II MONITOR DUMP RECORD 2/07/05 PAGE 24 73176 432330230405 BCI 1,LCHC45 F0B11780 73177 432330250406 BCI 1,LCHE46 F0B11790 73200 432330270407 BCI 1,LCHG47 F0B11800 73201 604324500600 BCI 1, LDQ60 F0B11810 73202 602545220604 BCI 1, ENB64 F0B11820 73203 606263710000 TBP6 BCI 1, STZ00 F0B11830 73204 606263460001 BCI 1, STO01 F0B11840 BINARY CARD NO. 9F020063 73205 606243660002 BCI 1, SLW02 F0B11850 73206 606263310004 BCI 1, STI04 F0B11860 73207 606263210201 BCI 1, STA21 F0B11870 73210 606263240202 BCI 1, STD22 F0B11880 73211 606263630205 BCI 1, STT25 F0B11890 73212 606267210304 BCI 1, SXA34 F0B11900 73213 622330210400 TBP64 BCI 1,SCHA40 F0B11910 73214 622330230401 BCI 1,SCHC41 F0B11920 73215 622330250402 BCI 1,SCHE42 F0B11930 73216 622330270403 BCI 1,SCHG43 F0B11940 73217 602347700000 TBP7 BCI 1, CPY00 F0B11950 73220 602347700000 BCI 1, CPY00 F0B11960 73221 604721670304 BCI 1, PAX34 F0B11970 73222 604721230307 BCI 1, PAC37 F0B11980 73223 604767210504 TBP74 BCI 1, PXA54 F0B11990 73224 604762250600 PSE BCI 1, PSE60 F0B12000 73225 604546470601 BCI 1, NOP61 F0B12010 73226 605124620602 BCI 1, RDS62 F0B12020 73227 604343620603 BCI 1, LLS63 F0B12030 73230 602262510604 BCI 1, BSR64 F0B12040 73231 604351620605 BCI 1, LRS65 F0B12050 73232 606651620606 BCI 1, WRS66 F0B12060 BINARY CARD NO. 9F020064 73233 602143620607 BCI 1, ALS67 F0B12070 73234 606625260700 BCI 1, WEF70 F0B12080 73235 602151620701 BCI 1, ARS71 F0B12090 73236 605125660702 BCI 1, REW72 F0B12100 73237 602167630704 BCI 1, AXT74 F0B12110 73240 606224450706 BCI 1, SDN76 F0B12120 73241 256245630201 TBM0 BCI 1,ESNT21 F0B12130 73242 635123220202 BCI 1,TRCB22 F0B12140 73243 635123240204 BCI 1,TRCD24 F0B12150 73244 635123260206 BCI 1,TRCF26 F0B12160 73245 635123300207 BCI 1,TRCH27 F0B12170 73246 632526220300 BCI 1,TEFB30 F0B12180 73247 632526240301 BCI 1,TEFD31 F0B12190 73250 632526260302 BCI 1,TEFF32 F0B12200 73251 632526300303 BCI 1,TEFH33 F0B12210 73252 605131210402 TBM04 BCI 1, RIA42 F0B12220 73253 604731210406 BCI 1, PIA46 F0B12230 73254 603131430501 BCI 1, IIL51 F0B12240 73255 604326630504 BCI 1, LFT54 F0B12250 73256 606231430505 BCI 1, SIL55 F0B12260 73257 604345630506 BCI 1, LNT56 F0B12270 73260 605131430507 BCI 1, RIL57 F0B12280 FORTRAN II MONITOR DUMP RECORD 2/07/05 PAGE 25 BINARY CARD NO. 9F020065 73261 632345210600 BCI 1,TCNA60 (34)F0B12290 73262 632345220601 BCI 1,TCNB61 F0B12300 73263 632345230602 BCI 1,TCNC62 F0B12310 73264 632345240603 BCI 1,TCND63 F0B12320 73265 632345250604 BCI 1,TCNE64 F0B12330 73266 632345260605 BCI 1,TCNF65 F0B12340 73267 632345270606 BCI 1,TCNG66 F0B12350 73270 632345300607 BCI 1,TCNH67 F0B12360 73271 606345710000 TBM1 BCI 1, TNZ00 F0B12370 73272 602321500104 BCI 1, CAQ14 F0B12380 73273 606344310200 BCI 1, TMI20 F0B12390 73274 606723430300 BCI 1, XCL30 F0B12400 73275 606345460400 TBM14 BCI 1, TNO40 F0B12410 73276 602351500504 BCI 1, CRQ54 F0B12420 73277 604447510000 TBM2 BCI 1, MPR00 F0B12430 73300 606426440600 TBM24 BCI 1, UFM60 F0B12440 73301 606426210000 TBM3 BCI 1, UFA00 F0B12450 73302 606426620002 BCI 1, UFS02 F0B12460 73303 606421440004 BCI 1, UAM04 F0B12470 73304 606462440006 BCI 1, USM06 F0B12480 73305 602145210200 BCI 1, ANA20 F0B12490 73306 604321620400 TBM34 BCI 1, LAS40 F0B12500 BINARY CARD NO. 9F020066 73307 606222440000 TBM4 BCI 1, SBM00 F0B12510 73310 602321430000 TBM5 BCI 1, CAL00 F0B12520 73311 604651210001 BCI 1, ORA01 F0B12530 73312 604571630200 BCI 1, NZT20 F0B12540 73313 604367240304 BCI 1, LXD34 F0B12550 73314 604324230305 BCI 1, LDC35 F0B12560 73315 512330220400 TBM54 BCI 1,RCHB40 F0B12570 73316 512330240401 BCI 1,RCHD41 F0B12580 73317 512330260402 BCI 1,RCHF42 F0B12590 73320 512330300403 BCI 1,RCHH43 F0B12600 73321 432330220404 BCI 1,LCHB44 F0B12610 73322 432330240405 BCI 1,LCHD45 F0B12620 73323 432330260406 BCI 1,LCHF46 F0B12630 73324 432330300407 BCI 1,LCHH47 F0B12640 73325 606263500000 TBM6 BCI 1, STQ00 F0B12650 73326 604651620002 BCI 1, ORS02 F0B12660 73327 606243500200 BCI 1, SLQ20 F0B12670 73330 606263430205 BCI 1, STL25 F0B12680 73331 606267240304 BCI 1, SXD34 F0B12690 73332 622330220400 TBM64 BCI 1,SCHB40 F0B12700 73333 622330240401 BCI 1,SCHD41 F0B12710 73334 622330260402 BCI 1,SCHF42 F0B12720 BINARY CARD NO. 9F020067 73335 622330300403 BCI 1,SCHH43 F0B12730 73336 602321240000 TBM7 BCI 1, CAD00 F0B12740 73337 604724670304 BCI 1, PDX34 F0B12750 73340 604724230307 BCI 1, PDC37 F0B12760 73341 604767240504 TBM74 BCI 1, PXD54 F0B12770 73342 604462250600 MSE BCI 1, MSE60 F0B12780 73343 604327430603 BCI 1, LGL63 F0B12790 FORTRAN II MONITOR DUMP RECORD 2/07/05 PAGE 26 73344 602262260604 BCI 1, BSF64 F0B12800 73345 604327510605 BCI 1, LGR65 F0B12810 73346 605164450702 BCI 1, RUN72 *F0B12820 73347 605150430703 BCI 1, RQL73 F0B12830 73350 602167230704 BCI 1, AXC74 F0B12840 73351 TBE BES 0 F0B12850 73351 016060606060 RESTO BCI 1,1 F0B12860 73352 -0 00000 0 00002 BS2R MZE 2 (22)F0B12870 73353 -0 00000 0 00001 BS1R MZE 1,,0 F0B12880 73354 0500 00 0 03725 PCH6 CLA BOTTOM-7 RESTORE LOCATION 0 (25)F0B12881 73355 0601 00 0 00000 STO 0 (25)F0B12882 73356 0020 00 0 70522 TRA START+11 (25)F0B12883 73357 BSS 27 PATCH SPACE (25)F0B12885 73451 END BES SIZE F0B12890 73451 DUP 1,17 F0B12900 BINARY CARD NO. 9F020068 73451 0 00000 0 00000 PZE F0B12910 73472 0 00000 0 00000 LIMIT PZE F0B12920 73473 BSS 0 *** PATCH AREA *** $F0B12921 73473 0774 00 1 00003 PCH1 AXT 3,1 WRITE ERROR MESSAGE $F0B12922 73474 0074 00 4 73606 TSX (TAPE),4 $F0B12923 73475 0 40003 1 72633 PZE ERR+3,1,(WDNP) $F0B12924 73476 0 00006 0 00000 PZE ,,OUTTAP $F0B12925 BINARY CARD NO. 9F020069 73477 2 00001 1 73474 TIX *-3,1,1 $F0B12926 73500 0020 00 0 71570 TRA FERR+1 (22)F0B12927 73501 0774 00 1 00006 PCH2 AXT 6,1 WRITE OUT PANEL $F0B12928 73502 0074 00 4 73606 TSX (TAPE),4 $F0B12929 73503 0 40013 1 72643 PZE DSU+6,1,(WDNC) $F0B1292A 73504 0 00006 0 00000 PZE ,,OUTTAP $F0B1292B 73505 2 00001 1 73502 TIX *-3,1,1 $F0B1292C 73506 0020 00 0 70722 TRA WRPAN+1 TO STORE. $F0B1292D F0B12930 73507 -0634 00 4 73451 PCH3 SXD LIMIT-17,4 SAVE ALL POSSIBLE IR*S $F0B12931 73510 -0634 00 3 73452 SXD LIMIT-16,3 IN SEQUENCE $F0B12932 73511 -0634 00 5 73453 SXD LIMIT-15,5 X1,X2,X4,X3,X5,X6,X7. $F0B12933 73512 -0634 00 6 73454 SXD LIMIT-14,6 . $F0B12934 73513 -0634 00 7 73455 SXD LIMIT-13,7 . $F0B12935 73514 0774 00 3 00000 AXT 0,3 LOAD IR*S TO $F0B12936 73515 0774 00 1 00007 AXT 7,1 TEST TAG MODE WE ARE IN $F0B12937 73516 -0634 00 3 70703 SXD ICV4,3 . $F0B12938 73517 0020 00 0 73354 TRA PCH6 GO TO RESTORE LOC. 0 (25)F0B12939 73520 0634 00 1 70624 PCH4 SXA ICV3,1 ... SET BUFFER POINTER. $F0B1293B 73521 0774 00 4 00006 AXT 6,4 SET CAPACITY AND $F0B1293C 73522 2 00001 2 70614 TIX ICV1,2,1 CONTINUE ON NEW BUFFER. $F0B1293D 73523 0774 00 2 73700 AXT PDC,2 FOR COMPLEMENT $F0B1293E 73524 -0634 00 2 70615 SXD ICV2,2 ALTER INSTRUCTION $F0B1293F BINARY CARD NO. 9F020070 73525 3 00000 1 70612 TXH ICV,1,0 AND PROCEED AS ALWAYS. $F0B1293G 73526 0020 00 0 70627 TRA ICV3+3 GO AND MATCH ORIGINAL CREATION. $F0B1293H 73527 0 00000 4 70525 PCH5 PZE BUF2+20,4 BUFFER POINTERS $F0B1293I 73530 0 00000 4 70551 PZE BUF1+20,4 . $F0B1293J 73531 0 00000 4 70575 PZE BUF3+20,4 . $F0B1293K FORTRAN II MONITOR DUMP RECORD 2/07/05 PAGE 27 73532 0 00000 4 72724 PZE BUF+20,4 $F0B1293L 73533 0 00000 0 00000 PZE PATCH SPACE (22)F0B1293M 73534 0 00000 0 00000 PZE (22)F0B1293N 73535 3 00062 0 03734 IOBOT IORT BOTTOM,,50 (22)F0B1293O 73536 0 00000 0 00005 L(5) PZE 5 (22)F0B1293P 73537 BSS BOTIOP-* PATCH SPACE $F0B1293Q 73700 PDC SYN BOTIOP+64 $F0B1293R 70501 BUF2 SYN ORGDP+1 F0B12940 70525 BUF1 EQU BUF2+20 F0B12950 70551 BUF3 EQU BUF1+20 F0B12960 72700 BUF EQU DUMP1 F0B12970 77777 END -1 F0B12980 BINARY CARD NO. TRA77777 FORTRAN II MONITOR DUMP RECORD 2/07/05 PAGE 1 POST PROCESSOR ASSEMBLY DATA 73667 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM REFERENCES TO DEFINED SYMBOLS 70570 A 70601 70631 C 70635 70636 D 70644 70646 E 70652 71357 H 70511,71423,71561 71563 J 71433,71435 3763 M 3753 3772 R 3773 72603 ON 70633,70641,70646 72176 T1 71713,71714,71715,71775,72002,72003,72010,72011,72012,72013,72021,72022 72506 T3 71716,72004,72014,72023,72506,72507,72510,72511,72512,72513,72514,72515,72516,72517,72520,72521,72522 72523,72524,72525,72526,72527,72530,72531,72532,72533,72534,72535,72536,72537,72540,72541,72542,72543 72544,72545,72546,72547,72550,72551,72552,72553,72554,72555 71560 AXT 71437 72773 BLK 70575,70606,70670,70722,71310,71335,71456,71523,71536,71551,71557,71717,72642 72700 BUF 70607,70723,71305,71311,71313,71337,71340,71341,71365,71366,71371,71372,71375,71376,71400,71403,71404 71407,71410,71415,71417,71442,71443,71453,71455,71521,71530,71534,71535,71537,71540,71552,71553,71554 72641,73532,73600 71464 CAQ 71463,71547 71171 CNT 70512,70744,70745,71177,71353,71361,71556 71006 DFA 71210,71565 71030 DFB 71020 71052 DFC 71041 71105 DFE 71075,71102 71112 DFF 71022,71025,71043,71046 71206 DFG 72635 DSU 73503 73451 END 70751,70757,70770,72634 72630 ERR 73475 70663 FAQ 70675 71724 FPT 70663,71132,71303 70777 GON 70774 72600 HZR 71173,72632 70612 ICV 73525 71705 INT 71131,71302 71271 LOW 71213,71214,71244,71274 71251 MED 71215,71271 73342 MSE 71514 72604 OFF 70631,70636,70650 72601 ONE 71204,71430,71571 73700 PDC 73523,73600 73224 PSE 71510 4006 PST 3774 71573 RSR 70747,71600 71704 S2L 71034,71056,71223,71256,71607 72647 SWT 71360,71370,71374,71402,71406,71413,71416,71420 73351 TBE 73027 3761 1B17 3754 72774 2BLK 71520,71533 72775 3BLK 71705 72776 ASTR 71527 FORTRAN II MONITOR DUMP RECORD 2/07/05 PAGE 2 POST PROCESSOR ASSEMBLY DATA 73353 BS1R 70732,70740,71036,71060,71066,71225,71235,71260,71611 73352 BS2R 71617 70525 BUF1 70610,70634,70643,70651,72640,72645,72651,72652,72655,72656,72661,72662,72665,72666,73530,73600 70501 BUF2 70554,70565,70566,70572,70576,70600,72635,72643,72647,72650,72653,72654,72657,72660,72663,72664,73527 73600 70551 BUF3 70655,70665,70671,70673,72636,73531,73600 71322 CNVT 70564,70571,71133,71304 71001 CONT 71602 71013 DFA1 71020 DFA2 71015,71027 71041 DFB1 71031,71050 72750 DFBB 71134,71140,71142,71153,71170,71176,72644 71063 DFC1 71053 71074 DFC2 71064,71104 71051 DFC3 71016 71107 DFE1 71077 71113 DFF1 71106 71114 DFF2 71010,71111 71200 DFF3 70710 DSU1 70603 72644 DSU2 71201,71425 70742 DUMP 71211,71566 71567 FERR 70760,70776,73500 71335 FINI 71250,71270,71275,71317 71216 HIGH 71264 72557 HONE 71175,71356 70614 ICV1 73522 70615 ICV2 73524 70624 ICV3 73520,73526 70703 ICV4 73516 72642 IOCD 72646 IORT 71033,71055,71071,71222,71240,71255,71606 72627 LBLK 71137,71167 73536 L(5) 70715 71262 MED1 71253 71264 MED2 71252,71267 72606 MNSO 70547 72605 MNSZ 70551 72633 NDIO 70735 72602 OBLK 70701,71152 71362 PACK 71421 73473 PCH1 71567 73501 PCH2 70721 73507 PCH3 70521 73520 PCH4 70706,70707 73527 PCH5 70625,70702,70705 73354 PCH6 73517 72607 PLUS 70553 71603 PRSR 71574 71613 RSR1 71604 61200 SAVE 73667,71020,71214,71271,72646 7300 SAVL 73667,71076,71103,71105,71107,71245,72646 72600 SCHX 72600 37 SIZE 73667,72634,73412 71556 STEP FORTRAN II MONITOR DUMP RECORD 2/07/05 PAGE 3 POST PROCESSOR ASSEMBLY DATA 72777 TBLA 71446,71454 73241 TBM0 73017,73020 73271 TBM1 73020,73021 73277 TBM2 73021,73022 73301 TBM3 73022,73023 73307 TBM4 73023,73024 73310 TBM5 73024,73025 73325 TBM6 73025,73026 73336 TBM7 73026,73027 73044 TBME 73006,73007 73056 TBP0 73007,73010 73115 TBP1 73010,73011 73127 TBP2 73011,73012 73140 TBP3 73012,73013 73150 TBP4 73013,73014 73163 TBP5 73014,73015 73203 TBP6 73015,73016 73217 TBP7 73016,73017 73030 TBPE 73006 72570 TCOX 72570 72610 TEMP 70725,70730,70742,70746,70752,70754,70766,70772,70777,71000,71001,71004,71011,71024,71030,71040,71045 71052,71062,71063,71073,71101,71126,71143,71207,71216,71230,71231,71243,71251,71263,71277,71316,71343 71432,71434,71436,71562,71564,71573,71577,71601,71603,72570,72571,72572,72573,72574,72575,72576,72577 71212 TEST 71124 71577 TRSR 70753 71441 TYPA 71555 71460 TYPB 71447 71532 TYPE 71512,71516 71333 CNVT9 71322 72175 DDEFT 72060 DDFTB 71736,71763,72026,72055 72115 DDTTN 72043 71123 DFF2A 71012 72700 DUMP1 70710,73600 72724 DUMP2 72637 72667 ERROR 72631 72556 FDUMP 70724 71336 FINI1 71342 71343 FINI2 71336 71424 FINI4 72046 FPTBG 71773 71765 FPTDD 72045 71761 FPTFD 71743 72050 FPTFX 71767 72057 FPTHP 71727 72036 FPTLV 71724,71725,71726,71735 72051 FPTMK 71771 72053 FPTMP 71777,72005,72006,72015,72031,72033 72042 FPTNL 71763 72052 FPTOR 71776 72056 FPTPS 72025,72027 72047 FPTPZ 71734 72055 FPTSB 72017 71740 FPTSH 71745,71746,71747,71750,71751,71752,71753,71754,71755,71756,71757,71760 70543 GARBG 70533 FORTRAN II MONITOR DUMP RECORD 2/07/05 PAGE 4 POST PROCESSOR ASSEMBLY DATA 71227 HIGH1 71220 71231 HIGH2 71217 71242 HIGH3 71233 71244 HIGH4 71232,71247 73535 IOBOT 71614 70535 LDTIX 73472 LIMIT 70514,70517,70523,70525,70530,70532,70534,70557,70561,70570,70614,70632,70657,70660,70674,70712,73507 73510,73511,73512,73513 72626 MINUS 70573,70666,71135,71306 70500 ORGDP 73667,70507,71016,71041,71051,71215,71264, 3772,73600 71422 PACK9 71362 70543 PANEL 70536 70730 PDUMP 70727 70677 PTCH4 70626 73351 RESTO 72630 70713 RETRN 70676 71626 SELOC 71622,71626 70507 START 73666,73356 73020 TBLBM 71460 73010 TBLBP 71462 73007 TBLEM 71513,71550 73006 TBLEP 71507 73252 TBM04 73275 TBM14 73300 TBM24 73306 TBM34 73315 TBM54 73332 TBM64 73341 TBM74 73071 TBP04 73124 TBP14 73135 TBP24 73146 TBP34 73154 TBP44 73171 TBP54 73213 TBP64 73223 TBP74 71276 TESTP 71246,71266,71273 71320 TSTP2 71276 71475 TYPB1 71465,71471,71474 71506 TYPB2 71473 71551 TYPB3 71445,71457,71503,71505,71524,71526,71531,71544,71550 70721 WRPAN 73506 73600 BOTIOP 73667,73537,73600 3734 BOTTOM 70513,70516,70520,70522,70524,70526,70543,70544,70726, 3734, 3750,72633,73354,73535 3732 DATEBX 2 FINTAP 73667 3730 FLAGBX 3762 IBSXEC 3756 3773 IOXSLL 3735, 3745, 4001, 4010 134 .CHEXI 135 .MODSW 1 LIBTAP 3731 LINECT 7 MBNTAP FORTRAN II MONITOR DUMP RECORD 2/07/05 PAGE 5 POST PROCESSOR ASSEMBLY DATA 10 MCHTAP 5 MINTAP 6 MLSTAP 73667 6 OUTTAP 73667,70604,71202,71426,73476,73504 2 SAVTAP 73667,70733,70736,70741,71034,71037,71056,71061,71067,71072,71223,71226,71236,71241,71256,71261,71607 71612,71615,71620 3734 SELBEG 71621,71622,71625 4012 SELEND 71621,71622,71623, 4012 3 SINTAP 11 SNPTAP 122 SYSACC 114 SYSCEM 155 SYSCK1 156 SYSCK2 120 SYSCOR 144 SYSCRD 102 SYSCUR 102 124 SYSCYD 101 SYSDAT 115 SYSDMP 77777 SYSEND 3772 132 SYSGET 3757 117 SYSIDR 151 SYSIN1 152 SYSIN2 116 SYSIOX 133 SYSJOB 3755 104 SYSKEY 140 SYSLB1 141 SYSLB2 142 SYSLB3 143 SYSLB4 121 SYSLDR 3720 SYSORG 147 SYSOU1 150 SYSOU2 146 SYSPCH 123 SYSPID 106 SYSPOS 153 SYSPP1 154 SYSPP2 145 SYSPRT 103 SYSRET 3760 113 SYSRPT 126 SYSSLD 105 SYSSWS 1 SYSTAP 127 SYSTCH 100 SYSTRA 131 SYSTWT 111 SYSUAV 110 SYSUBC 112 SYSUCW 107 SYSUNI 157 SYSUT1 FORTRAN II MONITOR DUMP RECORD 2/07/05 PAGE 6 POST PROCESSOR ASSEMBLY DATA 160 SYSUT2 161 SYSUT3 3734, 3742, 3775 162 SYSUT4 4 TINTAP 77677 TOPMEM 702 (ACTIV 3741 703 (ACTVX 720 (BCD5R 721 (BCD5X 10000 (CHKU) 741 (CHPSW 724 (CHXAC 750 (CHXSP 717 (CKWAT 746 (COMMD 736 (COMMM 722 (CVPRT 73662 (DATE) 716 (DECVA 715 (DECVD 73645 (DGLD) 73603 (DIAG) 710 (ENBSW 73665 (ENDS) 732 (ETTXI 743 (FDAMT 73660 (FGBX) 747 (IBCDZ 740 (IOXSI 73667 (LBLD) 73652 (LIBT) 73661 (LNCT) 70714,70716,71203,71205,71427,71431,71570,71572 73600 (LOAD) 71575 73666 (LODR) 73666 737 (LTPOS 73644 (MECL) 73664 (MSLN) 70713 704 (NDATA 705 (NDSLX 712 (PAUSE 711 (PAWSX 3733 (PCBK) 73651 (PGCT) 70507 73614 (PNCH) 73611 (PRNT) 706 (PROUT 3751 707 (PUNCH 40014 (RBEC) 40004 (RBEP) 40010 (RBNC) 71071,71240 40000 (RBNP) 70735,71033,71255,71606 727 (RCHXI 4002, 4004 726 (RCTXI 40016 (RDEC) 40006 (RDEP) FORTRAN II MONITOR DUMP RECORD 2/07/05 PAGE 7 POST PROCESSOR ASSEMBLY DATA 40012 (RDNC) 40002 (RDNP) 73622 (REST) 73672 (SCHU) 744 (SDCXI 73643 (SECL) 20010 (SKBC) 20000 (SKBP) 70732,70740,71036,71060,71066,71225,71235,71260,71611,71617 20012 (SKDC) 20002 (SKDP) 1000 (SNAP) 73663 (SNCT) 73617 (STAT) 745 (STCXI 73626 (STDN) 723 (STOPD 713 (STOPX 10003 (SUAV) 10002 (SUNV) 714 (SYMUN 73606 (TAPE) 70602,70731,70734,70737,71032,71035,71054,71057,71065,71070,71200,71221,71224,71234,71237,71254,71257 71424,71605,71610,71613,71616,73474,73502 730 (TCOXI 733 (TEFXI 4000 (TPER) 735 (TRAPS 734 (TRAPX 731 (TRCXI 742 (TRPSW 725 (URRXI 40011 (WBNC) 40001 (WBNP) 71055,71222,71614 40013 (WDNC) 70603,71201,73503 40003 (WDNP) 71425,73475 40015 (WEFC) 40005 (WEFP) 40031 (WROW) NO ERROR IN ABOVE ASSEMBLY. * 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. F0C00000 * FAP F0C00020 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 2/07/05 PAGE 1 SST FORTRAN $F0C00060 ABS $F0C00071 00102 ORG SYSCUR $F0C00080 BINARY CARD NO. 9F030000 00102 112600030000 BCI 1,9F0300 $F0C00090 73666 ORG (LODR) $F0C00100 BINARY CARD NO. 9F030001 73666 1 00036 0 03734 TXI BEGSO,,30 F0C00120 73577 TOPTAB SYN BOTIOP-1 F0C00140 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 2/07/05 PAGE 1 MAIN PROGRAM 03734 ORG BOTTOM F0C00160 BINARY CARD NO. 9F030002 03734 -0534 00 4 73651 BEGSO LXD (PGCT),4 SET PAGE LINE COUNTER TO FULL PAGE F0C00170 03735 0634 00 4 06337 SXA JECT,4 TO CONTROL LINES PER PAGE. F0C00180 03736 1 77777 4 03737 TXI *+1,4,-1 REDUCE TO ONE LESS THAN THE MAXIMUM F0C00190 03737 -0634 00 4 05176 SXD TESTS,4 AND SAVE THIS RESULT FOR A LATER TEST. F0C00200 03740 0500 00 0 07121 CLA TTRDMP MAKE SURE CELL 2 WILL DO DUMP $F0C00202 03741 0601 00 0 00002 STO 2 $F0C00203 03742 -0760 00 0 00016 EMTM IN CASE USER NEEDS IT $F0C00205 03743 0760 00 0 00140 SLN 0 MAKES SURE ALL SENSE LIGHTS ARE OFF. F0C00210 03744 0774 00 2 00002 AXT 2,2 SET MONITOR INDICATOR IN CASE END F0C00220 03745 0634 00 2 73664 SXA (MSLN),2 UP IN SOURCE OR MACHINE ERROR RECORDS. F0C00230 03746 0600 00 0 73663 STZ (SNCT) RESET THE SNAP COUNTER TO ZERO F0C00240 03747 0500 00 0 00101 MVDT CLA SYSDAT PICK UP DATE FROM PERMANENT LOCATION $F0C00390 03750 0601 00 0 73662 STO (DATE) AND MOVE IT TO THE IO PACKAGE F0C00400 03751 0441 60 0 73660 FCONE LDI* (FGBX) SET THE INDICATORS FROM THE FLAG CELL F0C00410 03752 -0500 00 0 06340 CAL FGMSK CLEANSE FLAGBOX FOR NEW JOB--RETAIN BITS $F0C00420 TO INDICATE PROPER SIGN OF SYSJOB, WHICH MODE WE WERE $F0C00421 OPERATING IN, I.E., IBSFAP OR FORTRA, $F0C00422 03753 -0320 60 0 73660 ANA* (FGBX) SYSTEM IS ON DISCS IF BIT IN FGBX IS ON AN$F0C00425 03754 0602 60 0 73660 SLW* (FGBX) THIS IS A MONITOR JOB JUST BEGINNING. F0C00430 03755 0054 00 000002 RFT 2 ARE THERE SNAPS TO PROCESS F0C00440 03756 0020 00 0 04264 TRA DMPSNP BIT 34=1, TRANSFER TO SNAPS PROCESSING F0C00450 03757 0056 00 000001 FCTEN RNT 1 BIT 34=0, NO SNAPS, ARE TAPE STATISTICS OK.F0C00460 03760 0020 00 0 04770 TRA HTPSTS BIT 35=0, TAPE STATISTICS MUST BE DONE F0C00470 03761 0500 60 0 73661 FCTWO CLA* (LNCT) BIT 35=1 TAPE STATISTICS HAVE BEEN DONE. F0C00480 BINARY CARD NO. 9F030003 03762 0600 60 0 73661 STZ* (LNCT) RESET LINE COUNT CELL TO ZERO. F0C00490 03763 0074 00 4 05145 TSX CNVT,4 GO TO SUBROUTINE TO GET DECIMAL LINECOUNT. F0C00500 03764 0602 00 0 06523 SLW COM1+1 SET UP TO PRINT OUT LINE COUNT. F0C00510 03765 0760 00 0 00144 SLN 4 SET SENSE LITE TO INDICATE MESSAGE GOES F0C00520 03766 0760 00 0 00143 TONP SLN 3 $ ON + OFF LINE, AT TOP OF PAGE OFF LINE. F0C00530 F0C00540 $ BEFORE ANY COMMENTS FIELD INDICATES A VARIABLE SWITCH.F0C00550 F0C00560 03767 0500 00 0 06322 CLA IOCOM PICK UP COMMAND THAT WRITES LINE COUNT F0C00570 03770 0074 00 4 05167 TSX COMNT,4 ON TOP OF NEW PAGE ON LISTING TAPE. F0C00580 03771 0600 00 0 06357 FRTRA STZ IDOK SET CELL=ID EXPECTED $F0C00590 03772 0600 00 0 06360 STZ JOBOK SET CELL=JOB DEFINED BY EOFS $F0C00600 03773 0441 60 0 73660 LDI* (FGBX) $F0C00610 03774 0054 00 000004 RFT 4 IS THIS IBSFAP $F0C00620 03775 0020 00 0 04133 TRA FCFIV+3 YES,GO SET CELL=NOID EXPECTED $F0C00630 03776 0074 00 2 05224 FC3TEN TSX BOTP,2 NO, FORTRAN $F0C00640 03777 -0 20010 0 06371 MZE BKSOR,,(SKBC) CHECK FOR BOF ON SYSPP1 $F0C00650 04000 0500 00 0 73672 CLA (SCHU) $F0C00660 04001 -0320 00 0 06356 ANA BOF BIT28=1 INDICATES BEGINNING $F0C00670 04002 -0100 00 0 04005 TNZ FCFOUR OF FILE $F0C00680 04003 0074 00 2 05224 TSX BOTP,2 NOT BEGINNING WRITE EOF $F0C00690 04004 -0 40015 0 00000 MZE ,,(WEFC) $F0C00700 04005 0074 00 2 05232 FCFOUR TSX FITP,2 CHECK FOR BOF ON SYSIN1 $F0C00710 04006 -0 20012 0 06371 MZE BKSOR,,(SKDC) $F0C00720 04007 0500 00 0 73672 CLA (SCHU) $F0C00730 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 2/07/05 PAGE 2 MAIN PROGRAM BINARY CARD NO. 9F030004 04010 -0320 00 0 06356 ANA BOF $F0C00740 04011 -0100 00 0 04033 TNZ RDCD YES,AT BEGIN. OF FILE $F0C00750 04012 0074 00 2 05232 TSX FITP,2 NO, BACK ONE RECORD $F0C00760 04013 -0 20012 0 06367 MZE BKSPC,,(SKDC) CHECK AGAIN $F0C00770 04014 0500 00 0 73672 CLA (SCHU) $F0C00780 04015 -0320 00 0 06356 ANA BOF $F0C00790 04016 -0100 00 0 04033 TNZ RDCD YES, BOF $F0C00810 04017 0074 00 4 73606 TEFA2 TSX (TAPE),4 NO, WHAT IS THIS RECORD $F0C00820 04020 -0 40016 0 06330 MZE RCDA2,,(RDEC) $F0C00830 04021 0 00005 0 00000 PZE ,,MINTAP $F0C00840 04022 -0 00000 0 04250 MZE SKIP IGNORE ERRORS WHEN SKIPPING ON MINTAP $F0C00850 04023 0560 00 0 07026 LDQ BUFF IS THIS A$ CARD $F0C00878 04024 -0754 00 0 00000 ZAC $F0C00880 04025 -0763 00 0 00006 LGL 6 $F0C00882 04026 0402 00 0 06333 SUB DOLSN $F0C00884 04027 -0625 00 0 06360 STL JOBOK CELL=JOB NOT DEFINED BY EOFS $F0C00886 04030 0100 00 0 05546 TZE IBCARD YES $F0C00888 04031 0520 00 0 73677 ZET (SCHU)+MINTAP DID WE HIT EOF $F0C00890 04032 0020 00 0 04017 TRA TEFA2 NO,SKIP FOR CONTROL $F0C00894 04033 0760 00 0 00143 RDCD SLN 3 PUT SENSE LIGHT ON TO $F0C00897 CAUSE EJECT FOR NEW JOB $F0C00900 04034 0600 00 0 06360 STZ JOBOK I.E., HAS AN EOF AT BEGINNING $F0C00910 04035 0074 00 4 73606 FCNINE TSX (TAPE),4 READ A CARD $F0C00920 BINARY CARD NO. 9F030005 04036 0 40016 0 06330 PZE RCDA2,,(RDEC) $F0C00930 04037 0 00005 0 00000 PZE ,,MINTAP F0C00940 04040 0 00000 0 04253 PZE ERROR ERROR RETURN $F0C00950 04041 -0520 00 0 73677 NZT (SCHU)+MINTAP WAS EOF SENSED.. $F0C00951 04042 0020 00 0 07142 TRA EOFLT YES $F0C00952 04043 -0500 00 0 07043 CAL BUFF+13 PICK UP WORD 14 OF CARD IMAGE. F0C00960 04044 -0320 00 0 06352 ANA FRSVNS SAVE CHARACTERS 79 +80, ZERO OUT THE REST. F0C00970 04045 -0501 00 0 06350 ORA FRBNKS THEN PUT BLANKS IN THE LAST FOUR LOCATIONS.F0C00980 04046 0602 00 0 07043 SLW BUFF+13 RESTORE CLEANED UP WORD TO THE BUFFER. F0C00990 04047 0560 00 0 07026 LDQ BUFF PICK UP FIRST SIX CHARACTERS F0C01000 04050 -0754 00 0 00000 PXD 0,0 OF CARD, ZERO THE ACCUMULATOR F0C01010 04051 -0763 00 0 00006 LGL 6 SHIFT COLUMN ONE OF CARD INTO AC F0C01020 04052 0402 00 0 06333 SUB DOLSN IS IT A DOLLAR SIGN $F0C01030 04053 0100 00 0 05546 TZE IBCARD YES $F0C01032 04054 0520 00 0 06357 IDTES ZET IDOK IS ID CARD EXPECTED $F0C01034 04055 0020 00 0 04213 TRA SCAN NO, GO TO SCAN $F0C01036 04056 0402 00 0 06362 SUB L(1) YES,CHECK FOR*IN COL 1 $F0C01038 04057 -0100 00 0 04230 TNZ NOID NO ID CARD FOR FORTRAN $F0C01040 04060 0774 00 2 00000 AXT 0,2 TREAT * CARD $F0C01050 04061 0500 00 0 06344 CLA SWST61 MAKE CERTAIN SWITCH IS SET CORRECTLY. F0C01060 04062 0621 00 0 04073 STA SWTCH TO TEST FOR DATE CARD FIRST. F0C01070 04063 0774 00 1 00006 AXT 6,1 LOAD ROUTINE CHECKING CHARACTERS TO TEST F0C01080 BINARY CARD NO. 9F030006 04064 0634 00 1 05244 SXA NNBL1,1 6 CHARACTERS PER WORD. F0C01090 04065 0774 00 1 00016 AXT 14,1 SET THIS ROUTINE TO READ 14 WORDS FOR F0C01100 04066 0634 00 1 05245 SXA NNBL2,1 CHARACTERS. F0C01110 04067 1 77774 1 04070 TXI *+1,1,-4 REDUCEI.R.1 TO 10 TO TEST D ON TABLES FIRSTF0C01120 04070 0074 00 4 05241 GTCHR TSX NNBL,4 GO TO GET NEXT NON BLANK CHARACTER F0C01130 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 2/07/05 PAGE 3 MAIN PROGRAM 04071 0020 00 0 04100 TRA FCATE ARE NO MORE, NOT CARD BEING TESTED, ID CARDF0C01140 04072 0402 00 1 05546 SUB TBLS,1 IS CHARACTER PROPER ONE FOR THIS WORD. F0C01150 04073 0100 00 0 04146 SWTCH TZE FCSIX $ VARIABLE, TESTS SUCCESSIVE CHARACTERS. F0C01160 04074 -2 00011 1 04100 TNX FCATE,1,9 IS THIS FIRST FAILURE, NO IS ILLEGAL LETTERF0C01170 04075 1 00006 1 04076 TXI *+1,1,6 YES RESTORE I.R. ONE TO TRY ENDTAPE. F0C01180 04076 0402 00 0 06362 SUB L(1) IF ENDTAPE IS POSSIBLE CARD, AC=1 F0C01190 04077 0100 00 0 04135 TZE FCSVN IF AC=0, COULD BE ENDTAPE CARD, GO TEST IT.F0C01200 04100 0774 00 2 00016 FCATE AXT 14,2 I.D. CARD TREATMENT, WRITE CARD ON TAPE B4 F0C01210 04101 -0774 00 4 07051 AXC CDIM-25,4 LOAD INDEX REGISTERS 2 AND 4 F0C01220 04102 0560 00 2 07044 HBC1 LDQ BUFFZ,2 WITH CARD WORD COUNT AND STORAGE LOCATION F0C01230 04103 -0754 00 0 00000 PXD 0,0 PICK UP 1ST WORD AND ZERO ACCUMULATOR. F0C01240 04104 -0114 01 0 05434 CAQ HBC2,,1 THE FIRST SIX BITS OF THIS BINARY CODED F0C01250 04105 0767 00 0 00014 ALS 12 INFORMATION ARE CONVERTED TO BINARY FORM F0C01260 04106 -0114 01 0 05434 CAQ HBC2,,1 UP TO 12 BITS IN LENGTH, SHIFTED LEFT 12 F0C01270 04107 0767 00 0 00014 ALS 12 THEN THE SAME PROCESS IS REPEATED F0C01280 04110 -0114 01 0 05434 CAQ HBC2,,1 FOR THE 2ND AND 3RD GROUPS OF 6 BITS. F0C01290 04111 0602 00 4 00000 SLW 0,4 AFTER WHICH THE CONVERTED WORD IS SAVED F0C01300 BINARY CARD NO. 9F030007 04112 -0754 00 0 00000 PXD 0,0 AC IS AGAIN CLEARED F0C01310 04113 -0114 01 0 05434 CAQ HBC2,,1 THEN THE FOURTH BIT GROUP IS F0C01320 04114 0767 00 0 00014 ALS 12 CONVERTED FOLLOWED F0C01330 04115 -0114 01 0 05434 CAQ HBC2,,1 BY THE FIFTH F0C01340 04116 0767 00 0 00014 ALS 12 F0C01350 04117 -0114 01 0 05434 CAQ HBC2,,1 AND THE LAST BIT GROUP F0C01360 04120 0602 00 4 00001 SLW 1,4 THE LAST GROUPS IN CONVERTED FORM ARE SAVEDF0C01370 04121 1 77776 4 04122 TXI *+1,4,-2 MODIFY INDEX REGISTER TO STORE PROPERLY. F0C01380 04122 2 00001 2 04102 TIX HBC1,2,1 AND THE NEXT WORD IS PROCESSED IF ANY. F0C01390 F0C01400 04123 0761 00 0 00000 NOP NOP IN THE EVENT THIS CONVERSION IS DESIRED AS F0C01410 A SUBROUTINE, A TRANSFER ON INDEX REGISTER ONE MAY BE IN-F0C01420 SERTED HERE TO RETURN CONTROL PROPERLY. ONE SHOULD BE F0C01430 USED FOR THE TSX TO THIS ROUTINE AND ANY IR SAVING OR IN-F0C01440 ITIALIZING MUST BE DONE BEFORE ENTRY. F0C01450 04124 0074 00 2 05224 TSX BOTP,2 WRITE I.D. CARD OR END TAPE F0C01460 04125 -0 40011 0 06331 MZE W1REC,,(WBNC) CARD ON TAPE B4 F0C01470 04126 0074 00 2 05224 TSX BOTP,2 WRITE AN END OF FILE ON F0C01480 04127 -0 40015 0 00000 MZE 0,0,(WEFC) TAPE B4 F0C01490 04130 0760 00 0 00144 FCFIV SLN 4 FOR ON + OFF LINE $F0C01500 04131 0500 00 0 06324 CLA CDMGE WRITE ID CARD $F0C01510 04132 0074 00 4 05167 TSX COMNT,4 $F0C01520 04133 -0625 00 0 06357 STL IDOK CELL=NO ID EXPECTED $F0C01525 04134 0020 00 0 04035 FC5OUT TRA FCNINE $RESETS FOR ENDTAPE AND NOID $F0C01530 04135 3 00000 2 04142 FCSVN TXH SKPJNK,2,0 TEST IF INITIALIZING ENDTAPE ROUTINE IS SETF0C01540 04136 0500 00 0 06344 CLA SWST61 NO, DO NECESSARY INITIALIZING. F0C01550 04137 0771 00 0 00022 ARS 18 GET LOCATION OF FCSVN + USE IT TO F0C01560 BINARY CARD NO. 9F030008 04140 0621 00 0 04073 STA SWTCH SET SWITCH TO CHECK FOR ENDTAPE F0C01570 04141 0774 00 2 00007 AXT 7,2 SET I.R.2 TO PROCESS REST OF WORD. F0C01580 04142 2 00001 1 04070 SKPJNK TIX GTCHR,1,1 GO TO TEST NEXT CHARACTER IN ENDTAPE F0C01590 04143 0500 00 0 06343 CLA FC7BAK ENDTAPE CARD, SET RETURN IN FC FIVE F0C01600 04144 0621 00 0 04134 STA FC5OUT TO RETURN HERE + NOT GO TO SCAN F0C01610 04145 0020 00 0 04100 TRA FCATE THEN GO TO TREAT AS ID. CARD. F0C01620 04146 3 00000 2 04150 FCSIX TXH BYINIT,2,0 AFTER I.R.2 HAS BEEN LOADED, AVOIDS RELOAD.F0C01730 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 2/07/05 PAGE 4 MAIN PROGRAM 04147 0774 00 2 00004 AXT 4,2 LOADS I.R.2 TO TEST FOR DATE F0C01740 04150 1 77777 1 04151 BYINIT TXI *+1,1,-1 REDUCES I.R. 1 TO COMPARE PROPER CHARACTER.F0C01750 04151 2 00001 2 04070 TIX GTCHR,2,1 GOES BACK TO TEST NEXT CHARACTER IF NEEDED.F0C01760 04152 0774 00 1 00002 AXT 2,1 FIRST FOUR CHARACTERS ARE DATE TEST REST OFF0C01770 04153 0774 00 2 00002 AXT 2,2 CARD FOR PROPER DATE FORMAT. F0C01780 04154 0074 00 4 05241 CD3 TSX NNBL,4 PICK UP NEXT NON BLANK CHARACTER F0C01790 04155 0020 00 0 04100 TRA FCATE IF NONE REMAIN, TREAT AS ID CARD. F0C01800 04156 0340 00 0 06334 CAS SLASH TEST FOR SLASH TO SEPARATE MONTH AND DAY F0C01810 04157 0020 00 0 04161 TRA *+2 AND LATER TO SEPARATE DAY AND YEAR. F0C01820 04160 0020 00 0 04165 TRA CD4 CHARACTER IS A SLASH F0C01830 04161 -0501 00 1 06303 ORA MONTH+2,1 PLACE THE AC IN STORAGE CELL PROPER F0C01840 04162 0767 00 0 00006 ALS 6 FOR THIS CHARACTER + SHIFT TO MAKE ROOM F0C01850 04163 0602 00 1 06303 SLW MONTH+2,1 FOR NEXT CHARACTER IF ANY IN STORAGE. F0C01860 04164 0020 00 0 04154 TRA CD3 GET NEXT CHARACTER. F0C01870 04165 2 00001 1 04154 CD4 TIX CD3,1,1 FIRST SLASH HAS BEEN HIT. SHIFT STORAGE. F0C01880 BINARY CARD NO. 9F030009 04166 0074 00 4 05241 CD5 TSX NNBL,4 MONTH AND DAY PAST, NOW FOR YEAR. F0C01890 04167 0020 00 0 04100 TRA FCATE NO YEAR, TREAT AS ID CARD. F0C01900 04170 -0501 00 0 06302 ORA MONTH+1 PLACE YEAR IN AC WITH DATE. F0C01910 04171 -2 00001 2 04175 TNX CD6,2,1 IF FIRST CHARACTER CONTINUE, 2ND DONE F0C01920 04172 0767 00 0 00006 ALS 6 MAKE ROOM FOR LAST CHARACTER F0C01930 04173 0602 00 0 06302 SLW MONTH+1 AND SAVE THE DATE THUS FAR. F0C01940 04174 0020 00 0 04166 TRA CD5 GO GET LAST CHARACTER OF YEAR F0C01950 04175 0602 00 0 73662 CD6 SLW (DATE) OVERWRITE DATE IN IO PACKAGE F0C01960 04176 -0500 00 0 06301 CAL MONTH PICK UP THE MONTH F0C01970 04177 0767 00 0 00022 ALS 18 MOVE IT TO PROPER LOCATION F0C01980 04200 -0602 00 0 73662 ORS (DATE) AND INSERT THE MONTH PROPERLY INTO THE DATEF0C01990 04201 -0500 00 0 07046 CAL BLNKS LOAD THE AC WITH BLANKS. F0C02000 04202 -0320 00 0 73662 ANA (DATE) CHECK THAT NO 1=S ARE IN DATE WHICH ARE OUTF0C02010 04203 0100 00 0 04207 TZE OKDATE OF LAST FOUR NUMERIC POSITIONS OF THE WORD.F0C02020 04204 0500 00 0 00101 CLA SYSDAT DATE IS NOT PROPER, REPLACE IT WITH $F0C02030 04205 0601 00 0 73662 STO (DATE) DATE OF COMPILATION F0C02040 04206 0020 00 0 04100 TRA FCATE THEN GO TREAT DATE CARD AS ID CARD F0C02050 04207 0500 00 0 06324 OKDATE CLA CDMGE PICK UP THE COMMAND TO OUTPUT F0C02060 04210 0760 00 0 00144 SLN 4 THE DATE CARD. TURN ON SENSE LIGHT 4 TO IN-F0C02070 04211 0074 00 4 05167 TSX COMNT,4 DICATE ON +OFF LINE. THEN GO WRITE MESSAGE.F0C02080 04212 0020 00 0 04035 TRA FCNINE THEN GO TO READ NEXT CARD IN FOR PROCESSINGF0C02090 04213 0074 00 2 05232 SCAN TSX FITP,2 BACK 1 RECORD ON SYSIN1 $F0C02100 BINARY CARD NO. 9F030010 04214 -0 20012 0 06367 MZE BKSPC,,(SKDC) $F0C02110 04215 -0520 00 0 06360 NZT JOBOK IS FORTRAN JOB DEFINED BY EOFS $F0C02112 04216 0020 00 0 04223 TRA SCAND YES $F0C02114 04217 0441 60 0 73660 LDI* (FGBX) PICK UP FLAGBOX (26)F0C02116 04220 -0055 00 010000 SIL 10000 SET BIT FOR NO EOF (26)F0C02118 04221 0604 60 0 73660 STI* (FGBX) (26)F0C02120 04222 0020 00 0 04223 TRA *+1 (26)F0C02122 04223 0074 00 4 73606 SCAND TSX (TAPE),4 SKIP OVER FAP 1+2 $F0C02124 04224 0 20010 0 06346 PZE SKP2,,(SKBC) $F0C02126 04225 0 00001 0 00000 PZE ,,SYSTAP $F0C02128 D 04226 0074 01 4 73600 TSX (LOAD),4,1 GO TO SCAN $F0C02130 04227 112600060000 BCI 1,9F0600 $F0C02132 04230 0074 00 4 73611 NOID TSX (PRNT),4 *NO ID CARD FOR THIS JOB $F0C02134 04231 0 00017 0 06531 PZE COM3-1,,15 $F0C02136 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 2/07/05 PAGE 5 MAIN PROGRAM 04232 0074 00 4 73611 TSX (PRNT),4 SIGN KEY DOWN CONTINUE WITH $F0C02138 04233 0 00015 0 06550 PZE COM4,,13 *NO ID CARD AS ID CARD $F0C02140 04234 0074 00 4 73611 TSX (PRNT),4 SIGN KEY UP SKIP JOB $F0C02142 04235 0 00012 0 06565 PZE COM5,,10 $F0C02144 04236 0074 00 4 00712 TSX (PAUSE,4 $F0C02146 04237 0760 00 0 00004 ENK ENTER KEYS $F0C02148 04240 0162 00 0 04017 TQP TEFA2 SKIP JOB SEGMENT $F0C02150 04241 0774 00 2 00016 AXT 14,2 CONTINUE $F0C02152 BINARY CARD NO. 9F030011 04242 0500 00 2 06550 CLA COM3+14,2 MOVE * NO ID CARD TO BUFFER $F0C02154 04243 0601 00 2 07044 STO BUFF+14,2 $F0C02156 04244 2 00001 2 04242 TIX *-2,2,1 $F0C02158 04245 0500 00 0 04055 CLA IDTES+1 RESET EXIT TO GO DIRECTLY TO SCAN $F0C02160 04246 0621 00 0 04134 STA FC5OUT $F0C02162 04247 0020 00 0 04100 TRA FCATE PROCESS FORTRAN ID CARD $F0C02164 04250 0074 00 2 05232 SKIP TSX FITP,2 SKIP OVER CARD IN ERROR $F0C02166 04251 0 20010 0 06362 PZE L(1),,(SKBC) WHICH IS PROBABLY BINARY $F0C02168 04252 0020 00 0 04017 TRA TEFA2 $F0C02170 04253 0441 60 0 73660 ERROR LDI* (FGBX) ERROR FOR READ $F0C02174 04254 0054 00 000004 RFT 4 IF IBSFAP WANT TO GO TO SCAN $F0C02178 04255 0020 00 0 04223 TRA SCAND TO SKIP FOR CONTROL $F0C02180 04256 0074 00 4 73611 TSX (PRNT),4 FORTRAN, PRINT MESSAGE $F0C02185 04257 0 00007 0 06617 PZE COM8,,7 $F0C02190 04260 0074 00 2 05232 TSX FITP,2 SKIP OVER RECORD IN ERROR $F0C02195 04261 0 20012 0 06362 PZE L(1),,(SKDC) $F0C02200 04262 -0754 00 0 00000 ZAC MAKE SURE AC IS NOT ONE $F0C02210 04263 0020 00 0 04054 TRA IDTES SEE IF SEARCHING FOR ID $F0C02211 04264 0074 00 4 73606 DMPSNP TSX (TAPE),4 MAKE CERTAIN THAT TAPE IS F0C02220 04265 -0 20010 0 06367 MZE BKSPC,,(SKBC) NOT REWOUND, WHICH WOULD MEAN IT WAS F0C02230 04266 0 00011 0 00000 PZE ,,SNPTAP USED IN EXECUTION F0C02240 04267 0604 00 0 06271 STI TMPR SAVE INDICATORS FOR RETURN PROCESSING. F0C02250 BINARY CARD NO. 9F030012 04270 0441 00 0 73672 LDI (SCHU) TEST INFORMATION CELL BIT 35 FOR BTT F0C02260 04271 0054 00 000001 RFT 1 TAPE INDICATOR BIT. IF THE BIT INDICATES F0C02270 04272 0020 00 0 04752 TRA NOSNPS TAPE IS AT BEGINNING,PRINT ERROR. TAPE NG. F0C02280 04273 0074 00 4 73606 TSX (TAPE),4 *YES, REWIND SNAP TAPE F0C02290 04274 -0 20000 0 06366 MZE REWND,,(SKBP) F0C02300 04275 0 77777 0 05365 PZE READS+3,,-1 F0C02310 04276 -0534 00 4 05365 LXD READS+3,4 INITIALIZE LOCATION OF (SCHU) + SNAPTAPE. F0C02320 04277 1 73672 4 04300 TXI *+1,4,(SCHU) F0C02330 04300 0634 00 4 05367 SXA READS+5,4 F0C02340 04301 0774 00 2 00000 SNAP0 AXT 0,2 RESET WRITE ROUTINE TO NEW PAGE $F0C02350 04302 0634 00 2 05413 SXA WRIT1,2 ZERO FOR LINES LEFT TO CAUSE PAGE $F0C02353 04303 0760 00 0 00142 SLN 2 RESTORE AND HEADING IF NEW SNAP $F0C02357 04304 0074 00 2 05362 TSX READS,2 *READ TITLE. F0C02360 04305 3 00005 0 06720 TITIO IORT TITBF,,5 F0C02370 04306 -0520 00 0 73703 NZT (SCHU)+SNPTAP IF HIT END OF FILE TRYING TO READ F0C02380 04307 0020 00 0 04755 TRA DONE A TITLE, THEN THE SNAPS ARE DONE. F0C02390 04310 0774 00 1 00002 AXT 2,1 CHECK AND MAKE SURE THIS RECORD F0C02400 04311 0500 00 1 06405 CLA CLA CONSNA+2,1 IS THE TITLE. THIS IS DONE BY MAKING F0C02410 04312 0402 00 1 06724 SUB TITBF+4,1 SURE SNAPSHOTS ARE FOUND IN PROPER F0C02420 04313 -0100 00 0 04752 TNZ NOSNPS LOCATION. IF NOT ZERO AFTER SUBTRACTING F0C02430 04314 2 00001 1 04311 TIX CLA,1,1 THIS IS NOT A SNAPSHOT. GO TO CANCEL.NG F0C02440 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 2/07/05 PAGE 6 MAIN PROGRAM 04315 0074 00 2 05362 TSX READS,2 *READ PANEL F0C02450 BINARY CARD NO. 9F030013 04316 3 00011 0 06751 IORT BUFF2,,9 F0C02460 04317 0074 00 2 05406 TSX WRITE,2 *WRITE FIRST PANEL HEADING F0C02470 04320 3 00022 0 06424 IORT PHDG1,,18 F0C02480 F0C02490 SET UP PANEL F0C02500 04321 0500 00 0 06754 CLA BUFF2+3 LOAD AC SIGN, Q BIT. F0C02510 04322 0767 00 0 00001 ALS 1 GET Q BIT F0C02520 04323 0441 00 0 06377 LDI MNUSP PREPARE TO DISPLAY Q BIT, MINUS SIGN F0C02530 04324 -0760 00 0 00001 PBT IS Q BIT ON F0C02540 04325 0441 00 0 06376 LDI MNUSB NO, DELETE Q BIT F0C02550 04326 -0120 00 0 04330 TMI *+2 IS AC MINUS F0C02560 04327 0442 00 0 06375 OSI PLUSZ NO, DELETE MINUS SIGN F0C02570 04330 0604 00 0 06726 STI BUFF1+1 IN FIRST WORD OF LINE F0C02580 04331 0560 00 0 06755 LDQ BUFF2+4 LOAD REST OF AC F0C02590 04332 0074 00 4 05274 TSX OCTCV,4 *CONVERT TO OCTAL F0C02600 04333 0604 00 0 06727 STI BUFF1+2 INSERT IN WORDS 2 AND 3 OF LINE F0C02610 04334 0602 00 0 06730 SLW BUFF1+3 F0C02620 04335 0774 00 1 00011 AXT 9,1 PREPARE TO CONVERT KEYS,SI, AND F0C02630 04336 0774 00 2 00011 AXT 9,2 THE MQ F0C02640 04337 0560 00 1 06762 PREGS LDQ BUFF2+9,1 LOAD NEXT REGISTER F0C02650 04340 0074 00 4 05274 TSX OCTCV,4 *CONVERT TO OCTAL F0C02660 04341 0560 00 0 07046 LDQ BLNKS SET WORD 1 OF TRIAD BLANK F0C02670 04342 -0600 00 2 06742 STQ BUFF1+13,2 F0C02680 04343 0604 00 2 06743 STI BUFF1+14,2 INSERT LEFT HALF IN WORD 2 OF TRIAD F0C02690 BINARY CARD NO. 9F030014 04344 0602 00 2 06744 SLW BUFF1+15,2 INSERT RIGHT HALF IN WORD 3 OF TRIAD F0C02700 04345 1 77777 1 04346 TXI *+1,1,-1 BUMP REGISTER COUNT F0C02710 04346 2 00003 2 04337 TIX PREGS,2,3 ARE ALL REGISTERS CONVERTED F0C02720 04347 0560 00 2 06762 XREGS LDQ BUFF2+9,2 LOAD NEXT INDEX REGISTER F0C02730 04350 0074 00 4 05274 TSX OCTCV,4 *CONVERT TO OCTAL F0C02740 04351 -0320 00 0 06351 ANA BKOFC ELIMINATES ANY GARBAGE FIRST CHARACTER. F0C02750 04352 0560 00 0 07046 LDQ BLNKS SET FIRST WORD OF DIAD BLANK F0C02760 04353 -0600 00 1 06750 STQ BUFF1+19,1 F0C02770 04354 -0501 00 0 06373 ORA LDGBK SET FIRST CHARACTER BLANK F0C02780 04355 0602 00 1 06751 SLW BUFF1+20,1 INSERT IN SECOND WORD OF DIAD F0C02790 04356 1 77777 2 04357 TXI *+1,2,-1 BUMP REGISTER COUNT F0C02800 04357 2 00002 1 04347 TIX XREGS,1,2 ARE ALL REGISTERS CONVERTED F0C02810 04360 0074 00 2 05404 TSX WRITS,2 *YES, WRITE PANEL LINE 1 F0C02820 04361 3 00022 0 06726 IORT BUFF1+1,,18 F0C02830 04362 0074 00 2 05406 TSX WRITE,2 *WRITE PANEL HEADING 2 F0C02840 04363 3 00020 0 06446 IORT PHDG2,,16 F0C02850 F0C02860 SET UP TRIGGERS F0C02870 04364 0774 00 4 00000 AXT 0,4 SET SHIFT CONTROL + CONSTANT SELECTOR TO 0 F0C02880 04365 0774 00 1 00016 AXT 14,1 SET STORAGE LOCATION COUNT TO 14 LOCATIONS.F0C02890 04366 0774 00 2 00006 AXT 6,2 SET COUNTER TO TEST 6 SENSE SWITCHES. F0C02900 04367 0441 00 0 06756 LDI BUFF2+5 PICK UP BITS TO TEST VARIOUS PANEL LIGHTS. F0C02910 04370 0051 00 000170 IIR 170 INVERT SENSE LIGHT BITS TO SAME AS OTHERS. F0C02920 04371 -0046 00 0 00000 PIA LOAD AC WITH INFORMATION ON VARIOUS LIGHTS.F0C02930 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 2/07/05 PAGE 7 MAIN PROGRAM BINARY CARD NO. 9F030015 04372 0767 00 4 00014 ALS 12,4 POSITION 1ST BIT TO BE TESTED FOR SWITCHES.F0C02940 04373 0560 00 4 06406 TEST LDQ L(DN),4 SET MQ WITH CODE FOR TEST BIT ZERO. F0C02950 04374 -0760 00 0 00001 PBT WHAT IS THE STATUS OF THIS TRIGGER F0C02960 04375 0020 00 0 04377 TRA *+2 OFF, LEAVE MQ ALONE. F0C02970 04376 0560 00 4 06405 LDQ L(DN)-1,4 BIT EQUALS ONE, RESET MQ FOR BIT ON. F0C02980 04377 1 77777 1 04400 TXI *+1,1,-1 BUMP STORAGE TO NEXT LOCATION. F0C02990 04400 -0600 00 1 06746 STQ BUFF1+17,1 SAVE MQ IN PROPER LOCATION FOR OUTPUT F0C03000 04401 0767 00 0 00001 ALS 1 SHIFT NEXT BIT TO TESTING POSITION. F0C03010 04402 2 00001 2 04373 TIX TEST,2,1 HAS THIS BIT SEQUENCE BEEN FULLY TESTED. F0C03020 04403 1 00004 4 04404 TXI *+1,4,4 BUMP INDEX REGISTER FOR NEXT BIT SERIES. F0C03030 04404 -2 00001 1 04407 TNX OUT,1,1 FINISHED, GET OUT. NO, SKIP 1 STORAGE LOC- F0C03040 04405 0774 00 2 00007 AXT 7,2 ATION, AND SET COUNTER FOR 7 MORE BITS. F0C03050 04406 0020 00 0 04372 TRA TEST-1 SHIFT TO TEST LAST GROUP AND CONTINUE. F0C03060 04407 0560 00 0 07046 OUT LDQ BLNKS FINISHED, BLANK OUT LEFT OVER CELLS IN F0C03070 04410 -0600 00 0 06727 STQ BUFF1+2 OUTPUT BUFFER NOT RESET FOR THIS LINE OF F0C03080 04411 -0600 00 0 06730 STQ BUFF1+3 INFORMATION. F0C03090 04412 0074 00 2 05404 TSX WRITS,2 *WRITE PANEL LINE 2 F0C03100 04413 3 00020 0 06727 IORT BUFF1+2,,16 F0C03110 04414 0774 00 1 77777 AXT -1,1 RESET BUFFER SWITCH TO BUFFER 2 INITIALLY F0C03120 04415 0634 00 1 05312 SXA PACK0+3,1 $F0C03130 04416 0020 00 0 04426 TRA SNAP3 F0C03140 F0C03150 REENTRY TO SET UP NEXT LINE F0C03160 04417 0534 00 1 06275 SNAP2 LXA FWORD,1 COMPUTE COUNT OF WORDS REMAINING IN DUMP F0C03170 BINARY CARD NO. 9F030016 04420 -3 00000 1 04426 TXL SNAP3,1,0 IF ZERO LAST LINE SHOULD BE DONE $F0C03180 04421 -0634 00 1 04423 SXD SXH,1 SAVE FIRST WORD OF LINE $F0C03185 04422 0534 00 1 06274 LXA LCORS,1 SUBTRACT IT FROM ADDRESS LAST LINE TO TELL F0C03190 04423 2 00000 1 04521 SXH TIX SNAP6,1,** IS THE DUMP FINISHED *F0C03200 04424 -0774 00 4 00000 AXC **,4 YES, LOAD NUMBER OF WORDS LEFT ON TAPE F0C03210 04425 3 00000 4 04440 TXH SNAP4,4,0 DO ANY SEGMENTS REMAIN ON TAPE F0C03220 F0C03230 REENTRY TO READ FIRST DUMP RECORD F0C03240 04426 -0634 00 0 04442 SNAP3 SXD SNAP4+2,0 NO, RESET NUMBER OF WORDS TO SKIP F0C03250 04427 0500 00 0 06341 CLA TRA RESTORE TRANSFER $F0C03251 04430 0601 00 0 04462 STO FRT $F0C03252 04431 0074 00 2 05362 TSX READS,2 *READ FIRST SEGMENT OF DUMP RECORD F0C03260 04432 3 64367 0 07210 IORT CORBF,,TOPTAB-CORBF ROUTINE PUTS LAST ADDRESS IN IR1. F0C03270 04433 0500 00 0 07210 CLA CORBF LOAD FIRST CORE LOC,,NO OF WORDS IN DUMP F0C03280 04434 0621 00 0 06274 STA LCORS INITIALIZE CORE LOCATION AT BEGIN OF DUMP F0C03290 04435 -0737 00 4 00000 PDC ,4 LOAD NUMBER OF WORDS IN DUMP F0C03300 04436 -3 00000 4 04426 TXL SNAP3,4,0 IF WORD COUNT ZERO READ $F0C03310 04437 0020 00 0 04446 TRA SAVORG NOT ZERO GO PROCESS INFORMATION $F0C03315 F0C03320 REENTRY TO READ NEXT SEGMENT OF DUMP RECORD F0C03330 04440 0634 00 2 04445 SNAP4 SXA SVTW,2 PRESERVE INDEX REGISTER TWO FOR PROCESSING.F0C03340 04441 0074 00 2 05361 TSX READT,2 *READ NEXT SEGMENT OF DUMP RECORD F0C03350 04442 -2 00000 2 00000 IOSPN ,,** = OF WORDS ALREADY PUT INTO BUFFER BEFORE. F0C03360 04443 3 64367 0 07211 IORT CORBF+1,,TOPTAB-CORBF F0C03370 04444 0534 00 4 04424 LXA SXH+1,4 NUMBER OF WORDS PREVIOUSLY UNDONE $F0C03380 04445 0774 00 2 00000 SVTW AXT **,2 RESTORE INDEX TWO TO PROPER STORAGE COUNT. F0C03390 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 2/07/05 PAGE 8 MAIN PROGRAM BINARY CARD NO. 9F030017 04446 0634 00 1 06272 SAVORG SXA CORES,1 SAVE ORIGIN AT THE END OF THIS SEGMENT. F0C03400 04447 1 00001 1 04450 TXI *+1,1,1 F0C03410 04450 0634 00 1 06273 SXA CORES+1,1 F0C03420 04451 1 70566 1 04452 TXI *+1,1,-CORBF-2 COMPUTE NUMBER OF WORDS READ F0C03430 04452 -0634 00 1 06272 SXD CORES,1 = LAST LOCATION - BUFFER START. F0C03440 04453 0754 00 1 00000 PXA ,1 COMPUTE CORE LOCATION AT END OF SEGMENT F0C03450 04454 0401 00 0 06274 ADM LCORS = 1ST LOCATION + NUMBER OF WORDS READ. F0C03460 04455 0621 00 0 06274 STA LCORS F0C03470 04456 -0634 00 1 04457 SXD *+1,1 COMPUTE NUMBER OF WORDS LEFT ON TAPE F0C03480 04457 1 00000 4 04460 TXI *+1,4,** WORDS IN DUMP - WORDS READ IS SAVED F0C03490 04460 0634 00 4 04424 SXA SXH+1,4 IN CASE FURTHER READING IS NECESSARY $F0C03500 04461 -3 00000 4 04500 TXL SNAP5,4,0 ANY WORDS LEFT ON TAPE F0C03510 04462 0020 00 0 04465 FRT TRA *+3 $ ON THE FIRST READ, ONE MUST BE ADDED TO THEF0C03520 04463 -0634 00 1 04473 SXD W2BS,1 WORD COUNT TO REFLECT THE INTRODUCTORY WORDF0C03530 04464 0020 00 0 04472 TRA W2BS-1 WHICH MUST BE INCLUDED IN THE WORDS SKIPPEDF0C03540 04465 1 00001 1 04466 TXI *+1,1,1 THEREAFTER THE TRANSFER IS CHANGED TO A NOPF0C03550 04466 0500 00 0 06342 CLA NOP1 IF THERE SHOULD BE MORE THAN 1 ENTRY TO $F0C03560 04467 0601 00 0 04462 STO FRT THIS CODING, THE FIRST WORD WONT BE READDEDF0C03570 04470 -0634 00 1 04473 SXD W2BS,1 SAVE WORDS TO BE SKIPPED $F0C03580 04471 1 77777 1 04472 TXI *+1,1,-1 SUBTRACT EXTRA FIRST WORD COMPUTE SKIP $F0C03585 04472 -0534 00 4 04442 LXD SNAP4+2,4 BY ADDING THE WORDS ALREADY SKIPPED TO F0C03590 04473 1 00000 4 04474 W2BS TXI *+1,4,** THOSE SKIPPED THIS TIME, SAVING THE RESULT F0C03600 BINARY CARD NO. 9F030018 04474 -0634 00 4 04442 SXD SNAP4+2,4 FOR FURTHER USE, IF NECESSARY. F0C03610 04475 0074 00 4 73606 TSX (TAPE),4 *BACKSPACE TAPE OVER DUMP RECORD F0C03620 04476 -0 20000 0 06367 MZE BKSPC,,(SKBP) F0C03630 04477 0 77777 0 05365 PZE READS+3,,-1 F0C03640 F0C03650 PRINT FIRST LINE IN SEGMENT F0C03660 04500 -0500 00 0 07210 SNAP5 CAL CORBF LOAD FIRST CORE LOCATION OF DUMP. F0C03670 04501 0100 00 0 04613 TZE TLD IF PROCESSING IS FINISHED, GO TEST LINE. F0C03680 04502 -0320 00 0 06365 ANA DELLD DELETE LAST DIGIT F0C03690 04503 0621 00 0 06275 STA FWORD SAVE FIRST CORE LOCATION IN LINE F0C03700 04504 0322 00 0 07210 ERA CORBF COMPUTE NUMBER OF WORDS OF LEADING BLANKS F0C03710 04505 0621 00 0 06277 STA ERASE TRIPLE F0C03720 04506 0767 00 0 00001 ALS 1 F0C03730 04507 0400 00 0 06277 ADD ERASE F0C03740 04510 0734 00 4 00000 PAX ,4 F0C03750 04511 0737 00 2 00000 PAC ,2 F0C03760 04512 0401 00 0 06345 ADM L(BF3 COMPUTE ORIGIN AT END OF LEADING BLANKS F0C03770 04513 0621 00 0 04515 STA *+2 F0C03780 04514 0560 00 0 07046 LDQ BLNKS INSERT LEADING BLANKS F0C03790 04515 -0600 00 4 00000 STQ **,4 F0C03800 04516 2 00001 4 04515 TIX *-1,4,1 F0C03810 04517 0600 00 0 07210 STZ CORBF SET TEST TO AVOID INITIALIZING AFTER 1 READF0C03820 04520 1 00030 2 04572 TXI SNAP9,2,24 COMPUTE NUMBER OF WORDS REMAINING IN LINE F0C03830 F0C03840 REENTRY TO SCAN NEXT LINE FOR IDENTICAL WORDS F0C03850 04521 -0500 60 0 06272 SNAP6 CAL* CORES LOAD NEXT WORD IN LINE F0C03860 BINARY CARD NO. 9F030019 04522 0322 60 0 06273 ERA* CORES+1 IS IT SAME AS FOLLOWING WORD F0C03870 04523 -0100 00 0 04527 TNZ SNAP7 NO F0C03880 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 2/07/05 PAGE 9 MAIN PROGRAM 04524 2 00001 1 04521 TIX *-3,1,1 YES IS DUMP COMPLETE F0C03890 04525 0500 00 0 06274 CLA LCORS YES, COMPUTE FIRST WORD OF LAST LINE F0C03900 04526 0020 00 0 04532 TRA SNAP7+3 F0C03910 F0C03920 PRINT IDENTICAL WORDS F0C03930 04527 0754 00 1 00000 SNAP7 PXA ,1 COMPUTE CORE LOCATION OF LAST F0C03940 04530 0402 00 0 06362 SUB L(1) IDENTICAL WORD PLUS ONE. F0C03950 04531 0402 00 0 06274 SUB LCORS F0C03960 04532 -0320 00 0 06365 ANA DELLD DELETE LAST DIGIT F0C03970 04533 0621 00 0 06276 STA LWORD F0C03980 04534 0402 00 0 06275 SUB FWORD IS THIS SAME LINE F0C03990 04535 0100 00 0 04565 TZE SNAP8 YES F0C04000 04536 0560 00 0 06275 LDQ FWORD NO, LOAD FIRST CORE LOCATION F0C04010 04537 0074 00 4 05274 TSX OCTCV,4 *CONVERT TO OCTAL F0C04020 04540 -0501 00 0 06373 ORA LDGBK SET FIRST CHARACTER BLANK F0C04030 04541 0602 00 0 06475 SLW IDWBF+7 INSERT IN WORD 8 OF MESSAGE F0C04040 04542 0500 00 0 06276 CLA LWORD LOAD LOCATION OF LAST IDENTICAL WORD+1 F0C04050 04543 0402 00 0 06362 SUB L(1) F0C04060 04544 0131 00 0 00000 XCA F0C04070 04545 0074 00 4 05274 TSX OCTCV,4 *CONVERT TO OCTAL F0C04080 04546 -0501 00 0 06373 ORA LDGBK SET FIRST CHARACTER BLANK F0C04090 04547 0602 00 0 06477 SLW IDWBF+9 INSERT IN WORD 10 OF MESSAGE F0C04100 BINARY CARD NO. 9F030020 04550 0560 60 0 06272 LDQ* CORES LOAD IDENTICAL WORDS F0C04110 04551 0074 00 4 05274 TSX OCTCV,4 *CONVERT TO OCTAL F0C04120 04552 0602 00 0 06504 SLW IDWBF+14 INSERT RIGHT HALF IN WORD 15 F0C04130 04553 -0500 00 0 06400 CAL MINUS PREPARE TO PRINT MINUS SIGN F0C04140 04554 -0056 00 040000 LNT 40000 IS WORD MINUS F0C04150 04555 -0501 00 0 07046 ORA BLNKS NO, DELETE MINUS SIGN F0C04160 04556 0602 00 0 06502 SLW IDWBF+12 INSERT SIGN IN WORD 13 F0C04170 04557 -0057 00 040000 RIL 40000 DELETE LEADING DIGIT 7 BIT F0C04180 04560 0604 00 0 06503 STI IDWBF+13 INSERT LEFT HALF IN WORD 14 F0C04190 04561 0074 00 2 05406 TSX WRITE,2 *WRITE THIS LINE F0C04200 04562 3 00017 0 06466 IORT IDWBF,,15 F0C04210 04563 0534 00 4 06276 LXA LWORD,4 RESET FIRST WORD FOR NEXT LINE F0C04220 04564 0634 00 4 06275 SXA FWORD,4 F0C04230 F0C04240 REENTRY TO PREPARE NEXT LINE F0C04250 04565 0535 00 1 06275 SNAP8 LAC FWORD,1 COMPUTE LENGTH OF REMAINING DUMP F0C04260 04566 -0634 00 1 04570 SXD *+2,1 F0C04270 04567 0534 00 1 06274 LXA LCORS,1 F0C04280 04570 1 00000 1 04571 TXI *+1,1,** F0C04290 04571 0774 00 2 00030 AXT 24,2 PREPARE TO CONVERT 8 CELLS TO 1 LINE F0C04300 F0C04310 REENTRY TO CONVERT NEXT WORD F0C04320 04572 0560 60 0 06272 SNAP9 LDQ* CORES LOAD NEXT WORD TO BE DUMPED F0C04330 04573 0074 00 4 05274 TSX OCTCV,4 *CONVERT TO OCTAL F0C04340 04574 0602 00 2 07027 SLW BUFF3+26,2 SAVE RIGHT HALF F0C04350 04575 -0500 00 0 06400 CAL MINUS LOAD BCD MINUS F0C04360 BINARY CARD NO. 9F030021 04576 -0056 00 040000 LNT 40000 IS WORD MINUS F0C04370 04577 -0501 00 0 07046 ORA BLNKS NO, DELETE SIGN F0C04380 04600 0602 00 2 07025 SLW BUFF3+24,2 SAVE SIGN F0C04390 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 2/07/05 PAGE 10 MAIN PROGRAM 04601 -0057 00 040000 RIL 40000 RESET LEADING DIGIT 7 BIT F0C04400 04602 0604 00 2 07026 STI BUFF3+25,2 SAVE LEFT HALF F0C04410 04603 2 00001 1 04613 TIX TLD,1,1 IF THIS SEGMENT OF THE DUMP IS DONE,TEST F0C04420 04604 0522 00 0 04424 XEC SXH+1 LOCATION FOR ANY MORE WORDS TO BE $F0C04430 04605 3 00000 4 04440 TXH SNAP4,4,0 READ IN. IF INDEX IS HIGH,GET NEXT SEGMENT.F0C04440 04606 -2 00003 2 04614 TNX TLD+1,2,3 IF NOT,TEST IF LINE HAS BEEN COMPLETED. F0C04450 04607 0500 00 0 07046 CLA BLNKS IF LINE IS INCOMPLETE,COMPLETE IT WITH F0C04460 04610 0601 00 2 07025 STO BUFF3+24,2 BLANKS. IF COMPLETE PREPARE IT FOR OUTPUT. F0C04470 04611 2 00001 2 04610 TIX *-1,2,1 TEST IF LINE HAS BEEN COMPLETED. F0C04480 04612 0020 00 0 04614 TRA TLD+1 LINE NOW COMPLETE,SET UP FOR OUTPUT F0C04490 04613 2 00003 2 04572 TLD TIX SNAP9,2,3 TESTS IF PROCESSING FOR THIS LINE IS DONE. F0C04500 04614 0560 00 0 06275 LDQ FWORD GET LOCATION OF FIRST WORD FOR THIS LINE. F0C04510 04615 0074 00 4 05274 TSX OCTCV,4 *CONVERT TO OCTAL F0C04520 04616 0074 00 4 05307 TSX PACK0,4 *PACK LINE F0C04530 04617 0621 00 0 04621 STA *+2 INITIALIZE I/O COMMAND. F0C04540 04620 0074 00 2 05406 TSX WRITE,2 *WRITE LINE F0C04550 04621 3 00024 0 00000 IORT **,,20 F0C04560 04622 0500 00 0 06275 CLA FWORD BUMP FIRST CORE LOCATION F0C04570 04623 0400 00 0 06363 ADD L(8) F0C04580 BINARY CARD NO. 9F030022 04624 0621 00 0 06275 STA FWORD F0C04590 F0C04600 WRITE MNEMONICS FOR THIS LINE F0C04610 04625 0774 00 2 00030 AXT 24,2 PREPARE TO EXAMINE EIGHT WORDS F0C04620 04626 -0754 00 0 00000 MNEM1 PXD ,0 F0C04630 04627 0441 00 2 07025 LDI BUFF3+24,2 PICK UP SIGN F0C04640 04630 0560 00 2 07026 LDQ BUFF3+25,2 LOAD LEFT HALF OF WORD F0C04650 04631 0162 00 0 04633 TQP *+2 IS WORD BLANK F0C04660 04632 0020 00 0 04737 TRA MNEM6+1 YES F0C04670 04633 -0114 01 0 05660 CAQ TBLMN,,1 NO, IS THIS A TYPE A INSTRUCTION F0C04680 04634 0100 00 0 04645 TZE MNEM2 NO F0C04690 04635 0054 00 000020 RFT 20 YES, IS THIS A + TYPE A INSTRUCTION F0C04700 04636 0020 00 0 04642 TRA *+4 YES F0C04710 04637 -0754 00 0 00000 PXD ,0 NO F0C04720 04640 0560 00 2 07026 LDQ BUFF3+25,2 LOAD LEFT HALF OF WORD F0C04730 04641 -0114 01 0 05663 CAQ TBLMN+3,,1 GET MNEMONIC FOR - TYPE A INSTRUCTION F0C04740 04642 0602 00 2 07026 SLW BUFF3+25,2 INSERT IN WORD 2 OF TRIPLE F0C04750 04643 -0500 00 0 07046 CAL BLNKS PREPARE TO SET WORDS 1 AND 3 BLANK F0C04760 04644 0020 00 0 04741 TRA MNEM6+3 F0C04770 04645 0774 00 4 05701 MNEM2 AXT TBLBM,4 PREPARE TO FIND - INSTRUCTION GROUP F0C04780 04646 0054 00 000020 RFT 20 IS THIS - INSTRUCTION F0C04790 04647 0774 00 4 05671 AXT TBLBP,4 NO, PREPARE TO FIND + INSTRUCTION GROUP F0C04800 04650 0634 00 4 04651 SXA *+1,4 F0C04810 04651 -0114 01 0 00000 CAQ **,,1 GET INSTRUCTION GROUP PARAMETER F0C04820 BINARY CARD NO. 9F030023 04652 0020 00 0 04670 TRA MNEM4 F0C04830 F0C04840 REENTRY TO DECODE PSE, MSE OPCODES F0C04850 04653 0771 00 0 00014 MNEM3 ARS 12 RIGHT ADJUST PSE, MSE OPCODE F0C04860 04654 -0501 00 0 06374 ORA 2BLNK INSERT LEADING BLANKS F0C04870 04655 0602 00 2 07026 SLW BUFF3+25,2 INSERT IN WORD 2 OF TRIPLE F0C04880 04656 0560 00 2 07027 LDQ BUFF3+26,2 PICK UP THE RIGHT HALF OF THE WORD. F0C04890 04657 -0500 00 0 07046 CAL BLNKS SET WORDS 1 AND 3 BLANK F0C04900 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 2/07/05 PAGE 11 MAIN PROGRAM 04660 0602 00 2 07025 SLW BUFF3+24,2 F0C04910 04661 0602 00 2 07027 SLW BUFF3+26,2 F0C04920 04662 -0763 00 0 00014 LGL 12 GET RID OF FIRST TWO DIGITS, TAG, F0C04930 04663 -0754 00 0 00000 PXD ,0 AND FIRST ADDRESS DIGIT, ZERO AC F0C04940 04664 -0763 00 0 00014 LGL 12 MOVE HUNDREDS AND THOUSANDS INTO THE AC F0C04950 04665 -0100 00 0 04743 TNZ MNEM7 ARE THERE ANY ENTRIES IN THESE BITS. F0C04960 04666 0634 00 4 04667 SXA *+1,4 NO, PREPARE TO FIND WHICH PSE, MSE OPCODE F0C04970 04667 -0500 00 0 00000 CAL ** SET MNEM4 TO HANDLE ADDRESS DECODING. F0C04980 04670 0621 00 0 04700 MNEM4 STA MNEM5 INITIALIZE ORIGIN OF INSTRUCTION GROUP F0C04990 04671 -0734 00 1 00000 PDX ,1 LOAD LENGTH OF INSTRUCTION GROUP F0C05000 04672 -0754 00 0 00000 PXD ,0 F0C05010 04673 -0763 00 0 00014 LGL 12 GET OCTAL OPCODE F0C05020 04674 0621 00 0 04701 STA MNEM5+1 INITIALIZE TEST FOR OPCODE F0C05030 04675 0760 00 0 00006 COM F0C05040 04676 -0320 00 0 06364 ANA 3SVNS F0C05050 04677 0621 00 0 04703 STA MNEM5+3 INITIALIZE TEST FOR OPCODE. F0C05060 BINARY CARD NO. 9F030024 04700 0441 00 1 00000 MNEM5 LDI **,1 PICK UP NEXT OPCODE THIS GROUP F0C05070 04701 0056 00 000000 RNT ** IS THIS THE PROPER OPCODE. F0C05080 04702 2 00001 1 04700 TIX MNEM5,1,1 NO, HAVE ALL OPCODES BEEN CHECKED F0C05090 04703 0054 00 000000 RFT ** MAYBE, IS IT NO OTHER OPCODE F0C05100 04704 2 00001 1 04700 TIX MNEM5,1,1 NO, HAVE ALL OPCODES BEEN EXHAUSTED F0C05110 04705 0522 00 0 04701 XEC MNEM5+1 YES, WAS THIS OPCODE FOUND F0C05120 04706 0020 00 0 04736 TRA MNEM6 NO, SET TRIPLE BLANK F0C05130 04707 0522 00 0 04703 XEC MNEM5+3 MAYBE, WAS NO OTHER OPCODE FOUND F0C05140 04710 0020 00 0 04736 TRA MNEM6 NO, SET TRIPLE BLANK F0C05150 04711 -0046 00 0 00000 PIA YES, RECALL OPCODE F0C05160 04712 0774 00 4 05667 AXT TBLEP,4 PREPARE TO CHECK FOR PLUS SENSE INSTRUCTN F0C05170 04713 -0340 00 0 06112 LAS PSEOP IS THIS OPCODE PSE F0C05180 04714 0020 00 0 04716 TRA *+2 NO F0C05190 04715 0020 00 0 04653 TRA MNEM3 YES, GO FIND WHICH F0C05200 04716 0774 00 4 05670 AXT TBLEM,4 PREPARE TO CHECK FOR MINUS SENSE INSTRUCTNF0C05210 04717 -0340 00 0 06241 LAS MSEOP IS THIS OPCODE MSE F0C05220 04720 0020 00 0 04722 TRA *+2 NO F0C05230 04721 0020 00 0 04653 TRA MNEM3 YES, GO FIND WHICH F0C05240 04722 0771 00 0 00014 ARS 12 NO, RIGHT ADJUST OPCODE F0C05250 04723 -0501 00 0 06374 ORA 2BLNK INSERT LEADING BLANKS F0C05260 04724 0602 00 2 07026 SLW BUFF3+25,2 INSERT IN WORD 2 OF TRIPLE F0C05270 04725 -0500 00 0 07046 CAL BLNKS PREPARE TO SET WORD 3 BLANK F0C05280 BINARY CARD NO. 9F030025 04726 -0773 00 0 00003 RQL 3 SHIFT IN INDIRECT BITS F0C05290 04727 0162 00 0 04741 TQP MNEM6+3 IS ADDRESS INDIRECT F0C05300 04730 -0773 00 0 00001 RQL 1 MAYBE F0C05310 04731 0162 00 0 04741 TQP MNEM6+3 IS IT REALLY INDIRECT F0C05320 04732 -0500 00 0 06372 CAL ASTRK YES, PICK UP ASTERISK F0C05330 04733 0602 00 2 07027 SLW BUFF3+26,2 INSERT IN WORD 3 OF TRIPLE F0C05340 04734 -0500 00 0 07046 CAL BLNKS PREPARE TO SET WORD 1 BLANK F0C05350 04735 0020 00 0 04742 TRA MNEM6+4 F0C05360 04736 -3 05670 4 04743 MNEM6 TXL MNEM7,4,TBLEM WAS OPCODE FOUND F0C05370 04737 -0500 00 0 07046 CAL BLNKS NO, SET TRIPLE BLANK F0C05380 04740 0602 00 2 07026 SLW BUFF3+25,2 F0C05390 04741 0602 00 2 07027 SLW BUFF3+26,2 F0C05400 04742 0602 00 2 07025 SLW BUFF3+24,2 F0C05410 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 2/07/05 PAGE 12 MAIN PROGRAM 04743 2 00003 2 04626 MNEM7 TIX MNEM1,2,3 IS LINE COMPLETE F0C05420 04744 -0500 00 0 07046 CAL BLNKS LOADS AC WITH BLANKS UPON ENTRY TO PACK. F0C05430 04745 0074 00 4 05307 TSX PACK0,4 YES, PACK LINE F0C05440 04746 0621 00 0 04750 STA *+2 INITIALIZE I/O COMMAND F0C05450 04747 0074 00 2 05404 TSX WRITS,2 *WRITE LINE F0C05460 04750 3 00024 0 00000 IORT **,,20 F0C05470 04751 0020 00 0 04417 TRA SNAP2 F0C05480 04752 0760 00 0 00144 NOSNPS SLN 4 MESSAGE ON AND OFF LINE. F0C05490 04753 0500 00 0 06326 CLA ERMS SNAPS ARE MISSING OR INCORRECTLY FOUND. F0C05500 BINARY CARD NO. 9F030026 04754 0522 00 0 04132 XEC FCFIV+2 TAPE PROBABLY USED IN EXECUTION. NO SNAPS. F0C05510 04755 0500 00 0 06300 DONE CLA DPLCT PICK UP THE LINES OF SNAPSHOTS OUTPUT AND F0C05520 04756 0400 60 0 73661 ADD* (LNCT) ADD IT TO THE LINES IN LINECOUNT, AND F0C05530 04757 0601 60 0 73661 STO* (LNCT) SAVE THE GRAND TOTAL IN (LNCT) INDIRECTLY. F0C05540 04760 0500 00 0 06321 CLA EOSMS PICK UP THE COMMAND TO OUTPUT THE F0C05550 04761 0760 00 0 00144 SLN 4 MESSAGE INDICATING SNAPS ARE COMPLETE. F0C05560 04762 0074 00 4 05167 TSX COMNT,4 AND GO GIVE MESSAGE. F0C05570 04763 0074 00 4 73606 TSX (TAPE),4 *REWIND SNAPSHOT TAPE F0C05580 04764 -0 20000 0 06366 MZE REWND,,(SKBP) F0C05590 04765 0 77777 0 05365 PZE READS+3,,-1 F0C05600 04766 0441 00 0 06271 LDI TMPR RETURN INDICATORS FOR MAIN ROUTINE. F0C05610 04767 0020 00 0 03757 TRA FCTEN THEN GO TO NEXT PROCESSING. F0C05620 04770 -0520 60 0 73661 HTPSTS NZT* (LNCT) IS THERE A LINE COUNT TO PRINT. F0C05630 04771 0020 00 0 03771 TRA FRTRA NO, NEW JOB CHECK TAPES $F0C05640 04772 0054 00 000004 RFT 4 CHECK FOR IBSFAP $F0C05641 04773 0774 00 0 00000 AXT ,0 MAKE TRA FCTWO IF IBSFAP STATS NOT WANTED.$F0C05642 04774 0774 00 1 00003 AXT 3,1 SET INDEX REGISTER 3 FOR 3 DIFFERENT LINES.F0C05650 04775 0500 00 0 06411 CLA BLKLN PICK UP COMMAND TO WRITE BLANK LINE $F0C05660 04776 0760 00 0 00143 SLN 3 TO RESTORE PAGE $F0C05663 04777 0774 00 0 00000 AXT ,0 ELIMINATES UNNECESSARY LINE $F0C05667 05000 0500 00 1 06412 GTCOM CLA COMTS+1,1 SENSE LITE 3 PUTS 1ST LINE AT TOP OF NEW F0C05670 05001 0774 00 0 00000 AXT ,0 PAGE OFF LINE. FOLLOWING THIS, REST OF $F0C05680 BINARY CARD NO. 9F030027 05002 0074 00 4 05167 TSX COMNT,4 HEADING AND BLANK LINE ARE WRITTEN. $F0C05690 05003 2 00001 1 05000 TIX GTCOM,1,1 SLN 4 INSTEAD OF AXT WILL PRINT THEM ALSO.$F0C05700 05004 0500 00 0 04123 CLA NOP RESET SENSE LIGHT IF PAGE ALREADY RESTORED.F0C05710 05005 0622 00 0 03766 STD TONP THIS KEEPS STATISTICS AND LINE COUNT UNITEDF0C05720 05006 0074 00 4 73617 TSX (STAT),4 ON RETURN INDEX REGISTER ONE CONTAINS F0C05730 05007 0634 00 1 05024 SXA STAT3,1 THE ADDRESS +1 OF TOP OF TAPE STAT TABLE F0C05740 05010 0634 00 2 05012 SXA STAT1,2 INDEX REGISTER TWO CONTAINS THE ADDRESS OF F0C05750 05011 0634 00 2 05041 SXA STAT7,2 CELL TAPNO WHICH HAS THE NUMBER OF TAPES INF0C05760 05012 -0534 00 2 00000 STAT1 LXD **,2 SYSTEM IN DECREMENT. GET THE NUMBER OF F0C05770 05013 -0634 00 2 05031 SXD STAT4,2 TAPES IN SYSTEM AND SAVE IT FOR F0C05780 05014 -0634 00 2 05037 SXD STAT6,2 3 LATER TEST DECREMENTS F0C05790 05015 -0634 00 2 05131 SXD STAT13,2 F0C05800 05016 0774 00 1 00001 AXT 1,1 INITIALIZE INDEX REGISTER ONE TO FIRST TAPEF0C05810 05017 0560 00 0 06347 STAT2 LDQ 3ZROS SET TAPE AND UNIT TO PROPER F0C05820 05020 -0600 00 0 06700 STQ STBUF+2 INITIAL STATUS. F0C05830 05021 0754 00 1 00000 PXA 0,1 SET INDEX REGISTERS 1 F0C05840 05022 0734 00 4 00000 PAX 0,4 AND 4 EQUAL. F0C05850 05023 0774 00 2 00002 AXT 2,2 SET INDEX REGISTER TWO TO MAKE F0C05860 05024 0500 00 4 00000 STAT3 CLA **,4 TWO PASSES PICKING UP THE PROPER LOCATIONS F0C05870 05025 0621 00 2 06305 STA TOTWT+2,2 AND SETTING THE TAPE INFORMATION F0C05880 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 2/07/05 PAGE 13 MAIN PROGRAM 05026 0771 00 0 00022 ARS 18 PROPERLY IN BUFFERS FOR F0C05890 05027 0621 00 2 06307 STA NOISW+2,2 LATER CONVERTING AND OUTPUTTING. F0C05900 BINARY CARD NO. 9F030028 05030 0600 60 0 05024 STZ* STAT3 BLANK THE CELL OUT. F0C05910 05031 1 00000 4 05032 STAT4 TXI *+1,4,** INCREMENT I.R. 4 BY NUMBER OF TAPES F0C05920 05032 2 00001 2 05024 TIX STAT3,2,1 TEST IF FINISHED. F0C05930 05033 0774 00 2 00002 AXT 2,2 RESET INDEX REGISTER 2. F0C05940 05034 0500 60 0 05024 STAT5 CLA* STAT3 PICK UP NEXT ITEM OF TAPE STATISTICS. F0C05950 05035 0621 00 2 06311 STA TOTRW+2,2 AND STORE IT IN THE PROPER LOCATION. F0C05960 05036 0600 60 0 05024 STZ* STAT3 STAT3 HAS LOCATION OF THIS DATA. F0C05970 05037 1 00000 4 05040 STAT6 TXI *+1,4,** MODIFY NEXT LOCATION BEING PROCESSED F0C05980 05040 2 00001 2 05034 TIX STAT5,2,1 AND TEST IF MORE TO BE DONE. F0C05990 05041 0500 60 1 00000 STAT7 CLA* **,1 TAPES USED ARE OBTAINED FROM THIS POINTER.$F0C06000 05042 0771 00 0 00022 ARS 18 MOVED TO ADDRESS $F0C06005 05043 0621 00 0 06312 STA MCHTP AND THESE TAPES ARE SAVED ALONG F0C06010 05044 0500 60 0 05041 CLA* STAT7 GET THE POSITIONING ERRORS $F0C06015 05045 0771 00 0 00022 ARS 18 WITH THE NUMBER OF F0C06020 05046 0621 00 0 06311 STA POSER POSITIONING ERRORS. F0C06030 05047 -0500 00 0 06361 CAL ADMSK THIS LOCATION IS THEN ZEROED $F0C06040 05050 0320 60 0 05041 ANS* STAT7 OUT IN THE DECREMENT. F0C06050 05051 0774 00 2 00007 AXT 7,2 SET I.R. 2 TO SAVE INFORMATION. F0C06060 05052 0754 00 0 00000 PXA 0,0 CLEAR THE AC. F0C06070 05053 0361 00 2 06312 ACL TOTWT+7,2 ADD THE INFORMATION OBTAINED F0C06080 05054 2 00001 2 05053 TIX *-1,2,1 AND TEST THE FINAL TOTAL. IF F0C06090 05055 0100 00 0 05130 TZE STAT12 ZERO, NO USE OF THIS TAPE. F0C06100 BINARY CARD NO. 9F030029 05056 0634 00 1 05066 SXA STAT9,1 SAVE NUMBER OF TAPES PROCESSED F0C06110 05057 0774 00 1 00000 AXT 0,1 RELOAD INDEX REGISTERS F0C06120 05060 0774 00 2 00006 AXT 6,2 SET INDEX REGISTER TO LOAD OUTPUT. F0C06130 05061 0500 00 2 06311 STAT8 CLA TOTWT+6,2 PICK UP TOTAL WRITING F0C06140 05062 0074 00 4 05145 TSX CNVT,4 GO TO CONVERT TO DECIMAL F0C06150 05063 0602 00 1 06702 SLW STBUF+4,1 AND SAVE IN BUFFER F0C06160 05064 1 77776 1 05065 TXI *+1,1,-2 BUMP TO INSERT OUTPUT PROPERLY F0C06170 05065 2 00001 2 05061 TIX STAT8,2,1 TEST IF ALL OUTPUT MOVED. F0C06180 05066 0774 00 1 00000 STAT9 AXT **,1 LOAD INDEX WITH NUMBER OF TAPES, F0C06190 05067 0754 00 1 00000 PXA 0,1 AND PLACE IT IN AC F0C06200 05070 0074 00 4 05145 TSX CNVT,4 TO CONVERT TO DECIMAL. F0C06210 05071 0602 00 0 06676 SLW STBUF THEN STORE LOGICAL NUMBER IN OUTPUT BUFFER F0C06220 05072 0500 00 0 06312 CLA MCHTP COMPUTE CORRESPONDING MACHINE F0C06230 05073 -0765 00 0 00011 LGR 9 TAPE NUMBER. F0C06240 05074 0601 00 0 06271 STO TMPR SAVE IN TEMPORARY STORAGE. F0C06250 05075 0754 00 0 00000 PXA 0,0 ZERO THE AC F0C06260 05076 -0763 00 0 00003 LGL 3 MOVE FIRST OCTAL BITS INTO AC AND F0C06270 05077 0760 00 0 00001 LBT TEST FOR BIT IN 35. IF BIT IS HERE F0C06280 05100 0020 00 0 05102 TRA *+2 THEN STATISTICS ARE FOR SPECIAL UNIT, PUNCHF0C06290 05101 0020 00 0 05133 TRA STAT14 READER, ETC. IF NOT IS A TAPE UNIT. F0C06300 05102 -0763 00 0 00002 LGL 2 MOVE NEXT TWO CHARACTERS INTO AC. F0C06310 05103 0754 00 0 00000 PXA 0,0 THESE ARE NOT NEEDED, SO ZERO AC. F0C06320 BINARY CARD NO. 9F030030 05104 -0763 00 0 00004 LGL 4 BRING IN LAST 4 BITS WITH TAPE NUMBER. F0C06330 05105 0074 00 4 05145 TSX CNVT,4 CONVERT THIS OCTAL TAPE TO DECIMAL. F0C06340 05106 0734 00 2 00000 PAX 0,2 PLACE IN I.R. 2 AND THEN F0C06350 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 2/07/05 PAGE 14 MAIN PROGRAM 05107 -0634 00 2 06700 SXD STBUF+2,2 STORE IT IN PROPER PLACE IN OUTPUT BUFFER. F0C06360 05110 0500 00 0 06271 CLA TMPR PICK UP MACHINE NUMBER WITH CHANNEL IN IT F0C06370 05111 0402 00 0 06354 SUB SVN IF SUBTRACTING LEAVES PLUS CHANNEL IS G ORHF0C06380 05112 0120 00 0 05141 TPL STAT15 OTHERWISE CHANNEL IS A-F F0C06390 05113 0534 00 4 06271 LXA TMPR,4 CHANNEL IS A-F SO LOAD CHANNEL SHIFT IN F0C06400 05114 0560 00 0 06317 LDQ LTTRS INDEX REGISTER PUT THE CHANNEL LETTERS F0C06410 05115 0754 00 0 00000 STAT10 PXA 0,0 IN MQ, AND SHIFT UNTIL THE PROPER F0C06420 05116 -0763 00 0 00006 LGL 6 CHANNEL IS LEFT IN THE AC ALONE F0C06430 05117 2 00001 4 05115 TIX STAT10,4,1 WITH ZEROS. F0C06440 05120 0767 00 0 00036 ALS 30 SHIFT THE CHANNEL INTO POSITION AND F0C06450 05121 -0602 00 0 06700 ORS STBUF+2 PUT IN OUTPUT BUFFER F0C06460 05122 0500 00 0 06311 STAT11 CLA POSER CONVERT AND STORE THE F0C06470 05123 0074 00 4 05145 TSX CNVT,4 NUMBER OF POSITIONING ERRORS F0C06480 05124 0602 00 0 06717 SLW STBUF+17 IN THE OUTPUT BUFFER. F0C06490 05125 0500 00 0 06325 STAT16 CLA COMST2 WRITE AND PRINT THE STATISTICS FOR ONE F0C06500 05126 0774 00 0 00000 AXT ,0 TAPE. SLN 4 HERE WOULD PRINT. $F0C06510 05127 0074 00 4 05167 TSX COMNT,4 WRITE IT OFF- $F0C06520 05130 1 00001 1 05131 STAT12 TXI *+1,1,1 LINE. BUMP TAPE COUNT AND F0C06530 05131 -3 00000 1 05017 STAT13 TXL STAT2,1,** CHECK IF FINISHED. F0C06540 BINARY CARD NO. 9F030031 05132 0020 00 0 03761 TRA FCTWO TAPE STATISTICS FINISHED. GO ON PROCESSING.F0C06550 05133 0754 00 0 00000 STAT14 PXA 0,0 HAVE A SPECIAL UNIT DESIGNATION F0C06560 05134 -0763 00 0 00002 LGL 2 PICK UP TWO CHARACTERS TELLING WHICH UNIT. F0C06570 05135 0737 00 2 00000 PAC 0,2 PUT THEIR COMPLEMENT IN INDEX REGISTER F0C06580 05136 0500 00 2 06313 CLA PER-3,2 AND PICK UP THE PROPER DESIGNATION F0C06590 05137 0601 00 0 06700 STO STBUF+2 AND STORE IN THE OUTPUT BUFFER, THEN F0C06600 05140 0020 00 0 05125 TRA STAT16 PRINT IT OUT. F0C06610 05141 0400 00 0 06362 STAT15 ADD L(1) SET INDEX REGISTER TO PROPER F0C06620 05142 0734 00 4 00000 PAX 0,4 SHIFTING VALUE THEN PICK UP F0C06630 05143 0560 00 0 06320 LDQ LTTRS+1 CHANNEL G+H AND GO TO PUT F0C06640 05144 0020 00 0 05115 TRA STAT10 PROPER CHARACTER IN AC F0C06650 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 2/07/05 PAGE 1 SUBROUTINES 05145 -0320 00 0 06361 CNVT ANA ADMSK ROUTINE DOES BINARY TO BCD CONVERSION F0C06670 05146 0131 00 0 00000 XCA MOVE ITEM INTO MQ F0C06680 05147 0634 00 4 05165 SXA CNVT3,4 SAVE CALLING LINKAGE F0C06690 05150 0774 00 4 00000 AXT 0,4 SET INDEX REGISTER TO ZERO TO START. F0C06700 05151 0600 00 0 06313 STZ TMPR1 ZERO OUT TEMPORARY STORAGE F0C06710 05152 -0754 00 0 00000 CNVT1 PXD 0,0 AND CLEAR OUT THE AC. F0C06720 05153 0765 00 0 00000 LRS 0 MAKES SURE SIGN OF MQ IS PLUS. $F0C06725 05154 0221 00 0 06335 DVP TEN DIVIDE BY TEN DECIMAL. F0C06730 05155 0767 00 4 00000 ALS 0,4 MOVE ANSWER TO DESIRED POSITION F0C06740 05156 -0602 00 0 06313 ORS TMPR1 AND PUT IT IN STORAGE. F0C06750 05157 0500 00 0 06362 CLA L(1) TEST IF CONVERSION DONE F0C06760 BINARY CARD NO. 9F030032 05160 0040 00 0 05162 TLQ CNVT2 IF DONE GO TO EXIT, IF F0C06770 05161 1 77772 4 05152 TXI CNVT1,4,-6 MORE GO BACK TO CONTINUE. F0C06780 05162 -0500 00 0 07046 CNVT2 CAL BLNKS DONE, LOAD AC WITH BLANKS F0C06790 05163 0767 00 4 00006 ALS 6,4 SHIFT DATA TO PROPER POSITION F0C06800 05164 -0501 00 0 06313 ORA TMPR1 AND BLANK OUT THE REMAINDER OF F0C06810 05165 0774 00 4 00000 CNVT3 AXT **,4 WORD. LEAVE IT IN AC, RESTORE LINKAGE, F0C06820 05166 0020 00 4 00001 TRA 1,4 AND RETURN TO CALLING PROGRAM. F0C06830 05167 0634 00 4 05221 COMNT SXA AX4,4 THE LOCATION OF THE INITIAL TRANSFER IS F0C06840 05170 0634 00 1 05220 SXA AX1,1 SAVED AS IS THE COMMAND WORD IN AC. F0C06850 05171 0622 00 0 05206 STD COMCW SAVE INDEX REGISTER ONE FOR THE RETURN. $F0C06860 05172 0621 00 0 05206 STA COMCW $F0C06863 05173 0601 00 0 05223 STO WCOM SET COMMAND WITH SIGN. $F0C06865 05174 0534 00 1 06337 LXA JECT,1 LOAD NO. OF LINES LEFT ON PAGE K $F0C06870 05175 -0760 00 0 00143 SLT 3 DOES LINE BELONG AT TOP $F0C06880 05176 -3 00000 1 05203 TESTS TXL IOCL,1,** ONLY IF LINE COUNT IS MAXIMUM $F0C06890 05177 -0534 00 1 05176 LXD TESTS,1 $F0C06900 05200 0074 00 4 73606 TSX (TAPE),4 WRITE DUMMY LINE $F0C06910 05201 0 40013 0 06323 SKPCM,,(WDNC) TO EJECT PAGE OFF-LINE ONLY $F0C06920 05202 0 00006 0 00000 ,,MLSTAP $F0C06930 05203 -0760 00 0 00144 IOCL SLT 4 IF ON, PRINT ON-LINE $F0C06940 05204 0020 00 0 05207 TRA WTDA3 IS DESIRED. SL4 OFF, ON TAPE ALONE. F0C06950 05205 0074 00 4 73611 TSX (PRNT),4 ON, PRINT OUT THIS MESSAGE. F0C06960 BINARY CARD NO. 9F030033 05206 0 00000 0 00000 COMCW PZE STORAGE FOR PRINT COMMAND. $F0C06970 05207 0074 00 4 73606 WTDA3 TSX (TAPE),4 GO TO IO PACKAGE TO WRITE ON A3 F0C06980 05210 0 40013 0 05223 PZE WCOM,,(WDNC) THIS HAS BEEN SET TO PROPER COMMAND. $F0C06990 05211 0 00006 0 00000 PZE 0,0,MLSTAP MLSTAP IS NOW SET TO A3 F0C07000 05212 0500 00 0 06362 CLA L(1) ADD ONE TO THE LINECOUNT F0C07010 05213 0400 60 0 73661 ADD* (LNCT) AND SAVE THE NEW LINECOUNT F0C07020 05214 0601 60 0 73661 STO* (LNCT) F0C07030 05215 2 00001 1 05217 TIX SJCT,1,1 REDUCE THE LINES AVAILABLE. IF ONLY F0C07040 05216 -0534 00 1 73651 LXD (PGCT),1 ONE REMAINS, RESTORE LINES TO THE MAXIMUM. F0C07050 05217 0634 00 1 06337 SJCT SXA JECT,1 SAVE THE LINES REMAINING F0C07060 05220 0774 00 1 00000 AX1 AXT ,1 RELOAD THE INDEX REGISTERS F0C07070 05221 0774 00 4 00000 AX4 AXT ,4 AND EXIT TO LOCATION 2 AFTER F0C07080 05222 0020 00 4 00001 TRA 1,4 RETURN TO CALLING PROGRAM. F0C07090 05223 0 00000 0 00000 WCOM PZE STORAGE FOR TAPE COMMAND. $F0C07095 05224 0500 00 2 00001 BOTP CLA 1,2 THIS ROUTINE TAKES CARE OF TAPE F0C07100 05225 0601 00 0 05227 STO *+2 HANDLING OF BINARY OUTPUT TAPE. F0C07110 05226 0074 00 4 73606 TSX (TAPE),4 THE COMMAND IS PICKED UP AND F0C07120 05227 -0 00000 0 00000 MZE STORED IN CALLING SEQUENCE, THE TAPE F0C07130 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 2/07/05 PAGE 2 SUBROUTINES 05230 0 00007 0 00000 PZE ,,MBNTAP HANDLING PERFORMED AND CONTROL F0C07140 05231 0020 00 2 00002 TRA 2,2 RETURNED TO CALLING PROGRAM. F0C07150 05232 0500 00 2 00001 FITP CLA 1,2 THIS ROUTINE TAKES CARE OF TAPE F0C07160 05233 0601 00 0 05235 STO *+2 HANDLING OF MONITOR INPUT TAPE. F0C07170 BINARY CARD NO. 9F030034 05234 0074 00 4 73606 TSX (TAPE),4 THE COMMAND IS PICKED UP AND F0C07180 05235 -0 00000 0 00000 MZE STORED IN CALLING SEQUENCE, THE TAPE F0C07190 05236 0 00005 0 00000 PZE ,,MINTAP HANDLING PERFORMED AND CONTROL F0C07200 05237 -0 00000 0 05240 MZE *+1 ERROR RETURN KILLS ALL REDUNDANCY MESSAGES.F0C07210 05240 0020 00 2 00002 TRA 2,2 RETURNED TO CALLING PROGRAM. F0C07220 05241 0634 00 2 05265 NNBL SXA NNBL7,2 INDEX REGISTERS ONE AND TWO F0C07230 05242 0634 00 1 05266 SXA NNBL8,1 ARE SAVED FOR RESTORING ON EXIT. F0C07240 05243 -0600 00 0 05272 STQ TEMP1 THE MQ IS ALSO SAVED FOR RESTORING. F0C07250 05244 0774 00 1 00000 NNBL1 AXT **,1 INDEX REGISTERS ONE AND TWO CONTAIN F0C07260 05245 0774 00 2 00000 NNBL2 AXT **,2 THE NUMBER OF CHARACTERS REMAINING UNDONE. F0C07270 05246 0560 00 0 05273 LDQ TEMPQ TEMPQ CONTAINS THE NEXT CHARACTER TO F0C07280 05247 -3 00005 1 05251 NNBL2A TXL NNBL4,1,5 BE PROCESSED IF 6 CHARACTERS IN WORD F0C07290 05250 0560 00 2 07045 LDQ BUFFZ+1,2 NO CHARACTERS LEFT. GET THE NEXT WORD. F0C07300 05251 -0754 00 0 00000 NNBL4 PXD 0,0 ZERO OUT THE AC F0C07310 05252 -0763 00 0 00006 LGL 6 BRING A CHARACTER INTO THE AC. F0C07320 05253 0402 00 0 06336 SUB BLNK SUBTRACT BLANK FOR TESTING F0C07330 05254 2 00001 1 05257 TIX *+3,1,1 ARE ANY CHARACTERS LEFT FOR TESTING F0C07340 05255 0774 00 1 00006 AXT 6,1 NO RESET THE SHIFT COUNTER FOR 6 MORE F0C07350 05256 1 77777 2 05257 TXI *+1,2,-1 REDUCE THE NUMBER OF WORDS,THEN PROCEED. F0C07360 05257 -0100 00 0 05262 TNZ NNBL5 IF CHARACTER NON BLANK, AC NOT ZERO F0C07370 05260 3 00002 2 05247 TXH NNBL2A,2,2 CHECK FOR ANY WORDS REMAINING. F0C07380 05261 1 00001 4 05265 TXI NNBL7,4,1 NONE REMAIN, SET IR 4 FOR ERROR RETURN F0C07390 BINARY CARD NO. 9F030035 05262 0400 00 0 06336 NNBL5 ADD BLNK RESTORE THE CHARACTER F0C07400 05263 0634 00 1 05244 SXA NNBL1,1 SAVE THE CURRENT SHIFT COUNTER F0C07410 05264 0634 00 2 05245 SXA NNBL2,2 AND WORD BEING PROCESSED COUNTER F0C07420 05265 0774 00 2 00000 NNBL7 AXT ,2 RELOAD THE INDEX REGISTER F0C07430 05266 0774 00 1 00000 NNBL8 AXT ,1 AND THE CONTENTS OF THE F0C07440 05267 -0600 00 0 05273 STQ TEMPQ MQ AT ENTRY AFTER SAVING F0C07450 05270 0560 00 0 05272 LDQ TEMP1 THE CURRENT MQ FOR NEXT TIME. F0C07460 05271 0020 00 4 00002 TRA 2,4 THEN TAKE TRANSFER BACK F0C07470 05272 0 00000 0 00000 TEMP1 PZE STORAGE CELL FOR SAVING MQ AT ENTRY F0C07480 05273 0 00000 0 00000 TEMPQ PZE STORAGE CELL FOR SAVING INTERNAL MQ F0C07490 F0C07500 CONVERT WORD IN MQ TO OCTAL, L HALF IN SI, R HALF IN AC F0C07510 05274 0634 00 4 05305 OCTCV SXA OCTCX,4 SAVE CALLING LINKAGE F0C07520 05275 0774 00 4 00044 AXT 36,4 PREPARE TO CONVERT TWO SIX CHARACTER WORDSF0C07530 05276 0767 00 0 00003 ALS 3 CREATE ZONE F0C07540 05277 -0763 00 0 00003 LGL 3 SHIFT IN OCTAL DIGIT F0C07550 05300 2 00006 4 05276 TIX *-2,4,6 IS FIRST WORD COMPLETE F0C07560 05301 0044 00 0 00000 PAI YES, HOLD IT IN INDICATORS F0C07570 05302 0767 00 0 00003 ALS 3 CREATE ZONE F0C07580 05303 -0763 00 0 00003 LGL 3 SHIFT IN OCTAL DIGIT F0C07590 05304 2 00001 4 05302 TIX *-2,4,1 IS SECOND WORD COMPLETE F0C07600 05305 0774 00 4 00000 OCTCX AXT **,4 YES, RELOAD CALLING LINKAGE F0C07610 05306 0020 00 4 00001 TRA 1,4 F0C07620 F0C07630 PACK LOCATION AND 8 WORDS (OR LINE OF MNEMS) INTO LINE F0C07640 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 2/07/05 PAGE 3 SUBROUTINES 05307 0634 00 4 05355 PACK0 SXA PACKX,4 SAVE CALLING LINKAGE F0C07650 BINARY CARD NO. 9F030036 05310 0634 00 2 05356 SXA PACKX+1,2 MAKE SURE INDEX REGISTERS WILL BE F0C07660 05311 0634 00 1 05357 SXA PACKX+2,1 RESTORED TO ORIGINAL STATE ON ENTRY. F0C07670 05312 -0774 00 1 77777 AXC -1,1 LOAD OUTPUT BUFFER COUNT F0C07680 05313 0634 00 1 05312 SXA *-1,1 FLIP FLOP F0C07690 05314 0774 00 2 00033 AXT 27,2 PREPARE TO PACK EIGHT TETRADS F0C07700 05315 -0774 00 4 00000 AXC 0,4 INTO TWO SEPTADS WITH FIVE TO SPARE F0C07710 05316 0602 60 1 06267 SLW* OUTBF+14,1 INSERT CORE LOCATION OF FIRST WORD F0C07720 05317 -0500 00 2 07030 PACK1 CAL BUFF3+27,2 LOAD FIRST WORD OF TETRAD (SIGN) F0C07730 05320 0560 00 2 07031 LDQ BUFF3+28,2 LOAD SECOND WORD OF TETRAD (LEFT HALF) F0C07740 05321 -0765 00 0 00014 LGR 12 LEFT ADJUST WITH LEADING BLANK F0C07750 05322 -0600 60 1 06252 STQ* OUTBF+1,1 IN FIRST WORD OF SEPTAD F0C07760 05323 -0500 00 2 07031 CAL BUFF3+28,2 LOAD SECOND WORD OF TETRAD (LEFT HALF) F0C07770 05324 0560 00 2 07032 LDQ BUFF3+29,2 LOAD THIRD WORD OF TETRAD (RIGHT HALF) F0C07780 05325 -0765 00 0 00014 LGR 12 LEFT ADJUST INCLUDING FIRST 4 IN R HALF F0C07790 05326 -0600 60 1 06253 STQ* OUTBF+2,1 IN SECOND WORD OF SEPTAD F0C07800 05327 -0500 00 2 07033 CAL BUFF3+30,2 LOAD FIRST WORD OF NEXT TETRAD (SIGN) F0C07810 05330 0560 00 2 07034 LDQ BUFF3+31,2 LOAD SECOND WORD OF TETRAD (LEFT HALF) F0C07820 05331 -0765 00 0 00014 LGR 12 LEFT ADJUST WITH LEADING BLANK F0C07830 05332 -0500 00 2 07032 CAL BUFF3+29,2 LOAD THIRD WORD OF LAST TETRAD F0C07840 05333 -0765 00 0 00014 LGR 12 SALVAGE LAST TWO DIGITS IN RIGHT HALF F0C07850 05334 -0600 60 1 06256 STQ* OUTBF+5,1 IN THIRD WORD OF SEPTAD F0C07860 05335 -0500 00 2 07034 CAL BUFF3+31,2 LOAD SECOND WORD OF TETRAD (LEFT HALF) F0C07870 BINARY CARD NO. 9F030037 05336 0560 00 2 07035 LDQ BUFF3+32,2 LOAD THIRD WORD OF TETRAD (RIGHT HALF) F0C07880 05337 -0763 00 0 00014 LGL 12 LEFT ADJUST INCLUDING FIRST 2 IN R HALF F0C07890 05340 0602 60 1 06257 SLW* OUTBF+6,1 IN FOURTH WORD OF SEPTAD F0C07900 05341 -0500 00 2 07035 CAL BUFF3+32,2 LOAD THIRD WORD OF TETRAD (RIGHT HALF) F0C07910 05342 0560 00 2 07036 LDQ BUFF3+33,2 LOAD FIRST OF NEXT TETRAD (SIGN) F0C07920 05343 -0773 00 0 00030 RQL 24 LEFT ADJUST WITH LEADING BLANK F0C07930 05344 -0763 00 0 00014 LGL 12 SALVAGE LAST FOUR DIGITS IN RIGHT HALF F0C07940 05345 0602 60 1 06262 SLW* OUTBF+9,1 IN FIFTH WORD OF SEPTAD F0C07950 05346 -2 00011 2 05354 TNX PACK2,2,9 IS THIS END OF LINE F0C07960 05347 -0500 00 2 07026 CAL BUFF3+25,2 NO, LOAD SECOND WORD OF TETRAD (LEFT HALF)F0C07970 05350 0602 60 1 06263 SLW* OUTBF+10,1 IN SIXTH WORD OF SEPTAD F0C07980 05351 -0500 00 2 07027 CAL BUFF3+26,2 LOAD THIRD WORD OF TETRAD (RIGHT HALF) F0C07990 05352 0602 60 1 06266 SLW* OUTBF+13,1 IN SEVENTH WORD OF SEPTAD F0C08000 05353 1 77771 4 05317 TXI PACK1,4,-7 BUMP COUNT TO NEXT SEPTAD F0C08010 05354 -0500 00 1 06267 PACK2 CAL OUTBF+14,1 LOAD BUFFER ORIGIN F0C08020 05355 0774 00 4 00000 PACKX AXT **,4 RELOAD CALLING LINKAGE F0C08030 05356 0774 00 2 00000 AXT **,2 RESTORE INDEX REGISTERS BEFORE F0C08040 05357 0774 00 1 00000 AXT **,1 RETURNING TO CALLING PROGRAM. F0C08050 05360 0020 00 4 00001 TRA 1,4 F0C08060 F0C08070 READ SNAPSHOT RECORD FROM INTERMEDIATE TAPE F0C08080 05361 0760 00 0 00144 READT SLN 4 SET RETURN TO 3,4 F0C08090 05362 0634 00 4 05372 READS SXA RIR4,4 SAVE INDEX BEFORE USING AS VALUE IS NEEDED.F0C08100 05363 0074 00 4 73606 TSX (TAPE),4 *READS NEXT RECORD ON (SNAP) TAPE. F0C08110 BINARY CARD NO. 9F030038 05364 0 40014 2 00001 PZE 1,2,(RBEC) F0C08120 05365 0 00011 0 00000 PZE ,,SNPTAP F0C08130 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 2/07/05 PAGE 4 SUBROUTINES 05366 0 00000 0 05376 PZE READR F0C08140 05367 0534 00 1 00000 LXA **,1 LOAD LAST+1 WORD READ F0C08150 05370 -0760 00 0 00142 SLT 2 WILL BE ON IF TRYING TO READ TITLE. F0C08160 05371 -3 00000 1 04301 TXL SNAP0,1,0 WAS END OF FILE SENSED F0C08170 05372 0774 00 4 00000 RIR4 AXT **,4 RESETS INDEX REGISTER IF NO ERROROR EOF. F0C08180 05373 -0760 00 0 00144 SLT 4 NO, IS RETURN TO 3,4 F0C08190 05374 0020 00 2 00002 TRA 2,2 NO F0C08200 05375 0020 00 2 00003 TRA 3,2 YES F0C08210 05376 0074 00 4 73606 READR TSX (TAPE),4 *SKIP REST OF DUMP F0C08220 05377 -0 20000 0 06327 MZE SKP1FL,,(SKBP) F0C08230 05400 0 77777 0 05365 PZE READS+3,,-1 F0C08240 05401 0074 00 2 05406 TSX WRITE,2 *WRITE ERROR MESSAGE F0C08250 05402 3 00011 0 06505 IORT RDERM,,9 F0C08260 05403 0020 00 0 04301 TRA SNAP0 F0C08270 F0C08280 WRITE LINE OF DUMP ON OUTPUT TAPE F0C08290 05404 0760 00 0 00144 WRITS SLN 4 SET SINGLE SPACE FLAGS F0C08300 05405 0760 00 0 00143 SLN 3 F0C08310 05406 0500 00 0 06300 WRITE CLA DPLCT BUMP LINE COUNT F0C08320 05407 0400 00 0 06362 ADD L(1) F0C08330 05410 -0760 00 0 00144 SLT 4 IS THIS SINGLE SPACE F0C08340 05411 0400 00 0 06362 ADD L(1) NO, BUMP AGAIN F0C08350 BINARY CARD NO. 9F030039 05412 0601 00 0 06300 STO DPLCT F0C08360 05413 0774 00 4 00000 WRIT1 AXT **,4 BUMP PAGE LINE COUNT F0C08370 05414 2 00001 4 05415 TIX *+1,4,1 BUMP LINE COUNT F0C08380 05415 -0760 00 0 00143 SLT 3 IS THIS SINGLE SPACE F0C08390 05416 0020 00 0 05420 TRA *+2 NO,SENSE LIGHT OFF, DOUBLE SPACE. F0C08400 05417 0020 00 0 05427 TRA WRIT2 YES, DO NOT CREATE WIDOW F0C08410 05420 2 00001 4 05427 TIX WRIT2,4,1 BUMP LINE COUNT AND TEST FOR FULL PAGE. F0C08420 05421 0074 00 4 73606 TSX (TAPE),4 *YES, WRITE TITLE F0C08430 05422 0 40003 0 04305 PZE TITIO,,(WDNP) F0C08440 05423 0 77777 0 05432 PZE WRIT2+3,,-1 F0C08450 05424 0400 00 0 06362 ADD L(1) F0C08460 05425 0601 00 0 06300 STO DPLCT F0C08470 05426 -0534 00 4 73651 LXD (PGCT),4 RESET LINE COUNT TO FULL PAGE F0C08480 05427 0634 00 4 05413 WRIT2 SXA WRIT1,4 F0C08490 05430 0074 00 4 73606 TSX (TAPE),4 *WRITE LINE F0C08500 05431 0 40003 2 00001 PZE 1,2,(WDNP) F0C08510 05432 0 00006 0 00000 PZE ,,MLSTAP F0C08520 05433 0020 00 2 00002 TRA 2,2 F0C08530 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 2/07/05 PAGE 1 TABLES 05434 +000000001000 HBC2 OCT 1000,400,200,100,40,20,10,4,2,1,0,102,42,0,0,0 F0C08550 BINARY CARD NO. 9F030040 05454 +000000004000 OCT 4000,4400,4200,4100,4040,4020,4010,4004,4002,4001,5000 F0C08560 BINARY CARD NO. 9F030041 05467 +000000004102 OCT 4102,4042,0,0,0 F0C08570 05474 +000000002000 OCT 2000,2400,2200,2100,2040,2020,2010,2004,2002,2001,3000 F0C08580 05507 +000000002102 OCT 2102,2042,0,0,0 F0C08590 BINARY CARD NO. 9F030042 05514 +000000000000 OCT 0,1400,1200,1100,1040,1020,1010,1004,1002,1001,0,1102 F0C08600 05530 +000000001042 OCT 1042,0,0,0 F0C08610 05534 000000000024 BCI ,00000D00000A00000T00000E00000N00000D00000T00000A00000P00000EF0C08620 BINARY CARD NO. 9F030043 05546 TBLS BSS 0 LOCATION USED AS BASE TO TEST CARD TYPES $F0C08621 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 2/07/05 PAGE 2 IBSYS CONTROL CARD PROCESSOR $ PROCESS CARD WITH $ IN COLUMN ONE. $F0C08630 05546 0441 60 0 73660 IBCARD LDI* (FGBX) WE'LL NEED THIS LATER $F0C08631 05547 0774 00 4 00006 AXT IBCDS,4 NUMBER OF OPERATIONS $F0C08632 05550 -0500 00 0 07026 CAL BUFF RECOGNIZED. PICK UP OPERATION $F0C08633 05551 -0340 00 4 07113 LAS IBNAM,4 COMPARE WITH TABLE $F0C08634 05552 0020 00 0 05554 TRA *+2 NOT THIS ONE $F0C08635 05553 0020 60 4 07121 TRA* IBPLAC,4 BRANCH TO PROCESSOR $F0C08636 05554 2 00001 4 05551 TIX *-3,4,1 DO REST OF TABLE $F0C08637 CARD WAS UNKNOWN $F0C08638 05555 0074 00 2 05232 IBOTHR TSX FITP,2 BACKSPACE OVER UNKNOWN $F0C08639 05556 -0 20002 0 06367 MZE BKSPC,,(SKDP) IBSYS CONTROL CARD $F0C0863A CARD WAS $IBSYS $F0C08640 05557 0500 00 0 07141 NIBSYS CLA RETNG INFORM THEM WE RE TIRED $F0C08641 05560 0760 00 0 00144 SLN 4 ON AND OFF LINE $F0C08642 05561 0074 00 4 05167 TSX COMNT,4 $F0C08643 05562 0074 00 4 73606 TSX (TAPE),4 RESTORE AVAILABILITY $F0C08644 05563 0 10003 0 00000 PZE ,,(SUAV) CHAIN. $F0C08645 05564 -0500 00 0 00133 CAL SYSJOB REFLECT THIS IN SIGN OF SYSJOB, UNLESS $F0C08646 05565 0056 00 000010 RNT 10 WE'RE AWARE OF PRIOR CHANGES.. $F0C08649 05566 0601 00 0 00133 STO SYSJOB WE'RE NOT. $F0C0864A 05567 0600 00 0 03720 STZ BOTTOM-12 WE'RE OUT. $F0C0864B BINARY CARD NO. 9F030044 05570 0020 00 0 00103 TRA SYSRET AND SO TO BED. $F0C08650 CARD WAS $STOP $F0C08651 05571 0602 00 0 00132 NSTOP SLW SYSGET STORE OPERATION FOR $F0C08652 05572 0020 00 0 05557 TRA NIBSYS IBSYS AND GO BACK TO IT $F0C08653 CARD WAS $ID $F0C08654 05573 0074 00 4 00117 NIBID TSX SYSIDR,4 CALL INSTALLATION ACCNTG $F0C08655 05574 0 00016 0 07026 PZE BUFF,,14 (AC IS ALREADY PLUS) $F0C08656 05575 -0520 00 0 06357 NZT IDOK DO WE NEED AN I.D... $F0C08658 05576 0120 00 0 04100 TPL FCATE FORTRAN, TREAT AS *I.D. $F0C08659 05577 0120 00 0 04130 TPL FCFIV IBSFAP OR PREVIOUSLY ID ED FORTRAN $F0C08660 05600 -0500 00 0 06327 NIBID2 CAL JOBBIT SIGN WAS MINUS, WE MUST BOMB $F0C08661 05601 -0602 00 0 00133 ORS SYSJOB OUT. SET BOMB-OUT BIT $F0C08662 05602 -0500 00 0 07123 CAL IBSXEC TELL IBSYS TO IGNORE US $F0C08663 05603 0602 00 0 00132 SLW SYSGET $F0C08664 05604 0020 00 0 05557 TRA NIBSYS RETURN TO IBSYS $F0C08665 CARD WAS $JOB $F0C08666 05605 -0500 00 0 07124 NIBJOB CAL IBSBSR TELL IBSYS ABOUT IT $F0C08667 05606 0602 00 0 00132 SLW SYSGET $F0C08668 05607 0074 00 4 73606 TSX (TAPE),4 RESTORE AVAILABILITY CHAIN $F0C08669 05610 0 10003 0 00000 PZE ,,(SUAV) SO WE COULD LEGALLY RESTORE SYSJOB $F0C0866A 05611 0600 00 0 03720 STZ BOTTOM-12 WE'RE OUT, PROVISIONALLY $F0C08670 05612 -0500 00 0 00133 CAL SYSJOB AVAILABILITY STATUS BEFORE US $F0C08671 05613 0056 00 000010 RNT 10 DID THEY.. $F0C08672 05614 0601 00 0 00133 STO SYSJOB NO, MAKE SYSJOB PLUS $F0C08673 05615 0074 00 4 00113 TSX SYSRPT,4 SEE WHAT'S WHAT $F0C08674 BINARY CARD NO. 9F030045 05616 -0500 00 0 07125 CAL IBSYST AH, WE CAN PROCEED $F0C08675 05617 0602 00 0 00132 SLW SYSGET RESTORE SYSGET $F0C08676 05620 -0500 00 0 07137 CAL WEREIN WE'RE BACK IN $F0C08677 05621 0602 00 0 03720 SLW BOTTOM-12 $F0C08678 05622 0074 00 4 73606 TSX (TAPE),4 GET OUR TAPES BACK $F0C08679 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 2/07/05 PAGE 3 IBSYS CONTROL CARD PROCESSOR $ 05623 0 10002 0 00000 PZE ,,(SUNV) $F0C0867A 05624 -0500 00 0 06371 CAL BKSOR (MINUS ZERO) $F0C0867B 05625 -0602 00 0 00133 ORS SYSJOB TO LET IBSYS KNOW $F0C0867C 05626 0074 00 4 00117 TSX SYSIDR,4 AND CALL ACCOUNTING IN ORDER TO $F0C0867D 05627 0 00016 0 07026 BUFF,,14 COMPLETE OUR DUTIES $F0C0867E 05630 -0120 00 0 05600 TMI NIBID2 DID WE... NO. $F0C0867F 05631 0760 00 0 00144 SLN 4 YES. PRINT CARD ON/OFF LINE $F0C08680 05632 0020 00 0 07150 TRA PJOB $F0C08681 CARD WAS $EXECU $F0C08682 05633 -0500 00 0 07030 NEXECU CAL BUFF+2 WHO DO THEY WANT $F0C08683 05634 0560 00 0 07031 LDQ BUFF+3 $F0C08684 05635 -0763 00 0 00022 LGL 18 GET SYSNAM $F0C08685 05636 0322 00 0 07136 ERA FORTRA IS IT US IN EXECUTE MODE $F0C08687 05637 0100 00 0 05645 TZE ITSME YES $F0C08689 05640 0322 00 0 07140 ERA FOMIB IS IT US IN ASSEMBLE-ONLY $F0C08690 05641 0100 00 0 05654 TZE ITSYOU YES $F0C08691 05642 0322 00 0 07135 ERA IBSFAP NO, RESTORE HIS NAME, AND $F0C08692 05643 0602 00 0 00132 SLW SYSGET SET FOREIGNER $F0C08693 BINARY CARD NO. 9F030046 05644 0020 00 0 05557 TRA NIBSYS LET IBSYS FIND HIM $F0C08694 05645 0056 00 000004 ITSME RNT 4 WERE WE ALREADY EXECUTABLE $F0C08695 05646 0020 00 0 04035 TRA FCNINE YES, IGNORE THE CARD $F0C08696 05647 -0500 00 0 07122 CAL NFAPBT NO, CHANGE THE MONITOR $F0C08697 05650 0320 60 0 73660 ANS* (FGBX) MODE, AND START OVER $F0C08698 05651 0500 00 0 06324 CLA CDMGE PICK UP COMMAND TO PRINT CARD $F0C08699 05652 0074 00 4 05167 TSX COMNT,4 PRINT CARD OFFLINE $F0C0869A 05653 0020 00 0 03771 TRA FRTRA AND START OVER $F0C0869B 05654 0055 00 000004 ITSYOU SIR 4 SET ASSEMBLE ONLY $F0C08700 05655 0604 60 0 73660 STI* (FGBX) ..IBSFAP.. MODE $F0C08701 05656 0600 00 0 06360 STZ JOBOK END-OF-FILE NOT NEEDED $F0C08702 05657 0020 00 0 04131 TRA FCFIV+1 PRINT CARD OFF-LINE $F0C08703 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 2/07/05 PAGE 4 DUMP TABLES FOR MNEMONICS $ MNEMONIC EQUIVALENTS OF MACHINE OPCODES $F0C08735 05660 0 00000 0 00000 TBLMN PZE $F0C08736 05661 606060636731 BCI 1, TXI +1 $F0C08737 05662 606060633167 BCI 1, TIX +2 $F0C08738 05663 606060636730 BCI 1, TXH +3 $F0C08739 05664 606060626351 BCI 1, STR -1 F0C08740 05665 606060634567 BCI 1, TNX -2 F0C08750 05666 606060636743 BCI 1, TXL -3 F0C08760 05667 0 00013 0 05724 TBLEP PZE ETPSE,,ETPSE-BTPSE F0C08770 05670 0 00012 0 05736 TBLEM PZE ETMSE,,ETMSE-BTMSE F0C08780 05671 0 00037 0 05775 TBLBP PZE TBLP1,,TBLP1-TBLP0 F0C08790 BINARY CARD NO. 9F030047 05672 0 00007 0 06004 PZE TBLP2,,TBLP2-TBLP1 F0C08800 05673 0 00011 0 06015 PZE TBLP3,,TBLP3-TBLP2 F0C08810 05674 0 00010 0 06025 PZE TBLP4,,TBLP4-TBLP3 F0C08820 05675 0 00013 0 06040 PZE TBLP5,,TBLP5-TBLP4 F0C08830 05676 0 00021 0 06061 PZE TBLP6,,TBLP6-TBLP5 F0C08840 05677 0 00025 0 06106 PZE TBLP7,,TBLP7-TBLP6 F0C08850 05700 0 00022 0 06130 PZE TBLP8,,TBLP8-TBLP7 F0C08860 05701 0 00030 0 06160 TBLBM PZE TBLM1,,TBLM1-TBLM0 F0C08870 05702 0 00006 0 06166 PZE TBLM2,,TBLM2-TBLM1 F0C08880 05703 0 00002 0 06170 PZE TBLM3,,TBLM3-TBLM2 F0C08890 05704 0 00006 0 06176 PZE TBLM4,,TBLM4-TBLM3 F0C08900 05705 0 00001 0 06177 PZE TBLM5,,TBLM5-TBLM4 F0C08910 05706 0 00016 0 06215 PZE TBLM6,,TBLM6-TBLM5 F0C08920 05707 0 00020 0 06235 PZE TBLM7,,TBLM7-TBLM6 F0C08930 05710 0 00014 0 06251 PZE TBLM8,,TBLM8-TBLM7 F0C08940 05711 602343440000 BTPSE BCI 1, CLM00 +0760 00 0 00000 F0C08950 05712 604322630001 BCI 1, LBT01 +0760 00 0 00001 F0C08960 05713 602330620002 BCI 1, CHS02 +0760 00 0 00002 F0C08970 05714 606262470003 BCI 1, SSP03 +0760 00 0 00003 F0C08980 05715 602545420004 BCI 1, ENK04 +0760 00 0 00004 F0C08990 05716 603146630005 BCI 1, IOT05 +0760 00 0 00005 F0C09000 05717 602346440006 BCI 1, COM06 +0760 00 0 00006 F0C09010 BINARY CARD NO. 9F030048 05720 602563440007 BCI 1, ETM07 +0760 00 0 00007 F0C09020 05721 605145240100 BCI 1, RND10 +0760 00 0 00010 F0C09030 05722 602651450101 BCI 1, FRN11 +0760 00 0 00011 F0C09040 05723 602423630102 BCI 1, DCT12 +0760 00 0 00012 F0C09050 05724 ETPSE SYN * F0C09060 05724 604722630001 BTMSE BCI 1, PBT01 -0760 00 0 00001 F0C09070 05725 252663440002 BCI 1,EFTM02 -0760 00 0 00002 F0C09080 05726 606262440003 BCI 1, SSM03 -0760 00 0 00003 F0C09090 05727 432663440004 BCI 1,LFTM04 -0760 00 0 00004 F0C09100 05730 256263440005 BCI 1,ESTM05 -0760 00 0 00005 F0C09110 05731 252363440006 BCI 1,ECTM06 -0760 00 0 00006 F0C09120 05732 604363440007 BCI 1, LTM07 -0760 00 0 00007 F0C09130 05733 436245440100 BCI 1,LSNM10 -0760 00 0 00010 F0C09140 05734 602563630101 BCI 1, ETT11 -0760 00 0 00011 (704) F0C09150 05735 605163630102 BCI 1, RTT12 -0760 00 0 00012 (704) F0C09160 05736 ETMSE SYN * F0C09170 05736 603063510000 TBLP0 BCI 1, HTR00 +0000 F0C09180 05737 606351210200 BCI 1, TRA20 +0020 F0C09190 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 2/07/05 PAGE 5 DUMP TABLES FOR MNEMONICS $ 05740 606363510201 BCI 1, TTR21 +0021 F0C09200 05741 635123210202 BCI 1,TRCA22 +0022 F0C09210 05742 635123230204 BCI 1,TRCC24 +0024 F0C09220 05743 635123250206 BCI 1,TRCE26 +0026 F0C09230 05744 635123270207 BCI 1,TRCG27 +0027 F0C09240 05745 632526210300 BCI 1,TEFA30 +0030 F0C09250 BINARY CARD NO. 9F030049 05746 632526230301 BCI 1,TEFC31 +0031 F0C09260 05747 632526250302 BCI 1,TEFE32 +0032 F0C09270 05750 632526270303 BCI 1,TEFG33 +0033 F0C09280 05751 606343500400 BCI 1, TLQ40 +0040 F0C09290 05752 603131210401 BCI 1, IIA41 +0041 F0C09300 05753 606331460402 BCI 1, TIO42 +0042 F0C09310 05754 604621310403 BCI 1, OAI43 +0043 F0C09320 05755 604721310404 BCI 1, PAI44 +0044 F0C09330 05756 606331260406 BCI 1, TIF46 +0046 F0C09340 05757 603131510501 BCI 1, IIR51 +0051 F0C09350 05760 605126630504 BCI 1, RFT54 +0054 F0C09360 05761 606231510505 BCI 1, SIR55 +0055 F0C09370 05762 605145630506 BCI 1, RNT56 +0056 F0C09380 05763 605131510507 BCI 1, RIR57 +0057 F0C09390 05764 632346210600 BCI 1,TCOA60 +0060 F0C09400 05765 632346220601 BCI 1,TCOB61 +0061 F0C09410 05766 632346230602 BCI 1,TCOC62 +0062 F0C09420 05767 632346240603 BCI 1,TCOD63 +0063 F0C09430 05770 632346250604 BCI 1,TCOE64 +0064 F0C09440 05771 632346260605 BCI 1,TCOF65 +0065 F0C09450 05772 632346270606 BCI 1,TCOG66 +0066 F0C09460 05773 632346300607 BCI 1,TCOH67 +0067 F0C09470 BINARY CARD NO. 9F030050 05774 606362670704 BCI 1, TSX74 +0074 F0C09480 05775 606371250000 TBLP1 BCI 1, TZE00 +0100 F0C09490 05776 602365510104 BCI 1, CVR14 +0114 F0C09500 05777 606347430200 BCI 1, TPL20 +0120 F0C09510 06000 606723210301 BCI 1, XCA31 +0131 F0C09520 06001 606346650400 BCI 1, TOV40 +0140 F0C09530 06002 606350460601 BCI 1, TQO61 +0161 F0C09540 06003 606350470602 BCI 1, TQP62 +0162 F0C09550 06004 604447700000 TBLP2 BCI 1, MPY00 +0200 F0C09560 06005 606543440004 BCI 1, VLM04 +0204 F0C09570 06006 602465300200 BCI 1, DVH20 +0220 F0C09580 06007 602465470201 BCI 1, DVP21 +0221 F0C09590 06010 606524300204 BCI 1, VDH24 +0224 F0C09600 06011 606524470205 BCI 1, VDP25 +0225 F0C09610 06012 602624300400 BCI 1, FDH40 +0240 F0C09620 06013 602624470401 BCI 1, FDP41 +0241 F0C09630 06014 602644470600 BCI 1, FMP60 +0260 F0C09640 06015 602621240000 TBLP3 BCI 1, FAD00 +0300 F0C09650 06016 602662220002 BCI 1, FSB02 +0302 F0C09660 06017 602621440004 BCI 1, FAM04 +0304 F0C09670 06020 602662440006 BCI 1, FSM06 +0306 F0C09680 06021 602145620200 BCI 1, ANS20 +0320 F0C09690 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 2/07/05 PAGE 6 DUMP TABLES FOR MNEMONICS $ BINARY CARD NO. 9F030051 06022 602551210202 BCI 1, ERA22 +0322 F0C09700 06023 602321620400 BCI 1, CAS40 +0340 F0C09710 06024 602123430601 BCI 1, ACL61 +0361 F0C09720 06025 602124240000 TBLP4 BCI 1, ADD00 +0400 F0C09730 06026 602124440001 BCI 1, ADM01 +0401 F0C09740 06027 606264220002 BCI 1, SUB02 +0402 F0C09750 06030 603047510200 BCI 1, HPR20 +0420 F0C09760 06031 603131620400 BCI 1, IIS40 +0440 F0C09770 06032 604324310401 BCI 1, LDI41 +0441 F0C09780 06033 604662310402 BCI 1, OSI42 +0442 F0C09790 06034 604626630404 BCI 1, OFT44 +0444 F0C09800 06035 605131620405 BCI 1, RIS45 +0445 F0C09810 06036 604645630406 BCI 1, ONT46 +0446 F0C09820 06037 604324210600 BCI 1, LDA60 +0460 F0C09830 06040 602343210000 TBLP5 BCI 1, CLA00 +0500 F0C09840 06041 602343620002 BCI 1, CLS02 +0502 F0C09850 06042 607125630200 BCI 1, ZET20 +0520 F0C09860 06043 606725230202 BCI 1, XEC22 +0522 F0C09870 06044 604367210304 BCI 1, LXA34 +0534 F0C09880 06045 604321230305 BCI 1, LAC35 +0535 F0C09890 06046 512330210400 BCI 1,RCHA40 +0540 F0C09900 06047 512330230401 BCI 1,RCHC41 +0541 F0C09910 BINARY CARD NO. 9F030052 06050 512330250402 BCI 1,RCHE42 +0542 F0C09920 06051 512330270403 BCI 1,RCHG43 +0543 F0C09930 06052 432330210404 BCI 1,LCHA44 +0544 F0C09940 06053 432330230405 BCI 1,LCHC45 +0545 F0C09950 06054 432330250406 BCI 1,LCHE46 +0546 F0C09960 06055 432330270407 BCI 1,LCHG47 +0547 F0C09970 06056 604324500600 BCI 1, LDQ60 +0560 F0C09980 06057 602523210601 BCI 1, ECA61 +0561 F0C09990 06060 602545220604 BCI 1, ENB64 +0564 F0C10000 06061 606263710000 TBLP6 BCI 1, STZ00 +0600 F0C10010 06062 606263460001 BCI 1, STO01 +0601 F0C10020 06063 606243660002 BCI 1, SLW02 +0602 F0C10030 06064 606263310004 BCI 1, STI04 +0604 F0C10040 06065 606263210201 BCI 1, STA21 +0621 F0C10050 06066 606263240202 BCI 1, STD22 +0622 F0C10060 06067 606263630205 BCI 1, STT25 +0625 F0C10070 06070 606263470300 BCI 1, STP30 +0630 F0C10080 06071 606267210304 BCI 1, SXA34 +0634 F0C10090 06072 622330210400 BCI 1,SCHA40 +0640 F0C10100 06073 622330230401 BCI 1,SCHC41 +0641 F0C10110 06074 622330250402 BCI 1,SCHE42 +0642 F0C10120 06075 622330270403 BCI 1,SCHG43 +0643 F0C10130 BINARY CARD NO. 9F030053 06076 476243210604 BCI 1,PSLA64 +0664 F0C10140 06077 476243230605 BCI 1,PSLC65 +0665 F0C10150 06100 476243250606 BCI 1,PSLE66 +0666 F0C10160 06101 476243270607 BCI 1,PSLG67 +0667 F0C10170 06102 602543240700 BCI 1, ELD70 +0670 F0C10180 06103 602521240701 BCI 1, EAD71 +0671 F0C10190 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 2/07/05 PAGE 7 DUMP TABLES FOR MNEMONICS $ 06104 602524470702 BCI 1, EDP72 +0672 F0C10200 06105 602544470703 BCI 1, EMP73 +0673 F0C10210 06106 602347700000 TBLP7 BCI 1, CPY00 +0700 F0C10220 06107 604721670304 BCI 1, PAX34 +0734 F0C10230 06110 604721230307 BCI 1, PAC37 +0737 F0C10240 06111 604767210504 BCI 1, PXA54 +0754 F0C10250 06112 604762250600 PSEOP BCI 1, PSE60 +0760 F0C10260 06113 604546470601 BCI 1, NOP61 +0761 F0C10270 06114 605124620602 BCI 1, RDS62 +0762 F0C10280 06115 604343620603 BCI 1, LLS63 +0763 F0C10290 06116 602262510604 BCI 1, BSR64 +0764 F0C10300 06117 604351620605 BCI 1, LRS65 +0765 F0C10310 06120 606651620606 BCI 1, WRS66 +0766 F0C10320 06121 602143620607 BCI 1, ALS67 +0767 F0C10330 06122 606625260700 BCI 1, WEF70 +0770 F0C10340 06123 602151620701 BCI 1, ARS71 +0771 F0C10350 BINARY CARD NO. 9F030054 06124 605125660702 BCI 1, REW72 +0772 F0C10360 06125 602167630704 BCI 1, AXT74 +0774 F0C10370 06126 602451620705 BCI 1, DRS75 +0775 F0C10380 06127 606224450706 BCI 1, SDN76 +0776 F0C10390 06130 TBLP8 SYN * F0C10400 06130 256245630201 TBLM0 BCI 1,ESNT21 -0021 F0C10410 06131 635123220202 BCI 1,TRCB22 -0022 F0C10420 06132 635123240204 BCI 1,TRCD24 -0024 F0C10430 06133 635123260206 BCI 1,TRCF26 -0026 F0C10440 06134 635123300207 BCI 1,TRCH27 -0027 F0C10450 06135 632526220300 BCI 1,TEFB30 -0030 F0C10460 06136 632526240301 BCI 1,TEFD31 -0031 F0C10470 06137 632526260302 BCI 1,TEFF32 -0032 F0C10480 06140 632526300303 BCI 1,TEFH33 -0033 F0C10490 06141 605131210402 BCI 1, RIA42 -0042 F0C10500 06142 604731210406 BCI 1, PIA46 -0046 F0C10510 06143 603131430501 BCI 1, IIL51 -0051 F0C10520 06144 604326630504 BCI 1, LFT54 -0054 F0C10530 06145 606231430505 BCI 1, SIL55 -0055 F0C10540 06146 604345630506 BCI 1, LNT56 -0056 F0C10550 06147 605131430507 BCI 1, RIL57 -0057 F0C10560 06150 632345210600 BCI 1,TCNA60 -0060 F0C10570 06151 632345220601 BCI 1,TCNB61 -0061 F0C10580 BINARY CARD NO. 9F030055 06152 632345230602 BCI 1,TCNC62 -0062 F0C10590 06153 632345240603 BCI 1,TCND63 -0063 F0C10600 06154 632345250604 BCI 1,TCNE64 -0064 F0C10610 06155 632345260605 BCI 1,TCNF65 -0065 F0C10620 06156 632345270606 BCI 1,TCNG66 -0066 F0C10630 06157 632345300607 BCI 1,TCNH67 -0067 F0C10640 06160 606345710000 TBLM1 BCI 1, TNZ00 -0100 F0C10650 06161 602321500104 BCI 1, CAQ14 -0114 F0C10660 06162 606344310200 BCI 1, TMI20 -0120 F0C10670 06163 606723430300 BCI 1, XCL30 -0130 F0C10680 06164 606345460400 BCI 1, TNO40 -0140 F0C10690 06165 602351500504 BCI 1, CRQ54 -0154 F0C10700 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 2/07/05 PAGE 8 DUMP TABLES FOR MNEMONICS $ 06166 604447510000 TBLM2 BCI 1, MPR00 -0200 F0C10710 06167 606426440600 BCI 1, UFM60 -0260 F0C10720 06170 606426210000 TBLM3 BCI 1, UFA00 -0300 F0C10730 06171 606426620002 BCI 1, UFS02 -0302 F0C10740 06172 606421440004 BCI 1, UAM04 -0304 F0C10750 06173 606462440006 BCI 1, USM06 -0306 F0C10760 06174 602145210200 BCI 1, ANA20 -0320 F0C10770 06175 604321620400 BCI 1, LAS40 -0340 F0C10780 06176 606222440000 TBLM4 BCI 1, SBM00 -0400 F0C10790 06177 602321430000 TBLM5 BCI 1, CAL00 -0500 F0C10800 BINARY CARD NO. 9F030056 06200 604651210001 BCI 1, ORA01 -0501 F0C10810 06201 604571630200 BCI 1, NZT20 -0520 F0C10820 06202 604367240304 BCI 1, LXD34 -0534 F0C10830 06203 604324230305 BCI 1, LDC35 -0535 F0C10840 06204 512330220400 BCI 1,RCHB40 -0540 F0C10850 06205 512330240401 BCI 1,RCHD41 -0541 F0C10860 06206 512330260402 BCI 1,RCHF42 -0542 F0C10870 06207 512330300403 BCI 1,RCHH43 -0543 F0C10880 06210 432330220404 BCI 1,LCHB44 -0544 F0C10890 06211 432330240405 BCI 1,LCHD45 -0545 F0C10900 06212 432330260406 BCI 1,LCHF46 -0546 F0C10910 06213 432330300407 BCI 1,LCHH47 -0547 F0C10920 06214 602523500601 BCI 1, ECQ61 -0561 F0C10930 06215 606263500000 TBLM6 BCI 1, STQ00 -0600 F0C10940 06216 604651620002 BCI 1, ORS02 -0602 F0C10950 06217 606243500200 BCI 1, SLQ20 -0620 F0C10960 06220 606263430205 BCI 1, STL25 -0625 F0C10970 06221 606267240304 BCI 1, SXD34 -0634 F0C10980 06222 622330220400 BCI 1,SCHB40 -0640 F0C10990 06223 622330240401 BCI 1,SCHD41 -0641 F0C11000 06224 622330260402 BCI 1,SCHF42 -0642 F0C11010 06225 622330300403 BCI 1,SCHH43 -0643 F0C11020 BINARY CARD NO. 9F030057 06226 476243220604 BCI 1,PSLB64 -0664 F0C11030 06227 476243240605 BCI 1,PSLD65 -0665 F0C11040 06230 476243260606 BCI 1,PSLF66 -0666 F0C11050 06231 476243300607 BCI 1,PSLH67 -0667 F0C11060 06232 602562220701 BCI 1, ESB71 -0671 F0C11070 06233 602564210702 BCI 1, EUA72 -0672 F0C11080 06234 602562630703 BCI 1, EST73 -0673 F0C11090 06235 602321240000 TBLM7 BCI 1, CAD00 -0700 F0C11100 06236 604724670304 BCI 1, PDX34 -0734 F0C11110 06237 604724230307 BCI 1, PDC37 -0737 F0C11120 06240 604767240504 BCI 1, PXD54 -0754 F0C11130 06241 604462250600 MSEOP BCI 1, MSE60 -0760 F0C11140 06242 604327430603 BCI 1, LGL63 -0763 F0C11150 06243 602262260604 BCI 1, BSF64 -0764 F0C11160 06244 604327510605 BCI 1, LGR65 -0765 F0C11170 06245 605164450702 BCI 1, RUN72 -0772 F0C11180 06246 605150430703 BCI 1, RQL73 -0773 F0C11190 06247 602167230704 BCI 1, AXC74 -0774 F0C11200 06250 606351620705 BCI 1, TRS75 -0775 F0C11210 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 2/07/05 PAGE 9 DUMP TABLES FOR MNEMONICS $ 06251 TBLM8 SYN * F0C11220 F0C11230 OUTPUT BUFFER SWITCH TABLE F0C11240 06251 0 00000 4 06752 OUTBF PZE BUFF2+1,4 F0C11250 06252 0 00000 4 06753 PZE BUFF2+2,4 +1 F0C11260 06253 0 00000 4 06726 PZE BUFF1+1,4 +2 F0C11270 BINARY CARD NO. 9F030058 06254 0 00000 4 06727 PZE BUFF1+2,4 +3 F0C11280 06255 0 00000 4 06754 PZE BUFF2+3,4 +4 F0C11290 06256 0 00000 4 06755 PZE BUFF2+4,4 +5 F0C11300 06257 0 00000 4 06730 PZE BUFF1+3,4 +6 F0C11310 06260 0 00000 4 06731 PZE BUFF1+4,4 +7 F0C11320 06261 0 00000 4 06756 PZE BUFF2+5,4 +8 F0C11330 06262 0 00000 4 06757 PZE BUFF2+6,4 +9 F0C11340 06263 0 00000 4 06732 PZE BUFF1+5,4 +10 F0C11350 06264 0 00000 4 06733 PZE BUFF1+6,4 +11 F0C11360 06265 0 00000 4 06760 PZE BUFF2+7,4 +12 F0C11370 06266 0 00000 0 06751 PZE BUFF2 +13 F0C11380 06267 0 00000 4 06734 PZE BUFF1+7,4 +14 F0C11390 06270 0 00000 0 06725 PZE BUFF1 F0C11400 F0C11410 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 2/07/05 PAGE 1 OTHER = E. G. ' CONSTANTS AND MESSAGES ERASABLE F0C11610 06271 0 00000 0 00000 TMPR PZE USED FOR TEMPORARY STORAGE BY STAT ROUTINE.F0C11620 06272 0 00000 1 00000 CORES PZE **,1,** ORIGIN AT END OF DUMP,,LENGTH OF DUMP F0C11630 06273 0 00000 1 00000 PZE **,1 F0C11640 06274 0 00000 0 00000 LCORS PZE ** CORE LOCATION AT END OF DUMP F0C11650 06275 0 00000 0 00000 FWORD PZE ** CORE LOCATION OF FIRST WORD IN LINE F0C11660 06276 0 00000 0 00000 LWORD PZE ** CORE LOCATION OF LAST IDENTICAL WORD F0C11670 06277 0 00000 0 00000 ERASE PZE GENERAL ERASABLE F0C11680 06300 0 00000 0 00000 DPLCT PZE ** NUMBER OF LINES OUTPUT IN DUMP F0C11690 06301 +000000000000 MONTH OCT 0,0 STORAGE USED FOR BUILDING UP DATE. F0C11700 BINARY CARD NO. 9F030059 06303 0 00000 0 00000 TOTWT PZE INTERMEDIATE STORAGE-TOTAL WRITING ATTEMPTSF0C11710 06304 0 00000 0 00000 TOTRD PZE INTERMEDIATE STORAGE-TOTAL READING ATTEMPTSF0C11720 06305 0 00000 0 00000 NOISW PZE INTERMEDIATE STORAGE-NOISE RECORDS WRITTEN F0C11730 06306 0 00000 0 00000 NOISR PZE INTERMEDIATE STORAGE-NOISE RECORDS READ F0C11740 06307 0 00000 0 00000 TOTRW PZE INTERMEDIATE STORAGE-TOTAL RECORDS WRITTEN F0C11750 06310 0 00000 0 00000 TOTRR PZE INTERMEDIATE STORAGE-TOTAL RECORDS READ F0C11760 06311 0 00000 0 00000 POSER PZE INTERMEDIATE STORAGE-POSITIONING ERRORS F0C11770 06312 0 00000 0 00000 MCHTP PZE INTERMEDIATE STORAGE-CORRESPONDING TAPE. F0C11780 06313 0 00000 0 00000 TMPR1 PZE TEMPORARY STORAGE FOR CONVERT ROUTINE. F0C11790 F0C11800 CONSTANTS F0C11810 06314 512521242551 BCI 1,READER F0C11820 06315 604764452330 BCI 1, PUNCH F0C11830 06316 475145632551 PER BCI 1,PRNTER F0C11840 06317 212223242526 LTTRS BCI 2,ABCDEFGH F0C11850 06321 -1 00004 0 06516 EOSMS IOCT ENDMS,,4 COMMAND PUTS OUT CLOSING MESSAGE $F0C11860 06322 -1 00007 0 06522 IOCOM IOCT COM1,,7 WRITES OUT LINE COUNT. $F0C11870 06323 3 00003 0 07044 SKPCM IORT EJECT,,3 USED TO EJECT PAGE OFF-LINE $F0C11880 06324 -1 00017 0 07025 CDMGE IOCT PBUFF,,15 COMMAND TO WRITE OUT CARD IMAGES. $F0C11890 06325 -1 00023 0 06675 COMST2 IOCT STBUF-1,,19 COMMAND PUTS OUT LINE OF TAPE STATISTICS. $F0C11900 06326 -1 00012 0 06412 ERMS IOCT ERSNP,,10 WRITE OUT ERROR IN SNAPPING MESSAGE. $F0C11910 06327 0 00001 0 00000 SKP1FL PZE 0,,1 COMMAND TO SKIP ONE FILE. F0C11920 06327 JOBBIT EQU SKP1FL JOB FAILED BITS $F0C11925 BINARY CARD NO. 9F030060 06330 3 00016 0 07026 RCDA2 IORT BUFF,,14 READS ONE RECORD INTO BUFF -BUFF+13 F0C11930 06331 3 00033 0 07051 W1REC IORT CDIM-25,,27 PUTS ONE BINARY CARD ON TAPE. F0C11940 06332 000000000054 ASTK BCI 1,00000* TESTS FOR FORTRAN JOB. F0C11950 06333 000000000053 DOLSN BCI 1,00000$ TESTS COL 1 DOLLAR SIGNS $F0C11955 06334 000000000061 SLASH BCI 1,00000/ USED IN DATE TESTING. F0C11960 06335 +000000000012 TEN DEC 10 USED FOR CONVERTING BINARY TO HOLLERITH F0C11970 06336 +000000000060 BLNK OCT 60 USED TO TEST IF BLANK CHARACTER ON CARD F0C11980 06337 0 00000 0 00000 JECT PZE ** STORAGE FOR LINES USED ON A PAGE. F0C11990 06340 -000100000014 FGMSK OCT 400100000014 USED TO RESET FLAGBOX FOR NEW JOB $F0C12000 06341 0020 00 0 04465 TRA TRA FRT+3 TO REINITIALIZE SNAP ROUTINE $F0C12003 06342 0761 00 0 00000 NOP1 NOP READING DUMP RECORDS FOR SECOND TIME $F0C12007 06343 0 00000 0 05557 FC7BAK PZE NIBSYS TO TREAT *END TAPE AS $IBSYS $F0C12010 06344 0 04135 0 04146 SWST61 PZE FCSIX,,FCSVN REGULATE TEST FOR DATE OR ENDTAPE CARD. F0C12020 06345 0 00000 0 06775 L(BF3 PZE BUFF3 CONSTANT CONTAINING LOCATION OF BUFFER THREF0C12030 06346 0 00000 0 00002 SKP2 PZE 2 SKIP COMMAND USED IN EXIT TO SCAN. F0C12050 06347 000000606060 3ZROS BCI 1,000 F0C12060 06350 +000060606060 FRBNKS OCT 000060606060 F0C12070 06351 +007777777777 BKOFC OCT 007777777777 F0C12080 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 2/07/05 PAGE 2 OTHER = E. G. ' CONSTANTS AND MESSAGES 06352 -377700000000 FRSVNS OCT 777700000000 F0C12090 06353 -377777000000 6SVNS OCT 777777000000 $F0C12095 06354 +000000000007 SVN DEC 7 F0C12100 06355 +000000000004 FAPBT OCT 4 IBSFAP BIT $F0C12102 BINARY CARD NO. 9F030061 06356 +000000000200 BOF OCT 200 BEGIN. OF FILE BIT $F0C12104 06357 0 00000 0 00000 IDOK PZE 0 ID SWITCH $F0C12106 06360 0 00000 0 00000 JOBOK PZE 0 JOB SWITCH $F0C12108 06361 -0 00000 0 77777 ADMSK MZE -1 $F0C12110 06362 0 00000 0 00001 L(1) PZE 1 F0C12120 06363 0 00000 0 00010 L(8) PZE 8 F0C12130 06364 0 00000 0 00777 3SVNS PZE 511 F0C12140 06365 0 00000 0 77770 DELLD PZE -8 F0C12150 06366 0 77777 0 00000 REWND PZE ,,-1 F0C12160 06367 -0 00000 0 00001 BKSPC MZE 1,,0 F0C12170 06370 -0 00001 0 00000 BK1FL MZE ,,1 $F0C12175 06371 -0 00000 0 00000 BKSOR MZE 0,,0 SKIP 0 FILES + 0 RECORDS FOR CHECK $F0C12177 06372 546060606060 ASTRK BCI 1,* F0C12180 06373 600000000000 LDGBK BCI 1, 00000 F0C12190 06374 606000000000 2BLNK BCI 1, 0000 F0C12200 06375 606060602000 PLUSZ BCI 1, +0 F0C12210 06376 606060604060 MNUSB BCI 1, - F0C12220 06377 606060604001 MNUSP BCI 1, -1 F0C12230 06400 606060606040 MINUS BCI 1, - F0C12240 06401 606060604645 L(ON) BCI 1, ON F0C12250 06402 606060462626 L(OF) BCI 1, OFF F0C12260 06403 606060624521 CONSNA BCI 2, SNAPSHOT F0C12270 BINARY CARD NO. 9F030062 06405 606060606447 L(UP) BCI 1, UP F0C12280 06406 606024466645 L(DN) BCI 1, DOWN F0C12290 F0C12300 OUTPUT DATA F0C12310 06407 -1 00024 0 06626 IOCT COMST,,20 THREE SUCCESSIVE COMMANDS TO $F0C12320 06410 -1 00023 0 06652 IOCT COMST1,,19 WRITE OUT THE HEADING FOR TAPE STATISTICS,$F0C12330 06411 COMTS BSS 0 FOLLOWED BY A SKIPPED LINE. F0C12340 06411 -1 00003 0 07045 BLKLN IOCT BLNKS-1,,3 $F0C12350 06412 606060606060 ERSNP BCI 1, F0C12360 06413 606245214760 BCI 9, SNAP TAPE IS INCORRECT. MAYBE USED IN ERROR. NO SNAPS.F0C12370 06424 006060606060 PHDG1 BCI 9,0 ACCUMULATOR ENTRY KEYS SENSE INDICATO F0C12380 BINARY CARD NO. 9F030063 06435 516260606060 BCI 9,RS MQ XR1 XR2 XR4 F0C12390 06446 006060606060 PHDG2 BCI 9,0 SS1 SS2 SS3 SS4 SS5 SS6 F0C12400 06457 606060602123 BCI 7, AC MQ DC SL4 SL3 SL2 SL1 F0C12410 BINARY CARD NO. 9F030064 06466 006060606060 IDWBF BCI 6,0 F0C12420 06474 232543436260 BCI 9,CELLS TO ALL CONTAIN F0C12430 06505 006063303162 RDERM BCI 9,0 THIS PORTION OF SNAPSHOT ABANDONED DUE TO TAPE ERROR F0C12440 BINARY CARD NO. 9F030065 06516 006060606060 ENDMS BCI 4,0 SNAPSHOTS COMPLETE F0C12450 06522 606060606060 COM1 BCI 7, LINES OUTPUT THIS JOB. F0C12460 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 2/07/05 PAGE 3 OTHER = E. G. ' CONSTANTS AND MESSAGES 06531 006060606060 BCI 1,0 $F0C12470 06532 546045466031 COM3 BCI ,* NO I.D. CARD FOR THIS FORTRAN JOB F0C12480 BINARY CARD NO. 9F030066 06544 606060606060 BCI 4, $F0C12485 06550 006060606060 COM4 BCI 8,0 TO CONTINUE WITH ABOVE LINE AS ID CARD DEP $F0C12490 06560 512562626062 BCI 5,RESS SIGN KEY AND PUSH START $F0C12492 BINARY CARD NO. 9F030067 06565 606060606060 COM5 BCI 1, $F0C12494 06566 634660624231 BCI 9,TO SKIP TO NEXT JOB PUSH SIGN KEY UP AND PUSH START $F0C12496 06577 DUP 1,16 PATCH SPACE (26)F0C12498 06577 0 00000 0 00000 PZE (26)F0C12500 BINARY CARD NO. 9F030068 06617 006060606060 COM8 BCI 7,0 INPUT TAPE ERROR RECORD IGNORED $F0C12504 06626 606060606060 COMST BCI 1, F0C12510 06627 604346273123 BCI 9, LOGICAL MACHINE TOTAL TOTAL NOI F0C12520 BINARY CARD NO. 9F030069 06640 622560512523 BCI 9,SE RECORDS TOTAL REDUNDANCIES POSITION F0C12530 06651 314527606060 BCI 1,ING F0C12540 06652 606060606060 COMST1 BCI 1, F0C12550 06653 606063214725 BCI 9, TAPE TAPE WRITES READS WRITIN F0C12560 BINARY CARD NO. 9F030070 06664 276060606060 BCI 9,G READING WRITING READING ERRORS F0C12570 F0C12580 GENERAL BUFFER SPACE F0C12590 06675 606060606060 BCI 1, F0C12600 06676 606060606060 STBUF BCI , F0C12610 06710 606060606060 BCI 8, F0C12620 BINARY CARD NO. 9F030071 06720 TITBF BSS 5 F0C12630 06725 BUFF1 BSS 20 F0C12640 06751 BUFF2 BSS 20 F0C12650 06775 BUFF3 BSS 24 F0C12660 BINARY CARD NO. 9F030072 07025 606060606060 PBUFF BCI 1, F0C12670 07026 BUFF BSS 12 BEING WORKED WITH AS HOLLERITH F0C12680 BINARY CARD NO. 9F030073 07042 606060606060 BCI 2, OR READ IN OR OUT AS HOLLERITH. F0C12690 07044 BUFFZ BSS 0 END OF CARD BUFFER. F0C12700 07044 016060606060 EJECT BCI 1,1 USED TO PRINT MESSAGES ON TOP OF PAGE. F0C12710 07045 606060606060 BCI 1, F0C12720 07046 606060606060 BLNKS BCI 3, MASK TO FILL IN AND TEST. F0C12730 07102 CDIM BES 25 USED TO STORE BINARY CARDS F0C12740 07102 BSS 2 USED FOR ID FOR COLUMN BINARY CARDS. F0C12750 BINARY CARD NO. 9F030074 07104 0 00000 0 00000 PZE LEFT BLANK TO AVOID CONFLICT WITH ID CARDBFF0C12752 IBSYS CONTROL CARDS RECOGNIZED $F0C12770 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 2/07/05 PAGE 4 OTHER = E. G. ' CONSTANTS AND MESSAGES 07105 534146226060 BCI 1,$JOB $F0C12771 07106 533124606060 BCI 1,$ID $F0C12772 07107 536263464760 BCI 1,$STOP $F0C12773 07110 533122627062 BCI 1,$IBSYS $F0C12774 07111 532567252364 BCI 1,$EXECUTE $F0C12775 07112 -137777777777 OCT 537777777777 SPACE FOR ONE MORE $F0C12776 07113 IBNAM EQU * $F0C12777 AND LOCATIONS THAT PROCESS THEM $F0C12778 07113 0 00000 0 05605 NIBJOB CALL SYSRPT $F0C12779 07114 0 00000 0 05573 NIBID CALL SYSIDR $F0C12780 07115 0 00000 0 05571 NSTOP LET IBSYS STOP $F0C12781 07116 0 00000 0 05557 NIBSYS RETURN TO IBSYS $F0C12782 07117 0 00000 0 05633 NEXECU CHECK SYSNAM $F0C12783 07120 0 00000 0 05555 IBOTHR NOT RECOGNIZED $F0C12784 07121 IBPLAC EQU * $F0C12785 00006 IBCDS EQU IBPLAC-IBNAM NUMBER OF DIFFERENT CARDS $F0C12786 07121 0021 00 0 00115 TTRDMP TTR SYSDMP TO REINITIALIZE CELL 2 $F0C12787 07122 -377777777773 NFAPBT OCT 777777777773 TO TURN OFF FAP BIT $F0C12788 07123 312262672523 IBSXEC BCI 1,IBSXEC STORED IN SYSGET ON $F0C12789 07124 312262226251 IBSBSR BCI 1,IBSBSR FAILURE AND BEFORE AND $F0C12790 07125 312262706263 IBSYST BCI 1,IBSYST AFTER CALL SYSRPT $F0C12791 07126 006060606060 IBRMS BCI 7,0 FORTRAN MONITOR RETURNING TO IBSYS $F0C12792 BINARY CARD NO. 9F030075 07135 312262262147 IBSFAP BCI 1,IBSFAP $F0C12793 07136 264651635121 FORTRA BCI 1,FORTRA $F0C12794 07137 662551253145 WEREIN BCI 1,WEREIN $F0C12795 07140 +176433457066 FOMIB OCT 176433457066 EXCL OR OF IBSFAP AND FORTRA $F0C12796 07141 -1 00007 0 07126 RETNG IOCT IBRMS,,7 COMMENT RETURNING TO IBSYS $F0C12797 07142 0441 60 0 73660 EOFLT LDI* (FGBX) $F0C12798 07143 0056 00 000004 RNT 4 IS THIS IBSFAP $F0C12799 07144 -0520 00 0 06357 NZT IDOK NO,IS I.D. STILL NEEDED $F0C12800 07145 0020 00 0 04034 TRA RDCD+1 YES,EOF O.K. $F0C12801 07146 -0625 00 0 06360 STL JOBOK I.D. HAS OCCURRED, SO EOF $F0C12802 07147 0020 00 0 04035 TRA FCNINE IS OUT OF PLACE $F0C12803 07150 0500 00 0 06324 PJOB CLA CDMGE $F0C12900 07151 0074 00 4 05167 TSX COMNT,4 (24)F0C12901 07152 0020 00 0 04035 TRA FCNINE $F0C12902 07153 PATS BSS 29 $F0C12903 07210 CORBF BSS TOPTAB-* DUMP BUFFERS $F0C12910 77777 END -1 $F0C12920 BINARY CARD NO. TRA77777 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 2/07/05 PAGE 1 POST PROCESSOR ASSEMBLY DATA 73667 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM REFERENCES TO DEFINED SYMBOLS 5220 AX1 5170 5221 AX4 5167 6356 BOF 4001, 4010, 4015 4154 CD3 4164, 4165 4165 CD4 4160 4166 CD5 4174 4175 CD6 4171 4311 CLA 4314 4462 FRT 4430, 4467, 6341 4123 NOP 5004 4407 OUT 4404 6316 PER 5136 6354 SVN 5111 4423 SXH 4421, 4444, 4460, 4604 6335 TEN 5154 4613 TLD 4501, 4603, 4606, 4612 6341 TRA 4427 6332 ASTK 6336 BLNK 5253, 5262 5224 BOTP 3776, 4003, 4124, 4126 7026 BUFF 4023, 4043, 4046, 4047, 4243, 5550, 5574, 5627, 5633, 5634, 6330 7102 CDIM 4101, 6331 5145 CNVT 3763, 5062, 5070, 5105, 5123 6522 COM1 3764, 6322 6532 COM3 4231, 4242 6550 COM4 4233 6565 COM5 4235 6617 COM8 4257 4755 DONE 4307 6326 ERMS 4753 5232 FITP 4005, 4012, 4213, 4250, 4260, 5555 4102 HBC1 4122 5434 HBC2 4104, 4106, 4110, 4113, 4115, 4117 6357 IDOK 3771, 4054, 4133, 5575, 7144 5203 IOCL 5176 6337 JECT 3735, 5174, 5217 6362 L(1) 4056, 4076, 4251, 4261, 4530, 4543, 5141, 5157, 5212, 5407, 5411, 5424 6363 L(8) 4623 3747 MVDT 5241 NNBL 4070, 4154, 4166 4230 NOID 4057 6342 NOP1 4466 7153 PATS 7150 PJOB 5632 4033 RDCD 4011, 4016, 7145 5372 RIR4 5362 4213 SCAN 4055 5217 SJCT 5215 4250 SKIP 4022 6346 SKP2 4224 4445 SVTW 4440 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 2/07/05 PAGE 2 POST PROCESSOR ASSEMBLY DATA 5546 TBLS 4072 4373 TEST 4402, 4406 6271 TMPR 4267, 4766, 5074, 5110, 5113 3766 TONP 5005 4473 W2BS 4463, 4464, 4470 5223 WCOM 5173, 5210 6374 2BLNK 4654, 4723 6364 3SVNS 4676 6347 3ZROS 5017 6353 6SVNS 6361 ADMSK 5047, 5145 6372 ASTRK 4732 3734 BEGSO 73666 6370 BK1FL 6351 BKOFC 4351 6371 BKSOR 3777, 4006, 5624 6367 BKSPC 4013, 4214, 4265, 4476, 5556 6411 BLKLN 4775 7046 BLNKS 4201, 4341, 4352, 4407, 4514, 4555, 4577, 4607, 4643, 4657, 4725, 4734, 4737, 4744, 5162, 6411 5724 BTMSE 5670 5711 BTPSE 5667 6725 BUFF1 4330, 4333, 4334, 4342, 4343, 4344, 4353, 4355, 4361, 4400, 4410, 4411, 4413, 6253, 6254, 6257, 6260 6263, 6264, 6267, 6270 6751 BUFF2 4316, 4321, 4331, 4337, 4347, 4367, 6251, 6252, 6255, 6256, 6261, 6262, 6265, 6266 6775 BUFF3 4574, 4600, 4602, 4610, 4627, 4630, 4640, 4642, 4655, 4656, 4660, 4661, 4724, 4733, 4740, 4741, 4742 5317, 5320, 5323, 5324, 5327, 5330, 5332, 5335, 5336, 5341, 5342, 5347, 5351, 6345 7044 BUFFZ 4102, 5250 6324 CDMGE 4131, 4207, 5651, 7150 5152 CNVT1 5161 5162 CNVT2 5160 5165 CNVT3 5147 5206 COMCW 5171, 5172 5167 COMNT 3770, 4132, 4211, 4762, 5002, 5127, 5561, 5652, 7151 6626 COMST 6407 6411 COMTS 5000 7210 CORBF 4432, 4433, 4443, 4451, 4500, 4504, 4517 6272 CORES 4446, 4450, 4452, 4521, 4522, 4550, 4572 6365 DELLD 4502, 4532 6333 DOLSN 4026, 4052 6300 DPLCT 4755, 5406, 5412, 5425 7044 EJECT 6323 6516 ENDMS 6321 7142 EOFLT 4042 6321 EOSMS 4760 6277 ERASE 4505, 4507 4253 ERROR 4040 6412 ERSNP 6326 5736 ETMSE 5670, 5736 5724 ETPSE 5667, 5724 6355 FAPBT 4100 FCATE 4071, 4074, 4145, 4155, 4167, 4206, 4247, 5576 4130 FCFIV 3775, 4754, 5577, 5657 3751 FCONE 4146 FCSIX 4073, 6344 4135 FCSVN 4077, 6344 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 2/07/05 PAGE 3 POST PROCESSOR ASSEMBLY DATA 3757 FCTEN 4767 3761 FCTWO 5132 6340 FGMSK 3752 7140 FOMIB 5640 3771 FRTRA 4771, 5653 6275 FWORD 4417, 4503, 4534, 4536, 4564, 4565, 4614, 4622, 4624 4070 GTCHR 4142, 4151 5000 GTCOM 5003 6 IBCDS 5547, 7121 7113 IBNAM 5551, 7113, 7121 7126 IBRMS 7141 4054 IDTES 4245, 4263 6466 IDWBF 4541, 4547, 4552, 4556, 4560, 4562 6322 IOCOM 3767 5645 ITSME 5637 6360 JOBOK 3772, 4027, 4034, 4215, 5656, 7146 6274 LCORS 4422, 4434, 4454, 4455, 4525, 4531, 4567 6373 LDGBK 4354, 4540, 4546 6317 LTTRS 5114, 5143 6276 LWORD 4533, 4542, 4563 6345 L(BF3 4512 6406 L(DN) 4373, 4376 6402 L(OF) 6401 L(ON) 6405 L(UP) 6312 MCHTP 5043, 5072 6400 MINUS 4553, 4575 4626 MNEM1 4743 4645 MNEM2 4634 4653 MNEM3 4715, 4721 4670 MNEM4 4652 4700 MNEM5 4670, 4674, 4677, 4702, 4704, 4705, 4707 4736 MNEM6 4632, 4644, 4706, 4710, 4727, 4731, 4735 4743 MNEM7 4665, 4736 6376 MNUSB 4325 6377 MNUSP 4323 6301 MONTH 4161, 4163, 4170, 4173, 4176 6241 MSEOP 4717 5573 NIBID 7114 5244 NNBL1 4064, 5263 5245 NNBL2 4066, 5264 5251 NNBL4 5247 5262 NNBL5 5257 5265 NNBL7 5241, 5261 5266 NNBL8 5242 6306 NOISR 6305 NOISW 5027 5571 NSTOP 7115 5274 OCTCV 4332, 4340, 4350, 4537, 4545, 4551, 4573, 4615 5305 OCTCX 5274 6251 OUTBF 5316, 5322, 5326, 5334, 5340, 5345, 5350, 5352, 5354 5307 PACK0 4415, 4616, 4745 5317 PACK1 5353 5354 PACK2 5346 5355 PACKX 5307, 5310, 5311 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 2/07/05 PAGE 4 POST PROCESSOR ASSEMBLY DATA 7025 PBUFF 6324 6424 PHDG1 4320 6446 PHDG2 4363 6375 PLUSZ 4327 6311 POSER 5046, 5122 4337 PREGS 4346 6112 PSEOP 4713 6330 RCDA2 4020, 4036 6505 RDERM 5402 5376 READR 5366 5362 READS 4275, 4276, 4300, 4304, 4315, 4431, 4477, 4765, 5400 5361 READT 4441 7141 RETNG 5557 6366 REWND 4274, 4764 4223 SCAND 4216, 4255 6323 SKPCM 5201 6334 SLASH 4156 4301 SNAP0 5371, 5403 4417 SNAP2 4751 4426 SNAP3 4416, 4420, 4436 4440 SNAP4 4425, 4426, 4472, 4474, 4605 4500 SNAP5 4461 4521 SNAP6 4423 4527 SNAP7 4523, 4526 4565 SNAP8 4535 4572 SNAP9 4520, 4613 5012 STAT1 5010 5017 STAT2 5131 5024 STAT3 5007, 5030, 5032, 5034, 5036 5031 STAT4 5013 5034 STAT5 5040 5037 STAT6 5014 5041 STAT7 5011, 5044, 5050 5061 STAT8 5065 5066 STAT9 5056 6676 STBUF 5020, 5063, 5071, 5107, 5121, 5124, 5137, 6325 4073 SWTCH 4062, 4140 5701 TBLBM 4645 5671 TBLBP 4647 5670 TBLEM 4716, 4736 5667 TBLEP 4712 6130 TBLM0 5701 6160 TBLM1 5701, 5702 6166 TBLM2 5702, 5703 6170 TBLM3 5703, 5704 6176 TBLM4 5704, 5705 6177 TBLM5 5705, 5706 6215 TBLM6 5706, 5707 6235 TBLM7 5707, 5710 6251 TBLM8 5710, 6251 5660 TBLMN 4633, 4641 5736 TBLP0 5671 5775 TBLP1 5671, 5672 6004 TBLP2 5672, 5673 6015 TBLP3 5673, 5674 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 2/07/05 PAGE 5 POST PROCESSOR ASSEMBLY DATA 6025 TBLP4 5674, 5675 6040 TBLP5 5675, 5676 6061 TBLP6 5676, 5677 6106 TBLP7 5677, 5700 6130 TBLP8 5700, 6130 4017 TEFA2 4032, 4240, 4252 5272 TEMP1 5243, 5270 5273 TEMPQ 5246, 5267 5176 TESTS 3737, 5177 6720 TITBF 4305, 4312 4305 TITIO 5422 6313 TMPR1 5151, 5156, 5164 6304 TOTRD 6310 TOTRR 6307 TOTRW 5035 6303 TOTWT 5025, 5053, 5061 6331 W1REC 4125 5413 WRIT1 4302, 5427 5427 WRIT2 5417, 5420, 5423 5406 WRITE 4317, 4362, 4561, 4620, 5401 5404 WRITS 4360, 4412, 4747 5207 WTDA3 5204 4347 XREGS 4357 73600 BOTIOP 73667 3734 BOTTOM 3734, 5567, 5611, 5621 4150 BYINIT 4146 6652 COMST1 6410 6325 COMST2 5125 6403 CONSNA 4311 3732 DATEBX 4264 DMPSNP 3756 3776 FC3TEN 4134 FC5OUT 4144, 4246 6343 FC7BAK 4143 4005 FCFOUR 4002 4035 FCNINE 4134, 4212, 5646, 7147, 7152 2 FINTAP 3730 FLAGBX 7136 FORTRA 5636 6350 FRBNKS 4045 6352 FRSVNS 4044 4770 HTPSTS 3760 5546 IBCARD 4030, 4053 5555 IBOTHR 7120 7121 IBPLAC 5553, 7121 7124 IBSBSR 5605 7135 IBSFAP 5642 7123 IBSXEC 5602 7125 IBSYST 5616 5654 ITSYOU 5641 134 .CHEXI 135 .MODSW 6327 JOBBIT 5600, 6330 1 LIBTAP 3731 LINECT 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 2/07/05 PAGE 6 POST PROCESSOR ASSEMBLY DATA 7 MBNTAP 5230 10 MCHTAP 5 MINTAP 4021, 4031, 4037, 4041, 5236 6 MLSTAP 5202, 5211, 5432 5633 NEXECU 7117 7122 NFAPBT 5647 5600 NIBID2 5630 5605 NIBJOB 7113 5557 NIBSYS 5572, 5604, 5644, 6343, 7116 5247 NNBL2A 5260 4752 NOSNPS 4272, 4313 4207 OKDATE 4203 4446 SAVORG 4437 3 SINTAP 6327 SKP1FL 5377, 6330 4142 SKPJNK 4135 11 SNPTAP 4266, 4306, 5365 5115 STAT10 5117, 5144 5122 STAT11 5130 STAT12 5055 5131 STAT13 5015 5133 STAT14 5101 5141 STAT15 5112 5125 STAT16 5140 6344 SWST61 4061, 4136 122 SYSACC 114 SYSCEM 155 SYSCK1 156 SYSCK2 120 SYSCOR 144 SYSCRD 102 SYSCUR 102 124 SYSCYD 101 SYSDAT 3747, 4204 115 SYSDMP 7121 77777 SYSEND 132 SYSGET 5571, 5603, 5606, 5617, 5643 117 SYSIDR 5573, 5626 151 SYSIN1 152 SYSIN2 116 SYSIOX 133 SYSJOB 5564, 5566, 5601, 5612, 5614, 5625 104 SYSKEY 140 SYSLB1 141 SYSLB2 142 SYSLB3 143 SYSLB4 121 SYSLDR 3720 SYSORG 147 SYSOU1 150 SYSOU2 146 SYSPCH 123 SYSPID 106 SYSPOS 153 SYSPP1 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 2/07/05 PAGE 7 POST PROCESSOR ASSEMBLY DATA 154 SYSPP2 145 SYSPRT 103 SYSRET 5570 113 SYSRPT 5615 126 SYSSLD 105 SYSSWS 1 SYSTAP 4225 127 SYSTCH 100 SYSTRA 131 SYSTWT 111 SYSUAV 110 SYSUBC 112 SYSUCW 107 SYSUNI 157 SYSUT1 160 SYSUT2 161 SYSUT3 162 SYSUT4 4 TINTAP 77677 TOPMEM 73577 TOPTAB 73667, 4432, 4443, 7210 7121 TTRDMP 3740 7137 WEREIN 5620 702 (ACTIV 703 (ACTVX 720 (BCD5R 721 (BCD5X 10000 (CHKU) 741 (CHPSW 724 (CHXAC 750 (CHXSP 717 (CKWAT 746 (COMMD 736 (COMMM 722 (CVPRT 73662 (DATE) 3750, 4175, 4200, 4202, 4205 716 (DECVA 715 (DECVD 73645 (DGLD) 73603 (DIAG) 710 (ENBSW 73665 (ENDS) 732 (ETTXI 743 (FDAMT 73660 (FGBX) 3751, 3753, 3754, 3773, 4217, 4221, 4253, 5546, 5650, 5655, 7142 747 (IBCDZ 740 (IOXSI 73667 (LBLD) 73652 (LIBT) 73661 (LNCT) 3761, 3762, 4756, 4757, 4770, 5213, 5214 73600 (LOAD) 4226 73666 (LODR) 73666 737 (LTPOS 73644 (MECL) 73664 (MSLN) 3745 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 2/07/05 PAGE 8 POST PROCESSOR ASSEMBLY DATA 704 (NDATA 705 (NDSLX 712 (PAUSE 4236 711 (PAWSX 3733 (PCBK) 73651 (PGCT) 3734, 5216, 5426 73614 (PNCH) 73611 (PRNT) 4230, 4232, 4234, 4256, 5205 706 (PROUT 707 (PUNCH 40014 (RBEC) 5364 40004 (RBEP) 40010 (RBNC) 40000 (RBNP) 727 (RCHXI 726 (RCTXI 40016 (RDEC) 4020, 4036 40006 (RDEP) 40012 (RDNC) 40002 (RDNP) 73622 (REST) 73672 (SCHU) 4000, 4007, 4014, 4031, 4041, 4270, 4277, 4306 744 (SDCXI 73643 (SECL) 20010 (SKBC) 3777, 4224, 4251, 4265 20000 (SKBP) 4274, 4476, 4764, 5377 20012 (SKDC) 4006, 4013, 4214, 4261 20002 (SKDP) 5556 1000 (SNAP) 73663 (SNCT) 3746 73617 (STAT) 5006 745 (STCXI 73626 (STDN) 723 (STOPD 713 (STOPX 10003 (SUAV) 5563, 5610 10002 (SUNV) 5623 714 (SYMUN 73606 (TAPE) 4017, 4035, 4223, 4264, 4273, 4475, 4763, 5200, 5207, 5226, 5234, 5363, 5376, 5421, 5430, 5562, 5607 5622 730 (TCOXI 733 (TEFXI 4000 (TPER) 735 (TRAPS 734 (TRAPX 731 (TRCXI 742 (TRPSW 725 (URRXI 40011 (WBNC) 4125 40001 (WBNP) 40013 (WDNC) 5201, 5210 40003 (WDNP) 5422, 5431 40015 (WEFC) 4004, 4127 40005 (WEFP) 40031 (WROW) 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 2/07/05 PAGE 9 POST PROCESSOR ASSEMBLY DATA NO ERROR IN ABOVE ASSEMBLY. * 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP F0D00000 * FAP F0D00010 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 1 ABS F0D00050 SST FORTRAN $F0D00060 HEAD 4,5 COMMON TO PASS ONE AND TWO F0D00070 PARAMETERS VARIABLE AT ASSEMBLY TIME F0D00080 F0D00090 00000 INPREM SYN 0 NUMBER OF WORDS PRECEDING PACKED RECORD F0D00100 00020 INPRCL SYN 16 LENGTH OF INTERMEDIATE RECORD F0D00110 00400 INPBKL SYN 16*INPRCL+INPREM LENGTH OF PACKED INTERMEDIATE BUFFER F0D00120 00016 UPDRCL SYN 14 LENGTH OF UPDATE INPUT/OUTPUT RECORD F0D00130 00340 UPDBKL SYN 16*UPDRCL LENGTH OF UPDATE INPUT/OUTPUT BUFFER F0D00140 73577 TOPTAB SYN BOTIOP-1 TOP OF AVAILABLE TABLE BUFFERS F0D00150 67551 BOTBUF SYN TOPTAB-6*UPDBKL-2*INPBKL-214 F0D00160 23270 BOTTAB SYN BOTTOM+7900 LOWER LIMIT FOR DATA TABLE SPACE F0D00170 F0D00180 00001 M SYN 1 TABLE FACTORS F0D00190 00001 N SYN 1 F0D00200 04000 LOPTBM SYN 2048 MAXIMUM LENGTH OF MACHINE OPERATION TABLE F0D00210 01750 LMXTBL SYN 1000*M/N MACRO EXPANSION TABLE LENGTH F0D00220 01750 LLITBL SYN 500*M/N*2 LITERAL TABLE LENGTH F0D00230 00372 LTVTBL SYN 250*M/N TRANSFER VECTOR TABLE LENGTH F0D00240 41717 LSMTBM SYN BOTBUF-LLITBL-LTVTBL-BOTTAB F0D00250 MAXIMUM LENGTH OF SYMBOL AND REF TABLES F0D00260 00255 LUDTBM SYN LSMTBM/100 MAXIMUM LENGTH OF UNDEFINED SYMBOL TABLE F0D00270 F0D00280 F0D00290 00020 T EQU 16 MAXIMUM NUMBER OF LOGICAL TAPES IN SYSTEM F0D00300 00004 C EQU 4 MAXIMUM NUMBER OF DATA CHANNELS IN SYSTEM F0D00310 C MUST BE A MULTIPLE OF 2 F0D00320 F0D00330 00001 EXPRR SYN 1 SENSE LIGHT FOR ERROR ON EXPRESSION F0D00340 00002 EXPND SYN 2 SENSE LIGHT FOR END OF EXPRESSION F0D00350 00004 FLDND SYN 4 SENSE LIGHT FOR END OF VARIABLE FIELD F0D00360 F0D00370 000001 TDMSK BOOL 000001 FLAG FOR TYPE D SENSE OPERATION F0D00380 000002 VLMSK BOOL 000002 FLAG FOR VARIABLE LENGTH OPERATION F0D00390 000004 TKMSK BOOL 000004 FLAG FOR TYPE K DISC COMMAND F0D00400 020000 9OMSK BOOL 020000 FLAG FOR OPERATIONS RESTRICTED TO 709/90 F0D00410 040000 04MSK BOOL 040000 FLAG FOR OPERATIONS RESTRICTED TO 704 F0D00420 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 2 COMMON SUBROUTINES, CONSTANTS AND ERASABLE 00102 ORG SYSCUR $F0D00450 BINARY CARD NO. 9F040000 00102 112600040000 BCI 1,9F0400 $F0D00460 73666 ORG (LODR) $F0D00470 BINARY CARD NO. 9F040001 73666 1 00050 0 10421 TXI START,,40 ENTRY POINT,,RECORD NUMBER F0D00480 F0D00490 03725 ORG BOTTOM-7 LOAD INFORMATION FOR MACHINE ERROR RECORD $F0D00494 BINARY CARD NO. 9F040002 03725 0 00004 0 17267 PZE INRECT+1,,4 ORIGIN OF REC. COUNT TABLE,,LENGTH $F0D00495 F0D00500 03734 ORG BOTTOM F0D00520 F0D00530 TRANSFER VECTOR F0D00540 F0D00550 BINARY CARD NO. 9F040003 03734 0 00000 0 00004 CHANS PZE C NUMBER OF CHANNELS IN SYSTEM F0D00560 03735 0 00000 0 00020 SYSAST PZE T NUMBER OF TAPES ASSIGNED TO SYSTEM F0D00570 03736 0 00000 0 00007 SYSTPS PZE 7 NUMBER OF TAPES RESERVED TO MONITOR $F0D00580 F0D00590 ERASABLE INFORMATION TRANSMITTED BETWEEN PASSES F0D00600 03737 0 00001 0 00000 MAINPF PZE ,,1 FLAG FOR MAIN PROGRAM (ZERO IF SUBPROGRAM)F0D00610 03740 0 00000 0 00000 ABSFLG PZE ** FLAG FOR ABSOLUTE ASSEMBLY F0D00620 03741 0 00000 0 00000 ONLCFG PZE ** FLAG FOR ONLINE COLUMN BINARY CARDS F0D00630 03742 0 00000 0 00000 OFLCFG PZE ** FLAG FOR OFFLINE COLUMN BINARY CARDS F0D00640 03743 0 00000 0 00000 CRDFLG PZE ** FLAG FOR ONLINE CARDS F0D00650 03744 0 00000 0 00000 LBLFLG PZE ** FLAG FOR OFFLINE CARD LABEL AND SERIAL F0D00660 03745 0 00000 0 00000 IPTFLG PZE ** FLAG FOR UPDATE INPUT TAPE F0D00670 03746 0 00000 0 00000 OPTFLG PZE ** FLAG TO WRITE UPDATE OUTPUT TAPE F0D00680 03747 0 00000 0 00000 PAKFLG PZE **,,** FLAG TO UNPACK UPDATE OUTPUT TAPE F0D00690 03750 0 00000 0 00000 DELFLG PZE ** FLAG TO DELETE ASSEMBLY F0D00700 03751 -3 77777 7 77777 SEPFLG SVN -1,-1,-1 FLAG FOR STANDARD ERROR PROCEEDURE F0D00710 SET TO PZE BY 9F04FLOW F0D00720 TO DELETE STANDARD ERROR PROCEDURE F0D00730 03752 0 00000 0 00026 LITSIZ PZE 22,,** LOG LLITBL,,LITERAL TABLE COUNT F0D00740 (LITERAL TABLE LIMITED TO 1024 ENTRIES) F0D00750 03753 0 00000 0 00000 PRGBK PZE ** CURRENT PROGRAM BREAK F0D00760 03754 0 00000 0 00000 PROLG PZE ** LENGTH OF VECTOR, LINKAGE DIRECTOR F0D00770 F0D00780 ERASABLE INFORMATION RESET BETWEEN PASSES F0D00790 03755 0 00000 0 00000 CHRCTR PZE NEXT CHARACTER IN VARIABLE FIELD F0D00800 03756 0 00000 0 00000 RESIDU PZE REMAINDER OF NEXT WORD IN VARIABLE FIELD F0D00810 03757 0 00002 0 77461 UPCTR PZE -207,,2 COMMON STORAGE COUNTER,,RELOCATION BIT F0D00820 03760 0 00000 0 00000 CDCTR PZE ** ABS CARD ORIGIN COUNTER F0D00830 03761 0 00001 0 00000 LOCTR PZE **,,1 PROGRAM COUNTER,,RELOCATION BIT F0D00840 BINARY CARD NO. 9F040004 03762 0 00001 0 00000 ADDRS PZE **,,1 DEFINITION OF SYMBOL,,RELOCATABLE FLAG F0D00850 03763 0 00000 0 00000 OPCOD PZE OP FIELD (CC 8 - 13) F0D00860 03764 +000000000000 DEC ,,,,,,,,, MULTIPLE HEAD CHARACTERS (PRECEDE BHEAD) F0D00870 03776 0 00000 0 00000 BHEAD PZE HEADING CHARACTER F0D00880 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 3 COMMON SUBROUTINES, CONSTANTS AND ERASABLE 03777 0 00000 0 00000 THEAD PZE HEADING CHARACTER PRECEDING $ F0D00890 04000 0 00000 0 00000 SYMB2 PZE HIGH ORDER SIX CHARACTRS ALPHAMERIC FIELD F0D00900 04001 0 00000 0 00000 SYMBL PZE LOW ORDER SIX CHARACTERS ALPHAMERIC FIELD F0D00910 04002 0 00000 0 00000 VFDFL PZE LOW ORDER HALF OF VARIABLE FIELD F0D00920 04003 0 00000 0 00000 PZE HIGH ORDER HALF OF VARIABLE FIELD F0D00930 04004 0 00000 0 00000 BINRY PZE 36 BIT BINARY INSTRUCTION, DATA WORD F0D00940 04005 0 00000 0 00000 NERAS PZE INTEGER FIELD F0D00950 04006 0 00000 0 00000 XERAS PZE EXPONENT (E) FIELD F0D00960 04007 0 00000 0 00000 BERAS PZE BINARY (B) FIELD F0D00970 BINARY CARD NO. 9F040005 04010 0 00000 0 00000 ERASE PZE GENERAL ERASABLE F0D00980 04011 0 00000 0 00000 OFLGS PZE FLAGS FOR DECODING OF MACHINE INSTRUCTION F0D00990 04012 0 00000 0 00000 VRFLD PZE **,,** CHARACTER COUNT,,WORD COUNT F0D01000 04013 0 00000 0 00000 INDFG PZE ** FLAG FOR INDIRECT ADDRESS OP CODE F0D01010 04014 0 00000 0 00000 RBITS PZE ** RELOCATION BITS FOR FIELD F0D01020 04015 0 00000 0 00000 INDIC PZE **,,** RELOCATION BITS FOR WORD F0D01030 04016 0 00000 0 00000 DUPCT PZE ,,** NUMBER OF ITERATIONS IN RANGE OF DUP CARD F0D01040 04017 0 00000 0 00000 PZE ** PROGRAM COUNTER AT ENTRY INTO RANGE F0D01050 04020 0 00000 0 00000 PZE ** CARD COUNTER AT ENTRY INTO RANGE F0D01060 04021 0 00000 0 00000 DUPFG PZE ** FLAG TO UNBLOCK INTERMEDIATE TAPE F0D01070 04022 -0 00000 0 00000 SKDUP MZE ** RANGE OF DUP TO BE BACKSPACED F0D01080 04023 0 00000 0 00000 TVFLG PZE ** FLAG FOR NAME IN TRANSFER VECTOR F0D01090 04024 0 00000 0 00000 OPRFG PZE ** FLAG FOR UNDEFINED OPERATION F0D01100 04025 0 00000 0 00000 VFDRB PZE ** NUMBER OF BITS REMAINING IN WORD F0D01110 04026 0 00000 0 00000 VFDTB PZE ** TOTAL BIT COUNT IN VAR FIELD OF VFD CARD F0D01120 04027 0 00000 0 00000 VFDFB PZE ** FIELD BIT COUNT IN VAR FIELD OF VFD CARD F0D01130 04030 0 00000 0 00000 ELMEQ PZE ** VALUE OF ELEMENT F0D01140 04031 0 00000 0 00000 ELMUN PZE ** NUMBER OF SYMBOLS IN ELEMENT F0D01150 04032 0 00000 0 00000 ELMUF PZE ** FLAG FOR SYMBOLS IN ELEMENT F0D01160 0 ABSOLUTE F0D01170 -1 COMMON F0D01180 +1 RELOCATABLE F0D01190 04033 0 00000 0 00000 TRMEQ PZE ** VALUE OF TERM F0D01200 04034 0 00000 0 00000 TRMUN PZE ** NUMBER OF SYMBOLS IN TERM F0D01210 04035 0 00000 0 00000 TRMUF PZE ** FLAG FOR SYMBOLS IN TERM F0D01220 BINARY CARD NO. 9F040006 04036 0 00000 0 00000 VAREQ PZE ** VALUE OF EXPRESSION F0D01230 04037 0 00000 0 00000 VARUC PZE ** NUMBER OF COMMON SYMBOLS IN EXPRESSION F0D01240 04040 0 00000 0 00000 VARUR PZE ** NUMBER OF RELOCATABLE SYMBOLS IN EXPRSSN F0D01250 04041 0 00000 0 00000 LINKG PZE ** LOCATION OF LINKAGE DIRECTOR F0D01260 04042 0 00000 0 00000 9LPMD PZE ** FLAG FOR BINARY CONTROL CARD FORMAT F0D01270 04043 0 00000 0 00000 FULMD PZE ** FLAG FOR BINARY CARD FUL FORMAT F0D01280 04044 0 00000 0 00000 BOLMD PZE ** FLAG FOR BOOLEAN FIELD F0D01290 04045 0 00000 0 00000 DUPMD PZE ** FLAG FOR RECORD WITHIN RANGE OF DUP F0D01300 04046 0 00000 0 00000 ETCMD PZE ** FLAG FOR FOLLOWING CARD A CALL OR VFD ETC F0D01310 04047 0 00000 0 00000 FCFLG PZE ** FLAG FOR FIRST CARD GROUP COMPLETED F0D01320 04050 0 00000 0 00000 SCNBC PZE ** FLAG FOR BOOLEAN COM F0D01330 04051 0 00000 0 00000 SCNBE PZE ** FLAG FOR BOOLEAN ERA F0D01340 04052 0 00000 0 00000 SCNFC PZE ** FLAG FOR FIRST CHARACTER IN ELEMENT F0D01350 04053 0 00000 0 00000 VFDPF PZE ** MEDAL FOR 36 BIT VFD F0D01360 04054 0 00000 0 00000 VFDMD PZE ** FLAG FOR VFD CARD F0D01370 04055 0 00000 0 00000 VFDHF PZE ** HOLLERITH FIELD FLAG F0D01380 04056 0 00000 0 00000 VFDOF PZE ** OCTAL FIELD FLAG F0D01390 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 4 COMMON SUBROUTINES, CONSTANTS AND ERASABLE 04057 0 00000 0 00000 NOGOF PZE ** FLAG FOR ASSEMBLY ERROR F0D01400 04060 0 00000 0 00000 TYPAF PZE ** FLAG FOR TYPE A 0 00000 0 00000 INSTRUCTN F0D01410 04061 0 00000 0 00000 TYPCF PZE ** FLAG FOR TYPE C VARIABLE LENGTH INSTRUCTN F0D01420 OR TYPE K WITH HIGH ORDER COUNT FIELD F0D01430 04062 0 00000 0 00000 TYPDF PZE ** FLAG FOR TYPE D 0 00000 000000 INSTRUCTN F0D01440 04063 0 00000 0 00000 TYPKF PZE ** FLAG FOR TYPE K 00 0000 0 00000 COMMAND F0D01450 BINARY CARD NO. 9F040007 04064 0 00000 0 00000 OPFLG PZE ** FLAG FOR OP DEFINITION PSEUDOOPERATION F0D01460 04065 0 00000 0 00000 UNL1F PZE ** PRELIMINARY FLAG TO SUSPEND LISTING F0D01470 04066 0 00000 0 00000 UNLSF PZE ** FLAG TO SUSPEND LISTING F0D01480 04067 0 00000 0 00000 TITLF PZE ** FLAG TO SUSPEND LISTING OF GENERATED DATA F0D01490 04070 0 00000 0 00000 LBLFG PZE ** BINARY CARD NUMBER LISTING FLAG F0D01500 04071 0 00000 0 00000 PRTFG PZE ** FLAG FOR ONLINE PRINTING OF ONE LINE F0D01510 04072 0 00000 0 00000 PRTF1 PZE ** PRELIMINARY FLAG FOR ONLINE PRINT F0D01520 04073 0 00000 0 00000 DCNFG PZE ** FLAG FOR DECIMAL POINT IN DECCV F0D01530 04074 0 00000 0 00000 DCXFG PZE ** FLAG FOR DECIMAL EXPONENT (E) IN DECCV F0D01540 04075 0 00000 0 00000 DCBFG PZE ** FLAG FOR BINARY EXPONENT (B) IN DECCV F0D01550 04076 0 00000 0 00000 PRTIF PZE ** FLAG FOR MACHINE INSTRUCTION IN PRINT F0D01560 04077 0 00000 0 00000 704FG PZE ** FLAG FOR ASSEMBLY IN 704 MODE F0D01570 04100 0 00000 0 00000 ORDRF PZE ** FLAG FOR INPUT CARD OUT OF ORDER F0D01580 04101 0 00000 0 77777 TTLFG PZE -1 FLAG TO PRINT SUBHEAD (PRESET FOR PASS 1) F0D01590 04102 0 00000 0 00000 P1FLG PZE ** PASS 1 FLAGS TRANSMITTED TO PASS 2 F0D01600 AS LOW ORDER 18 BITS OF WORD 14 $F0D01610 BIT 35 PHASE ERROR F0D01620 34 FOLLOWING CARD IS ETC F0D01630 33 FIELD ERROR F0D01640 32 LITERAL ERROR F0D01650 31 UNRECOGNIZED PSEUDOOP F0D01660 30 MACRO GENERATED CARD F0D01670 29 MISSING PSEUDOOP VARIABLE FIELD F0D01680 18 - 27 MACRO LEVEL NUMBER $F0D01690 F0D01700 FLAGS FOR ERRORS ON INPUT CARDS F0D01710 04103 0 00000 0 00000 DCPFG PZE ** FLAG FOR EXCESS DECIMAL POINT $F0D01720 04104 0 00000 0 00000 DCEFG PZE ** FLAG FOR EXCESS EXPONENT (E) $F0D01721 04105 0 00000 0 00000 DC2FG PZE ** FLAG FOR EXCESS EXPONENT (B) $F0D01722 04106 0 00000 0 00000 ERFDL PZE ** IMPROPER DOLLAR SIGN $F0D01723 04107 0 00000 0 00000 ERRFU PZE ** UNDEFINED SYMBOL F0D01730 04110 0 00000 0 00000 ERRFM PZE ** MULTIPLY DEFINED SYMBOL F0D01740 04111 0 00000 0 00000 ERRFR PZE ** RELOCATION ERROR F0D01750 BINARY CARD NO. 9F040008 04112 0 00000 0 00000 ERRFP PZE ** PHASE ERROR F0D01760 04113 0 00000 0 00000 ERRFL PZE ** LITERAL ERROR F0D01770 04114 0 00000 0 00000 ERRFO PZE ** ILLEGAL OPERATION CODE F0D01780 04115 0 00000 0 00000 ERRFE PZE ** VACUUM CLEANER F0D01790 04116 0 00000 0 00000 ERRFB PZE ** BOOLEAN (OCTAL) ERROR F0D01800 FOLLOWING ERRORS ARE NON FATAL F0D01810 04117 0 00000 0 00000 ERRFN PZE ** IMPROPER OP CODE F0D01820 04120 0 00000 0 00000 ERR49 PZE ** MIXED MODE OPCODE F0D01830 04121 0 00000 0 00000 ERRFA PZE ** MISSING ADDRESS F0D01840 04122 0 00000 0 00000 ERRFT PZE ** MISSING TAG F0D01850 04123 0 00000 0 00000 ERRFD PZE ** MISSING DECREMENT F0D01860 04124 0 00000 0 00000 ERRFI PZE ** IMPROPER INDIRECT ADDRESS F0D01870 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 5 COMMON SUBROUTINES, CONSTANTS AND ERASABLE 04125 0 00000 0 00000 ERRFF PZE ** EXCESSIVE FIELD F0D01880 04126 0 00000 0 00000 ERFFM PZE ** NON-FATAL MULTIPLY DEFINED SYMBOL F0D01890 04127 0 00021 0 00010 EFLST PZE *-ERRFN,,*-ERFDL NONFATAL LIST,,LENGTH OF ERROR LIST $F0D01900 ADDITIONAL INFORMATION TRANSMITTED BETWEEN PASSES $F0D01901 $F0D01902 04130 0 00000 0 00000 EVNFLG PZE ** FLAG FOR EVEN CONTAINED IN PROGRAM $F0D01903 $F0D01904 ERROR CHARACTERS F0D01910 04131 +000000000000 DEC , PATCH SPACE $F0D01920 04133 536060606060 BCI 1,$ $F0D01921 04134 646060606060 BCI 1,U F0D01930 04135 446060606060 BCI 1,M F0D01940 04136 516060606060 BCI 1,R F0D01950 04137 476060606060 BCI 1,P F0D01960 BINARY CARD NO. 9F040009 04140 436060606060 BCI 1,L F0D01970 04141 466060606060 BCI 1,O F0D01980 04142 256060606060 BCI 1,E F0D01990 04143 226060606060 BCI 1,B F0D02000 FOLLOWING ERRORS ARE NONFATAL F0D02010 04144 456060606060 BCI 1,N F0D02020 04145 046060606060 FLG49 BCI 1,4 RESET TO 9 FOR 704 MODE CHANGE F0D02030 04146 216060606060 BCI 1,A F0D02040 04147 636060606060 BCI 1,T F0D02050 04150 246060606060 BCI 1,D F0D02060 04151 316060606060 BCI 1,I F0D02070 04152 266060606060 BCI 1,F F0D02080 04153 446060606060 BCI 1,M F0D02090 04154 EFCHR SYN * F0D02100 F0D02110 F0D02120 04154 016060606060 PGHDNG BCI 8,1 F0D02130 04164 606060606060 BCI 8, F0D02140 BINARY CARD NO. 9F040010 04174 604721272560 BCI 2, PAGE 1 F0D02150 F0D02160 04176 606060606060 BLANKS BCI 3, F0D02170 04201 475125475146 BCI 5,PREPROCESSOR UPDATE PROGRAM F0D02180 04206 606060606060 BCI 6, F0D02190 F0D02200 BINARY CARD NO. 9F040011 04214 -0 00004 0 00000 PBUFF1 MZE ,,4 PUNCH OUTPUT BUFFER F0D02210 04215 +000000000000 DEC ,,,,,,,,,,,,,,,,,,,,,, F0D02220 BINARY CARD NO. 9F040012 04244 +000000000000 IDBUFF DEC ,,, CARD SERIAL BUFFER + ONE WORD SKEW SPACE F0D02230 F0D02240 BCD CARD BUFFERS F0D02250 F0D02260 04250 +000000000000 PFLAG DEC ERROR FLAGS F0D02270 OCTAL EXPANSION OF MACHINE INSTRUCTION(23)F0D02275 04251 +000000000000 OCTAL DEC ,,, (27)F0D02280 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 6 COMMON SUBROUTINES, CONSTANTS AND ERASABLE (THIS BUFFER MUST PRECEDE BCDBF) F0D02290 04255 +000000000000 BCDBF DEC ,,,,,,,,,,,,, SOURCE DECK WORKING BUFFER F0D02300 BINARY CARD NO. 9F040013 04273 +000000000000 LITRL DEC VALUE OF LITERAL OR PSEUDOOP DEFINITION F0D02310 04274 +000000000000 OPBIN DEC BINARY INSTRUCTION, PSEUDOOP TRANSFER F0D02320 (LITRL AND OPBIN MUST FOLLOW BCDBF) F0D02330 F0D02340 04275 606060606060 INSBF BCI 9, F0D02350 04306 606060606060 BCI 8, INSERTED F0D02360 F0D02370 BINARY CARD NO. 9F040014 04316 606060606060 DELBF BCI 9, F0D02380 04327 606060606060 BCI 8, THE FIRST CARD IN THIS DECK IS DELETED F0D02390 F0D02400 04337 606060606060 ORDBF BCI 9, F0D02410 BINARY CARD NO. 9F040015 04350 606060606060 BCI 9, ORDER ERROR F0D02420 F0D02430 F0D02440 COMMON ROUTINES F0D02450 F0D02460 WRITE LINE ON AND OFF LINE F0D02470 CALL IS TSX FPRINT,4 F0D02480 PZE FWORD,,COUNT F0D02490 (MZE FWORD,,COUNT FORCE PRINTING) F0D02500 ( ,,0 BLANK LINE) F0D02510 04361 0634 00 4 04437 FPRINT SXA FPRNX,4 SAVE CALLING LINKAGE F0D02520 04362 0634 00 2 04440 SXA FPRNX+1,2 SAVE WORD COUNT F0D02530 04363 0634 00 1 04441 SXA FPRNX+2,1 SAVE CHARACTER COUNT F0D02540 04364 0500 00 4 00001 CLA 1,4 LOAD PARAMETER F0D02550 04365 0621 00 0 04435 STA FPRN2 INITIALIZE I/O COMMAND F0D02560 04366 0622 00 0 04435 STD FPRN2 F0D02570 04367 -0734 00 2 00000 PDX ,2 LOAD WORD COUNT F0D02580 04370 0774 00 1 00000 PAGCNT AXT **,1 LOAD PAGE LINE COUNT (20)F0D02590 04371 0774 00 4 00000 PAGENO AXT **,4 LOAD PAGE NUMBER (20)F0D02600 BINARY CARD NO. 9F040016 04372 3 00000 2 04401 TXH FPRN0,2,0 IS BLANK LINE REQUESTED $F0D02610 04373 0560 00 0 04423 LDQ IOBLK YES,LOAD PARAMETER FOR BLANK LINE $F0D02620 04374 -0600 00 0 04435 STQ FPRN2 INITIALIZE I/O COMMAND $F0D02630 04375 -3 00000 1 04401 TXL FPRN0,1,0 IS BLANK LINE AT TOP OF PAGE (20)F0D02640 04376 3 00004 1 04401 TXH FPRN0,1,4 IS BLANK LINE AT BOTTOM OF PAGE (20)F0D02650 04377 0634 00 0 04370 ZSA PAGCNT YES, EJECT PAGE (20)F0D02660 04400 3 00000 4 04437 TXH FPRNX,4,0 TRANSFER IF NOT FIRST PAGE (20)F0D02670 LINE IS NOT BLANK,OR NOT AT BOTTOM OF PAGE (20)F0D02680 04401 0120 00 0 04403 FPRN0 TPL *+2 IS THIS LINE FORCED (20)F0D02690 04402 -0625 00 0 04072 STL PRTF1 YES,SET FLAG (20)F0D02700 04403 2 00001 1 04431 TIX FPRN1,1,1 IS PAGE FULL (20)F0D02710 04404 1 00001 4 04405 TXI *+1,4,1 YES, BUMP PAGE NUMBER (20)F0D02720 04405 0634 00 4 04371 SXA PAGENO,4 (20)F0D02730 04406 0754 00 4 00000 PXA ,4 LOAD NEW PAGE NUMBER F0D02740 04407 0074 00 4 06104 TSX BCDCV,4 *CONVERT TO BCD F0D02750 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 7 COMMON SUBROUTINES, CONSTANTS AND ERASABLE 04410 0560 00 0 04176 LDQ BLANKS APPEND FOLLOWING BLANKS F0D02760 04411 -0765 00 0 00006 LGR 6 LEFT ADJUST F0D02770 04412 -0100 00 0 04411 TNZ *-1 F0D02780 04413 -0600 00 0 04175 STQ PGHDNG+17 INSERT IN PAGE HEADING F0D02790 04414 0074 00 4 04443 TSX WRITT,4 *WRITE PAGE HEADING F0D02800 04415 0 00022 0 04154 IOCD PGHDNG,,18 F0D02810 04416 -0520 00 0 04101 NZT TTLFG IS SUBTITLE SPECIFIED F0D02820 04417 0020 00 0 04422 TRA *+3 NO F0D02830 BINARY CARD NO. 9F040017 04420 0074 00 4 04443 TSX WRITT,4 *YES, WRITE IT F0D02840 04421 0 00016 0 04176 IOHED IOCD BLANKS,,14 F0D02850 04422 0074 00 4 04443 TSX WRITT,4 *WRITE BLANK LINE F0D02860 04423 0 00003 0 04176 IOBLK IOCD BLANKS,,3 F0D02870 04424 0500 00 0 73651 CLA (PGCT) RESET LINE COUNT F0D02880 04425 -0734 00 1 00000 PDX ,1 F0D02890 04426 0520 00 0 04101 ZET TTLFG IS SUBTITLE SPECIFIED F0D02900 04427 1 77777 1 04430 TXI *+1,1,-1 YES, BUMP PAGE LINE COUNT DOWN ONE F0D02910 04430 0020 00 0 07146 TRA PATCH $F0D02920 04431 0500 00 0 04072 FPRN1 CLA PRTF1 NO, SET ONLINE PRINT FLAG F0D02930 04432 0601 00 0 04071 STO PRTFG F0D02940 04433 0600 00 0 04072 STZ PRTF1 RESET INTERMEDIATE FLAG F0D02950 04434 0074 00 4 07114 TSX FPRNA,4 *TEST FOR PRINT CONTROL, SET XR4 $F0D02960 04435 0 00000 0 00000 FPRN2 IOCD **,,** F0D02970 04436 0634 00 1 04370 SXA PAGCNT,1 SAVE PAGE LINE COUNT F0D02980 04437 0774 00 4 00000 FPRNX AXT **,4 RELOAD CALLING LINKAGE F0D02990 04440 0774 00 2 00000 AXT **,2 RELOAD WORD COUNT F0D03000 04441 0774 00 1 00000 AXT **,1 RELOAD CHARACTER COUNT F0D03010 04442 0020 00 4 00002 TRA 2,4 F0D03020 F0D03030 BLOCK LISTING OUTPUT TAPE F0D03040 04443 0634 00 4 04505 WRITT SXA WRITX,4 SAVE CALLING LINKAGE F0D03050 04444 0634 00 2 04506 SXA WRITX+1,2 SAVE WORD COUNT F0D03060 04445 0634 00 1 04507 SXA WRITX+2,1 SAVE LINE COUNT F0D03070 BINARY CARD NO. 9F040018 04446 0774 00 1 00000 AXT **,1 LOAD BLOCK WORD COUNT F0D03080 04447 0535 00 2 04527 LAC WRBLK+1,2 LOAD BUFFER INDEX F0D03090 04450 -3 00000 1 04454 TXL *+4,1,0 IS THIS FIRST LINE IN BLOCK F0D03100 04451 -0500 00 0 04511 CAL RECMK NO, INSERT RECORD MARK F0D03110 04452 0602 60 2 07005 SLW* BCD14+1,2 FOLLOWING LAST WORD OF PREVIOUS LINE F0D03120 04453 1 77777 1 04454 TXI *+1,1,-1 BUMP COUNT TO NEXT WORD IN BLOCK F0D03130 04454 -0500 00 4 00001 CAL 1,4 LOAD PARAMETER F0D03140 04455 0601 00 0 04503 STO WRIT1+2 INITIALIZE PRINT I/O PARAMETER F0D03150 04456 -0734 00 4 00000 PDX ,4 LOAD WORD COUNT F0D03160 04457 0634 00 4 04006 SXA XERAS,4 F0D03170 04460 0401 00 0 04006 ADM XERAS COMPUTE ORIGIN AT END OF BUFFER F0D03180 04461 0621 00 0 04462 STA *+1 INITIALIZE COPY LOOP F0D03190 04462 -0500 00 4 00000 CAL **,4 MOVE NEXT WORD F0D03200 04463 0602 60 2 07005 SLW* BCD14+1,2 INTO OUTPUT BUFFER F0D03210 04464 1 77777 1 04465 TXI *+1,1,-1 BUMP TO NEXT WORD IN BLOCK F0D03220 04465 2 00001 4 04462 TIX *-3,4,1 IS LINE COMPLETE F0D03230 04466 0634 00 1 04446 SXA WRITT+3,1 YES, SAVE BLOCK WORD COUNT F0D03240 04467 0774 00 4 00000 WRIT0 AXT **,4 BUMP BLOCK LINE COUNT F0D03250 04470 1 00001 4 04471 TXI *+1,4,1 F0D03260 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 8 COMMON SUBROUTINES, CONSTANTS AND ERASABLE 04471 0634 00 4 04467 SXA WRIT0,4 F0D03270 04472 3 77777 4 04474 TXH *+2,4,-1 IS LISTING TAPE TO BE UNBUFFERED F0D03280 04473 -3 00004 4 04475 TXL *+2,4,4 NO, IS BLOCKED BUFFER FULL F0D03290 BINARY CARD NO. 9F040019 04474 0074 00 4 04526 TSX WRBLK,4 *YES, WRITE BUFFER F0D03300 04475 0761 00 0 00000 WRITS NOP IS THIS LINE MONITORED F0D03310 04476 0020 00 0 04500 TRA *+2 NO F0D03320 04477 0020 00 0 04502 TRA *+3 YES F0D03330 04500 -0520 00 0 04071 NZT PRTFG IS THIS LINE FORCED F0D03340 04501 -3 77777 4 04505 WRIT1 TXL WRITX,4,-1 NO, IS ONLINE PRINT SPECIFIED F0D03350 04502 0074 00 4 73611 TSX (PRNT),4 *YES, PRINT LINE F0D03360 04503 0 00000 0 00000 PZE **,,** F0D03370 04504 0634 00 0 04071 SXA PRTFG,0 RESET FLAG F0D03380 04505 0774 00 4 00000 WRITX AXT **,4 RELOAD CALLING LINKAGE F0D03390 04506 0774 00 2 00000 AXT **,2 RELOAD WORD COUNT F0D03400 04507 0774 00 1 00000 AXT **,1 RELOAD LINE COUNT F0D03410 04510 0020 00 4 00002 TRA 2,4 F0D03420 04511 -206060606072 RECMK OCT 606060606072 720 PRINTER RECORD MARK F0D03430 F0D03440 WRITE FINAL BLOCK ON LISTING TAPE F0D03450 04512 0634 00 4 04523 WRFBK SXA WRFBX,4 SAVE CALLING LINKAGE F0D03460 04513 0534 00 1 04446 LXA WRITT+3,1 LOAD BLOCK WORD COUNT F0D03470 04514 -3 00000 1 04523 TXL WRFBX,1,0 IS BLOCK EMPTY F0D03480 04515 0535 00 2 04527 LAC WRBLK+1,2 NO, LOAD BUFFER INDEX F0D03490 04516 -0500 00 0 04525 CAL FRCMK INSERT 720 PRINTER NOP F0D03500 04517 0602 60 2 07005 SLW* BCD14+1,2 FOLLOWING LAST LINE F0D03510 04520 1 77777 1 04521 TXI *+1,1,-1 BUMP WORD COUNT F0D03520 04521 0634 00 1 04446 SXA WRITT+3,1 F0D03530 BINARY CARD NO. 9F040020 04522 0074 00 4 04526 TSX WRBLK,4 *WRITE LAST BUFFER F0D03540 04523 0774 00 4 00000 WRFBX AXT **,4 RELOAD CALLING LINKAGE F0D03550 04524 0020 00 4 00001 TRA 1,4 F0D03560 04525 -206060607260 FRCMK OCT 606060607260 720 PRINTER NOP F0D03570 F0D03580 WRITE BLOCKED/UNBLOCKED LISTING OUTPUT TAPE F0D03590 04526 0634 00 4 04543 WRBLK SXA WRBLX,4 SAVE CALLING LINKAGE F0D03600 04527 -0774 00 2 00001 AXC 1,2 LOAD BUFFER INDEX F0D03610 04530 0634 00 2 04527 SXA *-1,2 FLIP BUFFER INDEX F0D03620 04531 0535 00 1 04446 LAC WRITT+3,1 LOAD BLOCK WORD COUNT F0D03630 04532 -3 00000 1 04543 TXL WRBLX,1,0 IS BLOCK EMPTY F0D03640 04533 -0754 00 1 00000 PXD ,1 NO, INITIALIZE I/O COMMAND WORD COUNT F0D03650 04534 0622 00 2 07004 STD BCD14,2 F0D03660 04535 0074 00 4 73606 TSX (TAPE),4 *WRITE BLOCKED/UNBLOCKED RECORD F0D03670 04536 0 40003 2 07004 PZE BCD14,2,(WDNP) F0D03680 04537 0 00006 0 00000 PZE ,,MLSTAP F0D03690 04540 -0500 60 0 73661 CAL* (LNCT) BUMP LINE COUNT F0D03700 04541 0401 00 0 04467 ADM WRIT0 F0D03710 04542 0621 60 0 73661 STA* (LNCT) F0D03720 04543 0774 00 4 00000 WRBLX AXT **,4 RELOAD CALLING LONKAGE F0D03730 04544 0634 00 0 04446 SXA WRITT+3,0 RESET BLOCK WORD COUNT F0D03740 04545 0634 00 0 04467 SXA WRIT0,0 RESET BLOCK LINE COUNT F0D03750 04546 0020 00 4 00001 TRA 1,4 F0D03760 F0D03770 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 9 COMMON SUBROUTINES, CONSTANTS AND ERASABLE ASSEMBLE UNIFORM SYMBOL F0D03780 04547 0634 00 4 04571 LOCFL SXA LOCFX,4 SAVE CALLING LINKAGE F0D03790 BINARY CARD NO. 9F040021 04550 0600 00 0 04001 STZ SYMBL CLEAR WORKING STORAGE F0D03800 04551 -0340 00 0 04176 LAS BLANKS IS SYMBOL ALL BLANKS F0D03810 04552 0020 00 0 04554 TRA *+2 NO F0D03820 04553 0020 00 0 04570 TRA LOCF2 YES F0D03830 04554 -0130 00 0 00000 XCL RECALL SYMBOL F0D03840 04555 0774 00 4 00006 AXT 6,4 PREPARE TO SCAN SIX CHARACTERS F0D03850 04556 -0754 00 0 00000 LOCF1 PXD ,0 F0D03860 04557 -0763 00 0 00006 LGL 6 GET NEXT CHARACTER F0D03870 04560 -0340 00 0 06522 LAS BLANK IS IT BLANK F0D03880 04561 0020 00 0 04563 TRA *+2 NO F0D03890 04562 0020 00 0 04567 TRA *+5 YES F0D03900 04563 -0765 00 0 00006 LGR 6 ADD NONBLANK CHARACTER F0D03910 04564 -0500 00 0 04001 CAL SYMBL F0D03920 04565 -0763 00 0 00006 LGL 6 F0D03930 04566 0602 00 0 04001 SLW SYMBL SAVE PARTIAL SYMBOL F0D03940 04567 2 00001 4 04556 TIX LOCF1,4,1 IS SYMBOL ASSEMBLED F0D03950 04570 -0500 00 0 04001 LOCF2 CAL SYMBL YES, RELOAD UNIFORM SYMBOL F0D03960 04571 0774 00 4 00000 LOCFX AXT **,4 RELOAD CALLING LINKAGE F0D03970 04572 0020 00 4 00001 TRA 1,4 F0D03980 F0D03990 SET UP OPCODE, VARIABLE FIELD F0D04000 04573 0634 00 4 04676 SETUP SXA STUPX,4 SAVE CALLING LINKAGE F0D04010 04574 0600 00 0 04013 STZ INDFG RESET INDIRECT ADDRESS FLAG F0D04020 CHECK FOR COMMENTS CARD (24)F0D04030 04575 -0500 00 0 04255 CAL BCDBF LOAD CARD WORD 1 (24)F0D04040 BINARY CARD NO. 9F040022 04576 -0765 00 0 00036 LGR 30 ISOLATE COLUMN 1 (24)F0D04050 04577 0322 00 0 06523 ERA ASTRK IS THIS COMMENTS CARD $F0D04060 04600 0100 00 4 00001 TZE 1,4 YES $F0D04070 04601 0322 00 0 06425 ERA Q7 IS IT A DOLLAR SIGN $F0D04071 04602 0100 00 4 00001 TZE 1,4 YES $F0D04072 04603 -0774 00 2 00001 AXC 1,2 NO, INITIALIZE WORD AND (24)F0D04080 04604 0774 00 1 00006 AXT 6,1 CHARACTER POSITIONS FOR OP CODE SCAN (24)F0D04090 04605 -0500 00 0 04256 CAL BCDBF+1 CHECK FOR ASTERISK IN COLUMN 7 (UGH) (24)F0D04100 04606 -0765 00 0 00036 LGR 30 POSSIBLE IF IN IBSFAP MODE (24)F0D04110 04607 0322 00 0 06523 ERA ASTRK IS IT BY CHANCE (24)F0D04120 04610 0100 00 0 06317 TZE STP00 *CHECK MODE IF YES (24)F0D04130 REENTRY TO SCAN NEXT CHARACTER IN OP FIELD (24)F0D04135 04611 0634 00 2 04655 STP01 SXA STP06,2 STORE CURRENT WORD AND CHARACTER (24)F0D04140 04612 0634 00 1 04005 SXA NERAS,1 POSITIONS OF OP CODE SCAN (24)F0D04150 04613 0074 00 4 06240 TSX C019Q,4 *GO GET NEXT CHARACTER (24)F0D04160 04614 0402 00 0 06523 SUB ASTRK IS THIS * F0D04170 04615 -0100 00 0 04620 TNZ *+3 NO $F0D04180 04616 -0625 00 0 04013 STL INDFG YES, SET INDIRECT FLAG $F0D04190 04617 0020 00 0 04627 TRA STP02 $F0D04200 04620 0402 00 0 06412 SUB Q4 IS THIS BLANK $F0D04210 04621 0100 00 0 04633 TZE STP2A YES, END OF OPCODE (24)F0D04220 04622 0402 00 0 06531 SUB EQUAL NO, IS THIS , $F0D04230 04623 0100 00 0 04640 TZE STP03 YES, END OF OPCODE $F0D04240 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 10 COMMON SUBROUTINES, CONSTANTS AND ERASABLE BINARY CARD NO. 9F040023 04624 0402 00 0 06410 SUB Q1 NO, IS THIS ( $F0D04250 04625 0100 00 0 04641 TZE STP04 YES (24)F0D04260 04626 0600 00 0 04013 STZ INDFG NO, RESET INDIRECT FLAG $F0D04270 04627 3 77776 2 04611 STP02 TXH STP01,2,-2 ARE WE STILL IN CARD WORD 2 (24)F0D04280 04630 3 00004 1 04611 TXH STP01,1,4 NO, ARE WE PAST CC 14 (24)F0D04290 04631 0534 00 4 04676 LXA STUPX,4 YES, OP FIELD IS TOO LONG (24)F0D04300 04632 0020 00 4 00002 TRA 2,4 TAKE ERROR RETURN (24)F0D04310 REENTRY FOR OP CODE TERMINATED BY BLANK (24)F0D04320 04633 0074 00 4 06240 STP2A TSX C019Q,4 *OBTAIN NEXT CHARACTER (24)F0D04330 04634 0402 00 0 06522 SUB BLANK IS IT BLANK (24)F0D04340 04635 -0100 00 0 04643 TNZ STP05 NO, VARIABLE FIELD HAS BEGUN (24)F0D04350 04636 3 77776 2 04633 TXH STP2A,2,-2 YES, ARE WE PAST WORD 2 (24)F0D04355 04637 3 00004 1 04633 TXH STP2A,1,4 YES, IS NEXT COLUMN 16 (24)F0D04360 REENTRY FOR OP CODE TERMINATED BY , (24)F0D04370 04640 0074 00 4 06240 STP03 TSX C019Q,4 *INITIALIZE CHRCTR PROPERLY (24)F0D04380 REENTRY FOR OP CODE TERMINATED BY ( (24)F0D04390 04641 -3 77776 2 04643 STP04 TXL STP05,2,-2 ARE WE PAST WORD TWO (24)F0D04400 04642 3 00004 1 04611 TXH STP01,1,4 NO, ( IN CC 8 IS PART OF OP CODE (24)F0D04410 REENTRY FOR BEGINNING OF VARIABLE FIELD SENSED (24)F0D04420 04643 -0500 00 0 03755 STP05 CAL CHRCTR RELOAD BEGINNING CHARACTER (24)F0D04430 04644 -0765 00 0 00006 LGR 6 AND POSITION FOR SCAN (24)F0D04440 04645 -0600 00 0 03756 STQ RESIDU STORE SCAN WORD (24)F0D04450 04646 1 00001 1 04647 TXI *+1,1,1 BUMP CHARACTER POSITION BACK (24)F0D04460 04647 -0634 00 2 04012 SXD VRFLD,2 STORE WORD AND CHARACTER (24)F0D04470 04650 0634 00 1 04012 SXA VRFLD,1 POSITIONS BEGINNING VARIABLE FIELD (24)F0D04480 04651 0560 00 0 04005 LDQ NERAS LOAD CHARACTER POSITION OF OP FIELD (24)F0D04490 BINARY CARD NO. 9F040024 04652 0204 17 0 06424 VLM Q6,,15 END AND MULTIPLY BY 6 TO COMPUTE (24)F0D04500 04653 0763 00 0 00017 LLS 15 AMOUNT OF SHIFT (24)F0D04510 04654 0737 00 4 00000 PAC ,4 (24)F0D04520 04655 -0774 00 2 00000 STP06 AXC **,2 RELOAD WORD ENDING OP FIELD (24)F0D04530 04656 3 00001 2 04660 TXH *+2,2,1 WAS IT WORD TWO (24)F0D04540 04657 1 77734 4 04660 TXI *+1,4,-36 NO, BUMP SHIFT COUNT (24)F0D04550 04660 0520 00 0 04013 ZET INDFG WAS OPERATION INDIRECTLY ADDRESSED (24)F0D04560 04661 1 77772 4 04662 TXI STP07,4,-6 YES, ADJUST SHIFT COUNT TO OMIT * (24)F0D04570 04662 -0500 00 0 04256 STP07 CAL BCDBF+1 LOAD CARD WORDS TWO (24)F0D04580 04663 0560 00 0 04257 LDQ BCDBF+2 AND THREE (COLUMNS 7 THROUGH 18) (24)F0D04590 04664 -0765 00 4 77772 LGR -6,4 RIGHT ADJUST OPERATION CODE (24)F0D04600 04665 -0763 00 4 00000 LGL 0,4 THEN LEFT ADJUST IT (24)F0D04610 04666 -0100 00 0 04670 TNZ STP08 IF OPCODE IS NULL, (24)F0D04620 04667 -0500 00 0 06473 CAL BLNK3 RESET IT TO BLANKS (24)F0D04630 04670 0602 00 0 03763 STP08 SLW OPCOD STORE OPERATION CODE (24)F0D04640 04671 0322 00 0 06423 ERA DASTR DID IT COME OUT AS ** (24)F0D04650 04672 -0100 00 0 04675 TNZ STP09 NO, EXIT (24)F0D04660 04673 0600 00 0 04013 STZ INDFG YES, MUST HAVE BEEN *** (24)F0D04670 04674 1 00006 4 04662 TXI STP07,4,6 GO BACK TO READJUST IT (24)F0D04680 04675 -0534 00 2 04012 STP09 LXD VRFLD,2 RELOAD SCAN WORD POSITION (24)F0D04690 04676 0774 00 4 00000 STUPX AXT **,4 RELOAD CALLING LINKAGE (24)F0D04700 04677 0020 00 4 00003 TRA 3,4 (24)F0D04710 (24)F0D04720 THE FOLLOWING IS A PATCH TO SUBROUTINE SCANF (24)F0D04725 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 11 COMMON SUBROUTINES, CONSTANTS AND ERASABLE BINARY CARD NO. 9F040025 04700 0500 00 0 04037 RELFG CLA VARUC ARE THERE RELOCATION ERRORS (24)F0D04730 04701 0100 00 0 04703 TZE *+2 IGNORE -0 (24)F0D04740 04702 -0120 00 0 05234 TMI SCN12+5 COMPLEMENT OF COMMON ELEMENT (24)F0D04750 04703 0500 00 0 04040 CLA VARUR (24)F0D04760 04704 0100 00 0 04706 TZE *+2 IGNORE -0 (24)F0D04770 04705 -0120 00 0 05234 TMI SCN12+5 COMPLEMENT OF RELOCATABLE ELEMENT (24)F0D04780 04706 0020 00 0 05230 TRA SCN12+1 (24)F0D04790 F0D04800 FIND BINARY MACHINE OPERATION FOR BCD OPCODE F0D04810 04707 0634 00 4 04722 SOPTB SXA SOPTX,4 SAVE CALLING LINKAGE F0D04820 04710 0774 00 1 00000 AXT 0,1 LOAD LOCATION OF FIRST NAME IN TABLE F0D04830 04711 0534 00 2 17267 LXA OPTSIZ,2 LOAD LOGARITHM OF TABLE LENGTH F0D04840 04712 0074 00 4 04765 TSX LOWER,4 *EXECUTE BINARY SEARCH F0D04850 F0D04860 04713 0020 00 0 04724 TRA SOPTX+2 NOT FOUND F0D04870 04714 -3 00000 1 04720 SOPT1 TXL *+4,1,** IS SEARCH PAST UPPER END OF TABLE F0D04880 04715 -0340 00 1 17266 LAS OPTTBL-2,1 NO, IS IT THIS OPCODE F0D04890 04716 1 77776 2 04765 TXI LOWER,2,-2 NO, LARGER - GO LOOK HIGHER F0D04900 04717 0020 00 0 04721 TRA *+2 YES F0D04910 04720 1 77776 2 04764 TXI RAISE,2,-2 NO, SMALLER - GO LOOK LOWER F0D04920 OPCODE FOUND IN TABLE F0D04930 04721 0441 00 1 17267 LDI OPTTBL-1,1 LOAD OPERATION DEFINITION F0D04940 04722 0774 00 4 00000 SOPTX AXT **,4 RELOAD CALLING LINKAGE F0D04950 04723 0020 00 4 00002 TRA 2,4 F0D04960 OPCODE NOT FOUND IN TABLE F0D04970 04724 0534 00 4 04722 LXA SOPTX,4 RELOAD CALLING LINKAGE F0D04980 04725 0020 00 4 00001 TRA 1,4 F0D04990 F0D05000 BINARY CARD NO. 9F040026 04726 1 40000 1 04766 TXI BSRCH,1,+16384 F0D05010 04727 1 40000 1 04766 TXI BSRCH,1,-16384 F0D05020 04730 1 20000 1 04766 TXI BSRCH,1,+8192 F0D05030 04731 1 60000 1 04766 TXI BSRCH,1,-8192 F0D05040 04732 1 10000 1 04766 TXI BSRCH,1,+4096 F0D05050 04733 1 70000 1 04766 TXI BSRCH,1,-4096 F0D05060 04734 1 04000 1 04766 TXI BSRCH,1,+2048 F0D05070 04735 1 74000 1 04766 TXI BSRCH,1,-2048 F0D05080 04736 1 02000 1 04766 TXI BSRCH,1,+1024 F0D05090 04737 1 76000 1 04766 TXI BSRCH,1,-1024 F0D05100 04740 1 01000 1 04766 TXI BSRCH,1,+512 F0D05110 04741 1 77000 1 04766 TXI BSRCH,1,-512 F0D05120 04742 1 00400 1 04766 TXI BSRCH,1,+256 F0D05130 04743 1 77400 1 04766 TXI BSRCH,1,-256 F0D05140 04744 1 00200 1 04766 TXI BSRCH,1,+128 F0D05150 04745 1 77600 1 04766 TXI BSRCH,1,-128 F0D05160 04746 1 00100 1 04766 TXI BSRCH,1,+64 F0D05170 04747 1 77700 1 04766 TXI BSRCH,1,-64 F0D05180 04750 1 00040 1 04766 TXI BSRCH,1,+32 F0D05190 04751 1 77740 1 04766 TXI BSRCH,1,-32 F0D05200 04752 1 00020 1 04766 TXI BSRCH,1,+16 F0D05210 04753 1 77760 1 04766 TXI BSRCH,1,-16 F0D05220 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 12 COMMON SUBROUTINES, CONSTANTS AND ERASABLE BINARY CARD NO. 9F040027 04754 1 00010 1 04766 TXI BSRCH,1,+8 F0D05230 04755 1 77770 1 04766 TXI BSRCH,1,-8 F0D05240 04756 1 00004 1 04766 TXI BSRCH,1,+4 F0D05250 04757 1 77774 1 04766 TXI BSRCH,1,-4 F0D05260 04760 1 00002 1 04766 TXI BSRCH,1,+2 F0D05270 04761 1 77776 1 04766 TXI BSRCH,1,-2 F0D05280 04762 0020 00 4 00001 TRA 1,4 NOT FOUND F0D05290 04763 0020 00 4 00001 TRA 1,4 NOT FOUND F0D05300 04764 0020 00 2 04764 RAISE TRA *,2 F0D05310 04765 0020 00 2 04765 LOWER TRA *,2 F0D05320 04766 0020 00 4 00002 BSRCH TRA 2,4 LOOK FURTHER F0D05330 F0D05340 EVALUATE NEXT EXPRESSION IN VARIABLE FIELD F0D05350 04767 0634 00 4 05261 SCANF SXA SCANX,4 SAVE CALLING LINKAGE F0D05360 04770 0600 00 0 04033 STZ TRMEQ RESET VALUE OF FIRST TERM IN EXPRESSION F0D05370 04771 0600 00 0 04034 STZ TRMUN RESET UNITS OF TERM F0D05380 04772 0600 00 0 04035 STZ TRMUF RESET FLAG FOR TYPE OF UNITS TO ABSOLUTE F0D05390 04773 0600 00 0 04036 STZ VAREQ RESET VALUE OF EXPRESSION F0D05400 04774 0600 00 0 04040 STZ VARUR RESET NUMBER OF RELOCATABLE SYMBOLS F0D05410 04775 0600 00 0 04037 STZ VARUC RESET NUMBER OF COMMON SYMBOLS F0D05420 04776 0600 00 0 04014 STZ RBITS RESET RELOCATION BITS F0D05430 04777 0600 00 0 04051 STZ SCNBE RESET FLAG FOR BOOLEAN ERA F0D05440 05000 -0500 00 0 03755 CAL CHRCTR LOAD FIRST CHARACTER IN NEXT EXPRESSION F0D05450 05001 0322 00 0 06522 ERA BLANK IS IT END OF VARIABLE FIELD F0D05460 BINARY CARD NO. 9F040028 05002 -0100 00 0 05005 TNZ *+3 NO F0D05470 05003 0600 00 0 04044 STZ BOLMD YES, RESET BOOLEAN FLAG F0D05480 05004 0020 00 4 00001 TRA 1,4 RETURN ON VACUUOUS FIELD F0D05490 05005 -0774 00 4 05120 AXC SCADD,4 NO, INITIALIZE OPERATION SWITCH FOR F0D05500 05006 -0634 00 4 05344 SXD OPSW1,4 FOLLOWING ELEMENT TO ADD F0D05510 05007 0020 00 0 05015 TRA SCN01+5 F0D05520 REENTRY TO EVALUATE NEXT ELEMENT F0D05530 05010 -0520 00 0 04023 SCN01 NZT TVFLG IS THIS CALL SUBPROGRAM NAME F0D05540 05011 0020 00 0 05015 TRA *+4 NO F0D05550 05012 0074 00 4 06211 TSX SCEND,4 YES, SKIP TO END OF EXPRESSION F0D05560 05013 -0625 00 0 04125 STL ERRFF SET ERROR FLAG F0D05570 05014 0020 00 0 05255 TRA SCN14 F0D05580 05015 -0625 00 0 04052 STL SCNFC SET FLAG FOR FIRST CHARACTER IN ELEMENT F0D05590 05016 0600 00 0 04050 STZ SCNBC RESET FLAG FOR BOOLEAN COM F0D05600 05017 -0500 00 0 03776 CAL BHEAD SET HEADING CHARACTER F0D05610 05020 0520 00 0 04023 ZET TVFLG IS THIS CALL SUBPROGRAM NAME F0D05620 05021 -0754 00 0 00000 PXD ,0 YES, DELETE HEADING CHARACTER F0D05630 05022 0020 00 0 05024 TRA SCN02+1 F0D05640 REENTRY FOR $ REHEADING CHARACTER F0D05650 05023 0020 00 0 07121 SCN02 TRA DLRUT DOLLAR SIGN TEST $F0D05660 05024 0602 00 0 03777 SLW THEAD F0D05670 05025 0600 00 0 04030 STZ ELMEQ RESET VALUE OF ELEMENT F0D05680 05026 0600 00 0 04031 STZ ELMUN RESET UNITS OF ELEMENT F0D05690 05027 0600 00 0 04032 STZ ELMUF RESET FLAG FOR TYPE OF UNITS TO ABSOLUTE F0D05700 BINARY CARD NO. 9F040029 05030 0020 00 0 05032 TRA SCN03+1 F0D05710 REENTRY FOR BOOLEAN UNARY / F0D05720 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 13 COMMON SUBROUTINES, CONSTANTS AND ERASABLE 05031 -0625 00 0 04050 SCN03 STL SCNBC SET FLAG TO COMPLEMENT NEXT ELEMENT F0D05730 REENTRY TO ASSEMBLE SYMBOL F0D05740 05032 0074 00 4 06126 TSX SSCAN,4 *ASSEMBLE ELEMENT F0D05750 05033 0020 00 0 05272 TRA EVALE *END OF VARIABLE FIELD F0D05760 05034 -0760 00 0 00142 SLT EXPND DID FIELD END WITH COMMA OR BLANK F0D05770 05035 0734 00 4 00000 PAX ,4 NO, LOAD PUNCTUATION CHARACTER F0D05780 05036 -3 00020 4 05120 TXL SCADD,4,16 + OPERATION IS ADD F0D05790 05037 -3 00040 4 05124 TXL SCSUB,4,32 - OPERATION IS SUBTRACT F0D05800 05040 -3 00053 4 05023 TXL SCN02,4,43 $ RESET HEADING CHARACTER F0D05810 05041 -3 00054 4 05052 TXL SCN05,4,44 * OPERATION MAY BE MULTIPLY F0D05820 05042 -3 00061 4 05044 TXL SCN04,4,49 / OPERATION MAY BE DIVIDE F0D05830 05043 0020 00 0 05272 TRA EVALE *PUNCTUATION WAS COMMA OR BLANK F0D05840 CHARACTER IS / F0D05850 05044 -0520 00 0 04052 SCN04 NZT SCNFC IS THIS FIRST CHARACTER IN ELEMENT F0D05860 05045 0020 00 0 05061 TRA SCDIV NO, IT IS DIVIDE OR BINARY NOT OPERATION F0D05870 05046 0600 00 0 04052 STZ SCNFC YES, RESET FLAG F0D05880 05047 0520 00 0 04044 ZET BOLMD IS FIELD BOOLEAN F0D05890 05050 0020 00 0 05031 TRA SCN03 YES, IT IS UNARY NOT OPERATION F0D05900 05051 0020 00 0 05061 TRA SCDIV NO F0D05910 CHARACTER IS * F0D05920 05052 -0520 00 0 04052 SCN05 NZT SCNFC IS THIS FIRST CHARACTER IN ELEMENT F0D05930 05053 0020 00 0 05100 TRA SCMPY NO, IT IS MULTIPLY OPERATION F0D05940 05054 0600 00 0 04052 STZ SCNFC YES, RESET FLAG F0D05950 05055 0602 00 0 04001 SLW SYMBL CHARACTER IS PROGRAM COUNTER F0D05960 BINARY CARD NO. 9F040030 05056 0074 00 4 06133 TSX SSCET,4 *FIND OPERATION F0D05970 05057 1 00000 0 05272 TXI EVALE,,0 NO OPERATION FOLLOWS F0D05980 05060 0020 00 0 05034 TRA SCN03+3 F0D05990 F0D06000 ENTRY POINTS TO EVALUATE ELEMENT ASSEMBLED ABOVE. F0D06010 RETURN FROM EVALF IS TO OPERATION PRECEDING ELEMENT. F0D06020 RETURN TO PRESENT OPERATION IS AFTER FOLLOWING ELEMENT F0D06030 HAS BEEN EVALUATED. F0D06040 05061 0074 00 4 05273 SCDIV TSX EVALF,4 *EVALUATE PRECEDING ELEMENT F0D06050 F0D06060 05062 0020 00 0 05170 TRA BLDIV EXPRESSION IS BOOLEAN F0D06070 05063 0500 00 0 04033 CLA TRMEQ LOAD PARTIAL TERM F0D06080 05064 0765 00 0 00043 LRS 35 F0D06090 05065 -0520 00 0 04030 NZT ELMEQ IS ELEMENT UNDEFINED OR ZERO F0D06100 05066 0020 00 0 05072 TRA *+4 YES, ASSUME ELEMENT 1 F0D06110 05067 0221 00 0 04030 DVP ELMEQ NO, COMBINE WITH FOLLOWING ELEMENT F0D06120 05070 0760 00 0 00012 DCT DID DIVIDE FAIL F0D06130 05071 0074 00 4 06312 TSX MACERR,4 **YES F0D06140 05072 -0600 00 0 04033 STQ TRMEQ SAVE PARTIAL TERM F0D06150 05073 -0600 00 0 04034 STQ TRMUN SAVE COEFFICIENT OF SYMBOLS F0D06160 05074 -0520 00 0 04035 NZT TRMUF IS TERM ABSOLUTE F0D06170 05075 0520 00 0 04032 ZET ELMUF YES, IS ELEMENT ABSOLUTE F0D06180 05076 0020 00 0 05113 TRA SCMP1 **NO, SET ERROR FLAGS F0D06190 05077 0020 00 0 05173 TRA SCN10 F0D06200 F0D06210 05100 0074 00 4 05273 SCMPY TSX EVALF,4 *EVALUATE PRECEDING ELEMENT F0D06220 F0D06230 05101 0020 00 0 05165 TRA BLMPY EXPRESSION IS BOOLEAN F0D06240 05102 0560 00 0 04033 LDQ TRMEQ COMBINE PARTIAL TERM F0D06250 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 14 COMMON SUBROUTINES, CONSTANTS AND ERASABLE 05103 0200 00 0 04030 MPY ELMEQ WITH FOLLOWING ELEMENT F0D06260 BINARY CARD NO. 9F040031 05104 -0600 00 0 04033 STQ TRMEQ SAVE PARTIAL TERM MOD 2**35 F0D06270 05105 0560 00 0 04034 LDQ TRMUN COMBINE COEFFICIENT FOR TERM F0D06280 05106 0200 00 0 04031 MPY ELMUN WITH COEFFICIENT FOR FOLLOWING ELEMENT F0D06290 05107 -0600 00 0 04034 STQ TRMUN SAVE COEFFICIENT MOD 2**35 F0D06300 05110 0520 00 0 04035 ZET TRMUF IS TERM ABSOLUTE F0D06310 05111 -0520 00 0 04032 NZT ELMUF NO, IS ELEMENT ABSOLUTE F0D06320 05112 0020 00 0 05115 TRA *+3 YES F0D06330 REENTRY AFTER RELOCATION ERROR ON DIVIDE F0D06340 05113 0760 00 0 00141 SCMP1 SLN EXPRR NO, SET ERROR FLAGS F0D06350 05114 -0625 00 0 04111 STL ERRFR F0D06360 05115 -0500 00 0 04032 CAL ELMUF SET COMMON OR RELOCATABLE FLAG FOR ELEMENTF0D06370 05116 -0602 00 0 04035 ORS TRMUF INTO FLAG FOR TERM (AT LEAST ONE IS ZERO) F0D06380 05117 0020 00 0 05173 TRA SCN10 F0D06390 F0D06400 05120 0074 00 4 05273 SCADD TSX EVALF,4 *EVALUATE PRECEDING ELEMENT F0D06410 F0D06420 05121 0020 00 0 05155 TRA BLADD EXPRESSION IS BOOLEAN F0D06430 05122 0500 00 0 04030 CLA ELMEQ LOAD VALUE OF FOLLOWING ELEMENT F0D06440 05123 0020 00 0 05131 TRA SCSB1 F0D06450 F0D06460 05124 0074 00 4 05273 SCSUB TSX EVALF,4 *EVALUATE PRECEDING ELEMENT F0D06470 F0D06480 05125 0020 00 0 05157 TRA BLSUB EXPRESSION IS BOOLEAN F0D06490 05126 0502 00 0 04031 CLS ELMUN INVERT COEFFICIENT FOR FOLLOWING ELEMENT F0D06500 05127 0601 00 0 04031 STO ELMUN F0D06510 05130 0502 00 0 04030 CLS ELMEQ INVERT VALUE OF FOLLOWING ELEMENT F0D06520 REENTRY FOR ADD F0D06530 05131 0131 00 0 00000 SCSB1 XCA HOLD FOLLOWING ELEMENT F0D06540 BINARY CARD NO. 9F040032 05132 0500 00 0 04036 CLA VAREQ COMBINE VALUE OF PARTIAL EXPRESSION F0D06550 05133 0400 00 0 04033 ADD TRMEQ WITH PRECEDING TERM F0D06560 05134 0601 00 0 04036 STO VAREQ F0D06570 05135 -0600 00 0 04033 STQ TRMEQ INITIALIZE FOLLOWING TERM TO VALUE OF ELEMF0D06580 05136 0500 00 0 04035 CLA TRMUF LOAD FLAG FOR UNITS OF TERM F0D06590 05137 0100 00 0 05150 TZE SCSB3 IS TERM ABSOLUTE F0D06600 05140 -0120 00 0 05145 TMI SCSB2 NO, IS TERM COMMON F0D06610 05141 0500 00 0 04040 CLA VARUR NO, BUMP NUMBER OF RELOCATABLE SYMBOLS F0D06620 05142 0400 00 0 04034 ADD TRMUN BY COEFFICIENT OF TERM F0D06630 05143 0601 00 0 04040 STO VARUR F0D06640 05144 0020 00 0 05150 TRA SCSB3 F0D06650 TERM IS COMMON F0D06660 05145 0500 00 0 04037 SCSB2 CLA VARUC BUMP NUMBER OF COMMON SYMBOLS F0D06670 05146 0400 00 0 04034 ADD TRMUN BY COEFFICIENT OF TERM F0D06680 05147 0601 00 0 04037 STO VARUC F0D06690 REENTRY FOR ABSOLUTE OR RELOCATABLE TERM F0D06700 05150 0500 00 0 04031 SCSB3 CLA ELMUN INITIALIZE COEFFICIENT OF FOLLOWING TERM F0D06710 05151 0601 00 0 04034 STO TRMUN TO COEFFICIENT OF FIRST ELEMENT F0D06720 05152 -0500 00 0 04032 CAL ELMUF INITIALIZE FLAG FOR UNITS OF TERM F0D06730 05153 0602 00 0 04035 SLW TRMUF TO FLAG FOR UNITS OF FIRST ELEMENT F0D06740 05154 0020 00 0 05173 TRA SCN10 F0D06750 F0D06760 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 15 COMMON SUBROUTINES, CONSTANTS AND ERASABLE 05155 0074 00 4 05263 BLADD TSX BLERA,4 *EVALUATE POSSIBLE ERA F0D06770 05156 0020 00 0 05161 TRA BLSUB+2 F0D06780 F0D06790 05157 0074 00 4 05263 BLSUB TSX BLERA,4 *EVALUATE POSSIBLE ERA F0D06800 BINARY CARD NO. 9F040033 05160 -0625 00 0 04051 STL SCNBE SET FLAG TO COMPLEMENT FOLLOWING ELEMENT F0D06810 05161 0602 00 0 04036 SLW VAREQ SAVE PARTIAL VALUE OF EXPRESSION F0D06820 05162 -0500 00 0 04030 CAL ELMEQ INITIALIZE NEXT TERM TO VALUE OF F0D06830 05163 0602 00 0 04033 SLW TRMEQ FIRST ELEMENT F0D06840 05164 0020 00 0 05173 TRA SCN10 F0D06850 F0D06860 05165 -0500 00 0 04030 BLMPY CAL ELMEQ MASK (AND) PARTIAL VALUE OF EXPRESSION F0D06870 05166 0320 00 0 04033 ANS TRMEQ WITH VALUE OF ELEMENT F0D06880 05167 0020 00 0 05173 TRA SCN10 F0D06890 F0D06900 05170 -0500 00 0 04030 BLDIV CAL ELMEQ OPERATION IS BINARY NOT F0D06910 05171 0760 00 0 00006 COM COMPLEMENT ELEMENT F0D06920 05172 0320 00 0 04033 ANS TRMEQ MASK PARTIAL VALUE OF EXPRESSION F0D06930 F0D06940 ELEMENT HAS BEEN EVALUATED F0D06950 05173 -0760 00 0 00142 SCN10 SLT EXPND WAS THIS END OF EXPRESSION F0D06960 05174 0020 00 0 05010 TRA SCN01 NO F0D06970 END OF EXPRESSION F0D06980 05175 -0520 00 0 04044 NZT BOLMD IS EXPRESSION BOOLEAN F0D06990 05176 0020 00 0 05201 TRA *+3 NO F0D07000 05177 0074 00 4 05263 TSX BLERA,4 *YES, EVALUATE POSSIBLE ERA F0D07010 05200 0020 00 0 05207 TRA SCN11 F0D07020 05201 0500 00 0 04036 CLA VAREQ COMBINE PARTIAL VALUE OF EXPRESSION F0D07030 05202 0400 00 0 04033 ADD TRMEQ WITH FINAL TERM F0D07040 05203 0601 00 0 04036 STO VAREQ F0D07050 05204 -0500 00 0 06472 CAL P4 COMPLEMENT IF NEGATIVE F0D07060 05205 0767 00 0 00001 ALS 1 F0D07070 BINARY CARD NO. 9F040034 05206 0400 00 0 04036 ADD VAREQ F0D07080 REENTRY FOR BOOLEAN EXPRESSION F0D07090 05207 0520 00 0 04054 SCN11 ZET VFDMD IS THIS EXPRESSION PART OF VFD F0D07100 05210 0020 00 0 05214 TRA *+4 YES, KEEP ENTIRE WORD F0D07110 05211 -0320 00 0 06452 ANA ADTMK NO, MASK IN FINAL 18 BITS F0D07120 05212 -0520 00 0 04044 NZT BOLMD IS EXPRESSION BOOLEAN F0D07130 05213 -0320 00 0 06444 ANA ADDMK NO, MASK IN FINAL 15 BITS F0D07140 05214 0602 00 0 04036 SLW VAREQ SAVE F0D07150 05215 0500 00 0 04035 CLA TRMUF LOAD FLAG FOR TERM UNITS F0D07160 05216 0100 00 0 05227 TZE SCN12 IS EXPRESSION ABSOLUTE F0D07170 05217 -0120 00 0 05224 TMI *+5 NO, IS EXPRESSION COMMON F0D07180 05220 0500 00 0 04040 CLA VARUR NO, BUMP NUMBER OF RELOCATABLE SYMBOLS F0D07190 05221 0400 00 0 04034 ADD TRMUN BY COEFFICIENT OF LAST TERM F0D07200 05222 0601 00 0 04040 STO VARUR F0D07210 05223 0020 00 0 05227 TRA SCN12 F0D07220 05224 0500 00 0 04037 CLA VARUC BUMP NUMBER OF COMMON SYMBOLS F0D07230 05225 0400 00 0 04034 ADD TRMUN BY COEFFICIENT OF LAST TERM F0D07240 05226 0601 00 0 04037 STO VARUC F0D07250 REENTRY FOR ABSOLUTE OR RELOCATABLE TERM F0D07260 05227 0020 00 0 04700 SCN12 TRA RELFG CHECK FOR RELOCATION ERROR $F0D07270 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 16 COMMON SUBROUTINES, CONSTANTS AND ERASABLE 05230 0400 00 0 04037 ADD VARUC NUMBER OF RELOCATABLE AND COMMON SYMBOLS $F0D07280 05231 0100 00 0 05247 TZE SCN13 IS COEFFICIENT ZERO F0D07290 05232 0402 00 0 06410 SUB Q1 NO, IS COEFFICIENT 1 F0D07300 05233 0100 00 0 05236 TZE *+3 YES F0D07310 BINARY CARD NO. 9F040035 05234 0760 00 0 00141 SLN EXPRR NO, SET ERROR FLAGS F0D07320 05235 -0625 00 0 04111 STL ERRFR F0D07330 05236 -0500 00 0 04036 CAL VAREQ COMPUTE RELATIVE POSITION F0D07340 05237 -0320 00 0 06444 ANA ADDMK OF EXPRESSION ABOVE OR BELOW F0D07350 05240 0402 00 0 03753 SUB PRGBK PROGRAM BREAK F0D07360 05241 0520 00 0 04037 ZET VARUC IS EXPRESSION IN COMMON F0D07370 05242 0760 00 0 00002 CHS YES, INVERT RELATIVE POSITION F0D07380 05243 0774 00 4 00002 AXT 2,4 SET EXPRESSION DIRECTLY RELOCATABLE F0D07390 05244 -0120 00 0 05246 TMI *+2 IS EXPRESSION DIRECTLY RELOCATABLE F0D07400 05245 0774 00 4 00003 AXT 3,4 NO, SET EXPRESSION COMPLEMENT RELOCATABLE F0D07410 05246 0634 00 4 04014 SXA RBITS,4 F0D07420 05247 0020 00 0 05251 SCN13 TRA *+2 $F0D07430 CONSTANT FOR BCDCV CONVERSION ROUTINE (25)F0D07435 05250 +000000303240 TEN5TH DEC 100000 (25)F0D07440 05251 -0500 00 0 04036 CAL VAREQ YES, LOAD LOGICAL VALUE OF EXPRESSION F0D07450 05252 0600 00 0 04044 STZ BOLMD RESET BOOLEAN MODE FLAG F0D07460 05253 -0760 00 0 00141 SLT EXPRR WAS ERROR FOUND IN THIS EXPRESSION F0D07470 05254 0020 00 0 05261 TRA SCANX NO F0D07480 05255 0760 00 0 00141 SCN14 SLN EXPRR YES, RESET ERROR FLAG F0D07490 05256 0600 00 0 04014 STZ RBITS DELETE RELOCATION BITS F0D07500 05257 -0754 00 0 00000 PXD ,0 DELETE VALUE OF SYMBOL F0D07510 05260 0600 00 0 04036 STZ VAREQ F0D07520 05261 0774 00 4 00000 SCANX AXT **,4 RELOAD CALLING LINKAGE F0D07530 BINARY CARD NO. 9F040036 05262 0020 00 4 00002 TRA 2,4 F0D07540 F0D07550 EVALUATE BOOLEAN EXPRESSION F0D07560 05263 -0500 00 0 04033 BLERA CAL TRMEQ LOAD FOLLOWING TERM F0D07570 05264 -0520 00 0 04051 NZT SCNBE IS OPERATION ERA F0D07580 05265 -0501 00 0 04036 ORA VAREQ NO, COMBINE WITH PARTIAL TERM F0D07590 05266 0520 00 0 04051 ZET SCNBE IS OPERATION ERA F0D07600 05267 0322 00 0 04036 ERA VAREQ YES, MASK PARTIAL VALUE OF EXPRESSION F0D07610 05270 0600 00 0 04051 STZ SCNBE RESET FLAG F0D07620 05271 0020 00 4 00001 TRA 1,4 F0D07630 F0D07640 EVALUATE SYMBOL PRECEDING OPERATION, OR END OF EXPRESSIONF0D07650 05272 0760 00 0 00142 EVALE SLN EXPND SET END OF EXPRESSION FLAG F0D07660 05273 -0634 00 4 05360 EVALF SXD OPSW2,4 SAVE CALLING LINKAGE (OP FOLLOWING SYMBOL)F0D07670 05274 -0500 00 0 04001 CAL SYMBL LOAD LOW ORDER PORTION OF ELEMENT F0D07680 05275 -0340 00 0 06523 LAS ASTRK IS IT * F0D07690 05276 0020 00 0 05300 TRA *+2 NO F0D07700 05277 0020 00 0 05316 TRA EVAL1 YES, CURRENT CONTENTS OF LOCATION COUNTER F0D07710 05300 -0501 00 0 04000 ORA SYMB2 COMBINE LOW AND HIGH ORDER PORTIONS F0D07720 05301 -0320 00 0 04176 ANA BLANKS IS ELEMENT NUMERIC F0D07730 05302 0100 00 0 05350 TZE EVAL3 YES F0D07740 05303 0520 00 0 04000 ZET SYMB2 NO, IS SYMBOL NAME LONGER THAN 6 CHARACTERF0D07750 05304 -0625 00 0 04115 STL ERRFE YES F0D07760 05305 0560 00 0 04001 LDQ SYMBL LOAD SYMBOL NAME F0D07770 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 17 COMMON SUBROUTINES, CONSTANTS AND ERASABLE 05306 -0754 00 0 00000 PXD ,0 F0D07780 05307 -0763 00 0 00006 LGL 6 LOAD FIRST CHARACTER F0D07790 BINARY CARD NO. 9F040037 05310 -0100 00 0 05312 TNZ *+2 IS SYMBOL NAME SHORTER THAN 6 CHARACTERS F0D07800 05311 -0500 00 0 03777 CAL THEAD YES, APPEND CURRENT HEADING CHARACTER F0D07810 05312 -0763 00 0 00036 LGL 30 F0D07820 05313 0602 00 0 04001 SLW SYMBL SAVE F0D07830 05314 0074 00 4 07152 TSX SSYMT,4 *EVALUATE SYMBOL F0D07840 05315 0020 00 0 05321 TRA EVAL1+3 F0D07850 SYMBOL IS * F0D07860 05316 0500 00 0 03761 EVAL1 CLA LOCTR LOAD CURRENT PROGRAM COUNTER F0D07870 05317 0520 00 0 04044 ZET BOLMD IS EXPRESSION BOOLEAN F0D07880 05320 -0754 00 0 00000 PXD ,0 YES, ASSUME IT IS AN OPERATOR F0D07890 WITH NO PRECEDENT OPERAND F0D07900 REENTRY FOR DEFINED SYMBOL F0D07910 05321 0621 00 0 04030 STA ELMEQ DEFINE THIS ELEMENT F0D07920 05322 0520 00 0 04044 ZET BOLMD IS EXPRESSION BOOLEAN F0D07930 05323 0020 00 0 05335 TRA EVAL2 YES F0D07940 05324 0771 00 0 00022 ARS 18 NO, SHIFT UP RELOCATION BITS F0D07950 05325 -0320 00 0 06422 ANA Q3 DELETE EXTRANEOUS FLAGS F0D07960 05326 0402 00 0 06410 SUB Q1 IS ELEMENT ABSOLUTE F0D07970 05327 -0120 00 0 05363 TMI EVAL5 YES F0D07980 05330 -0760 00 0 00003 SSM NO, SET ELEMENT COMMON F0D07990 05331 -0100 00 0 05333 TNZ *+2 IS ELEMENT COMMON F0D08000 05332 0500 00 0 06410 CLA Q1 NO, RESET ELEMENT RELOCATABLE F0D08010 05333 0601 00 0 04032 STO ELMUF SAVE ELEMENT UNIT FLAG F0D08020 05334 0020 00 0 05364 TRA EVAL5+1 F0D08030 SYMBOL IS BOOLEAN F0D08040 05335 0044 00 0 00000 EVAL2 PAI LOAD RELOCATION BITS F0D08050 BINARY CARD NO. 9F040038 05336 -0054 00 000003 LFT 3 IS SYMBOL ABSOLUTE F0D08060 05337 0020 00 0 05345 TRA EVLBR **NO F0D08070 05340 -0320 00 0 06452 ANA ADTMK DELETE EXTRANEOUS FLAGS F0D08080 05341 0520 00 0 04050 ZET SCNBC IS ELEMENT COMPLEMENTABLE F0D08090 05342 0760 00 0 00006 COM YES, FLATTER IT F0D08100 05343 0602 00 0 04030 SLW ELMEQ DEFINE ELEMENT F0D08110 05344 1 00000 0 05365 OPSW1 TXI EVAL5+2,,** (RETURN FOR OPERATION PRECEDING ELEMENT) F0D08120 ERROR ON BOOLEAN SYMBOL F0D08130 05345 0760 00 0 00141 EVLBR SLN EXPRR SET ERROR FLAGS F0D08140 05346 -0625 00 0 04116 STL ERRFB F0D08150 05347 0020 00 0 05365 TRA EVAL5+2 F0D08160 ELEMENT IS NUMERIC F0D08170 05350 -0520 00 0 04044 EVAL3 NZT BOLMD IS ELEMENT BOOLEAN F0D08180 05351 -3 00000 0 05361 TXL EVAL4,,0 NO, IS ELEMENT UNDER OCTAL QUALIFIER F0D08190 (SWITCH SET BY SAK) F0D08200 05352 0074 00 4 06030 TSX OCTSV,4 *YES, CONVERT SYMBOL FROM OCTAL F0D08210 05353 0520 00 0 04050 ZET SCNBC IS ELEMENT COMPLEMENTABLE F0D08220 05354 0760 00 0 00006 COM YES F0D08230 05355 0602 00 0 04030 SLW ELMEQ SAVE ELEMENT F0D08240 05356 -0520 00 0 04044 NZT BOLMD IS ELEMENT BOOLEAN F0D08250 05357 0020 00 0 05363 TRA EVAL5 NO, SET RELOCATION UNITS FOR OCTAL INTEGERF0D08260 05360 1 00000 0 05365 OPSW2 TXI EVAL5+2,,** (RETURN FOR OPERATION FOLLOWING ELEMENT) F0D08270 EVALUATE DECIMAL INTEGER F0D08280 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 18 COMMON SUBROUTINES, CONSTANTS AND ERASABLE 05361 0074 00 4 06056 EVAL4 TSX DECSV,4 *CONVERT SYMBOL FROM DECIMAL F0D08290 05362 0601 00 0 04030 STO ELMEQ SAVE F0D08300 REENTRY FOR ABSOLUTE SYMBOL OR DECIMAL INTEGER F0D08310 05363 -0500 00 0 04030 EVAL5 CAL ELMEQ SET VALUE OF ELEMENT F0D08320 REENTRY FOR COMMON OR RELOCATABLE SYMBOL F0D08330 BINARY CARD NO. 9F040039 05364 0602 00 0 04031 SLW ELMUN AS COEFFICIENT OF ELEMENT F0D08340 REENTRY FOR BOOLEAN SYMBOL OR OCTAL INTEGER F0D08350 05365 -0534 00 4 05344 LXD OPSW1,4 LOAD TRANSFER FOR OP PRECEDING ELEMENT F0D08360 05366 -0500 00 0 05360 CAL OPSW2 RESET TRANSFER TO OP PRECEDING F0D08370 05367 0622 00 0 05344 STD OPSW1 FOLLOWING ELEMENT F0D08380 05370 0520 00 0 04044 ZET BOLMD IS EXPRESSION BOOLEAN F0D08390 05371 0020 00 4 00001 TRA 1,4 YES, TAKE BOOLEAN RETURN F0D08400 05372 0020 00 4 00002 TRA 2,4 NO F0D08410 F0D08420 CONVERT UP TO 12 DIGIT SIGNED OCTAL INTEGER TO BINARY F0D08430 05373 0634 00 4 05652 OCTCV SXA DECCX,4 SAVE CALLING LINKAGE F0D08440 05374 0600 00 0 04005 STZ NERAS CLEAR WORKING CELL F0D08450 05375 0074 00 4 06250 TSX C019A,4 *LOOK AT FIRST CHARACTER F0D08460 05376 0402 00 0 06527 SUB PLUSS IS IT + F0D08470 05377 0100 00 0 05404 TZE OCT01 YES, IGNORE IT F0D08480 05400 0402 00 0 06527 SUB PLUSS NO, IS IT - F0D08490 05401 -0100 00 0 05405 TNZ OCT01+1 NO F0D08500 05402 -0500 00 0 06472 CAL P4 YES, SET P BIT F0D08510 05403 0602 00 0 04005 SLW NERAS F0D08520 REENTRY TO DELETE SIGN F0D08530 05404 0074 00 4 06237 OCT01 TSX C0190,4 *DELETE SIGN F0D08540 REENTRY FOR NO PRECEDING SIGN F0D08550 05405 0074 00 4 06126 TSX SSCAN,4 *ASSEMBLE INTEGER F0D08560 05406 1 00000 0 05415 TXI OCT02,,0 NULL INTEGER F0D08570 05407 -0760 00 0 00142 SLT EXPND DID INTEGER END WITH COMMA OR BLANK F0D08580 05410 0020 00 0 05420 TRA OCTRR NO F0D08590 05411 0074 00 4 06030 TSX OCTSV,4 *YES, CONVERT TO BINARY F0D08600 BINARY CARD NO. 9F040040 05412 -0760 00 0 00141 SLT EXPRR IS INTEGER IN ERROR F0D08610 05413 -0501 00 0 04005 ORA NERAS NO, APPEND SIGN F0D08620 05414 0020 00 0 05652 TRA DECCX F0D08630 NULL INTEGER F0D08640 05415 0760 00 0 00144 OCT02 SLN FLDND SET END OF VARIABLE FIELD FLAG F0D08650 05416 -0501 00 0 04005 ORA NERAS APPEND SIGN F0D08660 05417 0020 00 0 05652 TRA DECCX F0D08670 ERROR ON OCTAL NUMBER F0D08680 05420 -0625 00 0 04116 OCTRR STL ERRFB SET ERROR FLAG F0D08690 05421 0074 00 4 06211 TSX SCEND,4 *SKIP TO END OF FIELD F0D08700 05422 -0754 00 0 00000 PXD ,0 DELETE INTEGER IN ERROR F0D08710 05423 0020 00 0 05652 TRA DECCX F0D08720 F0D08730 CONVERT FOLLOWING DECIMAL FIELD TO BINARY F0D08740 05424 0634 00 4 05652 DECCV SXA DECCX,4 SAVE CALLING LINKAGE F0D08750 05425 0600 00 0 04005 STZ NERAS CLEAR INTEGER FIELD F0D08760 05426 0600 00 0 04006 STZ XERAS CLEAR EXPONENT (E) FIELD F0D08770 05427 0600 00 0 04007 STZ BERAS CLEAR BINARY (B) FIELD F0D08780 05430 0600 00 0 04073 STZ DCNFG RESET FLAG FOR DECIMAL POINT F0D08790 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 19 COMMON SUBROUTINES, CONSTANTS AND ERASABLE 05431 0600 00 0 04074 STZ DCXFG RESET FLAG FOR DECIMAL EXPONENT F0D08800 05432 0600 00 0 04075 STZ DCBFG RESET FLAG FOR BINARY EXPONENT F0D08810 05433 0774 00 4 00000 AXT 0,4 RESET DECIMAL PLACE COUNT F0D08820 05434 -0500 00 0 05425 CAL DECCV+1 LOAD INTEGER FIELD ADDRESS F0D08830 05435 0020 00 0 07052 TRA DCV15 $F0D08840 REENTRY AFTER DECIMAL POINT TO BEGIN SCAN ON FRACTION F0D08850 05436 -0520 00 0 04074 DCV01 NZT DCXFG HAS DECIMAL EXPONENT BEGUN F0D08860 05437 0520 00 0 04075 ZET DCBFG NO, HAS BINARY EXPONENT BEGUN F0D08870 BINARY CARD NO. 9F040041 05440 0020 00 0 05647 TRA DCVRR YES F0D08880 05441 -0625 00 0 04073 STL DCNFG NO, SET FRACTION FLAG F0D08890 05442 -0500 00 0 05467 CAL DCV05 INITIALIZE TRANSFER ADDRESS F0D08900 05443 0621 00 0 05507 STA DCV07+1 TO COUNT DECIMAL PAACES F0D08910 05444 0020 00 0 05471 TRA DCV05+2 F0D08920 REENTRY AFTER E TO BEGIN SCAN ON DECIMAL EXPONENT F0D08930 05445 -0625 00 0 04074 DCV02 STL DCXFG SET DECIMAL EXPONENT FLAG F0D08940 05446 -0500 00 0 05426 CAL DECCV+2 LOAD DECIMAL EXPONENT FIELD ADDRESS F0D08950 05447 0020 00 0 05452 TRA DCV03+2 F0D08960 REENTRY AFTER B TO BEGIN SCAN ON BINARY EXPONENT F0D08970 05450 -0625 00 0 04075 DCV03 STL DCBFG SET BINARY EXPONENT FLAG F0D08980 05451 -0500 00 0 05427 CAL DECCV+3 LOAD BINARY EXPONENT FIELD FLAG F0D08990 05452 0621 00 0 05477 STA DCV06 INITIALIZE FIELD CONVERSION ADDRESSES F0D09000 05453 0621 00 0 05501 STA DCV06+2 F0D09010 05454 0621 00 0 05506 STA DCV07 F0D09020 05455 -0500 00 0 05470 CAL DCV05+1 INITIALIZE TRANSFER ADDRESS F0D09030 05456 0621 00 0 05507 STA DCV07+1 TO OMIT COUNTING DECIMAL PLACES F0D09040 05457 -0500 00 0 05501 CAL DCV06+2 INITIALIZE INSTRUCTION TO ADD F0D09050 05460 0020 00 0 05464 TRA DCV04+3 F0D09060 REENTRY AFTER MINUS F0D09070 05461 0502 00 0 06407 DCV04 CLS Q0 SET FIELD TO -0 F0D09080 05462 0601 60 0 05477 STO* DCV06 F0D09090 05463 0402 00 0 05463 SUB * INITIALIZE INSTRUCTION TO SUBTRACT F0D09100 05464 0622 00 0 05503 STD DCV06+4 F0D09110 05465 0140 00 0 05466 TOV *+1 F0D09120 BINARY CARD NO. 9F040042 05466 0020 00 0 05471 TRA DCV05+2 F0D09130 CONVERT NEXT DIGIT IN FIELD F0D09140 05467 0020 00 0 05470 DCV05 TRA *+1 (TRANSFER ADDRESS TO BUMP DECIMAL COUNTER F0D09150 05470 1 77777 4 05471 TXI *+1,4,-1 (TRANSFER ADDRESS TO OMIT BUMP) F0D09160 05471 0634 00 4 05473 SXA *+2,4 SAVE DECIMAL PLACE COUNT F0D09170 05472 0074 00 4 06237 TSX C0190,4 *GET NEXT CHARACTER F0D09180 05473 0774 00 4 00000 AXT **,4 RELOAD DECIMAL PLACE COUNT F0D09190 05474 -0340 00 0 06426 LAS Q10 IS IT DIGIT F0D09200 05475 0020 00 0 05510 TRA DCV08 NO F0D09210 05476 0074 00 4 06312 TSX MACERR,4 **CHARACTER IS BCD 10 F0D09220 05477 0500 00 0 00000 DCV06 CLA ** YES, MULTIPLY PARTIAL FIELD BY 10 F0D09230 05500 0767 00 0 00002 ALS 2 F0D09240 05501 0400 00 0 00000 ADD ** F0D09250 05502 0767 00 0 00001 ALS 1 F0D09260 05503 0 00000 0 03755 *** CHRCTR (INITIALIZED TO ADD OR SUBTRACT) F0D09270 05504 -0140 00 0 05506 TNO *+2 DID AC OVERFLOW F0D09280 05505 1 00001 4 05507 TXI *+2,4,1 YES, BUMP DECIMAL COUNTER BACK F0D09290 05506 0601 00 0 00000 DCV07 STO ** SAVE PARTIAL FIELD F0D09300 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 20 COMMON SUBROUTINES, CONSTANTS AND ERASABLE 05507 0020 00 0 00000 TRA ** TRANSFER TO OMIT/BUMP DECIMAL COUNTER F0D09310 DETERMINE TYPE OF FOLLOWING FIELD F0D09320 05510 -0340 00 0 06520 DCV08 LAS COMMA IS CHARACTER , F0D09330 05511 0020 00 0 05647 TRA DCVRR NO, ILLEGAL CHARACTER F0D09340 05512 0020 00 0 05537 TRA DCV09+1 YES, END OF NUMERIC FIELD F0D09350 05513 -0340 00 0 06522 LAS BLANK NO, IS CHARACTER BLANK F0D09360 BINARY CARD NO. 9F040043 05514 0020 00 0 05647 TRA DCVRR NO, ILLEGAL CHARACTER F0D09370 05515 0020 00 0 05536 TRA DCV09 YES, END OF VARIABLE FIELD F0D09380 05516 -0340 00 0 06525 LAS MINUS NO, IS CHARACTER - F0D09390 05517 0020 00 0 05647 TRA DCVRR NO, ILLEGAL CHARACTER F0D09400 05520 0020 00 0 05461 TRA DCV04 YES, RESET OPERATION CODE F0D09410 05521 -0340 00 0 06502 LAS POINT NO, IS CHARACTER . F0D09420 05522 0020 00 0 05647 TRA DCVRR NO, ILLEGAL CHARACTER F0D09430 05523 0020 00 0 07056 TRA DCV16 $F0D09440 05524 -0340 00 0 06501 LAS QE NO, IS CHARACTER E F0D09450 05525 0020 00 0 05647 TRA DCVRR NO, ILLEGAL CHARACTER F0D09460 05526 0020 00 0 07062 TRA DCV17 $F0D09470 05527 -0340 00 0 06516 LAS QB NO, IS CHARACTER B F0D09480 05530 0020 00 0 05647 TRA DCVRR NO, ILLEGAL CHARACTER F0D09490 05531 0020 00 0 07066 TRA DCV18 $F0D09500 05532 -0340 00 0 06527 LAS PLUSS NO, IS CHARACTER + F0D09510 05533 0020 00 0 05647 TRA DCVRR NO, ILLEGAL CHARACTER F0D09520 05534 0020 00 0 05471 TRA DCV05+2 YES, IGNORE IT F0D09530 05535 0020 00 0 05647 TRA DCVRR NO, ILLEGAL CHARACTER F0D09540 TEST FOR DECIMAL EXPONENT F0D09550 05536 0760 00 0 00144 DCV09 SLN FLDND SET END OF VARIABLE FIELD (BLANK) FLAG F0D09560 05537 0500 00 0 04005 CLA NERAS LOAD DIGIT F0D09570 05540 0100 00 0 05652 TZE DECCX IS DIGIT ZERO F0D09580 05541 -0520 00 0 04074 NZT DCXFG NO, DOES DECIMAL EXPONENT EXIST F0D09590 BINARY CARD NO. 9F040044 05542 0020 00 0 05551 TRA DCV10 NO, TEST FOR BINARY EXPONENT F0D09600 05543 -0500 00 0 06472 CAL P4 YES, COMPLEMENT NEGATIVE DECIMAL EXPONENT F0D09610 05544 0400 00 0 04006 ADD XERAS F0D09620 05545 0767 00 0 00022 ALS 18 COMPUTE EXPLICIT+IMPLICIT EXPONENT F0D09630 05546 0622 00 0 05550 STD *+2 F0D09640 05547 0500 00 0 04005 CLA NERAS RELOAD DIGIT F0D09650 05550 1 00000 4 05555 TXI DCV11,4,** F0D09660 TEST FOR BINARY EXPONENT F0D09670 05551 -0520 00 0 04075 DCV10 NZT DCBFG DOES BINARY EXPONENT EXIST F0D09680 05552 0520 00 0 04073 ZET DCNFG NO, DOES DECIMAL EXPONENT EXIST F0D09690 05553 0020 00 0 05555 TRA DCV11 YES F0D09700 05554 0020 00 0 05652 TRA DECCX NO, NUMBER IS BINARY INTEGER F0D09710 CONVERT TO FLOATING POINT NUMBER F0D09720 05555 0621 00 0 05654 DCV11 STA FPCV1 SAVE LOW ORDER 15 BITS F0D09730 05556 0771 00 0 00017 ARS 15 DELETE LOW ORDER 15 BITS F0D09740 05557 -0501 00 0 05655 ORA FPCV2 COMBINE WITH EXPONENT 2**52(8) F0D09750 05560 0300 00 0 05655 FAD FPCV2 NORMALIZE LEADING 20 BITS EXP 2**43(8) F0D09760 05561 0120 00 0 05564 TPL *+3 COMBINE NORMALIZED LEADING 20 BITS F0D09770 05562 0302 00 0 05654 FSB FPCV1 WITH FOLLOWING I5 BITS UNNORMALIZED F0D09780 05563 0020 00 0 05565 TRA *+2 EXPONENT 2**52(8)/2**15(8) = 2**33(8) F0D09790 05564 0300 00 0 05654 FAD FPCV1 INTO DOUBLE PRECISION NUMBER EXP 2**35(10)F0D09800 05565 -0600 00 0 04010 STQ ERASE SAVE LEAST SIGNIFICANT PART F0D09810 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 21 COMMON SUBROUTINES, CONSTANTS AND ERASABLE 05566 -3 00000 4 05625 TXL DCV13,4,0 IS DECIMAL EXPONENT ZERO F0D09820 05567 3 00046 4 05611 TXH DCV12,4,38 NO, IS DECIMAL EXPONENT NEGATIVE F0D09830 BINARY CARD NO. 9F040045 05570 1 77777 4 05571 TXI *+1,4,-1 NO, COMPLEMENT IT F0D09840 05571 -0634 00 4 05573 SXD *+2,4 F0D09850 05572 0774 00 4 77777 AXT -1,4 F0D09860 05573 2 00000 4 05575 TIX *+2,4,** F0D09870 05574 0074 00 4 06312 TSX MACERR,4 **INDEX FAILURE F0D09880 05575 0131 00 0 00000 XCA BRING MOST SIGNIFICANT PART INTO MQ F0D09890 05576 0260 00 4 06706 FMP DECTAB,4 MULTIPLY BY POWER OF TEN (FACTOR IS SUCH F0D09900 THAT FPCV3 AND FPCV4 WILL CORRECT EXP) F0D09910 05577 0601 00 0 04005 STO NERAS SAVE MOST SIGNIFICANT PART F0D09920 05600 -0600 00 0 04006 STQ XERAS SAVE LEAST SIGNIFICANT PART F0D09930 05601 0560 00 0 04010 LDQ ERASE LOAD OLD LEAST SIGNIFICANT PART F0D09940 05602 0260 00 4 06706 FMP DECTAB,4 MULTIPLY BY POWER OF TEN F0D09950 05603 0300 00 0 04006 FAD XERAS COMBINE WITH DOUBLE PRECISION RESULTS F0D09960 05604 0300 00 0 04005 FAD NERAS CONVERTED FROM OLD MOST SIGNIFICANT PART F0D09970 05605 0361 00 0 05657 ACL FPCV4 BUMP EXPONENT TO CORRECT FOR TABLE FACTOR F0D09980 05606 -0760 00 0 00001 PBT DID AC OVERFLOW F0D09990 05607 0020 00 0 05625 TRA DCV13 NO, PROCESS BINARY EXPONENT F0D10000 05610 0020 00 0 05650 TRA DCVRR+1 YES F0D10010 05611 -3 77717 4 05650 DCV12 TXL DCVRR+1,4,-49 IS EXPONENT ILLEGAL F0D10020 05612 0241 00 4 06706 FDP DECTAB,4 NO, DIVIDE BY POWER OF TEN F0D10030 05613 -0600 00 0 04005 STQ NERAS SAVE MOST SIGNIFICANT PART F0D10040 05614 0300 00 0 04010 FAD ERASE COMBINE REMAINDER WITH LEAST SIGNIF PART F0D10050 05615 0241 00 4 06706 FDP DECTAB,4 DIVIDE BY POWER OF TEN F0D10060 BINARY CARD NO. 9F040046 05616 0760 00 0 00012 DCT DID DIVIDE FAIL F0D10070 05617 0074 00 4 06312 TSX MACERR,4 **YES F0D10080 05620 0131 00 0 00000 XCA RECALL MOST SIGNIFICANT PART F0D10090 05621 0300 00 0 04005 FAD NERAS COMBINE WITH PRIOR MOST SIGNIFICANT PART F0D10100 05622 0361 00 0 05656 ACL FPCV3 BUMP EXPONENT TO CORRECT FOR TABLE FACTOR F0D10110 05623 -0760 00 0 00001 PBT DID AC OVERFLOW F0D10120 05624 0020 00 0 05650 TRA DCVRR+1 NO F0D10130 05625 -0520 00 0 04075 DCV13 NZT DCBFG DOES BINARY EXPONENT EXIST F0D10140 05626 0020 00 0 05652 TRA DECCX NO, NUMBER IS FLOATING POINT F0D10150 05627 0601 00 0 04005 STO NERAS YES, SAVE FLOATING POINT NUMBER F0D10160 05630 0767 00 0 00002 ALS 2 DELETE P, Q, BITS F0D10170 05631 -0760 00 0 00003 SSM F0D10180 05632 0771 00 0 00035 ARS 29 RIGHT ADJUST EXPONENT F0D10190 05633 0400 00 0 06417 ADD Q128 COMPUTE ABSOLUTE EXPONENT F0D10200 05634 0400 00 0 04007 ADD BERAS COMBINE WITH BINARY EXPONENT F0D10210 05635 0120 00 0 05637 TPL *+2 IS EXPONENT TOO SMALL F0D10220 05636 -0100 00 0 05650 TNZ DCVRR+1 YES F0D10230 05637 0621 00 0 05645 STA DCV14 NO, USE EXPONENT AS SHIFT COUNT F0D10240 05640 0500 00 0 04005 CLA NERAS RELOAD FLOATING POINT NUMBER F0D10250 05641 0763 00 0 00010 LLS 8 DELETE AC, MQ EXPONENTS F0D10260 05642 0767 00 0 00002 ALS 2 DELETE P, Q BITS F0D10270 05643 0771 00 0 00012 ARS 10 REPOSITION 27 BIT FRACTION F0D10280 BINARY CARD NO. 9F040047 05644 0763 00 0 00010 LLS 8 APPEND 27 LOW ORDER BITS F0D10290 05645 0765 00 0 00000 DCV14 LRS ** SHIFT BINARY INTEGER TO PROPER POWER OF 2 F0D10300 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 22 COMMON SUBROUTINES, CONSTANTS AND ERASABLE 05646 0020 00 0 05652 TRA DECCX F0D10310 05647 0074 00 4 06211 DCVRR TSX SCEND,4 *SKIP TO END OF FIELD F0D10320 05650 -0754 00 0 00000 PXD ,0 DELETE INTEGER IN ERROR F0D10330 05651 -0625 00 0 04115 STL ERRFE SET ERROR FLAG F0D10340 05652 0774 00 4 00000 DECCX AXT **,4 RELOAD CALLING LINKAGE F0D10350 05653 0020 00 4 00001 TRA 1,4 F0D10360 05654 +233000000000 FPCV1 OCT 233000000000 CONSTANT TO NORMALIZE LOW ORDER 15 BITS F0D10370 05655 +252000000000 FPCV2 OCT 252000000000 CONSTANT TO NORMALIZE HIGH ORDER 20 BITS F0D10380 05656 +335000000000 FPCV3 OCT 335000000000 CONSTANT TO CORRECT EXPONENT ON DIVIDE F0D10390 05657 +043000000000 FPCV4 OCT 043000000000 CONSTANT TO CORRECT EXPONENT ON MULTIPLY F0D10400 F0D10410 CONVERT ONE FIELD OF VFD TO BINARY F0D10420 05660 0634 00 4 06026 VFDCV SXA VFDCX,4 SAVE CALLING LINKAGE F0D10430 05661 0600 00 0 04002 STZ VFDFL RESET LOW ORDER HALF OF FIELD F0D10440 05662 0600 00 0 04003 STZ VFDFL+1 RESET HIGH ORDER HALF OF FIELD F0D10450 05663 0600 00 0 04055 STZ VFDHF RESET HOLLERITH FIELD FLAG F0D10460 05664 0600 00 0 04056 STZ VFDOF RESET OCTAL FIELD FLAG F0D10470 05665 0600 00 0 04027 STZ VFDFB RESET FIELD WIDTH F0D10480 05666 0074 00 4 06237 TSX C0190,4 *GET FIRST CHARACTER OF NEXT FIELD F0D10490 05667 -0340 00 0 06520 LAS COMMA IS IT COMMA F0D10500 05670 0020 00 0 06023 TRA VCV07 NO, ILLEGAL CHARACTER F0D10510 05671 0020 00 0 06014 TRA VCV06+1 YES, END OF FIELD F0D10520 BINARY CARD NO. 9F040048 05672 -0340 00 0 06522 LAS BLANK IS IT BLANK F0D10530 05673 0020 00 0 06023 TRA VCV07 NO, ILLEGAL CHARACTER F0D10540 05674 0020 00 0 06013 TRA VCV06 YES, END OF VARIABLE FIELD F0D10550 05675 -0340 00 0 06503 LAS QO NO, IS IT O F0D10560 05676 0020 00 0 06023 TRA VCV07 NO, ILLEGAL CHARACTER F0D10570 05677 0020 00 0 05704 TRA VCV01 YES OCTAL FIELD FOLLOWS F0D10580 05700 -0340 00 0 06514 LAS QH NO, IS IT H F0D10590 05701 0020 00 0 06023 TRA VCV07 NO, ILLEGAL CHARACTER F0D10600 05702 0020 00 0 05706 TRA VCV01+2 YES HOLLERITH FIELD FOLLOWS F0D10610 05703 0020 00 0 05710 TRA VCV02+1 NO, FIELD MUST BE SYMBOLIC F0D10620 FIELD IS OCTAL F0D10630 05704 -0625 00 0 04056 VCV01 STL VFDOF SET OCTAL FIELD FLAG F0D10640 05705 0020 00 0 05707 TRA VCV02 F0D10650 FIELD IS HOLLERITH F0D10660 05706 -0625 00 0 04055 STL VFDHF SET HOLLERITH FIELD FLAG F0D10670 REENTRY TO COLLECT SECOND DIGIT OF FIELD WIDTH F0D10680 05707 0074 00 4 06237 VCV02 TSX C0190,4 *GET NEXT CHARACTER F0D10690 REENTRY FOR SYMBOLIC FIELD F0D10700 05710 -0340 00 0 06521 LAS SLASH IS CHARACTER / F0D10710 05711 0020 00 0 06023 TRA VCV07 NO, ILLEGAL CHARACTER F0D10720 05712 0020 00 0 05725 TRA VCV03 YES, FIELD FOLLOWS F0D10730 05713 -0340 00 0 06426 LAS Q10 NO, IS CHARACTER NUMERIC F0D10740 05714 0020 00 0 06023 TRA VCV07 NO, ILLEGAL CHARACTER F0D10750 05715 0074 00 4 06312 TSX MACERR,4 **CHARACTER IS BCD 10 F0D10760 05716 0500 00 0 04027 CLA VFDFB YES, MULTIPLY PARTIAL FIELD WIDTH BY 10 F0D10770 05717 0767 00 0 00002 ALS 2 F0D10780 BINARY CARD NO. 9F040049 05720 0400 00 0 04027 ADD VFDFB F0D10790 05721 0767 00 0 00001 ALS 1 F0D10800 05722 0400 00 0 03755 ADD CHRCTR ADD NEXT DIGIT F0D10810 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 23 COMMON SUBROUTINES, CONSTANTS AND ERASABLE 05723 0601 00 0 04027 STO VFDFB SAVE NEW PARTIAL FIELD WIDTH F0D10820 05724 0020 00 0 05707 TRA VCV02 F0D10830 REENTRY AFTER / FIELD FOLLOWS F0D10840 05725 0534 00 4 04027 VCV03 LXA VFDFB,4 LOAD FIELD WIDTH F0D10850 05726 -3 00077 4 05732 TXL *+4,4,63 IS FIELD TOO LONG F0D10860 05727 -0625 00 0 04115 STL ERRFE YES, SET ERROR FLAG F0D10870 05730 0774 00 4 00077 AXT 63,4 RESET LENGTH OF FIELD F0D10880 05731 0634 00 4 04027 SXA VFDFB,4 F0D10890 05732 0520 00 0 04055 ZET VFDHF IS FIELD HOLLERITH F0D10900 05733 0020 00 0 05771 TRA VCV05 YES F0D10910 05734 -0520 00 0 04056 NZT VFDOF NO, IS FIELD OCTAL F0D10920 05735 0020 00 0 05740 TRA *+3 NO, FIELD IS SYMBOLIC F0D10930 05736 3 00044 4 05747 TXH VCV04,4,36 YES, IS OCTAL FIELD GREATER THAN ONE WORD F0D10940 05737 -0625 00 0 04044 STL BOLMD NO, SET BOOLEAN SCAN FLAG F0D10950 FIELD IS SYMBOLIC OR BOOLEAN NOT LONGER THAN ONE WORD F0D10960 05740 0074 00 4 04767 TSX SCANF,4 *EVALUATE SYMBOLIC OR BOOLEAN EXPRESSION F0D10970 05741 1 00000 0 06013 TXI VCV06,,0 NULL FIELD F0D10980 05742 -0760 00 0 00141 SLT EXPRR WAS FIELD IN ERROR F0D10990 05743 0020 00 0 05745 TRA *+2 NO F0D11000 05744 0020 00 0 06025 TRA VCV07+2 YES F0D11010 05745 0602 00 0 04002 SLW VFDFL SAVE LOW ORDER PORTION F0D11020 BINARY CARD NO. 9F040050 05746 0020 00 0 06014 TRA VCV06+1 F0D11030 FIELD IS OCTAL F0D11040 05747 0074 00 4 06237 VCV04 TSX C0190,4 *GET NEXT CHARACTER F0D11050 05750 -0340 00 0 06520 LAS COMMA IS IT COMMA F0D11060 05751 0020 00 0 06024 TRA VCV07+1 NO, ILLEGAL CHARACTER F0D11070 05752 0020 00 0 06014 TRA VCV06+1 YES, END OF FIELD F0D11080 05753 -0340 00 0 06522 LAS BLANK IS IT BLANK F0D11090 05754 0020 00 0 06024 TRA VCV07+1 NO, ILLEGAL CHARACTER F0D11100 05755 0020 00 0 06013 TRA VCV06 YES, END OF VARIABLE FIELD F0D11110 05756 -0340 00 0 06413 LAS Q8 IS IT AN OCTAL DIGIT F0D11120 05757 0761 00 0 00000 NOP NO F0D11130 05760 0020 00 0 06024 TRA VCV07+1 ILLEGAL CHARACTER F0D11140 05761 -0500 00 0 04003 CAL VFDFL+1 LOAD HIGH ORDER PORTION OF WORD F0D11150 05762 0560 00 0 04002 LDQ VFDFL LOAD LOW ORDER PORTION OF WORD F0D11160 05763 -0763 00 0 00003 LGL 3 BUMP WORD LEFT ONE OCTAL DIGIT F0D11170 05764 0602 00 0 04003 SLW VFDFL+1 SAVE HIGH ORDER PORTION OF WORD F0D11180 05765 -0130 00 0 00000 XCL F0D11190 05766 -0501 00 0 03755 ORA CHRCTR APPEND DIGIT TO LOW ORDER PORTION OF WORD F0D11200 05767 0602 00 0 04002 SLW VFDFL SAVE LOW ORDER PORTION OF WORD F0D11210 05770 0020 00 0 05747 TRA VCV04 F0D11220 FIELD IS HOLLERITH F0D11230 05771 -0500 00 0 04176 VCV05 CAL BLANKS BLANK OUT HIGH AND LOW ORDER PORTION F0D11240 05772 0602 00 0 04003 SLW VFDFL+1 WORD F0D11250 05773 0602 00 0 04002 SLW VFDFL F0D11260 BINARY CARD NO. 9F040051 05774 0074 00 4 06237 TSX C0190,4 *GET NEXT CHARACTER F0D11270 05775 -0340 00 0 06520 LAS COMMA IS IT , F0D11280 05776 0020 00 0 06000 TRA *+2 NO F0D11290 05777 0020 00 0 06014 TRA VCV06+1 YES, END OF FIELD F0D11300 06000 -0340 00 0 06522 LAS BLANK NO, IS IT BLANK F0D11310 06001 0020 00 0 06003 TRA *+2 NO F0D11320 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 24 COMMON SUBROUTINES, CONSTANTS AND ERASABLE 06002 0020 00 0 06013 TRA VCV06 YES, END OF VARIABLE FIELD F0D11330 06003 0560 00 0 04002 LDQ VFDFL NO, LOAD LOW ORDER PORTION OF WORD F0D11340 06004 -0500 00 0 04003 CAL VFDFL+1 LOAD HIGH ORDER PORTION OF WORD F0D11350 06005 -0763 00 0 00006 LGL 6 SHIFT LEFT ONE CHARACTER F0D11360 06006 0602 00 0 04003 SLW VFDFL+1 SAVE HIGH ORDER PORTION OF WORD F0D11370 06007 -0130 00 0 00000 XCL F0D11380 06010 -0501 00 0 03755 ORA CHRCTR APPEND NEXT CHARACTER F0D11390 06011 0602 00 0 04002 SLW VFDFL SAVE LOW ORDER PORTION OF WORD F0D11400 06012 0020 00 0 05774 TRA VCV05+3 F0D11410 REENTRY AFTER BLANK, END OF VARIABLE FIELD F0D11420 06013 0760 00 0 00144 VCV06 SLN FLDND SET END OF VARIABLE FIELD FLAG F0D11430 REENTRY AFTER COMMA, END OF FIELD F0D11440 06014 0534 00 4 04027 LXA VFDFB,4 LOAD WIDTH OF FIELD F0D11450 06015 -0500 00 0 04003 CAL VFDFL+1 LOAD HIGH ORDER PORTION OF FIELD F0D11460 06016 0560 00 0 04002 LDQ VFDFL LOAD LOW ORDER PORTION OF FIELD F0D11470 06017 -0763 00 4 00110 LGL 72,4 LEFT ADJUST FIELD CONTENTS F0D11480 06020 0602 00 0 04003 SLW VFDFL+1 SAVE HIGH ORDER PORTION OF FIELD F0D11490 06021 -0600 00 0 04002 STQ VFDFL SAVE LOW ORDER PORTION OF FIELD F0D11500 BINARY CARD NO. 9F040052 06022 0020 00 0 06026 TRA VFDCX F0D11510 ERROR ON FIELD DESIGNATION - SKIP OVER FIELD F0D11520 06023 0600 00 0 04027 VCV07 STZ VFDFB RESET FIELD WIDTH F0D11530 06024 0074 00 4 06211 TSX SCEND,4 *SKIP TO END OF FIELD F0D11540 FIELD IS IN ERROR F0D11550 06025 -0625 00 0 04115 STL ERRFE SET ERROR FLAG F0D11560 06026 0774 00 4 00000 VFDCX AXT **,4 RELOAD CLALING LINKAGE F0D11570 06027 0020 00 4 00001 TRA 1,4 F0D11580 F0D11590 CONVERT 12 DIGIT OCTAL FIELD TO BINARY F0D11600 06030 -0500 00 0 04001 OCTSV CAL SYMBL COMBINE LOW AND HIGH ORDER PORTIONS F0D11610 06031 -0501 00 0 04000 ORA SYMB2 OF 12 DIGIT OCTAL FIELD F0D11620 06032 -0320 00 0 06055 ANA YYMSK IS ELEMENT OCTAL F0D11630 06033 -0100 00 0 06050 TNZ OCTSR **NO F0D11640 06034 0560 00 0 04001 LDQ SYMBL LOAD LOW ORDER DIGITS F0D11650 06035 -0114 06 0 06627 CAQ OCTALT,,6 CONVERT FROM OCTAL F0D11660 06036 0771 00 0 00022 ARS 18 REPOSITION IN LOW ORDER F0D11670 06037 0602 00 0 04030 SLW ELMEQ SAVE F0D11680 06040 -0520 00 0 04000 NZT SYMB2 DO HIGH ORDER DIGITS EXIST F0D11690 06041 0020 00 0 06053 TRA OCTSX NO F0D11700 06042 0560 00 0 04000 LDQ SYMB2 LOAD HIGH ORDER DIGITS F0D11710 06043 -0754 00 0 00000 PXD ,0 F0D11720 06044 -0114 06 0 06627 CAQ OCTALT,,6 CONVERT FROM OCTAL F0D11730 06045 -0320 00 0 06054 ANA PRDMK DELETE LOW ORDER GARBAGE F0D11740 06046 -0501 00 0 04030 ORA ELMEQ COMBINE WITH LOW ORDER DIGITS F0D11750 06047 0020 00 0 06053 TRA OCTSX F0D11760 BINARY CARD NO. 9F040053 06050 0760 00 0 00141 OCTSR SLN EXPRR SET ERROR FLAGS F0D11770 06051 -0625 00 0 04116 STL ERRFB F0D11780 06052 -0754 00 0 00000 PXD ,0 DELETE VALUE OF OCTAL INTEGER IN ERROR F0D11790 06053 0020 00 4 00001 OCTSX TRA 1,4 F0D11800 06054 -3 77777 0 00000 PRDMK SVN ,,-1 MASK FOR PREFIX,DECREMENT FIELD BITS 0-17 F0D11810 06055 707070707070 YYMSK BCI 1,YYYYYY MASK FOR NON-OCTAL CHARACTERS F0D11820 F0D11830 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 25 COMMON SUBROUTINES, CONSTANTS AND ERASABLE CONVERT 12 DIGIT DECIMAL FIELD TO BINARY F0D11840 06056 0560 00 0 04001 DECSV LDQ SYMBL LOAD LOW ORDER DIGITS F0D11850 06057 -0754 00 0 00000 PXD ,0 F0D11860 06060 -0114 06 0 06533 CAQ INTTAB,,6 CONVERT FROM DECIMAL F0D11870 06061 0771 00 0 00020 ARS 16 REPOSITION IN LOW ORDER F0D11880 06062 0601 00 0 04030 STO ELMEQ SAVE F0D11890 06063 -0520 00 0 04000 NZT SYMB2 DO HIGH ORDER DIGITS EXIST F0D11900 06064 0020 00 0 06102 TRA DECSX NO F0D11910 06065 0560 00 0 04000 LDQ SYMB2 YES, LOAD LOW ORDER DIGITS F0D11920 06066 -0754 00 0 00000 PXD ,0 F0D11930 06067 -0114 06 0 06533 CAQ INTTAB,,6 CONVERT FROM DECIMAL F0D11940 06070 0771 00 0 00020 ARS 16 REPOSITION IN LOW ORDER F0D11950 06071 0131 00 0 00000 XCA F0D11960 06072 0204 24 0 06103 VLM MILLN,,20 MULTIPLY BY 10**6 F0D11970 06073 0140 00 0 06074 TOV *+1 TURN OFF TRIGGER F0D11980 06074 0763 00 0 00010 LLS 8 SCALE F0D11990 06075 0400 00 0 04030 ADD ELMEQ COMBINE WITH LOW ORDER DIGITS F0D12000 BINARY CARD NO. 9F040054 06076 -0140 00 0 06102 TNO DECSX IS NUMBER LARGER THAN 2**35 F0D12010 06077 0760 00 0 00141 SLN EXPRR YES, SET ERROR FLAGS F0D12020 06100 -0625 00 0 04115 STL ERRFE F0D12030 06101 -0754 00 0 00000 PXD ,0 DELETE NUMBER F0D12040 06102 0020 00 4 00001 DECSX TRA 1,4 F0D12050 06103 +036411000000 MILLN DEC 004096000000 F0D12060 F0D12070 CONVERT BINARY NUMBER RIGHT ADJUSTED IN AC TO BCD F0D12080 06104 0560 00 0 06407 BCDCV LDQ Q0 PREPARE TO CONVERT NUMBER TO DECIMAL F0D12090 06105 0020 00 0 06325 TRA BCDV1 HUNDRED THOUSAND PATCH (25)F0D12100 06106 0225 04 0 06442 VDP Q10000,,4 TENS OF THOUSANDS F0D12110 06107 -0773 00 0 00006 RQL 6 F0D12120 06110 0765 00 0 00004 LRS 4 F0D12130 06111 0225 04 0 06436 VDP Q1000,,4 THOUSANDS F0D12140 06112 -0773 00 0 00006 RQL 6 F0D12150 06113 0765 00 0 00004 LRS 4 F0D12160 06114 0225 04 0 06434 VDP Q100,,4 HUNDREDS F0D12170 06115 -0773 00 0 00006 RQL 6 F0D12180 06116 0765 00 0 00004 LRS 4 F0D12190 06117 0225 04 0 06426 VDP Q10,,4 TENS F0D12200 06120 -0773 00 0 00006 RQL 6 F0D12210 06121 -0600 00 0 04005 STQ NERAS COMBINE WITH F0D12220 06122 -0501 00 0 04005 ORA NERAS ONES F0D12230 06123 0760 00 0 00012 DCT TURN OFF TRIGGER F0D12240 BINARY CARD NO. 9F040055 06124 0761 00 0 00000 NOP F0D12250 06125 0020 00 4 00001 TRA 1,4 F0D12260 F0D12270 ASSEMBLE 12 CHARACTER ALPHAMERIC SYMBOL F0D12280 06126 0600 00 0 04000 SSCAN STZ SYMB2 CLEAR HIGH ORDER SYMBOL F0D12290 06127 0600 00 0 04001 STZ SYMBL CLEAR LOW ORDER SYMBOL F0D12300 06130 -0500 00 0 03755 CAL CHRCTR LOAD FIRST CHARACTER NEXT FIELD F0D12310 06131 0322 00 0 06522 ERA BLANK IS IT BLANK F0D12320 06132 0100 00 4 00001 TZE 1,4 YES, NULL EXPRESSION F0D12330 REENTRY TO CONTINUE SCAN OF FIELD F0D12340 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 26 COMMON SUBROUTINES, CONSTANTS AND ERASABLE 06133 0634 00 4 06207 SSCET SXA SSCNX,4 SAVE CALLING LINKAGE F0D12350 06134 0140 00 0 06135 TOV *+1 TURN OFF TRIGGER F0D12360 06135 0074 00 4 06237 TSX C0190,4 *GET NEXT CHARACTER F0D12370 06136 0734 00 4 00000 PAX ,4 FOR TESTING F0D12380 06137 -3 00011 4 06165 TXL SSCN1,4,9 CHARACTER IS NUMERIC F0D12390 06140 -3 00014 4 06163 TXL SSCN0,4,12 CHARACTER IS = OR ' F0D12400 06141 -3 00017 4 06177 TXL SSCRR,4,15 CHARACTER IS ILLEGAL F0D12410 06142 -3 00020 4 06207 TXL SSCNX,4,16 CHARACTER IS + F0D12420 06143 -3 00031 4 06165 TXL SSCN1,4,25 CHARACTER IS ALPHABETIC F0D12430 06144 -3 00032 4 06177 TXL SSCRR,4,26 CHARACTER IS +0 F0D12440 06145 -3 00033 4 06165 TXL SSCN1,4,27 CHARACTER IS . F0D12450 06146 -3 00034 4 06163 TXL SSCN0,4,28 CHARACTER IS ) F0D12460 06147 -3 00037 4 06177 TXL SSCRR,4,31 CHARACTER IS ILLEGAL F0D12470 06150 -3 00040 4 06207 TXL SSCNX,4,32 CHARACTER IS - F0D12480 06151 -3 00051 4 06165 TXL SSCN1,4,41 CHARACTER IS ALPHABETIC F0D12490 BINARY CARD NO. 9F040056 06152 -3 00052 4 06177 TXL SSCRR,4,42 CHARACTER IS -0 F0D12500 06153 -3 00054 4 06207 TXL SSCNX,4,44 CHARACTER IS $ OR * F0D12510 06154 -3 00057 4 06177 TXL SSCRR,4,47 CHARACTER IS ILLEGAL F0D12520 06155 -3 00060 4 06205 TXL SSCN2,4,48 CHARACTER IS BLANK F0D12530 06156 -3 00061 4 06207 TXL SSCNX,4,49 CHARACTER IS / F0D12540 06157 -3 00071 4 06165 TXL SSCN1,4,57 CHARACTER IS ALPHABETIC F0D12550 06160 -3 00072 4 06177 TXL SSCRR,4,58 CHARACTER IS RM F0D12560 06161 -3 00073 4 06206 TXL SSCN2+1,4,59 CHARACTER IS , F0D12570 06162 3 00074 4 06177 TXH SSCRR,4,60 CHARACTER IS ILLEGAL F0D12580 CHARACTER IS ( ) ' = F0D12590 06163 -3 00000 4 06207 SSCN0 TXL SSCNX,4,** IS THIS SCAN DURING MACRO DEFINITION F0D12600 06164 -3 00014 4 06177 TXL SSCRR,4,12 NO, IS CHARACTER = OR ' NOT LEGAL IN FAP F0D12610 CHARACTER IS VALID F0D12620 06165 0600 00 0 04052 SSCN1 STZ SCNFC RESET FLAG FOR FIRST CHARACTER IN ELEMENT F0D12630 06166 -0500 00 0 04000 CAL SYMB2 LOAD HIGH ORDER PORTION F0D12640 06167 0560 00 0 04001 LDQ SYMBL LOAD LOW ORDER PORTION F0D12650 06170 -0763 00 0 00006 LGL 6 SHIFT UP NEXT CHARACTER F0D12660 06171 0140 00 0 06177 TOV SSCRR IS SYMBOL (OR INTEGER) TOO LONG F0D12670 06172 0602 00 0 04000 SLW SYMB2 NO, SAVE HIGH ORDER PORTION F0D12680 06173 -0130 00 0 00000 XCL F0D12690 06174 0400 00 0 03755 ADD CHRCTR APPEND NEXT CHARACTER TO LOW ORDER PART F0D12700 06175 0602 00 0 04001 SLW SYMBL SAVE LOW ORDER PORTION F0D12710 06176 0020 00 0 06135 TRA SSCET+2 F0D12720 CHARACTER IS ILLEGAL F0D12730 06177 0600 00 0 04000 SSCRR STZ SYMB2 CLEAR SYMBOL F0D12740 BINARY CARD NO. 9F040057 06200 0600 00 0 04001 STZ SYMBL F0D12750 06201 0760 00 0 00141 SLN EXPRR SET ERROR FLAGS F0D12760 06202 -0625 00 0 04115 STL ERRFE F0D12770 06203 0074 00 4 06211 TSX SCEND,4 *SKIP TO END OF INTEGER F0D12780 06204 0020 00 0 07150 TRA FLAGB SET BOOLEAN ERROR FLAG $F0D12790 END OF FIELD F0D12800 06205 0760 00 0 00144 SSCN2 SLN FLDND SET END OF VARIABLE FIELD (BLANK) FLAG F0D12810 06206 0760 00 0 00142 SLN EXPND SET END OF EXPRESSION (, OR BLANK) FLAG F0D12820 06207 0774 00 4 00000 SSCNX AXT **,4 RELOAD CALLING LINKAGE F0D12830 06210 0020 00 4 00002 TRA 2,4 F0D12840 F0D12850 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 27 COMMON SUBROUTINES, CONSTANTS AND ERASABLE SKIP TO END OF EXPRESSION F0D12860 06211 0634 00 4 06222 SCEND SXA SCENX,4 SAVE CALLING LINKAGE F0D12870 06212 0074 00 4 06237 TSX C0190,4 *GET NEXT CHARACTER F0D12880 06213 0734 00 4 00000 PAX ,4 FOR TESTING F0D12890 06214 -3 00057 4 06212 TXL SCEND+1,4,47 F0D12900 06215 -3 00060 4 06221 TXL *+4,4,48 CHARACTER IS BLANK F0D12910 06216 -3 00072 4 06212 TXL SCEND+1,4,58 F0D12920 06217 -3 00073 4 06222 TXL SCENX,4,59 CHARACTER IS COMMA F0D12930 06220 0020 00 0 06212 TRA SCEND+1 F0D12940 06221 0760 00 0 00144 SLN FLDND SET END OF VARIABLE FIELD (BLANK) FLAG F0D12950 06222 0774 00 4 00000 SCENX AXT **,4 RELOAD CALLING LINKAGE F0D12960 06223 0020 00 4 00001 TRA 1,4 F0D12970 F0D12980 LEFT ADJUST SYMBOL NAME F0D12990 06224 -0520 00 0 04000 LADJS NZT SYMB2 DOES LENGTH OF SYMBOL EXCEDE 6 CHARACTERS F0D13000 06225 0020 00 0 06230 TRA *+3 NO F0D13010 BINARY CARD NO. 9F040058 06226 0760 00 0 00141 SLN EXPRR YES, SET ERROR FLAGS F0D13020 06227 -0625 00 0 04115 STL ERRFE F0D13030 06230 -0500 00 0 04001 CAL SYMBL LOAD LOW ORDER SYMBOL NAME F0D13040 06231 0100 00 0 06236 TZE *+5 DOES SYMBOL NAME EXIST F0D13050 06232 0560 00 0 04176 LDQ BLANKS YES, LOAD FOLLOWING BLANKS F0D13060 06233 -0765 00 0 00006 LGR 6 SHIFT OUT NEXT CHARACTER F0D13070 06234 -0100 00 0 06233 TNZ *-1 IS SYMBOL LEFT ADJUSTED F0D13080 06235 -0130 00 0 00000 XCL YES, RECALL LEFT ADJUSTED SYMBOL NAME F0D13090 06236 0020 00 4 00001 TRA 1,4 F0D13100 F0D13110 GOOD OLD C0190 - GET NEXT CHARACTER F0D13120 06237 0560 00 0 03756 C0190 LDQ RESIDU RELOAD REMAINDER OF SOURCE CARD WORD F0D13130 06240 C019Q BSS 0 ENTRY FOR RESIDUE IN MQ (24)F0D13135 06240 2 00001 1 06243 TIX *+3,1,1 IS CHARACTER COUNT EXHAUSTED F0D13140 06241 0074 00 1 06260 TSX C0200,1 *YES, GET NEXT SOURCE CARD WORD F0D13150 06242 0774 00 1 00006 AXT 6,1 RESET CHARACTER COUNT F0D13160 06243 -0754 00 0 00000 PXD ,0 F0D13170 06244 -0763 00 0 00006 LGL 6 SHIFT IN NEXT CHARACTER F0D13180 06245 -0600 00 0 03756 STQ RESIDU SAVE REMAINDER OF SOURCE CARD F0D13190 06246 0602 00 0 03755 SLW CHRCTR SAVE IT F0D13200 06247 0020 00 4 00001 TRA 1,4 F0D13210 F0D13220 LOOK AT NEXT CHARACTER F0D13230 06250 0560 00 0 03756 C019A LDQ RESIDU RELOAD REMAINDER OF SOURCE CARD WORD F0D13240 06251 3 00001 1 06255 TXH *+4,1,1 IS CHARACTER COUNT EXHAUSTED F0D13250 06252 0074 00 1 06260 TSX C0200,1 *YES, GET NEXT SOURCE CARD WORD F0D13260 06253 -0600 00 0 03756 STQ RESIDU SAVE REMAINDER OF SOURCE CARD F0D13270 BINARY CARD NO. 9F040059 06254 0774 00 1 00007 AXT 7,1 RESET CHARACTER COUNT F0D13280 06255 -0754 00 0 00000 PXD ,0 F0D13290 06256 -0763 00 0 00006 LGL 6 SHIFT IN NEXT CHARACTER F0D13300 06257 0020 00 4 00001 TRA 1,4 F0D13310 F0D13320 GET NEXT WORD F0D13330 06260 1 77777 2 06261 C0200 TXI *+1,2,-1 BUMP CARD WORD COUNT F0D13340 06261 0560 00 2 04255 LDQ BCDBF,2 LOAD NEXT SOURCE CARD WORD F0D13350 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 28 COMMON SUBROUTINES, CONSTANTS AND ERASABLE 06262 3 77764 2 06264 TXH *+2,2,-12 IS THIS CARD IMAGE WORD 13 F0D13360 06263 0560 00 0 04176 LDQ BLANKS YES, SET STOP F0D13370 06264 0020 00 1 00001 TRA 1,1 F0D13380 F0D13390 BUMP STORAGE COUNTERS F0D13400 06265 0601 00 0 04007 BPCTR STO BERAS SAVE LENGTH OF BUMP F0D13410 06266 0400 00 0 03760 ADD CDCTR BUMP CARD STORAGE COUNTER F0D13420 06267 0621 00 0 03760 STA CDCTR F0D13430 06270 0500 00 0 04007 CLA BERAS RECALL LENGTH OF BUMP F0D13440 06271 0400 00 0 03761 ADD LOCTR BUMP PROGRAM COUNTER F0D13450 06272 0621 00 0 03761 STA LOCTR F0D13460 06273 0020 00 4 00001 TRA 1,4 F0D13470 F0D13480 ERROR ROUTINES F0D13490 06274 0604 00 0 06346 SRCERR STI DIGM2+1 SET TABLE NAME F0D13500 06275 0074 00 4 04443 TSX WRITT,4 *WRITE DIAGNOSTIC HEADING F0D13510 06276 0 00005 0 06340 PZE DIGM1,,5 F0D13520 06277 -0500 00 0 06340 CAL DIGM1 SET DOUBLE SPACE F0D13530 06300 0602 00 0 04254 SLW BCDBF-1 F0D13540 06301 0074 00 4 04443 TSX WRITT,4 *WRITE OFFENDING CARD F0D13550 BINARY CARD NO. 9F040060 06302 0 00017 0 04254 PZE BCDBF-1,,15 F0D13560 06303 0074 00 4 04443 TSX WRITT,4 *WRITE TABLE NAME F0D13570 06304 -0 00005 0 06345 MZE DIGM2,,5 F0D13580 06305 0074 00 4 04512 TSX WRFBK,4 *WRITE LAST PARTIAL LISTING BUFFER F0D13590 06306 0074 00 4 73643 TSX (SECL),4 **TERMINATE ASSEMBLY F0D13600 06307 0 00000 0 00000 PZE PATCH SPACE FOR POSSIBLE PARAMETER F0D13610 F0D13620 06310 0600 00 0 04100 TAPERR STZ ORDRF SET TAPE ERROR FLAG $F0D13630 06311 0020 00 0 06314 TRA MACERR+2 (RESET BY CLOSEOUT ROUTINES) $F0D13640 06312 1 00000 0 06313 MACERR TXI *+1,,0 PARAMETER TO IDENTIFY MACHINE ERROR $F0D13650 06313 -0625 00 0 04100 STL ORDRF SET MACHINE ERROR FLAG $F0D13660 06314 0520 00 0 04100 ZET ORDRF WAS THIS TAPE ERROR $F0D13670 06315 0020 00 0 73603 TRA (DIAG) **NO,THIS WAS CORE ERROR $F0D13680 06316 0074 00 4 73644 TSX (MECL),4 **YES,ERROR MESSAGE HAS BEEN PRINTED $F0D13690 06317 -0500 60 0 73660 STP00 CAL* (FGBX) $F0D13700 06320 -0320 00 0 06412 ANA Q4 IS THIS AN IBSFAP JOB $F0D13710 06321 0100 00 0 04611 TZE STP01 NO, THIS IS FORTRAN MODE (24)F0D13720 06322 -0625 00 0 10532 STL COMCD YES, SET FLAG TO UNBLOCK (24)F0D13730 06323 -0760 00 0 00003 SSM CONTROL CARDS (24)F0D13740 06324 0020 00 4 00001 TRA 1,4 (24)F0D13750 06325 0765 00 0 00004 BCDV1 LRS 4 (25)F0D13760 06326 0225 04 0 05250 VDP TEN5TH,,4 HUNDREDS OF THOUSANDS (25)F0D13770 06327 -0773 00 0 00006 RQL 6 (25)F0D13780 BINARY CARD NO. 9F040061 06330 0765 00 0 00004 LRS 4 (25)F0D13790 06331 0020 00 0 06106 TRA BCDCV+2 BACK TO BCDCV ROUTINE (25)F0D13800 06332 DUP 1,6 PATCH SPACE (25)F0D13810 06332 0 00000 0 00000 PZE (25)F0D13820 F0D13850 06340 006060606060 DIGM1 BCI 5,0 FAP DIAGNOSTIC RESULT F0D13860 06345 006060606060 DIGM2 BCI 5,0 TABLE OVERFLOWED F0D13870 06352 302521244527 HEDNM BCI 1,HEADNG F0D13880 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 29 COMMON SUBROUTINES, CONSTANTS AND ERASABLE 06353 652523634651 VECNM BCI 1,VECTOR F0D13890 06354 433163512143 LITNM BCI 1,LITRAL F0D13900 06355 627044224643 SYMNM BCI 1,SYMBOL F0D13910 BINARY CARD NO. 9F040062 06356 464751634560 OPTNM BCI 1,OPRTN F0D13920 F0D13930 *CALL MONITOR SCAN AFTER UPDATE WITH ASSEMBLY DELETED OR END OF PASS 2.$F0D13940 D 06357 0074 01 4 73600 LOADER TSX (LOAD),4,1 *CALL MONITOR SCAN $F0D13950 06360 112600060000 BCI 1,9F0600 REC. 7 PARAMETER . MONITOR SCAN $F0D13960 F0D13970 SPACE PAGE F0D13980 06361 0634 00 1 06366 SPACP SXA *+5,1 F0D13990 06362 0774 00 1 00007 AXT 7,1 F0D14000 06363 0074 00 4 73611 TSX (PRNT),4 *PRINT 7 DOUBLE SPACED BLANK LINES F0D14010 06364 0 00001 0 06504 PZE SPACE,,1 FOR THE NEARSIGHTED F0D14020 06365 2 00001 1 06363 TIX *-2,1,1 F0D14030 06366 0774 00 1 00000 AXT **,1 F0D14040 06367 0500 00 0 06475 CLA ALONE LIGHT UP CONSOLE F0D14050 06370 0767 00 0 00002 ALS 2 F0D14060 06371 -0501 00 0 06475 ORA ALONE F0D14070 06372 0560 00 0 06475 LDQ ALONE F0D14080 06373 0420 00 7 77777 HPR -1,7 PAUSE F0D14090 06374 0761 00 0 00000 SPACS NOP SHOULD JOB BE TERMINATED F0D14100 06375 0020 00 2 00001 TRA 1,2 NO F0D14110 06376 0074 00 4 73611 TSX (PRNT),4 *YES, TELL THE WORLD F0D14120 06377 0 00006 0 06401 PZE *+2,,6 F0D14130 06400 0020 00 0 06310 TRA TAPERR **TERMINATE ASSEMBLY F0D14140 06401 006021626225 BCI 6,0 ASSEMBLY TERMINATED BY OPERATIONS. F0D14150 BINARY CARD NO. 9F040063 F0D14160 F0D14170 CONSTANTS F0D14180 06407 0 00000 0 00000 Q0 PZE 0 F0D14190 06410 0 00000 0 00001 Q1 PZE 1 9 BIT 0 ZONE F0D14200 06411 0 00000 0 00002 Q2 PZE 2 8 BIT 11 ZONE F0D14210 06412 0 00000 0 00004 Q4 PZE 4 7 BIT 12 ZONE F0D14220 06413 ZONER SYN * F0D14230 06413 0 00000 0 00010 Q8 PZE 8 6 BIT NO ZONE F0D14240 06414 0 00000 0 00020 Q16 PZE 16 5 BIT F0D14250 06415 0 00000 0 00040 Q32 PZE 32 4 BIT F0D14260 06416 0 00000 0 00100 Q64 PZE 64 3 BIT F0D14270 06417 0 00000 0 00200 Q128 PZE 128 2 BIT F0D14280 06420 0 00000 0 00400 Q256 PZE 256 1 BIT F0D14290 06421 0 00000 0 01000 DIGIT PZE 512 0 BIT F0D14300 06422 0 00000 0 00003 Q3 PZE 3 F0D14310 06423 545400000000 DASTR BCI 1,**0000 SPECIAL OP CODE COMPARE WORD (24)F0D14320 06424 0 00000 0 00006 Q6 PZE 6 F0D14330 06425 0 00000 0 00007 Q7 PZE 7 MASK FOR OCTAL CHARACTER F0D14340 06426 0 00000 0 00012 Q10 PZE 10 F0D14350 06427 0 00000 0 00017 Q15 PZE 15 F0D14360 06430 0 00000 0 00000 INP06 NUMBER - ADDEND OF NEXT CARD (25)F0D14370 06431 0 00000 0 00044 Q36 PZE 36 F0D14380 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 30 COMMON SUBROUTINES, CONSTANTS AND ERASABLE BINARY CARD NO. 9F040064 06432 0 00000 0 00076 Q62 PZE 62 F0D14390 06433 0 00000 0 00077 Q63 PZE 63 MASK FOR BCD CHARACTER F0D14400 06434 0 00000 0 00144 Q100 PZE 100 F0D14410 06435 +000000001777 Q127 OCT 1777 MASK FOR LOW ORDER TEN BITS $F0D14420 06436 0 00000 0 01750 Q1000 PZE 1000 F0D14430 06437 0 00000 0 07777 Q4095 PZE 4095 MASK FOR TWO BCD CHARACTERS F0D14440 06440 0 00000 0 17000 Q7680 PZE 7680 F0D14450 06441 0 00000 0 20000 Q8192 PZE 8192 F0D14460 06442 0 00000 0 23420 Q10000 PZE 10000 F0D14470 06443 0 00000 0 40000 Q16384 PZE 16384 F0D14480 06444 0 00000 0 77777 ADDMK PZE -1 MASK FOR ADDRESS FIELD BITS 21 - 35 F0D14490 06445 0 00000 1 00000 T1 PZE ,1 F0D14500 06446 0 00000 2 00000 T2 PZE ,2 F0D14510 06447 0 00000 3 00000 T3 PZE ,3 F0D14520 06450 0 00000 4 00000 T4 PZE ,4 F0D14530 06451 0 00003 7 77777 NUM03 PZE -1,-1,3 MASK FOR LOW ORDER 20 BITS (25)F0D14540 06452 0 00000 7 77777 ADTMK PZE -1,-1 MASK FOR ADDRESS,TAG FIELD BITS 18 - 35 F0D14550 06453 0 00001 0 00000 D1 PZE ,,1 F0D14560 06454 0 00002 0 00000 D2 PZE ,,2 FLAG FOR EXPLICIT ZERO IN MACRO LOC FIELD F0D14570 MASK FOR FLAG REQUIRING DECREMENT FIELD F0D14580 06455 0 00000 0 00000 DELTF PZE FLAG FOR SYMBOLIC REF TABLE ENTRIES $F0D14590 06456 0 00004 0 00000 D4 PZE ,,4 MASK FOR FLAG REQUIRING TAG FIELD F0D14600 06457 0 00005 0 00000 D5 PZE ,,5 RELOCATION BITS FOR NAME IN TRANSFER VECTRF0D14610 BINARY CARD NO. 9F040065 06460 0 00010 0 00000 D8 PZE ,,8 FLAG FOR DUPLICATELY-DEFINED SYMBOLS F0D14620 MASK FOR FLAG REQUIRING ADDRESS FIELD F0D14630 06461 0 00000 0 00000 INP07 ADDEND FOR NUMBERING (25)F0D14640 06462 0 00060 0 00000 D48 PZE ,,48 INSTRUCTION INDIRECT ADDRESS BITS F0D14650 06463 0 00060 4 00000 IMASK PZE ,4,48 MASK FOR FLAGS PERMITTING INDIRECT ADDRS F0D14660 06464 0 00077 0 00000 D63 PZE ,,63 MASK FOR THIRD CHARACTER IN WORD F0D14670 06465 0 00500 0 00000 D320 PZE ,,320 COULUMN BINARY BITS F0D14680 06466 0 07700 0 00000 D4032 PZE ,,4032 MACRO ARGUMENT FLAG F0D14690 06467 0 77400 0 00000 D32512 PZE ,,32512 MASK FOR 8-BIT COUNT FIELD F0D14700 06470 0 77777 0 00000 D32767 PZE ,,-1 F0D14710 06471 1 00000 0 00000 P1 PON F0D14720 06472 -0 00000 0 00000 P4 FOR F0D14730 06473 606060000000 BLNK3 BCI 1, 000 BLANK FOR OP CODE (24)F0D14740 06474 -3 00000 0 00000 P7 SVN F0D14750 06475 -3 77777 7 77777 ALONE SVN -1,-1,-1 FULL WORD MASK F0D14760 06476 -377700217777 OPMSK OCT 777700217777 MASK FOR VALID MACHINE OPERATION BITS F0D14770 06477 -377700000000 P1MSK OCT 777700000000 MASK TO DELETE CC 81 - 84 F0D14780 06500 000060606060 P2MSK BCI 1,00 MASK TO BLANK OUT CC 81 - 84 F0D14790 06501 000000000025 QE BCI 1,00000E F0D14800 06502 000000000033 POINT BCI 1,00000. F0D14810 06503 000000000046 QO BCI 1,00000O F0D14820 06504 006060606060 SPACE BCI 1,0 PROGRAM CONTROL CHARACTER F0D14830 06505 046060606060 4FLAG BCI 1,4 MODE ERROR FLAG F0D14840 BINARY CARD NO. 9F040066 06506 116060606060 9FLAG BCI 1,9 MODE ERROR FLAG F0D14850 06507 602560606060 EFLAG BCI 1, E LISTING FLAG FOR ERROR F0D14860 06510 604460606060 MFLAG BCI 1, M F0D14870 06511 730000000000 RCOMA BCI 1,,00000 F0D14880 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 31 COMMON SUBROUTINES, CONSTANTS AND ERASABLE F0D14890 MODE SETTING CHARACTERS FOR TAPENO PSEUDOOPERATION F0D14900 06512 000000000060 TAPCH BCI 1,00000 (1) F0D14910 06513 000000000043 QL BCI 1,00000L (2) F0D14920 06514 000000000030 QH BCI 1,00000H (3) F0D14930 06515 000000000024 QD BCI 1,00000D (4) F0D14940 06516 000000000022 QB BCI 1,00000B (5) F0D14950 F0D14960 MACRO PROCESSOR PUNCTUATION TABLE F0D14970 06517 BKTBM SYN * F0D14980 06517 000000000074 LPARN BCI 1,00000( F0D14990 06520 000000000073 COMMA BCI 1,00000, F0D15000 06521 000000000061 SLASH BCI 1,00000/ F0D15010 06522 000000000060 BLANK BCI 1,00000 F0D15020 06523 000000000054 ASTRK BCI 1,00000* F0D15030 06524 000000000053 DOLAR BCI 1,00000$ F0D15040 06525 000000000040 MINUS BCI 1,00000- F0D15050 06526 000000000034 BCI 1,00000) F0D15060 06527 000000000020 PLUSS BCI 1,00000+ F0D15070 06530 000000000014 PRIME BCI 1,00000' F0D15080 06531 000000000013 EQUAL BCI 1,00000= F0D15090 06532 0 00013 0 00000 BKTBL PZE ,,BKTBL-BKTBM MACRO PUNCTUATION TABLE F0D15100 F0D15110 CONVERSION TABLES F0D15120 F0D15130 TO CONVERT DECIMAL TO BINARY INTEGER F0D15140 06533 0 00000 0 06545 INTTAB PZE INTTAB+10 F0D15150 BINARY CARD NO. 9F040067 06534 0 60650 0 06545 PZE INTTAB+10,,25000 F0D15160 06535 1 41520 0 06545 PON INTTAB+10,,50000 F0D15170 06536 2 22370 0 06545 PTW INTTAB+10,,75000 F0D15180 06537 3 03240 0 06545 PTH INTTAB+10,,100000 F0D15190 06540 3 64110 0 06545 PTH INTTAB+10,,125000 F0D15200 06541 -0 44760 0 06545 FOR INTTAB+10,,150000 F0D15210 06542 -1 25630 0 06545 FVE INTTAB+10,,175000 F0D15220 06543 -2 06500 0 06545 SIX INTTAB+10,,200000 F0D15230 06544 -2 67350 0 06545 SIX INTTAB+10,,225000 F0D15240 06545 0 00000 0 06557 INTTAB+20 F0D15250 06546 0 04704 0 06557 INTTAB+20,,2500 F0D15260 06547 0 11610 0 06557 INTTAB+20,,5000 F0D15270 06550 0 16514 0 06557 INTTAB+20,,7500 F0D15280 06551 0 23420 0 06557 INTTAB+20,,10000 F0D15290 06552 0 30324 0 06557 INTTAB+20,,12500 F0D15300 06553 0 35230 0 06557 INTTAB+20,,15000 F0D15310 06554 0 42134 0 06557 INTTAB+20,,17500 F0D15320 06555 0 47040 0 06557 INTTAB+20,,20000 F0D15330 06556 0 53744 0 06557 INTTAB+20,,22500 F0D15340 06557 0 00000 0 06571 INTTAB+30 F0D15350 06560 0 00372 0 06571 INTTAB+30,,250 F0D15360 06561 0 00764 0 06571 INTTAB+30,,500 F0D15370 BINARY CARD NO. 9F040068 06562 0 01356 0 06571 INTTAB+30,,750 F0D15380 06563 0 01750 0 06571 INTTAB+30,,1000 F0D15390 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 32 COMMON SUBROUTINES, CONSTANTS AND ERASABLE 06564 0 02342 0 06571 INTTAB+30,,1250 F0D15400 06565 0 02734 0 06571 INTTAB+30,,1500 F0D15410 06566 0 03326 0 06571 INTTAB+30,,1750 F0D15420 06567 0 03720 0 06571 INTTAB+30,,2000 F0D15430 06570 0 04312 0 06571 INTTAB+30,,2250 F0D15440 06571 0 00000 0 06603 INTTAB+40 F0D15450 06572 0 00031 0 06603 INTTAB+40,,25 F0D15460 06573 0 00062 0 06603 INTTAB+40,,50 F0D15470 06574 0 00113 0 06603 INTTAB+40,,75 F0D15480 06575 0 00144 0 06603 INTTAB+40,,100 F0D15490 06576 0 00175 0 06603 INTTAB+40,,125 F0D15500 06577 0 00226 0 06603 INTTAB+40,,150 F0D15510 06600 0 00257 0 06603 INTTAB+40,,175 F0D15520 06601 0 00310 0 06603 INTTAB+40,,200 F0D15530 06602 0 00341 0 06603 INTTAB+40,,225 F0D15540 06603 0 00000 0 06615 INTTAB+50 F0D15550 06604 0 00002 4 06615 INTTAB+50,4,2 F0D15560 06605 0 00005 0 06615 INTTAB+50,0,5 F0D15570 06606 0 00007 4 06615 INTTAB+50,4,7 F0D15580 06607 0 00012 0 06615 INTTAB+50,0,10 F0D15590 BINARY CARD NO. 9F040069 06610 0 00014 4 06615 INTTAB+50,4,12 F0D15600 06611 0 00017 0 06615 INTTAB+50,0,15 F0D15610 06612 0 00021 4 06615 INTTAB+50,4,17 F0D15620 06613 0 00024 0 06615 INTTAB+50,0,20 F0D15630 06614 0 00026 4 06615 INTTAB+50,4,22 F0D15640 06615 0 00000 0 00000 0 F0D15650 06616 0 00000 2 00000 0,2 F0D15660 06617 0 00000 4 00000 0,4 F0D15670 06620 0 00000 6 00000 0,6 F0D15680 06621 0 00001 0 00000 0,0,1 F0D15690 06622 0 00001 2 00000 0,2,1 F0D15700 06623 0 00001 4 00000 0,4,1 F0D15710 06624 0 00001 6 00000 0,6,1 F0D15720 06625 0 00002 0 00000 0,0,2 F0D15730 06626 0 00002 2 00000 0,2,2 F0D15740 F0D15750 F0D15760 TO CONVERT OCTAL TO BINARY INTEGER F0D15770 06627 0 00000 0 06637 OCTALT PZE OCTALT+8 F0D15780 06630 1 00000 0 06637 PON OCTALT+8 F0D15790 06631 2 00000 0 06637 PTW OCTALT+8 F0D15800 06632 3 00000 0 06637 PTH OCTALT+8 F0D15810 06633 -0 00000 0 06637 FOR OCTALT+8 F0D15820 06634 -1 00000 0 06637 FVE OCTALT+8 F0D15830 06635 -2 00000 0 06637 SIX OCTALT+8 F0D15840 BINARY CARD NO. 9F040070 06636 -3 00000 0 06637 SVN OCTALT+8 F0D15850 06637 0 00000 0 06647 OCTALT+16 F0D15860 06640 0 10000 0 06647 OCTALT+16,,4096 F0D15870 06641 0 20000 0 06647 OCTALT+16,,2*4096 F0D15880 06642 0 30000 0 06647 OCTALT+16,,3*4096 F0D15890 06643 0 40000 0 06647 OCTALT+16,,4*4096 F0D15900 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 33 COMMON SUBROUTINES, CONSTANTS AND ERASABLE 06644 0 50000 0 06647 OCTALT+16,,5*4096 F0D15910 06645 0 60000 0 06647 OCTALT+16,,6*4096 F0D15920 06646 0 70000 0 06647 OCTALT+16,,7*4096 F0D15930 06647 0 00000 0 06657 OCTALT+24 F0D15940 06650 0 01000 0 06657 OCTALT+24,,512 F0D15950 06651 0 02000 0 06657 OCTALT+24,,2*512 F0D15960 06652 0 03000 0 06657 OCTALT+24,,3*512 F0D15970 06653 0 04000 0 06657 OCTALT+24,,4*512 F0D15980 06654 0 05000 0 06657 OCTALT+24,,5*512 F0D15990 06655 0 06000 0 06657 OCTALT+24,,6*512 F0D16000 06656 0 07000 0 06657 OCTALT+24,,7*512 F0D16010 06657 0 00000 0 06667 OCTALT+32 F0D16020 06660 0 00100 0 06667 OCTALT+32,,64 F0D16030 06661 0 00200 0 06667 OCTALT+32,,2*64 F0D16040 06662 0 00300 0 06667 OCTALT+32,,3*64 F0D16050 06663 0 00400 0 06667 OCTALT+32,,4*64 F0D16060 BINARY CARD NO. 9F040071 06664 0 00500 0 06667 OCTALT+32,,5*64 F0D16070 06665 0 00600 0 06667 OCTALT+32,,6*64 F0D16080 06666 0 00700 0 06667 OCTALT+32,,7*64 F0D16090 06667 0 00000 0 06677 OCTALT+40 F0D16100 06670 0 00010 0 06677 OCTALT+40,,8 F0D16110 06671 0 00020 0 06677 OCTALT+40,,16 F0D16120 06672 0 00030 0 06677 OCTALT+40,,24 F0D16130 06673 0 00040 0 06677 OCTALT+40,,32 F0D16140 06674 0 00050 0 06677 OCTALT+40,,40 F0D16150 06675 0 00060 0 06677 OCTALT+40,,48 F0D16160 06676 0 00070 0 06677 OCTALT+40,,56 F0D16170 06677 0 00000 0 00000 0 F0D16180 06700 0 00001 0 00000 ,,1 F0D16190 06701 0 00002 0 00000 ,,2 F0D16200 06702 0 00003 0 00000 ,,3 F0D16210 06703 0 00004 0 00000 ,,4 F0D16220 06704 0 00005 0 00000 ,,5 F0D16230 06705 0 00006 0 00000 ,,6 F0D16240 06706 0 00007 0 00000 ,,7 F0D16250 F0D16260 F0D16270 TO CONVERT DECIMAL TO FLOATING POINT BINARY F0D16280 06706 DECTAB SYN *-1 F0D16290 06707 +141500000000 OCT 141500000000,144620000000,147764000000,153470400000 F0D16300 BINARY CARD NO. 9F040072 06713 +156606500000 OCT 156606500000,161750220000,165461132000,170575360400 F0D16310 06717 +173734654500 OCT 173734654500,177452013710,202564416672,205721522451 F0D16320 06723 +211443023471 OCT 211443023471,214553630410,217706576512,223434157116 F0D16330 06727 +226543212741 OCT 226543212741,231674055532,235425434430,240532743536 F0D16340 06733 +243661534466 OCT 243661534466,247417031702,252522640262,255647410336 F0D16350 06737 +261410545213 OCT 261410545213,264512676456,267635456171,273402374714 F0D16360 BINARY CARD NO. 9F040073 06743 +276503074077 OCT 276503074077,301623713116,304770675742,310473426555 F0D16370 06747 +313612334311 OCT 313612334311,316755023373,322464114135,325601137164 F0D16380 06753 +330741367021 OCT 330741367021,334454732313,337570120775,342726145174 F0D16390 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 34 COMMON SUBROUTINES, CONSTANTS AND ERASABLE 06757 +346445677216 OCT 346445677216,351557257061,354713132676,360436770626 F0D16400 06763 +363546566774 OCT 363546566774,366700324573,372430204755,375536246150 F0D16410 BINARY CARD NO. 9F040074 F0D16420 I/O COMMANDS F0D16430 06767 -0 00000 0 00001 BSREC MZE 1,,0 COMMAND TO BACKSPACE ONE RECORD F0D16440 06770 -0 00000 0 00002 BS2RC MZE 2,,0 I/O COMMAND TO BACKSPACE TWO RECORDS F0D16450 06771 0 77777 0 00000 REWND PZE ,,-1 COMMAND TO REWIND TAPE F0D16460 06772 -0 77777 0 00000 UNLOD MZE ,,-1 COMMAND TO REWIND-UNLOAD TAPE F0D16470 06773 0 00002 0 07002 INTAP PZE ILABL,,FINTAP PARAM TO READ/WRITE FIRST INTERMED TAPE F0D16480 06774 0 00003 0 07002 PZE ILABL,,SINTAP PARAM TO READ/WRITE SECOND INTERMED TAPE F0D16490 06775 0 10000 0 00002 INTCK PZE FINTAP,,(CHKU) COMMAND TO CHECK TRANSMISSION INT TAPE 1 F0D16500 06776 0 10000 0 00003 PZE SINTAP,,(CHKU) COMMAND TO CHECK TRANSMISSION INT TAPE 2 F0D16510 06777 0 00000 0 73674 ITSCH PZE (SCHU)+FINTAP INTERMEDIATE TAPE 1 HISTORY CELL F0D16520 07000 0 00000 0 73675 PZE (SCHU)+SINTAP INTERMEDIATE TAPE 2 HISTORY CELL F0D16530 07001 262147223145 BLABL BCI 1,FAPBIN INTERMEDIATE PUNCH TAPE RECORD LABEL F0D16540 07002 262147222324 ILABL BCI 1,FAPBCD INTERMEDIATE PRINT TAPE RECORD LABEL F0D16550 F0D16560 07003 3 00000 0 67551 IORT BBUF11,,** I/O COMMAND TO WRITE LISTING TAPE F0D16570 07004 0 00000 1 67551 BCD14 PZE BBUF11,1 ORIGIN OF LISTING OUTPUT BUFFER F0D16580 07005 3 00000 0 67721 IORT BBUF12,,** F0D16590 07006 0 00000 1 67721 PZE BBUF12,1 F0D16600 F0D16610 07007 3 00340 0 70071 IORT BBUF21,,UPDBKL I/O COMMAND TO READ UPDATE INPUT TAPE F0D16620 07010 0 00000 1 70432 BCD24 PZE BBUF22,1 ORIGIN OF UPDATE INPUT BUFFER F0D16630 07011 3 00340 0 70432 IORT BBUF22,,UPDBKL F0D16640 07012 0 00000 1 70071 PZE BBUF21,1 F0D16650 F0D16660 07013 3 00340 0 70773 IORT BBUF31,,UPDBKL I/O COMMAND TO READ SOURCE INPUT TAPE F0D16670 BINARY CARD NO. 9F040075 07014 0 00000 1 71334 BCD34 PZE BBUF32,1 ORIGIN OF SOURCE INPUT BUFFER F0D16680 07015 3 00340 0 71334 IORT BBUF32,,UPDBKL F0D16690 07016 0 00000 1 70773 PZE BBUF31,1 F0D16700 F0D16710 07017 3 00000 0 71675 IORT BBUF41,,** I/O COMMAND TO WRITE UPDATE OUTPUT TAPE F0D16720 07020 0 00000 1 71675 BCD44 PZE BBUF41,1 ORIGIN OF UPDATE OUTPUT BUFFER F0D16730 07021 3 00000 0 72235 IORT BBUF42,,** F0D16740 07022 0 00000 1 72235 PZE BBUF42,1 F0D16750 F0D16760 07023 3 00000 0 72575 IORT BBUF51,,** I/O COMMAND TO WRITE INTERMEDIATE TAPE F0D16770 07024 0 00000 1 72575 BCD54 PZE BBUF51,1 ORIGIN OF INTERMEDIATE OUTPUT BUFFER F0D16780 07025 3 00000 0 73176 IORT BBUF52,,** F0D16790 07026 0 00000 1 73176 PZE BBUF52,1 F0D16800 F0D16810 07027 3 00400 0 72575 IORT BBUF51,,INPBKL I/O COMMAND TO READ INTERMEDIATE TAPE F0D16820 07030 0 00000 1 73176 BCD55 PZE BBUF52,1 ORIGIN OF INTERMEDIATE INPUT BUFFER F0D16830 07031 3 00400 0 73176 IORT BBUF52,,INPBKL F0D16840 07032 0 00000 1 72575 PZE BBUF51,1 F0D16850 F0D16860 07033 -0 00030 0 70773 IOCP PBUFF2,,24 I/O COMMAND TO WRITE BINARY OUTPUT RECORD F0D16870 07034 -1 00003 0 71023 BOTIO IOCT PBUFF2+24,,3 AND CARD SERIALIZATION FROM PROPER BUFFER F0D16880 07035 -0 00030 0 71026 IOCP PBUFF3,,24 F0D16890 07036 -1 00003 0 71056 IOCT PBUFF3+24,,3 F0D16900 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 35 COMMON SUBROUTINES, CONSTANTS AND ERASABLE F0D16910 07037 0 00000 4 71026 PZE PBUFF2+27,4 ORIGIN OF BINARY OUTPUT RECORD BUFFER F0D16920 07040 0 00000 0 70774 BOTBF PZE PBUFF2+1 BINARY OUTPUT BUFFER CHECKSUM F0D16930 07041 0 00000 4 71061 PZE PBUFF3+27,4 F0D16940 BINARY CARD NO. 9F040076 07042 0 00000 0 71027 PZE PBUFF3+1 F0D16950 F0D16960 07043 0 00000 4 71114 PZE PBUFF4+27,4 ORIGIN OF BINARY INTERMED RECORD BUFFER F0D16970 07044 0 00000 0 71062 BINBF PZE PBUFF4+1 BINARY INTERMEDIATE BUFFER CHECKSUM F0D16980 07045 0 00000 4 71147 PZE PBUFF5+27,4 F0D16990 07046 0 00000 0 71115 PZE PBUFF5+1 F0D17000 F0D17010 07047 -1 00030 0 71061 IOCT PBUFF4,,24 I/O COMMAND TO WRITE BINARY INTER RECORD F0D17020 07050 0 00000 0 00000 BINIO PZE F0D17030 07051 -1 00030 0 71114 IOCT PBUFF5,,24 F0D17040 F0D17050 F0D17060 07052 0600 00 0 04103 DCV15 STZ DCPFG RESET EXCESS DECIMAL POINT FLAG $F0D17070 07053 0600 00 0 04104 STZ DCEFG RESET EXCESS EXPONENT (E) FLAG $F0D17071 07054 0600 00 0 04105 STZ DC2FG RESET EXCESS EXPONENT (B) FLAG $F0D17072 07055 0020 00 0 05452 TRA DCV03+2 $F0D17073 07056 0520 00 0 04103 DCV16 ZET DCPFG IS THERE AN EXCESS DECIMAL POINT $F0D17074 07057 0020 00 0 05647 TRA DCVRR YES, SET ERROR FLAG $F0D17075 07060 0601 00 0 04103 STO DCPFG NO $F0D17076 07061 0020 00 0 05436 TRA DCV01 $F0D17077 07062 0520 00 0 04104 DCV17 ZET DCEFG IS THERE AN EXCESS EXPONENT (E) $F0D17078 07063 0020 00 0 05647 TRA DCVRR YES, SET ERROR FLAG $F0D17079 07064 0601 00 0 04104 STO DCEFG NO $F0D1707A 07065 0020 00 0 05445 TRA DCV02 $F0D1707B 07066 0520 00 0 04105 DCV18 ZET DC2FG IS THERE AN EXCESS EXPONENT (B) $F0D1707C 07067 0020 00 0 05647 TRA DCVRR YES, SET ERROR FLAG $F0D1707D BINARY CARD NO. 9F040077 07070 0601 00 0 04105 STO DC2FG NO $F0D1707E 07071 0020 00 0 05450 TRA DCV03 $F0D1707F CONVERT BINARY NUMBER TO DECIMAL $F0D1707G 07072 0204 03 0 06413 OCTDV VLM Q8,,3 $F0D1707H 07073 0601 00 0 04005 STO NERAS $F0D1707I 07074 0204 03 0 07110 VLM Q80,,3 $F0D1707J 07075 0400 00 0 04005 ADD NERAS $F0D1707K 07076 0601 00 0 04005 STO NERAS $F0D1707L 07077 0204 03 0 07111 VLM Q800,,3 $F0D1707M 07100 0400 00 0 04005 ADD NERAS $F0D1707N 07101 0601 00 0 04005 STO NERAS $F0D1707O 07102 0204 03 0 07112 VLM Q8000,,3 $F0D1707P 07103 0400 00 0 04005 ADD NERAS $F0D1707Q 07104 0601 00 0 04005 STO NERAS $F0D1707R 07105 0204 03 0 07113 VLM Q80000,,3 $F0D1707S 07106 0400 00 0 04005 ADD NERAS $F0D1707T 07107 0020 00 4 00001 TRA 1,4 $F0D1707U 07110 0 00000 0 00120 Q80 PZE 80 $F0D1707V 07111 0 00000 0 01440 Q800 PZE 800 $F0D1707W 07112 0 00000 0 17500 Q8000 PZE 8000 $F0D1707X 07113 +000000234200 Q80000 DEC 80000 $F0D1707Y 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 36 COMMON SUBROUTINES, CONSTANTS AND ERASABLE 07114 -0500 60 0 04435 FPRNA CAL* FPRN2 PICK UP FIRST WORD OF LINE $F0D1707Z 07115 0771 00 0 00036 ARS 30 ISOLATE FIRST CHARACTER $F0D17080 BINARY CARD NO. 9F040078 07116 -0100 00 0 04443 TNZ WRITT NOT DOUBLE-SPACE, WRITE LINE $F0D17081 07117 2 00001 1 04443 TIX WRITT,1,1 YES, BUMP LINE COUNT ONE EXTRA $F0D17082 07120 0020 00 0 04371 TRA PAGENO PAGE IS FULL $F0D17083 07121 0074 00 4 06250 DLRUT TSX C019A,4 GET NEXT CHARACTER FOR TEST $F0D17084 07122 0734 00 4 00000 PAX ,4 $F0D17085 07123 -3 00011 4 07141 TXL HDTST,4,9 CHARACTER IS NUMERIC $F0D17086 07124 -3 00020 4 07136 TXL DLERR,4,16 CHARACTER IS ILLEGAL OR PLUS $F0D17087 07125 -3 00031 4 07141 TXL HDTST,4,25 CHARACTER IS ALPHABETIC $F0D17088 07126 -3 00032 4 07136 TXL DLERR,4,26 CHARACTER IS ILLEGAL $F0D17089 07127 -3 00034 4 07141 TXL HDTST,4,28 CHARACTER IS PERIOD OR RIGHT PARENTHESIS$F0D1708A 07130 -3 00040 4 07136 TXL DLERR,4,32 CHARACTER IS ILLEGAL OR MINUS $F0D1708B 07131 -3 00051 4 07141 TXL HDTST,4,41 CHARACTER IS ALPHABETIC $F0D1708C 07132 -3 00061 4 07136 TXL DLERR,4,49 CHARACTER IS BLANK OR EQUALS $F0D1708D 07133 -3 00071 4 07141 TXL HDTST,4,57 CHARACTER IS ALPHABETIC $F0D1708E 07134 -3 00073 4 07136 TXL DLERR,4,59 CHARACTER IS ILLEGAL OR COMMA $F0D1708F 07135 -3 00074 4 07141 TXL HDTST,4,60 CHARACTER IS LEFT PARENTHESIS $F0D1708G REENTRY FOR IMPROPER DOLLAR SIGN $F0D1708H 07136 0760 00 0 00141 DLERR SLN EXPRR SET ERROR FLAGS $F0D1708I 07137 -0625 00 0 04106 STL ERFDL $F0D1708J 07140 0020 00 0 05025 TRA SCN02+2 RETURN $F0D1708K REENTRY TO TEST FOR MORE THAN ONE CHARACTER PRECEEDING $F0D1708L 07141 -0500 00 0 04001 HDTST CAL SYMBL GET PRECEEDING CHARACTERS $F0D1708M 07142 -0765 00 0 00006 LGR 6 $F0D1708N 07143 -0100 00 0 07136 TNZ DLERR MORE THAN ONE BEFORE DOLLAR SIGN $F0D1708O BINARY CARD NO. 9F040079 07144 -0763 00 0 00006 LGL 6 OK $F0D1708P 07145 0020 00 0 05024 TRA SCN02+1 RETURN $F0D1708Q 07146 3 00000 2 04431 PATCH TXH FPRN1,2,0 IS LINE AT TOP OF PAGE BLANK $F0D1708R 07147 1 77777 1 04431 TXI FPRN1,1,-1 YES, BUMP PAGE LINE COUNT DOWN ONE $F0D1708S 07150 -0625 00 0 04116 FLAGB STL ERRFB INDICATE BOOLEAN ERROR $F0D1708T 07151 0020 00 0 06206 TRA SSCN2+1 RETURN $F0D1708U 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 37 PASS ONE SUBROUTINES 07152 PASSLP SYN * $F0D17093 PASS ONE F0D17100 F0D17110 COPY INPUT TAPE TO INTERMEDIATE TAPE F0D17120 PREPARE TABLE OF SYMBOLS APPEARING IN SOURCE PROGRAM F0D17130 PARTIALLY PROCESS PSEUDOOPS AND LITERALS F0D17140 PREPARE TRANSFER VECTOR F0D17150 F0D17160 HEAD 4 PASS ONE F0D17170 07152 ORG PASSLP F0D17180 F0D17190 SSYMT SUBROUTINE MUST ORIGIN AT SAME LOCATN PASS 1 AND 2 F0D17200 LINEAR SEARCH OF SYMBOL TABLE F0D17210 BINARY CARD NO. 9F040080 07152 0634 00 4 07203 SSYMT SXA SRCHX,4 SAVE CALLING LINKAGE F0D17220 07153 -0500 00 0 23270 CAL SYMSIZ COMPUTE LENGTH OF SYMBOL TABLE F0D17230 07154 0760 00 0 00006 COM F0D17240 07155 0771 00 0 00022 ARS 18 F0D17250 07156 0400 00 0 06422 ADD Q3 F0D17260 07157 0734 00 4 00000 PAX ,4 F0D17270 07160 0401 00 0 07364 ADM ESYM3 COMPUTE ORIGIN AT END OF SYMBOL TABLE F0D17280 07161 0621 00 0 07165 STA SRCH1 FOR SYMBOL NAMES F0D17290 07162 0400 00 0 06410 ADD Q1 F0D17300 07163 0621 00 0 07174 STA SRCH2 FOR LOCATIONS F0D17310 07164 -0500 00 0 04001 CAL SYMBL LOAD SYMBOL NAME F0D17320 07165 -0340 00 4 00000 SRCH1 LAS **,4 IS IT IN SYMBOL TABLE F0D17330 07166 2 00002 4 07165 TIX SRCH1,4,2 NOT YET F0D17340 07167 3 00002 4 07174 TXH SRCH2,4,2 YES F0D17350 07170 2 00002 4 07165 TIX SRCH1,4,2 NOT YET, IS SYMBOL TABLE EXHAUSTED F0D17360 07171 0760 00 0 00141 SLN EXPRR YES, PHASE ERROR F0D17370 07172 -0754 00 0 00000 PXD ,0 F0D17380 07173 0020 00 0 07203 TRA SRCHX F0D17390 07174 0500 00 4 00000 SRCH2 CLA **,4 LOAD LOCATION OF SYMBOL F0D17400 07175 0044 00 0 00000 PAI LOAD FLAGS F0D17410 07176 -0054 00 000004 LFT 4 IS THIS NAME IN TRANSFER VECTOR F0D17420 07177 0760 00 0 00141 SLN EXPRR YES, PHASE ERROR (CANNOT DEFINE PSEUDOOP) F0D17430 BINARY CARD NO. 9F040081 07200 0520 00 0 03740 ZET ABSFLG IS ASSEMBLY ABSOLUTE F0D17440 07201 -0320 00 0 06452 ANA ADTMK YES, DELETE EXTRANEOUS FLAGS F0D17450 07202 0634 00 4 15441 SXA SET01,4 SAVE LOCATION OF SYMBOL F0D17460 07203 0774 00 4 00000 SRCHX AXT **,4 RELOAD CALLING LINKAGE F0D17470 07204 0020 00 4 00001 TRA 1,4 F0D17480 F0D17490 ENTER NAME IN AC, DEFINITION IN SI, IN COMBINED OP TABLE F0D17500 SEE REQUIRED FLAGS UNDER COMBINED OP TABLE F0D17510 07205 -0500 00 0 04255 EOPTB CAL BCDBF LOAD LOCATION FIELD F0D17520 07206 0634 00 4 07260 EOPTT SXA EOPTX,4 SAVE CALLING LINKAGE F0D17530 07207 0604 00 0 04007 STI BERAS SAVE OP DEFINITION F0D17540 07210 0074 00 4 04547 TSX LOCFL,4 *ASSEMBLE OP NAME F0D17550 07211 0100 00 0 12564 TZE FIELD **DOES OP NAME EXIST F0D17560 07212 -0765 00 0 00006 LGR 6 YES, LEFT ADJUST NAME F0D17570 07213 -0100 00 0 07212 TNZ *-1 F0D17580 07214 -0130 00 0 00000 XCL F0D17590 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 38 PASS ONE SUBROUTINES 07215 0602 00 0 04001 SLW SYMBL SAVE LEFT ADJUSTED OP NAME F0D17600 07216 0074 00 4 04707 TSX SOPTB,4 *FIND LOCATION IN OP TABLE F0D17610 07217 0020 00 0 07221 TRA *+2 NOT IN F0D17620 07220 0020 00 0 07246 TRA EOPT1+3 IN TABLE, REDEFINE F0D17630 07221 -0340 00 1 17266 LAS OPTTBL-2,1 PINPOINT LOCATION OF ENTRY F0D17640 07222 1 77776 1 07224 TXI *+2,1,-2 F0D17650 07223 0074 00 4 06312 TSX MACERR,4 **IMPOSSIBLE PATH OF FLOW F0D17660 07224 -0634 00 1 07243 SXD EOPT1,1 MARK LOWEST NAME TO BE MOVED UP F0D17670 07225 -0534 00 6 17267 LXD OPTSIZ,6 LOAD CURRENT TABLE LENGTH F0D17680 BINARY CARD NO. 9F040082 07226 1 77776 4 07227 TXI *+1,4,-2 BUMP F0D17690 07227 3 74000 4 07232 TXH *+3,4,-LOPTBM DID OP TABLE OVERFLOW F0D17700 07230 0441 00 0 06356 LDI OPTNM YES, SET OP TABLE OVERFLOW F0D17710 07231 0020 00 0 06274 TRA SRCERR **TERMINATE ASSEMBLY F0D17720 07232 -0634 00 4 17267 SXD OPTSIZ,4 NO, SET NEW TABLE LENGTH F0D17730 07233 1 77777 4 07234 TXI *+1,4,-1 F0D17740 07234 -0634 00 4 04714 SXD SOPT1,4 SET UPPER LIMIT FOR TABLE SEARCH F0D17750 07235 -0500 00 2 17266 CAL OPTTBL-2,2 MOVE TABLE UP OFF THE TOP F0D17760 07236 0560 00 2 17267 LDQ OPTTBL-1,2 TO MAKE ROOM FOR NEW ENTRY F0D17770 07237 0602 00 2 17270 SLW OPTTBL,2 F0D17780 07240 -0600 00 2 17271 STQ OPTTBL+1,2 F0D17790 07241 1 00002 2 07242 TXI *+1,2,2 BUMP TO NEXT PAIR F0D17800 07242 -3 00000 2 07244 TXL *+2,2,0 IS ENTRY AT BOTTOM OF TABLE F0D17810 07243 -3 00000 2 07235 EOPT1 TXL *-6,2,** NO, IS TABLE MOVED F0D17820 07244 -0500 00 0 04001 CAL SYMBL YES, INSERT OP NAME F0D17830 07245 0602 00 1 17266 SLW OPTTBL-2,1 INTO TABLE F0D17840 07246 0441 00 0 04007 LDI BERAS INSERT OP DEFINITION F0D17850 07247 0604 00 1 17267 STI OPTTBL-1,1 INTO TABLE F0D17860 07250 3 74000 4 07260 EOPT2 TXH EOPTX,4,-2048 IS TABLE NOW LONGER THAN 1024 OPCODES F0D17870 07251 -0534 00 4 07250 LXD EOPT2,4 YES, LOAD CURRENT TABLE LENGTH F0D17880 07252 1 74000 4 07253 TXI *+1,4,-2048 DOUBLE F0D17890 07253 -0634 00 4 07252 SXD *-1,4 RESET BUMP F0D17900 BINARY CARD NO. 9F040083 07254 -0634 00 4 07250 SXD EOPT2,4 RESET TEST F0D17910 07255 -0500 00 0 17267 CAL OPTSIZ BUMP LOGARITHM F0D17920 07256 0400 00 0 06411 ADD Q2 FOR TABLE OF DOUBLE SIZE F0D17930 07257 0621 00 0 17267 STA OPTSIZ F0D17940 07260 0774 00 4 00000 EOPTX AXT **,4 RELOAD CALLING LINKAGE F0D17950 07261 0020 00 4 00001 TRA 1,4 F0D17960 F0D17970 ASSEMBLE SUBPROGRAM NAME AND ENTER INTO TRANSFER VECTOR F0D17980 07262 0634 00 4 07300 CALNM SXA CALNX,4 SAVE CALLING LINKAGE F0D17990 07263 0600 00 0 04001 STZ SYMBL CLEAR SUBPROGRAM NAME F0D18000 07264 0020 00 0 16717 TRA CALN1 TEST FOR ABSOLUTE ASSEMBLY $F0D18010 07265 0074 00 4 04767 TSX SCANF,4 *ASSEMBLE SUBPROGRAM NAME F0D18020 07266 1 00000 0 07424 TXI AFLAG,,0 NULL SUBPROGRAM NAME F0D18030 07267 -0760 00 0 00141 SLT EXPRR TURN OFF ERROR FLAG F0D18040 07270 0761 00 0 00000 NOP PERMIT MULTIPLE DEFINITION F0D18050 07271 0520 00 0 03740 ZET ABSFLG IS ASSEMBLY ABSOLUTE F0D18060 07272 0020 00 0 07300 TRA CALNX YES F0D18070 07273 0074 00 4 06224 TSX LADJS,4 *LEFT ADJUST SUBPROGRAM NAME F0D18080 07274 0100 00 0 07277 TZE *+3 DOES SUBPROGRAM NAME EXIST F0D18090 07275 -0760 00 0 00141 SLT EXPRR YES, IS SUBPROGRAM NAME FLAGGED AS ERROR F0D18100 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 39 PASS ONE SUBROUTINES 07276 0074 00 4 07302 TSX TRVCR,4 *NO, ENTER NAME IN TRANSFER VECTOR TABLE F0D18110 07277 0600 00 0 04023 STZ TVFLG RESET TRANSFER VECTOR NAME FLAG F0D18120 07300 0774 00 4 00000 CALNX AXT **,4 RELOAD CALLING LINKAGE F0D18130 07301 0020 00 4 00001 TRA 1,4 F0D18140 F0D18150 ENTER NAMES IN TRANSFER VECTOR TABLE F0D18160 BINARY CARD NO. 9F040084 07302 0634 00 4 07332 TRVCR SXA TRVCX,4 SAVE CALLING LINKAGE F0D18170 07303 0774 00 4 00372 AXT LTVTBL,4 LOAD TRANSFER VECTOR TABLE LENGTH F0D18180 07304 -3 00372 4 07311 TXL TRVC1,4,LTVTBL IS VECTOR EXHAUSTED F0D18190 07305 -0340 00 4 65601 LAS VECTOR+LTVTBL,4 NO, IS IT THIS WORD IN VECTOR F0D18200 07306 1 77777 4 07304 TXI *-2,4,-1 NO F0D18210 07307 0020 00 0 07332 TRA TRVCX YES F0D18220 07310 1 77777 4 07304 TXI *-4,4,-1 NO F0D18230 07311 3 00000 4 07314 TRVC1 TXH *+3,4,0 DID TRANSFER VECTOR TABLE OVERFLOW F0D18240 07312 0441 00 0 06353 LDI VECNM YES, SET TRANSFER VECTOR OVERFLOW F0D18250 07313 0020 00 0 06274 TRA SRCERR **TERMINATE ASSEMBLY F0D18260 07314 0602 00 4 65601 SLW VECTOR+LTVTBL,4 ADD NAME TO END OF TABLE F0D18270 07315 0044 00 0 00000 PAI HOLD SYMBOL NAME F0D18280 07316 1 77777 4 07317 TXI *+1,4,-1 BUMP VECTOR COUNT F0D18290 07317 -0634 00 4 07304 SXD TRVCR+2,4 RESET END OF TRANSFER VECTOR TABLE TEST F0D18300 07320 -0535 00 4 07304 LDC TRVCR+2,4 COMPUTE CURRENT LENGTH OF TRANSFER VECTOR F0D18310 07321 1 00372 4 07322 TXI *+1,4,LTVTBL F0D18320 07322 -0634 00 4 04216 SXD PBUFF1+2,4 INSERT IN PROGRAM CARD 8L DECREMENT F0D18330 07323 0634 00 4 04221 SXA PBUFF1+5,4 INSERT ENTRY POINT IN PC 7R ADDRESS F0D18340 07324 1 77777 4 07325 TXI *+1,4,-1 COMPUTE RELATIVE LOCATION OF VECTOR NAME F0D18350 07325 0754 00 4 00000 PXA ,4 F0D18360 07326 -0501 00 0 06457 ORA D5 AND VECTOR RELOCATION BITS F0D18370 07327 0601 00 0 03762 STO ADDRS F0D18380 BINARY CARD NO. 9F040085 07330 -0046 00 0 00000 PIA RECALL SYMBOL NAME F0D18390 07331 0074 00 4 07335 TSX ESYMT,4 *DEFINE SYMBOL F0D18400 07332 0774 00 4 00000 TRVCX AXT **,4 RELOAD CALLING LINKAGE F0D18410 07333 0020 00 4 00001 TRA 1,4 F0D18420 F0D18430 ENTER NAME, DEFINITION IN ADDRS, INTO SYMBOL TABLE F0D18440 ENTRY WORD 1 CONTAINS SYMBOL NAME RIGHT ADJUSTED F0D18450 HEADING CHARACTER LEFT ADJUSTED F0D18460 FILLED WITH ZEROES F0D18470 ENTRY WORD 2 CONTAINS ASSIGNED LOCATION BITS 18-35 F0D18480 FLAGS BITS 3 - 17 F0D18490 BIT 13 SET SYMBOL F0D18500 14 MULTIPLY DEFINED F0D18510 15 TRANSFER VECTOR NAME F0D18520 16 COMMON VARIABLE F0D18530 17 RELOCATABLE SYMBOL F0D18540 07334 -0500 00 0 04255 ESYML CAL BCDBF ENTRY POINT TO DEFINE LOCATION FIELD F0D18550 07335 0634 00 4 07401 ESYMT SXA ESYMX,4 SAVE CALLING LINKAGE F0D18560 07336 0634 00 2 07402 SXA ESYMX+1,2 SAVE WORD COUNT F0D18570 07337 3 77777 4 07347 TXH ESYM0,4,-1 IS SYSTEM SYMBOL TABLE PRESERVED F0D18580 07340 -0634 00 0 07337 SXD *-1,0 NO, RESET SWITCH F0D18590 07341 -0535 00 6 23270 LDC SYMSIZ,6 LOAD LENGTH OF SYMBOL TABLE F0D18600 07342 1 23271 2 07343 TXI *+1,2,SYMTBL COMPUTE ORIGIN AT END OF SYMBOL TABLE F0D18610 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 40 PASS ONE SUBROUTINES 07343 0634 00 2 07344 SXA *+1,2 INITIALIZE CLEAR LOOP F0D18620 07344 0600 00 4 00000 STZ **,4 CLEAR SYMBOL TABLE F0D18630 07345 2 00001 4 07344 TIX *-1,4,1 F0D18640 07346 0600 00 0 23270 STZ SYMSIZ RESET SYMBOL TABLE COUNT F0D18650 07347 -0625 00 0 04047 ESYM0 STL FCFLG SET FLAG TO PREVENT ABS OR ENTRY CARDS F0D18660 FROM SETTING MODE OF ASSEMBLY F0D18670 07350 0074 00 4 04547 TSX LOCFL,4 *ASSEMBLE UNIFORM SYMBOL F0D18680 07351 0100 00 0 07401 TZE ESYMX IS THERE A SYMBOL F0D18690 07352 -0534 00 4 23270 LXD SYMSIZ,4 YES, LOAD CURRENT SYMBOL TABLE SIZE F0D18700 07353 0774 00 2 00000 AXT 0,2 LOAD SINGLE HEAD COUNT F0D18710 07354 -0130 00 0 00000 XCL F0D18720 07355 -0763 00 0 00006 LGL 6 SHIFT IN FIRST CHARACTER F0D18730 BINARY CARD NO. 9F040086 07356 0520 00 0 04023 ZET TVFLG IS THIS NAME IN TRANSFER VECTOR F0D18740 07357 0020 00 0 07363 TRA *+4 YES, FORCE UNHEADING F0D18750 07360 -0100 00 0 07363 TNZ *+3 NO, IS SYMBOL SHORTER THAN SIX CHARACTERS F0D18760 07361 0774 00 2 00000 HEDCT AXT **,2 NO, LOAD MULTIPLE HEADING COUNT F0D18770 07362 -0500 00 2 03776 ESYM2 CAL BHEAD,2 APPEND HEADING CHARACTER F0D18780 07363 -0763 00 0 00036 LGL 30 SHIFT IN HEADED SYMBOL F0D18790 07364 0602 00 4 23271 ESYM3 SLW SYMTBL,4 ADD SYMBOL TO END OF TABLE F0D18800 07365 -0765 00 0 00036 LGR 30 HOLD UNHEADED SYMBOL F0D18810 07366 0500 00 0 03762 CLA ADDRS DEFINE SYMBOL AS CURRENT CONTENTS OF F0D18820 07367 0601 00 4 23272 STO SYMTBL+1,4 PROGRAM COUNTER F0D18830 07370 1 77776 4 07371 TXI *+1,4,-2 BUMP SYMBOL TABLE COUNTER F0D18840 07371 3 36061 4 07374 TXH *+3,4,-LSMTBM DID SYMBOL TABLE OVERFLOW F0D18850 07372 0441 00 0 06355 LDI SYMNM YES, SET SYMBOL TABLE OVERFLOW F0D18860 07373 0020 00 0 06274 TRA SRCERR **TERMINATE ASSEMBLY F0D18870 07374 -3 00000 2 07376 TXL *+2,2,0 IS MULTIPLE HEADING LIST EXHAUSTED F0D18880 07375 1 77777 2 07362 TXI ESYM2,2,-1 NO, BUMP LIST COUNT TO NEXT HEAD CHARACTERF0D18890 07376 -0634 00 4 23270 SXD SYMSIZ,4 SAVE SYMBOL TABLE LENGTH F0D18900 07377 1 54507 4 16724 ESYMS TXI ESYMZ,4,-SYMTBL TO TEST FOR OVERLAP OF MACRO TABLE $F0D18910 07400 -0634 00 4 17151 SXD STPTR,4 SAVE CURRENT SYMBOL TABLE END $F0D18920 07401 0774 00 4 00000 ESYMX AXT **,4 RELOAD CALLING LINKAGE F0D18930 07402 0774 00 2 00000 AXT **,2 RELOAD WORD COUNT F0D18940 07403 0020 00 4 00001 TRA 1,4 F0D18950 F0D18960 SCAN PSEUDOOP VARIABLE FIELD F0D18970 BINARY CARD NO. 9F040087 07404 0634 00 4 07417 SCANP SXA SCNPX,4 SAVE CALLING LINKAGE F0D18980 07405 0074 00 4 04767 TSX SCANF,4 *EVALUATE VARIABLE FIELD F0D18990 07406 1 00000 0 07421 TXI SCNPX+2,,0 NULL VARIABLE FIELD F0D19000 07407 -0760 00 0 00141 SLT EXPRR WAS VARIABLE FIELD IN ERROR F0D19010 07410 0020 00 0 07412 TRA *+2 NO F0D19020 07411 0020 00 0 12563 TRA FIELX **YES F0D19030 07412 0441 00 0 06407 LDI Q0 PRESET ABSOLUTE SYMBOL F0D19040 07413 0520 00 0 04040 ZET VARUR IS VARIABLE FIELD RELOCATABLE F0D19050 07414 -0055 00 000001 SIL 1 YES, SET RELOCATION BIT F0D19060 07415 0520 00 0 04037 ZET VARUC IS VARIABLE FIELD COMMON F0D19070 07416 -0055 00 000002 SIL 2 YES, SET COMMON BIT (CANNOT BE BOTH) F0D19080 07417 0774 00 4 00000 SCNPX AXT **,4 RELOAD CALLING LINKAGE F0D19090 07420 0020 00 4 00002 TRA 2,4 F0D19100 07421 0534 00 4 07417 LXA SCNPX,4 RELOAD CALLING LINKAGE F0D19110 07422 0441 00 0 06407 LDI Q0 SET NULL FIELD ABSOLUTE ZERO F0D19120 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 41 PASS ONE SUBROUTINES 07423 0020 00 4 00001 TRA 1,4 F0D19130 F0D19140 SET FLAG FOR MISSING PSEUDOOP VARIABLE FIELD F0D19150 07424 -0500 00 0 06416 AFLAG CAL Q64 FLAG MISSING VARIABLE FIELD F0D19160 07425 -0602 00 0 04102 ORS P1FLG F0D19170 07426 0760 00 0 00144 SLN FLDND DELETE F FLAG F0D19180 07427 -0754 00 0 00000 PXD ,0 F0D19190 07430 0020 00 4 00002 TRA 2,4 F0D19200 F0D19210 LOOK AHEAD FOR ETC CARD F0D19220 07431 0634 00 4 07477 PEEKS SXA PEEKX,4 SAVE CALLING LINKAGE F0D19230 BINARY CARD NO. 9F040088 07432 0634 00 2 07500 SXA PEEKX+1,2 SAVE WORD COUNT F0D19240 07433 0634 00 1 07501 SXA PEEKX+2,1 SAVE CHARACTER COUNT F0D19250 07434 3 00000 4 07437 PKMSW TXH *+3,4,** IS NEXT CARD TO BE MACRO COMPILED F0D19260 07435 3 00000 4 07477 TXH PEEKX,4,** YES, WILL NEXT CARD BE AN ETC F0D19270 07436 0020 00 0 07470 TRA PEEK1 YES F0D19280 07437 0534 00 4 10555 LXA DUPCD,4 LOAD COUNT OF REMAINING CARDS IN DUP F0D19290 07440 0520 00 0 04045 ZET DUPMD IS THIS CARD WITHIN RANGE OF DUP F0D19300 07441 -3 00000 4 07477 TXL PEEKX,4,0 YES, IS THIS LAST CARD IN DUP F0D19310 07442 -0534 00 4 07506 LXD SRCSW,4 NO, LOAD SOURCE BUFFER SWITCH F0D19320 07443 -3 00000 4 07446 TXL *+3,4,0 IS SOURCE BUFFER EMPTY F0D19330 07444 -0634 00 0 07506 SXD SRCSW,0 YES, RESET SWITCH F0D19340 07445 0074 00 4 10115 TSX SRCIN,4 *READ NEXT SOURCE CARD F0D19350 07446 -0534 00 4 07516 LXD UPDSW,4 LOAD UPDATE BUFFER SWITCH F0D19360 07447 -3 00000 4 07452 TXL *+3,4,0 IS UPDATE BUFFER EMPTY F0D19370 07450 -0634 00 0 07516 SXD UPDSW,0 YES, RESET SWITCH F0D19380 07451 0074 00 4 07761 TSX UPDIN,4 *READ NEXT UPDATE CARD F0D19390 07452 0560 00 0 04277 LDQ INSBF+2 PRELOAD SOURCE WORD 2 F0D19400 THIS HAD BETTER NOT BE A 'DELETE' F0D19410 FOLLOWED BY AN 'ETC' CARD F0D19420 07453 -0500 00 0 10145 CAL SRCID+1 LOAD SOURCE ID LEADING CHARACTERS F0D19430 07454 -0340 00 0 10011 LAS UPDID+1 IS IT SMALLER THAN UPDATE ID F0D19440 07455 0020 00 0 07462 TRA *+5 NO, USE UPDATE OPFIELD F0D19450 07456 0020 00 0 07460 TRA *+2 EQUAL, CHECK FURTHER F0D19460 07457 0020 00 0 07464 TRA *+5 YES, USE SOURCE OPFIELD F0D19470 BINARY CARD NO. 9F040089 07460 -0500 00 0 10144 CAL SRCID LOAD SOURCE ID F0D19480 07461 -0340 00 0 10010 LAS UPDID IS IT SMALLER THAN UPDATE ID F0D19490 07462 0560 00 0 04320 LDQ DELBF+2 NO, USE UPDATE WORD 2 F0D19500 07463 0761 00 0 00000 NOP EQUAL, USE SOURCE OPFIELD F0D19510 07464 0131 00 0 00000 XCA F0D19520 07465 -0320 00 0 07503 ANA PKMSK MASK IN CC 8 - 11 F0D19530 07466 0322 00 0 07504 ERA ETCMK IS OPCODE ETC F0D19540 07467 -0100 00 0 07477 TNZ PEEKX NO F0D19550 07470 -0500 00 0 06411 PEEK1 CAL Q2 YES, SET ETC FLAG IN CARD WORD 14 (CC 84) F0D19560 07471 -0602 00 0 04102 ORS P1FLG F0D19570 07472 -0625 00 0 04046 STL ETCMD SET ETC FLAG F0D19580 07473 0534 00 4 07477 LXA PEEKX,4 RELOAD CALLING LINKAGE F0D19590 07474 0534 00 2 07500 LXA PEEKX+1,2 RELOAD WORD COUNT F0D19600 07475 0534 00 1 07501 LXA PEEKX+2,1 RELOAD CHARACTER COUNT F0D19610 07476 0020 00 4 00001 TRA 1,4 ETC RETURN F0D19620 07477 0774 00 4 00000 PEEKX AXT **,4 RELOAD CALLING LINKAGE F0D19630 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 42 PASS ONE SUBROUTINES 07500 0774 00 2 00000 AXT **,2 RELOAD WORD COUNT F0D19640 07501 0774 00 1 00000 AXT **,1 RELOAD CHARACTER COUNT F0D19650 07502 0020 00 4 00002 TRA 2,4 NO ETC RETURN F0D19660 07503 +007777777700 PKMSK OCT 007777777700 MASK FOR OP FIELD CC 8 - 11 F0D19670 07504 002563236000 ETCMK BCI 1,0ETC 0 MASK FOR ETC PSEUDOOPERATION F0D19680 F0D19690 F0D19700 INPUT/OUTPUT SUBROUTINES F0D19710 F0D19720 READ CARD FROM SOURCE/UPDATE TAPES F0D19730 07505 0634 00 4 07676 INPUT SXA INPTX,4 SAVE CALLING LINKAGE F0D19740 BINARY CARD NO. 9F040090 07506 3 77777 4 07511 SRCSW TXH *+3,4,-1 IS SOURCE BUFFER EMPTY F0D19750 07507 -0634 00 0 07506 SXD *-1,0 YES, RESET SWITCH F0D19760 07510 0074 00 4 10115 TSX SRCIN,4 *READ NEXT SOURCE CARD F0D19770 07511 0020 00 0 16664 TRA SRCS1 $F0D19780 07512 -0501 00 0 10145 ORA SRCID+1 CC 73 - 80 F0D19790 07513 0100 00 0 07624 TZE INP03+1 IS SOURCE ID BLANK F0D19800 07514 -0520 00 0 03745 NZT IPTFLG NO, IS UPDATE INPUT TAPE PROVIDED F0D19810 07515 0020 00 0 07624 TRA INP03+1 NO F0D19820 07516 3 00000 4 07521 UPDSW TXH *+3,4,0 YES, IS UPDATE BUFFER EMPTY F0D19830 07517 -0634 00 0 07516 SXD *-1,0 YES, RESET SWITCH F0D19840 07520 0074 00 4 07761 TSX UPDIN,4 *READ NEXT UPDATE CARD F0D19850 07521 0020 00 0 07567 TRA INP02+7 F0D19860 LAST CARD READ WAS SKIP TO F0D19870 07522 -0634 00 0 07554 INP00 ZSD SKPFG SET SKIP-TO SWITCH F0D19880 LAST CARD READ WAS IGNORE F0D19890 07523 0774 00 4 77777 AXT -1,4 SET IGNORE SWITCH F0D19900 07524 -0634 00 4 07710 SXD DELUP+2,4 F0D19910 LAST CARD READ WAS DELETE F0D19920 07525 -0500 00 0 04257 CAL BCDBF+2 LOAD CARD WORD 3 F0D19930 07526 -0340 00 0 07702 LAS EBTHR IS CARD DELETE/IGNORE THRU F0D19940 07527 0020 00 0 07531 TRA *+2 NO F0D19950 07530 0020 00 0 07536 TRA *+6 YES $F0D19960 07531 0322 00 0 07703 ERA ETHRU IS CARD DELETE/IGNORE THRU $F0D19970 07532 0100 00 0 07536 TZE *+4 YES F0D19980 07533 -0500 00 0 04256 CAL BCDBF+1 IS CARD F0D19990 BINARY CARD NO. 9F040091 07534 0322 00 0 07704 ERA SKIPC SKIPTO F0D20000 07535 -0100 00 0 07560 TNZ INP02 NO F0D20010 07536 0600 00 0 10277 STZ SEQID YES, AVOID ERRORS ON DELETE F0D20020 07537 0600 00 0 10300 STZ SEQID+1 F0D20030 07540 -0500 00 0 10011 INP01 CAL UPDID+1 LOAD UPDATE ID LEADING CHARACTERS F0D20040 07541 -0340 00 0 10145 LAS SRCID+1 IS IT SMALLER THAN SOURCE ID F0D20050 07542 0020 00 0 07560 TRA INP02 NO, ALL DONE F0D20060 07543 0020 00 0 07545 TRA *+2 EQUAL, CHECK FURTHER F0D20070 07544 0020 00 0 07551 TRA *+5 YES, DELETE ANOTHER UPDATE CARD F0D20080 07545 -0500 00 0 10010 CAL UPDID LOAD UPDATE ID F0D20090 07546 -0340 00 0 10144 LAS SRCID IS IT SMALLER THAN SOURCE ID F0D20100 07547 0020 00 0 07560 TRA INP02 NO, ALL DONE F0D20110 07550 0020 00 0 07554 TRA *+4 EQUAL, ONE MORE TO GO F0D20120 07551 0074 00 4 07710 SKP01 TSX DELUP+2,4 *YES, LIST UPDATE CARD DELETED F0D20130 07552 0074 00 4 07761 TSX UPDIN,4 *GET NEXT UPDATE CARD F0D20140 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 43 PASS ONE SUBROUTINES 07553 0020 00 0 07540 TRA INP01 F0D20150 07554 3 77777 4 07556 SKPFG TXH *+2,4,-1 SKIP SWITCH, DECR IS ZERO IF SKIP-TO F0D20160 07555 0074 00 4 07706 TSX DELUP,4 *DELETE MATCHING UPDATE CARD F0D20170 07556 0774 00 4 77777 AXT -1,4 RESET SKIP SWITCH F0D20180 07557 -0634 00 4 07554 SXD *-3,4 FOR ANOTHER USE F0D20190 DELETE IS COMPLETE F0D20200 07560 -0500 00 0 07554 INP02 CAL SKPFG IS SKIP-TO IN EFFECT F0D20210 07561 -0320 00 0 06470 ANA D32767 IF YES, CONSINUE SEARCHING FOR F0D20220 BINARY CARD NO. 9F040092 07562 0100 00 0 07551 TZE SKP01 MATCHING SERIALIZATION F0D20230 07563 0074 00 4 10115 TSX SRCIN,4 *NO, GET CARD FOLLOWING CONTROL CARD F0D20240 07564 0074 00 4 04361 TSX FPRINT,4 *PRINT BLANK LINE F0D20250 07565 0 00000 0 00000 PZE F0D20260 07566 0020 00 0 07506 TRA INPUT+1 F0D20270 MOVE NEXT CARD F0D20280 07567 0020 00 0 16701 TRA INP2A $F0D20290 07570 -0500 00 0 04300 CAL INSBF+3 LOAD SOURCE WORD 3 F0D20300 07571 -0340 00 0 07702 LAS EBTHR IS CARD DELETE/IGNORE THRU F0D20310 07572 0020 00 0 07574 TRA *+2 NO F0D20320 07573 0020 00 0 07624 TRA INP03+1 YES, USE IT F0D20330 07574 0322 00 0 07703 ERA ETHRU IS CARD DELETE/IGNORE THRU F0D20340 07575 0100 00 0 07624 TZE INP03+1 YES, USE IT F0D20350 07576 -0500 00 0 04277 CAL INSBF+2 IS CARD F0D20360 07577 0322 00 0 07704 ERA SKIPC SKIPTO F0D20370 07600 0100 00 0 07624 TZE INP03+1 YES, FA LA LA LA F0D20380 07601 -0500 00 0 10011 CAL UPDID+1 NO, LOAD UPDATE ID LEADING CHARACTERS F0D20390 07602 -0340 00 0 10145 LAS SRCID+1 IS IT SMALLER THAN SOURCE ID F0D20400 07603 0020 00 0 07624 TRA INP03+1 NO, USE SOURCE CARD F0D20410 07604 0020 00 0 07606 TRA *+2 EQUAL, CHECK FURTHER F0D20420 07605 0020 00 0 07612 TRA *+5 YES, USE UPDATE CARD F0D20430 07606 -0500 00 0 10010 CAL UPDID LOAD UPDATE ID F0D20440 07607 -0340 00 0 10144 LAS SRCID IS IT SMALLER THAN SOURCE ID F0D20450 BINARY CARD NO. 9F040093 07610 0020 00 0 07624 TRA INP03+1 NO, USE SOURCE CARD F0D20460 07611 0020 00 0 16707 TRA INPCH EQUAL ,DELETE UPDATE CARD $F0D20470 07612 0774 00 4 00016 AXT 14,4 YES, MOVE UPDATE CARD F0D20480 07613 -0500 00 4 04335 CAL DELBF+15,4 FROM UPDATE INPUT BUFFER F0D20490 07614 0602 00 4 04273 SLW BCDBF+14,4 TO WORKING BUFFER F0D20500 07615 2 00001 4 07613 TIX *-2,4,1 F0D20510 07616 0774 00 4 77777 AXT -1,4 SET SWITCH FOR EMPTY UPDATE BUFFER F0D20520 07617 -0634 00 4 07516 SXD UPDSW,4 F0D20530 07620 -0500 00 0 10011 CAL UPDID+1 LOAD ID FOR THIS CARD F0D20540 07621 0560 00 0 10010 LDQ UPDID F0D20550 07622 0020 00 0 07655 TRA INP04 F0D20560 USE NEXT SOURCE CARD F0D20570 07623 0074 00 4 07706 INP03 TSX DELUP,4 *DELETE MATCHING UPDATE CARD F0D20580 07624 0774 00 4 00016 AXT 14,4 MOVE SOURCE CARD F0D20590 07625 -0500 00 4 04314 CAL INSBF+15,4 FROM SOURCE INPUT BUFFER F0D20600 07626 0602 00 4 04273 SLW BCDBF+14,4 TO WORKING BUFFER F0D20610 07627 2 00001 4 07625 TIX *-2,4,1 F0D20620 07630 0020 00 0 16704 TRA INP3A $F0D20630 07631 0560 00 0 04257 LDQ BCDBF+2 LOAD CARD WORD 3 F0D20640 07632 -0763 00 0 00006 LGL 6 ASSEMBLE OPCODE (CC 8 - 13) F0D20650 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 44 PASS ONE SUBROUTINES 07633 0520 00 0 03745 ZET IPTFLG IS AN UPDATE INPUT TAPE PROVIDED F0D20660 07634 -0340 00 0 07701 LAS IGNOR YES, IS CARD IGNORE F0D20670 07635 0020 00 0 07637 TRA *+2 NO F0D20680 BINARY CARD NO. 9F040094 07636 0020 00 0 07523 TRA INP00+1 YES F0D20690 07637 0322 00 0 07700 ERA DELET IS CARD DELETE F0D20700 07640 0520 00 0 03745 ZET IPTFLG AND IS AN UPDATE INPUT TAPE PROVIDED F0D20710 07641 0100 00 0 07525 TZE INP00+3 YES F0D20720 07642 -0500 00 0 04256 CAL BCDBF+1 IS CARD F0D20730 07643 0322 00 0 07704 ERA SKIPC SKIPTO F0D20740 07644 0520 00 0 03745 ZET IPTFLG AND IS UPDATE INPUT TAPE PROVIDED F0D20750 07645 0100 00 0 07522 TZE INP00 YES F0D20760 07646 0774 00 4 77777 AXT -1,4 NO, SET SWITCH FOR EMPTY SOURCE BUFFER F0D20770 07647 -0634 00 4 07506 SXD SRCSW,4 F0D20780 07650 -0520 00 0 03750 NZT DELFLG IS ASSEMBLY DELETED F0D20790 07651 0520 00 0 03745 ZET IPTFLG NO, IS AN UPDATE INPUT TAPE PROVIDED F0D20800 07652 0074 00 4 07741 TSX INSUP,4 *YES, LIST INSERTED CARD F0D20810 07653 -0500 00 0 10145 CAL SRCID+1 LOAD ID FOR THIS CARD F0D20820 07654 0560 00 0 10144 LDQ SRCID F0D20830 PROPER CARD IS IN WORKING BUFFER F0D20840 07655 0602 00 0 10300 INP04 SLW SEQID+1 SAVE ID FOR SEQUENCE CHECKING F0D20850 07656 -0600 00 0 10277 STQ SEQID F0D20860 07657 -3 77777 4 07672 TXL INP05,4,-1 IS RESERIALIZATION REQUESTED F0D20870 07660 0500 00 0 06430 CLA INP06 YES. BUMP SERIALIZATION (25)F0D20880 07661 0400 00 0 06461 ADD INP07 (25)F0D20890 07662 0601 00 0 06430 STO INP06 (25)F0D20900 07663 -0320 00 0 06451 ANA NUM03 TRUNCATE TO 19 BITS (25)F0D20910 BINARY CARD NO. 9F040095 07664 0074 00 4 06104 TSX BCDCV,4 *CONVERT TO DECIMAL (25)F0D20920 07665 -0765 00 0 00014 LGR 12 RIGHT ADJUST TO COLUMN 80 (25)F0D20930 07666 0361 00 0 07705 ACL PROID APPEND LEADING CHARACTERS (25)F0D20940 07667 0774 00 0 00000 AXT 0,0 PATCH SPACE (25)F0D20950 07670 0602 00 0 04271 SLW BCDBF+12 INSERT NEW ID F0D20960 07671 -0600 00 0 04272 STQ BCDBF+13 F0D20970 07672 -0500 00 0 04272 INP05 CAL BCDBF+13 BLANK CC 81 - 84 F0D20980 07673 -0320 00 0 06477 ANA P1MSK F0D20990 07674 -0501 00 0 06500 ORA P2MSK F0D21000 07675 0602 00 0 04272 SLW BCDBF+13 F0D21010 07676 0774 00 4 00000 INPTX AXT **,4 RELOAD CALLING LINKAGE F0D21020 07677 0020 00 4 00001 TRA 1,4 F0D21030 07700 242543256325 DELET BCI 1,DELETE F0D21040 07701 312745465125 IGNOR BCI 1,IGNORE F0D21050 07702 256060633051 EBTHR BCI 1,E THR F0D21060 07703 256063305164 ETHRU BCI 1,E THRU F0D21070 07704 606242314763 SKIPC BCI 1, SKIPT MASK FOR SKIPTO F0D21080 07705 0 00000 0 00000 PROID PZE LEADING CHARACTERS FOR RESERIALIZATION F0D21090 F0D21100 DELETE CARD FROM UPDATE TAPE F0D21110 07706 0774 00 1 77777 DELUP AXT -1,1 SET SWITCH FOR EMPTY UPDATE BUFFER F0D21120 07707 -0634 00 1 07516 SXD UPDSW,1 F0D21130 07710 -3 00000 4 07715 TXL DELPX+1,4,** IS CARD IGNORE OR SKIP F0D21140 07711 0634 00 4 07714 SXA DELPX,4 NO, SAVE CALLING LINKAGE F0D21150 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 45 PASS ONE SUBROUTINES BINARY CARD NO. 9F040096 07712 0074 00 4 04361 TSX FPRINT,4 *LIST DELETED CARD (24)F0D21160 07713 0 00021 0 04316 DELBF,,17 (24)F0D21170 07714 0774 00 4 00000 DELPX AXT **,4 RELOAD CALLING LINKAGE (24)F0D21180 07715 0020 00 4 00001 TRA 1,4 (24)F0D21190 (24)F0D21200 CHECK OPCODE FOR UPDATE PSEUDOOPERATION (24)F0D21205 07716 0634 00 4 07727 CKUPD SXA CKPDX,4 SAVE LINKAGE (24)F0D21210 07717 -0500 00 0 03763 CAL OPCOD OBTAIN OP CODE (24)F0D21215 07720 0074 00 4 04707 TSX SOPTB,4 *DEFINE IT (24)F0D21220 07721 0020 00 0 07727 TRA CKPDX OPCODE IS UNDEFINED (24)F0D21225 07722 0056 00 100000 RNT 100000 IS IT A MACHINE OPERATION (24)F0D21230 07723 -0056 00 100000 LNT 100000 NO, IS IT A NON-UPDATE OPERATION (24)F0D21235 07724 0020 00 0 07727 TRA CKPDX YES (24)F0D21240 07725 0534 00 4 07727 LXA CKPDX,4 RETURN FOR OPCODE (24)F0D21245 07726 0020 00 4 00002 TRA 2,4 IS AN UPDATE PSEUDOOPERATION (24)F0D21250 07727 0774 00 4 00000 CKPDX AXT **,4 RETURN FOR OPCODE (24)F0D21255 07730 0020 00 4 00001 TRA 1,4 IS NOT AN UPDATE PSEUDOOPERATION (24)F0D21260 07731 0601 00 0 06430 NUM02 STO INP06 RESET SERIALIZATION (25)F0D21261 07732 0074 00 4 07404 TSX SCANP,4 *IS THERE A 2ND SUBFIELD (25)F0D21262 07733 0500 00 0 06426 CLA Q10 NO. ADDEND = 10. (25)F0D21263 07734 0054 00 000003 RFT 3 YES. IS IT ABSOLUTE (25)F0D21264 07735 0020 00 0 12564 TRA FIELD **NO. (25)F0D21265 07736 0601 00 0 06461 STO INP07 YES. INP07 = ADDEND (25)F0D21266 07737 0131 00 0 00000 XCA INP06 = ADDEND * 1ST FIELD (25)F0D21267 BINARY CARD NO. 9F040097 07740 0020 00 0 16630 TRA NUM04 (25)F0D21270 F0D21280 LIST CARD INSERTED INTO UPDATE TAPE F0D21290 07741 0634 00 4 07757 INSUP SXA INSPX,4 SAVE CALLING LINKAGE F0D21300 07742 0074 00 4 04573 TSX SETUP,4 *FIND OPCODE F0D21310 07743 0020 00 0 07753 TRA INS01 CARD IS COMMENTS CARD F0D21320 07744 0020 00 0 07753 TRA INS01 OPFIELD IS IN ERROR F0D21330 07745 0074 00 4 07716 TSX CKUPD,4 SHOULD CARD BE LISTED AS INSERTED (24)F0D21340 07746 0020 00 0 07753 TRA INS01 YES F0D21380 07747 -0500 00 0 04277 CAL INSBF+2 NO, LOAD SOURCE CARD WORD 2 F0D21390 07750 -0320 00 0 07503 ANA PKMSK MASK IN CC 8 - 10 F0D21400 07751 0322 00 0 10276 ERA ENDMK IS IT END F0D21410 07752 -0100 00 0 07757 TNZ INSPX NO, OMIT LISTING UPDATE CARD F0D21420 07753 0074 00 4 04361 INS01 TSX FPRINT,4 *LIST INSERTED CARD (24)F0D21430 07754 0 00021 0 04275 INSBF,,17 (24)F0D21440 07755 0074 00 4 04361 TSX FPRINT,4 *PRINT BLANK LINE F0D21530 07756 0 00000 0 00000 PZE F0D21540 07757 0774 00 4 00000 INSPX AXT **,4 RELOAD CALLING LINKAGE F0D21550 07760 0020 00 4 00001 TRA 1,4 F0D21560 F0D21570 READ NEXT CARD ON UPDATE TAPE F0D21580 07761 0634 00 4 10006 UPDIN SXA UPDNX,4 SAVE CALLING LINKAGE F0D21590 07762 0774 00 1 00000 AXT **,1 LOAD BLOCK WORD COUNT F0D21600 07763 3 00000 1 07765 TXH *+2,1,** IS BLOCK EXHAUSTED F0D21610 07764 0074 00 4 10012 TSX RDUPD,4 *YES, READ NEXT BLOCK F0D21620 07765 0534 00 2 10013 LXA RDUPD+1,2 LOAD BUFFER INDEX F0D21630 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 46 PASS ONE SUBROUTINES BINARY CARD NO. 9F040098 07766 0774 00 4 00016 AXT 14,4 LOAD CARD LENGTH F0D21640 07767 0560 60 2 07011 LDQ* BCD24+1,2 MOVE NEXT WORD F0D21650 07770 -0600 00 4 04335 STQ DELBF+15,4 INTO UPDATE INPUT BUFFER F0D21660 07771 1 77777 1 07772 TXI *+1,1,-1 BUMP BLOCK COUNT TO NEXT WORD F0D21670 07772 2 00001 4 07767 TIX *-3,4,1 IS RECORD COMPLETE F0D21680 07773 1 00000 1 07774 TXI *+1,1,14-UPDRCL YES, BUMP COUNT PAST EXTRANEOUS WORDS F0D21690 07774 0634 00 1 07762 SXA UPDIN+1,1 SAVE NEW BLOCK COUNT F0D21700 07775 -0500 00 0 04333 CAL DELBF+13 LOAD WORD 13 (CC 73 - 78) F0D21710 07776 0602 00 0 10011 SLW UPDID+1 SAVE LEADING CHARACTERS F0D21720 07777 0600 00 0 04100 STZ ORDRF RESET SOURCE CARD FLAG F0D21730 10000 0074 00 4 10220 TSX ORDER,4 *ASSEMBLE SERIALIZATION (CC 73 -80) F0D21740 10001 0602 00 0 10010 SLW UPDID F0D21750 10002 0322 00 0 04176 ERA BLANKS IS SERIALIZATION BLANK F0D21760 10003 -0100 00 0 10006 TNZ UPDNX NO F0D21770 10004 0600 00 0 10010 STZ UPDID YES, SET ID TO ZERO F0D21780 10005 0600 00 0 10011 STZ UPDID+1 F0D21790 10006 0774 00 4 00000 UPDNX AXT **,4 RELOAD CALLING LINKAGE F0D21800 10007 0020 00 4 00001 TRA 1,4 F0D21810 10010 -3 77777 7 77777 UPDID SVN -1,-1,-1 ID (CC 75 - 80) FOR UPDATE CARD F0D21820 10011 -3 77777 7 77777 SVN -1,-1,-1 ID (CC 73 - 78) FOR UPDATE CARD F0D21830 F0D21840 READ UPDATE INPUT TAPE F0D21850 10012 0634 00 4 10035 RDUPD SXA RDUPX,4 SAVE CALLING LINKAGE F0D21860 10013 -0774 00 1 00001 AXC 1,1 LOAD BUFFER INDEX F0D21870 BINARY CARD NO. 9F040099 10014 0634 00 1 10013 SXA *-1,1 FLIP BUFFER INDEX F0D21880 10015 0074 00 4 73606 TSX (TAPE),4 *LOAD NEXT BUFFER F0D21890 10016 0 40006 1 07010 PZE BCD24,1,(RDEP) F0D21900 10017 0 00000 0 00000 UPDTAP PZE ,,** F0D21910 10020 -0 00000 0 10037 MZE UPDRR F0D21920 10021 0500 00 1 07011 CLA BCD24+1,1 LOAD BUFFER ORIGIN F0D21930 10022 0734 00 4 00000 PAX ,4 F0D21940 10023 -0634 00 4 10026 SXD *+3,4 F0D21950 10024 0535 00 4 00000 RDUP0 LAC **,4 LOAD LAST+1 WORD READ F0D21960 10025 -3 00000 4 10013 TXL RDUPD+1,4,0 WAS END FILE ON UPDATE INPUT TAPE SENSED F0D21970 10026 1 00000 4 10027 TXI *+1,4,** NO, COMPUTE LENGTH OF RECORD F0D21980 10027 -0634 00 4 07763 SXD UPDIN+2,4 RESET TEST FOR END OF BUFFER F0D21990 10030 -0500 00 0 17264 CAL IPRECT BUMP UPDATE INPUT RECORD COUNT F0D22000 10031 0400 00 0 06410 ADD Q1 F0D22010 10032 0621 00 0 17264 STA IPRECT F0D22020 10033 0774 00 1 00000 AXT 0,1 RESET BLOCK LENGTH F0D22030 10034 0634 00 0 07762 SXA UPDIN+1,0 F0D22040 10035 0774 00 4 00000 RDUPX AXT **,4 RELOAD CALLING LINKAGE F0D22050 10036 0020 00 4 00001 TRA 1,4 F0D22060 F0D22070 ERROR ON UPDATE INPUT TAPE F0D22080 10037 0074 00 4 73606 UPDRR TSX (TAPE),4 *SKIP OVER ERROR RECORD F0D22090 10040 0 20002 0 06410 PZE Q1,,(SKDP) F0D22100 10041 0 77777 0 10017 PZE UPDTAP,,-1 F0D22110 BINARY CARD NO. 9F040100 10042 -0 00000 0 10043 MZE *+1 $F0D22120 10043 -0500 00 0 17264 CAL IPRECT BUMP UPDATE INPUT TAPE RECORD COUNT $F0D22130 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 47 PASS ONE SUBROUTINES 10044 0400 00 0 06410 ADD Q1 $F0D22140 10045 0621 00 0 17264 STA IPRECT $F0D22150 10046 0020 00 0 10050 TRA *+2 $F0D22160 10047 0 77777 0 10017 PZE UPDTAP,,-1 F0D22170 10050 0074 00 4 04361 TSX FPRINT,4 *PRINT ERROR MESSAGE F0D22180 10051 -0 00010 0 12605 MZE UPDRM,,8 F0D22190 10052 0074 00 4 04361 TSX FPRINT,4 *PRINT CARD PRECEDING CARD DELETED F0D22200 10053 -0 00021 0 04316 MZE DELBF,,17 F0D22210 10054 0074 00 4 04361 TSX FPRINT,4 *PRINT BLANK LINE F0D22220 10055 0 00000 0 00000 PZE F0D22230 10056 0774 00 4 00005 UPDR1 AXT 5,4 LOAD ERROR COUNT F0D22240 10057 2 00001 4 10064 TIX UPDR2,4,1 IS COUNT EXCESSIVE F0D22250 10060 0074 00 4 73611 TSX (PRNT),4 *YES, TELL OPERATOR F0D22260 10061 0 00013 0 12615 PZE XREDN,,11 F0D22270 10062 0074 00 2 06361 TSX SPACP,2 *LET OPERATOR CHECK F0D22280 10063 0774 00 4 00005 AXT 5,4 RESET ERROR COUNT F0D22290 10064 0634 00 4 10056 UPDR2 SXA UPDR1,4 SAVE ERROR COUNT F0D22300 10065 0600 60 0 12321 STZ* UPD00 FORCE FILL OF UPDATE INPUT BUFFERS F0D22310 10066 0020 00 0 10013 TRA RDUPD+1 F0D22320 F0D22330 10067 0634 00 4 10113 UPDCL SXA UPDCX,4 SAVE CALLING LINKAGE F0D22340 BINARY CARD NO. 9F040101 10070 0774 00 4 10100 AXT UPDC1,4 RESET ERROR RETURN F0D22350 10071 0634 00 4 10037 SXA UPDRR,4 TO AVOID HANGING ERROR MESSAGE F0D22360 10072 0074 00 4 73606 TSX (TAPE),4 *BACKSPACE OVER FIRST LOOKAHEAD RECORD F0D22370 10073 0 20002 0 06767 PZE BSREC,,(SKDP) F0D22380 10074 0 77777 0 10017 PZE UPDTAP,,-1 F0D22390 10075 -0500 00 0 17264 CAL IPRECT UNBUMP UPDATE INPUT RECORD COUNT F0D22400 10076 0402 00 0 06410 SUB Q1 F0D22410 10077 0621 00 0 17264 STA IPRECT F0D22420 10100 0774 00 4 73606 UPDC1 AXT (TAPE),4 RESET ERROR RETURN F0D22430 10101 0634 00 4 10037 SXA UPDRR,4 TO CATCH FUTURE ERRORS F0D22440 10102 -0534 00 4 07516 LXD UPDSW,4 LOAD UPDATE INPUT TAPE SWITCH F0D22450 10103 -0634 00 0 07516 SXD UPDSW,0 RESET UPDATE INPUT TAPE SWITCH F0D22460 10104 3 00000 4 10113 TXH UPDCX,4,0 WAS SECOND RECORD LOOKED AHEAD F0D22470 10105 0074 00 4 73606 TSX (TAPE),4 *YES, BACKSPACE OVER SECOND LOOKAHEAD F0D22480 10106 0 20002 0 06767 PZE BSREC,,(SKDP) F0D22490 10107 0 77777 0 10017 PZE UPDTAP,,-1 F0D22500 10110 -0500 00 0 17264 CAL IPRECT UNBUMP UPDATE INPUT RECORD COUNT F0D22510 10111 0402 00 0 06410 SUB Q1 F0D22520 10112 0621 00 0 17264 STA IPRECT F0D22530 10113 0774 00 4 00000 UPDCX AXT **,4 RELOAD CALLING LINKAGE F0D22540 10114 0020 00 4 00001 TRA 1,4 F0D22550 F0D22560 READ NEXT CARD ON SOURCE TAPE F0D22570 10115 0634 00 4 10142 SRCIN SXA SRCNX,4 SAVE CALLING LINKAGE F0D22580 BINARY CARD NO. 9F040102 10116 0774 00 1 00000 AXT **,1 LOAD BLOCK WORD COUNT F0D22590 10117 3 00000 1 10121 TXH *+2,1,** IS BLOCK EXHAUSTED F0D22600 10120 0074 00 4 10146 TSX RDSRC,4 *YES, READ NEXT BLOCK F0D22610 10121 0534 00 2 10147 LXA RDSRC+1,2 LOAD BUFFER INDEX F0D22620 10122 0774 00 4 00016 AXT 14,4 LOAD CARD LENGTH F0D22630 10123 0560 60 2 07015 LDQ* BCD34+1,2 MOVE NEXT WORD F0D22640 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 48 PASS ONE SUBROUTINES 10124 -0600 00 4 04314 STQ INSBF+15,4 INTO SOURCE INPUT BUFFER F0D22650 10125 1 77777 1 10126 TXI *+1,1,-1 BUMP BLOCK COUNT TO NEXT WORD F0D22660 10126 2 00001 4 10123 TIX *-3,4,1 IS RECORD COMPLETE F0D22670 10127 1 00000 1 10130 TXI *+1,1,14-UPDRCL YES, BUMP COUNT PAST EXTRANEOUS WORDS F0D22680 10130 0634 00 1 10116 SXA SRCIN+1,1 SAVE NEW BLOCK COUNT F0D22690 10131 -0500 00 0 04312 CAL INSBF+13 LOAD WORD 13 (CC 73 - 78) F0D22700 10132 0602 00 0 10145 SLW SRCID+1 SAVE LEADING CHARACTERS F0D22710 10133 -0625 00 0 04100 STL ORDRF SET SOURCE CARD FLAG F0D22720 10134 0074 00 4 10220 TSX ORDER,4 *ASSEMBLE SERIALIZATION (CC 73 -80) F0D22730 10135 0602 00 0 10144 SLW SRCID F0D22740 10136 0322 00 0 04176 ERA BLANKS IS SERIALIZATION BLANK F0D22750 10137 -0100 00 0 10142 TNZ SRCNX NO F0D22760 10140 0600 00 0 10144 STZ SRCID YES, SET ID TO ZERO F0D22770 10141 0600 00 0 10145 STZ SRCID+1 F0D22780 10142 0774 00 4 00000 SRCNX AXT **,4 RELOAD CALLING LINKAGE F0D22790 10143 0020 00 4 00001 TRA 1,4 F0D22800 BINARY CARD NO. 9F040103 10144 0 00000 0 00000 SRCID PZE ID (CC 75 - 80) FOR SOURCE CARD F0D22810 10145 0 00000 0 00000 PZE ID (CC 73 - 78) FOR SOURCE CARD F0D22820 F0D22830 READ SOURCE INPUT TAPE F0D22840 10146 0634 00 4 10171 RDSRC SXA RDSRX,4 SAVE CALLING LINKAGE F0D22850 10147 -0774 00 1 00001 AXC 1,1 LOAD BUFFER INDEX F0D22860 10150 0634 00 1 10147 SXA *-1,1 FLIP BUFFER INDEX F0D22870 10151 0074 00 4 73606 TSX (TAPE),4 *LOAD NEXT BUFFER F0D22880 10152 0 40006 1 07014 PZE BCD34,1,(RDEP) F0D22890 10153 0 00005 0 00000 PZE ,,MINTAP F0D22900 10154 -0 00000 0 10173 MZE SRCRR IS IT REDUNDANCY OR BINARY MODE $F0D22910 10155 0500 00 1 07015 CLA BCD34+1,1 LOAD BUFFER ORIGIN F0D22920 10156 0734 00 4 00000 PAX ,4 F0D22930 10157 -0634 00 4 10162 SXD *+3,4 F0D22940 10160 0535 00 4 73677 LAC (SCHU)+MINTAP,4 LOAD LAST+1 WORD READ F0D22950 10161 -3 00000 4 16726 TXL EOFIN,4,0 ENDFIL DETECTED (26)F0D22960 10162 1 00000 4 10163 TXI *+1,4,** NO, COMPUTE LENGTH OF RECORD F0D22970 10163 -0634 00 4 10117 SXD SRCIN+2,4 RESET TEST FOR END OF BUFFER F0D22980 10164 -0500 00 0 17266 CAL INRECT BUMP SOURCE INPUT RECORD COUNT F0D22990 10165 0400 00 0 06410 ADD Q1 F0D23000 10166 0621 00 0 17266 STA INRECT F0D23010 10167 0774 00 1 00000 AXT 0,1 RESET BLOCK LENGTH F0D23020 10170 0634 00 0 10116 SXA SRCIN+1,0 F0D23030 10171 0774 00 4 00000 RDSRX AXT **,4 RELOAD CALLING LINKAGE F0D23040 BINARY CARD NO. 9F040104 10172 0020 00 4 00001 TRA 1,4 F0D23050 F0D23060 ERROR ON SOURCE INPUT TAPE F0D23070 10173 0600 00 0 04101 SRCRR STZ TTLFG KILL SUBTITLE (26)F0D23080 10174 0020 00 0 16730 TRA ETEST $F0D23090 10175 0074 00 4 73606 TSX (TAPE),4 PRINT ERROR MESSAGE $F0D23100 10176 0 04000 0 10202 PZE *+4,,(TPER) FOR REDUNDANCY $F0D23110 10177 -0 00005 0 10201 MZE *+2,,MINTAP $F0D23120 10200 0020 00 0 06310 TRA TAPERR $F0D23130 10201 624664512325 BCI 2,SOURCEREDUN $F0D23140 10203 603145234644 SRCRM BCI 4, INCOMPLETE MACRO DEF., (26)F0D23150 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 49 PASS ONE SUBROUTINES 10207 644544216323 BCI 6,UNMATCHED RMT, OR MISSING END CARD (26)F0D23160 10215 223145215170 ECARD BCI 2,BINARY EOF (26)F0D23170 10217 0 00000 0 00000 PZE (NOT USED) (26)F0D23180 F0D23190 LIST ORDER ERROR F0D23200 BINARY CARD NO. 9F040105 10220 0634 00 4 10272 ORDER SXA ORDRX,4 SAVE CALLING LINKAGE F0D23210 10221 0602 00 0 04006 SLW XERAS SAVE LEADING CHARACTERS (CC 73 - 78) F0D23220 10222 -0763 00 0 00014 LGL 12 ASSEMBLE ID F0D23230 10223 0602 00 0 04007 SLW BERAS SAVE FOLLOWING CHARACTERS (CC 75 - 80) F0D23240 10224 0322 00 0 04176 ERA BLANKS IS NEW ID BLANK F0D23250 10225 0100 00 0 10271 TZE ORDR3+1 YES, OMIT ORDER CHECK F0D23260 10226 -0500 00 0 04006 CAL XERAS NO, LOAD NEW LEADING CHARACTERS F0D23270 10227 -0340 00 0 10300 LAS SEQID+1 IS CARD OUT OF ORDER F0D23280 10230 0020 00 0 10271 TRA ORDR3+1 NO F0D23290 10231 0020 00 0 10233 TRA *+2 MAYBE F0D23300 10232 0020 00 0 10237 TRA ORDR1 YES F0D23310 10233 -0500 00 0 04007 CAL BERAS LOAD NEW FOLLOWING CHARACTERS F0D23320 10234 -0340 00 0 10277 LAS SEQID IS CARD OUT OF ORDER F0D23330 10235 0020 00 0 10271 TRA ORDR3+1 NO F0D23340 10236 0020 00 0 10271 TRA ORDR3+1 NO F0D23350 CARD IS OUT OF ORDER F0D23360 10237 -0500 00 0 04277 ORDR1 CAL INSBF+2 LOAD SOURCE WORD 2 F0D23370 10240 -0320 00 0 07503 ANA PKMSK MASK IN CC 8 - 10 F0D23380 10241 0322 00 0 10276 ERA ENDMK IS IT END F0D23390 10242 -0520 00 0 04100 NZT ORDRF YES, IS ORDER ERROR ON UPDATE INPUT TAPE F0D23400 10243 0100 00 0 10271 TZE ORDR3+1 YES, AVOID ORDER ERROR MESSAGE F0D23410 10244 0774 00 4 00016 AXT 14,4 NO, PREPARE TO MOVE CARD OUT OF ORDER F0D23420 10245 -0500 00 4 04314 CAL INSBF+15,4 FROM SOURCE INPUT BUFFER F0D23430 BINARY CARD NO. 9F040106 10246 -0520 00 0 04100 NZT ORDRF IS SOURCE CARD IN ERROR F0D23440 10247 -0500 00 4 04335 CAL DELBF+15,4 NO, FROM UPDATE INPUT BUFFER F0D23450 10250 0602 00 4 04356 SLW ORDBF+15,4 TO ORDER BUFFER F0D23460 10251 2 00001 4 10245 TIX *-4,4,1 F0D23470 10252 -0500 00 0 10274 CAL SRCWD LOAD SOURCE LABEL F0D23480 10253 -0520 00 0 04100 NZT ORDRF IS SOURCE CARD IN ERROR F0D23490 10254 -0500 00 0 10275 CAL UPDWD NO, LOAD UPDATE LABEL F0D23500 10255 0602 00 0 04356 SLW ORDBF+15 INSERT IN MESSAGE F0D23510 10256 0074 00 4 04361 TSX FPRINT,4 *LIST CARD OUT OF ORDER F0D23520 10257 -0 00022 0 04337 ORDRS MZE ORDBF,,18 F0D23530 10260 0074 00 4 04361 TSX FPRINT,4 *PRINT BLANK LINE F0D23540 10261 0 00000 0 00000 PZE F0D23550 10262 0774 00 4 00050 ORDR2 AXT 40,4 LOAD ORDER ERROR COUNT F0D23560 10263 2 00001 4 10270 TIX ORDR3,4,1 IS COUNT EXCESSIVE F0D23570 10264 0074 00 4 73611 TSX (PRNT),4 *YES, TELL OPERATOR F0D23580 10265 0 00013 0 12630 PZE XORDR,,11 F0D23590 10266 0074 00 2 06361 TSX SPACP,2 *LET OPERATOR CHECK F0D23600 10267 0774 00 4 00050 AXT 40,4 RESET ORDER ERROR COUNT F0D23610 10270 0634 00 4 10262 ORDR3 SXA ORDR2,4 SAVE ORDER ERROR COUNT F0D23620 REENTRY FOR CARD NOT OUT OF ORDER F0D23630 10271 -0500 00 0 04007 CAL BERAS RELOAD FOLLOWING CHARACTERS F0D23640 10272 0774 00 4 00000 ORDRX AXT **,4 RELOAD CALLING LINKAGE F0D23650 10273 0020 00 4 00001 TRA 1,4 F0D23660 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 50 PASS ONE SUBROUTINES BINARY CARD NO. 9F040107 10274 624664512325 SRCWD BCI 1,SOURCE F0D23670 10275 644724216325 UPDWD BCI 1,UPDATE F0D23680 10276 002545246000 ENDMK BCI 1,0END 0 MASK FOR END PSEUDOOPERATION F0D23690 10277 0 00000 0 00000 SEQID PZE ID (CC 75 - 80) FOR LAST CARD USED F0D23700 10300 0 00000 0 00000 PZE ID (CC 79 - 80) FOR LAST CARD USED F0D23710 F0D23720 PACK INTERMEDIATE, UPDATE BUFFERS F0D23730 10301 0634 00 4 10354 OTPUT SXA OTPTX,4 SAVE CALLING LINKAGE F0D23740 10302 0774 00 1 00000 AXT **,1 LOAD UPDATE OUTPUT TAPE BLOCK COUNT F0D23750 10303 -0520 00 0 03746 NZT OPTFLG IS UPDATE OUTPUT TAPE REQUESTED F0D23760 10304 0020 00 0 10331 TRA OTPT1 NO F0D23770 10305 3 00000 4 10307 MCREF TXH *+2,4,** YES, IS THIS MACRO EXPANSION F0D23780 (DECREMENT IS -1 FOR MACRO GENERATED CARD)F0D23790 10306 -3 77777 4 10331 TXL OTPT1,4,-1 YES, IS MACRO EXPANSION TO BE OUTPUT F0D23800 10307 3 00000 4 10311 MCRDF TXH *+2,4,** NO, IS THIS MACRO DEFINITION OR CALL F0D23810 (DECREMENT IS -1 FOR MACRO CALL OR DEF) F0D23820 10310 -3 00000 4 10331 TXL OTPT1,4,** YES, IS MACRO CALL OR DEF TO BE OUTPUT F0D23830 (UMC FLIPS DECREMENTS MCREF+1, MCRDF+1) F0D23840 10311 -3 00000 1 10315 TXL *+4,1,0 YES, HAS THIS BLOCK BEEN STARTED F0D23850 10312 -0520 00 0 03747 NZT PAKFLG YES, IS UNBLOCKED OUTPUT TAPE REQUESTED F0D23860 10313 3 77455 1 10315 UPBLK TXH *+2,1,-UPDBKL+UPDRCL-1 NO. IS BLOCK FULL (25)F0D23870 10314 0074 00 4 10357 TSX WROPT,4 *YES, WRITE LAST BLOCK F0D23880 10315 0535 00 2 10363 LAC WROP0,2 LOAD BUFFER INDEX F0D23890 10316 0774 00 4 00016 AXT UPDRCL,4 LOAD RECORD LENGTH F0D23900 10317 -0500 00 4 04273 CAL BCDBF+UPDRCL,4 MOVE NEXT WORD F0D23910 10320 0602 60 2 07021 SLW* BCD44+1,2 INTO UPDATE OUTPUT BUFFER F0D23920 10321 1 77777 1 10322 TXI *+1,1,-1 BUMP BLOCK COUNT TO NEXT WORD F0D23930 BINARY CARD NO. 9F040108 10322 2 00001 4 10317 TIX *-3,4,1 IS CARD COMPLETE F0D23940 10323 0634 00 1 10302 SXA OTPUT+1,1 YES, SAVE NEW BLOCK COUNT F0D23950 10324 0520 00 0 03747 ZET PAKFLG IS UNBLOCKED OUTPUT TAPE REQUESTED F0D23960 10325 0074 00 4 10357 TSX WROPT,4 *YES, WRITE THIS BLOCK F0D23970 10326 -0634 00 0 03747 SXD PAKFLG,0 RESET FLAG F0D23980 10327 0020 00 0 10331 TRA OTPT1 F0D23990 ENTRY TO WRITE INTERMEDIATE TAPE ONLY F0D24000 10330 0634 00 4 10354 OTPT0 SXA OTPTX,4 SAVE CALLING LINKAGE F0D24010 10331 0774 00 1 00000 OTPT1 AXT **,1 LOAD INTERMEDIATE TAPE BLOCK WORD COUNT F0D24020 10332 0520 00 0 03750 ZET DELFLG HAS ASSEMBLY BEEN DELETED F0D24030 10333 0020 00 0 10354 TRA OTPTX YES F0D24040 10334 -0500 00 0 04102 CAL P1FLG NO, INSERT PASS 1 FLAGS F0D24050 10335 0020 00 0 16763 OTPT2 TRA OTPT3 AS RIGHT HALF OF WORD 14 $F0D24060 10336 -3 00000 1 10342 TXL *+4,1,0 HAS THIS BLOCK BEEN STARTED F0D24070 10337 -0520 00 0 04021 NZT DUPFG YES, IS UNBLOCKED INTERMED TAPE REQUESTED F0D24080 10340 3 77417 1 10342 TXH *+2,1,-INPBKL+INPRCL+INPREM-1 NO, IS BLOCK FULL F0D24090 10341 0074 00 4 10401 TSX WRINT,4 *YES, WRITE LAST BLOCK F0D24100 10342 0535 00 2 10406 LAC WRIN0,2 LOAD BUFFER LENGTH F0D24110 10343 0774 00 4 00020 AXT INPRCL,4 LOAD RECORD LENGTH F0D24120 10344 -0500 00 4 04275 CAL BCDBF+INPRCL,4 MOVE NEXT WORD F0D24130 10345 0602 60 2 07025 SLW* BCD54+1,2 INTO INTERMEDIATE OUTPUT BUFFER F0D24140 10346 1 77777 1 10347 TXI *+1,1,-1 BUMP BLOCK COUNT TO NEXT WORD F0D24150 10347 2 00001 4 10344 TIX *-3,4,1 IS RECORD COMPLETE F0D24160 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 51 PASS ONE SUBROUTINES BINARY CARD NO. 9F040109 10350 0634 00 1 10331 SXA OTPT1,1 YES, SAVE NEW BLOCK COUNT F0D24170 10351 0520 00 0 04021 ZET DUPFG IS UNBLOCKED INTERMEDIATE TAPE REQUIRED F0D24180 10352 0074 00 4 10401 TSX WRINT,4 *YES, WRITE THIS BLOCK F0D24190 10353 0600 00 0 04021 STZ DUPFG RESET FLAG F0D24200 10354 0774 00 4 00000 OTPTX AXT **,4 RELOAD CALLING LINKAGE F0D24210 10355 -0634 00 0 10305 ZSD MCREF RESET MACRO GENERATED CARD SWITCH F0D24220 10356 0020 00 4 00001 TRA 1,4 F0D24230 F0D24240 WRITE UPDATE OUTPUT TAPE F0D24250 10357 0634 00 4 10377 WROPT SXA WROPX,4 SAVE CALLING LINKAGE F0D24260 10360 0535 00 1 10302 LAC OTPUT+1,1 LOAD UPDATE OUTPUT TAPE BLOCK WORD COUNT F0D24270 10361 -3 00000 1 10377 TXL WROPX,1,0 IS BLOCK EMPTY F0D24280 10362 -0754 00 1 00000 PXD ,1 NO, SET BLOCK LENGTH F0D24290 10363 -0774 00 1 00001 WROP0 AXC 1,1 LOAD BUFFER INDEX F0D24300 10364 0634 00 1 10363 SXA *-1,1 FLIP BUFFER INDEX F0D24310 10365 0622 00 1 07020 STD BCD44,1 INITIALIZE I/O COMMAND WORD COUNT F0D24320 10366 0074 00 4 73606 TSX (TAPE),4 *WRITE UPDATE OUTPUT TAPE F0D24330 10367 0 40003 1 07020 PZE BCD44,1,(WDNP) F0D24340 10370 0 00000 0 00000 OPDTAP PZE ,,** F0D24350 10371 0 00000 0 06310 PZE TAPERR F0D24360 10372 -0500 00 0 17263 CAL OPRECT BUMP UPDATE OUTPUT TAPE RECORD COUNT F0D24370 10373 0400 00 0 06410 ADD Q1 F0D24380 10374 0621 00 0 17263 STA OPRECT F0D24390 10375 0774 00 1 00000 AXT 0,1 RESET BLOCK LENGTH F0D24400 BINARY CARD NO. 9F040110 10376 0634 00 0 10302 SXA OTPUT+1,0 F0D24410 10377 0774 00 4 00000 WROPX AXT **,4 RELOAD CALLING LINKAGE F0D24420 10400 0020 00 4 00001 TRA 1,4 F0D24430 F0D24440 WRITE INTERMEDIATE TAPES F0D24450 10401 0634 00 4 10417 WRINT SXA WRINX,4 SAVE CALLING LINKAGE F0D24460 10402 0534 00 2 10550 LXA READ1,2 LOAD INTERMEDIATE TAPE INDEX F0D24470 10403 0535 00 1 10331 LAC OTPT1,1 LOAD INTERMEDIATE TAPE BLOCK WORD COUNT F0D24480 10404 -3 00000 1 10417 TXL WRINX,1,0 IS BLOCK EMPTY F0D24490 10405 -0754 00 1 00000 PXD ,1 NO, SET BLOCK LENGTH F0D24500 10406 -0774 00 1 00001 WRIN0 AXC 1,1 LOAD BUFFER INDEX F0D24510 10407 0634 00 1 10406 SXA *-1,1 FLIP BUFFER INDEX F0D24520 10410 0622 00 1 07024 STD BCD54,1 INITIALIZE I/O COMMAND WORD COUNT F0D24530 10411 0074 00 4 73606 TSX (TAPE),4 *WRITE INTERMEDIATE RECORD F0D24540 10412 0 40001 1 07024 PZE BCD54,1,(WBNP) F0D24550 10413 0 77777 2 06773 PZE INTAP,2,-1 F0D24560 10414 0 00000 0 06310 PZE TAPERR F0D24570 10415 0774 00 1 00000 AXT 0,1 RESET BLOCK LENGTH F0D24580 10416 0634 00 0 10331 SXA OTPT1,0 F0D24590 10417 0774 00 4 00000 WRINX AXT **,4 RELOAD CALLING LINKAGE F0D24600 10420 0020 00 4 00001 TRA 1,4 F0D24610 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 52 PASS ONE CONTROL 10421 0774 00 1 00001 START AXT 1,1 SET FLAG FOR ENTRY INTO $F0D24660 10422 0634 00 1 73664 SXA (MSLN),1 ERROR RECORDS F0D24670 10423 0074 00 4 73606 TSX (TAPE),4 *REWIND FIRST INTERMEDIATE TAPE F0D24680 BINARY CARD NO. 9F040111 10424 0 20000 0 06771 PZE REWND,,(SKBP) F0D24690 10425 0 00002 0 00000 PZE ,,FINTAP F0D24700 10426 0760 00 0 00012 DCT TURN OFF TRIGGER F0D24710 10427 0761 00 0 00000 NOP F0D24720 10430 -0500 00 0 73662 CAL (DATE) LOAD JOB DATE F0D24730 10431 0100 00 0 10453 TZE NDATE IS THERE A PRESUMPTIVE DATE F0D24740 10432 -0320 00 0 04176 ANA BLANKS YES, MASK IN ZONE BITS F0D24750 10433 -0100 00 0 10453 TNZ NDATE IS DATE VALID F0D24760 10434 0560 00 0 73662 LDQ (DATE) YES, RELOAD APPARENTLY VALID DATE F0D24770 10435 -0763 00 0 00006 LGL 6 F0D24780 10436 -0100 00 0 10440 TNZ *+2 IS IT A TWO-DIGIT MONTH F0D24790 10437 -0500 00 0 06522 CAL BLANK NO, BLANK OUT FIRST DIGIT F0D24800 10440 -0763 00 0 00006 LGL 6 LEFT ADJUST SECOND DIGIT IN MONTH F0D24810 10441 0767 00 0 00006 ALS 6 F0D24820 10442 -0501 00 0 06521 ORA SLASH APPEND SLASH F0D24830 10443 -0763 00 0 00014 LGL 12 LEFT ADJUST TWO DIGIT DAY F0D24840 10444 0767 00 0 00006 ALS 6 F0D24850 10445 -0501 00 0 06521 ORA SLASH APPEND SLASH F0D24860 10446 0602 00 0 04172 SLW PGHDNG+14 INSERT IN WORD IS OF PAGE HEADING F0D24870 10447 -0763 00 0 00014 LGL 12 LEFT ADJUST TWO DIGIT YEAR F0D24880 10450 0560 00 0 04176 LDQ BLANKS FOLLOWED BY BLANKS F0D24890 10451 -0763 00 0 00030 LGL 24 F0D24900 BINARY CARD NO. 9F040112 10452 0602 00 0 04173 SLW PGHDNG+15 INSERT IN WORD 16 OF PAGE HEADING F0D24910 10453 -0534 00 4 23270 NDATE LXD SYMSIZ,4 LOAD LENGTH OF SYSTEM SYMBOL TABLE F0D24920 10454 -0634 00 4 10456 SXD *+2,4 INITIALIZE COMPUTATION TO SAVE SST F0D24930 10455 0774 00 4 50307 AXT TOPTAB-BOTTAB,4 PREPARE TO CLEAR MEMORY F0D24940 10456 1 00000 4 10457 TXI *+1,4,** SAVE SYSTEM SYMBOL TABLE F0D24950 10457 0600 00 4 73600 STZ TOPTAB+1,4 CLEAR REST OF MEMORY F0D24960 10460 2 00001 4 10457 TIX *-1,4,1 F0D24970 10461 -0534 00 4 17267 LXD OPTSIZ,4 INITIALIZE TEST F0D24980 10462 1 77777 4 10463 TXI *+1,4,-1 F0D24990 10463 -0634 00 4 04714 SXD SOPT1,4 FOR END OF OPTABLE SEARCH F0D25000 10464 -0534 00 2 16171 LXD MOPTR,2 LOAD INITIAL BOTTOM OF MACRO TABLE F0D25010 10465 -0634 00 2 14546 SXD MAC07,2 SET MACRO EXPANSION TABLE OVERFLOW TEST F0D25020 10466 -0634 00 2 16724 SXD ESYMZ,2 AND SYMBOL TABLE OVERLAP TEST $F0D25030 10467 0774 00 0 00000 AXT ,0 $F0D25040 10470 0074 00 4 73606 TSX (TAPE),4 *REWIND SECOND INTERMEDIATE TAPE F0D25050 10471 0 20002 0 06771 PZE REWND,,(SKDP) F0D25060 10472 0 00003 0 00000 PZE ,,SINTAP F0D25070 10473 0441 00 0 73665 LDI (ENDS) LOAD END CARD SETTINGS F0D25080 10474 0056 00 040000 RNT 040000 IS END CARD SETTING 1 SPECIFIED F0D25090 10475 -0625 00 0 03743 STL CRDFLG NO, SET ONLINE CARDS FLAG F0D25100 10476 0054 00 010000 RFT 010000 IS END CARD SETTING 3 SPECIFIED F0D25110 10477 -0634 00 0 04501 SXD WRIT1,0 YES, SET ONLINE PRINT SWITCH F0D25120 BINARY CARD NO. 9F040113 10500 0054 00 004000 RFT 004000 IS END CARD SETTING 4 SPECIFIED F0D25130 10501 -0625 00 0 03741 STL ONLCFG YES, SET ONLINE COLUMN BINARY FLAG F0D25140 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 53 PASS ONE CONTROL 10502 0054 00 000400 RFT 000400 IS END CARD SETTING 7 SPECIFIED F0D25150 10503 -0625 00 0 03744 STL LBLFLG YES, SET CARD LABEL FLAG F0D25160 10504 0056 00 000100 RNT 000100 IS END CARD SETTING 9 SPECIFIED F0D25170 10505 -0625 00 0 03742 STL OFLCFG NO, SET OFFLINE COLUMN BINARY FLAG F0D25180 10506 0020 00 0 17003 ENDC TRA FRPA1 YES, CHECK PACK/UNPACK OPTIONS $F0D25190 10507 0 00000 0 00000 PZE $F0D25200 10510 -0500 00 0 04176 CAL BLANKS SET ID BLANK EX NEW C/T SIMULATOR F0D25210 10511 0602 00 0 71007 SLW BBUF31+12 F0D25220 10512 0602 00 0 71010 SLW BBUF31+13 F0D25230 10513 0602 00 0 71350 SLW BBUF32+12 F0D25240 10514 0602 00 0 71351 SLW BBUF32+13 F0D25250 10515 -0625 00 0 73677 STL (SCHU)+MINTAP RESET HANGING END OF FILE F0D25260 LEFT BY NONSTANDARD MONITOR F0D25270 VIOLATING RULES OF IOP F0D25280 TSK, TSK, TSK F0D25290 10516 0074 00 4 10146 TSX RDSRC,4 *START LOOKAHEAD BUFFERING F0D25300 10517 0020 00 0 10616 TRA SOURC F0D25310 F0D25320 CONTROL ROUTINE FOR DELETED ASSEMBLIES F0D25330 10520 0074 00 4 04573 DPAS1 TSX SETUP,4 *FIND OPCODE F0D25340 10521 0020 00 0 10532 TRA COMCD MAY BE * CONTROL CARD F0D25350 10522 0020 00 0 10615 TRA READ3+1 IMPROPER OPCODE (24)F0D25360 10523 -0634 00 0 10600 ZSD READ2 GUARD AGAINST ACCIDENTAL REWIND (24)F0D25370 10524 0634 00 0 10532 ZSA COMCD SET FLAG TO BLOCK COMMENTS CARD (24)F0D25380 10525 0074 00 4 07716 TSX CKUPD,4 *IS OPCODE AN UPDATE PSEUDOOPERATION (24)F0D25390 BINARY CARD NO. 9F040114 10526 0020 00 0 10615 TRA READ3+1 NO (24)F0D25400 10527 0020 00 0 11177 TRA PSOPT YES, PROCESS IT (24)F0D25410 10530 0 00000 0 00000 PZE (NOT USED) (24)F0D25420 10531 0 00000 0 00000 PZE (NOT USED) (24)F0D25430 F0D25440 CARD IS COMMENTS CARD F0D25450 10532 0774 00 2 77777 COMCD AXT -1,2 SET FLAG TO UNBLOCK UPDATE OUTPUT TAPE F0D25460 10533 -0634 00 2 03747 SXD PAKFLG,2 F0D25470 10534 3 77777 4 10550 TXH READ1,4,-1 IS THIS FIRST COMMENTS CARD F0D25480 10535 0020 00 0 17000 TRA STP0A YES, WHAT KIND $F0D25490 10536 0520 00 0 04047 ZET FCFLG IS THIS FIRST CARD GROUP F0D25500 10537 0020 00 0 10550 TRA READ1 NO F0D25510 10540 -0500 00 0 06522 CAL BLANK YES, DELETE ASTERISK F0D25520 10541 -0765 00 0 00006 LGR 6 F0D25530 10542 0774 00 4 00014 AXT 12,4 F0D25540 10543 -0600 00 4 04171 STQ PGHDNG+13,4 INSERT CC 2 - 72 F0D25550 10544 0560 00 4 04272 LDQ BCDBF+13,4 INTO WORDS 2 - 13 OF PAGE HEADING F0D25560 10545 2 00001 4 10543 TIX *-2,4,1 F0D25570 10546 -0520 00 0 03746 NZT OPTFLG IS UPDATE OUTPUT TAPE REQUIRED F0D25580 10547 0020 00 0 10616 TRA SOURC NO F0D25590 F0D25600 F0D25610 REENTRY TO WRITE CARD F0D25620 10550 0774 00 2 00000 READ1 AXT 0,2 LOAD INTERMEDIATE TAPE INDEX F0D25630 10551 0774 00 4 01750 AXT 1000,4 LOAD FIRST INTERMEDIATE TAPE RECORD LIMIT F0D25640 10552 -0520 00 0 04045 NZT DUPMD IS THIS RECORD IN RANGE OF A DUP CARD F0D25650 10553 0020 00 0 10600 TRA READ2 NO F0D25660 F0D25670 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 54 PASS ONE CONTROL CARD IS WITHIN RANGE OF DUP F0D25680 BINARY CARD NO. 9F040115 10554 -0625 00 0 04021 STL DUPFG SET FLAG TO UNBLOCK INTERMEDIATE TAPE F0D25690 10555 0774 00 4 00000 DUPCD AXT **,4 LOAD COUNT OF CARDS REMAINING IN DUP F0D25700 10556 -3 00000 4 10564 TXL DUPC1,4,0 IS DUP EXHAUSTED F0D25710 10557 1 77777 4 10560 TXI *+1,4,-1 NO, BUMP COUNT DOWN F0D25720 10560 0634 00 4 10555 SXA DUPCD,4 RESET DUP CARD COUNT F0D25730 10561 0534 00 4 10551 LXA READ1+1,4 RELOAD COUNT FOR FIRST INTERMEDIATE TAPE F0D25740 10562 2 00001 4 10614 TIX READ3,4,1 IS FIRST INTERMEDIATE TAPE FULL F0D25750 10563 0020 00 0 10615 TRA READ3+1 YES, BUT DO NOT SWITCH TAPES F0D25760 RANGE OF DUP IS EXHAUSTED F0D25770 10564 -0500 00 0 03761 DUPC1 CAL LOCTR COMPUTE NET LENGTH OF DUP F0D25780 10565 0402 00 0 04017 SUB DUPCT+1 F0D25790 10566 0131 00 0 00000 XCA F0D25800 10567 0204 22 0 04016 VLM DUPCT,,18 COMPUTE GROSS LENGTH OF DUP F0D25810 10570 0601 00 0 04007 STO BERAS SAVE LENGTH OF BUMP F0D25820 10571 0400 00 0 04017 ADD DUPCT+1 F0D25830 10572 0621 00 0 03761 STA LOCTR RESET PROGRAM COUNTER F0D25840 10573 0500 00 0 04007 CLA BERAS RECALL LENGTH OF BUMP F0D25850 10574 0400 00 0 04020 ADD DUPCT+2 RESET CARD STORAGE COUNTER F0D25860 10575 0621 00 0 03760 STA CDCTR F0D25870 10576 0600 00 0 04045 STZ DUPMD RESET FLAG F0D25880 10577 0020 00 0 10615 TRA READ3+1 F0D25890 CARD IS NOT WITHIN RANGE OF DUP F0D25900 10600 2 00001 4 10614 READ2 TIX READ3,4,1 IS FIRST INTERMEDIATE TAPE FULL F0D25910 10601 0074 00 4 73606 TSX (TAPE),4 *YES, WRITE END FILE F0D25920 BINARY CARD NO. 9F040116 10602 0 40005 0 00000 PZE ,,(WEFP) F0D25930 10603 0 77777 0 06773 PZE INTAP,,-1 F0D25940 10604 0 00000 0 06310 PZE TAPERR F0D25950 10605 0074 00 4 73606 TSX (TAPE),4 *REWIND FIRST INTERMEDIATE TAPE F0D25960 10606 0 20000 0 06771 PZE REWND,,(SKBP) F0D25970 10607 0 77777 0 06773 PZE INTAP,,-1 F0D25980 10610 0774 00 2 77777 AXT -1,2 SWITCH TO SECOND INTERMEDIATE TAPE $F0D25990 10611 0774 00 4 77777 AXT -1,4 $F0D25995 10612 0634 00 2 10550 SXA READ1,2 RESET INTERMEDIATE TAPE INDEX F0D26000 10613 -0634 00 0 10600 SXD READ2,0 DELETE INTERMEDIATE TAPE FULL TEST F0D26010 REENTRY FOR UNSWITCHED TAPES, CARD WITHIN RANGE OF DUP F0D26020 10614 0634 00 4 10551 READ3 SXA READ1+1,4 SAVE INTERMEDIATE TAPE COUNT F0D26030 10615 0074 00 4 10301 TSX OTPUT,4 *WRITE INTERMEDIATE/UPDATE RECORD F0D26040 REENTRY FOR CARDS NOT WRITTEN ON INTERMEDIATE TAPES F0D26050 INCLUDING PAGE HEADING, UPDATE PSEUDOOPERATIONS, F0D26060 OR AFTER CARDS OUTPUT INDEPENDENTLY BY MACRO PROCESSOR F0D26070 10616 1 00000 0 10617 SOURC TXI *+1,,** IS NEXT CARD TO BE MACRO GENERATED F0D26080 (POINTER TO NEXT HIGHER LEVEL SWITCH) F0D26090 10617 0074 00 4 07505 TSX INPUT,4 *NO, GET NEXT SOURCE/UPDATE CARD F0D26100 F0D26110 PROCESS CARD SUCCESSFULLY READ F0D26120 10620 0520 00 0 03750 ZET DELFLG IS ASSEMBLY DELETED F0D26130 10621 0020 00 0 10520 TRA DPAS1 YES F0D26140 10622 0600 00 0 04102 STZ P1FLG NO, CLEAR PASS 1 FLAGS F0D26150 REENTRY FOR MACRO GENERATED CARDS F0D26160 10623 0760 00 0 00140 CNTRL SLF TURN OFF FLAGS F0D26170 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 55 PASS ONE CONTROL 10624 0600 00 0 04001 STZ SYMBL CLEAR SYMBOL F0D26180 10625 0600 00 0 04273 STZ LITRL CLEAR VALUE OF LITERAL OR PSEUDOOPERATION F0D26190 10626 0600 00 0 04274 STZ OPBIN CLEAR INSTRUCTION, PSEUDOOP TRANSFER F0D26200 10627 0500 00 0 03761 CLA LOCTR UPDATE PROGRAM COUNTER F0D26210 BINARY CARD NO. 9F040117 10630 0601 00 0 03762 STO ADDRS F0D26220 10631 0074 00 4 04573 TSX SETUP,4 *SET UP VARIABLE FIELD F0D26230 10632 0020 00 0 10532 TRA COMCD CARD IS COMMENTS CARD F0D26240 10633 0760 00 0 00141 SLN EXPRR OP FIELD IS IN ERROR F0D26250 10634 0634 00 0 10532 SXA COMCD,0 RESET FLAG TO BLOCK COMMENTS CARDS F0D26260 10635 1 00000 0 10636 ROUTE TXI *+1,,** IS THIS CARD MACRO DEFINING F0D26270 (POINTER TO NEXT HIGHER LEVEL SWITCH) F0D26280 10636 -0760 00 0 00141 SLT EXPRR NO, IS OP FIELD IN ERROR F0D26290 10637 0020 00 0 10641 TRA *+2 NO F0D26300 10640 0020 00 0 10651 TRA INSTR YES F0D26310 10641 0520 00 0 04046 ZET ETCMD DOES THIS CARD FOLLOW CALL OR VFD F0D26320 10642 0020 00 0 11315 TRA ETCOP YES F0D26330 10643 -0500 00 0 03763 CAL OPCOD NO, RELOAD OPERATION CODE F0D26340 10644 0074 00 4 04707 TSX SOPTB,4 *FIND OPERATION IN COMBINED OPERATION TABLEF0D26350 10645 0020 00 0 10651 TRA INSTR NOT FOUND F0D26360 10646 0604 00 0 04274 STI OPBIN SAVE FOR PASS TWO F0D26370 10647 0056 00 100000 RNT 100000 IS THIS A PSEUDOOPERATION F0D26380 10650 0020 00 0 11177 TRA PSOPT YES F0D26390 OPCODE IS MACHINE OPERATION F0D26400 REENTRY FOR IMPROPER USE OF PSEUDOOP, IMPROPER OP FIELD F0D26410 10651 -0520 00 0 10653 INSTR NZT CNTFG HAS CARD COUNT BEEN GIVEN F0D26420 10652 0020 00 0 10656 TRA *+4 YES F0D26430 10653 0074 00 4 04443 CNTFG TSX WRITT,4 *NO, WRITE NO COUNT MESSAGE F0D26440 10654 0 00005 0 12643 IOCD NOCNT,,5 F0D26450 10655 0600 00 0 10653 STZ CNTFG RESET SWITCH F0D26460 BINARY CARD NO. 9F040118 10656 0074 00 4 07334 TSX ESYML,4 *DEFINE POSSIBLE LOCATION FIELD F0D26470 10657 0500 00 0 06410 CLA Q1 F0D26480 10660 0074 00 4 06265 TSX BPCTR,4 *BUMP PROGRAM COUNTER F0D26490 10661 -0500 00 0 03755 CAL CHRCTR LOAD FIRST CHARACTER IN VARIABLE FIELD F0D26500 10662 0402 00 0 06531 SUB EQUAL IS CHARACTER = F0D26510 10663 0100 00 0 11570 TZE LITOP YES F0D26520 10664 0402 00 0 06525 SUB MINUS IS CHARACTER $ F0D26530 10665 -0520 00 0 03740 NZT ABSFLG MAYBE, BUT IGNORE IT IN ABS ASSEMBLY F0D26540 10666 0100 00 0 11421 TZE DOLOP YES F0D26550 10667 0020 00 0 10550 TRA READ1 F0D26560 F0D26570 F0D26580 END OF INPUT TAPE F0D26590 10670 0774 00 4 10700 ENDFA AXT ENDF1,4 RESET ERROR RETURN FOR BINARY INPUT F0D26600 10671 0634 00 4 10174 SXA SRCRR+1,4 FOLLOWING END CARD F0D26610 10672 0074 00 4 73606 TSX (TAPE),4 *BACKSPACE OVER END FILE OR LOOKAHEAD CARD F0D26620 10673 0 20002 0 06767 PZE BSREC,,(SKDP) F0D26630 10674 0 00005 0 00000 PZE ,,MINTAP F0D26640 10675 -0500 00 0 17266 CAL INRECT UNBUMP SOURCE INPUT RECORD COUNT F0D26650 10676 0402 00 0 06410 SUB Q1 F0D26660 10677 0621 00 0 17266 STA INRECT F0D26670 10700 0520 00 0 03745 ENDF1 ZET IPTFLG IS UPDATE INPUT TAPE PROVIDED F0D26680 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 56 PASS ONE CONTROL 10701 0074 00 4 10067 TSX UPDCL,4 *YES, BACKSPACE OVER LOOKAHEAD CARDS F0D26690 10702 -0520 00 0 03746 NZT OPTFLG IS AN UPDATE OUTPUT TAPE REQUESTED F0D26700 10703 0020 00 0 10707 TRA *+4 NO F0D26710 BINARY CARD NO. 9F040119 10704 0074 00 4 73606 TSX (TAPE),4 *YES, CLOSE OUT UPDATE OUTPUT TAPE F0D26720 10705 0 20002 0 06407 PZE Q0,,(SKDP) F0D26730 10706 0 77777 0 10370 PZE OPDTAP,,-1 F0D26740 10707 -0520 00 0 03750 NZT DELFLG IS ASSEMBLY DELETED F0D26750 10710 0020 00 0 10724 TRA ENDFC NO F0D26760 10711 0074 00 4 04512 TSX WRFBK,4 YES, WRITE LAST PARTIAL LISTING BUFFER F0D26770 10712 0774 00 4 10717 AXT ENDFB,4 RESET ERROR RETURN F0D26780 10713 0634 00 4 06311 SXA TAPERR+1,4 F0D26790 10714 0774 00 1 00006 AXT 6,1 $F0D26800 10715 0074 00 4 73606 TSX (TAPE),4 *CLOSE OUT ALL TAPES F0D26810 10716 0 10000 1 00010 PZE 8,1,(CHKU) CLOSE OUT TAPES 2 THRU 7 $F0D26820 10717 2 00001 1 10715 ENDFB TIX *-2,1,1 F0D26830 10720 0074 00 4 73606 TSX (TAPE),4 *SPACE OVER PASS 2 F0D26840 10721 0 20000 0 06410 PZE Q1,,(SKBP) F0D26850 10722 0 00001 0 00000 PZE ,,SYSTAP F0D26860 10723 0020 00 0 06357 TRA LOADER F0D26870 10724 -0534 00 1 16176 ENDFC LXD RMTEN+1,1 LOAD POINTER TO REMOTE SEQUENCES F0D26880 10725 -3 00000 1 10745 TXL ENDFD,1,0 ARE THERE ANY REMOTE SEQUENCES F0D26890 10726 0774 00 4 00006 AXT 6,4 YES, MOVE COMMENT INTO CARD IMAGE F0D26900 10727 -0500 00 4 16651 CAL RMTCD+6,4 F0D26910 10730 0602 00 4 04263 SLW BCDBF+6,4 F0D26920 10731 2 00001 4 10727 TIX *-2,4,1 F0D26930 BINARY CARD NO. 9F040120 10732 0774 00 4 00010 AXT 8,4 FILL CARD IMAGE WITH BLANKS F0D26940 10733 -0500 00 0 04176 CAL BLANKS F0D26950 10734 0602 00 4 04273 SLW BCDBF+14,4 F0D26960 10735 2 00001 4 10734 TIX *-1,4,1 F0D26970 10736 0634 00 0 04272 SXA BCDBF+13,0 DELETE PASS 1 FLAGS F0D26980 10737 0774 00 4 13417 AXT 5$REMOP,4 SET PASS TWO TRANSFER TO PRINT CARD F0D26990 10740 -0634 00 4 04274 SXD OPBIN,4 F0D27000 10741 0074 00 4 10330 TSX OTPT0,4 *WRITE REMOTE HEADING $F0D27010 10742 0774 00 4 10745 AXT ENDFD,4 PREVENT ANY FURTHER READING F0D27020 10743 0634 00 4 10616 SXA SOURC,4 OF SOURCE INPUT TAPE F0D27030 10744 0074 00 4 14554 TSX RMTSR,4 *EXPAND REMOTE SEQUENCES F0D27040 10745 0074 00 4 10401 ENDFD TSX WRINT,4 *WRITE LAST PARTIAL INTERMEDIATE BLOCK F0D27050 10746 3 00000 2 10762 TXH ENDFE,2,0 IS THIS FIRST INTERMEDIATE TAPE F0D27060 10747 0074 00 4 73606 TSX (TAPE),4 *YES, WRITE END FILE ON FIRST INT TAPE F0D27070 10750 0 40005 0 00000 PZE ,,(WEFP) F0D27080 10751 0 77777 0 06773 PZE INTAP,,-1 F0D27090 10752 0 00000 0 06310 PZE TAPERR F0D27100 10753 0074 00 4 73606 TSX (TAPE),4 *REWIND FIRST INTERMEDIATE TAPE F0D27110 10754 0 20000 0 06771 PZE REWND,,(SKBP) F0D27120 10755 0 77777 0 06773 PZE INTAP,,-1 F0D27130 10756 0074 00 4 73606 TSX (TAPE),4 *WRITE EMPTY RECORD ON SECOND INTERM TAPE F0D27140 10757 0 40001 0 06474 PZE P7,,(WBNP) $F0D27150 BINARY CARD NO. 9F040121 10760 0 77777 0 06774 PZE INTAP+1,,-1 F0D27160 10761 0 00000 0 06310 PZE TAPERR F0D27170 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 57 PASS ONE CONTROL 10762 0074 00 4 73606 ENDFE TSX (TAPE),4 *WRITE END FILE ON SECOND INTERM TAPE F0D27180 10763 0 40005 0 00000 PZE ,,(WEFP) F0D27190 10764 0 77777 0 06774 PZE INTAP+1,,-1 F0D27200 10765 0 00000 0 06310 PZE TAPERR F0D27210 10766 0074 00 4 73606 TSX (TAPE),4 *REWIND SECOND INTERMEDIATE TAPE F0D27220 10767 0 20000 0 06771 PZE REWND,,(SKBP) F0D27230 10770 0 77777 0 06774 PZE INTAP+1,,-1 F0D27240 PREPARE PROGRAM CARD F0D27250 10771 0020 00 0 17131 ENDFF TRA ENDFP CHECK FOR EVEN OP WITH ODD PROLOGUE $F0D27260 10772 0520 00 0 03751 ZET SEPFLG IS STANDARD ERROR PROCEDURE REQUESTED F0D27270 10773 0520 00 0 03737 ZET MAINPF YES, IS THIS A SUBPROGRAM F0D27280 10774 0020 00 0 10776 TRA *+2 NO, STORE PROLOGUE LENGTH $F0D27290 10775 0400 00 0 06411 ADD Q2 YES, BUMP BY LENGTH OF LINKAGE DIRECTOR F0D27300 10776 0621 00 0 04221 STA PBUFF1+5 SAVE ENTRY POINT PC 7R ADDRESS F0D27310 10777 0621 00 0 03754 STA PROLG SAVE LENGTH OF RELOCATION F0D27320 11000 0500 00 0 03760 CLA CDCTR COMPUTE PROGRAM BREAK F0D27330 11001 0340 00 0 03753 CAS PRGBK IS THIS PORTION OF PROGRAM LONGER F0D27340 11002 0621 00 0 03753 STA PRGBK YES F0D27350 11003 0761 00 0 00000 NOP NO F0D27360 11004 0500 00 0 03753 CLA PRGBK LOAD LENGTH OF PROGRAM F0D27370 11005 0400 00 0 04221 ADD PBUFF1+5 ADD LENGTH OF TRANSFER VECTOR AND PROLOG F0D27380 BINARY CARD NO. 9F040122 11006 0621 00 0 04216 STA PBUFF1+2 SAVE ACTUAL PROGRAM BREAK PC 8L ADDRESS F0D27390 11007 -0535 00 2 11646 LDC LSCH1,2 ADD LENGTH OF LITERAL TABLE F0D27400 11010 1 77776 2 11011 TXI *+1,2,-2 F0D27410 11011 0754 00 2 00000 PXA ,2 F0D27420 11012 0400 00 0 03753 ADD PRGBK TO END OF PROGRAM F0D27430 11013 0621 00 0 03762 STA ADDRS F0D27440 11014 -0500 00 0 11470 CAL ENDOP LOAD END CARD LOCATION SYMBOL F0D27450 11015 0074 00 4 07335 TSX ESYMT,4 *DEFINE PROGRAM BREAK F0D27460 F0D27470 PREPARE FOR PASS TWO TABLE SEARCHES F0D27480 11016 -0535 00 2 11646 LDC LSCH1,2 COMPUTE LENGTH OF LITERAL TABLE F0D27490 11017 1 77777 2 11020 TXI *+1,2,-1 F0D27500 11020 -0634 00 2 03752 SXD LITSIZ,2 F0D27510 11021 0754 00 2 00000 PXA ,2 COMPUTE LOGARITHM OF TABLE LENGTH F0D27520 11022 0774 00 2 00002 AXT 2,2 PREPARE FOR ONE-WORD ENTRIES F0D27530 11023 0771 00 0 00001 ARS 1 DIVIDE TABLE IN HALF F0D27540 11024 0100 00 0 11026 TZE *+2 HAS TABLE DISAPPPEARED F0D27550 11025 1 00001 2 11023 TXI *-2,2,1 NO, BUMP LOGARATHM F0D27560 11026 0754 00 2 00000 PXA ,2 F0D27570 11027 0767 00 0 00001 ALS 1 F0D27580 11030 0621 00 0 03752 STA LITSIZ F0D27590 11031 -0535 00 2 23270 LDC SYMSIZ,2 DITTO FOR SYMBOL TABLE F0D27600 11032 -0634 00 2 23270 SXD SYMSIZ,2 F0D27610 11033 0754 00 2 00000 PXA ,2 F0D27620 BINARY CARD NO. 9F040123 11034 0774 00 2 00001 AXT 1,2 BUT TABLE IS OF TWO WORD ENTRIES F0D27630 11035 0771 00 0 00001 ARS 1 F0D27640 11036 0100 00 0 11040 TZE *+2 F0D27650 11037 1 00001 2 11035 TXI *-2,2,1 F0D27660 11040 0754 00 2 00000 PXA ,2 F0D27670 11041 0767 00 0 00001 ALS 1 F0D27680 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 58 PASS ONE CONTROL 11042 0621 00 0 23270 STA SYMSIZ F0D27690 11043 0520 00 0 03740 ZET ABSFLG IS THIS PROGRAM ABSOLUTE F0D27700 11044 0020 00 0 11067 TRA REL02+1 YES F0D27710 11045 0500 00 0 03757 CLA UPCTR NO, COMPUTE COMMON BREAK F0D27720 11046 -3 77777 4 11050 ENDCF TXL *+2,4,-1 IS THERE ANY COMMON F0D27730 11047 0621 00 0 04217 STA PBUFF1+3 YES, SAVE COMMON BREAK PC 8R ADDRESS F0D27740 11050 0500 00 0 04217 CLA PBUFF1+3 SET COMMON BREAK FLAG F0D27750 11051 0602 00 0 03757 SLW UPCTR STORE IT WITHOUT SIGN $F0D27760 RELOCATE SYMBOL TABLE F0D27770 11052 -0535 00 4 23270 LDC SYMSIZ,4 LOAD LENGTH OF SYMBOL TABLE F0D27780 11053 -3 00000 4 11176 TXL SORT9,4,0 IS THERE A SYMBOL TABLE F0D27790 11054 -0634 00 4 11066 SXD REL02,4 YES, SET END OF SYMBOL TABLE TEST F0D27800 11055 0774 00 4 00000 AXT 0,4 START WITH BOTTOM OF TABLE F0D27810 11056 0441 00 4 23272 REL01 LDI SYMTBL+1,4 LOAD NEXT ADDRESS F0D27820 11057 -0054 00 000001 LFT 1 IS SYMBOL RELOCATABLE F0D27830 11060 -0054 00 000004 LFT 4 YES, IS IT ABOVE TRANSFER VECTOR F0D27840 11061 1 77776 4 11066 TXI REL02,4,-2 NO, BUMP TO NEXT ENTRY F0D27850 BINARY CARD NO. 9F040124 11062 -0046 00 0 00000 PIA YES, RELOCATE SYMBOL UPWARD F0D27860 11063 0400 00 0 04221 ADD PBUFF1+5 BY LENGTH OF TRANSFER VECTOR AND PROLOG F0D27870 11064 0621 00 4 23272 STA SYMTBL+1,4 INSERT IN SYMBOL TABLE F0D27880 11065 1 77776 4 11066 TXI REL02,4,-2 BUMP TO NEXT ENTRY F0D27890 11066 3 00000 4 11056 REL02 TXH REL01,4,** IS TABLE FINISHED F0D27900 SORT SYMBOL TABLE F0D27910 THE ALGORITHM FOR THIS SORT HAS APPEARED IN AN ISSUE OF F0D27920 ACM AND WAS ADAPTED FOR 709 USE BY THE DEES CANTOR AND F0D27930 MOORE. IT IS A RADIX 2 SORT, AND SORTS ON BITS IN F0D27940 DESCENDING ORDER FROM 0 (SIGN) BIT TO BIT 35 F0D27950 SORTB CONTAINS (COMPLEMENT OF) LOCATION OF FIRST SYMBOL F0D27960 SORTA CONTAINS (COMPLEMENT OF) LOCATION OF LAST SYMBOL F0D27970 SORTA+N CONTAIN (COMPLEMENT OF) LOCATION OF BREAK F0D27980 BETWEEN 0 AND 1 BIT ON -N KEY (E.G. SORTA+35, F0D27990 KEY 0 (SIGN) BIT, SORTA+34 BIT 1). THIS IS TO F0D28000 DELIMIT SUBSORTS ON LOWER ORDER BITS. IF NO F0D28010 SUBSORT IS NECESSARY (LOWER ORDER BITS DO NOT F0D28020 EXIST, OR FALL RANDOMLY IN PROPER ORDER) EMPTY F0D28030 KEY CONDITION IS INDICATED BY SORTA+N = SORTA+N+1F0D28040 IF TWO SYMBOL NAMES FALL INTO SAME KEY GROUP DOWN TO BIT F0D28050 35, THEY ARE IDENTICAL AND ENTERED INTO DUPICATELY F0D28060 DEFINED SYMBOL LIST WITH EVERY ADDRESS WITHIN KEY. F0D28070 AS SORT IS COMPLETED (EMPTY KEY GROUPS) AT THE UPPER AND F0D28080 LOWER EXTREMITIES OF THE SORT, SORTA AND SORTB ARE BUMPEDF0D28090 DOWN AND UP (COMPLEMENT) RESPECTIVELY. F0D28100 IF SORT FAILS, IE UNDEFINED SYMBOLS WHICH APPEAR IN F0D28110 LOCATION FIELDS, CHECK THE SENSE INDICATORS FOR MACHINE F0D28120 ERROR. THIS IS THE BEST KNOWN TEST OF SENSE INDICATORS F0D28130 11067 -0534 00 2 23270 LXD SYMSIZ,2 COMPUTE ACTUAL LENGTH OF SYMBOL TABLE F0D28140 11070 -2 00002 2 11176 TNX SORT9,2,2 HAS TABLE ONLY ONE ENTRY F0D28150 11071 1 23271 2 11072 TXI *+1,2,SYMTBL NO, COMPUTE LOCATION OF LAST NAME IN TABLEF0D28160 11072 0754 00 2 00000 PXA ,2 F0D28170 11073 0737 00 2 00000 PAC ,2 F0D28180 11074 0634 00 2 12722 SXA SORTA,2 SAVE COMPLEMENT OF LOCATION F0D28190 11075 0774 00 1 00044 AXT 36,1 PREPARE TO SORT ON BIT 0 (SIGN BIT) F0D28200 REENTRY TO SORT ON NEXT BIT F0D28210 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 59 PASS ONE CONTROL 11076 0534 00 4 12721 SORT1 LXA SORTB,4 LOAD POSITION OF CURRENT START OF SORT F0D28220 11077 0500 00 1 12766 CLA SORTA+36,1 LOAD POSITION OF CURRENT END OF SORT BLOCKF0D28230 11100 0734 00 2 00000 PAX ,2 F0D28240 11101 -0500 00 1 12721 CAL SRTBT+36,1 LOAD CURRENT SORTING BIT F0D28250 11102 1 77776 2 11121 TXI SORT3,2,-2 BUMP TO ORG FOLLOWING LAST NAME IN BLOCK F0D28260 REENTRY FOR SYMBOL NAME EQUAL TO KEY (KEY BIT = 1) F0D28270 11103 1 77776 4 11104 SORT2 TXI *+1,4,-2 BUMP CURRENT SYMBOL INDEX UP F0D28280 11104 1 00002 2 11105 TXI *+1,2,2 BUMP ORIGIN DOWN ONE SYMBOL F0D28290 11105 -0634 00 4 11106 SXD *+1,4 INITIALIZE TEST FOR END OF MOVE LOOP F0D28300 11106 3 00000 2 11130 TXH SORT5,2,** IS SYMBOL AT END OF SORT F0D28310 11107 0441 00 2 00000 LDI 0,2 NO, LOAD NEXT SYMBOL F0D28320 BINARY CARD NO. 9F040125 11110 0046 00 0 11112 TIF *+2 IS THIS SYMBOL LOCICALLY LOWER (KEY BIT=0)F0D28330 11111 1 00002 2 11106 TXI *-3,2,2 NO, BUMP TO NEXT SYMBOL F0D28340 11112 0560 00 4 77776 LDQ -2,4 YES, INTERCHANGE SYMBOL NAMES F0D28350 11113 0604 00 4 77776 STI -2,4 F0D28360 11114 -0600 00 2 00000 STQ 0,2 F0D28370 11115 0441 00 2 00001 LDI 1,2 INTERCHANGE LOCATIONS F0D28380 11116 0560 00 4 77777 LDQ -1,4 F0D28390 11117 0604 00 4 77777 STI -1,4 F0D28400 11120 -0600 00 2 00001 STQ 1,2 F0D28410 11121 -0634 00 2 11122 SORT3 SXD *+1,2 SET TEST FOR LOCATION OF LAST SYMBOL NAME F0D28420 11122 -3 00000 4 11130 TXL SORT5,4,** IS CURRENT SYMBOL AT END OF SORT F0D28430 11123 0441 00 4 00000 LDI 0,4 NO, LOAD CURRENT SYMBOL NAME F0D28440 11124 0042 00 0 11103 TIO SORT2 DOES CURRENT SYMBOL NAME CONTAIN KEY BIT=1F0D28450 11125 1 77776 4 11122 TXI *-3,4,-2 NO, BUMP TO NEXT SYMBOL NAME F0D28460 KEY IS NOT EMPTY F0D28470 11126 0500 00 1 12766 SORT4 CLA SORTA+36,1 LOAD END OF NEXT BLOCK F0D28480 11127 0020 00 0 11132 TRA SORT5+2 F0D28490 SORT ON THIS BIT IN CURRENT BLOCK IS FINISHED F0D28500 11130 1 00002 2 11131 SORT5 TXI *+1,2,2 BUMP ORIGIN DOWN ONE SYMBOL F0D28510 11131 0754 00 2 00000 PXA ,2 F0D28520 11132 0621 00 1 12767 STA SORTA+37,1 SAVE BREAK BETWEEN 0 AND 1 BITS THIS BLOCKF0D28530 11133 0340 00 0 12721 CAS SORTB IS THIS BLOCK EMPTY F0D28540 11134 0020 00 0 11126 TRA SORT4 NO, BUMP BREAK TO NEXT BLOCK F0D28550 11135 0020 00 0 11160 TRA SORT7 YES, BUMP START OF SORT TO NEXT BLOCK F0D28560 BINARY CARD NO. 9F040126 11136 2 00001 1 11076 SORT6 TIX SORT1,1,1 NO, ARE ALL KEYS EXHAUSTED F0D28570 SYMBOL IS MULTIPLY DEFINED F0D28580 11137 -0500 00 0 06460 CAL D8 LOAD DUPLICATELY-DEFINED SYMBOL FLAG F0D28590 11140 0534 00 2 12766 LXA SORTA+36,2 LOAD BEGINNING OF DD SYMBOL BLOCK F0D28600 11141 0534 00 4 12721 LXA SORTB,4 LOAD END OF DD SYMBOL BLOCK F0D28610 11142 -0634 00 4 11145 SXD *+3,4 SET TEST FOR END OF LOOP F0D28620 11143 -0602 00 2 00001 ORS 1,2 FLAG THIS SYMBOL F0D28630 11144 1 00002 2 11145 TXI *+1,2,2 BUMP TO NEXT SYMBOL F0D28640 11145 -3 00000 2 11143 TXL *-2,2,** IS BLOCK COMPLETELY FLAGGED F0D28650 11146 0774 00 1 00001 AXT 1,1 YES, RESET KEY INDEX TO BIT 35 F0D28660 11147 0500 00 0 12766 CLA SORTA+36 DELETE BLOCK INCLUDING F0D28670 11150 0402 00 0 06411 SUB Q2 DUPICATELY DEFINED SYMBOL F0D28680 11151 0621 00 0 12721 STA SORTB F0D28690 11152 0500 00 0 12765 CLA SORTA+35 BUMP BREAK UP TO NEXT BLOCK F0D28700 11153 0621 00 0 12766 STA SORTA+36 F0D28710 11154 0340 00 0 12721 CAS SORTB IS NEXT BLOCK EMPTY F0D28720 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 60 PASS ONE CONTROL 11155 0621 00 0 12721 STA SORTB NO, DELETE NEXT BLOCK F0D28730 11156 0020 00 0 11165 TRA SORT8 YES, GO TEST FOR END OF SORT F0D28740 11157 0020 00 0 11137 TRA SORT6+1 NO, FLAG NEXT DD SYMBOL BLOCK F0D28750 REENTRY FOR EMPTY BLOCK F0D28760 11160 0402 00 0 06411 SORT7 SUB Q2 BUMP START OF SORT UP TO NEXT BLOCK F0D28770 11161 0621 00 0 12721 STA SORTB F0D28780 11162 0560 00 1 12766 LDQ SORTA+36,1 BUMP BREAK UP TO NEXT BLOCK F0D28790 11163 -0600 00 1 12767 STQ SORTA+37,1 F0D28800 BINARY CARD NO. 9F040127 11164 0040 00 0 11136 TLQ SORT6 IS THIS BLOCK EMPTY F0D28810 REENTRY AFTER FLAGGING MULTIPLY DEFINED SYMBOL F0D28820 11165 3 00043 1 11176 SORT8 TXH SORT9,1,35 YES, IS SORT COMPLETE F0D28830 11166 0560 00 1 12765 LDQ SORTA+35,1 NO, BUMP END OF SORT DOWN ONE BLOCK F0D28840 11167 -0600 00 1 12766 STQ SORTA+36,1 F0D28850 11170 0040 00 0 11172 TLQ *+2 IS THIS BLOCK EMPTY F0D28860 11171 1 00001 1 11165 TXI SORT8,1,1 YES, BUMP KEY INDEX UP TO NEXT KEY F0D28870 11172 0402 00 0 06411 SUB Q2 BUMP START OF SORT UP TO NEXT SYMBOL F0D28880 11173 0621 00 0 12721 STA SORTB F0D28890 11174 0040 00 0 11076 TLQ SORT1 IS THIS BLOCK EMPTY F0D28900 11175 1 00001 1 11165 TXI SORT8,1,1 YES, BUMP KEY INDEX TO NEXT KEY F0D28910 END OF SORT F0D28920 11176 0020 00 0 17043 SORT9 TRA JPLCH *CALL PASS TWO. $F0D28930 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 61 PASS ONE PSEUDOOPERATION PROCESSOR 11177 0520 00 0 04013 PSOPT ZET INDFG IS PSEUDOOPERATION INDIRECTLY ADDRESSED F0D28950 11200 0020 00 0 12572 TRA OPERR **YES F0D28960 11201 -0534 00 2 04012 LXD VRFLD,2 NO, RELOAD WORD COUNT F0D28970 11202 0534 00 1 04012 LXA VRFLD,1 RELOAD CHARACTER COUNT F0D28980 11203 -0046 00 0 00000 PIA RECALL TRANSFER ADDRESS F0D28990 11204 0621 00 0 11205 STA *+1 INITIALIZE TRANSFER F0D29000 11205 0020 00 0 00000 TRA ** F0D29010 F0D29020 11206 0774 00 4 00013 704OP AXT 11,4 RESET NUMBER OF COLUMNS PRECEEDING F0D29030 11207 0634 00 4 15155 SXA CMPVF,4 VARIABLE FIELD FOR MACRO GENERATED CARD F0D29040 11210 0020 00 0 10550 TRA READ1 F0D29050 F0D29060 11211 0774 00 4 00017 709OP AXT 15,4 RESET NUMBER OF COLUMNS PRECEEDING F0D29070 BINARY CARD NO. 9F040128 11212 0634 00 4 15155 SXA CMPVF,4 VARIABLE FIELD FOR MACRO GENERATED CARD F0D29080 11213 0020 00 0 10550 TRA READ1 F0D29090 F0D29100 11214 0520 00 0 03740 ABSOP ZET ABSFLG IS ASSEMBLY ABSOLUTE F0D29110 11215 0020 00 0 11225 TRA ABS01 YES F0D29120 11216 0520 00 0 03737 ZET MAINPF MAYBE, WAS THERE A PRECEDING ENTRY CARD F0D29130 11217 0520 00 0 04047 ZET FCFLG NO, IS THIS FIRST CARD GROUP F0D29140 11220 0020 00 0 12572 TRA OPERR **NO, TOO LATE F0D29150 11221 -0625 00 0 03740 STL ABSFLG YES, SET ABSOLUTE ASSEMBLY FLAG F0D29160 11222 0600 00 0 03751 STZ SEPFLG RESET STANDARD ERROR PROCEDURE FLAG F0D29170 11223 0600 00 0 04214 STZ PBUFF1 DELETE PROGRAM CARD 9L PREFIX, WORD COUNT F0D29180 11224 -0634 00 0 03761 SXD LOCTR,0 DELETE RELOCATION BITS F0D29190 11225 0020 00 0 10550 ABS01 TRA READ1 F0D29200 F0D29210 11226 -0500 00 0 04256 BCDOP CAL BCDBF+1 LOAD CARD WORD 2 F0D29220 11227 -0320 00 0 06433 ANA Q63 MASK IN CC 12 F0D29230 11230 -0340 00 0 06522 LAS BLANK IS IT BLANK F0D29240 11231 0020 00 0 11250 TRA BCI02+3 NO, IT IS ILLEGAL F0D29250 11232 0020 00 0 11243 TRA BCI01 YES (FULL CARD) F0D29260 11233 0100 00 0 11243 TZE BCI01 NO, IS IT ZERO (FULL CARD) F0D29270 11234 0020 00 0 11246 TRA BCI02+1 NO F0D29280 F0D29290 11235 0500 00 0 03755 BCIOP CLA CHRCTR LOAD FIRST CHARACTER IN VARIABLE FIELD F0D29300 11236 0100 00 0 11251 TZE BCI03 $F0D29310 11237 0402 00 0 06520 SUB COMMA NO, IS IT COMMA F0D29320 BINARY CARD NO. 9F040129 11240 -0100 00 0 11245 TNZ BCI02 NO F0D29330 11241 3 00002 1 11245 TXH BCI02,1,2 YES, IS COMMA IN CC 12 F0D29340 11242 -3 00001 1 11245 TXL BCI02,1,1 MAYBE F0D29350 11243 0500 00 0 06426 BCI01 CLA Q10 YES F0D29360 11244 0020 00 0 11251 TRA BCI03 F0D29370 11245 0400 00 0 06520 BCI02 ADD COMMA RESTORE FIRST CHARACTER F0D29380 11246 0340 00 0 06426 CAS Q10 IS IT LEGAL F0D29390 11247 0761 00 0 00000 NOP NO F0D29400 11250 0500 00 0 06410 CLA Q1 NO, SET IT TO 1 F0D29410 (MACHINE ERROR WILL BE CAUGHT PASS 2) F0D29420 11251 0074 00 4 06265 BCI03 TSX BPCTR,4 *BUMP PROGRAM COUNTER F0D29430 11252 0074 00 4 07334 TSX ESYML,4 *DEFINE POSSIBLE LOCATION FIELD F0D29440 11253 0020 00 0 10550 TRA READ1 F0D29450 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 62 PASS ONE PSEUDOOPERATION PROCESSOR F0D29460 11254 -0634 00 0 11266 BESOP SXD BSS01,0 SET BES SWITCH F0D29470 11255 0020 00 0 11257 TRA BSSOP+1 F0D29480 F0D29490 11256 -0634 00 2 11266 BSSOP SXD BSS01,2 SET BSS SWITCH F0D29500 11257 0074 00 4 04767 TSX SCANF,4 *EVALUATE LENGTH OF BLOCK F0D29510 11260 1 00000 0 07424 TXI AFLAG,,0 NULL BLOCK LENGTH F0D29520 11261 -0760 00 0 00141 SLT EXPRR WAS VARIABLE FIELD IN ERROR F0D29530 11262 0520 00 0 04014 ZET RBITS NO, IS VARIABLE FIELD RELOCATABLE F0D29540 11263 0020 00 0 12566 TRA PHASE **YES F0D29550 11264 0074 00 4 06265 TSX BPCTR,4 *BUMP PROGRAM COUNTER F0D29560 11265 0441 00 0 06407 LDI Q0 PRESET SYMBOL LOC TO BEGINNING OF BLOCK F0D29570 BINARY CARD NO. 9F040130 11266 -3 00000 1 11271 BSS01 TXL *+3,1,** IS PSEUDOOP BES F0D29580 11267 0621 00 0 03762 STA ADDRS YES, DEFINE SYMBOL AT END OF BLOCK F0D29590 11270 0441 00 0 04036 LDI VAREQ F0D29600 11271 -0046 00 0 00000 PIA RECALL SYMBOL DEFINITION F0D29610 11272 0767 00 0 00022 ALS 18 CONSTRUCT LENGTH,,DEFINITION FOR PASS 2 F0D29620 11273 0400 00 0 04036 ADD VAREQ F0D29630 11274 0602 00 0 04273 SLW LITRL F0D29640 11275 0074 00 4 07334 TSX ESYML,4 *DEFINE POSSIBLE LOCATION FIELD F0D29650 11276 -0760 00 0 00144 SLT FLDND WAS END OF VARIABLE FIELD SENSED F0D29660 11277 0020 00 0 12564 TRA FIELD **NO F0D29670 11300 0020 00 0 10550 TRA READ1 YES F0D29680 F0D29690 11301 -0625 00 0 04044 BOLOP STL BOLMD SET BOOL MODE FLAG F0D29700 11302 0074 00 4 04767 TSX SCANF,4 *EVALUATE BOOLEAN EXPRESSION F0D29710 11303 1 00000 0 07424 TXI AFLAG,,0 NULL BOOLEAN EXPRESSION F0D29720 11304 -0760 00 0 00141 SLT EXPRR WAS VARIABLE FIELD IN ERROR F0D29730 11305 0520 00 0 04014 ZET RBITS NO, IS VARIABLE FIELD RELOCATABLE F0D29740 11306 0020 00 0 12564 TRA FIELD **YES F0D29750 11307 0602 00 0 03762 SLW ADDRS SAVE DEFINITION F0D29760 11310 0602 00 0 04273 SLW LITRL SAVE FOR PASS 2 F0D29770 11311 0074 00 4 07334 TSX ESYML,4 *DEFINE POSSIBLE LOCATION FIELD F0D29780 11312 -0760 00 0 00144 SLT FLDND WAS END OF VARIABLE FIELD SENSED F0D29790 11313 0020 00 0 12564 TRA FIELD **NO F0D29800 BINARY CARD NO. 9F040131 11314 0020 00 0 10550 TRA READ1 YES F0D29810 F0D29820 11315 0600 00 0 04046 ETCOP STZ ETCMD RESET ETC MODE FLAG F0D29830 11316 0520 00 0 04054 ZET VFDMD IS THIS VFD ETC CARD F0D29840 11317 0020 00 0 12470 TRA VFETC YES F0D29850 11320 0020 00 0 11324 TRA CLETC NO, THIS MUST BE CALL ETC F0D29860 F0D29870 11321 0074 00 4 07334 CALOP TSX ESYML,4 *DEFINE POSSIBLE LOCATION FIELD F0D29880 11322 0074 00 4 07262 TSX CALNM,4 *ENTER NAME IN TRANSFER VECTOR F0D29890 11323 0020 00 0 11335 TRA CAL01+1 F0D29900 REENTRY AFTER COMMA OR ETC CARD F0D29910 11324 0074 00 4 06250 CLETC TSX C019A,4 *LOOK AT NEXT CHARACTER F0D29920 11325 0322 00 0 06522 ERA BLANK IS IT BLANK FOLLOWING COMMA F0D29930 11326 -0100 00 0 11334 TNZ CAL01 NO F0D29940 11327 0074 00 4 07431 TSX PEEKS,4 *YES, DOES ETC CARD FOLLOW F0D29950 11330 0020 00 0 11344 TRA CAL03 YES F0D29960 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 63 PASS ONE PSEUDOOPERATION PROCESSOR 11331 0500 00 0 06410 CLA Q1 NO, LOAD LENGTH OF NULL FIELD F0D29970 11332 0074 00 4 06265 TSX BPCTR,4 *BUMP PROGRAM COUNTER F0D29980 11333 0020 00 0 11341 TRA CAL02 F0D29990 REENTRY TO COUNT NEXT ARGUMENT F0D30000 11334 0074 00 4 06211 CAL01 TSX SCEND,4 *SKIP TO END OF ARGUMENT F0D30010 REENTRY AFTER SUBPROGRAM NAME F0D30020 11335 0500 00 0 06410 CLA Q1 LOAD LENGTH OF SUBROUTINE NAME OR ARGUMENTF0D30030 11336 0074 00 4 06265 TSX BPCTR,4 *BUMP PROGRAM COUNTER F0D30040 11337 -0760 00 0 00144 SLT FLDND WAS END OF VARIABLE FIELD SENSED F0D30050 11340 0020 00 0 11324 TRA CLETC NO, PUNCTUATION WAS COMMA F0D30060 ETC MAY NOT FOLLOW F0D30070 11341 0500 00 0 06411 CAL02 CLA Q2 LOAD LENGTH OF SEP PARAMETERS F0D30080 BINARY CARD NO. 9F040132 11342 0520 00 0 03751 ZET SEPFLG IS STANDARD ERROR PROCEDURE REQUESTED F0D30090 11343 0074 00 4 06265 TSX BPCTR,4 *YES, BUMP PROGRAM COUNTER F0D30100 11344 0020 00 0 10550 CAL03 TRA READ1 F0D30110 F0D30120 11345 0520 00 0 03740 COMOP ZET ABSFLG IS THIS AN ABSOLUTE ASSEMBLY F0D30130 11346 0020 00 0 12572 TRA OPERR **YES, OPERATION IS UNDEFINED F0D30140 11347 0520 00 0 04045 ZET DUPMD NO, IS THIS WITHIN RANGE OF DUP F0D30150 11350 0020 00 0 12566 TRA PHASE **YES F0D30160 11351 -0634 00 0 11046 SXD ENDCF,0 NO, SET COMMON FLAG F0D30170 11352 0074 00 4 04767 TSX SCANF,4 *EVALUATE LENGTH OF BLOCK F0D30180 11353 1 00000 0 07424 TXI AFLAG,,0 NULL BLOCK LENGTH F0D30190 11354 -0760 00 0 00141 SLT EXPRR WAS VARIABLE FIELD IN ERROR F0D30200 11355 0520 00 0 04014 ZET RBITS NO, IS VARIABLE FIELD RELOCATABLE F0D30210 11356 0020 00 0 12566 TRA PHASE **YES F0D30220 11357 0500 00 0 03757 CLA UPCTR NO, DEFINE COMMON VARIABLE AS CURRENT F0D30230 11360 0601 00 0 03762 STO ADDRS LOCATION OF UPPER STORAGE COUNTER F0D30240 11361 0621 00 0 04273 STA LITRL CONSTRUCT ADDRS,,UPCTR FOR PASS 2 F0D30250 11362 0402 00 0 04036 SUB VAREQ BUMP COUNTER F0D30260 11363 0621 00 0 03757 STA UPCTR F0D30270 11364 0767 00 0 00022 ALS 18 F0D30280 11365 0622 00 0 04273 STD LITRL F0D30290 11366 0074 00 4 07334 TSX ESYML,4 *DEFINE POSSIBLE LOCATION FIELD F0D30300 11367 -0760 00 0 00144 SLT FLDND WAS END OF VARIABLE FIELD SENSED F0D30310 BINARY CARD NO. 9F040133 11370 0020 00 0 12564 TRA FIELD **NO F0D30320 11371 0020 00 0 10550 TRA READ1 YES F0D30330 F0D30340 11372 -0520 00 0 04047 CNTOP NZT FCFLG IS THIS FIRST CARD GROUP F0D30350 11373 -0520 00 0 10653 NZT CNTFG YES, IS CARD COUNT MISSING F0D30360 11374 0020 00 0 12564 TRA FIELD **NO, TOO LATE F0D30370 11375 0600 00 0 10653 STZ CNTFG YES, RESET FLAG F0D30380 11376 0074 00 4 04767 TSX SCANF,4 *EVALUATE VARIABLE FIELD F0D30390 11377 1 00000 0 07424 TXI AFLAG,,0 NULL COUNT F0D30400 11400 -0760 00 0 00141 SLT EXPRR WAS VARIABLE FIELD IN ERROR F0D30410 11401 0520 00 0 04014 ZET RBITS NO, IS COUNT RELOCATABLE F0D30420 11402 0020 00 0 12564 TRA FIELD **YES F0D30430 11403 0771 00 0 00001 ARS 1 DIVIDE BY TWO F0D30440 11404 0340 00 0 06431 CAS Q36 IS COUNT LESS THAN ONE BLOCK F0D30450 11405 0621 00 0 10551 STA READ1+1 NO, RESET INTERMEDIATE TAPE RECORD LIMIT F0D30460 11406 0761 00 0 00000 NOP YES F0D30470 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 64 PASS ONE PSEUDOOPERATION PROCESSOR 11407 -0760 00 0 00144 SLT FLDND WAS END OF VARIABLE FIELD SENSED F0D30480 11410 0020 00 0 12564 TRA FIELD **NO F0D30490 11411 0020 00 0 10550 TRA READ1 YES F0D30500 F0D30510 11412 0074 00 4 06211 DECOP TSX SCEND,4 *SKIP TO END OF INTEGER F0D30520 11413 0500 00 0 06410 CLA Q1 F0D30530 11414 0074 00 4 06265 TSX BPCTR,4 *BUMP PROGRAM COUNTER F0D30540 11415 -0760 00 0 00144 SLT FLDND WAS END OF VARIABLE FIELD SENSED F0D30550 BINARY CARD NO. 9F040134 11416 0020 00 0 11412 TRA DECOP NO F0D30560 11417 0074 00 4 07334 TSX ESYML,4 *DEFINE POSSIBLE LOCATION FIELD F0D30570 11420 0020 00 0 10550 TRA READ1 F0D30580 F0D30590 11421 -0534 00 2 04012 DOLOP LXD VRFLD,2 RELOAD WORD COUNT F0D30600 11422 0534 00 1 04012 LXA VRFLD,1 RELOAD CHARACTER COUNT F0D30610 11423 0074 00 4 06237 TSX C0190,4 *DELETE DOLLAR SIGN F0D30620 11424 0074 00 4 07262 TSX CALNM,4 *ENTER SUBPROGRAM NAME INTO TRANSFER VECTORF0D30630 11425 0020 00 0 10550 TRA READ1 F0D30640 F0D30650 11426 0074 00 4 04767 DUPOP TSX SCANF,4 *EVALUATE RANGE OF DUP F0D30660 11427 1 00000 0 07424 TXI AFLAG,,0 NULL RANGE F0D30670 11430 -0760 00 0 00141 SLT EXPRR WAS VARIABLE FIELD IN ERROR F0D30680 11431 0520 00 0 04014 ZET RBITS NO, IS VARIABLE FIELD RELOCATABLE F0D30690 11432 0020 00 0 12566 TRA PHASE **YES F0D30700 11433 0100 00 0 11464 TZE DUP01 DOES DUP CONTAIN CARDS F0D30710 11434 0621 00 0 04273 STA LITRL YES, CONSTRUCT RANGE,,ITERATNS FOR PASS 2 F0D30720 11435 0074 00 4 04767 TSX SCANF,4 *EVALUATE ITERATIONS OF DUP F0D30730 11436 1 00000 0 11464 TXI DUP01,,0 NULL ITERATIONS F0D30740 11437 -0760 00 0 00141 SLT EXPRR WAS VARIABLE FIELD IN ERROR F0D30750 11440 0520 00 0 04014 ZET RBITS NO, IS VARIABLE FIELD RELOCATABLE F0D30760 11441 0020 00 0 12566 TRA PHASE **YES F0D30770 11442 0100 00 0 11445 TZE *+3 IS DUP ITERATIVE F0D30780 11443 0402 00 0 06410 SUB Q1 YES, IS ITERATIONS GREATER THAN 1 F0D30790 BINARY CARD NO. 9F040135 11444 -0100 00 0 11447 TNZ *+3 YES F0D30800 11445 0760 00 0 00140 SLF NO, SET FIELD ERROR FLAG F0D30810 11446 0020 00 0 11464 TRA DUP01 F0D30820 11447 0520 00 0 04045 ZET DUPMD YES, IS DUP WITHIN RANGE OF DUP F0D30830 11450 0020 00 0 12566 TRA PHASE **YES F0D30840 11451 0767 00 0 00022 ALS 18 NO, REPOSITION ITERATIONS F0D30850 11452 0622 00 0 04273 STD LITRL SAVE FOR PASS 2 F0D30860 11453 0400 00 0 06453 ADD D1 BUMP BACK TO ITERATION COUNT F0D30870 11454 0622 00 0 04016 STD DUPCT INITIALIZE COUNTER F0D30880 11455 0500 00 0 04273 CLA LITRL RELOAD RANGE OF DUP F0D30890 11456 0621 00 0 10555 STA DUPCD SET CARD COUNTER F0D30900 11457 0500 00 0 03761 CLA LOCTR SAVE PROGRAM COUNTER AT BEGINNING OF DUP F0D30910 11460 0621 00 0 04017 STA DUPCT+1 F0D30920 11461 0500 00 0 03760 CLA CDCTR SAVE CARD STORAGE COUNTER F0D30930 11462 0621 00 0 04020 STA DUPCT+2 F0D30940 11463 -0625 00 0 04045 STL DUPMD SET DUP MODE FLAG F0D30950 11464 0074 00 4 07334 DUP01 TSX ESYML,4 *DEFINE POSSIBLE LOCATION FIELD F0D30960 11465 -0760 00 0 00144 SLT FLDND WAS END OF VARIABLE FIELD SENSED F0D30970 11466 0020 00 0 12564 TRA FIELD **NO F0D30980 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 65 PASS ONE PSEUDOOPERATION PROCESSOR 11467 0020 00 0 10550 TRA READ1 YES F0D30990 F0D31000 11470 -0634 00 4 03747 ENDOP SXD PAKFLG,4 SET FLAG TO UNBLOCK END CARD F0D31010 11471 -0625 00 0 10532 STL COMCD SET FLAG TO UNBLOCK CONTROL CARDS F0D31020 BINARY CARD NO. 9F040136 11472 0520 00 0 03750 ZET DELFLG IS ASSEMBLY DELETED F0D31030 11473 0020 00 0 10615 TRA READ3+1 YES F0D31040 11474 -0500 00 0 04255 CAL BCDBF NO, HOLD LOCATION FIELD F0D31050 11475 0602 00 0 11470 SLW ENDOP TO BE DEFINED AFTER REMOTE SEQUENCES F0D31060 11476 0074 00 4 10301 TSX OTPUT,4 *WRITE END CARD F0D31070 11477 0020 00 0 10670 TRA ENDFA F0D31080 F0D31090 11500 -0500 00 0 10602 ENFOP CAL READ2+2 PREPARE TO WRITE END FILE F0D31100 11501 0074 00 4 12370 TSX UPTOP,4 *WRITE END FILE F0D31110 11502 0020 00 0 10616 TRA SOURC F0D31120 F0D31130 11503 0074 00 4 12442 ENPOP TSX UPDLS,4 LIST CARD (25)F0D31140 11504 -0625 00 0 03750 STL DELFLG (26)F0D31150 11505 0020 00 0 10670 TRA ENDFA (26)F0D31160 11506 0 00000 0 00000 PZE (NOT USED) (26)F0D31170 11507 0 00000 0 00000 PZE (NOT USED) (26)F0D31180 F0D31190 11510 0520 00 0 03740 ENTOP ZET ABSFLG IS ASSEMBLY ABSOLUTE F0D31200 11511 0020 00 0 12572 TRA OPERR **YES, OPERATION IS UNDEFINED F0D31210 11512 0520 00 0 04047 ZET FCFLG NO, IS THIS FIRST CARD GROUP F0D31220 11513 0020 00 0 12566 TRA PHASE **NO, TOO LATE F0D31230 11514 -0634 00 0 03737 SXD MAINPF,0 YES, RESET MAIN PROGRAM FLAG F0D31240 11515 0020 00 0 10550 TRA READ1 F0D31250 F0D31260 11516 0520 00 0 03740 EXTOP ZET ABSFLG IS THIS ASSEMBLY ABSOLUTE F0D31270 11517 0020 00 0 12572 TRA OPERR **YES, OPERATION IS UNDEFINED F0D31280 BINARY CARD NO. 9F040137 11520 0074 00 4 07262 TSX CALNM,4 *NO, ENTER SUBPROGRAM NAME IN VECTOR F0D31290 11521 -0760 00 0 00144 SLT FLDND WAS END OF VARIABLE FIELD SENSED F0D31300 11522 0020 00 0 11520 TRA *-2 NO, GET NEXT TRANSFER VECTOR NAME F0D31310 11523 0020 00 0 10550 TRA READ1 YES F0D31320 F0D31330 11524 0074 00 4 06126 HADOP TSX SSCAN,4 *ASSEMBLE HEADING CHARACTER F0D31340 11525 1 00000 0 11533 TXI HED01,,0 NULL HEADING CHARACTER F0D31350 11526 -0500 00 0 04001 CAL SYMBL LOAD HEADING CHARACTER F0D31360 11527 0020 00 0 11533 TRA HED01 F0D31370 F0D31380 11530 -0754 00 0 00000 HEDOP PXD ,0 LOAD CARD COLUMN 1 F0D31390 11531 0560 00 0 04255 LDQ BCDBF F0D31400 11532 -0763 00 0 00006 LGL 6 F0D31410 11533 -0340 00 0 06522 HED01 LAS BLANK IS HEADING CHARACTER BLANK F0D31420 11534 0020 00 0 11536 TRA *+2 NO F0D31430 11535 -0754 00 0 00000 PXD ,0 YES, DELETE IT F0D31440 11536 0602 00 0 03776 SLW BHEAD SAVE HEADING CHARACTER F0D31450 11537 0602 00 0 04273 SLW LITRL SAVE FOR PASS 2 F0D31460 11540 0634 00 0 07361 SXA HEDCT,0 RESET MULTIPLE HEADING COUNT F0D31470 11541 0074 00 4 06126 HED02 TSX SSCAN,4 *ASSEMBLE NEXT SYMBOL F0D31480 11542 1 00000 0 10550 TXI READ1,,0 END OF VARIABLE FIELD RETURN F0D31490 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 66 PASS ONE PSEUDOOPERATION PROCESSOR 11543 -0760 00 0 00141 SLT EXPRR WAS VARIABLE FIELD IN ERROR F0D31500 11544 -0760 00 0 00142 SLT EXPND NO, WAS SYMBOL FOLLOWED BY AN OPERATION F0D31510 11545 0020 00 0 12564 TRA FIELD **YES, OMIT HEADING CHARACTERS F0D31520 BINARY CARD NO. 9F040138 11546 0534 00 4 07361 LXA HEDCT,4 NO, BUMP MULTIPLE HEADING COUNT F0D31530 11547 1 00001 4 11550 TXI *+1,4,1 F0D31540 11550 -3 00013 4 11553 TXL *+3,4,11 DID BHEAD TABLE OVERFLOW F0D31550 11551 0441 00 0 06352 LDI HEDNM YES, SET MULTIHEADING TABLE OVERFLOW F0D31560 11552 0020 00 0 06274 TRA SRCERR **TERMINATE ASSEMBLY F0D31570 11553 0634 00 4 07361 SXA HEDCT,4 NO, SAVE CURRENT MULTIPLE HEADING COUNT F0D31580 11554 -0500 00 0 04001 CAL SYMBL ADD HEADING CHARACTER F0D31590 11555 0602 00 4 03776 SLW BHEAD,4 TO MULTIPLE HEADING LIST F0D31600 11556 0020 00 0 11541 TRA HED02 F0D31610 F0D31620 11557 0520 00 0 03740 IFEOP ZET ABSFLG IS THIS ASSEMBLY ABSOLUTE F0D31630 11560 0020 00 0 12572 TRA OPERR **YES, OPERATION IS UNDEFINED F0D31640 11561 0074 00 4 07334 TSX ESYML,4 *NO, DEFINE POSSIBLE LOCATION FIELD F0D31650 11562 -0500 00 0 11567 CAL L(EOF LOAD ENTRY POINT NAME F0D31660 11563 0074 00 4 07302 TSX TRVCR,4 *MAKE ENTRY IN TV TABLE AND SYMBOL TABLE F0D31670 11564 0500 00 0 06411 CLA Q2 LOAD LENGTH OF TWO INSTRUCTION MACRO F0D31680 11565 0074 00 4 06265 TSX BPCTR,4 *BUMP PROGRAM COUNTER F0D31690 11566 0020 00 0 10550 TRA READ1 F0D31700 11567 742546263460 L(EOF BCI 1,(EOF) F0D31710 F0D31720 EVALUATE LITERALS F0D31730 11570 -0534 00 2 04012 LITOP LXD VRFLD,2 LOAD WORD COUNT F0D31740 11571 0534 00 1 04012 LXA VRFLD,1 LOAD CHARACTER COUNT F0D31750 11572 0074 00 4 06237 TSX C0190,4 *DELETE = CHARACTER F0D31760 11573 0074 00 4 06237 TSX C0190,4 *GET CHARACTER FOLLOWING EQUAL SIGN F0D31770 BINARY CARD NO. 9F040139 11574 -0340 00 0 06503 LAS QO IS CHARACTER O F0D31780 11575 1 00001 1 11603 TXI LITDC,1,1 NO, IT IS DECIMAL F0D31790 11576 0020 00 0 11613 TRA LITCL YES, IT IS OCTAL F0D31800 11577 -0340 00 0 06514 LAS QH NO, IS CHARACTER H F0D31810 11600 1 00001 1 11603 TXI LITDC,1,1 NO, IT IS DECIMAL F0D31820 11601 0020 00 0 11621 TRA LITHL YES, IT IS HOLLERITH F0D31830 11602 1 00001 1 11603 TXI LITDC,1,1 NO, BUMP COUNTER LEFT ONE CHARACTER F0D31840 EVALUATE DECIMAL LITERALS F0D31850 11603 -0765 00 0 00006 LITDC LGR 6 RESTORE FIRST CHARACTER (SIGN OR DIGIT) F0D31860 11604 -0600 00 0 03756 STQ RESIDU F0D31870 11605 0600 00 0 04115 STZ ERRFE RESET ERROR FLAG F0D31880 11606 0074 00 4 05424 TSX DECCV,4 *CONVERT DECIMAL FIELD TO BINARY F0D31890 11607 0601 00 0 04273 STO LITRL F0D31900 11610 -0520 00 0 04115 NZT ERRFE WAS FIELD IN ERROR F0D31910 11611 0020 00 0 11642 TRA LITDF NO F0D31920 11612 0020 00 0 12561 TRA LITRR **YES F0D31930 EVALUATE OCTAL LITERALS F0D31940 11613 0600 00 0 04116 LITCL STZ ERRFB RESET ERROR FLAG F0D31950 11614 0074 00 4 05373 TSX OCTCV,4 *CONVERT OCTAL FIELD TO BINARY F0D31960 11615 0602 00 0 04273 SLW LITRL F0D31970 11616 -0520 00 0 04116 NZT ERRFB WAS FIELD IN ERROR F0D31980 11617 0020 00 0 11642 TRA LITDF NO F0D31990 11620 0020 00 0 12561 TRA LITRR **YES F0D32000 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 67 PASS ONE PSEUDOOPERATION PROCESSOR EVALUATE HOLLERITH LITERALS F0D32010 11621 0074 00 4 06237 LITHL TSX C0190,4 *GET NEXT CHARACTER F0D32020 BINARY CARD NO. 9F040140 11622 0774 00 4 00000 AXT **,4 LOAD CHARACTER COUNT F0D32030 11623 1 00001 4 11624 TXI *+1,4,1 BUMP CHARACTER COUNT F0D32040 11624 3 00006 4 11633 TXH LITH1,4,6 HAVE SIX CHARACTERS BEEN COLLECTED F0D32050 11625 0634 00 4 11622 SXA LITHL+1,4 NO, SAVE CHARACTER COUNT F0D32060 11626 -0765 00 0 00006 LGR 6 APPEND NEXT CHARACTER F0D32070 11627 -0500 00 0 04273 CAL LITRL TO PARTIAL LITERAL F0D32080 11630 -0763 00 0 00006 LGL 6 F0D32090 11631 0602 00 0 04273 SLW LITRL SAVE PARTIAL LITERAL F0D32100 11632 0020 00 0 11621 TRA LITHL F0D32110 11633 0634 00 0 11622 LITH1 SXA LITHL+1,0 RESET CHARACTER COUNT F0D32120 11634 0402 00 0 06522 SUB BLANK IS IT BLANK F0D32130 11635 0100 00 0 11642 TZE LITDF YES, END OF VARIABLE FIELD F0D32140 11636 0402 00 0 06531 SUB EQUAL NO, IS IT COMMA F0D32150 11637 0100 00 0 11642 TZE LITDF YES, END OF LITERAL FIELD F0D32160 11640 0600 00 0 04273 STZ LITRL NO, ILLEGAL CHARACTER F0D32170 11641 0020 00 0 12561 TRA LITRR **SET ERROR FLAGS F0D32180 F0D32190 ENTER LITERAL INTO TABLE F0D32200 11642 -0500 00 0 04273 LITDF CAL LITRL LOAD LITERAL F0D32210 11643 0534 00 2 03752 LXA LITSIZ,2 LOAD LOGARITHM OF TABLE LENGTH F0D32220 11644 0774 00 1 00000 AXT 0,1 LOAD POSITION OF FIRST LITERAL IN TABLE F0D32230 11645 0522 00 2 11701 XEC LSCH2+1,2 BUMP SEARCH TO MIDDLE OF TABLE F0D32240 REENTRY AFTER BINARY HOP F0D32250 11646 -3 77777 1 11652 LSCH1 TXL *+4,1,-1 IS CURRENT POSITION ABOVE TABLE ENTRIES F0D32260 11647 -0340 00 1 65600 LAS LITTBL-1,1 NO, IS NEW ENTRY IN TABLE F0D32270 BINARY CARD NO. 9F040141 11650 1 77776 2 11701 TXI LSCH2+1,2,-2 NO, LARGER - GO LOOK HIGHER F0D32280 11651 0020 00 0 11717 TRA LSCH3 YES, IGNORE IT F0D32290 11652 1 77776 2 11700 TXI LSCH2,2,-2 NO, SMALLER - GO LOOK LOWER F0D32300 F0D32310 11653 1 77000 1 11646 TXI LSCH1,1,-512 (MAXIMUM TABLE SIZE = 1024 LITERALS) F0D32320 11654 1 00400 1 11646 TXI LSCH1,1,+256 F0D32330 11655 1 77400 1 11646 TXI LSCH1,1,-256 F0D32340 11656 1 00200 1 11646 TXI LSCH1,1,+128 F0D32350 11657 1 77600 1 11646 TXI LSCH1,1,-128 F0D32360 11660 1 00100 1 11646 TXI LSCH1,1,+64 F0D32370 11661 1 77700 1 11646 TXI LSCH1,1,-64 F0D32380 11662 1 00040 1 11646 TXI LSCH1,1,+32 F0D32390 11663 1 77740 1 11646 TXI LSCH1,1,-32 F0D32400 11664 1 00020 1 11646 TXI LSCH1,1,+16 F0D32410 11665 1 77760 1 11646 TXI LSCH1,1,-16 F0D32420 11666 1 00010 1 11646 TXI LSCH1,1,+8 F0D32430 11667 1 77770 1 11646 TXI LSCH1,1,-8 F0D32440 11670 1 00004 1 11646 TXI LSCH1,1,+4 F0D32450 11671 1 77774 1 11646 TXI LSCH1,1,-4 F0D32460 11672 1 00002 1 11646 TXI LSCH1,1,+2 F0D32470 11673 1 77776 1 11646 TXI LSCH1,1,-2 F0D32480 11674 1 00001 1 11646 TXI LSCH1,1,+1 F0D32490 11675 1 77777 1 11646 TXI LSCH1,1,-1 F0D32500 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 68 PASS ONE PSEUDOOPERATION PROCESSOR BINARY CARD NO. 9F040142 11676 1 77777 1 11702 TXI LITNT,1,-1 F0D32510 11677 1 77776 1 11702 TXI LITNT,1,-2 F0D32520 F0D32530 11700 0522 00 2 11700 LSCH2 XEC *,2 F0D32540 11701 0522 00 2 11701 XEC *,2 F0D32550 F0D32560 LITERAL IS NEW, ENTER IT INTO TABLE INCREASING UPWARD F0D32570 11702 -0534 00 2 11646 LITNT LXD LSCH1,2 LOAD CURRENT LENGTH OF LITERAL TABLE $F0D32580 11703 -0534 00 4 11646 LXD LSCH1,4 $F0D32585 11704 1 77777 2 11705 TXI *+1,2,-1 BUMP COUNT F0D32590 11705 -0634 00 2 11646 SXD LSCH1,2 F0D32600 11706 3 76030 2 11711 TXH *+3,2,-LLITBL DID LITERAL TABLE OVERFLOW F0D32610 11707 0441 00 0 06354 LDI LITNM YES, SET LITERAL TABLE OVERFLOW F0D32620 11710 0020 00 0 06274 TRA SRCERR **TERMINATE ASSEMBLY F0D32630 11711 -0634 00 1 11712 SXD *+1,1 NO, INITIALIZE POSITION TEST F0D32640 11712 3 00000 4 11716 TXH *+4,4,** IS THIS ORDERED POSITION OF NEW ENTRY F0D32650 11713 0560 00 4 65577 LDQ LITTBL-2,4 NO, MOVE NEXT ENTRY UP ONE F0D32660 11714 -0600 00 4 65600 STQ LITTBL-1,4 TO MAKE ROOM FOR NEW ENTRY F0D32670 11715 1 00001 4 11712 TXI *-3,4,1 BUMP TABLE COUNT UP ONE POSITION F0D32680 11716 0602 00 4 65600 SLW LITTBL-1,4 INSERT NEW ENTRY IN PROPER ORDER F0D32690 11717 0020 00 0 10550 LSCH3 TRA READ1 F0D32700 F0D32710 11720 0774 00 4 77777 LOCOP AXT -1,4 SET LOC SWITCH F0D32720 11721 -0634 00 4 12132 SXD ORG02+3,4 F0D32730 11722 -0500 00 0 03755 CAL CHRCTR LOAD FIRST CHARACTER IN VARIABLE FIELD F0D32740 11723 0322 00 0 06522 ERA BLANK IS IT BLANK F0D32750 BINARY CARD NO. 9F040143 11724 -0100 00 0 12120 TNZ ORG01 NO F0D32760 11725 -0500 00 0 03760 CAL CDCTR YES, DISCONTINUE LOC F0D32770 11726 0760 00 0 00144 SLN FLDND SET END OF VARIABLE FIELD FLAG F0D32780 11727 0020 00 0 12127 TRA ORG02 F0D32790 F0D32800 11730 -0634 00 0 11751 MAXOP SXD MIN03,0 SET MAX SWITCHES F0D32810 11731 -0634 00 0 11753 SXD MIN03+2,0 F0D32820 11732 0020 00 0 11736 TRA MIN01 F0D32830 F0D32840 11733 0774 00 4 77777 MINOP AXT -1,4 SET MIN SWITCHES F0D32850 11734 -0634 00 4 11751 SXD MIN03,4 F0D32860 11735 -0634 00 4 11753 SXD MIN03+2,4 F0D32870 REENTRY FOR MAX F0D32880 11736 0074 00 4 07404 MIN01 TSX SCANP,4 *EVALUATE FIRST FIELD F0D32890 11737 1 00000 0 07424 TXI AFLAG,,0 NULL FIELD F0D32900 11740 0604 00 0 03762 STI ADDRS SAVE RELOCATION BITS F0D32910 11741 -0051 00 000003 IIL 3 INITIALIZE TEST FOR CONSISTENT BITS F0D32920 11742 0604 00 0 04010 STI ERASE F0D32930 11743 0601 00 0 04273 MIN02 STO LITRL SAVE CURRENT GREATEST/LEAST FIELD F0D32940 11744 0074 00 4 07404 TSX SCANP,4 *EVALUATE NEXT FIELD F0D32950 11745 1 00000 0 11755 TXI MIN04,,0 NULL FIELD F0D32960 11746 0444 00 0 04010 OFT ERASE IS SYMBOL CONSISTENT F0D32970 11747 0020 00 0 12563 TRA FIELX **NO F0D32980 11750 -0340 00 0 04273 LAS LITRL YES, IS THIS SYMBOL GREATER/LESSER F0D32990 11751 3 00000 4 11743 MIN03 TXH MIN02,4,** SYMBOL IS GREATER - IS THIS MAX F0D33000 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 69 PASS ONE PSEUDOOPERATION PROCESSOR BINARY CARD NO. 9F040144 11752 0020 00 0 11744 TRA MIN02+1 NO F0D33010 11753 -3 00000 4 11743 TXL MIN02,4,** SYMBOL IS LESSER - IS THIS MIN F0D33020 11754 0020 00 0 11744 TRA MIN02+1 NO F0D33030 END OF VARIABLE FIELD F0D33040 11755 -0500 00 0 04273 MIN04 CAL LITRL DEFINE SYMBOL AS MAX/MIN F0D33050 11756 -0501 00 0 03762 ORA ADDRS COMBINE WITH RELOCATION BITS F0D33060 11757 0602 00 0 04273 SLW LITRL SAVE FOR PASS 2 F0D33070 11760 0602 00 0 03762 SLW ADDRS F0D33080 11761 0074 00 4 07334 TSX ESYML,4 *DEFINE POSSIBLE LOCATION FIELD F0D33090 11762 -0760 00 0 00144 SLT FLDND WAS VARIABLE FIELD NULL F0D33100 11763 0020 00 0 12564 TRA FIELD **YES F0D33110 11764 0020 00 0 10550 TRA READ1 NO F0D33120 F0D33130 11765 -0634 00 0 07657 NUMOP SXD INP04+2,0 SET SWITCH TO RESERIALIZE BCD CARDS F0D33140 11766 -0500 00 0 04255 CAL BCDBF LOAD LEADING CHARACTERS F0D33150 11767 0074 00 4 04547 TSX LOCFL,4 *ASSEMBLE LEADING CHARACTERS F0D33160 11770 -0765 00 0 00006 LGR 6 LEFT ADJUST F0D33170 11771 -0100 00 0 11770 TNZ *-1 F0D33180 11772 -0600 00 0 07705 STQ PROID SAVE LEADING CHARACTERS F0D33190 11773 0074 00 4 07404 TSX SCANP,4 *ASSEMBLE NEW SERIALIZATION F0D33200 11774 1 00000 0 12004 TXI NUM01,,0 NULL SERIALIZATION F0D33210 11775 0054 00 000003 RFT 3 IS SERIALIZATION ABSOLUTE F0D33220 11776 0020 00 0 12564 TRA FIELD **NO F0D33230 11777 0020 00 0 07731 TRA NUM02 *YES. RESET SERIALIZATION (25)F0D33240 BINARY CARD NO. 9F040145 12000 -0760 00 0 00144 UPD03 SLT FLDND WAS END OF VARIABLE FIELD SENSED (25)F0D33250 12001 0020 00 0 12564 TRA FIELD **NO F0D33260 12002 0074 00 4 12442 TSX UPDLS,4 *YES, LIST THIS CARD F0D33270 12003 0020 00 0 10616 TRA SOURC F0D33280 TURN OFF BCD CARD RESERIALIZATION F0D33290 12004 0774 00 4 77777 NUM01 AXT -1,4 RESET SWITCH TO RESERIALIZE BCD CARDS F0D33300 12005 -0634 00 4 07657 SXD INP04+2,4 F0D33310 12006 0074 00 4 12442 TSX UPDLS,4 *LIST CARD F0D33320 12007 0020 00 0 10616 TRA SOURC F0D33330 F0D33340 12010 -0500 00 0 03755 OPDOP CAL CHRCTR LOAD FIRST CHARACTER F0D33350 12011 0322 00 0 06522 ERA BLANK IS VARIABLE FIELD BLANK F0D33360 12012 0100 00 0 12564 TZE FIELD **YES F0D33370 12013 0600 00 0 04115 STZ ERRFE NO, CLEAR HANGING FLAGS F0D33380 12014 0600 00 0 04116 STZ ERRFB F0D33390 12015 0074 00 4 05373 TSX OCTCV,4 *ASSEMBLE OCTAL EQUIVALENT F0D33400 12016 -0520 00 0 04115 NZT ERRFE IS OCTAL EQUIVALENT IN ERROR F0D33410 12017 0520 00 0 04116 ZET ERRFB F0D33420 12020 0020 00 0 12564 TRA FIELD **YES F0D33430 12021 -0501 00 0 06445 ORA T1 NO, APPEND MACHINE OPERATION FLAG F0D33440 12022 0602 00 0 04273 SLW LITRL SAVE FOR PASS TWO F0D33450 12023 0044 00 0 00000 PAI F0D33460 12024 0074 00 4 07205 TSX EOPTB,4 *ENTER INTO OP TABLE F0D33470 12025 0020 00 0 10550 TRA READ1 F0D33480 F0D33490 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 70 PASS ONE PSEUDOOPERATION PROCESSOR BINARY CARD NO. 9F040146 12026 0074 00 4 06126 OPSOP TSX SSCAN,4 *ASSEMBLE EQUIVALENT NAME F0D33500 12027 1 00000 0 12564 TXI FIELD,,0 **NULL EQUIVALENT NAME F0D33510 12030 -0760 00 0 00141 SLT EXPRR IS SYMBOL IN ERROR F0D33520 12031 0520 00 0 04000 ZET SYMB2 NO, IS SYMBOL TOO LONG F0D33530 12032 0020 00 0 12564 TRA FIELD **YES F0D33540 12033 -0500 00 0 04001 CAL SYMBL NO, LOAD EQUIVALENT NAME F0D33550 12034 0560 00 0 06407 LDQ Q0 F0D33560 12035 -0765 00 0 00006 LGR 6 LEFT ADJUST F0D33570 12036 -0100 00 0 12035 TNZ *-1 F0D33580 12037 -0130 00 0 00000 XCL F0D33590 12040 0074 00 4 04707 TSX SOPTB,4 *FIND CORRESPONDING OCTAL OPCODE F0D33600 12041 0020 00 0 12564 TRA FIELD **NOT IN TABLE F0D33610 12042 0604 00 0 04273 STI LITRL SAVE FOR PASS TWO F0D33620 12043 0074 00 4 07205 TSX EOPTB,4 *ENTER INTO OP TABLE F0D33630 12044 0020 00 0 10550 TRA READ1 F0D33640 F0D33650 12045 -0500 00 0 03755 OPVOP CAL CHRCTR LOAD FIRST CHARACTER F0D33660 12046 0322 00 0 06522 ERA BLANK IS VARIABLE FIELD BLANK F0D33670 12047 0100 00 0 12564 TZE FIELD **YES F0D33680 12050 0600 00 0 04010 STZ ERASE NO, CLEAR WORKING STORAGE F0D33690 12051 0600 00 0 04115 STZ ERRFE RESET POSSIBLE HANGING ERROR FLAG F0D33700 12052 -0625 00 0 04054 STL VFDMD SET VFD MODE FLAG FOR SCAN F0D33710 12053 0774 00 4 00044 AXT 36,4 SET UNUSED BIT COUNT TO FULL WORD F0D33720 BINARY CARD NO. 9F040147 12054 0634 00 4 04025 SXA VFDRB,4 F0D33730 12055 0074 00 4 05660 OPV01 TSX VFDCV,4 *ASSEMBLE NEXT FIELD F0D33740 12056 0500 00 0 04027 CLA VFDFB LOAD FIELD LENGTH F0D33750 12057 0621 00 0 12064 STA OPV02 INITIALIZE SHIFT F0D33760 12060 0402 00 0 04025 SUB VFDRB COMPUTE COUNT OF REMAINING BITS F0D33770 12061 0621 00 0 04025 STA VFDRB F0D33780 12062 -0500 00 0 04010 CAL ERASE LOAD PARTIAL WORD F0D33790 12063 0560 00 0 04003 LDQ VFDFL+1 LOAD NEW FIELD F0D33800 12064 -0763 00 0 00000 OPV02 LGL ** PACK IT IN F0D33810 12065 0602 00 0 04010 SLW ERASE SAVE NEW PARTIAL WORD F0D33820 12066 -0760 00 0 00144 SLT FLDND WAS END OF VARIABLE FIELD SENSED F0D33830 12067 0020 00 0 12055 TRA OPV01 NO F0D33840 12070 0600 00 0 04054 STZ VFDMD YES, RESET VFD FLAG F0D33850 12071 -0520 00 0 04115 NZT ERRFE IS WORD IN ERROR F0D33860 12072 0520 00 0 04014 ZET RBITS NO, IS WORD RELOCATABLE F0D33870 12073 0020 00 0 12564 TRA FIELD **YES F0D33880 12074 0520 00 0 04025 ZET VFDRB NO, IS WORD EXACTLY 36 BITS F0D33890 12075 0020 00 0 12564 TRA FIELD **NO F0D33900 12076 0441 00 0 04010 LDI ERASE YES, LOAD OCTAL OPCODE F0D33910 12077 0055 00 100000 SIR 100000 APPEND MACHINE OPERATION FLAG F0D33920 12100 0604 00 0 04273 STI LITRL SAVE FOR PASS TWO F0D33930 12101 0074 00 4 07205 TSX EOPTB,4 *ENTER INTO OP TABLE F0D33940 BINARY CARD NO. 9F040148 12102 0020 00 0 10550 TRA READ1 F0D33950 F0D33960 12103 -0500 00 0 04274 ORDOP CAL OPBIN LOAD OPCODE F0D33970 12104 0602 00 0 04273 SLW LITRL SAVE FOR PASS TWO F0D33980 12105 0774 00 4 13261 AXT 5$ORDOP,4 SET PASS TWO TRANSFER ADDRESS F0D33990 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 71 PASS ONE PSEUDOOPERATION PROCESSOR 12106 -0634 00 4 04274 SXD OPBIN,4 F0D34000 12107 0074 00 4 07334 TSX ESYML,4 *DEFINE POSSIBLE LOCATION FIELD F0D34010 12110 0500 00 0 06411 CLA Q2 ORDER TAKES TWO WORDS F0D34020 12111 0074 00 4 06265 TSX BPCTR,4 *BUMP LOCATION COUNTER F0D34030 12112 0020 00 0 10550 TRA READ1 F0D34040 F0D34050 12113 -0634 00 0 12132 ORGOP ZSD ORG02+3 SET ORG SWITCH F0D34060 12114 0500 00 0 03760 CLA CDCTR LOAD CARD STORAGE COUNTER F0D34070 12115 0340 00 0 03753 CAS PRGBK IS IT GREATER THAN GREATEST TO DATE F0D34080 12116 0601 00 0 03753 STO PRGBK YES, RESET PROGRAM BREAK F0D34090 12117 0761 00 0 00000 NOP F0D34100 12120 0074 00 4 04767 ORG01 TSX SCANF,4 *EVALUATE NEW ORIGIN F0D34110 12121 1 00000 0 07424 TXI AFLAG,,0 NULL ORIGIN F0D34120 12122 -0760 00 0 00141 SLT EXPRR WAS VARIABLE FIELD IN ERROR F0D34130 12123 0520 00 0 04037 ZET VARUC NO, IS VARIABLE FIELD IN COMMON F0D34140 12124 0020 00 0 12566 TRA PHASE **YES F0D34150 12125 -0520 00 0 03740 NZT ABSFLG IS ASSEMBLY ABSOLUTE F0D34160 12126 -0501 00 0 06453 ORA D1 NO, SET RELOCATION BIT F0D34170 12127 0520 00 0 04045 ORG02 ZET DUPMD IS CARD IN RANGE OF DUP F0D34180 BINARY CARD NO. 9F040149 12130 0020 00 0 12566 TRA PHASE **YES F0D34190 12131 0621 00 0 03761 STA LOCTR NO, UPDATE PROGRAM COUNTER F0D34200 12132 -3 00000 4 12134 TXL *+2,4,** IS CARD LOC F0D34210 12133 0621 00 0 03760 STA CDCTR NO, UPDATE CARD ORIGIN COUNTER F0D34220 12134 0602 00 0 03762 SLW ADDRS DEFINE SYMBOL F0D34230 12135 0602 00 0 04273 SLW LITRL SAVE FOR PASS TWO F0D34240 12136 0074 00 4 07334 TSX ESYML,4 *DEFINE POSSIBLE LOCATION FIELD F0D34250 12137 -0760 00 0 00144 SLT FLDND WAS END OF VARIABLE FIELD SENSED F0D34260 12140 0020 00 0 12564 TRA FIELD **NO F0D34270 12141 0020 00 0 10550 TRA READ1 YES F0D34280 F0D34290 12142 0074 00 4 73611 PRTOP TSX (PRNT),4 *PRINT CC 13 - 72 ON LINE F0D34300 12143 0 00012 0 04257 PZE BCDBF+2,,10 F0D34310 12144 0074 00 2 06361 TSX SPACP,2 *SPACE PAGE F0D34320 12145 0074 00 4 12442 TSX UPDLS,4 *LIST CARD F0D34330 12146 0020 00 0 10616 TRA SOURC F0D34340 F0D34350 12147 -0500 00 0 12153 REWOP CAL *+4 PREPARE TO REWIND F0D34360 12150 0074 00 4 12370 TSX UPTOP,4 *REWIND F0D34370 12151 0074 00 4 12455 TSX UPDSC,4 *LOGICALLY DISCONNECT THIS TAPE F0D34380 12152 0020 00 0 10616 TRA SOURC F0D34390 12153 0 20002 0 06771 PZE REWND,,(SKDP) F0D34400 F0D34410 12154 -0500 00 0 12157 SKFOP CAL *+3 PREPARE TO SKIP FILE F0D34420 12155 0074 00 4 12366 TSX UPTIP,4 *SKIP FILE F0D34430 BINARY CARD NO. 9F040150 12156 0020 00 0 17113 TRA SKF01 INITIALIZE BUFFERS AND PROCESS NEXT $F0D34440 UPDATE CARD. $F0D34441 12157 0 20002 0 06453 PZE D1,,(SKDP) F0D34450 F0D34460 12160 0020 00 0 17011 SSTOP TRA FRPA2 $F0D34470 12161 0020 00 0 10550 TRA READ1 F0D34480 F0D34490 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 72 PASS ONE PSEUDOOPERATION PROCESSOR 12162 0074 00 4 07404 SYNOP TSX SCANP,4 *EVALUATE SYN DEFINITION F0D34500 12163 1 00000 0 07424 TXI AFLAG,,0 NULL DEFINITION F0D34510 12164 0043 00 0 00000 OAI COMBINE BITS WITH DEFINITION F0D34520 12165 0604 00 0 03762 STI ADDRS DEFINE SYMBOL F0D34530 12166 0604 00 0 04273 STI LITRL SAVE FOR PASS 2 F0D34540 12167 0074 00 4 07334 TSX ESYML,4 *DEFINE POSSIBLE LOCATION FIELD F0D34550 12170 -0760 00 0 00144 SLT FLDND WAS VARIABLE FIELD NULL F0D34560 12171 0020 00 0 12564 TRA FIELD **YES F0D34570 12172 0020 00 0 10550 TRA READ1 NO F0D34580 F0D34590 12173 -0500 00 0 06417 TAPOP CAL Q128 SET DEFINITION TO 0200 F0D34600 12174 0602 00 0 03762 SLW ADDRS F0D34610 12175 0074 00 4 06237 TSX C0190,4 *LOAD CHANNEL CHARACTER F0D34620 12176 -0340 00 0 06522 LAS BLANK IS FIELD NULL F0D34630 12177 0020 00 0 12564 TRA FIELD **NO, ILLEGAL CHARACTER F0D34640 12200 0020 00 0 12214 TRA TAP01 YES F0D34650 12201 -0340 00 0 06514 LAS QH NO, IS IT GREATER THAN H F0D34660 12202 0020 00 0 12564 TRA FIELD **YES, TOO MANY CHANNELS F0D34670 12203 0761 00 0 00000 NOP NO F0D34680 BINARY CARD NO. 9F040151 12204 -0340 00 0 06527 LAS PLUSS IS IT GREATER THAN + F0D34690 12205 0020 00 0 12210 TRA *+3 YES F0D34700 12206 0020 00 0 12564 TRA FIELD **NO, ILLEGAL CHARACTER F0D34710 12207 0020 00 0 12217 TRA TAP01+3 NO CHANNEL DESIGNATED F0D34720 12210 -0320 00 0 06427 ANA Q15 MASK OUT ZONE BITS (CHANNEL NUMBER) F0D34730 12211 0767 00 0 00011 ALS 9 POSITION CHANNEL NUMBER F0D34740 12212 -0602 00 0 03762 ORS ADDRS INSERT IN DEFINITION F0D34750 12213 0020 00 0 12216 TRA TAP01+2 F0D34760 REENTRY FOR NULL FIELD F0D34770 12214 0600 00 0 03755 TAP01 STZ CHRCTR DELETE BLANK F0D34780 12215 0074 00 4 07424 TSX AFLAG,4 *FLAG OMITTED FIELD F0D34790 REENTRY TO EVALUATE NEXT DIGIT IN TAPE NUMBER F0D34800 12216 0074 00 4 06237 TSX C0190,4 *GET NEXT DIGIT F0D34810 REENTRY FOR NO CHANNEL DESIGNATED F0D34820 12217 -0340 00 0 06426 LAS Q10 IS IT GREATER THAN 10 F0D34830 12220 0020 00 0 12233 TRA TAP02 YES, THIS MAY BE MODE CHARACTER F0D34840 12221 0074 00 4 06312 TSX MACERR,4 **CHARACTER IS BCD 10 F0D34850 12222 0560 00 0 03762 LDQ ADDRS PICK UP CHANNEL AND PARTIAL TAPE ADDRESS F0D34860 12223 0204 06 0 06426 VLM Q10,,6 MULTIPLY CURRENT DIGIT BY 10 F0D34870 12224 0204 10 0 06410 VLM Q1,,8 AND CHANNEL BY 1 F0D34880 12225 0763 00 0 00016 LLS 14 REPOSITION CONVERTED PARTIAL ADDRESS F0D34890 12226 0400 00 0 03755 ADD CHRCTR ADD IN THIS DIGIT OF TAPE ADDRESS F0D34900 12227 0602 00 0 03762 SLW ADDRS SAVE CHANNEL AND PARTIAL TAPE ADDRESS F0D34910 12230 -0320 00 0 06522 ANA BLANK WAS TAPE NUMBER VALID F0D34920 12231 0100 00 0 12216 TZE TAP01+2 YES, GET NEXT DIGIT F0D34930 BINARY CARD NO. 9F040152 12232 0020 00 0 12564 TRA FIELD **NO F0D34940 REENTRY FOR CHARACTER FOLLOWING TAPE ADDRESS F0D34950 12233 0774 00 4 00005 TAP02 AXT 5,4 LOAD LENGTH OF TAPE CHARACTER LIST F0D34960 12234 -0340 00 4 06517 LAS TAPCH+5,4 IS CHARACTER THIS TAPE CHARACTER F0D34970 12235 0020 00 0 12564 TRA FIELD **NO F0D34980 12236 0020 00 4 12246 TRA TAP03+5,4 YES F0D34990 12237 2 00001 4 12234 TIX *-3,4,1 IS LIST EXHAUSTED F0D35000 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 73 PASS ONE PSEUDOOPERATION PROCESSOR 12240 0020 00 0 12564 TRA FIELD **YES F0D35010 F0D35020 12241 0020 00 0 12252 TAP03 TRA TAP04 CHARACTER IS BLANK F0D35030 12242 0020 00 0 12247 TRA *+5 CHARACTER IS L $F0D35040 12243 0020 00 0 12245 TRA *+2 CHARACTER IS H $F0D35050 12244 0020 00 0 12247 TRA *+3 CHARACTER IS D F0D35060 12245 -0500 00 0 06527 CAL PLUSS CHARACTER IS B F0D35070 12246 -0602 00 0 03762 ORS ADDRS INSERT BINARY/HIGH DENSITY MODE BIT $F0D35080 12247 0074 00 4 06237 TSX C0190,4 *GET NEXT CHARACTER F0D35090 12250 0322 00 0 06522 ERA BLANK IS IT BLANK F0D35100 12251 -0100 00 0 12564 TNZ FIELD **NO F0D35110 12252 -0500 00 0 03762 TAP04 CAL ADDRS SAVE DEFINITION FOR PASS TWO F0D35120 12253 0602 00 0 04273 SLW LITRL F0D35130 12254 0074 00 4 07334 TSX ESYML,4 *DEFINE TAPE ADDRESS F0D35140 12255 0020 00 0 10550 TRA READ1 F0D35150 F0D35160 12256 -0520 00 0 03740 TCDOP NZT ABSFLG IS ASSEMBLY ABSOLUTE F0D35170 12257 0020 00 0 12572 TRA OPERR **NO, OPERATION IS UNDEFINED F0D35180 BINARY CARD NO. 9F040153 12260 0020 00 0 10550 TRA READ1 F0D35190 F0D35200 12261 -0500 00 0 12265 ULDOP CAL *+4 PREPARE TO UNLOAD F0D35210 12262 0074 00 4 12370 TSX UPTOP,4 *UNLOAD F0D35220 12263 0074 00 4 12455 TSX UPDSC,4 *LOGICALLY DISCONNECT THIS TAPE F0D35230 12264 0020 00 0 10616 TRA SOURC F0D35240 12265 0 20002 0 06772 PZE UNLOD,,(SKDP) F0D35250 F0D35260 12266 -0520 00 0 03746 UMCOP NZT OPTFLG IS AN UPDATE OUTPUT TAPE REQUESTED F0D35270 12267 0020 00 0 12572 TRA OPERR **NO, OPERATION IS UNDEFINED F0D35280 12270 -0500 00 0 10306 CAL MCREF+1 YES, FLIP SWITCHES TO OUTPUT F0D35290 12271 0560 00 0 10310 LDQ MCRDF+1 MACRO EXPANSIONS OR MACRO DEFINITIONS AND F0D35300 12272 -0600 00 0 10306 STQ MCREF+1 CALLS ON UPDATE OUTPUT TAPE F0D35310 12273 0602 00 0 10310 SLW MCRDF+1 F0D35320 12274 0074 00 4 12442 TSX UPDLS,4 *LIST CARD F0D35330 12275 0020 00 0 10616 TRA SOURC F0D35340 F0D35350 12276 0074 00 4 10357 UPDOP TSX WROPT,4 *WRITE LAST PARTIAL UPDATE OUTPUT BLOCK F0D35360 12277 -0534 00 2 04012 LXD VRFLD,2 RELOAD WORD COUNT F0D35370 12300 0534 00 1 04012 LXA VRFLD,1 RELOAD CHARACTER COUNT F0D35380 12301 0074 00 4 12414 TSX UPSCN,4 *ASSEMBLE UPDATE INPUT TAPE NUMBER F0D35390 12302 -0340 00 0 03745 LAS IPTFLG IS THIS NEW UPDATE INPUT TAPE F0D35400 12303 0020 00 0 12305 TRA *+2 YES F0D35410 12304 0020 00 0 12327 TRA UPD01 NO F0D35420 12305 0621 00 0 03745 STA IPTFLG RESET UPDATE INPUT TAPE FLAG F0D35430 BINARY CARD NO. 9F040154 12306 -0534 00 4 17264 LXD IPRECT,4 LOAD OLD UPDATE INPUT TAPE NUMBER F0D35440 12307 -3 00000 4 12312 TXL *+3,4,0 DOES OLD UPDATE INPUT TAPE EXIST F0D35450 12310 0074 00 4 10067 TSX UPDCL,4 *YES, BACKSPACE OVER LOOKAHEAD CARDS F0D35460 12311 0634 00 0 17264 SXA IPRECT,0 RESET UPDATE INPUT RECORD COUNT F0D35470 12312 0534 00 4 03745 LXA IPTFLG,4 RELOAD NEW UPDATE INPUT TAPE NUMBER F0D35480 12313 -0634 00 4 17264 SXD IPRECT,4 SET NEW UPDATE INPUT TAPE NUMBER F0D35490 12314 -0634 00 4 10017 SXD UPDTAP,4 F0D35500 12315 1 73672 4 12316 TXI *+1,4,(SCHU) COMPUTE (SCHU)+MIPTAP F0D35510 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 74 PASS ONE PSEUDOOPERATION PROCESSOR 12316 0634 00 4 10024 SXA RDUP0,4 SET NEW END FILE TEST F0D35520 12317 -3 73672 4 12327 TXL UPD01,4,(SCHU) IS THERE A NEW UPDATE INPUT TAPE F0D35530 12320 0634 00 4 12321 SXA *+1,4 YES, INITIALIZE LOCATION OF (SCHU)+MIPTAP F0D35540 12321 -0625 00 0 00000 UPD00 STL ** RESET HANGING END FILE F0D35550 12322 0634 00 1 12324 SXA *+2,1 SAVE CHARACTER COUNT F0D35560 12323 0074 00 4 10012 TSX RDUPD,4 *START LOOKAHEAD BUFFERING F0D35570 12324 0774 00 1 00000 AXT **,1 RELOAD CHARACTER COUNT F0D35580 12325 0774 00 4 77777 AXT -1,4 SET SWITCH FOR EMPTY UPDATE BUFFER F0D35590 12326 -0634 00 4 07516 SXD UPDSW,4 F0D35600 12327 0074 00 4 12414 UPD01 TSX UPSCN,4 *ASSEMBLE UPDATE OUTPUT TAPE NUMBER F0D35610 12330 -0340 00 0 03745 LAS IPTFLG IS OUTPUT TAPE INPUT TAPE F0D35620 12331 0020 00 0 12333 TRA *+2 NO F0D35630 12332 -0100 00 0 12564 TNZ FIELD IF BLANK OR ZERO DISCONTINUE UPDATING $F0D35640 12333 -0340 00 0 03746 LAS OPTFLG IS THIS NEW UPDATE OUTPUT TAPE F0D35650 BINARY CARD NO. 9F040155 12334 0020 00 0 12336 TRA *+2 YES F0D35660 12335 0020 00 0 12350 TRA UPD02 NO F0D35670 12336 0621 00 0 03746 STA OPTFLG RESET UPDATE OUTPUT TAPE FLAG F0D35680 12337 -0534 00 4 17263 LXD OPRECT,4 LOAD OLD UPDATE OUTPUT TAPE NUMBER F0D35690 12340 -3 00000 4 12345 TXL *+5,4,0 DOES OLD UPDATE OUTPUT TAPE EXIST F0D35700 12341 0074 00 4 73606 TSX (TAPE),4 *YES, CLOSE OUT OLD UPDATE OUTPUT TAPE F0D35710 12342 0 20002 0 06407 PZE Q0,,(SKDP) F0D35720 12343 0 77777 0 10370 PZE OPDTAP,,-1 F0D35730 12344 0634 00 0 17263 SXA OPRECT,0 RESET UPDATE OUTPUT RECORD COUNT F0D35740 12345 0534 00 4 03746 LXA OPTFLG,4 RELOAD NEW UPDATE OUTPUT TAPE NUMBER F0D35750 12346 -0634 00 4 17263 SXD OPRECT,4 SET NEW UPDATE OUTPUT TAPE NUMBER F0D35760 12347 -0634 00 4 10370 SXD OPDTAP,4 F0D35770 12350 0074 00 4 04767 UPD02 TSX SCANF,4 *ASSEMBLE BLOCKING FACTOR (25)F0D35780 12351 0020 00 0 12361 TRA UPD05-1 NO 3RD FIELD. TURN ON BLOCKING (25)F0D35790 12352 -0625 00 0 03747 STL PAKFLG INITIALIZE BLOCKING OFF. (25)F0D35800 12353 0100 00 0 12360 TZE UPD05-2 IS VALUE ZERO (25)F0D35810 12354 0402 00 0 06426 SUB Q10 NO. IS TI TEN (25)F0D35820 12355 -0100 00 0 12362 TNZ UPD05 (25)F0D35830 12356 0774 00 4 77601 AXT -1-10*UPDRCL+UPDRCL,4 YES. SET BLOCKING FACTOR TO 10.(25)F0D35840 12357 -0634 00 4 10313 SXD UPBLK,4 (25)F0D35850 12360 -0760 00 0 00141 SLT EXPRR IS EXPRESSION UNDEFINED (25)F0D35860 12361 0634 00 0 03747 ZSA PAKFLG NO. 0 OR 10. TURN ON BLOCKING. (25)F0D35870 BINARY CARD NO. 9F040156 12362 0074 00 4 06126 UPD05 TSX SSCAN,4 *ASSEMBLE 4TH SUBFIELD (25)F0D35880 12363 0020 00 0 12000 TRA UPD03 **THERE ISNT ANY (25)F0D35890 12364 -0500 00 0 04001 CAL SYMBL (25)F0D35900 12365 0020 00 0 12427 TRA UPSSC (25)F0D35910 F0D35920 12366 0560 00 0 03745 UPTIP LDQ IPTFLG LOAD INPUT TAPE NUMBER F0D35930 12367 0020 00 0 12371 TRA UPTOP+1 F0D35940 F0D35950 12370 0560 00 0 03746 UPTOP LDQ OPTFLG LOAD OUTPUT TAPE NUMBER F0D35960 12371 0634 00 4 12412 SXA UPTPX,4 SAVE CALLING LINKAGE F0D35970 12372 -0600 00 0 04007 STQ BERAS HOLD UPDATE TAPE NUMBER F0D35980 12373 0602 00 0 12406 SLW UPT02 SET OPERATION PARAMETER F0D35990 12374 0074 00 4 12414 TSX UPSCN,4 *EVALUATE LOGICAL TAPE NUMBER F0D36000 12375 -0100 00 0 12400 TNZ UPT01 IS A LOGICAL TAPE NUMBER SPECIFIED F0D36010 12376 -0500 00 0 04007 CAL BERAS NO, RELOAD UPDATE TAPE NUMBER F0D36020 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 75 PASS ONE PSEUDOOPERATION PROCESSOR 12377 0100 00 0 12572 TZE OPERR **IS AN UPDATE TAPE NUMBER SPECIFIED F0D36030 REENTRY FOR LOGICAL TAPE NUMBER SPECIFIED F0D36040 12400 0767 00 0 00022 UPT01 ALS 18 POSITION LOGICAL TAPE NUMBER F0D36050 12401 0622 00 0 12407 STD UPT02+1 INITIALIZE TAPE NUMBER PARAMETER F0D36060 12402 0340 00 0 10370 CAS OPDTAP IS UPDATE OUTPUT TAPE SELECTED F0D36070 12403 0020 00 0 12405 TRA *+2 NO F0D36080 12404 0074 00 4 10357 TSX WROPT,4 YES, WRITE LAST UPDATE OUTPUT TAPE BLOCK F0D36090 12405 0074 00 4 73606 TSX (TAPE),4 *PERFORM TAPE OPERATION F0D36100 12406 0 00000 0 00000 UPT02 *** **,,** F0D36110 12407 0 00000 0 00000 PZE ,,** F0D36120 BINARY CARD NO. 9F040157 12410 0 00000 0 06310 PZE TAPERR F0D36130 12411 0074 00 4 12442 TSX UPDLS,4 *LIST CARD F0D36140 12412 0774 00 4 00000 UPTPX AXT **,4 RELOAD CALLING LINKAGE F0D36150 12413 0020 00 4 00001 TRA 1,4 F0D36160 F0D36170 12414 0634 00 4 12425 UPSCN SXA UPSCX,4 SAVE CALLING LINKAGE F0D36180 12415 0074 00 4 07404 TSX SCANP,4 *ASSEMBLE UPDATE TAPE NUMBER F0D36190 12416 0020 00 0 17041 TRA PATCHA BLANK UPDATE TAPE NUMBER $F0D36200 12417 0054 00 000003 RFT 3 IS TAPE NUMBER ABSOLUTE F0D36210 12420 0020 00 0 12564 TRA FIELD **NO F0D36220 12421 0100 00 0 12425 TZE UPSCX IS UPDATE TAPE DELETED F0D36230 12422 0734 00 4 00000 PAX ,4 NO. TEST FOR LEGAL ASSIGNMENT (25)F0D36240 12423 3 00020 4 12564 TXH FIELD,4,T **IS TAPE ASSIGNED TO SYSTEM (25)F0D36250 12424 -3 00007 4 12564 TXL FIELD,4,7 **YES IS IT RESERVED TO MONITOR (25)F0D36260 12425 0774 00 4 00000 UPSCX AXT **,4 NO. RETURN (25)F0D36270 12426 0020 00 4 00001 TRA 1,4 (25)F0D36280 (25)F0D36290 12427 -0760 00 0 00141 UPSSC SLT EXPRR DOES 4TH FIELD CONTAIN ILLEGAL CHAR (25)F0D36300 12430 0020 00 0 12432 TRA *+2 NO (25)F0D36310 12431 0020 00 0 12564 TRA FIELD **YES (25)F0D36320 12432 0520 00 0 03750 ZET DELFLG IS ASSEMBLY ALREADY DELETED (25)F0D36330 12433 0020 00 0 12000 TRA UPD03 **YES (25)F0D36340 12434 0100 00 0 12000 TZE UPD03 NO. IS ASSEMBLY DELETED NOW (25)F0D36350 12435 -0625 00 0 03750 STL DELFLG YES. SET ASSEMBLY DELETED FLAG (25)F0D36360 BINARY CARD NO. 9F040158 12436 0074 00 4 73611 TSX (PRNT),4 PRINT UPDATE ONLY MSG ONLINE (25)F0D36370 12437 0 00005 0 12600 PZE DELMS,,5 (25)F0D36380 12440 0020 00 0 12000 TRA UPD03 **CHECK FOR TOO MANY FIELDS (25)F0D36390 12441 0 00000 0 00000 ... PATCH SPACE (25)F0D36400 F0D36410 12442 0634 00 4 12453 UPDLS SXA UPDLX,4 SAVE CALLING LINKAGE F0D36420 12443 0020 00 0 17156 TRA UPFIX WHICH BUFFER DO WE PRINT FROM (25)F0D36430 12444 0 00000 0 00000 PZE (NOT USED) (25)F0D36440 12445 0074 00 4 04361 TSX FPRINT,4 *PRINT BLANK LINE F0D36450 12446 0 00000 0 00000 PZE F0D36460 12447 0500 00 0 06430 CLA INP06 UNBUMP SERIAL FOR UPDATE PSEUDOOP (25)F0D36470 12450 0402 00 0 06461 SUB INP07 NOT APPEARING ON UPDATE OUTPUT TAPE (25)F0D36480 12451 0601 00 0 06430 STO INP06 (25)F0D36490 12452 -0625 00 0 10532 STL COMCD SET FLAG TO UNBLOCK MONITOR CONTROL CARDS F0D36500 12453 0774 00 4 00000 UPDLX AXT **,4 RELOAD CALLING LINKAGE F0D36510 12454 0020 00 4 00001 TRA 1,4 F0D36520 F0D36530 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 76 PASS ONE PSEUDOOPERATION PROCESSOR LOGICALLY DISCONNECT FINISHED UPDATE TAPE F0D36540 12455 -0500 00 0 12407 UPDSC CAL UPT02+1 RELOAD LOGICAL TAPE NUMBER F0D36550 12456 0340 00 0 10370 CAS OPDTAP IS THIS UPDATE OUTPUT TAPE F0D36560 12457 0020 00 0 12461 TRA *+2 NO F0D36570 12460 0600 00 0 03746 STZ OPTFLG YES, DISCONNECT UPDATE OUTPUT TAPE F0D36580 12461 0340 00 0 10017 CAS UPDTAP IS THIS UPDATE INPUT TAPE F0D36590 12462 0020 00 0 12464 TRA *+2 NO F0D36600 12463 0600 00 0 03745 STZ IPTFLG YES, DISCONNECT UPDATE INPUT TAPE F0D36610 BINARY CARD NO. 9F040159 12464 0020 00 4 00001 TRA 1,4 F0D36620 F0D36630 12465 -0625 00 0 04054 VFDOP STL VFDMD SET VFD FLAG F0D36640 12466 0074 00 4 07334 TSX ESYML,4 *DEFINE POSSIBLE LOCATION FIELD F0D36650 12467 0600 00 0 04026 STZ VFDTB CLEAR TOTAL BIT COUNT F0D36660 12470 0600 00 0 04027 VFETC STZ VFDFB CLEAR FIELD WIDTH F0D36670 12471 0074 00 4 06237 TSX C0190,4 *GET NEXT CHARACTER F0D36680 12472 -0340 00 0 06520 LAS COMMA IS CHARACTER COMMA F0D36690 12473 0020 00 0 12532 TRA VFD04 NO F0D36700 12474 0020 00 0 12471 TRA VFETC+1 YES, NULL FIELD F0D36710 12475 -0340 00 0 06522 LAS BLANK IS CHARACTER BLANK F0D36720 12476 0020 00 0 12532 TRA VFD04 NO F0D36730 12477 0020 00 0 12541 TRA VFD06 YES, END OF VARIABLE FIELD F0D36740 12500 -0340 00 0 06503 LAS QO IS CHARACTER O F0D36750 12501 0020 00 0 12532 TRA VFD04 NO F0D36760 12502 0020 00 0 12522 TRA VFD02 YES, OCTAL FIELD F0D36770 12503 -0340 00 0 06514 LAS QH IS CHARACTER H F0D36780 12504 0020 00 0 12532 TRA VFD04 NO F0D36790 12505 0020 00 0 12522 TRA VFD02 YES, HOLLERITH FIELD F0D36800 REENTRY TO COMPUTE PARTIAL FIELD WIDTH F0D36810 12506 -0340 00 0 06521 VFD01 LAS SLASH IS CHARACTER / F0D36820 12507 0020 00 0 12533 TRA VFD05 NO F0D36830 12510 0020 00 0 12524 TRA VFD03 YES, FIELD FOLLOWS F0D36840 12511 -0340 00 0 06426 LAS Q10 IS CHARACTER NUMERIC F0D36850 BINARY CARD NO. 9F040160 12512 0020 00 0 12533 TRA VFD05 NO F0D36860 12513 0074 00 4 06312 TSX MACERR,4 **CHARACTER IS BCD 10 F0D36870 12514 0500 00 0 04027 CLA VFDFB YES, OLD PARTIAL FIELD WIDTH F0D36880 12515 0767 00 0 00002 ALS 2 F0D36890 12516 0400 00 0 04027 ADD VFDFB TIMES TEN F0D36900 12517 0767 00 0 00001 ALS 1 F0D36910 12520 0400 00 0 03755 ADD CHRCTR PLUS NEXT DIGIT F0D36920 12521 0601 00 0 04027 STO VFDFB IS NEW PARTIAL FIELD WIDTH F0D36930 FIELD WIDTH FOLLOWS F0D36940 12522 0074 00 4 06237 VFD02 TSX C0190,4 *GET NEXT CHARACTER F0D36950 12523 0020 00 0 12506 TRA VFD01 F0D36960 FIELD FOLLOWS F0D36970 12524 0500 00 0 04027 VFD03 CLA VFDFB LOAD FIELD WIDTH F0D36980 12525 0340 00 0 06433 CAS Q63 IS SUBFIELD TOO LONG F0D36990 12526 0500 00 0 06433 CLA Q63 YES, TRUNCATE IT F0D37000 12527 0761 00 0 00000 NOP F0D37010 12530 0400 00 0 04026 ADD VFDTB ADD TO TOTAL BIT COUNT F0D37020 12531 0602 00 0 04026 SLW VFDTB AND SAVE F0D37030 LOOK FOR END OF FIELD F0D37040 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 77 PASS ONE PSEUDOOPERATION PROCESSOR 12532 0074 00 4 06237 VFD04 TSX C0190,4 *GET NEXT CHARACTER F0D37050 12533 -0340 00 0 06520 VFD05 LAS COMMA IS IT COMMA AT END OF FIELD F0D37060 12534 0020 00 0 12532 TRA VFD04 NO F0D37070 12535 0020 00 0 12470 TRA VFETC YES, GET NEXT FIELD F0D37080 12536 0322 00 0 06522 ERA BLANK IS IT BLANK F0D37090 12537 -0100 00 0 12532 TNZ VFD04 NO F0D37100 BINARY CARD NO. 9F040161 12540 0020 00 0 12543 TRA VFD06+2 YES, ETC MAY NOT FOLLOW F0D37110 END OF VARIABLE FIELD F0D37120 12541 0074 00 4 07431 VFD06 TSX PEEKS,4 *IS NEXT CARD AN ETC CARD F0D37130 12542 0020 00 0 12560 TRA VFD07 YES F0D37140 END OF VFD STATEMENT F0D37150 12543 0560 00 0 04026 LDQ VFDTB LOAD TOTAL BIT COUNT F0D37160 12544 -0754 00 0 00000 PXD ,0 F0D37170 12545 0221 00 0 06431 DVP Q36 COMPUTE NUMBER OF WORDS F0D37180 12546 0760 00 0 00012 DCT DID DIVIDE FAIL F0D37190 12547 0074 00 4 06312 TSX MACERR,4 **YES F0D37200 12550 0100 00 0 12552 TZE *+2 IS THERE A PARTIAL WORD F0D37210 12551 0500 00 0 06410 CLA Q1 YES, RESERVE SPACE FOR IT F0D37220 12552 -0600 00 0 04026 STQ VFDTB COMBINE FULL WORDS F0D37230 12553 0400 00 0 04026 ADD VFDTB WITH PARTIAL WORD F0D37240 12554 -0100 00 0 12556 TNZ *+2 HAVE ANY BITS BEEN GENERATED F0D37250 12555 0500 00 0 06410 CLA Q1 NO, RESERVE WORD OF ZEROES F0D37260 12556 0074 00 4 06265 TSX BPCTR,4 *BUMP PROGRAM COUNTER F0D37270 12557 0600 00 0 04054 STZ VFDMD RESET VFD FLAG F0D37280 12560 0020 00 0 10550 VFD07 TRA READ1 F0D37290 F0D37300 ERROR IN PROCESSING PSEUDOOPERATIONS F0D37310 12561 -0500 00 0 06413 LITRR CAL Q8 SET ERROR FLAG F0D37320 12562 0020 00 0 12570 TRA PHASE+2 F0D37330 12563 0600 00 0 04273 FIELX STZ LITRL DELETE PARTIAL DEFINITION F0D37340 12564 -0500 00 0 06412 FIELD CAL Q4 FLAG FIELD ERROR F0D37350 12565 0020 00 0 12570 TRA PHASE+2 F0D37360 BINARY CARD NO. 9F040162 12566 0600 00 0 04273 PHASE STZ LITRL DELETE DEFINITION IN ERROR F0D37370 12567 -0500 00 0 06410 CAL Q1 FLAG PHASE ERROR F0D37380 12570 -0602 00 0 04102 ORS P1FLG F0D37390 12571 0020 00 0 10550 TRA READ1 F0D37400 F0D37410 12572 -0500 00 0 06414 OPERR CAL Q16 SET UNDEFINED OPERATION FLAG F0D37420 12573 -0602 00 0 04102 ORS P1FLG F0D37430 12574 0074 00 4 07334 TSX ESYML,4 *DEFINE POSSIBLE LOCATION FIELD F0D37440 12575 0500 00 0 06410 CLA Q1 F0D37450 12576 0074 00 4 06265 TSX BPCTR,4 *BUMP PROGRAM COUNTER F0D37460 12577 0020 00 0 10550 TRA READ1 F0D37470 F0D37480 F0D37490 12600 206060606060 DELMS BCI 5,+ ...UPDATE ONLY... F0D37500 12605 604546454022 UPDRM BCI 8, NON-BCD CARD(S) ON UPDATE INPUT TAPE FOLLOWING F0D37510 BINARY CARD NO. 9F040163 12615 006025672325 XREDN BCI 9,0 EXCESSIVE REDUNDANCY ERRORS. VERIFY INPUT TAPES AND F0D37520 12626 476462306062 BCI 2,PUSH START. F0D37530 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 78 PASS ONE PSEUDOOPERATION PROCESSOR 12630 006025672325 XORDR BCI 9,0 EXCESSIVE CARD ORDER ERRORS. VERIFY INPUT TAPES AND F0D37540 12641 476462306062 BCI 2,PUSH START. F0D37550 BINARY CARD NO. 9F040164 12643 606023215124 NOCNT BCI 5, CARD-COUNT ESTIMATE MISSING. F0D37560 12650 006023302145 CHANG BCI 5,0 CHANGE TAPE AND PUSH START. F0D37570 F0D37580 SORT TABLES F0D37590 12655 -000000000000 SRTBT DEC -0,1B1,1B2,1B3,1B4,1B5,1B6,1B7,1B8,1B9,1B10,1B11,1B12 F0D37600 BINARY CARD NO. 9F040165 12672 +000020000000 DEC 1B13,1B14,1B15,1B16,1B17,1B18,1B19,1B20,1B21,1B22,1B23 F0D37610 12705 +000000004000 OCT 4000,2000,1000,400,200,100,40,20,10,4,2,1 F0D37620 BINARY CARD NO. 9F040166 F0D37630 12721 0 00000 0 54507 SORTB PZE -SYMTBL LOCATION (COMPLEMENT) OF BOTTOM OF TABLE F0D37640 12722 0 00000 0 00000 SORTA PZE ** LOCATION (COMPLEMENT) OF TOP OF TABLE F0D37650 12723 +000000000000 DEC ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, F0D37660 BINARY CARD NO. 9F040167 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 79 PASS ONE MACRO PROCESSOR ROUTINES TO DEFINE MACROS F0D37680 MACRO, MOP, RMT F0D37690 F0D37700 12767 -0760 00 0 00141 MOPSW SLT EXPRR IS OPFIELD IN ERROR F0D37710 12770 0021 00 0 00000 TTR ** NO F0D37720 12771 0020 00 0 10651 TRA INSTR YES F0D37730 F0D37740 BINARY CARD NO. 9F040168 12772 -0500 00 0 04255 MCROP CAL BCDBF LOAD LOCATION FIELD F0D37750 12773 0074 00 4 04547 TSX LOCFL,4 *ASSEMBLE MACRO NAME F0D37760 12774 -0100 00 0 13024 TNZ MOP00+1 HAS NAME BEEN GIVEN F0D37770 12775 -0500 00 0 03755 CAL CHRCTR NO, IS VARIABLE FIELD BLANK F0D37780 12776 0322 00 0 06522 ERA BLANK F0D37790 12777 -0100 00 0 13023 TNZ MOP00 NO, IMPROPER CARD F0D37800 13000 0774 00 4 13010 AXT MCR01,4 SET VECTOR TO AVOID INITIALIZATION F0D37810 13001 0634 00 4 12770 SXA MOPSW+1,4 F0D37820 13002 0074 00 4 15565 TSX SETTP,4 *SET UP MACRO ROUTING F0D37830 13003 0 12767 0 10635 PZE ROUTE,,MOPSW F0D37840 13004 0074 00 4 06312 TSX MACERR,4 **ALREADY SET UP F0D37850 13005 0774 00 4 77777 AXT -1,4 SET MACRO DEFINITION CARD SWITCH F0D37860 13006 -0634 00 4 10307 SXD MCRDF,4 F0D37870 13007 0020 00 0 10550 TRA READ1 GET NEXT CARD WITH MACRO NAME IN OPFIELD F0D37880 REENTRY FOR CARD FOLLOWING BLANK MACRO CARD F0D37890 13010 -0500 00 0 04255 MCR01 CAL BCDBF LOAD LOCATION FIELD F0D37900 13011 0074 00 4 04547 TSX LOCFL,4 *ASSEMBLE LOCATION SYMBOL F0D37910 13012 0602 00 0 16163 SLW LCARG SAVE POSSIBLE LOCATION ARGUMENT F0D37920 13013 0560 00 0 03763 LDQ OPCOD LOAD OPCODE F0D37930 13014 0020 00 0 13035 TRA MOP01 F0D37940 F0D37950 13015 0074 00 4 06126 MOPOP TSX SSCAN,4 *ASSEMBLE MACRO NAME F0D37960 13016 1 00000 0 13023 TXI MOP00,,0 NO MACRO NAME, IMPROPER CARD F0D37970 13017 -0760 00 0 00141 SLT EXPRR WAS MACRO NAME IN ERROR F0D37980 BINARY CARD NO. 9F040169 13020 -0760 00 0 00142 SLT EXPND NO, DID NAME END WITH OPERATOR F0D37990 13021 0600 00 0 04001 STZ SYMBL YES, IMPROPER CARD F0D38000 13022 0520 00 0 04000 ZET SYMB2 NO, IS MACRO NAME TOO LONG F0D38010 13023 0600 00 0 04001 MOP00 STZ SYMBL YES, IMPROPER CARD F0D38020 REENTRY FOR MACRO F0D38030 13024 0074 00 4 15565 TSX SETTP,4 *SET UP MACRO ROUTING F0D38040 13025 0 12767 0 10635 PZE ROUTE,,MOPSW F0D38050 13026 0074 00 4 06312 TSX MACERR,4 **ALREADY SET UP F0D38060 13027 0774 00 4 77777 AXT -1,4 SET MACRO DEFINITION CARD SWITCH F0D38070 13030 -0634 00 4 10307 SXD MCRDF,4 F0D38080 13031 -0500 00 0 04001 CAL SYMBL LOAD RIGHT ADJUSTED SYMBOL NAME F0D38090 13032 0560 00 0 06407 LDQ Q0 (NAME WILL BE ZERO FOR IMPROPER CARD) F0D38100 13033 -0765 00 0 00006 LGR 6 LEFT ADJUST F0D38110 13034 -0100 00 0 13033 TNZ *-1 F0D38120 REENTRY FOR CARD FOLLOWING BLANK MACRO CARD F0D38130 13035 0774 00 4 13074 MOP01 AXT MOP03,4 SET VECTOR UNTIL FIRST NON-ETC CARD F0D38140 13036 0634 00 4 12770 SXA MOPSW+1,4 F0D38150 13037 0634 00 2 13071 SXA MOP02,2 SAVE WORD COUNT F0D38160 13040 0634 00 1 13072 SXA MOP02+1,1 SAVE CHARACTER COUNT F0D38170 13041 -0500 00 0 16572 CAL MOPP2 SET PASS TWO TRANSFER F0D38180 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 80 PASS ONE MACRO PROCESSOR 13042 0602 00 0 04274 SLW OPBIN TO PRINT CARD F0D38190 13043 -0130 00 0 00000 XCL RECALL LEFT ADJUSTED MACRO NAME F0D38200 13044 0602 00 0 16170 SLW MOPNM SAVE FOR END TEST F0D38210 13045 -0100 00 0 13050 TNZ *+3 IS NAME NULL F0D38220 BINARY CARD NO. 9F040170 13046 -0500 00 0 16625 CAL UNDFL YES, LOAD UNDEFINED MACRO FLAG F0D38230 13047 0020 00 0 13053 TRA *+4 F0D38240 13050 0074 00 4 04707 TSX SOPTB,4 *IS MACRO NAME IN OPERATIONS TABLE F0D38250 13051 0020 00 0 13056 TRA *+5 NO F0D38260 13052 -0500 00 0 06510 CAL MFLAG YES, SET MULTIPLE DEFINITION FLAG F0D38270 13053 0602 00 0 04273 SLW LITRL SAVE FOR PASS TWO F0D38280 13054 0774 00 4 13214 AXT 5$MCERR,4 SET PASS TWO TRANSFER F0D38290 13055 -0634 00 4 04274 SXD OPBIN,4 TO PRINT FLAG AND CARD IN ERROR F0D38300 13056 -0500 00 0 16170 CAL MOPNM RELOAD MACRO NAME F0D38310 13057 0441 00 0 16171 LDI MOPTR LOAD POINTER TO MACRO DEFINITION TABLE F0D38320 13060 0100 00 0 13062 TZE *+2 WAS NAME NULL F0D38330 13061 0074 00 4 07206 TSX EOPTT,4 *NO, ENTER IN COMBINED OPERATIONS TABLE F0D38340 13062 -0534 00 1 16171 LXD MOPTR,1 RELOAD POINTER TO MACRO DEFINITION TABLE F0D38350 13063 1 00001 1 13064 TXI *+1,1,1 BUMP POINTER BY LENGTH OF HEADING F0D38360 13064 0774 00 2 00001 AXT 1,2 SET SWITCH TO STUFF BACKWARD F0D38370 13065 -0500 00 0 13065 CAL * LOAD CALLING LINKAGE F0D38380 13066 0020 00 0 16000 TRA STUFY *INIT SUBROUTINE TO STUFF MACRO DEF TABLE F0D38390 13067 0634 00 0 14074 ZSA MPCNT RESET MACRO ARGUMENT COUNT F0D38400 13070 0074 00 4 14042 TSX SARGT,4 *INITIALIZE LOCATION OF ARGUMENT TABLE F0D38410 13071 0774 00 2 00000 MOP02 AXT **,2 RELOAD WORD COUNT F0D38420 13072 0774 00 1 00000 AXT **,1 RELOAD CHARACTER COUNT F0D38430 13073 0020 00 0 13111 TRA MOP04 F0D38440 REENTRY FOR MACRO ETC CARD F0D38450 BINARY CARD NO. 9F040171 13074 -0520 00 0 04046 MOP03 NZT ETCMD IS ETC CARD EXPECTED F0D38460 13075 0074 00 4 06312 TSX MACERR,4 **NO F0D38470 13076 0600 00 0 04046 STZ ETCMD YES, RESET FLAG F0D38480 13077 0074 00 4 14050 TSX RESTF,4 *RESTORE STUFF CONDITIONS F0D38490 13100 -0500 00 0 16174 CAL PSYMB LOAD PARTIAL ARGUMENT F0D38500 13101 0100 00 0 13111 TZE MOP04 IS THERE A PARTIAL ARGUMENT F0D38510 13102 0602 00 0 04001 SLW SYMBL YES, PRESET PARTIAL ARGUMENT F0D38520 13103 0600 00 0 04000 STZ SYMB2 CLEAR HIGH ORDER PORTION F0D38530 13104 0074 00 4 06133 TSX SSCET,4 *ASSEMBLE REST OF ARGUMENT F0D38540 13105 1 00000 0 13141 TXI MOP06,,0 NO MORE ARGUMENT F0D38550 13106 -0500 00 0 04001 CAL SYMBL LOAD ARGUMENT F0D38560 13107 0534 00 4 14074 LXA MPCNT,4 LOAD COUNT OF PARTIAL ARGUMENT F0D38570 13110 0020 00 0 13121 TRA MOP05 F0D38580 REENTRY TO ASSEMBLE NEXT ARGUMENT F0D38590 13111 0074 00 4 06126 MOP04 TSX SSCAN,4 *ASSEMBLE NEXT ARGUMENT F0D38600 13112 1 00000 0 13141 TXI MOP06,,0 NO MORE ARGUMENT F0D38610 13113 -0500 00 0 04001 CAL SYMBL LOAD ARGUMENT F0D38620 13114 0100 00 0 13122 TZE MOP05+1 IS ARGUMENT ZERO F0D38630 13115 0534 00 4 14074 LXA MPCNT,4 NO, BUMP ARGUMENT COUNT F0D38640 13116 1 00001 4 13117 TXI *+1,4,1 F0D38650 13117 3 00077 4 13122 TXH MOP05+1,4,63 DID ARGUMENT TABLE OVERFLOW F0D38660 13120 0634 00 4 14074 SXA MPCNT,4 NO F0D38670 REENTRY FOR ARGUMENT LIST ETC CARD F0D38680 13121 0602 00 4 16310 MOP05 SLW DARGS,4 INSERT ARGUMENT IN TABLE F0D38690 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 81 PASS ONE MACRO PROCESSOR REENTRY FOR TRUNCATED ARGUMENT LIST F0D38700 BINARY CARD NO. 9F040172 13122 0602 00 0 16174 SLW PSYMB SAVE POSSIBLE PARTIAL ARGUMENT F0D38710 13123 0534 00 4 03755 LXA CHRCTR,4 LOAD PUNCTUATION CHARACTER F0D38720 13124 -3 00033 4 13111 TXL MOP04,4,27 F0D38730 13125 -3 00034 4 13156 TXL MOP08,4,28 PUNCTUATION IS ) F0D38740 13126 -3 00052 4 13111 TXL MOP04,4,42 F0D38750 13127 -3 00053 4 13150 TXL MOP07,4,43 PUNCTUATION IS $ F0D38760 13130 -3 00057 4 13111 TXL MOP04,4,47 F0D38770 13131 -3 00060 4 13141 TXL MOP06,4,48 PUNCTUATION IS BLANK F0D38780 13132 -3 00073 4 13111 TXL MOP04,4,59 F0D38790 13133 -3 00074 4 13135 TXL *+2,4,60 PUNCTUATION IS ( F0D38800 13134 0074 00 4 06312 TSX MACERR,4 **CHARACTER IS ILLEGAL F0D38810 PUNCTUATION IS ( F0D38820 13135 0500 00 0 16172 CLA PARNC BUMP PARENTHESES COUNT F0D38830 13136 0400 00 0 06410 ADD Q1 F0D38840 13137 0601 00 0 16172 STO PARNC F0D38850 13140 0020 00 0 13111 TRA MOP04 F0D38860 PUNCTUATION IS BLANK F0D38870 13141 0520 00 0 16172 MOP06 ZET PARNC ARE PARENTHESES BALANCED F0D38880 13142 0020 00 0 13145 TRA *+3 NO F0D38890 13143 -3 77764 2 13153 TXL MOP07+3,2,-12 YES, IS VARIABLE FIELD EXHAUSTED F0D38900 13144 0020 00 0 13163 TRA MOP10 NO F0D38910 13145 0074 00 4 07431 TSX PEEKS,4 *DOES ETC CARD FOLLOW F0D38920 13146 0020 00 0 13774 TRA GSC32 YES F0D38930 13147 0020 00 0 13162 TRA MOP10-1 **NO, FLAG ERROR (23)F0D38940 PUNCTUATION IS $ F0D38950 BINARY CARD NO. 9F040173 13150 0074 00 4 06250 MOP07 TSX C019A,4 *LOOK AT NEXT CHARACTER F0D38960 13151 0322 00 0 06522 ERA BLANK IS IT BLANK F0D38970 13152 -0100 00 0 13111 TNZ MOP04 NO, $ IS HEADING CHARACTER F0D38980 REENTRY FOR VARIABLE FIELD EXHAUSTED F0D38990 13153 0074 00 4 07431 TSX PEEKS,4 *DOES ETC CARD FOLLOW F0D39000 13154 0020 00 0 13774 TRA GSC32 YES F0D39010 13155 0020 00 0 13163 TRA MOP10 NO F0D39020 PUNCTUATION IS ) F0D39030 13156 0500 00 0 16172 MOP08 CLA PARNC BUMP PARENTHESES COUNT F0D39040 13157 0402 00 0 06410 SUB Q1 F0D39050 13160 0601 00 0 16172 STO PARNC F0D39060 13161 0120 00 0 13111 TPL MOP04 ARE THERE TOO MANY RIGHT PARENTHESES F0D39070 13162 0074 00 4 15454 TSX MCER1,4 *YES, SET ERROR FLAG (23)F0D39080 NO ETC CARD FOLLOWS F0D39090 13163 0774 00 4 13203 MOP10 AXT MOP11,4 RESET TRANSFER UNTIL END CARD F0D39100 13164 0634 00 4 12770 SXA MOPSW+1,4 F0D39110 13165 -0534 00 1 16171 LXD MOPTR,1 LOAD POINTER TO THIS MACRO F0D39120 13166 0534 00 4 14074 LXA MPCNT,4 LOAD ARGUMENT COUNT F0D39130 13167 -0754 00 4 00000 PXD ,4 F0D39140 13170 0601 00 1 00000 STO 0,1 INSERT ARGUMENT COUNT IN HEADING F0D39150 13171 -0500 00 0 16163 CAL LCARG LOAD POSSIBLE LOCATION ARGUMENT F0D39160 13172 0100 00 0 13774 TZE GSC32 DOES IT EXIST F0D39170 13173 0600 00 0 16163 STZ LCARG YES, RESET IT F0D39180 13174 1 00001 4 13175 TXI *+1,4,1 BUMP ARGUMENT COUNT F0D39190 13175 0634 00 4 14074 SXA MPCNT,4 F0D39200 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 82 PASS ONE MACRO PROCESSOR BINARY CARD NO. 9F040174 13176 0602 00 4 16310 SLW DARGS,4 ADD LAST ARGUMENT F0D39210 13177 -0754 00 4 00000 PXD ,4 F0D39220 13200 -0760 00 0 00003 SSM SET FLAG FOR LOCATION TYPE ARGUMENT F0D39230 13201 0601 00 1 00000 STO 0,1 INSERT REVISED ARGUMENT COUNT IN HEADING F0D39240 13202 0020 00 0 13774 TRA GSC32 F0D39250 REENTRY FOR MACRO INSTRUCTION CARDS F0D39260 13203 0074 00 4 14050 MOP11 TSX RESTF,4 *RESTORE STUFF CONDITIONS F0D39270 13204 0520 00 0 04046 ZET ETCMD IS AN ETC CARD EXPECTED F0D39280 13205 0020 00 0 13377 TRA MSC10 YES F0D39290 13206 -0500 00 0 03763 CAL OPCOD NO, LOAD OPCODE F0D39300 13207 0322 00 0 16620 ERA ENDMM IS OPCODE END F0D39310 13210 -0100 00 0 13316 TNZ MSC01 NO F0D39320 OPCODE IS END F0D39330 13211 -0500 00 0 04255 CAL BCDBF LOAD LOCATION FIELD F0D39340 13212 0074 00 4 04547 TSX LOCFL,4 *ASSEMBLE LOCATION SYMBOL F0D39350 13213 -0100 00 0 13231 TNZ MOP12 IS THERE A SYMBOL F0D39360 13214 0560 00 0 03756 LDQ RESIDU NO, SAVE BEGINNING OF VARIABLE FIELD F0D39370 13215 -0600 00 0 16167 STQ MOPMQ WHILE FINDING MACRO NAME F0D39380 13216 -0500 00 0 03755 CAL CHRCTR F0D39390 13217 0602 00 0 16166 SLW MOPCH F0D39400 13220 -0534 00 2 04012 LXD VRFLD,2 LOAD WORD COUNT F0D39410 13221 0534 00 1 04012 LXA VRFLD,1 LOAD CHARACTER COUNT F0D39420 13222 0074 00 4 06126 TSX SSCAN,4 *ASSEMBLE VARIABLE FIELD SYMBOL F0D39430 13223 1 00000 0 13304 TXI RMT02,,0 NO VARIABLE FIELD SYMBOL F0D39440 BINARY CARD NO. 9F040175 13224 0560 00 0 16167 LDQ MOPMQ RESTORE BEGINNING OF VARIABLE FIELD F0D39450 13225 -0600 00 0 03756 STQ RESIDU F0D39460 13226 -0500 00 0 16166 CAL MOPCH F0D39470 13227 0602 00 0 03755 SLW CHRCTR F0D39480 13230 -0500 00 0 04001 CAL SYMBL LOAD SYMBOL F0D39490 13231 0560 00 0 06407 MOP12 LDQ Q0 LEFT ADJUST F0D39500 13232 -0765 00 0 00006 LGR 6 F0D39510 13233 -0100 00 0 13232 TNZ *-1 F0D39520 13234 -0130 00 0 00000 XCL F0D39530 13235 0322 00 0 16170 ERA MOPNM IS THIS END OF MACRO F0D39540 13236 0100 00 0 13304 TZE RMT02 YES F0D39550 13237 0020 00 0 13316 TRA MSC01 NO F0D39560 F0D39570 13240 0774 00 4 77777 RMTOP AXT -1,4 SET MACRO DEFINITION CARD SWITCH F0D39580 13241 -0634 00 4 10307 SXD MCRDF,4 (CALL CARD SWITCH FOR RMT * ) F0D39590 13242 -0500 00 0 03755 CAL CHRCTR LOAD FIRST CHARACTER F0D39600 13243 0322 00 0 06523 ERA ASTRK IS IT * F0D39610 13244 -0100 00 0 13252 TNZ RMT00 NO F0D39620 13245 0774 00 4 12337 AXT 5$BES01+4,4 YES, SET PASS TWO TRANSFER ADDRESS $F0D39630 TO LIST LOCATION LEFT ADJUSTED F0D39640 13246 -0634 00 4 04274 SXD OPBIN,4 F0D39650 13247 0074 00 4 10301 TSX OTPUT,4 *WRITE RMT * CARD F0D39660 13250 0074 00 4 14554 TSX RMTSR,4 *OUTPUT WAITING SEQUENCES F0D39670 13251 0020 00 0 10616 TRA SOURC F0D39680 BINARY CARD NO. 9F040176 13252 0074 00 4 15565 RMT00 TSX SETTP,4 *SET UP REMOTE ROUTING F0D39690 13253 0 12767 0 10635 PZE ROUTE,,MOPSW F0D39700 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 83 PASS ONE MACRO PROCESSOR 13254 0074 00 4 06312 TSX MACERR,4 **ALREADY SET UP F0D39710 13255 0774 00 4 13276 AXT RMT01,4 SET TRANSFER UNTIL NEXT RMT CARD F0D39720 13256 0634 00 4 12770 SXA MOPSW+1,4 F0D39730 13257 -0500 00 0 16171 CAL MOPTR LOAD POINTER TO MACRO DEFINITION TABLE F0D39740 13260 -0534 00 1 16175 LXD RMTEN,1 LOAD POINTER TO LAST REMOTE F0D39750 13261 0622 00 1 00000 STD 0,1 INSERT POINTER IN HEADING DECREMENT F0D39760 13262 0622 00 0 16175 STD RMTEN RESET POINTER F0D39770 13263 -0734 00 1 00000 PDX ,1 F0D39780 13264 -0500 00 0 03776 CAL BHEAD INSERT CURRENT HEADING CHARACTER F0D39790 13265 -0320 00 0 06433 ANA Q63 WITH EXTRANEOUS CHARACTERS DELETED F0D39800 13266 0602 00 1 00000 SLW 0,1 AS HEADING ADDRESS F0D39810 13267 1 00001 1 13270 TXI *+1,1,1 BUMP POINTER BY LENGTH OF HEADING F0D39820 13270 0634 00 0 14074 ZSA MPCNT RESET REMOTE ARGUMENT COUNT F0D39830 13271 0774 00 2 00001 AXT 1,2 SET SWITCH TO STUFF BACKWARD F0D39840 13272 -0500 00 0 13272 CAL * LOAD CALLING LINKAGE F0D39850 13273 0020 00 0 16000 TRA STUFY *INITIALIZE SUBROUTINE TO STUFF MACRO DEF F0D39860 13274 0074 00 4 14042 TSX SARGT,4 *INITIALIZE LOCATION OF ARGUMENT TABLE F0D39870 13275 0020 00 0 13774 TRA GSC32 F0D39880 F0D39890 REENTRY FOR REMOTE INSTRUCTION CARD F0D39900 13276 0074 00 4 14050 RMT01 TSX RESTF,4 *RESTORE STUFF CONDITIONS F0D39910 13277 0520 00 0 04046 ZET ETCMD IS AN ETC CARD EXPECTED F0D39920 BINARY CARD NO. 9F040177 13300 0020 00 0 13377 TRA MSC10 YES F0D39930 13301 -0500 00 0 03763 CAL OPCOD NO, LOAD OPCODE F0D39940 13302 0322 00 0 16617 ERA RMTMM IS OPCODE RMT F0D39950 13303 -0100 00 0 13316 TNZ MSC01 NO F0D39960 OPCODE IS RMT, END OF REMOTE SEQUENCE F0D39970 REENTRY AFTER END OF MACRO DEFINITION F0D39980 CLOSE OUT MACRO DEFINITION TABLE F0D39990 13304 0074 00 4 14154 RMT02 TSX SFZRO,4 *STUFF TERMINATING ZEROS F0D40000 13305 0020 00 0 16766 TRA RMT03 TO CHECK FOR UNNESTED MACRO $F0D40010 13306 -0634 00 2 16171 SXD MOPTR,2 NO, SET POINTER TO NEXT HEADING F0D40020 13307 -0634 00 2 14546 SXD MAC07,2 RESET MACRO EXPANSION TABLE OVERFLOW TEST F0D40030 13310 0074 00 4 10301 TSX OTPUT,4 *WRITE RMT/END CARD F0D40040 13311 -0634 00 0 06163 ZSD SSCN0 RESET MACRO DEFINITION SCAN SWITCH F0D40050 13312 -0634 00 0 10307 ZSD MCRDF RESET MACRO DEFINITION CARD SWITCH F0D40060 13313 0074 00 4 15612 TSX RESTP,4 *RESET ASSEMBLER ROUTING F0D40070 13314 0 12767 0 10635 PZE ROUTE,,MOPSW F0D40080 13315 0020 00 0 10616 TRA SOURC F0D40090 F0D40100 ANALYSE CARD IN RANGE OF MACRO OR RMT F0D40110 DEFINE CARD LOCATION FIELD F0D40120 13316 -0500 00 0 04255 MSC01 CAL BCDBF LOAD LOCATION FIELD F0D40130 13317 -0340 00 0 04176 LAS BLANKS DOES LOCATION FIELD EXIST F0D40140 13320 0020 00 0 13322 TRA *+2 YES F0D40150 13321 0020 00 0 13326 TRA MSC02 NO F0D40160 13322 0074 00 4 04547 TSX LOCFL,4 *ASSEMBLE LOCATION SYMBOL (OR EXPLICIT 0) F0D40170 13323 0074 00 4 14071 TSX SMART,4 *LOOK UP LOCATION IN ARGUMENT TABLE F0D40180 13324 0074 00 4 14111 TSX SFARN,4 *STUFF ARGUMENT NUMBER F0D40190 13325 0074 00 4 14121 TSX SFARS,4 *STUFF LOCATION SYMBOL F0D40200 DEFINE CARD OPCODE F0D40210 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 84 PASS ONE MACRO PROCESSOR BINARY CARD NO. 9F040178 13326 -0774 00 1 06410 MSC02 AXC Q1,1 PREPARE TO STUFF OP TAG F0D40220 13327 0074 00 4 14155 TSX SFFLG,4 *STUFF FLAG F0D40230 13330 0560 00 0 03756 LDQ RESIDU SAVE BEGINNING OF VARIABLE FIELD F0D40240 13331 -0600 00 0 16167 STQ MOPMQ DURING OPCODE ANALYSIS F0D40250 13332 0560 00 0 03755 LDQ CHRCTR F0D40260 13333 -0600 00 0 16166 STQ MOPCH F0D40270 13334 0560 00 0 04256 LDQ BCDBF+1 LOAD OPCODE F0D40280 13335 -0763 00 0 00006 LGL 6 INITIALIZE VARIABLE FIELD SCAN F0D40290 13336 -0600 00 0 03756 STQ RESIDU TO SCAN OPCODE F0D40300 13337 -0754 00 0 00000 ZAC INITIALIZE FIRST CHARACTER IN OPCODE F0D40310 13340 -0763 00 0 00006 LGL 6 F0D40320 13341 0602 00 0 03755 SLW CHRCTR F0D40330 13342 0774 00 2 77777 AXT -1,2 SET COUNT TO WORD 2 F0D40340 13343 0774 00 1 00006 AXT 6,1 SET COUNT TO CHARACTER 2 F0D40350 REENTRY AFTER ' OR * F0D40360 13344 0074 00 4 06126 MSC03 TSX SSCAN,4 *ASSEMBLE (PARTIAL) OP FIELD F0D40370 13345 1 00000 0 13371 TXI MSC05,,0 NULL OP FIELD F0D40380 13346 -0500 00 0 04001 CAL SYMBL LOAD PARTIAL OP CODE F0D40390 13347 0100 00 0 13357 TZE MSC04+2 IS THERE AN OP CODE F0D40400 13350 0634 00 2 13355 SXA MSC04,2 YES, SAVE WORD COUNT F0D40410 13351 0634 00 1 13356 SXA MSC04+1,1 SAVE CHARACTER COUNT F0D40420 13352 0074 00 4 14071 TSX SMART,4 *LOOK UP OP CODE IN ARGUMENT TABLE F0D40430 13353 0074 00 4 14111 TSX SFARN,4 *STUFF ARGUMENT NUMBER F0D40440 BINARY CARD NO. 9F040179 13354 0074 00 4 14121 TSX SFARS,4 *STUFF OPCODE F0D40450 13355 0774 00 2 00000 MSC04 AXT **,2 RELOAD WORD COUNT F0D40460 13356 0774 00 1 00000 AXT **,1 RELOAD CHARACTER COUNT F0D40470 13357 -0500 00 0 03755 CAL CHRCTR RELOAD PUNCTUATION F0D40480 13360 -0340 00 0 06530 LAS PRIME IS PUNCTUATION ' F0D40490 13361 0020 00 0 13363 TRA *+2 NO F0D40500 13362 0020 00 0 13344 TRA MSC03 YES, GET NEXT SUBFIELD F0D40510 13363 0322 00 0 06523 ERA ASTRK IS PUNCTUATION * F0D40520 13364 -0100 00 0 17045 TNZ MSC07 NO, CHECK FURTHER (24)F0D40530 13365 -0500 00 0 03755 MSC06 CAL CHRCTR YES, SET SUBFIELD TO PUNCTUATION (24)F0D40540 13366 0602 00 0 04001 SLW SYMBL F0D40550 13367 0074 00 4 14121 TSX SFARS,4 *STUFF * F0D40560 13370 0020 00 0 13344 TRA MSC03 GET NEXT SUBFIELD F0D40570 BEGINNING OF VARIABLE FIELD SENSED F0D40580 13371 -0774 00 1 06432 MSC05 AXC Q62,1 PREPARE TO STUFF FIELD TAG F0D40590 13372 0074 00 4 14155 TSX SFFLG,4 *STUFF FLAG F0D40600 13373 0020 00 0 17062 TRA MSC09 COMPUTE VARIABLE FIELD POSITION (24)F0D40610 13374 0634 00 1 04010 SXA ERASE,1 STORE IT FOR STUFF ROUTINE (24)F0D40620 13375 -0774 00 1 04010 AXC ERASE,1 STUFF INTO MACRO DEFINITION (24)F0D40630 13376 0074 00 4 14155 TSX SFFLG,4 (24)F0D40640 F0D40650 BEGIN TESTS FOR OPCODES REQUIRING SPECIAL HANDLING F0D40660 13377 -0534 00 2 04012 MSC10 LXD VRFLD,2 LOAD WORD COUNT (24)F0D40670 13400 0534 00 1 04012 LXA VRFLD,1 LOAD CHARACTER COUNT (24)F0D40680 13401 0774 00 4 77777 AXT -1,4 PRESET FIRST FIELD SWITCH F0D40690 BINARY CARD NO. 9F040180 13402 -0634 00 4 14010 SXD GSCSA+1,4 F0D40700 13403 0600 00 0 16161 STZ COUNT RESET FIELD COUNT F0D40710 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 85 PASS ONE MACRO PROCESSOR 13404 0600 00 0 04001 STZ SYMBL RESET FIELD F0D40720 13405 0774 00 4 00001 AXT 1,4 PRESET LENGTH OF FIELD TO BE STUFFED (24)F0D40730 13406 -0634 00 4 16200 SXD TOTAL,4 (24)F0D40740 13407 -0500 00 0 03763 CAL OPCOD LOAD OPCODE F0D40750 COMPARE FOR OP CODE OF BCD, BCI, TTL, OR REM (23)F0D40760 13410 0774 00 4 00004 AXT 4,4 LOAD LENGTH OF TABLE (23)F0D40770 13411 -0340 00 4 16617 LAS BCDMM+4,4 COMPARE SUCCESSIVE ENTRIES (23)F0D40780 13412 0020 00 0 13414 TRA *+2 AND IF MATCH IS FOUND, GO INITIALIZE (23)F0D40790 13413 0020 00 0 13441 TRA MSC11 FOR FULL CARD SCAN (23)F0D40800 13414 2 00001 4 13411 TIX *-3,4,1 IS LIST EXHAUSTED (23)F0D40810 13415 0020 00 0 13436 TRA MSC1A YES, GO CHECK FOR LITERAL (23)F0D40820 PATCH TO MACRO INSTRUCTION ARGUMENT SCAN (23)F0D40830 13416 0074 00 4 15454 MCERP TSX MCER1,4 SET FLAG AND PASS TWO ADDRESS (23)F0D40840 13417 0020 00 0 14672 TRA SSN04+4 (23)F0D40850 ERROR ROUTINE FOR UNDEFINED MACRO NAME (23)F0D40860 13420 -0500 00 0 16625 MCER3 CAL UNDFL LOAD UNDEFINED FLAG (23)F0D40870 13421 0074 00 4 15457 TSX MCERR,4 *SET FOR PASS TWO (23)F0D40880 13422 0074 00 4 07334 TSX ESYML,4 *DEFINE POSSIBLE LOCATION FIELD (23)F0D40890 13423 0020 00 0 10550 TRA READ1 (23)F0D40900 PATCH TO IFF PSEUDO-OPERATION PROCESSOR (23)F0D40910 13424 3 00000 2 14213 IFF06 TXH IFF02,2,0 DO ARGUMENT LENGTHS DIFFER.. (23)F0D40920 13425 0534 00 4 16407 LXA MARGS,4 NO, LOAD POINTER TO FIRST ARGUMENT (23)F0D40930 13426 0534 00 2 16406 LXA MARGS-1,2 LOAD POINTER TO SECOND ARGUMENT (23)F0D40940 13427 -0634 00 2 13434 SXD IFF08,2 AND INITIALIZE TEST FOR END (23)F0D40950 BINARY CARD NO. 9F040181 13430 -0500 00 4 00000 IFF07 CAL 0,4 COMPARE CORRESPONDING WORDS (23)F0D40960 13431 0322 00 2 00000 ERA 0,2 OF ARGUMENT STRINGS (23)F0D40970 13432 -0100 00 0 14213 TNZ IFF02 THROUGH IF DIFFERENT (23)F0D40980 13433 1 77777 4 13434 TXI IFF08,4,-1 BUMP FIRST ARGUMENT POINTER (23)F0D40990 13434 -3 00000 4 14214 IFF08 TXL IFF02+1,4,** HAVE WE COMPARED ALL OF IT (23)F0D41000 13435 1 77777 2 13430 TXI IFF07,2,-1 NO, KEEP CHECKING (23)F0D41010 TEST FOR LITERAL $F0D41020 13436 -0500 00 0 03755 MSC1A CAL CHRCTR $F0D41030 13437 0322 00 0 06531 ERA EQUAL IF EQUAL TREAT AS $F0D41040 13440 -0100 00 0 13456 TNZ MSC20 HOLLERITH FIELD $F0D41050 REENTRY FOR TTL,REM, BCI, BCD WITH SYMBOLIC COUNT $F0D41060 13441 0634 00 1 13510 MSC11 SXA GSAV1,1 SAVE VARIABLE FIELD CHARACTER COUNT $F0D41070 13442 1 77777 1 13450 TXI MSC14,1,-1 $F0D41080 PATCH TO MACRO-INSTRUCTION PROCESSOR (23)F0D41090 13443 -3 00000 4 14201 MACIF TXL IFF01,4,** IS THIS IFF PSEUDO OPERATION (23)F0D41100 13444 0020 00 0 14446 TRA MAC02 NO, CONTINUE TO ARGUMENT SCAN (23)F0D41110 PATCH TO GENERAL SCAN ROUTINE TO PREVENT LOSS OF (23)F0D41120 LAST PUNCTUATION CHARACTER OF ALPHANUMERIC FIELD (23)F0D41130 13445 -0774 00 4 13470 GSCBP AXC MSC22,4 UPDATE RETURN ADDRESS FROM GSCET (23)F0D41140 13446 0634 00 4 14106 SXA SMARX,4 SUBROUTINE IN CASE NON-BLANK (23)F0D41150 13447 0020 00 0 13472 TRA MSC22+2 PUNCTUATION OCCURS LATER ON CARD (23)F0D41160 RE-ENTRY FOR VARIABLE FIELD TO BE SCANNED IN FULL (23)F0D41161 13450 -0774 00 4 00014 MSC14 AXC 12,4 SET LENGTH OF CARD TO SCAN $F0D41170 13451 -0634 00 4 13643 SXD GSC11+1,4 SET END OF HOLLERITH FIELD SCAN TEST $F0D41180 13452 0774 00 4 77777 AXT -1,4 SET HOLLERITH FIELD SWITCHES F0D41190 13453 -0634 00 4 13604 SXD GSC07,4 F0D41200 13454 -0634 00 4 13624 SXD GSC09,4 F0D41210 13455 0020 00 0 13470 TRA MSC22 F0D41220 REENTRY FOR NONHOLLERITH OPCODES F0D41230 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 86 PASS ONE MACRO PROCESSOR BINARY CARD NO. 9F040182 13456 0634 00 1 13510 MSC20 SXA GSAV1,1 SAVE VARIABLE FIELD CHARACTER COUNT F0D41240 13457 1 77777 1 13460 TXI *+1,1,-1 F0D41250 13460 -0520 00 0 04046 NZT ETCMD IS ETC CARD EXPECTED F0D41260 13461 0020 00 0 13470 TRA MSC22 NO $F0D41270 13462 0600 00 0 04046 STZ ETCMD YES, RESET FLAG F0D41280 13463 -0534 00 4 16173 LXD PCONT,4 PRESET PARTIAL FIELD COUNT F0D41290 13464 -0634 00 4 16161 SXD COUNT,4 F0D41300 13465 -0500 00 0 16174 CAL PSYMB PRESET PARTIAL SYMBOL F0D41310 13466 0602 00 0 04001 SLW SYMBL F0D41320 13467 -0634 00 0 13536 ZSD GSC02+1 SET SWITCH TO PROCESS FIRST FIELD F0D41330 F0D41340 REENTRY FOR HOLLERITH OPCODES F0D41350 BEGIN VARIABLE FIELD SCAN F0D41360 13470 0074 00 4 13512 MSC22 TSX GSCET,4 *ASSEMBLE NEXT FIELD F0D41370 13471 0020 00 0 13502 TRA MSC23 FIELD IS AN ARGUMENT F0D41380 REENTRY FOR HOLLERITH FIELD NOT AN ARGUMENT F0D41390 13472 -0634 00 0 14010 ZSD GSCSA+1 RESET FIRST FIELD SWITCH F0D41400 13473 0500 00 0 16161 CLA COUNT ADD FIELD COUNT F0D41410 13474 0400 00 0 16200 ADD TOTAL INTO STUFF COUNT F0D41420 13475 0601 00 0 16200 STO TOTAL F0D41430 13476 0600 00 0 16161 STZ COUNT RESET FIELD COUNT F0D41440 13477 0600 00 0 04001 STZ SYMBL DELETE FIELD NOT AN ARGUMENT F0D41450 13500 0534 00 2 13507 LXA GSAV2,2 LOAD VARIABLE FIELD WORD COUNT F0D41460 13501 0020 00 0 13515 TRA GSC01 F0D41470 FIELD IS AN ARGUMENT F0D41480 REENTRY AFTER FIRST BLANK IN HOLLERITH FIELD F0D41490 13502 0074 00 4 14007 MSC23 TSX GSCSA,4 *STUFF ARGUMENT F0D41500 13503 0600 00 0 16161 STZ COUNT RESET FIELD COUNT F0D41510 BINARY CARD NO. 9F040183 13504 0600 00 0 04001 STZ SYMBL RESET FIELD F0D41520 13505 0774 00 2 00002 AXT 2,2 SET STUFF COUNT TO INCLUDE F0D41530 13506 -0634 00 2 16200 SXD TOTAL,2 PRECEDING PUNCTUATION F0D41540 13507 0774 00 2 00000 GSAV2 AXT **,2 LOAD VARIABLE FIELD WORD COUNT F0D41550 13510 0774 00 1 00000 GSAV1 AXT **,1 LOAD VARIABLE FIELD CHARACTER COUNT F0D41560 13511 0020 00 0 13470 TRA MSC22 ENSURE CORRECT RETURN ADDRESS (23)F0D41570 F0D41580 ASSEMBLE NEXT FIELD F0D41590 13512 0634 00 4 14106 GSCET SXA SMARX,4 SAVE CALLING LINKAGE F0D41600 13513 0634 00 2 14031 SXA GSCX1,2 SAVE STUFF WORD COUNT F0D41610 13514 0634 00 1 14030 SXA GSCX2,1 SAVE STUFF CHARACTER COUNT F0D41620 13515 0534 00 1 13510 GSC01 LXA GSAV1,1 LOAD VARIABLE FIELD CHARACTER COUNT F0D41630 13516 0074 00 4 06237 TSX C0190,4 *GET NEXT CHARACTER F0D41640 13517 0634 00 1 13510 SXA GSAV1,1 SAVE VARIABLE FIELD CHARACTER COUNT F0D41650 13520 -0534 00 1 16161 LXD COUNT,1 BUMP FIELD COUNT F0D41660 13521 1 00001 1 13522 TXI *+1,1,1 F0D41670 13522 -0634 00 1 16161 SXD COUNT,1 F0D41680 13523 -0534 00 4 06532 LXD BKTBL,4 LOAD SPECIAL CHARACTER COUNT F0D41690 13524 -0340 00 4 06532 LAS BKTBL,4 IS THIS A SPECIAL CHARACTER F0D41700 13525 0020 00 0 13530 TRA *+3 NO F0D41710 13526 0020 00 0 13535 TRA GSC02 YES F0D41720 13527 2 00001 4 13524 TIX *-3,4,1 IS SPECIAL CHARACTER COUNT EXHAUSTED F0D41730 13530 -0500 00 0 04001 CAL SYMBL YES, APPEND THIS CHARACTER F0D41740 13531 0767 00 0 00006 ALS 6 TO PARTIAL SYMBOL F0D41750 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 87 PASS ONE MACRO PROCESSOR BINARY CARD NO. 9F040184 13532 -0501 00 0 03755 ORA CHRCTR F0D41760 13533 0602 00 0 04001 SLW SYMBL F0D41770 13534 0020 00 0 13515 TRA GSC01 F0D41780 F0D41790 SYMBOL HAS BEEN ASSEMBLED, TRANSFER ON PUNCTUATION F0D41800 13535 0634 00 2 13507 GSC02 SXA GSAV2,2 SAVE VARIABLE FIELD WORD COUNT F0D41810 13536 3 77777 2 13707 TXH GSC16,2,-1 IS THIS FIRST FIELD ON ETC CARD F0D41820 13537 0020 00 4 13553 TRA GSC04+1,4 NO, PROCESS FIELD ON PUNCTUATION F0D41830 F0D41840 13540 0020 00 0 13703 TRA GSC15 PUNCTUATION IS ( F0D41850 13541 0020 00 0 14002 TRA GSC34 PUNCTUATION IS , F0D41860 13542 0020 00 0 14002 TRA GSC34 PUNCTUATION IS / F0D41870 13543 0020 00 0 13624 TRA GSC09 PUNCTUATION IS BLANK F0D41880 13544 0020 00 0 14002 TRA GSC34 PUNCTUATION IS * F0D41890 13545 0020 00 0 13613 TRA GSC08 PUNCTUATION IS $ F0D41900 13546 0020 00 0 14002 TRA GSC34 PUNCTUATION IS - F0D41910 13547 0020 00 0 13604 TRA GSC07 PUNCTUATION IS ) F0D41920 13550 0020 00 0 14002 TRA GSC34 PUNCTUATION IS + F0D41930 13551 0020 00 0 13553 TRA GSC05 PUNCTUATION IS ' F0D41940 13552 0020 00 0 14002 GSC04 TRA GSC34 PUNCTUATION IS = $F0D41950 F0D41960 PUNCTUATION IS ' F0D41970 13553 0074 00 4 14001 GSC05 TSX GSC33,4 *CHECK PRECEDING FIELD FOR ARGUMENT F0D41980 13554 0020 00 0 13564 TRA GSC06 FIELD IS AN ARGUMENT F0D41990 13555 0500 00 0 16161 CLA COUNT ADD FIELD COUNT F0D42000 13556 0402 00 0 06453 SUB D1 LESS PUNCTUATION CHARACTER F0D42010 13557 0400 00 0 16200 ADD TOTAL INTO STUFF COUNT F0D42020 BINARY CARD NO. 9F040185 13560 0601 00 0 16200 STO TOTAL F0D42030 13561 0074 00 4 14016 TSX GSCSF,4 *STUFF FIELD PRECEDING ' F0D42040 13562 -0634 00 0 14010 ZSD GSCSA+1 RESET FIRST FIELD SWITCH F0D42050 13563 0020 00 0 13565 TRA GSC06+1 F0D42060 ' FOLLOWS ARGUMENT F0D42070 13564 0074 00 4 14007 GSC06 TSX GSCSA,4 *STUFF ARGUMENT PRECEDING ' F0D42080 13565 -0774 00 4 13470 AXC MSC22,4 SIMULATE CALL TO ASSEMBLE NEXT FIELD F0D42090 13566 0634 00 4 14106 SXA SMARX,4 F0D42100 13567 0600 00 0 16161 STZ COUNT RESET FIELD COUNT F0D42110 13570 0600 00 0 04001 STZ SYMBL RESET FIELD F0D42120 13571 0774 00 2 00001 AXT 1,2 SET STUFF COUNT TO OMIT PRECEDING ' F0D42130 13572 -0634 00 2 16200 SXD TOTAL,2 F0D42140 13573 0534 00 2 13507 LXA GSAV2,2 LOAD VARIABLE FIELD WORD COUNT F0D42150 13574 0534 00 1 13510 LXA GSAV1,1 LOAD VARIABLE FIELD CHARACTER COUNT F0D42160 13575 2 00001 1 13600 TIX *+3,1,1 DELETE ' FROM STUFF COUNT F0D42170 13576 1 77777 2 13577 TXI *+1,2,-1 F0D42180 13577 0774 00 1 00006 AXT 6,1 F0D42190 13600 0634 00 1 14030 SXA GSCX2,1 SAVE STUFF CHARACTER COUNT F0D42200 13601 0634 00 2 14031 SXA GSCX1,2 SAVE STUFF WORD COUNT F0D42210 13602 0534 00 2 13507 LXA GSAV2,2 RELOAD VARIABLE FIELD WORD COUNT F0D42220 13603 0020 00 0 13515 TRA GSC01 F0D42230 F0D42240 PUNCTUATION IS ) F0D42250 13604 -3 00000 4 14002 GSC07 TXL GSC34,4,** IS ) WITHIN HOLLERITH FIELD F0D42260 13605 0500 00 0 16172 CLA PARNC NO, BUMP PARENTHESES COUNT F0D42270 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 88 PASS ONE MACRO PROCESSOR BINARY CARD NO. 9F040186 13606 0402 00 0 06410 SUB Q1 F0D42280 13607 0601 00 0 16172 STO PARNC F0D42290 13610 0120 00 0 14002 TPL GSC34 ARE THERE TOO MANY RIGHT PARENTHESES F0D42300 13611 0074 00 4 14154 TSX SFZRO,4 *YES, END THIS RECORD F0D42310 13612 0020 00 0 13656 TRA GSCPE **SET ERROR FLAG (23)F0D42320 F0D42330 PUNCTUATION IS $ F0D42340 13613 0534 00 1 13510 GSC08 LXA GSAV1,1 LOAD VARIABLE FIELD CHARACTER COUNT F0D42350 13614 0074 00 4 06250 TSX C019A,4 *LOOK AT NEXT CHARACTER F0D42360 13615 0322 00 0 06522 ERA BLANK IS IT BLANK F0D42370 13616 -0100 00 0 14002 TNZ GSC34 NO, $ IS HEADING CHARACTER F0D42380 13617 0074 00 4 07431 TSX PEEKS,4 *YES, DOES ETC CARD FOLLOW F0D42390 13620 0020 00 0 13747 TRA GSC20 YES F0D42400 13621 -0520 00 0 16172 NZT PARNC NO, ARE PARENTHESES BALANCED F0D42410 13622 0020 00 0 14002 TRA GSC34 YES F0D42420 13623 0020 00 0 13656 TRA GSCPE **NO, SET FLAG (23)F0D42430 F0D42440 PUNCTUATION IS BLANK F0D42450 13624 3 00000 4 13651 GSC09 TXH GSC12,4,** IS BLANK WITHIN HOLLERITH FIELD F0D42460 13625 3 00001 1 13635 TXH GSC10,1,1 YES,HAS A FIELD BEEN COLLECTED $F0D42470 13626 0774 00 0 00000 AXT ,0 NO OPERATION $F0D42480 13627 -3 00000 4 13642 TXL GSC11,4,** NO, IS THIS FIRST BLANK F0D42490 13630 0774 00 4 77777 AXT -1,4 YES, RESET SWITCH F0D42500 13631 -0634 00 4 13627 SXD GSC09+3,4 F0D42510 13632 0500 00 0 16200 CLA TOTAL SAVE STUFF COUNT F0D42520 13633 0601 00 0 16173 STO PCONT TO OMIT TERMINATING BLANKS F0D42530 BINARY CARD NO. 9F040187 13634 0020 00 0 13642 TRA GSC11 F0D42540 FIELD HAS BEEN COLLECTED F0D42550 13635 0074 00 4 14001 GSC10 TSX GSC33,4 *CHECK FIELD FOR ARGUMENT F0D42560 13636 1 13634 4 17075 TXI G10P1,4,GSC10-1 *AXT -1,4 FIELD IS AN ARGUMENT. $F0D42570 13637 0500 00 0 16161 CLA COUNT ADD FIELD COUNT F0D42580 13640 0400 00 0 16200 ADD TOTAL INTO HOLLERITH FIELD COUNT F0D42590 13641 1 13633 4 17073 TXI G10PA,4,GSC10-2 *AXT -2,4 STUFF UP TO BLANK. $F0D42600 13642 0534 00 4 13507 GSC11 LXA GSAV2,4 LOAD VARIABLE FIELD WORD COUNT F0D42610 13643 3 00000 4 13445 TXH GSCBP,4,** IS HOLLERITH FIELD COMPLETE (23)F0D42620 13644 -0634 00 0 13627 ZSD GSC09+3 YES, SET FIRST BLANK SWITCH F0D42630 13645 0500 00 0 16173 CLA PCONT SET STUFF COUNT F0D42640 13646 0601 00 0 16200 STO TOTAL TO HOLLERITH FIELD COUNT F0D42650 13647 0074 00 4 14016 TSX GSCSF,4 *STUFF FIELD PRECEDING BLANK F0D42660 13650 0020 00 0 13770 TRA GSC31 F0D42670 CARD IS STANDARD FORMAT F0D42680 13651 -0520 00 0 16172 GSC12 NZT PARNC ARE PARENTHESES BALANCED F0D42690 13652 0020 00 0 13657 TRA *+5 YES F0D42700 13653 3 77764 2 14002 TXH GSC34,2,-12 NO, IS VARIABLE FIELD EXHAUSTED F0D42710 13654 0074 00 4 07431 TSX PEEKS,4 *YES, DOES AN ETC CARD FOLLOW F0D42720 13655 0020 00 0 13747 TRA GSC20 YES F0D42730 13656 0074 00 4 15454 GSCPE TSX MCER1,4 *NO, SET ERROR FLAG (23)F0D42740 END OF VARIABLE FIELD - BLANK DOES NOT FOLLOW ( OR $ F0D42750 13657 3 77764 2 13663 TXH *+4,2,-12 IS VARIABLE FIELD EXHAUSTED F0D42760 13660 0074 00 4 07431 TSX PEEKS,4 *YES, DOES AN ETC CARD FOLLOW F0D42770 13661 0020 00 0 13747 TRA GSC20 YES F0D42780 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 89 PASS ONE MACRO PROCESSOR BINARY CARD NO. 9F040188 13662 0020 00 0 13671 TRA GSC13 NO F0D42790 13663 0074 00 4 07431 TSX PEEKS,4 *DOES A PROGRAMMERS ETC FOLLOW F0D42800 13664 0020 00 0 13666 TRA *+2 YES F0D42810 13665 0020 00 0 13671 TRA GSC13 NO F0D42820 13666 0600 00 0 04046 STZ ETCMD RESET ETC FLAG F0D42830 13667 0600 00 0 16157 STZ ARGNO DELETE ARGUMENT NUMBER F0D42840 13670 0074 00 4 14112 TSX SFARN+1,4 STUFF 7700 FLAG FOR FOLLOWING CARD ETC F0D42850 REENTRY FOR NO ETC CARD TO FOLLOW F0D42860 13671 0074 00 4 14001 GSC13 TSX GSC33,4 *CHECK FIELD FOR ARGUMENT F0D42870 13672 0020 00 0 13701 TRA GSC14 FIELD IS AN ARGUMENT F0D42880 13673 0500 00 0 16161 CLA COUNT ADD FIELD COUNT F0D42890 13674 0402 00 0 06453 SUB D1 LESS PUNCTUATION CHARACTER F0D42900 13675 0400 00 0 16200 ADD TOTAL INTO STUFF COUNT F0D42910 13676 0601 00 0 16200 STO TOTAL F0D42920 13677 0074 00 4 14016 TSX GSCSF,4 *STUFF FIELD PRECEDING BLANK F0D42930 13700 0020 00 0 13770 TRA GSC31 F0D42940 13701 0074 00 4 14007 GSC14 TSX GSCSA,4 *STUFF ARGUMENT PRECEDING FINAL BLANK F0D42950 13702 0020 00 0 13770 TRA GSC31 F0D42960 F0D42970 PUNCTUATION IS ( F0D42980 13703 0500 00 0 16172 GSC15 CLA PARNC BUMP PARENTHESES COUNT F0D42990 13704 0400 00 0 06410 ADD Q1 F0D43000 13705 0601 00 0 16172 STO PARNC F0D43010 13706 0020 00 0 14002 TRA GSC34 F0D43020 F0D43030 REENTRY FOR FIRST FIELD ON ETC CARD F0D43040 13707 0634 00 4 13745 GSC16 SXA GSC19,4 SAVE PUNCTUATION CHARACTER F0D43050 BINARY CARD NO. 9F040189 13710 0500 00 0 16161 CLA COUNT COMPUTE LENGTH OF ADDED SYMBOL F0D43060 13711 0402 00 0 16173 SUB PCONT F0D43070 13712 0622 00 0 16161 STD COUNT F0D43080 13713 -3 00000 1 13717 GSC17 TXL *+4,1,** IS THIS TAIL END OF A FIELD F0D43090 WHICH WAS TOO LONG TO BE AN ARGUMENT F0D43100 13714 3 00007 1 13717 TXH *+3,1,7 NO, IS FIELD TOO LONG TO BE AN ARGUMENT F0D43110 13715 0074 00 4 14001 TSX GSC33,4 *NO, CHECK FIELD FOR ARGUMENT F0D43120 13716 0020 00 0 13740 TRA GSC18+2 FIELD IS AN ARGUMENT F0D43130 13717 -0634 00 0 13713 ZSD GSC17 RESET TAIL END SWITCH F0D43140 13720 -0534 00 1 16173 LXD PCONT,1 LOAD LENGTH OF PARTIAL FIELD F0D43150 13721 -3 00000 1 13736 TXL GSC18,1,0 IS THERE A PARTIAL FIELD F0D43160 13722 1 00001 1 13723 TXI *+1,1,1 YES, COMPUTE LENGTH+1 OF PARTIAL FIELD F0D43170 13723 0634 00 1 04010 SXA ERASE,1 F0D43180 13724 -0774 00 1 04010 AXC ERASE,1 F0D43190 13725 0074 00 4 14155 TSX SFFLG,4 *STUFF COUNT+1 F0D43200 13726 -0534 00 4 16173 LXD PCONT,4 LOAD LENGTH OF PARTIAL FIELD F0D43210 13727 -0535 00 2 16173 LDC PCONT,2 COMPUTE LOCATION OF FIRST CHARACTER F0D43220 13730 1 00006 2 13731 TXI *+1,2,6 F0D43230 13731 -0774 00 1 16174 AXC PSYMB,1 PREPARE TO STUFF PARTIAL FIELD F0D43240 13732 -0500 00 0 13732 CAL * LOAD CALLING LINKAGE F0D43250 13733 0020 00 0 16015 TRA STUFF *STUFF PARTIAL FIELD F0D43260 13734 0074 00 4 06312 TSX MACERR,4 **IMPOSSIBLE RETURN F0D43270 13735 0020 00 0 16651 TRA ETCPC TRANSFER TO PATCH $F0D43280 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 90 PASS ONE MACRO PROCESSOR BINARY CARD NO. 9F040190 13736 0774 00 4 77777 GSC18 AXT -1,4 SET PARTIAL FIELD SWITCH F0D43290 13737 -0634 00 4 14072 SXD SMART+1,4 F0D43300 13740 0774 00 4 77777 AXT -1,4 RESET FIRST FIELD SWITCH F0D43310 13741 -0634 00 4 13536 SXD GSC02+1,4 F0D43320 13742 -0774 00 4 13470 AXC MSC22,4 SIMULATE CALL TO ASSEMBLE NEXT FIELD F0D43330 13743 0634 00 4 14106 SXA SMARX,4 F0D43340 13744 -0534 00 1 16161 LXD COUNT,1 LOAD LENGTH OF ADDED FIELD F0D43350 13745 0774 00 4 00000 GSC19 AXT **,4 RELOAD PUNCTUATION CHARACTER F0D43360 13746 0020 00 0 13537 TRA GSC02+2 F0D43370 F0D43380 ETC CARD WILL FOLLOW (BLANK, $BLANK, OR CARD COLUMN 72 F0D43390 13747 -0534 00 4 16161 GSC20 LXD COUNT,4 LOAD FIELD COUNT F0D43400 13750 1 77777 4 13751 TXI *+1,4,-1 DELETE TERMINAL $ OR BLANK F0D43410 13751 3 00006 4 13757 TXH GSC21,4,6 IS FIELD TOO LONG TO BE AN ARGUMENT F0D43420 13752 -0634 00 4 16173 SXD PCONT,4 NO, SAVE PARTIAL FIELD COUNT F0D43430 13753 -0500 00 0 04001 CAL SYMBL SAVE PARTIAL FIELD F0D43440 13754 0602 00 0 16174 SLW PSYMB F0D43450 13755 0074 00 4 14016 TSX GSCSF,4 *STUFF FIELD PRECEDING PARTIAL FIELD F0D43460 13756 0020 00 0 13774 TRA GSC32 F0D43470 LAST FIELD IS NOT AN ARGUMENT F0D43480 13757 0600 00 0 16173 GSC21 STZ PCONT RESET LENGTH OF PARTIAL FIELD F0D43490 13760 0600 00 0 16174 STZ PSYMB DELETE PARTIAL FIELD F0D43500 13761 -0754 00 4 00000 PXD ,4 RECALL LENGTH OF PARTIAL FIELD F0D43510 13762 0400 00 0 16200 ADD TOTAL ADD INTO STUFF COUNT F0D43520 13763 0601 00 0 16200 STO TOTAL F0D43530 BINARY CARD NO. 9F040191 13764 0774 00 4 77777 AXT -1,4 SET SWITCH THAT FIRST FIELD ON NEXT CARD F0D43540 13765 -0634 00 4 13713 SXD GSC17,4 IS TAIL END OF A FIELD NOT AN ARGUMENT F0D43550 13766 0074 00 4 14016 TSX GSCSF,4 *STUFF TERMINAL FIELD F0D43560 13767 0020 00 0 13774 TRA GSC32 F0D43570 F0D43580 REENTRY AFTER END OF SCAN F0D43590 13770 0074 00 4 14154 GSC31 TSX SFZRO,4 *STUFF END OF RECORD MARK F0D43600 13771 0600 00 0 16172 STZ PARNC RESET PAREN COUNT F0D43610 13772 -0634 00 0 13604 ZSD GSC07 RESET HOLLERITH FIELD SWITCHES F0D43620 13773 -0634 00 0 13624 ZSD GSC09 F0D43630 REENTRY AFTER END OF SCAN, ETC FOLLOWS F0D43640 REENTRY AFTER END OF MACRO DEFINING ARGUMENTS F0D43650 13774 -0534 00 4 16023 GSC32 LXD STUFI,4 SAVE STUFF CONDITIONS F0D43660 13775 0634 00 4 14051 SXA RSTF1,4 IN CASE MAC ALTERS THEM F0D43670 13776 -0534 00 4 16177 LXD STUM2,4 F0D43680 13777 0634 00 4 14053 SXA RSTF1+2,4 F0D43690 14000 0020 00 0 10550 TRA READ1 F0D43700 F0D43710 REENTRY AFTER ' OR BLANK, OR FIRST FIELD ON ETC CARD F0D43720 14001 0634 00 4 14106 GSC33 SXA SMARX,4 SAVE CALLING LINKAGE F0D43730 REENTRY AFTER OTHER PUNCTUATION F0D43740 14002 -0634 00 0 13627 GSC34 ZSD GSC09+3 SET FIRST BLANK SWITCH F0D43750 14003 -0534 00 4 16161 LXD COUNT,4 LOAD FIELD WIDTH F0D43760 14004 3 00007 4 14106 TXH SMARX,4,7 IS FIELD TOO LONG TO BE AN ARGUMENT F0D43770 14005 -0500 00 0 04001 CAL SYMBL NO, LOAD FIELD F0D43780 14006 0020 00 0 14072 TRA SMART+1 CHECK FOR ARGUMENT F0D43790 RETURN IS TO 1,4 FOR ARGUMENT F0D43800 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 91 PASS ONE MACRO PROCESSOR 2,4 FOR OTHER FIELD F0D43810 F0D43820 STUFF ARGUMENT INTO MACRO DEFINITION F0D43830 14007 0634 00 4 14014 GSCSA SXA GSCAX,4 SAVE CALLING LINKAGE F0D43840 14010 -3 00000 4 14012 TXL *+2,4,** IS THIS FIRST FIELD F0D43850 14011 0074 00 4 14016 TSX GSCSF,4 *NO, STUFF FIELD PRECEDING ARGUMENT F0D43860 BINARY CARD NO. 9F040192 14012 0074 00 4 14112 TSX SFARN+1,4 *STUFF ARGUMENT F0D43870 14013 -0634 00 0 14010 ZSD GSCSA+1 RESET FIRST FIELD SWITCH F0D43880 14014 0774 00 4 00000 GSCAX AXT **,4 RELOAD CALLING LINKAGE F0D43890 14015 0020 00 4 00001 TRA 1,4 F0D43900 F0D43910 STUFF FIELD INTO MACRO DEFINITION F0D43920 14016 0634 00 4 17104 GSCSF SXA GSFP1,4 SAVE CALLING LINKAGE. $F0D43930 14017 -0534 00 1 16200 LXD TOTAL,1 LOAD LENGTH OF VARIABLE FIELD F0D43940 14020 -3 00001 1 14041 TXL GSCFX+1,1,1 DOES A VARIABLE FIELD EXIST... $F0D43950 14021 -3 00075 1 14024 TXL *+3,1,61 YES. IS FIELD COUNT TOO LONG... $F0D43960 14022 1 77762 1 17101 TXI GSFPA,1,-14 *YES. BREAK IT UP AND STUFF TWICE. $F0D43970 14023 -0634 00 1 16200 SXD TOTAL,1 *TELL GS0X1+1 HOW MUCH TO STUFF. $F0D43980 14024 0634 00 4 14040 SXA GSCFX,4 SET RETURN TO PATCH OR CALLER. $F0D43990 14025 0634 00 1 04010 GSCS1 SXA ERASE,1 SET LENGTH+1 OF FIELD F0D44000 14026 -0774 00 1 04010 AXC ERASE,1 F0D44010 14027 0074 00 4 14155 TSX SFFLG,4 *STUFF COUNT+1 F0D44020 14030 -0774 00 2 00000 GSCX2 AXC **,2 LOAD COUNT OF FIRST CHAR TO BE STUFFED F0D44030 14031 0774 00 1 00000 GSCX1 AXT **,1 LOAD COUNT OF FIRST WORD TO BE STUFFED F0D44040 14032 -0534 00 4 16200 LXD TOTAL,4 LOAD LENGTH OF FIELD TO BE STUFFED F0D44050 14033 1 00006 2 14034 TXI *+1,2,6 COMPUTE LOCATION OF FIRST CHARACTER F0D44060 14034 1 73523 1 14035 TXI *+1,1,-BCDBF COMPUTE LOCATION OF FIRST WORD F0D44070 14035 -0500 00 0 14035 CAL * LOAD CALLING LINKAGE F0D44080 14036 1 77777 4 16015 TXI STUFF,4,-1 STUFF FIELD F0D44090 14037 0074 00 4 06312 TSX MACERR,4 **IMPOSSIBLE RETURN F0D44100 BINARY CARD NO. 9F040193 14040 0774 00 4 00000 GSCFX AXT **,4 RELOAD CALLING LINKAGE F0D44110 14041 0020 00 4 00001 TRA 1,4 F0D44120 F0D44130 FLOAT MACRO ARGUMENT TABLE ABOVE SYMBOL TABLE F0D44140 14042 -0534 00 1 17151 SARGT LXD STPTR,1 GET SYMBOL TABLE END $F0D44150 14043 0020 00 0 17142 TRA SARGP AND CHECK FOR NESTING $F0D44160 14044 -0634 00 1 17110 SXD MP1,1 INITIALIZE MAC DEF OVERFLOW TEST $F0D44170 14045 0774 00 1 77777 AXT -1,1 SET MACRO DEFINITION SCAN SWITCH F0D44180 14046 -0634 00 1 06163 SXD SSCN0,1 F0D44190 14047 0020 00 4 00001 TRA 1,4 F0D44200 F0D44210 F0D44220 RESTORE STUFF CONDITIONS F0D44230 14050 0634 00 4 14066 RESTF SXA RSTFX,4 SAVE CALLING LINKAGE F0D44240 14051 0774 00 4 00000 RSTF1 AXT **,4 RESTORE STUFF F0D44250 14052 0020 00 0 17110 TRA MP1 TEST FOR OVERFLOW OF MACRO DEF TABLE $F0D44260 14053 0774 00 4 00000 AXT **,4 BY AN INTERVENING MAC CARD F0D44270 14054 -0634 00 4 16177 SXD STUM2,4 F0D44280 14055 -0634 00 4 16024 SXD STF01,4 F0D44290 14056 -0634 00 0 16064 ZSD STF03+1 DELETE OVERFLOW TEST F0D44300 14057 -0634 00 0 16102 ZSD STF08+2 F0D44310 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 92 PASS ONE MACRO PROCESSOR 14060 0774 00 4 00001 AXT 1,4 F0D44320 14061 -0634 00 4 16101 SXD STF08+1,4 SET DIRECTION OF STUFF BACKWARD F0D44330 14062 -0634 00 4 16107 SXD STF10+2,4 F0D44340 14063 0774 00 0 00000 AXT ,0 (23)F0D44350 14064 -0500 00 0 16572 CAL MOPP2 SET PASS 2 TRANSFER ADDRESS F0D44360 14065 0602 00 0 04274 SLW OPBIN TO PRINT CARD F0D44370 BINARY CARD NO. 9F040194 14066 0774 00 4 00000 RSTFX AXT **,4 RELOAD CALLING LINKAGE F0D44380 14067 0020 00 4 00001 TRA 1,4 F0D44390 F0D44400 LOOK UP SYMBOL IN ARG TABLE F0D44410 14070 -0500 00 0 04001 SMARS CAL SYMBL F0D44420 14071 0634 00 4 14106 SMART SXA SMARX,4 SAVE CALLING LINKAGE F0D44430 14072 -3 00000 4 14106 TXL SMARX,4,** IS THIS PARTIAL FIELD ON ETC CARD F0D44440 14073 0100 00 0 14106 TZE SMARX NO, DOES ARGUMENT EXIST F0D44450 14074 0774 00 4 00000 MPCNT AXT **,4 YES, LOAD COUNT OF ARGUMENTS IN TABLE F0D44460 14075 -3 00000 4 14106 TXL SMARX,4,0 DO ARGUMENTS EXIST F0D44470 14076 -0340 00 4 16310 LAS DARGS,4 YES, IS IT THIS ARGUMENT F0D44480 14077 0020 00 0 14101 TRA *+2 NO F0D44490 14100 0020 00 0 14103 TRA *+3 YES F0D44500 14101 2 00001 4 14076 TIX *-3,4,1 IS ARGUMENT TABLE EXHAUSTED F0D44510 14102 0020 00 0 14106 TRA SMARX YES F0D44520 ARGUMENT HAS BEEN LOCATED IN TABLE F0D44530 14103 -0634 00 4 16157 SXD ARGNO,4 SAVE ARGUMENT NUMBER F0D44540 14104 0534 00 4 14106 LXA SMARX,4 RELOAD CALLING LINKAGE F0D44550 14105 0020 00 4 00001 TRA 1,4 F0D44560 SYMBOL IS NOT AN ARGUMENT F0D44570 14106 0774 00 4 00000 SMARX AXT **,4 RELOAD CALLING LINKAGE F0D44580 14107 -0634 00 0 14072 ZSD SMART+1 RESET PARTIAL FIELD SWITCH F0D44590 14110 0020 00 4 00002 TRA 2,4 F0D44600 F0D44610 STUFF ARGUMENT NUMBER F0D44620 14111 1 77777 4 14112 SFARN TXI *+1,4,-1 BUMP CALLING LINKAGE TO RETURN TO 2,4 F0D44630 14112 0634 00 4 14152 SXA SFARX,4 SAVE CALLING LINKAGE F0D44640 14113 -0500 00 0 16157 CAL ARGNO LOAD ARGUMENT NUMBER F0D44650 BINARY CARD NO. 9F040195 14114 -0501 00 0 06466 ORA D4032 FORM 0077NN000000 F0D44660 14115 0602 00 0 04010 SLW ERASE F0D44670 14116 -0774 00 1 04010 AXC ERASE,1 PREPARE TO STUFF FROM ERASE F0D44680 14117 0774 00 6 00001 AXT 1,6 BEGINNING WITH SECOND CHARACTER F0D44690 14120 1 00001 4 14147 TXI SFS04,4,1 USING TWO CHARACTERS F0D44700 STUFF ARGUMENT SYMBOL F0D44710 14121 0634 00 4 14152 SFARS SXA SFARX,4 SAVE CALLING LINKAGE F0D44720 14122 0774 00 4 00007 AXT 7,4 PREPARE TO COUNT CHARACTERS F0D44730 14123 0774 00 2 00000 AXT 0,2 F0D44740 14124 -0754 00 0 00000 ZAC F0D44750 14125 0560 00 0 04001 LDQ SYMBL LOAD SYMBOL F0D44760 14126 -0763 00 0 00006 LGL 6 NEXT CHARACTER F0D44770 14127 -0100 00 0 14132 TNZ *+3 IS THIS IT F0D44780 14130 1 00001 2 14131 TXI *+1,2,1 NO, BUMP CHARACTER COUNT F0D44790 14131 2 00001 4 14126 TIX *-3,4,1 IS SYMBOL ALL SCANNED F0D44800 14132 0634 00 4 14143 SXA SFS03,4 SAVE LENGTH OF SYMBOL F0D44810 14133 0634 00 2 14144 SXA SFS03+1,2 SAVE STARTING CHARACTER F0D44820 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 93 PASS ONE MACRO PROCESSOR 14134 3 00001 4 14140 TXH SFS02,4,1 WAS FIELD BLANK OR ZERO F0D44830 14135 -0774 00 1 06454 AXC D2,1 YES, PREPARE TO STUFF EXPLICIT ZERO F0D44840 14136 0774 00 2 00002 AXT 2,2 BEGINNING WITH THIRD CHARACTER F0D44850 14137 1 00001 4 14147 TXI SFS04,4,1 USING TWO CHARACTERS F0D44860 ARGUMENT SYMBOL EXISTS F0D44870 14140 0634 00 4 04010 SFS02 SXA ERASE,4 SET LENGTH+1 OF SYMBOL F0D44880 14141 -0774 00 1 04010 AXC ERASE,1 F0D44890 BINARY CARD NO. 9F040196 14142 0074 00 4 14155 TSX SFFLG,4 *STUFF COUNT+1 F0D44900 14143 0774 00 4 00000 SFS03 AXT **,4 RELOAD LENGTH+1 OF SYMBOL F0D44910 14144 0774 00 2 00000 AXT **,2 RELOAD POSITION OF FIRST CHARACTER F0D44920 14145 -0774 00 1 04001 AXC SYMBL,1 PREPARE TO STUFF ARGUMENT SYMBOL F0D44930 14146 1 77777 4 14147 TXI *+1,4,-1 USING LENGTH OF SYMBOL F0D44940 14147 -0500 00 0 14147 SFS04 CAL * LOAD CALLING LINKAGE F0D44950 14150 0020 00 0 16015 TRA STUFF *STUFF SYMBOL OR COUNT AND FLAG F0D44960 14151 0074 00 4 06312 TSX MACERR,4 **IMPOSSIBLE RETURN F0D44970 14152 0774 00 4 00000 SFARX AXT **,4 RELOAD CALLING LINKAGE F0D44980 14153 0020 00 4 00001 TRA 1,4 F0D44990 F0D45000 STUFF TERMINATING ZEROS F0D45010 14154 -0774 00 1 06407 SFZRO AXC Q0,1 PREPARE TO STUFF FROM ZEROS F0D45020 STUFF COUNT OR FLAG F0D45030 14155 0634 00 4 14163 SFFLG SXA SFZRX,4 SAVE CALLING LINKAGE F0D45040 14156 0774 00 2 00005 AXT 5,2 PREPARE TO STUFF FROM LAST CHARACTER F0D45050 14157 0774 00 4 00001 AXT 1,4 USING ONE CHARACTER F0D45060 14160 -0500 00 0 14160 CAL * F0D45070 14161 0020 00 0 16015 TRA STUFF F0D45080 14162 0074 00 4 06312 TSX MACERR,4 **IMPOSSIBLE RETURN F0D45090 14163 0774 00 4 00000 SFZRX AXT **,4 RELOAD CALLING LINKAGE F0D45100 14164 0020 00 4 00001 TRA 1,4 F0D45110 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 94 PASS ONE MACRO PROCESSOR ROUTINES TO EXPAND MACROS F0D45130 IFF, IRP, MAC, RMT * F0D45140 F0D45150 14165 0074 00 4 04767 IFFOP TSX SCANF,4 *EVALUATE SWITCH F0D45160 14166 1 00000 0 07426 TXI AFLAG+2,,0 NULL SWITCH F0D45170 14167 -0760 00 0 00141 SLT EXPRR IS SWITCH IN ERROR F0D45180 BINARY CARD NO. 9F040197 14170 -0520 00 0 04014 NZT RBITS NO, IS SWITCH ABSOLUTE F0D45190 14171 0100 00 0 14173 TZE *+2 YES, IS SWITCH ZERO F0D45200 14172 -0500 00 0 06410 CAL Q1 NO, SET ABSOLUTE NONZERO, OR RELOCATABLE, F0D45210 SWITCH NOT IN ERROR TO 1 F0D45220 14173 0602 00 0 04036 SLW VAREQ F0D45230 14174 0774 00 4 77777 AXT -1,4 SET INTERCEPT IN MACRO PROCESSOR (23)F0D45240 14175 -0634 00 4 13443 SXD MACIF,4 TO RETURN AFTER SCAN INITIALIZATION (23)F0D45250 14176 -0634 00 4 17152 SXD SSN33,4 SET SWITCH FOR POSSIBLE ETC (23)F0D45260 14177 0634 00 1 04012 SXA VRFLD,1 UPDATE CHARACTER POSITION (23)F0D45265 14200 0020 00 0 14401 TRA MACOP+3 *INITIALIZE FOR ARGUMENT SCAN (23)F0D45270 REENTRY FROM MACRO ARGUMENT SCAN INITIALIZATION (23)F0D45275 14201 -0634 00 0 13443 IFF01 ZSD MACIF RESET SWITCH (23)F0D45280 14202 -0760 00 0 00144 SLT FLDND WAS END OF VARIABLE FIELD SENSED (33)F0D45290 14203 0020 00 0 17166 TRA IFFIX NO (33)F0D45300 14204 0020 00 0 17167 TRA IFFIX+1 YES (33)F0D45310 14205 -0534 00 2 16407 LXD MARGS,2 OBTAIN LENGTH OF FIRST ARGUMENT (23)F0D45320 14206 3 00000 2 14210 TXH *+2,2,0 IS IT NULL (23)F0D45330 14207 -3 00001 4 14214 TXL IFF02+1,4,1 YES,TRANSFER IF NO SECOND ARGUMENT (23)F0D45340 14210 -0535 00 4 16406 LDC MARGS-1,4 INITIALIZE COMPUTATION OF (23)F0D45350 14211 -0634 00 4 14212 SXD *+1,4 DIFFERENCE IN ARGUMENT LENGTHS (23)F0D45360 14212 1 00000 2 13424 TXI IFF06,2,** *COMPUTE DIFFERENCE IN LENGTH (23)F0D45370 REENTRY FROM COMPARISON OF ARGUMENTS (23)F0D45380 14213 -0500 00 0 06410 IFF02 CAL Q1 LOAD FLAG FOR UNEQUAL ARGUMENTS (23)F0D45390 14214 0322 00 0 04036 ERA VAREQ COMBINE WITH SWITCH F0D45400 14215 -0100 00 0 14223 TNZ *+6 SHOULD FOLLOWING CARD BE OMITTED F0D45410 BINARY CARD NO. 9F040198 14216 0774 00 4 77777 AXT -1,4 YES, SET FIRST CARD SWITCH F0D45420 14217 -0634 00 4 14232 SXD IFF04,4 F0D45430 14220 0074 00 4 15565 TSX SETTP,4 *PLANT IFF INTERCEPT F0D45440 14221 0 14226 0 10635 PZE ROUTE,,IFF03 F0D45450 14222 0074 00 4 06312 TSX MACERR,4 **ALREADY SET UP F0D45460 14223 0074 00 4 15552 TSX PMCS3,4 RESTORE MACRO STATUS (23)F0D45470 14224 -0634 00 0 17152 ZSD SSN33 RESET FOR NORMAL ETC PRINTING (23)F0D45480 14225 0020 00 0 10550 TRA READ1 YES F0D45490 RETURN FROM MACRO COMPILER FOR SUBSEQUENT CARD F0D45500 14226 -0500 00 0 04256 IFF03 CAL BCDBF+1 LOAD OPCODE F0D45510 14227 -0320 00 0 07503 ANA PKMSK MASK IN CC 8 - 11 F0D45520 14230 0322 00 0 07504 ERA ETCMK IS CARD ETC F0D45530 14231 0100 00 0 14234 TZE IFF04+2 YES, CONTINUE DELETING GENERATED CARDS F0D45540 14232 3 00000 4 14237 IFF04 TXH IFF05,4,** HAS A NON ETC CARD BEEN DELETED F0D45550 14233 -0634 00 0 14232 ZSD IFF04 NOT YET, RESTORE SWITCH F0D45560 14234 0774 00 4 13562 AXT 5$TTL03+1,4 SET PASS TWO TRANSFER ADDRESS TO LIST $F0D45570 14235 -0634 00 4 04274 SXD OPBIN,4 THIS CARD UNDER CONTROL OF PCC $F0D45580 14236 0020 00 0 10550 TRA READ1 F0D45590 DELETION IS COMPLETE F0D45600 14237 0074 00 4 15612 IFF05 TSX RESTP,4 *REMOVE INTERCEPT F0D45610 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 95 PASS ONE MACRO PROCESSOR 14240 0 14226 0 10635 PZE ROUTE,,IFF03 F0D45620 14241 0020 00 0 10635 TRA ROUTE F0D45630 F0D45640 14242 0534 00 4 15511 IRPOP LXA CLEVL,4 LOAD MACRO LEVEL F0D45650 14243 -3 00000 4 12572 TXL OPERR,4,0 **IS IRP WITHIN A MACRO F0D45660 BINARY CARD NO. 9F040199 14244 0774 00 4 77777 AXT -1,4 YES, SET SWITCH TO INTERCEPT F0D45670 14245 -0634 00 4 15354 SXD CMP22,4 SUBSEQUENT IRP CARD F0D45680 14246 0074 00 4 10330 TSX OTPT0,4 *LIST FIRST IRP F0D45690 14247 0074 00 4 14363 TSX IRP10,4 *SUPPRESS FOLLOWING ETC F0D45700 14250 0534 00 1 03755 LXA CHRCTR,1 LOAD FIRST CHARACTER IN VARIABLE FIELD F0D45710 14251 1 77720 1 14252 TXI *+1,1,-48 IS IT BLANK F0D45720 14252 -3 00000 1 14254 TXL IRP01+1,1,0 YES F0D45730 14253 0774 00 1 00000 IRP01 AXT **,1 NO, LOAD ARGUMENT NUMBER F0D45740 14254 -0634 00 1 16204 SXD IRPNO,1 F0D45750 14255 -3 00000 1 14362 TXL IRP06+1,1,0 IS IRP ON AN ARGUMENT F0D45760 14256 -0500 00 0 16201 CAL MDFCT YES, SAVE MACRO DEFINITION WORD,,CHAR F0D45770 14257 0602 00 0 16205 SLW IRPPW COUNT OF BEGINNING OF IRP F0D45780 14260 0500 00 1 16410 CLA MARGS+1,1 LOAD POINTER TO IRP ARGUMENT F0D45790 14261 0601 00 0 16207 STO IRPAR SAVE IT FOR END OF IRP F0D45800 14262 0400 00 0 06410 ADD Q1 F0D45810 14263 0621 00 0 16206 STA IRPSD SET WORD COUNT OF BEGINNING OF ARGUMENT F0D45820 14264 0774 00 4 00005 AXT 5,4 F0D45830 14265 -0634 00 4 16206 SXD IRPSD,4 SET CHAR COUNT OF BEGINNING OF ARGUMENT F0D45840 14266 -0500 00 0 06520 CAL COMMA PRESET LAST PUNCTUATION TO , F0D45850 14267 0621 00 0 16204 STA IRPNO TO SCAN ARGUMENTS ON GENERATED IRP CARD F0D45860 14270 0621 00 0 14726 STA LCHAR F0D45870 14271 1 77777 1 14314 TXI IRP03,1,-1 F0D45880 REENTRY FROM COMPILER FOR NEXT CARD IN RANGE OF IRP F0D45890 BINARY CARD NO. 9F040200 14272 -0500 00 0 04256 IRP02 CAL BCDBF+1 LOAD OP FIELD F0D45900 14273 -0320 00 0 07503 ANA PKMSK MASK IN CARD COLUMNS 8 - 11 F0D45910 14274 0322 00 0 16612 ERA IRPMK IS OPCODE IRP F0D45920 14275 0100 00 0 14301 TZE *+4 YES F0D45930 14276 -0534 00 4 16204 LXD IRPNO,4 NO, LOAD IRP ARGUMENT COUNT F0D45940 14277 -3 00000 4 14362 TXL IRP06+1,4,0 IS IRP ON AN ARGUMENT F0D45950 14300 0020 00 0 15355 TRA CMP22+1 YES F0D45960 SUBSEQUENT CARD IS IRP MARKING END OF RANGE F0D45970 14301 0074 00 4 14363 TSX IRP10,4 *SUPPRESS FOLLOWING ETC F0D45980 14302 -0534 00 1 16204 LXD IRPNO,1 LOAD ARGUMENT NUMBER F0D45990 14303 -3 00000 1 14361 TXL IRP06,1,0 WAS IRP ON AN ARGUMENT F0D46000 14304 -0500 00 0 16204 CAL IRPNO YES, PRESET PUNCTUATION F0D46010 14305 0621 00 0 14726 STA LCHAR AT BEGINNING OF NEXT STRING F0D46020 14306 -0320 00 0 06444 ANA ADDMK F0D46030 14307 0322 00 0 06522 ERA BLANK IS IT BLANK F0D46040 14310 0100 00 0 14356 TZE IRP05 YES, IRP ARGUMENTS ARE EXHAUSTED F0D46050 14311 1 77777 1 14312 TXI *+1,1,-1 NO, BUMP ARGUMENT COUNT F0D46060 14312 0500 00 1 16407 CLA MARGS,1 LOAD REFERENCE TO THIS ARGUMENT F0D46070 14313 0621 00 0 14474 STA MEPTR OVERLAP ARGUMENTS F0D46080 REENTRY FOR FIRST IRP CARD F0D46090 14314 0600 00 1 16407 IRP03 STZ MARGS,1 DELETE REFERENCE TO THIS ARGUMENT F0D46100 14315 -0634 00 1 14527 SXD ARGJL,1 SET ARGUMENT INDEX F0D46110 14316 0774 00 1 77777 AXT -1,1 F0D46120 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 96 PASS ONE MACRO PROCESSOR 14317 -0634 00 1 15023 SXD SSN17,1 SET SWITCH TO AVOID BUMPING ARG INDEX F0D46130 BINARY CARD NO. 9F040201 14320 -0500 00 0 16575 CAL PRNLS SET PAREN LEVEL TO 0, ENABLE SCAN FOR , F0D46140 14321 0534 00 4 14726 LXA LCHAR,4 LOAD LAST PUNCTUATION F0D46150 14322 -3 00073 4 14325 TXL *+3,4,59 WAS IT ( F0D46160 14323 3 00074 4 14325 TXH *+2,4,60 NO F0D46170 14324 -0500 00 0 16574 CAL PRNLT YES, SET PAREN LEVEL TO 1, DISABLE , SCAN F0D46180 14325 0602 00 0 14633 SLW PLEVL F0D46190 14326 -0500 00 0 16206 CAL IRPSD SET BEGINNING OF STRING F0D46200 14327 0622 00 0 14746 STD SSNBC CHARACTER COUNT F0D46210 14330 0621 00 0 14742 STA SSNBW WORD COUNT F0D46220 14331 0074 00 4 16115 TSX SCANS,4 *INITIALIZE CHARACTER SCAN ROUTINE F0D46230 14332 -3 16640 0 14736 TXL SSN10,,MCTBL+4 SINGLE CHARACTER RETURN,,PUNCTUATION TABLEF0D46240 14333 -3 00004 0 14630 TXL SSN01,,4 PUNCTUATION RETURN,,LENGTH OF TABLE F0D46250 14334 -3 00000 1 00000 TXL ,1,0 NULLIFY OVERFLOW TEST F0D46260 14335 0074 00 4 14624 TSX SSINS,4 *ASSEMBLE NEXT STRING F0D46270 14336 -0534 00 4 16204 LXD IRPNO,4 LOAD ARGUMENT COUNT F0D46280 14337 -0500 00 4 16410 CAL MARGS+1,4 LOAD REFERENCE TO THIS ARGUMENT F0D46290 14340 -0100 00 0 14345 TNZ *+5 IS THIS FINAL NULL STRING F0D46300 14341 -0500 00 0 16204 CAL IRPNO F0D46310 14342 -0320 00 0 06444 ANA ADDMK F0D46320 14343 0322 00 0 06520 ERA COMMA WAS PUNCTUATION COMMA F0D46330 14344 -0100 00 0 14357 TNZ IRP05+1 F0D46340 14345 -0534 00 2 14746 LXD SSNBC,2 NO, HOLD COUNTS OF START OF FOLLOWING STRNF0D46350 BINARY CARD NO. 9F040202 14346 0534 00 1 14742 LXA SSNBW,1 F0D46360 14347 -0634 00 2 16206 SXD IRPSD,2 F0D46370 14350 0634 00 1 16206 SXA IRPSD,1 F0D46380 14351 -0500 00 0 15015 CAL CCHAR HOLD CURRENT PUNCTUATION CHARACTER F0D46390 14352 0621 00 0 16204 STA IRPNO FOR BEGINNING OF FOLLOWING STRING F0D46400 14353 -0500 00 0 16205 CAL IRPPW RESTORE MACRO DEFINITION WORD,,CHAR COUNT F0D46410 14354 0602 00 0 16201 SLW MDFCT FOR NEXT ITERATION OVER RANGE OF IRP F0D46420 14355 0020 00 0 14362 TRA IRP06+1 F0D46430 ARGUMENT LIST IS EXHAUSTED F0D46440 14356 -0534 00 4 16204 IRP05 LXD IRPNO,4 LOAD ARGUMENT COUNT F0D46450 14357 -0500 00 0 16207 CAL IRPAR RESTORE REFERENCE TO THIS ARGUMENT F0D46460 14360 0602 00 4 16410 SLW MARGS+1,4 F0D46470 14361 -0634 00 0 15354 IRP06 ZSD CMP22 RESET IRP INTERCEPT F0D46480 14362 0020 00 0 10616 TRA SOURC F0D46490 F0D46500 PREPARE FOR FOLLOWING ETC F0D46510 14363 0634 00 4 14374 IRP10 SXA IRP1X,4 SAVE CALLING LINKAGE F0D46520 14364 0074 00 4 07431 TSX PEEKS,4 *WILL FOLLOWING CARD BE AN ETC F0D46530 14365 0020 00 0 14367 TRA *+2 YES F0D46540 14366 0020 00 0 14374 TRA IRP1X NO F0D46550 14367 -0534 00 1 16201 LXD MDFCT,1 BUMP MACRO DEFINITION CHARACTER COUNT F0D46560 14370 1 00001 1 14371 TXI *+1,1,1 F0D46570 14371 -0634 00 1 16201 SXD MDFCT,1 F0D46580 14372 0600 00 0 04046 STZ ETCMD SUPPRESS ETC CARD F0D46590 14373 -0634 00 0 15152 ZSD CMP01 AS SCAN WAS IN MACRO EXPANSION TABLE F0D46600 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 97 PASS ONE MACRO PROCESSOR BINARY CARD NO. 9F040203 14374 0774 00 4 00000 IRP1X AXT **,4 RELOAD CALLING LINKAGE F0D46610 14375 0020 00 4 00001 TRA 1,4 F0D46620 F0D46630 14376 0760 00 0 00141 MACOP SLN 1 SET FLAG FOR MAC CALL F0D46640 ENTRY FOR MACRO NAME IN OPFIELD F0D46650 14377 0774 00 4 77777 AXT -1,4 SET MACRO DEFINITION CARD SWITCH F0D46660 14400 -0634 00 4 10307 SXD MCRDF,4 F0D46670 14401 1 73523 2 14402 TXI *+1,2,-BCDBF COMPUTE VARIABLE FIELD WORD COUNT F0D46680 14402 0535 00 1 04012 LAC VRFLD,1 COMPUTE COUNT OF FIRST CHARACTER F0D46690 14403 1 00006 1 14404 TXI *+1,1,6 IN VARIABLE FIELD F0D46700 14404 0634 00 2 14742 SXA SSNBW,2 SAVE COUNTS OF BEGINNING OF STRING F0D46710 14405 -0634 00 1 14746 SXD SSNBC,1 F0D46720 14406 0074 00 4 15532 TSX PMCS1,4 *PUSH MACRO STATUS DOWN F0D46730 14407 -0500 00 0 04013 CAL INDFG SET INDIRECTLY ADDRESSED MACRO FLAG F0D46740 14410 0621 00 0 16165 STA MCIND F0D46750 14411 0074 00 4 16115 TSX SCANS,4 *INITIALIZE CHARACTER SCAN ROUTINE F0D46760 14412 -3 16640 0 14736 TXL SSN10,,MCTBL+4 SINGLE CHARACTER RETURN,,PUNCTUATION TABLEF0D46770 14413 -3 00004 0 14630 TXL SSN01,,4 PUNCTUATION RETURN,,LENGTH OF TABLE F0D46780 14414 -3 73507 1 14657 TXL SSN03,1,-BCDBF-12 OVERFLOW TEST F0D46790 14415 -0500 00 0 16575 CAL PRNLS ENABLE SCAN FOR , F0D46800 14416 0602 00 0 14633 SLW PLEVL SET PAREN LEVEL TO 0 F0D46810 14417 -0500 00 0 06520 CAL COMMA PRESET LAST PUNCTUATION TO , F0D46820 14420 0621 00 0 14726 STA LCHAR F0D46830 14421 0600 00 0 16407 STZ MARGS RESET REFERENCE TO THIS ARGUMENT F0D46840 BINARY CARD NO. 9F040204 14422 -0634 00 0 14527 ZSD ARGJL RESET ARGUMENT INDEX F0D46850 14423 -0760 00 0 00141 SLT 1 IS THIS MAC CALL F0D46860 14424 0020 00 0 13443 TRA MACIF NO, TEST FOR IFF (23)F0D46870 14425 0074 00 4 14622 TSX SSING,4 *YES, LOCATE MACRO NAME IN STRING F0D46880 14426 -0534 00 4 16407 LXD MARGS,4 LOAD NUMBER OF CHARACTERS IN NAME F0D46890 14427 -3 00000 4 13420 TXL MCER3,4,0 **IS NAME NULL F0D46900 14430 -0534 00 2 16407 LXD MARGS,2 NO, LOAD LENGTH OF MACRO NAME F0D46910 14431 0534 00 1 16407 LXA MARGS,1 LOAD POINTER TO NAME IN MACEXP F0D46920 14432 -0500 00 1 00000 CAL 0,1 LOAD MACRO NAME F0D46930 14433 -0320 00 2 16611 ANA MARMK,2 MASK OUT FOLLOWING GARBAGE F0D46940 14434 0074 00 4 04707 TSX SOPTB,4 *EVALUATE MACRO NAME F0D46950 14435 0020 00 0 13420 TRA MCER3 **NOT FOUND F0D46960 14436 0056 00 100000 RNT 100000 IS THIS MACHINE OPERATION F0D46970 14437 -0056 00 200000 LNT 200000 NO, IS THIS PSEUDOOPERATION F0D46980 14440 0020 00 0 13420 TRA MCER3 **YES F0D46990 14441 0600 00 0 16407 STZ MARGS NO, IT IS MACRO, DELETE MACRO NAME F0D47000 14442 -0634 00 0 14527 ZSD ARGJL RESET ARGUMENT INDEX F0D47010 14443 -0046 00 0 00000 PIA RECALL SYMBOL DEFINITION F0D47020 14444 -0734 00 1 00000 PDX ,1 LOAD POINTER TO MACRO SKELETON F0D47030 14445 1 00001 1 14450 TXI MAC02+2,1,1 BUMP PAST DEFINITION HEAD F0D47040 REENTRY FOR MACRO NAME IN OPFIELD F0D47050 14446 -0534 00 1 04274 MAC02 LXD OPBIN,1 LOAD POINTER FROM OP TABLE F0D47060 14447 1 00001 1 14450 TXI *+1,1,1 BUMP PAST DEFINITION HEAD F0D47070 BINARY CARD NO. 9F040205 14450 0634 00 1 16201 SXA MDFCT,1 SET FIRST WORD OF MACRO SKELETON F0D47080 14451 -0634 00 0 16201 ZSD MDFCT SET MACRO DEFINITION CHARACTER COUNT F0D47090 TO FIRST CHARACTER IN WORD F0D47100 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 98 PASS ONE MACRO PROCESSOR 14452 -0500 00 0 16572 CAL MOPP2 SET PASS TWO TRANSFER ADDRESS F0D47110 14453 0601 00 0 04274 STO OPBIN IN CASE OF EMPTY MACRO $F0D47120 14454 -0500 00 1 00000 CAL 0,1 LOAD FIRST WORD OF MACRO DEFINITION F0D47130 14455 -0100 00 0 14460 TNZ *+3 IS MACRO EMPTY F0D47140 14456 0074 00 4 15552 TSX PMCS3,4 *YES, PUSH MACRO STATUS UP F0D47150 14457 0020 00 0 16722 TRA MAC2A $F0D47160 14460 0500 00 1 00001 CLA 1,1 NO, LOAD MACRO ARGUMENT COUNT F0D47170 14461 0622 00 0 16202 STD ARGIL SET ARGUMENT COUNT F0D47180 14462 0774 00 1 12336 AXT 5$BES01+3,1 SET PASS TWO TRANSFER ADDRESS TO OMIT $F0D47190 14463 0120 00 0 14471 TPL MAC03 IS THERE A LOCATION ARGUMENT F0D47200 14464 0774 00 1 13565 AXT 5$UNLOP+1,1 YES, RESET PASS 2 TRANSFER ADDRESS TO OMITF0D47210 LISTING OCTAL LOCATION F0D47220 14465 -0500 00 0 04255 CAL BCDBF LOAD LOCATION FIELD F0D47230 14466 0074 00 4 04547 TSX LOCFL,4 *ASSEMBLE LOCATION SYMBOL F0D47240 14467 0602 00 0 16160 SLW ARGWD HOLD TO END OF ETC CARDS F0D47250 14470 0020 00 0 14472 TRA MAC03+1 PREVENT MULTIPLY DEFINED LOCATION FIELDS F0D47260 ASSEMBLE ARGUMENTS F0D47270 14471 0074 00 4 07334 MAC03 TSX ESYML,4 *DEFINE LOCATION FIELD F0D47280 14472 -0634 00 1 04274 SXD OPBIN,1 SET PASS TWO TRANSFER ADDRESS F0D47290 14473 0074 00 4 14624 TSX SSINS,4 *ASSEMBLE ARGUMENT STRINGS F0D47300 14474 0774 00 1 00000 MEPTR AXT **,1 LOAD POINTER TO NEXT ENTRY F0D47310 IN MACRO EXPANSION TABLE F0D47320 14475 0020 00 0 14526 TRA MAC06 F0D47330 REENTRY TO CREATE NEXT SYMBOL F0D47340 BINARY CARD NO. 9F040206 14476 -0520 00 0 16162 MAC04 NZT CRSNO ARE CREATED SYMBOLS PERMITTED F0D47350 14477 0020 00 0 14521 TRA MAC05 NO F0D47360 14500 0774 00 4 00000 CRSCT AXT **,4 YES, LOAD CREATED SYMBOL COUNT F0D47370 14501 1 00001 4 14502 TXI *+1,4,1 BUMP TO NEXT SYMBOL F0D47380 14502 0634 00 4 14500 SXA CRSCT,4 F0D47390 14503 -3 23417 4 14506 TXL *+3,4,9999 ARE THERE TOO MANY CREATED SYMBOLS F0D47400 14504 0441 00 0 16621 LDI CRSNM YES, LOAD CREATED SYMBOL NAME F0D47410 14505 0020 00 0 06274 TRA SRCERR **TERMINATE ASSEMBLY F0D47420 14506 0754 00 4 00000 PXA ,4 NO, LOAD SYMBOL F0D47430 14507 0074 00 4 06104 TSX BCDCV,4 *CONVERT TO BCD F0D47440 14510 -0340 00 0 06452 LAS ADTMK IS CREATED SYMBOL GREATER THAN 3 DIGITS F0D47450 14511 0020 00 0 14514 TRA *+3 YES F0D47460 14512 0761 00 0 00000 NOP NO F0D47470 14513 -0501 00 0 16626 ORA CRPT1 APPEND . AS SECOND CHARACTER F0D47480 14514 0767 00 0 00006 ALS 6 LEFT ADJUST F0D47490 14515 -0501 00 0 16627 ORA CRPT2 APPEND . AS FIRST CHARACTER F0D47500 14516 0602 00 1 00000 SLW 0,1 INSERT CREATED SYMBOL F0D47510 14517 0634 00 1 16162 SXA CRSNO,1 SAVE POINTER TO THIS SYMBOL F0D47520 14520 1 77777 1 14521 TXI *+1,1,-1 BUMP POINTER TO NEXT ENTRY F0D47530 REENTRY FOR CREATED SYMBOLS SUPPRESSED F0D47540 14521 -0500 00 0 16162 MAC05 CAL CRSNO LOAD CREATED SYMBOL POINTER,,COUNT F0D47550 14522 -0534 00 2 14527 LXD ARGJL,2 LOAD ARGUMENT TABLE INDEX F0D47560 14523 1 00001 2 14524 TXI *+1,2,1 BUMP ARGUMENT TABLE INDEX F0D47570 BINARY CARD NO. 9F040207 14524 -0634 00 2 14527 SXD ARGJL,2 F0D47580 14525 0602 00 2 16410 SLW MARGS+1,2 INSERT REFERENCE F0D47590 REENTRY AFTER ASSEMBLING STRING F0D47600 14526 -0534 00 4 16202 MAC06 LXD ARGIL,4 LOAD LENGTH OF ARGUMENT LIST F0D47610 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 99 PASS ONE MACRO PROCESSOR 14527 3 00000 4 14476 ARGJL TXH MAC04,4,** ARE ANY TERMINAL ARGUMENTS MISSING F0D47620 (DECREMENT IS CURRENT ARGUMENT NUMBER) F0D47630 14530 -0500 00 0 16160 CAL ARGWD NO, LOAD SUBSTITUTABLE LOCATION FIELD F0D47640 14531 0100 00 0 14546 TZE MAC07 IS THERE ANY F0D47650 14532 0560 00 0 04176 LDQ BLANKS YES, LOAD FOLLOWING BLANKS F0D47660 14533 0774 00 2 00001 AXT 1,2 PREPARE TO COUNT CHARACTERS F0D47670 14534 -0765 00 0 00006 LGR 6 LEFT ADJUST SYMBOL F0D47680 14535 0100 00 0 14537 TZE *+2 F0D47690 14536 1 00001 2 14534 TXI *-2,2,1 F0D47700 14537 -0600 00 1 00000 STQ 0,1 INSERT LOCATION ARGUMENT IN MACEXP TABLE F0D47710 14540 0754 00 1 00000 PXA ,1 F0D47720 14541 1 77777 1 14542 TXI *+1,1,-1 BUMP POINTER TO NEXT ENTRY F0D47730 14542 0602 00 4 16410 SLW MARGS+1,4 OVERWRITE PREVIOUS POINTER WORD F0D47740 14543 -0754 00 2 00000 PXD ,2 RECALL CHARACTER COUNT F0D47750 14544 0622 00 4 16410 STD MARGS+1,4 INSERT IN REFERENCE F0D47760 14545 0600 00 0 16160 STZ ARGWD DELETE SUBSTITUTABLE LOCATION FIELD F0D47770 REENTRY FOR CREATED ARGUMENTS SUPPRESSED F0D47780 14546 -3 00000 1 15466 MAC07 TXL OVRLP,1,** IS MACRO EXPANSION TABLE FULL F0D47790 14547 0634 00 1 14474 SXA MEPTR,1 NO, SAVE POINTER TO NEXT ENTRY F0D47800 14550 0074 00 4 15472 TSX PMCL1,4 *BUMP MACRO LEVEL F0D47810 14551 0074 00 4 10301 TSX OTPUT,4 *WRITE MACRO CALL CARD F0D47820 BINARY CARD NO. 9F040208 14552 -0634 00 0 10307 ZSD MCRDF RESET MACRO CALL CARD SWITCH F0D47830 14553 0020 00 0 10616 TRA SOURC F0D47840 F0D47850 OUTPUT REMOTE SEQUENCES F0D47860 14554 0634 00 4 14620 RMTSR SXA RMTSX,4 SAVE CALLING LINKAGE F0D47870 14555 0074 00 4 15565 TSX SETTP,4 *SET UP REMOTE ROUTING F0D47880 14556 0 14563 0 10616 PZE SOURC,,RMTS1 F0D47890 14557 0074 00 4 06312 TSX MACERR,4 **ALREADY SET UP F0D47900 14560 -0500 00 0 03776 CAL BHEAD SAVE CURRENT HEADING CHARACTER F0D47910 14561 0621 00 0 14610 STA RMTS2 F0D47920 14562 -0634 00 0 10307 ZSD MCRDF RESET MACRO CALL CARD SWITCH F0D47930 REENTRY AFTER OUTPUTTING REMOTE SEQUENCE F0D47940 14563 -0534 00 1 16176 RMTS1 LXD RMTEN+1,1 LOAD POINTER TO NEXT SEQUENCE F0D47950 14564 -3 00000 1 14610 TXL RMTS2,1,0 IS TABLE EXHAUSTED F0D47960 14565 0074 00 4 15532 TSX PMCS1,4 *NO, PUSH MACRO STATUS DOWN F0D47970 14566 -0634 00 0 16202 ZSD ARGIL RESET NUMBER OF ARGUMENTS F0D47980 14567 -0634 00 0 16201 ZSD MDFCT SET MACRO DEFINITION CHARACTER COUNT F0D47990 TO FIRST CHARACTER IN WORD F0D48000 14570 -0534 00 1 16176 LXD RMTEN+1,1 LOAD POINTER TO NEXT SEQUENCE F0D48010 14571 -0500 00 1 00000 CAL 0,1 LOAD HEADING F0D48020 14572 0621 00 0 03776 STA BHEAD SET REMOTE HEADING CHARACTER F0D48030 14573 0621 00 0 04273 STA LITRL SAVE FOR PASS TWO F0D48040 14574 -0320 00 0 06470 ANA D32767 MOVE POINTER TO NEXT SEQUENCE F0D48050 14575 0622 00 0 16176 STD RMTEN+1 TO CURRENT POINTER F0D48060 14576 -0100 00 0 14601 TNZ *+3 IS THERE ANOTHER SEQUENCE F0D48070 14577 -0774 00 4 16176 AXC RMTEN+1,4 NO, RESTORE POINTER FOR FIRST SEQUENCE F0D48080 BINARY CARD NO. 9F040209 14600 -0634 00 4 16175 SXD RMTEN,4 F0D48090 14601 1 00001 1 14602 TXI *+1,1,1 BUMP COUNT PAST HEADING F0D48100 14602 0634 00 1 16201 SXA MDFCT,1 F0D48110 14603 0074 00 4 15472 TSX PMCL1,4 *BUMP MACRO LEVEL F0D48120 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 100 PASS ONE MACRO PROCESSOR 14604 -0500 00 0 16573 CAL RMTP2 SET PASS TWO TRANSFER ADDRESS F0D48130 14605 0602 00 0 04274 SLW OPBIN F0D48140 14606 0074 00 4 10330 TSX OTPT0,4 *WRITE INTERMEDIATE TAPE ONLY F0D48150 14607 0020 00 0 10616 TRA SOURC F0D48160 REMOTE SEQUENCES EXHAUSTED F0D48170 14610 0774 00 4 00000 RMTS2 AXT **,4 RESTORE CURRENT HEADING CHARACTER F0D48180 14611 0634 00 4 03776 SXA BHEAD,4 F0D48190 14612 0634 00 4 04273 SXA LITRL,4 SAVE FOR PASS TWO F0D48200 14613 -0500 00 0 16573 CAL RMTP2 SET PASS TWO TRANSFER ADDRESS F0D48210 14614 0602 00 0 04274 SLW OPBIN F0D48220 14615 0074 00 4 10330 TSX OTPT0,4 *WRITE INTERMEDIATE TAPE ONLY F0D48230 14616 0074 00 4 15612 TSX RESTP,4 *RESTORE ASSEMBLER ROUTING F0D48240 14617 0 14563 0 10616 PZE SOURC,,RMTS1 F0D48250 14620 0774 00 4 00000 RMTSX AXT **,4 RELOAD CALLING LINKAGE F0D48260 14621 0020 00 4 00001 TRA 1,4 F0D48270 F0D48280 ASSEMBLE MACRO NAME F0D48290 14622 0774 00 1 77777 SSING AXT -1,1 SET INTERCEPT TO RETURN WITH MACRO NAME F0D48300 14623 -0634 00 1 15030 SXD SSN18,1 F0D48310 REENTRY TO ASSEMBLE STRING F0D48320 14624 0634 00 4 15066 SSINS SXA SSINX,4 SAVE CALLING LINKAGE F0D48330 14625 -0534 00 2 14746 LXD SSNBC,2 LOAD BEGINNING OF STRING CHARACTER COUNT F0D48340 BINARY CARD NO. 9F040210 14626 0534 00 1 14742 LXA SSNBW,1 LOAD BEGINNING OF STRING WORD COUNT F0D48350 14627 1 00001 2 16132 TXI SCANT,2,1 F0D48360 F0D48370 CHARACTER IS PUNCTUATION F0D48380 14630 0621 00 0 15015 SSN01 STA CCHAR SAVE CURRENT CHARACTER F0D48390 14631 0020 00 4 14636 TRA *+5,4 F0D48400 14632 0020 00 0 14720 TRA SSN08 CHARACTER IS ( F0D48410 14633 1 00000 0 14714 PLEVL TXI SSN07,,** CHARACTER IS , F0D48420 (RESET TO SSN10 IF WITHIN PARENS) F0D48430 14634 0020 00 0 14645 TRA SSN02 PUNCTUATION IS BLANK F0D48440 PUNCTUATION IS ) F0D48450 14635 -0534 00 4 14633 LXD PLEVL,4 LOAD PAREN COUNT F0D48460 14636 -3 00000 4 13416 TXL MCERP,4,0 **IS ) EXCESSIVE (23)F0D48470 14637 1 77777 4 14640 TXI *+1,4,-1 NO, BUMP PAREN COUNT F0D48480 14640 -0634 00 4 14633 SXD PLEVL,4 F0D48490 14641 3 00000 4 14736 TXH SSN10,4,0 IS THIS OUTERMOST ) F0D48500 14642 0774 00 4 14714 AXT SSN07,4 YES, REENABLE SCAN FOR , F0D48510 14643 0634 00 4 14633 SXA PLEVL,4 F0D48520 14644 0020 00 0 14740 TRA SSN11 F0D48530 PUNCTUATION IS BLANK F0D48540 14645 -0534 00 4 14633 SSN02 LXD PLEVL,4 LOAD PAREN LEVEL F0D48550 14646 -3 00000 4 14653 TXL *+5,4,0 IS BLANK BETWEEN PARENTHESES F0D48560 14647 0534 00 4 14726 LXA LCHAR,4 YES, LOAD PRECEDING CHARACTER F0D48570 14650 -3 00052 4 14736 TXL SSN10,4,42 IS IT $ F0D48580 14651 3 00053 4 14736 TXH SSN10,4,43 NO F0D48590 14652 0020 00 0 14662 TRA SSN03+3 YES F0D48600 BLANK IS NOT WITHIN PARENTHESES F0D48610 14653 0534 00 4 14726 LXA LCHAR,4 LOAD PRECEDING CHARACTER F0D48620 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 101 PASS ONE MACRO PROCESSOR BINARY CARD NO. 9F040211 14654 -3 00052 4 14672 TXL SSN04+4,4,42 IS CHARACTER $ F0D48630 14655 3 00053 4 14672 TXH SSN04+4,4,43 NO F0D48640 14656 0020 00 0 14662 TRA SSN03+3 YES F0D48650 REENTRY AFTER INPUT CARD COLUMN 72 F0D48660 14657 0534 00 4 14726 SSN03 LXA LCHAR,4 LOAD PRECEDING CHARACTER F0D48670 14660 -3 00052 4 14666 TXL SSN04,4,42 IS IT $ F0D48680 14661 3 00053 4 14666 TXH SSN04,4,43 NO F0D48690 REENTRY FOR $BLANK F0D48700 14662 3 00000 2 14665 TXH *+3,2,0 DELETE $ F0D48710 14663 1 00001 1 14664 TXI *+1,1,1 F0D48720 14664 1 00005 2 14666 TXI *+2,2,5 F0D48730 14665 1 77777 2 14666 TXI *+1,2,-1 F0D48740 REENTRY AFTER CARD COLUMN 72 WITH NO PRECEDING $ F0D48750 14666 0074 00 4 07431 SSN04 TSX PEEKS,4 *DOES ETC CARD FOLLOW F0D48760 14667 0020 00 0 14676 TRA SSN05 YES F0D48770 14670 -0534 00 4 14633 LXD PLEVL,4 NO, LOAD PAREN LEVEL F0D48780 14671 3 00000 4 13416 TXH MCERP,4,0 **ARE PARENTHESES UNBALANCED (23)F0D48790 REENTRY FOR BLANK NOT WITHIN PARENTHESES F0D48800 14672 0774 00 4 77777 AXT -1,4 NO F0D48810 14673 -0634 00 4 15030 SXD SSN18,4 SET SWITCH TO RETURN WITH STRING F0D48820 14674 -0634 00 4 14753 SXD SSN12,4 SET SWITCH TO SUPPRESS NULL STRING STUFF F0D48830 14675 0020 00 0 14740 TRA SSN11 F0D48840 REENTRY FOR ETC CARD TO FOLLOW F0D48850 14676 -0754 00 2 00000 SSN05 PXD ,2 LOAD INPUT CARD CHAR COUNT (CLEAR AC) F0D48860 14677 -3 00000 2 14705 TXL SSN06,2,0 IS INPUT WORD EXHAUSTED F0D48870 14700 0560 00 1 00000 LDQ 0,1 NO, LOAD INPUT WORD F0D48880 14701 -0734 00 4 00000 PDX ,4 LOAD CHARACTER COUNT F0D48890 BINARY CARD NO. 9F040212 14702 -2 00001 4 14707 TNX SSN06+2,4,1 LEFT ADJUST PRECEDING CHARACTER F0D48900 14703 -0773 00 0 00006 RQL 6 F0D48910 14704 0020 00 0 14702 TRA *-2 F0D48920 14705 0560 00 1 77777 SSN06 LDQ -1,1 LOAD NEXT INPUT WORD F0D48930 14706 -0773 00 0 00036 RQL 30 LEFT ADJUST PRECEDING CHARACTER F0D48940 14707 -0763 00 0 00006 LGL 6 LOAD PRECEDING CHARACTER F0D48950 14710 0621 00 0 15015 STA CCHAR F0D48960 14711 0774 00 4 77777 AXT -1,4 F0D48970 14712 -0634 00 4 15023 SXD SSN17,4 SET SWITCH TO AVOID BUMPING ARGUMENT COUNTF0D48980 14713 0020 00 0 14740 TRA SSN11 F0D48990 PUNCTUATION IS , F0D49000 14714 0534 00 4 14726 SSN07 LXA LCHAR,4 LOAD PRECEDING CHARACTER F0D49010 14715 3 00034 4 14740 TXH SSN11,4,28 IS PRECEDING CHARACTER ) F0D49020 14716 -3 00033 4 14740 TXL SSN11,4,27 NO F0D49030 14717 0020 00 0 14733 TRA SSN09 YES, , NOT CONSIDERED PUNCTUATION F0D49040 PUNCTUATION IS ( F0D49050 14720 -0534 00 4 14633 SSN08 LXD PLEVL,4 BUMP PAREN COUNT F0D49060 14721 1 00001 4 14722 TXI *+1,4,1 F0D49070 14722 -0634 00 4 14633 SXD PLEVL,4 F0D49080 14723 3 00001 4 14736 TXH SSN10,4,1 IS THIS FIRST ( F0D49090 14724 0774 00 4 14736 AXT SSN10,4 YES, DISABLE SCAN FOR , F0D49100 14725 0634 00 4 14633 SXA PLEVL,4 F0D49110 14726 0774 00 4 00000 LCHAR AXT **,4 LOAD PRECEDING CHARACTER F0D49120 14727 3 00073 4 14740 TXH SSN11,4,59 IS IT , F0D49130 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 102 PASS ONE MACRO PROCESSOR BINARY CARD NO. 9F040213 14730 3 00072 4 14733 TXH SSN09,4,58 YES F0D49140 14731 3 00034 4 14740 TXH SSN11,4,28 NO, IS IT ( F0D49150 14732 -3 00033 4 14740 TXL SSN11,4,27 NO F0D49160 REENTRY FOR ), OR ,( F0D49170 14733 -0634 00 2 14746 SSN09 SXD SSNBC,2 RESET BEGINNING OF STRING F0D49180 14734 0634 00 1 14742 SXA SSNBW,1 TO COUNT OF PUNCTUATION CHARACTER F0D49190 14735 -0500 00 0 15015 CAL CCHAR RELOAD CURRENT CHARACTER F0D49200 CHARACTER IS NOT PUNCTUATION, OR PUNCTUATION NOT BREAK F0D49210 14736 0621 00 0 14726 SSN10 STA LCHAR SAVE LAST CHARACTER F0D49220 14737 1 00001 2 16155 TXI SCANU+1,2,1 F0D49230 F0D49240 PUNCTUATION IS BREAK CHARACTER F0D49250 14740 0634 00 2 15017 SSN11 SXA SSNEC,2 SAVE POSITION OF PUNCTUATION F0D49260 14741 -0634 00 1 14743 SXD SSNEW,1 AT END OF STRING F0D49270 14742 0774 00 1 00000 SSNBW AXT **,1 LOAD COUNT OF WORD INCLUDING PUNCTUATION F0D49280 AT BEGINNING OF STRING F0D49290 14743 -3 00000 1 14746 SSNEW TXL *+3,1,** IS THIS WORD AT END OF STRING F0D49300 14744 1 00006 2 14745 TXI *+1,2,6 NO, BUMP CHARACTER COUNT BY ONE WORD F0D49310 14745 1 77777 1 14743 TXI *-2,1,-1 BUMP WORD COUNT BY ONE WORD F0D49320 14746 2 00000 2 14750 SSNBC TIX *+2,2,** REDUCE STRING LENGTH BY CHARACTER COUNT F0D49330 OF PUNCTUATION AT BEGINNING OF STRING F0D49340 14747 0020 00 0 14751 TRA *+2 IT WAS -1, OMIT NEXT STEP (24)F0D49350 14750 1 77777 2 14751 TXI *+1,2,-1 DELETE PUNCTUATION CHARACTER FROM COUNT F0D49360 14751 -0634 00 2 16161 SXD COUNT,2 SAVE LENGTH OF STRING (23)F0D49370 14752 -3 00000 1 14762 SSN13 TXL SSN14,1,** IS THIS FIRST ON ETC CARD (23)F0D49380 14753 3 00000 1 14755 SSN12 TXH *+2,1,** NO, IS THIS FINAL STRING (23)F0D49390 14754 -3 00000 2 15063 TXL SSN22,2,0 YES, IS IT NULL (23)F0D49400 14755 0534 00 1 14474 LXA MEPTR,1 NO, LOAD POINTER TO MACRO EXPANSION TABLE F0D49410 BINARY CARD NO. 9F040214 14756 0774 00 2 77777 AXT -1,2 SET DIRECTION OF STUFF FORWARD F0D49420 14757 -0534 00 4 14546 LXD MAC07,4 LOAD LOWER END OF MACRO DEFINITION TABLE F0D49430 14760 -0500 00 0 14760 CAL * LOAD CALLING LINKAGE F0D49440 14761 0020 00 0 16000 TRA STUFY *INITIALIZE ROUTINE TO STUFF MACEXP F0D49450 14762 -0634 00 0 14752 SSN14 ZSD SSN13 RESET ETC SWITCH F0D49460 14763 -0534 00 2 14746 LXD SSNBC,2 RELOAD COUNTS OF BEGINNING OF STRING F0D49470 14764 0534 00 1 14742 LXA SSNBW,1 F0D49480 14765 1 00001 2 14766 TXI *+1,2,1 NUMBER OF LEADING CHARACTERS (24)F0D49490 14766 -3 00005 2 14771 TXL *+3,2,5 IN FIRST WORD, IS IT SIX (24)F0D49500 14767 1 77777 1 14770 TXI *+1,1,-1 YES, BUMP TO NEXT WORD (24)F0D49510 14770 1 77772 2 14771 TXI *+1,2,-6 AND ADJUST CHARACTER COUNT (24)F0D49520 14771 -0534 00 4 16161 LXD COUNT,4 LOAD LENGTH OF STRING F0D49530 14772 -0500 00 0 14772 CAL * LOAD CALLING LINKAGE F0D49540 14773 0020 00 0 16015 TRA STUFF *ADD STRING TO EXPANSION F0D49550 14774 0020 00 0 15466 TRA OVRLP **EXPANSION TABLE FULL F0D49560 14775 0520 00 0 04046 ZET ETCMD WILL AN ETC CARD FOLLOW F0D49570 14776 0020 00 0 15003 TRA SSN16 YES F0D49580 14777 0774 00 7 00001 AXT 1,7 NO, PREPARE TO STUFF ONE CHARACTER F0D49590 15000 -0500 00 0 15000 CAL * LOAD CALLING LINKAGE F0D49600 15001 1 73601 1 16015 TXI STUFF,1,-BLANKS-1 *STUFF TERMINATING BLANK F0D49610 15002 0020 00 0 15466 TRA OVRLP **EXPANSION TABLE FULL F0D49620 15003 0560 00 0 14474 SSN16 LDQ MEPTR LOAD POINTER TO THIS ARGUMENT F0D49630 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 103 PASS ONE MACRO PROCESSOR BINARY CARD NO. 9F040215 15004 0634 00 2 14474 SXA MEPTR,2 SET POINTER TO NEXT ARGUMENT F0D49640 15005 -0534 00 4 14527 LXD ARGJL,4 LOAD ARGUMENT LIST COUNT F0D49650 15006 0500 00 4 16407 CLA MARGS,4 LOAD REFERENCE TO THIS ARGUMENT F0D49660 15007 0734 00 2 00000 PAX ,2 LOAD POINTER TO THIS ARGUMENT F0D49670 15010 0400 00 0 16161 ADD COUNT BUMP BY LENGTH OF STRING F0D49680 15011 0622 00 4 16407 STD MARGS,4 SET REFERENCE TO NEXT ARGUMENT F0D49690 15012 3 00000 2 15015 TXH *+3,2,0 IS THIS REMAINDER OF ARGUMENT F0D49700 ON FOLLOWING ETC CARD F0D49710 15013 -0130 00 0 00000 XCL NO, RECALL POINTER TO THIS ARGUMENT F0D49720 15014 0621 00 4 16407 STA MARGS,4 SET POINTER TO THIS ARGUMENT F0D49730 15015 0774 00 1 00000 CCHAR AXT **,1 SET BREAK PUNCTUATION F0D49740 15016 0634 00 1 14726 SXA LCHAR,1 AS NEW PRECEDING CHARACTER F0D49750 15017 0774 00 2 00000 SSNEC AXT **,2 SET BEGINNING OF NEXT STRING F0D49760 15020 -0534 00 1 14743 LXD SSNEW,1 TO PUNCTUATION AT END OF LAST STRING F0D49770 15021 -0634 00 2 14746 SXD SSNBC,2 F0D49780 15022 0634 00 1 14742 SXA SSNBW,1 F0D49790 15023 -3 00000 1 15032 SSN17 TXL SSN18+2,1,** IS THIS PARTIAL ARGUMENT OR IRP F0D49800 15024 1 00001 4 15025 TXI *+1,4,1 NO, BUMP ARGUMENT COUNT F0D49810 15025 3 00077 4 15030 TXH SSN18,4,63 DID ARGUMENT TABLE OVERFLOW F0D49820 15026 -0634 00 4 14527 SXD ARGJL,4 NO, SET ARGUMENT COUNT F0D49830 15027 0600 00 4 16407 STZ MARGS,4 CLEAR REFERENCE F0D49840 REENTRY FOR TRUNCATED ARGUMENT LIST F0D49850 15030 -3 00000 1 15063 SSN18 TXL SSN22,1,** IS IMMEDIATE RETURN REQUESTED F0D49860 15031 1 00001 2 16132 TXI SCANT,2,1 NO, ASSEMBLE NEXT STRING F0D49870 F0D49880 END OF CARD F0D49890 BINARY CARD NO. 9F040216 15032 -0634 00 0 15030 ZSD SSN18 RESET IMMEDIATE RETURN SWITCH F0D49900 15033 -0634 00 0 15023 ZSD SSN17 RESET END OF CARD SWITCH F0D49910 15034 -0520 00 0 04046 NZT ETCMD WILL AN ETC CARD FOLLOW F0D49920 15035 0020 00 0 15065 TRA SSN22+2 NO F0D49930 15036 0534 00 1 15511 LXA CLEVL,1 YES, LOAD MACRO LEVEL F0D49940 15037 -3 00000 1 15052 TXL SSN21,1,0 IS THIS FIRST LEVEL MACRO F0D49950 15040 0534 00 1 14474 LXA MEPTR,1 NO, PREPARE TO PUSH TO MACRO EXP TABLE F0D49960 15041 0534 00 4 16165 LXA MCIND,4 PUSH DOWN INDIRECT ADDRESS FLAG F0D49970 15042 0634 00 4 16203 SXA SSLOC,4 F0D49980 15043 0500 00 0 06474 CLA P7 PREPARE TO PUSH F0D49990 15044 0074 00 4 15737 TSX PUPOP,4 *PUSH DOWN INCOMPLETE ARGUMENT INDEX F0D50000 15045 -0534 00 1 16203 LXD SSLOC,1 LOAD LOCATION OF PREVIOUS STATUS F0D50010 15046 -0500 00 0 06474 CAL P7 PREPARE TO POP F0D50020 15047 0074 00 4 15737 TSX PUPOP,4 *POP UP PREVIOUS COMPILER STATUS F0D50030 TO GENERATE ETC CARD F0D50040 15050 -0500 00 0 16203 CAL SSLOC RESTORE INDIRECT ADDRESS FLAG F0D50050 15051 0621 00 0 16165 STA MCIND F0D50060 15052 -0534 00 4 16023 SSN21 LXD STUFI,4 SAVE STUFF STATUS F0D50070 15053 0634 00 4 15113 SXA SSN32,4 F0D50080 15054 -0534 00 4 16177 LXD STUM2,4 F0D50090 15055 0634 00 4 15115 SXA SSN32+2,4 F0D50100 15056 0761 00 0 00000 NOP $F0D50110 15057 0074 00 4 15565 TSX SETTP,4 *SET UP MACRO ROUTING F0D50120 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 104 PASS ONE MACRO PROCESSOR BINARY CARD NO. 9F040217 15060 0 15070 0 10635 PZE ROUTE,,SSN30 F0D50130 15061 0074 00 4 06312 TSX MACERR,4 **ALREADY SET UP F0D50140 15062 0020 00 0 10550 TRA READ1 F0D50150 REENTRY TO RETURN WITH STRING, OR AFTER FINAL NULL STRINGF0D50160 15063 -0634 00 0 15030 SSN22 ZSD SSN18 RESET IMMEDIATE RETURN SWITCH F0D50170 15064 -0634 00 0 15023 ZSD SSN17 RESET PARTIAL ARGUMENT SWITCH F0D50180 REENTRY AFTER END OF CARD, NO ETC CARD TO BE GENERATED F0D50190 15065 -0634 00 0 14753 ZSD SSN12 RESET FINAL STRING SWITCH (23)F0D50200 15066 0774 00 4 00000 SSINX AXT **,4 RELOAD CALLING LINKAGE F0D50210 15067 0020 00 4 00001 TRA 1,4 F0D50220 F0D50230 REENTRY FOR ARGUMENT LIST ETC CARD F0D50240 15070 0074 00 4 15612 SSN30 TSX RESTP,4 *RESET ASSEMBLER ROUTING F0D50250 15071 0 15070 0 10635 PZE ROUTE,,SSN30 F0D50260 15072 -0760 00 0 00141 SLT EXPRR WAS OP FIELD IN ERROR F0D50270 15073 0020 00 0 15075 TRA *+2 NO F0D50280 15074 0074 00 4 06312 TSX MACERR,4 **YES, BUT IT MUST BE ETC F0D50290 15075 0600 00 0 04046 STZ ETCMD RESET ETC FLAG F0D50300 15076 -0500 00 0 16572 CAL MOPP2 SET PASS TWO TRANSFER F0D50310 15077 0020 00 0 17152 SSN31 TRA SSN33 *TO PRINT CARD, PROVISIONALLY (23)F0D50320 15100 0534 00 1 15511 LXA CLEVL,1 LOAD MACRO LEVEL F0D50330 15101 -3 00000 1 15113 TXL SSN32,1,0 IS THIS FIRST LEVEL MACRO F0D50340 15102 0534 00 1 14474 LXA MEPTR,1 LOAD POINTER TO MACRO EXPANSION TABLE F0D50350 15103 -0500 00 1 00002 CAL 2,1 GET LOCATION OF OUTER SCAN STATUS F0D50360 15104 -0734 00 2 00000 PDX ,2 F0D50370 15105 -0500 00 0 16201 CAL MDFCT INSERT MACRODEFINITION WORD,,CHAR COUNT F0D50380 BINARY CARD NO. 9F040218 15106 0602 00 2 00000 SLW 0,2 SO THAT IT MAY BE POPPED BACK F0D50390 15107 -0500 00 0 06474 CAL P7 PREPARE TO POP F0D50400 15110 0074 00 4 15737 TSX PUPOP,4 *POP UP INCOMPLETE ARGUMENT INDEX F0D50410 15111 -0500 00 0 16203 CAL SSLOC RESTORE INDIRECT ADDRESS FLAG F0D50420 15112 0621 00 0 16165 STA MCIND F0D50430 15113 0774 00 4 00000 SSN32 AXT **,4 RESTORE STUFF COUNTS F0D50440 15114 -0634 00 4 16023 SXD STUFI,4 F0D50450 15115 0774 00 4 00000 AXT **,4 F0D50460 15116 -0634 00 4 16024 SXD STF01,4 F0D50470 15117 -0634 00 4 16177 SXD STUM2,4 F0D50480 15120 -0534 00 4 14546 LXD MAC07,4 RESTORE STUFF OVERFLOW TESTS F0D50490 15121 -0634 00 4 16064 SXD STF03+1,4 F0D50500 15122 -0634 00 4 16102 SXD STF08+2,4 F0D50510 15123 0774 00 4 77777 AXT -1,4 RESTORE DIRECTION OF STUFF F0D50520 15124 -0634 00 4 16101 SXD STF08+1,4 F0D50530 15125 -0634 00 4 16107 SXD STF10+2,4 F0D50540 15126 -0634 00 4 14752 SXD SSN13,4 SET ETC SWITCH F0D50550 15127 0074 00 4 16115 TSX SCANS,4 *INITIALIZE CHARACTER SCAN ROUTINE F0D50560 15130 -3 16640 0 14736 TXL SSN10,,MCTBL+4 SINGLE CHARACTER RETURN,,PUNCTUATION TABLEF0D50570 15131 -3 00004 0 14630 TXL SSN01,,4 PUNCTUATION RETURN,,LENGTH OF TABLE F0D50580 15132 -3 73507 1 14657 TXL SSN03,1,-BCDBF-12 OVERFLOW TEST F0D50590 15133 0535 00 2 04012 LAC VRFLD,2 COMPUTE CHARACTER COUNT F0D50600 BINARY CARD NO. 9F040219 15134 1 00006 2 15135 TXI *+1,2,6 F0D50610 15135 -0534 00 1 04012 LXD VRFLD,1 COMPUTE WORD COUNT F0D50620 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 105 PASS ONE MACRO PROCESSOR 15136 1 73523 1 15137 TXI *+1,1,-BCDBF F0D50630 15137 -0634 00 2 14746 SXD SSNBC,2 SET COUNTS OF BEGINNING OF STRING F0D50640 15140 0634 00 1 14742 SXA SSNBW,1 F0D50650 15141 1 00001 2 16132 TXI SCANT,2,1 F0D50660 F0D50670 COMPILE MACRO EXPANSION F0D50680 15142 -0774 00 1 04255 CMPIL AXC BCDBF,1 PREPARE TO STUFF INTO CARD IMAGE $F0D50690 15143 -0774 00 4 04255 AXC BCDBF,4 BUFFER $F0D50695 15144 0774 00 2 77777 AXT -1,2 SET SWITCH TO STUFF FORWARD F0D50700 15145 -0634 00 2 10305 SXD MCREF,2 SET MACRO GENERATED CARD SWITCH F0D50710 15146 -0634 00 2 15243 SXD CMP11,2 PRESET END OF MACRO EXPANSION SWITCH F0D50720 15147 -0634 00 2 07434 SXD PKMSW,2 SET LOOKAHEAD SWITCH FOR ETC CARD F0D50730 15150 -0500 00 0 15150 CAL * LOAD CALLING LINKAGE F0D50740 15151 1 77764 4 16000 TXI STUFY,4,-12 *INITIALIZE STUFF ROUTINE F0D50750 15152 3 00000 2 15173 CMP01 TXH CMP04,2,** IS AN ETC CARD TO BE CREATED F0D50760 15153 -0634 00 0 15152 ZSD CMP01 YES, RESET SWITCH F0D50770 15154 -0634 00 0 15243 ZSD CMP11 RESET END OF MACRO EXPANSION SWITCH F0D50780 15155 0774 00 4 00017 CMPVF AXT 15,4 LOAD NUMBER OF CHARACTERS TO BE STUFFED F0D50790 (RESET TO 11 FOR 704 MODE) F0D50800 15156 0774 00 1 00000 AXT 0,1 PREPARE TO STUFF FROM $F0D50805 15157 0774 00 2 00000 AXT 0,2 FIRST CHARACTER $F0D50810 15160 -0500 00 0 15160 CAL * LOAD CALLING LINKAGE F0D50820 15161 1 61140 1 16015 TXI STUFF,1,-ETCCD *STUFF ETC OPCODE F0D50830 BINARY CARD NO. 9F040220 15162 0074 00 4 06312 TSX MACERR,4 **IMPOSSIBLE RETURN F0D50840 15163 0774 00 4 00000 CMP02 AXT **,4 RESTORE DIRECTION OF STUFF F0D50850 15164 -0634 00 4 16073 SXD STF06+1,4 F0D50860 15165 0774 00 4 00000 AXT **,4 RELOAD NUMBER OF REMAINING CHARACTERS F0D50870 15166 0774 00 2 00000 AXT **,2 RELOAD CARD IMAGE CHARACTER COUNT F0D50880 15167 0774 00 1 00000 AXT **,1 RELOAD CARD IMAGE WORD COUNT F0D50890 15170 -0500 00 0 15170 CAL * LOAD CALLING LINKAGE F0D50900 15171 0020 00 0 16015 TRA STUFF *STUFF REMAINDER OF FIELD F0D50910 15172 0020 00 0 15336 TRA CMP20 CARD IMAGE FULL F0D50920 REENTRY IF NO ETC CARD IS TO BE CREATED F0D50930 15173 -0634 00 0 07435 CMP04 ZSD PKMSW+1 RESET ETC SWITCH F0D50940 15174 0774 00 4 00001 AXT 1,4 PREPARE TO STUFF FROM BACKWARD DATA F0D50950 15175 -0634 00 4 16073 SXD STF06+1,4 F0D50960 15176 0074 00 4 16115 TSX SCANS,4 *INITIALIZE CHARACTER SCAN ROUTINE F0D50970 15177 -3 16602 0 15205 TXL CMP05,,MDTBL+4 SINGLE CHARACTER RETURN,,PUNCTUATION TABLEF0D50980 15200 -3 00004 0 15227 TXL CMP10,,4 PUNCTUATION RETURN,,LENGTH OF TABLE F0D50990 15201 3 77777 1 00000 TXH ,1,-1 NULLIFY OVERFLOW TEST F0D51000 15202 -0634 00 0 15253 ZSD CMPFC RESET FIELD LENGTH F0D51010 15203 -0634 00 0 15266 ZSD CMPCT RESET COUNT OF COLUMNS STUFFED F0D51020 15204 0020 00 0 15333 TRA CMP16 F0D51030 F0D51040 CHARACTER IS NOT PUNCTUATION, IT IS FIELD LENGTH+1 F0D51050 15205 0634 00 1 16201 CMP05 SXA MDFCT,1 SAVE MACRO DEFINITION WORD COUNT F0D51060 15206 0734 00 4 00000 PAX ,4 LOAD FIELD LENGTH+1 F0D51070 15207 1 77777 4 15210 TXI *+1,4,-1 BUMP TO FIELD LENGTH F0D51080 BINARY CARD NO. 9F040221 15210 -0634 00 4 15253 SXD CMPFC,4 SET FIELD LENGTH F0D51090 15211 1 00001 2 15212 TXI *+1,2,1 BUMP CHARACTER COUNT PAST FIELD LENGTH F0D51100 15212 -0754 00 2 00000 PXD ,2 COMPUTE END OF FIELD IN SKELETON F0D51110 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 106 PASS ONE MACRO PROCESSOR 15213 0361 00 0 15253 ACL CMPFC F0D51120 15214 0622 00 0 16201 STD MDFCT SAVE MACRO DEFINITION CHARACTER COUNT F0D51130 15215 -0754 00 4 00000 PXD ,4 F0D51140 15216 0400 00 0 15266 ADD CMPCT BUMP COUNT OF COLUMNS STUFFED F0D51150 15217 0622 00 0 15266 STD CMPCT F0D51160 15220 -3 00005 2 15223 TXL *+3,2,5 IS WORD EXHAUSTED F0D51170 15221 1 00001 1 15222 TXI *+1,1,1 YES, BUMP COUNT TO NEXT WORD F0D51180 15222 1 77772 2 15220 TXI *-2,2,-6 RESET CHARACTER COUNT F0D51190 15223 -0500 00 0 15223 CAL * LOAD CALLING LINKAGE F0D51200 15224 0020 00 0 16015 TRA STUFF *STUFF VARIABLE INTO CARD IMAGE F0D51210 15225 0020 00 0 15336 TRA CMP20 CARD IMAGE FULL F0D51220 15226 0020 00 0 15333 TRA CMP16 F0D51230 F0D51240 CHARACTER IS PUNCTUATION F0D51250 15227 1 00001 2 15230 CMP10 TXI *+1,2,1 DELETE PUNCTUATION CHARACTER F0D51260 15230 -0634 00 2 16201 SXD MDFCT,2 SAVE MACRO DEFINITION CHARACTER COUNT F0D51270 15231 0634 00 1 16201 SXA MDFCT,1 SAVE MACRO DEFINITION WORD COUNT F0D51280 15232 0020 00 4 15237 TRA *+5,4 F0D51290 15233 0020 00 0 15301 TRA CMP15 PUNCTUATION IS ARGUMENT MARK F0D51300 15234 0020 00 0 15255 TRA CMP13 PUNCTUATION IS VARIABLE FIELD MARK F0D51310 15235 0020 00 0 15251 TRA CMP12 PUNCTUATION IS OPCODE MARK F0D51320 END OF RECORD F0D51330 BINARY CARD NO. 9F040222 15236 -0774 00 1 04177 AXC BLANKS+1,1 PREPARE TO STUFF FROM BLANK WORDS F0D51340 15237 0774 00 6 00000 AXT 0,6 PREPARE TO STUFF FROM FIRST CHARACTER F0D51350 15240 -0500 00 0 15240 CAL * LOAD CALLING LINKAGE F0D51360 15241 1 00006 4 16015 TXI STUFF,4,6 *STUFF TWO WORDS OF BLANKS F0D51370 15242 0761 00 0 00000 NOP F0D51380 15243 3 00000 2 15352 CMP11 TXH CMP21,2,** IS THIS DOUBLE END OF RECORD MARK F0D51390 (END OF MACRO EXPANSION) F0D51400 15244 0074 00 4 15510 TSX PMCL2,4 *YES, PUSH UP MACRO LEVEL F0D51410 15245 3 00000 1 15250 TXH *+3,1,0 WAS THIS ZERO LEVEL MACRO F0D51420 15246 -0634 00 0 07434 ZSD PKMSW YES, RESET LOOKAHEAD SWITCH F0D51430 15247 -0634 00 0 10305 ZSD MCREF RESET MACRO EXPANSION CARD SWITCH F0D51440 15250 0020 00 0 10616 TRA SOURC F0D51450 PUNCTUATION IS 01, OPCODE FOLLOWS F0D51460 15251 -0634 00 0 15243 CMP12 ZSD CMP11 RESET END OF MACRO EXPANSION SWITCH F0D51470 15252 0774 00 4 00007 AXT 7,4 COMPUTE LENGTH OF LOCATION FIELD F0D51480 15253 -2 00000 4 15333 CMPFC TNX CMP16,4,** IS COLUMN 7 FULL F0D51490 15254 0020 00 0 15270 TRA CMP14 NO F0D51500 PUNCTUATION IS 76, VARIABLE FIELD FOLLOWS F0D51510 15255 0634 00 0 14253 CMP13 ZSA IRP01 RESET ARGUMENT NUMBER F0D51520 DETERMINE NUMBER OF BLANKS TO STUFF (24)F0D51530 15256 -3 00005 2 15260 TXL *+2,2,5 IS DEFINITION WORD EXHAUSTED (24)F0D51540 15257 0560 00 1 77777 LDQ -1,1 YES, LOAD NEXT ONE (24)F0D51550 15260 1 00001 2 15261 TXI *+1,2,1 BUMP SKELETON CHARACTER COUNT (24)F0D51560 15261 -0634 00 2 16201 SXD MDFCT,2 PAST COUNT OF CHARACTERS (24)F0D51570 15262 -0754 00 0 00000 ZAC WHICH SHOULD PRECEDE VARIABLE FIELD (24)F0D51580 15263 -0763 00 0 00006 LGL 6 ROLL UP SAID COUNT (24)F0D51590 BINARY CARD NO. 9F040223 15264 0734 00 4 00000 PAX ,4 (24)F0D51600 15265 0774 00 0 00000 AXT ,0 MARK TIME (24)F0D51610 15266 2 00000 4 15270 CMPCT TIX *+2,4,** REDUCE BY COUNT OF CHARACTERS STUFFED F0D51620 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 107 PASS ONE MACRO PROCESSOR 15267 0774 00 4 00001 AXT 1,4 PREPARE TO STUFF ONE BLANK IF TOO MANY F0D51630 REENTRY TO STUFF BLANKS FOLLOWING LOCATION FIELD F0D51640 15270 -0754 00 4 00000 CMP14 PXD ,4 SET NUMBER OF BLANKS TO STUFF F0D51650 15271 0400 00 0 15266 ADD CMPCT BUMP COUNT OF COLUMNS STUFFED F0D51660 15272 0622 00 0 15266 STD CMPCT F0D51670 15273 -0774 00 1 04177 AXC BLANKS+1,1 PREPARE TO STUFF FROM BLANKS F0D51680 15274 0774 00 2 00000 AXT 0,2 STARTING WITH FIRST CHARACTER F0D51690 15275 -0500 00 0 15275 CAL * LOAD CALLING LINKAGE F0D51700 15276 0020 00 0 16015 TRA STUFF *FILL OUT OPFIELD WITH BLANKS F0D51710 15277 0020 00 0 15336 TRA CMP20 CARD IMAGE FULL F0D51720 15300 0020 00 0 15333 TRA CMP16 F0D51730 PUNCTUATION IS 77, ARGUMENT FOLLOWS F0D51740 15301 -3 00005 2 15303 CMP15 TXL *+2,2,5 IS WORD EXHAUSTED F0D51750 15302 0560 00 1 77777 LDQ -1,1 YES, LOAD NEXT WORD F0D51760 15303 1 00001 2 15304 TXI *+1,2,1 BUMP CHARACTER COUNT PAST ARGUMENT NUMBER F0D51770 15304 -0634 00 2 16201 SXD MDFCT,2 SAVE MACRO DEFINITION CHARACTER COUNT F0D51780 15305 -0754 00 0 00000 ZAC F0D51790 15306 -0763 00 0 00006 LGL 6 LOAD ARGUMENT NUMBER F0D51800 15307 -0100 00 0 15313 TNZ *+4 IS FOLLOWING CARD PROGRAMMERS ETC F0D51810 15310 0774 00 4 77777 AXT -1,4 YES, SET ETC SWITCH F0D51820 15311 -0634 00 4 07435 SXD PKMSW+1,4 F0D51830 BINARY CARD NO. 9F040224 15312 0020 00 0 16132 TRA SCANT F0D51840 15313 0621 00 0 14253 STA IRP01 INITIALIZE IRP ARGUMENT NUMBER F0D51850 15314 0734 00 1 00000 PAX ,1 F0D51860 15315 -0500 00 1 16410 CAL MARGS+1,1 LOAD ARGUMENT REFERENCE F0D51870 15316 0734 00 1 00000 PAX ,1 LOAD ARGUMENT LOCATION F0D51880 15317 -0734 00 4 00000 PDX ,4 LOAD ARGUMENT LENGTH F0D51890 15320 0622 00 0 15253 STD CMPFC SET FIELD LENGTH F0D51900 15321 0400 00 0 15266 ADD CMPCT BUMP COUNT OF COLUMNS STUFFED F0D51910 15322 0622 00 0 15266 STD CMPCT F0D51920 15323 0774 00 2 77777 AXT -1,2 PREPARE TO STUFF FROM FORWARD DATA F0D51930 15324 -0634 00 2 16073 SXD STF06+1,2 F0D51940 15325 0774 00 2 00000 AXT 0,2 PREPARE TO STUFF FROM FIRST CHARACTER F0D51950 15326 -0500 00 0 15326 CAL * LOAD CALLING LINKAGE F0D51960 15327 0020 00 0 16015 TRA STUFF *STUFF ARGUMENT INTO CARD IMAGE F0D51970 15330 0020 00 0 15336 TRA CMP20 CARD IMAGE FULL F0D51980 15331 0774 00 2 00001 AXT 1,2 PREPARE TO STUFF FROM BACKWARD DATA F0D51990 15332 -0634 00 2 16073 SXD STF06+1,2 F0D52000 REENTRY TO CONTINUE SCAN F0D52010 15333 -0534 00 2 16201 CMP16 LXD MDFCT,2 LOAD MACRO DEFINITION CHARACTER COUNT F0D52020 15334 0534 00 1 16201 LXA MDFCT,1 LOAD MACRO DEFINITION WORD COUNT F0D52030 15335 0020 00 0 16132 TRA SCANT F0D52040 GENERATED CARD IMAGE IS FULL F0D52050 15336 -0534 00 2 16073 CMP20 LXD STF06+1,2 SAVE DIRECTION OF STUFF F0D52060 15337 0634 00 2 15163 SXA CMP02,2 F0D52070 BINARY CARD NO. 9F040225 15340 0774 00 2 77777 AXT -1,2 SET SWITCH TO CREATE ETC CARD F0D52080 15341 -0634 00 2 15152 SXD CMP01,2 F0D52090 15342 -0634 00 2 07435 SXD PKMSW+1,2 F0D52100 15343 0634 00 4 15165 SXA CMP02+2,4 SAVE COUNT OF REMAINING CHARACTERS F0D52110 15344 0534 00 4 16075 LXA STF07,4 LOAD CHARACTER BIT COUNT F0D52120 15345 1 00006 4 15346 TXI *+1,4,6 F0D52130 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 108 PASS ONE MACRO PROCESSOR 15346 1 00001 2 15347 TXI *+1,2,1 F0D52140 15347 2 00006 4 15346 TIX *-1,4,6 DIVIDE BY 6 F0D52150 15350 0634 00 2 15166 SXA CMP02+3,2 SAVE CARD IMAGE CHARACTER COUNT F0D52160 15351 0634 00 1 15167 SXA CMP02+4,1 SAVE CARD IMAGE WORD COUNT F0D52170 REENTRY TO FINISH CARD F0D52180 15352 0774 00 4 77777 CMP21 AXT -1,4 PREPARE TO STUFF FROM FORWARD DATA F0D52190 15353 -0634 00 4 16073 SXD STF06+1,4 F0D52200 15354 -3 00000 4 14272 CMP22 TXL IRP02,4,** IS THIS CARD IN RANGE OF IRP F0D52210 15355 -0500 00 0 04176 CAL BLANKS NO, FILL OUT GENERATED CARD IMAGE F0D52220 15356 -0534 00 1 16023 LXD STUFI,1 F0D52230 15357 -3 73507 1 15362 TXL *+3,1,-BCDBF-12 F0D52240 15360 0602 00 1 00000 SLW 0,1 F0D52250 15361 1 77777 1 15357 TXI *-2,1,-1 F0D52260 15362 -0500 00 0 06415 CAL Q32 SET MACRO GENERATED CARD FLAG F0D52270 15363 0602 00 0 04102 SLW P1FLG FOR PASS 2 LISTING PURPOSES F0D52280 15364 0534 00 4 15511 LXA CLEVL,4 LOAD MACRO LEVEL F0D52290 15365 0754 00 4 00000 PXA ,4 F0D52300 BINARY CARD NO. 9F040226 15366 0767 00 0 00010 ALS 8 SHIFT INTO BIT POSITIONS 21 THRU 27 F0D52310 15367 -0602 00 0 04102 ORS P1FLG HOLD FOR PASS TWO F0D52320 15370 0020 00 0 10623 TRA CNTRL F0D52330 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 109 PASS ONE MACRO PROCESSOR ROUTINES PECULIAR TO MACROS F0D52350 NOCRS, ORGCRS, PMC, SET F0D52360 F0D52370 15371 0774 00 4 00005 CRSOP AXT 5,4 SET CREATED SYMBOL COUNT F0D52380 15372 -0634 00 4 16162 SXD CRSNO,4 F0D52390 15373 0074 00 4 06126 TSX SSCAN,4 *ASSEMBLE PROGRAMMER'S SYMBOL F0D52400 15374 1 00000 0 15415 TXI CRS01,,0 NULL SYMBOL F0D52410 15375 -0760 00 0 00141 SLT EXPRR IS SYMBOL IN ERROR F0D52420 15376 0520 00 0 04000 ZET SYMB2 NO, IS SYMBOL TOO LONG F0D52430 15377 0020 00 0 12564 TRA FIELD **YES F0D52440 15400 -0760 00 0 00142 SLT EXPND NO, DID SYMBOL END WITH OPERATION F0D52450 15401 0020 00 0 12564 TRA FIELD **YES F0D52460 15402 -0500 00 0 04001 CAL SYMBL NO, LOAD SYMBOL F0D52470 15403 -0320 00 0 06464 ANA D63 MASK IN THIRD CHARACTER F0D52480 15404 0602 00 0 16626 SLW CRPT1 PROGRAMMER MAY VARY THIRD CHARACTER F0D52490 15405 -0500 00 0 04001 CAL SYMBL RELOAD SYMBOL F0D52500 15406 -0320 00 0 06452 ANA ADTMK MASK IN THREE DIGITS F0D52510 15407 -0130 00 0 00000 XCL F0D52520 15410 0074 00 4 06057 TSX DECSV+1,4 *CONVERT TO BINARY F0D52530 15411 0621 00 0 14500 STA CRSCT RESET ORIGIN F0D52540 15412 0621 00 0 04273 STA LITRL SAVE FOR PASS TWO F0D52550 15413 -0760 00 0 00144 SLT FLDND WAS THIS END OF VARIABLE FIELD F0D52560 BINARY CARD NO. 9F040227 15414 0020 00 0 12564 TRA FIELD **NO F0D52570 15415 0020 00 0 10550 CRS01 TRA READ1 YES F0D52580 F0D52590 15416 0600 00 0 16162 NOCOP STZ CRSNO RESET CREATED SYMBOL COUNT F0D52600 15417 0020 00 0 10550 TRA READ1 F0D52610 F0D52620 15420 0074 00 4 07404 SETOP TSX SCANP,4 *EVALUATE SET DEFINITION F0D52630 15421 1 00000 0 07424 TXI AFLAG,,0 NULL DEFINITION F0D52640 15422 0043 00 0 00000 OAI COMBINE BITS WITH DEFINITION F0D52650 15423 -0055 00 000020 SIL 20 AND SET FLAG F0D52660 15424 0604 00 0 03762 STI ADDRS DEFINE SYMBOL F0D52670 15425 0604 00 0 04273 STI LITRL SAVE FOR PASS TWO F0D52680 15426 -0500 00 0 04255 CAL BCDBF LOAD LOCATION FIELD F0D52690 15427 0074 00 4 04547 TSX LOCFL,4 *ASSEMBLE LOCATION SYMBOL F0D52700 15430 0100 00 0 12564 TZE FIELD **IS THERE A LOCATION SYMBOL F0D52710 15431 -0130 00 0 00000 XCL YES, ISOLATE FIRST CHARACTER F0D52720 15432 -0763 00 0 00006 LGL 6 F0D52730 15433 -0100 00 0 15435 TNZ *+2 IS SYMBOL SHORTER THAN 6 CHARACTERS F0D52740 15434 -0500 00 0 03776 CAL BHEAD YES, APPEND HEADING CHARACTER F0D52750 15435 -0765 00 0 00006 LGR 6 F0D52760 15436 -0600 00 0 04001 STQ SYMBL HOLD FOR SYMBOL TABLE SEARCH F0D52770 15437 0634 00 0 15441 ZSA SET01 RESET LOCATION OF SYMBOL TO BE REDEFINED F0D52780 15440 0074 00 4 07152 TSX SSYMT,4 *FIND SYMBOL IN SYMBOL TABLE F0D52790 15441 0774 00 4 00000 SET01 AXT **,4 LOAD LOCATION OF SYMBOL F0D52800 BINARY CARD NO. 9F040228 15442 3 00000 4 15445 TXH *+3,4,0 IS SYMBOL ALREADY IN TABLE F0D52810 15443 0074 00 4 07334 TSX ESYML,4 *NO, DEFINE IT F0D52820 15444 0020 00 0 15453 TRA SET02 F0D52830 15445 -0500 00 0 03762 CAL ADDRS YES, LOAD NEW DEFINITION F0D52840 15446 0441 60 0 07174 LDI* SRCH2 HOLD OLD DEFINITION F0D52850 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 110 PASS ONE MACRO PROCESSOR 15447 0602 60 0 07174 SLW* SRCH2 REDEFINE SYMBOL F0D52860 15450 -0760 00 0 00141 SLT EXPRR WAS SYMBOL IN TRANSFER VECTOR F0D52870 15451 -0056 00 000020 LNT 20 NO, WAS OLD DEFINITION SET F0D52880 15452 0020 00 0 12564 TRA FIELD **NO F0D52890 15453 0020 00 0 10550 SET02 TRA READ1 F0D52900 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 111 PASS ONE MACRO PROCESSOR MACRO PROCESSOR SUBROUTINES F0D52920 F0D52930 SUBROUTINES TO PRINT MACRO ERROR MESSAGES F0D52940 F0D52950 UNMATCHED PARENTHESES F0D52960 15454 -0634 00 0 14752 MCER1 ZSD SSN13 RESET SWITCH TO AVOID INITIALIZATION F0D52970 IN CASE THIS IS FIRST ARGUMENT ON ETC CARDF0D52980 15455 0600 00 0 16172 STZ PARNC RESET PARENTHESES COUNT F0D52990 15456 -0500 00 0 16624 CAL PARFL LOAD UNMATCHED PAREN FLAG F0D53000 ENTRY FOR OTHER MACRO ERROR (23)F0D53010 15457 0602 00 0 04273 MCERR SLW LITRL SAVE FLAG FOR PASS TWO (23)F0D53020 15460 0634 00 4 15463 SXA MCERX,4 (23)F0D53030 15461 0774 00 4 13214 AXT 5$MCERR,4 SET PASS TWO TRANSFER (23)F0D53040 15462 -0634 00 4 04274 SXD OPBIN,4 ADDRESS TO PRINT FLAG (23)F0D53050 15463 0774 00 4 00000 MCERX AXT **,4 AND CARD IN ERROR (23)F0D53060 15464 0020 00 4 00001 TRA 1,4 (23)F0D53070 15465 -0 13562 0 00000 PCCP2 MZE ,,5$TTL03+1 (23)F0D53080 F0D53090 MACRO DEFINITION OR COMPILE TABLE FULL F0D53100 15466 0441 00 0 16623 OVRLP LDI MDFNM LOAD MACRO DEFINITION NAME F0D53110 15467 0020 00 0 06274 TRA SRCERR **TERMINATE ASSEMBLY F0D53120 MACRO LEVEL TABLE FULL F0D53130 BINARY CARD NO. 9F040229 15470 0441 00 0 16622 LKTOV LDI LVLNM LOAD LEVEL TABLE NAME F0D53140 15471 0020 00 0 06274 TRA SRCERR **TERMINATE ASSEMBLY F0D53150 F0D53160 PUSH MACRO LEVEL DOWN F0D53170 15472 0634 00 4 15506 PMCL1 SXA PMC1X,4 SAVE CALLING LINKAGE F0D53180 15473 0534 00 1 15511 LXA CLEVL,1 LOAD MACRO LEVEL F0D53190 15474 0074 00 4 15565 TSX SETTP,4 *SET UP MACRO COMPILER ROUTING F0D53200 15475 0 15142 0 10616 PZE SOURC,,CMPIL F0D53210 15476 1 00001 1 15505 TXI PMC11,1,1 BUMP MACRO LEVEL IF NO INTERRUPTION F0D53220 15477 -0534 00 4 15515 LXD PMC21,4 HOLD OLD INTERRUPT LEVEL F0D53230 15500 0634 00 4 16164 SXA MACNO,4 F0D53240 15501 -0634 00 1 15515 SXD PMC21,1 SET NEW INTERRUPT LEVEL F0D53250 15502 0074 00 4 15703 TSX PDOWN,4 *PUSH DOWN MACRO LEVEL F0D53260 15503 0 00000 0 16164 PZE MACNO F0D53270 15504 1 00001 1 15505 TXI *+1,1,1 BUMP MACRO LEVEL F0D53280 15505 0634 00 1 15511 PMC11 SXA CLEVL,1 RESET MACRO LEVEL F0D53290 15506 0774 00 4 00000 PMC1X AXT **,4 RELOAD CALLING LINKAGE F0D53300 15507 0020 00 4 00001 TRA 1,4 F0D53310 F0D53320 PUSH MACRO LEVEL UP F0D53330 15510 0634 00 4 15530 PMCL2 SXA PMC2X,4 SAVE CALLING LINKAGE F0D53340 15511 0774 00 1 00000 CLEVL AXT **,1 LOAD MACRO LEVEL F0D53350 15512 -3 00000 1 15515 TXL PMC21,1,0 IS THIS FIRST LEVEL MACRO F0D53360 15513 1 77777 1 15514 TXI *+1,1,-1 BUMP MACRO LEVEL F0D53370 15514 0634 00 1 15511 SXA CLEVL,1 F0D53380 15515 3 00000 1 15524 PMC21 TXH PMC23,1,** WAS MACRO EXPANSION INTERRUPTED F0D53390 BINARY CARD NO. 9F040230 15516 0074 00 4 15612 TSX RESTP,4 *NO, RESTORE OLD SWITCH F0D53400 15517 0 15142 0 10616 PZE SOURC,,CMPIL F0D53410 15520 0074 00 4 15720 TSX PUPUP,4 *PUSH UP MACRO LEVEL F0D53420 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 112 PASS ONE MACRO PROCESSOR 15521 0 00000 0 16164 PZE MACNO F0D53430 15522 0534 00 1 16164 LXA MACNO,1 RESET INTERRUPTION TEST F0D53440 15523 -0634 00 1 15515 SXD PMC21,1 TO CURRENT MACRO LEVEL F0D53450 15524 -0634 00 0 15354 PMC23 ZSD CMP22 RESET IRP INTERCEPT PENDING POP OF STATUS F0D53460 15525 0074 00 4 15552 TSX PMCS3,4 *BUMP MACRO STATUS UP F0D53470 15526 0774 00 4 77777 AXT -1,4 RESET DIRECTION OF STUFF F0D53480 15527 -0634 00 4 16073 SXD STF06+1,4 F0D53490 15530 0774 00 4 00000 PMC2X AXT **,4 RELOAD CALLING LINKAGE F0D53500 15531 0020 00 4 00001 TRA 1,4 F0D53510 F0D53520 PUSH MACRO STATUS DOWN F0D53530 15532 0634 00 4 15550 PMCS1 SXA PMCSX,4 SAVE CALLING LINKAGE F0D53540 15533 0534 00 1 15511 LXA CLEVL,1 LOAD MACRO LEVEL F0D53550 15534 -3 00000 1 15546 TXL PMCS2,1,0 IS THIS FIRST LEVEL MACRO F0D53560 15535 -0500 00 0 16165 CAL MCIND NO, PUSH DOWN INDIRECT ADDRESS FLAG F0D53570 15536 0621 00 0 16203 STA SSLOC F0D53580 15537 0500 00 0 06474 CLA P7 PREPARE TO PUSH F0D53590 15540 0534 00 1 14474 LXA MEPTR,1 TO MACRO EXPANSION TABLE F0D53600 15541 0074 00 4 15737 TSX PUPOP,4 *PUSH DOWN OUTER MACRO STATUS F0D53610 15542 -0634 00 0 15354 ZSD CMP22 RESET IRP INTERCEPT F0D53620 15543 0534 00 4 14474 LXA MEPTR,4 LOAD POINTER TO THIS PUSH F0D53630 BINARY CARD NO. 9F040231 15544 -0634 00 4 16203 SXD SSLOC,4 SAVE IN CASE OF ANOTHER PUSH F0D53640 15545 0020 00 0 15547 TRA PMCS2+1 F0D53650 MACRO IS FIRST LEVEL F0D53660 15546 0020 00 0 16772 PMCS2 TRA PMC2P $F0D53670 15547 0634 00 1 14474 SXA MEPTR,1 SET POINTER TO NEXT ENTRY IN TABLE F0D53680 15550 0774 00 4 00000 PMCSX AXT **,4 RELOAD CALLING LINKAGE F0D53690 15551 0020 00 4 00001 TRA 1,4 F0D53700 F0D53710 PUSH MACRO STATUS UP F0D53720 15552 0634 00 4 15563 PMCS3 SXA PMC3X,4 SAVE CALLING LINKAGE F0D53730 15553 0534 00 1 15511 LXA CLEVL,1 LOAD MACRO LEVEL F0D53740 15554 -3 00000 1 17146 TXL PMC3P,1,0 IS THIS FIRST LEVEL MACRO $F0D53750 15555 -0500 00 0 06474 CAL P7 NO PREPARE TO POP F0D53760 15556 -0534 00 1 16203 LXD SSLOC,1 FROM MACRO EXPANSION TABLE F0D53770 15557 0634 00 1 14474 SXA MEPTR,1 RESET POINTER TO OVERWRITE OLD PUSH F0D53780 15560 0074 00 4 15737 TSX PUPOP,4 *PUSH UP OUTER MACRO F0D53790 15561 -0500 00 0 16203 CAL SSLOC RESTORE INDIRECT ADDRESS FLAG F0D53800 15562 0621 00 0 16165 STA MCIND F0D53810 15563 0774 00 4 00000 PMC3X AXT **,4 RELOAD CALLING LINKAGE F0D53820 15564 0020 00 4 00001 TRA 1,4 F0D53830 F0D53840 SET UP ROUTING FOR MACRO PROCESSOR F0D53850 15565 0634 00 4 15610 SETTP SXA SETPX,4 SAVE CALLING LINKAGE F0D53860 15566 -0500 60 4 00001 CAL* 1,4 LOAD OLD SWITCH F0D53870 15567 0621 00 0 04100 STA ORDRF SAVE TRANSFER ADDRESS FOR COMPARE F0D53880 15570 -0130 00 0 00000 XCL HOLD SWITCH F0D53890 15571 -0500 00 4 00001 CAL 1,4 LOAD SWITCH ADDRESS,,TRANSFER ADDRESS F0D53900 BINARY CARD NO. 9F040232 15572 0771 00 0 00022 ARS 18 RIGHT ADJUST TRANSFER ADDRESS F0D53910 15573 -0340 00 0 04100 LAS ORDRF IS SWITCH ALREADY INITIALIZED F0D53920 15574 0020 00 0 15576 TRA *+2 NO F0D53930 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 113 PASS ONE MACRO PROCESSOR 15575 0020 00 4 00002 TRA 2,4 YES F0D53940 15576 0621 60 4 00001 STA* 1,4 RESET SWITCH F0D53950 15577 0500 00 0 16411 CLA LKTBP LOAD POINTER TO NEXT SWITCH F0D53960 15600 -0100 00 0 15602 TNZ *+2 WAS TABLE ENTRY MADE F0D53970 15601 0074 00 4 06312 TSX MACERR,4 **NO F0D53980 15602 0622 60 4 00001 STD* 1,4 YES, SAVE POINTER TO HIGHER LEVEL SWITCH F0D53990 15603 -0737 00 4 00000 PDC ,4 COMPUTE LOCATION OF NEXT TABLE ENTRY F0D54000 15604 -0500 00 4 00000 CAL 0,4 LOAD POINTER TO NEXT LINK F0D54010 15605 -0600 00 4 00000 STQ 0,4 SAVE OLD SWITCH F0D54020 15606 0100 00 0 15470 TZE LKTOV **IS TABLE EXHAUSTED F0D54030 15607 0622 00 0 16411 STD LKTBP NO, RESET POINTER TO FOLLOWING LINK F0D54040 15610 0774 00 4 00000 SETPX AXT **,4 RELOAD CALLING LINKAGE F0D54050 15611 0020 00 4 00003 TRA 3,4 F0D54060 F0D54070 RESTORE LOWER LEVEL ROUTING F0D54080 15612 0634 00 4 15700 RESTP SXA RESTX,4 SAVE CALLING LINKAGE F0D54090 15613 0634 00 1 15701 SXA RESTX+1,1 SAVE CHARACTER COUNT F0D54100 15614 -0500 00 4 00001 CAL 1,4 LOAD SWITCH ADDRESS,,TRANSFER ADDRESS F0D54110 15615 0621 00 0 15671 STA REST3 SAVE SWITCH ADDRESS F0D54120 15616 0771 00 0 00022 ARS 18 F0D54130 15617 0621 00 0 16410 STA LKTBB SAVE OLD TRANSFER ADDRESS FOR COMPARE F0D54140 BINARY CARD NO. 9F040233 15620 -0500 60 4 00001 CAL* 1,4 LOAD OLD SWITCH F0D54150 15621 0622 00 0 16410 STD LKTBB ESTABLISH DUPLICATE DECREMENTS F0D54160 15622 -0340 00 0 16410 LAS LKTBB DOES SWITCH COMPARE WITH REQUEST F0D54170 15623 0020 00 0 15625 TRA *+2 NO F0D54180 15624 0020 00 0 15665 TRA REST2 YES F0D54190 15625 0074 00 4 73611 TSX (PRNT),4 *INVITE CORRESPONDENCE F0D54200 15626 0 00016 0 15633 PZE QUERY,,14 F0D54210 15627 0634 00 2 15631 SXA *+2,2 F0D54220 15630 0074 00 2 06361 TSX SPACP,2 *LET THEM ANSWER F0D54230 15631 0774 00 2 00000 AXT **,2 F0D54240 15632 0020 00 0 15651 TRA REST1 F0D54250 15633 606060604743 QUERY BCI , PLEASE SEND SOURCE PROGRAM TO APPLIED PROGRAMMING ATTN. F0D54260 15645 303344254363 BCI 4,H.MELTZER. PUSH START. F0D54270 BINARY CARD NO. 9F040234 REQUEST IS NOT CURRENT SWITCH F0D54280 15651 -0737 00 1 00000 REST1 PDC ,1 LOAD POINTER TO NEXT SWITCH F0D54290 15652 3 00000 1 15654 TXH *+2,1,0 WAS TABLE ENTRY MADE F0D54300 15653 0074 00 4 06312 TSX MACERR,4 **NO F0D54310 15654 -0500 00 1 00000 CAL 0,1 YES, LOAD LAST LINK F0D54320 15655 0622 00 0 16410 STD LKTBB SET UP DECREMENT AGAIN F0D54330 15656 -0340 00 0 16410 LAS LKTBB DOES THIS LINK COMPARE WITH REQUEST F0D54340 15657 0020 00 0 15661 TRA *+2 NO F0D54350 15660 0020 00 0 15671 TRA REST3 YES F0D54360 15661 0634 00 1 15662 SXA *+1,1 COMPLEMENT THIS POINTER F0D54370 15662 -0774 00 1 00000 AXC **,1 F0D54380 15663 0634 00 1 15671 SXA REST3,1 SAVE POINTER F0D54390 15664 0020 00 0 15651 TRA REST1 F0D54400 REQUEST IS CURRENT SWITCH F0D54410 15665 -0737 00 1 00000 REST2 PDC ,1 COMPLEMENT POINTER F0D54420 15666 -0500 00 1 00000 CAL 0,1 PICK UP LINK F0D54430 15667 0602 60 4 00001 SLW* 1,4 RESET SWITCH F0D54440 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 114 PASS ONE MACRO PROCESSOR 15670 0020 00 0 15673 TRA REST3+2 F0D54450 REQUEST WAS FOUND IN TABLE F0D54460 15671 -0774 00 4 00000 REST3 AXC **,4 LOAD POINTER F0D54470 15672 0622 00 4 00000 STD 0,4 INSERT LOWER POINTER IN SWITCH F0D54480 15673 -0500 00 0 16411 CAL LKTBP LOAD POINTER TO NEXT LINK F0D54490 BINARY CARD NO. 9F040235 15674 0602 00 1 00000 SLW 0,1 RESTORE TABLE F0D54500 15675 0634 00 1 15676 SXA *+1,1 COMPUTE TRUE POINTER ADRESS F0D54510 15676 -0774 00 1 00000 AXC **,1 F0D54520 15677 -0634 00 1 16411 SXD LKTBP,1 RESET POINTER TO NEXT LEVEL LINK F0D54530 15700 0774 00 4 00000 RESTX AXT **,4 RELOAD CALLING LINKAGE F0D54540 15701 0774 00 1 00000 AXT **,1 RELOAD CHARACTER COUNT F0D54550 15702 0020 00 4 00002 TRA 2,4 F0D54560 F0D54570 PUSH DOWN PARAMETER F0D54580 15703 0634 00 4 15716 PDOWN SXA PDWNX,4 SAVE CALLING LINKAGE F0D54590 15704 0560 60 4 00001 LDQ* 1,4 LOAD VALUE OF PARAMETER F0D54600 15705 -0500 00 0 16411 CAL LKTBP LOAD POINTER TO NEXT LEVEL F0D54610 15706 -0100 00 0 15710 TNZ *+2 WAS TABLE ENTRY MADE F0D54620 15707 0074 00 4 06312 TSX MACERR,4 **NO F0D54630 15710 0622 60 4 00001 STD* 1,4 YES, SAVE POINTER TO HIGHER LEVEL PARAM F0D54640 15711 -0737 00 4 00000 PDC ,4 COMPUTE LOCATION OF NEXT TABLE ENTRY F0D54650 15712 -0500 00 4 00000 CAL 0,4 LOAD POINTER TO NEXT LEVEL F0D54660 15713 -0600 00 4 00000 STQ 0,4 SAVE OLD PARAMETER F0D54670 15714 0100 00 0 15470 TZE LKTOV **IS TABLE EXHAUSTED F0D54680 15715 0622 00 0 16411 STD LKTBP NO, RESET POINTER TO FOLLOWING LINK F0D54690 15716 0774 00 4 00000 PDWNX AXT **,4 RELOAD CALLING LINKAGE F0D54700 15717 0020 00 4 00002 TRA 2,4 F0D54710 F0D54720 PUSH UP PARAMETER F0D54730 15720 0634 00 4 15734 PUPUP SXA PUPPX,4 SAVE CALLING LINKAGE F0D54740 15721 -0500 00 4 00001 CAL 1,4 LOAD PARAMETER F0D54750 BINARY CARD NO. 9F040236 15722 0621 00 0 15723 STA *+1 INITIALIZE PARAMETER ADDRESS F0D54760 15723 -0535 00 4 00000 LDC **,4 LOAD POINTER TO CURRENT LEVEL F0D54770 15724 3 00000 4 15726 TXH *+2,4,0 WAS TABLE ENTRY MADE F0D54780 15725 0074 00 4 06312 TSX MACERR,4 **NO F0D54790 15726 0560 00 4 00000 LDQ 0,4 YES, LOAD FORMER LEVEL F0D54800 15727 -0500 00 0 16411 CAL LKTBP LOAD POINTER TO NEXT LEVEL F0D54810 15730 0602 00 4 00000 SLW 0,4 RESTORE TABLE F0D54820 15731 0634 00 4 15732 SXA *+1,4 COMPUTE TRUE POINTER ADDRESS F0D54830 15732 -0774 00 4 00000 AXC **,4 F0D54840 15733 -0634 00 4 16411 SXD LKTBP,4 RESET POINTER TO NEXT LINK F0D54850 15734 0774 00 4 00000 PUPPX AXT **,4 RELOAD CALLING LINKAGE F0D54860 15735 -0600 60 4 00001 STQ* 1,4 RESET FORMER LEVEL F0D54870 15736 0020 00 4 00002 TRA 2,4 F0D54880 F0D54890 PUSH / POP STATUS F0D54900 15737 0634 00 4 15760 PUPOP SXA POPPX,4 SAVE CALLING LINKAGE F0D54910 15740 0630 00 0 15763 STP PUP01+1 SET PUSH / POP SWITCH F0D54920 15741 0774 00 2 00003 AXT 3,2 LOAD LENGTH OF SCAN STATUS WORDS F0D54930 15742 0074 00 4 15762 TSX PUP01,4 *PUSH / POP SCAN STATUS F0D54940 15743 0 00000 0 16204 PZE SSLOC+1 F0D54950 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 115 PASS ONE MACRO PROCESSOR 15744 -0534 00 2 16202 LXD ARGIL,2 LOAD LENGTH OF ARGUMENT TABLE F0D54960 15745 -3 00000 2 15750 TXL *+3,2,0 ARE THERE ANY ARGUMENTS F0D54970 15746 0074 00 4 15762 TSX PUP01,4 *YES, PUSH / POP ARGUMENTS F0D54980 15747 0 00000 0 16410 PZE MARGS+1 F0D54990 BINARY CARD NO. 9F040237 15750 0774 00 2 00001 AXT 1,2 LOAD LENGTH OF IRP SWITCH F0D55000 15751 0074 00 4 15762 TSX PUP01,4 *PUSH/POP IRP INTERCEPT F0D55010 15752 0 00000 0 15355 PZE CMP22+1 F0D55020 15753 -0734 00 4 00000 PDX ,4 LOAD IRP SWITCH F0D55030 15754 -3 00000 4 15760 TXL POPPX,4,0 IS CARD IN RANGE OF IRP F0D55040 15755 0774 00 2 00004 AXT 4,2 YES, LOAD LENGTH OF IRP STATUS WORDS F0D55050 15756 0074 00 4 15762 TSX PUP01,4 *PUSH / POP IRP STATUS F0D55060 15757 0 00000 0 16210 PZE IRPAR+1 F0D55070 15760 0774 00 4 00000 POPPX AXT **,4 RELOAD CALLING LINKAGE F0D55080 15761 0020 00 4 00001 TRA 1,4 F0D55090 F0D55100 15762 -0500 00 4 00001 PUP01 CAL 1,4 LOAD ORIGIN OF LIST TO BE PUSHED / POPPED F0D55110 15763 0 00000 0 15772 *** PUP02 (TXH IF PUSH, TXL IF POP) F0D55120 15764 0621 00 0 15765 STA *+1 INITIALIZE PUSH ADDRESS F0D55130 15765 0500 00 2 00000 CLA **,2 PUSH FROM F0D55140 15766 0601 00 1 00000 STO 0,1 TO F0D55150 15767 1 77777 1 15770 TXI *+1,1,-1 BUMP TO COUNT F0D55160 15770 2 00001 2 15765 TIX *-3,2,1 IS LIST EXHAUSTED F0D55170 15771 0020 00 4 00002 TRA 2,4 YES F0D55180 15772 0621 00 0 15774 PUP02 STA *+2 INITIALIZE POP ADDRESS F0D55190 15773 0500 00 1 00000 CLA 0,1 POP FROM F0D55200 15774 0601 00 2 00000 STO **,2 TO F0D55210 15775 1 77777 1 15776 TXI *+1,1,-1 BUMP FROM COUNT F0D55220 BINARY CARD NO. 9F040238 15776 2 00001 2 15773 TIX *-3,2,1 IS LIST EXHAUSTED F0D55230 15777 0020 00 4 00002 TRA 2,4 YES F0D55240 F0D55250 STUFF MACRO DEFINITION INTO MACDEF F0D55260 STUFF MACRO CALL ARGUMENTS INTO MACEXP F0D55270 STUFF MACRO EXPANSION INTO BCDBF F0D55280 F0D55290 TO INITIALIZE CAL * F0D55300 TRA STUFY F0D55310 *** RETURN F0D55320 XR1 = -(FIRST LOC TO BE STUFFED INTO) F0D55330 XR2 = -1/+1 TO STUFF FORWARD/BACKWARD F0D55340 XR4 = -(FIRST FORBIDDEN LOCATION) OVERFLOWF0D55350 NO TEST FOR STUFFING BACKWARD F0D55360 F0D55370 TO CALL CAL * F0D55380 TRA STUFF F0D55390 *** OVERFLOW RETURN (STUFFING FORWARD) F0D55400 *** NORMAL RETURN F0D55410 XR1 = -(FIRST WORD TO BE STUFFED FROM) F0D55420 XR2 = NUMBER OF CHARS PRECEDING CHAR F0D55430 TO BE STUFFED (0 - 5) F0D55440 XR4 = NUMBER OF CHARACTERS TO STUFF F0D55450 F0D55460 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 116 PASS ONE MACRO PROCESSOR INITIALIZE STUFF ROUTINE F0D55470 16000 0361 00 0 06411 STUFY ACL Q2 COMPUTE RETURN TO CALL+1 F0D55480 16001 0621 00 0 16014 STA STUFX INITIALIZE RETURN F0D55490 16002 -0634 00 0 16177 ZSD STUM2 RESET HANGING OUTPUT CHARACTER COUNT F0D55500 16003 -0634 00 0 16024 ZSD STF01 F0D55510 16004 -0634 00 1 16023 SXD STUFI,1 SET FIRST LOCATION TO BE STUFFED INTO F0D55520 16005 -0634 00 2 16101 SXD STF08+1,2 SET DIRECTION OF STUFF F0D55530 16006 -0634 00 2 16107 SXD STF10+2,2 F0D55540 16007 0774 00 0 00000 AXT ,0 (23)F0D55550 16010 3 00001 2 16012 TXH *+2,2,1 IS STUFF BACKWARD F0D55560 16011 0774 00 4 00000 AXT 0,4 YES, DELETE OVERFLOW TEST F0D55570 16012 -0634 00 4 16064 SXD STF03+1,4 INITIALIZE OVERFLOW TESTS F0D55580 16013 -0634 00 4 16102 SXD STF08+2,4 F0D55590 16014 0020 00 0 00000 STUFX TRA ** F0D55600 F0D55610 ENTER MACRO INFORMATION INTO MACRO TABLES F0D55620 16015 0361 00 0 06411 STUFF ACL Q2 COMPUTE CALL+1 F0D55630 16016 0621 00 0 16104 STA STF09 INITIALIZE OVERFLOW RETURN F0D55640 16017 0361 00 0 06410 ACL Q1 COMPUTE CALL+2 F0D55650 16020 0621 00 0 16114 STA STF11+1 INITIALIZE NORMAL RETURN F0D55660 16021 3 00000 4 16024 TXH STF01,4,0 ANY CHARACTERS TO BE STUFFED F0D55670 16022 -0534 00 2 16101 STF12 LXD STF08+1,2 PREPARE TO BUMP STUFF POINTER (23)F0D55680 16023 1 00000 2 16114 STUFI TXI STF11+1,2,** ,,LOCATION TO BE STUFFED INTO (23)F0D55690 BINARY CARD NO. 9F040239 16024 1 00000 4 16025 STF01 TXI *+1,4,** BUMP COUNT TO INCLUDE PARTIAL STUFFED WORDF0D55700 16025 0500 00 0 16177 CLA STUM2 COMPUTE PARTIAL STUFFED BIT COUNT F0D55710 16026 0771 00 0 00001 ARS 1 (6* CHARACTER COUNT) F0D55720 16027 0400 00 0 16177 ADD STUM2 F0D55730 16030 0771 00 0 00020 ARS 16 F0D55740 16031 0601 00 0 16177 STO STUM2 F0D55750 16032 0621 00 0 16066 STA STF04 SET SHIFT TO RIGHT ADJUST F0D55760 PARTIAL STUFFED WORD F0D55770 16033 -0754 00 2 00000 PXD ,2 COMPUTE INPUT BIT COUNT F0D55780 16034 0771 00 0 00020 ARS 16 (6*(N-1) FOR NTH CHARACTER) F0D55790 16035 0601 00 0 04005 STO NERAS F0D55800 16036 0771 00 0 00001 ARS 1 F0D55810 16037 0400 00 0 04005 ADD NERAS F0D55820 16040 0601 00 0 04005 STO NERAS F0D55830 16041 0621 00 0 16070 STA STF05 SET SHIFT TO LEFT ADJUST INPUT CHARACTER F0D55840 16042 0402 00 0 16177 SUB STUM2 COMPUTE LEAD OF INPUT CHARACTER F0D55850 16043 -0120 00 0 16054 TMI STF02 DOES INPUT CHARACTER LEAD OUTPUT CHARACTERF0D55860 16044 0621 00 0 16075 STA STF07 NO, SET SHIFT TO APPEND LEADING F0D55870 CHARACTERS IN NEXT INPUT WORD F0D55880 16045 0402 00 0 06431 SUB Q36 F0D55890 16046 0621 00 0 16100 STA STF08 SET SHIFT TO RIGHT ADJUST FOLLOWING F0D55900 CHARACTERS IN NEXT INPUT WORD F0D55910 16047 0400 00 0 16177 ADD STUM2 F0D55920 16050 0621 00 0 16071 STA STF05+1 SET SHIFT TO APPEND LEADING F0D55930 CHARACTERS IN FIRST INPUT WORD F0D55940 16051 0500 00 0 06474 CLA P7 SET SWITCH TO LOAD NEXT INPUT WORD F0D55950 BINARY CARD NO. 9F040240 16052 0630 00 0 16072 STP STF06 FOR BALANCE OF FIRST STUFFED WORD F0D55960 16053 0020 00 0 16063 TRA STF03 F0D55970 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 117 PASS ONE MACRO PROCESSOR FIRST INPUT CHARACTER LEADS LAST OUTPUT CHARACTER F0D55980 16054 0621 00 0 16100 STF02 STA STF08 SET SHIFT TO RIGHT ADJUST FOLLOWING F0D55990 CHARACTERS IN NEXT INPUT WORD F0D56000 16055 0400 00 0 06431 ADD Q36 F0D56010 16056 0621 00 0 16075 STA STF07 SET SHIFT TO APPEND LEADING F0D56020 CHARACTERS IN NEXT INPUT WORD F0D56030 16057 0402 00 0 04005 SUB NERAS F0D56040 16060 0621 00 0 16071 STA STF05+1 SET SHIFT TO APPEND LEADING F0D56050 CHARACTERS IN FIRST INPUT WORD F0D56060 16061 -0500 00 0 06474 CAL P7 SET SWITCH TO RETAIN FIRST INPUT WORD F0D56070 16062 0630 00 0 16072 STP STF06 FOR BALANCE OF FIRST STUFFED WORD F0D56080 STUFF ROUTINE IS INITIALIZED. STUFF OUTPUT WORDS F0D56090 16063 -0534 00 2 16023 STF03 LXD STUFI,2 LOAD LOCATION OF FIRST WORD TO BE STUFFED F0D56100 16064 -3 00000 2 16104 TXL STF09,2,** WILL STUFFED WORD OVERFLOW F0D56110 16065 0560 00 2 00000 LDQ 0,2 NO, LOAD PARTIAL STUFFED WORD F0D56120 16066 -0763 00 0 00000 STF04 LGL ** RIGHT ADJUST PARTIAL STUFFED WORD F0D56130 16067 0560 00 1 00000 LDQ 0,1 LOAD FIRST INPUT WORD F0D56140 16070 -0773 00 0 00000 STF05 RQL ** LEFT ADJUST FIRST INPUT CHARACTER F0D56150 16071 -0763 00 0 00000 LGL ** APPEND INPUT CHARACTERS TO PARTIAL WORD F0D56160 16072 0 00000 0 16076 STF06 *** STF07+1,,0 DOES INPUT CHARACTER LEAD OUTPUT CHARACTERF0D56170 16073 1 77777 1 16074 TXI *+1,1,-1 NO, BUMP INPUT WORD COUNT TO NEXT WORD F0D56180 16074 0560 00 1 00000 LDQ 0,1 LOAD NEXT INPUT WORD F0D56190 16075 -0763 00 0 00000 STF07 LGL ** APPEND LEADING CHARACTERS NEXT INPUT WORD F0D56200 16076 0602 00 2 00000 SLW 0,2 ADD TO TABLE F0D56210 16077 -2 00006 4 16105 TNX STF10,4,6 IS ENTRY COMPLETE F0D56220 BINARY CARD NO. 9F040241 16100 -0763 00 0 00000 STF08 LGL ** NO, RIGHT ADJUST FOLLOWING CHARACTERS F0D56230 NEXT INPUT WORD F0D56240 16101 1 00000 2 16102 TXI *+1,2,** BUMP STUFFED WORD COUNT F0D56250 16102 3 00000 2 16073 TXH STF06+1,2,** WILL STUFFED WORD OVERFLOW F0D56260 16103 -0634 00 2 16023 SXD STUFI,2 YES, SAVE LAST WORD STUFFED F0D56270 16104 0020 00 0 00000 STF09 TRA ** RETURN TO CALL+1 F0D56280 ENTRY IS COMPLETE F0D56290 16105 -3 00005 4 16110 STF10 TXL *+3,4,5 WAS LAST WORD COMPLETE F0D56300 16106 0774 00 4 00000 AXT 0,4 YES, RESET HANGING CHARACTER COUNT F0D56310 16107 1 00000 2 16110 TXI *+1,2,** BUMP STUFFED WORD COUNT FOR FINAL WORD F0D56320 16110 -0634 00 2 16023 SXD STUFI,2 SAVE LOCATION OF LAST (PART) WORD STUFFED F0D56330 16111 -0634 00 4 16177 SXD STUM2,4 SAVE PARTIAL WORD CHARACTER COUNT F0D56340 16112 -0634 00 4 16024 SXD STF01,4 F0D56350 16113 3 00000 4 16022 STF11 TXH STF12,4,0 BUMP COUNT IF PARTIAL WORD EXISTS (23)F0D56360 16114 0020 00 0 00000 TRA ** RETURN TO CALL+2 F0D56370 F0D56380 GENERALIZED SCAN ROUTINE F0D56390 F0D56400 SCANS FOR SELECTED CHARACTER IN LOW ORDER POSITION F0D56410 IN TABLE AT LOCATION C OF LENGTH N F0D56420 TABLE IN DECREASING SORT ORDER F0D56430 F0D56440 TO INITIALIZE TSX SCANS,4 F0D56450 TXL K,,C+N RETURN TO K AFTER EACH CH F0D56460 (TXH ,,C+N NO RETURN) F0D56470 TXL L,,N RETURN TO L AFTER SEL CH F0D56480 TXL M,1,-J-1 RETURN TO M AFTER J EXHST F0D56490 (TXH M,1,-J SCAN BACKWARD) F0D56500 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 118 PASS ONE MACRO PROCESSOR F0D56510 TO CALL, REGISTERS UPDATED F0D56520 TRA SCANT F0D56530 TO CALL, REGISTERS UNDISTURBED F0D56540 TRA SCANU F0D56550 OR TXI SCANU+1,2,1 F0D56560 F0D56570 ON RETURN XR1, XR2 AT LAST CHARACTER SCANNED F0D56580 CURRENT CHARACTER IN AC F0D56590 SELECTED CHARACTER POSITION IN XR4 F0D56600 F0D56610 16115 -0500 00 4 00001 SCANS CAL 1,4 LOAD RETURN1,,ORIGIN AT END OF TABLE F0D56620 16116 0602 00 0 16153 SLW SCAN6 INITIALIZE SINGLE CHARACTER RETURN F0D56630 16117 0771 00 0 00022 ARS 18 F0D56640 16120 0621 00 0 16147 STA SCAN4 INITIALIZE ORIGIN OF SELECTED CHAR TABLE F0D56650 16121 -0500 00 4 00002 CAL 2,4 LOAD RETURN2,,LENGTH OF TABLE F0D56660 16122 0602 00 0 16151 SLW SCAN5 INITIALIZE SELECTED CHARACTER RETURN F0D56670 16123 0560 00 4 00003 LDQ 3,4 LOAD RETURN3,,END OF SCAN TEST F0D56680 16124 -0600 00 0 16135 STQ SCAN2 INITIALIZE TEST FOR END OF SCAN F0D56690 16125 -0500 00 0 06453 CAL D1 PRELOAD BUMPER BACKWARD F0D56700 BINARY CARD NO. 9F040242 16126 0162 00 0 16130 TQP *+2 IS SCAN BACKWARD F0D56710 16127 -0500 00 0 06470 CAL D32767 NO, LOAD BUMPER FORWARD F0D56720 16130 0622 00 0 16133 STD SCAN1 SET DIRECTION OF SCAN F0D56730 16131 0020 00 4 00004 TRA 4,4 F0D56740 F0D56750 16132 -3 00005 2 16135 SCANT TXL SCAN2,2,5 IS WORD EXHAUSTED F0D56760 16133 1 00000 1 16134 SCAN1 TXI *+1,1,** YES, BUMP TO NEXT WORD F0D56770 16134 1 77772 2 16132 TXI SCANT,2,-6 RESET CHARACTER COUNT F0D56780 16135 0 00000 0 00000 SCAN2 *** **,,** IS SCAN EXHAUSTED F0D56790 16136 0560 00 1 00000 LDQ 0,1 NO, LOAD CURRENT WORD F0D56800 16137 -3 00000 2 16144 TXL SCAN3,2,0 IS FIRST CHARACTER NEXT F0D56810 16140 -0754 00 2 00000 PXD ,2 NO, COMPUTE LENGTH OF SHIFT F0D56820 16141 -0734 00 4 00000 PDX ,4 F0D56830 16142 -0773 00 0 00006 RQL 6 ROLL UP NEXT CHARACTER F0D56840 16143 2 00001 4 16142 TIX *-1,4,1 IS THIS IT F0D56850 16144 -0754 00 0 00000 SCAN3 ZAC YES, LOAD NEXT CHARACTER F0D56860 16145 -0763 00 0 00006 LGL 6 F0D56870 16146 -0534 00 4 16151 LXD SCAN5,4 LOAD LENGTH OF SPECIAL CHARACTER TABLE F0D56880 16147 -0340 00 4 00000 SCAN4 LAS **,4 IS IT THIS CHARACTER F0D56890 16150 0020 00 0 16153 TRA SCAN6 NO, NOT IN TABLE F0D56900 16151 0 00000 0 00000 SCAN5 *** **,,** YES, RETURN F0D56910 16152 2 00001 4 16147 TIX SCAN4,4,1 IS TABLE EXHAUSTED F0D56920 16153 0 00000 0 00000 SCAN6 *** **,,** YES, IS SINGLE CHARACTER RETURN REQUESTED F0D56930 BINARY CARD NO. 9F040243 16154 1 00001 2 16155 SCANU TXI *+1,2,1 NO, BUMP TO NEXT CHARACTER F0D56940 16155 -3 00005 2 16144 TXL SCAN3,2,5 IS WORD EXHAUSTED F0D56950 16156 0020 00 0 16133 TRA SCAN1 YES F0D56960 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 119 PASS ONE MACRO PROCESSOR MACRO PROCESSOR ERASABLE STORAGE AND CONSTANTS F0D56980 F0D56990 16157 0 00000 0 00000 ARGNO PZE ,,** MACRO ARGUMENT NUMBER F0D57000 16160 0 00000 0 00000 ARGWD PZE MACRO LOCATION ARGUMENT F0D57010 16161 0 00000 0 00000 COUNT PZE ,,** MACRO FIELD COUNT F0D57020 16162 0 00005 0 00000 CRSNO PZE **,,5 POINTER TO LAST CREATED SYMBOL,,COUNT F0D57030 16163 0 00000 0 00000 LCARG PZE MACRO LOCATION ARGUMENT F0D57040 16164 0 00000 0 00000 MACNO PZE **,,** MACRO LEVEL,,POINTER TO NEXT LEVEL F0D57050 16165 0 00000 0 00000 MCIND PZE ** FLAG FOR INDIRECTLY ADDRESSED MACRO F0D57060 16166 0 00000 0 00000 MOPCH PZE NEXT CHARACTER IN MACRO VARIABLE FIELD F0D57070 16167 0 00000 0 00000 MOPMQ PZE RESIDUE OF WORD IN MACRO VARIABLE FIELD F0D57080 16170 0 00000 0 00000 MOPNM PZE NAME OF MACRO BEING DEFINED F0D57090 16171 2 12572 0 14377 MOPTR PTW MACOP+1,,-VECTOR+1 SECOND WORD IN COMBINED OPERATN TABLE F0D57100 DECREMENT IS POINTER TO NEXT AVAILABLE F0D57110 SPACE FOR HEADING IN MACRO DEF TABLE F0D57120 TABLE EXTENDS DOWN TOWARDS MACEXP F0D57130 PASS 2 TRANSFER ADDRESS WILL REPLACE THIS F0D57140 WHEN PASSED FORWARD ON INTERMEDIATE TAPE F0D57150 16172 0 00000 0 00000 PARNC PZE ** MACRO PARENTHESES COUNT F0D57160 16173 0 00000 0 00000 PCONT PZE ,,** MACRO PARTIAL FIELD OR HOLLERITH COUNT F0D57170 16174 0 00000 0 00000 PSYMB PZE MACRO PARTIAL FIELD F0D57180 16175 0 61602 0 00000 RMTEN PZE ,,-*-1 (1) POINTER TO MOST RECENTLY DEFINED SEQUENCE F0D57190 16176 0 00000 0 00000 PZE ,,** (2) POINTER TO FIRST REMOTE SEQUENCE F0D57200 16177 0 00000 0 00000 STUM2 PZE **,,** PARTIAL STUFFED WORD BIT COUNT,,CHAR COUNTF0D57210 16200 0 00000 0 00000 TOTAL PZE ,,** MACRO VARIABLE FIELD COUNT F0D57220 16201 0 00000 0 00000 MDFCT PZE **,,** (1) MACRO DEFINITION WORD,,CHARACTER COUNTS F0D57230 BINARY CARD NO. 9F040244 16202 0 00000 0 00000 ARGIL PZE ,,** (2) ,,NUMBER OF ARGUMENTS F0D57240 16203 0 00000 0 00000 SSLOC PZE **,,** (3) IND ADD FLAG,,POINTER TO LAST SAVED SCAN F0D57250 FOLLOWING PARAMS DESCRIBE IRP CARD WITHIN MACRO DEF TABLEF0D57260 16204 0 00000 0 00000 IRPNO PZE **,,** (1) PUNCTUATION CHARACTER,,ARGUMENT COUNT F0D57270 16205 0 00000 0 00000 IRPPW PZE **,,** (2) MACRO SKELETON WORD,,CHARACTER COUNTS F0D57280 16206 0 00000 0 00000 IRPSD PZE **,,** (3) BEGINNING OF STRING WORD,,CHARACTER COUNT F0D57290 16207 0 00000 0 00000 IRPAR PZE **,,** (4) REF TO THIS ARG,,POINTER TO NEXT ARG F0D57300 16310 DARGS BES 64 BCD MACRO DEFINITION ARGUMENTS F0D57310 16310 BSS 63 (1) POINTERS TO ARGS IN MACRO EXPANSION TABLE F0D57320 BINARY CARD NO. 9F040245 16407 0 00000 0 00000 MARGS PZE **,,** (2) -(LOC OF STRING),,(LENGTH OF STRING) F0D57330 16410 1 00000 0 00000 LKTBB TXI **,,** OLD TRANSFER ADDRESS,,POINTER F0D57340 16411 LKTBP DUP 1,112 F0D57350 16411 0 16412 0 00000 PZE ,,*+1 ,,POINTER TO NEXT LINK F0D57360 BINARY CARD NO. 9F040246 BINARY CARD NO. 9F040247 BINARY CARD NO. 9F040248 BINARY CARD NO. 9F040249 BINARY CARD NO. 9F040250 16571 0 00000 0 00000 PZE LINK TABLE END F0D57370 F0D57380 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 120 PASS ONE MACRO PROCESSOR 16572 -0 13565 0 00000 MOPP2 MZE ,,5$UNLOP+1 PASS 2 TRANSFER TO PRINT MACRO CARD F0D57390 16573 0 13425 0 00000 RMTP2 PZE ,,5$RMTOP PASS TWO ADDRESS TO RESET HEADING CHAR F0D57400 16574 1 00001 0 14736 PRNLT TXI SSN10,,1 TRANSFER TO DISABLE SCAN ON , F0D57410 16575 1 00000 0 14714 PRNLS TXI SSN07,,0 TRANSFER TO ENABLE SCAN ON , F0D57420 F0D57430 16576 0 00000 0 00077 MDTBL PZE 63 (1) ARGUMENT MARK F0D57440 16577 0 00000 0 00076 PZE 62 (2) VARIABLE FIELD MARK F0D57450 16600 0 00000 0 00001 PZE 01 (3) OPCODE MARK F0D57460 16601 0 00000 0 00000 PZE 00 (4) END OF RECORD MARK F0D57470 F0D57480 16602 +007777770000 MPKMK OCT 007777770000 MASK FOR CARD COLUMNS 8 - 10 F0D57490 16603 -377777777777 OCT 777777777777 (1) F0D57500 16604 -377777777700 OCT 777777777700 (2) F0D57510 16605 -377777770000 OCT 777777770000 (3) F0D57520 16606 -377777000000 OCT 777777000000 (4) F0D57530 16607 -377700000000 OCT 777700000000 (5) F0D57540 16610 -370000000000 OCT 770000000000 (6) F0D57550 16611 +000000000000 MARMK OCT 000000000000 (7) F0D57560 F0D57570 16612 003151476000 IRPMK BCI 1,0IRP 0 F0D57580 BINARY CARD NO. 9F040251 16613 222324000000 BCDMM BCI 1,BCD000 F0D57590 16614 222331000000 BCIMM BCI 1,BCI000 F0D57600 16615 636343000000 TTLMM BCI 1,TTL000 THIRD OF FOUR ENTRIES IN TABLE (23)F0D57610 16616 512544000000 REMMM BCI 1,REM000 F0D57620 16617 514463000000 RMTMM BCI 1,RMT000 F0D57630 16620 254524000000 ENDMM BCI 1,END000 (23)F0D57640 16621 235162704422 CRSNM BCI 1,CRSYMB F0D57650 16622 432565254360 LVLNM BCI 1,LEVEL F0D57660 16623 442123514660 MDFNM BCI 1,MACRO F0D57670 16624 607434606060 PARFL BCI 1, () F0D57680 16625 606460606060 UNDFL BCI 1, U F0D57690 16626 000033000000 CRPT1 BCI 1,00.000 DECIMAL POINT FOR CREATED SYMBOL CHAR 3 F0D57700 16627 330000000060 CRPT2 BCI 1,.0000 DECIMAL POINT FOR CREATED SYMBOL CHAR 2 F0D57710 F0D57720 16630 0200 00 0 06430 NUM04 MPY INP06 (25)F0D57730 16631 -0600 00 0 06430 STQ INP06 (25)F0D57740 16632 0020 00 0 12000 TRA UPD03 RETURN (25)F0D57750 16633 0 00000 0 00000 PZE (NOT USED) (25)F0D57760 F0D57770 16634 000000000074 MCTBL BCI 1,00000( (1) F0D57780 16635 000000000073 BCI 1,00000, (2) F0D57790 16636 000000000060 BCI 1,00000 (3) F0D57800 16637 000000000034 BCI 1,00000) (4) F0D57810 F0D57820 16640 606060606060 ETCCD BCI 3, ETC F0D57830 BINARY CARD NO. 9F040252 16643 606060606060 RMTCD BCI 6, REM REMOTE SEQUENCES F0D57840 F0D57850 FORM OF ENTRY IN MACRO DEFINITION TABLE F0D57860 HEADING, MACRO DEF PZE ,,ARGUMENT COUNT F0D57870 (MZE IF LAST ARG IS SYMBOLIC LOC) F0D57880 RMT SEQ PZE HEAD CHAR,,PTR TO NEXT SEQUENCE F0D57890 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 121 PASS ONE MACRO PROCESSOR CARD IMAGE SKELETONS FOLLOW F0D57900 F0D57910 STRUCTURE OF SKELETONIZED CARD IMAGE F0D57920 FIELD MARKS (OCTAL) 01 OPCODE FOLLOWS F0D57930 76NN VARIABLE FIELD FOLLOWS (24)F0D57940 (PRECEDED BY NN CARD CHARACTERS) (24)F0D57945 00 END OF RECORD F0D57950 (END MARK IS DOUBLE END OF RECORD) F0D57960 FORM OF FIELD, ARG 77NN WHERE NN IS ARGUMENT NUMBER F0D57970 OR 7700 FLAG FOR PROGRAMMERS ETC F0D57980 OR NNXX WHERE NN IS CHARACTER COUNT+1 F0D57990 F0D58000 F0D58010 16651 0600 00 0 04001 ETCPC STZ SYMBL DELETE ADDED FIELD $F0D58020 16652 0534 00 2 13507 LXA GSAV2,2 RESTORE X2 $F0D58021 16653 0020 00 0 13736 TRA GSC18 $F0D58022 16654 -0500 00 0 04274 HYPOP CAL OPBIN LOAD OPCODE $F0D58023 16655 0602 00 0 04273 SLW LITRL SAVE FOR PASS TWO $F0D58024 16656 0774 00 4 13350 AXT 5$HYPOP,4 SET PASS TWO TRANSFER ADDRESS $F0D58025 16657 -0634 00 4 04274 SXD OPBIN,4 $F0D58026 16660 0074 00 4 07334 TSX ESYML,4 *DEFINE POSSIBLE LOCATION FIELD $F0D58027 16661 0500 00 0 06410 CLA Q1 ORDER TAKES ONE WORD $F0D58028 16662 0074 00 4 06265 TSX BPCTR,4 *BUMP LOCATION COUNTER $F0D58029 16663 0020 00 0 10550 TRA READ1 $F0D58030 $F0D58031 16664 0560 00 0 04276 SRCS1 LDQ INSBF+1 LOAD SOURCE CARD LOCATION FIELD $F0D58032 16665 -0754 00 0 00000 ZAC $F0D58033 16666 -0763 00 0 00006 LGL 6 $F0D58034 BINARY CARD NO. 9F040253 16667 0322 00 0 06523 ERA ASTRK IS IT *REMARK CARD $F0D58035 16670 0100 00 0 16674 TZE *+4 YES $F0D58036 16671 0322 00 0 06425 ERA Q7 IS IT $REMARK CARD $F0D58037 16672 0100 00 0 16674 TZE *+2 YES $F0D58038 16673 -0500 00 0 06470 CAL D32767 NO,PUT OCTAL 77777 IN DECREMENT $F0D58039 16674 0622 00 0 16702 STD INP2A+1 SET REMARK CARD SWITCHES $F0D5803A 16675 0622 00 0 16704 STD INP3A $F0D5803B 16676 0622 00 0 16707 STD INPCH $F0D5803C 16677 -0500 00 0 10144 CAL SRCID COMBINE SOURCE SERIALIZATION $F0D5803D 16700 0020 00 0 07512 TRA SRCSW+4 $F0D5803E 16701 -0634 00 0 07710 INP2A ZSD DELUP+2 RESET HANGING INGORE SWITCH $F0D5803F 16702 3 77777 4 07601 TXH INP02+17,4,-1 TRANSFER IF REMARKS CARD $F0D5803G 16703 0020 00 0 07570 TRA INP02+8 $F0D5803H 16704 3 77777 4 07646 INP3A TXH INP04-7,4,-1 TRANSFER IF REMARKS CARD $F0D5803I 16705 -0500 00 0 04256 CAL BCDBF+1 LOAD SOURCE WORD 2 $F0D5803J 16706 0020 00 0 07631 TRA INP03+6 $F0D5803K 16707 3 77777 4 07623 INPCH TXH INP03,4,-1 IF REMARKS CARD-DELETE AND PRINT $F0D5803L 16710 -0500 00 0 04277 CAL INSBF+2 LOAD SOURCE WORD 2 $F0D5803M 16711 0322 00 0 16716 ERA IGNR IS IT IGNORE $F0D5803N 16712 -0100 00 0 07623 TNZ INP03 NO,DELETE AND PRINT CARD $F0D5803O 16713 0774 00 4 77777 AXT -1,4 YES,SET IGNORE SWITCH $F0D5803P 16714 -0634 00 4 07710 SXD DELUP+2,4 $F0D5803Q 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 122 PASS ONE MACRO PROCESSOR BINARY CARD NO. 9F040254 16715 0020 00 0 07623 TRA INP03 DELETE,DO NOT PRINT $F0D5803R 16716 603127454651 IGNR BCI 1, IGNOR $F0D5803S 16717 -0520 00 0 03740 CALN1 NZT ABSFLG IS IT ABSOLUTE ASSEMBLY $F0D5803T 16720 -0625 00 0 04023 STL TVFLG NO,SET TRANSFER VECTOR NAME FLAG $F0D5803U 16721 0020 00 0 07265 TRA CALNM+3 $F0D5803V 16722 0074 00 4 07334 MAC2A TSX ESYML,4 *DEFINE LOCATION FIELD $F0D5803W 16723 0020 00 0 14551 TRA MAC07+3 $F0D5803X 16724 3 00000 4 07400 ESYMZ TXH ESYMS+1,4,** DID WE OVERLAP MACRO TABLE $F0D5803Y 16725 0020 00 0 07372 TRA ESYMS-5 YES, CALL SOURCE ERROR $F0D5803Z 16726 0600 00 0 04101 EOFIN STZ TTLFG KILL SUBTITLE (26)F0D58040 16727 0020 00 0 16735 TRA EOFER (26)F0D58041 16730 0774 00 2 00000 ETEST AXT 0,2 $F0D58042 16731 0441 00 0 73677 LDI (SCHU)+MINTAP $F0D58043 16732 0056 00 000100 RNT 100 IS IT REDUNDANCY ERROR $F0D58044 16733 0020 00 0 10175 TRA SRCRR+2 YES-MACHINE ERRROR $F0D58045 16734 0020 00 0 16736 TRA *+2 NO - BINARY CARD $F0D58046 16735 0774 00 2 77777 EOFER AXT -1,2 END OF FILE CARD $F0D58047 16736 0074 00 4 04361 TSX FPRINT,4 PRINT POSSIBLE REASON FOR ERROR $F0D58048 16737 0 00012 0 10203 PZE SRCRM,,10 $F0D58049 16740 -0500 00 2 10215 AECRD CAL ECARD,2 SET UP ERROR MESSAGE $F0D5804A 16741 0602 00 0 16755 SLW ENDER+4 (26)F0D5804B 16742 0074 00 4 04361 TSX FPRINT,4 PRINT ERROR MESSAGE $F0D5804C BINARY CARD NO. 9F040255 16743 0 00006 0 16751 PZE ENDER,,6 OFF LINE (26)F0D5804D 16744 0074 00 4 73606 TSX (TAPE),4 BACKSPACE OVER EOF (26)F0D5804E 16745 0 20002 0 06767 PZE BSREC,,(SKDP) OR BINARY (26)F0D5804F 16746 0 00005 0 00000 PZE ,,MINTAP (26)F0D5804G 16747 0074 00 4 04512 TSX WRFBK,4 WRITE LAST PARTIAL LISTING BUFFER (26)F0D5804H 16750 0074 00 4 73643 TSX (SECL),4 CALL SOURCE ERROR RECORD (26)F0D5804I 16751 603021626023 ENDER BCI 6, HAS CAUSED FAP TO READ CARD (26)F0D5804. 16757 DUP 1,4 PATCH SPACE (26)F0D5804) 16757 0 00000 0 00000 PZE (26)F0D5804J 16763 0621 00 0 04272 OTPT3 STA BCDBF+13 AS LOW ORDER 18 BITS $F0D5804M 16764 0625 00 0 04272 STT BCDBF+13 OF WORD 14 $F0D5804N 16765 0020 00 0 10336 TRA OTPT2+1 $F0D5804O 16766 0534 00 4 15511 RMT03 LXA CLEVL,4 GET MACRO NESTING LEVEL $F0D5804P 16767 3 00000 4 13306 TXH RMT02+2,4,0 WAS THIS NESTED DEFINITION $F0D5804Q 16770 -0634 00 2 16724 SXD ESYMZ,2 NO,INITIALIZE TEST $F0D5804R BINARY CARD NO. 9F040256 16771 0020 00 0 13306 TRA RMT02+2 $F0D5804S 16772 0500 00 0 17151 PMC2P CLA STPTR FLOAT MACRO EXPANSION TABLE $F0D5804T 16773 0401 00 0 16171 ADM MOPTR BETWEEN SYMBOL TABLE AND $F0D5804U 16774 0771 00 0 00001 ARS 1 MACRO DEFINITION TABLE $F0D5804V 16775 -0734 00 1 00000 PDX ,1 $F0D5804W 16776 -0634 00 1 16724 SXD ESYMZ,1 INITIALIZE SYMBOL TABLE OVERFLOW TEST $F0D5804X 16777 0020 00 0 15547 TRA PMCS2+1 $F0D5804Y 17000 -0120 00 0 10550 STP0A TMI READ1 TRANSFER IF CC7 * COMMENTS CARD $F0D5804Z 17001 -0634 00 0 10534 ZSD COMCD+2 OTHERWISE RESET SWITCH $F0D58050 17002 0020 00 0 10536 TRA COMCD+4 $F0D58051 17003 -0500 60 0 73660 FRPA1 CAL* (FGBX) $F0D58052 17004 -0320 00 0 06412 ANA Q4 IS THIS AN IBSFAP JOB $F0D58053 17005 -0100 00 0 10510 TNZ ENDC+2 YES $F0D58054 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 123 PASS ONE MACRO PROCESSOR 17006 0056 00 000040 RNT 000040 NO,IS END CARD SETTING 10 SPECIFIED $F0D58055 17007 -0634 00 0 04472 ZSD WRIT0+3 NO,SET SWITCH TO UNBUFFER LISTING OUTPUT $F0D58056 17010 0020 00 0 10510 TRA ENDC+2 $F0D58058 17011 0520 00 0 04047 FRPA2 ZET FCFLG IS THIS FIRST CARD GROUP $F0D58059 17012 0020 00 0 12564 TRA FIELD **NO $F0D58060 17013 0074 00 4 06126 GO TSX SSCAN,4 *FIND VARIABLE FIELD $F0D58064 17014 0020 00 0 17023 TRA TEST VARIABLE FIELD BLANK $F0D58065 17015 -0500 00 0 04001 CAL SYMBL IS VARIABLE FIELD $F0D58066 17016 0322 00 0 17036 ERA TROF FORTRAN $F0D58067 BINARY CARD NO. 9F040257 17017 0100 00 0 17034 TZE FORT YES $F0D58068 17020 -0500 00 0 04001 CAL SYMBL NO, IS VARIABLE FIELD $F0D58069 17021 0322 00 0 17037 ERA SISBI IBSYS $F0D58070 17022 0100 00 0 17026 TZE TBLE YES $F0D58071 17023 0441 60 0 73660 TEST LDI* (FGBX) $F0D58072 17024 0056 00 000004 RNT 4 IS THIS AN IBSFAP JOB $F0D58073 17025 0020 00 0 17034 TRA FORT NO, THIS IS A FORTRAN JOB $F0D58074 17026 0500 00 0 17040 TBLE CLA SIZE $F0D58075 17027 0622 00 0 23270 STD SYMSIZ CHANGE SST SIZE $F0D58076 17030 0774 00 1 00260 AXT LIBTBL,1 $F0D58077 17031 0500 00 1 23747 LOOP CLA SYSTBL+LIBTBL,1 $F0D58078 17032 0601 00 1 23551 STO SYMTBL+LIBTBL,1 $F0D58079 17033 2 00001 1 17031 TIX LOOP,1,1 $F0D58080 17034 -0634 00 0 07337 FORT ZSD ESYMT+2 SET SWITCH TO SAVE SST $F0D58081 17035 0020 00 0 10550 TRA READ1 $F0D58082 17036 465163512145 TROF BCI 1,ORTRAN $F0D58083 17037 003122627062 SISBI BCI 1,0IBSYS $F0D58084 17040 0 77520 0 00000 SIZE PZE **,,-LIBTBL $F0D58085 17041 0760 00 0 00144 PATCHA SLN FLDND SENSE LIGHT INDICATES END OF VAR. FIELD $F0D58092 17042 0020 00 0 12425 TRA UPSCX RETURN TO RELOAD CALLING SEQUENCE $F0D58093 D 17043 0074 01 4 73600 JPLCH TSX (LOAD),4,1 *AFTER PASS ONE, CALL PASS TWO. $F0D58094 17044 112600050000 BCI 1,9F0500 REC. 6 PARAMETER. PASS 2. $F0D58095 BINARY CARD NO. 9F040258 17045 0322 00 0 06522 MSC07 ERA BLANK IS PUNCTUATION ) (24)F0D58096 17046 0100 00 0 13365 TZE MSC06 YES, STUFF AS PART OF OP CODE (24)F0D58097 17047 0322 00 0 06525 ERA MINUS NO, IS PUNCTUATION ( (24)F0D58098 17050 -3 77776 2 17053 TXL MSC08,2,-2 (MAKE THE CHECK ONLY IF IT WAS (24)F0D58099 17051 -3 00005 1 17053 TXL MSC08,1,5 FOUND IN CARD COLUMN EIGHT) (24)F0D58100 17052 0100 00 0 13365 TZE MSC06 YES, STUFF AS PART OF OP CODE (24)F0D58101 17053 0322 00 0 06530 MSC08 ERA PRIME IS PUNCTUATION BLANK (24)F0D58102 17054 0100 00 0 13371 TZE MSC05 IF YES, STUFF VARIABLE FIELD FLAG (24)F0D58103 17055 0560 00 0 03756 LDQ RESIDU NO, RESET SCAN POSITION TO INCLUDE (24)F0D58104 17056 -0500 00 0 03755 CAL CHRCTR CURRENT PUNCTUATION CHARACTER (24)F0D58105 17057 -0765 00 0 00006 LGR 6 (24)F0D58106 17060 -0600 00 0 03756 STQ RESIDU (24)F0D58107 17061 1 00001 1 13401 TXI MSC10+2,1,1 GO TO VARIABLE FIELD SCAN (24)F0D58108 17062 0560 00 0 16167 MSC09 LDQ MOPMQ RESTORE BEGINNING OF VARIABLE (24)F0D58109 17063 -0600 00 0 03756 STQ RESIDU FIELD FOR SCAN ROUTINES (24)F0D58110 17064 -0500 00 0 16166 CAL MOPCH (24)F0D58111 17065 0602 00 0 03755 SLW CHRCTR (24)F0D58112 17066 0535 00 1 04012 LAC VRFLD,1 LOAD CHARACTER AND WORD POSITIONS (24)F0D58113 17067 -0535 00 2 04012 LDC VRFLD,2 OF VARIABLE FIELD SCAN (24)F0D58114 17070 3 00001 2 17072 TXH *+2,2,1 COMPUTE NUMBER OF CHARACTERS (24)F0D58115 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 124 PASS ONE MACRO PROCESSOR 17071 1 00015 1 13374 TXI MSC05+3,1,13 PRECEDING VARIABLE FIELD (24)F0D58116 17072 1 00023 1 13374 TXI MSC05+3,1,19 (24)F0D58117 BINARY CARD NO. 9F040259 17073 0402 00 0 06453 G10PA SUB D1 *OMIT BLANK PUNCTUATION CHARACTER $F0D58118 17074 0601 00 0 16173 STO PCONT FROM STUFF COUNT. $F0D58119 REENTRY FOR FIELD IS AN ARGUMENT WITH BLANK PUNCTUATION.$F0D58120 17075 -0634 00 4 13627 G10P1 SXD GSC09+3,4 *SET FIRST BLANK SWITCH TO AVOID $F0D58121 UPDATING PCONT TO INCLUDE $F0D58122 BLANK PUNCTUATION ONLY. $F0D58123 17076 -3 77776 4 13642 TXL GSC11,4,-2 *IS FIELD AN ARGUMENT... $F0D58124 17077 0600 00 0 16173 STZ PCONT YES.ZERO PARTIAL STUFF COUNT IN CASE $F0D58125 GSC11+3 IS REACHED BEFORE GSC10+2. $F0D58126 17100 0020 00 0 13502 TRA MSC23 *ENTRY WAS FROM GSC10+1. $F0D58127 17101 -0634 00 1 17107 GSFPA SXD GSFP2,1 *STORE NO.+5 TO STUFF 2ND TIME. $F0D58128 17102 0774 00 1 00023 AXT 19,1 STUFF 18 CHARACTERS FIRST TIME. $F0D58129 17103 0074 00 4 14023 TSX GSCS1-2,4 *SET GSCFX TO RETURN TO PATCH. $F0D58130 17104 0774 00 4 00000 GSFP1 AXT **,4 *SET GSCFX TO RETURN TO CALLER. $F0D58131 17105 0774 00 1 77774 AXT -4,1 UPDATE GSCX1 WITH LOCATION $F0D58132 17106 0634 00 1 14031 SXA GSCX1,1 TO STUFF FROM NEXT. $F0D58133 17107 1 00000 1 14023 GSFP2 TXI GSCS1-2,1,** *STUFF REMAINDER OF FIELD. $F0D58134 17110 3 00000 4 15466 MP1 TXH OVRLP,4,** DID TABLE OVERFLOW $F0D58135 17111 -0634 00 4 16023 SXD STUFI,4 NO, PICK UP LAST LOCATION USED $F0D58136 17112 0020 00 0 14053 TRA RESTF+3 $F0D58137 $F0D58138 17113 0500 00 0 12407 SKF01 CLA UPT02+1 WAS SKPFIL TAPE $F0D58139 17114 0402 00 0 10017 SUB UPDTAP SAME AS UPDATE INPUT $F0D58140 17115 -0100 00 0 10616 TNZ SOURC **NO $F0D58141 17116 0634 00 0 17264 ZSA IPRECT YES,ZERO MEANINGLESS COUNT $F0D58142 17117 0074 00 4 10012 TSX RDUPD,4 *REINITIATE BUFFER READING $F0D58143 17120 0774 00 4 77777 AXT -1,4 SET EMPTY BUFFER SWITCH $F0D58144 BINARY CARD NO. 9F040260 17121 -0634 00 4 07516 SXD UPDSW,4 $F0D58145 17122 0020 00 0 10616 TRA SOURC $F0D58146 17123 -0625 00 0 04130 EVNOP STL EVNFLG SET FLAG FOR EVEN PROLOGUE, ETC. $F0D58147 17124 0441 00 0 03761 LDI LOCTR GET PROGRAM COUNTER $F0D58148 17125 -0500 00 0 06410 CAL Q1 $F0D58149 17126 0054 00 000001 RFT 1 IS IT ODD.. $F0D58150 17127 0074 00 4 06265 TSX BPCTR,4 *YES, BUMP IT $F0D58151 17130 0020 00 0 10550 TRA READ1 $F0D58152 $F0D58153 PATCH TO ADJUST PROGRAM CARD FOR EVEN $F0D58154 17131 -0500 00 0 04221 ENDFP CAL PBUFF1+5 LOAD LENGTH OF PROLOGUE $F0D58155 17132 -0520 00 0 04130 NZT EVNFLG DID EVEN OPS OCCUR.. $F0D58156 17133 0020 00 0 10772 TRA ENDFF+1 **NO, PROGRAM CARD IS O.K. $F0D58157 17134 0560 00 0 06472 LDQ P4 YES, SET SIGN OF FOURTH $F0D58158 17135 -0620 00 0 04217 SLQ PBUFF1+3 WORD OF PROGRAM CARD MINUS $F0D58159 17136 0760 00 0 00001 LBT IS TRANSFER VECTOR EVEN.. $F0D58160 17137 0020 00 0 10772 TRA ENDFF+1 **YES $F0D58161 17140 0400 00 0 06410 ADD Q1 NO, ADD ONE TO PROLOGUE LENGTH $F0D58162 17141 0020 00 0 10772 TRA ENDFF+1 **RETURN $F0D58163 $F0D58164 17142 0534 00 2 15511 SARGP LXA CLEVL,2 GET CURRENT NESTING LEVEL $F0D58165 17143 -3 00000 2 14044 TXL SARGT+2,2,0 DOES EXPANSION TABLE EXIST $F0D58166 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 125 PASS ONE MACRO PROCESSOR 17144 0534 00 1 14474 LXA MEPTR,1 YES, USE ITS END INSTEAD $F0D58167 17145 0020 00 0 14044 TRA SARGT+2 $F0D58168 17146 -0534 00 4 16171 PMC3P LXD MOPTR,4 RESET SYMBOL TABLE OVERLAP TEST $F0D58169 BINARY CARD NO. 9F040261 17147 -0634 00 4 16724 SXD ESYMZ,4 WHEN LEAVING MACRO NEST $F0D5816A 17150 0020 00 0 15563 TRA PMC3X $F0D5816B 17151 0 54031 0 00000 STPTR PZE ,,-SYMTBL-LSMTBL POINTER TO NEXT SYMBOL TABLE LOCATION $F0D5816C $F0D5816D PATCH TO ARGUMENT LIST ETC PROCESSING (23)F0D5816E 17152 3 00000 4 17154 SSN33 TXH *+2,4,** IS THIS ETC CONTINUING IFF (23)F0D5816F 17153 -0500 00 0 15465 CAL PCCP2 YES,PUT UNDER PCC CONTROL (23)F0D5816G 17154 0602 00 0 04274 SLW OPBIN SAVE PASS TWO ADDRESS (23)F0D5816H 17155 0020 00 0 15100 TRA SSN31+1 (23)F0D5816I PATCH TO PRINT UPDATE PSEUDO-OPS (25)F0D5816J 17156 -0534 00 4 07506 UPFIX LXD SRCSW,4 (25)F0D5816K 17157 -3 00000 4 17163 TXL PUPIN,4,0 TEST SWITCH (25)F0D5816L 17160 0074 00 4 04361 PSOIN TSX FPRINT,4 PRINT FROM SOURCE INPUT BUFFER (25)F0D5816M 17161 0 00017 0 04275 PZE INSBF,,15 (25)F0D5816N 17162 0020 00 0 12445 TRA UPDLS+3 (25)F0D5816O 17163 0074 00 4 04361 PUPIN TSX FPRINT,4 PRINT FROM UPDATE INPUT BUFFER (25)F0D5816P 17164 0 00017 0 04316 PZE DELBF,,15 (25)F0D5816Q 17165 0020 00 0 12445 TRA UPDLS+3 (25)F0D5816R PATCH TO CORRECT IFF OUTSIDE OF MACRO (33)F0D5816S 17166 0074 00 4 14624 IFFIX TSX SSINS,4 *ASSEMBLE ARGUMENTS (33)F0D5816T 17167 -0534 00 4 14527 LXD ARGJL,4 OBTAIN NUMBER COLLECTED (33)F0D5816U 17170 -0754 00 0 00000 ZAC (33)F0D5816V 17171 0020 00 0 14205 TRA IFF01+4 (33)F0D5816W ***************PATCH SPACE******************************$F0D58199 17263 ORG BOTTAB-LOPTBM-5 $F0D58200 BINARY CARD NO. 9F040262 17263 -0 00000 0 00000 OPRECT MZE **,,** UPDATE OUTPUT TAPE RECORD COUNT $F0D58300 17264 -0 00000 0 00000 IPRECT MZE **,,** UPDATE INPUT TAPE RECORD COUNT $F0D58400 17265 -0 00007 0 00000 BNRECT MZE **,,MBNTAP BINARY OUTPUT TAPE RECORD COUNT $F0D58500 17266 -0 00005 0 00000 INRECT MZE **,,MINTAP SOURCE INPUT TAPE RECORD COUNT $F0D58600 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 126 COMBINED OPERATION TABLE FORM OF TRANSFER WORD FOR PSEUDOOPERATION F0D70020 PFX P1TFR,,P2TFR F0D70030 PASS 1 F0D70040 PTW NAME OF MACRO DEFINITION F0D70050 PON UPDATE PSEUDOOPERATION F0D70060 PZE IGNORED DURING DELETED ASSEMBLY F0D70070 PASS 2 F0D70080 MZE MAY PRECEDE ENTRY CARD F0D70090 PZE MAY NOT PRECEDE ENTRY CARD F0D70100 (DATA GENERATING, PROGRAM LINKING, F0D70110 STORAGE ASSIGNING, SYMBOL DEFINING) F0D70120 F0D70130 FORM OF TRANSFER WORD FOR DISK ORDER $F0D70140 PZE 4$ORDOP,T,OP F0D70150 T IS 6 FOR NO ACCESS MODULE, TRACK, RECORD REQUIRED $F0D70151 T IS 4 FOR NO TRACK, RECORD REQUIRED $F0D70160 T IS 2 FOR NO RECORD REQUIRED $F0D70170 T IS 0 FOR ALL ABOVE REQUIRED $F0D70171 OP IS TWO-DIGIT OPCODE F0D70180 F0D70190 FORM OF TRANSFER WORD FOR HYPERTAPE ORDER $F0D70191 PZE 4$HYPOP,T,OP $F0D70192 T IS 2 IF ADDRESS IS REQUIRED $F0D70193 OP IS TWO-DIGIT OPCODE $F0D70194 $F0D70195 FORM OF INSTRUCTION WORD FOR MACHINE OPERATION F0D70200 400000 000000 SIGN FOR TYPE A, B, C, D, E, INSTRUCTION F0D70210 300000 000000 TYPE A F0D70220 077700 000000 TYPE B, C, D, E F0D70230 000060 000000 IA OK FOR TYPE B F0D70240 000010 000000 A REQ F0D70250 000004 000000 T REQ F0D70260 000002 000000 D REQ F0D70270 000001 000000 ADDRESS CONTAINS FLAGS F0D70280 NOT TYPE B I/O ADDRESS, TYPE E PSE OR MSE F0D70290 000000 400000 IA OK FOR TYPE A F0D70300 000000 200000 NONXMIT FOR TYPE A (IOXY) COMMANDS F0D70310 000000 100000 MACHINE OP F0D70320 000000 040000 OK FOR 704 F0D70330 000000 020000 OK FOR 7090 F0D70340 000000 000004 TYPE K DISK COMMAND F0D70350 000000 000002 TYPE C VARIABLE LENGTH (DECREMENT) F0D70360 OR TYPE K WITH HIGH ORDER COUNT FIELD F0D70370 000000 000001 TYPE D SENSE INSTRUCTION F0D70380 F0D70390 17267 ORG BOTTAB-LOPTBM-1 F0D70400 BINARY CARD NO. 9F04OP00 17267 0 75302 0 00026 OPTSIZ PZE 22,,-LOPTBL LOG LOPTBL,,OPERATION TABLE LENGTH F0D70410 17270 OPTTBL SYN * F0D70420 17270 070004000000 BCD 1704000 MACHINE MODE PSEUDOOPERATION F0D70430 17271 -0 12156 0 11206 MZE 4$704OP,,5$704OP 704 F0D70440 17272 070011000000 BCD 1709000 MACHINE MODE PSEUDOOPERATION F0D70450 17273 -0 12164 0 11211 MZE 4$709OP,,5$709OP 709/7090 F0D70460 17274 114347000000 BCD 19LP000 CARD FORMAT PSEUDOOPERATION F0D70470 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 127 COMBINED OPERATION TABLE 17275 -0 12201 0 11214 MZE 4$ABSOP,,5$9LPOP 9LP F0D70480 17276 212262000000 BCD 1ABS000 CARD FORMAT PSEUDOOPERATION F0D70490 17277 -0 12221 0 11214 MZE 4$ABSOP,,5$ABSOP ABS F0D70500 17300 212343000000 BCD 1ACL000 ADD AND CARRY LOGICAL WORD F0D70510 17301 +036171160000 OCT +036171160000 ACL F0D70520 17302 212424000000 BCD 1ADD000 ADD F0D70530 17303 +040071160000 OCT +040071160000 ADD F0D70540 17304 212444000000 BCD 1ADM000 ADD MAGNITUDE F0D70550 17305 +040171160000 OCT +040171160000 ADM F0D70560 17306 214362000000 BCD 1ALS000 ACCUMULATOR LEFT SHIFT F0D70570 17307 +076711160000 OCT +076711160000 ALS F0D70580 17310 214521000000 BCD 1ANA000 AND TO ACCUMULATOR F0D70590 17311 -032071160000 OCT -032071160000 ANA F0D70600 17312 214562000000 BCD 1ANS000 AND TO STORAGE F0D70610 17313 +032071160000 OCT +032071160000 ANS F0D70620 17314 215162000000 BCD 1ARS000 ACCUMULATOR RIGHT SHIFT F0D70630 BINARY CARD NO. 9F04OP01 17315 +077111160000 OCT +077111160000 ARS F0D70640 17316 216723000000 BCD 1AXC000 ADDRESS TO INDEX, COMPLEMENTED F0D70650 17317 -077415120000 OCT -077415120000 AXC F0D70660 17320 216763000000 BCD 1AXT000 ADDRESS TO INDEX, TRUE F0D70670 17321 +077415120000 OCT +077415120000 AXT F0D70680 17322 222324000000 BCD 1BCD000 DATA GENERATING PSEUDOOPERATION F0D70690 17323 0 12237 0 11226 PZE 4$BCDOP,,5$BCDOP BCD F0D70700 17324 222331000000 BCD 1BCI000 DATA GENERATING PSEUDOOPERATION F0D70710 17325 0 12252 0 11235 PZE 4$BCIOP,,5$BCIOP BCI F0D70720 17326 222562000000 BCD 1BES000 STORAGE ALLOCATING PSEUDOOPERATION F0D70730 17327 0 12326 0 11254 PZE 4$BESOP,,5$BESOP BES F0D70740 17330 224646430000 BCD 1BOOL00 SYMBOL DEFINING PSEUDOOPERATION F0D70750 17331 0 12345 0 11301 PZE 4$BOLOP,,5$BOLOP BOOL F0D70760 17332 225121000000 BCD 1BRA000 BRANCH (TXL WITHOUT TAG) F0D70770 17333 -300011160000 OCT -300011160000 BRA F0D70780 17334 225145000000 BCD 1BRN000 BRANCH NOP (TXH WITHOUT TAG) F0D70790 17335 +300011160000 OCT +300011160000 BRN F0D70800 17336 226226000000 BCD 1BSF000 BACKSPACE FILE F0D70810 17337 -076410120200 OCT -076410120200 BSF F0D70820 17340 226226210000 BCD 1BSFA00 BACKSPACE FILE, CHANNEL A F0D70830 17341 -076410121200 OCT -076410121200 BSFA F0D70840 17342 226226220000 BCD 1BSFB00 BACKSPACE FILE, CHANNEL B F0D70850 BINARY CARD NO. 9F04OP02 17343 -076410122200 OCT -076410122200 BSFB F0D70860 17344 226226230000 BCD 1BSFC00 BACKSPACE FILE, CHANNEL C F0D70870 17345 -076410123200 OCT -076410123200 BSFC F0D70880 17346 226226240000 BCD 1BSFD00 BACKSPACE FILE, CHANNEL D F0D70890 17347 -076410124200 OCT -076410124200 BSFD F0D70900 17350 226226250000 BCD 1BSFE00 BACKSPACE FILE, CHANNEL E F0D70910 17351 -076410125200 OCT -076410125200 BSFE F0D70920 17352 226226260000 BCD 1BSFF00 BACKSPACE FILE, CHANNEL F F0D70930 17353 -076410126200 OCT -076410126200 BSFF F0D70940 17354 226226270000 BCD 1BSFG00 BACKSPACE FILE, CHANNEL G F0D70950 17355 -076410127200 OCT -076410127200 BSFG F0D70960 17356 226226300000 BCD 1BSFH00 BACKSPACE FILE, CHANNEL H F0D70970 17357 -076410130200 OCT -076410130200 BSFH F0D70980 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 128 COMBINED OPERATION TABLE 17360 226251000000 BCD 1BSR000 BACKSPACE RECORD F0D70990 17361 +076410120200 OCT +076410120200 BSR F0D71000 17362 226251210000 BCD 1BSRA00 BACKSPACE RECORD, CHANNEL A F0D71010 17363 +076410121200 OCT +076410121200 BSRA F0D71020 17364 226251220000 BCD 1BSRB00 BACKSPACE RECORD, CHANNEL B F0D71030 17365 +076410122200 OCT +076410122200 BSRB F0D71040 17366 226251230000 BCD 1BSRC00 BACKSPACE RECORD, CHANNEL C F0D71050 17367 +076410123200 OCT +076410123200 BSRC F0D71060 17370 226251240000 BCD 1BSRD00 BACKSPACE RECORD, CHANNEL D F0D71070 BINARY CARD NO. 9F04OP03 17371 +076410124200 OCT +076410124200 BSRD F0D71080 17372 226251250000 BCD 1BSRE00 BACKSPACE RECORD, CHANNEL E F0D71090 17373 +076410125200 OCT +076410125200 BSRE F0D71100 17374 226251260000 BCD 1BSRF00 BACKSPACE RECORD, CHANNEL F F0D71110 17375 +076410126200 OCT +076410126200 BSRF F0D71120 17376 226251270000 BCD 1BSRG00 BACKSPACE RECORD, CHANNEL G F0D71130 17377 +076410127200 OCT +076410127200 BSRG F0D71140 17400 226251300000 BCD 1BSRH00 BACKSPACE RECORD, CHANNEL H F0D71150 17401 +076410130200 OCT +076410130200 BSRH F0D71160 17402 226262000000 BCD 1BSS000 STORAGE ALLOCATING PSEUDOOPERATION F0D71170 17403 0 12326 0 11256 PZE 4$BSSOP,,5$BESOP BSS F0D71180 17404 226263000000 BCD 1BST000 BACKSPACE TAPE F0D71190 17405 +076410140200 OCT +076410140200 BST F0D71200 17406 226363000000 BCD 1BTT000 BEGINNING OF TAPE TEST F0D71210 17407 +076010120000 OCT +076010120000 BTT F0D71220 17410 226363210000 BCD 1BTTA00 BEGINNING OF TAPE TEST, CHANNEL A F0D71230 17411 +076000121000 OCT +076000121000 BTTA F0D71240 17412 226363220000 BCD 1BTTB00 BEGINNING OF TAPE TEST, CHANNEL B F0D71250 17413 +076000122000 OCT +076000122000 BTTB F0D71260 17414 226363230000 BCD 1BTTC00 BEGINNING OF TAPE TEST, CHANNEL C F0D71270 17415 +076000123000 OCT +076000123000 BTTC F0D71280 17416 226363240000 BCD 1BTTD00 BEGINNING OF TAPE TEST, CHANNEL D F0D71290 BINARY CARD NO. 9F04OP04 17417 +076000124000 OCT +076000124000 BTTD F0D71300 17420 226363250000 BCD 1BTTE00 BEGINNING OF TAPE TEST, CHANNEL E F0D71310 17421 +076000125000 OCT +076000125000 BTTE F0D71320 17422 226363260000 BCD 1BTTF00 BEGINNING OF TAPE TEST, CHANNEL F F0D71330 17423 +076000126000 OCT +076000126000 BTTF F0D71340 17424 226363270000 BCD 1BTTG00 BEGINNING OF TAPE TEST, CHANNEL G F0D71350 17425 +076000127000 OCT +076000127000 BTTG F0D71360 17426 226363300000 BCD 1BTTH00 BEGINNING OF TAPE TEST, CHANNEL H F0D71370 17427 +076000130000 OCT +076000130000 BTTH F0D71380 17430 232124000000 BCD 1CAD000 COPY, ADD AND CARRY F0D71390 17431 -070011140000 OCT -070011140000 CAD F0D71400 17432 232143000000 BCD 1CAL000 CLEAR AND ADD LOGICAL F0D71410 17433 -050071160000 OCT -050071160000 CAL F0D71420 17434 232143430000 BCD 1CALL00 PROGRAM LINKING PSEUDOOPERATION F0D71430 17435 0 12365 0 11321 PZE 4$CALOP,,5$CALOP CALL F0D71440 17436 232150000000 BCD 1CAQ000 CONVERT BY ADDITION FROM MQ F0D71450 17437 -011413120002 OCT -011413120002 CAQ F0D71460 17440 232162000000 BCD 1CAS000 COMPARE ACCUMULATOR WITH STORAGE F0D71470 17441 +034071160000 OCT +034071160000 CAS F0D71480 17442 232626000000 BCD 1CFF000 CHANGE FILM FRAME F0D71490 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 129 COMBINED OPERATION TABLE 17443 +076000160030 OCT +076000160030 CFF F0D71500 17444 233062000000 BCD 1CHS000 CHANGE SIGN F0D71510 BINARY CARD NO. 9F04OP05 17445 +076000160002 OCT +076000160002 CHS F0D71520 17446 234321000000 BCD 1CLA000 CLEAR AND ADD F0D71530 17447 +050071160000 OCT +050071160000 CLA F0D71540 17450 234344000000 BCD 1CLM000 CLEAR MAGNITUDE F0D71550 17451 +076000160000 OCT +076000160000 CLM F0D71560 17452 234362000000 BCD 1CLS000 CLEAR AND SUBTRACT F0D71570 17453 +050271160000 OCT +050271160000 CLS F0D71580 17454 234644000000 BCD 1COM000 COMPLEMENT MAGNITUDE F0D71590 17455 +076000160006 OCT +076000160006 COM F0D71600 17456 234644444645 BCD 1COMMON STORAGE ALLOCATING PSEUDOOPERATION F0D71610 17457 0 12470 0 11345 PZE 4$COMOP,,5$COMOP COMMON F0D71620 17460 234664456300 BCD 1COUNT0 ASSEMBLER INFORMATION PSEUDOOPERATION F0D71630 17461 -0 13562 0 11372 MZE 4$CNTOP,,5$TTL03+1 COUNT F0D71640 17462 234770000000 BCD 1CPY000 COPY OR SKIP F0D71650 17463 +070011140000 OCT +070011140000 CPY F0D71660 17464 234770240000 BCD 1CPYD00 COPY AND DISCONNECT DISK F0D71670 17465 -100013520000 OCT 500013520000 CPYD DISK F0D71680 17466 234770470000 BCD 1CPYP00 COPY AND PROCEED DISK F0D71690 17467 -000013520000 OCT 400013520000 CPYP DISK F0D71700 17470 235150000000 BCD 1CRQ000 CONVERT BY REPLACEMENT FROM MQ F0D71710 17471 -015413120002 OCT -015413120002 CRQ F0D71720 17472 236343000000 BCD 1CTL000 CONTROL DISK F0D71730 BINARY CARD NO. 9F04OP06 17473 +200011520004 OCT 200011520004 CTL DISK F0D71740 17474 236343450000 BCI 1,CTLN00 CONTROL NONTRANSMIT DISK$F0D71741 17475 +220011520004 OCT 220011520004 CTLN DISK$F0D71742 17476 236343510000 BCD 1CTLR00 CONTROL AND READ DISK F0D71750 17477 +200011720004 OCT 200011720004 CTLR DISK F0D71760 17500 236343514500 BCI 1,CTLRN0 CONTROL AND READ NONTRANSMIT DISK$F0D71761 17501 +220011720004 OCT 220011720004 CTLRN DISK$F0D71762 17502 236343660000 BCD 1CTLW00 CONTROL AND WRITE DISK F0D71770 17503 +240011520004 OCT 240011520004 CTLW DISK F0D71780 17504 236343664500 BCI 1,CTLWN0 CONTROL AND WRITE NONTRANSMIT DISK$F0D71781 17505 +260011520004 OCT 260011520004 CTLWN DISK$F0D71782 17506 236551000000 BCD 1CVR000 CONVERT BY REPLACEMENT FROM AC F0D71790 17507 +011413120002 OCT +011413120002 CVR F0D71800 17510 242363000000 BCD 1DCT000 DIVIDE CHECK TEST F0D71810 17511 +076000160012 OCT +076000160012 DCT F0D71820 17512 242522440000 BCD 1DEBM00 EIGHT BIT MODE DISK$F0D71830 17513 0 00010 6 12103 PZE 4$ORDOP,6,08 DEBM DISK$F0D71840 17514 242523000000 BCD 1DEC000 DATA GENERATING PSEUDOOPERATION F0D71850 17515 0 12504 0 11412 PZE 4$DECOP,,5$DECOP DEC F0D71860 17516 242563213143 BCD 1DETAIL LIST CONTROL PSEUDOOPERATION F0D71870 17517 -0 12513 0 10550 MZE 4$READ1,,5$DETOP DETAIL F0D71880 17520 242621240000 BCD 1DFAD00 DBL-PREC FLOAT ADD $F0D71881 BINARY CARD NO. 9F04OP07 17521 +030171120000 OCT +030171120000 DFAD $F0D71882 17522 242621440000 BCD 1DFAM00 DBL-PREC FLOAT ADD MAGNITUDE $F0D71883 17523 +030571120000 OCT +030571120000 DFAM $F0D71884 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 130 COMBINED OPERATION TABLE 17524 242624300000 BCD 1DFDH00 DBL-PREC FLOAT DIVIDE AND HALT $F0D71885 17525 -024071120000 OCT -024071120000 DFDH $F0D71886 17526 242624470000 BCD 1DFDP00 DBL-PREC FLOAT DIVIDE AND PROCEED $F0D71887 17527 -024171120000 OCT -024171120000 DFDP $F0D71888 17530 242644470000 BCD 1DFMP00 DBL-PREC FLOAT MULTIPLY $F0D71889 17531 +026171120000 OCT +026171120000 DFMP $F0D71890 17532 242662220000 BCD 1DFSB00 DBL-PREC FLOAT SUBTRACT $F0D71891 17533 +030371120000 OCT +030371120000 DFSB $F0D71892 17534 242662440000 BCD 1DFSM00 DBL-PREC FLOAT SUBTRACT MAGNITUDE $F0D71893 17535 +030771120000 OCT +030771120000 DFSM $F0D71894 17536 244324000000 BCD 1DLD000 DBL-PREC LOAD $F0D71895 17537 +044371120000 OCT +044371120000 DLD $F0D71896 17540 244546470000 BCD 1DNOP00 NO OPERATION DISK$F0D71897 17541 0 00000 6 12103 PZE 4$ORDOP,6,00 DNOP DISK$F0D71898 17542 245125430000 BCD 1DREL00 RELEASE DISK$F0D71899 17543 0 00004 6 12103 PZE 4$ORDOP,6,04 DREL DISK$F0D71900 17544 245162000000 BCD 1DRS000 DROP READY STATUS $F0D71901 17545 +077510120000 OCT +077510120000 DRS $F0D71902 17546 246221310000 BCD 1DSAI00 SET ACESS INOPERATIVE DISK$F0D71903 BINARY CARD NO. 9F04OP08 17547 0 00127 4 12103 PZE 4$ORDOP,4,87 DSAI DISK$F0D71904 17550 246222440000 BCD 1DSBM00 SIX BIT MODE DISK$F0D71905 17551 0 00011 6 12103 PZE 4$ORDOP,6,09 DSBM DISK$F0D71906 17552 246225420000 BCD 1DSEK00 SEEK DISK$F0D71907 17553 0 00120 2 12103 PZE 4$ORDOP,2,80 DSEK DISK$F0D71908 17554 246263000000 BCD 1DST000 DBL-PREC STORE $F0D71909 17555 -060371120000 OCT -060371120000 DST $F0D71910 17556 246421440000 BCD 1DUAM00 DBL-PREC UNNORM FLOAT ADD MAGNITUDE $F0D71911 17557 -030571120000 OCT -030571120000 DUAM $F0D71912 17560 246426210000 BCD 1DUFA00 DBL-PREC UNNORM FLOAT ADD $F0D71913 17561 -030171120000 OCT -030171120000 DUFA $F0D71914 17562 246426440000 BCD 1DUFM00 DBL-PREC UNNORM FLOAT MULTIPLY $F0D71915 17563 -026171120000 OCT -026171120000 DUFM $F0D71916 17564 246426620000 BCD 1DUFS00 DBL-PREC UNNORM FLOAT SUBTRACT $F0D71917 17565 -030371120000 OCT -030371120000 DUFS $F0D71918 17566 246447000000 BCD 1DUP000 DATA GENERATING PSEUDOOPERATION $F0D71919 17567 0 12517 0 11426 PZE 4$DUPOP,,5$DUPOP DUP $F0D71920 17570 246462440000 BCD 1DUSM00 DBL-PREC UNNORM FLOAT SUBTRACT MAGNITUDE $F0D71921 17571 -030771120000 OCT -030771120000 DUSM $F0D71922 17572 246523700000 BCD 1DVCY00 PREPARE TO VERIFY CYLINDER OPERATION DISK F0D72030 17573 0 00125 0 12103 PZE 4$ORDOP,0,85 DVCY DISK F0D72040 17574 246530000000 BCD 1DVH000 DIVIDE OR HALT F0D72050 BINARY CARD NO. 9F04OP09 17575 +022071160000 OCT +022071160000 DVH F0D72060 17576 246530210000 BCD 1DVHA00 PREPARE TO VERIFY HOME ADDRESS DISK F0D72070 17577 0 00131 2 12103 PZE 4$ORDOP,2,89 DVHA DISK$F0D72080 17600 246547000000 BCD 1DVP000 DIVIDE OR PROCEED F0D72090 17601 +022171160000 OCT +022171160000 DVP F0D72100 17602 246562510000 BCD 1DVSR00 PREPARE TO VERIFY SINGLE RECORD DISK F0D72110 17603 0 00122 0 12103 PZE 4$ORDOP,0,82 DVSR DISK$F0D72120 17604 246563210000 BCD 1DVTA00 PREPARE TO VERIFY TRACK WITH ADDRESS DISK F0D72130 17605 0 00130 0 12103 PZE 4$ORDOP,0,88 DVTA DISK$F0D72140 17606 246563450000 BCD 1DVTN00 PREPARE TO VERIFY TRACK WITHOUT ADDRESS DISK F0D72150 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 131 COMBINED OPERATION TABLE 17607 0 00124 0 12103 PZE 4$ORDOP,0,84 DVTN DISK$F0D72160 17610 246651230000 BCD 1DWRC00 PREPARE TO WRITE CHECK DISK F0D72170 17611 0 00126 0 12103 PZE 4$ORDOP,0,86 DWRC DISK$F0D72180 17612 246651260000 BCD 1DWRF00 PREPARE TO WRITE FORMAT TRACK DISK F0D72190 17613 0 00123 2 12103 PZE 4$ORDOP,2,83 DWRF DISK$F0D72200 17614 252124000000 BCD 1EAD000 EXTENDED ADD F0D72210 17615 +067171160000 OCT +067171160000 EAD F0D72220 17616 252167440000 BCD 1EAXM00 ENTER ADDITIONAL INDEX MODE F0D72230 17617 +076000120016 OCT +076000120016 EAXM F0D72240 17620 252321000000 BCD 1ECA000 EXCHANGE LOGICAL ACCUMULATOR WITH STORAGE F0D72250 17621 +056171160000 OCT +056171160000 ECA F0D72260 17622 252350000000 BCD 1ECQ000 EXCHANGE MQ WITH STORAGE F0D72270 BINARY CARD NO. 9F04OP10 17623 -056171160000 OCT -056171160000 ECQ F0D72280 17624 252363440000 BCD 1ECTM00 ENTER COPY TRAP MODE F0D72290 17625 -076000120006 OCT -076000120006 ECTM F0D72300 17626 252447000000 BCD 1EDP000 EXTENDED DIVIDE OR PROCEED F0D72310 17627 +067271160000 OCT +067271160000 EDP F0D72320 17630 252663440000 BCD 1EFTM00 ENTER FLOATING TRAP MODE F0D72330 17631 -076000120002 OCT -076000120002 EFTM F0D72340 17632 254125236300 BCD 1EJECT0 LIST CONTROL PSEUDOOPERATION F0D72350 17633 -0 12550 0 10550 MZE 4$READ1,,5$EJCOP EJECT F0D72360 17634 254324000000 BCD 1ELD000 EXTENDED LOAD F0D72370 17635 +067071160000 OCT +067071160000 ELD F0D72380 17636 254447000000 BCD 1EMP000 EXTENDED MULTIPLY F0D72390 17637 +067371160000 OCT +067371160000 EMP F0D72400 17640 254463440000 BCD 1EMTM00 ENTER MULTIPLE TAG MODE $F0D72401 17641 -076000120016 OCT -076000120016 EMTM $F0D72402 17642 254522000000 BCD 1ENB000 ENABLE FROM STORAGE F0D72410 17643 +056471120000 OCT +056471120000 ENB F0D72420 17644 254524000000 BCD 1END000 ASSEMBLER INFORMATION PSEUDOOPERATION F0D72430 17645 1 12554 0 11470 PON 4$ENDOP,,5$ENDOP END F0D72440 17646 254524263143 BCD 1ENDFIL UPDATE INFORMATION PSEUDOOPERATION F0D72450 17647 -1 13562 0 11500 MON 4$ENFOP,,5$TTL03+1 ENDFIL F0D72460 17650 254524644700 BCD 1ENDUP0 UPDATE INFORMATION PSEUDOOPERATION F0D72470 BINARY CARD NO. 9F04OP11 17651 -1 13562 0 11503 MON 4$ENPOP,,5$TTL03+1 ENDUP F0D72480 17652 254542000000 BCD 1ENK000 ENTER KEYS F0D72490 17653 +076000120004 OCT +076000120004 ENK F0D72500 17654 254563517000 BCD 1ENTRY0 PROGRAM LINKING PSEUDOOPERATION F0D72510 17655 -0 12602 0 11510 MZE 4$ENTOP,,5$ENTOP ENTRY F0D72520 17656 255064000000 BCD 1EQU000 SYMBOL DEFINING PSEUDOOPERATION F0D72530 17657 0 13201 0 12162 PZE 4$SYNOP,,5$MAXOP EQU F0D72540 17660 255121000000 BCD 1ERA000 EXCLUSIVE OR TO ACCUMULATOR F0D72550 17661 +032271120000 OCT +032271120000 ERA F0D72560 17662 256222000000 BCD 1ESB000 EXTENDED SUBTRACT F0D72570 17663 -067171160000 OCT -067171160000 ESB F0D72580 17664 256244000000 BCD 1ESM000 ENTER SIGNIFICANCE MODE F0D72590 17665 -076100120140 OCT -076100120140 ESM F0D72600 17666 256245630000 BCD 1ESNT00 ENTER STORAGE NULLIFICATION MODE AND TRANSFER F0D72610 17667 -002171120000 OCT -002171120000 ESNT F0D72620 17670 256263000000 BCD 1EST000 EXTENDED STORE F0D72630 17671 -067371160000 OCT -067371160000 EST F0D72640 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 132 COMBINED OPERATION TABLE 17672 256263440000 BCD 1ESTM00 ENTER SELECT TRAP MODE F0D72650 17673 -076000120005 OCT -076000120005 ESTM F0D72660 17674 256344000000 BCD 1ETM000 ENTER TRAPPING MODE F0D72670 17675 +076000160007 OCT +076000160007 ETM F0D72680 17676 256363000000 BCD 1ETT000 END OF TAPE TEST F0D72690 BINARY CARD NO. 9F04OP12 17677 -076000140011 OCT -076000140011 ETT F0D72700 17700 256363210000 BCD 1ETTA00 END OF TAPE TEST, CHANNEL A F0D72710 17701 -076000121000 OCT -076000121000 ETTA F0D72720 17702 256363220000 BCD 1ETTB00 END OF TAPE TEST, CHANNEL B F0D72730 17703 -076000122000 OCT -076000122000 ETTB F0D72740 17704 256363230000 BCD 1ETTC00 END OF TAPE TEST, CHANNEL C F0D72750 17705 -076000123000 OCT -076000123000 ETTC F0D72760 17706 256363240000 BCD 1ETTD00 END OF TAPE TEST, CHANNEL D F0D72770 17707 -076000124000 OCT -076000124000 ETTD F0D72780 17710 256363250000 BCD 1ETTE00 END OF TAPE TEST, CHANNEL E F0D72790 17711 -076000125000 OCT -076000125000 ETTE F0D72800 17712 256363260000 BCD 1ETTF00 END OF TAPE TEST, CHANNEL F F0D72810 17713 -076000126000 OCT -076000126000 ETTF F0D72820 17714 256363270000 BCD 1ETTG00 END OF TAPE TEST, CHANNEL G F0D72830 17715 -076000127000 OCT -076000127000 ETTG F0D72840 17716 256363300000 BCD 1ETTH00 END OF TAPE TEST, CHANNEL H F0D72850 17717 -076000130000 OCT -076000130000 ETTH F0D72860 17720 256421000000 BCD 1EUA000 EXTENDED UNNORMALIZED ADD F0D72870 17721 -067271160000 OCT -067271160000 EUA F0D72880 17722 256525450000 BCI 1,EVEN00 STORAGE ALLOCATING PSUEDOOPERATION $F0D72881 17723 0 14410 0 17123 PZE 4$EVNOP,,5$EVNOP EVEN $F0D72882 17724 256763255145 BCD 1EXTERN PROGRAM LINKING PSEUDOOPERATION F0D72890 BINARY CARD NO. 9F04OP13 17725 -0 13565 0 11516 MZE 4$EXTOP,,5$UNLOP+1 EXTERN F0D72900 17726 262124000000 BCD 1FAD000 FLOATING ADD F0D72910 17727 +030071160000 OCT +030071160000 FAD F0D72920 17730 262144000000 BCD 1FAM000 FLOATING ADD MAGNITUDE F0D72930 17731 +030471120000 OCT +030471120000 FAM F0D72940 17732 262430000000 BCD 1FDH000 FLOATING DIVIDE OR HALT F0D72950 17733 +024071160000 OCT +024071160000 FDH F0D72960 17734 262447000000 BCD 1FDP000 FLOATING DIVIDE OR PROCEED F0D72970 17735 +024171160000 OCT +024171160000 FDP F0D72980 17736 263165250000 BCD 1FIVE00 FIVE (PREFIX) F0D72990 17737 -100001120000 OCT +500001120000 FIVE F0D73000 17740 264447000000 BCD 1FMP000 FLOATING MULTIPLY F0D73010 17741 +026071160000 OCT +026071160000 FMP F0D73020 17742 264651000000 BCD 1FOR000 FOUR (PREFIX) F0D73030 17743 -000001160000 OCT +400001160000 FOR F0D73040 17744 264664510000 BCD 1FOUR00 FOUR (PREFIX) F0D73050 17745 -000001120000 OCT +400001120000 FOUR F0D73060 17746 265145000000 BCD 1FRN000 FLOATING ROUND F0D73070 17747 +076000120011 OCT +076000120011 FRN F0D73080 17750 266222000000 BCD 1FSB000 FLOATING SUBTRACT F0D73090 17751 +030271160000 OCT +030271160000 FSB F0D73100 17752 266244000000 BCD 1FSM000 FLOATING SUBTRACT MAGNITUDE F0D73110 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 133 COMBINED OPERATION TABLE BINARY CARD NO. 9F04OP14 17753 +030671120000 OCT +030671120000 FSM F0D73120 17754 266443000000 BCD 1FUL000 CARD FORMAT PSEUDOOPERATION F0D73130 17755 -0 12654 0 11214 MZE 4$ABSOP,,5$FULOP FUL F0D73140 17756 266525000000 BCD 1FVE000 FIVE (PREFIX) F0D73150 17757 -100001160000 OCT +500001160000 FVE F0D73160 17760 302262260000 BCD 1HBSF00 HYPERTAPE BACKSPACE FILE $F0D73161 17761 0 00043 0 16654 PZE 4$HYPOP,0,35 HBSF $F0D73162 17762 302262510000 BCD 1HBSR00 HYPERTAPE BACKSPACE RECORD $F0D73163 17763 0 00042 0 16654 PZE 4$HYPOP,0,34 HBSR $F0D73164 17764 302323510000 BCD 1HCCR00 HYPERTAPE CHANGE CARTRIDGE AND REWIND $F0D73165 17765 0 00034 0 16654 PZE 4$HYPOP,0,28 HCCR $F0D73166 17766 302330230000 BCD 1HCHC00 HYPERTAPE CHANGE CARTRIDGE $F0D73167 17767 0 00046 0 16654 PZE 4$HYPOP,0,38 HCHC $F0D73168 17770 302521240000 BCD 1HEAD00 SYMBOL DEFINING PSEUDOOPERATION $F0D73171 17771 -0 12664 0 11524 MZE 4$HADOP,,5$HEDOP HEAD F0D73180 17772 302524000000 BCD 1HED000 SYMBOL DEFINING PSEUDOOPERATION F0D73190 17773 -0 12664 0 11530 MZE 4$HEDOP,,5$HEDOP HED F0D73200 17774 302546620000 BCD 1HEOS00 HYPERTAPE END OF SEQUENCE $F0D73201 17775 0 00001 0 16654 PZE 4$HYPOP,0,01 HEOS $F0D73202 17776 302551270000 BCD 1HERG00 HYPERTAPE ERASE LONG GAP $F0D73203 17777 0 00040 0 16654 PZE 4$HYPOP,0,32 HERG $F0D73204 20000 302647450000 BCD 1HFPN00 HYPERTAPE FILE PROTECT ON $F0D73205 BINARY CARD NO. 9F04OP15 20001 0 00052 0 16654 PZE 4$HYPOP,0,42 HFPN $F0D73206 20002 304546470000 BCD 1HNOP00 HYPERTAPE NO OPERATION $F0D73207 20003 0 00000 0 16654 PZE 4$HYPOP,0,00 HNOP $F0D73208 20004 304751000000 BCD 1HPR000 HALT AND PROCEED F0D73210 20005 +042001160000 OCT +042001160000 HPR F0D73220 20006 305164450000 BCD 1HRUN00 HYPERTAPE REWIND AND UNLOAD CARTRIDGE $F0D73225 20007 0 00037 0 16654 PZE 4$HYPOP,0,31 HRUN $F0D73226 20010 305166240000 BCD 1HRWD00 HYPERTAPE REWIND $F0D73227 20011 0 00036 0 16654 PZE 4$HYPOP,0,30 HRWD $F0D73228 20012 306222510000 BCD 1HSBR00 HYPERTAPE SELECT FOR BACKWARD READING $F0D73229 20013 0 00007 2 16654 PZE 4$HYPOP,2,07 PSBR $F0D73230 20014 306225430000 BCD 1HSEL00 HYPERTAPE SELECT $F0D73231 20015 0 00006 2 16654 PZE 4$HYPOP,2,06 HSEL $F0D73232 20016 306242260000 BCD 1HSKF00 HYPERTAPE SKIP FILE $F0D73233 20017 0 00045 0 16654 PZE 4$HYPOP,0,37 HSKF $F0D73234 20020 306242510000 BCD 1HSKR00 HYPERTAPE SKIP RECORD $F0D73235 20021 0 00044 0 16654 PZE 4$HYPOP,0,36 HSKR $F0D73236 20022 306351000000 BCD 1HTR000 HALT AND TRANSFER $F0D73237 20023 +000071160000 OCT +000071160000 HTR F0D73240 20024 306445430000 BCD 1HUNL00 HYPERTAPE UNLOAD CARTRIDGE $F0D73241 20025 0 00047 0 16654 PZE 4$HYPOP,0,39 HUNL $F0D73242 20026 306663440000 BCD 1HWTM00 HYPERTAPE WRITE TAPE MARK $F0D73243 BINARY CARD NO. 9F04OP16 20027 0 00041 0 16654 PZE 4$HYPOP,0,33 HWTM $F0D73244 20030 312323000000 BCD 1ICC000 INCREMENT CONTROL COUNTER DISK F0D73250 20031 -300001320006 OCT 700001320006 ICC DISK F0D73260 20032 312625462600 BCD 1IFEOF0 PROGRAM LINKING PSEUDOOPERATION F0D73270 20033 0 12670 0 11557 PZE 4$IFEOP,,5$IFEOP IFEOF F0D73280 20034 312626000000 BCD 1IFF000 MACRO EXPANSION PSEUDOOPERATION F0D73290 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 134 COMBINED OPERATION TABLE 20035 -0 13562 0 14165 MZE 4$IFFOP,,5$TTL03+1 IFF F0D73300 20036 313121000000 BCD 1IIA000 INVERT INDICATORS FROM ACCUMULATOR F0D73310 20037 +004101120000 OCT +004101120000 IIA F0D73320 20040 313143000000 BCD 1IIL000 INVERT INDICATORS OF LEFT HALF F0D73330 20041 -005111120001 OCT -005111120001 IIL F0D73340 20042 313151000000 BCD 1IIR000 INVERT INDICATORS OF RIGHT HALF F0D73350 20043 +005111120001 OCT +005111120001 IIR F0D73360 20044 313162000000 BCD 1IIS000 INVERT INDICATORS FROM STORAGE F0D73370 20045 +044071120000 OCT +044071120000 IIS F0D73380 20046 314524256700 BCD 1INDEX0 LIST CONTROL PSEUDOOPERATION F0D73390 20047 -0 12734 0 10550 MZE 4$READ1,,5$INXOP INDEX F0D73400 20050 314623240000 BCD 1IOCD00 I/O UNDER COUNT CONTROL AND DISCONNECT F0D73410 20051 +000013520000 OCT 000013520000 IOCD F0D73420 20052 314623244500 BCD 1IOCDN0 I/O UNDER COUNT CONTROL DISCONNECT NONTRANSMITF0D73430 20053 +000013720000 OCT 000013720000 IOCDN F0D73440 20054 314623470000 BCD 1IOCP00 I/O UNDER COUNT CONTROL AND PROCEED F0D73450 BINARY CARD NO. 9F04OP17 20055 -000013520000 OCT 400013520000 IOCP F0D73460 20056 314623474500 BCD 1IOCPN0 I/O UNDER COUNT CONTROL PROCEED NONTRANSMIT F0D73470 20057 -000013720000 OCT 400013720000 IOCPN F0D73480 20060 314623630000 BCD 1IOCT00 I/O UNDER COUNT CONTROL AND TRANSFER F0D73490 20061 -100013520000 OCT 500013520000 IOCT F0D73500 20062 314623634500 BCD 1IOCTN0 I/O UNDER COUNT CONTROL TRANSFER NONTRANSMIT F0D73510 20063 -100013720000 OCT 500013720000 IOCTN F0D73520 20064 314624000000 BCD 1IOD000 I/O DELAY F0D73530 20065 +076600140333 OCT +076600140333 IOD F0D73540 20066 314651470000 BCD 1IORP00 I/O UNDER RECORD CONTROL AND PROCEED F0D73550 20067 +200013520000 OCT 200013520000 IORP F0D73560 20070 314651474500 BCD 1IORPN0 I/O UNDER RECORD CONTROL PROCEED NONTRANSMIT F0D73570 20071 +200013720000 OCT 200013720000 IORPN F0D73580 20072 314651630000 BCD 1IORT00 I/O UNDER RECORD CONTROL AND TRANSFER F0D73590 20073 +300013520000 OCT 300013520000 IORT F0D73600 20074 314651634500 BCD 1IORTN0 I/O UNDER RECORD CONTROL TRANSFER NONTRANSMIT F0D73610 20075 +300013720000 OCT 300013720000 IORTN F0D73620 20076 314662470000 BCD 1IOSP00 I/O UNTIL SIGNAL AND PROCEED F0D73630 20077 -200013520000 OCT 600013520000 IOSP F0D73640 20100 314662474500 BCD 1IOSPN0 I/O UNTIL SIGNAL AND PROCEED NONTRANSMIT F0D73650 20101 -200013720000 OCT 600013720000 IOSPN F0D73660 20102 314662630000 BCD 1IOST00 I/O UNTIL SIGNAL AND TRANSFER F0D73670 BINARY CARD NO. 9F04OP18 20103 -300013520000 OCT 700013520000 IOST F0D73680 20104 314662634500 BCD 1IOSTN0 I/O UNTIL SIGNAL AND TRANSFER NONTRANSMIT F0D73690 20105 -300013720000 OCT 700013720000 IOSTN F0D73700 20106 314663000000 BCD 1IOT000 INPUT OUTPUT CHECK TEST F0D73710 20107 +076000120005 OCT +076000120005 IOT F0D73720 20110 315147000000 BCD 1IRP000 MACRO EXPANSION PSEUDOOPERATION F0D73730 20111 -0 13562 0 14242 MZE 4$IRPOP,,5$TTL03+1 IRP F0D73740 20112 333333000000 BCD 1...000 CONVENTION FOR OPCODE TO BE INITIALIZED F0D73750 20113 +000001160000 OCT +000001160000 ... F0D73760 20114 432123000000 BCD 1LAC000 LOAD INDEX FROM ADDRESS, COMPLEMENTED F0D73770 20115 +053515120000 OCT +053515120000 LAC F0D73780 20116 432151000000 BCD 1LAR000 LOAD ASSEMBLY REGISTER DISK F0D73790 20117 +300011520004 OCT 300011520004 LAR DISK F0D73800 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 135 COMBINED OPERATION TABLE 20120 432162000000 BCD 1LAS000 LOGICAL COMPARE ACCUMULATOR WITH STORAGE F0D73810 20121 -034071120000 OCT -034071120000 LAS F0D73820 20122 432167440000 BCD 1LAXM00 LEAVE ADDITIONAL INDEX MODE F0D73830 20123 -076000120016 OCT -076000120016 LAXM F0D73840 20124 432243000000 BCD 1LBL000 LIST CONTROL PSEUDOOPERATION F0D73850 20125 -0 12774 0 10550 MZE 4$READ1,,5$LBLOP LBL F0D73860 20126 432263000000 BCD 1LBT000 LOW ORDER BIT TEST F0D73870 20127 +076000160001 OCT +076000160001 LBT F0D73880 20130 432323000000 BCD 1LCC000 LOAD CONTROL COUNTER DISK F0D73890 BINARY CARD NO. 9F04OP19 20131 -240011720004 OCT 640011720004 LCC DISK F0D73900 20132 432330210000 BCD 1LCHA00 LOAD CHANNEL A F0D73910 20133 +054471120000 OCT +054471120000 LCHA F0D73920 20134 432330220000 BCD 1LCHB00 LOAD CHANNEL B F0D73930 20135 -054471120000 OCT -054471120000 LCHB F0D73940 20136 432330230000 BCD 1LCHC00 LOAD CHANNEL C F0D73950 20137 +054571120000 OCT +054571120000 LCHC F0D73960 20140 432330240000 BCD 1LCHD00 LOAD CHANNEL D F0D73970 20141 -054571120000 OCT -054571120000 LCHD F0D73980 20142 432330250000 BCD 1LCHE00 LOAD CHANNEL E F0D73990 20143 +054671120000 OCT +054671120000 LCHE F0D74000 20144 432330260000 BCD 1LCHF00 LOAD CHANNEL F F0D74010 20145 -054671120000 OCT -054671120000 LCHF F0D74020 20146 432330270000 BCD 1LCHG00 LOAD CHANNEL G F0D74030 20147 +054771120000 OCT +054771120000 LCHG F0D74040 20150 432330300000 BCD 1LCHH00 LOAD CHANNEL H F0D74050 20151 -054771120000 OCT -054771120000 LCHH F0D74060 20152 432421000000 BCD 1LDA000 LOCATE DRUM ADDRESS F0D74070 20153 +046071140000 OCT +046071140000 LDA F0D74080 20154 432423000000 BCD 1LDC000 LOAD INDEX FROM DECREMENT, COMPLEMENTED F0D74090 20155 -053515120000 OCT -053515120000 LDC F0D74100 20156 432431000000 BCD 1LDI000 LOAD INDICATORS F0D74110 BINARY CARD NO. 9F04OP20 20157 +044171120000 OCT +044171120000 LDI F0D74120 20160 432450000000 BCD 1LDQ000 LOAD MQ F0D74130 20161 +056071160000 OCT +056071160000 LDQ F0D74140 20162 432663000000 BCD 1LFT000 LEFT HALF INDICATORS OFF TEST F0D74150 20163 -005411120001 OCT -005411120001 LFT F0D74160 20164 432663440000 BCD 1LFTM00 LEAVE FLOATING POINT TRAP MODE F0D74170 20165 -076000120004 OCT -076000120004 LFTM F0D74180 20166 432743000000 BCD 1LGL000 LOGICAL LEFT SHIFT F0D74190 20167 -076311160000 OCT -076311160000 LGL F0D74200 20170 432751000000 BCD 1LGR000 LOGICAL RIGHT SHIFT F0D74210 20171 -076511120000 OCT -076511120000 LGR F0D74220 20172 433147000000 BCD 1LIP000 LEAVE INTERRUPT PROGRAM DISK F0D74230 20173 -200001320004 OCT 600001320004 LIP DISK F0D74240 20174 433147630000 BCD 1LIPT00 LEAVE INTERRUPT PROGRAM AND TRANSFER DISK F0D74250 20175 +100011720000 OCT 100011720000 LIPT DISK F0D74260 20176 433162630000 BCD 1LIST00 LIST CONTROL PSEUDOOPERATION F0D74270 20177 -0 13062 0 10550 MZE 4$READ1,,5$LSTOP LIST F0D74280 20200 434362000000 BCD 1LLS000 LONG LEFT SHIFT F0D74290 20201 +076311160000 OCT +076311160000 LLS F0D74300 20202 434463440000 BCD 1LMTM00 LEAVE MULTIPLE TAG MODE $F0D74301 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 136 COMBINED OPERATION TABLE 20203 +076000120016 OCT +076000120016 LMTM $F0D74302 20204 434563000000 BCD 1LNT000 LEFT HALF INDICATORS ON TEST F0D74310 BINARY CARD NO. 9F04OP21 20205 -005611120001 OCT -005611120001 LNT F0D74320 20206 434623000000 BCD 1LOC000 STORAGE ALLOCATING PSEUDOOPERATION F0D74330 20207 0 13171 0 11720 PZE 4$LOCOP,,5$LOCOP LOC F0D74340 20210 435162000000 BCD 1LRS000 LONG RIGHT SHIFT F0D74350 20211 +076511160000 OCT +076511160000 LRS F0D74360 20212 436245440000 BCD 1LSNM00 LEAVE STORAGE NULLIFICATION MODE F0D74370 20213 -076000120010 OCT -076000120010 LSNM F0D74380 20214 436344000000 BCD 1LTM000 LEAVE TRAPPING MODE F0D74390 20215 -076000160007 OCT -076000160007 LTM F0D74400 20216 436721000000 BCD 1LXA000 LOAD INDEX FROM ADDRESS F0D74410 20217 +053415160000 OCT +053415160000 LXA F0D74420 20220 436724000000 BCD 1LXD000 LOAD INDEX FROM DECREMENT F0D74430 20221 -053415160000 OCT -053415160000 LXD F0D74440 20222 442123000000 BCD 1MAC000 MACRO EXPANSION PSEUDOOPERATION F0D74450 20223 0 12336 0 14376 PZE 4$MACOP,,5$BES01+3 MAC $F0D74460 20224 442123514600 BCD 1MACRO0 MACRO DEFINITION PSEUDOOPERATION F0D74470 20225 -0 13565 0 12772 MZE 4$MCROP,,5$UNLOP+1 MACRO F0D74480 20226 442167000000 BCD 1MAX000 SYMBOL DEFINING PSEUDOOPERATION F0D74490 20227 0 13201 0 11730 PZE 4$MAXOP,,5$MAXOP MAX F0D74500 20230 443145000000 BCD 1MIN000 SYMBOL DEFINING PSEUDOOPERATION F0D74510 20231 0 13201 0 11733 PZE 4$MINOP,,5$MAXOP MIN F0D74520 20232 444645000000 BCD 1MON000 MINUS ONE (PREFIX) F0D74530 BINARY CARD NO. 9F04OP22 20233 -100001160000 OCT -100001160000 MON F0D74540 20234 444647000000 BCD 1MOP000 MACRO DEFINITION PSEUDOOPERATION F0D74550 20235 -0 13565 0 13015 MZE 4$MOPOP,,5$UNLOP+1 MOP F0D74560 20236 444751000000 BCD 1MPR000 MULTIPLY AND ROUND F0D74570 20237 -020071160000 OCT -020071160000 MPR F0D74580 20240 444770000000 BCD 1MPY000 MULTIPLY F0D74590 20241 +020071160000 OCT +020071160000 MPY F0D74600 20242 446225000000 BCD 1MSE000 MINUS SENSE F0D74610 20243 -076011160000 OCT -076011160000 MSE F0D74620 20244 446330000000 BCD 1MTH000 MINUS THREE (PREFIX) F0D74630 20245 -300001160000 OCT -300001160000 MTH F0D74640 20246 446366000000 BCD 1MTW000 MINUS TWO (PREFIX) F0D74650 20247 -200001160000 OCT -200001160000 MTW F0D74660 20250 447125000000 BCD 1MZE000 MINUS ZERO (PREFIX) F0D74670 20251 -000001160000 OCT -000001160000 MZE F0D74680 20252 454623516200 BCD 1NOCRS0 MACRO COMPILER INFORMATION PSEUDOOPERATIONF0D74690 20253 -0 13562 0 15416 MZE 4$NOCOP,,5$TTL03+1 NOCRS F0D74700 20254 454647000000 BCD 1NOP000 NO OPERATION F0D74710 20255 +076101160000 OCT +076101160000 NOP F0D74720 20256 456351000000 BCD 1NTR000 FORTRAN CODE FOR TXI F0D74730 20257 +100011160000 OCT +100011160000 NTR F0D74740 20260 456443430000 BCD 1NULL00 LIST CONTROL PSEUDOOPERATION F0D74750 BINARY CARD NO. 9F04OP23 20261 -0 13565 0 10550 MZE 4$READ1,,5$UNLOP+1 NULL F0D74760 20262 456444222551 BCD 1NUMBER UPDATE INFORMATION PSEUDOOPERATION F0D74770 20263 -1 13562 0 11765 MON 4$NUMOP,,5$TTL03+1 NUMBER F0D74780 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 137 COMBINED OPERATION TABLE 20264 457163000000 BCD 1NZT000 STORAGE NON-ZERO TEST F0D74790 20265 -052071120000 OCT -052071120000 NZT F0D74800 20266 462131000000 BCD 1OAI000 OR ACCUMULATOR TO INDICATORS F0D74810 20267 +004301120000 OCT +004301120000 OAI F0D74820 20270 462363000000 BCD 1OCT000 DATA GENERATING PSEUDOOPERATION F0D74830 20271 0 13236 0 11412 PZE 4$DECOP,,5$OCTOP OCT F0D74840 20272 462663000000 BCD 1OFT000 OFF TEST FOR INDICATORS F0D74850 20273 +044471120000 OCT +044471120000 OFT F0D74860 20274 464525000000 BCD 1ONE000 ONE (PREFIX) F0D74870 20275 +100001160000 OCT +100001160000 ONE F0D74880 20276 464563000000 BCD 1ONT000 ON TEST FOR INDICATORS F0D74890 20277 +044671120000 OCT +044671120000 ONT F0D74900 20300 464724000000 BCD 1OPD000 OPCODE DEFINING PSEUDOOPERATION F0D74910 20301 -0 13245 0 12010 MZE 4$OPDOP,,5$OPDOP OPD F0D74920 20302 464762704500 BCD 1OPSYN0 OPCODE DEFINING PSEUDOOPERATION F0D74930 20303 -0 13245 0 12026 MZE 4$OPSOP,,5$OPDOP OPSYN F0D74940 20304 464765262400 BCD 1OPVFD0 OPCODE DEFINING PSEUDOOPERATION F0D74950 20305 -0 13245 0 12045 MZE 4$OPVOP,,5$OPDOP OPVFD F0D74960 20306 465121000000 BCD 1ORA000 OR TO ACCUMULATOR F0D74970 BINARY CARD NO. 9F04OP24 20307 -050171160000 OCT -050171160000 ORA F0D74980 20310 465127000000 BCD 1ORG000 STORAGE ALLOCATING PSEUDOOPERATION F0D74990 20311 0 13372 0 12113 PZE 4$ORGOP,,5$ORGOP ORG F0D75000 20312 465127235162 BCD 1ORGCRS MACRO COMPILER INFORMATION PSEUDOOPERATIONF0D75010 20313 -0 13562 0 15371 MZE 4$CRSOP,,5$TTL03+1 ORGCRS F0D75020 20314 465162000000 BCD 1ORS000 OR TO STORAGE F0D75030 20315 -060271160000 OCT -060271160000 ORS F0D75040 20316 466231000000 BCD 1OSI000 OR STORAGE TO INDICATORS F0D75050 20317 +044271120000 OCT +044271120000 OSI F0D75060 20320 472123000000 BCD 1PAC000 PLACE ADDRESS IN INDEX, COMPLEMENTED F0D75070 20321 +073705120000 OCT +073705120000 PAC F0D75080 20322 472131000000 BCD 1PAI000 PLACE ADDRESS IN INDICATORS F0D75090 20323 +004401120000 OCT +004401120000 PAI F0D75100 20324 472167000000 BCD 1PAX000 PLACE ADDRESS IN INDEX F0D75110 20325 +073405160000 OCT +073405160000 PAX F0D75120 20326 472263000000 BCD 1PBT000 P BIT TEST F0D75130 20327 -076000160001 OCT -076000160001 PBT F0D75140 20330 472321000000 BCD 1PCA000 PLACE COMPLIMENT OF INDEX IN ADDRESS $F0D75141 20331 +075605120000 OCT +075605120000 PCA $F0D75142 20332 472323000000 BCD 1PCC000 LIST CONTROL PSEUDOOPERATION F0D75150 20333 -0 13404 0 10550 MZE 4$READ1,,5$PCCOP PCC F0D75160 20334 472324000000 BCD 1PCD000 PLACE COMPLEMENT OF INDEX IN DECREMENT $F0D75161 BINARY CARD NO. 9F04OP25 20335 -075605120000 OCT -075605120000 PCD $F0D75162 20336 472423000000 BCD 1PDC000 PLACE DECREMENT IN INDEX, COMPLEMENTED F0D75170 20337 -073705120000 OCT -073705120000 PDC F0D75180 20340 472467000000 BCD 1PDX000 PLACE DECREMENT IN INDEX F0D75190 20341 -073405160000 OCT -073405160000 PDX F0D75200 20342 473121000000 BCD 1PIA000 PLACE INDICATORS IN ACCUMULATOR F0D75210 20343 -004601120000 OCT -004601120000 PIA F0D75220 20344 474423000000 BCD 1PMC000 LIST CONTROL PSEUDOOPERATION F0D75230 20345 -0 13410 0 10550 MZE 4$READ1,,5$PMCOP PMC F0D75240 20346 474645000000 BCD 1PON000 PLUS ONE (PREFIX) F0D75250 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 138 COMBINED OPERATION TABLE 20347 +100001160000 OCT +100001160000 PON F0D75260 20350 475131456300 BCD 1PRINT0 LIST CONTROL PSEUDOOPERATION F0D75270 20351 -1 13562 0 12142 MON 4$PRTOP,,5$TTL03+1 PRINT F0D75280 20352 476225000000 BCD 1PSE000 PLUS SENSE F0D75290 20353 +076011160000 OCT +076011160000 PSE F0D75300 20354 476243210000 BCD 1PSLA00 PRESENT SENSE LINES, CHANNEL A F0D75310 20355 +066471120000 OCT +066471120000 PSLA F0D75320 20356 476243220000 BCD 1PSLB00 PRESENT SENSE LINES, CHANNEL B F0D75330 20357 -066471120000 OCT -066471120000 PSLB F0D75340 20360 476243230000 BCD 1PSLC00 PRESENT SENSE LINES, CHANNEL C F0D75350 20361 +066571120000 OCT +066571120000 PSLC F0D75360 20362 476243240000 BCD 1PSLD00 PRESENT SENSE LINES, CHANNEL D F0D75370 BINARY CARD NO. 9F04OP26 20363 -066571120000 OCT -066571120000 PSLD F0D75380 20364 476243250000 BCD 1PSLE00 PRESENT SENSE LINES, CHANNEL E F0D75390 20365 +066671120000 OCT +066671120000 PSLE F0D75400 20366 476243260000 BCD 1PSLF00 PRESENT SENSE LINES, CHANNEL F F0D75410 20367 -066671120000 OCT -066671120000 PSLF F0D75420 20370 476243270000 BCD 1PSLG00 PRESENT SENSE LINES, CHANNEL G F0D75430 20371 +066771120000 OCT +066771120000 PSLG F0D75440 20372 476243300000 BCD 1PSLH00 PRESENT SENSE LINES, CHANNEL H F0D75450 20373 -066771120000 OCT -066771120000 PSLH F0D75460 20374 476330000000 BCD 1PTH000 PLUS THREE (PREFIX) F0D75470 20375 +300001160000 OCT +300001160000 PTH F0D75480 20376 476366000000 BCD 1PTW000 PLUS TWO (PREFIX) F0D75490 20377 +200001160000 OCT +200001160000 PTW F0D75500 20400 476721000000 BCD 1PXA000 PLACE INDEX IN ADDRESS F0D75510 20401 +075405120000 OCT +075405120000 PXA F0D75520 20402 476724000000 BCD 1PXD000 PLACE INDEX IN DECREMENT F0D75530 20403 -075405160000 OCT -075405160000 PXD F0D75540 20404 477125000000 BCD 1PZE000 PLUS ZERO (PREFIX) F0D75550 20405 +000001160000 OCT +000001160000 PZE F0D75560 20406 512324000000 BCD 1RCD000 READ CARDS F0D75570 20407 +076200160321 OCT +076200160321 RCD F0D75580 20410 512324210000 BCD 1RCDA00 READ CARDS, CHANNEL A F0D75590 BINARY CARD NO. 9F04OP27 20411 +076200121321 OCT +076200121321 RCDA F0D75600 20412 512324220000 BCD 1RCDB00 READ CARDS, CHANNEL B F0D75610 20413 +076200122321 OCT +076200122321 RCDB F0D75620 20414 512324230000 BCD 1RCDC00 READ CARDS, CHANNEL C F0D75630 20415 +076200123321 OCT +076200123321 RCDC F0D75640 20416 512324240000 BCD 1RCDD00 READ CARDS, CHANNEL D F0D75650 20417 +076200124321 OCT +076200124321 RCDD F0D75660 20420 512324250000 BCD 1RCDE00 READ CARDS, CHANNEL E F0D75670 20421 +076200125321 OCT +076200125321 RCDE F0D75680 20422 512324260000 BCD 1RCDF00 READ CARDS, CHANNEL F F0D75690 20423 +076200126321 OCT +076200126321 RCDF F0D75700 20424 512324270000 BCD 1RCDG00 READ CARDS, CHANNEL G F0D75710 20425 +076200127321 OCT +076200127321 RCDG F0D75720 20426 512324300000 BCD 1RCDH00 READ CARDS, CHANNEL H F0D75730 20427 +076200130321 OCT +076200130321 RCDH F0D75740 20430 512330210000 BCD 1RCHA00 RESET AND LOAD CHANNEL A F0D75750 20431 +054071120000 OCT +054071120000 RCHA F0D75760 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 139 COMBINED OPERATION TABLE 20432 512330220000 BCD 1RCHB00 RESET AND LOAD CHANNEL B F0D75770 20433 -054071120000 OCT -054071120000 RCHB F0D75780 20434 512330230000 BCD 1RCHC00 RESET AND LOAD CHANNEL C F0D75790 20435 +054171120000 OCT +054171120000 RCHC F0D75800 20436 512330240000 BCD 1RCHD00 RESET AND LOAD CHANNEL D F0D75810 BINARY CARD NO. 9F04OP28 20437 -054171120000 OCT -054171120000 RCHD F0D75820 20440 512330250000 BCD 1RCHE00 RESET AND LOAD CHANNEL E F0D75830 20441 +054271120000 OCT +054271120000 RCHE F0D75840 20442 512330260000 BCD 1RCHF00 RESET AND LOAD CHANNEL F F0D75850 20443 -054271120000 OCT -054271120000 RCHF F0D75860 20444 512330270000 BCD 1RCHG00 RESET AND LOAD CHANNEL G F0D75870 20445 +054371120000 OCT +054371120000 RCHG F0D75880 20446 512330300000 BCD 1RCHH00 RESET AND LOAD CHANNEL H F0D75890 20447 -054371120000 OCT -054371120000 RCHH F0D75900 20450 512363000000 BCD 1RCT000 RESET CHANNEL TRAPS F0D75910 20451 +076000120014 OCT +076000120014 RCT F0D75920 20452 512423000000 BCD 1RDC000 RESET DATA CHANNEL F0D75930 20453 +076010120352 OCT +076010120352 RDC F0D75940 20454 512423210000 BCD 1RDCA00 RESET DATA CHANNEL A F0D75950 20455 +076000121352 OCT +076000121352 RDCA F0D75960 20456 512423220000 BCD 1RDCB00 RESET DATA CHANNEL B F0D75970 20457 +076000122352 OCT +076000122352 RDCB F0D75980 20460 512423230000 BCD 1RDCC00 RESET DATA CHANNEL C F0D75990 20461 +076000123352 OCT +076000123352 RDCC F0D76000 20462 512423240000 BCD 1RDCD00 RESET DATA CHANNEL D F0D76010 20463 +076000124352 OCT +076000124352 RDCD F0D76020 20464 512423250000 BCD 1RDCE00 RESET DATA CHANNEL E F0D76030 BINARY CARD NO. 9F04OP29 20465 +076000125352 OCT +076000125352 RDCE F0D76040 20466 512423260000 BCD 1RDCF00 RESET DATA CHANNEL F F0D76050 20467 +076000126352 OCT +076000126352 RDCF F0D76060 20470 512423270000 BCD 1RDCG00 RESET DATA CHANNEL G F0D76070 20471 +076000127352 OCT +076000127352 RDCG F0D76080 20472 512423300000 BCD 1RDCH00 RESET DATA CHANNEL H F0D76090 20473 +076000130352 OCT +076000130352 RDCH F0D76100 20474 512451000000 BCD 1RDR000 READ DRUM F0D76110 20475 +076210140300 OCT +076210140300 RDR F0D76120 20476 512462000000 BCD 1RDS000 READ SELECT F0D76130 20477 +076211160000 OCT +076211160000 RDS F0D76140 20500 512526000000 BCD 1REF000 LIST CONTROL PSEUDOOPERATION F0D76150 20501 -0 13414 0 10550 MZE 4$READ1,,5$REFOP REF F0D76160 20502 512544000000 BCD 1REM000 LIST CONTROL PSEUDOOPERATION F0D76170 20503 -0 13417 0 10550 MZE 4$READ1,,5$REMOP REM F0D76180 20504 512566000000 BCD 1REW000 REWIND TAPE F0D76190 20505 +077210160200 OCT +077210160200 REW F0D76200 20506 512566210000 BCD 1REWA00 REWIND TAPE CHANNEL A F0D76210 20507 +077210121200 OCT +077210121200 REWA F0D76220 20510 512566220000 BCD 1REWB00 REWIND TAPE CHANNEL B F0D76230 20511 +077210122200 OCT +077210122200 REWB F0D76240 20512 512566230000 BCD 1REWC00 REWIND TAPE CHANNEL C F0D76250 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 140 COMBINED OPERATION TABLE BINARY CARD NO. 9F04OP30 20513 +077210123200 OCT +077210123200 REWC F0D76260 20514 512566240000 BCD 1REWD00 REWIND TAPE CHANNEL D F0D76270 20515 +077210124200 OCT +077210124200 REWD F0D76280 20516 512566250000 BCD 1REWE00 REWIND TAPE CHANNEL E F0D76290 20517 +077210125200 OCT +077210125200 REWE F0D76300 20520 512566260000 BCD 1REWF00 REWIND TAPE CHANNEL F F0D76310 20521 +077210126200 OCT +077210126200 REWF F0D76320 20522 512566270000 BCD 1REWG00 REWIND TAPE CHANNEL G F0D76330 20523 +077210127200 OCT +077210127200 REWG F0D76340 20524 512566300000 BCD 1REWH00 REWIND TAPE CHANNEL H F0D76350 20525 +077210130200 OCT +077210130200 REWH F0D76360 20526 512566314524 BCD 1REWIND UPDATE INFORMATION PSEUDOOPERATION F0D76370 20527 -1 13562 0 12147 MON 4$REWOP,,5$TTL03+1 REWIND F0D76380 20530 512663000000 BCD 1RFT000 RIGHT HALF INDICATORS OFF TEST F0D76390 20531 +005411120001 OCT +005411120001 RFT F0D76400 20532 513121000000 BCD 1RIA000 RESET INDICATORS FROM ACCUMULATOR F0D76410 20533 -004201120000 OCT -004201120000 RIA F0D76420 20534 513123210000 BCD 1RICA00 RESET CHANNEL A DISK F0D76430 20535 +076000121350 OCT +076000121350 RICA DISK F0D76440 20536 513123220000 BCD 1RICB00 RESET CHANNEL B DISK F0D76450 20537 +076000122350 OCT +076000122350 RICB DISK F0D76460 20540 513123230000 BCD 1RICC00 RESET CHANNEL C DISK F0D76470 BINARY CARD NO. 9F04OP31 20541 +076000123350 OCT +076000123350 RICC DISK F0D76480 20542 513123240000 BCD 1RICD00 RESET CHANNEL D DISK F0D76490 20543 +076000124350 OCT +076000124350 RICD DISK F0D76500 20544 513123250000 BCD 1RICE00 RESET CHANNEL E DISK F0D76510 20545 +076000125350 OCT +076000125350 RICE DISK F0D76520 20546 513123260000 BCD 1RICF00 RESET CHANNEL F DISK F0D76530 20547 +076000126350 OCT +076000126350 RICF DISK F0D76540 20550 513123270000 BCD 1RICG00 RESET CHANNEL G DISK F0D76550 20551 +076000127350 OCT +076000127350 RICG DISK F0D76560 20552 513123300000 BCD 1RICH00 RESET CHANNEL H DISK F0D76570 20553 +076000130350 OCT +076000130350 RICH DISK F0D76580 20554 513143000000 BCD 1RIL000 RESET INDICATORS OF LEFT HALF F0D76590 20555 -005711120001 OCT -005711120001 RIL F0D76600 20556 513151000000 BCD 1RIR000 RESET INDICATORS OF RIGHT HALF F0D76610 20557 +005711120001 OCT +005711120001 RIR F0D76620 20560 513162000000 BCD 1RIS000 RESET INDICATORS FROM STORAGE F0D76630 20561 +044571120000 OCT +044571120000 RIS F0D76640 20562 514463000000 BCD 1RMT000 MACRO DEFINITION PSEUDOOPERATION F0D76650 20563 -0 13565 0 13240 MZE 4$RMTOP,,5$UNLOP+1 RMT F0D76660 20564 514524000000 BCD 1RND000 ROUND F0D76670 20565 +076000160010 OCT +076000160010 RND F0D76680 20566 514563000000 BCD 1RNT000 RIGHT HALF INDICATORS ON TEST F0D76690 BINARY CARD NO. 9F04OP32 20567 +005611120001 OCT +005611120001 RNT F0D76700 20570 514751000000 BCD 1RPR000 READ PRINTER F0D76710 20571 +076200160361 OCT +076200160361 RPR F0D76720 20572 514751210000 BCD 1RPRA00 READ PRINTER, CHANNEL A F0D76730 20573 +076200121361 OCT +076200121361 RPRA F0D76740 20574 514751220000 BCD 1RPRB00 READ PRINTER, CHANNEL B F0D76750 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 141 COMBINED OPERATION TABLE 20575 +076200122361 OCT +076200122361 RPRB F0D76760 20576 514751230000 BCD 1RPRC00 READ PRINTER, CHANNEL C F0D76770 20577 +076200123361 OCT +076200123361 RPRC F0D76780 20600 514751240000 BCD 1RPRD00 READ PRINTER, CHANNEL D F0D76790 20601 +076200124361 OCT +076200124361 RPRD F0D76800 20602 514751250000 BCD 1RPRE00 READ PRINTER, CHANNEL E F0D76810 20603 +076200125361 OCT +076200125361 RPRE F0D76820 20604 514751260000 BCD 1RPRF00 READ PRINTER, CHANNEL F F0D76830 20605 +076200126361 OCT +076200126361 RPRF F0D76840 20606 514751270000 BCD 1RPRG00 READ PRINTER, CHANNEL G F0D76850 20607 +076200127361 OCT +076200127361 RPRG F0D76860 20610 514751300000 BCD 1RPRH00 READ PRINTER, CHANNEL H F0D76870 20611 +076200130361 OCT +076200130361 RPRH F0D76880 20612 515043000000 BCD 1RQL000 ROTATE MQ LEFT F0D76890 20613 -077311160000 OCT -077311160000 RQL F0D76900 20614 516223210000 BCD 1RSCA00 RESET AND START CHANNEL A DISK F0D76910 BINARY CARD NO. 9F04OP33 20615 +054071120000 OCT +054071120000 RSCA DISK F0D76920 20616 516223220000 BCD 1RSCB00 RESET AND START CHANNEL B DISK F0D76930 20617 -054071120000 OCT -054071120000 RSCB DISK F0D76940 20620 516223230000 BCD 1RSCC00 RESET AND START CHANNEL C DISK F0D76950 20621 +054171120000 OCT +054171120000 RSCC DISK F0D76960 20622 516223240000 BCD 1RSCD00 RESET AND START CHANNEL D DISK F0D76970 20623 -054171120000 OCT -054171120000 RSCD DISK F0D76980 20624 516223250000 BCD 1RSCE00 RESET AND START CHANNEL E DISK F0D76990 20625 +054271120000 OCT +054271120000 RSCE DISK F0D77000 20626 516223260000 BCD 1RSCF00 RESET AND START CHANNEL F DISK F0D77010 20627 -054271120000 OCT -054271120000 RSCF DISK F0D77020 20630 516223270000 BCD 1RSCG00 RESET AND START CHANNEL G DISK F0D77030 20631 +054371120000 OCT +054371120000 RSCG DISK F0D77040 20632 516223300000 BCD 1RSCH00 RESET AND START CHANNEL H DISK F0D77050 20633 -054371120000 OCT -054371120000 RSCH DISK F0D77060 20634 516322000000 BCD 1RTB000 READ TAPE BINARY F0D77070 20635 +076210160220 OCT +076210160220 RTB F0D77080 20636 516322210000 BCD 1RTBA00 READ TAPE BINARY, CHANNEL A F0D77090 20637 +076210121220 OCT +076210121220 RTBA F0D77100 20640 516322220000 BCD 1RTBB00 READ TAPE BINARY, CHANNEL B F0D77110 20641 +076210122220 OCT +076210122220 RTBB F0D77120 20642 516322230000 BCD 1RTBC00 READ TAPE BINARY, CHANNEL C F0D77130 BINARY CARD NO. 9F04OP34 20643 +076210123220 OCT +076210123220 RTBC F0D77140 20644 516322240000 BCD 1RTBD00 READ TAPE BINARY, CHANNEL D F0D77150 20645 +076210124220 OCT +076210124220 RTBD F0D77160 20646 516322250000 BCD 1RTBE00 READ TAPE BINARY, CHANNEL E F0D77170 20647 +076210125220 OCT +076210125220 RTBE F0D77180 20650 516322260000 BCD 1RTBF00 READ TAPE BINARY, CHANNEL F F0D77190 20651 +076210126220 OCT +076210126220 RTBF F0D77200 20652 516322270000 BCD 1RTBG00 READ TAPE BINARY, CHANNEL G F0D77210 20653 +076210127220 OCT +076210127220 RTBG F0D77220 20654 516322300000 BCD 1RTBH00 READ TAPE BINARY, CHANNEL H F0D77230 20655 +076210130220 OCT +076210130220 RTBH F0D77240 20656 516324000000 BCD 1RTD000 READ TAPE DECIMAL F0D77250 20657 +076210160200 OCT +076210160200 RTD F0D77260 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 142 COMBINED OPERATION TABLE 20660 516324210000 BCD 1RTDA00 READ TAPE DECIMAL, CHANNEL A F0D77270 20661 +076210121200 OCT +076210121200 RTDA F0D77280 20662 516324220000 BCD 1RTDB00 READ TAPE DECIMAL, CHANNEL B F0D77290 20663 +076210122200 OCT +076210122200 RTDB F0D77300 20664 516324230000 BCD 1RTDC00 READ TAPE DECIMAL, CHANNEL C F0D77310 20665 +076210123200 OCT +076210123200 RTDC F0D77320 20666 516324240000 BCD 1RTDD00 READ TAPE DECIMAL, CHANNEL D F0D77330 20667 +076210124200 OCT +076210124200 RTDD F0D77340 20670 516324250000 BCD 1RTDE00 READ TAPE DECIMAL, CHANNEL E F0D77350 BINARY CARD NO. 9F04OP35 20671 +076210125200 OCT +076210125200 RTDE F0D77360 20672 516324260000 BCD 1RTDF00 READ TAPE DECIMAL, CHANNEL F F0D77370 20673 +076210126200 OCT +076210126200 RTDF F0D77380 20674 516324270000 BCD 1RTDG00 READ TAPE DECIMAL, CHANNEL G F0D77390 20675 +076210127200 OCT +076210127200 RTDG F0D77400 20676 516324300000 BCD 1RTDH00 READ TAPE DECIMAL, CHANNEL H F0D77410 20677 +076210130200 OCT +076210130200 RTDH F0D77420 20700 516363000000 BCD 1RTT000 REDUNDANCY TAPE TEST F0D77430 20701 -076000140012 OCT -076000140012 RTT F0D77440 20702 516445000000 BCD 1RUN000 REWIND AND UNLOAD F0D77450 20703 -077210120200 OCT -077210120200 RUN F0D77460 20704 516445210000 BCD 1RUNA00 REWIND AND UNLOAD, CHANNEL A F0D77470 20705 -077210121200 OCT -077210121200 RUNA F0D77480 20706 516445220000 BCD 1RUNB00 REWIND AND UNLOAD, CHANNEL B F0D77490 20707 -077210122200 OCT -077210122200 RUNB F0D77500 20710 516445230000 BCD 1RUNC00 REWIND AND UNLOAD, CHANNEL C F0D77510 20711 -077210123200 OCT -077210123200 RUNC F0D77520 20712 516445240000 BCD 1RUND00 REWIND AND UNLOAD, CHANNEL D F0D77530 20713 -077210124200 OCT -077210124200 RUND F0D77540 20714 516445250000 BCD 1RUNE00 REWIND AND UNLOAD, CHANNEL E F0D77550 20715 -077210125200 OCT -077210125200 RUNE F0D77560 20716 516445260000 BCD 1RUNF00 REWIND AND UNLOAD, CHANNEL F F0D77570 BINARY CARD NO. 9F04OP36 20717 -077210126200 OCT -077210126200 RUNF F0D77580 20720 516445270000 BCD 1RUNG00 REWIND AND UNLOAD, CHANNEL G F0D77590 20721 -077210127200 OCT -077210127200 RUNG F0D77600 20722 516445300000 BCD 1RUNH00 REWIND AND UNLOAD, CHANNEL H F0D77610 20723 -077210130200 OCT -077210130200 RUNH F0D77620 20724 545454000000 BCD 1***000 CONVENTION FOR OPCODE TO BE INITIALIZED F0D77630 20725 +000001160000 OCT +000001160000 *** F0D77640 20726 606060000000 BCD 1 000 BLANKS F0D77650 20727 +000001160000 OCT +000001160000 BLANKS F0D77660 20730 622151000000 BCD 1SAR000 STORE ASSEMBLY REGISTER DISK F0D77670 20731 +300011720004 OCT 300011720004 SAR DISK F0D77680 20732 622244000000 BCD 1SBM000 SUBTRACT MAGNITUDE F0D77690 20733 -040071160000 OCT -040071160000 SBM F0D77700 20734 622321000000 BCD 1SCA000 STORE COMPLEMENT OF INDEX IN ADDRESS $F0D77701 20735 +063615120000 OCT +063615120000 SCA $F0D77702 20736 622324000000 BCD 1SCD000 STORE COMPLEMENT OF INDEX IN DECREMENT $F0D77703 20737 -063615120000 OCT -063615120000 SCD $F0D77704 20740 622324210000 BCI 1,SCDA00 STORE CHANNEL DIAGNOSTIC,CHANNEL A $F0D77705 20741 +064471120000 OCT +064471120000 SCDA $F0D77706 20742 622324220000 BCI 1,SCDB00 STORE CHANNEL DIAGNOSTIC,CHANNEL B $F0D77707 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 143 COMBINED OPERATION TABLE 20743 -064471120000 OCT -064471120000 SCDB $F0D77708 20744 622324230000 BCI 1,SCDC00 STORE CHANNEL DIAGNOSTIC,CHANNEL C $F0D77709 BINARY CARD NO. 9F04OP37 20745 +064571120000 OCT +064571120000 SCDC $F0D7770A 20746 622324240000 BCI 1,SCDD00 STORE CHANNEL DIAGNOSTIC,CHANNEL D $F0D7770B 20747 -064571120000 OCT -064571120000 SCDD $F0D7770C 20750 622324250000 BCI 1,SCDE00 STORE CHANNEL DIAGNOSTIC,CHANNEL E $F0D7770D 20751 +064671120000 OCT +064671120000 SCDE $F0D7770E 20752 622324260000 BCI 1,SCDF00 STORE CHANNEL DIAGNOSTIC,CHANNEL F $F0D7770F 20753 -064671120000 OCT -064671120000 SCDF $F0D7770G 20754 622324270000 BCI 1,SCDG00 STORE CHANNEL DIAGNOSTIC,CHANNEL G $F0D7770H 20755 +064771120000 OCT +064771120000 SCDG $F0D7770I 20756 622324300000 BCI 1,SCDH00 STORE CHANNEL DIAGNOSTIC,CHANNEL H $F0D7770J 20757 -064771120000 OCT -064771120000 SCDH $F0D7770K 20760 622330210000 BCD 1SCHA00 STORE CHANNEL A F0D77710 20761 +064071120000 OCT +064071120000 SCHA F0D77720 20762 622330220000 BCD 1SCHB00 STORE CHANNEL B F0D77730 20763 -064071120000 OCT -064071120000 SCHB F0D77740 20764 622330230000 BCD 1SCHC00 STORE CHANNEL C F0D77750 20765 +064171120000 OCT +064171120000 SCHC F0D77760 20766 622330240000 BCD 1SCHD00 STORE CHANNEL D F0D77770 20767 -064171120000 OCT -064171120000 SCHD F0D77780 20770 622330250000 BCD 1SCHE00 STORE CHANNEL E F0D77790 20771 +064271120000 OCT +064271120000 SCHE F0D77800 20772 622330260000 BCD 1SCHF00 STORE CHANNEL F F0D77810 BINARY CARD NO. 9F04OP38 20773 -064271120000 OCT -064271120000 SCHF F0D77820 20774 622330270000 BCD 1SCHG00 STORE CHANNEL G F0D77830 20775 +064371120000 OCT +064371120000 SCHG F0D77840 20776 622330300000 BCD 1SCHH00 STORE CHANNEL H F0D77850 20777 -064371120000 OCT -064371120000 SCHH F0D77860 21000 622430000000 BCD 1SDH000 SET DENSITY HIGH F0D77870 21001 +077610120220 OCT +077610120220 SDH F0D77880 21002 622430210000 BCD 1SDHA00 SET DENSITY HIGH, CHANNEL A F0D77890 21003 +077610121220 OCT +077610121220 SDHA F0D77900 21004 622430220000 BCD 1SDHB00 SET DENSITY HIGH, CHANNEL B F0D77910 21005 +077610122220 OCT +077610122220 SDHB F0D77920 21006 622430230000 BCD 1SDHC00 SET DENSITY HIGH, CHANNEL C F0D77930 21007 +077610123220 OCT +077610123220 SDHC F0D77940 21010 622430240000 BCD 1SDHD00 SET DENSITY HIGH, CHANNEL D F0D77950 21011 +077610124220 OCT +077610124220 SDHD F0D77960 21012 622430250000 BCD 1SDHE00 SET DENSITY HIGH, CHANNEL E F0D77970 21013 +077610125220 OCT +077610125220 SDHE F0D77980 21014 622430260000 BCD 1SDHF00 SET DENSITY HIGH, CHANNEL F F0D77990 21015 +077610126220 OCT +077610126220 SDHF F0D78000 21016 622430270000 BCD 1SDHG00 SET DENSITY HIGH, CHANNEL G F0D78010 21017 +077610127220 OCT +077610127220 SDHG F0D78020 21020 622430300000 BCD 1SDHH00 SET DENSITY HIGH, CHANNEL H F0D78030 BINARY CARD NO. 9F04OP39 21021 +077610130220 OCT +077610130220 SDHH F0D78040 21022 622443000000 BCD 1SDL000 SET DENSITY LOW F0D78050 21023 +077610120200 OCT +077610120200 SDL F0D78060 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 144 COMBINED OPERATION TABLE 21024 622443210000 BCD 1SDLA00 SET DENSITY LOW, CHANNEL A F0D78070 21025 +077610121200 OCT +077610121200 SDLA F0D78080 21026 622443220000 BCD 1SDLB00 SET DENSITY LOW, CHANNEL B F0D78090 21027 +077610122200 OCT +077610122200 SDLB F0D78100 21030 622443230000 BCD 1SDLC00 SET DENSITY LOW, CHANNEL C F0D78110 21031 +077610123200 OCT +077610123200 SDLC F0D78120 21032 622443240000 BCD 1SDLD00 SET DENSITY LOW, CHANNEL D F0D78130 21033 +077610124200 OCT +077610124200 SDLD F0D78140 21034 622443250000 BCD 1SDLE00 SET DENSITY LOW, CHANNEL E F0D78150 21035 +077610125200 OCT +077610125200 SDLE F0D78160 21036 622443260000 BCD 1SDLF00 SET DENSITY LOW, CHANNEL F F0D78170 21037 +077610126200 OCT +077610126200 SDLF F0D78180 21040 622443270000 BCD 1SDLG00 SET DENSITY LOW, CHANNEL G F0D78190 21041 +077610127200 OCT +077610127200 SDLG F0D78200 21042 622443300000 BCD 1SDLH00 SET DENSITY LOW, CHANNEL H F0D78210 21043 +077610130200 OCT +077610130200 SDLH F0D78220 21044 622445000000 BCD 1SDN000 SET DENSITY F0D78230 21045 +077610120200 OCT +077610120200 SDN F0D78240 21046 622563000000 BCD 1SET000 SYMBOL DEFINING PSEUDOOPERATION F0D78250 BINARY CARD NO. 9F04OP40 21047 0 13430 0 15420 PZE 4$SETOP,,5$SETOP SET F0D78260 21050 622565254500 BCD 1SEVEN0 SEVEN (PREFIX) F0D78270 21051 -300001120000 OCT +700001120000 SEVEN F0D78280 21052 623143000000 BCD 1SIL000 SET INDICATORS OF LEFT HALF F0D78290 21053 -005511120001 OCT -005511120001 SIL F0D78300 21054 623151000000 BCD 1SIR000 SET INDICATORS OF RIGHT HALF F0D78310 21055 +005511120001 OCT +005511120001 SIR F0D78320 21056 623167000000 BCD 1SIX000 SIX (PREFIX) F0D78330 21057 -200001160000 OCT +600001160000 SIX F0D78340 21060 624247000000 BCD 1SKP000 LIST CONTROL PSEUDOOPERATION F0D78350 21061 -0 12550 0 10550 MZE 4$READ1,,5$EJCOP SKP F0D78360 21062 624247263143 BCD 1SKPFIL UPDATE INFORMATION PSEUDOOPERATION F0D78370 21063 -1 13562 0 12154 MON 4$SKFOP,,5$TTL03+1 SKPFIL F0D78380 21064 624326000000 BCD 1SLF000 SENSE LIGHTS OFF F0D78390 21065 +076000160140 OCT +076000160140 SLF F0D78400 21066 624345000000 BCD 1SLN000 SENSE LIGHTS ON F0D78410 21067 +076010160140 OCT +076010160140 SLN F0D78420 21070 624350000000 BCD 1SLQ000 STORE LEFT HALF MQ F0D78430 21071 -062071160000 OCT -062071160000 SLQ F0D78440 21072 624363000000 BCD 1SLT000 SENSE LIGHT TEST F0D78450 21073 -076010160140 OCT -076010160140 SLT F0D78460 21074 624366000000 BCD 1SLW000 STORE LOGICAL WORD F0D78470 BINARY CARD NO. 9F04OP41 21075 +060271160000 OCT +060271160000 SLW F0D78480 21076 624462000000 BCD 1SMS000 SET MODE AND SELECT DISK F0D78490 21077 -300011520004 OCT 700011520004 SMS DISK$F0D78500 21100 624562000000 BCD 1SNS000 SENSE DISK F0D78510 21101 +240001320004 OCT 240001320004 SNS DISK$F0D78520 21102 624721232500 BCD 1SPACE0 LIST CONTROL PSEUDOOPERATION F0D78530 21103 -0 13450 0 10550 MZE 4$READ1,,5$SPCOP SPACE F0D78540 21104 624723000000 BCD 1SPC000 LIST CONTROL PSEUDOOPERATION F0D78550 21105 -0 13450 0 10550 MZE 4$READ1,,5$SPCOP SPC F0D78560 21106 624751000000 BCD 1SPR000 SENSE PRINTER F0D78570 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 145 COMBINED OPERATION TABLE 21107 +076010160360 OCT +076010160360 SPR F0D78580 21110 624751210000 BCD 1SPRA00 SENSE PRINTER, CHANNEL A F0D78590 21111 +076010121360 OCT +076010121360 SPRA F0D78600 21112 624751220000 BCD 1SPRB00 SENSE PRINTER, CHANNEL B F0D78610 21113 +076010122360 OCT +076010122360 SPRB F0D78620 21114 624751230000 BCD 1SPRC00 SENSE PRINTER, CHANNEL C F0D78630 21115 +076010123360 OCT +076010123360 SPRC F0D78640 21116 624751240000 BCD 1SPRD00 SENSE PRINTER, CHANNEL D F0D78650 21117 +076010124360 OCT +076010124360 SPRD F0D78660 21120 624751250000 BCD 1SPRE00 SENSE PRINTER, CHANNEL E F0D78670 21121 +076010125360 OCT +076010125360 SPRE F0D78680 21122 624751260000 BCD 1SPRF00 SENSE PRINTER, CHANNEL F F0D78690 BINARY CARD NO. 9F04OP42 21123 +076010126360 OCT +076010126360 SPRF F0D78700 21124 624751270000 BCD 1SPRG00 SENSE PRINTER, CHANNEL G F0D78710 21125 +076010127360 OCT +076010127360 SPRG F0D78720 21126 624751300000 BCD 1SPRH00 SENSE PRINTER, CHANNEL H F0D78730 21127 +076010130360 OCT +076010130360 SPRH F0D78740 21130 624763000000 BCD 1SPT000 SENSE PRINTER TEST $F0D78750 21131 +076000160360 OCT +076000160360 SPT $F0D78760 21132 624763210000 BCD 1SPTA00 SENSE PRINTER TEST, CHANNEL A $F0D78770 21133 +076000121360 OCT +076000121360 SPTA $F0D78780 21134 624763220000 BCD 1SPTB00 SENSE PRINTER TEST, CHANNEL B $F0D78790 21135 +076000122360 OCT +076000122360 SPTB $F0D78800 21136 624763230000 BCD 1SPTC00 SENSE PRINTER TEST, CHANNEL C $F0D78810 21137 +076000123360 OCT +076000123360 SPTC $F0D78820 21140 624763240000 BCD 1SPTD00 SENSE PRINTER TEST, CHANNEL D $F0D78830 21141 +076000124360 OCT +076000124360 SPTD $F0D78840 21142 624763250000 BCD 1SPTE00 SENSE PRINTER TEST, CHANNEL E $F0D78850 21143 +076000125360 OCT +076000125360 SPTE $F0D78860 21144 624763260000 BCD 1SPTF00 SENSE PRINTER TEST, CHANNEL F $F0D78870 21145 +076000126360 OCT +076000126360 SPTF $F0D78880 21146 624763270000 BCD 1SPTG00 SENSE PRINTER TEST, CHANNEL G $F0D78890 21147 +076000127360 OCT +076000127360 SPTG $F0D78900 21150 624763300000 BCD 1SPTH00 SENSE PRINTER TEST, CHANNEL H $F0D78910 BINARY CARD NO. 9F04OP43 21151 +076000130360 OCT +076000130360 SPTH $F0D78920 21152 624764000000 BCD 1SPU000 SENSE PUNCH F0D78930 21153 +076010160340 OCT +076010160340 SPU F0D78940 21154 624764210000 BCD 1SPUA00 SENSE PUNCH, CHANNEL A F0D78950 21155 +076010121340 OCT +076010121340 SPUA F0D78960 21156 624764220000 BCD 1SPUB00 SENSE PUNCH, CHANNEL B F0D78970 21157 +076010122340 OCT +076010122340 SPUB F0D78980 21160 624764230000 BCD 1SPUC00 SENSE PUNCH, CHANNEL C F0D78990 21161 +076010123340 OCT +076010123340 SPUC F0D79000 21162 624764240000 BCD 1SPUD00 SENSE PUNCH, CHANNEL D F0D79010 21163 +076010124340 OCT +076010124340 SPUD F0D79020 21164 624764250000 BCD 1SPUE00 SENSE PUNCH, CHANNEL E F0D79030 21165 +076010125340 OCT +076010125340 SPUE F0D79040 21166 624764260000 BCD 1SPUF00 SENSE PUNCH, CHANNEL F F0D79050 21167 +076010126340 OCT +076010126340 SPUF F0D79060 21170 624764270000 BCD 1SPUG00 SENSE PUNCH, CHANNEL G F0D79070 21171 +076010127340 OCT +076010127340 SPUG F0D79080 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 146 COMBINED OPERATION TABLE 21172 624764300000 BCD 1SPUH00 SENSE PUNCH, CHANNEL H F0D79090 21173 +076010130340 OCT +076010130340 SPUH F0D79100 21174 626243210000 BCD 1SSLA00 STORE SENSE LINES, CHANNEL A F0D79110 21175 +066071120000 OCT +066071120000 SSLA F0D79120 21176 626243220000 BCD 1SSLB00 STORE SENSE LINES, CHANNEL B F0D79130 BINARY CARD NO. 9F04OP44 21177 -066071120000 OCT -066071120000 SSLB F0D79140 21200 626243230000 BCD 1SSLC00 STORE SENSE LINES, CHANNEL C F0D79150 21201 +066171120000 OCT +066171120000 SSLC F0D79160 21202 626243240000 BCD 1SSLD00 STORE SENSE LINES, CHANNEL D F0D79170 21203 -066171120000 OCT -066171120000 SSLD F0D79180 21204 626243250000 BCD 1SSLE00 STORE SENSE LINES, CHANNEL E F0D79190 21205 +066271120000 OCT +066271120000 SSLE F0D79200 21206 626243260000 BCD 1SSLF00 STORE SENSE LINES, CHANNEL F F0D79210 21207 -066271120000 OCT -066271120000 SSLF F0D79220 21210 626243270000 BCD 1SSLG00 STORE SENSE LINES, CHANNEL G F0D79230 21211 +066371120000 OCT +066371120000 SSLG F0D79240 21212 626243300000 BCD 1SSLH00 STORE SENSE LINES, CHANNEL H F0D79250 21213 -066371120000 OCT -066371120000 SSLH F0D79260 21214 626244000000 BCD 1SSM000 SET SIGN MINUS F0D79270 21215 -076000160003 OCT -076000160003 SSM F0D79280 21216 626247000000 BCD 1SSP000 SET SIGN PLUS F0D79290 21217 +076000160003 OCT +076000160003 SSP F0D79300 21220 626263000000 BCD 1SST000 ASSEMBLER INFORMATION PSEUDOOPERATION F0D79310 21221 -0 13565 0 12160 MZE 4$SSTOP,,5$UNLOP+1 SST F0D79320 21222 626321000000 BCD 1STA000 STORE ADDRESS F0D79330 21223 +062171160000 OCT +062171160000 STA F0D79340 21224 626323210000 BCD 1STCA00 START CHANNEL A DISK F0D79350 BINARY CARD NO. 9F04OP45 21225 +054401120000 OCT +054401120000 STCA DISK F0D79360 21226 626323220000 BCD 1STCB00 START CHANNEL B DISK F0D79370 21227 -054401120000 OCT -054401120000 STCB DISK F0D79380 21230 626323230000 BCD 1STCC00 START CHANNEL C DISK F0D79390 21231 +054501120000 OCT +054501120000 STCC DISK F0D79400 21232 626323240000 BCD 1STCD00 START CHANNEL D DISK F0D79410 21233 -054501120000 OCT -054501120000 STCD DISK F0D79420 21234 626323250000 BCD 1STCE00 START CHANNEL E DISK F0D79430 21235 +054601120000 OCT +054601120000 STCE DISK F0D79440 21236 626323260000 BCD 1STCF00 START CHANNEL F DISK F0D79450 21237 -054601120000 OCT -054601120000 STCF DISK F0D79460 21240 626323270000 BCD 1STCG00 START CHANNEL G DISK F0D79470 21241 +054701120000 OCT +054701120000 STCG DISK F0D79480 21242 626323300000 BCD 1STCH00 START CHANNEL H DISK F0D79490 21243 -054701120000 OCT -054701120000 STCH DISK F0D79500 21244 626324000000 BCD 1STD000 STORE DECREMENT F0D79510 21245 +062271160000 OCT +062271160000 STD F0D79520 21246 626331000000 BCD 1STI000 STORE INDICATORS F0D79530 21247 +060471120000 OCT +060471120000 STI F0D79540 21250 626343000000 BCD 1STL000 STORE INSTRUCTION LOCATION COUNTER F0D79550 21251 -062571120000 OCT -062571120000 STL F0D79560 21252 626346000000 BCD 1STO000 STORE F0D79570 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 147 COMBINED OPERATION TABLE BINARY CARD NO. 9F04OP46 21253 +060171160000 OCT +060171160000 STO F0D79580 21254 626347000000 BCD 1STP000 STORE PREFIX F0D79590 21255 +063071160000 OCT +063071160000 STP F0D79600 21256 626350000000 BCD 1STQ000 STORE MQ F0D79610 21257 -060071160000 OCT -060071160000 STQ F0D79620 21260 626351000000 BCD 1STR000 STORE LOCATION AND TRAP F0D79630 21261 -100001120000 OCT -100001120000 STR F0D79640 21262 626363000000 BCD 1STT000 STORE TAG F0D79650 21263 +062571120000 OCT +062571120000 STT F0D79660 21264 626371000000 BCD 1STZ000 STORE ZERO F0D79670 21265 +060071160000 OCT +060071160000 STZ F0D79680 21266 626422000000 BCD 1SUB000 SUBTRACT F0D79690 21267 +040271160000 OCT +040271160000 SUB F0D79700 21270 626545000000 BCD 1SVN000 SEVEN (PREFIX) F0D79710 21271 -300001160000 OCT +700001160000 SVN F0D79720 21272 626663000000 BCD 1SWT000 SENSE SWITCH TEST F0D79730 21273 +076010160160 OCT +076010160160 SWT F0D79740 21274 626721000000 BCD 1SXA000 STORE INDEX IN ADDRESS F0D79750 21275 +063415120000 OCT +063415120000 SXA F0D79760 21276 626724000000 BCD 1SXD000 STORE INDEX IN DECREMENT F0D79770 21277 -063415160000 OCT -063415160000 SXD F0D79780 21300 627045000000 BCD 1SYN000 SYMBOL DEFINING PSEUDOOPERATION F0D79790 BINARY CARD NO. 9F04OP47 21301 0 13201 0 12162 PZE 4$SYNOP,,5$MAXOP SYN F0D79800 21302 632147254546 BCD 1TAPENO SYMBOL DEFINING PSEUDOOPERATION F0D79810 21303 0 12347 0 12173 PZE 4$TAPOP,,5$BOLOP+2 TAPENO F0D79820 21304 632324000000 BCD 1TCD000 CARD FORMAT PSEUDOOPERATION F0D79830 21305 -0 13503 0 12256 MZE 4$TCDOP,,5$TCDOP TCD F0D79840 21306 632330000000 BCD 1TCH000 I/O TRANSFER IN CHANNEL F0D79850 21307 +100011520000 OCT 100011520000 TCH F0D79860 21310 632344000000 BCD 1TCM000 TRANSFER ON CONDITION MET DISK F0D79870 21311 -100013720006 OCT 500013720006 TCM DISK F0D79880 21312 632345210000 BCD 1TCNA00 TRANSFER ON CHANNEL A NOT IN OPERATION F0D79890 21313 -006071120000 OCT -006071120000 TCNA F0D79900 21314 632345220000 BCD 1TCNB00 TRANSFER ON CHANNEL B NOT IN OPERATION F0D79910 21315 -006171120000 OCT -006171120000 TCNB F0D79920 21316 632345230000 BCD 1TCNC00 TRANSFER ON CHANNEL C NOT IN OPERATION F0D79930 21317 -006271120000 OCT -006271120000 TCNC F0D79940 21320 632345240000 BCD 1TCND00 TRANSFER ON CHANNEL D NOT IN OPERATION F0D79950 21321 -006371120000 OCT -006371120000 TCND F0D79960 21322 632345250000 BCD 1TCNE00 TRANSFER ON CHANNEL E NOT IN OPERATION F0D79970 21323 -006471120000 OCT -006471120000 TCNE F0D79980 21324 632345260000 BCD 1TCNF00 TRANSFER ON CHANNEL F NOT IN OPERATION F0D79990 21325 -006571120000 OCT -006571120000 TCNF F0D80000 21326 632345270000 BCD 1TCNG00 TRANSFER ON CHANNEL G NOT IN OPERATION F0D80010 BINARY CARD NO. 9F04OP48 21327 -006671120000 OCT -006671120000 TCNG F0D80020 21330 632345300000 BCD 1TCNH00 TRANSFER ON CHANNEL H NOT IN OPERATION F0D80030 21331 -006771120000 OCT -006771120000 TCNH F0D80040 21332 632346210000 BCD 1TCOA00 TRANSFER ON CHANNEL A IN OPERATION F0D80050 21333 +006071120000 OCT +006071120000 TCOA F0D80060 21334 632346220000 BCD 1TCOB00 TRANSFER ON CHANNEL B IN OPERATION F0D80070 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 148 COMBINED OPERATION TABLE 21335 +006171120000 OCT +006171120000 TCOB F0D80080 21336 632346230000 BCD 1TCOC00 TRANSFER ON CHANNEL C IN OPERATION F0D80090 21337 +006271120000 OCT +006271120000 TCOC F0D80100 21340 632346240000 BCD 1TCOD00 TRANSFER ON CHANNEL D IN OPERATION F0D80110 21341 +006371120000 OCT +006371120000 TCOD F0D80120 21342 632346250000 BCD 1TCOE00 TRANSFER ON CHANNEL E IN OPERATION F0D80130 21343 +006471120000 OCT +006471120000 TCOE F0D80140 21344 632346260000 BCD 1TCOF00 TRANSFER ON CHANNEL F IN OPERATION F0D80150 21345 +006571120000 OCT +006571120000 TCOF F0D80160 21346 632346270000 BCD 1TCOG00 TRANSFER ON CHANNEL G IN OPERATION F0D80170 21347 +006671120000 OCT +006671120000 TCOG F0D80180 21350 632346300000 BCD 1TCOH00 TRANSFER ON CHANNEL H IN OPERATION F0D80190 21351 +006771120000 OCT +006771120000 TCOH F0D80200 21352 632423000000 BCD 1TDC000 TRANSFER AND DECREMENT COUNTER DISK F0D80210 21353 -240011520004 OCT 640011520004 TDC DISK F0D80220 21354 632526210000 BCD 1TEFA00 TRANSFER ON END OF FILE, CHANNEL A F0D80230 BINARY CARD NO. 9F04OP49 21355 +003071120000 OCT +003071120000 TEFA F0D80240 21356 632526220000 BCD 1TEFB00 TRANSFER ON END OF FILE, CHANNEL B F0D80250 21357 -003071120000 OCT -003071120000 TEFB F0D80260 21360 632526230000 BCD 1TEFC00 TRANSFER ON END OF FILE, CHANNEL C F0D80270 21361 +003171120000 OCT +003171120000 TEFC F0D80280 21362 632526240000 BCD 1TEFD00 TRANSFER ON END OF FILE, CHANNEL D F0D80290 21363 -003171120000 OCT -003171120000 TEFD F0D80300 21364 632526250000 BCD 1TEFE00 TRANSFER ON END OF FILE, CHANNEL E F0D80310 21365 +003271120000 OCT +003271120000 TEFE F0D80320 21366 632526260000 BCD 1TEFF00 TRANSFER ON END OF FILE, CHANNEL F F0D80330 21367 -003271120000 OCT -003271120000 TEFF F0D80340 21370 632526270000 BCD 1TEFG00 TRANSFER ON END OF FILE, CHANNEL G F0D80350 21371 +003371120000 OCT +003371120000 TEFG F0D80360 21372 632526300000 BCD 1TEFH00 TRANSFER ON END OF FILE, CHANNEL H F0D80370 21373 -003371120000 OCT -003371120000 TEFH F0D80380 21374 633051252500 BCD 1THREE0 THREE (PREFIX) F0D80390 21375 +300001120000 OCT +300001120000 THREE F0D80400 21376 633126000000 BCD 1TIF000 TRANSFER IF INDICATORS OFF F0D80410 21377 +004671120000 OCT +004671120000 TIF F0D80420 21400 633146000000 BCD 1TIO000 TRANSFER IF INDICATORS ON F0D80430 21401 +004271120000 OCT +004271120000 TIO F0D80440 21402 633163432500 BCD 1TITLE0 LIST CONTROL PSEUDOOPERATION F0D80450 BINARY CARD NO. 9F04OP50 21403 -0 13515 0 10550 MZE 4$READ1,,5$TITOP TITLE F0D80460 21404 633167000000 BCD 1TIX000 TRANSFER ON INDEX F0D80470 21405 +200017160000 OCT +200017160000 TIX F0D80480 21406 634350000000 BCD 1TLQ000 TRANSFER ON LOW MQ F0D80490 21407 +004071160000 OCT +004071160000 TLQ F0D80500 21410 634431000000 BCD 1TMI000 TRANSFER ON MINUS F0D80510 21411 -012071160000 OCT -012071160000 TMI F0D80520 21412 634546000000 BCD 1TNO000 TRANSFER ON NO OVERFLOW F0D80530 21413 -014071160000 OCT -014071160000 TNO F0D80540 21414 634567000000 BCD 1TNX000 TRANSFER ON NO INDEX F0D80550 21415 -200017160000 OCT -200017160000 TNX F0D80560 21416 634571000000 BCD 1TNZ000 TRANSFER ON NO ZERO F0D80570 21417 -010071160000 OCT -010071160000 TNZ F0D80580 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 149 COMBINED OPERATION TABLE 21420 634665000000 BCD 1TOV000 TRANSFER ON OVERFLOW F0D80590 21421 +014071160000 OCT +014071160000 TOV F0D80600 21422 634743000000 BCD 1TPL000 TRANSFER ON PLUS F0D80610 21423 +012071160000 OCT +012071160000 TPL F0D80620 21424 635046000000 BCD 1TQO000 TRANSFER ON MQ OVERFLOW F0D80630 21425 +016171160000 OCT +016171160000 TQO F0D80640 21426 635047000000 BCD 1TQP000 TRANSFER ON MQ PLUS F0D80650 21427 +016271160000 OCT +016271160000 TQP F0D80660 21430 635121000000 BCD 1TRA000 TRANSFER F0D80670 BINARY CARD NO. 9F04OP51 21431 +002071160000 OCT +002071160000 TRA F0D80680 21432 635123210000 BCD 1TRCA00 TRANSFER ON REDUNDANCY CHECK, CHANNEL A F0D80690 21433 +002271120000 OCT +002271120000 TRCA F0D80700 21434 635123220000 BCD 1TRCB00 TRANSFER ON REDUNDANCY CHECK, CHANNEL B F0D80710 21435 -002271120000 OCT -002271120000 TRCB F0D80720 21436 635123230000 BCD 1TRCC00 TRANSFER ON REDUNDANCY CHECK, CHANNEL C F0D80730 21437 +002471120000 OCT +002471120000 TRCC F0D80740 21440 635123240000 BCD 1TRCD00 TRANSFER ON REDUNDANCY CHECK, CHANNEL D F0D80750 21441 -002471120000 OCT -002471120000 TRCD F0D80760 21442 635123250000 BCD 1TRCE00 TRANSFER ON REDUNDANCY CHECK, CHANNEL E F0D80770 21443 +002671120000 OCT +002671120000 TRCE F0D80780 21444 635123260000 BCD 1TRCF00 TRANSFER ON REDUNDANCY CHECK, CHANNEL F F0D80790 21445 -002671120000 OCT -002671120000 TRCF F0D80800 21446 635123270000 BCD 1TRCG00 TRANSFER ON REDUNDANCY CHECK, CHANNEL G F0D80810 21447 +002771120000 OCT +002771120000 TRCG F0D80820 21450 635123300000 BCD 1TRCH00 TRANSFER ON REDUNDANCY CHECK, CHANNEL H F0D80830 21451 -002771120000 OCT -002771120000 TRCH F0D80840 21452 635162000000 BCD 1TRS000 TEST READY STATUS F0D80850 21453 -077510120000 OCT -077510120000 TRS F0D80860 21454 636244000000 BCD 1TSM000 TEST SIGNIFICANCE MODE F0D80870 21455 -076100120141 OCT -076100120141 TSM F0D80880 21456 636267000000 BCD 1TSX000 TRANSFER AND SET INDEX F0D80890 BINARY CARD NO. 9F04OP52 21457 +007415160000 OCT +007415160000 TSX F0D80900 21460 636343000000 BCD 1TTL000 LIST CONTROL PSEUDOOPERATION F0D80910 21461 -0 13521 0 10550 MZE 4$READ1,,5$TTLOP TTL F0D80920 21462 636351000000 BCD 1TTR000 TRAP TRANSFER F0D80930 21463 +002171160000 OCT +002171160000 TTR F0D80940 21464 636646000000 BCD 1TWO000 TWO (PREFIX) F0D80950 21465 +200001160000 OCT +200001160000 TWO F0D80960 21466 636663000000 BCD 1TWT000 TRAP AND WAIT DISK F0D80970 21467 +340011520004 OCT 340011520004 TWT DISK F0D80980 21470 636730000000 BCD 1TXH000 TRANSFER ON INDEX HIGH F0D80990 21471 +300017160000 OCT +300017160000 TXH F0D81000 21472 636731000000 BCD 1TXI000 TRANSFER WITH INDEX INCREMENTED F0D81010 21473 +100017160000 OCT +100017160000 TXI F0D81020 21474 636743000000 BCD 1TXL000 TRANSFER ON INDEX LOW F0D81030 21475 -300017160000 OCT -300017160000 TXL F0D81040 21476 637125000000 BCD 1TZE000 TRANSFER ON ZERO F0D81050 21477 +010071160000 OCT +010071160000 TZE F0D81060 21500 642144000000 BCD 1UAM000 UNNORMALIZED ADD MAGNITUDE F0D81070 21501 -030471120000 OCT -030471120000 UAM F0D81080 21502 642621000000 BCD 1UFA000 UNNORMALIZED FLOATING ADD F0D81090 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 150 COMBINED OPERATION TABLE 21503 -030071160000 OCT -030071160000 UFA F0D81100 21504 642644000000 BCD 1UFM000 UNNORMALIZED FLOATING MULTIPLY F0D81110 BINARY CARD NO. 9F04OP53 21505 -026071160000 OCT -026071160000 UFM F0D81120 21506 642662000000 BCD 1UFS000 UNNORMALIZED FLOATING SUBTRACT F0D81130 21507 -030271160000 OCT -030271160000 UFS F0D81140 21510 644423000000 BCD 1UMC000 UPDATE INFORMATION PSEUDOOPERATION F0D81150 21511 -1 13562 0 12266 MON 4$UMCOP,,5$TTL03+1 UMC F0D81160 21512 644543316263 BCD 1UNLIST LIST CONTROL PSEUDOOPERATION F0D81170 21513 -0 13564 0 10550 MZE 4$READ1,,5$UNLOP UNLIST F0D81180 21514 644543462124 BCD 1UNLOAD UPDATE INFORMATION PSEUDOOPERATION F0D81190 21515 -1 13562 0 12261 MON 4$ULDOP,,5$TTL03+1 UNLOAD F0D81200 21516 644724216325 BCD 1UPDATE UPDATE INFORMATION PSEUDOOPERATION F0D81210 21517 -1 13562 0 12276 MON 4$UPDOP,,5$TTL03+1 UPDATE F0D81220 21520 646244000000 BCD 1USM000 UNNORMALIZED FLOATING SUBTRACT MAGNITUDE F0D81230 21521 -030671120000 OCT -030671120000 USM F0D81240 21522 652430000000 BCD 1VDH000 VARIABLE LENGTH DIVIDE OR HALT F0D81250 21523 +022413120002 OCT +022413120002 VDH F0D81260 21524 652447000000 BCD 1VDP000 VARIABLE LENGTH DIVIDE OR PROCEED F0D81270 21525 +022513120002 OCT +022513120002 VDP F0D81280 21526 652624000000 BCD 1VFD000 DATA GENERATING PSEUDOOPERATION F0D81290 21527 0 13567 0 12465 PZE 4$VFDOP,,5$VFDOP VFD F0D81300 21530 654344000000 BCD 1VLM000 VARIABLE LENGTH MULTIPLY F0D81310 21531 +020413120002 OCT +020413120002 VLM F0D81320 21532 662451000000 BCD 1WDR000 WRITE DRUM F0D81330 BINARY CARD NO. 9F04OP54 21533 +076610140300 OCT +076610140300 WDR F0D81340 21534 662526000000 BCD 1WEF000 WRITE END OF FILE F0D81350 21535 +077010160200 OCT +077010160200 WEF F0D81360 21536 662526210000 BCD 1WEFA00 WRITE END OF FILE, CHANNEL A F0D81370 21537 +077010121200 OCT +077010121200 WEFA F0D81380 21540 662526220000 BCD 1WEFB00 WRITE END OF FILE, CHANNEL B F0D81390 21541 +077010122200 OCT +077010122200 WEFB F0D81400 21542 662526230000 BCD 1WEFC00 WRITE END OF FILE, CHANNEL C F0D81410 21543 +077010123200 OCT +077010123200 WEFC F0D81420 21544 662526240000 BCD 1WEFD00 WRITE END OF FILE, CHANNEL D F0D81430 21545 +077010124200 OCT +077010124200 WEFD F0D81440 21546 662526250000 BCD 1WEFE00 WRITE END OF FILE, CHANNEL E F0D81450 21547 +077010125200 OCT +077010125200 WEFE F0D81460 21550 662526260000 BCD 1WEFF00 WRITE END OF FILE, CHANNEL F F0D81470 21551 +077010126200 OCT +077010126200 WEFF F0D81480 21552 662526270000 BCD 1WEFG00 WRITE END OF FILE, CHANNEL G F0D81490 21553 +077010127200 OCT +077010127200 WEFG F0D81500 21554 662526300000 BCD 1WEFH00 WRITE END OF FILE, CHANNEL H F0D81510 21555 +077010130200 OCT +077010130200 WEFH F0D81520 21556 664722000000 BCD 1WPB000 WRITE PRINTER BINARY F0D81530 21557 +076600160362 OCT +076600160362 WPB F0D81540 21560 664722210000 BCD 1WPBA00 WRITE PRINTER BINARY, CHANNEL A F0D81550 BINARY CARD NO. 9F04OP55 21561 +076600121362 OCT +076600121362 WPBA F0D81560 21562 664722220000 BCD 1WPBB00 WRITE PRINTER BINARY, CHANNEL B F0D81570 21563 +076600122362 OCT +076600122362 WPBB F0D81580 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 151 COMBINED OPERATION TABLE 21564 664722230000 BCD 1WPBC00 WRITE PRINTER BINARY, CHANNEL C F0D81590 21565 +076600123362 OCT +076600123362 WPBC F0D81600 21566 664722240000 BCD 1WPBD00 WRITE PRINTER BINARY, CHANNEL D F0D81610 21567 +076600124362 OCT +076600124362 WPBD F0D81620 21570 664722250000 BCD 1WPBE00 WRITE PRINTER BINARY, CHANNEL E F0D81630 21571 +076600125362 OCT +076600125362 WPBE F0D81640 21572 664722260000 BCD 1WPBF00 WRITE PRINTER BINARY, CHANNEL F F0D81650 21573 +076600126362 OCT +076600126362 WPBF F0D81660 21574 664722270000 BCD 1WPBG00 WRITE PRINTER BINARY, CHANNEL G F0D81670 21575 +076600127362 OCT +076600127362 WPBG F0D81680 21576 664722300000 BCD 1WPBH00 WRITE PRINTER BINARY, CHANNEL H F0D81690 21577 +076600130362 OCT +076600130362 WPBH F0D81700 21600 664724000000 BCD 1WPD000 WRITE PRINTER DECIMAL F0D81710 21601 +076600160361 OCT +076600160361 WPD F0D81720 21602 664724210000 BCD 1WPDA00 WRITE PRINTER DECIMAL, CHANNEL A F0D81730 21603 +076600121361 OCT +076600121361 WPDA F0D81740 21604 664724220000 BCD 1WPDB00 WRITE PRINTER DECIMAL, CHANNEL B F0D81750 21605 +076600122361 OCT +076600122361 WPDB F0D81760 21606 664724230000 BCD 1WPDC00 WRITE PRINTER DECIMAL, CHANNEL C F0D81770 BINARY CARD NO. 9F04OP56 21607 +076600123361 OCT +076600123361 WPDC F0D81780 21610 664724240000 BCD 1WPDD00 WRITE PRINTER DECIMAL, CHANNEL D F0D81790 21611 +076600124361 OCT +076600124361 WPDD F0D81800 21612 664724250000 BCD 1WPDE00 WRITE PRINTER DECIMAL, CHANNEL E F0D81810 21613 +076600125361 OCT +076600125361 WPDE F0D81820 21614 664724260000 BCD 1WPDF00 WRITE PRINTER DECIMAL, CHANNEL F F0D81830 21615 +076600126361 OCT +076600126361 WPDF F0D81840 21616 664724270000 BCD 1WPDG00 WRITE PRINTER DECIMAL, CHANNEL G F0D81850 21617 +076600127361 OCT +076600127361 WPDG F0D81860 21620 664724300000 BCD 1WPDH00 WRITE PRINTER DECIMAL, CHANNEL H F0D81870 21621 +076600130361 OCT +076600130361 WPDH F0D81880 21622 664751000000 BCD 1WPR000 WRITE PRINTER F0D81890 21623 +076600160361 OCT +076600160361 WPR F0D81900 21624 664751210000 BCD 1WPRA00 WRITE PRINTER, CHANNEL A F0D81910 21625 +076600121361 OCT +076600121361 WPRA F0D81920 21626 664751220000 BCD 1WPRB00 WRITE PRINTER, CHANNEL B F0D81930 21627 +076600122361 OCT +076600122361 WPRB F0D81940 21630 664751230000 BCD 1WPRC00 WRITE PRINTER, CHANNEL C F0D81950 21631 +076600123361 OCT +076600123361 WPRC F0D81960 21632 664751240000 BCD 1WPRD00 WRITE PRINTER, CHANNEL D F0D81970 21633 +076600124361 OCT +076600124361 WPRD F0D81980 21634 664751250000 BCD 1WPRE00 WRITE PRINTER, CHANNEL E F0D81990 BINARY CARD NO. 9F04OP57 21635 +076600125361 OCT +076600125361 WPRE F0D82000 21636 664751260000 BCD 1WPRF00 WRITE PRINTER, CHANNEL F F0D82010 21637 +076600126361 OCT +076600126361 WPRF F0D82020 21640 664751270000 BCD 1WPRG00 WRITE PRINTER, CHANNEL G F0D82030 21641 +076600127361 OCT +076600127361 WPRG F0D82040 21642 664751300000 BCD 1WPRH00 WRITE PRINTER, CHANNEL H F0D82050 21643 +076600130361 OCT +076600130361 WPRH F0D82060 21644 664764000000 BCD 1WPU000 WRITE PUNCH F0D82070 21645 +076600160341 OCT +076600160341 WPU F0D82080 21646 664764210000 BCD 1WPUA00 WRITE PUNCH, CHANNEL A F0D82090 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 152 COMBINED OPERATION TABLE 21647 +076600121341 OCT +076600121341 WPUA F0D82100 21650 664764220000 BCD 1WPUB00 WRITE PUNCH, CHANNEL B F0D82110 21651 +076600122341 OCT +076600122341 WPUB F0D82120 21652 664764230000 BCD 1WPUC00 WRITE PUNCH, CHANNEL C F0D82130 21653 +076600123341 OCT +076600123341 WPUC F0D82140 21654 664764240000 BCD 1WPUD00 WRITE PUNCH, CHANNEL D F0D82150 21655 +076600124341 OCT +076600124341 WPUD F0D82160 21656 664764250000 BCD 1WPUE00 WRITE PUNCH, CHANNEL E F0D82170 21657 +076600125341 OCT +076600125341 WPUE F0D82180 21660 664764260000 BCD 1WPUF00 WRITE PUNCH, CHANNEL F F0D82190 21661 +076600126341 OCT +076600126341 WPUF F0D82200 21662 664764270000 BCD 1WPUG00 WRITE PUNCH, CHANNEL G F0D82210 BINARY CARD NO. 9F04OP58 21663 +076600127341 OCT +076600127341 WPUG F0D82220 21664 664764300000 BCD 1WPUH00 WRITE PUNCH, CHANNEL H F0D82230 21665 +076600130341 OCT +076600130341 WPUH F0D82240 21666 665162000000 BCD 1WRS000 WRITE SELECT F0D82250 21667 +076611160000 OCT +076611160000 WRS F0D82260 21670 666322000000 BCD 1WTB000 WRITE TAPE BINARY F0D82270 21671 +076610160220 OCT +076610160220 WTB F0D82280 21672 666322210000 BCD 1WTBA00 WRITE TAPE BINARY, CHANNEL A F0D82290 21673 +076610121220 OCT +076610121220 WTBA F0D82300 21674 666322220000 BCD 1WTBB00 WRITE TAPE BINARY, CHANNEL B F0D82310 21675 +076610122220 OCT +076610122220 WTBB F0D82320 21676 666322230000 BCD 1WTBC00 WRITE TAPE BINARY, CHANNEL C F0D82330 21677 +076610123220 OCT +076610123220 WTBC F0D82340 21700 666322240000 BCD 1WTBD00 WRITE TAPE BINARY, CHANNEL D F0D82350 21701 +076610124220 OCT +076610124220 WTBD F0D82360 21702 666322250000 BCD 1WTBE00 WRITE TAPE BINARY, CHANNEL E F0D82370 21703 +076610125220 OCT +076610125220 WTBE F0D82380 21704 666322260000 BCD 1WTBF00 WRITE TAPE BINARY, CHANNEL F F0D82390 21705 +076610126220 OCT +076610126220 WTBF F0D82400 21706 666322270000 BCD 1WTBG00 WRITE TAPE BINARY, CHANNEL G F0D82410 21707 +076610127220 OCT +076610127220 WTBG F0D82420 21710 666322300000 BCD 1WTBH00 WRITE TAPE BINARY, CHANNEL H F0D82430 BINARY CARD NO. 9F04OP59 21711 +076610130220 OCT +076610130220 WTBH F0D82440 21712 666324000000 BCD 1WTD000 WRITE TAPE DECIMAL F0D82450 21713 +076610160200 OCT +076610160200 WTD F0D82460 21714 666324210000 BCD 1WTDA00 WRITE TAPE DECIMAL, CHANNEL A F0D82470 21715 +076610121200 OCT +076610121200 WTDA F0D82480 21716 666324220000 BCD 1WTDB00 WRITE TAPE DECIMAL, CHANNEL B F0D82490 21717 +076610122200 OCT +076610122200 WTDB F0D82500 21720 666324230000 BCD 1WTDC00 WRITE TAPE DECIMAL, CHANNEL C F0D82510 21721 +076610123200 OCT +076610123200 WTDC F0D82520 21722 666324240000 BCD 1WTDD00 WRITE TAPE DECIMAL, CHANNEL D F0D82530 21723 +076610124200 OCT +076610124200 WTDD F0D82540 21724 666324250000 BCD 1WTDE00 WRITE TAPE DECIMAL, CHANNEL E F0D82550 21725 +076610125200 OCT +076610125200 WTDE F0D82560 21726 666324260000 BCD 1WTDF00 WRITE TAPE DECIMAL, CHANNEL F F0D82570 21727 +076610126200 OCT +076610126200 WTDF F0D82580 21730 666324270000 BCD 1WTDG00 WRITE TAPE DECIMAL, CHANNEL G F0D82590 21731 +076610127200 OCT +076610127200 WTDG F0D82600 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 153 COMBINED OPERATION TABLE 21732 666324300000 BCD 1WTDH00 WRITE TAPE DECIMAL, CHANNEL H F0D82610 21733 +076610130200 OCT +076610130200 WTDH F0D82620 21734 666351000000 BCD 1WTR000 WAIT AND TRANSFER DISK F0D82630 21735 +000011520000 OCT 000011520000 WTR DISK F0D82640 21736 666362000000 BCD 1WTS000 WRITE TAPE SIMULTANEOUSLY (704) F0D82650 BINARY CARD NO. 9F04OP60 21737 +076610140320 OCT +076610140320 WTS F0D82660 21740 666365000000 BCD 1WTV000 WRITE CATHODE RAY TUBE F0D82670 21741 +076600160030 OCT +076600160030 WTV F0D82680 21742 672321000000 BCD 1XCA000 EXCHANGE ACCUMULATOR AND MQ F0D82690 21743 +013101120000 OCT +013101120000 XCA F0D82700 21744 672343000000 BCD 1XCL000 EXCHANGE LOGICAL ACCUMULATOR AND MQ F0D82710 21745 -013001120000 OCT -013001120000 XCL F0D82720 21746 672523000000 BCD 1XEC000 EXECUTE F0D82730 21747 +052271120000 OCT +052271120000 XEC F0D82740 21750 673163000000 BCD 1XIT000 FORTRAN CODE FOR TTR F0D82750 21751 +002171160000 OCT +002171160000 XIT F0D82760 21752 674463000000 BCD 1XMT000 TRANSMIT DISK F0D82770 21753 +000013720000 OCT 000013720000 XMT DISK F0D82780 21754 712123000000 BCD 1ZAC000 ZERO ACCUMULATOR (PXD WITHOUT TAG) F0D82790 21755 -075401160000 OCT -075401160000 ZAC F0D82800 21756 712563000000 BCD 1ZET000 STORAGE ZERO TEST F0D82810 21757 +052071120000 OCT +052071120000 ZET F0D82820 21760 716221000000 BCD 1ZSA000 ZERO STORAGE ADDRESS (SXA WITHOUT TAG) F0D82830 21761 +063411120000 OCT +063411120000 ZSA F0D82840 21762 716224000000 BCD 1ZSD000 ZERO STORAGE DECREMENT (SXD WITHOUT TAG) F0D82850 21763 -063411160000 OCT -063411160000 ZSD F0D82860 21764 -377777777777 OCT +777777777777 ILLEGIBLE NAME TO FLAG MACRO ERRORS F0D82870 BINARY CARD NO. 9F04OP61 21765 0 00000 0 00000 PZE F0D82880 F0D82890 02476 LOPTBL SYN *-OPTTBL F0D82900 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 154 SYSTEM SYMBOL TABLE HEAD S SYSTEM SYMBOL TABLE F0D90020 77677 TOPMM SYN -1-64 TOP OF AVAILABLE MEMORY $F0D90030 73600 BOTIP SYN TOPMM-2111 BOTTOM OF I/O PACKAGE $F0D90040 03734 BOTMM SYN 2000+12 LOAD POINT FOR FORTRAN RECORDS $F0D90050 01000 K EQU 512 OPERATION MNEMONICS PARAMETER F0D90060 F0D90070 23270 ORG BOTTAB F0D90080 BINARY CARD NO. 9F04SS00 23270 0 77322 0 00000 SYMSIZ PZE **,,-LSMTBL LOG LSMTBL,,LENGTH OF SYMBOL TABLE F0D90090 23271 SYMTBL SYN * F0D90100 F0D90110 F0D90120 SYSTEM TAPE ASSIGNMENTS F0D90130 F0D90140 23271 627062632147 BCD 1SYSTAP SYSTEM TAPE F0D90150 23272 0 00000 0 00001 PZE 1 SYSTAP F0D90160 23273 263145632147 BCD 1FINTAP FIRST INTERMEDIATE TAPE F0D90170 23274 0 00000 0 00002 PZE 2 FINTAP F0D90180 23275 623145632147 BCD 1SINTAP SECOND INTERMEDIATE TAPE F0D90190 23276 0 00000 0 00003 PZE 3 SINTAP F0D90200 23277 633145632147 BCD 1TINTAP THIRD INTERMEDIATE TAPE F0D90210 23300 0 00000 0 00004 PZE 4 TINTAP F0D90220 23301 443145632147 BCD 1MINTAP MONITOR BCD INPUT TAPE F0D90230 23302 0 00000 0 00005 PZE 5 MINTAP F0D90240 23303 444362632147 BCD 1MLSTAP MONITOR BCD OUTPUT (LISTING) TAPE F0D90250 23304 0 00000 0 00006 PZE 6 MLSTAP F0D90260 23305 442245632147 BCD 1MBNTAP MONITOR BINARY OUTPUT TAPE F0D90270 23306 0 00000 0 00007 PZE 7 MBNTAP F0D90280 23307 442330632147 BCD 1MCHTAP MONITOR CHAIN INTERMEDIATE TAPE F0D90290 23310 0 00000 0 00010 PZE 8 MCHTAP F0D90300 23311 624547632147 BCD 1SNPTAP SNAPSHOT INTERMEDIATE TAPE F0D90310 23312 0 00000 0 00011 PZE 9 SNPTAP F0D90320 23313 433122632147 BCD 1LIBTAP LIBRARY TAPE F0D90330 23314 0 00000 0 00001 PZE 1 LIBTAP F0D90340 F0D90350 CORE MEMORY ALLOCATION F0D90360 F0D90370 23315 264321272267 BCD 1FLAGBX MONITOR FLAGS F0D90380 BINARY CARD NO. 9F04SS01 23316 0 00000 0 03730 PZE BOTMM-04 FLAGBX F0D90390 23317 433145252363 BCD 1LINECT BCD LISTING TAPE TOTAL,,PAGE LINE COUNT F0D90400 23320 0 00000 0 03731 PZE BOTMM-03 LINECT F0D90410 23321 242163252267 BCD 1DATEBX PRIMARY MONITOR JOB DATE (FROM START CARD) F0D90420 23322 0 00000 0 03732 PZE BOTMM-02 DATEBX F0D90430 23323 744723224234 BCD 1(PCBK) OBJECT PROGRAM COMMON BREAK,,PROGRAM BREAK F0D90440 23324 0 00000 0 03733 PZE BOTMM-01 (PCBK) F0D90450 23325 224663634644 BCD 1BOTTOM LOAD POINT FOR FORTRAN RECORD F0D90460 23326 0 00000 0 03734 PZE BOTMM-00 BOTTOM F0D90470 23327 224663314647 BCD 1BOTIOP LOAD POINT FOR COMMON I/O PACKAGE F0D90480 23330 0 00000 0 73600 PZE BOTIP+00 BOTIOP F0D90490 23331 634647442544 BCD 1TOPMEM TOP OF AVAILABLE MEMORY F0D90500 23332 0 00000 0 77677 PZE TOPMM+00 TOPMEM F0D90510 F0D90520 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 155 SYSTEM SYMBOL TABLE ENTRY POINTS TO F0D90530 THE 709/7090 FORTRAN COMMON INPUT/OUTPUT, CONTROL PACKAGEF0D90540 F0D90550 23333 744346212434 BCD 1(LOAD) CALL NEXT FORTRAN RECORD F0D90560 23334 0 00000 0 73600 PZE BOTIP+00 (LOAD) F0D90570 23335 742431212734 BCD 1(DIAG) CALL DIAGNOSTIC RECORD F0D90580 23336 0 00000 0 73603 PZE BOTIP+03 (DIAG) F0D90590 23337 746321472534 BCD 1(TAPE) TAPE REPOSITION OR DATA TRANSMIT F0D90600 23340 0 00000 0 73606 PZE BOTIP+06 (TAPE) F0D90610 23341 744751456334 BCD 1(PRNT) PRINT LINE ONLINE F0D90620 23342 0 00000 0 73611 PZE BOTIP+09 (PRNT) F0D90630 23343 744745233034 BCD 1(PNCH) PUNCH CARD ONLINE F0D90640 BINARY CARD NO. 9F04SS02 23344 0 00000 0 73614 PZE BOTIP+12 (PNCH) F0D90650 23345 746263216334 BCD 1(STAT) LOCATE TAPE STATISTIC TABLES F0D90680 23346 0 00000 0 73617 PZE BOTIP+15 (STAT) $F0D90690 23347 745125626334 BCD 1(REST) RESTORE MEMORY AND CONTINUE F0D90700 23350 0 00000 0 73622 PZE BOTIP+18 (REST) $F0D90710 23351 746263244534 BCD 1(STDN) SET TAPE DENSITY F0D90720 23352 0 00000 0 73626 PZE BOTIP+22 (STDN) $F0D90730 23353 746225234334 BCD 1(SECL) CALL SOURCE PROGRAM ERROR RECORD F0D90740 23354 0 00000 0 73643 PZE BOTIP+35 (SECL) $F0D90750 23355 744425234334 BCD 1(MECL) CALL MACHINE ERROR RECORD F0D90760 23356 0 00000 0 73644 PZE BOTIP+36 (MECL) $F0D90770 23357 742427432434 BCD 1(DGLD) RESTORE MEMORY AND HALT (31)F0D90780 23360 0 00000 0 73645 PZE BOTIP+37 (DGLD) (31)F0D90790 F0D90800 PARAMETERS VARIABLE AT EDIT TIME F0D90810 F0D90820 23361 744727236334 BCD 1(PGCT) PARAMETER FOR BCD LISTING TAPE PAGE DIMENSIONSF0D90950 23362 0 00000 0 73651 PZE BOTIP+41 (PGCT) $F0D90960 23363 744331226334 BCD 1(LIBT) LOGICAL TAPE NUMBER FOR LIBRARY TAPE ASSIGNED F0D90970 23364 0 00000 0 73652 PZE BOTIP+42 (LIBT) $F0D90980 F0D90990 COMMON COMMUNICATIONS REGION F0D91000 F0D91010 23365 742627226734 BCD 1(FGBX) LOCATION OF MONITOR FLAGS F0D91020 23366 0 00000 0 73660 PZE BOTIP+48 (FGBX) $F0D91030 23367 744345236334 BCD 1(LNCT) LOCATION OF BCD OUTPUT TOTAL,,PAGE LINE COUNT F0D91040 23370 0 00000 0 73661 PZE BOTIP+49 (LNCT) $F0D91050 23371 742421632534 BCD 1(DATE) SECONDARY MONITOR JOB DATE F0D91060 BINARY CARD NO. 9F04SS03 23372 0 00000 0 73662 PZE BOTIP+50 (DATE) $F0D91070 23373 746245236334 BCD 1(SNCT) COUNT OF SNAPSHOTS ON INTERMEDIATE SNAP TAPE F0D91080 23374 0 00000 0 73663 PZE BOTIP+51 (SNCT) $F0D91090 23375 744462434534 BCD 1(MSLN) FLAG FOR ENTRY INTO ERROR RECORDS F0D91100 23376 0 00000 0 73664 PZE BOTIP+52 (MSLN) $F0D91110 23377 742545246234 BCD 1(ENDS) MONITOR END CARD SETTINGS F0D91120 23400 0 00000 0 73665 PZE BOTIP+53 (ENDS) $F0D91130 23401 744346245134 BCI 1,(LODR) ENTRY POINTS TO SYSTEM RECORDS $F0D91131 23402 0 00000 0 73666 PZE BOTIP+54 (LODR) $F0D91132 23403 744322432434 BCI 1,(LBLD) LOAD ADDRESS FOR LIBRARY $F0D91133 23404 0 00000 0 73667 PZE BOTIP+55 (LBLD) $F0D91134 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 156 SYSTEM SYMBOL TABLE 1 * CARDS ROW ROW BINARY CARDS ONLINE F0D91140 2 * LIST ADD OBJECT PROGRAM TO LISTING (FORTRAN) F0D91150 3 * PRINT LIST ONLINE F0D91160 4 * CARDS COLUMN COLUMN BINARY CARDS ONLINE F0D91170 5 * LIBE ADD LIBRARY SUBROUTINES TO BINARY OUTPUT F0D91180 6 * SYMBOL TABLE ADD SYMBOL TABLE TO BINARY OUTPUT F0D91190 7 * LABEL SERIALIZE BINARY OUTPUT F0D91200 8 * LIST8 EXTENDED OBJECT PROGRAM LISTING (FORTRAN) F0D91210 9 * ROW ROW BINARY CARDS OFFLINE F0D91220 10 * PACK BLOCK LISTING TAPE F0D91230 23405 746223306434 BCD 1(SCHU) DATA PERTAINING TO LAST INFORMATION XMITTED F0D91240 23406 0 00000 0 73672 PZE BOTIP+58 (SCHU) $F0D91250 F0D91260 DEFINITIONS OF OPERATION MNEMONICS FOR F0D91270 THE 709/7090 FORTRAN COMMON INPUT/OUTPUT, CONTROL PACKAGEF0D91280 F0D91290 OPERATION RECORD ENDFILE CHECK F0D91300 23407 746651466634 BCD 1(WROW) WRITE ROW BIN IMMEDIATE F0D91310 23410 0 00000 0 40031 PZE 32*K+16+8+1 (WROW) F0D91320 23411 745124252334 BCD 1(RDEC) READ DECIMAL PERMITTED IMMEDIATE F0D91330 23412 0 00000 0 40016 PZE 32*K+8+4+2 (RDEC) F0D91340 23413 746625262334 BCD 1(WEFC) WRITE ENDFILE IMMEDIATE F0D91350 23414 0 00000 0 40015 PZE 32*K+8+4+1 (WEFC) F0D91360 23415 745122252334 BCD 1(RBEC) READ BINARY PERMITTED IMMEDIATE F0D91370 23416 0 00000 0 40014 PZE 32*K+8+4 (RBEC) F0D91380 23417 746624452334 BCD 1(WDNC) WRITE DECIMAL IMMEDIATE F0D91390 BINARY CARD NO. 9F04SS04 23420 0 00000 0 40013 PZE 32*K+8+2+1 (WDNC) F0D91400 23421 745124452334 BCD 1(RDNC) READ DECIMAL PROHIBITED IMMEDIATE F0D91410 23422 0 00000 0 40012 PZE 32*K+8+2 (RDNC) F0D91420 23423 746622452334 BCD 1(WBNC) WRITE BINARY IMMEDIATE F0D91430 23424 0 00000 0 40011 PZE 32*K+8+1 (WBNC) F0D91440 23425 745122452334 BCD 1(RBNC) READ BINARY PROHIBITED IMMEDIATE F0D91450 23426 0 00000 0 40010 PZE 32*K+8 (RBNC) F0D91460 23427 745124254734 BCD 1(RDEP) READ DECIMAL PERMITTED LATER F0D91470 23430 0 00000 0 40006 PZE 32*K+4+2 (RDEP) F0D91480 23431 746625264734 BCD 1(WEFP) WRITE ENDFILE LATER F0D91490 23432 0 00000 0 40005 PZE 32*K+4+1 (WEFP) F0D91500 23433 745122254734 BCD 1(RBEP) READ BINARY PERMITTED LATER F0D91510 23434 0 00000 0 40004 PZE 32*K+4 (RBEP) F0D91520 23435 746624454734 BCD 1(WDNP) WRITE DECIMAL LATER F0D91530 23436 0 00000 0 40003 PZE 32*K+2+1 (WDNP) F0D91540 23437 745124454734 BCD 1(RDNP) READ DECIMAL PROHIBITED LATER F0D91550 23440 0 00000 0 40002 PZE 32*K+2 (RDNP) F0D91560 23441 746622454734 BCD 1(WBNP) WRITE BINARY LATER F0D91570 23442 0 00000 0 40001 PZE 32*K+1 (WBNP) F0D91580 23443 745122454734 BCD 1(RBNP) READ BINARY PROHIBITTED LATER F0D91590 23444 0 00000 0 40000 PZE 32*K (RBNP) F0D91600 23445 746242242334 BCD 1(SKDC) SKIP DECIMAL IMMEDIATE F0D91610 BINARY CARD NO. 9F04SS05 23446 0 00000 0 20012 PZE 16*K+8+2 (SKDC) F0D91620 23447 746242222334 BCD 1(SKBC) SKIP BINARY IMMEDIATE F0D91630 23450 0 00000 0 20010 PZE 16*K+8 (SKBC) F0D91640 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 157 SYSTEM SYMBOL TABLE BACKSPACE FOR BTT F0D91650 23451 746242244734 BCD 1(SKDP) SKIP DECIMAL LATER F0D91660 23452 0 00000 0 20002 PZE 16*K+2 (SKDP) F0D91670 23453 746242224734 BCD 1(SKBP) SKIP BINARY LATER F0D91680 23454 0 00000 0 20000 PZE 16*K (SKBP) F0D91690 BACKSPACE NONE F0D91700 23455 742330426434 BCD 1(CHKU) DELAY AND CHECK LAST ACTIVITY ON LOG TAPE F0D91710 23456 0 00000 0 10000 PZE 8*K (CHKU) F0D91720 23457 746264216534 BCI 1,(SUAV) SET UNIT(S) AVAILABLE $F0D91721 23460 0 00000 0 10003 PZE 8*K+2+1 (SUAV) $F0D91722 23461 746264456534 BCI 1,(SUNV) SET UNIT(S) UNAVAILABLE $F0D91723 23462 0 00000 0 10002 PZE 8*K+2 (SUNV) $F0D91724 23463 746347255134 BCD 1(TPER) ERROR ON TAPE RECORD FOUND BY COMPILER F0D91730 23464 0 00000 0 04000 PZE 4*K (TPER) F0D91740 23465 746245214734 BCD 1(SNAP) DUMP MEMORY AND PANEL ON SNAP TAPE F0D91750 23466 0 00000 0 01000 PZE 1*K (SNAP) $F0D91760 THE FOLLOWING SYMBOLS ARE FOR IOEX $F0D91770 000702 L(ACT) BOOL 702 $F0D91780 000140 L(SYT) BOOL 140 $F0D91790 23467 SYSTBL SYN * $F0D91795 23467 627062635121 BCI 1,SYSTRA $F0D91800 23470 0 00000 0 00100 PZE 64 $F0D91810 23471 627062242163 BCI 1,SYSDAT $F0D91820 23472 0 00000 0 00101 PZE 65 $F0D91830 23473 627062236451 BCI 1,SYSCUR $F0D91840 BINARY CARD NO. 9F04SS06 23474 0 00000 0 00102 PZE 66 $F0D91850 23475 627062512563 BCI 1,SYSRET $F0D91860 23476 0 00000 0 00103 PZE 67 $F0D91870 23477 627062422570 BCI 1,SYSKEY $F0D91880 23500 0 00000 0 00104 PZE 68 $F0D91890 23501 627062626662 BCI 1,SYSSWS $F0D91900 23502 0 00000 0 00105 PZE 69 $F0D91910 23503 627062474662 BCI 1,SYSPOS $F0D91920 23504 0 00000 0 00106 PZE 70 $F0D91930 23505 627062644531 BCI 1,SYSUNI $F0D91940 23506 0 00000 0 00107 PZE 71 $F0D91950 23507 627062642223 BCI 1,SYSUBC $F0D91960 23510 0 00000 0 00110 PZE 72 $F0D91970 23511 627062642165 BCI 1,SYSUAV $F0D91980 23512 0 00000 0 00111 PZE 73 $F0D91990 23513 627062642366 BCI 1,SYSUCW $F0D92000 23514 0 00000 0 00112 PZE 74 $F0D92010 23515 627062514763 BCI 1,SYSRPT $F0D92020 23516 0 00000 0 00113 PZE 75 $F0D92030 23517 627062232544 BCI 1,SYSCEM $F0D92040 23520 0 00000 0 00114 PZE 76 $F0D92050 23521 627062244447 BCI 1,SYSDMP $F0D92060 BINARY CARD NO. 9F04SS07 23522 0 00000 0 00115 PZE 77 $F0D92070 23523 627062314667 BCI 1,SYSIOX $F0D92080 23524 0 00000 0 00116 PZE 78 $F0D92090 23525 627062312451 BCI 1,SYSIDR $F0D92100 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 158 SYSTEM SYMBOL TABLE 23526 0 00000 0 00117 PZE 79 $F0D92110 23527 627062234651 BCI 1,SYSCOR $F0D92120 23530 0 00000 0 00120 PZE 80 $F0D92130 23531 627062432451 BCI 1,SYSLDR $F0D92140 23532 0 00000 0 00121 PZE 81 $F0D92150 23533 627062212323 BCI 1,SYSACC $F0D92160 23534 0 00000 0 00122 PZE 82 $F0D92170 23535 627062473124 BCI 1,SYSPID $F0D92180 23536 0 00000 0 00123 PZE 83 $F0D92190 23537 627062237024 BCI 1,SYSCYD $F0D92200 23540 0 00000 0 00124 PZE 84 $F0D92210 23541 627062624324 BCI 1,SYSSLD $F0D92220 23542 0 00000 0 00126 PZE 86 $F0D92230 23543 627062632330 BCI 1,SYSTCH $F0D92240 23544 0 00000 0 00127 PZE 87 $F0D92250 23545 627062636663 BCI 1,SYSTWT $F0D92260 23546 0 00000 0 00131 PZE 89 $F0D92270 23547 627062272563 BCI 1,SYSGET $F0D92271 BINARY CARD NO. 9F04SS08 23550 0 00000 0 00132 PZE 90 $F0D92272 23551 627062414622 BCI 1,SYSJOB $F0D92273 23552 0 00000 0 00133 PZE 91 $F0D92274 23553 332330256731 BCI 1,.CHEXI (28)F0D92275 23554 0 00000 0 00134 PZE 92 (28)F0D92276 23555 334446246266 BCI 1,.MODSW (28)F0D92277 23556 0 00000 0 00135 PZE 93 (28)F0D92278 SYSUNI TABLE OF IBNUC $F0D92280 23557 627062432201 BCI 1,SYSLB1 $F0D92290 23560 0 00000 0 00140 LSYUNS PZE L(SYT) $F0D92300 23561 627062432202 BCI 1,SYSLB2 $F0D92310 23562 0 00000 0 00141 PZE L(SYT)+1 $F0D92320 23563 627062432203 BCI 1,SYSLB3 $F0D92330 23564 0 00000 0 00142 PZE L(SYT)+2 $F0D92340 23565 627062432204 BCI 1,SYSLB4 $F0D92350 23566 0 00000 0 00143 PZE L(SYT)+3 $F0D92360 23567 627062235124 BCI 1,SYSCRD $F0D92370 23570 0 00000 0 00144 PZE L(SYT)+4 $F0D92380 23571 627062475163 BCI 1,SYSPRT $F0D92390 23572 0 00000 0 00145 PZE L(SYT)+5 $F0D92400 23573 627062472330 BCI 1,SYSPCH $F0D92410 23574 0 00000 0 00146 PZE L(SYT)+6 $F0D92420 23575 627062466401 BCI 1,SYSOU1 $F0D92430 BINARY CARD NO. 9F04SS09 23576 0 00000 0 00147 PZE L(SYT)+7 $F0D92440 23577 627062466402 BCI 1,SYSOU2 $F0D92450 23600 0 00000 0 00150 PZE L(SYT)+8 $F0D92460 23601 627062314501 BCI 1,SYSIN1 $F0D92470 23602 0 00000 0 00151 PZE L(SYT)+9 $F0D92480 23603 627062314502 BCI 1,SYSIN2 $F0D92490 23604 0 00000 0 00152 PZE L(SYT)+10 $F0D92500 23605 627062474701 BCI 1,SYSPP1 $F0D92510 23606 0 00000 0 00153 PZE L(SYT)+11 $F0D92520 23607 627062474702 BCI 1,SYSPP2 $F0D92530 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 159 SYSTEM SYMBOL TABLE 23610 0 00000 0 00154 PZE L(SYT)+12 $F0D92540 23611 627062234201 BCI 1,SYSCK1 $F0D92550 23612 0 00000 0 00155 PZE L(SYT)+13 $F0D92560 23613 627062234202 BCI 1,SYSCK2 $F0D92570 23614 0 00000 0 00156 PZE L(SYT)+14 $F0D92580 23615 627062646301 BCI 1,SYSUT1 $F0D92590 23616 0 00000 0 00157 PZE L(SYT)+15 $F0D92600 23617 627062646302 BCI 1,SYSUT2 $F0D92610 23620 0 00000 0 00160 PZE L(SYT)+16 $F0D92620 23621 627062646303 BCI 1,SYSUT3 $F0D92630 23622 0 00000 0 00161 PZE L(SYT)+17 $F0D92640 23623 627062646304 BCI 1,SYSUT4 $F0D92650 BINARY CARD NO. 9F04SS10 23624 0 00000 0 00162 PZE L(SYT)+18 $F0D92660 IOEX COMMON COMMUNICATION CELLS $F0D92670 23625 742123633165 BCI 1,(ACTIV $F0D92680 23626 0 00000 0 00702 PZE L(ACT)+0 $F0D92690 23627 742123636567 BCI 1,(ACTVX $F0D92700 23630 0 00000 0 00703 PZE L(ACT)+1 $F0D92710 23631 744524216321 BCI 1,(NDATA $F0D92720 23632 0 00000 0 00704 PZE L(ACT)+2 $F0D92730 23633 744524624367 BCI 1,(NDSLX $F0D92740 23634 0 00000 0 00705 PZE L(ACT)+3 $F0D92750 23635 744751466463 BCI 1,(PROUT $F0D92760 23636 0 00000 0 00706 PZE L(ACT)+4 $F0D92770 23637 744764452330 BCI 1,(PUNCH $F0D92780 23640 0 00000 0 00707 PZE L(ACT)+5 $F0D92790 23641 742545226266 BCI 1,(ENBSW $F0D92800 23642 0 00000 0 00710 PZE L(ACT)+6 $F0D92810 23643 744721666267 BCI 1,(PAWSX $F0D92820 23644 0 00000 0 00711 PZE L(ACT)+7 $F0D92830 23645 744721646225 BCI 1,(PAUSE $F0D92840 23646 0 00000 0 00712 PZE L(ACT)+8 $F0D92850 23647 746263464767 BCI 1,(STOPX $F0D92860 23650 0 00000 0 00713 PZE L(ACT)+9 $F0D92870 23651 746270446445 BCI 1,(SYMUN $F0D92880 BINARY CARD NO. 9F04SS11 23652 0 00000 0 00714 PZE L(ACT)+10 $F0D92890 23653 742425236524 BCI 1,(DECVD $F0D92900 23654 0 00000 0 00715 PZE L(ACT)+11 $F0D92910 23655 742425236521 BCI 1,(DECVA $F0D92920 23656 0 00000 0 00716 PZE L(ACT)+12 $F0D92930 23657 742342662163 BCI 1,(CKWAT $F0D92940 23660 0 00000 0 00717 PZE L(ACT)+13 $F0D92950 23661 742223240551 BCI 1,(BCD5R $F0D92960 23662 0 00000 0 00720 PZE L(ACT)+14 $F0D92970 23663 742223240567 BCI 1,(BCD5X $F0D92980 23664 0 00000 0 00721 PZE L(ACT)+15 $F0D92990 23665 742365475163 BCI 1,(CVPRT $F0D93000 23666 0 00000 0 00722 PZE L(ACT)+16 $F0D93010 23667 746263464724 BCI 1,(STOPD $F0D93020 23670 0 00000 0 00723 PZE L(ACT)+17 $F0D93030 23671 742330672123 BCI 1,(CHXAC $F0D93040 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 160 SYSTEM SYMBOL TABLE 23672 0 00000 0 00724 PZE L(ACT)+18 $F0D93050 23673 746451516731 BCI 1,(URRXI $F0D93060 23674 0 00000 0 00725 PZE L(ACT)+19 $F0D93070 23675 745123636731 BCI 1,(RCTXI $F0D93080 23676 0 00000 0 00726 PZE L(ACT)+20 $F0D93090 23677 745123306731 BCI 1,(RCHXI $F0D93100 BINARY CARD NO. 9F04SS12 23700 0 00000 0 00727 PZE L(ACT)+21 $F0D93110 23701 746323466731 BCI 1,(TCOXI $F0D93120 23702 0 00000 0 00730 PZE L(ACT)+22 $F0D93130 23703 746351236731 BCI 1,(TRCXI $F0D93140 23704 0 00000 0 00731 PZE L(ACT)+23 $F0D93150 23705 742563636731 BCI 1,(ETTXI $F0D93160 23706 0 00000 0 00732 PZE L(ACT)+24 $F0D93170 23707 746325266731 BCI 1,(TEFXI $F0D93180 23710 0 00000 0 00733 PZE L(ACT)+25 $F0D93190 23711 746351214767 BCI 1,(TRAPX $F0D93200 23712 0 00000 0 00734 PZE L(ACT)+26 $F0D93210 23713 746351214762 BCI 1,(TRAPS $F0D93220 23714 0 00000 0 00735 PZE L(ACT)+27 $F0D93230 23715 742346444444 BCI 1,(COMMM $F0D93240 23716 0 00000 0 00736 PZE L(ACT)+28 $F0D93250 23717 744363474662 BCI 1,(LTPOS $F0D93260 23720 0 00000 0 00737 PZE L(ACT)+29 $F0D93270 23721 743146676231 BCI 1,(IOXSI $F0D93280 23722 0 00000 0 00740 PZE L(ACT)+30 $F0D93290 23723 742330476266 BCI 1,(CHPSW $F0D93300 23724 0 00000 0 00741 PZE L(ACT)+31 $F0D93310 23725 746351476266 BCI 1,(TRPSW $F0D93320 BINARY CARD NO. 9F04SS13 23726 0 00000 0 00742 PZE L(ACT)+32 $F0D93330 23727 742624214463 BCI 1,(FDAMT $F0D93340 23730 0 00000 0 00743 PZE L(ACT)+33 $F0D93350 23731 746224236731 BCI 1,(SDCXI $F0D93360 23732 0 00000 0 00744 PZE L(ACT)+34 $F0D93370 23733 746263236731 BCI 1,(STCXI $F0D93380 23734 0 00000 0 00745 PZE L(ACT)+35 $F0D93390 23735 742346444424 BCI 1,(COMMD $F0D93400 23736 0 00000 0 00746 PZE L(ACT)+36 $F0D93410 23737 743122232471 BCI 1,(IBCDZ $F0D93420 23740 0 00000 0 00747 PZE L(ACT)+37 $F0D93430 23741 742330676247 BCI 1,(CHXSP $F0D93431 23742 0 00000 0 00750 PZE L(ACT)+38 $F0D93432 23743 627062254524 BCI 1,SYSEND $F0D93440 23744 0 00000 0 77777 PZE -1 $F0D93450 23745 627062465127 BCI 1,SYSORG $F0D93460 23746 0 00000 0 03720 PZE 2000 $F0D93470 00456 LSMTBL SYN *-SYMTBL F0D93480 00260 LIBTBL SYN *-SYSTBL $F0D93490 HEAD 4 END OF SYSTEM SYMBOL TABLE F0D93500 24107 FINIS SYN *+96 PATCH SPACE FOR ADDITIONAL SST NAMES (31)F0D93510 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 161 PATCH TO DELETE STANDARD ERROR PROCEDURE 03751 ORG SEPFLG F0D93540 BINARY CARD NO. 9F04FLOW 03751 0 00000 0 00000 PZE DELETE STANDARD ERROR PROCEDURE $F0D93550 BINARY CARD NO. TRA77777 77777 TCD -1 $F0D93555 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 162 PASS TWO SUBROUTINES HEAD 5 PASS 2 F0E00010 F0E00020 PROCESS AND LIST NON DATA GENERATING PSEUDOOPS F0E00030 PROCESS, LIST, INSERT IN BINARY CARD IMAGES F0E00040 MACHINE OPERATIONS AND DATA GENERATING PSEUDOOPS F0E00050 PRINT AND PUNCH ON AND/OR OFF LINE BCD AND BINARY OUTPUT F0E00060 F0E00070 00102 ORG SYSCUR $F0E00090 BINARY CARD NO. 9F050000 00102 112600050000 BCI 1,9F0500 $F0E00100 73666 ORG (LODR) $F0E00110 BINARY CARD NO. 9F050001 73666 1 00062 0 10632 TXI START,,50 ENTRY POINT,,RECORD NUMBER F0E00120 F0E00130 07152 ORG PASSLP F0E00150 F0E00160 SSYMT SUBROUTINE MUST ORIGIN AT SAME LOCATN PASS 1 AND 2 F0E00170 BINARY SEARCH OF SYMBOL TABLE F0E00180 BINARY CARD NO. 9F050002 07152 0634 00 4 07257 SSYMT SXA SSYMX,4 SAVE CALLING LINKAGE F0E00190 07153 0634 00 2 07260 SXA SSYMX+1,2 SAVE WORD COUNT F0E00200 07154 0634 00 1 07261 SXA SSYMX+2,1 SAVE CHARACTER COUNT F0E00210 07155 -0500 00 0 04001 CAL SYMBL LOAD SYMBOL NAME F0E00220 07156 0774 00 1 00000 AXT 0,1 LOAD LOCATION OF FIRST SYMBOL IN TABLE F0E00230 07157 0534 00 2 23270 LXA SYMSIZ,2 LOAD LOGARITHM OF TABLE LENGTH F0E00240 07160 0074 00 4 04765 TSX LOWER,4 *EXECUTE BINARY SEARCH F0E00250 07161 0020 00 0 07167 TRA SSYM3 NOT FOUND F0E00260 07162 -3 00000 1 07166 SSYM1 TXL *+4,1,** IS SEARCH PAST UPPER END OF TABLE F0E00270 07163 -0340 00 1 23267 LAS SYMTBL-2,1 NO, IS CURRENT SYMBOL THIS NAME IN TABLE F0E00280 07164 1 77776 2 04765 TXI LOWER,2,-2 NO, LARGER - GO LOOK HIGHER F0E00290 07165 0020 00 0 07204 TRA SSYM4 YES F0E00300 07166 1 77776 2 04764 TXI RAISE,2,-2 NO, SMALLER - GO LOOK LOWER F0E00310 F0E00320 SYMBOL IS UNDEFINED F0E00330 07167 0760 00 0 00141 SSYM3 SLN EXPRR SET UNDEFINED ERROR FLAGS F0E00340 07170 -0625 00 0 04107 STL ERRFU F0E00350 07171 -0535 00 1 23270 LDC SYMSIZ,1 LOAD LENGTH OF UNDEFINED SYMBOL TABLE F0E00360 REENTRY TO COMPARE WITH NEXT NAME IN TABLE F0E00370 07172 -3 00000 1 07177 SUDS1 TXL *+5,1,** IS UNDEFINED SYMBOL TABLE EXHAUSTED F0E00380 07173 -0340 00 1 23267 LAS SYMTBL-2,1 NO, WAS SYMBOL PREVIOUSLY UNDEFINED F0E00390 07174 1 77776 1 07172 TXI SUDS1,1,-2 NO F0E00400 07175 1 77776 1 07207 TXI SSYM5,1,-2 YES F0E00410 07176 1 77776 1 07172 TXI SUDS1,1,-2 NO F0E00420 NAME IS NEW, ADD TO UNDEFINED SYMBOL TABLE F0E00430 07177 -3 00000 1 07207 TXL SSYM5,1,** DID UNDEFINED SYMBOL TABLE OVERFLOW F0E00440 BINARY CARD NO. 9F050003 07200 0602 00 1 23267 SLW SYMTBL-2,1 NO, ADD SYMBOL TO TABLE F0E00450 07201 0020 00 0 14453 TRA HGPCH (28)F0E00460 07202 1 77776 1 07203 TXI *+1,1,-2 BUMP UNDEFINED SYMBOL TABLE COUNT F0E00470 07203 -0634 00 1 07172 SXD SUDS1,1 SAVE LENGTH OF UNDEFINED SYMBOL TABLE F0E00480 REENTRY FOR DEFINED SYMBOL F0E00490 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 163 PASS TWO SUBROUTINES 07204 0441 00 1 23270 SSYM4 LDI SYMTBL-1,1 LOAD SYMBOL DEFINITION F0E00500 07205 -0054 00 000010 LFT 10 IS SYMBOL MULTIPLY DEFINED F0E00510 07206 -0625 00 0 04110 STL ERRFM YES, SET FLAG F0E00520 REENTRY FOR UNDEFINED SYMBOL F0E00530 07207 0500 00 1 23270 SSYM5 CLA SYMTBL-1,1 LOAD SYMBOL DEFINITION F0E00540 07210 0520 00 0 03740 ZET ABSFLG IS ASSEMBLY ABSOLUTE F0E00550 07211 -0320 00 0 06452 ANA ADTMK YES, DELETE EXTRANEOUS FLAGS F0E00560 07212 0601 00 0 04005 STO NERAS F0E00570 07213 0634 00 1 13443 SXA SET01,1 SAVE LOCATION FOR SET ROUTINE F0E00580 07214 0520 00 0 06455 ZET DELTF SHOULD SYMBOLIC REF TABLE ENTRY BE MADE F0E00590 07215 0020 00 0 07257 TRA SSYMX NO F0E00600 MAKE ENTRIES INTO SYMBOLIC REFERENCE TABLE F0E00610 07216 1 00002 1 07217 EREF0 TXI *+1,1,2 BUMP SYMBOL TABLE COUNT TO POINTER F0E00620 07217 0774 00 2 00000 AXT **,2 COMPUTE TABLE LOCATION INTO WHICH F0E00630 07220 1 00001 2 07221 EREF1 TXI *+1,2,1 CURRENT SYMBOLIC REFERENCE F0E00640 07221 0634 00 2 04007 SXA BERAS,2 WILL BE STORED F0E00650 07222 0520 00 1 00000 ZET **,1 HAS REFERENCE BEEN MADE TO THIS SYMBOL F0E00660 07223 0020 00 0 07231 TRA EREF2 YES F0E00670 07224 0500 00 0 04007 CLA BERAS NO, INSERT INTO POINTER TABLE F0E00680 07225 0621 00 1 00000 STA **,1 LOCATION FIRST REFERENCE WILL BE STORED F0E00690 BINARY CARD NO. 9F050004 07226 0767 00 0 00022 ALS 18 INSERT INTO POINTER TABLE F0E00700 07227 0622 00 1 00000 STD **,1 LOCATION NEXT REFERENCE WILL BE STORED F0E00710 07230 0020 00 0 07240 TRA EREF3 F0E00720 SUBSEQUENT REFERENCE TO SYMBOL F0E00730 07231 0500 00 1 00000 EREF2 CLA **,1 LOAD POINTER F0E00740 07232 0771 00 0 00022 ARS 18 GET LOCATION OF THIS REFERENCE F0E00750 07233 0621 00 0 07237 STA *+4 INITIALIZE STORE F0E00760 07234 0500 00 0 04007 CLA BERAS LOAD LOCATION OF NEXT REFERENCE F0E00770 07235 0767 00 0 00022 ALS 18 F0E00780 07236 0622 00 1 00000 STD **,1 INSERT IN POINTER F0E00790 07237 0622 00 0 00000 STD ** INSERT IN TABLE F0E00800 REENTRY FOR INITIAL REFERENCE F0E00810 07240 0774 00 2 77777 EREF3 AXT -1,2 LOAD NEXT AVAILABLE SPACE IN TABLE F0E00820 07241 0500 00 0 03761 CLA LOCTR INSERT PROGRAM COUNTER F0E00830 07242 0621 00 2 00000 STA **,2 FOR CURRENT REFERENCE INTO TABLE F0E00840 07243 3 00000 2 07245 EREF4 TXH *+2,2,** IS TABLE PAST POINTER INTERLEAVING F0E00850 07244 1 77777 2 07246 TXI *+2,2,-1 YES, BUMP TO NEXT LOCATION F0E00860 07245 1 77776 2 07246 TXI *+1,2,-2 NO, BUMP PAST INTERLEAVED POINTER F0E00870 07246 3 00000 2 07252 TXH *+4,2,** IS SYMBOLIC REFERENCE TABLE FULL F0E00880 07247 0774 00 1 07257 AXT SSYMX,1 YES, BYPASS FURTHER ENTRIES F0E00890 07250 0634 00 1 07216 SXA EREF0,1 F0E00900 07251 -0634 00 0 12024 SXD PREF9,0 SET SWITCH TO PRINT ERROR MESSAGE F0E00910 07252 0634 00 2 07240 SXA EREF3,2 SAVE NEXT AVAILABLE SPACE IN TABLE F0E00920 07253 -0754 00 2 00000 PXD ,2 COMPLEMENT F0E00930 BINARY CARD NO. 9F050005 07254 -0737 00 2 00000 PDC ,2 F0E00940 07255 -0634 00 2 07220 SXD EREF1,2 INITIALIZE COMPUTATION FOR NEXT SPACE F0E00950 07256 0500 00 0 04005 CLA NERAS RELOAD SYMBOL DEFINITION F0E00960 07257 0774 00 4 00000 SSYMX AXT **,4 RELOAD CALLING LINKAGE F0E00970 07260 0774 00 2 00000 AXT **,2 RELOAD WORD COUNT F0E00980 07261 0774 00 1 00000 AXT **,1 RELOAD CHARACTER COUNT F0E00990 07262 0020 00 4 00001 TRA 1,4 F0E01000 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 164 PASS TWO SUBROUTINES F0E01010 MAKE ENTRIES IN REF TABLE FOR PSEUDOOPS NOT SCANNED IN P2F0E01020 07263 0634 00 4 07274 REFPP SXA REFPX,4 SAVE CALLING LINKAGE F0E01030 07264 -0534 00 2 04012 LXD VRFLD,2 RELOAD WORD COUNT F0E01040 07265 0534 00 1 04012 LXA VRFLD,1 RELOAD CHARACTER COUNT F0E01050 07266 0074 00 4 04767 TSX SCANF,4 *EVALUATE NEXT FIELD F0E01060 07267 1 00000 0 07271 TXI *+2,,0 ALL DONE F0E01070 07270 0020 00 0 07266 TRA *-2 CONTINUE F0E01080 07271 0774 00 4 00010 AXT ERRFB-ERRFU+1,4 LOAD LENGTH OF FATAL ERROR LIST F0E01090 07272 0600 00 4 04117 STZ ERRFB+1,4 DELETE ERRORS REPRESENTED BY F FLAG F0E01100 07273 2 00001 4 07272 TIX *-1,4,1 F0E01110 07274 0774 00 4 00000 REFPX AXT **,4 RELOAD CALLING LINKAGE F0E01120 07275 0020 00 4 00001 TRA 1,4 F0E01130 F0E01140 CHECK LOCATION COUNTER F0E01150 07276 0634 00 4 07316 REFLC SXA REFCX,4 SAVE CALLING LINKAGE F0E01160 07277 0520 00 0 04045 ZET DUPMD IS CARD WITHIN DUP F0E01170 07300 0020 00 0 07316 TRA REFCX YES, FORGET IT F0E01180 07301 -0625 00 0 06455 STL DELTF NO, AVOID SOURCE REFERENCE TABLE ENTRIES F0E01190 BINARY CARD NO. 9F050006 07302 0074 00 4 07320 TSX REFLP,4 *FIND SYMBOL DEFINITION F0E01200 07303 0600 00 0 06455 STZ DELTF RESET SYMBOLIC REF TABLE ENTRY FLAG F0E01210 07304 0520 00 0 04001 ZET SYMBL IS LOCATION SYMBOL OMITTED F0E01220 07305 -0054 00 000020 LFT 20 NO, WAS DEFINITION RESET F0E01230 07306 0020 00 0 07316 TRA REFCX YES, FORGET IT F0E01240 07307 -0046 00 0 00000 PIA RECALL SYMBOL DEFINITION F0E01250 07310 0520 00 0 03740 ZET ABSFLG IS ASSEMBLY ABSOLUTE F0E01260 07311 -0320 00 0 06452 ANA ADTMK YES, DELETE EXTRANEOUS FLAGS F0E01270 07312 0322 00 0 04005 ERA NERAS DOES THIS AGREE WITH PASS ONE DEFINITION F0E01280 07313 0100 00 0 07316 TZE REFCX YES F0E01290 07314 -0520 00 0 04126 NZT ERFFM NO, IS SYMBOL MULTIPLY DEFINED F0E01300 07315 0074 00 4 06312 TSX MACERR,4 **NO, LOCATION COUNTER IS OUT OF STEP F0E01310 07316 0774 00 4 00000 REFCX AXT **,4 RELOAD CALLING LINKAGE F0E01320 07317 0020 00 4 00001 TRA 1,4 F0E01330 ENTER POINT OF DEFINITION IN SYMBOLIC REFERENCE TABLE F0E01340 07320 0634 00 4 07336 REFLP SXA REFLX,4 SAVE CALLING LINKAGE F0E01350 07321 -0500 00 0 04255 CAL BCDBF LOAD LOCATION FIELD F0E01360 07322 0074 00 4 04547 TSX LOCFL,4 *ASSEMBLE LOCATION SYMBOL F0E01370 07323 0100 00 0 07336 TZE REFLX IS THERE A LOCATION SYMBOL F0E01380 07324 -0765 00 0 00036 LGR 30 YES, APPEND CURRENT PRIME HEADING CHAR F0E01390 07325 -0100 00 0 07327 TNZ *+2 F0E01400 07326 -0500 00 0 03776 CAL BHEAD F0E01410 07327 -0763 00 0 00036 LGL 30 F0E01420 BINARY CARD NO. 9F050007 07330 0602 00 0 04001 SLW SYMBL F0E01430 07331 0074 00 4 07152 TSX SSYMT,4 *MAKE SYMBOL TABLE SEARCH F0E01440 07332 -0500 00 0 04110 CAL ERRFM SET NONFATAL MULTIPLY DEFINED FLAG F0E01450 07333 0602 00 0 04126 SLW ERFFM F0E01460 07334 0600 00 0 04110 STZ ERRFM PREVENT ABORTION F0E01470 07335 0600 00 0 04107 STZ ERRFU F0E01480 07336 0774 00 4 00000 REFLX AXT **,4 RELOAD CALLING LINKAGE F0E01490 07337 0020 00 4 00001 TRA 1,4 F0E01500 F0E01510 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 165 PASS TWO SUBROUTINES SET FLAG FOR MISSING PSEUDOOP VARIABLE FIELD F0E01520 07340 -0625 00 0 04121 AFLAG STL ERRFA FLAG MISSING VARIABLE FIELD F0E01530 07341 0760 00 0 00144 SLN FLDND DELETE F FLAG F0E01540 07342 0020 00 4 00002 TRA 2,4 F0E01550 F0E01560 SET FLAG FOR MISSING ADDRESS FIELD F0E01570 07343 -0500 00 0 06460 FLAGA CAL D8 LOAD A-FLAG MASK F0E01580 07344 -0320 00 0 04011 ANA OFLGS MASK IN OPTABLE FIELD BITS F0E01590 07345 0602 00 0 04121 SLW ERRFA SET FLAG IF FIELD IS REQUIRED F0E01600 07346 -0754 00 0 00000 PXD ,0 F0E01610 07347 0020 00 4 00002 TRA 2,4 F0E01620 F0E01630 SET FLAG FOR MISSING TAG FIELD F0E01640 07350 -0500 00 0 06456 FLAGT CAL D4 LOAD T-FLAG MASK F0E01650 07351 -0320 00 0 04011 ANA OFLGS MASK IN OPTABLE FIELD BITS F0E01660 07352 0602 00 0 04122 SLW ERRFT SET FLAG IF FIELD IS REQUIRED F0E01670 07353 -0754 00 0 00000 PXD ,0 F0E01680 07354 0020 00 4 00002 TRA 2,4 F0E01690 F0E01700 SET FLAG FOR MISSING DECREMENT FIELD F0E01710 07355 -0500 00 0 06454 FLAGD CAL D2 LOAD D-FLAG MASK F0E01720 BINARY CARD NO. 9F050008 07356 -0320 00 0 04011 ANA OFLGS MASK IN OPTABLE FIELD BIT F0E01730 07357 0602 00 0 04123 SLW ERRFD SET FLAG IF FIELD IS REQUIRED F0E01740 07360 -0754 00 0 00000 PXD ,0 F0E01750 07361 0020 00 4 00002 TRA 2,4 F0E01760 F0E01770 INTERPRET INSTRUCTION LISTING FLAGS F0E01780 FLAGS ARE IN INDICATORS F0E01790 07362 0054 00 020000 IFLGS RFT 9OMSK IS THIS INSTRUCTION PERMISSIBLE ON 7090 F0E01800 (RESET TO 040000 FOR 704 MODE) F0E01810 07363 0020 00 0 07370 TRA IFL01 YES F0E01820 07364 0056 00 040000 RNT 04MSK NO, IS THIS INSTRUCTION PROHIBITED ON 7090F0E01830 (RESET TO 020000 FOR 7090 MODE) F0E01840 07365 -0625 00 0 04117 STL ERRFN NO, SET NON-FATAL OPCODE ERROR FLAG F0E01850 07366 0054 00 040000 RFT 04MSK IS THIS INSTRUCTION PROHIBITED ON 7090 F0E01860 (RESET TO 020000 FOR 7090 MODE) F0E01870 07367 -0625 00 0 04120 STL ERR49 YES, SET MODE FLAG F0E01880 07370 -0625 00 0 04060 IFL01 STL TYPAF SET TYPE A INSTRUCTION FLAG PRESUMPTIVELY F0E01890 07371 -0054 00 077760 LFT 077760 IS THIS TYPE A 0 00000 0 00000 INSTR. F0E01900 07372 0600 00 0 04060 STZ TYPAF NO, RESET TYPE FLAG F0E01910 07373 -0056 00 000001 LNT 00001 DOES ADDRESS FIELD CONTAIN FLAGS F0E01920 07374 0020 00 4 00002 TRA 2,4 NO, RETURN F0E01930 07375 0054 00 000001 RFT TDMSK IS THIS A TYPE D 0000 00 000000 INSTR. F0E01940 07376 -0625 00 0 04062 STL TYPDF YES, SET FLAG F0E01950 07377 0054 00 000002 RFT VLMSK IS THIS A TYPE B INSTR. PERMITTED DECRM. F0E01960 OR TYPE K WITH HIGH ORDER COUNT FIELD F0E01970 07400 -0625 00 0 04061 STL TYPCF YES, SET FLAG F0E01980 07401 0056 00 000004 RNT TKMSK IS THIS A TYPE K 00 0000 0 00000 COMMAND F0E01990 07402 0020 00 0 07405 TRA *+3 NO F0E02000 07403 -0625 00 0 04063 STL TYPKF YES, SET TYPE K FLAG F0E02010 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 166 PASS TWO SUBROUTINES BINARY CARD NO. 9F050009 07404 -0625 00 0 04060 STL TYPAF SET TYPE A FLAG ALSO F0E02020 07405 0020 00 4 00001 TRA 1,4 RETURN F0E02030 F0E02040 ROUTINE TO CREATE OCTAL EXPANSION F0E02050 F0E02060 PRINT CONTROL CARD F0E02070 07406 0441 00 0 04272 PRNCC LDI BCDBF+13 LOAD PASS 1 ERROR FLAGS F0E02080 07407 -0520 00 0 04121 NZT ERRFA IS MISSING VARIABLE FIELD FLAGGED F0E02090 07410 0054 00 000100 RFT 100 NOT YET F0E02100 07411 0020 00 0 07414 TRA PRNTC YES F0E02110 07412 0056 00 000004 RNT 4 NO, IS FIELD ERROR FLAGGED F0E02120 07413 -3 00000 0 07675 PRNSW TXL PRNTX+3,,0 NO, SHOULD CARD BE PRINTED F0E02130 (SWITCH SET BY PCC) F0E02140 F0E02150 PRINT INPUT CARD F0E02160 07414 0634 00 4 07672 PRNTC SXA PRNTX,4 SAVE CALLING LINKAGE F0E02170 07415 0774 00 4 00004 AXT 4,4 BREPARE TO BLANK OUT OCTAL LISTING F0E02180 07416 -0500 00 0 04176 CAL BLANKS F0E02190 07417 0602 00 4 04255 SLW OCTAL+4,4 F0E02200 07420 2 00001 4 07417 TIX *-1,4,1 F0E02210 07421 0020 00 0 07657 TRA PRN06 F0E02220 F0E02230 PRINT INPUT CARD, DEFINITION LEFT ADJUSTED F0E02240 07422 0634 00 4 07672 PRNTL SXA PRNTX,4 SAVE CALLING LINKAGE F0E02250 07423 -0500 00 0 04176 CAL BLANKS BLANK OUT OCTAL FIELD F0E02260 07424 0602 00 0 04254 SLW OCTAL+3 F0E02270 07425 0602 00 0 04253 SLW OCTAL+2 F0E02280 07426 0602 00 0 04252 SLW OCTAL+1 F0E02290 07427 0560 00 0 03762 LDQ ADDRS CONVERT LOCATION TO OCTAL F0E02300 07430 -0773 00 0 00025 RQL 21 F0E02310 07431 0774 00 4 00005 AXT 5,4 F0E02320 BINARY CARD NO. 9F050010 07432 0767 00 0 00003 ALS 3 F0E02330 07433 -0763 00 0 00003 LGL 3 F0E02340 07434 2 00001 4 07432 TIX *-2,4,1 F0E02350 07435 0767 00 0 00006 ALS 6 LEFT ADJUST F0E02360 07436 -0501 00 0 06522 ORA BLANK F0E02370 07437 0602 00 0 04251 SLW OCTAL INSERT IN FIRST WORD F0E02380 07440 0020 00 0 07657 TRA PRN06 F0E02390 F0E02400 PRINT INPUT CARD, DEFINITION RIGHT ADJUSTED F0E02410 07441 0634 00 4 07672 PRNTR SXA PRNTX,4 SAVE CALLING LINKAGE F0E02420 07442 0560 00 0 03762 LDQ ADDRS LOAD DEFINITION OF SYMBOL F0E02430 07443 -0500 00 0 04176 CAL BLANKS BLANK OUT LEFT PORTION OF OCTAL EXPANSION F0E02440 07444 0602 00 0 04251 SLW OCTAL F0E02450 07445 0602 00 0 04252 SLW OCTAL+1 F0E02460 07446 -0520 00 0 04062 NZT TYPDF IS FIELD BOOLEAN (6 DIGIT) F0E02470 07447 0020 00 0 07454 TRA *+5 NO F0E02480 07450 -0773 00 0 00022 RQL 18 YES, LEFT ADJUST 6 DIGIT FIELD F0E02490 07451 0767 00 0 00003 ALS 3 CREATE FIRST DIGIT F0E02500 07452 -0763 00 0 00003 LGL 3 F0E02510 07453 0020 00 0 07455 TRA *+2 F0E02520 07454 -0773 00 0 00025 RQL 21 LEFT ADJUST 5 DIGIT FIELD F0E02530 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 167 PASS TWO SUBROUTINES 07455 0767 00 0 00006 ALS 6 SHIFT BOOLEAN DIGIT OR BLANK TO CHAR 5 F0E02540 07456 0602 00 0 04253 SLW OCTAL+2 OF WORD 3 F0E02550 07457 0600 00 0 04254 STZ OCTAL+3 CLEAR RIGHT ADJUSTED ADDRESS FIELD F0E02560 BINARY CARD NO. 9F050011 07460 -0754 00 0 00000 PXD ,0 F0E02570 07461 0020 00 0 07623 TRA PRN04 F0E02580 F0E02590 PRINT SIGNED 12 DIGIT INTEGER DATUM WORD F0E02600 07462 0560 00 0 04004 PRNTD LDQ BINRY LOAD DATUM WORD F0E02610 07463 -0500 00 0 06527 CAL PLUSS LOAD LEADING + F0E02620 07464 0162 00 0 07467 TQP *+3 IS INTEGER POSITIVE F0E02630 07465 -0500 00 0 06525 CAL MINUS NO, LOAD LEADING - F0E02640 07466 0765 00 0 00000 LRS 0 DELETE SIGN F0E02650 07467 0020 00 0 07472 TRA PRNTW+2 F0E02660 F0E02670 PRINT 6 CHARACTER BCD DATUM WORD F0E02680 07470 0560 00 0 04004 PRNTW LDQ BINRY LOAD DATUM WORD F0E02690 07471 -0500 00 0 06522 CAL BLANK LOAD LEADING BLANK F0E02700 07472 0634 00 4 07672 SXA PRNTX,4 SAVE CALLING LINKAGE F0E02710 07473 0774 00 4 00036 AXT 30,4 PREPARE TO CREATE 5 OCTAL DIGITS F0E02720 07474 0767 00 0 00003 ALS 3 CREATE ZONE F0E02730 07475 -0763 00 0 00003 LGL 3 SHIFT IN DIGIT F0E02740 07476 2 00006 4 07474 TIX *-2,4,6 IS WORD 2 COMPLETE F0E02750 07477 0602 00 0 04252 SLW OCTAL+1 YES F0E02760 07500 0767 00 0 00003 ALS 3 CREATE ZONE F0E02770 07501 -0763 00 0 00003 LGL 3 SHIFT IN DIGIT F0E02780 07502 2 00001 4 07500 TIX *-2,4,1 IS WORD 3 COMPLETE F0E02790 07503 0602 00 0 04253 SLW OCTAL+2 YES F0E02800 07504 -0754 00 0 00000 PXD ,0 F0E02810 07505 -0763 00 0 00003 LGL 3 SHIFT IN LAST DIGIT F0E02820 BINARY CARD NO. 9F050012 07506 0560 00 0 04176 LDQ BLANKS APPEND FOLLOWING BLANKS F0E02830 07507 -0763 00 0 00036 LGL 30 LEFT ADJUST LAST DIGIT F0E02840 07510 0602 00 0 04254 SLW OCTAL+3 INSERT IN LAST WORD F0E02850 07511 0020 00 0 07637 TRA PRN05 F0E02860 F0E02870 PRINT SIX CHARACTER DISK ORDER F0E02880 07512 0634 00 4 07672 PRNTO SXA PRNTX,4 SAVE CALLING LINKAGE F0E02890 07513 0774 00 4 00060 AXT 48,4 PREPARE TO GENERATER 3 TWO-DIGIT FIELDS F0E02900 07514 0560 00 0 04004 LDQ BINRY LOAD DATUM WORD F0E02910 07515 -0500 00 0 06522 CAL BLANK LOAD LEADING BLANK F0E02920 07516 0767 00 0 00003 ALS 3 CREATE OP/HEAD FIELD F0E02930 07517 -0763 00 0 00003 LGL 3 F0E02940 07520 2 00014 4 07516 TIX *-2,4,12 F0E02950 07521 0767 00 0 00006 ALS 6 F0E02960 07522 -0501 00 0 06522 ORA BLANK APPEND BLANK F0E02970 07523 -0602 00 0 04252 ORS OCTAL+1 INSERT IN LISTING WORD 2 F0E02980 07524 0767 00 0 00003 ALS 3 CREATE ACCESS AND MODULE/RECORD FIELD F0E02990 07525 -0763 00 0 00003 LGL 3 F0E03000 07526 2 00003 4 07524 TIX *-2,4,3 F0E03010 07527 0767 00 0 00006 ALS 6 F0E03020 07530 -0501 00 0 06522 ORA BLANK APPEND BLANK F0E03030 07531 0767 00 0 00003 ALS 3 START TRACK/NULL FIELD F0E03040 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 168 PASS TWO SUBROUTINES 07532 -0763 00 0 00003 LGL 3 F0E03050 07533 -0602 00 0 04253 ORS OCTAL+2 INSERT IN LISTING WORD 3 F0E03060 BINARY CARD NO. 9F050013 07534 0767 00 0 00003 ALS 3 FINISH TRACK/NULL FIELD F0E03070 07535 -0763 00 0 00003 LGL 3 F0E03080 07536 2 00001 4 07534 TIX *-2,4,1 F0E03090 07537 0560 00 0 04176 LDQ BLANKS APPEND FOLLOWING BLANKS F0E03100 07540 -0763 00 0 00022 LGL 18 F0E03110 07541 -0602 00 0 04254 ORS OCTAL+3 INSERT IN LISTING WORD 4 F0E03120 07542 0020 00 0 07637 TRA PRN05 F0E03130 F0E03140 PRINT SIGNED 35 BIT MACHINE INSTRUCTION F0E03150 07543 0634 00 4 07672 PRNTI SXA PRNTX,4 SAVE CALLING LINKAGE F0E03160 07544 0560 00 0 04004 LDQ BINRY LOAD INSTRUCTION F0E03170 07545 -0500 00 0 06522 CAL BLANK LOAD LEADING BLANK F0E03180 07546 0162 00 0 07551 TQP *+3 IS INSTRUCTION NEGATIVE F0E03190 07547 -0500 00 0 06525 CAL MINUS YES, LOAD LEADING - F0E03200 07550 0765 00 0 00000 LRS 0 DELETE SIGN F0E03210 07551 0520 00 0 04060 ZET TYPAF IS THIS TYPE A INSTRUCTION F0E03220 07552 0020 00 0 07562 TRA PRN01 YES F0E03230 07553 0774 00 4 00004 AXT 4,4 NO, PREPARE TO CREATE 4 DIGIT OP FIELD F0E03240 07554 0767 00 0 00003 ALS 3 CREATE ZONE F0E03250 07555 -0763 00 0 00003 LGL 3 SHIFT IN DIGIT F0E03260 07556 2 00001 4 07554 TIX *-2,4,1 IS OP FIELD COMPLETE F0E03270 07557 0767 00 0 00006 ALS 6 YES, APPEND BLANK F0E03280 07560 -0501 00 0 06522 ORA BLANK F0E03290 07561 0020 00 0 07577 TRA PRN02 F0E03300 REENTRY FOR TYPE A INSTRUCTION F0E03310 BINARY CARD NO. 9F050014 07562 0767 00 0 00003 PRN01 ALS 3 CREATE 1 DIGIT OP CODE F0E03320 07563 -0763 00 0 00003 LGL 3 F0E03330 07564 0774 00 4 00003 AXT 3,4 PREPARE TO CREATE FIRST 3 DIGITS OF DECR F0E03340 07565 -0520 00 0 04063 NZT TYPKF IS THIS TYPE K DISK COMMAND F0E03350 07566 0020 00 0 07572 TRA *+4 NO F0E03360 07567 0767 00 0 00003 ALS 3 YES, CREATE SECOND DIGIT OF OPCODE F0E03370 07570 -0763 00 0 00003 LGL 3 F0E03380 07571 0774 00 4 00002 AXT 2,4 PREPARE TO CREATE FIRST 2 DIGITS OF DECR F0E03390 07572 0767 00 0 00006 ALS 6 APPEND BLANK F0E03400 07573 -0501 00 0 06522 ORA BLANK F0E03410 07574 0767 00 0 00003 ALS 3 CREATE ZONE F0E03420 07575 -0763 00 0 00003 LGL 3 SHIFT IN DIGIT F0E03430 07576 2 00001 4 07574 TIX *-2,4,1 IS FIELD COMPLETE F0E03440 REENTRY FOR TYPES B, D INSTRUCTIONS F0E03450 07577 -0602 00 0 04252 PRN02 ORS OCTAL+1 SET WORD 2 F0E03460 07600 -0754 00 0 00000 PXD ,0 F0E03470 07601 -0763 00 0 00003 LGL 3 CREATE LAST 2 DIGITS OF DECR F0E03480 07602 0767 00 0 00003 ALS 3 F0E03490 07603 -0763 00 0 00003 LGL 3 F0E03500 07604 0767 00 0 00006 ALS 6 F0E03510 07605 -0501 00 0 06522 ORA BLANK APPEND BLANK F0E03520 07606 -0520 00 0 04062 NZT TYPDF IS ADDRESS BOOLEAN (SIX DIGIT) F0E03530 07607 0020 00 0 07615 TRA PRN03 NO F0E03540 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 169 PASS TWO SUBROUTINES BINARY CARD NO. 9F050015 07610 0767 00 0 00006 ALS 6 YES, APPEND SECOND BLANK F0E03550 07611 -0501 00 0 06522 ORA BLANK F0E03560 07612 0767 00 0 00003 ALS 3 CREATE LEADING DIGIT OF ADDRESS FIELD F0E03570 07613 -0763 00 0 00003 LGL 3 F0E03580 07614 0020 00 0 07621 TRA PRN03+4 F0E03590 07615 0767 00 0 00003 PRN03 ALS 3 CREATE TAG DIGIT F0E03600 07616 -0763 00 0 00003 LGL 3 F0E03610 07617 0767 00 0 00006 ALS 6 APPEND BLANK F0E03620 07620 -0501 00 0 06522 ORA BLANK F0E03630 07621 -0520 00 0 04064 NZT OPFLG IS THIS OP DEFINITION F0E03640 07622 -0625 00 0 04076 STL PRTIF NO, SET MACHINE INSTRUCTION FLAG F0E03650 REENTRY FOR LOCATION FIELD RIGHT ADJUSTED F0E03660 07623 0767 00 0 00003 PRN04 ALS 3 CREATE FIRST DIGIT OF ADDRESS FIELD F0E03670 07624 -0763 00 0 00003 LGL 3 (SECOND DIGIT OF BOOLEAN FIELD) F0E03680 07625 -0602 00 0 04253 ORS OCTAL+2 INSERT IN WORD 3 F0E03690 07626 0774 00 4 00004 AXT 4,4 PREPARE TO CREATE LAST 4 DIGITS OF FIELD F0E03700 07627 0767 00 0 00003 ALS 3 CREATE ZONE F0E03710 07630 -0763 00 0 00003 LGL 3 SHIFT IN DIGIT F0E03720 07631 2 00001 4 07627 TIX *-2,4,1 IS FIELD COMPLETE F0E03730 07632 0560 00 0 04176 LDQ BLANKS YES, APPEND FOLLOWING BLANKS F0E03740 07633 -0763 00 0 00014 LGL 12 F0E03750 07634 -0602 00 0 04254 ORS OCTAL+3 INSERT IN WORD 4 F0E03760 07635 -0520 00 0 04076 NZT PRTIF WAS THIS A MACHINE INSTRUCTION F0E03770 BINARY CARD NO. 9F050016 07636 0020 00 0 07657 TRA PRN06 NO, DO NOT PRINT LOCATION FIELD LEFT ADJ F0E03780 (XR2, 1 NOT SIGNIFICANT) F0E03790 REENTRY FOR DATUM WORD F0E03800 07637 0500 00 0 03761 PRN05 CLA LOCTR UPDATE PROGRAM COUNTER F0E03810 07640 0601 00 0 03762 STO ADDRS F0E03820 07641 0500 00 0 06410 CLA Q1 F0E03830 07642 0074 00 4 06265 TSX BPCTR,4 *BUMP PROGRAM COUNTER F0E03840 07643 0560 00 0 03762 LDQ ADDRS F0E03850 07644 -0763 00 0 00025 LGL 21 LEFT ADJUST PROGRAM COUNTER F0E03860 07645 0774 00 4 00005 AXT 5,4 PREPARE TO CREATE 5 OCTAL DIGITS F0E03870 07646 0767 00 0 00003 ALS 3 CREATE ZONE F0E03880 07647 -0763 00 0 00003 LGL 3 SHIFT IN DIGIT F0E03890 07650 2 00001 4 07646 TIX *-2,4,1 IS LOCATION FIELD COMPLETE F0E03900 07651 0767 00 0 00006 ALS 6 YES, APPEND FOLLOWING BLANK F0E03910 07652 -0501 00 0 06522 ORA BLANK F0E03920 07653 0602 00 0 04251 SLW OCTAL INSERT IN WORD 1 F0E03930 07654 0634 00 2 07673 SXA PRNTX+1,2 SAVE WORD COUNT F0E03940 07655 0634 00 1 07674 SXA PRNTX+2,1 SAVE CHARACTER COUNT F0E03950 07656 0074 00 4 10073 TSX STORE,4 *INSERT BINARY WORD INTO CARD IMAGE F0E03960 07657 0441 00 0 04272 PRN06 LDI BCDBF+13 LOAD PASS 1 ERROR FLAGS F0E03970 07660 0054 00 000004 RFT 4 IS FIELD ERROR FLAGGED F0E03980 07661 -0625 00 0 04125 STL ERRFF YES, SET FLAG F0E03990 07662 0054 00 000100 RFT 100 IS MISSING VARIABLE FIELD FLAGGED F0E04000 07663 -0625 00 0 04121 STL ERRFA YES, SET FLAG F0E04010 BINARY CARD NO. 9F050017 07664 0074 00 4 07676 TSX PRLST,4 *LIST THIS LINE F0E04020 07665 0 00000 0 04251 IOLST IOCD OCTAL,,** PARAMETER FOR LENGTH OF LISTING LINE F0E04030 07666 0774 00 4 00005 AXT 5,4 RESET LENGTH OF LINE TO SHORT LINE F0E04040 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 170 PASS TWO SUBROUTINES 07667 -0634 00 4 07665 SXD IOLST,4 FOR GENERTED DATA F0E04050 07670 0600 00 0 04076 STZ PRTIF RESET FLAG F0E04060 07671 0600 00 0 04062 STZ TYPDF RESET BOOLEAN ADDRESS FLAG F0E04070 07672 0774 00 4 00000 PRNTX AXT **,4 RELOAD CALLING LINKAGE F0E04080 07673 0774 00 2 00000 AXT **,2 RELOAD WORD COUNT F0E04090 07674 0774 00 1 00000 AXT **,1 RELOAD TABLE COUNT F0E04100 07675 0020 00 4 00001 TRA 1,4 F0E04110 F0E04120 SUBROUTINE TO PRINT LISTING LINE F0E04130 07676 0634 00 4 07761 PRLST SXA PRLSX,4 SAVE CALLING LINKAGE F0E04140 07677 -0500 00 4 00001 CAL 1,4 LOAD PARAMETER F0E04150 07700 -0734 00 2 00000 PDX ,2 LOAD WORD COUNT F0E04160 07701 -0634 00 2 07760 SXD PRL06+1,2 SET LENGTH OF LINE F0E04170 07702 0402 00 0 06411 SUB Q2 F0E04180 07703 0621 00 0 07753 STA PRL05 SET LOCATION OF BUFFER TO BE MOVED F0E04190 07704 -0754 00 0 00000 PXD ,0 F0E04200 07705 -0534 00 4 04127 LXD EFLST,4 LOAD LENGTH OF ERROR FLAG LIST F0E04210 07706 0560 00 4 04154 LDQ EFCHR,4 LOAD ERROR CHARACTER F0E04220 07707 0520 00 4 04127 ZET EFLST,4 IS THIS ERROR FLAG SET F0E04230 07710 -0763 00 0 00006 LGL 6 YES, SHIFT IN NEXT FLAG F0E04240 07711 0600 00 4 04127 STZ EFLST,4 RESET ERROR FLAG F0E04250 BINARY CARD NO. 9F050018 07712 -3 00000 4 07715 PRL00 TXL *+3,4,** IS THIS ERROR FATAL F0E04260 07713 0100 00 0 07715 TZE *+2 YES, WAS THIS ERROR FOUND F0E04270 07714 -0625 00 0 04057 STL NOGOF YES, SET FATAL ERROR FLAG F0E04280 07715 2 00001 4 07706 TIX *-7,4,1 HAVE ALL FLAGS BEEN TESTED F0E04290 07716 0560 00 0 04176 LDQ BLANKS YES, LOAD FOLLOWING BLANKS F0E04300 07717 0100 00 0 07725 TZE PRL01 WERE THERE ANY ERRORS F0E04310 07720 -0765 00 0 00006 LGR 6 YES, LEFT ADJUST ERROR CHARACTERS F0E04320 07721 -0100 00 0 07720 TNZ *-1 F0E04330 07722 -0500 00 0 06522 CAL BLANK APPEND LEADING BLANK (PROGRAM CONTROL) F0E04340 07723 -0765 00 0 00006 LGR 6 F0E04350 07724 0020 00 0 07734 TRA PRL02 F0E04360 NO ERRORS ON THIS STATEMENT F0E04370 07725 -0500 00 0 04066 PRL01 CAL UNLSF LOAD UNLIST FLAG F0E04380 07726 -3 00000 2 07731 TXL *+3,2,0 IS LINE BLANK F0E04390 07727 3 00005 2 07731 TXH *+2,2,5 NO, IS LINE GENERATED DATA F0E04400 07730 -0501 00 0 04067 ORA TITLF YES, LOAD TITLE FLAG F0E04410 07731 3 00000 4 07733 PMCSW TXH *+2,4,** IS THIS MACRO GENERATED CARD F0E04420 07732 -3 00000 0 07761 TXL PRLSX,,0 YES, SHOULD THIS CARD BE OMITTED F0E04430 07733 -0100 00 0 07761 TNZ PRLSX NO, IS THIS LINE SUPPRESSED F0E04440 REENTRY FOR ERROR ON STATEMENT F0E04450 07734 -0600 00 0 70072 PRL02 STQ BBUF21+1 SET FLAGS IN WORD 1 F0E04460 07735 -3 00000 2 07752 TXL PRL04+3,2,0 IS LINE BLANK F0E04470 07736 -3 00022 2 07740 TXL PRL03,2,18 NO, IS FULL CARD REQUESTED F0E04480 07737 0074 00 4 07770 TSX LEVEL,4 *YES, INSERT MACRO LEVEL IN CC 81 - 84 F0E04490 COMPUTE ORIGIN AT END OF NONBLANK LINE F0E04500 BINARY CARD NO. 9F050019 07740 -0535 00 2 07760 PRL03 LDC PRL06+1,2 LOAD LENGTH OF LINE F0E04510 07741 -0500 60 0 07753 CAL* PRL05 LOAD NEXT WORD F0E04520 07742 0322 00 0 04176 ERA BLANKS IS WORD BLANK F0E04530 07743 -0100 00 0 07747 TNZ PRL04 NO F0E04540 07744 1 00001 2 07745 TXI *+1,2,1 YES, BUMP COUNT BACK ONE F0E04550 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 171 PASS TWO SUBROUTINES 07745 -3 77776 2 07741 TXL *-4,2,-2 IS LINE ALL BLANKS (MINIMUM LENGTH OF LINEF0E04560 IS 3 WORDS, OCTAL, OCTAL+1 CANNOT BE F0E04570 NONBLANK IF REST OF LINE IS BLANK) F0E04580 07746 0774 00 2 00000 AXT 0,2 YES, SET WORD COUNT FOR BLANK LINE F0E04590 END OF NONBLANK LINE FOUND F0E04600 07747 0634 00 2 07750 PRL04 SXA *+1,2 COMPUTE NUMBER OF NONBLANK WORDS F0E04610 07750 -0774 00 4 00000 AXC **,4 INITIALIZE I/O COMMAND WORD COUNT F0E04620 07751 -0634 00 4 07760 SXD PRL06+1,4 F0E04630 REENTRY TO PRINT BLANK LINE F0E04640 07752 -3 00000 2 07757 TXL PRL06,2,0 IS LINE BLANK F0E04650 07753 -0500 00 2 00000 PRL05 CAL **,2 NO, MOVE NEXT WORD F0E04660 07754 0602 00 2 70071 SLW BBUF21,2 INTO OUTPUT BUFFER F0E04670 07755 1 00001 2 07756 TXI *+1,2,1 BUMP TO NEXT WORD F0E04680 07756 -3 77776 2 07753 TXL PRL05,2,-2 IS LINE MOVED F0E04690 BUFFER IS COMPLETE F0E04700 07757 0074 00 4 04361 PRL06 TSX FPRINT,4 *INITIATE THIS TRANSMISSION F0E04710 07760 0 00000 0 70072 PZE BBUF21+1,,** F0E04720 07761 0774 00 4 00000 PRLSX AXT **,4 RELOAD CALLING LINKAGE F0E04730 07762 -0500 00 0 04065 CAL UNL1F SET FLAG TO DELETE NEXT LINE F0E04740 07763 0602 00 0 04066 SLW UNLSF (TO PRINT UNLIST AND DELETE LIST) F0E04750 07764 0600 00 0 04252 STZ OCTAL+1 CLEAR OCTAL BUFFER F0E04760 07765 0600 00 0 04253 STZ OCTAL+2 F0E04770 BINARY CARD NO. 9F050020 07766 0600 00 0 04254 STZ OCTAL+3 F0E04780 07767 0020 00 4 00002 TRA 2,4 F0E04790 F0E04800 INSERT MACRO LEVEL INTO CARD COLUMNS 81 THRU 84 F0E04810 07770 0634 00 4 10010 LEVEL SXA LEVLX,4 SAVE CALLING LINKAGE F0E04820 07771 0560 00 0 06500 LDQ P2MSK LOAD FOLLOWING BLANKS F0E04830 07772 -0500 00 0 04272 CAL BCDBF+13 LOAD FLAGS F0E04840 07773 0771 00 0 00010 ARS 8 SHIFT UP LEVEL NUMBER F0E04850 07774 -0320 00 0 06435 ANA Q127 MASK IN LEVEL NUMBER F0E04860 07775 0100 00 0 10003 TZE LEVL1 IS THIS A MACRO GENERATED CARD F0E04870 07776 0074 00 4 06104 TSX BCDCV,4 *YES, CONVERT TO DECIMAL F0E04880 07777 0560 00 0 04176 LDQ BLANKS LOAD FOLLOWING BLANKS F0E04890 10000 -0765 00 0 00022 LGR 18 SHIFT OUT DIGIT F0E04900 10001 -0500 00 0 06502 CAL POINT LOAD DECIMAL POINT F0E04910 10002 -0765 00 0 00022 LGR 18 RIGHT ADJUST F0E04920 10003 -0600 00 0 04005 LEVL1 STQ NERAS HOLD CARD COLUMNS 81 THRU 84 F0E04930 10004 -0500 00 0 04272 CAL BCDBF+13 LOAD CARD WORD 14 F0E04940 10005 -0320 00 0 06477 ANA P1MSK MASK IN CARD COLUMNS 79 AMD 80 F0E04950 10006 -0501 00 0 04005 ORA NERAS COMBINE WITH CARD COLUMNS 81 THRU 84 F0E04960 10007 0602 00 0 04272 SLW BCDBF+13 INSERT IN CARD WORD 14 F0E04970 10010 0774 00 4 00000 LEVLX AXT **,4 RELOAD CALLING LINKAGE F0E04980 10011 0020 00 4 00001 TRA 1,4 F0E04990 F0E05000 PUNCH ABSOLUTE TRANSFER CARD F0E05010 10012 0634 00 4 10053 PCHTC SXA PCHTX,4 SAVE CALLING LINKAGE F0E05020 10013 -0520 00 0 03744 NZT LBLFLG IS CARD LABEL REQUESTED F0E05030 BINARY CARD NO. 9F050021 10014 0020 00 0 10023 TRA PCHT1 NO F0E05040 10015 0774 00 4 00010 AXT 8,4 YES, SAVE OLD SERIALIZATION F0E05050 10016 -0500 00 4 14202 CAL BMPBF+8,4 F0E05060 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 172 PASS TWO SUBROUTINES 10017 0602 00 4 14212 SLW BMPSV+8,4 F0E05070 10020 -0500 00 4 14222 CAL CIDBF+8,4 F0E05080 10021 0602 00 4 14232 SLW CIDSV+8,4 F0E05090 10022 2 00001 4 10016 TIX *-4,4,1 F0E05100 10023 0074 00 4 10057 PCHT1 TSX PUNCH,4 *PUNCH LAST PARTIAL CARD F0E05110 10024 -0500 00 0 04010 CAL ERASE SET TRANSFER ADDRESS F0E05120 10025 0602 00 0 04214 SLW PBUFF1 IN 9L ADDRESS F0E05130 10026 -0520 00 0 03744 NZT LBLFLG IS CARD LABEL REQUESTED F0E05140 10027 0020 00 0 10053 TRA PCHTX NO F0E05150 10030 0560 00 0 04214 LDQ PBUFF1 YES, LOAD TRANSFER ADDRESS F0E05160 10031 -0763 00 0 00025 LGL 21 LEFT ADJUST F0E05170 10032 -0754 00 0 00000 PXD ,0 F0E05180 10033 0774 00 4 00005 AXT 5,4 CONVERT FIVE DIGITS TO OCTAL F0E05190 10034 -0634 00 4 10537 SXD PRNCI,4 AVOID PRINTING CARD ORIGIN F0E05200 10035 0767 00 0 00003 ALS 3 F0E05210 10036 -0763 00 0 00003 LGL 3 F0E05220 10037 2 00001 4 10035 TIX *-2,4,1 F0E05230 10040 -0765 00 0 00014 LGR 12 SHOVE 2 DIGITS OUT F0E05240 10041 -0501 00 0 10056 ORA L(TRA APPEND 'TRA' F0E05250 BINARY CARD NO. 9F050022 10042 0074 00 4 10366 TSX IDENT,4 *CREATE CARD LABEL F0E05260 10043 0520 00 0 04070 ZET LBLFG IS BINARY CARD SERIAL LISTING SUPPRESSED F0E05270 10044 0074 00 4 10531 TSX PRNCS,4 *NO, PRINT CARD SERIAL NUMBER F0E05280 10045 0774 00 4 00010 AXT 8,4 RESTORE OLD SERIALIZATION F0E05290 10046 -0500 00 4 14212 CAL BMPSV+8,4 F0E05300 10047 0602 00 4 14202 SLW BMPBF+8,4 F0E05310 10050 -0500 00 4 14232 CAL CIDSV+8,4 F0E05320 10051 0602 00 4 14222 SLW CIDBF+8,4 F0E05330 10052 2 00001 4 10046 TIX *-4,4,1 F0E05340 10053 0774 00 4 00000 PCHTX AXT **,4 RELOAD CALLING LINKAGE F0E05350 10054 0634 00 4 10242 SXA STORX,4 F0E05360 10055 0020 00 0 10230 TRA STR13 F0E05370 10056 635121000000 L(TRA BCI 1,TRA000 F0E05380 F0E05390 FORCE PUNCHING OF PARTIAL CARD F0E05400 10057 0634 00 4 10242 PUNCH SXA STORX,4 SAVE CALLING LINKAGE F0E05410 10060 0520 00 0 03740 ZET ABSFLG IS ASSEMBLY ABSOLUTE F0E05420 10061 0020 00 0 10065 TRA PNCH1+2 YES F0E05430 10062 0534 00 4 10127 LXA STR03,4 NO, LOAD CARD WORD COUNT F0E05440 10063 -3 00025 4 10140 PNCH1 TXL STR04,4,21 IS PROGRAM CARD EMPTY F0E05450 (WORD COUNT RESET TO 19 FOR REL CARD) F0E05460 (OR 0 IF A MAIN PROGRAM HAS 0 BREAK) (24)F0E05465 10064 0020 00 0 10171 TRA STR08 YES F0E05470 PUNCH ABSOLUTE CARD F0E05480 10065 0534 00 4 10204 LXA STR10,4 LOAD CARD WORD COUNT F0E05490 10066 -0520 00 0 04043 NZT FULMD IS CARD FUL F0E05500 10067 -3 00025 4 10215 TXL STR11,4,21 NO, IS ABS CARD EMPTY F0E05510 BINARY CARD NO. 9F050023 10070 1 00002 4 10071 TXI *+1,4,2 YES, CARD IS FUL OR ABS CARD IS EMPTY F0E05520 10071 -3 00027 4 10230 TXL STR13,4,23 IS FUL CARD EMPTY F0E05530 10072 0020 00 0 10231 TRA STR14 YES F0E05540 F0E05550 ENTER BINARY INSTRUCTION INTO CARD IMAGE F0E05560 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 173 PASS TWO SUBROUTINES 10073 0634 00 4 10242 STORE SXA STORX,4 SAVE CALLING LINKAGE F0E05570 10074 3 00000 4 10077 TXH *+3,4,** IS THIS FIRST INSTRUCTION THIS CARD F0E05580 10075 -0634 00 0 10074 SXD *-1,0 YES, RESET SWITCH F0E05590 10076 0074 00 4 10531 TSX PRNCS,4 *PRINT CARD SERIAL NUMBER F0E05600 10077 0520 00 0 03740 ZET ABSFLG IS ASSEMBLY ABSOLUTE F0E05610 10100 0020 00 0 10204 TRA STR10 YES F0E05620 10101 0760 00 0 00141 SLN 1 NO, SET ADDRESS FLAG F0E05630 10102 -0534 00 2 04015 LXD INDIC,2 LOAD DECREMENT RELOCATION BITS F0E05640 10103 0774 00 1 00000 STR01 AXT **,1 LOAD RELOCATION BIT COUNT F0E05650 10104 -3 00000 2 10116 TXL STR02,2,0 IS DECREMENT FIELD RELOCATABLE F0E05660 REENTRY FOR ADDRESS RELOCATION BITS F0E05670 10105 1 00002 1 10106 TXI *+1,1,2 BUMP RELOCATION BIT COUNT FOR 10 OR 11 F0E05680 10106 0754 00 2 00000 PXA ,2 RECALL RELOCATION BITS F0E05690 10107 -0130 00 0 00000 XCL F0E05700 10110 -0754 00 0 00000 PXD ,0 F0E05710 10111 -0763 00 1 00110 LGL 72,1 POSITION IN 8L OR 8R F0E05720 10112 -0602 00 0 14167 ORS RELBT INSERT IN 8L F0E05730 10113 -0130 00 0 00000 XCL F0E05740 10114 -0602 00 0 14170 ORS RELBT+1 OR 8R F0E05750 10115 0020 00 0 10117 TRA STR02+1 F0E05760 REENTRY FOR NONRELOCATABLE DECREMENT F0E05770 BINARY CARD NO. 9F050024 10116 1 00001 1 10117 STR02 TXI *+1,1,1 BUMP RELOCATION BIT COUNT FOR 0 F0E05780 10117 -0760 00 0 00141 SLT 1 IS ADDRESS DONE F0E05790 10120 0020 00 0 10124 TRA *+4 YES F0E05800 10121 0534 00 2 04015 LXA INDIC,2 NO, LOAD ADDRESS RELOCATION BITS F0E05810 10122 3 00000 2 10105 TXH STR01+2,2,0 IS ADDRESS RELOCATABLE F0E05820 10123 1 00001 1 10124 TXI *+1,1,1 NO, BUMP RELOCATION BIT COUNT FOR 0 F0E05830 10124 -3 00104 1 10126 TXL *+2,1,68 IS 8 ROW FULL OF RELOCATION BITS F0E05840 10125 0760 00 0 00141 SLN 1 YES, SET FLAG F0E05850 10126 0634 00 1 10103 SXA STR01,1 SAVE RELOCATION BIT COUNT F0E05860 10127 0774 00 4 00024 STR03 AXT 20,4 LOAD CARD WORD COUNT F0E05870 10130 -0500 00 0 04004 CAL BINRY INSERT BINARY WORD F0E05880 10131 0602 00 4 04244 SLW PBUFF1+24,4 INTO CARD IMAGE F0E05890 10132 0361 00 0 14166 ACL CHKSM ADD INTO CHECKSUM F0E05900 10133 0602 00 0 14166 SLW CHKSM F0E05910 10134 -0760 00 0 00141 SLT 1 IS 8 ROW (RELOCATION BITS) FULL F0E05920 10135 2 00001 4 10202 TIX STR09+1,4,1 NO, IS CARD FULL F0E05930 10136 1 77777 4 10137 TXI *+1,4,-1 YES BUMP CARD WORD COUNT FOR LAST WORD F0E05940 10137 0634 00 4 10127 SXA STR03,4 F0E05950 REENTRY TO FORCE PUNCHING F0E05960 10140 0535 00 4 10127 STR04 LAC STR03,4 LOAD CARD WORD COUNT F0E05970 10141 1 00026 4 10142 TXI *+1,4,22 COMPUTE LENGTH OF PROGRAM CARD F0E05980 (WORD COUNT RESET TO 20, TRANSFER ADDRESS F0E05990 TO PUNCH REL CARD BY INIT) F0E06000 PUNCH PROGRAM CARD F0E06010 10142 0520 00 0 03737 ZET MAINPF IS THIS MAIN PROGRAM F0E06020 10143 1 00002 4 10144 TXI *+1,4,2 YES, BUMP LENGTH TO INCLUDE 7 ROW F0E06030 BINARY CARD NO. 9F050025 10144 -0634 00 4 04214 SXD PBUFF1,4 INSERT CARD WORD COUNT IN 9L DECREMENT F0E06040 10145 0754 00 4 00000 PXA ,4 COMPUTE ORIGIN AT END OF CARD IMAGE F0E06050 10146 0400 00 0 10165 ADD STR06 F0E06060 10147 0621 00 0 10151 STA *+2 F0E06070 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 174 PASS TWO SUBROUTINES 10150 -0500 00 0 04214 CAL PBUFF1 COMPUTE CHECKSUM F0E06080 10151 0361 00 4 00000 ACL **,4 F0E06090 10152 2 00001 4 10151 TIX *-1,4,1 F0E06100 10153 0602 00 0 04215 SLW PBUFF1+1 F0E06110 10154 0020 00 0 10170 TRA STR07 F0E06120 REENTRY FOR RELOCATABLE CARD F0E06130 10155 -0754 00 4 00000 STR05 PXD ,4 SET WORD COUNT F0E06140 10156 -0501 00 0 14165 ORA CTLWD LOAD ADDRESS, PREFIX PUNCH F0E06150 10157 0602 00 0 04214 SLW PBUFF1 INTO 9L WORD F0E06160 10160 0361 00 0 14167 ACL RELBT ADD RELOCATION BITS F0E06170 10161 0361 00 0 14170 ACL RELBT+1 F0E06180 10162 0361 00 0 14166 ACL CHKSM INTO CHECKSUM F0E06190 10163 0602 00 0 04215 SLW PBUFF1+1 F0E06200 10164 -0500 00 0 14167 CAL RELBT MOVE RELOCATION BITS F0E06210 10165 0602 00 0 04216 STR06 SLW PBUFF1+2 INTO 8 ROW F0E06220 10166 -0500 00 0 14170 CAL RELBT+1 F0E06230 10167 0602 00 0 04217 SLW PBUFF1+3 F0E06240 REENTRY FOR PROGRAM CARD F0E06250 10170 0074 00 4 10244 STR07 TSX WBINT,4 *WRITE CARD F0E06260 REENTRY FOR EMPTY CARD FORCED F0E06270 10171 -0500 00 0 06472 STR08 CAL P4 SET 9L PREFIX FOR PROGRAM CARD F0E06280 BINARY CARD NO. 9F050026 10172 0602 00 0 04214 SLW PBUFF1 F0E06290 10173 -0500 00 0 03760 CAL CDCTR SET LOAD ADDRESS FOR NEXT CARD $F0E06300 10174 0621 00 0 14165 STA CTLWD F0E06310 10175 0600 00 0 14166 STZ CHKSM CLEAR WORKING CELLS F0E06320 10176 0600 00 0 14167 STZ RELBT F0E06330 10177 0600 00 0 14170 STZ RELBT+1 F0E06340 10200 0634 00 0 10103 SXA STR01,0 RESET RELOCATION BIT COUNT F0E06350 10201 0774 00 4 00026 STR09 AXT 22,4 RESET PROGRAM CARD WORD COUNT F0E06360 (RESET TO 20 FOR REL CARD BY INIT) F0E06370 REENTRY FOR PARTIAL CARD F0E06380 10202 0634 00 4 10127 SXA STR03,4 F0E06390 10203 0020 00 0 10242 TRA STORX F0E06400 F0E06410 PUNCH ABSOLUTE CARD F0E06420 10204 0774 00 4 00026 STR10 AXT 22,4 LOAD CARD WORD COUNT F0E06430 10205 0520 00 0 04043 ZET FULMD IS CARD FUL F0E06440 10206 1 00002 4 10225 TXI STR12,4,2 YES F0E06450 10207 -0500 00 0 04004 CAL BINRY NO, INSERT BINARY WORD F0E06460 10210 0602 00 4 04244 SLW PBUFF1+24,4 INTO CARD IMAGE F0E06470 10211 0361 00 0 04215 ACL PBUFF1+1 ADD INTO CHECKSUM F0E06480 10212 0602 00 0 04215 SLW PBUFF1+1 F0E06490 10213 2 00001 4 10241 TIX STR15+1,4,1 IS CARD FULL F0E06500 10214 0634 00 0 10204 SXA STR10,0 YES, RESET CARD WORD COUNT F0E06510 REENTRY TO FORCE PUNCHING OF ABS CARD F0E06520 10215 0535 00 4 10204 STR11 LAC STR10,4 LOAD CARD WORD COUNT F0E06530 10216 1 00026 4 10217 TXI *+1,4,22 COMPUTE LENGTH OF CARD F0E06540 10217 -0754 00 4 00000 PXD ,4 INSERT CARD WORD COUNT F0E06550 BINARY CARD NO. 9F050027 10220 -0501 00 0 04214 ORA PBUFF1 AND LOAD ADDRESS F0E06560 10221 0602 00 0 04214 SLW PBUFF1 INTO 9L F0E06570 10222 0361 00 0 04215 ACL PBUFF1+1 ADD INTO CHECKSUM F0E06580 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 175 PASS TWO SUBROUTINES 10223 0602 00 0 04215 SLW PBUFF1+1 F0E06590 10224 0020 00 0 10230 TRA STR13 F0E06600 FUL CARD F0E06610 10225 -0500 00 0 04004 STR12 CAL BINRY INSERT BINARY WORD F0E06620 10226 0602 00 4 04244 SLW PBUFF1+24,4 INTO CARD IMAGE F0E06630 10227 2 00001 4 10240 TIX STR15,4,1 IS CARD FULL F0E06640 REENTRY FOR TCD, FORCE PUNCHING OF FUL CARD F0E06650 10230 0074 00 4 10244 STR13 TSX WBINT,4 *WRITE CARD F0E06660 REENTRY FOR EMPTY CARD FORCED F0E06670 10231 -0500 00 0 03760 STR14 CAL CDCTR GET CURRENT LOAD ADDRESS F0E06680 10232 -0520 00 0 04043 NZT FULMD IS CARD FORMAT FULL F0E06690 10233 0621 00 0 04214 STA PBUFF1 NO, SET LOAD ADDRESS IN 9L F0E06700 10234 0074 00 4 10542 TSX SHIFT,4 *CONVERT TO OCTAL F0E06710 10235 0602 00 0 13753 SLW CRDID+7 INSERT IN CARD ORIGIN MESSAGE F0E06720 10236 0774 00 4 00026 AXT 22,4 RESET CARD WORD COUNT F0E06730 10237 0020 00 0 10241 TRA STR15+1 F0E06740 REENTRY FOR FUL CARD F0E06750 10240 1 77776 4 10241 STR15 TXI *+1,4,-2 BUMP CARD WORD COUNT BACK F0E06760 REENTRY FOR ABS CARD F0E06770 10241 0634 00 4 10204 SXA STR10,4 RESET CARD WORD COUNT F0E06780 10242 0774 00 4 00000 STORX AXT **,4 RELOAD CALLING LINKAGE F0E06790 10243 0020 00 4 00001 TRA 1,4 F0E06800 F0E06810 WRITE CARD IMAGES ON BINARY OUTPUT/INTERMEDIATE TAPE F0E06820 10244 0634 00 4 10364 WBINT SXA WBINX,4 SAVE CALLING LINKAGE F0E06830 10245 -0774 00 1 00001 AXC 1,1 LOAD BUFFER INDEX F0E06840 BINARY CARD NO. 9F050028 10246 0634 00 1 10245 SXA *-1,1 FLIP INDEX F0E06850 10247 -0500 00 0 04214 CAL PBUFF1 HOLD PREFIX PUNCH F0E06860 10250 0774 00 4 00033 AXT 27,4 LOAD BUFFER LENGTH F0E06870 10251 0560 00 4 04247 LDQ PBUFF1+27,4 MOVE CARD IMAGE F0E06880 10252 -0600 60 1 07040 STQ* BOTBF,1 INTO MONITOR OUTPUT BUFFER F0E06890 10253 -0600 60 1 07044 STQ* BINBF,1 INTO INTERMEDIATE OUTPUT BUFFER F0E06900 10254 0600 00 4 04247 STZ PBUFF1+27,4 CLEAR CARD IMAGE BUFFER F0E06910 10255 2 00001 4 10251 TIX *-4,4,1 IS CARD COMPLETE F0E06920 10256 0630 00 0 04214 STP PBUFF1 YES, RESTORE PREFIX PUNCH F0E06930 10257 0520 00 0 03742 ZET OFLCFG ARE OFFLINE ROW BINARY CARDS REQUESTED F0E06940 10260 0520 00 0 04043 ZET FULMD NO, IS CARD FULL F0E06950 10261 0020 00 0 10267 TRA *+6 YES F0E06960 10262 -0500 00 0 06465 CAL D320 NO, LOAD COLUMN BINARY BITS F0E06970 10263 -0602 60 1 07034 ORS* BOTIO,1 INSERT IN 9L F0E06980 10264 0361 60 1 07041 ACL* BOTBF+1,1 ADD INTO CHECKSUM F0E06990 10265 0520 60 1 07041 ZET* BOTBF+1,1 IS THIS TRANSFER CARD F0E07000 10266 0602 60 1 07041 SLW* BOTBF+1,1 NO, INSERT IN 9R F0E07010 10267 0020 00 0 10325 TRA WBIN2 F0E07020 ERROR ON MONITOR BINARY TAPE F0E07030 10270 0074 00 4 73606 WBIN0 TSX (TAPE),4 *WRITE END FILE ON STACK TAPE F0E07040 10271 0 40005 0 00000 PZE ,,(WEFP) F0E07050 10272 0 77777 0 10327 PZE BOTTAP,,-1 F0E07060 10273 -0 00000 0 10274 MZE *+1 F0E07070 BINARY CARD NO. 9F050029 10274 0074 00 4 73606 TSX (TAPE),4 *WRITE ANOTHER END FILE ON STACK TAPE F0E07080 10275 0 40005 0 00000 PZE ,,(WEFP) F0E07090 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 176 PASS TWO SUBROUTINES 10276 0 77777 0 10327 PZE BOTTAP,,-1 F0E07100 10277 -0 00000 0 10300 MZE *+1 F0E07110 10300 0074 00 4 73606 TSX (TAPE),4 *UNLOAD STACK TAPE F0E07120 10301 0 20000 0 06772 PZE UNLOD,,(SKBP) F0E07130 10302 0 77777 0 10327 PZE BOTTAP,,-1 F0E07140 10303 0074 00 2 14421 TSX SSJOB,2 SET SYSJOB AND GET FLAGBX $F0E07150 10304 0774 00 4 00005 AXT 5,4 PREPARE TO PRINT 'CHANGE TAPE' F0E07160 10305 0056 00 000200 RNT 200 IS EXECUTION ON F0E07170 10306 0020 00 0 10312 TRA *+4 NO F0E07180 10307 0057 00 000200 RIR 200 YES, RESET EXECUTION FLAG F0E07190 10310 0604 60 0 73660 STI* (FGBX) F0E07200 10311 0774 00 4 00010 AXT 8,4 APPEND 'EXECUTION DELETED' F0E07210 10312 -0634 00 4 10314 SXD *+2,4 INITIALIZE I/O PARAMETER F0E07220 10313 0074 00 4 73611 TSX (PRNT),4 *PRINT 'CHANGE TAPE/EXECUTION DELETED' F0E07230 10314 0 00000 0 14123 PZE CHANG,,** F0E07240 10315 0074 00 2 06361 TSX SPACP,2 *SPACE PAGE F0E07250 10316 0535 00 2 10245 LAC WBINT+1,2 LOAD INDEX OF BUFFER IN ERROR F0E07260 10317 0074 00 4 73606 TSX (TAPE),4 *REWRITE ERROR RECORD F0E07270 10320 0 40001 2 07034 WBIN1 PZE BOTIO,2,(WBNP) (RESET TO (WROW) FOR ROW BINARY CARDS) F0E07280 10321 0 77777 0 10327 PZE BOTTAP,,-1 F0E07290 BINARY CARD NO. 9F050030 10322 0 00000 0 10270 PZE WBIN0 F0E07300 10323 0500 00 0 06410 CLA Q1 RESET BINARY OUTPUT RECORD COUNT F0E07310 10324 0621 00 0 17265 STA BNRECT F0E07320 STACK BINARY OUTPUT F0E07330 10325 0074 00 4 73606 WBIN2 TSX (TAPE),4 *WRITE BINARY OUTPUT TAPE F0E07340 10326 0 40001 1 07034 PZE BOTIO,1,(WBNP) (RESET TO (WROW) FOR ROW BINARY CARDS) F0E07350 10327 0 00007 0 00000 BOTTAP PZE ,,MBNTAP F0E07360 10330 0 00000 0 10270 PZE WBIN0 F0E07370 10331 -0500 00 0 17265 CAL BNRECT BUMP BINARY OUTPUT RECORD COUNT F0E07380 10332 0400 00 0 06410 ADD Q1 F0E07390 10333 0621 00 0 17265 STA BNRECT F0E07400 10334 -0520 00 0 03743 NZT CRDFLG ARE ONLINE CARDS REQUESTED F0E07410 10335 0020 00 0 10362 TRA WBIN3 NO F0E07420 10336 0520 00 0 03741 ZET ONLCFG YES, ARE ONLINE ROW BINARY CARDS REQUESTEDF0E07430 10337 0520 00 0 04043 ZET FULMD NO, IS THIS CARD FULL F0E07440 10340 0020 00 0 10346 TRA *+6 YES F0E07450 10341 -0500 00 0 06465 CAL D320 NO, LOAD COLUMN BINARY BITS F0E07460 10342 -0602 60 1 07050 ORS* BINIO,1 INSERT IN 9L F0E07470 10343 0361 60 1 07045 ACL* BINBF+1,1 ADD INTO CHECKSUM F0E07480 10344 0520 60 1 07045 ZET* BINBF+1,1 IS THIS TRANSFER CARD F0E07490 10345 0602 60 1 07045 SLW* BINBF+1,1 NO, INSERT IN 9R F0E07500 10346 0074 00 4 73606 TSX (TAPE),4 *WRITE BINARY INTERMEDIATE TAPE F0E07510 10347 0 40001 1 07050 PZE BINIO,1,(WBNP) F0E07520 BINARY CARD NO. 9F050031 10350 0 00004 0 07001 BNTAP PZE BLABL,,TINTAP F0E07530 10351 0 00000 0 10353 PZE *+2 F0E07540 10352 0020 00 0 10362 TRA WBIN3 F0E07550 ERROR ON PUNCH TAPE F0E07560 10353 0074 00 4 73606 TSX (TAPE),4 *UNLOAD BAD TAPE F0E07570 10354 0 20000 0 06772 PZE UNLOD,,(SKBP) F0E07580 10355 0 77777 0 10350 PZE BNTAP,,-1 F0E07590 10356 0074 00 4 73611 TSX (PRNT),4 *LET OPERATOR KNOW F0E07600 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 177 PASS TWO SUBROUTINES 10357 0 00011 0 14064 PZE DELOL,,9 F0E07610 10360 0074 00 2 06361 TSX SPACP,2 *LET OPERATOR DECIDE F0E07620 10361 0600 00 0 03743 STZ CRDFLG RESET ONLINE CARDS FLAG F0E07630 10362 0520 00 0 03744 WBIN3 ZET LBLFLG IS CARD LABEL REQUESTED F0E07640 10363 0074 00 4 10422 TSX BMPID,4 *YES, INCREMENT SERIALIZATION F0E07650 10364 0774 00 4 00000 WBINX AXT **,4 RELOAD CALLING LINKAGE F0E07660 10365 0020 00 4 00001 TRA 1,4 F0E07670 F0E07680 CREATE CARD LABEL F0E07690 10366 0634 00 4 10420 IDENT SXA IDENX,4 SAVE CALLING LINKAGE F0E07700 10367 -0600 00 0 04010 STQ ERASE SAVE LOW ORDER PORTION OF LABEL F0E07710 10370 -0130 00 0 00000 XCL RECALL HIGH ORDER PORTION OF LABEL F0E07720 10371 0774 00 4 00001 AXT 1,4 SET CHARACTER COUNT TO LEFTMOST CHARACTER F0E07730 REENTRY TO CREATE NEXT DIGIT F0E07740 10372 -0754 00 0 00000 IDEN1 PXD ,0 F0E07750 10373 -0763 00 0 00006 LGL 6 LOAD CHARACTER F0E07760 10374 -0340 00 0 06522 LAS BLANK IS IT BLANK F0E07770 10375 0020 00 0 10377 TRA *+2 NO F0E07780 BINARY CARD NO. 9F050032 10376 -0754 00 0 00000 PXD ,0 YES, DELETE IT F0E07790 10377 0602 00 4 14222 SLW CIDBF+8,4 SAVE FOR LISTING F0E07800 10400 -0765 00 0 00004 LGR 4 GET ZONE F0E07810 10401 0734 00 2 00000 PAX ,2 INTO XR2 F0E07820 10402 -0754 00 0 00000 PXD ,0 F0E07830 10403 -0763 00 0 00004 LGL 4 GET DIGITS F0E07840 10404 0734 00 1 00000 PAX ,1 INTO XR1 F0E07850 10405 -0500 00 2 06413 CAL ZONER,2 PICK UP ZONE BITS (12,11,0) F0E07860 10406 -0320 00 0 06425 ANA Q7 MASK IN NO ZONE F0E07870 10407 0767 00 0 00011 ALS 9 POSITION ZONE BITS F0E07880 10410 -0501 00 1 06421 ORA DIGIT,1 PICK UP DIGIT BITS (0,1,2,3,4,5,6,7,8,9) F0E07890 10411 0602 00 4 14202 SLW BMPBF+8,4 INSERT NEXT CHARACTER F0E07900 10412 1 00001 4 10413 TXI *+1,4,1 BUMP CHARACTER COUNT RIGHT ONE CHARACTER F0E07910 10413 -3 00006 4 10372 TXL IDEN1,4,6 IS WORD COMPLETE F0E07920 10414 3 00007 4 10416 TXH *+2,4,7 YES, IS SECOND WORD STARTED F0E07930 10415 0560 00 0 04010 LDQ ERASE NO, LOAD SECOND WORD F0E07940 10416 -3 00010 4 10372 TXL IDEN1,4,8 HAVE 8 CHARACTERS BEEN CREATED F0E07950 10417 0074 00 4 10453 TSX PAKID,4 *YES, INSERT THEM IN LABEL F0E07960 10420 0774 00 4 00000 IDENX AXT **,4 RELOAD CALLING LINKAGE F0E07970 10421 0020 00 4 00001 TRA 1,4 F0E07980 F0E07990 INCREMENT CARD SERIALIZATION F0E08000 10422 0634 00 4 10451 BMPID SXA BMPIX,4 SAVE CALLING LINKAGE F0E08010 10423 0774 00 4 00010 AXT 8,4 PREPARE TO BUMP 8 DIGITS (CC 73 - 80) F0E08020 BINARY CARD NO. 9F050033 10424 -0500 00 4 14202 CAL BMPBF+8,4 LOAD NEXT MORE SIGNIFICANT DIGIT F0E08030 10425 0044 00 0 00000 PAI F0E08040 10426 0054 00 006000 RFT 6000 IS IT NONNUMERIC F0E08050 10427 0020 00 0 10450 TRA BMPI2 YES F0E08060 10430 0056 00 001000 RNT 1000 MAYBE, IS THERE A ZERO PUNCH F0E08070 10431 0020 00 0 10434 TRA *+3 NO F0E08080 10432 0054 00 000777 RFT 0777 YES, IS THERE A COCOLUMNAR DIGIT PUNCH F0E08090 10433 0020 00 0 10450 TRA BMPI2 YES, IT IS NONNUMERIC F0E08100 10434 0056 00 000001 RNT 0001 NO, IS DIGIT 9 F0E08110 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 178 PASS TWO SUBROUTINES 10435 0020 00 0 10443 TRA BMPI1 NO F0E08120 10436 -0500 00 0 06421 CAL DIGIT YES, PICK UP ZERO F0E08130 10437 0602 00 4 14202 SLW BMPBF+8,4 RESET THIS ORDER DIGIT F0E08140 10440 0600 00 4 14222 STZ CIDBF+8,4 F0E08150 10441 2 00001 4 10424 TIX BMPID+2,4,1 HAVE ALL DIGITS BEEN RESET F0E08160 10442 0020 00 0 10450 TRA BMPI2 YES F0E08170 10443 0771 00 0 00001 BMPI1 ARS 1 BUMP THIS DIGIT F0E08180 10444 0602 00 4 14202 SLW BMPBF+8,4 F0E08190 10445 -0500 00 4 14222 CAL CIDBF+8,4 F0E08200 10446 0400 00 0 06410 ADD Q1 F0E08210 10447 0602 00 4 14222 SLW CIDBF+8,4 F0E08220 10450 0074 00 4 10453 BMPI2 TSX PAKID,4 *INSERT DIGITS IN CARD LABEL F0E08230 10451 0774 00 4 00000 BMPIX AXT **,4 RELOAD CALLING LINKAGE F0E08240 BINARY CARD NO. 9F050034 10452 0020 00 4 00001 TRA 1,4 F0E08250 F0E08260 PACK LABEL INTO CARD IMAGE BUFFER F0E08270 10453 0634 00 4 10526 PAKID SXA PAKIX,4 SAVE CALLING LINKAGE F0E08280 10454 0774 00 4 00003 AXT 3,4 PREPARE TO GENERATE 3 ID WORDS F0E08290 10455 0774 00 2 00000 AXT 0,2 PREPARE TO PACK 3 CHARACTERS IN EACH WORD F0E08300 10456 -0500 00 2 14201 CAL BMPBF+7,2 PACK LEFTMOST CHARACTER F0E08310 10457 0767 00 0 00014 ALS 12 F0E08320 10460 -0501 00 2 14200 ORA BMPBF+6,2 CENTERMOST CHARACTER F0E08330 10461 0767 00 0 00014 ALS 12 F0E08340 10462 -0501 00 2 14177 ORA BMPBF+5,2 RIGHTMOST CHARACTER F0E08350 10463 0602 00 4 04247 SLW IDBUFF+3,4 IN NEXT WORD F0E08360 10464 1 00003 2 10465 TXI *+1,2,3 BUMP CHARACTER COUNT TO NEXT WORD F0E08370 10465 2 00001 4 10456 TIX PAKID+3,4,1 HAVE ALL THREE WORDS BEEN PACKED F0E08380 10466 -0520 00 0 04066 NZT UNLSF YES, IS UNLIST FLAG ON F0E08390 10467 -0520 00 0 04070 NZT LBLFG NO, IS LABEL DELETED F0E08400 10470 0020 00 0 10526 TRA PAKIX YES F0E08410 10471 0774 00 4 00000 AXT 0,4 NO, PREPARE TO PACK SIX CHARACTERS F0E08420 10472 -0500 00 0 14221 CAL CIDBF+7 LOAD FIRST CHARACTER F0E08430 10473 0767 00 0 00006 ALS 6 F0E08440 10474 -0501 00 4 14220 ORA CIDBF+6,4 APPEND NEXT FIVE CHARACTERS F0E08450 10475 1 00001 4 10476 TXI *+1,4,1 F0E08460 10476 -3 00004 4 10473 TXL *-3,4,4 F0E08470 10477 0602 00 0 13747 SLW CRDID+3 INSERT IN WORD FOUR F0E08480 BINARY CARD NO. 9F050035 10500 -0500 00 0 14213 CAL CIDBF+1 LOAD CHARACTER SEVEN F0E08490 10501 0767 00 0 00006 ALS 6 F0E08500 10502 -0501 00 0 14212 ORA CIDBF APPEND CHARACTER EIGHT F0E08510 10503 0560 00 0 04176 LDQ BLANKS APPEND FOLLOWING BLANKS F0E08520 10504 -0763 00 0 00030 LGL 24 LEFT ADJUST F0E08530 10505 0602 00 0 13750 SLW CRDID+4 INSERT IN WORD FIVE F0E08540 10506 0774 00 4 77777 AXT -1,4 SET NEW CARD SERIAL NUMBER SWITCH F0E08550 10507 -0634 00 4 10074 SXD STORE+1,4 F0E08560 10510 -0500 00 0 10530 CAL LBLDF DELETE FIRST CARD FLAG F0E08570 10511 0320 00 0 04070 ANS LBLFG F0E08580 10512 0020 00 0 10514 TRA *+2 F0E08590 10513 0634 00 4 10526 PAK01 SXA PAKIX,4 ENTRY FOR BES, BSS WITH EMPTY FIELD F0E08600 10514 0020 00 0 10521 TRA *+5 PREPARE TO PRINT CARD LABEL $F0E08610 10515 -0500 00 0 03761 CAL LOCTR LOAD PROGRAM COUNTER F0E08620 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 179 PASS TWO SUBROUTINES 10516 -0320 00 0 06444 ANA ADDMK DELETE RELOCATION BIT F0E08630 10517 0322 00 0 03760 ERA CDCTR IS CARD UNDER CONTROL OF LOC F0E08640 10520 0020 00 0 14232 TRA PAKPC NO $F0E08650 10521 -0500 00 0 03760 CAL CDCTR YES, LOAD ORIGIN OF NEXT CARD F0E08660 10522 0074 00 4 10542 TSX SHIFT,4 *CONVERT TO OCTAL F0E08670 10523 0602 00 0 13753 SLW CRDID+7 INSERT IN WORD 6 F0E08680 10524 0774 00 4 00010 AXT 8,4 PREPARE TO APPEND CARD ORIGIN TO LABEL F0E08690 10525 -0634 00 4 10537 SXD PRNCI,4 INITIALIZE PARAMETER WORD COUNT F0E08700 BINARY CARD NO. 9F050036 10526 0774 00 4 00000 PAKIX AXT **,4 RELOAD CALLING LINKAGE F0E08710 10527 0020 00 4 00001 TRA 1,4 F0E08720 10530 -377777777776 LBLDF OCT 777777777776 F0E08730 F0E08740 PRINT CARD SERIAL NUMBER F0E08750 10531 0520 00 0 04066 PRNCS ZET UNLSF IS UNLIST FLAG SET F0E08760 10532 0020 00 0 10541 TRA PRNCX+1 YES F0E08770 10533 0020 00 0 10515 TRA PAK01+2 NO $F0E08780 10534 0074 00 4 04361 TSX FPRINT,4 *PRINT BLANK LINE F0E08790 10535 0 00000 0 00000 PZE F0E08800 10536 0074 00 4 04361 TSX FPRINT,4 *PRINT CARD SERIAL NUMBER F0E08810 10537 0 00000 0 13744 PRNCI PZE CRDID,,** F0E08820 10540 0774 00 4 00000 PRNCX AXT **,4 RELOAD CALLING LINKAGE F0E08830 10541 0020 00 4 00001 TRA 1,4 F0E08840 F0E08850 SUBROUTINE TO ASSEMBLE OCTAL DEFINITIONS F0E08860 10542 0634 00 4 10560 SHIFT SXA SHIFX,4 SAVE CALLING LINKAGE F0E08870 10543 -0765 00 0 00022 LGR 18 LEFT ADJUST LOCATION $F0E08880 10544 0621 00 0 04075 STA DCBFG INITIALIZE LOC. OF NEXT REFERENCE $F0E08890 10545 0774 00 0 00000 AXT ,0 PATCH SPACE $F0E08900 10546 0774 00 4 00006 AXT 6,4 SCAN SIX OCTAL DIGITS $F0E08910 10547 -0754 00 0 00000 ZAC $F0E08920 10550 -0763 00 0 00003 LGL 3 LOAD NEXT DIGIT F0E08930 10551 -0100 00 0 10553 TNZ *+2 DOES IT EXIST F0E08940 10552 2 00001 4 10550 TIX *-2,4,1 NO, TRY AGAIN F0E08950 10553 -0765 00 0 00003 LGR 3 SAVE NONZERO DIGIT F0E08960 BINARY CARD NO. 9F050037 10554 -0500 00 0 04176 CAL BLANKS APPEND LEADING BLANKS F0E08970 10555 0767 00 0 00003 ALS 3 CREATE ZONE F0E08980 10556 -0763 00 0 00003 LGL 3 SHIFT IN DIGIT F0E08990 10557 2 00001 4 10555 TIX *-2,4,1 IS OCTAL DEFINITION COMPLETE F0E09000 10560 0774 00 4 00000 SHIFX AXT **,4 YES, RELOAD CALLING LINKAGE F0E09010 10561 0020 00 4 00001 TRA 1,4 F0E09020 F0E09030 F0E09040 F0E09050 INPUT/OUTPUT SUBROUTINES F0E09060 F0E09070 UNPACK INTERMEDIATE BUFFER F0E09080 10562 0634 00 4 10577 INPUT SXA INPTX,4 SAVE CALLING LINKAGE F0E09090 10563 0774 00 1 00000 AXT **,1 LOAD BLOCK WORD COUNT F0E09100 10564 3 00000 1 10566 TXH *+2,1,** IS BLOCK EXHAUSTED F0E09110 10565 0074 00 4 10601 TSX RDTIT,4 *YES, READ NEXT BLOCK F0E09120 10566 0534 00 2 10602 LXA RDTIT+1,2 LOAD BUFFER INDEX F0E09130 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 180 PASS TWO SUBROUTINES 10567 0774 00 4 00020 AXT INPRCL,4 LOAD RECORD LENGTH F0E09140 10570 -0500 60 2 07031 CAL* BCD55+1,2 MOVE NEXT WORD F0E09150 10571 0602 00 4 04275 SLW BCDBF+INPRCL,4 INTO WORKING BUFFER F0E09160 10572 1 77777 1 10573 TXI *+1,1,-1 BUMP BLOCK COUNT TO NEXT WORD F0E09170 10573 2 00001 4 10570 TIX *-3,4,1 IS RECORD COMPLETE F0E09180 10574 0634 00 1 10563 SXA INPUT+1,1 YES, SAVE NEW BLOCK WORD COUNT F0E09190 10575 -0500 00 0 04272 CAL BCDBF+13 SAVE PASS ONE FLAGS FOR ONE CARD DUP F0E09200 10576 0602 00 0 03750 SLW DELFLG F0E09210 10577 0774 00 4 00000 INPTX AXT **,4 RELOAD CALLING LINKAGE F0E09220 10600 0020 00 4 00001 TRA 1,4 F0E09230 F0E09240 READ INTERMEDIATE TAPE F0E09250 10601 0634 00 4 10626 RDTIT SXA RDTTX,4 SAVE CALLING LINKAGE F0E09260 BINARY CARD NO. 9F050038 10602 -0774 00 1 00001 AXC 1,1 LOAD BUFFER INDEX F0E09270 10603 0634 00 1 10602 SXA *-1,1 FLIP BUFFER INDEX F0E09280 10604 -3 77777 4 10612 DUPSW TXL RDTT2,4,-1 IS THIS LAST CARD IN DUP F0E09290 10605 0774 00 4 77777 AXT -1,4 YES, RESET SWITCH F0E09300 10606 -0634 00 4 10604 SXD DUPSW,4 F0E09310 10607 0074 00 4 73606 TSX (TAPE),4 *CHECK LAST BUFFER F0E09320 10610 0 77777 2 06775 PZE INTCK,2,-1 F0E09330 10611 0020 00 0 10616 TRA RDTT3 F0E09340 CONTINUE LOOKAHEAD BUFFERING F0E09350 10612 0074 00 4 73606 RDTT2 TSX (TAPE),4 *LOAD NEXT BUFFER F0E09360 10613 0 40004 1 07030 PZE BCD55,1,(RBEP) F0E09370 10614 0 77777 2 06773 PZE INTAP,2,-1 F0E09380 10615 0 00000 0 06310 PZE TAPERR F0E09390 REENTRY FOR LAST CARD IN DUP F0E09400 10616 0500 00 1 07031 RDTT3 CLA BCD55+1,1 LOAD BUFFER ORIGIN F0E09410 10617 0734 00 4 00000 PAX ,4 F0E09420 10620 -0634 00 4 10624 SXD *+4,4 F0E09430 10621 0500 60 2 06777 CLA* ITSCH,2 LOAD LAST+1 WORD READ F0E09440 10622 0737 00 4 00000 PAC ,4 F0E09450 10623 -3 00000 4 10757 TXL SWING,4,0 WAS END OF INTERMEDIATE TAPE SENSED F0E09460 10624 1 00000 4 10625 TXI *+1,4,** NO, COMPUTE LENGTH OF RECORD F0E09470 10625 -0634 00 4 10564 SXD INPUT+2,4 RESET TEST FOR END OF BUFFER F0E09480 10626 0774 00 4 00000 RDTTX AXT **,4 RELOAD CALLING LINKAGE F0E09490 10627 0774 00 1 00000 AXT 0,1 RESET BLOCK LENGTH F0E09500 BINARY CARD NO. 9F050039 10630 0634 00 0 10563 SXA INPUT+1,0 F0E09510 10631 0020 00 4 00001 TRA 1,4 F0E09520 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 181 PASS TWO CONTROL 10632 0761 00 0 00000 START NOP LEFT BLANK FOR LATER USE AS TEMPORARY STOR$F0E09560 10633 0534 00 4 04127 LXA EFLST,4 INITIALIZE LENGTH OF BENIGN ERROR LIST F0E09570 10634 -0634 00 4 07712 SXD PRL00,4 F0E09580 10635 -0534 00 4 04127 LXD EFLST,4 RESET STRAY ERROR FLAGS LEFT ON IN PASS 1 F0E09590 10636 0600 00 4 04127 STZ EFLST,4 F0E09600 10637 2 00001 4 10636 TIX *-1,4,1 F0E09610 10640 0600 00 0 03776 STZ BHEAD RESET HANGING HEADING CHARACTER F0E09620 10641 -0534 00 4 23270 LXD SYMSIZ,4 BUMP COUNT PAST 0 F0E09630 10642 1 00002 4 10643 TXI *+1,4,2 IN CASE OF UNDEFINED SYMBOLS F0E09640 10643 -0634 00 4 23270 SXD SYMSIZ,4 F0E09650 10644 1 36337 4 10645 TXI *+1,4,-LSMTBM+LUDTBM+1 COMPUTE LENGTH OF REF TABLE F0E09660 10645 -0634 00 4 07246 SXD EREF4+3,4 SET TEST FOR REFERENCE TABLE OVERFLOW F0E09670 10646 -0535 00 4 23270 LDC SYMSIZ,4 INITIALIZE TEST F0E09680 10647 -0634 00 4 07172 SXD SUDS1,4 FOR END OF SEARCH OF UNDEF SYMBOL TABLE F0E09690 10650 1 00001 4 10651 TXI *+1,4,1 F0E09700 10651 -0634 00 4 07162 SXD SSYM1,4 FOR END OF SEARCH OF SYMBOL TABLE F0E09710 10652 1 77523 4 10653 TXI *+1,4,-LUDTBM COMPUTE END OF UNDEFINED SYMBOL TABLE F0E09720 10653 3 36061 4 10660 TXH *+5,4,-LSMTBM IS THIS LONGER THAN SPACE AVAILABLE F0E09730 10654 0774 00 4 07257 AXT SSYMX,4 YES, DELETE SYMBOLIC REFERENCE TABLE F0E09740 10655 0634 00 4 07216 SXA EREF0,4 F0E09750 BINARY CARD NO. 9F050040 10656 -0634 00 0 12024 SXD PREF9,0 SET SWITCH TO PRINT TABLE DELETED F0E09760 10657 0774 00 4 36061 AXT -LSMTBM,4 RESET END OF UNDEFINED SYMBOL TABLE F0E09770 10660 -0634 00 4 07177 SXD SUDS1+5,4 FOR TEST FOR UNDEF SYMBOL TABLE OVERFLOW F0E09780 10661 -0634 00 4 07243 SXD EREF4,4 FOR TEST FOR END OF UNDEF REFERENCE TABLE F0E09790 10662 0754 00 4 00000 PXA ,4 F0E09800 10663 0737 00 4 00000 PAC ,4 F0E09810 10664 1 23272 4 10665 TXI *+1,4,SYMTBL+1 COMPUTE ORIGIN OF SYMBOLIC REF TABLE F0E09820 10665 0634 00 4 07217 SXA EREF0+1,4 F0E09830 10666 0634 00 4 07222 SXA EREF1+2,4 F0E09840 10667 0634 00 4 07225 SXA EREF1+5,4 F0E09850 10670 0634 00 4 07227 SXA EREF1+7,4 F0E09860 10671 0634 00 4 07231 SXA EREF2,4 F0E09870 10672 0634 00 4 07236 SXA EREF2+5,4 F0E09880 10673 0634 00 4 07242 SXA EREF3+2,4 F0E09890 10674 -3 44240 4 10703 TXL *+7,4,SYMTBL+LSMTBM/2 TEST POINTER TABLE OVERFLOW $F0E09900 10675 0774 00 4 77777 AXT -1,4 YES. DELETE ALL REFERENCES TO (32)F0E09910 10676 -0634 00 4 14456 SXD K001,4 DEFINED AND UNDEFINED SYMBOLS. (32)F0E09920 10677 0761 00 4 11650 NOP PRUDS-2,4 (SXD TO DELETE DEFINED SYMBOL NAMES.)(32)F0E09930 10700 0774 00 4 07257 AXT SSYMX,4 SUPPRESS CREATION OF REF. TABLE. (32)F0E09940 10701 0634 00 4 07216 SXA EREF0,4 F0E09950 10702 -0634 00 0 12024 SXD PREF9,0 SET SWITCH TO PRINT TABLE DELETED F0E09960 10703 0535 00 4 07217 LAC EREF0+1,4 LOAD ORIGIN OF POINTER TABLE F0E09970 BINARY CARD NO. 9F050041 10704 -2 12571 4 10707 TNX *+3,4,-VECTOR COMPUTE SPACE AVAILABLE TO REFERENCE TABLEF0E09980 10705 0600 00 4 65207 STZ VECTOR,4 CLEAR SPACE FOR REFERENCE TABLE F0E09990 10706 2 00001 4 10705 TIX *-1,4,1 F0E10000 10707 -0535 00 4 03752 LDC LITSIZ,4 INITIALIZE TEST F0E10010 10710 1 77777 4 10711 TXI *+1,4,-1 F0E10020 10711 -0634 00 4 13124 SXD SLIT1,4 FOR END OF SEARCH OF LITERAL TABLE F0E10030 10712 -0534 00 4 03752 LXD LITSIZ,4 LOAD COUNT OF LITERAL TABLE F0E10040 10713 -0634 00 4 10716 SXD *+3,4 INITIALIZE PROGRAM BREAK COMPUTATION F0E10050 10714 0534 00 4 04216 LXA PBUFF1+2,4 LOAD TOP OF VECTOR, PROLOG AND CODING F0E10060 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 182 PASS TWO CONTROL 10715 -0634 00 4 13164 SXD SLIT3,4 INITIALIZE COMPUTATION FOR LOC OF LITERAL F0E10070 10716 1 00000 4 10717 TXI *+1,4,** BUMP BY LENGTH OF LITERAL TABLE F0E10080 10717 0634 00 4 04216 SXA PBUFF1+2,4 RESET PROGRAM BREAK F0E10090 10720 0634 00 4 03753 SXA PRGBK,4 F0E10100 10721 0634 00 0 03761 SXA LOCTR,0 RESET PROGRAM COUNTER F0E10110 10722 0634 00 0 03760 SXA CDCTR,0 RESET CARD ORIGIN COUNTER F0E10120 10723 0520 00 0 03740 ZET ABSFLG IS ASSEMBLY ABSOLUTE F0E10130 10724 0020 00 0 14434 TRA PTCHY YES, GO TO PATCH (23)F0E10140 10725 -0534 00 4 04216 LXD PBUFF1+2,4 LOAD TRANSFER VECTOR LENGTH F0E10150 10726 0634 00 4 11113 SXA INIT1,4 INITIALIZE TEST FOR TRANSFER VECTOR F0E10160 10727 0500 00 0 12120 CLA BIN01 LOAD ONLINE COLUMN BINARY PARAMETER F0E10170 10730 -0520 00 0 03741 NZT ONLCFG ARE ONLINE ROW BINARY CARDS REQUESTED F0E10180 10731 0602 00 0 12120 SLW BIN01 YES, RESET PARAMETER TO ONLINE ROW BINARY F0E10190 BINARY CARD NO. 9F050042 10732 0520 00 0 03742 ZET OFLCFG ARE OFFLINE ROW BINARY CARDS REQUESTED F0E10200 10733 0020 00 0 10737 TRA *+4 NO F0E10210 10734 0774 00 4 40031 AXT (WROW),4 YES, RESET PARAMETER TO OFFLINE ROW BINARYF0E10220 10735 -0634 00 4 10320 SXD WBIN1,4 F0E10230 10736 -0634 00 4 10326 SXD WBIN2+1,4 F0E10240 10737 0520 00 0 03744 ZET LBLFLG IS CARD LABEL REQUESTED F0E10250 10740 0020 00 0 10744 TRA *+4 YES F0E10260 10741 -0634 00 0 07034 SXD BOTIO,0 NO, RESET I/O COMMANDS F0E10270 10742 -0634 00 0 07036 SXD BOTIO+2,0 TO OMIT WRITING CARD LABELS F0E10280 10743 0020 00 0 10751 TRA STRT1 F0E10290 10744 -0500 00 0 04155 CAL PGHDNG+1 LOAD LABEL, 5 CHARACTERS FROM WORD 1 F0E10300 10745 0560 00 0 04156 LDQ PGHDNG+2 1 CHARACTER FROM WORD 2 F0E10310 10746 -0763 00 0 00006 LGL 6 LEFT ADJUST F0E10320 10747 0560 00 0 06407 LDQ Q0 DELETE CC 8 - 9 F0E10330 10750 0074 00 4 10366 TSX IDENT,4 *INSERT IN CARD LABEL F0E10340 10751 -0625 00 0 73674 STRT1 STL (SCHU)+FINTAP RESET POSSIBLE HANGING END FILES F0E10350 10752 -0625 00 0 73675 STL (SCHU)+SINTAP F0E10360 10753 0600 00 0 04101 STZ TTLFG RESET PASS 1 SUBHEADING F0E10370 10754 0634 00 0 04371 SXA PAGENO,0 RESET PAGE NUMBER F0E10380 10755 0634 00 0 04370 SXA PAGCNT,0 EJECT PAGE F0E10390 10756 0020 00 0 11026 TRA READ0 F0E10400 F0E10410 END OF INTERMEDIATE TAPE SENSED F0E10420 10757 0074 00 4 73606 SWING TSX (TAPE),4 *REWIND INTERMEDIATE TAPE F0E10430 BINARY CARD NO. 9F050043 10760 0 20000 0 06771 PZE REWND,,(SKBP) F0E10440 10761 0 77777 2 06773 PZE INTAP,2,-1 F0E10450 10762 3 00000 2 11533 TXH ENDFA,2,0 WAS THIS SECOND INTERMEDIATE TAPE F0E10460 10763 0774 00 2 77777 AXT -1,2 NO, RESET INTERMEDIATE TAPE INDEX F0E10470 10764 0634 00 2 11030 SXA READ1,2 F0E10480 10765 0020 00 0 11026 TRA READ0 F0E10490 F0E10500 CARD IS WITHIN RANGE OF DUP F0E10510 10766 0774 00 1 00000 DUPCD AXT **,1 LOAD REMAINING RANGE OF DUP+1 F0E10520 10767 1 77777 1 10770 TXI *+1,1,-1 BUMP RANGE OF DUP F0E10530 10770 0634 00 1 10766 SXA DUPCD,1 RESET REMAINDER OF DUP F0E10540 10771 0774 00 4 00000 DUPC0 AXT **,4 SET LENGTH OF LISTING LINE TO LONG FOR F0E10550 10772 -0634 00 4 07665 SXD IOLST,4 FIRST ITERATION, SHORT FOR SUBSEQUENT F0E10560 10773 3 00001 1 11035 TXH READ2,1,1 IS REMAINDER OF DUP LONGER THAN ONE CARD F0E10570 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 183 PASS TWO CONTROL 10774 3 00000 4 11003 TXH DUPC1,4,** NO, IS THIS ITERATION OF ONE CARD DUP F0E10580 10775 -3 00000 1 11000 TXL *+3,1,0 NO, IS THIS LAST CARD IN DUP F0E10590 10776 -0634 00 0 10604 SXD DUPSW,0 YES, BYPASS LOOKAHEAD BUFFERING F0E10600 10777 0020 00 0 11035 TRA READ2 F0E10610 RANGE OF DUP IS EXHAUSTED F0E10620 11000 0774 00 4 00005 AXT 5,4 RESET LENGTH OF LISTING LINE TO SHORT F0E10630 11001 0634 00 4 10771 SXA DUPC0,4 FOR SUCCESSIVE ITERATIONS OF DUP F0E10640 11002 -0634 00 4 07665 SXD IOLST,4 F0E10650 11003 0774 00 1 00000 DUPC1 AXT **,1 LOAD RANGE OF DUP F0E10660 11004 -3 00000 1 11025 TXL DUPC3+1,1,0 IS DUP EXHAUSTED F0E10670 11005 -3 00001 1 11012 TXL *+5,1,1 NO, IS DUP LONGER THAN ONE CARD F0E10680 BINARY CARD NO. 9F050044 11006 0074 00 4 73606 TSX (TAPE),4 *YES, BACKSPACE TO BEGINNING OF DUP F0E10690 11007 0 20000 0 04022 PZE SKDUP,,(SKBP) F0E10700 11010 0 77777 2 06773 PZE INTAP,2,-1 F0E10710 11011 0020 00 0 11015 TRA *+4 F0E10720 ONE CARD DUP F0E10730 11012 -0634 00 0 10774 SXD DUPC0+3,0 SET ONE CARD DUP ITERATION SWITCH F0E10740 11013 -0500 00 0 03750 CAL DELFLG MOVE PASS ONE FLAGS F0E10750 11014 0602 00 0 04272 SLW BCDBF+13 TO WORKING BUFFER F0E10760 REENTRY FOR MULTICARD DUP F0E10770 11015 1 00001 1 11016 TXI *+1,1,1 BUMP TO RANGE+1 F0E10780 11016 0634 00 1 10766 SXA DUPCD,1 RESET REMAINING RANGE OF DUP+1 F0E10790 11017 0774 00 1 00000 DUPC2 AXT **,1 LOAD ITERATIONS OF DUP F0E10800 11020 1 77777 1 11021 TXI *+1,1,-1 BUMP DOWN F0E10810 11021 0634 00 1 11017 SXA DUPC2,1 RESET ITERATIONS OF DUP F0E10820 11022 3 00000 1 11024 TXH *+2,1,0 IS DUP EXHAUSTED F0E10830 11023 0634 00 0 11003 SXA DUPC1,0 YES, SET SWITCH F0E10840 11024 0020 00 0 00000 DUPC3 TRA ** TO READ0 MULTICARD, CNTRL ONE CARD DUP F0E10850 DUP IS COMPLETE F0E10860 11025 0600 00 0 04045 STZ DUPMD RESET FLAG F0E10870 F0E10880 INITIALIZE LOOKAHEAD BUFFERING F0E10890 11026 0534 00 2 11030 READ0 LXA READ1,2 LOAD INTERMEDIATE TAPE INDEX F0E10900 11027 0074 00 4 10601 TSX RDTIT,4 *LOAD FIRST BUFFER F0E10910 CONTINUE LOOKAHEAD BUFFERING F0E10920 11030 0774 00 2 00000 READ1 AXT **,2 LOAD INTERMEDIATE TAPE INDEX F0E10930 11031 0520 00 0 04045 ZET DUPMD IS NEXT CARD WITHIN RANGE OF DUP F0E10940 11032 0020 00 0 10766 TRA DUPCD YES F0E10950 11033 0774 00 4 00023 AXT 19,4 NO, SET LENGTH OF LISTING LINE F0E10960 BINARY CARD NO. 9F050045 11034 -0634 00 4 07665 SXD IOLST,4 TO LONG LINE F0E10970 REENTRY FOR CARD WITHIN RANGE OF DUP F0E10980 11035 0074 00 4 10562 READ2 TSX INPUT,4 *LOAD NEXT BUFFER F0E10990 REENTRY FOR LAST CARD IN RANGE OF DUP F0E11000 11036 0760 00 0 00140 CNTRL SLF RESET FLAGS F0E11010 11037 0600 00 0 04015 STZ INDIC RESET RELOCATABLE FIELD INDICATOR F0E11020 11040 0600 00 0 04000 STZ SYMB2 RESET HIGH ORDER HALF OF ELEMENT F0E11030 11041 0500 00 0 03761 CLA LOCTR UPDATE PROGRAM COUNTER F0E11040 11042 0601 00 0 03762 STO ADDRS F0E11050 11043 0441 00 0 04272 LDI BCDBF+13 LOAD FLAGS $F0E11060 11044 -0634 00 0 07731 ZSD PMCSW RESET MACRO GENERATED CARD SWITCH $F0E11070 11045 0774 00 4 77777 AXT -1,4 $F0E11080 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 184 PASS TWO CONTROL 11046 0054 00 000040 RFT 40 IS THIS MACRO GENERATED $F0E11090 11047 -0634 00 4 07731 SXD PMCSW,4 YES SET MACRO GENERATED SWITCH $F0E11100 11050 0074 00 4 04573 TSX SETUP,4 *SET UP VARIABLE FIELD $F0E11110 11051 0020 00 0 13702 TRA PHASE+4 CARD IS COMMENTS CARD $F0E11120 11052 0020 00 0 11056 TRA OPERR **OP FIELD IS IN ERROR $F0E11130 11053 0054 00 000001 RFT 1 IS PHASE ERROR FLAGGED $F0E11140 11054 0020 00 0 13676 TRA PHASE **YES, OMIT PROCESSING OF CARD $F0E11150 11055 0054 00 000020 RFT 20 NO, IS THIS UNDEFINED PSEUOOPERATION $F0E11160 11056 -0625 00 0 04024 OPERR STL OPRFG YES, SET FLAG $F0E11170 PUNCH PROGRAM CARD, PUBLISH TRANSFER VECTOR F0E11180 11057 3 77777 4 11175 INIT0 TXH INIT5+2,4,-1 IS INITIALIZATION COMPLETE F0E11190 11060 0520 00 0 03740 ZET ABSFLG NO, IS ASSEMBLY RELOCATABLE F0E11200 11061 0020 00 0 11173 TRA INIT5 NO F0E11210 BINARY CARD NO. 9F050046 11062 0441 00 0 04274 LDI OPBIN YES, LOAD OPCODE OR PSEUDOOP TRANSFER F0E11220 11063 -0520 00 0 04024 NZT OPRFG IS THIS UNDEFINED PSEUDOOPERATION F0E11230 11064 0054 00 100000 RFT 100000 NO, IS THIS DEFINED MACHINE INSTRUCTION F0E11240 11065 0020 00 0 11070 TRA *+3 YES, PUNCH OUT PROGRAM CARD F0E11250 11066 -0054 00 400000 LFT 400000 NO, MAY THIS PSEUDOOP PRECEDE ENTRY CARD F0E11260 11067 0020 00 0 12152 TRA PSOPT YES, HOLD UP ON PROGRAM CARD F0E11270 AFTER ALL ENTRY CARDS INITIALIZATION MAY PROCEDE F0E11280 11070 0520 00 0 03737 ZET MAINPF IS THIS A MAIN PROGRAM F0E11290 11071 -0520 00 0 04070 NZT LBLFG YES, IS CARD LABEL LISTING REQUESTED F0E11300 11072 0020 00 0 11077 TRA *+5 NO F0E11310 11073 0074 00 4 10531 TSX PRNCS,4 *YES, PRINT CARD LABEL F0E11320 11074 0074 00 4 07676 TSX PRLST,4 *PRINT 'PROGRAM CARD' F0E11330 11075 0 00004 0 13764 IOCD PCTIT,,4 F0E11340 11076 -0634 00 0 11161 SXD INIT4,0 FORCE BLANK LINE F0E11350 11077 0774 00 4 00024 AXT 20,4 F0E11360 11100 0020 00 0 14350 TRA INITR $F0E11370 11101 0634 00 0 03762 INITS ZSA ADDRS (24)F0E11380 11102 0074 00 4 10057 TSX PUNCH,4 *PUNCH PROGRAM CARD F0E11390 11103 0774 00 4 00023 AXT 19,4 F0E11400 11104 -0634 00 4 10063 SXD PNCH1,4 RESET FULL CARD TEST FOR RELOCATABLE F0E11410 11105 0774 00 4 00024 AXT 20,4 F0E11420 11106 -0634 00 4 10141 SXD STR04+1,4 RESET COMPUTATION FOR LENGTH OF REL CARD F0E11430 11107 0774 00 4 10155 AXT STR05,4 RESET TRANSFER ADDRESS FOR REL CARD F0E11440 BINARY CARD NO. 9F050047 11110 0634 00 4 10141 SXA STR04+1,4 BYPASSING PROGRAM CARD ROUTINE F0E11450 11111 -0500 00 0 04255 CAL BCDBF SAVE LOCATION FIELD F0E11460 11112 0020 00 0 14333 TRA INITA $F0E11470 11113 -0774 00 1 00000 INIT1 AXC **,1 LOAD LENGTH OF TRANSFER VECTOR F0E11480 11114 -3 00000 1 11134 TXL INIT3+1,1,0 IS TRANSFER VECTOR EMPTY F0E11490 11115 -0634 00 1 11133 SXD INIT3,1 SET END OF PUBLISH LOOP F0E11500 11116 0074 00 4 07676 TSX PRLST,4 *PRINT BLANK LINE F0E11510 11117 0 00000 0 00000 PZE F0E11520 11120 0074 00 4 07676 TSX PRLST,4 *PRINT TRANSFER VECTOR TITLE F0E11530 11121 0 00005 0 13767 IOCD TVTIT,,5 F0E11540 11122 -0634 00 0 11161 SXD INIT4,0 FORCE BLANK LINE F0E11550 11123 0774 00 1 00000 AXT 0,1 START AT BOTTOM OF LIST F0E11560 11124 -0500 00 1 65207 INIT2 CAL VECTOR,1 LOAD NEXT NAME IN TRANSFER VECTOR F0E11570 11125 0602 00 0 04255 SLW BCDBF INSERT IN LISTING F0E11580 11126 0602 00 0 04004 SLW BINRY INSERT IN BINARY WORD F0E11590 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 185 PASS TWO CONTROL 11127 0774 00 4 00006 AXT 6,4 SET LENGTH OF LINE F0E11600 11130 -0634 00 4 07665 SXD IOLST,4 TO PRINT OCTAL EXPANSION AND VECTOR NAME F0E11610 11131 0074 00 4 07470 TSX PRNTW,4 *LIST AND PUNCH THIS DATUM WORD F0E11620 11132 1 77777 1 11133 TXI *+1,1,-1 BUMP TO NEXT NAME F0E11630 11133 3 00000 1 11124 INIT3 TXH INIT2,1,** IS TRANSFER VECTOR EXHAUSTED F0E11640 11134 0020 00 0 14371 TRA INITE YES, GO TEST FOR EVEN $F0E11650 11135 0602 00 0 04255 SLW BCDBF F0E11660 BINARY CARD NO. 9F050048 11136 -0520 00 0 03737 NZT MAINPF IS THIS MAIN PROGRAM F0E11670 11137 -0520 00 0 03751 NZT SEPFLG YES, IS STANDARD ERROR PROCEDURE REQUESTD F0E11680 11140 0020 00 0 14341 TRA INITC NO $F0E11690 11141 -0500 00 0 03761 CAL LOCTR YES, COMPUTE LINKAGE DIRECTOR F0E11700 11142 -0320 00 0 06444 ANA ADDMK F0E11710 11143 -0760 00 0 00003 SSM APPEND RELOCATION BIT F0E11720 11144 0601 00 0 04041 STO LINKG F0E11730 11145 0074 00 4 07676 TSX PRLST,4 *PRINT BLANK LINE F0E11740 11146 0 00000 0 00000 PZE F0E11750 11147 0074 00 4 07676 TSX PRLST,4 *PRINT LINKAGE TITLE F0E11760 11150 0 00005 0 13760 IOCD LDTIT,,5 F0E11770 11151 -0634 00 0 11161 SXD INIT4,0 FORCE BLANK LINE F0E11780 11152 0774 00 4 00005 AXT 5,4 SET LENGTH OF LINE F0E11790 11153 -0634 00 4 07665 SXD IOLST,4 TO PRINT OCTAL EXPANSION F0E11800 11154 0600 00 0 04004 STZ BINRY PREPARE PZE F0E11810 11155 0074 00 4 07470 TSX PRNTW,4 *LIST AND PUNCH THIS DATUM WORD F0E11820 11156 -0500 00 0 14330 CAL ENTNM INSERT MAIN ENTRY POINT NAME $F0E11830 11157 0602 00 0 04004 SLW BINRY F0E11840 11160 0020 00 0 14340 TRA INITB $F0E11850 11161 -3 77777 4 11164 INIT4 TXL *+3,4,-1 SHOULD A BLANK LINE BE PRINTED F0E11860 11162 0074 00 4 07676 TSX PRLST,4 *YES, PRINT BLANK LINE F0E11870 11163 0 00000 0 00000 PZE F0E11880 BINARY CARD NO. 9F050049 11164 0774 00 4 00023 AXT 19,4 RESET LENGTH OF LISTING LINE F0E11890 11165 -0634 00 4 07665 SXD IOLST,4 TO LONG LINE F0E11900 11166 0500 00 0 03761 CLA LOCTR UPDATE PROGRAM COUNTER F0E11910 11167 0601 00 0 03762 STO ADDRS F0E11920 11170 -0500 00 0 03763 CAL OPCOD RELOAD OP CODE F0E11930 11171 -0534 00 2 04012 LXD VRFLD,2 RELOAD WORD COUNT F0E11940 11172 0534 00 1 04012 LXA VRFLD,1 RELOAD CHARACTER COUNT F0E11950 11173 -0634 00 0 11057 INIT5 SXD INIT0,0 RESET SWITCH F0E11960 11174 -0634 00 0 13031 SXD LBL02,0 PERMIT LBL TO PUNCH PARTIAL CARD F0E11970 END OF INITIALIZATION F0E11980 11175 0600 00 0 04063 STZ TYPKF RESET DISK COMMAND FLAG F0E11990 11176 0600 00 0 04062 STZ TYPDF RESET TYPE D SENSE OPERATION FLAG F0E12000 11177 0600 00 0 04061 STZ TYPCF RESET COUNT FIELD INSTRUCTION FLAG F0E12010 11200 0520 00 0 04024 ZET OPRFG IS THIS UNDEFINED OPERATION F0E12020 11201 0020 00 0 11300 TRA INST2 YES F0E12030 11202 0520 00 0 04046 ZET ETCMD NO, DOES THIS CARD FOLLOW CALL OR VFD F0E12040 11203 0020 00 0 12354 TRA ETCOP YES F0E12050 11204 0600 00 0 04004 STZ BINRY NO, CLEAR BINARY MACHINE OPERATION F0E12060 11205 -0520 00 0 04274 NZT OPBIN IS OPCODE DEFINED F0E12070 11206 0020 00 0 11213 TRA *+5 NO F0E12080 11207 0441 00 0 04274 LDI OPBIN YES, LOAD OPCODE F0E12090 11210 0054 00 100000 RFT 100000 IS THIS PSEUDOOPERATION F0E12100 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 186 PASS TWO CONTROL 11211 0020 00 0 11315 TRA INT00 NO F0E12110 BINARY CARD NO. 9F050050 11212 0020 00 0 12152 TRA PSOPT YES F0E12120 OPERATION IS UNDEFINED F0E12130 CHECK FOR OPERATION DEFINED BY TAPENO CHARACTER F0E12140 11213 -0320 00 0 06452 ANA ADTMK MASK IN CC 11 - 13 F0E12150 11214 -0340 00 0 06447 LAS T3 IS IT GREATER THAN H F0E12160 11215 -0320 00 0 06437 ANA Q4095 YES, MASK IN CC 12 - 13 F0E12170 11216 0100 00 0 11220 TZE *+2 IS THIS VALID TAPNO CHARACTER F0E12180 11217 0020 00 0 11276 TRA INST1 NO F0E12190 11220 -0500 00 0 03763 CAL OPCOD YES, RECALL OPCODE F0E12200 11221 -0765 00 0 00022 LGR 18 HOLD TAPENO CHARACTER F0E12210 11222 0767 00 0 00022 ALS 18 LEFT ADJUST THREE LETTER OPCODE F0E12220 11223 0602 00 0 04010 SLW ERASE F0E12230 11224 -0500 00 0 03776 CAL BHEAD LOAD HEADING CHARACTER F0E12240 11225 0767 00 0 00030 ALS 24 LEFT ADJUST F0E12250 11226 -0763 00 0 00006 LGL 6 APPEND TAPENO CHARACTER F0E12260 11227 0602 00 0 04001 SLW SYMBL F0E12270 11230 0074 00 4 07152 TSX SSYMT,4 *EVALUATE CHARACTER F0E12280 11231 -0760 00 0 00141 SLT EXPRR IS CHARACTER UNDEFINED F0E12290 11232 0020 00 0 11235 TRA *+3 NO F0E12300 11233 0600 00 0 04107 STZ ERRFU YES, RESET ERROR FLAG F0E12310 11234 0020 00 0 11276 TRA INST1 F0E12320 11235 -0320 00 0 06444 ANA ADDMK DELETE EXTRANEOUS FLAGS F0E12330 11236 0602 00 0 04007 SLW BERAS SAVE UNIT ADDRESS F0E12340 11237 -0320 00 0 06440 ANA Q7680 MASK IN CHANNEL NUMBER F0E12350 BINARY CARD NO. 9F050051 11240 0100 00 0 11243 TZE *+3 DOES IT EXIST F0E12360 11241 0767 00 0 00003 ALS 3 YES, POSITION IT AS FOURTH CHARACTER F0E12370 11242 -0501 00 0 06446 ORA T2 APPEND ZONE BITS F0E12380 11243 -0501 00 0 04010 ORA ERASE APPEND THREE CHARACTER OPCODE F0E12390 11244 0602 00 0 03763 SLW OPCOD SAVE F0E12400 11245 -0500 00 0 04010 CAL ERASE LOAD THREE CHARACTER OPCODE F0E12410 11246 0074 00 4 04707 TSX SOPTB,4 *FIND CORRESPONDING OPCODE F0E12420 11247 0020 00 0 11255 TRA INST0 NOT FOUND, MAY BE CHANNEL OPERATION F0E12430 11250 0054 00 100000 RFT 100000 IS THIS MACHINE OPERATION F0E12440 11251 -0054 00 000001 LFT 000001 YES, IS THIS TYPE B I/O, TYPE E PSE, MSE F0E12450 11252 0020 00 0 11255 TRA INST0 NO, CHANNEL OPERATION MAY BE UNRELATED $F0E12460 11253 -0054 00 001700 LFT 001700 YES, IS THIS TYPE E (BTT, ETT, RDC) F0E12470 11254 0604 00 0 04274 STI OPBIN NO, SET TYPE B SWITCH F0E12480 11255 -0500 00 0 03763 INST0 CAL OPCOD LOAD FOUR CHARACTER OPCODE F0E12490 11256 0074 00 4 04707 TSX SOPTB,4 *FIND CORRESPONDING OPCODE F0E12500 11257 0020 00 0 11276 TRA INST1 NOT FOUND F0E12510 11260 -0520 00 0 04274 NZT OPBIN IS THIS TYPE B I/O INSTRUCTION F0E12520 11261 0020 00 0 11315 TRA INT00 NO F0E12530 11262 -0057 00 000010 RIL 000010 YES, RESET ADDRESS REQUIRED FLAG F0E12540 11263 -0051 00 077600 IIL 077600 READY FOR TEST F0E12550 11264 -0054 00 777700 LFT 777700 IS THIS SET DENSITY INSTRUCTION F0E12560 11265 0020 00 0 11273 TRA *+6 NO F0E12570 BINARY CARD NO. 9F050052 11266 0054 00 000020 RFT 20 YES, IS THIS SET DENSITY LOW INSTRUCTION F0E12580 11267 0020 00 0 11273 TRA *+4 NO F0E12590 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 187 PASS TWO CONTROL 11270 0442 00 0 04007 OSI BERAS YES, APPEND UNIT ADDRESS F0E12600 11271 0057 00 000020 RIR 20 SET THE DENSITY LOW F0E12610 11272 0020 00 0 11274 TRA *+2 F0E12620 11273 0442 00 0 04007 OSI BERAS APPEND UNIT ADDRESS F0E12630 11274 -0051 00 077600 IIL 077600 RESTORE INDICATORS AS BEFORE F0E12640 11275 0020 00 0 11315 TRA INT00 F0E12650 OPERATION IS UNDEFINED F0E12660 11276 0600 00 0 04011 INST1 STZ OFLGS ERASE HANGING FLAGS F0E12670 11277 0760 00 0 00141 SLN EXPRR SET UNDEFINED MACHINE OP FLAG F0E12680 PSEUDOOPERATION IS UNDEFINED F0E12690 11300 0074 00 4 07276 INST2 TSX REFLC,4 *CHECK LOCATION COUNTER F0E12700 11301 -0500 00 0 04176 CAL BLANKS BLANK OUT SIGN AND PREFIX F0E12710 11302 0767 00 0 00030 ALS 24 F0E12720 11303 0602 00 0 04252 SLW OCTAL+1 F0E12730 11304 0600 00 0 04253 STZ OCTAL+2 F0E12740 11305 0600 00 0 04254 STZ OCTAL+3 F0E12750 11306 0600 00 0 04004 STZ BINRY DELETE POSSIBLE TAPE ADDRESS F0E12760 11307 0600 00 0 04024 STZ OPRFG RESET FLAG FOR UNDEFINED OPERATION F0E12770 11310 -0625 00 0 04114 STL ERRFO SET OPERATION ERROR FLAG F0E12780 11311 -0625 00 0 04060 STL TYPAF TREAT UNDEFINED OP AS TYPE A INSTRUCTION F0E12790 11312 -0760 00 0 00141 SLT EXPRR IS UNDEFINED OP MACHINE OP F0E12800 11313 0020 00 0 11531 TRA INT17+3 NO, IT IS UNDEFINED PSEUDOOPERATION F0E12810 BINARY CARD NO. 9F050053 11314 0020 00 0 11324 TRA INT03 YES, SCAN VARIABLE FIELD F0E12820 OPERATION CODE FOUND F0E12830 11315 0604 00 0 04011 INT00 STI OFLGS SAVE FLAGS F0E12840 11316 0074 00 4 07362 TSX IFLGS,4 *SET INSTRUCTION LISTING FLAGS F0E12850 11317 0057 00 017777 RIR 017777 DELETE FLAGS FROM ADDRESS FIELD F0E12860 11320 -0046 00 0 00000 PIA F0E12870 11321 -0320 00 0 06476 ANA OPMSK DELETE FLAGS FROM TAG, DECREMENT FIELDS F0E12880 11322 -0602 00 0 04004 ORS BINRY SAVE OPCODE F0E12890 11323 0074 00 4 07276 TSX REFLC,4 *CHECK LOCATION COUNTER F0E12900 REENTRY FOR UNDEFINED MACHINE OP F0E12910 11324 -0534 00 2 04012 INT03 LXD VRFLD,2 RELOAD VARIABLE FIELD WORD COUNT F0E12920 11325 0534 00 1 04012 LXA VRFLD,1 RELOAD VARIABLE FIELD CHARACTER COUNT F0E12930 11326 -0500 00 0 03755 CAL CHRCTR LOAD FIRST CHARACTER IN VARIABLE FIELD F0E12940 11327 0322 00 0 06531 ERA EQUAL TEST FOR LITERAL F0E12950 11330 -0520 00 0 04062 NZT TYPDF IS THIS TYPE D INSTRUCTION F0E12960 11331 0020 00 0 11341 TRA INT04 NO F0E12970 11332 0100 00 0 11346 TZE INT05 YES, IS ADDRESS FIELD A LITERAL F0E12980 11333 -0625 00 0 04044 STL BOLMD NO, SET FLAG FOR OCTAL SCAN F0E12990 11334 0074 00 4 04767 TSX SCANF,4 *EVALUATE ADDRESS F0E13000 11335 -3 00000 0 07343 TXL FLAGA,,0 NULL ADDRESS F0E13010 11336 -0760 00 0 00141 SLT EXPRR IS ADDRESS FIELD IN ERROR F0E13020 11337 0020 00 0 11456 TRA INT12 NO F0E13030 11340 0020 00 0 11346 TRA INT05 YES F0E13040 REENTRY FOR NON BOOLEAN MACHINE OPERATIONS F0E13050 11341 0100 00 0 13070 INT04 TZE LITOP IS ADDRESS FIELD A LITERAL F0E13060 BINARY CARD NO. 9F050054 11342 0074 00 4 04767 TSX SCANF,4 *NO, EVALUATE ADDRESS F0E13070 11343 -3 00000 0 07343 TXL FLAGA,,0 NULL ADDRESS FIELD F0E13080 11344 -0760 00 0 00141 SLT EXPRR IS ADDRESS FIELD IN ERROR F0E13090 11345 0020 00 0 11357 TRA INT06 NO F0E13100 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 188 PASS TWO CONTROL REENTRY FOR BOOLEAN ADDRESS, LITERAL IN ERROR F0E13110 11346 -0500 00 0 06522 INT05 CAL BLANK BLANK OUT ADDRESS FIELD F0E13120 11347 -0602 00 0 04253 ORS OCTAL+2 F0E13130 11350 -0500 00 0 04176 CAL BLANKS F0E13140 11351 -0602 00 0 04254 ORS OCTAL+3 F0E13150 11352 0634 00 0 04004 SXA BINRY,0 DELETE ADDRESS BITS F0E13160 11353 -0520 00 0 04062 NZT TYPDF IS THIS BOOLEAN MACHINE OPERATION F0E13170 11354 0020 00 0 11403 TRA INT07 NO F0E13180 11355 -0625 00 0 04116 STL ERRFB YES, SET ERROR FLAG F0E13190 11356 0020 00 0 11413 TRA INT08 F0E13200 REENTRY FOR ADDRESS FIELD, LITERAL SUCCESSFULY EVALUATED F0E13210 11357 -0602 00 0 04004 INT06 ORS BINRY INSERT ADDRESS FIELD BITS F0E13220 11360 -0500 00 0 04014 CAL RBITS INSERT ADDRESS FIELD RELOCATION BITS F0E13230 11361 0602 00 0 04015 SLW INDIC F0E13240 11362 0520 00 0 04077 ZET 704FG IS ASSEMBLY IN 704 MODE F0E13250 11363 0020 00 0 11403 TRA INT07 YES F0E13260 11364 0500 00 0 04004 CLA BINRY NO, LOAD OPERATION CODE F0E13270 11365 0771 00 0 00006 ARS 6 RIGHT ADJUST, LESS SIGN (20)F0E13280 11366 -0734 00 4 00000 PDX ,4 F0E13290 11367 -3 00757 4 11403 TXL INT07,4,495 IS THIS I/O INSTRUCTION F0E13300 BINARY CARD NO. 9F050055 11370 3 00772 4 11403 TXH INT07,4,506 NO F0E13310 11371 0754 00 4 00000 PXA ,4 MAYBE, IT IS BETWEEN 0760 AND 0772 F0E13320 11372 0760 00 0 00001 LBT IS IT 0761,0763,0765,0767,0771 F0E13330 11373 0020 00 0 11375 TRA *+2 NO, IT IS 0760,0762,0764,0766,0770,0772 F0E13340 11374 0020 00 0 11403 TRA INT07 YES, NOT AN I/O INSTRUCTION F0E13350 11375 -0500 00 0 04004 CAL BINRY LOAD OPERATION CODE F0E13360 11376 0771 00 0 00011 ARS 9 ISOLATE CHANNEL DESIGNATION F0E13370 11377 -0320 00 0 06427 ANA Q15 F0E13380 11400 -0340 00 0 03734 LAS CHANS IS CHANNEL DESIGNATION PROPER F0E13390 11401 -0625 00 0 04117 STL ERRFN NO, SET ERROR FLAG F0E13400 11402 0761 00 0 00000 NOP F0E13410 REENTRY FOR NON BOOLEAN ADDRESS FIELD IN ERROR F0E13420 11403 0074 00 4 04767 INT07 TSX SCANF,4 *EVALUATE TAG FIELD F0E13430 11404 -3 00000 0 07350 TXL FLAGT,,0 NULL TAG FIELD F0E13440 11405 -0520 00 0 04014 NZT RBITS IS TAG FIELD RELOCATABLE F0E13450 11406 0020 00 0 11411 TRA *+3 NO F0E13460 11407 -0625 00 0 04111 STL ERRFR YES, SET ERROR FLAG F0E13470 11410 0020 00 0 11413 TRA INT08 F0E13480 11411 -0760 00 0 00141 SLT EXPRR IS TAG FIELD IN ERROR F0E13490 11412 0020 00 0 11423 TRA INT09 NO F0E13500 REENTRY FOR BOOLEAN ADDRESS FIELD IN ERROR F0E13510 11413 -0500 00 0 06522 INT08 CAL BLANK PREPARE TO BLANK OUT OFFENDING FIELD F0E13520 11414 0767 00 0 00006 ALS 6 POSITION IN HIGH ORDER BOOLEAN ADDRESS F0E13530 11415 -0520 00 0 04062 NZT TYPDF IS THIS BOOLEAN FIELD F0E13540 BINARY CARD NO. 9F050056 11416 0767 00 0 00006 ALS 6 NO, POSITION IN TAG FIELD F0E13550 11417 -0602 00 0 04253 ORS OCTAL+2 F0E13560 11420 -0520 00 0 04062 NZT TYPDF IS THIS BOOLEAN FIELD F0E13570 11421 0020 00 0 11426 TRA INT10 NO F0E13580 11422 0020 00 0 11457 TRA INT12+1 YES F0E13590 REENTRY FOR TAG FIELD NOT IN ERROR F0E13600 11423 -0320 00 0 06425 INT09 ANA Q7 REDUCE TAG MODULO 8 F0E13610 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 189 PASS TWO CONTROL 11424 0767 00 0 00017 ALS 15 POSITION IN TAG FIELD F0E13620 11425 -0602 00 0 04004 ORS BINRY INSERT IN WORD F0E13630 REENTRY FOR TAG FIELD IN ERROR F0E13640 11426 0074 00 4 04767 INT10 TSX SCANF,4 *EVALUATE DECREMENT FIELD F0E13650 11427 -3 00000 0 07355 TXL FLAGD,,0 NULL DECREMENT FIELD F0E13660 11430 -0760 00 0 00141 SLT EXPRR IS DECREMENT FIELD IN ERROR F0E13670 11431 0020 00 0 11443 TRA INT11 NO F0E13680 11432 -0520 00 0 04060 NZT TYPAF YES, IS THIS TYPE A 0 00000 0 00000 INSTR F0E13690 11433 0020 00 0 11437 TRA *+4 NO, IT IS TYPE B 0000 00 0 00000 F0E13700 11434 -0500 00 0 04176 CAL BLANKS YES DELETE OCTAL CHARACTERS 2, 3, 4 F0E13710 11435 0771 00 0 00022 ARS 18 (BITS 3 - 11) F0E13720 11436 -0602 00 0 04252 ORS OCTAL+1 F0E13730 11437 -0500 00 0 04176 CAL BLANKS AS WELL AS OCTAL CHARACTERS 5, 6 F0E13740 11440 0767 00 0 00030 ALS 24 (BITS 12 - 17) F0E13750 11441 -0602 00 0 04253 ORS OCTAL+2 F0E13760 11442 -0754 00 0 00000 PXD ,0 DELETE DECREMENT FIELD F0E13770 REENTRY FOR DECREMENT FIELD NOT IN ERROR F0E13780 11443 0534 00 4 04014 INT11 LXA RBITS,4 LOAD DECREMENT RELOCATION BITS F0E13790 BINARY CARD NO. 9F050057 11444 -0634 00 4 04015 SXD INDIC,4 SET DECREMENT RELOCATION BITS F0E13800 11445 0767 00 0 00022 ALS 18 REPOSITION DECREMENT F0E13810 11446 -0602 00 0 04004 ORS BINRY INSERT IN WORD F0E13820 11447 0520 00 0 04060 ZET TYPAF IS THIS TYPE A INSTRUCTION F0E13830 11450 0020 00 0 11457 TRA INT12+1 YES F0E13840 11451 0100 00 0 11457 TZE INT12+1 NO, HAS TYPE B, C, E INSTR DECREMENT F0E13850 11452 -0634 00 4 04111 SXD ERRFR,4 YES, SET ERROR FLAG IF RELOCATABLE F0E13860 11453 0520 00 0 04061 ZET TYPCF IS THIS A TYPE C INSTRUCTION F0E13870 11454 -0320 00 0 06467 ANA D32512 YES, MASK OUT 8-BIT COUNT FIELD F0E13880 11455 0601 00 0 04123 STO ERRFD SET FLAG IF TOO LONG F0E13890 REENTRY FOR BOOLEAN ADDRESS NOT IN ERROR, DIRECT ADDRESS F0E13900 11456 -0602 00 0 04004 INT12 ORS BINRY F0E13910 11457 0520 00 0 04013 ZET INDFG IS INDIRECT ADDRESS REQUIRED F0E13920 11460 0020 00 0 11471 TRA INT14 YES F0E13930 11461 0441 00 0 04004 LDI BINRY NO, DID INDIRECT ADDRESS BITS F0E13940 11462 -0500 00 0 06462 CAL D48 SNEAK INTO DECREMENT F0E13950 11463 -0520 00 0 04060 NZT TYPAF MAYBE, IS THIS TYPE B, C, D, E INSTRUCTIONF0E13960 11464 0042 00 0 11466 TIO *+2 YES F0E13970 11465 0020 00 0 11504 TRA INT15 NO F0E13980 11466 -0520 00 0 04114 NZT ERRFO IS OPERATION UNDEFINED F0E13990 11467 -0625 00 0 04124 STL ERRFI NO, SET ERROR FLAG F0E14000 11470 0020 00 0 11526 TRA INT17 F0E14010 11471 -0500 00 0 04011 INT14 CAL OFLGS LOAD FIELD FLAGS F0E14020 BINARY CARD NO. 9F050058 11472 -0320 00 0 06463 ANA IMASK IS THIS OPCODE PERMITTED INDIRECT ADDRESS F0E14030 11473 -0520 00 0 04077 NZT 704FG MAYBE, IS ASSEMBLY IN 7090 MODE F0E14040 11474 -0100 00 0 11477 TNZ *+3 YES F0E14050 11475 -0520 00 0 04114 NZT ERRFO NO, IS OPERATION UNDEFINED F0E14060 11476 -0625 00 0 04124 STL ERRFI NO, SET ERROR FLAG F0E14070 11477 -0520 00 0 04060 NZT TYPAF IS OPERATION TYPE A F0E14080 11500 -0500 00 0 06462 CAL D48 NO, LOAD DECREMENT INDIRECT ADDRESS BITS F0E14090 11501 0520 00 0 04060 ZET TYPAF IS OPERATION TYPE A F0E14100 11502 -0500 00 0 06450 CAL T4 YES, LOAD TAG INDIRECT ADDRESS BIT F0E14110 11503 -0602 00 0 04004 ORS BINRY INSERT IN WORD F0E14120 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 190 PASS TWO CONTROL REENTRY FOR TYPE A INSTRUCTION NOT INDIRECTLY ADDRESSED F0E14130 11504 0520 00 0 04063 INT15 ZET TYPKF IS THIS A TYPE K 00 0000 0 00000 COMMAND F0E14140 11505 -0520 00 0 04061 NZT TYPCF YES, DOES IT HAVE HIGH ORDER COUNT FIELD F0E14150 11506 0020 00 0 11526 TRA INT17 NO F0E14160 11507 0074 00 4 04767 TSX SCANF,4 *YES, EVALUATE ADDITIONAL OP/COUNT FIELD F0E14170 11510 -3 00000 0 11526 TXL INT17,,0 NULL ADDITIONAL FIELD F0E14180 11511 -0520 00 0 04014 NZT RBITS IS ADDITIONAL FIELD RELOCATABLE F0E14190 11512 0020 00 0 11515 TRA *+3 NO F0E14200 11513 -0625 00 0 04111 STL ERRFR YES, SET ERROR FLAG F0E14210 11514 0020 00 0 11517 TRA *+3 F0E14220 11515 -0760 00 0 00141 SLT EXPRR IS ADDITIONAL FIELD IN ERROR F0E14230 11516 0020 00 0 11523 TRA INT16 NO F0E14240 11517 -0500 00 0 06522 CAL BLANK YES, BLANK OUT ADDITIONAL FIELD F0E14250 BINARY CARD NO. 9F050059 11520 0767 00 0 00022 ALS 18 F0E14260 11521 -0602 00 0 04252 ORS OCTAL+1 F0E14270 11522 0020 00 0 11526 TRA INT17 F0E14280 ADDITIONAL OP/COUNT FIELD NOT IN ERROR F0E14290 11523 -0320 00 0 06425 INT16 ANA Q7 MASK IN ONE CHARACTER F0E14300 11524 0767 00 0 00036 ALS 30 POSITION IN OP/COUNT FIELD F0E14310 11525 -0602 00 0 04004 ORS BINRY INSERT IN WORD F0E14320 REENTRY FOR NO ADDITIONAL FIELD, OR FIELD IN ERROR F0E14330 11526 -0500 00 0 03755 INT17 CAL CHRCTR LOAD FOLLOWING CHARACTER F0E14340 11527 0322 00 0 06522 ERA BLANK IS IT BLANK F0E14350 11530 0602 00 0 04125 SLW ERRFF SET ERROR FLAG IF NOT F0E14360 REENTRY FOR IMPROPER OPCODE OR PSEUDOOPERATION F0E14370 11531 0074 00 4 07543 TSX PRNTI,4 *LIST AND PUNCH THIS INSTRUCTION F0E14380 11532 0020 00 0 11030 TRA READ1 F0E14390 F0E14400 F0E14410 END OF SECOND INTERMEDIATE TAPE F0E14420 11533 -0534 00 4 13164 ENDFA LXD SLIT3,4 LOAD BASE ADDRESS FOR LITERALS F0E14430 11534 0754 00 4 00000 PXA ,4 F0E14440 11535 0322 00 0 03760 ERA CDCTR COMPARE WITH CURRENT LOAD ADDRESS F0E14450 11536 0634 00 4 03760 SXA CDCTR,4 RESET CARD ORIGIN COUNTER TO BASE ADDRESS F0E14460 11537 0634 00 4 03761 SXA LOCTR,4 RESET PROGRAM COUNTER TO BASE ADDRESS F0E14470 11540 0634 00 4 03762 SXA ADDRS,4 F0E14480 11541 0734 00 4 00000 PAX ,4 LOAD LENGTH OF EFFECT BSS FOLLOW LAST CARDF0E14490 11542 -3 00000 4 11544 TXL *+2,4,0 IS EFFECTIVE BSS 0 F0E14500 11543 0074 00 4 10057 TSX PUNCH,4 *NO, PUNCH LAST PARTIAL CARD F0E14510 11544 -0535 00 1 03752 LDC LITSIZ,1 LOAD LENGTH OF LITERAL TABLE F0E14520 11545 -3 00000 1 11564 TXL ENDF1+1,1,0 IS LITERAL TABLE EMPTY F0E14530 BINARY CARD NO. 9F050060 11546 -0634 00 1 11563 SXD ENDF1,1 NO, SET END OF LITERAL TABLE LOOP F0E14540 11547 0074 00 4 07676 TSX PRLST,4 *PRINT BLANK LINE F0E14550 11550 0 00000 0 00000 PZE F0E14560 11551 0074 00 4 07676 TSX PRLST,4 *PRINT LITERAL TABLE TITLE F0E14570 11552 0 00005 0 13773 IOCD LITIT,,5 F0E14580 11553 0774 00 4 00005 AXT 5,4 RESET LENGTH OF LISTING LINE TO SHORT F0E14590 11554 -0634 00 4 07665 SXD IOLST,4 TO PRINT ONLY OCTAL EXPANSION F0E14600 11555 0774 00 1 00000 AXT 0,1 START AT BOTTOM OF TABLE F0E14610 11556 0600 00 0 04015 STZ INDIC F0E14620 11557 -0500 00 1 65601 CAL LITTBL,1 LOAD NEXT LITERAL F0E14630 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 191 PASS TWO CONTROL 11560 0602 00 0 04004 SLW BINRY F0E14640 11561 0074 00 4 07470 TSX PRNTW,4 *LIST AND PUNCH DATA WORD F0E14650 11562 1 77777 1 11563 TXI *+1,1,-1 BUMP COUNT OT NEXT LITERAL F0E14660 11563 3 00000 1 11557 ENDF1 TXH *-4,1,** IS LITERAL TABLE EXHAUSTED F0E14670 REENTRY FOR NO LITERAL TABLE F0E14680 11564 0074 00 4 10057 TSX PUNCH,4 *PUNCH LAST PARTIAL CARD F0E14690 11565 3 77777 4 11567 ENDFB TXH *+2,4,-1 IS TRANSFER ADDRESS VALID F0E14700 11566 0074 00 4 10012 TSX PCHTC,4 *YES, PUNCH TRANSFER CARD F0E14710 11567 -0625 00 0 04101 STL TTLFG SET SUBTITLE FLAG F0E14720 11570 0441 00 0 14023 LDI REFHD RESET SUBTITLE PARAMETER F0E14730 11571 0604 00 0 04421 STI IOHED TO PRINT 'POST PROCESSOR ASSEMBLY DATA' F0E14740 11572 0634 00 0 04371 SXA PAGENO,0 RESET PAGE NUMBER F0E14750 11573 0634 00 0 04370 SXA PAGCNT,0 EJECT PAGE F0E14760 BINARY CARD NO. 9F050061 11574 0600 00 0 04066 STZ UNLSF RESET HANGING UNLIST FLAGS F0E14770 11575 0600 00 0 04065 STZ UNL1F F0E14780 11576 0600 00 0 04067 STZ TITLF F0E14790 11577 -0500 00 0 03761 CAL LOCTR LOAD LAST ADDRESS+1 F0E14800 11600 0074 00 4 10542 TSX SHIFT,4 *CONVERT TO OCTAL F0E14810 11601 0767 00 0 00006 ALS 6 APPEND FOLLOWING BLANK F0E14820 11602 -0501 00 0 06522 ORA BLANK F0E14830 11603 0602 00 0 14012 SLW PGTIT+1 F0E14840 11604 0520 00 0 03740 ZET ABSFLG IS ASSEMBLY ABSOLUTE F0E14850 11605 0020 00 0 11623 TRA ENDFC YES F0E14860 11606 -0634 00 0 03761 SXD LOCTR,0 NO, DELETE RELOCATION BIT F0E14870 11607 -0500 00 0 03757 CAL UPCTR LOAD LAST COMMON ASSIGNMENT F0E14880 11610 0100 00 0 11623 TZE ENDFC DOES COMMON EXIST F0E14890 11611 0074 00 4 10542 TSX SHIFT,4 *YES, CONVERT TO OCTAL F0E14900 11612 0602 00 0 14000 SLW CBTIT+1 F0E14910 11613 0074 00 4 04361 TSX FPRINT,4 *PRINT COMMON BREAK F0E14920 11614 0 00012 0 13777 PZE CBTIT,,10 F0E14930 11615 0500 00 0 03761 CLA LOCTR LOAD PROGRAM COUNTER F0E14940 11616 0402 00 0 03757 SUB UPCTR DID PROGRAM OVERLAP COMMON F0E14950 11617 -0120 00 0 11623 TMI ENDFC NO F0E14960 11620 0560 00 0 06507 LDQ EFLAG YES, SET ERROR FLAG F0E14970 11621 -0600 00 0 14011 STQ PGTIT F0E14980 BINARY CARD NO. 9F050062 11622 -0625 00 0 04057 STL NOGOF DELETE EXECUTION F0E14990 11623 0074 00 4 04361 ENDFC TSX FPRINT,4 *PRINT PROGRAM BREAK F0E15000 11624 0 00012 0 14011 PZE PGTIT,,10 F0E15010 11625 0074 00 4 04361 TSX FPRINT,4 *PRINT BLANK LINE F0E15020 11626 0 00000 0 00000 PZE F0E15030 11627 -0520 00 0 03743 NZT CRDFLG ARE ONLINE CARDS REQUESTED F0E15040 11630 0020 00 0 11644 TRA PREF0 NO F0E15050 11631 0074 00 4 73606 TSX (TAPE),4 *YES, WRITE END FILE ON INTERMED PUNCH TAPEF0E15060 11632 -0 40005 0 00000 MZE ,,(WEFP) F0E15070 11633 0 77777 0 10350 PZE BNTAP,,-1 F0E15080 11634 0 00000 0 11636 PZE *+2 F0E15090 11635 0020 00 0 11641 TRA *+4 F0E15100 11636 0074 00 4 73611 TSX (PRNT),4 *LET OPERATOR KNOW ABOUT BAD END OF FILE F0E15110 11637 0 00015 0 14075 PZE CDERR,,13 F0E15120 11640 0074 00 2 06361 TSX SPACP,2 *LET OPERATOR READ WARNING F0E15130 11641 0074 00 4 73606 TSX (TAPE),4 *REWIND INTERMEDIATE PUNCH TAPE F0E15140 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 192 PASS TWO CONTROL 11642 0 20000 0 06771 PZE REWND,,(SKBP) F0E15150 11643 0 77777 0 10350 PZE BNTAP,,-1 F0E15160 LIST SYMBOLIC REFERENCE TABLE ENTRIES F0E15170 11644 3 77777 4 12024 PREF0 TXH PREF9,4,-1 IS UNDEFINED SYMBOL TABLE COMPLETE F0E15180 11645 -0534 00 1 23270 LXD SYMSIZ,1 NO, LOAD LENGTH OF SYMBOL TABLE F0E15190 11646 3 77777 4 11652 TXH PRUDS,4,-1 HAVE DEFINED SYMBOLS BEEN LISTED F0E15200 11647 -0634 00 0 11646 SXD *-1,0 NO, RESET SWITCH F0E15210 BINARY CARD NO. 9F050063 11650 -3 00002 1 11652 TXL PRUDS,1,2 IS DEFINED SYMBOL TABLE EMPTY F0E15220 11651 1 00002 1 11671 TXI PREF1,1,2 NO F0E15230 DEFINED SYMBOLS HAVE BEEN LISTED F0E15240 11652 0774 00 4 77777 PRUDS AXT -1,4 RESET SWITCH F0E15250 11653 -0634 00 4 11756 SXD PREF6,4 TO FORCE PRINTING F0E15260 11654 -0634 00 0 11644 SXD PREF0,0 RESET UNDEFINED SYMBOL SWITCH F0E15270 11655 -0634 00 0 12007 SXD PREFS,0 DELETE REF TABLE HEADING F0E15280 11656 -0634 00 1 11660 SXD *+2,1 SET BOTTOM OF UNDEFINED SYMBOL TABLE F0E15290 11657 -0535 00 4 07172 LDC SUDS1,4 LOAD TOP OF UNDEFINED SYMBOL TABLE F0E15300 11660 -3 00000 4 12024 TXL PREF9,4,** IS UNDEFINED SYMBOL TABLE EMPTY F0E15310 11661 0074 00 4 04361 TSX FPRINT,4 *NO, PRINT UNDEFINED REFERENCE HEADING F0E15320 11662 0 00006 0 14043 PZE USTIT,,6 F0E15330 11663 1 00255 1 11664 TXI *+1,1,LUDTBM BUMP COUNT TO TOP OF UDS TABLE F0E15340 11664 -0634 00 1 23270 SXD SYMSIZ,1 F0E15350 11665 0774 00 1 00261 AXT LUDTBM+4,1 LOAD COUNT OF FIRST UNDEFINED SYMBOL F0E15360 11666 -0500 00 0 07231 CAL EREF2 UDS TABLE IS OFFSET BY 2 TO LIST THEM F0E15370 11667 0400 00 0 06411 ADD Q2 EVEN IF NO DEFINED SYMBOL APPEAR F0E15380 11670 0621 00 0 07231 STA EREF2 NOW IT MUST BE CORRECTED F0E15390 REENTRY FOR DEFINED SYMBOLS F0E15400 11671 0500 00 0 23270 PREF1 CLA SYMSIZ COMPUTE ORIGIN AT END OF SYMBOL TABLE F0E15410 11672 0771 00 0 00022 ARS 18 F0E15420 11673 0400 00 0 07207 ADD SSYM5 F0E15430 11674 0400 00 0 06410 ADD Q1 F0E15440 11675 0621 00 0 11717 STA PREF3 INITIALIZE TEST FOR END OF REF TABLE F0E15450 BINARY CARD NO. 9F050064 11676 0621 00 0 11722 STA PREF4 INITIALIZE LOAD FOR SYMBOL NAME F0E15460 11677 0400 00 0 06410 ADD Q1 F0E15470 11700 0621 00 0 11743 STA PREF5 INITIALIZE LOAD FOR SYMBOL DEFINITION F0E15480 11701 0500 00 0 23270 CLA SYMSIZ COMPUTE ORIGIN AT END OF POINTER TABLE F0E15490 11702 0771 00 0 00022 ARS 18 F0E15500 11703 0400 00 0 07231 ADD EREF2 F0E15510 11704 0621 00 0 11757 STA PREF6+1 INITIALIZE LOAD FOR POINTER F0E15520 REENTRY TO START NEXT LINE F0E15530 11705 0520 00 0 04076 PREF2 ZET PRTIF IS THIS A CONTINUATION LINE F0E15540 11706 0020 00 0 11711 TRA *+3 YES F0E15550 REENTRY TO LIST NEXT SYMBOL F0E15560 11707 1 77776 1 11710 TXI *+1,1,-2 BUMP COUNT TO NEXT SYMBOL F0E15570 11710 -3 00002 1 11644 TXL PREF0,1,2 IS TABLE EXHAUSTED F0E15580 11711 0774 00 2 00024 AXT 20,2 NO, LOAD LENGTH OF LISTING LINE F0E15590 11712 -0500 00 0 04176 CAL BLANKS BLANK OUT LINE F0E15600 11713 0602 00 2 70456 SLW BBUF22+20,2 F0E15610 11714 2 00001 2 11713 TIX *-1,2,1 F0E15620 11715 0520 00 0 04076 ZET PRTIF IS THIS A CONTINUATION LINE F0E15630 11716 0020 00 0 11762 TRA PREF7 YES F0E15640 11717 -0500 00 1 00000 PREF3 CAL **,1 LOAD NEXT NAME IN SYMBOL TABLE F0E15650 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 193 PASS TWO CONTROL 11720 0100 00 0 12024 TZE PREF9 IS TABLE EXHAUSTED F0E15660 11721 0600 00 0 04007 STZ BERAS NO, RESET REDUNDANCY TEST F0E15670 11722 0560 00 1 00000 PREF4 LDQ **,1 LOAD SYMBOL NAME F0E15680 11723 -0763 00 0 00006 LGL 6 SHIFT IN FIRST (HEADING) CHARACTER F0E15690 BINARY CARD NO. 9F050065 11724 -0320 00 0 06433 ANA Q63 MASK IN CHARACTER F0E15700 11725 -0100 00 0 11727 TNZ *+2 DOES IT EXIST F0E15710 11726 -0500 00 0 06522 CAL BLANK NO, APPEND LEADING BLANK F0E15720 11727 0602 00 0 04010 SLW ERASE F0E15730 11730 0774 00 4 00036 AXT 30,4 PREPARE TO SCAN FOLLOWING FIVE CHARACTERS F0E15740 11731 -0754 00 0 00000 PXD ,0 F0E15750 11732 -0763 00 0 00006 LGL 6 LOAD NEXT CHARACTER F0E15760 11733 -0100 00 0 11735 TNZ *+2 DOES IT EXIST F0E15770 11734 2 00006 4 11732 TIX *-2,4,6 NO, TRY AGAIN F0E15780 11735 -0765 00 0 00006 LGR 6 SAVE NONBLANK CHARACTER F0E15790 11736 -0500 00 0 04176 CAL BLANKS APPEND LEADING BLANKS F0E15800 11737 -0765 00 4 00036 LGR 30,4 LEFT ADJUST FIVE CHARACTERS F0E15810 11740 -0500 00 0 04010 CAL ERASE APPEND FIRST (HEADING) CHARACTER F0E15820 11741 -0765 00 0 00006 LGR 6 F0E15830 11742 -0600 00 0 70434 STQ BBUF22+2 INSERT IN WORD 2 F0E15840 11743 -0500 00 1 00000 PREF5 CAL **,1 LOAD SYMBOL DEFINITION F0E15850 11744 0044 00 0 00000 PAI HOLD POSSIBLY DOUBLY DEFINED FLAG F0E15860 11745 0074 00 4 10542 TSX SHIFT,4 *ASSEMBLE OCTAL LOCATION F0E15870 11746 0602 00 0 04010 SLW ERASE SAVE BCD DEFINITION $F0E15880 11747 0767 00 0 00006 ALS 6 APPEND BLANK TO LOW ORDER $F0E15890 11750 -0501 00 0 06522 ORA BLANK FIVE CHARACTERS $F0E15900 11751 0602 00 0 70433 SLW BBUF22+1 INSERT IN WORD 1 $F0E15910 BINARY CARD NO. 9F050066 11752 0560 00 0 04010 LDQ ERASE RECALL SIXTH CHARACTER $F0E15920 11753 -0500 00 0 06510 CAL MFLAG PREPARE M FLAG $F0E15930 11754 0771 00 0 00006 ARS 6 SHIFTED OVER $F0E15940 11755 0020 00 0 14362 TRA PREFP TO PATCH $F0E15950 11756 3 77777 2 11705 PREF6 TXH PREF2,2,-1 IS SYMBOL TABLE SUPPRESSED F0E15960 11757 0500 00 1 00000 CLA **,1 NO, LOAD POINTER F0E15970 11760 0621 00 0 04075 STA DCBFG YES, SAVE LOCATION OF FIRST REFERENCE F0E15980 11761 -0625 00 0 04076 STL PRTIF SET FLAG TO OMIT COMMA F0E15990 11762 0774 00 2 00021 PREF7 AXT 17,2 LOAD LENGTH OF REST OF LINE F0E16000 11763 0020 00 0 14456 TRA K001 GO CHECK FOR REF-TBL OVERFLOW. (32)F0E16010 11764 0500 60 0 04075 CLA* DCBFG LOAD SUBSEQUENT REFERENCE TO SYMBOL. (32)F0E16020 11765 0074 00 4 10542 TSX SHIFT,4 *ASSEMBLE OCTAL LOCATION F0E16030 11766 -0340 00 0 04007 LAS BERAS IS THIS REDUNDANT F0E16040 11767 0020 00 0 11771 TRA *+2 NO F0E16050 11770 1 00001 2 11776 TXI PREF8+1,2,1 YES, IGNORE IT F0E16060 11771 0602 00 0 04007 SLW BERAS SAVE FOR NEXT TEST F0E16070 11772 -0520 00 0 04076 NZT PRTIF IS THIS FIRST LOCATION ON LINE F0E16080 11773 -0501 00 0 06511 ORA RCOMA NO, APPEND LEADING COMMA F0E16090 11774 0602 00 2 70456 SLW BBUF22+20,2 INSERT IN NEXT WORD F0E16100 11775 0600 00 0 04076 PREF8 STZ PRTIF RESET FIRST LOCATION FLAG F0E16110 11776 -0520 00 0 04075 NZT DCBFG IS THERE ANOTHER REFERENCE F0E16120 11777 0020 00 0 12003 TRA *+4 NO F0E16130 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 194 PASS TWO CONTROL BINARY CARD NO. 9F050067 12000 2 00001 2 11764 TIX PREF7+2,2,1 YES, IS LINE FULL F0E16140 12001 -0625 00 0 04076 STL PRTIF YES, SET CONTINUATION LINE FLAG F0E16150 12002 0020 00 0 12007 TRA PREFS F0E16160 REFERENCES TO THIS SYMBOL EXHAUSTED F0E16170 12003 -0520 00 0 04076 NZT PRTIF IS THIS FIRST REFERENCE ON THIS LINE F0E16180 12004 0020 00 0 12007 TRA PREFS NO F0E16190 12005 0600 00 0 04076 STZ PRTIF YES, RESET CONTINUATION LINE FLAG F0E16200 12006 0020 00 0 11705 TRA PREF2 F0E16210 PRINT LINE IN SYMBOLIC REFERENCE TABLE F0E16220 12007 3 77777 4 12013 PREFS TXH *+4,4,-1 HAS REF TABLE HEADING BEEN PRINTED F0E16230 12010 -0634 00 0 12007 SXD *-1,0 NO, RESET SWITCH F0E16240 12011 0074 00 4 04361 TSX FPRINT,4 *PRINT REFERENCE TABLE HEADING F0E16250 12012 0 00006 0 14035 PZE RFTIT,,6 F0E16260 12013 1 77753 2 12014 TXI *+1,2,-21 COMPUTE LENGTH OF LINE F0E16270 12014 0754 00 2 00000 PXA ,2 F0E16280 12015 0737 00 2 00000 PAC ,2 F0E16290 12016 0634 00 1 12022 SXA *+4,1 SAVE TABLE COUNT F0E16300 12017 -0634 00 2 12021 SXD *+2,2 INITIALIZE PARAMETER F0E16310 12020 0074 00 4 04361 TSX FPRINT,4 *PRINT LINE F0E16320 12021 0 00000 0 70432 PZE BBUF22,,** F0E16330 12022 0774 00 1 00000 AXT **,1 RELOAD TABLE COUNT F0E16340 12023 0020 00 0 11705 TRA PREF2 F0E16350 END OF REFERENCE TABLE F0E16360 12024 -3 77777 4 12027 PREF9 TXL *+3,4,-1 DID REFERENCE TABLE OVERFLOW F0E16370 12025 0074 00 4 04361 TSX FPRINT,4 *YES, PRINT MESSAGE F0E16380 BINARY CARD NO. 9F050068 12026 0 00013 0 14051 PZE REFOV,,11 F0E16390 12027 0074 00 4 04361 TSX FPRINT,4 *PRINT BLANK LINE F0E16400 12030 0 00000 0 00000 PZE F0E16410 12031 0774 00 4 00010 AXT 8,4 PREPARE TO PRINT 'EXECUTION DELETED' F0E16420 12032 -0520 00 0 04057 NZT NOGOF WAS THERE AN ASSEMBLY ERROR F0E16430 12033 1 77775 4 12045 TXI ENDF4,4,-3 NO, DELETE 'EXECUTION DELETED' F0E16440 12034 0560 00 0 14112 LDQ ERTIT YES, DELETE 'NO' F0E16450 12035 -0600 00 0 14113 STQ ERTIT+1 F0E16460 12036 0502 00 0 12047 CLS ENDF4+2 FORCE PRINTING F0E16470 12037 0601 00 0 12047 STO ENDF4+2 F0E16480 12040 0074 00 2 14421 TSX SSJOB,2 SET SYSJOB AND GET FLAGBX $F0E16490 12041 0056 00 000200 RNT 200 IS EXECUTION REQUESTED F0E16500 12042 1 77775 4 12045 TXI ENDF4,4,-3 NO, DELETE 'EXECUTION DELETED' F0E16510 12043 0057 00 000200 RIR 200 YES, DELETE EXECUTION F0E16520 12044 0604 60 0 73660 STI* (FGBX) F0E16530 12045 -0634 00 4 12047 ENDF4 SXD *+2,4 INITIALIZE I/O COMMAND WORD COUNT F0E16540 12046 0074 00 4 04361 TSX FPRINT,4 *PRINT FINAL MESSAGE F0E16550 12047 0 00000 0 14113 PZE ERTIT+1,,** F0E16560 12050 -0534 00 4 04501 LXD WRIT1,4 LOAD ONLINE PRINT SWITCH F0E16570 12051 3 00000 4 12054 TXH *+3,4,0 IS ONLINE PRINT REQUESTED F0E16580 12052 0074 00 4 73611 TSX (PRNT),4 *YES, EJECT PAGE F0E16590 12053 0 00001 0 04154 PZE PGHDNG,,1 F0E16600 BINARY CARD NO. 9F050069 12054 -0520 00 0 03740 NZT ABSFLG IS THIS ASSEMBLY ABSOLUTE F0E16610 12055 -0520 00 0 04057 ERRRS NZT NOGOF NO, IS RELOCATABLE ASSEMBLY ERROR FREE F0E16620 12056 0020 00 0 12074 TRA ENDF5 YES F0E16630 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 195 PASS TWO CONTROL 12057 -0634 00 0 17265 SXD BNRECT,0 NO, DELETE TAPE NUMBER F0E16640 12060 0074 00 4 73606 TSX (TAPE),4 *ERASE OFFLINE OUTPUT F0E16650 12061 0 20000 0 17265 PZE BNRECT,,(SKBP) F0E16660 12062 0 77777 0 10327 PZE BOTTAP,,-1 F0E16670 12063 0074 00 4 73606 TSX (TAPE),4 *WRITE EPITAPH F0E16680 12064 0 40031 0 14133 PZE FAILD,,(WROW) F0E16690 12065 0 77777 0 10327 PZE BOTTAP,,-1 F0E16700 12066 0 00000 0 12067 PZE *+1 F0E16710 12067 -0520 00 0 03743 NZT CRDFLG ARE ONLINE CARDS REQUESTED F0E16720 12070 0020 00 0 12073 TRA *+3 NO F0E16730 12071 0074 00 4 73614 TSX (PNCH),4 *YES, PUNCH EPITAPH F0E16740 12072 0 00030 0 14135 PZE FAILD+2,,24 F0E16750 12073 0020 00 0 12143 TRA BIN05+3 F0E16760 12074 -0520 00 0 03743 ENDF5 NZT CRDFLG ARE ONLINE CARDS REQUESTED F0E16770 12075 0020 00 0 12143 TRA BIN05+3 NO F0E16780 12076 -0625 60 0 12123 STL* BIN01+3 YES, DELETE POSSIBLE HANGING END FILE F0E16790 OUTPUT CARDS ON LINE F0E16800 12077 0774 00 2 23240 BINCP AXT BOTTAB-24,2 RESET ORIGIN OF OUTPUT BUFFER F0E16810 12100 1 00030 2 12101 TXI *+1,2,24 BUMP TO ORIGIN OF NEXT CARD F0E16820 12101 0634 00 2 12106 SXA *+5,2 INITIALIZE I/O COMMAND LOAD POINT F0E16830 BINARY CARD NO. 9F050070 12102 0074 00 4 73606 TSX (TAPE),4 *READ INTERMEDIATE TAPE BINARY CARD IMAGE F0E16840 12103 0 40004 0 12106 PZE *+3,,(RBEP) F0E16850 12104 0 77777 0 10350 PZE BNTAP,,-1 F0E16860 12105 0 00000 0 12140 PZE BIN05 ALL DONE IN CASE OF ERROR F0E16870 12106 3 00030 0 00000 IORT **,,24 (NOP) F0E16880 12107 -0520 60 0 12123 NZT* BIN01+3 IS THIS END OF INTERMEDIATE TAPE F0E16890 12110 1 77720 2 12114 TXI BIN00,2,-48 YES, BUMP COUNT TO NUMBER OF CARDS READ F0E16900 12111 -3 73546 2 12100 TXL BINCP+1,2,TOPTAB-25 NO, IS BUFFER FULL F0E16910 12112 0074 00 4 73606 TSX (TAPE),4 *YES, CHECK LAST CARD READ F0E16920 12113 0 10000 0 00004 PZE TINTAP,,(CHKU) F0E16930 12114 -0634 00 2 12122 BIN00 SXD BIN01+2,2 SET END OF BUFFER TEST F0E16940 12115 0774 00 2 23270 AXT BOTTAB,2 RESET ORIGIN OF OUTPUT BUFFER F0E16950 12116 0634 00 2 12120 SXA *+2,2 TO BOTTOM OF TABLE SPACE F0E16960 12117 0074 00 4 73614 TSX (PNCH),4 *PUNCH CARD F0E16970 12120 -0 00030 0 00000 BIN01 MZE **,,24 (RESET TO PZE FOR ROW BINARY CARDS) F0E16980 12121 1 00030 2 12122 TXI *+1,2,24 BUMP TO ORIGIN OF NEXT CARD F0E16990 12122 -3 00000 2 12116 TXL *-4,2,** IS BUFFER EXHAUSTED F0E17000 12123 0520 00 0 73676 ZET (SCHU)+TINTAP YES, WAS END OF INTERMEDIATE TAPE SENSED F0E17010 12124 0020 00 0 12077 TRA BINCP NO F0E17020 END OF BINARY INTERMEDIATE TAPE SENSED F0E17030 12125 -0520 00 0 03737 NZT MAINPF IS THIS MAIN PROGRAM F0E17040 12126 0020 00 0 12134 TRA BIN04 NO F0E17050 12127 -0520 00 0 03740 NZT ABSFLG YES, IS ASSEMBLY ABSOLUTE F0E17060 BINARY CARD NO. 9F050071 12130 0520 00 0 03741 ZET ONLCFG NO, ARE COLUMN BINARY CARDS REQUESTED F0E17070 12131 0020 00 0 12134 TRA BIN04 YES F0E17080 12132 0074 00 4 73614 TSX (PNCH),4 *NO, PUNCH ROW BINARY TRANSFER CARD F0E17090 12133 0 00001 0 06472 PZE P4,,1 FOR GOOD RELOCATABLE ASSEMBLY OF MAIN PROGF0E17100 12134 0074 00 4 73614 BIN04 TSX (PNCH),4 *PUNCH TWO BLANK CARDS F0E17110 12135 0 00001 0 06407 PZE Q0,,1 F0E17120 12136 0074 00 4 73614 TSX (PNCH),4 * F0E17130 12137 0 00001 0 06407 PZE Q0,,1 F0E17140 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 196 PASS TWO CONTROL 12140 0074 00 4 73606 BIN05 TSX (TAPE),4 *REWIND INTERMEDIATE TAPE F0E17150 12141 0 20000 0 06771 PZE REWND,,(SKBP) F0E17160 12142 0 77777 0 10350 PZE BNTAP,,-1 F0E17170 12143 0074 00 4 04512 TSX WRFBK,4 *WRITE LAST PARTIAL LISTING BLOCK F0E17180 12144 0074 00 4 73606 TSX (TAPE),4 *CLOSE OUT MONITOR BINARY TAPE F0E17190 12145 0 10000 0 00007 PZE MBNTAP,,(CHKU) F0E17200 12146 0074 00 4 73606 TSX (TAPE),4 *CLOSE OUT MONITOR LISTING TAPE F0E17210 12147 0 10000 0 00006 PZE MLSTAP,,(CHKU) F0E17220 12150 0760 00 0 00140 SLF F0E17230 12151 0020 00 0 06357 TRA LOADER F0E17240 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 197 PASS TWO PSEUDOOPERATION PROCESSOR 12152 -0046 00 0 00000 PSOPT PIA RECALL TRANSFER ADDRESS F0E17260 12153 0771 00 0 00022 ARS 18 ISOLATE PASS TWO TRANSFER F0E17270 12154 0621 00 0 12155 STA *+1 INITIALIZE TRANSFER F0E17280 12155 0020 00 0 00000 TRA ** F0E17290 F0E17300 BINARY CARD NO. 9F050072 12156 -0625 00 0 04077 704OP STL 704FG SET 704 MODE F0E17310 12157 -0500 00 0 06443 CAL Q16384 LOAD TEST FOR 704 INSTRUCTION F0E17320 12160 0621 00 0 07362 STA IFLGS RESET TEST FOR PERMISSIBLE OPERATION F0E17330 12161 -0500 00 0 06441 CAL Q8192 LOAD TEST FOR 7090 INSTRUCTION F0E17340 12162 0560 00 0 06506 LDQ 9FLAG LOAD ERROR FLAG FOR 7090 INSTRUCTION F0E17350 12163 0020 00 0 12171 TRA 709OP+5 F0E17360 F0E17370 12164 0600 00 0 04077 709OP STZ 704FG RESET 704 MODE F0E17380 12165 -0500 00 0 06441 CAL Q8192 LOAD TEST FOR 7090 INSTRUCTION F0E17390 12166 0621 00 0 07362 STA IFLGS RESET TEST FOR PERMISSIBLE OPERATION F0E17400 12167 -0500 00 0 06443 CAL Q16384 LOAD TEST FOR 704 INSTRUCTION F0E17410 12170 0560 00 0 06505 LDQ 4FLAG LOAD ERROR FLAG FOR 704 INSTRUCTION F0E17420 12171 0621 00 0 07364 STA IFLGS+2 RESET TEST FOR PROHIBITED INSTRUCTION F0E17430 12172 0621 00 0 07366 STA IFLGS+4 F0E17440 12173 -0600 00 0 04145 STQ FLG49 RESET ERROR FLAG FOR PROHIBTD INSTRUCTION F0E17450 12174 -0500 00 0 03755 CAL CHRCTR LOAD FIRST CHARACTER IN VARIABLE FIELD F0E17460 12175 0322 00 0 06522 ERA BLANK IS IT BLANK F0E17470 12176 0602 00 0 04125 SLW ERRFF SET ERROR FLAG IF NOT F0E17480 12177 0074 00 4 07414 TSX PRNTC,4 *PRINT INPUT CARD F0E17490 12200 0020 00 0 11030 TRA READ1 F0E17500 F0E17510 12201 0074 00 4 10057 9LPOP TSX PUNCH,4 *PUNCH PARTIAL FUL, ABS, OR 9LP CARD F0E17520 12202 -0534 00 2 04012 LXD VRFLD,2 RELOAD WORD COUNT F0E17530 12203 0534 00 1 04012 LXA VRFLD,1 RELOAD CHARACTER COUNT F0E17540 BINARY CARD NO. 9F050073 12204 0074 00 4 04767 TSX SCANF,4 *EVALUATE PREFIX F0E17550 12205 1 00000 0 07340 TXI AFLAG,,0 NULL PREFIX PUNCH F0E17560 12206 -0760 00 0 00141 SLT EXPRR WAS PREFIX IN ERROR F0E17570 12207 0020 00 0 12211 TRA *+2 NO F0E17580 12210 -0625 00 0 04125 STL ERRFF YES, SET FLAG F0E17590 12211 0767 00 0 00041 ALS 33 SHIFT PUNCH INTO PREFIX F0E17600 12212 0630 00 0 04214 STP PBUFF1 INSERT IN 9L F0E17610 12213 0600 00 0 04043 STZ FULMD RESET FULL FLAG F0E17620 12214 -0625 00 0 04042 STL 9LPMD SET 9L FLAG F0E17630 12215 -0760 00 0 00144 SLT FLDND WAS END OF VARIABLE FIELD SENSED F0E17640 12216 -0625 00 0 04125 STL ERRFF NO, SET FLAG F0E17650 12217 0074 00 4 07414 TSX PRNTC,4 *PRINT INPUT CARD F0E17660 12220 0020 00 0 11030 TRA READ1 F0E17670 F0E17680 12221 -0520 00 0 04043 ABSOP NZT FULMD IS CARD FORMAT FULL F0E17690 12222 0520 00 0 04042 ZET 9LPMD NO, IS IT A CONTROL CARD F0E17700 12223 0020 00 0 12225 TRA *+2 YES F0E17710 12224 0020 00 0 12232 TRA ABS01 NO, IGNORE THIS CARD F0E17720 12225 0074 00 4 10057 TSX PUNCH,4 *PUNCH PARTIAL FUL CARD F0E17730 12226 0500 00 0 03760 CLA CDCTR INSERT CARD ORIGIN COUNTER F0E17740 12227 0601 00 0 04214 STO PBUFF1 IN LOAD ADDRESS F0E17750 12230 0600 00 0 04043 STZ FULMD RESET FUL FLAG F0E17760 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 198 PASS TWO PSEUDOOPERATION PROCESSOR 12231 0600 00 0 04042 STZ 9LPMD RESET CONTROL CARD FLAG F0E17770 BINARY CARD NO. 9F050074 12232 -0500 00 0 03755 ABS01 CAL CHRCTR LOAD FIRST CHARACTER IN VARIABLE FIELD F0E17780 12233 0322 00 0 06522 ERA BLANK IS IT BLANK F0E17790 12234 0602 00 0 04125 SLW ERRFF SET ERROR FLAG IF NOT F0E17800 12235 0074 00 4 07414 TSX PRNTC,4 *PRINT INPUT CARD F0E17810 12236 0020 00 0 11030 TRA READ1 F0E17820 F0E17830 12237 0074 00 4 07276 BCDOP TSX REFLC,4 *CHECK LOCATION COUNTER F0E17840 12240 -0500 00 0 04256 CAL BCDBF+1 LOAD CARD WORD 2 F0E17850 12241 -0320 00 0 06433 ANA Q63 MASK IN COLUMN 12 F0E17860 12242 -0340 00 0 06522 LAS BLANK IS IT BLANK F0E17870 12243 0020 00 0 12245 TRA *+2 NO F0E17880 12244 -0754 00 0 00000 PXD ,0 YES (FULL CARD) F0E17890 12245 0100 00 0 12307 TZE BCI02+2 NO, IS IT ZERO (FULL CARD) F0E17900 12246 -0340 00 0 06426 LAS Q10 NO, IS IT DIGIT F0E17910 12247 0020 00 0 12321 TRA BCERR **NO F0E17920 12250 0074 00 4 06312 TSX MACERR,4 **CHARACTER IS BCD 10 F0E17930 12251 0020 00 0 12310 TRA BCI02+3 YES F0E17940 F0E17950 12252 0074 00 4 07276 BCIOP TSX REFLC,4 *CHECK LOCATION COUNTER F0E17960 12253 -0500 00 0 03755 CAL CHRCTR LOAD FIRST CHARACTER F0E17970 12254 0100 00 0 14331 TZE BCI00 IS IT ZERO $F0E17980 12255 -0340 00 0 06520 LAS COMMA NO, IS IT COMMA (FULL CARD) F0E17990 12256 0020 00 0 12321 TRA BCERR **NO F0E18000 12257 0020 00 0 12305 TRA BCI02 YES F0E18010 BINARY CARD NO. 9F050075 12260 -0340 00 0 06426 LAS Q10 NO, IS IT DIGIT F0E18020 12261 0020 00 0 12321 TRA BCERR **NO F0E18030 12262 0074 00 4 06312 TSX MACERR,4 **CHARACTER IS BCD 10 F0E18040 12263 0401 00 0 12272 ADM BCIWD YES, COMPUTE ADDRESSES (24)F0E18050 12264 0621 00 0 12276 STA BCI01 ENDING ALPHANUMERIC FIELD (24)F0E18060 12265 0401 00 0 06410 ADM Q1 AND INITIALIZE STORING LOOP (24)F0E18070 12266 0621 00 0 12277 STA BCI01+1 (24)F0E18080 12267 0560 00 0 04012 LDQ VRFLD LOAD VARIABLE FIELD CHARACTER (24)F0E18090 12270 0204 17 0 06424 VLM Q6,,15 POSITION AND CONVERT TO BITS (24)F0E18100 12271 0763 00 0 00017 LLS 15 FOR AMOUNT OF SHIFT NECESSARY (24)F0E18110 12272 0734 00 1 04257 BCIWD PAX BCDBF+2,1 (THIS ADDRESS USED AS A CONSTANT) (24)F0E18120 12273 -3 77776 2 12275 TXL *+2,2,-2 DID VARIABLE FIELD BEGIN BY CC 12 (24)F0E18130 12274 1 00044 1 12275 TXI *+1,1,36 YES, ADJUST SHIFT (24)F0E18140 12275 0534 00 2 03755 LXA CHRCTR,2 LOAD COUNT OF BCI WORDS (24)F0E18150 12276 -0500 00 2 00000 BCI01 CAL **,2 LOAD FIRST PART OF WORD (24)F0E18160 12277 0560 00 2 00000 LDQ **,2 LOAD REMAINDER, IF ANY (24)F0E18170 12300 -0763 00 1 00066 LGL 54,1 POSITION IN AC (24)F0E18180 12301 0602 00 0 04004 SLW BINRY SET BINARY WORD (24)F0E18190 12302 0074 00 4 07470 TSX PRNTW,4 *LIST AND PUNCH THIS DATUM WORD (24)F0E18200 12303 2 00001 2 12276 TIX BCI01,2,1 IS CARD EXHAUSTED F0E18210 12304 0020 00 0 11030 TRA READ1 YES F0E18220 FIRST CHARACTER IS COMMA F0E18230 12305 3 00002 1 12321 BCI02 TXH BCERR,1,2 **IS COMMA IN CC 12 F0E18240 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 199 PASS TWO PSEUDOOPERATION PROCESSOR BINARY CARD NO. 9F050076 12306 -3 00001 1 12321 TXL BCERR,1,1 **NO F0E18250 REENTRY FOR BCD CARD OF TEN WORDS F0E18260 12307 0500 00 0 06426 CLA Q10 YES, SET WORD COUNT TO 10 WORDS F0E18270 REENTRY FOR BCD CARD OF FEWER THAN TEN WORDS F0E18280 12310 0734 00 1 00000 PAX ,1 LOAD CARD WORD COUNT $F0E18290 12311 0734 00 2 00000 PAX ,2 $F0E18295 12312 1 04257 1 12313 TXI *+1,1,BCDBF+2 COMPUTE ORIGIN AT END OF HOLLERITH FIELD F0E18300 12313 0634 00 1 12314 SXA *+1,1 F0E18310 12314 -0500 00 2 00000 CAL **,2 LOAD NEXT WORD F0E18320 12315 0602 00 0 04004 SLW BINRY SET BINARY WORD F0E18330 12316 0074 00 4 07470 TSX PRNTW,4 *LIST AND PUNCH THIS DATUM WORD F0E18340 12317 2 00001 2 12314 TIX *-3,2,1 IS CARD EXHAUSTED F0E18350 12320 0020 00 0 11030 TRA READ1 YES F0E18360 COUNT IS IN ERROR F0E18370 12321 -0625 00 0 04115 BCERR STL ERRFE SET ERROR FLAG F0E18380 12322 -0500 00 0 04176 CAL BLANKS DELETE ERROR WORD F0E18390 12323 0602 00 0 04004 SLW BINRY F0E18400 12324 0074 00 4 07470 TSX PRNTW,4 *LIST AND PUNCH THIS ERROR WORD F0E18410 12325 0020 00 0 11030 TRA READ1 F0E18420 F0E18430 12326 -0500 00 0 04273 BESOP CAL LITRL LOAD LENGTH,,DEFINITION F0E18440 12327 0100 00 0 12333 TZE BES01 IS THIS BSS/BES 0 F0E18450 12330 0771 00 0 00022 ARS 18 NO, RECALL LOCATION OF SYMBOL F0E18460 12331 0400 00 0 03761 ADD LOCTR COMPUTE LOCATION F0E18470 12332 0621 00 0 03762 STA ADDRS F0E18480 12333 0074 00 4 07263 BES01 TSX REFPP,4 *ENTER SYMBOL IN REF TABLE $F0E18490 BINARY CARD NO. 9F050077 12334 -0500 00 0 04273 CAL LITRL RECALL LENGTH OF BLOCK $F0E18500 12335 0074 00 4 06265 TSX BPCTR,4 *BUMP PROGRAM COUNTER $F0E18510 12336 0074 00 4 07276 TSX REFLC,4 *CHECK LOCATION COUNTER F0E18520 12337 0074 00 4 07422 TSX PRNTL,4 *PRINT LOCATION LEFT ADJUSTED F0E18530 12340 -0500 00 0 04273 CAL LITRL RELOAD LENGTH,,DEFINITION F0E18540 12341 0100 00 0 12343 TZE *+2 IS THIS BSS/BES 0 F0E18550 12342 0074 00 4 10057 TSX PUNCH,4 *NO, PUNCH PARTIAL CARD F0E18560 12343 0074 00 4 10513 TSX PAK01,4 UPDATE CARD ORIGIN IN CASE CARD WAS EMPTY F0E18570 12344 0020 00 0 11030 TRA READ1 F0E18580 F0E18590 12345 -0625 00 0 04062 BOLOP STL TYPDF SET BOOLEAN FLAG FOR PRINT ROUTINE F0E18600 12346 0074 00 4 07263 TSX REFPP,4 *SCAN VARIABLE FIELD F0E18610 REENTRY FOR TAPENO F0E18620 12347 0074 00 4 07320 TSX REFLP,4 *ENTER POINT OF DEFINITION IN SYM REF TABLEF0E18630 12350 -0500 00 0 04273 CAL LITRL SET SYMBOL DEFINITION F0E18640 12351 0602 00 0 03762 SLW ADDRS F0E18650 12352 0074 00 4 07441 TSX PRNTR,4 *PRINT INPUT CARD, DEFINITION RIGHT ADJUST F0E18660 12353 0020 00 0 11030 TRA READ1 F0E18670 F0E18680 12354 -0500 00 0 04255 ETCOP CAL BCDBF LOAD LOCATION FIELD F0E18690 12355 0322 00 0 04176 ERA BLANKS IS IT BLANK F0E18700 12356 0602 00 0 04125 SLW ERRFF SET ERROR FLAG IF NOT F0E18710 12357 -0500 00 0 04272 CAL BCDBF+13 LOAD FLAGS F0E18720 12360 -0320 00 0 06411 ANA Q2 MASK IN ETC FLAG F0E18730 12361 0602 00 0 04046 SLW ETCMD SET FLAG FOR NEXT CARD F0E18740 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 200 PASS TWO PSEUDOOPERATION PROCESSOR BINARY CARD NO. 9F050078 12362 0520 00 0 04054 ZET VFDMD IS ETC FOR VFD F0E18750 12363 0020 00 0 13577 TRA VFETC YES F0E18760 12364 0020 00 0 12400 TRA CLETC NO, IT IS FOR CALL F0E18770 F0E18780 12365 0074 00 4 07276 CALOP TSX REFLC,4 *CHECK LOCATION COUNTER F0E18790 12366 -0500 00 0 04272 CAL BCDBF+13 LOAD FLAGS F0E18800 12367 -0320 00 0 06411 ANA Q2 MASK IN ETC FLAG F0E18810 12370 0602 00 0 04046 SLW ETCMD SET FLAG FOR NEXT CARD F0E18820 12371 -0500 00 0 06450 CAL T4 SET CALLING LINKAGE ON XR4 F0E18830 12372 0602 00 0 04004 SLW BINRY FOR FIRST FIELD (SUBPROGRAM NAME) F0E18840 12373 0500 00 0 03761 CLA LOCTR SAVE CALLING LOCATION F0E18850 12374 -0320 00 0 06444 ANA ADDMK MASK OUT RELOCATION BITS F0E18860 12375 0601 00 0 04010 STO ERASE FOR STANDARD ERROR PROCEDURE F0E18870 12376 0020 00 0 14310 TRA CALP1 TEST FOR ABSOLUTE ASSEMBLY $F0E18880 12377 0020 00 0 12412 TRA CAL01 F0E18890 REENTRY AFTER COMMA OR ETC CARD F0E18900 12400 0074 00 4 06250 CLETC TSX C019A,4 *LOOK AT NEXT CHARACTER F0E18910 12401 0322 00 0 06522 ERA BLANK IS IT BLANK FOLLOWING COMMA F0E18920 12402 -0100 00 0 12412 TNZ CAL01 NO F0E18930 12403 0520 00 0 04046 ZET ETCMD YES, DOES ETC CARD FOLLOW F0E18940 12404 0020 00 0 13672 TRA VFD04+2 YES F0E18950 12405 -0500 00 0 12467 CAL TSXOC NO, CREATE NULL ARGUMENT F0E18960 12406 0602 00 0 04004 SLW BINRY F0E18970 12407 0600 00 0 04015 STZ INDIC F0E18980 BINARY CARD NO. 9F050079 12410 0074 00 4 07543 TSX PRNTI,4 *LIST AND PUNCH THIS INSTRUCTION F0E18990 12411 0020 00 0 12433 TRA CAL02 F0E19000 REENTRY TO ASSEMBLE SUBPROGRAM NAME, NEXT ARGUMENT F0E19010 12412 0074 00 4 04767 CAL01 TSX SCANF,4 *EVALUATE NEXT FIELD F0E19020 12413 1 00000 0 07340 TXI AFLAG,,0 NULL SUBPROGRAM NAME F0E19030 12414 -0501 00 0 12467 ORA TSXOC APPEND TSX F0E19040 12415 -0602 00 0 04004 ORS BINRY F0E19050 12416 -0760 00 0 00141 SLT EXPRR WAS ADDRESS IN ERROR F0E19060 12417 0020 00 0 12424 TRA *+5 NO F0E19070 12420 -0500 00 0 06522 CAL BLANK YES, BLANK OUT ADDRESS FIELD F0E19080 12421 0602 00 0 04253 SLW OCTAL+2 F0E19090 12422 -0500 00 0 04176 CAL BLANKS F0E19100 12423 0602 00 0 04254 SLW OCTAL+3 F0E19110 12424 -0500 00 0 04014 CAL RBITS INSERT RELOCATION BITS F0E19120 12425 0602 00 0 04015 SLW INDIC F0E19130 12426 0074 00 4 07543 TSX PRNTI,4 *LIST AND PUNCH THIS INSTRUCTION F0E19140 12427 0600 00 0 04023 STZ TVFLG RESET FLAG FOR TRANSFER VECTOR NAME F0E19150 12430 0600 00 0 04004 STZ BINRY DELETE TAG FOR FOLLOWING FIELDS (ARGS) F0E19160 12431 -0760 00 0 00144 SLT FLDND WAS END OF VARIABLE FIELD SENSED F0E19170 12432 0020 00 0 12400 TRA CLETC NO F0E19180 ETC MAY NOT FOLLOW F0E19190 12433 -0520 00 0 03751 CAL02 NZT SEPFLG IS STANDARD ERROR PROCEDURE REQUESTED F0E19200 12434 0020 00 0 12466 TRA CAL03 NO F0E19210 12435 0500 00 0 04010 CLA ERASE YES, LOAD LOCATION OF CALL F0E19220 BINARY CARD NO. 9F050080 12436 -0765 00 0 00014 LGR 12 ISOLATE FIRST DIGIT F0E19230 12437 0767 00 0 00022 ALS 18 F0E19240 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 201 PASS TWO PSEUDOOPERATION PROCESSOR 12440 0622 00 0 04004 STD BINRY IN FIRST WORD DECREMENT FIELD F0E19250 12441 -0754 00 0 00000 PXD ,0 DELETE FIRST DIGIT F0E19260 12442 -0763 00 0 00014 LGL 12 RECALL LOW ORDER FOUR DIGITS F0E19270 12443 0601 00 0 04001 STO SYMBL SAVE FOR SECOND WORD DECREMENT F0E19280 12444 0500 00 0 03761 CLA LOCTR LOAD * F0E19290 12445 0400 00 0 06411 ADD Q2 COMPUTE *+2 F0E19300 12446 0621 00 0 04004 STA BINRY INSERT IN FIRST WORD ADDRESS F0E19310 12447 -0500 00 0 06471 CAL P1 LOAD TXI OPERATION F0E19320 12450 0630 00 0 04004 STP BINRY INSERT IN FIRST WORD PREFIX F0E19330 12451 -0625 00 0 04060 STL TYPAF SET TYPE A INSTRUCTION FLAG F0E19340 12452 -0500 00 0 06411 CAL Q2 SET INSTRUCTION ADDRESS RELOCATABLE F0E19350 12453 0602 00 0 04015 SLW INDIC F0E19360 12454 0074 00 4 07543 TSX PRNTI,4 *LIST AND PUNCH INSTRUCTION F0E19370 12455 0560 00 0 04001 LDQ SYMBL RELOAD LOW ORDER FOUR DIGITS OF CALL LOC $F0E19380 12456 0074 00 4 07072 TSX OCTDV,4 *CONVERT TO DECIMAL $F0E19390 12457 0767 00 0 00022 ALS 18 SHIFT INTO DECREMENT F0E19400 12460 -0501 00 0 04041 ORA LINKG APPEND LINKAGE DIRECTOR IN ADDRESS F0E19410 12461 0601 00 0 04004 STO BINRY DELETE RELOCATION BIT 0 F0E19420 12462 0771 00 0 00042 ARS 34 REPOSITION RELOCATION BIT F0E19430 12463 0601 00 0 04015 STO INDIC F0E19440 BINARY CARD NO. 9F050081 12464 0074 00 4 07543 TSX PRNTI,4 *LIST AND PUNCH INSTRUCTION F0E19450 12465 0600 00 0 04060 STZ TYPAF RESET TYPE A INSTRUCTION FLAG F0E19460 12466 0020 00 0 11030 CAL03 TRA READ1 F0E19470 12467 0074 00 0 00000 TSXOC TSX ,0 F0E19480 F0E19490 12470 -0500 00 0 04273 COMOP CAL LITRL LOAD ADDRS,,UPCTR F0E19500 12471 0621 00 0 03762 STA ADDRS DEFINE SYMBOL LOCATION AT TOP OF BLOCK F0E19510 12472 0771 00 0 00022 ARS 18 F0E19520 12473 0441 00 0 04255 LDI BCDBF LOAD LOCATION FIELD F0E19530 12474 0440 00 0 04176 IIS BLANKS F0E19540 12475 0444 00 0 06475 OFT ALONE IS IT BLANK (COMMON DEFINITION) F0E19550 12476 0500 00 0 03762 CLA ADDRS NO, DEFINE SYMBOL LOCATION AT TOP OF BLOCKF0E19560 12477 0621 00 0 03762 STA ADDRS F0E19570 12500 0074 00 4 07263 TSX REFPP,4 *ENTER SYMBOL IN REF TABLE F0E19580 12501 0074 00 4 07320 TSX REFLP,4 *ENTER POINT OF DEFINITION IN SYM REF TABLEF0E19590 12502 0074 00 4 07441 TSX PRNTR,4 *PRINT INPUT CARD, LOCATION RIGHT ADJ F0E19600 12503 0020 00 0 11030 TRA READ1 F0E19610 F0E19620 12504 0074 00 4 07276 DECOP TSX REFLC,4 *CHECK LOCATION COUNTER F0E19630 12505 0074 00 4 05424 TSX DECCV,4 *CONVERT INTEGER TO DECIMAL F0E19640 12506 0601 00 0 04004 STO BINRY F0E19650 12507 0074 00 4 07462 TSX PRNTD,4 *LIST AND PUNCH INTEGER F0E19660 12510 -0760 00 0 00144 SLT FLDND WAS END OF VARIABLE FIELD SENSED F0E19670 12511 0020 00 0 12505 TRA DECOP+1 NO F0E19680 BINARY CARD NO. 9F050082 12512 0020 00 0 11030 TRA READ1 YES F0E19690 F0E19700 12513 -0520 00 0 04066 DETOP NZT UNLSF IS LISTING SUPPRESSED F0E19710 12514 0600 00 0 04067 STZ TITLF NO, RESET TITLE FLAG F0E19720 12515 0074 00 4 07406 TSX PRNCC,4 *PRINT CONTROL CARD F0E19730 12516 0020 00 0 11030 TRA READ1 F0E19740 F0E19750 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 202 PASS TWO PSEUDOOPERATION PROCESSOR 12517 0074 00 4 07276 DUPOP TSX REFLC,4 *CHECK LOCATION COUNTER F0E19760 12520 -0500 00 0 04273 CAL LITRL LOAD DUP RANGE,,ITERATIONS-1 F0E19770 12521 0100 00 0 12545 TZE DUP01 IS RANGE ZERO F0E19780 12522 0621 00 0 11003 STA DUPC1 NO, INITIALIZE RANGE F0E19790 12523 0621 00 0 04022 STA SKDUP SET LENGTH OF BACKSPACE F0E19800 12524 -0320 00 0 06444 ANA ADDMK DELETE ITERATIONS F0E19810 12525 0402 00 0 06410 SUB Q1 F0E19820 12526 0774 00 1 11036 AXT CNTRL,1 SET ONE CARD DUP TA TO AVOID BUFFERING F0E19830 12527 0100 00 0 12531 TZE *+2 IS DUP LONGER THAN ONE CARD F0E19840 12530 0774 00 1 11026 AXT READ0,1 YES, RESET TA TO INITIATE LOOKAHEAD BUFF F0E19850 12531 0634 00 1 11024 SXA DUPC3,1 F0E19860 12532 0400 00 0 06411 ADD Q2 F0E19870 12533 0621 00 0 10766 STA DUPCD INITIALIZE RANGE+1 F0E19880 12534 -0500 00 0 04273 CAL LITRL LOAD DUP RANGE,,ITERATIONS-1 F0E19890 12535 0771 00 0 00022 ARS 18 ISOLATE RANGE F0E19900 12536 0100 00 0 12545 TZE DUP01 IS ITERATION 0 OR 1 F0E19910 12537 0621 00 0 11017 STA DUPC2 NO, INITIALIZE ITERATIONS-1 F0E19920 BINARY CARD NO. 9F050083 12540 0774 00 4 00023 AXT 19,4 SET LENGTH OF LISTING LINE FOR F0E19930 12541 0634 00 4 10771 SXA DUPC0,4 FIRST ITERATION F0E19940 12542 0774 00 4 77777 AXT -1,4 RESET ONE CARD DUP ITERATION SWITCH F0E19950 12543 -0634 00 4 10774 SXD DUPC0+3,4 F0E19960 12544 -0625 00 0 04045 STL DUPMD SET DUP MODE FLAG F0E19970 12545 0074 00 4 07263 DUP01 TSX REFPP,4 *ENTER SYMBOL IN REF TABLE F0E19980 12546 0074 00 4 07441 TSX PRNTR,4 *PRINT INPUT CARD, LOCATION RIGHT ADJUST F0E19990 12547 0020 00 0 11030 TRA READ1 F0E20000 F0E20010 12550 -0520 00 0 04066 EJCOP NZT UNLSF IS LISTING SUPPRESSED F0E20020 12551 0634 00 0 04370 SXA PAGCNT,0 NO, RESET COUNT OF LINES REMAINING ON PAGEF0E20030 12552 0074 00 4 07406 TSX PRNCC,4 *PRINT CONTROL CARD F0E20040 12553 0020 00 0 11030 TRA READ1 F0E20050 F0E20060 12554 0520 00 0 04045 ENDOP ZET DUPMD IS THIS CARD WITHIN RANGE OF DUP F0E20070 12555 0020 00 0 13676 TRA PHASE **YES F0E20080 12556 -0520 00 0 03740 NZT ABSFLG NO, IS ASSEMBLY ABSOLUTE F0E20090 12557 0020 00 0 12573 TRA END01 NO F0E20100 12560 0074 00 4 04767 TSX SCANF,4 *YES, EVALUATE ADDRESS F0E20110 12561 1 00000 0 12577 TXI END02,,0 NULL TRANSFER ADDRESS F0E20120 12562 -0760 00 0 00141 SLT EXPRR WAS ADDRESS IN ERROR F0E20130 12563 0020 00 0 12565 TRA *+2 NO F0E20140 12564 0020 00 0 12577 TRA END02 YES F0E20150 12565 0601 00 0 03762 STO ADDRS F0E20160 BINARY CARD NO. 9F050084 12566 0601 00 0 04010 STO ERASE SAVE FOR TRANSFER CARD F0E20170 12567 -0760 00 0 00144 SLT FLDND WAS END OF VARIABLE FIELD SENSED F0E20180 12570 -0625 00 0 04125 STL ERRFF NO, SET FLAG F0E20190 12571 0074 00 4 07441 TSX PRNTR,4 *PRINT CARD, TRANSFER ADDRESS RIGHT ADJ F0E20200 12572 0020 00 0 11030 TRA READ1 F0E20210 12573 -0500 00 0 03755 END01 CAL CHRCTR LOAD FIRST CHARACTER IN VARIABLE FIELD F0E20220 12574 0322 00 0 06522 ERA BLANK IS IT BLANK F0E20230 12575 0100 00 0 12577 TZE END02 YES F0E20240 12576 -0625 00 0 04125 STL ERRFF NO, SET ERROR FLAG F0E20250 12577 -0634 00 0 11565 END02 SXD ENDFB,0 SET SWITCH TO OMIT TRANSFER CARD F0E20260 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 203 PASS TWO PSEUDOOPERATION PROCESSOR 12600 0074 00 4 07414 TSX PRNTC,4 *PRINT INPUT CARD F0E20270 12601 0020 00 0 11030 TRA READ1 F0E20280 F0E20290 12602 0500 00 0 03756 ENTOP CLA RESIDU LOAD ENTRY POINT NAME F0E20300 12603 0600 00 0 04010 STZ ERASE CLEAR WORKING STORAGE F0E20310 12604 0765 00 0 00036 LRS 30 LOAD FIRST CHARACTER F0E20320 12605 -0100 00 0 12612 TNZ ENT01 IS IT - (SECONDARY ENTRY POINT) F0E20330 12606 0601 00 0 04010 STO ERASE YES, SAVE IT F0E20340 12607 0765 00 0 00004 LRS 4 CHANGE TO + FOR SCAN F0E20350 12610 -0765 00 0 00001 LGR 1 F0E20360 12611 -0600 00 0 03756 STQ RESIDU F0E20370 REENTRY FOR PRIMARY ENTRY POINT NAMES F0E20380 12612 0600 00 0 04001 ENT01 STZ SYMBL RESET NAME FOR BLANK VARIABLE FIELD F0E20390 12613 0074 00 4 04767 TSX SCANF,4 *EVALUATE ENTRY POINT NAME F0E20400 BINARY CARD NO. 9F050085 12614 1 00000 0 07340 TXI AFLAG,,0 NULL ENTRY POINT NAME F0E20410 12615 0074 00 4 06224 TSX LADJS,4 *LEFT ADJUST ENTRY POINT NAME F0E20420 12616 -0130 00 0 00000 XCL F0E20430 12617 -0500 00 0 03751 CAL SEPFLG LOAD STANDARD ERROR PROCEDURE FLAG F0E20440 12620 0322 00 0 06475 ERA ALONE IS IT OFF, OR HAS IT BEEN INITIALIZED F0E20450 12621 -0100 00 0 12623 TNZ *+2 YES F0E20460 12622 0020 00 0 14325 TRA ENTPC NO $F0E20470 12623 -0600 00 0 04004 STQ BINRY F0E20480 12624 -0754 00 0 00000 PXD ,0 F0E20490 12625 -0763 00 0 00003 LGL 3 LOAD ZONE BITS OF FIRST CHARACTER F0E20500 12626 -0760 00 0 00141 SLT EXPRR IS SYMBOL IN ERROR F0E20510 12627 0020 00 0 12631 TRA *+2 NO F0E20520 12630 0020 00 0 12650 TRA ENT02 YES F0E20530 12631 -0520 00 0 04004 NZT BINRY IS ENTRY EXPLICIT ZERO (MAIN PROGRAM) F0E20540 12632 0020 00 0 12635 TRA *+3 YES F0E20550 12633 -0520 00 0 04040 NZT VARUR NO, IS NAME RELOCATABLE F0E20560 12634 -0625 00 0 04111 STL ERRFR NO, SET ERROR FLAG F0E20570 12635 0074 00 4 10073 TSX STORE,4 *INSERT NAME ON PROGRAM CARD F0E20580 12636 -0500 00 0 04036 CAL VAREQ COMBINE LOCATION OF ENTRY POINT F0E20590 12637 -0501 00 0 04010 ORA ERASE WITH SECONDARY FLAG F0E20600 12640 -0520 00 0 04004 NZT BINRY IS NAME EXPLICIT ZERO F0E20610 12641 -0500 00 0 03754 CAL PROLG YES, SET MAIN ENTRY POINT TO FIRST INSTR F0E20620 BINARY CARD NO. 9F050086 12642 0602 00 0 04004 SLW BINRY F0E20630 12643 0621 00 0 03762 STA ADDRS F0E20640 12644 0074 00 4 10073 TSX STORE,4 *INSERT LOCATION ON PROGRAM CARD F0E20650 12645 -0760 00 0 00144 SLT FLDND WAS END OF VARIABLE FIELD SENSED F0E20660 12646 -0625 00 0 04125 STL ERRFF NO, SET ERROR FLAG F0E20670 12647 0020 00 0 12652 TRA ENT02+2 F0E20680 12650 -0520 00 0 04107 ENT02 NZT ERRFU IS SYMBOL UNDEFINED F0E20690 12651 -0625 00 0 04112 STL ERRFP NO, SET PHASE ERROR FLAG F0E20700 12652 0074 00 4 07441 TSX PRNTR,4 *PRINT INPUT CARD, ENTRY POINT RIGHT ADJ F0E20710 12653 0020 00 0 11030 TRA READ1 F0E20720 F0E20730 12654 0074 00 4 10057 FULOP TSX PUNCH,4 *PUNCH PARTIAL ABS, FUL OR 9LP CARD F0E20740 12655 0600 00 0 04042 STZ 9LPMD RESET 9LP FLAG F0E20750 12656 -0625 00 0 04043 STL FULMD SET FLAG FOR CARDS FUL FORMAT F0E20760 12657 -0500 00 0 03755 CAL CHRCTR LOAD FIRST CHARACTER IN VARIABLE FIELD F0E20770 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 204 PASS TWO PSEUDOOPERATION PROCESSOR 12660 0322 00 0 06522 ERA BLANK IS IT BLANK F0E20780 12661 0602 00 0 04125 SLW ERRFF SET ERROR FLAG IF NOT F0E20790 12662 0074 00 4 07414 TSX PRNTC,4 *PRINT INPUT CARD F0E20800 12663 0020 00 0 11030 TRA READ1 F0E20810 F0E20820 12664 -0500 00 0 04273 HEDOP CAL LITRL LOAD HEADING CHARACTER F0E20830 12665 0602 00 0 03776 SLW BHEAD RESET HEADING CHARACTER F0E20840 12666 0074 00 4 07414 TSX PRNTC,4 *PRINT INPUT CARD F0E20850 12667 0020 00 0 11030 TRA READ1 F0E20860 F0E20870 PREPARE FIRST WORD STL* (EOF) F0E20880 BINARY CARD NO. 9F050087 12670 0074 00 4 07276 IFEOP TSX REFLC,4 *CHECK LOCATION COUNTER F0E20890 12671 -0500 00 0 12732 CAL STLIC SET BINARY WORD TO STL* F0E20900 12672 0602 00 0 04004 SLW BINRY F0E20910 12673 -0500 00 0 06411 CAL Q2 SET ADDRESS DIRECTLY RELOCATABLE F0E20920 12674 0602 00 0 04015 SLW INDIC F0E20930 12675 -0500 00 0 12731 CAL R(EOF SET NAME OF SUBROUTINE F0E20940 12676 0602 00 0 04001 SLW SYMBL F0E20950 12677 0074 00 4 07152 TSX SSYMT,4 *EVALUATE LOCATION IN TRANSFER VECTOR F0E20960 12700 -0760 00 0 00141 SLT EXPRR IS SYMBOL UNDEFINED F0E20970 12701 0020 00 0 12703 TRA *+2 NO F0E20980 12702 0074 00 4 06312 TSX MACERR,4 **YES F0E20990 12703 0621 00 0 04004 STA BINRY F0E21000 12704 0074 00 4 07543 TSX PRNTI,4 *LIST AND PUNCH THIS INSTRUCTION F0E21010 PREPARE SECOND WORD NOP ADDR F0E21020 12705 -0500 00 0 12733 CAL NOPOC SET BINARY OPCODE TO NOP F0E21030 12706 0602 00 0 04004 SLW BINRY F0E21040 12707 0074 00 4 04767 TSX SCANF,4 *EVALUATE TRANSFER ADDRESS F0E21050 12710 1 00000 0 07340 TXI AFLAG,,0 NULL TRANSFER ADDRESS F0E21060 12711 0621 00 0 04004 STA BINRY F0E21070 12712 0560 00 0 04014 LDQ RBITS SET ADDRESS RELOCATION BITS F0E21080 12713 -0600 00 0 04015 STQ INDIC F0E21090 12714 0100 00 0 12717 TZE *+3 IS TRANSFER ADDRESS 0 (TO BE INITIALIZED) F0E21100 12715 -0520 00 0 04040 NZT VARUR NO, IS TRANSFER ADDRESS RELOCATABLE F0E21110 BINARY CARD NO. 9F050088 12716 -0625 00 0 04111 STL ERRFR NO, SET ERROR FLAG F0E21120 12717 -0760 00 0 00141 SLT EXPRR WAS ADDRESS IN ERROR F0E21130 12720 0020 00 0 12725 TRA IFE01 NO F0E21140 12721 -0500 00 0 06522 CAL BLANK BLANK OUT OCTAL LISTING F0E21150 12722 0602 00 0 04253 SLW OCTAL+2 F0E21160 12723 -0500 00 0 04176 CAL BLANKS F0E21170 12724 0602 00 0 04254 SLW OCTAL+3 F0E21180 12725 -0760 00 0 00144 IFE01 SLT FLDND WAS END OF VARIABLE FIELD SENSED F0E21190 12726 -0625 00 0 04125 STL ERRFF NO, SET FLAG F0E21200 12727 0074 00 4 07543 TSX PRNTI,4 *LIST AND PRINT THIS INSTRUCTION F0E21210 12730 0020 00 0 11030 TRA READ1 F0E21220 12731 007425462634 R(EOF BCI 1,0(EOF) F0E21230 12732 -0625 60 0 00000 STLIC STL* 0 F0E21240 12733 0761 00 0 00000 NOPOC NOP F0E21250 F0E21260 12734 3 77777 4 12742 INXOP TXH INX01,4,-1 HAS TITLE BEEN WRITTEN F0E21270 12735 -0634 00 0 12734 SXD INXOP,0 NO, RESET SWITCH F0E21280 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 205 PASS TWO PSEUDOOPERATION PROCESSOR 12736 0074 00 4 07676 TSX PRLST,4 *PRINT BLANK LINE F0E21290 12737 0 00000 0 00000 PZE F0E21300 12740 0074 00 4 07676 TSX PRLST,4 *PRINT INDEX TITLE F0E21310 12741 0 00006 0 13754 PZE INTIT,,6 (26)F0E21320 12742 0074 00 4 07406 INX01 TSX PRNCC,4 *PRINT CONTROL CARD F0E21330 12743 -0534 00 2 04012 LXD VRFLD,2 RELOAD WORD COUNT F0E21340 BINARY CARD NO. 9F050089 12744 0534 00 1 04012 LXA VRFLD,1 RELOAD CHARACTER COUNT F0E21350 12745 0074 00 4 04767 TSX SCANF,4 *EVALUATE NEXT EXPRESSION (26)F0E21360 12746 1 00000 0 11030 TXI READ1,,0 ALL DONE F0E21370 12747 0074 00 4 06224 TSX LADJS,4 LEFT ADJUST SYMBOL (26)F0E21380 12750 0602 00 0 14441 SLW INX02+1 (26)F0E21390 12751 0020 00 0 12754 TRA *+3 (26)F0E21400 12752 0 00000 0 00000 PZE (NOT USED) (26)F0E21410 12753 0 00000 0 00000 PZE (NOT USED) (26)F0E21420 12754 -0500 00 0 04176 CAL BLANKS F0E21430 12755 0602 00 0 14442 SLW INX02+2 (26)F0E21440 12756 -0500 00 0 04036 CAL VAREQ LOAD SYMBOL DEFINITION (26)F0E21450 12757 0074 00 4 10542 TSX SHIFT,4 *CONVERT TO OCTAL F0E21460 12760 -0760 00 0 00141 SLT EXPRR WAS DEFINITION IN ERROR F0E21470 12761 0602 00 0 14442 SLW INX02+2 NO, SET SYMBOL DEFINITION (26)F0E21480 12762 0774 00 4 00010 AXT ERRFB-ERRFU+1,4 LOAD LENGTH OF FATAL ERROR LIST F0E21490 12763 0520 00 4 04117 ZET ERRFB+1,4 IS A FATAL ERROR FLAGGED F0E21500 12764 -0625 00 0 04125 STL ERRFF YES, RAP KNUCKLES F0E21510 12765 0600 00 4 04117 STZ ERRFB+1,4 THROW OUT THE LIFE LINE F0E21520 12766 2 00001 4 12763 TIX *-3,4,1 IS FATAL ERROR LIST EXHAUSTED F0E21530 12767 0634 00 2 12772 SXA *+3,2 YES, SAVE WORD COUNT F0E21540 12770 0074 00 4 07676 TSX PRLST,4 *LIST SYMBOL AND DEFINITION F0E21550 12771 0 00006 0 14440 PZE INX02,,6 (26)F0E21560 BINARY CARD NO. 9F050090 12772 0774 00 2 00000 AXT **,2 RELOAD WORD COUNT F0E21570 12773 0020 00 0 12745 TRA INX01+3 F0E21580 F0E21590 12774 0774 00 4 00003 LBLOP AXT 3,4 RESTORE LABEL TO I/O PARAMETER F0E21600 12775 -0634 00 4 07034 SXD BOTIO,4 F0E21610 12776 -0634 00 4 07036 SXD BOTIO+2,4 F0E21620 12777 -0625 00 0 03744 STL LBLFLG SET BINARY CARD LABEL FLAG F0E21630 13000 0074 00 4 06126 TSX SSCAN,4 *ASSEMBLE NEW SERIALIZATION F0E21640 13001 1 00000 0 14463 TXI K003,,0 NULL SERIALIZATION ON LBL CARD. SEE (32)F0E21650 * IF PROGRAM CARD HAS BEEN PUNCHED YET.(32)F0E21651 13002 -0760 00 0 00141 SLT EXPRR WAS SERIALIZATION IN ERROR F0E21660 13003 -0760 00 0 00142 SLT EXPND NO, DID SERIALIZATION END WITH OPERATION F0E21670 13004 0020 00 0 13016 TRA LBL01 YES, DELETE LABEL F0E21680 13005 -0500 00 0 04000 CAL SYMB2 NO, RELOAD SERIALIZATION F0E21690 13006 0560 00 0 04001 LDQ SYMBL F0E21700 13007 -0520 00 0 04001 NZT SYMBL IS LOW ORDER PORTION ZERO F0E21710 13010 0100 00 0 13020 TZE LBL01+2 YES, IS HIGH ORDER PORTION ZERO F0E21720 13011 -0340 00 0 13061 LAS FCMSK NO, IS SYMBOL LEFT ADJUSTED F0E21730 13012 0020 00 0 13020 TRA LBL01+2 YES F0E21740 13013 0761 00 0 00000 NOP NO (MACHINE ERROR) F0E21750 13014 -0763 00 0 00006 LGL 6 LEFT ADJUST SERIALIZATION ONE CHARACTER F0E21760 13015 0020 00 0 13011 TRA *-4 F0E21770 SERIALIZATION IN ERROR F0E21780 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 206 PASS TWO PSEUDOOPERATION PROCESSOR 13016 0760 00 0 00141 LBL01 SLN EXPRR SET ERROR FLAG F0E21790 13017 -0763 00 0 00112 LGL 74 DELETE LABEL F0E21800 SERIALIZATION CORRECT F0E21810 BINARY CARD NO. 9F050091 13020 0602 00 0 04005 SLW NERAS SAVE HIGH ORDER PORTION OF LABEL F0E21820 13021 -0600 00 0 04007 STQ BERAS SAVE LOW ORDER PORTION OF LABEL F0E21830 13022 0074 00 4 06126 TSX SSCAN,4 *ASSEMBLE CONTROL CHARACTER F0E21840 13023 1 00000 0 13024 TXI *+1,,0 NULL CONTROL CHARACTER F0E21850 13024 -0500 00 0 04001 CAL SYMBL LOAD CONTROL CHARACTER F0E21860 13025 -0760 00 0 00141 SLT EXPRR WAS CHARACTER (OR SERIALIZATION) IN ERROR F0E21870 13026 -0760 00 0 00142 SLT EXPND NO, DID CHARACTER END WITH OPERATION F0E21880 13027 -0754 00 0 00000 PXD ,0 YES, DELETE LISTING F0E21890 13030 0602 00 0 04006 SLW XERAS F0E21900 13031 -3 77777 4 13033 LBL02 TXL *+2,4,-1 HAS PROGRAM CARD BEEN PUNCHED F0E21910 13032 0074 00 4 10057 TSX PUNCH,4 *YES, PUNCH LAST PARTIAL CARD F0E21920 13033 -0500 00 0 04006 CAL XERAS SET LISTING LABEL FLAG F0E21930 13034 0602 00 0 04070 SLW LBLFG F0E21940 13035 -0100 00 0 13037 TNZ *+2 IS SERIALIZATION LISTING FLAG ON F0E21950 13036 -0634 00 0 10074 SXD STORE+1,0 NO, RESET CARD SERIAL NO LISTING SWITCH F0E21960 13037 -0500 00 0 04005 CAL NERAS RELOAD LABEL F0E21970 13040 0560 00 0 04007 LDQ BERAS F0E21980 13041 0074 00 4 10366 TSX IDENT,4 *CREATE CARD LABEL F0E21990 13042 -0760 00 0 00144 SLT FLDND WAS END OF VARIABLE FIELD SENSED F0E22000 13043 0020 00 0 13046 TRA *+3 NO F0E22010 13044 0074 00 4 07406 TSX PRNCC,4 *PRINT CONTROL CARD F0E22020 13045 0020 00 0 11030 TRA READ1 F0E22030 BINARY CARD NO. 9F050092 13046 -0625 00 0 04125 STL ERRFF YES, SET ERROR FLAG F0E22040 13047 0074 00 4 07414 TSX PRNTC,4 *PRINT INPUT CARD AND ERROR FLAG F0E22050 13050 0020 00 0 11030 TRA READ1 F0E22060 TURN OFF BINARY CARD LABELLING F0E22070 13051 0074 00 4 10057 LBL03 TSX PUNCH,4 *FORCE PUNCHING OF LAST LABELED CARD F0E22080 13052 -0634 00 0 07034 SXD BOTIO,0 DELETE CARD LABEL FROM I/O COMMAND F0E22090 13053 -0634 00 0 07036 SXD BOTIO+2,0 F0E22100 13054 0600 00 0 03744 STZ LBLFLG RESET LABEL FLAG F0E22110 13055 0600 00 0 04070 STZ LBLFG RESET LABEL LISTING FLAG F0E22120 13056 -0634 00 0 10074 SXD STORE+1,0 RESET LABEL LISTING SWITCH F0E22130 13057 0074 00 4 07406 TSX PRNCC,4 *PRINT CONTROL CARD F0E22140 13060 0020 00 0 11030 TRA READ1 F0E22150 13061 +007777777777 FCMSK OCT 007777777777 F0E22160 F0E22170 13062 0600 00 0 04066 LSTOP STZ UNLSF RESET UNLIST FLAGS F0E22180 13063 0600 00 0 04065 STZ UNL1F F0E22190 13064 0074 00 4 07676 TSX PRLST,4 *PRINT BLANK LINE F0E22200 13065 0 00000 0 00000 PZE F0E22210 13066 0074 00 4 07406 TSX PRNCC,4 *PRINT CONTROL CARD F0E22220 13067 0020 00 0 11030 TRA READ1 F0E22230 F0E22240 F0E22250 EVALUATE LITERAL F0E22260 13070 0441 00 0 04272 LITOP LDI BCDBF+13 LOAD FLAGS F0E22270 13071 0056 00 000010 RNT 10 WAS LITERAL IN ERROR F0E22280 13072 0020 00 0 13076 TRA *+4 NO F0E22290 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 207 PASS TWO PSEUDOOPERATION PROCESSOR 13073 -0625 00 0 04113 STL ERRFL YES, SET LITERAL ERROR FLAG F0E22300 BINARY CARD NO. 9F050093 13074 0074 00 4 06211 TSX SCEND,4 *SCAN PAST LITERAL IN ERROR F0E22310 13075 0020 00 0 11346 TRA INT05 F0E22320 LITERAL IS NOT IN ERROR F0E22330 13076 0074 00 4 06237 TSX C0190,4 *DELETE EQUAL SIGN F0E22340 13077 0074 00 4 06250 TSX C019A,4 *LOOK AT NEXT CHARACTER F0E22350 13100 0322 00 0 06514 ERA QH IS LITERAL HOLLERITH F0E22360 13101 -0100 00 0 13115 TNZ LIT02 NO F0E22370 LITERAL IS HOLLERITH, DELETE FIRST 8 CHARACTERS F0E22380 13102 0774 00 4 00000 LIT01 AXT **,4 LOAD CHARACTER COUNT (INITIALLY 0) F0E22390 13103 1 00001 4 13104 TXI *+1,4,1 BUMP F0E22400 13104 0634 00 4 13102 SXA LIT01,4 F0E22410 13105 3 00010 4 13110 TXH *+3,4,8 HAVE 8 CHARACTERS BEEN DELETED F0E22420 13106 0074 00 4 06237 TSX C0190,4 *NO, DELETE ONE MORE F0E22430 13107 0020 00 0 13102 TRA LIT01 F0E22440 END OF HOLLERITH LITERAL F0E22450 13110 0634 00 0 13102 SXA LIT01,0 RESET CHARACTER COUNT F0E22460 13111 0322 00 0 06522 ERA BLANK IS THIS END OF VARIABLE FIELD F0E22470 13112 -0100 00 0 13114 TNZ *+2 NO F0E22480 13113 0760 00 0 00144 SLN FLDND YES, SET FLAG F0E22490 13114 0020 00 0 13116 TRA LIT02+1 F0E22500 REENTRY FOR NUMERIC LITERAL F0E22510 13115 0074 00 4 06211 LIT02 TSX SCEND,4 *SCAN PAST LITERAL F0E22520 SEARCH LITERAL TABLE F0E22530 13116 -0500 00 0 04273 CAL LITRL LOAD LITERAL F0E22540 13117 0634 00 1 13167 SXA SLIT3+3,1 SAVE CHARACTER COUNT F0E22550 13120 0634 00 2 13166 SXA SLIT3+2,2 SAVE WORD COUNT F0E22560 13121 0534 00 2 03752 LXA LITSIZ,2 LOAD LOGARITHM OF TABLE LENGTH F0E22570 BINARY CARD NO. 9F050094 13122 0774 00 1 00000 AXT 0,1 LOAD LOCATION OF FIRST WORD IN TABLE F0E22580 13123 0522 00 2 13157 XEC SLIT2+1,2 BUMP TO MIDDLE OF TABLE F0E22590 REENTRY AFTER BINARY HOP F0E22600 13124 -3 00000 1 13130 SLIT1 TXL *+4,1,** IS SEARCH PAST UPPER END OF LITERAL TABLE F0E22610 13125 -0340 00 1 65600 LAS LITTBL-1,1 NO, IS IT THIS LITERAL F0E22620 13126 1 77776 2 13157 TXI SLIT2+1,2,-2 NO, LARGER - GO LOOK HIGHER F0E22630 13127 1 00001 1 13160 TXI SLIT2+2,1,1 YES F0E22640 13130 1 77776 2 13156 TXI SLIT2,2,-2 NO, SMALLER - GO LOOK LOWER F0E22650 F0E22660 13131 1 77000 1 13124 TXI SLIT1,1,-512 (MAXIMUM TABLE SIZE = 1024 LITERALS) F0E22670 13132 1 00400 1 13124 TXI SLIT1,1,+256 F0E22680 13133 1 77400 1 13124 TXI SLIT1,1,-256 F0E22690 13134 1 00200 1 13124 TXI SLIT1,1,+128 F0E22700 13135 1 77600 1 13124 TXI SLIT1,1,-128 F0E22710 13136 1 00100 1 13124 TXI SLIT1,1,+64 F0E22720 13137 1 77700 1 13124 TXI SLIT1,1,-64 F0E22730 13140 1 00040 1 13124 TXI SLIT1,1,+32 F0E22740 13141 1 77740 1 13124 TXI SLIT1,1,-32 F0E22750 13142 1 00020 1 13124 TXI SLIT1,1,+16 F0E22760 13143 1 77760 1 13124 TXI SLIT1,1,-16 F0E22770 13144 1 00010 1 13124 TXI SLIT1,1,+8 F0E22780 13145 1 77770 1 13124 TXI SLIT1,1,-8 F0E22790 13146 1 00004 1 13124 TXI SLIT1,1,+4 F0E22800 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 208 PASS TWO PSEUDOOPERATION PROCESSOR 13147 1 77774 1 13124 TXI SLIT1,1,-4 F0E22810 BINARY CARD NO. 9F050095 13150 1 00002 1 13124 TXI SLIT1,1,+2 F0E22820 13151 1 77776 1 13124 TXI SLIT1,1,-2 F0E22830 13152 1 00001 1 13124 TXI SLIT1,1,+1 F0E22840 13153 1 77777 1 13124 TXI SLIT1,1,-1 F0E22850 13154 0761 00 0 00000 NOP NOT FOUND F0E22860 13155 0074 00 4 06312 TSX MACERR,4 **NOT FOUND F0E22870 13156 0522 00 2 13156 SLIT2 XEC *,2 BUMP LOCATION OF LITERAL LOWER BY HALF F0E22880 13157 0522 00 2 13157 XEC *,2 BUMP LOCATION OF LITERAL HIGHER BY HALF F0E22890 LITERAL IS FOUND F0E22900 13160 -0500 00 0 06411 CAL Q2 SET ADDRESS RELOCATABLE F0E22910 13161 0602 00 0 04014 SLW RBITS F0E22920 13162 0634 00 1 13163 SXA *+1,1 COMPUTE POSITION IN LITERAL TABLE F0E22930 13163 -0774 00 1 00000 AXC **,1 F0E22940 13164 1 00000 1 13165 SLIT3 TXI *+1,1,** BUMP BY ORIGIN OF LITERAL TABLE F0E22950 13165 0754 00 1 00000 PXA ,1 F0E22960 13166 0774 00 2 00000 AXT **,2 RELOAD CARD WORD COUNT F0E22970 13167 0774 00 1 00000 AXT **,1 RELOAD CARD CHARACTER COUNT F0E22980 13170 0020 00 0 11357 TRA INT06 F0E22990 F0E23000 13171 -0500 00 0 04273 LOCOP CAL LITRL LOAD NEW ORIGIN F0E23010 13172 0400 00 0 03754 ADD PROLG RELOCATE UPWARDS BY LENGTH OF F0E23020 13173 0602 00 0 03762 SLW ADDRS VECTOR AND LINKAGE DIRECTOR, IF ANY F0E23030 13174 0621 00 0 03761 STA LOCTR REDEFINE PROGRAM COUNTER F0E23040 13175 0074 00 4 07263 TSX REFPP,4 *ENTER SYMBOL IN REF TABLE F0E23050 BINARY CARD NO. 9F050096 13176 0074 00 4 07276 TSX REFLC,4 *CHECK LOCATION COUNTER F0E23060 13177 0074 00 4 07441 TSX PRNTR,4 *PRINT INPUT CARD, DEFINITION RIGHT ADJUST F0E23070 13200 0020 00 0 11030 TRA READ1 F0E23080 F0E23090 13201 -0500 00 0 04273 MAXOP CAL LITRL LOAD SYMBOL DEFINITION F0E23100 13202 0044 00 0 00000 PAI F0E23110 13203 -0054 00 000001 LFT 1 IS SYMBOL RELOCATABLE F0E23120 13204 -0054 00 000004 LFT 4 YES, IS IT ABOVE THE TRANSFER VECTOR F0E23130 13205 0020 00 0 13207 TRA *+2 NO F0E23140 13206 0400 00 0 03754 ADD PROLG YES, RELOCATE DEFINITION UPWARD F0E23150 13207 0602 00 0 03762 SLW ADDRS BY LENGTH OF VECTOR AND LINKAGE DIRECTOR F0E23160 13210 0074 00 4 07263 TSX REFPP,4 *ENTER SYMBOL IN REF TABLE F0E23170 13211 0074 00 4 07320 TSX REFLP,4 *ENTER POINT OF DEFINITION IN SYM REF TABLEF0E23180 13212 0074 00 4 07441 TSX PRNTR,4 *PRINT INPUT CARD, DEFINITION RIGHT ADJUST F0E23190 13213 0020 00 0 11030 TRA READ1 F0E23200 F0E23210 13214 -0500 00 0 04273 MCERR CAL LITRL INSERT PASS ONE ERROR FLAG F0E23220 13215 0602 00 0 04250 SLW PFLAG INTO LEFT HAND MARGIN OF LISTING F0E23230 13216 0322 00 0 06510 ERA MFLAG IS THIS MULTIPLY DEFINED MACRO F0E23240 13217 0100 00 0 13221 TZE *+2 YES F0E23250 13220 -0625 00 0 04057 STL NOGOF NO, SET FATAL ERROR FLAG F0E23260 13221 -0500 00 0 04176 CAL BLANKS BLANK OUT OCTAL LISTING F0E23270 13222 0602 00 0 04251 SLW OCTAL F0E23280 13223 0602 00 0 04252 SLW OCTAL+1 F0E23290 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 209 PASS TWO PSEUDOOPERATION PROCESSOR BINARY CARD NO. 9F050097 13224 0602 00 0 04253 SLW OCTAL+2 F0E23300 13225 0602 00 0 04254 SLW OCTAL+3 F0E23310 13226 0074 00 4 07770 TSX LEVEL,4 *INSERT MACRO LEVEL IN CC 81 - 84 F0E23320 13227 0074 00 4 04361 TSX FPRINT,4 *PRINT CARD IN ERROR F0E23330 13230 0 00023 0 04250 PZE PFLAG,,19 F0E23340 13231 0600 00 0 04251 STZ OCTAL CLEAR OCTAL EXPANSION F0E23350 13232 0600 00 0 04252 STZ OCTAL+1 F0E23360 13233 0600 00 0 04253 STZ OCTAL+2 F0E23370 13234 0600 00 0 04254 STZ OCTAL+3 F0E23380 13235 0020 00 0 11030 TRA READ1 F0E23390 F0E23400 13236 0074 00 4 07276 OCTOP TSX REFLC,4 *CHECK LOCATION COUNTER F0E23410 13237 0074 00 4 05373 TSX OCTCV,4 *CONVERT INTEGER TO OCTAL F0E23420 13240 0602 00 0 04004 SLW BINRY F0E23430 13241 0074 00 4 07462 TSX PRNTD,4 *LIST AND PUNCH INTEGER F0E23440 13242 -0760 00 0 00144 SLT FLDND WAS END OF VARIABLE FIELD SENSED F0E23450 13243 0020 00 0 13237 TRA OCTOP+1 NO F0E23460 13244 0020 00 0 11030 TRA READ1 YES F0E23470 F0E23480 13245 -0500 00 0 04176 OPDOP CAL BLANKS SET LOCATION FIELD BLANK F0E23490 13246 0602 00 0 04251 SLW OCTAL F0E23500 13247 0441 00 0 04273 LDI LITRL LOAD OCTAL DEFINITION F0E23510 13250 -0625 00 0 04060 STL TYPAF SET TYPE A FLAG FOR PSEUDOOPERATION F0E23520 13251 0054 00 100000 RFT 100000 IS THIS A MACHINE OPERATION F0E23530 BINARY CARD NO. 9F050098 13252 0074 00 4 07362 TSX IFLGS,4 *YES, SET INSTRUCTION LISTING FLAGS F0E23540 13253 0761 00 0 00000 NOP INSTRUCTION HAS FLAGS IN ADDRESS F0E23550 13254 0604 00 0 04004 STI BINRY F0E23560 13255 -0625 00 0 04064 STL OPFLG SET OP DEFINITION FLAG F0E23570 13256 0074 00 4 07543 TSX PRNTI,4 *LIST INSTRUCTION F0E23580 13257 0600 00 0 04064 STZ OPFLG RESET OP DEFINITION FLAG F0E23590 13260 0020 00 0 11030 TRA READ1 F0E23600 F0E23610 13261 0074 00 4 07276 ORDOP TSX REFLC,4 *CHECK LOCATION COUNTER F0E23620 13262 -0534 00 4 04273 LXD LITRL,4 LOAD OPCODE F0E23630 13263 0754 00 4 00000 PXA ,4 F0E23640 13264 0074 00 4 06104 TSX BCDCV,4 *CONVERT TO DECIMAL F0E23650 13265 0767 00 0 00030 ALS 24 POSITION IN DIGITS 1, 2 F0E23660 13266 0602 00 0 04004 SLW BINRY INSERT IN WORD $F0E23670 13267 0441 00 0 04273 LDI LITRL LOAD VARIABLE FIELD FLAGS $F0E23680 13270 0056 00 600000 RNT 600000 IS ACCESS MODULE REQUIRED $F0E23690 13271 0020 00 0 13274 TRA ORDAM YES, ASSEMBLE $F0E23700 13272 0074 00 4 13344 TSX ORDLP,4 *NO, CHECK NEXT CHARACTER $F0E23710 13273 0100 00 0 14302 TZE ORDW1 IF BLANK, FINISHED $F0E23720 13274 0074 00 4 14237 ORDAM TSX ORDSC,4 *ASSEMBLE ACCESS MODULE (2 DIGITS) $F0E23730 13275 -0320 00 0 06437 ANA Q4095 MASK IN TWO DIGITS $F0E23740 13276 0767 00 0 00014 ALS 12 POSITION IN DIGITS 3, 4 $F0E23750 13277 -0602 00 0 04004 ORS BINRY INSERT IN WORD $F0E23760 BINARY CARD NO. 9F050099 13300 0441 00 0 04273 LDI LITRL LOAD VARIABLE FIELD FLAGS $F0E23770 13301 0056 00 400000 RNT 400000 IS TRACK REQUIRED $F0E23780 13302 0020 00 0 13305 TRA ORDTK YES, ASSEMBLE $F0E23790 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 210 PASS TWO PSEUDOOPERATION PROCESSOR 13303 0074 00 4 13344 TSX ORDLP,4 *NO, CHECK NEXT CHARACTER $F0E23800 13304 0100 00 0 14302 TZE ORDW1 IF BLANK, FINISHED $F0E23810 13305 0074 00 4 14237 ORDTK TSX ORDSC,4 *ASSEMBLE TRACK (4 DIGITS) $F0E23820 13306 -0320 00 0 14254 ANA Q4BCD MASK IN FOUR DIGITS $F0E23830 13307 0560 00 0 06407 LDQ Q0 ZERO MQ $F0E23840 13310 -0765 00 0 00014 LGR 12 $F0E23850 13311 -0600 00 0 04010 STQ ERASE SAVE RIGHT HALF OF TRACK $F0E23860 13312 -0602 00 0 04004 ORS BINRY INSERT LEFT HALF OF TRACK IN WORD $F0E23870 13313 0074 00 4 14255 TSX ORDZR,4 *CONVERT TO TAPE BCD ZERO $F0E23880 13314 0074 00 4 07512 TSX PRNTO,4 *LIST AND PUNCH FIRST WORD $F0E23890 13315 -0500 00 0 04010 CAL ERASE INSERT RIGHT HALF $F0E23900 13316 0602 00 0 04004 SLW BINRY OF TRACK IN WORD $F0E23910 13317 0441 00 0 04273 LDI LITRL LOAD VARIABLE FIELD FLAGS $F0E23920 13320 0056 00 200000 RNT 200000 IS RECORD REQUIRED $F0E23930 13321 0020 00 0 13324 TRA ORDRC YES, ASSEMBLE $F0E23940 13322 0074 00 4 13344 TSX ORDLP,4 *NO, CHECK NEXT CHARACTER $F0E23950 13323 0100 00 0 14305 TZE ORDW2 IF BLANK, FINISHED $F0E23960 13324 0074 00 4 06126 ORDRC TSX SSCAN,4 *ASSEMBLE RECORD (2 DIGITS) $F0E23970 13325 1 00000 0 13342 TXI ORDFA,,0 NULL FIELD $F0E23980 BINARY CARD NO. 9F050100 13326 -0760 00 0 00142 SLT EXPND WAS END OF EXPRESSION REACHED $F0E23990 13327 1 00000 0 13340 TXI ORDFF,,0 NO, ILLEGAL OPERATOR PRESENT $F0E24000 13330 -0500 00 0 04001 CAL SYMBL $F0E24010 13331 0767 00 0 00014 ALS 12 POSITION IN DIGITS 3,4 $F0E24020 13332 0044 00 0 00000 PAI $F0E24030 13333 -0054 00 777700 LFT 777700 IS SYMBOL TOO LONG $F0E24040 13334 1 00000 0 13340 TXI ORDFF,,0 YES $F0E24050 13335 -0602 00 0 04004 ORS BINRY INSERT IN NEXT WORD $F0E24060 13336 0074 00 4 13344 TSX ORDLP,4 *CHECK NEXT CHARACTER $F0E24070 13337 0020 00 0 14305 TRA ORDW2 FINISHED $F0E24080 13340 -0625 00 0 04125 ORDFF STL ERRFF SET F FLAG $F0E24090 13341 0020 00 0 14305 TRA ORDW2 $F0E24100 13342 -0625 00 0 04121 ORDFA STL ERRFA SET MISSING FIELD FLAG $F0E24110 13343 0020 00 0 14305 TRA ORDW2 $F0E24120 $F0E24130 CHECK NEXT CHARACTER $F0E24140 13344 -0500 00 0 03755 ORDLP CAL CHRCTR LOAD NEXT CHARACTER $F0E24150 13345 0322 00 0 06522 ERA BLANK IS IT BLANK $F0E24160 13346 -0602 00 0 04125 ORS ERRFF SET FLAG IF NOT $F0E24170 13347 0020 00 4 00001 TRA 1,4 $F0E24180 $F0E24190 13350 0074 00 4 07276 HYPOP TSX REFLC,4 *CHECK LOCATION COUNTER $F0E24200 13351 -0534 00 4 04273 LXD LITRL,4 LOAD OPCODE $F0E24210 13352 0754 00 4 00000 PXA ,4 $F0E24220 13353 0074 00 4 06104 TSX BCDCV,4 *CONVERT TO DECIMAL $F0E24230 BINARY CARD NO. 9F050101 13354 0767 00 0 00030 ALS 24 POSITION IN DIGITS 1, 2 $F0E24240 13355 0602 00 0 04004 SLW BINRY INSERT IN WORD $F0E24250 13356 0441 00 0 04273 LDI LITRL LOAD VARIABLE FIELD FLAG $F0E24260 13357 0054 00 200000 RFT 200000 IS ADDRESS REQUIRED $F0E24270 13360 0020 00 0 13363 TRA HYPAD YES $F0E24280 13361 0074 00 4 13344 TSX ORDLP,4 *NO, CHECK NEXT CHARACTER $F0E24290 13362 0020 00 0 14305 TRA ORDW2 FINISHED $F0E24300 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 211 PASS TWO PSEUDOOPERATION PROCESSOR 13363 0074 00 4 14237 HYPAD TSX ORDSC,4 *ASSEMBLE ADDRESS $F0E24310 13364 -0320 00 0 06433 ANA Q63 ZERO ALL BUT ONE DIGIT $F0E24320 13365 -0602 00 0 04004 ORS BINRY SET SECOND ADDRESS $F0E24330 13366 0560 00 0 04004 LDQ BINRY OBTAIN OPCODE $F0E24340 13367 -0763 00 0 00022 LGL 18 POSITION AND STORE FIRST $F0E24350 13370 -0602 00 0 04004 ORS BINRY ADDRESS AND SECOND OPCODE $F0E24351 13371 0020 00 0 13361 TRA HYPAD-2 GO CHECK NEXT CHARACTER $F0E24360 F0E24370 13372 -0500 00 0 04273 ORGOP CAL LITRL LOAD NEW ORIGIN F0E24380 13373 0400 00 0 03754 ADD PROLG RELOCATE UPWARDS BY LENGTH OF F0E24390 13374 0602 00 0 03762 SLW ADDRS VECTOR AND LINKAGE DIRECTOR, IF ANY F0E24400 13375 0621 00 0 03761 STA LOCTR REDEFINE PROGRAM COUNTER F0E24410 13376 0621 00 0 03760 STA CDCTR RESET CARD ORIGIN COUNTER F0E24420 13377 0074 00 4 10057 TSX PUNCH,4 *PUNCH REMAINDER OF LAST CARD F0E24430 13400 0074 00 4 07263 TSX REFPP,4 *ENTER SYMBOL IN REF TABLE F0E24440 13401 0074 00 4 07276 TSX REFLC,4 *CHECK LOCATION COUNTER F0E24450 BINARY CARD NO. 9F050102 13402 0074 00 4 07441 TSX PRNTR,4 *PRINT INPUT CARD, DEFINITION RIGHT ADJUST F0E24460 13403 0020 00 0 11030 TRA READ1 F0E24470 F0E24480 13404 0074 00 4 13707 PCCOP TSX ONOFF,4 *CHECK FOR ON, OFF, BLANK VARIABLE FIELD F0E24490 13405 0601 00 0 07413 STO PRNSW RESET SWITCH AS PER VARIABLE FIELD F0E24500 13406 0074 00 4 07414 TSX PRNTC,4 *PRINT INPUT CARD F0E24510 13407 0020 00 0 11030 TRA READ1 F0E24520 F0E24530 13410 0074 00 4 13707 PMCOP TSX ONOFF,4 *CHECK FOR ON, OFF, BLANK VARIABLE FIELD F0E24540 13411 0601 00 0 07732 STO PMCSW+1 RESET SWITCH AS PER VARIABLE FIELD F0E24550 13412 0074 00 4 07406 TSX PRNCC,4 *PRINT CONTROL CARD F0E24560 13413 0020 00 0 11030 TRA READ1 F0E24570 F0E24580 13414 -0634 00 0 11756 REFOP SXD PREF6,0 RESET SYMBOLIC REFERENCE TABLE SWITCH F0E24590 13415 0074 00 4 07406 TSX PRNCC,4 *PRINT CONTROL CARD F0E24600 13416 0020 00 0 11030 TRA READ1 F0E24610 F0E24620 13417 -0534 00 4 04012 REMOP LXD VRFLD,4 WORD COUNT OF BEGINNING OF VARIABLE FIELD$F0E24630 13420 -0500 00 0 04176 CAL BLANKS TO BLANK OUT OPCODE $F0E24640 13421 3 77776 4 13423 TXH *+2,4,-2 WHICH WORD NEEDS TO BE BLANKED $F0E24650 13422 0602 00 0 04256 SLW BCDBF+1 ALL OF THE FIRST WORD $F0E24660 13423 0560 00 0 03756 LDQ RESIDU HOW MUCH OF THIS WORD NEEDS TO BE BLANKED$F0E24670 13424 0020 00 0 14425 TRA PTCHX TO OFF-LINE PATCH $F0E24680 F0E24690 13425 -0500 00 0 04273 RMTOP CAL LITRL RESET HEADING CHARACTER F0E24700 13426 0621 00 0 03776 STA BHEAD F0E24710 13427 0020 00 0 11030 TRA READ1 F0E24720 F0E24730 BINARY CARD NO. 9F050103 13430 -0534 00 4 07665 SETOP LXD IOLST,4 GET LENGTH OF LISTING LINE (21)F0E24740 13431 -3 00005 4 14313 TXL SET02,4,5 IS THIS REITERATION OF DUP.. (21)F0E24750 13432 0074 00 4 07263 TSX REFPP,4 *NO, MAKE REFERENCE TABLE ENTRIES (21)F0E24760 13433 -0500 00 0 04273 CAL LITRL LOAD PASS ONE DEFINITION (21)F0E24770 13434 0044 00 0 00000 PAI (21)F0E24780 13435 -0054 00 000001 LFT 1 IS SYMBOL RELOCATABLE (21)F0E24790 13436 -0054 00 000004 LFT 4 YES, BUT IS IT IN TRANSFER VECTOR (21)F0E24800 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 212 PASS TWO PSEUDOOPERATION PROCESSOR 13437 0020 00 0 13441 TRA *+2 IS IN VECTOR OR NOT RELOCATABLE (21)F0E24810 13440 0400 00 0 03754 ADD PROLG RELOCATE ABOVE PROLOGUE (21)F0E24820 13441 0602 00 0 03762 SET03 SLW ADDRS SAVE FOR LISTING (21)F0E24830 13442 0074 00 4 07320 TSX REFLP,4 *ENTER POINT OF DEFINITION AS REFERENCE(21)F0E24840 ADDRESS INITIALIZED BY SSYMT (CALLED BY REFLP). (21)F0E24850 13443 0774 00 1 00000 SET01 AXT **,1 OBTAIN POSITION IN SYMBOL TABLE (21)F0E24860 13444 -0500 00 0 03762 CAL ADDRS RELOAD DEFINITION (21)F0E24870 13445 0602 60 0 07207 SLW* SSYM5 AND ENTER IT IN TABLE (21)F0E24880 13446 0074 00 4 07441 TSX PRNTR,4 *LIST INPUT CARD LOCATION RIGHT ADJUSTED F0E24890 13447 0020 00 0 11030 TRA READ1 F0E24900 F0E24910 13450 0020 00 0 14445 SPCOP TRA PTCHZ (27)F0E24920 13451 -0120 00 0 13502 TMI SPC03 PMC OFF- DO NOT SPACE LISTING (27)F0E24930 13452 0074 00 4 04767 TSX SCANF,4 *NO, EVALUATE LENGTH OF SKIP F0E24940 13453 1 00000 0 07341 TXI AFLAG+1,,0 NULL SKIP LENGTH F0E24950 13454 -0760 00 0 00141 SLT EXPRR IS LENGTH OF SKIP IN ERROR F0E24960 13455 0520 00 0 04014 ZET RBITS NO, IS IT RELOCATABLE F0E24970 BINARY CARD NO. 9F050104 13456 0020 00 0 13475 TRA SPC02 YES F0E24980 13457 0020 00 0 14356 TRA PATCH1 $F0E24990 13460 -2 00005 1 13464 TNX *+4,1,5 IS THIS BOTTOM OF PAGE F0E25000 13461 -0634 00 1 13463 SXD *+2,1 NO, SET TEST FOR BOTTOM OF PAGE F0E25010 13462 0734 00 1 00000 PAX ,1 RECALL NUMBER OF LINES TO SPACE F0E25020 13463 -3 00000 1 13466 TXL *+3,1,** IS SPACE PAST BOTTOM OF PAGE F0E25030 13464 0634 00 0 04370 SXA PAGCNT,0 YES, EJECT PAGE F0E25040 13465 0020 00 0 13473 TRA SPC01 F0E25050 13466 0074 00 4 04361 TSX FPRINT,4 *SPACE NEXT LINE F0E25060 13467 0 00000 0 00000 PZE F0E25070 13470 2 00001 1 13466 TIX *-2,1,1 IS SPACING COMPLETE F0E25080 13471 -0760 00 0 00144 SLT FLDND YES, WAS END OF VARIABLE FIELD SENSED F0E25090 13472 0020 00 0 13475 TRA SPC02 NO F0E25100 13473 0074 00 4 07406 SPC01 TSX PRNCC,4 *YES, PRINT CONTROL CARD F0E25110 13474 0020 00 0 13502 TRA SPC03 F0E25120 13475 -0625 00 0 04125 SPC02 STL ERRFF SET ERROR FLAG F0E25130 13476 0600 00 0 04107 STZ ERRFU PREVENT ABORTION F0E25140 13477 0600 00 0 04111 STZ ERRFR F0E25150 13500 0600 00 0 04115 STZ ERRFE F0E25160 13501 0074 00 4 07414 TSX PRNTC,4 *PRINT INPUT CARD F0E25170 13502 0020 00 0 11030 SPC03 TRA READ1 F0E25180 F0E25190 13503 0074 00 4 04767 TCDOP TSX SCANF,4 *EVALUATE TRANSFER ADDRESS F0E25200 BINARY CARD NO. 9F050105 13504 1 00000 0 07340 TXI AFLAG,,0 NULL TRANSFER ADDRESS F0E25210 13505 0601 00 0 03762 STO ADDRS SET TRANSFER ADDRESS F0E25220 13506 0601 00 0 04010 STO ERASE SAVE FOR TRANSFER CARD F0E25230 13507 -0760 00 0 00141 SLT EXPRR WAS TRANSFER ADDRESS IN ERROR F0E25240 13510 0074 00 4 10012 TSX PCHTC,4 *NO, PUNCH TRANSFER CARD F0E25250 13511 -0760 00 0 00144 SLT FLDND WAS END OF VARIABLE FIELD SENSED F0E25260 13512 -0625 00 0 04125 STL ERRFF NO, SET FLAG F0E25270 13513 0074 00 4 07441 TSX PRNTR,4 *PRINT CARD, TRANSFER ADDRESS RIGHT ADJ F0E25280 13514 0020 00 0 11030 TRA READ1 F0E25290 F0E25300 13515 -0520 00 0 04066 TITOP NZT UNLSF IS LISTING SUSPENDED F0E25310 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 213 PASS TWO PSEUDOOPERATION PROCESSOR 13516 -0625 00 0 04067 STL TITLF NO, SET TITLE FLAG F0E25320 13517 0074 00 4 07406 TSX PRNCC,4 *PRINT CONTROL CARD F0E25330 13520 0020 00 0 11030 TRA READ1 F0E25340 F0E25350 13521 -0500 00 0 03755 TTLOP CAL CHRCTR SET SUBHEAD FLAG F0E25360 13522 0602 00 0 04101 SLW TTLFG RESET IF FIRST CHARACTER IS ZERO F0E25370 13523 -0500 00 0 04176 CAL BLANKS LOAD LEADING BLANKS F0E25380 13524 0560 00 0 04256 LDQ BCDBF+1 LOAD CC 7 - 12 F0E25390 13525 -0773 00 0 00030 RQL 24 DELETE CC 7 - 10 F0E25400 13526 -0763 00 0 00014 LGL 12 INSERT CC 11 - 12 F0E25410 13527 0602 00 0 04201 SLW BLANKS+3 INTO WORD 4 OF SUBHEADING F0E25420 13530 0774 00 4 00012 AXT 10,4 F0E25430 13531 0560 00 4 04271 LDQ BCDBF+12,4 INSERT CC 13 - 72 F0E25440 BINARY CARD NO. 9F050106 13532 -0600 00 4 04214 STQ BLANKS+14,4 INTO WORDS 5 - 14 OF SUBHEADING F0E25450 13533 2 00001 4 13531 TIX *-2,4,1 F0E25460 13534 -0500 00 0 04255 CAL BCDBF LOAD LOCATION FIELD F0E25470 13535 0322 00 0 04176 ERA BLANKS DOES A RENUMBER EXIST F0E25480 13536 0100 00 0 13561 TZE TTL03 NO F0E25490 13537 0560 00 0 04255 LDQ BCDBF YES, RELOAD PAGE NUMBER F0E25500 13540 0600 00 0 04001 STZ SYMBL CLEAR WORKING STORAGE F0E25510 13541 0774 00 4 00006 AXT 6,4 PREPARE TO ASSEMBLE 6 CHARACTERS F0E25520 13542 -0754 00 0 00000 TTL01 PXD ,0 F0E25530 13543 -0763 00 0 00006 LGL 6 LOAD NEXT CHARACTER F0E25540 13544 0602 00 0 03755 SLW CHRCTR F0E25550 13545 0100 00 0 13550 TZE *+3 IS CHARACTER 0 F0E25560 13546 0322 00 0 06522 ERA BLANK NO, IS IT BLANK F0E25570 13547 0100 00 0 13554 TZE TTL02 YES F0E25580 13550 -0500 00 0 04001 CAL SYMBL APPEND THIS CHARACTER TO PARTIAL NUMBER F0E25590 13551 0767 00 0 00006 ALS 6 F0E25600 13552 0400 00 0 03755 ADD CHRCTR F0E25610 13553 0602 00 0 04001 SLW SYMBL SAVE PARTIAL NUMBER F0E25620 13554 2 00001 4 13542 TTL02 TIX TTL01,4,1 IS NUMBER COMPLETE F0E25630 13555 0074 00 4 06056 TSX DECSV,4 *YES, CONVERT TO BINARY INTEGER F0E25640 13556 0402 00 0 06410 SUB Q1 F0E25650 13557 -0760 00 0 00141 SLT EXPRR IS INTEGER TOO LARGE F0E25660 BINARY CARD NO. 9F050107 13560 0621 00 0 04371 STA PAGENO NO, RESET PAGE NUMBER F0E25670 13561 0634 00 0 04370 TTL03 SXA PAGCNT,0 EJECT PAGE F0E25680 13562 0074 00 4 07406 TSX PRNCC,4 *PRINT CONTROL CARD F0E25690 13563 0020 00 0 11030 TRA READ1 F0E25700 F0E25710 13564 -0625 00 0 04065 UNLOP STL UNL1F SET UNLIST FLAG F0E25720 13565 0074 00 4 07414 TSX PRNTC,4 *PRINT INPUT CARD F0E25730 13566 0020 00 0 11030 TRA READ1 F0E25740 F0E25750 13567 0074 00 4 07276 VFDOP TSX REFLC,4 *CHECK LOCATION COUNTER F0E25760 13570 0020 00 0 14345 TRA VFDCR RESET RELOCATION BITS AND SET FLAG $F0E25770 13571 -0500 00 0 04272 CAL BCDBF+13 SET ETC CARD FLAG F0E25780 13572 -0320 00 0 06411 ANA Q2 F0E25790 13573 0602 00 0 04046 SLW ETCMD F0E25800 13574 0774 00 4 00044 AXT 36,4 SET UNUSED BIT COUNT TO FULL WORD F0E25810 13575 0634 00 4 04025 SXA VFDRB,4 F0E25820 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 214 PASS TWO PSEUDOOPERATION PROCESSOR 13576 0600 00 0 04053 STZ VFDPF RESET FLAG FOR FIELD ENDING IN BIT 35 F0E25830 REENTRY AFTER , TO START NEXT FIELD F0E25840 13577 0074 00 4 05660 VFETC TSX VFDCV,4 *ASSEMBLE NEXT FIELD F0E25850 REENTRY TO PACK SECOND WORD OF A LONG FIELD F0E25860 13600 0500 00 0 04027 VFD01 CLA VFDFB DOES IT RATTLE F0E25870 13601 0402 00 0 04025 SUB VFDRB F0E25880 13602 -0120 00 0 13631 TMI VFD02 YES F0E25890 13603 0601 00 0 04027 STO VFDFB IT RATTLES NOT F0E25900 13604 -0100 00 0 13611 TNZ *+5 DOES IT FIT PERFECT F0E25910 13605 -0625 00 0 04053 STL VFDPF PERFECT FIT, AWARD YOURSELF ONE MEDAL F0E25920 BINARY CARD NO. 9F050108 13606 -0500 00 0 04014 CAL RBITS SET RELOCATION INDICATOR F0E25930 13607 0621 00 0 04015 STA INDIC F0E25940 13610 0600 00 0 04014 STZ RBITS RESET RELOCATION BITS F0E25950 13611 0500 00 0 04025 CLA VFDRB LOAD NUMBER OF BITS LEFT IN WORD F0E25960 13612 0621 00 0 13615 STA *+3 SET SHIFT F0E25970 13613 -0500 00 0 04004 CAL BINRY LOAD DATUM WORD F0E25980 13614 0560 00 0 04003 LDQ VFDFL+1 LOAD HIGH ORDER PORTION OF FIELD F0E25990 13615 -0763 00 0 00000 LGL ** APPEND AS FAR AS IT GOES F0E26000 13616 0602 00 0 04004 SLW BINRY SAVE WORD F0E26010 13617 -0500 00 0 04003 CAL VFDFL+1 RELOAD HIGH ORDER PORTION OF WORD F0E26020 13620 0560 00 0 04002 LDQ VFDFL RELOAD LOW ORDER PORTION OF WORD F0E26030 13621 0522 00 0 13615 XEC *-4 LEFT ADJUST REMAINDER F0E26040 13622 0602 00 0 04003 SLW VFDFL+1 SAVE NEW HIGH ORDER PORTION OF WORD F0E26050 13623 -0600 00 0 04002 STQ VFDFL SAVE NEW LOW ORDER PORTION OF WORD F0E26060 13624 0074 00 4 07470 TSX PRNTW,4 *LIST AND PUNCH THIS DATUM WORD F0E26070 13625 0600 00 0 04015 STZ INDIC RESET RELOCATION INDICATOR F0E26080 13626 0774 00 4 00044 AXT 36,4 RESET NUMBER OF BITS AVAILABLE IN F0E26090 13627 0634 00 4 04025 SXA VFDRB,4 NEXT WORD F0E26100 13630 0020 00 0 13600 TRA VFD01 F0E26110 REENTRY FOR REMAINDER OF FIELD 36 BITS OR FEWER F0E26120 13631 -0520 00 0 04027 VFD02 NZT VFDFB ANY BITS LEFT F0E26130 13632 0020 00 0 13654 TRA VFD03 NO F0E26140 13633 0600 00 0 04053 STZ VFDPF IT RATTLES, YOU LOSE YOUR MEDAL F0E26150 BINARY CARD NO. 9F050109 13634 0621 00 0 04025 STA VFDRB SAVE COUNT OF REMAINING FIELD F0E26160 13635 0322 00 0 06516 ERA QB WILL FIELD FIT TIGHT IN DECREMENT F0E26170 13636 -0100 00 0 13642 TNZ *+4 NO F0E26180 13637 0534 00 4 04014 LXA RBITS,4 YES, SET DECREMENT RELOCATION BITS F0E26190 13640 -0634 00 4 04015 SXD INDIC,4 F0E26200 13641 0600 00 0 04014 STZ RBITS RESET RELOCATION BITS F0E26210 13642 0500 00 0 04014 CLA RBITS LOAD RELOCATION BITS F0E26220 13643 0100 00 0 13646 TZE *+3 WAS FIELD RELOCATABLE F0E26230 13644 -0625 00 0 04111 STL ERRFR YES, TSK, TSK, TSK, IT DIDNT FIT F0E26240 13645 0600 00 0 04014 STZ RBITS F0E26250 13646 0500 00 0 04027 CLA VFDFB LOAD LENGTH OF THIS FIELD F0E26260 13647 0621 00 0 13652 STA *+3 SET SHIFT F0E26270 13650 -0500 00 0 04004 CAL BINRY LOAD PARTIAL DATUM WORD F0E26280 13651 0560 00 0 04003 LDQ VFDFL+1 LOAD HIGH ORDER PORTION OF WORD F0E26290 13652 -0763 00 0 00000 LGL ** PACK IT IN F0E26300 13653 0602 00 0 04004 SLW BINRY SAVE PARTIAL DATUM WORD F0E26310 END OF FIELD F0E26320 13654 -0760 00 0 00144 VFD03 SLT FLDND WAS END OF VARIABLE FIELD SENSED F0E26330 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 215 PASS TWO PSEUDOOPERATION PROCESSOR 13655 0020 00 0 13577 TRA VFETC NO F0E26340 END OF VARIABLE FIELD F0E26350 13656 0520 00 0 04046 ZET ETCMD YES, DOES ETC CARD FOLLOW F0E26360 13657 0020 00 0 13672 TRA VFD04+2 YES F0E26370 END OF VFD STATEMENT F0E26380 13660 0520 00 0 04053 ZET VFDPF NO, DO YOU STILL HAVE YOUR MEDAL F0E26390 13661 0020 00 0 13670 TRA VFD04 YES F0E26400 BINARY CARD NO. 9F050110 13662 0560 00 0 04004 LDQ BINRY NO, LOAD PARTIAL DATUM WORD F0E26410 13663 0500 00 0 04025 CLA VFDRB LOAD COUNT OF REMAINING BITS F0E26420 13664 0621 00 0 13665 STA *+1 INITIALIZE SHIFT F0E26430 13665 -0763 00 0 00000 LGL ** TO LEFT ADJUST PARTIAL DATUM WORD F0E26440 13666 -0600 00 0 04004 STQ BINRY F0E26450 13667 0074 00 4 07470 TSX PRNTW,4 *LIST AND PUNCH FINAL PARTIAL DATUM WORD F0E26460 REENTRY FOR BESPANGLED FIELD F0E26470 13670 0600 00 0 04053 VFD04 STZ VFDPF RESET MEDAL F0E26480 13671 0600 00 0 04054 STZ VFDMD RESET VFD MODE FLAG F0E26490 REENTRY AFTER CALL STATEMENT TO PRINT ERROR FLAG F0E26500 13672 -0534 00 4 07665 LXD IOLST,4 LOAD PRINT COMMAND WORD COUNT F0E26510 13673 -3 00005 4 13675 TXL *+2,4,5 WAS CARD PRINTED F0E26520 13674 0074 00 4 07414 TSX PRNTC,4 *NO, PRINT INPUT CARD F0E26530 13675 0020 00 0 11030 TRA READ1 F0E26540 F0E26550 F0E26560 13676 0074 00 4 04767 PHASE TSX SCANF,4 *EVALUATE VARIABLE FIELD F0E26570 13677 1 00000 0 13704 TXI *+5,,0 NULL VARIABLE FIELD F0E26580 13700 -0520 00 0 04116 NZT ERRFB IS ERROR BOOLEAN F0E26590 13701 0520 00 0 04111 ZET ERRFR NO, IS ERROR RELOCATION ERROR F0E26600 13702 0020 00 0 13705 TRA *+3 YES F0E26610 13703 -0520 00 0 04107 NZT ERRFU NO, IS SYMBOL UNDEFINED F0E26620 13704 -0625 00 0 04112 STL ERRFP NO, SET PHASE ERROR FLAG F0E26630 REENTRY FOR COMMENTS CARD F0E26640 13705 0074 00 4 07414 TSX PRNTC,4 *PRINT INPUT CARD F0E26650 13706 0020 00 0 11030 TRA READ1 F0E26660 F0E26670 ROUTINE TO TEST FOR ON/OFF OPTION OF CONTROL CARD F0E26680 13707 0634 00 4 13717 ONOFF SXA ONOFX,4 SAVE CALLING LINKAGE F0E26690 BINARY CARD NO. 9F050111 13710 0074 00 4 06126 TSX SSCAN,4 *CHECK VARIABLE FIELD F0E26700 13711 1 00000 0 13717 TXI ONOFX,,0 NULL ON/OFF OPTION F0E26710 13712 -0760 00 0 00144 SLT FLDND WAS END OF VARIABLE FIELD SENSED F0E26720 13713 -0625 00 0 04125 STL ERRFF NO F0E26730 13714 -0760 00 0 00141 SLT EXPRR WAS CHARACTER ILLEGAL F0E26740 13715 -0760 00 0 00142 SLT EXPND WAS END OF EXPRESSION REACHED F0E26750 13716 0020 00 0 13737 TRA FIELD FIELD ERROR, FLAG AND SKIP CARD F0E26760 13717 0774 00 4 00000 ONOFX AXT **,4 RESET LINKAGE F0E26770 13720 -0500 00 0 04001 CAL SYMBL PICK UP VARIABLE FIELD SYMBOL F0E26780 13721 -0100 00 0 13724 TNZ *+3 NON-BLANK, MAY BE 'ON', OR 'OFF' F0E26790 13722 0502 60 4 00001 CLS* 1,4 BLANK FIELD, FLIP SWITCH F0E26800 13723 0020 00 4 00001 TRA 1,4 AND RETURN. F0E26810 13724 0322 00 0 13735 ERA ONMSK CHECK FOR 'ON' F0E26820 13725 0100 00 0 13733 TZE ONRTN IT IS 'ON' F0E26830 13726 0322 00 0 13736 ERA OFFMK CHECK FOR 'OFF' F0E26840 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 216 PASS TWO PSEUDOOPERATION PROCESSOR 13727 -0100 00 0 13737 TNZ FIELD ILLEGAL FIELD, FLAG AND SKIP CARD F0E26850 13730 0500 60 4 00001 CLA* 1,4 OFF, PICK UP PARAMETER F0E26860 13731 -0760 00 0 00003 SSM FORCE SWITCH TO NORMAL MODE F0E26870 13732 0020 00 4 00001 TRA 1,4 AND RETURN. F0E26880 13733 -0500 60 4 00001 ONRTN CAL* 1,4 ON, PICK UP PARAMETER F0E26890 13734 0020 00 4 00001 TRA 1,4 FORCE SWITCH TO 'ON' MODE, RETURN. F0E26900 13735 000000004645 ONMSK BCI 1,0000ON MASK FOR ON F0E26910 BINARY CARD NO. 9F050112 13736 000000466063 OFFMK BCI 1,000O T MASK FOR OFF F0E26920 F0E26930 13737 0441 00 0 04272 FIELD LDI BCDBF+13 ERROR IN VARIABLE FIELD, F0E26940 13740 0055 00 000004 SIR 4 SET ERROR FLAG F0E26950 13741 0604 00 0 04272 STI BCDBF+13 F0E26960 13742 0534 00 4 13717 LXA ONOFX,4 AND IGNORE THIS CARD F0E26970 13743 0020 00 4 00002 TRA 2,4 F0E26980 13744 606022314521 CRDID BCI 8, BINARY CARD NO. CARD ORIGIN F0E26990 13754 606063212243 INTIT BCI 4, TABLE OF CONTENTS F0E27000 13760 606060606060 LDTIT BCI 4, LINKAGE DIRECTOR (26)F0E27010 BINARY CARD NO. 9F050113 13764 606060606060 PCTIT BCI 3, PROGRAM CARD F0E27020 13767 606063512145 TVTIT BCI 4, TRANSFER VECTOR F0E27030 13773 606043316325 LITIT BCI 4, LITERALS F0E27040 13777 606060606060 CBTIT BCI 9, IS THE LAST LOCATION NOT USED BY THIS PRO F0E27050 14010 275121446060 BCI 1,GRAM F0E27060 14011 606060606060 PGTIT BCI 9, IS THE FIRST LOCATION NOT USED BY THIS PRO F0E27070 BINARY CARD NO. 9F050114 14022 275121446060 BCI 1,GRAM F0E27080 14023 -1 00011 0 14024 REFHD IOCT *+1,,9 F0E27090 14024 606060606060 BCI 4, F0E27100 14030 474662636047 BCI 5,POST PROCESSOR ASSEMBLY DATA F0E27110 14035 005125262551 RFTIT BCI 6,0REFERENCES TO DEFINED SYMBOLS F0E27120 BINARY CARD NO. 9F050115 14043 005125262551 USTIT BCI 6,0REFERENCES TO UNDEFINED SYMBOLS F0E27130 14051 006060606060 REFOV BCI 9,0 SYMBOLIC REFERENCE TABLE OVERFLOWED. LISTING INC F0E27140 14062 464447432563 BCI 2,OMPLETE. F0E27150 14064 006060606060 DELOL BCI 9,0 ONLINE CARDS DELETED. PUSH START TO CONTINUE F0E27160 BINARY CARD NO. 9F050116 14075 006060606060 CDERR BCI 9,0 KEEP YOUR EYE ON THE ONLINE PUNCH. THE END FILE F0E27170 14106 442170604546 BCI 4,MAY NOT BE RECOGNIZED. F0E27180 14112 006060606025 ERTIT BCI 9,0 E0 NO ERROR IN ABOVE ASSEMBLY. EXECUTION DELETED. F0E27190 BINARY CARD NO. 9F050117 14123 006023302145 CHANG BCI 8,0 CHANGE TAPE AND PUSH START. EXECUTION DELETED. F0E27200 F0E27210 14133 -0 00030 0 14135 FAILD IOCP *+2,,24 EPITAPH FOR A SAD RELOCATABLE ASSEMBLY F0E27220 14134 -1 00003 0 04244 IOCT PBUFF1+24,,3 F0E27230 14135 +000000000000 OCT ,,,,, F0E27240 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 217 PASS TWO PSEUDOOPERATION PROCESSOR BINARY CARD NO. 9F050118 14143 +200020040140 OCT 200020040140,377437743760,200020040140,200020002010 F0E27250 14147 +200020040140 OCT 200020040140,200020002004,374037740140,200037402004 F0E27260 14153 +200010100140 OCT 200010100140,200020002010,377407600140,200037743760 F0E27270 14157 +000000000000 OCT ,,,,, F0E27280 F0E27290 14165 2 00000 0 00000 CTLWD PTW ** RELOCATABLE CARD 9L LOAD ADDRESS F0E27300 14166 +000000000000 CHKSM DEC RELOCATABLE CARD 9R CHECKSUM F0E27310 14167 +000000000000 RELBT DEC , RELOCATABLE CARD 8L,8R, RELOCATION BITS F0E27320 BINARY CARD NO. 9F050119 F0E27330 14171 +000000000000 DEC MUST PRECEDE BMPBF TO KEEP CC81 CLEAN F0E27340 14172 +000000000000 BMPBF DEC ,,,,,,, BUFFER FOR CHARACTERS IN CARD LABEL F0E27350 14202 +000000000000 BMPSV DEC ,,,,,,, BUFFER TO SAVE CARD LABEL F0E27360 14212 +000000000000 CIDBF DEC ,,,,,,, LISTING BUFFER FOR CARD ID NUMBER F0E27370 BINARY CARD NO. 9F050120 14222 +000000000000 CIDSV DEC ,,,,,,, BUFFER TO SAVE LISTING CHARACTERS F0E27380 F0E27390 14232 0634 00 4 10540 PAKPC SXA PRNCX,4 $F0E27400 14233 0774 00 4 00005 AXT 5,4 $F0E27401 14234 -0100 00 0 10534 TNZ PRNCS+3 $F0E27402 14235 -0634 00 4 10537 SXD PRNCI,4 $F0E27403 14236 0020 00 0 10534 TRA PRNCS+3 $F0E27404 $F0E27405 NEXT FIELD TO BE ASSEMBLED $F0E27406 $F0E27410 14237 0634 00 4 14252 ORDSC SXA ORDSX,4 SAVE CALLING LINKAGE $F0E27420 14240 0074 00 4 04767 TSX SCANF,4 *ASSEMBLE NEXT FIELD $F0E27430 14241 -3 00000 0 14251 TXL ORDSN,,0 NULL FIELD $F0E27440 14242 0074 00 4 06104 TSX BCDCV,4 *CONVERT TO DECIMAL $F0E27450 14243 -0520 00 0 04014 NZT RBITS IS FIELD RELOCATABLE $F0E27460 BINARY CARD NO. 9F050121 14244 0020 00 0 14252 TRA ORDSX NO $F0E27470 14245 -0625 00 0 04111 STL ERRFR YES, SET ERROR FLAGS $F0E27480 14246 0760 00 0 00141 SLN EXPRR $F0E27490 14247 -0754 00 0 00000 ZAC DELETE FIELD IN ERROR $F0E27500 14250 0020 00 0 14252 TRA ORDSX $F0E27510 14251 -0625 00 0 04121 ORDSN STL ERRFA SET MISSING FIELD FLAG $F0E27520 14252 0774 00 4 00000 ORDSX AXT **,4 RELOAD CALLING LINKAGE $F0E27530 14253 0020 00 4 00001 TRA 1,4 $F0E27540 $F0E27550 $F0E27560 14254 +000077777777 Q4BCD OCT 77777777 $F0E27570 $F0E27580 14255 0441 00 0 04004 ORDZR LDI BINRY LOAD WORD $F0E27590 14256 -0054 00 770000 LFT 770000 IS DIGIT 1 ZERO $F0E27600 14257 0020 00 0 14261 TRA *+2 NO $F0E27610 14260 -0055 00 120000 SIL 120000 YES, CONVERT TO TAPE BCD ZERO $F0E27620 14261 -0054 00 007700 LFT 007700 IS DIGIT 2 ZERO $F0E27630 14262 0020 00 0 14264 TRA *+2 NO $F0E27640 14263 -0055 00 001200 SIL 001200 YES, CONVERT TO TAPE BCD ZERO $F0E27650 14264 -0054 00 000077 LFT 000077 IS DIGIT 3 ZERO $F0E27660 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 218 PASS TWO PSEUDOOPERATION PROCESSOR 14265 0020 00 0 14267 TRA *+2 NO $F0E27680 14266 -0055 00 000012 SIL 000012 YES, CONVERT TO TAPE BCD ZERO $F0E27690 14267 0054 00 770000 RFT 770000 IS DIGIT 4 ZERO $F0E27700 14270 0020 00 0 14272 TRA *+2 NO $F0E27710 14271 0055 00 120000 SIR 120000 YES, CONVERT TO TAPE BCD ZERO $F0E27720 BINARY CARD NO. 9F050122 14272 0054 00 007700 RFT 007700 IS DIGIT 5 ZERO $F0E27730 14273 0020 00 0 14275 TRA *+2 NO $F0E27740 14274 0055 00 001200 SIR 001200 YES, CONVERT TO TAPE BCD ZERO $F0E27750 14275 0054 00 000077 RFT 000077 IS DIGIT 6 ZERO $F0E27760 14276 0020 00 0 14300 TRA *+2 NO $F0E27780 14277 0055 00 000012 SIR 000012 YES, CONVERT TO TAPE BCD ZERO $F0E27790 14300 0604 00 0 04004 STI BINRY $F0E28000 14301 0020 00 4 00001 TRA 1,4 $F0E28010 $F0E28020 $F0E28030 14302 0074 00 4 14255 ORDW1 TSX ORDZR,4 *CONVERT BCD ZEROS $F0E28040 14303 0074 00 4 07512 TSX PRNTO,4 *LIST AND PUNCH FIRST WORD $F0E28050 14304 0600 00 0 04004 STZ BINRY CLEAR NEXT WORD $F0E28060 14305 0074 00 4 14255 ORDW2 TSX ORDZR,4 *CONVERT BCD ZEROS $F0E28070 14306 0074 00 4 07512 TSX PRNTO,4 *LIST AND PUNCH THIS WORD $F0E28080 14307 0020 00 0 11030 TRA READ1 $F0E28090 $F0E28100 CALL CORRECTION $F0E28101 14310 -0520 00 0 03740 CALP1 NZT ABSFLG IS IT ABSOLUTE ASSEMBLY $F0E28102 14311 -0625 00 0 04023 STL TVFLG NO, SET TRANSFER VECTOR NAME FLAG $F0E28103 14312 0020 00 0 12377 TRA CLETC-1 $F0E28104 $F0E28105 SET CORRECTION $F0E28106 14313 0074 00 4 04767 SET02 TSX SCANF,4 *EVALUATE VARIABLE FIELD (21)F0E28107 14314 1 00000 0 07340 TXI AFLAG,,0 NULL DEFINITION (21)F0E28108 14315 -0500 00 0 04036 CAL VAREQ LOAD DEFINITION (21)F0E28109 14316 0621 00 0 04273 STA LITRL REPLACE PASS ONE DEFINITION (35)F0E28110 14317 -0500 00 0 04273 CAL LITRL GET FLAGS WITH DEFINITION (35)F0E28111 BINARY CARD NO. 9F050123 14320 0020 00 0 13441 TRA SET03 AND RETURN TO PROCESS THEM (35)F0E28112 14321 0 00000 0 00000 PZE (UNUSED) (35)F0E28113 14322 0 00000 0 00000 PZE $F0E28114 14323 0 00000 0 00000 PZE $F0E28115 14324 0 00000 0 00000 PZE $F0E28116 $F0E28117 ENTRY CORRECTION $F0E28118 14325 -0600 00 0 14330 ENTPC STQ ENTNM SAVE FIRST ENTRY POINT NAME $F0E28119 14326 -0634 00 4 03751 SXD SEPFLG,4 INITIALIZE STANDARD ERROR FLAG $F0E28120 14327 0020 00 0 12623 TRA ENT01+9 $F0E28121 14330 0 00000 0 00000 ENTNM PZE ** ENTRY POINT NAME $F0E28122 $F0E28123 BCI CORRECTION $F0E28124 14331 0074 00 4 07422 BCI00 TSX PRNTL,4 *PRINT LOCATION LEFT ADJUSTED $F0E28125 14332 0020 00 0 11030 TRA READ1 $F0E28126 $F0E28127 14333 0602 00 0 10632 INITA SLW START SAVE LOCATION FIELD $F0E28128 14334 -0500 00 0 04272 CAL BCDBF+13 SAVE ERROR FLAGS $F0E28129 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 219 PASS TWO PSEUDOOPERATION PROCESSOR 14335 0602 00 0 14344 SLW INITP $F0E28130 14336 0600 00 0 04272 STZ BCDBF+13 $F0E28131 14337 0020 00 0 11113 TRA INIT1 F0E28132 14340 0074 00 4 07470 INITB TSX PRNTW,4 *LIST AND PUNCH THIS DATUM WORD $F0E28133 14341 -0500 00 0 14344 INITC CAL INITP RESTORE ERROR FLAGS $F0E28134 14342 0602 00 0 04272 SLW BCDBF+13 $F0E28135 14343 0020 00 0 11161 TRA INIT4 $F0E28136 14344 0 00000 0 00000 INITP PZE $F0E28137 VFD CORRECTION $F0E28140 14345 0600 00 0 04014 VFDCR STZ RBITS RESET RELOCATION BITS $F0E28141 BINARY CARD NO. 9F050124 14346 -0625 00 0 04054 STL VFDMD SET VFD CARD FLAG $F0E28142 14347 0020 00 0 13571 TRA VFDOP+2 $F0E28143 PROGRAM CARD CORRECTION $F0E28144 14350 0634 00 4 10201 INITR SXA STR09,4 RESET CARD WORD COUNT FOR RELOCATABLE $F0E28145 14351 0520 00 0 03737 ZET MAINPF IS THIS A MAIN PROGRAM (24)F0E28146 14352 0520 00 0 03753 ZET PRGBK YES, IS PROGRAM BREAK 0 (24)F0E28147 14353 0020 00 0 11101 TRA INITS (24)F0E28148 14354 -0634 00 0 10063 ZSD PNCH1 MAIN PROGRAM WITH PROGRAM BREAK 0 (24)F0E28149 14355 0020 00 0 11101 TRA INITS (24)F0E28250 14356 0534 00 1 04370 PATCH1 LXA PAGCNT,1 LOAD NUMBER OF LINES LEFT ON PAGE $F0E28251 14357 3 00000 1 13460 TXH SPCOP+8,1,0 IS THIS TOP OF PAGE $F0E28252 14360 0734 00 1 00000 PAX ,1 YES, RECALL NUMBER OF LINES TO SPACE $F0E28253 14361 0020 00 0 13466 TRA SPCOP+14 $F0E28254 14362 -0056 00 000010 PREFP LNT 10 DUPLICATE DEFINITION $F0E28258 14363 -0500 00 0 04176 CAL BLANKS NO, CLEAR FLAG $F0E28259 14364 -0763 00 0 00006 LGL 6 BRING IN CHARACTER $F0E28260 14365 0602 00 0 70432 SLW BBUF22 SET WORD ZERO $F0E28261 14366 -0056 00 000010 LNT 10 TEST AGAIN $F0E28262 14367 0020 00 0 11756 TRA PREF6 NO DUPLICATE, CONTINUE $F0E28263 14370 0020 00 0 11757 TRA PREF6+1 ALWAYS PRINT DUPLICATE $F0E28264 PROLOGUE CORRECTION FOR EVEN $F0E28265 14371 -0500 00 0 11113 INITE CAL INIT1 TRANSFER VECTOR LENGTH IN ADDRESS $F0E28266 14372 0520 00 0 04130 ZET EVNFLG DO EVEN PSEUDO-OPS EXIST $F0E28267 14373 0760 00 0 00001 LBT YES, IS EXTRA WORD NEEDED.. $F0E28268 BINARY CARD NO. 9F050125 14374 0020 00 0 14406 TRA INITF **NO $F0E28269 14375 0774 00 4 00006 AXT 6,4 YES, SET LENGTH OF LISTING LINE $F0E2826A 14376 -0634 00 4 07665 SXD IOLST,4 TO INCLUDE LOCATION FIELD $F0E2826B 14377 0074 00 4 07676 TSX PRLST,4 PRINT BLANK LINE $F0E28270 14400 0 00000 0 00000 IOCD ,,0 $F0E28271 14401 -0500 00 0 14417 CAL AXTOC GENERATE HARMLESS INSTRUCTION $F0E28274 14402 0602 00 0 04004 SLW BINRY $F0E28275 14403 -0500 00 0 14420 CAL EVENM '*EVEN*' TO LOCATION FIELD $F0E28276 14404 0602 00 0 04255 SLW BCDBF $F0E28277 14405 0074 00 4 07543 TSX PRNTI,4 PRINT AXT INSTRUCTION $F0E28278 14406 -0500 00 0 10632 INITF CAL START RESTORE CARD LOCATION FIELD $F0E28279 14407 0020 00 0 11135 TRA INIT3+2 $F0E28280 $F0E28281 14410 -0500 00 0 03761 EVNOP CAL LOCTR GET PROGRAM COUNTER $F0E28282 14411 0760 00 0 00001 LBT IS IT ODD.. $F0E28283 14412 0020 00 0 13565 TRA UNLOP+1 NO, OPERATION IS NULL $F0E28284 14413 -0500 00 0 14417 CAL AXTOC YES,INSERT AXT OP CODE $F0E28285 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 220 PASS TWO PSEUDOOPERATION PROCESSOR 14414 0602 00 0 04004 SLW BINRY $F0E28286 14415 0074 00 4 07543 TSX PRNTI,4 AND PRINT LINE $F0E28287 14416 0020 00 0 11030 TRA READ1 $F0E28288 14417 0774 00 0 00000 AXTOC AXT ,0 $F0E28289 14420 542565254554 EVENM BCI 1,*EVEN* $F0E28290 SET ERROR BIT IN SYSJOB AND OBTAIN FLAGS $F0E28300 14421 -0500 00 0 06453 SSJOB CAL D1 =1B17 $F0E28310 BINARY CARD NO. 9F050126 14422 -0602 00 0 00133 ORS SYSJOB $F0E28320 14423 0441 60 0 73660 LDI* (FGBX) $F0E28330 14424 0020 00 2 00001 TRA 1,2 $F0E28340 14425 0534 00 1 04012 PTCHX LXA VRFLD,1 WORD COUNT + 1 OF CHARACTERS IN WORD $F0E28350 14426 -2 00001 1 14431 TNX *+3,1,1 TRANSFER IF THE WHOLE WORD CAN BE BLANKED$F0E28351 14427 -0763 00 0 00006 LGL 6 OTHERWISE WE BLANK OUT $F0E28352 14430 2 00001 1 14427 TIX *-1,1,1 THE REQUIRED NUMBER OF CHARACTERS $F0E28353 14431 0602 00 4 04255 SLW BCDBF,4 STORE WORD FOR PRINTING $F0E28354 14432 0074 00 4 07414 TSX PRNTC,4 TO PRINT ROUTINE $F0E28355 14433 0020 00 0 11030 TRA READ1 BACK TO MAIN CODING $F0E28356 14434 0774 00 4 00033 PTCHY AXT 27,4 (23)F0E28357 14435 0600 00 4 04247 STZ PBUFF1+27,4 DELETE PROGRAM BREAK (23)F0E28358 14436 2 00001 4 14435 TIX *-1,4,1 AND TRANSFER VECTOR (23)F0E28359 14437 0020 00 0 10725 TRA STRT1-20 AND RETURN (23)F0E28360 14440 606060606060 INX02 BCI 5, (26)F0E28390 14445 0520 00 0 04066 PTCHZ ZET UNLSF IS LISTING SUSPENDED (27)F0E28400 14446 0020 00 0 13502 TRA SPC03 YES, DO NOT SPACE LISTING (27)F0E28410 14447 -0534 00 4 07731 LXD PMCSW,4 (27)F0E28420 BINARY CARD NO. 9F050127 14450 -3 00000 4 13452 TXL SPCOP+2,4,0 IS IT MACRO GENERATED (27)F0E28430 14451 0500 00 0 07732 CLA PMCSW+1 YES, TEST PMC SWITCH (27)F0E28440 14452 0020 00 0 13451 TRA SPCOP+1 (27)F0E28450 14453 0600 00 1 23270 HGPCH STZ SYMTBL-1,1 DELETE HANGING GARBAGE (28)F0E28460 14454 0600 00 1 23271 STZ SYMTBL,1 (28)F0E28470 14455 0020 00 0 07202 TRA SUDS1+8 CONTINUE (28)F0E28480 14456 -3 00000 2 14461 K001 TXL K002,2,** TRA IF REFERENCE TABLE OVERFLOWED. (32)F0E28490 14457 0100 00 0 11775 TZE PREF8 TRA IF THIS IS A NEW SYMBOL. (32)F0E28500 14460 0020 00 0 11764 TRA PREF7+2 TRA IF THIS SYMBOL HAS BEEN USED. (32)F0E28510 14461 0600 00 0 04076 K002 STZ PRTIF NO CONTINUATION LINES WHEN LOCATIONS (32)F0E28520 * OF REFERENCES TO UNDEF.SYM. DELETED. (32)F0E28530 14462 1 00001 2 12007 TXI PREFS,2,1 GO WRITE NAME OF UNDEFINED SYMBOL. (32)F0E28540 14463 -0534 00 4 13031 K003 LXD LBL02,4 DECR. = -1 UNTIL PROGRAM CARD HAS (32)F0E28550 14464 3 77776 4 13052 TXH LBL03+1,4,-2 BEEN PUNCHED. DO NOT FORCE PUNCHING (32)F0E28560 14465 0020 00 0 13051 TRA LBL03 OF INCOMPLETE PROGRAM CARD. (32)F0E28570 *************************PATCH SPACE****************** $F0E29999 NUMBER FIELD ALLOWED FOR PATCHES $F0E30000 17262 FINIS SYN BOTTAB-LOPTBM-6 $F0E30010 $F0E30020 $F0E30030 $F0E30040 DATA TABLES $F0E30050 23270 ORG BOTTAB $F0E30055 $F0E30060 23270 BSS LSMTBM TABLE OF SYMBOL DEFINITIONS $F0E30070 65207 VECTOR BSS LTVTBL TABLE OF TRANSFER VECTOR NAMES $F0E30080 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 221 PASS TWO PSEUDOOPERATION PROCESSOR 65601 LITTBL BSS LLITBL TABLE OF LITERAL VALUES $F0E30090 $F0E30091 BCD BLOCKED CARD BUFFERS $F0E30100 $F0E30110 67551 ORG BOTBUF $F0E30115 67551 BBUF11 BSS 104 BCD LISTING BUFFER 1 $F0E30120 67721 BBUF12 BSS 104 BCD LISTING BUFFER 2 $F0E30130 70071 BBUF21 BSS UPDBKL+1 UPDATE INPUT BUFFER 1+1WORK SKEW SPACE $F0E30140 70432 BBUF22 BSS UPDBKL+1 UPDATE INPUT BUFFER 2+1WORK SKEW SPACE $F0E30150 70773 BBUF31 BSS UPDBKL+1 SOURCE INPUT BUFFER 1+1WORK SKEW SPACE $F0E30160 71334 BBUF32 BSS UPDBKL+1 SOURCE INPUT BUFFER 2+1WORK SKEW SPACE $F0E30170 71675 BBUF41 BSS UPDBKL UPDATE OUTPUT BUFFER 1 $F0E30180 72235 BBUF42 BSS UPDBKL UPDATE OUTPUT BUFFER 2 $F0E30190 72575 BBUF51 BSS INPBKL+1 INTERMEDIATE INPUT/OUTPUT BUFFER 1 $F0E30200 73176 BBUF52 BSS INPBKL+1 INTERMEDIATE INPUT/OUTPUT BUFFER 2 $F0E30210 $F0E30220 BINARY CARD BUFFERS $F0E30230 70773 ORG BBUF31 $F0E30240 70773 PBUFF2 BSS 27 MONITOR BINARY OUTPUT BUFFER 1 $F0E30250 71026 PBUFF3 BSS 27 MONITOR BINARY OUTPUT BUFFER 2 $F0E30260 71061 PBUFF4 BSS 27 INTERMEDIATE BINARY OUTPUT BUFFER 1 $F0E30270 71114 PBUFF5 BSS 27 INTERMEDIATE BINARY OUTPUT BUFFER 2 $F0E30280 $F0E30290 77777 END -1 F0E30300 BINARY CARD NO. TRA77777 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 1 POST PROCESSOR ASSEMBLY DATA 73667 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM REFERENCES TO DEFINED SYMBOLS 4 4 C 0, 3734 1 4 M 0 1 4 N 0 20 4 T 0, 3735,12423 6453 4 D1 11453,12126,12157,13556,13674,16125,17073 6454 4 D2 14135 6456 4 D4 6457 4 D5 7326 6460 4 D8 11137 17013 4 GO 6471 4 P1 6472 4 P4 5204, 5402, 5543,17134 6474 4 P7 10757,15043,15046,15107,15537,15555,16051,16061 6407 4 Q0 5461, 6104, 7412, 7422,10705,11265,12034,12342,13032,13231,14154 6410 4 Q1 4624, 5232, 5326, 5332, 7162,10031,10040,10044,10076,10111,10165,10373,10657,10676,10721,11250,11331 11335,11413,11443,12224,12551,12555,12567,12575,13136,13157,13326,13606,13704,14172,14213,14262,16017 16661,17125,17140 6411 4 Q2 7256, 7470,10775,11150,11160,11172,11341,11564,12110,16000,16015 6422 4 Q3 5325, 7156 6412 4 Q4 4620, 6320,12564,17004 6424 4 Q6 4652 6425 4 Q7 4601,16671 6413 4 Q8 5756, 7072,12561 6516 4 QB 5527 6515 4 QD 6501 4 QE 5524 6514 4 QH 5700,11577,12201,12503 6513 4 QL 6503 4 QO 5675,11574,12500 6445 4 T1 12021 6446 4 T2 6447 4 T3 6450 4 T4 6462 4 D48 6464 4 D63 15403 17110 4 MP1 14044,14052 6426 4 Q10 5474, 5713, 6117, 7733,11243,11246,12217,12223,12354,12511 6427 4 Q15 12210 6414 4 Q16 12572 6415 4 Q32 15362 6431 4 Q36 11404,12545,16045,16055 6432 4 Q62 13371 6433 4 Q63 11227,12525,12526,13265 6416 4 Q64 7424 7110 4 Q80 7074 40000 4 4MSK 0 6465 4 D320 10506 4 ENDC 17005,17010 17034 4 FORT 17017,17025 16716 4 IGNR 16711 17031 4 LOOP 17033 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 2 POST PROCESSOR ASSEMBLY DATA 6434 4 Q100 6114 6435 4 Q127 6417 4 Q128 5633,12173 6420 4 Q256 7111 4 Q800 7077 17040 4 SIZE 17026 17026 4 TBLE 17022 17023 4 TEST 17014 17036 4 TROF 17016 6505 44FLAG 4077 4704FG 11206 4704OP 17271 11211 4709OP 17273 6506 49FLAG 4042 49LPMD 20000 49OMSK 0 11225 4ABS01 11215 11214 4ABSOP 17275,17277,17755 6444 4ADDMK 5213, 5237,14306,14342 3762 4ADDRS 7327, 7366,10630,11013,11267,11307,11360,11740,11756,11760,12134,12165,12174,12212,12222,12227,12246 12252,15424,15445 6452 4ADTMK 5211, 5340, 7201,14510,15406 16740 4AECRD 7424 4AFLAG 7266,11260,11303,11353,11377,11427,11737,12121,12163,12215,14166,15421 6475 4ALONE 6367, 6371, 6372 16202 4ARGIL 14461,14526,14566,15744 14527 4ARGJL 14315,14422,14442,14522,14524,15005,15026,17167 16157 4ARGNO 13667,14103,14113 16160 4ARGWD 14467,14530,14545 6523 4ASTRK 4577, 4607, 4614, 5275,13243,13363,16667 7004 4BCD14 4452, 4463, 4517, 4534, 4536 7010 4BCD24 7767,10016,10021 7014 4BCD34 10123,10152,10155 7020 4BCD44 10320,10365,10367 7024 4BCD54 10345,10410,10412 7030 4BCD55 4255 4BCDBF 4575, 4605, 4662, 4663, 6261, 6300, 6302, 7205, 7334, 7525, 7533, 7614, 7626, 7631, 7642, 7670, 7671 7672, 7675,10317,10344,10544,10730,10734,10736,11226,11474,11531,11766,12143,12772,13010,13211,13316 13334,14034,14226,14272,14401,14414,14465,15132,15136,15142,15143,15357,15426,16705,16763,16764 6104 4BCDCV 4407, 6331, 7664,14507 16613 4BCDMM 13411 11226 4BCDOP 17323 6325 4BCDV1 6105 11243 4BCI01 11232,11233 11245 4BCI02 11231,11234,11240,11241,11242 11251 4BCI03 11236,11244 16614 4BCIMM 11235 4BCIOP 17325 4007 4BERAS 5427, 5634, 6265, 6270, 7207, 7246,10223,10233,10271,10570,10573,12372,12376 11254 4BESOP 17327 3776 4BHEAD 5017, 7362,11536,11555,13264,14560,14572,14611,15434 7044 4BINBF 7050 4BINIO 4004 4BINRY 6532 4BKTBL 6532,13523,13524 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 3 POST PROCESSOR ASSEMBLY DATA 6517 4BKTBM 6517, 6532 7001 4BLABL 5155 4BLADD 5121 6522 4BLANK 4560, 4634, 5001, 5513, 5672, 5753, 6000, 6131,10437,10540,11230,11325,11533,11634,11723,12011,12046 12176,12230,12250,12475,12536,12776,13151,13615,14307,17045 5170 4BLDIV 5062 5263 4BLERA 5155, 5157, 5177 5165 4BLMPY 5101 6473 4BLNK3 4667 5157 4BLSUB 5125, 5156 4044 4BOLMD 5003, 5047, 5175, 5212, 5252, 5317, 5322, 5350, 5356, 5370, 5737,11301 11301 4BOLOP 17331 7040 4BOTBF 7034 4BOTIO 6265 4BPCTR 10660,11251,11264,11332,11336,11343,11414,11565,12111,12556,12576,16662,17127 6770 4BS2RC 4766 4BSRCH 4726, 4727, 4730, 4731, 4732, 4733, 4734, 4735, 4736, 4737, 4740, 4741, 4742, 4743, 4744, 4745, 4746 4747, 4750, 4751, 4752, 4753, 4754, 4755, 4756, 4757, 4760, 4761 6767 4BSREC 10073,10106,10673,16745 11266 4BSS01 11254,11256 11256 4BSSOP 11255,17403 6237 4C0190 5404, 5472, 5666, 5707, 5747, 5774, 6135, 6212,11423,11572,11573,11621,12175,12216,12247,12471,12522 12532,13516 6250 4C019A 5375, 7121,11324,13150,13614 6240 4C019Q 4613, 4633, 4640 6260 4C0200 6241, 6252 11334 4CAL01 11323,11326 11341 4CAL02 11333 11344 4CAL03 11330 16717 4CALN1 7264 7262 4CALNM 11322,11424,11520,16721 7300 4CALNX 7262, 7272 11321 4CALOP 17435 15015 4CCHAR 14351,14630,14710,14735 3760 4CDCTR 6266, 6267,10575,11000,11461,11725,12114,12133 12650 4CHANG 3734 4CHANS 7727 4CKPDX 7716, 7721, 7724, 7725 7716 4CKUPD 7745,10525 11324 4CLETC 11320,11340 15511 4CLEVL 14242,15036,15100,15364,15473,15505,15514,15533,15553,16766,17142 15152 4CMP01 14373,15153,15341 15163 4CMP02 15337,15343,15350,15351 15173 4CMP04 15152 15205 4CMP05 15177 15227 4CMP10 15200 15243 4CMP11 15146,15154,15251 15251 4CMP12 15235 15255 4CMP13 15234 15270 4CMP14 15254 15301 4CMP15 15233 15333 4CMP16 15204,15226,15253,15300 15336 4CMP20 15172,15225,15277,15330 15352 4CMP21 15243 15354 4CMP22 14245,14300,14361,15524,15542,15752 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 4 POST PROCESSOR ASSEMBLY DATA 15266 4CMPCT 15203,15216,15217,15271,15272,15321,15322 15253 4CMPFC 15202,15210,15213,15320 15142 4CMPIL 15475,15517 15155 4CMPVF 11207,11212 10653 4CNTFG 10651,10655,11373,11375 11372 4CNTOP 17461 10623 4CNTRL 15370 10532 4COMCD 6322,10521,10524,10632,10634,11471,12452,17001,17002 6520 4COMMA 5510, 5667, 5750, 5775,11237,11245,12472,12533,14266,14343,14417 11345 4COMOP 17457 16161 4COUNT 13403,13464,13473,13476,13503,13520,13522,13555,13567,13637,13673,13710,13712,13744,13747,14003,14751 14771,15010 16626 4CRPT1 14513,15404 16627 4CRPT2 14515 15415 4CRS01 15374 14500 4CRSCT 14502,15411 16621 4CRSNM 14504 16162 4CRSNO 14476,14517,14521,15372,15416 15371 4CRSOP 20313 6466 4D4032 14114 16310 4DARGS 13121,13176,14076 6423 4DASTR 4671 4105 4DC2FG 7054, 7066, 7070 4075 4DCBFG 5432, 5437, 5450, 5551, 5625 4104 4DCEFG 7053, 7062, 7064 4073 4DCNFG 5430, 5441, 5552 4103 4DCPFG 7052, 7056, 7060 5436 4DCV01 7061 5445 4DCV02 7065 5450 4DCV03 5447, 7055, 7071 5461 4DCV04 5460, 5520 5467 4DCV05 5442, 5444, 5455, 5466, 5534 5477 4DCV06 5452, 5453, 5457, 5462, 5464 5506 4DCV07 5443, 5454, 5456 5510 4DCV08 5475 5536 4DCV09 5512, 5515 5551 4DCV10 5542 5555 4DCV11 5550, 5553 5611 4DCV12 5567 5625 4DCV13 5566, 5607 5645 4DCV14 5637 7052 4DCV15 5435 7056 4DCV16 5523 7062 4DCV17 5526 7066 4DCV18 5531 5647 4DCVRR 5440, 5511, 5514, 5517, 5522, 5525, 5530, 5533, 5535, 5610, 5611, 5624, 5636, 7057, 7063, 7067 4074 4DCXFG 5431, 5436, 5445, 5541 5424 4DECCV 5434, 5446, 5451,11606 5652 4DECCX 5373, 5414, 5417, 5423, 5424, 5540, 5554, 5626, 5646 11412 4DECOP 11416,17515,20271 6056 4DECSV 5361,15410 6102 4DECSX 6064, 6076 4316 4DELBF 7462, 7613, 7713, 7770, 7775,10053,10247,17164 7700 4DELET 7637 12600 4DELMS 12437 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 5 POST PROCESSOR ASSEMBLY DATA 7714 4DELPX 7710, 7711 6455 4DELTF 7706 4DELUP 7524, 7551, 7555, 7623,16701,16714 6421 4DIGIT 6340 4DIGM1 6276, 6277 6345 4DIGM2 6274, 6304 7136 4DLERR 7124, 7126, 7130, 7132, 7134, 7143 7121 4DLRUT 5023 6524 4DOLAR 11421 4DOLOP 10666 10520 4DPAS1 10621 11464 4DUP01 11433,11436,11446 10564 4DUPC1 10556 10555 4DUPCD 7437,10560,11456 4016 4DUPCT 10565,10567,10571,10574,11454,11460,11462 4021 4DUPFG 10337,10351,10353,10554 4045 4DUPMD 7440,10552,10576,11347,11447,11463,12127 11426 4DUPOP 17567 7702 4EBTHR 7526, 7571 10215 4ECARD 16740 4154 4EFCHR 4154 6507 4EFLAG 4127 4EFLST 4030 4ELMEQ 5025, 5065, 5067, 5103, 5122, 5130, 5162, 5165, 5170, 5321, 5343, 5355, 5362, 5363, 6037, 6046, 6062 6075 4032 4ELMUF 5027, 5075, 5111, 5115, 5152, 5333 4031 4ELMUN 5026, 5106, 5126, 5127, 5150, 5364 11046 4ENDCF 11351 16751 4ENDER 16741,16743 10700 4ENDF1 10670 10670 4ENDFA 11477,11505 10717 4ENDFB 10712 10724 4ENDFC 10710 10745 4ENDFD 10725,10742 10762 4ENDFE 10746 10771 4ENDFF 17133,17137,17141 17131 4ENDFP 10771 10276 4ENDMK 7751,10241 16620 4ENDMM 13207 11470 4ENDOP 11014,11475,17645 11500 4ENFOP 17647 11503 4ENPOP 17651 11510 4ENTOP 17655 16735 4EOFER 16727 16726 4EOFIN 10161 7243 4EOPT1 7220, 7224 7250 4EOPT2 7251, 7254 7205 4EOPTB 12024,12043,12101 7206 4EOPTT 13061 7260 4EOPTX 7206, 7250 6531 4EQUAL 4622,10662,11636,13437 4010 4ERASE 5565, 5601, 5614,11742,11746,12050,12062,12065,12076,13374,13375,13723,13724,14025,14026,14115,14116 14140,14141 4106 4ERFDL 4127, 7137 4126 4ERFFM 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 6 POST PROCESSOR ASSEMBLY DATA 4120 4ERR49 4121 4ERRFA 4116 4ERRFB 5346, 5420, 6051, 7150,11613,11616,12014,12017 4123 4ERRFD 4115 4ERRFE 5304, 5651, 5727, 6025, 6100, 6202, 6227,11605,11610,12013,12016,12051,12071 4125 4ERRFF 5013 4124 4ERRFI 4113 4ERRFL 4110 4ERRFM 4117 4ERRFN 4127 4114 4ERRFO 4112 4ERRFP 4111 4ERRFR 5114, 5235 4122 4ERRFT 4107 4ERRFU 7347 4ESYM0 7337 7362 4ESYM2 7375 7364 4ESYM3 7160 7334 4ESYML 10656,11252,11275,11311,11321,11366,11417,11464,11561,11761,12107,12136,12167,12254,12466,12574,13422 14471,15443,16660,16722 7377 4ESYMS 16724,16725 7335 4ESYMT 7331,11015,17034 7401 4ESYMX 7335, 7336, 7351 16724 4ESYMZ 7377,10466,16770,16776,17147 16640 4ETCCD 15161 4046 4ETCMD 7472,10641,11315,13074,13076,13204,13277,13460,13462,13666,14372,14775,15034,15075 7504 4ETCMK 7466,14230 11315 4ETCOP 10642 16651 4ETCPC 13735 16730 4ETEST 10174 7703 4ETHRU 7531, 7574 5316 4EVAL1 5277, 5315 5335 4EVAL2 5323 5350 4EVAL3 5302 5361 4EVAL4 5351 5363 4EVAL5 5327, 5334, 5344, 5347, 5357, 5360 5272 4EVALE 5033, 5043, 5057 5273 4EVALF 5061, 5100, 5120, 5124 5345 4EVLBR 5337 17123 4EVNOP 17723 2 4EXPND 0, 5034, 5173, 5272, 5407, 6206,11544,13020,15400 1 4EXPRR 0, 5113, 5234, 5253, 5255, 5345, 5412, 5742, 6050, 6077, 6201, 6226, 7136, 7171, 7177, 7267, 7275 7407,10633,10636,11261,11304,11354,11400,11430,11437,11543,12030,12122,12360,12427,12767,13017,14167 15072,15375,15450 11516 4EXTOP 17725 4047 4FCFLG 7347,10536,11217,11372,11512,17011 12564 4FIELD 7211, 7735,11277,11306,11313,11370,11374,11402,11410,11466,11545,11763,11776,12001,12012,12020,12027 12032,12041,12047,12073,12075,12140,12171,12177,12202,12206,12232,12235,12240,12251,12332,12420,12423 12424,12431,15377,15401,15414,15430,15452,17012 12563 4FIELX 7411,11747 24107 4FINIS 23747 7150 4FLAGB 6204 4 4FLDND 0, 5415, 5536, 6013, 6205, 6221, 7426,11276,11312,11337,11367,11407,11415,11465,11521,11726,11762 12000,12066,12137,12170,14202,15413,17041 4145 4FLG49 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 7 POST PROCESSOR ASSEMBLY DATA 5654 4FPCV1 5555, 5562, 5564 5655 4FPCV2 5557, 5560 5656 4FPCV3 5622 5657 4FPCV4 5605 4401 4FPRN0 4372, 4375, 4376 4431 4FPRN1 4403, 7146, 7147 4435 4FPRN2 4365, 4366, 4374, 7114 7114 4FPRNA 4434 4437 4FPRNX 4361, 4362, 4363, 4400 4525 4FRCMK 4516 17003 4FRPA1 10506 17011 4FRPA2 12160 4043 4FULMD 17075 4G10P1 13636 17073 4G10PA 13641 13510 4GSAV1 13441,13456,13515,13517,13574,13613 13507 4GSAV2 13500,13535,13573,13602,13642,16652 13515 4GSC01 13501,13534,13603 13535 4GSC02 13467,13526,13741,13746 13552 4GSC04 13537 13553 4GSC05 13551 13564 4GSC06 13554,13563 13604 4GSC07 13453,13547,13772 13613 4GSC08 13545 13624 4GSC09 13454,13543,13631,13644,13773,14002,17075 13635 4GSC10 13625,13636,13641 13642 4GSC11 13451,13627,13634,17076 13651 4GSC12 13624 13671 4GSC13 13662,13665 13701 4GSC14 13672 13703 4GSC15 13540 13707 4GSC16 13536 13713 4GSC17 13717,13765 13736 4GSC18 13716,13721,16653 13745 4GSC19 13707 13747 4GSC20 13620,13655,13661 13757 4GSC21 13751 13770 4GSC31 13650,13700,13702 13774 4GSC32 13146,13154,13172,13202,13275,13756,13767 14001 4GSC33 13553,13635,13671,13715 14002 4GSC34 13541,13542,13544,13546,13550,13552,13604,13610,13616,13622,13653,13706 14014 4GSCAX 14007 13445 4GSCBP 13643 13512 4GSCET 13470 14040 4GSCFX 14020,14024 13656 4GSCPE 13612,13623 14025 4GSCS1 17103,17107 14007 4GSCSA 13402,13472,13502,13562,13564,13701,14013 14016 4GSCSF 13561,13647,13677,13755,13766,14011 14031 4GSCX1 13513,13601,17106 14030 4GSCX2 13514,13600 17104 4GSFP1 14016 17107 4GSFP2 17101 17101 4GSFPA 14022 11524 4HADOP 17771 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 8 POST PROCESSOR ASSEMBLY DATA 7141 4HDTST 7123, 7125, 7127, 7131, 7133, 7135 11533 4HED01 11525,11527 11541 4HED02 11556 7361 4HEDCT 11540,11546,11553 6352 4HEDNM 11551 11530 4HEDOP 17773 16654 4HYPOP 17761,17763,17765,17767,17775,17777,20001,20003,20007,20011,20013,20015,20017,20021,20025,20027 11557 4IFEOP 20033 14201 4IFF01 13443,17171 14213 4IFF02 13424,13432,13434,14207 14226 4IFF03 14221,14240 14232 4IFF04 14217,14231,14233 14237 4IFF05 14232 13424 4IFF06 14212 13430 4IFF07 13435 13434 4IFF08 13427,13433 17166 4IFFIX 14203,14204 14165 4IFFOP 20035 7701 4IGNOR 7634 7002 4ILABL 6773, 6774 6463 4IMASK 4013 4INDFG 4574, 4616, 4626, 4660, 4673,11177,14407 4015 4INDIC 7522 4INP00 7636, 7641, 7645 7540 4INP01 7553 7560 4INP02 7521, 7535, 7542, 7547,16702,16703 7623 4INP03 7513, 7515, 7573, 7575, 7600, 7603, 7610,16706,16707,16712,16715 7655 4INP04 7622,11765,12005,16704 7672 4INP05 7657 6430 4INP06 7660, 7662, 7731,12447,12451,16630,16631 6461 4INP07 7661, 7736,12450 16701 4INP2A 7567,16674 16704 4INP3A 7630,16675 16707 4INPCH 7611,16676 7676 4INPTX 7505 7505 4INPUT 7566,10617 7753 4INS01 7743, 7744, 7746 4275 4INSBF 7452, 7570, 7576, 7625, 7747, 7754,10124,10131,10237,10245,16664,16710,17161 7757 4INSPX 7741, 7752 10651 4INSTR 10640,10645,12771 7741 4INSUP 7652 6773 4INTAP 10413,10603,10607,10751,10755,10760,10764,10770 6775 4INTCK 4423 4IOBLK 4373 4421 4IOHED 14253 4IRP01 14252,15255,15313 14272 4IRP02 15354 14314 4IRP03 14271 14356 4IRP05 14310,14344 14361 4IRP06 14255,14277,14303,14355 14363 4IRP10 14247,14301 14374 4IRP1X 14363,14366 16207 4IRPAR 14261,14357,15757 16612 4IRPMK 14274 16204 4IRPNO 14254,14267,14276,14302,14304,14336,14341,14352,14356 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 9 POST PROCESSOR ASSEMBLY DATA 14242 4IRPOP 20111 16205 4IRPPW 14257,14353 16206 4IRPSD 14263,14265,14326,14347,14350 6777 4ITSCH 17043 4JPLCH 11176 6224 4LADJS 7273 4070 4LBLFG 16163 4LCARG 13012,13171,13173 14726 4LCHAR 14270,14305,14321,14420,14647,14653,14657,14714,14736,15016 4041 4LINKG 11613 4LITCL 11576 11603 4LITDC 11575,11600,11602 11642 4LITDF 11611,11617,11635,11637 11633 4LITH1 11624 11621 4LITHL 11601,11625,11632,11633 6354 4LITNM 11707 11702 4LITNT 11676,11677 11570 4LITOP 10663 4273 4LITRL 10625,11274,11310,11361,11365,11434,11452,11455,11537,11607,11615,11627,11631,11640,11642,11743,11750 11755,11757,12022,12042,12100,12104,12135,12166,12253,12563,12566,13053,14573,14612,15412,15425,15457 16655 12561 4LITRR 11612,11620,11641 16410 4LKTBB 15617,15621,15622,15655,15656 16411 4LKTBP 15577,15607,15673,15677,15705,15715,15727,15733 15470 4LKTOV 15606,15714 4556 4LOCF1 4567 4570 4LOCF2 4553 4547 4LOCFL 7210, 7350,11767,12773,13011,13212,13322,14466,15427 4571 4LOCFX 4547 11720 4LOCOP 20207 3761 4LOCTR 5316, 6271, 6272,10564,10572,10627,11224,11457,12131,17124 4765 4LOWER 4712, 4716 6517 4LPARN 11646 4LSCH1 11007,11016,11653,11654,11655,11656,11657,11660,11661,11662,11663,11664,11665,11666,11667,11670,11671 11672,11673,11674,11675,11702,11703,11705 11700 4LSCH2 11645,11650,11652 11717 4LSCH3 11651 16622 4LVLNM 15470 11567 4L(EOF 11562 14446 4MAC02 13444,14445 14471 4MAC03 14463,14470 14476 4MAC04 14527 14521 4MAC05 14477 14526 4MAC06 14475 14546 4MAC07 10465,13307,14531,14757,15120,16723 16722 4MAC2A 14457 13443 4MACIF 14175,14201,14424 16164 4MACNO 15500,15503,15521,15522 14376 4MACOP 14200,16171,20223 16407 4MARGS 13425,13426,14205,14210,14260,14312,14314,14337,14360,14421,14426,14430,14431,14441,14525,14542,14544 15006,15011,15014,15027,15315,15747 16611 4MARMK 14433 11730 4MAXOP 20227 15454 4MCER1 13162,13416,13656 13420 4MCER3 14427,14435,14440 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 10 POST PROCESSOR ASSEMBLY DATA 13416 4MCERP 14636,14671 15457 4MCERR 13421 15463 4MCERX 15460 16165 4MCIND 14410,15041,15051,15112,15535,15562 13010 4MCR01 13000 10307 4MCRDF 12271,12273,13006,13030,13241,13312,14400,14552,14562 10305 4MCREF 10355,12270,12272,15145,15247 12772 4MCROP 20225 16634 4MCTBL 14332,14412,15130 16201 4MDFCT 14256,14354,14367,14371,14450,14451,14567,14602,15105,15205,15214,15230,15231,15261,15304,15333,15334 16623 4MDFNM 15466 16576 4MDTBL 15177 14474 4MEPTR 14313,14547,14755,15003,15004,15040,15102,15540,15543,15547,15557,17144 6510 4MFLAG 13052 6103 4MILLN 6072 11736 4MIN01 11732 11743 4MIN02 11751,11752,11753,11754 11751 4MIN03 11730,11731,11734,11735 11755 4MIN04 11745 11733 4MINOP 20231 6525 4MINUS 5516,10664,17047 13023 4MOP00 12774,12777,13016 13035 4MOP01 13014 13071 4MOP02 13037,13040 13074 4MOP03 13035 13111 4MOP04 13073,13101,13124,13126,13130,13132,13140,13152,13161 13121 4MOP05 13110,13114,13117 13141 4MOP06 13105,13112,13131 13150 4MOP07 13127,13143 13156 4MOP08 13125 13163 4MOP10 13144,13147,13155 13203 4MOP11 13163 13231 4MOP12 13213 16166 4MOPCH 13217,13226,13333,17064 16167 4MOPMQ 13215,13224,13331,17062 16170 4MOPNM 13044,13056,13235 13015 4MOPOP 20235 16572 4MOPP2 13041,14064,14452,15076 12767 4MOPSW 13001,13003,13025,13036,13164,13253,13256,13314 16171 4MOPTR 10464,13057,13062,13165,13257,13306,16773,17146 14074 4MPCNT 13067,13107,13115,13120,13166,13175,13270 16602 4MPKMK 13316 4MSC01 13210,13237,13303 13326 4MSC02 13321 13344 4MSC03 13362,13370 13355 4MSC04 13347,13350,13351 13371 4MSC05 13345,17054,17071,17072 13365 4MSC06 17046,17052 17045 4MSC07 13364 17053 4MSC08 17050,17051 17062 4MSC09 13373 13377 4MSC10 13205,13300,17061 13441 4MSC11 13413 13450 4MSC14 13442 13436 4MSC1A 13415 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 11 POST PROCESSOR ASSEMBLY DATA 13456 4MSC20 13440 13470 4MSC22 13445,13447,13455,13461,13511,13565,13742 13502 4MSC23 13471,17100 10453 4NDATE 10431,10433 4005 4NERAS 4612, 4651, 5374, 5403, 5413, 5416, 5425, 5537, 5547, 5577, 5604, 5613, 5621, 5627, 5640, 6121, 6122 7073, 7075, 7076, 7100, 7101, 7103, 7104, 7106,16035,16037,16040,16057 12643 4NOCNT 10654 15416 4NOCOP 20253 4057 4NOGOF 12004 4NUM01 11774 7731 4NUM02 11777 6451 4NUM03 7663 16630 4NUM04 7740 11765 4NUMOP 20263 5404 4OCT01 5377, 5401 5415 4OCT02 5406 4251 4OCTAL 5373 4OCTCV 11614,12015 7072 4OCTDV 5420 4OCTRR 5410 6050 4OCTSR 6033 6030 4OCTSV 5352, 5411 6053 4OCTSX 6041, 6047 4011 4OFLGS 4274 4OPBIN 10626,10646,10740,12103,12106,13042,13055,13246,14065,14235,14446,14453,14472,14605,14614,15462,16654 16657,17154 3763 4OPCOD 4670, 7717,10643,13013,13206,13301,13407 12010 4OPDOP 20301 12572 4OPERR 11200,11220,11346,11511,11517,11560,12257,12267,12377,14243 4064 4OPFLG 6476 4OPMSK 4024 4OPRFG 12026 4OPSOP 20303 5344 4OPSW1 5006, 5365, 5367 5360 4OPSW2 5273, 5366 6356 4OPTNM 7230 12055 4OPV01 12067 12064 4OPV02 12057 12045 4OPVOP 20305 4337 4ORDBF 10250,10255,10257 10220 4ORDER 10000,10134 12103 4ORDOP 17513,17541,17543,17547,17551,17553,17573,17577,17603,17605,17607,17611,17613 10237 4ORDR1 10232 10262 4ORDR2 10270 10270 4ORDR3 10225,10230,10235,10236,10243,10263 4100 4ORDRF 6310, 6313, 6314, 7777,10133,10242,10246,10253,15567,15573 10257 4ORDRS 10272 4ORDRX 10220 12120 4ORG01 11724 12127 4ORG02 11721,11727,12113 12113 4ORGOP 20311 10330 4OTPT0 10741,14246,14606,14615 10331 4OTPT1 10304,10306,10310,10327,10350,10403,10416 10335 4OTPT2 16765 16763 4OTPT3 10335 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 12 POST PROCESSOR ASSEMBLY DATA 10354 4OTPTX 10301,10330,10333 10301 4OTPUT 10323,10360,10376,10615,11476,13247,13310,14551 15466 4OVRLP 14546,14774,15002,17110 4102 4P1FLG 7425, 7471,10334,10622,12570,12573,15363,15367 6477 4P1MSK 7673 6500 4P2MSK 7674 16624 4PARFL 15456 16172 4PARNC 13135,13137,13141,13156,13160,13605,13607,13621,13651,13703,13705,13771,15455 7146 4PATCH 4430 15465 4PCCP2 17153 16173 4PCONT 13463,13633,13645,13711,13720,13726,13727,13752,13757,17074,17077 15703 4PDOWN 15502 15716 4PDWNX 15703 7470 4PEEK1 7436 7431 4PEEKS 11327,12541,13145,13153,13617,13654,13660,13663,14364,14666 7477 4PEEKX 7431, 7432, 7433, 7435, 7441, 7467, 7473, 7474, 7475 4250 4PFLAG 12566 4PHASE 11263,11350,11356,11432,11441,11450,11513,12124,12130,12562,12565 7503 4PKMSK 7465, 7750,10240,14227,14273 7434 4PKMSW 15147,15173,15246,15311,15342 14633 4PLEVL 14325,14416,14635,14640,14643,14645,14670,14720,14722,14725 6527 4PLUSS 5376, 5400, 5532,12204,12245 15505 4PMC11 15476 15506 4PMC1X 15472 15515 4PMC21 15477,15501,15512,15523 15524 4PMC23 15515 16772 4PMC2P 15546 15530 4PMC2X 15510 17146 4PMC3P 15554 15563 4PMC3X 15552,17150 15472 4PMCL1 14550,14603 15510 4PMCL2 15244 15532 4PMCS1 14406,14565 15546 4PMCS2 15534,15545,16777 15552 4PMCS3 14223,14456,15525 15550 4PMCSX 15532 6502 4POINT 5521 15760 4POPPX 15737,15754 6054 4PRDMK 6045 3753 4PRGBK 5240,11001,11002,11004,11012,12115,12116 6530 4PRIME 13360,17053 16575 4PRNLS 14320,14415 16574 4PRNLT 14324 7705 4PROID 7666,11772 3754 4PROLG 10777 4072 4PRTF1 4402, 4431, 4433 4071 4PRTFG 4432, 4500, 4504 4076 4PRTIF 12142 4PRTOP 20351 17160 4PSOIN 11177 4PSOPT 10527,10650 16174 4PSYMB 13100,13122,13465,13731,13754,13760 15762 4PUP01 15740,15742,15746,15751,15756 15772 4PUP02 15763 17163 4PUPIN 17157 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 13 POST PROCESSOR ASSEMBLY DATA 15737 4PUPOP 15044,15047,15110,15541,15560 15734 4PUPPX 15720 15720 4PUPUP 15520 6436 4Q1000 6111 6437 4Q4095 6440 4Q7680 7112 4Q8000 7102 6441 4Q8192 15633 4QUERY 15626 4764 4RAISE 4720 4014 4RBITS 4776, 5246, 5256,11262,11305,11355,11401,11431,11440,12072,14170 6511 4RCOMA 10146 4RDSRC 10120,10121,10516 10171 4RDSRX 10146 10024 4RDUP0 12316 10012 4RDUPD 7764, 7765,10025,10066,12323,17117 10035 4RDUPX 10012 10550 4READ1 10402,10534,10537,10561,10612,10614,10667,11210,11213,11225,11253,11300,11314,11344,11371,11405,11411 11420,11425,11467,11515,11523,11542,11566,11717,11764,12025,12044,12102,12112,12141,12161,12172,12255 12260,12560,12571,12577,13007,13423,14000,14225,14236,15062,15415,15417,15453,16663,17000,17035,17130 17517,17633,20047,20125,20177,20261,20333,20345,20501,20503,21061,21103,21105,21403,21461,21513 10600 4READ2 10523,10553,10613,11500 10614 4READ3 10522,10526,10562,10563,10577,10600,11473 4511 4RECMK 4451 11056 4REL01 11066 11066 4REL02 11044,11054,11061,11065 4700 4RELFG 5227 16616 4REMMM 15651 4REST1 15632,15664 15665 4REST2 15624 15671 4REST3 15615,15660,15663,15670 14050 4RESTF 13077,13203,13276,17112 15612 4RESTP 13313,14237,14616,15070,15516 15700 4RESTX 15612,15613 6771 4REWND 10424,10471,10606,10754,10767,12153 12147 4REWOP 20527 13252 4RMT00 13244 13276 4RMT01 13255 13304 4RMT02 13223,13236,16767,16771 16766 4RMT03 13305 16643 4RMTCD 10727 16175 4RMTEN 10724,13260,13262,14563,14570,14575,14577,14600 16617 4RMTMM 13302 13240 4RMTOP 20563 16573 4RMTP2 14604,14613 14563 4RMTS1 14556,14617 14610 4RMTS2 14561,14564 14554 4RMTSR 10744,13250 14620 4RMTSX 14554 10635 4ROUTE 13003,13025,13253,13314,14221,14240,14241,15060,15071 14051 4RSTF1 13775,13777 14066 4RSTFX 14050 17142 4SARGP 14043 14042 4SARGT 13070,13274,17143,17145 5120 4SCADD 5005, 5036 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 14 POST PROCESSOR ASSEMBLY DATA 16133 4SCAN1 16130,16156 16135 4SCAN2 16124,16132 16144 4SCAN3 16137,16155 16147 4SCAN4 16120,16152 16151 4SCAN5 16122,16146 16153 4SCAN6 16116,16150 4767 4SCANF 5740, 7265, 7405,11257,11302,11352,11376,11426,11435,12120,12350,14165 7404 4SCANP 7732,11736,11744,11773,12162,12415,15420 16115 4SCANS 14331,14411,15127,15176 16132 4SCANT 14627,15031,15141,15312,15335,16134 16154 4SCANU 14737 5261 4SCANX 4767, 5254 5061 4SCDIV 5045, 5051 6211 4SCEND 5012, 5421, 5647, 6024, 6203, 6214, 6216, 6220,11334,11412 6222 4SCENX 6211, 6217 5113 4SCMP1 5076 5100 4SCMPY 5053 5010 4SCN01 5007, 5174 5023 4SCN02 5022, 5040, 7140, 7145 5031 4SCN03 5030, 5050, 5060 5044 4SCN04 5042 5052 4SCN05 5041 5173 4SCN10 5077, 5117, 5154, 5164, 5167 5207 4SCN11 5200 5227 4SCN12 4702, 4705, 4706, 5216, 5223 5247 4SCN13 5231 5255 4SCN14 5014 4050 4SCNBC 5016, 5031, 5341, 5353 4051 4SCNBE 4777, 5160, 5264, 5266, 5270 4052 4SCNFC 5015, 5044, 5046, 5052, 5054, 6165 7417 4SCNPX 7404, 7406, 7421 5131 4SCSB1 5123 5145 4SCSB2 5140 5150 4SCSB3 5137, 5144 5124 4SCSUB 5037 10277 4SEQID 7536, 7537, 7655, 7656,10227,10234 15441 4SET01 7202,15437 15453 4SET02 15444 15420 4SETOP 21047 15610 4SETPX 15565 15565 4SETTP 13002,13024,13252,14220,14555,15057,15474 4573 4SETUP 7742,10520,10631 14111 4SFARN 13324,13353,13670,14012 14121 4SFARS 13325,13354,13367 14152 4SFARX 14112,14121 14155 4SFFLG 13327,13372,13376,13725,14027,14142 14140 4SFS02 14134 14143 4SFS03 14132,14133 14147 4SFS04 14120,14137 14154 4SFZRO 13304,13611,13770 14163 4SFZRX 14155 17037 4SISBI 17021 4022 4SKDUP 17113 4SKF01 12156 12154 4SKFOP 21063 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 15 POST PROCESSOR ASSEMBLY DATA 7704 4SKIPC 7534, 7577, 7643 7551 4SKP01 7562 7554 4SKPFG 7522, 7560 6521 4SLASH 5710,10442,10445,12506 14070 4SMARS 14071 4SMART 13323,13352,13737,14006,14107 14106 4SMARX 13446,13512,13566,13743,14001,14004,14071,14072,14073,14075,14102,14104 4714 4SOPT1 7234,10463 4707 4SOPTB 7216, 7720,10644,12040,13050,14434 4722 4SOPTX 4707, 4713, 4724 11076 4SORT1 11136,11174 11103 4SORT2 11124 11121 4SORT3 11102 11126 4SORT4 11134 11130 4SORT5 11106,11122,11127 11136 4SORT6 11157,11164 11160 4SORT7 11135 11165 4SORT8 11156,11171,11175 11176 4SORT9 11053,11070,11165 12722 4SORTA 11074,11077,11126,11132,11140,11147,11152,11153,11162,11163,11166,11167 12721 4SORTB 11076,11133,11141,11151,11154,11155,11161,11173 10616 4SOURC 10517,10547,10743,11502,12003,12007,12146,12152,12264,12275,13251,13315,14362,14553,14556,14607,14617 15250,15475,15517,17115,17122 6504 4SPACE 6364 6361 4SPACP 10062,10266,12144,15630 6374 4SPACS 7165 4SRCH1 7161, 7166, 7170 7174 4SRCH2 7163, 7167,15446,15447 7203 4SRCHX 7152, 7173 10144 4SRCID 7453, 7460, 7512, 7541, 7546, 7602, 7607, 7653, 7654,10132,10135,10140,10141,16677 10115 4SRCIN 7445, 7510, 7563,10130,10163,10170 10142 4SRCNX 10115,10137 10203 4SRCRM 16737 10173 4SRCRR 10154,10671,16733 16664 4SRCS1 7511 7506 4SRCSW 7442, 7444, 7647,16700,17156 10274 4SRCWD 10252 12655 4SRTBT 11101 6126 4SSCAN 5032, 5405,11524,11541,12026,12362,13015,13111,13222,13344,15373,17013 6133 4SSCET 5056, 6176,13104 6163 4SSCN0 6140, 6146,13311,14046 6165 4SSCN1 6137, 6143, 6145, 6151, 6157 6205 4SSCN2 6155, 6161, 7151 6207 4SSCNX 6133, 6142, 6150, 6153, 6156, 6163 6177 4SSCRR 6141, 6144, 6147, 6152, 6154, 6160, 6162, 6164, 6171 14622 4SSING 14425 14624 4SSINS 14335,14473,17166 15066 4SSINX 14624 16203 4SSLOC 15042,15045,15050,15111,15536,15544,15556,15561,15743 14630 4SSN01 14333,14413,15131 14645 4SSN02 14634 14657 4SSN03 14414,14652,14656,15132 14666 4SSN04 13417,14654,14655,14660,14661 14676 4SSN05 14667 14705 4SSN06 14677,14702 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 16 POST PROCESSOR ASSEMBLY DATA 14714 4SSN07 14633,14642,16575 14720 4SSN08 14632 14733 4SSN09 14717,14730 14736 4SSN10 14332,14412,14641,14650,14651,14723,14724,15130,16574 14740 4SSN11 14644,14675,14713,14715,14716,14727,14731,14732 14753 4SSN12 14674,15065 14752 4SSN13 14762,15126,15454 14762 4SSN14 14752 15003 4SSN16 14776 15023 4SSN17 14317,14712,15033,15064 15030 4SSN18 14623,14673,15023,15025,15032,15063 15052 4SSN21 15037 15063 4SSN22 14754,15030,15035 15070 4SSN30 15060,15071 15077 4SSN31 17155 15113 4SSN32 15053,15055,15101 17152 4SSN33 14176,14224,15077 14746 4SSNBC 14327,14345,14405,14625,14733,14763,15021,15137 14742 4SSNBW 14330,14346,14404,14626,14734,14764,15022,15140 15017 4SSNEC 14740 14743 4SSNEW 14741,15020 12160 4SSTOP 21221 7152 4SSYMT 5314,15440 10421 4START 73666 16024 4STF01 14055,15116,16003,16021,16112 16054 4STF02 16043 16063 4STF03 14056,15121,16012,16053 16066 4STF04 16032 16070 4STF05 16041,16050,16060 16072 4STF06 15164,15175,15324,15332,15336,15353,15527,16052,16062,16102 16075 4STF07 15344,16044,16056,16072 16100 4STF08 14057,14061,15122,15124,16005,16013,16022,16046,16054 16104 4STF09 16016,16064 16105 4STF10 14062,15125,16006,16077 16113 4STF11 16020,16023 16022 4STF12 16113 6317 4STP00 4610 4611 4STP01 4627, 4630, 4642, 6321 4627 4STP02 4617 4640 4STP03 4623 4641 4STP04 4625 4643 4STP05 4635, 4641 4655 4STP06 4611 4662 4STP07 4661, 4674 4670 4STP08 4666 4675 4STP09 4672 17000 4STP0A 10535 4633 4STP2A 4621, 4636, 4637 17151 4STPTR 7400,14042,16772 16015 4STUFF 13733,14036,14150,14161,14773,15001,15161,15171,15224,15241,15276,15327 16023 4STUFI 13774,15052,15114,15356,16004,16063,16103,16110,17111 16014 4STUFX 16001 16000 4STUFY 13066,13273,14761,15151 16177 4STUM2 13776,14054,15054,15117,16002,16025,16027,16031,16042,16047,16111 4676 4STUPX 4573, 4631 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 17 POST PROCESSOR ASSEMBLY DATA 4000 4SYMB2 5300, 5303, 6031, 6040, 6042, 6063, 6065, 6126, 6166, 6172, 6177, 6224,12031,13022,13103,15376 4001 4SYMBL 4550, 4564, 4566, 4570, 5055, 5274, 5305, 5313, 6030, 6034, 6056, 6127, 6167, 6175, 6200, 6230, 7141 7164, 7215, 7244, 7263,10624,11526,11554,12033,12364,13021,13023,13031,13102,13106,13113,13230,13346 13366,13404,13466,13477,13504,13530,13533,13570,13753,14005,14070,14125,14145,15402,15405,15436,16651 17015,17020 6355 4SYMNM 7372 12162 4SYNOP 17657,21301 12214 4TAP01 12200,12207,12213,12231 12233 4TAP02 12220 12241 4TAP03 12236 12252 4TAP04 12241 6512 4TAPCH 12234 12173 4TAPOP 21303 12256 4TCDOP 21305 1 4TDMSK 0 3777 4THEAD 5024, 5311 4067 4TITLF 4 4TKMSK 0 16200 4TOTAL 13406,13474,13475,13506,13557,13560,13572,13632,13640,13646,13675,13676,13762,13763,14017,14023,14032 4033 4TRMEQ 4770, 5063, 5072, 5102, 5104, 5133, 5135, 5163, 5166, 5172, 5202, 5263 4035 4TRMUF 4772, 5074, 5110, 5116, 5136, 5153, 5215 4034 4TRMUN 4771, 5073, 5105, 5107, 5142, 5146, 5151, 5221, 5225 7311 4TRVC1 7304 7302 4TRVCR 7276, 7317, 7320,11563 7332 4TRVCX 7302, 7307 4101 4TTLFG 4416, 4426,10173,16726 16615 4TTLMM 4023 4TVFLG 5010, 5020, 7277, 7356,16720 4060 4TYPAF 4061 4TYPCF 4062 4TYPDF 4063 4TYPKF 12261 4ULDOP 21515 12266 4UMCOP 21511 16625 4UNDFL 13046,13420 4065 4UNL1F 6772 4UNLOD 12265 4066 4UNLSF 10313 4UPBLK 12357 3757 4UPCTR 11045,11051,11357,11363 12321 4UPD00 10065 12327 4UPD01 12304,12317 12350 4UPD02 12335 12000 4UPD03 12363,12433,12434,12440,16632 12362 4UPD05 12351,12353,12355 10100 4UPDC1 10070 10067 4UPDCL 10701,12310 10113 4UPDCX 10067,10104 10010 4UPDID 7454, 7461, 7540, 7545, 7601, 7606, 7620, 7621, 7776,10001,10004,10005 7761 4UPDIN 7451, 7520, 7552, 7774,10027,10034 12442 4UPDLS 11503,12002,12006,12145,12274,12411,17162,17165 12453 4UPDLX 12442 10006 4UPDNX 7761,10003 12276 4UPDOP 21517 10056 4UPDR1 10064 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 18 POST PROCESSOR ASSEMBLY DATA 10064 4UPDR2 10057 12605 4UPDRM 10051 10037 4UPDRR 10020,10071,10101 12455 4UPDSC 12151,12263 7516 4UPDSW 7446, 7450, 7617, 7707,10102,10103,12326,17121 10275 4UPDWD 10254 17156 4UPFIX 12443 12414 4UPSCN 12301,12327,12374 12425 4UPSCX 12414,12421,17042 12427 4UPSSC 12365 12400 4UPT01 12375 12406 4UPT02 12373,12401,12455,17113 12366 4UPTIP 12155 12370 4UPTOP 11501,12150,12262,12367 12412 4UPTPX 12371 4036 4VAREQ 4773, 5132, 5134, 5161, 5201, 5203, 5206, 5214, 5236, 5251, 5260, 5265, 5267,11270,11273,11362,14173 14214 4037 4VARUC 4700, 4775, 5145, 5147, 5224, 5226, 5230, 5241, 7415,12123 4040 4VARUR 4703, 4774, 5141, 5143, 5220, 5222, 7413 5704 4VCV01 5677, 5702 5707 4VCV02 5703, 5705, 5724 5725 4VCV03 5712 5747 4VCV04 5736, 5770 5771 4VCV05 5733, 6012 6013 4VCV06 5671, 5674, 5741, 5746, 5752, 5755, 5777, 6002 6023 4VCV07 5670, 5673, 5676, 5701, 5711, 5714, 5744, 5751, 5754, 5760 6353 4VECNM 7312 12506 4VFD01 12523 12522 4VFD02 12502,12505 12524 4VFD03 12510 12532 4VFD04 12473,12476,12501,12504,12534,12537 12533 4VFD05 12507,12512 12541 4VFD06 12477,12540 12560 4VFD07 12542 5660 4VFDCV 12055 6026 4VFDCX 5660, 6022 4027 4VFDFB 5665, 5716, 5720, 5723, 5725, 5731, 6014, 6023,12056,12470,12514,12516,12521,12524 4002 4VFDFL 5661, 5662, 5745, 5761, 5762, 5764, 5767, 5772, 5773, 6003, 6004, 6006, 6011, 6015, 6016, 6020, 6021 12063 4055 4VFDHF 5663, 5706, 5732 4054 4VFDMD 5207,11316,12052,12070,12465,12557 4056 4VFDOF 5664, 5704, 5734 12465 4VFDOP 21527 4053 4VFDPF 4025 4VFDRB 12054,12060,12061,12074 4026 4VFDTB 12467,12530,12531,12543,12552,12553 12470 4VFETC 11317,12474,12535 2 4VLMSK 0 4012 4VRFLD 4647, 4650, 4675,11201,11202,11421,11422,11570,11571,12277,12300,13220,13221,13377,13400,14177,14402 15133,15135,17066,17067 4526 4WRBLK 4447, 4474, 4515, 4522 4543 4WRBLX 4526, 4532 4512 4WRFBK 6305,10711,16747 4523 4WRFBX 4512, 4514 10406 4WRIN0 10342 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 19 POST PROCESSOR ASSEMBLY DATA 10401 4WRINT 10341,10352,10745 10417 4WRINX 10401,10404 4467 4WRIT0 4471, 4541, 4545,17007 4501 4WRIT1 4455,10477 4475 4WRITS 4443 4WRITT 4414, 4420, 4422, 4466, 4513, 4521, 4531, 4544, 6275, 6301, 6303, 7116, 7117,10653 4505 4WRITX 4443, 4444, 4445, 4501 10363 4WROP0 10315 10357 4WROPT 10314,10325,12276,12404 10377 4WROPX 10357,10361 4006 4XERAS 4457, 4460, 5426, 5544, 5600, 5603,10221,10226 12630 4XORDR 10265 12615 4XREDN 10061 6055 4YYMSK 6032 6413 4ZONER 6413 4 5 C 1 5 M 1 5 N 20 5 T 6453 5 D1 14421 6454 5 D2 7355 6456 5 D4 7350 6457 5 D5 6460 5 D8 7343 6471 5 P1 12447 6472 5 P4 10171,12133 6474 5 P7 6407 5 Q0 10747,12135,12137,13307 6410 5 Q1 7641,10323,10332,10446,11674,11677,12265,12525,13556 6411 5 Q2 7702,11667,12360,12367,12445,12452,12532,12673,13160,13572 6422 5 Q3 6412 5 Q4 6424 5 Q6 12270 6425 5 Q7 10406,11423,11523 6413 5 Q8 6516 5 QB 13635 6515 5 QD 6501 5 QE 6514 5 QH 13100 6513 5 QL 6503 5 QO 6445 5 T1 6446 5 T2 11242 6447 5 T3 11214 6450 5 T4 11502,12371 6462 5 D48 11462,11500 6464 5 D63 6426 5 Q10 12246,12260,12307 6427 5 Q15 11377 6414 5 Q16 6415 5 Q32 6431 5 Q36 6432 5 Q62 6433 5 Q63 11724,12241,13364 6416 5 Q64 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 20 POST PROCESSOR ASSEMBLY DATA 7110 5 Q80 40000 5 4MSK 7364, 7366 6465 5 D320 10262,10341 14456 5 K001 10676,11763 14461 5 K002 14456 14463 5 K003 13001 6434 5 Q100 6435 5 Q127 7774 6417 5 Q128 6420 5 Q256 7111 5 Q800 6505 54FLAG 12170 4077 5704FG 11362,11473,12156,12164 12156 5704OP 17271 12164 5709OP 17273,12163 6506 59FLAG 12162 4042 59LPMD 12214,12222,12231,12655 12201 59LPOP 17275 20000 59OMSK 7362 12232 5ABS01 12224 12221 5ABSOP 17277 6444 5ADDMK 10516,11142,11235,12374,12524 3762 5ADDRS 7427, 7442, 7640, 7643,11042,11101,11167,11540,12332,12351,12471,12476,12477,12565,12643,13173,13207 13374,13441,13444,13505 6452 5ADTMK 7211, 7311,11213 7340 5AFLAG 12205,12413,12614,12710,13453,13504,14314 6475 5ALONE 12475,12620 6523 5ASTRK 14417 5AXTOC 14401,14413 7004 5BCD14 7010 5BCD24 7014 5BCD34 7020 5BCD44 7024 5BCD54 7030 5BCD55 10570,10613,10616 4255 5BCDBF 7321, 7406, 7657, 7772,10004,10007,10571,10575,11014,11043,11111,11125,11135,12240,12272,12312,12354 12357,12366,12473,13070,13422,13524,13531,13534,13537,13571,13737,13741,14334,14336,14342,14404,14431 6104 5BCDCV 7776,13264,13353,14242 12237 5BCDOP 17323 6325 5BCDV1 12321 5BCERR 12247,12256,12261,12305,12306 14331 5BCI00 12254 12276 5BCI01 12264,12266,12303 12305 5BCI02 12245,12251,12257 12252 5BCIOP 17325 12272 5BCIWD 12263 4007 5BERAS 7221, 7224, 7234,11236,11270,11273,11721,11766,11771,13021,13040 12333 5BES01 13245,14462,20223,12327 12326 5BESOP 17327,17403 3776 5BHEAD 7326,10640,11224,12665,13426 12114 5BIN00 12110 12120 5BIN01 10727,10731,12076,12107,12114 12134 5BIN04 12126,12131 12140 5BIN05 12073,12075,12105 7044 5BINBF 10253,10343,10344,10345 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 21 POST PROCESSOR ASSEMBLY DATA 12077 5BINCP 12111,12124 7050 5BINIO 10342,10347 4004 5BINRY 7462, 7470, 7514, 7544,10130,10207,10225,11126,11154,11157,11204,11306,11322,11352,11357,11364,11375 11425,11446,11456,11461,11503,11525,11560,12301,12315,12323,12372,12406,12415,12430,12440,12446,12450 12461,12506,12623,12631,12640,12642,12672,12703,12706,12711,13240,13254,13266,13277,13312,13316,13335 13355,13365,13366,13370,13613,13616,13650,13653,13662,13666,14255,14300,14304,14402,14414 6532 5BKTBL 6517 5BKTBM 7001 5BLABL 10350 5155 5BLADD 6522 5BLANK 7436, 7471, 7515, 7522, 7530, 7545, 7560, 7573, 7605, 7611, 7620, 7652, 7722,10374,11346,11413,11517 11527,11602,11726,11750,12175,12233,12242,12401,12420,12574,12660,12721,13111,13345,13546 5170 5BLDIV 5263 5BLERA 5165 5BLMPY 6473 5BLNK3 5157 5BLSUB 14172 5BMPBF 10016,10047,10411,10424,10437,10444,10456,10460,10462 10443 5BMPI1 10435 10450 5BMPI2 10427,10433,10442 10422 5BMPID 10363,10441 10451 5BMPIX 10422 14202 5BMPSV 10017,10046 10350 5BNTAP 10355,11633,11643,12104,12142 4044 5BOLMD 11333 12345 5BOLOP 17331,21303 7040 5BOTBF 10252,10264,10265,10266 7034 5BOTIO 10263,10320,10326,10741,10742,12775,12776,13052,13053 6265 5BPCTR 7642,12335 6770 5BS2RC 4766 5BSRCH 6767 5BSREC 6237 5C0190 13076,13106 6250 5C019A 12400,13077 6240 5C019Q 6260 5C0200 12412 5CAL01 12377,12402 12433 5CAL02 12411 12466 5CAL03 12434 12365 5CALOP 17435 14310 5CALP1 12376 13777 5CBTIT 11612,11614 3760 5CDCTR 10173,10231,10517,10521,10722,11535,11536,12226,13376 14075 5CDERR 11637 14123 5CHANG 10314 3734 5CHANS 11400 14166 5CHKSM 10132,10133,10162,10175 14212 5CIDBF 10020,10051,10377,10440,10445,10447,10472,10474,10500,10502 14222 5CIDSV 10021,10050 12400 5CLETC 12364,12432,14312 11036 5CNTRL 12526 6520 5COMMA 12255 12470 5COMOP 17457 13744 5CRDID 10235,10477,10505,10523,10537 14165 5CTLWD 10156,10174 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 22 POST PROCESSOR ASSEMBLY DATA 6466 5D4032 6423 5DASTR 4105 5DC2FG 4075 5DCBFG 10544,11760,11764,11776 4104 5DCEFG 4073 5DCNFG 4103 5DCPFG 5436 5DCV01 5445 5DCV02 5450 5DCV03 5461 5DCV04 5467 5DCV05 5477 5DCV06 5506 5DCV07 5510 5DCV08 5536 5DCV09 5551 5DCV10 5555 5DCV11 5611 5DCV12 5625 5DCV13 5645 5DCV14 7052 5DCV15 7056 5DCV16 7062 5DCV17 7066 5DCV18 5647 5DCVRR 4074 5DCXFG 5424 5DECCV 12505 5652 5DECCX 12504 5DECOP 17515,12511 6056 5DECSV 13555 6102 5DECSX 4316 5DELBF 14064 5DELOL 10357 6455 5DELTF 7214, 7301, 7303 12513 5DETOP 17517 6421 5DIGIT 10410,10436 6340 5DIGM1 6345 5DIGM2 7136 5DLERR 7121 5DLRUT 6524 5DOLAR 12545 5DUP01 12521,12536 10771 5DUPC0 11001,11012,12541,12543 11003 5DUPC1 10774,11023,12522 11017 5DUPC2 11021,12537 11024 5DUPC3 11004,12531 10766 5DUPCD 10770,11016,11032,12533 4016 5DUPCT 4021 5DUPFG 4045 5DUPMD 7277,11025,11031,12544,12554 12517 5DUPOP 17567 10604 5DUPSW 10606,10776 4154 5EFCHR 7706 6507 5EFLAG 11620 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 23 POST PROCESSOR ASSEMBLY DATA 4127 5EFLST 7705, 7707, 7711,10633,10635,10636 12550 5EJCOP 17633,21061 4030 5ELMEQ 4032 5ELMUF 4031 5ELMUN 12573 5END01 12557 12577 5END02 12561,12564,12575 11563 5ENDF1 11545,11546 12045 5ENDF4 12033,12036,12037,12042 12074 5ENDF5 12056 11533 5ENDFA 10762 11565 5ENDFB 12577 11623 5ENDFC 11605,11610,11617 12554 5ENDOP 17645 12612 5ENT01 12605,14327 12650 5ENT02 12630,12647 14330 5ENTNM 11156,14325 12602 5ENTOP 17655 14325 5ENTPC 12622 6531 5EQUAL 11327 4010 5ERASE 10024,10367,10415,11223,11243,11245,11727,11740,11746,11752,12375,12435,12566,12603,12606,12637,13311 13315,13506 7216 5EREF0 7250,10655,10665,10701,10703 7220 5EREF1 7255,10666,10667,10670 7231 5EREF2 7223,10671,10672,11666,11670,11703 7240 5EREF3 7230, 7252,10673 7243 5EREF4 10645,10661 4106 5ERFDL 4126 5ERFFM 7314, 7333 4120 5ERR49 7367 4121 5ERRFA 7340, 7345, 7407, 7663,13342,14251 4116 5ERRFB 7271, 7272,11355,12762,12763,12765,13700 4123 5ERRFD 7357,11455 4115 5ERRFE 12321,13500 4125 5ERRFF 7661,11530,12176,12210,12216,12234,12356,12570,12576,12646,12661,12726,12764,13046,13340,13346,13475 13512,13713 4124 5ERRFI 11467,11476 4113 5ERRFL 13073 4110 5ERRFM 7206, 7332, 7334 4117 5ERRFN 7365,11401 4114 5ERRFO 11310,11466,11475 4112 5ERRFP 12651,13704 4111 5ERRFR 11407,11452,11513,12634,12716,13477,13644,13701,14245 4122 5ERRFT 7352 4107 5ERRFU 7170, 7271, 7335,11233,12650,12762,13476,13703 12055 5ERRRS 14112 5ERTIT 12034,12035,12047 4046 5ETCMD 11202,12361,12370,12403,13573,13656 12354 5ETCOP 11203 5316 5EVAL1 5335 5EVAL2 5350 5EVAL3 5361 5EVAL4 5363 5EVAL5 5272 5EVALE 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 24 POST PROCESSOR ASSEMBLY DATA 5273 5EVALF 14420 5EVENM 14403 5345 5EVLBR 14410 5EVNOP 17723 2 5EXPND 13003,13026,13326,13715 1 5EXPRR 7167,11231,11277,11312,11336,11344,11411,11430,11515,12206,12416,12562,12626,12700,12717,12760,13002 13016,13025,13454,13507,13557,13714,14246 14133 5FAILD 12064,12072 4047 5FCFLG 13061 5FCMSK 13011 13737 5FIELD 13716,13727 17262 5FINIS 14466 7343 5FLAGA 11335,11343 7150 5FLAGB 7355 5FLAGD 11427 7350 5FLAGT 11404 4 5FLDND 7341,12215,12431,12510,12567,12645,12725,13042,13113,13242,13471,13511,13654,13712 4145 5FLG49 12173 5654 5FPCV1 5655 5FPCV2 5656 5FPCV3 5657 5FPCV4 4401 5FPRN0 4431 5FPRN1 4435 5FPRN2 7114 5FPRNA 4437 5FPRNX 4525 5FRCMK 4043 5FULMD 10066,10205,10232,10260,10337,12213,12221,12230,12656 12654 5FULOP 17755 7141 5HDTST 6352 5HEDNM 12664 5HEDOP 17771,17773 14453 5HGPCH 7201 13363 5HYPAD 13360,13371 13350 5HYPOP 16656 10372 5IDEN1 10413,10416 10366 5IDENT 10042,10750,13041 10420 5IDENX 10366 12725 5IFE01 12720 12670 5IFEOP 20033 7370 5IFL01 7363 7362 5IFLGS 11316,12160,12166,12171,12172,13252 7002 5ILABL 6463 5IMASK 11472 4013 5INDFG 11457 4015 5INDIC 10102,10121,11037,11361,11444,11556,12407,12425,12453,12463,12674,12713,13607,13625,13640 11057 5INIT0 11173 11113 5INIT1 10726,14337,14371 11124 5INIT2 11133 11133 5INIT3 11114,11115,14407 11161 5INIT4 11076,11122,11151,14343 11173 5INIT5 11057,11061 14333 5INITA 11112 14340 5INITB 11160 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 25 POST PROCESSOR ASSEMBLY DATA 14341 5INITC 11140 14371 5INITE 11134 14406 5INITF 14374 14344 5INITP 14335,14341 14350 5INITR 11100 11101 5INITS 14353,14355 6430 5INP06 6461 5INP07 10577 5INPTX 10562 10562 5INPUT 10574,10625,10630,11035 4275 5INSBF 11255 5INST0 11247,11252 11276 5INST1 11217,11234,11257 11300 5INST2 11201 11315 5INT00 11211,11261,11275 11324 5INT03 11314 11341 5INT04 11331 11346 5INT05 11332,11340,13075 11357 5INT06 11345,13170 11403 5INT07 11354,11363,11367,11370,11374 11413 5INT08 11356,11410 11423 5INT09 11412 11426 5INT10 11421 11443 5INT11 11431 11456 5INT12 11337,11422,11450,11451 11471 5INT14 11460 11504 5INT15 11465 11523 5INT16 11516 11526 5INT17 11313,11470,11506,11510,11522 6773 5INTAP 10614,10761,11010 6775 5INTCK 10610 13754 5INTIT 12741 12742 5INX01 12734,12773 14440 5INX02 12750,12755,12761,12771 12734 5INXOP 20047,12735 4423 5IOBLK 4421 5IOHED 11571 7665 5IOLST 7667,10772,11002,11034,11130,11153,11165,11554,13430,13672,14376 6777 5ITSCH 10621 6224 5LADJS 12615,12747 13016 5LBL01 13004,13010,13012 13031 5LBL02 11174,14463 13051 5LBL03 14464,14465 10530 5LBLDF 10510 4070 5LBLFG 10043,10467,10511,11071,13034,13055 12774 5LBLOP 20125 13760 5LDTIT 11150 7770 5LEVEL 7737,13226 10003 5LEVL1 7775 10010 5LEVLX 7770 4041 5LINKG 11144,12460 13102 5LIT01 13104,13107,13110 13115 5LIT02 13101,13114 13773 5LITIT 11552 6354 5LITNM 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 26 POST PROCESSOR ASSEMBLY DATA 13070 5LITOP 11341 4273 5LITRL 12326,12334,12340,12350,12470,12520,12534,12664,13116,13171,13201,13214,13247,13262,13267,13300,13317 13351,13356,13372,13425,13433,14316,14317 4556 5LOCF1 4570 5LOCF2 4547 5LOCFL 7322 4571 5LOCFX 13171 5LOCOP 20207 3761 5LOCTR 7241, 7637,10515,10721,11041,11141,11166,11537,11577,11606,11615,12331,12373,12444,13174,13375,14410 4765 5LOWER 7160, 7164 6517 5LPARN 13062 5LSTOP 20177 10056 5L(TRA 10041 13201 5MAXOP 17657,20227,20231,21301 13214 5MCERR 13054,15461 6510 5MFLAG 11753,13216 6103 5MILLN 6525 5MINUS 7465, 7547 4005 5NERAS 7212, 7256, 7312,10003,10006,13020,13037 4057 5NOGOF 7714,11622,12032,12055,13220 12733 5NOPOC 12705 6451 5NUM03 5404 5OCT01 5415 5OCT02 4251 5OCTAL 7417, 7424, 7425, 7426, 7437, 7444, 7445, 7456, 7457, 7477, 7503, 7510, 7523, 7533, 7541, 7577, 7625 7634, 7653, 7665, 7764, 7765, 7766,11303,11304,11305,11347,11351,11417,11436,11441,11521,12421,12423 12722,12724,13222,13223,13224,13225,13231,13232,13233,13234,13246 5373 5OCTCV 13237 7072 5OCTDV 12456 13236 5OCTOP 20271,13243 5420 5OCTRR 6050 5OCTSR 6030 5OCTSV 6053 5OCTSX 13736 5OFFMK 13726 4011 5OFLGS 7344, 7351, 7356,11276,11315,11471 13735 5ONMSK 13724 13707 5ONOFF 13404,13410 13717 5ONOFX 13707,13711,13742 13733 5ONRTN 13725 4274 5OPBIN 11062,11205,11207,11254,11260 3763 5OPCOD 11170,11220,11244,11255 13245 5OPDOP 20301,20303,20305 11056 5OPERR 11052 4064 5OPFLG 7621,13255,13257 6476 5OPMSK 11321 4024 5OPRFG 11056,11063,11200,11307 5344 5OPSW1 5360 5OPSW2 6356 5OPTNM 13274 5ORDAM 13271 4337 5ORDBF 13342 5ORDFA 13325 13340 5ORDFF 13327,13334 13344 5ORDLP 13272,13303,13322,13336,13361 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 27 POST PROCESSOR ASSEMBLY DATA 13261 5ORDOP 12105 13324 5ORDRC 13321 4100 5ORDRF 14237 5ORDSC 13274,13305,13363 14251 5ORDSN 14241 14252 5ORDSX 14237,14244,14250 13305 5ORDTK 13302 14302 5ORDW1 13273,13304 14305 5ORDW2 13323,13337,13341,13343,13362 14255 5ORDZR 13313,14302,14305 13372 5ORGOP 20311 4102 5P1FLG 6477 5P1MSK 10005 6500 5P2MSK 7771 10513 5PAK01 10533,12343 10453 5PAKID 10417,10450,10465 10526 5PAKIX 10453,10470,10513 14232 5PAKPC 10520 7146 5PATCH 13404 5PCCOP 20333 10023 5PCHT1 10014 10012 5PCHTC 11566,13510 10053 5PCHTX 10012,10027 13764 5PCTIT 11075 4250 5PFLAG 13215,13230 14011 5PGTIT 11603,11621,11624 13676 5PHASE 11051,11054,12555 6527 5PLUSS 7463 13410 5PMCOP 20345 7731 5PMCSW 11044,11047,13411,14447,14451 10063 5PNCH1 10061,11104,14354 6502 5POINT 10001 6054 5PRDMK 11644 5PREF0 11630,11654,11710 11671 5PREF1 11651 11705 5PREF2 11756,12006,12023 11717 5PREF3 11675 11722 5PREF4 11676 11743 5PREF5 11700 11756 5PREF6 11653,11704,13414,14367,14370 11762 5PREF7 11716,12000,14460 11775 5PREF8 11770,14457 12024 5PREF9 7251,10656,10702,11644,11660,11720 14362 5PREFP 11755 12007 5PREFS 11655,12002,12004,14462 3753 5PRGBK 10720,14352 6530 5PRIME 7712 5PRL00 10634 7725 5PRL01 7717 7734 5PRL02 7724 7740 5PRL03 7736 7747 5PRL04 7735, 7743 7753 5PRL05 7703, 7741, 7756 7757 5PRL06 7701, 7740, 7751, 7752 7676 5PRLST 7664,11074,11116,11120,11145,11147,11162,11547,11551,12736,12740,12770,13064,14377 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 28 POST PROCESSOR ASSEMBLY DATA 7761 5PRLSX 7676, 7732, 7733 7562 5PRN01 7552 7577 5PRN02 7561 7615 5PRN03 7607, 7614 7623 5PRN04 7461 7637 5PRN05 7511, 7542 7657 5PRN06 7421, 7440, 7636 7406 5PRNCC 12515,12552,12742,13044,13057,13066,13412,13415,13473,13517,13562 10537 5PRNCI 10034,10525,14235 10531 5PRNCS 10044,10076,11073,14234,14236 10540 5PRNCX 10532,14232 7413 5PRNSW 13405 7414 5PRNTC 7411,12177,12217,12235,12600,12662,12666,13047,13406,13501,13565,13674,13705,14432 7462 5PRNTD 12507,13241 7543 5PRNTI 11531,12410,12426,12454,12464,12704,12727,13256,14405,14415 7422 5PRNTL 12337,14331 7512 5PRNTO 13314,14303,14306 7441 5PRNTR 12352,12502,12546,12571,12652,13177,13212,13402,13446,13513 7470 5PRNTW 7467,11131,11155,11561,12302,12316,12324,13624,13667,14340 7672 5PRNTX 7413, 7414, 7422, 7441, 7472, 7512, 7543, 7654, 7655 3754 5PROLG 12641,13172,13206,13373,13440 4072 5PRTF1 4071 5PRTFG 4076 5PRTIF 7622, 7635, 7670,11705,11715,11761,11772,11775,12001,12003,12005,14461 11652 5PRUDS 10677,11646,11650 12152 5PSOPT 11067,11212 14425 5PTCHX 13424 14434 5PTCHY 10724 14445 5PTCHZ 13450 10057 5PUNCH 10023,11102,11543,11564,12201,12225,12342,12654,13032,13051,13377 6436 5Q1000 6437 5Q4095 11215,13275 14254 5Q4BCD 13306 6440 5Q7680 11237 7112 5Q8000 6441 5Q8192 12161,12165 4764 5RAISE 7166 4014 5RBITS 11360,11405,11443,11511,12424,12712,13161,13455,13606,13610,13637,13641,13642,13645,14243,14345 6511 5RCOMA 11773 10601 5RDTIT 10565,10566,11027 10612 5RDTT2 10604 10616 5RDTT3 10611 10626 5RDTTX 10601 11026 5READ0 10756,10765,12530 11030 5READ1 10764,11026,11532,12200,12220,12236,12304,12320,12325,12344,12353,12466,12503,12512,12516,12547,12553 12572,12601,12653,12663,12667,12730,12746,13045,13050,13060,13067,13200,13213,13235,13244,13260,13403 13407,13413,13416,13427,13447,13502,13514,13520,13563,13566,13675,13706,14307,14332,14416,14433 11035 5READ2 10773,10777 4511 5RECMK 7316 5REFCX 7276, 7300, 7306, 7313 14023 5REFHD 11570 7276 5REFLC 11300,11323,12237,12252,12336,12365,12504,12517,12670,13176,13236,13261,13350,13401,13567 7320 5REFLP 7302,12347,12501,13211,13442 7336 5REFLX 7320, 7323 13414 5REFOP 20501 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 29 POST PROCESSOR ASSEMBLY DATA 14051 5REFOV 12026 7263 5REFPP 12333,12346,12500,12545,13175,13210,13400,13432 7274 5REFPX 7263 14167 5RELBT 10112,10114,10160,10161,10164,10166,10176,10177 4700 5RELFG 13417 5REMOP 10737,20503 6771 5REWND 10760,11642,12141 14035 5RFTIT 12012 13425 5RMTOP 16573 12731 5R(EOF 12675 5120 5SCADD 4767 5SCANF 7266,11334,11342,11403,11426,11507,12204,12412,12560,12613,12707,12745,13452,13503,13676,14240,14313 5261 5SCANX 5061 5SCDIV 6211 5SCEND 13074,13115 6222 5SCENX 5113 5SCMP1 5100 5SCMPY 5010 5SCN01 5023 5SCN02 5031 5SCN03 5044 5SCN04 5052 5SCN05 5173 5SCN10 5207 5SCN11 5227 5SCN12 5247 5SCN13 5255 5SCN14 4050 5SCNBC 4051 5SCNBE 4052 5SCNFC 5131 5SCSB1 5145 5SCSB2 5150 5SCSB3 5124 5SCSUB 13443 5SET01 7213 14313 5SET02 13431 13441 5SET03 14320 13430 5SETOP 21047 4573 5SETUP 11050 10542 5SHIFT 10234,10522,11600,11611,11745,11765,12757 10560 5SHIFX 10542 4022 5SKDUP 11007,12523 6521 5SLASH 13124 5SLIT1 10711,13131,13132,13133,13134,13135,13136,13137,13140,13141,13142,13143,13144,13145,13146,13147,13150 13151,13152,13153 13156 5SLIT2 13123,13126,13127,13130 13164 5SLIT3 10715,11533,13117,13120 4714 5SOPT1 4707 5SOPTB 11246,11256 4722 5SOPTX 6504 5SPACE 6361 5SPACP 10315,10360,11640 6374 5SPACS 13473 5SPC01 13465 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 30 POST PROCESSOR ASSEMBLY DATA 13475 5SPC02 13456,13472 13502 5SPC03 13451,13474,14446 13450 5SPCOP 21103,21105,14357,14361,14450,14452 6126 5SSCAN 13000,13022,13324,13710 6133 5SSCET 6163 5SSCN0 6165 5SSCN1 6205 5SSCN2 6207 5SSCNX 6177 5SSCRR 14421 5SSJOB 10303,12040 7162 5SSYM1 10651 7167 5SSYM3 7161 7204 5SSYM4 7165 7207 5SSYM5 7175, 7177,11673,13445 7152 5SSYMT 7331,11230,12677 7257 5SSYMX 7152, 7153, 7154, 7215, 7247,10654,10700 10632 5START 73666,14333,14406 12732 5STLIC 12671 10073 5STORE 7656,10507,12635,12644,13036,13056 10242 5STORX 10054,10057,10073,10203 6317 5STP00 4611 5STP01 4627 5STP02 4640 5STP03 4641 5STP04 4643 5STP05 4655 5STP06 4662 5STP07 4670 5STP08 4675 5STP09 4633 5STP2A 10103 5STR01 10122,10126,10200 10116 5STR02 10104,10115 10127 5STR03 10062,10137,10140,10202 10140 5STR04 10063,11106,11110 10155 5STR05 11107 10165 5STR06 10146 10170 5STR07 10154 10171 5STR08 10064 10201 5STR09 10135,14350 10204 5STR10 10065,10100,10214,10215,10241 10215 5STR11 10067 10225 5STR12 10206 10230 5STR13 10055,10071,10224 10231 5STR14 10072 10240 5STR15 10213,10227,10237 10751 5STRT1 10743,14437 4676 5STUPX 7172 5SUDS1 7174, 7176, 7203,10647,10660,11657,14455 10757 5SWING 10623 4000 5SYMB2 11040,13005 4001 5SYMBL 7155, 7304, 7330,11227,12443,12455,12612,12676,13006,13007,13024,13330,13540,13550,13553,13720 6355 5SYMNM 6512 5TAPCH 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 31 POST PROCESSOR ASSEMBLY DATA 13503 5TCDOP 21305 1 5TDMSK 7375 3777 5THEAD 4067 5TITLF 7730,11576,12514,13516 13515 5TITOP 21403 4 5TKMSK 7401 4033 5TRMEQ 4035 5TRMUF 4034 5TRMUN 12467 5TSXOC 12405,12414 13542 5TTL01 13554 13554 5TTL02 13547 13561 5TTL03 14234,15465,17461,17647,17651,20035,20111,20253,20263,20313,20351,20527,21063,21511,21515,21517,13536 4101 5TTLFG 10753,11567,13522 13521 5TTLOP 21461 4023 5TVFLG 12427,14311 13767 5TVTIT 11121 4060 5TYPAF 7370, 7372, 7404, 7551,11311,11432,11447,11463,11477,11501,12451,12465,13250 4061 5TYPCF 7400,11177,11453,11505 4062 5TYPDF 7376, 7446, 7606, 7671,11176,11330,11353,11415,11420,12345 4063 5TYPKF 7403, 7565,11175,11504 4065 5UNL1F 7762,11575,13063,13564 6772 5UNLOD 10301,10354 13564 5UNLOP 14464,16572,17725,20225,20235,20261,20563,21221,21513,14412 4066 5UNLSF 7725, 7763,10466,10531,11574,12513,12550,13062,13515,14445 3757 5UPCTR 11607,11616 14043 5USTIT 11662 4036 5VAREQ 12636,12756,14315 4037 5VARUC 4040 5VARUR 12633,12715 5704 5VCV01 5707 5VCV02 5725 5VCV03 5747 5VCV04 5771 5VCV05 6013 5VCV06 6023 5VCV07 6353 5VECNM 13600 5VFD01 13630 13631 5VFD02 13602 13654 5VFD03 13632 13670 5VFD04 12404,13657,13661 14345 5VFDCR 13570 5660 5VFDCV 13577 6026 5VFDCX 4027 5VFDFB 13600,13603,13631,13646 4002 5VFDFL 13614,13617,13620,13622,13623,13651 4055 5VFDHF 4054 5VFDMD 12362,13671,14346 4056 5VFDOF 13567 5VFDOP 21527,14347 4053 5VFDPF 13576,13605,13633,13660,13670 4025 5VFDRB 13575,13601,13611,13627,13634,13663 4026 5VFDTB 13577 5VFETC 12363,13655 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 32 POST PROCESSOR ASSEMBLY DATA 2 5VLMSK 7377 4012 5VRFLD 7264, 7265,11171,11172,11324,11325,12202,12203,12267,12743,12744,13417,14425 10270 5WBIN0 10322,10330 10320 5WBIN1 10735 10325 5WBIN2 10267,10736 10362 5WBIN3 10335,10352 10244 5WBINT 10170,10230,10316 10364 5WBINX 10244 4526 5WRBLK 4543 5WRBLX 4512 5WRFBK 12143 4523 5WRFBX 4467 5WRIT0 4501 5WRIT1 12050 4475 5WRITS 4443 5WRITT 4505 5WRITX 4006 5XERAS 13030,13033 6055 5YYMSK 6413 5ZONER 10405 3740 ABSFLG 7200, 7271,10665,11043,11214,11221,11345,11510,11516,11557,12125,12256,16717, 7210, 7310,10060,10077 10723,11060,11604,12054,12127,12556,14310 67551 BBUF11 7003, 7004 67721 BBUF12 7005, 7006 70071 BBUF21 7007, 7012, 7734, 7754, 7760 70432 BBUF22 7010, 7011,11713,11742,11751,11774,12021,14365 70773 BBUF31 7013, 7016,10511,10512,70773 71334 BBUF32 7014, 7015,10513,10514 71675 BBUF41 7017, 7020 72235 BBUF42 7021, 7022 72575 BBUF51 7023, 7024, 7027, 7032 73176 BBUF52 7025, 7026, 7030, 7031 4176 BLANKS 4410, 4421, 4423, 4551, 5301, 5771, 6232, 6263,10002,10136,10224,10432,10450,10510,10733,13317,14532 15001,15236,15273,15355, 7416, 7423, 7443, 7506, 7537, 7632, 7716, 7742, 7777,10503,10554,11301,11350 11434,11437,11712,11736,12322,12355,12422,12474,12723,12754,13221,13245,13420,13523,13527,13532,13535 14363 17265 BNRECT 10324,10331,10333,12057,12061 67551 BOTBUF 0,67551 73600 BOTIOP 0 23270 BOTTAB 0,10455,17263,17267,23270,12077,12115,14466,23270 10327 BOTTAP 10272,10276,10302,10321,12062,12065 3734 BOTTOM 0, 3725, 3734 3755 CHRCTR 4643, 5000, 5503, 5722, 5766, 6010, 6130, 6174, 6246,10661,11235,11722,12010,12045,12214,12226,12520 12775,13123,13216,13227,13242,13332,13341,13357,13365,13436,13532,14250,17056,17065,11326,11526,12174 12232,12253,12275,12573,12657,13344,13521,13544,13552 3743 CRDFLG 10475,10334,10361,11627,12067,12074 6467 D32512 11454 6470 D32767 7561,14574,16127,16673 3732 DATEBX 6706 DECTAB 5576, 5602, 5612, 5615, 6707 3750 DELFLG 7650,10332,10620,10707,11472,11504,12432,12435,10576,11013 4130 EVNFLG 17123,17132,14372 2 FINTAP 6773, 6775, 6777,10425,10751 3730 FLAGBX 4361 FPRINT 7564, 7712, 7753, 7755,10050,10052,10054,10256,10260,12445,16736,16742,17160,17163, 7757,10534,10536 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 33 POST PROCESSOR ASSEMBLY DATA 11613,11623,11625,11661,12011,12020,12025,12027,12046,13227,13466 4244 IDBUFF 10463 400 INPBKL 0, 7027, 7031,10340,72575,73176 20 INPRCL 0,10340,10343,10344,10567,10571 0 INPREM 0,10340 17266 INRECT 3725,10164,10166,10675,10677 6533 INTTAB 6060, 6067, 6533, 6534, 6535, 6536, 6537, 6540, 6541, 6542, 6543, 6544, 6545, 6546, 6547, 6550, 6551 6552, 6553, 6554, 6555, 6556, 6557, 6560, 6561, 6562, 6563, 6564, 6565, 6566, 6567, 6570, 6571, 6572 6573, 6574, 6575, 6576, 6577, 6600, 6601, 6602, 6603, 6604, 6605, 6606, 6607, 6610, 6611, 6612, 6613 6614 17264 IPRECT 10030,10032,10043,10045,10075,10077,10110,10112,12306,12311,12313,17116 3745 IPTFLG 7514, 7633, 7640, 7644, 7651,10700,12302,12305,12312,12330,12366,12463 134 .CHEXI 135 .MODSW 3744 LBLFLG 10503,10013,10026,10362,10737,12777,13054 1 LIBTAP 260 LIBTBL 17030,17031,17032,17040,23747 3731 LINECT 3752 LITSIZ 11020,11030,11643,10707,10712,11544,13121 65601 LITTBL 11647,11713,11714,11716,11557,13125 1750 LLITBL 0,11706,65601 1750 LMXTBL 0 6357 LOADER 10723,12151 2476 LOPTBL 17267,21766 4000 LOPTBM 0, 7227,17263,17267,14466 456 LSMTBL 17151,23270,23747 41717 LSMTBM 0, 7371,10644,10653,10657,10674,23270 23560 LSYUNS 372 LTVTBL 0, 7303, 7304, 7305, 7314, 7321,65207 255 LUDTBM 0,10644,10652,11663,11665 702 L(ACT) 23467,23626,23630,23632,23634,23636,23640,23642,23644,23646,23650,23652,23654,23656,23660,23662,23664 23666,23670,23672,23674,23676,23700,23702,23704,23706,23710,23712,23714,23716,23720,23722,23724,23726 23730,23732,23734,23736,23740,23742 140 L(SYT) 23467,23560,23562,23564,23566,23570,23572,23574,23576,23600,23602,23604,23606,23610,23612,23614,23616 23620,23622,23624 6312 MACERR 5071, 5476, 5574, 5617, 5715, 6311, 7223,12221,12513,12547,13004,13026,13075,13134,13254,13734,14037 14151,14162,14222,14557,15061,15074,15162,15601,15653,15707,15725, 7315,12250,12262,12702,13155 3737 MAINPF 10773,11216,11514,10142,11070,11136,12125,14351 7 MBNTAP 17265,10327,12145 10 MCHTAP 5 MINTAP 10153,10160,10177,10515,10674,16731,16746,17266 6 MLSTAP 4537,12147 6627 OCTALT 6035, 6044, 6627, 6630, 6631, 6632, 6633, 6634, 6635, 6636, 6637, 6640, 6641, 6642, 6643, 6644, 6645 6646, 6647, 6650, 6651, 6652, 6653, 6654, 6655, 6656, 6657, 6660, 6661, 6662, 6663, 6664, 6665, 6666 6667, 6670, 6671, 6672, 6673, 6674, 6675, 6676 3742 OFLCFG 10505,10257,10732 3741 ONLCFG 10501,10336,10730,12130 10370 OPDTAP 10706,12343,12347,12402,12456 17263 OPRECT 10372,10374,12337,12344,12346 3746 OPTFLG 10303,10546,10702,12266,12333,12336,12345,12370,12460 17267 OPTSIZ 4711, 7225, 7232, 7255, 7257,10461 17270 OPTTBL 4715, 4721, 7221, 7235, 7236, 7237, 7240, 7245, 7247,17270,21766 4370 PAGCNT 4377, 4436,10755,11573,12551,13464,13561,14356 4371 PAGENO 4405, 7120,10754,11572,13560 3747 PAKFLG 10312,10324,10326,10533,11470,12352,12361 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 34 POST PROCESSOR ASSEMBLY DATA 7152 PASSLP 7152 14356 PATCH1 13457 17041 PATCHA 12416 4214 PBUFF1 7322, 7323,10776,11005,11006,11047,11050,11063,11223,17131,17135,10025,10030,10131,10144,10150,10153 10157,10163,10165,10167,10172,10210,10211,10212,10220,10221,10222,10223,10226,10233,10247,10251,10254 10256,10714,10717,10725,12212,12227,14134,14435 70773 PBUFF2 7033, 7034, 7037, 7040 71026 PBUFF3 7035, 7036, 7041, 7042 71061 PBUFF4 7043, 7044, 7047 71114 PBUFF5 7045, 7046, 7051 4154 PGHDNG 4413, 4415,10446,10452,10543,10744,10745,12053 6442 Q10000 6106 6443 Q16384 12157,12167 7113 Q80000 7105 3756 RESIDU 4645, 6237, 6245, 6250, 6253,11604,13214,13225,13330,13336,17055,17060,17063,12602,12611,13423 1000 S K 21766,23410,23412,23414,23416,23420,23422,23424,23426,23430,23432,23434,23436,23440,23442,23444,23446 23450,23452,23454,23456,23460,23462,23464,23466 73600 SBOTIP 21766,23330,23334,23336,23340,23342,23344,23346,23350,23352,23354,23356,23360,23362,23364,23366,23370 23372,23374,23376,23400,23402,23404,23406 3734 SBOTMM 21766,23316,23320,23322,23324,23326 3751 SEPFLG 10772,11222,11342, 3751,11137,12433,12617,14326 3 SINTAP 6774, 6776, 7000,10472,10752 11 SNPTAP 6274 SRCERR 7231, 7313, 7373,11552,11710,14505,15467,15471 77677 STOPMM 21766,23332 23270 SYMSIZ 7153, 7341, 7346, 7352, 7376,10453,11031,11032,11042,11052,11067,17027, 7157, 7171,10641,10643,10646 11645,11664,11671,11701 23271 SYMTBL 7342, 7364, 7367, 7377,11056,11064,11071,12721,17032,17151,23271,23747, 7163, 7173, 7200, 7204, 7207 10664,10674,14453,14454 122 SYSACC 3735 SYSAST 114 SYSCEM 155 SYSCK1 156 SYSCK2 120 SYSCOR 144 SYSCRD 102 SYSCUR 102 124 SYSCYD 101 SYSDAT 115 SYSDMP 77777 SYSEND 132 SYSGET 117 SYSIDR 151 SYSIN1 152 SYSIN2 116 SYSIOX 133 SYSJOB 14422 104 SYSKEY 140 SYSLB1 141 SYSLB2 142 SYSLB3 143 SYSLB4 121 SYSLDR 3720 SYSORG 147 SYSOU1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 35 POST PROCESSOR ASSEMBLY DATA 150 SYSOU2 146 SYSPCH 123 SYSPID 106 SYSPOS 153 SYSPP1 154 SYSPP2 145 SYSPRT 103 SYSRET 113 SYSRPT 126 SYSSLD 105 SYSSWS 1 SYSTAP 10722 23467 SYSTBL 17031,23467,23747 127 SYSTCH 3736 SYSTPS 100 SYSTRA 131 SYSTWT 111 SYSUAV 110 SYSUBC 112 SYSUCW 107 SYSUNI 157 SYSUT1 160 SYSUT2 161 SYSUT3 162 SYSUT4 6310 TAPERR 6400,10200,10371,10414,10604,10713,10752,10761,10765,12410,10615 5250 TEN5TH 6326 4 TINTAP 10350,12113,12123 77677 TOPMEM 73577 TOPTAB 0,10455,10457,12111 340 UPDBKL 0, 7007, 7011, 7013, 7015,10313,70071,70432,70773,71334,71675,72235 16 UPDRCL 0, 7773,10127,10313,10316,10317,12356 10017 UPDTAP 10041,10047,10074,10107,12314,12461,17114 65207 VECTOR 7305, 7314,16171,10704,10705,11124 702 (ACTIV 703 (ACTVX 720 (BCD5R 721 (BCD5X 10000 (CHKU) 6775, 6776,10716,12113,12145,12147 741 (CHPSW 724 (CHXAC 750 (CHXSP 717 (CKWAT 746 (COMMD 736 (COMMM 722 (CVPRT 73662 (DATE) 10430,10434 716 (DECVA 715 (DECVD 73645 (DGLD) 73603 (DIAG) 6315 710 (ENBSW 73665 (ENDS) 10473 732 (ETTXI 743 (FDAMT 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 36 POST PROCESSOR ASSEMBLY DATA 73660 (FGBX) 6317,17003,17023,10310,12044,14423 747 (IBCDZ 740 (IOXSI 73667 (LBLD) 73652 (LIBT) 73661 (LNCT) 4540, 4542 73600 (LOAD) 6357,17043 73666 (LODR) 73666 737 (LTPOS 73644 (MECL) 6316 73664 (MSLN) 10422 704 (NDATA 705 (NDSLX 712 (PAUSE 711 (PAWSX 3733 (PCBK) 73651 (PGCT) 4424 73614 (PNCH) 12071,12117,12132,12134,12136 73611 (PRNT) 4502, 6363, 6376,10060,10264,12142,12436,15625,10313,10356,11636,12052 706 (PROUT 707 (PUNCH 40014 (RBEC) 40004 (RBEP) 10613,12103 40010 (RBNC) 40000 (RBNP) 727 (RCHXI 726 (RCTXI 40016 (RDEC) 40006 (RDEP) 10016,10152 40012 (RDNC) 40002 (RDNP) 73622 (REST) 73672 (SCHU) 6777, 7000,10160,10515,12315,12317,16731,10751,10752,12123 744 (SDCXI 73643 (SECL) 6306,16750 20010 (SKBC) 20000 (SKBP) 10424,10606,10721,10754,10767,10301,10354,10760,11007,11642,12061,12141 20012 (SKDC) 20002 (SKDP) 10040,10073,10106,10471,10673,10705,12153,12157,12265,12342,16745 1000 (SNAP) 73663 (SNCT) 73617 (STAT) 745 (STCXI 73626 (STDN) 723 (STOPD 713 (STOPX 10003 (SUAV) 10002 (SUNV) 714 (SYMUN 73606 (TAPE) 4535,10015,10037,10072,10100,10105,10151,10175,10366,10411,10423,10470,10601,10605,10672,10704,10715 10720,10747,10753,10756,10762,10766,12341,12405,16744,10270,10274,10300,10317,10325,10346,10353,10607 10612,10757,11006,11631,11641,12060,12063,12102,12112,12140,12144,12146 730 (TCOXI 733 (TEFXI 4000 (TPER) 10176 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 2/07/05 PAGE 37 POST PROCESSOR ASSEMBLY DATA 735 (TRAPS 734 (TRAPX 731 (TRCXI 742 (TRPSW 725 (URRXI 40011 (WBNC) 40001 (WBNP) 10412,10757,10320,10326,10347 40013 (WDNC) 40003 (WDNP) 4536,10367 40015 (WEFC) 40005 (WEFP) 10602,10750,10763,10271,10275,11632 40031 (WROW) 10734,12064 NO ERROR IN ABOVE ASSEMBLY. * 32K 709/7090 FORTRAN MONITOR SCAN F0F00000 * FAP F0F00020 32K 709/7090 FORTRAN MONITOR SCAN 2/07/05 PAGE 1 SST FORTRAN $F0F00050 ABS $F0F00051 00102 ORG SYSCUR $F0F00052 BINARY CARD NO. 9F060000 00102 112600060000 BCI 1,9F0600 $F0F00070 73666 ORG (LODR) $F0F00080 BINARY CARD NO. 9F060001 73666 1 00074 0 03734 PON BEGIN,,60 TXI ENTRY,,RECORD NO. F0F00100 00010 CHNTAP SYN 8 $F0F00120 03734 ORGSCN ORG BOTTOM F0F00200 F0F00210 BINARY CARD NO. 9F060002 03734 0760 00 0 00140 BEGIN SLF F0F00220 03735 0774 00 1 00002 AXT 2,1 SIGNAL IO PACKAGE TO TURN ON SL2 F0F00230 03736 0634 00 1 73664 SXA (MSLN),1 IN CASE GOING TO MACHINE ERROR RECORD F0F00240 03737 0074 00 4 73606 TSX (TAPE),4 REWIND B2 F0F00250 03740 0 20002 0 05401 REWND,,(SKDP) F0F00260 03741 0 00002 0 00000 ,,FINTAP $F0F00270 03742 -0534 00 1 73651 LXD (PGCT),1 NO. OF LINES PER PAGE (EXCLUDING HEADING) F0F00280 03743 1 00002 1 03744 TXI *+1,1,2 F0F00290 03744 -0634 00 1 04656 SXD NLINS,1 F0F00300 03745 0500 00 0 05522 CLA BLNKS F0F00310 03746 0601 00 0 06054 STO PBUF0 F0F00320 03747 0601 00 0 06072 STO BUFZ0-1 F0F00330 03750 0601 00 0 06071 STO BUFZ0-2 F0F00340 03751 0601 00 0 06074 STO PBUF1 F0F00350 03752 0601 00 0 06112 STO BUFZ1-1 F0F00360 03753 0601 00 0 06111 STO BUFZ1-2 F0F00370 03754 0074 00 4 73606 TSX (TAPE),4 RESTORE PAGE F0F00410 03755 0 40003 0 05520 EJECT,,(WDNP) F0F00420 03756 0 00006 0 00000 ,,MLSTAP $F0F00430 03757 0074 00 4 73606 R1 TSX (TAPE),4 BEGIN DOUBLE BUFFER READING F0F00440 03760 0 40006 0 05617 CW0,,(RDEP) F0F00450 03761 0 00005 0 00000 ,,MINTAP $F0F00460 BINARY CARD NO. 9F060003 03762 -0 00000 0 04541 MZE TPCHK ERROR RETURN F0F00470 03763 0774 00 1 00001 AXT 1,1 F0F00480 03764 -0634 00 1 05437 SXD BFSWCH,1 F0F00490 03765 0774 00 1 00000 READ AXT 0,1 F0F00500 03766 -0520 00 0 05437 NZT BFSWCH F0F00510 03767 0774 00 1 00001 AXT 1,1 F0F00520 03770 -0634 00 1 05437 SXD BFSWCH,1 F0F00530 03771 0074 00 4 73606 TSX (TAPE),4 F0F00540 03772 0 40006 1 05620 CW1,1,(RDEP) F0F00550 03773 0 00005 0 00000 ,,5 F0F00560 03774 -0 00000 0 04541 MZE TPCHK ERROR RETURN F0F00570 03775 -0520 00 0 73677 NZT (SCHU)+MINTAP WAS PREVIOUS READ AN END OF FILE $F0F00580 03776 0020 00 0 05724 TRA IBFAP5 CHECK FOR EOF IN IBSFAP MODE $F0F00590 03777 0774 00 2 00001 AXT 1,2 DELETE COLS. 81-84 F0F00600 04000 -0500 60 1 05626 CAL* BFZ0,1 F0F00610 04001 -0320 00 0 05375 ANA 2CHAR F0F00620 04002 -0501 00 0 05427 ORA 4BLNK F0F00630 32K 709/7090 FORTRAN MONITOR SCAN 2/07/05 PAGE 2 04003 0602 60 1 05626 SLW* BFZ0,1 F0F00640 04004 0560 60 1 05624 LDQ* BFA0,1 TEST FOR MONITOR CONTROL CARD F0F00650 04005 -0754 00 0 00000 PXD 0,0 F0F00660 04006 -0763 00 0 00006 LGL 6 F0F00670 04007 0402 00 0 05367 SUB ASTK F0F00680 BINARY CARD NO. 9F060004 04010 -0100 00 0 04216 SWIT TNZ SP F0F00690 04011 0774 00 1 00000 DSRCH AXT 0,1 $F0F00700 04012 0774 00 2 00000 AXT 0,2 $F0F00701 04013 0774 00 4 00006 DS3 AXT 6,4 DICTIONARY. F0F00710 04014 0560 00 1 04076 LDQ DICT,1 F0F00720 04015 -0754 00 0 00000 DS1 PXD 0,0 F0F00730 04016 -0763 00 0 00006 LGL 6 F0F00740 04017 0402 00 0 05374 DS9 SUB SVNS FIND NEW DICTIONARY ENTRY) F0F00750 04020 -0100 00 0 04022 TNZ DS12 F0F00760 04021 1 77777 2 04024 TXI DS2,2,-1 F0F00770 04022 2 00001 4 04015 DS12 TIX DS1,4,1 F0F00780 04023 1 77777 1 04013 TXI DS3,1,-1 F0F00790 04024 2 00001 4 04030 DS2 TIX *+4,4,1 SEVENS MEANS NEXT ENTRY, F0F00800 04025 0774 00 4 00006 AXT 6,4 IS THIS END OF DICTIONARY. F0F00810 04026 1 77777 1 04027 TXI *+1,1,-1 F0F00820 04027 0560 00 1 04076 LDQ DICT,1 F0F00830 04030 -0763 00 0 00006 LGL 6 F0F00840 04031 0340 00 0 05374 CAS SVNS F0F00850 04032 0020 00 0 04034 TRA DS4 F0F00860 04033 0020 00 0 04071 TRA DS14 F0F00870 04034 0601 00 0 04075 DS4 STO DERS NO, NEW ENTRY. F0F00880 04035 0500 00 0 04220 CLA (6)A PREPARE TO COMPARE WITH F0F00890 BINARY CARD NO. 9F060005 04036 0621 00 0 05300 STA NNBL1 NEXT NON BLANK CHARACTER. F0F00900 04037 0500 00 0 04221 CLA (13)A F0F00910 04040 0621 00 0 05301 STA NNBL2 F0F00920 04041 0634 00 4 04047 DS6 SXA DS11,4 GET NEXT NON BLANK CHARACTER. F0F00930 04042 0074 00 4 05274 TSX NNBL,4 F0F00940 04043 0020 00 0 04065 TRA DS10 REST ARE BLANKS. F0F00950 04044 0340 00 0 05371 CAS LPREN F0F00960 04045 0020 00 0 04047 TRA *+2 F0F00970 04046 0020 00 0 04065 TRA DS10 LEFT PAREN, STOP SEARCHING BUFFER. F0F00980 04047 0774 00 4 00000 DS11 AXT ,4 COMPARE CHARACTER WITH DICGIONARY F0F00990 04050 0340 00 0 04075 CAS DERS CHARACTER. F0F01000 04051 0020 00 0 04053 TRA *+2 F0F01010 04052 0020 00 0 04055 TRA DS5 SAME F0F01020 04053 0500 00 0 04075 CLA DERS DIFFERENT, SEE IF THIS IS THE END F0F01030 04054 0020 00 0 04017 TRA DS9 OF THIS DICTIONARY ENTRY. F0F01040 04055 2 00001 4 04061 DS5 TIX DS7,4,1 SAME, PREPARE TO COMPARE F0F01050 04056 1 77777 1 04057 TXI *+1,1,-1 NEXT CHARACTER. F0F01060 04057 0560 00 1 04076 LDQ DICT,1 F0F01070 04060 0774 00 4 00006 AXT 6,4 F0F01080 04061 -0754 00 0 00000 DS7 PXD 0,0 F0F01090 04062 -0763 00 0 00006 LGL 6 F0F01100 04063 0601 00 0 04075 STO DERS F0F01110 32K 709/7090 FORTRAN MONITOR SCAN 2/07/05 PAGE 3 BINARY CARD NO. 9F060006 04064 0020 00 0 04041 TRA DS6 F0F01120 04065 0534 00 4 04047 DS10 LXA DS11,4 END OF BUFFER OR LEFT PAREN, IS F0F01130 04066 0500 00 0 04075 CLA DERS THIS ALSO END OF THIS F0F01140 04067 0402 00 0 05374 SUB SVNS DICTIONARY ENTRY. F0F01150 04070 -0100 00 0 04022 TNZ DS12 NO, GET NEXT DICTIONARY ENTRY. F0F01160 04071 0020 00 0 05665 DS14 TRA IBFAP2 RESTORE COL 7 * CARDS $F0F01170 04072 0500 00 1 05621 CLA CWP0,1 COMMAND TO WRITE OUT BUFFER $F0F01180 04073 0074 00 4 05351 TSX COMNT,4 F0F01190 04074 0020 00 0 04146 TRA TV GO TO APPROPRIATE CODING F0F01200 04075 0 00000 0 00000 DERS PZE F0F01210 F0F01220 04076 -376725507723 DICT OCT 776725507723 -XEQ-C F0F01230 04077 +302131457724 OCT 302131457724 HAIN-D F0F01240 04100 +216321772321 OCT 216321772321 ATA-CA F0F01250 04101 -112462514666 OCT 512462514666 RDSROW F0F01260 04102 -372321512462 OCT 772321512462 -CARDS F0F01270 04103 +234643644445 OCT 234643644445 COLUMN F0F01280 04104 -374331626377 OCT 774331626377 -LIST- F0F01290 04105 -033122257726 OCT 433122257726 LIBE-F F0F01300 04106 +214777223145 OCT 214777223145 AP-BIN F0F01310 04107 -376270442246 OCT 776270442246 -SYMBO F0F01320 04110 -036321224325 OCT 436321224325 LTABLE F0F01330 04111 -374321222543 OCT 774321222543 -LABEL F0F01340 BINARY CARD NO. 9F060007 04112 -372425226427 OCT 772425226427 -DEBUG F0F01350 04113 -374721646225 OCT 774721646225 -PAUSE F0F01360 04114 -374331626310 OCT 774331626310 -LIST8 F0F01370 04115 -374751314563 OCT 774751314563 -PRINT F0F01380 04116 -375146667747 OCT 775146667747 -ROW-P F0F01381 04117 +212342772524 OCT 212342772524 ACK-ED $F0F01382 04120 +316343312225 OCT 316343312225 ITLIBE $F0F01383 04121 -373146477777 OCT 773146477777 -IOP-- $F0F01384 04122 -377777777777 OCT 777777777777 ------ $F0F01390 04123 BSS 19 $F0F01400 F0F01410 BINARY CARD NO. 9F060008 04146 0020 60 2 04146 TV TRA* *,2 F0F01420 04147 0 00000 0 04762 XEQ F0F01430 04150 0 00000 0 04765 CHN F0F01440 04151 0 00000 0 04606 DATA F0F01450 04152 0 00000 0 05105 CDROW F0F01460 04153 0 00000 0 05112 CDCOL F0F01470 04154 0 00000 0 05115 LIST F0F01480 04155 0 00000 0 05121 LIBE F0F01490 04156 0 00000 0 05250 FAP F0F01500 04157 0 00000 0 05206 BIN F0F01510 04160 0 00000 0 05125 SYMTAB F0F01520 04161 0 00000 0 05137 LABEL F0F01530 04162 0 00000 0 05172 DEBUG F0F01540 04163 0 00000 0 05131 PAUSE F0F01550 04164 0 00000 0 05143 LIST8 F0F01560 04165 0 00000 0 05147 ONLPR F0F01570 04166 0 00000 0 05153 ROW F0F01571 32K 709/7090 FORTRAN MONITOR SCAN 2/07/05 PAGE 4 04167 0 00000 0 05166 PACK F0F01572 04170 0 00000 0 05214 EDIT $F0F01573 04171 0 00000 0 05631 IOP $F0F01574 04172 0 00000 0 03765 READ $F0F01580 04173 BSS 19 $F0F01590 F0F01600 BINARY CARD NO. 9F060009 04216 0400 00 0 05734 SP ADD SK1RC IS THIS A CC 1 DOLLAR SIGN $F0F01610 04217 0020 00 0 05635 TRA IBFAP1 TEST COL 1 AND 7 CHARACTERS $F0F01620 04220 0774 00 1 00006 (6)A AXT 6,1 NO, PREPARE TO SCAN FOR END CARD. F0F01630 04221 0774 00 2 00015 (13)A AXT 13,2 F0F01640 04222 0634 00 1 05300 SXA NNBL1,1 F0F01650 04223 0634 00 2 05301 SXA NNBL2,2 F0F01660 04224 0774 00 1 00021 AXT 17,1 SCAN FOR CALL CHAIN(XXXXXX, (34)F0F01670 04225 0074 00 4 05274 SP01 TSX NNBL,4 X F0F01680 04226 0020 00 0 04631 TRA WSP NO MORE CHARACTERS F0F01690 04227 -3 00007 1 04234 TXL *+5,1,7 HAVE FOUND CALL CHAIN( (34)F0F01700 04230 0402 00 1 05435 SUB CLCH+17,1 (34)F0F01710 04231 -0100 00 0 04261 TNZ SP05 NOT CALL CHAIN( (34)F0F01720 04232 2 00001 1 04225 TIX SP01,1,1 STILL POSSIBLE (34)F0F01730 04233 0020 00 0 04631 TRA WSP SOMETHING ILLEGAL-FORGET IT (34)F0F01740 04234 0402 00 0 05373 SUB COMMA SEARCH FOR COMMA (34)F0F01750 04235 -0100 00 0 04232 TNZ *-3 (34)F0F01760 04236 0020 00 0 06214 TRA CLCHFX SEE IF T IS AN A OR B (34)F0F01770 04237 0100 00 0 04242 TZE *+3 YES F0F01780 04240 0400 00 0 05102 ADD ONE NO, IS IT A F0F01790 04241 -0100 00 0 04631 TNZ WSP (34)F0F01800 04242 0774 00 1 00002 AXT 2,1 FOUND, ERASE IT F0F01810 04243 0534 00 4 05300 SP03 LXA NNBL1,4 X F0F01820 BINARY CARD NO. 9F060010 04244 0534 00 2 05301 LXA NNBL2,2 X F0F01830 04245 0560 00 1 05432 LDQ BMSK+2,1 X F0F01840 04246 -3 00005 4 04250 TXL *+2,4,5 X F0F01850 04247 1 00001 2 04252 TXI SP04,2,1 X F0F01860 04250 -0773 00 0 00006 RQL 6 X F0F01870 04251 2 00001 4 04250 TIX *-1,4,1 X F0F01880 04252 -0130 00 0 00000 SP04 XCL F0F01890 04253 2 00001 1 04243 TIX SP03,1,1 X F0F01900 04254 -0534 00 4 05437 LXD BFSWCH,4 X F0F01910 04255 -0602 60 4 05626 ORS* BFZ0,4 X F0F01920 04256 -0130 00 0 00000 XCL F0F01930 04257 0320 60 4 05626 ANS* BFZ0,4 X F0F01940 04260 0020 00 0 04631 TRA WSP X F0F01950 04261 -3 00020 1 04631 SP05 TXL WSP,1,16 WAS 1ST CHARACTER AC. (35)F0F01960 04262 0400 00 0 05414 ADD CLCH NO, SCAN FOR END CARD F0F01970 04263 0774 00 1 00003 AXT 3,1 X F0F01980 04264 0402 00 1 05435 SP06 SUB E+3,1 X F0F01990 04265 -0100 00 0 04631 TNZ WSP X F0F02000 04266 0074 00 4 05274 TSX NNBL,4 X F0F02010 04267 0020 00 0 04274 TRA SP1 NO MORE CHARACTERS F0F02020 04270 2 00001 1 04264 TIX SP06,1,1 X F0F02030 04271 0402 00 0 05371 SUB LPREN X F0F02040 32K 709/7090 FORTRAN MONITOR SCAN 2/07/05 PAGE 5 BINARY CARD NO. 9F060011 04272 -0100 00 0 04631 TNZ WSP NOT AN END CARD F0F02050 04273 1 00016 1 04276 TXI SP2,1,14 END CARD WITH PARAMETERS F0F02060 04274 -3 00001 1 04336 SP1 TXL END,1,1 END CARD WITH NO PARAMETERS. F0F02070 04275 0020 00 0 04631 TRA WSP NOTHING. F0F02080 04276 0074 00 4 05274 SP2 TSX NNBL,4 F0F02090 04277 0020 00 0 04631 TRA WSP F0F02100 04300 0601 00 1 05457 STO PSW1+15,1 SAVE ORIGINAL END CARD OPTIONS F0F02110 04301 0074 00 4 05274 TSX NNBL,4 LOOK FOR COMMAS. F0F02120 04302 0020 00 0 04631 TRA WSP F0F02130 04303 -2 00001 1 04307 TNX SP3,1,1 F0F02140 04304 0402 00 0 05373 SUB COMMA F0F02150 04305 0100 00 0 04276 TZE SP2 F0F02160 04306 0400 00 0 05373 ADD COMMA F0F02170 04307 0402 00 0 05372 SP3 SUB RPREN LOOK FOR CLOSING PARENTHESIS F0F02180 04310 -0100 00 0 04631 TNZ WSP F0F02190 04311 0020 00 0 05774 PTCHR TRA CONTN CLOSING PART. FOUND, SCAN REST OF CARD. $F0F02200 04312 0520 00 0 05457 ZET ESW1 WAS THERE A CONTROL CARD AFFECTING SWITCH 1F0F02210 04313 0020 00 0 04316 TRA *+3 YES, IGNORE END CARD SETTING. F0F02220 04314 -0520 00 0 05440 NZT PSW1 NO, DOES END CARD SPECIFY SWITCH 1 UP. F0F02230 04315 0601 00 0 05502 STO ENDCD+1 YES, PUT IT UP. F0F02240 F0F02250 SAVE END CARD OPTIONS IN ABSENCE OF CONTROL CARDS F0F02260 04316 0774 00 4 00017 AXT 15,4 F0F02270 04317 0774 00 2 00005 AXT 5,2 F0F02280 BINARY CARD NO. 9F060012 04320 0774 00 1 00003 SP3A AXT 3,1 F0F02290 04321 0560 00 2 05510 LDQ ENDCD+7,2 F0F02300 04322 -2 00001 4 04332 SP4 TNX SP5,4,1 F0F02310 04323 0500 00 4 05457 CLA PSW1+15,4 F0F02320 04324 -0520 00 4 05476 NZT ESW1+15,4 TEST FOR CONTROL CARD F0F02330 04325 0760 00 0 00001 LBT NO CC, TEST FOR ONE (1). F0F02340 04326 0020 00 0 04332 TRA SP5 F0F02350 04327 -0763 00 0 00006 LGL 6 ONE, PUTI IT IN END CARD F0F02360 04330 0771 00 0 00006 ARS 6 F0F02370 04331 -0765 00 0 00006 LGR 6 F0F02380 04332 -0773 00 0 00014 SP5 RQL 12 F0F02390 04333 2 00001 1 04322 TIX SP4,1,1 F0F02400 04334 -0600 00 2 05510 STQ ENDCD+7,2 F0F02410 04335 2 00001 2 04320 TIX SP3A,2,1 F0F02420 F0F02430 04336 0520 00 0 03734 END ZET BEGIN HAS SOMETHING BEEN WRITTEN F0F02440 04337 0020 00 0 03765 TRA READ NO, THIS END CARD IS BALONEY, IGNORE. F0F02450 04340 0441 00 0 05505 LDI ENDCD+4 $F0F02451 04341 -0054 00 000001 LFT 1 IS OFF LINE ROW BINARY REQUESTED $F0F02452 04342 0020 00 0 04347 TRA RBR YES $F0F02453 04343 0441 00 0 05502 LDI ENDCD+1 NO $F0F02454 04344 0442 00 0 05503 OSI ENDCD+2 $F0F02455 04345 0054 00 000100 RFT 100 IS ON LINE ROW BINARY REQUESTED $F0F02456 BINARY CARD NO. 9F060013 04346 0020 00 0 04355 TRA ENDWT NO $F0F02457 04347 0441 00 0 05504 RBR LDI ENDCD+3 YES $F0F02458 04350 -0056 00 010000 LNT 10000 IS LIBE REQUESTED $F0F02459 04351 0020 00 0 04355 TRA ENDWT NO $F0F02460 32K 709/7090 FORTRAN MONITOR SCAN 2/07/05 PAGE 6 04352 -0057 00 010000 RIL 10000 YES $F0F02461 04353 0604 00 0 05504 STI ENDCD+3 KILL REQUEST $F0F02462 04354 0600 00 0 04354 RBLIB STZ * $F0F02463 04355 0074 00 4 73606 ENDWT TSX (TAPE),4 WRITE OUT FABRICATED END CARD $F0F02464 04356 0 40001 0 05476 ENDCW,,(WBNP) F0F02470 04357 0 00002 0 05406 FINPUT,,FINTAP $F0F02480 04360 0074 00 4 73606 TSX (TAPE),4 F0F02490 04361 0 40005 0 00000 ,,(WEFP) F0F02500 04362 0 00002 0 00000 ,,FINTAP $F0F02510 04363 0074 00 4 73606 TSX (TAPE),4 F0F02520 04364 0 20000 0 05401 REWND,,(SKBP) F0F02530 04365 0 00002 0 00000 ,,FINTAP $F0F02540 04366 0774 00 1 04370 AXT *+2,1 WRITE END CARD ON OUTPUT TAPE F0F02550 04367 0634 00 1 04761 SXA WTHDR,1 F0F02560 04370 0534 00 1 04631 LXA WSP,1 F0F02570 04371 -2 00001 1 04654 TNX NUPAG,1,1 F0F02580 04372 -0754 00 1 00000 PXD ,1 F0F02590 04373 -0400 00 0 04656 SBM NLINS F0F02600 BINARY CARD NO. 9F060014 04374 0771 00 0 00022 ARS 18 F0F02610 04375 -0400 00 0 03731 SBM LINECT F0F02620 04376 0020 00 0 06013 DD TRA IBPAT2 CHECK FOR IBSFAP END CARD $F0F02630 04377 0074 00 4 73606 TSX (TAPE),4 F0F02640 04400 0 40003 0 05477 ENDCW+1,,(WDNP) F0F02650 04401 0 00006 0 00000 ,,MLSTAP $F0F02660 04402 0500 00 0 05610 CLA COMLB $F0F02661 04403 -0520 00 0 04354 NZT RBLIB WAS LIBE KILLED $F0F02662 04404 0074 00 4 05351 TSX COMNT,4 YES, TELL THEM ABOUT IT $F0F02663 04405 0074 00 4 73606 TSX (TAPE),4 WRITE EXTRA HEADING FOR SECTION 6 F0F02670 04406 0 40003 0 05525 HEDCW,,(WDNP) F0F02680 04407 0 00006 0 00000 ,,MLSTAP $F0F02690 04410 0441 60 0 73660 LDI* (FGBX) F0F02700 04411 0056 00 000200 RNT 200 IS EXECUTION ON. F0F02710 04412 0020 00 0 04515 TRA TOFN NO F0F02720 04413 0774 00 4 04512 AXT NXTEF,4 YES, PREPARE TO LOOK AT NEXT CARD F0F02730 04414 0634 00 4 04560 SXA CHKEF,4 F0F02740 04415 0634 00 4 04600 SXA BEF,4 F0F02750 04416 0634 00 4 04623 SXA EF1,4 F0F02760 04417 0774 00 4 04450 AXT RDNXT,4 F0F02770 04420 0634 00 4 04576 SXA CHKB,4 F0F02780 04421 0074 00 4 73606 NEXT TSX (TAPE),4 LOOK AT NEXT CARD F0F02790 BINARY CARD NO. 9F060015 04422 0 10000 0 00005 MINTAP,,(CHKU) $F0F02800 04423 -0520 00 0 73677 NZT (SCHU)+MINTAP WAS IT AN END OF FILE $F0F02810 04424 0020 00 0 04512 TRA NXTEF F0F02820 04425 0774 00 4 00000 AXT 0,4 F0F02830 04426 -0520 00 0 05437 NZT BFSWCH F0F02840 04427 0774 00 4 00001 AXT 1,4 F0F02850 04430 -0634 00 4 05437 SXD BFSWCH,4 F0F02860 04431 0560 60 4 05624 LDQ* BFA0,4 IS IT MONITOR CONTROL CARD. F0F02870 04432 -0754 00 0 00000 PXD 0,0 F0F02880 04433 -0763 00 0 00006 LGL 6 F0F02890 04434 0402 00 0 05367 SUB ASTK F0F02900 04435 0100 00 0 04456 TZE NXTCC YES F0F02910 32K 709/7090 FORTRAN MONITOR SCAN 2/07/05 PAGE 7 04436 0500 60 4 05624 CLA* BFA0,4 NO F0F02911 04437 0402 00 0 05522 SUB BLNKS F0F02912 04440 -0100 00 0 04447 TNZ NOTCC ANYTHING IN FIRST WORD F0F02913 04441 0774 00 1 00006 AXT 6,1 NO F0F02920 04442 0774 00 2 00015 AXT 13,2 F0F02930 04443 0634 00 1 05300 SXA NNBL1,1 F0F02940 04444 0634 00 2 05301 SXA NNBL2,2 F0F02950 04445 0074 00 4 05274 TSX NNBL,4 IS THIS A BLANK CARD F0F02960 04446 0020 00 0 04450 TRA RDNXT YES, IGNORE BLANK CARD F0F02970 04447 0020 00 0 04515 NOTCC TRA TOFN NON-BLANK AND NOT A CONTROL CARD F0F02980 BINARY CARD NO. 9F060016 04450 -0534 00 1 05437 RDNXT LXD BFSWCH,1 F0F02990 04451 0074 00 4 73606 TSX (TAPE),4 READ NEXT CARD F0F03000 04452 0 40006 1 05620 CW1,1,(RDEP) F0F03010 04453 0 00005 0 00000 ,,MINTAP $F0F03020 04454 -0 00000 0 04541 MZE TPCHK F0F03030 04455 0020 00 0 04421 TRA NEXT F0F03040 04456 0500 00 0 04461 NXTCC CLA DSEND F0F03050 04457 0601 00 0 04071 STO DS14 F0F03060 04460 0020 00 0 04011 TRA DSRCH SEARCH DICTIONARY F0F03070 04461 0020 00 0 04462 DSEND TRA *+1 F0F03080 04462 0441 00 2 04146 LDI TV,2 IS IT DATA F0F03090 04463 0051 00 004606 IIR DATA F0F03100 04464 0054 00 777777 RFT 777777 F0F03110 04465 0020 00 0 04472 TRA NOTDA NO F0F03120 04466 0441 60 0 73660 NXTDA LDI* (FGBX) YES, DATA CARD IS NEXT F0F03130 04467 0055 00 100000 SIR 100000 F0F03140 04470 0604 60 0 73660 STI* (FGBX) F0F03150 04471 0020 00 0 04516 TRA TOFNA F0F03160 04472 0441 00 2 04146 NOTDA LDI TV,2 IS IT DEBUG F0F03170 04473 0051 00 005172 IIR DEBUG F0F03180 04474 0054 00 777777 RFT 777777 F0F03190 04475 0020 00 0 04515 TRA TOFN NO F0F03200 BINARY CARD NO. 9F060017 04476 0441 60 0 73660 LDI* (FGBX) YES, DEBUG CARD IS NEXT F0F03210 04477 0055 00 400000 SIR 400000 SIGNAL DEBUG F0F03211 04500 0604 60 0 73660 STI* (FGBX) F0F03212 04501 -0056 00 000002 LNT 2 IS THIS A CHAIN JOB F0F03220 04502 0020 00 0 04467 TRA NXTDA+1 NO F0F03230 04503 0774 00 4 04505 AXT *+2,4 YES F0F03240 04504 0634 00 4 04447 SXA NOTCC,4 F0F03250 04505 -0535 00 1 05437 LDC BFSWCH,1 MOVE THE DEBUG CARDS TO B1 F0F03260 04506 0074 00 4 73606 TSX (TAPE),4 F0F03270 04507 0 40013 1 05617 CW0,1,(WDNC) F0F03280 04510 0 00010 0 00000 ,,CHNTAP $F0F03290 04511 0020 00 0 04450 TRA RDNXT F0F03300 F0F03310 04512 0441 60 0 73660 NXTEF LDI* (FGBX) F0F03320 04513 0055 00 100000 SIR 100000 SIGNAL GO TO BSS AFTER COMPILATION F0F03330 04514 0604 60 0 73660 STI* (FGBX) F0F03340 04515 0074 00 4 05340 TOFN TSX BKIN,4 BACKSPACE OVER NEXT INPUT RECORD F0F03350 04516 0074 00 4 73606 TOFNA TSX (TAPE),4 SPACE SYSTEM TAPE TO FORTRAN F0F03360 04517 0 20000 0 05376 SKFCW,,(SKBP) F0F03370 04520 0 00001 0 00000 ,,SYSTAP $F0F03380 32K 709/7090 FORTRAN MONITOR SCAN 2/07/05 PAGE 8 04521 0074 00 4 73611 TSX (PRNT),4 PRINT BEGIN COMPILATION AND GO TO FORTRAN F0F03390 04522 0 00004 0 05550 COMBC,,4 F0F03400 04523 0074 00 4 73611 TSX (PRNT),4 F0F03410 BINARY CARD NO. 9F060018 04524 0 00001 0 05550 SPACE,,1 F0F03420 04525 0074 00 4 04527 TSX LOAD,4 $F0F03421 04526 112601030000 BCI 1,9F1300 $F0F03422 04527 0500 00 4 00001 LOAD CLA 1,4 GET RECORD NAME $F0F03430 04530 0601 00 0 04540 STO RNAME $F0F03431 04531 0500 00 0 04543 CLA TPCHK+2 CLOSE OUT ALL IO $F0F03432 04532 0601 00 0 04541 STO TPCHK F0F03440 04533 0774 00 1 00007 AXT 7,1 $F0F03450 04534 0074 00 4 73606 TSX (TAPE),4 F0F03451 04535 0 10000 1 00010 PZE 8,1,(CHKU) NORMALLY CLOSE OUT TAPES 1-7 ONLY $F0F03452 04536 2 00001 1 04534 TIX *-2,1,1 F0F03453 D 04537 0074 01 4 73600 TSX (LOAD),4,1 LOAD NEXT SYSTEM RECORD $F0F03454 04540 545454545454 RNAME BCI 1,****** $F0F03455 F0F03460 04541 0441 00 0 73677 TPCHK LDI (SCHU)+MINTAP WAS ERROR WRONG MODE READ $F0F03470 04542 0056 00 000100 RNT 100 $F0F03480 04543 0020 00 0 04626 TRA QQQQ NO $F0F03490 04544 0441 60 0 73660 LDI* (FGBX) YES IS XEQ ON $F0F03500 04545 0054 00 000200 RFT 200 $F0F03510 04546 0020 00 0 04552 TRA CBIN YES CHECK FOR CHAIN JOB $F0F03520 04547 0774 00 1 04567 AXT RDBIN,1 NO, SKIP OVER BINARY INPUT $F0F03530 04550 0634 00 1 04602 SXA WTBIN,1 $F0F03540 04551 0020 00 0 04554 TRA RDBIN1 $F0F03550 BINARY CARD NO. 9F060019 04552 -0056 00 000002 CBIN LNT 2 CHAIN JOB $F0F03560 04553 0020 00 0 04616 TRA CBIN1 NO GO TO DEBUG $F0F03570 04554 0074 00 4 73606 RDBIN1 TSX (TAPE),4 YES MOVE BINARY $F0F03580 04555 0 40014 0 05627 PZE CWB0,,(RBEC) $F0F03590 04556 0 00005 0 00000 PZE ,,MINTAP $F0F03600 04557 -0520 00 0 73677 NZT (SCHU)+MINTAP MAKE SURE IT WASNT EOF $F0F03610 04560 0020 00 0 05724 CHKEF TRA IBFAP5 YES $F0F03620 04561 0500 00 0 05522 CLA BLNKS $F0F03630 04562 0774 00 1 00002 AXT 2,1 $F0F03640 04563 0601 00 1 06073 STO BUFZ0,1 $F0F03650 04564 0601 00 1 06113 STO BUFZ1,1 $F0F03660 04565 2 00001 1 04563 TIX *-2,1,1 $F0F03670 04566 -0634 00 1 05437 SXD BFSWCH,1 $F0F03680 04567 0774 00 1 00000 RDBIN AXT 0,1 $F0F03690 04570 -0520 00 0 05437 NZT BFSWCH $F0F03700 04571 0774 00 1 00001 AXT 1,1 $F0F03710 04572 -0634 00 1 05437 SXD BFSWCH,1 $F0F03720 04573 0074 00 4 73606 TSX (TAPE),4 $F0F03730 04574 0 40004 1 05630 PZE CWB1,1,(RBEP) $F0F03740 04575 0 00005 0 00000 PZE ,,MINTAP $F0F03750 04576 -0 00000 0 03757 CHKB MZE R1 IF ERROR TRY READING BCD $F0F03760 04577 -0520 00 0 73677 NZT (SCHU)+MINTAP EOF $F0F03770 BINARY CARD NO. 9F060020 04600 0020 00 0 05724 BEF TRA IBFAP5 YES $F0F03780 04601 -0535 00 1 05437 LDC BFSWCH,1 $F0F03790 32K 709/7090 FORTRAN MONITOR SCAN 2/07/05 PAGE 9 04602 0074 00 4 73606 WTBIN TSX (TAPE),4 $F0F03800 04603 0 40011 1 05627 PZE CWB0,1,(WBNC) $F0F03810 04604 0 00010 0 00000 PZE ,,CHNTAP $F0F03820 04605 0020 00 0 04567 TRA RDBIN $F0F03830 04606 DATA EQU * $F0F03840 04606 EF EQU * $F0F03850 04606 0441 60 0 73660 LDI* (FGBX) IS XEQ ON $F0F03860 04607 0054 00 000200 RFT 200 $F0F03870 04610 0020 00 0 04623 TRA EF1 YES $F0F03880 04611 EF2 EQU * $F0F03885 04611 0074 00 4 73606 TSX (TAPE),4 NO GO TO SIGN ON $F0F03890 04612 0 20000 0 05404 PZE BS4CW,,(SKBP) $F0F03900 04613 0 00001 0 00000 PZE ,,SYSTAP $F0F03910 04614 0074 00 4 04527 TSX LOAD,4 $F0F03920 04615 112600030000 BCI 1,9F0300 $F0F03930 04616 0055 00 200000 CBIN1 SIR 200000 $F0F03940 04617 0604 60 0 73660 STI* (FGBX) BINARY INPUT $F0F03950 04620 -0500 00 0 05347 CAL BKINR+1 KILL BACKSPACE $F0F03952 04621 0602 00 0 05340 SLW BKIN $F0F03953 04622 0774 00 0 00000 AXT ,0 $F0F03957 04623 0074 00 4 05340 EF1 TSX BKIN,4 BACK UP INPUT TAPE OVER EOF OR USER'S DATA$F0F03959 04624 0074 00 4 04527 TSX LOAD,4 READ IN DEBUG $F0F03960 04625 112600070000 BCI 1,9F0700 DEBUG $F0F03970 BINARY CARD NO. 9F060021 04626 0056 00 000010 QQQQ RNT 10 WAS ERROR REDUNDANCY $F0F03980 04627 0020 00 0 05335 TRA INERR NO $F0F03990 04630 0020 00 0 05715 TRA IBFAP4 $F0F04000 F0F04020 F0F04030 F0F04040 WRITE SOURCE PROGRAM CARDS FOR FORTRAN AND OUTPUT TAPE F0F04050 04631 0774 00 1 00000 WSP AXT **,1 F0F04060 04632 -2 00001 1 04654 TNX NUPAG,1,1 TRANSFER FOR NEW PAGE F0F04070 04633 0634 00 1 04631 SXA WSP,1 F0F04080 04634 -0535 00 1 05437 LDC BFSWCH,1 F0F04090 04635 0074 00 4 73606 TSX (TAPE),4 WRITE B2 FOR FORTRAN F0F04100 04636 0 40001 1 05617 CW0,1,(WBNP) F0F04110 04637 0 00002 0 05406 FINPUT,,FINTAP $F0F04120 04640 0520 00 0 03734 ZET BEGIN F0F04130 04641 0020 00 0 04652 TRA WSP1 DONT WRITE A3 F0F04140 04642 0074 00 4 73606 TSX (TAPE),4 WRITE A3 OUTPUT TAPE F0F04150 04643 0 40003 1 05621 CWP0,1,(WDNP) F0F04160 04644 0 00006 0 00000 ,,MLSTAP $F0F04170 04645 0074 00 4 73606 WSPCK TSX (TAPE),4 CHECK BEFORE DESTROYING THIS BUFFER F0F04180 04646 0 10000 0 00002 FINTAP,,(CHKU) $F0F04190 04647 0074 00 4 73606 TSX (TAPE),4 F0F04200 04650 0 10000 0 00006 MLSTAP,,(CHKU) $F0F04210 04651 0020 00 0 03765 TRA READ F0F04220 04652 0600 00 0 03734 WSP1 STZ BEGIN F0F04230 04653 0020 00 0 04645 TRA WSPCK F0F04240 BINARY CARD NO. 9F060022 04654 0534 00 4 03731 NUPAG LXA LINECT,4 F0F04250 04655 -0520 00 0 03734 NZT BEGIN IS THIS THE FIRST SOURCE CARD F0F04260 04656 1 00000 4 04726 NLINS TXI WTHED,4,** NO (DECREMENT HAS NO. OF LINES PER PAGE) F0F04270 32K 709/7090 FORTRAN MONITOR SCAN 2/07/05 PAGE 10 PREPARE PAGE HEADING F0F04280 04657 0020 00 0 05710 TRA IBFAP3 CHECK FOR IBSFAP WITH NO FAP CARD $F0F04290 04660 0774 00 2 00016 AXT 14,2 F0F04300 04661 0500 60 1 05626 CLA* BFZ0,1 F0F04310 04662 0601 00 2 05545 STO TITLE+14,2 F0F04320 04663 1 77777 2 04664 TXI *+1,2,-1 F0F04330 04664 3 00002 2 04661 TXH *-3,2,2 F0F04340 04665 0774 00 2 00001 AXT 1,2 F0F04350 04666 -0634 00 2 03731 SXD LINECT,2 SET PAGE NUMBER TO 1 F0F04360 04667 -0754 00 0 00000 PXD ,0 F0F04370 04670 0600 00 0 03734 STZ BEGIN F0F04380 04671 0441 00 0 05527 LDI TITLE F0F04390 04672 -0051 00 230000 IIL 230000 WAS 1ST CHARACTER C F0F04400 04673 -0054 00 770000 LFT 770000 F0F04410 04674 0020 00 0 04701 TRA CDATE NO F0F04420 04675 -0055 00 600000 SIL 600000 YES, CHANGE TO BLANK F0F04430 04676 0604 00 0 05527 STI TITLE F0F04440 04677 -0625 00 0 03734 STL BEGIN DONT WRITE THIS CARD AGAIN ON A3 F0F04450 04700 -0500 00 0 04656 CAL NLINS F0F04460 04701 0630 00 0 03731 CDATE STP LINECT SIGNAL FOR 1ST CHARACTER C F0F04470 BINARY CARD NO. 9F060023 04702 -0500 00 0 73662 CAL (DATE) GET DATE F0F04480 04703 0100 00 0 04723 TZE NDATE NO DATE F0F04490 04704 -0320 00 0 05522 ANA BLNKS ANY ZONE BITS F0F04500 04705 -0100 00 0 04723 TNZ NDATE YES, NOT PROPER DATE F0F04510 04706 0560 00 0 73662 LDQ (DATE) GOOD DATE F0F04520 04707 -0763 00 0 00006 LGL 6 F0F04530 04710 -0100 00 0 04712 TNZ *+2 F0F04540 04711 -0500 00 0 05370 CAL BLNK F0F04550 04712 -0763 00 0 00006 LGL 6 MONTH F0F04560 04713 0767 00 0 00006 ALS 6 F0F04570 04714 -0602 00 0 05543 ORS DATE F0F04580 04715 -0763 00 0 00014 LGL 12 DAY F0F04590 04716 0767 00 0 00006 ALS 6 F0F04600 04717 -0763 00 0 00014 LGL 12 YEAR F0F04610 04720 0767 00 0 00006 ALS 6 F0F04620 04721 -0602 00 0 05544 ORS DATE+1 F0F04630 04722 0020 00 0 04726 TRA WTHED F0F04640 04723 -0500 00 0 05522 NDATE CAL BLNKS F0F04650 04724 0602 00 0 05543 SLW DATE F0F04660 04725 0602 00 0 05544 SLW DATE+1 F0F04670 04726 0634 00 4 03731 WTHED SXA LINECT,4 F0F04680 04727 -0534 00 4 04656 LXD NLINS,4 F0F04690 BINARY CARD NO. 9F060024 04730 1 77777 4 04731 TXI *+1,4,-1 F0F04700 04731 0634 00 4 04631 SXA WSP,4 F0F04710 04732 0074 00 4 73606 TSX (TAPE),4 WRITE PAGE HEADING F0F04720 04733 0 40003 0 05525 HEDCW,,(WDNP) F0F04730 04734 0 00006 0 00000 ,,MLSTAP $F0F04740 04735 0074 00 4 73606 TSX (TAPE),4 F0F04750 04736 0 40003 0 05517 BLNCW,,(WDNP) F0F04760 04737 0 00006 0 00000 ,,MLSTAP $F0F04770 04740 -0534 00 4 03731 LXD LINECT,4 UPDATE PAGE NUMBER F0F04780 04741 1 00001 4 04742 TXI *+1,4,1 F0F04790 32K 709/7090 FORTRAN MONITOR SCAN 2/07/05 PAGE 11 04742 -0634 00 4 03731 SXD LINECT,4 F0F04800 04743 0754 00 4 00000 PXA ,4 F0F04810 04744 0560 00 0 05407 LDQ ZERO F0F04820 04745 0765 00 0 00004 LRS 4 F0F04830 04746 0225 04 0 05100 VDP HUND,,4 F0F04840 04747 -0773 00 0 00006 RQL 6 F0F04850 04750 0765 00 0 00004 LRS 4 F0F04860 04751 0225 04 0 05101 VDP TEN,,4 F0F04870 04752 -0773 00 0 00006 RQL 6 F0F04880 04753 -0600 00 0 05547 STQ PAGE+1 F0F04890 04754 -0501 00 0 05547 ORA PAGE+1 F0F04900 04755 0560 00 0 05522 LDQ BLNKS F0F04910 BINARY CARD NO. 9F060025 04756 -0765 00 0 00006 LGR 6 F0F04920 04757 -0100 00 0 04756 TNZ *-1 F0F04930 04760 -0600 00 0 05547 STQ PAGE+1 F0F04940 04761 0020 00 0 04631 WTHDR TRA WSP F0F04950 F0F04960 04762 -0500 00 0 05412 XEQ CAL XBIT XEQ CONTROL CARD, SET EXECUTION BIT. F0F04970 04763 0441 00 0 00133 LDI SYSJOB OBTAIN NOGO BIT FROM IBSYS $F0F04980 04764 0020 00 0 06010 TRA IBPAT1 TEST FOR IBSFAP $F0F04990 F0F05000 04765 0441 60 0 73660 CHN LDI* (FGBX) F0F05010 04766 0774 00 1 04216 AXT SP,1 F0F05011 04767 0634 00 1 04010 SXA SWIT,1 F0F05012 04770 0056 00 000200 RNT 200 F0F05020 04771 0020 00 0 03765 TRA READ NO EXECUTION F0F05030 04772 -0056 00 000002 LNT 2 IS THIS THE FIRST CHAIN. F0F05040 04773 0020 00 0 05003 TRA CHN1 YES F0F05050 04774 0074 00 4 73606 TSX (TAPE),4 NO, WRITE EOF ON B1 AND B4 F0F05060 04775 0 40005 0 00000 ,,(WEFP) F0F05070 04776 0 00010 0 00000 ,,CHNTAP $F0F05080 04777 0074 00 4 73606 TSX (TAPE),4 F0F05090 05000 0 40015 0 00000 ,,(WEFC) F0F05100 05001 0 00007 0 00000 ,,MBNTAP $F0F05110 05002 0020 00 0 05010 TRA CHN1A F0F05120 05003 0074 00 4 73606 CHN1 TSX (TAPE),4 REWIND B1 F0F05130 BINARY CARD NO. 9F060026 05004 0 20000 0 05401 REWND,,(SKBP) F0F05140 05005 0 00010 0 00000 ,,CHNTAP $F0F05150 05006 -0055 00 000002 SIL 2 F0F05160 05007 0604 60 0 73660 STI* (FGBX) F0F05170 05010 0074 00 4 05274 CHN1A TSX NNBL,4 1ST CHARACTER AFTER LEFT PAREN. F0F05180 05011 0020 00 0 05042 TRA CHER1 F0F05190 05012 0774 00 1 00005 AXT 5,1 F0F05200 05013 0600 00 0 05103 STZ TEMP F0F05210 05014 0602 00 0 05103 CHN2 SLW TEMP GET BCD RECORD = F0F05220 05015 0074 00 4 05274 TSX NNBL,4 IONTO TEMP. F0F05230 05016 0020 00 0 05042 TRA CHER1 X F0F05240 05017 0340 00 0 05373 CAS COMMA X F0F05250 05020 0020 00 0 05022 TRA *+2 X F0F05260 05021 0020 00 0 05027 TRA CHN3 X F0F05270 05022 -0765 00 0 00006 LGR 6 X F0F05280 05023 -0500 00 0 05103 CAL TEMP X F0F05290 32K 709/7090 FORTRAN MONITOR SCAN 2/07/05 PAGE 12 05024 -0763 00 0 00006 LGL 6 X F0F05300 05025 2 00001 1 05014 TIX CHN2,1,1 X F0F05310 05026 0020 00 0 05042 TRA CHER1 F0F05320 05027 0074 00 4 05274 CHN3 TSX NNBL,4 GET THE TAPE NUMBER F0F05330 05030 0020 00 0 05042 TRA CHER1 F0F05340 05031 0734 00 1 00000 PAX ,1 F0F05350 BINARY CARD NO. 9F060027 05032 3 00010 1 05027 TXH CHN3,1,8 F0F05360 05033 0601 00 0 05104 STO TEMPA F0F05370 05034 0774 00 1 00006 AXT 6,1 F0F05380 05035 0560 00 0 05103 CHN4 LDQ TEMP ELIMINATE LEADING ZEROS F0F05390 05036 -0754 00 0 00000 CHN5 PXD 0,0 FROM RECORD NO. F0F05400 05037 -0763 00 0 00006 LGL 6 F0F05410 05040 -0100 00 0 05054 TNZ CHN6 F0F05420 05041 2 00001 1 05036 TIX CHN5,1,1 F0F05430 05042 0500 00 0 05560 CHER1 CLA COMCH COMMENT CHAIN CARD NG F0F05440 05043 0074 00 4 05351 TSX COMNT,4 F0F05450 05044 0074 00 4 05340 TSX BKIN,4 BACKSPACE OVER NEXT INPUT RECORD F0F05460 05045 0074 00 4 73606 TSX (TAPE),4 SPACE TO SOURCE ERROR RECORD F0F05470 05046 0 20000 0 05377 SK4CW,,(SKBP) F0F05480 05047 0 00001 0 00000 ,,SYSTAP $F0F05490 05050 0760 00 0 00140 SLF F0F05500 05051 0760 00 0 00142 SLN 2 F0F05510 05052 0074 00 4 04527 TSX LOAD,4 GO TO SOURCE ERROR RECORD $F0F05520 05053 112601010000 BCI 1,9F1100 $F0F05521 05054 0600 00 0 05331 CHN6 STZ TEMP1 CONVERT RECORD = TO F0F05530 05055 -0600 00 0 05103 CHN7 STQ TEMP BINARY. F0F05540 05056 0131 00 0 00000 XCA X F0F05550 05057 0200 00 1 05103 MPY CHN15+5,1 X F0F05560 BINARY CARD NO. 9F060028 05060 0131 00 0 00000 XCA X F0F05570 05061 0400 00 0 05331 ADD TEMP1 X F0F05580 05062 -2 00001 1 05070 TNX CHN8,1,1 X F0F05590 05063 0601 00 0 05331 STO TEMP1 X F0F05600 05064 0560 00 0 05103 LDQ TEMP X F0F05610 05065 -0754 00 0 00000 PXD 0,0 X F0F05620 05066 -0763 00 0 00006 LGL 6 X F0F05630 05067 0020 00 0 05055 TRA CHN7 X F0F05640 05070 0734 00 1 00000 CHN8 PAX ,1 F0F05650 05071 -0634 00 1 05104 SXD TEMPA,1 F0F05660 05072 0074 00 4 73606 TSX (TAPE),4 WRITE THE CHAIN LABEL F0F05670 05073 0 40011 0 05405 LBLCW,,(WBNC) F0F05680 05074 0 00010 0 00000 ,,CHNTAP $F0F05690 05075 0020 00 0 03765 TRA READ F0F05700 F0F05710 F0F05720 05076 +000000023420 CHN15 DEC 10000,1000,100,10,1 F0F05730 05102 ONE SYN CHN15+4 F0F05740 05101 TEN SYN CHN15+3 F0F05760 05100 HUND SYN CHN15+2 F0F05770 05103 0 00000 0 00000 TEMP PZE F0F05780 05104 0 00000 0 00000 TEMPA PZE F0F05790 F0F05800 05105 0500 00 0 05436 CDROW CLA CDS SET SWITCHES 1 AND 4 FOR CARDS ROW. F0F05810 32K 709/7090 FORTRAN MONITOR SCAN 2/07/05 PAGE 13 BINARY CARD NO. 9F060029 05106 0601 00 0 05502 STO ENDCD+1 F0F05820 05107 -0625 00 0 05457 STL ESW1 F0F05830 05110 -0625 00 0 05462 STL ESW4 F0F05840 05111 0020 00 0 03765 TRA READ F0F05850 05112 0500 00 0 05410 CDCOL CLA 100OCT SET SWITCHES 1 AND 4 FOR CARDS COLUMN. F0F05860 05113 -0602 00 0 05503 ORS ENDCD+2 F0F05870 05114 0020 00 0 05105 TRA CDROW F0F05880 05115 0500 00 0 05411 LIST CLA OCTTHD SET SWITCH 2 FOR SYMBOLIC LISTING. F0F05890 05116 -0602 00 0 05503 ORS ENDCD+2 F0F05900 05117 -0625 00 0 05460 STL ESW2 F0F05910 05120 0020 00 0 03765 TRA READ F0F05920 05121 0500 00 0 05435 LIBE CLA LBS SET SWITCH 5 FOR FORTRAN F0F05930 05122 -0602 00 0 05504 ORS ENDCD+3 LIBRARY SEARCH F0F05940 05123 -0625 00 0 05463 STL ESW5 F0F05950 05124 0020 00 0 03765 TRA READ F0F05960 05125 -0500 00 0 05376 SYMTAB CAL ONEIND F0F05970 05126 -0602 00 0 05504 ORS ENDCD+3 F0F05980 05127 -0625 00 0 05464 STL ESW1+5 F0F05990 05130 0020 00 0 03765 TRA READ F0F06000 05131 0774 00 1 00003 PAUSE AXT 3,1 F0F06010 05132 0074 00 4 73611 TSX (PRNT),4 SPACE PAGE. F0F06020 05133 0 00001 0 05550 SPACE,,1 F0F06030 BINARY CARD NO. 9F060030 05134 2 00001 1 05132 TIX *-2,1,1 F0F06040 05135 0420 00 7 77777 HPR -1,7 F0F06050 05136 0020 00 0 03765 TRA READ F0F06060 05137 0500 00 0 05410 LABEL CLA 100OCT SET SWITCH 7 FOR LABEL OPTION F0F06070 05140 -0602 00 0 05504 ORS ENDCD+3 F0F06080 05141 -0625 00 0 05465 STL ESW1+6 F0F06090 05142 0020 00 0 03765 TRA READ F0F06100 05143 0500 00 0 05411 LIST8 CLA OCTTHD SET SWITCH 8 FOR OCTAL LISTING F0F06110 05144 -0602 00 0 05505 ORS ENDCD+4 F0F06120 05145 -0625 00 0 05466 STL ESW1+7 F0F06130 05146 0020 00 0 05115 TRA LIST F0F06140 05147 0500 00 0 05376 ONLPR CLA ONEIND F0F06150 05150 -0602 00 0 05503 ORS ENDCD+2 F0F06160 05151 -0625 00 0 05461 STL ESW1+2 F0F06170 05152 0020 00 0 03765 TRA READ F0F06180 05153 0500 00 0 05376 ROW CLA ONEIND SET SWITCH 9 FOR OFF LINE ROW BINARY F0F06181 05154 -0602 00 0 05505 ORS ENDCD+4 F0F06182 05155 -0625 00 0 05467 STL ESW1+8 F0F06183 05156 0441 60 0 73660 LDI* (FGBX) F0F06184 05157 0056 00 000200 RNT 200 F0F06185 05160 0020 00 0 03765 TRA READ F0F06186 05161 0057 00 000200 RIR 200 DELETE EXECUTION F0F06187 BINARY CARD NO. 9F060031 05162 0604 60 0 73660 STI* (FGBX) F0F06188 05163 0500 00 0 05577 CLA COMRX F0F06189 05164 0074 00 4 05351 TSX COMNT,4 F0F06190 05165 0020 00 0 03765 TRA READ F0F06191 05166 0500 00 0 05410 PACK CLA 100OCT SET SWITCH 10 FOR PACKED LISTING TAPE F0F06192 05167 -0602 00 0 05505 ORS ENDCD+4 F0F06193 05170 -0625 00 0 05470 STL ESW1+9 F0F06194 32K 709/7090 FORTRAN MONITOR SCAN 2/07/05 PAGE 14 05171 0020 00 0 03765 TRA READ F0F06195 F0F06196 05172 0441 60 0 73660 DEBUG LDI* (FGBX) F0F06200 05173 0055 00 400000 SIR 400000 SIGNAL DEBUG. F0F06201 05174 0604 60 0 73660 STI* (FGBX) F0F06202 05175 -0056 00 000002 LNT 2 IS THIS A CHAIN JOB. F0F06210 05176 0020 00 0 04606 TRA DATA NO F0F06220 05177 0774 00 1 05201 MVDBG AXT WTDBG,1 YES, MOVE DEBUG CARDS TO B1. F0F06230 05200 0634 00 1 04010 SXA SWIT,1 F0F06240 05201 0020 00 0 05763 WTDBG TRA PATCH1 GO TEST FOR BLANK CARD $F0F06250 05202 0074 00 4 73606 TSX (TAPE),4 F0F06260 05203 0 40013 1 05617 CW0,1,(WDNC) F0F06270 05204 0 00010 0 00000 ,,CHNTAP $F0F06280 05205 0020 00 0 03765 TRA READ F0F06290 F0F06300 05206 0074 00 4 05340 BIN TSX BKIN,4 BACKSPACE OVER NEXT INPUT RECORD F0F06310 05207 0074 00 4 73606 TSX (TAPE),4 F0F06320 BINARY CARD NO. 9F060032 05210 0 20000 0 05400 SK5CW,,(SKBP) F0F06330 05211 0 00001 0 00000 ,,SYSTAP $F0F06340 05212 0074 00 4 04527 TSX LOAD,4 $F0F06341 05213 112601020000 BCI 1,9F1200 $F0F06342 $F0F06343 05214 0074 00 4 05340 EDIT TSX BKIN,4 BACKSPACE OVER NEXT INPUT RECORD $F0F06350 05215 0774 00 1 00004 AXT 4,1 SKIP 4 FILES ON SYSTEM $F0F06351 05216 0074 00 4 73606 TSX (TAPE),4 $F0F06352 05217 0 20000 0 05376 SKFCW,,(SKBP) $F0F06353 05220 0 00001 0 00000 ,,SYSTAP $F0F06354 05221 2 00001 1 05216 TIX *-3,1,1 $F0F06355 05222 0074 00 4 04527 TSX LOAD,4 GO TO LIBRARY BLOCKER $F0F06356 05223 114325243163 BCI 1,9LEDIT $F0F06357 05224 BSS 20 F0F06360 F0F06370 BINARY CARD NO. 9F060033 05250 0774 00 2 00006 FAP AXT 6,2 SET END SWITCHES FOR FAP F0F06380 05251 0560 00 2 05510 GTES LDQ ENDCD+7,2 F0F06390 05252 0774 00 1 00003 AXT 3,1 F0F06400 05253 -0773 00 0 00005 GTES1 RQL 5 F0F06410 05254 -0763 00 0 00001 LGL 1 F0F06420 05255 -0773 00 0 00006 RQL 6 F0F06430 05256 2 00001 1 05253 TIX GTES1,1,1 F0F06440 05257 2 00001 2 05251 TIX GTES,2,1 F0F06450 05260 0771 00 0 00001 ARS 1 F0F06460 05261 0621 00 0 73665 STA (ENDS) F0F06461 05262 0074 00 4 05340 TSX BKIN,4 BACKSPACE OVER NEXT INPUT RECORD F0F06470 05263 0074 00 4 73606 TSX (TAPE),4 BACKSPACE SYSTEM TO RECORD 4 F0F06480 05264 0 20000 0 05403 BS3CW,,(SKBP) F0F06490 05265 0 00001 0 00000 ,,SYSTAP $F0F06500 05266 0074 00 4 73611 TSX (PRNT),4 PRINT BEGIN ASSEMBLY F0F06510 05267 0 00004 0 05554 COMBA,,4 F0F06520 05270 0074 00 4 73611 TSX (PRNT),4 F0F06521 05271 0 00001 0 05550 SPACE,,1 F0F06522 05272 0074 00 4 04527 TSX LOAD,4 GO TO FAP $F0F06530 05273 112600040000 BCI 1,9F0400 $F0F06531 32K 709/7090 FORTRAN MONITOR SCAN 2/07/05 PAGE 15 F0F06540 05274 0634 00 4 05323 NNBL SXA NNBL6,4 ROUTINE GETS NEXT NON BLANK CHARACTER F0F06550 05275 0634 00 2 05324 SXA NNBL7,2 IN BUFFER. F0F06560 BINARY CARD NO. 9F060034 05276 0634 00 1 05325 SXA NNBL8,1 F0F06570 05277 -0600 00 0 05331 STQ TEMP1 F0F06580 05300 0774 00 1 00000 NNBL1 AXT ,1 F0F06590 05301 0774 00 2 00000 NNBL2 AXT ,2 F0F06600 05302 -0534 00 4 05437 LXD BFSWCH,4 F0F06610 05303 0560 00 0 05332 LDQ TEMPQ F0F06620 05304 -3 00005 1 05306 NNBL2A TXL NNBL4,1,5 F0F06630 05305 0560 60 4 05626 NNBL3 LDQ* BFZ0,4 F0F06640 05306 -0754 00 0 00000 NNBL4 PXD 0,0 F0F06650 05307 -0763 00 0 00006 LGL 6 F0F06660 05310 0322 00 0 05370 ERA BLNK $F0F06670 05311 2 00001 1 05314 TIX *+3,1,1 F0F06680 05312 0774 00 1 00006 AXT 6,1 F0F06690 05313 1 77777 2 05314 TXI *+1,2,-1 F0F06700 05314 -0100 00 0 05320 TNZ NNBL5 F0F06710 05315 3 00002 2 05304 TXH NNBL2A,2,2 F0F06720 05316 0534 00 4 05323 LXA NNBL6,4 F0F06730 05317 1 00001 4 05324 TXI NNBL7,4,1 F0F06740 05320 0322 00 0 05370 NNBL5 ERA BLNK $F0F06750 05321 0634 00 1 05300 SXA NNBL1,1 F0F06760 05322 0634 00 2 05301 SXA NNBL2,2 F0F06770 05323 0774 00 4 00000 NNBL6 AXT ,4 F0F06780 BINARY CARD NO. 9F060035 05324 0774 00 2 00000 NNBL7 AXT ,2 F0F06790 05325 0774 00 1 00000 NNBL8 AXT ,1 F0F06800 05326 -0600 00 0 05332 STQ TEMPQ F0F06810 05327 0560 00 0 05331 LDQ TEMP1 F0F06820 05330 0020 00 4 00002 TRA 2,4 F0F06830 05331 0 00000 0 00000 TEMP1 PZE F0F06840 05332 0 00000 0 00000 TEMPQ PZE F0F06850 F0F06860 05333 0500 00 0 05565 NCB CLA COMNC COMMENT BINARY INPUT W NO CB BITS F0F06870 05334 0074 00 4 05351 TSX COMNT,4 F0F06880 05335 0074 00 4 73606 INERR TSX (TAPE),4 GO TO IO PACKAGE FOR ERROR $F0F06890 05336 0 04000 0 00000 ,,(TPER) AND DONT COME BACK F0F06900 05337 0 00005 0 00000 ,,MINTAP $F0F06910 F0F06920 ROUTINE TO BACKSPACE INPUT TAPE WITHOUT CHECKING F0F06930 05340 0634 00 4 05346 BKIN SXA BKINR,4 F0F06940 05341 0500 00 0 05350 CLA KILER KILL ERROR RETURN IN CASE IT WAS BINARY F0F06950 05342 0601 00 0 04541 STO TPCHK F0F06960 05343 0074 00 4 73606 TSX (TAPE),4 BACKSPACE INPUT TAPE F0F06970 05344 0 20002 0 05402 BSRCW,,(SKDP) F0F06980 05345 0 00005 0 00000 ,,MINTAP $F0F06990 05346 0774 00 4 00000 BKINR AXT **,4 F0F07000 05347 0020 00 4 00001 TRA 1,4 F0F07010 05350 0020 00 0 05346 KILER TRA BKINR F0F07020 F0F07030 WRITE COMMENTS F0F07040 05351 0634 00 4 05365 COMNT SXA COMNR,4 F0F07050 32K 709/7090 FORTRAN MONITOR SCAN 2/07/05 PAGE 16 BINARY CARD NO. 9F060036 05352 0601 00 0 05364 STO COMCW F0F07060 05353 0074 00 4 73606 TSX (TAPE),4 WRITE MESSAGE OFF LINE F0F07070 05354 0 40013 0 05364 COMCW,,(WDNC) F0F07080 05355 0 00006 0 00000 ,,MLSTAP $F0F07090 05356 0534 00 4 03731 LXA LINECT,4 F0F07100 05357 1 00001 4 05360 TXI *+1,4,1 F0F07110 05360 0634 00 4 03731 SXA LINECT,4 F0F07120 05361 -0754 00 0 00000 ZAC $F0F07128 05362 0630 00 0 05364 STP COMCW $F0F07129 05363 0074 00 4 73611 TSX (PRNT),4 PRINT MESSAGE ON LINE F0F07130 05364 0 00000 0 00000 COMCW ** F0F07140 05365 0774 00 4 00000 COMNR AXT **,4 F0F07150 05366 0020 00 4 00001 TRA 1,4 F0F07160 F0F07170 05367 +000000000054 ASTK OCT 54 F0F07180 05370 +000000000060 BLNK OCT 60 F0F07190 05371 +000000000074 LPREN OCT 74 F0F07200 05372 +000000000034 RPREN OCT 34 F0F07210 05373 +000000000073 COMMA OCT 73 F0F07220 05374 +000000000077 SVNS OCT 77 F0F07230 05375 -377700000000 2CHAR OCT 777700000000 F0F07240 05376 0 00001 0 00000 SKFCW ,,1 SKIP FILE CONTROL WORD FOR IO PACKAGE F0F07250 05376 ONEIND SYN SKFCW F0F07260 05377 0 00000 0 00004 SK4CW 4 SKIP 4 RECORDS CONTROL WORD F0F07270 BINARY CARD NO. 9F060037 05400 0 00000 0 00005 SK5CW 5 SKIP 5 RECORDS CONTROL WORD F0F07280 05401 0 77777 0 00000 REWND PZE ,,-1 REWIND CONTROL WORD FOR IO PACKAGE F0F07290 05402 -0 00000 0 00001 BSRCW MZE 1 BACKSPACE RECORD CONTROL WORD F0F07300 05403 -0 00000 0 00003 BS3CW MZE 3 BACKSPACE 3 RECORDS CONTROL WORD F0F07310 05404 -0 00000 0 00004 BS4CW MZE 4 BACKSPACE 4 RECORDS CONTROL WORD F0F07320 05405 3 00003 0 05104 LBLCW IORT TEMPA,,3 F0F07330 05406 263145476463 FINPUT BCI 1,FINPUT F0F07351 05407 0 00000 0 00000 ZERO 0 F0F07360 05410 +000000000100 100OCT OCT 100 F0F07370 05411 +010000000000 OCTTHD OCT 010000000000 F0F07380 05412 +000000000200 XBIT OCT 200 F0F07390 05413 +000000000030 CMNSAK OCT 30 $F0F07400 05414 +000000000023 CLCH OCT 23,21,43,43,23,30,21,31,45,74 F0F07410 BINARY CARD NO. 9F060038 05426 +000000000022 OCTB OCT 22 F0F07420 05427 000060606060 4BLNK BCI 1,00 F0F07430 05430 -377777777760 BMSK OCT 777777777760,40 F0F07440 05432 +000000000025 E OCT 25,45,24 F0F07450 05435 +010000000000 LBS OCT 010000000000 F0F07460 05436 254524740073 CDS BCI 1,END(0, F0F07470 05437 0 00000 0 00000 BFSWCH PZE F0F07480 05440 0 00000 0 00000 PSW1 PZE F0F07490 05441 0 00000 0 00000 PSW2 PZE F0F07500 05442 0 00000 0 00000 PSW3 PZE F0F07510 05443 0 00000 0 00000 PSW4 PZE F0F07520 05444 0 00000 0 00000 PSW5 PZE F0F07530 05445 DUP 1,10 F0F07540 05445 0 00000 0 00000 PZE F0F07550 32K 709/7090 FORTRAN MONITOR SCAN 2/07/05 PAGE 17 BINARY CARD NO. 9F060039 05457 0 00000 0 00000 ESW1 PZE F0F07560 05460 0 00000 0 00000 ESW2 PZE F0F07570 05461 0 00000 0 00000 ESW3 PZE F0F07580 05462 0 00000 0 00000 ESW4 PZE F0F07590 05463 0 00000 0 00000 ESW5 PZE F0F07600 05464 0 00000 0 00000 PZE $F0F07610 05465 0 00000 0 77777 PZE -1 LABEL OPTION ASSUMED $F0F07611 05466 0 00000 0 00000 PZE $F0F07612 05467 0 00000 0 00000 PZE $F0F07613 05470 0 00000 0 77777 PZE -1 PACK OPTION ASSUMED $F0F07614 05471 DUP 1,5 $F0F07620 05471 0 00000 0 00000 PZE $F0F07622 05476 3 00016 0 05501 ENDCW IORT ENDCD,,14 $F0F07630 05477 3 00017 0 05500 IORT *+1,,15 $F0F07640 05500 606060606060 BCI 1, F0F07650 05501 606060606060 ENDCD BCI 1, F0F07660 BINARY CARD NO. 9F060040 05502 254524740173 BCI 7,END(1,0,0,0,0,0,1,0,0,1,0,0,0,0,0) $F0F07670 05511 606060606060 BCI 6, F0F07680 05517 3 00003 0 05522 BLNCW IORT BLNKS,,3 CONTROL WORD FOR BLANK LINE $F0F07690 05520 3 00003 0 05521 EJECT IORT *+1,,3 $F0F07700 05521 016060606060 BCI 1,1 F0F07710 05522 606060606060 BLNKS BCI 3, F0F07720 05525 3 00022 0 05526 HEDCW IORT *+1,,18 CONTROL WORD FOR PAGE HEADING $F0F07730 05526 016060606060 BCI 1,1 F0F07740 05527 606044464531 TITLE BCI 9, MONITOR SKIPPING FOR CONTROL $F0F07750 BINARY CARD NO. 9F060041 05540 606060606060 BCI 3, $F0F07755 05543 606060000061 DATE BCI 3, 00/00/00 F0F07760 05546 604721272560 PAGE BCI 2, PAGE 1 F0F07770 05550 006060606060 COMBC BCI 4,0 BEGIN COMPILATION F0F07780 05550 SPACE SYN COMBC F0F07790 05554 006060606060 COMBA BCI 4,0 BEGIN ASSEMBLY F0F07800 BINARY CARD NO. 9F060042 05560 3 00004 0 05561 COMCH IORT *+1,,4 $F0F07810 05561 006031434325 BCI 4,0 ILLEGAL CHAIN CARD F0F07820 05565 3 00011 0 05566 COMNC IORT *+1,,9 $F0F07830 05566 002231452151 BCI 9,0BINARY RECORD ON INPUT TAPE HAS NO COLUMN BINARY BITS F0F07840 05577 3 00010 0 05600 COMRX IORT *+1,,8 $F0F07841 05600 004626266043 BCI 8,0OFF LINE ROW BINARY REQUEST, EXECUTION DELETED. F0F07842 BINARY CARD NO. 9F060043 05610 3 00006 0 05611 COMLB IORT *+1,,6 $F0F07843 05611 006051466660 BCI 6,0 ROW BINARY LIBRARY REQUEST IGNORED $F0F07844 05617 3 00016 0 06055 CW0 IORT BUF0,,14 F0F07850 05620 3 00016 0 06075 CW1 IORT BUF1,,14 F0F07860 05621 3 00017 0 06054 CWP0 IORT PBUF0,,15 $F0F07870 05622 3 00017 0 06074 CWP1 IORT PBUF1,,15 $F0F07880 05623 0 00000 0 06075 BFA1 BUF1 F0F07890 05624 0 00000 0 06055 BFA0 BUF0 F0F07900 05625 0 00000 2 06113 BFZ1 BUFZ1,2 F0F07910 05626 0 00000 2 06073 BFZ0 BUFZ0,2 F0F07920 32K 709/7090 FORTRAN MONITOR SCAN 2/07/05 PAGE 18 05627 3 00030 0 06114 CWB0 IORT BBUF0,,24 F0F07930 05630 3 00030 0 06145 CWB1 IORT BBUF1,,24 F0F07940 05631 -0500 00 0 05634 IOP CAL BIT21 $F0F07941 BINARY CARD NO. 9F060044 05632 -0602 60 0 73660 ORS* (FGBX) $F0F07942 05633 0020 00 0 03765 TRA READ BACK FOR NEXT CARD $F0F07943 05634 +000000040000 BIT21 OCT 40000 $F0F07944 ROUTINES TO PROCESS IBSFAP CONTROL CARDS $F0F07949 05635 0441 60 0 73660 IBFAP1 LDI* (FGBX) $ IN CC1 IF IBSFAP BACK 2 RECORDS $F0F0794A 05636 -0100 00 0 05642 TNZ *+4 TRANSFER IF NOT A $ $F0F0794B 05637 0054 00 000004 RFT 4 IF FORTRAN BACK ONE RECORD $F0F0794C 05640 0074 00 4 05340 TSX BKIN,4 IBSFAP $F0F07950 05641 0020 00 0 05673 TRA BKIN2 GO BACKSPACE, THEN TO SIGN-ON $F0F07951 05642 0400 00 0 05413 ADD CMNSAK NO $ IS THIS A COMMENTS CARD $F0F07952 05643 0100 00 0 04631 TZE WSP YES $F0F07953 05644 0056 00 000004 RNT 4 IS THIS IBSFAP $F0F07954 05645 0020 00 0 04220 TRA SP+2 NO RETURN TO SCAN FOR END CARD $F0F07955 05646 -0600 00 0 05731 STQ TEMP2 SAVE CCS. I'6 $F0F07956 05647 0774 00 2 00015 AXT 13,2 GET 2ND WORD OF CARD IMAGE $F0F07957 05650 0560 60 1 05626 LDQ* BFZ0,1 $F0F07958 05651 -0754 00 0 00000 ZAC TEST CC 7 FOR ASTERISK $F0F07959 05652 -0600 00 0 05732 STQ IBSAV SAVE 2ND WORD FOR PRINT OUT $F0F0795A 05653 -0763 00 0 00006 LGL 6 $F0F0795B 05654 0402 00 0 05367 SUB ASTK CC 7 ASTERISK $F0F0795C 05655 -0100 00 0 05661 TNZ *+4 NO $F0F0795D 05656 0400 00 0 05370 ADD BLNK YES, IBSFAP CONTROL CARD $F0F0795E 05657 -0765 00 0 00006 LGR 6 REPLACE ASTERISK WITH BLANK FOR $F0F0795F BINARY CARD NO. 9F060045 05660 -0600 60 1 05626 STQ* BFZ0,1 DICTIONARY SEARCH $F0F0795G 05661 0560 00 0 05731 LDQ TEMP2 RESTORE CCS 2'6 $F0F0795H 05662 0100 00 0 04011 TZE DSRCH IF IBSFAP CONTROL CARD AC=0 $F0F0795I 05663 0600 00 0 05732 STZ IBSAV ZERO OUT PRINT OUT SAVE AREA $F0F0795J 05664 0020 00 0 04220 TRA SP+2 RETURN TO SCAN FOR END CARD $F0F0795K 05665 0441 60 0 73660 IBFAP2 LDI* (FGBX) IS THIS IBSFAP $F0F0795L 05666 0056 00 000004 RNT 4 $F0F0795M 05667 0020 00 0 05706 TRA RETRN NO, FORTRAN RETURN $F0F0795N 05670 0020 00 0 05675 TRA *+5 $F0F0795O 05671 0 00000 0 00000 PZE NOT $F0F0795P 05672 0 00000 0 00000 PZE EXECUTED $F0F0795Q 05673 0074 00 4 05340 BKIN2 TSX BKIN,4 $F0F0795R 05674 0020 00 0 04611 TRA EF2 $F0F0795S 05675 -0520 00 0 05732 NZT IBSAV HAS A COL 7 *CARD BEEN SAVED $F0F0795T 05676 0020 00 0 05706 TRA RETRN NO $F0F0795U 05677 0634 00 2 05705 SXA SAV2,2 YES, RESTORE IT TO BUFFER $F0F0795V 05700 0774 00 2 00015 AXT 13,2 $F0F0795W 05701 -0534 00 1 05437 LXD BFSWCH,1 FOR 2ND WORD OF CARD IMAGE $F0F0795X 05702 0500 00 0 05732 CLA IBSAV RESTORE SECOND WORD TO BUFFER $F0F0795Y 05703 0601 60 1 05626 STO* BFZ0,1 $F0F0795Z 05704 0600 00 0 05732 STZ IBSAV ZERO OUT SAVE AREA $F0F07960 05705 0774 00 2 00000 SAV2 AXT **,2 $F0F07961 BINARY CARD NO. 9F060046 05706 -0535 00 1 05437 RETRN LDC BFSWCH,1 $F0F07962 05707 0020 00 0 04072 TRA DS14+1 RETURN TO WRITE OUT BUFFER $F0F07963 32K 709/7090 FORTRAN MONITOR SCAN 2/07/05 PAGE 19 05710 -0534 00 1 05437 IBFAP3 LXD BFSWCH,1 FOR FORTRAN TO MOVE FIRST SOURCE CARD $F0F07964 05711 0441 60 0 73660 LDI* (FGBX) IF IBSFAP TITLE IS ALREADY IN BUFFER $F0F07965 05712 0054 00 000004 RFT 4 $F0F07966 05713 0020 00 0 04665 TRA NLINS+7 IBSFAP $F0F07967 05714 0020 00 0 04660 TRA NLINS+2 FORTRAN MOVE CARD TO BUFFER $F0F07968 05715 0441 60 0 73660 IBFAP4 LDI* (FGBX) HERE FROM READ ERROR REDUNDANCY $F0F07969 05716 0056 00 000004 RNT 4 CHECK FOR IBSFAP $F0F0796A 05717 0020 00 0 05333 TRA NCB FORTRAN $F0F0796B 05720 0074 00 4 73606 TSX (TAPE),4 IBSFAP, IGNORE ERROR $F0F0796C 05721 0 20010 0 05734 PZE SK1RC,,(SKBC) SKIP OVER RECORD IN ERROR $F0F0796D 05722 0 00005 0 00000 PZE ,,MINTAP $F0F0796E 05723 0020 00 0 03757 TRA R1 TRY READING AGAIN $F0F0796P 05724 0441 60 0 73660 IBFAP5 LDI* (FGBX) HERE TO CHECK FOR IBSFAP EOF $F0F0796Q 05725 0056 00 000004 RNT 4 $F0F0796R 05726 0020 00 0 04606 TRA EF FORTRAN $F0F0796S 05727 0774 00 0 00000 AXT ,0 $F0F0796T 05730 0020 00 0 03757 TRA R1 START READING FROM BEGINNING $F0F0796U 05731 0 00000 0 00000 TEMP2 PZE 0 $F0F0796V 05732 0 00000 0 00000 IBSAV PZE 0 $F0F0796W 05733 0 00000 0 00000 PZE AVAILABLE CONSTANT $F0F0796X BINARY CARD NO. 9F060047 05734 0 00000 0 00001 SK1RC PZE 1 $F0F0796Y 05735 ADD BSS 22 ADD CONTROL ROUTINES HERE $F0F07970 BINARY CARD NO. 9F060048 05763 -0534 00 4 05437 PATCH1 LXD BFSWCH,4 TEST FOR $F0F07971 05764 0774 00 2 00016 AXT 14,2 A BLANK CARD $F0F07972 05765 0500 60 4 05626 CLA* BFZ0,4 $F0F07973 05766 0402 00 0 05522 SUB BLNKS $F0F07974 05767 -0100 00 0 05772 TNZ *+3 $F0F07975 05770 -3 00003 2 03765 TXL READ,2,3 YES, A BLANK CARD GO READ NEXT CARD $F0F07976 05771 1 77777 2 05765 TXI PATCH1+2,2,-1 $F0F07977 05772 -0535 00 1 05437 LDC BFSWCH,1 NOT A BLANK CARD $F0F07978 05773 0020 00 0 05202 TRA WTDBG+1 RETURN TO WRITE OUT CARD $F0F07979 05774 0074 00 4 05274 CONTN TSX NNBL,4 IS THIS A REAL END CARD $F0F07980 05775 0020 00 0 06001 TRA RETN YES (NO EQUAL SIGN FOLLOWS) $F0F07981 05776 0402 00 0 06007 SUB EQUAL NO, IS THIS A = $F0F07982 05777 0100 00 0 06003 TZE CLWSP YES, CLEAR PSW BUFFER $F0F07983 06000 0020 00 0 05774 TRA CONTN NO, CONTINUE FIELD SCAN $F0F07984 06001 0500 00 0 05436 RETN CLA CDS FORM END CARD FOR FORTRAN $F0F07985 06002 0020 00 0 04312 TRA PTCHR+1 $F0F07986 06003 0600 00 1 05457 CLWSP STZ PSW1+15,1 CLEAR PSW BUFFER $F0F07987 06004 1 00001 1 06005 TXI *+1,1,1 IS BUFFER CLEARED $F0F07988 06005 -3 00017 1 06003 TXL CLWSP,1,15 NO $F0F07989 06006 0020 00 0 04631 TRA WSP YES $F0F0798A 06007 000000000013 EQUAL BCI 1,00000= $F0F0798B 06010 -0056 00 000001 IBPAT1 LNT 1 IS NOGO BIT IN SYSJOB SET $F0F0798C BINARY CARD NO. 9F060049 06011 0020 00 0 06047 TRA IBPAT3 NO,CHECK FURTHER $F0F0798D 06012 0020 00 0 06176 TRA READM YES,DISALLOW EXECUTION $F0F0798E 06013 0621 00 0 03731 IBPAT2 STA LINECT SAVE LINE COUNT $F0F0798F 06014 0441 60 0 73660 LDI* (FGBX) IS THIS IBSFAP END CARD $F0F0798G 06015 0056 00 000004 RNT 4 I.E. IBSFAP WITH NO FAP CARD $F0F0798H 06016 0020 00 0 04377 TRA DD+1 NO FORTRAN $F0F0798I 32K 709/7090 FORTRAN MONITOR SCAN 2/07/05 PAGE 20 06017 -0535 00 1 05437 LDC BFSWCH,1 YES $F0F0798J 06020 0074 00 4 73606 TSX (TAPE),4 WRITE END CARD WITHOUT PARAMETERS $F0F0798K 06021 0 40013 1 05621 PZE CWP0,1,(WDNC) $F0F0798L 06022 0 00006 0 00000 PZE ,,MLSTAP $F0F0798M 06023 0500 00 0 06032 CLA IBMGE PRINT *FAP CARD NOT FOUND $F0F0798N 06024 0074 00 4 05351 TSX COMNT,4 ASSEMBLY DELETED $F0F0798O 06025 -0625 00 0 03734 STL BEGIN FOR NEW JOB $F0F0798P 06026 0074 00 4 05340 TSX BKIN,4 BACKSPACE OVER LOOKAHEAD $F0F0798Q 06027 0500 00 0 06046 CLA RESTR RESTORE ERROR RETURN $F0F0798R 06030 0601 00 0 04541 STO TPCHK KILLED IN BACKSPACE ROUTINE $F0F0798S 06031 0020 00 0 03735 TRA BEGIN+1 GO TO NEXT JOB $F0F07990 06032 3 00013 0 06033 IBMGE IORT IBERR,,11 $F0F07991 06033 006060606060 IBERR BCI 8,0 *FAP CARD NOT FOUND FOR IBSFAP JOB $F0F07992 BINARY CARD NO. 9F060050 06043 216262254422 BCI 3,ASSEMBLY DELETED $F0F07993 06046 0441 00 0 73677 RESTR LDI (SCHU)+MINTAP $F0F07994 06047 0441 60 0 73660 IBPAT3 LDI* (FGBX) STILL WONDERING IF EXECUTION $F0F07995 06050 0056 00 000004 RNT 4 IS LEGAL. IS THIS IBSFAP MODE $F0F07996 06051 -0602 60 0 73660 ORS* (FGBX) NO,PERMIT EXECUTION $F0F07997 06052 0020 00 0 03765 TRA READ READ NEXT CARD $F0F07998 06053 0 00000 0 00000 PZE NOT EXECUTED $F0F07999 06054 ORGBUF EQU * F0F08000 06054 PBUF0 BSS 1 F0F08010 06055 BUF0 BSS 14 F0F08020 06073 BUFZ0 BSS 1 F0F08030 06074 PBUF1 BSS 1 F0F08040 06075 BUF1 BSS 14 F0F08050 06113 BUFZ1 BSS 1 F0F08060 06114 BBUF0 BSS 25 F0F08070 06145 BBUF1 BSS 25 F0F08080 * F0F08090 PATCHES $F0F08100 BINARY CARD NO. 9F060051 06176 0500 00 0 06201 READM CLA IBDEL EXPLAIN WHY EXECUTION WAS $F0F08110 06177 0074 00 4 05351 TSX COMNT,4 NOT PERMITTED $F0F08120 06200 0020 00 0 03765 TRA READ READ NEXT CARD $F0F08130 06201 3 00012 0 06202 IBDEL IORT *+1,,10 $F0F08140 06202 003122627062 BCI 6,0IBSYS NOGO CONDITION FORBIDS EXECUT $F0F08150 06210 314645336060 BCI 4,ION. REQUEST IGNORED. $F0F08160 06214 0074 00 4 05274 CLCHFX TSX NNBL,4 IF FIRST CHARACTER OF T IS (34)F0F08170 06215 0020 00 0 04631 TRA WSP AN A OR B IT WILL BE DELETED (34)F0F08180 06216 0402 00 0 05426 SUB OCTB (34)F0F08190 06217 0020 00 0 04237 TRA SP03-4 (34)F0F08200 06360 BES 96 PATCH AREA (34)F0F08210 77777 END -1 F0F09000 BINARY CARD NO. TRA77777 32K 709/7090 FORTRAN MONITOR SCAN 2/07/05 PAGE 1 POST PROCESSOR ASSEMBLY DATA 73667 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM REFERENCES TO DEFINED SYMBOLS 5432 E 4264 4376 DD 6016 4606 EF 4606, 5726 3757 R1 4576, 5723, 5730 4216 SP 4010, 4766, 5645, 5664 4146 TV 4074, 4462, 4472 5735 ADD 4600 BEF 4415 5206 BIN 4157 5436 CDS 5105, 6001 4765 CHN 4150 5617 CW0 3760, 4507, 4636, 5203 5620 CW1 3772, 4452 4015 DS1 4022 4024 DS2 4021 4013 DS3 4023 4034 DS4 4032 4055 DS5 4052 4041 DS6 4064 4061 DS7 4055 4017 DS9 4054 4623 EF1 4416, 4610 4611 EF2 4611, 5674 4336 END 4274 5250 FAP 4156 5631 IOP 4171 5435 LBS 5121 5333 NCB 5717 5102 ONE 4240, 5103 4347 RBR 4342 5153 ROW 4166 4274 SP1 4267 4276 SP2 4273, 4305 4307 SP3 4303 4322 SP4 4333 4332 SP5 4322, 4326 5101 TEN 4751, 5103 4631 WSP 4226, 4233, 4241, 4260, 4261, 4265, 4272, 4275, 4277, 4302, 4310, 4370, 4633, 4731, 4761, 5643, 6006 6215 4762 XEQ 4147 5367 ASTK 4007, 4434, 5654 5624 BFA0 4004, 4431, 4436 5623 BFA1 5626 BFZ0 4000, 4003, 4255, 4257, 4661, 5305, 5650, 5660, 5703, 5765 5625 BFZ1 5340 BKIN 4515, 4621, 4623, 5044, 5206, 5214, 5262, 5640, 5673, 6026 5370 BLNK 4711, 5310, 5320, 5656 5430 BMSK 4245 6055 BUF0 5617, 5624 6075 BUF1 5620, 5623 4552 CBIN 4546 32K 709/7090 FORTRAN MONITOR SCAN 2/07/05 PAGE 2 POST PROCESSOR ASSEMBLY DATA 4576 CHKB 4420 5003 CHN1 4773 5014 CHN2 5025 5027 CHN3 5021, 5032 5035 CHN4 5036 CHN5 5041 5054 CHN6 5040 5055 CHN7 5067 5070 CHN8 5062 5414 CLCH 4230, 4262 5627 CWB0 4555, 4603 5630 CWB1 4574 5621 CWP0 4072, 4643, 6021 5622 CWP1 4606 DATA 4151, 4463, 4606, 5176 5543 DATE 4714, 4721, 4724, 4725 4075 DERS 4034, 4050, 4053, 4063, 4066 4076 DICT 4014, 4027, 4057 4065 DS10 4043, 4046 4047 DS11 4041, 4065 4022 DS12 4020, 4070 4071 DS14 4033, 4457, 5707 5214 EDIT 4170 5457 ESW1 4312, 4324, 5107, 5127, 5141, 5145, 5151, 5155, 5170 5460 ESW2 5117 5461 ESW3 5462 ESW4 5110 5463 ESW5 5123 5251 GTES 5257 5100 HUND 4746, 5103 5121 LIBE 4155 5115 LIST 4154, 5146 4527 LOAD 4525, 4614, 4624, 5052, 5212, 5222, 5272 4421 NEXT 4455 5274 NNBL 4042, 4225, 4266, 4276, 4301, 4445, 5010, 5015, 5027, 5774, 6214 5426 OCTB 6216 5166 PACK 4167 5546 PAGE 4753, 4754, 4760 5440 PSW1 4300, 4314, 4323, 6003 5441 PSW2 5442 PSW3 5443 PSW4 5444 PSW5 4626 QQQQ 4543 3765 READ 4172, 4337, 4651, 4771, 5075, 5111, 5120, 5124, 5130, 5136, 5142, 5152, 5160, 5165, 5171, 5205, 5633 5770, 6052, 6200 6001 RETN 5775 5705 SAV2 5677 4225 SP01 4232 4243 SP03 4253, 6217 4252 SP04 4247 4261 SP05 4231 4264 SP06 4270 4320 SP3A 4335 5374 SVNS 4017, 4031, 4067 32K 709/7090 FORTRAN MONITOR SCAN 2/07/05 PAGE 3 POST PROCESSOR ASSEMBLY DATA 4010 SWIT 4767, 5200 5103 TEMP 5013, 5014, 5023, 5035, 5055, 5064 4515 TOFN 4412, 4447, 4475 4652 WSP1 4641 5412 XBIT 4762 5407 ZERO 4744 4220 (6)A 4035 5375 2CHAR 4001 5427 4BLNK 4002 6114 BBUF0 5627 6145 BBUF1 5630 3734 BEGIN 73666, 4336, 4640, 4652, 4655, 4670, 4677, 6025, 6031 5634 BIT21 5631 5673 BKIN2 5641 5346 BKINR 4620, 5340, 5350 5517 BLNCW 4736 5522 BLNKS 3745, 4437, 4561, 4704, 4723, 4755, 5517, 5766 5403 BS3CW 5264 5404 BS4CW 4612 5402 BSRCW 5344 6073 BUFZ0 3747, 3750, 4563, 5626 6113 BUFZ1 3752, 3753, 4564, 5625 4616 CBIN1 4553 4701 CDATE 4674 5112 CDCOL 4153 5105 CDROW 4152, 5114 5042 CHER1 5011, 5016, 5026, 5030 4560 CHKEF 4414 5076 CHN15 5057, 5103 5010 CHN1A 5002 6003 CLWSP 5777, 6005 5554 COMBA 5267 5550 COMBC 4522, 5554 5560 COMCH 5042 5364 COMCW 5352, 5354, 5362 5610 COMLB 4402 5373 COMMA 4234, 4304, 4306, 5017 5565 COMNC 5333 5365 COMNR 5351 5351 COMNT 4073, 4404, 5043, 5164, 5334, 6024, 6177 5577 COMRX 5163 5774 CONTN 4311, 6000 5172 DEBUG 4162, 4473 4461 DSEND 4456 4011 DSRCH 4460, 5662 5520 EJECT 3755 5501 ENDCD 4315, 4321, 4334, 4340, 4343, 4344, 4347, 4353, 5106, 5113, 5116, 5122, 5126, 5140, 5144, 5150, 5154 5167, 5251, 5476 5476 ENDCW 4356, 4400 4355 ENDWT 4346, 4351 6007 EQUAL 5776 5253 GTES1 5256 5525 HEDCW 4406, 4733 6201 IBDEL 6176 6033 IBERR 6032 32K 709/7090 FORTRAN MONITOR SCAN 2/07/05 PAGE 4 POST PROCESSOR ASSEMBLY DATA 6032 IBMGE 6023 5732 IBSAV 5652, 5663, 5675, 5702, 5704 5335 INERR 4627 5350 KILER 5341 5137 LABEL 4161 5405 LBLCW 5073 5143 LIST8 4164 5371 LPREN 4044, 4271 5177 MVDBG 4723 NDATE 4703, 4705 4656 NLINS 3744, 4373, 4700, 4727, 5713, 5714 5300 NNBL1 4036, 4222, 4243, 4443, 5321 5301 NNBL2 4040, 4223, 4244, 4444, 5322 5305 NNBL3 5306 NNBL4 5304 5320 NNBL5 5314 5323 NNBL6 5274, 5316 5324 NNBL7 5275, 5317 5325 NNBL8 5276 4447 NOTCC 4440, 4504 4472 NOTDA 4465 4654 NUPAG 4371, 4632 4456 NXTCC 4435 4466 NXTDA 4502 4512 NXTEF 4413, 4424 5147 ONLPR 4165 5131 PAUSE 4163 6054 PBUF0 3746, 5621 6074 PBUF1 3751, 5622 4311 PTCHR 6002 4354 RBLIB 4403 4567 RDBIN 4547, 4605 4450 RDNXT 4417, 4446, 4511 6176 READM 6012 6046 RESTR 6027 5706 RETRN 5667, 5676 5401 REWND 3740, 4364, 5004 4540 RNAME 4530 5372 RPREN 4307 5734 SK1RC 4216, 5721 5377 SK4CW 5046 5400 SK5CW 5210 5376 SKFCW 4517, 5217, 5377 5550 SPACE 4524, 5133, 5271, 5554 5331 TEMP1 5054, 5061, 5063, 5277, 5327 5731 TEMP2 5646, 5661 5104 TEMPA 5033, 5071, 5405 5332 TEMPQ 5303, 5326 5527 TITLE 4662, 4671, 4676 4516 TOFNA 4471 4541 TPCHK 3762, 3774, 4454, 4531, 4532, 5342, 6030 4645 WSPCK 4653 4602 WTBIN 4550 5201 WTDBG 5177, 5773 4761 WTHDR 4367 32K 709/7090 FORTRAN MONITOR SCAN 2/07/05 PAGE 5 POST PROCESSOR ASSEMBLY DATA 4726 WTHED 4656, 4722 4221 (13)A 4037 5410 1 OCT 5112, 5137, 5166 5437 BFSWCH 3764, 3766, 3770, 4254, 4426, 4430, 4450, 4505, 4566, 4570, 4572, 4601, 4634, 5302, 5701, 5706, 5710 5763, 5772, 6017 73600 BOTIOP 3734 BOTTOM 3734 10 CHNTAP 73667, 4510, 4604, 4776, 5005, 5074, 5204 6214 CLCHFX 4236 5413 CMNSAK 5642 3732 DATEBX 5406 FINPUT 4357, 4637 2 FINTAP 3741, 4357, 4362, 4365, 4637, 4646 3730 FLAGBX 5635 IBFAP1 4217 5665 IBFAP2 4071 5710 IBFAP3 4657 5715 IBFAP4 4630 5724 IBFAP5 3776, 4560, 4600 6010 IBPAT1 4764 6013 IBPAT2 4376 6047 IBPAT3 6011 134 .CHEXI 135 .MODSW 1 LIBTAP 3731 LINECT 4375, 4654, 4666, 4701, 4726, 4740, 4742, 5356, 5360, 6013 7 MBNTAP 5001 10 MCHTAP 5 MINTAP 3761, 3775, 4422, 4423, 4453, 4541, 4556, 4557, 4575, 4577, 5337, 5345, 5722, 6046 6 MLSTAP 3756, 4401, 4407, 4644, 4650, 4734, 4737, 5355, 6022 5304 NNBL2A 5315 5411 OCTTHD 5115, 5143 5376 ONEIND 5125, 5147, 5153, 5377 6054 ORGBUF 6054 3734 ORGSCN 5763 PATCH1 5201, 5771 4554 RDBIN1 4551 3 SINTAP 11 SNPTAP 5125 SYMTAB 4160 122 SYSACC 114 SYSCEM 155 SYSCK1 156 SYSCK2 120 SYSCOR 144 SYSCRD 102 SYSCUR 102 124 SYSCYD 101 SYSDAT 115 SYSDMP 77777 SYSEND 132 SYSGET 117 SYSIDR 151 SYSIN1 152 SYSIN2 32K 709/7090 FORTRAN MONITOR SCAN 2/07/05 PAGE 6 POST PROCESSOR ASSEMBLY DATA 116 SYSIOX 133 SYSJOB 4763 104 SYSKEY 140 SYSLB1 141 SYSLB2 142 SYSLB3 143 SYSLB4 121 SYSLDR 3720 SYSORG 147 SYSOU1 150 SYSOU2 146 SYSPCH 123 SYSPID 106 SYSPOS 153 SYSPP1 154 SYSPP2 145 SYSPRT 103 SYSRET 113 SYSRPT 126 SYSSLD 105 SYSSWS 1 SYSTAP 4520, 4613, 5047, 5211, 5220, 5265 127 SYSTCH 100 SYSTRA 131 SYSTWT 111 SYSUAV 110 SYSUBC 112 SYSUCW 107 SYSUNI 157 SYSUT1 160 SYSUT2 161 SYSUT3 162 SYSUT4 4 TINTAP 77677 TOPMEM 702 (ACTIV 703 (ACTVX 720 (BCD5R 721 (BCD5X 10000 (CHKU) 4422, 4535, 4646, 4650 741 (CHPSW 724 (CHXAC 750 (CHXSP 717 (CKWAT 746 (COMMD 736 (COMMM 722 (CVPRT 73662 (DATE) 4702, 4706 716 (DECVA 715 (DECVD 73645 (DGLD) 73603 (DIAG) 710 (ENBSW 73665 (ENDS) 5261 732 (ETTXI 32K 709/7090 FORTRAN MONITOR SCAN 2/07/05 PAGE 7 POST PROCESSOR ASSEMBLY DATA 743 (FDAMT 73660 (FGBX) 4410, 4466, 4470, 4476, 4500, 4512, 4514, 4544, 4606, 4617, 4765, 5007, 5156, 5162, 5172, 5174, 5632 5635, 5665, 5711, 5715, 5724, 6014, 6047, 6051 747 (IBCDZ 740 (IOXSI 73667 (LBLD) 73652 (LIBT) 73661 (LNCT) 73600 (LOAD) 4537 73666 (LODR) 73666 737 (LTPOS 73644 (MECL) 73664 (MSLN) 3736 704 (NDATA 705 (NDSLX 712 (PAUSE 711 (PAWSX 3733 (PCBK) 73651 (PGCT) 3742 73614 (PNCH) 73611 (PRNT) 4521, 4523, 5132, 5266, 5270, 5363 706 (PROUT 707 (PUNCH 40014 (RBEC) 4555 40004 (RBEP) 4574 40010 (RBNC) 40000 (RBNP) 727 (RCHXI 726 (RCTXI 40016 (RDEC) 40006 (RDEP) 3760, 3772, 4452 40012 (RDNC) 40002 (RDNP) 73622 (REST) 73672 (SCHU) 3775, 4423, 4541, 4557, 4577, 6046 744 (SDCXI 73643 (SECL) 20010 (SKBC) 5721 20000 (SKBP) 4364, 4517, 4612, 5004, 5046, 5210, 5217, 5264 20012 (SKDC) 20002 (SKDP) 3740, 5344 1000 (SNAP) 73663 (SNCT) 73617 (STAT) 745 (STCXI 73626 (STDN) 723 (STOPD 713 (STOPX 10003 (SUAV) 10002 (SUNV) 714 (SYMUN 73606 (TAPE) 3737, 3754, 3757, 3771, 4355, 4360, 4363, 4377, 4405, 4421, 4451, 4506, 4516, 4534, 4554, 4573, 4602 4611, 4635, 4642, 4645, 4647, 4732, 4735, 4774, 4777, 5003, 5045, 5072, 5202, 5207, 5216, 5263, 5335 5343, 5353, 5720, 6020 730 (TCOXI 32K 709/7090 FORTRAN MONITOR SCAN 2/07/05 PAGE 8 POST PROCESSOR ASSEMBLY DATA 733 (TEFXI 4000 (TPER) 5336 735 (TRAPS 734 (TRAPX 731 (TRCXI 742 (TRPSW 725 (URRXI 40011 (WBNC) 4603, 5073 40001 (WBNP) 4356, 4636 40013 (WDNC) 4507, 5203, 5354, 6021 40003 (WDNP) 3755, 4400, 4406, 4643, 4733, 4736 40015 (WEFC) 5000 40005 (WEFP) 4361, 4775 40031 (WROW) NO ERROR IN ABOVE ASSEMBLY. * 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH F0G00000 * FAP F0G00020 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 1 RECORD 7 OR 32 DEBUG SST FORTRAN $F0G00060 ABS $F0G00070 00000 WHICH EQU 0 7,8,9 ASSEMBLY $F0G00099 00102 ORG SYSCUR $F0G00100 BINARY CARD NO. 9F070000 00102 112600070000 BCI 1,9F0700 $F0G00116 73666 ORG (LODR) $F0G00120 BINARY CARD NO. 9F070001 73666 1 00106 0 60640 TXI ENTER,,70 ENTRY POINT,,RECORD NO. $F0G00136 00010 CHNTAP SYN 8 $F0G00150 * F0G00160 * USING THE SOURCE LANGUAGE DEBUGGING ROUTINE FOR F0G00170 * FORTRAN. F0G00180 * F0G00190 * F0G00200 * ANY CARD WHICH CONTAINS NON NUMERIC CHARACTERS IN F0G00210 * COLUMNS 2 - 5 WILL BE IGNORED. F0G00220 * F0G00230 * ANY CARD WHICH CONTAINS A N0N NUMERIC CHARACTER F0G00240 * OTHER THAN AN X IN COLUMN 6 WILL BE IGNORED. F0G00250 * F0G00260 * ANY CARD WITH COLUMNS 1 - 6 BLANK WILL BE IGNORED. F0G00270 * F0G00280 * A CARD WITH AN X OR A DIGIT IN COLUMN 6 AND COLUMNS F0G00290 * 1 - 5 BLANK IS TREATED AS A CONTINUATION CARD. F0G00300 * F0G00310 * A CARD WITH COLUMNS 1 AND 6 BLANK AND WITH AN EX- F0G00320 * TERNAL FORMULA NUMBER IN COLUMNS 1 - 5 IS TREATED AS F0G00330 * THE START OF A NEW DEBUG STATEMENT. F0G00340 * F0G00350 * A CARD WITH AN N IN COLUMN 1 IS TREATED AS A SUB- F0G00360 * PROGRAM NAME CARD. NO TEST IS MADE TO SEE IF COLUMNS F0G00370 * 2 - 6 CONTAIN BLANKS. F0G00380 * F0G00390 * PROVISIONS MADE FOR REFERENCES TO 20 SUB PROGRAMS. F0G00400 * 200 W0RDS OF TEXT IS ALLOWED FOR EACH SUBPROGRAM. F0G00410 * F0G00420 * IF AN ERROR IS FOUND ON A SUBPROGRAM NAME CD. THE F0G00430 * ROUTINE SEARCHES FOR THE NEXT SUBPROGRAM NAME CD. IG- F0G00440 * NORING ANY INTERVENING DEBUG CDS. F0G00450 * F0G00460 * F0G00470 * F0G00480 * F0G00490 * F0G00500 * STORAGE PARAMETERS F0G00510 00024 NTW EQU 20 NO. OF DIFF. S. P. TO BE DEBUGGEDF0G00520 00310 NTHUN EQU 200 NO. OF WDS PER INTERMEDIATE SP. F0G00530 * TABLES F0G00540 00765 NDTBLS EQU 501 NO. OF CELLS PROVIDED FOR DTBLS. F0G00550 * LOGICAL TAPE PARAMETERS F0G00560 00005 NPUTA EQU 5 NON CHAIN MODE INPUT TAPE. F0G00570 00010 INPT EQU 8 CHAIN MODE INPUT TAPE F0G00580 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 2 RECORD 7 OR 32 DEBUG 00006 OUTPT EQU 6 PRINTED OUTPUT TAPE F0G00590 03734 ORG BOTTOM F0G00610 03734 TEXT BSS NTW*NTHUN STORAGE FOR DEBUG STATEMENTS. F0G00620 60640 ORG BOTIOP-5600 $F0G00630 BINARY CARD NO. 9F070002 60640 0760 00 0 00140 ENTER SLF F0G00640 60641 0774 00 1 00062 AXT 50,1 ZERO OUT SWTBLE BUFFER IN $F0G00642 60642 0600 00 1 66101 STZ SWTBLE+50,1 MEMORY TO AVOID POSSIBLE LATER COMPLICATIO$F0G00645 60643 2 00001 1 60642 TIX *-1,1,1 SINCE EDITOR DOESNT ZERO BUFFER ANY MORE. $F0G00648 60644 0774 00 1 00002 AXT 2,1 SIGNAL IOPACKAGE TO TURN ON S L 2F0G00650 60645 0634 00 1 73664 SXA (MSLN),1 IF GOING TO MACHINE ERROR RECRDF0G00660 60646 0441 60 0 73660 LDI* (FGBX) $F0G00670 60647 -0054 00 000001 LFT 1 F0G00680 60650 0020 00 0 60715 TRA RDLBL MUST BE CHAIN JOB AND NOT 1ST LNKF0G00690 60651 0600 00 0 73576 STZ 1STCHN F0G00700 60652 0774 00 1 00002 AXT 2,1 SINGLE JOB OR 1ST CHAIN LINK F0G00710 60653 0774 00 2 00002 AXT 2,2 SET TO BACKSPACE 2 FILES ON B4. F0G00720 60654 0074 00 4 73606 WTNDM TSX (TAPE),4 F0G00730 60655 0 40005 0 00000 PZE ,,(WEFP) F0G00740 60656 0 77777 1 61006 PZE TP7R8+2,1,-1 INDIRECT REFERENCE TAPE 7 OR 8. F0G00750 60657 0074 00 4 73606 TSX (TAPE),4 WRITE END SIGNAL F0G00760 60660 0 40001 0 61013 PZE NDCW,,(WBNP) F0G00770 60661 0 77777 1 61006 PZE TP7R8+2,1,-1 F0G00780 60662 0074 00 4 73606 TSX (TAPE),4 BACKSPACE FILE F0G00790 60663 0 20000 0 61007 PZE BSFCWF,,(SKBP) F0G00800 60664 0 77777 1 61006 PZE TP7R8+2,1,-1 F0G00810 60665 2 00001 2 60662 TIX *-3,2,1 F0G00820 BINARY CARD NO. 9F070003 60666 0441 60 0 73660 LDI* (FGBX) $F0G00830 60667 -0054 00 000002 LFT 2 IS THIS A CHAIN JOB. F0G00840 60670 0020 00 0 60675 TRA ENTCH YES F0G00850 60671 0054 00 400000 RFT 400000 IS THERE DEBUG F0G00860 60672 0020 00 0 61020 TRA ZEOUT YES GO PROCESS STATEMENTS. F0G00870 60673 0600 00 0 70730 STZ DTBLS-1 TELL BSS NO DEBUG. F0G00880 60674 0020 00 0 63004 TRA ENTWH F0G00890 60675 2 00001 1 60654 ENTCH TIX WTNDM,1,1 END SIGNAL AND BACKSPACE B1 F0G00900 60676 0774 00 2 00000 AXT 0,2 F0G00910 60677 0074 00 4 73606 TSX (TAPE),4 BACKSPACE AND COUNT FILES TO F0G00920 60700 0 20010 0 61007 PZE BSFCWF,,(SKBC) BEGINNING OF B1. F0G00930 60701 0 00010 0 00000 PZE ,,CHNTAP $F0G00940 60702 0441 00 0 73672 LDI (SCHU) F0G00950 60703 0056 00 000001 RNT 1 DID THIS HIT BEGINNING OF TAPE. F0G00960 60704 1 00001 2 60677 TXI *-5,2,1 NO F0G00970 60705 -3 00000 2 60712 TXL *+5,2,0 YES F0G00980 60706 0074 00 4 73606 TSX (TAPE),4 BACKSPACE B4 TO 1ST LINK F0G00990 60707 0 20000 0 61007 PZE BSFCWF,,(SKBP) F0G01000 60710 0 00007 0 00000 PZE ,,MBNTAP $F0G01010 60711 2 00001 2 60706 TIX *-3,2,1 F0G01020 60712 0074 00 4 73606 TSX (TAPE),4 GET OVER FILE MARK ON B4. F0G01030 60713 0 20000 0 61010 PZE SKPCWF,,(SKBP) F0G01040 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 3 RECORD 7 OR 32 DEBUG BINARY CARD NO. 9F070004 60714 0 00007 0 00000 PZE ,,MBNTAP $F0G01050 60715 0074 00 4 73606 RDLBL TSX (TAPE),4 READ THE CHAIN LABEL. F0G01060 60716 0 40010 0 61012 PZE LBLCWF,,(RBNC) F0G01070 60717 0 00010 0 00000 PZE ,,CHNTAP $F0G01080 60720 0 00000 0 60753 PZE LBLER F0G01090 60721 0500 00 0 73577 CLA CURCHN F0G01130 60722 0340 00 0 61014 CAS ALL7S ARE THERE ANY MORE LINKS. F0G01140 60723 0020 00 0 60725 TRA *+2 F0G01150 60724 0020 00 0 60745 TRA ZSCHN TO CAUSE ZEROING FIRST LINK STORAGE $F0G01160 60725 -0520 00 0 73576 NZT 1STCHN IS THIS THE FIRST LINK. F0G01170 60726 0601 00 0 73576 STO 1STCHN YES F0G01180 60727 0074 00 4 62106 START TSX RDTPE,4 LOOK FOR DEBUG PACK. F0G01190 60730 0074 00 4 62011 TSX NOBLK,4 F0G01200 60731 -0500 00 0 62522 CAL BCD 1ST BCD RECORD SHOULD CONTAIN * F0G01210 60732 0322 00 0 62456 ERA STAR F0G01220 60733 0100 00 0 60735 TZE *+2 F0G01230 60734 0074 00 4 73644 TSX (MECL),4 IF NOT GO TO MACH. ERROR REC.(22)F0G01240 60735 -0500 00 0 62540 CAL BCDA LOOK FOR * DEBUG. F0G01250 60736 0322 00 0 62455 ERA DEBUG F0G01260 60737 0100 00 0 61016 TZE ZEOUT-2 SET 4 BIT IN TAG ON F0G01270 60740 -0500 00 0 62540 CAL BCDA F0G01280 60741 0322 00 0 62454 ERA DATA F0G01290 BINARY CARD NO. 9F070005 60742 0100 00 0 60755 TZE MOD1 F0G01300 60743 0020 00 0 62722 TRA TLOUT ILLEGAL CONTROL CARD (22)F0G01310 60744 0074 00 4 73644 HOPE TSX (MECL),4 DITTO F0G01320 INITIALIZE TO CLEAR STORAGE $F0G01321 AFTER LOADING THE FIRST CHAIN LINK $F0G01322 60745 0534 00 1 72636 ZSCHN LXA PROG-4,1 FROM THE PROGRAM BREAK $F0G01323 60746 -0634 00 1 72636 SXD PROG-4,1 TO THE TOP OF COMMON $F0G01324 60747 0500 00 0 60752 CLA ZPCBK (DEPENDING ON * IOP) $F0G01325 60750 0601 00 0 72635 STO PROG-5 RATHER THAN FROM THE $F0G01326 60751 0020 00 0 72717 TRA GOCHN BOTTOM OF THE LOADING TABLES $F0G01327 60752 -0535 00 1 03733 ZPCBK LDC PRCBRK,1 INSTRUCTION TO DO THIS $F0G01328 60753 0074 00 4 60760 LBLER TSX FIXB4F,4 F0G01330 60754 0074 00 4 73644 TSX (MECL),4 EXIT TO MACHINE ERROR REC. F0G01340 60755 -0500 00 0 62457 MOD1 CAL 7BIT FOUND DATA CONTROL CARD F0G01350 60756 0320 60 0 73660 ANS* (FGBX) MAKE SURE TWO BIT IN TAG IS OFF. $F0G01360 60757 0020 00 0 61306 TRA ENDPR GO TO SET UP DTBLS IF ANY. F0G01370 60760 0634 00 4 61002 FIXB4F SXA B40K,4 F0G01380 60761 0074 00 4 73606 TSX (TAPE),4 BACKSPACE A RECORD AND SKIP A F0G01390 60762 0 20000 0 61011 PZE BSRCWF,,(SKBP) FILE ON B4. F0G01400 60763 0 00007 0 00000 PZE ,,MBNTAP $F0G01410 60764 0074 00 4 73606 SKPFIF TSX (TAPE),4 F0G01420 60765 0 20000 0 61010 PZE SKPCWF,,(SKBP) F0G01430 60766 0 00007 0 00000 PZE ,,MBNTAP $F0G01440 60767 0074 00 4 73606 RDNDMF TSX (TAPE),4 CHECK IF END MARK. F0G01450 BINARY CARD NO. 9F070006 60770 0 40014 0 61012 PZE LBLCWF,,(RBEC) F0G01460 60771 0 00007 0 00000 PZE ,,MBNTAP $F0G01470 60772 -0520 00 0 73701 NZT (SCHU)+MBNTAP $F0G01480 60773 0020 00 0 60767 TRA RDNDMF EMPTY FILE F0G01490 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 4 RECORD 7 OR 32 DEBUG 60774 0500 00 0 73577 CLA CURCHN F0G01500 60775 0402 00 0 61014 SUB ALL7S F0G01510 60776 -0100 00 0 60764 TNZ SKPFIF IF NO END MARK SKIP ANOTHER FILE.F0G01520 60777 0074 00 4 73606 TSX (TAPE),4 F0G01530 61000 0 20000 0 61011 PZE BSRCWF,,(SKBP) F0G01540 61001 0 00007 0 00000 PZE ,,MBNTAP $F0G01550 61002 0774 00 4 00000 B40K AXT **,4 F0G01560 61003 0020 00 4 00001 TRA 1,4 F0G01570 61004 0 00007 0 00000 TP7R8 PZE ,,7 FOR INDIRECT REFERENCE TO TAPES F0G01580 61005 0 00010 0 00000 PZE ,,8 7 OR 8. F0G01590 61006 602425226427 DBUG BCI 1, DEBUG F0G01600 61007 -0 00001 0 00000 BSFCWF MZE ,,1 BSF CONTROL WD. FOR IO. F0G01610 61010 0 00001 0 00000 SKPCWF PZE ,,1 SKIP FILE CONTROL WD. FOR IO. F0G01620 61011 -0 00000 0 00001 BSRCWF MZE 1 BSR CONTROL WD. F0G01630 61012 3 00001 0 73577 LBLCWF IORT CURCHN,,1 TO READ CURRENT CHAIN LABEL. F0G01640 61013 3 00003 0 61014 NDCW IORT ALL7S,,3 CONTROL WORD FOR WRITING END MARKF0G01650 61014 -3 77777 7 77777 ALL7S SVN -1,7,-1 F0G01660 61015 +000000400000 4BTTG OCT 400000 F0G01670 BINARY CARD NO. 9F070007 61016 -0500 00 0 61015 CAL 4BTTG TURN 4 BIT IN FLGBX ON SAYS F0G01680 61017 -0602 60 0 73660 ORS* (FGBX) THERE IS DEBUG. $F0G01690 61020 0074 00 4 62170 ZEOUT TSX PRGCN,4 EJECT PAGE ON PRINT OUTPUT TAPE. F0G01700 61021 0774 00 1 00024 AXT NTW,1 F0G01710 61022 0500 00 0 62521 CLA BLMSK STORE BLANKS IN TABLE WHERE SUB F0G01720 61023 0601 00 1 62675 STO NAMES+NTW,1 PROGRAM NAMES GET STORED. F0G01730 61024 0600 00 1 62600 STZ PREWD+NTW,1 0 TO ALL PREVIOUS WD. ENTRIES. F0G01740 61025 2 00001 1 61023 TIX *-2,1,1 F0G01750 61026 0774 00 1 07640 AXT NTW*NTHUN,1 ZERO TO ALL TEMPORARY TEXT TABLESF0G01760 61027 0600 00 1 13574 STZ TEXT+NTW*NTHUN,1 F0G01770 61030 2 00001 1 61027 TIX *-1,1,1 F0G01780 61031 0774 00 1 00766 AXT NDTBLS+1,1 ZERO TO DEBUG TABLES WHICH ARE $F0G01790 61032 0600 00 1 71715 STZ DTBLS-1+NDTBLS,1 PASSED TO BSS. F0G01800 61033 2 00001 1 61032 TIX *-1,1,1 F0G01810 61034 0600 00 0 62650 STZ SPCNT ZERO TO SUBPROGRAM COUNT. F0G01820 61035 0074 00 4 62106 OUT TSX RDTPE,4 GET NEXT BCD RECORD. F0G01830 61036 -0500 00 0 62522 PETE CAL BCD TEST TO SEE IF COLS. 1-6 OF BCD F0G01840 61037 -0340 00 0 62521 LAS BLMSK CARD CONTAINED BLANKS. IF YES, F0G01850 61040 0020 00 0 61042 TRA *+2 THEN PRINT - XXXX CARD IGNORED.F0G01860 61041 0020 00 0 61262 TRA OUTPR COLUMNS 1-6 ALL BLANK - F0G01870 61042 0322 00 0 62456 ERA STAR MASK FOR * AND 5 BLANKS IN 1-6. F0G01880 61043 0100 00 0 60730 TZE START+1 IF YES, CONTROL CARD SHOULD BE - F0G01890 BINARY CARD NO. 9F070008 61044 -0500 00 0 62522 CAL BCD * DATA - OR -* DEBUG F0G01900 61045 -0765 00 0 00036 LGR 30 TEST COL. 1 FOR - N -. IF YES, F0G01910 61046 0402 00 0 62462 SUB EN FOUND AN - N - CARD. PROCESS F0G01920 61047 0100 00 0 61220 TZE NEWSP ANY FOLLOWING DEBUG CARDS AS F0G01930 61050 -0500 00 0 62522 ETEST CAL BCD BELONGING TO THIS SUBPROGRAM. F0G01940 61051 -0320 00 0 62472 ANA TAB77 TEST COL. 6 = 0 OR BLANK. F0G01950 61052 0100 00 0 61106 TZE EXFOR IF 0, THEN MIGHT BE EFN. F0G01960 61053 0402 00 0 62463 SUB BL IF BLANK, THEN MIGHT BE EFN. F0G01970 61054 0100 00 0 61106 TZE EXFOR IF NOT 0 OR BLANK, ASSUME CONT-F0G01980 61055 0074 00 4 62011 CONCD TSX NOBLK,4 INUATION CARD AND PROCESS. F0G01990 61056 0767 00 0 00022 ALS 18 PROCESS BLANKS OUT OF COLS 7-72. F0G02000 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 5 RECORD 7 OR 32 DEBUG 61057 0622 00 0 61061 STD *+2 CHARACTER COUNT IN DECR. OF AC. F0G02010 61060 0074 00 4 61443 TSX STORE,4 STORE TEXT OF CONTINUATION CARD. F0G02020 61061 0 00000 0 62540 PZE BCDA,0,** F0G02030 61062 0020 00 0 61265 TRA DELTPR TABLE OVERFLOW RETURN. F0G02040 61063 0020 00 0 61035 TRA OUT GO GET NEXT BCD RECORD. F0G02050 61064 0500 00 2 62554 DELTE CLA PREWD,2 RESET PROCEDURE EMPLOYED WHEN AN F0G02060 61065 0601 00 2 62624 STO LSWRD,2 EFN OVERFLOWS TABLE. RESETS F0G02070 61066 -0754 00 0 00000 PXD 0,0 STORAGE LOC. TO PREVIOUS EFN. F0G02080 61067 0560 60 2 62554 LDQ* PREWD,2 WIPE OUT ANY ANY CHARACTERS IN F0G02090 61070 -0534 00 5 62554 LXD PREWD,5 TABLE WHICH MIGHT BE STORED FORF0G02100 61071 -0763 00 0 00006 LGL 6 EFN WHICH CAUSED OVERFLOW. F0G02110 BINARY CARD NO. 9F070009 61072 2 00001 1 61071 TIX *-1,1,1 F0G02120 61073 0560 00 0 62553 LDQ LCZER THESE CHARACTERS ARE SET TO 0. F0G02130 61074 -0765 00 0 00006 LGR 6 F0G02140 61075 2 00001 4 61074 TIX *-1,4,1 F0G02150 61076 -0600 60 2 62554 STQ* PREWD,2 F0G02160 61077 0074 00 4 62106 SAMUL TSX RDTPE,4 SKIP ANY CONTINUE CARDS FOR THE F0G02170 61100 -0500 00 0 62522 CAL BCD EFN WHICH OVERFLOWED. F0G02180 61101 -0320 00 0 62472 ANA TAB77 F0G02190 61102 0100 00 0 61036 TZE PETE HAVE ENCOUNTERED NEXT EFN OR PRO-F0G02200 61103 0402 00 0 62463 SUB LOWBL GRAM NAME CD. OR * DATA. F0G02210 61104 -0100 00 0 61077 TNZ SAMUL CONTINUE CD. SO SKIP. F0G02220 61105 0020 00 0 61036 TRA PETE BLANK IN COL. 6. SO RETURN TO PROF0G02230 61106 -0520 00 0 62650 EXFOR NZT SPCNT CHECK TO SEE IF SUBPROGRAM NAME F0G02240 61107 0020 00 0 61112 TRA *+3 CARD FOUND YET. IF NO, ERROR. F0G02250 61110 -0500 00 0 62522 CAL BCD PICK UP COLS 1 - 6. F0G02260 61111 0020 00 0 61115 TRA RET1 F0G02270 61112 0074 00 4 62147 TSX WRITE,4 PRINT OUT ERROR CONDITION AND GO F0G02280 61113 0 00013 0 62330 PZE TITLZ,0,11 SKIP ANY CONTINUATION CARDS. F0G02290 61114 0020 00 0 61206 TRA SKPCN F0G02300 61115 -0501 00 0 62463 RET1 ORA BL CHECK EFN FOR BLANKS. F0G02310 61116 -0340 00 0 62521 LAS BLMSK F0G02320 61117 0020 00 0 61121 TRA *+2 F0G02330 BINARY CARD NO. 9F070010 61120 0020 00 0 61270 TRA SKPPRF ERROR POSSIBILITY - NO EFN. F0G02340 61121 0602 00 0 62512 SLW AC LOOKS LIKE IT MIGHT BE EFN. F0G02350 61122 0774 00 4 00006 AXT 6,4 F0G02360 61123 0114 01 1 62345 TEST CVR CONTB,1,1 TEST 6 CHAR. OF EFN FOR ALPHA OR F0G02370 61124 0020 00 1 61127 TRA *+3,1 OTHER NON ACCEPTABLE CHAR. F0G02380 61125 0020 00 0 61127 TRA *+2 BLANKS ARE ACCEPTED F0G02390 61126 0020 00 0 61273 TRA PRNE WHOOPS ILLEGAL CHARACTER IN EFN. F0G02400 61127 2 00001 4 61123 TIX TEST,4,1 ALL DIGITS COME HERE. F0G02410 61130 0560 00 0 62522 LDQ BCD EFN AS PER COLS. 1-6 TO MQ F0G02420 61131 0774 00 1 00007 AXT 7,1 KEEP TRACK OF LAST WORD OF TABLE F0G02430 61132 0774 00 4 00005 AXT 5,4 USED BY TEXT OF PREVIOUS EFN F0G02440 61133 0500 00 2 62624 CLA LSWRD,2 AND THE NUMBER OF CHARACTERS INF0G02450 61134 0601 00 2 62554 STO PREWD,2 THIS WORD IN CASE A SET BACK ISF0G02460 61135 -0500 00 0 62472 CAL TAB77 NECESSARY SHOULD THIS NEW EFN F0G02470 61136 0162 00 0 61141 AI TQP A2I CAUSE THE TABLE TO OVERFLOW. F0G02480 61137 -0773 00 0 00006 RQL 6 THIS CODING GETS A LEADING AND F0G02490 61140 0020 00 0 61143 TRA *+3 FOLLOWING 77 CHARACTER AROUND F0G02500 61141 -0763 00 0 00006 A2I LGL 6 THE EFN AND COUNTS THE CHAR- F0G02510 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 6 RECORD 7 OR 32 DEBUG 61142 1 00006 1 61143 TXI *+1,1,6 ACTERS IN THE EFN. F0G02520 61143 2 00001 4 61136 TIX AI,4,1 F0G02530 61144 3 00044 1 61167 TXH A3I,1,36 F0G02540 61145 0767 00 0 00006 ALS 6 IF COUNT IS LESS THAN 5, THIS F0G02550 BINARY CARD NO. 9F070011 61146 -0501 00 0 62472 ORA TAB77 GETS THE LOW ORDER 77. F0G02560 61147 1 00005 1 61150 TXI *+1,1,5 F0G02570 61150 0602 00 0 62540 SLW BCDA F0G02580 61151 0754 00 1 00000 PXA 0,1 THIS CODING LEFT ADJUSTS 77EFN77 F0G02590 61152 -0760 00 0 00003 SSM FOR STORAGE PURPOSES. F0G02600 61153 0400 00 0 62501 ADD LC36 F0G02610 61154 0621 00 0 61156 STA *+2 F0G02620 61155 -0500 00 0 62540 CAL BCDA F0G02630 61156 0767 00 0 00000 ALS ** F0G02640 61157 0602 00 0 62540 SLW BCDA F0G02650 61160 -0754 00 1 00000 PXD 0,1 THIS CODING COMPUTES NUMBER OF F0G02660 61161 0131 00 0 00000 XCA CHARACTERS TO BE STORED IN F0G02670 61162 0754 00 0 00000 PXA 0,0 CURRENT SUBPROGRAM TABLE AND F0G02680 61163 0221 00 0 62452 DVP LC6 RECORDS THIS COUNT IN CALLING F0G02690 61164 0131 00 0 00000 XCA SEQUENCE FOR STORE S. R. F0G02700 61165 0622 00 0 61175 STD D1 F0G02710 61166 0020 00 0 61174 TRA D3 F0G02720 61167 0560 00 0 62502 A3I LDQ HIH77 THIS CODING CONSIDERS THE CASE OFF0G02730 61170 -0600 00 0 62541 STQ BCDA+1 A 5 DIGIT EFN WHICH IS TREATED F0G02740 61171 0602 00 0 62540 SLW BCDA AS A SPECIAL CASE WHERE 7 CHAR-F0G02750 61172 0500 00 0 62475 CLA DLC7 ACTERS ARE STORED. F0G02760 61173 0622 00 0 61175 STD D1 F0G02770 BINARY CARD NO. 9F070012 61174 0074 00 4 61443 D3 TSX STORE,4 STORE EFN ENCOMPASSED BY 77S IN F0G02780 61175 0 00000 0 62540 D1 PZE BCDA,0,** CURRENT SUBPROGRAM TABLE. F0G02790 61176 0020 00 0 61276 TRA PRNF TABLE OVERFLOW RETURN. F0G02800 61177 0074 00 4 62011 TSX NOBLK,4 WIPE BLANKS OUT OF TEXT ON EFN F0G02810 61200 0767 00 0 00022 ALS 18 CD. F0G02820 61201 0622 00 0 61203 STD D2 F0G02830 61202 0074 00 4 61443 TSX STORE,4 STORE TEXT OF CURRENT EFN CARD. F0G02840 61203 0 00000 0 62540 D2 PZE BCDA,0,** F0G02850 61204 0020 00 0 61276 TRA PRNF TABLE OVERFLOW RETURN. F0G02860 61205 0020 00 0 61035 TRA OUT COMPLETED CD. WITH EFN GET NEXT. F0G02870 61206 0074 00 4 62106 SKPCN TSX RDTPE,4 THIS ROUTINE IS USED ON TABLE F0G02880 61207 -0500 00 0 62522 CAL BCD OVERFLOW CONDITIONS TO SKIP ANYF0G02890 61210 -0320 00 0 62472 ANA TAB77 CONTINUATION CARDS. F0G02900 61211 0100 00 0 61036 TZE PETE WHEN AN - N - CARD OR ANOTHER EFNF0G02910 61212 0402 00 0 62463 SUB LOWBL CARD OR A CONTROL CD. IS FOUND F0G02920 61213 -0100 00 0 61206 TNZ SKPCN CONTROL RETURNS TO MAIN PRO- F0G02930 61214 0020 00 0 61036 TRA PETE CESSING LOOP. F0G02940 61215 2 00001 1 61221 MAINP TIX NEWSP+1,1,1 F0G02950 61216 0600 00 0 62540 STZ BCDA SETS MAIN PROGRAM NAME TO ZEROS. F0G02960 61217 0020 00 0 61236 TRA MAKEN F0G02970 61220 0774 00 1 00013 NEWSP AXT 11,1 F0G02980 61221 -0500 00 1 62536 CAL BCD+12,1 CHECK COLS. 7 - 72 FOR ALL BLANKSF0G02990 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 7 RECORD 7 OR 32 DEBUG BINARY CARD NO. 9F070013 61222 -0340 00 0 62521 LAS BLMSK IF SO, THEN DUMP REQUESTS ARE F0G03000 61223 0020 00 0 61225 TRA *+2 FOR MAIN PROGRAM. F0G03010 61224 0020 00 0 61215 TRA MAINP F0G03020 61225 0074 00 4 62011 TSX NOBLK,4 IF NOT THEN MUST BE SUBPROGRAM. F0G03030 61226 0774 00 1 00000 AXT 0,1 GET RID OF ANY BLANK CHARACTERSF0G03040 61227 0737 00 2 00000 PAC 0,2 IN NAME. F0G03050 61230 1 00006 2 61231 TXI *+1,2,6 NAME IS LEFT JUSTIFIED. F0G03060 61231 -3 00000 2 61236 TXL MAKEN,2,0 IF NO BLANKS ARE NEEDED TO FILL F0G03070 61232 -0500 00 1 62463 CAL BL,1 THEN TRANSFER. IF BLANKS ARE F0G03080 61233 -0602 00 0 62540 ORS BCDA NEEDED TO FILL, THEN INSERT AS F0G03090 61234 1 77777 1 61235 TXI *+1,1,-1 MANY AS ARE NEEDED. F0G03100 61235 2 00001 2 61232 TIX *-3,2,1 F0G03110 61236 -0500 00 0 62540 MAKEN CAL BCDA THIS CODING PROCESSES THE NAME OFF0G03120 61237 0535 00 1 62650 LAC SPCNT,1 A SUBPROGRAM. IT COMPARES A NEWF0G03130 61240 1 00001 1 61241 TXI *+1,1,1 NAME WITH ALL THE PREVIOUS F0G03140 61241 0774 00 2 00000 AXT 0,2 NAMES. IF THERE IS A PREVIOUS F0G03150 61242 -0340 00 2 62651 LAS NAMES,2 DEBUG REQUEST FOR THIS SAME SUBF0G03160 61243 0020 00 0 61245 TRA *+2 PROGRAM THEN XR 2 WILL CONTAIN F0G03170 61244 0020 00 0 61035 TRA OUT THE 2S COMPLEMENT OF A NUMBER F0G03180 61245 1 77777 2 61246 TXI *+1,2,-1 WHICH CAN BE USED TO INDIRECTLYF0G03190 61246 2 00001 1 61242 TIX *-4,1,1 ADDRESS AN AREA CALLED LSWRD. F0G03200 61247 -3 77753 2 61256 TXL FULL,2,-NTW-1 THIS WILL BE USED TO STORE ANY F0G03210 BINARY CARD NO. 9F070014 61250 0602 00 2 62650 SLW NAMES-1,2 FOLLOWING DEBUG REQUESTS IN F0G03220 61251 0634 00 2 62650 SXA SPCNT,2 LINE IN THE CURRENT TABLE. F0G03230 61252 0500 00 2 62674 CLA LCTXT-1,2 IF NO MATCH CAN BE MADE ANOTHER F0G03240 61253 0600 00 2 62623 STZ LSWRD-1,2 ENTRY IS MADE IN NAMES LIST F0G03250 61254 0621 00 2 62623 STA LSWRD-1,2 ALONG WITH A STARTING ADDRESS F0G03260 61255 1 00001 2 61035 TXI OUT,2,1 IN LSWRD AND 2S COMP. OF COUNT.F0G03270 61256 0074 00 4 62147 FULL TSX WRITE,4 IF MORE THAN 20 SUBPROGRAM NAMES F0G03280 61257 0 00012 0 62247 PZE TITLG,0,10 ENTRIES ARE ATTEMPTED, CONTROL F0G03290 61260 0074 00 4 62106 TSX RDTPE,4 COMES HERE FOR OVERFLOW COND. F0G03300 61261 0020 00 0 61206 TRA SKPCN EFN AND CONTINUE CARDS ARE IGNOR.F0G03310 61262 0074 00 4 62147 OUTPR TSX WRITE,4 PRINTS ERROR STATE. WHEN COLS 1-6F0G03320 61263 0 00007 0 62204 PZE TITLA,,7 CONTAINS ALL BLANKS $F0G03330 61264 0020 00 0 61206 TRA SKPCN GOES TO SKIP CONTINUE CARDS. F0G03340 61265 0074 00 4 62147 DELTPR TSX WRITE,4 PRINTS ERROR STATE. WHEN OVERFLOWF0G03350 61266 0 00012 0 62213 PZE TITLB,0,10 ENCOUNTERED TRYING TO STORE RE-F0G03360 61267 0020 00 0 61064 TRA DELTE QUEST. REQUEST IS DELETED. F0G03370 61270 0074 00 4 62147 SKPPRF TSX WRITE,4 PRINTS ERROR STATE. WHEN NO EFN F0G03380 61271 0 00011 0 62225 PZE TITLD,0,9 ON CARD FOLLOWING N CARD. F0G03390 61272 0020 00 0 61206 TRA SKPCN GOES TO SKIP CARDS UNTIL EFN CD. F0G03400 61273 0074 00 4 62147 PRNE TSX WRITE,4 PRINTS ERROR STAT. WHEN EFN CONT-F0G03410 61274 0 00011 0 62236 PZE TITLE,0,9 AINS NON NUMERIC CHARACTERS. F0G03420 61275 0020 00 0 61206 TRA SKPCN GOES TO SKIP ANY CONTINUE CARDS. F0G03430 BINARY CARD NO. 9F070015 61276 0074 00 4 62147 PRNF TSX WRITE,4 PRINTS ERROR STAT. WHEN STORING F0G03440 61277 0 00012 0 62213 PZE TITLB,0,10 OF TEXT FROM EFN CARD HAS CAUS-F0G03450 61300 0020 00 0 61064 TRA DELTE ED OVERFLOW. REQUEST IS DELETEDF0G03460 61301 0500 00 2 62651 OVFPR CLA NAMES,2 WHEN TABLE OVERFLOWS WHEN TRYING F0G03470 61302 0601 00 0 62267 STO TITLH+6 TO STORE 7777S CONTROL COMES F0G03480 61303 0074 00 4 62147 TSX WRITE,4 HERE AND LAST DUMP REQUEST WILLF0G03490 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 8 RECORD 7 OR 32 DEBUG 61304 0 00017 0 62261 PZE TITLH,0,15 BE IGNORED FOR THE S. P. NAME F0G03500 61305 0020 00 0 61317 TRA OVFLW THAT GETS PRINTED OUT. F0G03510 61306 0535 00 1 62650 ENDPR LAC SPCNT,1 TOTAL NUMBER OF SUBPROGRAMS TO A.F0G03520 61307 -3 00000 1 63004 TXL ENTWH,1,0 IF NONE, EXIT TO BSS CONTROL F0G03530 61310 0774 00 2 00000 AXT 0,2 THIS CODING STORES 7777 AT END OFF0G03540 61311 0074 00 4 61443 GTSVN TSX STORE,4 TEXT FOR EACH SUBPROGRAM EN- F0G03550 61312 0 00002 0 62461 PZE L7777,0,2 COUNTERED ON N-CARDS. F0G03560 61313 0020 00 0 61301 TRA OVFPR POSSIBLE TABLE OVERFLOW RETURN. F0G03570 61314 1 77777 2 61315 TXI *+1,2,-1 F0G03580 61315 2 00001 1 61311 TIX *-4,1,1 F0G03590 61316 0020 00 0 61325 TRA ALPHA-2 F0G03600 61317 0500 00 2 62554 OVFLW CLA PREWD,2 7777 COULD NOT BE STORED, SO LASTF0G03610 61320 0601 00 2 62624 STO LSWRD,2 EFN IS DELETED AND STORAGE OF F0G03620 61321 0074 00 4 61443 TSX STORE,4 7777 NOW TAKES PLACE. F0G03630 61322 0 00002 0 62461 PZE L7777,0,2 F0G03640 61323 0020 00 0 60744 TRA HOPE F0G03650 BINARY CARD NO. 9F070016 61324 0020 00 0 61314 TRA GTSVN+3 KICK OFF MACHINE F0G03660 61325 0774 00 2 00000 AXT 0,2 F0G03670 61326 0535 00 1 62650 LAC SPCNT,1 F0G03680 61327 0500 00 2 62624 ALPHA CLA LSWRD,2 THIS LOOP COMPUTES THE NUMBER OFF0G03690 61330 0322 00 0 62473 ERA TAGMK WORDS OF STORAGE USED BY EACH F0G03700 61331 0402 00 2 62675 SUB LCTXT,2 OF THE SUBPROGRAMS. F0G03710 61332 0400 00 0 62451 ADD LC1 LSWRD IS ADDRESS OF LAST WORD F0G03720 61333 0601 00 2 62600 STO NOWRD,2 IN TABLE TO RECEIVE TEXT. F0G03730 61334 1 77777 2 61335 TXI *+1,2,-1 LCTXT IS THE STARTING ADDRESS F0G03740 61335 2 00001 1 61327 TIX ALPHA,1,1 OF TABLE. F0G03750 61336 0535 00 1 62650 LAC SPCNT,1 F0G03760 61337 0774 00 2 00000 AXT 0,2 F0G03770 61340 -0754 00 0 00000 PXD 0,0 F0G03780 61341 0560 00 0 62477 LDQ LC500 THIS LOOP ACCUMULATES THE STORAGEF0G03790 61342 0400 00 2 62600 ADD NOWRD,2 FOR THE SUBPROGRAMS AND CHECKS F0G03800 61343 0400 00 0 62500 ADD LC2 TO SEE IF ACCUMULATION EXCEEDS F0G03810 61344 -0320 00 0 62476 ANA AD77 500. F0G03820 61345 0040 00 0 61351 TLQ WHOAPR IF 500 EXCEEDED, THEN TRA. HERE. F0G03830 61346 1 77777 2 61347 TXI *+1,2,-1 F0G03840 61347 2 00001 1 61342 TIX *-5,1,1 F0G03850 61350 0020 00 0 61363 TRA WHOA NO TABLE OVERFLOW EXPECTED. F0G03860 61351 0074 00 4 62147 WHOAPR TSX WRITE,4 PRINT STATEMENT ABOUT DTBLS OVER F0G03870 BINARY CARD NO. 9F070017 61352 0 00017 0 62300 PZE GTITLG,0,15 FLOW F0G03880 61353 0634 00 2 62650 SXA SPCNT,2 RESET SUBPROGRAM COUNT TO ACTUAL F0G03890 61354 0020 00 0 61356 TRA *+2 NUMBER DTBLS CAN HANDLE. F0G03900 61355 1 77777 2 61356 BET1 TXI *+1,2,-1 F0G03910 61356 0500 00 0 62651 CLA NAMES LOOP TO PRINT OUT NAMES OF SUB- F0G03920 61357 0601 00 0 62321 STO HTITLH+2 PROGRAMS FOR WHICH THERE IS NO F0G03930 61360 0074 00 4 62147 TSX WRITE,4 SPACE IN DTBLS. F0G03940 61361 0 00003 0 62317 PZE HTITLH,0,3 F0G03950 61362 2 00001 1 61355 TIX BET1,1,1 F0G03960 61363 0774 00 6 00000 WHOA AXT 0,6 F0G03970 61364 0535 00 1 62650 LAC SPCNT,1 F0G03980 61365 0754 00 1 00000 PXA 0,1 COMPUTE 2 * NO. OF SUBPROGRAMS F0G03990 61366 0767 00 0 00001 ALS 1 PLUS 1 F0G04000 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 9 RECORD 7 OR 32 DEBUG 61367 0601 00 0 70730 STO DTBLS-1 F0G04010 61370 0400 00 0 62500 ADD LC2 F0G04020 61371 0601 00 0 62514 STO 2NP1 F0G04030 61372 0400 00 0 62450 ADD ATABL ADD IN THE INITIAL ADDRESS OF F0G04040 61373 0601 00 0 62513 STO HOLD DTBLS AND HOLD IT. F0G04050 61374 0560 00 4 62651 BETA LDQ NAMES,4 MOVE NAMES INTO DTBLS F0G04060 61375 -0600 00 2 70731 STQ DTBLS,2 F0G04070 61376 0600 00 2 70732 STZ DTBLS+1,2 MAKE SURE CELL FOR 2S COMPLEMENT F0G04080 61377 0500 00 0 62513 CLA HOLD OF ADDRESS OF TEXT IS 0. F0G04090 BINARY CARD NO. 9F070018 61400 0760 00 0 00006 COM F0G04100 61401 0400 00 0 62500 ADD LC2 F0G04110 61402 0767 00 0 00022 ALS 18 GET AND STORE 2S COMPLEMENT OF F0G04120 61403 0622 00 2 70732 STD DTBLS+1,2 ADDRESS OF TEXT INTO DEC. OF F0G04130 61404 0500 00 0 62513 CLA HOLD COMPUTE ADDRESS OF WHERE NEXT F0G04140 61405 0400 00 4 62600 ADD NOWRD,4 SUBPROGRAMS TEXT WILL BE STOREDF0G04150 61406 0621 00 0 62513 STA HOLD F0G04160 61407 1 77776 2 61410 TXI *+1,2,-2 PROCESS ALL SUBPROGRAM NAMES AND F0G04170 61410 1 77777 4 61411 TXI *+1,4,-1 LOCATIONS OF TEXT EXCEPT FOR F0G04180 61411 2 00001 1 61374 TIX BETA,1,1 THOSE WHICH HAVE BEEN IGNORED. F0G04190 61412 1 77777 2 61413 TXI *+1,2,-1 GET XR2 READY TO RECEIVE TEXT. F0G04200 61413 0535 00 1 62650 LAC SPCNT,1 INITIALIZATION OF LOOP FOR MOVINGF0G04210 61414 0754 00 1 00000 PXA 0,1 ALL TEXT INTO DTBLS. F0G04220 61415 0400 00 0 62447 ADD ALCTX F0G04230 61416 0621 00 0 61426 STA GAMA F0G04240 61417 0754 00 1 00000 PXA 0,1 F0G04250 61420 0400 00 0 62446 ADD ANOWR F0G04260 61421 0621 00 0 61423 STA DELTA F0G04270 61422 0600 00 0 62511 STZ COUNT F0G04280 61423 0500 00 1 00000 DELTA CLA **,1 MOVE NO. OF WDS. OF TEXT FOR SUC-F0G04290 61424 0621 00 0 62511 STA COUNT CESSIVE S. P. TO COUNT. F0G04300 61425 0774 00 4 00000 AXT 0,4 F0G04310 BINARY CARD NO. 9F070019 61426 0500 60 1 62675 GAMA CLA* LCTXT,1 MOVE SUCCESSIVE WORDS OF TEXT F0G04320 61427 0601 00 2 70730 STO DTBLS-1,2 FROM SUBPROGRAM TABLES INTO F0G04330 61430 1 77777 2 61431 TXI *+1,2,-1 DTBLS. F0G04340 61431 1 77777 4 61432 TXI *+1,4,-1 F0G04350 61432 0500 00 0 62511 CLA COUNT THIS IS A TEST TO SEE IF ALL WDS.F0G04360 61433 0402 00 0 62451 SUB LC1 OF TEXT FOR A PARTICULAR S. P. F0G04370 61434 0601 00 0 62511 STO COUNT HAS BEEN MOVED. F0G04380 61435 -0100 00 0 61426 TNZ GAMA F0G04390 61436 2 00001 1 61423 TIX DELTA,1,1 GET TEXT FOR NEXT S. P. F0G04400 61437 0074 00 4 62147 TSX WRITE,4 WRITE COMMENT - END OF DUMP F0G04410 61440 0 00006 0 62322 PZE TITLI,0,6 REQUESTS. F0G04420 61441 0074 00 4 62170 TSX PRGCN,4 GO TO EJECT PAGE. F0G04430 61442 0020 00 0 63004 TOHEF TRA ENTWH EXIT TO BSS CONTROL F0G04440 ************************************************************************F0G04450 * SUBROUTINE FOR STORING CHARACTERS IN TEXT TABLES. F0G04460 * CALLING SEQUENCE TSX STORE,4 F0G04470 * PZE LOC. OF CHAR.,0,NO. OF CHAR. F0G04480 * TABLE OVERFLOW RETURN. F0G04490 * NORMAL RETURN F0G04500 61443 0634 00 1 61706 STORE SXA AXR,1 XR2 CONTAINS THE 2S COMPLEMENT OFF0G04510 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 10 RECORD 7 OR 32 DEBUG 61444 0634 00 4 61705 SXA CXR,4 THE LOCATION OF THE SUBPROGRAM F0G04520 61445 0600 00 0 62517 STZ TMPF+2 NUMBER AND CAN BE USED TO OB- F0G04530 61446 0600 00 0 62520 STZ TMPF+3 TAIN THE LOCATION OF THE TEXT F0G04540 61447 0500 00 2 62676 CLA LCTXT+1,2 TABLE FOR A GIVEN SUBPROGRAM. F0G04550 61450 0402 00 0 62451 SUB LC1 INITIALIZE FINAL LOCATION WHICH F0G04560 61451 0621 00 0 62520 STA TMPF+3 CAN RECEIVE TEXT FOR THIS S.P. F0G04570 61452 0500 00 2 62624 CLA LSWRD,2 PICK UP ADDRESS OF FIRST OR LAST F0G04580 61453 0621 00 0 62517 STA TMPF+2 STORAGE CELL TO RECEIVE TEXT. F0G04590 BINARY CARD NO. 9F070020 61454 0500 00 4 00001 CLA 1,4 PICK UP LOCATION OF 1ST CHAR. TO F0G04600 61455 0621 00 0 61650 STA C4 BE MOVE TO TEXT TABLE. F0G04610 61456 0771 00 0 00022 ARS 18 F0G04620 61457 0601 00 0 62512 STO AC COUNT OF CHAR. IN CELL AC. F0G04630 61460 0340 00 0 62452 CAS LC6 TEST NUMBER OF CHARACTERS FOR 6. F0G04640 61461 0020 00 0 61602 TRA GREA6 NORMAL CASE MORE THAN 6 FOR ST.F0G04650 61462 0020 00 0 61734 TRA EQU6 SPECIAL CASE - EXACTLY 6. F0G04660 61463 0500 00 2 62624 LESS6 CLA LSWRD,2 SPECIAL CASE - LESS THAN 6. F0G04670 61464 -0734 00 4 00000 PDX 0,4 PUT NO. OF CHARACTERS STORED IN F0G04680 61465 -3 00000 4 61557 TXL T1,4,0 LAST WD. OF PREV. STORE TO XR4.F0G04690 61466 3 00005 4 61566 TXH T2,4,5 SPECIAL CASES- LAST WORD FULL OR F0G04700 61467 0621 00 0 61520 STA T3 EMPTY. F0G04710 61470 0771 00 0 00022 ARS 18 NORMAL CASE SHIFTING HAS TO BE F0G04720 61471 -0760 00 0 00003 SSM ACCOMPLISHED TO PACK TABLE. F0G04730 61472 0400 00 0 62452 ADD LC6 COMPUTE 6 - NO. OF CHAR. F0G04740 61473 0601 00 0 62516 STO TMPF+1 F0G04750 61474 0402 00 0 62512 SUB AC ABOVE CALCULATION - NO. OF CHAR. F0G04760 61475 0100 00 0 61526 TZE T4 IN LSWRD. ALL CHARS TO LSWRD ADF0G04770 61476 0120 00 0 61542 TPL T5 CAN STORE CHAR. AND NOT OVFL WD. F0G04780 61477 0601 00 0 62512 STO AC IF MINUS SAVE DIFFERENCE. F0G04790 61500 0560 00 0 62516 LDQ TMPF+1 COMPUTE AMOUNT OF SHIFT NECESSARYF0G04800 61501 0200 00 0 62452 MPY LC6 TO POSITION CHAR. FOR PACKING. F0G04810 BINARY CARD NO. 9F070021 61502 0131 00 0 00000 XCA F0G04820 61503 0621 00 0 61517 STA T6 F0G04830 61504 0500 00 0 62517 CLA TMPF+2 CREATE NEW ADDRESS FOR LSWRD CELLF0G04840 61505 0400 00 0 62451 ADD LC1 F0G04850 61506 0402 00 0 62520 SUB TMPF+3 TEST FOR POSSIBLE TABLE OVERFLOW,F0G04860 61507 0100 00 0 62007 TZE OVER USE ERROR RETURN. F0G04870 61510 0120 00 0 62007 TPL OVER F0G04880 61511 0500 00 0 61520 CLA T3 F0G04890 61512 0402 00 0 62451 SUB LC1 INITIALIZE ADDRESS OF NEXT TEXT F0G04900 61513 0621 00 0 61521 STA T7 CELL AND PUT IN ADDRESS OF F0G04910 61514 0621 00 2 62624 STA LSWRD,2 LSWRD. F0G04920 61515 -0754 00 0 00000 PXD 0,0 F0G04930 61516 0522 00 0 61650 XEC C4 PICK UP CHARACTERS IN MQ F0G04940 61517 -0763 00 0 00000 T6 LGL ** SHIFT TO POSITION FOR PACKING. F0G04950 61520 -0602 00 0 00000 T3 ORS ** FILL OUT LAST WD. STORED IN TABLEF0G04960 61521 -0600 00 0 00000 T7 STQ ** PLACE REMAINING CHAR. IN NEXT F0G04970 61522 0500 00 0 62512 CLA AC CELL. F0G04980 61523 0767 00 0 00022 ALS 18 PUT COUNT OF CHARACTERS IN NEW F0G04990 61524 0622 00 2 62624 STD LSWRD,2 CELL INTO DEC OF LSWRD. F0G05000 61525 0020 00 0 61705 TRA CXR EXIT STORE S. R. F0G05010 61526 0560 00 0 62516 T4 LDQ TMPF+1 COMPUTE AMOUNT OF SHIFTING F0G05020 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 11 RECORD 7 OR 32 DEBUG 61527 0200 00 0 62452 MPY LC6 NECESSARY TO POSITION WORD OF F0G05030 BINARY CARD NO. 9F070022 61530 0131 00 0 00000 XCA CHARACTERS FOR TABLE ENTRY. F0G05040 61531 0621 00 0 61534 STA T10 F0G05050 61532 -0754 00 0 00000 PXD 0,0 F0G05060 61533 0522 00 0 61650 XEC C4 PICK UP WORD OF CHAR. IN MQ F0G05070 61534 -0763 00 0 00000 T10 LGL ** SHIFT FOR PACKING PURPOSES. F0G05080 61535 0522 00 0 61520 XEC T3 ORS TO LSWRD CELL. F0G05090 61536 0500 00 0 62452 CLA LC6 SET CHARACTER COUNT IN LSWRD CELLF0G05100 61537 0767 00 0 00022 ALS 18 TO 6 TO SHOW THAT LAST WORD IS F0G05110 61540 0622 00 2 62624 STD LSWRD,2 NOW FULL. F0G05120 61541 0020 00 0 61705 TRA CXR EXIT FROM STORE S. R. F0G05130 61542 -0760 00 0 00003 T5 SSM COMPUTE NO. OF CHAR STORED IN F0G05140 61543 0400 00 0 62452 ADD LC6 LSWRD. F0G05150 61544 0767 00 0 00022 ALS 18 UPDATE CHAR. COUNT. IN DEC. OF F0G05160 61545 0622 00 2 62624 STD LSWRD,2 LSWRD. F0G05170 61546 0560 00 0 62516 LDQ TMPF+1 COMPUTE AMOUNT OF SHIFT NECESSARYF0G05180 61547 0200 00 0 62452 MPY LC6 FOR PACKING NEW CHARACTERS IN F0G05190 61550 0131 00 0 00000 XCA TEXT TABLE. F0G05200 61551 0621 00 0 61554 STA T11 F0G05210 61552 -0754 00 0 00000 PXD 0,0 F0G05220 61553 0522 00 0 61650 XEC C4 PICK UP CHARACTERS TO BE STORED F0G05230 61554 -0763 00 0 00000 T11 LGL ** SHIFT TO POSITION FOR PACKING. F0G05240 61555 0522 00 0 61520 XEC T3 ORS TO RECORD CHARACTERS IN TEXT.F0G05250 BINARY CARD NO. 9F070023 61556 0020 00 0 61705 TRA CXR EXIT FROM STORE S. R. F0G05260 61557 0621 00 0 61561 T1 STA T12 SPECIAL CASE WHERE LSWRD DEC. = 0F0G05270 61560 0522 00 0 61650 XEC C4 GET CHARACTERS F0G05280 61561 -0600 00 0 00000 T12 STQ ** STORE IN FIRST CELL OF TEXT TABLEF0G05290 61562 0500 00 0 62512 T14 CLA AC F0G05300 61563 0767 00 0 00022 ALS 18 PUT COUNT OF CHARACTERS STORED INF0G05310 61564 0622 00 2 62624 STD LSWRD,2 ABOVE CELL TO DEC. OF LSWRD. F0G05320 61565 0020 00 0 61705 TRA CXR EXIT FROM STORE S. R. F0G05330 61566 0400 00 0 62451 T2 ADD LC1 SPECIAL CASE WHERE LSWRD DEC = 6 F0G05340 61567 0621 00 0 61576 STA T13 INITIALIZE FOR STORING IN NEXT F0G05350 61570 0500 00 0 62517 CLA TMPF+2 TEXT TABLE CELL. F0G05360 61571 0400 00 0 62451 ADD LC1 F0G05370 61572 0402 00 0 62520 SUB TMPF+3 CHECK FOR POSSIBLE TABLE OVERFLOWF0G05380 61573 0100 00 0 62007 TZE OVER IF SO, USE ERROR RETURN. F0G05390 61574 0120 00 0 62007 TPL OVER F0G05400 61575 0522 00 0 61650 XEC C4 PICK UP CHARACTERS TO MQ. F0G05410 61576 -0600 00 0 00000 T13 STQ ** STORE IN TEXT TABLE. F0G05420 61577 0500 00 0 61576 CLA T13 UPDATE ADDRESS OF LSWRD WITH F0G05430 61600 0621 00 2 62624 STA LSWRD,2 NEXT TEXT TABLE CELL. F0G05440 61601 0020 00 0 61562 TRA T14 F0G05450 61602 0131 00 0 00000 GREA6 XCA PROCESS MORE THAN 6 CHAR. F0G05460 61603 -0754 00 0 00000 PXD 0,0 F0G05470 BINARY CARD NO. 9F070024 61604 0221 00 0 62452 DVP LC6 COMPUTE HOW MANY COMPLETE WORDS F0G05480 61605 0760 00 0 00003 SSP OF CHAR. EXIST. F0G05490 61606 0601 00 0 62512 STO AC SAVE REMAINDER OF CHAR. FOR F0G05500 61607 0131 00 0 00000 XCA SPECIAL PROCESSING. F0G05510 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 12 RECORD 7 OR 32 DEBUG 61610 0760 00 0 00003 SSP F0G05520 61611 0621 00 0 61645 STA C2 INITIALIZE WITH NO. OF COMPLETE F0G05530 61612 0400 00 2 62624 ADD LSWRD,2 WDS. F0G05540 61613 0400 00 0 62451 ADD LC1 F0G05550 61614 0621 00 0 62517 STA TMPF+2 COMPUTE LAST ADD. OF TEXT TABLE F0G05560 61615 0500 00 0 62517 CLA TMPF+2 AFFECTED BY THIS GROUP OF CHAR.F0G05570 61616 0402 00 0 62520 SUB TMPF+3 F0G05580 61617 0100 00 0 62007 TZE OVER CHECK FOR TABLE OVERFLOW. F0G05590 61620 0120 00 0 62007 TPL OVER IF SO, USE ERROR RETURN. F0G05600 61621 0500 00 2 62624 CLA LSWRD,2 PICK UP NO. OF CHAR. STORED IN F0G05610 61622 -0734 00 4 00000 PDX 0,4 LSWRD FROM PREVIOUS STORE. F0G05620 61623 0621 00 0 61652 STA A1 INITIALIZE ADDRESS FOR FILLING F0G05630 61624 0400 00 0 62451 ADD LC1 OUT PREVIOUS WORD. F0G05640 61625 0621 00 0 61653 STA C5 INITIALIZE FOR NEXT TEXT TABLE F0G05650 61626 -3 00000 4 61640 TXL Z1,4,0 SPECIAL CASE WHEN LSWRD DEC = 0 F0G05660 61627 3 00005 4 61642 TXH Z3,4,5 SPECIAL CASE WHEN LSWRD DEC = 6 F0G05670 61630 0771 00 0 00022 ARS 18 F0G05680 61631 -0760 00 0 00003 SSM COMPUTE NO. OF CHAR. LAST WD. F0G05690 BINARY CARD NO. 9F070025 61632 0400 00 0 62452 ADD LC6 WILL HOLD. F0G05700 61633 0131 00 0 00000 XCA F0G05710 61634 0200 00 0 62452 Z2 MPY LC6 COMPUTE AMOUNT OF SHIFTING F0G05720 61635 0131 00 0 00000 XCA NECESSARY FOR PACKING. F0G05730 61636 0621 00 0 61644 STA C1 F0G05740 61637 0020 00 0 61644 TRA C1 F0G05750 61640 0560 00 0 62452 Z1 LDQ LC6 LAST WD. WILL HOLD 6 CHAR. F0G05760 61641 0020 00 0 61634 TRA Z2 F0G05770 61642 0500 00 0 62553 Z3 CLA LCZER LAST WD. WILL NOT HOLD ANY CHAR. F0G05780 61643 0621 00 0 61644 STA C1 F0G05790 61644 -0774 00 1 00000 C1 AXC **,1 AMOUNT OF SHIFT TO XR1. F0G05800 61645 0774 00 4 00000 C2 AXT **,4 WHOLE WD COUNT TO XR4. F0G05810 61646 1 00001 4 61647 TXI *+1,4,1 F0G05820 61647 -0754 00 0 00000 C6 PXD 0,0 F0G05830 61650 0560 00 0 00000 C4 LDQ ** PICK UP 1ST WD. OF CHAR. TO BE F0G05840 61651 -0763 00 1 00000 LGL 0,1 STORED, SHIFT IT FOR PACKING, F0G05850 61652 -0602 00 0 00000 A1 ORS ** PACK IT IN LAST WD., AND STORE F0G05860 61653 -0600 00 0 00000 C5 STQ ** REMAINING CHAR IN NEXT CELL. F0G05870 61654 2 00001 4 61656 TIX *+2,4,1 GET NEXT WD. OF CHAR. F0G05880 61655 0020 00 0 61666 TRA C7 OUT OF LOOP. F0G05890 61656 -0500 00 0 61653 CAL C5 UPDATE ADDRESS OF NEXT WD OF TEXTF0G05900 61657 0621 00 0 61652 STA A1 TABLES. F0G05910 BINARY CARD NO. 9F070026 61660 0400 00 0 62451 ADD LC1 F0G05920 61661 0621 00 0 61653 STA C5 F0G05930 61662 -0500 00 0 61650 CAL C4 UPDATE ADD. OF NEXT WD. OF CHAR. F0G05940 61663 0400 00 0 62451 ADD LC1 F0G05950 61664 0621 00 0 61650 STA C4 F0G05960 61665 0020 00 0 61647 TRA C6 RETURN TO LOOP. F0G05970 61666 0500 00 2 62624 C7 CLA LSWRD,2 COUNT OF CHAR IN PREVIOUS LSWRD F0G05980 61667 -0734 00 4 00000 PDX 0,4 TO XR4. F0G05990 61670 -3 00000 4 61716 TXL W1,4,0 SPECIAL CASE LAST WD. EMPTY F0G06000 61671 3 00005 4 61727 TXH W2,4,5 SPECIAL CASE LAST WD. FULL F0G06010 61672 0771 00 0 00022 ARS 18 F0G06020 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 13 RECORD 7 OR 32 DEBUG 61673 -0760 00 0 00003 SSM COMPUTE NO. OF CHAR. STORED IN F0G06030 61674 0400 00 0 62452 ADD LC6 NEW LAST WORD OF TEXT TABLE. F0G06040 61675 0402 00 0 62512 SUB AC F0G06050 61676 0100 00 0 61714 TZE W3 IF 0, LAST WORD IS FULL F0G06060 61677 -0120 00 0 61710 TMI W4 IF -, LAST WORD CONTAINS LESS F0G06070 61700 0402 00 0 62452 SUB LC6 THAN SIX CHAR. USE STQ ADD. F0G06080 61701 0767 00 0 00022 W6 ALS 18 IF +, LAST WORD CONTAINS LESS F0G06090 61702 0622 00 2 62624 STD LSWRD,2 THAN SIX CHAR. USE ORS ADD F0G06100 61703 0500 00 0 61652 CLA A1 UPDATE DEC. AND ADD. OF LSWRD F0G06110 61704 0621 00 2 62624 W5 STA LSWRD,2 TO BE USED BY FUTURE STORE. F0G06120 61705 0774 00 4 00000 CXR AXT **,4 NORMAL EXIT. F0G06130 BINARY CARD NO. 9F070027 61706 0774 00 1 00000 AXR AXT **,1 F0G06140 61707 0020 00 4 00003 TRA 3,4 F0G06150 61710 0767 00 0 00022 W4 ALS 18 UPDATE DEC. AND ADD. OF LSWRD F0G06160 61711 0622 00 2 62624 STD LSWRD,2 F0G06170 61712 0500 00 0 61653 CLA C5 F0G06180 61713 0020 00 0 61704 TRA W5 F0G06190 61714 0500 00 0 62452 W3 CLA LC6 6 TO DEC OF LSWRD. F0G06200 61715 0020 00 0 61701 TRA W6 F0G06210 61716 0500 00 0 62512 W1 CLA AC NO SHIFTING WAS NECESSARY. DEC OFF0G06220 61717 0100 00 0 61721 TZE W1W LSWRD GETS SET TO REMAINDER OF F0G06230 61720 0020 00 0 61701 TRA W6 CHAR UNLESS 0. F0G06240 61721 0500 00 0 62452 W1W CLA LC6 IF 0, LSWRD DEC GETS SET TO 6. F0G06250 61722 0767 00 0 00022 ALS 18 AND ADD. OF LSWRD IS SET TO F0G06260 61723 0622 00 2 62624 STD LSWRD,2 ADD OF WD. TO RECEIVE LAST CHARF0G06270 61724 0500 00 0 61652 CLA A1 F0G06280 61725 0402 00 0 62451 SUB LC1 F0G06290 61726 0020 00 0 61704 TRA W5 F0G06300 61727 0500 00 0 62512 W2 CLA AC IF REMAINDER IS 0, COUNT OF 6 IS F0G06310 61730 0100 00 0 61732 TZE W2W USED. F0G06320 61731 0020 00 0 61710 TRA W4 IF NOT, ACTUAL NO. OF CHAR. USED.F0G06330 61732 0500 00 0 62452 W2W CLA LC6 F0G06340 61733 0020 00 0 61701 TRA W6 F0G06350 BINARY CARD NO. 9F070028 61734 0500 00 2 62624 EQU6 CLA LSWRD,2 SPECIAL CASE WHERE EXACTLY 6 CHARF0G06360 61735 -0734 00 4 00000 PDX 0,4 ARE TO BE STORED. F0G06370 61736 -3 00000 4 61767 TXL Y1,4,0 CASE LSWRD NO. OF CHAR. =0 F0G06380 61737 3 00005 4 61776 TXH Y2,4,5 CASE LSWRD IS FULL. F0G06390 61740 0621 00 0 61762 STA Y3 ADD OF PREV. STORE OF LAST WORD F0G06400 61741 0400 00 0 62451 ADD LC1 AND LAST WORD PLUS 1 TO STORE F0G06410 61742 0621 00 0 61763 STA Y4 INSTRS. F0G06420 61743 0771 00 0 00022 ARS 18 F0G06430 61744 -0760 00 0 00003 SSM F0G06440 61745 0400 00 0 62452 ADD LC6 HOW MANY CHAR. WILL LAST WORD F0G06450 61746 0131 00 0 00000 XCA HOLD. F0G06460 61747 0500 00 0 62517 CLA TMPF+2 CHECK TO SEE IF STORING THESE F0G06470 61750 0400 00 0 62451 ADD LC1 CHARACTERS WILL CAUSE TABLE F0G06480 61751 0402 00 0 62520 SUB TMPF+3 OVERFLOW. F0G06490 61752 0100 00 0 62007 TZE OVER IF SO, USE ERROR RETURN F0G06500 61753 0120 00 0 62007 TPL OVER F0G06510 61754 0200 00 0 62452 MPY LC6 COMPUTE NO. OF SHIFTS NECESSARY F0G06520 61755 0131 00 0 00000 XCA FOR PACKING. F0G06530 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 14 RECORD 7 OR 32 DEBUG 61756 0621 00 0 61761 STA Y5 F0G06540 61757 -0754 00 0 00000 PXD 0,0 F0G06550 61760 0522 00 0 61650 XEC C4 PICK UP CHAR. F0G06560 61761 -0763 00 0 00000 Y5 LGL ** SHIFT IF NECESSARY. F0G06570 BINARY CARD NO. 9F070029 61762 -0602 00 0 00000 Y3 ORS ** STORE IN TEXT TABLE. F0G06580 61763 -0600 00 0 00000 Y4 STQ ** F0G06590 61764 0500 00 0 61763 CLA Y4 F0G06600 61765 0621 00 2 62624 STA LSWRD,2 UPDATE ADD OF LSWRD CELL. F0G06610 61766 0020 00 0 61705 TRA CXR EXIT F0G06620 61767 0621 00 0 61771 Y1 STA *+2 LAST WORD WAS EMPTY F0G06630 61770 0522 00 0 61650 XEC C4 SO STORE 6 CHAR. F0G06640 61771 -0600 00 0 00000 STQ ** F0G06650 61772 0500 00 0 62452 CLA LC6 MAKE COUNT IN DEC OF LSWRD = 6. F0G06660 61773 0767 00 0 00022 ALS 18 F0G06670 61774 0622 00 2 62624 STD LSWRD,2 F0G06680 61775 0020 00 0 61705 TRA CXR EXIT F0G06690 61776 0500 00 0 62517 Y2 CLA TMPF+2 WILL HAVE TO STORE IN NEXT CELL F0G06700 61777 0400 00 0 62451 ADD LC1 F0G06710 62000 0402 00 0 62520 SUB TMPF+3 F0G06720 62001 0100 00 0 62007 TZE OVER CHECK FOR TABLE OVERFLOW. F0G06730 62002 0120 00 0 62007 TPL OVER USE ERROR RETURN F0G06740 62003 0500 00 2 62624 CLA LSWRD,2 UPDATE ADD. OF LSWRD. F0G06750 62004 0400 00 0 62451 ADD LC1 F0G06760 62005 0621 00 2 62624 STA LSWRD,2 F0G06770 62006 0020 00 0 61767 TRA Y1 GO TO STORE CHAR. F0G06780 62007 0534 00 4 61705 OVER LXA CXR,4 SET UP CONDITION FOR ERROR RETURNF0G06790 BINARY CARD NO. 9F070030 62010 1 00001 4 61706 TXI AXR,4,1 F0G06800 62011 0634 00 1 62507 NOBLK SXA IRAB,1 THIS SUBROUTINE WIPES BLANKS OUT F0G06810 62012 -0634 00 2 62507 SXD IRAB,2 OF TEXT. F0G06820 62013 -0634 00 4 62506 SXD IRC,4 F0G06830 62014 0600 00 0 62511 STZ COUNT INITIALIZE WORD COUNT F0G06840 62015 0774 00 4 00000 AXT 0,4 INITIALIZE XR4 FOR TOTAL WD. CT. F0G06850 62016 0774 00 1 00013 AXT 11,1 MAXIMUM NO. OF WDS. TO CK. = 11 F0G06860 62017 0600 00 1 62553 STZ BCDA+11,1 INITIALIZE BLOCK FOR NON-BLANK F0G06870 62020 2 00001 1 62017 TIX *-1,1,1 CHARACTERS. F0G06880 62021 0500 00 0 62445 CLA LBCDA INITIALIZE ADDS. OF INSTS. USING F0G06890 62022 0621 00 0 62042 STA B1 BLOCK OF NON BLANK CHAR. F0G06900 62023 0621 00 0 62044 STA B2 F0G06910 62024 0621 00 0 62046 STA B3 F0G06920 62025 0560 00 0 62522 LDQ BCD SHIFT OUT 1ST COLUMN OF WD. 1. F0G06930 62026 -0754 00 0 00000 PXD 0,0 F0G06940 62027 -0763 00 0 00006 LGL 6 F0G06950 62030 -0600 00 0 62505 STQ FRED SAVE REMAINING CHAR. OF WD. 1. F0G06960 62031 0774 00 1 00013 AXT 11,1 F0G06970 62032 0774 00 2 00006 A3 AXT 6,2 F0G06980 62033 0560 00 1 62536 A2 LDQ BCD+12,1 LOAD SUCCESSIVE BCD WORDS F0G06990 62034 -0754 00 0 00000 PXD 0,0 F0G07000 62035 -0763 00 0 00006 LGL 6 SHIFT 6 BITS TO AC F0G07010 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 15 RECORD 7 OR 32 DEBUG BINARY CARD NO. 9F070031 62036 -0600 00 1 62536 STQ BCD+12,1 SAVE REMAINDER OF MQ F0G07020 62037 0601 00 0 62504 STO WKCL SAVE SHIFTED BITS. F0G07030 62040 0402 00 0 62463 SUB BL TEST FOR BLANK F0G07040 62041 0100 00 0 62055 TZE A4 BLANK - GO TO NEXT COLUMN. F0G07050 62042 0560 00 0 00000 B1 LDQ ** NO BLANK F0G07060 62043 -0773 00 0 00006 RQL 6 SHIFT BCD WORD. F0G07070 62044 -0600 00 0 00000 B2 STQ ** SAVE SHIFTED BCD WD. F0G07080 62045 0500 00 0 62504 CLA WKCL UNCHANGED SHIFTED BITS. F0G07090 62046 -0602 00 0 00000 B3 ORS ** ADD NEW CHAR. AND SAVE. F0G07100 62047 1 00001 4 62050 TXI *+1,4,1 INCREASE TOTAL WORD COUNT BY 1. F0G07110 62050 0500 00 0 62511 CLA COUNT INCREASE WD. CT. BY 1. F0G07120 62051 0400 00 0 62451 ADD ONE F0G07130 62052 0601 00 0 62511 STO COUNT F0G07140 62053 0402 00 0 62452 SUB SIX TEST FOR 6 CHAR. F0G07150 62054 0100 00 0 62077 TZE SAM F0G07160 62055 2 00001 2 62033 A4 TIX A2,2,1 NOT YET 6 - GO BACK FOR NEXT COL.F0G07170 62056 2 00001 1 62032 TIX A3,1,1 BCD WD. COMPLETE - GO TO NEXT WD.F0G07180 62057 0500 00 0 62452 CLA SIX COMPUTE NO. OF POSITIONS THE LASTF0G07190 62060 0402 00 0 62511 SUB COUNT WORD MUST BE SHIFTED TO MOVE ITF0G07200 62061 0601 00 0 62511 STO COUNT TO THE EXTREME LEFT. F0G07210 62062 0560 00 0 62511 LDQ COUNT F0G07220 62063 0200 00 0 62452 MPY SIX F0G07230 BINARY CARD NO. 9F070032 62064 0131 00 0 00000 XCA F0G07240 62065 0621 00 0 62067 STA *+2 STORE NO. OF POSITION TO BE SHIFTF0G07250 62066 0560 60 0 62046 LDQ* B3 LOAD LOCATION OF LAST NEW WORD F0G07260 62067 -0773 00 0 00000 RQL ** MOVED INTO ROTATE INSTRUCTION. F0G07270 62070 -0600 60 0 62046 STQ* B3 STORE WORD IN BCDA BLOCK. F0G07280 62071 0754 00 4 00000 PXA 0,4 PUT WORD COUNT IN AC. F0G07290 62072 0560 00 0 62505 LDQ FRED F0G07300 62073 0534 00 1 62507 LXA IRAB,1 F0G07310 62074 -0534 00 2 62507 LXD IRAB,2 F0G07320 62075 -0534 00 4 62506 LXD IRC,4 F0G07330 62076 0020 00 4 00001 TRA 1,4 NORMAL RETURN. F0G07340 62077 0500 00 0 62042 SAM CLA B1 6 BCD CHAR. IN NON BLANK BLOCK. F0G07350 62100 0400 00 0 62451 ADD ONE START NEW BCDA WORD. F0G07360 62101 0621 00 0 62042 STA B1 RE-INITIALIZE ADDRS. OF INSTR. F0G07370 62102 0621 00 0 62044 STA B2 USING BLOCK OF NON-BLANK CHAR. F0G07380 62103 0621 00 0 62046 STA B3 F0G07390 62104 0600 00 0 62511 STZ COUNT RESTORE WD. COUNT TO 0. F0G07400 62105 0020 00 0 62055 TRA A4 F0G07410 * READ INPUT TAPE SUBROUTINE. F0G07420 62106 0634 00 4 62126 RDTPE SXA XXX,4 F0G07430 62107 0441 60 0 73660 LDI* (FGBX) CHAIN JOB OR NOT DETERMINES $F0G07440 62110 -0056 00 000002 DET LNT 2 WHERE IS INPUT F0G07450 62111 0020 00 0 62130 TRA GAMII LOGICAL TAPE 5. F0G07460 BINARY CARD NO. 9F070033 62112 0074 00 4 73606 WWW TSX (TAPE),4 LOGICAL TAPE 8. F0G07470 62113 0 40016 0 62343 PZE COM1,0,(RDEC) TRY TO READ BCD RECORD. F0G07480 62114 0 00010 0 00000 PZE ,,CHNTAP $F0G07490 62115 -0 00000 0 62144 MZE MOD2 RETURN IF REDUNDANCY CHECK. F0G07500 62116 0520 00 0 73702 ZET (SCHU)+CHNTAP $F0G07510 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 16 RECORD 7 OR 32 DEBUG 62117 0020 00 0 62124 TRA GAM7 F0G07520 62120 0074 00 4 73606 TSX (TAPE),4 EOF ON LOGICAL TAPE 8. F0G07530 62121 0 20002 0 62142 PZE SKLST,0,(SKDP) POSITION IN FRONT OF FOR BSS. F0G07540 62122 0 00010 0 00000 PZE ,,CHNTAP $F0G07550 62123 0020 00 0 60755 TRA MOD1 F0G07560 62124 0074 00 4 62147 GAM7 TSX WRITE,4 F0G07570 62125 0 00015 0 62521 PZE BCD-1,0,13 F0G07580 62126 0774 00 4 00000 XXX AXT **,4 F0G07590 62127 0020 00 4 00001 TRA 1,4 F0G07610 62130 0074 00 4 73606 GAMII TSX (TAPE),4 TRY TO READ BCD RECORD FROM F0G07620 62131 0 40016 0 62343 PZE COM1,0,(RDEC) LOGICAL TAPE 5. F0G07630 62132 0 00005 0 00000 PZE ,,MINTAP $F0G07640 62133 -0 00000 0 62144 MZE MOD2 RETURN IF REDUNDANCY CHECK. F0G07650 62134 0520 00 0 73677 ZET (SCHU)+MINTAP $F0G07660 62135 0020 00 0 62124 TRA GAM7 F0G07670 62136 0074 00 4 73606 TSX (TAPE),4 IF EOF ON LOGICAL TAPE 5, POSI- F0G07680 62137 0 20002 0 62142 PZE SKLST,0,(SKDP) TION IN FRONT OF EOF VOR BSS. F0G07690 BINARY CARD NO. 9F070034 62140 0 00005 0 00000 PZE ,,MINTAP $F0G07700 62141 0020 00 0 60755 TRA MOD1 F0G07710 62142 -0 00001 0 00000 SKLST MZE ,,1 FOR BACKSPACING OVER EOF. F0G07720 62143 -0 00000 0 00001 MZE 1 FOR BSR. F0G07730 62144 -0500 00 0 62460 MOD2 CAL 1BIT TELL BSS NEXT INFO. IS BINARY ON F0G07740 62145 -0602 60 0 73660 ORS* (FGBX) INPUT TAPE $F0G07750 62146 0020 00 0 61306 TRA ENDPR GO TO SET UP DTBLS. F0G07760 * THIS SUBROUTINE WRITES BCD RECORDS ON TAPE F0G07770 * ENTRY IS TSX WRITE,4 F0G07780 * PZE 1ST WD.,0, NO. OF WDS. F0G07790 62147 0500 60 0 73661 WRITE CLA* (LNCT) $F0G07800 62150 0400 00 0 62451 ADD ONE UPDATE LINES OF OUTPUT F0G07810 62151 0601 60 0 73661 STO* (LNCT) $F0G07820 62152 0634 00 4 62165 SXA EPSI,4 F0G07830 62153 0500 00 4 00001 CLA 1,4 PICK UP COMMAND FOR OUTPUTING F0G07840 62154 0601 00 0 62167 STO OUTCM BCD RECORD. F0G07850 62155 0500 00 0 62510 CLA LINPG F0G07860 62156 0402 00 0 62451 SUB ONE CHECK TO SEE IF TIME TO START F0G07870 62157 0601 00 0 62510 STO LINPG NEW PAGE. F0G07880 62160 -0100 00 0 62162 TNZ *+2 N0. F0G07890 62161 0074 00 4 62170 TSX PRGCN,4 PAGE EJECT NEEDED. F0G07900 62162 0074 00 4 73606 TSX (TAPE),4 WRITE OUT RECORD. F0G07910 62163 0 40013 0 62167 PZE OUTCM,0,(WDNC) F0G07920 62164 0 00006 0 00000 PZE ,,MLSTAP LOGICAL TAPE 6 $F0G07930 62165 0774 00 4 00000 EPSI AXT **,4 F0G07940 BINARY CARD NO. 9F070035 62166 0020 00 4 00002 TRA 2,4 RETURN F0G07950 62167 0 00000 0 00000 OUTCM PZE **,0,** STORAGE FOR COMMAND. F0G07960 62170 0634 00 4 62176 PRGCN SXA EPP,4 F0G07970 62171 0074 00 4 73606 TSX (TAPE),4 WRITE OUT RECORD TO CAUSE EJECT F0G07980 62172 0 40013 0 62200 PZE EJECT,0,(WDNC) F0G07990 62173 0 00006 0 00000 PZE ,,MLSTAP $F0G08000 62174 -0534 00 4 73651 LXD (PGCT),4 NO. OF LINES TO OUTPUT PAGE. *F0G08010 62175 0634 00 4 62510 SXA LINPG,4 *F0G08020 62176 0774 00 4 00000 EPP AXT **,4 F0G08030 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 17 RECORD 7 OR 32 DEBUG 62177 0020 00 4 00001 TRA 1,4 F0G08040 62200 3 00003 0 62201 EJECT IORT *+1,,3 $F0G08050 62201 016060606060 BCI 3,1 $F0G08060 62204 606767676760 TITLA BCI 7, XXXX CARD IGNORED. COLUMNS 1-6 ALL BLANK. $F0G08070 62213 606767676760 TITLB BCI 9, XXXX TABLE OVERFLOW FOR SUBPROGRAM. DUMP REQUEST IGNOF0G08080 BINARY CARD NO. 9F070036 62224 512524336060 BCI 1,RED. F0G08090 62225 606767676760 TITLD BCI 9, XXXX NO EFN FOLLOWING SUBPROGRAM NAME CARD. F0G08100 62236 606767676760 TITLE BCI 9, XXXX EFN CONTAINS NON NUMERIC CHARACTERS. F0G08110 BINARY CARD NO. 9F070037 62247 606767676760 TITLG BCI 9, XXXX 20 SUBPROGRAMS ALREADY REFERENCED. THIS ONE IGNOF0G08120 62260 512524336060 BCI 1,RED. F0G08130 62261 606767676760 TITLH BCI 9, XXXX TABLE OVERFLOW FOR SUBPROGRAM THE LAST RF0G08140 BINARY CARD NO. 9F070038 62272 255064256263 BCI 6,EQUEST FOR THIS SUBPROGRAM IGNORED. F0G08150 62300 606767676760 GTITLG BCI 9, XXXX DTBLS TABLE OVERFLOW. DUMP REQUESTS FOR THE FOLL F0G08160 62311 466631452760 BCI 6,OWING SUB PROGRAMS HAVE BEEN IGNORED F0G08170 BINARY CARD NO. 9F070039 62317 606060606060 HTITLH BCI 3, F0G08180 62322 606060606025 TITLI BCI 6, END OF DUMP REQUESTS F0G08190 62330 606767676760 TITLZ BCI 9, XXXX DUMP REQUEST IGNORED. NO SUBPROGRAM NAME CARD FO F0G08200 62341 644524607025 BCI 2,UND YET. F0G08210 62343 3 00016 0 62522 COM1 IORT BCD,0,14 F0G08220 BINARY CARD NO. 9F070040 62344 3 00034 2 62522 COM2 IORTN BCD,0,28 F0G08230 62345 CONTB DUP 1,10 $F0G08240 62345 000000000000 VFD 6/*-CONTB $F0G08250 62357 DUP 1,38 $F0G08260 62357 240000000001 VFD 6/*-CONTB+10,30/1 $F0G08270 BINARY CARD NO. 9F070041 BINARY CARD NO. 9F070042 62425 600000000002 VFD O6/60,30/2 $F0G08280 62426 CONTC DUP 1,15 $F0G08290 62426 000000000001 VFD 6/*-CONTC,30/1 $F0G08300 62445 0000 00 0 62540 LBCDA HTR BCDA LOC. OF ABOVE BLOCK F0G08880 BINARY CARD NO. 9F070043 62446 0000 00 0 62600 ANOWR HTR NOWRD F0G08890 62447 0000 00 0 62675 ALCTX HTR LCTXT F0G08900 62450 0000 00 0 70730 ATABL HTR DTBLS-1 F0G08910 62451 0000 00 0 00001 ONE HTR 1 FIXED POINT 1 F0G08920 62452 0000 00 0 00006 SIX HTR 6 FIXED POINT 6 - NO. OF CHAR. F0G08930 62453 0000 00 0 00070 L56 HTR 56 F0G08940 62454 +242163210000 DATA OCT 242163210000 F0G08950 62455 +242522642700 DEBUG OCT 242522642700 F0G08960 62456 -146060606060 STAR OCT 546060606060 F0G08970 62457 -377777577777 7BIT OCT 777777577777 F0G08980 62460 +000000200000 1BIT OCT 000000200000 F0G08990 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 18 RECORD 7 OR 32 DEBUG 62461 -377700000000 L7777 OCT 777700000000 F0G09000 62462 +000000000045 EN OCT 45 F0G09010 62463 +000000000060 BL OCT 60,6000,600000,60000000,6000000000,600000000000 F0G09020 62471 +000000000067 EX OCT 67 F0G09030 62472 +000000000077 TAB77 OCT 77 F0G09040 62473 +000000400000 TAGMK OCT 400000 F0G09050 BINARY CARD NO. 9F070044 62474 +000060606060 BLNK OCT 60606060 F0G09060 62475 +000007000000 DLC7 OCT 7000000 F0G09070 62476 +000000077777 AD77 OCT 77777 F0G09080 62477 0 00000 0 00764 LC500 PZE NDTBLS-1 F0G09090 62500 +000000000002 LC2 DEC 2 F0G09100 62501 +000000000044 LC36 DEC 36 F0G09110 62502 -370000000000 HIH77 OCT 770000000000 F0G09120 62503 0 00000 0 00000 STSTI PZE $F0G09130 62504 0 00000 0 00000 WKCL PZE TEMP. STORAGE FOR 6 BITS IN AC $F0G09140 62505 0 00000 0 00000 FRED PZE COL. 2- 6 ON ORIGINAL CARD $F0G09150 62506 0 00000 0 00000 IRC PZE LOC. FOR SAVING IR4 $F0G09160 62507 0 00000 0 00000 IRAB PZE LOC. FOR SAVING IR1 AND 2 $F0G09170 62510 0 00000 0 00000 LINPG PZE $F0G09180 62511 0 00000 0 00000 COUNT PZE WORD COUNT IN BCD WORD $F0G09190 62512 0 00000 0 00000 AC PZE TEMP STORAGE FOR AC $F0G09200 62513 0 00000 0 00000 HOLD PZE $F0G09210 62514 0 00000 0 00000 2NP1 PZE $F0G09220 62515 TMPF BSS 4 F0G09230 BINARY CARD NO. 9F070045 62521 -206060606060 BLMSK OCT 606060606060 F0G09240 62522 BCD BSS 14 F0G09250 62540 BCDA BSS 11 BLOCK OF NON-BLANK CHAR. F0G09260 BINARY CARD NO. 9F070046 62553 0000 00 0 00000 LCZER HTR 0 THIS CARD MUST FOLLOW BCDA CARD. F0G09270 62554 PREWD BSS NTW F0G09280 62600 NOWRD BSS NTW F0G09290 62624 LSWRD BSS NTW IN ADDRESS LOCATION OF LAST WORD F0G09300 * TO RECEIVE CHARACTERS. IN DECR-F0G09310 * EMENT IS NO. OF CHAR. RECEIVED.F0G09320 BINARY CARD NO. 9F070047 62650 0 00000 0 00000 SPCNT PZE COMPLEMENT OF NO. OF SUBPROGRAMS TO GET $F0G09330 DEBUGGED. $F0G09340 62651 NAMES BSS NTW TABLE FOR BCD NAMES OF SUBPR. F0G09350 BINARY CARD NO. 9F070048 62675 0000 00 4 03734 LCTXT HTR TEXT,4 TABLE FOR COORDINATING STORAGE F0G09360 62676 0000 00 4 04244 HTR TEXT+1*NTHUN,4 OF SUB PROGRAM TEXT AND NAMES. F0G09370 62677 0000 00 4 04554 HTR TEXT+2*NTHUN,4 F0G09380 62700 0000 00 4 05064 HTR TEXT+3*NTHUN,4 F0G09390 62701 0000 00 4 05374 HTR TEXT+4*NTHUN,4 F0G09400 62702 0000 00 4 05704 HTR TEXT+5*NTHUN,4 F0G09410 62703 0000 00 4 06214 HTR TEXT+6*NTHUN,4 F0G09420 62704 0000 00 4 06524 HTR TEXT+7*NTHUN,4 F0G09430 62705 0000 00 4 07034 HTR TEXT+8*NTHUN,4 F0G09440 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 19 RECORD 7 OR 32 DEBUG 62706 0000 00 4 07344 HTR TEXT+9*NTHUN,4 F0G09450 62707 0000 00 4 07654 HTR TEXT+10*NTHUN,4 F0G09460 62710 0000 00 4 10164 HTR TEXT+11*NTHUN,4 F0G09470 62711 0000 00 4 10474 HTR TEXT+12*NTHUN,4 F0G09480 62712 0000 00 4 11004 HTR TEXT+13*NTHUN,4 F0G09490 62713 0000 00 4 11314 HTR TEXT+14*NTHUN,4 F0G09500 62714 0000 00 4 11624 HTR TEXT+15*NTHUN,4 F0G09510 62715 0000 00 4 12134 HTR TEXT+16*NTHUN,4 F0G09520 62716 0000 00 4 12444 HTR TEXT+17*NTHUN,4 F0G09530 62717 0000 00 4 12754 HTR TEXT+18*NTHUN,4 F0G09540 62720 0000 00 4 13264 HTR TEXT+19*NTHUN,4 F0G09550 62721 0000 00 4 13574 HTR TEXT+20*NTHUN,4 F0G09560 62722 0074 00 4 62147 TLOUT TSX WRITE,4 WRITE OUT MESSAGE ON SYSOU1 (22)F0G09640 BINARY CARD NO. 9F070049 62723 0 00006 0 62725 PZE ILCCD,,6 (22)F0G09641 62724 0074 00 4 73643 TSX (SECL),4 GO TO SOURCE ERROR RECORD (22)F0G09642 62725 603143432527 ILCCD BCI 6, ILLEGAL CONTROL CARD IN DEBUG DECK. (22)F0G09643 62733 BSS 41 PATCH SPACE (22)F0G09644 F0G09650 F0G09660 62451 LC1 SYN ONE F0G09670 62452 LC6 SYN SIX F0G09680 62463 LOWBL SYN BL F0G09690 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 20 RECORD 7 OR 32 DEBUG BINARY CARD NO. 9F070050 63004 0441 60 0 73660 ENTWH LDI* (FGBX) HAS BSS BEEN READ IN $F0G09710 63005 -0054 00 000001 LFT 1 $F0G09720 63006 0020 00 0 63016 TRA SKPBS YES $F0G09721 63007 0500 00 0 63014 CLA 9F33 NO $F0G09722 63010 0054 00 100000 RFT 100000 IS SYSTEM IN 2ND FILE $F0G09723 63011 0601 00 0 63013 STO 9F08 YES $F0G09724 D 63012 0074 01 4 73600 TSX (LOAD),4,1 READ IN BSS $F0G09730 63013 112600100000 9F08 BCI 1,9F0800 $F0G09731 63014 112603030000 9F33 BCI 1,9F3300 $F0G09732 63015 112603020000 9F32 BCI 1,9F3200 $F0G09733 63016 0074 00 4 73606 SKPBS TSX (TAPE),4 SKIP BSS RECORD $F0G09740 63017 0 20000 0 73207 PZE SKRCW,,(SKBP) F0G09750 63020 0 00001 0 00000 PZE ,,SYSTAP $F0G09760 63021 0441 60 0 73660 ENTBS LDI* (FGBX) $F0G09770 63022 0500 00 0 63015 CLA 9F32 $F0G09771 63023 0054 00 100000 RFT 100000 IS SYSTEM IN 2ND FILE $F0G09772 63024 0601 00 0 72716 STO 9F07 YES $F0G09773 63025 0056 00 400000 RNT 400000 ARE THERE DEBUG CARDS. F0G09780 63026 0020 00 0 63056 TRA REINT NO. F0G09790 63027 0774 00 1 57050 AXT TABL-DDBG-BOTTOM+1,1 YES. CLEAR TO TOP OF F0G09800 63030 0600 00 1 63004 STZ TABL-DDBG+1,1 LOADING TABLES F0G09810 63031 2 00001 1 63030 TIX *-1,1,1 F0G09820 BINARY CARD NO. 9F070051 63032 0774 00 1 05624 AXT DDBG,1 INITIALIZE FOR TOP OF LOADING F0G09830 63033 0634 00 1 72370 SXA SPS2,1 TABLES TO BE TABL-DDBG. F0G09840 63034 1 00002 1 63035 TXI *+1,1,2 F0G09850 63035 -0634 00 1 72333 SXD CKPL4,1 F0G09860 63036 -0634 00 1 72446 SXD TAG,1 F0G09870 63037 -0634 00 1 72421 SXD G4,1 F0G09880 63040 -0634 00 1 72340 SXD CKPL3,1 F0G09890 63041 0774 00 2 64311 AXT STENT,2 F0G09900 63042 0634 00 2 72017 SXA LOSYM,2 F0G09910 63043 0774 00 1 03734 AXT BOTTOM,1 F0G09920 63044 0634 00 1 63003 SXA TABL-DDBG,1 F0G09930 63045 1 00003 1 63046 TXI *+1,1,3 F0G09940 63046 0634 00 1 73166 SXA S,1 F0G09950 63047 0600 00 0 63002 STZ TABL-DDBG-1 F0G09960 63050 0774 00 1 00002 AXT 2,1 F0G09970 63051 -0634 00 1 63002 SXD TABL-DDBG-1,1 F0G09980 63052 0500 00 1 63117 CLA STHD+2,1 F0G09990 63053 0601 00 1 03736 STO BOTTOM+2,1 F0G10000 63054 2 00001 1 63052 TIX *-2,1,1 F0G10010 63055 0020 00 0 63071 TRA INIT1 F0G10020 63056 0774 00 1 00000 REINT AXT 0,1 NO DEBUG. INITIALIZE FOR TOP OF LOADING F0G10030 63057 0634 00 1 72370 SXA SPS2,1 TABLES TO BE TABL. F0G10040 BINARY CARD NO. 9F070052 63060 -0634 00 1 72333 SXD CKPL4,1 F0G10050 63061 -0634 00 1 72446 SXD TAG,1 F0G10060 63062 0774 00 2 71747 AXT L,2 F0G10070 63063 0634 00 2 72017 SXA LOSYM,2 F0G10080 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 21 RECORD 7 OR 32 DEBUG 63064 0774 00 1 03734 AXT BOTTOM,1 F0G10090 63065 0634 00 1 73166 SXA S,1 F0G10100 63066 0774 00 1 00002 AXT 2,1 F0G10110 63067 -0634 00 1 72421 SXD G4,1 F0G10120 63070 -0634 00 1 72340 SXD CKPL3,1 F0G10130 63071 0634 00 0 72642 INIT1 ZSA PROG $F0G10140 63072 0600 00 0 73165 STZ R F0G10150 63073 0600 00 0 73167 STZ T $F0G10160 63074 0774 00 1 77677 AXT TOPMEM,1 TO REINITIALIZE LCOMN (24)F0G10161 63075 0056 00 040000 RNT 40000 WAS THERE * IOP $F0G10162 63076 0020 00 0 63110 TRA IOPDON NO, PROCEED (24)F0G10163 63077 0774 00 1 73600 AXT BOTIOP,1 USE BOTIOP INSTEAD OF $F0G10164 63100 0634 00 1 73170 SXA COMN,1 TOPMEM $F0G10165 63101 0774 00 1 00006 AXT 6,1 AND MOVE INSTRUCTIONS TO $F0G10166 63102 0500 00 1 63125 CLA SAVIOP+6,1 BSS SO THAT CORES ARE $F0G10167 63103 0601 00 1 72641 STO PROG-1,1 ZEROED TO BOTIOP, NOT $F0G10168 63104 2 00001 1 63102 TIX *-2,1,1 TO TOPMEM $F0G10169 63105 0774 00 1 73577 AXT BOTIOP-1,1 $F0G10170 BINARY CARD NO. 9F070053 63106 0500 00 0 63125 CLA SAVIOP+6 KILL PRE-EXECUTION $F0G10171 63107 0601 00 0 72467 STO TOPR1 TAPE STATISTICS $F0G10172 $F0G10173 $F0G10174 $F0G10180 $F0G10190 63110 0634 00 1 73171 IOPDON SXA LCOMN,1 $F0G10200 63111 0600 00 0 73174 STZ MULPC $F0G10210 63112 0600 00 0 73175 STZ SKIP $F0G10220 63113 0600 00 0 73173 STZ LIBSW $F0G10230 63114 0020 00 0 71716 TRA ENTBSS F0G10240 63115 746263302434 STHD BCI 1,(STHD) F0G10250 63116 742631433460 BCI 1,(FIL) F0G10260 INSTRUCTIONS STORED IN BSS (AT PROG) $F0G10261 WHEN * IOP WAS PRESENT $F0G10262 63117 0601 00 1 73600 SAVIOP STO BOTIOP,1 $F0G10263 63120 2 00001 1 72632 TIX PROG-8,1,1 $F0G10264 63121 -0534 00 1 72446 LXD TAG,1 $F0G10265 63122 1 02745 1 73574 TXI BOTIOP-4,1,BOTIOP-4-TABL $F0G10266 63123 0600 00 1 73575 STZ BOTIOP-3,1 $F0G10267 63124 2 00001 1 73574 TIX BOTIOP-4,1,1 $F0G10268 63125 0020 00 0 72567 TRA TOPR2 KILL TAPE STATISTICS $F0G10269 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 22 RECORD 7 OR 32 DEBUG * AFTER LOADING A SUBPROGRAM A CHECK OF THE DEBUG TABLE F0G10280 * IS MADE TO SEE IF DEBUG SNAPS ARE REQUESTED IN F0G10290 * THE SUBPROGRAM. IF SO THE PROGRAM BREAK IS EXTENDED TO IN- F0G10300 * CLUDE COUNTER TESTS, CALLING SEQUENCES, AND FORMATS FOR DUMP-F0G10310 * ING, AND STR INSTRUCTIONS INSERTED IN THE SUBPROGRAM. F0G10320 77461 IUPCM EQU -207 NOMINAL TOP OF COMMON $F0G10330 00006 TAPOUT EQU 6 OUTPUT TAPE NUMBER - RE FORTRAN F0G10340 01750 NESYTB EQU 1000 STORAGE FOR SYMBOL TABLE F0G10350 00317 NEFMTT EQU 207 STORAGE FOR GENERATING FORMAT F0G10360 00007 NSPCH EQU 7 NUMBER OF SPECIAL LIST WORDS F0G10370 00764 NEDBTB EQU 500 STORAGE FOR DEBUG TABLES F0G10380 * F0G10390 63126 0 00000 0 00000 1H NEXT CHARACTER F0G10400 63127 TEMP BSS 7 F0G10410 BINARY CARD NO. 9F070054 63136 +000000000012 L(10) DEC 10 F0G10420 SPECIAL CHARACTERS F0G10430 63137 +000000000077 ENDMK OCT 77 END MARK 9 F0G10440 63140 +000000000074 LPAR OCT 74 ( 8 F0G10450 63141 +000000000073 CMA OCT 73 , 7 F0G10460 63142 +000000000053 DOLS OCT 53 $ 6 F0G10470 63143 +000000000040 MINUS OCT 40 - 5 F0G10480 63144 +000000000034 RPAR OCT 34 ) 4 F0G10490 63145 +000000000033 DECPT OCT 33 . 3 F0G10500 63146 +000000000020 PLUS OCT 20 + 2 F0G10510 63147 +000000000014 DASH OCT 14 - 1 F0G10520 63150 CTEST BSS 0 F0G10530 PICKS UP NEXT CHARACTER FROM DTBLS AND PUTS IN AC F0G10540 63150 0634 00 4 63165 C0190 SXA C0194,4 F0G10550 63151 -0534 00 4 63214 LXD CHCTR,4 F0G10560 63152 0560 00 0 65771 LDQ RESIDU F0G10570 63153 2 00001 4 63161 C0191 TIX C0193,4,1 F0G10580 63154 -0534 00 4 63213 LXD FWA,4 F0G10590 63155 0560 00 4 00000 LDQ 0,4 F0G10600 63156 1 77777 4 63157 TXI C0192,4,-1 F0G10610 63157 -0634 00 4 63213 C0192 SXD FWA,4 F0G10620 63160 0534 00 4 65733 LXA L(6),4 F0G10630 63161 -0754 00 0 00000 C0193 PXD 0,0 F0G10640 63162 -0763 00 0 00006 LGL 6 F0G10650 63163 -0634 00 4 63214 SXD CHCTR,4 F0G10660 BINARY CARD NO. 9F070055 63164 -0600 00 0 65771 STQ RESIDU F0G10670 63165 0774 00 4 00000 C0194 AXT **,4 F0G10680 63166 0020 00 4 00001 TRA 1,4 F0G10690 * F0G10700 CONVERT SUCCESSIVE NUMERICS TO BINARY F0G10710 RESULT - RIGHT ADJUSTED IN 1G F0G10720 CALL - TSX C0180,2 F0G10730 NEXT CHARACTER LEFT IN AC F0G10740 63167 0074 00 4 63150 C0180X TSX C0190,4 NEXT CHARACTER TO AC F0G10750 63170 0601 00 0 65772 C0180 STO 1G F0G10760 63171 0074 00 4 63150 TSX C0190,4 F0G10770 63172 0340 00 0 65735 CAS L(9) F0G10780 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 23 RECORD 7 OR 32 DEBUG 63173 0020 00 2 00001 TRA 1,2 EXIT F0G10790 63174 0761 00 0 00000 L(0) NOP F0G10800 63175 0601 00 0 65773 STO 1G+1 F0G10810 63176 0500 00 0 65772 CLA 1G F0G10820 63177 0767 00 0 00002 ALS 2 F0G10830 63200 0400 00 0 65772 ADD 1G F0G10840 63201 0767 00 0 00001 ALS 1 F0G10850 63202 0400 00 0 65773 ADD 1G+1 F0G10860 63203 0020 00 0 63170 TRA C0180 F0G10870 * F0G10880 PUT IN 1G, 1G+1 SUCCESIVE BCD UNTIL PUNCTUATION F0G10890 IRA = 0 FOR 6 OR LESS CHARACTERS, = -1 FOR MORE THAN 6 F0G10900 IRC = PUNCTUATION TAG F0G10910 1H = PUNCTUATION CHARACTER F0G10920 CALL TSX C0160,2 F0G10930 63204 0074 00 4 63150 C0160X TSX C0190,4 F0G10940 63205 0634 00 2 63234 C0160 SXA C0164,2 F0G10950 63206 0534 00 3 63174 LXA L(0),3 F0G10960 63207 0600 00 0 65772 STZ 1G CLEAR F0G10970 63210 0600 00 0 65773 STZ 1G+1 1G, 1G + 1 F0G10980 63211 0774 00 4 00011 C0161 AXT CTEST-ENDMK,4 F0G10990 BINARY CARD NO. 9F070056 63212 0340 00 4 63150 CAS CTEST,4 F0G11000 63213 1 00000 0 63215 FWA TXI *+2,0,** DEC CONTAINS COM OF NEXT WORD IN DTBLS F0G11010 63214 1 00000 0 63226 CHCTR TXI C0163,0,** PUNCTUATION ENCOUNTERED/DEC = CHAR CNT F0G11020 63215 2 00001 4 63212 TIX *-3,4,1 F0G11030 63216 -3 00036 2 63222 TXL C0162,2,30 F0G11040 63217 1 77777 1 63220 TXI *+1,1,-1 START STORING IN 1G + 1 F0G11050 63220 -3 77776 1 64141 TXL MTM,1,-2 LEAVE FOR MORE THAN 12 CHAR F0G11060 63221 0534 00 2 63174 LXA L(0),2 F0G11070 63222 0767 00 2 00036 C0162 ALS 30,2 F0G11080 63223 -0602 00 1 65772 ORS 1G,1 STORE CHARACTER F0G11090 63224 0074 00 4 63150 TSX C0190,4 GET NEXT CHARACTER F0G11100 63225 1 00006 2 63211 TXI C0161,2,6 F0G11110 63226 0601 00 0 63126 C0163 STO 1H SAVE PUNCTUATION F0G11120 63227 -0754 00 0 00000 PXD 0,0 PLACE BLANKS F0G11130 63230 0560 00 0 65746 LDQ BLANKS AFTER F0G11140 63231 -0763 00 2 00044 LGL 36,2 SYMBOL F0G11150 63232 -0602 00 1 65772 ORS 1G,1 IF NEEDED F0G11160 63233 0500 00 0 63126 CLA 1H F0G11170 63234 0774 00 2 00000 C0164 AXT **,2 F0G11180 63235 0020 00 2 00001 TRA 1,2 RETURN F0G11190 * F0G11200 INSPECTS FIRST CHARACTER IF NUMERIC SETS I = 0 F0G11210 OTHERWISE I = -0 F0G11220 THEN GOES TO C0180, C0160 AS REQUIRED F0G11230 NEXT CHARACTER IN THE AC AND 1H F0G11240 63236 0074 00 4 63150 C0150 TSX C0190,4 F0G11250 63237 0634 00 2 63253 SXA C0153,2 F0G11260 BINARY CARD NO. 9F070057 63240 0340 00 0 65735 CAS L(9) F0G11270 63241 1 00000 0 63247 TXI C0151,0,0 NON-NUMERIC F0G11280 63242 0761 00 0 00000 NOP F0G11290 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 24 RECORD 7 OR 32 DEBUG 63243 0074 00 2 63170 TSX C0180,2 F0G11300 63244 0601 00 0 63126 STO 1H SAVE NEXT CHARACTER F0G11310 63245 0600 00 0 65774 STZ I I = 0 F0G11320 63246 0020 00 0 63253 TRA C0153 F0G11330 63247 0074 00 2 63205 C0151 TSX C0160,2 F0G11340 63250 0502 00 0 65730 CLS L(1) F0G11350 63251 0601 00 0 65774 C0152 STO I I = -1 F0G11360 63252 0500 00 0 63126 CLA 1H F0G11370 63253 0774 00 2 00000 C0153 AXT **,2 F0G11380 63254 0020 00 2 00001 TRA 1,2 F0G11390 * F0G11400 ROYCNV,4/ CALLS=C0190, F0G11410 ROYCNV DOES FIXED AND FLOATING POINT CONVERSION F0G11420 ROYCNV= ENTRY POINT FOR FIXED OR FLOATING POINT INTEGERS. F0G11430 63127 N EQU TEMP F0G11440 63130 DOE EQU TEMP+1 F0G11450 63126 CHSAVE EQU 1H F0G11460 63131 H EQU TEMP+2 F0G11470 63145 POINT EQU DECPT F0G11480 63132 G EQU TEMP+3 F0G11490 63133 EKE EQU TEMP+4 F0G11500 63143 11Z EQU MINUS F0G11510 63146 12Z EQU PLUS F0G11520 63255 0601 00 0 63127 ROYCNV STO N SAVE DECIMAL DIGIT IN N. F0G11530 63255 ROYCVN EQU ROYCNV F0G11540 63256 -0634 00 4 63261 SXD EXITT,4 SAVE C(XR4) FOR RETURN. F0G11550 63257 0600 00 0 63130 STZ DOE CLEAR DOE (IMPLICIT EXPONENT). F0G11560 63260 0500 00 0 63274 CLA CM1 PICK UP SWITCH CONTROL, F0G11570 63261 1 00000 0 63266 EXITT TXI IN2,0,** AND GO SET SWITCH. F0G11580 DECPNT= ENTRY POINT FOR FLOATING POINT FRACTIONS. F0G11590 63262 0600 00 0 63127 DECPNT STZ N CLEAR N (NO INTEGER). F0G11600 63263 -0634 00 4 63261 SXD EXITT,4 SAVE C(XR4) FOR RETURN. F0G11610 63264 0600 00 0 63130 STZ DOE CLEAR DOE (IMPLICIT EXPONENT). F0G11620 63265 -0500 00 0 63274 NC7 CAL CM1 PICK UP SWITCH CONTROL. F0G11630 BINARY CARD NO. 9F070058 63266 0630 00 0 63304 IN2 STP CM2 SET SWITCHES CM2, AND F0G11640 63267 0630 00 0 63316 STP CM3 CM3. F0G11650 63270 0140 00 0 63271 TOV NC5 TURN OFF OV TRIGGER. F0G11660 63271 0074 00 4 63150 NC5 TSX C0190,4 *GO GET NEXT NB CHARACTER IN THE AC. F0G11670 63272 0602 00 0 63126 SLW CHSAVE SAVE IT F0G11680 63273 0340 00 0 63136 NC1 CAS L(10) AND COMPARE WITH TEN. F0G11690 63274 -3 00000 0 63310 CM1 TXL NC2,0,0 CHAR EXCEEDS 10, SO IS NON-NUMERIC. F0G11700 63275 -0754 00 0 00000 PXD ,0 CLEAR THE AC (MACHINE ERROR). F0G11710 63276 0601 00 0 63131 STO H CHARACTER IS NUMERIC, SO HOLD IT. F0G11720 63277 0500 00 0 63127 CLA N MULTIPLY THE PREVIOUS F0G11730 63300 0767 00 0 00002 ALS 2 PARTIAL RESULT (OR ZERO) F0G11740 63301 0400 00 0 63127 ADD N BY 10, F0G11750 63302 0767 00 0 00001 ALS 1 AND ADD IN F0G11760 63303 0400 00 0 63131 ADD H THE CURRENT DIGIT. F0G11770 63304 3 00000 0 63323 CM2 TXH NC3,0,0 SWITCH (NO TRANSFER IF INTEGER). F0G11780 63305 0140 00 0 63331 TOV NC4 TEST OVERFLOW, AND F0G11790 63306 0601 00 0 63127 STO N IF NONE, SAVE NEW PARTIAL RESULT. F0G11800 63307 1 00000 0 63271 TXI NC5,0,0 THEN GO PICK UP NEXT CHARACTER. F0G11810 63310 0340 00 0 63145 NC2 CAS POINT COMPARE NON-NUMERIC WITH A POINT. F0G11820 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 25 RECORD 7 OR 32 DEBUG 63311 1 00000 0 63316 TXI CM3,0,0 IF GREATER THAN 27, GO OUT. F0G11830 63312 1 00000 0 63265 TXI NC7,0,0 IF POINT, GO BACK AND SET SWITCH. F0G11840 63313 0340 00 0 63437 CAS L(E) IF LESS THAN 27, COMPARE WITH E. F0G11850 BINARY CARD NO. 9F070059 63314 1 00000 0 63316 TXI CM3,0,0 IF GREATER THAN 21, GO OUT. F0G11860 63315 1 00000 0 63333 TXI EC1,0,0 IF E, GO TO EXPONENT ROUTINE. F0G11870 63316 3 00000 0 63372 CM3 TXH FN4,0,0 SWITCH (NO TRANSFER IF INTEGER). F0G11880 63317 0500 00 0 63127 CLA N PICK UP CONVERTED CONSTANT, AND F0G11890 63320 0767 00 0 00022 MS9506 ALS 18 STORE IN THE F0G11900 63321 0601 00 0 63132 STO G DECREMENT OF G F0G11910 63322 1 00000 0 63421 TXI EXITR,0,0 GO TAKE EXITR. F0G11920 63323 0140 00 0 63330 NC3 TOV NC8 IF THERE WAS NO OVERFLOW, F0G11930 63324 0601 00 0 63127 STO N SAVE PARTIAL RESULT, AND F0G11940 63325 0502 00 0 65730 CLS L(1) SUBTRACT 1 FROM DOE F0G11950 63326 0400 00 0 63130 NC9 ADD DOE TO ADJUST EXPONENT F0G11960 63327 0601 00 0 63130 STO DOE IN FINAL RESULT. F0G11970 63330 1 00000 0 63271 NC8 TXI NC5,0,0 THEN GO PICK UP NEXT CHARACTER. F0G11980 63331 0500 00 0 65730 NC4 CLA L(1) ADD 1 TO DOE , F0G11990 63332 1 00000 0 63326 TXI NC9,0,0 IF THERE WAS INTEGER OVERFLOW. F0G12000 63333 0074 00 4 63150 EC1 TSX C0190,4 *GO GET NEXT NB CHARACTER IN THE AC. F0G12010 63334 0602 00 0 63126 SLW CHSAVE SAVE IT FOR STATE B, AND F0G12020 63335 0600 00 0 63133 STZ EKE CLEAR EKE (EXPLICIT EXPONENT). F0G12030 63336 0340 00 0 63143 CAS 11Z COMPARE CHARACTER WITH A DASH. F0G12040 63337 1 00000 0 63367 TXI FN5,0,0 IF GREATER THAN 32, GO OUT. F0G12050 63340 1 00000 0 63346 TXI EC3,0,0 IF A DASH, SET EKE MINUS. F0G12060 63341 0340 00 0 63146 CAS 12Z IF LESS THAN 32, COMPARE WITH PLUS. F0G12070 BINARY CARD NO. 9F070060 63342 1 00000 0 63367 TXI FN5,0,0 IF GREATER THAN 16, GO OUT. F0G12080 63343 1 00000 0 63353 TXI EC6,0,0 IF PLUS, GO EXAMINE NEXT CHAR. F0G12090 63344 0340 00 0 63147 CAS DASH IF LESS THAN 16, COMPARE WITH MINUS. F0G12100 63345 1 00000 0 63367 TXI FN5,0,0 IF GREATER THAN 12, GO OUT. F0G12110 63346 0502 00 0 63133 EC3 CLS EKE IF MINUS, SET EKE TO -0. F0G12120 63347 0340 00 0 63136 CAS L(10) COMPARE WITH TEN. F0G12130 63350 1 00000 0 63367 TXI FN5,0,0 IF NON-NUMERIC, GO EXAMINE NEXT CH. F0G12140 63351 -0754 00 0 00000 EC4 PXD ,0 CLEAR ACC, F0G12150 63352 0601 00 0 63133 EC5 STO EKE SAVE PARTIAL RESULT(OR O) IN EKE. F0G12160 63353 0074 00 4 63150 EC6 TSX C0190,4 *GO GET NEXT NB CHARACTER IN THE AC. F0G12170 63354 0602 00 0 63126 SLW CHSAVE SAVE IT FOR STATE B, F0G12180 63355 0340 00 0 63136 CAS L(10) AND COMPARE WITH TEN. F0G12190 63356 1 00000 0 63367 TXI FN5,0,0 CHAR EXCEEDS 10, SO IS NON-NUMERIC. F0G12200 63357 -0754 00 0 00000 PXD ,0 CLEAR THE AC (MACHINE ERROR). F0G12210 63360 0601 00 0 63131 STO H CHARACTER IS NUMERIC, SO HOLD IT. F0G12220 63361 0500 00 0 63133 CLA EKE MULTIPLY THE PREVIOUS F0G12230 63362 0767 00 0 00002 ALS 2 PARTIAL RESULT (OR ZERO) F0G12240 63363 0400 00 0 63133 ADD EKE BY 10, F0G12250 63364 0767 00 0 00001 ALS 1 AND ADD IN F0G12260 63365 0361 00 0 63131 ACL H THE CURRENT DIGIT. F0G12270 63366 1 00000 0 63352 TXI EC5,0,0 CONTINUE UNTIL NON-NUMERIC IS MET. F0G12280 63367 0500 00 0 63133 FN5 CLA EKE COMBINE EXPLICIT EXPONENT F0G12290 BINARY CARD NO. 9F070061 63370 0400 00 0 63130 ADD DOE WITH IMPLICIT EXPONENT, F0G12300 63371 0601 00 0 63130 STO DOE AND SAVE IN DOE. F0G12310 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 26 RECORD 7 OR 32 DEBUG 63372 0500 00 0 63127 FN4 CLA N IF N CONTAINS ZERO, TAKE F0G12320 63373 0100 00 0 63420 TZE MS9500 FLO PT CONSTANT RETURN. F0G12330 63374 0621 00 0 63432 STA K1 PUT INTEGER INTO FLO PT WORD, F0G12340 63375 0771 00 0 00017 ARS 15 ADJUST, AND F0G12350 63376 0100 00 0 63400 TZE FN1 IF MORE THAN 15 BITS IN LENGTH F0G12360 63377 -0501 00 0 63433 ORA K2 AFFIX CORRECT EXPONENT. F0G12370 63400 0300 00 0 63432 FN1 FAD K1 THEN FLOATING ADD THE RESULT F0G12380 63401 -0773 00 0 00010 RQL 8 OF INTEGER CONVERSION, AND F0G12390 63402 0760 00 0 00010 RND ROUND --TO OBTAIN F0G12400 63403 -0501 00 0 63434 ORA K3 NORMALIZED RESULT. F0G12410 63404 0534 00 1 63130 LXA DOE,1 EXAMINE THE C(DOE), AND F0G12420 63405 -3 00000 1 63420 TXL MS9500,1,0 IF ZERO, TAKE FLO PT RETURN. F0G12430 63406 -3 00062 1 63410 TXL FN2,1,50 IF GREATER THAN 50, THEN F0G12440 63407 0020 00 0 64114 TRA PLST ERROR. --GO TO PLST. F0G12450 63410 0560 00 0 63130 FN2 LDQ DOE DETERMINE WHETHER INTEGER WAS F0G12460 63411 0162 00 0 63423 TQP FN3 TO THE RIGHT OR TO THE LEFT OF DP. F0G12470 63412 0241 00 1 63520 FDP TAB,1 IF TO THE RIGHT, DIVIDE BY A F0G12480 63413 -0600 00 0 63127 STQ N SUITABLE CONSTANT F0G12490 63414 0500 00 0 63127 CLA N TO ADJUST RESULT F0G12500 63415 0361 00 0 63435 ACL K4 AND TEST FOR OUT OF RANGE. F0G12510 BINARY CARD NO. 9F070062 63416 -0760 00 0 00001 PBT IF P=1, SKIP TO ARITH RETURN. F0G12520 63417 0020 00 0 64114 TRA PLST ERROR. --GO TO PLST. F0G12530 63420 0601 00 0 63132 MS9500 STO G STORE IN G, AND F0G12540 63421 -0534 00 4 63261 EXITR LXD EXITT,4 RESTORE THE C(XR4), AND F0G12550 63422 0020 00 4 00001 TRA 1,4 *RETURN TO MAIN ROUTINE. F0G12560 63423 0601 00 0 63127 FN3 STO N IF INTEGER WAS SITUATED F0G12570 63424 0560 00 0 63127 LDQ N TO THE LEFT OF THE DECIMAL POINT, F0G12580 63425 0260 00 1 63520 FMP TAB,1 MULTIPLY BY A SUITABLE F0G12590 63426 0361 00 0 63436 ACL K5 CONSTANT TO ADJUST AND TEST RANGE. F0G12600 63427 -0760 00 0 00001 PBT F0G12610 63430 1 00000 0 63420 TXI MS9500,0,0 RETURN TO ARITHMETIC ROUTINE. F0G12620 63431 0020 00 0 64114 CER TRA PLST F0G12630 63432 +233000000000 K1 OCT 233000000000 CONSTANT USED BY ROYCNV. F0G12640 63433 +252000000000 K2 OCT 252000000000 CONSTANT USED BY ROYCNV. F0G12650 63434 +000400000000 K3 OCT 400000000 CONSTANT USED BY ROYCNV. F0G12660 63435 +335000000000 K4 OCT 335000000000 CONSTANT USED BY ROYCNV. F0G12670 63436 +043000000000 K5 OCT 43000000000 CONSTANT USED BY ROYCNV. F0G12680 63437 000000000025 L(E) BCD 100000E F0G12690 63440 +375536246150 OCT 375536246150 48-TABLE USED BY ROYCNV. F0G12700 63441 +372430204754 OCT 372430204754 47-TABLE USED BY ROYCNV. F0G12710 63442 +366700324573 OCT 366700324573 46-TABLE USED BY ROYCNV. F0G12720 63443 +363546566774 OCT 363546566774 45-TABLE USED BY ROYCNV. F0G12730 BINARY CARD NO. 9F070063 63444 +360436770626 OCT 360436770626 44-TABLE USED BY ROYCNV. F0G12740 63445 +354713132675 OCT 354713132675 43-TABLE USED BY ROYCNV. F0G12750 63446 +351557257061 OCT 351557257061 42-TABLE USED BY ROYCNV. F0G12760 63447 +346445677215 OCT 346445677215 41-TABLE USED BY ROYCNV. F0G12770 63450 +342726145174 OCT 342726145174 40-TABLE USED BY ROYCNV. F0G12780 63451 +337570120775 OCT 337570120775 39-TABLE USED BY ROYCNV. F0G12790 63452 +334454732312 OCT 334454732312 38-TABLE USED BY ROYCNV. F0G12800 63453 +330741367020 OCT 330741367020 37-TABLE USED BY ROYCNV. F0G12810 63454 +325601137163 OCT 325601137163 36-TABLE USED BY ROYCNV. F0G12820 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 27 RECORD 7 OR 32 DEBUG 63455 +322464114134 OCT 322464114134 35-TABLE USED BY ROYCNV. F0G12830 63456 +316755023372 OCT 316755023372 34-TABLE USED BY ROYCNV. F0G12840 63457 +313612334310 OCT 313612334310 33-TABLE USED BY ROYCNV. F0G12850 63460 +310473426555 OCT 310473426555 32-TABLE USED BY ROYCNV. F0G12860 63461 +304770675742 OCT 304770675742 31-TABLE USED BY ROYCNV. F0G12870 63462 +301623713116 OCT 301623713116 30-TABLE USED BY ROYCNV. F0G12880 63463 +276503074076 OCT 276503074076 29-TABLE USED BY ROYCNV. F0G12890 63464 +273402374713 OCT 273402374713 28-TABLE USED BY ROYCNV. F0G12900 63465 +267635456171 OCT 267635456171 27-TABLE USED BY ROYCNV. F0G12910 63466 +264512676456 OCT 264512676456 26-TABLE USED BY ROYCNV. F0G12920 63467 +261410545213 OCT 261410545213 25-TABLE USED BY ROYCNV. F0G12930 63470 +255647410337 OCT 255647410337 24-TABLE USED BY ROYCNV. F0G12940 63471 +252522640262 OCT 252522640262 23-TABLE USED BY ROYCNV. F0G12950 BINARY CARD NO. 9F070064 63472 +247417031702 OCT 247417031702 22-TABLE USED BY ROYCNV. F0G12960 63473 +243661534466 OCT 243661534466 21-TABLE USED BY ROYCNV. F0G12970 63474 +240532743536 OCT 240532743536 20-TABLE USED BY ROYCNV. F0G12980 63475 +235425434430 OCT 235425434430 19-TABLE USED BY ROYCNV. F0G12990 63476 +231674055530 OCT 231674055530 18-TABLE USED BY ROYCNV. F0G13000 63477 +226543212741 OCT 226543212741 17-TABLE USED BY ROYCNV. F0G13010 63500 +223434157116 OCT 223434157116 16-TABLE USED BY ROYCNV. F0G13020 63501 +217706576512 OCT 217706576512 15-TABLE USED BY ROYCNV. F0G13030 63502 +214553630410 OCT 214553630410 14-TABLE USED BY ROYCNV. F0G13040 63503 +211443023471 OCT 211443023471 13-TABLE USED BY ROYCNV. F0G13050 63504 +205721522451 OCT 205721522451 12-TABLE USED BY ROYCNV. F0G13060 63505 +202564416672 OCT 202564416672 11-TABLE USED BY ROYCNV. F0G13070 63506 +177452013710 OCT 177452013710 10-TABLE USED BY ROYCNV. F0G13080 63507 +173734654500 OCT 173734654500 09-TABLE USED BY ROYCNV. F0G13090 63510 +170575360400 OCT 170575360400 08-TABLE USED BY ROYCNV. F0G13100 63511 +165461132000 OCT 165461132000 07-TABLE USED BY ROYCNV. F0G13110 63512 +161750220000 OCT 161750220000 06-TABLE USED BY ROYCNV. F0G13120 63513 +156606500000 OCT 156606500000 05-TABLE USED BY ROYCNV. F0G13130 63514 +153470400000 OCT 153470400000 04-TABLE USED BY ROYCNV. F0G13140 63515 +147764000000 OCT 147764000000 03-TABLE USED BY ROYCNV. F0G13150 63516 +144620000000 OCT 144620000000 02-TABLE USED BY ROYCNV. F0G13160 63517 +141500000000 OCT 141500000000 01-TABLE USED BY ROYCNV. F0G13170 BINARY CARD NO. 9F070065 63520 +136400000000 TAB OCT 136400000000 00-TABLE USED BY ROYCNV. F0G13180 * F0G13190 SEARCHES SYMBOL TABLE FOR BCD CHARACTER IN AC (TERMINATED) F0G13200 WITH A BLANK IF LESS THAN 6 CHARACTERS) F0G13210 RETURNS 1,4 NOT FOUND F0G13220 RETURNS 2,4 FOUND IRA = TAG FOR LOCATING F0G13230 63521 0534 00 1 65730 STSCH LXA L(1),1 F0G13240 63522 -0534 00 2 70727 LXD STBLE,2 F0G13250 63523 0340 00 1 70727 CAS STBL,1 F0G13260 63524 1 00000 0 63526 TXI *+2,0,0 F0G13270 63525 0020 00 4 00002 TRA 2,4 FOUND F0G13280 63526 1 00002 1 63527 TXI *+1,1,2 F0G13290 63527 2 00002 2 63523 TIX *-4,2,2 $F0G13300 63530 0020 00 4 00001 TRA 1,4 NOT IN F0G13310 * F0G13320 DETERMINE UPPER LOWER P - D AND ERASEABLE F0G13330 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 28 RECORD 7 OR 32 DEBUG 63531 0634 00 4 63554 CERASE SXA CERASA,4 SAVE XR4 (20)F0G13340 63532 0500 00 0 66004 CLA UMC8 (20)F0G13350 63533 0400 00 0 73170 ADD COMN (20)F0G13360 63534 0621 00 0 66016 STA UCOMMN LOWER COMMON (20)F0G13370 63535 0500 00 0 70727 CLA STBLE (20)F0G13380 63536 0621 00 0 66006 STA LCOMPC-1 E LOWER P.D.-1 (REL) (20)F0G13390 63537 0621 00 0 66002 STA UMC8-2 A UPPER ERASABLE (REL) (20)F0G13400 63540 0400 00 0 73200 L(ADD) ADD LADD (20)F0G13410 63541 0621 00 0 66014 STA UCOMMN-2 J UPPER ERASABLE (ABS) (20)F0G13420 63542 0621 00 0 66013 STA UCOMMN-3 (20)F0G13430 63543 0400 00 0 65730 ADD L(1) (20)F0G13440 63544 0621 00 0 66000 STA LPROGD LOWER PROGRAM DATA (20)F0G13450 63545 -0534 00 2 70727 LXD STBLE,2 NUMBER OF ENTRIES IN SYMBOL TABLE (20)F0G13460 BINARY CARD NO. 9F070066 63546 0534 00 1 65730 LXA L(1),1 (20)F0G13470 63547 0500 00 1 70726 CEAPP CLA STBL-1,1 (20)F0G13480 63550 -0734 00 4 00000 PDX 0,4 (20)F0G13490 63551 3 00002 4 63556 TXH CERASB,4,2 GO TILL 3 IN DECREMENT (20)F0G13500 63552 1 00002 1 63553 TXI *+1,1,2 GET NEXT TABLE ENTRY (20)F0G13510 63553 2 00002 2 63547 TIX CEAPP,2,2 ANY MORE ENTRIES (20)F0G13520 63554 0774 00 4 00000 CERASA AXT **,4 NO, RETURN TO CALLER (20)F0G13530 63555 0020 00 4 00001 TRA 1,4 (20)F0G13540 63556 -0500 00 1 70730 CERASB CAL STBL+1,1 NEXT HIGHER ENTRY (20)F0G13550 63557 -0734 00 4 00000 PDX 0,4 (20)F0G13560 63560 0634 00 4 63605 SXA PATCHB,4 SAVE DECREMENT (20)F0G13570 63561 -0500 00 1 70727 CAL STBL,1 SYMBOL ITSELF (20)F0G13580 63562 0771 00 0 00036 ARS 30 (20)F0G13590 63563 0402 00 0 65734 SUB L(8) (20)F0G13600 63564 0100 00 0 63570 TZE CERASC 8) I.E. FORMAT (20)F0G13610 63565 0400 00 0 65731 ADD L(2) (20)F0G13620 63566 0100 00 0 63570 TZE CERASC 6) (20)F0G13630 63567 1 00002 1 63561 TXI *-6,1,2 (20)F0G13640 63570 -0500 00 1 70730 CERASC CAL STBL+1,1 (20)F0G13650 63571 -0734 00 4 00000 PDX 0,4 (20)F0G13660 63572 3 00002 4 63574 TXH *+2,4,2 GO FOR 3 (I.E. GOOD ERASABLE) (20)F0G13670 63573 -0500 00 0 66002 CAL UMC8-2 (20)F0G13680 BINARY CARD NO. 9F070067 63574 0402 00 0 65730 L(SUB) SUB L(1) (20)F0G13690 63575 0621 00 0 66005 STA LCOMPC-2 D LOWER ERASE-1 (REL) (20)F0G13700 63576 0400 00 0 73200 ADD LADD (20)F0G13710 63577 0621 00 0 66010 STA LCOMMN-2 G LOWER ERASE-1 (ABS) (20)F0G13720 63600 -0500 00 0 73167 CAL PBREAK (20)F0G13730 63601 0402 00 0 65730 SUB L(1) (20)F0G13740 63602 0621 00 0 66003 STA UMC8-1 B PROG. BREAK-1 (20)F0G13750 63603 0400 00 0 73200 ADD LADD (20)F0G13760 63604 0621 00 0 66015 STA UCOMMN-1 K P.B.-1 + LADD (20)F0G13761 63605 0774 00 4 00000 PATCHB AXT **,4 (20)F0G13762 63606 -3 00001 4 63610 TXL *+2,4,1 TEST FOR PROG. VAR. (20)F0G13763 63607 -0500 00 0 66013 CAL UCOMMN-3 YES, USE LOWER P.D.-1 (20)F0G13764 63610 0621 00 0 66011 STA LCOMMN-1 NO, USE PROG. BR.-1+LADD (20)F0G13770 63611 0020 00 0 63554 TRA CERASA (20)F0G13780 63612 0 00000 0 00000 PZE (NOT USED) (20)F0G13790 63613 0 00000 0 00000 PZE (NOT USED) (20)F0G13800 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 29 RECORD 7 OR 32 DEBUG * F0G13810 COMPUTES ABS ADDRESS OF ENTRY STBL-1,1 F0G13820 63614 0600 00 0 63127 STAA STZ TEMP F0G13830 63615 -0500 00 1 70726 CAL STBL-1,1 F0G13840 63616 0621 00 0 63127 STA TEMP ADDRESS IN SYMBOL TABLE F0G13850 63617 0771 00 0 00017 ARS 15 F0G13860 63620 -0734 00 2 00000 PDX 0,2 BIT PATTERN TO IRB F0G13870 63621 -3 00000 2 63631 TXL STAARN,2,0 RETURN FOR NO RELOCATION F0G13880 BINARY CARD NO. 9F070068 63622 0500 00 0 63127 CLA TEMP F0G13890 63623 0402 00 0 73167 SUB PBREAK F0G13900 63624 0120 00 0 63635 TPL UM TRANSFER FOR UPPER MEMORY F0G13910 63625 -3 00002 2 63632 LM TXL LMA,2,2 F0G13920 63626 0500 00 0 63127 CLA TEMP (LM BIT 11) (UM BIT 10) F0G13930 63627 0400 00 0 73170 ADD COMN ADD COMMON REASSIGNMENT F0G13940 63630 0621 00 0 63127 STA TEMP F0G13950 63631 0020 00 4 00001 STAARN TRA 1,4 F0G13960 63632 0500 00 0 63127 LMA CLA TEMP (LM BIT 10) (UM BIT 11) F0G13970 63633 0400 00 0 73200 ADD LADD ADD LOADING ADDRESS F0G13980 63634 1 00000 0 63630 TXI *-4,0,0 F0G13990 63635 -3 00002 2 63626 UM TXL LM+1,2,2 F0G14000 63636 1 00000 0 63632 TXI LMA,0,0 F0G14010 LM 10 = LM + LADD, LM 11 = LM + CR F0G14020 UM 10 = UM + CR, UM 11 = UM + LADD F0G14030 * F0G14040 ALPHABETIC IN AC - FORM SYMBOL - LOOK UP IN F0G14050 SYMBOL TABLE - ADJUST ADDRESS - (USED FOR IF PROCESSING) F0G14060 (OCTAL DUMP) FIELD SEPARATOR IN 1H AT COMPLETION F0G14070 63637 0074 00 4 63150 TSX C0190,4 F0G14080 63640 0634 00 2 63653 FSAA SXA FSAAR,2 F0G14090 63641 0074 00 2 63205 TSX C0160,2 FORM SYMBOL F0G14100 63642 0500 00 0 65772 CLA 1G F0G14110 63643 3 00000 1 63667 TXH FSAAS,1,0 SPECIAL CHARACTER F0G14120 63644 0074 00 4 63521 TSX STSCH,4 SEARCH SYMBOL TABLE F0G14130 63645 1 00000 0 63677 TXI FSERR,0,0 NOT IN F0G14140 63646 0074 00 4 63614 TSX STAA,4 ADJUST ADDRESS F0G14150 63647 0500 00 0 63126 FSAAB CLA 1H F0G14160 BINARY CARD NO. 9F070069 63650 0402 00 0 63140 SUB LPAR F0G14170 63651 0100 00 0 63655 TZE *+4 F0G14180 63652 0500 00 0 63127 CLA TEMP NOT SUBSCRIPTED F0G14190 63653 0774 00 2 00000 FSAAR AXT **,2 F0G14200 63654 0020 00 2 00001 TRA 1,2 RETURN F0G14210 63655 0074 00 2 63167 TSX C0180X,2 GET SUBSCRIPT F0G14220 63656 0402 00 0 63144 SUB RPAR F0G14230 63657 -0100 00 0 63677 TNZ FSERR F0G14240 63660 0500 00 0 63127 CLA TEMP SUBTRACT F0G14250 63661 -0400 00 0 65772 SBM 1G SUBSCRIPT F0G14260 63662 0401 00 0 65730 ADM L(1) ADD 1 F0G14270 63663 0621 00 0 63127 STA TEMP F0G14280 63664 0074 00 4 63150 TSX C0190,4 NEXT CHARACTER TO F0G14290 63665 0601 00 0 63126 STO 1H 1H F0G14300 63666 0020 00 0 63653 TRA FSAAR F0G14310 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 30 RECORD 7 OR 32 DEBUG 63667 0774 00 3 00000 FSAAS AXT 0,3 F0G14320 63670 0774 00 4 00004 AXT 4,4 LOOK FOR F0G14330 63671 0340 00 2 66600 CAS TSPCH,2 SPECIAL SYMBOL F0G14340 63672 1 00000 0 63674 TXI *+2,0,0 F0G14350 63673 1 00000 0 63702 TXI FSERR+3,0,0 FOUND F0G14360 63674 1 77777 2 63675 TXI *+1,2,-1 F0G14370 63675 1 00001 1 63676 TXI *+1,1,1 F0G14380 BINARY CARD NO. 9F070070 63676 2 00001 4 63671 TIX *-5,4,1 F0G14390 63677 -0520 00 0 66102 FSERR NZT VI F0G14400 63700 0020 00 0 64115 TRA PLIST (IF) TROUBLE F0G14410 63701 0020 00 0 64124 TRA MTCB (LIST) TROUBLE F0G14420 63702 0500 00 1 66016 CLA UCOMMN,1 F0G14430 63703 0601 00 0 63127 STO TEMP REFERENCE ADDRESS F0G14440 63704 0020 00 0 63647 TRA FSAAB F0G14450 * F0G14460 * F0G14470 CHECKS AC FOR - TO MTCB OTHERWISE F0G14480 63705 0340 00 0 63143 CACMD CAS MINUS F0G14490 63706 0020 00 0 63710 TRA *+2 F0G14500 63707 0020 00 4 00001 TRA 1,4 F0G14510 63710 0402 00 0 63147 SUB DASH F0G14520 63711 0100 00 4 00001 TZE 1,4 F0G14530 63712 0020 00 0 64124 TRA MTCB F0G14540 NEXT CHARACTER, WORD, RETURN 1,4 FOR YES OR NO F0G14550 OTHERWISE PLIST, MQ = + NO, MQ = - FOR YES, F0G14560 USED FOR IF COMPILING F0G14570 63713 0634 00 4 63715 YESNO SXA *+2,4 F0G14580 63714 0074 00 2 63204 TSX C0160X,2 FORM FIELD F0G14590 63715 0774 00 4 00000 AXT **,4 RESTORE 4 F0G14600 63716 0500 00 0 65772 CLA 1G F0G14610 63717 0340 00 0 65740 CAS YES F0G14620 63720 1 00000 0 63722 TXI *+2,0,0 F0G14630 63721 1 00000 0 63727 TXI *+6,0,0 YES ENCOUNTERED F0G14640 63722 0402 00 0 65736 SUB NO F0G14650 63723 -0100 00 0 64114 TNZ PLST ILLEGAL F0G14660 BINARY CARD NO. 9F070071 63724 0560 00 0 63174 LDQ L(0) HERE FOR NO (MQ=+) F0G14670 63725 0500 00 0 63126 CLA 1H NEXT CHARACTER F0G14680 63726 0020 00 4 00001 TRA 1,4 F0G14690 63727 0560 00 0 66106 LDQ IFINS+3 HERE FOR YES (MQ=-) F0G14700 63730 0020 00 0 63725 TRA *-3 F0G14710 BIT PATTERN GENERATOR FOR IFS F0G14720 BPIFZ FOR ZERO, BPIF1 FOR 1 F0G14730 63731 0500 00 0 66112 BPIFZ CLA BPIF F0G14740 63732 0767 00 0 00001 ALS 1 F0G14750 63733 0621 00 0 66112 STA BPIF F0G14760 63734 0020 00 4 00001 TRA 1,4 F0G14770 63735 0500 00 0 66112 BPIF1 CLA BPIF F0G14780 63736 -0501 00 0 65730 ORA L(1) F0G14790 63737 0020 00 0 63732 TRA BPIFZ+1 F0G14800 * F0G14810 SUBROUTINE FOR COMPILING F0G14820 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 31 RECORD 7 OR 32 DEBUG IRA = STORING TAG, IRB = NO OF INST TO COMPILE F0G14830 LC = INITIAL ADD, LCP = PSEUDO INITIAL ADD F0G14840 MQ = BIT PATTERN, CALL TSX COMPLE,4 F0G14850 RTN = 2,4 WITH IRA INCREMENTED BY -1 F0G14860 63740 0500 60 4 00001 COMPLE CLA* 1,4 INSTRUCTION TO AC F0G14870 63741 0601 60 0 66001 STO* LCP STORE F0G14880 63742 0162 00 0 63747 TQP *+5 F0G14890 63743 0754 00 1 00000 PXA 0,1 ADJUST ADDRESS F0G14900 63744 0402 00 0 66001 SUB LC FOR ADDRESS OF F0G14910 63745 0361 60 4 00001 ACL* 1,4 TYPE F0G14920 63746 0621 60 0 66001 STA* LCP *(+ OR-) NUMBER F0G14930 63747 1 77777 1 63750 TXI *+1,1,-1 MODIFY STORING TAG F0G14940 63750 -0773 00 0 00001 RQL 1 NEXT BIT OF BIT PATTERN F0G14950 63751 2 00001 2 63740 TIX COMPLE,2,1 F0G14960 BINARY CARD NO. 9F070072 63752 0754 00 1 00000 PXA 0,1 CHECK F0G14970 63753 0402 00 0 66001 SUB LC FOR F0G14980 63754 -0340 00 0 73172 LAS OVLP OVERLAP F0G14990 63755 0020 00 0 73161 TRA PTOVL OF F0G15000 63756 0761 00 0 00000 NOP DATA OR F0G15010 63757 0400 00 0 73171 ADD LCOMN TABLES F0G15020 63760 -0120 00 0 73157 TMI PDOVL AND PROGRAM F0G15030 63761 0020 00 4 00002 TRA 2,4 RETURN F0G15040 * F0G15050 THIS TAKES NAM AND SUBS, AND STORES BCD PACKED F0G15060 TO THE RIGHT IN BUF, + 1, + 2 AND COMPILES IN FORMAT F0G15070 FOLLOWED BY NUMERIC F0G15080 63762 0500 00 0 65746 NSTB CLA BLANKS BLANK F0G15090 63763 0774 00 1 00000 FMTCP AXT **,1 ADDRESS = COM OF FORMAT TAG F0G15100 63764 -3 77464 1 64042 TXL OVFO,1,-NEFMTT+3 FORMAT TOO LARGE F0G15110 63765 -0634 00 1 64017 SXD NSTBEA,1 F0G15120 63766 0601 00 1 66226 STO FMT,1 BLANKS AS NEXT FORMAT WORD F0G15130 63767 0534 00 2 63174 LXA L(0),2 F0G15140 63770 -0500 00 0 66164 CAL SUBS BCD SUBS TO AC F0G15150 63771 0100 00 0 64006 TZE NSTBC TRA FOR NOSUBSCRIPT F0G15160 63772 0767 00 0 00006 ALS 6 FOLLOW F0G15170 63773 -0501 00 0 63144 ORA RPAR SUBSCRIPT WITH) F0G15180 63774 -0765 00 0 00006 LGR 6 F0G15190 63775 1 00006 2 63776 TXI *+1,2,6 F0G15200 63776 -0100 00 0 63774 TNZ *-2 NEXT CHAR F0G15210 63777 -3 00036 2 64003 TXL NSTBA,2,30 LEAVE IF LESS THAN 6 CHAR F0G15220 BINARY CARD NO. 9F070073 64000 -0600 00 1 66230 STQ FMT+2,1 F0G15230 64001 1 00001 1 64002 TXI *+1,1,1 UPDATE BUF STORING TAG F0G15240 64002 0534 00 2 63174 LXA L(0),2 RESET CHAR COUNTING TAG F0G15250 64003 -0500 00 0 63140 NSTBA CAL LPAR PRECEED SUBSCRIPT WITH ( F0G15260 64004 -0765 00 0 00006 LGR 6 F0G15270 64005 1 00006 2 64006 TXI *+1,2,6 F0G15280 64006 -0500 00 0 66163 NSTBC CAL NAM NAME TO AC F0G15290 64007 -3 00036 2 64013 NSTBD TXL NSTBE,2,30 F0G15300 64010 -0600 00 1 66230 STQ FMT+2,1 F0G15310 64011 1 00001 1 64012 TXI *+1,1,1 UPDATE STORING TAG F0G15320 64012 0534 00 2 63174 LXA L(0),2 RESET 2 F0G15330 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 32 RECORD 7 OR 32 DEBUG 64013 -0765 00 0 00006 NSTBE LGR 6 F0G15340 64014 1 00006 2 64015 TXI *+1,2,6 F0G15350 64015 -0100 00 0 64007 TNZ NSTBD F0G15360 64016 -0500 00 0 65746 CAL BLANKS F0G15370 64017 3 00000 1 64021 NSTBEA TXH *+2,1,** SKIP BLANK FOR GREATER THAN 6 CHAR F0G15380 64020 0602 00 1 66227 SLW FMT+1,1 STORE BLANKS F0G15390 64021 -0765 00 2 00044 L(36) LGR 36,2 FILL WITH BLANKS F0G15400 64022 -0600 00 1 66230 STQ FMT+2,1 F0G15410 64023 0560 00 0 66162 NSTBF LDQ 15H PRECEED NAME F0G15420 64024 0534 00 1 63763 LXA FMTCP,1 WITH F0G15430 64025 -0620 00 1 66226 SLQ FMT,1 15H F0G15440 BINARY CARD NO. 9F070074 64026 1 77775 1 64027 TXI *+1,1,-3 F0G15450 64027 -0534 00 2 66171 LXD CCNT,2 C-COUNT F0G15460 64030 1 00001 2 64031 TXI *+1,2,1 F0G15470 64031 -3 00003 2 64034 TXL *+3,2,3 F0G15480 64032 0500 00 0 66166 CLA ESL E/ F0G15490 64033 1 77774 2 64035 TXI *+2,2,-4 F0G15500 64034 0500 00 0 66167 CLA ECM E, F0G15510 64035 0601 00 1 66226 STO FMT,1 F0G15520 64036 1 77777 1 64037 TXI *+1,1,-1 F0G15530 64037 0634 00 1 63763 SXA FMTCP,1 F0G15540 64040 -0634 00 2 66171 SXD CCNT,2 SAVE WORD COUNT F0G15550 64041 0020 00 4 00001 TRA 1,4 F0G15560 64042 -0534 00 1 66142 OVFO LXD COMTG,1 F0G15570 64043 0020 00 0 65115 TRA EXIT+2 F0G15580 * F0G15590 THIS TAKES 1G AND RIGHT ADJUSTS SYMBOL F0G15600 64044 0560 00 0 65772 RGHTA LDQ 1G F0G15610 64045 0774 00 2 77772 AXT -6,2 F0G15620 64046 1 00006 2 64047 TXI *+1,2,6 F0G15630 64047 3 00036 2 64054 TXH *+5,2,30 LEAVE FOR 6 CHARACTER SYMBOL F0G15640 64050 -0754 00 0 00000 PXD 0,0 F0G15650 64051 -0763 00 0 00006 LGL 6 F0G15660 64052 0402 00 0 65747 SUB ABLANK F0G15670 64053 -0100 00 0 64046 TNZ *-5 F0G15680 BINARY CARD NO. 9F070075 64054 0560 00 0 65772 LDQ 1G F0G15690 64055 -0754 00 0 00000 PXD 0,0 F0G15700 64056 0634 00 2 64057 SXA *+1,2 F0G15710 64057 -0763 00 0 00000 LGL ** F0G15720 64060 0020 00 4 00001 TRA 1,4 F0G15730 * F0G15740 TAKES AC (RIGHT ADJ) AND PUTS IN LEADING BLANKS F0G15750 RESULT IN MQ F0G15760 64061 0534 00 2 63174 BLKSR LXA L(0),2 F0G15770 64062 -0765 00 0 00006 LGR 6 F0G15780 64063 0100 00 0 64065 TZE *+2 F0G15790 64064 1 00006 2 64062 TXI *-2,2,6 F0G15800 64065 -0500 00 0 65746 CAL BLANKS F0G15810 64066 -0765 00 2 00036 LGR 30,2 F0G15820 64067 0020 00 4 00001 TRA 1,4 F0G15830 * F0G15840 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 33 RECORD 7 OR 32 DEBUG TAKES MQ AND CONVERTS TO BCD STORING INDIRECTLY 1,4 F0G15850 64070 0600 60 4 00001 TOBCD STZ* 1,4 F0G15860 64071 0534 00 2 64021 LXA L(36),2 F0G15870 64072 -0754 00 0 00000 PXD 0,0 F0G15880 64073 0221 00 0 63136 DVP L(10) F0G15890 64074 0767 00 2 00044 ALS 36,2 F0G15900 64075 -0602 60 4 00001 ORS* 1,4 F0G15910 64076 2 00006 2 64072 TIX *-4,2,6 F0G15920 64077 0020 00 4 00002 TRA 2,4 F0G15930 64100 0500 00 1 66141 EFNZ CLA EFNRT,1 TRANSFER F0G15940 64101 0621 00 0 64112 STA EFNZA TO NEXT F0G15950 BINARY CARD NO. 9F070076 64102 -0534 00 4 66142 LXD COMTG,4 COUNTER TEST F0G15960 64103 0754 00 4 00000 PXA 0,4 MODIFY EXIT F0G15970 64104 0402 00 0 66001 SUB LCP FOR F0G15980 64105 0621 00 1 66141 STA EFNRT,1 THIS EFN F0G15990 64106 0754 00 4 00000 PXA 0,4 INSTEAD OF F0G16000 64107 0402 00 0 66001 SUB LC RETURNING TO F0G16010 64110 0621 00 0 66141 STA TRA2 F0G16020 64111 0361 00 0 65730 ACL L(1) F0G16030 64112 0621 00 0 00000 EFNZA STA ** OBJECT PROGRAM F0G16040 64113 0020 00 0 64513 TRA CNTRC-3 F0G16050 INCORRECT IF FORMAT ENCOUNTERED F0G16060 64114 0500 00 0 63126 PLST CLA 1H F0G16070 64115 0340 00 0 63142 PLIST CAS DOLS F0G16080 64116 1 00000 0 64120 TXI *+2,0,0 F0G16090 64117 0020 00 0 64776 TRA LIST-1 $ ENCOUNTERED F0G16100 64120 0402 00 0 63137 SUB ENDMK F0G16110 64121 0100 00 0 65150 TZE POET-5 F0G16120 64122 0074 00 4 63150 TSX C0190,4 NEXT CHARACTER F0G16130 64123 0020 00 0 64115 TRA PLIST F0G16140 THIS CHECK FOR COMMA AND 77 F0G16150 64124 0500 00 0 63126 MTCB CLA 1H RESET NEXT CHARACTER F0G16160 64125 0774 00 2 12665 AXT -EXIT,2 ERROR LOAD F0G16170 64126 0340 00 0 63141 MTC CAS CMA F0G16180 64127 0020 00 0 64131 TRA *+2 F0G16190 BINARY CARD NO. 9F070077 64130 0020 00 2 00001 TRA 1,2 EXIT F0G16200 64131 0402 00 0 63137 SUB ENDMK F0G16210 64132 0100 00 0 64135 TZE MTCA F0G16220 64133 0074 00 4 63150 TSX C0190,4 NEXT CHAR. TO AC F0G16230 64134 0020 00 0 64125 TRA MTC-1 SET ERROR EXIT F0G16240 64135 -0534 00 1 66142 MTCA LXD COMTG,1 F0G16250 64136 0500 00 0 65114 CLA EXIT+1 SET F0G16260 64137 0602 00 0 65114 SLW EXIT+1 EXIT SWITCH F0G16270 64140 0020 00 2 00001 TRA 1,2 F0G16280 64141 0074 00 4 63150 MTM TSX C0190,4 F0G16290 64142 0402 00 0 63137 SUB ENDMK F0G16300 64143 -0100 00 0 64141 TNZ *-2 F0G16310 64144 0020 00 0 65150 TRA POET-5 F0G16320 64145 0020 00 0 03736 TROP2 TRA ORIGIN+2 F0G16330 64146 -0520 00 0 66101 TSWE NZT SWTBLN F0G16340 64147 0020 00 4 00001 TRA 1,4 F0G16350 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 34 RECORD 7 OR 32 DEBUG 64150 0600 00 0 64307 STZ SYMSW F0G16360 64151 0634 00 1 65211 SXA RESTOR,1 F0G16370 64152 0634 00 2 65212 SXA RESTOR+1,2 F0G16380 64153 0634 00 4 65213 SXA RESTOR+2,4 F0G16390 64154 0601 00 0 64310 STO S(AC) F0G16400 64155 0500 00 0 64145 CLA TROP2 INSERT STR RETURN F0G16410 (TRA ORIGIN+2) IN LOCATION 2 LATER $F0G16420 BINARY CARD NO. 9F070078 64156 0601 00 0 03736 STO ORIGIN+2 AND TRA AS OP CODE IN 3RD COMPILED INSTR.F0G16430 64157 0500 00 0 73166 CLA S PUT TRA SW F0G16440 64160 0621 00 0 66001 STA LC IN 2 F0G16450 64161 0621 00 0 03736 STA ORIGIN+2 F0G16460 64162 0774 00 1 00000 AXT 0,1 MOVE F0G16470 64163 0774 00 2 00044 AXT 36,2 STBL INSTRUCTIONS F0G16480 64164 0560 00 0 64304 LDQ BPSWT1 F0G16490 64165 0074 00 4 63740 TSX COMPLE,4 F0G16500 64166 0 00000 2 64260 PZE SW+36,2 F0G16510 64167 0774 00 2 00024 AXT 20,2 F0G16520 64170 0560 00 0 64305 LDQ BPSWT2 F0G16530 64171 0074 00 4 63740 TSX COMPLE,4 F0G16540 64172 0 00000 2 64304 PZE SW+56,2 F0G16550 64173 -0535 00 2 66101 LDC SWTBLN,2 MOVE F0G16560 64174 0774 00 4 00000 AXT 0,4 TABLE F0G16570 64175 0500 00 4 66017 CLA SWTBLE,4 F0G16580 64176 0601 60 0 66001 STO* LCP F0G16590 64177 1 77777 1 64200 TXI *+1,1,-1 F0G16600 64200 1 77777 4 64201 TXI *+1,4,-1 F0G16610 64201 2 00001 2 64175 TIX *-4,2,1 F0G16620 64202 0500 00 0 64302 CLA MSK3 FOLLOWED BY F0G16630 64203 0601 60 0 66001 STO* LCP 77...77 F0G16640 BINARY CARD NO. 9F070079 64204 0754 00 1 00000 PXA 0,1 CHECK F0G16650 64205 0402 00 0 66001 SUB LCP FOR DATA F0G16660 64206 0734 00 1 00000 PAX 0,1 SAVE F0G16670 64207 1 00001 1 64210 TXI *+1,1,1 S F0G16680 64210 0634 00 1 73166 SXA S,1 FOR LINK LOADING F0G16690 64211 0400 00 0 73171 ADD LCOMN OVERLAP F0G16700 64212 -0120 00 0 73157 TMI PDOVL F0G16710 64213 0020 00 0 65211 TRA RESTOR F0G16720 PROGRAM FOR EXECUTING REPLACED INSTRUCTIONS ETC F0G16730 64214 3 00000 0 00053 SW TXH 43,0,0 1 F0G16740 64215 -0634 00 4 00024 SXD 20,4 2 F0G16750 64216 -0634 00 2 00050 SXD 40,2 3 F0G16760 64217 0601 00 0 00061 STO 49 4 F0G16770 64220 -0600 00 0 00061 STQ 49 5 F0G16780 64221 -0634 00 1 00013 SXD 11,1 6 F0G16790 64222 0502 00 0 77772 CLS -6 7 F0G16800 64223 0601 00 0 77771 STO -7 8 F0G16810 64224 0534 00 1 00000 LXA 0,1 9 F0G16820 64225 0634 00 1 00052 SXA 42,1 10 F0G16830 64226 0600 00 0 00000 STZ 0 11 F0G16840 64227 1 77777 1 00001 TXI 1,1,-1 12 F0G16850 64230 0634 00 1 00000 SXA 0,1 13 F0G16860 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 35 RECORD 7 OR 32 DEBUG 64231 -0534 00 1 77763 LXD -13,1 14 F0G16870 BINARY CARD NO. 9F070080 64232 0500 00 1 00052 CLA 42,1 15 F0G16880 64233 0340 00 0 00047 CAS 39 16 F0G16890 64234 1 00000 0 00002 TXI 2,0,0 17 F0G16900 64235 0020 00 0 00032 TRA 26 18 F0G16910 64236 -0765 00 0 00022 LGR 18 19 F0G16920 64237 -0340 00 0 00000 LAS 0 20 F0G16930 64240 1 77776 1 77772 TXI -6,1,-2 21 F0G16940 64241 1 00000 0 00002 TXI 2,0,0 22 F0G16950 64242 1 77776 1 77770 TXI -8,1,-2 23 F0G16960 64243 -0763 00 0 00022 LGL 18 24 F0G16970 64244 0621 00 0 00017 STA 15 25 F0G16980 64245 0560 60 0 00000 LDQ* 0 26 F0G16990 64246 0760 00 0 00000 CLM 27 F0G17000 64247 -0501 00 1 00036 ORA 30,1 28 F0G17010 64250 -0120 00 0 00014 TMI 12 29 F0G17020 64251 -0600 00 0 00011 STQ 9 30 F0G17030 64252 0630 00 0 00010 STP 8 31 F0G17040 64253 0560 00 0 00030 LDQ 24 32 F0G17050 64254 -0600 00 0 00022 STQ 18 33 F0G17060 64255 0500 00 0 00023 CLA 19 34 F0G17070 64256 0560 00 0 00023 LDQ 19 35 F0G17080 64257 -0534 00 1 77755 LXD -19,1 36 F0G17090 BINARY CARD NO. 9F070081 64260 -0534 00 4 77761 LXD -15,4 37 F0G17100 64261 -0534 00 2 00005 LXD 5,2 38 F0G17110 64262 0000 00 0 00000 HTR 0 39 F0G17120 64263 0020 00 0 00000 TRA 0 40 F0G17130 64264 -0600 00 0 00012 STQ 10 41 F0G17140 64265 0630 00 0 00011 STP 9 42 F0G17150 64266 1 00000 0 77775 TXI -3,0,0 43 F0G17160 64267 0502 00 0 77725 CLS -43 44 F0G17170 64270 0601 00 0 77724 STO -44 45 F0G17180 64271 0500 00 0 00007 CLA 7 46 F0G17190 64272 0560 00 0 00007 LDQ 7 47 F0G17200 64273 -0534 00 1 77741 LXD -31,1 48 F0G17210 64274 -0534 00 4 77745 LXD -27,4 49 F0G17220 64275 -0534 00 2 77771 LXD -7,2 50 F0G17230 64276 0761 00 0 00000 NOP 0 51 F0G17240 64277 0020 00 0 00000 TRA 0 52 F0G17250 64300 0000 00 0 00000 HTR 0 53 F0G17260 64301 0000 00 0 00000 HTR 0 54 F0G17270 64302 -377777777777 MSK3 OCT 777777777777 55 F0G17280 64303 0761 00 0 00000 NOP 0 56 F0G17290 64304 -376537164777 BPSWT1 OCT 776537164777 F0G17300 64305 -237760000000 BPSWT2 OCT 637760000000 F0G17310 * F0G17320 SEARCH DEBUG TABLE FOR SUBPROGRAM JUST LOADED F0G17330 BINARY CARD NO. 9F070082 64306 0 00000 0 00000 SSWT PZE $F0G17340 64307 0 00000 0 00000 SYMSW PZE F0G17350 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 36 RECORD 7 OR 32 DEBUG 64310 0 00000 0 00000 S(AC) PZE F0G17360 * F0G17370 64311 -0625 00 0 64307 STENT STL SYMSW SYMBOL TABLE ENTRY F0G17380 64312 0020 00 0 64314 TRA *+2 F0G17390 64313 0600 00 0 64307 TSSWT STZ SYMSW F0G17400 64314 0634 00 1 65211 SXA RESTOR,1 SAVE INDEX F0G17410 64315 0634 00 2 65212 SXA RESTOR+1,2 REGISTERS F0G17420 64316 0634 00 4 65213 SXA RESTOR+2,4 AND F0G17430 64317 0601 00 0 64310 STO S(AC) AC F0G17440 64320 -0520 00 0 64306 NZT SSWT F0G17450 64321 0020 00 0 65164 TRA TSYMSW NO DEBUG REQUESTED F0G17460 64322 0535 00 1 70730 BEGIN LAC DTBLS-1,1 2S COMP OF NUMBER OF ENTRIES F0G17470 64323 -3 00000 1 64333 TXL *+8,1,0 LEAVE FOR NO ENTRIES F0G17480 64324 -0634 00 1 64332 SXD *+6,1 F0G17490 64325 0534 00 1 63174 LXA L(0),1 F0G17500 64326 0500 00 0 73203 CLA SNAME PROGRAM JUST LOADED F0G17510 64327 0402 00 1 70731 SUB DTBLS,1 F0G17520 64330 0100 00 0 64334 TZE BEGNA FOUND F0G17530 64331 1 77776 1 64332 TXI *+1,1,-2 UPDATE F0G17540 64332 3 00000 1 64326 TXH *-4,1,** F0G17550 64333 0020 00 0 65162 TRA TSYMSW-2 F0G17560 BINARY CARD NO. 9F070083 64334 0500 00 1 70732 BEGNA CLA DTBLS+1,1 INITIALIZE F0G17570 64335 0622 00 0 63213 STD FWA C0190 FOR F0G17580 64336 -0634 00 0 63214 SXD CHCTR,0 PROPER TABLE F0G17590 INITIALIZE F0G17600 64337 0600 00 0 66113 FRMON STZ EFNCT F0G17610 64340 -0634 00 0 66142 SXD COMTG,0 F0G17620 64341 0500 00 0 73167 CLA PBREAK COMPUTE EXECUTION F0G17630 64342 0400 00 0 73200 ADD LADD ADDRESS FOR BEGINNING F0G17640 64343 0621 00 0 66001 STA LC OF GENERATED INSTRUCTS F0G17650 GET EFN AND MAKE TABLE ENTRIES F0G17660 64344 0074 00 4 63531 TSX CERASE,4 COMPUTE UPPER + LOWER ERASABLE ADD F0G17670 64345 0074 00 4 63150 TSX C0190,4 INSURE F0G17680 64346 0402 00 0 63137 SUB ENDMK PROPER F0G17690 64347 -0100 00 0 64141 TNZ MTM BEGINNING (I.E. 77) F0G17700 64350 0074 00 4 63150 EFNA TSX C0190,4 F0G17710 64351 0074 00 2 63205 TSX C0160,2 GET EFN IN BCD F0G17720 64352 3 00000 1 64141 TXH MTM,1,0 ILLEGAL EFN F0G17730 64353 0402 00 0 63137 SUB ENDMK F0G17740 64354 -0100 00 0 64141 TNZ MTM ILLEGAL CARD(77 MUST FOLLOW EFN) F0G17750 64355 0500 00 0 65772 CLA 1G EFN TO AC F0G17760 64356 0601 00 0 66143 STO CEFN EFN IN BCD F0G17770 64357 0074 00 4 63521 TSX STSCH,4 F0G17780 64360 1 00000 0 64141 TXI MTM,0,0 EFN NOT IN SYMBOL TABLE F0G17790 64361 -0634 00 1 66114 SXD EFNTAG,1 F0G17800 BINARY CARD NO. 9F070084 64362 -0534 00 3 66113 LXD EFNCT,3 F0G17810 64363 -3 00000 1 64373 TXL EFNB,1,0 F0G17820 64364 -0634 00 2 64372 SXD *+6,2 F0G17830 64365 0534 00 1 65730 LXA L(1),1 F0G17840 64366 0340 00 1 66127 CAS EFNTB,1 F0G17850 64367 1 00000 0 64371 TXI *+2,0,0 F0G17860 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 37 RECORD 7 OR 32 DEBUG 64370 1 00000 0 64100 TXI EFNZ,0,0 MULTIPLE SNAPS AT THIS EFN F0G17870 64371 1 00001 1 64372 TXI *+1,1,1 F0G17880 64372 -3 00000 1 64366 TXL *-4,1,** F0G17890 64373 1 00001 2 64374 EFNB TXI *+1,2,1 UPDATE F0G17900 64374 3 00012 2 64141 TXH MTM,2,10 F0G17910 64375 -0535 00 4 66101 LDC SWTBLN,4 F0G17920 64376 -3 00060 4 64400 TXL *+2,4,48 F0G17930 64377 0020 00 0 64141 TRA MTM F0G17940 64400 -0634 00 2 66113 SXD EFNCT,2 EFN COUNT F0G17950 64401 0601 00 2 66127 STO EFNTB,2 STO EFN F0G17960 64402 -0534 00 4 66142 LXD COMTG,4 SAVE IN EFNRT F0G17970 64403 0754 00 4 00000 PXA 0,4 THE ABSOLUTE EXECUTION F0G17980 64404 0402 00 0 66001 SUB LCP ADDRESS OF THE NEXT COMPILED INSTRUCTION F0G17990 64405 0621 00 2 66141 STA EFNRT,2 STO RETURN ADDRESS F0G18000 64406 -0534 00 2 66101 LXD SWTBLN,2 UPDATE F0G18010 64407 0754 00 4 00000 PXA 0,4 PUT ADDRESS OF SNAP EXIT F0G18020 BINARY CARD NO. 9F070085 64410 0402 00 0 66001 SUB LC IN TRA2 F0G18030 64411 0621 00 0 66141 STA TRA2 SAVE SNAP EXIT ADDRESS F0G18040 64412 0361 00 0 65730 ACL L(1) F0G18050 64413 0621 00 2 66017 STA SWTBLE,2 SNAP TO SWTABLE ADDRESS F0G18060 64414 0600 00 0 63127 EFNBA STZ TEMP F0G18070 64415 -0534 00 4 66114 LXD EFNTAG,4 COMPUTE F0G18080 64416 -0500 00 4 70726 CAL STBL-1,4 ABSOLUTE LOCATION F0G18090 64417 0361 00 0 73200 ACL LADD OF EFN TO START F0G18100 64420 0621 00 0 64425 STA EFNC SEARCH F0G18110 64421 -0500 00 4 70726 CAL STBL-1,4 F0G18120 64422 0361 00 0 73200 ACL LADD F0G18130 64423 0601 00 0 66144 STO EFNCX F0G18140 64424 0534 00 4 63174 LXA L(0),4 F0G18150 64425 0560 00 4 00000 EFNC LDQ **,4 START F0G18160 64426 -0620 00 0 63127 SLQ TEMP SEARCH F0G18170 64427 0534 00 1 65730 LXA L(1),1 FOR LOGICAL F0G18180 64430 0500 00 0 63127 CLA TEMP END OF F0G18190 64431 0441 60 0 64425 LDI* EFNC STATEMENT F0G18200 64432 0340 00 0 64772 CAS L(7) F0G18210 64433 0054 00 700000 RFT 700000 F0G18220 64434 0020 00 0 64476 TRA EFNE F0G18230 64435 0340 00 1 65771 CAS ITEST,1 STARTING WITH TZE F0G18240 BINARY CARD NO. 9F070086 64436 1 00000 0 64440 TXI *+2,0,0 F0G18250 64437 1 00000 0 64443 TXI EFND,0,0 FOUND TABLE ENTRY F0G18260 64440 1 00001 1 64441 TXI *+1,1,1 F0G18270 64441 -3 00015 1 64435 TXL *-4,1,ITEST-IITEST F0G18280 64442 1 77777 4 64425 TXI EFNC,4,-1 NEXT INSTRUCTION F0G18290 64443 -3 00007 1 64476 EFND TXL EFNE,1,ITEST-NOADDC EXAMINE ADDRESS OF STO,STQ,SLW ONLY F0G18300 64444 -0500 60 0 64425 CAL* EFNC F0G18310 64445 -0320 00 0 65744 ANA MSK1 F0G18320 64446 0734 00 1 00000 PAX 0,1 F0G18330 64447 3 77730 1 64442 TXH EFND-1,1,IUPCM+167 F FCN ARG = NO GOOD F0G18340 64450 0560 00 0 66011 LDQ LCOMMN-1 BETWEEN L. PROG. DATA F0G18350 64451 0040 00 0 64454 TLQ *+3 AND 77730=OK $F0G18360 64452 -0100 00 0 64442 TNZ EFND-1 SNAP AT ARGUMENTS TOO $F0G18361 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 38 RECORD 7 OR 32 DEBUG 64453 1 00010 1 64454 TXI *+1,1,8 $F0G18362 64454 1 00001 4 64455 TXI *+1,4,1 CHECK PREVIOUS FOR CLA-1 $F0G18363 64455 0500 60 0 64425 CLA* EFNC (MOST SIGNIFICANT AC) $F0G18364 64456 0402 00 0 65750 SUB LCLAM1 IF SO EXAMINE LEAST $F0G18365 64457 -0100 00 0 64466 TNZ QTEST SIGNIFICANT STO, IF NOT $F0G18366 64460 1 77776 4 64461 TXI *+1,4,-2 GO TEST FOR LDQ-3 $F0G18367 64461 0500 60 0 64425 CLA* EFNC CHECK NEXT FOR CLA-2 $F0G18368 64462 0402 00 0 65751 SUB LCLAM2 $F0G18369 64463 -0100 00 0 64465 TNZ *+2 IF NOT SNAP ORIGINAL STO $F0G18370 BINARY CARD NO. 9F070087 64464 1 77777 4 64476 TXI EFNE,4,-1 $F0G18371 64465 1 00001 4 64476 TXI EFNE,4,1 $F0G18372 64466 0500 60 0 64425 QTEST CLA* EFNC CHECK PREVIOUS FOR LDQ-3 $F0G18373 64467 0402 00 0 65752 SUB LLDQM3 (MOST SIGNIFICANT MQ) $F0G18374 64470 -0100 00 0 64475 TNZ *+5 IF NOT SNAP ORIGINAL STO $F0G18375 64471 1 77776 4 64472 TXI *+1,4,-2 $F0G18376 64472 0500 60 0 64425 CLA* EFNC CHECK NEXT FOR LDQ-4 $F0G18377 64473 0402 00 0 65753 SUB LLDQM4 $F0G18378 64474 -0100 00 0 64465 TNZ QTEST-1 $F0G18379 64475 1 77777 4 64476 TXI EFNE,4,-1 IF NOT SNAP ORIGINAL STO $F0G18380 64476 0500 60 0 64425 EFNE CLA* EFNC SAVE $F0G18381 64477 0601 00 2 66020 STO SWTBLE+1,2 REPLACED INSTRUCTION F0G18390 64500 -0500 00 0 66146 CAL L(STR) PUT STR F0G18400 64501 0630 60 0 64425 STP* EFNC IN OBJECT PROG F0G18410 64502 0754 00 4 00000 PXA 0,4 PUT EXIT ADDRESS (FROM OBJECT) F0G18420 64503 0402 00 0 66144 SUB EFNCX IN F0G18430 64504 0767 00 0 00022 ALS 18 DEC OF F0G18440 64505 0622 00 2 66017 STD SWTBLE,2 SWTBLE F0G18450 64506 3 00007 1 64511 TXH *+3,1,ITEST-NOADDC SET TABLE F0G18460 64507 0502 00 2 66017 CLS SWTBLE,2 ENTRY NEGATIVE F0G18470 64510 0601 00 2 66017 STO SWTBLE,2 FOR NON-STO,STQ F0G18480 64511 1 77776 2 64512 TXI *+1,2,-2 UPDATE STABLE TAG F0G18490 BINARY CARD NO. 9F070088 64512 -0634 00 2 66101 SXD SWTBLN,2 F0G18500 START OF COMPILING F0G18510 64513 -0534 00 1 66142 LXD COMTG,1 F0G18520 64514 0560 00 0 66145 LDQ L(TR2) F0G18530 64515 -0600 60 0 66001 STQ* LCP COMPILE TRA 2 AS FIRST INSTR F0G18540 64516 1 77777 1 64517 CNTRC TXI *+1,1,-1 F0G18550 64517 -0600 60 0 66001 STQ* LCP AND NEXT LOCATION TO F0G18560 64520 1 77777 1 64521 TXI *+1,1,-1 PREVENT FLUBS F0G18570 64521 -0634 00 1 66142 SXD COMTG,1 F0G18580 * F0G18590 ADJUST ADDRESSES FOR CNS TESTS F0G18600 64522 0500 00 0 66141 CLA TRA2 F0G18610 64523 0621 00 0 66152 STA L(CNI)+3 F0G18620 64524 0621 00 0 66153 STA L(CNI)+4 F0G18630 64525 0621 00 0 66155 STA L(CNI)+6 F0G18640 64526 0621 00 0 66105 STA IFINS+2 F0G18650 64527 0621 00 0 66106 STA IFINS+3 F0G18660 64530 0621 00 0 66107 STA IFINS+4 F0G18670 DETERMINE IF DUMP OR TRACE F0G18680 64531 0534 00 2 65722 LXA L(4),2 SKIP F0G18690 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 39 RECORD 7 OR 32 DEBUG 64532 0074 00 4 63150 TSX C0190,4 4 CHARACTERS F0G18700 64533 2 00001 2 64532 TIX *-1,2,1 F0G18710 64534 0074 00 4 63150 TSX C0190,4 F0G18720 64535 0340 00 0 65735 CAS L(9) F0G18730 64536 0020 00 0 64141 TRA MTM EXIT FOR TRACE IF ANYBODY WANTS IT F0G18740 64537 0761 00 0 00000 NOP 5TH CHARACTER NUMERIC F0G18750 BINARY CARD NO. 9F070089 64540 0074 00 2 63170 TSX C0180,2 (I.E. N1) F0G18760 64541 0402 00 0 63141 SUB CMA COMMA F0G18770 64542 -0100 00 0 64141 TNZ MTM MUST FOLLOW N1 F0G18780 64543 0500 00 0 65772 CLA 1G STORE F0G18790 64544 0621 00 0 65775 STA N1 N1 F0G18800 64545 0074 00 2 63167 TSX C0180X,2 GO FOR N2 F0G18810 64546 0534 00 2 65772 LXA 1G,2 STORE F0G18820 64547 0634 00 2 65776 SXA N2,2 N2 F0G18830 64550 0340 00 0 63141 CAS CMA F0G18840 64551 1 00000 0 64553 TXI *+2,0,0 F0G18850 64552 1 00000 0 64557 TXI CNTCRA,0,0 N3 SPECIFIED F0G18860 64553 0402 00 0 63142 SUB DOLS F0G18870 64554 -0100 00 0 64141 TNZ MTM F0G18880 64555 0500 00 0 65730 CLA L(1) N3 NOT SPECIFIED - ASSUME 1 F0G18890 64556 0020 00 0 64563 TRA CNTCRB-1 F0G18900 64557 0074 00 2 63167 CNTCRA TSX C0180X,2 GO FOR N3 F0G18910 64560 0402 00 0 63142 SUB DOLS F0G18920 64561 -0100 00 0 64141 TNZ MTM ILLEGAL F0G18930 64562 0500 00 0 65772 CLA 1G STORE F0G18940 64563 0621 00 0 65777 STA N3 N3 F0G18950 64564 0534 00 2 65775 CNTCRB LXA N1,2 MOVE N1, N2, N3 F0G18960 64565 1 77777 2 64566 TXI *+1,2,-1 INTO (N1-1) F0G18970 BINARY CARD NO. 9F070090 64566 -0634 00 2 66152 SXD L(CNI)+3,2 COUNTER F0G18980 64567 -0634 00 2 66154 SXD L(CNI)+5,2 TEST F0G18990 64570 0534 00 2 65776 LXA N2,2 INSTRUCTIONS F0G19000 64571 -0634 00 2 66153 SXD L(CNI)+4,2 N2 F0G19010 64572 0534 00 2 65777 LXA N3,2 F0G19020 64573 1 77777 2 64574 TXI *+1,2,-1 N3-1 F0G19030 64574 -0634 00 2 66156 SXD L(CNI)+7,2 F0G19040 COMPILE COUNTER TEST F0G19050 64575 1 00001 1 64576 TXI *+1,1,1 REMOVE FLUB CATCHER F0G19060 64576 0560 00 0 66161 LDQ BPCNR F0G19070 64577 0534 00 2 63136 LXA L(10),2 F0G19080 64600 0074 00 4 63740 TSX COMPLE,4 F0G19090 64601 0 00000 2 66161 PZE L(CNI)+10,2 F0G19100 IF COMPILATION F0G19110 64602 -0634 00 1 66142 SXD COMTG,1 SAVE COMPILING TAG F0G19120 * F0G19130 64603 0074 00 2 63236 TSX C0150,2 GET NEXT FIELD F0G19140 64604 0500 00 0 65772 CLA 1G F0G19150 64605 0402 00 0 65737 SUB L(IF) F0G19160 64606 -0100 00 0 64777 TNZ LIST NO IF CLAUSE F0G19170 64607 0500 00 0 63126 CLA 1H F0G19180 64610 0402 00 0 63140 SUB LPAR F0G19190 64611 -0100 00 0 64777 TNZ LIST VARIABLE IF F0G19200 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 40 RECORD 7 OR 32 DEBUG 64612 0600 00 0 66112 IF STZ BPIF INITIALIZE BIT PATTERN F0G19210 64613 0600 00 0 66102 STZ VI VARIABLE COUNT F0G19220 BINARY CARD NO. 9F070091 64614 0500 00 0 64614 CLA * SET FIRST F0G19230 64615 0601 00 0 66103 STO IFINS OP TO CLA F0G19240 64616 0074 00 4 63150 IFPA TSX C0190,4 NEXT CHARACTER TO AC F0G19250 64617 0774 00 4 13135 AXT -IFMRA,4 SET 4 FOR EXIT FROM ROYCVN F0G19260 64620 0560 00 0 63136 LDQ L(10) F0G19270 64621 0040 00 0 64623 TLQ *+2 F0G19280 64622 0020 00 0 63255 TRA ROYCNV GO CONVERT NUMERIC F0G19290 64623 0534 00 1 65303 LXA L(5),1 COMPARE WITH F0G19300 64624 0340 00 1 63150 CAS CTEST,1 FIRST FIVE CHAR OF CTEST F0G19310 64625 0020 00 0 64627 TRA *+2 F0G19320 64626 0020 00 0 64635 TRA IFA FOUND F0G19330 64627 2 00001 1 64624 TIX *-3,1,1 F0G19340 64630 0074 00 2 63640 TSX FSAA,2 ASSUME VARIABLE F0G19350 64631 0500 00 0 63127 CLA TEMP ADJUSTED ADDRESS F0G19360 64632 0621 00 0 66103 STA IFINS F0G19370 64633 0074 00 4 63731 TSX BPIFZ,4 GENERATE ZERO BIT F0G19380 64634 0020 00 0 64653 TRA IFB F0G19390 64635 3 00004 1 64641 IFA TXH IFMR,1,4 IRA = 5 MINUS (40) F0G19400 64636 3 00003 1 64115 TXH PLIST,1,3 IRA = 4 RPAR (34) F0G19410 64637 3 00002 1 63262 TXH DECPNT,1,2 IRA = 3 DECPT (33) F0G19420 64640 3 00001 1 64616 TXH IFPA,1,1 IRA = 2 PLUS (20) F0G19430 64641 0500 00 0 63250 IFMR CLA C0151+1 F0G19440 BINARY CARD NO. 9F070092 64642 0601 00 0 66103 STO IFINS SET TO CLS F0G19450 64643 0020 00 0 64616 IFMRA TRA IFPA F0G19460 64644 0500 00 0 63132 CLA G CONVERTED NUMBER F0G19470 64645 0601 00 0 66110 STO IFINS+5 F0G19480 64646 0502 00 0 65303 CLS L(5) SET F0G19490 64647 0621 00 0 66103 STA IFINS F0G19500 64650 0760 00 0 00000 CLM F0G19510 64651 0601 00 0 66102 STO VI VI NEGATIVE F0G19520 64652 0074 00 4 63735 TSX BPIF1,4 GENERATE ONE BIT F0G19530 64653 0500 00 0 63126 IFB CLA 1H F0G19540 64654 0340 00 0 63147 CAS DASH EXAMINE F0G19550 64655 0020 00 0 64657 TRA *+2 SIGN F0G19560 64656 0020 00 0 64666 TRA IFCMI IN F0G19570 64657 0340 00 0 63143 CAS MINUS IF F0G19580 64660 0020 00 0 64662 TRA *+2 EXPRESSION F0G19590 64661 0020 00 0 64666 TRA IFCMI F0G19600 64662 0402 00 0 63146 SUB PLUS F0G19610 64663 -0100 00 0 64114 TNZ PLST F0G19620 64664 0500 00 0 63540 IFCPL CLA L(ADD) PLUS F0G19630 64665 0020 00 0 64667 TRA IFD-1 F0G19640 64666 0500 00 0 63574 IFCMI CLA L(SUB) MINUS F0G19650 64667 0601 00 0 66104 STO IFINS+1 F0G19660 BINARY CARD NO. 9F070093 64670 0074 00 4 63150 IFD TSX C0190,4 FIRST CHAR OF V2 F0G19670 64671 0774 00 4 13067 AXT -IFDA,4 SET ROYCVN EXIT F0G19680 64672 0560 00 0 66102 LDQ VI F0G19690 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 41 RECORD 7 OR 32 DEBUG 64673 0340 00 0 65735 CAS L(9) F0G19700 64674 0020 00 0 64700 TRA IFDB ALPHABETIC F0G19710 64675 0761 00 0 00000 NOP GO CONVERT F0G19720 64676 0162 00 0 63255 TQP ROYCVN NUMERIC F0G19730 64677 0020 00 0 64115 TRA PLIST ERROR F0G19740 64700 0402 00 0 63145 IFDB SUB DECPT F0G19750 64701 -0100 00 0 64704 TNZ *+3 F0G19760 64702 0162 00 0 63262 TQP DECPNT GO CONVERT F0G19770 64703 0020 00 0 64114 TRA PLST F0G19780 64704 0400 00 0 63145 ADD DECPT F0G19790 64705 0074 00 2 63640 TSX FSAA,2 PROCESS VARIABLE V2 F0G19800 64706 0500 00 0 63127 CLA TEMP ADJUSTED ADDRESS F0G19810 64707 0621 00 0 66104 STA IFINS+1 F0G19820 64710 0074 00 4 63731 TSX BPIFZ,4 F0G19830 64711 0020 00 0 64717 IFDA TRA IFF-1 F0G19840 64712 0500 00 0 65722 CLA L(4) ADDRESS OF *+4 F0G19850 64713 0621 00 0 66104 STA IFINS+1 F0G19860 64714 0500 00 0 63132 CLA G STORE CONVERTED F0G19870 64715 0601 00 0 66110 STO IFINS+5 NUMBER F0G19880 BINARY CARD NO. 9F070094 64716 0074 00 4 63735 TSX BPIF1,4 F0G19890 64717 0500 00 0 63126 CLA 1H F0G19900 64720 0402 00 0 63144 IFF SUB RPAR ) MUST FOLLOW F0G19910 64721 -0100 00 0 64114 TNZ PLST EXPRESSION F0G19920 64722 0074 00 4 63713 TSX YESNO,4 F0G19930 64723 0402 00 0 63141 SUB CMA F0G19940 64724 -0100 00 0 64114 TNZ PLST F0G19950 64725 0162 00 0 64732 TQP IFG NO SNAP FOR TMI F0G19960 64726 0500 00 0 65732 CLA L(3) SNAP F0G19970 64727 0621 00 0 66106 STA IFINS+3 FOR MINUS F0G19980 64730 0074 00 4 63735 TSX BPIF1,4 1 IN BIT PATTERN F0G19990 64731 0020 00 0 64733 TRA *+2 F0G20000 64732 0074 00 4 63731 IFG TSX BPIFZ,4 0 IN BIT PATTERN F0G20010 64733 -0765 00 0 00002 LGR 2 F0G20020 64734 0767 00 0 00001 ALS 1 F0G20030 64735 0601 00 0 66112 STO BPIF F0G20040 64736 -0754 00 0 00000 PXD 0,0 F0G20050 64737 -0763 00 0 00001 LGL 1 F0G20060 64740 0601 00 0 63130 STO TEMP+1 F0G20070 64741 0074 00 4 63713 TSX YESNO,4 F0G20080 64742 0402 00 0 63141 SUB CMA F0G20090 64743 -0100 00 0 64114 TNZ PLST F0G20100 BINARY CARD NO. 9F070095 64744 0162 00 0 64751 TQP IFH NO SNAP FOR TZE F0G20110 64745 0500 00 0 65722 CLA L(4) SNAP F0G20120 64746 0621 00 0 66105 STA IFINS+2 TZE F0G20130 64747 0074 00 4 63735 TSX BPIF1,4 1 IN BIT PATTERN F0G20140 64750 0020 00 0 64752 TRA *+2 F0G20150 64751 0074 00 4 63731 IFH TSX BPIFZ,4 0 IN BIT PATTERN F0G20160 64752 -0501 00 0 63130 ORA TEMP+1 F0G20170 64753 0767 00 0 00001 ALS 1 F0G20180 64754 0601 00 0 66112 STO BPIF F0G20190 64755 0074 00 4 63713 TSX YESNO,4 F0G20200 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 42 RECORD 7 OR 32 DEBUG 64756 0402 00 0 63142 SUB DOLS F0G20210 64757 -0100 00 0 64114 TNZ PLST F0G20220 64760 0162 00 0 64765 TQP IFI F0G20230 64761 0500 00 0 65731 CLA L(2) SNAP F0G20240 64762 0621 00 0 66107 STA IFINS+4 TPL F0G20250 64763 0074 00 4 63735 TSX BPIF1,4 1 IN BIT PATTERN F0G20260 64764 0020 00 0 64766 TRA *+2 F0G20270 64765 0074 00 4 63731 IFI TSX BPIFZ,4 0 IN BIT PATTERN F0G20280 64766 0560 00 0 66112 LDQ BPIF F0G20290 64767 -0763 00 0 00036 LGL 30 BIT PATTERN TO LEFT OF MQ F0G20300 64770 -0534 00 1 66142 LXD COMTG,1 LOAD COMPILING TAG F0G20310 64771 1 00001 1 64772 TXI *+1,1,1 REMOVE SAFETY PLUG F0G20320 BINARY CARD NO. 9F070096 64772 0774 00 2 00007 L(7) AXT 7,2 F0G20330 64773 0074 00 4 63740 TSX COMPLE,4 F0G20340 64774 0 00000 2 66112 PZE IFINS+7,2 F0G20350 64775 -0634 00 1 66142 SXD COMTG,1 F0G20360 64776 0074 00 2 63236 TSX C0150,2 NEXT FIELD F0G20370 COMPILES FIRST FIVE FORMAT WORDS + CAL + TSXS F0G20380 * F0G20390 64777 0600 00 0 66171 LIST STZ CCNT ZERO CHARACTER COUNT F0G20400 65000 0500 00 0 66643 CLA XLPAR F0G20410 65001 0601 00 0 63140 STO LPAR F0G20420 65002 0500 00 0 65641 CLA PE+3 F0G20430 65003 0601 00 0 63772 STO FMTCP+7 F0G20440 65004 -0500 00 0 64443 CAL EFND SET EXIT F0G20450 65005 0630 00 0 65114 STP EXIT+1 +1 TO TXL F0G20460 65006 -0634 00 1 63133 SXD TEMP+4,1 F0G20470 65007 0500 00 0 73203 CLA SNAME PLACE SUBPROGRAM F0G20480 65010 -0520 00 0 73203 NZT SNAME NAME IN FORMAT F0G20490 65011 0500 00 0 66224 CLA MAINW F0G20500 65012 0601 00 0 66227 STO FMT+1 F0G20510 65013 0500 00 0 65772 LISTAB CLA 1G SAVE F0G20520 65014 0601 00 0 63132 STO TEMP+3 1G F0G20530 65015 -0500 00 0 66143 CAL CEFN CURRENT EFN IN BCD F0G20540 65016 0602 00 0 65772 SLW 1G F0G20550 65017 0074 00 4 64044 TSX RGHTA,4 RIGHT ADJUSTED AND F0G20560 BINARY CARD NO. 9F070097 65020 0074 00 4 64061 TSX BLKSR,4 PRECEEDED WITH BLANKS F0G20570 65021 -0600 00 0 66231 STQ FMT+3 STORED IN FMT+3 F0G20580 65022 0534 00 1 66141 LXA TRA2,1 DETERMINE F0G20590 65023 1 00001 1 65024 TXI *+1,1,1 ADDRESS OF F0G20600 65024 0634 00 1 66554 SXA CNTOUT,1 COUNTER F0G20610 65025 0535 00 1 64772 LAC L(7),1 INITIALIZE FORMAT F0G20620 65026 0634 00 1 63763 SXA FMTCP,1 STORING TAG F0G20630 65027 -0534 00 1 66142 LXD COMTG,1 PULL F0G20640 65030 1 00001 1 65031 TXI *+1,1,1 PLUG F0G20650 65031 0774 00 2 00003 AXT 3,2 F0G20660 65032 0560 00 0 66553 LDQ BPCALT F0G20670 65033 0074 00 4 63740 TSX COMPLE,4 F0G20680 65034 0 00000 2 66553 PZE CALTN+3,2 F0G20690 65035 0500 00 0 66545 CLA STHW COMPILE F0G20700 65036 0601 60 0 66001 STO* LCP TSX (STH), 4 F0G20710 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 43 RECORD 7 OR 32 DEBUG 65037 1 77777 1 65040 TXI *+1,1,-1 F0G20720 65040 0634 00 1 66546 SXA FMTL,1 PZE FORMAT LOCATION F0G20730 65041 0500 00 0 66546 CLA FMTL F0G20740 65042 0601 60 0 66001 STO* LCP F0G20750 65043 1 77777 1 65044 TXI *+1,1,-1 F0G20760 65044 0560 00 0 65730 LDQ L(1) COMPILE F0G20770 65045 0774 00 2 00004 AXT 4,2 COUNTER F0G20780 BINARY CARD NO. 9F070098 65046 0074 00 4 63740 TSX COMPLE,4 PRINT OUT F0G20790 65047 0 00000 2 66560 PZE CNTOUT+4,2 F0G20800 65050 -0634 00 1 66142 SXD COMTG,1 SAVE COMPILING TAG F0G20810 65051 -0534 00 1 63133 LXD TEMP+4,1 RESTORE 1 F0G20820 65052 0500 00 0 63132 CLA TEMP+3 RESTORE F0G20830 65053 0601 00 0 65772 STO 1G 1G F0G20840 65054 0500 00 0 63126 CLA 1H F0G20850 * F0G20860 65055 0020 00 0 65057 LISTC TRA LISTC+2 F0G20870 START COMPILING CALLING SEQUENCES F0G20880 65056 0074 00 2 63236 TSX C0150,2 F0G20890 65057 0560 00 0 65774 LDQ I F0G20900 65060 0340 00 0 63144 CAS RPAR NB = NUMERIC BEGINNING 1) ETC F0G20910 65061 0020 00 0 65063 TRA *+2 F0G20920 65062 0020 00 0 65636 TRA PE F0G20930 65063 0162 00 0 64125 TQP MTC-1 MOVE TO COMMA AND TRY AGAIN F0G20940 65064 3 00000 1 65345 TXH SPCH,1,0 SPECIAL CHARACTER F0G20950 65065 0500 00 0 65772 CLA 1G VARIABLE TO AC F0G20960 65066 0074 00 4 63521 TSX STSCH,4 SEARCH SYMBOL TABLE F0G20970 65067 0020 00 0 64124 TRA MTCB MOVE TO COMMA AND TRY AGAIN F0G20980 65070 0074 00 4 63614 TSX STAA,4 ADJUST ADDRESS F0G20990 65071 0500 00 0 65772 CLA 1G RIGHT ADJUST F0G21000 65072 0074 00 4 64044 TSX RGHTA,4 AND PUT IN NAM F0G21010 65073 0602 00 0 66163 SLW NAM F0G21020 BINARY CARD NO. 9F070099 65074 0500 00 0 63126 CLA 1H F0G21030 65075 0340 00 0 63140 CAS LPAR F0G21040 65076 1 00000 0 65100 TXI *+2,0,0 F0G21050 65077 0020 00 0 65221 TRA LISTD SUBSCRIPT COMING F0G21060 65100 0074 00 2 64126 TSX MTC,2 CHECK FOR PROPER END OF FIELD F0G21070 65101 0600 00 0 66164 STZ SUBS NO SUBSCRIPT F0G21080 65102 0074 00 4 63762 TSX NSTB,4 GENERATE FORMAT F0G21090 65103 -0534 00 1 66142 LXD COMTG,1 F0G21100 65104 0500 00 0 63127 CLA TEMP ADJUSTED ADDRESS F0G21110 65105 0621 00 0 66222 STA SIGCL F0G21120 65106 0534 00 2 65731 LXA L(2),2 F0G21130 65107 0500 00 2 66224 CLA SIGCL+2,2 F0G21140 65110 0601 60 0 66001 STO* LCP F0G21150 65111 1 77777 1 65112 TXI *+1,1,-1 F0G21160 65112 2 00001 2 65107 TIX *-3,2,1 F0G21170 65113 -0634 00 1 66142 EXIT SXD COMTG,1 SAVE COMPILING TAG F0G21180 65114 -3 00000 0 65056 TXL LISTC+1,0,0 EXIT SWITCH F0G21190 COMPLETE CALLING SEQUENCE F0G21200 65115 0500 00 0 66547 CLA FIL F0G21210 65116 0601 60 0 66001 STO* LCP TSX (FIL), 4 F0G21220 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 44 RECORD 7 OR 32 DEBUG 65117 1 77777 1 65120 TXI *+1,1,-1 F0G21230 65120 0500 00 0 66141 CLA TRA2 FINAL F0G21240 65121 0601 60 0 66001 STO* LCP EXIT F0G21250 BINARY CARD NO. 9F070100 65122 1 77777 1 65123 TXI *+1,1,-1 F0G21260 65123 0534 00 2 63763 LXA FMTCP,2 FORMAT TAG F0G21270 65124 0500 00 0 65745 CLA MSK2 COMPLETE FORMAT STATEMENT F0G21280 65125 0601 60 0 66001 STO* LCP F0G21290 65126 1 77777 1 65127 TXI *+1,1,-1 MOVE F0G21300 65127 1 00001 2 65130 TXI *+1,2,1 FORMAT F0G21310 65130 0500 00 2 66226 CLA FMT,2 F0G21320 65131 3 00000 2 65125 TXH *-4,2,0 F0G21330 65132 0601 60 0 66001 STO* LCP F0G21340 65133 0754 00 1 00000 PXA 0,1 ASSURE F0G21350 65134 0402 00 0 66001 SUB LC NO F0G21360 65135 -0340 00 0 73172 LAS OVLP OVERLAP F0G21370 65136 0020 00 0 73161 TRA PTOVL F0G21380 65137 0761 00 0 00000 NOP F0G21390 65140 0400 00 0 73171 ADD LCOMN F0G21400 65141 -0120 00 0 73157 TMI PDOVL DATA OVERLAP F0G21410 65142 0754 00 1 00000 PXA 0,1 PUT PROPER F0G21420 65143 0402 00 0 66001 SUB LC ADDRESS F0G21430 65144 1 77777 1 65145 TXI *+1,1,-1 IN F0G21440 65145 -0634 00 1 66142 SXD COMTG,1 TSX FMTL F0G21450 65146 0534 00 1 66546 LXA FMTL,1 F0G21460 65147 0621 60 0 66001 STA* LCP F0G21470 BINARY CARD NO. 9F070101 65150 0074 00 4 63150 TSX C0190,4 F0G21480 65151 0340 00 0 63137 CAS ENDMK F0G21490 65152 0020 00 0 64351 TRA EFNA+1 F0G21500 65153 0020 00 0 65155 TRA POET FINISHED F0G21510 65154 0020 00 0 64351 TRA EFNA+1 F0G21520 65155 -0535 00 1 66142 POET LDC COMTG,1 NO OF WORDS GENERATED F0G21530 65156 0754 00 1 00000 PXA 0,1 COMPUTE F0G21540 65157 0361 00 0 73167 ACL PBREAK NEW F0G21550 65160 0400 00 0 73200 ADD LADD EXECUTION F0G21560 65161 0621 00 0 73166 STA S ADDRESS F0G21570 CONTROL TO MONITOR F0G21580 65162 0600 00 0 70727 STZ STBLE SET SYMBOL TABLE ENTRY COUNTER TO ZERO F0G21590 65163 0600 00 0 64306 STZ SSWT F0G21600 65164 -0520 00 0 64307 TSYMSW NZT SYMSW F0G21610 65165 0020 00 0 65211 TRA RESTOR F0G21620 HERE TO LOAD SYMBOL TABLE F0G21630 65166 -0534 00 4 70727 LST LXD STBLE,4 NO IN SYMBOL TABLE F0G21640 65167 0534 00 1 65211 LXA RESTOR,1 F0G21650 65170 0534 00 2 65212 LXA RESTOR+1,2 F0G21660 65171 3 00000 4 65201 TXH LSTA,4,0 F0G21670 65172 0500 00 1 73421 CLA IM+2,1 STORE NAME F0G21680 65173 0601 00 0 65220 STO STNME IN STNME F0G21690 65174 0020 00 0 66675 TRA PATCHD (20)F0G21700 65175 0767 00 0 00001 ALS 1 TIMES 2 F0G21710 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 45 RECORD 7 OR 32 DEBUG BINARY CARD NO. 9F070102 65176 0622 00 0 65204 STD LSTB OF STBL ENTRIES F0G21720 65177 1 77776 1 65200 TXI *+1,1,-2 MODIFY INDEX F0G21730 65200 1 77776 2 65201 TXI *+1,2,-2 FOR FIRST CARD F0G21740 65201 0500 00 1 73421 LSTA CLA IM+2,1 MOVE F0G21750 65202 0601 00 4 70726 STO STBL-1,4 IM F0G21760 65203 1 00001 4 65204 TXI *+1,4,1 TO STBL F0G21770 65204 3 00000 4 65211 LSTB TXH RESTOR,4,** F0G21780 65205 3 01747 4 65211 TXH RESTOR,4,NESYTB-1 $F0G21790 65206 1 77777 1 65207 TXI *+1,1,-1 F0G21800 65207 2 00001 2 65201 TIX LSTA,2,1 F0G21810 65210 -0634 00 4 70727 SXD STBLE,4 F0G21820 65211 0774 00 1 00000 RESTOR AXT **,1 F0G21830 65212 0774 00 2 00000 AXT **,2 F0G21840 65213 0774 00 4 00000 AXT **,4 F0G21850 65214 0500 00 0 64310 CLA S(AC) F0G21860 65215 -0520 00 0 64307 NZT SYMSW F0G21870 65216 0020 00 4 00001 TRA 1,4 F0G21880 65217 0020 00 0 71747 TRA L F0G21890 65220 676067606760 STNME BCI 1,X X X SYMBOL TABLE NAME F0G21900 SUBSCRIPTED VARIABLE F0G21910 65221 0074 00 2 63236 LISTD TSX C0150,2 NEXT FIELD F0G21920 65222 0560 00 0 65774 LDQ I F0G21930 65223 0162 00 0 65225 TQP *+2 NUMERIC FIELD F0G21940 BINARY CARD NO. 9F070103 65224 0020 00 0 64125 TRA MTC-1 ALPHA FIELD-ILLEGAL SUBSCRIPT $F0G21950 65225 0560 00 0 65772 LDQ 1G S1 F0G21960 65226 -0600 00 0 66623 STQ S1 F0G21970 65227 0074 00 4 64070 TSX TOBCD,4 S1 TO BCD F0G21980 65230 0 00000 0 66164 PZE SUBS AND STORE IN SUBS F0G21990 65231 0500 00 0 63126 CLA 1H F0G22000 65232 0340 00 0 63144 CAS RPAR F0G22010 65233 1 00000 0 65235 TXI *+2,0,0 F0G22020 65234 1 00000 0 65336 TXI LISTE,0,0 SINGLE CELL COMING F0G22030 65235 0074 00 4 63705 TSX CACMD,4 F0G22040 65236 0074 00 2 63236 TSX C0150,2 NEXT FIELD F0G22050 65237 0402 00 0 63144 SUB RPAR F0G22060 65240 -0100 00 0 64124 TNZ MTCB ILLEGAL F0G22070 65241 0534 00 1 65772 LXA 1G,1 S2 F0G22080 65242 -0634 00 1 66203 SXD ARRAY+9,1 F0G22090 65243 0534 00 1 66623 LXA S1,1 S1 F0G22100 65244 0634 00 1 66172 SXA ARRAY,1 F0G22110 65245 1 00005 1 65246 TXI *+1,1,5 F0G22120 65246 0634 00 1 66175 SXA ARRAY+3,1 F0G22130 65247 0534 00 1 63127 LXA TEMP,1 VARIABLE LOCATION F0G22140 65250 1 00001 1 65251 TXI *+1,1,1 INCREASED F0G22150 65251 0634 00 1 66200 SXA ARRAY+6,1 BY 1 AND STORED F0G22160 BINARY CARD NO. 9F070104 65252 0500 00 0 65772 CLA 1G F0G22170 65253 0402 00 0 66623 SUB S1 S2 MINUS S1 F0G22180 65254 -0120 00 0 64133 TMI MTCA-2 S2 IS LESS THAN S1 AND THAT IS ILLEGAL F0G22190 65255 0400 00 0 65730 ADD L(1) PLUS 1 F0G22200 65256 0131 00 0 00000 XCA F0G22210 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 46 RECORD 7 OR 32 DEBUG 65257 -0754 00 0 00000 PXD 0,0 F0G22220 65260 0221 00 0 65733 DVP L(6) DIVIDED BY 6 F0G22230 65261 0601 00 0 63127 STO TEMP AND STORED F0G22240 65262 0534 00 1 63763 LXA FMTCP,1 FORMAT TAG F0G22250 65263 -3 77471 1 65114 TXL EXIT+1,1,-NEFMTT+8 FORMAT TOO LARGE F0G22260 65264 0074 00 4 64070 TSX TOBCD,4 INTEGRAL PART OF DIVISION TO BCD F0G22270 65265 0 00000 0 66211 PZE ARRFI AND STORED IN FORMAT F0G22280 65266 0500 00 0 66170 CLA SLASH F0G22290 65267 0767 00 0 00036 ALS 30 F0G22300 65270 -0602 00 0 66216 ORS ARRFR F0G22310 65271 -0500 00 0 66163 CAL NAM F0G22320 65272 0074 00 4 64061 TSX BLKSR,4 PUT NAME IN F0G22330 65273 -0600 00 0 66213 STQ ARRFI+2 FORMAT F0G22340 65274 -0600 00 0 66217 STQ ARRFR+1 F0G22350 65275 0500 00 0 66211 CLA ARRFI F0G22360 65276 0100 00 0 65312 TZE LISTDA LESS THAN 6 CELLS TO SNAP F0G22370 65277 -0765 00 0 00036 LGR 30 F0G22380 BINARY CARD NO. 9F070105 65300 0500 00 0 66170 CLA SLASH F0G22390 65301 -0765 00 0 00006 LGR 6 F0G22400 65302 -0600 00 0 66211 STQ ARRFI F0G22410 65303 0774 00 2 00005 L(5) AXT 5,2 F0G22420 65304 0500 00 2 66216 CLA ARRFI+5,2 MOVE F0G22430 65305 0601 00 1 66226 STO FMT,1 TO FORMAT F0G22440 65306 1 77777 1 65307 TXI *+1,1,-1 UPDATE F0G22450 65307 2 00001 2 65304 TIX *-3,2,1 F0G22460 65310 -0500 00 0 65746 CAL BLANKS F0G22470 65311 0622 00 0 66216 STD ARRFR F0G22480 65312 0500 00 0 63127 LISTDA CLA TEMP REMAINDER AFTER DIVISION F0G22490 65313 0100 00 0 65326 TZE LISTDB NO REMAINDER ( NO. OF CELLS IS DIVISIBLE 6F0G22500 65314 0560 00 0 63127 LDQ TEMP CONVERT F0G22510 65315 0074 00 4 64070 TSX TOBCD,4 REMAINDER TO BCD F0G22520 65316 0 00000 0 63127 PZE TEMP AND STORE IN TEMP F0G22530 65317 0500 00 0 63127 CLA TEMP MODIFY F0G22540 65320 0621 00 0 66220 STA ARRFR+2 FORMAT ( WORD COUNT) F0G22550 65321 0534 00 2 65722 LXA L(4),2 GENERATE F0G22560 65322 0500 00 2 66222 CLA ARRFR+4,2 FORMAT F0G22570 65323 0601 00 1 66226 STO FMT,1 F0G22580 65324 1 77777 1 65325 TXI *+1,1,-1 UPDATE FORMAT TAG F0G22590 65325 2 00001 2 65322 TIX *-3,2,1 F0G22600 BINARY CARD NO. 9F070106 65326 0634 00 1 63763 LISTDB SXA FMTCP,1 SAVE FORMAT TAG F0G22610 65327 -0534 00 1 66142 LXD COMTG,1 LOAD COMPILE TAG F0G22620 65330 0774 00 2 00016 AXT 14,2 F0G22630 65331 0560 00 0 66210 LDQ BPARY BIT PATTERN F0G22640 65332 0074 00 4 63740 TSX COMPLE,4 F0G22650 65333 0 00000 2 66210 PZE ARRAY+14,2 F0G22660 65334 -0634 00 1 66142 SXD COMTG,1 SAVE COMPILING TAG F0G22670 65335 0020 00 0 64133 TRA MTCA-2 CHECK FOR PROPER FIELD TERMINATION F0G22680 65336 0500 00 0 63127 LISTE CLA TEMP F0G22690 65337 0401 00 0 65730 ADM L(1) F0G22700 65340 0402 00 0 66623 SUB S1 F0G22710 65341 0621 00 0 63127 STA TEMP F0G22720 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 47 RECORD 7 OR 32 DEBUG 65342 0074 00 4 63150 TSX C0190,4 F0G22730 65343 0074 00 2 64126 TSX MTC,2 CHECK FOR PROPER END OF FIELD F0G22740 65344 0020 00 0 65102 TRA EXIT-9 F0G22750 LIST ENTRY GREATER THAN 6 CHARACTERS F0G22760 65345 0774 00 4 00007 SPCH AXT NSPCH,4 F0G22770 65346 0534 00 3 63174 LXA L(0),3 IRA, IRB = 0 F0G22780 65347 0500 00 0 65772 CLA 1G F0G22790 65350 0340 00 2 66600 CAS TSPCH,2 SEARCH TABLE F0G22800 65351 1 00000 0 65353 TXI *+2,0,0 F0G22810 65352 0020 00 2 66625 TRA ESPCH,2 EXIT F0G22820 65353 1 77777 2 65354 TXI *+1,2,-1 F0G22830 BINARY CARD NO. 9F070107 65354 2 00001 4 65350 TIX *-4,4,1 F0G22840 65355 0020 00 0 64124 TRA MTCB NOT IN SPECIAL DUMP TABLE F0G22850 * F0G22860 COMMON DATA DUMP F0G22870 65356 0500 00 0 63126 CDMP CLA 1H F0G22880 65357 0340 00 0 63140 CAS LPAR F0G22890 65360 0020 00 0 65362 TRA *+2 F0G22900 65361 0020 00 0 65454 TRA CDMPB SUBSCRIPTED COMMON F0G22910 65362 0634 00 1 65364 SXA *+2,1 F0G22920 65363 0074 00 2 64126 TSX MTC,2 CHECK END OF FIELD F0G22930 65364 0774 00 1 00000 AXT **,1 F0G22940 HERE TO DUMP ALL OF COMMON F0G22950 65365 0500 00 1 66004 CLA UMC8,1 F0G22960 65366 0601 00 0 66620 STO U U F0G22970 65367 0402 00 1 66007 SUB LCOMPC,1 F0G22980 65370 0601 00 0 66617 STO NNL F0G22990 65371 0500 00 1 66007 CLA LCOMPC,1 F0G23000 65372 0400 00 0 65730 ADD L(1) F0G23010 65373 0621 00 0 66621 STA L1 L1 F0G23020 65374 0500 00 1 66012 CLA LCOMMN,1 F0G23030 65375 0400 00 0 65730 ADD L(1) F0G23040 65376 0621 00 0 66622 STA L2 L2 F0G23050 65377 0500 00 0 65742 CDMPA CLA L(G) F0G23060 65400 0601 00 0 66225 STO FMTCC SET F0G23070 65401 -0500 00 0 66561 CAL FMCMN+1 FORMAT F0G23080 BINARY CARD NO. 9F070108 65402 0771 00 0 00006 ARS 6 TO G OR O F0G23090 65403 0767 00 0 00006 ALS 6 F0G23100 65404 -0501 00 0 66225 ORA FMTCC F0G23110 65405 0602 00 0 66561 SLW FMCMN+1 F0G23120 65406 -0754 00 0 00000 PXD 0,0 F0G23130 65407 0560 00 0 66617 LDQ NNL NUMERATOR F0G23140 65410 0162 00 0 65412 TQP *+2 F0G23150 65411 0020 00 0 65056 TRA LISTC+1 NNL WAS NEGATIVE- IE L2 IS LESS THAN L1 F0G23160 65412 0221 00 0 65733 DVP L(6) NL = NNL/6 + 1 IF REMAINDER F0G23170 65413 0100 00 0 65417 TZE *+4 F0G23180 65414 0131 00 0 00000 XCA F0G23190 65415 0400 00 0 65730 ADD L(1) F0G23200 65416 0131 00 0 00000 XCA F0G23210 65417 0074 00 4 64070 TSX TOBCD,4 CONVERT TO BCD F0G23220 65420 0 00000 0 66560 PZE FMCMN AND F0G23230 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 48 RECORD 7 OR 32 DEBUG 65421 0560 00 0 66560 LDQ FMCMN PRECEED F0G23240 65422 -0763 00 0 00014 LGL 12 BY F0G23250 65423 -0500 00 0 66170 CAL SLASH SLASH F0G23260 65424 -0763 00 0 00036 LGL 30 F0G23270 65425 -0501 00 0 63140 ORA LPAR FOLLOW BY ( F0G23280 65426 0602 00 0 66560 SLW FMCMN F0G23290 65427 0534 00 1 63763 LXA FMTCP,1 GENERATE F0G23300 BINARY CARD NO. 9F070109 65430 -3 77463 1 65114 TXL EXIT+1,1,-NEFMTT+2 FORMAT TOO LARGE F0G23310 65431 0534 00 2 65732 LXA L(3),2 FORMAT F0G23320 65432 0500 00 2 66563 CLA FMCMN+3,2 F0G23330 65433 0601 00 1 66226 STO FMT,1 F0G23340 65434 1 77777 1 65435 TXI *+1,1,-1 F0G23350 65435 2 00001 2 65432 TIX *-3,2,1 F0G23360 65436 0634 00 1 63763 SXA FMTCP,1 SAVE FORMAT TAG F0G23370 65437 -0634 00 0 66171 SXD CCNT,0 RESET CHAR COUNTER F0G23380 65440 0534 00 2 66621 LXA L1,2 PLACE F0G23390 65441 0634 00 2 66566 SXA CMDMP+3,2 ADDRESSES F0G23400 65442 0534 00 2 66622 LXA L2,2 IN F0G23410 65443 0634 00 2 66571 SXA CMDMP+6,2 COMPILED F0G23420 65444 0534 00 2 66620 LXA U,2 INSTRUCTIONS F0G23430 65445 -0634 00 2 66576 SXD CMDMP+11,2 F0G23440 65446 -0534 00 1 66142 LXD COMTG,1 COMPILE F0G23450 65447 0560 00 0 66577 LDQ BPCMDP INSTRUCTIONS F0G23460 65450 0774 00 2 00014 L(12) AXT 12,2 F0G23470 65451 0074 00 4 63740 TSX COMPLE,4 F0G23480 65452 0 00000 2 66577 PZE CMDMP+12,2 F0G23490 65453 0020 00 0 65113 TRA EXIT F0G23500 * F0G23510 SUBSCRIPTED COMMON F0G23520 65454 0634 00 1 65550 CDMPB SXA CDMPE,1 F0G23530 65455 0074 00 2 63236 TSX C0150,2 GET FIRST SUBSCRIPT. F0G23540 BINARY CARD NO. 9F070110 65456 0560 00 0 65774 LDQ I F0G23550 65457 0162 00 0 65461 TQP *+2 NUMERIC F0G23560 65460 0074 00 4 65523 TSX CDMPD,4 SYMBOL, CONVERT TO SUBSCRIPT F0G23570 65461 0074 00 4 63705 TSX CACMD,4 F0G23580 65462 0500 00 0 65772 CLA 1G F0G23590 65463 0621 00 0 66623 STA S1 F0G23600 65464 0074 00 2 63236 TSX C0150,2 GET S2 F0G23610 65465 0560 00 0 65774 LDQ I F0G23620 65466 0162 00 0 65470 TQP *+2 F0G23630 65467 0074 00 4 65523 TSX CDMPD,4 SYMBOL, CONVERT TO SUBSCRIPT F0G23640 65470 0402 00 0 63144 SUB RPAR F0G23650 65471 -0100 00 0 64124 TNZ MTCB NOT FOLLOWED BY ) F0G23660 65472 0500 00 0 65772 CLA 1G F0G23670 65473 0601 00 0 66624 STO S2 F0G23680 65474 0560 00 0 66623 LDQ S1 INSURE S1 F0G23690 65475 0040 00 0 65501 TLQ *+4 LESS THEN S2 F0G23700 65476 -0600 00 0 66624 STQ S2 INTERCHANGE F0G23710 65477 0601 00 0 66623 STO S1 SUBSCRIPTS F0G23720 65500 0500 00 0 66624 CLA S2 F0G23730 65501 0402 00 0 66623 SUB S1 F0G23740 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 49 RECORD 7 OR 32 DEBUG 65502 0400 00 0 65730 ADD L(1) F0G23750 65503 0601 00 0 66617 STO NNL F0G23760 BINARY CARD NO. 9F070111 65504 0500 00 1 66004 CLA UMC8,1 F0G23770 65505 0402 00 0 66623 SUB S1 F0G23780 65506 0400 00 0 65730 ADD L(1) F0G23790 65507 0621 00 0 66620 STA U U F0G23800 65510 0500 00 1 66004 CLA UMC8,1 F0G23810 65511 0402 00 0 66624 SUB S2 F0G23820 65512 0400 00 0 65730 ADD L(1) F0G23830 65513 0601 00 0 66621 STO L1 L1 F0G23840 65514 0500 00 1 66016 CLA UCOMMN,1 F0G23850 65515 0402 00 0 66624 SUB S2 F0G23860 65516 0400 00 0 65730 ADD L(1) F0G23870 65517 0601 00 0 66622 STO L2 L2 F0G23880 65520 0074 00 4 63150 TSX C0190,4 F0G23890 65521 0074 00 2 64126 TSX MTC,2 CHECK END OF FIELD F0G23900 65522 0020 00 0 65377 TRA CDMPA F0G23910 65523 3 00000 1 64125 CDMPD TXH MTC-1,1,0 SPECIAL VARIABLE ILLEGAL. F0G23920 65524 0634 00 4 65563 SXA CDMPF,4 F0G23930 65525 0500 00 0 65772 CLA 1G F0G23940 65526 0074 00 4 63521 TSX STSCH,4 F0G23950 65527 0020 00 0 64124 TRA MTCB NOT IN SYMBOL TABLE. F0G23960 65530 -0500 00 1 70726 CAL STBL-1,1 F0G23970 65531 -0320 00 0 65744 ANA MSK1 F0G23980 BINARY CARD NO. 9F070112 65532 0601 00 0 63127 STO TEMP F0G23990 65533 0500 00 0 63126 CLA 1H F0G24000 65534 0402 00 0 63140 SUB LPAR F0G24010 65535 -0100 00 0 65547 TNZ CDMPE-1 NOT SUBSCRIPTED. F0G24020 65536 0074 00 2 63170 TSX C0180,2 F0G24030 65537 0402 00 0 63144 SUB RPAR F0G24040 65540 -0100 00 0 64124 TNZ MTCB F0G24050 65541 0074 00 4 63150 TSX C0190,4 GET NEXT PUNCTUATION. F0G24060 65542 0601 00 0 63126 STO 1H F0G24070 65543 0500 00 0 63127 CLA TEMP F0G24080 65544 0402 00 0 65772 SUB 1G F0G24090 65545 0400 00 0 65730 ADD L(1) F0G24100 65546 0020 00 0 65550 TRA CDMPE F0G24110 65547 0500 00 0 63127 CLA TEMP F0G24120 65550 0774 00 1 00000 CDMPE AXT **,1 F0G24130 65551 0340 00 1 66007 CAS LCOMPC,1 F0G24140 65552 0020 00 0 65553 TRA *+1 GREATER THAN LOWEST DATA. F0G24150 65553 0340 00 1 66004 CAS UMC8,1 EQUAL LOWEST DATA. F0G24160 65554 0020 00 0 64124 TRA MTCB LESS THAN LOWEST, GREATER THEN HIGHEST. F0G24170 65555 0020 00 0 65556 TRA *+1 EQUAL HIGHEST DATA. F0G24180 65556 -0760 00 0 00003 SSM LESS THAN HIGHEST F0G24190 65557 0400 00 1 66004 ADD UMC8,1 F0G24200 BINARY CARD NO. 9F070113 65560 0400 00 0 65730 ADD L(1) F0G24210 65561 0601 00 0 65772 STO 1G F0G24220 65562 0500 00 0 63126 CLA 1H F0G24230 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 50 RECORD 7 OR 32 DEBUG 65563 0774 00 4 00000 CDMPF AXT **,4 F0G24240 65564 0020 00 4 00001 TRA 1,4 F0G24250 * F0G24260 65565 0500 00 0 65741 ODMP CLA L(O) F0G24270 65566 0601 00 0 66225 STO FMTCC F0G24280 65567 0634 00 4 66102 SXA VI,4 SET VI TO NON ZERO F0G24290 65570 0500 00 0 63126 CLA 1H F0G24300 65571 0340 00 0 63140 CAS LPAR F0G24310 65572 0020 00 0 65574 TRA *+2 F0G24320 65573 0020 00 0 65614 TRA ODMPC SUBSCRIPTED F0G24330 65574 0074 00 2 64126 TSX MTC,2 NO SUBSCRIPT-CHECK FOR END OF FIELD F0G24340 65575 0500 00 0 66545 CLA STHW F0G24350 65576 0621 00 0 66621 STA L1 F0G24360 65577 0621 00 0 66622 STA L2 F0G24370 65600 0500 00 0 66004 CLA UMC8 F0G24380 65601 0621 00 0 66620 STA U F0G24390 65602 0560 00 0 66621 LDQ L1 INSURE L1,L2 F0G24400 65603 0040 00 0 65610 TLQ *+5 LESS THAN U F0G24410 65604 -0600 00 0 66620 STQ U INTERCHANGE F0G24420 65605 0601 00 0 66621 STO L1 (L1,L2),U F0G24430 BINARY CARD NO. 9F070114 65606 0601 00 0 66622 STO L2 F0G24440 65607 0500 00 0 66620 CLA U F0G24450 65610 0402 00 0 66621 ODMPA SUB L1 GET NNL F0G24460 65611 0401 00 0 65730 ADM L(1) F0G24470 65612 0601 00 0 66617 STO NNL F0G24480 65613 0020 00 0 65401 TRA CDMPA+2 F0G24490 65614 0074 00 2 63637 ODMPC TSX FSAA-1,2 F0G24500 65615 0500 00 0 63127 CLA TEMP F0G24510 65616 0621 00 0 66621 STA L1 GET L1,L2 F0G24520 65617 0621 00 0 66622 STA L2 F0G24530 65620 0500 00 0 63126 CLA 1H F0G24540 65621 0074 00 4 63705 TSX CACMD,4 F0G24550 65622 0074 00 2 63637 TSX FSAA-1,2 F0G24560 65623 0500 00 0 63126 CLA 1H F0G24570 65624 0402 00 0 63144 SUB RPAR F0G24580 65625 -0100 00 0 64124 TNZ MTCB F0G24590 65626 0074 00 4 63150 TSX C0190,4 F0G24600 65627 0074 00 2 64126 TSX MTC,2 F0G24610 65630 0500 00 0 63127 CLA TEMP F0G24620 65631 0020 00 0 65601 TRA ODMPA-7 F0G24630 65632 0500 00 0 65743 BDMP CLA L(A) F0G24640 65633 0020 00 0 65566 TRA ODMP+1 F0G24650 BINARY CARD NO. 9F070115 65634 0500 00 0 65742 DDMP CLA L(G) F0G24660 65635 0020 00 0 65566 TRA ODMP+1 F0G24670 * F0G24680 RIGHT PARENTHESES ENCOUNTERED F0G24690 65636 -0500 00 0 65772 PE CAL 1G F0G24700 65637 0520 00 0 65774 ZET I F0G24710 65640 0771 00 0 00036 ARS 30 I = -1 ALPHA F0G24720 65641 0767 00 0 00006 ALS 6 I = 0 F0G24730 65642 -0501 00 0 63144 ORA RPAR C) OR 1) F0G24740 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 51 RECORD 7 OR 32 DEBUG 65643 0602 00 0 63134 SLW TEMP+5 F0G24750 65644 0074 00 2 63204 TSX C0160X,2 GET NEXT FIELD IN BCD F0G24760 65645 0560 00 0 65772 LDQ 1G F0G24770 65646 -0500 00 0 63134 CAL TEMP+5 F0G24780 65647 -0765 00 0 00014 LGR 12 F0G24790 65650 -0600 00 0 65772 STQ 1G 1G = C) XXB-OR 1) 1B F0G24800 65651 0500 00 0 63126 PEA CLA 1H F0G24810 65652 0074 00 2 64126 TSX MTC,2 CHECK LEGAL END F0G24820 65653 0500 00 0 65772 PEC CLA 1G F0G24830 65654 0074 00 4 63521 TSX STSCH,4 SEARCH SYMBOL TABLE F0G24840 65655 0020 00 0 64124 TRA MTCB MOVE TO COMMA F0G24850 65656 0074 00 4 63614 TSX STAA,4 ADJUST ADDRESS F0G24860 65657 0074 00 4 64044 TSX RGHTA,4 PREPARE NAM F0G24870 65660 0602 00 0 66163 SLW NAM AND SUBS F0G24880 65661 0600 00 0 66164 STZ SUBS FOR FORMAT F0G24890 BINARY CARD NO. 9F070116 65662 0520 00 0 65774 ZET I F0G24900 65663 0020 00 0 65102 TRA EXIT-9 GO COMPILE SINGLE CELL F0G24910 65664 0500 00 1 70726 PED CLA STBL-1,1 GET F0G24920 65665 0600 00 0 63135 STZ TEMP+6 F0G24930 65666 0621 00 0 63135 STA TEMP+6 RANGE F0G24940 65667 -0500 00 1 70730 CAL STBL+1,1 OF F0G24950 65670 -0734 00 2 00000 PDX 0,2 TYPE OF SYMBOL F0G24960 65671 3 00000 2 65673 TXH *+2,2,0 USE UMC8-2 IF NO PROG DATA F0G24970 65672 -0500 00 0 66002 CAL UMC8-2 F0G24980 65673 -0320 00 0 65744 ANA MSK1 1) TYPE F0G24990 65674 0402 00 0 63135 SUB TEMP+6 F0G25000 65675 0621 00 0 66644 STA EDATA F0G25010 65676 0400 00 0 63127 ADD TEMP PLACE F0G25020 65677 0621 00 0 66645 STA EDATA+1 LDQ ADDRESS F0G25030 65700 0534 00 2 66644 LXA EDATA,2 F0G25040 65701 -3 00001 2 65102 TXL EXIT-9,2,1 GO FOR SINGLE CELL F0G25050 65702 0500 00 0 63146 CLA PLUS F0G25060 65703 0601 00 0 63140 STO LPAR ADJUST F0G25070 65704 0500 00 0 63776 CLA FMTCP+11 FOR + INSTEAD OF( ) F0G25080 65705 0601 00 0 63772 STO FMTCP+7 F0G25090 65706 -0634 00 2 66624 PEE SXD S2,2 F0G25100 65707 0074 00 4 63762 TSX NSTB,4 GENERATE FORMAT F0G25110 BINARY CARD NO. 9F070117 65710 -0534 00 2 66624 LXD S2,2 F0G25120 65711 -0500 00 0 66164 CAL SUBS F0G25130 65712 0400 00 0 65730 ADD L(1) F0G25140 65713 0114 06 0 66651 CVR CVRT1,0,6 UPDATE ADDEND F0G25150 65714 0602 00 0 66164 SLW SUBS F0G25160 65715 2 00001 2 65706 TIX PEE,2,1 F0G25170 65716 0500 00 0 66643 CLA XLPAR F0G25180 65717 0601 00 0 63140 STO LPAR RESTORE F0G25190 65720 0500 00 0 65641 CLA PE+3 FOR NORMAL ARRAY F0G25200 65721 0601 00 0 63772 STO FMTCP+7 DUMPING F0G25210 65722 0774 00 2 00004 L(4) AXT 4,2 F0G25220 65723 -0534 00 1 66142 LXD COMTG,1 F0G25230 65724 0560 00 0 66650 LDQ BPEDT F0G25240 65725 0074 00 4 63740 TSX COMPLE,4 F0G25250 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 52 RECORD 7 OR 32 DEBUG 65726 0 00000 2 66650 PZE EDATA+4,2 F0G25260 65727 0020 00 0 65113 TRA EXIT F0G25270 * F0G25280 CONSTANTS F0G25290 65730 +000000000001 L(1) DEC 1 F0G25300 65731 +000000000002 L(2) DEC 2 F0G25310 65732 +000000000003 L(3) DEC 3 F0G25320 65733 +000000000006 L(6) DEC 6 F0G25330 65734 +000000000010 L(8) DEC 8 F0G25340 65735 +000000000011 L(9) DEC 9 F0G25350 BINARY CARD NO. 9F070118 65736 454660606060 NO BCI 1,NO F0G25360 65737 312660606060 L(IF) BCI 1,IF F0G25370 65740 702562606060 YES BCI 1,YES F0G25380 65741 000000000046 L(O) BCD 100000O F0G25390 65742 000000000027 L(G) BCI 1,00000G F0G25400 65743 000000000021 L(A) BCD 100000A F0G25410 65744 +000000077777 MSK1 OCT 77777 F0G25420 65745 +347777777777 MSK2 OCT 347777777777 F0G25430 65746 606060606060 BLANKS BCD 1 F0G25440 65747 000000000060 ABLANK BCD 100000 F0G25450 65750 0500 00 0 77677 LCLAM1 CLA TOPMEM $F0G25451 65751 0500 00 0 77676 LCLAM2 CLA TOPMEM-1 $F0G25452 65752 0560 00 0 77675 LLDQM3 LDQ TOPMEM-2 $F0G25453 65753 0560 00 0 77674 LLDQM4 LDQ TOPMEM-3 $F0G25454 INSTRUCTION TEST F0G25460 65754 DUP 1,3 F0G25470 65754 +077700000000 IITEST OCT 77700000000 F0G25480 65757 0602 00 0 00000 SLW SLW 0 FOR BOOLEA N F0G25490 65760 0601 00 0 00000 STO STO 0 F0G25500 65761 -0600 00 0 00000 STQ STQ 0 F0G25510 65762 DUP 1,3 F0G25520 65762 +077700000000 NOADDC OCT 77700000000 F0G25530 BINARY CARD NO. 9F070119 65765 -0500 00 0 00000 CAL CAL 0 F0G25540 65766 0020 00 0 00000 TRA TRA 0 F0G25550 65767 0100 00 0 00000 TZE TZE 0 F0G25560 65770 1 00000 0 00000 TXI TXI 0,0,0 F0G25570 65771 ITEST BSS 0 F0G25580 * F0G25590 LOCATIONS FOR SYMBOL FORMATION ETC F0G25600 65771 0 00000 0 00000 RESIDU F0G25610 65772 +000000000000 1G DEC 0,0 CONVERTED FIELD $F0G25620 65774 0 00000 0 00000 I +0 = NUMERIC -0 = NON NUMERIC F0G25630 65775 0 00000 0 00000 N1 F0G25640 65776 0 00000 0 00000 N2 F0G25650 65777 0 00000 0 00000 N3 F0G25660 DATA CONCERNING SYMBOL TABLE (* SUPPLIED BY MONITOR) F0G25670 66000 0 00000 0 00000 LPROGD LOWER ABSOLUTE PROGRAM DATA F0G25680 66001 0 00000 1 00000 LC PZE 0,1 LOCATION COUNTER (P.B + LADD) INITIALLY F0G25690 66001 LCP EQU LC F0G25700 66002 0 00000 0 00000 PZE UPPER ERASEABLE (REL) LAST LOC F0G25710 66003 0 00000 0 00000 PZE PROGRAM BREAK-1 OF TOTAL F0G25720 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 53 RECORD 7 OR 32 DEBUG 66004 0 00000 0 77461 UMC8 PZE IUPCM $F0G25730 66005 0 00000 0 00000 PZE LOWER ERASEABLE-1 (REL) FIRST LOC F0G25740 66006 0 00000 0 00000 PZE LOWER PROG DATA-1 (REL) OF TOTAL F0G25750 66007 0 00000 0 00000 LCOMPC * LOWER COMMON ON PROG CARD ARRAY DUMP F0G25760 66010 0 00000 0 00000 PZE LOWER ERASEABLE-1 (ABS) FIRST LOC F0G25770 66011 0 00000 0 00000 PZE LOWER PROGRAM DATA-1 (ABS) COPIED OF F0G25780 BINARY CARD NO. 9F070120 66012 0 00000 0 00000 LCOMMN * LOWER ABS COMMON-1 TOTAL ARRAY DMF0G25790 66013 0 00000 0 00000 PZE UPPER ERASABLE (ABS) F0G25800 66014 0 00000 0 00000 PZE UPPER ERASABLE (ABS) F0G25810 66015 0 00000 0 00000 PZE PROGRAM BREAK-1 + LOADING ADDRESS F0G25820 66016 0 00000 0 00000 UCOMMN * UPPER ABSOLUTE COMMON F0G25830 * F0G25840 DATA FOR STABLE SUBPROGRAM F0G25850 66017 SWTBLE BSS 50 DEC = EXIT ADD = ENTR TO SNAP F0G25860 BINARY CARD NO. 9F070121 66101 0 00000 0 00000 SWTBLN NO OF ENTRIES IN SWTBLE F0G25870 IF DATA F0G25880 66102 0 00000 0 00000 VI F0G25890 66103 0500 00 0 00000 IFINS CLA 0 F0G25900 66104 0 00000 0 00000 PZE 0 F0G25910 66105 0100 00 0 00000 TZE 0 F0G25920 66106 -0120 00 0 00000 TMI 0 F0G25930 66107 0120 00 0 00000 TPL 0 F0G25940 66110 0 00000 0 00000 PZE 0 F0G25950 66111 0020 00 0 00002 TRA 2 F0G25960 66112 0 00000 0 00000 BPIF PZE F0G25970 EFN DATA F0G25980 66113 0 00000 0 00000 EFNCT NO OF EFN FOR A GIVEN SUB-PROG F0G25990 66114 0 00000 0 00000 EFNTAG DEC = TAG ENTRY F0G26000 66115 +000000000000 DEC ,,,,,,,,,0 TABLE OF EFN FOR SNAPS (BCD) $F0G26010 66127 EFNTB EQU * SYMBOL TO REFERENCE ABOVE $F0G26011 BINARY CARD NO. 9F070122 66127 +000000000000 DEC ,,,,,,,,,0 RETURN ADDRESS FOR CORR EFN $F0G26020 66141 EFNRT EQU * SYMBOL TO REFERENCE ABOVE $F0G26021 66141 0020 00 0 00000 TRA2 TRA 0 EXIT FROM SNAP F0G26030 66142 0 00000 0 00000 COMTG COMPILING TAG F0G26040 66143 0 00000 0 00000 CEFN CURRENT EFN IN BCD F0G26050 66144 0 00000 0 00000 EFNCX ADD OF BEGINNING EFN F0G26060 COMPILED INSTRUCTIONS F0G26070 66145 0020 00 0 00002 L(TR2) TRA 2 F0G26080 66146 -1 00000 0 00000 L(STR) STR F0G26090 COUNTER TEST INSTRUCTIONS F0G26100 66147 0774 00 1 00000 L(CNI) AXT 0,1 0 F0G26110 66150 1 00001 1 00001 TXI 1,1,1 1 1 F0G26120 66151 0634 00 1 77776 SXA -2,1 1 F0G26130 66152 -3 00000 1 00000 TXL **,1,** CNS,(N1-1)0 3 F0G26140 66153 3 00000 1 00000 TXH **,1,** CNS,N2 0 4 F0G26150 66154 3 00000 1 00002 TXH 2,1,** (N1-1) 1 5 F0G26160 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 54 RECORD 7 OR 32 DEBUG BINARY CARD NO. 9F070123 66155 1 00000 0 00000 TXI **,0,0 CNS 0 6 F0G26170 66156 1 00000 1 00001 TXI 1,1,** (N3-1) 1 7 F0G26180 66157 -0634 00 1 77775 SXD -3,1 1 8 F0G26190 66160 0020 00 0 00002 TRA 2 F0G26200 66161 +313000000000 BPCNR OCT 313000000000 F0G26210 FORMAT + LIST F0G26220 66162 010530606060 15H BCD 115H F0G26230 66163 0 00000 0 00000 NAM F0G26240 66164 0 00000 0 00000 SUBS F0G26250 66165 0 00000 0 00000 FMTAG F0G26260 66166 270105330761 ESL BCI 1,G15.7/ F0G26270 66167 270105330773 ECM BCI 1,G15.7, F0G26280 66170 000000000061 SLASH BCD 100000/ F0G26290 66171 0 00000 0 00000 CCNT F0G26300 66172 0774 00 1 00000 ARRAY AXT **,1 0 S1 F0G26310 66173 0534 00 4 00002 LXA 2,4 1 1 F0G26320 66174 -0634 00 4 00010 SXD 8,4 2 1 F0G26330 66175 -0754 00 1 00000 PXD **,1 3 0 S1+5 F0G26340 66176 0131 00 0 00000 XCA 4 0 F0G26350 66177 -1 00000 0 00000 STR 5 0 F0G26360 66200 0560 00 1 00000 LDQ **,1 6 0 F0G26370 66201 -1 00000 0 00000 STR 7 0 F0G26380 66202 1 00001 1 00001 TXI 1,1,1 8 1 F0G26390 BINARY CARD NO. 9F070124 66203 3 00000 1 00005 TXH 5,1,** 9 1 S2 F0G26400 66204 -3 00000 1 77774 TXL -4,1,** 10 1 S1+5 INITIALLY F0G26410 66205 1 00005 1 00001 TXI 1,1,5 11 1 F0G26420 66206 -0634 00 1 77776 SXD -2,1 12 1 F0G26430 66207 1 77773 1 77766 TXI -10,1,-5 13 1 F0G26440 66210 +301760000000 BPARY OCT 301760000000 F0G26450 66211 0 00000 0 00000 ARRFI F0G26460 66212 606074073060 BCD 1 (7H F0G26470 66213 0 00000 0 00000 PZE F0G26480 66214 310573062701 BCI 1,I5,6G1 F0G26490 66215 103307613473 BCD 18.7/), F0G26500 66216 606060073060 ARRFR BCD 1 7H F0G26510 66217 0 00000 0 00000 PZE F0G26520 66220 310573606060 BCD 1I5, F0G26530 66221 270110330761 BCI 1,G18.7/ F0G26540 66222 0560 00 0 00000 SIGCL LDQ ** F0G26550 66223 -1 00000 0 00000 STR F0G26560 66224 442131456060 MAINW BCD 1MAIN F0G26570 66225 0 00000 0 00000 FMTCC F0G26580 66226 740302300060 FMT BCD 7(32H0 EFN COUNTI6//1P F0G26590 BINARY CARD NO. 9F070125 66235 BSS NEFMTT-7 F0G26600 BINARY CARD NO. 9F070126 66545 0074 00 4 03734 STHW TSX ORIGIN,4 F0G26610 66546 0 00000 0 00000 FMTL PZE ** F0G26620 66547 0074 00 4 03735 FIL TSX ORIGIN+1,4 F0G26630 INSTRUCTIONS FOR PLACING TAPE NO IN AC F0G26640 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 55 RECORD 7 OR 32 DEBUG 66550 -0500 00 0 00002 CALTN CAL 2 F0G26650 66551 0020 00 0 00002 TRA 2 F0G26660 66552 0 00006 0 00000 PZE 0,0,TAPOUT F0G26670 66553 -2 00000 0 00000 BPCALT TNX 0,0,0 F0G26680 INSTRUCTIONS FOR COUNTER PRINT F0G26690 66554 0534 00 1 00000 CNTOUT LXA **,1 F0G26700 66555 -0754 00 1 00000 PXD 0,1 F0G26710 66556 0131 00 0 00000 XCA F0G26720 66557 -1 00000 0 00000 STR F0G26730 66560 0 00000 0 00000 FMCMN PZE F0G26740 66561 460101730627 BCI 1,O11,6G F0G26750 66562 011033076134 BCD 118.7/) F0G26760 INST FOR COMMON DUMP F0G26770 66563 0774 00 4 00000 CMDMP AXT 0,4 0 F0G26780 66564 0534 00 1 00002 LXA 2,1 1 F0G26790 66565 0754 00 1 00000 PXA 0,1 0 F0G26800 66566 -0130 00 0 00000 XCL ** 0 L1 IN ADDRESS F0G26810 66567 -1 00000 0 00000 STR 0 F0G26820 66570 0774 00 2 00006 AXT 6,2 0 F0G26830 66571 0560 00 4 00000 LDQ **,4 0 L2 IN ADDRESS F0G26840 66572 -1 00000 0 00000 STR 0 F0G26850 BINARY CARD NO. 9F070127 66573 1 77777 4 00001 TXI 1,4,-1 1 F0G26860 66574 2 00001 2 77775 TIX -3,2,1 1 F0G26870 66575 1 00006 1 00001 TXI 1,1,6 1 F0G26880 66576 -3 00000 1 77767 TXL -9,1,** 1 U IN DEC F0G26890 66577 +201700000000 BPCMDP OCT 201700000000 F0G26900 L1 = P.C. + 1 FOR UN-SUBSCRIPTED (LCOMPC+1) F0G26910 L1 = 77462-S2 + 1 FOR SUBSCRIPT F0G26920 L2 = ABS LCOM. + 1 FOR UNSUBSCRIPTED (LCOMMN+1) F0G26930 L2 = ABS UCOM.-S2 + 1 FOR SUBSCRIPT (UCOMMN-S2+1) F0G26940 U = 77462 FOR UNSUBSCRIPTED F0G26950 U = 77462-S1 + 1 FOR SUBSCRIPTED F0G26960 66600 234644444645 TSPCH BCD 1COMMON F0G26970 66601 475146275121 BCD 1PROGRA F0G26980 66602 255121622122 BCD 1ERASAB F0G26990 66603 255121622521 BCD 1ERASEA F0G27000 66604 462363214324 BCD 1OCTALD F0G27010 66605 222324246444 BCD 1BCDDUM F0G27020 66606 242523314421 BCD 1DECIMA F0G27030 66607 BSS 7 F0G27040 BINARY CARD NO. 9F070128 66616 0 00000 0 00000 NL F0G27050 66617 0 00000 0 00000 NNL F0G27060 66620 0 00000 0 00000 U F0G27070 66621 0 00000 0 00000 L1 F0G27080 66622 0 00000 0 00000 L2 F0G27090 66623 0 00000 0 00000 S1 F0G27100 66624 0 00000 0 00000 S2 F0G27110 66625 0020 00 0 65356 ESPCH TRA CDMP F0G27120 66626 1 00001 1 65356 TXI CDMP,1,1 F0G27130 66627 1 00002 1 65356 TXI CDMP,1,2 F0G27140 66630 1 00002 1 65356 TXI CDMP,1,2 F0G27150 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 56 RECORD 7 OR 32 DEBUG 66631 0020 00 0 65565 TRA ODMP F0G27160 66632 0020 00 0 65632 TRA BDMP F0G27170 66633 0020 00 0 65634 TRA DDMP F0G27180 66634 BSS 7 F0G27190 FOR ERASEABLE F0G27200 BINARY CARD NO. 9F070129 66643 000000000074 XLPAR BCD 100000( F0G27210 66644 0774 00 1 00000 EDATA AXT **,1 F0G27220 66645 0560 00 1 00000 LDQ **,1 F0G27230 66646 -1 00000 0 00000 STR F0G27240 66647 2 00001 1 77776 TIX -2,1,1 F0G27250 66650 0400 00 0 00000 BPEDT ADD 0 F0G27260 CONVERSION TABLE FOR BCD ADDITION. $F0G27270 66651 DUP 1,10 $F0G27280 66651 000000066651 CVRT1 VFD 6/*-CVRT1,30/CVRT1 $F0G27290 66663 DUP 1,10 $F0G27300 66663 000000066652 VFD 6/*-CVRT1-10,30/CVRT1+1 $F0G27310 BINARY CARD NO. 9F070130 * PATCH SPACE FROM HERE TO NDBG $F0G27470 66675 0500 00 1 73422 PATCHD CLA IM+3,1 STORE PROGRAM DATA ORIGIN (20)F0G27471 66676 0621 00 0 70727 STA STBLE IN SYMBOL TABLE (20)F0G27472 66677 0020 00 0 65175 TRA LST+7 TIMES TWO (20)F0G27473 66700 BSS 47 PATCH SPACE (20)F0G27474 66757 NDBG EQU * F0G27580 TABLES ETC NEEDED FOR SEARCH OF D-TABLES F0G27590 70727 STBL BES NESYTB F0G27600 70727 STBLE BSS 1 NO. OF SYMBOLS IN SYMBOL TABLE F0G27610 70730 BSS 1 ADDRESS=2* NUMBER OF SUBPROGRAMS TO SNAP F0G27620 70731 DTBLS BSS NEDBTB STORAGE FOR DEBUG TABLES F0G27630 71715 ENDBG EQU * F0G27640 BINARY CARD NO. TRA77777 77777 TCD -1 $F0G27645 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 57 RECORD 8 OR 33 BSS CONTROL ABS $F0H00010 00102 ORG SYSCUR $F0H00040 BINARY CARD NO. 9F080000 00102 112600100000 BCI 1,9F0800 $F0H00056 73666 ORG (LODR) $F0H00060 BINARY CARD NO. 9F080001 73666 1 00120 0 63021 TXI ENTBS,,80 ENTRY POINT,,RECORD NO. $F0H00076 F0H00090 71715 LLIST EQU ENDBG $F0H00100 00062 NMMSP EQU 50 MAXIMUM NUMBER OF MISSING ROUTINES F0H00110 71633 FMR EQU LLIST-NMMSP LOCATION OF FIRST MISSING SUBROUTINE F0H00120 00034 BUFSIZ EQU 28 BUFFER SIZE F0H00130 03733 PRCBRK EQU BOTTOM-1 PROG. BREAK IN DEC., COMMON IN ADDRESS F0H00140 F0H00160 * F0H00170 71716 ORGBSS ORG LLIST+1 F0H00180 BINARY CARD NO. 9F080002 71716 0054 00 400000 ENTBSS RFT 400000 IS THERE DEBUG $F0H00200 71717 0020 00 0 71723 TRA *+4 YES. LOADING TABLES ALREADY CLEARED. F0H00210 71720 0774 00 1 64674 AXT TABL-BOTTOM+1,1 NO. CLEAR TO TOP OF F0H00220 71721 0600 00 1 70630 STZ TABL+1,1 LOADING TABLES F0H00230 71722 2 00001 1 71721 TIX *-1,1,1 F0H00240 71723 -0054 00 000002 LFT 2 IS THIS A CHAIN JOB F0H00250 71724 0020 00 0 71730 TRA CHENT YES. F0H00260 71725 0056 00 200000 RNT 200000 IS THERE BINARY INPUT F0H00270 71726 0020 00 0 73000 TRA EOFA2 NO F0H00280 71727 0020 00 0 71747 TRA L YES, A2 INPUT (TAPE 5) F0H00290 71730 -0055 00 000001 CHENT SIL 1 SET FLAG TO INDICATE BSS $F0H00300 71731 0604 60 0 73660 STI* (FGBX) HAS BEEN READ IN. $F0H00310 71732 0774 00 1 00010 AXT 8,1 SET UP TO READ B1. F0H00320 71733 0774 00 2 00000 AXT 0,2 F0H00330 * F0H00340 71734 -0634 00 1 71757 INITL SXD RDTPN,1 TAPE NUMBER F0H00350 71735 -0754 00 0 00000 PXD ,0 F0H00360 71736 -3 00004 1 71741 TXL *+3,1,4 F0H00370 71737 3 00005 1 71741 TXH *+2,1,5 F0H00380 71740 -0500 00 0 73210 CAL BSRCW IF TAPE 5 SET SIGN MINUS IN ERROR RETURN F0H00390 71741 0630 00 0 71760 STP RDTPN+1 F0H00400 71742 1 73672 1 71743 TXI *+1,1,(SCHU) F0H00410 71743 0634 00 1 71765 SXA TEOF,1 F0H00420 BINARY CARD NO. 9F080003 71744 0634 00 2 71757 SXA RDTPN,2 LABEL F0H00430 71745 0774 00 1 71762 INITB AXT INITS+1,1 SET UP TO READ 2 BUFFERLOADS INITIALLY F0H00440 71746 0634 00 1 71761 SXA INITS,1 F0H00450 * F0H00460 71747 0520 00 0 73173 L ZET LIBSW $F0H00461 71750 0020 00 0 71333 TRA RDLIB READ LIBRARY $F0H00462 * READ INTO ALTERNATE BUFFERS F0H00470 71751 0774 00 1 00000 AXT 0,1 $F0H00480 71752 -0520 00 0 73205 NZT BUFPOS F0H00490 71753 0774 00 1 77743 AXT -BUFSIZ-1,1 F0H00500 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 58 RECORD 8 OR 33 BSS CONTROL 71754 -0634 00 1 73205 SXD BUFPOS,1 F0H00510 71755 0074 00 4 73606 TSX (TAPE),4 F0H00520 71756 0 40004 1 73416 BUF2CW,1,(RBEP) F0H00530 71757 0 00005 0 00000 RDTPN ,,MINTAP $F0H00540 71760 -0 00000 0 73060 MZE RDERR F0H00550 71761 0020 00 0 71762 INITS TRA *+1 F0H00560 71762 0774 00 1 71765 AXT TEOF,1 1ST TIME THROUGH READ 2ND BUFFERLOAD F0H00570 71763 0634 00 1 71761 SXA INITS,1 F0H00580 71764 0020 00 0 71747 TRA L GO BACK TO FILL OTHER BUFFER F0H00590 * F0H00600 71765 -0520 00 0 73677 TEOF NZT (SCHU)+MINTAP WAS PREVIOUS READ AN END OF FILE. $F0H00610 71766 0020 00 0 72772 TRA EOF YES F0H00620 HERE TO START CARD PROCESSING (KNOWN TO BE BINARY AND F0H00630 NON-BLANK) F0H00640 71767 0441 00 1 73417 LBIN LDI IM,1 9L F0H00650 71770 -0057 00 000500 RIL 500 REMOVE COL BIN BITS FROM WORD COUNT F0H00660 71771 0604 00 0 73177 STI WDCNT F0H00670 BINARY CARD NO. 9F080004 71772 -0534 00 2 73177 LXD WDCNT,2 F0H00680 71773 -3 00000 2 72134 TXL ABSTC,2,0 NO WORD COUNT. TEST FOR ABS TRANSFER CARD. F0H00690 71774 3 00040 2 73121 TXH ILLCD,2,32 SELF LOADER ILLEGAL F0H00700 71775 -0054 00 400000 LFT 400000 F0H00710 71776 0020 00 0 72016 TRA TSTPC PROGRAM CARD OR SYMBOL TABLE F0H00720 71777 0600 00 0 73174 STZ MULPC NOT PROG CARD F0H00730 72000 -0056 00 200000 LNT 200000 F0H00740 72001 0020 00 0 72034 TRA SUM ABSOLUTE CARD F0H00750 72002 -0056 00 000040 LNT 40 CONTROL CARD PUNCH IN COL 13 F0H00760 72003 1 00002 2 72032 TXI TSTSK,2,2 INCREASE WORD COUNT FOR REL CARD F0H00770 72004 0441 60 0 73660 LDI* (FGBX) THIS IS CONTROL CARD. $F0H00780 72005 0054 00 400000 RFT 400000 IS THERE DEBUG. F0H00790 72006 0074 00 4 64313 TSX TSSWT,4 YES. F0H00800 72007 0500 00 1 73417 CLA IM,1 F0H00810 72010 0621 00 0 73167 STA T PROGRAM BREAK F0H00820 72011 0400 00 0 73166 ADD S ADDED TO ABS LOC COUNTER F0H00830 72012 0621 00 0 73166 STA S F0H00840 72013 0500 00 1 73420 CLA IM+1,1 9R F0H00850 72014 0621 00 0 73170 STA COMN COMMON F0H00860 72015 0020 00 0 71747 TRA L GET NEXT CARD F0H00870 72016 -0054 00 200000 TSTPC LFT 200000 F0H00880 72017 0020 00 0 64311 LOSYM TRA STENT SYMBOL TABLE. F0H00890 BINARY CARD NO. 9F080005 72020 0520 00 0 73174 ZET MULPC IS THIS A FIRST OR CONTINUATION PC F0H00900 72021 0020 00 0 72034 TRA SUM CONTINUATION $F0H00910 72022 0020 00 0 73523 FIRST TRA SAV8L FIRST PC,INITIALIZE 8L+8R (31)F0H00920 72023 0601 00 0 71552 STO 8R (31)F0H00925 72024 0441 60 0 73660 LDI* (FGBX) $F0H00930 72025 0054 00 400000 RFT 400000 IS THERE DEBUG. F0H00940 72026 0074 00 4 64313 TSX TSSWT,4 YES. F0H00950 72027 0441 00 1 73417 LDI IM,1 F0H00960 72030 0500 00 1 73423 CLA IM+4,1 F0H00970 72031 0601 00 0 73203 STO SNAME F0H00980 72032 0520 00 0 73175 TSTSK ZET SKIP IS SIGNAL SET TO SKIP F0H00990 72033 0020 00 0 71747 TRA L YES, GET NEXT CARD F0H01000 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 59 RECORD 8 OR 33 BSS CONTROL 72034 0520 00 1 73420 SUM ZET IM+1,1 9R F0H01010 72035 -0054 00 100000 LFT 100000 F0H01020 72036 0020 00 0 72046 TRA SUMOK IGNORE CHECKSUM F0H01030 72037 -0500 00 1 73417 CAL IM,1 F0H01040 72040 0361 00 1 73421 ACL IM+2,1 COMPUTE CHECKSUM F0H01050 72041 1 77777 1 72042 TXI *+1,1,-1 F0H01060 72042 2 00001 2 72040 TIX *-2,2,1 F0H01070 72043 -0534 00 1 73205 LXD BUFPOS,1 RESTORE IR1 F0H01080 72044 0322 00 1 73420 ERA IM+1,1 F0H01090 72045 -0100 00 0 73142 TNZ SUMNG CHECKSUM NO GOOD F0H01100 BINARY CARD NO. 9F080006 72046 -0534 00 2 73177 SUMOK LXD WDCNT,2 RESTORE WORD COUNT F0H01110 72047 -0054 00 400000 LFT 400000 F0H01120 72050 0020 00 0 72141 TRA PRCD PROGRM CARD F0H01130 72051 -0056 00 200000 LNT 200000 F0H01140 72052 0020 00 0 72121 TRA ABSCD ABSOLUTE CARD F0H01150 * LOAD REL CARD F0H01160 72053 0500 00 1 73417 CLA IM,1 9L F0H01170 72054 0621 00 0 73165 STA R F0H01180 72055 0502 00 0 73165 CLS R COMPARE RELATIVE LOAD $F0H01190 72056 0400 00 0 73167 ADD T ADDRESS WITH PROGRAM BREAK $F0H01191 72057 -0120 00 0 73163 TMI LDCMN HIGHER,LOADS COMMON $F0H01192 72060 0402 00 0 73166 SUB S COMPUTE LOAD ORIGIN $F0H01193 72061 0621 00 0 73204 STA TMPR ABS LOADING ADDRESS F0H01200 72062 0560 00 1 73422 LDQ IM+3,1 8R F0H01210 72063 0500 00 1 73421 CLA IM+2,1 8L F0H01220 72064 0601 00 0 73201 STO LLB F0H01230 72065 0500 00 0 73201 LRD CLA LLB EXAMINE F0H01240 72066 -0763 00 0 00001 LGL 1 NEXT BIT F0H01250 72067 0602 00 0 73201 SLW LLB TO DETERMINE DEC RELOCATION F0H01260 72070 0120 00 0 72076 TPL LRE IGNORE F0H01270 72071 0500 00 1 73423 CLA IM+4,1 RELOCATE F0H01280 72072 0771 00 0 00022 ARS 18 DECREMENT F0H01290 72073 0074 00 4 72307 TSX CB,4 AND F0H01300 BINARY CARD NO. 9F080007 72074 0767 00 0 00022 ALS 18 STORE F0H01310 72075 0622 00 1 73423 STD IM+4,1 F0H01320 72076 0500 00 0 73201 LRE CLA LLB CHECK FOR F0H01330 72077 -0763 00 0 00001 LGL 1 ADDRESS RELOCATION F0H01340 72100 0602 00 0 73201 SLW LLB F0H01350 72101 0120 00 0 72105 TPL LRF IGNORE F0H01360 72102 0500 00 1 73423 CLA IM+4,1 RELOCATE F0H01370 72103 0074 00 4 72307 TSX CB,4 ADDRESS F0H01380 72104 0621 00 1 73423 STA IM+4,1 F0H01390 72105 1 77777 1 72106 LRF TXI *+1,1,-1 NEXT WORD F0H01400 72106 2 00001 2 72065 TIX LRD,2,1 F0H01410 72107 -0534 00 2 73177 LXD WDCNT,2 RESTORE WORD COUNT F0H01420 72110 0754 00 2 00000 PXA 0,2 F0H01430 72111 0401 00 0 73204 ADM TMPR F0H01440 72112 0621 00 0 72115 STA LRG F0H01450 72113 -0534 00 1 73205 LXD BUFPOS,1 F0H01460 72114 0500 00 1 73423 CLA IM+4,1 MOVE IM F0H01470 72115 0601 00 2 00000 LRG STO **,2 F0H01480 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 60 RECORD 8 OR 33 BSS CONTROL 72116 1 77777 1 72117 TXI *+1,1,-1 F0H01490 72117 2 00001 2 72114 TIX LRG-1,2,1 F0H01500 72120 0020 00 0 71747 TRA L GET NEXT CARD F0H01510 72121 3 00026 2 73121 ABSCD TXH ILLCD,2,22 WORD COUNT GREATER THAN 22 ILLEGAL F0H01520 BINARY CARD NO. 9F080008 72122 0500 00 1 73417 CLA IM,1 F0H01530 72123 0621 00 0 73204 STA TMPR F0H01540 72124 0754 00 2 00000 PXA 0,2 F0H01550 72125 0401 00 0 73204 ADM TMPR F0H01560 72126 0621 00 0 72130 STA ABSCD2 F0H01570 72127 0500 00 1 73421 ABSCD1 CLA IM+2,1 F0H01580 72130 0601 00 2 00000 ABSCD2 STO **,2 LOAD ABSOLUTE CARD F0H01590 72131 1 77777 1 72132 TXI *+1,1,-1 F0H01600 72132 2 00001 2 72127 TIX ABSCD1,2,1 F0H01610 72133 0020 00 0 71747 TRA L F0H01620 72134 -0054 00 677777 ABSTC LFT 677777 IS THIS ABSOLUTE TRANSFER CARD. F0H01630 72135 0020 00 0 71747 TRA L NO. IGNORE CARD WITH ZERO WORD COUNT. F0H01640 72136 0500 00 1 73417 CLA IM,1 YES. F0H01650 72137 0621 00 0 72642 STA PROG STORE ABSOLUTE TRANSFER ADDRESS. F0H01660 72140 0020 00 0 71747 TRA L GET NEXT CARD. F0H01670 * F0H01680 PROCESS PROGRAM CARDS F0H01690 72141 0634 00 2 72274 PRCD SXA LPG,2 WORD COUNT ON PROGRAM CARD F0H01700 72142 0020 00 0 73514 TRA PATCH2 (25)F0H01710 72143 0520 00 0 73174 PRCD0 ZET MULPC IS THIS A CONTINUATION PC (25)F0H01720 72144 1 00002 1 72146 TXI *+2,1,2 YES, FIRST ENTRY POINT NAME IS 8L (25)F0H01730 72145 1 77776 2 72146 TXI *+1,2,-2 FIRST PC, ENTRY PT NAMES START AT 7L (25)F0H01740 72146 0600 00 0 73202 STZ NLDD (25)F0H01750 72147 0500 00 1 73423 PRCD1 CLA IM+4,1 F0H01760 BINARY CARD NO. 9F080009 72150 0074 00 4 72331 TSX CKPL,4 F0H01770 72151 0020 00 0 72304 TRA PRCD3 F0H01780 72152 -0625 00 0 73202 STL NLDD F0H01790 72153 1 77776 1 72154 PRCD2 TXI *+1,1,-2 F0H01800 72154 2 00002 2 72147 TIX PRCD1,2,2 F0H01810 72155 0020 00 0 73530 TESTPC TRA PATCH3 TEST PC FOR UNIQUE ENTRY PTS. (31)F0H01820 72156 0534 00 2 72274 LXA LPG,2 (31)F0H01830 72157 -0534 00 1 73205 LXD BUFPOS,1 (31)F0H01840 72160 0441 60 0 73660 PPRCD LDI* (FGBX) (31)F0H01850 72161 0520 00 0 73173 ZET LIBSW IS THIS LIBRARY SEARCH (31)F0H01860 72162 0020 00 0 71365 TRA LSPC YES (31)F0H01870 72163 0600 00 0 73175 STZ SKIP (31)F0H01880 72164 0056 00 400000 RNT 400000 IS THERE DEBUG. F0H01890 72165 0020 00 0 72174 TRA LPC NO. F0H01900 72166 0500 00 0 73203 CLA SNAME F0H01910 72167 0402 00 0 65220 SUB STNME F0H01920 72170 -0625 00 0 64306 STL SSWT F0H01930 72171 0100 00 0 72174 TZE LPC F0H01940 72172 0600 00 0 64306 STZ SSWT F0H01950 72173 0600 00 0 70727 STZ STBLE F0H01960 72174 -0534 00 4 72446 LPC LXD TAG,4 TAG FOR STORING LOC. OF VECTOR F0H01970 72175 -0754 00 2 00000 PXD 0,2 F0H01980 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 61 RECORD 8 OR 33 BSS CONTROL BINARY CARD NO. 9F080010 72176 0401 00 0 72446 ADM TAG TAG = TXL VEC, 2, ** F0H01990 72177 0622 00 0 72446 STD TAG DEC = NO ENTRIES + OLD ENTRIES F0H02000 72200 -0737 00 2 00000 PDC ,2 F0H02010 72201 1 70627 2 72202 TXI *+1,2,TABL F0H02020 72202 0634 00 2 73172 SXA OVLP,2 F0H02030 72203 0534 00 2 72274 LXA LPG,2 F0H02040 72204 0020 00 0 73510 TRA PATCH5 (31)F0H02050 72205 -0520 00 0 71551 PROC NZT 8L (31)F0H02060 72206 0020 00 0 72257 TRA LPFA MULTIPLE PC,8L IS NAME (31)F0H02070 72207 0634 00 2 72274 SXA LPG,2 F0H02080 72210 0500 00 0 73166 CLA S LOCATION OF THIS VECTOR F0H02090 72211 0560 00 0 71552 LDQ 8R LOAD 4TH WORD OF 1ST PROGRAM CARD (31)F0H02091 72212 0162 00 0 72217 TQP *+5 IS EVEN LOADING REQUIRED,NO. $F0H02092 72213 0760 00 0 00001 LBT YES,IS ADDRESS ALREADY EVEN.. $F0H02093 72214 0020 00 0 72217 TRA *+3 YES $F0H02094 72215 0400 00 0 73207 ADD SKRCW NO, ADD ONE $F0H02095 72216 0621 00 0 73166 STA S AND STORE NEW LOAD ADDRESS $F0H02096 72217 0621 00 4 70627 STA TABL,4 F0H02100 72220 0600 00 4 70626 STZ TABL-1,4 F0H02110 72221 0621 00 0 73200 STA LADD F0H02120 72222 0500 00 0 71551 CLA 8L 3RD WORD OF FIRST PROGRAM CARD (31)F0H02130 72223 -0320 00 0 73237 ANA TMSK CLEAR TAG FIELD. F0H02140 BINARY CARD NO. 9F080011 72224 0622 00 4 70626 STD TABL-1,4 STORE NO IN VECTOR F0H02150 72225 0621 00 0 73167 STA T PROGRAM BREAK F0H02160 72226 0400 00 0 73166 ADD S ABSOLUTE F0H02170 72227 0621 00 0 73166 STA S PROGRAM BREAK F0H02180 72230 -0734 00 2 00000 PDX 0,2 F0H02190 72231 -0320 00 0 73240 ANA TMSK1 CLEAR EVERYTHING BUT TAG FIELD. F0H02200 72232 -0100 00 0 73161 TNZ PTOVL PROGRAM TOO LARGE. F0H02210 72233 3 00000 2 72236 TXH *+3,2,0 F0H02220 72234 -0501 00 0 73225 ORA PRMSK NO VECTOR F0H02230 72235 0630 00 4 70626 STP TABL-1,4 F0H02240 72236 0500 00 0 71552 CLA 8R (31)F0H02260 72237 0054 00 400000 RFT 400000 IF DEBUGGING STORE F0H02270 72240 0621 00 0 66007 STA LCOMPC LOWER COMMON ON PROGRAM CARD F0H02280 72241 0100 00 0 72247 TZE LPF DETERMINE COMMON DATA ASSIGNMENT F0H02290 72242 0361 00 0 73170 ACL COMN $F0H02300 72243 -0320 00 0 73236 ANA ADMSK RETAIN ADDRESS ONLY (33)F0H02310 72244 0054 00 400000 RFT 400000 IF DEBUGGING STORE LOWEST F0H02330 72245 0621 00 0 66012 STA LCOMMN ABSOLUTE COMMON-1 IN LCOMMN F0H02340 72246 0340 00 0 73171 CAS LCOMN AND F0H02350 72247 0500 00 0 73171 LPF CLA LCOMN STORE F0H02360 72250 0761 00 0 00000 NOP LOWEST F0H02370 72251 0621 00 0 73171 STA LCOMN COMMON F0H02380 BINARY CARD NO. 9F080012 72252 0402 00 0 73166 SUB S F0H02390 72253 -0120 00 0 73157 TMI PDOVL PROGRAM AND DATA OVERLAP F0H02400 72254 0600 00 0 71551 STZ 8L PC PROCESSED, RESET 8L (31)F0H02401 72255 0761 00 0 00000 NOP (31)F0H02403 72256 0534 00 2 72274 LXA LPG,2 F0H02410 72257 0500 00 0 73166 LPFA CLA S F0H02420 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 62 RECORD 8 OR 33 BSS CONTROL 72260 0560 00 0 73172 LDQ OVLP F0H02430 72261 0040 00 0 73161 TLQ PTOVL PROGRAM AND TABLES OVERLAP F0H02440 72262 -0500 00 1 73424 CAL IM+5,1 F0H02450 72263 0400 00 0 73200 ADD LADD ENTRY F0H02460 72264 0621 00 1 73424 STA IM+5,1 POINTS F0H02470 72265 1 77776 1 72266 TXI *+1,1,-2 F0H02480 72266 2 00002 2 72262 TIX *-4,2,2 F0H02490 72267 -0534 00 1 73205 LXD BUFPOS,1 MOVE F0H02500 72270 -0534 00 4 72446 LXD TAG,4 IM F0H02510 72271 1 77777 4 72272 TXI *+1,4,-1 TO F0H02520 72272 0520 00 0 73174 ZET MULPC F0H02530 72273 1 00002 1 72274 TXI *+1,1,2 MODIFY IRA FOR MULTIPLE PROGRAM CARD F0H02540 72274 0774 00 2 00000 LPG AXT **,2 TABL F0H02550 72275 0500 00 1 73423 CLA IM+4,1 F0H02560 72276 0601 00 4 70627 STO TABL,4 F0H02570 72277 1 77777 4 72300 TXI *+1,4,-1 F0H02580 BINARY CARD NO. 9F080013 72300 1 77777 1 72301 TXI *+1,1,-1 F0H02590 72301 2 00001 2 72275 TIX LPG+1,2,1 F0H02600 72302 -0625 00 0 73174 STL MULPC SET MULPC TO NON ZERO F0H02610 72303 0020 00 0 71747 TRA L GET NEXT CARD F0H02620 72304 0500 00 0 73225 PRCD3 CLA PRMSK F0H02630 72305 0601 00 1 73423 STO IM+4,1 F0H02640 72306 0020 00 0 72153 TRA PRCD2 F0H02650 * F0H02660 ROUTINE FOR ADJUSTING REL FIELD WHILE LOADING F0H02670 UM WITH 10 BIT = LM WITH 11 BIT = ADD + CR F0H02680 LM WITH 10 BIT = UM WITH 11 BIT = ADD + BASE F0H02690 72307 0621 00 0 73165 CB STA R F0H02700 72310 0500 00 0 73201 CLA LLB F0H02710 72311 -0763 00 0 00001 LGL 1 F0H02720 72312 0602 00 0 73201 SLW LLB F0H02730 72313 -0120 00 0 72315 TMI LTA F0H02740 72314 0760 00 0 00141 LT SLN 1 F0H02750 72315 0502 00 0 73165 LTA CLS R F0H02760 72316 0400 00 0 73167 ADD T F0H02770 72317 0120 00 0 72325 TPL ADDS F0H02780 72320 -0760 00 0 00141 SLT 1 F0H02790 72321 0020 00 0 72327 TRA PROGRM F0H02800 72322 0500 00 0 73165 LDATA CLA R F0H02810 72323 0401 00 0 73170 ADM COMN F0H02820 72324 0020 00 4 00001 TRA 1,4 F0H02830 72325 -0760 00 0 00141 ADDS SLT 1 F0H02840 BINARY CARD NO. 9F080014 72326 0020 00 0 72322 TRA LDATA F0H02850 72327 0402 00 0 73166 PROGRM SUB S F0H02860 72330 0020 00 4 00001 TRA 1,4 F0H02870 * F0H02880 ROUTINE TO SEE IF PROGRAM ALREADY IN CORE. F0H02890 RETURNS 1,4 IF ALREADY LOADED OR 2,4 IF NOT F0H02900 72331 0634 00 4 72342 CKPL SXA CKPLR,4 F0H02910 72332 -0534 00 4 72446 LXD TAG,4 F0H02920 72333 -3 00000 4 72342 CKPL4 TXL CKPLR,4,0 OMIT CHECK FOR NO ENTRIES F0H02930 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 63 RECORD 8 OR 33 BSS CONTROL 72334 1 77777 4 72335 TXI *+1,4,-1 F0H02940 72335 0340 00 4 70627 CKPL2 CAS TABL,4 F0H02950 72336 0020 00 0 72340 TRA *+2 F0H02960 72337 0020 00 0 72344 TRA CKPL1 PROGRAM ALREADY LOADED F0H02970 72340 -3 00002 4 72342 CKPL3 TXL CKPLR,4,2 F0H02980 72341 1 77776 4 72335 TXI CKPL2,4,-2 F0H02990 72342 0774 00 4 00000 CKPLR AXT **,4 NOT IN F0H03000 72343 0020 00 4 00002 TRA 2,4 F0H03010 72344 0534 00 4 72342 CKPL1 LXA CKPLR,4 F0H03020 72345 0020 00 4 00001 TRA 1,4 F0H03030 * SKIP CARDS TO NEXT PROGRAM CARD F0H03040 72346 -0625 00 0 73175 SKPPR STL SKIP SET SWITCH TO SKIP (25)F0H03050 72347 -0625 00 0 73174 STL MULPC SET SWITCH FOR CONTINUATION PC (25)F0H03060 72350 0020 00 0 71747 TRA L F0H03070 * ROUTINE TO CHANGE (STH), (TSH), (EXE) TO (STHM), (TSHM), (EXEM) F0H03080 72351 0340 00 0 73315 ADDM CAS STH F0H03090 72352 0020 00 0 72354 TRA *+2 F0H03100 72353 0500 00 0 73316 CLA STHM F0H03110 BINARY CARD NO. 9F080015 72354 0340 00 0 73317 CAS TSH F0H03120 72355 0020 00 0 72357 TRA *+2 F0H03130 72356 0500 00 0 73320 CLA TSHM F0H03140 72357 0340 00 0 73321 CAS EXE F0H03150 72360 0020 00 0 72362 TRA *+2 F0H03160 72361 0500 00 0 73322 CLA EXEM F0H03170 72362 0020 00 4 00001 TRA 1,4 F0H03180 * F0H03190 START PASS 2 -REPLACE BCD TRANSFER VECTOR BY TTR F0H03200 72363 0600 00 0 73176 TDBLP STZ B4LD EOF WAS HIT ON LOGICAL 4 $F0H03201 72364 0441 60 0 73660 LDI* (FGBX) $F0H03202 72365 0054 00 400000 RFT 400000 ARE THERE DEBUG CARDS $F0H03203 72366 0074 00 4 64313 TSX TSSWT,4 YES $F0H03204 72367 0600 00 0 71633 STZ FMR CLEAR LOCATION OF FIRST MISSING ROUTINE $F0H03205 72370 0774 00 2 00000 SPS2 AXT 0,2 SET IR B FOR PASS2 F0H03210 72371 0020 00 0 72445 TRA PASS2 F0H03220 72372 -0500 00 2 70630 VEC CAL TABL+1,2 F0H03230 72373 -0100 00 0 72377 TNZ G3 F0H03240 72374 0500 00 2 70631 CLA TABL+2,2 MAIN F0H03250 72375 0621 00 0 72642 STA PROG STORE TRA ADDRESS F0H03260 72376 0020 00 0 72445 TRA PASS2 F0H03270 72377 -0320 00 0 73225 G3 ANA PRMSK F0H03280 72400 -0100 00 0 72445 TNZ PASS2 BCD OR NO TRA VECTOR F0H03290 72401 0500 00 2 70630 CLA TABL+1,2 NUMBER F0H03300 BINARY CARD NO. 9F080016 72402 -0734 00 4 00000 PDX 0,4 IN VECTOR TO IRC F0H03310 72403 0771 00 0 00022 ARS 18 PLUS F0H03320 72404 0401 00 2 70631 ADM TABL+2,2 LOCATION OF VECTOR F0H03330 72405 0621 00 0 72407 STA BA F0H03340 72406 -0534 00 1 72446 NXTVC LXD TAG,1 F0H03350 72407 -0500 00 4 00000 BA CAL **,4 BCD NAME IN VECTOR F0H03360 72410 -0320 00 0 73225 ANA PRMSK F0H03370 72411 0100 00 0 72444 TZE TIXVEC NOT BCD F0H03380 72412 0500 60 0 72407 CLA* BA F0H03390 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 64 RECORD 8 OR 33 BSS CONTROL 72413 0634 00 4 72415 SXA *+2,4 F0H03400 72414 0074 00 4 72351 TSX ADDM,4 CHANGE NAMES IF NECESSARY. F0H03410 72415 0774 00 4 00000 AXT **,4 F0H03420 72416 0340 00 1 70630 NXTNAM CAS TABL+1,1 LOOK FOR F0H03430 72417 0021 00 0 72421 TTR TTR G4 NAME F0H03440 72420 0020 00 0 72440 TRA FIX F0H03450 72421 -3 00002 1 72423 G4 TXL SAVNME,1,2 F0H03460 72422 1 77776 1 72416 TXI NXTNAM,1,-2 F0H03470 72423 0601 00 0 73204 SAVNME STO TMPR MISSING ROUTINE F0H03480 72424 -0534 00 1 72430 LXD LNMSP,1 F0H03490 72425 0500 00 1 71715 CMPR CLA LLIST,1 F0H03500 72426 0100 00 0 72434 TZE STONAM F0H03510 72427 0340 00 0 73204 CAS TMPR F0H03520 BINARY CARD NO. 9F080017 72430 1 00062 0 72432 LNMSP TXI G2,0,NMMSP F0H03530 72431 0020 00 0 72444 TRA TIXVEC ALREADY IN F0H03540 72432 2 00001 1 72425 G2 TIX CMPR,1,1 F0H03550 72433 0020 00 0 73155 TRA MMSNG TOO MANY MISSING ROUTINES F0H03560 72434 0500 00 0 73204 STONAM CLA TMPR F0H03570 72435 0601 00 1 71715 STO LLIST,1 F0H03580 72436 0600 00 1 71716 STZ LLIST+1,1 F0H03590 72437 0020 00 0 72444 TRA TIXVEC F0H03600 72440 0500 00 0 72417 FIX CLA TTR FOUND F0H03610 72441 0601 60 0 72407 AA STO* BA F0H03620 72442 0500 00 1 70631 CLA TABL+2,1 F0H03630 72443 0621 60 0 72407 AAA STA* BA F0H03640 72444 2 00001 4 72406 TIXVEC TIX NXTVC,4,1 F0H03650 72445 1 00002 2 72446 PASS2 TXI *+1,2,2 F0H03660 72446 -3 00000 2 72372 TAG TXL VEC,2,** F0H03670 72447 0534 00 4 72642 LXA PROG,4 F0H03680 72450 -3 00000 4 73137 TXL NOPRG,4,0 TRANSFER IF NO MAIN PROGRAM F0H03690 72451 -0520 00 0 71633 NZT FMR ARE THERE ANY MISSING ROUTINES F0H03700 72452 0020 00 0 72455 TRA TOPRG NO F0H03710 D 72453 0074 01 4 73600 TSX (LOAD),4,1 GO TO LIBRARY SEARCH $F0H03720 72454 112603040000 BCI 1,9F3400 $F0H03721 * F0H03730 72455 0441 60 0 73660 TOPRG LDI* (FGBX) $F0H03740 BINARY CARD NO. 9F080018 72456 0054 00 400000 RFT 400000 IS THERE DEBUG. F0H03750 72457 0074 00 4 64146 TSX TSWE,4 YES F0H03760 72460 0534 00 1 73166 LXA S,1 SAVE UPPER PROGRAM AND F0H03770 72461 -0634 00 1 03733 SXD PRCBRK,1 LOWER COMMON FOR WD I-O F0H03780 72462 0534 00 2 73171 LXA LCOMN,2 F0H03790 72463 0634 00 2 03733 SXA PRCBRK,2 F0H03800 72464 0441 60 0 73660 LDI* (FGBX) $F0H03810 72465 -0054 00 000002 LFT 2 F0H03820 72466 0020 00 0 72664 TRA WTLK CHAIN LINK F0H03830 * F0H03890 * WRITE AND PRINT TAPE STATISTICS F0H03900 72467 -0625 00 0 73232 TOPR1 STL NOSTON KILL ONLINE TAPE STATISTICS $F0H03910 72470 0500 00 0 73241 CLA COMST FIRST STATISTICS LINE $F0H03920 72471 0074 00 4 73012 TSX COMNT,4 F0H03930 72472 0500 00 0 73265 CLA COMST1 F0H03940 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 65 RECORD 8 OR 33 BSS CONTROL 72473 0074 00 4 73012 TSX COMNT,4 F0H03950 72474 0774 00 1 00022 AXT 18,1 F0H03980 72475 0560 00 0 73340 LDQ BLNKS F0H03990 72476 -0600 00 1 73441 STQ IM+18,1 F0H04000 72477 2 00001 1 72476 TIX *-1,1,1 F0H04010 72500 0074 00 4 73617 TSX (STAT),4 F0H04020 72501 0634 00 1 72516 SXA STAT3,1 ON RETURN, IR A CONTAINS ADDRESS +1 F0H04030 72502 0634 00 2 72504 SXA STAT1,2 IR B CONTAINS ADDRESS OF TAPNO F0H04050 72503 0634 00 2 72553 SXA STAT10,2 TAPNO=PZE,,NUMBER OF TAPES $F0H04060 BINARY CARD NO. 9F080019 72504 -0534 00 2 00000 STAT1 LXD **,2 GET NUMBER OF TAPES IN SYSTEM. F0H04070 72505 -0634 00 2 72522 SXD STAT4,2 F0H04080 72506 -0634 00 2 72527 SXD STAT6,2 F0H04090 72507 -0634 00 2 72564 SXD STAT13,2 F0H04100 72510 0774 00 1 00001 AXT 1,1 F0H04110 72511 0754 00 1 00000 STAT2 PXA 0,1 PUT CURRENT TAPE NUMBER $F0H04140 72512 0734 00 2 00000 PAX 0,2 TO CURRENT TABLE ENTRY $F0H04150 72513 0074 00 4 72643 TSX CNVT,4 CONVERT TO DECIMAL $F0H04160 72514 0602 00 0 73417 SLW IM STORE AS LOGICAL TAPE NUMBER $F0H04170 72515 0774 00 4 00002 AXT 2,4 GET READS/WRITES FOR LOGICAL TAPE $F0H04180 72516 -0500 00 2 00000 STAT3 CAL **,2 FROM TERST OR TERRT $F0H04190 72517 0621 00 4 73443 STA TOTWT+2,4 STORE READS/WRITES IN $F0H04200 72520 0771 00 0 00022 ARS 18 BUFFER, GET NOISE READ/WRITTEN $F0H04210 72521 0621 00 4 73445 STA NOISW+2,4 STORE THAT IN BUFFER $F0H04220 72522 1 00000 2 72523 STAT4 TXI *+1,2,** BUMP TO READ COUNTS $F0H04230 72523 2 00001 4 72516 TIX STAT3,4,1 REPEAT ONCE $F0H04240 72524 0774 00 4 00002 AXT 2,4 PREPARE ANOTHER $F0H04250 72525 0500 60 0 72516 STAT5 CLA* STAT3 GET READ OR WRITE ERRORS $F0H04260 72526 0621 00 4 73447 STA TOTRW+2,4 STORE IN BUFFER $F0H04270 72527 1 00000 2 72530 STAT6 TXI *+1,2,** BUMP TO READ ERRORS $F0H04280 72530 2 00001 4 72525 TIX STAT5,4,1 REPEAT ONCE $F0H04290 72531 0500 60 0 72553 STAT7 CLA* STAT10 GET IOPUN ENTRY $F0H04292 BINARY CARD NO. 9F080020 72532 0771 00 0 00022 ARS 18 F0H04300 72533 0621 00 0 73447 STA POSER NUMBER OF POSITIONING ERRORS. F0H04310 72534 0774 00 2 00007 AXT 7,2 F0H04320 72535 0754 00 0 00000 PXA 0,0 F0H04330 72536 -0501 00 2 73450 ORA TOTWT+7,2 $F0H04340 72537 2 00001 2 72536 TIX *-1,2,1 F0H04350 72540 -0320 00 0 73236 ANA ADMSK ISOLATE COUNTS $F0H04355 72541 0100 00 0 72563 TZE STAT12 NO DATA FOR THIS TAPE. GET NEXT TAPE. F0H04360 72542 0634 00 1 72552 SXA STAT9,1 SAVE NUMBER OF TAPES PROCESSED. F0H04370 72543 0774 00 1 00000 AXT 0,1 F0H04380 72544 0774 00 2 00006 AXT 6,2 F0H04390 72545 0500 00 2 73447 STAT8 CLA TOTWT+6,2 CONVERT TAPE STATISTICS FROM F0H04400 72546 0074 00 4 72643 TSX CNVT,4 BINARY TO BCD. F0H04410 72547 0602 00 1 73423 SLW IM+4,1 STORE IN OUTPUT BUFFER. F0H04420 72550 1 77776 1 72551 TXI *+1,1,-2 F0H04430 72551 2 00001 2 72545 TIX STAT8,2,1 F0H04440 72552 0774 00 1 00000 STAT9 AXT **,1 F0H04450 72553 0560 60 1 00000 STAT10 LDQ* **,1 OBTAIN UCB WORD ONE $F0H04460 72554 0074 00 4 00714 TSX (SYMUN,4 CONVERT TO ENGLISH $F0H04470 72555 0602 00 0 73421 SLW IM+2 STORE IN OUTPUT LINE $F0H04640 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 66 RECORD 8 OR 33 BSS CONTROL 72556 0500 00 0 73447 STAT11 CLA POSER CONVERT AND STORE NO. OF F0H04750 72557 0074 00 4 72643 TSX CNVT,4 POSITIONING ERRORS IN F0H04760 BINARY CARD NO. 9F080021 72560 0602 00 0 73440 SLW IM+17 OUTPUT BUFFER. F0H04770 72561 0500 00 0 73310 STAT16 CLA COMST2 WRITE AND PRINT TAPE F0H04780 72562 0074 00 4 73012 TSX COMNT,4 STATISTICS FOR ONE LOGICAL TAPE. F0H04790 72563 1 00001 1 72564 STAT12 TXI *+1,1,1 F0H04800 72564 -3 00000 1 72511 STAT13 TXL STAT2,1,** F0H04810 72565 -0500 00 0 73207 CAL SKRCW SIGNAL SIGN-ON THAT TAPE F0H04820 72566 -0602 60 0 73660 ORS* (FGBX) STATISTICS HAVE BEEN WRITTEN $F0H04830 72567 0600 00 0 73232 TOPR2 STZ NOSTON F0H04840 72570 0600 00 0 73233 STZ NOSTOF F0H04850 $F0H05135 72571 0500 00 0 73323 TOPR CLA COMEX COMMENT EXECUTION F0H05140 72572 0074 00 4 73012 TSX COMNT,4 F0H05150 72573 0074 00 4 73606 TSX (TAPE),4 BACK A FILE ON SYSTAP $F0H05151 72574 0 20000 0 73211 BSFCW,,(SKBP) $F0H05152 72575 0 00001 0 00000 ,,SYSTAP $F0H05153 72576 0074 00 4 73611 TSX (PRNT),4 F0H05160 72577 0 00001 0 73324 SPACE,,1 F0H05170 72600 0774 00 1 00007 AXT 7,1 $F0H05191 72601 0074 00 4 73606 TSX (TAPE),4 $F0H05192 72602 0 10000 1 00010 PZE 8,1,(CHKU) NORMALLY CLOSES OUT ONLY LOGICAL 1-7 $F0H05193 72603 2 00001 1 72601 TIX *-2,1,1 $F0H05194 72604 0441 60 0 73660 LDI* (FGBX) $F0H05195 72605 0056 00 100000 L(1T) RNT 100000 WAS SYSTEM IN 2ND FILE $F0H05196 BINARY CARD NO. 9F080022 72606 0020 00 0 72612 TRA *+4 NO $F0H05197 72607 0074 00 4 73606 TSX (TAPE),4 YES, STACK ANOTHER BACKSPACE $F0H05198 72610 0 20000 0 73211 BSFCW,,(SKBP) $F0H05199 72611 0 00001 0 00000 ,,SYSTAP $F0H0519A 72612 0056 00 040000 RNT 40000 IS IOP TO REMAIN IN $F0H0519B 72613 0020 00 0 72616 TRA *+3 YES $F0H0519C 72614 0074 00 4 73606 TSX (TAPE),4 NO, RESTORE AVAILABILITY $F0H0519D 72615 0 10003 0 00000 ,,(SUAV) CHAIN BEFORE IT'S TOO LATE $F0H0519E 72616 0140 00 0 72617 TOV *+1 F0H05200 72617 0161 00 0 72620 TQO *+1 F0H05210 72620 -0500 00 0 64145 CAL TROP2 LOAD TRANSFER TO OBJECT TIME DEBUG $F0H05211 72621 0054 00 400000 RFT 400000 IS THERE DEBUG.. $F0H05212 72622 0602 00 0 00002 SLW 2 YES, INITIALIZE STR LOCATION $F0H05213 72623 0774 00 2 00000 AXT 0,2 F0H05220 72624 0774 00 4 00000 AXT 0,4 F0H05230 72625 0760 00 0 00012 DCT F0H05240 72626 0761 00 0 00000 NOP F0H05250 72627 0760 00 0 00140 SLF F0H05260 72630 -0760 00 0 00002 EFTM F0H05270 72631 0774 00 1 00004 AXT 4,1 F0H05280 72632 0500 00 1 72643 CLA PROG+1,1 F0H05290 72633 0601 00 1 77677 STO TOPMEM,1 F0H05300 BINARY CARD NO. 9F080023 72634 2 00001 1 72632 TIX *-2,1,1 F0H05310 72635 -0534 00 1 72446 LXD TAG,1 F0H05320 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 67 RECORD 8 OR 33 BSS CONTROL 72636 1 07044 1 77673 TXI TOPMEM-4,1,TOPMEM-4-TABL F0H05330 * CLEAR OUT MEMORY FROM BOTTOM OF LOADING TABLES F0H05340 72637 0600 00 1 77674 STZ TOPMEM-3,1 F0H05350 72640 2 00001 1 77673 TIX TOPMEM-4,1,1 F0H05360 72641 0774 00 1 00000 AXT 0,1 F0H05370 72642 0020 00 0 00000 PROG TRA ** GO GO GO GO GO GO GO GO GO GO GO GO GO GO F0H05380 $F0H05381 72643 -0320 00 0 73236 CNVT ANA ADMSK $F0H05382 72644 0131 00 0 00000 XCA $F0H05383 72645 0634 00 4 72662 SXA CNVT3,4 $F0H05384 72646 0774 00 4 00000 AXT 0,4 $F0H05385 72647 0600 00 0 73451 STZ TMPR1 $F0H05386 72650 -0754 00 0 00000 CNVT1 ZAC $F0H05387 72651 0221 00 0 73235 DVP TEN $F0H05388 72652 0767 00 4 00000 ALS 0,4 $F0H05389 72653 -0602 00 0 73451 ORS TMPR1 $F0H05390 72654 0500 00 0 73207 CLA SKRCW $F0H05391 72655 0040 00 0 72657 TLQ CNVT2 $F0H05392 72656 1 77772 4 72650 TXI CNVT1,4,-6 $F0H05393 72657 -0500 00 0 73340 CNVT2 CAL BLNKS $F0H05394 72660 0767 00 4 00006 ALS 6,4 $F0H05395 72661 -0501 00 0 73451 ORA TMPR1 $F0H05396 BINARY CARD NO. 9F080024 72662 0774 00 4 00000 CNVT3 AXT **,4 $F0H05397 72663 0020 00 4 00001 TRA 1,4 $F0H05398 $F0H05399 * PUT CHAIN LINK ON TAPE F0H05400 72664 1 74045 1 72665 WTLK TXI *+1,1,-BOTTOM+1 F0H05410 72665 -0634 00 1 73220 SXD LKRCW,1 PUT WORD COUNT OF LINK IN CONTROL WORD F0H05420 72666 0534 00 4 73577 LXA CURCHN,4 WHICH TAPE DOES THE LINK GO ON F0H05430 72667 3 00004 4 72671 TXH *+2,4,4 F0H05440 72670 3 00001 4 72672 TXH WTLKS,4,1 TAPE 2, 3, OR 4 F0H05450 72671 0774 00 4 00004 AXT 4,4 ANYTHING ELSE MAKE 4 F0H05460 72672 -0634 00 4 72705 WTLKS SXD WTTPN,4 F0H05470 72673 0520 00 4 73225 ZET B2CHN+2,4 DOES THIS TAPE HAVE A PREVIOUS LINK F0H05480 72674 0020 00 0 72702 TRA WTLKN YES F0H05490 72675 -0625 00 4 73225 STL B2CHN+2,4 NO F0H05500 72676 -0634 00 4 72701 SXD *+3,4 REWIND IT F0H05510 72677 0074 00 4 73606 TSX (TAPE),4 F0H05520 72700 0 20000 0 73213 REWND,,(SKBP) F0H05530 72701 0 00000 0 00000 ,,** F0H05540 72702 0774 00 1 00004 WTLKN AXT 4,1 F0H05550 72703 0074 00 4 73606 TSX (TAPE),4 WRITE THE LINK F0H05560 72704 0 40011 1 73221 LNKCW+4,1,(WBNC) F0H05570 72705 0 00000 0 00000 WTTPN ,,** F0H05580 72706 0 00000 0 73135 IOERR F0H05590 72707 2 00003 1 72703 TIX WTLKN+1,1,3 F0H05600 BINARY CARD NO. 9F080025 72710 0774 00 1 00002 AXT 2,1 POSITION SYSTEM IN FRONT OF DEBUG RECORD $F0H05610 72711 0074 00 4 73606 TSX (TAPE),4 F0H05620 72712 0 20000 0 73210 BSRCW,,(SKBP) F0H05630 72713 0 00001 0 00000 ,,SYSTAP $F0H05640 72714 2 00001 1 72711 TIX *-3,1,1 F0H05650 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 68 RECORD 8 OR 33 BSS CONTROL D 72715 0074 01 4 73600 TSX (LOAD),4,1 START AGAIN FOR NEXT LINK $F0H05660 72716 112600070000 9F07 BCI 1,9F0700 *SET TO 9F32 WHEN IN 2ND FILE $F0H05670 72717 0774 00 1 00002 GOCHN AXT 2,1 F0H05680 72720 0020 00 0 72724 TRA REWCH $F0H05710 72721 0074 00 4 73606 WEFCH TSX (TAPE),4 WRITE EOF ON CHAIN LINK TAPE $F0H05730 72722 0 40005 0 00000 ,,(WEFP) $F0H05740 72723 0 00000 0 00000 ,,** $F0H05750 72724 0074 00 4 73606 REWCH TSX (TAPE),4 F0H05760 72725 0 20000 0 73213 REWND,,(SKBP) F0H05770 72726 0 00010 0 00000 ,,CHNTAP $F0H05780 72727 3 00004 1 72735 TXH GETL1,1,4 F0H05790 72730 -0520 00 1 73225 NZT B2CHN+2,1 IS THERE A LINK ON THIS TAPE F0H05800 72731 1 00001 1 72727 TXI *-2,1,1 NO F0H05810 72732 -0634 00 1 72723 SXD WEFCH+2,1 YES, SET UP TO WRITE EOF $F0H05830 72733 -0634 00 1 72726 SXD REWCH+2,1 AND REWIND IT $F0H05840 72734 1 00001 1 72721 TXI WEFCH,1,1 F0H05850 72735 0774 00 1 00004 GETL1 AXT 4,1 F0H05860 BINARY CARD NO. 9F080026 72736 0534 00 4 73576 LXA 1STCHN,4 WHICH TAPE HAS THE FIRST LINK F0H05870 72737 3 00003 4 72742 TXH RDLK1,4,3 F0H05880 72740 -3 00001 4 72742 TXL RDLK1,4,1 F0H05890 72741 -0634 00 4 72744 SXD RDLK1+2,4 F0H05900 72742 0074 00 4 73606 RDLK1 TSX (TAPE),4 GET THE FIRST LINK F0H05910 72743 0 40010 1 73221 LNKCW+4,1,(RBNC) F0H05920 72744 0 00004 0 00000 ,,TINTAP $F0H05930 72745 2 00003 1 72760 TIX LK1L,1,3 TRANSFER FOR FIRST RECORD F0H05940 72746 -0534 00 1 03733 LXD PRCBRK,1 F0H05950 72747 0754 00 1 00000 PXA ,1 F0H05960 72750 -0535 00 1 72744 LDC RDLK1+2,1 F0H05970 72751 0441 00 1 73672 LDI (SCHU),1 F0H05980 72752 0041 00 0 00000 IIA F0H05990 72753 0054 00 077777 RFT 77777 WAS RECORD READ IN UP TO PROGRAM BREAK F0H06000 72754 0020 00 0 72763 TRA LK1ER NO F0H06010 72755 0074 00 4 73606 TSX (TAPE),4 CHAIN JOB- CLOSE OUT TAPE 8 $F0H06020 72756 0 10000 0 00010 PZE 8,,(CHKU) $F0H06021 72757 0020 00 0 72467 TRA TOPR1 $F0H06022 72760 0500 00 0 73577 LK1L CLA CURCHN FIRST WORD (LABEL) F0H06030 72761 0402 00 0 73576 SUB 1STCHN F0H06040 72762 0100 00 0 72742 TZE RDLK1 IF IT CHECKS READ IN THE LINK F0H06050 * F0H06060 72763 0500 00 0 73410 LK1ER CLA COMLK COMMENT CANT FIND 1ST LINK F0H06070 BINARY CARD NO. 9F080027 72764 0074 00 4 73012 TSX COMNT,4 F0H06080 72765 -0534 00 4 72744 LXD RDLK1+2,4 F0H06090 72766 -0634 00 4 72771 SXD *+3,4 F0H06100 72767 0074 00 4 73606 TSX (TAPE),4 AND GO TO MACHINE ERROR RECORD F0H06110 72770 0 04000 0 73312 CHAIN,,(TPER) F0H06120 72771 0 00000 0 00000 ,,** F0H06130 * F0H06140 72772 0600 00 0 73174 EOF STZ MULPC F0H06150 72773 -0534 00 1 71757 LXD RDTPN,1 WHICH TAPE HIT THE EOF. F0H06160 72774 -3 00001 1 71523 TXL EFLS,1,1 SYSTEM LIBRARY F0H06170 72775 3 00010 1 71523 TXH EFLS,1,8 LIBRARY TAPE F0H06180 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 69 RECORD 8 OR 33 BSS CONTROL 72776 -3 00005 1 73517 TXL EFPCH,1,5 EOF BACKSPACE OVER IT (26)F0H06190 72777 -3 00007 1 72363 TXL TDBLP,1,7 B4 F0H06200 73000 0774 00 1 00007 EOFA2 AXT 7,1 EITHER A2 OR B1 F0H06210 73001 0774 00 2 00000 AXT 0,2 SET TO READ B4 F0H06220 73002 -0625 00 0 73176 STL B4LD F0H06230 73003 0441 60 0 73660 LDI* (FGBX) $F0H06240 73004 -0054 00 000002 LFT 2 F0H06250 73005 0020 00 0 71734 TRA INITL CHAIN JOB - B4 POSITION OK F0H06260 73006 0074 00 4 73606 POSB4 TSX (TAPE),4 POSITION B4 AFTER FILE MARK F0H06270 73007 0 20000 0 73206 SKPCW,,(SKBP) F0H06280 73010 0 00007 0 00000 ,,MBNTAP $F0H06290 73011 0020 00 0 71734 TRA INITL F0H06300 * WRITE COMMENTS F0H06360 BINARY CARD NO. 9F080028 73012 0634 00 4 73032 COMNT SXA COMBC,4 F0H06370 73013 0601 00 0 73031 STO COMCW F0H06380 73014 0520 00 0 73233 ZET NOSTOF F0H06390 73015 0020 00 0 73024 TRA COMNT1 $F0H06400 73016 0074 00 4 73606 TSX (TAPE),4 WRITE MESSAGE OFF LINE F0H06410 73017 0 40013 0 73031 COMCW,,(WDNC) F0H06420 73020 0 00006 0 00000 ,,MLSTAP $F0H06430 73021 0534 00 4 03731 LXA LINECT,4 $F0H06440 73022 1 00001 4 73023 TXI *+1,4,1 $F0H06450 73023 0634 00 4 03731 SXA LINECT,4 $F0H06460 73024 0520 00 0 73232 COMNT1 ZET NOSTON $F0H06470 73025 0020 00 0 73032 TRA COMBC $F0H06480 73026 -0754 00 0 00000 ZAC $F0H06488 73027 0630 00 0 73031 STP COMCW $F0H06489 73030 0074 00 4 73611 TSX (PRNT),4 PRINT MESSAGE ON LINE F0H06490 73031 0 00000 0 00000 COMCW ** F0H06500 73032 0774 00 4 00000 COMBC AXT **,4 F0H06510 73033 0020 00 4 00001 TRA 1,4 F0H06520 * F0H06530 73034 0634 00 4 73056 FIXB4 SXA B4OK,4 F0H06540 73035 0074 00 4 73606 TSX (TAPE),4 BACKSPACE A RECORD AND SKIP A FILE ON B4 F0H06550 73036 0 20000 0 73210 BSRCW,,(SKBP) F0H06560 73037 0 00007 0 00000 ,,MBNTAP $F0H06570 BINARY CARD NO. 9F080029 73040 0074 00 4 73606 SKPFI TSX (TAPE),4 F0H06580 73041 0 20000 0 73206 SKPCW,,(SKBP) F0H06590 73042 0 00007 0 00000 ,,MBNTAP $F0H06600 73043 0074 00 4 73606 RDNDM TSX (TAPE),4 CHECK IF END MARK F0H06610 73044 0 40014 0 73214 LBLCW,,(RBEC) F0H06620 73045 0 00007 0 00000 ,,MBNTAP $F0H06630 73046 -0520 00 0 73701 NZT (SCHU)+MBNTAP $F0H06640 73047 0020 00 0 73043 TRA RDNDM EMPTY FILE F0H06650 73050 0500 00 0 73577 CLA CURCHN F0H06660 73051 0402 00 0 73224 SUB ALL7NS F0H06670 73052 -0100 00 0 73040 TNZ SKPFI IF NOT END MARK SKIP ANOTHER FILE F0H06680 73053 0074 00 4 73606 TSX (TAPE),4 F0H06690 73054 0 20000 0 73210 BSRCW,,(SKBP) F0H06700 73055 0 00007 0 00000 ,,MBNTAP $F0H06710 73056 0774 00 4 00000 B4OK AXT **,4 F0H06720 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 70 RECORD 8 OR 33 BSS CONTROL 73057 0020 00 4 00001 TRA 1,4 F0H06730 * F0H06740 73060 0500 00 0 71760 RDERR CLA RDTPN+1 FOR TAPE ERRORS $F0H06750 73061 0441 60 0 71765 LDI* TEOF $F0H06760 73062 -0120 00 0 73066 TMI *+4 YES $F0H06770 73063 0056 00 000100 RNT 100 WAS IT WRONG MODE READ $F0H06771 73064 0020 00 0 73135 TRA IOERR NO $F0H06772 73065 0020 00 0 73121 TRA ILLCD YES $F0H06773 BINARY CARD NO. 9F080030 73066 0056 00 000100 RNT 100 WAS ERROR WRONG MODE READ (31)F0H06780 73067 0020 00 0 73131 TRA ERRIO NO. F0H06790 73070 0074 00 4 73606 TSX (TAPE),4 YES. WAS IT A BCD CARD ON A2. F0H06800 73071 0 40016 0 73453 BUF1CW,,(RDEC) F0H06810 73072 0 00005 0 00000 ,,MINTAP $F0H06820 73073 0 00000 0 73135 IOERR NO F0H06830 73074 -0520 00 0 73677 NZT (SCHU)+MINTAP LET'S MAKE SURE IT WASN'T AN END OF FILE $F0H06840 73075 0020 00 0 73000 TRA EOFA2 F0H06850 73076 -0500 00 0 73417 CAL IM IS THIS CARD BLANK $F0H06870 73077 0322 00 0 73340 ERA BLNKS $F0H06880 73100 0100 00 0 71745 TZE INITB YES, IGNORE IT $F0H06890 73101 0500 00 0 73417 NBBCD CLA IM WAS IT *DATA F0H06920 73102 0402 00 0 73311 SUB ASTSK F0H06930 73103 -0100 00 0 73121 TNZ ILLCD NO F0H06940 73104 0774 00 1 00005 AXT 5,1 F0H06950 73105 0774 00 2 00013 AXT 11,2 F0H06960 73106 0774 00 4 00006 NXTWD AXT 6,4 F0H06970 73107 0560 00 2 73433 LDQ IM+12,2 F0H06980 73110 -0763 00 0 00006 NXTC LGL 6 F0H06990 73111 0322 00 0 73314 ERA BLANK IS THIS CHARACTER BLANK F0H07000 73112 0100 00 0 73116 TZE CKNXT F0H07010 73113 -2 00001 1 73121 TNX ILLCD,1,1 NO MORE THAN 4 CHARACTERS F0H07020 BINARY CARD NO. 9F080031 73114 0322 00 1 73232 ERA DATAT+4,1 IS THIS THE NEXT CHARACTER OF DATA F0H07030 73115 -0100 00 0 73121 TNZ ILLCD F0H07040 73116 2 00001 4 73110 CKNXT TIX NXTC,4,1 F0H07050 73117 2 00001 2 73106 TIX NXTWD,2,1 F0H07060 73120 -2 00001 1 73000 TNX EOFA2,1,1 TREAT DATA CONTROL CARD LIKE EOF F0H07070 73121 0500 00 0 73352 ILLCD CLA COMCD COMMENT ILLEGAL CARD F0H07080 73122 0074 00 4 73012 TSX COMNT,4 F0H07090 73123 0074 00 4 73034 TOSIN TSX FIXB4,4 $F0H07130 73124 0500 00 0 73331 CLA COMDL F0H07140 73125 0074 00 4 73012 TSX COMNT,4 COMMENT EXECUTION DELETED F0H07150 73126 0500 00 0 72605 CLA L(1T) $F0H07160 73127 0625 60 0 73660 STT* (FGBX) MAKE SURE BSS BIT IS ON FOR ERROR RECORD $F0H07170 73130 0074 00 4 73643 TSX (SECL),4 GO TO SIGN ON VIA SOURCE ERROR RECORD $F0H07180 73131 0074 00 4 73034 ERRIO TSX FIXB4,4 F0H07230 73132 0074 00 4 73606 TSX (TAPE),4 F0H07240 73133 0 04000 0 00000 ,,(TPER) F0H07250 73134 0 77777 0 71757 PZE RDTPN,,-1 (31)F0H07260 73135 0074 00 4 73034 IOERR TSX FIXB4,4 F0H07270 73136 0074 00 4 73644 TSX (MECL),4 LET IO PACKAGE GO TO MACHINE ERROR RECORD F0H07280 73137 0500 00 0 73360 NOPRG CLA COMPR COMMENT NO MAIN PROGRAM F0H07300 73140 0074 00 4 73012 TSX COMNT,4 F0H07310 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 71 RECORD 8 OR 33 BSS CONTROL 73141 0020 00 0 73123 TRASO TRA TOSIN GO TO SIGN ON F0H07320 * F0H07330 BINARY CARD NO. 9F080032 73142 0441 00 0 73332 SUMNG LDI COMSM INCORRECT CHECKSUM $F0H07340 73143 0560 00 1 73417 LDQ IM,1 F0H07350 73144 -0773 00 0 00022 RQL 18 $F0H07360 73145 0074 00 4 00720 TSX (BCD5R,4 CONVERT MQ DECREMENT TO OCTAL $F0H07361 73146 0602 00 0 73340 SLW COMSM+6 F0H07410 73147 0500 00 0 73203 CLA SNAME F0H07420 73150 -0100 00 0 73152 TNZ *+2 F0H07430 73151 0500 00 0 73313 CLA MAIN F0H07440 73152 0601 00 0 73341 STO COMSM+7 F0H07450 73153 -0046 00 0 00000 PIA REGAIN MESSAGE PARAMETER $F0H07460 73154 0020 00 0 73122 TRA TOSIN-1 AND GO TO SIGN ON $F0H07480 * F0H07490 73155 0500 00 0 73365 MMSNG CLA COMSN COMMENT TOO MANY MISSING ROUTINES F0H07500 73156 0020 00 0 73122 TRA TOSIN-1 AND GO TO SIGN ON $F0H07520 * F0H07530 73157 0500 00 0 73373 PDOVL CLA COMPD COMMENT PROGRAM AND COMMON OVERLAP F0H07540 73160 0020 00 0 73122 TRA TOSIN-1 AND GO TO SIGN ON $F0H07560 * F0H07570 73161 0500 00 0 73401 PTOVL CLA COMPT COMMENT PROGRAM AND TABLES OVERLAP F0H07580 73162 0020 00 0 73122 TRA TOSIN-1 AND GO TO SIGN ON $F0H07600 * F0H07610 73163 0441 00 0 73351 LDCMN LDI COMLC LOADING COMMON $F0H07611 73164 0020 00 0 73143 TRA SUMNG+1 AND GO TO SIGN ON $F0H07612 73165 0 00000 0 00000 R F0H07620 73166 0 00000 0 03734 S BOTTOM *INITIAL LOADING ADDRESS OF NEXT PROGRAM F0H07630 73167 0 00000 0 00000 T *PROGRAM BREAK F0H07640 BINARY CARD NO. 9F080033 73170 0 00000 0 77700 COMN PZE TOPMEM+1 *COMMON RELOCATION $F0H07650 73171 0 00000 0 77677 LCOMN PZE TOPMEM *LOWEST COMMON USED F0H07660 73172 0 00000 0 70627 OVLP TABL F0H07670 73173 0 00000 0 00000 LIBSW *NON ZERO DURING LIBRARY SEARCH F0H07690 73174 0 00000 0 00000 MULPC *NON ZERO AFTER PROGRAM CARD ENCOUNTERED F0H07700 73175 0 00000 0 00000 SKIP *NON ZERO IF SET TO SKIP PROGRAM F0H07710 73176 0 00000 0 00000 B4LD *NON ZERO WHEN LOADING FROM B4 F0H07720 73177 0 00000 0 00000 WDCNT F0H07730 73200 0 00000 0 00000 LADD F0H07740 73201 0 00000 0 00000 LLB F0H07750 73202 0 00000 0 00000 NLDD PZE ** F0H07760 73203 0 00000 0 00000 SNAME * SUBPROGRAM NAME F0H07770 73204 0 00000 0 00000 TMPR F0H07780 73205 0 00000 0 00000 BUFPOS F0H07790 73206 0 00001 0 00000 SKPCW ,,1 SKIP FILE CONTROL WORD FOR IO PACKAGE F0H07800 73207 0 00000 0 00001 SKRCW 1 SKIP RECORD CONTROL WORD FOR IO PACKAGE F0H07810 73207 ONEA SYN SKRCW F0H07820 73210 -0 00000 0 00001 BSRCW MZE 1 BACKSPACE RECORD CONTROL WORD FOR IO F0H07830 73211 -0 00001 0 00000 BSFCW MZE ,,1 BACKSPACE FILE CONTROL WORD FOR IO F0H07840 73212 -0 00001 0 00001 BSLCW MZE 1,,1 BACKSPACE 1 FILE AND 1 RECORD CW. F0H07850 73213 0 77777 0 00000 REWND PZE ,,-1 REWIND CONTROL WORD FOR IO PACKAGE F0H07860 73214 3 00001 0 73577 LBLCW IORT CURCHN,,1 CONTROL WD FOR READING CHAIN LABEL F0H07870 73215 -0 00001 0 73577 LNKCW IOCP CURCHN,,1 CONTROL WORDS FOR CHAIN LINK F0H07880 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 72 RECORD 8 OR 33 BSS CONTROL BINARY CARD NO. 9F080034 73216 -0 00001 0 73220 IOCP LKRCW,,1 F0H07890 73217 3 00001 0 72642 IORT PROG,,1 F0H07900 73220 3 00000 0 03733 LKRCW IORT PRCBRK,,** F0H07910 73221 0 00000 0 00000 A4CHN *NON ZERO IF A CHAIN LINK HAS BEEN F0H07920 73222 0 00000 0 00000 B3CHN F0H07930 73223 0 00000 0 00000 B2CHN WRITTEN ON CORRESPONDING TAPE F0H07940 73224 -3 77777 7 77777 ALL7NS SVN -1,7,-1 F0H07950 73225 -3 00000 0 00000 PRMSK SVN F0H07960 73226 +000000000044 DATAT OCT 44,41,3,41 F0H07970 73232 0 00000 0 00000 NOSTON PZE F0H08070 73233 0 00000 0 00000 NOSTOF PZE F0H08080 73234 +000000000007 SVN DEC 7 F0H08090 73235 +000000000012 TEN DEC 10 F0H08100 73236 0 00000 0 77777 ADMSK PZE -1 F0H08110 73237 +077777077777 TMSK OCT 77777077777 F0H08120 73240 +000000700000 TMSK1 OCT 700000 F0H08130 73241 3 00023 0 73242 COMST IORT *+1,,19 $F0H08140 73242 004346273123 BCI 9,0LOGICAL MACHINE TOTAL TOTAL NOI F0H08150 BINARY CARD NO. 9F080035 73253 622560512523 BCI 9,SE RECORDS TOTAL REDUNDANCIES POSITION F0H08160 73264 314527606060 BCI 1,ING F0H08170 73265 3 00022 0 73266 COMST1 IORT *+1,,18 $F0H08180 73266 606063214725 BCI 9, TAPE TAPE WRITES READS WRITIN F0H08190 BINARY CARD NO. 9F080036 73277 276060606060 BCI 9,G READING WRITING READING ERRORS F0H08200 73310 3 00022 0 73417 COMST2 IORT IM,,18 $F0H08210 73311 546060606060 ASTSK BCI 1,* F0H08260 73312 233021314560 CHAIN BCI 1,CHAIN F0H08270 73313 604421314560 MAIN BCI 1, MAIN F0H08280 73314 000000000060 BLANK BCI 1,00000 F0H08290 73315 746263303460 STH BCI 1,(STH) F0H08300 73316 746263304434 STHM BCI 1,(STHM) F0H08310 73317 746362303460 TSH BCI 1,(TSH) F0H08320 BINARY CARD NO. 9F080037 73320 746362304434 TSHM BCI 1,(TSHM) F0H08330 73321 742567253460 EXE BCI 1,(EXE) F0H08340 73322 742567254434 EXEM BCI 1,(EXEM) F0H08350 73323 3 00003 0 73324 COMEX IORT *+1,,3 $F0H08360 73324 006060606060 SPACE BCI 5,0 EXECUTION DELETED $F0H08370 73331 0 00004 0 73325 COMDL SPACE+1,,4 $F0H08400 73332 3 00011 0 73333 COMSM IORT *+1,,9 $F0H08420 73333 006023302523 BCI 5,0 CHECKSUM ERROR. CARD ORIGIN $F0H08430 73340 606060606060 BLNKS BCI 2, $F0H08431 73342 604751462751 BCI 7, PROGRAM. LOADS ABOVE PROGRAM BREAK. $F0H08432 BINARY CARD NO. 9F080038 73351 3 00013 0 73336 COMLC IORT COMSM+4,,11 $F0H08434 73352 3 00005 0 73353 COMCD IORT *+1,,5 $F0H08440 73353 006031434325 BCI 5,0 ILLEGAL CARD IN BINARY DECK F0H08450 73360 3 00004 0 73361 COMPR IORT *+1,,4 $F0H08460 73361 006044213145 BCI 4,0 MAIN PROGRAM MISSING F0H08470 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 73 RECORD 8 OR 33 BSS CONTROL 73365 3 00005 0 73366 COMSN IORT *+1,,5 $F0H08480 73366 006046652551 BCI 5,0 OVER 50 SUBROUTINES MISSING F0H08490 73373 3 00005 0 73374 COMPD IORT *+1,,5 $F0H08500 BINARY CARD NO. 9F080039 73374 006047514627 BCI 5,0 PROGRAM AND COMMON OVERLAP F0H08510 73401 3 00006 0 73402 COMPT IORT *+1,,6 $F0H08520 73402 006047514627 BCI 6,0 PROGRAM AND LOADING TABLES OVERLAP F0H08530 73410 3 00005 0 73411 COMLK IORT *+1,,5 $F0H08540 73411 000162636043 BCI 5,01ST LINK NOT LOADED CORRECTLY F0H08550 73416 3 00034 0 73454 BUF2CW IORT *+BUFSIZ+2,,BUFSIZ F0H08570 73417 IM BSS BUFSIZ F0H08580 BINARY CARD NO. 9F080040 73453 3 00034 0 73417 BUF1CW IORT *-BUFSIZ,,BUFSIZ F0H08590 73454 BSS BUFSIZ $F0H08595 73441 TOTWT EQU IM+18 USE INPUT BUFFER AS $F0H08600 73442 TOTRD EQU TOTWT+1 TEMPORARY STORAGE $F0H08601 73443 NOISW EQU TOTRD+1 FOR COUNTS PRINTED $F0H08602 73444 NOISR EQU TOTRD+2 IN TAPE STATISTICS $F0H08603 73445 TOTRW EQU NOISR+1 (FIRST 18 WORDS ARE $F0H08604 73446 TOTRR EQU NOISR+2 USED FOR LINE IMAGE) $F0H08605 73447 POSER EQU TOTRR+1 $F0H08606 73450 MCHTP EQU POSER+1 $F0H08607 73451 TMPR1 EQU MCHTP+1 $F0H08608 73510 NDBSS1 EQU * F0H08609 BINARY CARD NO. 9F080041 73510 0520 00 0 73174 PATCH5 ZET MULPC FIRST PROGRAM CARD.... (31)F0H08646 73511 1 00002 1 72205 TXI PROC,1,2 NO (31)F0H08647 73512 1 77776 2 72205 TXI PROC,2,-2 YES (31)F0H08648 73513 0 00000 0 00000 PZE **NOT USED (31)F0H08649 73514 0520 00 0 73176 PATCH2 ZET B4LD IS PUNCH TAPE BEING LOADED (25)F0H08650 73515 0020 00 0 72160 TRA PPRCD (31)F0H08651 73516 0020 00 0 72143 TRA PRCD0 NO, CHECK ENTRIES AGAINST THOSE IN TABL(25)F0H08652 73517 0074 00 4 73606 EFPCH TSX (TAPE),4 BACKSPACE OVER EOF (26)F0H08653 73520 0 20002 0 73210 PZE BSRCW,,(SKDP) ON INPUT TAPE (26)F0H08654 73521 0 00005 0 00000 PZE ,,MINTAP (26)F0H08655 73522 0020 00 0 73000 TRA EOFA2 (26)F0H08656 73523 0600 00 0 73175 SAV8L STZ SKIP INITIALIZE (31)F0H08660 73524 0500 00 1 73421 CLA IM+2,1 (31)F0H08661 73525 0601 00 0 71551 STO 8L (31)F0H08662 73526 0500 00 1 73422 CLA IM+3,1 (31)F0H08663 73527 0020 00 0 72023 TRA FIRST+1 (31)F0H08664 73530 0520 00 0 73202 PATCH3 ZET NLDD ANY UNIQUE ENTRY POINTS (31)F0H08665 73531 0020 00 0 72156 TRA TESTPC+1 YES,RESET SKIP SWITCH (31)F0H08666 73532 0520 00 0 73174 ZET MULPC NO IS THIS A MULTIPLE PC (31)F0H08667 73533 0020 00 0 71747 TRA L (31)F0H08668 73534 0020 00 0 72346 TRA SKPPR SKIP PROGRAM (31)F0H08669 F0H08670 F0H08680 F0H08690 F0H08700 73575 NDBSS EQU BOTIOP-3 F0H08720 73576 1STCHN EQU NDBSS+1 F0H08730 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 74 RECORD 8 OR 33 BSS CONTROL 73577 CURCHN EQU 1STCHN+1 F0H08740 BINARY CARD NO. TRA77777 77777 TCD -1 $F0H08741 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 75 RECORD 9 OR 34 LIBRARY SEARCH ABS $F0I00010 00102 ORG SYSCUR $F0I00040 BINARY CARD NO. 9F090000 00102 112600110000 BCI 1,9F0900 $F0I00056 73666 ORG (LODR) $F0I00060 BINARY CARD NO. 9F090001 73666 1 00132 0 71224 TXI ENTLS,,90 ENTRY POINT,,RECORD NO. $F0I00076 F0I00090 * RECORD 9 OR 34 F0I00100 F0I00110 00014 LBLK EQU 12 LIBRARY BLOCKING FACTOR $F0I00111 00030 LIBSIZ EQU 24 WORDS PER LOGICAL LIBRARY RECORD $F0I00112 70630 ORG FMR-227-LBLK*LIBSIZ $F0I00120 70630 LBUF BSS LBLK*LIBSIZ INPUT AREA FOR BLOCKED LIBRARY $F0I00122 71270 NDBUF EQU * $F0I00123 71214 ORGLS ORG NDBUF-44 (FIRST 44 LOCATIONS ARE OVERWRITTEN) $F0I00124 BINARY CARD NO. 9F090002 71214 3 00004 0 71215 COMLS IORT *+1,,4 $F0I00125 71215 004331225121 BCI 4,0LIBRARY ENTRY POINTS, $F0I00126 71221 602330213145 LNKID BCI 3, CHAIN 00000 , 0 $F0I00127 71224 0441 60 0 73660 ENTLS LDI* (FGBX) $F0I00130 71225 -0534 00 1 73652 LXD (LIBT),1 WHICH TAPE HAS THE LIBRARY F0I00140 71226 -3 00001 1 71236 TXL A1LS,1,1 A1 F0I00150 71227 0074 00 4 73606 TSX (TAPE),4 OTHER, BACK A RECORD ON SYSTAP $F0I00180 71230 0 20000 0 73210 BSRCW,,(SKBP) F0I00190 71231 0 00001 0 00000 ,,SYSTAP $F0I00200 71232 0074 00 4 73606 TSX (TAPE),4 REWIND LIBT $F0I00280 71233 0 20000 0 73213 REWND,,(SKBP) F0I00290 71234 0 77777 0 73652 (LIBT),,-1 F0I00300 71235 0020 00 0 71247 TRA HEDLS F0I00310 71236 0774 00 1 00001 A1LS AXT 1,1 F0I00320 71237 0056 00 100000 RNT 100000 IS SYSTEM TAPE IN 2ND FILE F0I00330 71240 0774 00 1 00002 AXT 2,1 NO, SET TO SPACE 2 FILES F0I00340 71241 0055 00 100000 SIR 100000 F0I00350 BINARY CARD NO. 9F090003 71242 0604 60 0 73660 STI* (FGBX) $F0I00360 71243 0074 00 4 73606 TSX (TAPE),4 SPACE TO LIBRARY F0I00370 71244 0 20000 0 73206 SKPCW,,(SKBP) F0I00380 71245 0 00001 0 00000 ,,SYSTAP $F0I00390 71246 2 00001 1 71243 TIX *-3,1,1 F0I00400 71247 -0056 00 000002 HEDLS LNT 2 IS THIS A CHAIN JOB F0I00410 71250 0020 00 0 71263 TRA WTLS NO F0I00420 71251 -0500 00 0 73577 CAL CURCHN YES, FORM LABEL FOR HEADING F0I00430 71252 0771 00 0 00022 ARS 18 CONVERT RECORD NUMBER TO DECIMAL F0I00440 71253 0074 00 4 72643 TSX CNVT,4 $F0I00450 71254 0602 00 0 71222 SLW LNKID+1 SET IN OUTPUT LINE $F0I00460 71255 -0500 00 0 73577 CAL CURCHN PUT TAPE NUMBER IN MESSAGE F0I00580 71256 0767 00 0 00006 ALS 6 F0I00590 71257 -0501 00 0 73314 ORA BLANK F0I00600 71260 0621 00 0 71223 STA LNKID+2 F0I00610 71261 0774 00 1 00007 AXT 7,1 MESSAGE LENGTH $F0I00620 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 76 RECORD 9 OR 34 LIBRARY SEARCH 71262 -0634 00 1 71214 SXD COMLS,1 F0I00630 71263 0074 00 4 73606 WTLS TSX (TAPE),4 COMMENT ROUTINES REQUIRED F0I00640 71264 0 40003 0 71214 COMLS,,(WDNP) F0I00650 71265 0 00006 0 00000 ,,MLSTAP $F0I00660 71266 0774 00 4 70630 AXT LBUF,4 SET LOAD ADDRESS FOR LIBRARY $F0I00661 71267 0634 00 4 73667 SXA (LBLD),4 WHEN ON DISK OR HYPER $F0I00662 * CODING UP TO HERE OVER WRITTEN BY INPUT BUFFER $F0I00669 BINARY CARD NO. 9F090004 71270 0560 00 0 73340 WTLS1 LDQ BLNKS F0I00670 71271 0774 00 1 00000 AXT 0,1 F0I00680 71272 0774 00 2 00002 AXT 2,2 FOR LINE COUNT F0I00690 71273 0774 00 4 00024 AXT 20,4 20 WORDS (TEN NAMES) PER LINE F0I00700 71274 0500 00 1 71633 GTFMR CLA FMR,1 PLACE NAMES IN BUFFER F0I00710 71275 0100 00 0 71306 TZE LASTL F0I00720 71276 -0600 00 4 73443 STQ IM+20,4 F0I00730 71277 0601 00 4 73444 STO IM+21,4 F0I00740 71300 1 77777 1 71301 TXI *+1,1,-1 F0I00750 71301 2 00002 4 71274 TIX GTFMR,4,2 F0I00760 71302 0074 00 4 73606 TSX (TAPE),4 WRITE LINE F0I00770 71303 0 40013 0 71556 LINCW,,(WDNC) F0I00780 71304 0 00006 0 00000 ,,MLSTAP $F0I00790 71305 1 00001 2 71273 TXI GTFMR-1,2,1 FOR NEXT LINE F0I00800 71306 -0600 00 4 73443 LASTL STQ IM+20,4 F0I00810 71307 2 00001 4 71306 TIX *-1,4,1 F0I00820 71310 0074 00 4 73606 TSX (TAPE),4 WRITE LAST LINE F0I00830 71311 0 40013 0 71556 LINCW,,(WDNC) F0I00840 71312 0 00006 0 00000 ,,MLSTAP $F0I00850 71313 0754 00 2 00000 PXA ,2 F0I00860 71314 0400 60 0 73661 ADD* (LNCT) $F0I00870 71315 0601 60 0 73661 STO* (LNCT) $F0I00880 * F0I00890 BINARY CARD NO. 9F090005 71316 0634 00 1 71427 BLS SXA NMR,1 COMPLEMENT OF NUMBER OF MISSING ROUTINES F0I00900 71317 -0625 00 0 73173 STL LIBSW INDICATE LIBRARY SEARCH IN PROGRESS F0I00910 71320 0600 00 0 71554 BLS1 STZ LLFLG F0I00920 71321 0600 00 0 71555 STZ EFLIB F0I00930 71322 0600 00 0 71553 STZ LIBLD F0I00940 71323 -0534 00 1 73652 LXD (LIBT),1 SET TO READ LIBRARY TAPE F0I00950 71324 -0634 00 1 71757 SXD RDTPN,1 $F0I00951 71325 0634 00 1 71336 SXA CKBLK,1 $F0I00952 71326 1 73672 1 71327 TXI *+1,1,(SCHU) $F0I00953 71327 0634 00 1 71765 SXA TEOF,1 $F0I00954 71330 0774 00 1 71357 AXT LINTS+1,1 $F0I00955 71331 0634 00 1 71356 SXA LINTS,1 $F0I00956 71332 0020 00 0 71346 TRA RDBLK $F0I00957 * $F0I00958 ROUTINE READS BLOCKED RECORDS FROM LIBRARY TAPE $F0I00959 AND MOVES ONE CARD IMAGE AT A TIME TO IM $F0I00960 71333 0534 00 1 71362 RDLIB LXA LNCD,1 NEXT CARD $F0I00961 71334 3 70630 1 71337 TXH CKBLK+1,1,LBUF IS THIS FIRST CARD OF BLOCK $F0I00962 71335 0074 00 4 73606 TSX (TAPE),4 CHECK READ FOR FIRST OF BLOCK $F0I00963 71336 0 10000 0 00000 CKBLK **,,(CHKU) $F0I00964 71337 0774 00 4 00000 AXT 0,4 $F0I00965 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 77 RECORD 9 OR 34 LIBRARY SEARCH 71340 0500 60 0 71362 CLA* LNCD MOVE NEXT CARD TO IM $F0I00966 71341 0601 00 4 73417 STO IM,4 $F0I00967 71342 1 77777 4 71343 TXI *+1,4,-1 $F0I00968 71343 3 77750 4 71340 TXH *-3,4,-LIBSIZ $F0I00969 BINARY CARD NO. 9F090006 71344 1 00030 1 71345 TXI *+1,1,LIBSIZ SET FOR NEXT CARD $F0I00970 71345 -3 71267 1 71353 TXL LNXT,1,LBUF+LBLK*LIBSIZ-1 WAS IT LAST CARD $F0I00971 71346 0074 00 4 73606 RDBLK TSX (TAPE),4 YES, START READING NEXT BLOCK $F0I00972 71347 0 40004 0 71363 BLKIO,,(RBEP) $F0I00973 71350 0 77777 0 73652 (LIBT),,-1 $F0I00974 71351 0 00000 0 73135 PZE IOERR $F0I00975 71352 0774 00 1 70630 AXT LBUF,1 RESET TO PICK UP FIRST CARD OF BLOCK $F0I00976 71353 0634 00 1 71362 LNXT SXA LNCD,1 $F0I00977 71354 0774 00 1 00000 AXT 0,1 SET BUFFER SWITCH $F0I00978 71355 -0634 00 1 73205 SXD BUFPOS,1 $F0I00979 71356 0020 00 0 71357 LINTS TRA *+1 AFTER 1ST TIME, TRA TEOF $F0I00980 71357 0774 00 1 71765 AXT TEOF,1 $F0I00981 71360 0634 00 1 71356 SXA *-2,1 $F0I00982 71361 0020 00 0 71333 TRA RDLIB 1ST TIME THROUGH GO BACK TO MOVE 1ST CARD $F0I00983 * $F0I00984 71362 0 00000 4 70630 LNCD PZE LBUF,4 NEXT CARD TO BE MOVED $F0I00985 71363 -0 00003 2 71363 BLKIO IOCPN *,,3 IGNORE DUMMY WORDS $F0I00986 71364 -1 00440 0 70630 IOCT LBUF,,LBLK*LIBSIZ READ LIBRARY $F0I00987 * $F0I00988 * ENTER HERE FOR LIBRARY PROGRAM CARD $F0I00989 71365 0520 00 0 73174 LSPC ZET MULPC IS THIS A CONTINUATION PROGRAM CARD F0I00990 71366 1 00002 1 71424 TXI LSBB,1,2 YES, SET FOR 8L NAME F0I01000 71367 -0520 00 0 71553 NZT LIBLD WERE WE LOADING A PREVIOUS ROUTINE F0I01010 71370 1 00000 0 71413 LSTRV TXI LSB,0,** NO F0I01020 * CHECK TRANSFER VECTOR OF LAST ROUTINE LOADED F0I01030 71371 -0534 00 2 71370 LSA LXD LSTRV,2 NUMBER IN TR. VEC. OF ROUTINE JUST LOADED F0I01040 BINARY CARD NO. 9F090007 71372 -3 00000 2 71413 TXL LSB,2,0 TRANSFER IF NO VECTOR F0I01050 71373 0754 00 2 00000 PXA ,2 TRANSFER VECTOR LENGTH $F0I01060 71374 0400 00 0 73200 ADD LADD PLUS LOAD ADDRESS OF PROGRAM $F0I01065 71375 0621 00 0 71377 STA LSA1 TO LOCATE TRANSFER VECTOR $F0I01070 71376 -0534 00 2 71370 LXD LSTRV,2 F0I01080 71377 0500 00 2 00000 LSA1 CLA **,2 NAME IN VECTOR F0I01090 71400 0074 00 4 72351 TSX ADDM,4 F0I01100 71401 0074 00 4 72331 TSX CKPL,4 CHECK FOR PREVIOUS LOADING F0I01110 71402 0020 00 0 71412 TRA LSA2 ALREADY LOADED F0I01120 71403 0774 00 4 00000 AXT 0,4 NOT IN F0I01130 71404 -0520 00 4 71633 LSA1A NZT FMR,4 IS NAME ALREADY IN MISSING LIST F0I01140 71405 0020 00 0 71563 TRA LSA1B NO F0I01150 71406 0340 00 4 71633 CAS FMR,4 F0I01160 71407 1 77777 4 71404 TXI LSA1A,4,-1 F0I01170 71410 0020 00 0 71412 TRA LSA2 YES F0I01180 71411 1 77777 4 71404 TXI LSA1A,4,-1 F0I01190 71412 2 00001 2 71377 LSA2 TIX LSA1,2,1 GET NEXT NAME IN VECTOR F0I01200 * EXAMINE PROGRAM CARD FOR NAMES OF MISSING ROUTINES F0I01210 71413 -0520 00 0 71633 LSB NZT FMR ANY MORE MISSING F0I01220 71414 0020 00 0 71511 TRA LSF NO F0I01230 71415 0520 00 0 71555 ZET EFLIB WAS THERE AN EOF IN LIBRARY F0I01240 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 78 RECORD 9 OR 34 LIBRARY SEARCH 71416 0020 00 0 71531 TRA EFLS1 YES F0I01250 71417 0500 00 0 71551 CLA 8L (31)F0I01280 BINARY CARD NO. 9F090008 71420 0622 00 0 71370 STD LSTRV NUMBER IN TRANSFER VECTOR F0I01290 71421 0600 00 0 71553 STZ LIBLD F0I01300 71422 0534 00 2 72274 LXA LPG,2 RESTORE IR 2 F0I01310 71423 1 77776 2 71424 TXI *+1,2,-2 REDUCE WORD COUNT BY 2 F0I01320 71424 0535 00 4 71427 LSBB LAC NMR,4 F0I01330 71425 1 71633 4 71426 TXI *+1,4,FMR F0I01340 71426 0634 00 4 71432 SXA LSC,4 F0I01350 71427 -0774 00 4 00000 NMR AXC **,4 NUMBER OF MISSING ROUTINES F0I01360 71430 0500 00 1 73424 CLA IM+5,1 F0I01370 71431 -0120 00 0 71442 LSBB1 TMI LSD1 LOOK FOR PRIMARY NAMES FIRST F0I01380 71432 0500 00 4 00000 LSC CLA **,4 MISSING NAME F0I01390 71433 0100 00 0 71441 TZE LSD F0I01400 71434 0402 00 1 73423 SUB IM+4,1 NAME ON PROGRAM CARD F0I01410 71435 -0100 00 0 71441 TNZ LSD F0I01420 71436 -0625 00 0 71553 STL LIBLD FOUND F0I01430 71437 0600 00 0 73175 STZ SKIP LOAD THIS ROUTINE $F0I01435 71440 0600 60 0 71432 STZ* LSC REMOVE NAME FROM LIST OF MISSING ROUTINES F0I01440 71441 2 00001 4 71432 LSD TIX LSC,4,1 F0I01450 71442 1 77776 1 71443 LSD1 TXI *+1,1,-2 SET FOR NEXT NAME ON PROG CARD F0I01460 71443 2 00002 2 71427 TIX NMR,2,2 F0I01470 71444 0520 00 0 71553 ZET LIBLD WAS ENTRY FOUND $F0I01480 71445 0020 00 0 71455 TRA LRES YES, GO PROCESS PROGRAM CARD $F0I01481 BINARY CARD NO. 9F090009 71446 0520 00 0 73174 ZET MULPC NO, IS THIS FIRST PROGRAM CARD $F0I01482 71447 0020 00 0 71747 TRA L NO,READ NEXT CARD (31)F0I01483 71450 0020 00 0 72346 TRA SKPPR YES,SET SKIP (31)F0I01484 71451 DUP 1,4 (31)F0I01485 71451 0 00000 0 00000 PZE (31)F0I01486 71455 -0534 00 1 73205 LRES LXD BUFPOS,1 RESTORE 1 $F0I01500 71456 0502 00 0 71431 CLS LSBB1 F0I01510 71457 0601 00 0 71431 STO LSBB1 CHANGE TMI TO TPL OR TPL TO TMI F0I01520 71460 -0120 00 0 71465 TMI LSE HAVE WE LOOKED AT SECONDARY NAMES YET F0I01530 71461 0534 00 2 72274 LXA LPG,2 NO F0I01540 71462 0520 00 0 73174 ZET MULPC IS THIS A CONTINUATION PROGRAM CARD F0I01550 71463 1 00002 1 71427 TXI NMR,1,2 YES, ADJUST FOR 8L NAME F0I01560 71464 1 77776 2 71427 TXI NMR,2,-2 NO, REDUCE WORD COUNT F0I01570 71465 0535 00 4 71427 LSE LAC NMR,4 PACK AND COUNT MISSING ROUTINES F0I01580 71466 0774 00 2 00000 AXT 0,2 F0I01590 71467 0522 00 0 71432 LSE1 XEC LSC F0I01600 71470 0100 00 0 71473 TZE LSE2 F0I01610 71471 0601 00 2 71633 STO FMR,2 F0I01620 71472 1 77777 2 71473 TXI *+1,2,-1 F0I01630 71473 2 00001 4 71467 LSE2 TIX LSE1,4,1 F0I01640 BINARY CARD NO. 9F090010 71474 0600 00 2 71633 STZ FMR,2 F0I01650 71475 0634 00 2 71427 SXA NMR,2 F0I01660 71476 0534 00 2 72274 LXA LPG,2 RESTORE WORD COUNT F0I01670 71477 0441 60 0 73660 LDI* (FGBX) (31)F0I01671 71500 0020 00 0 72174 TRA LPC NO, GO PROCESS P.C. $F0I01672 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 79 RECORD 9 OR 34 LIBRARY SEARCH 71501 DUP 1,8 (31)F0I01673 71501 0 00000 0 00000 PZE (31)F0I01674 * HERE WHEN THERE ARE NO MORE MISSING ROUTINES F0I01690 71511 -0534 00 1 73652 LSF LXD (LIBT),1 WHICH TAPE HAS THE LIBRARY F0I01700 71512 -3 00001 1 71517 TXL LSF1,1,1 TRANSFER IF SYSTEM TAPE F0I01710 71513 0074 00 4 73606 LSFR TSX (TAPE),4 REWIND IT F0I01720 71514 0 20000 0 73213 REWND,,(SKBP) F0I01730 71515 0 77777 0 73652 (LIBT),,-1 F0I01740 71516 0020 00 0 72370 TRA SPS2 GO TO LOADING PASS 2 F0I01750 71517 0074 00 4 73606 LSF1 TSX (TAPE),4 BACK SYSTEM OVER LIBRARY $F0I01810 71520 0 20000 0 73212 BSLCW,,(SKBP) AND LIBRARY SEARCH. F0I01820 71521 0 00001 0 00000 ,,SYSTAP $F0I01830 BINARY CARD NO. 9F090011 71522 0020 00 0 72370 TRA SPS2 F0I01840 * HERE FOR END OF FILE IN LIBRARY F0I01850 71523 0074 00 4 73606 EFLS TSX (TAPE),4 BACK OVER FILE MARK F0I01860 71524 0 20000 0 73211 BSFCW,,(SKBP) F0I01870 71525 0 77777 0 73652 (LIBT),,-1 F0I01880 71526 -0625 00 0 71555 STL EFLIB F0I01890 71527 0520 00 0 71553 ZET LIBLD WERE WE LOADING F0I01900 71530 0020 00 0 71371 TRA LSA YES, FINISH UP F0I01910 71531 -0520 00 0 71554 EFLS1 NZT LLFLG IS LOWER LEVEL FLAG ON F0I01920 71532 0020 00 0 71544 TRA MSNGR NO, THERE ARE MISSING ROUTINES F0I01930 71533 0074 00 4 73606 TSX (TAPE),4 YES, BACK OVER LIBRARY FOR ANOTHER PASS F0I01940 71534 0 20000 0 73211 BSFCW,,(SKBP) F0I01950 71535 0 77777 0 73652 (LIBT),,-1 F0I01960 71536 -0534 00 1 73652 LXD (LIBT),1 F0I01970 71537 3 00001 1 71320 TXH BLS1,1,1 F0I01980 71540 0074 00 4 73606 TSX (TAPE),4 LIBRARY ON 1, GET OVER FILE MARK F0I01990 71541 0 20000 0 73206 SKPCW,,(SKBP) F0I02000 71542 0 00001 0 00000 ,,SYSTAP $F0I02010 71543 0020 00 0 71320 TRA BLS1 F0I02020 * F0I02030 71544 0500 00 0 71557 MSNGR CLA COMNG COMMENT MISSING ROUTINES F0I02040 71545 0074 00 4 73012 TSX COMNT,4 F0I02050 71546 0500 00 0 73141 CLA TRASO LIST THEM AND GO TO SIGN ON F0I02060 71547 0601 00 0 71316 STO BLS F0I02070 BINARY CARD NO. 9F090012 71550 0020 00 0 71270 TRA WTLS1 F0I02080 71551 0 00000 0 00000 8L PZE TEMPORARY STORAGE FOR 8 LEFT OF PC $F0I02081 71552 0 00000 0 00000 8R PZE TEMPORARY STORAGE FOR 8 RIGHT OF P.C. $F0I02082 * F0I02090 71553 0 00000 0 00000 LIBLD *NON ZERO WHILE LOADING LIBRARY ROUTINE F0I02100 71554 0 00000 0 00000 LLFLG *NON ZERO WHEN LOWER LEVEL NAMES ADDED F0I02110 71555 0 00000 0 00000 EFLIB *NON ZERO WHEN EOF IN LIBRARY F0I02120 71556 3 00024 0 73417 LINCW IORT IM,,20 F0I02130 71557 3 00003 0 71560 COMNG IORT *+1,,3 $F0I02170 71560 004431626231 BCI 3,0MISSING ROUTINES $F0I02180 71563 0601 00 4 71633 LSA1B STO FMR,4 STORE IN LIST OF MISSING ROUTINES F0I02190 71564 1 77777 4 71565 TXI *+1,4,-1 F0I02200 71565 -3 77716 4 73155 TXL MMSNG,4,-NMMSP TRANSFER IF TOO MANY MISSING F0I02210 71566 -0625 00 0 71554 STL LLFLG TURN ON LOWER LEVEL FLAG F0I02220 71567 0600 00 4 71633 STZ FMR,4 F0I02230 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 80 RECORD 9 OR 34 LIBRARY SEARCH 71570 0634 00 4 71427 SXA NMR,4 F0I02240 71571 0020 00 0 71412 TRA LSA2 F0I02250 73167 PBREAK EQU T F0I02260 03734 ORIGIN EQU BOTTOM F0I02270 70627 TABL EQU LBUF-1 LOADING TABLES FROM HERE DOWN $F0I02280 05624 DDBG EQU TABL-ENTWH+1 F0I02290 71572 DUP 1,3 (31)F0I02300 71572 0 00000 0 00000 PZE (31)F0I02301 * PATCH SPACE FROM HERE TO NDLS (25)F0I02303 F0I02310 F0I02320 F0I02330 F0I02340 F0I02350 F0I02360 F0I02370 F0I02380 F0I02390 71632 NDLS EQU FMR-1 F0I02400 77777 END -1 F0I02630 BINARY CARD NO. TRA77777 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 1 POST PROCESSOR ASSEMBLY DATA 73667 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM REFERENCES TO DEFINED SYMBOLS 63132 G 63255,63321,63420,64644,64714 63131 H 63255,63276,63303,63360,63365 65774 I 63245,63251,65057,65222,65456,65465,65637,65662 71747 L 63062,65217,71727,71764,72015,72033,72120,72133,72135,72140,72303,72350,73533,71447 63127 N 63255,63262,63277,63301,63306,63317,63324,63372,63413,63414,63423,63424 73165 R 63072,72054,72055,72307,72315,72322 73166 S 63046,63065,64157,64210,65161,72011,72012,72060,72210,72216,72226,72227,72252,72257,72327,72460 73167 T 63073,72010,72056,72225,72316,71572 66620 U 65366,65444,65507,65601,65604,65607 65772 1G 63170,63175,63176,63200,63202,63207,63210,63223,63232,63642,63661,63716,64044,64054,64355,64543,64546 64562,64604,65013,65016,65053,65065,65071,65225,65241,65252,65347,65462,65472,65525,65544,65561,65636 65645,65650,65653 63126 1H 63226,63233,63244,63252,63255,63647,63665,63725,64114,64124,64607,64653,64717,65054,65074,65231,65356 65533,65542,65562,65570,65620,65623,65651 71551 8L 72205,72222,72254,73525,71417 71552 8R 72023,72211,72236 61652 A1 61623,61657,61703,61724 62033 A2 62055 62032 A3 62056 62055 A4 62041,62105 72441 AA 62512 AC 61121,61457,61474,61477,61522,61562,61606,61675,61716,61727 61136 AI 61143 62042 B1 62022,62077,62101 62044 B2 62023,62102 62046 B3 62024,62066,62070,62103 72407 BA 72405,72412,72441,72443 62463 BL 61053,61115,61232,62040,63004 61644 C1 61636,61637,61643 61645 C2 61611 61650 C4 61455,61516,61533,61553,61560,61575,61662,61664,61760,61770 61653 C5 61625,61656,61661,61712 61647 C6 61665 61666 C7 61655 72307 CB 72073,72103 61175 D1 61165,61173 61203 D2 61201 61174 D3 61166 62462 EN 61046 62471 EX 72432 G2 72430 72377 G3 72373 72421 G4 63037,63067,72417 64612 IF 73417 IM 65172,65201,66675,71767,72007,72013,72027,72030,72034,72037,72040,72044,72053,72062,72063,72071,72075 72102,72104,72114,72122,72127,72136,72147,72262,72264,72275,72305,72476,72514,72547,72555,72560,73076 73101,73107,73143,73310,73510,73524,73526,71276,71277,71306,71341,71430,71434,71556 63432 K1 63374,63400 63433 K2 63377 63434 K3 63403 63435 K4 63415 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 2 POST PROCESSOR ASSEMBLY DATA 63436 K5 63426 66621 L1 65373,65440,65513,65576,65602,65605,65610,65616 66622 L2 65376,65442,65517,65577,65606,65617 66001 LC 63744,63753,64107,64160,64343,64410,65134,65143,66002 63625 LM 63635 72314 LT 65775 N1 64544,64564 65776 N2 64547,64570 65777 N3 64563,64572 66616 NL 65736 NO 63722 65636 PE 65002,65062,65720 66623 S1 65226,65243,65253,65340,65463,65474,65477,65501,65505 66624 S2 65473,65476,65500,65511,65515,65706,65710 64214 SW 64166,64172 61557 T1 61465 61566 T2 61466 61520 T3 61467,61511,61535,61555 61526 T4 61475 61542 T5 61476 61517 T6 61503 61521 T7 61513 63635 UM 63624 66102 VI 63677,64613,64651,64672,65567 61716 W1 61670 61727 W2 61671 61714 W3 61676 61710 W4 61677,61731 61704 W5 61713,61726 61701 W6 61715,61720,61733 61767 Y1 61736,62006 61776 Y2 61737 61762 Y3 61740 61763 Y4 61742,61764 61761 Y5 61756 61640 Z1 61626 61634 Z2 61641 61642 Z3 61627 63143 11Z 63255,63336 63146 12Z 63255,63341 66162 15H 64023 61141 A2I 61136 61167 A3I 61144 72443 AAA 61706 AXR 61443,62010 62522 BCD 60731,61036,61044,61050,61100,61110,61130,61207,61221,62025,62033,62036,62125,62343,62344 71316 BLS 71547 65765 CAL 63431 CER 63274 CM1 63260,63265 63304 CM2 63266 63316 CM3 63267,63311,63314 63141 CMA 64126,64541,64550,64723,64742 61705 CXR 61444,61525,61541,61556,61565,61766,61775,62007 62110 DET 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 3 POST PROCESSOR ASSEMBLY DATA 63130 DOE 63255,63257,63264,63326,63327,63370,63371,63404,63410 63333 EC1 63315 63346 EC3 63340 63351 EC4 63352 EC5 63366 63353 EC6 63343 66167 ECM 64034 63133 EKE 63255,63335,63346,63352,63361,63363,63367 72772 EOF 71766 62176 EPP 62170 66166 ESL 64032 73321 EXE 72357 66547 FIL 65115 72440 FIX 72420 71633 FMR 73667,72367,72451,70630,71274,71404,71406,71413,71425,71471,71474,71563,71567,71575 66226 FMT 63766,64000,64010,64020,64022,64025,64035,65012,65021,65130,65305,65323,65433 63400 FN1 63376 63410 FN2 63406 63423 FN3 63411 63372 FN4 63316 63367 FN5 63337,63342,63345,63350,63356 63213 FWA 63154,63157,64335 64635 IFA 64626 64653 IFB 64634 64670 IFD 64665 64720 IFF 64711 64732 IFG 64725 64751 IFH 64744 64765 IFI 64760 63266 IN2 63261 62506 IRC 62013,62075 62453 L56 62451 LC1 61332,61433,61450,61505,61512,61566,61571,61613,61624,61660,61663,61725,61741,61750,61777,62004,63004 62500 LC2 61343,61370,61401 62452 LC6 61163,61460,61472,61501,61527,61536,61543,61547,61604,61632,61634,61640,61674,61700,61714,61721,61732 61745,61754,61772,63004 66001 LCP 63741,63746,64104,64176,64203,64205,64404,64515,64517,65036,65042,65110,65116,65121,65125,65132,65147 66002 73201 LLB 72064,72065,72067,72076,72100,72310,72312 63632 LMA 63625,63636 72174 LPC 72165,72171,71500 72247 LPF 72241 72274 LPG 72141,72156,72203,72207,72256,72301,71422,71461,71476 72065 LRD 72106 72076 LRE 72070 72105 LRF 72101 72115 LRG 72112,72117 71371 LSA 71530 71413 LSB 71370,71372 71432 LSC 71426,71440,71441,71467 71441 LSD 71433,71435 71465 LSE 71460 71511 LSF 71414 65166 LST 66677 72315 LTA 72313 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 4 POST PROCESSOR ASSEMBLY DATA 64126 MTC 64134,65063,65100,65224,65343,65363,65521,65523,65574,65627,65652 64141 MTM 63220,64347,64352,64354,64360,64374,64377,64536,64542,64554,64561 66163 NAM 64006,65073,65271,65660 63273 NC1 63310 NC2 63274 63323 NC3 63304 63331 NC4 63305 63271 NC5 63270,63307,63330 63265 NC7 63312 63330 NC8 63323 63326 NC9 63332 71427 NMR 71316,71424,71443,71463,71464,71465,71475,71570 66617 NNL 65370,65407,65503,65612 24 NTW 73667, 3734,61021,61023,61024,61026,61027,61247,62554,62600,62624,62651 62451 ONE 62051,62100,62150,62156,63004 61035 OUT 61063,61205,61244,61255 65651 PEA 65653 PEC 65664 PED 65706 PEE 65715 62077 SAM 62054 62452 SIX 62053,62057,62063,63004 65757 SLW 73315 STH 72351 65760 STO 65761 STQ 72034 SUM 72001,72021 73234 SVN 61534 T10 61531 61554 T11 61551 61561 T12 61557 61576 T13 61567,61577 61562 T14 61601 63520 TAB 63412,63425 72446 TAG 63036,63061,63121,72174,72176,72177,72270,72332,72406,72635 73235 TEN 72651 65766 TRA 73317 TSH 72354 72417 TTR 72440 65770 TXI 65767 TZE 72372 VEC 72446 61721 W1W 61717 61732 W2W 61730 62112 WWW 62126 XXX 62106 65740 YES 63717 62460 1BIT 62144 62514 2NP1 61371 62457 7BIT 60755 72716 9F07 63024 63013 9F08 63011 63015 9F32 63022 63014 9F33 63007 71236 A1LS 71226 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 5 POST PROCESSOR ASSEMBLY DATA 62476 AD77 61344 72351 ADDM 72414,71400 72325 ADDS 72317 61002 B40K 60760 73176 B4LD 72363,73002,73514 73056 B4OK 73034 62540 BCDA 60735,60740,61061,61150,61155,61157,61170,61171,61175,61203,61216,61233,61236,62017,62445 65632 BDMP 66632 61355 BET1 61362 61374 BETA 61411 62474 BLNK 71320 BLS1 71537,71543 66112 BPIF 63731,63733,63735,64612,64735,64754,64766 66171 CCNT 64027,64040,64777,65437 65356 CDMP 66625,66626,66627,66630 66143 CEFN 64356,65015 72331 CKPL 72150,71401 72425 CMPR 72432 72643 CNVT 72513,72546,72557,71253 62343 COM1 62113,62131 62344 COM2 73170 COMN 63100,63533,63627,72014,72242,72323 63147 DASH 63344,63710,64654 62454 DATA 60741 61006 DBUG 5624 DDBG 63027,63030,63032,63044,63047,63051,71572 65634 DDMP 66633 62475 DLC7 61172 63142 DOLS 64115,64553,64560,64756 71523 EFLS 72774,72775 64350 EFNA 65152,65154 64373 EFNB 64363 64425 EFNC 64420,64431,64442,64444,64455,64461,64466,64472,64476,64501 64443 EFND 64437,64447,64452,65004 64476 EFNE 64434,64443,64464,64465,64475 64100 EFNZ 64370 62165 EPSI 62152 61734 EQU6 61462 73322 EXEM 72361 65113 EXIT 64043,64125,64136,64137,65005,65263,65344,65430,65453,65663,65701,65727 66546 FMTL 65040,65041,65146 62505 FRED 62030,62072 63640 FSAA 64630,64705,65614,65622 61256 FULL 61247 62124 GAM7 62117,62135 61426 GAMA 61416,61435 62513 HOLD 61373,61377,61404,61406 60744 HOPE 61323 64711 IFDA 64671 64700 IFDB 64674 64641 IFMR 64635 64616 IFPA 64640,64643 10 INPT 73667 62507 IRAB 62011,62012,62073,62074 73200 LADD 63540,63576,63603,63633,64342,64417,64422,65160,72221,72263,71374 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 6 POST PROCESSOR ASSEMBLY DATA 71767 LBIN 14 LBLK 73667,70630,71345,71364 70630 LBUF 71266,71334,71345,71352,71362,71364,71572 62501 LC36 61153 64777 LIST 64117,64606,64611 72760 LK1L 72745 71362 LNCD 71333,71340,71353 71353 LNXT 71345 63140 LPAR 63650,64003,64610,65001,65075,65357,65425,65534,65571,65703,65717 72257 LPFA 72206 71455 LRES 71445 71377 LSA1 71375,71412 71412 LSA2 71402,71410,71571 71424 LSBB 71366 71442 LSD1 71431 71467 LSE1 71473 71473 LSE2 71470 71517 LSF1 71512 71513 LSFR 71365 LSPC 72162 65201 LSTA 65171,65207 65204 LSTB 65176 63174 L(0) 63206,63221,63724,63767,64002,64012,64061,64325,64424,65346 65730 L(1) 63250,63325,63331,63521,63543,63546,63574,63601,63662,63736,64111,64365,64412,64427,64555,65044,65255 65337,65372,65375,65415,65502,65506,65512,65516,65545,65560,65611,65712 65731 L(2) 63565,64761,65106 65732 L(3) 64726,65431 65722 L(4) 64531,64712,64745,65321 65303 L(5) 64623,64646 65733 L(6) 63160,65260,65412 64772 L(7) 64432,65025 65734 L(8) 63563 65735 L(9) 63172,63240,64535,64673 65743 L(A) 65632 63437 L(E) 63313 65742 L(G) 65377,65634 65741 L(O) 65565 73313 MAIN 73151 60755 MOD1 60742,62123,62141 62144 MOD2 62115,62133 65744 MSK1 64445,65531,65673 65745 MSK2 65124 64302 MSK3 64202 64135 MTCA 64132,65254,65335 64124 MTCB 63701,63712,65067,65240,65355,65471,65527,65540,65554,65625,65655 66757 NDBG 66757 61013 NDCW 60660 71632 NDLS 71575 73202 NLDD 72146,72152,73530 63762 NSTB 65102,65707 73110 NXTC 73116 65565 ODMP 65633,65635,66631 73207 ONEA 73210 62007 OVER 61507,61510,61573,61574,61617,61620,61752,61753,62001,62002 64042 OVFO 63764 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 7 POST PROCESSOR ASSEMBLY DATA 73172 OVLP 63754,65135,72202,72260 61036 PETE 61102,61105,61211,61214 64114 PLST 63407,63417,63431,63723,64663,64703,64721,64724,64743,64757 63146 PLUS 63255,64662,65702 65155 POET 64121,64144,65153 72141 PRCD 72050 61273 PRNE 61126 61276 PRNF 61176,61204 72205 PROC 73511,73512 72642 PROG 60745,60746,60750,63071,63103,63120,72137,72375,72447,72632,73217 61115 RET1 61111 63144 RPAR 63656,63773,64720,65060,65232,65237,65470,65537,65624,65642 73175 SKIP 63112,72032,72163,72346,73523,71437 65345 SPCH 65064 72370 SPS2 63033,63057,71516,71522 64306 SSWT 64320,65163,72170,72172 63614 STAA 63646,65070,65656 62456 STAR 60732,61042 70727 STBL 63523,63547,63556,63561,63570,63615,64416,64421,65202,65530,65664,65667 63115 STHD 63052 73316 STHM 72353 66545 STHW 65035,65575 66164 SUBS 63770,65101,65230,65661,65711,65714 70627 TABL 63027,63030,63044,63047,63051,63122,71720,71721,72201,72217,72220,72224,72235,72276,72335,72372,72374 72401,72404,72416,72442,72636,73172,71572 63127 TEMP 63255,63614,63616,63622,63626,63630,63632,63652,63660,63663,63703,64414,64426,64430,64631,64706,64740 64752,65006,65014,65051,65052,65104,65247,65261,65312,65314,65316,65317,65336,65341,65532,65543,65547 65615,65630,65643,65646,65665,65666,65674,65676 71765 TEOF 71743,71762,73061,71327,71357 61123 TEST 61127 3734 TEXT 61027,62675,62676,62677,62700,62701,62702,62703,62704,62705,62706,62707,62710,62711,62712,62713,62714 62715,62716,62717,62720,62721 62515 TMPF 61445,61446,61451,61453,61473,61500,61504,61506,61526,61546,61570,61572,61614,61615,61616,61747,61751 61776,62000 73204 TMPR 72061,72111,72123,72125,72423,72427,72434 73237 TMSK 72223 72571 TOPR 66141 TRA2 64110,64411,64522,65022,65120 73320 TSHM 72356 64146 TSWE 72457 66004 UMC8 63532,63537,63573,63602,65365,65504,65510,65553,65557,65600,65672 61363 WHOA 61350 62504 WKCL 62037,62045 72664 WTLK 72466 71263 WTLS 71250 61015 4BTTG 61016 73221 A4CHN 72121 ABSCD 72052 72134 ABSTC 71773 73236 ADMSK 72243,72540,72643 62447 ALCTX 61415 61014 ALL7S 60722,60775,61013 61327 ALPHA 61316,61335 62446 ANOWR 61420 66172 ARRAY 65242,65244,65246,65251,65333 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 8 POST PROCESSOR ASSEMBLY DATA 66211 ARRFI 65265,65273,65275,65302,65304 66216 ARRFR 65270,65274,65311,65320,65322 73311 ASTSK 73102 62450 ATABL 61372 73223 B2CHN 72673,72675,72730 73222 B3CHN 64322 BEGIN 64334 BEGNA 64330 73314 BLANK 73111,71257 71363 BLKIO 71347 64061 BLKSR 65020,65272 62521 BLMSK 61022,61037,61116,61222 73340 BLNKS 72475,72657,73077,71270 66210 BPARY 65331 66161 BPCNR 64576 66650 BPEDT 65724 63735 BPIF1 64652,64716,64730,64747,64763 63731 BPIFZ 63737,64633,64710,64732,64751,64765 73211 BSFCW 72574,72610,71524,71534 73212 BSLCW 71520 73210 BSRCW 71740,72712,73036,73054,73520,71230 63236 C0150 64603,64776,65056,65221,65236,65455,65464 63247 C0151 63241,64641 63251 C0152 63253 C0153 63237,63246 63205 C0160 63247,63641,64351 63211 C0161 63225 63222 C0162 63216 63226 C0163 63214 63234 C0164 63205 63170 C0180 63203,63243,64540,65536 63150 C0190 63167,63171,63204,63224,63236,63271,63333,63353,63637,63664,64122,64133,64141,64345,64350,64532,64534 64616,64670,65150,65342,65520,65541,65626 63153 C0191 63157 C0192 63156 63161 C0193 63153 63165 C0194 63150 63705 CACMD 65235,65461,65621 66550 CALTN 65034 65377 CDMPA 65522,65613 65454 CDMPB 65361 65523 CDMPD 65460,65467 65550 CDMPE 65454,65535,65546 65563 CDMPF 65524 63547 CEAPP 63553 73312 CHAIN 72770 63214 CHCTR 63151,63163,64336 71730 CHENT 71724 71336 CKBLK 71325,71334 73116 CKNXT 73112 72344 CKPL1 72337 72335 CKPL2 72341 72340 CKPL3 63040,63070 72333 CKPL4 63035,63060 72342 CKPLR 72331,72333,72340,72344 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 9 POST PROCESSOR ASSEMBLY DATA 66563 CMDMP 65441,65443,65445,65452 64516 CNTRC 64113 72650 CNVT1 72656 72657 CNVT2 72655 72662 CNVT3 72645 73032 COMBC 73012,73025 73352 COMCD 73121 73031 COMCW 73013,73017,73027 73331 COMDL 73124 73323 COMEX 72571 73351 COMLC 73163 73410 COMLK 72763 71214 COMLS 71262,71264 71557 COMNG 71544 73012 COMNT 72471,72473,72562,72572,72764,73122,73125,73140,71545 73373 COMPD 73157 73360 COMPR 73137 73401 COMPT 73161 73332 COMSM 73142,73146,73152,73351 73365 COMSN 73155 73241 COMST 72470 66142 COMTG 64042,64102,64135,64340,64402,64513,64521,64602,64770,64775,65027,65050,65103,65113,65145,65155,65327 65334,65446,65723 61055 CONCD 62345 CONTB 61123,62345,62346,62347,62350,62351,62352,62353,62354,62355,62356,62357,62360,62361,62362,62363,62364 62365,62366,62367,62370,62371,62372,62373,62374,62375,62376,62377,62400,62401,62402,62403,62404,62405 62406,62407,62410,62411,62412,62413,62414,62415,62416,62417,62420,62421,62422,62423,62424 62426 CONTC 62426,62427,62430,62431,62432,62433,62434,62435,62436,62437,62440,62441,62442,62443,62444 62511 COUNT 61422,61424,61432,61434,62014,62050,62052,62060,62061,62062,62104 63150 CTEST 63211,63212,64624 66651 CVRT1 65713,66651,66652,66653,66654,66655,66656,66657,66660,66661,66662,66663,66664,66665,66666,66667,66670 66671,66672,66673,66674 73226 DATAT 73114 62455 DEBUG 60736 63145 DECPT 63255,64700,64704 61423 DELTA 61421,61436 61064 DELTE 61267,61300 70731 DTBLS 60673,61032,61367,61375,61376,61403,61427,62450,64322,64327,64334 66644 EDATA 65675,65677,65700,65726 71555 EFLIB 71321,71415,71526 71531 EFLS1 71416 64414 EFNBA 66113 EFNCT 64337,64362,64400 66144 EFNCX 64423,64503 66141 EFNRT 64100,64105,64405,66141 66127 EFNTB 64366,64401,66127 64112 EFNZA 64101 73517 EFPCH 72776 62200 EJECT 62172 71715 ENDBG 71715,73667 63137 ENDMK 63211,64120,64131,64142,64346,64353,65151 61306 ENDPR 60757,62146 63021 ENTBS 73666 60675 ENTCH 60670 60640 ENTER 73666 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 10 POST PROCESSOR ASSEMBLY DATA 71224 ENTLS 73666 63004 ENTWH 60674,61307,61442,71572 73000 EOFA2 71726,73075,73120,73522 73131 ERRIO 73067 66625 ESPCH 65352 61050 ETEST 61106 EXFOR 61052,61054 63421 EXITR 63322 63261 EXITT 63256,63263,63421 72022 FIRST 73527 73034 FIXB4 73123,73131,73135 66560 FMCMN 65401,65405,65420,65421,65426,65432 66165 FMTAG 66225 FMTCC 65400,65404,65566 63763 FMTCP 64024,64037,65003,65026,65123,65262,65326,65427,65436,65704,65705,65721 64337 FRMON 63647 FSAAB 63704 63653 FSAAR 63640,63666 63667 FSAAS 63643 63677 FSERR 63645,63657,63673 62130 GAMII 62111 72735 GETL1 72727 72717 GOCHN 60751 61602 GREA6 61461 71274 GTFMR 71301,71305 61311 GTSVN 61324 71247 HEDLS 71235 62502 HIH77 61167 64666 IFCMI 64656,64661 64664 IFCPL 66103 IFINS 63727,64526,64527,64530,64615,64632,64642,64645,64647,64667,64707,64713,64715,64727,64746,64762,64774 64643 IFMRA 64617 62725 ILCCD 62723 73121 ILLCD 71774,72121,73065,73103,73113,73115 63071 INIT1 63055 71745 INITB 73100 71734 INITL 73005,73011 71761 INITS 71745,71746,71763 73135 IOERR 72706,73064,73073,71351 65771 ITEST 64435,64441,64443,64506 77461 IUPCM 63126,64447,66004 62461 L7777 61312,61322 71306 LASTL 71275 62445 LBCDA 62021 73214 LBLCW 73044 60753 LBLER 60720 62477 LC500 61341 73171 LCOMN 63110,63757,64211,65140,72246,72247,72251,72462 62675 LCTXT 61252,61331,61426,61447,62447 62553 LCZER 61073,61642 72322 LDATA 72326 73163 LDCMN 72057 61463 LESS6 71553 LIBLD 71322,71367,71421,71436,71444,71527 73173 LIBSW 63113,71747,72161,71317 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 11 POST PROCESSOR ASSEMBLY DATA 71556 LINCW 71303,71311 62510 LINPG 62155,62157,62175 71356 LINTS 71330,71331 65055 LISTC 65055,65114,65411 65221 LISTD 65077 65336 LISTE 65234 72763 LK1ER 72754 73220 LKRCW 72665,73216 71554 LLFLG 71320,71531,71566 71715 LLIST 73667,71716,72425,72435,72436 73215 LNKCW 72704,72743 71221 LNKID 71254,71260 72430 LNMSP 72424 72017 LOSYM 63042,63063 62463 LOWBL 61103,61212,63004 71404 LSA1A 71407,71411 71563 LSA1B 71405 71431 LSBB1 71456,71457 71370 LSTRV 71371,71376,71420 62624 LSWRD 61065,61133,61253,61254,61320,61327,61452,61463,61514,61524,61540,61545,61564,61600,61612,61621,61666 61702,61704,61711,61723,61734,61765,61774,62003,62005 63136 L(10) 63273,63347,63355,64073,64577,64620 65450 L(12) 72605 L(1T) 73126 64021 L(36) 64071 65737 L(IF) 64605 61215 MAINP 61224 66224 MAINW 65011 61236 MAKEN 61217,61231 73450 MCHTP 73510 63143 MINUS 63255,63705,64657 73155 MMSNG 72433,71565 71544 MSNGR 71532 73174 MULPC 63111,71777,72020,72143,72272,72302,72347,72772,73510,73532,71365,71446,71462 62651 NAMES 61023,61242,61250,61301,61356,61374 73101 NBBCD 73575 NDBSS 73535 71270 NDBUF 71270,71214 61220 NEWSP 61047,61215 62 NMMSP 73667,72430,71565 62011 NOBLK 60730,61055,61177,61225 73444 NOISR 73510 73443 NOISW 72521,73510 73137 NOPRG 72450 62600 NOWRD 61333,61342,61405,62446 5 NPUTA 73667 7 NSPCH 63126,65345 64003 NSTBA 63777 64006 NSTBC 63771 64007 NSTBD 64015 64013 NSTBE 64007 64023 NSTBF 310 NTHUN 73667, 3734,61026,61027,62676,62677,62700,62701,62702,62703,62704,62705,62706,62707,62710,62711,62712 62713,62714,62715,62716,62717,62720,62721 72406 NXTVC 72444 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 12 POST PROCESSOR ASSEMBLY DATA 73106 NXTWD 73117 65610 ODMPA 65631 65614 ODMPC 65573 71214 ORGLS 62167 OUTCM 62154,62163 61262 OUTPR 61041 6 OUTPT 73667 61317 OVFLW 61305 61301 OVFPR 61313 72445 PASS2 72371,72376,72400 73157 PDOVL 63760,64212,65141,72253 64115 PLIST 63700,64123,64636,64677 63145 POINT 63255,63310 73006 POSB4 73447 POSER 72533,72556,73510 72160 PPRCD 73515 72143 PRCD0 73516 72147 PRCD1 72154 72153 PRCD2 72306 72304 PRCD3 72151 62554 PREWD 61024,61064,61067,61070,61076,61134,61317 62170 PRGCN 61020,61441,62161 73225 PRMSK 72234,72304,72377,72410 73161 PTOVL 63755,65136,72232,72261 64466 QTEST 64457,64474 71346 RDBLK 71332 73060 RDERR 71760 60715 RDLBL 60650 71333 RDLIB 71750,71361 72742 RDLK1 72737,72740,72741,72750,72762,72765 73043 RDNDM 73047 62106 RDTPE 60727,61035,61077,61206,61260 71757 RDTPN 71734,71741,71744,72773,73060,73134,71324 63056 REINT 63026 72724 REWCH 72720,72733 73213 REWND 72700,72725,71233,71514 64044 RGHTA 65017,65072,65657 61077 SAMUL 61104 73523 SAV8L 72022 66222 SIGCL 65105,65107 62142 SKLST 62121,62137 63016 SKPBS 63006 61206 SKPCN 61114,61213,61261,61264,61272,61275 73206 SKPCW 73007,73041,71244,71541 73040 SKPFI 73052 72346 SKPPR 73534,71450 73207 SKRCW 63017,72215,72565,72654,73210 66170 SLASH 65266,65300,65423 73203 SNAME 64326,65007,65010,72031,72166,73147 73324 SPACE 72577,73331 62650 SPCNT 61034,61106,61237,61251,61306,61326,61336,61353,61364,61413 60727 START 61043 72504 STAT1 72502 72511 STAT2 72564 72516 STAT3 72501,72523,72525 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 13 POST PROCESSOR ASSEMBLY DATA 72522 STAT4 72505 72525 STAT5 72530 72527 STAT6 72506 72531 STAT7 72545 STAT8 72551 72552 STAT9 72542 70727 STBLE 63522,63535,63545,65162,65166,65210,66676,72173 64311 STENT 63041,72017 65220 STNME 65173,72167 61443 STORE 61060,61174,61202,61311,61321 63521 STSCH 63644,64357,65066,65526,65654 62503 STSTI 73142 SUMNG 72045,73164 72046 SUMOK 72036 64307 SYMSW 64150,64311,64313,65164,65215 64310 S(AC) 64154,64317,65214 62472 TAB77 61051,61101,61135,61146,61210 62473 TAGMK 61330 72363 TDBLP 72777 62204 TITLA 61263 62213 TITLB 61266,61277 62225 TITLD 61271 62236 TITLE 61274 62247 TITLG 61257 62261 TITLH 61302,61304 62322 TITLI 61440 62330 TITLZ 61113 62722 TLOUT 60743 73451 TMPR1 72647,72653,72661,73510 73240 TMSK1 72231 64070 TOBCD 65227,65264,65315,65417 61442 TOHEF 72467 TOPR1 63107,72757 72567 TOPR2 63125 72455 TOPRG 72452 73123 TOSIN 73141,73154,73156,73160,73162 73442 TOTRD 73510 73446 TOTRR 73510 73445 TOTRW 72526,73510 73441 TOTWT 72517,72536,72545,73510 61004 TP7R8 60656,60661,60664 73141 TRASO 71546 64145 TROP2 64155,72620 66600 TSPCH 63671,65350 64313 TSSWT 72006,72026,72366 72016 TSTPC 71776 72032 TSTSK 72003 73177 WDCNT 71771,71772,72046,72107 72721 WEFCH 72732,72734 0 WHICH 0 62147 WRITE 61112,61256,61262,61265,61270,61273,61276,61303,61351,61360,61437,62124,62722 72702 WTLKN 72674,72707 72672 WTLKS 72670 71270 WTLS1 71550 60654 WTNDM 60675 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 14 POST PROCESSOR ASSEMBLY DATA 72705 WTTPN 72672 66643 XLPAR 65000,65716 63713 YESNO 64722,64741,64755 61020 ZEOUT 60672,60737 60752 ZPCBK 60747 60745 ZSCHN 60724 73576 1STCHN 60651,60725,60726,72736,72761,73535 65747 ABLANK 64052 72127 ABSCD1 72132 72130 ABSCD2 72126 73224 ALL7NS 73051 65746 BLANKS 63230,63762,64016,64065,65310 73600 BOTIOP 60640,63077,63105,63117,63122,63123,63124,73535 3734 BOTTOM 3734,63027,63043,63053,63064,73667,71720,72664,73166,71572 66553 BPCALT 65032 66577 BPCMDP 65447 64304 BPSWT1 64164 64305 BPSWT2 64170 61007 BSFCWF 60663,60700,60707 61011 BSRCWF 60762,61000 73453 BUF1CW 73071 73416 BUF2CW 71756 73205 BUFPOS 71752,71754,72043,72113,72157,72267,71355,71455 34 BUFSIZ 73667,71753,73416,73417,73453,73454 63204 C 160X 63714,65644 63167 C 180X 63655,64545,64557 63554 CERASA 63531,63611 63556 CERASB 63551 63570 CERASC 63564,63566 63531 CERASE 64344 10 CHNTAP 73667,60701,60717,62114,62116,62122,72726 63126 CHSAVE 63255,63272,63334,63354 64557 CNTCRA 64552 64564 CNTCRB 64556 66554 CNTOUT 65024,65047 73024 COMNT1 73015 63740 COMPLE 63751,64165,64171,64600,64773,65033,65046,65332,65451,65725 73265 COMST1 72472 73310 COMST2 72561 73577 CURCHN 60721,60774,61012,72666,72760,73050,73214,73215,73535,71251,71255 3732 DATEBX 63262 DECPNT 64637,64702 61265 DELTPR 61062 66114 EFNTAG 64361,64415 71716 ENTBSS 63114 2 FINTAP 60760 FIXB4F 60753 3730 FLAGBX 62300 GTITLG 61352 62317 HTITLH 61357,61361 65754 IITEST 64441 63110 IOPDON 63076 134 .CHEXI 135 .MODSW 61012 LBLCWF 60716,60770 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 15 POST PROCESSOR ASSEMBLY DATA 65750 LCLAM1 64456 65751 LCLAM2 64462 66012 LCOMMN 63577,63610,64450,65374,72245 66007 LCOMPC 63536,63575,65367,65371,65551,72240 30 LIBSIZ 73667,70630,71343,71344,71345,71364 1 LIBTAP 3731 LINECT 73021,73023 65013 LISTAB 65312 LISTDA 65276 65326 LISTDB 65313 65752 LLDQM3 64467 65753 LLDQM4 64473 66000 LPROGD 63544 63540 L(ADD) 64664 66147 L(CNI) 64523,64524,64525,64566,64567,64571,64574,64601 66146 L(STR) 64500 63574 L(SUB) 64666 66145 L(TR2) 64514 7 MBNTAP 60710,60714,60763,60766,60771,60772,61001,73010,73037,73042,73045,73046,73055 10 MCHTAP 5 MINTAP 62132,62134,62140,71757,71765,73072,73074,73521 6 MLSTAP 62164,62173,73020,71265,71304,71312 63420 MS9500 63373,63405,63430 63320 MS9506 73510 NDBSS1 73510 765 NDTBLS 73667,61031,61032,62477 764 NEDBTB 63126,70731 317 NEFMTT 63126,63764,65263,65430,66235 1750 NESYTB 63126,65205,66757 65762 NOADDC 64443,64506 73233 NOSTOF 72570,73014 73232 NOSTON 72467,72567,73024 64017 NSTBEA 63765 72416 NXTNAM 72422 71716 ORGBSS 3734 ORIGIN 64145,64156,64161,66545,66547,71572 73514 PATCH2 72142 73530 PATCH3 72155 73510 PATCH5 72204 63605 PATCHB 63560 66675 PATCHD 65174 73167 PBREAK 63600,63623,64341,65157,71572 3733 PRCBRK 60752,73667,72461,72463,72746,73220 72327 PROGRM 72321 60767 RDNDMF 60773 65771 RESIDU 63152,63164 65211 RESTOR 64151,64152,64153,64213,64314,64315,64316,65165,65167,65170,65204,65205 63255 ROYCNV 63256,64622 63255 ROYCVN 63256,64676 63117 SAVIOP 63102,63106 72423 SAVNME 72421 3 SINTAP 61010 SKPCWF 60713,60765 60764 SKPFIF 60776 61270 SKPPRF 61120 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 16 POST PROCESSOR ASSEMBLY DATA 11 SNPTAP 63631 STAARN 63621 72553 STAT10 72503,72531 72556 STAT11 72563 STAT12 72541 72564 STAT13 72507 72561 STAT16 72434 STONAM 72426 66017 SWTBLE 60642,64175,64413,64477,64505,64507,64510 66101 SWTBLN 64146,64173,64375,64406,64512 122 SYSACC 114 SYSCEM 155 SYSCK1 156 SYSCK2 120 SYSCOR 144 SYSCRD 102 SYSCUR 102 124 SYSCYD 101 SYSDAT 115 SYSDMP 77777 SYSEND 132 SYSGET 117 SYSIDR 151 SYSIN1 152 SYSIN2 116 SYSIOX 133 SYSJOB 104 SYSKEY 140 SYSLB1 141 SYSLB2 142 SYSLB3 143 SYSLB4 121 SYSLDR 3720 SYSORG 147 SYSOU1 150 SYSOU2 146 SYSPCH 123 SYSPID 106 SYSPOS 153 SYSPP1 154 SYSPP2 145 SYSPRT 103 SYSRET 113 SYSRPT 126 SYSSLD 105 SYSSWS 1 SYSTAP 63020,72575,72611,72713,71231,71245,71521,71542 127 SYSTCH 100 SYSTRA 131 SYSTWT 111 SYSUAV 110 SYSUBC 112 SYSUCW 107 SYSUNI 157 SYSUT1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 17 POST PROCESSOR ASSEMBLY DATA 160 SYSUT2 161 SYSUT3 162 SYSUT4 6 TAPOUT 63126,66552 72155 TESTPC 73531 4 TINTAP 72744 72444 TIXVEC 72411,72431,72437 77677 TOPMEM 63074,65750,65751,65752,65753,72633,72636,72637,72640,73170,73171 65164 TSYMSW 64321,64333 66016 UCOMMN 63534,63541,63542,63604,63607,63702,65514 61351 WHOAPR 61345 702 (ACTIV 703 (ACTVX 720 (BCD5R 73145 721 (BCD5X 10000 (CHKU) 72602,72756,71336 741 (CHPSW 724 (CHXAC 750 (CHXSP 717 (CKWAT 746 (COMMD 736 (COMMM 722 (CVPRT 73662 (DATE) 716 (DECVA 715 (DECVD 73645 (DGLD) 73603 (DIAG) 710 (ENBSW 73665 (ENDS) 732 (ETTXI 743 (FDAMT 73660 (FGBX) 60646,60666,60756,61017,62107,62145,63004,63021,71731,72004,72024,72160,72364,72455,72464,72566,72604 73003,73127,71224,71242,71477 747 (IBCDZ 740 (IOXSI 73667 (LBLD) 71267 73652 (LIBT) 71225,71234,71323,71350,71511,71515,71525,71535,71536 73661 (LNCT) 62147,62151,71314,71315 73600 (LOAD) 63012,72453,72715 73666 (LODR) 73666 737 (LTPOS 73644 (MECL) 60734,60744,60754,73136 73664 (MSLN) 60645 704 (NDATA 705 (NDSLX 712 (PAUSE 711 (PAWSX 3733 (PCBK) 73651 (PGCT) 62174 73614 (PNCH) 73611 (PRNT) 72576,73030 706 (PROUT 707 (PUNCH 40014 (RBEC) 60770,73044 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 2/07/05 PAGE 18 POST PROCESSOR ASSEMBLY DATA 40004 (RBEP) 71756,71347 40010 (RBNC) 60716,72743 40000 (RBNP) 727 (RCHXI 726 (RCTXI 40016 (RDEC) 62113,62131,73071 40006 (RDEP) 40012 (RDNC) 40002 (RDNP) 73622 (REST) 73672 (SCHU) 60702,60772,62116,62134,71742,71765,72751,73046,73074,71326 744 (SDCXI 73643 (SECL) 62724,73130 20010 (SKBC) 60700 20000 (SKBP) 60663,60707,60713,60762,60765,61000,63017,72574,72610,72700,72712,72725,73007,73036,73041,73054,71230 71233,71244,71514,71520,71524,71534,71541 20012 (SKDC) 20002 (SKDP) 62121,62137,73520 1000 (SNAP) 73663 (SNCT) 73617 (STAT) 72500 745 (STCXI 73626 (STDN) 723 (STOPD 713 (STOPX 10003 (SUAV) 72615 10002 (SUNV) 714 (SYMUN 72554 73606 (TAPE) 60654,60657,60662,60677,60706,60712,60715,60761,60764,60767,60777,62112,62120,62130,62136,62162,62171 63016,71755,72573,72601,72607,72614,72677,72703,72711,72721,72724,72742,72755,72767,73006,73016,73035 73040,73043,73053,73070,73132,73517,71227,71232,71243,71263,71302,71310,71335,71346,71513,71517,71523 71533,71540 730 (TCOXI 733 (TEFXI 4000 (TPER) 72770,73133 735 (TRAPS 734 (TRAPX 731 (TRCXI 742 (TRPSW 725 (URRXI 40011 (WBNC) 72704 40001 (WBNP) 60660 40013 (WDNC) 62163,62172,73017,71303,71311 40003 (WDNP) 71264 40015 (WEFC) 40005 (WEFP) 60655,72722 40031 (WROW) NO ERROR IN ABOVE ASSEMBLY. * 32K 709/7090 FORTRAN MONITOR MACHINE ERROR RECORD F0J00010 * FAP F0J00030 32K 709/7090 FORTRAN MONITOR MACHINE ERROR RECORD 2/07/05 PAGE 1 ABS $F0J00070 SST FORTRAN $F0J00071 00102 ORG SYSCUR $F0J00080 BINARY CARD NO. 9F100000 00102 112601000000 BCI 1,9F1000 $F0J00090 73666 ORG (LODR) $F0J00091 BINARY CARD NO. 9F100001 73666 1 00144 0 03734 TXI BOTTOM,,100 F0J00100 03734 ORG BOTTOM F0J00130 BINARY CARD NO. 9F100002 03734 0441 60 0 73660 LDI* (FGBX) $F0J00170 03735 0020 00 0 05254 TRA SNORTY (26)F0J00180 03736 0 00000 0 00000 PZE NOT USED $F0J00190 03737 -0760 00 0 00142 SLT 2 IS THIS MONITOR. F0J00200 03740 0020 00 0 03742 TRA *+2 NO. F0J00210 03741 0020 00 0 04264 TRA MON YES. F0J00220 03742 -0760 00 0 00143 SLT 3 IS THIS XEM. F0J00230 03743 0020 00 0 03745 TRA *+2 NO. F0J00240 03744 0020 00 0 04337 TRA XEM YES. F0J00250 03745 0074 00 4 73611 ME713 TSX (PRNT),4 PRINT OPTION TO RERUN. (26)F0J00300 03746 0 00012 0 04635 PZE COM3,,10 RESTORE, OR DELETE. F0J00310 03747 0074 00 4 73611 TSX (PRNT),4 F0J00320 03750 0 00024 0 04647 PZE COM3A,,20 F0J00330 03751 0074 00 4 73611 TSX (PRNT),4 (31)F0J00340 03752 0 00014 0 04673 PZE COM4,,12 (31)F0J00350 03753 0074 00 4 73611 TSX (PRNT),4 RESTORE PRINTER PAGE. F0J00360 03754 0 00003 0 05044 PZE RESTO,,3 F0J00370 03755 0074 00 4 00712 TSX (PAUSE,4 SYSTEM PAUSE $F0J00380 03756 0760 00 0 00004 ENK IS RESTORE MEMORY (31)F0J00390 03757 0131 00 0 00000 XCA INDICATED. (31)F0J00400 03760 0734 00 1 00000 PAX ,1 (31)F0J00410 03761 -3 77776 1 04322 TXL ME13,1,-2 NO (31)F0J00420 BINARY CARD NO. 9F100003 03762 0074 00 4 73645 ME7 TSX (DGLD),4 YES RESTORE MEMORY AND HALT. (31)F0J00430 03763 0074 00 4 73606 ME10 TSX (TAPE),4 NO, RETRY. F0J00550 03764 -0 20000 0 05144 MZE SK1FL,,(SKBP) F0J00560 03765 -0 00001 0 00000 MZE ,,SYSTAP F0J00570 D 03766 0074 01 4 73600 TSX (LOAD),4,1 READ IN SECTION ONE. $F0J00580 03767 112601030000 BCI 1,9F1300 $F0J00590 03770 0760 00 0 00141 FAP SLN 1 TURN ON SENSE LIGHT 1 FOR LATER SIGNAL. F0J00600 03771 0074 00 4 73611 TSX (PRNT),4 PRINT OPTION TO RETRY. F0J00610 03772 0 00012 0 04722 PZE COM13,,10 ASSEMBLY OR TO DELETE IT. F0J00620 03773 0074 00 4 73611 TSX (PRNT),4 F0J00630 03774 0 00012 0 04734 PZE COM13+10,,10 F0J00640 03775 0074 00 4 73611 TSX (PRNT),4 F0J00650 03776 0 00015 0 04746 PZE COM13+20,,13 F0J00660 03777 0074 00 4 73611 TSX (PRNT),4 RESTORE PRINTER PAGE. F0J00670 04000 0 00003 0 05044 PZE RESTO,,3 F0J00680 04001 0074 00 4 00712 TSX (PAUSE,4 SYSTEM PAUSE $F0J00690 04002 0760 00 0 00004 ENK CHECK OPTION CHOSEN. F0J00700 04003 0162 00 0 04112 TQP ME4RT RETRY. F0J00710 04004 0074 00 4 73606 MEDL TSX (TAPE),4 WRITE -ASSEMBLY DELETED- (26)F0J00720 32K 709/7090 FORTRAN MONITOR MACHINE ERROR RECORD 2/07/05 PAGE 2 04005 0 40013 0 05041 PZE ME4I3,,(WDNC) ON OUTPUT TAPE. F0J00730 04006 -0 00006 0 00000 MZE ,,MLSTAP F0J00740 04007 0074 00 4 73606 TSX (TAPE),4 F0J00750 BINARY CARD NO. 9F100004 04010 0 40013 0 05042 PZE IOCM1,,(WDNC) F0J00760 04011 -0 00006 0 00000 MZE ,,MLSTAP F0J00770 04012 0074 00 4 73611 TSX (PRNT),4 ALSO PRINT ON-LINE. F0J00780 04013 0 00003 0 04763 PZE COM14,,3 F0J00790 04014 0020 00 0 05206 TRA PATCH1 ERROR MAY BE AT 1ST RECORD AFTER FAP CARD *F0J00800 04015 0761 00 0 00000 NOP *F0J00810 04016 0074 00 4 73606 ME4DA TSX (TAPE),4 DELETE ASSEMBLY BY F0J00820 04017 -0 20002 0 05051 MZE BSR1,,(SKDP) F0J00830 04020 -0 00005 0 00000 MZE ,,MINTAP F0J00840 04021 0074 00 4 73606 ME4SP TSX (TAPE),4 SCANNING TO FAP END CARD OR EOF OR BINARY F0J00850 04022 -0 40012 0 05130 MZE ME4I4,,(RDNC) RECORD ON INPUT TAPE. F0J00860 04023 -0 00005 0 00000 MZE ,,MINTAP F0J00870 04024 -0 00000 0 04077 MZE TAER F0J00880 04025 0560 00 0 05237 LDQ ME4WD F0J00890 04026 -0754 00 0 00000 ZAC F0J00900 04027 -0763 00 0 00006 LGL 6 F0J00910 04030 0402 00 0 05140 SUB ME4AS F0J00920 04031 0100 00 0 04021 TZE ME4SP END CARD MUST NOT HAVE * IN C.C. 1. F0J00930 04032 -0500 00 0 05240 CAL ME4WD+1 F0J00940 04033 0322 00 0 05136 ERA ME4EN F0J00950 04034 -0320 00 0 05137 ANA ME4MS F0J00960 04035 -0100 00 0 04021 TNZ ME4SP F0J00970 BINARY CARD NO. 9F100005 04036 0020 00 0 04046 TRA SCAN F0J00980 04037 0074 00 4 73606 ME4BI TSX (TAPE),4 TRY ONCE IN BINARY MODE. F0J00990 04040 -0 40010 0 05130 MZE ME4I4,,(RBNC) F0J01000 04041 -0 00005 0 00000 MZE ,,MINTAP F0J01010 04042 -0 00000 0 04105 MZE SK1R IF BAD, SKIP RECORD AND CONTINUE SEARCH. F0J01020 04043 0074 00 4 73606 ME4EJ TSX (TAPE),4 BACKSPACE ONCE, THEN F0J01030 04044 -0 20002 0 05051 MZE BSR1,,(SKDP) CALL IN MONITOR SCAN F0J01040 04045 -0 00005 0 00000 MZE ,,MINTAP F0J01050 04046 -0760 00 0 00141 SCAN SLT 1 IS THIS FAP. F0J01060 04047 0020 00 0 04055 TRA NOFAP NO. F0J01070 04050 0500 60 0 05220 CLA* BINT YES, REPOSITION MONITOR BINARY OUTPUT TAPE*F0J01080 04051 0621 00 0 05106 STA IOCOM1 F0J01090 04052 0074 00 4 73606 TSX (TAPE),4 F0J01100 04053 -0 20000 0 05106 MZE IOCOM1,,(SKBP) F0J01110 04054 -0 00007 0 00000 MZE ,,MBNTAP F0J01120 04055 0074 00 4 73606 NOFAP TSX (TAPE),4 WRITE -FAILED- CARD ON OUTPUT TAPE. F0J01130 04056 -0 40031 0 05155 MZE FAILD,,(WROW) F0J01140 04057 -0 00007 0 00000 MZE ,,MBNTAP F0J01150 04060 0441 60 0 73660 LDI* (FGBX) WAS EXECUTION ON. F0J01160 04061 0056 00 000200 RNT 200 F0J01170 04062 0020 00 0 04072 TRA RIS NO. F0J01180 04063 0074 00 4 73611 TSX (PRNT),4 YES. PRINT -EXECUTION DELETED-. F0J01190 BINARY CARD NO. 9F100006 04064 0 00004 0 05150 PZE EXDEL,,4 F0J01200 04065 0074 00 4 73606 TSX (TAPE),4 WRITE -EXECUTION DELETED-. F0J01210 04066 0 40013 0 05147 PZE WOTED,,(WDNC) F0J01220 32K 709/7090 FORTRAN MONITOR MACHINE ERROR RECORD 2/07/05 PAGE 3 04067 -0 00006 0 00000 MZE ,,MLSTAP F0J01230 04070 0057 00 000200 RIR 200 TURN OFF EXECUTION BIT. F0J01240 04071 0604 60 0 73660 STI* (FGBX) F0J01250 04072 0074 00 4 73606 RIS TSX (TAPE),4 POSITION SYSTEM TAPE TO SCAN. F0J01260 04073 -0 20000 0 05052 MZE BSR5,,(SKBP) F0J01270 04074 -0 00001 0 00000 MZE ,,SYSTAP F0J01280 D 04075 0074 01 4 73600 TSX (LOAD),4,1 READ IN SCAN. $F0J01290 04076 112600060000 BCI 1,9F0600 $F0J01291 04077 -0500 00 0 73672 TAER CAL (SCHU) TAPE ERROR. IS IT REDUNDANCY. F0J01300 04100 -0320 00 0 05050 ANA REDUN F0J01310 04101 -0100 00 0 04037 TNZ ME4BI F0J01320 04102 -0500 00 0 73672 CAL (SCHU) IS IT END OF FILE. F0J01330 04103 -0320 00 0 05047 ANA EOF F0J01340 04104 -0100 00 0 04043 TNZ ME4EJ F0J01350 04105 0074 00 4 73606 SK1R TSX (TAPE),4 SKIP ONE RECORD. F0J01360 04106 -0 20002 0 05142 MZE L(1),,(SKDP) F0J01370 04107 -0 00005 0 00000 MZE ,,MINTAP F0J01380 04110 -0 00000 0 04111 MZE *+1 ELIMINATE ON-LINE MESSAGE. F0J01390 04111 0020 00 0 04021 TRA ME4SP F0J01400 BINARY CARD NO. 9F100007 04112 0074 00 4 73611 ME4RT TSX (PRNT),4 RETRY ASSEMBLY. F0J01410 04113 0 00003 0 04766 PZE COM15,,3 F0J01420 04114 0074 00 4 73611 TSX (PRNT),4 DOUBLE SPACE ON PRINTER. F0J01430 04115 0 00003 0 04717 PZE COM9,,3 F0J01440 04116 0074 00 4 73611 TSX (PRNT),4 DOUBLE SPACE ON PRINTER. F0J01450 04117 0 00003 0 04717 PZE COM9,,3 F0J01460 04120 0074 00 4 73606 TSX (TAPE),4 WRITE -ASSEMBLY RETRIED-. *F0J01470 04121 -0 40013 0 05131 MZE ME4I6,,(WDNC) F0J01480 04122 -0 00006 0 00000 MZE ,,MLSTAP F0J01490 04123 0074 00 4 73606 TSX (TAPE),4 F0J01500 04124 -0 40013 0 05132 MZE ME4F,,(WDNC) F0J01510 04125 -0 00006 0 00000 MZE ,,MLSTAP F0J01520 04126 0074 00 4 73606 TSX (TAPE),4 F0J01530 04127 -0 40013 0 05133 MZE ME5F,,(WDNC) F0J01540 04130 -0 00006 0 00000 MZE ,,MLSTAP F0J01550 04131 0560 00 0 05250 LDQ JOBSAV RESTORE SYSJOB SINCE THERE IS $F0J01560 04132 -0600 00 0 00133 STQ SYSJOB A NEGLIGIBLE CHANCE OF SUCCESS $F0J01561 04133 0020 00 0 04137 TRA GET1-2 $F0J01562 04134 0560 00 0 05250 ME27 LDQ JOBSAV RESTORE SYSJOB BEFORE $F0J01563 04135 -0600 00 0 00133 STQ SYSJOB RETRYING FORTRAN JOB $F0J01564 04136 0020 00 0 04312 TRA ME27A $F0J01565 04137 -0534 00 2 03725 LXD BOTTOM-7,2 PICK UP NO. OF TAPES TO BE REPOSITIONED. $F0J01566 BINARY CARD NO. 9F100008 04140 -3 00002 2 04151 TXL INPTA,2,2 F0J01570 04141 0500 60 0 05053 GET1 CLA* ENDPAR PICK UP PARAMETERS (NO. RECS.,,LOG. TAPE) F0J01580 04142 0100 00 0 04150 TZE PARM1+1 F0J01590 04143 0621 00 0 05106 STA IOCOM1 F0J01600 04144 0622 00 0 04147 STD PARM1 F0J01610 04145 0074 00 4 73606 TSX (TAPE),4 F0J01620 04146 -0 20002 0 05106 MZE IOCOM1,,(SKDP) F0J01630 04147 -0 00000 0 00000 PARM1 MZE ,,** F0J01640 04150 1 77777 2 04140 TXI GET1-1,2,-1 F0J01650 04151 0500 60 0 05053 INPTA CLA* ENDPAR F0J01660 04152 0621 00 0 05106 STA IOCOM1 F0J01670 32K 709/7090 FORTRAN MONITOR MACHINE ERROR RECORD 2/07/05 PAGE 4 04153 0074 00 4 73606 TSX (TAPE),4 REPOSITION MONITOR BINARY OUTPUT TAPE. F0J01680 04154 -0 20000 0 05106 MZE IOCOM1,,(SKBP) F0J01690 04155 -0 00007 0 00000 MZE ,,MBNTAP F0J01700 04156 1 77777 2 04157 TXI *+1,2,-1 F0J01710 04157 0500 60 0 05053 CLA* ENDPAR F0J01720 04160 -0320 00 0 05077 ANA MASK F0J01730 04161 -0340 00 0 05076 LAS LARGE F0J01740 04162 0020 00 0 04260 TRA SKFOR INPUT TAPE IS POSITIONED BEFORE FAP CARD. F0J01750 04163 0020 00 0 04164 TRA *+1 F0J01760 04164 0621 00 0 05106 STA IOCOM1 TAPE IS AFTER *FAP CARD. BACKSPACE UNTIL F0J01770 04165 0074 00 4 73606 TSX (TAPE),4 IT IS IN FRONT OF THE *FAP CARD. F0J01780 BINARY CARD NO. 9F100009 04166 -0 20002 0 05106 MZE IOCOM1,,(SKDP) F0J01790 04167 -0 00005 0 00000 MZE ,,MINTAP F0J01800 04170 0774 00 2 00031 AXT 25,2 F0J01810 04171 -3 00000 2 04244 READX TXL ENCT,2,0 DO NOT SEARCH MORE THAN 25 EXTRA RECORDS. F0J01820 04172 0074 00 4 73606 TSX (TAPE),4 READ MONITOR INPUT TAPE FOR CONTROL F0J01830 04173 -0 40012 0 05107 MZE ICOM2,,(RDNC) CARDS, ONE CARD AT A TIME. F0J01840 04174 -0 00005 0 00000 MZE ,,MINTAP F0J01850 04175 -0 00000 0 04176 MZE *+1 F0J01860 04176 0560 00 0 05112 LDQ BUFF IS CARD AN * CARD. F0J01870 04177 -0754 00 0 00000 ZAC F0J01880 04200 -0763 00 0 00006 LGL 6 F0J01890 04201 0402 00 0 05104 SUB ASTER F0J01900 04202 0100 00 0 04204 TZE MONCC AN *-CARD IS FOUND. F0J01910 04203 1 77777 2 04252 TXI READIN,2,-1 A NON-* CARD, TRY NEXT CARD. F0J01920 04204 0774 00 4 00013 MONCC AXT 11,4 F0J01930 04205 0560 00 4 05126 WORD LDQ BUFF+12,4 F0J01940 04206 0774 00 1 00006 AXT 6,1 SET UP INDEXING FOR SIX CHARACTER SCAN. F0J01950 04207 -0754 00 0 00000 CHAR ZAC F0J01960 04210 -0763 00 0 00006 LGL 6 F0J01970 04211 -0340 00 0 05103 LAS BLANK F0J01980 04212 0020 00 0 04214 TRA *+2 F0J01990 04213 0020 00 0 04234 TRA BLNK F0J02000 BINARY CARD NO. 9F100010 04214 0520 00 0 05074 ZET FCELL HAS AN 'F' BEEN FOUND. F0J02010 04215 0020 00 0 04222 TRA TRYA YES. F0J02020 04216 -0340 00 0 05100 LAS F F0J02030 04217 1 77777 2 04252 TXI READIN,2,-1 F0J02040 04220 0020 00 0 05070 TRA FFOUND 'F' HAS BEEN FOUND. F0J02050 04221 1 77777 2 04252 TXI READIN,2,-1 F0J02060 04222 0520 00 0 05075 TRYA ZET ACELL F0J02070 04223 0020 00 0 04230 TRA TRYP F0J02080 04224 -0340 00 0 05101 LAS A F0J02090 04225 1 77777 2 04252 TXI READIN,2,-1 F0J02100 04226 0020 00 0 05072 TRA AFOUND 'A' HAS BEEN FOUND. F0J02110 04227 1 77777 2 04252 TXI READIN,2,-1 F0J02120 04230 -0340 00 0 05102 TRYP LAS P F0J02130 04231 1 77777 2 04252 TXI READIN,2,-1 F0J02140 04232 0020 00 0 04237 TRA POSSYS F0J02150 04233 1 77777 2 04252 TXI READIN,2,-1 F0J02160 04234 2 00001 1 04207 BLNK TIX CHAR,1,1 TRY NEXT CHARACTER. F0J02170 04235 2 00001 4 04205 TIX WORD,4,1 TRY NEXT WORD. F0J02180 04236 1 77777 2 04252 TXI READIN,2,-1 TRY NEXT WORD. F0J02190 32K 709/7090 FORTRAN MONITOR MACHINE ERROR RECORD 2/07/05 PAGE 5 04237 0074 00 4 73606 POSSYS TSX (TAPE),4 POSITION SYSTEM TAPE TO FAP, RECORD 4. F0J02200 04240 -0 20000 0 05111 MZE BS7R,,(SKBP) F0J02210 04241 -0 00001 0 00000 MZE ,,SYSTAP F0J02220 BINARY CARD NO. 9F100011 D 04242 0074 01 4 73600 TSX (LOAD),4,1 READ IN FAP . $F0J02230 04243 112600040000 BCI 1,9F0400 $F0J02231 04244 0074 00 4 73606 ENCT TSX (TAPE),4 CAN NOT FIND ANY * CARDS. DELETE ASSEMBLY.F0J02240 04245 -0 40013 0 05054 MZE TAPERR,,(WDNC) F0J02250 04246 -0 00006 0 00000 MZE ,,MLSTAP F0J02260 04247 0074 00 4 73611 TSX (PRNT),4 F0J02270 04250 0 00013 0 05055 PZE TPERR,,11 F0J02280 04251 0020 00 0 04016 TRA ME4DA F0J02290 04252 0074 00 4 73606 READIN TSX (TAPE),4 BACKSPACE OVER THE MONITOR INPUT TAPE F0J02300 04253 -0 20002 0 05110 MZE IOCOM3,,(SKDP) TWO RECORDS. F0J02310 04254 -0 00005 0 00000 MZE ,,MINTAP F0J02320 04255 0600 00 0 05074 STZ FCELL INITIALIZE CELLS FOR *FAP CARD SEARCH. F0J02330 04256 0600 00 0 05075 STZ ACELL F0J02340 04257 0020 00 0 04171 TRA READX F0J02350 04260 0074 00 4 73606 SKFOR TSX (TAPE),4 F0J02360 04261 -0 20002 0 05105 MZE FRDSKP,,(SKDP) F0J02370 04262 -0 00005 0 00000 MZE ,,MINTAP F0J02380 04263 0020 00 0 04170 TRA READX-1 F0J02390 F0J02400 04264 -0500 00 0 05141 MON CAL DLETEX ERROR IN MONITOR. F0J02410 04265 0441 60 0 73660 LDI* (FGBX) F0J02420 04266 0320 60 0 73660 ANS* (FGBX) DELETE EXECUTION. F0J02430 04267 0056 00 000200 RNT 200 WAS EXECUTION ON. F0J02440 BINARY CARD NO. 9F100012 04270 0020 00 0 04273 TRA ME26 NO. F0J02450 04271 0074 00 4 73611 TSX (PRNT),4 YES, PRINT -EXECUTION DELETED-. F0J02460 04272 0 00012 0 04623 PZE COM2,,10 F0J02470 04273 0074 00 4 73611 ME26 TSX (PRNT),4 PRINT RETRY OPTION. F0J02480 04274 0 00010 0 04775 PZE COM20,,8 F0J02490 04275 0074 00 4 73611 TSX (PRNT),4 PRINT CONTINUE OPTION. F0J02500 04276 0 00012 0 05005 PZE COM21,,10 F0J02510 04277 0074 00 4 73611 TSX (PRNT),4 PRINT DELETE OPTION. F0J02520 04300 0 00012 0 05017 PZE COM22,,10 F0J02530 04301 0074 00 4 73611 TSX (PRNT),4 RESTORE PRINTER PAGE. F0J02540 04302 0 00003 0 05044 PZE RESTO,,3 F0J02550 04303 0074 00 4 00712 TSX (PAUSE,4 SYSTEM PAUSE $F0J02560 04304 0760 00 0 00004 ENK CHECK OPTION CHOSEN. F0J02570 04305 0761 00 0 00000 NOP *F0J02580 04306 0162 00 0 04134 TQP ME27 MQ PLUS MEANS RETRY. F0J02590 04307 -0763 00 0 00002 LGL 2 BIT TWO PLUS MEANS F0J02600 04310 0162 00 0 04331 TQP ME23B CONTINUE SAME JOB. F0J02610 04311 0020 00 0 04315 TRA ME28 OTHERWISE DELETE JOB. F0J02620 04312 0074 00 4 73606 ME27A TSX (TAPE),4 BACKSPACE FILE ON INPUT TAPE $F0J02630 04313 -0 20000 0 05145 MZE BSF,,(SKBP) F0J02640 04314 -0 00005 0 00000 MZE ,,MINTAP F0J02650 04315 0074 00 4 73606 ME28 TSX (TAPE),4 POSITION SYSTEM TAPE TO SIGN ON. F0J02660 BINARY CARD NO. 9F100013 04316 -0 20000 0 05146 MZE BSR8,,(SKBP) F0J02670 04317 -0 00001 0 00000 MZE ,,SYSTAP F0J02680 32K 709/7090 FORTRAN MONITOR MACHINE ERROR RECORD 2/07/05 PAGE 6 D 04320 0074 01 4 73600 TSX (LOAD),4,1 READ IN SIGN ON. $F0J02690 04321 112600030000 BCI 1,9F0300 $F0J02691 04322 0760 00 0 00004 ME13 ENK IS DELETE INDICATED. F0J02700 04323 0162 00 0 05251 TQP NOGOQ NO,RETRY $F0J02710 04324 0074 00 4 73606 TSX (TAPE),4 WRITE DELETION MESSAGE ON TAPE. F0J02720 04325 0 40013 0 05154 PZE COMDL,,(WDNC) F0J02730 04326 -0 00006 0 00000 MZE ,,MLSTAP $F0J02740 04327 0074 00 4 73611 TSX (PRNT),4 F0J02750 04330 0 00010 0 05031 PZE COM23,,8 F0J02760 04331 0441 60 0 73660 ME23B LDI* (FGBX) F0J02770 04332 0054 00 100000 RFT 100000 IS THE BSS CONTROL BIT ON. F0J02780 04333 0020 00 0 04315 TRA ME28 YES, GO TO SIGN ON. F0J02790 04334 -0054 00 000001 LFT 1 $F0J02791 04335 0020 00 0 04315 TRA ME28 $F0J02792 04336 0020 00 0 04046 TRA SCAN NO, GO TO SCAN. F0J02800 F0J02810 04337 -0500 00 0 03721 XEM CAL BOTTOM-11 ENTRY FROM XEM. PUT $F0J03030 04340 -0320 00 0 04436 ANA MASK1 ERROR F0J03040 04341 0765 00 0 00003 LRS 3 CODE F0J03050 04342 0771 00 0 00014 ARS 12 IN F0J03060 04343 0763 00 0 00003 LLS 3 FORM F0J03070 BINARY CARD NO. 9F100014 04344 0774 00 1 00007 AXT 7,1 TO $F0J03080 04345 0774 00 2 00000 AXT 0,2 COMPARE WITH TABLE F0J03090 04346 0402 00 2 04437 EX1 SUB TBL,2 OF MACHINE ERROR CODES. F0J03100 04347 0100 00 0 04354 TZE EX2 FOUND. F0J03110 04350 0400 00 2 04437 ADD TBL,2 F0J03120 04351 1 77777 2 04352 TXI *+1,2,-1 F0J03130 04352 2 00001 1 04346 TIX EX1,1,1 F0J03140 04353 0020 00 0 04315 TRA ME28 ERROR CODE NOT FOUND IN TABLE. F0J03150 04354 0500 00 2 04471 EX2 CLA CMT,2 SET RELEVANT COMMENT F0J03160 04355 0601 00 0 04510 STO MSG2 FOR OFF-LINE WRITE F0J03170 04356 0500 00 2 04500 CLA PRT,2 AND F0J03180 04357 0601 00 0 04417 STO EX3 ON-LINE PRINT. F0J03190 04360 0500 00 0 03722 CLA BOTTOM-10 CONVERT BINARY TAPE NUMBER $F0J03200 04361 0765 00 0 00011 LRS 9 TO BCD. F0J03210 04362 0402 00 0 05142 SUB L(1) F0J03220 04363 0737 00 1 00000 PAC 0,1 F0J03230 04364 0763 00 0 00005 LLS 5 F0J03240 04365 0754 00 0 00000 PXA 0,0 F0J03250 04366 0044 00 0 00000 PAI F0J03260 04367 0763 00 0 00004 LLS 4 F0J03270 04370 0402 00 0 05142 SUB L(1) F0J03280 04371 0737 00 2 00000 PAC 0,2 F0J03290 BINARY CARD NO. 9F100015 04372 -0500 00 1 04447 CAL LET,1 F0J03300 04373 0043 00 0 00000 OAI F0J03310 04374 -0500 00 2 04457 CAL NUM,2 F0J03320 04375 0043 00 0 00000 OAI F0J03330 04376 0604 00 0 04530 STI EXCOM2+10 STORE PHYSICAL F0J03340 04377 0604 00 0 04541 STI EXCOM3+7 TAPE NUMBER F0J03350 04400 0604 00 0 04556 STI EXCOM4+11 IN F0J03360 04401 0604 00 0 04565 STI EXCOM5+5 RELEVANT MESSAGES. F0J03370 04402 0074 00 4 73606 TSX (TAPE),4 WRITE EXECUTION DELETED F0J03380 32K 709/7090 FORTRAN MONITOR MACHINE ERROR RECORD 2/07/05 PAGE 7 04403 -0 40013 0 04507 MZE MSG1,,(WDNC) AND REASON FOR DELETION. F0J03390 04404 -0 00006 0 00000 MZE ,,MLSTAP F0J03400 04405 0074 00 4 73606 TSX (TAPE),4 F0J03410 04406 -0 40013 0 04510 MZE MSG2,,(WDNC) F0J03420 04407 -0 00006 0 00000 MZE ,,MLSTAP F0J03430 04410 0074 00 4 73606 TSX (TAPE),4 F0J03440 04411 -0 40013 0 04511 MZE MSG3,,(WDNC) F0J03450 04412 -0 00006 0 00000 MZE ,,MLSTAP F0J03460 04413 0500 60 0 73661 CLA* (LNCT) F0J03470 04414 0400 00 0 04446 ADD L(2) F0J03480 04415 0601 60 0 73661 STO* (LNCT) F0J03490 04416 0074 00 4 73611 TSX (PRNT),4 PRINT ON-LINE TOO. F0J03500 04417 0 00000 0 00000 EX3 PZE F0J03510 BINARY CARD NO. 9F100016 04420 0074 00 4 73611 TSX (PRNT),4 PRINT -EXECUTION TERMINATED...-. F0J03520 04421 0 00004 0 04512 PZE EXCOM1,,4 F0J03530 04422 0074 00 4 73611 TSX (PRNT),4 DOUBLE SPACE ON PRINTER. F0J03540 04423 0 00003 0 04717 PZE COM9,,3 F0J03550 04424 0074 00 4 73611 EX35 TSX (PRNT),4 PRINT OPTIONS (26)F0J03560 04425 0 00006 0 04600 PZE EXCOM7,,6 TO RETRY F0J03570 04426 0074 00 4 73611 TSX (PRNT),4 OR DELETE. F0J03580 04427 0 00011 0 04606 PZE EXCOM8,,9 F0J03590 04430 0074 00 4 73611 TSX (PRNT),4 RESTORE PRINTER PAGE. F0J03600 04431 0 00003 0 05044 PZE RESTO,,3 F0J03610 04432 0074 00 4 00712 TSX (PAUSE,4 SYSTEM PAUSE $F0J03620 04433 0760 00 0 00004 ENK F0J03630 04434 0162 00 0 04134 TQP ME27 RETRY. F0J03640 04435 0020 00 0 04315 TRA ME28 DELETE. F0J03650 04436 0 00000 7 77777 MASK1 PZE -1,7 F0J03680 04437 +000000000030 TBL DEC 24,25,40,41,42,49,50 $F0J03690 BINARY CARD NO. 9F100017 04446 0 00000 0 00002 L(2) PZE 2 F0J03700 04447 210000000000 LET BCI 8,A00000B00000C00000D00000E00000F00000G00000H00000 F0J03710 04457 006001606060 NUM BCI 9,0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 F0J03720 04470 000100606060 BCI 1,010 F0J03730 04471 3 00014 0 04516 CMT IORT EXCOM2,,12 F0J03740 04472 3 00011 0 04532 IORT EXCOM3,,9 F0J03750 04473 3 00015 0 04543 IORT EXCOM4,,13 F0J03760 BINARY CARD NO. 9F100018 04474 3 00007 0 04560 IORT EXCOM5,,7 F0J03770 04475 3 00007 0 04560 IORT EXCOM5,,7 F0J03780 04476 3 00011 0 04567 IORT EXCOM6,,9 $F0J03781 04477 3 00004 0 04617 IORT EXCOM9,,4 $F0J03782 04500 0 00014 0 04516 PRT PZE EXCOM2,,12 F0J03790 04501 0 00011 0 04532 PZE EXCOM3,,9 F0J03800 04502 0 00015 0 04543 PZE EXCOM4,,13 F0J03810 04503 0 00007 0 04560 PZE EXCOM5,,7 F0J03820 04504 0 00007 0 04560 PZE EXCOM5,,7 F0J03830 04505 0 00011 0 04567 PZE EXCOM6,,9 $F0J03831 04506 0 00004 0 04617 PZE EXCOM9,,4 $F0J03832 04507 3 00003 0 04717 MSG1 IORT COM9,,3 F0J03840 04510 0 00000 0 00000 MSG2 PZE F0J03850 04511 3 00004 0 04512 MSG3 IORT EXCOM1,,4 F0J03860 32K 709/7090 FORTRAN MONITOR MACHINE ERROR RECORD 2/07/05 PAGE 8 04512 602567252364 EXCOM1 BCI 4, EXECUTION TERMINATED. F0J03870 04516 603161466023 EXCOM2 BCI 9, I/O CHECK LIGHT TURNED ON BY LAST READ INSTRUCTION ON F0J03880 BINARY CARD NO. 9F100019 04527 606321472560 BCI 3, TAPE . F0J03890 04532 606060512524 EXCOM3 BCI 9, REDUNDANCY ENCOUNTERED IN READING TAPE . F0J03900 04543 606060606060 EXCOM4 BCI 9, I/O CHECK LIGHT TURNED ON BY LAST WRITE INSTRUCT F0J03910 BINARY CARD NO. 9F100020 04554 314645604645 BCI 4,ION ON TAPE . F0J03920 04560 606060606060 EXCOM5 BCI 7, REDUNDANCY WRITING TAPE . F0J03930 04567 606270626445 EXCOM6 BCI 9, SYSUNI OR SYSUAV FUNCTION NOT ASSIGNED AN I/O UNIT. $F0J03931 BINARY CARD NO. 9F100021 04600 606346605125 EXCOM7 BCI 6, TO RETRY THIS JOB, PUSH START. F0J03940 04606 606346602746 EXCOM8 BCI 9, TO GO TO NEXT JOB, DEPRESS SIGN KEY AND PUSH START. F0J03950 04617 603143432527 EXCOM9 BCI 4, ILLEGAL UNIT ASSIGNED. $F0J03951 04623 606060256725 COM2 BCD EXECUTION DELETED BECAUSE OF MACHINE ERROR. F0J03960 BINARY CARD NO. 9F100022 04635 606060634660 COM3 BCD TO RETRY THIS COMPILATION, PUSH START. F0J03970 04647 606060634660 COM3A BCD TO DELETE THIS COMPILATION AND CONTINUE JOB, DEPRESS SIGNF0J03980 BINARY CARD NO. 9F100023 04661 604225706021 BCD KEY AND PUSH START. F0J03990 04673 606060634660 COM4 BCI 6, TO RESTORE MEMORY AND HALT, DEPRE (31)F0J04000 BINARY CARD NO. 9F100024 04701 626260214343 BCI 6,SS ALL ADDRESS KEYS AND PUSH START. (31)F0J04010 04707 DUP 1,8 (31)F0J04013 04707 0 00000 0 00000 PZE (NOT USED) (31)F0J04016 04717 006060606060 COM9 BCI 3,0 F0J04020 04722 606060216262 COM13 BCD ASSEMBLY DELETED BECAUSE OF MACHINE ERROR F0J04030 BINARY CARD NO. 9F100025 04734 606060634660 BCD TO RETRY THIS ASSEMBLY, PUSH START F0J04040 04746 606060634660 BCD TO DELETE THIS ASSEMBLY AND CONTINUE JOB, DEPRESS SIGN KEF0J04050 BINARY CARD NO. 9F100026 04760 706021452460 BCI 3,Y AND PUSH START F0J04060 04763 002162622544 COM14 BCI 3,0ASSEMBLY DELETED F0J04070 04766 002162622544 COM15 BCI 3,0ASSEMBLY RETRIED F0J04080 04771 222523216462 COM16 BCI 4,BECAUSE OF MACHINE ERROR F0J04090 04775 606346605125 COM20 BCI 8, TO RETRY JOB, PUT ALL KEYS UP AND PUSH START. F0J04100 BINARY CARD NO. 9F100027 05005 606346602346 COM21 BCI 5, TO CONTINUE SAME JOB, DEPRESS F0J04110 05012 606231274560 BCI 5, SIGN KEY ONLY AND PUSH START. F0J04120 05017 606346602425 COM22 BCI 5, TO DELETE THIS JOB DEPRESS AL F0J04130 05024 436047512526 BCI 5,L PREFIX KEYS AND PUSH START. F0J04140 BINARY CARD NO. 9F100028 05031 602346444731 COM23 BCI 8, COMPILATION DELETED BECAUSE OF MACHINE ERROR. F0J04150 05041 3 00003 0 04717 ME4I3 IORT COM9,,3 F0J04160 05042 -0 00003 0 04763 IOCM1 IOCP COM14,,3 F0J04170 05043 3 00004 0 04771 IORT COM16,,4 F0J04180 32K 709/7090 FORTRAN MONITOR MACHINE ERROR RECORD 2/07/05 PAGE 9 05044 016060606060 RESTO BCI 3,1 F0J04190 05047 +000000000004 EOF OCT 4 F0J04200 05050 +000000000010 REDUN OCT 10 F0J04210 05051 -0 00000 0 00001 BSR1 MZE 1 F0J04220 05052 -0 00000 0 00005 BSR5 MZE 5 F0J04230 05053 0 00000 2 00000 ENDPAR PZE **,2 USED TO PICK UP FAP TAPE PARAMETERS. $F0J04240 05054 3 00013 0 05055 TAPERR IORT TPERR,,11 F0J04250 05055 002225273145 TPERR BCI ,0BEGINNING OF ASSEMBLY NOT FOUND ON INPUT TAPE. ASSEMBLY DEF0J04260 BINARY CARD NO. 9F100029 05067 432563252433 BCI 1,LETED. F0J04270 05070 -0625 00 0 05074 FFOUND STL FCELL F0J04280 05071 0020 00 0 04234 TRA BLNK F0J04290 05072 -0625 00 0 05075 AFOUND STL ACELL F0J04300 05073 0020 00 0 04234 TRA BLNK F0J04310 05074 0 00000 0 00000 FCELL PZE F0J04320 05075 0 00000 0 00000 ACELL PZE F0J04330 05076 0 00000 0 77772 LARGE PZE -6 F0J04340 05077 0 00000 0 77777 MASK PZE -1 F0J04350 05100 +000000000026 F OCT 26 F0J04360 05101 +000000000021 A OCT 21 F0J04370 05102 +000000000047 P OCT 47 F0J04380 05103 +000000000060 BLANK OCT 60 F0J04390 BINARY CARD NO. 9F100030 05104 +000000000054 ASTER OCT 54 F0J04400 05105 0 00000 0 00001 FRDSKP PZE 1 F0J04410 05106 -0 00000 0 00000 IOCOM1 MZE F0J04420 05107 3 00016 0 05112 ICOM2 IORT BUFF,,14 COMMAND TO READ IN ONE BCD CARD F0J04430 05110 -0 00000 0 00002 IOCOM3 MZE 2 F0J04440 05111 -0 00000 0 00007 BS7R MZE 7 F0J04450 05112 DUP 1,14 F0J04460 05112 0 00000 0 00000 BUFF PZE F0J04470 05130 3 00004 0 05237 ME4I4 IORT ME4WD,,4 TO ELIMINATE NOISE RECORDS $F0J04480 05131 3 00003 0 04717 ME4I6 IORT COM9,,3 F0J04490 BINARY CARD NO. 9F100031 05132 3 00007 0 04766 ME4F IORT COM15,,7 F0J04500 05133 3 00003 0 05044 ME5F IORT RESTO,,3 F0J04510 05134 +000001000000 NOGOB DEC 1B17 NOGO BIT (26)F0J04520 05135 0 00000 0 00000 PZE NOT USED $F0J04521 05136 002545246000 ME4EN BCI 1,0END 0 F0J04530 05137 +007777777700 ME4MS OCT 7777777700 F0J04540 05140 000000000054 ME4AS BCI 1,00000* F0J04550 05141 -377777777577 DLETEX OCT 777777777577 F0J04560 05142 +000000000001 L(1) OCT 1 F0J04570 05143 0 77777 0 00000 REW PZE ,,-1 F0J04580 05144 0 00001 0 00000 SK1FL PZE ,,1 F0J04600 05145 -0 00001 0 00000 BSF MZE ,,1 F0J04610 05146 -0 00000 0 00010 BSR8 MZE 8 F0J04620 05147 3 00004 0 05150 WOTED IORT EXDEL,,4 F0J04690 05150 002567252364 EXDEL BCI 4,0EXECUTION DELETED. F0J04700 05154 3 00010 0 05031 COMDL IORT COM23,,8 F0J04710 05155 3 00030 0 05156 FAILD IORT *+1,,24 FAILED CARD. F0J04720 05156 +000000000000 OCT ,,,,, F0J04730 32K 709/7090 FORTRAN MONITOR MACHINE ERROR RECORD 2/07/05 PAGE 10 BINARY CARD NO. 9F100032 05164 +200020040140 OCT 200020040140,377437743760,200020040140,200020002010 F0J04740 05170 +200020040140 OCT 200020040140,200020002004,374037740140,200037402004 F0J04750 05174 +200010100140 OCT 200010100140,200020002010,377407600140,200037743760 F0J04760 05200 +000000000000 OCT ,,,,, F0J04770 BINARY CARD NO. 9F100033 05206 0074 00 4 73611 PATCH1 TSX (PRNT),4 SPACE PRINTER. *F0J04780 05207 0 00003 0 04717 PZE COM9,,3 *F0J04790 05210 0500 60 0 05217 CLA* INPT PICK UP NO. OF RECS. READ FROM INPUT TAPE *F0J04800 05211 0734 00 4 00000 PAX ,4 *F0J04810 05212 -3 77772 4 04016 TXL ME4DA,4,-6 IS INPUT TAPE BEFORE *FAP CARD. *F0J04820 05213 0074 00 4 73606 TSX (TAPE),4 YES, SKIP ONE RECORD FORWARD. *F0J04830 05214 -0 20002 0 05105 MZE FRDSKP,,(SKDP) *F0J04840 05215 -0 00005 0 00000 MZE ,,MINTAP *F0J04850 05216 0020 00 0 04016 TRA ME4DA *F0J04860 05217 0 00000 0 00000 INPT PZE ** ADDRESS OF FAP PARAMETER FOR INPUT TAPE. $F0J04880 05220 0 00000 0 00000 BINT PZE ** ADDRESS OF BINARY OUTPUT TAPE PARAMETER $F0J04890 05221 -0760 00 0 00141 PATCH2 SLT 1 IS THIS FAP $F0J04900 05222 0020 00 0 05234 TRA PATCH2+11 NO $F0J04901 05223 0534 00 4 03725 LXA BOTTOM-7,4 YES PICK UP PARAMETERS $F0J04902 05224 0634 00 4 05053 SXA ENDPAR,4 BACKSPACE LIST $F0J04903 05225 1 77777 4 05226 TXI *+1,4,-1 $F0J04904 05226 0634 00 4 05217 SXA INPT,4 INPUT TAPE $F0J04905 05227 1 77777 4 05230 TXI *+1,4,-1 $F0J04906 05230 0634 00 4 05220 SXA BINT,4 BINARY OUTPUT TAPE $F0J04907 05231 0054 00 000004 RFT 4 IBSFAP $F0J04908 05232 0020 00 0 03770 TRA FAP YES, TAKE REGULAR PROCEDURE (25)F0J04909 05233 0020 00 0 03770 TRA FAP NO $F0J04910 BINARY CARD NO. 9F100034 05234 0054 00 000004 RFT 4 NOT FROM FAP, IS IT IBSFAP $F0J04911 05235 0020 00 0 04046 TRA SCAN YES $F0J04912 05236 0020 00 0 03737 TRA BOTTOM+3 NO $F0J04913 05237 ME4WD BSS 4 BUFFER FOR INPUT TAPE DELETE OPTION $F0J04914 *F0J04920 BINARY CARD NO. 9F100035 05243 0560 00 0 00133 NOGOP LDQ SYSJOB SAVE SYSJOB FOR POSSIBLE $F0J04921 05244 -0600 00 0 05250 STQ JOBSAV RETRY. $F0J04922 05245 -0500 00 0 05134 CAL NOGOB SET NOGO BIT IN SYSJOB $F0J04923 05246 -0602 00 0 00133 ORS SYSJOB $F0J04924 05247 0020 00 0 05221 TRA PATCH2 GO TEST FOR FAP $F0J04925 05250 0 00000 0 00000 JOBSAV SYSJOB ON ENTRY $F0J04926 05251 0560 00 0 05250 NOGOQ LDQ JOBSAV COMPILATION WILL BE RETRIED (26)F0J04927 05252 -0600 00 0 00133 STQ SYSJOB RESTORE SYSJOB, (26)F0J04928 05253 0020 00 0 03763 TRA ME10 AND DO SO (26)F0J04929 05254 -0056 00 010000 SNORTY LNT 10000 WAS JOB PRECEDED BY AN EOF (26)F0J04930 05255 0020 00 0 05243 TRA NOGOP YES (26)F0J04931 05256 0774 00 4 00004 AXT 4,4 NO, CIRCUMVENT RETRY OPTION AND (26)F0J04932 05257 0500 00 4 05270 CLA REPLC+4,4 MACHINE STOP. (26)F0J04933 05260 0771 00 0 00022 ARS 18 (26)F0J04934 05261 0621 60 4 05270 STA* REPLC+4,4 (26)F0J04935 05262 2 00001 4 05257 TIX *-3,4,1 (26)F0J04936 05263 0020 00 0 05243 TRA NOGOP (26)F0J04937 05264 0 04324 0 03745 REPLC PZE ME713,,ME13+2 (26)F0J04938 32K 709/7090 FORTRAN MONITOR MACHINE ERROR RECORD 2/07/05 PAGE 11 05265 0 04004 0 03771 PZE FAP+1,,MEDL (26)F0J04939 05266 0 04315 0 04424 PZE EX35,,ME28 (26)F0J0493A 05267 0 04315 0 04273 PZE ME26,,ME28 (26)F0J0493B 05270 ENDEX BSS 0 END OF ASSEMBLY $F0J04940 77777 END -1 F0J04950 BINARY CARD NO. TRA77777 32K 709/7090 FORTRAN MONITOR MACHINE ERROR RECORD 2/07/05 PAGE 1 POST PROCESSOR ASSEMBLY DATA 73667 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM REFERENCES TO DEFINED SYMBOLS 5101 A 4224 5100 F 4216 5102 P 4230 5145 BSF 4313 4471 CMT 4354 5047 EOF 4103 4346 EX1 4352 4354 EX2 4347 4417 EX3 4357 3770 FAP 5232, 5233, 5265 4447 LET 4372 3762 ME7 4264 MON 3741 4457 NUM 4374 4500 PRT 4356 5143 REW 4072 RIS 4062 4437 TBL 4346, 4350 4337 XEM 3744 5220 BINT 4050, 5230 4234 BLNK 4213, 5071, 5073 5111 BS7R 4240 5051 BSR1 4017, 4044 5052 BSR5 4073 5146 BSR8 4316 5112 BUFF 4176, 4205, 5107 4207 CHAR 4234 4623 COM2 4272 4635 COM3 3746 4673 COM4 3752 4717 COM9 4115, 4117, 4423, 4507, 5041, 5131, 5207 4244 ENCT 4171 4424 EX35 5266 4141 GET1 4133, 4150 5217 INPT 5210, 5226 5142 L(1) 4106, 4362, 4370 4446 L(2) 4414 5077 MASK 4160 3763 ME10 5253 4322 ME13 3761, 5264 4273 ME26 4270, 5267 4134 ME27 4306, 4434 4315 ME28 4311, 4333, 4335, 4353, 4435, 5266, 5267 5132 ME4F 4124 5133 ME5F 4127 4004 MEDL 5265 4507 MSG1 4403 4510 MSG2 4355, 4406 4511 MSG3 4411 4046 SCAN 4036, 4336, 5235 4105 SK1R 4042 32K 709/7090 FORTRAN MONITOR MACHINE ERROR RECORD 2/07/05 PAGE 2 POST PROCESSOR ASSEMBLY DATA 4077 TAER 4024 4222 TRYA 4215 4230 TRYP 4223 4205 WORD 4235 5075 ACELL 4222, 4256, 5072 5104 ASTER 4201 5103 BLANK 4211 4722 COM13 3772, 3774, 3776 4763 COM14 4013, 5042 4766 COM15 4113, 5132 4771 COM16 5043 4775 COM20 4274 5005 COM21 4276 5017 COM22 4300 5031 COM23 4330, 5154 4647 COM3A 3750 5154 COMDL 4325 5270 ENDEX 5150 EXDEL 4064, 5147 5155 FAILD 4056 5074 FCELL 4214, 4255, 5070 5107 ICOM2 4173 4151 INPTA 4140 5042 IOCM1 4010 5076 LARGE 4161 4436 MASK1 4340 4331 ME23B 4310 4312 ME27A 4136 5140 ME4AS 4030 4037 ME4BI 4101 4016 ME4DA 4251, 5212, 5216 4043 ME4EJ 4104 5136 ME4EN 4033 5041 ME4I3 4005 5130 ME4I4 4022, 4040 5131 ME4I6 4121 5137 ME4MS 4034 4112 ME4RT 4003 4021 ME4SP 4031, 4035, 4111 5237 ME4WD 4025, 4032, 5130 3745 ME713 5264 4204 MONCC 4202 4055 NOFAP 4047 5134 NOGOB 5245 5243 NOGOP 5255, 5263 5251 NOGOQ 4323 4147 PARM1 4142, 4144 4171 READX 4257, 4263 5050 REDUN 4100 5264 REPLC 5257, 5261 5044 RESTO 3754, 4000, 4302, 4431, 5133 5144 SK1FL 3764 4260 SKFOR 4162 5055 TPERR 4250, 5054 5147 WOTED 4066 32K 709/7090 FORTRAN MONITOR MACHINE ERROR RECORD 2/07/05 PAGE 3 POST PROCESSOR ASSEMBLY DATA 5072 AFOUND 4226 73600 BOTIOP 3734 BOTTOM 73666, 3734, 4137, 4337, 4360, 5223, 5236 3732 DATEBX 5141 DLETEX 4264 5053 ENDPAR 4141, 4151, 4157, 5224 4512 EXCOM1 4421, 4511 4516 EXCOM2 4376, 4471, 4500 4532 EXCOM3 4377, 4472, 4501 4543 EXCOM4 4400, 4473, 4502 4560 EXCOM5 4401, 4474, 4475, 4503, 4504 4567 EXCOM6 4476, 4505 4600 EXCOM7 4425 4606 EXCOM8 4427 4617 EXCOM9 4477, 4506 5070 FFOUND 4220 2 FINTAP 3730 FLAGBX 5105 FRDSKP 4261, 5214 5106 IOCOM1 4051, 4053, 4143, 4146, 4152, 4154, 4164, 4166 5110 IOCOM3 4253 134 .CHEXI 135 .MODSW 5250 JOBSAV 4131, 4134, 5244, 5251 1 LIBTAP 3731 LINECT 7 MBNTAP 4054, 4057, 4155 10 MCHTAP 5 MINTAP 4020, 4023, 4041, 4045, 4107, 4167, 4174, 4254, 4262, 4314, 5215 6 MLSTAP 4006, 4011, 4067, 4122, 4125, 4130, 4246, 4326, 4404, 4407, 4412 5206 PATCH1 4014 5221 PATCH2 5222, 5247 4237 POSSYS 4232 4252 READIN 4203, 4217, 4221, 4225, 4227, 4231, 4233, 4236 3 SINTAP 5254 SNORTY 3735 11 SNPTAP 122 SYSACC 114 SYSCEM 155 SYSCK1 156 SYSCK2 120 SYSCOR 144 SYSCRD 102 SYSCUR 102 124 SYSCYD 101 SYSDAT 115 SYSDMP 77777 SYSEND 132 SYSGET 117 SYSIDR 151 SYSIN1 152 SYSIN2 116 SYSIOX 133 SYSJOB 4132, 4135, 5243, 5246, 5252 104 SYSKEY 32K 709/7090 FORTRAN MONITOR MACHINE ERROR RECORD 2/07/05 PAGE 4 POST PROCESSOR ASSEMBLY DATA 140 SYSLB1 141 SYSLB2 142 SYSLB3 143 SYSLB4 121 SYSLDR 3720 SYSORG 147 SYSOU1 150 SYSOU2 146 SYSPCH 123 SYSPID 106 SYSPOS 153 SYSPP1 154 SYSPP2 145 SYSPRT 103 SYSRET 113 SYSRPT 126 SYSSLD 105 SYSSWS 1 SYSTAP 3765, 4074, 4241, 4317 127 SYSTCH 100 SYSTRA 131 SYSTWT 111 SYSUAV 110 SYSUBC 112 SYSUCW 107 SYSUNI 157 SYSUT1 160 SYSUT2 161 SYSUT3 162 SYSUT4 5054 TAPERR 4245 4 TINTAP 77677 TOPMEM 702 (ACTIV 703 (ACTVX 720 (BCD5R 721 (BCD5X 10000 (CHKU) 741 (CHPSW 724 (CHXAC 750 (CHXSP 717 (CKWAT 746 (COMMD 736 (COMMM 722 (CVPRT 73662 (DATE) 716 (DECVA 715 (DECVD 73645 (DGLD) 3762 73603 (DIAG) 710 (ENBSW 73665 (ENDS) 732 (ETTXI 743 (FDAMT 73660 (FGBX) 3734, 4060, 4071, 4265, 4266, 4331 32K 709/7090 FORTRAN MONITOR MACHINE ERROR RECORD 2/07/05 PAGE 5 POST PROCESSOR ASSEMBLY DATA 747 (IBCDZ 740 (IOXSI 73667 (LBLD) 73652 (LIBT) 73661 (LNCT) 4413, 4415 73600 (LOAD) 3766, 4075, 4242, 4320 73666 (LODR) 73666 737 (LTPOS 73644 (MECL) 73664 (MSLN) 704 (NDATA 705 (NDSLX 712 (PAUSE 3755, 4001, 4303, 4432 711 (PAWSX 3733 (PCBK) 73651 (PGCT) 73614 (PNCH) 73611 (PRNT) 3745, 3747, 3751, 3753, 3771, 3773, 3775, 3777, 4012, 4063, 4112, 4114, 4116, 4247, 4271, 4273, 4275 4277, 4301, 4327, 4416, 4420, 4422, 4424, 4426, 4430, 5206 706 (PROUT 707 (PUNCH 40014 (RBEC) 40004 (RBEP) 40010 (RBNC) 4040 40000 (RBNP) 727 (RCHXI 726 (RCTXI 40016 (RDEC) 40006 (RDEP) 40012 (RDNC) 4022, 4173 40002 (RDNP) 73622 (REST) 73672 (SCHU) 4077, 4102 744 (SDCXI 73643 (SECL) 20010 (SKBC) 20000 (SKBP) 3764, 4053, 4073, 4154, 4240, 4313, 4316 20012 (SKDC) 20002 (SKDP) 4017, 4044, 4106, 4146, 4166, 4253, 4261, 5214 1000 (SNAP) 73663 (SNCT) 73617 (STAT) 745 (STCXI 73626 (STDN) 723 (STOPD 713 (STOPX 10003 (SUAV) 10002 (SUNV) 714 (SYMUN 73606 (TAPE) 3763, 4004, 4007, 4016, 4021, 4037, 4043, 4052, 4055, 4065, 4072, 4105, 4120, 4123, 4126, 4145, 4153 4165, 4172, 4237, 4244, 4252, 4260, 4312, 4315, 4324, 4402, 4405, 4410, 5213 730 (TCOXI 733 (TEFXI 4000 (TPER) 735 (TRAPS 32K 709/7090 FORTRAN MONITOR MACHINE ERROR RECORD 2/07/05 PAGE 6 POST PROCESSOR ASSEMBLY DATA 734 (TRAPX 731 (TRCXI 742 (TRPSW 725 (URRXI 40011 (WBNC) 40001 (WBNP) 40013 (WDNC) 4005, 4010, 4066, 4121, 4124, 4127, 4245, 4325, 4403, 4406, 4411 40003 (WDNP) 40015 (WEFC) 40005 (WEFP) 40031 (WROW) 4056 NO ERROR IN ABOVE ASSEMBLY. * 32K 709/7090 FORTRAN MONITOR SOURCE ERROR RECORD F0K00010 * FAP F0K00030 32K 709/7090 FORTRAN MONITOR SOURCE ERROR RECORD 2/07/05 PAGE 1 SST FORTRAN $F0K00060 ABS $F0K00070 00102 ORG SYSCUR $F0K00090 BINARY CARD NO. 9F110000 00102 112601010000 BCI 1,9F1100 $F0K00100 73666 ORG (LODR) $F0K00101 BINARY CARD NO. 9F110001 73666 1 00156 0 03734 TXI BOTTOM,,110 F0K00110 F0K00120 03734 ORG BOTTOM F0K00140 BINARY CARD NO. 9F110002 03734 -0500 00 0 04457 SRCER CAL NOGOBT SET NOGO BIT IN SPSJOB $F0K00150 03735 -0602 00 0 00133 ORS SYSJOB TO BOMB OUT LATER SEGMENTS $F0K00160 03736 0020 00 0 04454 TRA QTEST GO TEST FOR CALL FROM EXEM $F0K00170 03737 0441 60 0 73660 LDI* (FGBX) F0K00180 03740 -0760 00 0 00141 SLT 1 TEST FOR CALL FROM FAP. F0K00210 03741 0020 00 0 03743 TRA *+2 F0K00220 03742 0020 00 0 04003 TRA FAP F0K00230 03743 0054 00 100000 RFT 100000 IS THE BSS CONTROL BIT ON. F0K00240 03744 0020 00 0 04061 TRA SICOM YES, SEE IF COMPILER CALLED. F0K00250 03745 -0054 00 000001 LFT 1 $F0K00251 03746 0020 00 0 04123 TRA SINON $F0K00252 03747 -0760 00 0 00142 SLT 2 TEST FOR MONITOR, SECT. 1, OR GEN. DIAG. F0K00260 03750 0020 00 0 03775 TRA GDIAG SECT. 1 OR GEN. DIAGNOSTIC CALLED. F0K00270 03751 0020 00 0 03756 TRA MON MONITOR CALLED. GO TO SCAN. F0K00280 03752 0074 00 4 73606 SCAN TSX (TAPE),4 WRITE -FAILED- CARD ON OUTPUT TAPE. F0K00290 03753 -0 40031 0 04412 MZE FAILD,,(WROW) F0K00300 03754 -0 00007 0 00000 MZE ,,MBNTAP F0K00310 03755 0 00000 0 03756 PZE *+1 F0K00320 03756 0441 60 0 73660 MON LDI* (FGBX) WAS EXECUTION ON. F0K00330 03757 0056 00 000200 RNT 200 F0K00340 03760 0020 00 0 03770 TRA RIS NO. F0K00350 03761 0074 00 4 73611 TSX (PRNT),4 YES. PRINT -EXECUTION DELETED-. F0K00360 BINARY CARD NO. 9F110003 03762 0 00004 0 04406 PZE EXDEL,,4 F0K00370 03763 0074 00 4 73606 TSX (TAPE),4 WRITE -EXECUTION DELETED-. F0K00380 03764 0 40013 0 04405 PZE WOTED,,(WDNC) F0K00390 03765 -0 00006 0 00000 MZE ,,MLSTAP F0K00400 03766 0057 00 000200 RIR 200 TURN OFF EXECUTION BIT. F0K00410 03767 0604 60 0 73660 STI* (FGBX) F0K00420 03770 0074 00 4 73606 RIS TSX (TAPE),4 POSITION SYSTEM TAPE TO SCAN. F0K00430 03771 -0 20000 0 04340 MZE SK6REC,,(SKBP) F0K00440 03772 -0 00001 0 00000 MZE ,,SYSTAP F0K00450 D 03773 0074 01 4 73600 TSX (LOAD),4,1 $F0K00460 03774 112600060000 BCI 1,9F0600 $F0K00461 03775 0074 00 4 73606 GDIAG TSX (TAPE),4 F0K00500 03776 0 40013 0 04343 PZE CMENT,,(WDNC) F0K00510 03777 -0 00006 0 00000 MZE ,,MLSTAP F0K00520 04000 0074 00 4 73611 TSX (PRNT),4 F0K00530 04001 0 00010 0 04375 PZE MSSG,,8 F0K00540 04002 0020 00 0 03752 TRA SCAN F0K00550 04003 0074 00 4 73606 FAP TSX (TAPE),4 WRITE -ASSEMBLY DELETED- F0K00560 32K 709/7090 FORTRAN MONITOR SOURCE ERROR RECORD 2/07/05 PAGE 2 04004 0 40013 0 04342 PZE ME4I3,,(WDNC) ON OUTPUT TAPE. F0K00570 04005 -0 00006 0 00000 MZE ,,MLSTAP F0K00580 04006 0074 00 4 73606 TSX (TAPE),4 F0K00590 04007 0 40013 0 04341 PZE IOCM1,,(WDNC) F0K00600 BINARY CARD NO. 9F110004 04010 -0 00006 0 00000 MZE ,,MLSTAP F0K00610 04011 0074 00 4 73611 TSX (PRNT),4 ALSO PRINT ON-LINE. F0K00620 04012 0 00011 0 04364 PZE COM14,,9 F0K00630 04013 0074 00 4 73611 TSX (PRNT),4 F0K00640 04014 0 00003 0 04344 PZE COM11,,3 F0K00650 04015 0074 00 4 73606 TSX (TAPE),4 DELETE ASSEMBLY BY F0K00660 04016 -0 20002 0 04336 MZE BSR1,,(SKDP) F0K00670 04017 -0 00005 0 00000 MZE ,,MINTAP F0K00680 04020 0074 00 4 73606 ME4SP TSX (TAPE),4 SCANNING TO FAP END CARD OR EOF OR BINARY F0K00690 04021 -0 40012 0 04460 MZE ME4I4,,(RDNC) RECORD ON INPUT TAPE. F0K00700 04022 -0 00005 0 00000 MZE ,,MINTAP F0K00710 04023 -0 00000 0 04046 MZE TAPERR F0K00720 04024 0560 00 0 04444 LDQ ME4WD F0K00730 04025 -0754 00 0 00000 ZAC F0K00740 04026 -0763 00 0 00006 LGL 6 F0K00750 04027 0402 00 0 04447 SUB ME4AS F0K00760 04030 0100 00 0 04020 TZE ME4SP END CARD MUST NOT HAVE * IN C.C. 1. F0K00770 04031 -0500 00 0 04445 CAL ME4WD+1 F0K00780 04032 0322 00 0 04450 ERA ME4EN F0K00790 04033 -0320 00 0 04451 ANA ME4MS F0K00800 04034 -0100 00 0 04020 TNZ ME4SP F0K00810 04035 0020 00 0 03752 TRA SCAN F0K00820 BINARY CARD NO. 9F110005 04036 0074 00 4 73606 ME4BI TSX (TAPE),4 TRY ONCE IN BINARY MODE. F0K00830 04037 -0 40010 0 04460 MZE ME4I4,,(RBNC) F0K00840 04040 -0 00005 0 00000 MZE ,,MINTAP F0K00850 04041 -0 00000 0 04054 MZE SK1R IF BAD, SKIP RECORD AND CONTINUE SEARCH. F0K00860 04042 0074 00 4 73606 ME4EJ TSX (TAPE),4 BACKSPACE ONCE, THEN F0K00870 04043 -0 20002 0 04336 MZE BSR1,,(SKDP) CALL IN MONITOR SCAN F0K00880 04044 -0 00005 0 00000 MZE ,,MINTAP F0K00890 04045 0020 00 0 03752 TRA SCAN F0K00900 04046 -0500 00 0 73672 TAPERR CAL (SCHU) TAPE ERROR. IS IT REDUNDANCY. F0K00910 04047 -0320 00 0 04453 ANA REDUN F0K00920 04050 -0100 00 0 04036 TNZ ME4BI F0K00930 04051 -0500 00 0 73672 CAL (SCHU) IS IT END OF FILE. F0K00940 04052 -0320 00 0 04452 ANA EOF F0K00950 04053 -0100 00 0 03752 TNZ SCAN YES, GO TO MONITOR SCAN (26)F0K00960 04054 0074 00 4 73606 SK1R TSX (TAPE),4 SKIP ONE RECORD. F0K00970 04055 -0 20002 0 04330 MZE L(1),,(SKDP) F0K00980 04056 -0 00005 0 00000 MZE ,,MINTAP F0K00990 04057 -0 00000 0 04060 MZE *+1 ELIMINATE ON-LINE MESSAGE. F0K01000 04060 0020 00 0 04020 TRA ME4SP F0K01010 04061 -0760 00 0 00144 SICOM SLT 4 HAS COMPILER CALLED. F0K01020 04062 0020 00 0 04123 TRA SINON NO, GO TO SIGN ON. F0K01030 04063 0500 00 0 04062 CLA *-1 YES, WRITE AND PRINT -SOURCE PROGRAM ERROR-F0K01040 BINARY CARD NO. 9F110006 04064 0601 00 0 03770 STO RIS ALSO, -EXECUTION DELETED-. *F0K01050 04065 0020 00 0 03775 TRA GDIAG F0K01060 32K 709/7090 FORTRAN MONITOR SOURCE ERROR RECORD 2/07/05 PAGE 3 04066 -0500 00 0 03721 XEM CAL BOTTOM-11 PUT ERROR IN FORM TO COMPARE $F0K01090 04067 -0320 00 0 04271 ANA MASK1 WITH TABLE OF F0K01100 04070 0765 00 0 00003 LRS 3 SOURCE ERROR CODES. F0K01110 04071 0771 00 0 00014 ARS 12 F0K01120 04072 0763 00 0 00003 LLS 3 F0K01130 04073 0402 00 0 04304 SUB TBL+10 $F0K01140 04074 0100 00 0 04130 TZE EXER4 HPR(0,6) STOP. ILLEGAL UNIT. F0K01150 04075 0400 00 0 04304 ADD TBL+10 $F0K01160 04076 0774 00 1 00017 AXT 15,1 F0K01170 04077 0774 00 2 00000 AXT 0,2 F0K01180 04100 0402 00 2 04272 EXER2 SUB TBL,2 F0K01190 04101 0100 00 0 04106 TZE EXER3 ERROR CODE FOUND. F0K01200 04102 0400 00 2 04272 ADD TBL,2 F0K01210 04103 1 77777 2 04104 TXI *+1,2,-1 F0K01220 04104 2 00001 1 04100 TIX EXER2,1,1 F0K01230 04105 0020 00 0 04120 TRA DLETE ERROR CODE NOT FOUND IN TABLE. F0K01240 04106 0074 00 4 73606 EXER3 TSX (TAPE),4 WRITE REASON FOR JOB TERMINATION. F0K01250 04107 0 40013 2 04311 PZE CMT,2,(WDNC) F0K01260 04110 -0 00006 0 00000 MZE ,,MLSTAP F0K01270 04111 0074 00 4 73611 TSX (PRNT),4 PRINT -EXECUTION TERMINATED- . F0K01280 BINARY CARD NO. 9F110007 04112 0 00005 0 04157 PZE COM1,,5 F0K01290 04113 0074 00 4 73611 TSX (PRNT),4 F0K01300 04114 0 00003 0 04344 PZE COM11,,3 $F0K01310 04115 0500 60 0 73661 CLA* (LNCT) F0K01320 04116 0400 00 0 04331 ADD L(2) F0K01330 04117 0601 60 0 73661 STO* (LNCT) F0K01340 04120 0074 00 4 73606 DLETE TSX (TAPE),4 WRITE -EXECUTION TERMINATED- . F0K01350 04121 0 40013 0 04335 PZE COM,,(WDNC) F0K01360 04122 -0 00006 0 00000 MZE ,,MLSTAP F0K01370 04123 0074 00 4 73606 SINON TSX (TAPE),4 POSITION SYSTEM TAPE TO SIGN ON. F0K01380 04124 -0 20000 0 04337 MZE BSR9,,(SKBP) F0K01390 04125 -0 00001 0 00000 MZE ,,SYSTAP F0K01400 D 04126 0074 01 4 73600 TSX (LOAD),4,1 READ SIGN ON. $F0K01410 04127 112600030000 BCI 1,9F0300 $F0K01411 04130 -0534 00 1 03722 EXER4 LXD BOTTOM-10,1 GET ILLEGAL TAPE NUMBER. $F0K01420 04131 0754 00 1 00000 PXA 0,1 F0K01430 04132 0074 00 4 04140 TSX CNVT,4 CONVERT TO BCD. F0K01440 04133 0602 00 0 04232 SLW COM6+8 SET ILLEGAL TAPE NUMBER IN COMMENT. F0K01450 04134 0074 00 4 73606 TSX (TAPE),4 F0K01460 04135 0 40013 0 04323 PZE CMT+10,,(WDNC) $F0K01470 04136 -0 00006 0 00000 MZE ,,MLSTAP F0K01480 04137 0020 00 0 04111 TRA EXER3+3 F0K01490 BINARY CARD NO. 9F110008 04140 -0320 00 0 04333 CNVT ANA ADMSK F0K01500 04141 0131 00 0 00000 XCA F0K01510 04142 0774 00 1 00000 AXT 0,1 F0K01520 04143 0600 00 0 04334 STZ TEMP1 F0K01530 04144 0754 00 0 00000 CNVT1 PXA 0,0 F0K01540 04145 0221 00 0 04332 DVP L(10) F0K01550 04146 0767 00 1 00000 ALS 0,1 F0K01560 04147 -0602 00 0 04334 ORS TEMP1 F0K01570 04150 0500 00 0 04330 CLA L(1) F0K01580 04151 0040 00 0 04153 TLQ *+2 F0K01590 32K 709/7090 FORTRAN MONITOR SOURCE ERROR RECORD 2/07/05 PAGE 4 04152 1 77772 1 04144 TXI CNVT1,1,-6 F0K01600 04153 -0500 00 0 04443 CAL BLK F0K01610 04154 0767 00 1 00006 ALS 6,1 F0K01620 04155 -0501 00 0 04334 ORA TEMP1 F0K01630 04156 0020 00 4 00001 TRA 1,4 F0K01640 04157 002567252364 COM1 BCI 5,0EXECUTION TERMINATED BY EXEM. F0K01650 04164 003143432527 COM2 BCI 7,0ILLEGAL CHARACTER IN FORMAT STATEMENT. $F0K01660 BINARY CARD NO. 9F110009 04173 606060606060 BCI 4, $F0K01670 04177 003143432527 COM3 BCI 8,0ILLEGAL CHARACTER IN DATA ABOVE OR BAD FORMAT. F0K01680 04207 003143432527 COM4 BCI 6,0ILLEGAL CHARACTER ON DATA CARD. F0K01690 BINARY CARD NO. 9F110010 04215 002545246046 COM5 BCI 5,0END OF FILE AT CARD READER. F0K01700 04222 006445316360 COM6 BCI 6,0UNIT ADDRESS NOT FOUND IN IOU FOR L F0K01710 04230 462731232143 BCI 4,OGICAL UNIT . F0K01720 04234 004546636062 COM7 BCI 6,0NOT STANDARD ERROR STOP IN EXEM. F0K01730 BINARY CARD NO. 9F110011 04242 002567474645 COM8 BCI 6,0EXPONENT EXCEEDS RANGE OF DEXP. F0K01740 04250 004525272163 COM9 BCI 7,0NEGATIVE ARGUMENT ILLEGAL FOR DSQRT. F0K01750 04257 007125514660 COM10 BCI 8,0ZERO OR NEGATIVE ARGUMENT ILLEGAL FOR DLOG. F0K01760 04267 0 00000 0 00000 IND PZE F0K01770 BINARY CARD NO. 9F110012 04270 0 00000 0 00000 SMQ PZE F0K01780 04271 0 00000 7 77777 MASK1 PZE -1,7 F0K01790 04272 +000000000010 TBL DEC 8,9,10,11,12,13,16,17,33,34,48,49,57,58,59 F0K01800 04311 3 00013 0 04164 CMT IORT COM2,,11 F0K01810 04312 3 00010 0 04177 IORT COM3,,8 F0K01820 04313 3 00010 0 04177 IORT COM3,,8 F0K01830 04314 3 00010 0 04177 IORT COM3,,8 F0K01840 04315 3 00010 0 04177 IORT COM3,,8 F0K01850 BINARY CARD NO. 9F110013 04316 3 00010 0 04177 IORT COM3,,8 F0K01860 04317 3 00006 0 04207 IORT COM4,,6 F0K01870 04320 3 00005 0 04215 IORT COM5,,5 F0K01880 04321 3 00007 0 04347 IORT COM12,,7 F0K01890 04322 3 00006 0 04356 IORT COM13,,6 F0K01900 04323 3 00012 0 04222 IORT COM6,,10 F0K01910 04324 3 00006 0 04234 IORT COM7,,6 F0K01920 04325 3 00006 0 04242 IORT COM8,,6 F0K01930 04326 3 00007 0 04250 IORT COM9,,7 F0K01940 04327 3 00010 0 04257 IORT COM10,,8 F0K01950 04330 0 00000 0 00001 L(1) PZE 1 F0K01960 04331 0 00000 0 00002 L(2) PZE 2 F0K01970 04332 0 00000 0 00012 L(10) PZE 10 F0K01980 04333 0 00000 0 77777 ADMSK PZE -1 F0K01990 04334 0 00000 0 00000 TEMP1 PZE F0K02000 04335 3 00005 0 04157 COM IORT COM1,,5 F0K02020 04336 -0 00000 0 00001 BSR1 MZE 1 F0K02030 04337 -0 00000 0 00011 BSR9 MZE 9 F0K02040 04340 -0 00000 0 00006 SK6REC MZE 6 F0K02050 04341 3 00011 0 04364 IOCM1 IORT COM14,,9 F0K02060 32K 709/7090 FORTRAN MONITOR SOURCE ERROR RECORD 2/07/05 PAGE 5 04342 3 00003 0 04344 ME4I3 IORT COM11,,3 F0K02070 04343 3 00010 0 04375 CMENT IORT MSSG,,8 F0K02080 BINARY CARD NO. 9F110014 04344 006060606060 COM11 BCI 3,0 F0K02090 04347 004730706231 COM12 BCI 7,0PHYSICAL RECORD SIZE EXCEEDS BUFFER SIZE. F0K02100 04356 004331626360 COM13 BCI 6,0LIST EXCEEDS LOGICAL RECORD LENGTH. F0K02110 04364 006060606060 COM14 BCI 9,0 ASSEMBLY DELETED BECAUSE OF SOURCE PROGRAM ERROR F0K02120 BINARY CARD NO. 9F110015 04375 006060606060 MSSG BCI 8,0 SOURCE PROGRAM ERROR. NO COMPILATION. F0K02130 04405 3 00004 0 04406 WOTED IORT EXDEL,,4 F0K02140 04406 002567252364 EXDEL BCI 4,0EXECUTION DELETED. F0K02150 04412 3 00030 0 04413 FAILD IORT *+1,,24 FAILED CARD. F0K02160 04413 +000000000000 OCT ,,,,, F0K02170 BINARY CARD NO. 9F110016 04421 +200020040140 OCT 200020040140,377437743760,200020040140,200020002010 F0K02180 04425 +200020040140 OCT 200020040140,200020002004,374037740140,200037402004 F0K02190 04431 +200010100140 OCT 200010100140,200020002010,377407600140,200037743760 F0K02200 04435 +000000000000 OCT ,,,,, F0K02210 04443 606060606060 BLK BCI 1, F0K02220 04444 +000000000000 ME4WD OCT ,, (26)F0K02230 BINARY CARD NO. 9F110017 04447 000000000054 ME4AS BCI 1,00000* F0K02250 04450 002545246000 ME4EN BCI 1,0END 0 F0K02260 04451 +007777777700 ME4MS OCT 7777777700 F0K02270 04452 +000000000004 EOF OCT 4 F0K02280 04453 +000000000010 REDUN OCT 10 F0K02290 04454 -0760 00 0 00143 QTEST SLT 3 WAS THIS EXEM $F0K02291 04455 0020 00 0 03737 TRA SRCER+3 NO,TRY FAP $F0K02292 04456 0020 00 0 04066 TRA XEM YES,FIND OUT WHICH ONE $F0K02293 04457 +000001000000 NOGOBT DEC 1B17 NOGO BIT FOR SYSJOB $F0K02294 04460 3 00003 0 04444 ME4I4 IORT ME4WD,,3 (26)F0K02300 04461 BSS 45 PATCH SPACE (26)F0K02305 04536 ENDEX BSS 0 F0K02310 77777 END -1 F0K02320 BINARY CARD NO. TRA77777 32K 709/7090 FORTRAN MONITOR SOURCE ERROR RECORD 2/07/05 PAGE 1 POST PROCESSOR ASSEMBLY DATA 73667 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM REFERENCES TO DEFINED SYMBOLS 4443 BLK 4153 4311 CMT 4107, 4135 4335 COM 4121 4452 EOF 4052 4003 FAP 3742 4267 IND 3756 MON 3751 3770 RIS 3760, 4064 4270 SMQ 4272 TBL 4073, 4075, 4100, 4102 4066 XEM 4456 4336 BSR1 4016, 4043 4337 BSR9 4124 4140 CNVT 4132 4157 COM1 4112, 4335 4164 COM2 4311 4177 COM3 4312, 4313, 4314, 4315, 4316 4207 COM4 4317 4215 COM5 4320 4222 COM6 4133, 4323 4234 COM7 4324 4242 COM8 4325 4250 COM9 4326 4330 L(1) 4055, 4150 4331 L(2) 4116 4375 MSSG 4001, 4343 3752 SCAN 4002, 4035, 4045, 4053 4054 SK1R 4041 4333 ADMSK 4140 4343 CMENT 3776 4144 CNVT1 4152 4257 COM10 4327 4344 COM11 4014, 4114, 4342 4347 COM12 4321 4356 COM13 4322 4364 COM14 4012, 4341 4120 DLETE 4105 4536 ENDEX 4406 EXDEL 3762, 4405 4100 EXER2 4104 4106 EXER3 4101, 4137 4130 EXER4 4074 4412 FAILD 3753 3775 GDIAG 3750, 4065 4341 IOCM1 4007 4332 L(10) 4145 4271 MASK1 4067 4447 ME4AS 4027 4036 ME4BI 4050 4042 ME4EJ 4450 ME4EN 4032 32K 709/7090 FORTRAN MONITOR SOURCE ERROR RECORD 2/07/05 PAGE 2 POST PROCESSOR ASSEMBLY DATA 4342 ME4I3 4004 4460 ME4I4 4021, 4037 4451 ME4MS 4033 4020 ME4SP 4030, 4034, 4060 4444 ME4WD 4024, 4031, 4460 4454 QTEST 3736 4453 REDUN 4047 4061 SICOM 3744 4123 SINON 3746, 4062 3734 SRCER 4455 4334 TEMP1 4143, 4147, 4155 4405 WOTED 3764 73600 BOTIOP 3734 BOTTOM 73666, 3734, 4066, 4130 3732 DATEBX 2 FINTAP 3730 FLAGBX 134 .CHEXI 135 .MODSW 1 LIBTAP 3731 LINECT 7 MBNTAP 3754 10 MCHTAP 5 MINTAP 4017, 4022, 4040, 4044, 4056 6 MLSTAP 3765, 3777, 4005, 4010, 4110, 4122, 4136 4457 NOGOBT 3734 3 SINTAP 4340 SK6REC 3771 11 SNPTAP 122 SYSACC 114 SYSCEM 155 SYSCK1 156 SYSCK2 120 SYSCOR 144 SYSCRD 102 SYSCUR 102 124 SYSCYD 101 SYSDAT 115 SYSDMP 77777 SYSEND 132 SYSGET 117 SYSIDR 151 SYSIN1 152 SYSIN2 116 SYSIOX 133 SYSJOB 3735 104 SYSKEY 140 SYSLB1 141 SYSLB2 142 SYSLB3 143 SYSLB4 121 SYSLDR 3720 SYSORG 147 SYSOU1 150 SYSOU2 32K 709/7090 FORTRAN MONITOR SOURCE ERROR RECORD 2/07/05 PAGE 3 POST PROCESSOR ASSEMBLY DATA 146 SYSPCH 123 SYSPID 106 SYSPOS 153 SYSPP1 154 SYSPP2 145 SYSPRT 103 SYSRET 113 SYSRPT 126 SYSSLD 105 SYSSWS 1 SYSTAP 3772, 4125 127 SYSTCH 100 SYSTRA 131 SYSTWT 111 SYSUAV 110 SYSUBC 112 SYSUCW 107 SYSUNI 157 SYSUT1 160 SYSUT2 161 SYSUT3 162 SYSUT4 4046 TAPERR 4023 4 TINTAP 77677 TOPMEM 702 (ACTIV 703 (ACTVX 720 (BCD5R 721 (BCD5X 10000 (CHKU) 741 (CHPSW 724 (CHXAC 750 (CHXSP 717 (CKWAT 746 (COMMD 736 (COMMM 722 (CVPRT 73662 (DATE) 716 (DECVA 715 (DECVD 73645 (DGLD) 73603 (DIAG) 710 (ENBSW 73665 (ENDS) 732 (ETTXI 743 (FDAMT 73660 (FGBX) 3737, 3756, 3767 747 (IBCDZ 740 (IOXSI 73667 (LBLD) 73652 (LIBT) 73661 (LNCT) 4115, 4117 73600 (LOAD) 3773, 4126 73666 (LODR) 73666 737 (LTPOS 32K 709/7090 FORTRAN MONITOR SOURCE ERROR RECORD 2/07/05 PAGE 4 POST PROCESSOR ASSEMBLY DATA 73644 (MECL) 73664 (MSLN) 704 (NDATA 705 (NDSLX 712 (PAUSE 711 (PAWSX 3733 (PCBK) 73651 (PGCT) 73614 (PNCH) 73611 (PRNT) 3761, 4000, 4011, 4013, 4111, 4113 706 (PROUT 707 (PUNCH 40014 (RBEC) 40004 (RBEP) 40010 (RBNC) 4037 40000 (RBNP) 727 (RCHXI 726 (RCTXI 40016 (RDEC) 40006 (RDEP) 40012 (RDNC) 4021 40002 (RDNP) 73622 (REST) 73672 (SCHU) 4046, 4051 744 (SDCXI 73643 (SECL) 20010 (SKBC) 20000 (SKBP) 3771, 4124 20012 (SKDC) 20002 (SKDP) 4016, 4043, 4055 1000 (SNAP) 73663 (SNCT) 73617 (STAT) 745 (STCXI 73626 (STDN) 723 (STOPD 713 (STOPX 10003 (SUAV) 10002 (SUNV) 714 (SYMUN 73606 (TAPE) 3752, 3763, 3770, 3775, 4003, 4006, 4015, 4020, 4036, 4042, 4054, 4106, 4120, 4123, 4134 730 (TCOXI 733 (TEFXI 4000 (TPER) 735 (TRAPS 734 (TRAPX 731 (TRCXI 742 (TRPSW 725 (URRXI 40011 (WBNC) 40001 (WBNP) 40013 (WDNC) 3764, 3776, 4004, 4007, 4107, 4121, 4135 40003 (WDNP) 40015 (WEFC) 40005 (WEFP) 32K 709/7090 FORTRAN MONITOR SOURCE ERROR RECORD 2/07/05 PAGE 5 POST PROCESSOR ASSEMBLY DATA 40031 (WROW) 3753 NO ERROR IN ABOVE ASSEMBLY. * 32K 709/7090 FORTRAN MONITOR DUMMY RECORD F0L00000 * FAP F0L00020 32K 709/7090 FORTRAN MONITOR DUMMY RECORD (RECORD 12) 2/07/05 PAGE 1 SST FORTRAN $F0L00050 F0L00080 ABS $F0L00081 00102 ORG SYSCUR $F0L00090 BINARY CARD NO. 9F120000 00102 112601020000 BCI 1,9F1200 $F0L00100 73666 ORG (LODR) $F0L00101 BINARY CARD NO. 9F120001 73666 1 00170 0 03734 TXI BOTTOM,,120 F0L00110 F0L00120 ABS F0L00130 03734 ORG BOTTOM F0L00140 BINARY CARD NO. 9F120002 03734 0074 00 4 73606 TSX (TAPE),4 RECORD SHOULD NOT BE READ. PRINT THAT F0L00150 03735 0 04000 0 03740 PZE ONING,,(TPER) TAPE POSITIONING ERROR HAS OCCURRED AND F0L00160 03736 0 00001 0 03737 PZE POSITI,,SYSTAP GO TO MACHINE ERROR RECORD. F0L00170 03737 474662316331 POSITI BCI 1,POSITI F0L00180 03740 464531452760 ONING BCI 1,ONING F0L00190 03741 0 00000 0 00000 Z PZE LAST LOCATION F0L00200 77777 END -1 F0L00210 BINARY CARD NO. TRA77777 32K 709/7090 FORTRAN MONITOR DUMMY RECORD (RECORD 12) 2/07/05 PAGE 1 POST PROCESSOR ASSEMBLY DATA 73667 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM NO ERROR IN ABOVE ASSEMBLY. * 32K 709/7090 FORTRAN SECTION ONE F1A00010 * FAP F1A00020 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 1 ABS F1A00060 F1A00070 SECTION 1= READS IN AND CLASSIFIES STATEMENTS. FOR ARITHMETICF1A00080 FORMULAS, COMPILES THE OBJECT (OUTPUT) INSTRUCTIONS. FOR F1A00090 NONARITHMETIC STATEMENTS INCLUDING INPUT-OUTPUT, DOES A F1A00100 PARTIAL COMPILATION, AND RECORDS THE REMAINING INFORMATION F1A00110 IN TABLES. F1A00120 F1A00130 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1A00140 F1A00150 SST FORTRAN $F1A00151 F1A00160 SYNONYMS USED BY SECTION ONE. F1A00170 00001 A EQU 1 F1A00180 00002 B EQU 2 F1A00190 00004 C EQU 4 F1A00200 00000 .. EQU 0 F1A00210 F1A00220 00004 TAGA SYN 4 F1A00230 00002 TAGB SYN 2 F1A00240 00004 TAGC SYN 4 F1A00250 F1A00260 F1A00270 PARAMETERS VARIABLE AT ASSEMBLY TIME F1A00280 F1A00290 00007 TMFACT SYN 7 CONSTANT FOR EXPANDING TABLE SIZES. $F1A00300 00010 TNFACT SYN 8 CONSTANT FOR REDUCING TABLE SIZES $F1A00310 00007 BMFACT SYN 7 $F1A00320 00010 BNFACT SYN 8 $F1A00330 00007 AMFACT SYN 7 $F1A00340 00010 ANFACT SYN 8 $F1A00350 F1A00360 73577 TOPTAB SYN BOTIOP-1 TOP OF AVAILABLE MEMORY. F1A00370 03734 BOTMEM SYN BOTTOM BOTTOM OF AVAILABLE MEMORY. F1A00380 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 2 F1A01160 DEFINITIONS OF TAPES FOR DUMPING THE CORE BUFFERS. F1A01170 F1A01180 00002 CITTAP SYN 2 COMPAIL TAPE ADDRESS. F1A01190 00003 TEIFTP SYN 3 TEIFNO. F1A01200 00003 DOLPTP SYN 3 TDO. F1A01210 00003 TIFGTP SYN 3 TIFGO. F1A01220 00003 TRADTP SYN 3 TRAD. F1A01230 00003 FRTGTP SYN 3 FORTAG. F1A01240 00003 FRVRTP SYN 3 FORVAR. F1A01250 00003 FRVLTP SYN 3 FORVAL. F1A01260 00003 FRETTP SYN 3 FRET. F1A01270 00003 EQITTP SYN 3 EQUIT. F1A01280 00003 CLSBTP SYN 3 CLOSUB. F1A01290 00003 FRMTTP SYN 3 FORMAT. F1A01300 00003 SBDFTP SYN 3 SUBDEF. F1A01310 00003 CMMNTP SYN 3 COMMON. F1A01320 00003 HLRGTP SYN 3 HOLARG. F1A01330 00003 NONXTP SYN 3 NONEXC. F1A01340 00003 STOPTP SYN 3 TSTOPS. F1A01350 00003 CALLTP SYN 3 CALLFN. F1A01360 00003 FMTNTP SYN 3 FMTEFN. F1A01370 00003 ENDITP SYN 3 ENDI. F1A01380 00002 INPUTP SYN 2 BCD INPUT TAPE. F1A01390 00004 EXEQTP SYN 4 EXECUTABLE STATEMENT INTERMEDIATE TAPE. F1A01400 00003 BUFTAP SYN 3 CORE BUFFER DUMP TAPE. F1A01410 00002 TABTAP SYN 2 TABLE TAPE. F1A01420 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 3 DEFINITIONS OF MAXIMUM SIZES FOR TAPE TABLES. F1A01440 F1A01450 12202 FRMTMX SYN 6000*TMFACT/TNFACT NUMBER OF BCD WORDS IN FORMAT STATS. F1A01460 12202 CLSBMX SYN 6000*TMFACT/TNFACT NUMBER OF SUBPROGRAMS. F1A01470 02032 NONXMX SYN 1200*TMFACT/TNFACT NUMBER OF NON-EXECUTABLE STATEMENTS. F1A01480 02032 STOPMX SYN 1200*TMFACT/TNFACT NUMBER OF STOP AND RETURN STATEMENTS.F1A01490 03326 FMTNMX SYN 2000*TMFACT/TNFACT NUMBER OF REFERENCES TO FORMAT STATS.F1A01500 04064 CALLMX SYN 2400*TMFACT/TNFACT NUMBER OF CALL STATEMENTS. (FUNCTION)F1A01510 06116 HLRGMX SYN 3600*TMFACT/TNFACT NUMBER OF BCD WORDS USED AS HOLERITH F1A01520 ARGUMENTS FOR SUBROUTINES. F1A01530 01015 DOLPMX SYN 600*TMFACT/TNFACT NUMBER OF DO LOOPS. F1A01540 03326 FRVLMX SYN 2000*TMFACT/TNFACT NUMBER OF FIXED POINT VARIABLES (N-S)F1A01550 APPEARING TO THE LEFT OF EQUAL SIGNS.F1A01560 05101 FRVRMX SYN 3000*TMFACT/TNFACT NUMBER OF FIXED POINT VARIABLES (N-S)F1A01570 APPEARING TO THE RIGHT OF EQUAL SIGNSF1A01580 12202 FRTGMX SYN 6000*TMFACT/TNFACT NUMBER OF I-TAU TAGS. F1A01590 00257 FRSBMX SYN 200*TMFACT/TNFACT NUMBER OF ARITHMETIC STAT. FUNCTIONS.F1A01600 00235 SBDFMX SYN 180*TMFACT/TNFACT NUMBER OF SUBPROGRAM DEFINITIONS. F1A01610 02032 TIFGMX SYN 1200*TMFACT/TNFACT NUMBER OF IF AND GO TO STATEMENTS. F1A01620 01553 TRADMX SYN 1000*TMFACT/TNFACT NUMBER OF BRANCHES IN COMPUTED AND F1A01630 ASSIGNED GO TO'S. F1A01640 05101 TEIFMX SYN 3000*TMFACT/TNFACT NUMBER EXTERNAL FORMULA NUMBERS. F1A01650 12202 CMMNMX SYN 6000*TMFACT/TNFACT NUMBER OF COMMON VARIABLES. F1A01660 05101 FRETMX SYN 3000*TMFACT/TNFACT NUMBER OF FREQUENCY ESTIMATES. F1A01670 05101 EQITMX SYN 3000*TMFACT/TNFACT NUMBER OF EQUIVALENCED VARIABLES. F1A01680 00044 ENDIMX SYN 36 NUMBER OF END CARD SETTINGS. F1A01690 03047 FLCNMX SYN 1800*TMFACT/TNFACT NUMBER OF FLOATING POINT VARIABLES. F1A01700 00536 FXCNMX SYN 400*TMFACT/TNFACT NUMBER OF FIXED POINT VARIABLES. F1A01710 00536 TAU1MX SYN 400*TMFACT/TNFACT NUMBER OF 1 DIMENSIONAL SYMBOLIC TAGSF1A01720 00473 TAU2MX SYN 360*TMFACT/TNFACT NUMBER OF 2 DIMENSIONAL SYMBOLIC TAGSF1A01730 00406 TAU3MX SYN 300*TMFACT/TNFACT NUMBER OF 3 DIMENSIONAL SYMBOLIC TAGSF1A01740 00536 DIM1MX SYN 400*TMFACT/TNFACT NUMBER OF ARRAYS OF 1 DIMENSION. F1A01750 00536 DIM2MX SYN 400*TMFACT/TNFACT NUMBER OF ARRAYS OF 2 DIMENSIONS. F1A01760 00473 DIM3MX SYN 360*TMFACT/TNFACT NUMBER OF ARRAYS OF 3 DIMENSIONS. F1A01770 00203 DLT1MX SYN 150*TMFACT/TNFACT NUMBER OF DP-CA ARRAYS. F1A01780 00536 DLT2MX SYN 400*TMFACT/TNFACT NUMBER OF DP-CA NON-SUBSCRIPTED F1A01790 VARIABLES. F1A01800 F1A01810 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 4 DEFINITIONS OF MAXIMUM SIZES FOR TABLE BUFFERS. F1A01830 F1A01840 00157 FREGSZ SYN 111 SIZE OF FORMULA REGION. F1A01850 00014 FTBFSZ SYN 12 FT BUFFER LENGTH. F1A01860 00310 CITSIZ SYN 200 LENGTH OF EACH CIT BUFFER. F1A01870 00023 BOLSIZ SYN 19 LENGTH OF BOOLEAN OPERATION CODE TABLE. F1A01880 06654 BFSZ SYN 4000*BMFACT/BNFACT TEMPORARY FORMAT BUFFER. F1A01890 00257 FRMTSZ SYN 200*BMFACT/BNFACT FORMAT. F1A01900 00257 CLSBSZ SYN 200*BMFACT/BNFACT CLOSUB. F1A01910 00332 NONXSZ SYN 250*BMFACT/BNFACT NONEXC. F1A01920 00127 STOPSZ SYN 100*BMFACT/BNFACT TSTOPS. F1A01930 00257 FMTNSZ SYN 200*BMFACT/BNFACT FMTEFN. F1A01940 00257 CALLSZ SYN 200*BMFACT/BNFACT CALLFN. F1A01950 00257 HLRGSZ SYN 200*BMFACT/BNFACT HOLARG. F1A01960 00127 DOLPSZ SYN 100*BMFACT/BNFACT TDO. F1A01970 00203 FRVLSZ SYN 150*BMFACT/BNFACT FORVAL. F1A01980 00406 FRVRSZ SYN 300*BMFACT/BNFACT FORVAR. F1A01990 01015 FRTGSZ SYN 600*BMFACT/BNFACT FORTAG. F1A02000 00203 DLT1SZ SYN DLT1MX DLST1 (SIZ). F1A02010 00536 DLT2SZ SYN DLT2MX DLST2 (SIZ). F1A02020 00536 DIM1SZ SYN DIM1MX DIM1 (SIZ). F1A02030 00536 DIM2SZ SYN DIM2MX DIM2 (SIZ). F1A02040 00473 DIM3SZ SYN DIM3MX DIM3 (SIZ). F1A02050 03047 FLCNSZ SYN FLCNMX FLOCON. F1A02060 00536 FXCNSZ SYN FXCNMX FIXCON. F1A02070 00536 TAU1SZ SYN TAU1MX TAU1 (I-TAU). F1A02080 00473 TAU2SZ SYN TAU2MX TAU2 (I-TAU). F1A02090 00406 TAU3SZ SYN TAU3MX TAU3 (I-TAU). F1A02100 00257 FRSBSZ SYN FRSBMX FORSUB. F1A02110 00235 SBDFSZ SYN SBDFMX SUBDEF. F1A02120 00332 TRADSZ SYN 250*BMFACT/BNFACT TRAD. F1A02130 00406 TIFGSZ SYN 300*BMFACT/BNFACT TIFGO. F1A02140 01015 TEIFSZ SYN 600*BMFACT/BNFACT TEIFNO. F1A02150 01274 CMMNSZ SYN 800*BMFACT/BNFACT COMMON. F1A02160 00127 FRETSZ SYN 100*BMFACT/BNFACT FRET. F1A02170 00462 EQITSZ SYN 350*BMFACT/BNFACT EQUIT. F1A02180 00044 ENDISZ SYN ENDIMX END. F1A02190 00003 ELSESZ SYN 3 COMPENSATING VARIABLE. F1A02200 00000 OTHRSZ SYN 0 COMPENSATING VARIABLE. F1A02210 F1A02220 F1A02230 F1A02240 DEFINITIONS OF MAXIMUM SIZES FOR INTERNAL TABLES. F1A02250 F1A02260 10150 LAMBSZ SYN 4800*AMFACT/ANFACT LAMBDA. F1A02270 04064 SCRPSZ SYN LAMBSZ/2 OPTIMIZED LAMBDA. F1A02280 00746 ALPHSZ SYN 556*AMFACT/ANFACT ALPHA. F1A02290 02032 BETASZ SYN LAMBSZ/4 BETA. F1A02300 00151 SGMASZ SYN 120*AMFACT/ANFACT SIGMA1. F1A02310 00257 RGRGSZ SYN 200*AMFACT/ANFACT ARGREG. F1A02320 F1A02330 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 5 DEFINITION OF ORIGIN FOR TABLES AND BUFFERS (TABORG). F1A02350 F1A02360 12522 TABLSA SYN 6*TAU3SZ+4*TAU2SZ+2*TAU1SZ+1+FXCNSZ+FLCNSZ F1A02370 05615 TABLSB SYN 2*DLT1SZ+DLT2SZ+2*DIM1SZ+2*DIM2SZ+3*DIM3SZ F1A02380 12353 TABLSC SYN LAMBSZ+BETASZ+SGMASZ F1A02390 00517 TABLSD SYN CLSBSZ+SBDFSZ+ELSESZ F1A02400 03320 TABLSE SYN NONXSZ+STOPSZ+FRETSZ+FRMTSZ+2*TIFGSZ+TRADSZ+5*DOLPSZ F1A02410 03651 TABLSF SYN TEIFSZ+2*FRSBSZ+HLRGSZ+FMTNSZ+ENDISZ+CMMNSZ F1A02420 04064 TABLSG SYN 2*FRVRSZ+2*FRVLSZ+FRTGSZ+2*EQITSZ+CALLSZ+OTHRSZ+2 F1A02430 46706 TABLSH SYN TABLSA+TABLSB+TABLSC+TABLSD+TABLSE+TABLSF+TABLSG F1A02440 F1A02450 24671 TABORG SYN TOPTAB-TABLSH ORIGIN FOR TABLE BUFFERS. F1A02460 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 6 * SECTION ONE * COMMON BLOCK * RECORD 9F13 * F1A02570 00102 ORG SYSCUR $F1A02580 BINARY CARD NO. 9F130000 00102 112601030000 BCI 1,9F1300 $F1A02600 73666 ORG (LODR) $F1A02610 BINARY CARD NO. 9F130001 73666 1 00202 0 06127 TXI INITIL,,130 ENTRY POINT,,RECORD NUMBER F1A02620 F1A02630 F1A02640 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1A02650 F1A02660 ABS F1A02670 03734 ORGONE ORG BOTMEM F1A02680 F1A02690 TABLE PARAMETERS FOR CORE AND TAPE TABLES GENERATED BY F1A02700 SECTION ONE. F1A02710 F1A02720 PARAMETERS FOR USE BY SECTION 1 PRIME AND 1 DOUBLE PRIME.F1A02730 F1A02740 F1A02750 WORD CONTAINING LAST EXTERNAL FORMULA NUMBER AND LAST F1A02760 INTERNAL FORMULA NUMBER. F1A02770 BINARY CARD NO. 9F130002 03734 0 00000 0 00000 EIFNO PZE **,,** EXTERNAL,,INTERNAL FORMULA NUMBER. F1A02780 F1A02790 03735 0 00000 4 00000 EIFLOC PZE **,TAGC,** LOCATION OF TEIFNO TABLE,,WORD COUNT F1A02800 03736 0 00000 2 00000 TIFLOC PZE **,TAGB,** LOCATION OF TIFGO TABLE,,WORD COUNT F1A02810 03737 0 00000 2 00000 TRDLOC PZE **,TAGB,** LOCATION OF TRAD TABLE,,WORD COUNT F1A02820 03740 0 00000 2 00000 TDOLOC PZE **,TAGB,** LOCATION OF TDO TABLE,,WORD COUNT F1A02830 03741 0 00000 2 00000 FRTLOC PZE **,TAGB,** LOCATION OF FRET TABLE,,WORD COUNT F1A02840 03742 0 00000 2 00000 EQTLOC PZE **,TAGB,** LOCATION OF EQUIT TABLE,,WORD COUNT F1A02850 03743 0 00000 4 00000 NXCLOC PZE **,TAGC,** LOCATION OF NONEXC TABLE,,WORD COUNT F1A02860 03744 0 00000 4 00000 STPLOC PZE **,TAGC,** LOCATION OF TSTOPS TABLE,,WORD COUNT F1A02870 F1A02880 03745 0 00000 0 00000 ONLINE PZE **,,** ON-LINE INDICATOR,,LOCATION OF CALL. F1A02890 F1A02900 PARAMETER FOR THE FORSUB TABLE. F1A02910 03746 0 00000 0 00000 BK PZE **,,** FORSUB COUNTER. F1A02920 F1A02930 PARAMETER FOR THE COMPAIL (CIT) TABLE . F1A02940 03747 0 77754 0 00000 CITCNT PZE **,,-20 COUNT OF REC. ON TAPE,,BUFFER INCREMENT $F1A02950 F1A02960 03750 0 00000 0 00000 XEQCTR PZE ** COUNT OF EXECUTABLE STATEMENTS. F1A02970 F1A02980 03751 0 00000 0 00000 DGFLAG PZE ** SIGNAL FOR PRIOR DIAGNOSTIC CALL. F1A02990 F1A03000 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 7 * SECTION ONE * COMMON BLOCK * RECORD 9F13 * PARAMETERS FOR ALL TAPE TABLES EXCEPT COMPAIL (CIT) F1A03020 GENERATED BY SECTION ONE. F1A03030 ENTRIES ARE MADE IN THESE TABLES BY THE TET00 SUBROUTINE IN F1A03040 SECTION ONE. F1A03050 THE TAP00 SUBROUTINE IN SECTION ONE PRIME ASSEMBLES THE F1A03060 FRAGMENTS OF A GIVEN TABLE INTO AN ENTITY FOR LATER SECTIONS.F1A03070 F1A03080 EACH TABLE HAS AN IDENTIFICATION NUMBER WHICH IS ALSO AN F1A03090 INDEX TO ITS SET OF PARAMETERS IN THE FOLLOWING LIST. WHERE F1A03100 O = ORIGIN OF TABLE BUFFER, F1A03110 B = BUFFER CAPACITY, F1A03120 A = ADDRESS OF TABLE ENTRY, F1A03130 E = ENTRY LENGTH IN WORDS, F1A03140 C = COUNT OF BLOCKS PUT ON TAPE, F1A03150 P = PORTION OF BUFFER THAT IS FULL.F1A03160 T = TAPE FOR DUMPING BUFFERS. F1A03170 X = MARKS THE SPOT FOR ASSEMBLING F1A03180 THE TABLE IN SECTION I PRIME. F1A03190 M = MAXIMUM TABLE SIZE. F1A03200 N = NUMBER OF WORDS IN TABLE. F1A03210 L = LABEL ATTACHED TO THIS TABLE. F1A03220 F1A03230 03752 0 00000 4 45356 INTETX PZE TEIFBF,TAGA,** 00) O,,P F1A03240 03753 0 00001 2 03735 PZE EIFNO+1,TAGB,1 A,,E F1A03250 03754 0 00003 0 01015 PZE TEIFSZ,,TEIFTP B,,T F1A03260 03755 0 05101 4 24671 INTETA PZE TEIFNO,TAGC,TEIFMX X,,M F1A03270 03756 0 00000 0 00000 PZE **,,** C,,N F1A03280 03757 632531264546 BCI 1,TEIFNO L F1A03290 F1A03300 03760 0 00000 4 46373 PZE DOLPBF,TAGA,** 01) O,,P F1A03310 03761 0 00005 2 05552 PZE 1C+5,TAGB,5 A,,E F1A03320 BINARY CARD NO. 9F130003 03762 0 00003 0 00663 PZE DOLPSZ*5,,DOLPTP B,,T F1A03330 03763 0 05101 4 66477 INTETB PZE TDOTAB,TAGC,DOLPMX*5 X,,M F1A03340 03764 0 00000 0 00000 PZE **,,** C,,N F1A03350 03765 632446606060 BCI 1,TDO L F1A03360 F1A03370 03766 0 00000 4 44063 PZE TIFGBF,TAGA,** 02) O,,P F1A03380 03767 0 00002 2 05547 PZE 1C+2,TAGB,2 A,,E F1A03390 03770 0 00003 0 01014 PZE TIFGSZ*2,,TIFGTP B,,T F1A03400 03771 0 04064 4 62412 INTETC PZE TIFGOT,TAGC,TIFGMX*2 X,,M F1A03410 03772 0 00000 0 00000 PZE **,,** C,,N F1A03420 03773 633126274660 BCI 1,TIFGO L F1A03430 F1A03440 03774 0 00000 4 36251 PZE TRADBF,TAGA,** 03) O,,P F1A03450 03775 0 00001 2 05553 PZE 1G+1,TAGB,1 A,,E F1A03460 03776 0 00003 0 00332 PZE TRADSZ,,TRADTP B,,T F1A03470 03777 0 01553 4 60636 INTETD PZE TRADTB,TAGC,TRADMX X,,M F1A03480 04000 0 00000 0 00000 PZE **,,** C,,N F1A03490 04001 635121246060 BCI 1,TRAD L F1A03500 F1A03510 04002 0 00000 4 40504 PZE FRTGBF,TAGA,** 04) O,,P F1A03520 04003 0 00001 2 05605 PZE G+1,TAGB,1 A,,E F1A03530 04004 0 00003 0 01015 PZE FRTGSZ,,FRTGTP B,,T F1A03540 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 8 * SECTION ONE * COMMON BLOCK * RECORD 9F13 * 04005 0 12202 4 24671 INTETE PZE FORTAG,TAGC,FRTGMX X,,M F1A03550 04006 0 00000 0 00000 PZE **,,** C,,N F1A03560 04007 264651632127 BCI 1,FORTAG L F1A03570 F1A03580 BINARY CARD NO. 9F130004 04010 0 00000 4 37470 PZE FRVRBF,TAGA,** 05) O,,P F1A03590 04011 0 00002 2 05606 PZE G+2,TAGB,2 A,,E F1A03600 04012 0 00003 0 01014 PZE FRVRSZ*2,,FRVRTP B,,T F1A03610 04013 0 12202 4 12466 INTETF PZE FORVAR,TAGC,FRVRMX*2 X,,M F1A03620 04014 0 00000 0 00000 PZE **,,** C,,N F1A03630 04015 264651652151 BCI 1,FORVAR L F1A03640 F1A03650 04016 0 00000 4 37062 PZE FRVLBF,TAGA,** 06) O,,P F1A03660 04017 0 00002 2 05606 PZE G+2,TAGB,2 A,,E F1A03670 04020 0 00003 0 00406 PZE FRVLSZ*2,,FRVLTP B,,T F1A03680 04021 0 06654 4 24671 INTETG PZE FORVAL,TAGC,FRVLMX*2 X,,M F1A03690 04022 0 00000 0 00000 PZE **,,** C,,N F1A03700 04023 264651652143 BCI 1,FORVAL L F1A03710 F1A03720 04024 0 00000 4 51031 PZE FRETBF,TAGA,** 07) O,,P F1A03730 04025 0 00001 2 05553 PZE 1G+1,TAGB,1 A,,E F1A03740 04026 0 00003 0 00127 PZE FRETSZ,,FRETTP B,,T F1A03750 04027 0 05101 4 44057 INTETH PZE FRETTB,TAGC,FRETMX X,,M F1A03760 04030 0 00000 0 00000 PZE **,,** C,,N F1A03770 04031 265125636060 BCI 1,FRET L F1A03780 F1A03790 04032 0 00000 4 41521 PZE EQITBF,TAGA,** 08) O,,P F1A03800 04033 0 00002 2 05547 PZE 1C+2,TAGB,2 A,,E F1A03810 04034 0 00003 0 01144 PZE EQITSZ*2,,EQITTP B,,T F1A03820 04035 0 12202 4 12466 INTETI PZE EQUITT,TAGC,EQITMX*2 X,,M F1A03830 BINARY CARD NO. 9F130005 04036 0 00000 0 00000 PZE **,,** C,,N F1A03840 04037 255064316360 BCI 1,EQUIT L F1A03850 F1A03860 04040 0 00001 4 45077 CLSBCN PZE CLSBBF,TAGA,1 09( O,,P F1A03870 04041 0 00001 2 05605 PZE G+1,TAGB,1 A,,E F1A03880 04042 0 00003 0 00257 PZE CLSBSZ,,CLSBTP B,,T F1A03890 04043 0 12202 4 12466 INTETJ PZE CLOSUB,TAGC,CLSBMX X,,M F1A03900 04044 0 00000 0 00000 PZE **,,** C,,N F1A03910 04045 234346626422 BCI 1,CLOSUB L F1A03920 F1A03930 THE CLOSUB TABLE HAS ONE PRESET ENTRY OF (FPT). F1A03940 (FPT) IS A FLOATING POINT TRAP SUBROUTINE CALLED FOR F1A03950 BY MAIN PROGRAMS COMPILED BY FORTRAM. F1A03960 F1A03970 04046 0 00000 4 42665 PZE FRMTBF,TAGA,** 10) O,,P F1A03980 04047 0 00001 2 05605 PZE G+1,TAGB,1 A,,E F1A03990 04050 0 00003 0 06654 PZE BFSZ,,FRMTTP B,,T F1A04000 04051 0 12202 4 61375 INTETK PZE FORMAT,TAGC,FRMTMX X,,M F1A04010 04052 0 00000 0 00000 PZE **,,** C,,N F1A04020 04053 264651442163 BCI 1,FORMAT L F1A04030 F1A04040 04054 0 00000 4 43144 SBDFCN PZE SBDFBF,TAGA,** 11) O,,P F1A04050 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 9 * SECTION ONE * COMMON BLOCK * RECORD 9F13 * 04055 0 00001 2 05553 PZE 1G+1,TAGB,1 A,,E F1A04060 04056 0 00003 0 00235 PZE SBDFSZ,,SBDFTP B,,T F1A04070 04057 0 00235 4 43144 INTETL PZE SUBDEF,TAGC,SBDFMX X,,M F1A04080 04060 0 00000 0 00000 PZE **,,** C,,N F1A04090 04061 626422242526 BCI 1,SUBDEF L F1A04100 F1A04110 04062 0 00000 4 47256 PZE CMMNBF,TAGA,** 12) O,,P F1A04120 04063 0 00001 2 05553 PZE 1G+1,TAGB,1 A,,E F1A04130 BINARY CARD NO. 9F130006 04064 0 00003 0 01274 PZE CMMNSZ,,CMMNTP B,,T F1A04140 04065 0 12202 4 61375 INTETM PZE COMMON,TAGC,CMMNMX X,,M F1A04150 04066 0 00000 0 00000 PZE **,,** C,,N F1A04160 04067 234644444645 BCI 1,COMMON L F1A04170 F1A04180 04070 0 00000 4 50552 PZE HLRGBF,TAGA,** 13) O,,P F1A04190 04071 0 00001 2 05553 PZE 1G+1,TAGB,1 A,,E F1A04200 04072 0 00003 0 00257 PZE HLRGSZ,,HLRGTP B,,T F1A04210 04073 0 06116 4 12466 INTETN PZE HOLARG,TAGC,HLRGMX X,,M F1A04220 04074 0 00000 0 00000 PZE **,,** C,,N F1A04230 04075 304643215127 BCI 1,HOLARG L F1A04240 F1A04250 04076 0 00000 4 43530 PZE NONXBF,TAGA,** 14) O,,P F1A04260 04077 0 00001 2 03735 PZE EIFNO+1,TAGB,1 A,,E F1A04270 04100 0 00003 0 00332 PZE NONXSZ,,NONXTP B,,T F1A04280 04101 0 02032 4 42024 INTETO PZE NONEXC,TAGC,NONXMX X,,M F1A04290 04102 0 00000 0 00000 PZE **,,** C,,N F1A04300 04103 454645256723 BCI 1,NONEXC L F1A04310 F1A04320 04104 0 00000 4 43401 PZE STOPBF,TAGA,** 15) O,,P F1A04330 04105 0 00001 2 03735 PZE EIFNO+1,TAGB,1 A,,E F1A04340 04106 0 00003 0 00127 PZE STOPSZ,,STOPTP B,,T F1A04350 04107 0 02032 4 37771 INTETP PZE TSTOPS,TAGC,STOPMX X,,M F1A04360 04110 0 00000 0 00000 PZE **,,** C,,N F1A04370 04111 636263464762 BCI 1,TSTOPS L F1A04380 F1A04390 BINARY CARD NO. 9F130007 04112 0 00000 4 36603 PZE CALLBF,TAGA,** 16) O,,P F1A04400 04113 0 00001 2 05557 PZE CALLNM+1,TAGB,1 A,,E F1A04410 04114 0 00003 0 00257 PZE CALLSZ,,CALLTP B,,T F1A04420 04115 0 04064 4 12466 INTETQ PZE CALLFN,TAGC,CALLMX X,,M F1A04430 04116 0 00000 0 00000 PZE **,,** C,,N F1A04440 04117 232143432645 BCI 1,CALLFN L F1A04450 F1A04460 04120 0 00000 4 35726 PZE FMTNBF,TAGA,** 17) O,,P F1A04470 04121 0 00001 2 05162 PZE SET+1,TAGB,1 A,,E F1A04480 04122 0 00003 0 00257 PZE FMTNSZ,,FMTNTP B,,T F1A04490 04123 0 03326 4 12466 INTETR PZE FMTEFN,TAGC,FMTNMX X,,M F1A04500 04124 0 00000 0 00000 PZE **,,** C,,N F1A04510 04125 264463252645 BCI 1,FMTEFN L F1A04520 F1A04530 04126 0 00000 0 00000 PZE 18) O,,P TSKIPS TABLE. F1A04540 04127 0 00000 0 00000 PZE A,,E NOT USED IN F1A04550 04130 0 00000 0 00000 PZE B,,T 709/7090 F1A04560 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 10 * SECTION ONE * COMMON BLOCK * RECORD 9F13 * 04131 0 00000 0 00000 PZE X,,M FORTRAN. F1A04570 04132 0 00000 0 00000 PZE C,,N F1A04580 04133 606060606060 BCI 1, L F1A04590 F1A04600 04134 0 00000 4 36205 ENDICN PZE ENDIBF,TAGA,** 19) O,,P F1A04610 04135 0 00001 2 05605 PZE G+1,TAGB,1 A,,E F1A04620 04136 0 00003 0 00044 PZE ENDISZ,,ENDITP B,,T F1A04630 04137 0 00044 4 12466 INTETT PZE ENDTAB,TAGC,ENDIMX X,,M F1A04640 BINARY CARD NO. 9F130008 04140 0 00000 0 00000 PZE **,,** C,,N F1A04650 04141 254524606060 BCI 1,END L F1A04660 F1A04670 04142 BSS 6 EXPANSION SPACE. F1A04680 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 11 * SECTION ONE * COMMON BLOCK * RECORD 9F13 * PARAMETERS FOR ALL CORE TABLES WHICH ARE GENERATED AND F1A04700 SEARCHED BY THE TBSR00 (TABLE SEARCH) SUBROUTINE. F1A04710 ALL OF THESE TABLES AND THEIR PARAMETERS EXCEPT SIGMA ARE F1A04720 LEFT IN CORES FOR SECTION ONE PRIME. F1A04730 F1A04740 F1A04750 ENTRY TO THE TBSR00 ROUTINE IS BY TSX TO ....IX WHERE ....IX F1A04760 IS THE LAST WORD OF THE BLOCK OF PARAMETERS ASSOCIATED WITH F1A04770 A GIVEN TABLE. THE PARAMETERS ARE... F1A04780 *** = TXH/TXL OP SWITCH FOR DIMS, F1A04790 ARG1 = LOCATION OF 1ST ARGUMENT, F1A04800 L = LENGTH OF ARGUMENT, F1A04810 NCA = NEXT CORE ADDRESS, F1A04820 N = CURRENT NUMBER OF ENTRIES, F1A04830 FCA = 1ST CORE ADDRESS, F1A04840 J = MAXIMUM NUMBER OF ENTRIES, F1A04850 EP = ENTRY POINT TO TBSR00. F1A04860 ID = IDENTIFICATION FOR DIAG. F1A04870 F1A04880 F1A04890 BINARY CARD NO. 9F130009 04150 -3 00001 0 05605 TXL G+1,,1 FXCN) *** ARG1,,L F1A04900 04151 0 00000 0 60076 PZE FXCNBF+1,,** NCA,,N F1A04910 04152 0 00536 0 60075 PZE FXCNBF,,FXCNSZ FCA,,J F1A04920 04153 1 77765 0 05370 FXCNIX TXI TBSR00,0,-11 TXI EP,,ID F1A04930 F1A04940 04154 -3 00001 0 05605 TXL G+1,,1 FLCN) *** ARG1,,L F1A04950 04155 0 00000 0 25043 PZE FLCNBF+1,,** NCA,,N F1A04960 04156 0 03047 0 25042 PZE FLCNBF,,FLCNSZ FCA,,J F1A04970 04157 1 77766 0 04230 FLCNIX TXI CORR01,0,-10 TXI EP,,ID F1A04980 F1A04990 04160 -3 00002 0 05564 TXL E+3+2,,2 TAU1) *** ARG1,,L F1A05000 04161 0 00000 0 51162 PZE TAU1BF+2,,** NCA,,N F1A05010 04162 0 00536 0 51160 PZE TAU1BF,,TAU1SZ FCA,,J F1A05020 04163 1 77767 0 05370 TAU1IX TXI TBSR00,0,-9 TXI EP,,ID F1A05030 F1A05040 04164 -3 00004 0 05566 TXL E+3+4,,4 TAU2) *** ARG1,,L F1A05050 04165 0 00000 0 52460 PZE TAU2BF+4,,** NCA,,N F1A05060 04166 0 00473 0 52454 PZE TAU2BF,,TAU2SZ FCA,,J F1A05070 04167 1 77770 0 05370 TAU2IX TXI TBSR00,0,-8 TXI EP,,ID F1A05080 F1A05090 04170 -3 00006 0 05570 TXL E+3+6,,6 TAU3) *** ARG1,,L F1A05100 04171 0 00000 0 55036 PZE TAU3BF+6,,** NCA,,N F1A05110 04172 0 00406 0 55030 PZE TAU3BF,,TAU3SZ FCA,,J F1A05120 04173 1 77771 0 05370 TAU3IX TXI TBSR00,0,-7 TXI EP,,ID F1A05130 F1A05140 04174 -3 00001 0 05573 TXLOP TXL E+11+1,,1 SIG1) *** ARG1,,L F1A05150 04175 0 00000 0 00000 PZE **,,** NCA,,N F1A05160 BINARY CARD NO. 9F130010 04176 0 00151 0 24671 PZE SIGMA1,,SGMASZ FCA,,J F1A05170 04177 1 77772 0 05370 SIG1IX TXI TBSR00,0,-6 TXI EP,,ID F1A05180 F1A05190 04200 3 00002 0 05547 TXHOP TXH 1C+2,,2 DIM1) *** ARG1,,L F1A05200 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 12 * SECTION ONE * COMMON BLOCK * RECORD 9F13 * 04201 0 00000 0 30113 PZE DIM1BF+2,,** NCA,,N F1A05210 04202 0 00536 0 30111 ORGDM1 PZE DIM1BF,,DIM1SZ FCA,,J F1A05220 04203 1 77775 0 05370 DIM1IX TXI TBSR00,0,-3 TXI EP,,ID F1A05230 F1A05240 04204 3 00002 0 05547 TXH 1C+2,,2 DIM2) *** ARG1,,L F1A05250 04205 0 00000 0 31407 PZE DIM2BF+2,,** NCA,,N F1A05260 04206 0 00536 0 31405 ORGDM2 PZE DIM2BF,,DIM2SZ FCA,,J F1A05270 04207 1 77776 0 05370 DIM2IX TXI TBSR00,0,-2 TXI EP,,ID F1A05280 F1A05290 04210 3 00003 0 05550 TXH 1C+3,,3 DIM3) *** ARG1,,L F1A05300 04211 0 00000 0 32704 PZE DIM3BF+3,,** NCA,,N F1A05310 04212 0 00473 0 32701 PZE DIM3BF,,DIM3SZ FCA,,J F1A05320 04213 1 77777 0 05370 DIM3IX TXI TBSR00,0,-1 TXI EP,,ID F1A05330 F1A05340 04214 3 00002 0 05547 TXH 1C+2,,2 DLT1) *** ARG1,,L F1A05350 04215 0 00000 0 34564 PZE DLT1BF+2,,** NCA,,N F1A05360 04216 0 00203 0 34562 PZE DLT1BF,,DLT1SZ FCA,,J F1A05370 04217 1 77764 0 05370 DLIST1 TXI TBSR00,,-12 TXI EP,,ID F1A05380 F1A05390 04220 -3 00001 0 05562 TXL E+3,,1 DLT2) *** ARG1,,L F1A05400 04221 0 00000 0 35171 PZE DLT2BF+1,,** NCA,,N F1A05410 04222 0 00536 0 35170 PZE DLT2BF,,DLT2SZ FCA,,J F1A05420 04223 1 77763 0 05370 DLIST2 TXI TBSR00,0,-13 TXI EP,,ID F1A05430 F1A05440 04224 BSS 4 EXPANSION SPACE. F1A05450 F1A05460 TEST FOR IMPROPERLY WRITTEN COMPLEX CONSTANT WHICH IS F1A05470 ABOUT TO BE ENTERED AS A SINGLE PRECISION STANDARD F1A05480 FORTRAN CONSTANT. F1A05490 BINARY CARD NO. 9F130011 04230 0500 00 0 04521 CORR01 CLA MODECL F1A05500 04231 0402 00 0 05141 SUB L(I) TEST FOR CA MODE F1A05510 04232 -0100 00 0 05370 TNZ TBSR00 NO, CONTINUE F1A05520 04233 0020 00 0 13302 TRA ICM6 YES, ERROR, GO TO DIAGNOSTIC F1A05530 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 13 * SECTION ONE * COMMON BLOCK * RECORD 9F13 * MACHINE ERROR CALLS TO DIAGNOSTIC. F1A05550 F1A05560 F1A05570 04234 1 00000 0 73603 MRTN77 TXI (DIAG),,0 *GO TO MACHINE ERROR DIAGNOSTIC. F1A05580 CHARACTER IN AC IS GREATER THAN 77 OCTAL. F1A05590 SECTION ONE SCANS A SATEMENT 1 CHARACTER AT A TIME. F1A05600 THE AC WAS CLEARED PRIOR TO SHIFTING IN THE CURRENT F1A05610 SIX BITS. A COMPARISION WAS MADE WITH A CELL CONTAINING F1A05620 THE NUMBER 77 OCTAL AND THE AC GREATER THAN BRANCH WAS F1A05630 TAKEN. 77 OCTAL IS AN INTERNAL CHARACTER USED AS AN F1A05640 END OF STATEMENT FLAG. F1A05650 F1A05660 04235 1 00000 0 73603 OCTL12 TXI (DIAG),,0 *GO TO MACHINE ERROR DIAGNOSTIC. F1A05670 STATEMENT SCAN IS THE SAME THE ONE DESCRIBED IN MRTN77 F1A05680 ERROR. HOWEVER, THIS TIME THE AC CONTAINS THE NUMBER F1A05690 12 OCTAL, AN ILLEGAL CHARACTER IN ANY SENSE. F1A05700 F1A05710 04236 1 00000 0 73603 TXI (DIAG),,0 NOT USED. F1A05720 F1A05730 04237 1 00000 0 73603 TXI (DIAG),,0 NOT USED. F1A05740 F1A05750 F1A05760 F1A05770 F1A05780 F1A05790 CALLS TO THE SECTION I DIAGNOSTIC THAT WOULD F1A05800 FALL INTO DUPLICATE LOCATION NUMBERS IN F1A05810 RECORDS 9F10 AND 9F11. F1A05820 F1A05830 04240 0074 00 4 04504 ER0033 TSX DIAG,4 *N.A. STATEMENT NOT FOUND IN DICTIONARY. F1A05840 F1A05850 04241 BSS 4 ADDITIONAL SPACE. F1A05860 F1A05870 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 14 * SECTION ONE * COMMON BLOCK * RECORD 9F13 * F1A05890 RE-ENTRY TO PASS1 OR PASS 2. F1A05900 F1A05910 BINARY CARD NO. 9F130012 04245 3 00000 0 06323 PASS1 TXH PASS2,,0 (TXH-TXL) SWITCH FOR PASS 1 OR PASS 2. F1A05920 04246 -0534 00 4 06354 LXD LDFT2,4 HAS AN EOF BEEN SENSED ON BCD INPUT TAPE. F1A05930 04247 3 00000 4 06405 TXH LDFR0,4,0 *NO, GET NEXT STATEMENT. F1A05940 04250 0020 00 0 06200 TRA CLOSP1 *YES, CLOSE OUT PASS 1 AND GET PASS 2. F1A05950 F1A05960 *************************************************************F1A05961 F1A05962 CIT00 / CALLS I/O ROUTINE. F1A05970 F1A05980 ENTERS FOUR WORD CITS INTO THE CIT BUFFER AND F1A05990 DUMPS A BUFFER WHEN IT BECOMES FULL. F1A06000 THE ROUTINE ALSO MAPS ARITHMETIC INSTRUCTIONS F1A06010 INTO BOOLEAN OPERATIONS IF THE CURRENT STATEMENT F1A06020 MODE IS BOOLEAN. F1A06030 F1A06040 04251 0520 00 0 03751 CIT00 ZET DGFLAG HAS THERE BEEN A DIAGNOSTIC. F1A06050 04252 0020 00 0 05630 TRA BERPCH GO TO BOOLEAN TEST PATCH $F1A06060 04253 0634 00 1 04347 SXA CITJ1,1 SAVE IR1 AND IR2. F1A06070 04254 0634 00 2 04350 SXA CITJ2,2 F1A06080 04255 0020 00 0 05621 TRA COMP1 TEST FOR FUNCTION OR SUBROUTINE $F1A06090 04256 0520 00 0 04257 ZET *+1 IS THIS A CLOSE OUT CALL. F1A06100 04257 3 77470 2 04311 CITA0 TXH CITC0,2,-CITSIZ NO, IS THE BUFFER FULL. F1A06110 04260 0634 00 4 04305 SXA CITB0,4 YES. F1A06120 04261 0534 00 1 04313 LXA CITD0,1 GET CURRENT BUFFER ORIGIN. F1A06130 04262 0634 00 1 04352 SXA CIT01,1 SET IN I/O COMMAND. F1A06140 04263 -3 00000 2 04305 TXL CITB0,2,0 *NOTHING TO WRITE. F1A06150 04264 -0754 00 2 00000 PXD ,2 GET TRUE NUMBER. F1A06160 04265 -0737 00 2 00000 PDC ,2 F1A06170 04266 -0634 00 2 04352 SXD CIT01,2 SET I/O COMMAND WORD COUNT. F1A06180 04267 0074 00 4 73606 TSX (TAPE),4 WRITE CIT RECORD. F1A06190 04270 0 40001 0 04352 PZE CIT01,,(WBNP) F1A06200 04271 0 00002 0 04353 PZE CIT02,,CITTAP F1A06210 04272 0500 00 0 03747 CLA CITCNT INCREMENT CIT RECORD COUNT. F1A06220 BINARY CARD NO. 9F130013 04273 0400 00 0 05121 ADD L(1) F1A06230 04274 0601 00 0 03747 STO CITCNT F1A06240 04275 -3 21416 1 04277 TXL *+2,1,CITBUF SET NEW BUFFER ORIGIN. F1A06250 04276 1 77470 1 04300 TXI *+2,1,-CITSIZ F1A06260 04277 1 00310 1 04300 TXI *+1,1,CITSIZ F1A06270 04300 0634 00 1 04313 SXA CITD0,1 SET ADDRESSES IN ROUTINE. F1A06280 04301 1 00001 1 04302 TXI *+1,1,1 F1A06290 04302 0634 00 1 04320 SXA CITE0,1 F1A06300 04303 1 77774 1 04304 TXI *+1,1,-4 F1A06310 04304 0634 00 1 04327 SXA CITF0,1 F1A06320 04305 0774 00 4 00000 CITB0 AXT **,4 RESTORE LINKAGE. F1A06330 04306 0774 00 2 00000 AXT 0,2 RESET BUFFER INCREMENT. F1A06340 04307 -0520 00 0 04257 NZT CITA0 IS THIS A CLOSE OUT CALL. F1A06350 04310 0020 00 0 04346 TRA CITJ0 YES. F1A06360 04311 0774 00 1 00002 CITC0 AXT 2,1 NO, LOAD LOOP COUNT. F1A06370 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 15 * SECTION ONE * COMMON BLOCK * RECORD 9F13 * 04312 -0500 60 4 00001 CITC1 CAL* 1,4 GET FIRST (OR THIRD) WORD OF CIT. F1A06380 04313 0602 00 2 21416 CITD0 SLW CITBUF,2 STORE IN CURRENT BUFFER. F1A06390 04314 0500 00 4 00001 CLA 1,4 GET ADDRESS OF SECOND (OR FOURTH) F1A06400 04315 0771 00 0 00022 ARS 18 WORD OF CIT. F1A06410 04316 0621 00 0 04317 STA *+1 F1A06420 04317 -0500 00 0 00000 CAL ** GET WORD. F1A06430 04320 0602 00 2 21417 CITE0 SLW CITBUF+1,2 STORE IN CURRENT BUFFER. F1A06440 BINARY CARD NO. 9F130014 04321 1 77776 2 04322 TXI *+1,2,-2 INCREMENT BUFFER INDEX. F1A06450 04322 1 77777 4 04323 TXI *+1,4,-1 INCREMENT LINKAGE ADDRESS. F1A06460 04323 2 00001 1 04312 TIX CITC1,1,1 GET NEXT TWO WORDS OF CIT. F1A06470 04324 -0500 00 0 04521 CAL MODECL IS THIS A BOOLEAN STATEMENT. F1A06480 04325 0322 00 0 05134 ERA L(B) F1A06490 04326 -0100 00 0 04346 TNZ CITJ0 *NO. F1A06500 04327 -0500 00 2 21413 CITF0 CAL CITBUF-3,2 YES, GET THE OPERATION CODE. F1A06510 04330 -0340 00 0 05156 LAS ALL1 IS THIS AN ARITHMETIC STATEMENT FUNCTION. F1A06520 04331 0020 00 0 04333 TRA *+2 NO. F1A06530 04332 0020 00 0 04346 TRA CITJ0 YES, DO NOT MODIFY FLAG. F1A06540 04333 0602 00 0 05575 SLW ERASE SAVE DECREMENT, IF ANY. F1A06550 04334 0774 00 1 00023 AXT BOLSIZ,1 LOAD COUNT OF BOOLEAN OPERATION CODES. F1A06560 04335 0560 00 1 04404 CITG0 LDQ BTABL,1 GET FIRST (OR NEXT) DICTIONARY WORD AND F1A06570 04336 -0620 00 0 05575 SLQ ERASE SPLIT OF ALGEBRAIC OPERATION CODE. F1A06580 04337 -0340 00 0 05575 LAS ERASE ARE OPERATION CODES IDENTICAL. F1A06590 04340 0020 00 0 04342 TRA *+2 NO. F1A06600 04341 0020 00 0 04344 TRA CITH0 YES, MAP LOGICAL COUNTER PART. F1A06610 04342 2 00001 1 04335 TIX CITG0,1,1 NO, CONTINUE COMPARISON. F1A06620 04343 0074 00 4 04504 BER001 TSX DIAG,4 OPERATION CODE NOT IN DICTIONARY. F1A06630 04344 -0763 00 0 00022 CITH0 LGL 18 MOVE LOGICAL COUTERPART INTO DECREMENT. F1A06640 04345 -0620 60 0 04327 SLQ* CITF0 SET LOGICAL COUNTERPART IN CURRENT CIT. F1A06650 04346 -0634 00 2 03747 CITJ0 SXD CITCNT,2 SAVE BUFFER INCREMENT. F1A06660 BINARY CARD NO. 9F130015 04347 0774 00 1 00000 CITJ1 AXT **,1 RESTORE INDICES. F1A06670 04350 0774 00 2 00000 CITJ2 AXT **,2 F1A06680 04351 0020 00 4 00001 TRA 1,4 RETURN TO CALLER. F1A06690 F1A06700 04352 3 00000 0 00000 CIT01 IORT **,,** I/O COMMAND FOR WRITING CITS. F1A06710 04353 234644213143 CIT02 BCI 1,COMAIL COMPAIL LABEL. F1A06720 F1A06730 F1A06740 TABLE OF CORRESPONDENCE BETWEEN REAL ALGEBRA AND BOOLEAN. F1A06750 F1A06760 04354 BSS 5 SPACE FOR POSSIBLE ADDITIONAL ENTRIES... F1A06770 BINARY CARD NO. 9F130016 04361 233062234644 BCD 1CHSCOM F1A06780 04362 234321232143 BCD 1CLACAL F1A06790 04363 234362232143 BCD 1CLSCAL F1A06800 04364 262124465121 BCD 1FADORA F1A06810 04365 264447214521 BCD 1FMPANA F1A06820 04366 626346624366 BCD 1STOSLW F1A06830 04367 234644234644 BCD 1COMCOM F1A06840 04370 432450432450 BCD 1LDQLDQ F1A06850 04371 626724626724 BCD 1SXDSXD F1A06860 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 16 * SECTION ONE * COMMON BLOCK * RECORD 9F13 * 04372 636267636267 BCD 1TSXTSX F1A06870 04373 436724436724 BCD 1LXDLXD F1A06880 04374 476721476721 BCD 1PXAPXA F1A06890 04375 626422626422 BCD 1SUBSUB F1A06900 04376 626321626321 BCD 1STASTA F1A06910 04377 626350626350 BCD 1STQSTQ F1A06920 04400 635121635121 BCD 1TRATRA F1A06930 04401 477125477125 BCD 1PZEPZE F1A06940 04402 672321672321 BCD 1XCAXCA F1A06950 04403 456351456351 BCD 1NTRNTR F1A06960 04404 BTABL SYN * F1A06970 F1A06980 04404 0 00000 0 00000 BOOLIN PZE 0 CELL FOR BOOLEAN INDICATOR. F1A06990 F1A07000 *************************************************************F1A07001 F1A07002 TET00 / CALLS I/O ROUTINE. F1A07010 F1A07020 MAKES ENTRIES INTO THE CORE BUFFERS FOR F1A07030 VARIOUS TABLES AND DUMPS A BUFFER WHEN F1A07040 IT BECOMES FULL. F1A07050 F1A07060 04405 0520 00 0 03751 TET00 ZET DGFLAG HAS THERE BEEN A DIAGNOSTIC. F1A07070 04406 0020 00 1 00002 TRA 2,1 *YES, DO NOT MAKE ENTRY. F1A07080 BINARY CARD NO. 9F130017 04407 0634 00 1 04464 SXA TETX1,1 SAVE INDICES. F1A07090 04410 0634 00 2 04465 SXA TETX2,2 F1A07100 04411 0634 00 4 04466 SXA TETX4,4 F1A07110 04412 -0600 00 0 05617 STQ TEMP SAVE CONTENTS OF MQ. F1A07120 04413 0560 00 1 00001 LDQ 1,1 GET TABLE IDENTIFICATION. F1A07130 04414 -0600 00 0 05612 STQ TABNUM SAVE FOR POSSIBLE WRITE. F1A07140 04415 0200 00 0 05126 MPY L(6) F1A07150 04416 0131 00 0 00000 XCA F1A07160 04417 0737 00 1 00000 PAC ,1 F1A07170 04420 0500 00 1 03752 CLA INTETX,1 GET COUNT OF WORDS IN BUFFER. F1A07180 04421 0622 00 0 04425 STD TETA0 SET TEST FOR FULL BUFFER. F1A07190 04422 0500 00 1 03754 CLA INTETX+2,1 GET MAXIMUM BUFFER LENGTH. F1A07200 04423 0734 00 2 00000 PAX ,2 LOAD BUFFER LENGTH. F1A07210 04424 0520 00 0 04472 ZET TETCL IS THIS A CALL TO CLOSE OUT BUFFER. F1A07220 04425 3 00000 2 04452 TETA0 TXH TETC0,2,** *NO, IS BUFFER FULL. F1A07230 04426 0622 00 0 04445 STD TETB1 YES, SET TAPE ADDRESS. F1A07240 04427 0500 00 1 03752 CLA INTETX,1 GET BUFFER ADDRESS AND WORD COUNT. F1A07250 04430 0621 00 0 04474 STA TETIO+1 SET I/O COMMAND FOR WRITING. F1A07260 04431 0622 00 0 04474 STD TETIO+1 F1A07270 04432 -0320 00 0 05154 ANA 1BAR F1A07280 04433 0100 00 0 04447 TZE TETB2 *WORD COUNT OF BUFFER ZERO, NIL TO WRITE. F1A07290 04434 0500 00 1 03756 CLA INTETX+4,1 INCREMENT COUNT OF BUFFERS. F1A07300 BINARY CARD NO. 9F130018 04435 0400 00 0 05121 ADD L(1) DUMPED ON TAPE. F1A07310 04436 0621 00 1 03756 STA INTETX+4,1 SAVE COUNT. F1A07320 04437 0734 00 4 00000 PAX ,4 SET BUFFER NUMBER IN RECORD LABEL. F1A07330 04440 0400 00 0 04425 ADD TETA0 UPDATE COUNT OF WORDS ON TAPE. F1A07340 04441 0622 00 1 03756 STD INTETX+4,1 F1A07350 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 17 * SECTION ONE * COMMON BLOCK * RECORD 9F13 * 04442 -0634 00 4 05612 SXD TABNUM,4 F1A07360 04443 0074 00 4 73606 TSX (TAPE),4 DUMP BUFFER ON DESIGNATED TAPE. F1A07370 04444 0 40011 0 04473 TETB0 PZE TETIO,,(WBNC) OPERATION CODE MAY BECOME A PROCEED. F1A07380 04445 0 00000 1 03757 TETB1 PZE INTETX+5,1,** F1A07390 04446 0634 00 4 04471 SXA TETFLG,4 RESET NO DUMP FLAG. F1A07400 04447 0500 00 0 04472 TETB2 CLA TETCL IS THIS A CALL TO CLOSE OUT BUFFER. F1A07410 04450 0100 00 0 04463 TZE TETE0 *YES, DO NOT MAKE AN ENTRY. F1A07420 04451 0622 00 0 04425 STD TETA0 NO, RESET COUNT OF WORDS IN BUFFER. F1A07430 04452 -0535 00 4 04425 TETC0 LDC TETA0,4 LOAD 2S COMPLEMENT OF BUFFER WORD COUNT. F1A07440 04453 0500 00 1 03753 CLA INTETX+1,1 GET COUNT OF WORDS IN THIS TABLE ENTRY. F1A07450 04454 -0734 00 2 00000 PDX ,2 LOAD ENTRY LENGTH. F1A07460 04455 -0500 60 1 03753 TETD0 CAL* INTETX+1,1 GET A WORD OF THIS ENTRY. F1A07470 04456 0602 60 1 03752 SLW* INTETX,1 STORE IN TABLE BUFFER. F1A07480 04457 1 77777 4 04460 TXI *+1,4,-1 INCREMENT BUFFER REFERENCE. F1A07490 04460 2 00001 2 04455 TIX TETD0,2,1 DECREMENT ENTRY REFERENCE AND TEST COUNT. F1A07500 04461 -0500 00 0 04425 CAL TETA0 UPDATE COUNT OF WORDS IN BUFFER. F1A07510 04462 0400 00 1 03753 ADD INTETX+1,1 F1A07520 BINARY CARD NO. 9F130019 04463 0622 00 1 03752 TETE0 STD INTETX,1 F1A07530 04464 0774 00 1 00000 TETX1 AXT **,1 RESTORE INDICES. F1A07540 04465 0774 00 2 00000 TETX2 AXT **,2 F1A07550 04466 0774 00 4 00000 TETX4 AXT **,4 F1A07560 04467 0560 00 0 05617 LDQ TEMP RESTORE CONTENTS OF MQ. F1A07570 04470 0020 00 1 00002 TRA 2,1 *RETURN TO CALLER. F1A07580 F1A07590 04471 0 00000 0 00000 TETFLG PZE ** BUFFER DUMP FLAG. F1A07600 04472 0 00000 0 77777 TETCL PZE -1 CLOSE OUT BUFFER FLAG. F1A07610 F1A07620 04473 -0 00001 0 05612 TETIO IOCP TABNUM,,1 I/O COMMAND TO WRITE LABEL. F1A07630 04474 -1 00000 0 00000 IOCT **,,** I/O COMMAND TO WRITE BUFFER. $F1A07640 F1A07650 *************************************************************F1A07651 04475 0500 00 0 04514 RP2I CLA PS2L SET EXIT TO PASS TWO $F1A07653 04476 0020 00 0 04500 TRA *+2 $F1A07657 04477 0500 00 0 04513 D12CS CLA DIAGL SET EXIT TO SECTION ONE DIAGNOSTIC. $F1A07660 04500 0601 00 0 04502 STO 1TOCS+1 SETS EXIT FOR DISKS. $F1A07665 D 04501 0074 01 4 73600 1TOCS TSX (LOAD),4,1 CALLS THE ONE TO CS ROUTINE. $F1A07670 04502 0 00000 0 00000 PZE F1A07680 F1A07690 *************************************************************F1A07691 F1A07700 SUBROUTINE TO CALL THE SECTION I DIAGNOSTIC. F1A07710 F1A07720 04503 0774 00 4 00000 P1DXIT AXT 0,4 SET END OF SECTION ONE FLAG FOR DIAG. F1A07730 F1A07740 04504 -0634 00 4 03745 DIAG SXD ONLINE,4 SAVE LOCATION OF CALL. F1A07750 04505 -0520 00 0 04507 NZT *+2 IS SYSTEM TAPE POSITIONED AT DIAGNOSTIC. F1A07760 04506 0020 00 0 04477 TRA 1TOCS-2 *YES, READ IN DIAGNOSTIC. $F1A07770 04507 0074 00 4 73606 DGX1 TSX (TAPE),4 NO, SPACE OVER PASS 2. F1A07780 04510 0 20000 0 05072 PZE FRSP,,(SKBP) F1A07790 BINARY CARD NO. 9F130020 04511 0 00001 0 00000 PZE ,,SYSTAP F1A07800 04512 0020 00 0 04477 TRA 1TOCS-2 * READ IN DIAGNOSTIC. $F1A07810 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 18 * SECTION ONE * COMMON BLOCK * RECORD 9F13 * 04513 112601050000 DIAGL BCI 1,9F1500 $F1A07813 04514 112601040000 PS2L BCI 1,9F1400 $F1A07817 F1A07820 *************************************************************F1A07821 F1A07822 I/O COMMANDS USED BY PASS 2. F1A07830 F1A07840 F-REGION AND CONTROL INFORMATION. F1A07850 F1A07860 04515 3 00163 0 04524 IORT FREGON-4,,FREGSZ+4 LOADS BUFFER 1. F1A07870 04516 0 73250 2 00000 DCF PZE **,2,-FREGON ORIGIN OF CURRENT F-REGION,,2S COMPLIMENT.F1A07880 04517 3 00163 0 04707 IORT FREGON+FREGSZ,,FREGSZ+4 LOADS BUFFER 2. F1A07890 F1A07900 CURRENT CONTROL WORDS. F1A07910 F1A07920 04520 0 00000 0 00000 TLABEL PZE **,,** PROCESSOR ADDRESS,,F-SCAN POSITION. F1A07930 04521 0 00000 0 00000 MODECL PZE ** MODE INDICATOR. F1A07940 04522 0 00000 0 00000 EFN PZE **,,0 EXTERNAL FORMULA NUMBER IN BINARY (IF ANY)F1A07950 04523 0 00000 0 00000 FIRST5 PZE ** FIRST 5 CHARACTERS OF STATEMENT IN BCD. F1A07960 F1A07970 F-REGION DEFINITION - FORMULA REGION. F1A07980 04524 BEGFRG SYN * ORIGIN OF FT-REGION. F1A07990 04524 BSS 4 CONTROL WORD RESERVATION. F1A08000 04530 FREGON BSS FREGSZ STATEMENT RESERVATION. F1A08010 04707 FRGBF2 SYN * ORIGIN OF SECOND F-REGION BUFFER. F1A08020 04707 BSS FREGSZ+4 BUFFER 2 FOR F-REGION. F1A08030 F1A08040 05072 ENDFRG SYN * END OF F-REGION. F1A08050 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1A08060 F1A08070 COMMON/3-CONSTANTS AND VARIABLES= F1A08080 F1A08090 05072 COMCON BSS 0 F1A08100 F1A08110 BINARY CARD NO. 9F130021 05072 0 00000 0 00001 FRSP PZE 1,,0 CONTROL WORD TO FORWARD SPACE 1 RECORD. F1A08120 05073 -0 00000 0 00001 BKSP MZE 1,,0 CONTROL WORD TO BACKSPACE 1 RECORD. F1A08130 05074 0 77777 0 00000 REWD PZE ,,-1 CONTROL WORD TO REWIND TAPE. F1A08140 F1A08150 05075 -0 00001 0 05156 TRAILR IOCP ALL1,,1 F1A08160 05076 -0 00001 0 05156 IOCP ALL1,,1 F1A08170 05077 -0 00001 0 05156 IOCP ALL1,,1 F1A08180 05100 -1 00001 0 05156 IOCT ALL1,,1 $F1A08190 05101 442151422551 TRAIL BCI 1,MARKER F1A08200 F1A08210 05102 256725506060 WTXQ5 BCI 1,EXEQ LABEL FOR EXEQUTABLE STATEMENT RECORDS. F1A08220 05103 254626600160 EXEQF BCI 1,EOF 1 END-OF-FILE LABEL. F1A08230 F1A08240 *************************************************************F1A08250 F1A08260 05104 +000000000012 TEN OCT 12 (1010) - CTEST-11 F1A08270 05105 +000000000077 ENDMK OCT 77 111111 - CTEST-10 F1A08280 05106 +000000000074 OPEN OCT 74 ( - CTEST-9 F1A08290 05107 +000000000073 COMMA OCT 73 , - CTEST-8 F1A08300 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 19 * SECTION ONE * COMMON BLOCK * RECORD 9F13 * 05110 +000000000034 CLOS OCT 34 ) - CTEST-7 F1A08310 05111 +000000000013 EQUAL OCT 13 = - CTEST-6 F1A08320 05112 +000000000040 11Z OCT 40 - - CTEST-5 F1A08330 05113 +000000000061 SLASH OCT 61 / - CTEST-4 F1A08340 05114 +000000000033 POINT OCT 33 . - CTEST-3 F1A08350 05115 +000000000020 12Z OCT 20 + - CTEST-2 F1A08360 05116 +000000000054 STAR OCT 54 * - CTEST-1 F1A08370 05117 CTEST BSS 0 ADDRESS USED FOR INDEXING ABOVE. F1A08380 F1A08390 05117 +000000077777 MASK2 OCT 77777 2**15-1 -ARITHMETIC. F1A08400 BINARY CARD NO. 9F130022 05120 000000000000 L(0) BCD 1000000 0 F1A08410 05121 000000000001 L(1) BCD 1000001 1 F1A08420 05122 000000000002 L(2) BCD 1000002 2 F1A08430 05123 000000000003 L(3) BCD 1000003 3 F1A08440 05124 000000000004 L(4) BCD 1000004 4 F1A08450 05125 000000000005 L(5) BCD 1000005 5 F1A08460 05126 000000000006 L(6) BCD 1000006 6 F1A08470 05127 000000000007 L(7) BCD 1000007 7 F1A08480 05130 000000000010 L(8) BCD 1000008 8 F1A08490 05131 000000000011 L(9) BCD 1000009 9 F1A08500 05132 +000000000014 MINUS OCT 14 - F1A08510 05133 000000000021 L(A) BCD 100000A F1A08520 05134 000000000022 L(B) BCD 100000B F1A08530 05135 000000000023 L(C) BCD 100000C CONSTANT USED BY PASS1 AND DIAG. F1A08540 05136 000000000024 L(D) BCD 100000D F1A08550 05137 000000000026 L(F) BCD 100000F CONSTANT USED BY PASS2 AND DIAG. F1A08560 05140 000000000030 L(H) BCD 100000H H F1A08570 05141 000000000031 L(I) BCD 100000I F1A08580 05142 000000000043 L(L) BCD 100000L F1A08590 05143 000000000046 L(O) BCD 100000O O (ALPHABETIC) F1A08600 05144 +000000000053 SPECOP OCT 53 00000$ F1A08610 05145 +000000000060 BLANK OCT 60 000000000060 F1A08620 BINARY CARD NO. 9F130023 05146 +000000006712 IFSYM OCT 6712 CONSTANT USED BY PASS2 AND DIAG. F1A08630 05147 -271260606060 IFSYM2 OCT 671260606060 F1A08640 05150 -311260606060 CALLSM OCT 711260606060 F1A08650 05151 +000000007112 CALLER OCT 7112 CONSTANT USED BY PASS2 AND DIAG. F1A08660 05152 +000001000000 2E18 OCT 1000000 DECREMENT=1 F1A08670 05153 006060606060 5BLANS BCD 10 006060606060 F1A08680 05154 +077777000000 1BAR OCT 77777000000 (2**15-1)*2**18DECREMENT MASK. F1A08690 05155 606060606060 BLANKS BCD 1 606060606060 F1A08700 05156 -377777777777 ALL1 OCT -377777777777 END OF STATEMENT WORD. F1A08710 05157 +077777777777 MAXIMA OCT 077777777777 F1A08720 05160 COMVAR BSS 0 F1A08730 05160 0 00001 0 00004 ARGCNT PZE 4,,1 ARGUMENT COUNTER USED BY C30,C32. F1A08740 05161 1 00000 0 00000 SET PON .. VARIABLE USED TO COMPILE 8).... F1A08750 END OF COMMON CONSTANTS AND VARIABLES. F1A08760 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1A08770 F1A08780 COMMON/4-SUBROUTINES USED BY SECTION ONE= F1A08790 F1A08800 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1A08810 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 20 * SECTION ONE * COMMON BLOCK * RECORD 9F13 * F1A08820 C0160,2/ CALLS=C0190,DIAG. F1A08830 C0160 ASSEMBLES LEFT-ADJUSTED IN 1G, THE CHAR IN THE AC AND F1A08840 SUCCESSIVE NB CHARS STARTING IN THE MQ, UNTIL A ,()= OR ENDMKF1A08850 IS MET AND LEFT IN THE AC. ALSO MARKS END OF WORD WITH A F1A08860 BLANK, IF LESS THAN 6 CHARACTERS. F1A08870 05162 -0634 00 2 05170 C0160 SXD C016X,2 SAVE THE C(XR2), AND F1A08880 05163 0534 00 2 05120 LXA L(0),2 SET XR2 TO CONTROL SHIFTING. F1A08890 05164 0600 00 0 05552 STZ 1G CLEAR WORKING STORAGE. F1A08900 05165 0074 00 4 05535 TSX TESTH0,4 TEST FIRST CHARACTER FOR NUMERIC, ERROR. F1A08910 05166 0774 00 4 00012 C0161 AXT CTEST-ENDMK,4 TEST F1A08920 05167 0340 00 4 05117 C0162 CAS CTEST,4 CHARACTER F1A08930 05170 1 00000 0 05172 C016X TXI C0163,0,** IN THE AC F1A08940 05171 1 00000 0 05201 FWA TXI C0165,0,** AGAINST F1A08950 05172 2 00001 4 05167 C0163 TIX C0162,4,1 ALL PUNCTUATION. F1A08960 05173 -3 00036 2 05175 TXL C0164,2,30 IF SYMBOL EXCEEDS 6 CHARACTERS, F1A08970 05174 ER0001 BSS 0 F1A08980 BINARY CARD NO. 9F130024 05174 0074 00 4 04504 TSX DIAG,4 * GO TO THE DIAGNOSTIC. F1A08990 05175 0767 00 2 00036 C0164 ALS 30,2 BUILD LEFT-ADJUSTED F1A09000 05176 -0602 00 0 05552 ORS 1G SYMBOL IN WORKING STORAGE. F1A09010 05177 0074 00 4 05250 TSX C0190,4 * GET NEXT NB CHARACTER IN THE AC. F1A09020 05200 1 00006 2 05166 TXI C0161,2,6 UPDATE SHIFT COUNT, AND CONTINUE. F1A09030 05201 3 00000 2 05203 C0165 TXH C0167,2,0 IF PUNCTUATION IS 1ST CHARACTER, F1A09040 05202 ER0002 BSS 0 F1A09050 05202 0074 00 4 04504 C0166 TSX DIAG,4 * OR ILLEGAL, GO TO THE DIAGNOSTIC. F1A09060 05203 -3 00005 4 05202 C0167 TXL C0166,4,5 IF LEGAL PUNCTUATION, THEN F1A09070 05204 0601 00 0 05555 STO 1H SAVE, AND F1A09080 05205 -0754 00 0 00000 PXD ,0 F1A09090 05206 0560 00 0 05155 LDQ BLANKS COMPLETE VARIABLE NAMES LESS THAN SIX CHAR-F1A09100 05207 -0763 00 2 00044 LGL 36,2 ARCTERS WITH BCD BLANKS. F1A09110 05210 -0602 00 0 05552 ORS 1G THAN 6 CHARACTERS IN LENGTH. F1A09120 05211 0500 00 0 05555 CLA 1H PICKUP PUNCTUATION MARK, F1A09130 05212 -0534 00 2 05170 LXD C016X,2 RESTORE THE C(XR2), AND F1A09140 05213 0020 00 2 00001 TRA 1,2 * RETURN TO CALLER. F1A09150 END OF PROGRAM C0160. F1A09160 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1A09170 F1A09180 C0180,2/ CALLS=C0190. F1A09190 C0180 CONVERTS SUCCESSIVE NUMERICS STARTING IN THE AC TO F1A09200 BINARY, PLACES RESULT IN 1G, AND LEAVES 1ST NON-NUMERIC IN ACF1A09210 05214 0074 00 4 05250 C0180X TSX C0190,4 * OBTAIN 1ST NUMERIC IN THE AC. F1A09220 05215 0074 00 4 05541 C0180 TSX TESTI0,4 TEST CHARACTER FOR NUMERIC. F1A09230 05216 0601 00 0 05552 C0181 STO 1G PLACE 1ST NUMERIC IN 1G. F1A09240 05217 0074 00 4 05250 TSX C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER, F1A09250 05220 0340 00 0 05131 CAS L(9) AND IF NON-NUMERIC, THEN F1A09260 05221 0020 00 2 00001 TRA 1,2 * RETURN TO CALLER. F1A09270 BINARY CARD NO. 9F130025 05222 0761 00 0 00000 NOP IF NUMERIC, THEN F1A09280 05223 0601 00 0 05553 STO 2G SAVE DIGIT IN 2G. F1A09290 05224 0500 00 0 05552 CLA 1G MULTIPLY F1A09300 05225 0767 00 0 00002 ALS 2 C(1G) F1A09310 05226 0400 00 0 05552 ADD 1G BY F1A09320 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 21 * SECTION ONE * COMMON BLOCK * RECORD 9F13 * 05227 0767 00 0 00001 ALS 1 10, F1A09330 05230 0400 00 0 05553 ADD 2G AND ADD CURRENT DIGIT. F1A09340 05231 1 00000 0 05216 TXI C0181,0,0 REPEAT PROCESS FOR NEXT CHARACTER. F1A09350 END OF PROGRAM C0180. F1A09360 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1A09370 F1A09380 C0190X,4/ F1A09390 C0190X INITIALIZES C0190 TO OBTAIN 1ST WORD OF FORMULA IN F. F1A09400 05232 0500 00 0 04516 C0190X CLA DCF SET FORMULA WORD ADDRESS F1A09410 05233 0622 00 0 05171 STD FWA TO THE FIRST WORD OF F-REGION. F1A09420 05234 0634 00 0 05251 SXA XCHCTR,0 SET CHARACTER COUNT TO ZERO. F1A09430 05235 0020 00 4 00001 TRA 1,4 * RETURN TO MAIN ROUTINE. F1A09440 END OF PROGRAM C0190X. F1A09450 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1A09460 F1A09470 C0390,4/ F1A09480 C0390 INSERTS THE CHARACTER IN THE AC INTO THE 1ST POSITION F1A09490 TO THE LEFT OF THAT DEFINED BY FWA AND XR1. F1A09500 05236 0500 00 0 05105 C0390 CLA ENDMK PREPARE TO CHANGE F1A09510 05237 -0534 00 2 05171 LXD FWA,2 THE PROPER CHARACTER F1A09520 05240 0534 00 1 05251 LXA XCHCTR,1 IN THE F-REGION. F1A09530 05241 -2 00001 1 05244 TNX C0393,1,1 ADJUST MASK F1A09540 05242 -0763 00 0 00006 C0392 LGL 6 TO POSITION F1A09550 05243 2 00001 1 05242 TIX C0392,1,1 CHARACTER. F1A09560 05244 0760 00 0 00006 C0393 COM INVERT MASK, AND F1A09570 05245 0320 00 2 77777 ANS -1,2 ERASE PROPER CHARACTER. F1A09580 05246 -0130 00 0 00000 XCL MOVE TO AC AND F1A09590 05247 -0602 00 2 77777 ORS -1,2 INSERT IN ERASED POSITION. F1A09600 C0390 CONTINUES BY USING C0190. F1A09610 F1A09620 C0190,4/ F1A09630 C0190 OBTAINS IN AC THE NEXT NON-BLANK CHARACTER OF FORMULA. F1A09640 BINARY CARD NO. 9F130026 05250 0634 00 1 05270 C0190 SXA C0194,1 SAVE C(IR1). F1A09650 05251 0774 00 1 00000 XCHCTR AXT **,1 LOAD CHARACTER COUNT. F1A09660 05252 0560 00 0 05611 LDQ RESIDU PICK UP ANY REMAINING CHARACTERS. F1A09670 05253 2 00001 1 05261 C0191 TIX C0193,1,1 IF NONE, F1A09680 05254 -0534 00 1 05171 LXD FWA,1 PICK UP NEXT FORMULA F1A09690 05255 0560 00 1 00000 LDQ 0,1 WORD FROM F-REGION, F1A09700 05256 1 77777 1 05257 TXI C0192,1,-1 AND INCREASE F1A09710 05257 -0634 00 1 05171 C0192 SXD FWA,1 FORMULA WORD ADDRESS BY 1. F1A09720 05260 0774 00 1 00006 AXT 6,1 RESET IR1 FOR 6 NEW CHARACTERS. F1A09730 05261 -0754 00 0 00000 C0193 PXD ,0 EXAMINE F1A09740 05262 -0763 00 0 00006 LGL 6 NEXT CHARACTER F1A09750 05263 0340 00 0 05145 CAS BLANK AND COMPARE WITH A BLANK. F1A09760 05264 0020 00 0 05266 TRA C0195 IF BLANK F1A09770 05265 0020 00 0 05253 TRA C0191 GO EXAMINE NEXT CHARACTER. F1A09780 05266 0634 00 1 05251 C0195 SXA XCHCTR,1 IF NOT BLANK, SAVE CHARACTER COUNT. F1A09790 05267 -0600 00 0 05611 STQ RESIDU SAVE ANY REMAINING CHARACTERS, F1A09800 05270 0774 00 1 00000 C0194 AXT **,1 RESTORE C(IR1). F1A09810 05271 0020 00 4 00001 TRA 1,4 * RETURN TO MAIN ROUTINE. F1A09820 END OF PROGRAM C0190. F1A09830 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1A09840 F1A09850 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 22 * SECTION ONE * COMMON BLOCK * RECORD 9F13 * DIM.SR,4/ CALLS=DIAG. F1A09860 DIM.SR SEARCHS THE DIMENSION TABLES. ENTRANCE IS TO DIM1SR, F1A09870 DIM2SR, OR DIM3SR ACCORDING TO THE DIMENSION. F1A09880 DIM1SR= ENTRY POINT FOR 1 DIMENSION TABLE. F1A09890 05272 0634 00 4 05331 DIM1SR SXA DIMXR4,4 F1A09900 05273 -0534 00 4 04201 LXD DIM1IX-2,4 GET NO OF ENTRIES IN DIM1. F1A09910 05274 0500 00 0 04202 CLA ORGDM1 GET ORIGIN ADDRESS OF DIM1 TABLE. F1A09920 05275 1 00000 0 05301 TXI DMSR00,0,0 F1A09930 DIM2SR= ENTRY POINT FOR 2 DIMENSION TABLE. F1A09940 BINARY CARD NO. 9F130027 05276 0634 00 4 05331 DIM2SR SXA DIMXR4,4 F1A09950 05277 -0534 00 4 04205 LXD DIM2IX-2,4 GET NO OF ENTRIES IN DIM2. F1A09960 05300 0500 00 0 04206 CLA ORGDM2 GET ORIGIN ADDRESS OF DIM2 TABLE. F1A09970 05301 0621 00 0 05306 DMSR00 STA DMSR01 SET ADDRESS OF COMPARISON TEST. F1A09980 05302 0621 00 0 05314 STA DMSR03 SET ADDRESS OF RETRIEVAL INSTRUCTION. F1A09990 05303 0634 00 2 05330 SXA DIMXR2,2 F1A10000 05304 0534 00 2 05120 LXA L(0),2 SET INDEX 2 FOR FORWARD SEARCH. F1A10010 05305 0500 00 0 05561 CLA E+2 ARGUMENT BEING SEARCHED FOR TO AC. F1A10020 05306 0340 00 2 00000 DMSR01 CAS **,2 COMPARISON OF ARGUMENT TO 1ST WORD OF ENTRYF1A10030 05307 1 77776 2 05312 TXI DMSR02,2,-2 NO F1A10040 05310 1 77777 2 05314 TXI DMSR03,2,-1 YES F1A10050 05311 1 77776 2 05312 TXI DMSR02,2,-2 NO F1A10060 05312 2 00001 4 05306 DMSR02 TIX DMSR01,4,1 NOT THIS ENTRY, WAS THIS LAST ENTRY... F1A10070 05313 0020 00 0 05330 TRA DIMXR2 F1A10080 05314 0500 00 2 00000 DMSR03 CLA **,2 FOUND, SECOND WORD OF DIM ENTRY TO AC F1A10090 05315 0020 00 0 05336 TRA DMSR07 F1A10100 DIM3SR= ENTRY POINT FOR 3 DIMENSION TABLE. F1A10110 05316 0634 00 4 05331 DIM3SR SXA DIMXR4,4 F1A10120 05317 0634 00 2 05330 SXA DIMXR2,2 F1A10130 05320 -0534 00 4 04211 LXD DIM3IX-2,4 GET NO OF ENTRIES IN DIM3. F1A10140 05321 0534 00 2 05120 LXA L(0),2 SET INDEX 2 FOR FORWARD SEARCH. F1A10150 05322 0500 00 0 05561 CLA E+2 ARGUMENT BEING SEARCHED FOR TO AC. F1A10160 05323 0340 00 2 00000 DMSR04 CAS **,2 COMPARE ARGUMENT TO 1ST WORD OF DIM3 ENTRY F1A10170 BINARY CARD NO. 9F130028 05324 1 77775 2 05327 TXI DMSR05,2,-3 NO F1A10180 05325 0020 00 0 05333 TRA DMSR06 YES F1A10190 05326 1 77775 2 05327 TXI DMSR05,2,-3 NO F1A10200 05327 2 00001 4 05323 DMSR05 TIX DMSR04,4,1 NOT THIS ENTRY, WAS THIS LAST ENTRY... F1A10210 05330 0774 00 2 00000 DIMXR2 AXT ..,2 F1A10220 05331 0774 00 4 00000 DIMXR4 AXT ..,4 F1A10230 05332 0020 00 4 00001 TRA 1,4 EXIT (NOT FOUND). F1A10240 05333 0500 00 2 00000 DMSR06 CLA **,2 THIRD WORD OF DIM3 ENTRY TO D3. F1A10250 05334 0601 00 0 05577 STO ERASE2 F1A10260 05335 0500 00 2 00000 DMSR08 CLA **,2 SECOND WORD OF DIM3 ENTRY TO AC. F1A10270 05336 0601 00 0 05576 DMSR07 STO ERASE1 AC TO D12. F1A10280 05337 0534 00 2 05330 LXA DIMXR2,2 F1A10290 05340 0534 00 4 05331 LXA DIMXR4,4 F1A10300 05341 0020 00 4 00002 TRA 2,4 EXIT (FOUND). F1A10310 END OF PROGRAM DIM.SR. F1A10320 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1A10330 F1A10340 SR6DC1,1/ CALLS=DIAG. F1A10350 SR6DC1 CONVERTS UP TO 6 BCD DIGITS TO THEIR BINARY EQUIV. F1A10360 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 23 * SECTION ONE * COMMON BLOCK * RECORD 9F13 * 05342 -0634 00 2 05350 SR6DC1 SXD SR6XR2,2 SAVE THE C(XR2), AND F1A10370 05343 0534 00 2 05126 LXA L(6),2 SET TO COUNT 6 CHARACTERS. F1A10380 05344 0600 00 0 05576 STZ ERASE1 INITIALIZE OUTPUT CELL TO 0. F1A10390 05345 -0754 00 0 00000 SR6DC2 PXD ,0 OBTAIN NEXT CHARACTER F1A10400 05346 -0763 00 0 00006 LGL 6 IN AC AND F1A10410 05347 0340 00 0 05145 CAS BLANK TEST FOR BLANK. F1A10420 05350 1 00000 0 05352 SR6XR2 TXI SR6DC3,0,** IF NOT BLANK, F1A10430 05351 1 77777 0 05364 TXI SR6DC4,0,-1 F1A10440 BINARY CARD NO. 9F130029 05352 0340 00 0 05131 SR6DC3 CAS L(9) TEST FOR NUMERIC. F1A10450 05353 ER0004 BSS 0 F1A10460 05353 0074 00 4 04504 TSX DIAG,4 * IF NON-NUMERIC - GO TO DIAGNOSTIC. F1A10470 05354 0761 00 0 00000 NOP NOP IF NUMERIC, F1A10480 05355 0601 00 0 05577 STO ERASE2 SAVE DIGIT, AND F1A10490 05356 0500 00 0 05576 CLA ERASE1 MULTIPLY PREVIOUS PARTIAL F1A10500 05357 0767 00 0 00002 ALS 2 RESULT BY 10, F1A10510 05360 0400 00 0 05576 ADD ERASE1 AND ADD IN F1A10520 05361 0767 00 0 00001 ALS 1 CURRENT DIGIT, SAVING F1A10530 05362 0400 00 0 05577 ADD ERASE2 NEW PARTIAL RESULT. F1A10540 05363 0601 00 0 05576 STO ERASE1 THEN F1A10550 05364 2 00001 2 05345 SR6DC4 TIX SR6DC2,2,1 WHEN 6 CHARS HAVE BEEN TREATED, F1A10560 05365 0500 00 0 05576 CLA ERASE1 PICKUP OUTPUT, F1A10570 05366 -0534 00 2 05350 LXD SR6XR2,2 RESTORE THE C(XR2), AND F1A10580 05367 0020 00 1 00001 TRA TRA 1,1 * EXIT TO MAIN ROUTINE. F1A10590 END OF PROGRAM SR6DC1. F1A10600 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1A10610 F1A10620 TBSR00(,4)/ CALLS=DIAG. F1A10630 TBSR00 IS CALLED BY TSX ....IX,4 -WHERE .... IS THE NAME OF F1A10640 THE CORE TABLE REFERRED TO. TBSR00 MAKES ENTRIES IN THE CORE F1A10650 TABLES, AND ALSO SEARCHES THE CORE TABLES FOR INFORMATION. F1A10660 F1A10670 05370 0634 00 1 05461 TBSR00 SXA TBSR18-1,1 SAVE INDEX REGISTERS. F1A10680 05371 0634 00 2 05462 SXA TBSR18,2 F1A10690 05372 0634 00 4 05463 SXA TBSR18+1,4 F1A10700 05373 0500 00 4 00000 CLA 0,4 GET ....IX,4 F1A10710 05374 0400 00 0 05121 ADD L(1) FORM ....IX+1 F1A10720 05375 0621 00 0 05401 STA TBSR01 SET ADDRESS OF PARAMETER MOVING LOOP. F1A10730 05376 0402 00 0 05123 SUB L(3) FORM ....IX-2 F1A10740 05377 0621 00 0 05435 STA TBSR09 SET ADDRESS FOR UPDATING PARAMETER. F1A10750 BINARY CARD NO. 9F130030 05400 0774 00 1 00004 AXT 4,1 PREPARE TO MOVE 4 WORD PARAMETERS. F1A10760 05401 -0500 00 1 00000 TBSR01 CAL **,1 MOVE PARAMETERS TO TEMPORARY WORKING AREA. F1A10770 05402 0602 00 1 05617 SLW TEMP,1 X F1A10780 05403 2 00001 1 05401 TIX TBSR01,1,1 X F1A10790 05404 -0500 00 0 05613 CAL TEMP-4 GET ARG1+L,,L F1A10800 05405 0621 00 0 05427 STA TBSR07 F1A10810 05406 0621 00 0 05444 STA TBSR12 F1A10820 05407 0630 00 0 05421 STP TBSR02 SET SWITCH TO SKIP SEARCH ON DIM TABLES. F1A10830 05410 -0737 00 1 00000 PDC ,1 GET 2S COMPLIMENT. F1A10840 05411 -0634 00 1 05452 SXD TBSR14,1 F1A10850 05412 0500 00 0 05614 CLA TEMP-3 GET TA,,N F1A10860 05413 0621 00 0 05430 STA TBSR08 F1A10870 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 24 * SECTION ONE * COMMON BLOCK * RECORD 9F13 * 05414 0622 00 0 05423 STD TBSR95 SET TEST FOR TABLE OVERFLOW. F1A10880 05415 0500 00 0 05615 CLA TEMP-2 GET FA,,J F1A10890 05416 0621 00 0 05445 STA TBSR13 F1A10900 05417 -0534 00 2 05614 LXD TEMP-3,2 GET N. F1A10910 05420 -3 00000 2 05426 TXL TBSR06,2,0 F1A10920 05421 0 00000 0 05440 TBSR02 PZE TBSR10,,0 SKIP SEARCH ON DIM TABLES. (TXH) F1A10930 05422 -0534 00 1 05615 TBSR05 LXD TEMP-2,1 GET J. F1A10940 05423 2 00000 1 05426 TBSR95 TIX TBSR06,1,** TEST FOR N=J, YES WHEN TABLE IS FULL. F1A10950 05424 -0534 00 4 05616 LXD TEMP-1,4 LOAD IR4 WITH COMPLEMENT OF TABLE NUMBER. F1A10960 05425 0020 00 0 04504 TRA DIAG *GO TO DIAGNOSTIC. F1A10970 BINARY CARD NO. 9F130031 05426 -0534 00 3 05613 TBSR06 LXD TEMP-4,3 GET L. F1A10980 05427 0500 00 1 00000 TBSR07 CLA **,1 GET ARGUMENT F1A10990 05430 0601 00 1 00000 TBSR08 STO **,1 AND ENTER IN TABLE. F1A11000 05431 2 00001 1 05427 TIX TBSR07,1,1 ENTER L WORDS. F1A11010 05432 0754 00 2 00000 PXA ,2 GET L. F1A11020 05433 0400 00 0 05614 ADD TEMP-3 FORM TA+L,,N F1A11030 05434 0400 00 0 05152 ADD 2E18 FORM TA+L,,N+1 F1A11040 05435 0601 00 0 00000 TBSR09 STO ** UPDATE PERMANENT PARAMETER. F1A11050 05436 -0534 00 2 05614 LXD TEMP-3,2 GET TAG (N) WHICH IS NUMBER OF ENTRIES F1A11060 05437 0020 00 0 05460 TRA TBSR17 PRECEDING THIS ENTRY. F1A11070 05440 -0534 00 4 05614 TBSR10 LXD TEMP-3,4 GET N. F1A11080 05441 0774 00 2 00000 AXT 0,2 SET INDEX FOR FORWARD SCAN. F1A11090 05442 -0534 00 1 05613 TBSR11 LXD TEMP-4,1 GET L. F1A11100 05443 0634 00 2 05451 SXA TBSR19,2 SAVE CURRENT NBAR. F1A11110 05444 0500 00 1 00000 TBSR12 CLA **,1 COMPARE EACH WORD ON ARGUMENT TO CORRES- F1A11120 05445 0340 00 2 00000 TBSR13 CAS **,2 PONDING WORD OF TABLE ENTRY. F1A11130 05446 0020 00 0 05450 TRA TBSR93 UNEQUAL. F1A11140 05447 1 77777 2 05453 TXI TBSR15,2,-1 EQUAL. F1A11150 05450 -2 00001 4 05422 TBSR93 TNX TBSR05,4,1 UNEQUAL, WAS THIS LAST ENTRY IN TABLE... F1A11160 05451 0774 00 2 00000 TBSR19 AXT ..,2 GET LAST NBAR. F1A11170 05452 1 00000 2 05442 TBSR14 TXI TBSR11,2,** INCREMENT LAST NBAR BY -(L) F1A11180 05453 2 00001 1 05444 TBSR15 TIX TBSR12,1,1 THESE WORDS ARE EQUAL, TRY NEXT PAIR. F1A11190 BINARY CARD NO. 9F130032 05454 -0534 00 2 05614 LXD TEMP-3,2 ARGUMENT EQUALS TABLE ENTRY IN ALL WORDS, F1A11200 05455 -0634 00 4 05456 SXD TBSR16,4 COMPUTE TAG WHICH IS N-NUMBER OF ENTRIES F1A11210 05456 2 00000 2 05460 TBSR16 TIX TBSR17,2,** WHICH DID NOT AGREE-1. F1A11220 05457 0534 00 2 05120 LXA L(0),2 SPECIAL CASE OF FIRST ENTRY IN TABLE. F1A11230 05460 0754 00 2 00000 TBSR17 PXA ,2 TAG TO AC. F1A11240 05461 0774 00 1 00000 AXT **,1 RESTORE INDEX REGISTERS. F1A11250 05462 0774 00 2 00000 TBSR18 AXT **,2 F1A11260 05463 0774 00 4 00000 AXT **,4 F1A11270 05464 0020 00 4 00001 TRA 1,4 RETURN TO CALLER +1. F1A11280 END OF PROGRAM TBSR00. F1A11290 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1A11300 F1A11310 TESTFX,1/ F1A11320 TESTFX TESTS FOR FIXED OR FLOATING POINT VARIABLES. F1A11330 05465 -0500 00 0 05602 TESTFX CAL FIRSTC COMPARE FIRST CHARACTER F1A11340 05466 0340 00 0 05140 CAS L(H) WITH H. F1A11350 05467 0340 00 0 05143 CAS L(O) IF GREATER THAN H, COMPARE WITH O. F1A11360 05470 0020 00 1 00001 TRA 1,1 * IF NOT GREATER THAN H, LESS THAN O,F1A11370 05471 0020 00 1 00001 TRA 1,1 * THEN TAKE FLOATING POINT EXIT. F1A11380 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 25 * SECTION ONE * COMMON BLOCK * RECORD 9F13 * 05472 0020 00 1 00002 TRA 2,1 * OTHERWISE, TAKE FIXED POINT EXIT. F1A11390 END OF PROGRAM TESTFX. F1A11400 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1A11410 F1A11420 TEST..,4/ CALLS=DIAG. F1A11430 TEST.. TESTS THE CHARACTER IN THE AC(30-35). F1A11440 05473 TEST.. BSS 0 TEST CHARACTER IN THE AC. F1A11450 TEST CHARACTER IN THE AC FOR COMMA OR ENDMARK. F1A11460 05473 0340 00 0 05107 TESTA0 CAS COMMA F1A11470 05474 0020 00 0 05476 TRA TESTA1 F1A11480 05475 0020 00 4 00001 TRA 1,4 * RETURN TO CALLER. F1A11490 05476 0402 00 0 05105 TESTA1 SUB ENDMK F1A11500 05477 0100 00 4 00001 TZE 1,4 * RETURN TO CALLER. F1A11510 05500 0074 00 4 04504 ER0015 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. F1A11520 TEST CHARACTER IN THE AC FOR COMMA OR CLOSED PARENTHESIS. F1A11530 05501 0340 00 0 05107 TESTB0 CAS COMMA F1A11540 BINARY CARD NO. 9F130033 05502 0020 00 0 05504 TRA TESTB1 F1A11550 05503 0020 00 4 00001 TRA 1,4 * RETURN TO CALLER. F1A11560 05504 0402 00 0 05110 TESTB1 SUB CLOS F1A11570 05505 0100 00 4 00001 TZE 1,4 * RETURN TO CALLER. F1A11580 05506 0074 00 4 04504 ER0016 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. F1A11590 TEST CHARACTER IN THE AC FOR OPEN PARENTHESIS OR ENDMARK. F1A11600 05507 0340 00 0 05106 TESTC0 CAS OPEN F1A11610 05510 0020 00 0 05512 TRA TESTC1 F1A11620 05511 0020 00 4 00001 TRA 1,4 * RETURN TO CALLER. F1A11630 05512 0402 00 0 05105 TESTC1 SUB ENDMK F1A11640 05513 0100 00 4 00001 TZE 1,4 * RETURN TO CALLER. F1A11650 05514 0074 00 4 04504 ER0017 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. F1A11660 TEST CHARACTER IN THE AC FOR ENDMARK. F1A11670 05515 0340 00 0 05105 TESTD0 CAS ENDMK F1A11680 05516 0074 00 4 04234 TSX MRTN77,4 *CHARACTER GREATER THAN 77 OCTAL, IMPOSS. F1A11690 05517 0020 00 4 00001 TRA 1,4 * RETURN TO CALLER. F1A11700 05520 0074 00 4 04504 ER0019 TSX DIAG,4 *ERROR, END OF STATEMENT NOT REACHED. F1A11710 TEST CHARACTER IN THE AC FOR OPEN PARENTHESIS. F1A11720 05521 0340 00 0 05106 TESTE0 CAS OPEN F1A11730 05522 0020 00 0 05524 TRA TESTE1 F1A11740 05523 0020 00 4 00001 TRA 1,4 * RETURN TO CALLER. F1A11750 05524 ER0020 BSS 0 F1A11760 05524 0074 00 4 04504 TESTE1 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. F1A11770 TEST CHARACTER IN THE AC FOR CLOSED PARENTHESIS. F1A11780 05525 0340 00 0 05110 TESTF0 CAS CLOS F1A11790 05526 0020 00 0 05530 TRA TESTF1 F1A11800 05527 0020 00 4 00001 TRA 1,4 * RETURN TO CALLER. F1A11810 05530 ER0021 BSS 0 F1A11820 BINARY CARD NO. 9F130034 05530 0074 00 4 04504 TESTF1 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. F1A11830 TEST CHARACTER IN THE AC FOR COMMA. F1A11840 05531 0340 00 0 05107 TESTG0 CAS COMMA F1A11850 05532 0020 00 0 05534 TRA TESTG1 F1A11860 05533 0020 00 4 00001 TRA 1,4 * RETURN TO CALLER. F1A11870 05534 ER0022 BSS 0 F1A11880 05534 0074 00 4 04504 TESTG1 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. F1A11890 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 26 * SECTION ONE * COMMON BLOCK * RECORD 9F13 * TEST CHARACTER IN THE AC FOR NON-NUMERIC. F1A11900 05535 0340 00 0 05131 TESTH0 CAS L(9) F1A11910 05536 0020 00 4 00001 TRA 1,4 * RETURN TO CALLER. F1A11920 05537 0761 00 0 00000 NOP F1A11930 05540 0074 00 4 04504 ER0023 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. F1A11940 TEST CHARACTER IN THE AC FOR NUMERIC. F1A11950 05541 0340 00 0 05131 TESTI0 CAS L(9) F1A11960 05542 0074 00 4 04504 ER0024 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. F1A11970 05543 0020 00 4 00001 TRA 1,4 * RETURN TO CALLER. F1A11980 05544 0020 00 4 00001 TRA 1,4 * RETURN TO CALLER. F1A11990 END OF PROGRAM TEST... F1A12000 F1A12010 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1A12020 F1A12030 ERASABLE STORAGE COMMON TO BOTH PASS 1 AND PASS 2. F1A12040 F1A12050 05545 COMORG SYN * F1A12060 05545 1C BSS 5 COMMON WORKING STORAGE. F1A12070 05552 1G BSS 1 COMMON WORKING STORAGE. F1A12080 05553 2G BSS 1 COMMON WORKING STORAGE FOR STATE A.F1A12090 05554 3G BSS 1 F1A12100 05555 1H BSS 1 F1A12110 05556 CALLNM BSS 1 F1A12120 05557 E BSS 14 WORKING STORAGE USED BY SS000. F1A12130 05575 ERASE BSS 1 F1A12140 05576 ERASE1 BSS 1 F1A12150 05577 ERASE2 BSS 1 F1A12160 05600 ERASE3 BSS 1 F1A12170 05601 ERASE4 BSS 1 F1A12180 05602 FIRSTC BSS 1 USED BY SS000,TESTFX,C3000. F1A12190 05603 FSNAME BSS 1 NAME OF FUNCTION. F1A12200 05604 G BSS 2 F1A12210 05606 LEFT BSS 3 STORAGE USED BY ARITHMETIC, DIAG. F1A12220 05611 RESIDU BSS 1 REMAINDER OF F-REGION WORD.(C0190) F1A12230 05612 TABNUM BSS 1 F1A12240 05617 TEMP BES 4 F1A12250 05617 BSS 1 $F1A12251 F1A12260 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1A12270 F1A12280 COMMON/6-PATCH AREA= F1A12290 BINARY CARD NO. 9F130035 05620 0 00000 0 00000 CLAIFN PZE 0 STORAGE FOR CLA 2 IFN $F1A12291 05621 -0534 00 2 03747 COMP1 LXD CITCNT,2 LOAD CURRENT BUFFER INCREMENT $F1A12292 05622 -0520 00 0 05620 NZT CLAIFN WAS THIS FUNCTION OR SUBROUTINE $F1A12293 05623 0020 00 0 04256 TRA CIT00+5 NO $F1A12294 05624 0500 00 0 05620 CLA CLAIFN YES $F1A12295 05625 0601 00 0 21416 STO CITBUF STORE IFN INSTEAD OF $F1A12296 05626 0600 00 0 05620 STZ CLAIFN $$ INTO FIRST INSTRUCTION (CLA 2) $F1A12297 05627 0020 00 0 04256 TRA CIT00+5 $F1A12298 PATCH CHECKS ON BOOLEAN ERRORS $F1A12300 05630 -0500 00 0 04521 BERPCH CAL MODECL CHECK INDICATOR, BOOLEAN ERROR PATCH $F1A12301 05631 0322 00 0 05134 ERA L(B) IS STATEMENT BOOLEAN $F1A12302 05632 -0100 00 4 00003 TNZ 3,4 NO, RETURN TO CALLER $F1A12303 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 27 * SECTION ONE * COMMON BLOCK * RECORD 9F13 * 05633 0020 00 0 04253 TRA CIT00+2 GO BACK TO CHECK FOR BOOL. ERROR $F1A12304 05634 BSS 187 PATCH AREA $F1A12305 06127 ENDCOM SYN * END OF COMMON . F1A12310 END OF COMMON PATCH AREA. F1A12320 F1A12330 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1A12340 F1A12350 END OF THE COMMON PART OF SECTION ONE. F1A12360 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 28 * SECTION ONE PASS ONE * RECORD 9F13 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1A12380 F1A12390 SECTION 1 / PASS1 = F1A12400 F1A12410 F1A12420 PASS 1/1-ASSEMBLE AND CLASSIFY ALL STATEMENTS= F1A12430 F1A12440 06127 ORGP1 ORG ENDCOM F1A12450 F1A12460 BINARY CARD NO. 9F130036 06127 -0760 00 0 00004 INITIL LFTM MAKE SURE TRAP MODES ARE INACTIVE. F1A12470 06130 -0760 00 0 00007 LTM F1A12480 06131 -0500 00 0 05124 CAL L(4) SET MONITOR ERROR FLAG F1A12490 06132 0602 00 0 73664 SLW (MSLN) FOR ERROR RECORDS. F1A12491 06133 0774 00 4 00052 AXT TEMP-1C,4 ZERO OUT THE ERASEABLE $F1A12492 06134 0600 00 4 05617 STZ TEMP,4 STORAGE FOR IBSYS. $F1A12493 06135 2 00001 4 06134 TIX *-1,4,1 $F1A12494 06136 0774 00 4 63155 AXT TOPTAB-ENDF10,4 F1A12500 06137 0600 00 4 73577 STZ TOPTAB,4 CLEAR WORKING AREA. F1A12510 06140 2 00001 4 06137 TIX *-1,4,1 F1A12520 06141 0774 00 1 00004 AXT 4,1 F1A12530 06142 -0634 00 1 06145 INITZ SXD *+3,1 REWIND WORKING TAPES. F1A12540 06143 0074 00 4 73606 TSX (TAPE),4 F1A12550 06144 0 20002 0 05074 PZE REWD,,(SKDP) F1A12560 06145 0 00000 0 00000 PZE ,,** F1A12570 06146 -3 00002 1 06150 TXL *+2,1,2 DO NOT REWIND SYSTEM TAPE. F1A12580 06147 2 00001 1 06142 TIX INITZ,1,1 F1A12590 06150 -0500 00 0 06176 CAL L(FPT) INITIALIZE CLOSUB TABLE IN CASE F1A12600 06151 0602 00 0 45077 SLW CLSBBF THIS A MAIN PROGRAM. F1A12610 06152 0500 60 0 73660 CLA* (FGBX) GET MONITOR FLAGS. F1A12611 06153 0120 00 0 06163 TPL *+8 *IS THIS MONITOR MODE, NO. F1A1261A 06154 0774 00 4 40000 AXT (RBNP),4 YES. SET READ OPERATIONS TO BINARY. F1A1261B BINARY CARD NO. 9F130037 06155 -0634 00 4 06164 SXD *+7,4 F1A1261C 06156 0774 00 4 40004 AXT (RBEP),4 F1A1261D 06157 -0634 00 4 06345 SXD LDFTT,4 F1A1261E 06160 0774 00 4 06177 AXT FINPUT,4 SET CALLING SEQUENCE TO READ LABELS. F1A1261F 06161 0634 00 4 06346 SXA LDFTT+1,4 F1A1261G 06162 0634 00 4 06165 SXA *+3,4 F1A1261H 06163 0074 00 4 73606 TSX (TAPE),4 LOAD FT-REGION (BUFFER 1). F1A12620 06164 0 40002 0 10367 PZE FTREG-1,,(RDNP) F1A12630 06165 0 00002 0 00000 PZE ,,INPUTP F1A12640 06166 -0500 00 0 04212 CAL DIM3IX-1 INITIALIZE F1A12650 06167 0621 00 0 05323 STA DMSR04 DIM3 F1A12660 06170 0400 00 0 05121 ADD L(1) ADDRESS F1A12670 06171 0621 00 0 05335 STA DMSR08 IN DIM3 F1A12680 06172 0400 00 0 05121 ADD L(1) SEARCH F1A12690 06173 0621 00 0 05333 STA DMSR06 ROUTINE. F1A12700 06174 0074 00 4 06342 TSX LDFT0,4 LOAD FT-REGION (BUFFER 2). F1A12710 06175 0020 00 0 06405 TRA LDFR0 GO TO PASS 1 SUBROUTINE TO LOAD F-REGION. F1A12720 F1A12730 06176 742647633460 L(FPT) BCI 1,(FPT) ASSUMED FIRST ENTRY IN CLOSUB. F1A12740 06177 263145476463 FINPUT BCI 1,FINPUT LABEL FOR READING INPUT TAPE. F1A12741 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 29 * SECTION ONE PASS ONE * RECORD 9F13 * F1A12750 *************************************************************F1A12760 F1A12761 TERMINAL ROUTINE FOR PASS 1. F1A12770 F1A12780 06200 0520 00 0 06201 CLOSP1 ZET *+1 HAS THERE BEEN A NO XEQ STAT. ERROR. F1A12790 06201 0020 00 0 06203 TRA *+2 NOT YET. F1A12800 06202 0020 00 0 04503 TRA P1DXIT YES, QUIT PROCESSING. F1A12810 BINARY CARD NO. 9F130038 06203 0534 00 4 03750 LXA XEQCTR,4 ARE THERE ANY EXECUTABLE STATEMENTS. F1A12820 06204 3 00000 4 06207 TXH *+3,4,0 *YES. F1A12830 06205 0600 00 0 06201 STZ CLOSP1+1 NO, SET QUIT FLAG. F1A12840 06206 0074 00 4 04504 NOXEQR TSX DIAG,4 GO TO DIAGNOSTIC. F1A12850 06207 0074 00 4 73606 TSX (TAPE),4 WRITE A DUMMY RECORD AFTER THE F1A12860 06210 0 40001 0 05075 PZE TRAILR,,(WBNP) EXECUTABLE STATEMENTS. F1A12870 06211 0 00004 0 05102 PZE WTXQ5,,EXEQTP F1A12880 06212 0074 00 4 73606 TSX (TAPE),4 WRITE END-OF-FILE AFTER EXECUTABLE F1A12890 06213 0 40005 0 00000 PZE ,,(WEFP) STATEMENTS. F1A12900 06214 0 00004 0 05103 PZE EXEQF,,EXEQTP F1A12910 06215 0074 00 4 73606 TSX (TAPE),4 REWIND TAPE. F1A12920 06216 0 20000 0 05074 PZE REWD,,(SKBP) F1A12930 06217 0 00004 0 00000 PZE ,,EXEQTP F1A12940 06220 0520 00 0 03751 ZET DGFLAG HAS THERE BEEN AN ERROR. F1A12941 06221 0020 00 0 06270 TRA P1EXIT *YES, SKIP DUMP. F1A12942 06222 -0535 00 1 04032 LDC INTETI-3,1 COMPUTE THE ROOM IN THE TWO BUFFERS. F1A12950 06223 1 00256 1 06224 TXI *+1,1,FRMTSZ-1 FORMAT, AND F1A12960 06224 1 01144 1 06225 TXI *+1,1,EQITSZ*2 EQUIT. F1A12970 06225 -0634 00 1 06230 SXD TEST,1 F1A12980 06226 -0535 00 2 07621 LDC BFCNT,2 GET THE MUMBER TO MOVE F1A12990 06227 1 06654 2 06230 TXI *+1,2,BFSZ F1A13000 06230 3 00000 2 06251 TEST TXH DUMP,2,** TEST FOR ROOM ENOUGH F1A13010 BINARY CARD NO. 9F130039 06231 -0634 00 2 04046 SXD INTETK-3,2 UPDATE BUFFER P COUNT F1A13020 06232 0774 00 4 43143 AXT FRMTBF+FRMTSZ-1,4 F1A13030 06233 -0634 00 2 06234 SXD *+1,2 SET BUFFER ORIGIN FOR 1 PRIME. F1A13040 06234 2 00000 4 06235 TIX *+1,4,** F1A13050 06235 0634 00 4 04046 SXA INTETK-3,4 F1A13060 06236 -0535 00 4 07621 LDC BFCNT,4 INITIALIZE MOVE LOOP F1A13070 06237 1 24671 4 06240 TXI *+1,4,TABORG F1A13080 06240 0634 00 4 06241 SXA *+1,4 F1A13090 06241 0500 00 2 00000 MOVF CLA **,2 F1A13100 06242 0601 00 2 43143 STO FRMTBF+FRMTSZ-1,2 F1A13110 06243 2 00001 2 06241 TIX *-2,2,1 F1A13120 06244 0074 00 4 73606 TSX (TAPE),4 F1A13130 06245 0 10000 0 00003 PZE FRMTTP,,(CHKU) F1A13140 06246 -0534 00 4 07753 LXD FLBL,4 PUT DUMP COUNT WHERE 1 PRIME F1A13150 06247 0634 00 4 04052 SXA INTETK+1,4 CAN FIND IT. F1A13160 06250 0020 00 0 06270 TRA P1EXIT F1A13170 06251 -0634 00 1 06252 DUMP SXD *+1,1 GET THE NUMBER OF WORDS TO DUMP. F1A13180 06252 2 00000 2 06253 TIX *+1,2,** F1A13190 06253 -0754 00 2 00000 PXD 0,2 F1A13200 06254 0400 00 0 04052 ADD INTETK+1 F1A13210 06255 0622 00 0 04052 STD INTETK+1 F1A13220 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 30 * SECTION ONE PASS ONE * RECORD 9F13 * 06256 -0634 00 2 07755 SXD FORIO+1,2 F1A13230 BINARY CARD NO. 9F130040 06257 -0534 00 4 07753 LXD FLBL,4 F1A13240 06260 1 00001 4 06261 TXI *+1,4,1 UPDATE THE DUMP COUNT F1A13250 06261 -0634 00 4 07753 SXD FLBL,4 PUT IT IN THE LABEL F1A13260 06262 0074 00 4 73606 TSX (TAPE),4 OUT THEY GO F1A13270 06263 0 40001 0 07754 PZE FORIO,,(WBNP) CHECK LATER F1A13280 06264 0 00003 0 04053 PZE INTETK+2,,FRMTTP F1A13290 06265 -0625 00 0 04471 STL TETFLG SET FLAG TO INDICATE DATA ON TAPE. F1A13291 06266 -0534 00 2 06230 LXD TEST,2 SET UP NUMBER TO BE MOVED F1A13300 06267 0020 00 0 06231 TRA TEST+1 AND GO DO IT. F1A13310 06270 0502 00 0 04245 P1EXIT CLS PASS1 FLIP SWITCH FOR PASS 2. F1A13320 06271 0601 00 0 04245 STO PASS1 F1A13330 F1A13340 06272 0600 00 0 04507 CALLP2 STZ DGX1 SET FLAG FOR DIAGNOSTIC CALLER. F1A13350 06273 -0534 00 4 04062 LXD INTETM-3,4 LOAD COUNT OF WORDS IN COMMON BUFFER. F1A13360 06274 0754 00 4 00000 PXA ,4 PLACE IN AC. F1A13370 06275 0601 00 0 05575 STO ERASE SAVE IN ERASABLE. F1A13380 06276 0500 00 0 04064 CLA INTETM-1 GET COMMON MAXIMUM BUFFER SIZE. F1A13390 06277 0402 00 0 05575 SUB ERASE SUBTRACT THE USED PORTION. F1A13400 06300 0400 00 0 04072 ADD INTETN-1 ADD MAXIMUM SIZE FOR HOLARG TABLE BUFFER. F1A13410 06301 0621 00 0 04072 STA INTETN-1 SET NEW BUFFER SIZE FOR HOLARG. F1A13420 06302 0500 00 0 04062 CLA INTETM-3 GET COMMON BUFFER ORIGIN. F1A13430 06303 0400 00 0 05575 ADD ERASE ADD COUNT OF WORDS IN COMMON BUFFER. F1A13440 06304 0621 00 0 04070 STA INTETN-3 SET NEW HOLARG BUFFER ORIGIN. F1A13450 BINARY CARD NO. 9F130041 06305 -0520 00 0 03751 NZT DGFLAG HAS THERE BEEN A DIAGNOSTIC. F1A13460 06306 0020 00 0 04475 TRA RP2I NO, GET PASS TWO. $F1A13470 06307 0074 00 4 73606 TSX (TAPE),4 YES, REPOSITION SYSTEM TAPE TO BEFORE F1A13480 06310 0 20000 0 05073 PZE BKSP,,(SKBP) PASS 2. F1A13490 06311 0 00001 0 00000 PZE ,,SYSTAP F1A13500 06312 0020 00 0 04475 TRA RP2I GET PASS TWO $F1A13510 F1A13520 *************************************************************F1A13521 F1A13530 SUBROUTINE USED TO WRITE EXECUTABLE STATEMENTS F1A13540 ON AN INTERMEDIATE TAPE FOR PROCESSING IN PASS2. F1A13550 F1A13560 WTXQ0 / CALLS CF000 TO PROCESS NON-EXECUTABLE STATEMENTS,F1A13570 OR I/O PACKAGE TO WRITE EXECUTABLE STATEMENTS. F1A13580 F1A13590 06313 0500 00 1 07201 WTXQ0 CLA T,1 ENTRY POINT FOR STATEMENTS IN DICTIONARY. F1A13600 WTXQ1 IS THE ENTRY POINT FOR ARITH. STATEMENTS.F1A13610 06314 0601 00 0 04520 WTXQ1 STO TLABEL SET TRANSFER LABEL. F1A13620 06315 -0120 00 0 07166 TMI CF000 *TRANSFER IF STATEMENT IS NON-EXECUTABLE. F1A13630 06316 -0535 00 1 04516 LDC DCF,1 GET TRUE ADDRESS OF CURRENT F-REGION. F1A13640 06317 0634 00 1 06324 SXA WTXQ2,1 SET ADDRESS OF LOOP TO MOVE TLABEL, ETC. F1A13650 06320 1 77774 1 06321 TXI *+1,1,-4 SET INDEX TO TRUE ADDRESS OF TLABEL. F1A13660 06321 0634 00 1 06341 SXA WTXQ4,1 SET I/O COMMAND ADDRESS. F1A13670 06322 0774 00 2 00004 AXT 4,2 MOVE TLABEL, MODECL, EFN, AND FIRST5 F1A13680 06323 -0500 00 2 04524 CAL FIRST5+1,2 INTO CURRENT OUTPUT BUFFER AHEAD OF F1A13690 06324 0602 00 2 00000 WTXQ2 SLW **,2 CURRENT F-REGION. F1A13700 06325 2 00001 2 06323 TIX *-2,2,1 F1A13710 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 31 * SECTION ONE PASS ONE * RECORD 9F13 * 06326 -0774 00 2 00000 WTXQ3 AXC **,2 GET TRUE NUMBER OF LAST WORD IN F-REGION. F1A13720 06327 -0634 00 1 06330 SXD *+1,1 SET TIX WITH ORIGIN OF CURRENT F-REGION F1A13730 06330 2 00000 2 06331 TIX *+1,2,** (INCLUDING 4 DATA CELLS). COMPUTE LENGTH F1A13740 06331 -0634 00 2 06341 SXD WTXQ4,2 OF ENTIRE F-REGION AND SET I/O COMMAND. F1A13750 06332 0534 00 4 03750 LXA XEQCTR,4 LOAD COUNT OF EXECUTABLE STATEMENTS F1A13760 BINARY CARD NO. 9F130042 06333 1 00001 4 06334 TXI *+1,4,1 WRITTEN ON TAPE AND INCREMENT. F1A13770 06334 0634 00 4 03750 SXA XEQCTR,4 F1A13780 06335 0074 00 4 73606 TSX (TAPE),4 WRITE STATEMENT ON TAPE FOR PASS2. F1A13790 06336 0 40001 0 06341 PZE WTXQ4,,(WBNP) F1A13800 06337 0 00004 0 05102 PZE WTXQ5,,EXEQTP F1A13810 06340 0020 00 0 04245 TRA PASS1 RETURN TO PASS1 SWITCH. F1A13820 F1A13830 06341 3 00000 0 00000 WTXQ4 IORT **,,** I/O COMMAND TO WRITE EXEQUTABLE STATS. F1A13840 F1A13850 *************************************************************F1A13851 F1A13860 SUBROUTINE TO READ A RECORD FROM THE F1A13870 BCD INPUT TAPE INTO THE TEMPORARY F REGION. F1A13880 F1A13890 06342 0634 00 4 06377 LDFT0 SXA LDFT4,4 SAVE LINKAGE. F1A13900 06343 0774 00 2 77777 LDFT1 AXT -1,2 LOAD BUFFER SWITCH (+1 OR -1) F1A13910 06344 0074 00 4 73606 TSX (TAPE),4 READ A RECORD FROM BCD INPUT TAPE. F1A13920 06345 0 40006 2 10370 LDFTT PZE FTREG,2,(RDEP) F1A13930 06346 0 00002 0 00000 PZE ,,INPUTP F1A13940 06347 0535 00 2 06343 LAC LDFT1,2 FLIP BUFFER SWITCH. F1A13950 06350 0634 00 2 06343 SXA LDFT1,2 F1A13960 06351 -0500 00 0 73674 CAL (SCHU)+INPUTP GET RESULT OF SCHX. F1A13970 06352 -0100 00 0 06355 TNZ *+3 WAS AN END-OF-FILE READ. F1A13980 06353 -0634 00 0 06354 SXD LDFT2,0 YES, SET EOF FLAG. F1A13990 06354 1 77777 0 06453 LDFT2 TXI LDFR5,,-1 TAKE EOF EXIT. F1A14000 06355 0621 00 0 10370 STA FTREG SET LAST+1 FOR TIX LOOP. F1A14010 06356 0402 00 2 10370 SUB FTREG,2 COMPUTE WORD COUNT OF RECORD. F1A14020 06357 0734 00 2 00000 PAX ,2 WERE LESS THAN 3 WORDS READ. F1A14030 06360 -3 00003 2 06343 TXL LDFT1,2,3 *YES, IGNORE IT, MOST LIKELY NOISE. F1A14040 BINARY CARD NO. 9F130043 06361 0634 00 2 06400 SXA LDFT5,2 NO, SAVE WORD COUNT. F1A14050 06362 -0754 00 0 00000 PXD ,0 CLEAR AC. F1A14060 06363 0560 60 0 10370 LDQ* FTREG GET FIRST CHARACTER OF F1A14070 06364 -0763 00 0 00006 LGL 6 CARD IN AC. F1A14080 06365 -0340 00 0 05135 LAS L(C) IS THIS A COMMENT CARD. F1A14090 06366 0020 00 0 06370 TRA *+2 NOT A (C) COMMENTS CARD. F1A14100 06367 0020 00 0 06343 TRA LDFT1 YES, IGNORE IT. F1A14110 06370 0322 00 0 05116 ERA STAR DOES COLUMN 1 CONTAIN (*). F1A14120 06371 0100 00 0 06343 TZE LDFT1 *YES, IGNORE IT, COMMENT OR MONITOR CARD. F1A14130 06372 -0500 60 0 10370 LDFT3 CAL* FTREG IS THIS CARD COMPLETELY BLANK. F1A14140 06373 0322 00 0 05155 ERA BLANKS F1A14150 06374 -0100 00 0 06377 TNZ LDFT4 *NO, HAS AT LEAST A CONTINUATION PUNCH. F1A14160 06375 2 00001 2 06372 TIX LDFT3,2,1 F1A14170 06376 0020 00 0 06343 TRA LDFT1 *YES, IGNORE IT. F1A14180 06377 0774 00 4 00000 LDFT4 AXT **,4 RESTORE LINKAGE. F1A14190 06400 0774 00 2 00000 LDFT5 AXT **,2 RELOAD WORD COUNT. F1A14200 06401 0020 00 4 00001 TRA 1,4 RETURN TO CALLER. F1A14210 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 32 * SECTION ONE PASS ONE * RECORD 9F13 * F1A14220 *************************************************************F1A14221 F1A14230 LDFR0 / CALLS LDFT0, SR6DC1 F1A14240 F1A14250 LDFR0 ASSEMBLES A STATEMENT IN THE F-REGION. F1A14260 F1A14270 06402 -0500 00 0 05156 FROVR CAL ALL1 SET END OF STATEMENT MARKER. F1A14280 06403 0602 00 1 77777 SLW -1,1 DIAGNOSTIC WILL NEED IT. F1A14290 06404 0074 00 4 04504 ER1007 TSX DIAG,4 STATEMENT TOO LONG FOR F-REGION. F1A14300 F1A14310 06405 0534 00 2 06400 LDFR0 LXA LDFT5,2 F1A14320 06406 -0500 60 0 10370 CAL* FTREG GET FIRST SIX CHARACTERS OF STATEMENT. F1A14330 BINARY CARD NO. 9F130044 06407 0771 00 0 00006 ARS 6 ELIMINATE CONTINUATION MARK (IF ANY). F1A14340 06410 0602 00 0 04523 SLW FIRST5 SAVE FIRST FIVE. F1A14350 06411 0560 00 0 05155 LDQ BLANKS SHIFT EFN INTO MQ WITH TRAILING BLANKS. F1A14360 06412 -0765 00 0 00030 LGR 24 F1A14370 06413 0734 00 1 00000 PAX ,1 LOAD COLUMN INTO INDEX. F1A14380 06414 0600 00 0 04521 STZ MODECL CLEAR MODE INDICATOR. F1A14390 06415 -3 00011 1 06422 TXL LDFR1,1,9 IS COLUMN 1 NON-NUMERIC. F1A14400 06416 0322 00 0 05145 ERA BLANK YES, IS IT A BLANK. F1A14410 06417 0100 00 0 06423 TZE LDFR2 *YES. F1A14420 06420 0634 00 1 04521 SXA MODECL,1 NO, SAVE IT AS A MODE INDICATOR. F1A14430 06421 0020 00 0 06423 TRA LDFR2 ENTIRE EFN (IF ANY) IS IN MQ. F1A14440 06422 -0765 00 0 00006 LDFR1 LGR 6 SHIFT FIRST DIGIT OF EFN INTO MQ. F1A14450 06423 -0600 00 0 04522 LDFR2 STQ EFN SAVE EXTERNAL FORMULA NUMBER (EFN). F1A14460 06424 -0534 00 1 04516 LXD DCF,1 LOAD 2S COMPLEMENT OF LAST F-REGION USED. F1A14470 06425 1 77777 2 06426 TXI *+1,2,-1 REDUCE FT INDEX TO SECOND WORD. F1A14480 06426 0500 00 0 04520 CLA TLABEL WAS LAST STATEMENT EXECUTABLE. F1A14490 06427 -0120 00 0 06437 TMI LDFR3 *NO, DO NOT FLIP BUFFERS. F1A14500 06430 3 73065 1 06432 TXH *+2,1,-FRGBF2-4 SWITCH BUFFERS. F1A14510 06431 1 00163 1 06433 TXI *+2,1,FREGSZ+4 FLIP TO BUFFER 1. F1A14520 06432 1 77615 1 06433 TXI *+1,1,-FREGSZ-4 FLIP TO BUFFER 2. F1A14530 06433 -0634 00 1 04516 SXD DCF,1 SET BUFFER ADDRESS. F1A14540 06434 1 77621 1 06435 TXI *+1,1,-FREGSZ COMPUTE LAST ADDRESS OF BUFFER FOR F1A14550 BINARY CARD NO. 9F130045 06435 -0634 00 1 06442 SXD LDFR4,1 OVERFLOW TEST. F1A14560 06436 -0534 00 1 04516 LXD DCF,1 LOAD F-REGION ORIGIN (2S COMPLEMENT FORM).F1A14570 06437 0560 60 0 10370 LDFR3 LDQ* FTREG MOVE FT-REGION TO F-REGION. F1A14580 06440 -0600 00 1 00000 STQ 0,1 F1A14590 06441 1 77777 1 06442 TXI *+1,1,-1 UPDATE F-REGION ADDRESS. F1A14600 06442 -3 00000 1 06402 LDFR4 TXL FROVR,1,** *IS THE STATEMENT TOO LONG, YES. F1A14610 06443 2 00001 2 06437 TIX LDFR3,2,1 NO, IS FT-REGION EXHAUSTED. F1A14620 06444 0074 00 4 06342 TSX LDFT0,4 YES, RELOAD IT. F1A14630 06445 -0500 60 0 10370 CAL* FTREG IS THIS CARD A CONTINUATION F1A14640 06446 -0320 00 0 05105 ANA ENDMK OF THE STATEMENT. F1A14650 06447 0100 00 0 06453 TZE LDFR5 *NO. F1A14660 06450 0322 00 0 05145 ERA BLANK POSSIBLY, IS COLUMN 6 BLANK. F1A14670 06451 0100 00 0 06453 TZE LDFR5 *YES. F1A14680 06452 1 77777 2 06437 TXI LDFR3,2,-1 NO, THIS IS A CONTINUATION CARD. F1A14690 06453 -0500 00 0 05155 LDFR5 CAL BLANKS SCAN F-REGION BACKWARDS AND F1A14700 06454 -0340 00 1 77777 LDFR6 LAS -1,1 FIND THE LAST NON-BLANK WORD. F1A14710 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 33 * SECTION ONE PASS ONE * RECORD 9F13 * 06455 1 77777 1 06460 TXI *+3,1,-1 NON-BLANK, SET INDEX TO ENDMARK PLUS ONE. F1A14720 06456 1 00001 1 06454 TXI LDFR6,1,1 BLANK, REDUCE F-REGION INDEX AND CONTINUE.F1A14730 06457 1 77777 1 06460 TXI *+1,1,-1 NON-BLANK, SET INDEX TO ENDMARK PLUS ONE. F1A14740 06460 -0500 00 0 05156 CAL ALL1 INSERT END-MARK (36 BINARY 1S). F1A14750 06461 0602 00 1 77777 SLW -1,1 F1A14760 06462 0634 00 1 06326 SXA WTXQ3,1 SAVE ADDRESS OF LAST NON-BLANK WORD. F1A14770 BINARY CARD NO. 9F130046 06463 0560 00 0 04522 LDQ EFN GET EXTERNAL FORMULA NUMBER (IF ANY). F1A14780 06464 0074 00 1 05342 TSX SR6DC1,1 CONVERT TO BINARY. F1A14790 06465 0602 00 0 04522 SLW EFN SET TO BINARY EQUIVALENT. F1A14800 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1A14810 F1A14820 CD000/ CALLS=C0190X,C0190,DIAG. F1A14830 CD000 SCANS FOR HOLLERITH AND ILLEGAL CHARACTERS. F1A14840 06466 0500 00 0 04521 CLA MODECL TEST FOR ASTERICK IN CC 1 WHICH INDICATES F1A14850 06467 0402 00 0 05137 SUB L(F) TEST FOR F IN CC 1 WHICH MEANS A FORTRAN 3 F1A14860 06470 -0100 00 0 06507 TNZ SCAN0 *FUNCTION LIST. IS NOT A LIST. F1A14870 NAMES FROM FUNCTION LIST ARE ENTERED IN CLOSUB TABLE. F1A14880 06471 0074 00 4 05232 TSX C0190X,4 SET SCAN TO FIRST POSITION. F1A14890 06472 0074 00 4 05250 FCARD0 TSX C0190,4 PLACE FIRST NON-BLANK CHARACTER OF NAME IN F1A14900 06473 0074 00 2 05162 TSX C0160,2 AC AND THEN COLLECT NAME IN 1G CELL. F1A14910 06474 0074 00 4 05473 TSX TESTA0,4 TEST NEXT CHARACTER FOR COMMA OR ENDMK. F1A14920 06475 0500 00 0 05552 CLA 1G MOVE SUBROUTINE NAME TO INPUT CELL FOR TET F1A14930 06476 0601 00 0 05604 STO G SUBROUTINE. F1A14940 06477 0074 00 1 04405 TSX TET00,1 ENTER NAME IN CLOSUB TABLE. F1A14950 06500 0 00000 0 00011 9 WHOSE IDENTIFICATION NUMBER IS 9. F1A14960 06501 0500 00 0 05555 CLA 1H INSPECT CHARACTER FOLLOWING NAME FOR ENDMK.F1A14970 06502 0402 00 0 05105 SUB ENDMK F1A14980 06503 -0100 00 0 06472 TNZ FCARD0 NOT ENDMK, CONITNUE COLLECTING NAMES. F1A14990 06504 -0760 00 0 00003 SSM SET FLAG FOR LDFR ROUTINE SO THAT F1A15000 06505 0601 00 0 04520 STO TLABEL IT WILL NOT FLIP BUFFERS. F1A15010 06506 0020 00 0 04245 TRA PASS1 GO TO NEXT SOURCE STATEMENT. F1A15020 F1A15030 *************************************************************F1A15040 F1A15041 SCAN0 / CALLS WTXQ0, CC000, DIAG AND (DIAG). F1A15042 F1A15043 SCANS AN ASSEMBLED STATEMENT IN ORDER TO DETERMINE IF F1A15044 THERE ARE ANY ILLEGAL CHARACTERS CONTIANED IN THE F1A15045 STATEMENT AND WHETHER THE STATEMENT IS ARITHMETIC F1A15050 OR NON-ARITHMETIC. F1A15051 F1A15052 AN ARITHMETIC STATEMENT IS OF THE FORM - F1A15053 F1A15054 ALPHA = BETA F1A15055 F1A15060 WHERE ALPHA IS 1) A NON-SUBSCRIPTED VARIABLE F1A15061 2) A SUBSCRIPTED VARIABLE F1A15062 F1A15063 AND BETA IS 1) A CONSTANT F1A15064 2) A NON-SUBSCRIPTED VARIABLE F1A15065 3) A SUBSCRIPTED VARIABLE F1A15070 4) AN EXPRESION OF THE FORM F1A15071 F1A15072 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 34 * SECTION ONE PASS ONE * RECORD 9F13 * A+B-C*D/E**F+FUNCTION (G,H,I) F1A15073 F1A15074 WHERE A,B,C,D,E,F,G,H AND F1A15075 I ARE 1,2,3, AND 4 ABOVE. F1A15080 F1A15081 F1A15082 A HOLLERITH LITERAL MAY APPEAR IN AN ARITHMETIC F1A15083 STATEMENT. A HOLLERITH FIELD APPEARS IN NON-ARITHMETIC F1A15084 STATEMENTS. F1A15085 F1A15090 A HOLLERITH LITERAL IS DEFINED AS THE SEQUENCE - F1A15091 F1A15092 +NH.... (+NH....) F1A15093 -NH.... (-NH....) F1A15094 *NH.... (*NH....) F1A15095 F1A15100 A HOLLERITH FIELD IS DEFINED AS THE SEQUENCE - F1A15101 F1A15102 (NH.... F1A15103 /NH.... F1A15104 ,NH.... F1A15105 F1A15110 F1A15111 A NON-ARITHMETIC STATEMENT IS OF THE FORM - F1A15112 F1A15113 1) X 5) X (Y=Y,Y) F1A15114 2) X (Y) 6) X Y F1A15115 3) X (Y,Y) 7) X Y,Y F1A15120 4) X (Y),(Y) 8) X Y=Y,Y F1A15121 F1A15122 WHERE X IS A DECLARATION, DESCRIPTION, DIRECTIVE, F1A15123 OR QUESTION. F1A15124 F1A15125 AND Y IS THE SAME AS THE ABOVE BETA IN AN F1A15130 ARITHMETIC STATEMENT OR A WORD. F1A15131 F1A15132 F1A15133 06507 0020 00 0 10112 SCAN0 TRA SCAN00 GO TO PATCH TO TEST FOR IF(. $F1A15140 06510 0600 00 0 07021 STZ LITFG RESET HOLLERITH LITER FLAG. F1A15141 BINARY CARD NO. 9F130047 06511 0600 00 0 07022 STZ HOLFG RESET HOLLERITH FIELD FLAG. F1A15142 06512 0600 00 0 07024 STZ NOTAF RESET NON-ARITHMETIC FLAG. F1A15143 06513 0600 00 0 07023 STZ EQSFG RESET EQUALS SIGN FLAG. F1A15144 06514 -0534 00 2 04516 LXD DCF,2 LOAD ORIGIN OF F-REGION. F1A15150 06515 -0754 00 0 00000 ZAC RESET PAREN COUNTER. F1A15151 06516 0560 00 2 00000 SCAN1 LDQ 0,2 GET A WORD OF THE STATEMENT. F1A15160 06517 0774 00 4 00006 AXT 6,4 INITIALIZE CHARACTER COUNT. F1A15161 06520 -0114 01 1 06721 SCAN2 CAQ SCANT,1,1 CHECK A CHARACTER. F1A15162 06521 0020 00 0 10117 TRA CHSV1 STORE CURRENT CHARACTER $F1A15163 F1A15170 TRANSFER VECTOR. F1A15171 F1A15172 06522 DUP 1,4 SPACE FOR ADDITIONAL BRANCHES. $F1A15173 06522 0 00000 0 00000 PZE 23-26 $F1A15174 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 35 * SECTION ONE PASS ONE * RECORD 9F13 * F1A15175 06526 0020 00 0 10126 TRA PMS01 22 - CHARACTER IS * $F1A15179 06527 0074 00 4 04504 ER0026 TSX DIAG,4 21 - CHARACTER IS $ F1A15180 06530 0074 00 4 04504 ER0027 TSX DIAG,4 20 - CHARACTER IS + ZERO F1A15181 06531 0074 00 4 04504 ER0028 TSX DIAG,4 17 - CHARACTER IS - ZERO F1A15182 06532 0074 00 4 04504 ER0029 TSX DIAG,4 16 - CHARACTER IS RECORD MARK F1A15183 06533 0074 00 4 04504 ER0030 TSX DIAG,4 15 - CHARACTER IS 8-4 PUNCH F1A15184 06534 0074 00 4 04235 TSX OCTL12,4 14 - CHARACTER IS OCTAL 12. F1A15185 06535 0020 00 0 06706 TRA END00 13 - CHARACTER IS ENDMARK F1A15190 06536 0020 00 0 06700 TRA CHRX0 12 - CHARACTER IS X F1A15191 BINARY CARD NO. 9F130048 06537 0020 00 0 06624 TRA CHRH0 11 - CHARACTER IS H F1A15192 06540 0020 00 0 06623 TRA LPRN0 10 - CHARACTER IS ( $F1A15193 06541 0020 00 0 06620 TRA RPRN0 07 - CHARACTER IS ) $F1A15194 06542 0020 00 0 06614 TRA EQUS0 06 - CHARACTER IS = $F1A15195 06543 0020 00 0 06610 TRA COMA0 05 - CHARACTER IS , $F1A15200 06544 0020 00 0 10126 TRA PMS01 04 - CHARACTER IS / $F1A15201 06545 0020 00 0 10126 TRA PMS01 03 - CHARACTER IS +- $F1A15202 06546 0020 00 0 06552 TRA DIGT0 02 - CHARACTER IS NUMERIC $F1A15203 06547 0020 00 0 06573 TRA LEGL0 01 - CHARACTER IS LEGAL $F1A15204 06550 2 00001 4 06520 SCAN3 TIX SCAN2,4,1 00 - CHARACTER IS BLANK OR COUNT TEST. F1A15205 06551 1 77777 2 06516 SCAN4 TXI SCAN1,2,-1 *WORD EXHAUSTED, GET ANOTHER. F1A15210 F1A15211 F1A15212 CHARACTER IS A NUMERIC. F1A15213 F1A15214 06552 0520 00 0 07022 DIGT0 ZET HOLFG IS THIS POSSIBLY A HOLLERITH FIELD. F1A15220 06553 0020 00 0 06556 TRA DIGT1 YES. N FOLLOWS (/ OR , F1A15221 06554 -0520 00 0 07021 NZT LITFG NO. IS THIS POSSIBLY A HOLLERITH LITERAL. F1A15222 06555 0020 00 0 06550 TRA SCAN3 *NO. N DOES NOT FOLLOW +-* F1A15223 06556 -0600 00 0 07025 DIGT1 STQ C(MQ) YES. SAVE CONTENTS OF MQ. F1A15224 06557 -0130 00 0 00000 XCL SAVE AC IN MQ AND MOVE DIGIT TO F1A15225 06560 -0320 00 0 05105 ANA ENDMK LOW ORDER OF AC AND PRESERVE IT. F1A15230 06561 0602 00 0 05553 SLW 2G SAVE DIGIT. F1A15231 06562 0500 00 0 05552 CLA 1G GET PREVIOUS PARTIAL RESULT. F1A15232 06563 0767 00 0 00002 ALS 2 MULTIPLY BY 4. F1A15233 06564 0400 00 0 05552 ADD 1G ADD NEW DIGIT. F1A15234 BINARY CARD NO. 9F130049 06565 0767 00 0 00001 ALS 1 MULTIPLY BY 2. F1A15235 06566 0400 00 0 05553 ADD 2G ADD NEW DIGIT AGAIN. F1A15240 06567 0601 00 0 05552 STO 1G SAVE PARTIAL RESULT. F1A15241 06570 -0130 00 0 00000 XCL RESTORE PAREN COUNT IN AC. F1A15242 06571 0560 00 0 07025 LDQ C(MQ) RESTORE CHARACTERS IN MQ. F1A15243 06572 0020 00 0 06550 TRA SCAN3 *RETURN TO SCAN. F1A15244 F1A15245 CHARACTER IS LEGAL AND INSIGNIFICANT. F1A15250 F1A15251 06573 -0320 00 0 05154 LEGL0 ANA 1BAR AVOID FIELD OVERFLOW, MASK DECREMENT. F1A15260 06574 0600 00 0 07022 STZ HOLFG RESET HOLLERITH FIELD FLAG. F1A15261 06575 0600 00 0 07021 STZ LITFG RESET HOLLERITH LITERAL FLAG. F1A15262 06576 0600 00 0 05552 STZ 1G CLEAR CONVERSION CELL. F1A15263 06577 0020 00 0 06550 TRA SCAN3 *RETURN TO SCAN. F1A15264 F1A15265 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 36 * SECTION ONE PASS ONE * RECORD 9F13 * CHARACTER IS +-* OR = F1A15270 F1A15271 06600 -0625 00 0 07021 PMS00 STL LITFG SET POSSIBLE HOLLERITH LITERAL FLAG. F1A15272 06601 0600 00 0 07022 STZ HOLFG RESET POSSIBLE HOLLERITH FIELD FLAG. F1A15273 06602 0600 00 0 05552 STZ 1G CLEAR CONVERSION CELL. F1A15274 06603 0020 00 0 06550 TRA SCAN3 *RETURN TO SCAN. F1A15275 F1A15280 CHARACTER IS /( OR , F1A15281 F1A15282 06604 -0625 00 0 07022 SLSH0 STL HOLFG SET POSSIBLE HOLLERITH FIELD FLAG. F1A15290 06605 0600 00 0 07021 STZ LITFG RESET POSSIBLE HOLLERITH LITERAL FLAG. F1A15291 06606 0600 00 0 05552 STZ 1G CLEAR CONVERSION CELL. F1A15292 06607 0020 00 0 06550 TRA SCAN3 *RETURN TO SCAN. F1A15293 F1A15300 CHARACTER IS , F1A15301 F1A15302 06610 -0734 00 1 00000 COMA0 PDX ,1 LOAD PAREN COUNT. IS COMMA INSIDE PARENS. F1A15310 06611 3 00000 1 06604 TXH SLSH0,1,0 *YES,IS SUBSCRIPT OR ARGUMENT SEPARATOR $F1A15311 06612 -0625 00 0 07024 COMA1 STL NOTAF NO. THIS MUST BE A NON-ARITHMETIC F1A15312 BINARY CARD NO. 9F130050 06613 0020 00 0 06573 TRA LEGL0 *STATEMENT, SET FLAG AND CLEAR FLAGS. F1A15313 F1A15320 CHARACTER IS = F1A15321 F1A15322 06614 -0734 00 1 00000 EQUS0 PDX ,1 LOAD PAREN COUNT. IS EQUALS INSIDE PARENS.F1A15330 06615 3 00000 1 06612 TXH COMA1,1,0 *YES, MUST BE I/O LIST. F1A15331 06616 -0625 00 0 07023 STL EQSFG NO. SET FLAG FOR POSSIBLE ARITHMETIC. F1A15332 06617 0020 00 0 06600 TRA PMS00 *TREAT AS POSSIBLE HOLLERITH LITERAL F1A15333 DEFINITION. F1A15334 F1A15340 CHARACTER IS ) F1A15341 F1A15342 06620 -0734 00 1 00000 RPRN0 PDX ,1 LOAD PAREN COUNT. HAS COUNT GONE MINUS. F1A15350 06621 -3 02260 1 06573 TXL LEGL0,1,1200 *NO,CLEAR FLAGS $F1A15351 06622 0020 00 0 06711 TRA ER0032 *YES. GO TO DIAGNOSTIC. F1A15352 F1A15360 CHARACTER IS ( F1A15361 F1A15362 06623 0020 00 0 06604 LPRN0 TRA SLSH0 *TREAT AS POSSIBLE HOLLERITH FIELD DEF. F1A15363 F1A15370 CHARACTER IS H. F1A15371 F1A15372 06624 0520 00 0 07021 CHRH0 ZET LITFG IS THIS POSSIBLY A HOLLERITH LITERAL. F1A15380 06625 0020 00 0 06630 TRA CHRH1 YES. F1A15381 06626 -0520 00 0 07022 NZT HOLFG NO. IS THIS POSSIBLY A HOLLERITH FIELD. F1A15382 06627 0020 00 0 06573 TRA LEGL0 *NO,MUST BE VARIABLE OR WORD $F1A15383 06630 0534 00 1 05552 CHRH1 LXA 1G,1 YES. LOAD CHARACTER COUNT. F1A15384 06631 -3 00000 1 06573 TXL LEGL0,1,0 *IS COUNT 0.YES,NOT HOLLERITH $F1A15385 06632 0520 00 0 07022 ZET HOLFG IS THIS A HOLLERITH FIELD. F1A15390 06633 -0625 00 0 07024 STL NOTAF YES. SET NON-ARITHMETIC FLAG. F1A15391 06634 0602 00 0 07025 SLW C(MQ) SAVE CONTENTS OF AC. F1A15392 06635 2 00001 4 06641 CHRH2 TIX CHRH3,4,1 *ANY CHARACTERS LEFT IN MQ, YES. F1A15393 06636 1 77777 2 06637 TXI *+1,2,-1 NO. INCREMENT F-REGION INDEX. F1A15394 06637 0560 00 2 00000 LDQ 0,2 GET ANOTHER WORD OF STATEMENT. F1A15395 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 37 * SECTION ONE PASS ONE * RECORD 9F13 * 06640 0774 00 4 00006 AXT 6,4 INITIALIZE COUNT OF CHARACTERS IN MQ. F1A15400 BINARY CARD NO. 9F130051 06641 0634 00 1 06672 CHRH3 SXA CHRH4,1 SAVE HOLLERITH CHARACTER COUNT. F1A15401 06642 -0114 01 1 06721 CAQ SCANT,1,1 CHECK A CHARACTER. F1A15402 06643 0020 00 1 06672 TRA CHRH4,1 *BRANCH ON ANALYSIS OF CHARACTER. F1A15403 F1A15410 TRANSFER VECTOR FOR HOLLERITH SCAN. F1A15411 F1A15412 06644 DUP 1,4 SPACE FOR ADDITIONAL BRANCHES. $F1A15420 06644 0 00000 0 00000 PZE F1A15421 F1A15422 06650 0020 00 0 06672 TRA CHRH4 CHARACTER IS * $F1A15429 06651 0020 00 0 06672 TRA CHRH4 CHARACTER IS $ F1A15430 06652 0020 00 0 06530 TRA ER0027 CHARACTER IS + ZERO F1A15431 06653 0020 00 0 06531 TRA ER0028 CHARACTER IS - ZERO F1A15432 06654 0020 00 0 06532 TRA ER0029 CHARACTER IS RECORD MARK F1A15433 06655 0020 00 0 06672 TRA CHRH4 CHARACTER IS 8-4 PUNCH. F1A15434 06656 0074 00 4 04235 TSX OCTL12,4 CHARACTER IS OCTAL 12 F1A15435 06657 0074 00 4 04504 ER0075 TSX DIAG,4 CHARACTER IS ENDMARK F1A15440 06660 0020 00 0 06672 TRA CHRH4 CHARACTER IS X F1A15441 06661 0020 00 0 06672 TRA CHRH4 CHARACTER IS H F1A15442 06662 0020 00 0 06672 TRA CHRH4 CHARACTER IS ( F1A15443 06663 0020 00 0 06672 TRA CHRH4 CHARACTER IS ) F1A15444 06664 0020 00 0 06672 TRA CHRH4 CHARACTER IS ' F1A15445 06665 0020 00 0 06672 TRA CHRH4 CHARACTER IS , F1A15450 06666 0020 00 0 06672 TRA CHRH4 CHARACTER IS / F1A15451 BINARY CARD NO. 9F130052 06667 0020 00 0 06672 TRA CHRH4 CHARACTER IS +-* F1A15452 06670 0020 00 0 06672 TRA CHRH4 CHARACTER IS NUMERIC F1A15453 06671 0020 00 0 06672 TRA CHRH4 CHARACTER IS LEGAL F1A15454 06672 0774 00 1 00000 CHRH4 AXT **,1 CHARACTER IS BLANK OR COUNT TEST. F1A15455 06673 2 00001 1 06635 TIX CHRH2,1,1 *IS HOLLERITH FIELD EXHAUSTED, NO. F1A15460 06674 0600 00 0 05552 STZ 1G YES. CLEAR CONVERSION CELL. F1A15461 06675 0600 00 0 07021 STZ LITFG RESET HOLLERITH LITERAL FLAG. F1A15462 06676 -0500 00 0 07025 CAL C(MQ) RESTORE PAREN COUNT IN AC. F1A15463 06677 0020 00 0 06550 TRA SCAN3 *RETURN TO NORMAL SCAN. F1A15464 F1A15470 CHARACTER IS X F1A15471 F1A15472 06700 0520 00 0 07022 CHRX0 ZET HOLFG IS THIS POSSIBLY A BLANK SPECIFICATION. F1A15480 06701 -0520 00 0 05552 NZT 1G YES. IS THE COUNT NON-ZERO. F1A15481 06702 0020 00 0 06573 TRA LEGL0 *NO,NOT BLANK FIELD SPECIFICATION $F1A15482 06703 0600 00 0 05552 STZ 1G YES. CLEAR BLANK COUNT. F1A15483 06704 -0625 00 0 07024 STL NOTAF SET NON-ARITHMETIC FLAG. F1A15484 06705 0020 00 0 06550 TRA SCAN3 *RETURN TO SCAN. F1A15485 F1A15490 CHARACTER IS ENDMARK F1A15491 F1A15492 06706 -0734 00 1 00000 END00 PDX ,1 LOAD PAREN COUNT. F1A15500 06707 -3 00000 1 06713 TXL END01,1,0 *DO PARENS BALANCE, YES. F1A15501 06710 -3 02260 1 06712 TXL *+2,1,1200 NO, TOO MANY LEFTS OR TOO MANY RIGHTS. F1A15502 06711 0074 00 4 04504 ER0032 TSX DIAG,4 *TOO MANY RIGHT PARENS. F1A15510 06712 0074 00 4 04504 ER0074 TSX DIAG,4 *TOO MANY LEFT PARENS. F1A15511 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 38 * SECTION ONE PASS ONE * RECORD 9F13 * 06713 -0520 00 0 07024 END01 NZT NOTAF IS THE NON-ARITHMETIC FLAG SET. F1A15520 06714 -0520 00 0 07023 NZT EQSFG NO. DOES STATEMENT LACK AN = SIGN. F1A15521 BINARY CARD NO. 9F130053 06715 0020 00 0 07026 TRA CC000 *YES. GO TO DICTIONARY LOOK-UP. F1A15522 06716 0774 00 4 10773 AXT ARITH,4 LOAD ARITHMETIC TRANSFER ADDRESS. F1A15530 06717 0754 00 4 00000 PXA ,4 SET IN AC FOR WTXQ ROUTINE. F1A15531 06720 0020 00 0 10155 TRA BGPCH *WRITE STATEMENT ON INTERMEDIATE $F1A15532 STORAGE FOR PASS TWO. F1A15533 F1A15540 F1A15541 TABLE FOR SCANNING A STATEMENT. F1A15542 F1A15543 00 01 02 03 04 05 06 07 10 11 12 = 14 15 16 17 + F1A15550 06721 +000000000002 SCANT OCT 02,02,02,02,02,02,02,02,02,02,14,06,15,01,01,01,03 F1A15551 F1A15552 A B C D E F G H I +0 . ) 35 36 37 -F1A15560 06742 +000000000001 OCT 01,01,01,01,01,01,01,11,01,20,01,077777000007,01,01,01,03F1A15561 BINARY CARD NO. 9F130054 F1A15562 J K L M N O P Q R -0 $ * 55 56 57 BL / F1A15570 06762 +000000000001 OCT 01,01,01,01,01,01,01,01,01,17,21,22,01,01,01,00,04 $F1A15571 BINARY CARD NO. 9F130055 F1A15572 S T U V W X Y Z RM , ( 75 76 ENDMARK F1A15580 07003 +000000000001 OCT 01,01,01,01,01,12,01,01,16,05,000001000010,01,01,13 F1A15581 BINARY CARD NO. 9F130056 F1A15582 CLASSIFICATION FLAGS. F1A15590 F1A15591 07021 0 00000 0 00000 LITFG PZE ** HOLLERITH LITERAL FLAG. F1A15600 07022 0 00000 0 00000 HOLFG PZE ** HOLLERITH FIELD FLAG. F1A15601 07023 0 00000 0 00000 EQSFG PZE ** EQUALS SIGN FLAG. F1A15602 07024 0 00000 0 00000 NOTAF PZE ** NON-ARITHMETIC FLAG. F1A15603 07025 0 00000 0 00000 C(MQ) PZE ** CELL FOR SAVING MQ OR AC. F1A15604 F1A15605 F1A15610 *************************************************************F1A15620 F1A15630 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1A16290 F1A16300 CC000/ CALLS=CC500,C0190X,DIAG,C0190. F1A16310 CC000 CLASSIFIES STATEMENT AS TO WHICH NON-ARITHMETIC. F1A16320 07026 0600 00 0 05553 CC000 STZ 2G SET DICTIONARY WORD TAG, AND F1A16330 07027 0534 00 3 05120 LXA L(0),3 CHARACTER COUNT AND ENTRY COUNT. F1A16340 07030 0074 00 4 05232 CC001 TSX C0190X,4 * RESET CHCTR AND FWA TO BEGIN SCAN. F1A16350 07031 0074 00 4 07054 TSX CC500,4 * EXAMINE NEXT DICTIONARY CHARACTER. F1A16360 07032 0340 00 0 05105 CAS ENDMK TEST FOR CONSECUTIVE ENDMARKS. F1A16370 07033 0074 00 4 04234 TSX MRTN77,4 *CHARACTER GREATER THAN 77 OCTAL, IMPOSS. F1A16380 07034 0020 00 0 04240 TRA ER0033 * ERROR, NOT FOUND IN DICTIONARY. F1A16390 07035 1 00000 0 07042 TXI CC004,,0 BEGIN COMPARISON. F1A16400 07036 0074 00 4 07054 CC002 TSX CC500,4 * EXAMINE NEXT DICTIONARY CHARACTER. F1A16410 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 39 * SECTION ONE PASS ONE * RECORD 9F13 * 07037 0340 00 0 05105 CAS ENDMK TEST FOR END OF DIC ENTRY. F1A16420 07040 0074 00 4 04234 TSX MRTN77,4 *CHARACTER GREATER THAN 77 OCTAL, IMPOSS. F1A16430 07041 0020 00 0 06313 TRA WTXQ0 *IF END OF ENTRY, LOOK NO FURTHER. F1A16440 07042 0601 00 0 05550 CC004 STO 1C+3 OTHERWISE, SAVE CHARACTER F1A16450 07043 -0600 00 0 05546 STQ 1C+1 AND REMAINDER OF DICTIONARY WORD. F1A16460 07044 0074 00 4 05250 TSX C0190,4 * GO GET NEXT FORMULA CHARACTER, F1A16470 BINARY CARD NO. 9F130057 07045 0560 00 0 05546 LDQ 1C+1 AND RESTORE DICTIONARY WORD. F1A16480 07046 0402 00 0 05550 SUB 1C+3 IF CHARACTERS ARE EQUAL, F1A16490 07047 0100 00 0 07036 TZE CC002 THEN GO COMPARE NEXT CHARACTERS. F1A16500 07050 0074 00 4 07054 CC005 TSX CC500,4 * OTHERWISE, EXAMINE NEXT DIC CHAR. F1A16510 07051 0402 00 0 05105 SUB ENDMK CONTINUE UNTIL AN ENDMARK IS F1A16520 07052 -0100 00 0 07050 TNZ CC005 FOUND, THEN F1A16530 07053 1 77777 1 07030 TXI CC001,1,-1 COUNT ENTRY, AND BEGIN AGAIN. F1A16540 END OF PROGRAM CC000. F1A16550 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1A16560 F1A16570 CC500,4/ F1A16580 CC500 BRINGS NEXT CHARACTER OF DICTIONARY INTO AC(30-35). F1A16590 07054 -0754 00 0 00000 CC500 PXD ,0 CLEAR THE AC. F1A16600 07055 2 00001 2 07063 TIX CC502,2,1 IF NO DICTIONARY CHARACTERS F1A16610 07056 -0534 00 2 05553 LXD 2G,2 REMAIN IN THE MQ, THEN F1A16620 07057 0560 00 2 07065 LDQ DIC,2 REFILL WITH NEXT DICTIONARY WORD. F1A16630 07060 1 77777 2 07061 TXI CC501,2,-1 RESET THE F1A16640 07061 -0634 00 2 05553 CC501 SXD 2G,2 DICTIONARY WORD TAG, AND F1A16650 07062 0534 00 2 05126 LXA L(6),2 SET THE CHARACTER COUNT = 6. F1A16660 07063 -0763 00 0 00006 CC502 LGL 6 SHIFT CHAR INTO AC(30-35), F1A16670 07064 0020 00 4 00001 TRA 1,4 * AND RETURN TO CALLER. F1A16680 END OF PROGRAM CC500. F1A16690 F1A16700 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1A16710 F1A16720 DIC/ DICTIONARY OF NON-ARITHMETIC STATEMENTS (USED BY CC500).F1A16730 07065 +244677274663 DIC OCT 244677274663 DO-GOT F1A16740 07066 -067731267462 OCT -67731267462 O-IF(S F1A16750 07067 +254562256266 OCT 254562256266 ENSESW F1A16760 07070 +316323307731 OCT 316323307731 ITCH-I F1A16770 07071 +267462254562 OCT 267462254562 F(SENS F1A16780 07072 +254331273063 OCT 254331273063 ELIGHT F1A16790 BINARY CARD NO. 9F130058 07073 -373126243165 OCT -373126243165 -IFDIV F1A16800 07074 +312425233025 OCT 312425233025 IDECHE F1A16810 07075 +234277312621 OCT 234277312621 CK-IFA F1A16820 07076 +232364446443 OCT 232364446443 CCUMUL F1A16830 07077 +216346514665 OCT 216346514665 ATOROV F1A16840 07100 +255126434666 OCT 255126434666 ERFLOW F1A16850 07101 -373126506446 OCT -373126506446 -IFQUO F1A16860 07102 -233125456346 OCT -233125456346 TIENTO F1A16870 07103 -252551264346 OCT -252551264346 VERFLO F1A16880 07104 -267731267721 OCT -267731267721 W-IF-A F1A16890 07105 -226231274577 OCT -226231274577 SSIGN- F1A16900 07106 -226346477747 OCT -226346477747 STOP-P F1A16910 07107 +216462257762 OCT 216462257762 AUSE-S F1A16920 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 40 * SECTION ONE PASS ONE * RECORD 9F13 * 07110 +254562254331 OCT 254562254331 ENSELI F1A16930 07111 +273063772431 OCT 273063772431 GHT-DI F1A16940 07112 -042545623146 OCT -42545623146 MENSIO F1A16950 07113 -057725506431 OCT -57725506431 N-EQUI F1A16960 07114 -252143254523 OCT -252143254523 VALENC F1A16970 07115 +257726512550 OCT 257726512550 E-FREQ F1A16980 07116 -242545237077 OCT -242545237077 UENCY- F1A16990 07117 +234645633145 OCT 234645633145 CONTIN F1A17000 07120 -242577512521 OCT -242577512521 UE-REA F1A17010 BINARY CARD NO. 9F130059 07121 +246321472577 OCT 246321472577 DTAPE- F1A17020 07122 -112521243145 OCT -112521243145 READIN F1A17030 07123 -076463632147 OCT -76463632147 PUTTAP F1A17040 07124 +257751252124 OCT 257751252124 E-READ F1A17050 07125 +245164447751 OCT 245164447751 DRUM-R F1A17060 07126 +252124776651 OCT 252124776651 EAD-WR F1A17070 07127 +316325632147 OCT 316325632147 ITETAP F1A17080 07130 +257766513163 OCT 257766513163 E-WRIT F1A17090 07131 +254664634764 OCT 254664634764 EOUTPU F1A17100 07132 -236321472577 OCT -236321472577 TTAPE- F1A17110 07133 -265131632524 OCT -265131632524 WRITED F1A17120 07134 -116444774751 OCT -116444774751 RUM-PR F1A17130 07135 +314563774764 OCT 314563774764 INT-PU F1A17140 07136 -052330775125 OCT -52330775125 NCH-RE F1A17150 07137 -263145247722 OCT -263145247722 WIND-B F1A17160 07140 +212342624721 OCT 212342624721 ACKSPA F1A17170 07141 +232577254524 OCT 232577254524 CE-END F1A17180 07142 +263143257726 OCT 263143257726 FILE-F F1A17190 07143 -065144216377 OCT -65144216377 ORMAT- F1A17200 07144 -226422514664 OCT -226422514664 SUBROU F1A17210 07145 -233145257723 OCT -233145257723 TINE-C F1A17220 07146 -064444464577 OCT -064444464577 OMMON- F1A17230 BINARY CARD NO. 9F130060 07147 -112563645145 OCT -112563645145 RETURN F1A17240 07150 -372321434377 OCT -372321434377 -CALL- F1A17250 07151 +254524772664 OCT 254524772664 END-FU F1A17260 07152 -052363314645 OCT -052363314645 NCTION F1A17270 07153 -377777777777 OCT 777777777777 ------ END OF DICTIONARY MARKER. F1A17280 07154 BSS 10 F1A17290 END OF DICTIONARY. F1A17300 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1A17310 F1A17320 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1A17330 F1A17340 CF000/ CALLS=SR6DC1,TET00. F1A17350 CF000 SETS EIFNO, NONEXC, FOR NON-EXECUTABLE STATEMENTS. F1A17360 BINARY CARD NO. 9F130061 07166 -0534 00 1 03734 CF000 LXD EIFNO,1 INCREASE INTERNAL F1A17370 07167 1 00001 1 07170 TXI *+1,1,1 FORMULA NUMBER F1A17380 07170 -0634 00 1 03734 SXD EIFNO,1 BY ONE. F1A17390 07171 -0500 00 0 04522 CAL EFN EXAMINE EXTERNAL FORMULA NUMBER. F1A17400 07172 0100 00 0 07176 TZE CFNEXC IF NON-ZERO, THEN F1A17410 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 41 * SECTION ONE PASS ONE * RECORD 9F13 * 07173 0621 00 0 03734 STA EIFNO MAKE F1A17420 07174 0074 00 1 04405 TSX TET00,1 * AN ENTRY F1A17430 07175 0 00000 0 00000 PZE 0 IN TEIFNO. F1A17440 07176 0074 00 1 04405 CFNEXC TSX TET00,1 * THEN MAKE AN ENTRY F1A17450 07177 0 00000 0 00016 PZE 14 IN THE NONEXC TABLE, F1A17460 07200 0020 60 0 04520 TRA* TLABEL * AND GO PROCESS THIS STATEMENT. F1A17470 END OF PROGRAM CF000. F1A17480 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1A17490 F1A17500 T/ TRANSFER TABLE (USED BY CF000). F1A17510 07201 0 00002 0 07222 T PZE C0100,,2 DO. F1A17520 07202 0 00004 0 07315 PZE C0200,,4 GO TO. F1A17530 07203 0 00016 0 07474 PZE C0400,,14 IF (SENSE SWITCH. F1A17540 07204 0 00015 0 07530 PZE C0500,,13 IF (SENSE LIGHT. F1A17550 07205 0 00015 0 07534 PZE C0600,,13 IF DIVIDE CHECK. F1A17560 07206 0 00025 0 07542 PZE C0700,,21 IF ACCUMULATOR OVERFLOW. F1A17570 07207 0 00022 0 07542 PZE C0700,,18 IF QUOTIENT OVERFLOW. F1A17580 07210 0 00000 0 07424 PZE C0300,,0 IF. F1A17590 07211 0 00006 0 07603 PZE C1000,,6 ASSIGN. F1A17600 07212 0 00004 0 07646 PZE C1300,,4 STOP. F1A17610 07213 0 00005 0 07556 PZE C0900,,5 PAUSE. F1A17620 BINARY CARD NO. 9F130062 07214 0 00012 0 07634 PZE C1100,,10 SENSE LIGHT. F1A17630 07215 -0 00011 0 07256 MZE C1200,,9 DIMENSION. F1A17640 07216 -0 00013 0 07410 MZE C1500,,11 EQUIVALENCE. F1A17650 07217 -0 00011 0 07367 MZE C1400,,9 FREQUENCY. F1A17660 07220 0 00010 0 07655 PZE C1600,,8 CONTINUE. F1A17670 07221 0 00010 0 10043 PZE TSB,,8 READ TAPE. F1A17680 07222 0 00015 0 10011 PZE TSH,,13 READ INPUT TAPE. F1A17690 07223 0 00010 0 10102 PZE DRS,,8 READ DRUM. F1A17700 07224 0 00004 0 10017 PZE CSH,,4 READ. F1A17710 07225 0 00011 0 10036 PZE STB,,9 WRITE TAPE. F1A17720 07226 0 00017 0 10022 PZE STH,,15 WRITE OUTPUT TAPE. F1A17730 07227 0 00011 0 10062 PZE SDR,,9 WRITE DRUM. F1A17740 07230 0 00005 0 10030 PZE SPH,,5 PRINT. F1A17750 07231 0 00005 0 10033 PZE SCH,,5 PUNCH. F1A17760 07232 0 00006 0 10057 PZE RWT,,6 REWIND. F1A17770 07233 0 00011 0 10050 PZE BST,,9 BACKSPACE. F1A17780 07234 0 00007 0 10054 PZE EFT,,7 END FILE. F1A17790 07235 -0 00006 0 07570 MZE FOR,,6 FORMAT. F1A17800 07236 -0 00012 0 07450 MZE C3000,,10 SUBROUTINE. F1A17810 07237 -0 00006 0 07514 MZE C3100,,6 COMMON. F1A17820 07240 0 00006 0 07662 PZE C3200,,6 RETURN. F1A17830 07241 0 00004 0 07761 PZE C3300,,4 CALL. F1A17840 BINARY CARD NO. 9F130063 07242 -0 00003 0 07536 MZE C3400,,3 END. F1A17850 07243 -0 00010 0 07446 MZE C3500,,8 FUNCTION. F1A17860 07244 BSS 10 F1A17870 END OF TRANSFER TABLE. F1A17880 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1A17890 F1A17900 END OF PASS1 CLASSIFICATION. F1A17910 F1A17920 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 42 * SECTION ONE PASS ONE * RECORD 9F13 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1A17930 F1A17940 PASS 1/2-PROCESS NON-EXECUTABLE STATEMENTS= F1A17950 F1A17960 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1A17970 F1A17980 C1200/ CALLS=C0190,C0160,TEST..,DIM.SR,DIAG,C0180X. F1A17990 C1200 PROCESSES DIMENSION STATEMENTS. F1A18000 BINARY CARD NO. 9F130064 07256 0074 00 4 05250 C1200 TSX C0190,4 * PROCEED TO ASSEMBLE IN 1G F1A18010 07257 0074 00 2 05162 TSX C0160,2 * THE VARIABLE SYMBOL. F1A18020 07260 0074 00 4 05521 TSX TESTE0,4 * NEXT NB CHARACTER SHOULD BE LPAREN.F1A18030 07261 0074 00 1 07264 TSX C12SUB,1 USE SUBROUTINE TO COLLECT SPECIFICATION. F1A18040 07262 0020 00 0 07256 TRA C1200 NOT LAST SPECIFICATION, CONTINUE. F1A18050 07263 0020 00 0 04245 TRA PASS1 * EXIT TO PASS1. F1A18060 SUBROUTINE TO COLLENT SPECIFICATIONS OF ARRAYS AND MAKE F1A18070 ENTRIES IN PROPER DIMENSION TABLE. F1A18080 ENTRY HAS VARIABLE NAME IN 1G, SCAN IS POSITIONED AFTER ( F1A18090 07264 0500 00 0 05552 C12SUB CLA 1G PUT VARIABLE SYMBOL F1A18100 07265 0601 00 0 05545 STO 1C IN 1C. F1A18110 07266 0601 00 0 05561 STO E+2 ALSO IN E+2. THEN F1A18120 07267 0600 00 0 05547 STZ 1C+2 F1A18130 07270 0600 00 0 05550 STZ 1C+3 F1A18140 07271 0600 00 0 05551 STZ 1C+4 F1A18150 F1A18160 07272 0074 00 4 05272 TSX DIM1SR,4 * GO SEARCH DIM1 TABLE. F1A18170 07273 0020 00 0 07275 TRA C1280 THEN IF NOT F1A18180 07274 0020 00 0 07302 TRA C1299 FOUND, F1A18190 07275 0074 00 4 05276 C1280 TSX DIM2SR,4 * GO SEARCH DIM2 TABLE. F1A18200 07276 0020 00 0 07300 TRA C1281 THEN IF NOT F1A18210 07277 0020 00 0 07302 TRA C1299 FOUND, F1A18220 07300 0074 00 4 05316 C1281 TSX DIM3SR,4 * GO SEARCH DIM3 TABLE. F1A18230 07301 0020 00 0 07303 TRA C1282 DO NOT CONTINUE IF F1A18240 07302 ER0036 BSS 0 F1A18250 07302 0074 00 4 04504 C1299 TSX DIAG,4 * VARIABLE PREVIOUSLY APPEARED. F1A18260 07303 0074 00 2 05214 C1282 TSX C0180X,2 * FORM IN 1G THE BINARY OF D1. F1A18270 BINARY CARD NO. 9F130065 07304 0074 00 4 05501 TSX TESTB0,4 TEST FOR COMMA OR CLOSE PARENTHESIS. F1A18280 07305 0100 00 0 07326 TZE C1210 THEN F1A18290 07306 0500 00 0 05552 CLA 1G PUT D1 F1A18300 07307 0767 00 0 00022 ALS 18 IN DECR F1A18310 07310 0601 00 0 05546 STO 1C+1 OF 1C+1. F1A18320 07311 0074 00 2 05214 TSX C0180X,2 * FORM IN 1G THE BINARY OF D2. F1A18330 07312 0074 00 4 05501 TSX TESTB0,4 TEST FOR COMMA OR CLOSE PARENTHESIS. F1A18340 07313 0100 00 0 07332 TZE C1220 THEN F1A18350 07314 0500 00 0 05552 CLA 1G PUT D2 F1A18360 07315 0621 00 0 05546 STA 1C+1 IN ADDRESS OF 1C+1. F1A18370 07316 0074 00 2 05214 TSX C0180X,2 * FORM IN 1G THE BINARY OF D3. F1A18380 07317 0402 00 0 05110 SUB CLOS IF MORE THAN 3 DIMENSION, F1A18390 07320 0100 00 0 07322 TZE *+2 THIS IS AN F1A18400 07321 ER0037 BSS 0 F1A18410 07321 0074 00 4 04504 TSX DIAG,4 * ERROR - GO TO THE DIAGNOSTIC. F1A18420 07322 0500 00 0 05552 CLA 1G IF 3 DIMENSION, PUT D3 F1A18430 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 43 * SECTION ONE PASS ONE * RECORD 9F13 * 07323 0601 00 0 05547 STO 1C+2 IN 1C+2, AND F1A18440 07324 0074 00 4 04213 TSX DIM3IX,4 * GO MAKE DIM3 ENTRY. F1A18450 07325 0020 00 0 07335 TRA DPDIM GO TEST FOR DP-CA F1A18460 07326 0500 00 0 05552 C1210 CLA 1G IF 1 DIMENSION, PUT D1 F1A18470 07327 0601 00 0 05546 STO 1C+1 IN 1C+1, AND F1A18480 07330 0074 00 4 04203 TSX DIM1IX,4 * GO MAKE DIM1 ENTRY. THEN F1A18490 07331 0020 00 0 07335 TRA DPDIM GO TEST FOR DP-CA F1A18500 BINARY CARD NO. 9F130066 07332 0500 00 0 05552 C1220 CLA 1G IF 2 DIMENSION, PUT D2 IN F1A18510 07333 0621 00 0 05546 STA 1C+1 ADDRESS PART OF 1C+1. AND F1A18520 07334 0074 00 4 04207 TSX DIM2IX,4 * GO MAKE DIM2 ENTRY. THEN F1A18530 07335 0500 00 0 04521 DPDIM CLA MODECL F1A18540 07336 0340 00 0 05136 CAS L(D) F1A18550 07337 0020 00 0 07341 TRA *+2 F1A18560 07340 0020 00 0 07343 TRA *+3 F1A18570 07341 0402 00 0 05141 SUB L(I) F1A18580 07342 -0100 00 0 07363 TNZ DPDIM2 F1A18590 07343 0500 00 0 05546 CLA 1C+1 GET D1, D2 F1A18600 07344 0621 00 0 05550 STA 1C+3 F1A18610 07345 0622 00 0 05551 STD 1C+4 F1A18620 07346 -0520 00 0 05551 NZT 1C+4 F1A18630 07347 0020 00 0 07360 TRA DPDIM3 ONE-DIMENSIONAL F1A18640 07350 0560 00 0 05550 LDQ 1C+3 F1A18650 07351 0200 00 0 05551 MPY 1C+4 F1A18660 07352 -0600 00 0 05546 STQ 1C+1 F1A18670 07353 -0520 00 0 05547 NZT 1C+2 F1A18680 07354 0020 00 0 07362 TRA DPDIM1 TWO-DIMENSIONAL F1A18690 07355 0200 00 0 05547 MPY 1C+2 F1A18700 07356 -0600 00 0 05546 STQ 1C+1 F1A18710 07357 0020 00 0 07362 TRA DPDIM1 F1A18720 BINARY CARD NO. 9F130067 07360 0767 00 0 00022 DPDIM3 ALS 18 F1A18730 07361 0601 00 0 05546 STO 1C+1 F1A18740 07362 0074 00 4 04217 DPDIM1 TSX DLIST1,4 ENTER IN LIST OF DP CA ARRAYS F1A18750 07363 C1201 SYN * F1A18760 07363 0074 00 4 05250 DPDIM2 TSX C0190,4 GET NEXT NON-BLANK CHARACTER F1A18770 07364 0074 00 4 05473 TSX TESTA0,4 * TEST FOR COMMA OR ENDMARK. F1A18780 07365 -0100 00 1 00001 TNZ 1,1 RETURN TO +1 ON COMMA. F1A18790 07366 0020 00 1 00002 TRA 2,1 RETURN TO +2 ON ENDMARK. F1A18800 END OF PROGRAM C1200. F1A18810 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1A18820 F1A18830 C1400/ CALLS=C0190,C0180,TEST..,TET00. F1A18840 C1400 PROCESSES FREQUENCY STATEMENTS. F1A18850 07367 0074 00 2 05214 C1400 TSX C0180X,2 * GO COLLECT BINARY EFN. NEXT F1A18860 07370 0074 00 4 05521 TSX TESTE0,4 * CHARACTER SHOULD BE A LPAREN. F1A18870 07371 0502 00 0 05552 CLS 1G CHANGE SIGN OF EFN F1A18880 07372 0601 00 0 05552 STO 1G TO MINUS. F1A18890 07373 0074 00 1 04405 TSX TET00,1 * GO MAKE AN ENTRY F1A18900 07374 0 00000 0 00007 PZE 7 IN THE FRET TABLE. F1A18910 07375 0074 00 2 05214 C1401 TSX C0180X,2 * COLLECT AND CONVERT CONSTANT. F1A18920 07376 0601 00 0 05545 STO 1C SAVE THE NEXT CHARACTER. F1A18930 07377 0074 00 1 04405 TSX TET00,1 * GO ENTER CONSTANT F1A18940 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 44 * SECTION ONE PASS ONE * RECORD 9F13 * 07400 0 00000 0 00007 PZE 7 INTO TABLE FRET (TABLE7), AND F1A18950 07401 0500 00 0 05545 CLA 1C RESTORE CHAR IN ACC, AND F1A18960 07402 0074 00 4 05501 TSX TESTB0,4 * TEST FOR , OR ). F1A18970 07403 -0100 00 0 07375 TNZ C1401 IF RIGHT PARENTHESIS, THEN F1A18980 07404 0074 00 4 05250 TSX C0190,4 * OBTAIN IN ACC NEXT NBCHAR, AND F1A18990 07405 0074 00 4 05473 TSX TESTA0,4 * TEST FOR COMMA OR ENDMARK. F1A19000 BINARY CARD NO. 9F130068 07406 -0100 00 0 07367 TNZ C1400 IF ENDMARK, THIS STATEMENT IS DONE.F1A19010 07407 0020 00 0 04245 TRA PASS1 * EXIT TO PASS1. F1A19020 END OF PROGRAM C1400. F1A19030 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1A19040 F1A19050 C1500/ CALLS=C0190,TEST..,C0160,C0180,TET00. F1A19060 C1500 PROCESSES EQUIVALENCE STATEMENTS. F1A19070 07410 0074 00 4 05250 C1500 TSX C0190,4 * OBTAIN NEXT NBCHAR IN ACC. F1A19080 07411 0074 00 4 05521 TSX TESTE0,4 * CHARACTER SHOULD BE A LPAREN. F1A19090 07412 0500 00 0 05121 C1501 CLA L(1) INITIALIZE 1C F1A19100 07413 0601 00 0 05546 STO 1C+1 TO 1. F1A19110 07414 0074 00 4 05250 TSX C0190,4 * OBTAIN NEXT NBCHAR IN ACC AND F1A19120 07415 0074 00 2 05162 TSX C0160,2 * OBTAIN IN 1G THE SYMBOL V. F1A19130 07416 0560 00 0 05552 LDQ 1G MOVE V F1A19140 07417 -0600 00 0 05545 STQ 1C INTO 1C. F1A19150 07420 0340 00 0 05106 CAS OPEN EXAMINE CHARACTER LEFT IN THE AC, F1A19160 07421 1 00000 0 07431 TXI C1503,,0 AND IF F1A19170 07422 1 00000 0 07424 TXI C1502,,0 CHARACTER IS A LEFT PARENTHESIS, F1A19180 07423 1 00000 0 07431 TXI C1503,,0 THEN F1A19190 07424 0074 00 2 05214 C1502 TSX C0180X,2 * FORM IN 1G THE BINARY OF N. F1A19200 07425 0074 00 4 05525 TSX TESTF0,4 * 1ST NON-NUMERIC SHOULD BE A RPAREN.F1A19210 07426 0500 00 0 05552 CLA 1G PUT BIN EQUIV OF N F1A19220 07427 0601 00 0 05546 STO 1C+1 IN 1C+1. F1A19230 07430 0074 00 4 05250 TSX C0190,4 * OBTAIN NEXT NBCHAR IN AC, AND F1A19240 07431 0074 00 4 05501 C1503 TSX TESTB0,4 * TEST FOR COMMA OR RPAREN. F1A19250 07432 0100 00 0 07436 TZE C1504 IF COMMA, THEN F1A19260 07433 0074 00 1 04405 TSX TET00,1 * GO TO PROGRAM TET TO ENTER SYMBOL F1A19270 BINARY CARD NO. 9F130069 07434 0 00000 0 00010 PZE 8 AND N IN EQUIT (TABLE 8), AND F1A19280 07435 1 00000 0 07412 TXI C1501,,0 RETURN TO CONTINUE PROCESSING X. F1A19290 07436 0502 00 0 05546 C1504 CLS 1C+1 MAKE SIGN OF N MINUS SINCE F1A19300 07437 0601 00 0 05546 STO 1C+1 THIS IS LAST ITEM. F1A19310 07440 0074 00 1 04405 TSX TET00,1 * GO TO PROGRAM TET TO ENTER SYMBOL F1A19320 07441 0 00000 0 00010 PZE 8 AND N IN EQUIT (TABLE 8), AND F1A19330 07442 0074 00 4 05250 TSX C0190,4 * OBTAIN NEXT NBCHAR IN ACC, AND F1A19340 07443 0074 00 4 05473 TSX TESTA0,4 * TEST FOR COMMA OR ENDMARK. F1A19350 07444 -0100 00 0 07410 TNZ C1500 IF ENDMARK, THEN F1A19360 07445 0020 00 0 04245 TRA PASS1 * EXIT TO PASS1. F1A19370 END OF PROGRAM C1500. F1A19380 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1A19390 F1A19400 C3000/ CALLS=DIAG,C0190,C0160,TEST..,SUBX00,TET00,TESTFX. F1A19410 C3000 PROCESSES SUBROUTINE AND FUNCTION STATEMENTS. F1A19420 07446 -0500 00 0 04200 C3500 CAL TXHOP SET OP-SWITCH F1A19430 07447 0630 00 0 07460 STP C3003 TO NOP CASE. F1A19440 F1A19450 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 45 * SECTION ONE PASS ONE * RECORD 9F13 * 07450 -0534 00 4 03734 C3000 LXD EIFNO,4 EXAMINE INTERNAL FORMULA NO., AND F1A19460 07451 -3 00001 4 10057 TXL P1PCH,4,1 IF NOT THE 1ST STATEMENT, THEN $F1A19470 07452 0074 00 4 04504 ER0038 TSX DIAG,4 * ERROR - GO TO THE DIAGNOSTIC. F1A19480 07453 -0634 00 4 03747 SXD CITCNT,4 DELETE (FPT) INSTRUCTIONS FROM CITS $F1A19490 07454 -0634 00 0 04040 SXD CLSBCN,0 SET CLOSUB P TO ZERO. F1A19500 07455 0074 00 4 05250 TSX C0190,4 * IF 1ST CHARACTER OF NAME IS F1A19510 07456 0074 00 2 05162 TSX C0160,2 * ASSEMBLE NAME IN 1G. F1A19520 07457 0074 00 4 05507 TSX TESTC0,4 * NEXT CHAR SHD BE LPAREN OR ENDMARK.F1A19530 07460 -3 00000 0 07463 C3003 TXL *+3,,0 OP SWITCH (TXL/TXH). F1A19540 07461 0500 00 0 05552 CLA 1G IF FUNCTION STATEMENT, F1A19550 BINARY CARD NO. 9F130070 07462 0601 00 0 05603 STO FSNAME THEN SAVE NAME IN FSNAME. F1A19560 07463 0074 00 1 04405 TSX TET00,1 * GO ENTER NAME F1A19570 07464 0 00000 0 00013 PZE 11 IN SUBDEF TABLE. F1A19580 07465 -0534 00 4 03734 LXD EIFNO,4 PLACE F1A19590 07466 -0754 00 4 00000 PXD ,4 INTERNAL FORMULA NUMBER F1A19600 07467 0601 00 0 05604 STO G IN G. F1A19610 07470 1 00000 0 07510 TXI C3002,,0 TEST FOR END OF STATEMENT. F1A19620 07471 0400 00 0 05105 C3001 ADD ENDMK IF NOT ENDMARK, RESTORE CHARACTER F1A19630 07472 0601 00 0 05602 STO FIRSTC 1ST CHARACTER OF ARGUMENT. F1A19640 07473 0074 00 2 05162 TSX C0160,2 * ASSEMBLE ARGUMENT IN 1G. F1A19650 07474 0074 00 4 05501 TSX TESTB0,4 * NEXT CHAR SHD BE COMMA OR RPAREN. F1A19660 07475 0500 00 0 05552 CLA 1G MOVE ARGUMENT F1A19670 07476 0601 00 0 05605 STO G+1 INTO G+1. F1A19680 07477 0074 00 1 05465 TSX TESTFX,1 * GO TEST FOR FIXED OR FLOATING PT. F1A19690 07500 1 00000 0 07503 TXI C3004,,0 IF FLOATING PT., SKIP FORVAL ENTRY.F1A19700 07501 0074 00 1 04405 TSX TET00,1 * IF FIXED POINT, GO MAKE ENTRY F1A19710 07502 0 00000 0 00006 PZE 6 IN FORVAL TABLE. F1A19720 07503 0074 00 1 04405 C3004 TSX TET00,1 * IN BOTH CASES, MAKE ENTRIES IN F1A19730 07504 0 00000 0 00013 PZE 11 SUBDEF TABLE. F1A19740 07505 0500 00 0 05160 CLA ARGCNT UPDATE F1A19750 07506 0400 00 0 05152 ADD 2E18 ARGUMENT COUNT F1A19760 07507 0601 00 0 05160 STO ARGCNT BY 1. AND F1A19770 BINARY CARD NO. 9F130071 07510 0074 00 4 05250 C3002 TSX C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER. F1A19780 07511 0402 00 0 05105 SUB ENDMK IF NOT ENDMARK, THEN F1A19790 07512 -0100 00 0 07471 TNZ C3001 GO PROCESS NEXT ARGUMENT. F1A19800 07513 0020 00 0 04245 TRA PASS1 * EXIT TO PASS1. F1A19810 END OF PROGRAM C3000. F1A19820 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1A19830 F1A19840 C3100/ CALLS=C0190,DIAG,TEST..,C0160,TET00,TESTFX+1. F1A19850 C3100 PROCESSES COMMON STATEMENTS. F1A19860 07514 0074 00 4 05250 C3100 TSX C0190,4 * GET FIRST NON-BLANK CHAR OF SYMBOL F1A19870 07515 0074 00 2 05162 TSX C0160,2 * ASSEMBLE SYMBOL IN 1G, AND TEST F1A19880 07516 0601 00 0 71552 STO CHSAVE SAVE PUNCTUATION FOR LATER TEST. F1A19890 07517 0074 00 1 04405 TSX TET00,1 * GO ENTER THIS SYMBOL F1A19900 07520 0 00000 0 00014 PZE 12 IN COMMON TABLE. F1A19910 07521 0500 00 0 05152 CLA 2E18 SET AN IFN OF 1 INCASE THIS IS A F1A19920 07522 0601 00 0 05604 STO G FIXED POINT VARIABLE, IN WHICH F1A19930 07523 -0500 00 0 05552 CAL 1G CASE COMMON IS A FORVAL DEFINITION.F1A19940 07524 0602 00 0 05605 SLW G+1 F1A19950 07525 0771 00 0 00036 ARS 30 ENTER ANY F1A19960 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 46 * SECTION ONE PASS ONE * RECORD 9F13 * 07526 0074 00 1 05466 TSX TESTFX+1,1 * FIXED POINT F1A19970 07527 0020 00 0 07532 TRA C3101 VARIABLES F1A19980 07530 0074 00 1 04405 TSX TET00,1 * IN F1A19990 07531 0 00000 0 00006 PZE 6 FORVAL TABLE. F1A20000 07532 0500 00 0 71552 C3101 CLA CHSAVE GET PUNCTUATION CHARACTER. F1A20010 07533 0074 00 4 05473 C3102 TSX TESTA0,4 * NEXT CHARACTER FOR COMMA OR ENDMK. F1A20020 07534 -0100 00 0 07514 TNZ C3100 NOT LAST SPECIFICATION, CONTINUE. F1A20030 07535 0020 00 0 04245 TRA PASS1 FINISHED, RETURN TO CLASSIFICATION. F1A20040 END OF PROGRAM C3100. F1A20050 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1A20060 F1A20070 C3400/ CALLS=C0190,TET00,TEST..,DIAG. F1A20080 C3400 PROCESSES END STATEMENTS. F1A20090 BINARY CARD NO. 9F130072 07536 0074 00 4 05250 C3400 TSX C0190,4 * FIRST CHARACTER SHOULD BE F1A20100 07537 0074 00 4 05507 TSX TESTC0,4 * LEFT PARENTHESIS OR ENDMK. F1A20110 07540 0100 00 0 07555 TZE C3402 * EXIT IF ENDMK, OTHERWISE F1A20120 07541 0074 00 4 05250 C3401 TSX C0190,4 * NEXT CHARACTER SHOULD BE F1A20130 07542 0340 00 0 05122 CAS L(2) 0,1,2 --OTHERWISE, F1A20140 07543 0074 00 4 04504 ER0040 TSX DIAG,4 * CALL DIAGNOSTIC. F1A20150 07544 0761 00 0 00000 NOP MAKE F1A20160 07545 0601 00 0 05604 STO G ENTRY F1A20170 07546 0074 00 1 04405 TSX TET00,1 * IN TAPE TABLE F1A20180 07547 0 00000 0 00023 PZE 19 ENDI. F1A20190 07550 0074 00 4 05250 TSX C0190,4 * NEXT CHARACTER SHOULD BE F1A20200 07551 0074 00 4 05501 TSX TESTB0,4 * COMMA OR RIGHT PARENTHESIS. F1A20210 07552 -0100 00 0 07541 TNZ C3401 WHEN RIGHT PARENTHESIS IS MET, F1A20220 07553 0074 00 4 05250 TSX C0190,4 * NEXT CHARACTER SHOULD BE F1A20230 07554 0074 00 4 05515 TSX TESTD0,4 * ENDMK. F1A20240 07555 0774 00 1 00011 C3402 AXT 9,1 INITIALIZE CHARACTER SKIP COUNTER. F1A20250 07556 0074 00 4 05232 TSX C0190X,4 RESET SCAN TO FIRST WORD OF STATEMENT. F1A20260 07557 0074 00 4 05250 TSX C0190,4 SKIP UP TO THIRD PARAMETER. F1A20270 07560 2 00001 1 07557 TIX *-1,1,1 F1A20280 07561 0602 00 0 03745 SLW ONLINE SAVE IN ON-LINE FLAG CELL. F1A20290 07562 0402 00 0 05122 SUB L(2) IS THE SETTING A TWO. F1A20300 07563 -0120 00 0 07565 TMI *+2 *NO, LEAVE IT THE WAY IT IS $F1A20310 BINARY CARD NO. 9F130073 07564 0600 00 0 03745 STZ ONLINE NO ON-LINE PRINT REQUESTED. F1A20330 07565 -0534 00 4 06354 LXD LDFT2,4 LOAD EOF FLAG FOR INPUT TAPE. F1A20340 07566 -3 00000 4 04245 TXL PASS1,4,0 HAS AN END-OF-FILE BEEN SENSED. F1A20350 07567 0074 00 4 04504 ER1008 TSX DIAG,4 NO, END CARD OUT OF SEQUENCE. F1A20360 END OF PROGRAM C3400. F1A20370 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1A20380 F1A20390 FOR/ CALLS=TET00,C0190,TEST..,C0180,DIAG. F1A20400 FOR PROCESSES FORMAT STATEMENTS. F1A20410 07570 -0520 00 0 04522 FOR NZT EFN TEST FOR STATEMENT NUMBER F1A20420 07571 0074 00 4 04504 ER1009 TSX DIAG,4 NONE, ERROR F1A20430 07572 0020 00 0 07627 TRA FORCHK+2 BRANCH TO PATCH. $F1A20431 07573 -0534 00 2 05171 LXD FWA,2 LOAD CURRENT F-REGION INDEX. F1A20432 07574 0441 00 0 05611 LDI RESIDU SAVE RESIDU. F1A20433 07575 0074 00 4 05250 TSX C0190,4 GET NEXT CHARACTER. F1A20434 07576 0074 00 4 05521 TSX TESTE0,4 TEST FOR OPEN PAREN. F1A20435 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 47 * SECTION ONE PASS ONE * RECORD 9F13 * 07577 0604 00 0 05611 STI RESIDU RESTORE RESIDU. F1A20436 07600 0600 00 0 05552 STZ 1G F1A20440 07601 -0534 00 4 07621 LXD BFCNT,4 PICK UP BUFFER COUNT F1A20450 07602 -0500 00 0 05161 CAL SET FIRST ENTRY IS 8) EIFNO. F1A20460 07603 -0501 00 0 03734 ORA EIFNO F1A20470 07604 0602 00 4 24671 SLW TABORG,4 F1A20480 07605 -0625 00 0 07752 STL FRXT F1A20490 07606 -2 00001 4 07732 TNX FRWR,4,1 UPDATE COUNT, TEST FOR FULL BUFFER. F1A20500 07607 0600 00 0 07756 STZ EFLAG INITIALIZE CLOSING PAREN FLAG. F1A20520 07610 -0754 00 0 00000 ZAC F1A20530 07611 -2 00001 1 07622 TNX FORMV,1,1 F1A20540 BINARY CARD NO. 9F130074 07612 0560 00 0 05611 LDQ RESIDU FILL REMAINDER OF FIRST WORD F1A20550 07613 -0500 00 0 05155 CAL BLANKS IN RESIDU WITH BLANKS F1A20560 07614 -0763 00 0 00006 LGL 6 F1A20570 07615 2 00001 1 07614 TIX *-1,1,1 F1A20580 07616 -0130 00 0 00000 XCL PUT FIRST WORD IN MQ F1A20590 07617 -0754 00 0 00000 ZAC F1A20600 07620 1 00001 2 07621 TXI *+1,2,1 BACK UP SCAN FOR THIS WORD. F1A20610 07621 1 06654 0 07623 BFCNT TXI *+2,0,BFSZ F1A20620 07622 0560 00 2 00000 FORMV LDQ **,2 F1A20630 07623 0634 00 2 07641 SXA FORT2,2 F1A20640 07624 0774 00 2 00006 AXT 6,2 INIT FOR SIX CHARACTERS F1A20650 EACH CHARACTER PRODUCES A TRANSFER CODE IN IR(1) FOR F1A20660 THE APPROPRIATE ACTION ON LEGAL, ILLEGAL, NUMERIC OR F1A20670 POSSIBLE HOLLERITH CHARACTERS. SCAN ENDS ON ENDMARK. F1A20680 07625 -0114 01 1 07757 FORCHK CAQ FTBL,1,1 F1A20690 07626 0020 00 1 10075 TRA TBLKP,1 BRANCH TO PATCH. $F1A20700 07627 -0625 00 0 07633 STL FORSW INITIALIZE FORSW TO 'ON' FOR COMMA PATCH.$F1A20701 07630 0534 00 1 05251 LXA XCHCTR,1 LOAD CHARACTER COUNT FOR RESIDU. $F1A20710 07631 0020 00 0 07573 TRA FOR+3 RETURN TO NON-PATCHED PORTION. $F1A20720 07632 ER1002 BSS 0 F1A20730 07632 0074 00 4 04504 FORERR TSX DIAG,4 CHAR IS ILLEGAL IN FORMAT F1A20740 07633 0 00000 0 00000 FORSW PZE ** MISSING COMMA INDICATOR $F1A20750 07634 0600 00 0 05552 STZ 1G CHARACTER IS LEGAL, ERASE PREVIOUS NUM. F1A20760 07635 2 00001 2 07625 TBLK TIX FORCHK,2,1 CHARACTER IS BLANK F1A20770 07636 -0600 00 4 24671 STQ TABORG,4 PUT IT AWAY F1A20780 07637 -0625 00 0 07752 STL FRXT F1A20790 BINARY CARD NO. 9F130075 07640 -2 00001 4 07732 TNX FRWR,4,1 F1A20800 07641 0774 00 2 00000 FORT2 AXT **,2 F1A20810 07642 1 77777 2 07622 TXI FORMV,2,-1 *GET NEXT WORD FROM F-REGION. F1A20820 F1A2082A 07643 -0734 00 1 00000 CLSPR PDX ,1 LOAD PAREN COUNT. F1A2082B 07644 3 77634 1 06711 TXH ER0032,1,-100 *ARE THERE TOO MANY RIGHT PARENS, YES. F1A2082C 07645 3 00000 1 10076 TXH SLORCM,1,0 *NO, IS THIS THE CLOSING PAREN $F1A2082D 07646 0520 00 0 07756 ZET EFLAG YES. HAS PAREN COUNT GONE TO ZERO BEFORE. F1A2082E 07647 0020 00 0 05520 TRA ER0019 *YES. ENDMARK DOES NOT FOLLOW CLOSING ). F1A2082F 07650 -0625 00 0 07756 STL EFLAG NO. SET CLOSING PAREN FLAG. F1A2082G 07651 -0754 00 0 00000 ZAC RESET PAREN COUNT. F1A2082H 07652 0020 00 0 07634 TRA TBLK-1 *RETURN TO SCAN. F1A2082I F1A2082J 07653 -0600 00 4 24671 FOREND STQ TABORG,4 F1A20830 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 48 * SECTION ONE PASS ONE * RECORD 9F13 * 07654 -0625 00 0 07752 STL FRXT F1A20840 07655 -2 00001 4 07732 TNX FRWR,4,1 F1A20850 07656 -0734 00 1 00000 PDX 0,1 PAREN BALANCE KEPT IN DECR. OF AC BY CAQ. F1A20860 07657 3 00000 1 06706 TXH END00,1,0 *DO PARENS BALANCE, NO. F1A20870 07660 0402 00 0 05125 SUB L(5) WAS THE CLOSING RIGHT PAREN FOLLOWED F1A20871 07661 -0100 00 0 05520 TNZ ER0019 *BY THE ENDMARK, NO. F1A20872 07662 -0634 00 4 07621 SXD BFCNT,4 F1A20880 07663 0020 00 0 04245 TRA PASS1 F1A20890 SUBROUTINE TO CONVERT BCI TO BINARY FOR POSSIBLE F1A20900 SPACING OVER HOLLERITH FIELDS. F1A20910 07664 -0600 00 0 07025 CVR STQ C(MQ) SAVE WORD IN PROCESS. F1A20920 07665 -0130 00 0 00000 XCL SAVE PAREN COUNT, MOVE CHAR. TO AC. F1A20930 BINARY CARD NO. 9F130076 07666 -0320 00 0 05105 ANA ENDMK ISOLATE CHARACTER, AND CONVERT F1A20940 07667 0602 00 0 05553 SLW 2G F1A20950 07670 0500 00 0 05552 CLA 1G F1A20960 07671 0767 00 0 00002 ALS 2 F1A20970 07672 0400 00 0 05552 ADD 1G F1A20980 07673 0767 00 0 00001 ALS 1 F1A20990 07674 0400 00 0 05553 ADD 2G F1A21000 07675 0601 00 0 05552 STO 1G F1A21010 07676 -0130 00 0 00000 XCL RESTORE PAREN COUNT F1A21020 07677 0560 00 0 07025 LDQ C(MQ) RESTORE WORD IN PROCESS. F1A21030 07700 0020 00 0 07635 TRA TBLK F1A21040 SUBROUTINE TO SPACE OVER N HOLLERITH CHARACTERS. F1A21050 07701 0534 00 1 05552 HF LXA 1G,1 F1A21060 07702 0600 00 0 05552 STZ 1G RESET HOLLERITH CHARACTER COUNT. F1A21061 07703 -3 00000 1 07632 TXL FORERR,1,0 N MUST NOT BE ZERO F1A21070 07704 -2 00001 2 07710 TNX *+4,2,1 SKIP REMAINING CHARACTERS F1A21080 07705 -0773 00 0 00006 RQL 6 THIS WORD. F1A21090 07706 2 00001 1 07704 TIX *-2,1,1 COUNT DOWN N F1A21100 07707 0020 00 0 07635 TRA TBLK F1A21110 07710 -0600 00 4 24671 STQ TABORG,4 F1A21120 07711 -0625 00 0 07752 STL FRXT F1A21130 07712 -2 00001 4 07732 TNX FRWR,4,1 F1A21140 07713 0522 00 0 07641 XEC FORT2 GET ANOTHER WORD. F1A21150 BINARY CARD NO. 9F130077 07714 2 00001 2 07715 TIX *+1,2,1 F1A21160 07715 0522 00 0 07622 XEC FORMV F1A21170 07716 -2 00006 1 07724 TNX *+6,1,6 IS IT ALL IN A HOLLERITH FIELD. F1A21180 07717 -0600 00 4 24671 STQ TABORG,4 YES, PUT IT ALL AYAY. F1A21190 07720 -0625 00 0 07752 STL FRXT F1A21200 07721 -2 00001 4 07732 TNX FRWR,4,1 F1A21210 07722 2 00001 2 07715 TIX *-5,2,1 F1A21220 07723 0020 00 0 07632 TRA FORERR HOLLERITH GOES BEYOND STATEMENT F1A21230 07724 0634 00 2 07641 SXA FORT2,2 F1A21240 07725 0774 00 2 00006 AXT 6,2 NO , SPACE OVER THE REST OF THE CHARS. F1A21250 07726 -0773 00 0 00006 RQL 6 F1A21260 07727 -2 00001 2 07636 TNX TBLK+1,2,1 F1A21270 07730 2 00001 1 07726 TIX *-2,1,1 F1A21280 07731 0020 00 0 07625 TRA FORCHK CHECK OUT REST OF WORD. F1A21290 SUBROUTINE TO DUMP TEMPORARY FORMAT BUFFER ONTO TAPE. F1A21300 07732 0520 00 0 03751 FRWR ZET DGFLAG HAS THERE BEEN AN ERROR. F1A21310 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 49 * SECTION ONE PASS ONE * RECORD 9F13 * 07733 0020 00 0 07746 TRA FRWRA *YES, RETURN TO CALLER. F1A21311 07734 -0534 00 4 04052 LXD INTETK+1,4 NO. LOAD COUNT OF WORDS ON TAPE. F1A21312 07735 1 06654 4 07736 TXI *+1,4,BFSZ UPDATE WORD COUNT AND SAVE. F1A21320 07736 -0634 00 4 04052 SXD INTETK+1,4 COUNT OF WORDS ON TAPE. F1A21330 07737 -0534 00 4 07753 LXD FLBL,4 F1A21340 07740 1 00001 4 07741 TXI *+1,4,1 F1A21350 07741 -0634 00 4 07753 SXD FLBL,4 COUNT OF HOW MANY DUMPS. F1A21360 BINARY CARD NO. 9F130078 07742 0074 00 4 73606 TSX (TAPE),4 F1A21370 07743 0 40011 0 07754 PZE FORIO,,(WBNC) F1A21380 07744 0 00003 0 04053 PZE INTETK+2,,FRMTTP F1A21390 07745 -0625 00 0 04471 STL TETFLG SET BUFFER DUMP FLAG. F1A21400 07746 0534 00 4 07752 FRWRA LXA FRXT,4 LOAD LOCATION OF TNX CALLER. F1A21410 07747 1 00001 4 07750 TXI *+1,4,1 INCREMENT AND SET RETURN ADDRESS. F1A21420 07750 0634 00 4 07752 SXA FRXT,4 F1A21421 07751 0774 00 4 06654 AXT BFSZ,4 F1A21430 07752 0020 00 0 00000 FRXT TRA ** F1A21440 07753 0 00000 0 00012 FLBL PZE 10,,** ** TAPE BLOCK NUMBER F1A21450 07754 -0 00001 0 07753 FORIO IOCP FLBL,,1 F1A21460 07755 -1 06654 0 16015 IOCT TABORG-BFSZ,,BFSZ $F1A21470 F1A21471 07756 0 00000 0 00000 EFLAG PZE ** INDICATOR FOR CLOSING PAREN. F1A21472 F1A21480 07757 +000000000004 FTBL OCT 4,4,4,4,4,4,4,4,4,4,3,3,3,3,3,3,3,11,3,3,3,11,11,3,2,11 $F1A21481 BINARY CARD NO. 9F130079 10011 +000000000003 OCT 3,1,077777000006,3,3,3,1,3,3,3,3,3,11,1,3,3,3,3,3,3,3,3 $F1A21490 BINARY CARD NO. 9F130080 10037 +000000000000 OCT 0,10,3,3,3,3,3,7,3,3,3,10,000001000001,3,3,5 $F1A21500 BINARY CARD NO. 9F130081 F1A21510 END OF PROGRAM FOR. F1A21520 F1A21530 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1A21540 F1A21550 END OF PROCESSORS FOR NON-EXECUTABLE STATEMENTS. F1A21560 F1A21570 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * F1A21580 F1A21590 PASS 1/3-PATCH AREA= F1A21600 10057 BEGP1P SYN * BEGINNING OF PASS 1 PATCH SPACE. F1A21610 10057 -0754 00 4 00000 P1PCH PXD 0,4 AND SAVE FOR CLA 2 $F1A21611 10060 0601 00 0 05620 STO CLAIFN $F1A21612 10061 0622 00 0 03734 STD EIFNO $F1A21613 10062 -0534 00 4 03747 LXD CITCNT,4 DELETES (FPT) INSTRUCTIONS $F1A21614 10063 1 00014 4 07453 TXI ER0038+1,4,12 BUT LEAVES IN SAVING OF LOCATION 2 $F1A21615 10064 0020 00 0 10100 TRA AEFIO CHAR IS A, E, F, I, OR O. $F1A21616 10065 0020 00 0 10076 TRA SLORCM CHAR IS , OR /. . $F1A21617 10066 0020 00 0 10104 TRA ITISX CHAR IS X. $F1A21618 10067 0020 00 0 07643 TRA CLSPR CHAR IS ). $F1A21619 10070 0020 00 0 07653 TRA FOREND CHAR IS ENDMARK. $F1A2161A 10071 0020 00 0 07664 TRA CVR CHAR IS NUMERIC. $F1A2161B SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 50 * SECTION ONE PASS ONE * RECORD 9F13 * BINARY CARD NO. 9F130082 10072 0020 00 0 07632 TRA FORERR CHAR IS ILLEGAL IN FORMAT. $F1A2161C 10073 0020 00 0 10107 TRA HFPCH CHAR IS H. $F1A2161D 10074 0600 00 0 05552 STZ 1G CHAR IS LEGAL, ERASE PREVIOUS NUMBER. $F1A2161E 10075 0020 00 0 07635 TBLKP TRA TBLK CHAR IS BLANK. $F1A2161F 10076 -0625 00 0 07633 SLORCM STL FORSW TURN ON FORSW. $F1A2161G 10077 0020 00 0 07634 TRA TBLK-1 $F1A2161H 10100 -0520 00 0 07633 AEFIO NZT FORSW IS FORSW ON. $F1A2161I 10101 0020 00 0 07632 TRA FORERR NO --MISSING COMMA. $F1A2161J 10102 0600 00 0 07633 STZ FORSW YES--TURN IT OFF $F1A2161K 10103 0020 00 0 07634 TRA TBLK-1 $F1A2161L 10104 -0520 00 0 07633 ITISX NZT FORSW IS FORSW ON. $F1A2161M 10105 0020 00 0 07632 TRA FORERR NO--MISSING COMMA. $F1A2161N 10106 0020 00 0 07634 TRA TBLK-1 YES. LEAVE IT ON $F1A2161O 10107 -0520 00 0 07633 HFPCH NZT FORSW IS FORSW ON. $F1A2161P 10110 0020 00 0 07632 TRA FORERR NO --MISSING COMMA. $F1A2161Q 10111 0020 00 0 07701 TRA HF YES--LEAVE IT ON AND GO TO H PROG. $F1A2161R 10112 P1PCH3 SYN * NEXT PATCH BEGINS HERE. $F1A2161S 10112 0600 00 0 10125 SCAN00 STZ CHSV3 CLEAR CHARACTER CODE CELL $F1A21620 10113 0600 00 0 05552 STZ 1G CLEAR CONVERSION CELL $F1A21630 10114 0600 00 0 10162 STZ BUGSW1 INITIALIZE SWITCHES $F1A21640 10115 0600 00 0 10163 STZ BUGSW2 $F1A21650 10116 0020 00 0 06510 TRA SCAN0+1 $F1A21651 10117 -3 00000 1 10124 CHSV1 TXL CHSV2,1,0 STORE CHARACTER CODE UNLESS CHARACTER IS $F1A21652 BINARY CARD NO. 9F130083 10120 3 00021 1 10124 TXH CHSV2,1,17 OPERATOR OR BLANK $F1A21653 10121 3 00004 1 10123 TXH CHSV2-1,1,4 $F1A21654 10122 3 00002 1 10124 TXH CHSV2,1,2 $F1A21655 10123 0634 00 1 10125 SXA CHSV3,1 STORE CHARACTER CODE $F1A21656 10124 0020 00 1 06550 CHSV2 TRA SCAN3,1 $F1A21657 10125 0 00000 0 00000 CHSV3 PZE ** CHARACTER CODE CELL $F1A21658 10126 0634 00 2 10141 PMS01 SXA PMS02+1,2 SAVE XR2 $F1A21660 10127 0534 00 2 10125 LXA CHSV3,2 LOAD PREVIOUS CHARACTER CODE $F1A21670 10130 3 00022 2 10151 TXH DBLER,2,18 DOUBLE OPERATOR ERROR $F1A21680 10131 3 00021 2 10145 TXH DBLR,2,17 DOUBLE OPERATOR ERROR IF NO ** $F1A21690 10132 3 00010 2 10140 TXH PMS02,2,8 $F1A21700 10133 -3 00002 2 10140 TXL PMS02,2,2 $F1A21710 10134 -3 00004 2 10151 TXL DBLER,2,4 DOUBLE OPERATOR ERROR $F1A21720 10135 -3 00003 1 10140 TXL PMS02,1,3 $F1A21730 10136 3 00007 2 10153 TXH BINER,2,7 ERROR-BINARY OPERATOR $F1A21740 10137 -3 00006 2 10153 TXL BINER,2,6 USED AS UNARY $F1A21750 10140 0634 00 1 10125 PMS02 SXA CHSV3,1 STORE CHARACTER CODE $F1A21760 10141 0774 00 2 00000 AXT **,2 $F1A21770 10142 3 00021 1 06600 TXH PMS00,1,17 TRANSFER TO PMS00 IF $F1A21780 10143 -3 00003 1 06600 TXL PMS00,1,3 OPERATOR IS +,-,* $F1A21790 10144 0020 00 0 06604 TRA SLSH0 OPERATOR IS / $F1A21800 10145 -3 00004 1 10151 DBLR TXL DBLER,1,4 DOUBLE OPERATOR ERROR *-,*+,*1 $F1A21810 BINARY CARD NO. 9F130084 10146 1 00001 1 10147 TXI *+1,1,1 OPERATOR IS **, $F1A21820 10147 0634 00 1 10125 SXA CHSV3,1 CHARACTER CODE IS 19 $F1A21830 10150 1 77777 1 10141 TXI PMS02+1,1,-1 $F1A21840 10151 -0625 00 0 10162 DBLER STL BUGSW1 DBL OPERATOR ERROR ONLY IF ARITHMETIC $F1A21842 10152 0020 00 0 10140 TRA PMS02 STATEMENT $F1A21843 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 51 * SECTION ONE PASS ONE * RECORD 9F13 * 10153 -0625 00 0 10163 BINER STL BUGSW2 BINARY OP ERROR ONLY IF ARITHMETIC $F1A21850 10154 0020 00 0 10140 TRA PMS02 STATEMENT $F1A21860 10155 0520 00 0 10162 BGPCH ZET BUGSW1 WAS THERE A DOUBLE OP ERROR $F1A21870 10156 0074 00 4 04504 ER0080 TSX DIAG,4 YES $F1A21880 10157 0520 00 0 10163 ZET BUGSW2 NO,WAS THERE BINARY OP ERROR $F1A21890 10160 0074 00 4 04504 ER0081 TSX DIAG,4 YES $F1A21895 10161 0020 00 0 06314 TRA WTXQ1 NO $F1A21900 10162 0 00000 0 00000 BUGSW1 PZE ** DOUBLE OP SWITCH $F1A21910 10163 0 00000 0 00000 BUGSW2 PZE ** BINARY OP ERROR SWITCH $F1A21914 ADDITIONAL PATCH SPACE $F1A21915 10164 DUP 1,102 $F1A21916 10164 0 00000 0 00000 PZE $F1A21917 BINARY CARD NO. 9F130085 BINARY CARD NO. 9F130086 BINARY CARD NO. 9F130087 BINARY CARD NO. 9F130088 BINARY CARD NO. 9F130089 10332 BSS 29 REMAINDER OF PASS 1 PATCH SPACE. $F1A99000 10367 ENDP1P SYN * $F1A99010 $F1A99020 ************************************************************$F1A99030 $F1A99040 FT-REGION DEFINITION -TEMPORARY F-REGION. $F1A99050 $F1A99060 BINARY CARD NO. 9F130090 10367 3 00014 0 10372 IORT FTBUF,,FTBFSZ FT BUFFER 1 I/O COMMAND. $F1A99070 10370 0 00000 2 00000 FTREG PZE **,2 ADDRESS OF CURRENT FT-BUFFER. $F1A99080 10371 3 00014 0 10406 IORT FTBUF+FTBFSZ,,FTBFSZ FT BUFFER 2 I/O COMMAND. $F1A99090 $F1A99100 10372 BEGFTR SYN * ORIGIN OF FT-REGION. $F1A99110 $F1A99120 10372 FTBUF BSS FTBFSZ BUFFER 1. $F1A99130 10406 BSS FTBFSZ BUFFER 2. $F1A99140 $F1A99150 10422 ENDFTR SYN * END OF FT-REGION. $F1A99160 $F1A99170 ************************************************************$F1A99180 $F1A99190 10422 ENDF10 BSS 0 $F1A99200 10422 ENDP1 BSS 0 $F1A99210 RECORD LIMIT FOR PASS ONE. $F1A99220 BINARY CARD NO. TRA77777 77777 TCD -1 $F1A99225 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 52 * SECTION ONE PASS TWO * RECORD 9F14 * F1B00030 00102 ORG SYSCUR $F1B00040 BINARY CARD NO. 9F140000 00102 112601040000 BCI 1,9F1400 $F1B00050 73666 ORG (LODR) $F1B00060 BINARY CARD NO. 9F140001 73666 1 00214 0 06306 TXI PASS2I,,140 ENTRY POINT,,RECORD NUMBER F1B00070 F1B00080 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1B00090 F1B00100 SECTION 1 / PASS2 = F1B00110 ABS F1B00120 06127 ORGP2 ORG ORGP1 F1B00130 F1B00140 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1B00150 F1B00160 PASS 2/1-COMMON= F1B00170 06127 P2CON BSS 0 F1B00180 BINARY CARD NO. 9F140002 06127 000000000062 L(S) BCD 100000S S F1B00190 06130 000000000063 L(T) BCD 100000T T F1B00200 06131 000000000067 L(X) BCD 100000X X F1B00210 06132 000000000071 L(Z) BCD 100000Z Z F1B00220 06133 +000000000100 BIT29 OCT 100 F1B00230 06134 +000000000140 L(96) OCT 140 USED BY C0500. F1B00240 06135 +000000000160 L(112) OCT 160 USED BY C0400. F1B00250 06136 000000002174 L(A() BCD 10000A( INTERNAL FLO-PT VARIABLE PREFIX. F1B00260 06137 000000003074 L(H() BCD 10000H( F1B00270 06140 000000003174 L(I() BCD 10000I( INTERNAL FXD-PT VARIABLE PREFIX. F1B00280 06141 +000000400000 2E17 OCT 400000 TAG=4 F1B00290 06142 +000001000002 ABTAG2 OCT 1000002 CONSTANT USED BY C3200. F1B00300 06143 0 00001 0 00004 ABTAG1 PZE 4,0,1 ADD OF 1, TAG OF 4. F1B00310 06144 -0 77777 0 00000 M1BAR MZE 0,0,-1 MASK F1B00320 06145 0 00002 0 00000 2E19 PZE 0,0,2 F1B00330 06146 0 00002 0 00000 D2 PZE ,,2 CONSTANT USED BY IOT. F1B00340 06147 0 00002 0 00002 2AND2 PZE 2,0,2 F1B00350 06150 0 00003 0 00000 DEC3 PZE ,,3 F1B00360 06151 0 00004 0 00000 2E20 PZE ,,4 F1B00370 06152 -0 00004 0 00000 DECMI4 MZE 0,0,4 F1B00380 06153 0 00005 0 00000 DEC5 PZE ,,5 F1B00390 06154 +000002000004 ABTAG3 OCT 2000004 CONSTANT USED BY C3200. F1B00400 BINARY CARD NO. 9F140003 06155 +000003077775 BETAD2 OCT 3077775 3*2**18+(-3) -ARITHMETIC. F1B00410 06156 0 00004 0 00004 D4A4 PZE 4,,4 F1B00420 06157 0 00020 0 00000 FSIND PZE ,,16 F1B00430 06160 0 00021 0 00000 DEC17 PZE ,,17 F1B00440 06161 0 00022 0 00000 DEC18 PZE ,,18 F1B00450 06162 +000037777600 MASK5 OCT 37777600 -ARITHMETIC. F1B00460 06163 0 00040 0 00000 FNIND PZE ,,32 F1B00470 06164 0 00043 0 00000 DEC35 PZE ,,35 F1B00480 06165 +000200000000 NGTBIT OCT 000200000000 F1B00490 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 53 * SECTION ONE PASS TWO * RECORD 9F14 * 06166 010000000000 E( BCD 1100000 -ARITHMETIC. F1B00500 06167 020000000000 I( BCD 1200000 -ARITHMETIC. F1B00510 06170 030000000000 A( BCD 1300000 -ARITHMETIC. F1B00520 06171 040000000000 P( BCD 1400000 -ARITHMETIC. F1B00530 06172 060000000000 O( BCD 1600000 -ARITHMETIC. F1B00540 06173 070000000000 X( BCD 1700000 -ARITHMETIC. F1B00550 06174 +077775077775 BETAD1 OCT 77775077775 (-3(*2**18+(-3) -ARITHMETIC. F1B00560 06175 +170000000000 PROCTR DEC 15B5 CONSTANT USED BY IOT, ARITH. F1B00570 06176 +200000000000 ADPLUS OCT 200000000000 ADDITION SIGN -ARITHMETIC. F1B00580 06177 217400000000 FLOVAR BCD 1A(0000 A( INTERNAL FLOATING PT. VARIABLE. F1B00590 06200 256747740160 FXFX BCD 1EXP(1 F1B00600 06201 256747740260 FLFX BCD 1EXP(2 F1B00610 06202 256747740360 FLFL BCD 1EXP(3 F1B00620 BINARY CARD NO. 9F140004 06203 317400000000 FIXVAR BCD 1I(0000 I( INTERNAL FIXED PT. VARIABLE. F1B00630 06204 -0 00000 0 00000 MINUS0 MZE 0 F1B00640 06205 -0 00001 0 00000 DECMI1 MZE ,,1 F1B00650 06206 -0 00001 0 00010 M1T MZE 8,,1 F1B00660 06207 -0 00002 0 00000 DECMI2 MZE ,,2 F1B00670 06210 -0 00315 0 00000 MI205 MZE ,,205 F1B00680 06211 -130000000000 ADSPOP OCT 530000000000 $00000 F1B00690 06212 536060606060 DOLSGN BCI 1,$ CONSTANT USED BY C32000 F1B00700 06213 -140000000000 ADSTAR OCT -140000000000 MULTIPLICATION SIGN -ARITHMETIC. F1B00710 06214 -145400000000 STRSTR OCT -145400000000 EXPONENTIATION SIGN -ARITHMETIC. F1B00720 06215 +017777777776 FAKEN3 OCT 017777777776 CONSTANT FOR DO STATEMENTS WITHOUT N3. F1B00730 06216 -377777700000 MASK1 OCT -377777700000 -(2**20-U.*2**15 -ARITHMETIC. F1B00740 06217 -377777777737 MASK4 OCT -377777777737 -ARITHMETIC. F1B00750 F1B00760 06220 212424000000 L(ADD) BCD 1ADD000 SYMBOLIC OPERATION CODE. F1B00770 06221 214362000000 L(ALS) BCD 1ALS000 SYMBOLIC OPERATION CODE. F1B00780 06222 214521000000 L(ANA) BCD 1ANA000 SYMBOLIC OPERATION CODE. F1B00790 06223 215162000000 L(ARS) BCD 1ARS000 F1B00800 06224 226262000000 L(BSS) BCD 1BSS000 SYMBOLIC OPERATION CODE. F1B00810 06225 232143000000 L(CAL) BCD 1CAL000 F1B00820 06226 233062000000 L(CHS) BCD 1CHS000 SYMBOLIC OPERATION CODE. F1B00830 06227 234321000000 L(CLA) BCD 1CLA000 SYMBOLIC OPERATION CODE. F1B00840 06230 234344000000 L(CLM) BCD 1CLM000 SYMBOLIC OPERATION CODE. F1B00850 BINARY CARD NO. 9F140005 06231 234362000000 L(CLS) BCD 1CLS000 SYMBOLIC OPERATION CODE. F1B00860 06232 234644000000 L(COM) BCD 1COM000 F1B00870 06233 234770000000 L(CPY) BCD 1CPY000 F1B00880 06234 242363000000 L(DCT) BCD 1DCT000 SYMBOLIC OPERATION CODE. F1B00890 06235 242524000000 L(DED) BCD 1DED000 F1B00900 06236 246547000000 L(DVP) BCD 1DVP000 SYMBOLIC OPERATION CODE. F1B00910 06237 262124000000 L(FAD) BCD 1FAD000 SYMBOLIC OPERATION CODE. F1B00920 06240 262447000000 L(FDP) BCD 1FDP000 SYMBOLIC OPERATION CODE. F1B00930 06241 264447000000 L(FMP) BCD 1FMP000 SYMBOLIC OPERATION CODE. F1B00940 06242 266222000000 L(FSB) BCD 1FSB000 SYMBOLIC OPERATION CODE. F1B00950 06243 304751000000 L(HPR) BCD 1HPR000 SYMBOLIC OPERATION CODE. F1B00960 06244 432421000000 L(LDA) BCD 1LDA000 F1B00970 06245 432450000000 L(LDQ) BCD 1LDQ000 SYMBOLIC OPERATION CODE. F1B00980 06246 434362000000 L(LLS) BCD 1LLS000 SYMBOLIC OPERATION CODE. F1B00990 06247 435162000000 L(LRS) BCD 1LRS000 SYMBOLIC OPERATION CODE. F1B01000 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 54 * SECTION ONE PASS TWO * RECORD 9F14 * 06250 436724000000 L(LXD) BCD 1LXD000 SYMBOLIC OPERATION CODE. F1B01010 06251 444770000000 L(MPY) BCD 1MPY000 SYMBOLIC OPERATION CODE. F1B01020 06252 446225000000 L(MSE) BCD 1MSE000 SYMBOLIC OPERATION CODE. F1B01030 06253 465121000000 L(ORA) BCD 1ORA000 SYMBOLIC OPERATION CODE. F1B01040 06254 476225000000 L(PSE) BCD 1PSE000 SYMBOLIC OPERATION CODE. F1B01050 06255 476721000000 L(PXA) BCD 1PXA000 F1B01060 06256 476724000000 L(PXD) BCD 1PXD000 F1B01070 BINARY CARD NO. 9F140006 06257 477125000000 L(PZE) BCD 1PZE000 F1B01080 06260 504751000000 L(QPR) BCD 1QPR000 CONSTANT USED BY C3200. F1B01090 06261 506724000000 L(QXD) BCD 1QXD000 CONSTANT USED BY C3200. F1B01100 06262 624366000000 L(SLW) BCD 1SLW000 F1B01110 06263 626321000000 L(STA) BCD 1STA000 SYMBOLIC OPERATION CODE. F1B01120 06264 626346000000 L(STO) BCD 1STO000 SYMBOLIC OPERATION CODE. F1B01130 06265 626350000000 L(STQ) BCD 1STQ000 SYMBOLIC OPERATION CODE. F1B01140 06266 626351000000 L(STR) BCD 1STR000 F1B01150 06267 626371000000 L(STZ) BCD 1STZ000 F1B01160 06270 626422000000 L(SUB) BCD 1SUB000 SYMBOLIC OPERATION CODE. F1B01170 06271 626724000000 L(SXD) BCD 1SXD000 SYMBOLIC OPERATION CODE. F1B01180 06272 626750000000 L(SXQ) BCD 1SXQ000 F1B01190 06273 633167000001 L(TIX) BCD 1TIX001 F1B01200 06274 634571000000 L(TNZ) BCD 1TNZ000 F1B01210 06275 635121000000 L(TRA) BCD 1TRA000 SYMBOLIC OPERATION CODE. F1B01220 06276 636267000000 L(TSX) BCD 1TSX000 SYMBOLIC OPERATION CODE. F1B01230 06277 642621000000 L(UFA) BCD 1UFA000 SYMBOLIC OPERATION CODE. F1B01240 06300 672321000000 L(XCA) BCD 1XCA000 F1B01250 06301 P2VAR BSS 0 F1B01260 06301 307400000000 HOLCNT BCD 1H(0000 WORKING STORAGE USED BY C3300. F1B01270 06302 0 00000 0 00010 RAT PZE 8,,** VARIABLE USED BY IOT. F1B01280 06303 0 00000 0 00370 TL PZE 31*8,,** F1B01290 06304 456351000000 ENT BCD 1NTR000 P2VAR USED BY FLTR00. F1B01300 BINARY CARD NO. 9F140007 06305 477125000000 NZE BCD 1PZE000 P2VAR USED BY FLTR00. F1B01310 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 55 * SECTION ONE PASS TWO * RECORD 9F14 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1B01330 F1B01340 READS A CONDENSED EXECUTABLE STATEMENT FROM TAPE, ASSIGNS F1B01350 AN IFN AND MAKES AN ENTRY IN TEIFNO IF AN EFN EXISTS. F1B01360 F1B01370 06306 0074 00 4 73606 PASS2I TSX (TAPE),4 INITIALIZATION FOR PASS 2. F1B01380 06307 0 40000 0 04515 PZE DCF-1,,(RBNP) LOAD F-REGION (BUFFER 1). F1B01390 06310 0 00004 0 05102 PZE WTXQ5,,EXEQTP F1B01400 06311 -0500 00 0 04216 CAL DLIST1-1 INITIALIZE DLIST1 F1B01410 06312 0621 00 0 20001 STA ACDP01 ADDRESS IN F1B01420 06313 0400 00 0 05121 ADD L(1) ADDRESS COMPLETION F1B01430 06314 0621 00 0 20016 STA ACDP07 ROUTINE. F1B01440 06315 0500 00 0 04156 CLA FLCNIX-1 GET ADDRESS OF FLOCON TABLE. F1B01450 06316 0621 00 0 20546 STA ENFC01 INITIALIZE SEARCH ROUTINE WITH F1B01460 06317 0621 00 0 20554 STA ENFC05 ADDRESS OF FIRST LOCATION. F1B01470 06320 0500 00 0 04155 CLA FLCNIX-2 GET ADDRESS OF FLOCON TABLE PLUS ONE. F1B01480 06321 0621 00 0 20556 STA ENFC06 INITIALIZE ADDRESS IN SEARCH ROUTINE TO F1B01490 06322 0621 00 0 20572 STA ENFC07 THE NEXT CORE ADDRESS. F1B01500 F1B01510 NORMAL RE-ENTRY TO GET THE NEXT EXECUTABLE STATEMENT. F1B01520 F1B01530 06323 0534 00 4 03750 PASS2 LXA XEQCTR,4 LOAD COUNT OF EXECUTABLE STATEMENTS. F1B01540 06324 -3 00000 4 06375 TXL ENDTST,4,0 *HAVE ALL STATEMENTS BEEN PROCESSED, YES. F1B01550 06325 1 77777 4 06326 TXI *+1,4,-1 REDUCE COUNT. F1B01560 06326 0634 00 4 03750 SXA XEQCTR,4 SAVE DECREMENTED COUNT. F1B01570 06327 -0774 00 2 00001 RDXQ1 AXC 1,2 FLIP BUFFER SWITCH. F1B01580 06330 0074 00 4 73606 TSX (TAPE),4 READ ANOTHER STATEMENT. F1B01590 06331 0 40000 2 04516 PZE DCF,2,(RBNP) F1B01600 06332 0 00004 0 05102 PZE WTXQ5,,EXEQTP F1B01610 BINARY CARD NO. 9F140008 06333 0634 00 2 06327 SXA RDXQ1,2 RESET BUFFER SWITCH. F1B01620 06334 0535 00 2 06327 LAC RDXQ1,2 FLIP TO CURRENT BUFFER. F1B01630 06335 0500 00 2 04516 CLA DCF,2 GET LOAD ADDRESS OF I/O COMMAND. F1B01640 06336 0400 00 0 05124 ADD L(4) COMPUTE ADDRESS OF STATEMENT. F1B01650 06337 0737 00 2 00000 PAC ,2 GET 2S COMPLEMENT OF ORIGIN OF F-REGION F1B01660 06340 -0634 00 2 04516 SXD DCF,2 AND SAVE OTHER ROUTINES. F1B01670 06341 0621 00 0 04516 STA DCF SAVE TRUE ADDRESS. F1B01680 06342 0774 00 2 00004 AXT 4,2 MOVE CONTROL WORDS F1B01690 06343 -0500 60 0 04516 RDXQ2 CAL* DCF INTO CURRENT BUFFER. F1B01700 06344 0602 00 2 04524 SLW TLABEL+4,2 F1B01710 06345 2 00001 2 06343 TIX RDXQ2,2,1 F1B01720 06346 -0534 00 1 03734 LXD EIFNO,1 INCREMENT IFN (INTERNAL FORMULA NUMBER). F1B01730 06347 1 00001 1 06350 TXI *+1,1,1 F1B01740 06350 -0634 00 1 03734 SXD EIFNO,1 SAVE NEW IFN. F1B01750 06351 -0754 00 1 00000 PXD ,1 STORE IFN IN DECREMENT FIELD OF 1C. F1B01760 06352 0601 00 0 05545 STO 1C F1B01770 06353 -0500 00 0 04522 CAL EFN GET EFN FOR THIS STATEMENT (IF ANY). F1B01780 06354 0100 00 0 06360 TZE RDXQ3 *NONE. F1B01790 06355 0621 00 0 03734 STA EIFNO SET BINARY EQUIVALENT EFN IN EIFNO F1B01800 06356 0074 00 1 04405 TSX TET00,1 IN ORDER TO MAKE ENTRY IN TEIFNO. F1B01810 06357 0 00000 0 00000 PZE 0 F1B01820 06360 -0534 00 2 04520 RDXQ3 LXD TLABEL,2 LOAD SCAN POSITION. F1B01830 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 56 * SECTION ONE PASS TWO * RECORD 9F14 * BINARY CARD NO. 9F140009 06361 0074 00 4 05232 TSX C0190X,4 RESET SCAN. F1B01840 06362 -3 77775 2 06366 TXL *+4,2,-3 HAS THE MARKER RECORD BEEN READ. F1B01850 06363 0074 00 4 73606 LOST1 TSX (TAPE),4 *YES, MACHINE ERROR. F1B01860 06364 0 04000 0 06373 PZE RDXQ5,,(TPER) F1B01870 06365 0 00004 0 06374 PZE RDXQ6,,EXEQTP F1B01880 06366 -3 00000 2 06371 TXL *+3,2,0 *START SCAN AT FIRST CHARACTER. F1B01890 06367 0074 00 4 05250 TSX C0190,4 GET FIRST NON-DICTIONARY CHARACTER F1B01900 06370 2 00001 2 06367 TIX *-1,2,1 OF STATEMENT. F1B01910 06371 0600 00 0 05610 STZ LEFT+2 RESET LEFT SIDE SYMBOL. F1B01920 06372 0020 60 0 04520 RDXQ4 TRA* TLABEL GO TO PROCESSOR FOR THIS STATEMENT. F1B01930 F1B01940 06373 512523602363 RDXQ5 BCI 1,REC CT A STATEMENT IS MISSING, F1B01950 06374 256725506060 RDXQ6 BCI 1,EXEQ SKIPPED A RECORD OR SOMETHING. F1B01960 *************************************************************F1B01970 F1B01980 TERMINAL ROUTINE FOR PASS 2 OF SECTION I. F1B01990 F1B02000 06375 0074 00 4 73606 ENDTST TSX (TAPE),4 CHECK LAST READ ON THE F1B02010 06376 0 10000 0 00004 PZE EXEQTP,,(CHKU) EXECUTABLE STATEMENT TAPE. F1B02020 06377 0534 00 2 06327 LXA RDXQ1,2 LOAD THE BUFFER SWITCH. F1B02030 06400 -0500 60 2 04516 CAL* DCF,2 GET TLABEL WHICH SHOULD BE F1B02040 06401 0322 00 0 05156 ERA ALL1 ALL ONES, THE END MARK. F1B02050 06402 -0100 00 0 06363 TNZ LOST1 *IS THIS THE END MARK, NO. F1B02060 06403 0774 00 4 00000 CLOSP2 AXT 0,4 SET END OF SECTION ONE FLAG. F1B02070 06404 0520 00 0 03751 ZET DGFLAG HAS THERE BEEN A DIAGNOSTIC. F1B02080 06405 0020 00 0 04504 TRA DIAG *YES, GET DIAGNOSTIC FOR THE LAST TIME. F1B02090 06406 0074 00 4 73606 TSX (TAPE),4 SKIP OVER DIAGNOSTIC ON SYSTEM TAPE. F1B02100 BINARY CARD NO. 9F140010 06407 0 20000 0 05072 PZE FRSP,,(SKBP) F1B02110 06410 0 00001 0 00000 PZE ,,SYSTAP F1B02120 06411 -0520 00 0 04471 NZT TETFLG ARE ANY BUFFERS DUMPED ON TAPE. F1B02130 06412 0020 00 0 06421 TRA CLSP2A *NO, LEAVE DUMP TAPE ALONE. F1B02140 F1B02150 YES, HOWEVER, IF BUFFERS ARE SHOT-GUNNED F1B02160 ON TAPES, THEN THIS CLOSE OUT IS NOT F1B02170 06413 0074 00 4 73606 TSX (TAPE),4 SUFFICIENT. F1B02180 06414 0 40005 0 00000 PZE ,,(WEFP) WRITE END-OF-FILE. F1B02190 06415 0 00003 0 05103 PZE EXEQF,,BUFTAP F1B02200 06416 0074 00 4 73606 TSX (TAPE),4 REWIND TAPE. F1B02210 06417 0 20000 0 05074 PZE REWD,,(SKBP) F1B02220 06420 0 00003 0 00000 PZE ,,BUFTAP F1B02230 F1B02240 06421 0600 00 0 04257 CLSP2A STZ CITA0 CLOSE OUT CIT BUFFER. F1B02250 06422 0074 00 4 04251 TSX CIT00,4 F1B02260 06423 0500 00 0 06425 CLA 1PL SET TO EXIT TO ONE PRIME. $F1B02270 06424 0020 00 0 04500 TRA 1TOCS-1 $F1B02273 06425 112601060000 1PL BCI 1,9F1600 $F1B02277 *************************************************************F1B02280 F1B02290 BSS,2/ CALLS=CIT00. F1B02300 BSS COMPILES= IFN BSS 0. F1B02310 06426 0074 00 4 04251 BSS TSX CIT00,4 * GO MAKE FOLLOWING CIT ENTRY= F1B02320 06427 0 06224 0 22255 PZE SL,,L(BSS) LOC,,OP-DEC F1B02330 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 57 * SECTION ONE PASS TWO * RECORD 9F14 * 06430 0 05120 0 05120 PZE L(0),,L(0) ADR,,RA-TAG F1B02340 06431 0020 00 2 00001 TRA 1,2 * EXIT TO CALLER+1. F1B02350 END OF PROGRAM BSS. F1B02360 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1B02370 F1B02380 LIB,4/ USES=CIT00. CALLS=TET00. F1B02390 LIB MAKES CLOSUB ENTRY BEFORE COMPILING CIT. F1B02400 06432 -0500 60 4 00002 LIB CAL* 2,4 PICKUP SUBROUTINE F1B02410 06433 0602 00 0 05604 SLW G NAME, AND F1B02420 06434 0074 00 1 04405 TSX TET00,1 * GO ENTER IN CLOSUB TABLE. F1B02430 BINARY CARD NO. 9F140011 06435 0 00000 0 00011 PZE 9 * THEN GO MAKE CIT ENTRY. F1B02440 06436 0020 00 0 04251 TRA CIT00 GO COMPILE TSX NAME,4 F1B02450 END OF PROGRAM LIB. F1B02460 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * F1B02470 F1B02480 F1B02490 FLTR00,4/ CALLS=CIT00. F1B02500 FLTR00 COMPILES FLOW TRACING INFORMATION. F1B02510 06437 -0634 00 4 06471 FLTR00 SXD FLTR05,4 SAVE CALLING TAG. F1B02520 06440 0500 00 0 03734 CLA EIFNO GET LAST INTERNAL AND EXTERNAL NOS.F1B02530 06441 0621 00 0 06304 STA ENT LAST EFN TO DECREMENT F1B02540 06442 0771 00 0 00022 ARS 18 OF NTR INSTRUCTION. F1B02550 06443 0621 00 0 06305 STA NZE LAST IFN TO DECREMENT F1B02560 06444 -0534 00 4 22241 LXD ARGCTR,4 OF PZE INSTRUCTION. F1B02570 06445 -3 00000 4 06451 TXL FLTR01,4,0 IF THIS IS A FN FUNCTION, F1B02580 06446 0600 00 0 05547 STZ 1C+2 THEN F1B02590 06447 0500 00 0 05154 CLA 1BAR SET ADDRESS TO -1. F1B02600 06450 0020 00 0 06461 TRA FLTR03 IF THIS IS F1B02610 06451 -0534 00 4 04054 FLTR01 LXD SBDFCN,4 A MAIN PROGRAM F1B02620 06452 3 00000 4 06456 TXH FLTR02,4,0 (SBDFCN = 0), THEN F1B02630 06453 0600 00 0 05547 STZ 1C+2 SET ADDRESS F1B02640 06454 0600 00 0 05550 STZ 1C+3 TO +0. F1B02650 06455 0020 00 0 06462 TRA FLTR04 IF THIS IS A F1B02660 06456 0500 00 0 06212 FLTR02 CLA DOLSGN SUB-PROGRAM, THEN F1B02670 06457 0601 00 0 05547 STO 1C+2 SET ADDRESS F1B02680 06460 0500 00 0 06146 CLA D2 TO $+2. F1B02690 06461 0601 00 0 05550 FLTR03 STO 1C+3 SET RELATIVE ADDRESS FOR CIT. F1B02700 06462 0074 00 4 04251 FLTR04 TSX CIT00,4 GO MAKE FOLLOWING CIT ENTRY= F1B02710 BINARY CARD NO. 9F140012 06463 0 06304 0 05120 PZE L(0),,ENT LOC,,OP-DEC F1B02720 06464 0 06146 0 06175 PZE PROCTR,,D2 ADR,,RA-TAG F1B02730 06465 0074 00 4 04251 TSX CIT00,4 * GO MAKE FOLLOWING CIT ENTRY= F1B02740 06466 0 06305 0 05120 PZE L(0),,NZE LOC,,OP-DEC F1B02750 06467 0 05550 0 05547 PZE 1C+2,,1C+3 ADR,,RA-TAG F1B02760 06470 -0534 00 4 06471 LXD FLTR05,4 RESTORE CALLING TAG. F1B02770 06471 1 00000 0 04251 FLTR05 TXI CIT00,0,** * EXIT TO CIT00. F1B02780 END OF PROGRAM FLTR00. F1B02790 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1B02800 F1B02810 GETIFN,4/ F1B02820 GETIFN PLACES THE INTERNAL FORMULA NUMBER IN AC AND IN 1C. F1B02830 06472 -0534 00 1 03734 GETIFN LXD EIFNO,1 PLACE THE INTERNAL FORMULA F1B02840 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 58 * SECTION ONE PASS TWO * RECORD 9F14 * 06473 -0754 00 1 00000 PXD ,1 NUMBER IN XR1, IN THE DECREMENT F1B02850 06474 0601 00 0 05545 STO 1C OF THE AC, 1C, AND CW. F1B02860 06475 0020 00 4 00001 TRA 1,4 * RETURN TO CALLER. F1B02870 END OF PROGRAM GETIFN. F1B02880 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1B02890 F1B02900 JIF(GIF),4/ F1B02910 JIF JUMPS IFN, AND USES GIF. F1B02920 06476 -0500 00 0 03734 JIF CAL EIFNO INCREASE THE F1B02930 06477 0400 00 0 05152 ADD 2E18 INTERNAL FORMULA NUMBER F1B02940 06500 0622 00 0 03734 STD EIFNO BY 1. F1B02950 GIF GETS IFN, AND SETS SL AND TL. F1B02960 06501 -0500 00 0 03734 GIF CAL EIFNO PICKUP IFN, F1B02970 06502 -0320 00 0 05154 ANA 1BAR CLEAR SL, AND F1B02980 06503 0602 00 0 22255 L(SL) SLW SL PLACE IFN IN THE DECREMENTS F1B02990 06504 0622 00 0 06303 L(TL) STD TL OF SL AND TL. F1B03000 06505 0020 00 4 00001 TRA 1,4 * EXIT TO CALLER. F1B03010 END OF PROGRAM JIF(GIF). F1B03020 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1B03030 F1B03040 LXD,2/ CALLS=CIT00. F1B03050 LXD COMPILES= LXD 6)+4,4. F1B03060 06506 0074 00 4 04251 LXD TSX CIT00,4 * GO MAKE FOLLOWING CIT ENTRY= F1B03070 06507 0 06250 0 05120 PZE L(0),,L(LXD) LOC,,OP-DEC F1B03080 06510 0 06156 0 06172 PZE O(,,D4A4 ADR,,RA-TAG F1B03090 BINARY CARD NO. 9F140013 06511 0020 00 2 00001 TRA 1,2 * EXIT TO CALLER+1. F1B03100 END OF PROGRAM LXD. F1B03110 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1B03120 F1B03130 RA000,4/ F1B03140 RA000 COMPUTES RELATIVE ADDRESS. F1B03150 06512 0634 00 4 06571 RA000 SXA RAXR4,4 SAVE THE C(XR4) FOR RETURN. F1B03160 06513 0600 00 0 22246 STZ EPS CLEAR EPSILON (WORKING STORAGE). F1B03170 06514 0500 00 0 22242 CLA DIMSAV EXAMINE THE F1B03180 06515 0734 00 4 05563 ED2 PAX E+4,4 DIMENSION COUNT, AND F1B03190 06516 -3 00002 4 06520 TXL ED1,4,2 IF 3 DIMENSION, F1B03200 06517 0400 00 0 05121 ADD L(1) INCREASE IT 1. F1B03210 06520 0401 00 0 06515 ED1 ADM ED2 THEN SET F1B03220 06521 0621 00 0 06522 STA ED3 ED3 ADDRESS TO F1B03230 06522 0500 00 4 00000 ED3 CLA **,4 EXAMINE SUCCESSIVE F1B03240 06523 0560 00 0 05152 LDQ 2E18 SUBSCRIPT F1B03250 06524 0100 00 0 06527 TZE ED4 VARIABLES, AND F1B03260 06525 -0600 00 0 22246 STQ EPS ACCORDINGLY SET F1B03270 06526 0560 00 0 05120 LDQ L(0) EPSILON AND F1B03280 06527 -0600 00 4 22246 ED4 STQ EPS,4 EPSILON SUB I F1B03290 06530 2 00001 4 06522 TIX ED3,4,1 TO 1 OR TO 0. WHEN DONE, F1B03300 06531 0500 00 0 05152 CLA 2E18 IF 1 DIMENSION, PICKUP DECREMENT 1,F1B03310 06532 0534 00 4 22242 LXA DIMSAV,4 AND GO SUBTRACT ADDEND 1. F1B03320 06533 -3 00001 4 06564 TXL 1D1,4,1 IF 2 OR 3 DIMENSION, THEN F1B03330 06534 0560 00 0 05572 LDQ E+11 PICKUP ADDENDS 1 AND 2, F1B03340 06535 0600 00 0 05572 STZ E+11 CLEAR E+11, AND F1B03350 06536 -0620 00 0 05572 SLQ E+11 RESTORE ADDEND 1 TO E+11. F1B03360 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 59 * SECTION ONE PASS TWO * RECORD 9F14 * BINARY CARD NO. 9F140014 06537 -0763 00 0 00022 LGL 18 ADJUST AND PLACE F1B03370 06540 -0600 00 0 22253 STQ N2 ADDEND 2 IN N2. F1B03380 06541 0560 00 0 05565 LDQ E+6 AND, IF 2 DIMENSION F1B03390 06542 0500 00 0 22245 CLA EPS-1 PICKUP EPSILON SUB 1, F1B03400 06543 -3 00002 4 06556 TXL 2D1,4,2 AND GO SUBTRACT ADDEND 2. F1B03410 06544 0402 00 0 05573 SUB E+12 IF 3 DIMENSION, SET GTAG F1B03420 06545 0601 00 0 22247 STO GTAG TO EPSILON SUB 1 - ADDEND 3. F1B03430 06546 0560 00 0 05567 LDQ E+8 PICKUP DIMENSIONS 1 AND 2, F1B03440 06547 0600 00 0 05567 STZ E+8 CLEAR E+8, AND F1B03450 06550 -0620 00 0 05567 SLQ E+8 RESTORE DIMENSION 1 TO E+8. F1B03460 06551 -0763 00 0 00022 LGL 18 ADJUST, AND MULTIPLY F1B03470 06552 0200 00 0 22247 MPY GTAG DIMENSION 2 TIMES GTAG. F1B03480 06553 0767 00 0 00021 ALS 17 THEN ADD F1B03490 06554 0400 00 0 22244 ADD EPS-2 EPSILON SUB 2 F1B03500 06555 0560 00 0 05567 LDQ E+8 TO THE PRODUCT, AND F1B03510 06556 0402 00 0 22253 2D1 SUB N2 SUBTRACT ADDEND 2. F1B03520 06557 0601 00 0 22247 STO GTAG MULTIPLY F1B03530 06560 0200 00 0 22247 MPY GTAG THE RESULT F1B03540 06561 0767 00 0 00021 ALS 17 TIMES F1B03550 06562 0400 00 4 22246 ADD EPS,4 DIMENSION 1, AND ADD IN EPSILON F1B03560 06563 0400 00 0 22246 ADD EPS SUB I AND EPSILON. F1B03570 06564 0402 00 0 05572 1D1 SUB E+11 SUBTRACT ADDEND 1, F1B03580 BINARY CARD NO. 9F140015 06565 0020 00 0 20655 TRA 1D1P $F1B03590 06566 -0500 00 0 05557 CAL E IN THE DECREMENT OF GTAG, F1B03600 06567 0771 00 0 00030 ARS 24 WITH I-TAUTAG F1B03610 06570 0621 00 0 22247 STA GTAG IN THE ADDRESS. F1B03620 06571 0774 00 4 00000 RAXR4 AXT ..,4 RESTORE THE C(XR4), AND F1B03630 06572 0020 00 4 00001 TRA 1,4 * EXIT TO CALLER. F1B03640 END OF PROGRAM RA000. F1B03650 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1B03660 F1B03670 SS000,4/ CALLS=C0190,DIAG,SR6DC1,DIM.SR,TBSR00,TET00,TESTFX. F1B03680 SS000 SCANS SUBSCRIPT COMBINATIONS AND MAKES TABLE ENTRIES. F1B03690 06573 -0634 00 2 06710 SS000 SXD SXR2,2 SAVE C(XR2), F1B03700 06574 -0634 00 1 06707 SXD SXR1,1 SAVE C(XR1), F1B03710 06575 -0634 00 4 06711 SXD SXR4,4 SAVE C(XR4), AND F1B03720 06576 0600 00 0 05575 STZ ERASE SET DIMCTR = 0. F1B03730 06577 0534 00 4 05126 LXA L(6),4 INITIALIZE F1B03740 06600 -0634 00 4 06705 SXD SBS2,4 FOR EACH SUBSCRIPT MEMBER. F1B03750 06601 -0500 00 0 04200 CAL TXHOP PICK UP TXH OP, AND F1B03760 06602 0630 00 0 06756 STP SBC6 SET OP F1B03770 06603 0630 00 0 06757 STP SBC8 SWITCHES. F1B03780 06604 -0500 00 0 04174 CAL TXLOP PICK UP TXL OP, AND F1B03790 06605 0630 00 0 06774 STP SBC4 SET OP SWITCH. F1B03800 06606 0534 00 3 05126 SS001 LXA L(6),3 SET FOR 6 CHARACTERS OF MULTIPLIER.F1B03810 06607 0600 00 0 22256 STZ SYMBOL CLEAR WORKING STORAGE. F1B03820 06610 0074 00 4 05250 TSX C0190,4 * GET FIRST NON BLANK CHAR IN THE AC.F1B03830 06611 0340 00 0 05131 CAS L(9) COMPARE IT WITH 9. F1B03840 06612 1 00000 0 06663 TXI SS0045,,0 RETURN TO EXPLICIT CODING. F1B03850 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 60 * SECTION ONE PASS TWO * RECORD 9F14 * BINARY CARD NO. 9F140016 06613 0761 00 0 00000 NOP IF NUMERIC, F1B03860 06614 0601 00 0 05602 STO FIRSTC SAVE RIGHT-ADJUSTED DIGIT, AND F1B03870 06615 0767 00 2 00044 SS0012 ALS 36,2 LEFT-ADJUST DIGIT TO F1B03880 06616 -0602 00 0 22256 ORS SYMBOL BUILD SYMBOL. F1B03890 06617 1 00006 2 06620 TXI SS0013,2,6 UPDATE SHIFT DECREMENT, AND F1B03900 06620 1 77777 1 06621 SS0013 TXI SS0014,1,-1 UPDATE COUNT OF CHARS COLLECTED. F1B03910 06621 0074 00 4 05250 SS0014 TSX C0190,4 * GET NEXT NB CHARACTER IN THE AC. F1B03920 06622 0774 00 4 00012 AXT CTEST-ENDMK,4 SET XR4 = NO. OF PUNCTUATION MARKS.F1B03930 06623 0340 00 4 05117 SS0015 CAS CTEST,4 TEST THIS CHARACTER AGAINST F1B03940 06624 1 00000 0 06626 TXI SS0016,,0 ALL PUNCTUATION. F1B03950 06625 0020 00 4 06712 TRA SUBTR,4 IF EQUALITY IS FOUND, TRANSFER. F1B03960 06626 2 00001 4 06623 SS0016 TIX SS0015,4,1 IF NOT FOUND TO BE PUNCTUATION, F1B03970 06627 0340 00 0 05131 CAS L(9) TEST FOR NUMERIC. F1B03980 06630 1 00000 0 06634 TXI SS0017,,0 AND IF F1B03990 06631 0761 00 0 00000 NOP FOUND TO BE NUMERIC, F1B04000 06632 3 00000 1 06615 TXH SS0012,1,0 CONTINUE BUILDING SYMBOL. BUT IF F1B04010 06633 1 00000 0 06677 TXI STOP49,,0 SEVENTH CHARACTER, GO TO DIAGNOSTICF1B04020 06634 0074 00 1 05466 SS0017 TSX TESTFX+1,1 * GO TEST FOR FIXED POINT VARIABLE. F1B04030 06635 ER0005 BSS 0 F1B04040 06635 0074 00 4 04504 SSERR TSX DIAG,4 * NOT FIXED POINT --GO TO DIAGNOSTIC.F1B04050 06636 -0763 00 0 00036 LGL 30 RESTORE FIXED POINT VARIABLE F1B04060 06637 0602 00 0 05611 SLW RESIDU TO RESIDU, AND F1B04070 06640 0534 00 4 05251 LXA XCHCTR,4 RESET CHARACTER COUNTER F1B04080 BINARY CARD NO. 9F140017 06641 1 00001 4 06642 TXI SS0018,4,1 TO BEGIN PROCESSING F1B04090 06642 0634 00 4 05251 SS0018 SXA XCHCTR,4 SUBSCRIPT MULTIPLIER. F1B04100 06643 0502 00 0 06756 SBX CLS SBC6 TEST FOR F1B04110 06644 -0120 00 0 06646 TMI SBX1 PREVIOUS MULTIPLIER. F1B04120 06645 ER0006 BSS 0 F1B04130 06645 0074 00 4 04504 TSX DIAG,4 * DOUBLE MULTIPLIER FOR SUBSCRIPT. F1B04140 06646 0601 00 0 06756 SBX1 STO SBC6 RESET MULTIPLIER SWITCH. F1B04150 06647 0500 00 0 05602 CLA FIRSTC TEST F1B04160 06650 0402 00 0 05104 SUB TEN MULTIPLIER F1B04170 06651 -0120 00 0 06653 TMI SBX2 FOR CONSTANT. F1B04180 06652 ER0007 BSS 0 F1B04190 06652 0074 00 4 04504 TSX DIAG,4 * SUBS-MULTIPLIER NOT A CONSTANT. F1B04200 06653 -0500 00 0 22256 SBX2 CAL SYMBOL ADJUST MULTIPLIER F1B04210 06654 0771 00 2 00052 ARS 42,2 TO LOW ORDER POSITION. F1B04220 06655 -0534 00 4 06705 LXD SBS2,4 GET STORING TAG, F1B04230 06656 0602 00 4 05570 SLW E+9,4 AND STORE MULTIPLIER. F1B04240 06657 0600 00 4 05576 STZ E+15,4 SET ADDEND = 0. F1B04250 06660 0534 00 3 05126 SS003 LXA L(6),3 SET FOR 6 CHARS OF VARIABLE/ADDEND.F1B04260 06661 0600 00 0 22256 STZ SYMBOL CLEAR WORKING STORAGE. F1B04270 06662 0074 00 4 05250 SS004 TSX C0190,4 * GO GET NEXT NB CHARACTER IN THE AC.F1B04280 06663 0774 00 4 00012 SS0045 AXT CTEST-ENDMK,4 COMPARE CHARACTER F1B04290 06664 0340 00 4 05117 SS005 CAS CTEST,4 TO ALL F1B04300 06665 1 00000 0 06667 TXI SS006,,0 PUNCTUATION. F1B04310 06666 0020 00 4 06712 TRA SUBTR,4 IF EQUALITY IS FOUND, TRANSFER. F1B04320 BINARY CARD NO. 9F140018 06667 2 00001 4 06664 SS006 TIX SS005,4,1 IF NOT FOUND TO BE PUNCTUATION, F1B04330 06670 -3 00005 1 06672 TXL SS008,1,5 IF 1ST CHARACTER OF VARIABLE OR F1B04340 06671 0601 00 0 05602 STO FIRSTC ADDEND, SAVE FOR LATER TESTS. F1B04350 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 61 * SECTION ONE PASS TWO * RECORD 9F14 * 06672 0767 00 2 00044 SS008 ALS 36,2 POSITION EACH CHARACTER. BUT F1B04360 06673 -3 00000 1 06677 SS009 TXL STOP49,1,0 * ON 7TH CHARACTER, GO TO STOP. F1B04370 06674 -0602 00 0 22256 ORS SYMBOL BUILD SYMBOL. F1B04380 06675 1 00006 2 06676 TXI SS007,2,6 UPDATE EFFECTIVE ADDRESS OF SHIFT. F1B04390 06676 1 77777 1 06662 SS007 TXI SS004,1,-1 UPDATE FOR ANOTHER CHAR COLLECTED. F1B04400 06677 ER0008 BSS 0 F1B04410 06677 0074 00 4 04504 STOP49 TSX DIAG,4 * GO TO DIAGNOSTIC ON 7TH CHARACTER. F1B04420 SUBTR/ CONTROL TRANSFERS FOR SUBSCRIPT SCAN= F1B04430 06700 1 00000 0 06701 TXI ISC,,0 EMK (ILLEGAL IN LIST SUBSCRIPT). F1B04440 06701 ER0009 BSS 0 F1B04450 06701 0074 00 4 04504 ISC TSX DIAG,4 * ( (ILLEGAL IN LIST SUBSCRIPT). F1B04460 06702 1 00000 0 06752 TXI SBC,,0 , F1B04470 06703 1 00000 0 06750 TXI SBR,,0 ) F1B04480 06704 1 00000 0 06701 TXI ISC,,0 = (ILLEGAL IN LIST SUBSCRIPT). F1B04490 06705 1 00000 0 06712 SBS2 TXI SBM,0,** - ,,SUBSCRIPT ELEMENT COUNTER. F1B04500 06706 1 00000 0 06701 TXI ISC,,0 / (ILLEGAL IN LIST SUBSCRIPT). F1B04510 06707 1 00000 0 06701 SXR1 TXI ISC,0,** . (ILLEGAL IN LIST SUBSCRIPT). F1B04520 06710 1 00000 0 06713 SXR2 TXI SBP,0,** + F1B04530 06711 1 00000 0 06643 SXR4 TXI SBX,0,** * F1B04540 06712 SUBTR BSS 0 INDEXING ADDRESS FOR ABOVE LIST. F1B04550 06712 -0760 00 0 00003 SBM SSM MINUS ADDEND. F1B04560 06713 0760 00 0 00000 SBP CLM PLUS ADDEND. F1B04570 06714 -0534 00 4 06705 LXD SBS2,4 GET STORING TAG, AND F1B04580 BINARY CARD NO. 9F140019 06715 0601 00 4 05576 STO E+15,4 STORE SIGN OF ADDEND. F1B04590 06716 0502 00 0 06757 CLS SBC8 TEST SWITCH F1B04600 06717 -0120 00 0 06721 TMI SBP1 FOR PREVIOUS ADDEND. F1B04610 06720 ER0010 BSS 0 F1B04620 06720 0074 00 4 04504 TSX DIAG,4 * DOUBLE ADDEND FOR SUBSCRIPT. F1B04630 06721 0601 00 0 06757 SBP1 STO SBC8 RESET ADDEND SWITCH. F1B04640 06722 0074 00 1 05465 TSX TESTFX,1 * GO TO TEST FOR FIXED POINT. F1B04650 06723 0020 00 0 06635 TRA SSERR * NOT FIXED POINT --GO TO DIAGNOSTIC.F1B04660 06724 -0534 00 4 06705 LXD SBS2,4 GET STORING TAG, AND F1B04670 06725 0502 00 0 06756 CLS SBC6 TEST SWITCH F1B04680 06726 0120 00 0 06733 TPL SBP2 FOR PREVIOUS MULTIPLIER. F1B04690 06727 0500 00 0 05121 CLA L(1) IF NONE, F1B04700 06730 0601 00 4 05570 STO E+9,4 SET MULTIPLIER F1B04710 06731 1 00000 0 06734 TXI SBP4,,0 TO 1, AND CONTINUE. F1B04720 06732 0502 00 0 06756 SBC1 CLS SBC6 RESET MULTIPLIER F1B04730 06733 0601 00 0 06756 SBP2 STO SBC6 OP SWITCH. F1B04740 06734 -0500 00 0 22256 SBP4 CAL SYMBOL IF VARIABLE SUBSCRIPT, F1B04750 06735 3 00044 2 06742 TXH SBP41,2,36 ADD BLANKS F1B04760 06736 -0754 00 0 00000 PXD ,0 F1B04770 06737 0560 00 0 05155 LDQ BLANKS IF LESS F1B04780 06740 -0763 00 2 00052 LGL 42,2 THAN 6 F1B04790 06741 -0501 00 0 22256 ORA SYMBOL CHARACTERS, AND F1B04800 06742 0602 00 4 05571 SBP41 SLW E+10,4 PLACE IN E-REGION. F1B04810 BINARY CARD NO. 9F140020 06743 0074 00 1 05465 TSX TESTFX,1 * GO TO TEST FOR FIXED POINT. F1B04820 06744 0020 00 0 06635 TRA SSERR * NOT FIXED POINT --GO TO DIAGNOSTIC.F1B04830 06745 0500 00 0 06757 CLA SBC8 IF THERE IS AN ADDEND, F1B04840 06746 -0120 00 0 06660 TMI SS003 GO COLLECT, OTHERWISE F1B04850 06747 1 00000 0 06772 TXI SBC7,,0 GO UPDATE STORING TAG. F1B04860 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 62 * SECTION ONE PASS TWO * RECORD 9F14 * 06750 0502 00 0 06774 SBR CLS SBC4 SET SWITCH F1B04870 06751 0601 00 0 06774 STO SBC4 FOR CLOSING PARENTHESIS. F1B04880 06752 -0500 00 0 05575 SBC CAL ERASE UPDATE F1B04890 06753 0400 00 0 05121 ADD L(1) DIMENSION COUNTER F1B04900 06754 0621 00 0 05575 STA ERASE BY 1. F1B04910 06755 -0534 00 4 06705 LXD SBS2,4 GET STORING TAG. F1B04920 06756 3 00000 0 06732 SBC6 TXH SBC1,,0 SWITCH - IF NO MULTIPLIER, AND F1B04930 06757 3 00000 0 06776 SBC8 TXH SBC2,,0 SWITCH - IF NO ADDEND, THEN F1B04940 06760 0500 00 0 05121 CLA L(1) SET F1B04950 06761 0601 00 4 05570 STO E+9,4 MULTIPLIER = 1. F1B04960 06762 0600 00 4 05576 STZ E+15,4 SET ADDEND = 0. F1B04970 06763 0500 00 0 05602 CLA FIRSTC TEST FOR F1B04980 06764 0402 00 0 05104 SUB TEN CONSTANT OR VARIABLE. F1B04990 06765 0120 00 0 06734 TPL SBP4 IF CONSTANT, THEN F1B05000 06766 0600 00 4 05571 STZ E+10,4 SET VARIABLE = 0. F1B05010 06767 -0500 00 0 22256 SBC9 CAL SYMBOL ADJUST F1B05020 06770 0771 00 2 00052 ARS 42,2 CONSTANT F1B05030 BINARY CARD NO. 9F140021 06771 -0602 00 4 05576 ORS E+15,4 TO LOW ORDER POSITION. F1B05040 06772 -2 00002 4 07004 SBC7 TNX SBC3,4,2 UPDATE STORING TAG F1B05050 06773 -0634 00 4 06705 SXD SBS2,4 BY -2, AND SAVE. F1B05060 06774 -3 00000 0 06606 SBC4 TXL SS001,,0 SWITCH - REPEAT FOR NEXT SUB-COMB. F1B05070 06775 1 00000 0 07010 TXI SA000,,0 F1B05080 06776 0502 00 0 06757 SBC2 CLS SBC8 RESET ADDEND F1B05090 06777 0601 00 0 06757 STO SBC8 OP SWITCH. F1B05100 07000 0502 00 0 05104 CLS TEN TEST F1B05110 07001 0400 00 0 05602 ADD FIRSTC ADDEND F1B05120 07002 -0120 00 0 06767 TMI SBC9 FOR CONSTANT. F1B05130 07003 ER0011 BSS 0 F1B05140 07003 0074 00 4 04504 TSX DIAG,4 * SUBSCRIPT ADDEND NOT A CONSTANT. F1B05150 07004 0502 00 0 06774 SBC3 CLS SBC4 AFTER SCANNING 3 SUBSCRIPTS, F1B05160 07005 -0120 00 0 07010 TMI SA000 GO MAKE TABLE ENTRIES AND GET TAG. F1B05170 07006 ER0012 BSS 0 F1B05180 07006 0074 00 4 04504 TSX DIAG,4 * GO TO DIAG - NO ) AFTER 3RD SUBS. F1B05190 CSA000= ENTRY POINT USED BY C0200 (GO TO ROUTINE). F1B05200 07007 -0634 00 4 06711 CSA000 SXD SXR4,4 SAVE C(XR4) FOR RETURN TO C0200. F1B05210 07010 0500 00 0 05575 SA000 CLA ERASE SAVE F1B05220 07011 0601 00 0 22242 STO DIMSAV THE CONTENTS OF DIMCTR. F1B05230 07012 0767 00 0 00041 ALS 33 POSITION AND F1B05240 07013 0601 00 0 05557 STO E STORE I TAG. F1B05250 07014 0500 00 0 05572 CLA E+11 MOVE SUBSCRIPT ADDENDS F1B05260 07015 0601 00 0 05573 STO E+12 INTO POSITION F1B05270 07016 0500 00 0 05570 CLA E+9 FOR FOLLOWING F1B05280 BINARY CARD NO. 9F140022 07017 0601 00 0 05572 STO E+11 PROGRAM. F1B05290 07020 0500 00 0 05122 CLA L(2) EXAMINE DIMCTR F1B05300 07021 0340 00 0 05575 CAS ERASE TO DETERMINE F1B05310 07022 1 00000 0 07154 TXI 1D0000,,0 WHETHER DIMENSION OF F1B05320 07023 1 00000 0 07111 TXI 2D0000,,0 VARIABLE IS 1,2, OR 3. F1B05330 07024 0534 00 4 05126 LXA L(6),4 PREPARE TO PICK UP 3 COEFFICIENTS. F1B05340 07025 0560 00 4 05570 3D0001 LDQ E+9,4 CONVERT THEM FROM BCD TO BINARY F1B05350 07026 0074 00 1 05342 TSX SR6DC1,1 * IN E+3,5,7, AND F1B05360 07027 0601 00 4 05570 STO E+9,4 STORE BACK IN E+3,5,7. F1B05370 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 63 * SECTION ONE PASS TWO * RECORD 9F14 * 07030 2 00002 4 07025 TIX 3D0001,4,2 WHEN DONE, PREPARE F1B05380 07031 0534 00 4 05123 LXA L(3),4 TO PICK UP 3 ADDENDS. F1B05390 07032 0500 00 4 05575 3D0002 CLA E+14,4 CONVERT ADDENDS (BCD TO BINARY)= F1B05400 07033 0602 00 0 05604 SLW G STRIP OFF F1B05410 07034 0560 00 0 05604 LDQ G SIGN, F1B05420 07035 0074 00 1 05342 TSX SR6DC1,1 * CONVERT ADDENDS IN E+11,12,13, F1B05430 07036 0560 00 4 05575 LDQ E+14,4 PUT SIGN IN S-BIT OF MQ, AND F1B05440 07037 0162 00 0 07041 TQP 3D0040 IF PLUS--SKIP NEXT, F1B05450 07040 -0501 00 0 06141 ORA 2E17 IF MINUS--OR SIGN INTO BIT 18, F1B05460 07041 0601 00 4 05575 3D0040 STO E+14,4 AND STORE BACK INTO E+11,12,13. F1B05470 07042 2 00001 4 07032 TIX 3D0002,4,1 WHEN DONE, F1B05480 07043 0074 00 4 05316 TSX DIM3SR,4 * GO SEARCH DIM3 TABLE. F1B05490 07044 ER0013 BSS 0 F1B05500 07044 0074 00 4 04504 TSX DIAG,4 * --ERROR...NOT FOUND. F1B05510 BINARY CARD NO. 9F140023 07045 0500 00 0 05562 3D0060 CLA E+3 REFORMATIZE E-STRING = F1B05520 07046 0767 00 0 00022 ALS 18 PACK TOGETHER COEFFICIENTS 1 AND 2 F1B05530 07047 0400 00 0 05564 ADD E+5 AND STORE THEM F1B05540 07050 0601 00 0 05562 STO E+3 IN E+3. F1B05550 07051 0500 00 0 05563 CLA E+4 MOVE SUBSCRIPT 1 F1B05560 07052 0601 00 0 05564 STO E+5 TO E+5. F1B05570 07053 0500 00 0 05566 CLA E+7 AND MOVE F1B05580 07054 0767 00 0 00022 ALS 18 COEFFICIENT 3 F1B05590 07055 0601 00 0 05563 STO E+4 INTO E+4. F1B05600 07056 0500 00 0 05567 CLA E+8 MOVE SUBSCRIPT 3 INTO E+7, F1B05610 07057 0601 00 0 05566 STO E+7 NEXT TO SUBSCRIPT 2 IN E+6. F1B05620 07060 0500 00 0 05576 CLA ERASE1 MOVE DIMENSIONS 1 AND 2 F1B05630 07061 0601 00 0 05567 STO E+8 INTO E+8. F1B05640 07062 -0500 00 0 05572 CAL E+11 PACK TOGETHER F1B05650 07063 0767 00 0 00022 ALS 18 ADDENDS 1 AND 2 F1B05660 07064 -0501 00 0 05573 ORA E+12 AND F1B05670 07065 0602 00 0 05572 SLW E+11 STORE THEM IN E+11. F1B05680 07066 -0500 00 0 05574 CAL E+13 MOVE F1B05690 07067 0767 00 0 00022 ALS 18 ADDEND 3 F1B05700 07070 0602 00 0 05573 SLW E+12 INTO E+12. F1B05710 07071 0074 00 4 04173 TSX TAU3IX,4 * GO SEARCH TAU3 TABLE. F1B05720 07072 0767 00 0 00030 ALS 24 POSITION TAU3 TAG, AND F1B05730 BINARY CARD NO. 9F140024 07073 -0602 00 0 05557 ORS E PLACE TAU3 TAG IN TAG WORD. F1B05740 07074 -0500 00 0 05566 CAL E+7 COMBINE F1B05750 07075 -0501 00 0 05565 ORA E+6 SUBSCRIPTS 3,2, AND 1, F1B05760 07076 -0501 00 0 05564 3D0340 ORA E+5 AND IF THEY ARE ALL ZERO, F1B05770 07077 0100 00 0 07176 3D0350 TZE NOTAG --DONT ENTER FORTAG. F1B05780 07100 -0500 00 0 03734 FTG000 CAL EIFNO ENTER FORTAG= F1B05790 07101 -0320 00 0 06216 ANA MASK1 BRING UP ALPHA (INTFORMNO) F1B05800 07102 0602 00 0 05604 SLW G AND STORE IN G. F1B05810 07103 -0500 00 0 05557 CAL E BRING UP TAUTAG FOR I, F1B05820 07104 0771 00 0 00030 ARS 24 ADJUST, AND F1B05830 07105 -0602 00 0 05604 ORS G PLACE IN G WITH ALPHA. THEN F1B05840 07106 -0520 00 0 20746 NZT ACFTG IS THIS ARITHMETIC FORTAG. (23)F1B05850 07107 0074 00 2 20736 TSX CFTAG,2 NO, MAKE TABLE ENTRY. (23)F1B05860 07110 1 00000 0 07201 TXI SAEXIT,,0 GO TO EXIT. F1B05870 07111 0534 00 4 05124 2D0000 LXA L(4),4 IF 2 DIM, PICKUP AND F1B05880 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 64 * SECTION ONE PASS TWO * RECORD 9F14 * 07112 0560 00 4 05566 2D0001 LDQ E+7,4 CONVERT COEFFICIENTS F1B05890 07113 0074 00 1 05342 TSX SR6DC1,1 * (BCD TO BINARY), F1B05900 07114 0601 00 4 05566 STO E+7,4 AND STORE BACK IN E+3 AND E+5. F1B05910 07115 2 00002 4 07112 TIX 2D0001,4,2 WHEN DONE, F1B05920 07116 0534 00 4 05122 LXA L(2),4 PREPARE TO F1B05930 07117 0500 00 4 05574 2D0002 CLA E+13,4 PICKUP THE TWO ADDENDS. F1B05940 07120 0602 00 0 05604 SLW G STRIP OFF F1B05950 BINARY CARD NO. 9F140025 07121 0560 00 0 05604 LDQ G THEIR SIGNS, F1B05960 07122 0074 00 1 05342 TSX SR6DC1,1 * CONVERT THEM FROM BCD TO BINARY, F1B05970 07123 0560 00 4 05574 LDQ E+13,4 PUT SIGN IN S-BIT OF MQ, AND F1B05980 07124 0162 00 0 07126 TQP 2D0040 IF PLUS--SKIP NEXT, F1B05990 07125 -0501 00 0 06141 ORA 2E17 IF MINUS--OR SIGN INTO BIT 18, F1B06000 07126 0601 00 4 05574 2D0040 STO E+13,4 AND STORE BACK IN E+11 AND E+12. F1B06010 07127 2 00001 4 07117 TIX 2D0002,4,1 WHEN DONE, F1B06020 07130 0074 00 4 05276 TSX DIM2SR,4 * GO SEARCH DIM2 TABLE. F1B06030 07131 0074 00 4 04504 ER0014 TSX DIAG,4 * --ERROR...NOT FOUND. F1B06040 07132 0500 00 0 05562 2D0060 CLA E+3 REFORMATIZE E-STRING = F1B06050 07133 0767 00 0 00022 ALS 18 PACK TOGETHER F1B06060 07134 0400 00 0 05564 ADD E+5 COEFFICIENTS 1 AND 2, F1B06070 07135 0601 00 0 05562 STO E+3 AND STORE THEM IN E+3. F1B06080 07136 0500 00 0 05565 CLA E+6 MOVE SUBSCRIPT 2 INTO E+5 F1B06090 07137 0601 00 0 05564 STO E+5 (NEXT TO SUBSCRIPT 1 IN E+4). F1B06100 07140 0500 00 0 05576 CLA ERASE1 OBTAIN F1B06110 07141 -0320 00 0 06216 ANA MASK1 DIMENSION 1, AND MOVE IT F1B06120 07142 0601 00 0 05565 STO E+6 INTO E+6. F1B06130 07143 -0500 00 0 05572 CAL E+11 PACK TOGETHER F1B06140 07144 0767 00 0 00022 ALS 18 ADDENDS 1 AND 2, F1B06150 07145 -0501 00 0 05573 ORA E+12 AND STORE THEM F1B06160 07146 0602 00 0 05572 SLW E+11 IN E+11. F1B06170 BINARY CARD NO. 9F140026 07147 0074 00 4 04167 TSX TAU2IX,4 * GO SEARCH TAU2 TABLE. F1B06180 07150 0767 00 0 00030 ALS 24 POSITION TAU2 TAG, AND F1B06190 07151 -0602 00 0 05557 ORS E PLACE TAU2 TAG IN TAG WORD. F1B06200 07152 -0500 00 0 05563 CAL E+4 COMBINE SUBSCRIPTS 1 AND 2, AND F1B06210 07153 1 00000 0 07076 TXI 3D0340,,0 GO TO FORTAG SECTION. F1B06220 07154 0560 00 0 05562 1D0000 LDQ E+3 IF 1 DIM, PICKUP AND CONVERT COEF. F1B06230 07155 0074 00 1 05342 TSX SR6DC1,1 * (BCD TO BINARY), AND F1B06240 07156 0767 00 0 00022 ALS 18 THEN ADJUST THEM, F1B06250 07157 0601 00 0 05562 STO E+3 AND STORE THEM BACK IN E+3. F1B06260 07160 0500 00 0 05572 CLA E+11 PICKUP ADDEND, F1B06270 07161 0602 00 0 05604 SLW G STRIP OFF SIGN, F1B06280 07162 0560 00 0 05604 LDQ G CONVERT ADDEND F1B06290 07163 0074 00 1 05342 TSX SR6DC1,1 * (BCD TO BINARY), AND THEN F1B06300 07164 0560 00 0 05572 LDQ E+11 PUT SIGN IN S-BIT OF MQ, AND F1B06310 07165 0162 00 0 07167 TQP 1D0001 IF PLUS--SKIP NEXT, F1B06320 07166 -0501 00 0 06141 ORA 2E17 IF MINUS--OR SIGN INTO BIT 18. F1B06330 07167 0767 00 0 00022 1D0001 ALS 18 THEN ADJUST AND STORE F1B06340 07170 0602 00 0 05572 SLW E+11 BACK INTO E+11. F1B06350 07171 0074 00 4 04163 TSX TAU1IX,4 * GO SEARCH TAU1 TABLE. F1B06360 07172 0767 00 0 00030 ALS 24 POSITION TAU1 TAG, AND F1B06370 07173 -0602 00 0 05557 ORS E PLACE TAU1 TAG IN TAG WORD. F1B06380 07174 -0500 00 0 05563 CAL E+4 TAKE SUBSCRIPT, AND F1B06390 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 65 * SECTION ONE PASS TWO * RECORD 9F14 * BINARY CARD NO. 9F140027 07175 1 00000 0 07077 TXI 3D0350,,0 GO TO FORTAG SECTION. F1B06400 07176 -0500 00 0 05152 NOTAG CAL 2E18 PLACE SIGMA1 F1B06410 07177 0767 00 0 00005 ALS 5 TAG IN F1B06420 07200 -0602 00 0 05557 ORS E TAGWORD. F1B06430 07201 -0534 00 1 06707 SAEXIT LXD SXR1,1 RESTORE THE C(XR1), F1B06440 07202 -0534 00 2 06710 LXD SXR2,2 RESTORE THE C(XR2), F1B06450 07203 -0534 00 4 06711 LXD SXR4,4 RESTORE THE C(XR4), AND F1B06460 07204 0020 00 4 00001 TRA 1,4 * EXIT TO MAIN ROUTINE. F1B06470 END OF PROGRAM SS000. F1B06480 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1B06490 F1B06500 SXD,2/ CALLS=CIT00. F1B06510 SXD COMPILES= IFN SXD 6)+4,4. F1B06520 07205 0074 00 4 04251 SXD TSX CIT00,4 * GO MAKE FOLLOWING CIT ENTRY= F1B06530 07206 0 06271 0 22255 PZE SL,,L(SXD) LOC,,OP-DEC F1B06540 07207 0 06156 0 06172 PZE O(,,D4A4 ADR,,RA-TAG F1B06550 07210 0020 00 2 00001 TRA 1,2 * EXIT TO CALLER+1. F1B06560 END OF PROGRAM SXD. F1B06570 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1B06580 F1B06590 CHSIFN/ CALLS=TET00. F1B06600 CHSIFN MAKES MINUS EIFNO ENTRY AND REENTERS PASS2. F1B06610 07211 -0500 00 0 04522 CHSIFN CAL EFN IF THIS STATEMENT HAS F1B06620 07212 0100 00 0 06323 TZE PASS2 * AN EXTERNAL STATEMENT NUMBER, F1B06630 07213 -0500 00 0 06204 CAL MINUS0 THEN MAKE A F1B06640 07214 -0602 00 0 03734 ORS EIFNO NEGATIVE ENTRY F1B06650 07215 0074 00 1 04405 TSX TET00,1 * IN THE TAPE TABLE F1B06660 07216 0 00000 0 00000 PZE 0 TEIFNO. F1B06670 07217 -0500 00 0 03734 CAL EIFNO THEN RESET THE SIGN OF EIFNO, F1B06680 07220 0601 00 0 03734 STO EIFNO AND REENTER PASS2. F1B06690 07221 0020 00 0 06323 TRA PASS2 F1B06700 END OF PROGRAM CHSIFN. F1B06710 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1B06720 F1B06730 END OF PASS2 COMMON. F1B06740 F1B06750 C0100/ CALLS=TEST..,C0180,C0160,C0150,TET00. F1B06760 C0100 PROCESSES DO STATEMENTS. F1B06770 07222 0074 00 2 05214 C0100 TSX C0180X,2 * FORM BINARY EQUIV OF BETA IN 1G. F1B06780 BINARY CARD NO. 9F140028 07223 0601 00 0 05553 STO 2G SAVE THE 1ST CHAR OF SUBSCRIPT. F1B06790 07224 0500 00 0 05552 CLA 1G TAKE CONVERTED RESULT FOR BETA F1B06800 07225 0621 00 0 05545 STA 1C AND STORE IN ADDR OF 1C. F1B06810 07226 0500 00 0 05553 CLA 2G 1C IS NOW COMPLETE EXCEPT FOR TAG. F1B06820 07227 0074 00 2 05162 TSX C0160,2 * OBTAIN IN 1G THE SUBSCRIPT. F1B06830 07230 0560 00 0 05552 LDQ 1G MOVE SUBSCRIPT F1B06840 07231 -0600 00 0 05546 STQ 1C+1 TO 1C+1. F1B06850 07232 0322 00 0 05111 ERA EQUAL IS PUNCTUATION AN EQUALS SIGN. F1B06860 07233 0100 00 0 07235 TZE *+2 *YES. F1B06861 07234 0074 00 4 04504 ER2003 TSX DIAG,4 NO. GO TO DIAGNOSTIC. F1B06862 07235 -0763 00 0 00006 LGL 6 SHIFT FIRST CHARACTER INTO AC. F1B06870 07236 0074 00 1 05466 TSX TESTFX+1,1 TEST FOR FIXED POINT NAME. F1B06880 07237 0020 00 0 07305 TRA ER2001 ERROR, NAME IS NOT FIXED POINT. F1B06890 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 66 * SECTION ONE PASS TWO * RECORD 9F14 * 07240 0074 00 2 07273 TSX C0150,2 * OBTAIN IN 1G THE PROPER N1. F1B06900 07241 0074 00 4 05531 TSX TESTG0,4 TEST FOR COMMA BETWEEN N1 AND N2. F1B06910 07242 0500 00 0 05552 CLA 1G STORE N1 F1B06920 07243 0601 00 0 05547 STO 1C+2 IN 1C+2. F1B06930 07244 -0500 00 0 22250 CAL I OBTAIN I IN LOGICAL ACC AND F1B06940 07245 0771 00 0 00022 ARS 18 STORE IN POS 18 OF 1C F1B06950 07246 -0602 00 0 05545 ORS 1C 0 IF NUMERIC, OR 1 IF NON-NUMERIC. F1B06960 07247 0074 00 2 07273 TSX C0150,2 * OBTAIN IN 1G THE PROPER N2. F1B06970 07250 0074 00 4 05473 TSX TESTA0,4 * TEST THE AC FOR COMMA OR ENDMARK. F1B06980 BINARY CARD NO. 9F140029 07251 -0100 00 0 07254 TNZ C0113 IF ENDMARK, THEN F1B06990 07252 0560 00 0 06215 LDQ FAKEN3 F1B07000 07253 -0600 00 0 05611 STQ RESIDU AND PLACE IN RESIDU. F1B07010 07254 0500 00 0 05552 C0113 CLA 1G STORE N2 F1B07020 07255 0601 00 0 05550 STO 1C+3 IN 1C+3. F1B07030 07256 -0500 00 0 22250 CAL I OBTAIN I IN LOG ACC AND F1B07040 07257 0771 00 0 00023 ARS 19 STORE IN POS 19 OF 1C F1B07050 07260 -0602 00 0 05545 ORS 1C 0 IF NUMERIC, OR 1 IF NON-NUMERIC. F1B07060 07261 0074 00 2 07273 TSX C0150,2 * OBTAIN IN 1G THE PROPER N3. F1B07070 07262 0074 00 4 05515 TSX TESTD0,4 * THE AC SHOULD CONTAIN AN ENDMARK. F1B07080 07263 0500 00 0 05552 CLA 1G STORE N3 F1B07090 07264 0601 00 0 05551 STO 1C+4 IN 1C+4. F1B07100 07265 -0500 00 0 22250 CAL I OBTAIN I IN LOG ACC AND F1B07110 07266 0771 00 0 00024 ARS 20 STORE IN POS 20 OF 1C F1B07120 07267 -0602 00 0 05545 ORS 1C 0 IF NUMERIC, OR 1 IF NON-NUMERIC. F1B07130 07270 0074 00 1 04405 TSX TET00,1 * GO TO TET PROGRAM TO ENTER F1B07140 07271 0 00000 0 00001 PZE 1 1C,1C+1,..1C+4 IN TDO TABLE 1. F1B07150 07272 0020 00 0 06323 TRA PASS2 * EXIT TO PASS2. F1B07160 END OF PROGRAM C0100. F1B07170 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1B07180 F1B07190 C0150,2/ CALLS=C0190,C0180,C0160. CALLER=C0100. F1B07200 C0150 INSPECTS 1ST NB CHAR STARTING IN MQ. IF NUMERIC, SETS IF1B07210 = 0, AND CONVERTS SUCCESSIVE NUMERICS TO BINARY. IF NON- F1B07220 NUMERIC, SETS I = -0, AND PACKS INTO 1G SUCCESSIVE CHARACTERSF1B07230 UNTIL A ,()= OR ENDMK IS MET, AND LEFT IN THE AC. F1B07240 07273 -0634 00 2 07276 C0150 SXD C015X,2 SAVE THE C(XR2). F1B07250 07274 0074 00 4 05250 TSX C0190,4 * TEST 1ST NON-BLANK CHARACTER F1B07260 07275 0340 00 0 05131 CAS L(9) FOR NUMERIC OR NON-NUMERIC. F1B07270 07276 1 00000 0 07304 C015X TXI C0151,0,** IF NON-NUMERIC, TRANSFER. F1B07280 BINARY CARD NO. 9F140030 07277 0761 00 0 00000 NOP IF NUMERIC, THEN F1B07290 07300 0074 00 2 05215 TSX C0180,2 * GO CONVERT TO BINARY. F1B07300 07301 0601 00 0 05553 STO 2G SAVE NEXT NON-NUMERIC CHARACTER. F1B07310 07302 0500 00 0 05120 CLA L(0) PREPARE TO SET I TO +0. F1B07320 07303 1 00000 0 07311 TXI C0152,,0 GO SET I FOR NUMERIC. F1B07330 07304 0074 00 1 05466 C0151 TSX TESTFX+1,1 TEST FOR FIXED POINT VARIABLE. F1B07340 07305 0074 00 4 04504 ER2001 TSX DIAG,4 ERROR, NOT FIXED POINT BEGINNING. F1B07350 07306 0074 00 2 05162 TSX C0160,2 ASSEMBLE NON-NUMERICS IN 1G. F1B07360 07307 0601 00 0 05553 STO 2G SAVE PUNCTUATION MARK, AND F1B07370 07310 0502 00 0 05120 CLS L(0) PREPARE TO SET I TO -0. F1B07380 07311 0601 00 0 22250 C0152 STO I SET I = +0, OR -0. F1B07390 07312 0500 00 0 05553 CLA 2G PICKUP NEXT CHARACTER, F1B07400 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 67 * SECTION ONE PASS TWO * RECORD 9F14 * 07313 -0534 00 2 07276 LXD C015X,2 RESTORE THE C(XR2), AND F1B07410 07314 0020 00 2 00001 TRA 1,2 * RETURN TO CALLER. F1B07420 END OF PROGRAM C0150. F1B07430 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1B07440 F1B07450 C0200/ CALLS=CIT00,SS000,TEST..,C0190,C0180,TET00,C0160, F1B07460 C0200 PROCESSES GO TO STATEMENTS. F1B07470 07315 0500 00 0 05545 C0200 CLA 1C PLACE F1B07480 07316 0601 00 0 05547 STO 1C+2 IFN IN 1C+2. F1B07490 07317 0074 00 4 05250 TSX C0190,4 * OBTAIN IN ACC NEXT NB CHARACTER F1B07500 07320 0340 00 0 05131 CAS L(9) AND COMPARE IT WITH 9. F1B07510 07321 1 00000 0 07330 TXI C0205,,0 IF NON-NUMERIC, COMPARE WITH (. F1B07520 07322 0761 00 0 00000 NOP IF NUMERIC, THEN F1B07530 07323 0074 00 2 05215 TSX C0180,2 * OBTAIN IN 1G THE BINARY EQUV BETA. F1B07540 07324 0074 00 4 05515 TSX TESTD0,4 * THE AC SHOULD CONTAIN AN ENDMARK. F1B07550 BINARY CARD NO. 9F140031 07325 0500 00 0 05552 CLA 1G STORE BETA IN 1C+1 TO CONSTRUCT F1B07560 07326 0601 00 0 05546 STO 1C+1 THE 2ND WORD OF TIFGO TABLE ENTRY. F1B07570 07327 1 00000 0 07421 TXI C0202,,0 GO TO ENTER 1C,1C+1 INTO TIFGO. F1B07580 07330 0340 00 0 05106 C0205 CAS OPEN TEST CHARACTER FOR ALPHABETIC. F1B07590 07331 1 00000 0 07333 TXI C0210,,0 IF NOT ALPHABETIC, THEN F1B07600 07332 1 00000 0 07343 TXI C0212,,0 THIS IS TYPE ..... GO TO ( ),I F1B07610 07333 0074 00 2 05162 C0210 TSX C0160,2 * TYPE= GO TO N,(),SO OBTAIN IN 1G N F1B07620 07334 0074 00 4 05531 TSX TESTG0,4 * WHICH SHOULD BE FOLLOWED BY COMMA. F1B07630 07335 0500 00 0 05552 CLA 1G SAVE THE SYMBOL N IN 1C+3 F1B07640 07336 0601 00 0 05550 STO 1C+3 FOR COMPILED INSTRUCTION. F1B07650 07337 0074 00 4 05250 TSX C0190,4 * OBTAIN IN ACC NEXT NB CHARACTER, F1B07660 07340 0074 00 4 05521 TSX TESTE0,4 * WHICH SHOULD BE A LPAREN. F1B07670 07341 0500 00 0 05121 CLA L(1) PREPARE TO SET ADDRESS PART OF 1C F1B07680 07342 0020 00 0 07344 TRA C0213 TO 1 TO INDICATE CLASS OF TRANSFER.F1B07690 07343 0500 00 0 05122 C0212 CLA L(2) PREPARE TO SET ADDR OF 1C TO 2. F1B07700 07344 0621 00 0 05545 C0213 STA 1C STORE 1 OR 2 IN ADDR OF 1C. F1B07710 07345 -0534 00 2 07423 LXD CTRAD,2 OBTAIN 250-(NO. TRAD ENTRIES), AND F1B07720 07346 -0754 00 2 00000 PXD ,2 PLACE IN THE DECREMENT OF THE AC F1B07730 07347 0601 00 0 05546 STO 1C+1 AND STORE IN 1C+1. F1B07740 07350 0074 00 2 05214 C0215 TSX C0180X,2 * OBTAIN BINARY TRA ADDRESS IN 1G. F1B07750 07351 0601 00 0 05553 STO 2G SAVE CHAR IN ACC. F1B07760 07352 0074 00 1 04405 TSX TET00,1 * GO TO ENTER 1G F1B07770 BINARY CARD NO. 9F140032 07353 0 00000 0 00003 PZE 3 INTO TRAD TABLE (TABLE 3). F1B07780 07354 -0534 00 2 07423 LXD CTRAD,2 REDUCE COUNTER F1B07790 07355 2 00001 2 07356 TIX C0216,2,1 CTRAD F1B07800 07356 -0634 00 2 07423 C0216 SXD CTRAD,2 BY 1. F1B07810 07357 0500 00 0 05553 CLA 2G RESTORE CHAR TO ACC. F1B07820 07360 0074 00 4 05501 TSX TESTB0,4 * TEST FOR COMMA OR RPAREN. F1B07830 07361 -0100 00 0 07350 TNZ C0215 IF RIGHT PARENTHESIS, THEN F1B07840 07362 -0534 00 4 07423 LXD CTRAD,4 OBTAIN 250 MINUS NO. TRAD ENTRIES F1B07850 07363 0634 00 4 05546 SXA 1C+1,4 IN ADDR OF 1C+1. F1B07860 07364 0500 00 0 05545 CLA 1C OBTAIN 1C IN ACC F1B07870 07365 0760 00 0 00001 LBT AND TEST LOW ORDER BIT. F1B07880 07366 0020 00 0 07375 TRA C0220 THIS IS A TYPE GO TO (),I FORMULA. F1B07890 07367 0074 00 4 05250 TSX C0190,4 * OBTAIN NEXT NB CHAR AND F1B07900 07370 0074 00 4 05515 TSX TESTD0,4 * TEST FOR ENDMK. F1B07910 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 68 * SECTION ONE PASS TWO * RECORD 9F14 * 07371 0074 00 4 04251 TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= F1B07920 07372 0 06275 0 05547 PZE 1C+2,,L(TRA) LOC,,OP-DEC F1B07930 07373 0 05120 0 05550 PZE 1C+3,,L(0) ADR,,RA-TAG F1B07940 07374 0020 00 0 07421 TRA C0202 GO TO ENTER 1C,1C+1 INTO TIFGO. F1B07950 07375 0074 00 4 05250 C0220 TSX C0190,4 * EXAMINE NEXT NB CHARACTER, F1B07960 07376 0074 00 4 05531 TSX TESTG0,4 * WHICH SHOULD BE A COMMA. F1B07970 07377 0074 00 4 05250 TSX C0190,4 * OBTAIN IN ACC NEXT NB CHAR, AND F1B07980 07400 0074 00 1 05466 TSX TESTFX+1,1 TEST FOR FIXED OR FLOATING POINT. F1B07990 BINARY CARD NO. 9F140033 07401 0020 00 0 10736 TRA ER0055 FLOATING POINT RETURN IS ERROR. F1B08000 07402 0074 00 2 05162 TSX C0160,2 * OBTAIN IN 1G THE FXD-PT. VARIABLE, F1B08010 07403 0074 00 4 05515 TSX TESTD0,4 * WHICH SHOULD BE FOLLOWED BY ENDMK. F1B08020 07404 0500 00 0 05121 CLA L(1) PREPARE PROPER FORM OF SUBSCRIPT F1B08030 07405 0601 00 0 05562 STO E+3 COMBINATION AS F1B08040 07406 0601 00 0 05575 STO ERASE INPUT TO SUBSCRIPT ANALYSIS= F1B08050 07407 0500 00 0 05552 CLA 1G E+3 = 1ST COEFFICIENT, F1B08060 07410 0601 00 0 05563 STO E+4 E+4 = 1ST SUBSCRIPT VARIABLE, F1B08070 07411 0600 00 0 05570 STZ E+9 E+9 = ADDEND OF SUBSCRIPT, F1B08080 07412 0074 00 4 07007 TSX CSA000,4 * DIMCTR = DIMENSION OF VARIABLE. F1B08090 07413 0500 00 0 05557 CLA E OUTPUT FROM CSA IS FOUND IN F1B08100 07414 0771 00 0 00030 ARS 24 E = I--TAUTAG (GENERAL TAG) 1-11. F1B08110 07415 0601 00 0 05553 STO 2G ADJUST AND SAVE FOR COMP. INSTR. F1B08120 07416 0074 00 4 04251 TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= F1B08130 07417 0 06275 0 05547 PZE 1C+2,,L(TRA) LOC,,OP-DEC F1B08140 07420 0 05553 0 05120 PZE L(0),,2G ADR,,RA-TAG F1B08150 C0200= ENTRY POINT USED BY C0400,C1000. F1B08160 07421 0074 00 1 04405 C0202 TSX TET00,1 * GO TO TET TO ENTER 1C AND 1C+1 F1B08170 07422 0 00000 0 00002 PZE 2 INTO TIFGO TABLE (TABLE 2). F1B08180 07423 1 01553 0 06323 CTRAD TXI PASS2,0,TRADMX * EXIT TO PROCESS NEXT STATEMENT. F1B08190 END OF PROGRAM C0200. F1B08200 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1B08210 F1B08220 C0300/ CALLS= ARITH,C0190,C0390,TEST..,DIAG,C0180,TET00. F1B08230 C0300 PROCESSES IF STATEMENTS. F1B08240 07424 -0500 00 0 06204 C0300 CAL MINUS0 SET SIGN OF F1B08250 07425 -0602 00 0 05545 ORS 1C 1C TO MINUS. F1B08260 07426 0074 00 4 05250 TSX C0190,4 * OBTAIN IN AC THE 1ST NB CHAR (I). F1B08270 BINARY CARD NO. 9F140034 07427 0560 00 0 06131 LDQ L(X) REPLACE THE CHARACTER I F1B08280 07430 0074 00 4 05236 TSX C0390,4 * WITH THE CHARACTER X. F1B08290 07431 0560 00 0 05104 LDQ TEN REPLACE THE CHARACTER F F1B08300 07432 0074 00 4 05236 TSX C0390,4 * WITH THE CHARACTER 001010. F1B08310 07433 0074 00 4 05521 TSX TESTE0,4 * IF NOT LPAREN -- THEN ERROR. F1B08320 07434 0560 00 0 05111 LDQ EQUAL REPLACE THE CHARACTER LPAREN F1B08330 07435 0074 00 4 05236 TSX C0390,4 * WITH THE CHARACTER EQUAL. F1B08340 07436 0534 00 2 05121 LXA L(1),2 SET XR2 FOR COUNTING PARENTHESES. F1B08350 07437 0560 00 0 05147 LDQ IFSYM2 SET LEFT+2 TO INTERNAL QUASI-ARITHMETIC IF F1B08360 07440 -0600 00 0 05610 STQ LEFT+2 SYMBOL FOR DIAGNOSTIC IN CASE OF NEXT CALL.F1B08370 07441 0020 00 0 07443 TRA *+2 THEN F1B08380 07442 0074 00 4 05250 C0302 TSX C0190,4 * MAKE SURE THAT NEXT NB CHARACTER F1B08390 07443 0340 00 0 05105 CAS ENDMK IS NOT AN ENDMARK. F1B08400 07444 0074 00 4 04234 TSX MRTN77,4 *CHARACTER GREATER THAN 77 OCTAL, IMPOSS. F1B08410 07445 0074 00 4 04504 ER0034 TSX DIAG,4 * PROGRAM ERROR, GO TO DIAGNOSTIC. F1B08420 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 69 * SECTION ONE PASS TWO * RECORD 9F14 * 07446 0340 00 0 05106 CAS OPEN IF IT IS A LPAREN, F1B08430 07447 1 00000 0 07451 TXI C0303,,0 THEN ADD 1 TO PAREN COUNT, AND F1B08440 07450 1 00001 2 07442 TXI C0302,2,1 GO EXAMINE NEXT CHARACTER. F1B08450 07451 0402 00 0 05110 C0303 SUB CLOS IF IT IS A RPAREN, F1B08460 07452 -0100 00 0 07442 TNZ C0302 THEN TEST PAREN COUNT, AND IF IT F1B08470 07453 2 00001 2 07442 TIX C0302,2,1 CAN NOT BE REDUCED,MATE IS FOUND. F1B08480 07454 0560 00 0 05105 LDQ ENDMK SO REPLACE THE CHARACTER RPAREN F1B08490 BINARY CARD NO. 9F140035 07455 0074 00 4 05236 TSX C0390,4 * WITH THE CHARACTER ENDMK. F1B08500 07456 0074 00 2 05215 TSX C0180,2 * OBTAIN BINARY BETA1. F1B08510 07457 0074 00 4 05531 TSX TESTG0,4 * THIS SHOULD BE FOLLOWED BY A COMMA.F1B08520 07460 0500 00 0 05552 CLA 1G MOVE BETA1 F1B08530 07461 0621 00 0 05545 STA 1C TO ADDRESS OF 1C. F1B08540 07462 0074 00 2 05214 TSX C0180X,2 * OBTAIN BINARY BETA2. F1B08550 07463 0074 00 4 05531 TSX TESTG0,4 * THIS SHOULD BE FOLLOWED BY A COMMA.F1B08560 07464 0500 00 0 05552 CLA 1G MOVE BETA2 F1B08570 07465 0767 00 0 00022 ALS 18 TO DECR PART F1B08580 07466 0601 00 0 05546 STO 1C+1 OF 1C+1. F1B08590 07467 0074 00 2 05214 TSX C0180X,2 * OBTAIN BINARY BETA3. F1B08600 07470 0074 00 4 05515 TSX TESTD0,4 * THIS SHOULD BE FOLLOWED BY ENDMARK.F1B08610 07471 0500 00 0 05552 CLA 1G MOVE BETA3 F1B08620 07472 0621 00 0 05546 STA 1C+1 TO ADDRESS OF 1C+1. F1B08630 07473 1 00000 0 10773 TXI ARITH,,0 EXIT TO ARITHMETIC. F1B08640 END OF PROGRAM C0300. F1B08650 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1B08660 F1B08670 C0400/ CALLS=C0180X,TEST..,CIT00,C0200. F1B08680 C0400 PROCESSES IF (SENSE SWITCH STATEMENTS. F1B08690 07474 0500 00 0 06135 C0400 CLA L(112) FOR SENSE SWITCH F1B08700 07475 0601 00 0 05555 STO 1H SET 1H TO 112, AND PREPARE TO F1B08710 07476 0500 00 0 06254 CLA L(PSE) SET 2H TO PSE. F1B08720 07477 0601 00 0 22236 C0401 STO 2H SET 2H FOR SENSE SWITCH OR LIGHT. F1B08740 07500 0074 00 2 05214 TSX C0180X,2 * OBTAIN BINARY SENSE SWITCH OR LITE.F1B08750 07501 0074 00 4 05525 TSX TESTF0,4 * THIS SHOULD BE FOLLOWED BY RPAREN. F1B08760 ENTRY FROM C0501 (IF SENSE LIGHT) ROUTINE (30)F1B08769 07502 0500 00 0 05123 CLA L(3) STORE 3 F1B08770 BINARY CARD NO. 9F140036 07503 0621 00 0 05545 STA 1C IN ADDRESS OF 1C. F1B08780 07504 0500 00 0 05552 CLA 1G ADD THE PROPER INCREMENT TO THE F1B08790 07505 0400 00 0 05555 ADD 1H NUMBER OF SENSE SWITCH OR LIGHT, F1B08800 07506 0767 00 0 00022 ALS 18 AND ADJUST TO THE DECREMENT. F1B08810 C0402= ENTRY POINT USED BY C0600. F1B08820 07507 0601 00 0 05550 C0402 STO 1C+3 SET 1C+3 FOR CIT ENTRY. F1B08830 07510 -0534 00 4 03734 LXD EIFNO,4 PLACE THE CURRENT INTERNAL FORMULA F1B08840 07511 -0754 00 4 00000 PXD ,4 NUMBER IN THE DECREMENT OF F1B08850 07512 0601 00 0 05547 STO 1C+2 1C+2 FOR FUTURE CIT ENTRY. F1B08860 07513 0074 00 2 05214 TSX C0180X,2 * OBTAIN BINARY BETA1. F1B08870 07514 0074 00 4 05531 TSX TESTG0,4 * WHICH SHOULD BE FOLLOWED BY COMMA. F1B08880 07515 0500 00 0 05552 CLA 1G BRING UP, F1B08890 07516 0767 00 0 00022 ALS 18 ADJUST AND F1B08900 07517 0601 00 0 05546 STO 1C+1 STORE BETA1 IN DECR OF 1C+1. F1B08910 07520 0074 00 2 05214 TSX C0180X,2 * OBTAIN BINARY BETA2. F1B08920 07521 0074 00 4 05515 TSX TESTD0,4 * WHICH SHOULD BE FOLLOWED BY ENDMK. F1B08930 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 70 * SECTION ONE PASS TWO * RECORD 9F14 * 07522 0500 00 0 05552 CLA 1G BRING UP AND F1B08940 07523 0621 00 0 05546 STA 1C+1 STORE BETA2 IN ADDR OF 1C+1. F1B08950 07524 0074 00 4 04251 TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= F1B08960 07525 0 22236 0 05547 PZE 1C+2,,2H LOC,,OP-DEC F1B08970 07526 0 05550 0 05120 PZE L(0),,1C+3 ADR,,RA-TAG F1B08980 07527 1 00000 0 07421 TXI C0202,,0 MAKE TIFGO ENTRY, AND RETURN TO CA.F1B08990 END OF PROGRAM C0400. F1B09000 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1B09010 F1B09020 C0500/ USES=C0400. F1B09030 C0500 PROCESSES IF (SENSE LIGHT STATEMENTS. F1B09040 07530 0500 00 0 06134 C0500 CLA L(96) STORE 96 IN F1B09050 BINARY CARD NO. 9F140037 07531 0601 00 0 05555 STO 1H 1H AND F1B09060 07532 0500 00 0 06252 CLA L(MSE) OBTAIN (MSE000) IN ACC. F1B09070 07533 0020 00 0 21020 TRA C0501 CHECK LIGHT NUMBER (30)F1B09080 END OF PROGRAM C0500. F1B09090 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1B09100 F1B09110 C0600/ USES=C0400. F1B09120 C0600 PROCESSES IF DIVIDE CHECK STATEMENTS. F1B09130 07534 0500 00 0 06234 C0600 CLA L(DCT) STORE (DCT000) F1B09140 07535 0601 00 0 22236 STO 2H IN 2H F1B09150 07536 0500 00 0 05124 CLA L(4) AND PICK UP 4 TO SET 1C. F1B09160 C0601= ENTRY POINT USED BY C0700. F1B09170 07537 0621 00 0 05545 C0601 STA 1C SET 1C FOR FUTURE TIFGO ENTRY. F1B09180 07540 -0754 00 0 00000 PXD ,0 CLEAR THE AC, F1B09190 07541 0020 00 0 07507 TRA C0402 * AND CONTINUE BY USING PROGRAM C04. F1B09200 END OF PROGRAM C0600. F1B09210 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1B09220 F1B09230 C0700/ USES C0600. CALLS=CIT00,JIF. F1B09240 C0700 PROCESSES IF AC (OR MQ) OVERFLOW STATEMENTS. F1B09250 07542 0074 00 4 04251 C0700 TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= F1B09260 07543 0 06225 0 05545 PZE 1C,,L(CAL) LOC,,OP-DEC F1B09270 07544 0 06210 0 06171 PZE P(,,MI205 ADR,,RA-TAG F1B09280 07545 0074 00 4 04251 TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= F1B09290 07546 0 06267 0 05120 PZE L(0),,L(STZ) LOC,,OP-DEC F1B09300 07547 0 06210 0 06171 PZE P(,,MI205 ADR,,RA-TAG F1B09310 07550 0074 00 4 06476 TSX JIF,4 * GO JUMP IFN, AND F1B09320 07551 0601 00 0 05545 STO 1C SET 1C. F1B09330 07552 0500 00 0 06274 CLA L(TNZ) PREPARE TO COMPILE= F1B09340 07553 0601 00 0 22236 STO 2H IFN TNZ BETA1. F1B09350 07554 0500 00 0 05125 CLA L(5) PICKUP 5 TO SET 1C, AND F1B09360 07555 0020 00 0 07537 TRA C0601 * CONTINUE BY USING PROGRAM C06. F1B09370 END OF PROGRAM C0700. F1B09380 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1B09390 F1B09400 C0900/ CALLS=C0190,CIT00,DIAG. F1B09410 C0900 PROCESSES PAUSE STATEMENTS. F1B09420 07556 -0534 00 2 07563 C0900 LXD C090X,2 SET XR2 FOR EXIT TO RDXQ. F1B09430 C0901= ENTRY POINT USED BY C1300. F1B09440 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 71 * SECTION ONE PASS TWO * RECORD 9F14 * BINARY CARD NO. 9F140038 07557 0600 00 0 05552 C0901 STZ 1G CLEAR 1G. F1B09450 07560 0074 00 4 05250 C0902 TSX C0190,4 * TEST NEXT NON-BLANK CHARACTER F1B09460 07561 0340 00 0 05105 CAS ENDMK FOR END OF STATEMENT MARK. F1B09470 07562 0074 00 4 04234 TSX MRTN77,4 *CHARACTER GREATER THAN 77 OCTAL, IMPOSS. F1B09480 07563 1 71456 0 07573 C090X TXI C0903,,-PASS2+1 IF NOT END OF STATEMENT, THEN F1B09490 07564 0340 00 0 05127 CAS L(7) TEST WHETHER DIGIT EXCEEDS 7, F1B09500 07565 0074 00 4 04504 ER1005 TSX DIAG,4 * IF SO, GO CALL DIAGNOSTIC. F1B09510 07566 0761 00 0 00000 NOP IF NOT, F1B09520 07567 0400 00 0 05552 ADD 1G ADD 1G TO DIGIT, F1B09530 07570 0767 00 0 00003 ALS 3 MULTIPLY BY 8, F1B09540 07571 0601 00 0 05552 STO 1G AND STORE BACK IN 1G. F1B09550 07572 1 00000 0 07560 TXI C0902,,0 CONTINUE UNTIL END OF SEGMENT. F1B09560 07573 0500 00 0 05552 C0903 CLA 1G THEN PLACE OCTAL ALPHA F1B09570 07574 0767 00 0 00017 ALS 15 IN THE DECREMENT F1B09580 07575 -0320 00 0 05154 ANA 1BAR ONLY F1B09590 07576 0601 00 0 05546 STO 1C+1 OF 1C+1,WITH ZEROS ELSEWHERE. F1B09600 07577 0074 00 4 04251 TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= F1B09610 07600 0 06243 0 05545 PZE 1C,,L(HPR) LOC,,OP-DEC F1B09620 07601 0 05546 0 05120 PZE L(0),,1C+1 ADR,,RA-TAG F1B09630 07602 0020 00 2 00001 TRA 1,2 * EXIT TO CA000, OR TO C1300. F1B09640 END OF PROGRAM C0900. F1B09650 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1B09660 F1B09670 C1000/ USES=C0200. CALLS=GETIFN,C0190,C0180,DIAG,C0160,TEST..F1B09680 CIT00. F1B09690 C1000 PROCESSES ASSIGN STATEMENTS. F1B09700 07603 0074 00 4 06472 C1000 TSX GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C F1B09710 07604 0601 00 0 05547 STO 1C+2 AND 1C+2,WITH ZEROS ELSEWHERE. F1B09720 BINARY CARD NO. 9F140039 07605 0500 00 0 05126 CLA L(6) STORE 6 IN F1B09730 07606 0621 00 0 05545 STA 1C ADDRESS OF 1C. F1B09740 07607 0074 00 2 05214 TSX C0180X,2 * FORM IN 1G THE BINARY OF ALPHA. F1B09750 07610 0402 00 0 06130 SUB L(T) IF NEXT CHARACTER IS NOT T, THEN F1B09760 07611 0100 00 0 07613 TZE *+2 THIS IS AN F1B09770 07612 0074 00 4 04504 ER0035 TSX DIAG,4 * ERROR - GO TO THE DIAGNOSTIC. F1B09780 07613 0074 00 4 05250 TSX C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER F1B09790 07614 0402 00 0 05143 SUB L(O) AND IF IT IS NOT O, THEN F1B09800 07615 -0100 00 0 07612 TNZ *-3 ERROR, GO TO DIAGNOSTIC. F1B09810 07616 0500 00 0 05552 CLA 1G PUT BIN EQUIV OF ALPHA F1B09820 07617 0601 00 0 05546 STO 1C+1 IN ADDRESS OF 1C+1. F1B09830 07620 0074 00 4 05250 TSX C0190,4 * PROCEED TO ASSEMBLE IN 1G F1B09840 07621 0074 00 1 05466 TSX TESTFX+1,1 TEST FOR FIXED OR FLOATING POINT. F1B09850 07622 0020 00 0 10736 TRA ER0055 FLOATING POINT RETURN IS ERROR. F1B09860 07623 0074 00 2 05162 TSX C0160,2 * THE SYMBOL N. F1B09870 07624 0074 00 4 05515 TSX TESTD0,4 * THE NEXT NB CHAR SHOULD BE ENDMK. F1B09880 07625 0074 00 4 04251 TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= F1B09890 07626 0 06227 0 05547 PZE 1C+2,,L(CLA) LOC,,OP-DEC F1B09900 07627 0 05120 0 05120 PZE L(0),,L(0) ADR,,RA-TAG F1B09910 07630 0074 00 4 04251 TSX CIT00,4 * STORE SECOND COMPILED INSTRUCTION= F1B09920 07631 0 06264 0 05120 PZE L(0),,L(STO) LOC,,OP-DEC F1B09930 07632 0 05120 0 05552 PZE 1G,,L(0) ADR,,RA-TAG F1B09940 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 72 * SECTION ONE PASS TWO * RECORD 9F14 * BINARY CARD NO. 9F140040 07633 0020 00 0 07421 TRA C0202 * CONTINUE BY USING PROGRAM C02. F1B09950 END OF PROGRAM C1000. F1B09960 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1B09970 F1B09980 C1100/ CALLS=C0180X,TEST..,CIT00. F1B09990 C1100 PROCESSES SENSE LIGHT STATEMENTS. F1B10000 07634 0074 00 2 05214 C1100 TSX C0180X,2 * FORM IN 1G THE BINARY OF SLN. F1B10010 07635 0074 00 4 05515 TSX TESTD0,4 * THE NEXT NB CHARACTER SHD BE ENDMK.F1B10020 07636 0500 00 0 05552 CLA 1G STORE SENSE LIGHT NUMBER F1B10030 07637 0400 00 0 06134 ADD L(96) PLUS 96 F1B10040 07640 0767 00 0 00022 ALS 18 IN DECR F1B10050 07641 0601 00 0 05552 STO 1G OF 1G. F1B10060 07642 0074 00 4 04251 TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= F1B10070 07643 0 06254 0 05545 PZE 1C,,L(PSE) LOC,,OP-DEC F1B10080 07644 0 05552 0 05120 PZE L(0),,1G ADR,,RA-TAG F1B10090 07645 0020 00 0 06323 TRA PASS2 * EXIT TO PASS2. F1B10100 END OF PROGRAM C1100. F1B10110 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1B10120 F1B10130 C1300/ CALLS=C0901,TET00,CIT00. F1B10140 C1300 PROCESSES STOP STATEMENTS. F1B10150 07646 0074 00 1 04405 C1300 TSX TET00,1 * GO MAKE EIFNO ENTRY F1B10160 07647 0 00000 0 00017 PZE 15 IN TSTOP TABLE. F1B10170 07650 0074 00 2 07557 TSX C0901,2 * USE C0900 TO BEGIN PROCESSING. F1B10180 07651 0074 00 4 04251 TSX CIT00,4 * GO MAKE FOLLOWING CIT ENTRY= F1B10190 07652 0 06275 0 05120 PZE L(0),,L(TRA) LOC,,OP-DEC F1B10200 07653 0 05120 0 05545 PZE 1C,,L(0) ADR,,RA-TAG F1B10210 07654 0020 00 0 06323 TRA PASS2 * EXIT TO PASS2. F1B10220 END OF PROGRAM C1300. F1B10230 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1B10240 F1B10250 C1600/ CALLS=C0190,TEST..,GIF,BSS. F1B10260 C1600 PROCESSES CONTINUE STATEMENTS. F1B10270 07655 0074 00 4 05250 C1600 TSX C0190,4 * OBTAIN NEXT NBCHAR IN ACC. F1B10280 07656 0074 00 4 05515 TSX TESTD0,4 * CHARACTER SHOULD BE AN ENDMARK. F1B10290 07657 0074 00 4 06501 TSX GIF,4 * GET INTERNAL FORMULA NUMBER, AND F1B10300 07660 0074 00 2 06426 TSX BSS,2 * GO COMPILE= IFN BSS 0. F1B10310 BINARY CARD NO. 9F140041 07661 0020 00 0 06323 TRA PASS2 * EXIT TO PASS2. F1B10320 END OF PROGRAM C1600. F1B10330 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1B10340 F1B10350 C3200/ CALLS=C0190,TEST..,JIFGIF,DIAG,CIT00. F1B10360 C3200 PROCESSES RETURN STATEMENTS. F1B10370 07662 0074 00 4 05250 C3200 TSX C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER, F1B10380 07663 0074 00 4 05515 TSX TESTD0,4 * WHICH SHOULD BE AN ENDMARK. F1B10390 07664 0074 00 4 06476 TSX JIF,4 * SET SL TO ALPHA+1. F1B10400 07665 0074 00 1 04405 TSX TET00,1 ENTER THIS IFN IN TSTOPS TABLE. F1B10410 07666 0 00000 0 00017 PZE 15 F1B10420 07667 -0534 00 4 04054 LXD SBDFCN,4 IS THIS RETURN IN A SUBPROGRAM. F1B10430 07670 3 00000 4 07672 TXH *+2,4,0 * YES. F1B10440 07671 0074 00 4 04504 ER0039 TSX DIAG,4 * ERROR - GO TO THE DIAGNOSTIC. F1B10450 07672 0500 00 0 05603 CLA FSNAME UNLESS FUNCTION NAME IS ZERO, F1B10460 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 73 * SECTION ONE PASS TWO * RECORD 9F14 * 07673 0100 00 0 07741 TZE C3201 THEN F1B10470 DOUBLE PRECISION - COMPLEX ARITHMETIC PATCH. F1B10480 07674 0500 00 0 04521 CLA MODECL GET SPECIAL MODE INDICATOR, IF ANY. F1B10490 07675 0600 00 0 04521 STZ MODECL CLEAR INDICATOR. F1B10500 07676 -0520 00 0 05603 NZT FSNAME TEST WHETHER WITHIN A FUNCTION SUBPROGRAM. F1B10510 07677 0020 00 0 07741 TRA C3201 SUBROUTINE TYPE SUBPROGRAM F1B10520 07700 0340 00 0 05134 CAS L(B) TEST FOR BOOLEAN F1B10530 07701 0020 00 0 07710 TRA C3204 NOT BOOLEAN, EXIT F1B10540 07702 0020 00 0 07704 TRA *+2 BOOLEAN F1B10550 07703 0020 00 0 07710 TRA C3204 NOT BOOLEAN, EXIT F1B10560 07704 0074 00 4 04251 TSX CIT00,4 COMPILE F1B10570 07705 0 06225 0 05545 PZE 1C,,L(CAL) CAL FSNAME F1B10580 07706 0 05120 0 05603 PZE FSNAME,,L(0) F1B10590 BINARY CARD NO. 9F140042 07707 0020 00 0 07740 TRA C3201-1 F1B10600 07710 0340 00 0 05136 C3204 CAS L(D) TEST FOR DOUBLE PRECISION. F1B10610 07711 0020 00 0 07713 TRA *+2 F1B10620 07712 0020 00 0 07715 TRA C3203 YES F1B10630 07713 0402 00 0 05141 SUB L(I) TEST FOR COMPLEX ARITHMETIC. F1B10640 07714 -0100 00 0 07735 TNZ C3202 NEITHER. F1B10650 07715 0500 00 0 05545 C3203 CLA 1C SET UP AND F1B10660 07716 0601 00 0 65441 STO CW COMPILE F1B10670 07717 -0500 00 0 05603 CORR03 CAL FSNAME F1B10680 07720 0602 00 0 65443 SLW CW+2 F1B10690 07721 0602 00 0 05561 SLW E+2 F1B10700 07722 -0765 00 0 00036 LGR 30 F1B10710 07723 -0340 00 0 05140 LAS L(H) F1B10720 07724 -0340 00 0 05143 LAS L(O) F1B10730 07725 0020 00 0 07730 TRA *+3 FLOATING F1B10740 07726 0020 00 0 07730 TRA *+2 DITTO F1B10750 07727 0020 00 0 07735 TRA C3202 FIXED TREATED SAME AS NORMAL FORTRAN F1B10760 07730 0600 00 0 65444 STZ CW+3 F1B10770 07731 0502 00 0 05152 CLS 2E18 F1B10780 07732 0601 00 0 20325 STO DPCW F1B10790 07733 0074 00 2 20052 TSX CPDCLA,2 COMPILE SEQUENCE FOR DP AND CA CLA F1B10800 07734 0020 00 0 07740 TRA C3201-1 F1B10810 F1B10820 BINARY CARD NO. 9F140043 07735 0074 00 4 04251 C3202 TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= F1B10830 07736 0 06227 0 05545 PZE 1C,,L(CLA) LOC,,OP-DEC F1B10840 07737 0 05120 0 05603 PZE FSNAME,,L(0) ADR,,RA-TAG F1B10850 07740 0600 00 0 05545 STZ 1C CLEAR 1C, AND F1B10860 07741 0074 00 4 04251 C3201 TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= F1B10870 07742 0 06250 0 05545 PZE 1C,,L(LXD) LOC,,OP-DEC F1B10880 07743 0 05121 0 06212 PZE DOLSGN,,L(1) ADR,,RA-TAG F1B10890 07744 0074 00 4 04251 TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= F1B10900 07745 0 06250 0 05120 PZE L(0),,L(LXD) LOC,,OP-DEC F1B10910 07746 0 06142 0 06212 PZE DOLSGN,,ABTAG2 ADR,,RA-TAG F1B10920 07747 0074 00 4 04251 TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= F1B10930 07750 0 06261 0 05120 PZE L(0),,L(QXD) LOC,,OP-DEC F1B10940 07751 0 06154 0 06212 PZE DOLSGN,,ABTAG3 ADR,,RA-TAG F1B10950 07752 0074 00 4 04251 TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= F1B10960 07753 0 06260 0 22255 PZE SL,,L(QPR) LOC,,OP-DEC F1B10970 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 74 * SECTION ONE PASS TWO * RECORD 9F14 * 07754 0 05160 0 05120 PZE L(0),,ARGCNT ADR,,RA-TAG F1B10980 07755 0074 00 4 04251 TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= F1B10990 07756 0 06275 0 05120 PZE L(0),,L(TRA) LOC,,OP-DEC F1B11000 07757 0 05120 0 22255 PZE SL,,L(0) ADR,,RA-TAG F1B11010 07760 0020 00 0 06323 TRA PASS2 * EXIT TO PASS2. F1B11020 END OF PROGRAM C3200. F1B11030 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1B11040 F1B11050 C3300/ CALLS=C0390,C0190X,C0190,TEST..,ARITH,SUBX00,TET00, F1B11060 GIF,SXD,LIB. F1B11070 C3300 PROCESSES CALL STATEMENTS. F1B11080 07761 0074 00 4 05250 C3300 TSX C0190,4 * IF 1ST CHARACTER OF NAME IS F1B11090 07762 0074 00 2 05162 TSX C0160,2 * COLLECT THE REST OF THE NAME, WHICHF1B11100 BINARY CARD NO. 9F140044 07763 0074 00 4 05507 TSX TESTC0,4 * SHD BE FOLLOWED BY LPAREN OR ENDMK.F1B11110 07764 0020 00 0 21000 TRA C3302 CHECK DIMENSION TABLE ENTRIES (29)F1B11120 07765 0074 00 4 05232 TSX C0190X,4 * PSEUDO-ARITHMETIC FORMULA (Z10=). F1B11130 07766 0074 00 4 05250 TSX C0190,4 * PICKUP THE CHARACTER C, F1B11140 07767 0560 00 0 06132 LDQ L(Z) AND F1B11150 07770 0074 00 4 05236 TSX C0390,4 * REPLACE C WITH Z. F1B11160 07771 0560 00 0 05104 LDQ TEN AND F1B11170 07772 0074 00 4 05236 TSX C0390,4 * REPLACE A WITH TEN. F1B11180 07773 0560 00 0 05111 LDQ EQUAL AND F1B11190 07774 0074 00 4 05236 TSX C0390,4 * REPLACE FIRST L WITH =. F1B11200 07775 0560 00 0 05115 LDQ 12Z AND F1B11210 07776 0074 00 4 05236 TSX C0390,4 * REPLACE SECOND L WITH +. F1B11220 07777 1 00000 0 10773 TXI ARITH,,0 THEN EXIT TO ARITHMETIC. F1B11230 10000 0074 00 4 06501 C3301 TSX GIF,4 * GET CURRENT IFN AND F1B11240 10001 0074 00 2 07205 TSX SXD,2 * COMPILE SXD 6)+4,4. F1B11250 10002 0074 00 4 06432 TSX LIB,4 * GO ENTER NAME IN CLOSUB, COMPILE= F1B11260 10003 0 06276 0 05120 PZE L(0),,L(TSX) LOC,,OP-DEC F1B11270 10004 0 05124 0 05552 PZE 1G,,L(4) ADR,,RA-TAG F1B11280 10005 0074 00 4 06437 TSX FLTR00,4 COMPILE FLOW TRACE CITS IF ACTIVATED. F1B11290 10006 0 06250 0 05120 PZE L(0),,L(LXD) THEN COMPILE LXD 6(+4,4 F1B11300 10007 0 06156 0 06172 PZE O(,,D4A4 F1B11310 10010 0020 00 0 06323 TRA PASS2 * EXIT TO PASS2. F1B11320 END OF PROGRAM C3300. F1B11330 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1B11340 F1B11350 F1B11360 F1B11370 END OF CONTROL STATEMENT PROCESSORS. F1B11380 F1B11390 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1B11400 F1B11410 PASS 2/3-PROCESS INPUT-OUTPUT STATEMENTS= F1B11420 F1B11430 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * F1B11440 F1B11450 READ INPUT TAPE N F1B11460 TSH / ENTRY FROM CLASSIFICATION. F1B11470 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 75 * SECTION ONE PASS TWO * RECORD 9F14 * BINARY CARD NO. 9F140045 10011 0074 00 4 10720 TSH TSX UNIT,4 * GO PROCESS UNIT DESIGNATION. F1B11480 10012 0774 00 4 10771 AXT (TSH),4 PICKUP FIRST TSX ADDRESS. F1B11490 HI / ENTRY FROM CSH. F1B11500 10013 0074 00 2 10673 HI TSX INPUT,2 * GO PROCESS CALLING SEQUENCE. F1B11510 10014 0074 00 1 10631 TSX FMTDSG,1 * GO PROCESS FORMAT DESIGNATION. F1B11520 10015 0774 00 4 10757 AXT (RTN),4 PICKUP FINAL TSX ADDRESS. F1B11530 10016 0020 00 0 10106 TRA SCAN * EXIT TO SCAN LIST. F1B11540 EXIT TSH. F1B11550 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * F1B11560 F1B11570 READ F1B11580 CSH / ENTRY FROM CLASSIFICATION. F1B11590 10017 0074 00 4 06501 CSH TSX GIF,4 * GO SET SYMBOLIC LOCATION. F1B11600 10020 0774 00 4 10752 AXT (CSH),4 PICKUP FIRST TSX ADDRESS. F1B11610 10021 0020 00 0 10013 TRA HI * CONTINUE ABOVE. F1B11620 EXIT CSH. F1B11630 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * F1B11640 F1B11650 WRITE OUTPUT TAPE N F1B11660 STH / ENTRY FROM CLASSIFICATION. F1B11670 10022 0074 00 4 10720 STH TSX UNIT,4 * GO PROCESS UNIT DESIGNATION. F1B11680 10023 0774 00 4 10767 AXT (STH),4 PICKUP FIRST TSX ADDRESS. F1B11690 HO / ENTRY FROM SPH, SCH. F1B11700 10024 0074 00 2 10676 HO TSX OUTPUT,2 * GO PROCESS CALLING SEQUENCE. F1B11710 10025 0074 00 1 10631 TSX FMTDSG,1 * GO PROCESS FORMAT DESIGNATION. F1B11720 10026 0774 00 4 10755 AXT (FIL),4 PICKUP FINAL TSX ADDRESS. F1B11730 10027 0020 00 0 10106 TRA SCAN * EXIT TO SCAN LIST. F1B11740 EXIT STH. F1B11750 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * F1B11760 F1B11770 PRINT F1B11780 SPH / ENTRY FROM CLASSIFICATION. F1B11790 10030 0074 00 4 06501 SPH TSX GIF,4 * GO SET SYMBOLIC LOCATION. F1B11800 10031 0774 00 4 10765 AXT (SPH),4 PICKUP FIRST TSX ADDRESS. F1B11810 10032 0020 00 0 10024 TRA HO * CONTINUE ABOVE. F1B11820 EXIT SPH. F1B11830 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * F1B11840 F1B11850 PUNCH F1B11860 SCH / ENTRY FROM CLASSIFICATION. F1B11870 10033 0074 00 4 06501 SCH TSX GIF,4 * GO SET SYMBOLIC LOCATION. F1B11880 10034 0774 00 4 10761 AXT (SCH),4 PICKUP FIRST TSX ADDRESS. F1B11890 10035 0020 00 0 10024 TRA HO * CONTINUE ABOVE. F1B11900 EXIT SCH. F1B11910 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * F1B11920 F1B11930 WRITE TAPE N F1B11940 STB / ENTRY FROM CLASSIFICATION. F1B11950 10036 0074 00 4 10720 STB TSX UNIT,4 * GO PROCESS UNIT DESIGNATION. F1B11960 BINARY CARD NO. 9F140046 10037 0774 00 4 10766 AXT (STB),4 PICKUP FIRST TSX ADDRESS. F1B11970 10040 0074 00 2 10676 TSX OUTPUT,2 * GO PROCESS CALLING SEQUENCE. F1B11980 10041 0774 00 4 10772 AXT (WLR),4 PICKUP FINAL TSX ADDRESS. F1B11990 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 76 * SECTION ONE PASS TWO * RECORD 9F14 * 10042 0020 00 0 10106 TRA SCAN * EXIT TO SCAN LIST. F1B12000 EXIT STB. F1B12010 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * F1B12020 F1B12030 READ TAPE N F1B12040 TSB / ENTRY FROM CLASSIFICATION. F1B12050 10043 0074 00 4 10720 TSB TSX UNIT,4 * GO PROCESS UNIT DESIGNATION. F1B12060 10044 0774 00 4 10770 AXT (TSB),4 PICKUP FIRST TSX ADDRESS. F1B12070 10045 0074 00 2 10673 TSX INPUT,2 * GO PROCESS CALLING SEQUENCE. F1B12080 10046 0774 00 4 10756 AXT (RLR),4 PICKUP FINAL TSX ADDRESS. F1B12090 10047 0020 00 0 10106 TRA SCAN * EXIT TO SCAN LIST. F1B12100 EXIT TSB. F1B12110 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * F1B12120 F1B12130 BACKSPACE N F1B12140 BST / ENTRY FROM CLASSIFICATION. F1B12150 10050 0074 00 4 10720 BST TSX UNIT,4 * GO PROCESS UNIT DESIGNATION. F1B12160 10051 0774 00 4 10751 AXT (BST),4 PICKUP FIRST TSX ADDRESS. F1B12170 TP / ENTRY FROM EFT,RWT. F1B12180 10052 0074 00 2 10707 TP TSX TAPE,2 * GO PROCESS CALLING SEQUENCE. F1B12190 10053 0020 00 0 10555 TRA FINI * EXIT TO FINISH. F1B12200 EXIT BST. F1B12210 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * F1B12220 F1B12230 ENDFILE N F1B12240 EFT / ENTRY FROM CLASSIFICATION. F1B12250 10054 0074 00 4 10720 EFT TSX UNIT,4 * GO PROCESS UNIT DESIGNATION. F1B12260 10055 0774 00 4 10754 AXT (EFT),4 PICKUP FIRST TSX ADDRESS. F1B12270 10056 0020 00 0 10052 TRA TP * CONTINUE ABOVE. F1B12280 EXIT EFT. F1B12290 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * F1B12300 F1B12310 REWIND N F1B12320 RWT / ENTRY FROM CLASSIFICATION. F1B12330 10057 0074 00 4 10720 RWT TSX UNIT,4 * GO PROCESS UNIT DESIGNATION. F1B12340 10060 0774 00 4 10760 AXT (RWT),4 PICKUP FIRST TSX ADDRESS. F1B12350 10061 0020 00 0 10052 TRA TP * CONTINUE ABOVE. F1B12360 EXIT RWT. F1B12370 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * F1B12380 F1B12390 WRITE DRUM N,J F1B12400 SDR / ENTRY FROM CLASSIFICATION. F1B12410 10062 0074 00 4 10720 SDR TSX UNIT,4 * GO PROCESS UNIT DESIGNATION. F1B12420 10063 0774 00 4 10762 AXT (SDR),4 PICKUP FIRST TSX ADDRESS. F1B12430 10064 0774 00 1 00005 AXT 5,1 PICKUP FORVAR DESIGNATION. F1B12440 DR / ENTRY FROM DRS. F1B12450 BINARY CARD NO. 9F140047 10065 -0500 00 0 05367 DR CAL TRA PICKUP DRUM-SWITCH DESIGNATION. F1B12460 10066 0074 00 2 10703 TSX DRUM,2 * GO PROCESS CALLING SEQUENCE. F1B12470 10067 -0500 00 0 05354 CAL NOP SET DRUM SWITCH F1B12480 10070 0622 00 0 10742 STD DSW IN UNIT. F1B12490 10071 0622 00 0 10724 STD ER2002 F1B12500 10072 0074 00 4 10720 TSX UNIT,4 * GO PROCESS DRUM ADDRESS. F1B12510 10073 -0500 00 0 10072 CAL *-1 RESET DRUM SWITCH F1B12520 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 77 * SECTION ONE PASS TWO * RECORD 9F14 * 10074 0622 00 0 10742 STD DSW IN UNIT. F1B12530 10075 0622 00 0 10724 STD ER2002 F1B12540 10076 0074 00 4 04251 TSX CIT00,4 * GO COMPILE LDA. F1B12550 10077 0 06244 0 05120 PZE L(0),,L(LDA) LOC,,OP-DEC F1B12560 10100 0 05120 0 05120 PZE L(0),,L(0) ADR,,RA-TAG F1B12570 10101 0020 00 0 10110 TRA LIST * EXIT TO SCAN LIST. F1B12580 EXIT SDR. F1B12590 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * F1B12600 F1B12610 READ DRUM N,J F1B12620 DRS / ENTRY FROM CLASSIFICATION. F1B12630 10102 0074 00 4 10720 DRS TSX UNIT,4 * GO PROCESS UNIT DESIGNATION. F1B12640 10103 0774 00 4 10753 AXT (DRS),4 PICKUP FIRST TSX ADDRESS. F1B12650 10104 0774 00 1 00006 AXT 6,1 PICKUP FORVAL DESIGNATION. F1B12660 10105 0020 00 0 10065 TRA DR * CONTINUE ABOVE. F1B12670 EXIT DRS. F1B12680 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * F1B12690 SCAN / ENTRY FROM TSH, STH, STB, TSB. F1B12700 10106 0634 00 4 10554 SCAN SXA END,4 SET FINAL TSX ADDRESS. F1B12710 10107 0074 00 2 06506 TSX LXD,2 * GO COMPILE LXD 6)+4,4. F1B12720 LIST / ENTRY FROM SDR. SWITCH SET DURING BEG SCAN. F1B12730 10110 0761 00 0 10550 LIST NOP ENDSW SWITCH (LIST / NO LIST). F1B12740 RSC / ENTRY FROM SPC. F1B12750 10111 0074 00 4 06476 RSC TSX JIF,4 * JUMP IFN AND SET SYMBOLIC LOC. F1B12760 10112 0774 00 4 62003 AXT TLDOS,4 RESET TEMPORARY F1B12770 BINARY CARD NO. 9F140048 10113 0634 00 4 63753 SXA TLINE,4 TABLE LINE COUNTER. F1B12780 10114 0600 00 0 62002 STZ DOLEV CLEAR DO LEVEL COUNTER. F1B12790 10115 0020 00 0 20663 TRA LSCP GO TO PATCH. $F1B12800 LSC / ENTRY FROM SPC. F1B12810 10116 0774 00 4 10156 LSC AXT LISTR,4 PREPARE FOR LIST SCAN. F1B12820 CXS / ENTRY FROM EQS, BEG. F1B12830 10117 0634 00 4 10130 CXS SXA CEXIT,4 SET CONTROL TRANSFER. F1B12840 NXS / ENTRY FROM LPR, SPC, CMA. F1B12850 10120 0774 00 2 00006 NXS AXT 6,2 RESET SYMBOL CHARACTER COUNT F1B12860 10121 -0634 00 2 10615 SXD CSJ,2 AND SHIFT COUNT. F1B12870 10122 0600 00 0 61402 STZ CHR-6 CLEAR SYMBOL BUFFER. F1B12880 10123 0600 00 0 61401 STZ SYM CLEAR SYMBOL WORKING STORAGE. F1B12890 NXC / ENTRY FROM CMA. F1B12900 10124 0074 00 4 05250 NXC TSX C0190,4 * EXAMINE NEXT NON-BLANK F1B12910 10125 0774 00 4 00012 AXT CTEST-ENDMK,4 CHARACTER. F1B12920 10126 -0340 00 4 05117 LAS CTEST,4 IF CONTROL F1B12930 10127 0020 00 0 10131 TRA *+2 PUNCTUATION, THEN F1B12940 10130 0020 00 4 00000 CEXIT TRA ..,4 * TAKE INDICATED TRANSFER. F1B12950 10131 2 00001 4 10126 TIX *-3,4,1 OTHERWISE, F1B12960 10132 -0534 00 4 10615 LXD CSJ,4 SAVE EACH F1B12970 10133 0601 00 4 61410 STO CHR,4 CHARACTER F1B12980 10134 2 00001 4 10140 TIX *+4,4,1 SEPARATELY, F1B12990 10135 -3 00044 2 10137 TXL *+2,2,36 AND UNLESS THERE ARE F1B13000 10136 0074 00 4 04504 ER0041 TSX DIAG,4 * MORE THAN SIX CHARACTERS, F1B13010 10137 1 77777 4 10141 TXI *+2,4,-1 ALSO F1B13020 10140 0767 00 2 00044 ALS 36,2 PACK F1B13030 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 78 * SECTION ONE PASS TWO * RECORD 9F14 * BINARY CARD NO. 9F140049 10141 -0634 00 4 10615 SXD CSJ,4 CHARACTERS F1B13040 10142 -0602 00 0 61401 ORS SYM INTO F1B13050 10143 1 00006 2 10124 TXI NXC,2,6 ONE WORD. F1B13060 END SCAN. F1B13070 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * F1B13080 LISTR/ CONTROL TRANSFERS FOR LIST SCAN = F1B13090 10144 0020 00 0 10544 TRA EMK * ENDMARK F1B13100 10145 0020 00 0 10156 TRA LPR * ( F1B13110 10146 0020 00 0 10372 TRA CMA * , F1B13120 10147 0020 00 0 10355 TRA RPR * ) F1B13130 10150 0020 00 0 10201 TRA EQSP * = (TEST FOR LEGALITY). $F1B13140 10151 0020 00 0 10155 TRA *+4 - (ILLEGAL CHARACTER IN I/O LIST). F1B13150 10152 0020 00 0 10155 TRA *+3 / (ILLEGAL CHARACTER IN I/O LIST). F1B13160 10153 0020 00 0 10155 TRA *+2 . (ILLEGAL CHARACTER IN I/O LIST). F1B13170 10154 0020 00 0 10155 TRA *+1 + (ILLEGAL CHARACTER IN I/O LIST). F1B13180 10155 0074 00 4 04504 ER0042 TSX DIAG,4 * * (ILLEGAL CHARACTER IN I/O LIST). F1B13190 10156 LISTR BSS 0 INDEXING ADDRESS FOR ABOVE LIST. F1B13200 END LISTR. F1B13210 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * F1B13220 LPR / ENTRY FROM LIST SCAN ON LEFT PARENTHESIS. F1B13230 10156 -0500 00 0 61401 LPR CAL SYM TEST FOR SUBSCRIPT OR DO NEST. F1B13240 10157 0100 00 0 10205 TZE LPRDO IF SUBSCRIPT, THEN F1B13250 10160 0074 00 4 10601 TSX TYP,4 * IF VARIABLE SYMBOL CONTAINS LESS F1B13260 10161 0020 00 0 10163 TRA *+2 THAN 6 CHARACTERS, ADD A BLANK. F1B13270 10162 0074 00 4 04504 ER0043 TSX DIAG,4 * ON CONSTANT RETURN, GO TO DIAG. F1B13280 10163 -0500 00 0 61401 CAL SYM MOVE SYMBOL F1B13290 10164 0602 00 0 05561 SLW E+2 FOR SUBSCRIPT PROCESSOR. F1B13300 10165 0602 00 0 61376 SLW SA SET SYMBOLIC ADDRESS. F1B13310 10166 0074 00 4 06573 TSX SS000,4 * GO SCAN AND PROCESS SUBSCRIPT. F1B13320 BINARY CARD NO. 9F140050 10167 0074 00 4 06512 TSX RA000,4 * GO COMPUTE RELATIVE ADDRESS. F1B13330 10170 0074 00 4 05250 LPR1 TSX C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER. F1B13340 10171 0340 00 0 05110 CAS CLOS AND IF IT IS F1B13350 10172 0020 00 0 10174 TRA *+2 EITHER A COMMA, F1B13360 10173 0020 00 0 10355 TRA RPR * OR AN ENDMARK, $F1B13370 10174 0074 00 4 05473 TSX TESTA0,4 * THEN F1B13380 10175 0020 00 0 10400 TRA CMA2 * EXIT TO CMA. F1B13390 10176 0 00000 0 00000 PZE (NOT USED) $F1B13400 10177 0 00000 0 00000 PZE (NOT USED) $F1B13410 10200 0 00000 0 00000 PZE (NOT USED) $F1B13420 EQSP / TEST WHETHER = LEGAL IN THIS CONTEXT. $F1B13430 10201 0534 00 4 62002 EQSP LXA DOLEV,4 USE OF = IS ILLEGAL IF NO LIST $F1B13440 10202 -3 00000 4 11303 TXL ER0063,4,0 ELEMENT HAS BEEN COLLECTED SINCE $F1B13450 10203 0020 00 0 10231 TRA EQS * LAST LEFT PARENTHESIS. $F1B13460 10204 0 00000 0 00000 PZE (NOT USED) $F1B13465 LPRDO / PROCESS DO NEST. F1B13470 10205 -0500 00 0 62002 LPRDO CAL DOLEV IF DOLEV F1B13480 10206 0100 00 0 10212 TZE *+4 IS NOT ZERO, THEN F1B13490 10207 0520 00 0 22255 ZET SL TEST FOR NULL DO. F1B13500 10210 0074 00 2 06426 TSX BSS,2 * COMPILE BSS TO ESTABLISH POSITION. F1B13510 10211 0074 00 4 06476 TSX JIF,4 * JUMP IFN, AND SET SYMBOLIC LOC. F1B13520 10212 -0534 00 4 62002 LXD DOLEV,4 INCREASE THE C(DOLEV D) F1B13530 10213 1 00001 4 10214 TXI *+1,4,1 BY 1, AND F1B13540 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 79 * SECTION ONE PASS TWO * RECORD 9F14 * 10214 -0754 00 4 00000 PXD ,4 SET THE C(DOLEV A) F1B13550 BINARY CARD NO. 9F140051 10215 0602 00 0 62002 SLW DOLEV TO ZERO. F1B13560 10216 -0500 00 0 63753 CAL TLINE NOTE AT F1B13570 10217 0621 00 0 10224 STA *+5 THIS LEVEL F1B13580 10220 0601 00 4 62002 STO DOLEV,4 THE LOCATION IN TLDO F1B13590 10221 0400 00 0 05125 ADD L(5) OF THIS DO F1B13600 10222 0621 00 0 63753 STA TLINE AND INCREASE TLINE COUNT. F1B13610 10223 0502 00 0 06303 CLS TL MOVE -(0(IFN)0(248)) INTO THE F1B13620 10224 0601 00 0 00000 STO .. LOCATION WORD OF CURRENT TEMP DO. F1B13630 10225 0074 00 4 06476 TSX JIF,4 * GO JUMP IFN, AND SET SL AND TL. F1B13640 10226 -0534 00 4 62002 LXD DOLEV,4 IF 3 OR FEWER LEVELS IN LIST DO, F1B13650 10227 -3 00003 4 10120 TXL NXS,4,3 * RETURN TO LIST SCAN. F1B13660 10230 0074 00 4 04504 ER0044 TSX DIAG,4 * OTHERWISE, GO TO DIAGNOSTIC. F1B13670 END LPR. F1B13680 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * F1B13690 EQS / ENTRY FROM LIST SCAN ON EQUAL SIGN. F1B13700 10231 -0534 00 4 62002 EQS LXD DOLEV,4 TEST THE LEGALITY OF EQUAL SIGN, F1B13710 10232 3 00000 4 10234 TXH *+2,4,0 AND GO TO DIAG ON THE ATTEMPT TO F1B13720 10233 0074 00 4 04504 ER0045 TSX DIAG,4 * SPECIFY SUBSCRIPT RANGE WITHOUT (. F1B13730 10234 -0500 00 4 62002 CAL DOLEV,4 INITIALIZE SPECIFICATION F1B13740 10235 0621 00 0 10311 STA SPC2 OF GENERATED DO F1B13750 10236 0621 00 0 10324 STA SPC5 AT CURRENT LEVEL. F1B13760 10237 0400 00 0 05121 ADD L(1) PREPARE TO ENTER FORMULA NUMBERS F1B13770 10240 0621 00 0 10253 STA EQS1 IN LOCATION WORD, SUBSCRIPT IN F1B13780 10241 0400 00 0 05124 ADD L(4) SYMBOL WORD, AND SUBSCRIPT SPECS F1B13790 10242 0621 00 0 10313 STA SPC3 IN TEMPDO ENTRY. F1B13800 BINARY CARD NO. 9F140052 10243 0774 00 4 00003 AXT 3,4 PREPARE TO COUNT THE F1B13810 10244 0634 00 4 10301 SXA NSJ,4 NUMBER OF SPECIFICATIONS. F1B13820 10245 -0500 00 0 61401 CAL SYM OBTAIN SUBSCRIPT F1B13830 10246 3 00044 2 10253 TXH EQS1,2,36 FOR THIS DO, AND F1B13840 10247 -0754 00 0 00000 PXD ,0 STORE IN PROPER F1B13850 10250 0560 00 0 05155 LDQ BLANKS LINE OF TEMPORARY F1B13860 10251 -0763 00 2 00052 LGL 42,2 .. F1B13870 10252 -0501 00 0 61401 ORA SYM LIST DO TABLE. F1B13880 10253 0602 00 0 00000 EQS1 SLW .. (SUBSCRIPT SYMBOL WORD) F1B13890 10254 -0754 00 0 00000 PXD ,0 CLEAR AC. F1B13900 10255 0560 00 0 61401 LDQ SYM GET SUBSCRIPT SYMBOL. F1B13910 10256 -0763 00 0 00006 LGL 6 SHIFT FIRST CHARACTER INTO AC. F1B13920 10257 0074 00 1 05466 TSX TESTFX+1,1 TEST FOR FIXED POINT BEGINNING. F1B13930 10260 0020 00 0 07305 TRA ER2001 *GO TO DIAGNOSTIC, NAME IS FLOATING POINT. F1B13940 10261 0774 00 4 10275 AXT SPCTR,4 SET CONTROL TRANSFER FOR F1B13950 10262 0020 00 0 10117 TRA CXS * SPECIFICATION SCAN. F1B13960 EXIT EQS. F1B13970 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * F1B13980 SPCTR / CONTROL TRANSFERS FOR SPECIFICATION SCAN = F1B13990 10263 0074 00 4 04504 ER0046 TSX DIAG,4 * 77(ILLEGAL IN CONTROL FOR LIST DO).F1B14000 10264 0020 00 0 10274 TRA *+8 ( (ILLEGAL IN CONTROL FOR LIST DO).F1B14010 10265 0020 00 0 10277 TRA SPC1 * , F1B14020 10266 0020 00 0 10275 TRA SPC * ) F1B14030 10267 0020 00 0 10274 TRA *+5 = (ILLEGAL IN CONTROL FOR LIST DO).F1B14040 10270 0020 00 0 10274 TRA *+4 - (ILLEGAL IN CONTROL FOR LIST DO).F1B14050 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 80 * SECTION ONE PASS TWO * RECORD 9F14 * BINARY CARD NO. 9F140053 10271 0020 00 0 10274 TRA *+3 / (ILLEGAL IN CONTROL FOR LIST DO).F1B14060 10272 0020 00 0 10274 TRA *+2 . (ILLEGAL IN CONTROL FOR LIST DO).F1B14070 10273 0020 00 0 10274 TRA *+1 + (ILLEGAL IN CONTROL FOR LIST DO).F1B14080 10274 0074 00 4 04504 ER0047 TSX DIAG,4 * * (ILLEGAL IN CONTROL FOR LIST DO).F1B14090 10275 SPCTR BSS 0 INDEXING ADDRESS FOR ABOVE LIST. F1B14100 END SPCTR. F1B14110 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * F1B14120 SPC / ENTRY FROM SPECIFICATION SCAN ON RIGHT PARENTHESIS. F1B14130 10275 -0500 00 0 10316 SPC CAL SPC4 PREPARE FOR END OF SPECIFICATION. F1B14140 10276 0601 00 0 10316 STO SPC4 SET SPC4 OP-SWITCH TO NOP CASE. F1B14150 SPC1 / ENTRY FROM SPECIFICATION SCAN ON COMMA. F1B14160 10277 0074 00 4 10601 SPC1 TSX TYP,4 * GO TEST TYPE OF SUBSCRIPT SPEC. F1B14170 10300 0020 00 0 10303 TRA *+3 IF FIXED POINT CONSTANT, F1B14180 10301 0774 00 4 00000 NSJ AXT ..,4 PICKUP SPECIFICATION COUNT, F1B14190 10302 0020 00 0 10313 TRA SPC3 AND GO ENTER CONSTANT IN TABLE. F1B14200 10303 0534 00 4 10301 LXA NSJ,4 OTHERWISE, PICKUP SPEC COUNT, F1B14210 10304 -0500 00 0 61402 CAL CHR-6 TEST VARIABLE NAME FOR FIXED POINT F1B14220 10305 0074 00 1 05466 TSX TESTFX+1,1 BEGINNING. F1B14230 10306 0020 00 0 07305 TRA ER2001 *BEGINS WITH FLOATING CHARACTER. F1B14240 10307 -0500 00 0 06141 CAL 2E17 AND IF VARIABLE, NOTE BY F1B14250 10310 0771 00 4 00003 ARS 3,4 PLACING BIT IN TAG FIELD F1B14260 10311 -0602 00 0 00000 SPC2 ORS .. OF TABLE ENTRY. F1B14270 10312 -0500 00 0 61401 CAL SYM PICKUP VARIABLE SYMBOL AND F1B14280 10313 0602 00 4 00000 SPC3 SLW ..,4 ENTER N SUB J IN TABLE. F1B14290 10314 -2 00001 4 10321 TNX *+5,4,1 REDUCE J. F1B14300 10315 0634 00 4 10301 SXA NSJ,4 SAVE SPEC COUNT, AND F1B14310 10316 -3 00000 0 10120 SPC4 TXL NXS,,0 EXIT TO SCAN, IF SWITCH IS TXL. F1B14320 BINARY CARD NO. 9F140054 10317 -0500 00 0 05121 CAL L(1) SET N SUB 3 = 1 IF NOT F1B14330 10320 0020 00 0 10313 TRA *-5 OTHERWISE SPECIFIED. F1B14340 10321 0502 00 0 10316 CLS SPC4 RESTORE SPC4 EXIT. F1B14350 10322 0601 00 0 10316 STO SPC4 (3 SPECS HAVE BEEN TREATED) F1B14360 10323 -0534 00 4 03734 LXD EIFNO,4 ALSO PICKUP IFN FOR BETA IN F1B14370 SPC5 / ENTRY FROM RPR. F1B14380 10324 0634 00 4 00000 SPC5 SXA ..,4 TEMPDO TABLE. F1B14390 10325 0534 00 4 62002 LXA DOLEV,4 IF DOLEV ADDRESS F1B14400 10326 -3 00000 4 10332 TXL *+4,4,0 IS NON-ZERO, F1B14410 10327 0520 00 0 22255 ZET SL COMPILE BSS 0 F1B14420 10330 0074 00 2 06426 TSX BSS,2 * TO ESTABLISH POSITION. F1B14430 10331 0074 00 4 06476 TSX JIF,4 * JUMP IFN AND SET SL AND TL. F1B14440 10332 -0534 00 4 62002 LXD DOLEV,4 DECREASE DOLEV D BY 1 TO F1B14450 10333 1 77777 4 10334 TXI *+1,4,-1 INDICATE A TREATED LEVEL. F1B14460 10334 0761 00 0 00000 NOP 0 IF NOT ZERO, THEN $F1B14470 10335 -0634 00 4 62002 SXD DOLEV,4 ALL LEVELS ARE NOT TREATED. $F1B14480 10336 3 00000 4 10116 TXH LSC,4,0 * RETURN TO SCAN NEXT LEVEL. F1B14490 10337 0534 00 2 63753 LXA TLINE,2 IF LEVEL IS ZERO, THEN F1B14500 10340 0634 00 2 10343 SXA *+3,2 ENTER GENERATED F1B14510 10341 1 15775 2 10342 TXI *+1,2,-TLDOS DO STATEMENTS F1B14520 10342 0774 00 4 00005 AXT 5,4 INTO TDO TABLE. F1B14530 10343 -0500 00 2 00000 CAL ..,2 (MOVE EACH F1B14540 10344 0602 00 4 05552 SLW 1C+5,4 TEMPDO TABLE ENTRY F1B14550 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 81 * SECTION ONE PASS TWO * RECORD 9F14 * BINARY CARD NO. 9F140055 10345 -2 00001 2 10347 TNX *+2,2,1 INTO 1C...1C+4, F1B14560 10346 2 00001 4 10343 TIX *-3,4,1 AND WHEN DONE, F1B14570 10347 0534 00 4 05545 LXA 1C,4 IF THIS IS NOT F1B14580 10350 -3 00000 4 10353 TXL *+3,4,0 A NULL DO STATEMENT, THEN F1B14590 10351 0074 00 1 04405 TSX TET00,1 * GO MAKE AN ENTRY IN TDO TABLE.) F1B14600 10352 0 00000 0 00001 PZE 1 WHEN THE WHOLE DO NEST F1B14610 10353 3 00001 2 10342 TXH *-9,2,1 HAS BEEN ENTERED, F1B14620 10354 0020 00 0 10111 TRA RSC * EXIT TO LIST SCAN. F1B14630 END SPC. F1B14640 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * F1B14650 RPR / ENTRY FROM LIST SCAN ON RIGHT PARENTHESIS. F1B14660 10355 -0534 00 4 62002 RPR LXD DOLEV,4 TEST LEGALITY OF PUNCTUATION. F1B14670 10356 3 00000 4 10360 TXH *+2,4,0 IF THERE ARE TOO MANY ) IN LIST, F1B14680 10357 0074 00 4 04504 ER0048 TSX DIAG,4 * GO TO DIAGNOSTIC. F1B14690 10360 -0500 00 4 62002 CAL DOLEV,4 NULLIFY DO NEST F1B14700 10361 0621 00 0 10324 STA SPC5 AT CURRENT LEVEL. F1B14710 10362 -3 00006 2 10366 TXL *+4,2,6 IF THERE WERE ANY CHARACTERS $F1B14720 10363 0774 00 4 10366 AXT *+3,4 COLLECTED IN SCAN, THEN SET F1B14730 10364 0634 00 4 10543 SXA CMASW,4 SWITCH IN CMA FOR RETURN, F1B14740 10365 0020 00 0 10373 TRA CMA1 * AND EXIT TO CMA. F1B14750 *+1 / REENTRY POINT FROM CMA. F1B14760 10366 0774 00 4 10120 AXT NXS,4 RESET F1B14770 10367 0634 00 4 10543 SXA CMASW,4 CMASWITCH, F1B14780 10370 0774 00 4 00000 AXT 0,4 PICKUP ZERO, F1B14790 10371 0020 00 0 10324 TRA SPC5 * AND EXIT TO SPC. F1B14800 END RPR. F1B14810 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * F1B14820 CMA / ENTRY FROM LIST SCAN OF COMMA. F1B14830 10372 -3 00006 2 10124 CMA TXL NXC,2,6 * RETURN TO SCAN IF NOTHING FOUND. F1B14840 CMA1 / ENTRY FROM RPR AND EMK. F1B14850 BINARY CARD NO. 9F140056 10373 0074 00 4 10601 CMA1 TSX TYP,4 * GO TEST TYPE OF VARIABLE. F1B14860 10374 0020 00 0 10376 TRA *+2 IF CONSTANT, THEN F1B14870 10375 0074 00 4 04504 ER0049 TSX DIAG,4 * GO TO DIAGNOSTIC. F1B14880 10376 -0500 00 0 61401 CAL SYM MOVE SYMBOL F1B14890 10377 0602 00 0 61376 SLW SA INTO SYMBOLIC ADDRESS. AND F1B14900 CMA2 / ENTRY FROM LPR. F1B14910 10400 0534 00 4 62002 CMA2 LXA DOLEV,4 INCREASE DOLEV A F1B14920 10401 1 00001 4 10402 TXI *+1,4,1 BY 1, F1B14930 10402 0634 00 4 62002 SXA DOLEV,4 AND THEN F1B14940 10403 -0500 00 0 22247 CAL GTAG SET GENERALIZED TAG. F1B14950 10404 0602 00 0 61377 SLW RA (RELATIVE ADDRESS) F1B14960 10405 0100 00 0 10412 TZE *+5 IF THIS VARIABLE HAS A SUBSCRIPT, F1B14970 10406 -0500 00 0 22246 CAL EPS AND IF SUBSCRIPT F1B14980 10407 -0100 00 0 10522 TNZ CMASW2 IS A CONSTANT, F1B14990 10410 0634 00 0 61377 SXA RA,0 THEN SET RELATIVE ADDRESS TO ZERO. F1B15000 10411 0020 00 0 10522 TRA CMASW2 THEN GO COMPILE. F1B15010 10412 -0500 00 0 61376 CAL SA IF THIS VARIABLE F1B15020 10413 0602 00 0 05561 SLW E+2 DOES NOT HAVE A SUBSCRIPT, THEN F1B15030 10414 0074 00 4 05272 TSX DIM1SR,4 * GO SEARCH DIM1 TABLE. F1B15040 10415 0020 00 0 10420 TRA *+3 IF FOUND, THEN F1B15050 10416 0500 00 0 05576 CLA ERASE1 PICKUP 1ST DIMENSION F1B15060 10417 0020 00 0 10443 TRA DVS AND GO TEST SIZE. OTHERWISE, F1B15070 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 82 * SECTION ONE PASS TWO * RECORD 9F14 * 10420 0074 00 4 05276 TSX DIM2SR,4 * GO SEARCH DIM2 TABLE. F1B15080 BINARY CARD NO. 9F140057 10421 0020 00 0 10431 TRA *+8 AND IF FOUND, F1B15090 10422 0560 00 0 05576 LDQ ERASE1 PICKUP 1ST AND 2ND DIMENSIONS F1B15100 10423 0600 00 0 22253 STZ N2 AND MULTIPLY F1B15110 10424 -0620 00 0 22253 SLQ N2 THEM F1B15120 10425 -0763 00 0 00022 LGL 18 TOGETHER. F1B15130 10426 0200 00 0 22253 MPY N2 THEN GO TEST F1B15140 10427 0771 00 0 00001 ARS 1 THEIR PRODUCT. OTHERWISE, F1B15150 10430 0020 00 0 10443 TRA DVS GO SEARCH F1B15160 10431 0074 00 4 05316 TSX DIM3SR,4 * DIM3 TABLE. F1B15170 10432 0020 00 0 10516 TRA NODIM AND IF FOUND, F1B15180 10433 0560 00 0 05576 LDQ ERASE1 PICKUP F1B15190 10434 0600 00 0 22253 STZ N2 1ST DIMENSION, F1B15200 10435 -0620 00 0 22253 SLQ N2 2ND DIMENSION, F1B15210 10436 -0763 00 0 00022 LGL 18 AND 3RD DIMENSION. F1B15220 10437 0200 00 0 22253 MPY N2 MULTIPLY F1B15230 10440 0765 00 0 00022 LRS 18 THEM TOGETHER F1B15240 10441 0200 00 0 05577 MPY ERASE2 AND IF F1B15250 10442 0763 00 0 00021 LLS 17 THEIR F1B15260 10443 0402 00 0 05121 DVS SUB L(1) PRODUCT IS F1B15270 10444 0100 00 0 10516 TZE NODIM GREATER THAN 1, THEN F1B15280 10445 0761 00 0 10471 CMASW1 NOP DRMIO CONTINUE BELOW, IF DRUM. F1B15290 10446 0734 00 4 00000 PAX ,4 OTHERWISE, F1B15300 BINARY CARD NO. 9F140058 10447 1 00001 4 10450 TXI *+1,4,1 SET F1B15310 10450 -0634 00 4 61377 SXD RA,4 DIMENSION ARGUMENT, F1B15320 10451 0774 00 4 10764 AXT (SLO),4 AND PICKUP (SLO), F1B15330 10452 0761 00 0 10454 IOSW1 NOP *+2 OR F1B15340 10453 0774 00 4 10763 AXT (SLI),4 (SLI), F1B15350 10454 0634 00 4 10460 SXA *+4,4 TO SET TSX ADDRESS. F1B15360 10455 0074 00 2 07205 TSX SXD,2 * GO COMPILE SXD 6)+4,4. F1B15370 10456 0074 00 4 06432 TSX LIB,4 * ENTER CLOSUB AND COMPILE TSX ..,4. F1B15380 10457 0 06276 0 05120 PZE L(0),,L(TSX) LOC,,OP-DEC F1B15390 10460 0 05124 0 00000 PZE ..,,L(4) ADR,,RA-TAG F1B15400 10461 0074 00 4 04251 TSX CIT00,4 * GO COMPILE ARRAY ARGUMENT. F1B15410 10462 0 06257 0 05120 PZE L(0),,L(PZE) LOC,,OP-DEC F1B15420 10463 0 05152 0 61376 PZE SA,,2E18 ADR,,RA-TAG F1B15430 10464 0074 00 4 04251 TSX CIT00,4 * GO COMPILE DIMENSION ARGUMENT. F1B15440 10465 0 06257 0 05120 PZE L(0),,L(PZE) LOC,,OP-DEC F1B15450 10466 0 61377 0 05120 PZE L(0),,RA ADR,,RA-TAG F1B15460 10467 0074 00 2 06506 TSX LXD,2 * GO COMPILE LXD 6)+4,4. F1B15470 10470 0020 00 0 10541 TRA RESET THEN GO RESET SL AND GTAG. F1B15480 DRMIO / DRUM INPUT /OUTPUT. F1B15490 10471 0767 00 0 00022 DRMIO ALS 18 PLACE DIMENSION-1 IN F1B15500 10472 0601 00 0 05604 STO G DECREMENT OF G, AND F1B15510 10473 0074 00 4 04153 TSX FXCNIX,4 * GO ENTER IN FIXCON, AND GET TAG. F1B15520 10474 0767 00 0 00022 ALS 18 PLACE TAG IN F1B15530 BINARY CARD NO. 9F140059 10475 0622 00 0 06302 STD RAT DECREMENT OF RAT. THEN F1B15540 10476 0074 00 4 04251 TSX CIT00,4 * GO COMPILE LXD 2)+..,TAG. F1B15550 10477 0 06250 0 05120 PZE L(0),,L(LXD) LOC,,OP-DEC F1B15560 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 83 * SECTION ONE PASS TWO * RECORD 9F14 * 10500 0 06302 0 06167 PZE I(,,RAT ADR,,RA-TAG F1B15570 10501 0074 00 4 04251 TSX CIT00,4 * GO COMPILE CPY SYMBOL,TAG F1B15580 10502 0 06233 0 05120 PZE L(0),,L(CPY) LOC,,OP-DEC F1B15590 10503 0 05130 0 61376 PZE SA,,L(8) ADR,,RA-TAG F1B15600 10504 0074 00 4 04251 TSX CIT00,4 * GO COMPILE TIX *-1,TAG. F1B15610 10505 0 06273 0 05120 PZE L(0),,L(TIX) LOC,,OP-DEC F1B15620 10506 0 06206 0 06175 PZE PROCTR,,M1T ADR,,RA-TAG F1B15630 10507 0074 00 4 04251 TSX CIT00,4 * GO COMPILE DED TAG. F1B15640 10510 0 06235 0 05120 PZE L(0),,L(DED) LOC,,OP-DEC F1B15650 10511 0 05130 0 05120 PZE L(0),,L(8) ADR,,RA-TAG F1B15660 10512 0074 00 4 04251 DRMFIN TSX CIT00,4 * GO COMPILE CPY SYMBOL. F1B15670 10513 0 06233 0 05120 PZE L(0),,L(CPY) LOC,,OP-DEC F1B15680 10514 0 61377 0 61376 PZE SA,,RA ADR,,RA-TAG F1B15690 10515 0020 00 0 10541 TRA RESET THEN GO RESET SL AND GTAG. F1B15700 NODIM / FOR SUBSCRIPTED VARIABLES OR SIMPLE VARIABLES. F1B15710 10516 0074 00 1 10664 NODIM TSX IFFIX,1 * GO TEST TYPE OF VARIABLE, F1B15720 10517 0020 00 0 10522 TRA *+3 AND IF FIXED POINT, F1B15730 10520 0074 00 1 04405 TSX TET00,1 * GO ENTER VARIABLE IN EITHER F1B15740 10521 0 00000 0 00000 INOUT PZE .. FORVAL OR FORVAR TABLE. F1B15750 10522 0761 00 0 10512 CMASW2 NOP DRMFIN CONTINUE ABOVE IF DRUM. F1B15760 BINARY CARD NO. 9F140060 10523 0761 00 0 10533 IOSW2 NOP CMAO CONTINUE BELOW IF OUTPUT. F1B15770 10524 0074 00 4 04251 TSX CIT00,4 * GO COMPILE STR. F1B15780 10525 0 06266 0 22255 PZE SL,,L(STR) LOC,,OP-DEC F1B15790 10526 0 05120 0 05120 PZE L(0),,L(0) ADR,,RA-TAG F1B15800 10527 0074 00 4 04251 TSX CIT00,4 * GO COMPILE STQ SYMBOL,TAG. F1B15810 10530 0 06265 0 05120 PZE L(0),,L(STQ) LOC,,OP-DEC F1B15820 10531 0 61377 0 61376 PZE SA,,RA ADR,,RA-TAG F1B15830 10532 0020 00 0 10541 TRA RESET THEN GO RESET SL AND GTAG. F1B15840 10533 0074 00 4 04251 CMAO TSX CIT00,4 * GO COMPILE LDQ SYMBOL,TAG. F1B15850 10534 0 06245 0 22255 PZE SL,,L(LDQ) LOC,,OP-DEC F1B15860 10535 0 61377 0 61376 PZE SA,,RA ADR,,RA-TAG F1B15870 10536 0074 00 4 04251 TSX CIT00,4 * GO COMPILE STR. F1B15880 10537 0 06266 0 05120 PZE L(0),,L(STR) LOC,,OP-DEC F1B15890 10540 0 05120 0 05120 PZE L(0),,L(0) ADR,,RA-TAG F1B15900 10541 0600 00 0 22255 RESET STZ SL CLEAR SYMBOLIC LOCATION. F1B15910 10542 0600 00 0 22247 STZ GTAG CLEAR GENERALIZED TAG. F1B15920 10543 0020 00 0 10120 CMASW TRA NXS * EXIT TO RPR OR SCAN. F1B15930 END CMA. F1B15940 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * F1B15950 EMK / ENTRY FROM LIST SCAN ON ENDMARK. F1B15960 10544 3 00006 2 10373 EMK TXH CMA1,2,6 * IF NO CHARACTERS REMAIN, THEN F1B15970 10545 -0534 00 4 62002 LXD DOLEV,4 CHECK PARENTHESIS COUNT, AND F1B15980 10546 -3 00000 4 10550 TXL *+2,4,0 IF TOO MANY LEFT PARENTHESIS, F1B15990 10547 0074 00 4 04504 ER0050 TSX DIAG,4 * GO TO DIAGNOSTIC. F1B16000 ENDSW / ENTRY FROM SCAN ON NO LIST. F1B16010 10550 0761 00 0 10555 ENDSW NOP FINI CONTINUE BELOW IF DRUM OR NO LIST. F1B16020 BINARY CARD NO. 9F140061 10551 0074 00 2 07205 TSX SXD,2 * GO COMPILE SXD 6)+4,4. F1B16030 10552 0074 00 4 06432 TSX LIB,4 * ENTER CLOSUB AND COMPILE TSX ..,4. F1B16040 10553 0 06276 0 05120 PZE L(0),,L(TSX) LOC,,OP-DEC F1B16050 10554 0 05124 0 00000 END PZE ..,,L(4) ADR,,RA-TAG F1B16060 FINI / ENTRY FROM BST. F1B16070 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 84 * SECTION ONE PASS TWO * RECORD 9F14 * 10555 0074 00 2 06506 FINI TSX LXD,2 * GO COMPILE LXD 6)+4,4. F1B16080 10556 -0500 00 0 05354 CAL NOP RESET SWITCH F1B16090 10557 0622 00 0 10110 STD LIST FOR LIST SCAN. F1B16100 10560 0020 00 0 07211 TRA CHSIFN * EXIT TO REENTER PASS2. F1B16110 END EMK. F1B16120 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * F1B16130 BEG,4 / BEGINNING SCAN. F1B16140 10561 0634 00 4 10600 BEG SXA CMB,4 SAVE XR4. F1B16150 10562 0774 00 4 10576 AXT BEGTR,4 SET CONTROL TRANSFER. F1B16160 10563 0020 00 0 10117 TRA CXS * GO BEGIN SCAN. F1B16170 BEGTR / CONTROL TRANSFERS FOR BEGINNING SCAN = F1B16180 10564 0020 00 0 10576 TRA NLS * ENDMARK (NO LIST SCAN) F1B16190 10565 0020 00 0 10575 TRA *+8 ( (ILLEGAL CHARACTER IN I/O SETUP).F1B16200 10566 0020 00 0 10600 TRA CMB * , F1B16210 10567 0020 00 0 10575 TRA *+6 ) (ILLEGAL CHARACTER IN I/O SETUP).F1B16220 10570 0020 00 0 10575 TRA *+5 = (ILLEGAL CHARACTER IN I/O SETUP).F1B16230 10571 0020 00 0 10575 TRA *+4 - (ILLEGAL CHARACTER IN I/O SETUP).F1B16240 10572 0020 00 0 10575 TRA *+3 / (ILLEGAL CHARACTER IN I/O SETUP).F1B16250 10573 0020 00 0 10575 TRA *+2 . (ILLEGAL CHARACTER IN I/O SETUP).F1B16260 10574 0020 00 0 10575 TRA *+1 + (ILLEGAL CHARACTER IN I/O SETUP).F1B16270 10575 0074 00 4 04504 ER0051 TSX DIAG,4 * * (ILLEGAL CHARACTER IN I/O SETUP).F1B16280 10576 BEGTR BSS 0 INDEXING ADDRESS FOR ABOVE LIST. F1B16290 END BEGTR. F1B16300 10576 -0500 00 0 05367 NLS CAL TRA IF ENDMARK IS MET, F1B16310 BINARY CARD NO. 9F140062 10577 0622 00 0 10110 STD LIST SET SWITCH TO SKIP LIST SCAN. F1B16320 CMB / ENTRY FROM BEGINNING SCAN ON COMMA. F1B16330 10600 0774 00 4 00000 CMB AXT ..,4 RESTORE XR4. F1B16340 TYP,4 / ENTRY FROM LPR, SPC, CMA. F1B16350 10601 0500 00 0 61402 TYP CLA CHR-6 TEST FIRST CHARACTER F1B16360 10602 0402 00 0 05115 SUB 12Z FOR VARIABLE F1B16370 10603 -0120 00 0 10612 TMI *+7 OR CONSTANT. F1B16380 10604 3 00044 2 10611 TXH *+5,2,36 IF VARIABLE, F1B16390 10605 -0754 00 0 00000 PXD ,0 F1B16400 10606 0560 00 0 05155 LDQ BLANKS ADD BLANKS F1B16410 10607 -0763 00 2 00052 LGL 42,2 IF SYMBOL CONTAINS F1B16420 10610 -0602 00 0 61401 ORS SYM LESS THAN 6 CHARACTERS, AND F1B16430 10611 0020 00 4 00001 TRA 1,4 * TAKE VARIABLE EXIT TO CALLER. F1B16440 10612 0774 00 2 00005 AXT 5,2 IF CONSTANT, F1B16450 10613 0500 00 2 61407 CLA CHR-1,2 THEN F1B16460 10614 0601 00 0 61400 SBN STO BIN CONVERT F1B16470 10615 -3 00000 2 10630 CSJ TXL BEX,2,.. BCD F1B16480 10616 0767 00 0 00002 ALS 2 DIGITS F1B16490 10617 0400 00 0 61400 ADD BIN TO THEIR F1B16500 10620 0767 00 0 00001 ALS 1 BINARY F1B16510 10621 0601 00 0 61400 STO BIN EQUIVALENT. F1B16520 10622 0500 00 2 61410 CLA CHR,2 IF A NON-NUMERIC F1B16530 10623 0340 00 0 05131 CAS L(9) CHARACTER IS MET, F1B16540 10624 0074 00 4 04504 ER1003 TSX DIAG,4 * GO TO DIAGNOSTIC. F1B16550 BINARY CARD NO. 9F140063 10625 0761 00 0 00000 NOP WHEN ALL F1B16560 10626 0400 00 0 61400 ADD BIN DIGITS HAVE BEEN F1B16570 10627 1 77777 2 10614 TXI SBN,2,-1 CONVERTED, F1B16580 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 85 * SECTION ONE PASS TWO * RECORD 9F14 * 10630 0020 00 4 00002 BEX TRA 2,4 * TAKE CONSTANT EXIT TO CALLER. F1B16590 END BEG. F1B16600 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * F1B16610 FORMAT,1 / PROCESS FORMAT DESIGNATION. F1B16620 10631 0074 00 4 10561 FMTDSG TSX BEG,4 * GO SCAN FORMAT DESIGNATION. F1B16630 10632 0020 00 0 10644 TRA FMTVAR IT IS A VARIABLE F1B16640 10633 -0100 00 0 10635 TNZ *+2 IT IS A CONSTANT F1B16650 10634 0074 00 4 04504 ER0054 TSX DIAG,4 * GO TO DIAGNOSTIC IF MISSING OR ZERO F1B16660 10635 0621 00 0 05161 STA SET IF F1B16670 10636 0634 00 1 10641 SXA *+3,1 CONSTANT, F1B16680 10637 0074 00 1 04405 TSX TET00,1 * GO ENTER IN F1B16690 10640 0 00000 0 00021 PZE 17 FMTEFN TABLE. F1B16700 10641 0774 00 1 00000 AXT ..,1 THEN F1B16710 10642 0774 00 4 05161 AXT SET,4 PICKUP 8).. F1B16720 10643 0020 00 0 10657 TRA FMTARG AND GO COMPILE FORMAT ARGUMENT. F1B16730 10644 -0500 00 0 61401 FMTVAR CAL SYM IF VARIABLE, F1B16740 10645 0602 00 0 05561 SLW E+2 THEN F1B16750 10646 0074 00 4 05272 TSX DIM1SR,4 * GO SEARCH F1B16760 10647 0020 00 0 10651 TRA *+2 DIMENSION F1B16770 10650 0020 00 0 10656 TRA FMTARG-1 TABLES, F1B16780 10651 0074 00 4 05276 TSX DIM2SR,4 * AND IF F1B16790 10652 0020 00 0 10654 TRA *+2 NO DIMENSION F1B16800 BINARY CARD NO. 9F140064 10653 0020 00 0 10656 TRA FMTARG-1 HAS BEEN ASSIGNED TO F1B16810 10654 0074 00 4 05316 TSX DIM3SR,4 * THIS FORMAT, THEN F1B16820 10655 0074 00 4 04504 ER0053 TSX DIAG,4 * GO TO DIAGNOSTIC. F1B16830 10656 0774 00 4 61401 AXT SYM,4 OTHERWISE, PICKUP VARIABLE AND F1B16840 10657 0634 00 4 10662 FMTARG SXA FMTSA,4 SET FORMAT SYMBOLIC ADDRESS. F1B16850 10660 0074 00 4 04251 TSX CIT00,4 * GO COMPILE FORMAT ARGUMENT. F1B16860 10661 0 06257 0 05120 PZE L(0),,L(PZE) LOC,,OP-DEC F1B16870 10662 0 05120 0 00000 FMTSA PZE ..,,L(0) ADR,,RA-TAG F1B16880 10663 0020 00 1 00001 TRA 1,1 * EXIT TO CALLER. F1B16890 END FORMAT. F1B16900 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * F1B16910 IFFIX,1 / TEST VARIABLE FOR FIXED OR FLOATING POINT. F1B16920 10664 -0500 00 0 03734 IFFIX CAL EIFNO PREPARE FOR F1B16930 10665 0600 00 0 05604 STZ G FORVAR (5) F1B16940 10666 0622 00 0 05604 STD G OR, F1B16950 10667 -0500 00 0 61401 CAL SYM FORVAL (6) F1B16960 10670 0602 00 0 05605 SLW G+1 ENTRY. F1B16970 10671 -0500 00 0 61402 CAL CHR-6 PICKUP 1ST CHARACTER OF VARIABLE F1B16980 10672 0020 00 0 05466 TRA TESTFX+1 * AND GO TEST FOR FIXED OR FLOATING. F1B16990 END IFFIX. F1B17000 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * F1B17010 INPUT,2 / PROCESS CALLING SEQUENCE. ENTRY FROM TSH, TSB. F1B17020 10673 0774 00 1 00006 INPUT AXT 6,1 PICKUP FORVAL DESIGNATION. F1B17030 10674 -0500 00 0 05354 CAL NOP PICKUP I/O SWITCH DESIGNATION. F1B17040 10675 0020 00 0 10700 TRA *+3 CONTINUE BELOW. F1B17050 OUTPUT,2 / ENTRY FROM STH, STB. F1B17060 10676 0774 00 1 00005 OUTPUT AXT 5,1 PICKUP FORVAR DESIGNATION. F1B17070 10677 -0500 00 0 05367 CAL TRA PICKUP I/O SWITCH DESIGNATION. F1B17080 10700 0622 00 0 10452 STD IOSW1 SET I/O F1B17090 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 86 * SECTION ONE PASS TWO * RECORD 9F14 * BINARY CARD NO. 9F140065 10701 0622 00 0 10523 STD IOSW2 SWITCHES. F1B17100 10702 -0500 00 0 05354 CAL NOP PICKUP DRUM SWITCH DESIGNATION. F1B17110 DRUM,2 / ENTRY FROM SDR. F1B17120 10703 0634 00 1 10521 DRUM SXA INOUT,1 SET FOR FORVAR/FORVAL ENTRY. F1B17130 10704 0622 00 0 10445 STD CMASW1 SET F1B17140 10705 0622 00 0 10522 STD CMASW2 DRUM F1B17150 10706 0622 00 0 10550 STD ENDSW SWITCHES. F1B17160 TAPE,2 / ENTRY FROM BST. F1B17170 10707 0634 00 4 10715 TAPE SXA TYPE,4 SET FIRST TSX ADDRESS. F1B17180 10710 0634 00 2 10712 SXA *+2,2 SAVE XR2. F1B17190 10711 0074 00 2 07205 TSX SXD,2 * GO COMPILE SXD 6)+4,4. F1B17200 10712 0774 00 2 00000 AXT ..,2 RESTORE XR2. F1B17210 10713 0074 00 4 06432 TSX LIB,4 * GO ENTER TYPE IN CLOSUB AND CIT. F1B17220 10714 0 06276 0 05120 PZE L(0),,L(TSX) LOC,,OP-DEC F1B17230 10715 0 05124 0 00000 TYPE PZE ..,,L(4) ADR,,RA-TAG F1B17240 10716 0600 00 0 22255 STZ SL RESET SYMBOLIC LOCATION. F1B17250 10717 0020 00 2 00001 TRA 1,2 * EXIT TO CALLER. F1B17260 END INPUT. F1B17270 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * F1B17280 UNIT,4 / PROCESS UNIT AND DRUM ADDRESS DESIGNATION. F1B17290 10720 0634 00 4 10747 UNIT SXA UNITX,4 SAVE XR4. F1B17300 10721 0074 00 4 10561 TSX BEG,4 * GO BEGIN SCAN. F1B17310 10722 0020 00 0 10735 TRA UNITV *VARIABLE UNIT DESIGNATION. F1B17320 10723 -0100 00 0 10725 TNZ *+2 IS UNIT DESIGNATION NON-ZERO. F1B17330 10724 0074 00 4 04504 ER2002 TSX DIAG,4 *NO, EITHER ZERO OR MISSING. F1B17340 10725 0767 00 0 00022 ALS 18 THEN F1B17350 10726 0601 00 0 05604 STO G MAKE F1B17360 BINARY CARD NO. 9F140066 10727 0074 00 4 04153 TSX FXCNIX,4 * FIXCON ENTRY F1B17370 10730 0767 00 0 00022 ALS 18 AND F1B17380 10731 0601 00 0 61377 STO RA SET RELATIVE ADDRESS, F1B17390 10732 -0500 00 0 06167 CAL I( AND SYMBOLIC ADDRESS F1B17400 10733 0602 00 0 61401 SLW SYM FOR FIXCON TABLE. F1B17410 10734 0020 00 0 10742 TRA DSW CONTINUE BELOW. F1B17420 10735 0074 00 1 10664 UNITV TSX IFFIX,1 *IF VARIABLE IS FLOATING POINT, F1B17430 10736 0074 00 4 04504 ER0055 TSX DIAG,4 * GO TO DIAGNOSTIC. F1B17440 10737 0074 00 1 04405 TSX TET00,1 * ENTER FIXED POINT VARIABLE F1B17450 10740 0 00000 0 00005 PZE 5 IN FORVAR. F1B17460 10741 0600 00 0 61377 STZ RA RESET RELATIVE ADDRESS TO ZERO. F1B17470 10742 0074 00 4 06501 DSW TSX GIF,4 * GO SET SYMBOLIC LOCATION, IF NEC. F1B17480 10743 0074 00 4 04251 TSX CIT00,4 * GO COMPILE CAL. F1B17490 10744 0 06225 0 22255 PZE SL,,L(CAL) LOC,,OP-DEC F1B17500 10745 0 61377 0 61401 PZE SYM,,RA ADR,,RA-TAG F1B17510 10746 0600 00 0 22255 STZ SL RESET SYMBOLIC LOCATION. F1B17520 10747 0774 00 4 00000 UNITX AXT ..,4 RESTORE XR4. F1B17530 10750 0020 00 4 00001 TRA 1,4 * EXIT TO CALLER. F1B17540 END UNIT. F1B17550 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * F1B17560 I/OCON / CONSTANTS USED BY INPUT/OUTPUT TRANSLATOR = F1B17570 10751 IOCON BSS 0 I/O CONSTANTS. F1B17580 10751 742262633460 (BST) BCI 1,(BST) I/O CONSTANT. F1B17590 10752 742362303460 (CSH) BCI 1,(CSH) I/O CONSTANT. F1B17600 10753 742451623460 (DRS) BCI 1,(DRS) I/O CONSTANT. F1B17610 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 87 * SECTION ONE PASS TWO * RECORD 9F14 * 10754 742526633460 (EFT) BCI 1,(EFT) I/O CONSTANT. F1B17620 BINARY CARD NO. 9F140067 10755 742631433460 (FIL) BCI 1,(FIL) I/O CONSTANT. F1B17630 10756 745143513460 (RLR) BCI 1,(RLR) I/O CONSTANT. F1B17640 10757 745163453460 (RTN) BCI 1,(RTN) I/O CONSTANT. F1B17650 10760 745166633460 (RWT) BCI 1,(RWT) I/O CONSTANT. F1B17660 10761 746223303460 (SCH) BCI 1,(SCH) I/O CONSTANT. F1B17670 10762 746224513460 (SDR) BCI 1,(SDR) I/O CONSTANT. F1B17680 10763 746243313460 (SLI) BCI 1,(SLI) I/O CONSTANT. F1B17690 10764 746243463460 (SLO) BCI 1,(SLO) I/O CONSTANT. F1B17700 10765 746247303460 (SPH) BCI 1,(SPH) I/O CONSTANT. F1B17710 10766 746263223460 (STB) BCI 1,(STB) I/O CONSTANT. F1B17720 10767 746263303460 (STH) BCI 1,(STH) I/O CONSTANT. F1B17730 10770 746362223460 (TSB) BCI 1,(TSB) I/O CONSTANT. F1B17740 10771 746362303460 (TSH) BCI 1,(TSH) I/O CONSTANT. F1B17750 10772 746643513460 (WLR) BCI 1,(WLR) I/O CONSTANT. F1B17760 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1B17770 F1B17780 END OF I/O STATEMENT PROCESSORS. F1B17790 F1B17800 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * F1B17810 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 88 * SECTION ONE PASS TWO * RECORD 9F14 * PASS 2/4-PROCESS ARITHMETIC FORMULAS= F1B17830 F1B17840 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1B17850 F1B17860 F1B17870 F1B17880 STATE B CONSISTS OF TWO PARTS....SCAN AND LEVEL ANALYSIS. F1B17890 THE SCAN IS LEFT TO RIGHT OVER THE SOURCE STATEMENT WHICH IS F1B17900 IN THE F REGION OF COMMON AND IS IN BCD. F1B17910 EACH FIXED POINT CONSTANT, FLOATING POINT CONSTANT, AND BCD F1B17920 ( HOLLERITH) ARGUMENT IN CALL NAME STATEMENTS ARE ENTERED IN F1B17930 TABLES AND GIVEN AN INTERNAL VARIABLE NAME. F1B17940 LEVEL ANALYSIS IS PREFORMED FOR EACH ELEMENT OF THE STATEMENTF1B17950 WHERE AN ELEMENT IS DEFINED AS A VARIABLE, FUNCTION NAME OR (F1B17960 AND THE OPERATOR WHICH PRECEDES IT. F1B17970 10773 0760 00 0 00140 ARITH SLF TURN ALL LITES OFF. F1B17980 10774 0020 00 0 20707 TRA ARITH1 CHECK MODE $F1B17990 10775 0601 00 0 04175 STO SIG1IX-2 F1B18000 10776 0600 00 0 22241 STZ ARGCTR CLEAR F1B18010 10777 0600 00 0 71552 STZ CHSAVE X F1B18020 11000 0600 00 0 22237 STZ 3LBAR X F1B18030 11001 0600 00 0 22252 STZ NBAR X F1B18040 11002 0600 00 0 71545 STZ CBAR X F1B18050 BINARY CARD NO. 9F140068 11003 0600 00 0 71546 STZ ABAR X F1B18060 11004 0600 00 0 71547 STZ FSTYPE X F1B18070 11005 -0534 00 4 05154 LXD 1BAR,4 SET NBAR=-1 F1B18080 11006 -0634 00 4 22252 SXD NBAR,4 X F1B18090 11007 -0500 00 0 06166 CAL E( SET ARERAS ' E( F1B18100 11010 0602 00 0 22240 SLW ARERAS X F1B18110 11011 0074 00 4 05232 TSX C0190X,4 SET FWA ' -F AND CHCTR ' 0 F1B18120 11012 -0500 00 0 04200 CAL TXHOP SET SWITCHES FOR LEFT SCAN. F1B18130 11013 0630 00 0 11157 STP MS093 X F1B18140 11014 0630 00 0 11411 STP MS310 X F1B18150 11015 0630 00 0 11362 STP MS321 X F1B18160 11016 -0500 00 0 06176 MS010 CAL ADPLUS SET OP TO ADDITION F1B18170 11017 0602 00 0 05560 MS030 SLW E+1 X F1B18180 11020 0600 00 0 71551 STZ FNBITS CLEAR FUNCTION NAME INDICATOR F1B18190 11021 0600 00 0 05604 STZ G CLEAR RECEIVING CELL. F1B18200 11022 0502 00 0 05120 CLS L(0) SET E = -0 F1B18210 11023 0601 00 0 05557 STO E X F1B18220 11024 0534 00 2 05126 LXA L(6),2 SET IR2 FOR SIX CHARS. F1B18230 11025 -0500 00 0 71552 MS040 CAL CHSAVE CHAR IN CHSAVE, IF ANY, TO AC. F1B18240 11026 -0100 00 0 11030 TNZ MS041 X F1B18250 11027 0074 00 4 05250 TSX C0190,4 CHSAVE EMPTY, GET NEXT CHAR. F1B18260 11030 0340 00 0 05131 MS041 CAS L(9) IS CHAR. NUMERIC. F1B18270 BINARY CARD NO. 9F140069 11031 0020 00 0 11066 TRA MS050 N/, TAKE TRA F1B18280 11032 3 00000 0 12045 MS4007 TXH CM4100,0,0 F1B18290 11033 0534 00 4 04521 LXA MODECL,4 GET SPECIAL MODE INDICATION. F1B18300 11034 3 00022 4 11063 TXH MS0415,4,18 TEST FOR HIGHER THAN B. F1B18310 11035 -3 00021 4 11063 TXL MS0415,4,17 TEST FOR LOWER THAN B. F1B18320 11036 0340 00 0 05130 NXTOCT CAS L(8) BOOLEAN MODE, CONSTANT MUST BE OCTAL. F1B18330 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 89 * SECTION ONE PASS TWO * RECORD 9F14 * 11037 0020 00 0 07565 TRA ER1005 9 IS ERROR F1B18340 11040 0020 00 0 07565 TRA ER1005 8 IS ERROR F1B18350 11041 0601 00 0 71552 STO CHSAVE F1B18360 11042 -0500 00 0 05604 CAL G GET PREVIOUS OCTAL SUM. F1B18370 11043 0340 00 0 05157 CAS MAXIMA TEST FOR MORE THAN 12 DIGITS. F1B18380 11044 0074 00 4 04504 OCTERR TSX DIAG,4 YES, GO TO DIAGNOSTIC F1B18390 11045 0761 00 0 00000 NOP F1B18400 11046 0767 00 0 00003 ALS 3 MULTIPLY BY 8 AND F1B18410 11047 0400 00 0 71552 ADD CHSAVE ADD CURRENT DIGIT. F1B18420 11050 0602 00 0 05604 SLW G SAVE RESULT. F1B18430 11051 0074 00 4 05250 TSX C0190,4 GET NEXT NON-BLANK CHARACTER. F1B18440 11052 0340 00 0 05131 CAS L(9) TEST FOR NUMERIC F1B18450 11053 0020 00 0 11056 TRA NOTOCT NO, PREPARE TO ENTER IN TABLE. F1B18460 11054 0020 00 0 07565 TRA ER1005 9 IS ERROR. F1B18470 11055 0020 00 0 11036 TRA NXTOCT OCTAL, CONTINUE. F1B18480 11056 0601 00 0 71552 NOTOCT STO CHSAVE SAVE FOR RESUMPTION OF SCAN. F1B18490 BINARY CARD NO. 9F140070 11057 0074 00 4 04157 TSX FLCNIX,4 ENTER CONSTANT IN FLOCON TABLE. F1B18500 11060 -0501 00 0 06177 ORA FLOVAR PREFACE POSITION WITH FLOCON LABEL. F1B18510 11061 0602 00 0 05561 SLW E+2 F1B18520 11062 0020 00 0 11530 TRA LATXH NOW GO TO LEVEL ANALYSIS WITH INTERNAL NAMEF1B18530 11063 0074 00 4 12111 MS0415 TSX ROYCNV,4 X F1B18540 11064 0020 00 0 11462 TRA HOLL RETURN 1, THIS WAS HOLLERITH. F1B18550 11065 0020 00 0 11530 TRA LATXH THIS WAS FIXED OR FLOATING CONSTANT. F1B18560 DOUBLE PRECISION-COMPLEX ARITHMETIC PATCH. F1B18570 11066 0340 00 0 05106 MS050 CAS OPEN IS 1ST CHAR. ( F1B18580 11067 0020 00 0 11076 TRA MS0501 NO F1B18590 11070 0020 00 0 11072 TRA ICNV2 YES F1B18600 11071 0020 00 0 11076 TRA MS0501 NO F1B18610 11072 -0500 00 0 04521 ICNV2 CAL MODECL TEST FOR I IN CC ONE WHICH MEANS COMPLEX F1B18620 11073 0402 00 0 05141 SUB L(I) ARITHMETIC MODE. POSSIBILITY THAT WHAT F1B18630 11074 0100 00 0 13156 TZE ICNV3 FOLLOWS IS A COMPLEX CONSTANT. F1B18640 11075 -0500 00 0 05106 ICNV6 CAL OPEN NOT A COMPLEX CONSTANT, RESTORE ( AND F1B18650 11076 0534 00 4 05104 MS0501 LXA TEN,4 PREPARE TO TEST FOR PUNCTUATION. F1B18660 F1B18670 11077 0340 00 4 05117 MS051 CAS CTEST,4 F1B18680 11100 0020 00 0 11102 TRA MS052 X F1B18690 11101 0020 00 0 11135 TRA MS090 CHAR IS SOME PUNCTUATION. F1B18700 11102 2 00001 4 11077 MS052 TIX MS051,4,1 X F1B18710 11103 0767 00 2 00044 MS060 ALS 36,2 POSITION CHAR FOR BUILDING SYMBOL. F1B18720 11104 -0602 00 0 05604 ORS G ADD CHAR TO THOSE IN G. F1B18730 BINARY CARD NO. 9F140071 11105 1 00006 2 11106 TXI MS061,2,6 UPDATE POSITIONING TAG. F1B18740 11106 0074 00 4 05250 MS061 TSX C0190,4 GET NEXT CHAR. F1B18750 11107 0534 00 4 05104 MS070 LXA TEN,4 PREPARE TO TEST FOR PUNCTUATION. F1B18760 11110 0340 00 4 05117 MS071 CAS CTEST,4 X F1B18770 11111 0020 00 0 11113 TRA MS072 X F1B18780 11112 0020 00 0 11137 TRA MS091 CHAR IS SOME PUNCTUATION. F1B18790 11113 2 00001 4 11110 MS072 TIX MS071,4,1 X F1B18800 11114 -3 00022 2 11103 TXL MS060,2,18 IF THIS IS CHAR 1, 2 /R 3 GO BUILD G. F1B18810 11115 0340 00 0 05137 CAS L(F) IS THIS AN F ENDING FUNCTION NAME. F1B18820 11116 0020 00 0 11120 TRA MS073 X F1B18830 11117 0020 00 0 11122 TRA MS080 MAYBE, GO LOOK AT NEXT CHAR. F1B18840 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 90 * SECTION ONE PASS TWO * RECORD 9F14 * 11120 -3 00044 2 11103 MS073 TXL MS060,2,36 TEST FOR UNDER 7 CHARS. F1B18850 11121 0074 00 4 04504 MS074 TSX DIAG,4 BUILD G, 7TH CHAR IS ERROR. F1B18860 11121 ER0056 SYN MS074 F1B18870 11122 0074 00 4 05250 MS080 TSX C0190,4 GET NEXT CHAR. F1B18880 11123 0340 00 0 05106 CAS OPEN TEST FOR (. F1B18890 11124 0020 00 0 11126 TRA MS081 X F1B18900 11125 0020 00 0 11150 TRA MS092 YES, THIS IS A FUNCTION NAME. F1B18910 11126 0601 00 0 05602 MS081 STO FIRSTC NO, SAVE CURRENT CHAR. F1B18920 11127 -0500 00 0 05137 CAL L(F) ADD F TO CONTENTS OF G. F1B18930 11130 0767 00 2 00044 ALS 36,2 X F1B18940 11131 -0602 00 0 05604 ORS G X F1B18950 11132 3 00044 2 11121 TXH MS074,2,36 TEST FOR 7TH CHAR, YES IS ERROR. F1B18960 BINARY CARD NO. 9F140072 11133 0500 00 0 05602 CLA FIRSTC RESTORE CURRENT CHAR. F1B18970 11134 1 00006 2 11107 TXI MS070,2,6 UPDATE POSITIONING TAG. F1B18980 11135 0600 00 0 71552 MS090 STZ CHSAVE CLEAR F1B18990 11136 0020 00 4 11311 TRA TRBLKA,4 F1B19000 11137 0602 00 0 71552 MS091 SLW CHSAVE OP IS IN NEXT ELEMENT, SAVE. F1B19010 11140 -0754 00 0 00000 PXD ,0 F1B19020 11141 0560 00 0 05155 LDQ BLANKS COMPLETE VARIABLE NAMES LESS THAN SIX CHAR-F1B19030 11142 -0763 00 2 00052 LGL 42,2 ACTERS WITH BCD BLANKS. F1B19040 11143 -0602 00 0 05604 ORS G X F1B19050 11144 0560 00 0 05604 LDQ G MOVE G TO E+2 AND TO G+1. F1B19060 11145 -0600 00 0 05561 STQ E+2 X F1B19070 11146 -0600 00 0 05605 STQ G+1 X F1B19080 11147 0020 00 4 11341 TRA TRBLKB,4 NOW BRANCH TO INDIVIDUAL ROUTINE F1B19090 11150 -0754 00 0 00000 MS092 PXD ,0 CLEAR F1B19100 11151 0560 00 0 05155 LDQ BLANKS ADD BLANKS TO SUBROUTINE NAME IN G. F1B19110 11152 -0763 00 2 00052 LGL 42,2 X F1B19120 11153 -0501 00 0 05604 ORA G X F1B19130 11154 0602 00 0 05604 SLW G X F1B19140 11155 0602 00 0 05561 SLW E+2 MOVE FUNCTION NAME TO E+2. F1B19150 11156 0600 00 0 71552 STZ CHSAVE CLEAR OUT FIRST CHAR OF FUNCTION NAME. F1B19160 11157 0 00000 0 11460 MS093 PZE MS335,,0 TXH FOR LEFT SIDE, TXL FOR RIGHT SIDE. F1B19170 11160 -0534 00 4 03746 LXD BK,4 THIS IS ARITH FUNCTION STATEMENT. F1B19180 BINARY CARD NO. 9F140073 11161 -3 00000 4 11171 TXL *+8,4,0 TEST FOR FIRST ENTRY AND IF SO SKIP SEARCH.F1B19190 11162 -0634 00 4 11170 SXD *+6,4 SET EXIT TEST FROM SEARCH LOOP. F1B19200 11163 0534 00 2 05120 LXA L(0),2 SET FOR FORWARD SEARCH. F1B19210 11164 -0340 00 2 60636 LAS FORSUB,2 COMPARE NAME OF CURRENT FORTRAN FUNCTION F1B19220 11165 1 77776 2 11170 TXI *+3,2,-2 TO ALL NAMES PREVIOUSLY ENTERED IN FORSUB F1B19230 11166 0074 00 4 04504 ER0057 TSX DIAG,4 TABLE. IF FOUND THIS IS AN ERROR, GO TO F1B19240 11167 1 77776 2 11170 TXI *+1,2,-2 DIAGNOSTIC. F1B19250 11170 3 00000 2 11164 TXH *-4,2,** F1B19260 11171 0602 00 4 60636 SLW FORSUB,4 ENTER FUNCTION NAME IN FORSUB TABLE. F1B19270 11172 -0500 00 0 03734 CAL EIFNO ENTER INTERNAL FORMULA NO IN FORSUB. F1B19280 11173 -0320 00 0 06216 ANA MASK1 X F1B19290 11174 0601 00 4 60637 STO FORSUB+1,4 X F1B19300 11175 1 77776 4 11176 TXI FS010,4,-2 UPDATE COUNT OF ENTRIES IN FORSUB. F1B19310 11176 -0634 00 4 03746 FS010 SXD BK,4 X F1B19320 11177 3 77242 4 11201 TXH FS020,4,-2*FRSBSZ TEST FOR FORSUB OVERFLOW. F1B19330 11200 0074 00 4 04504 ER0058 TSX DIAG,4 TABLE EXCEEDED, GO TO DIAGNOSTIC ROUTINE. F1B19340 11201 0074 00 4 05250 FS020 TSX C0190,4 GET FIRST CHAR OF ARGUMENT. F1B19350 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 91 * SECTION ONE PASS TWO * RECORD 9F14 * 11202 0340 00 0 05111 CAS EQUAL TEST FOR EQUAL. F1B19360 11203 0020 00 0 11205 TRA FS030 X F1B19370 11204 0020 00 0 11377 TRA MS322 GO MOVE FROM E, E+1, E+2 TO LEFT, LEFT+1,+2F1B19380 11205 0340 00 0 05131 FS030 CAS L(9) TEST FOR ILLEGAL ARGUMENT. F1B19390 11206 0020 00 0 11211 TRA FS040 LEGAL, CONTINUE F1B19400 BINARY CARD NO. 9F140074 11207 3 00000 0 12055 MS9002 TXH CM4200,0,0 F1B19410 11210 0074 00 4 04504 ER0059 TSX DIAG,4 BEGINS NUMERIC, ERROR. F1B19420 11211 0074 00 2 05162 FS040 TSX C0160,2 COLLECT ARGUMENT NAME IN 1G. F1B19430 11212 0074 00 4 05501 TSX TESTB0,4 TEST CHAR FOLLOWING ARG FOR , OR) F1B19440 11213 -0534 00 2 22241 LXD ARGCTR,2 GET COUNT OF ARGUMENTS F1B19450 11214 0560 00 0 05552 LDQ 1G ENTER ARGUMENT NAME IN ARGREG TABLE. F1B19460 11215 -0600 00 2 71557 STQ ARGREG,2 X F1B19470 11216 1 77777 2 11217 TXI FS050,2,-1 UPDATE COUNT OF ARGUMENTS. F1B19480 11217 -0634 00 2 22241 FS050 SXD ARGCTR,2 F1B19490 11220 3 77521 2 11201 TXH FS020,2,-RGRGSZ TEST FOR ARGREG TABLE OVERFLOW. F1B19500 11221 0074 00 4 04504 ER0060 TSX DIAG,4 YES, ERROR. F1B19510 11222 0534 00 4 04521 MS200 LXA MODECL,4 GET SPECIAL MODE INDICATION. F1B19520 11223 3 00022 4 11226 TXH MS2001,4,18 TEST FOR GREATER THAN B. F1B19530 11224 -3 00021 4 11226 TXL MS2001,4,17 TEST FOR LESS THAN B F1B19540 11225 0020 00 0 07565 TRA ER1005 BOOLEAN MEANS ERROR, GO TO DIAGNOSTIC. F1B19550 11226 0074 00 4 12121 MS2001 TSX DECPNT,4 CONVERT BCD NUMBER TO BINARY F1B19560 11227 0074 00 4 04504 ER0061 TSX DIAG,4 HOLLERITH RETURN, ERROR. F1B19570 11230 0020 00 0 11530 TRA LATXH FLOATING POINT CONSTANT RETURN. F1B19580 11231 0760 00 0 00141 MS210 SLN 1 TURN , LITE ON. F1B19590 11232 -0534 00 1 22237 LXD 3LBAR,1 PREFORM LEVEL ANALYSIS FOR , F1B19600 11233 -0534 00 4 71546 LXD ABAR,4 F1B19610 11234 0502 00 4 72032 CLS ALPHA-4,4 F1B19620 BINARY CARD NO. 9F140075 11235 0601 00 1 61375 STO LAMBDA,1 F1B19630 11236 0020 00 0 20717 TRA CMPCH $F1B19640 11237 0602 00 1 61376 SLW LAMBDA+1,1 F1B19650 11240 0500 00 0 22252 CLA NBAR F1B19660 11241 0771 00 0 00022 ARS 18 F1B19670 11242 0601 00 1 61377 STO LAMBDA+2,1 F1B19680 11243 1 77775 1 11244 TXI MS211,1,-3 F1B19690 11244 -0634 00 1 22237 MS211 SXD 3LBAR,1 F1B19700 11245 -0534 00 1 22252 LXD NBAR,1 F1B19710 11246 -0634 00 1 71545 SXD CBAR,1 F1B19720 11247 1 77777 1 11250 TXI MS212,1,-1 F1B19730 11250 -0634 00 1 22252 MS212 SXD NBAR,1 F1B19740 11251 1 00003 4 11252 TXI MS213,4,3 F1B19750 11252 -0634 00 4 71546 MS213 SXD ABAR,4 F1B19760 11253 0020 00 0 11016 TRA MS010 F1B19770 11254 -0534 00 4 71546 MS220 LXD ABAR,4 PREFORM LEVEL ANALYSIS FOR ) F1B19780 11255 0500 00 4 72032 CLA ALPHA-4,4 F1B19790 11256 0734 00 1 00000 PAX ,1 F1B19800 11257 -0634 00 1 71545 SXD CBAR,1 F1B19810 11260 1 00004 4 11261 TXI MS221,4,4 F1B19820 11261 -0634 00 4 71546 MS221 SXD ABAR,4 F1B19830 11262 0020 00 0 12053 TRA MS020 F1B19840 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 92 * SECTION ONE PASS TWO * RECORD 9F14 * BINARY CARD NO. 9F140076 11263 -0534 00 4 71546 MS230 LXD ABAR,4 PREFORM LEVEL ANALYSIS FOE ENDMK. F1B19850 11264 1 00003 4 11265 TXI MS231,4,3 F1B19860 11265 -3 00000 4 11267 MS231 TXL MS232,4,0 FINISHED, HAS LEVEL BEEN REDUCED TO ZERO, F1B19870 11266 ER0062 BSS 0 F1B19880 11266 0074 00 4 04504 TSX DIAG,4 NO, ERROR. F1B19890 11267 -0534 00 4 22241 MS232 LXD ARGCTR,4 WAS THIS AN ARITH FUNCTION STATEMENT F1B19900 11270 -3 00000 4 13436 TXL R00000,4,0 F1B19910 11271 -0500 00 0 71547 CAL FSTYPE YES, UPDATE FUNCTION TYPE AND F1B19920 11272 0400 00 0 05121 ADD L(1) COMPLETE FORSUB ENTRY BY ASSIGNING F1B19930 11273 -0534 00 1 03746 LXD BK,1 TYPE NUMBER. F1B19940 11274 0621 00 1 60635 STA FORSUB-1,1 X F1B19950 11275 -0602 00 0 22240 ORS ARERAS ALSO SAVE FOR LATER REFERENCE. F1B19960 11276 0020 00 0 13436 TRA R00000 F1B19970 11277 0020 00 0 11263 TRA MS230 ENDMK F1B19980 11300 0020 00 0 11324 TRA MS260 ( F1B19990 11301 0020 00 0 11231 TRA MS210 , F1B20000 11302 0020 00 0 11254 TRA MS220 ) F1B20010 11303 ER0063 BSS 0 F1B20020 11303 0074 00 4 04504 MSERR TSX DIAG,4 = F1B20030 11304 0020 00 0 11321 TRA MS250 - F1B20040 11305 0020 00 0 11321 TRA MS250 / F1B20050 11306 0020 00 0 11222 TRA MS200 . F1B20060 11307 0020 00 0 11321 TRA MS250 + F1B20070 11310 0767 00 0 00036 MS240 ALS 30 * SAVE * F1B20080 11311 TRBLKA BSS 0 F1B20090 BINARY CARD NO. 9F140077 11311 0602 00 0 05560 SLW E+1 X F1B20100 11312 0020 00 0 20774 TRA MS239 CHECK FOR RIGHT SIDE OF = SIGN (29)F1B20110 11313 0340 00 0 05116 CAS STAR IS IT * F1B20120 11314 0020 00 0 11030 TRA MS041 X F1B20130 11315 0020 00 0 11317 TRA MS241 YES, THIS WAS ** F1B20140 11316 0020 00 0 11030 TRA MS041 NO, GO COMPARE TO OTHER PUNCTUATION. F1B20150 11317 -0500 00 0 06214 MS241 CAL STRSTR REPLACE * WITH ** F1B20160 11320 0020 00 0 11322 TRA MS251 X F1B20170 11321 0767 00 0 00036 MS250 ALS 30 POSITION CHAR WHICH IS + OR - OR / F1B20180 11322 0602 00 0 05560 MS251 SLW E+1 PUT CURRENT OP IN E+1. F1B20190 11323 0020 00 0 20771 TRA MS238 CHECK FOR RIGHT SIDE OF = SIGN (29)F1B20200 11324 0767 00 0 00036 MS260 ALS 30 ( TO SYMBOL WORD F1B20210 11325 0602 00 0 05561 SLW E+2 X F1B20220 11326 0020 00 0 11526 TRA LATXL GO PREFORM LEVEL ANALYSIS FOR ( F1B20230 11327 0020 00 0 11340 TRA MS300 ENDMK F1B20240 11330 0020 00 0 11361 TRA MS320 ( F1B20250 11331 0020 00 0 11340 TRA MS300 , F1B20260 11332 0020 00 0 11340 TRA MS300 ) F1B20270 11333 0020 00 0 11411 TRA MS310 = F1B20280 11334 0020 00 0 11340 TRA MS300 - F1B20290 11335 0020 00 0 11340 TRA MS300 / F1B20300 11336 0074 00 4 04504 ER0064 TSX DIAG,4 . F1B20310 BINARY CARD NO. 9F140078 11337 0020 00 0 11340 TRA MS300 + F1B20320 11340 -0754 00 0 00000 MS300 PXD ,0 * CLEAR F1B20330 11341 TRBLKB BSS 0 BASE ADDRESS FOR TAGGED TRANSFER. F1B20340 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 93 * SECTION ONE PASS TWO * RECORD 9F14 * 11341 -0763 00 0 00006 LGL 6 GET FIRST CHAR OF SYMBOL. F1B20350 11342 0074 00 1 05466 TSX TESTFX+1,1 TEST FOR FIXED OR FLOATING POINT. F1B20360 DOUBLE PRECISION-COMPLEX ARITHMETIC PATCH. F1B20370 11343 0020 00 0 11352 TRA DP002 F1B20380 F1B20390 11344 -0500 00 0 03734 CAL EIFNO FIXED, PREPARE FORVAR ENTRY. F1B20400 11345 -0320 00 0 06216 ANA MASK1 X F1B20410 11346 0602 00 0 05604 SLW G X F1B20420 11347 0074 00 1 04405 TSX TET00,1 MAKE FORVAR ENTRY. F1B20430 11350 0 00000 0 00005 5 X F1B20440 11351 0020 00 0 11526 TRA LATXL GO PREFORM LEVEL ANALYSIS. F1B20450 DOUBLE PRECISION-COMPLEX ARITHMETIC PATCH. F1B20460 ENTER NON-SUBSCRIPTED VARIABLES ON RIGHT OF = IN DPLIST. F1B20470 11352 0500 00 0 04521 DP002 CLA MODECL F1B20480 11353 0402 00 0 05136 SUB L(D) F1B20490 11354 0100 00 0 11357 TZE MDLST2 F1B20500 11355 0402 00 0 05125 ITEST1 SUB L(5) F1B20510 11356 -0100 00 0 11526 TNZ LATXL F1B20520 11357 0074 00 4 04223 MDLST2 TSX DLIST2,4 ENTER NAME IN LIST OF DP OR I NON SUBSCRIPTE F1B20530 11360 0020 00 0 11526 TRA LATXL VARIABLES. F1B20540 F1B20550 11361 0600 00 0 71552 MS320 STZ CHSAVE CLEAR CELL FOR OP. F1B20560 11362 0 00000 0 11442 MS321 PZE MS330,,0 TXH ON LEFT, TXL ON RIGHT OF = SIGN. F1B20570 11363 0074 00 4 05272 TSX DIM1SR,4 THIS NAME FOLLOWED BY A ( CANNOT BE A F1B20580 11364 0020 00 0 11366 TRA *+2 FUNCTION REFERENCE ON THE LEFT OF = SIGN.F1B20590 BINARY CARD NO. 9F140079 11365 0020 00 0 11373 TRA MS321A THEREFORE IT MUST BE A SUBSCRIPTED VARIABLEF1B20600 11366 0074 00 4 05276 TSX DIM2SR,4 AND ITS NAME MUST BE IN ONE OF THE DIMEN- F1B20610 11367 0020 00 0 11371 TRA *+2 SION TABLES. SEARCH THESE TABLES AND IF THEF1B20620 11370 0020 00 0 11373 TRA MS321A NAME IS NOT IN ANY ONE OF THEM CALL THE F1B20630 11371 0074 00 4 05316 TSX DIM3SR,4 DIAGNOSTIC ROUTINE TO PRINT AN ERROR MES- F1B20640 11372 0074 00 4 04504 ER0072 TSX DIAG,4 SAGE. F1B20650 11373 0074 00 4 12076 MS321A TSX SS000X,4 GO PROCESS SUBSCRIPT COMBINATION. F1B20660 11374 0074 00 4 05250 TSX C0190,4 GET NEXT CHAR. F1B20670 11375 0402 00 0 05111 SUB EQUAL TEST FOR EQUAL SIGN. F1B20680 11376 -0100 00 0 11303 TNZ MSERR NO, ERROR. F1B20690 11377 0534 00 4 05123 MS322 LXA L(3),4 MOVE CONTENTS OF E WORDS TO LEFT WORDS. F1B20700 11400 0560 00 4 05562 MS323 LDQ E+3,4 X F1B20710 11401 -0600 00 4 05611 STQ LEFT+3,4 X F1B20720 11402 2 00001 4 11400 TIX MS323,4,1 X F1B20730 11403 -0500 00 0 04174 MS311 CAL TXLOP SET SWITCHES FOR RIGHT SIDE SCAN. F1B20740 11404 0630 00 0 11157 STP MS093 X F1B20750 11405 0630 00 0 11411 STP MS310 X F1B20760 11406 0630 00 0 11362 STP MS321 X F1B20770 11407 0760 00 0 00141 SLN 1 TURN = OR ) LITE ON. F1B20780 11410 0020 00 0 11016 TRA MS010 GO SCAN NEXT ELEMENT. F1B20790 11411 0 00000 0 11303 MS310 PZE MSERR,,0 TXH ON LEFT, TXL ON RIGHT OF = SIGN. F1B20800 11412 0600 00 0 71552 STZ CHSAVE CLEAR F1B20810 BINARY CARD NO. 9F140080 11413 -0754 00 0 00000 MS325 PXD ,0 CLEAR AC. F1B20820 11414 -0763 00 0 00006 LGL 6 GET FIRST CHAR OF SYMBOL. F1B20830 11415 0074 00 1 05466 TSX TESTFX+1,1 TEST FOR FIXED OR FLOATING POINT F1B20840 DOUBLE PRECISION-COMPLEX ARITHMETIC PATCH. F1B20850 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 94 * SECTION ONE PASS TWO * RECORD 9F14 * 11416 0020 00 0 11425 TRA DP003 F1B20860 F1B20870 11417 -0500 00 0 03734 CAL EIFNO FIXED, PREPARE FORVAL ENTRY. F1B20880 11420 -0320 00 0 06216 ANA MASK1 X F1B20890 11421 0602 00 0 05604 SLW G X F1B20900 11422 0074 00 1 04405 TSX TET00,1 MAKE FORVAL ENTRY. F1B20910 11423 0 00000 0 00006 6 X F1B20920 11424 0020 00 0 11377 TRA MS322 F1B20930 F1B20940 ENTER NON-SUBSCRIPTED VARIABLES ON LEFT OF = IN DPLIST. F1B20950 11425 0500 00 0 04521 DP003 CLA MODECL F1B20960 11426 0402 00 0 05136 SUB L(D) F1B20970 11427 0100 00 0 11432 TZE *+3 F1B20980 11430 0402 00 0 05125 SUB L(5) F1B20990 11431 -0100 00 0 11377 TNZ MS322 F1B21000 F1B21010 PREVENT ENTRY OF QUASI-ARITHMETIC SYMBOLS FOR IF AND CALL F1B21020 11432 0500 00 0 05561 CLA E+2 F1B21030 11433 0340 00 0 05147 CAS IFSYM2 F1B21040 11434 0020 00 0 11436 TRA *+2 F1B21050 11435 0020 00 0 11377 TRA MS322 IF (...) STATEMENT, DO NOT ENTER F1B21060 11436 0402 00 0 05150 SUB CALLSM F1B21070 11437 0100 00 0 11377 TZE MS322 CALL NAME( ARG,...) STATEMENT, DO NOT ENTERF1B21080 11440 0074 00 4 04223 MDLST3 TSX DLIST2,4 NEITHER, ENTER VARIABLE IN DLST2 F1B21090 BINARY CARD NO. 9F140081 11441 0020 00 0 11377 TRA MS322 F1B21100 F1B21110 F1B21120 11442 0074 00 4 05272 MS330 TSX DIM1SR,4 SEARCH FOR THIS NAME IN THE DIM1, DIM2, F1B21130 11443 0020 00 0 11445 TRA MS331 AND DIM3 TABLES. IF IT IS FOUND IN ONE OF F1B21140 11444 0020 00 0 11452 TRA MS333 THESE TABLES IT IS A SUBSCRIPTED VARIABLE F1B21150 11445 0074 00 4 05276 MS331 TSX DIM2SR,4 OF THAT NUMBER OF DIMENSIONS. IF IT IS NOT F1B21160 11446 0020 00 0 11450 TRA MS332 FOUND IN ANY DIMENSION TABLE THEN IT IS F1B21170 11447 0020 00 0 11452 TRA MS333 ASSUMED TO BE THE NAME OF A FORTRAN II F1B21180 11450 0074 00 4 05316 MS332 TSX DIM3SR,4 SUBROUTINE OR FUNCTION COMPILED SEPARATELY.F1B21190 11451 0020 00 0 11454 TRA MS334 X F1B21200 11452 0074 00 4 12076 MS333 TSX SS000X,4 GO PROCESS SUBSCRIPT COMBINATION. F1B21210 11453 0020 00 0 11530 TRA LATXH GO PREFORM LEVEL ANALYSIS. F1B21220 11454 -0500 00 0 06163 MS334 CAL FNIND NOT FOUND, TREAT AS FUNCTION NAME. F1B21230 11455 0602 00 0 71551 SLW FNBITS X F1B21240 11456 0074 00 1 04405 TSX TET00,1 ENTER NAME IN CLOSUB TABLE. F1B21250 11457 0 00000 0 00011 9 X F1B21260 11460 0760 00 0 00142 MS335 SLN 2 TURN FUNCTION LITE ON. F1B21270 11461 0020 00 0 11526 TRA LATXL GO PREFORM LEVEL ANALYSIS. F1B21280 11462 0600 00 0 71552 HOLL STZ CHSAVE CLEAR CHSAVE F1B21290 11463 -0500 00 0 06301 CAL HOLCNT GET CURRENT H(+I WORD F1B21300 11464 0602 00 0 05561 SLW E+2 F1B21310 11465 0534 00 2 71556 LXA N,2 GET NUMBER OF CHARACTERS IN THIS ARG F1B21320 11466 0534 00 4 05251 LXA XCHCTR,4 GET CURRENT RESIDU CHARACTER COUNT. F1B21330 BINARY CARD NO. 9F140082 11467 0560 00 0 05611 LDQ RESIDU GET CURRENT RESIDU WORD F1B21340 11470 0534 00 1 05126 C3351 LXA L(6),1 SET TO COLLECT SIX CHARS F1B21350 11471 -0754 00 0 00000 PXD 0,0 CLEAR AC F1B21360 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 95 * SECTION ONE PASS TWO * RECORD 9F14 * 11472 -2 00001 4 11505 C3352 TNX C3354,4,1 TEST FOR NO MORE CHARS IN RESIDU F1B21370 11473 -0763 00 0 00006 C33525 LGL 6 GET NEXT CHAR F1B21380 11474 0602 00 0 05552 SLW 1G STORE WORD F1B21390 11475 -0320 00 0 05105 ANA ENDMK BLANK ALL EXCEPT CURRENT CHAR F1B21400 11476 0402 00 0 05105 SUB ENDMK TEST FOR INTERNAL ENDMK F1B21410 11477 -0100 00 0 11501 TNZ C3353 F1B21420 11500 0074 00 4 04504 ER0065 TSX DIAG,4 YES, ERROR, GO TO DIAGNOSTIC. F1B21430 11501 -0500 00 0 05552 C3353 CAL 1G RETREIVE WORD F1B21440 11502 -2 00001 2 11515 TNX C3358,2,1 TEST FOR ALL CHARS COLLECTED F1B21450 11503 -2 00001 1 11513 TNX C3356,1,1 TEST FOR SIX CHARS COLLECTED F1B21460 11504 0020 00 0 11472 TRA C3352 NOT SIX CHARS YET, CONTINUE COLLECTINGF1B21470 11505 -0534 00 4 05171 C3354 LXD FWA,4 LOAD MQ WITH NEXT F REGION WORD F1B21480 11506 0560 00 4 00000 LDQ 0,4 F1B21490 11507 1 77777 4 11510 TXI C3355,4,-1 UPDATE FWA F1B21500 11510 -0634 00 4 05171 C3355 SXD FWA,4 F1B21510 11511 0534 00 4 05126 LXA L(6),4 RESET MQ CHAR COUNT TO SIX F1B21520 11512 0020 00 0 11473 TRA C33525 CONTINUE COLLECTING F1B21530 11513 0074 00 1 12065 C3356 TSX C3390,1 GO TO ENTER WORD IN HOLARG TABLE F1B21540 11514 1 00000 0 11470 C3357 TXI C3351,0,** RETURN TO CONTINUE COLLECTING F1B21550 BINARY CARD NO. 9F140083 11515 -0600 00 0 05611 C3358 STQ RESIDU UPDATE RESIDU F1B21560 11516 0634 00 4 05251 SXA XCHCTR,4 UPDATE CHARACTER COUNT. F1B21570 11517 -2 00001 1 11523 TNX C3360,1,1 TEST FOR SIX CHARS IN AC, DEC IR1 F1B21580 11520 0560 00 0 05155 LDQ BLANKS NOT SIX CHARS, PREPARE TO ADD BLANKS F1B21590 11521 -0763 00 0 00006 C3359 LGL 6 ADD BLANKS F1B21600 11522 2 00001 1 11521 TIX C3359,1,1 F1B21610 11523 0074 00 1 12065 C3360 TSX C3390,1 GO TO ENTER WORD IN HOLARG TABLE F1B21620 11524 -0500 00 0 05156 CAL ALL1 GET WORD OF ONES F1B21630 11525 0074 00 1 12065 TSX C3390,1 GO TO ENTER WORD IN HOLARG TABLE F1B21640 LEVEL ANALYSIS F1B21650 11526 -0500 00 0 04174 LATXL CAL TXLOP F1B21660 11527 0020 00 0 11531 TRA LATXL+3 F1B21670 11530 -0500 00 0 04200 LATXH CAL TXHOP F1B21680 11531 0630 00 0 12052 STP CM4105 F1B21690 11532 0500 00 0 11157 CLA MS093 GET LEFT-RIGHT SWITCH FROM SCAN AND F1B21700 11533 -0120 00 0 11535 TMI *+2 TEST FOR LEFT SIDE OF EQUAL SIGN. F1B21710 11534 0074 00 4 04504 ER0073 TSX DIAG,4 YES IS ERROR, GO TO DIAGNOSTIC. F1B21720 11535 0534 00 1 05120 LA0000 LXA L(0),1 F1B21730 11536 0500 00 0 05561 CLA E+2 F1B21740 11537 -0760 00 0 00142 SLT 2 IS THIS A FUNCTION NAME F1B21750 11540 0020 00 0 11601 TRA LA0000+36 NO F1B21760 11541 0760 00 0 00142 SLN 2 YES - TURN F LITE BACK ON F1B21770 11542 -0534 00 4 03746 LXD BK,4 IS FORSUB EMPTY F1B21780 BINARY CARD NO. 9F140084 11543 -3 00000 4 11552 TXL LA0000+13,4,0 YES. GO SET FS BITS TO 0 F1B21790 11544 -0634 00 4 11551 SXD LA0000+12,4 F1B21800 11545 0340 00 1 60636 CAS FORSUB,1 SEARCH FN NAME IN FORSUB F1B21810 11546 1 77776 1 11551 TXI LA0000+12,1,-2 F1B21820 11547 0020 00 0 11554 TRA LA0000+15 F1B21830 11550 1 77776 1 11551 TXI LA0000+12,1,-2 F1B21840 11551 3 00000 1 11545 TXH LA0000+8,1,0 F1B21850 11552 0600 00 0 71550 STZ FSBITS SET FSBITS TO 0 F1B21860 11553 0020 00 0 11566 TRA LA0000+25 F1B21870 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 96 * SECTION ONE PASS TWO * RECORD 9F14 * 11554 -0500 00 1 60637 CAL FORSUB+1,1 FN NAME IN FORSUB F1B21880 11555 -0320 00 0 05117 ANA MASK2 EXTRACT TYPE NUMBER F1B21890 11556 -0534 00 4 22241 LXD ARGCTR,4 IS THIS A FUNCTION STATEMENT F1B21900 11557 -3 00000 4 11563 TXL LA0000+22,4,0 NO F1B21910 11560 0340 00 0 71547 CAS FSTYPE YES - UPDATE FS TYPE F1B21920 11561 0621 00 0 71547 STA FSTYPE F1B21930 11562 3 00000 0 00000 TXH 0,0,0 F1B21940 11563 0767 00 0 00007 ALS 7 F1B21950 11564 -0501 00 0 06157 ORA FSIND F1B21960 11565 0602 00 0 71550 SLW FSBITS F1B21970 11566 -0534 00 1 22237 LXD 3LBAR,1 LOAD LA COUNTERS F1B21980 11567 -0534 00 2 22252 LXD NBAR,2 F1B21990 11570 -0534 00 4 71546 LXD ABAR,4 F1B22000 BINARY CARD NO. 9F140085 11571 -3 00000 1 11615 TXL LA0003,1,0 F1B22010 11572 3 67630 1 11574 TXH LA0001,1,-LAMBSZ F1B22020 11573 0074 00 4 04504 ER0066 TSX DIAG,4 ERROR..LAMBDA TABLE EXCEEDED. F1B22030 11574 3 75745 2 11576 LA0001 TXH LA0002,2,-BETASZ-1 F1B22040 11575 0074 00 4 04504 ER0067 TSX DIAG,4 ERROR..BETA TABLE EXCEEDED F1B22050 11576 -3 00000 4 11615 LA0002 TXL LA0003,4,0 F1B22060 11577 3 77032 4 11615 TXH LA0003,4,-ALPHSZ F1B22070 11600 0074 00 4 04504 ER0068 TSX DIAG,4 ERROR..ALPHA TABLE EXCEEDED F1B22080 11601 -0534 00 4 22241 LXD ARGCTR,4 VARIABLE OR ( F1B22090 11602 -3 00000 4 11552 TXL LA0000+13,4,0 NOT AN FS - GO SET FS BITS TO 0 F1B22100 11603 -0634 00 4 11610 SXD LA0000+43,4 FUNCTION STATEMENT F1B22110 11604 0340 00 1 71557 CAS ARGREG,1 SEARCH ARGUMENT (DUMMY VARIABLE) TABLE F1B22120 11605 1 77777 1 11610 TXI LA0000+43,1,-1 F1B22130 11606 0020 00 0 11612 TRA MS1018 F1B22140 11607 1 77777 1 11610 TXI LA0000+43,1,-1 F1B22150 11610 3 00000 1 11604 TXH LA0000+39,1,0 F1B22160 11611 0020 00 0 11552 TRA LA0000+13 NOT PRESENT - GO SET FSBITS TO 0 F1B22170 11612 -0754 00 1 00000 MS1018 PXD 0,1 PRESENT - STORE TYPE IN FSBITS F1B22180 11613 0771 00 0 00013 ARS 11 F1B22190 11614 0020 00 0 11564 TRA LA0000+23 F1B22200 11615 0500 00 0 11207 LA0003 CLA MS9002 =CM4200 ENTRY TO COUNTER ROUTINE F1B22210 11616 0621 00 0 12016 STA LA4320 F1B22220 BINARY CARD NO. 9F140086 11617 -0754 00 0 00000 PXD 0,0 F1B22230 11620 0560 00 0 05561 LDQ E+2 INITIALIZE ALL POSSIBLE OPERAND APPEARANCESF1B22240 11621 -0600 00 1 61410 STQ LAMBDA+11,1 F1B22250 11622 -0600 00 1 61405 STQ LAMBDA+8,1 F1B22260 11623 -0600 00 1 61402 STQ LAMBDA+5,1 F1B22270 11624 -0763 00 0 00006 LGL 6 F1B22280 11625 0601 00 0 05602 STO FIRSTC F1B22290 11626 0402 00 0 05106 SUB OPEN F1B22300 11627 0100 00 0 11636 TZE LA003 F1B22310 11630 0500 00 0 11032 CLA MS4007 F1B22320 11631 -0760 00 0 00142 SLT 2 FUNCTION LITE F1B22330 11632 0020 00 0 11635 TRA LA002 F1B22340 11633 0760 00 0 00142 SLN 2 F1B22350 11634 0500 00 0 11664 CLA FINI03 F1B22360 11635 0621 00 0 12016 LA002 STA LA4320 F1B22370 11636 0500 00 0 05557 LA003 CLA E F1B22380 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 97 * SECTION ONE PASS TWO * RECORD 9F14 * 11637 0601 00 1 61406 STO LAMBDA+9,1 F1B22390 11640 0601 00 1 61403 STO LAMBDA+6,1 F1B22400 11641 0601 00 1 61400 STO LAMBDA+3,1 F1B22410 11642 -0500 00 0 06211 CAL ADSPOP F1B22420 11643 0602 00 1 61412 SLW LAMBDA+13,1 F1B22430 11644 0602 00 1 61407 SLW LAMBDA+10,1 F1B22440 BINARY CARD NO. 9F140087 11645 0602 00 1 61404 SLW LAMBDA+7,1 F1B22450 11646 -0754 00 0 00000 PXD ,0 F1B22460 11647 0560 00 0 05560 LDQ E+1 OP CODE F1B22470 11650 -0600 00 1 61376 STQ LAMBDA+1,1 F1B22480 11651 -0763 00 0 00006 LGL 6 BRANCH ON OP CODE F1B22490 11652 0340 00 0 05116 CAS STAR F1B22500 11653 0020 00 0 11715 TRA LA0015 / SIGN F1B22510 11654 0020 00 0 11705 TRA LA0010 * OR ** SIGN F1B22520 11655 -0760 00 0 00142 SLT 2 + OR - SIGN F1B22530 11656 0020 00 0 11672 TRA LA0044 F1B22540 11657 1 77775 2 11660 TXI MS1033,2,-3 -N TO -(N+3) F1B22550 11660 -0754 00 2 00000 MS1033 PXD ,2 OP IS FUNCTION F1B22560 11661 0771 00 0 00022 ARS 18 F1B22570 11662 0601 00 1 61413 STO LAMBDA+14,1 STO (N+3) IN LAMBDA+3 (L+4)+2 F1B22580 11663 1 00001 2 11664 TXI FINI03,2,1 -(N+3) TO - (N+2) F1B22590 11664 0754 00 2 12060 FINI03 PXA CM4300,2 F1B22600 11665 -0760 00 0 00003 SSM F1B22610 11666 0601 00 1 61411 STO LAMBDA+12,1 STO -(N+2) IN LAMBDA+3 (L+4) F1B22620 11667 -0760 00 0 00141 LA0041 SLT 1 F1B22630 11670 1 00001 2 11761 TXI L43130,2,1 BINARY -(N+2) TO -(N+1) F1B22640 11671 1 00001 2 11725 TXI L13130,2,1 UNARY F1B22650 11672 0500 00 0 05602 LA0044 CLA FIRSTC +OR-DATA OR OPEN PAREN F1B22660 BINARY CARD NO. 9F140088 11673 0340 00 0 05106 CAS OPEN EXAMINE SYMBOL F1B22670 11674 0020 00 0 11676 TRA LA0050 F1B22680 11675 1 77775 2 11701 TXI LA0058,2,-3 -N TO -(N+3) F1B22690 11676 -0760 00 0 00141 LA0050 SLT 1 DATA F1B22700 11677 1 77777 2 11765 TXI LA4000,2,-1 BINARY -(N) TO-(N+1) F1B22710 11700 1 77777 2 11731 TXI LA1000,2,-1 UNARY -(N) TO -(N+1) F1B22720 11701 0754 00 2 00000 LA0058 PXA ,2 +OR-OPEN PAREN F1B22730 11702 0601 00 1 61410 STO LAMBDA+11,1 STO S(N+3) IN LAMBDA +3(L+3)+2 F1B22740 11703 0400 00 0 05121 ADD L(1) FORM -(N+2) IN ADD (ACC) F1B22750 11704 1 00001 2 11667 TXI LA0041,2,1 F1B22760 11705 0162 00 0 11715 LA0010 TQP LA0015 GO TO * ROUTINE F1B22770 11706 -0760 00 0 00142 SLT 2 ** F1B22780 11707 0020 00 0 11711 TRA LA0072 F1B22790 11710 1 77777 2 11743 TXI L23000,2,-1 -N TO -(N+1) F1B22800 11711 0500 00 0 05602 LA0072 CLA FIRSTC F1B22810 11712 0402 00 0 05106 SUB OPEN F1B22820 11713 -0100 00 0 11755 TNZ LA2000 F1B22830 11714 1 77777 2 11737 TXI L22000,2,-1 -N TO -(N+1) F1B22840 11715 -0760 00 0 00142 LA0015 SLT 2 * OR / F1B22850 11716 0020 00 0 11720 TRA LA0021 F1B22860 11717 1 77776 2 12023 TXI L33000,2,-2 -N TO -(N+2) F1B22870 11720 0500 00 0 05602 LA0021 CLA FIRSTC F1B22880 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 98 * SECTION ONE PASS TWO * RECORD 9F14 * BINARY CARD NO. 9F140089 11721 0340 00 0 05106 CAS OPEN F1B22890 11722 1 77777 2 12035 TXI LA3000,2,-1 F1B22900 11723 1 77776 2 12017 TXI L32000,2,-2 -N TO -N(+2) F1B22910 11724 1 77777 2 12035 TXI LA3000,2,-1 F1B22920 11725 0602 00 4 72041 L13130 SLW ALPHA+3,4 STO -(N+2) IN ALPHA+A+3 F1B22930 11726 0502 00 0 05120 CLS L(0) F1B22940 11727 0601 00 1 61406 STO LAMBDA+9,1 STO -0 IN LAMBDA +3(L+3) F1B22950 11730 0760 00 0 00141 SLN 1 F1B22960 11731 0502 00 0 71545 LA1000 CLS CBAR UNARY + OR - DATA F1B22970 11732 0771 00 0 00022 ARS 18 F1B22980 11733 0602 00 4 72036 SLW ALPHA,4 STO -C IN ALPHA+A F1B22990 11734 1 77775 4 11735 TXI LA1040,4,-3 -A TO - (A+3) F1B23000 11735 -0634 00 4 71546 LA1040 SXD ABAR,4 F1B23010 11736 0020 00 0 11766 TRA LA4010 F1B23020 11737 0754 00 2 00000 L22000 PXA ,2 ** OPEN PAREN F1B23030 11740 0601 00 1 61402 STO LAMBDA+5,1 STO S(N+1) IN LAMBDA+3(L+1)+2 F1B23040 11741 0400 00 0 05121 ADD L(1) F1B23050 11742 1 00001 2 11751 TXI L23130,2,1 -(N+1) TO -N F1B23060 11743 0754 00 2 00000 L23000 PXA ,2 ** FUNCTION F1B23070 11744 0601 00 1 61405 STO LAMBDA+8,1 STO S(N+1) IN LAMBDA+3(L+2)+2 F1B23080 11745 0400 00 0 05121 ADD L(1) F1B23090 11746 -0760 00 0 00003 SSM F1B23100 BINARY CARD NO. 9F140090 11747 1 00001 2 11750 TXI L23090,2,1 -(N+1) TO -N F1B23110 11750 0601 00 1 61403 L23090 STO LAMBDA+6,1 STO -N IN LAMBDA+3(L+2) F1B23120 11751 0602 00 4 72036 L23130 SLW ALPHA,4 STO -N IN ALPHA +A F1B23130 11752 0502 00 0 05120 CLS L(0) F1B23140 11753 0601 00 1 61400 STO LAMBDA+3,1 STO -0 IN LAMBDA+3(L+1) F1B23150 11754 0760 00 0 00141 SLN 1 F1B23160 11755 0502 00 4 72035 LA2000 CLS ALPHA-1,4 ** DATA F1B23170 11756 0601 00 1 61375 STO LAMBDA,1 F1B23180 11757 0500 00 0 22252 CLA NBAR F1B23190 11760 1 00006 1 12005 TXI LA4180,1,6 F1B23200 11761 0602 00 4 72036 L43130 SLW ALPHA,4 STO -(N+2) IN ALPHA+A F1B23210 11762 0502 00 0 05120 CLS L(0) F1B23220 11763 0601 00 1 61406 STO LAMBDA+9,1 STO -0 IN LAMBDA+3(L+3) F1B23230 11764 0760 00 0 00141 SLN 1 F1B23240 11765 0502 00 4 72033 LA4000 CLS ALPHA-3,4 F1B23250 11766 0601 00 1 61375 LA4010 STO LAMBDA,1 STO C(ALPHA+A-3) IN LAMBDA+3L F1B23260 11767 0502 00 0 22252 CLS NBAR F1B23270 11770 0771 00 0 00022 ARS 18 F1B23280 11771 0602 00 4 72034 SLW ALPHA-2,4 STO-N IN ALPHA+A-2 F1B23290 11772 0602 00 1 61377 SLW LAMBDA+2,1 STO S(N) IN LAMBDA+3L+2 F1B23300 11773 0601 00 1 61400 STO LAMBDA+3,1 STO -N IN LAMBDA+3(L+1) F1B23310 11774 0754 00 2 00000 PXA ,2 F1B23320 BINARY CARD NO. 9F140091 11775 0601 00 1 61402 STO LAMBDA+5,1 STO S(N+1) IN LAMBDA+3(L+1)+2 F1B23330 11776 0601 00 4 72035 STO ALPHA-1,4 STO-(N+1) IN ALPHA+A-1 F1B23340 11777 -0760 00 0 00003 SSM F1B23350 12000 0601 00 1 61403 STO LAMBDA+6,1 STO -(N+1) IN LAMBDA+3(L+2) F1B23360 12001 1 77777 2 12002 TXI LA4150,2,-1 -(N+1) TO -(N+2) F1B23370 12002 -0500 00 0 06213 LA4150 CAL ADSTAR F1B23380 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 99 * SECTION ONE PASS TWO * RECORD 9F14 * 12003 0602 00 1 61401 SLW LAMBDA+4,1 STO * IN LAMBDA+3(L+1)+1 F1B23390 12004 -0754 00 2 00000 LA4170 PXD ,2 F1B23400 12005 0771 00 0 00022 LA4180 ARS 18 F1B23410 12006 0601 00 1 61405 STO LAMBDA+8,1 STOS(N+2) IN LAMBDA+3(L+2)+2 F1B23420 12007 -0602 00 1 61406 ORS LAMBDA+9,1 STO -(N+2) IN LAMBDA+3(L+3) F1B23430 12010 -0500 00 0 06214 CAL STRSTR F1B23440 12011 0602 00 1 61404 SLW LAMBDA+7,1 STO SPOP IN LAMBDA+3(L+2)+1 F1B23450 12012 -0500 00 0 06211 CAL ADSPOP F1B23460 12013 -0501 00 0 71550 ORA FSBITS F1B23470 12014 -0501 00 0 71551 ORA FNBITS F1B23480 12015 0602 00 1 61407 SLW LAMBDA+10,1 STO SPOP IN LAMBDA+3(L+3)+1 F1B23490 12016 1 77767 1 00000 LA4320 TXI **,1,-9 F1B23500 12017 0754 00 2 00000 L32000 PXA ,2 */ OPEN PAREN F1B23510 12020 0601 00 1 61405 STO LAMBDA+8,1 STO 5(N+2) IN LAMBDA+3(L+2)+2 F1B23520 12021 0400 00 0 05121 ADD L(1) F1B23530 12022 1 00001 2 12031 TXI L33130,2,1 -(N+2) TO -(N+1) F1B23540 BINARY CARD NO. 9F140092 12023 0754 00 2 00000 L33000 PXA ,2 */ FUNCTION F1B23550 12024 0601 00 1 61410 STO LAMBDA+11,1 STO S(N+2) IN LAMBDA+3(L+3)+2 F1B23560 12025 0400 00 0 05121 ADD L(1) F1B23570 12026 -0760 00 0 00003 SSM F1B23580 12027 1 00001 2 12030 TXI L33090,2,1 -(N+2) TO -(N+1) F1B23590 12030 0601 00 1 61406 L33090 STO LAMBDA+9,1 STO -(N+1) IN LAMBDA+3(L+3) F1B23600 12031 0602 00 4 72036 L33130 SLW ALPHA,4 STO -(N+1) IN ALPHA+A F1B23610 12032 0502 00 0 05120 CLS L(0) F1B23620 12033 0601 00 1 61403 STO LAMBDA+6,1 F1B23630 12034 0760 00 0 00141 SLN 1 F1B23640 12035 0502 00 4 72034 LA3000 CLS ALPHA-2,4 */ DATA F1B23650 12036 0601 00 1 61375 STO LAMBDA,1 STO C(ALPHA+A-2) IN LAMBDA+3L F1B23660 12037 0502 00 0 22252 CLS NBAR F1B23670 12040 0771 00 0 00022 ARS 18 F1B23680 12041 0602 00 4 72035 SLW ALPHA-1,4 STO -N IN ALPHA+A-1 F1B23690 12042 0602 00 1 61377 SLW LAMBDA+2,1 STO S(N) IN LAMBDA+3L+2 F1B23700 12043 0601 00 1 61400 STO LAMBDA+3,1 STO -N IN LAMBDA+3(L+1) F1B23710 12044 1 00003 1 12004 TXI LA4170,1,3 F1B23720 12045 1 77775 1 12046 CM4100 TXI CM4101,1,-3 LA COUNTER MODIFICATION ROUTINES F1B23730 12046 -0634 00 1 22237 CM4101 SXD 3LBAR,1 F1B23740 12047 -0634 00 2 71545 CM4102 SXD CBAR,2 F1B23750 12050 1 77777 2 12051 TXI CM4104,2,-1 F1B23760 BINARY CARD NO. 9F140093 12051 -0634 00 2 22252 CM4104 SXD NBAR,2 F1B23770 12052 0 00000 0 11016 CM4105 PZE MS010,,0 F1B23780 12053 -0500 00 0 06213 MS020 CAL ADSTAR F1B23790 12054 0020 00 0 11017 TRA MS030 F1B23800 12055 1 77775 1 12056 CM4200 TXI CM4201,1,-3 F1B23810 12056 -0634 00 1 22237 CM4201 SXD 3LBAR,1 F1B23820 12057 1 77777 4 12063 TXI CM4303,4,-1 F1B23830 12060 1 77772 1 12061 CM4300 TXI CM4301,1,-6 F1B23840 12061 -0634 00 1 22237 CM4301 SXD 3LBAR,1 F1B23850 12062 1 77777 4 12063 TXI CM4303,4,-1 F1B23860 12063 -0634 00 4 71546 CM4303 SXD ABAR,4 F1B23870 12064 1 77777 2 12047 TXI CM4102,2,-1 F1B23880 CLOSED SUBROUTINE TO MAKE ENTRIES IN HOLARG TABLE F1B23890 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 100 * SECTION ONE PASS TWO * RECORD 9F14 * 12065 -0634 00 1 11514 C3390 SXD C3357,1 SAVE CALLING IR F1B23900 12066 0602 00 0 05552 SLW 1G MOVE WORD TO BE ENTERED TO 1G F1B23910 12067 0074 00 1 04405 TSX TET00,1 GO TO ENTER WORD IN HOLARG TABLE F1B23920 12070 0 00000 0 00015 13 F1B23930 12071 0500 00 0 06301 CLA HOLCNT F1B23940 12072 0400 00 0 05121 ADD L(1) UPDATE HOLCNT F1B23950 12073 0601 00 0 06301 STO HOLCNT F1B23960 12074 -0534 00 1 11514 LXD C3357,1 RELOAD CALLING IR F1B23970 12075 0020 00 1 00001 TRA 1,1 RETURN TO CALLER+1 F1B23980 PROGRAM TO SIMPLIFY THE TREATMENT OF RELATIVE ADDRESSES IN F1B23990 SECTION ONE THRU THE USE OF THE RA000 SUBROUTINE BY STATE B. F1B24000 12076 -0634 00 4 12137 SS000X SXD SSIR4,4 SAVE CALLING TAG. F1B24010 BINARY CARD NO. 9F140094 12077 0074 00 4 06573 TSX SS000,4 GO TO SUBSCRIPT SCAN AND ANALYSIS ROUTINE. F1B24020 12100 0074 00 4 06512 TSX RA000,4 GO TO RELATIVE ADDRESS COMPUTATION ROUTINE.F1B24030 12101 -0500 00 0 22247 CAL GTAG F1B24040 12102 -0320 00 0 06216 ANA MASK1 F1B24050 12103 0602 00 0 05572 SLW E+11 F1B24060 12104 0074 00 4 04177 TSX SIG1IX,4 GO ENTER THIS RELATIVE ADDRESS IN SIGMA1. F1B24070 12105 0767 00 0 00017 ALS 15 POSITION SIGMA TAG. F1B24080 12106 -0602 00 0 05557 ORS E ADD SIGMA TAG TO I-TAU TAGS IN E. F1B24090 12107 -0534 00 4 12137 LXD SSIR4,4 RELOAD CALLING TAG. F1B24100 12110 0020 00 4 00001 TRA 1,4 RETURN TO CALLER +1. F1B24110 F1B24120 ROYCNV DOES FIXED AND FLOATING POINT CONVERSION FOR SECTION F1B24130 ARITHMETIC. F1B24140 ROYCNV= ENTRY POINT FOR FIXED OR FLOATING POINT INTEGERS. F1B24150 12111 0601 00 0 71556 ROYCNV STO N SAVE DECIMAL DIGIT IN N. F1B24160 12112 0600 00 0 71553 STZ DOE CLEAR DOE (IMPLICIT EXPONENT). F1B24170 12113 0500 00 0 04521 CLA MODECL TEST WHETHER THIS STATEMENT IS LABELED F1B24180 12114 0402 00 0 05136 SUB L(D) AS DOUBLE PRECISION. F1B24190 12115 0100 00 0 12375 TZE DPCNV1 YES, GO TO DOUBLE PRECISION CONVERSION. F1B24200 12116 -0634 00 4 12120 SXD EXIT,4 SAVE C(XR4) FOR RETURN. F1B24210 12117 0500 00 0 12141 CLA CM1 PICK UP SWITCH CONTROL, F1B24220 12120 1 00000 0 12130 EXIT TXI IN2,0,** AND GO SET SWITCH. F1B24230 DECPNT= ENTRY POINT FOR FLOATING POINT FRACTIONS. F1B24240 12121 0600 00 0 71556 DECPNT STZ N CLEAR N (NO INTEGER). F1B24250 12122 0600 00 0 71553 STZ DOE CLEAR DOE (IMPLICIT EXPONENT). F1B24260 12123 0500 00 0 04521 CLA MODECL TEST WHETHER THIS STATEMENT IS LABELED F1B24270 12124 0402 00 0 05136 SUB L(D) AS DOUBLE PRECISION. F1B24280 BINARY CARD NO. 9F140095 12125 0100 00 0 12402 TZE DPCNV2 YES, GO TO DOUBLE PRECISION. F1B24290 12126 -0634 00 4 12120 SXD EXIT,4 SAVE C(XR4) FOR RETURN. F1B24300 12127 -0500 00 0 12141 NC7 CAL CM1 PICK UP SWITCH CONTROL. F1B24310 12130 0630 00 0 12151 IN2 STP CM2 SET SWITCHES CM2, AND F1B24320 12131 0630 00 0 12163 STP CM3 CM3. F1B24330 12132 0140 00 0 12133 TOV NC5 TURN OFF OV TRIGGER. F1B24340 12133 0074 00 4 05250 NC5 TSX C0190,4 * GO GET NEXT NB CHARACTER IN THE AC.F1B24350 12134 0602 00 0 71552 SLW CHSAVE SAVE IT FOR STATE B, AND THEN F1B24360 12135 0340 00 0 05140 CAS L(H) COMPARE IT WITH H. F1B24370 12136 1 00000 0 12140 TXI NC1,0,0 IF H, GO TO HEXIT. F1B24380 12137 1 00000 0 12304 SSIR4 TXI HEXIT,0,** IF NOT H, CONTINUE F1B24390 12140 0340 00 0 05104 NC1 CAS TEN AND COMPARE WITH TEN. F1B24400 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 101 * SECTION ONE PASS TWO * RECORD 9F14 * 12141 -3 00000 0 12155 CM1 TXL NC2,0,0 CHAR EXCEEDS 10, SO IS NON-NUMERIC.F1B24410 12142 -0754 00 0 00000 PXD ,0 CLEAR THE AC (MACHINE ERROR). F1B24420 12143 0601 00 0 71555 STO H CHARACTER IS NUMERIC, SO HOLD IT. F1B24430 12144 0500 00 0 71556 CLA N MULTIPLY THE PREVIOUS F1B24440 12145 0767 00 0 00002 ALS 2 PARTIAL RESULT (OR ZERO) F1B24450 12146 0400 00 0 71556 ADD N BY 10, F1B24460 12147 0767 00 0 00001 ALS 1 AND ADD IN F1B24470 12150 0400 00 0 71555 ADD H THE CURRENT DIGIT. F1B24480 12151 3 00000 0 12172 CM2 TXH NC3,0,0 SWITCH (NO TRANSFER IF INTEGER). F1B24490 12152 0140 00 0 12200 TOV NC4 TEST OVERFLOW, AND F1B24500 BINARY CARD NO. 9F140096 12153 0601 00 0 71556 STO N IF NONE, SAVE NEW PARTIAL RESULT. F1B24510 12154 1 00000 0 12133 TXI NC5,0,0 THEN GO PICK UP NEXT CHARACTER. F1B24520 12155 0340 00 0 05114 NC2 CAS POINT COMPARE NON-NUMERIC WITH A POINT. F1B24530 12156 1 00000 0 12163 TXI CM3,0,0 IF GREATER THAN 27, GO OUT. F1B24540 12157 1 00000 0 12127 TXI NC7,0,0 IF POINT, GO BACK AND SET SWITCH. F1B24550 12160 0340 00 0 12313 CAS L(E) IF LESS THAN 27, COMPARE WITH E. F1B24560 12161 1 00000 0 12163 TXI CM3,0,0 IF GREATER THAN 21, GO OUT. F1B24570 12162 1 00000 0 12202 TXI EC1,0,0 IF E, GO TO EXPONENT ROUTINE. F1B24580 12163 3 00000 0 12241 CM3 TXH FN4,0,0 SWITCH (NO TRANSFER IF INTEGER). F1B24590 12164 0500 00 0 71556 CLA N PICK UP CONVERTED CONSTANT, AND F1B24600 12165 0767 00 0 00022 MS9506 ALS 18 STORE IN THE F1B24610 12166 0601 00 0 05604 STO G DECREMENT OF G, AND F1B24620 12167 0074 00 4 04153 TSX FXCNIX,4 * GO MAKE FIXCON ENTRY. F1B24630 12170 -0501 00 0 06203 ORA FIXVAR CREATE INTERNAL FXD-PT VARIABLE,ANDF1B24640 12171 1 00000 0 12272 TXI EXITR,0,0 GO TAKE EXITR. F1B24650 12172 0140 00 0 12177 NC3 TOV NC8 IF THERE WAS NO OVERFLOW, F1B24660 12173 0601 00 0 71556 STO N SAVE PARTIAL RESULT, AND F1B24670 12174 0502 00 0 05121 CLS L(1) SUBTRACT 1 FROM DOE F1B24680 12175 0400 00 0 71553 NC9 ADD DOE TO ADJUST EXPONENT F1B24690 12176 0601 00 0 71553 STO DOE IN FINAL RESULT. F1B24700 12177 1 00000 0 12133 NC8 TXI NC5,0,0 THEN GO PICK UP NEXT CHARACTER. F1B24710 12200 0500 00 0 05121 NC4 CLA L(1) ADD 1 TO DOE , F1B24720 BINARY CARD NO. 9F140097 12201 1 00000 0 12175 TXI NC9,0,0 IF THERE WAS INTEGER OVERFLOW. F1B24730 12202 0074 00 4 05250 EC1 TSX C0190,4 * GO GET NEXT NB CHARACTER IN THE AC.F1B24740 12203 0602 00 0 71552 SLW CHSAVE SAVE IT FOR STATE B, AND F1B24750 12204 0600 00 0 71554 STZ EKE CLEAR EKE (EXPLICIT EXPONENT). F1B24760 12205 0340 00 0 05112 CAS 11Z COMPARE CHARACTER WITH A DASH. F1B24770 12206 1 00000 0 12236 TXI FN5,0,0 IF GREATER THAN 32, GO OUT. F1B24780 12207 1 00000 0 12215 TXI EC3,0,0 IF A DASH, SET EKE MINUS. F1B24790 12210 0340 00 0 05115 CAS 12Z IF LESS THAN 32, COMPARE WITH PLUS.F1B24800 12211 1 00000 0 12236 TXI FN5,0,0 IF GREATER THAN 16, GO OUT. F1B24810 12212 1 00000 0 12222 TXI EC6,0,0 IF PLUS, GO EXAMINE NEXT CHAR. F1B24820 12213 0340 00 0 05132 CAS MINUS IF LESS THAN 16,COMPARE WITH MINUS.F1B24830 12214 1 00000 0 12236 TXI FN5,0,0 IF GREATER THAN 12, GO OUT. F1B24840 12215 0502 00 0 71554 EC3 CLS EKE IF MINUS, SET EKE TO -0. F1B24850 12216 0340 00 0 05104 CAS TEN COMPARE WITH TEN. F1B24860 12217 1 00000 0 12236 TXI FN5,0,0 IF NON-NUMERIC, GO EXAMINE NEXT CH.F1B24870 12220 -0754 00 0 00000 EC4 PXD ,0 CLEAR ACC, F1B24880 12221 0601 00 0 71554 EC5 STO EKE SAVE PARTIAL RESULT(OR 0) IN EKE. F1B24890 12222 0074 00 4 05250 EC6 TSX C0190,4 * GO GET NEXT NB CHARACTER IN THE AC.F1B24900 12223 0602 00 0 71552 SLW CHSAVE SAVE IT FOR STATE B, F1B24910 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 102 * SECTION ONE PASS TWO * RECORD 9F14 * 12224 0340 00 0 05104 CAS TEN AND COMPARE WITH TEN. F1B24920 12225 1 00000 0 12236 TXI FN5,0,0 CHAR EXCEEDS 10, SO IS NON-NUMERIC.F1B24930 12226 -0754 00 0 00000 PXD ,0 CLEAR THE AC (MACHINE ERROR). F1B24940 BINARY CARD NO. 9F140098 12227 0601 00 0 71555 STO H CHARACTER IS NUMERIC, SO HOLD IT. F1B24950 12230 0500 00 0 71554 CLA EKE MULTIPLY THE PREVIOUS F1B24960 12231 0767 00 0 00002 ALS 2 PARTIAL RESULT (OR ZERO) F1B24970 12232 0400 00 0 71554 ADD EKE BY 10, F1B24980 12233 0767 00 0 00001 ALS 1 AND ADD IN F1B24990 12234 0361 00 0 71555 ACL H THE CURRENT DIGIT. F1B25000 12235 1 00000 0 12221 TXI EC5,0,0 CONTINUE UNTIL NON-NUMERIC IS MET. F1B25010 12236 0500 00 0 71554 FN5 CLA EKE COMBINE EXPLICIT EXPONENT F1B25020 12237 0400 00 0 71553 ADD DOE WITH IMPLICIT EXPONENT, F1B25030 12240 0601 00 0 71553 STO DOE AND SAVE IN DOE. F1B25040 12241 0500 00 0 71556 FN4 CLA N IF N CONTAINS ZERO, TAKE F1B25050 12242 0100 00 0 12267 TZE MS9500 FLO PT CONSTANT RETURN. F1B25060 12243 0621 00 0 12306 STA K1 PUT INTEGER INTO FLO PT WORD, F1B25070 12244 0771 00 0 00017 ARS 15 ADJUST, AND F1B25080 12245 0100 00 0 12247 TZE FN1 IF MORE THAN 15 BITS IN LENGTH F1B25090 12246 -0501 00 0 12307 ORA K2 AFFIX CORRECT EXPONENT. F1B25100 12247 0300 00 0 12306 FN1 FAD K1 THEN FLOATING ADD THE RESULT F1B25110 12250 -0773 00 0 00010 RQL 8 OF INTEGER CONVERSION, AND F1B25120 12251 0760 00 0 00010 RND ROUND --TO OBTAIN F1B25130 12252 -0501 00 0 12310 ORA K3 NORMALIZED RESULT. F1B25140 12253 0534 00 1 71553 LXA DOE,1 EXAMINE THE C(DOE), AND F1B25150 12254 -3 00000 1 12267 TXL MS9500,1,0 IF ZERO, TAKE FLO PT RETURN. F1B25160 BINARY CARD NO. 9F140099 12255 -3 00062 1 12257 TXL FN2,1,50 IF GREATER THAN 50, THEN F1B25170 12256 1 00000 0 12303 TXI CER,0,0 ERROR. --GO TO DIAGNOSTIC. F1B25180 12257 0560 00 0 71553 FN2 LDQ DOE DETERMINE WHETHER INTEGER WAS F1B25190 12260 0162 00 0 12275 TQP FN3 TO THE RIGHT OR TO THE LEFT OF DP. F1B25200 12261 0241 00 1 12374 FDP TAB,1 IF TO THE RIGHT, DIVIDE BY A F1B25210 12262 -0600 00 0 71556 STQ N SUITABLE CONSTANT F1B25220 12263 0500 00 0 71556 CLA N TO ADJUST RESULT F1B25230 12264 0361 00 0 12311 ACL K4 AND TEST FOR OUT OF RANGE. F1B25240 12265 -0760 00 0 00001 PBT IF P=1, SKIP TO ARITH RETURN. F1B25250 12266 1 00000 0 12303 TXI CER,0,0 ERROR. --GO TO DIAGNOSTIC. F1B25260 12267 0601 00 0 05604 MS9500 STO G STORE IN G, AND F1B25270 12270 0074 00 4 04157 TSX FLCNIX,4 * GO MAKE FLOCON ENTRY. F1B25280 12271 -0501 00 0 06177 ORA FLOVAR CREATE INTERNAL FLO-PT VARIABLE, F1B25290 12272 0602 00 0 05561 EXITR SLW E+2 SAVE VARIABLE IN E+2, F1B25300 12273 -0534 00 4 12120 LXD EXIT,4 RESTORE THE C(XR4), AND F1B25310 12274 0020 00 4 00002 TRA 2,4 * RETURN TO MAIN ROUTINE. F1B25320 12275 0601 00 0 71556 FN3 STO N IF INTEGER WAS SITUATED F1B25330 12276 0560 00 0 71556 LDQ N TO THE LEFT OF THE DECIMAL POINT, F1B25340 12277 0260 00 1 12374 FMP TAB,1 MULTIPLY BY A SUITABLE F1B25350 12300 0361 00 0 12312 ACL K5 CONSTANT TO ADJUST AND TEST RANGE. F1B25360 12301 -0760 00 0 00001 PBT IF P=1, SKIP TO ERROR. F1B25370 12302 1 00000 0 12267 TXI MS9500,0,0 RETURN TO ARITHMETIC ROUTINE. F1B25380 12303 ER0069 BSS 0 F1B25390 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 103 * SECTION ONE PASS TWO * RECORD 9F14 * BINARY CARD NO. 9F140100 12303 0074 00 4 04504 CER TSX DIAG,4 * CONVERSION ERROR, GO TO DIAGNOSTIC.F1B25400 12304 -0534 00 4 12120 HEXIT LXD EXIT,4 RESTORE THE C(XR4), AND F1B25410 12305 0020 00 4 00001 TRA 1,4 * RETURN TO MAIN ROUTINE. F1B25420 12306 +233000000000 K1 OCT 233000000000 CONSTANT USED BY ROYCNV. F1B25430 12307 +252000000000 K2 OCT 252000000000 CONSTANT USED BY ROYCNV. F1B25440 12310 +000400000000 K3 OCT 400000000 CONSTANT USED BY ROYCNV. F1B25450 12311 +335000000000 K4 OCT 335000000000 CONSTANT USED BY ROYCNV. F1B25460 12312 +043000000000 K5 OCT 43000000000 CONSTANT USED BY ROYCNV. F1B25470 12313 000000000025 L(E) BCD 100000E CONSTANT USED BY ROYCNV. F1B25480 12314 +375536246150 OCT 375536246150 48-TABLE USED BY ROYCNV. F1B25490 12315 +372430204755 OCT 372430204755 47-TABLE USED BY ROYCNV. F1B25500 12316 +366700324573 OCT 366700324573 46-TABLE USED BY ROYCNV. F1B25510 12317 +363546566774 OCT 363546566774 45-TABLE USED BY ROYCNV. F1B25520 12320 +360436770626 OCT 360436770626 44-TABLE USED BY ROYCNV. F1B25530 12321 +354713132676 OCT 354713132676 43-TABLE USED BY ROYCNV. F1B25540 12322 +351557257061 OCT 351557257061 42-TABLE USED BY ROYCNV. F1B25550 12323 +346445677216 OCT 346445677216 41-TABLE USED BY ROYCNV. F1B25560 12324 +342726145174 OCT 342726145174 40-TABLE USED BY ROYCNV. F1B25570 12325 +337570120775 OCT 337570120775 39-TABLE USED BY ROYCNV. F1B25580 12326 +334454732313 OCT 334454732313 38-TABLE USED BY ROYCNV. F1B25590 12327 +330741367021 OCT 330741367021 37-TABLE USED BY ROYCNV. F1B25600 12330 +325601137164 OCT 325601137164 36-TABLE USED BY ROYCNV. F1B25610 BINARY CARD NO. 9F140101 12331 +322464114135 OCT 322464114135 35-TABLE USED BY ROYCNV. F1B25620 12332 +316755023373 OCT 316755023373 34-TABLE USED BY ROYCNV. F1B25630 12333 +313612334311 OCT 313612334311 33-TABLE USED BY ROYCNV. F1B25640 12334 +310473426555 OCT 310473426555 32-TABLE USED BY ROYCNV. F1B25650 12335 +304770675742 OCT 304770675742 31-TABLE USED BY ROYCNV. F1B25660 12336 +301623713116 OCT 301623713116 30-TABLE USED BY ROYCNV. F1B25670 12337 +276503074077 OCT 276503074077 29-TABLE USED BY ROYCNV. F1B25680 12340 +273402374714 OCT 273402374714 28-TABLE USED BY ROYCNV. F1B25690 12341 +267635456171 OCT 267635456171 27-TABLE USED BY ROYCNV. F1B25700 12342 +264512676456 OCT 264512676456 26-TABLE USED BY ROYCNV. F1B25710 12343 +261410545213 OCT 261410545213 25-TABLE USED BY ROYCNV. F1B25720 12344 +255647410336 OCT 255647410336 24-TABLE USED BY ROYCNV. F1B25730 12345 +252522640262 OCT 252522640262 23-TABLE USED BY ROYCNV. F1B25740 12346 +247417031702 OCT 247417031702 22-TABLE USED BY ROYCNV. F1B25750 12347 +243661534466 OCT 243661534466 21-TABLE USED BY ROYCNV. F1B25760 12350 +240532743536 OCT 240532743536 20-TABLE USED BY ROYCNV. F1B25770 12351 +235425434430 OCT 235425434430 19-TABLE USED BY ROYCNV. F1B25780 12352 +231674055532 OCT 231674055532 18-TABLE USED BY ROYCNV. F1B25790 12353 +226543212741 OCT 226543212741 17-TABLE USED BY ROYCNV. F1B25800 12354 +223434157116 OCT 223434157116 16-TABLE USED BY ROYCNV. F1B25810 12355 +217706576512 OCT 217706576512 15-TABLE USED BY ROYCNV. F1B25820 12356 +214553630410 OCT 214553630410 14-TABLE USED BY ROYCNV. F1B25830 BINARY CARD NO. 9F140102 12357 +211443023471 OCT 211443023471 13-TABLE USED BY ROYCNV. F1B25840 12360 +205721522451 OCT 205721522451 12-TABLE USED BY ROYCNV. F1B25850 12361 +202564416672 OCT 202564416672 11-TABLE USED BY ROYCNV. F1B25860 12362 +177452013710 OCT 177452013710 10-TABLE USED BY ROYCNV. F1B25870 12363 +173734654500 OCT 173734654500 09-TABLE USED BY ROYCNV. F1B25880 12364 +170575360400 OCT 170575360400 08-TABLE USED BY ROYCNV. F1B25890 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 104 * SECTION ONE PASS TWO * RECORD 9F14 * 12365 +165461132000 OCT 165461132000 07-TABLE USED BY ROYCNV. F1B25900 12366 +161750220000 OCT 161750220000 06-TABLE USED BY ROYCNV. F1B25910 12367 +156606500000 OCT 156606500000 05-TABLE USED BY ROYCNV. F1B25920 12370 +153470400000 OCT 153470400000 04-TABLE USED BY ROYCNV. F1B25930 12371 +147764000000 OCT 147764000000 03-TABLE USED BY ROYCNV. F1B25940 12372 +144620000000 OCT 144620000000 02-TABLE USED BY ROYCNV. F1B25950 12373 +141500000000 OCT 141500000000 01-TABLE USED BY ROYCNV. F1B25960 12374 +136400000000 TAB OCT 136400000000 00-TABLE USED BY ROYCNV. F1B25970 F1B25980 DOUBLE PRECISION CONSTANT CONVERSION ROUTINE F1B25990 F1B26000 12375 0600 00 0 12756 DPCNV1 STZ N1 F1B26010 12376 0600 00 0 12757 STZ DPWC F1B26020 12377 -0634 00 4 12401 SXD DEXIT,4 SAVE C(XR4) FOR RETURN. F1B26030 12400 0500 00 0 12420 CLA DCM1 F1B26040 12401 1 00000 0 12406 DEXIT TXI DIN2,0,** AND GO SET SWITCH. F1B26050 12402 0600 00 0 12756 DPCNV2 STZ N1 F1B26060 12403 0600 00 0 12757 STZ DPWC F1B26070 12404 -0634 00 4 12401 SXD DEXIT,4 SAVE C(XR4) FOR RETURN. F1B26080 BINARY CARD NO. 9F140103 12405 -0500 00 0 12420 DNC7 CAL DCM1 PICK UP SWITCH CONTROL. F1B26090 12406 0630 00 0 12430 DIN2 STP DCM2 SET SWITCHES CM2, AND F1B26100 12407 0630 00 0 12442 STP DCM3 CM3. F1B26110 12410 0630 00 0 12473 STP DNC11 F1B26120 12411 0140 00 0 12412 TOV DNC5 TURN OFF OV TRIGGER. F1B26130 12412 0074 00 4 05250 DNC5 TSX C0190,4 GO GET NEXT NB CHARACTER IN THE AC. F1B26140 12413 0602 00 0 71552 SLW CHSAVE SAVE IT FOR STATE B, AND THEN F1B26150 12414 0340 00 0 05140 CAS L(H) COMPARE IT WITH H. F1B26160 12415 1 00000 0 12417 TXI DNC1,0,0 IF H, GO TO HEXIT. F1B26170 12416 1 00000 0 12744 DSSIR4 TXI DHEXIT,0,.. IF NOT H, CONTINUE F1B26180 12417 0340 00 0 05104 DNC1 CAS TEN AND COMPARE WITH TEN. F1B26190 12420 -3 00000 0 12434 DCM1 TXL DNC2,0,0 CHAR EXCEEDS 10,SO IS NON-NUMERIC. F1B26200 12421 -0754 00 0 00000 PXD ,0 CLEAR THE AC (MACHINE ERROR). F1B26210 12422 0601 00 0 71555 STO H CHARACTER IS NUMERIC, SO HOLD IT. F1B26220 12423 0500 00 0 71556 CLA N MULTIPLY THE PREVIOUS F1B26230 12424 0767 00 0 00002 ALS 2 PARTIAL RESULT (OR ZERO) F1B26240 12425 0400 00 0 71556 ADD N BY 10, F1B26250 12426 0767 00 0 00001 ALS 1 AND ADD IN F1B26260 12427 0400 00 0 71555 ADD H THE CURRENT DIGIT. F1B26270 12430 3 00000 0 12451 DCM2 TXH DNC3,0,0 SWITCH (NO TRANSFER IF INTEGER). F1B26280 12431 0140 00 0 12461 TOV DNC4 TEST OVERFLOW, AND F1B26290 12432 0601 00 0 71556 STO N IF NONE, SAVE NEW PARTIAL RESULT. F1B26300 BINARY CARD NO. 9F140104 12433 1 00000 0 12412 TXI DNC5,0,0 THEN GO PICK UP NEXT CHARACTER. F1B26310 12434 0340 00 0 05114 DNC2 CAS POINT COMPARE NON-NUMERIC WITH A POINT. F1B26320 12435 1 00000 0 12442 TXI DCM3,0,0 IF GREATER THAN 27, GO OUT. F1B26330 12436 1 00000 0 12405 TXI DNC7,0,0 IF POINT, GO BACK AND SET SWITCH. F1B26340 12437 0340 00 0 12313 CAS L(E) IF LESS THAN 27,COMPARE WITH E. F1B26350 12440 1 00000 0 12442 TXI DCM3,0,0 IF GREATER THAN 21, GO OUT. F1B26360 12441 1 00000 0 12524 TXI DEC1,0,0 IF E, GO TO EXPONENT ROUTINE. F1B26370 12442 3 00000 0 12563 DCM3 TXH DFN4,0,0 SWITCH (NO TRANSFER IF INTEGER). F1B26380 12443 0500 00 0 71556 CLA N PICK UP CONVERTED CONSTANT, AND F1B26390 12444 0767 00 0 00022 DS9506 ALS 18 STORE IN THE F1B26400 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 105 * SECTION ONE PASS TWO * RECORD 9F14 * 12445 0601 00 0 05604 STO G DECREMENT OF G, AND F1B26410 12446 0074 00 4 04153 TSX FXCNIX,4 *GO MAKE FIXCON ENTRY. F1B26420 12447 -0501 00 0 06203 ORA FIXVAR CREATE INTERNAL FXD-PT VARIABLE,AND F1B26430 12450 1 00000 0 12717 TXI DEXITR,0,0 GO TAKE EXITR. F1B26440 12451 0140 00 0 12461 DNC3 TOV DNC4 IF NO OVERFLOW F1B26450 12452 0601 00 0 71556 STO N SAVE PARTIAL RESULT, AND F1B26460 12453 0502 00 0 05121 CLS L(1) SUBTRACT 1 FROM DOE F1B26470 12454 0400 00 0 71553 DNC9 ADD DOE TO ADJUST EXPONENT F1B26480 12455 0601 00 0 71553 STO DOE IN FINAL RESULT. F1B26490 12456 1 00000 0 12412 DNC8 TXI DNC5,0,0 THEN GO PICK UP NEXT CHARACTER. F1B26500 12457 0074 00 4 05250 NC5D TSX C0190,4 GET NEXT NB CHAR FOR WORD TWO F1B26510 12460 0602 00 0 71552 SLW CHSAVE SAVE FOR STATE B F1B26520 BINARY CARD NO. 9F140105 12461 -0500 00 0 71552 DNC4 CAL CHSAVE F1B26530 12462 0340 00 0 05104 CAS TEN COMPARE IT TO TEN F1B26540 12463 -3 00000 0 12502 TXL NC2D,0,0 CHAR. EXCEEDS 10,NON-NUMERIC F1B26550 12464 -0754 00 0 00000 PXD 0,0 CLEAR AC(MACHINE ERROR) F1B26560 12465 0601 00 0 71555 STO H CHARACTER NUMERIC, SO HOLD IT F1B26570 12466 0500 00 0 12756 CLA N1 MULTIPLY PREVIOUS WORD 2 F1B26580 12467 0767 00 0 00002 ALS 2 PARTIAL RESULT F1B26590 12470 0400 00 0 12756 ADD N1 BY 10 F1B26600 12471 0767 00 0 00001 ALS 1 AND ADD IN F1B26610 12472 0400 00 0 71555 ADD H THE CURRENT DIGIT F1B26620 12473 3 00000 0 12506 DNC11 TXH NC3D,0,0 F1B26630 12474 0140 00 0 12514 TOV NC4D TEST OVERFLOW WORD 2,AND F1B26640 12475 0601 00 0 12756 STO N1 IF NONE SQVE NEW PARTIAL RESULT F1B26650 12476 0500 00 0 05121 NC9D CLA L(1) AND ADD 1 TO 2ND WORD F1B26660 12477 0400 00 0 12757 ADD DPWC F1B26670 12500 0601 00 0 12757 STO DPWC F1B26680 12501 1 00000 0 12457 TXI NC5D,0,0 CHARACTER. F1B26690 12502 0340 00 0 05114 NC2D CAS POINT COMPARE NON-NUMERIC WITH POINT. F1B26700 12503 1 00000 0 12442 TXI DCM3,0,0 IF GREATER THAN 27, GO OUT F1B26710 12504 1 00000 0 12520 TXI NC7D,0,0 IF POINT,GO BACK AND SET SWITCH. F1B26720 12505 1 00000 0 12437 TXI DCM3-3,0,0 IF LESS THAN 27,COMPARE WITH E. F1B26730 12506 0140 00 0 12457 NC3D TOV NC5D,0 IF THERE WAS NO OVERFLOW F1B26740 BINARY CARD NO. 9F140106 12507 0601 00 0 12756 STO N1 SAVE PARTIAL RESULT,AND F1B26750 12510 0502 00 0 05121 CLS L(1) SUBTRACT 1 FORM DOE F1B26760 12511 0400 00 0 71553 ADD DOE TO ADJUST EXPONENT F1B26770 12512 0601 00 0 71553 STO DOE IN FINAL RESULT F1B26780 12513 1 00000 0 12476 TXI NC9D,0,0 ADD 1 TO WC AND PICK UP NEXT CHAR F1B26790 12514 0500 00 0 05121 NC4D CLA L(1) ADD 1 TO DOE F1B26800 12515 0400 00 0 71553 ADD DOE AND F1B26810 12516 0601 00 0 71553 STO DOE GET NEXT F1B26820 12517 1 00000 0 12457 TXI NC5D,0,0 CHARACTER. F1B26830 12520 -0500 00 0 12420 NC7D CAL DCM1 PICK UP SWITCH CONTROL F1B26840 12521 0630 00 0 12442 STP DCM3 SET SWITCHES CM3, F1B26850 12522 0630 00 0 12473 STP DNC11 AND NC11 F1B26860 12523 1 00000 0 12457 TXI NC5D,0,0 GET NEXT CHAR. F1B26870 12524 0074 00 4 05250 DEC1 TSX C0190,4 *GO GET NEXT NB CHARACTER IN THE AC. F1B26880 12525 0602 00 0 71552 SLW CHSAVE SAVE IT FOR STATE B, AND F1B26890 12526 0600 00 0 71554 STZ EKE CLEAR EKE (EXPLICIT EXPONENT). F1B26900 12527 0340 00 0 05112 CAS 11Z COMPARE CHARACTER WITH A DASH. F1B26910 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 106 * SECTION ONE PASS TWO * RECORD 9F14 * 12530 1 00000 0 12560 TXI DFN5,0,0 IF GREATER THAN 32, GO OUT. F1B26920 12531 1 00000 0 12537 TXI DPEC3,0,0 F1B26930 12532 0340 00 0 05115 CAS 12Z IF LESS THAN 32, COMPARE WITH PLUS. F1B26940 12533 1 00000 0 12560 TXI DFN5,0,0 IF GREATER THAN 16, GO OUT. F1B26950 12534 1 00000 0 12544 TXI DEC6,0,0 IF PLUS, GO EXAMINE NEXT CHAR. F1B26960 BINARY CARD NO. 9F140107 12535 0340 00 0 05132 CAS MINUS IF LESS THAN 16,COMPARE WITH MINUS. F1B26970 12536 1 00000 0 12560 TXI DFN5,0,0 IF GREATER THAN 12, GO OUT. F1B26980 12537 0502 00 0 71554 DPEC3 CLS EKE F1B26990 12540 0340 00 0 05104 CAS TEN COMPARE WITH TEN. F1B27000 12541 1 00000 0 12560 TXI DFN5,0,0 IF NON-NUMERIC, GO EXAMINE NEXT CH. F1B27010 12542 -0754 00 0 00000 DEC4 PXD ,0 CLEAR ACC, F1B27020 12543 0601 00 0 71554 DPEC5 STO EKE F1B27030 12544 0074 00 4 05250 DEC6 TSX C0190,4 *GO GET NEXT NB CHARACTER IN THE AC. F1B27040 12545 0602 00 0 71552 SLW CHSAVE SAVE IT FOR STATE B, F1B27050 12546 0340 00 0 05104 CAS TEN AND COMPARE WITH TEN. F1B27060 12547 1 00000 0 12560 TXI DFN5,0,0 CHAR EXCEEDS 10, SO IS NON-NUMERIC. F1B27070 12550 -0754 00 0 00000 PXD ,0 CLEAR THE AC (MACHINE ERROR). F1B27080 12551 0601 00 0 71555 STO H CHARACTER IS NUMERIC, SO HOLD IT. F1B27090 12552 0500 00 0 71554 CLA EKE MULTIPLY THE PREVIOUS F1B27100 12553 0767 00 0 00002 ALS 2 PARTIAL RESULT (OR ZERO) F1B27110 12554 0400 00 0 71554 ADD EKE BY 10, F1B27120 12555 0767 00 0 00001 ALS 1 AND ADD IN F1B27130 12556 0361 00 0 71555 ACL H THE CURRENT DIGIT. F1B27140 12557 1 00000 0 12543 TXI DPEC5,0,0 F1B27150 12560 0500 00 0 71554 DFN5 CLA EKE COMBINE EXPLICIT EXPONENT F1B27160 12561 0400 00 0 71553 ADD DOE WITH IMPLICIT EXPONENT, F1B27170 12562 0601 00 0 71553 STO DOE AND SAVE IN DOE. F1B27180 BINARY CARD NO. 9F140108 12563 0500 00 0 71556 DFN4 CLA N IF N CONTAINS ZERO, TAKE F1B27190 12564 0100 00 0 12753 TZE DS9500 FLO PT CONSTANT RETURN. F1B27200 12565 0534 00 1 12757 LXA DPWC,1 F1B27210 12566 -3 00012 1 12577 TXL FN90,1,10 IS WC GREATER THAN 10 F1B27220 12567 -0754 00 0 00000 PXD 0,0 IF YES, F1B27230 12570 0560 00 0 12756 LDQ N1 THEN DIVIDE N1 BY 10 F1B27240 12571 0220 00 0 13154 DVH TAB1-1 AND STORE F1B27250 12572 -0600 00 0 12756 STQ N1 BACK IN N1 F1B27260 12573 0500 00 0 71553 CLA DOE F1B27270 12574 0400 00 0 05121 ADD L(1) F1B27280 12575 0601 00 0 71553 STO DOE F1B27290 12576 1 77777 1 12577 TXI FN90,1,-1 AND DECREASE WC BY 1 TO COMPENSATE F1B27300 12577 0560 00 0 71556 FN90 LDQ N F1B27310 12600 0200 00 1 13155 MPY TAB1,1 F1B27320 12601 0601 00 0 12760 STO TEMP1 AND STORE MOST SIGNIFICANT PART AND F1B27330 12602 -0600 00 0 12761 STQ TEMP2 LEAST SIGNIFICANT PART F1B27340 12603 0500 00 0 12761 CLA TEMP2 ADD LEAST SIG. PART WORD1 F1B27350 12604 0400 00 0 12756 ADD N1 TO WORD 2 F1B27360 12605 0601 00 0 12761 STO TEMP2 AND STORE F1B27370 12606 -0760 00 0 00001 PBT IF P=1,SKIP TO MODIFY MOST SIG. PART F1B27380 12607 1 00000 0 12613 TXI FN6,0,0 OTHERWISE START CONVERSION TO FLOATING PT F1B27390 12610 0500 00 0 12760 CLA TEMP1 ADD 1 F1B27400 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 107 * SECTION ONE PASS TWO * RECORD 9F14 * BINARY CARD NO. 9F140109 12611 0400 00 0 05121 ADD L(1) TO MOST SIG. PART F1B27410 12612 0601 00 0 12760 STO TEMP1 AND STORE F1B27420 12613 0500 00 0 12761 FN6 CLA TEMP2 PUT LEAST SIG. INTEGER INTO F1B27430 12614 0621 00 0 12762 STA DK1 FLOATING POINT WORD F1B27440 12615 0771 00 0 00017 ARS 15 ADJUST,AND F1B27450 12616 0100 00 0 12620 TZE FN7 IF MORE THAN 15 BITS IN LENGTH F1B27460 12617 -0501 00 0 12763 ORA DK2 AFFIX CORRECT EXPONENT F1B27470 12620 0300 00 0 12762 FN7 FAD DK1 THEN FLOATING ADD THE RESULT OF INT CONV. F1B27480 12621 0601 00 0 05605 STO G+1 AND STORE MOST SIGNIFICANT AND F1B27490 12622 -0600 00 0 05604 STQ G LEAST SIGNIFICANT HALVES F1B27500 12623 0500 00 0 12760 CLA TEMP1 PUT MOST ISG.INTEGER INTO F1B27510 12624 0100 00 0 12644 TZE FN8 FLOATING PT WORD(IF NON-ZERO) F1B27520 12625 0621 00 0 12764 STA DK3 AND F1B27530 12626 0771 00 0 00017 ARS 15 IF MORE THAN 15 BITS IN LENGTH F1B27540 12627 0100 00 0 12631 TZE FN9 ADJUST F1B27550 12630 -0501 00 0 12765 ORA DK4 AFFIX CORRECT EXPONENT F1B27560 12631 0300 00 0 12764 FN9 FAD DK3 THEN FLOATING ADD THE RESULT F1B27570 12632 -0600 00 0 12761 STQ TEMP2 STORE LSH (A2) F1B27580 12633 0300 00 0 05605 FAD G+1 A1PB1 AND F1B27590 12634 0601 00 0 12760 STO TEMP1 STORE MSH F1B27600 12635 -0600 00 0 05605 STQ G+1 AND LSH F1B27610 12636 0500 00 0 05605 CLA G+1 (A1+B1)2 F1B27620 BINARY CARD NO. 9F140110 12637 -0300 00 0 12761 UFA TEMP2 +A2 F1B27630 12640 -0300 00 0 05604 UFA G +B2 F1B27640 12641 0300 00 0 12760 FAD TEMP1 +(A1+B1)1 F1B27650 12642 -0600 00 0 05604 STQ G STORE LSH F1B27660 12643 0601 00 0 05605 STO G+1 AND MSH F1B27670 12644 0534 00 1 71553 FN8 LXA DOE,1 EXAMINE C(DOE) F1B27680 12645 -3 00000 1 12715 TXL FN99,1,0 IF ZERO, MAKE FLOCON ENTRY F1B27690 12646 -3 00067 1 12650 TXL DFN2,1,55 IF GREATER THAN 55,THEN F1B27700 12647 1 00000 0 12743 TXI DCER,0,0 ERR.--GO TO DIAGNOSTIC F1B27710 12650 0560 00 0 71553 DFN2 LDQ DOE DETERMINE WHETHER INTEGER WAS F1B27720 12651 0020 00 0 20733 TRA PDFN2 TO PATCH (20)F1B27730 12652 0500 00 0 05605 CLA G+1 IF TO THE RIGHT,DIVIDE BY F1B27740 12653 0241 00 1 13054 FDP DTAB,1 A SUITABLE DOUBLE PRECISION CONSTANT F1B27750 12654 0140 00 0 12700 TOV FN54 TEST FOR UNDERFLOW F1B27760 12655 -0600 00 0 12760 STQ TEMP1 F1B27770 12656 -0300 00 0 05604 UFA G LSH+REMAINDER F1B27780 12657 0161 00 0 12660 TQO FN14 TURN OFF UNDERFLOW F1B27790 12660 0241 00 1 13054 FN14 FDP DTAB,1 /B1 F1B27800 12661 0161 00 0 12677 TQO FN53 TEST FOR UNDERFLOW F1B27810 12662 -0600 00 0 05605 STQ G+1 STORE F1B27820 12663 0502 00 1 13142 CLS DTAB+54,1 -B2 F1B27830 12664 0241 00 1 13054 FDP DTAB,1 /B1 F1B27840 BINARY CARD NO. 9F140111 12665 0140 00 0 12666 TOV FN15 TURN OFF UNDERFLOW F1B27850 12666 0260 00 0 12760 FN15 FMP TEMP1 F1B27860 12667 0140 00 0 12677 TOV FN53 TEST FOR UNDERFLOW F1B27870 12670 -0300 00 0 05605 UFA G+1 F1B27880 12671 0161 00 0 12672 TQO FN16 TURN OFF UNDEFLOW F1B27890 12672 0300 00 0 12760 FN16 FAD TEMP1 ALLIGN CHARACTERISTIC F1B27900 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 108 * SECTION ONE PASS TWO * RECORD 9F14 * 12673 0161 00 0 12677 TQO FN53 TEST FOR UNDERFLOW F1B27910 12674 0601 00 0 05605 FN44 STO G+1 STORE MSH AND F1B27920 12675 -0600 00 0 05604 STQ G LSH F1B27930 12676 1 00000 0 12703 TXI FN60,0,0 F1B27940 12677 0560 00 0 12760 FN53 LDQ TEMP1 UNDERFLOW F1B27950 12700 0763 00 0 00043 FN54 LLS 35 CORRECTION F1B27960 12701 0140 00 0 12702 TOV FN55 F1B27970 12702 0020 00 0 12674 FN55 TRA FN44 F1B27980 12703 0500 00 0 05605 FN60 CLA G+1 ADJUST CHARACTERISTIC F1B27990 12704 0361 00 0 12765 ACL DK4 BY ADDITION OF A SUITABLE CONSTANT F1B28000 12705 -0760 00 0 00001 PBT IF P=1 THEN ADJUST LSH F1B28010 12706 1 00000 0 12743 TXI DCER,0,0 ERROR F1B28020 12707 0601 00 0 05605 STO G+1 STORE MSH OF CONVERTED CONSTANT F1B28030 12710 0500 00 0 05604 CLA G ADJUST LSH BY F1B28040 12711 0361 00 0 12765 ACL DK4 ADDITION OF CONSTANT F1B28050 12712 -0760 00 0 00001 PBT IF P=1 THEN STORE F1B28060 BINARY CARD NO. 9F140112 12713 -0754 00 0 00000 PXD 0,0 CLEAR AC IF LSH OUT OF RANGE F1B28070 12714 0601 00 0 05604 STO G AND STORE LSH OF CONVERTED CONSTANT F1B28080 12715 0074 00 4 20537 FN99 TSX DFLCON,4 F1B28090 12716 -0501 00 0 06177 ORA FLOVAR CREATE INTERNAL FLO-PT VARIABLE. F1B28100 12717 0602 00 0 05561 DEXITR SLW E+2 SAVE VARIABLE IN E+2 F1B28110 12720 -0534 00 4 12401 LXD DEXIT,4 RESTORE 1RY,AND F1B28120 12721 0020 00 4 00002 TRA 2,4 RETURN TO MAIN ROUTINE F1B28130 12722 0560 00 0 05605 DFN3 LDQ G+1 A1 F1B28140 12723 0260 00 1 13054 FMP DTAB,1 A1*B1 F1B28150 12724 0140 00 0 12743 TOV DCER,0 IF OVERFLOW,OUT OF RANGE F1B28160 12725 0601 00 0 12760 STO TEMP1 STORE MSH F1B28170 12726 -0600 00 0 12761 STQ TEMP2 AND LSH F1B28180 12727 0560 00 0 05605 LDQ G+1 A1 F1B28190 12730 0260 00 1 13142 FMP DTAB+54,1 A1*B2 F1B28200 12731 -0300 00 0 12761 UFA TEMP2 ADD (A1*B1)2 F1B28210 12732 0601 00 0 12761 STO TEMP2 AND STORE F1B28220 12733 0560 00 1 13054 LDQ DTAB,1 B1 F1B28230 12734 0260 00 0 05604 FMP G A2*B1 F1B28240 12735 -0300 00 0 12761 UFA TEMP2 +PREVIOUS SUM F1B28250 12736 0300 00 0 12760 FAD TEMP1 F1B28260 12737 0140 00 0 12743 TOV DCER,0 ERROR IF OVERFLOW F1B28270 12740 0361 00 0 12766 ACL DK5 ADD CONSTANT TO ADJUST AND TEST RANGE F1B28280 BINARY CARD NO. 9F140113 12741 -0760 00 0 00001 PBT IF P=1,SKIP TO ERROR F1B28290 12742 1 00000 0 12746 TXI DS9501,0,0 F1B28300 12743 0074 00 4 04504 DCER TSX DIAG,4 CONVERSION ERROR,GO TO DIAGNOSTIC F1B28310 12744 -0534 00 4 12401 DHEXIT LXD DEXIT,4 RESTORE IR4 AND F1B28320 12745 0020 00 4 00001 TRA 1,4 RETURN TO MAIN ROUTINE F1B28330 12746 0601 00 0 05605 DS9501 STO G+1 STORE MSH OF CONVERTED CONSTANT F1B28340 12747 0763 00 0 00043 LLS 35 AND ADJUST LSH BY F1B28350 12750 0361 00 0 12766 ACL DK5 ADDING A SUITABLE CONSTANT F1B28360 12751 0601 00 0 05604 STO G STORE LSH OF CONVERTED CONSTANT F1B28370 12752 1 00000 0 12715 TXI FN99,0,0 GO MAKE FLOCON ENTRY F1B28380 12753 0600 00 0 05605 DS9500 STZ G+1 CONSTANT=0 F1B28390 12754 0600 00 0 05604 STZ G STORE AND F1B28400 12755 1 00000 0 12715 TXI FN99,0,0 ENTER INTO TABLE F1B28410 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 109 * SECTION ONE PASS TWO * RECORD 9F14 * 12756 N1 BSS 1 F1B28420 12757 DPWC BSS 1 F1B28430 12760 TEMP1 BSS 1 F1B28440 12761 TEMP2 BSS 1 F1B28450 BINARY CARD NO. 9F140114 12762 +233000000000 DK1 OCT 233000000000 F1B28460 12763 +252000000000 DK2 OCT 252000000000 F1B28470 12764 +276000000000 DK3 OCT 276000000000 F1B28480 12765 +315000000000 DK4 OCT 315000000000 F1B28490 12766 +063000000000 DK5 OCT 63000000000 F1B28500 12767 +376413215433 OCT 376413215433 F1B28510 12770 +372653510705 OCT 372653510705 F1B28520 12771 +367526072235 OCT 367526072235 F1B28530 12772 +364421541661 OCT 364421541661 F1B28540 12773 +360665717602 OCT 360665717602 F1B28550 12774 +355536246150 OCT 355536246150 F1B28560 12775 +352430204754 OCT 352430204754 F1B28570 12776 +346700324573 OCT 346700324573 F1B28580 12777 +343546566774 OCT 343546566774 F1B28590 13000 +340436770626 OCT 340436770626 F1B28600 13001 +334713132675 OCT 334713132675 F1B28610 13002 +331557257061 OCT 331557257061 F1B28620 13003 +326445677215 OCT 326445677215 F1B28630 13004 +322726145174 OCT 322726145174 F1B28640 13005 +317570120775 OCT 317570120775 F1B28650 13006 +314454732312 OCT 314454732312 F1B28660 13007 +310741367020 OCT 310741367020 F1B28670 BINARY CARD NO. 9F140115 13010 +305601137163 OCT 305601137163 F1B28680 13011 +302464114134 OCT 302464114134 F1B28690 13012 +276755023372 OCT 276755023372 F1B28700 13013 +273612334310 OCT 273612334310 F1B28710 13014 +270473426555 OCT 270473426555 F1B28720 13015 +264770675742 OCT 264770675742 F1B28730 13016 +261623713116 OCT 261623713116 F1B28740 13017 +256503074076 OCT 256503074076 F1B28750 13020 +253402374713 OCT 253402374713 F1B28760 13021 +247635456171 OCT 247635456171 F1B28770 13022 +244512676455 OCT 244512676455 F1B28780 13023 +241410545213 OCT 241410545213 F1B28790 13024 +235647410336 OCT 235647410336 F1B28800 13025 +232522640261 OCT 232522640261 F1B28810 13026 +227417031701 OCT 227417031701 F1B28820 13027 +223661534465 OCT 223661534465 F1B28830 13030 +220532743536 OCT 220532743536 F1B28840 13031 +215425434430 OCT 215425434430 F1B28850 13032 +211674055531 OCT 211674055531 F1B28860 13033 +206543212741 OCT 206543212741 F1B28870 13034 +203434157115 OCT 203434157115 F1B28880 13035 +177706576511 OCT 177706576511 F1B28890 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 110 * SECTION ONE PASS TWO * RECORD 9F14 * BINARY CARD NO. 9F140116 13036 +174553630407 OCT 174553630407 F1B28900 13037 +171443023471 OCT 171443023471 F1B28910 13040 +165721522450 OCT 165721522450 F1B28920 13041 +162564416672 OCT 162564416672 F1B28930 13042 +157452013710 OCT 157452013710 F1B28940 13043 +153734654500 OCT 153734654500 F1B28950 13044 +150575360400 OCT 150575360400 F1B28960 13045 +145461132000 OCT 145461132000 F1B28970 13046 +141750220000 OCT 141750220000 F1B28980 13047 +136606500000 OCT 136606500000 F1B28990 13050 +133470400000 OCT 133470400000 F1B29000 13051 +127764000000 OCT 127764000000 F1B29010 13052 +124620000000 OCT 124620000000 F1B29020 13053 +121500000000 OCT 121500000000 F1B29030 13054 +116400000000 DTAB OCT 116400000000 F1B29040 13055 +343156556174 OCT 343156556174 F1B29050 13056 +337112575140 OCT 337112575140 F1B29060 13057 +334556775600 OCT 334556775600 F1B29070 13060 +331277144463 OCT 331277144463 F1B29080 13061 +325145072436 OCT 325145072436 F1B29090 13062 +322120710345 OCT 322120710345 F1B29100 13063 +317732240267 OCT 317732240267 F1B29110 BINARY CARD NO. 9F140117 13064 +313052063614 OCT 313052063614 F1B29120 13065 +310041534474 OCT 310041534474 F1B29130 13066 +305347575227 OCT 305347575227 F1B29140 13067 +301414310361 OCT 301414310361 F1B29150 13070 +276160240301 OCT 276160240301 F1B29160 13071 +273615031715 OCT 273615031715 F1B29170 13072 +267341534511 OCT 267341534511 F1B29180 13073 +264116112072 OCT 264116112072 F1B29190 13074 +261413241542 OCT 261413241542 F1B29200 13075 +255653551066 OCT 255653551066 F1B29210 13076 +252674440705 OCT 252674440705 F1B29220 13077 +247543515404 OCT 247543515404 F1B29230 13100 +243554174006 OCT 243554174006 F1B29240 13101 +240443311470 OCT 240443311470 F1B29250 13102 +235202556055 OCT 235202556055 F1B29260 13103 +231004260110 OCT 231004260110 F1B29270 13104 +226320214723 OCT 226320214723 F1B29280 13105 +223563327102 OCT 223563327102 F1B29290 13106 +220617422402 OCT 220617422402 F1B29300 13107 +214177204003 OCT 214177204003 F1B29310 13110 +211631003151 OCT 211631003151 F1B29320 13111 +206024002441 OCT 206024002441 F1B29330 BINARY CARD NO. 9F140118 13112 +202354635550 OCT 202354635550 F1B29340 13113 +177760512755 OCT 177760512755 F1B29350 13114 +174446725444 OCT 174446725444 F1B29360 13115 +170561357240 OCT 170561357240 F1B29370 13116 +165132614200 OCT 165132614200 F1B29380 13117 +162110475000 OCT 162110475000 F1B29390 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 111 * SECTION ONE PASS TWO * RECORD 9F14 * 13120 +156647310000 OCT 156647310000 F1B29400 13121 +153354240000 OCT 153354240000 F1B29410 13122 +150760200000 OCT 150760200000 F1B29420 13123 +144432000000 OCT 144432000000 F1B29430 13124 +141510000000 OCT 141510000000 F1B29440 13125 +136240000000 OCT 136240000000 F1B29450 13126 +132400000000 OCT 132400000000 F1B29460 13127 +000000000000 OCT 000000000000 F1B29470 13130 +000000000000 OCT 000000000000 F1B29480 13131 +000000000000 OCT 000000000000 F1B29490 13132 +000000000000 OCT 000000000000 F1B29500 13133 +000000000000 OCT 000000000000 F1B29510 13134 +000000000000 OCT 000000000000 F1B29520 13135 +000000000000 OCT 000000000000 F1B29530 13136 +000000000000 OCT 000000000000 F1B29540 13137 +000000000000 OCT 000000000000 F1B29550 BINARY CARD NO. 9F140119 13140 +000000000000 OCT 000000000000 F1B29560 13141 +000000000000 OCT 000000000000 F1B29570 13142 +000000000000 OCT 000000000000 F1B29580 13143 +112402762000 OCT 112402762000 F1B29590 13144 +007346545000 OCT 007346545000 F1B29600 13145 +000575360400 OCT 000575360400 F1B29610 13146 +000046113200 OCT 000046113200 F1B29620 13147 +000003641100 OCT 000003641100 F1B29630 13150 +000000303240 OCT 000000303240 F1B29640 13151 +000000023420 OCT 000000023420 F1B29650 13152 +000000001750 OCT 000000001750 F1B29660 13153 +000000000144 OCT 000000000144 F1B29670 13154 +000000000012 OCT 000000000012 F1B29680 13155 +000000000001 TAB1 OCT 000000000001 F1B29690 F1B29700 COMPLEX CONSTANT CONVERSION ROUTINE F1B29710 F1B29720 13156 -0500 00 0 05171 ICNV3 CAL FWA SAVE FWA F1B29730 13157 0602 00 0 13434 SLW IFWA AND F1B29740 13160 -0500 00 0 05611 CAL RESIDU RESIDU F1B29750 13161 0602 00 0 13432 SLW IRESDU AND F1B29760 13162 -0500 00 0 05251 CAL XCHCTR CHARACTER COUNT F1B29770 13163 0602 00 0 13433 SLW ICHCTR F1B29780 13164 0500 00 0 13250 CLA ICM1 SET SIGN SWITCH TO ON (PLUS) F1B29790 13165 0630 00 0 13276 STP ICM3 F1B29800 BINARY CARD NO. 9F140120 13166 0630 00 0 13405 STP ICNV32 F1B29810 13167 0630 00 0 13402 ICNV34 STP ICNV22 F1B29820 13170 0600 00 0 71554 STZ EKE F1B29830 13171 0074 00 4 05250 TSX C0190,4 F1B29840 13172 0340 00 0 05131 CAS L(9) NB CHAR. IS CHAR. NUMERIC F1B29850 13173 1 00000 0 13205 TXI ICNV4,0,0 N0 F1B29860 13174 1 00000 0 13233 TXI ICNV5,0,0 YES START CONVERSION F1B29870 13175 1 00000 0 13233 TXI ICNV5,0,0 F1B29880 13176 -0500 00 0 13432 ICNV20 CAL IRESDU F1B29890 13177 0602 00 0 05611 SLW RESIDU F1B29900 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 112 * SECTION ONE PASS TWO * RECORD 9F14 * 13200 -0500 00 0 13433 CAL ICHCTR AND F1B29910 13201 0602 00 0 05251 SLW XCHCTR CHARACTER COUNT F1B29920 13202 -0500 00 0 13434 CAL IFWA AND F1B29930 13203 0602 00 0 05171 SLW FWA FWA F1B29940 13204 1 00000 0 11075 TXI ICNV6,0,0 F1B29950 13205 0340 00 0 05114 ICNV4 CAS POINT IS CHAR.FOLLOWING ( A DECIMAL POINT F1B29960 13206 1 00000 0 13214 TXI ICNV21,0,0 NO F1B29970 13207 1 00000 0 13237 TXI ICNV7,0,0 YES,EXIT TO CONVERSION ROUTINE F1B29980 13210 0340 00 0 05115 CAS 12Z NO, CHECK IF CHAR. + F1B29990 13211 1 00000 0 13176 TXI ICNV20,0,0 NO SO RETURN TO SCAN F1B30000 13212 1 00000 0 13222 TXI ICNV24,0,0 YES, CHAR,IS + F1B30010 13213 1 00000 0 13176 TXI ICNV20,0,0 NO SO RETURN TO SCAN F1B30020 BINARY CARD NO. 9F140121 13214 0340 00 0 05112 ICNV21 CAS 11Z IS CHAR. - F1B30030 13215 1 00000 0 13176 TXI ICNV20,0,0 NO,RET. TO SCAN F1B30040 13216 1 00000 0 13220 TXI ICNV23,0,0 YES, CHAR. IS - F1B30050 13217 1 00000 0 13176 TXI ICNV20,0,0 NO,RET. TO SCAN F1B30060 13220 -0500 00 0 13250 ICNV23 CAL ICM1 SET SIGN SWITCH F1B30070 13221 0630 00 0 13402 STP ICNV22 TO OFF (MINUS) F1B30080 13222 0074 00 4 05250 ICNV24 TSX C0190,4 GET NEXT CHAR. F1B30090 13223 0340 00 0 05131 CAS L(9) IS CHAR. NUMERIC F1B30100 13224 1 00000 0 13227 TXI ICNV25,0,0 NO F1B30110 13225 1 00000 0 13233 TXI ICNV5,0,0 CHAR. IS NUMERIC, START CONVERSION F1B30120 13226 1 00000 0 13233 TXI ICNV5,0,0 DITTO F1B30130 13227 0340 00 0 05114 ICNV25 CAS POINT IS CHAR. A DEC. PT. F1B30140 13230 1 00000 0 13176 TXI ICNV20,0,0 NO,RETURN TO SCAN F1B30150 13231 1 00000 0 13237 TXI ICNV7,0,0 CHAR. IS DEC. PT.,START CONVERSION F1B30160 13232 1 00000 0 13176 TXI ICNV20,0,0 NO, RETURN TO SCAN F1B30170 13233 0601 00 0 71556 ICNV5 STO N F1B30180 13234 0600 00 0 71553 STZ DOE F1B30190 13235 0500 00 0 13250 CLA ICM1 F1B30200 13236 1 00000 0 13242 IEXIT TXI IIN2,0,** F1B30210 13237 0600 00 0 71556 ICNV7 STZ N F1B30220 13240 0600 00 0 71553 STZ DOE F1B30230 13241 -0500 00 0 13250 INC7 CAL ICM1 F1B30240 BINARY CARD NO. 9F140122 13242 0630 00 0 13260 IIN2 STP ICM2 SET SWITCH 1 F1B30250 13243 0630 00 0 13264 STP ICNV26 F1B30260 13244 0630 00 0 13271 STP ICNV31 F1B30270 13245 0140 00 0 13246 TOV INC5 F1B30280 13246 0074 00 4 05250 INC5 TSX C0190,4 PICK UP NEXT CHAR. F1B30290 13247 0340 00 0 05104 CAS TEN F1B30300 13250 -3 00000 0 13266 ICM1 TXL INC2,0,0 F1B30310 13251 -0754 00 0 00000 PXD 0,0 F1B30320 13252 0601 00 0 71555 STO H F1B30330 13253 0500 00 0 71556 CLA N F1B30340 13254 0767 00 0 00002 ALS 2 F1B30350 13255 0400 00 0 71556 ADD N F1B30360 13256 0767 00 0 00001 ALS 1 F1B30370 13257 0400 00 0 71555 ADD H F1B30380 13260 3 00000 0 13307 ICM2 TXH INC3,0,0 F1B30390 13261 0140 00 0 13315 TOV INC4 F1B30400 13262 0601 00 0 71556 STO N F1B30410 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 113 * SECTION ONE PASS TWO * RECORD 9F14 * 13263 1 00000 0 13246 TXI INC5,0,0 F1B30420 13264 3 00000 0 13276 ICNV26 TXH ICM3,0,0 NO TRANSFER IF FIXED POINT F1B30430 13265 1 00000 0 13176 TXI ICNV20,0,0 RETURN TO SCAN F1B30440 13266 0340 00 0 05114 INC2 CAS POINT COMPARE NON NUMERIC WITH DP F1B30450 13267 1 00000 0 13264 TXI ICNV26,0,0 F1B30460 BINARY CARD NO. 9F140123 13270 1 00000 0 13241 TXI INC7,0,0 IF POINT,GO BACK AND SET SWITCH F1B30470 13271 3 00000 0 13273 ICNV31 TXH ICNV30,0,0 F1B30480 13272 1 00000 0 13176 TXI ICNV20,0,0 F1B30490 13273 0340 00 0 12313 ICNV30 CAS L(E) F1B30500 13274 1 00000 0 13302 TXI ICM6,0,0 IF GREATER THAN 21,ERROR F1B30510 13275 1 00000 0 13317 TXI IEC1,0,0 IF E, GO TO EXPONENT ROUTINE F1B30520 13276 3 00000 0 13303 ICM3 TXH ICM5,0,0 SWITCH, NO TRANSFER IF 1ST PART F1B30530 13277 0340 00 0 05107 CAS COMMA IS CHAR. COMMA F1B30540 13300 1 00000 0 13302 TXI ICM6,0,0 IF NO, ERROR F1B30550 13301 1 00000 0 13350 TXI IFN5,0,0 YES, SO START CONVERSION OF REAL PART F1B30560 13302 0074 00 4 04504 ICM6 TSX DIAG,4 TRANSFER TO DIAGNOSTIC F1B30570 13303 0340 00 0 05110 ICM5 CAS CLOS IS CHAR ) F1B30580 13304 1 00000 0 13302 TXI ICM6,0,0 NO,ERROR F1B30590 13305 1 00000 0 13350 TXI IFN5,0,0 YES,SO START CONVERSION OF 2ND HALF F1B30600 13306 1 00000 0 13302 TXI ICM6,0,0 NO,ERROR F1B30610 13307 0140 00 0 13314 INC3 TOV INC8 F1B30620 13310 0601 00 0 71556 STO N F1B30630 13311 0502 00 0 05121 CLS L(1) F1B30640 13312 0400 00 0 71553 INC9 ADD DOE F1B30650 13313 0601 00 0 71553 STO DOE F1B30660 13314 1 00000 0 13246 INC8 TXI INC5,0,0 F1B30670 13315 0500 00 0 05121 INC4 CLA L(1) F1B30680 BINARY CARD NO. 9F140124 13316 1 00000 0 13312 TXI INC9,0,0 F1B30690 13317 0074 00 4 05250 IEC1 TSX C0190,4 F1B30700 13320 0340 00 0 05115 CAS 12Z F1B30710 13321 1 00000 0 13324 TXI ICNV36,0,0 GTR THAN PLUS(16) - MUST BE MINUS SIG F1B30720 13322 1 00000 0 13335 TXI IEC6,0,0 NUMBER READS E+ F1B30730 13323 1 00000 0 13336 TXI ICNV35,0,0 LESS THAN PLUS(16)-MUST BE A DIGIT. F1B30740 13324 0340 00 0 05112 ICNV36 CAS 11Z COMPARE WITH MINUS $F1B30750 13325 1 00000 0 13302 TXI ICM6,0,0 ERROR F1B30760 13326 1 00000 0 13330 TXI IEC3,0,0 NUMBER READS E- F1B30770 13327 1 00000 0 13302 TXI ICM6,0,0 ERROR F1B30780 13330 0502 00 0 71554 IEC3 CLS EKE SET EKE TO -0 F1B30790 13331 0340 00 0 05104 CAS TEN COMPARE WITH TEN F1B30800 13332 1 00000 0 13302 TXI ICM6,0,0 ERROR F1B30810 13333 -0754 00 0 00000 IEC4 PXD 0,0 F1B30820 13334 0601 00 0 71554 IEC5 STO EKE F1B30830 13335 0074 00 4 05250 IEC6 TSX C0190,4 F1B30840 13336 0340 00 0 05104 ICNV35 CAS TEN COMPARE WITH TEN F1B30850 13337 1 00000 0 13276 TXI ICM3,0,0 NON NUMERIC,)OR, F1B30860 13340 -0754 00 0 00000 PXD 0,0 CLEAR AC F1B30870 13341 0601 00 0 71555 STO H NUMERIC SO HOLD IT F1B30880 13342 0500 00 0 71554 CLA EKE F1B30890 13343 0767 00 0 00002 ALS 2 F1B30900 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 114 * SECTION ONE PASS TWO * RECORD 9F14 * BINARY CARD NO. 9F140125 13344 0400 00 0 71554 ADD EKE F1B30910 13345 0767 00 0 00001 ALS 1 F1B30920 13346 0361 00 0 71555 ACL H F1B30930 13347 1 00000 0 13334 TXI IEC5,0,0 F1B30940 13350 0500 00 0 71554 IFN5 CLA EKE COMBINE EXPLICIT EXPONENT F1B30950 13351 0400 00 0 71553 ADD DOE WITH IMPLICIT EXPONENT, F1B30960 13352 0601 00 0 71553 STO DOE AND SAVE IN DOE. F1B30970 13353 0500 00 0 71556 IFN4 CLA N IF N CONTAINS ZERO, TAKE F1B30980 13354 0100 00 0 13401 TZE IMS950 FLO PT CONSTANT RETURN. F1B30990 13355 0621 00 0 12306 STA K1 PUT INTEGER INTO FLO PT WORD, F1B31000 13356 0771 00 0 00017 ARS 15 ADJUST, AND F1B31010 13357 0100 00 0 13361 TZE IFN1 IF MORE THAN 15 BITS IN LENGTH F1B31020 13360 -0501 00 0 12307 ORA K2 AFFIX CORRECT EXPONENT. F1B31030 13361 0300 00 0 12306 IFN1 FAD K1 THEN FLOATING ADD THE RESULT F1B31040 13362 -0773 00 0 00010 RQL 8 OF INTEGER CONVERSION, AND F1B31050 13363 0760 00 0 00010 RND ROUND --TO OBTAIN F1B31060 13364 -0501 00 0 12310 ORA K3 NORMALIZED RESULT. F1B31070 13365 0534 00 1 71553 LXA DOE,1 EXAMINE THE C(DOE), AND F1B31080 13366 -3 00000 1 13401 TXL IMS950,1,0 IF ZERO, TAKE FLO PT RETURN. F1B31090 13367 -3 00062 1 13371 TXL IFN2,1,50 IF GREATER THAN 50, THEN F1B31100 13370 1 00000 0 13430 TXI ICER,0,0 ERROR. --GO TO DIAGNOSTIC. F1B31110 13371 0560 00 0 71553 IFN2 LDQ DOE DETERMINE WHETHER INTEGER WAS F1B31120 BINARY CARD NO. 9F140126 13372 0162 00 0 13422 TQP IFN3 TO THE RIGHT OR TO THE LEFT OF DP. F1B31130 13373 0241 00 1 12374 FDP TAB,1 IF TO THE RIGHT, DIVIDE BY A F1B31140 13374 -0600 00 0 71556 STQ N SUITABLE CONSTANT F1B31150 13375 0500 00 0 71556 CLA N TO ADJUST RESULT F1B31160 13376 0361 00 0 12311 ACL K4 AND TEST FOR OUT OF RANGE. F1B31170 13377 -0760 00 0 00001 PBT IF P=1, SKIP TO ARITH RETURN. F1B31180 13400 1 00000 0 13430 TXI ICER,0,0 ERROR. --GO TO DIAGNOSTIC. F1B31190 13401 -0760 00 0 00003 IMS950 SSM SET NUMBER MINUS F1B31200 13402 3 00000 0 13404 ICNV22 TXH IMS951,0,0 SWITCH, NO TRANSFER IF PLUS F1B31210 13403 0760 00 0 00003 SSP SET NUMBER PLUS F1B31220 13404 0601 00 0 05604 IMS951 STO G STORE IMAGINARY PART F1B31230 13405 3 00000 0 13414 ICNV32 TXH ICNV33,0,0 NO TRANSFER IF REAL PART F1B31240 13406 0601 00 0 05605 STO G+1 STORE REAL PART F1B31250 13407 -0500 00 0 12141 CAL CM1 SET SWITCH F1B31260 13410 0630 00 0 13276 STP ICM3 ICM3AND F1B31270 13411 0630 00 0 13405 STP ICNV32 F1B31280 13412 0500 00 0 13250 CLA ICM1 TURN REAL-IMAG SWITCH ON (IMAG) F1B31290 13413 1 00000 0 13167 TXI ICNV34,0,0 F1B31300 13414 0074 00 4 20537 ICNV33 TSX DFLCON,4 ENTER COMPLEX CONSTANT INTO TABLE F1B31310 13415 -0501 00 0 06177 ORA FLOVAR CREATE INTERNAL FLO-PT VARIABLE, F1B31320 13416 0602 00 0 05561 SLW E+2 SAVE VARIABLE IN E+2, F1B31330 13417 0074 00 4 05250 TSX C0190,4 SET CHSAVE TO CHARACTER F1B31340 BINARY CARD NO. 9F140127 13420 0602 00 0 71552 SLW CHSAVE FOLLOWING THE CLOSING PAREN. F1B31350 13421 1 00000 0 11530 TXI LATXH,0,0 CONVERSION COMPLETED,RETURN TO PROG F1B31360 13422 0601 00 0 71556 IFN3 STO N IF INTEGER WAS SITUATED F1B31370 13423 0560 00 0 71556 LDQ N TO THE LEFT OF THE DECIMAL POINT, F1B31380 13424 0260 00 1 12374 FMP TAB,1 MULTIPLY BY A SUITABLE F1B31390 13425 0361 00 0 12312 ACL K5 CONSTANT TO ADJUST AND TEST RANGE. F1B31400 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 115 * SECTION ONE PASS TWO * RECORD 9F14 * 13426 -0760 00 0 00001 PBT IF P=1, SKIP TO ERROR. F1B31410 13427 1 00000 0 13401 TXI IMS950,0,0 RETURN TO ARITHMETIC ROUTINE. F1B31420 13430 0074 00 4 04504 ICER TSX DIAG,4 *CONVERSION ERROR, GO TO DIAGNOSTIC. F1B31430 13431 1 00000 0 11530 TXI LATXH,0,0 CONVERSION COMPLETED,RETURN TO PROG F1B31440 13432 0 00000 0 00000 IRESDU F1B31450 13433 0 00000 0 00000 ICHCTR F1B31460 13434 0 00000 0 00000 IFWA F1B31470 13435 0 00001 0 24673 SIG1ST PZE SIGMA1+2,,1 F1B31480 F1B31490 STATE C PERFORMS OPTIMIZATION ON LAMBDA TABLE. F1B31500 13436 0560 00 0 05120 R00000 LDQ L(0) CLEAR MQ F1B31510 13437 -0534 00 1 22252 LXD NBAR,A LDXA WITH -N F1B31520 13440 -0634 00 1 13447 SXD R00700,A F1B31530 13441 -0634 00 1 13525 SXD R05200,A F1B31540 13442 -0634 00 1 14073 SXD AS0800,A F1B31550 13443 -0634 00 1 14120 SXD AS2900,A F1B31560 13444 0534 00 7 05120 LXA L(0),7 CLEAR XA,XB,XC, F1B31570 13445 -0600 00 2 71545 R00500 STQ BETA,B CLEAR BETA TABLE F1B31580 BINARY CARD NO. 9F140128 13446 1 77777 2 13447 TXI R00700,B,-1 F1B31590 13447 3 00000 2 13445 R00700 TXH R00500,B,0 F1B31600 13450 0500 00 0 22237 CLA 3LBAR LENGTH OF LAMBDA F1B31610 13451 0622 00 0 13462 STD R01700 F1B31620 13452 0622 00 0 13537 STD R06200 F1B31630 13453 0500 00 1 61375 R01000 CLA LAMBDA,A ADD INTO GAMMA COUNTERS F1B31640 13454 0734 00 2 00000 PAX 0,B F1B31650 13455 0500 00 2 71545 CLA BETA,B F1B31660 13456 0400 00 0 06174 ADD BETAD1 077775077775,-3 TO ADD+DEC F1B31670 13457 0622 00 2 71545 STD BETA,B F1B31680 13460 0621 00 2 71545 STA BETA,B F1B31690 13461 1 77775 1 13462 TXI R01700,A,-3 F1B31700 13462 3 00000 1 13453 R01700 TXH R01000,A,0 -3L IN XA AT END F1B31710 13463 3 77772 1 13514 R01800 TXH R04200,A,-6 EXIT FROM SINGLE ELEMENT REDUCTION F1B31720 13464 0500 00 1 61372 CLA LAMBDA-3,A F1B31730 13465 0734 00 2 00000 PAX 0,B F1B31740 13466 0500 00 2 71545 CLA BETA,B F1B31750 13467 0402 00 0 06174 SUB BETAD1 F1B31760 13470 0100 00 0 13472 TZE R02600 F1B31770 13471 1 00003 1 13463 TXI R01800,A,3 F1B31780 13472 0560 00 1 61373 R02600 LDQ LAMBDA-2,A SINGLE ELEMENT F1B31790 13473 -0763 00 0 00006 LGL 6 EXAMINE OPERATION F1B31800 BINARY CARD NO. 9F140129 13474 0402 00 0 05112 SUB 11Z F1B31810 13475 -0100 00 0 13477 TNZ R03200 F1B31820 13476 1 00003 1 13463 TXI R01800,A,3 F1B31830 13477 -0500 00 0 06216 R03200 CAL MASK1 SINGLE ELEMENT, NON-UNARY OP F1B31840 13500 0320 00 1 61372 ANS LAMBDA-3,A EXTRACT TAGS AND STORE BACK F1B31850 13501 0500 00 1 61367 CLA LAMBDA-6,A F1B31860 13502 -0501 00 1 61372 ORA LAMBDA-3,A F1B31870 13503 0602 00 1 61367 SLW LAMBDA-6,A F1B31880 13504 -0500 00 1 61373 CAL LAMBDA-2,A EXTRACT FS BITS AND STORE BACK F1B31890 13505 -0320 00 0 06162 ANA MASK5 F1B31900 13506 -0602 00 1 61370 ORS LAMBDA-5,A F1B31910 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 116 * SECTION ONE PASS TWO * RECORD 9F14 * 13507 -0500 00 1 61374 CAL LAMBDA-1,A STORE BACK SYMBOL F1B31920 13510 0602 00 1 61371 SLW LAMBDA-4,A F1B31930 13511 0600 00 2 71545 STZ BETA,B REDUCE GAMMA COUNT TO 0 F1B31940 13512 0600 00 1 61372 STZ LAMBDA-3,A CLEAR TAG WORD F1B31950 13513 1 00003 1 13463 TXI R01800,A,3 RESUME SCAN-BACK F1B31960 13514 0600 00 0 05604 R04200 STZ G F1B31970 13515 0534 00 7 05120 LXA L(0),7 CLEAR XA,XB,XC F1B31980 13516 0500 00 2 71545 R04500 CLA BETA,B SET ORIGINS OF SCRIPL TABLE F1B31990 13517 0100 00 0 13524 TZE R05100 F1B32000 13520 0560 00 0 05604 LDQ G F1B32010 13521 -0620 00 2 71545 SLQ BETA,B F1B32020 BINARY CARD NO. 9F140130 13522 0400 00 0 05604 ADD G F1B32030 13523 0622 00 0 05604 STD G F1B32040 13524 1 77777 2 13525 R05100 TXI R05200,B,-1 F1B32050 13525 3 00000 2 13516 R05200 TXH R04500,B,0 DEC(K)=DEC(ACC)=-3P AT END F1B32060 13526 -0500 00 1 61375 R05300 CAL LAMBDA,A STRING BEADS... COMPRESS LAMBDA TABLE F1B32070 13527 0100 00 0 13536 TZE R06100 F1B32080 13530 0602 00 4 61375 SLW LAMBDA,C F1B32090 13531 0500 00 1 61376 CLA LAMBDA+1,A F1B32100 13532 0601 00 4 61376 STO LAMBDA+1,C F1B32110 13533 0500 00 1 61377 CLA LAMBDA+2,A F1B32120 13534 0601 00 4 61377 STO LAMBDA+2,C F1B32130 13535 1 77775 4 13536 TXI R06100,C,-3 F1B32140 13536 1 77775 1 13537 R06100 TXI R06200,A,-3 F1B32150 13537 3 00000 1 13526 R06200 TXH R05300,A,0 F1B32160 13540 -0634 00 4 13561 SXD R07800,C -3P IN XC AT END F1B32170 13541 -0634 00 4 13705 SXD CS0760,C F1B32180 13542 0534 00 1 05120 LXA L(0),A F1B32190 13543 0500 00 1 61375 R06400 CLA LAMBDA,A STORE ORDERED, REDUCED LAMBDA TABLE F1B32200 13544 0734 00 2 00000 PAX 0,B IN SCRIPL TABLE F1B32210 13545 0500 00 2 71545 CLA BETA,B F1B32220 13546 -0734 00 4 00000 PDX 0,C F1B32230 13547 0500 00 1 61375 CLA LAMBDA,A F1B32240 BINARY CARD NO. 9F140131 13550 0601 00 4 65461 STO SCRIPL,C F1B32250 13551 0500 00 1 61376 CLA LAMBDA+1,A F1B32260 13552 0601 00 4 65462 STO SCRIPL+1,C F1B32270 13553 0500 00 1 61377 CLA LAMBDA+2,A F1B32280 13554 0601 00 4 65463 STO SCRIPL+2,C F1B32290 13555 1 77775 4 13556 TXI R07500,C,-3 F1B32300 13556 -0754 00 4 00000 R07500 PXD 0,C F1B32310 13557 0622 00 2 71545 STD BETA,B F1B32320 13560 1 77775 1 13561 TXI R07800,A,-3 F1B32330 13561 3 00000 1 13543 R07800 TXH R06400,A,0 -3P IN XA AT END F1B32340 13562 0560 00 0 05120 CS0000 LDQ L(0) ELIMINATE COMMON SEGMENTS F1B32350 13563 -0500 00 1 65456 CS0010 CAL SCRIPL-3,A F1B32360 13564 0100 00 0 13573 TZE CS0080 ERASED SEGMENT - CONTINUE BACK-SCAN F1B32370 13565 0734 00 2 00000 CS0030 PAX 0,B F1B32380 13566 -3 00000 2 13673 TXL CS0660,B,0 EXIT FROM CS ROUTINE F1B32390 13567 0621 00 0 13565 STA CS0030 F1B32400 13570 0500 00 2 71545 CLA BETA,B F1B32410 13571 0734 00 4 00000 CS0060 PAX 0,C F1B32420 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 117 * SECTION ONE PASS TWO * RECORD 9F14 * 13572 -3 77772 4 13574 TXL CS0090,C,-6 AT LEAST TWO ELEMENTS F1B32430 13573 1 00003 1 13563 CS0080 TXI CS0010,A,3 ONE ELEMENT OR ERASED SEGMENT F1B32440 13574 -0634 00 1 13647 CS0090 SXD CS0470,A SAVE XA F1B32450 13575 -0634 00 4 22251 SXD LENGTH,C SAVE XC, CONTAINING LENGTH OF SEGMENT F1B32460 BINARY CARD NO. 9F140132 13576 -3 00000 4 13601 CS0100 TXL CS0130,C,0 SEARCH UP FOR MATCHING SEGMENT F1B32470 13577 1 00003 1 13600 TXI CS0120,A,3 F1B32480 13600 1 00003 4 13576 CS0120 TXI CS0100,C,3 F1B32490 13601 -0500 00 1 65456 CS0130 CAL SCRIPL-3,A F1B32500 13602 -0100 00 0 13604 TNZ CS0151 F1B32510 13603 1 00003 1 13601 TXI CS0130,A,3 ERASED SEGMENT F1B32520 13604 0734 00 2 00000 CS0151 PAX 0,B F1B32530 13605 -3 00000 2 13666 TXL CS0610,B,0 GO ON TO NEXT SEGMENT F1B32540 13606 0621 00 0 13571 STA CS0060 F1B32550 13607 0500 00 2 71545 CLA BETA,B F1B32560 13610 0734 00 4 00000 PAX 0,C F1B32570 13611 -0754 00 4 00000 PXD 0,C F1B32580 13612 0402 00 0 22251 SUB LENGTH F1B32590 13613 -0100 00 0 13576 TNZ CS0100 NOT SAME LENGTH SEGMENT-CONTINUE SEARCH F1B32600 13614 -0534 00 2 13647 LXD CS0470,B SAME LENGTH SEGMENT F1B32610 13615 -0634 00 1 13665 SXD CS0600,A F1B32620 13616 -3 00000 4 13643 CS0250 TXL CS0430,C,0 MATCHING SEGMENTS F1B32630 13617 0500 00 2 65460 CLA SCRIPL-1,B F1B32640 13620 0402 00 1 65460 SUB SCRIPL-1,A F1B32650 13621 -0100 00 0 13576 TNZ CS0100 F1B32660 13622 -0500 00 2 65456 CAL SCRIPL-3,B SYMBOLS MATCH F1B32670 13623 -0320 00 0 06216 ANA MASK1 F1B32680 BINARY CARD NO. 9F140133 13624 0602 00 0 05604 SLW G F1B32690 13625 -0500 00 1 65456 CAL SCRIPL-3,A F1B32700 13626 -0320 00 0 06216 ANA MASK1 F1B32710 13627 0760 00 0 00006 COM F1B32720 13630 0361 00 0 05604 ACL G F1B32730 13631 0760 00 0 00006 COM F1B32740 13632 -0100 00 0 13576 TNZ CS0100 F1B32750 13633 0500 00 2 65457 CLA SCRIPL-2,B TAGS MATCH F1B32760 13634 0771 00 0 00006 ARS 6 F1B32770 13635 0767 00 0 00006 ALS 6 F1B32780 13636 0402 00 1 65457 SUB SCRIPL-2,A F1B32790 13637 -0100 00 0 13576 TNZ CS0100 F1B32800 13640 1 00003 1 13641 TXI CS0360,A,3 OPS MATCH F1B32810 13641 1 00003 2 13642 CS0360 TXI CS0370,B,3 F1B32820 13642 1 00003 4 13616 CS0370 TXI CS0250,C,3 F1B32830 13643 -0500 00 1 65461 CS0430 CAL SCRIPL,A MATCHING SEGMENTS F1B32840 13644 -0320 00 0 05117 ANA MASK2 SEARCH FOR REFERENCES F1B32850 13645 0340 00 1 65460 CS0450 CAS SCRIPL-1,A F1B32860 13646 1 00003 1 13645 TXI CS0450,A,3 F1B32870 13647 1 00000 0 13651 CS0470 TXI CS0490,0,0 F1B32880 13650 1 00003 1 13645 TXI CS0450,A,3 F1B32890 13651 0500 00 0 13565 CS0490 CLA CS0030 CHANGE REFERENCE F1B32900 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 118 * SECTION ONE PASS TWO * RECORD 9F14 * BINARY CARD NO. 9F140134 13652 0621 00 1 65460 STA SCRIPL-1,A F1B32910 13653 -0534 00 4 22251 LXD LENGTH,C F1B32920 13654 -0534 00 1 13665 LXD CS0600,A F1B32930 13655 -3 00000 4 13661 CS0530 TXL CS0570,C,0 ERASE DUPLICATE SEGMENT F1B32940 13656 -0600 00 1 65456 STQ SCRIPL-3,A F1B32950 13657 1 00003 1 13660 TXI CS0560,A,3 F1B32960 13660 1 00003 4 13655 CS0560 TXI CS0530,C,3 F1B32970 13661 0534 00 4 13571 CS0570 LXA CS0060,C F1B32980 13662 -0600 00 4 71545 STQ BETA,C F1B32990 13663 -0500 00 0 05112 CAL 11Z STORE CS BIT F1B33000 13664 -0602 00 2 65462 ORS SCRIPL+1,B F1B33010 13665 1 00000 0 13601 CS0600 TXI CS0130,0,0 F1B33020 13666 -0534 00 1 13647 CS0610 LXD CS0470,A F1B33030 13667 -0534 00 4 22251 LXD LENGTH,C F1B33040 13670 -3 00000 4 13563 CS0630 TXL CS0010,C,0 F1B33050 13671 1 00003 1 13672 TXI CS0650,A,3 F1B33060 13672 1 00003 4 13670 CS0650 TXI CS0630,C,3 F1B33070 13673 0534 00 5 05120 CS0660 LXA L(0),5 STRING BEADS... COMPRESS SCRIPL TABLE F1B33080 13674 -0500 00 1 65461 CS0670 CAL SCRIPL,A F1B33090 13675 0100 00 0 13704 TZE CS0750 F1B33100 13676 0602 00 4 65461 SLW SCRIPL,C F1B33110 13677 0500 00 1 65462 CLA SCRIPL+1,A F1B33120 BINARY CARD NO. 9F140135 13700 0601 00 4 65462 STO SCRIPL+1,C F1B33130 13701 0500 00 1 65463 CLA SCRIPL+2,A F1B33140 13702 0601 00 4 65463 STO SCRIPL+2,C F1B33150 13703 1 77775 4 13704 TXI CS0750,C,-3 F1B33160 13704 1 77775 1 13705 CS0750 TXI CS0760,A,-3 F1B33170 13705 3 00000 1 13674 CS0760 TXH CS0670,A,0 F1B33180 13706 -0634 00 4 13725 SXD PM0080,C -3Q IN XC AT END F1B33190 13707 -0634 00 4 14105 SXD AS1800,C F1B33200 13710 -0634 00 4 14130 SXD AS3600,C F1B33210 13711 0760 00 0 00140 PM0000 SLF TURN OFF ALL SENSE LITES F1B33220 13712 0500 00 0 04521 CLA MODECL TEST FOR BOOLEAN EXPRESSION AND IF SO F1B33230 13713 0402 00 0 05134 SUB L(B) SKIP PERMUTATION ROUTINE. F1B33240 13714 0100 00 0 14064 TZE AS0000 F1B33250 13715 0534 00 1 05120 LXA L(0),A PERMUTE * AND / F1B33260 13716 0500 00 1 65461 PM0010 CLA SCRIPL,A F1B33270 13717 0734 00 2 00000 PAX 0,B F1B33280 13720 0500 00 2 71545 CLA BETA,B F1B33290 13721 0734 00 4 00000 PAX 0,C LDXC WITH SEGMENT LENGTH F1B33300 13722 -0634 00 4 13724 SXD PM0070,C F1B33310 13723 -3 77767 4 13727 TXL PM0100,C,-9 F1B33320 13724 1 00000 1 13725 PM0070 TXI PM0080,A,0 LENGTH LESS THAN 3 OR OD NOT = TO * F1B33330 13725 -3 00000 1 14064 PM0080 TXL AS0000,A,0 EXIT FROM PERMUTATION ROUTINE F1B33340 BINARY CARD NO. 9F140136 13726 0020 00 0 13716 TRA PM0010 F1B33350 13727 -0500 00 1 65462 PM0100 CAL SCRIPL+1,A SEGMENT LENGTH AT LEAST = TO 3 F1B33360 13730 -0765 00 0 00036 LGR 30 F1B33370 13731 0402 00 0 05116 SUB STAR F1B33380 13732 -0100 00 0 13724 TNZ PM0070 F1B33390 13733 0162 00 0 13735 TQP PM0170 F1B33400 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 119 * SECTION ONE PASS TWO * RECORD 9F14 * 13734 0020 00 0 13724 TRA PM0070 F1B33410 13735 -0634 00 4 13744 PM0170 SXD PM0260,C F1B33420 13736 -0634 00 4 13761 SXD PM0400,C F1B33430 13737 -0634 00 4 14011 SXD PM0680,C F1B33440 13740 0534 00 4 05120 LXA L(0),C LDXC WITH 0 F1B33450 13741 1 77775 1 13742 TXI PM0240,A,-3 F1B33460 13742 0760 00 0 00143 PM0240 SLN 3 TURN * LITE ON F1B33470 13743 1 77775 4 13744 PM0250 TXI PM0260,C,-3 F1B33480 13744 -3 00000 4 14022 PM0260 TXL PM0790,C,0 EXIT F1B33490 13745 -0634 00 4 13754 SXD PM0340,C F1B33500 13746 -0534 00 2 13747 LXD PM0290,B F1B33510 13747 1 00000 3 13750 PM0290 TXI PM0300,3,0 XA TO XA AND XB F1B33520 13750 -0500 00 1 65462 PM0300 CAL SCRIPL+1,A F1B33530 13751 -0765 00 0 00036 LGR 30 F1B33540 13752 0340 00 0 05113 CAS SLASH F1B33550 13753 0 00007 0 00000 FEXUB PZE ,,7 TEST NUMBER FOR IN-LINE EXPONENTS. F1B33560 BINARY CARD NO. 9F140137 13754 -3 00000 0 14005 PM0340 TXL PM0640,0,0 / SIGN F1B33570 13755 -0760 00 0 00143 SLT 3 * SIGN... IS * LITE ON F1B33580 13756 1 77775 1 13742 TXI PM0240,A,-3 NO F1B33590 13757 1 77775 2 13760 TXI PM0390,B,-3 YES - SEARCH FOR / SIGN F1B33600 13760 1 77775 4 13761 PM0390 TXI PM0400,C,-3 F1B33610 13761 -3 00000 4 14020 PM0400 TXL PM0770,C,0 EXIT F1B33620 13762 -0500 00 2 65462 CAL SCRIPL+1,B F1B33630 13763 -0765 00 0 00036 LGR 30 F1B33640 13764 0402 00 0 05113 SUB SLASH F1B33650 13765 0100 00 0 13767 TZE PM0480 F1B33660 13766 1 77775 2 13760 TXI PM0390,B,-3 F1B33670 13767 0500 00 1 65461 PM0480 CLA SCRIPL,A PERMUTE TAG WORDS F1B33680 13770 0560 00 2 65461 LDQ SCRIPL,B F1B33690 13771 -0600 00 1 65461 STQ SCRIPL,A F1B33700 13772 0601 00 2 65461 STO SCRIPL,B F1B33710 13773 0500 00 1 65462 CLA SCRIPL+1,A PERMUTE OP WORDS F1B33720 13774 0560 00 2 65462 LDQ SCRIPL+1,B F1B33730 13775 -0600 00 1 65462 STQ SCRIPL+1,A F1B33740 13776 0601 00 2 65462 STO SCRIPL+1,B F1B33750 13777 0500 00 1 65463 CLA SCRIPL+2,A PERMUTE SYMBOL WORDS F1B33760 14000 0560 00 2 65463 LDQ SCRIPL+2,B F1B33770 14001 -0600 00 1 65463 STQ SCRIPL+2,A F1B33780 BINARY CARD NO. 9F140138 14002 0601 00 2 65463 STO SCRIPL+2,B F1B33790 14003 -0534 00 4 13754 LXD PM0340,C F1B33800 14004 1 77775 1 13743 TXI PM0250,A,-3 RESUME SEGMENT SCAN F1B33810 14005 -0760 00 0 00143 PM0640 SLT 3 / SIGN... IS * LITE ON F1B33820 14006 1 77775 2 14010 PM0650 TXI PM0670,B,-3 NO F1B33830 14007 1 77775 1 13743 TXI PM0250,A,-3 F1B33840 14010 1 77775 4 14011 PM0670 TXI PM0680,C,-3 F1B33850 14011 -3 00000 4 14020 PM0680 TXL PM0770,C,0 F1B33860 14012 -0500 00 2 65462 CAL SCRIPL+1,B F1B33870 14013 -0765 00 0 00036 LGR 30 F1B33880 14014 0402 00 0 05113 SUB SLASH F1B33890 14015 0100 00 0 14006 TZE PM0650 F1B33900 14016 0760 00 0 00143 SLN 3 TORN * LITE ON F1B33910 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 120 * SECTION ONE PASS TWO * RECORD 9F14 * 14017 0020 00 0 13767 TRA PM0480 F1B33920 14020 -0534 00 1 14021 PM0770 LXD PM0780,A F1B33930 14021 1 00000 3 14022 PM0780 TXI PM0790,3,0 XB TO XA,XB F1B33940 14022 -0500 00 1 65457 PM0790 CAL SCRIPL-2,A F1B33950 14023 -0765 00 0 00036 LGR 30 F1B33960 14024 0402 00 0 05113 SUB SLASH F1B33970 14025 0100 00 0 13725 TZE PM0080 ... / - EXIT FROM SEGMENT SCAN F1B33980 14026 -0500 00 1 65454 CAL SCRIPL-5,A F1B33990 14027 -0765 00 0 00036 LGR 30 F1B34000 BINARY CARD NO. 9F140139 14030 0402 00 0 05113 SUB SLASH F1B34010 14031 0100 00 0 13725 TZE PM0080 ... / * - EXIT FROM SEGMENT SCAN F1B34020 14032 0500 00 1 65456 CLA SCRIPL-3,A ... ** F1B34030 14033 0601 00 0 05557 STO E F1B34040 14034 0500 00 1 65457 CLA SCRIPL-2,A F1B34050 14035 0601 00 0 05560 STO E+1 F1B34060 14036 0500 00 1 65460 CLA SCRIPL-1,A F1B34070 14037 0601 00 0 05561 STO E+2 F1B34080 14040 1 00003 1 14041 TXI PM0980,A,3 F1B34090 14041 1 00003 4 14042 PM0980 TXI PM0990,C,3 F1B34100 14042 -3 00000 4 14052 PM0990 TXL PM1070,C,0 FINIS F1B34110 14043 0500 00 1 65456 CLA SCRIPL-3,A F1B34120 14044 0601 00 1 65461 STO SCRIPL,A F1B34130 14045 0500 00 1 65457 CLA SCRIPL-2,A F1B34140 14046 0601 00 1 65462 STO SCRIPL+1,A F1B34150 14047 0500 00 1 65460 CLA SCRIPL-1,A F1B34160 14050 0601 00 1 65463 STO SCRIPL+2,A F1B34170 14051 1 00003 1 14041 TXI PM0980,A,3 F1B34180 14052 0500 00 0 05557 PM1070 CLA E F1B34190 14053 0601 00 1 65461 STO SCRIPL,A F1B34200 14054 0500 00 0 05560 CLA E+1 F1B34210 14055 0601 00 1 65462 STO SCRIPL+1,A F1B34220 BINARY CARD NO. 9F140140 14056 0500 00 0 05561 CLA E+2 F1B34230 14057 0601 00 1 65463 STO SCRIPL+2,A F1B34240 14060 -0500 00 1 65465 CAL SCRIPL+4,A PRESERVE CS BIT F1B34250 14061 -0320 00 0 05112 ANA 11Z F1B34260 14062 -0602 00 1 65462 ORS SCRIPL+1,A F1B34270 14063 0020 00 0 13724 TRA PM0070 F1B34280 14064 0534 00 7 05120 AS0000 LXA L(0),7 RENUMBER SEGMENT OF SCRIPL F1B34290 14065 0500 00 2 71545 AS0100 CLA BETA,B F1B34300 14066 0100 00 0 14072 TZE AS0700 F1B34310 14067 0754 00 4 00000 PXA 0,C F1B34320 14070 0621 00 2 71545 STA BETA,B F1B34330 14071 1 77777 4 14072 TXI AS0700,C,-1 F1B34340 14072 1 77777 2 14073 AS0700 TXI AS0800,B,-1 F1B34350 14073 3 00000 2 14065 AS0800 TXH AS0100,B,0 F1B34360 14074 0500 00 1 65461 AS0900 CLA SCRIPL,A F1B34370 14075 0734 00 2 00000 PAX 0,B F1B34380 14076 0500 00 2 71545 CLA BETA,B F1B34390 14077 0621 00 1 65461 STA SCRIPL,A F1B34400 14100 0560 00 1 65463 LDQ SCRIPL+2,A F1B34410 14101 -0763 00 0 00001 LGL 1 F1B34420 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 121 * SECTION ONE PASS TWO * RECORD 9F14 * 14102 0760 00 0 00001 LBT F1B34430 14103 0162 00 0 14107 TQP AS2000 F1B34440 BINARY CARD NO. 9F140141 14104 1 77775 1 14105 TXI AS1800,A,-3 F1B34450 14105 3 00000 1 14074 AS1800 TXH AS0900,A,0 F1B34460 14106 0020 00 0 14114 TRA AS2500 F1B34470 14107 -0763 00 0 00043 AS2000 LGL 35 F1B34480 14110 0734 00 2 00000 PAX 0,B F1B34490 14111 0500 00 2 71545 CLA BETA,B F1B34500 14112 0621 00 1 65463 STA SCRIPL+2,A F1B34510 14113 1 77775 1 14105 TXI AS1800,A,-3 F1B34520 14114 0534 00 3 05120 AS2500 LXA L(0),3 LDXA,XB WITH 0 F1B34530 14115 0560 00 0 05120 LDQ L(0) CLEAR MQ F1B34540 14116 -0600 00 2 71545 AS2700 STQ BETA,B RECLEAR BETA TABLE F1B34550 14117 1 77777 2 14120 TXI AS2900,B,-1 F1B34560 14120 3 00000 2 14116 AS2900 TXH AS2700,B,0 F1B34570 14121 0500 00 1 65461 AS3000 CLA SCRIPL,A ADD INTO GAMMA COUNTERS F1B34580 14122 0734 00 2 00000 PAX 0,B F1B34590 14123 0500 00 2 71545 CLA BETA,B F1B34600 14124 0400 00 0 06155 ADD BETAD2 3*2**18+(-3) F1B34610 14125 0622 00 2 71545 STD BETA,B F1B34620 14126 0621 00 2 71545 STA BETA,B F1B34630 14127 1 77775 1 14130 TXI AS3600,A,-3 F1B34640 14130 3 00000 1 14121 AS3600 TXH AS3000,A,0 -3Q IN XA AT END F1B34650 14131 -0634 00 1 22237 SXD 3LBAR,A -3Q TO 3QBAR = 3LBAR F1B34660 BINARY CARD NO. 9F140142 14132 -0500 00 1 65456 CCS000 CAL SCRIPL-3,A ELIMINATE COMMON SUBEXPRESSIONS F1B34670 14133 0734 00 2 00000 PAX 0,B LOAD XB WITH S(I) F1B34680 14134 -3 00000 2 14160 TXL CCS240,B,0 EXIT AT S(0) F1B34690 14135 -0500 00 2 71545 CAL BETA,B OBTAIN LENGTH OF S(I) F1B34700 14136 0622 00 0 14137 STD CCS060 AND BACK UP TO F1B34710 14137 1 00000 1 14140 CCS060 TXI CCS070,A,0 BEGINNING OF CURRENT SEGMENT F1B34720 14140 -0500 00 1 65462 CCS070 CAL SCRIPL+1,A OBTAIN OP1 (S(I)) F1B34730 14141 -0320 00 0 05112 ANA 11Z EXTRACT CS-BIT F1B34740 14142 0100 00 0 14132 TZE CCS000 CONTINUE TO S(I-1) F1B34750 14143 0754 00 2 00000 PXA 0,B F1B34760 14144 0534 00 4 05120 LXA L(0),C TO S(I) F1B34770 14145 -0534 00 2 14146 LXD CCS140,B AND KEEP COUNT OF SAME F1B34780 14146 1 00000 3 14147 CCS140 TXI CCS150,3,0 XA TO XA,XB F1B34790 14147 -3 00000 2 14154 CCS150 TXL CCS200,B,0 SEARCH-UP FINISHED. EXAMINE COUNT F1B34800 14150 0340 00 2 65460 CAS SCRIPL-1,B F1B34810 14151 1 00003 2 14147 TXI CCS150,B,3 CONTINUE SEARCH F1B34820 14152 1 00001 4 14153 TXI CCS190,C,1 RAISE REF COUNTER AND F1B34830 14153 1 00003 2 14147 CCS190 TXI CCS150,B,3 CONTINUE SEARCH F1B34840 14154 3 00001 4 14132 CCS200 TXH CCS000,C,1 MULTIPLE REFERENCE F1B34850 14155 -0500 00 0 06217 CAL MASK4 SINGLE REFERENCE - SO SET F1B34860 14156 0320 00 1 65462 ANS SCRIPL+1,A OP1(S(I))30 TO 0, AND F1B34870 14157 0020 00 0 14132 TRA CCS000 CONTINUE FOR S(I-1) F1B34880 BINARY CARD NO. 9F140143 14160 -0534 00 1 14130 CCS240 LXD AS3600,A -3Q TO XA F1B34890 14161 -3 00000 1 14446 PL0000 TXL LK0000,A,0 GO TO LINKAGE F1B34900 14162 0500 00 1 65456 CLA SCRIPL-3,A F1B34910 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 122 * SECTION ONE PASS TWO * RECORD 9F14 * 14163 0734 00 2 00000 PAX 0,B F1B34920 14164 -0500 00 2 71545 CAL BETA,B F1B34930 14165 0734 00 4 00000 PAX 0,C F1B34940 14166 0622 00 0 14167 STD PL0060 F1B34950 14167 1 00000 1 14170 PL0060 TXI PL0070,A,0 SET XA TO BEGINNING OF S(I) F1B34960 14170 -0500 00 1 65462 PL0070 CAL SCRIPL+1,A OBTAIN F1B34970 14171 -0765 00 0 00036 LGR 30 AND F1B34980 14172 0340 00 0 05144 CAS SPECOP EXAMINE OP1 (S(I)) F1B34990 14173 0020 00 0 14272 TRA PL0680 F1B35000 14174 0020 00 0 14231 TRA PL0460 F1B35010 14175 -0500 00 1 65463 PL0130 CAL SCRIPL+2,A OP1 (S(I)) IS +, - OR * F1B35020 14176 -0765 00 0 00043 LGR 35 OBTAIN AND F1B35030 14177 0760 00 0 00001 LBT EXAMINE SYM1 (S(I)) F1B35040 14200 0162 00 0 14212 TQP PL0300 F1B35050 14201 -0763 00 0 00005 LGL 5 EX (IN)TERNAL VARIAVLE F1B35060 14202 0340 00 0 05140 PL0135 CAS L(H) IS SYM1 (S(I)) FIX OR FLO PT F1B35070 14203 0340 00 0 05143 CAS L(O) F1B35080 14204 0020 00 0 14207 TRA PL0240 FLO PT... SET OP1 (S(I)) 32 = 1 F1B35090 14205 0020 00 0 14207 TRA PL0240 FLO PT... DITTO F1B35100 BINARY CARD NO. 9F140144 14206 0020 00 0 14161 TRA PL0000 FIX PT... OP1 (S(I)) 32 = 0 F1B35110 14207 -0500 00 0 05130 PL0240 CAL L(8) SET OP1 (S(I)) 32 = 1 F1B35120 14210 -0602 00 1 65462 PL0250 ORS SCRIPL+1,A F1B35130 14211 1 00000 0 14161 PL0260 TXI PL0000,0,0 CONTINUE SCAN F1B35140 14212 -0534 00 2 14213 PL0300 LXD PL0310,B SYM1 (S(I)) = SOME S(J) F1B35150 14213 1 00000 3 14214 PL0310 TXI PL0320,3,0 XA TO XA,XB F1B35160 14214 -0634 00 4 14215 PL0320 SXD PL0330,C F1B35170 14215 1 00000 2 14216 PL0330 TXI PL0340,B,0 F1B35180 14216 -0500 00 2 65461 PL0340 CAL SCRIPL,B F1B35190 14217 0734 00 4 00000 PAX 0,C F1B35200 14220 -0320 00 0 05117 ANA MASK2 F1B35210 14221 0402 00 1 65463 SUB SCRIPL+2,A F1B35220 14222 0100 00 0 14226 TZE PL0420 F1B35230 14223 0500 00 4 71545 CLA BETA,C F1B35240 14224 0734 00 4 00000 PAX 0,C F1B35250 14225 0020 00 0 14214 TRA PL0320 F1B35260 14226 -0500 00 2 65462 PL0420 CAL SCRIPL+1,B SYM1(S(I)) = S(J) F1B35270 14227 -0320 00 0 05130 ANA L(8) EXTRACT OP1 (S(J)) 32 AND GO F1B35280 14230 0020 00 0 14210 TRA PL0250 SET OP1 (S(I)) 32 = OP1 (S(J)) 32 F1B35290 14231 -0763 00 0 00007 PL0460 LGL 7 OP1 (S(I)) IS SPOP F1B35300 14232 0162 00 0 14240 TQP PL0465 F1B35310 14233 -0500 00 1 65463 PL0461 CAL SCRIPL+2,A FS NAME - F1B35320 BINARY CARD NO. 9F140145 14234 -0765 00 0 00036 LGR 30 EXAMINE SUM1 (S(I)) S,1-5 F1B35330 14235 0402 00 0 06131 SUB L(X) F1B35340 14236 -0100 00 0 14207 TNZ PL0240 FLO PT... GO SET OP1 (S(I)) 32 = 1 F1B35350 14237 0020 00 0 14161 TRA PL0000 FIX PT ... OP1 (S(I)) 32 = 0 F1B35360 14240 0760 00 0 00001 PL0465 LBT F1B35370 14241 0020 00 0 14245 TRA PL0470 F1B35380 14242 -0500 00 1 65463 CAL SCRIPL+2,A F1B35390 14243 -0765 00 0 00036 LGR 30 F1B35400 14244 0020 00 0 14202 TRA PL0135 F1B35410 14245 0500 00 1 65463 PL0470 CLA SCRIPL+2,A NOT AN FS NAME F1B35420 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 123 * SECTION ONE PASS TWO * RECORD 9F14 * 14246 0534 00 2 05120 LXA L(0),B F1B35430 14247 0340 00 2 14751 PL0480 CAS OPSUB,B F1B35440 14250 1 77777 2 14253 TXI PL0520,B,-1 F1B35450 DOUBLE PRECISION-COMPLEX ARITHMETIC PATCH. F1B35460 14251 0020 00 0 14411 TRA DP004 F1B35470 F1B35480 14252 1 77777 2 14253 TXI PL0520,B,-1 F1B35490 14253 3 77754 2 14247 PL0520 TXH PL0480,B,-20 F1B35500 14254 0601 00 0 05604 STO G F1B35510 DOUBLE PRECISION-COMPLEX ARITHMETIC PATCH. F1B35520 14255 0500 00 0 04521 CLA MODECL F1B35530 14256 0402 00 0 05136 SUB L(D) F1B35540 14257 0100 00 0 14416 TZE DP0042 F1B35550 14260 0402 00 0 05125 ITEST4 SUB L(5) F1B35560 14261 0100 00 0 14416 TZE DP0042 F1B35570 F1B35580 BINARY CARD NO. 9F140146 14262 -0634 00 1 14211 PL0521 SXD PL0260,A F1B35590 14263 0074 00 1 04405 TSX TET00,A F1B35600 14264 0000 00 0 00011 HTR 9 F1B35610 14265 -0534 00 1 14211 LXD PL0260,A F1B35620 14266 0020 00 0 14233 TRA PL0461 F1B35630 14267 -0500 00 0 05124 PL0650 CAL L(4) SET OP1 (S(I)) 33 =1 F1B35640 14270 -0602 00 1 65462 ORS SCRIPL+1,A F1B35650 14271 0020 00 0 14233 TRA PL0461 F1B35660 14272 0162 00 0 14175 PL0680 TQP PL0130 F1B35670 14273 0020 00 0 20672 TRA EXPCH OP1 (S(I)) IS **, CHECK FOR ERROR $F1B35680 14274 -0765 00 0 00043 LGR 35 OBTAIN AND EXAMINE F1B35690 14275 0760 00 0 00001 LBT SYM1 (S(I)) F1B35700 14276 0162 00 0 14351 TQP PL1000 F1B35710 14277 -0763 00 0 00005 LGL 5 EX (IN)TERNAL VARIABLE F1B35720 14300 0340 00 0 05140 CAS L(H) IS OT FIX OR FLO PT F1B35730 14301 0340 00 0 05143 CAS L(O) F1B35740 14302 0020 00 0 14305 TRA PL0800 F1B35750 14303 0020 00 0 14305 TRA PL0800 F1B35760 14304 0020 00 0 14307 TRA PL0830 FIX PT F1B35770 14305 -0500 00 0 05130 PL0800 CAL L(8) FLO PT... SET OP1 (S(I)) 32 = 1 F1B35780 14306 -0602 00 1 65462 PL0820 ORS SCRIPL+1,A F1B35790 14307 -0500 00 1 65466 PL0830 CAL SCRIPL+5,A OBTAIN F1B35800 BINARY CARD NO. 9F140147 14310 -0765 00 0 00043 LGR 35 AND F1B35810 14311 0760 00 0 00001 LBT EXAMINE F1B35820 14312 0162 00 0 14370 TQP PL1200 SYM2 (S(I)) F1B35830 14313 -0763 00 0 00005 LGL 5 F1B35840 14314 0340 00 0 05140 CAS L(H) F1B35850 14315 0340 00 0 05143 CAS L(O) F1B35860 14316 0020 00 0 14346 TRA PL0940 SYM2 (S(I)) IS FLO PT, SO GO F1B35870 14317 0020 00 0 14346 TRA PL0940 SET OP2 (S(I)) 32 = 1 F1B35880 14320 -0754 00 0 00000 PL0850 PXD 0,0 SYM2(S(I)) IS FIX PT F1B35890 14321 -0763 00 0 00006 LGL 6 F1B35900 14322 0402 00 0 05106 SUB OPEN F1B35910 14323 -0100 00 0 14161 TNZ PL0000 SYM2 (S(I)) IS EXTERNAL F1B35920 DOUBLE PRECISION-COMPLEX ARITHMETIC PATCH. F1B35930 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 124 * SECTION ONE PASS TWO * RECORD 9F14 * AVOID USE OF OPEN SUBROUTINE FOR DP F1B35940 FLOATING PT BASE TO FIXED PT. POWER LESS F1B35950 THAN OR EQUAL TO 7. F1B35951 14324 0500 00 0 04521 DP006 CLA MODECL F1B35960 14325 0402 00 0 05136 SUB L(D) F1B35970 14326 0100 00 0 14161 TZE PL0000 F1B35980 14327 0402 00 0 05125 SUB L(5) F1B35990 14330 0100 00 0 14161 TZE PL0000 F1B36000 14331 -0754 00 0 00000 PXD ,0 F1B36010 F1B36020 14332 -0763 00 0 00030 LGL 24 F1B36030 14333 0400 00 0 04152 ADD FXCNIX-1 F1B36040 14334 0621 00 0 14335 STA *+1 F1B36050 14335 0500 00 0 00000 CLA ** F1B36060 BINARY CARD NO. 9F140148 14336 0100 00 0 14161 PL1570 TZE PL0000 EXP IS 0, SO OP1 (S(I)) 33 = 0 F1B36070 14337 0340 00 0 13753 CAS FEXUB F1B36080 14340 3 00000 0 00000 TXH 0,,0 EXP NOT LESS THAN 7, SO F1B36090 14341 0020 00 0 14161 TRA PL0000 OP1 (S(I)) 33 = 0 F1B36100 14342 0601 00 1 65466 STO SCRIPL+5,A EXP LESS THAN 7, SO STORE EXP F1B36110 14343 -0500 00 0 05124 CAL L(4) AS SYM2 (S(I)) AND SET F1B36120 14344 -0602 00 1 65462 ORS SCRIPL+1,A OP1 (S(I)) 33 = 1 F1B36130 14345 0020 00 0 14161 TRA PL0000 F1B36140 14346 -0500 00 0 05130 PL0940 CAL L(8) SYM2 (S(I)) IS FLO PT F1B36150 14347 -0602 00 1 65465 ORS SCRIPL+4,A SET OP2 (S(I)) 32 = 1 F1B36160 14350 0020 00 0 14161 TRA PL0000 F1B36170 14351 -0534 00 2 14352 PL1000 LXD PL1010,B SYM1 (S(I)) IS SOME S(J) F1B36180 14352 1 00000 3 14353 PL1010 TXI PL1020,3,0 XA TO XA,XB F1B36190 14353 -0634 00 4 14354 PL1020 SXD PL1030,C F1B36200 14354 1 00000 2 14355 PL1030 TXI PL1040,B,0 F1B36210 14355 -0500 00 2 65461 PL1040 CAL SCRIPL,B F1B36220 14356 0734 00 4 00000 PAX 0,C F1B36230 14357 -0320 00 0 05117 ANA MASK2 F1B36240 14360 0402 00 1 65463 SUB SCRIPL+2,A F1B36250 14361 0100 00 0 14365 TZE PL1130 F1B36260 14362 0500 00 4 71545 CLA BETA,C F1B36270 14363 0734 00 4 00000 PAX 0,C F1B36280 BINARY CARD NO. 9F140149 14364 0020 00 0 14353 TRA PL1020 F1B36290 14365 -0500 00 2 65462 PL1130 CAL SCRIPL+1,B F1B36300 14366 -0320 00 0 05130 ANA L(8) F1B36310 14367 0020 00 0 14306 TRA PL0820 F1B36320 14370 -0534 00 2 14371 PL1200 LXD PL1210,B SYM2 (S(I)) = SOME S(K) F1B36330 14371 1 00000 3 14372 PL1210 TXI PL1220,3,0 XA TO XA,XB F1B36340 14372 -0534 00 4 14404 PL1220 LXD PL1330,C LKXC WITH -6 F1B36350 14373 -0634 00 4 14374 PL1230 SXD PL1240,C F1B36360 14374 1 00000 2 14375 PL1240 TXI PL1250,B,0 F1B36370 14375 -0500 00 2 65461 PL1250 CAL SCRIPL,B F1B36380 14376 0734 00 4 00000 PAX 0,C F1B36390 14377 -0320 00 0 05117 ANA MASK2 F1B36400 14400 0402 00 1 65466 SUB SCRIPL+5,A F1B36410 14401 0100 00 0 14405 TZE PL1340 SYM2(S(I)) = S(K) F1B36420 14402 0500 00 4 71545 CLA BETA,C F1B36430 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 125 * SECTION ONE PASS TWO * RECORD 9F14 * 14403 0734 00 4 00000 PAX 0,C F1B36440 14404 1 77772 0 14373 PL1330 TXI PL1230,0,-6 F1B36450 14405 -0500 00 2 65462 PL1340 CAL SCRIPL+1,B SET OP2(S(I)) 32 = OP1 (S(K)) 32 F1B36460 14406 -0320 00 0 05130 ANA L(8) F1B36470 14407 -0602 00 1 65465 ORS SCRIPL+4,A F1B36480 14410 0020 00 0 14161 TRA PL0000 RESUME SCAN F1B36490 DOUBLE PRECISION-COMPLEX ARITHMETIC PATCH. F1B36500 PREFACE NAME OF LIBRARY SUBROUTINES FOR FLOATING POINT (DP) F1B36510 OPERATIONS BY D (EXAMPLE SIN BECOMES DSIN) F1B36520 OR PREFACE NAME OF SUBROUTINES WITH I IF COMPLEX ARITH F1B36530 MODE, FOR EXAMPLE SIN BECOMES ISIN. F1B36540 14411 0500 00 0 04521 DP004 CLA MODECL F1B36550 BINARY CARD NO. 9F140150 14412 0402 00 0 05136 SUB L(D) F1B36560 14413 0100 00 0 14416 TZE DP0042 F1B36570 14414 0402 00 0 05125 ITEST3 SUB L(5) TEST IF CPLX ARITH MODE. F1B36580 14415 -0100 00 0 14267 TNZ PL0650 F1B36590 14416 0560 00 1 65463 DP0042 LDQ SCRIPL+2,1 F1B36600 14417 -0754 00 0 00000 PXD ,0 F1B36610 14420 -0763 00 0 00006 LGL 6 F1B36620 14421 0402 00 0 06131 SUB L(X) F1B36630 FIXED POINT ERROR DETECTION F1B36640 14422 0100 00 0 17171 TZE ERDP02 F1B36650 14423 0500 00 0 04521 DP0045 CLA MODECL F1B36660 14424 0560 00 1 65463 LDQ SCRIPL+2,1 GET NAME OF FUNCTION F1B36670 14425 -0763 00 0 00036 LGL 30 MOVE FIRST 5 CHARACTERS INTO AC. F1B36680 14426 -0773 00 0 00006 RQL 6 MOVE CHARACTER (IF ANY) TO LOW ORDER BITS F1B36690 14427 -0130 00 0 00000 XCL MOVE LAST CHARACTER INTO AC. F1B36700 14430 0402 00 0 05145 SUB BLANK IF IT IS A BLANK, OK F1B36710 14431 0100 00 0 14433 TZE DP0046 F1B36720 14432 0074 00 4 04504 ERDP03 TSX DIAG,4 INCORRECTLY NAMED F1B36730 14433 -0130 00 0 00000 DP0046 XCL RETURN NAME TO AC. F1B36740 14434 0602 00 1 65463 SLW SCRIPL+2,1 F1B36750 14435 0602 00 0 05604 SLW G F1B36760 14436 0774 00 2 00000 CORR05 AXT 0,2 F1B36770 14437 0534 00 4 17367 LXA DOPSUB,4 INITIALIZE FOR TABLE SEARCH F1B36780 BINARY CARD NO. 9F140151 14440 -0340 00 2 17370 DP0047 LAS DOPSUB+1,2 BEGIN TABLE SEARCH F1B36790 14441 1 77777 2 14444 TXI *+3,2,-1 CONTINUE F1B36800 14442 0020 00 0 14207 TRA PL0240 F1B36810 14443 1 77777 2 14444 TXI *+1,2,-1 CONTINUE F1B36820 14444 2 00001 4 14440 TIX DP0047,4,1 F1B36830 14445 0020 00 0 14262 TRA PL0521 F1B36840 F1B36850 14446 -0534 00 1 14130 LK0000 LXD AS3600,A -3Q TO XA F1B36860 14447 -0500 00 1 65456 LK0030 CAL SCRIPL-3,A F1B36870 14450 0734 00 2 00000 PAX 0,B S(I) TO XB F1B36880 14451 -3 00000 2 14657 TXL LK1610,B,0 EXIT UPON ENCOUNTERING S(0) F1B36890 14452 0560 00 1 65457 LDQ SCRIPL-2,A PLACE LAST OP OP S(I) IN MQ F1B36900 14453 0500 00 2 71545 CLA BETA,B F1B36910 14454 0622 00 0 14455 STD LK0110 F1B36920 14455 1 00000 1 14456 LK0110 TXI LK0120,A,0 MOVE XA TO BEGINNING OF S(I) F1B36930 14456 -0534 00 4 14457 LK0120 LXD LK0130,C F1B36940 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 126 * SECTION ONE PASS TWO * RECORD 9F14 * 14457 1 00000 5 14460 LK0130 TXI LK0140,5,0 XA TO XA,XC F1B36950 14460 -0634 00 1 14130 LK0140 SXD AS3600,A F1B36960 14461 0500 00 2 71544 CLA BETA-1,B F1B36970 14462 -0734 00 2 00000 PDX 0,B LENGTH OF S(I-1) TO XB F1B36980 14463 -0634 00 2 14464 SXD LK0180,B F1B36990 14464 1 00000 4 14465 LK0180 TXI LK0190,C,0 MOVE XC TO BEGINNING OF S(I-1) F1B37000 14465 0162 00 0 14607 LK0190 TQP LK1200 S(I) TYPE AC F1B37010 BINARY CARD NO. 9F140152 14466 -0773 00 0 00001 RQL 1 F1B37020 14467 0162 00 0 14607 TQP LK1200 S(I) TYPE AC F1B37030 14470 -0500 00 0 05115 CAL 12Z S(I) RESULTS IN MQ (TYPE MQ) F1B37040 14471 -0602 00 1 65462 ORS SCRIPL+1,A SET OP1 (S(I)) 31 = 1 F1B37050 14472 -0500 00 4 65462 CAL SCRIPL+1,C PLACE OP1 (S(I-1)) IN MQ F1B37060 14473 -0765 00 0 00036 LGR 30 F1B37070 14474 0340 00 0 05144 CAS SPECOP F1B37080 14475 0020 00 0 14500 TRA LK0320 F1B37090 14476 0020 00 0 14564 TRA LK0950 F1B37100 14477 0020 00 0 14447 TRA LK0030 S(I)TYPTMQ, S(I-1)TYPEAC . OP1(S(I))29=0 F1B37110 14500 0162 00 0 14521 LK0320 TQP LK0570 F1B37120 14501 -0763 00 0 00033 LGL 27 S(I)TYPE MQ, OP1(S(I-1) = ** F1B37130 14502 -0500 00 1 65461 CAL SCRIPL,A F1B37140 14503 -0320 00 0 05117 ANA MASK2 EXTRACT S(I) IN ACC F1B37150 14504 0162 00 0 14514 TQP LK0480 OP1 (S(I-1)) 33 = 0 F1B37160 14505 0402 00 4 65463 SUB SCRIPL+2,C OP1 (S(I-1)) 33 = 1. OPEN ** SUBROUTINE. F1B37170 14506 -0100 00 0 14447 TNZ LK0030 SET OP1 (S(I)) 29 = OP1 (S(I-1)) 35 = 0 F1B37180 14507 -0500 00 0 05123 CAL L(3) S(I) = SYM1 (S(I-1)), SO F1B37190 14510 -0602 00 4 65462 LK0430 ORS SCRIPL+1,C F1B37200 14511 -0500 00 0 06133 LK0440 CAL BIT29 F1B37210 14512 -0602 00 1 65462 ORS SCRIPL+1,A F1B37220 14513 0020 00 0 14447 TRA LK0030 OP1 (S(I-1)) = 0. CLOSED ** SUBROUTINE. F1B37230 BINARY CARD NO. 9F140153 14514 0402 00 4 65466 LK0480 SUB SCRIPL+5,C F1B37240 14515 -0100 00 0 14447 TNZ LK0030 SET OP1(S(I))29=OP1(S(I-1))35=0 F1B37250 14516 -0500 00 0 05121 CAL L(1) S(I) = SYM2 (S(I-1)), SO F1B37260 14517 -0602 00 4 65465 ORS SCRIPL+4,C SET OP2 (S(I-1)) 35 = 1 F1B37270 14520 0020 00 0 14511 TRA LK0440 F1B37280 14521 -0500 00 4 65465 LK0570 CAL SCRIPL+4,C S(I) TYPE MQ, OP1 (S(I-1)) = * F1B37290 14522 -0765 00 0 00036 LGR 30 PLACE PO2 (S(I-1)) IN MQ F1B37300 IS OP2 (S(I-1)) = * F1B37310 14523 0402 00 0 05116 SUB STAR F1B37320 14524 -0100 00 0 14447 TNZ LK0030 NO - SET OP1 (S(I)) 29 = OP1 (S(I-1)) 35 =0F1B37330 14525 -0500 00 0 05122 CAL L(2) YES F1B37340 14526 -0602 00 4 65462 ORS SCRIPL+1,C SET OP1(S(I-1))34=1 F1B37350 14527 -0500 00 1 65461 LK0630 CAL SCRIPL,A F1B37360 14530 -0320 00 0 05117 ANA MASK2 SEARCH FOR S(I) IN S(I-1) F1B37370 14531 -3 00000 2 14446 LK0650 TXL LK0000,B,0 NOT FOUND AT ALL F1B37380 14532 0340 00 1 65460 CAS SCRIPL-1,A F1B37390 14533 1 00003 1 14536 TXI LK0700,A,3 F1B37400 14534 0020 00 0 14537 TRA LK0710 F1B37410 14535 1 00003 1 14536 TXI LK0700,A,3 NOT FOUND - CONTINUE SEARCH F1B37420 14536 1 77775 2 14531 LK0700 TXI LK0650,B,-3 F1B37430 14537 0560 00 1 65457 LK0710 LDQ SCRIPL-2,A S(I) IS SYMJ (S(I-1)) F1B37440 14540 -0773 00 0 00001 RQL 1 IS OPJ (S(I-1)) = * F1B37450 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 127 * SECTION ONE PASS TWO * RECORD 9F14 * 14541 0162 00 0 14543 TQP LK0750 F1B37460 BINARY CARD NO. 9F140154 14542 1 00003 1 14536 TXI LK0700,A,3 NO... CONTINUE SEARCH F1B37470 14543 0500 00 4 65461 LK0750 CLA SCRIPL,C YES...PERMUTE EL1(S(I-1)) WITH ELJ(S(I-1)) F1B37480 14544 0560 00 1 65456 LDQ SCRIPL-3,A EXCHANGE F1B37490 14545 0601 00 1 65456 STO SCRIPL-3,A TAG F1B37500 14546 -0600 00 4 65461 STQ SCRIPL,C WORDS F1B37510 14547 -0500 00 4 65462 CAL SCRIPL+1,C PLACE OP1 (S(I-1)) IN ACC F1B37520 14550 0560 00 1 65457 LDQ SCRIPL-2,A PLACE OPJ (S(I-1)) IN MQ F1B37530 14551 0602 00 1 65457 SLW SCRIPL-2,A EXCHANGE F1B37540 14552 -0600 00 4 65462 STQ SCRIPL+1,C OP F1B37550 14553 -0320 00 0 05117 ANA MASK2 WORDS AND F1B37560 14554 -0602 00 4 65462 ORS SCRIPL+1,C SET OP1(S(I-1))30'33= OPJ(S(I-1))30'33 F1B37570 14555 0500 00 4 65463 CLA SCRIPL+2,C THEN F1B37580 14556 0560 00 1 65460 LDQ SCRIPL-1,A EXCHANGE F1B37590 14557 0601 00 1 65460 STO SCRIPL-1,A SYMBOL F1B37600 14560 -0600 00 4 65463 STQ SCRIPL+2,C WORDS F1B37610 14561 -0534 00 1 14130 LXD AS3600,A RESTORE XA F1B37620 14562 -0500 00 0 05121 LK0900 CAL L(1) AND F1B37630 14563 0020 00 0 14510 TRA LK0430 F1B37640 14564 -0773 00 0 00033 LK0950 RQL 27 S(I) TYPE MQ, OP1 (S(I-1)) = SPOP F1B37650 14565 -0500 00 1 65461 CAL SCRIPL,A F1B37660 14566 -0320 00 0 05117 ANA MASK2 EXTRACT S(I) IN ACC F1B37670 14567 0162 00 0 14576 TQP LK1050 OP1 (S(I-1)) 33 = 0 (CLOSED SUBROUTINE) F1B37680 BINARY CARD NO. 9F140155 14570 3 00006 2 14447 TXH LK0030,B,6 OPEN MULTIV... SET OP1 (S(I)) 29 = 0 F1B37690 14571 0402 00 4 65466 SUB SCRIPL+5,C OPEN UNIV... IS S(I) = SUM2 (S(I-1)) F1B37700 14572 -0100 00 0 14447 TNZ LK0030 NO... SET OP1 (S(I))29 = OP2 (S(I-1))35 = 0F1B37710 14573 -0500 00 0 05123 CAL L(3) AND F1B37720 14574 -0602 00 4 65465 ORS SCRIPL+4,C SET OP2 (S(I-1))34 = OP2 (S(I-1))35 = 1 F1B37730 14575 0020 00 0 14511 TRA LK0440 F1B37740 14576 -0773 00 0 00017 LK1050 RQL 15 F1B37750 14577 0162 00 0 14601 TQP LK1100 TEST OP1(S(I-1))12 F1B37760 14600 0020 00 0 14447 TRA LK0030 FN-NAME F1B37770 14601 -3 00006 2 14447 LK1100 TXL LK0030,B,6 CLOSED UNIV. SBRTN F1B37780 14602 0402 00 4 65471 SUB SCRIPL+8,C CLOSED MULTIV. SBRTN F1B37790 14603 -0100 00 0 14447 TNZ LK0030 S(I) NOT = SYM3 (S (I-1)) F1B37800 14604 -0500 00 0 05121 CAL L(1) S(I) = SYM3 (S(I-1)), SO F1B37810 14605 -0602 00 4 65470 ORS SCRIPL+7,C SET OP3 (S(I-1))35 = 1 F1B37820 14606 0020 00 0 14511 TRA LK0440 F1B37830 14607 -0754 00 0 00000 LK1200 PXD 0,0 S(I) TYPE AC F1B37840 14610 0560 00 4 65462 LDQ SCRIPL+1,C PLACE OP1 (S(I-1)) IN MQ F1B37850 14611 -0763 00 0 00006 LGL 6 F1B37860 14612 0340 00 0 05144 CAS SPECOP F1B37870 14613 0020 00 0 14625 TRA LK1340 F1B37880 14614 0020 00 0 14646 TRA LK1470 F1B37890 14615 -0500 00 1 65461 CAL SCRIPL,A S(I) TYPE AC, OP1 (S(I-1)) = + OR - F1B37900 BINARY CARD NO. 9F140156 14616 -0320 00 0 05117 ANA MASK2 SEARCH FOR S(I) IN S(I-1) F1B37910 14617 -3 00000 2 14446 LK1280 TXL LK0000,B,0 NOT FOUND AT ALL F1B37920 14620 0340 00 1 65460 CAS SCRIPL-1,A F1B37930 14621 1 00003 1 14624 TXI LK1330,A,3 F1B37940 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 128 * SECTION ONE PASS TWO * RECORD 9F14 * 14622 0020 00 0 14543 TRA LK0750 S(I) = SOME SYMJ (S(I-1))... GO PERMUTE F1B37950 14623 1 00003 1 14624 TXI LK1330,A,3 NOT FOUND... CONTINUE SEARCH F1B37960 14624 1 77775 2 14617 LK1330 TXI LK1280,B,-3 F1B37970 14625 0162 00 0 14633 LK1340 TQP LK1410 F1B37980 14626 -0500 00 1 65461 CAL SCRIPL,A S(I) TYPE AC, OP1 (S(I-1)) = ** F1B37990 14627 -0320 00 0 05117 ANA MASK2 F1B38000 14630 0402 00 4 65463 SUB SCRIPL+2,C IS S(I) = SYM1 (S(I-1)) F1B38010 14631 -0100 00 0 14447 TNZ LK0030 NO F1B38020 14632 0020 00 0 14562 TRA LK0900 YES F1B38030 14633 -0754 00 0 00000 LK1410 PXD 0,0 S(I) TYPE AC, OP1 (S(I-1)) = * F1B38040 14634 0560 00 4 65465 LDQ SCRIPL+4,C F1B38050 14635 -0763 00 0 00006 LGL 6 IS OP2 (S(I-1)) = 1 F1B38060 14636 0402 00 0 05113 SUB SLASH F1B38070 14637 0100 00 0 14527 TZE LK0630 YES F1B38080 14640 0500 00 0 04521 CLA MODECL FOR BOOLEAN MARK * AS TYPE AC. F1B38090 14641 0402 00 0 05134 SUB L(B) F1B38100 14642 0100 00 0 14527 TZE LK0630 F1B38110 14643 -0500 00 0 05122 CAL L(2) NO F1B38120 BINARY CARD NO. 9F140157 14644 -0602 00 4 65462 ORS SCRIPL+1,C SET OP1 (S(I-1)) 34 = 1 F1B38130 14645 0020 00 0 14446 TRA LK0000 F1B38140 14646 -0773 00 0 00033 LK1470 RQL 27 S(I) TYPE AC, OP1 (S(I-1)) = SPOP F1B38150 14647 -0500 00 1 65461 CAL SCRIPL,A F1B38160 14650 -0320 00 0 05117 ANA MASK2 EXTRACT S(I) IN ACC F1B38170 14651 0162 00 0 14654 TQP LK1530 F1B38180 14652 3 00006 2 14447 TXH LK0030,B,6 OPEN MULTIV. F1B38190 14653 0020 00 0 14514 LK1520 TRA LK0480 F1B38200 14654 -0773 00 0 00017 LK1530 RQL 15 F1B38210 14655 0162 00 0 14514 TQP LK0480 F1B38220 14656 0020 00 0 14447 TRA LK0030 FN-NAME F1B38230 14657 -0534 00 2 71545 LK1610 LXD BETA,B IS S(0) A SINGLE ELEMENT F1B38240 14660 -0754 00 0 00000 PXD 0,0 F1B38250 14661 0560 00 1 65457 LDQ SCRIPL-2,A F1B38260 14662 3 00003 2 14701 TXH LK1780,B,3 NO F1B38270 14663 -0763 00 0 00006 LGL 6 YES F1B38280 14664 0402 00 0 05112 SUB 11Z IS OP (S(0)) = + OR - F1B38290 14665 0100 00 0 14706 TZE LKK000 OP (S(0)) = - F1B38300 14666 -0500 00 0 65463 CAL SCRIPL+2 OP (S(0)) = + F1B38310 14667 -0320 00 0 06216 ANA MASK1 DOES SYM (S(0)) = S(1) F1B38320 14670 -0100 00 0 14706 TNZ LKK000 NO F1B38330 14671 -0500 00 0 65465 CAL SCRIPL+4 YES - PLACE OP1 (S(1)) IN ACC F1B38340 BINARY CARD NO. 9F140158 14672 -0320 00 0 05115 ANA 12Z F1B38350 14673 0100 00 0 14706 TZE LKK000 OP1 (S(1)) 31 = 0 F1B38360 14674 -0602 00 0 65462 ORS SCRIPL+1 SET OP (S(0)) 31 = 1 F1B38370 14675 0767 00 0 00002 ALS 2 F1B38380 14676 -0602 00 0 65465 ORS SCRIPL+4 SET OP1 (S(1)) 29 = 1 F1B38390 14677 0771 00 0 00006 ARS 6 F1B38400 14700 0020 00 0 14705 TRA LK1820 F1B38410 14701 0162 00 0 14706 LK1780 TQP LKK000 S(0) TYPT AC F1B38420 14702 -0773 00 0 00001 RQL 1 F1B38430 14703 0162 00 0 14706 TQP LKK000 S(0) TYPE AC F1B38440 14704 -0500 00 0 05115 CAL 12Z S(0) TYPE MQ, SO F1B38450 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 129 * SECTION ONE PASS TWO * RECORD 9F14 * 14705 -0602 00 0 65462 LK1820 ORS SCRIPL+1 F1B38460 14706 -0534 00 5 22237 LKK000 LXD 3LBAR,5 -3Q TO XA,XC F1B38470 14707 -0500 00 4 65456 CAL SCRIPL-3,C F1B38480 14710 0734 00 2 00000 PAX 0,B F1B38490 14711 0500 00 2 71545 CLA BETA,B F1B38500 14712 0622 00 0 14713 STD LKK050 F1B38510 14713 1 00000 4 14714 LKK050 TXI LKK060,C,0 BACK UP XA TO 1ST ELEMENT OF LAST SEGMENT F1B38520 14714 -0754 00 0 00000 LKK060 PXD 0,0 F1B38530 14715 0560 00 4 65462 LDQ SCRIPL+1,C PLACE OP1 OF LAST SEGMENT IN MQ F1B38540 14716 -0763 00 0 00006 LGL 6 F1B38550 14717 0402 00 0 05116 SUB STAR F1B38560 BINARY CARD NO. 9F140159 14720 -0100 00 0 14727 TNZ PC0000 F1B38570 14721 0162 00 0 14723 TQP LKK130 F1B38580 14722 0020 00 0 14727 TRA PC0000 F1B38590 14723 0560 00 4 65465 LKK130 LDQ SCRIPL+4,C OP1 OF LAST SEGMENT IS * F1B38600 14724 -0763 00 0 00002 LGL 2 F1B38610 14725 0760 00 0 00001 LBT F1B38620 14726 -0602 00 4 65462 ORS SCRIPL+1,C OP2 IS *, SO SET OP1 (S(L)) 34 = 1 F1B38630 14727 -0534 00 4 22241 PC0000 LXD ARGCTR,C IS THIS AN FS F1B38640 14730 3 00000 4 14732 TXH PC0030,C,0 F1B38650 14731 1 00001 4 14733 TXI PC0040,C,1 NO F1B38660 14732 0534 00 4 05120 PC0030 LXA L(0),C YES F1B38670 14733 -0500 00 1 65456 PC0040 CAL SCRIPL-3,A F1B38680 14734 0734 00 2 00000 PAX 0,B F1B38690 14735 -3 00000 2 15007 TXL MC0000,B,0 F1B38700 14736 0500 00 2 71545 CLA BETA,B F1B38710 14737 0622 00 0 14740 STD PC0100 F1B38720 14740 1 00000 1 14741 PC0100 TXI PC0110,A,0 F1B38730 14741 0560 00 1 65462 PC0110 LDQ SCRIPL+1,A PLACE OP1 (S(I)) IN MQ F1B38740 14742 -0763 00 0 00036 LGL 30 F1B38750 14743 0760 00 0 00001 LBT F1B38760 14744 1 00454 0 14746 PC0140 TXI PC0160,0,300 F1B38770 14745 0162 00 0 14733 TQP PC0040 OP1 (S(I)) 29= 1 AND OP1 (S(I)) 30 = 0 F1B38780 BINARY CARD NO. 9F140160 14746 -0754 00 4 00000 PC0160 PXD 0,C OP1 (S(I)) 29 = 0 OR OP1 (S(I)) 30 = 1 F1B38790 14747 0622 00 2 71545 STD BETA,B STORE ERAS. REL. ADD. COUNT IN BETA, F1B38800 14750 1 00001 4 14733 TXI PC0040,C,1 AND UPDATE FOR NEXT SEGMENT F1B38810 DICTIONARY OF OPEN SUBROUTINES FOLLOWS F1B38820 14751 -272122626060 OPSUB OCT 672122626060 XABS F1B38830 14752 +212262606060 OCT 212262606060 ABS F1B38840 14753 -273145636060 OCT 673145636060 XINT F1B38850 14754 +314563606060 OCT 314563606060 INT F1B38860 14755 -274446246060 OCT 674446246060 XMOD F1B38870 14756 -044624606060 OCT 444624606060 MOD F1B38880 14757 -274421670060 OCT 674421670060 XMAX0 F1B38890 14760 -042167016060 OCT 442167016060 MAX1 F1B38900 14761 -274421670160 OCT 674421670160 XMAX1 F1B38910 14762 -042167006060 OCT 442167006060 MAX0 F1B38920 14763 -274431450060 OCT 674431450060 XMIN0 F1B38930 14764 -043145016060 OCT 443145016060 MIN1 F1B38940 14765 -274431450160 OCT 674431450160 XMIN1 F1B38950 14766 -043145006060 OCT 443145006060 MIN0 F1B38960 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 130 * SECTION ONE PASS TWO * RECORD 9F14 * 14767 +264346216360 OCT 264346216360 FLOAT F1B38970 14770 -272631676060 OCT 672631676060 XFIX F1B38980 14771 -223127456060 OCT 623127456060 SIGN F1B38990 14772 -276231274560 OCT 676231274560 XSIGN F1B39000 14773 -272431446060 OCT 672431446060 XDIM F1B39010 BINARY CARD NO. 9F140161 14774 +243144606060 OCT 243144606060 DIM F1B39020 14775 BSS 10 EXPANSION SPACE FOR OPEN SUBROUTINE DICT. F1B39030 F1B39040 F1B39050 BINARY CARD NO. 9F140162 15007 -0534 00 1 22237 MC0000 LXD 3LBAR,A MODE CHECKING ROUTINE F1B39060 15010 -0634 00 1 15061 SXD MC0420,A F1B39070 15011 0534 00 1 05120 LXA L(0),A F1B39080 15012 -0634 00 1 15030 MC0030 SXD XASAVE,A F1B39090 15013 -0500 00 1 65461 CAL SCRIPL,A F1B39100 15014 0734 00 2 00000 PAX ,B S(I) TO XB F1B39110 15015 0500 00 2 71545 CLA CPBETA,B F1B39120 15016 0734 00 2 00000 PAX ,B F1B39130 15017 -0634 00 2 15060 SXD MC0410,B F1B39140 15020 -0634 00 2 15065 SXD MC0460,B F1B39150 15021 3 77772 2 15060 TXH MC0410,B,-6 SINGLE ELEMENT - GO ONTO S(I+1) F1B39160 15022 0760 00 0 00140 SLF TURN OFF ALL SENSE LITES F1B39170 15023 -0754 00 0 00000 PXD 0,0 CLEAR ACC F1B39180 15024 0560 00 1 65462 LDQ SCRIPL+1,A PLACE OP1 (S(I)) IN MQ F1B39190 15025 -0763 00 0 00006 LGL 6 F1B39200 15026 0340 00 0 05144 CAS SPECOP F1B39210 15027 0162 00 0 15031 TQP MC0180 F1B39220 15030 1 00000 0 15060 XASAVE TXI MC0410,0,0 F1B39230 15031 -0763 00 0 00032 MC0180 LGL 26 OP1 (S(I)) = +, - OR * F1B39240 15032 0162 00 0 15034 TQP MC0210 FIX PT F1B39250 15033 0760 00 0 00141 SLN 1 FLO PT F1B39260 15034 -0754 00 0 00000 MC0210 PXD 0,0 F1B39270 BINARY CARD NO. 9F140163 15035 0560 00 1 65463 LDQ SCRIPL+2,A PLACE SYMJ (S(I)) IN MQ - J = 1,... F1B39280 15036 -0763 00 0 00001 LGL 1 F1B39290 15037 0760 00 0 00001 LBT F1B39300 15040 0162 00 0 15063 TQP MC0440 F1B39310 15041 -0763 00 0 00005 LGL 5 SYMJ (S(I)) IS A VARIABLE F1B39320 15042 0340 00 0 05140 CAS L(H) F1B39330 15043 0340 00 0 05143 CAS L(O) F1B39340 15044 1 00000 0 15051 XBSAVE TXI MC0340,0,0 FLO PT F1B39350 15045 0020 00 0 15051 TRA MC0340 FLO PT F1B39360 15046 -0760 00 0 00141 MC0310 SLT 1 SYMJ (S(I)) IS A FIX PT VARIABLE F1B39370 15047 1 00003 2 15055 TXI MC0380,B,3 OK F1B39380 15050 0020 00 0 15052 TRA *+2 F1B39390 15051 -0760 00 0 00141 MC0340 SLT 1 SYMJ(S(I)) IS A FLO PT VARIABLE F1B39400 15052 0074 00 4 04504 ER0070 TSX DIAG,4 MIXED F1B39410 15053 0760 00 0 00141 SLN 1 RESTORE FLO PT LITE F1B39420 15054 1 00003 2 15055 TXI MC0380,B,3 F1B39430 15055 -3 00000 2 15057 MC0380 TXL MC0400,B,0 FINISHED WITH S(I) F1B39440 15056 1 77775 1 15034 TXI MC0210,A,-3 CONTINUE SCANNING S(I). J TO J+1 F1B39450 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 131 * SECTION ONE PASS TWO * RECORD 9F14 * 15057 -0534 00 1 15030 MC0400 LXD XASAVE,A GO TO S(I+1) F1B39460 15060 1 00000 1 15061 MC0410 TXI MC0420,A,0 F1B39470 15061 3 00000 1 15012 MC0420 TXH MC0030,A,0 F1B39480 15062 0020 00 0 15106 TRA CP0000 EXIT TO COMPILER F1B39490 BINARY CARD NO. 9F140164 15063 -0634 00 2 15044 MC0440 SXD XBSAVE,B SYMJ (S(ITT = SAME S(K) F1B39500 15064 -0534 00 4 15030 LXD XASAVE,C F1B39510 15065 1 00000 4 15066 MC0460 TXI MC0470,C,0 MOVE XC TO 1ST ELEMENT OF S(I+1) F1B39520 15066 -0500 00 4 65461 MC0470 CAL SCRIPL,C F1B39530 15067 -0320 00 0 05117 ANA MASK2 EXTRACT S(K) IN ACC F1B39540 15070 0340 00 1 65463 CAS SCRIPL+2,A AND COMPARE WITH SYMJ (S(I)) F1B39550 15071 0020 00 0 15073 TRA MC0520 F1B39560 15072 0020 00 0 15100 TRA MC0570 F1B39570 15073 0734 00 2 00000 MC0520 PAX ,B S(K) TO XB F1B39580 15074 0500 00 2 71545 CLA CPBETA,B F1B39590 15075 0734 00 2 00000 PAX ,B F1B39600 15076 -0634 00 2 15077 SXD MC0560,B F1B39610 15077 1 00000 4 15066 MC0560 TXI MC0470,C,0 F1B39620 15100 -0534 00 2 15044 MC0570 LXD XBSAVE,B SYMJ (S(I)) = S(K) FOR SOME K F1B39630 15101 -0500 00 4 65462 CAL SCRIPL+1,C PLACE OP1 (S(K)) IN ACC F1B39640 15102 0771 00 0 00003 ARS 3 F1B39650 15103 0760 00 0 00001 LBT F1B39660 15104 0020 00 0 15046 TRA MC0310 S(K) IS FIX PT F1B39670 15105 0020 00 0 15051 TRA MC0340 S(K) IS FLO PT F1B39680 F1B39690 COMPILER ROUTINE. F1B39700 HAVING DEVELOPED ALL NECESSARY LINKAGE AND OPTIMAZATION F1B39710 INFORMATION AND SET BITS IN EACH SCRIPL TABLE ENTRY ACCORD- F1B39720 INGLY, NOW MAKE ENTRIES IN THE COMPILED INSTRUCTION TABLE ON F1B39730 THE BASIS OF THESE SCRIPL TABLE ENTRIES. F1B39740 F1B39750 15106 0760 00 0 00140 CP0000 SLF INITIALLY TURN OFF ALL LIGHTS AND CLEAR F1B39760 15107 0600 00 0 65435 STZ FNSW CELL FOR FUNCTION SUBPROGRAM USAGE AND F1B39770 15110 0020 00 0 20601 TRA CPPCH $F1B39780 BINARY CARD NO. 9F140165 15111 -0534 00 4 22241 LXD ARGCTR,4 TEST WHETHER THIS STATEMENT IS AN ARITH- F1B39790 15112 -3 00000 4 15116 TXL CP0090,4,0 METIC STATEMENT FUNCTION. F1B39800 15113 0074 00 4 04251 TSX CIT00,4 YES, SO COMPILE CIT ENTRY OF 4 WORDS OF F1B39810 15114 0 05156 0 05156 PZE ALL1,,ALL1 ONES AS LABEL FOR SECTION THREE. F1B39820 15115 0 05156 0 05156 PZE ALL1,,ALL1 F1B39830 15116 -0534 00 4 03734 CP0090 LXD EIFNO,4 GET THE CURRENT INTERNAL FORMULA NUMBER F1B39840 15117 0600 00 0 65441 STZ CW WHICH WILL BE COMPILED IN THE LOCATION WORDF1B39850 15120 -0634 00 4 65441 SXD CW,4 OF THE FIRST INSTRUCTION. ALSO SAVE FOR F1B39860 15121 0634 00 4 05556 SXA CALLNM,4 POSSIBLE ENTRY IN FIRST AND LAST IFN TABLE.F1B39870 15122 0600 00 0 04404 STZ BOOLIN TURN BOOLEAN INDICATOR OFF. F1B39880 15123 0500 00 0 04521 CLA MODECL GET SPECIAL INDICATOR SYMBOL AND F1B39890 DOUBLE PRECISION-COMPLEX ARITHMETIC PATCH. F1B39900 15124 0340 00 0 05136 CAS L(D) F1B39910 15125 0020 00 0 15127 TRA *+2 F1B39920 15126 0020 00 0 16555 TRA CP000D DOUBLE PRECISION F1B39930 15127 0340 00 0 05141 CAS L(I) F1B39940 15130 0020 00 0 15132 TRA *+2 F1B39950 15131 0020 00 0 16555 TRA CP000D F1B39960 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 132 * SECTION ONE PASS TWO * RECORD 9F14 * 15132 0340 00 0 05134 CAS L(B) TEST FOR OTHER THAN NORMAL MODE. F1B39970 15133 0020 00 0 15135 TRA *+2 F1B39980 15134 0601 00 0 04404 STO BOOLIN YES, TURN BOOLEAN INDICATOR ON. F1B39990 F1B40000 15135 -0534 00 1 22237 LXD 3LBAR,1 LENGTH OF SCRIPL TABLE TO IR 1. F1B40010 INITIAL COMPILATION OF EACH LEVEL. F1B40020 15136 0500 00 1 65456 CP0130 CLA SCRIPL-3,1 EXTRACT FROM TAG WORD OF LAST ENTRY OF NEXTF1B40030 BINARY CARD NO. 9F140166 15137 0734 00 2 00000 PAX ,2 LEVEL THE LEVEL NUMBER. USING THIS GET THE F1B40040 15140 0500 00 2 71545 CLA CPBETA,2 CORRESPONDING BETA TABLE ENTRY. SAVE THE F1B40050 15141 0622 00 0 22254 STD PHI(I) DECREMENT AS ADDEND FOR 1( ERASABLE. F1B40060 15142 -0320 00 0 05117 ANA MASK2 SAVE THE ADDRESS WHICH IS LENGTH OF CURRENTF1B40070 15143 0734 00 2 00000 PAX ,2 LEVEL. F1B40080 15144 -0634 00 2 15176 SXD CP0400,2 F1B40090 15145 0737 00 4 00000 PAC 0,4 FORM TRUE LENGTH FROM COMPLEMENT AND MOVE F1B40100 15146 -0634 00 4 15147 SXD CP0240,4 IR 1 SO THAT IT WILL BE POSITIONED AT THE F1B40110 15147 1 00000 1 15150 CP0240 TXI CP0250,1,** FIRST ENTRY IN CURRENT LEVEL. F1B40120 15150 -0634 00 1 22237 CP0250 SXD 3LBAR,1 SAVE IR 1 AS POSITION IN SCRIPL TABLE. F1B40130 15151 0500 00 0 65451 CLA XCAIND ADD XCA LINKAGE INFORMATION,IF ANY, TO TAG F1B40140 15152 -0602 00 1 65462 ORS SCRIPL+1,1 WORD OF FIRST ENTRY OF CURRENT LEVEL. F1B40150 15153 0600 00 0 65451 STZ XCAIND RESET XCA INDICATOR TO NO LINKAGE. F1B40160 15154 0560 00 1 65462 LDQ SCRIPL+1,1 GET AND EXAMINE LINKAGE BITS IN OP WORD OF F1B40170 15155 -0763 00 0 00036 LGL 30 FIRST ENTRY OF CURRENT LEVEL. F1B40180 15156 0162 00 0 15160 TQP *+2 IS THIS SEGMENT A COMMON SUBEXPRESSION. F1B40190 15157 0020 00 0 15165 TRA CP0310 YES,MUST BE STORED. F1B40200 15160 0760 00 0 00001 LBT IS IT LINKED BY EITHER AC OR MQ. F1B40210 15161 0020 00 0 15163 TRA *+2 NO F1B40220 15162 0020 00 0 15173 TRA CP0370 YES, SHOULD NOT BE STORED. F1B40230 15163 0500 00 0 05121 CLA L(1) NEITHER A COMMON SUBEXPRESSION NOR LINKED. F1B40240 15164 0601 00 0 65451 STO XCAIND POSSIBLITY OF USING XCA, SET INDICATOR SO. F1B40250 BINARY CARD NO. 9F140167 15165 0760 00 0 00141 CP0310 SLN 1 TURN LIGHT 1 ON TO INDICATE NEED TO STORE F1B40260 15166 -0773 00 0 00001 RQL 1 RESULT OF THIS LEVEL COMPUTATION. F1B40270 15167 0162 00 0 15171 TQP CP0350 TURN LIGHT 2 ON TO CALL FOR STQ INSTEAD OF F1B40280 15170 0760 00 0 00142 SLN 2 STO. (BASED ON BIT 31 = 1) F1B40290 15171 -0773 00 0 00001 CP0350 RQL 1 GET AND EXAMINE F1B40300 15172 0020 00 0 15174 TRA CP0380 BIT 32 OF F1B40310 15173 -0773 00 0 00002 CP0370 RQL 2 OP WORD OF F1B40320 15174 0162 00 0 15200 CP0380 TQP CP0420 FIRST ENTRY OF CURRENT LEVEL. F1B40330 15175 -0760 00 0 00144 SLT 4 TURN LIGHT 4 ON TO INDICATE F1B40340 15176 3 00000 0 00000 CP0400 TXH 0,0,** THAT CURRENT LEVEL IS FIXED POINT. F1B40350 15177 0020 00 0 15203 TRA CP0430 F1B40360 15200 0760 00 0 00144 CP0420 SLN 4 (BASED ON BIT 32 = 0) F1B40370 15201 0520 00 0 04404 ZET BOOLIN TEST WHETHER THIS IS BOOLEAN... F1B40380 15202 0020 00 0 04343 TRA BER001 YES, ERROR GO TO DIAGNOSTIC ROUTINE. F1B40390 15203 -0754 00 0 00000 CP0430 PXD 0,0 GET AND EXAMINE OP WORD OF FIRST ENTRY OF F1B40400 15204 0560 00 1 65462 LDQ SCRIPL+1,1 CURRENT LEVEL FOR TYPE OF LEVEL. F1B40410 15205 -0763 00 0 00006 LGL 6 F1B40420 15206 0340 00 0 05144 CAS SPECOP F1B40430 15207 1 00000 0 15264 TXI CP0960,0,0 LEVEL IS * / OR **. F1B40440 15210 1 77775 1 15362 TXI CP2040,1,-3 LEVEL IS FUNCTION. F1B40450 15211 0402 00 0 05112 SUB 11Z LEVEL IS + -, WHICH OPERATION IS FIRST. F1B40460 15212 0100 00 0 15240 TZE CP0760 OPERATION IS -. F1B40470 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 133 * SECTION ONE PASS TWO * RECORD 9F14 * BINARY CARD NO. 9F140168 15213 -0763 00 0 00035 LGL 29 OPERATION IS +. IS INPUT IN AC. F1B40480 15214 0162 00 0 15304 TQP CP1130 IF NOT IN AC GO COMPILE CLA. (BIT 35=0) F1B40490 15215 -0534 00 2 15176 CP0540 LXD CP0400,2 GET LENGTH OF THIS LEVEL AND TEST FOR ANY F1B40500 15216 1 00003 2 15217 TXI CP0560,2,3 ENTRIES REMAINING TO BE COMPILED. IF NONE F1B40510 15217 -3 00000 2 15725 CP0560 TXL ES0000,2,0 GO TO THE END-OF-SEGMENT ROUTINE. F1B40520 15220 -0634 00 2 15176 SXD CP0400,2 IF SOME ENTRIES REMAIN, SAVE NEW REMAINING F1B40530 15221 1 77775 1 15222 TXI CP0590,1,-3 LENGTH AND GO COMPILE NEXT ENTRY. F1B40540 15222 -0754 00 0 00000 CP0590 PXD 0,0 GET AND EXAMINE OP WORD OF THIS ENTRY. F1B40550 15223 0560 00 1 65462 LDQ SCRIPL+1,1 OPERATION MAY BE + OR - OR * OR /. F1B40560 15224 -0763 00 0 00006 LGL 6 F1B40570 15225 0340 00 0 05116 CAS STAR F1B40580 15226 0020 00 0 15306 TRA CP1200 OPERATION IS / F1B40590 15227 0020 00 0 15340 TRA CP1720 OPERATION IS * F1B40600 15230 0402 00 0 05112 SUB 11Z F1B40610 15231 0100 00 0 15256 TZE CP0880 OPERATION IS -. F1B40620 15232 -0500 00 0 06237 CAL L(FAD) OPERATION IS +. F1B40630 15233 -0760 00 0 00144 SLT 4 TEST LIGHT 4 FOR FIXED OR FLOATING POINT. F1B40640 15234 0020 00 0 15335 TRA CP1680 FLOATING POINT, COMPILE FAD F1B40650 15235 0760 00 0 00144 SLN 4 FIXED POINT, COMPILE ADD F1B40660 15236 -0500 00 0 06220 CAL L(ADD) AND LEAVE LIGHT 4 ON FOR LATER TEST. F1B40670 15237 0020 00 0 15335 TRA CP1680 F1B40680 15240 -0763 00 0 00035 CP0760 LGL 29 FIRST OPERATION OF LEVEL IS -. IS INPUT IN F1B40690 BINARY CARD NO. 9F140169 15241 0162 00 0 15246 TQP CP0850 AC, IF NOT GO COMPILE CLS. F1B40700 15242 0074 00 4 04251 TSX CIT00,4 INPUT IN AC, COMPILE CHS. F1B40710 15243 0 06226 0 05120 PZE L(0),,L(CHS) F1B40720 15244 0 05120 0 05120 PZE L(0),,L(0) F1B40730 15245 0020 00 0 15215 TRA CP0540 AND GO TO NEXT ENTRY IN LEVEL, IF ANY. F1B40740 15246 -0500 00 0 06231 CP0850 CAL L(CLS) FIRST OPERATION IN LEVEL IS - AND INPUT NOTF1B40750 15247 0074 00 2 16524 CPBCOM TSX COMPM4,2 COMPILE CLS (CAL). F1B40760 15250 -0520 00 0 04404 NZT BOOLIN TEST WHETHER THIS IS BOOLEAN... F1B40770 15251 0020 00 0 15215 TRA CP0540 NO. F1B40780 15252 0074 00 4 04251 TSX CIT00,4 YES, COMPILE COM. F1B40790 15253 0 06232 0 05120 PZE L(0),,L(COM) F1B40800 15254 0 05120 0 05120 PZE L(0),,L(0) F1B40810 15255 0020 00 0 15215 TRA CP0540 F1B40820 15256 -0500 00 0 06242 CP0880 CAL L(FSB) OPERATION IS -. F1B40830 15257 -0760 00 0 00144 SLT 4 TEST LIGHT 4 FOR FIXED OR FLOATING POINT. F1B40840 15260 0020 00 0 15335 TRA CP1680 FLOATING POINT, COMPILE FSB. F1B40850 15261 0760 00 0 00144 SLN 4 FIXED POINT, COMPILE SUB. F1B40860 15262 -0500 00 0 06270 CAL L(SUB) AND LEAVE LIGHT 4 ON FOR LATER TEST. F1B40870 15263 0020 00 0 15335 TRA CP1680 F1B40880 15264 0162 00 0 15266 CP0960 TQP CP0980 FIRST OPERATION IN LEVEL IS * OR **. F1B40890 15265 0020 00 0 15614 TRA CP4140 TEST FOR WHICH. IF ** GO TO EXPONTENTIATIONF1B40900 15266 -0763 00 0 00035 CP0980 LGL 29 OPERATION OF FIRST ENTRY IS *. THIS MEANS F1B40910 BINARY CARD NO. 9F140170 15267 0760 00 0 00143 SLN 3 A LEVEL OF * OR OF / OR OF * AND / F1B40920 15270 0760 00 0 00001 LBT OPERATIONS. F1B40930 15271 0020 00 0 15274 TRA CP1050 OP1 (S(I)) 34 = 0, SO LEAVE LITE 3 ON F1B40940 15272 -0760 00 0 00143 SLT 3 OP1 (S(I)) 34 = 1, SO TURN LITE 3 OFF F1B40950 15273 3 00000 0 00000 TXH 0,0,0 F1B40960 15274 0162 00 0 15276 CP1050 TQP CP1070 F1B40970 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 134 * SECTION ONE PASS TWO * RECORD 9F14 * 15275 0020 00 0 15215 TRA CP0540 OP1 (S(I)) 35 = 1, SO GO MODIFY J F1B40980 15276 0520 00 0 04404 CP1070 ZET BOOLIN TEST WHETHER THIS IS BOOLEAN... F1B40990 15277 0020 00 0 15304 TRA CP1130 YES, GO COMPILE CLA (CAL). F1B41000 15300 -0500 00 0 06245 CAL L(LDQ) OP1 (S(I)) 35 = 0 F1B41010 15301 -0760 00 0 00143 SLT 3 F1B41020 15302 0020 00 0 15335 TRA CP1680 F1B41030 15303 0760 00 0 00143 SLN 3 EL1 (S(II) TO ACC F1B41040 15304 -0500 00 0 06227 CP1130 CAL L(CLA) F1B41050 15305 0020 00 0 15335 TRA CP1680 F1B41060 15306 -0760 00 0 00143 CP1200 SLT 3 OPJ (S(I)) = / F1B41070 15307 0020 00 0 15317 TRA CP1330 F1B41080 15310 -0760 00 0 00144 SLT 4 PREDECESSOR IN ACC F1B41090 15311 0020 00 0 15334 TRA CP1670 FLO PT. F1B41100 15312 0760 00 0 00144 SLN 4 FIX PT. RESTORE FXPTSW F1B41110 15313 0074 00 4 04251 TSX CIT00,C COMPILE LRS 35 F1B41120 15314 0 06247 0 05120 PZE L(0),,L(LRS) LOC,,OP-DEC F1B41130 BINARY CARD NO. 9F140171 15315 0 06164 0 05120 PZE L(0),,DEC35 ADR,,RA-TAG F1B41140 15316 0020 00 0 15322 TRA CP1450 F1B41150 15317 -0760 00 0 00144 CP1330 SLT 4 PREDECESSOR IN MQ F1B41160 15320 0020 00 0 15333 TRA CP1570 AND SEGMENT IS F1B41170 15321 0760 00 0 00144 SLN 4 FIX PT. RESTORE FXPTSW F1B41180 15322 -0500 00 0 06236 CP1450 CAL L(DVP) F1B41190 15323 0074 00 2 16524 TSX COMPM4,B F1B41200 15324 0074 00 4 04251 TSX CIT00,C COMPILE CLM F1B41210 15325 0 06230 0 05120 PZE L(0),,L(CLM) LOC,,OP-DEC F1B41220 15326 0 05120 0 05120 PZE L(0),,L(0) ADR,,RA-TAG F1B41230 15327 0074 00 4 04251 TSX CIT00,C COMPILE LLS 18 F1B41240 15330 0 06246 0 05120 PZE L(0),,L(LLS) LOC,,OP-DEC F1B41250 15331 0 06161 0 05120 PZE L(0),,DEC18 ADR,,RA-TAG F1B41260 15332 0020 00 0 15215 TRA CP0540 GO MODIFY J F1B41270 15333 0074 00 2 16545 CP1570 TSX COMP0C,2 COMPILE XCA F1B41280 15334 -0500 00 0 06240 CP1670 CAL L(FDP) F1B41290 15335 0602 00 0 65442 CP1680 SLW CW+1 F1B41300 15336 0074 00 2 16525 CP1690 TSX COMPM3,2 F1B41310 15337 0020 00 0 15215 TRA CP0540 GO MODIFY J F1B41320 15340 -0520 00 0 04404 CP1720 NZT BOOLIN TEST WHETHER THIS IS BOOLEAN... F1B41330 15341 0020 00 0 15343 TRA *+2 NO. F1B41340 15342 -0760 00 0 00143 SLT 3 BOOLEAN, TURN OFF LITE 3 TO AVOID XCA F1B41350 BINARY CARD NO. 9F140172 15343 -0760 00 0 00143 SLT 3 OPJ(S(I))=* F1B41360 15344 0020 00 0 15346 TRA CP1840 F1B41370 15345 0074 00 2 16545 TSX COMP0C,2 COMPILE XCA F1B41380 15346 0760 00 0 00143 CP1840 SLN 3 TURN LATE 3 ON F1B41390 15347 -0760 00 0 00144 SLT 4 F1B41400 15350 0020 00 0 15360 TRA CP2000 F1B41410 15351 0760 00 0 00144 SLN 4 FIX PT. RESTORE FXPTSW F1B41420 15352 -0500 00 0 06251 CAL L(MPY) F1B41430 15353 0074 00 2 16524 TSX COMPM4,B F1B41440 15354 0074 00 4 04251 TSX CIT00,C COMPILE ALS 17 F1B41450 15355 0 06221 0 05120 PZE L(0),,L(ALS) LOC,,OP-DEC F1B41460 15356 0 06160 0 05120 PZE L(0),,DEC17 ADR,,RA-TAG F1B41470 15357 0020 00 0 15215 TRA CP0540 GO MODIFY J F1B41480 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 135 * SECTION ONE PASS TWO * RECORD 9F14 * 15360 -0500 00 0 06241 CP2000 CAL L(FMP) F1B41490 15361 0020 00 0 15335 TRA CP1680 F1B41500 ** FUNCTION COMPILATION ** F1B41501 15362 -0763 00 0 00007 CP2040 LGL 7 OP1(S(I))=SPOP F1B41510 15363 0760 00 0 00001 LBT TEST OP1(S(I))12 F1B41520 15364 0162 00 0 15473 TQP CP2650 LIB OR OPEN FUNCTION F1B41530 15365 0162 00 0 15713 TQP CP5000 FUNCTION SUBPROGRAM (FNII) F1B41540 15366 -0754 00 0 00000 PXD 0,0 ARITHMETIC STATEMENT FUNCTION F1B41550 15367 0763 00 0 00017 LLS 15 PUT TYPE NO IN ADD(ACC) F1B41560 15370 -0501 00 0 06171 ORA P( FORM 4...TYPE NO. F1B41570 BINARY CARD NO. 9F140173 15371 0602 00 0 65437 SLW ARGORG AND STO IN ARGORG F1B41580 15372 -0320 00 0 05117 ANA MASK2 F1B41590 15373 -0501 00 0 06173 ORA X( FORM 7...TYPE NO. F1B41600 15374 0602 00 0 65440 SLW XRSAVE AND STO IN XRSAVE F1B41610 15375 0500 00 1 65462 CLA SCRIPL+1,A F1B41620 15376 0760 00 0 00001 LBT EXAMINE OP2(S(I))35 F1B41630 15377 0020 00 0 15404 TRA CP2150 1ST ARG STORED F1B41640 15400 0074 00 4 04251 CP2100 TSX CIT00,C 1ST ARG IN ACC F1B41650 15401 0 06264 0 05120 PZE L(0),,L(STO) LOC,,OP-DEC F1B41660 15402 0 05120 0 65437 PZE ARGORG,,L(0) ADR,,RA-TAG F1B41670 15403 1 77775 1 15407 TXI CP2200,A,-3 GO ON TO OP3(S(I)) F1B41680 15404 -0500 00 0 06227 CP2150 CAL L(CLA) F1B41690 15405 0074 00 2 16524 TSX COMPM4,B F1B41700 15406 0020 00 0 15400 TRA CP2100 F1B41710 15407 -0534 00 2 15176 CP2200 LXD CP0400,B F1B41720 15410 1 00003 2 15411 TXI CP2230,B,3 F1B41730 15411 3 77772 2 15444 CP2230 TXH CP2500,B,-6 FINISHED WITH S(I) F1B41740 15412 -0634 00 2 15176 SXD CP0400,B F1B41750 15413 0500 00 1 65462 CLA SCRIPL+1,A F1B41760 15414 0760 00 0 00001 LBT EXAMINE OP3(S(I))35 F1B41770 15415 0020 00 0 15422 TRA CP2300 2ND ARG STORED F1B41780 15416 0074 00 4 04251 CP2250 TSX CIT00,C 2ND ARG IN MQ F1B41790 BINARY CARD NO. 9F140174 15417 0 06265 0 05120 PZE L(0),,L(STQ) LOC,,OP-DEC F1B41800 15420 0 05152 0 65437 PZE ARGORG,,2E18 ADR,,RA-TAG F1B41810 15421 1 77775 1 15425 TXI CP2350,A,-3 GO ON TO SYM4(S(I)) F1B41820 15422 -0500 00 0 06245 CP2300 CAL L(LDQ) F1B41830 15423 0074 00 2 16524 TSX COMPM4,B F1B41840 15424 0020 00 0 15416 TRA CP2250 F1B41850 15425 0500 00 0 06207 CP2350 CLA DECMI2 INITIALIZE DEC(P(CNTR) TO 2 F1B41860 15426 0602 00 0 65436 SLW P(CNTR F1B41870 15427 -0534 00 2 15176 CP2370 LXD CP0400,B F1B41880 15430 1 00003 2 15431 TXI CP2390,B,3 F1B41890 15431 3 77772 2 15444 CP2390 TXH CP2500,B,-6 FINISHED WITH S(I) F1B41900 15432 -0634 00 2 15176 SXD CP0400,B F1B41910 15433 -0500 00 0 06227 CAL L(CLA) F1B41920 15434 0074 00 2 16524 TSX COMPM4,B F1B41930 15435 0074 00 4 04251 TSX CIT00,C COMPILE STO 4...TYPE NO. + J-2, J=4,... F1B41940 15436 0 06264 0 05120 PZE L(0),,L(STO) LOC,,OP-DEC F1B41950 15437 0 65436 0 65437 PZE ARGORG,,P(CNTR ADR,,RA-TAG F1B41960 15440 0500 00 0 65436 CLA P(CNTR UPDATE P(CNTR F1B41970 15441 0400 00 0 05152 ADD 2E18 F1B41980 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 136 * SECTION ONE PASS TWO * RECORD 9F14 * 15442 0601 00 0 65436 STO P(CNTR F1B41990 15443 1 77775 1 15427 TXI CP2370,A,-3 F1B42000 15444 -0534 00 1 22237 CP2500 LXD 3LBAR,A FINISHED WITH S(I) F1B42010 BINARY CARD NO. 9F140175 15445 -0500 00 1 65463 CAL SCRIPL+2,A RETURN TO FIRST ELEMENT OF SEGMENT AND GET F1B42020 15446 0602 00 0 65443 SLW CW+2 NAME OF FUNCTION FOR TSX ....,4 F1B42030 15447 -0534 00 4 22241 LXD ARGCTR,4 DETERMINE WHETHER IN AN ARITHMETIC FUNCTIONF1B42040 15450 -3 00000 4 15463 TXL CP2600,4,0 OR NOT. F1B42050 15451 0074 00 4 20607 TSX PCH2,4 GO PUT IN LDQ6)+5 STQ2 IF DP OR COMPLEX $F1B42060 15452 0 06271 0 05120 PZE L(0),,L(SXD) F1B42070 15453 0 05124 0 65440 PZE XRSAVE,,L(4) SXD 7(I,4 F1B42080 15454 0074 00 4 04251 TSX CIT00,4 F1B42090 15455 0 06276 0 05120 PZE L(0),,L(TSX) TSX ....,4 F1B42100 15456 0 05124 0 65443 PZE CW+2,,L(4) F1B42110 15457 0074 00 4 06437 TSX FLTR00,4 COMPILE FLOW TRACING INSTRUCTIONS AND THEN F1B42120 15460 0 06250 0 05120 PZE L(0),,L(LXD) F1B42130 15461 0 05124 0 65440 PZE XRSAVE,,L(4) LXD 7(I,4 F1B42140 15462 0020 00 0 15725 TRA ES0000 AND GO TO END OF SEGMENT ROUTINE. F1B42150 15463 0074 00 2 16535 CP2600 TSX COMP0A,2 NOT IN AN ARITHMETIC FUNCTION, COMPILE F1B42160 15464 0074 00 4 04251 TSX CIT00,4 SXD 6(+4,4 F1B42170 15465 0 06276 0 05120 PZE L(0),,L(TSX) TSX ....,4 F1B42180 15466 0 05124 0 65443 PZE CW+2,,L(4) F1B42190 15467 0074 00 4 06437 TSX FLTR00,4 COMPILE FLOW TRACING INSTRUCTIONS AND THEN F1B42200 15470 0 06250 0 05120 PZE L(0),,L(LXD) LXD 6(+4,4 F1B42210 15471 0 06156 0 06172 PZE O(,,D4A4 F1B42220 15472 1 00000 0 15725 CP5830 TXI ES0000,0,** F1B42230 ** LIBRARY (OR OPEN) SUBROUTINE ** F1B42231 BINARY CARD NO. 9F140176 15473 -0763 00 0 00024 CP2650 LGL 20 TEST OP1(S(I))33 F1B42240 15474 0162 00 0 15477 TQP CP3060 0... LIB. SBRTN F1B42250 15475 0074 00 4 16134 TSX OPENSB,4 USE SUBROUTINE TO COMPILE CALLING SEQUENCE.F1B42260 15476 0020 00 0 15725 TRA ES0000 F1B42270 15477 -3 77767 2 15521 CP3060 TXL CP3350,B,-9 F1B42280 15500 0500 00 1 65462 CLA SCRIPL+1,A CLOSED UNIVARIATE FUNCTION F1B42290 15501 0760 00 0 00001 LBT EXAMINE OP2(S(I))35 F1B42300 15502 0020 00 0 15516 TRA CP3280 0... ARG STORED F1B42310 15503 -0534 00 4 22241 CP3100 LXD ARGCTR,4 DETERMINE WHETHER THIS IS AN ARITHMETIC F1B42320 15504 -3 00000 4 15507 TXL CP3200,4,0 FUNCTION BEING COMPILED. F1B42330 15505 0074 00 2 16541 TSX COMP0B,2 YES, COMPILE SXD 7(,4 F1B42340 15506 0020 00 0 15510 TRA *+2 F1B42350 15507 0074 00 2 16535 CP3200 TSX COMP0A,2 NOT A FUNCTION, COMPILE SXD 6(+4,4 F1B42360 15510 0500 00 1 65460 CLA SCRIPL-1,1 GET NAME OF FUNCTION FOR TSX ....,4 F1B42370 15511 0601 00 0 65443 STO CW+2 F1B42380 15512 0074 00 4 04251 TSX CIT00,4 COMPILE F1B42390 15513 0 06276 0 05120 PZE L(0),,L(TSX) TSX ....,4 F1B42400 15514 0 05124 0 65443 PZE CW+2,,L(4) F1B42410 15515 0020 00 0 15714 TRA CP5010 GO COMPILE PROPER LXD F1B42420 15516 -0500 00 0 06227 CP3280 CAL L(CLA) F1B42430 15517 0074 00 2 16524 TSX COMPM4,B F1B42440 15520 0020 00 0 15503 TRA CP3100 GO COMPILE SXD,TSX,LXD SEQUENCE F1B42450 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 137 * SECTION ONE PASS TWO * RECORD 9F14 * BINARY CARD NO. 9F140177 15521 -3 77764 2 15540 CP3350 TXL CP3560,B,-12 F1B42460 15522 0500 00 1 65462 CLA SCRIPL+1,A CLOSED BIVARIATE FUNCTION F1B42470 15523 0760 00 0 00001 LBT EXAMINE OP2(S(I))35 F1B42480 15524 0020 00 0 15531 TRA CP3450 0... ARG1 STORED F1B42490 15525 -0500 00 0 06245 CP3390 CAL L(LDQ) 1... ARG1 IN ACC F1B42500 15526 1 77775 1 15527 TXI CP3420,A,-3 F1B42510 15527 0074 00 2 16524 CP3420 TSX COMPM4,B F1B42520 15530 1 00003 1 15503 TXI CP3100,A,3 GO COMPILE SXD,TSX,LXD SEQUENCE F1B42530 15531 0500 00 1 65465 CP3450 CLA SCRIPL+4,A F1B42540 15532 0760 00 0 00001 LBT EXAMINE OP3(S(I))35 F1B42550 15533 0020 00 0 15535 TRA CP3490 0... ARG2 STORED F1B42560 15534 0020 00 0 15516 TRA CP3280 1... ARG2 IN MQ F1B42570 15535 -0500 00 0 06227 CP3490 CAL L(CLA) F1B42580 15536 0074 00 2 16524 TSX COMPM4,B F1B42590 15537 0020 00 0 15525 TRA CP3390 GO COMPILE LDQ,SXD,TSX,LXD SEQUENCE F1B42600 15540 0500 00 1 65462 CP3560 CLA SCRIPL+1,A CLOSED MULTIVARIATE FUNCTION F1B42610 15541 0760 00 0 00001 LBT EXAMINE OP2(S(I))35 F1B42620 15542 1 77772 1 15565 TXI CP3820,A,-6 0... ARG1 STORED F1B42630 15543 1 77772 1 15544 TXI CP3600,A,-6 1... ARG1 IN ACC F1B42640 15544 0500 00 0 06207 CP3600 CLA DECMI2 F1B42650 15545 0601 00 0 65436 STO P(CNTR INITIALIZE P(CNTR TO -2 F1B42660 15546 -0500 00 0 06245 CP3620 CAL L(LDQ) F1B42670 BINARY CARD NO. 9F140178 15547 0074 00 2 16524 TSX COMPM4,B F1B42680 15550 0074 00 4 04251 TSX CIT00,C COMPULE STQ P(, I F1B42690 15551 0 06265 0 05120 PZE L(0),,L(STQ) LOC,,OP-DEC F1B42700 15552 0 65436 0 06171 PZE P(,,P(CNTR ADR,,RA-TAG F1B42710 15553 0500 00 0 65436 CLA P(CNTR F1B42720 15554 0402 00 0 05152 SUB 2E18 F1B42730 15555 0601 00 0 65436 STO P(CNTR F1B42740 15556 -0534 00 2 15176 LXD CP0400,B F1B42750 15557 1 00003 2 15560 TXI CP3770,B,3 F1B42760 15560 -3 77764 2 15563 CP3770 TXL CP3800,B,-12 F1B42770 15561 -0534 00 1 22237 LXD 3LBAR,A FINISHED WITH ARG VECTOR F1B42780 15562 1 77775 1 15525 TXI CP3390,A,-3 F1B42790 15563 -0634 00 2 15176 CP3800 SXD CP0400,B F1B42800 15564 1 77775 1 15546 TXI CP3620,A,-3 GO PICK UP NEXT ARG. F1B42810 15565 0500 00 1 65457 CP3820 CLA SCRIPL-2,A F1B42820 15566 0760 00 0 00001 LBT EXAMINE OP3(S(I))35 F1B42830 15567 1 00006 1 15611 TXI CP4070,A,6 0... ARG2 STORED F1B42840 15570 0500 00 0 06207 CLA DECMI2 1... ARG2 IN MQ F1B42850 15571 0601 00 0 65436 STO P(CNTR F1B42860 15572 -0500 00 0 06227 CP3870 CAL L(CLA) F1B42870 15573 0074 00 2 16524 TSX COMPM4,B F1B42880 15574 0074 00 4 04251 TSX CIT00,C COMPILE STO P(, I F1B42890 BINARY CARD NO. 9F140179 15575 0 06264 0 05120 PZE L(0),,L(STO) LOC,,OP-DEC F1B42900 15576 0 65436 0 06171 PZE P(,,P(CNTR ADR,,RA-TAG F1B42910 15577 0500 00 0 65436 CLA P(CNTR F1B42920 15600 0402 00 0 05152 SUB 2E18 F1B42930 15601 0601 00 0 65436 STO P(CNTR F1B42940 15602 -0534 00 2 15176 LXD CP0400,B F1B42950 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 138 * SECTION ONE PASS TWO * RECORD 9F14 * 15603 1 00003 2 15604 TXI CP4020,B,3 F1B42960 15604 -3 77764 2 15607 CP4020 TXL CP4050,B,-12 F1B42970 15605 -0534 00 1 22237 LXD 3LBAR,A FINISHED WITH ARG VECTOR F1B42980 15606 1 77775 1 15516 TXI CP3280,A,-3 F1B42990 15607 -0634 00 2 15176 CP4050 SXD CP0400,B F1B43000 15610 1 77775 1 15572 TXI CP3870,A,-3 GO PICK UP NEXT ARG F1B43010 15611 -0500 00 0 06227 CP4070 CAL L(CLA) F1B43020 15612 0074 00 2 16524 TSX COMPM4,B F1B43030 15613 1 77772 1 15544 TXI CP3600,A,-6 F1B43040 ** COMPILE EXPONENTIATION SEGMENT ** F1B43041 15614 -0763 00 0 00033 CP4140 LGL 27 OP1(S(I))=** F1B43050 15615 0162 00 0 15645 TQP CP4410 CLOSED SBRTN SINCE OP1(S(I))33=0 F1B43060 15616 0760 00 0 00001 LBT * OPEN SUBROUTINE BIT 33=1 F1B43070 15617 0020 00 0 15622 TRA CP4200 BASE FIX PT SINCE OP1(S(I))32=0 F1B43080 15620 0500 00 0 06214 CLA STRSTR BASE FLO PT SINCE OP1(S(II))32=1 F1B43090 15621 0020 00 0 15623 TRA CP4210 F1B43100 15622 0500 00 0 06213 CP4200 CLA ADSTAR F1B43110 BINARY CARD NO. 9F140180 15623 0601 00 0 65442 CP4210 STO CW+1 F1B43120 15624 -0763 00 0 00002 LGL 2 EXAMINE OP1(S(I))35 F1B43130 15625 0162 00 0 15634 TQP CP4310 0... BASE STORED F1B43140 15626 0560 00 0 06213 LDQ ADSTAR 1... BASE NOT STORED F1B43150 15627 0760 00 0 00001 LBT EXAMINE OP1(S(I))34 F1B43160 15630 0560 00 0 06176 LDQ ADPLUS 0... BASE IN ACC F1B43170 15631 -0600 00 0 65443 STQ CW+2 1...BASE IN MQ F1B43180 15632 0600 00 0 65444 STZ CW+3 F1B43190 15633 0020 00 0 15635 TRA CP4320 F1B43200 15634 0074 00 4 16362 CP4310 TSX AC0000,C ADDRESS COMPILE SYM1(S(I)) F1B43210 15635 0502 00 0 65441 CP4320 CLS CW F1B43220 15636 0601 00 0 65441 STO CW CW TO -CW F1B43230 15637 0074 00 2 16530 TSX COMP,B COMPILE BASE F1B43240 15640 0500 00 1 65466 CLA SCRIPL+5,A F1B43250 15641 0601 00 0 65443 STO CW+2 F1B43260 15642 0074 00 2 16530 TSX COMP,B COMPILE FIX PT CONSTANT EXPONENT F1B43270 15643 0600 00 0 65442 STZ CW+1 RESET CW+1 F1B43280 15644 0020 00 0 15725 TRA ES0000 F1B43290 15645 -0763 00 0 00003 CP4410 LGL 3 * CLOSED EXP. SBRTN F1B43300 15646 0760 00 0 00001 LBT EXAMINE OP1(S(I))35 F1B43310 15647 0020 00 0 15705 TRA CP4860 0... BASE STORED F1B43320 15650 -0500 00 0 06245 CP4440 CAL L(LDQ) 1... BASE IN ACC. F1B43330 BINARY CARD NO. 9F140181 15651 1 77775 1 15652 TXI CP4470,A,-3 F1B43340 15652 0074 00 2 16524 CP4470 TSX COMPM4,B F1B43350 15653 -0534 00 4 22241 CP4490 LXD ARGCTR,4 DETERMINE WHETHER AN ARITHMETIC FUNCTION ISF1B43360 15654 -3 00000 4 15657 TXL CP4500,4,0 IS BEING COMPILED. F1B43370 15655 0074 00 2 16541 TSX COMP0B,2 YES, COMPILE SXD 7(,4 F1B43380 15656 0020 00 0 15660 TRA *+2 F1B43390 15657 0074 00 2 16535 CP4500 TSX COMP0A,2 NO, COMPILE SXD 6(+4,4 F1B43400 15660 0500 00 1 65462 CLA SCRIPL+1,A F1B43410 15661 0771 00 0 00003 ARS 3 F1B43420 15662 0760 00 0 00001 LBT EXAMINE OP2(S(I))32 F1B43430 15663 1 00003 1 15671 TXI CP4660,A,3 0... F1B43440 15664 0500 00 0 06202 CLA FLFL 1... FLO**FLO F1B43450 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 139 * SECTION ONE PASS TWO * RECORD 9F14 * 15665 0560 00 1 65457 LDQ SCRIPL-2,A EXAMINE OP1(S(I))32 TO CHECK F1B43460 15666 -0773 00 0 00040 RQL 32 FOR MIXED EXPONENTIAL EXPRESSION F1B43470 15667 0162 00 0 15050 TQP MC0310+2 ERROR FIX PT BASE, FLOAT EXP. F1B43480 15670 0020 00 0 15676 TRA CP4730 F1B43490 15671 0560 00 1 65462 CP4660 LDQ SCRIPL+1,A F1B43500 15672 -0773 00 0 00040 RQL 32 EXAMINE OP1(S(I))32 F1B43510 15673 0500 00 0 06200 CLA FXFX F1B43520 15674 0162 00 0 15676 TQP CP4730 0...FX**FX F1B43530 15675 0500 00 0 06201 CLA FLFX 1... FL**FX F1B43540 15676 0601 00 0 05604 CP4730 STO G FOR CLOSUB ENTRY AND FOR TSX ....,4 F1B43550 BINARY CARD NO. 9F140182 15677 0074 00 4 04251 TSX CIT00,4 COMPILE F1B43560 15700 0 06276 0 05120 PZE L(0),,L(TSX) TSX ....,4 F1B43570 15701 0 05124 0 05604 PZE G,,L(4) F1B43580 15702 0074 00 1 04405 TSX TET00,A F1B43590 15703 0000 00 0 00011 HTR 9 F1B43600 15704 0020 00 0 15714 TRA CP5010 F1B43610 15705 -0500 00 0 06227 CP4860 CAL L(CLA) F1B43620 15706 0074 00 2 16524 TSX COMPM4,B F1B43630 15707 0500 00 1 65465 CLA SCRIPL+4,A F1B43640 15710 0760 00 0 00001 LBT EXAMINE OP2(S(I))35 F1B43650 15711 1 00000 0 15650 TXI CP4440,0,0 0...EXP STORED F1B43660 15712 1 77775 1 15653 TXI CP4490,A,-3 1... EXP IN MQ F1B43670 15713 0074 00 4 16201 CP5000 TSX FNIISB,4 USE SUBROUTINE TO COMPILE CALLING SEQUENCE.F1B43680 15714 -0534 00 4 22241 CP5010 LXD ARGCTR,4 DETERMINE WHETHER THIS IS AN ARITHMETIC F1B43690 15715 -3 00000 4 15722 TXL CP5020,4,0 FUNCTION BEING COMPILED. F1B43700 15716 0074 00 4 06437 TSX FLTR00,4 COMPILE FLOW TRACING INSTRUCTIONS AND THEN F1B43710 15717 0 06250 0 05120 PZE L(0),,L(LXD) LXD 7(,4 F1B43720 15720 0 05124 0 06173 PZE X(,,L(4) F1B43730 15721 0020 00 0 15725 TRA ES0000 GO TO END OF SEGMENT ROUTINE. F1B43740 15722 0074 00 4 06437 CP5020 TSX FLTR00,4 COMPILE FLOW TRACING INSTRUCTIONS AND THEN F1B43750 15723 0 06250 0 05120 PZE L(0),,L(LXD) LXD 6(+4,4 F1B43760 15724 0 06156 0 06172 PZE O(,,D4A4 F1B43770 F1B43780 END OF SEGMENT ROUTINE. F1B43790 BINARY CARD NO. 9F140183 15725 -0534 00 1 22237 ES0000 LXD 3LBAR,A -3Q TO XA F1B43800 15726 -0760 00 0 00141 SLT 1 IS A STORE NEEDED F1B43810 15727 0020 00 0 15136 TRA CP0130 NO, GO TO NEXT SEGMENT F1B43820 15730 -0500 00 1 65461 CAL SCRIPL,A YES, ARE WE AT LEVEL ZERO F1B43830 15731 -0320 00 0 05117 ANA MASK2 F1B43840 15732 0100 00 0 15746 TZE ES0160 TRA=YES F1B43850 15733 0520 00 0 65451 ZET XCAIND WAS XCA INDICATOR SET. F1B43860 15734 0020 00 0 16074 TRA ESXCA0 YES, POSSIBILITY OF USING XCA. F1B43870 15735 0500 00 0 22240 CLA ARERAS S(I) NOT = S(0) F1B43880 15736 0601 00 0 65443 STO CW+2 F1B43890 15737 0500 00 0 22254 CLA PHI(I) F1B43900 15740 0601 00 0 65444 STO CW+3 F1B43910 15741 -0500 00 0 06265 CAL L(STQ) F1B43920 15742 -0760 00 0 00142 SLT 2 IS STQ LITE ON F1B43930 15743 -0500 00 0 06264 CAL L(STO) F1B43940 15744 0074 00 2 16527 TSX COMPM2,B COMPILE STO/STQ 1... TYPE NO + PHI(I) F1B43950 15745 0020 00 0 15136 TRA CP0130 GO TO NEXT SEGMENT F1B43960 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 140 * SECTION ONE PASS TWO * RECORD 9F14 * 15746 0560 00 0 05610 ES0160 LDQ LEFT+2 S(I)=S(0) F1B43970 15747 -0763 00 0 00014 LGL 12 F1B43980 15750 0340 00 0 05146 CAS IFSYM IS THIS AN IF STATEMENT F1B43990 15751 0020 00 0 15753 TRA ES0200 F1B44000 15752 0020 00 0 16060 TRA ES1500 F1B44010 BINARY CARD NO. 9F140184 15753 0340 00 0 05151 ES0200 CAS CALLER IS THIS A CALL STATEMENT F1B44020 15754 0020 00 0 15756 TRA ES0220 F1B44030 15755 0020 00 0 16062 TRA ES1520 F1B44040 15756 0771 00 0 00006 ES0220 ARS 6 F1B44050 15757 -0534 00 4 22241 LXD ARGCTR,C IS THIS A FUNCTION STATEMENT F1B44060 15760 3 00000 4 16045 TXH ES1300,C,0 YES F1B44070 15761 0340 00 0 05140 CAS L(H) NOT A FUNCTION STATEMENT F1B44080 15762 0340 00 0 05143 CAS L(O) F1B44090 15763 0020 00 0 16021 TRA ES0300 F1B44100 15764 0020 00 0 16021 TRA ES0300 F1B44110 15765 -0760 00 0 00144 SLT 4 F1B44120 15766 0020 00 0 15776 TRA ES0870 F1B44130 15767 0500 00 0 06265 ES0710 CLA L(STQ) FX(FLO) PT ON LEFT, FX(FLO) PT ON RIGHT F1B44140 15770 -0760 00 0 00142 SLT 2 F1B44150 15771 0500 00 0 06264 ES0730 CLA L(STO) F1B44160 15772 0601 00 0 65442 STO CW+1 F1B44170 15773 0074 00 4 16353 TSX AC0M60,C ADDRESS COMPILE VARIABLE ON LEFT F1B44180 15774 0074 00 2 16530 TSX COMP,B COMPILE STO/STQ LEFT+2 F1B44190 15775 0020 00 0 16065 TRA ES1590 EXIT TO FETCH STATE A F1B44200 15776 -0760 00 0 00142 ES0870 SLT 2 FX PT ON LEFT, FLO PT ON RIGHT F1B44210 15777 0020 00 0 16001 TRA ES0990 F1B44220 16000 0074 00 2 16545 TSX COMP0C,2 COMPILE XCA F1B44230 BINARY CARD NO. 9F140185 16001 0074 00 4 04251 ES0990 TSX CIT00,C COMPILE FIXING INSTRUCTIONS, WHEN F1B44240 16002 0 06277 0 05120 PZE L(0),,L(UFA) LOC,,OP-DEC F1B44250 16003 0 05120 0 06172 PZE O(,,L(0) ADR,,RA-TAG F1B44260 16004 0074 00 4 04251 TSX CIT00,C F1B44270 16005 0 06247 0 05120 PZE L(0),,L(LRS) LOC,,OP-DEC F1B44280 16006 0 05120 0 05120 PZE L(0),,L(0) ADR,,RA-TAG F1B44290 16007 0074 00 4 04251 TSX CIT00,C F1B44300 16010 0 06222 0 05120 PZE L(0),,L(ANA) LOC,,OP-DEC F1B44310 16011 0 05152 0 06172 PZE O(,,2E18 ADR,,RA-TAG F1B44320 16012 0074 00 4 04251 TSX CIT00,C F1B44330 16013 0 06246 0 05120 PZE L(0),,L(LLS) LOC,,OP-TAG F1B44340 16014 0 05120 0 05120 PZE L(0),,L(0) ADR,,RA-TAG F1B44350 16015 0074 00 4 04251 TSX CIT00,C F1B44360 16016 0 06221 0 05120 PZE L(0),,L(ALS) LOC,,OP-DEC F1B44370 16017 0 06161 0 05120 PZE L(0),,DEC18 ADR,,RA-TAG F1B44380 16020 0020 00 0 16037 TRA ES0610 F1B44390 16021 -0760 00 0 00144 ES0300 SLT 4 F1B44400 16022 0020 00 0 15767 TRA ES0710 F1B44410 16023 -0760 00 0 00142 ES0320 SLT 2 F1B44420 16024 0020 00 0 16026 TRA ES0440 F1B44430 16025 0074 00 2 16545 TSX COMP0C,2 COMPILE XCA F1B44440 16026 0074 00 4 04251 ES0440 TSX CIT00,C COMPILE FLOATING INSTRUCTIONS, WHEN F1B44450 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 141 * SECTION ONE PASS TWO * RECORD 9F14 * BINARY CARD NO. 9F140186 16027 0 06247 0 05120 PZE L(0),,L(LRS) LOC,,OP-DEC F1B44460 16030 0 06161 0 05120 PZE L(0),,DEC18 ADR,,RA-TAG F1B44470 16031 0074 00 4 04251 TSX CIT00,C F1B44480 16032 0 06253 0 05120 PZE L(0),,L(ORA) LOC,,OP-DEC F1B44490 16033 0 05120 0 06172 PZE O(,,L(0) ADR,,RA-TAG F1B44500 16034 0074 00 4 04251 TSX CIT00,C F1B44510 16035 0 06237 0 05120 PZE L(0),,L(FAD) LOC,,OP-DEC F1B44520 16036 0 05120 0 06172 PZE O(,,L(0) ADR,,RA-TAG F1B44530 16037 -0534 00 4 22241 ES0610 LXD ARGCTR,C IS THIS A FUNCTION STATEMENT F1B44540 16040 -3 00000 4 15771 TXL ES0730,C,0 NO F1B44550 16041 0074 00 4 20607 ES0630 TSX PCH2,4 GO PUT IN LDQ6)+5 STQ2 IF DP OR COMPLEX $F1B44560 16042 0 06275 0 05120 PZE L(0),,L(TRA) LOC,,OP-DEC F1B44570 16043 0 06143 0 05120 PZE L(0),,ABTAG1 ADR,,RA-TAG F1B44580 16044 0020 00 0 16065 TRA ES1590 EXIT TO FETCH STATE A F1B44590 ** FUNCTION SUBPROGRAM ** F1B44591 16045 0402 00 0 06131 ES1300 SUB L(X) TEST FIXED OR FLOAT F1B44600 16046 0100 00 0 16052 TZE ES1360 F1B44610 16047 -0760 00 0 00144 SLT 4 F1B44620 16050 0020 00 0 16054 TRA ES1380 FLO NAME, FLO RESULT, STORE IT. F1B44630 16051 0020 00 0 16023 TRA ES0320 FLO NAME, FIX RESULT, GO FLOAT IT. F1B44640 16052 -0760 00 0 00144 ES1360 SLT 4 FIX NAME, F1B44650 16053 0020 00 0 15776 TRA ES0870 FLO RESULT, GO FIX IT. F1B44660 16054 -0760 00 0 00142 ES1380 SLT 2 FIX NAME, FIX RESULT, STORE IT F1B44670 BINARY CARD NO. 9F140187 16055 0020 00 0 16041 TRA ES0630 F1B44680 16056 0074 00 2 16545 TSX COMP0C,2 COMPILE XCA F1B44690 16057 0020 00 0 16041 TRA ES0630 F1B44700 ** IF STATEMENT ** F1B44701 16060 0020 00 0 20613 ES1500 TRA PCH4 GO TO PROGRAM TET $F1B44710 16061 0074 00 4 20634 TSX DBCHK,4 GO PUT IN LDQ6)+5 STQ2 IF DP OR COMPLEX $F1B44720 ** IF AND CALL STATEMENT ** F1B44721 16062 -0760 00 0 00142 ES1520 SLT 2 F1B44730 16063 0020 00 0 16065 TRA ES1590 EXIT TO FETCH STATE A F1B44740 16064 0074 00 2 16545 TSX COMP0C,2 COMPILE XCA F1B44750 16065 0500 00 0 65435 ES1590 CLA FNSW F1B44760 16066 0600 00 0 05610 STZ LEFT+2 F1B44770 16067 0020 00 0 20747 TRA ES1595 TO RESET ARITHMETIC FORTAG FLAG. (23)F1B44780 16070 0622 00 0 05556 STD CALLNM F1B44790 16071 0074 00 1 04405 TSX TET00,1 MAKE ENTRY OF FIRST, LAST IFN IN CALL TABLEF1B44800 16072 0 00000 0 00020 16 F1B44810 16073 0020 00 0 07211 TRA CHSIFN F1B44820 F1B44830 16074 0500 00 1 65456 ESXCA0 CLA SCRIPL-3,1 IS FIRST ELEMENT OF NEXT SEGMENT LEVEL F1B44840 16075 0734 00 2 00000 PAX ,2 NUMBER, IF NOT XCA IMPOSSIBLE. F1B44850 16076 0500 00 2 71545 CLA CPBETA,2 F1B44860 16077 0737 00 4 00000 PAC ,4 LENGTH OF NEXT LEVEL TO IR4. F1B44870 16100 -0634 00 4 16101 SXD *+1,4 F1B44880 16101 1 00000 1 16102 TXI *+1,1,** BUMP IR1 TO BEGINNING OF NEXT SEGMENT. F1B44890 16102 -0500 00 1 65462 CAL SCRIPL+1,1 GET OP1 OF NEXT LEVEL AND TEST FOR ** OR $ F1B44900 BINARY CARD NO. 9F140188 16103 -0765 00 0 00036 LGR 30 DO NOT COMPILE XCA FOR EITHER CASE. F1B44910 16104 0402 00 0 05144 SUB SPECOP F1B44920 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 142 * SECTION ONE PASS TWO * RECORD 9F14 * 16105 0100 00 0 16131 TZE ESXCA1 F1B44930 16106 0162 00 0 16110 TQP *+2 F1B44940 16107 0020 00 0 16131 TRA ESXCA1 F1B44950 16110 0500 00 1 65461 CLA SCRIPL,1 GET TAGWORD OF FIRST ELEMENT OF NEXT SEG- F1B44960 16111 0120 00 0 16131 TPL ESXCA1 MENT AND TEST FOR SUBSCRIPTED VAR., EXIT IFF1B44970 YES. F1B44980 16112 0560 00 1 65463 LDQ SCRIPL+2,1 GET SYMBOL WORD AND TEST FOR LEVEL NUMBER. F1B44990 16113 -0763 00 0 00001 LGL 1 F1B45000 16114 0760 00 0 00001 LBT F1B45010 16115 0162 00 0 16117 TQP *+2 F1B45020 16116 0020 00 0 16131 TRA ESXCA1 ANYTHING OTHER THAN LEVEL NUMBER EXCLUDES F1B45030 XCA, EXIT. F1B45040 16117 -0763 00 0 00043 LGL 35 F1B45050 16120 0734 00 2 00000 PAX ,2 F1B45060 16121 -0500 00 2 71545 CAL CPBETA,2 IS LEVEL NUMBER BEGINNING THIS SEGMENT F1B45070 16122 -0320 00 0 06216 ANA MASK1 SAME AS LEVEL NUMBER ENDING PREVIOUS SEG- F1B45080 16123 0402 00 0 22254 SUB PHI(I) MENT. IF NOT XCA IS EXCLUDED. F1B45090 16124 -0100 00 0 16131 TNZ ESXCA1 F1B45100 ALL CONDITIONS HAVE BEEN SATISFIED. F1B45110 16125 0074 00 2 16545 TSX COMP0C,2 COMPILE XCA. F1B45120 16126 -0760 00 0 00142 SLT 2 TURN LITE I OFF. F1B45130 16127 0761 00 0 00000 NOP F1B45140 16130 0020 00 0 15135 TRA CP0130-1 GO TO NEXT SEGMENT. F1B45150 SOME CONDITION FAILED, XCA EXCLUDED. F1B45160 BINARY CARD NO. 9F140189 16131 -0534 00 1 22237 ESXCA1 LXD 3LBAR,1 RELOAD IR1 F1B45170 16132 0600 00 0 65451 STZ XCAIND CLEAR INDICATOR OF LINKED BIT. F1B45180 16133 0020 00 0 15735 TRA ES0000+8 GO COMPILE STO OR STQ 1(+I F1B45190 F1B45200 F1B45210 16134 0634 00 4 16163 OPENSB SXA CP2890,4 SAVE CALLING TAG. F1B45220 16135 0502 00 0 65441 CLS CW 1... OPEN SBRTN F1B45230 16136 0601 00 0 65441 STO CW CW TO -CW F1B45240 16137 0500 00 1 65460 CLA SCRIPL-1,A F1B45250 16140 0601 00 0 65443 STO CW+2 F1B45260 16141 -0500 00 0 06257 PATF CAL L(PZE) SET OPERATION CODE TO PZE. F1B45270 16142 0602 00 0 65442 SLW CW+1 F1B45280 16143 0074 00 2 16530 TSX COMP,B COMPILE FUNCTION NAME F1B45290 16144 -0534 00 2 15176 LXD CP0400,B F1B45300 16145 -3 77767 2 16167 TXL CP2930,B,-9 F1B45310 16146 -0500 00 0 05156 CAL ALL1 OPEN UNIVARIATE FUNCTION F1B45320 16147 0602 00 0 65441 SLW CW F1B45330 16150 0500 00 1 65462 CLA SCRIPL+1,A F1B45340 16151 0760 00 0 00001 LBT EXAMINE OP2(S(I))35 F1B45350 16152 0020 00 0 16165 TRA CP2900 0... ARG STORED F1B45360 16153 0771 00 0 00001 ARS 1 1... ARG NOT STORED F1B45370 16154 0560 00 0 06176 LDQ ADPLUS F1B45380 16155 0760 00 0 00001 LBT F1B45390 16156 0020 00 0 16160 TRA CP2860 F1B45400 BINARY CARD NO. 9F140190 16157 0560 00 0 06213 LDQ ADSTAR F1B45410 16160 -0600 00 0 65443 CP2860 STQ CW+2 F1B45420 16161 0600 00 0 65444 STZ CW+3 F1B45430 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 143 * SECTION ONE PASS TWO * RECORD 9F14 * 16162 0074 00 2 16530 CP2880 TSX COMP,B COMPILE ACC OR MQ INDICATOR F1B45440 16163 0774 00 4 00000 CP2890 AXT ..,4 RELOAD CALLING TAG. F1B45450 16164 0020 00 4 00001 TRA 1,4 RETURN TO CALLER. F1B45460 16165 0074 00 4 16362 CP2900 TSX AC0000,C ADDRESS COMPILE SYM2(S(I)) F1B45470 16166 0020 00 0 16162 TRA CP2880 GO COMPILE SYM2(S(I)) F1B45480 16167 0074 00 4 16362 CP2930 TSX AC0000,C OPEN MULTIVARIATE FUNCTION F1B45490 16170 -0534 00 2 15176 LXD CP0400,B F1B45500 16171 1 00003 2 16172 TXI CP2960,B,3 F1B45510 16172 3 77772 2 16176 CP2960 TXH CP3000,B,-6 F1B45520 16173 -0634 00 2 15176 SXD CP0400,B F1B45530 16174 0074 00 2 16530 TSX COMP,B COMPILE SYMJ(S(I)) F1B45540 16175 1 77775 1 16167 TXI CP2930,A,-3 F1B45550 16176 -0500 00 0 05156 CP3000 CAL ALL1 F1B45560 16177 0602 00 0 65441 SLW CW F1B45570 16200 0020 00 0 16162 TRA CP2880 F1B45580 F1B45590 16201 0634 00 4 16322 FNIISB SXA CP5780,4 SAVE CALLING TAG. F1B45600 16202 0600 00 0 16204 STZ FNSW2 INITIALIZE SUPP IFN SWITCH. (23)F1B45610 16203 0020 00 0 16205 TRA *+2 (23)F1B45620 16204 0 00000 0 00000 FNSW2 ,,** (23)F1B45630 BINARY CARD NO. 9F140191 16205 0534 00 4 05121 LXA L(1),C INITIALIZE STAIX TO 1 F1B45640 16206 0500 00 1 65461 CP5050 CLA SCRIPL,A EXAMINE TAGJ(S(I)), J=2,... F1B45650 16207 -0120 00 0 16324 TMI CP8000 NON-SUBSCRIPTED VARIABLE F1B45660 16210 -0634 00 2 15472 SXD CP5830,B SUBSCRIPTED-IS THERE A GENERAL TAG F1B45670 16211 -0634 00 4 16304 SXD STACTR,C F1B45680 16212 0074 00 4 16362 TSX AC0000,C F1B45690 16213 -0500 00 0 65450 CAL TAGPRT F1B45700 16214 -0100 00 0 16227 TNZ CP5220 GENERAL TAG PRESENT F1B45710 16215 -0500 00 0 65444 CAL CW+3 NO GENERAL TAG PRESENT,SO PLACE F1B45720 16216 0771 00 0 00013 ARS 11 RELATIVE ADDRESS IN OPJ(S(I))14'28 AND F1B45730 16217 -0501 00 0 06165 ORA NGTBIT SET OPJ(S(I))10=1 FROM NGTBIT F1B45740 16220 -0602 00 1 65462 ORS SCRIPL+1,A F1B45750 16221 -0534 00 4 16304 CP5160 LXD STACTR,C F1B45760 16222 -0534 00 2 15472 LXD CP5830,B F1B45770 16223 1 00003 2 16224 CP5180 TXI CP5190,B,3 F1B45780 16224 3 77772 2 16245 CP5190 TXH CP5460,B,-6 FINISHED WITH PRELUDE,IF ANY F1B45790 16225 1 00001 4 16226 TXI CP5210,C,1 NOT FINISHED-STAIX=STAIX+1 F1B45800 16226 1 77775 1 16206 CP5210 TXI CP5050,A,-3 GO ON TO NEXT ARGUMENT F1B45810 16227 -0500 00 0 06255 CP5220 CAL L(PXA) F1B45820 16230 0074 00 2 16527 TSX COMPM2,B COMPILE PXD SYMJ(S(I)), TAGJ(S(I)) F1B45830 16231 0074 00 4 04251 TSX CIT00,C COMPILE ADD *-2 F1B45840 16232 0 06270 0 05120 PZE L(0),,L(SUB) LOC,,OP-DEC F1B45850 BINARY CARD NO. 9F140192 16233 0 06205 0 06175 PZE PROCTR,,DECMI1 ADR,,RA-TAG F1B45860 16234 -0534 00 4 03734 LXD EIFNO,C COMPUTE VALUE OF (23)F1B45870 16235 1 00001 4 20752 TXI CP5221,C,1 NEEDED SUPP IFN. (23)F1B45880 16236 0602 00 0 65443 CP5222 SLW CW+2 STORE IT FOR STA INSTR. (23)F1B45890 16237 -0534 00 4 16304 LXD STACTR,C F1B45900 16240 -0754 00 4 00000 PXD 0,C F1B45910 16241 0602 00 0 65444 SLW CW+3 F1B45920 16242 -0500 00 0 06263 CAL L(STA) F1B45930 16243 0074 00 2 16527 TSX COMPM2,B COMPILE STA IFN+STAIX F1B45940 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 144 * SECTION ONE PASS TWO * RECORD 9F14 * 16244 1 00000 0 16221 TXI CP5160,0,0 GO ON TO NEXT ARGUMENT,IF ANY F1B45950 16245 -0534 00 1 22237 CP5460 LXD 3LBAR,A F1B45960 16246 -0534 00 4 22241 LXD ARGCTR,4 DETERMINE WHETHEN AN ARITHMETIC FUNCTION F1B45970 16247 -3 00000 4 16255 TXL CP5470,4,0 IS BEING COMPILED. F1B45980 16250 0074 00 2 16541 TSX COMP0B,2 YES, COMPILE SXD 7(,4 F1B45990 16251 0074 00 4 04251 TSX CIT00,C COMPILE STRING OF ONES FOR SEC. THREE. F1B46000 16252 0 05156 0 05156 PZE ALL1,,ALL1 F1B46010 16253 0 05156 0 05156 PZE ALL1,,ALL1 F1B46020 16254 0020 00 0 16256 TRA *+2 F1B46030 16255 0074 00 2 16535 CP5470 TSX COMP0A,2 NO, COMPILE SXD 6(+4,4 F1B46040 16256 -0500 00 0 16204 CP5520 CAL FNSW2 PICK UP SUPPLEMENTAL IFN (23)F1B46050 16257 0602 00 0 65441 SLW CW AND STORE FOR LOCATION FIELD. (23)F1B46060 16260 -0100 00 0 20755 TNZ CP5521 WAS IT NEEDED, YES. (23)F1B46070 BINARY CARD NO. 9F140193 16261 -0500 00 1 65463 CAL SCRIPL+2,A F1B46080 16262 0602 00 0 65443 SLW CW+2 F1B46090 16263 0074 00 4 04251 TSX CIT00,4 COMPILE F1B46100 16264 0 06276 0 65441 PZE CW,,L(TSX) TSX ...,4 F1B46110 16265 0 05124 0 65443 PZE CW+2,,L(4) F1B46120 16266 0600 00 0 65441 STZ CW CLEAR CW OF IFN. F1B46130 16267 0500 00 0 06276 CLA L(TSX) SET OPERATION CODE FOR ARGUMENTS TO TSX. F1B46140 16270 0601 00 0 65442 STO CW+1 F1B46150 16271 1 77775 1 16272 TXI CP5680,A,-3 POSITION XA TO SYM2(S(I)) F1B46160 16272 0500 00 1 65461 CP5680 CLA SCRIPL,A F1B46170 16273 0120 00 0 16305 TPL CP5700 F1B46180 16274 0500 00 0 04521 CORR08 CLA MODECL TEST FOR DOUBLE PRECISION F1B46190 16275 0402 00 0 05136 SUB L(D) F1B46200 16276 0100 00 0 16303 TZE DPMD F1B46210 16277 0402 00 0 05125 SUB L(5) OR COMPLEX ARITHMETIC F1B46220 16300 0100 00 0 16303 TZE DPMD F1B46230 16301 0074 00 4 16362 TSX AC0000,C NONSUBSCRIPTED F1B46240 16302 0020 00 0 16304 TRA *+2 F1B46250 F1B46260 16303 0074 00 4 17774 DPMD TSX ACDP00,4 F1B46270 16304 1 00000 0 16314 STACTR TXI CP5720,0,0 F1B46280 16305 0560 00 1 65462 CP5700 LDQ SCRIPL+1,A SUBSCRIPTED F1B46290 16306 -0763 00 0 00013 LGL 11 F1B46300 BINARY CARD NO. 9F140194 16307 0760 00 0 00001 LBT F1B46310 16310 0560 00 0 05120 LDQ L(0) GENERAL TAG PRESENT F1B46320 16311 -0600 00 0 65444 STQ CW+3 NO GENERAL TAG PRESENT F1B46330 16312 -0500 00 1 65463 CAL SCRIPL+2,A F1B46340 16313 0602 00 0 65443 SLW CW+2 F1B46350 16314 0074 00 2 16530 CP5720 TSX COMP,B COMPILE TSX SYMJ(S(I)) , J=2,... F1B46360 16315 -0534 00 2 15176 LXD CP0400,B F1B46370 16316 1 00003 2 16317 TXI CP5750,B,3 F1B46380 16317 3 77772 2 16322 CP5750 TXH CP5780,B,-6 FINISHED SCANNING F1B46390 16320 -0634 00 2 15176 SXD CP0400,B F1B46400 16321 1 77775 1 16272 TXI CP5680,A,-3 F1B46410 16322 0774 00 4 00000 CP5780 AXT ..,4 RELOAD CALLING TAG. F1B46420 16323 0020 00 4 00001 TRA 1,4 RETURN TO CALLER. F1B46430 16324 0560 00 1 65463 CP8000 LDQ SCRIPL+2,1 THIS ARGUMENT OF A SUBPROGRAM IS NOT A F1B46440 16325 -0600 00 0 05605 STQ G+1 SUBSCRIPTED VARIABLE. TEST WHETHER IT IS A F1B46450 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 145 * SECTION ONE PASS TWO * RECORD 9F14 * 16326 -0754 00 0 00000 PXD ,0 SOURCE LANGUAGE FIXED POINT VARIABLE. F1B46460 16327 -0763 00 0 00006 LGL 6 F1B46470 16330 0340 00 0 05140 CAS L(H) TEST FIRST CHARACTER FOR I,J,K,L,M,N F1B46480 16331 0340 00 0 05143 CAS L(O) F1B46490 16332 1 00000 0 16223 TXI CP5180,0,0 NOT FIXED POINT BEGINNING. F1B46500 16333 1 00000 0 16223 TXI CP5180,0,0 F1B46510 16334 -0754 00 0 00000 PXD ,0 F1B46520 BINARY CARD NO. 9F140195 16335 -0763 00 0 00006 LGL 6 TEST SECOND CHARACTER FOR ( WHICH MEANS F1B46530 16336 0402 00 0 05106 SUB OPEN FIXED POINT CONSTANT. F1B46540 16337 0100 00 0 16223 TZE CP5180 DO NOT ENTER IN FORVAL. F1B46550 16340 0500 00 0 05610 CLA LEFT+2 TEST WHETHER THIS FUNCTION IS WITHIN AN F1B46560 16341 0402 00 0 05147 SUB IFSYM2 IF(...) STATEMENT. F1B46570 16342 0100 00 0 16223 TZE CP5180 DO NOT ENTER IN FORVAL. F1B46580 16343 0500 00 0 05556 CLA CALLNM ALL TEST SATISFIED, PREPARE TO ENTER THE F1B46590 16344 0767 00 0 00022 ALS 18 FIRST INTERNAL FORMULA NUMBER AND THE NAME F1B46600 16345 0601 00 0 05604 STO G OF THE VARIABLE IN FORVAL. F1B46610 16346 -0634 00 1 16352 SXD CP8001,1 SAVE IR1. F1B46620 16347 0074 00 1 04405 TSX TET00,1 MAKE FORVAL TABLE ENTRY. F1B46630 16350 0 00000 0 00006 6 F1B46640 16351 -0534 00 1 16352 LXD CP8001,1 RELOAD IR1. F1B46650 16352 1 00000 0 16223 CP8001 TXI CP5180,0,** F1B46660 F1B46670 ADDRESS COMPLETION SUBROUTINE. F1B46680 USING INFORMATION IN SCRIPL TABLE THIS ROUTINE FORMS WORDS 3 F1B46690 AND 4 ( SYMBOL AND ADDEND-TAG WORDS) FOR NEXT CIT ENTRY. F1B46700 THESE WORDS ARE PLACED IN CW+2 AND CW+3. F1B46710 F1B46720 16353 0500 00 0 05606 AC0M60 CLA LEFT ENTRY POINT FROM END OF SEGMENT ROUTINE. F1B46730 16354 0601 00 0 65445 STO TAGWRD MOVE CONTENTS OF LEFT WORDS TO WORKING F1B46740 16355 0500 00 0 05607 CLA LEFT+1 STORAGE FOR THIS SUBROUTINE. F1B46750 16356 0601 00 0 65446 STO OPWORD F1B46760 16357 0500 00 0 05610 CLA LEFT+2 F1B46770 16360 0601 00 0 65447 STO SYMWRD F1B46780 16361 0020 00 0 16370 TRA AC0060 F1B46790 16362 0500 00 1 65461 AC0000 CLA SCRIPL,1 ENTRY POINT FROM COMPILER ROUTINE. F1B46800 BINARY CARD NO. 9F140196 16363 0601 00 0 65445 STO TAGWRD F1B46810 16364 0500 00 1 65462 CLA SCRIPL+1,1 MOVE SCRIPL TABLE ENTRY TO WORKING STORAGE.F1B46820 16365 0601 00 0 65446 STO OPWORD F1B46830 16366 0500 00 1 65463 CLA SCRIPL+2,1 F1B46840 16367 0601 00 0 65447 STO SYMWRD F1B46850 16370 -0500 00 0 65445 AC0060 CAL TAGWRD GET TAGS IF ANY F1B46860 16371 -0634 00 2 16477 SXD ACXR2,2 SAVE IR2 F1B46870 16372 -0320 00 0 06216 ANA MASK1 EXTRACT TAGS IN ACC. F1B46880 16373 -0760 00 0 00001 PBT SUBSCRIPTED OR NON-SUBSCRIPTED... F1B46890 16374 0020 00 0 16456 TRA AC0540 SUBSCRIPTED F1B46900 16375 -0754 00 0 00000 PXD 0,0 NON-SUBSCRIPTED SYMBOL F1B46910 16376 0560 00 0 65447 LDQ SYMWRD GET SYMBOL AND TEST FOR LEVEL NUMBER OR F1B46920 16377 -0763 00 0 00001 LGL 1 VARIABLE NAME. F1B46930 16400 0760 00 0 00001 LBT F1B46940 16401 0162 00 0 16447 TQP AC0460 SYMBOL IS SOME LEVEL NUMBER S(K). F1B46950 16402 -0763 00 0 00013 LGL 11 NON-SUBSCRIPTED EX/INTERNAL VARIABLE F1B46960 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 146 * SECTION ONE PASS TWO * RECORD 9F14 * 16403 0402 00 0 06136 SUB L(A() IS THIS A FLO PT CONSTANT F1B46970 16404 0100 00 0 16445 TZE AC0410 YES F1B46980 16405 0400 00 0 06136 ADD L(A() NO F1B46990 16406 0402 00 0 06140 SUB L(I() IS THIS A FIX PT CONSTANT F1B47000 16407 0100 00 0 16440 TZE AC0390 YES F1B47010 16410 0400 00 0 06140 ADD L(I() NO F1B47020 BINARY CARD NO. 9F140197 16411 0402 00 0 06137 SUB L(H() IS THIS A HOLLERITH FIELD F1B47030 16412 0100 00 0 16436 TZE AC0350 YES F1B47040 16413 0560 00 0 65446 LDQ OPWORD * NON-SUBSCRIPTED EXTERANL VARIABLE F1B47050 16414 -0763 00 0 00015 LGL 13 IS THIS A DUMMY VARIABLE F1B47060 16415 0162 00 0 16433 TQP AC0340 NO, FSIND BIT=0 F1B47070 16416 0763 00 0 00017 LLS 15 YES,FSIND BIT=1 F1B47080 16417 0760 00 0 00006 COM F1B47090 16420 0402 00 0 05121 SUB L(1) FORM ADDEND FOR ARGUMENT ADDRESS. F1B47100 16421 0734 00 2 00000 PAX 0,B F1B47110 16422 -0754 00 2 00000 PXD 0,B F1B47120 16423 0602 00 0 65444 SLW CW+3 STORE ARGUMENT BUFFER RELATIVE ADDRESS F1B47130 16424 -0534 00 2 03746 LXD BK,B F1B47140 16425 -0500 00 2 60635 CAL FORSUB-1,2 F1B47150 16426 -0320 00 0 05117 ANA MASK2 EXTRACT FUNCTION STATEMENT TYPE F1B47160 16427 -0501 00 0 06171 ORA P( FORM 4(I F1B47170 16430 0602 00 0 65443 AC0320 SLW CW+2 F1B47180 16431 -0534 00 2 16477 AC0330 LXD ACXR2,2 RELOAD IR2 F1B47190 16432 0020 00 4 00001 TRA 1,C RETURN F1B47200 16433 0600 00 0 65444 AC0340 STZ CW+3 * NON-SUBSCRIPTED, REAL VARIABLE F1B47210 16434 -0500 00 0 65447 CAL SYMWRD F1B47220 16435 0020 00 0 16430 TRA AC0320 F1B47230 16436 -0500 00 0 06211 AC0350 CAL ADSPOP * HOLLERITH FIELD F1B47240 BINARY CARD NO. 9F140198 16437 0020 00 0 16441 TRA AC0420 F1B47250 16440 0500 00 0 06167 AC0390 CLA I( * FIX PT. CONSTANT, 2) ADDR F1B47260 16441 0601 00 0 65443 AC0420 STO CW+2 F1B47270 16442 -0773 00 0 00006 RQL 6 F1B47280 16443 -0600 00 0 65444 AC0450 STQ CW+3 F1B47290 16444 0020 00 0 16431 TRA AC0330 GO TO COMMON EXIT. F1B47300 16445 0500 00 0 06170 AC0410 CLA A( * FLO PT. CONSTANT, 3) ADDR F1B47310 16446 0020 00 0 16441 TRA AC0420 F1B47320 LEVEL NUMBER F1B47330 16447 -0763 00 0 00043 AC0460 LGL 35 SYMBOL IS SOME S(K) F1B47340 16450 0734 00 2 00000 PAX ,2 F1B47350 16451 -0500 00 2 71545 CAL CPBETA,2 F1B47360 16452 -0320 00 0 06216 ANA MASK1 GET THE PREPARED ADDEND FROM BETA F1B47370 16453 0602 00 0 65444 SLW CW+3 F1B47380 16454 -0500 00 0 22240 CAL ARERAS PUT IN AN ADDRESS OF 1) F1B47390 16455 0020 00 0 16430 TRA AC0320 F1B47400 SUBSCRIPTED VARIABLE F1B47410 16456 0602 00 0 65445 AC0540 SLW TAGWRD F1B47420 16457 0560 00 0 65445 LDQ TAGWRD F1B47430 16460 -0754 00 0 00000 PXD ,0 CLEAR AC. F1B47440 16461 -0763 00 0 00014 LGL 12 I-TAU TAGS TO AC. F1B47450 16462 0602 00 0 65444 SLW CW+3 STORE FOR NEXT CIT ENTRY. F1B47460 16463 0162 00 0 16500 AC0990 TQP AC1000 THERE IS AN I-TAU TAG FOR CURRENT CIT. F1B47470 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 147 * SECTION ONE PASS TWO * RECORD 9F14 * 16464 0600 00 0 65444 STZ CW+3 F1B47480 BINARY CARD NO. 9F140199 16465 -0754 00 0 00000 PXD ,0 REPLACE NULL TAG. F1B47490 16466 0602 00 0 65450 SLW TAGPRT SAVE FOR LATER USE. F1B47500 16467 -0763 00 0 00001 LGL 1 F1B47510 16470 -0754 00 0 00000 PXD ,0 CLEAR AC. F1B47520 16471 -0763 00 0 00010 LGL 8 SIGMA TAG TO AC. F1B47530 16472 0400 00 0 04176 ADD SIG1IX-1 FORM BASE OF TABLE + SIGMA TAG. F1B47540 16473 0621 00 0 16474 STA *+1 F1B47550 16474 -0500 00 0 00000 CAL ** GET RELATIVE ADDRESS. F1B47560 16475 -0602 00 0 65444 ORS CW+3 ADD RELATIVE ADDRESS TO I-TAU TAG. F1B47570 16476 -0500 00 0 65447 CAL SYMWRD VARIABLE NAME FOR NEXT CIT ENTRY. F1B47580 16477 1 00000 0 16430 ACXR2 TXI AC0320,0,** GO STORE AC AND EXIT. F1B47590 F1B47600 16500 -0534 00 2 22241 AC1000 LXD ARGCTR,2 TEST WHETHER THIS SUBSCRIPTED VARIABLE IS F1B47610 16501 -3 00000 2 16511 TXL AC1050,2,0 WITHIN AN ARITHMETIC FUNCTION. (23)F1B47620 16502 0074 00 4 04504 ER0071 TSX DIAG,4 YES, THIS IS IN ERROR, GO TO DIAGNOSTIC. F1B47630 16503 DUP 1,6 (23)F1B47640 16503 0 00000 0 00000 PZE (UNUSED STORAGE) (23)F1B47650 16511 -0500 00 0 03734 AC1050 CAL EIFNO PREPARE TO MAKE FORTAG (23)F1B47700 16512 -0320 00 0 06216 ANA MASK1 ENTRY.. CONSISTS OF IFN (23)F1B47710 BINARY CARD NO. 9F140200 16513 -0501 00 0 65444 ORA CW+3 IN THE DECREMENT AND TAU TABLE (23)F1B47720 16514 0602 00 0 05604 SLW G POINTER IN THE ADDRESS. (23)F1B47730 16515 0634 00 1 16517 SXA AC1070,1 SAVE IR1 (23)F1B47740 16516 0074 00 2 20736 TSX CFTAG,2 (23)F1B47750 16517 0774 00 1 00000 AC1070 AXT **,1 RELOAD IR1 F1B47760 16520 0560 00 0 65445 AC1080 LDQ TAGWRD RESTORE AC AND MQ TO PREVIOUS CONTENTS. F1B47770 16521 -0754 00 0 00000 PXD ,0 F1B47780 16522 -0763 00 0 00014 LGL 12 F1B47790 16523 0020 00 0 16466 TRA AC0990+3 RETURN TO ORIGINAL CODING. F1B47800 F1B47810 F1B47820 16524 0602 00 0 65442 COMPM4 SLW CW+1 STORE SYMBOLIC OPERATION CODE. F1B47830 16525 0074 00 4 16362 COMPM3 TSX AC0000,4 F1B47840 16526 0020 00 0 16530 TRA COMP F1B47850 16527 0602 00 0 65442 COMPM2 SLW CW+1 STORE SYMBOLIC OPERATION CODE. F1B47860 16530 0074 00 4 04251 COMP TSX CIT00,C COMPILE CONTENTS OF CW,CW+1,CW+2,CW+3. F1B47870 16531 0 65442 0 65441 PZE CW,,CW+1 LOC,,OP-DEC F1B47880 16532 0 65444 0 65443 PZE CW+2,,CW+3 ADR,,RA-TAG F1B47890 16533 0600 00 0 65441 STZ CW CLEAR INTERNAL FORMULA NUMBER IF ANY. F1B47900 16534 0020 00 2 00001 TRA 1,B RETURN TO CALLER. F1B47910 F1B47920 16535 0074 00 4 04251 COMP0A TSX CIT00,4 F1B47930 16536 0 06271 0 65441 PZE CW,,L(SXD) LOC,,OP-DEC F1B47940 16537 0 06156 0 06172 PZE O(,,D4A4 ADR,,RA-TAG F1B47950 16540 0020 00 0 20616 TRA PCH5 GO PUT IN LDQ6)+5 STQ2 IF DP OR COMPLEX $F1B47960 F1B47970 BINARY CARD NO. 9F140201 16541 0074 00 4 04251 COMP0B TSX CIT00,4 COMPILE SXD 7(,4 F1B47980 16542 0 06271 0 65441 PZE CW,,L(SXD) F1B47990 16543 0 05124 0 06173 PZE X(,,L(4) F1B48000 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 148 * SECTION ONE PASS TWO * RECORD 9F14 * 16544 0020 00 0 20616 TRA PCH5 GO PUT IN LDQ6)+5 STQ2 IF DP OR COMPLEX $F1B48010 F1B48020 16545 0074 00 4 04251 COMP0C TSX CIT00,4 F1B48030 16546 0 06300 0 05120 PZE L(0),,L(XCA) LOC,,OP-DEC F1B48040 16547 0 05120 0 05120 PZE L(0),,L(0) ADR,,RA-TAG F1B48050 16550 0020 00 2 00001 TRA 1,2 F1B48060 F1B48070 SUBROUTINE TO COMPILE TSX NAME OF FUNCTION,4 F1B48080 16551 0074 00 4 04251 COMTSX TSX CIT00,4 F1B48090 16552 0 06276 0 05120 L(0),,L(TSX) F1B48100 16553 0 05124 0 65443 CW+2,,L(4) F1B48110 16554 0020 00 2 00001 TRA 1,2 RETURN TO CALLER. F1B48120 F1B48130 F1B48140 DOUBLE PRECISION ARITHMETIC COMPILER ROUTINE. F1B48150 F1B48160 F1B48170 16555 0600 00 0 20316 CP000D STZ TRAPCL RESET INDICATOR OF LAST ROUTINE CALLED F1B48180 16556 -0634 00 0 71545 SXD CPBETA,0 F1B48190 16557 -0534 00 1 22237 CP005D LXD 3LBAR,1 GET LENGTH OF REMAINING SCRIPL TABLE. F1B48200 16560 0500 00 1 65456 CP013D CLA SCRIPL-3,1 EXTRACT CURRENT S(I) F1B48210 16561 0734 00 2 00000 CP014D PAX ,2 F1B48220 16562 0500 00 2 71545 CLA CPBETA,2 F1B48230 16563 0622 00 0 22254 STD PHI(I) STO ERAS. REL. ADD. IN PHI (I) F1B48240 16564 -0320 00 0 05117 ANA MASK2 F1B48250 16565 0734 00 2 00000 CP018D PAX ,2 SAVE LENGTH OF SEGMENT IN DECREMENT F1B48260 16566 -0634 00 2 16611 SXD CP040D,2 FOR LATER BUMPING AND TESTING F1B48270 BINARY CARD NO. 9F140202 16567 0737 00 4 00000 PAC 0,4 F1B48280 16570 -0634 00 4 16571 SXD *+1,4 F1B48290 16571 1 00000 1 16572 TXI *+1,1,.. MOVE XA TO 1ST ELEMENT OF CURRENT S(I) F1B48300 16572 -0634 00 1 22237 SXD 3LBAR,1 STORE LEVEL FOR ESR00 F1B48310 16573 0560 00 1 65462 LDQ SCRIPL+1,1 EXAMINE OP1 (S(I)) 29,30,31,32 F1B48320 16574 -0763 00 0 00036 LGL 30 F1B48330 16575 0760 00 0 00001 LBT F1B48340 16576 0020 00 0 16600 TRA CP031D OP1 (S(I)) 29 = 0 LINKAGE NOT POSSIBLE F1B48350 16577 0162 00 0 16606 TQP CP037D OP1 (S(I)) 30 = 0 NO SUB EXPRESS TO STO F1B48360 16600 0760 00 0 00141 CP031D SLN 1 OP1 (S(I)) 29 = 0 OR OP1 (S(I)) 30 = 1, SO F1B48370 16601 -0773 00 0 00001 CP032D RQL 1 SET STORE LITE THEN DECIDE IS AC OR MQ F1B48380 16602 0162 00 0 16604 TQP CP035D OP1 (S(I)) 31 = 0, SO SET STO LITE F1B48390 16603 0760 00 0 00142 SLN 2 OP1 (S(I)) 31 = 1, SO SET STQ LITE 2 ON F1B48400 16604 -0773 00 0 00001 CP035D RQL 1 F1B48410 16605 0020 00 0 16607 TRA CP038D F1B48420 16606 -0773 00 0 00002 CP037D RQL 2 F1B48430 16607 0162 00 0 16613 CP038D TQP CP042D TEST OP1 (S(I)) 32 F1B48440 16610 -0760 00 0 00144 SLT 4 OP1 (S(I)) 32 = 1, SO SET FLPTSW F1B48450 16611 3 00000 0 00000 CP040D TXH 0,0,.. ACTS AS NOP,WITH A USEFUL DECREMENT F1B48460 16612 0020 00 0 16737 TRA CP043D F1B48470 F1B48480 ROUTINE TO COMPILE FIXED POINT + - * / WHEN IN D.P. OR C.A. F1B48490 MODES. OP(1) SPECIAL CASE F1B48500 F1B48510 16613 0760 00 0 00144 CP042D SLN 4 LITE 4 ON FOR FIXED F1B48520 16614 -0754 00 0 00000 PXD 0,0 F1B48530 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 149 * SECTION ONE PASS TWO * RECORD 9F14 * BINARY CARD NO. 9F140203 16615 0560 00 1 65462 LDQ SCRIPL+1,1 GET OP WORD OF FIRST ENTRY OF LEVEL F1B48540 16616 -0763 00 0 00006 LGL 6 F1B48550 16617 0340 00 0 05144 CAS SPECOP COMPARE WITH $ F1B48560 16620 0020 00 0 16664 TRA CP096F OF IS * OR ** F1B48570 16621 1 77775 1 17147 TXI CP204D,1,-3 OF IS $ F1B48580 16622 0402 00 0 05112 SUB 11Z OP IS + OR - F1B48590 16623 0100 00 0 16652 TZE CP076F F1B48600 16624 -0763 00 0 00035 LGL 29 F1B48610 16625 0162 00 0 16627 TQP CP113F 35=0 NO LINKAGE F1B48620 16626 0020 00 0 16633 TRA CP054F LINKAGE, TEST END OF SEGMENT F1B48630 16627 -0500 00 0 06227 CP113F CAL L(CLA) NO LINK COMPILE CLA F1B48640 16630 0602 00 0 65442 CP168F SLW CW+1 F1B48650 16631 0074 00 4 17774 TSX ACDP00,4 PREPARE CW+2, CW+3 F1B48660 16632 0074 00 2 16530 TSX COMP,2 TAKES TO CIT00 AND COMPILES F1B48670 F1B48680 16633 -0534 00 2 16611 CP054F LXD CP040D,2 GET SEGMENT LENGTH F1B48690 16634 1 00003 2 16635 TXI *+1,2,3 BUMP IT F1B48700 16635 -3 00000 2 17541 TXL ES000D,2,0 TEST END OF SEGMENT F1B48710 16636 -0634 00 2 16611 SXD CP040D,2 SAVE SEGMENT LENGTH LEFT F1B48720 16637 1 77775 1 16640 TXI *+1,1,-3 GET NEXT ELEMENT OF LEVEL F1B48730 16640 -0754 00 0 00000 PXD 0,0 F1B48740 16641 0560 00 1 65462 LDQ SCRIPL+1,1 F1B48750 16642 -0763 00 0 00006 LGL 6 F1B48760 BINARY CARD NO. 9F140204 16643 0340 00 0 05116 CAS STAR F1B48770 16644 0020 00 0 16705 TRA CP120F OP IS / F1B48780 16645 0020 00 0 16724 TRA CP172F OP IS * F1B48790 16646 0402 00 0 05112 SUB 11Z OP IS + OR - F1B48800 16647 0100 00 0 16662 TZE CP088F OP IS - F1B48810 16650 -0500 00 0 06220 CAL L(ADD) OP IS + F1B48820 16651 0020 00 0 16630 TRA CP168F GO COMPILE ALL F1B48830 F1B48840 16652 -0763 00 0 00035 CP076F LGL 29 F1B48850 16653 0162 00 0 16660 TQP CP085F 35 = 0, NO LINKAGE F1B48860 16654 0074 00 4 04251 TSX CIT00,4 COMPILE CHS F1B48870 16655 0 06226 0 05120 PZE L(0),,L(CHS) F1B48880 16656 0 05120 0 05120 PZE L(0),,L(0) F1B48890 16657 0020 00 0 16633 TRA CP054F F1B48900 16660 -0500 00 0 06231 CP085F CAL L(CLS) F1B48910 16661 0020 00 0 16630 TRA CP168F F1B48920 F1B48930 16662 -0500 00 0 06270 CP088F CAL L(SUB) OP(4) IS - F1B48940 16663 0020 00 0 16630 TRA CP168F GO COMPILE SUB F1B48950 F1B48960 16664 0162 00 0 16666 CP096F TQP *+2 OP(1) IS * OR ** F1B48970 16665 0020 00 0 17404 TRA CP414D CASE OF ** F1B48980 16666 -0763 00 0 00035 LGL 29 F1B48990 16667 0760 00 0 00143 SLN 3 F1B49000 16670 0760 00 0 00001 LBT F1B49010 BINARY CARD NO. 9F140205 16671 0020 00 0 16674 TRA CP105F LEAVE 3 ON F1B49020 16672 -0760 00 0 00143 SLT 3 BIT 34 = 1 SO TURN 3 OFF F1B49030 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 150 * SECTION ONE PASS TWO * RECORD 9F14 * 16673 0761 00 0 00000 NOP F1B49040 16674 0162 00 0 16676 CP105F TQP CP107F TEST BIT 35 F1B49050 16675 0020 00 0 16633 TRA CP054F LECEL IS LINKED F1B49060 16676 -0760 00 0 00143 CP107F SLT 3 TEST 3 FOR AC OR MQ F1B49070 16677 0020 00 0 16703 TRA *+4 F1B49080 16700 0760 00 0 00143 SLN 3 F1B49090 16701 -0500 00 0 06227 CAL L(CLA) COMPILE CLA F1B49100 16702 0020 00 0 16630 TRA CP168F F1B49110 16703 -0500 00 0 06245 CAL L(LDQ) COMPILE LDQ F1B49120 16704 0020 00 0 16630 TRA CP168F F1B49130 F1B49140 16705 -0760 00 0 00143 CP120F SLT 3 F1B49150 16706 0020 00 0 16712 TRA *+4 F1B49160 16707 0074 00 4 04251 TSX CIT00,4 COMPILE LRS 35 F1B49170 16710 0 06247 0 05120 PZE L(0),,L(LRS) F1B49180 16711 0 06164 0 05120 PZE L(0),,DEC35 F1B49190 16712 0074 00 4 17774 CP145D TSX ACDP00,4 PREPARE CW+2, CW+3 F1B49200 16713 -0500 00 0 06236 CAL L(DVP) F1B49210 16714 0074 00 2 16527 TSX COMPM2,2 F1B49220 16715 0074 00 4 04251 TSX CIT00,4 COMPILE CLM F1B49230 16716 0 06230 0 05120 PZE L(0),,L(CLM) F1B49240 BINARY CARD NO. 9F140206 16717 0 05120 0 05120 PZE L(0),,L(0) F1B49250 16720 0074 00 4 04251 TSX CIT00,4 COMPILE LLS 18 F1B49260 16721 0 06246 0 05120 PZE L(0),,L(LLS) F1B49270 16722 0 06161 0 05120 PZE L(0),,DEC18 F1B49280 16723 0020 00 0 16633 TRA CP054F F1B49290 16724 -0760 00 0 00143 CP172F SLT 3 F1B49300 16725 0020 00 0 16727 TRA *+2 F1B49310 16726 0074 00 2 16545 TSX COMP0C,2 F1B49320 16727 0760 00 0 00143 SLN 3 F1B49330 16730 0074 00 4 17774 TSX ACDP00,4 PREPARE CW+2, CW+3 F1B49340 16731 -0500 00 0 06251 CAL L(MPY) F1B49350 16732 0074 00 2 16527 TSX COMPM2,2 F1B49360 16733 0074 00 4 04251 TSX CIT00,4 F1B49370 16734 0 06221 0 05120 PZE L(0),,L(ALS) F1B49380 16735 0 06160 0 05120 PZE L(0),,DEC17 F1B49390 16736 0020 00 0 16633 TRA CP054F F1B49400 F1B49410 ROUTINE FOR FLOATING POINT + - * / WHEN IN D.P. OR C.A. MODESF1B49420 F1B49430 COMPILATION OF BOTH DP AND CA SEGMENT OP(1) FOR + - * F1B49440 F1B49450 16737 0074 00 4 17774 CP043D TSX ACDP00,4 PREPARE CW+2, CW+3, DPCW F1B49460 16740 -0754 00 0 00000 PXD 0,0 F1B49470 16741 0560 00 1 65462 LDQ SCRIPL+1,1 PLACE OP1 (S(I)) IN MQ F1B49480 16742 -0763 00 0 00006 LGL 6 F1B49490 16743 0340 00 0 05144 CAS SPECOP WHAT OPERATION F1B49500 16744 0020 00 0 16761 TRA CP096D * OR ** F1B49510 BINARY CARD NO. 9F140207 16745 1 77775 1 17147 TXI CP204D,1,-3 $ , GET NEXT LEVEL AND PROCEED F1B49520 16746 0402 00 0 05112 SUB 11Z OP IS + OR - F1B49530 16747 0100 00 0 16753 TZE CP076D OP IS - F1B49540 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 151 * SECTION ONE PASS TWO * RECORD 9F14 * 16750 -0763 00 0 00035 LGL 29 OP1 (S(I)) = + TEST LINKAGE BIT 35 F1B49550 16751 0162 00 0 16776 TQP CP113D OP1 (S(I)) 35 = 0 NO LINKAGE COMPILE CLA F1B49560 16752 0020 00 0 17001 TRA CP054D LINKAGE, SEE IF END OF SEGMENT F1B49570 16753 -0763 00 0 00035 CP076D LGL 29 OP IS -, SO TEST LINKAGE BIT 35 F1B49580 16754 0162 00 0 16757 TQP CP085D NO LINK SO SKIP F1B49590 16755 0074 00 2 20156 TSX CPDCHS,2 COMPILE SEQUENCE FOR BOTH DP AND CA CHS F1B49600 16756 0020 00 0 17001 TRA CP054D SINCE LINKED IN AC F1B49610 16757 0074 00 2 20070 CP085D TSX CPDCLS,2 COMPILE SEQUENCE FOR BOTH DP AND CA CLS F1B49620 16760 0020 00 0 17001 TRA CP054D F1B49630 F1B49640 16761 0162 00 0 16763 CP096D TQP *+2 OP IS * OR ** F1B49650 16762 0020 00 0 17404 TRA CP414D OP IS ** F1B49660 16763 -0763 00 0 00035 LGL 29 OP1 (S(I)) = * F1B49670 16764 0760 00 0 00143 SLN 3 TURN LITE 3 ON NEEDS MULTIPLIER IN MQ F1B49680 16765 0760 00 0 00001 LBT TEST OP1 (S(I)) 34 1= PREV LEVEL TYPE AC F1B49690 16766 0020 00 0 16771 TRA CP105D OP1 (S(I)) 34 = 0, SO LEAVE LITE 3 ON F1B49700 16767 -0760 00 0 00143 SLT 3 OP1 (S(I)) 34 = 1, SO TURN LITE 3 OFF F1B49710 16770 0761 00 0 00000 NOP F1B49720 16771 0162 00 0 16773 CP105D TQP CP107D BIT 35 = 0 F1B49730 16772 0020 00 0 17001 TRA CP054D OP1 (S(I)) 35 = 1, SO GO MODIFY J F1B49740 BINARY CARD NO. 9F140208 16773 -0760 00 0 00143 CP107D SLT 3 F1B49750 16774 0020 00 0 17000 TRA *+4 F1B49760 16775 0760 00 0 00143 SLN 3 EL1 (S(II) TO ACC F1B49770 16776 0074 00 2 20052 CP113D TSX CPDCLA,2 COMPILE SEQUENCE FOR BOTH DP AND CA CLA F1B49780 16777 0020 00 0 17001 TRA CP054D F1B49790 17000 0074 00 2 20123 TSX CPDLDQ,2 COMPILE SEQUENCE FOR BOTH DP AND CA LDQ F1B49800 F1B49810 COMPILATION OF DP SEGMENT OP(2) THRU OP(N) FOR + - * / F1B49820 F1B49830 17001 -0534 00 2 16611 CP054D LXD CP040D,2 OP1 (S(I)) 35 = 1 OBTAIN SEGMENT LENGTH F1B49840 17002 1 00003 2 17003 TXI *+1,2,3 BUMP IT F1B49850 17003 -3 00000 2 17541 TXL ES000D,2,0 GO TO END-OF-SEGMENT SBRTN F1B49860 17004 -0634 00 2 16611 SXD CP040D,2 STORE CURRENT SEGMENT LENGTH F1B49870 17005 1 77775 1 17006 TXI *+1,1,-3 F1B49880 17006 0074 00 4 17774 TSX ACDP00,4 PREPARE CW+2, CW+3, DPCW F1B49890 17007 0560 00 1 65462 LDQ SCRIPL+1,1 PLACE OPJ (S(I)) IN MQ F1B49900 17010 0500 00 0 04521 CLA MODECL F1B49910 17011 0402 00 0 05141 SUB L(I) TEST FOR COMPLEX ARITHMETIC F1B49920 17012 0100 00 0 17040 TZE CP059I GO TO COMPLEX ROUTINE F1B49930 17013 -0754 00 0 00000 PXD 0,0 F1B49940 17014 -0763 00 0 00006 LGL 6 F1B49950 17015 0340 00 0 05116 CAS STAR F1B49960 17016 0020 00 0 17026 TRA CP120D OPJ (S(I)) = / F1B49970 17017 0020 00 0 17032 TRA CP172D OPJ (S(I)) = * F1B49980 17020 0402 00 0 05112 SUB 11Z F1B49990 BINARY CARD NO. 9F140209 17021 0100 00 0 17024 TZE CP088D OPJ (S(I)) = - F1B50000 17022 0074 00 2 20225 TSX CPDFAD,2 GO COMPILE DP FAD SEQUENCE F1B50010 17023 0020 00 0 17001 TRA CP054D GO TO NEXT ELEMENT IN SEGMENT. F1B50020 F1B50030 17024 0074 00 2 20233 CP088D TSX CPDFSB,2 COMPILE SEQUENCE FOR DP FSB F1B50040 17025 0020 00 0 17001 TRA CP054D GO TO NEXT ELEMENT IN SEGMENT F1B50050 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 152 * SECTION ONE PASS TWO * RECORD 9F14 * F1B50060 17026 -0760 00 0 00143 CP120D SLT 3 OPJ (S(I)) = / DIVIDEND MUST BE IN AC F1B50070 17027 0074 00 2 20210 TSX CPMQAC,2 COMPILE SEQUENCE TO MAVE MQ TO AC F1B50080 17030 0074 00 2 20247 TSX CPDFDP,2 COMPILE SEQUENCE FOR DP FDP F1B50090 17031 0020 00 0 17001 TRA CP054D LEAVE THREE OFF FOR RESULT IS IN MQ F1B50100 F1B50110 17032 -0760 00 0 00143 CP172D SLT 3 OPJ(S(I))=* F1B50120 17033 0020 00 0 17035 TRA *+2 PREVIOUS RESULT IN MQ F1B50130 17034 0074 00 2 20173 TSX CPACMQ,2 COMPILE SEQUENCE TO MOVE AC TO MQ F1B50140 17035 0760 00 0 00143 SLN 3 TURN THREE ON BECAUSE RESULT IN AC F1B50150 17036 0074 00 2 20241 TSX CPDFMP,2 COMPILE SEQUENCE FOR DP FMP F1B50160 17037 0020 00 0 17001 TRA CP054D F1B50170 F1B50180 COMPILATION OF CA SEGMENT OP(2) THRU OP(N) FOR + - * / F1B50190 F1B50200 17040 -0763 00 0 00006 CP059I LGL 6 F1B50210 17041 0340 00 0 05116 CAS STAR F1B50220 17042 0020 00 0 17135 TRA CP120I F1B50230 17043 0020 00 0 17141 TRA CP172I F1B50240 17044 -0534 00 2 16611 LXD CP040D,2 GET SEGMENT LENGTH F1B50250 17045 0634 00 2 17066 SXA CP054I,2 SAVE IT FOR LATER BUMPING AND TESTING F1B50260 17046 0634 00 2 17124 SXA CP154I,2 F1B50270 BINARY CARD NO. 9F140210 17047 0634 00 1 17106 SXA CP160I-1,1 SAVE IR(1) TO MOVE THROUGH SCRIPL AGAIN F1B50280 17050 0734 00 2 00000 PAX 0,2 SAVE PLUS OR MINUS F1B50290 17051 0074 00 4 04251 TSX CIT00,4 COMPILE CLA REAL PART F1B50300 17052 0 06227 0 05120 PZE L(0),,L(CLA) F1B50310 17053 0 05120 0 06171 PZE P(,,L(0) F1B50320 17054 0754 00 2 00000 PXA 0,2 RETRIEVE + OR - F1B50330 17055 0402 00 0 05112 CP087I SUB 11Z TEST F1B50340 17056 0100 00 0 17063 TZE CP088I OP IS - F1B50350 17057 0074 00 4 04251 TSX CIT00,4 OP IS +, COMPILE FAD F1B50360 17060 0 06237 0 05120 PZE L(0),,L(FAD) F1B50370 17061 0 65444 0 65443 PZE CW+2,,CW+3 F1B50380 17062 0020 00 0 17066 TRA CP054I F1B50390 17063 0074 00 4 04251 CP088I TSX CIT00,4 COMPILE FSB F1B50400 17064 0 06242 0 05120 PZE L(0),,L(FSB) F1B50410 17065 0 65444 0 65443 PZE CW+2,,CW+3 F1B50420 17066 0774 00 2 00000 CP054I AXT 0,2 PICK UP SEGMENT LENGTH F1B50430 17067 1 00003 2 17070 TXI *+1,2,3 BUMP IT F1B50440 17070 -3 00000 2 17100 TXL CP254I,2,0 TIME TO START IMAG. F1B50450 17071 0634 00 2 17066 SXA CP054I,2 SAVE LENGTH AGAIN F1B50460 17072 1 77775 1 17073 TXI *+1,1,-3 MOVE TO NEXT ELEMENT F1B50470 17073 0074 00 4 17774 TSX ACDP00,4 GET NEXT ADDRESS. F1B50480 17074 0560 00 1 65462 LDQ SCRIPL+1,1 GET OP(N) F1B50490 BINARY CARD NO. 9F140211 17075 -0754 00 0 00000 PXD 0,0 PREPARE TO TEST FOR + OR - F1B50500 17076 -0763 00 0 00006 LGL 6 F1B50510 17077 0020 00 0 17055 TRA CP087I F1B50520 17100 0074 00 4 04251 CP254I TSX CIT00,4 STORE REAL RESULT F1B50530 17101 0 06264 0 05120 PZE L(0),,L(STO) F1B50540 17102 0 05120 0 06171 PZE P(,,L(0) F1B50550 17103 0074 00 4 04251 TSX CIT00,4 START IMAGINARY PART F1B50560 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 153 * SECTION ONE PASS TWO * RECORD 9F14 * 17104 0 06227 0 05120 PZE L(0),,L(CLA) F1B50570 17105 0 06205 0 06171 PZE P(,,DECMI1 F1B50580 17106 0774 00 1 00000 AXT 0,1 RESTORE IR(1) TO OP(2) F1B50590 17107 0074 00 4 17774 CP160I TSX ACDP00,4 PREPARE IMAGINARY ADDRESS F1B50600 17110 0560 00 1 65462 LDQ SCRIPL+1,1 GET OP(N) F1B50610 17111 -0754 00 0 00000 PXD 0,0 TEST FOR + OR - F1B50620 17112 -0763 00 0 00006 LGL 6 F1B50630 17113 0402 00 0 05112 SUB 11Z F1B50640 17114 0100 00 0 17121 TZE CP188I OP IS - F1B50650 17115 0074 00 4 04251 TSX CIT00,4 OP IS +, COMPILE FAD F1B50660 17116 0 06237 0 05120 PZE L(0),,L(FAD) F1B50670 17117 0 20325 0 65443 PZE CW+2,,DPCW F1B50680 17120 0020 00 0 17124 TRA CP154I F1B50690 17121 0074 00 4 04251 CP188I TSX CIT00,4 COMPILE FSB F1B50700 17122 0 06242 0 05120 PZE L(0),,L(FSB) F1B50710 BINARY CARD NO. 9F140212 17123 0 20325 0 65443 PZE CW+2,,DPCW F1B50720 17124 0774 00 2 00000 CP154I AXT 0,2 GET SEGMENT LENGTH F1B50730 17125 1 00003 2 17126 TXI *+1,2,3 BUMP IT F1B50740 17126 -3 00000 2 17131 TXL CP255I,2,0 FINISHED WITH IMAG. F1B50750 17127 0634 00 2 17124 SXA CP154I,2 NO SAVE LENGTH AGAIN F1B50760 17130 1 77775 1 17107 TXI CP160I,1,-3 MOVE THROUGH SCRIPL F1B50770 17131 0074 00 4 04251 CP255I TSX CIT00,4 STORE IMAGINARY RESULT F1B50780 17132 0 06264 0 05120 PZE L(0),,L(STO) F1B50790 17133 0 06205 0 06171 PZE P(,,DECMI1 F1B50800 17134 0020 00 0 17541 TRA ES000D F1B50810 F1B50820 17135 -0760 00 0 00143 CP120I SLT 3 F1B50830 17136 0074 00 2 20210 TSX CPMQAC,2 COMPILE SEQUENCE TO MOVE FROM MQ TO AC F1B50840 17137 0074 00 2 20263 TSX CPIFDP,2 COMPILE SEQUENCE FOR CA FDP F1B50850 17140 0020 00 0 17001 TRA CP054D F1B50860 F1B50870 17141 -0760 00 0 00143 CP172I SLT 3 F1B50880 17142 0020 00 0 17144 TRA *+2 F1B50890 17143 0074 00 2 20173 TSX CPACMQ,2 COMPILE SEQUENCE TO MOVE FROM AC TO MQ. F1B50900 17144 0760 00 0 00143 SLN 3 F1B50910 17145 0074 00 2 20255 TSX CPIFMP,2 COMPILE SEQUENCE FOR CA FMP F1B50920 17146 0020 00 0 17001 TRA CP054D F1B50930 F1B50940 FUNCTION LEVEL F1B50950 FIRST DETERMINE TYPE OF FUNCTION F1B50960 F1B50970 17147 0020 00 0 20576 CP204D TRA P1B00B GO TO PATCH *F1B50980 17150 0760 00 0 00001 LBT TEST OP1(S(I))12 F1B50990 BINARY CARD NO. 9F140213 17151 0162 00 0 17261 TQP CP265D LIB OR OPEN FUNCTION F1B51000 17152 0162 00 0 17524 TQP CP500D FN-FUNCTION F1B51010 17153 -0754 00 0 00000 PXD 0,0 FS-FUNCTION F1B51020 17154 0763 00 0 00017 LLS 15 PUT TYPE NO IN ADD(ACC) F1B51030 17155 -0501 00 0 06171 ORA P( FORM 4...TYPE NO. F1B51040 17156 0602 00 0 65437 SLW ARGORG F1B51050 17157 -0320 00 0 05117 ANA MASK2 F1B51060 17160 -0501 00 0 06173 ORA X( F1B51070 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 154 * SECTION ONE PASS TWO * RECORD 9F14 * 17161 0602 00 0 65440 SLW XRSAVE F1B51080 17162 0600 00 0 20434 STZ COUNT2 F1B51090 17163 0500 00 0 05152 CLA 2E18 F1B51100 17164 0601 00 0 20433 STO COUNT1 F1B51110 17165 -0500 00 1 65460 CAL SCRIPL-1,1 GET FUNCTION NAME F1B51120 17166 0771 00 0 00036 ARS 30 F1B51130 17167 0402 00 0 06131 SUB L(X) AND TEST FOR FIXED POINT BEGINNING F1B51140 17170 -0100 00 0 17172 TNZ *+2 F1B51150 17171 0074 00 4 04504 ERDP02 TSX DIAG,4 F1B51160 17172 0500 00 1 65462 CLA SCRIPL+1,1 F1B51170 17173 0760 00 0 00001 LBT EXAMINE OP2(S(I))35 F1B51180 17174 0020 00 0 17204 TRA CP215D 1ST ARG STORED F1B51190 FIRST ARGUMENT IS IN PSEUDO-AC F1B51200 17175 0500 00 0 06171 CLA P( F1B51210 17176 0601 00 0 65443 STO CW+2 F1B51220 BINARY CARD NO. 9F140214 17177 0600 00 0 65444 STZ CW+3 F1B51230 17200 0500 00 0 06205 CLA DECMI1 F1B51240 17201 0601 00 0 20325 STO DPCW F1B51250 17202 0074 00 2 20327 TSX CPDARG,2 COMPILE SEQUENCE TO MOVE ARGUMENT 1 F1B51260 17203 0020 00 0 17206 TRA CP220D CONTINUE TO ARGUMENT 2 F1B51270 FIRST ARGUMENT IS STORED F1B51280 17204 0074 00 4 17774 CP215D TSX ACDP00,4 PREPARE CW+2, CW+3, DPCW F1B51290 17205 0074 00 2 20327 TSX CPDARG,2 COMPILE SEQUENCE TO MOVE ARGUMENT 1 F1B51300 17206 0600 00 0 65441 CP220D STZ CW CLEAR CW OF IFN IF ANY. F1B51310 17207 -0534 00 2 16611 LXD CP040D,2 F1B51320 17210 1 00006 2 17211 TXI *+1,2,6 F1B51330 17211 -3 00000 2 17236 TXL CP250D,2,0 EXIT IF ONLY ONE ARGUMENT F1B51340 17212 -0634 00 2 16611 SXD CP040D,2 F1B51350 17213 1 77775 1 17214 TXI *+1,1,-3 MOVE TO SECOND ARGUMENT F1B51360 F1B51370 17214 0500 00 1 65462 CLA SCRIPL+1,1 GET OP WORD F1B51380 17215 0760 00 0 00001 LBT F1B51390 17216 0020 00 0 17227 TRA CP230D F1B51400 SECOND ARGUMENT IS IN PSEUDO-MQ F1B51410 17217 0500 00 0 06171 CLA P( F1B51420 17220 0601 00 0 65443 STO CW+2 F1B51430 17221 0500 00 0 06207 CLA DECMI2 F1B51440 17222 0601 00 0 65444 STO CW+3 F1B51450 17223 0500 00 0 20326 CLA DECMI3 F1B51460 17224 0601 00 0 20325 STO DPCW F1B51470 BINARY CARD NO. 9F140215 17225 0074 00 2 20327 TSX CPDARG,2 COMPILE SEQUENCE TO MOVE ARGUMENT 2 F1B51480 17226 0020 00 0 17231 TRA CP235D CONTINUE TO ARGUMENT 3 F1B51490 SECOND ARGUMENT IS STORED F1B51500 17227 0074 00 4 17774 CP230D TSX ACDP00,4 PREPARE CW+2, CW+3, DPCW F1B51510 17230 0074 00 2 20327 TSX CPDARG,2 COMPILE SEQUENCE TO MOVE ARGUMENT 2 F1B51520 F1B51530 17231 -0534 00 2 16611 CP235D LXD CP040D,2 F1B51540 17232 1 00003 2 17233 TXI *+1,2,3 F1B51550 17233 -3 00000 2 17236 TXL CP250D,2,0 EXIT IF ONLY TWO ARGUMENTS F1B51560 17234 -0634 00 2 16611 SXD CP040D,2 F1B51570 ARGUMENTS 3 THRU N ARE ALWAYS STORED F1B51580 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 155 * SECTION ONE PASS TWO * RECORD 9F14 * 17235 1 77775 1 17227 TXI CP230D,1,-3 COMTINUE WITH REST OF ARGUMENTS F1B51590 F1B51600 FINISHED WITH ARGUMENTS F1B51610 17236 -0534 00 1 22237 CP250D LXD 3LBAR,1 F1B51620 17237 -0500 00 1 65463 CAL SCRIPL+2,1 GET NAME OF FUNCTION F1B51630 17240 0602 00 0 65443 SLW CW+2 F1B51640 17241 -0534 00 4 22241 LXD ARGCTR,4 F1B51650 17242 -3 00000 4 17253 TXL CP260D,4,0 F1B51660 WITHIN AN ARITHMETIC STATEMENT FUNCTION F1B51670 17243 0074 00 4 20607 TSX PCH2,4 GO PUT IN LDQ6)+5 STQ2 IF DP OR COMPLEX $F1B51680 17244 0 06271 0 05120 PZE L(0),,L(SXD) F1B51690 17245 0 05124 0 65440 PZE XRSAVE,,L(4) F1B51700 17246 0074 00 2 16551 TSX COMTSX,2 F1B51710 17247 0074 00 4 06437 TSX FLTR00,4 F1B51720 17250 0 06250 0 05120 PZE L(0),,L(LXD) F1B51730 17251 0 05124 0 65440 PZE XRSAVE,,L(4) F1B51740 17252 0020 00 0 17541 TRA ES000D GO TO END-OF-SEGMENT ROUTINE F1B51750 NOT WITHIN AN ARITHMETIC STATEMENT FUNCTION F1B51760 BINARY CARD NO. 9F140216 17253 0074 00 2 16535 CP260D TSX COMP0A,2 COMPILE SXD 6)+4,4 F1B51770 17254 0074 00 2 16551 TSX COMTSX,2 COMPILE TSX NAME,4 F1B51780 17255 0074 00 4 06437 TSX FLTR00,4 F1B51790 17256 0 06250 0 05120 PZE L(0),,L(LXD) F1B51800 17257 0 06156 0 06172 PZE O(,,D4A4 F1B51810 17260 0020 00 0 17541 TRA ES000D GO TO END-OF-SEGMENT ROUTINE F1B51820 F1B51830 17261 -0763 00 0 00024 CP265D LGL 20 F1B51840 17262 0162 00 0 17267 TQP CP306D FOR LIBRARY FUNCTIONS, TRANSFER F1B51850 17263 -0534 00 4 16611 LXD CP040D,4 GET SEGMENT LENGTH F1B51860 17264 -0634 00 4 15176 SXD CP0400,4 STORE IT AND GO TO NORMAL FORTRAN F1B51870 17265 0074 00 4 16134 TSX OPENSB,4 FOR OPEN SUBROUTINES F1B51880 17266 0020 00 0 17541 TRA ES000D GO TO END-OF-SEGMENT ROUTINE F1B51890 F1B51900 CLOSED (LIBRARY) FUNCTIONS F1B51910 17267 -0500 00 0 06171 CP306D CAL P( F1B51920 17270 0602 00 0 65437 SLW ARGORG F1B51930 17271 0502 00 0 05120 CLS L(0) F1B51940 17272 0601 00 0 20433 STO COUNT1 F1B51950 17273 0502 00 0 05152 CLS 2E18 F1B51960 17274 0601 00 0 20434 STO COUNT2 F1B51970 17275 0500 00 1 65462 CLA SCRIPL+1,1 F1B51980 17276 0760 00 0 00001 LBT F1B51990 17277 0020 00 0 17302 TRA CP354D F1B52000 ARGUMENT 1 IS IN PSEUDO-AC F1B52010 17300 0074 00 2 20356 TSX DARG02,2 BUMP COUNT WORDS FOR ARG SKIPPED F1B52020 BINARY CARD NO. 9F140217 17301 0020 00 0 17304 TRA CP356D CONTINUE TO ARGUMENT 2 F1B52030 ARGUMENT 1 IS STORED F1B52040 17302 0074 00 4 17774 CP354D TSX ACDP00,4 PREPARE CW+2, CW+3, DPCW F1B52050 17303 0074 00 2 20327 TSX CPDARG,2 COMPILE SEQUENCE TO MOVE ARGUMENT 1 F1B52060 F1B52070 17304 -0534 00 2 16611 CP356D LXD CP040D,2 F1B52080 17305 0600 00 0 65441 STZ CW CLEAR IFN IF ANY F1B52090 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 156 * SECTION ONE PASS TWO * RECORD 9F14 * 17306 1 00006 2 17307 TXI *+1,2,6 F1B52100 17307 -3 00000 2 17326 TXL CP310D,2,0 EXIT IF ONLY ONE ARGUMENT. F1B52110 17310 -0634 00 2 16611 SXD CP040D,2 F1B52120 17311 1 77775 1 17317 TXI CP349D,1,-3 MOVE TO ARGUMENT 2 (22)F1B52130 17312 DUP 1,5 (22)F1B52140 17312 0 00000 0 00000 PZE (NOT USED) (22)F1B52150 17317 0074 00 4 17774 CP349D TSX ACDP00,4 PREPARE CW+2, CW+3, DPCW F1B52210 17320 0074 00 2 20327 TSX CPDARG,2 COMPILE SEQUENCE TO MOVE ARGUMENT 2 F1B52220 F1B52230 17321 -0534 00 2 16611 CP328D LXD CP040D,2 F1B52240 17322 1 00003 2 17323 TXI *+1,2,3 F1B52250 17323 -3 00000 2 17326 TXL CP310D,2,0 EXIT IF ONLY TWO ARGUMENTS F1B52260 17324 -0634 00 2 16611 SXD CP040D,2 F1B52270 ARGUMENT 3 THRU ARGUMENT N ARE STORED. F1B52280 17325 1 77775 1 17317 TXI CP349D,1,-3 F1B52290 FINISHED WITH ARGUMENTS F1B52300 17326 -0534 00 1 22237 CP310D LXD 3LBAR,1 F1B52310 BINARY CARD NO. 9F140218 17327 -0500 00 1 65463 CAL SCRIPL+2,1 GET FUNCTION NAME F1B52320 17330 0602 00 0 65443 SLW CW+2 F1B52330 17331 -0340 00 0 17371 LAS DABS F1B52340 17332 0020 00 0 17334 TRA *+2 F1B52350 17333 0020 00 0 20435 TRA CPDABS COMPILE DABS SEQUENCE IN LINE F1B52360 17334 -0340 00 0 17370 LAS DSIGN F1B52370 17335 0020 00 0 17337 TRA *+2 F1B52380 17336 0020 00 0 20455 TRA CDSIGN COMPILE DSIGN SEQUENCE IN LINE F1B52390 17337 0020 00 0 17345 TRA *+6 (22)F1B52400 17340 0774 00 2 00000 DARG05 AXT **,2 OPERAND LEVEL FOUND (22)F1B52410 17341 -0500 00 4 65462 CAL SCRIPL+1,4 FROM OP OF FIRST ENTRY (22)F1B52420 17342 0771 00 0 00003 ARS 3 (22)F1B52430 17343 0020 00 0 17565 TRA DARG06 (22)F1B52440 17344 0 00000 0 00000 PZE (NOT USED) (22)F1B52450 17345 -0340 00 0 17375 LAS DFLOAT F1B52460 17346 0020 00 0 17350 TRA *+2 F1B52470 17347 0020 00 0 20527 TRA CDFLOT COMPILE SEQUENCE FOR DFLOAT IN LINE F1B52480 17350 -0340 00 0 17374 LAS IFLOAT F1B52490 17351 0020 00 0 17353 TRA *+2 F1B52500 17352 0020 00 0 20527 TRA CDFLOT COMPILE SAME SEQUENCE FOR IFLOAT AS DFLOAT F1B52510 17353 -0340 00 0 17376 LAS ISIGN COMPARE NAME TO ISIGN. F1B52511 17354 0020 00 0 17356 TRA *+2 F1B52512 BINARY CARD NO. 9F140219 17355 0020 00 0 20452 TRA CISIGN *COMPILE SEQUENCE FOR ISIGN IN-LINE. F1B52513 17356 0761 00 0 00000 NOP IF MORE OPEN SUBROUTINES ARE ADDED, THIS F1B52520 PROVIDES SPACE FOR A TRANSFER TO THE TEST. F1B52530 F1B52540 17357 -0534 00 4 22241 LXD ARGCTR,4 IS THIS IN AN ASF F1B52550 17360 -3 00000 4 17364 TXL CP320D,4,0 NO WILL TRANSFER F1B52560 WITHIN AN ARITHMETIC STATEMENT FUNCTION. F1B52570 17361 0074 00 2 16541 TSX COMP0B,2 COMPILE SXD 7),4 F1B52580 17362 0074 00 2 16551 TSX COMTSX,2 COMPILE A TSX F1B52590 17363 0020 00 0 17532 TRA CP501D COMPILE LXD 7),4 F1B52600 NOT WITHIN AN ARITHMETIC STATEMENT FUNCTION F1B52610 17364 0074 00 2 16535 CP320D TSX COMP0A,2 COMPILE SXD 6)+4,4 F1B52620 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 157 * SECTION ONE PASS TWO * RECORD 9F14 * 17365 0074 00 2 16551 TSX COMTSX,2 COMPILE TSX F1B52630 17366 0020 00 0 17536 TRA CP502D COMPILE LXD 6)+4,4 F1B52640 F1B52650 17367 0 00000 0 00007 DOPSUB PZE 7 DOPSUB TABLE, NUMBER OF ENTRIES. F1B52660 OF ENTRIES FOR INDEXING SEARCH. F1B52670 17370 246231274560 DSIGN BCD 1DSIGN F1B52680 17371 242122626060 DABS BCD 1DABS F1B52690 17372 676767676767 BCI 1,XXXXXX TABLE ENTRY DELETED (22)F1B52700 17373 676767676767 BCI 1,XXXXXX TABLE ENTRY DELETED (22)F1B52710 17374 312643462163 IFLOAT BCD 1IFLOAT F1B52720 17375 242643462163 DFLOAT BCD 1DFLOAT F1B52730 17376 316231274560 ISIGN BCI 1,ISIGN F1B52731 17377 BSS 5 PATCH SPACE FOR ADDING DOPSUB NAMES F1B52740 F1B52750 CASE OF ** F1B52760 BINARY CARD NO. 9F140220 17404 -0763 00 0 00036 CP414D LGL 30 POSITION BIT WHICH INDICATES BASE IN AC. F1B52770 17405 0560 00 1 65462 LDQ SCRIPL+1,1 DETERMINE IF BASE IS FIXED OR FLOATING. F1B52780 17406 -0773 00 0 00040 RQL 32 F1B52790 17407 0162 00 0 17411 TQP *+2 F1B52800 17410 0020 00 0 17453 TRA CP447D BASE IS FLOATING. F1B52810 17411 0760 00 0 00001 LBT BASE IS FIXED. F1B52820 17412 0020 00 0 17443 TRA CP486D BASE NOT IN AC. F1B52830 17413 1 77775 1 17414 TXI *+1,1,-3 MOVE IR1 TO EXPONENT F1B52840 17414 0074 00 4 17774 CP444D TSX ACDP00,4 PREPARE CW+2,CW+3, DPCW F1B52850 17415 -0500 00 0 06245 CAL L(LDQ) COMPILE LDQ OF BASE F1B52860 17416 0074 00 2 16527 TSX COMPM2,2 F1B52870 17417 0500 00 1 65462 CP448D CLA SCRIPL+1,1 GET OP WORD F1B52880 17420 -0765 00 0 00004 LGR 4 F1B52890 17421 0162 00 0 17423 TQP *+2 TEST FOR FIXED OR FLOATING EXPONENT F1B52900 17422 0020 00 0 15050 TRA MC0310+2 FIXED BASE FLOATING EXPONENT ILLEGAL F1B52910 17423 0500 00 0 06200 CLA FXFX PREPARE TO COMPILE TSX EXP(1 F1B52920 17424 0601 00 0 05604 CP449D STO G F1B52930 17425 -0534 00 4 22241 LXD ARGCTR,4 DETERMINE IF IN AN ARITHMETIC FUNCTION F1B52940 17426 3 00000 4 17441 TXH SXTRP,4,0 F1B52950 17427 0074 00 2 20630 TSX PCH9,2 IF NOT COMPILE SXD 6)+4,4 $F1B52960 17430 0074 00 4 04251 CP473D TSX CIT00,4 COMPILE TSX EXP(1 OR DEXP(2 OR DEXP(3 F1B52970 17431 0 06276 0 05120 PZE L(0),,L(TSX) F1B52980 BINARY CARD NO. 9F140221 17432 0 05124 0 05604 PZE G,,L(4) F1B52990 17433 0074 00 1 04405 TSX TET00,1 F1B53000 17434 0 00000 0 00011 PZE 9 F1B53010 17435 -0534 00 4 22241 LXD ARGCTR,4 F1B53020 17436 3 00000 4 17532 TXH CP501D,4,0 F1B53030 17437 0020 00 0 17536 TRA CP502D F1B53040 17440 0020 00 0 17532 TRA CP501D F1B53050 17441 0074 00 2 20651 SXTRP TSX PCH10,2 COMPILE SXD 7) $F1B53060 17442 0020 00 0 17430 TRA CP473D F1B53070 17443 0074 00 4 17774 CP486D TSX ACDP00,4 PREPARE CW+2, CW+3, DPCW F1B53080 17444 -0500 00 0 06227 CAL L(CLA) BASE NOT IN AC, COMPILE CLA OF BASE. F1B53090 17445 0074 00 2 16527 TSX COMPM2,2 F1B53100 17446 1 77775 1 17447 TXI *+1,1,-3 F1B53110 17447 0500 00 1 65462 CLA SCRIPL+1,1 F1B53120 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 158 * SECTION ONE PASS TWO * RECORD 9F14 * 17450 0760 00 0 00001 LBT F1B53130 17451 0020 00 0 17414 TRA CP444D EXPONENT NOT IN MQ, F1B53140 17452 0020 00 0 17417 TRA CP448D EXPONENT IN MQ. F1B53150 17453 0760 00 0 00001 CP447D LBT FLOATING BASE. F1B53160 17454 0020 00 0 17472 TRA CP450D BASE IN CORES. F1B53170 17455 0560 00 1 65465 CP460D LDQ SCRIPL+4,1 F1B53180 17456 -0773 00 0 00040 RQL 32 F1B53190 17457 0162 00 0 17505 TQP CP470D EXPONENT IS FIXED POINT. F1B53200 BINARY CARD NO. 9F140222 17460 1 77775 1 17461 CP461D TXI *+1,1,-3 F1B53210 17461 0074 00 4 17774 TSX ACDP00,4 PREPARE CW+2, CW+3, DPCW F1B53220 17462 0074 00 2 20123 TSX CPDLDQ,2 COMPILE SEQUENCE TO LOAD PSEUDO-MQ F1B53230 17463 0500 00 0 04521 CP465D CLA MODECL F1B53240 17464 0402 00 0 05141 SUB L(I) TEST FOR CA MODE F1B53250 17465 -0100 00 0 17470 TNZ *+3 F1B53260 17466 0020 00 0 13302 TRA ICM6 $F1B53270 17467 0020 00 0 17424 TRA CP449D F1B53280 17470 0500 00 0 17521 CLA DFLFL F1B53290 17471 0020 00 0 17424 TRA CP449D F1B53300 17472 0074 00 4 17774 CP450D TSX ACDP00,4 PREPARE CW+2, CW+3, DPCW F1B53310 17473 0074 00 2 20052 TSX CPDCLA,2 COMPILE SEQUENCE TO LOAD PSEUDO-AC F1B53320 17474 0560 00 1 65465 LDQ SCRIPL+4,1 POSITION BIT WHICH INDICATES THAT EXPONENT F1B53330 17475 -0773 00 0 00040 RQL 32 IS FIXED OR FLOATING TO S OF MQ. F1B53340 17476 0500 00 1 65465 CLA SCRIPL+4,1 F1B53350 17477 0760 00 0 00001 LBT F1B53360 17500 0020 00 0 17503 TRA CP455D F1B53370 17501 0162 00 0 17511 TQP CP471D FIXED EXPONENT IN AC. F1B53380 17502 0020 00 0 17463 TRA CP465D FLOATING EXPONENT IN PSEUDO AC. F1B53390 17503 0162 00 0 17505 CP455D TQP CP470D FIXED POINT EXPONENT IN CORES. F1B53400 17504 0020 00 0 17460 TRA CP461D FLOATING EXPONENT IN CORES. F1B53410 17505 1 77775 1 17506 CP470D TXI *+1,1,-3 F1B53420 BINARY CARD NO. 9F140223 17506 0074 00 4 17774 TSX ACDP00,4 PREPARE CW+2, CW+3, DPCW F1B53430 17507 -0500 00 0 06245 CAL L(LDQ) FIXED EXPONENT, COMPILE LDQ F1B53440 17510 0074 00 2 16527 TSX COMPM2,2 F1B53450 17511 0500 00 0 04521 CP471D CLA MODECL F1B53460 17512 0402 00 0 05141 SUB L(I) TEST FOR CA MODE F1B53470 17513 -0100 00 0 17516 TNZ *+3 F1B53480 17514 0500 00 0 17522 CLA IFLFX F1B53490 17515 0020 00 0 17424 TRA CP449D F1B53500 17516 0500 00 0 17520 CLA DFLFX F1B53510 17517 0020 00 0 17424 TRA CP449D F1B53520 F1B53530 17520 242567477402 DFLFX BCD 1DEXP(2 F1B53540 17521 242567477403 DFLFL BCD 1DEXP(3 F1B53550 17522 312567477402 IFLFX BCD 1IEXP(2 F1B53560 17523 312567477403 IFLFL BCD 1IEXP(3 F1B53570 F1B53580 F1B53590 17524 -0534 00 2 16611 CP500D LXD CP040D,2 F1B53600 17525 -0634 00 2 15176 SXD CP0400,2 F1B53610 17526 0600 00 0 20316 STZ TRAPCL WHO KNOWS WHAT CHANGES LURK IN A SUBPROGRAMF1B53620 17527 0074 00 4 16201 TSX FNIISB,4 COMPILE CALLING SEQUENCE FOR SUBPROGRAMS F1B53630 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 159 * SECTION ONE PASS TWO * RECORD 9F14 * 17530 -0534 00 4 22241 LXD ARGCTR,4 F1B53640 17531 -3 00000 4 17536 TXL CP502D,4,0 F1B53650 WITHIN AN ARITHMETIC STATEMENT FUNCTION F1B53660 17532 0074 00 4 06437 CP501D TSX FLTR00,4 (33)F1B53670 17533 0 06250 0 05120 PZE L(0),,L(LXD) F1B53680 BINARY CARD NO. 9F140224 17534 0 05124 0 06173 PZE X(,,L(4) F1B53690 17535 0020 00 0 17541 TRA ES000D F1B53700 NOT WITHIN AN ARITHMETIC STATEMENT FUNCTION F1B53710 17536 0074 00 4 06437 CP502D TSX FLTR00,4 F1B53720 17537 0 06250 0 05120 PZE L(0),,L(LXD) F1B53730 17540 0 06156 0 06172 PZE O(,,D4A4 F1B53740 F1B53750 END OF SEGMENT ROUTINE F1B53760 F1B53770 17541 -0534 00 1 22237 ES000D LXD 3LBAR,1 GET INDEX TO FIRST ELEMENT OF CURRENT LEVELF1B53780 17542 -0500 00 1 65461 CAL SCRIPL,1 GET TAGWORD OF FIRST ELEMENT OF LEVEL F1B53790 17543 -0320 00 0 05117 ANA MASK2 F1B53800 17544 0100 00 0 17636 TZE ES016D ZERO IS LAST OF EQUAL SIGN RIGHT F1B53810 17545 0500 00 0 22240 CLA ARERAS F1B53820 17546 0601 00 0 65443 STO CW+2 PREPARE ADDRESS AND ADDEND FOR F1B53830 17547 0500 00 0 22254 CLA PHI(I) POSSIBLE COMPILATION OF STO (STQ) BETWEEN F1B53840 17550 0767 00 0 00001 ALS 1 LEVELS. F1B53850 17551 0601 00 0 20325 STO DPCW F1B53860 17552 0400 00 0 05152 ADD 2E18 F1B53870 17553 0601 00 0 65444 STO CW+3 F1B53880 17554 -0760 00 0 00144 SLT 4 F1B53890 17555 0020 00 0 17626 TRA ES010D TO FLOATING POINT LEVEL F1B53900 17556 -0760 00 0 00141 SLT 1 LEVEL IS FIXED POINT, TEST LINKAGE (22)F1B53910 17557 0020 00 0 16557 TRA CP005D LEVEL LINKED AND NOT CS (22)F1B53920 17560 -0500 00 0 06265 CAL L(STQ) STORE NEEDED, PREPARE STQ (22)F1B53930 17561 -0760 00 0 00142 SLT 2 IS RESULT IN MQ (22)F1B53940 BINARY CARD NO. 9F140225 17562 -0500 00 0 06264 CAL L(STO) NO, MAKE IT STO (22)F1B53950 17563 0074 00 2 16527 TSX COMPM2,2 COMPILE IT (22)F1B53960 17564 0020 00 0 16557 TRA CP005D GO TO NEXT LEVEL (22)F1B53970 (22)F1B53980 17565 0760 00 0 00001 DARG06 LBT DETERMINE TYPE (22)F1B53990 17566 0020 00 0 17576 TRA DARGFX FIXED (22)F1B54000 17567 -0500 00 1 65462 CAL SCRIPL+1,1 IS THERE LINKAGE (22)F1B54010 17570 0760 00 0 00001 LBT (22)F1B54020 17571 0020 00 0 20342 TRA DARGFL NO, COMPILE FLOATING ARGUMENT (22)F1B54030 17572 -0500 00 0 65437 CAL ARGORG YES, IS IT LIBRARY (22)F1B54040 17573 0322 00 0 06171 ERA P( OR OPEN FUNCTION (22)F1B54050 17574 0100 00 0 20356 TZE DARG02 NO (22)F1B54060 17575 0020 00 0 20342 TRA DARGFL YES, COMPILE FLOATING ARGUMENT (22)F1B54061 17576 0774 00 4 06265 DARGFX AXT L(STQ),4 YES, PREPARE TO COMPILE (22)F1B54070 17577 -0520 00 0 20433 NZT COUNT1 STQ, BUT IS IT FIRST ARGUMENT (22)F1B54080 17600 0774 00 4 06264 AXT L(STO),4 YES, PREPARE FOR CLA (22)F1B54090 17601 -0634 00 4 17613 SXD DARG08,4 INITIALIZE CIT CELL (22)F1B54100 17602 -0500 00 1 65462 CAL SCRIPL+1,1 GET OP WORD (22)F1B54110 17603 0760 00 0 00001 LBT DOES LINKAGE EXIST (22)F1B54120 17604 0020 00 0 17616 TRA DARG09 NO, COMPILE CLA (22)F1B54130 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 160 * SECTION ONE PASS TWO * RECORD 9F14 * 17605 -0500 00 0 65437 CAL ARGORG IS ARG FOR LIBRARY OR (22)F1B54140 17606 0322 00 0 06171 ERA P( OPEN FUNCTION (22)F1B54150 17607 -0100 00 0 17612 TNZ DARG07 STORE IF NOT (22)F1B54160 BINARY CARD NO. 9F140226 17610 -0520 00 0 20433 NZT COUNT1 IS IT FIRST ARGUMENT (22)F1B54170 17611 0020 00 0 20356 TRA DARG02 DONT STORE IF YES (22)F1B54180 17612 0074 00 4 04251 DARG07 TSX CIT00,4 STORE FUNCTION ARGUMENT (22)F1B54190 17613 0 00000 0 05120 DARG08 L(0),,** (22)F1B54200 17614 0 20433 0 65437 ARGORG,,COUNT1 (22)F1B54210 17615 0020 00 0 20356 TRA DARG02 UPDATE COUNTS (22)F1B54220 17616 0774 00 4 06245 DARG09 AXT L(LDQ),4 IF NOT FIRST ARGUMENT (22)F1B54230 17617 -0520 00 0 20433 NZT COUNT1 COMPILE LDQ (22)F1B54240 17620 0774 00 4 06227 AXT L(CLA),4 OTHERWISE COMPILE CLA (22)F1B54250 17621 -0634 00 4 17623 SXD *+2,4 FOR UNLINKED (22)F1B54260 17622 0074 00 4 04251 TSX CIT00,4 FIXED POINT ARGUMENT (22)F1B54270 17623 0 00000 0 65441 CW,,** (22)F1B54280 17624 0 65444 0 65443 CW+2,,CW+3 (22)F1B54290 17625 0020 00 0 17612 TRA DARG07 (22)F1B54300 F1B54310 17626 -0760 00 0 00141 ES010D SLT 1 F1B54320 17627 0020 00 0 16560 TRA CP013D LEVEL IS LINKED, GO TO NEXT LEVEL. F1B54330 17630 -0760 00 0 00142 SLT 2 F1B54340 17631 0020 00 0 17634 TRA *+3 F1B54350 17632 0074 00 2 20141 TSX CPDSTQ,2 COMPILE SEQUENCE FOR DP AND CA STQ F1B54360 17633 0020 00 0 16560 TRA CP013D GO TO NEXT LEVEL. F1B54370 17634 0074 00 2 20106 TSX CPDSTO,2 COMPILE SEQUENCE FOR DP AND CA STO F1B54380 17635 0020 00 0 16560 TRA CP013D GO TO NEXT LEVEL. F1B54390 F1B54400 F1B54410 SCRIPL ENTRIES COMPLETED, NOW COMPILE TERMINAL CITS FOR LEFT F1B54420 OF EQUAL SIGN. F1B54430 BINARY CARD NO. 9F140227 17636 0560 00 0 05610 ES016D LDQ LEFT+2 F1B54440 17637 -0763 00 0 00014 LGL 12 F1B54450 17640 0340 00 0 05146 CAS IFSYM F1B54460 17641 0020 00 0 17643 TRA *+2 F1B54470 17642 0020 00 0 17746 TRA ES150D THIS IS AN IF(...)N1,N2,N3 F1B54480 17643 0340 00 0 05151 CAS CALLER F1B54490 17644 0020 00 0 17646 TRA *+2 F1B54500 17645 0020 00 0 16062 TRA ES1520 THIS IS A CALL NAME (ARG1,...,ARGN) F1B54510 17646 0771 00 0 00006 ARS 6 F1B54520 17647 -0534 00 4 22241 LXD ARGCTR,4 THIS IS AN ARITHMETIC STATEMENT FUNCTION F1B54530 17650 0020 00 0 20620 TRA PCH7 GO PUT IN LDQ6)+5 STQ2 IF DP OR COMPLEX $F1B54540 F1B54550 STATEMENT OF FORM X = Y.... F1B54560 17651 0340 00 0 05140 CAS L(H) F1B54570 17652 0340 00 0 05143 CAS L(O) F1B54580 17653 0020 00 0 17675 TRA ES030D FLOATING POINT ON LEFT OF EQUAL SIGN F1B54590 17654 0020 00 0 17675 TRA ES030D FLOATING POINT F1B54600 17655 -0760 00 0 00144 SLT 4 FIXED POINT F1B54610 17656 0020 00 0 17666 TRA ES087D FLOATING POINT ON RIGHT OF EQUAL SIGN. F1B54620 F1B54630 FIXED POINT ON BOTH RIGHT AND LEFT OF EQUAL SIGN. F1B54640 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 161 * SECTION ONE PASS TWO * RECORD 9F14 * 17657 -0500 00 0 06265 CAL L(STQ) COMPILE STQ IF LAST RESULT IN MQ F1B54650 17660 -0760 00 0 00142 SLT 2 F1B54660 17661 -0500 00 0 06264 ES073D CAL L(STO) COMPILE STO IF LAST RESULT IN AC. F1B54670 17662 0602 00 0 65442 SLW CW+1 F1B54680 17663 0074 00 4 16353 TSX AC0M60,4 PREPARE CW+2, CW+3 F1B54690 BINARY CARD NO. 9F140228 17664 0074 00 2 16530 TSX COMP,2 F1B54700 17665 0020 00 0 16065 TRA ES1590 RETURN TO STANDARD FORTRAN ARITHMETIC. F1B54710 F1B54720 FIXED POINT ON LEFT, FLOATING POINT ON RIGHT. F1B54730 17666 -0760 00 0 00142 ES087D SLT 2 F1B54740 17667 0020 00 0 17672 TRA *+3 F1B54750 17670 0074 00 2 20375 TSX CPCLA2,2 MOST SIGN. (REAL) MQ TO MACHINE AC F1B54760 17671 0020 00 0 17673 TRA *+2 F1B54770 17672 0074 00 2 20371 TSX CPCLA1,2 MOST SIGN. (REAL) AC TO MACHINE AC F1B54780 17673 0074 00 2 20401 TSX CPFIX,2 COMPILE FIXING INSTRUCTIONS F1B54790 17674 0020 00 0 17661 TRA ES073D F1B54800 F1B54810 FLOATING POINT ON LEFT OF EQUAL SIGN. F1B54820 17675 -0760 00 0 00144 ES030D SLT 4 F1B54830 17676 0020 00 0 17713 TRA ES031D FLOATING POINT ON RIGHT. F1B54840 F1B54850 FIXED ON RIGHT, FLOATING ON LEFT. F1B54860 17677 -0760 00 0 00142 SLT 2 RESULT IN AC OR MQ F1B54870 17700 0020 00 0 17702 TRA *+2 IN AC F1B54880 17701 0074 00 2 16545 TSX COMP0C,2 IN MQ COMPILE XCA F1B54890 17702 0074 00 2 20421 TSX CFLOAT,2 FLOAT MOST SIGNIFICANT F1B54900 17703 0074 00 4 17771 TSX ACDP0L,4 PRE F1B54910 17704 0074 00 4 04251 TSX CIT00,4 F1B54920 17705 0 06264 0 05120 PZE L(0),,L(STO) COMPILE STO F1B54930 17706 0 65444 0 65443 PZE CW+2,,CW+3 F1B54940 17707 0074 00 4 04251 TSX CIT00,4 F1B54950 17710 0 06267 0 05120 PZE L(0),,L(STZ) COMPILE STZ FOR LEAST SIGNIFCANT PART. F1B54960 17711 0 20325 0 65443 PZE CW+2,,DPCW F1B54970 BINARY CARD NO. 9F140229 17712 0020 00 0 16065 TRA ES1590 F1B54980 F1B54990 FLOATING POINT ON BOTH SIDES OF EQUAL. F1B55000 17713 0074 00 4 17771 ES031D TSX ACDP0L,4 PREPARE CW+2, CW+3, DPCW F1B55010 17714 -0760 00 0 00142 SLT 2 F1B55020 17715 0020 00 0 17720 TRA *+3 F1B55030 17716 0074 00 2 20141 TSX CPDSTQ,2 COMPILE SEQUENCE FOR DP AND CA STQ F1B55040 17717 0020 00 0 16065 TRA ES1590 RETURN TO STANDARD FORTRAN ARITHMETIC F1B55050 17720 0074 00 2 20106 TSX CPDSTO,2 COMPILE SEQUENCE FOR DP AND CA STO F1B55060 17721 0020 00 0 16065 TRA ES1590 RETURN TO STANDARD FORTRAN ARITHMETIC F1B55070 F1B55080 STATEMENT IS AN ARITHMETIC STATEMENT FUNCTION. F1B55090 17722 0402 00 0 06131 ES130D SUB L(X) F1B55100 17723 0100 00 0 17745 TZE ES136D FIXED POINT ON LEFT OF EQUAL F1B55110 17724 -0760 00 0 00144 SLT 4 F1B55120 17725 0020 00 0 17741 TRA ES132D FLOATING POINT ON RIGHT OF EQUAL. F1B55130 F1B55140 FIXED POINT ON RIGHT, FLOATING POINT ON LEFT. F1B55150 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 162 * SECTION ONE PASS TWO * RECORD 9F14 * 17726 -0760 00 0 00142 SLT 2 F1B55160 17727 0020 00 0 17731 TRA *+2 F1B55170 17730 0074 00 2 16545 TSX COMP0C,2 RESULT IS IN MQ, COMPILE XCA F1B55180 17731 0074 00 2 20421 TSX CFLOAT,2 COMPILE INSTRUCTIONS TO FLOAT MOST SIGN. F1B55190 17732 0074 00 4 04251 TSX CIT00,4 F1B55200 17733 0 06264 0 05120 PZE L(0),,L(STO) STO IN 4) F1B55210 17734 0 05120 0 06171 PZE P(,,L(0) F1B55220 17735 0074 00 4 04251 TSX CIT00,4 F1B55230 17736 0 06267 0 05120 PZE L(0),,L(STZ) COMPILE STZ IN 4)-1 FOR LEAST SIGNIF PART.F1B55240 17737 0 06205 0 06171 PZE P(,,DECMI1 F1B55250 BINARY CARD NO. 9F140230 17740 0020 00 0 16041 TRA ES0630 RETURN TO STANDARD FORTRAN F1B55260 F1B55270 FLOATING POINT ON BOTH SIDES OF EQUAL SIGN. F1B55280 17741 -0760 00 0 00142 ES132D SLT 2 F1B55290 17742 0020 00 0 16041 TRA ES0630 F1B55300 17743 0074 00 2 20210 TSX CPMQAC,2 COMPILE SEQUENCE TO MOVE MQ TO AC. F1B55310 17744 0020 00 0 16041 TRA ES0630 F1B55320 F1B55330 FIXED POINT ON LEFT OF EQUAL SIGN. F1B55340 17745 0074 00 4 04504 ES136D TSX DIAG,4 ILLEGAL DP OR CA DEFINITION OF FIXED FUNCT F1B55350 F1B55360 F1B55370 STATEMENT IS AN IF(...)N1,N2,N3 F1B55380 17746 -0760 00 0 00144 ES150D SLT 4 F1B55390 17747 0020 00 0 17751 TRA *+2 F1B55400 17750 0020 00 0 16060 TRA ES1500 FIXED POINT, RETURN TO STANDARD FORTRAN. F1B55410 FLOATING POINT ON RIGHT OF EQUAL. F1B55420 17751 -0760 00 0 00142 SLT 2 F1B55430 17752 0020 00 0 17756 TRA *+4 F1B55440 17753 0074 00 2 20375 TSX CPCLA2,2 MOST SIGN. (REAL) MQ TO MACHINE AC. F1B55450 17754 0774 00 2 20326 AXT DECMI3,2 F1B55460 17755 0020 00 0 17760 TRA *+3 F1B55470 17756 0074 00 2 20371 TSX CPCLA1,2 MOST SIGN. (REAL) AC TO MACHINE AC. F1B55480 17757 0774 00 2 06205 AXT DECMI1,2 F1B55490 17760 0020 00 0 16060 TRA ES1500 RETURN TO STANDARD FORTRAN. F1B55500 F1B55510 17761 0500 00 0 04521 CLA MODECL IS THIS DOUBLE-PRECISION. F1B55520 17762 0402 00 0 05136 SUB L(D) F1B55530 17763 -0100 00 0 16060 TNZ ES1500 NO, EXIT. F1B55540 17764 -0634 00 2 17767 SXD *+3,2 YES, SET ADDEND. F1B55550 17765 0074 00 4 04251 TSX CIT00,4 F1B55560 BINARY CARD NO. 9F140231 17766 0 06220 0 05120 PZE L(0),,L(ADD) F1B55570 17767 0 00000 0 06171 PZE P(,,** F1B55580 17770 0020 00 0 16060 TRA ES1500 RETURN TO STANDARD FORTRAN. F1B55590 F1B55600 F1B55610 F1B55620 SUBROUTINE TO PROVIDE ADDRESS OF MOST SIGNIFICANT (REAL) PARTF1B55630 AND ADDRESS OF LEAST SIGNIFICANT (IMAGINARY) PART FOR F1B55640 FOR COMPILATION OF DOUBLE PRECISION AND COMPLEX ARITHMETIC. F1B55650 F1B55660 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 163 * SECTION ONE PASS TWO * RECORD 9F14 * USES STANDARD AC0000 ROUTINE TO GET ADDRESS OF MOST SIGN. F1B55670 PART. THEN SUBTRACTS ONE FOR ALL BUT SUBSCRIPTED VARIABLES. F1B55680 FOR SUBSCRIPTED VARIABLES LOOKS IN DLIST1 AND GETS SIZE OF F1B55690 ARRAY WHICH IT THEN SUBTRACTS TO FORM LEAST SIGN ADDRESSS. F1B55700 F1B55710 ENTRY POINT FOR LEFT OF EQUAL. F1B55720 17771 0634 00 4 20050 ACDP0L SXA ACDP04,4 SAVE CALLING TAG. F1B55730 17772 0074 00 4 16353 TSX AC0M60,4 PREPARE CW+2, CW+3 F1B55740 17773 0020 00 0 17776 TRA ACDP00+2 F1B55750 F1B55760 ENTRY POINT FOR RIGHT OF EQUAL. F1B55770 17774 0634 00 4 20050 ACDP00 SXA ACDP04,4 SAVE CALLING TAG F1B55780 17775 0074 00 4 16362 TSX AC0000,4 GET ADDRESS OF MOST SIGNIFICANT PART F1B55790 17776 -0534 00 4 04215 LXD DLIST1-2,4 SUBSCRIPTED, GET COUNT OF ENTRIES IN DLST1 F1B55800 17777 0774 00 2 00000 AXT 0,2 INITIALIZE INDEX FOR SEARCH. F1B55810 20000 0500 00 0 65443 CLA CW+2 GET VARIABLE NAME. F1B55820 20001 0340 00 2 00000 ACDP01 CAS **,2 AND F1B55830 20002 1 77776 2 20005 TXI ACDP02,2,-2 SEARCH FOR IT IN DLST1 F1B55840 20003 0020 00 0 20011 TRA ACDP03 FOUND F1B55850 20004 1 77776 2 20005 TXI ACDP02,2,-2 F1B55860 20005 2 00001 4 20001 ACDP02 TIX ACDP01,4,1 CONTINUE SEARCH F1B55870 20006 0500 00 0 65445 CLA TAGWRD IS THIS A NON-SUBSCRIPTED VARIABLE. F1B55880 20007 0020 00 0 20761 TRA ACDP08 (25)F1B55890 20010 0074 00 4 04504 ERDP01 TSX DIAG,4 NOT FOUND IS ERROR F1B55900 20011 0500 00 0 65444 ACDP03 CLA CW+3 F1B55910 20012 0601 00 0 20325 STO DPCW ADDRESS AND STORE F1B55920 20013 0765 00 0 00000 LRS 0 F1B55930 BINARY CARD NO. 9F140232 20014 -0320 00 0 05154 ANA 1BAR ERASE ALL BUT ADDEND F1B55940 20015 0763 00 0 00000 LLS 0 GET SIGN BACK F1B55950 20016 0402 00 2 00000 ACDP07 SUB **,2 SUBTRACT SIZE OF ARRAY (DLST1+1) F1B55960 20017 0622 00 0 20325 STD DPCW STORE NEW ADDEND F1B55970 20020 0560 00 0 05120 LDQ L(0) F1B55980 20021 0765 00 0 00000 LRS 0 SAVE SIGN F1B55990 20022 -0130 00 0 00000 XCL F1B56000 20023 0630 00 0 20325 STP DPCW STORE NEW SIGN F1B56010 20024 0020 00 0 20050 TRA ACDP04 F1B56020 20025 0500 00 0 65444 ACDP05 CLA CW+3 GET ADDRESS F1B56030 20026 0402 00 0 05152 SUB 2E18 SUBTRACT ONE TO FORM LEAST SIGNIFICANT F1B56040 20027 0601 00 0 20325 STO DPCW ADDRESS AND STORE F1B56050 20030 -0500 00 0 65443 CAL CW+2 F1B56060 20031 0100 00 0 20050 TZE ACDP04 ABSOLUTE ADDRESS CASE F1B56070 20032 0771 00 0 00036 ARS 30 F1B56080 20033 0340 00 0 05121 CAS L(1) 1) ERASEABLE CASE F1B56090 20034 0020 00 0 20036 TRA *+2 F1B56100 20035 0020 00 0 20042 TRA ACDP06 F1B56110 20036 0340 00 0 05124 CAS L(4) 4) ERASEABLE CASE F1B56120 20037 0020 00 0 20050 TRA ACDP04 F1B56130 20040 0020 00 0 20042 TRA ACDP06 F1B56140 20041 0020 00 0 20050 TRA ACDP04 F1B56150 BINARY CARD NO. 9F140233 20042 -0534 00 4 65444 ACDP06 LXD CW+3,4 GET ADDEND F1B56160 20043 -0754 00 4 00000 PXD 0,4 F1B56170 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 164 * SECTION ONE PASS TWO * RECORD 9F14 * 20044 0767 00 0 00001 ALS 1 DOUBLE IT F1B56180 20045 0601 00 0 20325 STO DPCW USE X)+2I AS LEAST SIGNIF ADDRESS F1B56190 20046 0400 00 0 05152 ADD 2E18 ADD ONE FOR MOST SIGNIF F1B56200 20047 0601 00 0 65444 STO CW+3 USE AS MOST SIGNIF F1B56210 20050 0774 00 4 00000 ACDP04 AXT ..,4 RELOAD CALLING TAG F1B56220 20051 0020 00 4 00001 TRA 1,4 RETURN TO CALLER F1B56230 F1B56240 SUBROUTINE TO COMPILE DP AND CA SEQUENCE FOR CLA F1B56250 20052 0074 00 4 04251 CPDCLA TSX CIT00,4 F1B56260 20053 0 06227 0 65441 PZE CW,,L(CLA) CLA MOST. SIGN. (REAL) PART. F1B56270 20054 0 65444 0 65443 PZE CW+2,,CW+3 F1B56280 20055 0600 00 0 65441 STZ CW F1B56290 20056 0074 00 4 04251 TSX CIT00,4 F1B56300 20057 0 06264 0 05120 PZE L(0),,L(STO) STO 4) F1B56310 20060 0 05120 0 06171 PZE P(,,L(0) F1B56320 20061 0074 00 4 04251 TSX CIT00,4 F1B56330 20062 0 06227 0 05120 PZE L(0),,L(CLA) CLA LEAST SIGN. (IMAG.) PART. F1B56340 20063 0 20325 0 65443 PZE CW+2,,DPCW F1B56350 20064 0074 00 4 04251 TSX CIT00,4 F1B56360 20065 0 06264 0 05120 PZE L(0),,L(STO) STO 4)-1 F1B56370 20066 0 06205 0 06171 PZE P(,,DECMI1 F1B56380 20067 0020 00 2 00001 TRA 1,2 F1B56390 F1B56400 SUBROUTINE TO COMPILE DP AND CA SEQUENCE FOR CLS F1B56410 BINARY CARD NO. 9F140234 20070 0074 00 4 04251 CPDCLS TSX CIT00,4 F1B56420 20071 0 06231 0 65441 PZE CW,,L(CLS) CLS MOST. SIGN. (REAL) PART. F1B56430 20072 0 65444 0 65443 PZE CW+2,,CW+3 F1B56440 20073 0600 00 0 65441 STZ CW F1B56450 20074 0074 00 4 04251 TSX CIT00,4 F1B56460 20075 0 06264 0 05120 PZE L(0),,L(STO) STO 4) F1B56470 20076 0 05120 0 06171 PZE P(,,L(0) F1B56480 20077 0074 00 4 04251 TSX CIT00,4 F1B56490 20100 0 06231 0 05120 PZE L(0),,L(CLS) CLS LEAST SIGN. (IMAG.) PART. F1B56500 20101 0 20325 0 65443 PZE CW+2,,DPCW F1B56510 20102 0074 00 4 04251 TSX CIT00,4 F1B56520 20103 0 06264 0 05120 PZE L(0),,L(STO) STO 4)-1 F1B56530 20104 0 06205 0 06171 PZE P(,,DECMI1 F1B56540 20105 0020 00 2 00001 TRA 1,2 F1B56550 F1B56560 SUBROUTINE TO COMPILE DP AND CA SEQUENCE FOR STO F1B56570 20106 0074 00 4 04251 CPDSTO TSX CIT00,4 F1B56580 20107 0 06227 0 05120 PZE L(0),,L(CLA) F1B56590 20110 0 05120 0 06171 PZE P(,,L(0) F1B56600 20111 0074 00 4 04251 TSX CIT00,4 F1B56610 20112 0 06264 0 05120 PZE L(0),,L(STO) F1B56620 20113 0 65444 0 65443 PZE CW+2,,CW+3 F1B56630 20114 0074 00 4 04251 TSX CIT00,4 F1B56640 20115 0 06227 0 05120 PZE L(0),,L(CLA) F1B56650 BINARY CARD NO. 9F140235 20116 0 06205 0 06171 PZE P(,,DECMI1 F1B56660 20117 0074 00 4 04251 TSX CIT00,4 F1B56670 20120 0 06264 0 05120 PZE L(0),,L(STO) F1B56680 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 165 * SECTION ONE PASS TWO * RECORD 9F14 * 20121 0 20325 0 65443 PZE CW+2,,DPCW F1B56690 20122 0020 00 2 00001 TRA 1,2 F1B56700 F1B56710 SUBROUTINE TO COMPILE DP AND CA SEQUENCE FOR LDQ F1B56720 20123 0074 00 4 04251 CPDLDQ TSX CIT00,4 F1B56730 20124 0 06245 0 65441 PZE CW,,L(LDQ) F1B56740 20125 0 65444 0 65443 PZE CW+2,,CW+3 F1B56750 20126 0600 00 0 65441 STZ CW F1B56760 20127 0074 00 4 04251 TSX CIT00,4 F1B56770 20130 0 06265 0 05120 PZE L(0),,L(STQ) F1B56780 20131 0 06207 0 06171 PZE P(,,DECMI2 F1B56790 20132 0074 00 4 04251 TSX CIT00,4 F1B56800 20133 0 06245 0 05120 PZE L(0),,L(LDQ) F1B56810 20134 0 20325 0 65443 PZE CW+2,,DPCW F1B56820 20135 0074 00 4 04251 TSX CIT00,4 F1B56830 20136 0 06265 0 05120 PZE L(0),,L(STQ) F1B56840 20137 0 20326 0 06171 PZE P(,,DECMI3 F1B56850 20140 0020 00 2 00001 TRA 1,2 F1B56860 F1B56870 SUBROUTINE TO COMPILE DP AND CA SEQUENCE FOR STQ F1B56880 20141 0074 00 4 04251 CPDSTQ TSX CIT00,4 F1B56890 20142 0 06245 0 05120 PZE L(0),,L(LDQ) F1B56900 20143 0 06207 0 06171 PZE P(,,DECMI2 F1B56910 BINARY CARD NO. 9F140236 20144 0074 00 4 04251 TSX CIT00,4 F1B56920 20145 0 06265 0 05120 PZE L(0),,L(STQ) F1B56930 20146 0 65444 0 65443 PZE CW+2,,CW+3 F1B56940 20147 0074 00 4 04251 TSX CIT00,4 F1B56950 20150 0 06245 0 05120 PZE L(0),,L(LDQ) F1B56960 20151 0 20326 0 06171 PZE P(,,DECMI3 F1B56970 20152 0074 00 4 04251 TSX CIT00,4 F1B56980 20153 0 06265 0 05120 PZE L(0),,L(STQ) F1B56990 20154 0 20325 0 65443 PZE CW+2,,DPCW F1B57000 20155 0020 00 2 00001 TRA 1,2 F1B57010 F1B57020 SUBROUTINE TO COMPILE DP AND CA SEQUENCE FOR CHS F1B57030 20156 0074 00 4 04251 CPDCHS TSX CIT00,4 F1B57040 20157 0 06231 0 05120 PZE L(0),,L(CLS) CLS 4) F1B57050 20160 0 05120 0 06171 PZE P(,,L(0) F1B57060 20161 0074 00 4 04251 TSX CIT00,4 F1B57070 20162 0 06264 0 05120 PZE L(0),,L(STO) STO 4) F1B57080 20163 0 05120 0 06171 PZE P(,,L(0) F1B57090 20164 0074 00 4 04251 TSX CIT00,4 F1B57100 20165 0 06231 0 05120 PZE L(0),,L(CLS) CLS 4)-1 F1B57110 20166 0 06205 0 06171 PZE P(,,DECMI1 F1B57120 20167 0074 00 4 04251 TSX CIT00,4 F1B57130 20170 0 06264 0 05120 PZE L(0),,L(STO) STO 4)-1 F1B57140 20171 0 06205 0 06171 PZE P(,,DECMI1 F1B57150 BINARY CARD NO. 9F140237 20172 0020 00 2 00001 TRA 1,2 F1B57160 F1B57170 SUBROUTINE TO COMPILE SEQUENCE TO MOVE AC TO MQ. F1B57180 20173 0074 00 4 04251 CPACMQ TSX CIT00,4 F1B57190 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 166 * SECTION ONE PASS TWO * RECORD 9F14 * 20174 0 06245 0 05120 PZE L(0),,L(LDQ) LDQ 4) F1B57200 20175 0 05120 0 06171 PZE P(,,L(0) F1B57210 20176 0074 00 4 04251 TSX CIT00,4 F1B57220 20177 0 06265 0 05120 PZE L(0),,L(STQ) STQ 4)-2 F1B57230 20200 0 06207 0 06171 PZE P(,,DECMI2 F1B57240 20201 0074 00 4 04251 TSX CIT00,4 F1B57250 20202 0 06245 0 05120 PZE L(0),,L(LDQ) LDQ 4)-1 F1B57260 20203 0 06205 0 06171 PZE P(,,DECMI1 F1B57270 20204 0074 00 4 04251 TSX CIT00,4 F1B57280 20205 0 06265 0 05120 PZE L(0),,L(STQ) STQ 4)-3 F1B57290 20206 0 20326 0 06171 PZE P(,,DECMI3 F1B57300 20207 0020 00 2 00001 TRA 1,2 F1B57310 F1B57320 SUBROUTINE TO COMPILE SEQUENCE TO MOVE MQ TO AC. F1B57330 20210 0074 00 4 04251 CPMQAC TSX CIT00,4 F1B57340 20211 0 06227 0 05120 PZE L(0),,L(CLA) CLA 4)-2 F1B57350 20212 0 06207 0 06171 PZE P(,,DECMI2 F1B57360 20213 0074 00 4 04251 TSX CIT00,4 F1B57370 20214 0 06264 0 05120 PZE L(0),,L(STO) STO 4) F1B57380 20215 0 05120 0 06171 PZE P(,,L(0) F1B57390 20216 0074 00 4 04251 TSX CIT00,4 F1B57400 20217 0 06227 0 05120 PZE L(0),,L(CLA) CLA 4)-3 F1B57410 BINARY CARD NO. 9F140238 20220 0 20326 0 06171 PZE P(,,DECMI3 F1B57420 20221 0074 00 4 04251 TSX CIT00,4 F1B57430 20222 0 06264 0 05120 PZE L(0),,L(STO) STO 4)-1 F1B57440 20223 0 06205 0 06171 PZE P(,,DECMI1 F1B57450 20224 0020 00 2 00001 TRA 1,2 F1B57460 F1B57470 SUBROUTINE TO COMPILE THE DP SEQUENCE FOR FAD F1B57480 20225 0500 00 0 20317 CPDFAD CLA (DFAD) GET NAME OF SUBROUTINE F1B57490 20226 0601 00 0 05604 STO G AND PREPARE TO ENTER IT IN CLOSUB TABLE. F1B57500 20227 -0520 00 0 20231 NZT *+2 TEST WHETHER FIRST TIME THIS CALLING F1B57510 20230 0020 00 0 20274 TRA DPSUB2 NOT FIRST TIME, SKIP CLOSUB ENTRY. F1B57520 20231 0600 00 0 20231 STZ * FIRST TIME, RESET TEST FOR ALL LATER TIMES.F1B57530 20232 0020 00 0 20270 TRA DPSUB1 FIRST TIME, MAKE CLOSUB ENTRY F1B57540 F1B57550 SUBROUTINE TO COMPILE THE DP SEQUENCE FOR FSB F1B57560 20233 0500 00 0 20320 CPDFSB CLA (DFSB) GET NAME OF SUBROUTINE F1B57570 20234 0601 00 0 05604 STO G AND PREPARE TO ENTER IT IN CLOSUB TABLE. F1B57580 20235 -0520 00 0 20237 NZT *+2 TEST WHETHER FIRST TIME THIS CALLING F1B57590 20236 0020 00 0 20274 TRA DPSUB2 NOT FIRST TIME, SKIP CLOSUB ENTRY. F1B57600 20237 0600 00 0 20237 STZ * FIRST TIME, RESET TEST FOR ALL LATER TIMES.F1B57610 20240 0020 00 0 20270 TRA DPSUB1 FIRST TIME, MAKE CLOSUB ENTRY F1B57620 F1B57630 SUBROUTINE TO COMPILE THE DP SEQUENCE FOR FMP F1B57640 20241 0500 00 0 20321 CPDFMP CLA (DFMP) GET NAME OF SUBROUTINE F1B57650 20242 0601 00 0 05604 STO G AND PREPARE TO ENTER IT IN CLOSUB TABLE. F1B57660 20243 -0520 00 0 20245 NZT *+2 TEST WHETHER FIRST TIME THIS CALLING F1B57670 20244 0020 00 0 20274 TRA DPSUB2 NOT FIRST TIME, SKIP CLOSUB ENTRY. F1B57680 20245 0600 00 0 20245 STZ * FIRST TIME, RESET TEST FOR ALL LATER TIMES.F1B57690 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 167 * SECTION ONE PASS TWO * RECORD 9F14 * BINARY CARD NO. 9F140239 20246 0020 00 0 20270 TRA DPSUB1 FIRST TIME, MAKE CLOSUB ENTRY F1B57700 F1B57710 SUBROUTINE TO COMPILE THE DP SEQUENCE FOR FDP F1B57720 20247 0500 00 0 20322 CPDFDP CLA (DFDP) GET NAME OF SUBROUTINE F1B57730 20250 0601 00 0 05604 STO G AND PREPARE TO ENTER IT IN CLOSUB TABLE. F1B57740 20251 -0520 00 0 20253 NZT *+2 TEST WHETHER FIRST TIME THIS CALLING F1B57750 20252 0020 00 0 20274 TRA DPSUB2 NOT FIRST TIME, SKIP CLOSUB ENTRY. F1B57760 20253 0600 00 0 20253 STZ * FIRST TIME, RESET TEST FOR ALL LATER TIMES.F1B57770 20254 0020 00 0 20270 TRA DPSUB1 FIRST TIME, MAKE CLOSUB ENTRY F1B57780 F1B57790 SUBROUTINE TO COMPILE THE CA SEQUENCE FOR FDP F1B57800 20255 0500 00 0 20323 CPIFMP CLA (IFMP) GET NAME OF SUBROUTINE F1B57810 20256 0601 00 0 05604 STO G AND PREPARE TO ENTER IT IN CLOSUB TABLE. F1B57820 20257 -0520 00 0 20261 NZT *+2 TEST WHETHER FIRST TIME THIS CALLING F1B57830 20260 0020 00 0 20274 TRA DPSUB2 NOT FIRST TIME, SKIP CLOSUB ENTRY. F1B57840 20261 0600 00 0 20261 STZ * FIRST TIME, RESET TEST FOR ALL LATER TIMES.F1B57850 20262 0020 00 0 20270 TRA DPSUB1 FIRST TIME, MAKE CLOSUB ENTRY F1B57860 F1B57870 SUBROUTINE TO COMPILE THE CA SEQUENCE FOR FMP F1B57880 20263 0500 00 0 20324 CPIFDP CLA (IFDP) GET NAME OF SUBROUTINE F1B57890 20264 0601 00 0 05604 STO G AND PREPARE TO ENTER IT IN CLOSUB TABLE. F1B57900 20265 -0520 00 0 20267 NZT *+2 TEST WHETHER FIRST TIME THIS CALLING F1B57910 20266 0020 00 0 20274 TRA DPSUB2 NOT FIRST TIME, SKIP CLOSUB ENTRY. F1B57920 20267 0600 00 0 20267 STZ * FIRST TIME, RESET TEST FOR ALL LATER TIMES.F1B57930 F1B57940 COMMON PART OF SUBROUTINE FOR ABOVE SIX ENTRIES... F1B57950 20270 0634 00 1 20273 DPSUB1 SXA *+3,1 F1B57960 20271 0074 00 1 04405 TSX TET00,1 F1B57970 20272 0 00000 0 00011 PZE 9 F1B57980 20273 0774 00 1 00000 AXT ..,1 F1B57990 F1B58000 BINARY CARD NO. 9F140240 20274 0020 00 0 20625 DPSUB2 TRA PCH8 GO SAVE CURRENT OPERATION NAME $F1B58010 20275 0340 00 0 20316 CAS TRAPCL COMPARE TO LAST NAME IN LOC. 2 F1B58020 20276 0020 00 0 20300 TRA *+2 F1B58030 20277 0020 00 0 20307 TRA DPSUB4 SAME NAME, DO NOT COMPILE CAL (...), SLW 2F1B58040 20300 0601 00 0 20316 STO TRAPCL DIFFERENT NAME, CHANGE INDICATOR F1B58050 20301 0074 00 4 04251 TSX CIT00,4 F1B58060 20302 0 06227 0 05120 PZE L(0),,L(CLA) $F1B58070 20303 0 05120 0 05604 PZE G,,L(0) F1B58080 20304 0074 00 4 04251 TSX CIT00,4 F1B58090 20305 0 06264 0 05120 PZE L(0),,L(STO) $F1B58100 20306 0 06145 0 05120 PZE L(0),,2E19 F1B58110 20307 0074 00 4 04251 DPSUB4 TSX CIT00,4 F1B58120 20310 0 06266 0 05120 PZE L(0),,L(STR) F1B58130 20311 0 65444 0 65443 PZE CW+2,,CW+3 F1B58140 20312 0074 00 4 04251 TSX CIT00,4 F1B58150 20313 0 06257 0 05120 PZE L(0),,L(PZE) F1B58160 20314 0 20325 0 65443 PZE CW+2,,DPCW F1B58170 20315 0020 00 2 00001 TRA 1,2 SEQUENCE HAS BEEN COMPILED. F1B58180 F1B58190 20316 0 00000 0 00000 TRAPCL PZE 0 INDICATOR OF CONTENTS OF LOC. 2 F1B58200 20317 742426212434 (DFAD) BCD 1(DFAD) F1B58210 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 168 * SECTION ONE PASS TWO * RECORD 9F14 * 20320 742426622234 (DFSB) BCD 1(DFSB) F1B58220 20321 742426444734 (DFMP) BCD 1(DFMP) F1B58230 BINARY CARD NO. 9F140241 20322 742426244734 (DFDP) BCD 1(DFDP) F1B58240 20323 743126444734 (IFMP) BCD 1(IFMP) F1B58250 20324 743126244734 (IFDP) BCD 1(IFDP) F1B58260 F1B58270 20325 0 00000 0 00000 DPCW PZE F1B58280 20326 -0 00003 0 00000 DECMI3 MZE ,,3 F1B58290 F1B58300 SUBROUTINE TO COMPILE SEQUENCE TO SET UP AN ARGUMENT FOR F1B58310 EITHER ARITHMETIC STATEMENT FUNCTIONS OR FOR CLOSED (LIBRARY)F1B58320 FUNCTIONS. F1B58330 F1B58340 20327 -0754 00 0 00000 CPDARG ZAC (22)F1B58350 20330 0560 00 1 65463 LDQ SCRIPL+2,1 OBTAIN OPERAND (22)F1B58360 20331 -0763 00 0 00001 LGL 1 (22)F1B58370 20332 0760 00 0 00001 LBT TEST FOR VARIABLE (22)F1B58380 20333 0162 00 0 20511 TQP DARG03 LEVEL NUMBER (22)F1B58390 20334 -0763 00 0 00005 LGL 5 VARIABLE, TEST TYPE (22)F1B58400 20335 0340 00 0 05140 CAS L(H) (26)F1B58410 20336 0340 00 0 05143 CAS L(O) (26)F1B58420 20337 0020 00 0 20342 TRA DARGFL FLOATING (22)F1B58430 20340 0020 00 0 20342 TRA DARGFL FLOATING (22)F1B58440 20341 0020 00 0 17576 TRA DARGFX FIXED (22)F1B58450 20342 0074 00 4 04251 DARGFL TSX CIT00,4 MOVE HIGH ORDER (REAL) PART (22)F1B58460 20343 0 06227 0 65441 CW,,L(CLA) (22)F1B58470 20344 0 65444 0 65443 CW+2,,CW+3 (22)F1B58480 20345 0074 00 4 04251 TSX CIT00,4 (22)F1B58490 20346 0 06264 0 05120 L(0),,L(STO) (22)F1B58500 20347 0 20433 0 65437 ARGORG,,COUNT1 (22)F1B58510 BINARY CARD NO. 9F140242 20350 0074 00 4 04251 TSX CIT00,4 MOVE LOW ORDER (IMAGINARY) PART (22)F1B58520 20351 0 06227 0 05120 L(0),,L(CLA) (22)F1B58530 20352 0 20325 0 65443 CW+2,,DPCW (22)F1B58540 20353 0074 00 4 04251 TSX CIT00,4 (22)F1B58550 20354 0 06264 0 05120 L(0),,L(STO) (22)F1B58560 20355 0 20434 0 65437 ARGORG,,COUNT2 (22)F1B58570 REENTRY TO UPDATE ARGUMENT COUNT CELLS (22)F1B58580 20356 -0500 00 0 20433 DARG02 CAL COUNT1 F1B58590 20357 0400 00 0 06145 ADD 2E19 F1B58600 20360 0602 00 0 20433 SLW COUNT1 F1B58610 20361 -0500 00 0 20434 CAL COUNT2 F1B58620 20362 0400 00 0 06145 ADD 2E19 F1B58630 20363 0602 00 0 20434 SLW COUNT2 F1B58640 20364 0020 00 2 00001 TRA 1,2 F1B58650 F1B58660 SUBROUTINE TO COMPILE STZ IN LEAST SIGN) (REAL) PART. F1B58670 20365 0074 00 4 04251 CPSTZ1 TSX CIT00,4 F1B58680 20366 0 06267 0 05120 PZE L(0),,L(STZ) F1B58690 20367 0 65444 0 65443 PZE CW+2,,CW+3 F1B58700 20370 0020 00 2 00001 TRA 1,2 F1B58710 F1B58720 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 169 * SECTION ONE PASS TWO * RECORD 9F14 * SUBROUTINE TO COMPILE CLA OF MOST SIGN) (REAL) AC. F1B58730 20371 0074 00 4 04251 CPCLA1 TSX CIT00,4 F1B58740 20372 0 06227 0 05120 PZE L(0),,L(CLA) F1B58750 20373 0 05120 0 06171 PZE P(,,L(0) F1B58760 20374 0020 00 2 00001 TRA 1,2 F1B58770 F1B58780 SUBROUTINE TO COMPILE CLA OF MOST SIGN. (REAL) PART OF MQ. F1B58790 20375 0074 00 4 04251 CPCLA2 TSX CIT00,4 F1B58800 BINARY CARD NO. 9F140243 20376 0 06227 0 05120 PZE L(0),,L(CLA) F1B58810 20377 0 06207 0 06171 PZE P(,,DECMI2 F1B58820 20400 0020 00 2 00001 TRA 1,2 F1B58830 F1B58840 SUBROUTINE TO COMPILE SEQUENCE TO FIX A FLOATING POINT RESULTF1B58850 20401 0074 00 4 04251 CPFIX TSX CIT00,4 F1B58860 20402 0 06277 0 05120 PZE L(0),,L(UFA) F1B58870 20403 0 05120 0 06172 PZE O(,,L(0) F1B58880 20404 0074 00 4 04251 TSX CIT00,4 F1B58890 20405 0 06247 0 05120 PZE L(0),,L(LRS) F1B58900 20406 0 05120 0 05120 PZE L(0),,L(0) F1B58910 20407 0074 00 4 04251 TSX CIT00,4 F1B58920 20410 0 06222 0 05120 PZE L(0),,L(ANA) F1B58930 20411 0 05152 0 06172 PZE O(,,2E18 F1B58940 20412 0074 00 4 04251 TSX CIT00,4 F1B58950 20413 0 06246 0 05120 PZE L(0),,L(LLS) F1B58960 20414 0 05120 0 05120 PZE L(0),,L(0) F1B58970 20415 0074 00 4 04251 TSX CIT00,4 F1B58980 20416 0 06221 0 05120 PZE L(0),,L(ALS) F1B58990 20417 0 06161 0 05120 PZE L(0),,DEC18 F1B59000 20420 0020 00 2 00001 TRA 1,2 F1B59010 F1B59020 SUBROUTINE TO COMPILE FLOATING SEQUENCE F1B59030 20421 0074 00 4 04251 CFLOAT TSX CIT00,4 F1B59040 20422 0 06247 0 05120 PZE L(0),,L(LRS) F1B59050 20423 0 06161 0 05120 PZE L(0),,DEC18 F1B59060 BINARY CARD NO. 9F140244 20424 0074 00 4 04251 TSX CIT00,4 F1B59070 20425 0 06253 0 05120 PZE L(0),,L(ORA) F1B59080 20426 0 05120 0 06172 PZE O(,,L(0) F1B59090 20427 0074 00 4 04251 TSX CIT00,4 F1B59100 20430 0 06237 0 05120 PZE L(0),,L(FAD) F1B59110 20431 0 05120 0 06172 PZE O(,,L(0) F1B59120 20432 0020 00 2 00001 TRA 1,2 F1B59130 20433 0 00000 0 00000 COUNT1 PZE 0 F1B59140 20434 0 00000 0 00000 COUNT2 PZE 0 F1B59150 F1B59160 SUBROUTINE TO COMPILE SEQUENCE FOR DABS FUNCTION F1B59170 20435 0074 00 4 04251 CPDABS TSX CIT00,4 F1B59180 20436 0 06227 0 05120 PZE L(0),,L(CLA) F1B59190 20437 0 05120 0 06171 PZE P(,,L(0) F1B59200 20440 0074 00 4 04251 TSX CIT00,4 F1B59210 20441 0 06262 0 05120 PZE L(0),,L(SLW) F1B59220 20442 0 05120 0 06171 PZE P(,,L(0) F1B59230 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 170 * SECTION ONE PASS TWO * RECORD 9F14 * 20443 0074 00 4 04251 TSX CIT00,4 F1B59240 20444 0 06227 0 05120 PZE L(0),,L(CLA) F1B59250 20445 0 06205 0 06171 PZE P(,,DECMI1 F1B59260 20446 0074 00 4 04251 TSX CIT00,4 F1B59270 20447 0 06262 0 05120 PZE L(0),,L(SLW) F1B59280 20450 0 06205 0 06171 PZE P(,,DECMI1 F1B59290 20451 0020 00 0 17541 TRA ES000D F1B59300 F1B59310 SUBROUTINE TO COMPILE SEQUENCE FOR DSIGN FUNCTION F1B59320 OR ISIGN FUNCTION. F1B5932A F1B5932B BINARY CARD NO. 9F140245 20452 -0625 00 0 20454 CISIGN STL CAFLG SET SWITCH TO COMPILE ISIGN. F1B5932C 20453 0020 00 0 20456 TRA CDSIGN+1 F1B5932D F1B5932E 20454 0 00000 0 00000 CAFLG PZE ** CA OR DP FLAG. F1B5932F F1B5932G 20455 0600 00 0 20454 CDSIGN STZ CAFLG SET SWITCH TO COMPILE DSIGN. F1B5932H 20456 0074 00 4 04251 TSX CIT00,4 F1B59330 20457 0 06227 0 05120 PZE L(0),,L(CLA) F1B59340 20460 0 05120 0 06171 PZE P(,,L(0) F1B59350 20461 0074 00 4 04251 TSX CIT00,4 F1B59360 20462 0 06245 0 05120 PZE L(0),,L(LDQ) F1B59370 20463 0 06207 0 06171 PZE P(,,DECMI2 F1B59380 20464 0074 00 4 04251 TSX CIT00,4 F1B59390 20465 0 06246 0 05120 PZE L(0),,L(LLS) F1B59400 20466 0 05120 0 05120 PZE L(0),,L(0) F1B59410 20467 0074 00 4 04251 TSX CIT00,4 F1B59420 20470 0 06264 0 05120 PZE L(0),,L(STO) F1B59430 20471 0 05120 0 06171 PZE P(,,L(0) F1B59440 20472 -0520 00 0 20454 NZT CAFLG IS THIS COMPLEX OR DP. F1B59441 20473 0020 00 0 20477 TRA *+4 DOUBLE PRECISION. F1B59442 20474 0074 00 4 04251 TSX CIT00,4 COMPLEX. F1B59443 20475 0 06245 0 05120 PZE L(0),,L(LDQ) F1B59444 20476 0 20326 0 06171 PZE P(,,DECMI3 F1B59445 20477 0074 00 4 04251 TSX CIT00,4 F1B59450 BINARY CARD NO. 9F140246 20500 0 06227 0 05120 PZE L(0),,L(CLA) F1B59460 20501 0 06205 0 06171 PZE P(,,DECMI1 F1B59470 20502 0074 00 4 04251 TSX CIT00,4 F1B59480 20503 0 06246 0 05120 PZE L(0),,L(LLS) F1B59490 20504 0 05120 0 05120 PZE L(0),,L(0) F1B59500 20505 0074 00 4 04251 TSX CIT00,4 F1B59510 20506 0 06264 0 05120 PZE L(0),,L(STO) F1B59520 20507 0 06205 0 06171 PZE P(,,DECMI1 F1B59530 20510 0020 00 0 17541 TRA ES000D F1B59540 F1B59550 F1B59560 F1B59570 20511 0634 00 2 17340 DARG03 SXA DARG05,2 OPERAND IS LEVEL NUMBER (22)F1B59580 20512 0774 00 2 00000 AXT 0,2 FIND MATCHING LEVEL (26)F1B59590 20513 -0534 00 4 22237 LXD 3LBAR,4 (22)F1B59600 20514 -0634 00 2 20515 DARG04 SXD *+1,2 BUMP TO BEGINNING OF (22)F1B59610 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 171 * SECTION ONE PASS TWO * RECORD 9F14 * 20515 1 00000 4 20516 TXI *+1,4,** NEXT LEVEL (22)F1B59620 20516 -0500 00 4 65461 CAL SCRIPL,4 OBTAIN ITS LEVEL NUMBER (22)F1B59630 20517 -0320 00 0 05117 ANA MASK2 ISOLATE IT AND (22)F1B59640 20520 -0340 00 1 65463 LAS SCRIPL+2,1 COMPARE WITH DESIRED (22)F1B59650 20521 0020 00 0 20523 TRA *+2 OPERAND (22)F1B59660 20522 0020 00 0 17340 TRA DARG05 FOUND (22)F1B59670 20523 0734 00 2 00000 PAX ,2 NOT FOUND, OBTAIN SEGMENT (22)F1B59680 20524 0500 00 2 71545 CLA CPBETA,2 LENGTH FROM CORRESPONDING (22)F1B59690 20525 0734 00 2 71545 PAX CPBETA,2 BETA ENTRY, AND THEN (22)F1B59700 BINARY CARD NO. 9F140247 20526 0020 00 0 20514 TRA DARG04 LOOK AT NEXT LEVEL (22)F1B59710 (22)F1B59720 SUBROUTINE TO COMPILE SEQUENCE FOR DFLOAT, IFLOAT IN LINE(22)F1B59730 (22)F1B59740 20527 0074 00 2 20421 CDFLOT TSX CFLOAT,2 COMPILE FLOATING SEQUENCE (22)F1B59750 20530 0074 00 4 04251 TSX CIT00,4 F1B59760 20531 0 06264 0 05120 PZE L(0),,L(STO) F1B59770 20532 0 05120 0 06171 PZE P(,,L(0) F1B59780 20533 0074 00 4 04251 TSX CIT00,4 F1B59790 20534 0 06267 0 05120 PZE L(0),,L(STZ) F1B59800 20535 0 06205 0 06171 PZE P(,,DECMI1 F1B59810 20536 0020 00 0 17541 TRA ES000D F1B59820 F1B59830 F1B59840 SUBROUTINE TO ENTER DOUBLE PRECISION FLOATING POINT CONSTANT F1B59850 IN FLOCON TABLE. F1B59860 F1B59870 THIS ROUTINE ASSUMES THE MOST SIGNIFICANT PART IN G+1, THE F1B59880 LEAST SIGNIFICANT PART IN G. IT SCANS THE FLOCON TABLE AND I F1B59890 NOT FOUND ENTERS AS A TWO WORD ENTRY WITH THE LEAST SIGN. F1B59900 PART FIRST, WHETHER FOUND OR ENTERED IT RETURNS A TAG IN AC F1B59910 WHICH IS THE RELATIVE POSITION OF THE MOST SIGN. PART IN THE F1B59920 TABLE. F1B59930 F1B59940 20537 0634 00 1 20564 DFLCON SXA XR1,1 SAVE INDEX REGISTERS. F1B59950 20540 0634 00 2 20565 SXA XR2,2 F1B59960 20541 0634 00 4 20566 SXA XR4,4 F1B59970 20542 0534 00 3 05120 LXA L(0),3 SET FOR FORWARD SCAN. F1B59980 20543 0500 00 0 05604 CLA G GET LEAST SIGN. PART. F1B59990 20544 -0534 00 4 04155 LXD FLCNIX-2,4 GET AND TEST NUMBER OF ENTRIES IN FLOCON. F1B60000 20545 -3 00000 4 20554 TXL ENFC05,4,0 0 MEANS NO PREVIOUS DP-CA ENTRIES, GO ENTERF1B60010 20546 0340 00 2 00000 ENFC01 CAS **,2 SCAN FLOCON TABLE FOR MATCH TO LEAST SIGN. F1B60020 20547 1 77777 2 20552 TXI *+3,2,-1 PART OF AGRUMENT. F1B60030 20550 1 00001 1 20570 TXI ENFC04,1,1 MATCH FOUND. F1B60040 20551 1 77777 2 20552 TXI *+1,2,-1 NO MATCH, GO TO NEXT ENTRY. F1B60050 20552 1 00001 1 20553 ENFC02 TXI *+1,1,1 KEEP IR1 UPDATED AS TAG TO BE RETURNED. F1B60060 20553 2 00001 4 20546 TIX ENFC01,4,1 TEST FOR LAST ENTRY IN TABLE. F1B60070 BINARY CARD NO. 9F140248 20554 0601 00 2 00000 ENFC05 STO **,2 STORE LEAST SIGN. PART IN FLOCON TABLE. F1B60080 20555 0500 00 0 05605 CLA G+1 F1B60090 20556 0601 00 2 00000 ENFC06 STO **,2 NOW STORE MOST SIGN. PART IN NEXT PLACE. F1B60100 20557 0500 00 0 04155 CLA FLCNIX-2 F1B60110 20560 0400 00 0 06147 ADD 2AND2 F1B60120 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 172 * SECTION ONE PASS TWO * RECORD 9F14 * 20561 0601 00 0 04155 STO FLCNIX-2 F1B60130 20562 1 00001 1 20563 TXI *+1,1,1 READJUST TAG FOR EXIT. F1B60140 20563 0754 00 1 00000 ENFC03 PXA ,1 TAG TO AC. F1B60150 20564 0774 00 1 00000 XR1 AXT **,1 RESTORE INDEX REGISTERS. F1B60170 20565 0774 00 2 00000 XR2 AXT **,2 F1B60180 20566 0774 00 4 00000 XR4 AXT **,4 F1B60190 20567 0020 00 4 00001 TRA 1,4 RETURN TO CALLER. F1B60200 20570 -3 00002 4 20575 ENFC04 TXL ENFC07+3,4,2 *IS THERE ANOTHER ENTRY IN FLOCON, NO. $F1B60210 20571 0500 00 0 05605 CLA G+1 YES, COMPARE MOST MOST SIGNIFICANT PART. F1B60211 20572 0402 00 2 00000 ENFC07 SUB **,2 PART AGAINST NEXT WORD OF FLOCON. F1B60220 20573 0100 00 0 20563 TZE ENFC03 MATCH, THEREFORE THIS DP FLOCON INTABLE, F1B60230 20574 0500 00 0 05604 CLA G NO MATCH, CONTINUE SEARCH. F1B60240 20575 1 77777 2 20553 TXI ENFC02+1,2,-1 F1B60250 F1B60260 F1B60270 END OF ARITHMETIC PROCESSOR. F1B60280 F1B60290 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1B60300 F1B60310 F1B60320 PASS 2/5-PATCH AREA= F1B60330 20576 BEGP2P SYN * BEGINNING OF PASS 2 PATCHING AREA. F1B60340 20576 0600 00 0 20316 P1B00B STZ TRAPCL RESET LAST OP-CODE *F1B60341 20577 -0763 00 0 00007 LGL 7 OP1(S(I)) = SPOP (RESTORE OP) *F1B60342 20600 0020 00 0 17150 TRA CP204D+1 RETURN FROM PATCH *F1B60343 *F1B60344 20601 0600 00 0 65451 CPPCH STZ XCAIND $F1B60345 BINARY CARD NO. 9F140249 20602 0600 00 0 22254 STZ PHI(I) $F1B60346 20603 0020 00 0 15111 TRA CP0000+3 $F1B60347 20604 0500 00 0 13435 PCH1 CLA SIG1ST $F1B60348 20605 0600 00 0 20650 STZ DBRCP SET SWITCH FOR DP OR I ROUTINES $F1B60349 20606 0020 00 0 10775 TRA ARITH+2 $F1B60350 20607 0634 00 4 20611 PCH2 SXA *+2,4 SAVE RETURN FOR CIT00 $F1B60351 20610 0074 00 4 20634 TSX DBCHK,4 PUTS IN LDQ6)+5 STQ2 IF DP OR COMPLEX $F1B60352 20611 0774 00 4 00000 AXT **,4 $F1B60353 20612 0020 00 0 04251 TRA CIT00 $F1B60354 20613 0074 00 1 04405 PCH4 TSX TET00,1 GO TO PROGRAM TO ENTER 1C,1C+1 $F1B60360 20614 0 00000 0 00002 PZE 2 INTO TIFGO TABLE (TABLE 2) $F1B60361 20615 0020 00 0 16061 TRA ES1500+1 $F1B60362 20616 0074 00 4 20634 PCH5 TSX DBCHK,4 GO PUT IN LDQ6)+5 STQ2 IF DP OR COMPLEX $F1B60368 20617 0020 00 2 00001 TRA 1,2 $F1B60369 F1B60370 20620 3 00000 4 17722 PCH7 TXH ES130D,4,0 YES WILL TRA NO WILL NOP $F1B60373 20621 0601 00 0 20647 STO DBSAC SAVE AC $F1B60374 20622 0074 00 4 20634 TSX DBCHK,4 COMPILE LDQ6)+5 STQ2 IF NECESSARY $F1B60375 20623 0500 00 0 20647 CLA DBSAC RESTORE AND CONTINUE $F1B60376 20624 0020 00 0 17651 TRA ES016D+11 $F1B60377 20625 0500 00 0 05604 PCH8 CLA G GET CURRENT OPERATION NAME $F1B60378 20626 -0625 00 0 20650 STL DBRCP SET NON ZERO FOR DP OR I ROUTINES $F1B60379 20627 0020 00 0 20275 TRA DPSUB2+1 $F1B60380 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 173 * SECTION ONE PASS TWO * RECORD 9F14 * BINARY CARD NO. 9F140250 20630 0074 00 4 04251 PCH9 TSX CIT00,4 COMPILE $F1B60381 20631 0 06271 0 65441 PZE CW,,L(SXD) SXD 6)+4,4 $F1B60382 20632 0 06156 0 06172 PZE O(,,D4A4 $F1B60383 20633 0020 00 2 00001 TRA 1,2 $F1B60390 20634 -0520 00 0 20650 DBCHK NZT DBRCP SEE IF ANY DP OR I ROUTINES WERE COMPILED$F1B60392 20635 0020 00 4 00001 TRA 1,4 NO $F1B60393 20636 0634 00 4 20645 SXA DBRTN,4 $F1B60400 F1B60410 20637 0074 00 4 04251 TSX CIT00,4 COMPILE $F1B60419 20640 0 06245 0 05120 PZE L(0),,L(LDQ) LDQ 6)+5 $F1B60420 20641 0 06153 0 06172 PZE O(,,DEC5 $F1B60421 20642 0074 00 4 04251 TSX CIT00,4 COMPILE $F1B60422 20643 0 06265 0 05120 PZE L(0),,L(STQ) STQ 2 $F1B60423 20644 0 06146 0 05120 PZE L(0),,D2 $F1B60424 20645 0774 00 4 00000 DBRTN AXT **,4 $F1B60425 20646 0020 00 4 00001 TRA 1,4 $F1B60426 20647 0 00000 0 00000 DBSAC PZE SAVE AC $F1B60427 20650 0 00000 0 00000 DBRCP PZE $F1B60429 20651 0074 00 4 04251 PCH10 TSX CIT00,4 COMPILE $F1B6042A 20652 0 06271 0 65441 PZE CW,,L(SXD) SXD 7),4 $F1B6042B 20653 0 05124 0 06173 PZE X(,,L(4) $F1B6042C 20654 0020 00 2 00001 TRA 1,2 $F1B6042D 20655 0767 00 0 00004 1D1P ALS 4 TAKE RESULT $F1B60430 BINARY CARD NO. 9F140251 20656 0771 00 0 00004 ARS 4 MODULO 32,768 $F1B60431 20657 0601 00 0 22247 STO GTAG $F1B60432 20660 0020 00 0 06566 TRA 1D1+2 RETURN FROM PATCH AREA $F1B60433 20661 -0625 00 0 20746 PFTAG STL ACFTG SET SWITCH FOR ARITH. (23)F1B60434 20662 0020 00 0 20604 TRA PCH1 (23)F1B60435 20663 0774 00 4 10120 LSCP AXT NXS,4 $F1B60436 20664 0634 00 4 10543 SXA CMASW,4 $F1B60437 20665 -0500 00 0 10316 CAL SPC4 $F1B60438 20666 -0760 00 0 00003 SSM $F1B60439 20667 0601 00 0 10316 STO SPC4 $F1B6043A 20670 0600 00 0 22247 STZ GTAG CLEAR GENERALIZED TAG. $F1B6043B 20671 0020 00 0 10116 TRA LSC $F1B6043C 20672 -0500 00 1 65465 EXPCH CAL SCRIPL+4,A $F1B6043D 20673 0322 00 0 06214 ERA STRSTR $F1B6043E 20674 -0320 00 0 20706 ANA EXPCH2 IS SECOND OP ** $F1B6043F 20675 -0100 00 0 20704 TNZ EXPCH1 TRA IF NOT - NO ERROR $F1B6043G 20676 -0500 00 1 65470 CAL SCRIPL+7,A $F1B6043H 20677 0322 00 0 06214 ERA STRSTR $F1B6043I 20700 -0320 00 0 20706 ANA EXPCH2 IS THIRD OP ** $F1B6043J 20701 -0100 00 0 20704 TNZ EXPCH1 TRA IF NOT - NO ERROR $F1B6043K 20702 3 77770 4 20704 TXH EXPCH1,C,-8 ARE THERE THREE OPS IN SEGMENT $F1B6043L 20703 0074 00 4 04504 ER0082 TSX DIAG,4 YES, DOUBLE EXPONENTIATION ERROR $F1B6043M BINARY CARD NO. 9F140252 20704 -0500 00 1 65463 EXPCH1 CAL SCRIPL+2,A $F1B6043N 20705 0020 00 0 14274 TRA PL0680+2 $F1B6043O 20706 -377700000000 EXPCH2 OCT 777700000000 $F1B6043P 20707 0500 00 0 04521 ARITH1 CLA MODECL CHECK FOR CA MODE $F1B60440 20710 0402 00 0 05141 SUB L(I) $F1B60441 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 174 * SECTION ONE PASS TWO * RECORD 9F14 * 20711 0100 00 0 20714 TZE ARITH2 $F1B60442 20712 -0500 00 0 04200 CAL TXHOP NOT CA MODE $F1B60443 20713 0020 00 0 20715 TRA *+2 $F1B60444 20714 -0500 00 0 04174 ARITH2 CAL TXLOP CA MODE, DO NOT SCAN FOR ILLEGAL COMMA $F1B60445 20715 0630 00 0 20717 STP CMPCH $F1B60446 20716 0020 00 0 20661 TRA PFTAG TO SET ARITH COMPILER SWITCH. (23)F1B60447 $F1B60448 20717 3 00000 0 20731 CMPCH TXH CMPCH1+2,0,0 TRANSFER IF CA MODE $F1B6044C 20720 0774 00 2 00000 AXT 0,2 INITIALIZE XR2 $F1B6044D 20721 1 00003 1 20722 TXI *+1,1,3 BUMP BACK TO LAST ENTRY IN IN LAMBDA TBL $F1B6044E 20722 -3 00000 1 20724 TXL *+2,1,0 TABLE EXHAUSTED,NO FUNCTION AT LEVEL $F1B6044F 20723 0340 00 1 61375 CAS LAMBDA,1 SEARCH FOR MATCHING LEVEL $F1B6044G 20724 0020 00 0 05202 TRA ER0002 HIGHER LEVEL FOUND,NO FUNCTION AT LEVEL $F1B6044H 20725 1 00001 2 20727 TXI CMPCH1,2,1 SAME LEVEL FOUND-CHECK FOR FUNCTION $F1B6044I 20726 0020 00 0 20720 TRA CMPCH+1 NOT FOUND, LOOK HIGHER IN TABLE $F1B6044J 20727 -3 00001 2 20721 CMPCH1 TXL CMPCH+2,2,1 TRA IF THIS NOT DUPLICATE ENTRY $F1B6044K 20730 -0534 00 1 22237 LXD 3LBAR,1 DUPLICATE ENTRY AT SAME LEVEL FOUND $F1B6044L 20731 -0500 00 0 06211 CAL ADSPOP COMMA SEPARATES FUNCTION ARGUMENTS-OK $F1B6044M BINARY CARD NO. 9F140253 20732 0020 00 0 11237 TRA MS210+6 RETURN $F1B6044N 20733 0140 00 0 20734 PDFN2 TOV *+1 TURN OFF OVERFLOW. (20)F1B6044O 20734 0162 00 0 12722 TQP DFN3 TO THE RIGHT OR TO THE LEFT OF DP. (20)F1B6044P 20735 0020 00 0 12652 TRA DFN2+2 RETURN. (20)F1B6044Q 20736 -0535 00 1 04002 CFTAG LDC INTETE-3,1 COUNT OF WORDS IN FORTAG (23)F1B60450 20737 -3 00000 1 20743 TXL *+4,1,0 BUFFER.. IS IT ZERO (23)F1B60451 20740 -0500 00 1 40503 CAL FRTGBF-1,1 NO, COMPARE LAST ENTRY (23)F1B60452 20741 0322 00 0 05604 ERA G WITH NEW ONE (23)F1B60453 20742 0100 00 2 00001 TZE 1,2 SAME (23)F1B60454 20743 0074 00 1 04405 TSX TET00,1 NO, MAKE FORTAG ENTRY (23)F1B60455 20744 0 00000 0 00004 PZE 4 (23)F1B60456 20745 0020 00 2 00001 TRA 1,2 (23)F1B60457 20746 0 00000 0 00000 ACFTG ** FLAG FOR ARITHMETIC COMPILATION (23)F1B60458 20747 0600 00 0 20746 ES1595 STZ ACFTG RESET ARITHMETIC COMPILER FLAG (23)F1B60459 20750 0100 00 0 06323 TZE PASS2 WAS AN EXTRA IFN GENERATED (23)F1B6045A 20751 0020 00 0 16070 TRA ES1590+3 YES, ENTER IN CALLFN TABLE (23)F1B6045B 20752 -0754 00 4 00000 CP5221 PXD 0,C STORE SUPP IFN (23)F1B6045C 20753 0602 00 0 16204 SLW FNSW2 FOR LATER (23)F1B6045D 20754 0020 00 0 16236 TRA CP5222 (23)F1B6045E 20755 0074 00 4 06476 CP5521 TSX JIF,4 CREATE SUPPLEMENTARY IFN. (23)F1B6045F 20756 0622 00 0 05545 STD 1C KEEP PENDING TIFGO ENTRY UPDATED. (23)F1B6045G 20757 0601 00 0 65435 STO FNSW SIGNAL CALLFN ENTRY NEEDED. (23)F1B6045H BINARY CARD NO. 9F140254 20760 0020 00 0 16261 TRA CP5520+3 (23)F1B6045I 20761 -0120 00 0 20025 ACDP08 TMI ACDP05 *YES (25)F1B6045J 20762 -0500 00 0 65443 CAL CW+2 GET VARIABLE NAME. (25)F1B6045K 20763 0771 00 0 00036 ARS 30 (25)F1B6045L 20764 0340 00 0 05140 CAS L(H) COMPARE WITH H. (25)F1B6045M 20765 0340 00 0 05143 CAS L(O) IF GREATER, COMPARE WITH O. (25)F1B6045N 20766 0020 00 0 20010 TRA ERDP01 FLOATING POINT VARIABLE (25)F1B6045O 20767 0020 00 0 20010 TRA ERDP01 TAKE ERROR EXIT. (25)F1B6045P 20770 0020 00 0 20025 TRA ACDP05 FIXED POINT, OKAY. (25)F1B6045Q 20771 0500 00 0 11157 MS238 CLA MS093 CHECK = SWITCH (29)F1B6045R 20772 -0120 00 0 11025 TMI MS040 NEG OKAY, GO COLLECT SYMBOL (29)F1B6045S SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 175 * SECTION ONE PASS TWO * RECORD 9F14 * 20773 0020 00 0 11534 TRA ER0073 WRONG SIDE GIVE DIAGNOSTIC (29)F1B6045T 20774 0500 00 0 11157 MS239 CLA MS093 TEST = SWITCH (29)F1B6045U 20775 0120 00 0 11534 TPL ER0073 WRONG SIDE GIVE DIAGNOSTIC (29)F1B6045V 20776 0074 00 4 05250 TSX C0190,4 GET NEXT CHARACTER,CHECK EXPONENTIATION(29)F1B6045W 20777 0020 00 0 11313 TRA TRBLKA+2 (29)F1B6045X 21000 0601 00 0 21017 C3302 STO C3303 SAVE ARGUMENT INDICATOR (29)F1B6045Y 21001 -0500 00 0 05552 CAL 1G GET SUBROUTINE NAME (29)F1B6045Z 21002 0602 00 0 05561 SLW E+2 PREPARE FOR TABLE CHECK (29)F1B60460 21003 0074 00 4 05272 TSX DIM1SR,4 CHECK ONE DIMENSIONAL ENTRIES (29)F1B60461 21004 0020 00 0 21006 TRA *+2 NO ENTRY, CHECK TWO DIMENSIONAL TABLE (29)F1B60462 21005 0020 00 0 21013 TRA ER0031 ERROR, SUBROUTINE NAME IS DIMENSIONED (29)F1B60463 BINARY CARD NO. 9F140255 21006 0074 00 4 05276 TSX DIM2SR,4 CHECK TWO DIMENSIONAL ENTRIES (29)F1B60464 21007 0020 00 0 21011 TRA *+2 NO ENTRY, CHECK THREE DIMENSIONAL TABLE(29)F1B60465 21010 0020 00 0 21013 TRA ER0031 ERROR, SUBROUTINE NAME IS DIMENSIONED (29)F1B60466 21011 0074 00 4 05316 TSX DIM3SR,4 CHECK THREE DIMENSIONAL ENTRIES (29)F1B60467 21012 0020 00 0 21014 TRA *+2 NO ENTRY, CONTINUE WITH CALL PROCESSING(29)F1B60468 21013 0074 00 4 04504 ER0031 TSX DIAG,4 WRITE ERROR MESSAGE FOR DIMENSIONED SUB(29)F1B60469 21014 0500 00 0 21017 CLA C3303 RESTORE ARGUMENT INDICATOR (29)F1B6046A 21015 0100 00 0 10000 TZE C3301 NO ARGUMENTS (29)F1B6046B 21016 0020 00 0 07765 TRA C3300+4 CALL STATEMENT HAS ARGUMENTS (29)F1B6046C 21017 0 00000 0 00000 C3303 PZE STORAGE FOR ARGUMENT INDICATOR (29)F1B6046D 21020 0601 00 0 22236 C0501 STO 2H SET 2H FOR SENSE LIGHT (30)F1B6046E 21021 0074 00 2 05214 TSX C0180X,2 OBTAIN LIGHT NO. (30)F1B6046F 21022 0074 00 4 05525 TSX TESTF0,4 CHECK FOR RIGHT PAREN (30)F1B6046G 21023 0500 00 0 05552 CLA 1G CHECK LIGHT NUMBER (30)F1B6046H 21024 0340 00 0 05120 CAS L(0) TO BE SURE THAT IT IS (30)F1B6046I 21025 0340 00 0 05124 CAS L(4) VALID(BETWEEN 1 + 4, INCLUSIVE) (30)F1B6046J 21026 0074 00 4 04504 ER0018 TSX DIAG,4 INVALID LIGHT NUMBER, WRITE DIAGNOSTIC (30)F1B6046K 21027 0761 00 0 00000 NOP (30)F1B6046L 21030 0020 00 0 07502 TRA C0401+3 RETURN TO SENSE LIGHT PROCESSING (30)F1B6046M 21031 BSS 245 ***PATCH SPACE (30)F1B6046N F1B60470 21416 ENDP2P SYN * END OF PASS 2 PATCHING AREA. $F1B60472 $F1B60473 * * * * * * * * * * * * * * * * * * * * * * * * * * * * $F1B60474 $F1B60475 21416 ENDP2C SYN * $F1B60476 $F1B60477 06437 ORG FLTR00 PATCH TO ELIMINATE THE COMPILATION $F1B60478 BINARY CARD NO. 9F14FLOW 06437 0020 00 0 04251 TRA CIT00 OF FLOW TRACING INSTRUCTIONS. (23)F1B6047A SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 176 * SECTION ONE PASS TWO * RECORD 9F14 * F1B60490 SECTION 1 / ERASABLE STORAGE, BUFFERS AND CORE TABLES= F1B60500 F1B60510 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1B60520 F1B60530 ERASABLE USED ONLY BY PASS 2. F1B60540 21416 ORG ENDP2C ORIGIN OF CIT BUFFER. F1B60560 21416 CITBUF SYN * COMPILED INSTRUCTION BUFFER. F1B60570 FIRST ENTRY IN EVERY PROGRAM $F1B60580 BINARY CARD NO. 9F14CIT1 21416 535360606060 BCD 1$$ F1B60590 21417 234321000000 BCD 1CLA000 F1B60600 21420 000000000000 BCD 1000000 $F1B60610 21421 0 00002 0 00000 PZE ,,2 $F1B60620 SECOND ENTRY IN EVERY PROGRAM $F1B60630 21422 000000000000 BCD 1000000 F1B60640 21423 626346000000 BCD 1STO000 F1B60650 21424 060000000000 BCD 1600000 $F1B60660 21425 0 00005 0 00000 PZE ,,5 $F1B60670 ASSUMED THIRD ENTRY $F1B60680 21426 000000000000 BCD 1000000 $F1B60690 21427 234321000000 BCD 1CLA000 $F1B60700 21430 742647633460 BCD 1(FPT) $F1B60710 21431 000000000000 BCD 1000000 $F1B60720 ASSUMED FOURTH ENTRY $F1B60721 21432 000000000000 BCD 1000000 $F1B60722 21433 626346000000 BCD 1STO000 $F1B60723 21434 000000000000 BCD 1000000 $F1B60724 21435 0 00010 0 00000 PZE ,,8 $F1B60725 ASSUMED FIFTH ENTRY $F1B60726 21436 000000000000 BCD 1000000 $F1B60727 21437 626371000000 BCD 1STZ000 $F1B60728 21440 040000000000 BCD 1400000 $F1B60729 21441 -0 00315 0 00000 MZE ,,205 $F1B60730 $F1B60731 21442 BSS CITSIZ-20 $F1B60740 21726 BSS CITSIZ LENGTH OF SECOND CIT BUFFER. F1B60750 22236 ENDCIT SYN * END OF CIT BUFFER. F1B60760 F1B60770 22236 ENDONE BSS 0 RECORD LIMIT FOR PASS TWO. F1B60780 F1B60790 F1B60800 22236 COMERA ORG ENDCIT F1B60810 F1B60820 22236 2H BSS 1 F1B60830 22237 3LBAR BSS 1 STORAGE USED BY ARITHMETIC. F1B60840 22240 ARERAS BSS 1 STORAGE USED BY ARITHMETIC. F1B60850 22241 ARGCTR BSS 1 STORAGE USED BY ARITHMETIC. F1B60860 22242 DIMSAV BSS 1 WORKING STORAGE USED BY SS000. F1B60870 22243 EPSM3 BSS 3 F1B60880 22246 EPS BSS 1 EPSILON - VARIABLE USED BY RA000. F1B60890 22247 GTAG BSS 1 VARIABLE USED BY IOT, RA. F1B60900 22250 I BSS 1 F1B60910 22251 LENGTH BSS 1 F1B60920 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 177 * SECTION ONE PASS TWO * RECORD 9F14 * 22252 NBAR BSS 1 STORAGE USED BY ARITHMETIC. F1B60930 22253 N2 BSS 1 F1B60940 22254 PHI(I) BSS 1 F1B60950 22255 SL BSS 1 F1B60960 22256 SYMBOL BSS 1 WORKING STORAGE USED BY SS000. F1B60970 22257 SYN * END OF ERASABLE COMMON TO STATES A,B,C,D. F1B60980 F1B60990 *************************************************************F1B61000 F1B61010 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 178 * SECTION ONE PASS TWO * RECORD 9F14 * TABLE BUFFER RESERVATIONS. F1B61030 F1B61040 *************************************************************F1B61050 F1B61060 ERASABLE/1-PASS1 SPECIFICATION TABLE BUFFERS= F1B61070 ERASABLE USED ONLY BY PASS 1. F1B61080 F1B61090 16015 ORG TABORG-BFSZ TEMPORARY FORMAT BUFFER. F1B61100 16015 BSS 0 EXTENDS UP TO TABORG. F1B61110 F1B61120 F1B61130 F1B61140 ERASABLE/ PASS 1 AND PASS 2 COMMON TABLE BUFFERS. F1B61150 F1B61160 F1B61170 24671 ORG TABORG ORIGIN FOR TABLE BUFFERS. F1B61180 24671 SIGMA1 BSS SGMASZ SIGMA TABLE. F1B61190 25042 FLCNBF BSS FLCNSZ FLOCON TABLE. F1B61200 30111 DIM1BF BSS DIM1SZ*2 DIM1 TABLE. F1B61210 31405 DIM2BF BSS DIM2SZ*2 DIM2 TABLE. F1B61220 32701 DIM3BF BSS DIM3SZ*3 DIM3 TABLE. F1B61230 34562 DLT1BF BSS DLT1SZ*2 DLST1 TABLE. F1B61240 35170 DLT2BF BSS DLT2SZ DLST2 TABLE. F1B61250 35726 FMTNBF BSS FMTNSZ FMTEFN BUFFER. F1B61260 36205 ENDIBF BSS ENDISZ END TABLE. F1B61270 36251 TRADBF BSS TRADSZ TRAD BUFFER. F1B61280 36603 CALLBF BSS CALLSZ CALLFN BUFFER. F1B61290 37062 FRVLBF BSS FRVLSZ*2 FORVAL BUFFER F1B61300 37470 FRVRBF BSS FRVRSZ*2 FORVAR BUFFER. F1B61310 40504 FRTGBF BSS FRTGSZ FORTAG BUFFER. F1B61320 41521 EQITBF BSS EQITSZ*2 EQUIT BUFFER. F1B61330 42665 FRMTBF BSS FRMTSZ FORMAT STATEMENT BUFFER. F1B61340 43144 SBDFBF BSS SBDFSZ SUBDEF BUFFER. F1B61350 43401 STOPBF BSS STOPSZ TSTOPS BUFFER. F1B61360 43530 NONXBF BSS NONXSZ NONEXC BUFFER. F1B61370 44062 BSS 1 RESERVATION FOR FRET WORD COUNT. F1B61380 44063 TIFGBF BSS TIFGSZ*2 TIFGO BUFFER. F1B61390 45077 CLSBBF BSS CLSBSZ CLOSUB BUFFER. F1B61400 45356 TEIFBF BSS TEIFSZ TEIFNO BUFFER. F1B61410 46373 DOLPBF BSS DOLPSZ*5 TDO BUFFER. F1B61420 47256 CMMNBF BSS CMMNSZ COMMON BUFFER. F1B61430 50552 HLRGBF BSS HLRGSZ HOLARG BUFFER. F1B61440 51031 FRETBF BSS FRETSZ FRET BUFFER. F1B61450 51160 OTHRBF BSS OTHRSZ VARIABLE FOR ADJUSTING BUFFER POSITIONS. F1B61460 51160 TAU1BF BSS TAU1SZ*2 TAU1 TABLE. F1B61470 52454 TAU2BF BSS TAU2SZ*4 TAU2 TABLE. F1B61480 55030 TAU3BF BSS TAU3SZ*6 TAU3 TABLE. F1B61490 60074 FXCNWC BSS 1 WORD COUNT OF FIXCON TABLE. F1B61500 60075 FXCNBF BSS FXCNSZ FIXCON TABLE. F1B61510 60633 ELSEBF BSS ELSESZ VARIABLE FOR ADJUSTING BUFFER POSITIONS. F1B61520 60636 FRSBBF BSS FRSBSZ*2 FORSUB BUFFER. F1B61530 61374 BSS 1 F1B61540 F1B61550 F1B61560 61375 GERASE SYN * F1B61570 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 179 * SECTION ONE PASS TWO * RECORD 9F14 * F1B61580 *************************************************************F1B61590 F1B61600 SECTION I INTERNAL TABLES, BUFFERS AND ERASABLE. F1B61610 F1B61620 *************************************************************F1B61630 F1B61640 F1B61650 61375 ORG GERASE F1B61660 GENERAL ERASABLE AS USED BY STATE A. F1B61670 61375 OP BSS 1 F1B61680 61376 SA BSS 1 F1B61690 61377 RA BSS 1 F1B61700 61400 BIN BSS 1 F1B61710 61401 SYM BSS 1 F1B61720 61410 CHR BES 6 F1B61730 61410 BSS 250 F1B61740 62002 DOLEV BSS 1 F1B61750 62003 TLDOS BSS 1000 DO TABLE USED BY IOT. F1B61760 63753 TLINE BSS 1 F1B61770 63754 SYN * END OF STATE A ERASABLE. F1B61780 F1B61790 *************************************************************F1B61800 F1B61810 GENERAL ERASABLE AS USED BY STATE B. F1B61820 F1B61830 61375 ORG GERASE F1B61840 61375 LAMBDA BSS LAMBSZ LAMBDA TABLE. F1B61850 71545 CBAR BSS 1 F1B61860 71546 ABAR BSS 1 F1B61870 71547 FSTYPE BSS 1 F1B61880 71550 FSBITS BSS 1 F1B61890 71551 FNBITS BSS 1 F1B61900 71552 CHSAVE BSS 1 WORKING STORAGE USED BY ROYCNV. F1B61910 71553 DOE BSS 1 F1B61920 71554 EKE BSS 1 F1B61930 71555 H BSS 1 F1B61940 71556 N BSS 1 F1B61950 71557 ARGREG BSS RGRGSZ ARGREG TABLE. F1B61960 72036 ALPHA BSS ALPHSZ ALPHA TABLE. F1B61970 73004 SYN * END OF STATE B ERASABLE. F1B61980 F1B61990 *************************************************************F1B62000 F1B62010 GENERAL ERASABLE AS USED BY STATE C. F1B62020 F1B62030 65461 ORG GERASE+LAMBSZ-SCRPSZ F1B62040 65461 SCRIPL BSS SCRPSZ OPTIMIZED LAMBDA TABLE. F1B62050 71545 BETA BSS BETASZ BETA TABLE. F1B62060 71545 CPBETA SYN BETA F1B62070 73577 SYN * END OF STATE C ERASABLE. F1B62080 F1B62090 *************************************************************F1B62100 F1B62110 GENERAL ERASABLE AS USED BY STATE D. F1B62120 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 180 * SECTION ONE PASS TWO * RECORD 9F14 * F1B62130 65435 ORG SCRIPL-20 F1B62140 65435 FNSW BSS 1 F1B62150 65436 P(CNTR BSS 1 F1B62160 65437 ARGORG BSS 1 F1B62170 65440 XRSAVE BSS 1 F1B62180 65441 CW BSS 4 F1B62190 65445 TAGWRD BSS 1 F1B62200 65446 OPWORD BSS 1 F1B62210 65447 SYMWRD BSS 1 F1B62220 65450 TAGPRT BSS 1 F1B62230 65451 XCAIND BSS 1 F1B62240 65452 SYN * END OF STATE D ERASABLE. F1B62250 F1B62260 F1B62270 60636 FORSUB SYN FRSBBF FORSUB TABLE ORIGIN CAN ONLY BE DEFINED F1B62280 AT TIME OF ASSEMBLY. F1B62290 F1B62300 F1B62310 OTHER TABLES WHICH CAN ONLY BE DEFINED AT ASSEMBLY F1B62320 TIME ARE ....... ALHPA, BETA, LAMBDA, SCRIPL, AND ANY F1B62330 OTHERS NOT DEFINED BY / OR HANDLED F1B62340 BY A GENERALIZED ROUTINE. F1B62350 F1B62360 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1B62370 F1B62380 END OF SECTION ONE. F1B62390 F1B62400 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F1B62410 BINARY CARD NO. TRA77777 77777 TCD -1 $F1B62420 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 181 * SECTION ONE * DIAGNOSTIC * RECORD 9F15 * SECTION ONE DIAGNOSTIC ROUTINE. F1C00010 F1C00020 F1C00030 F1C00060 00102 ORG SYSCUR $F1C00070 BINARY CARD NO. 9F150000 00102 112601050000 BCI 1,9F1500 $F1C00080 73666 ORG (LODR) $F1C00090 BINARY CARD NO. 9F150001 73666 1 00226 0 61375 TXI DIAG00,,150 ENTRY POINT,,RECORD NUMBER F1C00100 F1C00110 F1C00120 THIS RECORD IS CALLED IN FROM TAPE ONCE FOR EACH ERROR IN F1C00130 SECTION ONE AND ONCE AT THE END OF SECTION ONE. F1C00140 F1C00150 ABS F1C00160 61375 ORG GERASE DIAGNOSTIC OCCUPIES GENERAL ERASABLE. F1C00170 F1C00180 BINARY CARD NO. 9F150002 61375 -0535 00 4 03745 DIAG00 LDC ONLINE,4 F1C00190 61376 3 00000 4 61515 TXH DIAG06,4,0 F1C00200 F1C00210 TERMINAL ROUTINE FOR DIAGNOSTIC. F1C00220 ALSO END OF SECTION ONE WHEN THERE HAS BEEN A SOURCE F1C00230 PROGRAM ERROR. F1C00240 61377 0774 00 1 00003 AXT 3,1 WRITE END OF DIAGNOSTIC COMMENT, F1C00250 61400 0074 00 4 73606 TSX (TAPE),4 AN END-OF-FILE, F1C00260 61401 0 77777 1 61754 PZE DIAGA,1,-1 AND REWIND SCRATCH TAPE. F1C00270 61402 0 00003 0 61760 PZE DLBL,,BUFTAP F1C00280 61403 2 00001 1 61400 TIX *-3,1,1 F1C00290 61404 0074 00 4 73606 TSX (TAPE),4 POSITION INPUT TAPE TO END OF F1C00300 61405 0 20000 0 61755 PZE BSPCF,,(SKBP) SOURCE PROGRAM. F1C00310 61406 0 00002 0 00000 PZE ,,INPUTP F1C00320 61407 0441 60 0 73660 LDI* (FGBX) LOAD MONITOR FLAGS. F1C00330 61410 -0056 00 400000 LNT 400000 IS THIS MONITOR MODE. F1C00340 61411 0020 00 0 61414 TRA *+3 NO, SINGLE COMPILE. F1C00350 61412 -0500 60 0 73661 CAL* (LNCT) YES, GET LINE COUNT AND NUMBER OF F1C00360 61413 -0534 00 1 73651 LXD (PGCT),1 LINES PER PAGE. F1C00370 61414 0074 00 4 73606 DIAG01 TSX (TAPE),4 READ A RECORD FROM THE SCRATCH TAPE. F1C00380 61415 0 40014 0 61756 PZE RDIAG,,(RBEC) F1C00390 61416 0 00003 0 61760 PZE DLBL,,BUFTAP F1C00400 61417 0 00000 0 61470 PZE DIAGER ERROR RETURN. F1C00410 61420 0534 00 4 73675 LXA (SCHU)+BUFTAP,4 GET RESULT OF SCHX. F1C00420 61421 -3 00000 4 61502 TXL DIAG05,4,0 *EOF READ, MESSAGES TRANSFERRED. F1C00430 61422 1 15732 4 61423 TXI *+1,4,-DIGBUF COMPUTE WORD COUNT OF RECORD. F1C00440 BINARY CARD NO. 9F150003 61423 -0634 00 4 61430 SXD DIAG03,4 SET WORD COUNT IN I/O COMMAND. F1C00450 61424 -0634 00 4 62073 SXD DIAGN3,4 $F1C00455 61425 -0520 00 0 03745 DIAG02 NZT ONLINE SHOULD MESSAGE BE PRINTED ON-LINE. F1C00460 61426 0020 00 0 61431 TRA *+3 *NO, JUST WRITE ON OUTPUT TAPE. F1C00470 61427 0074 00 4 73611 TSX (PRNT),4 YES, PRINT ON-LINE. F1C00480 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 182 * SECTION ONE * DIAGNOSTIC * RECORD 9F15 * 61430 0 00000 0 62046 DIAG03 PZE DIGBUF,,** F1C00490 61431 -0056 00 400000 LNT 400000 IS THIS MONITOR MODE. F1C00500 61432 0020 00 0 61456 TRA DIAG04 *NO, WRITE ON INPUT TAPE. F1C00510 F1C00520 61433 -0520 00 0 61435 NZT *+2 IS THIS FIRST LINE OF OUTPUT. F1C00530 61434 0020 00 0 61444 TRA *+8 NO, DO NOT MODIFY. F1C00540 61435 0600 00 0 61435 STZ * YES, RESET SWITCH. F1C00550 61436 0560 00 0 62046 LDQ DIGBUF DELETE PROGRAM CONTROL CHARACTER. F1C00560 61437 -0763 00 0 00006 LGL 6 F1C00570 61440 -0500 00 0 05145 CAL BLANK REPLACE WITH BLANK. F1C00580 61441 -0765 00 0 00006 LGR 6 F1C00590 61442 -0600 00 0 62046 STQ DIGBUF REPLACE FIRST WORD. F1C00600 61443 -0500 60 0 73661 CAL* (LNCT) RESTORE LINE COUNT. F1C00610 61444 0074 00 4 73606 TSX (TAPE),4 YES, WRITE MESSAGES ON MONITOR OUTPUT F1C00620 61445 0 40013 0 62073 PZE DIAGN3,,(WDNC) TAPE. $F1C00630 61446 0 00006 0 00000 PZE ,,MLSTAP F1C00640 61447 0400 00 0 05121 ADD L(1) INCREMENT LINES OUTPUT THIS JOB. F1C00650 61450 2 00001 1 61414 TIX DIAG01,1,1 IS THE PAGE FULL. F1C00660 BINARY CARD NO. 9F150004 61451 -0534 00 1 73651 LXD (PGCT),1 YES, RELOAD NUMBER OF LINES PER PAGE. F1C00670 61452 0074 00 4 73606 TSX (TAPE),4 WRITE PAGE EJECT WORD. F1C00680 61453 0 40003 0 61746 PZE EJECT,,(WDNP) F1C00690 61454 0 00006 0 00000 PZE ,,MLSTAP F1C00700 61455 0020 00 0 61414 TRA DIAG01 GET NEXT LINE. F1C00710 F1C00720 61456 0560 00 0 62046 DIAG04 LDQ DIGBUF REPLACE FIRST CHARACTER WITH BLANK F1C00730 61457 -0763 00 0 00006 LGL 6 BEFORE WRITING LINE ON INPUT TAPE. F1C00740 61460 -0500 00 0 05145 CAL BLANK F1C00750 61461 -0765 00 0 00006 LGR 6 F1C00760 61462 -0600 00 0 62046 STQ DIGBUF SET LINE FOR SINGLE SPACE PRINTING. F1C00770 61463 0074 00 4 73606 TSX (TAPE),4 WRITE LINE ON INPUT TAPE. F1C00780 61464 0 40013 0 62073 PZE DIAGN3,,(WDNC) $F1C00790 61465 0 00002 0 00000 PZE ,,INPUTP F1C00800 61466 0 00000 0 61470 PZE DIAGER ERROR RETURN. F1C00810 61467 0020 00 0 61414 TRA DIAG01 GET NEXT LINE. F1C00820 F1C00830 ENTRY TO TERMINATE DIAGNOSTIC ON MACHINE ERROR. F1C00840 F1C00850 61470 0074 00 4 73611 DIAGER TSX (PRNT),4 PRINT APPROPRIATE COMMENT ABOUT F1C00860 61471 -1 00013 0 62033 IOCT GOOFUP,,11 MACHINE ERROR. $F1C00870 61472 0774 00 4 00002 AXT INPUTP,4 PRESUME SINGLE COMPILE OUTPUT. F1C00880 61473 -0054 00 400000 LFT 400000 IS THIS MONITOR MODE. F1C00890 61474 0774 00 4 00006 AXT MLSTAP,4 YES, LOAD MONITOR OUTPUT TAPE ADDRESS. F1C00900 61475 -0634 00 4 61500 SXD *+3,4 SET TAPE ADDRESS. F1C00910 61476 0074 00 4 73606 TSX (TAPE),4 WRITE COMMENT ON OUTPUT TAPE. F1C00920 BINARY CARD NO. 9F150005 61477 0 40003 0 62074 PZE GFUPMS,,(WDNP) $F1C00930 61500 0 00000 0 00000 PZE ,,** F1C00940 61501 0400 00 0 05121 ADD L(1) INCREMENT LINE COUNT. F1C00950 F1C00960 61502 -0054 00 400000 DIAG05 LFT 400000 IS THIS MONITOR MODE. F1C00970 61503 0621 60 0 73661 STA* (LNCT) YES, SAVE COUNT OF LINES OUTPUT. F1C00980 61504 -0054 00 400000 LFT 400000 IS THIS MONITOR MODE. F1C00990 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 183 * SECTION ONE * DIAGNOSTIC * RECORD 9F15 * 61505 0020 00 0 61511 TRA *+4 YES, NO NEED TO WRITE AN EOF F1C01000 61506 0074 00 4 73606 TSX (TAPE),4 AFTER DIAGNOSTIC MESSAGES ON F1C01010 61507 0 40005 0 00000 PZE ,,(WEFP) INPUT TAPE. F1C01020 61510 0 00002 0 00000 PZE ,,INPUTP F1C01030 61511 0074 00 4 73606 TSX (TAPE),4 REWIND INPUT TAPE. F1C01040 61512 0 20002 0 05074 PZE REWD,,(SKDP) F1C01050 61513 0 00002 0 00000 PZE ,,INPUTP F1C01060 61514 0020 00 0 73643 TRA (SECL) GO TO SOURCE PROGRAM ERROR RECORD. F1C01070 F1C01080 61515 0754 00 4 00000 DIAG06 PXA ,4 SAVE LOCATION OF CALL TO DIAGNOSTIC. F1C01090 61516 0601 00 0 61757 STO OCTNUM F1C01100 61517 -0765 00 0 00017 LGR 15 CONVERT TO BCD FORM FOR PRINTING. F1C01110 61520 0774 00 1 00005 AXT 5,1 LOAD LOOP COUNT. F1C01120 61521 -0500 00 0 05145 CAL BLANK LEAD OFF WITH A BLANK. F1C01130 61522 0767 00 0 00003 ALS 3 F1C01140 61523 -0763 00 0 00003 LGL 3 F1C01150 61524 2 00001 1 61522 TIX *-2,1,1 F1C01160 BINARY CARD NO. 9F150006 61525 0602 00 0 62016 SLW XCOM BE A PESSIMIST, SAVE IN NOT LISTED MESSAGEF1C01170 61526 0520 00 0 03751 ZET DGFLAG IS THIS FIRST CALL TO DIAGNOSTIC. F1C01180 61527 0020 00 0 61542 TRA DIAG07 *NO, SKIP HEADING. F1C01190 F1C01200 F1C01210 61530 0634 00 4 03751 SXA DGFLAG,4 RESET FIRST CALL FLAG. F1C01220 61531 0600 00 0 04507 STZ DGX1 SET TAPE POSITIONING FLAG. F1C01230 61532 0074 00 4 73606 TSX (TAPE),4 REWIND SCRATCH TAPE. F1C01231 61533 0 20000 0 05074 PZE REWD,,(SKBP) F1C01232 61534 0 00003 0 61760 PZE DLBL,,BUFTAP F1C01233 61535 0774 00 1 00003 AXT 3,1 LOAD PARAMETER MODIFIER. F1C01240 61536 0074 00 4 73606 TSX (TAPE),4 WRITE PAGE EJECT, F1C01250 61537 0 40001 1 61751 PZE DIAGHD,1,(WBNP) BLANKS, F1C01260 61540 0 00003 0 61760 PZE DLBL,,BUFTAP AND DIAGNOSTIC HEADING. F1C01270 61541 2 00001 1 61536 TIX *-3,1,1 F1C01280 F1C01290 WRITE OUT THE STATEMENT IN ERROR FROM CURRENT F-REGION. F1C01300 F1C01310 61542 -0534 00 1 04516 DIAG07 LXD DCF,1 LOAD 2S COMPLEMENT OF F-REGION ORIGIN. F1C01320 61543 0500 00 0 04523 CLA FIRST5 MOVE FIRST FIVE CHARACTERS OF STATEMENT F1C01330 61544 0601 00 1 77776 STO -2,1 (MODE INDICATOR AND EFN - IF ANY). F1C01340 61545 -0500 00 0 05155 CAL BLANKS GET A WORD OF BLANKS AND SET FIRST F1C01350 61546 0630 00 1 77776 STP -2,1 CHARACTER OF STATEMENT TO A BLANK. F1C01360 61547 0500 00 0 05155 CLA BLANKS SEPARATE FROM REST OF STATEMENT WITH A F1C01370 61550 0601 00 1 77777 STO -1,1 WORD OF BLANKS TO MAKE IT LOOK PRETTY. F1C01380 61551 -0634 00 1 61561 SXD DIAG08,1 SET -ORIGIN FOR WORD COUNT COMPUTATION. F1C01390 61552 -0500 00 0 05156 CAL ALL1 SEARCH FOR END MARKER. F1C01400 BINARY CARD NO. 9F150007 61553 -0340 00 1 00000 LAS 0,1 LOOK FOR WORD OF ALL BINARY ONES. F1C01410 61554 1 77777 1 61553 TXI *-1,1,-1 NOT END OF STATEMENT, CONTINUE SEARCH. F1C01420 61555 1 77776 1 61557 TXI *+2,1,-2 END OF STATEMENT FOUND. F1C01430 61556 1 77777 1 61553 TXI *-3,1,-1 SAME AS *-2. F1C01440 61557 -0754 00 1 00000 PXD ,1 GET TRUE ADDRESS OF END OF STATEMENT F1C01450 61560 -0737 00 1 00000 PDC ,1 (INCLUDES COUNT OF 2 ADDITIONAL WORDS). F1C01460 61561 1 00000 1 61562 DIAG08 TXI *+1,1,** COMPUTE WORD COUNT OF STATEMENT PLUS F1C01470 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 184 * SECTION ONE * DIAGNOSTIC * RECORD 9F15 * 61562 -0634 00 1 61631 SXD STATE,1 FIRST FIVE PLUS WORD OF BLANKS. F1C01480 61563 -0535 00 4 04516 LDC DCF,4 GET TRUE ORIGIN OF F-REGION. F1C01490 61564 1 77776 4 61565 TXI *+1,4,-2 REDUCE TO INCLUDE FIRST 5 CHARACTERS AND F1C01500 61565 0634 00 4 61631 SXA STATE,4 WORD OF BLANKS. SET PARAMETER. F1C01510 61566 0074 00 4 73606 TSX (TAPE),4 WRITE A LINE OF BLANKS F1C01520 61567 0 40001 0 61747 PZE LOOKS,,(WBNP) FOR APPEARANCE. F1C01530 61570 0 00003 0 61760 PZE DLBL,,BUFTAP F1C01540 F1C01550 F1C01560 THERE ARE TWO FORTRAN LANGUAGE STATEMENTS.. F1C01570 F1C01580 IF(...) N1, N2, N3 AND CALL NAME(ARG1,...,ARGN) F1C01590 F1C01600 WHICH ARE MODIFIED BY SECTION ONE INTO QUASI-ARITHMETIC F1C01610 STATEMENTS IN ORDER TO PROCESS BY THE ARITHMETIC TRANSLATOR. F1C01620 IT IS NOW NECESSARY TO SCAN THE PRESENT STATEMENT FOR EITHER F1C01630 OF THESE AND IF SO CONVERT IT BACK TO ITS ORIGINAL FORM. F1C01640 F1C01650 61571 0074 00 4 05232 TSX C0190X,4 SET SCAN TO FIRST CHARACTER. F1C01660 61572 0074 00 4 05250 TSX C0190,4 MOVE SCAN TO SECOND CHARACTER. F1C01670 61573 -0500 00 0 05610 CAL LEFT+2 TEST FOR IF OR CALL STATEMENT. F1C01680 61574 -0765 00 0 00030 LGR 24 F1C01690 61575 0340 00 0 05151 CAS CALLER IS THIS A CALL STATEMENT. F1C01700 61576 0020 00 0 61600 TRA DIAG11 F1C01710 61577 0020 00 0 61620 TRA DIAG14 YES, GO TO RECONVERT TO ORIGINAL FORM. F1C01720 61600 0402 00 0 05146 DIAG11 SUB IFSYM IS THIS AN IF STATEMENT. F1C01730 BINARY CARD NO. 9F150008 61601 -0100 00 0 61630 TNZ DIAG16 NEITHER, GO PRINT AS IS. F1C01740 61602 0560 00 0 05141 LDQ L(I) F1C01750 61603 0074 00 4 05236 TSX C0390,4 RESTORE I. F1C01760 61604 0560 00 0 05137 LDQ L(F) F1C01770 61605 0074 00 4 05236 TSX C0390,4 RESTORE F. F1C01780 61606 0402 00 0 05111 SUB EQUAL TEST THIRD CHAR FOR EQUAL. F1C01790 61607 -0100 00 0 61630 TNZ DIAG16 NOT EQUAL, STATEMENT GARBLED, PRINT AS IS. F1C01800 61610 0560 00 0 05106 LDQ OPEN F1C01810 61611 0074 00 4 05236 TSX C0390,4 RESTORE ( F1C01820 61612 0020 00 0 61614 TRA DIAG13 F1C01830 61613 0074 00 4 05250 DIAG12 TSX C0190,4 SEARCH FOR ENDMK CHARACTER AND IF FOUND F1C01840 61614 0402 00 0 05105 DIAG13 SUB ENDMK RESTORE TO ) IF NOT FOUND PRINT AS IS. F1C01850 61615 -0100 00 0 61613 TNZ DIAG12 F1C01860 61616 0560 00 0 05110 LDQ CLOS F1C01870 61617 0020 00 0 61627 TRA DIAG15 F1C01880 F1C01890 61620 0560 00 0 05135 DIAG14 LDQ L(C) F1C01900 61621 0074 00 4 05236 TSX C0390,4 RESTORE C. F1C01910 61622 0560 00 0 05133 LDQ L(A) F1C01920 61623 0074 00 4 05236 TSX C0390,4 RESTORE A. F1C01930 61624 0560 00 0 05142 LDQ L(L) F1C01940 61625 0074 00 4 05236 TSX C0390,4 RESTORE FIRST L. F1C01950 61626 0560 00 0 05142 LDQ L(L) F1C01960 BINARY CARD NO. 9F150009 61627 0074 00 4 05236 DIAG15 TSX C0390,4 RESTORE SECOND L. F1C01970 F1C01980 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 185 * SECTION ONE * DIAGNOSTIC * RECORD 9F15 * F1C01990 61630 0074 00 4 61703 DIAG16 TSX WRDG0,4 WRITE STATEMENT ON SCRATCH TAPE. F1C02000 61631 0 00000 0 00000 STATE PZE **,,** F1C02010 F1C02020 61632 0774 00 1 01704 AXT ENDIAG-TABLE,1 SET LOOP SAFETY COUNT. F1C02030 61633 -0774 00 2 62157 AXC TABLE,2 GET TABLE BEGINNING ADDRESS IN IR2. F1C02040 61634 0500 00 0 05154 DIAG17 CLA 1BAR F1C02050 61635 0340 00 2 00000 CAS 0,2 TEST FOR END OF TABLE OF MESSAGES. F1C02060 61636 0020 00 0 61640 TRA DIAG18 F1C02070 61637 0020 00 0 61672 TRA DIAG24 YES, EXIT AND PRINT UNLISTED ERROR MESSAGE.F1C02080 61640 0400 00 0 61757 DIAG18 ADD OCTNUM FORM LABEL OF MESSAGE BEING SEARCHED FOR. F1C02090 61641 0340 00 2 00000 CAS 0,2 F1C02100 61642 1 77777 2 61645 TXI DIAG19,2,-1 NO F1C02110 61643 1 77777 1 61647 TXI DIAG20,1,-1 FOUND, EXIT. F1C02120 61644 1 77777 2 61645 TXI DIAG19,2,-1 NO F1C02130 61645 2 00001 1 61634 DIAG19 TIX DIAG17,1,1 CONTINUE SEARCH IF ANY TABLE REMAINS. F1C02140 61646 0020 00 0 61672 TRA DIAG24 TABLE EXHAUSTED, NO END SIGNAL, EXIT. F1C02150 61647 1 00001 2 61650 DIAG20 TXI *+1,2,1 GET ADDRESS OF MESSAGE MINUS 2 WORDS. F1C02160 61650 -0634 00 2 61670 SXD DIAG23,2 SET FOR WORD COUNT COMPUTATION. F1C02170 61651 -0535 00 4 61670 LDC DIAG23,4 GET TRUE ADDRESS. F1C02180 61652 0634 00 4 61673 SXA COMM,4 SET IN I/O COMMAND. F1C02190 61653 0500 00 0 62016 CLA XCOM GET LOCATION OF CALL. F1C02200 61654 0601 00 2 00000 STO 0,2 INSERT AHEAD OF MESSAGE AND SEPARATE F1C02210 BINARY CARD NO. 9F150010 61655 0500 00 0 05155 CLA BLANKS FROM MESSAGE WITH BLANKS. F1C02220 61656 0601 00 2 00001 STO 1,2 F1C02230 61657 1 77776 2 61661 TXI *+2,2,-2 RESET INDEX AND SEARCH FOR END OF MESSAGE.F1C02240 61660 1 77777 2 61661 DIAG21 TXI *+1,2,-1 SEARCH FOR END OF MESSAGE. F1C02250 61661 -0500 00 2 00000 CAL 0,2 GET NEXT WORD OF MESSAGE AREA. F1C02260 61662 -0320 00 0 05154 ANA 1BAR GET DECREMENT FIELD. F1C02270 61663 0322 00 0 05154 ERA 1BAR IS THIS AN END MARK. F1C02280 61664 0100 00 0 61666 TZE *+2 *YES. F1C02290 61665 2 00001 1 61660 TIX DIAG21,1,1 NO, CONTINUE SEARCH OR QUIT. F1C02300 61666 -0754 00 2 00000 PXD ,2 GET TRUE ADDRESS OF END OF MESSAGE. F1C02310 61667 -0737 00 2 00000 PDC ,2 F1C02320 61670 1 00000 2 61671 DIAG23 TXI *+1,2,** SUBTRACT THE FIRST ADDRESS. F1C02330 61671 -0634 00 2 61673 SXD COMM,2 SET WORD COUNT OF PARAMETER. F1C02340 61672 0074 00 4 61703 DIAG24 TSX WRDG0,4 WRITE MESSAGE ON SCRATCH TAPE. F1C02350 61673 0 00015 0 62016 COMM PZE XCOM,,XXCOM-XCOM PRESET TO NOT LISTED MESSAGE. F1C02360 61674 0074 00 4 73606 TSX (TAPE),4 REPOSITION SYSTEM TAPE IN FRONT OF F1C02370 61675 0 20000 0 05073 PZE BKSP,,(SKBP) DIAGNOSTIC. F1C02380 61676 0 00001 0 00000 PZE ,,SYSTAP F1C02390 61677 -0754 00 0 00000 ZAC SET ERROR FLAG FOR F1C02400 61700 -0760 00 0 00003 SSM INPUT ROUTINE. F1C02410 61701 0601 00 0 04520 STO TLABEL F1C02420 61702 0020 00 0 04245 TRA PASS1 RETURN TO PASS 1 OR PASS 2. F1C02430 F1C02440 BINARY CARD NO. 9F150011 61703 0634 00 1 61740 WRDG0 SXA WRDG3,1 SAVE INDEX REGISTERS. F1C02450 61704 0634 00 2 61741 SXA WRDG3+1,2 F1C02460 61705 0634 00 4 61742 SXA WRDG3+2,4 F1C02470 61706 0500 00 4 00001 CLA 1,4 GET I/O COMMAND (PARAMETERS). F1C02480 61707 -0734 00 1 00000 PDX ,1 LOAD WORD COUNT. F1C02490 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 186 * SECTION ONE * DIAGNOSTIC * RECORD 9F15 * 61710 -3 00000 1 61740 TXL WRDG3,1,0 IS WORD COUNT ZERO. F1C02500 61711 0074 00 4 73606 TSX (TAPE),4 NO, WRITE A LINE OF BLANKS F1C02510 61712 0 40001 0 61747 PZE LOOKS,,(WBNP) FOR APPEARANCE. F1C02520 61713 0 00003 0 61760 PZE DLBL,,BUFTAP F1C02530 61714 0734 00 2 00000 PAX ,2 LOAD FIRST ADDRESS. F1C02540 61715 0634 00 2 61744 SXA WRDG4,2 SET FIRST ADDRESS IN I/O COMMAND. F1C02550 61716 -3 00024 1 61733 WRDG1 TXL WRDG2,1,20 IS IT GREATER THAN A FULL LINE. F1C02560 61717 0074 00 4 73606 TSX (TAPE),4 YES, WRITE IT OUT IN 20 WORD SEGMENTS. F1C02570 61720 0 40011 0 61744 PZE WRDG4,,(WBNC) F1C02580 61721 0 00003 0 61760 PZE DLBL,,BUFTAP F1C02590 61722 1 77756 1 61723 TXI *+1,1,-18 REDUCE WORD COUNT, ALLOW FOR INSERTING F1C02600 61723 1 00022 2 61724 TXI *+1,2,18 BLANKS, AND UPDATE ADDRESS. F1C02610 61724 0634 00 2 61744 SXA WRDG4,2 SET NEW ADDRESS IN I/O COMMAND. F1C02620 61725 -0500 00 0 05155 CAL BLANKS INSERT TWO WORDS OF BLANKS AHEAD OF F1C02630 61726 0602 60 0 61744 SLW* WRDG4 THIS SEGMENT. F1C02640 61727 1 00001 2 61730 TXI *+1,2,1 ADD 1 TO NEW FIRST ADDRESS FOR INSERTING F1C02650 61730 0634 00 2 61731 SXA *+1,2 SECOND WORD OF BLANKS. F1C02660 BINARY CARD NO. 9F150012 61731 0602 00 0 00000 SLW ** F1C02670 61732 1 77777 2 61716 TXI WRDG1,2,-1 RESET FIRST ADDRESS, TEST FOR FULL LINE. F1C02680 F1C02690 61733 0634 00 2 61745 WRDG2 SXA WRDG5,2 SET FIRST ADDRESS OF I/O COMMAND AND F1C02700 61734 -0634 00 1 61745 SXD WRDG5,1 WORD COUNT FOR FULL OR PARTIAL LINE. F1C02710 61735 0074 00 4 73606 TSX (TAPE),4 WRITE REMAINDER ON SCRATCH TAPE. F1C02720 61736 0 40011 0 61745 PZE WRDG5,,(WBNC) F1C02730 61737 0 00003 0 61760 PZE DLBL,,BUFTAP F1C02740 61740 0774 00 1 00000 WRDG3 AXT **,1 RELOAD INDEX REGISTERS. F1C02750 61741 0774 00 2 00000 AXT **,2 F1C02760 61742 0774 00 4 00000 AXT **,4 F1C02770 61743 0020 00 4 00002 TRA 2,4 RETURN TO CALLER. F1C02780 F1C02790 61744 3 00024 0 00000 WRDG4 IORT **,,20 I/O COMMAND TO WRITE FULL LINE. F1C02800 61745 3 00000 0 00000 WRDG5 IORT **,,** I/O COMMAND TO WRITE PARTIAL LINE. F1C02810 F1C02820 61746 3 00003 0 61761 EJECT IORT UPPAGE,,3 I/O COMMAND TO WRITE PAGE EJECT. F1C02830 61747 3 00003 0 61762 LOOKS IORT START,,3 I/O COMMAND TO WRITE A BLANK LINE. F1C02840 61750 3 00017 0 61762 IORT START,,STOP-START I/O COMMAND TO WRITE DIAGNOSTIC TITLE. F1C02850 61751 DIAGHD SYN * F1C02860 F1C02870 61751 -1 40001 0 61754 IOCT STOPM,,(WBNP) PARAMETER FOR WRITING END OF DIAGNOSTIC. $F1C02880 61752 0 40005 0 00000 PZE ,,(WEFP) PARAMETER FOR WRITING END OF FILE. F1C02890 61753 0 20002 0 05074 PZE REWD,,(SKDP) PARAMETER FOR REWINDING SCRATCH TAPE. F1C02900 61754 DIAGA SYN * F1C02910 61754 3 00015 0 62001 STOPM IORT STOP,,XCOM-STOP I/O COMMAND FOR WRITING END DIAGNOSTIC. F1C02920 F1C02930 61755 -0 00001 0 00000 BSPCF MZE ,,1 I/O COMMAND TO BACKSPACE ONE FILE. F1C02940 61756 3 00025 0 62046 RDIAG IORT DIGBUF,,21 I/O COMMAND TO READ A RECORD (LINE) F1C02950 FROM THE SCRATCH TAPE. F1C02960 F1C02970 BINARY CARD NO. 9F150013 61757 0 00000 0 00000 OCTNUM PZE ** LOCATION OF CALLER (TSX) TO DIAGNOSTIC. F1C02980 61760 255151234644 DLBL BCI 1,ERRCOM DIAGNOSTIC MESSAGE LABEL. F1C02981 F1C02982 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 187 * SECTION ONE * DIAGNOSTIC * RECORD 9F15 * 61761 016060606060 UPPAGE BCI 1,1 F1C02990 61762 606060606060 START BCI 7, F1C03000 61771 070011610700 BCI 8,709/7090 FORTRAN DIAGNOSTIC PROGRAM RESULTS F1C03010 62001 606060606060 STOP BCI 7, F1C03020 BINARY CARD NO. 9F150014 62010 254524604626 BCI 6,END OF DIAGNOSTIC PROGRAM RESULTS. F1C03030 F1C03040 62016 606060606060 XCOM BCI 2, F1C03050 62020 633031626025 BCI 9,THIS ERROR IS NOT LISTED IN THE DIAGNOSTIC PROGRAM ERR F1C03060 62031 465160433162 BCI 2,OR LIST. F1C03070 62033 XXCOM SYN * F1C03080 F1C03090 BINARY CARD NO. 9F150015 62033 006024312127 GOOFUP BCI 9,0 DIAGNOSTIC PROGRAM RESULTS DISCONTINUED DUE TO A MAC F1C03100 62044 303145256025 BCI 2,HINE ERROR. F1C03110 F1C03120 62046 DIGBUF BSS 21 INPUT BUFFER FROM SCRATCH TAPE. F1C03130 F1C03140 BINARY CARD NO. 9F150016 62073 -1 00000 0 62046 DIAGN3 IOCT DIGBUF,,** $F1C03141 62074 -1 00013 0 62033 GFUPMS IOCT GOOFUP,,11 $F1C03142 62075 SYN * BEGINNING OF DIAGNOSTIC PATCH AREA. F1C03150 62075 BSS 50 PATCH AREA. F1C03160 62157 SYN * END OF DIAGNOSTIC PATCH AREA. F1C03170 F1C03180 F1C03190 TABLE OF DIAGNOSTIC COMMENTS, SECTION ONE OF 709 FORTRAN II. F1C03200 F1C03210 62157 TABLE BSS 0 F1C03220 F1C03230 BINARY CARD NO. 9F150017 62157 0 77777 0 00001 PZE 1,,-1 F1C03240 62160 243144036063 BCD 4DIM3 TABLE EXCEEDED. F1C03250 F1C03260 62164 0 77777 0 00002 PZE 2,,-1 F1C03270 62165 243144026063 BCD 4DIM2 TABLE EXCEEDED. F1C03280 F1C03290 62171 0 77777 0 00003 PZE 3,,-1 F1C03300 62172 243144016063 BCD 4DIM1 TABLE EXCEEDED. F1C03310 F1C03320 62176 0 77777 0 00006 PZE 6,,-1 F1C03330 62177 623127442160 BCD 4SIGMA TABLE EXCEEDED. F1C03340 F1C03350 62203 0 77777 0 00007 PZE 7,,-1 F1C03360 62204 632164036063 BCD 4TAU3 TABLE EXCEEDED. F1C03370 BINARY CARD NO. 9F150018 F1C03380 62210 0 77777 0 00010 PZE 8,,-1 F1C03390 62211 632164026063 BCD 4TAU2 TABLE EXCEEDED. F1C03400 F1C03410 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 188 * SECTION ONE * DIAGNOSTIC * RECORD 9F15 * 62215 0 77777 0 00011 PZE 9,,-1 F1C03420 62216 632164016063 BCD 4TAU1 TABLE EXCEEDED. F1C03430 F1C03440 62222 0 77777 0 00012 PZE 10,,-1 F1C03450 62223 264346234645 BCD 4FLOCON TABLE EXCEEDED. F1C03460 F1C03470 62227 0 77777 0 00013 PZE 11,,-1 F1C03480 62230 263167234645 BCD 4FIXCON TABLE EXCEEDED. F1C03490 BINARY CARD NO. 9F150019 F1C03500 62234 0 77777 0 05174 PZE ER0001,,-1 F1C03510 62235 444651256063 BCD 7MORE THAN SIX CHARACTERS IN SOME SYMBOL. F1C03520 F1C03530 62244 0 77777 0 05202 PZE ER0002,,-1 F1C03540 62245 314343252721 BCD 5ILLEGAL USE OF PUNCTUATION. F1C03550 F1C03560 62252 0 77777 0 05353 PZE ER0004,,-1 F1C03570 62253 454645404564 BCD NON-NUMERIC CHARACTER IN NUMERIC FIELD OR MISSING PUNCTUATIOF1C03580 BINARY CARD NO. 9F150020 62265 453360606060 BCD 1N. F1C03590 F1C03600 62266 0 77777 0 06635 PZE ER0005,,-1 F1C03610 62267 216062642262 BCD 7A SUBSCRIPT IS NOT A FIXED POINT VARIABLE. F1C03620 F1C03630 62276 0 77777 0 06645 PZE ER0006,,-1 F1C03640 62277 216062642262 BCD 6A SUBSCRIPT HAS A DOUBLE MULTIPLIER. F1C03650 F1C03660 62305 0 77777 0 06652 PZE ER0007,,-1 F1C03670 62306 216062642262 BCD 7A SUBSCRIPT MULTIPLIER IS NOT A CONSTANT. F1C03680 BINARY CARD NO. 9F150021 F1C03690 62315 0 77777 0 06677 PZE ER0008,,-1 F1C03700 62316 444651256063 BCD MORE THAN SIX CHARACTERS IN A SYMBOL WITHIN A SUBSCRIPT OR MF1C03710 62330 316262314527 BCD 4ISSING PUNCTUATION. F1C03720 F1C03730 62334 0 77777 0 06701 PZE ER0009,,-1 F1C03740 BINARY CARD NO. 9F150022 62335 633025512560 BCD 8THERE IS AN ILLEGAL CHARACTER IN SOME SUBSCRIPT. F1C03750 F1C03760 62345 0 77777 0 06720 PZE ER0010,,-1 F1C03770 62346 216062642262 BCD 6A SUBSCRIPT HAS A DOUBLE ADDEND. F1C03780 F1C03790 62354 0 77777 0 07003 PZE ER0011,,-1 F1C03800 62355 216062642262 BCD 7A SUBSCRIPT ADDEND IS NOT A CONSTANT. F1C03810 BINARY CARD NO. 9F150023 F1C03820 62364 0 77777 0 07006 PZE ER0012,,-1 F1C03830 62365 472151254563 BCD 9PARENTHESIS MISSING IN SOME SUBSCRIPT COMBINATION. F1C03840 F1C03850 62376 0 77777 0 07044 PZE ER0013,,-1 F1C03860 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 189 * SECTION ONE * DIAGNOSTIC * RECORD 9F15 * 62377 216003602431 BCD A 3 DIMENSIONAL SUBSCRIPTED VARIABLE DOES NOT HAVE A DIMENSIF1C03870 BINARY CARD NO. 9F150024 62411 464560626321 BCD 4ON STATEMENT ENTRY. F1C03880 F1C03890 62415 0 77777 0 07131 PZE ER0014,,-1 F1C03900 62416 216002602431 BCD A 2 DIMENSIONAL SUBSCRIPTED VARIABLE DOES NOT HAVE A DIMENSIF1C03910 62430 464560626321 BCD 4ON STATEMENT ENTRY. F1C03920 F1C03930 62434 0 77777 0 05500 PZE ER0015,,-1 F1C03940 62435 475146275121 BCD 7PROGRAM EXPECTS COMMA OR END OF STATEMENT. F1C03950 BINARY CARD NO. 9F150025 F1C03960 62444 0 77777 0 05506 PZE ER0016,,-1 F1C03970 62445 475146275121 BCD 8PROGRAM EXPECTS COMMA OR RIGHT PARENTHESIS. F1C03980 F1C03990 62455 0 77777 0 05514 PZE ER0017,,-1 F1C04000 62456 475146275121 BCD 9PROGRAM EXPECTS LEFT PARENTHESIS OR END OF STATEMENT. F1C04010 BINARY CARD NO. 9F150026 F1C04020 62467 0 77777 0 05520 PZE ER0019,,-1 F1C04030 62470 475146275121 BCD 6PROGRAM EXPECTS END OF STATEMENT. F1C04040 F1C04050 62476 0 77777 0 05524 PZE ER0020,,-1 F1C04060 62477 475146275121 BCD 6PROGRAM EXPECTS LEFT PARENTHESIS. F1C04070 F1C04080 62505 0 77777 0 05530 PZE ER0021,,-1 F1C04090 62506 475146275121 BCD 6PROGRAM EXPECTS RIGHT PARENTHESIS. F1C04100 BINARY CARD NO. 9F150027 F1C04110 62514 0 77777 0 05534 PZE ER0022,,-1 F1C04120 62515 475146275121 BCD 4PROGRAM EXPECTS COMMA. F1C04130 F1C04140 62521 0 77777 0 05540 PZE ER0023,,-1 F1C04150 62522 627044224643 BCD SYMBOL BEGINS NUMERIC WHICH IS ILLEGAL IN THIS CONTEXT. F1C04160 F1C04170 62534 0 77777 0 05542 PZE ER0024,,-1 F1C04180 62535 627044224643 BCD SYMBOL BEGINS NON-NUMERIC WHICH IS ILLEGAL IN THIS CONTEXT. F1C04190 BINARY CARD NO. 9F150028 F1C04200 62547 0 77777 0 06527 PZE ER0026,,-1 F1C04210 62550 633025602330 BCD THE CHARACTER $ OCCURS SOMEWHERE OTHER THAN IN HOLLERITH TEXF1C04220 62562 633360606060 BCD 1T. F1C04230 F1C04240 62563 0 77777 0 06530 PZE ER0027,,-1 F1C04250 62564 314343252721 BCD 7ILLEGAL CHARACTER +0 (12-8-2 PUNCH). F1C04260 BINARY CARD NO. 9F150029 F1C04270 62573 0 77777 0 06531 PZE ER0028,,-1 F1C04280 62574 314343252721 BCD 7ILLEGAL CHARACTER -0 (11-8-2 PUNCH). F1C04290 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 190 * SECTION ONE * DIAGNOSTIC * RECORD 9F15 * F1C04300 62603 0 77777 0 06532 PZE ER0029,,-1 F1C04310 62604 314343252721 BCD 6ILLEGAL CHARACTER (0-8-2 PUNCH). F1C04320 F1C04330 62612 0 77777 0 06533 PZE ER0030,,-1 F1C04340 62613 314343252721 BCI 6,ILLEGAL CHARACTER ' (8-4 PUNCH). F1C04350 BINARY CARD NO. 9F150030 F1C04360 62621 0 77777 0 06711 PZE ER0032,,-1 F1C04370 62622 634646604421 BCD 5TOO MANY RIGHT PARENTHESIS. F1C04380 F1C04390 62627 0 77777 0 04240 PZE ER0033,,-1 F1C04400 62630 454645402151 BCD NON-ARITHMETIC STATEMENT OF A TYPE WHICH IS NOT IN DICTIONARF1C04410 62642 703360606060 BCD 1Y. F1C04420 F1C04430 BINARY CARD NO. 9F150031 62643 0 77777 0 07445 PZE ER0034,,-1 F1C04440 62644 634646602625 BCD 5TOO FEW RIGHT PARENTHESIS. F1C04450 F1C04460 62651 0 77777 0 07612 PZE ER0035,,-1 F1C04470 62652 475146275121 BCD 4PROGRAM EXPECTS WORD TO. F1C04480 F1C04490 62656 0 77777 0 07302 PZE ER0036,,-1 F1C04500 62657 216065215131 BCD A VARIABLE IN THIS LIST APPEARED PREVIOUSLY IN A DIMENSION SF1C04510 BINARY CARD NO. 9F150032 62671 632163254425 BCD 2TATEMENT. F1C04520 F1C04530 62673 0 77777 0 07321 PZE ER0037,,-1 F1C04540 62674 444651256063 BCD 9MORE THAN 3 DIMENSIONS OR MISSING RIGHT PARENTHESIS. F1C04550 F1C04560 62705 0 77777 0 07452 PZE ER0038,,-1 F1C04570 62706 216062642251 BCD A SUBROUTINE OR FUNCTION STATEMENT APPEARS LATER THAN THE FIF1C04580 BINARY CARD NO. 9F150033 62720 516263606263 BCD 5RST STATEMENT OF THE PROGRAM. F1C04590 F1C04600 62725 0 77777 0 07671 PZE ER0039,,-1 F1C04610 62726 216051256364 BCD A RETURN STATEMENT HAS OCCURED IN A PROGRAM NOT DEFINED TO F1C04620 62740 222560216062 BCD 7BE A SUBROUTINE OR FUNCTION SUBPROGRAM. F1C04630 BINARY CARD NO. 9F150034 F1C04640 62747 0 77777 0 07543 PZE ER0040,,-1 F1C04650 62750 622545622560 BCD 7SENSE SWITCH SETTING OTHER THAN 0, 1 OR 2. F1C04660 F1C04670 62757 0 77777 0 10136 PZE ER0041,,-1 F1C04680 62760 444651256063 BCD 7MORE THAN SIX CHARACTERS IN SOME SYMBOL. F1C04690 F1C04700 62767 0 77777 0 10155 PZE ER0042,,-1 F1C04710 62770 314343252721 BCD 6ILLEGAL CHARACTER IN THIS LIST. F1C04720 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 191 * SECTION ONE * DIAGNOSTIC * RECORD 9F15 * BINARY CARD NO. 9F150035 F1C04730 62776 0 77777 0 10162 PZE ER0043,,-1 F1C04740 62777 314343252721 BCD 7ILLEGAL USE OF CONSTANT IN LIST. F1C04750 F1C04760 63006 0 77777 0 10230 PZE ER0044,,-1 F1C04770 63007 444651256063 BCD MORE THAN THREE LEVELS IN THIS LIST (NESTED PARENTHESIS). F1C04780 F1C04790 BINARY CARD NO. 9F150036 63021 0 77777 0 10233 PZE ER0045,,-1 F1C04800 63022 216363254447 BCD ATTEMPT TO SPECIFY A SUBSCRIPT RANGE WITHOUT USE OF PARENTHEF1C04810 63034 623162336060 BCD 1SIS. F1C04820 F1C04830 63035 0 77777 0 10263 PZE ER0046,,-1 F1C04840 63036 443162623145 BCD 6MISSING ) IN CONTROL FOR LIST DO. F1C04850 F1C04860 63044 0 77777 0 10274 PZE ER0047,,-1 F1C04870 63045 314343252721 BCD 6ILLEGAL CONTROL CHAR IN LIST DO. F1C04880 BINARY CARD NO. 9F150037 F1C04890 63053 0 77777 0 10357 PZE ER0048,,-1 F1C04900 63054 634646604421 BCD 5TOO MANY ) IN LIST CONTROL. F1C04910 F1C04920 63061 0 77777 0 10375 PZE ER0049,,-1 F1C04930 63062 314343252721 BCD 7ILLEGAL USE OF CONSTANT IN LIST. F1C04940 F1C04950 63071 0 77777 0 10547 PZE ER0050,,-1 F1C04960 63072 634646604421 BCD 5TOO MANY ( IN LIST CONTROL. F1C04970 BINARY CARD NO. 9F150038 F1C04980 63077 0 77777 0 10575 PZE ER0051,,-1 F1C04990 63100 314343252721 BCD 6ILLEGAL CHARACTER IN THIS STATEMENT. F1C05000 F1C05010 63106 0 77777 0 10655 PZE ER0053,,-1 F1C05020 63107 454660243144 BCD 7NO DIMENSION ENTRY FOR VARIABLE FORMAT. F1C05030 F1C05040 63116 0 77777 0 10634 PZE ER0054,,-1 F1C05050 63117 454660264651 BCD 3NO FORMAT NUMBER. F1C05060 F1C05070 63122 0 77777 0 10736 PZE ER0055,,-1 F1C05080 BINARY CARD NO. 9F150039 63123 314343252721 BCD 7ILLEGAL USE OF FLOATING POINT VARIABLE. F1C05090 STATE B. F1C05100 F1C05110 63132 0 77777 0 11121 PZE ER0056,,-1 F1C05120 63133 634646604421 BCD 5TOO MANY CHARACTERS IN SYMBOL. F1C05130 F1C05140 63140 0 77777 0 11372 PZE ER0072,,-1 F1C05150 63141 626422622351 BCD SUBSCRIPTED VARIABLE ON LEFT OF = NOT DEFINED IN DIMENSION SF1C05160 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 192 * SECTION ONE * DIAGNOSTIC * RECORD 9F15 * BINARY CARD NO. 9F150040 63153 632163254425 BCD 2TATEMENT. F1C05170 63155 0 77777 0 11166 PZE ER0057,,-1 F1C05180 63156 446443633147 BCD 5MULTIPLE FUNCTION DEFINITION. F1C05190 F1C05200 63163 0 77777 0 11200 PZE ER0058,,-1 F1C05210 63164 444651256063 BCD 8MORE THAN 50 FUNCTION DEFINITIONS IN PROGRAM. F1C05220 F1C05230 63174 0 77777 0 11210 PZE ER0059,,-1 F1C05240 63175 314343252721 BCD 7ILLEGAL FORTRAN FUNCTION ARGUMENT NAME. F1C05250 BINARY CARD NO. 9F150041 F1C05260 63204 0 77777 0 11221 PZE ER0060,,-1 F1C05270 63205 215127512527 BCD 4ARGREG SIZE EXCEEDED. F1C05280 F1C05290 63211 0 77777 0 11227 PZE ER0061,,-1 F1C05300 63212 264346216331 BCD 9FLOATING POINT CONSTANT IN HOLLERITH SPECIFICATION. F1C05310 F1C05320 63223 0 77777 0 11266 PZE ER0062,,-1 $F1C05330 63224 472151254563 BCD 9PARENTHESES DO NOT BALANCE WITHIN A LEVEL. $F1C05340 BINARY CARD NO. 9F150042 F1C05350 63235 0 77777 0 11303 PZE ER0063,,-1 F1C05360 63236 314343252721 BCD 4ILLEGAL USE OF = SIGN. F1C05370 F1C05380 63242 0 77777 0 11336 PZE ER0064,,-1 F1C05390 63243 314343252721 BCD 5ILLEGAL USE OF . CHARACTER. F1C05400 F1C05410 63250 0 77777 0 11500 PZE ER0065,,-1 F1C05420 63251 633025604564 BCD THE NUMERIC CONTROL OF A HOLLERITH TEXT IS LARGER THAN THE NF1C05430 BINARY CARD NO. 9F150043 63263 644422255160 BCD 6UMBER OF CHARACTERS FOLLOWING THE H. F1C05440 F1C05450 63271 0 77777 0 11573 PZE ER0066,,-1 F1C05460 63272 432144242160 BCD 5LAMDA TABLE SIZE EXCEEDED. F1C05470 F1C05480 63277 0 77777 0 11575 PZE ER0067,,-1 F1C05490 63300 222563216063 BCD 5BETA TABLE SIZE EXCEEDED. F1C05500 BINARY CARD NO. 9F150044 F1C05510 63305 0 77777 0 11600 PZE ER0068,,-1 F1C05520 63306 214347302160 BCD 9ALPHA TABLE SIZE EXCEEDED OR EXCESS RIGHT PARENTHESIS. F1C05530 F1C05540 63317 0 77777 0 12303 PZE ER0069,,-1 F1C05550 63320 264346216331 BCD FLOATING POINT CONSTANT OUTSIDE FLOATING POINT RANGE OF MACHF1C05560 BINARY CARD NO. 9F150045 63332 314525336060 BCD 1INE. F1C05570 F1C05580 63333 0 77777 0 15052 PZE ER0070,,-1 F1C05590 63334 443167252460 BCD 3MIXED EXPRESSION. F1C05600 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 193 * SECTION ONE * DIAGNOSTIC * RECORD 9F15 * F1C05610 63337 0 77777 0 16502 PZE ER0071,,-1 F1C05620 63340 626422622351 BCD 6SUBSCRIPTED VARIABLE IN FUNCTION. F1C05630 F1C05640 F1C05650 63346 0 77777 0 07632 PZE ER1002,,-1 F1C05660 63347 264651442163 BCD 7FORMAT STATEMENT IS INCORRECTLY WRITTEN. F1C05670 BINARY CARD NO. 9F150046 F1C05680 63356 0 77777 0 10624 PZE ER1003,,-1 F1C05690 63357 454645404564 BCD 6NON-NUMERICS FOUND IN NUMERIC FIELD. F1C05700 F1C05710 63365 0 77777 0 07565 PZE ER1005,,-1 F1C05720 63366 242523314421 BCD 6DECIMAL NUMBER IN AN OCTAL FIELD. F1C05730 F1C05740 F1C05750 63374 0 77777 0 06404 PZE ER1007,,-1 F1C05760 63375 626321632544 BCI 7,STATEMENT HAS TOO MANY CONTINUATION CARDS. F1C05770 BINARY CARD NO. 9F150047 F1C05780 63404 0 77777 0 07567 PZE ER1008,,-1 F1C05790 63405 254524602321 BCD 5END CARD OUT OF SEQUENCE. F1C05800 F1C05810 63412 0 77777 0 04343 PZE BER001,,-1 F1C05820 63413 314447514647 BCD IMPROPER BOOLEAN STATEMENT. F1C05830 F1C05840 63425 0 77777 0 12743 PZE DCER,,-1 F1C05850 63426 244664224325 BCD DOUBLE PRECISION CONSTANT LIES OUTSIDE OF RANGE 10**-38 F1C05860 BINARY CARD NO. 9F150048 63440 634660010054 BCD 2TO 10**+38 F1C05870 F1C05880 63442 0 77777 0 13302 PZE ICM6,,-1 F1C05890 63443 314523465151 BCD 7INCORRECT FORMAT FOR COMPLEX NUMBER $F1C05900 F1C05910 63452 0 77777 0 13430 PZE ICER,,-1 F1C05920 63453 234644474325 BCD COMPLEX CONSTANT LIES OUTSIDE OF RANGE 10**-38 TO 10**+38 F1C05930 BINARY CARD NO. 9F150049 F1C05940 63465 0 77777 0 11534 PZE ER0073,,-1 F1C05950 63466 256747512562 BCD EXPRESSION OR ILLEGAL PUNCTUATION ON LEFT OF EQUAL SIGN. F1C05960 F1C05970 63500 0 77777 0 11044 PZE OCTERR,,-1 F1C05980 63501 444651256063 BCD 7MORE THAN TWELVE DIGITS IN OCTAL FIELD. F1C05990 BINARY CARD NO. 9F150050 F1C06000 63510 0 77777 0 00014 PZE 12,,-1 F1C06010 63511 433162636046 BCD LIST OF DP - CA ARRAYS EXCEEDED. F1C06020 F1C06030 F1C06040 63523 0 77777 0 00015 PZE 13,,-1 F1C06050 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 194 * SECTION ONE * DIAGNOSTIC * RECORD 9F15 * 63524 433162636046 BCD LIST OF DP - CA NON-SUBSCRIPTED VARIABLES EXCEEDED. F1C06060 BINARY CARD NO. 9F150051 F1C06070 63536 0 77777 0 17171 PZE ERDP02,,-1 F1C06080 63537 263167252460 BCD FIXED POINT NAMED FUNCTION IN A DP - CA STATEMENT. F1C06090 F1C06100 63551 0 77777 0 20010 PZE ERDP01,,-1 F1C06110 63552 626422622351 BCD SUBSCRIPTED VARIABLE IN DP - CA STATEMENT NOT DEFINED IN DP F1C06120 BINARY CARD NO. 9F150052 63564 406023216024 BCD - CA DIMENSION STATEMENT. F1C06130 F1C06140 63576 0 77777 0 17745 PZE ES136D,,-1 F1C06150 63577 263167252460 BCD 7FIXED POINT FUNCTION DEFINITION ILLEGAL F1C06160 F1C06170 63606 0 77777 0 14432 PZE ERDP03,,-1 F1C06180 BINARY CARD NO. 9F150053 63607 452144256046 BCD 8NAME OF DP-CA FUNCTION EXCEEDS 5 CHARACTERS F1C06190 F1C06200 63617 0 77777 0 07305 PZE ER2001,,-1 F1C06210 63620 652151312122 BCI 9,VARIABLE PARAMETER DOES NOT HAVE FIXED POINT NAME. F1C06220 F1C06230 63631 0 77777 0 07571 PZE ER1009,,-1 F1C06240 63632 454660626321 BCD 4NO STATEMENT NUMBER. F1C06250 BINARY CARD NO. 9F150054 F1C06260 63636 0 77777 0 06206 PZE NOXEQR,,-1 F1C06270 63637 475146275121 BCI 9,PROGRAM DOES NOT HAVE ANY EXECUTABLE STATEMENTS. F1C06280 F1C06290 63650 0 77777 0 10724 PZE ER2002,,-1 F1C06300 63651 644531636024 BCI 7,UNIT DESIGNATION EITHER MISSING OR ZERO. F1C06310 F1C06320 63660 0 77777 0 06712 PZE ER0074,,-1 F1C06330 63661 634646604421 BCI 5,TOO MANY LEFT PARENTHESIS. F1C06340 BINARY CARD NO. 9F150055 F1C06350 63666 0 77777 0 06657 PZE ER0075,,-1 F1C06360 63667 633025604564 BCI 9,THE NUMERIC CONTROL OF A HOLLERITH TEXT IS LARGER THAN F1C06370 63700 606330256045 BCI 8, THE NUMBER OF CHARACTERS FOLLOWING THE H. F1C06380 F1C06381 63710 0 77777 0 07234 PZE ER2003,,-1 F1C06382 BINARY CARD NO. 9F150056 63711 604751462751 BCI 5, PROGRAM EXPECTS EQUALS SIGN. F1C06383 F1C06384 F1C06390 63716 0 77777 0 10156 PZE ER0080,,-1 $F1C06400 63717 314343252721 BCI 4,ILLEGAL DOUBLE OPERATOR. $F1C06410 $F1C06420 63723 0 77777 0 10160 PZE ER0081,,-1 $F1C06430 63724 314343252721 BCI 4,ILLEGAL USE OF OPERATOR $F1C06440 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 195 * SECTION ONE * DIAGNOSTIC * RECORD 9F15 * $F1C06450 63730 0 77777 0 20703 PZE ER0082,,-1 $F1C06460 63731 314565214331 BCI 5,INVALID DOUBLE EXPONENTIATION. $F1C06470 $F1C06480 63736 0 77777 0 21013 PZE ER0031,,-1 (29)F1C06490 BINARY CARD NO. 9F150057 63737 626422514664 BCI 8,SUBROUTINE NAME APPEARS IN DIMENSION STATEMENT. (29)F1C06500 63747 0 77777 0 21026 PZE ER0018,,-1 (30)F1C06510 63750 622545622560 BCI 8,SENSE LIGHT NUMBER IN IF STATEMENT IS INVALID. (30)F1C06520 63760 0 77777 0 00000 PZE ,,-1 CURRENT END OF TABLE SIGNAL (30)F1C06530 63761 BSS 66 SPACE FOR ADDITIONAL DIAGNOSTICS (30)F1C06540 $F1C99000 $F1C99010 $F1C99020 $F1C99030 64063 ENDIAG SYN * END OF SECTION ONE DIAGNOSTIC. $F1C99040 $F1C99050 BINARY CARD NO. 9F150058 64063 0 77777 0 00000 ENDF12 PZE ,,-1 END OF TABLE SIGNAL. $F1C99060 $F1C99070 BINARY CARD NO. TRA77777 77777 TCD -1 $F1C99075 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 196 * SECTION ONE PRIME * RECORD 9F16 * F1D00010 SECTION ONE PRIME CONSOLIDATES CORE AND TAPE BUFFERS F1D00020 LEFT BY SECTION ONE INTO COMPLETE TABLES. F1D00030 F1D00040 *************************************************************F1D00050 F1D00060 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 197 * SECTION ONE PRIME * RECORD 9F16 * F1D00080 DEFINITIONS OF SECTION 1 PRIME TABLE ASSEMBLY BUFFERS. F1D00090 F1D00100 F1D00110 05101 CCCC SYN FRETMX F1D00120 13002 BBBB SYN 2*TAU1MX+4*TAU2MX+6*TAU3MX+NONXMX+STOPMX+2 F1D00130 13504 AAAA SYN 5*DOLPMX+2*TIFGMX+TRADMX+FXCNMX+4+2 F1D00140 F1D00150 12465 LWBF1O ORG TABORG-1-2*EQITMX-1 F1D00160 12465 BSS 1 F1D00170 12466 LWBF1 SYN * ASSEMBLY BUFFER ONE. F1D00180 F1D00190 24670 LWBF2O ORG TABORG-1 F1D00200 24670 BSS 1 F1D00210 24671 LWBF2 SYN * ASSEMBLY BUFFER TWO. F1D00220 F1D00230 37770 ORG TOPTAB-AAAA-BBBB-CCCC F1D00240 37770 BSS 1 F1D00250 37771 LWBF3 SYN * ASSEMBLY BUFFER THREE. F1D00260 F1D00270 F1D00280 61374 ORG GERASE-1 F1D00290 61374 BSS 1 F1D00300 61375 UPBF1 SYN * ASSEMBLY BUFFER FOUR. F1D00310 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 198 * SECTION ONE PRIME * RECORD 9F16 * ASSEMBLY BUFFER ASSIGNMENTS. F1D00330 F1D00340 24671 FORVAL SYN LWBF2 F1D00350 61375 FORMAT SYN UPBF1 F1D00360 12466 FMTEFN SYN LWBF1 F1D00370 12466 ENDTAB SYN LWBF1 F1D00380 43144 SUBDEF SYN SBDFBF F1D00390 61375 COMMON SYN UPBF1 F1D00400 12466 HOLARG SYN LWBF1 F1D00410 24671 TEIFNO SYN LWBF2 F1D00420 12466 FORVAR SYN LWBF1 F1D00430 24671 FORTAG SYN LWBF2 F1D00440 12466 EQUITT SYN LWBF1 F1D00450 12466 CALLFN SYN LWBF1 F1D00460 12466 CLOSUB SYN LWBF1 F1D00470 F1D00480 THE FOLLOWING ARE LEFT IN MEMORY FOR F1D00490 SECTION ONE DOUBLE PRIME AND SECTION TWO. F1D00500 F1D00510 F1D00520 37770 ORG LWBF3-1 F1D00530 37770 STOPWC BSS 1 F1D00540 37771 TSTOPS BSS STOPMX F1D00550 42023 NONXWC BSS 1 F1D00560 42024 NONEXC BSS NONXMX F1D00570 44056 FRETWC BSS 1 F1D00580 44057 FRETTB BSS FRETMX F1D00590 51160 TAU1TB BSS TAU1MX*2 F1D00600 52454 TAU2TB BSS TAU2MX*4 F1D00610 55030 TAU3TB BSS TAU3MX*6 F1D00620 60074 FIXCWC BSS 1 F1D00630 60075 FIXCON BSS FXCNMX F1D00640 60633 BSS 2 COMPENSTAING RESERVATION. F1D00650 60635 TRADWC BSS 1 F1D00660 60636 TRADTB BSS TRADMX F1D00670 62411 TFGOWC BSS 1 F1D00680 62412 TIFGOT BSS TIFGMX*2 F1D00690 66476 TDOWC BSS 1 F1D00700 66477 TDOTAB BSS DOLPMX*5 F1D00710 73600 TIPTOP SYN * TOP OF TABLE MERGING AREA FOR 1 PRIME. F1D00720 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 199 * SECTION ONE PRIME * RECORD 9F16 * F1D00740 *************************************************************F1D00750 F1D00760 F1D00770 F1D00790 00102 ORG SYSCUR $F1D00800 BINARY CARD NO. 9F160000 00102 112601060000 BCI 1,9F1600 $F1D00810 73666 ORG (LODR) $F1D00820 BINARY CARD NO. 9F160001 73666 1 00240 0 04426 TXI BEGF13,,160 ENTRY POINT,,RECORD NUMBER F1D00830 F1D00840 *********************************************************F1D00850 F1D00860 ABS F1D00870 04245 ORGF13 ORG PASS1 F1D00880 F1D00890 SECTION 1 PRIME DIAGNOSTIC CALLS. F1D00900 F1D00910 BINARY CARD NO. 9F160002 04245 1 77777 0 73603 1PER1 TXI (DIAG),,-1 *PROGRAMMER ERROR. THERE ARE NOT ANY F1D00920 EXECUTABLE STATEMENTS IN THE SOURCE F1D00930 PROGRAM. F1D00940 F1D00950 04246 1 00000 0 73603 1PER2 TXI (DIAG),,0 *MACHINE ERROR. THE NAME OF A DP-CA ARRAY F1D00960 CANNOT BE FOUND IN THE SIZ TABLE. F1D00970 SIMULTANEOUS ENTRIES OF THE NAME ARE F1D00980 MADE IN DLSIT1 AND THE APPROPRIATE DIM F1D00990 TABLE IN PASS1 OF SECTION I WHEN F1D01000 PROCESSING DIMENSION STATEMENTS. F1D01010 F1D01020 04247 1 77776 0 73603 1PER3 TXI (DIAG),,-2 *PROGRAMMER ERROR. NONE OF THE SOURCE F1D01030 PROGRAM STATEMENTS HAVE BEEN ASSIGNED F1D01040 STATEMENT NUMBERS (EFNS). AT LEAST ONE F1D01050 EFN IS REQUIRED DUE TO THE EXISTENCE OF A F1D01060 DO, IF, GO TO, OR FREQUENCY STATEMENT. F1D01070 F1D01080 04250 1 00000 0 73603 1PER4 TXI (DIAG),,0 *MACHINE ERROR. THE TIFGO TABLE HAS A F1D01090 ONE WORD ENTRY AS THE LAST ONE IN THE F1D01100 TABLE. TIFGO IS A TWO WORD ENTRY. F1D01110 F1D01120 04251 1 00000 0 73603 1PER5 TXI (DIAG),,0 *MACHINE ERROR. FREQUENCY TABLE HAS BEEN F1D01130 EXHAUSTED IN THE MIDDLE OF AN ENTRY. F1D01140 F1D01150 04252 1 77775 0 73603 1PER6 TXI (DIAG),,-3 *PROGRAMMER ERROR. A FREQUENCY STATEMENT F1D01160 DOES NOT CONTAIN ANY FREQUENCIES. F1D01170 NOTE-THERE IS A POSSIBILITY OF MACHINE ERROR. F1D01180 F1D01190 04253 1 77774 0 73603 1PER7 TXI (DIAG),,-4 *PROGRAMMER ERROR. A TABLE HAS OVERFLOWED.F1D01200 04254 606060606060 TABNM BCI 1, THE NAME OF THE TABLE APPEARS IN THE F1D01210 LOCATION - TABNM. F1D01220 F1D01230 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 200 * SECTION ONE PRIME * RECORD 9F16 * 04255 1 77773 0 73603 1PER8 TXI (DIAG),,-5 *PROGRAMMER ERROR. MORE THAN ONE F1D01240 04256 0 00000 0 00000 STATN PZE ** FREQUENCY STATEMENT HAS BEEN MADE F1D01250 FOR THE STATEMENT NUMBER IN STATN. F1D01260 F1D01270 04257 1 00000 0 73603 1PER9 TXI (DIAG),, NOT PRESENTLY USED. F1D01280 F1D01290 *************************************************************F1D01300 F1D01310 TAP - TABLE ASSEMBLY PROGRAM. ASSEMBLES TABLES FROM F1D01320 TAPE RECORDS AND CORE BUFFERS. F1D01330 F1D01340 04260 0634 00 1 04354 TAP00 SXA TAPJ0,1 SAVE CONTENTS OF INDEX REGISTERS. F1D01350 04261 0634 00 2 04355 SXA TAPJ1,2 F1D01360 04262 0634 00 4 04356 SXA TAPJ2,4 F1D01370 04263 0560 00 1 00001 LDQ 1,1 GET THE IDENTIFICATION NUMBER OF THE F1D01380 04264 -0600 00 0 04363 STQ TABLN TABLE TO BE ASSEMBLED AND SAVE. F1D01390 04265 0200 00 0 04360 MPY (6)L COMPUTE INTET INDEX VALUE. F1D01400 04266 0131 00 0 00000 XCA MOVE TO AC. F1D01410 04267 0737 00 1 00000 PAC ,1 LOAD INTET REFERENCE. F1D01420 04270 -0500 00 1 03755 CAL INTETX+3,1 GET TABLE ORIGIN AND MAXIMUM LENGTH. F1D01430 04271 0621 00 0 04367 STA TAPIO+1 SET ASSEMBLY ORIGIN IN I/O COMMAND. F1D01440 04272 0622 00 0 04301 STD TAPAA SET TABLE OVERFLOW TEST. (34)F1D01450 BINARY CARD NO. 9F160003 04273 -0500 00 1 03752 CAL INTETX,1 GET CORE BUFFER WORD COUNT (34)F1D01460 04274 -0734 00 2 00000 PDX ,2 AND SAVE IT (34)F1D01465 04275 0634 00 2 04341 SXA TAPF0,2 FOR LATER USE WHEN MERGING. (34)F1D01470 04276 -0754 00 2 00000 PXD ,2 SAVE DECREMENT ONLY (WORD COUNT) (35)F1D01475 04277 0400 00 1 03756 ADD INTETX+4,1 ADD TAPE RECORD AND WORD COUNT (35)F1D01480 04300 -0734 00 4 00000 PDX ,4 GET ASSEMBLED TABLE WORD COUNT. (35)F1D01485 04301 -3 00000 4 04305 TAPAA TXL TAPG0,4,** *WILL TABLE OVERFLOW,NO. (35)F1D01490 04302 -0500 00 1 03757 CAL INTETX+5,1 YES,GET THE TABLE NAME AND (35)F1D01495 04303 0602 00 0 04254 SLW TABNM SAVE IT FOR THE GENERAL DIAGNOSTIC. (35)F1D01496 04304 0074 00 4 04253 TSX 1PER7,4 *GO TO DIAGNOSTIC. (35)F1D01497 04305 0734 00 2 00000 TAPG0 PAX ,2 GET COUNT OF RECORDS ON TAPE. (35)F1D01500 04306 -0754 00 4 00000 PXD ,4 PUT ASSEMBLED TABLE WORD COUNT ALONE (35)F1D01505 04307 0601 00 1 03756 STO INTETX+4,1 BACK INTO CONTROL BLOCK AND AT THE (35)F1D01510 04310 0774 00 4 00001 AXT 1,4 TABLE ORIGON MINUS ONE FOR (35)F1D01512 04311 0601 60 1 03755 STO* INTETX+3,1 SECTION TWOS USE,IF ANY. (35)F1D01514 04312 -3 00000 2 04341 TXL TAPF0,2,0 *NOTHING ON TAPE (35)F1D01516 04313 -0634 00 2 04335 SXD TAPD0,2 SET COUNT OF RECORDS TO READ. (35)F1D01518 04314 -0500 00 1 03754 CAL INTETX+2,1 GET RECORD LENGTH AND TAPE ADDRESS. F1D01520 04315 0622 00 0 04325 STD TAPC0 SET TAPE ADDRESS IN CALLING SEQUENCES. F1D01530 04316 0622 00 0 04340 STD TAPE0 F1D01540 04317 0734 00 4 00000 PAX ,4 LOAD RECORD LENGTH. F1D01550 04320 -0634 00 4 04367 SXD TAPIO+1,4 SET IN I/O COMMAND. F1D01560 BINARY CARD NO. 9F160004 04321 0774 00 2 00001 AXT 1,2 INITIALIZE RECORD NUMBER. F1D01570 04322 -0634 00 2 04363 TAPA0 SXD TABLN,2 SET RECORD NUMBER IN TABLE IDENTIFICATION.F1D01580 04323 0074 00 4 73606 TAPB0 TSX (TAPE),4 READ A RECORD FROM TAPE. F1D01590 04324 0 40010 0 04366 PZE TAPIO,,(RBNC) F1D01600 04325 -0 00000 1 03757 TAPC0 MZE INTETX+5,1,** F1D01610 04326 -0500 00 0 04362 CAL RECID GET LABEL READ. F1D01620 04327 0322 00 0 04363 ERA TABLN IS THIS THE RECORD BEING SEARCHED FOR. F1D01630 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 201 * SECTION ONE PRIME * RECORD 9F16 * 04330 -0100 00 0 04323 TNZ TAPB0 *NO, TRY AGAIN. F1D01640 04331 -0535 00 4 04325 LDC TAPC0,4 YES, LOAD 2S COMPLIMENT OF LIGICAL TAPE F1D01650 04332 -0500 00 4 73672 CAL (SCHU),4 NUMBER AND GET THE CONTENTS OF THE SCHX. F1D01660 04333 0621 00 0 04367 STA TAPIO+1 SET NEW LOAD ADDRESS FOR BUILDING TABLE. F1D01670 04334 1 00001 2 04335 TXI *+1,2,1 INCREMENT RECORD COUNT. F1D01680 04335 -3 00000 2 04322 TAPD0 TXL TAPA0,2,** *HAVE RECORDS BEEN FOUND, NO CONTINUE. F1D01690 04336 0074 00 4 73606 TSX (TAPE),4 YES, REWIND DUMP TAPE. F1D01700 04337 0 20000 0 04364 PZE REWND,,(SKBP) F1D01710 04340 0 00000 0 00000 TAPE0 PZE ,,** F1D01720 F1D01730 ALL TAPE BUFFERS HAVE BEEN MERGED INTO F1D01740 CONSECUTINE LOCATIONS. NOW PICK UP ANY F1D01750 TABLE ENTRIES IN THE CORE BUFFER AND F1D01760 MERGE THEN AT THE END. F1D01770 F1D01780 04341 0774 00 2 00000 TAPF0 AXT **,2 GET COUNT OF WORDS LEFT IN CORE BUFFER (35)F1D01900 04342 -3 00000 2 04354 TXL TAPJ0,2,0 *ANYTHING IN THE CORE BUFFER, NO. F1D01910 04343 0754 00 2 00000 PXA ,2 YES, COMPUTE LAST ADDRESS PLUS ONE F1D01920 04344 0400 00 1 03752 ADD INTETX,1 OF CORE BUFFER. F1D01930 04345 0621 00 0 04351 STA TAPI0 INITIALIZE MOVING LOOP. F1D01940 04346 0754 00 2 00000 PXA ,2 COMPUTE LAST ADDRESS PLUS ONE OF F1D01950 BINARY CARD NO. 9F160005 04347 0400 00 0 04367 ADD TAPIO+1 TABLE IN ASSEMBLY AREA. F1D01960 04350 0621 00 0 04352 STA TAPI1 INITIALIZE MOVEING LOOP F1D01970 04351 -0500 00 2 00000 TAPI0 CAL **,2 GET A WORD FROM THE CORE BUFFER. F1D01980 04352 0602 00 2 00000 TAPI1 SLW **,2 STORE IT IN THE TABLE. F1D01990 04353 2 00001 2 04351 TIX TAPI0,2,1 *ALL CORE ENTRIES MOVED, NO CONTINUE. F1D02000 F1D02010 THE TABLE (IF ANY) HAS BEEN ASSEMBLED. F1D02020 F1D02030 04354 0774 00 1 00000 TAPJ0 AXT **,1 RESTORE THE CONTENTS OF THE F1D02040 04355 0774 00 2 00000 TAPJ1 AXT **,2 INDEX REGISTERS. F1D02050 04356 0774 00 4 00000 TAPJ2 AXT **,4 F1D02060 04357 0020 00 1 00002 TRA 2,1 *RETURN TO CALLER. F1D02070 F1D02080 F1D02090 CONSTANTS, ERASABLE AND I/O COMMANDS. F1D02100 F1D02110 04360 +000000000006 (6)L DEC 6 CONSTANT FOR COMPUTING INTET INDEX. F1D02120 04361 0774 00 0 00000 AXT 0,0 ( NOT USED ) (34)F1D02130 04362 0 00000 0 00000 RECID PZE **,,** RECORD LABEL READ FROM TAPE. F1D02140 04363 0 00000 0 00000 TABLN PZE **,,** RECORD LABEL BEING SEARCHED FOR. F1D02150 F1D02160 04364 0 77777 0 00000 REWND PZE ,,-1 I/O COMMAND TO REWIND THE DUMP TAPE. F1D02170 04365 -0 00000 0 00001 BSR MZE 1,,0 BACKSPACE COUNT. F1D02180 F1D02190 04366 -0 00001 0 04362 TAPIO IOCP RECID,,1 I/O COMMAND TO READ RECORD LABEL. F1D02200 04367 3 00000 0 00000 IORT **,,** I/O COMMAND TO READ TAPE BUFFER. F1D02210 F1D02220 END OF TAP ROUTINE. F1D02230 F1D02240 *************************************************************F1D02250 F1D02260 F1D02270 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 202 * SECTION ONE PRIME * RECORD 9F16 * WAT - WRITE ASSEMBLED TABLE PROGRAM. F1D02280 WRITE AN ASSEMBLED TABLE ON THE TABLE TAPE F1D02290 PRECEDED BY ITS IDENTIFICATION AND WORD COUNT. F1D02300 F1D02310 04370 0634 00 1 04412 WAT00 SXA WAT01,1 SAVE CONTENTS OF INDEX REGISTERS. F1D02320 04371 0634 00 4 04413 SXA WAT02,4 F1D02330 04372 0634 00 2 04414 SXA WAT03,2 F1D02340 04373 -0774 00 2 00002 AXC 2,2 LOAD FLIP-FLOP SWITCH. F1D02350 04374 0634 00 2 04373 SXA *-1,2 RESET IT FOR NEXT TIME THROUGH. F1D02360 BINARY CARD NO. 9F160006 04375 0560 00 1 00001 LDQ 1,1 GET TABLE IDENTIFICATION NUMBER. F1D02370 04376 -0600 00 2 04420 STQ WATA0,2 SAVE TABLE IDENTIFICATION NUMBER. F1D02380 04377 0200 00 0 04360 MPY (6)L COMPUTE INTETX INDEX. F1D02390 04400 0131 00 0 00000 XCA MOVE TO AC. F1D02400 04401 0737 00 1 00000 PAC ,1 LOAD INTETX INDEX. F1D02410 04402 -0500 00 1 03755 CAL INTETX+3,1 GET ORIGIN OF TABLE TO BE WRITTEN. F1D02420 04403 0621 00 2 04423 STA WATB2,2 SET TABLE ORIGIN IN I/O COMMAND. F1D02430 04404 -0500 00 1 03756 CAL INTETX+4,1 GET TABLE WORD COUNT. F1D02440 04405 0622 00 2 04421 STD WATA1,2 SAVE TABLE WORD COUNT FOR WRITING ON TAPE.F1D02450 04406 0622 00 2 04423 STD WATB2,2 SET IN I/O COMMAND FOR WRITING TABLE. F1D02460 04407 0074 00 4 73606 TSX (TAPE),4 WRITE TABLE. F1D02470 04410 0 40001 2 04422 PZE WATB0,2,(WBNP) F1D02480 04411 0 00002 1 03757 PZE INTETX+5,1,TABTAP F1D02490 04412 0774 00 1 00000 WAT01 AXT **,1 RESTORE INDEX REGISTERS. F1D02500 04413 0774 00 4 00000 WAT02 AXT **,4 F1D02510 04414 0774 00 2 00000 WAT03 AXT **,2 F1D02520 04415 0020 00 1 00002 TRA 2,1 *RETURN TO CALLER. F1D02530 F1D02540 F1D02550 CONSTANTS, ERASABLE AND I/O COMMANDS. F1D02560 F1D02570 04416 0 00000 0 00000 PZE **,,0 FLIP TABLE IDENTIFICATION. F1D02580 04417 0 00000 0 00000 PZE ,,** FLIP TABLE WORD COUNT. F1D02590 F1D02600 04420 -0 00002 0 04416 WATA0 IOCP *-2,,2 FLIP ID AND WORD COUNT I/O COMMAND. F1D02610 04421 -1 00000 0 00000 WATA1 IOCT **,,** FLIP TABLE I/O COMMAND. $F1D02620 F1D02630 04422 0 00000 0 00000 WATB0 PZE **,,0 FLOP TABLE IDENTIFICATION. F1D02640 BINARY CARD NO. 9F160007 04423 0 00000 0 00000 WATB2 PZE ,,** FLOP TABLE WORD COUNT. F1D02650 F1D02660 04424 -0 00002 0 04422 IOCP *-2,,2 FLOP ID AND WORD COUNT I/O COMMAND. F1D02670 04425 -1 00000 0 00000 IOCT **,,** FLOP TABLE I/O COMMAND. $F1D02680 F1D02690 END OF WAT ROUTINE. F1D02700 F1D02710 *************************************************************F1D02720 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 203 * SECTION ONE PRIME * RECORD 9F16 * F1D02740 04426 0774 00 4 00004 BEGF13 AXT 4,4 SET ERROR FLAG FOR MONITOR ERROR RECORDS. F1D02750 04427 0634 00 4 73664 SXA (MSLN),4 F1D02760 04430 0760 00 0 00140 SLF TURN OFF SENSE LITES. F1D02770 04431 0760 00 0 00012 DCT TURN OFF DIVIDE CHECK F1D02780 04432 0761 00 0 00000 NOP AND F1D02790 04433 0161 00 0 04434 TQO *+1 MQ OVERFLOW TRIGGERS. F1D02800 F1D02810 F1D02820 ROUTINE TO WRITE FORSUB AS RECORD AS RECORD 1 OF FILE 3. F1D02830 F1D02840 04434 0074 00 4 73606 TSX (TAPE),4 WRITE END-OF-FILE AFTER COMPAIL RECORDS. F1D02850 04435 0 40005 0 00000 PZE ,,(WEFP) F1D02860 04436 0 00002 0 06112 PZE 2NDEOF,,CITTAP FIRST FILE IS THE SOURCE PROGRAM. F1D02870 F1D02880 04437 -0520 00 0 03747 NZT CITCNT WERE ANY CITS COMPILED. F1D02890 04440 0074 00 4 04245 TSX 1PER1,4 NO, SOURCE PROGRAM IS NOT EXECUTABLE. F1D02900 04441 -0634 00 0 03747 SXD CITCNT,0 SET CIT WORD COUNT TO ZERO, SAVE RECORD CTF1D02910 04442 -0535 00 4 03746 LDC BK,4 GET TRUE VALUE OF FORSUB WORD COUNT. F1D02920 04443 -0634 00 4 06065 SXD IOCM2,4 SET IN I/O COMMAND. F1D02930 04444 0074 00 4 73606 TSX (TAPE),4 WRITE CIT RECORD COUNT AND FORSUB TABLE, F1D02940 04445 0 40001 0 06064 PZE IOCM1,,(WBNP) (IF ANY). F1D02950 04446 0 00002 0 06075 PZE LABL1,,TABTAP F1D02960 F1D02970 04447 0074 00 4 73606 TSX (TAPE),4 WRITE AN END-OF-FILE AFTER LAST RECORD. F1D02980 04450 0 40005 0 00000 PZE ,,(WEFP) F1D02990 BINARY CARD NO. 9F160008 04451 0 00002 0 06113 PZE 3RDEOF,,TABTAP F1D03000 F1D03010 * . * . * . * . * . * . * . * . * . * . * . * . * . * . * . *F1D03020 F1D03030 ROUTINE TO WRITE FLOCON AS RECORD 1 OF FILE 4. F1D03040 F1D03050 04452 -0534 00 4 04155 LXD FLCNIX-2,4 GET FLOCON WORD COUNT. F1D03060 04453 0634 00 4 06104 SXA FLOCNT,4 SAVE IN ZERO WORD. F1D03070 04454 -0634 00 4 06067 SXD FLOCOM+1,4 SET IN I/O COMMAND. F1D03080 04455 0500 00 0 04156 CLA FLCNIX-1 GET ADDRESS OF FLOCON TABLE F1D03090 04456 0621 00 0 06067 STA FLOCOM+1 AND SET IN I/O COMMAND. F1D03100 04457 0074 00 4 73606 TSX (TAPE),4 WRITE FLOCON WORD COUNT AND FLOCON F1D03110 04460 0 40001 0 06066 PZE FLOCOM,,(WBNP) TABLE (IF ANY). F1D03120 04461 0 00002 0 06076 PZE LABL2,,TABTAP F1D03130 F1D03140 * . * . * . * . * . * . * . * . * . * . * . * . * . * . * . *F1D03150 F1D03160 04462 0074 00 1 04260 TSX TAP00,1 ASSEMBLE TABLE OF FORMAT STATEMENTS. F1D03170 04463 0 00000 0 00012 PZE 10 F1D03180 F1D03190 04464 0074 00 1 04370 TSX WAT00,1 WRITE FORMAT TABLE AS RECORD 2 OF FILE 4. F1D03200 04465 0 00000 0 00012 PZE 10 F1D03210 F1D03220 F1D03230 ROUTINE TO CHECK FOR MISSING FORMAT STATEMENTS. F1D03240 F1D03250 04466 0535 00 2 04123 LAC INTETR,2 LOAD 2S COMPLEMENT OF FMTEFN TABLE ORIGIN.F1D03260 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 204 * SECTION ONE PRIME * RECORD 9F16 * 04467 1 77777 2 04470 TXI *+1,2,-1 ALLOW FOR WORD COUNT FROM TAP00. F1D03270 04470 -0634 00 2 04523 SXD FRCKE,2 SET ORIGIN IN WORD COUNT COMPUTATION. F1D03280 04471 0535 00 1 04051 LAC INTETK,1 LOAD 2S COMPLEMENT OF FORMAT TABLE ORIGIN.F1D03290 04472 -0535 00 4 04052 LDC INTETK+1,4 LOAD 2S COMPLEMENT OF WORD COUNT. F1D03300 04473 -3 00000 4 04530 TXL FRCKF,4,0 *SKIP SCAN FOR FORMULA NUMBERS IF NO TABLE.F1D03310 04474 -0634 00 4 04475 SXD *+1,4 SET 2S COMPLEMENT OF F1D03320 04475 1 00000 1 04476 TXI *+1,1,** LAST ADDRESS OF TABLE F1D03330 04476 -0634 00 1 04507 SXD FRCKB,1 TO STOP SEARCH. F1D03340 BINARY CARD NO. 9F160009 04477 -0634 00 1 04511 SXD FRCKC,1 F1D03350 04500 0535 00 1 04051 LAC INTETK,1 RESTORE IR1. F1D03360 04501 0502 00 0 06116 CLS FRCON GET END OF ENTRY (STATEMENT) FLAG. F1D03370 04502 0020 00 0 04512 TRA FRCKC+1 MOVE FIRST WORD OF TABLE. F1D03380 04503 0340 00 1 00000 FRCKA CAS 0,1 IS THIS AN END OF ENTRY MARKER. F1D03390 04504 1 77777 1 04507 TXI *+3,1,-1 NO, LOOK AT NEXT WORD. F1D03400 04505 1 77777 1 04511 TXI FRCKC,1,-1 F1D03410 04506 1 77777 1 04507 TXI *+1,1,-1 NO, LOOK AT NEXT WORD. F1D03420 04507 3 00000 1 04503 FRCKB TXH FRCKA,1,** IS THIS THE END OF THE FORMAT TABLE. F1D03430 04510 0020 00 0 04515 TRA FRCKD *YES. F1D03440 F1D03450 04511 -3 00000 1 04515 FRCKC TXL FRCKD,1,** *IS THIS THE END OF THE FORMAT TABLE, YES. F1D03460 04512 0560 00 1 00000 LDQ 0,1 SAVE FORMULA NUMBER OF FORMAT STATEMENT F1D03470 04513 -0600 00 2 00000 STQ 0,2 IN CONDENSED TABLE. F1D03480 04514 1 77777 2 04503 TXI FRCKA,2,-1 INCREMENT CONDENSED INDEX, CONTINUE SCAN. F1D03490 F1D03500 04515 0754 00 2 00000 FRCKD PXA ,2 GET TRUE VALUE OF LAST ADDRESS PLUS ONE F1D03510 04516 0737 00 2 00000 PAC ,2 OF CONDENSED FORMAT TABLE (ONLY FORMULA F1D03520 04517 0634 00 2 04550 SXA FRCKH,2 NUMBERS) AND SET IN COMPARE LOOP. F1D03530 04520 0634 00 2 04526 SXA FRCKL,2 SET IN MASKING LOOP. F1D03540 04521 1 00001 2 04522 TXI *+1,2,1 ALLOW FOR WORD COUNT FROM TAP00. F1D03550 04522 0634 00 2 04123 SXA INTETR,2 SET NEW ORIGIN FOR FMTEFN TABLE. F1D03560 04523 1 00000 2 04524 FRCKE TXI *+1,2,** COMPUTE WORD COUNT OF TABLE. F1D03570 04524 0634 00 2 04546 SXA FRCKG,2 SAVE WORD COUNT. F1D03580 BINARY CARD NO. 9F160010 04525 -0500 00 0 06110 CAL ADMSK LOAD AC WITH ADDRESS MASK. F1D03590 04526 0320 00 2 00000 FRCKL ANS **,2 CLEAR HASH FROM CONDENSED FORMAT TABLE. F1D03600 04527 2 00001 2 04526 TIX *-1,2,1 F1D03610 F1D03620 04530 0074 00 1 04260 FRCKF TSX TAP00,1 ASSEMBLE FMTEFN TABLE, TABLE OF FORMAT F1D03630 04531 0 00000 0 00021 PZE 17 REFERENCES. F1D03640 F1D03650 04532 0600 00 0 60633 STZ ELSEBF INITIALIZE ERROR CELL TO ZERO. F1D03660 04533 -0534 00 4 04124 LXD INTETR+1,4 LOAD WORD COUNT OF FMTEFN TABLE. F1D03670 04534 -3 00000 4 04566 TXL FRCKK+1,4,0 *NO REFERENCES TO FORMAT STATEMENTS. F1D03680 04535 0754 00 4 00000 PXA ,4 PLACE WORD COUNT IN AC. F1D03690 04536 0734 00 1 00000 PAX ,1 LOAD FMTEFN WORD COUNT. F1D03700 04537 0400 00 0 04123 ADD INTETR COMPUTE LAST ADDRESS PLUS ONE OF FMTEFN. F1D03710 04540 0621 00 0 04547 STA FRCKG+1 SET ADDRESS FOR TIX LOOP. F1D03720 04541 0621 00 0 04543 STA *+2 SET IN MASKING LOOP. F1D03730 04542 -0500 00 0 06110 CAL ADMSK LOAD ADDRESS MASK. F1D03740 04543 0320 00 1 00000 ANS **,1 CLEAR HASH FROM FMTEFN TABLE. F1D03750 04544 2 00001 1 04543 TIX *-1,1,1 F1D03760 04545 0774 00 1 00000 AXT 0,1 INITIALIZE ERROR COUNTER. F1D03770 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 205 * SECTION ONE PRIME * RECORD 9F16 * 04546 0774 00 2 00000 FRCKG AXT **,2 LOAD FORMAT WORD COUNT. F1D03780 04547 -0500 00 4 00000 CAL **,4 GET A REFERENCE TO A FORMAT STATEMENT. F1D03790 04550 -0340 00 2 00000 FRCKH LAS **,2 DOES THIS FORMAT STATEMENT EXIST. F1D03800 04551 0020 00 0 04553 TRA *+2 NO. F1D03810 04552 0020 00 0 04557 TRA FRCKJ YES, GET NEXT REFERENCE OR QUIT. F1D03820 BINARY CARD NO. 9F160011 04553 2 00001 2 04550 TIX FRCKH,2,1 *NO, CONTINUE SEARCH. F1D03830 04554 0600 00 1 60632 STZ ELSEBF-1,1 SAVE EXTERNAL FORMULA NUMBER IN ERROR F1D03840 04555 0621 00 1 60632 STA ELSEBF-1,1 LIST FOR 1 DOUBLE PRIME. F1D03850 04556 1 00001 1 04557 TXI *+1,1,1 INCREMENT ERROR LIST INDEX. F1D03860 F1D03870 04557 2 00001 4 04546 FRCKJ TIX FRCKG,4,1 *CONTINUE, OR QUIT IF AT END OF REFERENCE F1D03880 F1D03890 04560 -3 00000 1 04565 TXL FRCKK,1,0 *NO ERRORS. F1D03900 04561 0754 00 1 00000 PXA ,1 SOME ERROR, PLACE COUNT IN AC. F1D03910 04562 -0501 00 0 06101 ORA FRTSG ADD THE MISSING FORMAT STATEMENT FLAG. F1D03920 04563 0602 00 0 60633 SLW ELSEBF STORE AT TOP OF ERROR LIST. F1D03930 04564 1 00001 1 04565 TXI *+1,1,1 ADD FLAG TO COUNT OF WORDS IN ERROR LIST. F1D03940 04565 -0634 00 1 03751 FRCKK SXD GOOFCT,1 SAVE ERROR LIST WORD COUNT. F1D03950 F1D03960 * . * . * . * . * . * . * . * . * . * . * . * . * . * . * . *F1D03970 F1D03980 ROUTINE TO ELIMINATE DUPLICATE ENTRIES FROM THE CLOSUB F1D03990 TABLE AND THE NAMES OF DUMMY FUNCTION NAMES. DUMMY F1D04000 NAMES APPEAR IN THE ARGUMENT LISTS OF FUNCTION AND/OR F1D04010 SUBROUTINE STATEMENTS, THAT IS IN THE SUBDEF TABLE. F1D04020 F1D04030 04566 0074 00 1 04260 TSX TAP00,1 ASSEMBLE SUBDEF TABLE FOR USE WITH CLOSUB.F1D04040 04567 0 00000 0 00013 PZE 11 F1D04050 F1D04060 * . * . * . * . * . * . * . * . * . * . * . * . * . * . * . *F1D04070 F1D04080 04570 0074 00 1 04260 TSX TAP00,1 ASSEMBLE CLOSUB TABLE. F1D04090 04571 0 00000 0 00011 PZE 9 F1D04100 F1D04110 04572 -0534 00 4 04044 LXD INTETJ+1,4 LOAD WORD COUNT OF CLOSUB TABLE. F1D04120 04573 -3 00000 4 04655 TXL DMSZA,4,0 *CLOSUB TABLE IS EMPTY. F1D04130 04574 0754 00 4 00000 PXA ,4 SOME TABLE, PLACE WORD COUNT IN AC. F1D04140 04575 0400 00 0 04043 ADD INTETJ COMPUTE LAST ADDRESS PLUS ONE. F1D04150 04576 0621 00 0 04613 STA MCLSB INITIALIZE ADDRESSES IN ROUTINE. F1D04160 04577 0621 00 0 04614 STA MCLSC F1D04170 04600 0500 00 0 04043 CLA INTETJ INITIALIZE ADDRESSES IN ROUTINE TO F1D04180 BINARY CARD NO. 9F160012 04601 0621 00 0 04615 STA MCLSD ORIGIN OF CLOSUB TABLE. F1D04190 04602 0621 00 0 04617 STA MCLSJ F1D04200 04603 0621 00 0 04631 STA MCLSH F1D04210 04604 -0534 00 1 04060 LXD INTETL+1,1 LOAD WORD COUNT OF SUBDEF TABLE. F1D04220 04605 0754 00 1 00000 PXA ,1 PLACE WORD COUNT IN AC AND F1D04230 04606 0400 00 0 04057 ADD INTETL COMPUTE LAST ADDRESS PLUS ONE F1D04240 04607 0621 00 0 04625 STA MCLSG OF SUBDEF TABLE. F1D04250 04610 -2 00001 1 04612 TNX MCLSA,1,1 SKIP FIRST NAME IN SUBDEF, MAY BE THE F1D04260 04611 0634 00 1 04623 SXA MCLSF,1 NAME OF THE SUBPROGRAM BEING COMPILED. F1D04270 F1D04280 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 206 * SECTION ONE PRIME * RECORD 9F16 * 04612 0774 00 2 00000 MCLSA AXT 0,2 INITIALIZE SORTED CLOSUB INDEX. F1D04290 04613 -0500 00 4 00000 MCLSB CAL **,4 GET A CLOSUB ENTRY. F1D04300 04614 0600 00 4 00000 MCLSC STZ **,4 RESET VACATED CELL. F1D04310 04615 -0520 00 2 00000 MCLSD NZT **,2 IS THIS THE END OF THE SORTED CLOSUB TABLEF1D04320 04616 1 00000 0 04623 MCLSE TXI MCLSF,,** *YES, NAME IS NOT A DUPLICATE. F1D04330 04617 -0340 00 2 00000 MCLSJ LAS **,2 NO, IS THIS NAME ALREADY IN THE SORTED F1D04340 04620 1 77777 2 04615 TXI MCLSD,2,-1 CLOSUB. MAY BE, CONTINUE SCAN. F1D04350 04621 0020 00 0 04633 TRA MCLSI *YES, DELETE IT. F1D04360 04622 1 77777 2 04615 TXI MCLSD,2,-1 MAY BE, CONTINUE SCAN. F1D04370 04623 0774 00 1 00000 MCLSF AXT **,1 LOAD WORD COUNT OF SUBDEF TABLE. F1D04380 04624 -3 00000 1 04631 TXL MCLSH,1,0 *NO TABLE. F1D04390 04625 -0340 00 1 00000 MCLSG LAS **,1 IS THIS NAME IN SUBDEF. F1D04400 04626 0020 00 0 04630 TRA *+2 F1D04410 BINARY CARD NO. 9F160013 04627 0020 00 0 04633 TRA MCLSI *YES, DO NOT ENTER IN SORTED CLOSUB. F1D04420 04630 2 00001 1 04625 TIX MCLSG,1,1 *COULD BE, CONTINUE SCAN. F1D04430 04631 0602 00 2 00000 MCLSH SLW **,2 IS REAL, UNIQUE SUBPROGRAM NAME, ENTER F1D04440 04632 -0634 00 2 04616 SXD MCLSE,2 IN SORTED CLOSUB AND SAVE COUNTER. F1D04450 F1D04460 04633 2 00001 4 04612 MCLSI TIX MCLSA,4,1 *IS UNSORTED CLOSUB EXHAUSTED, NO CONTINUE.F1D04470 F1D04480 04634 -0534 00 6 04616 LXD MCLSE,6 CLOSUB HAS BEEN PROCESSED, ARE THERE ANY F1D04490 04635 3 00000 2 04640 TXH MCLSK,2,0 *ENTRIES LEFT. YES. F1D04500 04636 -0520 60 0 04631 NZT* MCLSH A SINGLE ENTRY WILL NOT SHOW IN COUNTER. F1D04510 04637 0020 00 0 04642 TRA MCLSL *NOTHING AT ALL. F1D04520 04640 -0535 00 4 04616 MCLSK LDC MCLSE,4 AT LEAST ONE ENTRY, LOAD TRUE COUNTER. F1D04530 04641 1 00001 4 04642 TXI *+1,4,1 ADD THE COUNT OF ONE THAT GOT LOST. F1D04540 04642 -0634 00 4 04044 MCLSL SXD INTETJ+1,4 SAVE NEW WORD COUNT. F1D04550 04643 -3 00000 4 04655 TXL DMSZA,4,0 *SKIP REST OF ROUTINE, NO CLOSUB LEFT. F1D04560 04644 -0634 00 4 06073 SXD CLSIO,4 SET WORD COUNT IN I/O COMMAND. F1D04570 04645 0500 00 0 04043 CLA INTETJ SET ADDRESS IN I/O COMMAND. F1D04580 04646 0621 00 0 06073 STA CLSIO F1D04590 04647 0754 00 4 00000 PXA ,4 COMPUTE LAST ADDRESS PLUS ONE OF SORTED F1D04600 04650 0400 00 0 04043 ADD INTETJ CLOSUB TABLE FOR THE DIM TO SIZ ROUTINE F1D04610 04651 0621 00 0 04744 STA DMSZN AND INITIALIZE ADDRESS. F1D04620 04652 0074 00 4 73606 TSX (TAPE),4 WRITE SORTED CLOSUB TABLE ON SCRATCH TAPE.F1D04630 04653 0 40001 0 06073 PZE CLSIO,,(WBNP) F1D04640 04654 0 00004 0 06100 PZE TCLOS,,EXEQTP F1D04650 F1D04660 THE CLOSUB TABLE HAS BEEN MODIFIED, AND IF ANY TABLE F1D04670 REMAINED IT HAS BEEN WRITTEN AS THE FIRST RECORD ON F1D04680 A SCRATCH TAPE. F1D04690 F1D04700 * . * . * . * . * . * . * . * . * . * . * . * . * . * . * . *F1D04710 F1D04720 ROUTINE FOR CONVERTING THE DIMENSION TABLES F1D04730 (DIM1, DIM2, DIM3, DLST1, AND DLST2) TO THE SIZ TABLE. F1D04740 F1D04750 BINARY CARD NO. 9F160014 04655 0535 00 1 04201 DMSZA LAC ORGDM1-1,1 LOAD 2S COMPLIMENT OF NEXT ENTRY ADDRESS F1D04760 04656 1 00002 1 04657 TXI DMSZB,1,2 IN DIM1 AND REDUCE TO NEXT CORE ADDRESS. F1D04770 F1D04780 04657 -0534 00 4 04205 DMSZB LXD ORGDM2-1,4 LOAD COUNT OF ENTRIES IN DIM2. F1D04790 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 207 * SECTION ONE PRIME * RECORD 9F16 * 04660 -3 00000 4 04674 TXL DMSZD,4,0 *NO ENTRIES IN DIM2 TABLE. F1D04800 04661 0535 00 2 04206 LAC ORGDM2,2 LOAD 2S COMPLIMENT OF ORIGIN OF DIM2. F1D04810 04662 -0500 00 2 00000 DMSZC CAL 0,2 MOVE VARIABLE NAME FROM DIM2 BEHIND F1D04820 04663 0602 00 1 00000 SLW 0,1 DIM1 TABLE (PACK DIM2 TABLE BEHIND DIM1). F1D04830 04664 0500 00 2 00001 CLA 1,2 GET DIMENSIONS OF THIS VARIABLE. F1D04840 04665 0621 00 0 06107 STA ERASA1 SAVE SECOND DIMENSION. F1D04850 04666 0765 00 0 00065 LRS 53 SHIFT FIRST DIMENSION INTO RIGHT MOST F1D04860 04667 0200 00 0 06107 MPY ERASA1 PART OF MQ AND MULTIPLY BY SECOND. F1D04870 04670 -0600 00 1 00001 STQ 1,1 SAVE PRODUCT (LINEAR DIMENSION OF THIS F1D04880 04671 1 77776 1 04672 TXI *+1,1,-2 ARRAY) IN PACKED TABLE. F1D04890 04672 1 77776 2 04673 TXI *+1,2,-2 UPDATE INDICES. F1D04900 04673 2 00001 4 04662 TIX DMSZC,4,1 *IS DIM2 EXHAUSTED, NO CONTINUE. F1D04910 F1D04920 COMPUTE THE LINEAR LENGTH OF THE VARIABLESF1D04930 IN THE DIM3 TABLE AND PACK BEHIND DIM2 F1D04940 IN THE COMBINED DIM1-DIM2 TABLE (SIZ). F1D04950 F1D04960 04674 -0534 00 4 04211 DMSZD LXD DIM3IX-2,4 LOAD COUNT OF ENTRIES IN DIM3 TABLE. F1D04970 04675 -3 00000 4 04712 TXL DMSZF,4,0 *DIM3 TABLE EMPTY. F1D04980 04676 0535 00 2 04212 LAC DIM3IX-1,2 LOAD 2S COMPLIMENT OF DIM3 ORIGIN. F1D04990 04677 -0500 00 2 00000 DMSZE CAL 0,2 GET VARIABLE NAME FROM DIM3 AND PACK F1D05000 04700 0602 00 1 00000 SLW 0,1 BEHIND SIZ TABLE. F1D05010 04701 0500 00 2 00001 CLA 1,2 GET DIMENSIONS. F1D05020 04702 0621 00 0 06107 STA ERASA1 SAVE SECOND DIMENSION. F1D05030 BINARY CARD NO. 9F160015 04703 0765 00 0 00065 LRS 53 SHIFT FIRST DIMENSION INTO ADDRESS OF MQ. F1D05040 04704 0200 00 0 06107 MPY ERASA1 MULTIPLY BY SECOND DIMENSION. F1D05050 04705 0200 00 2 00002 MPY 2,2 MULTIPLY PRODUCT OF D1*D2 BY THIRD F1D05060 04706 -0600 00 1 00001 STQ 1,1 DIMENSION AND SAVE PRODUCT(LINEAR DIM.). F1D05070 04707 1 77776 1 04710 TXI *+1,1,-2 UPDATE INDICES. F1D05080 04710 1 77775 2 04711 TXI *+1,2,-3 F1D05090 04711 2 00001 4 04677 TIX DMSZE,4,1 *IS DIM3 TABLE EXHAUSTED, NO CONTINUE. F1D05100 F1D05110 THIS PART OF THE DIM TO SIZ ROUTINE F1D05120 DOUBLES THE STORAGE ASSIGNMENT FOR DP F1D05130 AND CA ARRAYS. NAMES OF ARRAYS ARE F1D05140 ENTERED IN DLST1 WHEN THEY APPEAR IN A F1D05150 DIMESION STATEMENT HAVING A D OR I IN F1D05160 CARD COLUMN ONE. F1D05170 F1D05180 04712 -0534 00 4 04215 DMSZF LXD DLIST1-2,4 LOAD COUNT OF ENTRIES IN DLIST1 TABLE. F1D05190 04713 -3 00000 4 04733 TXL DMSZK,4,0 *TABLE EMPTY. F1D05200 04714 -0634 00 1 04724 SXD DMSZI,1 SAVE SIZ TABLE INDEX IN TEST INSTRUCTION. F1D05210 04715 0535 00 2 04216 LAC DLIST1-1,2 LOAD 2S COMPLIMENT OF DLST1 TABLE ORIGIN. F1D05220 04716 0535 00 1 04202 DMSZG LAC ORGDM1,1 LOAD 2S COMPLIMENT OF SIZ TABLE ORIGIN. F1D05230 04717 -0500 00 2 00000 CAL 0,2 GET AN ARRAY NAME FROM DLST1 AND F1D05240 04720 -0340 00 1 00000 DMSZH LAS 0,1 SEARCH FOR IT IN SIZ. F1D05250 04721 1 77776 1 04724 TXI DMSZI,1,-2 NOT FOUND YET, INCREMENT SIZ INDEX. F1D05260 04722 1 77776 2 04726 TXI DMSZJ,2,-2 NAME FOUND IN SIZ, UPDATE DLST1 INDEX. F1D05270 04723 1 77776 1 04724 TXI DMSZI,1,-2 NOT FOUND YET, INCREMENT SIZ INDEX. F1D05280 04724 3 00000 1 04720 DMSZI TXH DMSZH,1,** *IS SIZ TABLE EXHAUSTED, NO CONTINUE. F1D05290 04725 0074 00 4 04246 TSX 1PER2,4 YES, WE HAVE A MACHINE ERROR. F1D05300 04726 -0500 00 1 00001 DMSZJ CAL 1,1 GET DIMENSION OF ARRAY IN SIZ AND F1D05310 04727 0767 00 0 00001 ALS 1 MULTIPLY BY 2. F1D05320 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 208 * SECTION ONE PRIME * RECORD 9F16 * 04730 0602 00 1 00001 SLW 1,1 THEN, STORE BACK IN SIZ. F1D05330 BINARY CARD NO. 9F160016 04731 2 00001 4 04716 TIX DMSZG,4,1 *IS DLST1 TABLE EXHAUSTED, NO CONTINUE. F1D05340 04732 -0534 00 1 04724 LXD DMSZI,1 YES, RESTORE SIZ INDEX. F1D05350 F1D05360 THIS PART OF THE DIM TO SIZ ROUTINE F1D05370 ASSIGNS 2 WORDS OF STORAGE FOR NON- F1D05380 SUBSCRIPTED VARIABLES APPEARING IN DP F1D05390 AND CA ARITHMETIC, IF AND CALL STATEMENTS.F1D05400 F1D05410 04733 -0534 00 4 04221 DMSZK LXD DLIST2-2,4 LOAD COUNT OF ENTRIES IN DLST2 TABLE. F1D05420 04734 -3 00000 4 04754 TXL DMSZR,4,0 *TABLE EMPTY. F1D05430 04735 0754 00 4 00000 PXA ,4 PLACE COUNT OF ENTRIES (DLST2 IS A 1 WORD F1D05440 04736 0400 00 0 04222 ADD DLIST2-1 ENTRY) IN AC AND COMPUTE LAST ADDRESS F1D05450 04737 0621 00 0 04742 STA DMSZM PLUS ONE OF TABLE. F1D05460 04740 0560 00 0 06106 LDQ (2)L LOAD A DIMENSION OF TWO INTO MQ. F1D05470 04741 -0534 00 2 04044 DMSZL LXD INTETJ+1,2 LOAD WORD COUNT OF CLOSUB TABLE. F1D05480 04742 -0500 00 4 00000 DMSZM CAL **,4 GET AN ENTRY FROM DLST2 AND SEARCH FOR F1D05490 04743 -3 00000 2 04750 TXL DMSZP,2,0 *THAT NAME IN CLOSUB. NO CLOSUB TABLE. F1D05500 04744 -0340 00 2 00000 DMSZN LAS **,2 IF THE NAME APPEARS IN CLOSUB, THEN F1D05510 04745 0020 00 0 04747 TRA *+2 SECTION ONE HAS MISTAKENLY THOUGHT IT TO F1D05520 04746 0020 00 0 04753 TRA DMSZQ BE A NON-SUBSCRIPTED VARIABLE NAME IN THE F1D05530 04747 2 00001 2 04744 TIX DMSZN,2,1 ARGUMENT LIST OF A CALL STATEMENT. F1D05540 04750 0602 00 1 00000 DMSZP SLW 0,1 SYMBOL NOT IN CLOSUB, IS REAL NON- F1D05550 04751 -0600 00 1 00001 STQ 1,1 SUBSCRIPTED VARIABLE NAME, ASSIGN A F1D05560 04752 1 77776 1 04753 TXI *+1,1,-2 DIMENSION OF TWO. F1D05570 04753 2 00001 4 04741 DMSZQ TIX DMSZL,4,1 *IS DLST2 EXHAUSTED, NO CONTINUE. F1D05580 F1D05590 THE SIZ TABLE CONSISTING OF TWO WORD ENTRIES F1D05600 IS NOW COMPLETE. THE DIM1, DIM2, DIM3, DLST1, F1D05610 AND DLST2 TABLES ARE DEAD. F1D05620 F1D05630 04754 -0754 00 1 00000 DMSZR PXD ,1 GET TRU LAST ADDRESS F1D05640 04755 -0737 00 1 00000 PDC ,1 OF SIZ TABLE. F1D05650 04756 0535 00 4 04202 LAC ORGDM1,4 LOAD 2S COMPLIMENT OF SIZ TABLE ORIGIN F1D05660 BINARY CARD NO. 9F160017 04757 -0634 00 4 04760 SXD *+1,4 AND SET IN INSTRUCTION TO COMPUTE F1D05670 04760 1 00000 1 04761 TXI *+1,1,** WORD COUNT OF SIZ TABLE. F1D05680 04761 -0634 00 1 06072 SXD DMIO3,1 SET WORD COUNT IN I/O COMMAND. F1D05690 04762 0634 00 1 06107 SXA ERASA1,1 SAVE WORD COUNT TO BE WRITTEN ON TAPE. F1D05700 04763 0074 00 4 73606 TSX (TAPE),4 WRITE SIZ TABLE AS RECORD 3 OF FILE 4. F1D05710 04764 0 40001 0 06070 PZE DMIO1,,(WBNP) THE SIZ TABLE (IF ANY) IS PRECEDED BY F1D05720 04765 0 00002 0 06077 PZE LABL3,,TABTAP EIFNO (LAST IFN IN PROGRAM) AND THE F1D05730 F1D05740 04766 0074 00 4 73606 TSX (TAPE),4 SIZ WORD COUNT. WRITE AN END-OF-FILE F1D05750 04767 0 40005 0 00000 PZE ,,(WEFP) AFTER THE SIZ TABLE. F1D05760 04770 0 00002 0 06114 PZE 4THEOF,,TABTAP F1D05770 F1D05780 * . * . * . * . * . * . * . * . * . * . * . * . * . * . * . *F1D05790 F1D05800 04771 -0520 00 0 04044 NZT INTETJ+1 WAS CLOSUB WRITTEN ON SCRATCH TAPE. F1D05810 04772 0020 00 0 04776 TRA FXASM NO, THERE IS NO ANY CLOSUB TABLE. F1D05820 04773 0074 00 4 73606 TSX (TAPE),4 BACKSPACE SCRATCH TAPE TO BEGINNING OF F1D05830 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 209 * SECTION ONE PRIME * RECORD 9F16 * 04774 0 20000 0 04365 PZE BSR,,(SKBP) CLOSUB TABLE. F1D05840 04775 0 00004 0 06100 PZE TCLOS,,EXEQTP F1D05850 F1D05860 * . * . * . * . * . * . * . * . * . * . * . * . * . * . * . *F1D05870 F1D05880 04776 -0534 00 4 04151 FXASM LXD FXCNIX-2,4 PLACE FIXCON TABLE WORD COUNT IN LOCATION F1D05890 04777 0754 00 4 00000 PXA ,4 PRECEDING THE TABLE FOR SECTION TWO. F1D05900 05000 0601 00 0 60074 STO FXCNWC F1D05910 F1D05920 * . * . * . * . * . * . * . * . * . * . * . * . * . * . * . *F1D05930 F1D05940 ASSEMBLE ENDI TABLE (IF NONE, FABRICATE ONE). F1D05950 F1D05960 05001 -0534 00 1 04137 ENDIA LXD INTETT,1 LOAD ENDI TABLE MAXIMUM LENGTH. F1D05970 05002 0754 00 1 00000 PXA ,1 PLACE MAXIMUM LENGTH IN AC. F1D05980 05003 0400 00 0 04137 ADD INTETT COMPUTE LAST ADDRESS PLUS ONE OF ASSEMBLY F1D05990 05004 0621 00 0 05006 STA ENDIB BUFFER AND INITIALIZE ADDRESS. F1D06000 BINARY CARD NO. 9F160018 05005 -0500 00 0 06106 CAL (2)L SET ENTIRE F1D06010 05006 0602 00 1 00000 ENDIB SLW **,1 TABLE TO 2S. F1D06020 05007 2 00001 1 05006 TIX ENDIB,1,1 F1D06030 F1D06040 05010 0074 00 1 04260 TSX TAP00,1 ASSEMBLE ENDI TABLE OVER PRE-SET BUFFER. F1D06050 05011 0 00000 0 00023 PZE 19 F1D06060 F1D06070 05012 0774 00 1 00006 AXT 6,1 LOAD SENSE SWITCH COUNT OF SIX. F1D06080 05013 0754 00 1 00000 PXA ,1 PLACE IN AC. F1D06090 05014 0400 00 0 04137 ADD INTETT COMPUTE ADDRESS OF LAST PHYSICAL SENSE F1D06100 05015 0621 00 0 05016 STA ENDIC SWITCH AND INITIALIZE ADDRESS. F1D06110 05016 -0500 00 1 00000 ENDIC CAL **,1 GET A SETTING FROM THE ASSEMBLED TABLE. F1D06120 05017 0402 00 0 06106 SUB (2)L IS IT A SETTING OF TWO. F1D06130 05020 -0120 00 0 05023 TMI ENDID *NO, 0 OR 1, LEAVE ALONE. F1D06140 05021 -0754 00 0 00000 ZAC SENSE SWITCH UP, RESET SETTING. F1D06170 05022 0602 60 0 05016 SLW* ENDIC SAVE NEW SETTING FOR THIS SENSE SWITCH. F1D06180 05023 2 00001 1 05016 ENDID TIX ENDIC,1,1 *ALL TESTED, NO CONTINUE. F1D06190 F1D06200 THE ENDI TABLE NOW CONTAINS AT LEAST F1D06210 SIX ENTRIES. F1D06220 05024 -0534 00 4 04140 LXD INTETT+1,4 GET ENDI WORD COUNT. WERE THERE ANY F1D06230 05025 -3 00006 4 05027 TXL *+2,4,6 *SETTINGS IN THE END CARD. NO. F1D06240 05026 -0634 00 4 06074 SXD ENDIO,4 YES, MORE THAN SIX, RESET I/O COMMAND. F1D06250 05027 0500 00 0 04137 CLA INTETT GET ORIGIN OF TABLE. F1D06260 05030 0621 00 0 06074 STA ENDIO SET IN I/O COMMAND. F1D06270 05031 0074 00 4 73606 TSX (TAPE),4 WRITE ENDI TABLE AS RECORD 1 OF FILE 5. F1D06280 05032 0 40001 0 06074 PZE ENDIO,,(WBNP) F1D06290 BINARY CARD NO. 9F160019 05033 0 00002 0 04141 PZE INTETT+2,,TABTAP F1D06300 F1D06310 * . * . * . * . * . * . * . * . * . * . * . * . * . * . * . *F1D06320 F1D06330 SUBDEF TABLE IS NO LONGER NEEDED, WRITE IT OUT. F1D06340 F1D06350 05034 0074 00 1 04370 TSX WAT00,1 NO MODIFICATION, WRITE IT AS RECORD 2 F1D06360 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 210 * SECTION ONE PRIME * RECORD 9F16 * 05035 0 00000 0 00013 PZE 11 OF FILE 5. F1D06370 F1D06380 * . * . * . * . * . * . * . * . * . * . * . * . * . * . * . *F1D06390 F1D06400 05036 0074 00 1 04260 TSX TAP00,1 ASSEMBLE COMMON TABLE. F1D06410 05037 0 00000 0 00014 PZE 12 F1D06420 F1D06430 05040 0074 00 1 04370 TSX WAT00,1 NO MODIFICATION, WRITE AS RECORD 3 F1D06440 05041 0 00000 0 00014 PZE 12 OF FILE 5. F1D06450 F1D06460 * . * . * . * . * . * . * . * . * . * . * . * . * . * . * . *F1D06470 F1D06480 05042 0074 00 1 04260 TSX TAP00,1 ASSEMBLE TABLE OF HOLLERITH ARGUMENTS. F1D06490 05043 0 00000 0 00015 PZE 13 F1D06500 F1D06510 05044 0074 00 1 04370 TSX WAT00,1 NO MODIFICATION, WRITE AS RECORD 4 F1D06520 05045 0 00000 0 00015 PZE 13 OF FILE 5. F1D06530 F1D06540 * . * . * . * . * . * . * . * . * . * . * . * . * . * . * . *F1D06550 F1D06560 05046 0074 00 1 04260 TSX TAP00,1 ASSEMBLY TABLE OF EFNS/IFNS - TEIFNO. F1D06570 05047 0 00000 0 00000 PZE 0 F1D06580 05050 -0534 00 4 03756 LXD INTETA+1,4 LOAD TEIFNO WORD COUNT. F1D06590 05051 -3 00000 4 05122 TXL TEIFG,4,0 *NO TABLE, EXIT. F1D06600 05052 0754 00 4 00000 PXA ,4 PLACE WORD COUNT IN AC. F1D06610 05053 0400 00 0 03755 ADD INTETA ADD ORIGIN OF TEIFNO TABLE. F1D06620 05054 0621 00 0 05061 STA TEIFA SET ADDRESSES IN SEARCH ROUTINE. F1D06630 05055 0621 00 0 05072 STA TEIFC F1D06640 05056 -0534 00 1 03751 LXD GOOFCT,1 LOAD ERROR COUNT. F1D06650 05057 0621 00 0 03735 STA EIFLOC INITIALIZE CELL FOR 1 DOUBLE PRIME. F1D06660 05060 -0634 00 4 03735 SXD EIFLOC,4 F1D06670 BINARY CARD NO. 9F160020 05061 0500 00 4 00000 TEIFA CLA **,4 GET A TEIFNO ENTRY. F1D06680 05062 0120 00 0 05066 TPL TEIFB *CHECK FOR DUPLICATE EFN. F1D06690 05063 0602 60 0 05061 SLW* TEIFA SET ENTRY PLUS, MINUS IS FLAG SET BY F1D06700 05064 2 00001 4 05061 TIX TEIFA,4,1 SECTION I, IS TABLE EXHAUSTED. F1D06710 05065 0020 00 0 05112 TRA TEIFF YES, EXIT. F1D06720 F1D06730 05066 0621 00 0 06107 TEIFB STA ERASA1 SAVE EFN. FROM ENTRY. F1D06740 05067 -2 00001 4 05112 TNX TEIFF,4,1 IS TABLE EXHAUSTED, NO BUMP TO GET NEXT. F1D06750 05070 0754 00 4 00000 PXA ,4 NO, SHIFT CURRENT TEIFNO INCREMENT F1D06760 05071 0734 00 2 00000 PAX ,2 (DECREMENT) TO IR2 FOR SCAN. F1D06770 05072 0500 00 2 00000 TEIFC CLA **,2 GET SUCCEEDING TEIFNO ENTRY. F1D06780 05073 -0120 00 0 05100 TMI TEIFD IS THIS A SPECIAL ENTRY. F1D06790 05074 -0320 00 0 06110 ANA ADMSK NO, GET ADDRESS FIELD - EFN. F1D06800 05075 -0340 00 0 06107 LAS ERASA1 DO THESE TWO EFN MATCH. F1D06810 05076 0020 00 0 05100 TRA *+2 NO. F1D06820 05077 0020 00 0 05102 TRA TEIFE YES, WE HAVE FOUND AN ERROR. F1D06830 05100 2 00001 2 05072 TEIFD TIX TEIFC,2,1 AT LEAST NOT YET, BUT LETS CONTINUE. F1D06840 05101 0020 00 0 05061 TRA TEIFA IS ALL RIGHT ON THIS ENTRY, GET NEXT. F1D06850 F1D06860 05102 0502 60 0 05072 TEIFE CLS* TEIFC SET THIS ENTRY MINUS SO THAT IT WILL BE F1D06870 05103 0601 60 0 05072 STO* TEIFC IGNORED WHEN WE GET TO IT LATER. F1D06880 05104 1 00001 1 05105 TXI *+1,1,1 INCREMENT ERROR LIST INDEX. F1D06890 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 211 * SECTION ONE PRIME * RECORD 9F16 * 05105 0601 00 1 60633 STO ELSEBF,1 SAVE DUPLICATE EFN. F1D06900 05106 0500 00 0 03751 CLA GOOFCT INCREMENT COUNT OF EFN DUPLICATES. F1D06910 BINARY CARD NO. 9F160021 05107 0400 00 0 06105 ADD (1)L F1D06920 05110 0621 00 0 03751 STA GOOFCT SAVE COUNT. F1D06930 05111 0020 00 0 05061 TRA TEIFA CONTINUE SEARCH. F1D06940 F1D06950 05112 0534 00 4 03751 TEIFF LXA GOOFCT,4 LOAD COUNT OF DUPLICATE EFNS. F1D06960 05113 -3 00000 4 05122 TXL TEIFG,4,0 *NONE, WRITE TABLE. F1D06970 05114 0754 00 4 00000 PXA ,4 PLACE ERROR COUNT IN AC. F1D06980 05115 1 00001 1 05116 TXI *+1,1,1 INCREMENT ERROR LIST INDEX FOR 1 DP. F1D06990 05116 -0534 00 2 03751 LXD GOOFCT,2 LOAD OLD ERROR INDEX. F1D07000 05117 -0634 00 1 03751 SXD GOOFCT,1 SAVE NEW ONE. F1D07010 05120 -0501 00 0 06102 ORA EIFSG ADD EFN ERROR FLAG. F1D07020 05121 0602 00 2 60633 SLW ELSEBF,2 SAVE IN ERROR LIST. F1D07030 F1D07040 05122 0074 00 1 04370 TEIFG TSX WAT00,1 WRITE TEIFNO TABLE AS RECORD 5 OF FILE 5. F1D07050 05123 0 00000 0 00000 PZE 0 F1D07060 F1D07070 * . * . * . * . * . * . * . * . * . * . * . * . * . * . * . *F1D07080 F1D07090 ROUTINE TO REPLACE EFNS IN THE TIFGO TABLE WITH IFNS F1D07100 FROM THE TEIFNO TABLE. F1D07110 F1D07120 05124 0074 00 1 04260 TSX TAP00,1 ASSEMBLE TABLE OF IFS AND GO TOS (TIFGO). F1D07130 05125 0 00000 0 00002 PZE 2 F1D07140 F1D07150 THE MODIFICATION OF TIFGO, TRAD, TDO AND FRET F1D07160 REQUIRE THE EXISTENCE OF A TEIFNO TABLE. F1D07170 A CHECK IS THEREFORE MADE AT THIS POINT FOR F1D07180 THE NECESSITY OF A TEIFNO TABLE. F1D07190 F1D07200 05126 -0500 00 0 04024 CAL INTETH-3 LOAD FRET BUFFER WORD COUNT. F1D07240 05127 0400 00 0 03772 ADD INTETC+1 ADD TIFGO TABLE WORD COUNT. F1D07250 05130 0400 00 0 04030 ADD INTETH+1 ADD FRET DUMP WORD COUNT. F1D07260 05131 -0320 00 0 06111 ANA DCMSK GET ACCUMULATED COUNT. F1D07270 05132 -0534 00 4 03735 LXD EIFLOC,4 LOAD TEIFNO WORD COUNT. F1D07280 05133 0100 00 0 05136 TZE NOTIF+1 *NO TABLES, NO NEED FOR TEIFNO. F1D07290 05134 3 00000 4 05136 TXH *+2,4,0 IS THERE A TEIFNO TABLE. F1D07300 BINARY CARD NO. 9F160022 05135 0074 00 4 04247 NOTIF TSX 1PER3,4 *NO, PROGRAMMER ERROR. F1D07310 05136 0634 00 4 06052 SXA FEIFA,4 YES, SAVE WORD COUNT IN SEARCH ROUTINE. F1D07320 05137 0500 00 0 03735 CLA EIFLOC GET LAST ADDRESS PLUS ONE OF TEIFNO F1D07330 05140 0621 00 0 06053 STA FEIFB AND INITIALIZE TEIFNO SEARCH ROUTINE. F1D07340 05141 0621 00 0 06062 STA FEIFC F1D07350 05142 0621 00 0 05270 STA MTDOD INITIALIZE TDO TEST ROUTINE. F1D07360 05143 0621 00 0 05275 STA MTDOE F1D07370 F1D07380 05144 -0534 00 2 03772 MTIF0 LXD INTETC+1,2 LOAD WORD COUNT OF TIFGO TABLE. F1D07390 05145 0754 00 2 00000 PXA ,2 PLACE WORD COUNT IN AC. F1D07400 05146 0400 00 0 03771 ADD INTETC COMPUTE LAST ADDRESS PLUS ONE OF TIFGO. F1D07410 05147 0621 00 0 03736 STA TIFLOC INITIALIZE CELLS FOR 1 DOUBLE PRIME. F1D07420 05150 -0634 00 2 03736 SXD TIFLOC,2 F1D07430 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 212 * SECTION ONE PRIME * RECORD 9F16 * 05151 -3 00000 2 05220 TXL MTIFF,2,0 *NO TIFGO TABLE, SKIP THE REST OF THIS F1D07440 05152 0621 00 0 05161 STA MTIFA INITIALIZATION JAZZ. F1D07450 05153 0621 00 0 05203 STA MTIFG F1D07460 05154 0621 00 0 05205 STA MTIFC F1D07470 05155 0621 00 0 05211 STA MTIFH F1D07480 05156 0621 00 0 05212 STA MTIFD F1D07490 05157 0621 00 0 05216 STA MTIFI F1D07500 05160 0621 00 0 05427 STA IFRTB F1D07510 F1D07520 F1D07530 ROUTINE TO REPLACE EFNS IN TIFGO BY IFNS FROM TEIFNO. F1D07540 F1D07550 05161 0500 00 2 00000 MTIFA CLA **,2 GET FIRST WORD OF ENTRY. F1D07560 05162 -0120 00 0 05200 TMI MTIFB *MINUS TIFGO TYPE. F1D07570 BINARY CARD NO. 9F160023 05163 0734 00 1 00000 PAX ,1 PLACE TYPE NUMBER IN INDEX REGISTER. F1D07580 05164 -3 00006 1 05166 TXL *+2,1,6 IS TYPE NUMBER GREATER THAN 6. F1D07590 05165 0774 00 1 00007 AXT 7,1 YES, ONE DOUBLE PRIME WILL NOTE ERROR. F1D07600 05166 0522 00 1 05177 XEC TIFTR,1 BRANCH ON TYPE NUMBER TO PROPER ENTRY. F1D07610 05167 0074 00 4 04250 TSX 1PER4,4 TABLE EXHAUSTED, IMPOSSIBLE. F1D07620 F1D07630 05170 2 00001 2 05217 TIX MTIFE,2,1 N = 7, NO MODIFICATION. F1D07640 05171 2 00001 2 05212 TIX MTIFD,2,1 N = 6 F1D07650 05172 2 00001 2 05205 TIX MTIFC,2,1 N = 5 F1D07660 05173 2 00001 2 05205 TIX MTIFC,2,1 N = 4 F1D07670 05174 2 00001 2 05205 TIX MTIFC,2,1 N = 3 F1D07680 05175 2 00001 2 05217 TIX MTIFE,2,1 N = 2, NO MODIFICATION. F1D07690 05176 2 00001 2 05217 TIX MTIFE,2,1 N = 1, NO MODIFICATION. F1D07700 05177 2 00001 2 05212 TIFTR TIX MTIFD,2,1 N = 0 F1D07710 F1D07720 GENERAL PROCESSOR FOR TIFGO TABLE, FOUR ENTRY POINTS. F1D07730 F1D07740 05200 0621 00 0 06107 MTIFB STA ERASA1 SAVE ADDRESS OF FIRST WORD OF ENTRY. F1D07750 05201 0074 00 1 06052 TSX FEIFA,1 SEARCH TEIFNO FOR CORRESPONDING F1D07760 05202 0771 00 0 00022 ARS 18 IFN AND INSERT IN PLACE OF EFN F1D07770 05203 0621 00 2 00000 MTIFG STA **,2 IN TABLE. F1D07780 05204 -2 00001 2 04250 TNX 1PER4,2,1 *TABLE EXHAUSTED, IMPOSSIBLE. F1D07790 05205 -0500 00 2 00000 MTIFC CAL **,2 GET BETA1 (BETA2 IF MINUS TYPE) FROM F1D07800 05206 0771 00 0 00022 ARS 18 DECREMENT FIELD OF SECOND WORD OF ENTRY. F1D07810 05207 0621 00 0 06107 STA ERASA1 SAVE FOR TEIFNO SEARCH. F1D07820 05210 0074 00 1 06052 TSX FEIFA,1 SEARCH TEIFNO. F1D07830 BINARY CARD NO. 9F160024 05211 0622 00 2 00000 MTIFH STD **,2 REPLACE EFN WITH CORRESPONDING IFN. F1D07840 05212 -0500 00 2 00000 MTIFD CAL **,2 GET BETA2 (BETA3 IF MINUS TYPE) FROM F1D07850 05213 0621 00 0 06107 STA ERASA1 ADDRESS FIELD OF SECOND WORD OF ENTRY. F1D07860 05214 0074 00 1 06052 TSX FEIFA,1 SEARCH TEIFNO. F1D07870 05215 0771 00 0 00022 ARS 18 SHIFT IFN INTO ADDRESS FIELD AND INSERT F1D07880 05216 0621 00 2 00000 MTIFI STA **,2 INTO TIFGO IN PLACE OF EFN. F1D07890 F1D07900 05217 2 00001 2 05161 MTIFE TIX MTIFA,2,1 *HAS ALL OF TIFGO BEEN PROCESSED, NO. F1D07910 F1D07920 05220 0074 00 1 04370 MTIFF TSX WAT00,1 YES, WRITE MODIFIED TIFGO AS RECORD 6 F1D07930 05221 0 00000 0 00002 PZE 2 OF FILE 5. F1D07940 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 213 * SECTION ONE PRIME * RECORD 9F16 * F1D07950 * . * . * . * . * . * . * . * . * . * . * . * . * . * . * . *F1D07960 F1D07970 ROUTINE TO REPLACE EFNS IN TRAD WITH IFNS FROM TEIFNO. F1D07980 F1D07990 05222 0074 00 1 04260 TSX TAP00,1 ASSEMBLE TRAD TABLE. F1D08000 05223 0 00000 0 00003 PZE 3 F1D08010 F1D08020 05224 -0534 00 2 04000 LXD INTETD+1,2 LOAD TRAD WORD COUNT. F1D08030 05225 -3 00000 2 05242 TXL MTRDC,2,0 *EMPTY TABLE. F1D08040 05226 0754 00 2 00000 PXA ,2 PLACE WORD COUNT IN AC. F1D08050 05227 0400 00 0 03777 ADD INTETD ADD ORIGIN OF TABLE. F1D08060 05230 0621 00 0 03737 STA TRDLOC INITIALIZE ADDRESSES. F1D08070 05231 0621 00 0 05234 STA MTRDA F1D08080 05232 0621 00 0 05240 STA MTRDB F1D08090 05233 -0634 00 2 03737 SXD TRDLOC,2 SAVE WORD COUNT FOR 1 DOUBLE PRIME. F1D08100 05234 -0500 00 2 00000 MTRDA CAL **,2 GET AN EFN FROM TRAD. F1D08110 05235 0621 00 0 06107 STA ERASA1 SAVE FOR SEARCH ROUTINE. F1D08120 05236 0074 00 1 06052 TSX FEIFA,1 SEARCH TEIFNO FOR CORRESPONDING IFN. F1D08130 BINARY CARD NO. 9F160025 05237 0771 00 0 00022 ARS 18 MOVE IFN TO ADDRESS FIELD. F1D08140 05240 0621 00 2 00000 MTRDB STA **,2 REPLACE EFN IN TRAD BY IFN. F1D08150 05241 2 00001 2 05234 TIX MTRDA,2,1 *IS TRAD EXHAUSTED, NO CONTINUE. F1D08160 F1D08170 05242 0074 00 1 04370 MTRDC TSX WAT00,1 WRITE TRAD AS RECORD 7 OF FILE 5. F1D08180 05243 0 00000 0 00003 PZE 3 F1D08190 F1D08200 * . * . * . * . * . * . * . * . * . * . * . * . * . * . * . *F1D08210 F1D08220 ROUTINE TO REPLACE EFNS IN TDO WITH IFNS FROM TEIFNO. F1D08230 F1D08240 05244 0074 00 1 04260 TSX TAP00,1 ASSEMBLE TDO TABLE. F1D08250 05245 0 00000 0 00001 PZE 1 F1D08260 F1D08270 05246 -0534 00 2 03764 LXD INTETB+1,2 LOAD WORD COUNT OF TABLE. F1D08280 05247 -3 00000 2 05301 TXL MTDOH,2,0 *NO ENTRIES IN TDO, EXIT. F1D08290 05250 0754 00 2 00000 PXA ,2 PLACE WORD COUNT IN AC. F1D08300 05251 0400 00 0 03763 ADD INTETB ADD TABLE ORIGIN TO FORM LAST ADDRESS+1. F1D08310 05252 0621 00 0 05257 STA MTDOA INITIALIZE F1D08320 05253 0621 00 0 05261 STA MTDOB ADDRESSES IN F1D08330 05254 0621 00 0 05277 STA MTDOF MODIFICATION ROUTINE. F1D08340 05255 0621 00 0 03740 STA TDOLOC SET INFORMATION FOR SUCCEEDING RECORDS. F1D08350 05256 -0634 00 2 03740 SXD TDOLOC,2 F1D08360 F1D08370 05257 0500 00 2 00000 MTDOA CLA **,2 GET FIRST WORD OF A TDO ENTRY. F1D08380 05260 0120 00 0 05263 TPL MTDOC *NORMAL DO LOOP. F1D08390 05261 0602 00 2 00000 MTDOB SLW **,2 MINUS SIGNIFIES A TDO ENTRY GENERATED BY F1D08400 05262 0020 00 0 05300 TRA MTDOG I/O TRANSLATOR, SET PLUS AND CONTINUE. F1D08410 F1D08420 05263 0621 00 0 06107 MTDOC STA ERASA1 SAVE BETA OF DO FOR TEIFNO SEARCH ROUTINE.F1D08430 05264 0074 00 1 06052 TSX FEIFA,1 SEARCH FOR BETA IN TEIFNO. F1D08440 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 214 * SECTION ONE PRIME * RECORD 9F16 * BINARY CARD NO. 9F160026 05265 -3 00000 4 05135 TXL NOTIF,4,0 *IS THERE A TEIFNO TABLE, NO. F1D08441 05266 0100 00 0 05277 TZE MTDOF *NOT FOUND IN TEIFNO. F1D08450 05267 -2 00001 4 05276 TNX MTDOE+1,4,1 *NO MORE ENTRIES IN TEIFNO. F1D08460 05270 -0500 00 4 00000 MTDOD CAL **,4 GET NEXT TEIFNO ENTRY. F1D08470 05271 -0320 00 0 06110 ANA ADMSK GET EFN. F1D08480 05272 0402 00 0 06107 SUB ERASA1 IS IT THE SAME AS BETA. F1D08490 05273 0100 00 0 05275 TZE MTDOE *YES. F1D08500 05274 1 00001 4 05275 TXI *+1,4,1 NO, BACK UP TEIFNO INDEX BY ONE. F1D08510 05275 -0500 00 4 00000 MTDOE CAL **,4 GET TEIFNO ENTRY (BETA). F1D08520 05276 0771 00 0 00022 ARS 18 MOVE IFN TO ADDRESS FIELD. F1D08530 05277 0621 00 2 00000 MTDOF STA **,2 REPLACE EFN IN TDO BY IFN FROM TEIFNO. F1D08540 F1D08550 05300 2 00005 2 05257 MTDOG TIX MTDOA,2,5 *IS TDO EXHAUSTED, NO CONTINUE. F1D08560 F1D08570 05301 0074 00 1 04370 MTDOH TSX WAT00,1 YES, WRITE MODIFIED TDO TABLE AS F1D08580 05302 0 00000 0 00001 PZE 1 RECORD 8 OF FILE 5. F1D08590 F1D08600 * . * . * . * . * . * . * . * . * . * . * . * . * . * . * . *F1D08610 F1D08620 ROUTINE TO REPLACE EFNS IN FRET WITH IFNS FROM TEIFNO. F1D08630 THE TABLE IS ALSO SORTED ON THE IFNS AND THOSE F1D08640 FREQUENCIES REFERING TO COMPUTED GO TO S AND IF F1D08650 STATEMENTS ARE PERMUTED. F1D08660 F1D08670 F1D08680 05303 0074 00 1 04260 TSX TAP00,1 ASSEMBLE FRET TABLE. F1D08690 05304 0 00000 0 00007 PZE 7 F1D08700 F1D08710 05305 -0534 00 2 04030 LXD INTETH+1,2 LOAD FRET WORD COUNT. F1D08720 05306 -3 00000 2 05466 TXL WRFRT,2,0 *NO TABLE, EXIT. F1D08730 05307 0754 00 2 00000 PXA ,2 SOME TABLE, PLACE WORD COUNT IN AC. F1D08740 05310 0400 00 0 04027 ADD INTETH COMPUTE LAST ADDRESS PLUS ONE. F1D08750 05311 -0634 00 2 03741 SXD FRTLOC,2 SAVE WORD COUNT FOR 1 DOUBLE PRIME. F1D08760 05312 0621 00 0 03741 STA FRTLOC SAVE LAST+1 FOR SAME. F1D08770 BINARY CARD NO. 9F160027 05313 0621 00 0 05326 STA MFRTA INITIALIZE ADDRESSES IN FRET PROCESSOR. F1D08780 05314 0621 00 0 05333 STA MFRTB .. F1D08790 05315 0621 00 0 05352 STA SFRTA .. F1D08800 05316 0621 00 0 05360 STA SFRTC .. F1D08810 05317 0621 00 0 05372 STA SFRTE .. F1D08820 05320 0621 00 0 05402 STA SFRTH .. F1D08830 05321 0621 00 0 05404 STA SFRTI .. F1D08840 05322 0621 00 0 05413 STA SFRTL .. F1D08850 05323 0621 00 0 05437 STA IFRTD .. F1D08860 05324 0621 00 0 05451 STA IFRTG .. F1D08870 05325 0621 00 0 05462 STA IFRTL .. F1D08880 F1D08890 REPLACE EFNS IN FRET WITH IFNS FROM TEIFNO. F1D08900 F1D08910 05326 0500 00 2 00000 MFRTA CLA **,2 GET AN ENTRY FROM FRET F1D08920 05327 0120 00 0 05350 TPL MFRTC *NOT WORD CONTAINING EFN. F1D08930 05330 0621 00 0 06107 STA ERASA1 SAVE EFN FOR TEIFNO SEARCH. F1D08940 05331 0074 00 1 06052 TSX FEIFA,1 SEARCH TEIFNO FOR CORRESPONDING IFN. F1D08950 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 215 * SECTION ONE PRIME * RECORD 9F16 * 05332 0771 00 0 00022 ARS 18 MOVE IFN TO ADDRESS FIELD. F1D08960 05333 0621 00 2 00000 MFRTB STA **,2 REPLACE EFN WITH IFN. F1D08970 05334 -0320 00 0 06110 ANA ADMSK MASK OUT ALL BUT ADDRESS FIELD. F1D0897A 05335 -0100 00 0 05350 TNZ MFRTC *IS THERE AN IFN, YES. F1D0897B 05336 0500 00 0 06107 CLA ERASA1 NO. RETRIEVE EFN. F1D0897C 05337 -0501 00 0 06103 ORA MFRTE ADD NON-EXIST FLAG. F1D0897D 05340 -0534 00 4 03751 LXD GOOFCT,4 LOAD ERROR LIST INDEX. F1D0897E BINARY CARD NO. 9F160028 05341 0602 00 4 60633 SLW ELSEBF,4 SAVE FOR DIAGNOSTIC. F1D0897F 05342 1 00001 4 05343 TXI *+1,4,1 UPDATE ERROR LIST INDEX. F1D0897G 05343 -0634 00 4 03751 SXD GOOFCT,4 SAVE ERROR COUNT FOR DIAGNOSTIC. F1D0897H 05344 -0754 00 4 00000 PXD ,4 PLACE ERROR INDEX IN AC AND F1D0897I 05345 0400 00 0 06110 ADD ADMSK ADD AN ADDRESS OF ALL ONES SO THAT F1D0897J 05346 -0760 00 0 00003 SSM ANY COMPARISONS WILL FAIL. F1D0897K 05347 0601 60 0 05326 STO* MFRTA STORE DUMMY ENTRY IN FRET. F1D0897L 05350 2 00001 2 05326 MFRTC TIX MFRTA,2,1 *ALL EFNS REPLACED, NO CONTINUE. F1D08980 F1D08990 SORT FRET ON THE IFNS. F1D09000 F1D09010 05351 -0534 00 2 03741 SFRTQ LXD FRTLOC,2 LOAD FRET WORD COUNT. F1D09020 05352 0500 00 2 00000 SFRTA CLA **,2 GET A WORD FRET. F1D09030 05353 -0120 00 0 05356 TMI SFRTB *IS THIS FIRST WORD OF ENTRY, YES. F1D09040 05354 2 00001 2 05352 TIX SFRTA,2,1 NO, GET NEXT WORD OF TABLE. F1D09050 05355 0020 00 0 05422 TRA SFRTP TABLE EXHAUSTED. F1D09060 05356 0634 00 2 05367 SFRTB SXA SFRTD,2 SAVE POSITION OF THIS ENTRY. F1D09070 05357 -2 00001 2 05422 TNX SFRTP,2,1 DECREMENT INDEX AND SEARCH FOR NEXT F1D09080 05360 0560 00 2 00000 SFRTC LDQ **,2 ENTRY IN FRET. F1D09090 05361 0162 00 0 05357 TQP *-2 *KEEP LOOKING FOR FIRST WORD OF NEXT ENTRY.F1D09100 05362 0040 00 0 05352 TLQ SFRTA *NEXT ENTRY, IS 2ND ENTRY IFN LOWER F1D09110 THAN 1ST ENTRY IFN. NO, 2ND IS HIGHER. F1D09120 F1D09130 THE IFN OF ENTRY 1 IS HIGHER THAN THE IFN OF F1D09140 ENTRY 2, INTERCHANGE THE TWO ENTRIES. F1D09150 F1D09160 05363 -0600 00 0 04256 STQ STATN SAVE 2ND IFN FOR COMPARE. F1D09170 05364 0340 00 0 04256 CAS STATN ARE THE TWO IFNS EQUAL. F1D09180 05365 0020 00 0 05367 TRA SFRTD NO. F1D09190 05366 0074 00 4 04255 TSX 1PER8,4 *YES, PROGRAMMER ERROR. F1D09200 BINARY CARD NO. 9F160029 05367 0774 00 1 00000 SFRTD AXT **,1 LOAD POSITION OF ENTRY 1. F1D09210 05370 0774 00 4 00000 AXT 0,4 INITIALIZE INDEX OF TEMPORARY BUFFER. F1D09220 05371 0020 00 0 05374 TRA SFRTF STORE FIRST WORD OF ENTRY 1. F1D09230 05372 0500 00 1 00000 SFRTE CLA **,1 GET NEXT WORD OF ENTRY 1. F1D09240 05373 -0120 00 0 05377 TMI SFRTG *IS THIS THE FIRST WORD OF ENTRY 2, YES. F1D09250 05374 0601 00 4 24671 SFRTF STO LWBF2,4 NO, SAVE IN TEMPORARY BUFFER. F1D09260 05375 -2 00001 1 05421 TNX 1PER5X,1,1 *ERROR IF TABLE IS EXHAUSTED. F1D09270 05376 1 77777 4 05372 TXI SFRTE,4,-1 UPDATE STORING INDEX AND GET NEXT WORD. F1D09280 F1D09290 05377 0534 00 1 05367 SFRTG LXA SFRTD,1 LOAD POSITION VACATED BY ENTRY 1. F1D09300 05400 0131 00 0 00000 XCA MOVE FIRST WORD OF 2ND ENTRY TO AC. F1D09310 05401 0020 00 0 05404 TRA SFRTI STORE FIRST WORD OF ENTRY 2. F1D09320 05402 0500 00 2 00000 SFRTH CLA **,2 GET NEXT WORD FROM TABLE. F1D09330 05403 -0120 00 0 05407 TMI SFRTJ *IS THIS THE FIRST WORD OF NEXT ENTRY, YES.F1D09340 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 216 * SECTION ONE PRIME * RECORD 9F16 * 05404 0601 00 1 00000 SFRTI STO **,1 NO, MOVE TO SPACE VACATED BY ENTRY 1. F1D09350 05405 -2 00001 1 05421 TNX 1PER5X,1,1 *MACHINE ERROR IF WORD COUNT IS EXHAUSTED. F1D09360 05406 2 00001 2 05402 TIX SFRTH,2,1 *END OF TABLE, NO CONTINUE MOVING WORDS. F1D09370 F1D09380 05407 -0634 00 4 05416 SFRTJ SXD SFRTM,4 SAVE TEMPORARY BUFFER INCREMENT. F1D09390 05410 0634 00 1 05417 SXA SFRTN,1 SAVE POSITION OF NEW SECOND ENTRY. F1D09400 05411 0774 00 4 00000 AXT 0,4 INITIALIZE TEMPORARY BUFFER INDEX. F1D09410 05412 -0500 00 4 24671 SFRTK CAL LWBF2,4 GET A WORD OF THE OLD ENTRY 1 AND STORE F1D09420 05413 0602 00 1 00000 SFRTL SLW **,1 AS ENTRY 2 IN FRET TABLE. F1D09430 05414 1 77777 1 05415 TXI *+1,1,-1 UPDATE STORING INDEX. F1D09440 BINARY CARD NO. 9F160030 05415 1 77777 4 05416 TXI *+1,4,-1 UPDATE LOADING INDEX. F1D09450 05416 3 00000 4 05412 SFRTM TXH SFRTK,4,** *HAVE ALL OWRDS BEEN MOVED FROM TEM, NO. F1D09460 05417 0774 00 2 00000 SFRTN AXT **,2 YES, LOAD POSITION OF FIRST WORD OF NEW F1D09470 05420 0020 00 0 05352 TRA SFRTA ENTRY 2 AND CONTINUE SORT FROM THERE. F1D09480 F1D09490 05421 0074 00 4 04251 1PER5X TSX 1PER5,4 *MACHINE ERROR, TABLE CAN NOT BE EXHAUSTED.F1D09500 F1D09510 05422 -0534 00 4 05416 SFRTP LXD SFRTM,4 LOAD COUNT OF WORDS MOVED DURING SORT. F1D09520 05423 -0634 00 0 05416 ZSD SFRTM RESET OUT OF SORT FLAG. F1D09530 05424 3 00000 4 05351 TXH SFRTQ,4,0 *WERE ANY ENTRIES OUT OF ORDER, YES. F1D09540 NO, FRET TABLE IS SORTED. F1D09550 F1D09560 NOW INVERT THOSE FREQUENCIES REFERING F1D09570 TO COMPUTED GO TOS AND ARITHMETIC IF F1D09580 STATEMENTS. F1D09590 F1D09600 05425 -0534 00 2 03736 IFRTA LXD TIFLOC,2 LOAD TIFGO WORD COUNT. F1D09610 05426 -3 00000 2 05466 TXL WRFRT,2,0 *TRANSFER IF NO TIFGO TABLE EXISTS. F1D09620 F1D09630 05427 0500 00 2 00000 IFRTB CLA **,2 GET AN ENTRY FROM TIFGO. F1D09640 05430 -0734 00 4 00000 PDX ,4 SAVE IFN OF STATEMENT. F1D09650 05431 -0120 00 0 05435 TMI IFRTC *ARITHMETIC IF, TRANSFER. F1D09660 05432 -0320 00 0 06110 ANA ADMSK IS THIS A COMPUTED GO TO F1D09670 05433 0402 00 0 06106 SUB (2)L F1D09680 05434 -0100 00 0 05465 TNZ IFRTM *NO, CONTINUE SCAN. F1D09690 05435 -0534 00 1 03741 IFRTC LXD FRTLOC,1 YES, LOAD FRET WORD COUNT. F1D09700 05436 0634 00 4 06107 SXA ERASA1,4 SAVE IFN OF TIFGO STATEMENT. F1D09710 05437 0502 00 1 00000 IFRTD CLS **,1 GET A WORD FROM FRET. F1D09720 05440 -0120 00 0 05443 TMI IFRTE *IS THIS FIRST WORD OF FRET, NO CONTINUE. F1D09730 05441 0402 00 0 06107 SUB ERASA1 YES, DO IFNS FROM TIFGO AND FRET MATCH. F1D09740 05442 0100 00 0 05446 TZE IFRTF *YES, INVERT THE FREQUENCIES. F1D09750 BINARY CARD NO. 9F160031 05443 2 00001 1 05437 IFRTE TIX IFRTD,1,1 *IS FRET EXHAUSTED, NO CONTINUE SEARCH. F1D09760 05444 2 00002 2 05427 TIX IFRTB,2,2 *YES. IS TIFGO EXHAUSTED, NO CONTINUE. F1D09770 05445 0020 00 0 05466 TRA WRFRT *YES, JOB IS ALL DONE. F1D09780 F1D09790 05446 -2 00001 1 05421 IFRTF TNX 1PER5X,1,1 POSITION INDEX AT FIRST FREQUENCY OF F1D09800 05447 0634 00 1 05460 SXA IFRTJ,1 THIS ENTRY AND SAVE POSITION. F1D09810 05450 0774 00 4 00000 AXT 0,4 INITIALIZE TEMPORARY BUFFER INDEX. F1D09820 05451 0500 00 1 00000 IFRTG CLA **,1 MOVE A FREQUENCY TO TEMPORARY BUFFER. F1D09830 05452 -0120 00 0 05456 TMI IFRTH *IS THIS THE BEGINNING OF THE NEXT ENTRY. F1D09840 05453 1 00001 4 05454 TXI *+1,4,1 NO, UPDATE BUFFER INDEX (COUNTER). F1D09850 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 217 * SECTION ONE PRIME * RECORD 9F16 * 05454 0601 00 4 24671 STO LWBF2,4 STORE FREQUENCY IN TEMPORARY BUFFER. F1D09860 05455 2 00001 1 05451 TIX IFRTG,1,1 *IS FRET EXHAUSTED, NO CONTINUE. F1D09870 05456 3 00000 4 05460 IFRTH TXH *+2,4,0 YES, IS THERE AT LEAST ONE FREQUENCY. F1D09880 05457 0074 00 4 04252 TSX 1PER6,4 *NO, EITHER PROGRAMMER OR MACHINE GOOFED. F1D09890 05460 0774 00 1 00000 IFRTJ AXT **,1 RELOAD POSITION OF THIS FREQUENCY ENTRY. F1D09900 05461 -0500 00 4 24671 IFRTK CAL LWBF2,4 MOVE THE ENTRY FROM THE TEMPORARY BUFFER F1D09910 05462 0602 00 1 00000 IFRTL SLW **,1 BACK INTO THE FRET TABLE INVERTED. F1D09920 05463 1 77777 1 05464 TXI *+1,1,-1 UPDAT FRET INDEX. F1D09930 05464 2 00001 4 05461 TIX IFRTK,4,1 *HAVE ALL WORDS BEEN MOVED, NO CONTINUE. F1D09940 F1D09950 05465 2 00002 2 05427 IFRTM TIX IFRTB,2,2 *IS TIFGO EXHAUSTED, NO CONTINUE. F1D09960 F1D09970 05466 WRFRT SYN * FRET TABLE HAS BEEN PROCESSED. F1D09980 F1D09990 * . * . * . * . * . * . * . * . * . * . * . * . * . * . * . *F1D10000 F1D10010 ROUTINE TO MODIFY THE FORVAL TABLE. F1D10020 F1D10030 05466 0074 00 1 04260 TSX TAP00,1 ASSEMBLE THE FORVAL TABLE (TABLE OF F1D10040 05467 0 00000 0 00006 PZE 6 NON- SUBSCRIPTED FIXED POINT VARIABLES F1D10050 ON THE LEFT OF EQUALS SIGN). F1D10060 F1D10070 05470 -0534 00 2 04022 LXD INTETG+1,2 LOAD FORVAL WORD COUNT. F1D10080 BINARY CARD NO. 9F160032 05471 -3 00000 2 05521 TXL MFVLG,2,0 *NO TABLE, NO POSSIBLE MODIFICATION. F1D10090 F1D10100 05472 0074 00 1 04260 TSX TAP00,1 FORVAL EXISTS, ASSEMBLE CALLFN TABLE. F1D10110 05473 0 00000 0 00020 PZE 16 F1D10120 F1D10130 05474 -0534 00 4 04116 LXD INTETQ+1,4 LOAD CALLFN WORD COUNT. F1D10140 05475 -3 00000 4 05521 TXL MFVLG,4,0 *NO CALLFN, THEREFORE NO MODIFICATION F1D10150 TO FORVAL. F1D10160 F1D10170 THERE ARE ENTRIES IN BOTH FORVAL AND CALL F1D10180 NUMBER (CALLFN) TABLES. THEREFORE, THERE F1D10190 MAY BE SOME IFN IN FORVAL WHICH MUST BE F1D10200 REPLACED WITH THE LAST IFN RELATED TO A CALL F1D10210 STATEMENT. CALLFN CONTAINS THE FIRST AND F1D10220 LAST IFNS OF CALL STATEMENTS. THE ROUTINE TO F1D10230 SEARCH AND REPLACE IS BASED UPON THE TWO TABLESF1D10240 BEING ORDERED BY MAGNITUDE OF INTERNAL FORMULA F1D10250 NUMBERS (IFNS). THE TWO TABLES ARE BUILT BY F1D10260 MAGNITUEDE OF IFNS IN SECTION ONE DURING F1D10270 PROCESSING. THIS PERMITS A SINGLE PASS F1D10280 OVER BOTH TABLES. F1D10290 F1D10300 05476 0754 00 2 00000 PXA ,2 PLACE FORVAL WORD COUNT IN AC. F1D10310 05477 0400 00 0 04021 ADD INTETG COMPUTE LAST ADDRESS PLUS ONE. F1D10320 05500 0621 00 0 05511 STA MFVLC INITIALIZE ADDRESSES. F1D10330 05501 0621 00 0 05517 STA MFVLE F1D10340 05502 0754 00 4 00000 PXA ,4 PLACE CALLFN WORD COUNT IN AC. F1D10350 05503 0400 00 0 04115 ADD INTETQ COMPUTE LAST ADDRESS PLUS ONE. F1D10360 05504 0621 00 0 05506 STA MFVLA INITIALIZE ADDRESSES. F1D10370 05505 0621 00 0 05516 STA MFVLD F1D10380 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 218 * SECTION ONE PRIME * RECORD 9F16 * F1D10390 05506 0500 00 4 00000 MFVLA CLA **,4 GET AN ENTRY FROM CALLFN. F1D10400 05507 0734 00 1 00000 PAX ,1 MOVE FIRST IFN TO DECREMENT FIELD OF AC. F1D10410 05510 -0754 00 1 00000 MFVLB PXD ,1 RE-ENTRY FOR ANOTHER LOOK AT FORVAL. F1D10420 05511 -0340 00 2 00000 MFVLC LAS **,2 COMPARE IFN FROM CALLFN TO FORVAL IFN. F1D10430 05512 0020 00 0 05520 TRA MFVLF *CALLFN IFN GREATER THAN FORVAL IFN. F1D10440 05513 0020 00 0 05516 TRA MFVLD *CALLFN AND FORVAL IFNS EQUAL. F1D10450 05514 2 00001 4 05506 TIX MFVLA,4,1 CALLFN IFN LESS THAN FORVAL IFN. GET NEXTF1D10460 05515 0020 00 0 05521 TRA MFVLG IFN FROM CALLFN, IF EXHAUSTED, ALL DONE. F1D10470 F1D10480 05516 -0500 00 4 00000 MFVLD CAL **,4 GET ENTRY FROM CALLFN TABLE AND REPLACE F1D10490 BINARY CARD NO. 9F160033 05517 0622 00 2 00000 MFVLE STD **,2 IFN IN FORVAL BY LAST IFN FROM CALLFN. F1D10500 05520 2 00002 2 05510 MFVLF TIX MFVLB,2,2 *IS FORVAL EXHAUSTED, NO CONTINUE. F1D10510 F1D10520 05521 0074 00 1 04370 MFVLG TSX WAT00,1 WRITE FORVAL AS RECORD 9 OF FILE 5. F1D10530 05522 0 00000 0 00006 PZE 6 F1D10540 F1D10550 * . * . * . * . * . * . * . * . * . * . * . * . * . * . * . *F1D10560 F1D10570 05523 0074 00 1 04260 TSX TAP00,1 ASSEMBLE TABLE OF NON-SUBSCRIPTED FIXED F1D10580 05524 0 00000 0 00005 PZE 5 POINT VARIABLES ON RIGHT OF EQUALS SIGN F1D10590 (FORVAR TABLE) F1D10600 F1D10610 05525 0074 00 1 04370 TSX WAT00,1 WRITE FORVAR AS RECORD 10 OF FILE 5. F1D10620 05526 0 00000 0 00005 PZE 5 F1D10630 F1D10640 * . * . * . * . * . * . * . * . * . * . * . * . * . * . * . *F1D10650 F1D10660 05527 0074 00 1 04260 TSX TAP00,1 ASSEMBLE TABLE OF TAU USAGES (FORTAG). F1D10670 05530 0 00000 0 00004 PZE 4 F1D10680 F1D10690 05531 0074 00 1 04370 TSX WAT00,1 WRITE FORTAG AS RECORD 11 OF FILE 5. F1D10700 05532 0 00000 0 00004 PZE 4 F1D10710 F1D10720 * . * . * . * . * . * . * . * . * . * . * . * . * . * . * . *F1D10730 F1D10740 05533 0074 00 1 04370 TSX WAT00,1 WRITE FRET AS RECORD 12 OF FILE 5. F1D10750 05534 0 00000 0 00007 PZE 7 F1D10760 F1D10770 * . * . * . * . * . * . * . * . * . * . * . * . * . * . * . *F1D10780 F1D10790 05535 0074 00 1 04260 TSX TAP00,1 ASSEMBLE TABLE OF EQIVALENCE STATEMENTS F1D10800 05536 0 00000 0 00010 PZE 8 (EQIT) FROM TAPE AND CORES. F1D10810 F1D10820 05537 -0534 00 3 04036 LXD INTETI+1,3 LOAD WORD COUNT OF EQUIT TABLE. F1D10830 05540 -3 00000 2 05772 TXL CLEQF1,2,0 *NO TABLE, EXIT. F1D10840 F1D10850 THERE IS SOME EQUIT TABLE PRESENT, SO PROCESS IT... F1D10860 INITIALIZATION F1D10870 05541 0535 00 4 06117 MEQUIT LAC L(FEQ),4 SET ERROR COUNT. F1D10880 05542 0754 00 2 00000 PXA ,2 COMPUTE LAST ADDRESS PLUS ONE. F1D10890 05543 0400 00 0 06117 ADD L(FEQ) LOCATION OF FINAL EQUIT TABLE. F1D10900 05544 0621 00 0 05545 STA *+1 F1D10910 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 219 * SECTION ONE PRIME * RECORD 9F16 * BINARY CARD NO. 9F160034 05545 0600 00 2 00000 STZ **,2 F1D10920 05546 2 00001 2 05545 TIX *-1,2,1 F1D10930 05547 0754 00 1 00000 PXA ,1 PLACE WORD COUNT IN AC. F1D10940 05550 0400 00 0 06120 ADD L(OEQ) COMPUTE LAST ADDRESS PLUS ONE. F1D10950 05551 0737 00 1 00000 PAC ,1 GET 2S COMPLIMENT OF END OF TABLE. F1D10960 05552 -0634 00 1 05557 SXD CLEQA0,1 INITIALIZE END TESTS. F1D10970 05553 -0634 00 1 05650 SXD CLEQB2+1,1 F1D10980 05554 -0534 00 2 05671 LXD XCOUNT,2 GET COPY COUNT OF FIRST SYMBOL FIRST SENTENCE F1D10990 05555 -0534 00 1 05556 LXD OCOUNT,1 F1D11000 (LOC OF LAST SUBSCRIPT COPIED IN ORDER FROM OEQ)F1D11010 05556 1 65312 0 05560 OCOUNT TXI CLEQA0+1,,-LWBF1 F1D11020 F1D11030 FIND NEXT SENTENCE IN OEQ TO BE COPIED IN ORDER F1D11040 05557 -3 00000 1 05764 CLEQA0 TXL CLEQF0,1,** WAS FINAL SENTENCE IN OEQ PROCESSED F1D11050 05560 0500 00 1 00000 CLA OEQ,1 NO, HAS SENTENCE IN OEQ BEEN COPIED OUT OF ORDERF1D11060 05561 -0100 00 0 05570 TNZ CLEQA1+1 NO, SKIP TO COPY SENTENCE F1D11070 05562 1 77777 1 05563 TXI *+1,1,-1 YES, BUMP OEQ COUNT TO NEXT SUBSCRIPT F1D11080 05563 0500 00 1 00000 CLA OEQ,1 F1D11090 05564 -0120 00 0 05566 TMI *+2 IS THIS FINAL SUBSCRIPT IN SENTENCE F1D11100 05565 1 77776 1 05563 TXI *-2,1,-2 NO, BUMP OEQ COUNT TO NEXT SUBSCRIPT THIS SET F1D11110 05566 1 77777 1 05557 TXI CLEQA0,1,-1 YES, BUMP OEQ COUNT TO FIRST SYMBOL NEXT SET F1D11120 F1D11130 COPY ONE EQUIVALENCE SENTENCE FROM OEQ TO FEQ F1D11140 05567 0500 00 1 00000 CLEQA1 CLA OEQ,1 MOVE NEXT SYMBOL FROM OEQ F1D11150 05570 0601 00 2 00000 STO FEQ,2 TO FEQ F1D11160 05571 1 77777 1 05572 TXI *+1,1,-1 BUMP COUNTS TO NEXT SUBSCRIPT F1D11170 05572 1 77777 2 05573 TXI *+1,2,-1 F1D11180 BINARY CARD NO. 9F160035 05573 0500 00 1 00000 CLA OEQ,1 GET NEXT SUBSCRIPT F1D11190 05574 0621 00 2 00000 STA FEQ,2 COPY SUBSCRIPT IN FEQ F1D11200 05575 -0120 00 0 05600 TMI *+3 IS THIS FINAL SUBSCRIPT IN SENTENCE F1D11210 05576 1 77777 1 05577 TXI *+1,1,-1 NO, BUMP COUNTS TO NEXT SYMBOL F1D11220 05577 1 77777 2 05567 TXI CLEQA1,2,-1 AND GO COPY NEXT SYMBOL F1D11230 F1D11240 SCAN FEQ AND OEQ FOR SYMBOLS MATCHING ANY SYMBOL IN THIS SET F1D11250 05600 -0634 00 1 05556 SXD OCOUNT,1 SAVE COUNT OF LAST SUBSCRIPT COPIED IN ORDER F1D11260 05601 -0634 00 2 05671 SXD XCOUNT,2 FROM OEQ TO FEQ F1D11270 05602 -0534 00 2 06125 LXD YCOUNT,2 GET FIXED COUNT OF NEXT SYMBOL IN FEQ F1D11280 F1D11290 ONE SENTENCE HAS BEEN COPIED IN ORDER FROM OEQ TO FEQ. F1D11300 NOW THIS SENTENCE MUST BE SCANNED TO SEE IF ANY SYMBOLS ARE F1D11310 REPEATED WITHIN THIS SENTENCE. IF ANY SUCH SYMBOLS ARE F1D11320 REPEATED, THEY ARE EXAMINED FOR REDUNDANCY OR INCONSISTENCY. F1D11330 IN CASE OF REDUNDANCY, THE REDUNDANT SYMBOL IS ERASED. F1D11340 IN CASE OF INCONSISTENCY, AN ERROR SITUATION IS CREATED. F1D11350 AFTER SCANNING WITHIN THE SENTENCE FOR REDUNDANCIES OR F1D11360 INCONSISTENCIES, THE REMAINING SENTENCES IN OEQ WHICH HAVE F1D11370 NOT YET BEEN COPIED ARE SCANNED TO SEE IF ANY MATCHING SYMBOLF1D11380 EXISTS. IF NO SYMBOL IS FOUND IN THE REMAINDER OF OEQ WHICH F1D11390 MATCHES THE SYMBOL SCANNED FOR, REENTRY IS MADE AT THIS POINTF1D11400 TO SCAN WITHIN THE SENTENCE AND THEN THE REST OF OEQ FOR THE F1D11410 NEXT SYMBOL. F1D11420 F1D11430 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 220 * SECTION ONE PRIME * RECORD 9F16 * 05603 -0534 00 1 06125 CLEQA2 LXD YCOUNT,1 GET FLOATING COUNT IN FEQ F1D11440 05604 1 77776 1 05605 TXI *+1,1,-2 BUMP FLOATING COUNT TO NEXT SYMBOL F1D11450 F1D11460 LATER, ADDITIONS TO THIS SENTENCE MAY BE COPIED. IN THIS CASEF1D11470 REENTRY IS MADE AT THIS POINT TO SCAN WITHIN THOSE PORTIONS F1D11480 OF THE ADDED SENTENCE FOR REDUNDANCY OR INCONSISTENCY. F1D11490 F1D11500 05605 0500 00 0 05671 CLEQA3 CLA XCOUNT SET END OF SENTENCE TESTS TO COUNT OF LAST F1D11510 05606 0622 00 0 05630 STD CLEQA4 SUBSCRIPT COPIED INTO FEQ F1D11520 05607 0622 00 0 05610 STD *+1 F1D11530 05610 -3 00000 1 05642 TXL CLEQB1,1,** IS THIS LAST FLOATING SYMBOL IN FEQ F1D11540 05611 0500 00 1 00000 CLA FEQ,1 NO, GET FLOATING SYMBOL F1D11550 05612 0340 00 2 00000 CAS FEQ,2 IS THIS SYMBOL IDENTICAL TO FIXED SYMBOL F1D11560 05613 1 77776 1 05610 TXI *-3,1,-2 NO, BUMP FLOATING COUNT TO NEXT SYMBOL F1D11570 05614 1 77777 1 05616 TXI *+2,1,-1 YES, BUMP FLOATING COUNT TO ITS SUBSCRIPT F1D11580 05615 1 77776 1 05610 TXI *-5,1,-2 NO, BUMP FLOATING COUNT TO NEXT SYMBOL F1D11590 F1D11600 MATCHING SYMBOL FOUND F1D11610 05616 1 77777 2 05617 TXI *+1,2,-1 BUMP FIXED COUNT TO SUBSCRIPT F1D11620 05617 -0634 00 1 06121 SXD E4,1 SAVE FLOATING COUNT OF SUBSCRIPTS OF MATCHING F1D11630 SYMBOL F1D11640 05620 0500 00 1 00000 CLA FEQ,1 GET FLOATING SUBSCRIPT F1D11650 BINARY CARD NO. 9F160036 05621 0402 00 2 00000 SUB FEQ,2 F1D11660 05622 1 00001 1 05623 TXI *+1,1,1 BUMP COUNTS BACK TO MATCHING SYMBOL F1D11670 05623 1 00001 2 05624 TXI *+1,2,1 F1D11680 05624 -0100 00 0 05635 TNZ CLEQA5 ARE SUBSCRIPTS IDENTICAL F1D11690 F1D11700 REDUNDANCY F1D11710 05625 0500 00 1 00002 CLA FEQ+2,1 YES, ERASE REDUNDANT SYMBOL F1D11720 05626 0601 00 1 00000 STO FEQ,1 AND MOVE ALL FOLLOWING WORDS UP TWO F1D11730 05627 1 77777 1 05630 TXI *+1,1,-1 BUMP COPY COUNT TO NEXT WORD F1D11740 05630 3 00000 1 05625 CLEQA4 TXH *-3,1,** IS THIS LAST WORD IN FEQ F1D11750 05631 1 00002 1 05632 TXI *+1,1,2 YES, BUMP END COUNT BACK TWO WORDS F1D11760 05632 -0634 00 1 05671 SXD XCOUNT,1 AND SAVE NEW COPY COUNT OF END OF SENTENCE F1D11770 05633 -0534 00 1 06121 LXD E4,1 RESUME SCAN WITH SAME FIXED SYMBOL F1D11780 05634 1 00001 1 05605 TXI CLEQA3,1,1 BUT WITH FLOATING SYMBOL WHICH REPLACED F1D11790 REDUNDANT SYMBOL F1D11800 F1D11810 INCONSISTENCY F1D11820 05635 0500 00 0 06116 CLEQA5 CLA FRCON REPLACE FIRST WORD IN FEQ WITH WORD OF ALL F1D11830 05636 0601 60 0 06117 STO* L(FEQ) SET ERROR FLAG. F1D11840 ERROR EXISTS. F1D11850 05637 0500 00 2 00000 CLA FEQ,2 MOVE SYMBOL F1D11860 05640 0601 00 4 00001 STO FEQ+1,4 TO ERROR LIST F1D11870 05641 1 77777 4 05667 TXI CLEQB4,4,-1 BUMP ERROR COUNT AND GO CHECK FOR END OF SET F1D11880 F1D11890 SEARCH REMAINDER OF OEQ FOR SYMBOLS MATCHING ANY SYMBOL IN F1D11900 THIS SENTENCE. IF FOUND, COPY SENTENCE OUT OF ORDER FROM OEQ F1D11910 AND ADD IT TO THE SENTENCE NOW BEING SCANNED IN FEQ. THEN F1D11920 NORMALIZE THE SUBSCRIPTS, AND CONTINUE SCANNING. F1D11930 F1D11940 05642 -0534 00 1 05556 CLEQB1 LXD OCOUNT,1 START SEARCH WITH FIRST SYMBOL FOLLOWING F1D11950 SENTENCE LAST COPIED IN ORDER FROM OEQ F1D11960 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 221 * SECTION ONE PRIME * RECORD 9F16 * 05643 0502 00 0 06124 CLS WCOUNT IS THIS A SCAN SUBSEQUENT TO COPYING A SENTENCE F1D11970 OUT OF ORDER F1D11980 05644 -0120 00 0 05647 TMI CLEQB2 NO, SKIP TO START SEARCH WITH NO CHANGE TO F1D11990 COUNT OF FLOATING SYMBOL F1D12000 05645 -0534 00 1 06123 LXD QCOUNT,1 YES, START SEARCH WITH FLOATING SYMBOL FOLLOWINGF1D12010 SENTENCE COPIED OUT OF ORDER FROM OEQ F1D12020 05646 0601 00 0 06124 STO WCOUNT RESET SWITCH F1D12030 F1D12040 FIND NEXT SENTENCE IN OEQ THAT IS NOT YET COPIED OUT OF ORDERF1D12050 BINARY CARD NO. 9F160037 05647 1 77777 1 05650 CLEQB2 TXI *+1,1,-1 BUMP COUNT TO SYMBOL F1D12060 05650 -3 00000 1 05667 TXL CLEQB4,1,** WAS THAT FINAL SENTENCE IN OEQ F1D12070 05651 -0634 00 1 06122 SXD PCOUNT,1 NO, SAVE COUNT OF FIRST SYMBOL NEXT SENTENCE F1D12080 WHICH MAY BE COPIED OUT OF ORDER FROM OEQ F1D12090 05652 0500 00 1 00000 CLA OEQ,1 HAS THIS SENTENCE BEEN COPIED OUT OF ORDER F1D12100 05653 -0100 00 0 05661 TNZ CLEQB3+1 NO, SKIP TO CHECK SENTENCE F1D12110 05654 1 77777 1 05655 TXI *+1,1,-1 YES, BUMP OEQ COUNT TO NEXT SUBSCRIPT F1D12120 05655 0500 00 1 00000 CLA OEQ,1 F1D12130 05656 -0120 00 0 05647 TMI CLEQB2 IS THIS FINAL SUBSCRIPT IN SENTENCE F1D12140 05657 1 77776 1 05655 TXI *-2,1,-2 NO, BUMP OEQ COUNT TO NEXT SUBSCRIPT F1D12150 F1D12160 SCAN THIS SENTENCE FOR ANY SYMBOL MATCHING FIXED SYMBOL F1D12170 05660 0500 00 1 00000 CLEQB3 CLA OEQ,1 GET FLOATING SYMBOL IN OEQ F1D12180 05661 0402 00 2 00000 SUB FEQ,2 IS OEQ SYMBOL IDENTICAL TO FEQ SYMBOL F1D12190 05662 0100 00 0 05702 TZE CLEQC0 YES, GO ADD SENTENCE IN WHICH THIS SYMBOL F1D12200 APPEARS TO SENTENCE ALREADY COPIED IN FEQ F1D12210 05663 1 77777 1 05664 TXI *+1,1,-1 NO, BUMP OEQ COUNT TO NEXT SUBSCRIPT F1D12220 05664 0500 00 1 00000 CLA OEQ,1 GET NEXT SUBSCRIPT F1D12230 05665 -0120 00 0 05647 TMI CLEQB2 IS THIS FINAL SUBSCRIPT IN SENTENCE F1D12240 05666 1 77777 1 05660 TXI CLEQB3,1,-1 NO, GO CHECK NEXT SYMBOL IN OEQ F1D12250 F1D12260 THIS FIXED SYMBOL WAS NOT MATCHED IN THE REMAINDER OF OEQ F1D12270 OR AN INCONSISTENT MATCH WAS FOUND WITHIN THE FEQ SENTENCE F1D12280 05667 1 77776 2 05670 CLEQB4 TXI *+1,2,-2 BUMP FIXED COUNT TO NEXT SYMBOL IN FEQ F1D12290 05670 -0634 00 2 06125 SXD YCOUNT,2 SAVE SCAN COUNT OF NEW FIXED SYMBOL F1D12300 WAS THIS END OF SENTENCE IN FEQ BEING SEARCHED F1D12310 05671 3 53107 2 05603 XCOUNT TXH CLEQA2,2,-LWBF2 F1D12320 (LOC OF LAST SUBSCRIPT COPIED INTO FEQ) F1D12330 F1D12340 NO MATCHING SYMBOL FOUND IN REMAINDER OF OEQ TABLE F1D12350 05672 -0534 00 2 05671 LXD XCOUNT,2 YES, GET COUNT OF LAST SUBSCRIPT COPIED INTO FEQF1D12360 05673 0502 00 2 00000 CLS FEQ,2 SET END OF SENTENCE MARKER IN LAST SUBSCRIPT F1D12370 05674 0601 00 2 00000 STO FEQ,2 COPIED INTO FEQ F1D12380 BINARY CARD NO. 9F160038 05675 1 77777 2 05676 TXI *+1,2,-1 BUMP FEQ COUNT TO FIRST SYMBOL OF NEXT SENTENCE F1D12390 05676 -0634 00 2 06125 SXD YCOUNT,2 SET BEGINNING OF SCAN TO COUNT OF FIRST SYMBOL F1D12400 NEXT SENTENCE F1D12410 05677 -0634 00 2 06126 SXD ZCOUNT,2 SET BEGINNING OF NORMALIZATION COUNT TO FIRST F1D12420 SYMBOL NEXT SENTENCE F1D12430 05700 -0534 00 1 05556 LXD OCOUNT,1 GET COUNT OF LAST SUBSCRIPT COPIED IN ORDER FROMF1D12440 05701 1 77777 1 05557 TXI CLEQA0,1,-1 FEQ, BUMP TO NEXT SYMBOL, AND GO COPY SENTENCE F1D12450 F1D12460 OEQ SYMBOL FOUND MATCHING SYMBOL IN LAST SENTENCE COPIED F1D12470 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 222 * SECTION ONE PRIME * RECORD 9F16 * F1D12480 05702 -0634 00 1 05731 CLEQC0 SXD CLEQC3,1 SET END OF COPY LOOP TO OEQ COUNT OF MATCHING F1D12490 SYMBOL F1D12500 05703 -0634 00 2 06125 SXD YCOUNT,2 SET RESUMPTION OF SCAN TO MATCHING SYMBOL F1D12510 05704 1 77777 1 05705 TXI *+1,1,-1 BUMP COUNTS TO SUBSCRIPT OF MATCHING SYMBOL F1D12520 05705 1 77777 2 05706 TXI *+1,2,-1 F1D12530 05706 0500 00 2 00000 CLA FEQ,2 F1D12540 05707 -0400 00 1 00000 SBM OEQ,1 F1D12550 05710 0601 00 0 06121 STO E4 COMPUTE DIFFERENCE BETWEEN SUBSCRIPTS AND SAVE F1D12560 05711 -0534 00 2 05671 LXD XCOUNT,2 GET COUNT OF LAST SUBSCRIPT COPIED INTO FEQ F1D12570 05712 -0634 00 2 06124 SXD WCOUNT,2 SET RESUMPTION OF SCAN TO FIRST SYMBOL COPIED F1D12580 OUT OF ORDER INTO FEQ F1D12590 05713 -0634 00 2 05755 SXD CLEQD4,2 SET END OF NORMALIZATION LOOP FOR PRECEEDING F1D12600 SENTENCE TO SUBSCRIPT PRECEDING MATCHING SYMBOL F1D12610 F1D12620 COPY OUT OF ORDER THAT PORTION OF SENTENCE IN OEQ IN WHICH F1D12630 MATCHED SYMBOL APPEARS FROM SYMBOL FOLLOWING MATCHED SYMBOL F1D12640 TO END OF SENTENCE AND ADD IT TO SENTENCE IN FEQ CURRENTLY F1D12650 BEING SCANNED. F1D12660 F1D12670 05714 0500 00 1 00000 CLA OEQ,1 GET SUBSCRIPT OF MATCHING SYMBOL IN OEQ F1D12680 05715 -0120 00 0 05727 TMI CLEQC2 IS THIS FINAL SUBSCRIPT IN SENTENCE F1D12690 05716 1 77777 1 05717 CLEQC1 TXI *+1,1,-1 NO, COPY REMAINDER OF SENTENCE INTO FEQ F1D12700 05717 1 77777 2 05720 TXI *+1,2,-1 BUMP COUNTS TO NEXT SYMBOL F1D12710 05720 0500 00 1 00000 CLA OEQ,1 MOVE SYMBOL FROM OEQ F1D12720 05721 0601 00 2 00000 STO FEQ,2 TO FEQ F1D12730 05722 1 77777 1 05723 TXI *+1,1,-1 BUMP COUNTS TO NEXT SUBSCRIPT F1D12740 BINARY CARD NO. 9F160039 05723 1 77777 2 05724 TXI *+1,2,-1 F1D12750 05724 0500 00 1 00000 CLA OEQ,1 MOVE SUBSCRIPT FROM OEQ F1D12760 05725 0621 00 2 00000 STA FEQ,2 TO FEQ F1D12770 05726 0120 00 0 05716 TPL CLEQC1 IS THIS FINAL SUBSCRIPT IN SENTENCE F1D12780 F1D12790 SENTENCE IN OEQ IN WHICH MATCHING SYMBOL APPEARED HAS BEEN F1D12800 ADDED TO SENTENCE IN FEQ FROM SYMBOL FOLLOWING MATCHING F1D12810 SUBSCRIPT TO END. NOW ADD REMAINDER OF SENTENCE, FROM F1D12820 BEGINNING TO SUBSCRIPT PRECEDING MATCHING SYMBOL. MATCHING F1D12830 SYMBOL IS NOT COPIED. F1D12840 F1D12850 05727 -0634 00 1 06123 CLEQC2 SXD QCOUNT,1 SET RESUMPTION OF SCAN COUNT TO FINAL SUBSCRIPT F1D12860 IN SENTENCE COPIED OUT OF ORDER FROM OEQ F1D12870 05730 -0534 00 1 06122 LXD PCOUNT,1 SET BEGINNING OF OUT-OF-ORDER COPY LOOP COUNT F1D12880 TO FIRST SYMBOL THIS SENTENCE F1D12890 05731 -3 00000 1 05736 CLEQC3 TXL CLEQC4,1,** IS THIS MATCHED SYMBOL F1D12900 05732 1 77777 2 05733 TXI *+1,2,-1 NO, BUMP FEQ COUNT TO NEXT WORD F1D12910 05733 0500 00 1 00000 CLA OEQ,1 MOVE WORD FROM OEQ F1D12920 05734 0601 00 2 00000 STO FEQ,2 TO FEQ F1D12930 05735 1 77777 1 05731 TXI CLEQC3,1,-1 BUMP OEQ COUNT TO NEXT WORD AND GO CHECK COUNT F1D12940 05736 -0634 00 2 05671 CLEQC4 SXD XCOUNT,2 SAVE COUNT OF LAST SUBSCRIPT COPIED INTO FEQ F1D12950 05737 -0534 00 1 06122 LXD PCOUNT,1 SET INDICATOR THAT THIS SENTENCE HAS BEEN COPIEDF1D12960 05740 0600 00 1 00000 STZ OEQ,1 OUT OF ORDER F1D12970 F1D12980 NORMALIZATION OF SUBSCRIPTS IN SENTENCE AND ITS ADDITIONS F1D12990 IF SUBSCRIPT IN OEQ WAS LARGER THAN THAT IN FEQ F1D13000 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 223 * SECTION ONE PRIME * RECORD 9F16 * NORMALIZE THE SUBSCRIPTS BY ADDING THE DIFFERENCE TO THE F1D13010 WORDS ORIGINALLY IN FEQ, IE, FROM THE BEGINNING TO THE F1D13020 LAST SUBSCRIPT BEFORE THE PORTION FROM OEQ WAS ADDED. F1D13030 IF SUBSCRIPT IN FEQ WAS LARGER THAN THAT IN OEQ F1D13040 ADD THE DIFFERENCE TO THE WORDS IN THE ADDED PORTION OF F1D13050 THE SENTENCE JUST WRITTEN IN FEQ F1D13060 F1D13070 05741 0500 00 0 06121 CLA E4 GET DIFFERENCE BETWEEN SUBSCRIPTS F1D13080 05742 0100 00 0 05757 TZE CLEQD5 IF ZERO, NO NORMALIZATION IS NECESSARY F1D13090 05743 -0120 00 0 05750 TMI CLEQD3 IF MINUS, SUBSCRIPT IN OEQ WAS GREATER THAN FEQ F1D13100 F1D13110 FEQ SUBSCRIPT GREATER THAN OEQ SUBSCRIPT F1D13120 05744 -0534 00 2 05755 LXD CLEQD4,2 START NORMALIZATION FIRST SS IN ADDED PORTION F1D13130 05745 0500 00 0 05671 CLA XCOUNT END NORMALIZATION LAST SS ADDED PORTION F1D13140 05746 0622 00 0 05755 STD CLEQD4 F1D13150 05747 1 77776 2 05752 TXI CLEQD3+2,2,-2 F1D13160 F1D13170 OEQ SUBSCRIPT GREATER THAN FEQ SUBSCRIPT F1D13180 05750 -0534 00 2 06126 CLEQD3 LXD ZCOUNT,2 START NORMALIZATION FIRST SS ORIGINAL PORTION F1D13190 BINARY CARD NO. 9F160040 05751 1 77777 2 05752 TXI *+1,2,-1 F1D13200 05752 0500 00 2 00000 CLA FEQ,2 GET SUBSCRIPT F1D13210 05753 0401 00 0 06121 ADM E4 NORMALIZE TO SAME SCALE AS IN OTHER F1D13220 05754 0621 00 2 00000 STA FEQ,2 PORTION OF SENTENCE F1D13230 05755 -3 00000 2 05757 CLEQD4 TXL CLEQD5,2,** WAS THIS LAST SUBSCRIPT TO BE NORMALIZED F1D13240 05756 1 77776 2 05752 TXI *-4,2,-2 NO, BUMP FEQ COUNT TO NEXT SUBSCRIPT F1D13250 05757 -0534 00 2 06125 CLEQD5 LXD YCOUNT,2 YES, RESUME SCAN WITH SAME FIXED SYMBOL IN FEQ F1D13260 05760 -0534 00 1 06124 LXD WCOUNT,1 BUT WITH FLOATING COUNT, FIRST SYMBOL JUST F1D13270 05761 0502 00 0 06124 CLS WCOUNT COPIED OUT OF ORDER INTO FEQ F1D13280 05762 0601 00 0 06124 STO WCOUNT SET SWITCH TO SKIP OVER PORTION OF OEQ PRECEDINGF1D13290 05763 1 77777 1 05605 TXI CLEQA3,1,-1 SENTENCE JUST COPIED OUT OF ORDER F1D13300 F1D13310 TABLE IS NOW COMPLETELY PROCESSED. WE CAN NOW GO HOME. F1D13320 05764 3 53106 4 05767 CLEQF0 TXH *+3,4,-LWBF2-1 WERE THERE ANY ERRORS. F1D13330 05765 0500 00 0 06116 CLA FRCON YES, ADD WORD OF ALL ONES F1D13340 05766 0601 00 4 00001 STO FEQ+1,4 TO END OF ERROR LIST F1D13350 05767 -0754 00 2 00000 PXD ,2 COMPUTE NUMBER OF WORDS IN FEQ. F1D13360 05770 -0737 00 2 00000 PDC ,2 GET TRUE LAST ADDRESS PLUS ONE. F1D13370 05771 2 24671 2 05772 TIX *+1,2,LWBF2 COMPUTE WORD COUNT OF SORTED EQUIT TABLE. F1D13380 05772 0500 00 0 06117 CLEQF1 CLA L(FEQ) UPDATE INTET ORIGIN OF EQUIT TABLE. F1D13390 05773 0621 00 0 04035 STA INTETI F1D13400 05774 -0754 00 2 00000 PXD ,2 F1D13410 05775 0601 00 0 04036 STO INTETI+1 SAVE WORD COUNT IN INTETI ENTRY. F1D13420 05776 0774 00 4 00001 AXT 1,4 LOAD INDEX FOR INDIRECT ADDRESSING. F1D13430 BINARY CARD NO. 9F160041 05777 0601 60 0 04035 STO* INTETI SAVE WORD COUNT AHEAD OF TABLE. F1D13440 06000 -0634 00 2 03742 SXD EQTLOC,2 SAVE EQUIT WORD COUNT FOR ONE DOUBLE PRIMEF1D13450 06001 0754 00 2 00000 PXA ,2 COMPUTE LAST ADDRESS PLUS ONE. F1D13460 06002 0400 00 0 06117 ADD L(FEQ) F1D13470 06003 0621 00 0 03742 STA EQTLOC SAVE LAST ADDRESS PLUS ONE . F1D13480 F1D13490 F1D13500 06004 0074 00 1 04370 TSX WAT00,1 *WRITE OUT EQUIT TABLE ASSEMBLED IN FEQ ON TAPE F1D13510 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 224 * SECTION ONE PRIME * RECORD 9F16 * 06005 0 00000 0 00010 PZE 8 AS RECORD 13 OF FILE 5. F1D13520 F1D13530 * . * . * . * . * . * . * . * . * . * . * . * . * . * . * . *F1D13540 F1D13550 06006 -0520 00 0 04044 NZT INTETJ+1 IS THERE A CLOSUB TABLE. F1D13560 06007 0020 00 0 06013 TRA WRCLS *NO, DO NOT ATTEMPT TO READ IT BACK. F1D13570 F1D13580 06010 0074 00 4 73606 TSX (TAPE),4 READ CLOSUB FROM SCRATCH TAPE. F1D13590 06011 0 40010 0 06073 PZE CLSIO,,(RBNC) F1D13600 06012 0 00004 0 06100 PZE TCLOS,,EXEQTP F1D13610 F1D13620 06013 0074 00 1 04370 WRCLS TSX WAT00,1 WRITE CLOSUB AS RECORD 14 OF FILE 5. F1D13630 06014 0 00000 0 00011 PZE 9 F1D13640 06015 0074 00 4 73606 TSX (TAPE),4 REWIND SCRATCH TAPE. F1D13650 06016 0 20000 0 04364 PZE REWND,,(SKBP) F1D13660 06017 0 00004 0 00000 PZE ,,EXEQTP F1D13670 F1D13680 * . * . * . * . * . * . * . * . * . * . * . * . * . * . * . *F1D13690 F1D13700 06020 0774 00 4 00000 AXT 0,4 INITIALIZE IR4 FOR INDIRECT ADDRESSING. F1D13710 06021 0600 60 0 04107 STZ* INTETP SET FIRST LOCATION OF TSTOPS TO ZERO. F1D13720 F1D13730 06022 0074 00 1 04260 TSX TAP00,1 ASSEMBLE TABLE OF STOP AND RETURN F1D13740 06023 0 00000 0 00017 PZE 15 STATEMENTS (TSTOPS). F1D13750 F1D13760 06024 -0534 00 1 04110 LXD INTETP+1,1 LOAD WORD COUNT OF TSTOPS. F1D13770 BINARY CARD NO. 9F160042 06025 0754 00 1 00000 PXA ,1 PLACE WORD COUNT IN AC. F1D13780 06026 0400 00 0 04107 ADD INTETP COMPUTE LAST ADDRESS PLUS ONE. F1D13790 06027 0621 00 0 03744 STA STPLOC SAVE LAST ADDRESS PLUS ONE AND F1D13800 06030 -0634 00 1 03744 SXD STPLOC,1 WORD COUNT FOR SECTION ONE DOUBLE PRIME. F1D13810 F1D13820 06031 0600 60 0 04101 STZ* INTETO SET FIRST WORD OF NONEXC TO ZERO. F1D13830 F1D13840 06032 0074 00 1 04260 TSX TAP00,1 ASSEMBLE TABLE OF NON-EXECUTABLE F1D13850 06033 0 00000 0 00016 PZE 14 STATEMENTS (NONEXC). F1D13860 F1D13870 06034 -0534 00 1 04102 LXD INTETO+1,1 LOAD NONEXC WORD COUNT. F1D13880 06035 0754 00 1 00000 PXA ,1 PLACE WORD COUNT IN AC. F1D13890 06036 0400 00 0 04101 ADD INTETO COMPUTE LAST ADDRESS PLUS ONE. F1D13900 06037 0621 00 0 03743 STA NXCLOC SAVE LAST ADDRESS PLUS ONE AND F1D13910 06040 -0634 00 1 03743 SXD NXCLOC,1 WORD COUNT FOR SECTION ONE DOUBLE PRIME. F1D13920 F1D13930 06041 0074 00 4 73606 TSX (TAPE),4 WRITE 5TH END-OF-FILE ON TABLE TAPE. F1D13940 06042 0 40005 0 00000 PZE ,,(WEFP) F1D13950 06043 0 00002 0 06115 PZE 5THEOF,,TABTAP F1D13960 F1D13970 06044 -0534 00 4 03734 LXD EIFNO,4 LOAD LAST IFN ASSIGNED. F1D13980 06045 1 00001 4 06046 TXI *+1,4,1 INCREMENT BY ONE. F1D13990 06046 -0754 00 4 00000 PXD ,4 F1D14000 06047 0601 00 0 03734 STO EIFNO SAVE FOR ONE DOUBLE PRIME FLOW ANALYSIS. F1D14010 06050 0074 00 4 73600 TSX (LOAD),4 GO GET ONE DOUBLE PRIME. F1D14020 06051 0 00000 0 00000 PZE F1D14030 F1D14040 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 225 * SECTION ONE PRIME * RECORD 9F16 * F1D14050 *************************************************************F1D14060 F1D14070 ROUTINE TO SEARCH TEIFNO FOR AN IFN THAT CORRESPONDS F1D14080 TO AN EFN STORED IN LOCATION ERASA1. WHEN A MATCH IS F1D14090 FOUND, IT RETURNS TO THE CALLER WITH THE TEIFNO ENTRY F1D14100 IN THE AC. IF NO MATCH IS FOUND, IT RETURNS WITH A F1D14110 ZERO AC. ZERO IS AN IMPOSSIBLE IFN, AND THEREFORE, F1D14120 IS AN ERROR SIGNAL. F1D14130 F1D14140 06052 0774 00 4 00000 FEIFA AXT **,4 LOAD TEIFNO WORD COUNT. F1D14150 BINARY CARD NO. 9F160043 06053 -0500 00 4 00000 FEIFB CAL **,4 GET A TEIFNO ENTRY. F1D14160 06054 -0320 00 0 06110 ANA ADMSK GET ADDRESS FIELD, EFN. F1D14170 06055 0402 00 0 06107 SUB ERASA1 IS IT THE REQUESTED ONE. F1D14180 06056 0100 00 0 06062 TZE FEIFC *YES. F1D14190 06057 2 00001 4 06053 TIX FEIFB,4,1 *NO. IS TEIFNO EXHAUSTED, NO CONTINUE. F1D14200 06060 -0754 00 0 00000 ZAC YES. IFN DOES NOT EXIST, SET ERROR FLAG. F1D14210 06061 0020 00 1 00001 TRA 1,1 *RETURN TO CALLER. F1D14220 F1D14230 06062 -0500 00 4 00000 FEIFC CAL **,4 GET TEIFNO ENTRY - EFN. F1D14240 06063 0020 00 1 00001 TRA 1,1 *RETURN TO CALLER. F1D14250 F1D14260 *************************************************************F1D14270 F1D14280 F1D14290 I/O COMMANDS FOR SPECIAL READ-WRITE ROUTINES. F1D14300 USED TO- F1D14310 06064 -0 00001 0 03747 IOCM1 IOCP CITCNT,,1 WRITE COMPAIL RECORD COUNT AND F1D14320 06065 -1 00000 0 60636 IOCM2 IOCT FRSBBF,,** SUBDEF TABLE. $F1D14330 F1D14340 06066 -0 00001 0 06104 FLOCOM IOCP FLOCNT,,1 WRITE FLOCON TABLE WORD COUNT AND F1D14350 06067 -1 00000 0 25042 IOCT FLCNBF,,** THE FLOCON TABLE. $F1D14360 F1D14370 06070 -0 00001 0 03734 DMIO1 IOCP EIFNO,,1 WRITE LAST IFN ASSIGNED IN PROGRAM, F1D14380 06071 -0 00001 0 06107 DMIO2 IOCP ERASA1,,1 THE SIZ TABLE WORD COUNT, F1D14390 06072 -1 00000 0 30111 DMIO3 IOCT DIM1BF,,** AND THE SIZ TABLE. $F1D14400 F1D14410 06073 3 00000 0 00000 CLSIO IORT **,,** WRITE CLOSUB ON A SCRATCH TAPE. F1D14420 ALSO USED TO READ IT BACK. F1D14430 F1D14440 06074 3 00006 0 00000 ENDIO IORT **,,6 WRITE THE END TABLE. F1D14450 F1D14460 *************************************************************F1D14470 F1D14480 CONSTANTS AND ERASABLE STORAGE. F1D14490 F1D14500 06075 264651626422 LABL1 BCI 1,FORSUB FORSUB LABEL. F1D14510 06076 264346234645 LABL2 BCI 1,FLOCON FLOCON LABEL. F1D14520 06077 623171606060 LABL3 BCI 1,SIZ SIZ LABEL. F1D14530 06100 634447234362 TCLOS BCI 1,TMPCLS INTERMEDIATE CLOSUB LABEL. F1D14540 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 226 * SECTION ONE PRIME * RECORD 9F16 * BINARY CARD NO. 9F160044 06101 0 00061 0 00000 FRTSG PZE ,,49 FORMAT STATEMENT ERROR FLAG. F1D14550 06102 0 00062 0 00000 EIFSG PZE ,,50 TEIFNO ERROR FLAG. F1D14560 06103 0 00063 0 00000 MFRTE PZE ,,51 FRET ERROR FLAG, NON-EXISTENT EFN. F1D14561 03751 GOOFCT SYN DGFLAG DECREMENT HAS COUNT OF WORDS IN ERROR LISTF1D14570 06104 0 00000 0 00000 FLOCNT PZE ** FLOCON TABLE WORD COUNT. F1D14580 06105 +000000000001 (1)L DEC 1 CONSTANT. F1D14590 06106 +000000000002 (2)L DEC 2 CONSTANT. F1D14600 06107 0 00000 0 00000 ERASA1 PZE **,,0 ADDRESS ERASABLE. F1D14610 06110 0 00000 0 77777 ADMSK PZE -1 ADDRESS MASK. F1D14620 06111 0 77777 0 00000 DCMSK PZE ,,-1 DECREMENT MASK. F1D14630 06112 024524254626 2NDEOF BCI 1,2NDEOF END-OF-FILE LABEL. F1D14640 06113 035124254626 3RDEOF BCI 1,3RDEOF DITTO. F1D14650 06114 046330254626 4THEOF BCI 1,4THEOF DITTO. F1D14660 06115 056330254626 5THEOF BCI 1,5THEOF DITTO. F1D14670 F1D14680 * . * . * . * . * . * . * . * . * . * . * . * . * . * . * . *F1D14690 F1D14700 THE FOLLOWING ARE USED BY THE F1D14710 EQUIVALENCE PROCESSOR. F1D14720 F1D14730 06116 3 77777 7 77777 FRCON PTH -1,7,-1 EQUIVALENCE ERROR FLAG. F1D14740 06117 0 00000 0 24671 L(FEQ) PZE LWBF2 ORIGIN OF FINAL EQUIVALENCE TABLE. F1D14750 00000 FEQ SYN 0 SAME. F1D14760 06120 0 00000 0 12466 L(OEQ) PZE LWBF1 LOCATION OF ORIGINAL EQUIT TABLE. F1D14770 00000 OEQ SYN 0 ORIGIN OF ASSEMBLED EQUIVALENCE TABLE. F1D14780 06121 0 00000 0 00000 E4 PZE F1D14790 06122 0 65312 0 00000 PCOUNT PZE ,,-LWBF1 (LOC OF FIRST SYMBOL OEQ SENTENCE BEING SCANNED)F1D14800 06123 0 65312 0 00000 QCOUNT PZE ,,-LWBF1 (LOC FINAL SUBSCRIPT OF SENTENCE COPIED OUT OF F1D14810 ORDER FROM OEQ) F1D14820 06124 0 53107 0 00000 WCOUNT PZE ,,-LWBF2 (LOC OF LAST SUBSCRIPT COPIED INTO FEQ BEFORE F1D14830 THIS PORTION OF SENTENCE WAS ADDED OUT OF ORDER)F1D14840 (IF SWITCH IS - A PORTION OF OEQ WAS SCANNED F1D14850 BEFORE THIS PORTION OF SENTENCE WAS ADDED. SKIP F1D14860 THIS PORTION OF OEQ WHEN RESUMING SCAN) F1D14870 06125 0 53107 0 00000 YCOUNT PZE ,,-LWBF2 (LOC FIXED SYMBOL IN FEQ SCANNED FOR MATCH) F1D14880 06126 0 53107 0 00000 ZCOUNT PZE ,,-LWBF2 (LOC OF FIRST SYMBOL IN FEQ SET BEING SCANNED) F1D14890 F1D14900 *************************************************************F1D14910 F1D14920 06127 SYN * BEGINNING OF - F1D14930 SECTION ONE PRIME PATCHING SPACE. F1D14940 06437 ENDF13 BES 200 END OF - F1D14950 F1D14960 *************************************************************F1D14970 BINARY CARD NO. TRA77777 77777 TCD -1 $F1D14980 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 227 * SECTION ONE DOUBLE PRIME * RECORD 9F17 * F1E00070 SECTION ONE DOUBLE PRIME SCANS VARIOUS TABLES F1E00080 COMPRISING THE FIFTH FILE OF THE TABLE TAPE. F1E00090 IT DOES NOT ADD ANY NEW INFORMATION TO WHAT F1E00100 ALREADY EXISTS. ITS ONLY TASK IS TO FIND F1E00110 SOURCE PROGRAM ERRORS. F1E00120 F1E00130 *************************************************************F1E00140 F1E00150 **** DEFINITIONS AND PARAMETERS **** F1E00160 F1E00170 F1E00180 03734 PEIFNO SYN EIFNO DEFINE EIFNO FOR HEADED BLOCK. F1E00190 HEAD P HEAD SECTION ONE DOUBLE PRIME WITH P. F1E00200 73577 LIST SYN BOTIOP-1 ORIGIN OF ERROR LIST FOR GENERAL DIAG. F1E00210 F1E00220 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 228 * SECTION ONE DOUBLE PRIME * RECORD 9F17 * F1E00500 F1E00520 F1E00540 00102 ORG SYSCUR $F1E00550 BINARY CARD NO. 9F170000 00102 112601070000 BCI 1,9F1700 $F1E00560 F1E00570 73666 ORG (LODR) $F1E00580 BINARY CARD NO. 9F170001 73666 1 00252 0 03757 TXI BEGF14,,170 ENTRY POINT,,RECORD NUMBER F1E00590 F1E00600 ABS F1E00610 03753 ORG BOTMEM+15 F1E00620 F1E00630 BINARY CARD NO. 9F170002 03753 1 77777 0 73603 SOURCE TXI (DIAG),,-1 SOURCE PROGRAM ERROR, GET DIAGNOSTIC. F1E00640 03754 0 00000 0 73577 PZE LIST,,** LOCATION OF ERROR LIST,,WORD COUNT. F1E00650 F1E00660 03755 1 00000 0 73603 1DPER0 TXI (DIAG),,0 *MACHINE ERROR. GO TO DIAGNOSTIC F1E00670 FAILURE OF TIX INSTRUCTION TO TRANSFER. F1E00680 INDEX SHOULD REDUCE BY ONE TO POSITION F1E00690 AT SECOND WORD OF A TWO WORD TIFGO ENTRY. F1E00700 F1E00710 03756 1 00000 0 73603 1DPER1 TXI (DIAG),,0 *MACHINE ERROR. GO TO DIAGNOSTIC. F1E00720 SIMILAR CONDITION TO 1DPER0. HOWEVER, F1E00730 INSTRUCTION IS A TNX WHICH SHOULD NOT F1E00740 HAVE TRANSFERRED, BUT IT DID. F1E00750 F1E00760 *************************************************************F1E00770 F1E00780 03757 0057 00 777777 BEGF14 RIR 777777 F1E00790 03760 0074 00 4 73606 TSX (TAPE),4 POSITION TAPE AT FORVAL FOR SECTION TWO. F1E00800 03761 0 20000 0 04642 PZE BKSPX,,(SKBP) F1E00801 03762 0 00002 0 04643 PZE FORVL,,TABTAP F1E00802 F1E00810 03763 -0534 00 4 03743 LXD NXCLOC,4 LOAD WORD COUNT OF NONEXC TABLE. F1E00820 03764 0634 00 4 04353 SXA SRNXA,4 F1E00830 03765 -3 00000 4 03777 TXL STPPA,4,0 *NO TABLE, EXIT. F1E00840 F1E00850 03766 -0500 00 0 03743 CAL NXCLOC INITIALIZE LAST ADDRESS PLUS ONE. F1E00860 03767 0621 00 0 03772 STA NXCPA F1E00870 03770 0621 00 0 03775 STA NXCPB F1E00880 03771 0621 00 0 04354 STA SRNXB SET NONEXC SEARCH ROUTINE. F1E00890 03772 -0500 00 4 00000 NXCPA CAL **,4 MOVE IFNS FROM DECREMENT F1E00900 03773 -0734 00 1 00000 PDX ,1 FIELD TO ADDRESS FIELD. F1E00910 03774 0754 00 1 00000 PXA ,1 F1E00920 03775 0602 00 4 00000 NXCPB SLW **,4 STORE BACK IN TABLE. F1E00930 03776 2 00001 4 03772 TIX NXCPA,4,1 *IS TABLE EXHAUSTED, NO CONTINUE. F1E00940 F1E00950 *************************************************************F1E00960 F1E00970 03777 -0534 00 4 03744 STPPA LXD STPLOC,4 LOAD WORD COUNT OF TSTOPS TABLE. F1E00980 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 229 * SECTION ONE DOUBLE PRIME * RECORD 9F17 * 04000 0500 00 0 03744 CLA STPLOC GET BASE ADDRESS OF TSTOPS. F1E00990 BINARY CARD NO. 9F170003 04001 0621 00 0 04070 STA TIFD F1E01000 04002 0621 00 0 04426 STA FLOWB F1E01010 04003 -3 00000 4 04013 TXL EQITA,4,0 *NO TABLE, EXIT. F1E01020 F1E01030 04004 0621 00 0 04006 STA STPPB SET LAST ADDRESS OF TSTOPS PLUS ONE F1E01040 04005 0621 00 0 04011 STA STPPC IN VARIOUS ROUTINES. F1E01050 F1E01060 04006 -0500 00 4 00000 STPPB CAL **,4 MOVE IFNS FROM DECREMENT F1E01070 04007 -0734 00 2 00000 PDX ,2 FIELD TO ADDRESS FIELD. F1E01080 04010 0754 00 2 00000 PXA ,2 F1E01090 04011 0602 00 4 00000 STPPC SLW **,4 STORE BACK IN TABLE. F1E01100 04012 2 00001 4 04006 TIX STPPB,4,1 *IS TABLE EXHAUSTED, NO CONTINUE. F1E01110 F1E01120 *************************************************************F1E01130 F1E01140 EQUIVALENCE STATEMENT ERROR ROUTINE. F1E01150 F1E01160 04013 -0534 00 2 03742 EQITA LXD EQTLOC,2 LOAD EQUIVALENCE WORD COUNT. F1E01170 04014 -3 00000 2 04030 TXL TIFGO,2,0 *NO TABLE, EXIT. F1E01180 04015 0502 00 0 04653 CLS ALL1S SOME TABLE, F1E01190 04016 0322 60 0 03742 ERA* EQTLOC IS THE FIRST WORD AN ERROR FLAG. F1E01200 04017 -0100 00 0 04030 TNZ TIFGO *NO, TABLE IS ALL RIGHT. F1E01210 04020 1 77777 2 04024 TXI EQITC,2,-1 YES, ALL ENTRIES ARE ERRORS. F1E01220 04021 0502 00 0 04653 EQITB CLS ALL1S LOAD TERMINAL FLAG. F1E01230 04022 0322 60 0 03742 ERA* EQTLOC IS THIS ENTRY DIE ENDEN FLAG. F1E01240 04023 0100 00 0 04030 TZE TIFGO *YES, ALL DONE. F1E01250 04024 0560 60 0 03742 EQITC LDQ* EQTLOC LOAD MQ WITH VARIABLE NAME. F1E01260 04025 0074 00 4 04615 TSX ERROR,4 GO TO ERROR ENTRY SUBROUTINE. F1E01270 04026 +000000001234 OCT 1234 ERROR FLAG. F1E01280 BINARY CARD NO. 9F170004 04027 2 00001 2 04021 TIX EQITB,2,1 *IS TABLE EXHAUSTED, NO CONTINUE. F1E01290 F1E01300 *************************************************************F1E01310 F1E01320 ROUTINE TO PROCESS TIFGO. F1E01330 CHECKS FOR THE EXISTENCE OF THE BETAS F1E01340 AND THAT THE BETAS ARE EXECUTABLE. F1E01350 F1E01360 04030 -0534 00 2 03736 TIFGO LXD TIFLOC,2 LOAD TIFGO WORD COUNT. F1E01370 04031 -3 00000 2 04404 TXL FLOWA,2,0 *NO TABLE, EXIT. F1E01380 04032 -0534 00 4 03737 LXD TRDLOC,4 INITIALIZE TRAD ADDRESS F1E01390 04033 0634 00 4 04655 SXA ERASA,4 IN COMPUTED AND ASSIGNED F1E01400 04034 -0500 00 0 03737 CAL TRDLOC GO TO ROUTINES. F1E01410 04035 0402 00 0 04655 SUB ERASA F1E01420 04036 0400 00 0 04644 ADD TRADL ADD MAXIMUM LENGTH OF TRAD TABLE. F1E01430 04037 0621 00 0 04153 STA TIF1B INITIALIZE TO LAST TRAD ADDRESS. F1E01440 04040 0621 00 0 04203 STA TIF2B (TRAD+TRADMX) F1E01450 F1E01460 04041 0500 60 0 03736 TIFA CLA* TIFLOC GET FIRST WORD OF A TIFGO ENTRY. F1E01470 04042 -0734 00 4 00000 PDX ,4 MOVE THE ALPHA TO THE ADDRESS F1E01480 04043 0634 00 4 04654 SXA ALPHA,4 FIELD AND SAVE IT. F1E01490 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 230 * SECTION ONE DOUBLE PRIME * RECORD 9F17 * F1E01500 BRANCH TO PROPER SUBROUTINE TO PROCESS. F1E01510 04044 -0120 00 0 04073 TMI TIFMA *MINUS TYPE - ARITMETIC IF. F1E01520 04045 0734 00 1 00000 PAX ,1 PLACE TYPE NUMBER IN INDEX. F1E01530 04046 -3 00006 1 04053 TXL TIFB,1,6 *IS IT LEGITIMATE, YES. F1E01540 04047 0560 60 0 03736 LDQ* TIFLOC NO, IS UNKNOWN TYPE. F1E01550 04050 0074 00 4 04615 TSX ERROR,4 GO TO ERROR ENTRY SUBROUTINE. F1E01560 04051 +000000000471 OCT 471 F1E01570 04052 0020 00 0 04064 TRA TIFC CONTINUE WITH NEXT ENTRY. F1E01580 04053 0522 00 1 04063 TIFB XEC TIFTR,1 BRANCH ON TYPE NUMBER. F1E01590 04054 0074 00 4 03755 TSX 1DPER0,4 *TIX DID NOT TIX, MACHINE ERROR. F1E01600 F1E01610 BINARY CARD NO. 9F170005 04055 2 00001 2 04336 TIX TIF6A,2,1 TYPE 6 - ASSIGN. F1E01620 04056 2 00001 2 04274 TIX TIF5A,2,1 TYPE 5 - AC/MQ OVERFLOW IF. F1E01630 04057 2 00001 2 04250 TIX TIF4A,2,1 TYPE 4 - DIVIDE CHECK IF. F1E01640 04060 2 00001 2 04224 TIX TIF3A,2,1 TYPE 3 - SENSE LIGHT/SWITCH IF. F1E01650 04061 2 00001 2 04174 TIX TIF2A,2,1 TYPE 2 - COMPUTED GO TO. F1E01660 04062 2 00001 2 04144 TIX TIF1A,2,1 TYPE 1 - ASSIGNED GO TO. F1E01670 04063 2 00001 2 04130 TIFTR TIX TIF0A,2,1 TYPE 0 - JUST PLAIN GO TO .... F1E01680 F1E01690 F1E01700 04064 -0534 00 4 03744 TIFC LXD STPLOC,4 LOAD TSTOPS WORD COUNT. F1E01710 04065 1 00001 4 04066 TXI *+1,4,1 INCREMENT COUNT AND F1E01720 04066 -0634 00 4 03744 SXD STPLOC,4 SAVE. F1E01730 04067 0500 00 0 04654 CLA ALPHA ENTER THIS ALPHA IN TSTOPS (ALPHA) TABLE F1E01740 04070 0601 00 4 00000 TIFD STO **,4 FOR FLOW ANALYSIS. F1E01750 04071 2 00001 2 04041 TIFE TIX TIFA,2,1 *IS TIFGO EXHAUSTED, NO CONTINUE. F1E01760 F1E01770 04072 0020 00 0 04404 TRA FLOWA YES, GO TO FLOW ANAYSIS. F1E01790 F1E01800 . . . . . . . . . . . . . . . . . . . . . . . . . . . . .F1E01810 F1E01820 IF (E) BETA1, BETA2, BETA3 F1E01830 F1E01840 -ALPHA,,BETA1 F1E01850 BETA2,,BETA3 F1E01860 F1E01870 04073 -0320 00 0 04652 TIFMA ANA ADMSK GET BETA1. F1E01880 04074 -0100 00 0 04100 TNZ TIFMB *DOES IT EXIST, YES. F1E01890 04075 0074 00 4 04627 TSX NOBETA,4 NO, SAVE FOR DIAGNOSTIC. F1E01900 04076 +000000000506 OCT 506 ERROR FLAG. F1E01910 04077 0020 00 0 04102 TRA TIFMC *CONTINUE WITH BETA2. F1E01920 04100 0074 00 4 04351 TIFMB TSX SRNONX,4 SEARCH FOR BETA1 IN THE NONEXC TABLE. F1E01930 04101 +000000000510 OCT 510 ERROR FLAG. F1E01940 F1E01950 04102 -2 00001 2 04127 TIFMC TNX 1DPERA,2,1 REDUCE TIFGO INDEX TO GET SECOND WORD. F1E01960 BINARY CARD NO. 9F170006 04103 -0500 60 0 03736 CAL* TIFLOC GET SECOND WORD OF TIFGO ENTRY. F1E01970 04104 -0734 00 4 00000 PDX ,4 MOVE BETA2 TO ADDRESS FIELD. F1E01980 04105 0754 00 4 00000 PXA ,4 F1E01990 04106 -0100 00 0 04112 TNZ TIFMD *DOES IT EXIST, YES. F1E02000 04107 0074 00 4 04627 TSX NOBETA,4 NO, GO DIAGNOSTIC SUBROUTINE. F1E02010 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 231 * SECTION ONE DOUBLE PRIME * RECORD 9F17 * 04110 +000000000517 OCT 517 ERROR FLAG. F1E02020 04111 0020 00 0 04114 TRA TIFME *CONTINUE WITH BETA3. F1E02030 04112 0074 00 4 04351 TIFMD TSX SRNONX,4 SEARCH FOR BETA2 IN THE NONEXC TABLE. F1E02040 04113 +000000000521 OCT 521 ERROR FLAG. F1E02050 F1E02060 04114 -0500 60 0 03736 TIFME CAL* TIFLOC GET SECOND WORD OF TIFGO ENTRY. F1E02070 04115 -0320 00 0 04652 ANA ADMSK GET BETA3. F1E02080 04116 -0100 00 0 04122 TNZ TIFMF *DOES IT EXIST, YES. F1E02090 04117 0074 00 4 04627 TSX NOBETA,4 NO, GO TO DIAGNOSTIC SUBROUTINE. F1E02100 04120 +000000000527 OCT 527 ERROR FLAG. F1E02110 04121 0020 00 0 04124 TRA TIFMG *GO TO SET BRANCH COUNT. F1E02120 04122 0074 00 4 04351 TIFMF TSX SRNONX,4 SEACH FOR BETA3 IN THE NONEXC TABLE. F1E02130 04123 +000000000531 OCT 531 ERROR FLAG. F1E02140 F1E02150 04124 0774 00 1 00003 TIFMG AXT 3,1 SET NUMBER OF BRANCHES FOR THIS F1E02160 04125 -0634 00 1 04654 SXD ALPHA,1 TYPE OF TIFGO. F1E02170 04126 0020 00 0 04064 TRA TIFC *RETURN TO MAIN ROUTINE. F1E02180 F1E02190 04127 0074 00 4 03756 1DPERA TSX 1DPER1,4 *MACHINE ERROR. F1E02200 F1E02210 . . . . . . . . . . . . . . . . . . . . . . . . . . . . .F1E02220 F1E02230 GO TO BETA F1E02240 F1E02250 ALPHA,,ZERO F1E02260 ,,BETA F1E02270 F1E02280 04130 -0500 60 0 03736 TIF0A CAL* TIFLOC GET SECOND WORD OF THIS TIFGO ENTRY. F1E02290 BINARY CARD NO. 9F170007 04131 0734 00 4 00000 PAX ,4 PLACE BETA IN AN INDEX REGISTER. F1E02300 04132 3 00000 4 04136 TXH TIF0B,4,0 *DOES BETA EXIST, YES. F1E02310 04133 0074 00 4 04627 TSX NOBETA,4 NO, GO TO DIAGNOSTIC SUBROUTINE. F1E02320 04134 +000000000547 OCT 547 ERROR FLAG. F1E02330 04135 0020 00 0 04141 TRA TIF0C *SET NUMBER OF BRANCHES. F1E02340 04136 0754 00 4 00000 TIF0B PXA ,4 PLACE BETA IN THE AC. F1E02350 04137 0074 00 4 04351 TSX SRNONX,4 SEARCH FOR BETA IN THE NONEXC TABLE. F1E02360 04140 +000000000551 OCT 551 ERROR FLAG. F1E02370 04141 0774 00 1 00001 TIF0C AXT 1,1 SET NUMBER OF BRANCHES FOR THIS F1E02380 04142 -0634 00 1 04654 SXD ALPHA,1 TYPE OF TIFGO. F1E02390 04143 0020 00 0 04064 TRA TIFC *RETURN TO MAIN ROUTINE. F1E02400 F1E02410 . . . . . . . . . . . . . . . . . . . . . . . . . . . . .F1E02420 F1E02430 GO TO N,(BETA1,BETA2,....,BETAX) F1E02440 F1E02450 ALPHA,,ONE F1E02460 TRADI,,TRADU F1E02470 F1E02480 04144 0760 00 0 00140 TIF1A SLF MAKE SURE NON-EXECUTABLE FLAG IS OFF. F1E02490 04145 0055 00 000001 SIR 1 SET FLAG TO PREVENT ENTRY IN BETA TABLE. F1E02500 04146 -0634 00 0 04654 ZSD ALPHA SET BRANCH COUNT TO ZERO. F1E02510 04147 -0500 60 0 03736 CAL* TIFLOC GET SECOND WORD OF TIFGO ENTRY. F1E02520 04150 0734 00 4 00000 PAX ,4 GET LAST TRAD REFERENCE AND F1E02530 04151 -0634 00 4 04171 SXD TIF1E,4 SET END OF ENTRY TEST. F1E02540 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 232 * SECTION ONE DOUBLE PRIME * RECORD 9F17 * 04152 -0734 00 1 00000 PDX ,1 LOAD FIRST TRAD REFERENCE. F1E02550 04153 -0500 00 1 00000 TIF1B CAL **,1 GET A TRAD ENTRY. F1E02560 04154 0020 00 0 04657 TRA1 TRA PATC1 GO TO PATCH. $F1E02570 04155 0074 00 4 04627 TSX NOBETA,4 NO, GO TO DIAGNOSTIC SUBROUTINE. F1E02580 04156 +000000000571 OCT 571 ERROR FLAG. F1E02590 BINARY CARD NO. 9F170008 04157 0020 00 0 04162 TRA TIF1D *UPDATE BRANCH COUNT ANYHOW. F1E02600 04160 0074 00 4 04351 TIF1C TSX SRNONX,4 SEARCH FOR THIS BETA IN THE NONEXC TABLE. F1E02610 04161 +000000000573 OCT 573 ERROR FLAG. F1E02620 04162 0500 00 0 04654 TIF1D CLA ALPHA GET ALPHA AND F1E02630 04163 0400 00 0 04647 ADD L(D1) UPDATE THE F1E02640 04164 0601 00 0 04654 STO ALPHA BRANCH COUNT. F1E02650 04165 -0760 00 0 00144 SLT 4 WAS BETA EXECUTABLE. F1E02660 04166 0020 00 0 04170 TRA *+2 *YES. F1E02670 04167 0622 60 0 04153 STD* TIF1B NO, CLOBBER THIS TRAD ENTRY. F1E02680 04170 1 77777 1 04171 TXI *+1,1,-1 UPDATE TRAD INDEX. F1E02690 04171 3 00000 1 04153 TIF1E TXH TIF1B,1,** *HAVE ALL BETAS BEEN CHECKED, NO CONTINUE. F1E02700 04172 0057 00 000001 RIR 1 YES, RESET BETA TABLE FLAG. F1E02710 04173 0020 00 0 04064 TRA TIFC *RETURN TO MAIN ROUTINE. F1E02720 F1E02730 . . . . . . . . . . . . . . . . . . . . . . . . . . . . .F1E02740 F1E02750 GO TO (BETA1,BETA2,....,BETAX), N F1E02760 F1E02770 ALPHA,,TWO F1E02780 TRADI,,TRADU F1E02790 F1E02800 04174 0760 00 0 00140 TIF2A SLF MAKE SURE NON-EXECUTABLE FLAG IS OFF. F1E02810 04175 0055 00 000001 SIR 1 SET FLAG TO PREVENT ENTRY IN BETA TABLE. F1E02820 04176 -0634 00 0 04654 SXD ALPHA,0 SET BRANCH COUNT TO ZERO. F1E02830 04177 -0500 60 0 03736 CAL* TIFLOC GET SECOND WORD OF TIFGO ENTRY. F1E02840 04200 0734 00 4 00000 PAX ,4 GET LAST TRAD REFERENCE AND F1E02850 04201 -0634 00 4 04221 SXD TIF2E,4 SET END OF ENTRY TEST. F1E02860 04202 -0734 00 1 00000 PDX ,1 LOAD FIRST TRAD REFERENCE. F1E02870 04203 -0500 00 1 00000 TIF2B CAL **,1 GET A TRAD REFERENCE. F1E02880 04204 0020 00 0 04662 TRA2 TRA PATC2 GO TO PATCH. $F1E02890 BINARY CARD NO. 9F170009 04205 0074 00 4 04627 TSX NOBETA,4 NO, GO TO DIAGNOSTIC SUBROUTINE. F1E02900 04206 +000000000622 OCT 622 ERROR FLAG. F1E02910 04207 0020 00 0 04212 TRA TIF2D *UPDATE BRANCH COUNT ANYHOW. F1E02920 04210 0074 00 4 04351 TIF2C TSX SRNONX,4 SEARCH FOR BETA IN THE NONEXC TABLE. F1E02930 04211 +000000000624 OCT 624 ERROR FLAG. F1E02940 04212 0500 00 0 04654 TIF2D CLA ALPHA GET ALPHA AND F1E02950 04213 0400 00 0 04647 ADD L(D1) UPDATE THE F1E02960 04214 0601 00 0 04654 STO ALPHA BRANCH COUNT. F1E02970 04215 -0760 00 0 00144 SLT 4 WAS BETA EXECUTABLE. F1E02980 04216 0020 00 0 04220 TRA *+2 *YES. F1E02990 04217 0622 60 0 04203 STD* TIF2B NO, CLOBBER THIS TRAD ENTRY. F1E03000 04220 1 77777 1 04221 TXI *+1,1,-1 UPDATE TRAD INDEX. F1E03010 04221 3 00000 1 04203 TIF2E TXH TIF2B,1,** *HAVE ALL BETAS BEEN CHECKED, NO CONTINUE. F1E03020 04222 0057 00 000001 RIR 1 YES, RESET BETA TABLE FLAG. F1E03030 04223 0020 00 0 04064 TRA TIFC *RETURN TO MAIN ROUTINE. F1E03040 F1E03050 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 233 * SECTION ONE DOUBLE PRIME * RECORD 9F17 * . . . . . . . . . . . . . . . . . . . . . . . . . . . . .F1E03060 F1E03070 IF (SENSE SWITCH/LIGHT I) BETA1, BETA2 F1E03080 F1E03090 ALPHA,,THREE F1E03100 BETA1,,BETA2 F1E03110 F1E03120 04224 -0500 60 0 03736 TIF3A CAL* TIFLOC GET SECOND WORD OF TIFGO ENTRY. F1E03130 04225 -0734 00 4 00000 PDX ,4 MOVE BETA1 FROM DECREMENT F1E03140 04226 0754 00 4 00000 PXA ,4 FIELD TO ADDRESS FIELD. F1E03150 04227 -0100 00 0 04233 TNZ TIF3B *DOES BETA1 EXIST, YES. F1E03160 04230 0074 00 4 04627 TSX NOBETA,4 NO, GO TO DIAGNOSTIC SUBROUTINE. F1E03170 04231 +000000000647 OCT 647 ERROR FLAG. F1E03180 04232 0020 00 0 04235 TRA TIF3C *CONTINUE WITH BETA2. F1E03190 BINARY CARD NO. 9F170010 04233 0074 00 4 04351 TIF3B TSX SRNONX,4 SEARCH FOR BETA1 IN THE NONEXC TABLE. F1E03200 04234 +000000000651 OCT 651 ERROR FLAG. F1E03210 04235 -0500 60 0 03736 TIF3C CAL* TIFLOC GET SECOND WORD OF TIFGO ENTRY AGAIN. F1E03220 04236 -0320 00 0 04652 ANA ADMSK GET BETA2. F1E03230 04237 -0100 00 0 04243 TNZ TIF3D *DOES BETA2 EXIST, YES. F1E03240 04240 0074 00 4 04627 TSX NOBETA,4 NO, GO TO DIAGNOSTIC SUBROUTINE. F1E03250 04241 +000000000657 OCT 657 ERROR FLAG. F1E03260 04242 0020 00 0 04245 TRA TIF3E *CONTINUE WITH BRANCH COUNT. F1E03270 04243 0074 00 4 04351 TIF3D TSX SRNONX,4 SEARCH FOR BETA2 IN THE NONEXC TABLE. F1E03280 04244 +000000000661 OCT 661 ERROR FLAG. F1E03290 04245 0774 00 1 00002 TIF3E AXT 2,1 SET BRANCH COUNT FOR THIS F1E03300 04246 -0634 00 1 04654 SXD ALPHA,1 TYPE OF TIFGO. F1E03310 04247 0020 00 0 04064 TRA TIFC *RETURN TO MAIN ROUTINE. F1E03320 F1E03330 . . . . . . . . . . . . . . . . . . . . . . . . . . . . .F1E03340 F1E03350 IF DIVIDE CHECK BETA1, BETA2 F1E03360 F1E03370 ALPHA,,FOUR F1E03380 BETA1,,BETA2 F1E03390 F1E03400 04250 -0500 60 0 03736 TIF4A CAL* TIFLOC GET SECOND WORD OF THIS TIFGO ENTRY. F1E03410 04251 -0734 00 4 00000 PDX ,4 MOVE BETA1 FROM DECREMENT F1E03420 04252 0754 00 4 00000 PXA ,4 FIELD TO ADDRESS FIELD. F1E03430 04253 -0100 00 0 04257 TNZ TIF4B *DOES BETA1 EXIST, YES. F1E03440 04254 0074 00 4 04627 TSX NOBETA,4 NO, GO TO DIAGNOSTIC SUBROUTINE. F1E03450 04255 +000000000676 OCT 676 ERROR FLAG. F1E03460 04256 0020 00 0 04261 TRA TIF4C *CONTINUE WITH BETA2. F1E03470 04257 0074 00 4 04351 TIF4B TSX SRNONX,4 SEARCH FOR BETA1 IN THE NONEXC TABLE. F1E03480 04260 +000000000700 OCT 700 ERROR FLAG. F1E03490 BINARY CARD NO. 9F170011 04261 -0500 60 0 03736 TIF4C CAL* TIFLOC GET SECOND WORD OF TIFGO ENTRY AGAIN. F1E03500 04262 -0320 00 0 04652 ANA ADMSK GET BETA2. F1E03510 04263 -0100 00 0 04267 TNZ TIF4D *DOES BETA2 EXIST, YES. F1E03520 04264 0074 00 4 04627 TSX NOBETA,4 NO, GO TO DIAGNOSTIC SUBROUTINE. F1E03530 04265 +000000000706 OCT 706 ERROR FLAG. F1E03540 04266 0020 00 0 04271 TRA TIF4E *CONTINUE WITH BRANCH COUNT. F1E03550 04267 0074 00 4 04351 TIF4D TSX SRNONX,4 SEARCH FOR BETA2 IN THE NONEXC TABLE. F1E03560 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 234 * SECTION ONE DOUBLE PRIME * RECORD 9F17 * 04270 +000000000710 OCT 710 ERROR FLAG F1E03570 04271 0774 00 1 00002 TIF4E AXT 2,1 SET BRANCH COUNT F1E03580 04272 -0634 00 1 04654 SXD ALPHA,1 FOR THIS TYPE OF TIFGO. F1E03590 04273 0020 00 0 04064 TRA TIFC *RETURN TO MAIN ROUTINE. F1E03600 F1E03610 . . . . . . . . . . . . . . . . . . . . . . . . . . . . .F1E03620 F1E03630 IF (AC/MQ) OVERFLOW BETA1, BETA2 F1E03640 F1E03650 ALPHA,,FIVE F1E03660 BETA1,,BETA2 F1E03670 F1E03680 04274 -0534 00 4 03744 TIF5A LXD STPLOC,4 LOAD TSTOPS (ALPHA) TABLE WORD COUNT. F1E03690 04275 1 00001 4 04276 TXI *+1,4,1 INCREMENT WORD COUNT. F1E03700 04276 -0634 00 4 03744 SXD STPLOC,4 SAVE COUNT. F1E03710 04277 0534 00 1 04654 LXA ALPHA,1 GET THE SECTION I DUMMY ALPHA F1E03720 04300 1 77777 1 04301 TXI *+1,1,-1 AND REDUCE TO TRUE ALPHA FOR F1E03730 04301 0754 00 1 00000 PXA ,1 TDO SCAN AND FLOW ANALYSIS. F1E03740 04302 0400 00 0 04650 ADD L(D2) SET BRANCH COUNT. F1E03750 04303 0601 60 0 04070 STO* TIFD STORE IN TSTOPS (ALPHA) TABLE. F1E03760 04304 0534 00 1 04362 LXA SRNXC,1 LOAD BETA TABLE WORD COUNT. F1E03770 04305 0534 00 4 04654 LXA ALPHA,4 GET THE SECONDARY ALPHA F1E03780 04306 0754 00 4 00000 PXA ,4 AND STORE F1E03790 BINARY CARD NO. 9F170012 04307 0601 60 0 04363 STO* SRNXD IT IN THE BETA TABLE FOR FLOW ANALYSIS. F1E03800 04310 1 77777 1 04311 TXI *+1,1,-1 INCREMENT BETA TABLE WORD COUNT. F1E03810 04311 0634 00 1 04362 SXA SRNXC,1 SAVE BETA TABLE WORD COUNT. F1E03820 04312 -0500 60 0 03736 CAL* TIFLOC GET SECOND WORD OF TIFGO ENTRY. F1E03830 04313 -0734 00 4 00000 PDX ,4 MOVE BETA1 FROM THE DECREMENT F1E03840 04314 0754 00 4 00000 PXA ,4 FIELD TO THE ADDRESS FIELD. F1E03850 04315 -0100 00 0 04321 TNZ TIF5B *DOES BETA1 EXIST, YES. F1E03860 04316 0074 00 4 04627 TSX NOBETA,4 NO, GO TO DIAGNOSTIC SUBROUTINE. F1E03870 04317 +000000000736 OCT 736 ERROR FLAG. F1E03880 04320 0020 00 0 04323 TRA TIF5C *CONTINUE WITH BETA2. F1E03890 04321 0074 00 4 04351 TIF5B TSX SRNONX,4 SEARCH FOR BETA1 IN THE NONEXC TABLE. F1E03900 04322 +000000000740 OCT 740 ERROR FLAG. F1E03910 04323 -0500 60 0 03736 TIF5C CAL* TIFLOC GET SECOND WORD OF THIS TIFGO ENTRY AGAIN.F1E03920 04324 -0320 00 0 04652 ANA ADMSK GET BETA2. F1E03930 04325 -0100 00 0 04331 TNZ TIF5D *DOES BETA2 EXIST, YES. F1E03940 04326 0074 00 4 04627 TSX NOBETA,4 NO, GO TO DIAGNOSTIC SUBROUTINE. F1E03950 04327 +000000000746 OCT 746 ERROR FLAG. F1E03960 04330 0020 00 0 04333 TRA TIF5E *CONTINUE WITH BRANCH COUNT. F1E03970 04331 0074 00 4 04351 TIF5D TSX SRNONX,4 SEARCH FOR BETA2 IN THE NONEXC TABLE. F1E03980 04332 +000000000750 OCT 750 ERROR FLAG. F1E03990 04333 0774 00 1 00002 TIF5E AXT 2,1 SET BRANCH COUNT FOR F1E04000 04334 -0634 00 1 04654 SXD ALPHA,1 THIS TYPE OF TIFGO ENTRY. F1E04010 BINARY CARD NO. 9F170013 04335 0020 00 0 04064 TRA TIFC *RETURN TO MAIN ROUTINE. F1E04020 F1E04030 . . . . . . . . . . . . . . . . . . . . . . . . . . . . .F1E04040 F1E04050 ASSIGN BETA TO N F1E04060 F1E04070 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 235 * SECTION ONE DOUBLE PRIME * RECORD 9F17 * ALPHA,,SIX F1E04080 ZERO ,,BETA F1E04090 F1E04100 04336 -0500 60 0 03736 TIF6A CAL* TIFLOC GET SECOND WORD OF TIFGO ENTRY. F1E04110 04337 -0320 00 0 04652 ANA ADMSK ELIMINATE THE POSSIBILITY OF HASH. F1E04120 04340 -0100 00 0 04344 TNZ TIF6B *DOES BETA EXIST, YES. F1E04130 04341 0074 00 4 04627 TSX NOBETA,4 NO, GO TO DIAGNOSTIC SUBROUTINE. F1E04140 04342 +000000000764 OCT 764 ERROR FLAG. F1E04150 04343 0020 00 0 04071 TRA TIFE *RETURN TO MAIN ROUTINE. F1E04160 04344 0055 00 000001 TIF6B SIR 1 SET FLAG TO PREVENT ENTRY IN BETA TABLE. F1E04170 04345 0074 00 4 04351 TSX SRNONX,4 SEARCH FOR BETA IN THE NONEXC TABLE. F1E04180 04346 +000000000765 OCT 765 ERROR FLAG. F1E04190 04347 0057 00 000001 RIR 1 RESET BETA TABLE FLAG. F1E04200 04350 0020 00 0 04071 TRA TIFE *RETURN TO MAIN ROUTINE. F1E04210 F1E04220 . . . . . . . . . . . . . . . . . . . . . . . . . . . . .F1E04230 F1E04240 ROUTINE TO SEARCH FOR BETA IN THE NONEXC F1E04250 TABLE AND TO MAKE ENTRIES IN THE BETA TABLE. F1E04260 F1E04270 04351 0760 00 0 00140 SRNONX SLF RESET NOT-EXECUTABLE FLAG. F1E04280 04352 0634 00 1 04366 SXA SRNXE,1 SAVE INDEX REGISTER. F1E04290 04353 0774 00 1 00000 SRNXA AXT **,1 LOAD WORD COUNT OF NONEXC TABLE. F1E04300 04354 -0340 00 1 00000 SRNXB LAS **,1 COMPARE BETA TO A NONEXC ENTRY. F1E04310 04355 0020 00 0 04357 TRA *+2 DOES NOT COMPARE. F1E04320 04356 0020 00 0 04370 TRA SRNXF *COMPARES, PROGRAMMER ERROR. F1E04330 04357 2 00001 1 04354 TIX SRNXB,1,1 *DOES NOT COMPARE, TABLE EXHAUSTED, NO. F1E04340 04360 0054 00 000001 RFT 1 YES, SHOULD BETA BE ENTERED IN BETA TABLE.F1E04350 04361 0020 00 0 04366 TRA SRNXE *NO. F1E04360 04362 0774 00 1 00000 SRNXC AXT **,1 YES, LOAD CURRENT BETA TABLE WORD COUNT. F1E04370 BINARY CARD NO. 9F170014 04363 0601 00 1 06635 SRNXD STO BETA,1 STORE THIS BETA. F1E04380 04364 1 77777 1 04365 TXI *+1,1,-1 INCREMENT COUNT. F1E04390 04365 0634 00 1 04362 SXA SRNXC,1 SAVE BETA WORD COUNT. F1E04400 04366 0774 00 1 00000 SRNXE AXT **,1 RESTORE INDEX REGISTER. F1E04410 04367 0020 00 4 00002 TRA 2,4 *RETURN TO CALLER. F1E04420 F1E04430 04370 -0534 00 1 03751 SRNXF LXD GOOFCT,1 LOAD ERROR LIST WORD COUNT. F1E04440 04371 0767 00 0 00022 ALS 18 SHIFT BETA TO DECREMENT FIELD. F1E04450 04372 0602 00 1 60632 SLW ELSEBF-1,1 STORE IN ERROR LIST. F1E04460 04373 0500 00 0 04654 CLA ALPHA GET THE ALPHA OF THIS STATEMENT. F1E04470 04374 0621 00 1 60632 STA ELSEBF-1,1 SAVE IT WITH BETA. F1E04480 04375 -0500 00 4 00001 CAL 1,4 GET ERROR FLAG. F1E04490 04376 -0501 00 0 04646 ORA NXFLG ADD THE NON-EXECUTABLE FLAG. F1E04500 04377 0602 00 1 60633 SLW ELSEBF,1 STORE IN ERROR LIST. F1E04510 04400 1 00002 1 04401 TXI *+1,1,2 UPDATE WORD COUNT. F1E04520 04401 -0634 00 1 03751 SXD GOOFCT,1 STORE NEW COUNT. F1E04530 04402 0760 00 0 00144 SLN 4 TURN ON NON-EXECUTABLE LITE. F1E04540 04403 0020 00 0 04366 TRA SRNXE *RETURN TO CALLER VIA INDEX RESTORE. F1E04550 F1E04560 *************************************************************F1E04570 F1E04580 FLOW ANALYSIS ROUTINE. F1E04590 PERFORMS A FLOW ANALYSIS OF THE PROGRAM F1E04600 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 236 * SECTION ONE DOUBLE PRIME * RECORD 9F17 * BASED ON THE INFORMATION CONTAINED IN THE F1E04610 TSTOPS (ALPHA) TABLE AND THE NONEXC AND F1E04620 BETA TABLES. F1E04630 F1E04640 04404 -0534 00 1 03744 FLOWA LXD STPLOC,1 LOAD TSTOPS WORD COUNT. F1E04650 04405 -3 00000 1 04457 TXL TDOA,1,0 *EXIT, NO TABLE. F1E04670 04406 -0534 00 4 03734 LXD EIFNO,4 GET LAST IFN-PLUS-ONE AND F1E04680 04407 0754 00 4 00000 PXA ,4 ENTER IT IN THE BETA TABLE F1E04690 04410 0074 00 4 04362 TSX SRNXC,4 SO THAT THERE WILL BE A PATCH OF F1E04700 BINARY CARD NO. 9F170015 04411 0761 00 0 00000 NOP FLOW TO THE IMAGINARY LAST STATEMENT+1. F1E04710 04412 0500 00 0 03737 CLA TRDLOC INITIALIZE LAST ADDRESS PLUS ONE OF TRAD. F1E04720 04413 0621 00 0 04441 STA FLOW3 F1E04730 04414 0535 00 4 04362 LAC SRNXC,4 GET TRUE WORD COUNT OF THE F1E04740 04415 0754 00 4 00000 PXA ,4 BETA TABLE AND COMPUTE THE F1E04750 04416 0400 00 0 04645 ADD OBETA LAST ADDRESS PLUS ONE. F1E04760 04417 0621 00 0 04433 STA FLOWD INITIALIZE THE BETA SEARCH F1E04770 04420 0634 00 4 04431 SXA FLOWC,4 ROUTINE. F1E04780 04421 0534 00 4 03743 LXA NXCLOC,4 INITIALIZE THE NONEXC SEARCH F1E04790 04422 0634 00 4 04447 SXA FLOWF,4 ROUTINE WITH THE LAST ADDRESS PLUS ONE F1E04800 04423 -0534 00 4 03743 LXD NXCLOC,4 AND WORD COUNT. F1E04810 04424 0634 00 4 04445 SXA FLOWE,4 F1E04820 F1E04830 F1E04840 04425 -0534 00 1 03744 LXD STPLOC,1 LOAD WORD COUNT OF TSTOPS (ALPHA) TABLE. F1E04850 04426 -0500 00 1 00000 FLOWB CAL **,1 GET AN ALPHA (AN ALPHA IS THE END OF F1E04860 04427 -0320 00 0 04652 ANA ADMSK A PATH OF FLOW). EXTRACT ALPHA. F1E04870 04430 0400 00 0 04651 FLOW1 ADD L(A1) FORM IFN OF ALPHA+N (MUST BE A TRA TO IT).F1E04880 F1E04890 04431 0774 00 2 00000 FLOWC AXT **,2 LOAD BETA TABLE WORD COUNT. F1E04900 04432 -3 00000 2 04437 TXL FLOW2,2,0 *EXIT, NO TABLE. F1E04910 04433 -0340 00 2 00000 FLOWD LAS **,2 DOES A BETA TRANSFER TO ALPHA+N. F1E04920 04434 0020 00 0 04436 TRA *+2 NO. F1E04930 04435 0020 00 0 04456 TRA FLOWG *YES, IS ALL RIGHT. F1E04940 04436 2 00001 2 04433 TIX FLOWD,2,1 *NO, IS BETA EXHAUSTED, NO CONTINUE. F1E04950 F1E04960 BINARY CARD NO. 9F170016 04437 -0534 00 2 03737 FLOW2 LXD TRDLOC,2 YES, LOAD TRAD TABLE WORD COUNT. F1E04970 04440 -3 00000 2 04445 TXL FLOWE,2,0 *EXIT, NO TABLE. F1E04980 04441 -0340 00 2 00000 FLOW3 LAS **,2 DOES A BETA IN TRAD TRANSFER TO ALPHA+N. F1E04990 04442 0020 00 0 04444 TRA *+2 NO. F1E05000 04443 0020 00 0 04456 TRA FLOWG *YES, IS ALL RIGHT. F1E05010 04444 2 00001 2 04441 TIX FLOW3,2,1 *NO, IS TRAD EXHAUSTED, NO CONTINUE. F1E05020 F1E05030 04445 0774 00 2 00000 FLOWE AXT **,2 YES, LOAD THE NONEXC TABLE WORD COUNT. F1E05040 04446 -3 00000 2 04453 TXL FLOW4,2,0 *EXIT, NO TABLE. F1E05050 04447 -0340 00 2 00000 FLOWF LAS **,2 IS ALPHA+N NON-EXECUTABLE. F1E05060 04450 0020 00 0 04452 TRA *+2 NO. F1E05070 04451 0020 00 0 04430 TRA FLOW1 YES, FORM ALPHA+N+1. F1E05080 04452 2 00001 2 04447 TIX FLOWF,2,1 *NO, IS NONEXC EXHAUSTED, NO CONTINUE. F1E05090 F1E05100 04453 0621 00 0 04654 FLOW4 STA ALPHA YES, SAVE ALPHA. F1E05110 04454 0074 00 4 04627 TSX NOBETA,4 GO TO DIAGNOSTIC SUBROUTINE. F1E05120 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 237 * SECTION ONE DOUBLE PRIME * RECORD 9F17 * 04455 +000000001014 OCT 1014 ERROR FLAG. F1E05130 F1E05140 04456 2 00001 1 04426 FLOWG TIX FLOWB,1,1 *IS TSTOPS (ALPHA) EXHAUSTED, NO CONTINUE. F1E05150 F1E05160 *************************************************************F1E05170 F1E05180 TDO ROUTINE. F1E05190 CHECKS THE BETA OF A DO LOOP FOR ITS EXISTENCE,F1E05200 THAT IT IS EXECUTABLE AND THAT IT IS NOT F1E05210 A TIFGO STATEMENT. F1E05220 F1E05230 04457 -0534 00 1 03740 TDOA LXD TDOLOC,1 LOAD TDO TABLE WORD COUNT. F1E05240 04460 -3 00000 1 04540 TXL FRETA,1,0 *EXIT, NO TABLE. F1E05260 F1E05270 04461 0534 00 2 03743 LXA NXCLOC,2 INITIALIZE LAST ADDRESS PLUS ONE F1E05280 04462 0634 00 2 04515 SXA TDOF,2 OF NONEXC SEARCH ROUTINE. F1E05290 04463 0534 00 2 03744 LXA STPLOC,2 INITIALIZE LAST ADDRESS PLUS ONE F1E05300 04464 0634 00 2 04505 SXA TDOD,2 OF TSTOPS SEARCH ROUTINE. F1E05310 BINARY CARD NO. 9F170017 04465 0534 00 2 03740 LXA TDOLOC,2 LOAD LAST ADDRESS PLUS ONE OF TDO TABLE. F1E05320 04466 0634 00 2 04472 SXA TDOB,2 SET ADDRESS IN PROCESSOR. F1E05330 04467 1 00001 2 04470 TXI *+1,2,1 BUMP BY ONE AND SET IN ERROR ROUTINE F1E05340 04470 0634 00 2 04530 SXA TDOI,2 TO GET SYMBOL. F1E05350 F1E05360 04471 0600 00 0 04654 STZ ALPHA RESET ALPHA CELL. F1E05370 F1E05380 04472 -0500 00 1 00000 TDOB CAL **,1 GET FIRST WORD OF TDO ENTRY. F1E05390 04473 -0734 00 4 00000 PDX ,4 GET ALPHA FROM DECREMENT FIELD F1E05400 04474 0634 00 4 04654 SXA ALPHA,4 AND SAVE FOR ERROR ROUTINE. F1E05410 04475 -0320 00 0 04652 ANA ADMSK GET BETA FOR THIS DO LOOP. F1E05420 04476 -0100 00 0 04502 TNZ TDOC *DOES BETA EXIST, YES. F1E05430 04477 0074 00 4 04627 TSX NOBETA,4 NO, GO TO DIAGNOSTIC SUBROUTINE. F1E05440 04500 +000000001050 OCT 1050 ERROR FLAG. F1E05450 04501 0020 00 0 04521 TRA TDOG *TERMINATE PROCESSING ON THIS ENTRY. F1E05460 F1E05470 04502 0601 00 0 04656 TDOC STO ERASE SAVE BETA. F1E05480 04503 -0534 00 2 03744 LXD STPLOC,2 LOAD TSTOPS (ALPHA) TABLE WORD COUNT. F1E05490 04504 -3 00000 2 04512 TXL TDOE,2,0 *NO TABLE, CONTINUE WITH NONEXC. F1E05500 04505 -0500 00 2 00000 TDOD CAL **,2 GET A TSTOPS ENTRY. F1E05510 04506 -0320 00 0 04652 ANA ADMSK EXTRACT THE ALPHA. F1E05520 04507 0402 00 0 04656 SUB ERASE SUBTRACT BETA. F1E05530 04510 0100 00 0 04523 TZE TDOH *ARE THEY THE SAME, YES - ERROR. F1E05540 04511 2 00001 2 04505 TIX TDOD,2,1 *NO, IS TSTOPS EXHAUSTED, NO CONTINUE. F1E05550 F1E05560 04512 -0534 00 2 03743 TDOE LXD NXCLOC,2 YES, LOAD NONEXC TABLE WORD COUNT. F1E05570 BINARY CARD NO. 9F170018 04513 -3 00000 2 04521 TXL TDOG,2,0 *NO TABLE, EXIT. F1E05580 04514 -0500 00 0 04656 CAL ERASE SOME TABLE, GET BETA. F1E05590 04515 -0340 00 2 00000 TDOF LAS **,2 DOES BETA MATCH NONEXC IFN. F1E05600 04516 0020 00 0 04520 TRA *+2 NO. F1E05610 04517 0020 00 0 04535 TRA TDOJ *YES, PROGRAMMER ERROR. F1E05620 04520 2 00001 2 04515 TIX TDOF,2,1 *NO, IS NONEXC EXHAUSTED, NO CONTINUE. F1E05630 F1E05640 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 238 * SECTION ONE DOUBLE PRIME * RECORD 9F17 * 04521 2 00005 1 04472 TDOG TIX TDOB,1,5 *IS TDO EXHAUSTED, NO CONTINUE. F1E05650 04522 0020 00 0 04540 TRA FRETA *YES, GO TO THE FRET PROCESSOR. F1E05660 F1E05670 . . . . . . . . . . . . . . . . . . . . . . . . . . . . .F1E05680 F1E05690 BETA IS A TIFGO STATEMENT. F1E05700 F1E05710 04523 0074 00 4 04627 TDOH TSX NOBETA,4 GO TO DIAGNOSTIC SUBROUTINE TO ENTER F1E05720 04524 +000000001100 OCT 1100 ERROR FLAG. F1E05730 04525 -0534 00 4 03751 TDOK LXD GOOFCT,4 LOAD ERROR COUNT. F1E05740 04526 0522 00 0 04472 XEC TDOB GET THE FIRST WORD OF THIS TDO ENTRY. F1E05750 04527 0602 00 4 60633 SLW ELSEBF,4 STORE IN ERROR LIST. F1E05760 04530 -0500 00 1 00000 TDOI CAL **,1 GET SECOND WORD OF TDO ENTRY (SYMBOL). F1E05770 04531 0602 00 4 60632 SLW ELSEBF-1,4 STORE IN ERROR LIST. F1E05780 04532 1 00002 4 04533 TXI *+1,4,2 UPDATE ERROR COUNT. F1E05790 04533 -0634 00 4 03751 SXD GOOFCT,4 SAVE NEW COUNT. F1E05800 04534 0020 00 0 04521 TRA TDOG *TEST FOR END OF TABLE. F1E05810 F1E05820 . . . . . . . . . . . . . . . . . . . . . . . . . . . . .F1E05830 F1E05840 BETA IS A NON-EXECUTABLE STATEMENT. F1E05850 F1E05860 04535 0074 00 4 04627 TDOJ TSX NOBETA,4 GO TO DIAGNOSTIC SUBROUTINE TO ENTER F1E05870 04536 +000000001070 OCT 1070 ERROR FLAG. F1E05880 04537 0020 00 0 04525 TRA TDOK *CONTINUE BY USING TIFGO ERROR ROUTINE. F1E05890 F1E05900 *************************************************************F1E05910 F1E05920 FREQUENCY ROUTINE. F1E05930 CHECKS FOR FREQUENCIES SPECIFYING MORE F1E05940 BRANCHES THAN THERE ARE FOR THAT TYPE F1E05950 OF TIFGO STATEMENT. F1E05960 F1E05970 04540 -0534 00 1 03741 FRETA LXD FRTLOC,1 LOAD FRET TABLE WORD COUNT. F1E05980 F1E05990 F1E06020 BINARY CARD NO. 9F170019 04541 -3 00000 1 04601 TXL FINIS,1,0 *EXIT, NO TABLE. F1E06030 F1E06040 04542 0760 00 0 00140 SLF MAKE SURE FLAG LITE IS OFF. F1E06050 04543 0600 00 0 04654 STZ ALPHA RESET ALPHA CELL. F1E06060 04544 0534 00 2 03744 LXA STPLOC,2 LOAD TSTOPS (ALPHA) TABLE ORIGIN, F1E06070 04545 0634 00 2 04564 SXA FRETE,2 LAST ADDRESS PLUS ONE AND SET ROUTINE. F1E06080 04546 0534 00 2 03741 LXA FRTLOC,2 LOAD LAST ADDRESS PLUS ONE FRET F1E06090 04547 0634 00 2 04551 SXA FRETB,2 TABLE AND INITIALIZE ADDRESSES. F1E06100 04550 0634 00 2 04555 SXA FRETC,2 F1E06110 F1E06120 04551 0500 00 1 00000 FRETB CLA **,1 GET THE IFN OF A FRET ENTRY. F1E06130 04552 0621 00 0 04654 STA ALPHA SAVE IT IN ALPHA. F1E06140 04553 1 77777 1 04554 TXI *+1,1,-1 DECREMENT INDEX TO GET FREQUENCY. F1E06150 04554 0774 00 2 00000 AXT 0,2 INITIALIZE BRANCH COUNTER. F1E06160 04555 0500 00 1 00000 FRETC CLA **,1 GET NEXT WORD OF THE FRET TABLE. F1E06170 04556 -0120 00 0 04562 TMI FRETD *IS THIS BEGINNING OF NEW ENTRY, YES. F1E06180 04557 1 00001 2 04560 TXI *+1,2,1 NO, INCREMENT COUNT OF BRANCHES. F1E06190 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 239 * SECTION ONE DOUBLE PRIME * RECORD 9F17 * 04560 2 00001 1 04555 TIX FRETC,1,1 *IS FRET EXHAUSTED, NO CONTINUE. F1E06200 04561 0760 00 0 00141 SLN 1 YES, SET END OF TABLE FLAG. F1E06210 04562 -0534 00 4 03744 FRETD LXD STPLOC,4 LOAD TSTOPS (ALPHA) TABLE WORD COUNT. F1E06220 04563 -3 00000 4 04601 TXL FINIS,4,0 *NO ALPHA TABLE, NO MORE WORK TO DO. F1E06230 04564 -0500 00 4 00000 FRETE CAL **,4 SOME TABLE, GET AN ENTRY. F1E06240 04565 -0320 00 0 04652 ANA ADMSK EXTRACT THE IFN (ALPHA). F1E06250 04566 0402 00 0 04654 SUB ALPHA IS IT THE SAME AS THE ALPHA OF THIS F1E06260 BINARY CARD NO. 9F170020 04567 -0100 00 0 04576 TNZ FRETF *FREQUENCY STATEMENT. NO CONTINUE. F1E06270 04570 0522 00 0 04564 XEC FRETE YES, RETRIEVE ENTRY. F1E06280 04571 0622 00 0 04572 STD *+1 PICK UP BRANCH COUNT FOR THIS TIFGO. F1E06290 04572 -3 00000 2 04577 TXL FRETG,2,** DOES THE FRET ENTRY SPECIFY TOO MANY F1E06300 04573 0074 00 4 04627 TSX NOBETA,4 BRANCHES. YES, GO TO DIAGNOSTIC. F1E06310 04574 +000000001172 OCT 1172 ERROR FLAG. F1E06320 04575 0020 00 0 04577 TRA FRETG *CONTINUE BELOW. F1E06330 F1E06340 04576 2 00001 4 04564 FRETF TIX FRETE,4,1 *IS TSTOPS EXHAUSTED, NO CONTINUE. F1E06350 F1E06360 04577 -0760 00 0 00141 FRETG SLT 1 IS FRET EXHAUSTED. F1E06370 04600 0020 00 0 04551 TRA FRETB *NO, GET NEXT FREQUENCY ENTRY. F1E06380 F1E06390 *************************************************************F1E06400 F1E06410 04601 -0534 00 4 03751 FINIS LXD GOOFCT,4 LOAD ERROR COUNT. F1E06420 04602 3 00000 4 04605 TXH *+3,4,0 *ANY ERRORS TODAY, YES. F1E06430 F1E06440 04603 0074 00 4 73600 TSX (LOAD),4 NO, GET SECTION 2. F1E06450 04604 0 00000 0 00000 PZE F1E06460 F1E06470 04605 -0634 00 4 03754 SXD SOURCE+1,4 SAVE ERROR COUNT FOR GENERAL DIAGNOSTIC. F1E06480 04606 0500 00 0 03754 CLA SOURCE+1 GET ORIGIN OF ERROR LIST. F1E06490 04607 0400 00 0 04651 ADD L(A1) SET FOR TIX LOOP TO MOVE TEMPORARY LIST. F1E06500 04610 0621 00 0 04612 STA *+2 F1E06510 04611 -0500 00 4 60634 CAL ELSEBF+1,4 MOVE ERROR LIST. F1E06520 04612 0602 00 4 00000 SLW **,4 F1E06530 04613 2 00001 4 04611 TIX *-2,4,1 F1E06540 04614 0074 00 4 03753 TSX SOURCE,4 GET GENERAL DIAGNOSTIC. F1E06550 F1E06560 *************************************************************F1E06570 F1E06580 ERROR SUBROUTINE. F1E06590 F1E06600 BINARY CARD NO. 9F170021 04615 0634 00 2 04625 ERROR SXA ERR01,2 SAVE INDEX. F1E06610 04616 -0534 00 2 03751 LXD GOOFCT,2 LOAD ERROR COUNT. F1E06620 04617 -0500 00 4 00001 CAL 1,4 GET ERROR FLAG. F1E06630 04620 0767 00 0 00022 ALS 18 SHIFT TO DECREMENT FIELD. F1E06640 04621 0602 00 2 60633 SLW ELSEBF,2 STORE IN ERROR LIST. F1E06650 04622 -0600 00 2 60632 STQ ELSEBF-1,2 STORE PERTINENT INFORMATION. F1E06660 04623 1 00002 2 04624 TXI *+1,2,2 UPDATE ERROR COUNT. F1E06670 04624 -0634 00 2 03751 SXD GOOFCT,2 SAVE ERROR COUNT. F1E06680 04625 0774 00 2 00000 ERR01 AXT **,2 RESTORE INDEX F1E06690 04626 0020 00 4 00002 TRA 2,4 *RETURN TO CALLER. F1E06700 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 240 * SECTION ONE DOUBLE PRIME * RECORD 9F17 * F1E06710 . . . . . . . . . . . . . . . . . . . . . . . . . . . . .F1E06720 F1E06730 NOBETA SUBROUTINE. F1E06740 F1E06750 04627 0634 00 2 04640 NOBETA SXA NBET1,2 SAVE INDEX. F1E06760 04630 -0534 00 2 03751 LXD GOOFCT,2 LOAD ERROR COUNT. F1E06770 04631 -0500 00 4 00001 CAL 1,4 GET ERROR FLAG. F1E06780 04632 0767 00 0 00022 ALS 18 SHIFT TO DECREMENT FIELD. F1E06790 04633 0602 00 2 60633 SLW ELSEBF,2 STORE IN ERROR LIST. F1E06800 04634 0500 00 0 04654 CLA ALPHA GET ALPHA (IFN) OF THIS STATEMENT. F1E06810 04635 0621 00 2 60633 STA ELSEBF,2 SAVE WITH ERROR FLAG. F1E06820 04636 1 00001 2 04637 TXI *+1,2,1 UPDATE ERROR COUNT. F1E06830 04637 -0634 00 2 03751 SXD GOOFCT,2 SAVE ERROR COUNT. F1E06840 04640 0774 00 2 00000 NBET1 AXT **,2 RESTORE INDEX. F1E06850 04641 0020 00 4 00002 TRA 2,4 *RETURN TO CALLER. F1E06860 F1E06870 *************************************************************F1E06880 F1E06890 F1E07080 F1E07090 *************************************************************F1E07100 F1E07110 *** CONSTANTS AND ERASABLE *** F1E07120 F1E07130 04642 -0 00001 0 00006 BKSPX MZE 6,,1 COMMAND TO BACKSPACE TO FORVAL. F1E07131 BINARY CARD NO. 9F170022 04643 264651652143 FORVL BCI 1,FORVAL FORVAL LABEL. F1E07132 04644 0 00000 0 01553 TRADL PZE TRADMX CONSTANT (MAXIMUM SIZE OF TRAD TABLE). F1E07140 04645 0 00000 0 06635 OBETA PZE BETA ORIGIN OF BETA TABLE. F1E07150 04646 +001360000000 NXFLG OCT 1360000000 NOT EXECUTABLE FLAG. F1E07160 04647 0 00001 0 00000 L(D1) PZE ,,1 CONSTANT. F1E07170 04650 0 00002 0 00000 L(D2) PZE ,,2 CONSTANT. F1E07180 04651 0 00000 0 00001 L(A1) PZE 1 CONSTANT. F1E07190 04652 0 00000 0 77777 ADMSK PZE -1 ADDRESS MASK. F1E07200 04653 -3 77777 7 77777 ALL1S SVN -1,7,-1 ERROR FLAG FOR EQUIT. F1E07210 F1E07220 04654 0 00000 0 00000 ALPHA PZE **,,** IFN,,SOMETHING F1E07230 04655 0 00000 0 00000 ERASA PZE **,,0 ADDRESS ERASABLE. F1E07240 04656 0 00000 0 00000 ERASE PZE ** WHOLE WORD ERASABLE. F1E07250 F1E07260 *************************************************************F1E07270 F1E07280 04657 -0320 00 0 04652 PATC1 ANA ADMSK MASK ADDRESS. $F1E07281 04660 -0100 00 0 04160 TNZ TIF1C *DOES BETA EXIST, YES. $F1E07282 04661 0020 00 0 04155 TRA TRA1+1 RETURN. $F1E07283 04662 -0320 00 0 04652 PATC2 ANA ADMSK MASK ADDRESS. $F1E07284 04663 -0100 00 0 04210 TNZ TIF2C *DOES BETA EXIST, YES. $F1E07285 04664 0020 00 0 04205 TRA TRA2+1 RETURN. $F1E07286 04665 BSS 1000 PATCH SPACE FOR I DOUBLE PRIME. F1E07290 F1E07300 *************************************************************F1E07310 F1E07320 06635 BETA SYN * ORIGIN FOR BETA TABLE F1E07330 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 241 * SECTION ONE DOUBLE PRIME * RECORD 9F17 * 77777 END -1 F1E07351 BINARY CARD NO. TRA77777 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 1 POST PROCESSOR ASSEMBLY DATA 73667 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM REFERENCES TO DEFINED SYMBOLS 1 A 0,13437,13440,13441,13442,13443,13453,13461,13462,13463,13464,13471,13472,13476,13500,13501,13502 13503,13504,13506,13507,13510,13512,13513,13526,13531,13533,13536,13537,13542,13543,13547,13551,13553 13560,13561,13563,13573,13574,13577,13601,13603,13615,13620,13625,13636,13640,13643,13645,13646,13650 13652,13654,13656,13657,13666,13671,13674,13677,13701,13704,13705,13715,13716,13724,13725,13727,13741 13750,13756,13767,13771,13773,13775,13777,14001,14004,14007,14020,14022,14026,14032,14034,14036,14040 14043,14044,14045,14046,14047,14050,14051,14053,14055,14057,14060,14062,14074,14077,14100,14104,14105 14112,14113,14121,14127,14130,14131,14132,14137,14140,14156,14160,14161,14162,14167,14170,14175,14210 14221,14233,14242,14245,14262,14263,14265,14270,14306,14307,14342,14344,14347,14360,14400,14407,14446 14447,14452,14455,14460,14471,14502,14512,14527,14532,14533,14535,14537,14542,14544,14545,14550,14551 14556,14557,14561,14565,14615,14620,14621,14623,14626,14647,14661,14733,14740,14741,15007,15010,15011 15012,15013,15024,15035,15056,15057,15060,15061,15070,15375,15403,15413,15421,15443,15444,15445,15500 15522,15526,15530,15531,15540,15542,15543,15561,15562,15564,15565,15567,15605,15606,15610,15613,15640 15651,15660,15663,15665,15671,15702,15707,15712,15725,15730,16137,16150,16175,16206,16220,16226,16245 16261,16271,16272,16305,16312,16321,20672,20676,20704 2 B 0,13445,13446,13447,13454,13455,13457,13460,13465,13466,13511,13516,13521,13524,13525,13544,13545 13557,13565,13566,13570,13604,13605,13607,13614,13617,13622,13633,13641,13664,13717,13720,13746,13757 13762,13766,13770,13772,13774,13776,14000,14002,14006,14012,14065,14070,14072,14073,14075,14076,14110 14111,14116,14117,14120,14122,14123,14125,14126,14133,14134,14135,14143,14145,14147,14150,14151,14153 14163,14164,14212,14215,14216,14226,14246,14247,14250,14252,14253,14351,14354,14355,14365,14370,14374 14375,14405,14450,14451,14453,14461,14462,14463,14531,14536,14570,14601,14617,14624,14652,14657,14662 14710,14711,14734,14735,14736,14747,15014,15015,15016,15017,15020,15021,15047,15054,15055,15063,15073 15074,15075,15076,15100,15323,15353,15405,15407,15410,15411,15412,15423,15427,15430,15431,15432,15434 15477,15517,15521,15527,15536,15547,15556,15557,15560,15563,15573,15602,15603,15604,15607,15612,15637 15642,15652,15706,15744,15774,16143,16144,16145,16162,16170,16171,16172,16173,16174,16210,16222,16223 16224,16230,16243,16314,16315,16316,16317,16320,16421,16422,16424,16534 4 C 0,13530,13532,13534,13535,13540,13541,13546,13550,13552,13554,13555,13556,13571,13572,13575,13576 13600,13610,13611,13616,13642,13653,13655,13660,13661,13662,13667,13670,13672,13676,13700,13702,13703 13706,13707,13710,13721,13722,13723,13735,13736,13737,13740,13743,13744,13745,13760,13761,14003,14010 14011,14041,14042,14067,14071,14144,14152,14154,14165,14214,14217,14223,14224,14353,14356,14362,14363 14372,14373,14376,14402,14403,14456,14464,14472,14505,14510,14514,14517,14521,14526,14543,14546,14547 14552,14554,14555,14560,14571,14574,14602,14605,14610,14630,14634,14644,14707,14713,14715,14723,14726 14727,14730,14731,14732,14746,14750,15064,15065,15066,15077,15101,15313,15324,15327,15354,15400,15416 15435,15550,15574,15634,15757,15760,15773,16001,16004,16007,16012,16015,16026,16031,16034,16037,16040 16165,16167,16205,16211,16212,16221,16225,16231,16234,16235,16237,16240,16251,16301,16432,16530,20702 20752 5557 E 4160, 4164, 4170, 4174, 4220, 5305, 5322, 7266, 6515, 6534, 6535, 6536, 6541, 6544, 6546, 6547, 6550 6555, 6564, 6566, 6656, 6657, 6715, 6730, 6742, 6761, 6762, 6766, 6771, 7013, 7014, 7015, 7016, 7017 7025, 7027, 7032, 7036, 7041, 7045, 7047, 7050, 7051, 7052, 7053, 7055, 7056, 7057, 7061, 7062, 7064 7065, 7066, 7070, 7073, 7074, 7075, 7076, 7103, 7112, 7114, 7117, 7123, 7126, 7132, 7134, 7135, 7136 7137, 7142, 7143, 7145, 7146, 7151, 7152, 7154, 7157, 7160, 7164, 7170, 7173, 7174, 7200, 7405, 7410 7411, 7413, 7721,10164,10413,10645,11017,11023,11061,11145,11155,11311,11322,11325,11400,11432,11464 11536,11620,11636,11647,12103,12106,12272,12717,13416,14033,14035,14037,14052,14054,14056,21002 5604 G 4003, 4011, 4017, 4041, 4047, 4135, 4150, 4154, 6476, 7467, 7476, 7522, 7524, 7545, 6433, 7033, 7034 7102, 7105, 7120, 7121, 7161, 7162,10472,10665,10666,10670,10726,11021,11042,11050,11104,11131,11143 11144,11146,11153,11154,11346,11421,12166,12267,12445,12621,12622,12633,12635,12636,12640,12642,12643 12652,12656,12662,12670,12674,12675,12703,12707,12710,12714,12722,12727,12734,12746,12751,12753,12754 13404,13406,13514,13520,13522,13523,13624,13630,14254,14435,15676,15701,16325,16345,16514,17424,17432 20226,20234,20242,20250,20256,20264,20303,20543,20555,20571,20574,20625,20741 71555 H 12143,12150,12227,12234,12422,12427,12465,12472,12551,12556,13252,13257,13341,13346 22250 I 7244, 7256, 7265, 7311 71556 N 11465,12111,12121,12144,12146,12153,12164,12173,12241,12262,12263,12275,12276,12423,12425,12432,12443 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 2 POST PROCESSOR ASSEMBLY DATA 12452,12563,12577,13233,13237,13253,13255,13262,13310,13353,13374,13375,13422,13423 7201 T 6313 5545 1C 3761, 3767, 4033, 4200, 4204, 4210, 4214, 6133, 7042, 7043, 7045, 7046, 7265, 7267, 7270, 7271, 7310 7315, 7323, 7327, 7333, 7343, 7344, 7345, 7346, 7350, 7351, 7352, 7353, 7355, 7356, 7361, 7376, 7401 7413, 7417, 7427, 7436, 7437, 6352, 6446, 6453, 6454, 6457, 6461, 6467, 6474, 7225, 7231, 7243, 7246 7255, 7260, 7264, 7267, 7315, 7316, 7326, 7336, 7344, 7347, 7363, 7364, 7372, 7373, 7417, 7425, 7461 7466, 7472, 7503, 7507, 7512, 7517, 7523, 7525, 7526, 7537, 7543, 7551, 7576, 7600, 7601, 7604, 7606 7617, 7626, 7643, 7653, 7705, 7715, 7736, 7740, 7742,10344,10347,20756 5552 1G 3775, 4025, 4055, 4063, 4071, 5164, 5176, 5210, 5216, 5224, 5226, 6475, 6562, 6564, 6567, 6576, 6602 6606, 6630, 6674, 6701, 6703, 7264, 7306, 7314, 7322, 7326, 7332, 7371, 7372, 7416, 7426, 7461, 7475 7523, 7600, 7634, 7670, 7672, 7675, 7701, 7702,10074,10113, 7224, 7230, 7242, 7254, 7263, 7325, 7335 7407, 7460, 7464, 7471, 7504, 7515, 7522, 7557, 7567, 7571, 7573, 7616, 7632, 7636, 7641, 7644,10004 11214,11474,11501,12066,21001,21023 5555 1H 5204, 5211, 6501, 7475, 7505, 7531 5553 2G 5223, 5230, 6561, 6566, 7026, 7056, 7061, 7667, 7674, 7223, 7226, 7301, 7307, 7312, 7351, 7357, 7415 7420 22236 2H 7477, 7525, 7535, 7553,21020 5554 3G 6170 A( 16445 3746 BK 11160,11176,11273,11542,16424, 4442 65441 CW 7716, 7720, 7730,15117,15120,15335,15446,15456,15466,15511,15514,15623,15631,15632,15635,15636,15641 15643,15736,15740,15772,16135,16136,16140,16142,16147,16160,16161,16177,16215,16236,16241,16257,16262 16264,16265,16266,16270,16311,16313,16423,16430,16433,16441,16443,16453,16462,16464,16475,16513,16524 16527,16531,16532,16533,16536,16542,16553,16630,17061,17065,17117,17123,17176,17177,17206,17220,17222 17240,17305,17330,17546,17553,17623,17624,17662,17706,17711,20000,20011,20025,20030,20042,20047,20053 20054,20055,20063,20071,20072,20073,20101,20113,20121,20124,20125,20126,20134,20146,20154,20311,20314 20343,20344,20352,20367,20631,20652,20762 6146 D2 6460, 6464,20644 10065 DR 10105 6121 E4 5617, 5633, 5710, 5741, 5753 6166 E( 11007 7701 HF 10111 10013 HI 10021 10024 HO 10032,10035 6167 I( 10500,10732,16440 0 .. 0, 5161, 5330, 5331, 5451, 6571,10130,10224,10253,10301,10311,10313,10324,10343,10460,10521,10554 10600,10615,10641,10662,10712,10715,10747,12416,16163,16322,16571,16611,20050,20273 12306 K1 12243,12247,13355,13361 12307 K2 12246,13360 12310 K3 12252,13364 12311 K4 12264,13376 12312 K5 12300,13425 12756 N1 12375,12402,12466,12470,12475,12507,12570,12572,12604 22253 N2 6540, 6556,10423,10424,10426,10434,10435,10437 61375 OP 6172 O( 6510, 7207,10007,15471,15724,16003,16011,16033,16036,16537,17257,17540,20403,20411,20426,20431,20632 20641 6171 P( 7544, 7547,15370,15552,15576,16427,17053,17102,17105,17133,17155,17175,17217,17267,17573,17606,17734 17737,17767,20060,20066,20076,20104,20110,20116,20131,20137,20143,20151,20160,20163,20166,20171,20175 20200,20203,20206,20212,20215,20220,20223,20373,20377,20437,20442,20445,20450,20460,20463,20471,20476 20501,20507,20532,20535 61377 RA 10404,10410,10450,10466,10514,10531,10535,10731,10741,10745 61376 SA 10165,10377,10412,10463,10503,10514,10531,10535 22255 SL 6427, 6503, 7206, 7753, 7757,10207,10327,10525,10534,10541,10716,10744,10746 6303 TL 6504,10223 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 3 POST PROCESSOR ASSEMBLY DATA 10052 TP 10056,10061 6173 X( 15373,15720,16543,17160,17534,20653 5112 11Z 12205,12527,13214,13324,13474,13663,14061,14141,14664,15211,15230,16622,16646,16746,17020,17055,17113 5115 12Z 7775,10602,12210,12532,13210,13320,14470,14672,14704 6564 1D1 6533,20660 6425 1PL 6423 6556 2D1 6543 10561 BEG 10631,10721 10630 BEX 10615 61400 BIN 10614,10617,10621,10626 4365 BSR 4774 6426 BSS 7660,10210,10330 10050 BST 7233 12303 CER 12256,12266 61410 CHR 10122,10133,10304,10601,10613,10622,10671 12141 CM1 12117,12127,13407 12151 CM2 12130 12163 CM3 12131,12156,12161 10372 CMA 10146 10600 CMB 10561,10566 10017 CSH 7224 10615 CSJ 10121,10132,10141 7664 CVR 10071 10117 CXS 10262,10563 4516 DCF 5232, 6316, 6424, 6433, 6436, 6514, 6307, 6331, 6335, 6340, 6341, 6343, 6400,61542,61563 7065 DIC 7057 12762 DK1 12614,12620 12763 DK2 12617 12764 DK3 12625,12631 12765 DK4 12630,12704,12711 12766 DK5 12740,12750 71553 DOE 12112,12122,12175,12176,12237,12240,12253,12257,12454,12455,12511,12512,12515,12516,12561,12562,12573 12575,12644,12650,13234,13240,13312,13313,13351,13352,13365,13371 10102 DRS 7223 10742 DSW 10070,10074,10734 10443 DVS 10417,10430 12202 EC1 12162 12215 EC3 12207 12220 EC4 12221 EC5 12235 12222 EC6 12212 6520 ED1 6516 6515 ED2 6520 6522 ED3 6521, 6530 6527 ED4 6524 4522 EFN 6423, 6463, 6465, 7171, 7570, 6353, 7211 10054 EFT 7234 71554 EKE 12204,12215,12221,12230,12232,12236,12526,12537,12543,12552,12554,12560,13170,13330,13334,13342,13344 13350 10544 EMK 10144 10554 END 10106 6304 ENT 6441, 6463 22246 EPS 6513, 6525, 6527, 6542, 6554, 6562, 6563,10406 10231 EQS 10203 0 FEQ 5570, 5574, 5611, 5612, 5620, 5621, 5625, 5626, 5637, 5640, 5661, 5673, 5674, 5706, 5721, 5725, 5734 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 4 POST PROCESSOR ASSEMBLY DATA 5752, 5754, 5766, 6120 12247 FN1 12245 12257 FN2 12255 12275 FN3 12260 12241 FN4 12163 12236 FN5 12206,12211,12214,12217,12225 12613 FN6 12607 12620 FN7 12616 12644 FN8 12624 12631 FN9 12627 7570 FOR 7235, 7631 5171 FWA 5233, 5237, 5254, 5257, 7573,11505,11510,13156,13203 6501 GIF 7657,10000,10017,10030,10033,10742 12130 IN2 12120 6701 ISC 6700, 6704, 6706, 6707 6476 JIF 7550, 7664,10111,10211,10225,10331,20755 6432 LIB 10002,10456,10552,10713 10156 LPR 10145 10116 LSC 10336,20671 6506 LXD 10107,10467,10555 6206 M1T 10506 12140 NC1 12136 12155 NC2 12141 12172 NC3 12151 12200 NC4 12152 12133 NC5 12132,12154,12177 12127 NC7 12157 12177 NC8 12172 12175 NC9 12201 10576 NLS 10564 5354 NOP 10067,10556,10674,10702 10301 NSJ 10244,10303,10315 10124 NXC 10143,10372 10120 NXS 10227,10316,10366,10543,20663 6305 NZE 6443, 6466 0 OEQ 5560, 5563, 5567, 5573, 5652, 5655, 5660, 5664, 5707, 5714, 5720, 5724, 5733, 5740, 6121 6302 RAT 10475,10500 10355 RPR 10147,10173 10111 RSC 10354 10057 RWT 7232 6752 SBC 6702 6712 SBM 6705 10614 SBN 10627 6713 SBP 6710 6750 SBR 6703 6643 SBX 6711 10033 SCH 7231 10062 SDR 7227 5161 SET 4121, 7602,10635,10642 10275 SPC 10266 10030 SPH 7230 10036 STB 7225 10022 STH 7226 7205 SXD 10001,10455,10551,10711 61401 SYM 10123,10142,10156,10163,10245,10252,10255,10312,10376,10610,10644,10656,10667,10733,10745 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 5 POST PROCESSOR ASSEMBLY DATA 12374 TAB 12261,12277,13373,13424 5104 TEN 6650, 6764, 7000, 7431, 7771,11076,11107,12140,12216,12224,12417,12462,12540,12546,13247,13331,13336 5367 TRA 10065,10576,10677 10043 TSB 7221 10011 TSH 7222 10601 TYP 10160,10277,10373 20564 XR1 20537 20565 XR2 20540 20566 XR4 20541 5154 1BAR 4432, 6573, 6447, 6502, 7575,11005,20014,61634,61662,61663 20655 1D1P 6565 6141 2E17 7040, 7125, 7166,10307 5152 2E18 5434, 7506, 7521, 6477, 6523, 6531, 7176, 7731,10463,15420,15441,15554,15600,16011,17163,17273,17552 20026,20046,20411 6145 2E19 20306,20357,20362 6151 2E20 13504 AAAA 64064,37770 71546 ABAR 11003,11233,11252,11254,11261,11263,11570,11735,12063 5156 ALL1 4330, 5075, 5076, 5077, 5100, 6402, 6460, 6401,11524,15114,15115,16146,16176,16252,16253,61552 13002 BBBB 64064,37770 71545 BETA 13445,13455,13457,13460,13466,13511,13516,13521,13545,13557,13570,13607,13662,13720,14065,14070,14076 14111,14116,14123,14125,14126,14135,14164,14223,14362,14402,14453,14461,14657,14711,14736,14747,73577 6654 BFSZ 0, 4050, 6227, 7621, 7735, 7751, 7755,16015 5073 BKSP 6310,61675 71545 CBAR 11002,11246,11257,11731,12047 5101 CCCC 64064,37770 5110 CLOS 5504, 5525, 7317, 7451,10171,13303,61616 10373 CMA1 10365,10544 10400 CMA2 10175 10533 CMAO 10523 61673 COMM 61652,61671 16530 COMP 15637,15642,15774,16143,16162,16174,16314,16526,16632,17664 6156 D4A4 6510, 7207,10007,15471,15724,16537,17257,17540,20632 17371 DABS 17331 10145 DBLR 10131 12743 DCER 12647,12706,12724,12737,63425 12420 DCM1 12400,12405,12520 12430 DCM2 12406 12442 DCM3 12407,12435,12440,12503,12505,12521 12524 DEC1 12441 6150 DEC3 12542 DEC4 6153 DEC5 20641 12544 DEC6 12534 12650 DFN2 12646,20735 12722 DFN3 20734 12563 DFN4 12442 12560 DFN5 12530,12533,12536,12541,12547 4507 DGX1 6272,61531 4504 DIAG 4240, 4343, 5174, 5202, 5353, 5425, 5500, 5506, 5514, 5520, 5524, 5530, 5534, 5540, 5542, 6206, 6404 6527, 6530, 6531, 6532, 6533, 6657, 6711, 6712, 7302, 7321, 7452, 7543, 7567, 7571, 7632,10156,10160 6405, 6635, 6645, 6652, 6677, 6701, 6720, 7003, 7006, 7044, 7131, 7234, 7305, 7445, 7565, 7612, 7671 10136,10155,10162,10230,10233,10263,10274,10357,10375,10547,10575,10624,10634,10655,10724,10736,11044 11121,11166,11200,11210,11221,11227,11266,11303,11336,11372,11500,11534,11573,11575,11600,12303,12743 13302,13430,14432,15052,16502,17171,17745,20010,20703,21013,21026 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 6 POST PROCESSOR ASSEMBLY DATA 12406 DIN2 12401 61760 DLBL 61402,61416,61534,61540,61570,61713,61721,61737 12417 DNC1 12415 12434 DNC2 12420 12451 DNC3 12430 12461 DNC4 12431,12451 12412 DNC5 12411,12433,12456 12405 DNC7 12436 12456 DNC8 12454 DNC9 20325 DPCW 7732,17117,17123,17201,17224,17551,17711,20012,20017,20023,20027,20045,20063,20101,20121,20134,20154 20314,20352 16303 DPMD 16276,16300 12757 DPWC 12376,12403,12477,12500,12565 10703 DRUM 10066 13054 DTAB 12653,12660,12663,12664,12723,12730,12733 6251 DUMP 6230 10253 EQS1 10240,10246 10201 EQSP 10150 12120 EXIT 12116,12126,12273,12304 10555 FINI 10053,10550 7753 FLBL 6246, 6257, 6261, 7737, 7741, 7754 6202 FLFL 15664 6201 FLFX 15675 12660 FN14 12657 12666 FN15 12665 12672 FN16 12671 12674 FN44 12702 12677 FN53 12661,12667,12673 12700 FN54 12654 12702 FN55 12701 12703 FN60 12676 12577 FN90 12566,12576 12715 FN99 12645,12752,12755 65435 FNSW 15107,16065,20757 5072 FRSP 4510, 6407 7732 FRWR 7606, 7640, 7655, 7712, 7721 7752 FRXT 7605, 7637, 7654, 7711, 7720, 7746, 7750 7757 FTBL 7625 6200 FXFX 15673,17423 22247 GTAG 6545, 6552, 6557, 6560, 6570,10403,10542,12101,20657,20670 11462 HOLL 11064 13430 ICER 13370,13400,63452 13250 ICM1 13164,13220,13235,13241,13412 13260 ICM2 13242 13276 ICM3 13165,13264,13337,13410 13303 ICM5 13276 13302 ICM6 4233,13274,13300,13304,13306,13325,13327,13332,17466,63442 13317 IEC1 13275 13330 IEC3 13326 13333 IEC4 13334 IEC5 13347 13335 IEC6 13322 13361 IFN1 13357 13371 IFN2 13367 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 7 POST PROCESSOR ASSEMBLY DATA 13422 IFN3 13372 13353 IFN4 13350 IFN5 13301,13305 13434 IFWA 13157,13202 13242 IIN2 13236 13266 INC2 13250 13307 INC3 13260 13315 INC4 13261 13246 INC5 13245,13263,13314 13241 INC7 13270 13314 INC8 13307 13312 INC9 13316 5606 LEFT 6371, 7440,11401,15746,16066,16340,16353,16355,16357,17636,61573 10110 LIST 10101,10557,10577 10170 LPR1 20663 LSCP 10115 5120 L(0) 5163, 5304, 5321, 5457, 7027, 6430, 6463, 6466, 6507, 6526, 7302, 7310, 7373, 7420, 7526, 7546, 7601 7627, 7631, 7632, 7644, 7652, 7653, 7706, 7737, 7745, 7750, 7754, 7756, 7757,10003,10006,10077,10100 10457,10462,10465,10466,10477,10502,10505,10510,10511,10513,10526,10530,10537,10540,10553,10661,10662 10714,11022,11163,11535,11726,11752,11762,12032,13436,13444,13515,13542,13562,13673,13715,13740,14064 14114,14115,14144,14246,14732,15011,15243,15244,15253,15254,15314,15315,15325,15326,15330,15331,15355 15356,15401,15402,15417,15436,15452,15455,15460,15465,15470,15513,15551,15575,15700,15717,15723,16002 16003,16005,16006,16010,16013,16014,16016,16017,16027,16030,16032,16033,16035,16036,16042,16043,16232 16310,16546,16547,16552,16655,16656,16710,16711,16716,16717,16721,16722,16734,16735,17052,17053,17060 17064,17101,17102,17104,17116,17122,17132,17244,17250,17256,17271,17431,17533,17537,17613,17705,17710 17733,17734,17736,17766,20020,20057,20060,20062,20065,20075,20076,20100,20103,20107,20110,20112,20115 20120,20130,20133,20136,20142,20145,20150,20153,20157,20160,20162,20163,20165,20170,20174,20175,20177 20202,20205,20211,20214,20215,20217,20222,20302,20303,20305,20306,20310,20313,20346,20351,20354,20366 20372,20373,20376,20402,20403,20405,20406,20410,20413,20414,20416,20417,20422,20423,20425,20426,20430 20431,20436,20437,20441,20442,20444,20447,20457,20460,20462,20465,20466,20470,20471,20475,20500,20503 20504,20506,20531,20532,20534,20542,20640,20643,20644,21024 5121 L(1) 4273, 4435, 5374, 6170, 6172, 7412, 6313, 6517, 6727, 6753, 6760, 7341, 7404, 7436, 7743,10237,10317 10443,11272,11703,11741,11745,12021,12025,12072,12174,12200,12453,12476,12510,12514,12574,12611,13311 13315,14516,14562,14604,15163,16205,16420,20033,61447,61501 5122 L(2) 7542, 7562, 7020, 7116, 7343,14525,14643 5123 L(3) 5376, 7031, 7502,11377,14507,14573 5124 L(4) 6131, 6336, 7111, 7536,10004,10241,10460,10554,10715,14267,14343,15453,15456,15461,15466,15514,15701 15720,16265,16543,16553,17245,17251,17432,17534,20036,20653,21025 5125 L(5) 7660, 7554,10221,11355,11430,14260,14327,14414,16277 5126 L(6) 4415, 5343, 7062, 6577, 6606, 6660, 7024, 7605,11024,11470,11511 5127 L(7) 7564 5130 L(8) 10503,10511,11036,14207,14227,14305,14346,14366,14406 5131 L(9) 5220, 5352, 5535, 5541, 6611, 6627, 7275, 7320,10623,11030,11052,11205,13172,13223 5133 L(A) 61622 5134 L(B) 4325, 5631, 7700,13713,14641,15132 5135 L(C) 6365,61620 5136 L(D) 7336, 7710,11353,11426,12114,12124,14256,14325,14412,15124,16275,17762 12313 L(E) 12160,12437,13273 5137 L(F) 6467,11115,11127,61604 5140 L(H) 5466, 7723,12135,12414,14202,14300,14314,15042,15761,16330,17651,20335,20764 5141 L(I) 4231, 7341, 7713,11073,15127,17011,17464,17512,20710,61602 5142 L(L) 61624,61626 5143 L(O) 5467, 7614, 7724,14203,14301,14315,15043,15762,16331,17652,20336,20765 6127 L(S) 6130 L(T) 7610 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 8 POST PROCESSOR ASSEMBLY DATA 6131 L(X) 7427,14235,14421,16045,17167,17722 6132 L(Z) 7767 6241 MOVF 22252 NBAR 11001,11006,11240,11245,11250,11567,11757,11767,12037,12051,13437 12502 NC2D 12463 12506 NC3D 12473 12514 NC4D 12474 12457 NC5D 12501,12506,12517,12523 12520 NC7D 12504 12476 NC9D 12513 5106 OPEN 5507, 5521, 7420, 7330, 7446,11066,11075,11123,11626,11673,11712,11721,14322,16336,61610 16141 PATF 20604 PCH1 20662 20607 PCH2 15451,16041,17243 20613 PCH4 16060 20616 PCH5 16540,16544 20620 PCH7 17650 20625 PCH8 20274 20630 PCH9 17427 4514 PS2L 4475 5074 REWD 6144, 6216, 6417,61512,61533,61753 4475 RP2I 6306, 6312 6732 SBC1 6756 6776 SBC2 6757 7004 SBC3 6772 6774 SBC4 6605, 6750, 6751, 7004 6756 SBC6 6602, 6643, 6646, 6725, 6732, 6733 6772 SBC7 6747 6757 SBC8 6603, 6716, 6721, 6745, 6776, 6777 6767 SBC9 7002 6721 SBP1 6717 6733 SBP2 6726 6734 SBP4 6731, 6765 6705 SBS2 6600, 6655, 6714, 6724, 6755, 6773 6646 SBX1 6644 6653 SBX2 6651 10106 SCAN 10016,10027,10042,10047 10277 SPC1 10265 10311 SPC2 10235 10313 SPC3 10242,10302 10316 SPC4 10275,10276,10321,10322,20665,20667 10324 SPC5 10236,10361,10371 5116 STAR 6370,11313,11652,13731,14523,14717,15225,16643,17015,17041 62001 STOP 61750,61754 6707 SXR1 6574, 7201 6710 SXR2 6573, 7202 6711 SXR4 6575, 7007, 7203 13155 TAB1 12571,12600 4 TAGA 0, 3752, 3760, 3766, 3774, 4002, 4010, 4016, 4024, 4032, 4040, 4046, 4054, 4062, 4070, 4076, 4104 4112, 4120, 4134 2 TAGB 0, 3736, 3737, 3740, 3741, 3742, 3753, 3761, 3767, 3775, 4003, 4011, 4017, 4025, 4033, 4041, 4047 4055, 4063, 4071, 4077, 4105, 4113, 4121, 4135 4 TAGC 0, 3735, 3743, 3744, 3755, 3763, 3771, 3777, 4005, 4013, 4021, 4027, 4035, 4043, 4051, 4057, 4065 4073, 4101, 4107, 4115, 4123, 4137 10707 TAPE 10052 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 9 POST PROCESSOR ASSEMBLY DATA 7635 TBLK 7652, 7700, 7707, 7727,10075,10077,10103,10106 5617 TEMP 4412, 4467, 5402, 5404, 5412, 5415, 5417, 5422, 5424, 5426, 5433, 5436, 5440, 5442, 5454, 6133, 6134 6230 TEST 6225, 6266, 6267 10715 TYPE 10707 10720 UNIT 10011,10022,10036,10043,10050,10054,10057,10062,10072,10102 62016 XCOM 61525,61653,61673,61754 6105 (1)L 5107 6106 (2)L 4740, 5005, 5017, 5433 4360 (6)L 4265, 4377 4245 1PER1 4440 4246 1PER2 4725 4247 1PER3 5135 4250 1PER4 5167, 5204 4251 1PER5 5421 4252 1PER6 5457 4253 1PER7 4304 4255 1PER8 5366 4257 1PER9 4501 1TOCS 4500, 4506, 4512, 6424 6147 2AND2 20560 22237 3LBAR 11000,11232,11244,11566,12046,12056,12061,13450,14131,14706,15007,15135,15150,15444,15561,15605,15725 16131,16245,16557,16572,17236,17326,17541,20513,20730 20746 ACFTG 7106,20661,20747 16477 ACXR2 16371,16431 6110 ADMSK 4525, 4542, 5074, 5271, 5334, 5345, 5432, 6054 10100 AEFIO 10064 72036 ALPHA 11234,11255,11725,11733,11751,11755,11761,11765,11771,11776,12031,12035,12041 10773 ARITH 6716, 7473, 7777,20606 10576 BEGTR 10562 7621 BFCNT 6226, 6236, 7601, 7662 10155 BGPCH 6720 10153 BINER 10136,10137 6133 BIT29 14511 5145 BLANK 5263, 5347, 6416, 6450,14430,61440,61460,61521 61755 BSPCF 61405 4404 BTABL 4335, 4404 7222 C0100 7201 7254 C0113 7251 7273 C0150 7240, 7247, 7261 7304 C0151 7276 7311 C0152 7303 7276 C015X 7273, 7313 5162 C0160 6473, 7257, 7415, 7456, 7473, 7515, 7227, 7306, 7333, 7402, 7623, 7762,11211 5166 C0161 5200 5167 C0162 5172 5172 C0163 5170 5175 C0164 5173 5201 C0165 5171 5202 C0166 5203 5203 C0167 5201 5170 C016X 5162, 5212 5215 C0180 7300, 7323, 7456 5216 C0181 5231 5250 C0190 5177, 5214, 5217, 6472, 7044, 7256, 7363, 7404, 7410, 7414, 7430, 7442, 7455, 7510, 7514, 7536, 7541 7550, 7553, 7557, 7575, 6367, 6610, 6621, 6662, 7274, 7317, 7337, 7367, 7375, 7377, 7426, 7442, 7560 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 10 POST PROCESSOR ASSEMBLY DATA 7613, 7620, 7655, 7662, 7761, 7766,10124,10170,11027,11051,11106,11122,11201,11374,12133,12202,12222 12412,12457,12524,12544,13171,13222,13246,13317,13335,13417,20776,61572,61613 5253 C0191 5265 5257 C0192 5256 5261 C0193 5253 5270 C0194 5250 5266 C0195 5264 7315 C0200 7202 7421 C0202 7327, 7374, 7527, 7633 7330 C0205 7321 7333 C0210 7331 7343 C0212 7332 7344 C0213 7342 7350 C0215 7361 7356 C0216 7355 7375 C0220 7366 7424 C0300 7210 7442 C0302 7450, 7452, 7453 7451 C0303 7447 5236 C0390 7430, 7432, 7435, 7455, 7770, 7772, 7774, 7776,61603,61605,61611,61621,61623,61625,61627 5242 C0392 5243 5244 C0393 5241 7474 C0400 7203 7477 C0401 21030 7507 C0402 7541 7530 C0500 7204 21020 C0501 7533 7534 C0600 7205 7537 C0601 7555 7542 C0700 7206, 7207 7556 C0900 7213 7557 C0901 7650 7560 C0902 7572 7573 C0903 7563 7563 C090X 7556 7603 C1000 7211 7634 C1100 7214 7256 C1200 7215, 7262 7363 C1201 7363 7326 C1210 7305 7332 C1220 7313 7275 C1280 7273 7300 C1281 7276 7303 C1282 7301 7302 C1299 7274, 7277 7646 C1300 7212 7367 C1400 7217, 7406 7375 C1401 7403 7410 C1500 7216, 7444 7412 C1501 7435 7424 C1502 7422 7431 C1503 7421, 7423 7436 C1504 7432 7655 C1600 7220 7450 C3000 7236 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 11 POST PROCESSOR ASSEMBLY DATA 7471 C3001 7512 7510 C3002 7470 7460 C3003 7447 7503 C3004 7500 7514 C3100 7237, 7534 7532 C3101 7527 7533 C3102 7662 C3200 7240 7741 C3201 7673, 7677, 7707, 7734 7735 C3202 7714, 7727 7715 C3203 7712 7710 C3204 7701, 7703 7761 C3300 7241,21016 10000 C3301 21015 21000 C3302 7764 21017 C3303 21000,21014 11470 C3351 11514 11472 C3352 11504 11501 C3353 11477 11505 C3354 11472 11510 C3355 11507 11513 C3356 11503 11514 C3357 12065,12074 11515 C3358 11502 11521 C3359 11522 11523 C3360 11517 12065 C3390 11513,11523,11525 7536 C3400 7242 7541 C3401 7552 7555 C3402 7540 7446 C3500 7243 20454 CAFLG 20452,20455,20472 7026 CC000 6715 7030 CC001 7053 7036 CC002 7047 7042 CC004 7035 7050 CC005 7052 7054 CC500 7031, 7036, 7050 7061 CC501 7060 7063 CC502 7055 10130 CEXIT 10117 7166 CF000 6315 20736 CFTAG 7107,16516 6624 CHRH0 6537 6630 CHRH1 6625 6635 CHRH2 6673 6641 CHRH3 6635 6672 CHRH4 6641, 6643, 6650, 6651, 6655, 6660, 6661, 6662, 6663, 6664, 6665, 6666, 6667, 6670, 6671 6700 CHRX0 6536 10117 CHSV1 6521 10124 CHSV2 10117,10120,10121,10122 10125 CHSV3 10112,10123,10127,10140,10147 4251 CIT00 5623, 5627, 5633, 6422, 6426, 6436, 6462, 6465, 6471, 6506, 7205, 7371, 7416, 7524, 7542, 7545, 7577 7625, 7630, 7642, 7651, 7704, 7735, 7741, 7744, 7747, 7752, 7755,10076,10461,10464,10476,10501,10504 10507,10512,10524,10527,10533,10536,10660,10743,15113,15242,15252,15313,15324,15327,15354,15400,15416 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 12 POST PROCESSOR ASSEMBLY DATA 15435,15454,15464,15512,15550,15574,15677,16001,16004,16007,16012,16015,16026,16031,16034,16231,16251 16263,16530,16535,16541,16545,16551,16654,16707,16715,16720,16733,17051,17057,17063,17100,17103,17115 17121,17131,17430,17612,17622,17704,17707,17732,17735,17765,20052,20056,20061,20064,20070,20074,20077 20102,20106,20111,20114,20117,20123,20127,20132,20135,20141,20144,20147,20152,20156,20161,20164,20167 20173,20176,20201,20204,20210,20213,20216,20221,20301,20304,20307,20312,20342,20345,20350,20353,20365 20371,20375,20401,20404,20407,20412,20415,20421,20424,20427,20435,20440,20443,20446,20456,20461,20464 20467,20474,20477,20502,20505,20530,20533,20612,20630,20637,20642,20651, 6437 4352 CIT01 4262, 4266, 4270 4353 CIT02 4271 4257 CITA0 4307, 6421 4305 CITB0 4260, 4263 4311 CITC0 4257 4312 CITC1 4323 4313 CITD0 4261, 4300 4320 CITE0 4302 4327 CITF0 4304, 4345 4335 CITG0 4342 4344 CITH0 4341 4346 CITJ0 4310, 4326, 4332 4347 CITJ1 4253 4350 CITJ2 4254 6073 CLSIO 4644, 4646, 4653, 6011 7643 CLSPR 10067 10543 CMASW 10364,10367,20664 20717 CMPCH 11236,20715,20726,20727 6610 COMA0 6543 6612 COMA1 6615 5107 COMMA 5473, 5501, 5531,13277 5621 COMP1 4255 20401 CPFIX 17673 20601 CPPCH 15110 5117 CTEST 5166, 5167, 6622, 6623, 6663, 6664,10125,10126,11077,11110 7423 CTRAD 7345, 7354, 7356, 7362 7025 C(MQ) 6556, 6571, 6634, 6676, 7664, 7677 4477 D12CS 20634 DBCHK 16061,20610,20616,20622 10151 DBLER 10130,10134,10145 20650 DBRCP 20605,20626,20634 20645 DBRTN 20636 20647 DBSAC 20621,20623 6111 DCMSK 5131 6160 DEC17 15356,16735 6161 DEC18 15331,16017,16030,16722,20417,20423 6164 DEC35 15315,16711 12401 DEXIT 12377,12404,12720,12744 17521 DFLFL 17470 17520 DFLFX 17516 61754 DIAGA 61401,61754 4513 DIAGL 4477 6552 DIGT0 6546 6556 DIGT1 6553 6070 DMIO1 4764 6071 DMIO2 6072 DMIO3 4761 4655 DMSZA 4573, 4643 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 13 POST PROCESSOR ASSEMBLY DATA 4657 DMSZB 4656 4662 DMSZC 4673 4674 DMSZD 4660 4677 DMSZE 4711 4712 DMSZF 4675 4716 DMSZG 4731 4720 DMSZH 4724 4724 DMSZI 4714, 4721, 4723, 4732 4726 DMSZJ 4722 4733 DMSZK 4713 4741 DMSZL 4753 4742 DMSZM 4737 4744 DMSZN 4651, 4747 4750 DMSZP 4743 4753 DMSZQ 4746 4754 DMSZR 4734 12473 DNC11 12410,12522 62002 DOLEV 10114,10201,10205,10212,10215,10220,10226,10231,10234,10325,10332,10335,10355,10360,10400,10402,10545 11352 DP002 11343 11425 DP003 11416 14411 DP004 14251 14324 DP006 7335 DPDIM 7325, 7331 12537 DPEC3 12531 12543 DPEC5 12557 10471 DRMIO 10445 17370 DSIGN 17334 7756 EFLAG 7607, 7646, 7650 3734 EIFNO 3753, 4077, 4105, 7166, 7170, 7173, 7450, 7465, 7603,10061, 6346, 6350, 6355, 6440, 6472, 6476, 6500 6501, 7100, 7214, 7217, 7220, 7510,10323,10664,11172,11344,11417,15116,16234,16511, 6044, 6047, 6070 6437 6102 EIFSG 5120 61746 EJECT 61453 6706 END00 6535, 7657 6713 END01 6707 5001 ENDIA 5006 ENDIB 5004, 5007 5016 ENDIC 5015, 5022, 5023 5023 ENDID 5020 6074 ENDIO 5026, 5030, 5032 5105 ENDMK 5166, 5236, 5476, 5512, 5515, 6446, 6502, 6560, 7032, 7037, 7051, 7471, 7511, 7666, 6622, 6663, 7443 7454, 7561,10125,11475,11476,61614 10422 ENDP1 10550 ENDSW 10110,10706 22243 EPSM3 7023 EQSFG 6513, 6616, 6714 5111 EQUAL 7232, 7434, 7773,11202,11375,61606 6614 EQUS0 6542 5575 ERASE 4333, 4336, 4337, 6275, 6277, 6303, 6576, 6752, 6754, 7010, 7021, 7406 5103 EXEQF 6214, 6415 12272 EXITR 12171 20672 EXPCH 14273 6052 FEIFA 5136, 5201, 5210, 5214, 5236, 5264, 5331 6053 FEIFB 5140, 6057 6062 FEIFC 5141, 6056 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 14 POST PROCESSOR ASSEMBLY DATA 13753 FEXUB 14337 10662 FMTSA 10657 6163 FNIND 11454 16204 FNSW2 16202,16256,20753 7754 FORIO 6256, 6263, 7743 7622 FORMV 7611, 7642, 7715 7633 FORSW 7627,10076,10100,10102,10104,10107 7641 FORT2 7623, 7713, 7724 4503 FRCKA 4507, 4514 4507 FRCKB 4476 4511 FRCKC 4477, 4502, 4505 4515 FRCKD 4510, 4511 4523 FRCKE 4470 4530 FRCKF 4473 4546 FRCKG 4524, 4540, 4557 4550 FRCKH 4517, 4553 4557 FRCKJ 4552 4565 FRCKK 4534, 4560 4526 FRCKL 4520 6116 FRCON 4501, 5635, 5765 6402 FROVR 6442 6101 FRTSG 4562 7746 FRWRA 7733 11176 FS010 11175 11201 FS020 11177,11220 11205 FS030 11203 11211 FS040 11206 11217 FS050 11216 6157 FSIND 11564 10372 FTBUF 10367,10371 10370 FTREG 6164, 6345, 6355, 6356, 6363, 6372, 6406, 6437, 6445 4776 FXASM 4772 12304 HEXIT 12137 10107 HFPCH 10073 7022 HOLFG 6511, 6552, 6574, 6601, 6604, 6626, 6632, 6700 11072 ICNV2 11070 13156 ICNV3 11074 13205 ICNV4 13173 13233 ICNV5 13174,13175,13225,13226 11075 ICNV6 13204 13237 ICNV7 13207,13231 13236 IEXIT 10664 IFFIX 10516,10735 17523 IFLFL 17522 IFLFX 17514 5425 IFRTA 5427 IFRTB 5160, 5444, 5465 5435 IFRTC 5431 5437 IFRTD 5323, 5443 5443 IFRTE 5440 5446 IFRTF 5442 5451 IFRTG 5324, 5455 5456 IFRTH 5452 5460 IFRTJ 5447 5461 IFRTK 5464 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 15 POST PROCESSOR ASSEMBLY DATA 5462 IFRTL 5325 5465 IFRTM 5434 5146 IFSYM 15750,17640,61600 6142 INITZ 6147 10521 INOUT 10703 10673 INPUT 10013,10045 6064 IOCM1 4445 6065 IOCM2 4443 10751 IOCON 10452 IOSW1 10700 10523 IOSW2 10701 17376 ISIGN 17353 10104 ITISX 10066 11635 LA002 11632 11636 LA003 11627 6075 LABL1 4446 6076 LABL2 4461 6077 LABL3 4765 11530 LATXH 11062,11065,11230,11453,13421,13431 11526 LATXL 11326,11351,11356,11360,11461,11527 6405 LDFR0 4247, 6175 6422 LDFR1 6415 6423 LDFR2 6417, 6421 6437 LDFR3 6427, 6443, 6452 6442 LDFR4 6435 6453 LDFR5 6354, 6447, 6451 6454 LDFR6 6456 6342 LDFT0 6174, 6444 6343 LDFT1 6347, 6350, 6360, 6367, 6371, 6376 6354 LDFT2 4246, 6353, 7565 6372 LDFT3 6375 6377 LDFT4 6342, 6374 6400 LDFT5 6361, 6405 6345 LDFTT 6157, 6161 6573 LEGL0 6547, 6613, 6621, 6627, 6631, 6702 10156 LISTR 10116 7021 LITFG 6510, 6554, 6575, 6600, 6605, 6624, 6675 61747 LOOKS 61567,61712 6363 LOST1 6402 10205 LPRDO 10157 6623 LPRN0 6540 12466 LWBF1 12466,61375, 5556, 6120, 6122, 6123 24671 LWBF2 24671,61375, 5374, 5412, 5454, 5461, 5671, 5764, 5771, 6117, 6124, 6125, 6126 37771 LWBF3 37771,37770 6134 L(96) 7530, 7637 6136 L(A() 16403,16405 6137 L(H() 16411 6140 L(I() 16406,16410 6503 L(SL) 6504 L(TL) 6144 M1BAR 6216 MASK1 7101, 7141,11173,11345,11420,12102,13477,13623,13626,14667,16122,16372,16452,16512 5117 MASK2 11555,13644,14220,14357,14377,14503,14530,14553,14566,14616,14627,14650,15067,15142,15372,15731,16426 16564,17157,17543,20517 6217 MASK4 14155 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 16 POST PROCESSOR ASSEMBLY DATA 6162 MASK5 13505 4612 MCLSA 4610, 4633 4613 MCLSB 4576 4614 MCLSC 4577 4615 MCLSD 4601, 4620, 4622 4616 MCLSE 4632, 4634, 4640 4623 MCLSF 4611, 4616 4625 MCLSG 4607, 4630 4631 MCLSH 4603, 4624, 4636 4633 MCLSI 4621, 4627 4617 MCLSJ 4602 4640 MCLSK 4635 4642 MCLSL 4637 5326 MFRTA 5313, 5347, 5350 5333 MFRTB 5314 5350 MFRTC 5327, 5335 6103 MFRTE 5337 5506 MFVLA 5504, 5514 5510 MFVLB 5520 5511 MFVLC 5500 5516 MFVLD 5505, 5513 5517 MFVLE 5501 5520 MFVLF 5512 5521 MFVLG 5471, 5475, 5515 6210 MI205 7544, 7547 5132 MINUS 12213,12535 11016 MS010 11253,11410,12052 12053 MS020 11262 11017 MS030 12054 11025 MS040 20772 11030 MS041 11026,11314,11316 11066 MS050 11031 11077 MS051 11102 11102 MS052 11100 11103 MS060 11114,11120 11106 MS061 11105 11107 MS070 11134 11110 MS071 11113 11113 MS072 11111 11120 MS073 11116 11121 MS074 11122,11132 11122 MS080 11117 11126 MS081 11124 11135 MS090 11101 11137 MS091 11112 11150 MS092 11125 11157 MS093 11013,11404,11532,20771,20774 11222 MS200 11306 11231 MS210 11301,20732 11244 MS211 11243 11250 MS212 11247 11252 MS213 11251 11254 MS220 11302 11261 MS221 11260 11263 MS230 11277 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 17 POST PROCESSOR ASSEMBLY DATA 11265 MS231 11264 11267 MS232 11265 20771 MS238 11323 20774 MS239 11312 11310 MS240 11317 MS241 11315 11321 MS250 11304,11305,11307 11322 MS251 11320 11324 MS260 11300 11340 MS300 11327,11331,11332,11334,11335,11337 11411 MS310 11014,11333,11405 11403 MS311 11361 MS320 11330 11362 MS321 11015,11406 11377 MS322 11204,11424,11431,11435,11437,11441 11400 MS323 11402 11413 MS325 11442 MS330 11362 11445 MS331 11443 11450 MS332 11446 11452 MS333 11444,11447 11454 MS334 11451 11460 MS335 11157 11303 MSERR 11376,11411 5257 MTDOA 5252, 5300 5261 MTDOB 5253 5263 MTDOC 5260 5270 MTDOD 5142 5275 MTDOE 5143, 5267, 5273 5277 MTDOF 5254, 5266 5300 MTDOG 5262 5301 MTDOH 5247 5144 MTIF0 5161 MTIFA 5152, 5217 5200 MTIFB 5162 5205 MTIFC 5154, 5172, 5173, 5174 5212 MTIFD 5156, 5171, 5177 5217 MTIFE 5170, 5175, 5176 5220 MTIFF 5151 5203 MTIFG 5153 5211 MTIFH 5155 5216 MTIFI 5157 5234 MTRDA 5231, 5241 5240 MTRDB 5232 5242 MTRDC 5225 10516 NODIM 10432,10444 7024 NOTAF 6512, 6612, 6633, 6704, 6713 7176 NOTAG 7077 5135 NOTIF 5133, 5265 14751 OPSUB 14247 6127 ORGP1 6127 6127 ORGP2 10057 P1PCH 7451 6127 P2CON 6301 P2VAR SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 18 POST PROCESSOR ASSEMBLY DATA 4245 PASS1 6270, 6271, 6340, 6506, 7263, 7407, 7445, 7513, 7535, 7566, 7663,61702, 4245 6323 PASS2 4245, 7212, 7221, 7272, 7423, 7563, 7645, 7654, 7661, 7760,10010,20750 20651 PCH10 17441 20733 PDFN2 12651 20661 PFTAG 20716 6600 PMS00 6617,10142,10143 10126 PMS01 6526, 6544, 6545 10140 PMS02 10126,10132,10133,10135,10150,10152,10154 5114 POINT 12155,12434,12502,13205,13227,13266 6512 RA000 10167,12100 6571 RAXR4 6512 61756 RDIAG 61415 6327 RDXQ1 6333, 6334, 6377 6343 RDXQ2 6345 6360 RDXQ3 6354 6372 RDXQ4 6373 RDXQ5 6364 6374 RDXQ6 6365 4362 RECID 4326, 4366 10541 RESET 10470,10515,10532 4364 REWND 4337, 6016 6620 RPRN0 6541 7010 SA000 6775, 7005 6742 SBP41 6735 6507 SCAN0 6470,10116 6516 SCAN1 6551 6520 SCAN2 6550 6550 SCAN3 6555, 6572, 6577, 6603, 6607, 6677, 6705,10124 6551 SCAN4 6721 SCANT 6520, 6642 5352 SFRTA 5315, 5354, 5362, 5420 5356 SFRTB 5353 5360 SFRTC 5316 5367 SFRTD 5356, 5365, 5377 5372 SFRTE 5317, 5376 5374 SFRTF 5371 5377 SFRTG 5373 5402 SFRTH 5320, 5406 5404 SFRTI 5321, 5401 5407 SFRTJ 5403 5412 SFRTK 5416 5413 SFRTL 5322 5416 SFRTM 5407, 5422, 5423 5417 SFRTN 5410 5422 SFRTP 5355, 5357 5351 SFRTQ 5424 5113 SLASH 13752,13764,14014,14024,14030,14636 6604 SLSH0 6611, 6623,10144 10275 SPCTR 10261 6573 SS000 10166,12077 6606 SS001 6774 6660 SS003 6746 6662 SS004 6676 6664 SS005 6667 6667 SS006 6665 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 19 POST PROCESSOR ASSEMBLY DATA 6676 SS007 6675 6672 SS008 6670 6673 SS009 6635 SSERR 6723, 6744 12137 SSIR4 12076,12107 61762 START 61747,61750 61631 STATE 61562,61565 4256 STATN 5363, 5364 61754 STOPM 61751 6712 SUBTR 6625, 6666 17441 SXTRP 17426 62157 TABLE 61632,61633 4363 TABLN 4264, 4322, 4327 4254 TABNM 4303 4260 TAP00 4462, 4530, 4566, 4570, 5010, 5036, 5042, 5046, 5124, 5222, 5244, 5303, 5466, 5472, 5523, 5527, 5535 6022, 6032 4322 TAPA0 4335 4301 TAPAA 4272 4323 TAPB0 4330 4325 TAPC0 4315, 4331 4335 TAPD0 4313 4340 TAPE0 4316 4341 TAPF0 4275, 4312 4305 TAPG0 4301 4351 TAPI0 4345, 4353 4352 TAPI1 4350 4366 TAPIO 4271, 4320, 4324, 4333, 4347 4354 TAPJ0 4260, 4342 4355 TAPJ1 4261 4356 TAPJ2 4262 10075 TBLKP 7626 6100 TCLOS 4654, 4775, 6012 66476 TDOWC 5061 TEIFA 5054, 5063, 5064, 5101, 5111 5066 TEIFB 5062 5072 TEIFC 5055, 5100, 5102, 5103 5100 TEIFD 5073 5102 TEIFE 5077 5112 TEIFF 5065, 5067 5122 TEIFG 5051, 5113 12760 TEMP1 12601,12610,12612,12623,12634,12641,12655,12666,12672,12677,12725,12736 12761 TEMP2 12602,12603,12605,12613,12632,12637,12726,12731,12732,12735 4405 TET00 6477, 7174, 7176, 7373, 7377, 7433, 7440, 7463, 7501, 7503, 7517, 7530, 7546, 6356, 6434, 7215, 7270 7352, 7421, 7646, 7665,10351,10520,10637,10737,11347,11422,11456,12067,14263,15702,16071,16347,17433 20271,20613,20743 4425 TETA0 4421, 4440, 4451, 4452, 4461 4444 TETB0 4445 TETB1 4426 4447 TETB2 4433 4452 TETC0 4425 4472 TETCL 4424, 4447 4455 TETD0 4460 4463 TETE0 4450 4473 TETIO 4430, 4431, 4444 4464 TETX1 4407 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 20 POST PROCESSOR ASSEMBLY DATA 4465 TETX2 4410 4466 TETX4 4411 5177 TIFTR 5166 62003 TLDOS 10112,10341 63753 TLINE 10113,10216,10222,10337 5101 TRAIL 4200 TXHOP 7446, 6601,11012,11530,20712 4174 TXLOP 6604,11403,11526,20714 10735 UNITV 10722 10747 UNITX 10720 61375 UPBF1 61375 4370 WAT00 4464, 5034, 5040, 5044, 5122, 5220, 5242, 5301, 5521, 5525, 5531, 5533, 6004, 6013 4412 WAT01 4370 4413 WAT02 4371 4414 WAT03 4372 4420 WATA0 4376 4421 WATA1 4405 4422 WATB0 4410 4423 WATB2 4403, 4406 6013 WRCLS 6007 61703 WRDG0 61630,61672 61716 WRDG1 61732 61733 WRDG2 61716 61740 WRDG3 61703,61704,61705,61710 61744 WRDG4 61715,61720,61724,61726 61745 WRDG5 61733,61734,61736 5466 WRFRT 5306, 5426, 5445, 5466 6313 WTXQ0 7041 6314 WTXQ1 10161 6324 WTXQ2 6317 6326 WTXQ3 6462 6341 WTXQ4 6321, 6331, 6336 5102 WTXQ5 6211, 6337, 6310, 6332 62033 XXCOM 61673,62033 10751 (BST) 10051 10752 (CSH) 10020 10753 (DRS) 10103 10754 (EFT) 10055 10755 (FIL) 10026 10756 (RLR) 10046 10757 (RTN) 10015 10760 (RWT) 10060 10761 (SCH) 10034 10762 (SDR) 10063 10763 (SLI) 10453 10764 (SLO) 10451 10765 (SPH) 10031 10766 (STB) 10037 10767 (STH) 10023 10770 (TSB) 10044 10771 (TSH) 10012 10772 (WLR) 10041 7154 1D0000 7022 7167 1D0001 7165 3755 1DPER0 4054 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 21 POST PROCESSOR ASSEMBLY DATA 3756 1DPER1 4127 4127 1DPERA 4102 5421 1PER5X 5375, 5405, 5446 7111 2D0000 7023 7112 2D0001 7115 7117 2D0002 7127 7126 2D0040 7124 7132 2D0060 6112 2NDEOF 4436 7025 3D0001 7030 7032 3D0002 7042 7041 3D0040 7037 7045 3D0060 7076 3D0340 7153 7077 3D0350 7175 6113 3RDEOF 4451 6114 4THEOF 4770 5153 5BLANS 6115 5THEOF 6043 6143 ABTAG1 16043 6142 ABTAG2 7746 6154 ABTAG3 7751 16362 AC0000 15634,16165,16167,16212,16301,16525,17775 16370 AC0060 16361 16430 AC0320 16435,16455,16477 16431 AC0330 16444 16433 AC0340 16415 16436 AC0350 16412 16440 AC0390 16407 16445 AC0410 16404 16441 AC0420 16437,16446 16443 AC0450 16447 AC0460 16401 16456 AC0540 16374 16463 AC0990 16523 16353 AC0M60 15773,17663,17772 16500 AC1000 16463 16511 AC1050 16501 16517 AC1070 16515 16520 AC1080 17774 ACDP00 16303,16631,16712,16730,16737,17006,17073,17107,17204,17227,17302,17317,17414,17443,17461,17472,17506 17773 20001 ACDP01 6312,20005 20005 ACDP02 20002,20004 20011 ACDP03 20003 20050 ACDP04 17771,17774,20024,20031,20037,20041 20025 ACDP05 20761,20770 20042 ACDP06 20035,20040 20016 ACDP07 6314 20761 ACDP08 20007 17771 ACDP0L 17703,17713 6176 ADPLUS 11016,15630,16154 6211 ADSPOP 11642,12012,16436,20731 6213 ADSTAR 12002,12053,15622,15626,16157 746 ALPHSZ 0,11577,72036 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 22 POST PROCESSOR ASSEMBLY DATA 7 AMFACT 0 10 ANFACT 0 22240 ARERAS 11010,11275,15735,16454,17545 5160 ARGCNT 7505, 7507, 7754 22241 ARGCTR 6444,10776,11213,11217,11267,11556,11601,14727,15111,15447,15503,15653,15714,15757,16037,16246,16500 17241,17357,17425,17435,17530,17647 65437 ARGORG 15371,15402,15420,15437,17156,17270,17572,17605,17614,20347,20355 71557 ARGREG 11215,11604 20707 ARITH1 10774 20714 ARITH2 20711 14064 AS0000 13714,13725 14065 AS0100 14073 14072 AS0700 14066,14071 14073 AS0800 13442,14072 14074 AS0900 14105 14105 AS1800 13707,14104,14113 14107 AS2000 14103 14114 AS2500 14106 14116 AS2700 14120 14120 AS2900 13443,14117 14121 AS3000 14130 14130 AS3600 13710,14127,14160,14446,14460,14561 4426 BEGF13 73666 3757 BEGF14 73666 4524 BEGFRG 4524 10372 BEGFTR 10372 10057 BEGP1P 10057 20576 BEGP2P 20576 4343 BER001 15202,63412 5630 BERPCH 4252 6174 BETAD1 13456,13467 6155 BETAD2 14124 2032 BETASZ 0,11574,71545 5155 BLANKS 5206, 6373, 6411, 6453, 7613, 6737,10250,10606,11141,11151,11520,61545,61547,61655,61725 7 BMFACT 0 10 BNFACT 0 23 BOLSIZ 0, 4334 4404 BOOLIN 15122,15134,15201,15250,15276,15340 73600 BOTIOP 0, 6437 3734 BOTMEM 0, 3734, 3753 3734 BOTTOM 0 3 BUFTAP 0, 6415, 6420,61402,61416,61420,61534,61540,61570,61713,61721,61737 10162 BUGSW1 10114,10151,10155 10163 BUGSW2 10115,10153,10157 5214 C 180X 7303, 7311, 7316, 7367, 7375, 7424, 7222, 7350, 7462, 7467, 7500, 7513, 7520, 7607, 7634,21021 5232 C 190X 6471, 7030, 7556, 6361, 7765,11011,61571 7264 C12SUB 7261 11473 C33525 11512 36603 CALLBF 4112 5151 CALLER 15753,17643,61575 12466 CALLFN 4115,61375 4064 CALLMX 0, 4115 5556 CALLNM 4113,15121,16070,16343 6272 CALLP2 5150 CALLSM 11436 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 23 POST PROCESSOR ASSEMBLY DATA 257 CALLSZ 0, 4114,36603 3 CALLTP 0, 4114 14132 CCS000 14142,14154,14157 14137 CCS060 14136 14140 CCS070 14137 14146 CCS140 14145 14147 CCS150 14146,14151,14153 14153 CCS190 14152 14154 CCS200 14147 14160 CCS240 14134 20527 CDFLOT 17347,17352 20455 CDSIGN 17336,20453 20421 CFLOAT 17702,17731,20527 7176 CFNEXC 7172 71552 CHSAVE 7516, 7532,10777,11025,11041,11047,11056,11135,11137,11156,11361,11412,11462,12134,12203,12223,12413 12460,12461,12525,12545,13420 7211 CHSIFN 10560,16073 20452 CISIGN 17355 21416 CITBUF 4275, 4313, 4320, 4327, 5625,21416 3747 CITCNT 4272, 4274, 4346, 5621, 7453,10062, 4437, 4441, 6064 310 CITSIZ 0, 4257, 4276, 4277,21442,21726 2 CITTAP 0, 4271, 4436 5620 CLAIFN 5622, 5624, 5626,10060 5557 CLEQA0 5552, 5556, 5566, 5701 5567 CLEQA1 5561, 5577 5603 CLEQA2 5671 5605 CLEQA3 5634, 5763 5630 CLEQA4 5606 5635 CLEQA5 5624 5642 CLEQB1 5610 5647 CLEQB2 5553, 5644, 5656, 5665 5660 CLEQB3 5653, 5666 5667 CLEQB4 5641, 5650 5702 CLEQC0 5662 5716 CLEQC1 5726 5727 CLEQC2 5715 5731 CLEQC3 5702, 5735 5736 CLEQC4 5731 5750 CLEQD3 5743, 5747 5755 CLEQD4 5713, 5744, 5746 5757 CLEQD5 5742, 5755 5764 CLEQF0 5557 5772 CLEQF1 5540 6200 CLOSP1 4250, 6205 6403 CLOSP2 12466 CLOSUB 4043,61375 45077 CLSBBF 4040, 6151 4040 CLSBCN 7454 12202 CLSBMX 0, 4043 257 CLSBSZ 0, 4042,45077 3 CLSBTP 0, 4042 6421 CLSP2A 6412 12045 CM4100 11032 12046 CM4101 12045 12047 CM4102 12064 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 24 POST PROCESSOR ASSEMBLY DATA 12051 CM4104 12050 12052 CM4105 11531 12055 CM4200 11207 12056 CM4201 12055 12060 CM4300 11664 12061 CM4301 12060 12063 CM4303 12057,12062 10445 CMASW1 10704 10522 CMASW2 10407,10411,10705 47256 CMMNBF 4062 12202 CMMNMX 0, 4065 1274 CMMNSZ 0, 4064,47256 3 CMMNTP 0, 4064 20727 CMPCH1 20717,20725 5072 COMCON 22236 COMERA 61375 COMMON 4065,61375 5545 COMORG 5545 16535 COMP0A 15463,15507,15657,16255,17253,17364 16541 COMP0B 15505,15655,16250,17361 16545 COMP0C 15333,15345,16000,16025,16056,16064,16125,16726,17701,17730 16527 COMPM2 15744,16230,16243,16714,16732,17416,17445,17510,17563 16525 COMPM3 15336 16524 COMPM4 15247,15323,15353,15405,15423,15434,15517,15527,15536,15547,15573,15612,15652,15706 16551 COMTSX 17246,17254,17362,17365 5160 COMVAR 4230 CORR01 4157 7717 CORR03 14436 CORR05 16274 CORR08 20433 COUNT1 17164,17272,17577,17610,17614,17617,20347,20356,20360 20434 COUNT2 17162,17274,20355,20361,20363 15106 CP0000 15062,20603 16555 CP000D 15126,15131 16557 CP005D 17557,17564 15116 CP0090 15112 15136 CP0130 15727,15745,16130 16560 CP013D 17627,17633,17635 16561 CP014D 16565 CP018D 15147 CP0240 15146 15150 CP0250 15147 15165 CP0310 15157 16600 CP031D 16576 16601 CP032D 15171 CP0350 15167 16604 CP035D 16602 15173 CP0370 15162 16606 CP037D 16577 15174 CP0380 15172 16607 CP038D 16605 15176 CP0400 15144,15215,15220,15407,15412,15427,15432,15556,15563,15602,15607,16144,16170,16173,16315,16320,17264 17525 16611 CP040D 16566,16633,16636,17001,17004,17044,17207,17212,17231,17234,17263,17304,17310,17321,17324,17524 15200 CP0420 15174 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 25 POST PROCESSOR ASSEMBLY DATA 16613 CP042D 16607 15203 CP0430 15177 16737 CP043D 16612 15215 CP0540 15245,15251,15255,15275,15332,15337,15357 17001 CP054D 16752,16756,16760,16772,16777,17023,17025,17031,17037,17140,17146 16633 CP054F 16626,16657,16675,16723,16736 17066 CP054I 17045,17062,17071 15217 CP0560 15216 15222 CP0590 15221 17040 CP059I 17012 15240 CP0760 15212 16753 CP076D 16747 16652 CP076F 16623 15246 CP0850 15241 16757 CP085D 16754 16660 CP085F 16653 17055 CP087I 17077 15256 CP0880 15231 17024 CP088D 17021 16662 CP088F 16647 17063 CP088I 17056 15264 CP0960 15207 16761 CP096D 16744 16664 CP096F 16620 15266 CP0980 15264 15274 CP1050 15271 16771 CP105D 16766 16674 CP105F 16671 15276 CP1070 15274 16773 CP107D 16771 16676 CP107F 16674 15304 CP1130 15214,15277 16776 CP113D 16751 16627 CP113F 16625 15306 CP1200 15226 17026 CP120D 17016 16705 CP120F 16644 17135 CP120I 17042 15317 CP1330 15307 15322 CP1450 15316 16712 CP145D 17124 CP154I 17046,17120,17127 15333 CP1570 15320 17107 CP160I 17047,17130 15334 CP1670 15311 15335 CP1680 15234,15237,15260,15263,15302,15305,15361 16630 CP168F 16651,16661,16663,16702,16704 15336 CP1690 15340 CP1720 15227 17032 CP172D 17017 16724 CP172F 16645 17141 CP172I 17043 15346 CP1840 15344 17121 CP188I 17114 15360 CP2000 15350 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 26 POST PROCESSOR ASSEMBLY DATA 15362 CP2040 15210 17147 CP204D 16621,16745,20600 15400 CP2100 15406 15404 CP2150 15377 17204 CP215D 17174 15407 CP2200 15403 17206 CP220D 17203 15411 CP2230 15410 15416 CP2250 15424 15422 CP2300 15415 17227 CP230D 17216,17235 15425 CP2350 15421 17231 CP235D 17226 15427 CP2370 15443 15431 CP2390 15430 15444 CP2500 15411,15431 17236 CP250D 17211,17233 17100 CP254I 17070 17131 CP255I 17126 15463 CP2600 15450 17253 CP260D 17242 15473 CP2650 15364 17261 CP265D 17151 16160 CP2860 16156 16162 CP2880 16166,16200 16163 CP2890 16134 16165 CP2900 16152 16167 CP2930 16145,16175 16172 CP2960 16171 16176 CP3000 16172 15477 CP3060 15474 17267 CP306D 17262 15503 CP3100 15520,15530 17326 CP310D 17307,17323 15507 CP3200 15504 17364 CP320D 17360 15516 CP3280 15502,15534,15606 17321 CP328D 15521 CP3350 15477 15525 CP3390 15537,15562 15527 CP3420 15526 15531 CP3450 15524 15535 CP3490 15533 17317 CP349D 17311,17325 17302 CP354D 17277 15540 CP3560 15521 17304 CP356D 17301 15544 CP3600 15543,15613 15546 CP3620 15564 15560 CP3770 15557 15563 CP3800 15560 15565 CP3820 15542 15572 CP3870 15610 15604 CP4020 15603 15607 CP4050 15604 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 27 POST PROCESSOR ASSEMBLY DATA 15611 CP4070 15567 15614 CP4140 15265 17404 CP414D 16665,16762 15622 CP4200 15617 15623 CP4210 15621 15634 CP4310 15625 15635 CP4320 15633 15645 CP4410 15615 15650 CP4440 15711 17414 CP444D 17451 15652 CP4470 15651 17453 CP447D 17410 17417 CP448D 17452 15653 CP4490 15712 17424 CP449D 17467,17471,17515,17517 15657 CP4500 15654 17472 CP450D 17454 17503 CP455D 17500 17455 CP460D 17460 CP461D 17504 17463 CP465D 17502 15671 CP4660 15663 17505 CP470D 17457,17503 17511 CP471D 17501 15676 CP4730 15670,15674 17430 CP473D 17442 15705 CP4860 15647 17443 CP486D 17412 15713 CP5000 15365 17524 CP500D 17152 15714 CP5010 15515,15704 17532 CP501D 17363,17436,17440 15722 CP5020 15715 17536 CP502D 17366,17437,17531 16206 CP5050 16226 16221 CP5160 16244 16223 CP5180 16332,16333,16337,16342,16352 16224 CP5190 16223 16226 CP5210 16225 16227 CP5220 16214 20752 CP5221 16235 16236 CP5222 20754 16245 CP5460 16224 16255 CP5470 16247 16256 CP5520 20760 20755 CP5521 16260 16272 CP5680 16271,16321 16305 CP5700 16273 16314 CP5720 16304 16317 CP5750 16316 16322 CP5780 16201,16317 15472 CP5830 16210,16222 16324 CP8000 16207 16352 CP8001 16346,16351 20173 CPACMQ 17034,17143 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 28 POST PROCESSOR ASSEMBLY DATA 15247 CPBCOM 71545 CPBETA 15015,15074,15140,16076,16121,16451,16556,16562,20524,20525,73577 20371 CPCLA1 17672,17756 20375 CPCLA2 17670,17753 20435 CPDABS 17333 20327 CPDARG 17202,17205,17225,17230,17303,17320 20156 CPDCHS 16755 20052 CPDCLA 7733,16776,17473 20070 CPDCLS 16757 20225 CPDFAD 17022 20247 CPDFDP 17030 20241 CPDFMP 17036 20233 CPDFSB 17024 20123 CPDLDQ 17000,17462 20106 CPDSTO 17634,17720 20141 CPDSTQ 17632,17716 20263 CPIFDP 17137 20255 CPIFMP 17145 20210 CPMQAC 17027,17136,17743 20365 CPSTZ1 13562 CS0000 13563 CS0010 13573,13670 13565 CS0030 13567,13651 13571 CS0060 13606,13661 13573 CS0080 13564 13574 CS0090 13572 13576 CS0100 13600,13613,13621,13632,13637 13600 CS0120 13577 13601 CS0130 13576,13603,13665 13604 CS0151 13602 13616 CS0250 13642 13641 CS0360 13640 13642 CS0370 13641 13643 CS0430 13616 13645 CS0450 13646,13650 13647 CS0470 13574,13614,13666 13651 CS0490 13647 13655 CS0530 13660 13660 CS0560 13657 13661 CS0570 13655 13665 CS0600 13615,13654 13666 CS0610 13605 13670 CS0630 13672 13672 CS0650 13671 13673 CS0660 13566 13674 CS0670 13705 13704 CS0750 13675,13703 13705 CS0760 13541,13704 7007 CSA000 7412 20356 DARG02 17300,17574,17611,17615 20511 DARG03 20333 20514 DARG04 20526 17340 DARG05 20511,20522 17565 DARG06 17343 17612 DARG07 17607,17625 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 29 POST PROCESSOR ASSEMBLY DATA 17613 DARG08 17601 17616 DARG09 17604 20342 DARGFL 17571,17575,20337,20340 17576 DARGFX 17566,20341 3732 DATEBX 6205 DECMI1 16233,17105,17133,17200,17737,17757,20066,20104,20116,20166,20171,20203,20223,20445,20450,20501,20507 20535 6207 DECMI2 15425,15544,15570,17221,20131,20143,20200,20212,20377,20463 20326 DECMI3 17223,17754,20137,20151,20206,20220,20476 6152 DECMI4 12121 DECPNT 11226 12717 DEXITR 12450 20537 DFLCON 12715,13414 17375 DFLOAT 17345 3751 DGFLAG 4251, 4405, 6220, 6305, 7732, 6404,61526,61530, 6104 12744 DHEXIT 12416 61375 DIAG00 73666 61414 DIAG01 61450,61455,61467 61425 DIAG02 61430 DIAG03 61423 61456 DIAG04 61432 61502 DIAG05 61421 61515 DIAG06 61376 61542 DIAG07 61527 61561 DIAG08 61551 61600 DIAG11 61576 61613 DIAG12 61615 61614 DIAG13 61612 61620 DIAG14 61577 61627 DIAG15 61617 61630 DIAG16 61601,61607 61634 DIAG17 61645 61640 DIAG18 61636 61645 DIAG19 61642,61644 61647 DIAG20 61643 61660 DIAG21 61665 61670 DIAG23 61650,61651 61672 DIAG24 61637,61646 61470 DIAGER 61417,61466 61751 DIAGHD 61537,61751 62073 DIAGN3 61424,61445,61464 62046 DIGBUF 61422,61430,61436,61442,61456,61462,61756,62073 30111 DIM1BF 4201, 4202, 6072 4203 DIM1IX 5273, 7330 536 DIM1MX 0 5272 DIM1SR 7272,10414,10646,11363,11442,21003 536 DIM1SZ 0, 4202,30111 31405 DIM2BF 4205, 4206 4207 DIM2IX 5277, 7334 536 DIM2MX 0 5276 DIM2SR 7275, 7130,10420,10651,11366,11445,21006 536 DIM2SZ 0, 4206,31405 32701 DIM3BF 4211, 4212 4213 DIM3IX 5320, 6166, 7324, 4674, 4676 473 DIM3MX 0 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 30 POST PROCESSOR ASSEMBLY DATA 5316 DIM3SR 7300, 7043,10431,10654,11371,11450,21011 473 DIM3SZ 0, 4212,32701 22242 DIMSAV 6514, 6532, 7011 5330 DIMXR2 5303, 5313, 5317, 5337 5331 DIMXR4 5272, 5276, 5316, 5340 4217 DLIST1 7362, 6311,17776, 4712, 4715 4223 DLIST2 11357,11440, 4733, 4736 34562 DLT1BF 4215, 4216 203 DLT1MX 0 203 DLT1SZ 0, 4216,34562 35170 DLT2BF 4221, 4222 536 DLT2MX 0 536 DLT2SZ 0, 4222,35170 5301 DMSR00 5275 5306 DMSR01 5301, 5312 5312 DMSR02 5307, 5311 5314 DMSR03 5302, 5310 5323 DMSR04 5327, 6167 5327 DMSR05 5324, 5326 5333 DMSR06 5325, 6173 5336 DMSR07 5315 5335 DMSR08 6171 46373 DOLPBF 3760 1015 DOLPMX 0, 3763,64064,66477 127 DOLPSZ 0, 3762,46373 3 DOLPTP 0, 3762 6212 DOLSGN 6456, 7743, 7746, 7751 17367 DOPSUB 14437,14440 14416 DP0042 14257,14261,14413 14423 DP0045 14433 DP0046 14431 14440 DP0047 14444 12375 DPCNV1 12115 12402 DPCNV2 12125 7362 DPDIM1 7354, 7357 7363 DPDIM2 7342 7360 DPDIM3 7347 20270 DPSUB1 20232,20240,20246,20254,20262 20274 DPSUB2 20230,20236,20244,20252,20260,20266,20627 20307 DPSUB4 20277 10512 DRMFIN 10522 12753 DS9500 12564 12746 DS9501 12742 12444 DS9506 12416 DSSIR4 3735 EIFLOC 5057, 5060, 5132, 5137 60633 ELSEBF 4532, 4554, 4555, 4563, 5105, 5121, 5341, 4372, 4374, 4377, 4527, 4531, 4611, 4621, 4622, 4633, 4635 3 ELSESZ 0,60633 22236 ENDCIT 22236 6127 ENDCOM 6127 10422 ENDF10 6136 64063 ENDF12 6437 ENDF13 5072 ENDFRG 5072 10422 ENDFTR 10422 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 31 POST PROCESSOR ASSEMBLY DATA 64063 ENDIAG 61632,64063 36205 ENDIBF 4134 4134 ENDICN 44 ENDIMX 0, 4137 44 ENDISZ 0, 4136,36205 3 ENDITP 0, 4136 22236 ENDONE 10367 ENDP1P 10367 21416 ENDP2C 21416 21416 ENDP2P 21416 12466 ENDTAB 4137,61375 6375 ENDTST 6324 20546 ENFC01 6316,20553 20552 ENFC02 20575 20563 ENFC03 20573 20570 ENFC04 20550 20554 ENFC05 6317,20545 20556 ENFC06 6321 20572 ENFC07 6322,20570 41521 EQITBF 4032 5101 EQITMX 0, 4035,12465 462 EQITSZ 0, 4034, 6224,41521 3 EQITTP 0, 4034 3742 EQTLOC 6000, 6003, 4013, 4016, 4022, 4024 12466 EQUITT 4035,61375 5174 ER0001 62234 5202 ER0002 20724,62244 5353 ER0004 62252 6635 ER0005 62266 6645 ER0006 62276 6652 ER0007 62305 6677 ER0008 62315 6701 ER0009 62334 6720 ER0010 62345 7003 ER0011 62354 7006 ER0012 62364 7044 ER0013 62376 7131 ER0014 62415 5500 ER0015 62434 5506 ER0016 62444 5514 ER0017 62455 21026 ER0018 63747 5520 ER0019 7647, 7661,62467 5524 ER0020 62476 5530 ER0021 62505 5534 ER0022 62514 5540 ER0023 62521 5542 ER0024 62534 6527 ER0026 62547 6530 ER0027 6652,62563 6531 ER0028 6653,62573 6532 ER0029 6654,62603 6533 ER0030 62612 21013 ER0031 21005,21010,63736 6711 ER0032 6622, 7644,62621 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 32 POST PROCESSOR ASSEMBLY DATA 4240 ER0033 7034,62627 7445 ER0034 62643 7612 ER0035 62651 7302 ER0036 62656 7321 ER0037 62673 7452 ER0038 10063,62705 7671 ER0039 62725 7543 ER0040 62747 10136 ER0041 62757 10155 ER0042 62767 10162 ER0043 62776 10230 ER0044 63006 10233 ER0045 63021 10263 ER0046 63035 10274 ER0047 63044 10357 ER0048 63053 10375 ER0049 63061 10547 ER0050 63071 10575 ER0051 63077 10655 ER0053 63106 10634 ER0054 63116 10736 ER0055 7401, 7622,63122 11121 ER0056 11122,63132 11166 ER0057 63155 11200 ER0058 63163 11210 ER0059 63174 11221 ER0060 63204 11227 ER0061 63211 11266 ER0062 63223 11303 ER0063 10202,63235 11336 ER0064 63242 11500 ER0065 63250 11573 ER0066 63271 11575 ER0067 63277 11600 ER0068 63305 12303 ER0069 63317 15052 ER0070 63333 16502 ER0071 63337 11372 ER0072 63140 11534 ER0073 20773,20775,63465 6712 ER0074 63660 6657 ER0075 63666 10156 ER0080 63716 10160 ER0081 63723 20703 ER0082 63730 7632 ER1002 63346 10624 ER1003 63356 7565 ER1005 11037,11040,11054,11225,63365 6404 ER1007 63374 7567 ER1008 63404 7571 ER1009 63631 7305 ER2001 7237,10260,10306,63617 10724 ER2002 10071,10075,63650 7234 ER2003 63710 6107 ERASA1 4665, 4667, 4702, 4704, 4762, 5066, 5075, 5200, 5207, 5213, 5235, 5263, 5272, 5330, 5336, 5436, 5441 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 33 POST PROCESSOR ASSEMBLY DATA 6055, 6071 5576 ERASE1 5336, 5344, 5356, 5360, 5363, 5365, 7060, 7140,10416,10422,10433 5577 ERASE2 5334, 5355, 5362,10441 5600 ERASE3 5601 ERASE4 20010 ERDP01 20766,20767,63551 17171 ERDP02 14422,63536 14432 ERDP03 63606 15725 ES0000 15217,15462,15472,15476,15644,15721,16133 17541 ES000D 16635,17003,17134,17252,17260,17266,17535,20451,20510,20536 17626 ES010D 17555 15746 ES0160 15732 17636 ES016D 17544,20624 15753 ES0200 15751 15756 ES0220 15754 16021 ES0300 15763,15764 17675 ES030D 17653,17654 17713 ES031D 17676 16023 ES0320 16051 16026 ES0440 16024 16037 ES0610 16020 16041 ES0630 16055,16057,17740,17742,17744 15767 ES0710 16022 15771 ES0730 16040 17661 ES073D 17674 15776 ES0870 15766,16053 17666 ES087D 17656 16001 ES0990 15777 16045 ES1300 15760 17722 ES130D 20620 17741 ES132D 17725 16052 ES1360 16046 17745 ES136D 17723,63576 16054 ES1380 16050 16060 ES1500 15752,17750,17760,17763,17770,20615 17746 ES150D 17642 16062 ES1520 15755,17645 16065 ES1590 15775,16044,16063,17665,17712,17717,17721,20751 20747 ES1595 16067 16074 ESXCA0 15734 16131 ESXCA1 16105,16107,16111,16116,16124 4 EXEQTP 0, 6211, 6214, 6217, 6337, 6310, 6332, 6365, 6376, 4654, 4775, 6012, 6017 20704 EXPCH1 20675,20701,20702 20706 EXPCH2 20674,20700 6215 FAKEN3 7252 6472 FCARD0 6503 11664 FINI03 11634,11663 6177 FINPUT 6160 2 FINTAP 4523 FIRST5 6323, 6410,61543 5602 FIRSTC 5465, 7472, 6614, 6647, 6671, 6763, 7001,11126,11133,11625,11672,11711,11720 60075 FIXCON 60074 FIXCWC 6203 FIXVAR 12170,12447 3730 FLAGBX SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 34 POST PROCESSOR ASSEMBLY DATA 25042 FLCNBF 4155, 4156, 6067 4157 FLCNIX 6315, 6320,11057,12270,20544,20557,20561, 4452, 4455 3047 FLCNMX 0 3047 FLCNSZ 0, 4156,25042 6104 FLOCNT 4453, 6066 6066 FLOCOM 4454, 4456, 4460 6177 FLOVAR 11060,12271,12716,13415 6437 FLTR00 10005,15457,15467,15716,15722,17247,17255,17532,17536, 6437 6451 FLTR01 6445 6456 FLTR02 6452 6461 FLTR03 6450 6462 FLTR04 6455 6471 FLTR05 6437, 6470 10657 FMTARG 10643,10650,10653 10631 FMTDSG 10014,10025 12466 FMTEFN 4123,61375 35726 FMTNBF 4120 3326 FMTNMX 0, 4123 257 FMTNSZ 0, 4122,35726 3 FMTNTP 0, 4122 10644 FMTVAR 10632 71551 FNBITS 11020,11455,12014 16201 FNIISB 15713,17527 7625 FORCHK 7572, 7635, 7731 7653 FOREND 10070 7632 FORERR 7703, 7723,10072,10101,10105,10110 61375 FORMAT 4051,61375 60636 FORSUB 11164,11171,11174,11274,11545,11554,16425,65452 24671 FORTAG 4005,61375 24671 FORVAL 4021,61375 12466 FORVAR 4013,61375 4530 FREGON 4515, 4516, 4517 157 FREGSZ 0, 4515, 4517, 4530, 4707, 6431, 6432, 6434 51031 FRETBF 4024 5101 FRETMX 0, 4027,64064,44057 127 FRETSZ 0, 4026,51031 44057 FRETTB 4027 3 FRETTP 0, 4026 44056 FRETWC 4707 FRGBF2 4707, 6430 42665 FRMTBF 4046, 6232, 6242 12202 FRMTMX 0, 4051 257 FRMTSZ 0, 6223, 6232, 6242,42665 3 FRMTTP 0, 4050, 6245, 6264, 7744 60636 FRSBBF 65452, 6065 257 FRSBMX 0 257 FRSBSZ 0,11177,60636 40504 FRTGBF 4002,20740 12202 FRTGMX 0, 4005 1015 FRTGSZ 0, 4004,40504 3 FRTGTP 0, 4004 3741 FRTLOC 5311, 5312, 5351, 5435, 4540, 4546 37062 FRVLBF 4016 3326 FRVLMX 0, 4021 203 FRVLSZ 0, 4020,37062 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 35 POST PROCESSOR ASSEMBLY DATA 3 FRVLTP 0, 4020 37470 FRVRBF 4010 5101 FRVRMX 0, 4013 406 FRVRSZ 0, 4012,37470 3 FRVRTP 0, 4012 71550 FSBITS 11552,11565,12013 5603 FSNAME 7462, 7672, 7676, 7706, 7717, 7737 71547 FSTYPE 11004,11271,11560,11561 14 FTBFSZ 0,10367,10371,10372,10406 7100 FTG000 60075 FXCNBF 4151, 4152 4153 FXCNIX 10473,10727,12167,12446,14333, 4776 536 FXCNMX 0,64064,60075 536 FXCNSZ 0, 4152,60075 60074 FXCNWC 5000 61375 GERASE 61375,65461,61375,61374 6472 GETIFN 7603 62074 GFUPMS 61477 3751 GOOFCT 4565, 5056, 5106, 5110, 5112, 5116, 5117, 5340, 5343, 6104, 4370, 4401, 4525, 4533, 4601, 4616, 4624 4630, 4637 62033 GOOFUP 61471,62074 50552 HLRGBF 4070 6116 HLRGMX 0, 4073 257 HLRGSZ 0, 4072,50552 3 HLRGTP 0, 4072 12466 HOLARG 4073,61375 6301 HOLCNT 11463,12071,12073 13433 ICHCTR 13163,13200 13176 ICNV20 13211,13213,13215,13217,13230,13232,13265,13272 13214 ICNV21 13206 13402 ICNV22 13167,13221 13220 ICNV23 13216 13222 ICNV24 13212 13227 ICNV25 13224 13264 ICNV26 13243,13267 13273 ICNV30 13271 13271 ICNV31 13244 13405 ICNV32 13166,13411 13414 ICNV33 13405 13167 ICNV34 13413 13336 ICNV35 13323 13324 ICNV36 13321 17374 IFLOAT 17350 5147 IFSYM2 7437,11433,16341 13401 IMS950 13354,13366,13427 13404 IMS951 13402 6127 INITIL 73666 2 INPUTP 0, 6165, 6346, 6351,61406,61465,61472,61510,61513 3755 INTETA 5050, 5053 3763 INTETB 5246, 5251 3771 INTETC 5127, 5144, 5146 3777 INTETD 5224, 5227 4005 INTETE 20736 4013 INTETF 4021 INTETG 5470, 5477 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 36 POST PROCESSOR ASSEMBLY DATA 4027 INTETH 5126, 5130, 5305, 5310 4035 INTETI 6222, 5537, 5773, 5775, 5777 4043 INTETJ 4572, 4575, 4600, 4642, 4645, 4650, 4741, 4771, 6006 4051 INTETK 6231, 6235, 6247, 6254, 6255, 6264, 7734, 7736, 7744, 4471, 4472, 4500 4057 INTETL 4604, 4606 4065 INTETM 6273, 6276, 6302 4073 INTETN 6300, 6301, 6304 4101 INTETO 6031, 6034, 6036 4107 INTETP 6021, 6024, 6026 4115 INTETQ 5474, 5503 4123 INTETR 4466, 4522, 4533, 4537 4137 INTETT 5001, 5003, 5014, 5024, 5027, 5033 3752 INTETX 4420, 4422, 4427, 4434, 4436, 4441, 4445, 4453, 4455, 4456, 4462, 4463, 4270, 4273, 4277, 4302, 4307 4311, 4314, 4325, 4344, 4402, 4404, 4411 13432 IRESDU 13161,13176 11355 ITEST1 14414 ITEST3 14260 ITEST4 134 .CHEXI 135 .MODSW 11725 L13130 11671 11737 L22000 11714 11743 L23000 11710 11750 L23090 11747 11751 L23130 11742 12017 L32000 11723 12023 L33000 11717 12030 L33090 12027 12031 L33130 12022 11761 L43130 11670 11535 LA0000 11540,11543,11544,11546,11547,11550,11551,11553,11557,11602,11603,11605,11607,11610,11611,11614 11574 LA0001 11572 11576 LA0002 11574 11615 LA0003 11571,11576,11577 11705 LA0010 11654 11715 LA0015 11653,11705 11720 LA0021 11716 11667 LA0041 11704 11672 LA0044 11656 11676 LA0050 11674 11701 LA0058 11675 11711 LA0072 11707 11731 LA1000 11700 11735 LA1040 11734 11755 LA2000 11713 12035 LA3000 11722,11724 11765 LA4000 11677 11766 LA4010 11736 12002 LA4150 12001 12004 LA4170 12044 12005 LA4180 11760 12016 LA4320 11616,11635 61375 LAMBDA 11235,11237,11242,11621,11622,11623,11637,11640,11641,11643,11644,11645,11650,11662,11666,11702,11727 11740,11744,11750,11753,11756,11763,11766,11772,11773,11775,12000,12003,12006,12007,12011,12015,12020 12024,12030,12033,12036,12042,12043,13453,13464,13472,13500,13501,13502,13503,13504,13506,13507,13510 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 37 POST PROCESSOR ASSEMBLY DATA 13512,13526,13530,13531,13532,13533,13534,13543,13547,13551,13553,20723 10150 LAMBSZ 0,11572,61375,65461 22251 LENGTH 13575,13612,13653,13667 1 LIBTAP 3731 LINECT 14446 LK0000 14161,14531,14617,14645 14447 LK0030 14477,14506,14513,14515,14524,14570,14572,14600,14601,14603,14631,14652,14656 14455 LK0110 14454 14456 LK0120 14455 14457 LK0130 14456 14460 LK0140 14457 14464 LK0180 14463 14465 LK0190 14464 14500 LK0320 14475 14510 LK0430 14563 14511 LK0440 14520,14575,14606 14514 LK0480 14504,14653,14655 14521 LK0570 14500 14527 LK0630 14637,14642 14531 LK0650 14536 14536 LK0700 14533,14535,14542 14537 LK0710 14534 14543 LK0750 14541,14622 14562 LK0900 14632 14564 LK0950 14476 14576 LK1050 14567 14601 LK1100 14577 14607 LK1200 14465,14467 14617 LK1280 14624 14624 LK1330 14621,14623 14625 LK1340 14613 14633 LK1410 14625 14646 LK1470 14614 14653 LK1520 14654 LK1530 14651 14657 LK1610 14451 14701 LK1780 14662 14705 LK1820 14700 14706 LKK000 14665,14670,14673,14701,14703 14713 LKK050 14712 14714 LKK060 14713 14723 LKK130 14721 12465 LWBF1O 24670 LWBF2O 6135 L(112) 7474 6220 L(ADD) 15236,16650,17766 6221 L(ALS) 15355,16016,16734,20416 6222 L(ANA) 16010,20410 6223 L(ARS) 6224 L(BSS) 6427 6225 L(CAL) 7543, 7705,10744 6226 L(CHS) 15243,16655 6227 L(CLA) 7626, 7736,15304,15404,15433,15516,15535,15572,15611,15705,16627,16701,17052,17104,17444,17620,20053 20062,20107,20115,20211,20217,20302,20343,20351,20372,20376,20436,20444,20457,20500 6230 L(CLM) 15325,16716 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 38 POST PROCESSOR ASSEMBLY DATA 6231 L(CLS) 15246,16660,20071,20100,20157,20165 6232 L(COM) 15253 6233 L(CPY) 10502,10513 6234 L(DCT) 7534 6235 L(DED) 10510 6236 L(DVP) 15322,16713 6237 L(FAD) 15232,16035,17060,17116,20430 6240 L(FDP) 15334 6117 L(FEQ) 5541, 5543, 5636, 5772, 6002 6241 L(FMP) 15360 6176 L(FPT) 6150 6242 L(FSB) 15256,17064,17122 6243 L(HPR) 7600 6244 L(LDA) 10077 6245 L(LDQ) 10534,15300,15422,15525,15546,15650,16703,17415,17507,17616,20124,20133,20142,20150,20174,20202,20462 20475,20640 6246 L(LLS) 15330,16013,16721,20413,20465,20503 6247 L(LRS) 15314,16005,16027,16710,20405,20422 6250 L(LXD) 6507, 7742, 7745,10006,10477,15460,15470,15717,15723,17250,17256,17533,17537 6251 L(MPY) 15352,16731 6252 L(MSE) 7532 6120 L(OEQ) 5550 6253 L(ORA) 16032,20425 6254 L(PSE) 7476, 7643 6255 L(PXA) 16227 6256 L(PXD) 6257 L(PZE) 10462,10465,10661,16141,20313 6260 L(QPR) 7753 6261 L(QXD) 7750 6262 L(SLW) 20441,20447 6263 L(STA) 16242 6264 L(STO) 7631,15401,15436,15575,15743,15771,17101,17132,17562,17600,17661,17705,17733,20057,20065,20075,20103 20112,20120,20162,20170,20214,20222,20305,20346,20354,20470,20506,20531 6265 L(STQ) 10530,15417,15551,15741,15767,17560,17576,17657,20130,20136,20145,20153,20177,20205,20643 6266 L(STR) 10525,10537,20310 6267 L(STZ) 7546,17710,17736,20366,20534 6270 L(SUB) 15262,16232,16662 6271 L(SXD) 7206,15452,16536,16542,17244,20631,20652 6272 L(SXQ) 6273 L(TIX) 10505 6274 L(TNZ) 7552 6275 L(TRA) 7372, 7417, 7652, 7756,16042 6276 L(TSX) 10003,10457,10553,10714,15455,15465,15513,15700,16264,16267,16552,17431 6277 L(UFA) 16002,20402 6300 L(XCA) 16546 5157 MAXIMA 11043 7 MBNTAP 15007 MC0000 14735 15012 MC0030 15061 15031 MC0180 15027 15034 MC0210 15032,15056 15046 MC0310 15104,15667,17422 15051 MC0340 15044,15045,15105 15055 MC0380 15047,15054 15057 MC0400 15055 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 39 POST PROCESSOR ASSEMBLY DATA 15060 MC0410 15017,15021,15030 15061 MC0420 15010,15060 15063 MC0440 15040 15065 MC0460 15020 15066 MC0470 15065,15077 15073 MC0520 15071 15077 MC0560 15076 15100 MC0570 15072 10 MCHTAP 11357 MDLST2 11354 11440 MDLST3 5541 MEQUIT 5 MINTAP 6204 MINUS0 7213, 7424 6 MLSTAP 61446,61454,61474 4521 MODECL 4230, 4324, 5630, 6414, 6420, 6466, 7335, 7674, 7675,11033,11072,11222,11352,11425,12113,12123,13712 14255,14324,14411,14423,14640,15123,16274,17010,17463,17511,17761,20707 4234 MRTN77 5516, 7033, 7040, 7444, 7562 11063 MS0415 11034,11035 11076 MS0501 11067,11071 11612 MS1018 11606 11660 MS1033 11657 11226 MS2001 11223,11224 11373 MS321A 11365,11370 11032 MS4007 11630 11207 MS9002 11615 12267 MS9500 12242,12254,12302 12165 MS9506 6165 NGTBIT 16217 4627 NOBETA 4075, 4107, 4117, 4133, 4155, 4205, 4230, 4240, 4254, 4264, 4316, 4326, 4341, 4454, 4477, 4523, 4535 4573 42024 NONEXC 4101 43530 NONXBF 4076 2032 NONXMX 0, 4101,64064,42024 332 NONXSZ 0, 4100,43530 3 NONXTP 0, 4100 42023 NONXWC 11056 NOTOCT 11053 6206 NOXEQR 63636 3743 NXCLOC 6037, 6040, 3763, 3766, 4421, 4423, 4461, 4512 11036 NXTOCT 11055 5556 OCOUNT 5555, 5600, 5642, 5700 11044 OCTERR 63500 4235 OCTL12 6534, 6656 61757 OCTNUM 61516,61640 3745 ONLINE 4504, 7561, 7564,61375,61425 16134 OPENSB 15475,17265 65446 OPWORD 16356,16365,16413 4202 ORGDM1 5274, 4655, 4716, 4756 4206 ORGDM2 5300, 4657, 4661 4245 ORGF13 3734 ORGONE 51160 OTHRBF 0 OTHRSZ 0,51160 10676 OUTPUT 10024,10040 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 40 POST PROCESSOR ASSEMBLY DATA 6635 P BETA 4363, 4645, 6635 73577 P LIST 6437, 3754 4457 P TDOA 4405 4472 P TDOB 4466, 4521, 4526 4502 P TDOC 4476 4505 P TDOD 4464, 4511 4512 P TDOE 4504 4515 P TDOF 4462, 4520 4521 P TDOG 4501, 4513, 4534 4523 P TDOH 4510 4530 P TDOI 4470 4535 P TDOJ 4517 4525 P TDOK 4537 4041 P TIFA 4071 4053 P TIFB 4046 4064 P TIFC 4052, 4126, 4143, 4173, 4223, 4247, 4273, 4335 4070 P TIFD 4001, 4303 4071 P TIFE 4343, 4350 4154 P TRA1 4661 4204 P TRA2 4664 20576 P1B00B 17147 4503 P1DXIT 6202 6270 P1EXIT 6221, 6250 10112 P1PCH3 10112 4652 PADMSK 4073, 4115, 4236, 4262, 4324, 4337, 4427, 4475, 4506, 4565, 4657, 4662 4653 PALL1S 4015, 4021 4654 PALPHA 4043, 4067, 4125, 4142, 4146, 4162, 4164, 4176, 4212, 4214, 4246, 4272, 4277, 4305, 4334, 4373, 4453 4471, 4474, 4543, 4552, 4566, 4634 6306 PASS2I 73666 4642 PBKSPX 3761 14727 PC0000 14720,14722 14732 PC0030 14730 14733 PC0040 14731,14745,14750 14740 PC0100 14737 14741 PC0110 14740 14744 PC0140 14746 PC0160 14744 6122 PCOUNT 5651, 5730, 5737 3734 PEIFNO 6437, 4406 4013 PEQITA 4003 4021 PEQITB 4027 4024 PEQITC 4020 4655 PERASA 4033, 4035 4656 PERASE 4502, 4507, 4514 4625 PERR01 4615 4615 PERROR 4025, 4050 4601 PFINIS 4541, 4563 4430 PFLOW1 4451 4437 PFLOW2 4432 4441 PFLOW3 4413, 4444 4453 PFLOW4 4446 4404 PFLOWA 4031, 4072 4426 PFLOWB 4002, 4456 4431 PFLOWC 4420 4433 PFLOWD 4417, 4436 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 41 POST PROCESSOR ASSEMBLY DATA 4445 PFLOWE 4424, 4440 4447 PFLOWF 4422, 4452 4456 PFLOWG 4435, 4443 4643 PFORVL 3762 4540 PFRETA 4460, 4522 4551 PFRETB 4547, 4600 4555 PFRETC 4550, 4560 4562 PFRETD 4556 4564 PFRETE 4545, 4570, 4576 4576 PFRETF 4567 4577 PFRETG 4572, 4575 22254 PHI(I) 15141,15737,16123,16563,17547,20602 14161 PL0000 14206,14211,14237,14323,14326,14330,14336,14341,14345,14350,14410 14167 PL0060 14166 14170 PL0070 14167 14175 PL0130 14272 14202 PL0135 14244 14207 PL0240 14204,14205,14236,14442 14210 PL0250 14230 14211 PL0260 14262,14265 14212 PL0300 14200 14213 PL0310 14212 14214 PL0320 14213,14225 14215 PL0330 14214 14216 PL0340 14215 14226 PL0420 14222 14231 PL0460 14174 14233 PL0461 14266,14271 14240 PL0465 14232 14245 PL0470 14241 14247 PL0480 14253 14253 PL0520 14250,14252 14262 PL0521 14445 14267 PL0650 14415 14272 PL0680 14173,20705 14305 PL0800 14302,14303 14306 PL0820 14367 14307 PL0830 14304 14320 PL0850 14346 PL0940 14316,14317 14351 PL1000 14276 14352 PL1010 14351 14353 PL1020 14352,14364 14354 PL1030 14353 14355 PL1040 14354 14365 PL1130 14361 14370 PL1200 14312 14371 PL1210 14370 14372 PL1220 14371 14373 PL1230 14404 14374 PL1240 14373 14375 PL1250 14374 14404 PL1330 14372 14405 PL1340 14401 14336 PL1570 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 42 POST PROCESSOR ASSEMBLY DATA 4651 PL(A1) 4430, 4607 4647 PL(D1) 4163, 4213 4650 PL(D2) 4302 13711 PM0000 13716 PM0010 13726 13724 PM0070 13722,13732,13734,14063 13725 PM0080 13706,13724,14025,14031 13727 PM0100 13723 13735 PM0170 13733 13742 PM0240 13741,13756 13743 PM0250 14004,14007 13744 PM0260 13735,13743 13747 PM0290 13746 13750 PM0300 13747 13754 PM0340 13745,14003 13760 PM0390 13757,13766 13761 PM0400 13736,13760 13767 PM0480 13765,14017 14005 PM0640 13754 14006 PM0650 14015 14010 PM0670 14006 14011 PM0680 13737,14010 14020 PM0770 13761,14011 14021 PM0780 14020 14022 PM0790 13744,14021 14041 PM0980 14040,14051 14042 PM0990 14041 14052 PM1070 14042 4640 PNBET1 4627 3772 PNXCPA 3767, 3776 3775 PNXCPB 3770 4646 PNXFLG 4376 4645 POBETA 4416 4657 PPATC1 4154 4662 PPATC2 4204 6175 PROCTR 6464,10506,16233 4353 PSRNXA 3764 4354 PSRNXB 3771, 4357 4362 PSRNXC 4304, 4311, 4365, 4410, 4414 4363 PSRNXD 4307 4366 PSRNXE 4352, 4361, 4403 4370 PSRNXF 4356 3777 PSTPPA 3765 4006 PSTPPB 4004, 4012 4011 PSTPPC 4005 4130 PTIF0A 4063 4136 PTIF0B 4132 4141 PTIF0C 4135 4144 PTIF1A 4062 4153 PTIF1B 4037, 4167, 4171 4160 PTIF1C 4660 4162 PTIF1D 4157 4171 PTIF1E 4151 4174 PTIF2A 4061 4203 PTIF2B 4040, 4217, 4221 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 43 POST PROCESSOR ASSEMBLY DATA 4210 PTIF2C 4663 4212 PTIF2D 4207 4221 PTIF2E 4201 4224 PTIF3A 4060 4233 PTIF3B 4227 4235 PTIF3C 4232 4243 PTIF3D 4237 4245 PTIF3E 4242 4250 PTIF4A 4057 4257 PTIF4B 4253 4261 PTIF4C 4256 4267 PTIF4D 4263 4271 PTIF4E 4266 4274 PTIF5A 4056 4321 PTIF5B 4315 4323 PTIF5C 4320 4331 PTIF5D 4325 4333 PTIF5E 4330 4336 PTIF6A 4055 4344 PTIF6B 4340 4030 PTIFGO 4014, 4017, 4023 4073 PTIFMA 4044 4100 PTIFMB 4074 4102 PTIFMC 4077 4112 PTIFMD 4106 4114 PTIFME 4111 4122 PTIFMF 4116 4124 PTIFMG 4121 4063 PTIFTR 4053 4644 PTRADL 4036 65436 P(CNTR 15426,15437,15440,15442,15545,15552,15553,15555,15571,15576,15577,15601 6123 QCOUNT 5645, 5727 13436 R 0 11270,11276 13445 R 500 13447 13447 R 700 13440,13446 13453 R 1000 13462 13462 R 1700 13451,13461 13463 R 1800 13471,13476,13513 13472 R 2600 13470 13477 R 3200 13475 13514 R 4200 13463 13516 R 4500 13525 13524 R 5100 13517 13525 R 5200 13441,13524 13526 R 5300 13537 13536 R 6100 13527,13535 13537 R 6200 13452,13536 13543 R 6400 13561 13556 R 7500 13555 13561 R 7800 13540,13560 5611 RESIDU 5252, 5267, 7574, 7577, 7612, 6637, 7253,11467,11515,13160,13177 257 RGRGSZ 0,11220,71557 12111 ROYCNV 11063 7201 SAEXIT 7110 43144 SBDFBF 4054,61375 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 44 POST PROCESSOR ASSEMBLY DATA 4054 SBDFCN 6451, 7667 235 SBDFMX 0, 4057 235 SBDFSZ 0, 4056,43144 3 SBDFTP 0, 4056 10112 SCAN00 6507 65461 SCRIPL 13550,13552,13554,13563,13601,13617,13620,13622,13625,13633,13636,13643,13645,13652,13656,13664,13674 13676,13677,13700,13701,13702,13716,13727,13750,13762,13767,13770,13771,13772,13773,13774,13775,13776 13777,14000,14001,14002,14012,14022,14026,14032,14034,14036,14043,14044,14045,14046,14047,14050,14053 14055,14057,14060,14062,14074,14077,14100,14112,14121,14132,14140,14150,14156,14162,14170,14175,14210 14216,14221,14226,14233,14242,14245,14270,14306,14307,14342,14344,14347,14355,14360,14365,14375,14400 14405,14407,14416,14424,14434,14447,14452,14471,14472,14502,14505,14510,14512,14514,14517,14521,14526 14527,14532,14537,14543,14544,14545,14546,14547,14550,14551,14552,14554,14555,14556,14557,14560,14565 14571,14574,14602,14605,14610,14615,14620,14626,14630,14634,14644,14647,14661,14666,14671,14674,14676 14705,14707,14715,14723,14726,14733,14741,15013,15024,15035,15066,15070,15101,15136,15152,15154,15204 15223,15375,15413,15445,15500,15510,15522,15531,15540,15565,15640,15660,15665,15671,15707,15730,16074 16102,16110,16112,16137,16150,16206,16220,16261,16272,16305,16312,16324,16362,16364,16366,16560,16573 16615,16641,16741,17007,17074,17110,17165,17172,17214,17237,17275,17327,17341,17405,17417,17447,17455 17474,17476,17542,17567,17602,20330,20516,20520,20672,20676,20704,65435 4064 SCRPSZ 0,65461 151 SGMASZ 0, 4176,24671 4177 SIG1IX 10775,12104,16472 13435 SIG1ST 20604 24671 SIGMA1 4176,13435 3 SINTAP 10076 SLORCM 7645,10065 11 SNPTAP 3753 SOURCE 4605, 4606, 4614 5144 SPECOP 14172,14474,14612,15026,15206,16104,16617,16743 5342 SR6DC1 6464, 7026, 7035, 7113, 7122, 7155, 7163 5345 SR6DC2 5364 5352 SR6DC3 5350 5364 SR6DC4 5351 5350 SR6XR2 5342, 5366 4351 SRNONX 4100, 4112, 4122, 4137, 4160, 4210, 4233, 4243, 4257, 4267, 4321, 4331, 4345 12076 SS000X 11373,11452 6615 SS0012 6632 6620 SS0013 6617 6621 SS0014 6620 6623 SS0015 6626 6626 SS0016 6624 6634 SS0017 6630 6642 SS0018 6641 6663 SS0045 6612 16304 STACTR 16211,16221,16237 6677 STOP49 6633, 6673 43401 STOPBF 4104 2032 STOPMX 0, 4107,64064,37771 127 STOPSZ 0, 4106,43401 3 STOPTP 0, 4106 37770 STOPWC 3744 STPLOC 6027, 6030, 3777, 4000, 4064, 4066, 4274, 4276, 4404, 4425, 4463, 4503, 4544, 4562 6214 STRSTR 11317,12010,15620,20673,20677 43144 SUBDEF 4057,61375 22256 SYMBOL 6607, 6616, 6653, 6661, 6674, 6734, 6741, 6767 65447 SYMWRD 16360,16367,16376,16434,16476 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 45 POST PROCESSOR ASSEMBLY DATA 122 SYSACC 114 SYSCEM 155 SYSCK1 156 SYSCK2 120 SYSCOR 144 SYSCRD 102 SYSCUR 102 124 SYSCYD 101 SYSDAT 115 SYSDMP 77777 SYSEND 132 SYSGET 117 SYSIDR 151 SYSIN1 152 SYSIN2 116 SYSIOX 133 SYSJOB 104 SYSKEY 140 SYSLB1 141 SYSLB2 142 SYSLB3 143 SYSLB4 121 SYSLDR 3720 SYSORG 147 SYSOU1 150 SYSOU2 146 SYSPCH 123 SYSPID 106 SYSPOS 153 SYSPP1 154 SYSPP2 145 SYSPRT 103 SYSRET 113 SYSRPT 126 SYSSLD 105 SYSSWS 1 SYSTAP 4511, 6311, 6410,61676 127 SYSTCH 100 SYSTRA 131 SYSTWT 111 SYSUAV 110 SYSUBC 112 SYSUCW 107 SYSUNI 157 SYSUT1 160 SYSUT2 161 SYSUT3 162 SYSUT4 12522 TABLSA 0 5615 TABLSB 0 12353 TABLSC 0 517 TABLSD 0 3320 TABLSE 0 3651 TABLSF 0 4064 TABLSG 0 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 46 POST PROCESSOR ASSEMBLY DATA 46706 TABLSH 0 5612 TABNUM 4414, 4442, 4473 24671 TABORG 0, 6237, 7604, 7636, 7653, 7710, 7717, 7755,16015,24671,12465,24670 2 TABTAP 0, 4411, 4446, 4451, 4461, 4765, 4770, 5033, 6043, 3762 65450 TAGPRT 16213,16466 65445 TAGWRD 16354,16363,16370,16456,16457,16520,20006 51160 TAU1BF 4161, 4162 4163 TAU1IX 7171 536 TAU1MX 0,64064,51160 536 TAU1SZ 0, 4162,51160 51160 TAU1TB 52454 TAU2BF 4165, 4166 4167 TAU2IX 7147 473 TAU2MX 0,64064,52454 473 TAU2SZ 0, 4166,52454 52454 TAU2TB 55030 TAU3BF 4171, 4172 4173 TAU3IX 7071 406 TAU3MX 0,64064,55030 406 TAU3SZ 0, 4172,55030 55030 TAU3TB 5370 TBSR00 4153, 4163, 4167, 4173, 4177, 4203, 4207, 4213, 4217, 4223, 4232 5401 TBSR01 5375, 5403 5421 TBSR02 5407 5422 TBSR05 5450 5426 TBSR06 5420, 5423 5427 TBSR07 5405, 5431 5430 TBSR08 5413 5435 TBSR09 5377 5440 TBSR10 5421 5442 TBSR11 5452 5444 TBSR12 5406, 5453 5445 TBSR13 5416 5452 TBSR14 5411 5453 TBSR15 5447 5456 TBSR16 5455 5460 TBSR17 5437, 5456 5462 TBSR18 5370, 5371, 5372 5451 TBSR19 5443 5450 TBSR93 5446 5423 TBSR95 5414 3740 TDOLOC 5255, 5256, 4457, 4465 66477 TDOTAB 3763 45356 TEIFBF 3752 5101 TEIFMX 0, 3755 24671 TEIFNO 3755,61375 1015 TEIFSZ 0, 3754,45356 3 TEIFTP 0, 3754 5473 TESTA0 6474, 7364, 7405, 7443, 7533, 7250,10174 5476 TESTA1 5474 5501 TESTB0 7304, 7312, 7402, 7431, 7474, 7551, 7360,11212 5504 TESTB1 5502 5507 TESTC0 7457, 7537, 7763 5512 TESTC1 5510 5515 TESTD0 7554, 7262, 7324, 7370, 7403, 7470, 7521, 7624, 7635, 7656, 7663 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 47 POST PROCESSOR ASSEMBLY DATA 5521 TESTE0 7260, 7370, 7411, 7576, 7340, 7433 5524 TESTE1 5522 5525 TESTF0 7425, 7501,21022 5530 TESTF1 5526 5465 TESTFX 7477, 7526, 6634, 6722, 6743, 7236, 7304, 7400, 7621,10257,10305,10672,11342,11415 5531 TESTG0 7241, 7334, 7376, 7457, 7463, 7514 5534 TESTG1 5532 5535 TESTH0 5165 5541 TESTI0 5215 5473 TEST.. 4471 TETFLG 4446, 6265, 7745, 6411 62411 TFGOWC 44063 TIFGBF 3766 2032 TIFGMX 0, 3771,64064,62412 62412 TIFGOT 3771 406 TIFGSZ 0, 3770,44063 3 TIFGTP 0, 3770 3736 TIFLOC 5147, 5150, 5425, 4030, 4041, 4047, 4103, 4114, 4130, 4147, 4177, 4224, 4235, 4250, 4261, 4312, 4323 4336 4 TINTAP 73600 TIPTOP 73600 4520 TLABEL 6314, 6426, 6505, 7200, 6344, 6360, 6372,61701 7 TMFACT 0 10 TNFACT 0 77677 TOPMEM 73577 TOPTAB 0, 6136, 6137,37770 36251 TRADBF 3774 1553 TRADMX 0, 3777, 7423,64064,60636, 4644 332 TRADSZ 0, 3776,36251 60636 TRADTB 3777 3 TRADTP 0, 3776 60635 TRADWC 5075 TRAILR 6210 20316 TRAPCL 16555,17526,20275,20300,20576 11311 TRBLKA 11136,20777 11341 TRBLKB 11147 3737 TRDLOC 5230, 5233, 4032, 4034, 4412, 4437 37771 TSTOPS 4107 61761 UPPAGE 61746 6124 WCOUNT 5643, 5646, 5712, 5760, 5761, 5762 15030 XASAVE 15012,15057,15064 15044 XBSAVE 15063,15100 65451 XCAIND 15151,15153,15164,15733,16132,20601 5251 XCHCTR 5234, 5240, 5266, 7630, 6640, 6642,11466,11516,13162,13201 5671 XCOUNT 5554, 5601, 5605, 5632, 5672, 5711, 5736, 5745 3750 XEQCTR 6203, 6332, 6334, 6323, 6326 65440 XRSAVE 15374,15453,15461,17161,17245,17251 6125 YCOUNT 5602, 5603, 5670, 5676, 5703, 5757 6126 ZCOUNT 5677, 5750 702 (ACTIV 703 (ACTVX 720 (BCD5R 721 (BCD5X 10000 (CHKU) 6245, 6376 741 (CHPSW SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 48 POST PROCESSOR ASSEMBLY DATA 724 (CHXAC 750 (CHXSP 717 (CKWAT 746 (COMMD 736 (COMMM 722 (CVPRT 73662 (DATE) 716 (DECVA 715 (DECVD 20317 (DFAD) 20225 20322 (DFDP) 20247 20321 (DFMP) 20241 20320 (DFSB) 20233 73645 (DGLD) 73603 (DIAG) 4234, 4235, 4236, 4237, 4245, 4246, 4247, 4250, 4251, 4252, 4253, 4255, 4257, 3753, 3755, 3756 710 (ENBSW 73665 (ENDS) 732 (ETTXI 743 (FDAMT 73660 (FGBX) 6152,61407 747 (IBCDZ 20324 (IFDP) 20263 20323 (IFMP) 20255 740 (IOXSI 73667 (LBLD) 73652 (LIBT) 73661 (LNCT) 61412,61443,61503 73600 (LOAD) 4501, 6050, 4603 73666 (LODR) 73666 737 (LTPOS 73644 (MECL) 73664 (MSLN) 6132, 4427 704 (NDATA 705 (NDSLX 712 (PAUSE 711 (PAWSX 3733 (PCBK) 73651 (PGCT) 61413,61451 73614 (PNCH) 73611 (PRNT) 61427,61470 706 (PROUT 707 (PUNCH 40014 (RBEC) 61415 40004 (RBEP) 6156 40010 (RBNC) 4324, 6011 40000 (RBNP) 6154, 6307, 6331 727 (RCHXI 726 (RCTXI 40016 (RDEC) 40006 (RDEP) 6345 40012 (RDNC) 40002 (RDNP) 6164 73622 (REST) 73672 (SCHU) 6351,61420, 4332 744 (SDCXI SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 2/07/05 PAGE 49 POST PROCESSOR ASSEMBLY DATA 73643 (SECL) 61514 20010 (SKBC) 20000 (SKBP) 4510, 6216, 6310, 6407, 6417,61405,61533,61675, 4337, 4774, 6016, 3761 20012 (SKDC) 20002 (SKDP) 6144,61512,61753 1000 (SNAP) 73663 (SNCT) 73617 (STAT) 745 (STCXI 73626 (STDN) 723 (STOPD 713 (STOPX 10003 (SUAV) 10002 (SUNV) 714 (SYMUN 73606 (TAPE) 4267, 4443, 4507, 6143, 6163, 6207, 6212, 6215, 6244, 6262, 6307, 6335, 6344, 7742, 6306, 6330, 6363 6375, 6406, 6413, 6416,61400,61404,61414,61444,61452,61463,61476,61506,61511,61532,61536,61566,61674 61711,61717,61735, 4323, 4336, 4407, 4434, 4444, 4447, 4457, 4652, 4763, 4766, 4773, 5031, 6010, 6015 6041, 3760 730 (TCOXI 733 (TEFXI 4000 (TPER) 6364 735 (TRAPS 734 (TRAPX 731 (TRCXI 742 (TRPSW 725 (URRXI 40011 (WBNC) 4444, 7743,61720,61736 40001 (WBNP) 4270, 6210, 6263, 6336,61537,61567,61712,61751, 4410, 4445, 4460, 4653, 4764, 5032 40013 (WDNC) 61445,61464 40003 (WDNP) 61453,61477 40015 (WEFC) 40005 (WEFP) 6213, 6414,61507,61752, 4435, 4450, 4767, 6042 40031 (WROW) NO ERROR IN ABOVE ASSEMBLY. * 32K 709/7090 FORTRAN SECTION TWO F2A00000 * FAP F2A00020 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 1 BLOCK A. SST FORTRAN $F2A00070 * SECTION TWO OF 709/7090 32K FORTRAN, BLOCK A. F2A00080 HEAD 1 F2A00090 ABS $F2A00100 00102 ORG SYSCUR $F2A00110 BINARY CARD NO. 9F180000 00102 112601100000 BCI 1,9F1800 $F2A00120 73666 ORG (LODR) $F2A00121 BINARY CARD NO. 9F180001 73666 1 00264 0 04022 TXI TAP00,,180 F2A00130 PERFORMS THE PRELIM DO NEST STRUCTURE ANALYSIS F2A00150 REQUIRED FOR THE SUCCEEDING BLOCKS. IT AXSIGNS F2A00160 LEVEL NUMBERS AND THE POSSIBILITY OF CARRY. F2A00170 TRANSFERS OUT OF THE RANGE OF DOS ARE NOTED AND ENTERED F2A00180 INTO TABLE TRALEV. IF THERE IS A VARIABLE F2A00190 PARAMETER OF A DO ITS HIGHEST LEVEL OF DEFINITION F2A00200 IS ASSIGNED. F2A00210 FINALLY, A SEARCH IS MADE TO DETERMINE F2A00220 WHETHER A DO INDEX COUNTER IS F2A00230 NECESSARY TO KEEP CURRENT THE VALUES F2A00240 OF THE DO INDEX. F2A00250 73577 TOP SYN BOTIOP-1 UPPERMOST CORE FOR SEC. 2. F2A00260 00007 M SYN 7 M/N IS RATIO OF TABLE SIZES. $F2A00270 00010 N SYN 8 TO NORMAL 32 K TABLE SIZE $F2A00280 00001 FTAPE1 SYN SYSTAP F2A00290 00002 FTAPE2 SYN FINTAP F2A00300 00003 FTAPE3 SYN SINTAP F2A00310 00004 FTAPE4 SYN TINTAP F2A00320 73600 ENDCOR SYN TOP+1 LAST POSIT IN CORE +1 F2A00330 73600 TDOZ SYN ENDCOR DEFINITIONS OF TABLE F2A00340 66477 TDO SYN TDOZ-600*M/N*5 POSITIONS IN MEMORY. F2A00350 66476 TDOWC SYN TDO-1 WHEN Z FOLLOWS THE TABLE F2A00360 66476 TIFZ SYN TDOWC NAME, THE LOCATION IS THE F2A00370 62412 TIFGO SYN TIFZ-1200*M/N*2 LAST LOC +1 IN THE TABLE. F2A00380 62411 TIFGWC SYN TIFGO-1 WHEN WC FOLLOWS THE TABLE F2A00390 62411 TRADZ SYN TIFGWC NAME, THE LOCATION IS THAT F2A00400 60636 TRAD SYN TRADZ-1000*M/N OF THE TABLE WORD COUNT. F2A00410 60635 TRADWC SYN TRAD-1 F2A00420 60075 FIXCN SYN TRADWC-400*M/N-2 F2A00430 60074 FIXWC SYN FIXCN-1 F2A00440 55030 TAU3 SYN FIXWC-300*M/N*6 F2A00450 52454 TAU2 SYN TAU3-360*M/N*4 F2A00460 51160 TAU1 SYN TAU2-400*M/N*2 F2A00470 51156 DRMTGZ SYN TAU1-2 F2A00480 46366 DMTGTB SYN DRMTGZ-400*M/N*4 F2A00490 46365 DMTGWC SYN DMTGTB-1 F2A00500 46365 4VALZ SYN DMTGWC F2A00510 37511 FORVAL SYN 4VALZ-2000*M/N*2 F2A00520 37510 4VALWC SYN FORVAL-1 F2A00530 37510 DOTGZ SYN 4VALWC F2A00540 26323 DOTAG SYN DOTGZ-600*M/N*9 F2A00550 26322 DOTGWC SYN DOTAG-1 F2A00560 26322 4VARZ SYN DOTGWC F2A00570 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 2 BLOCK A. 14120 FORVAR SYN 4VARZ-3000*M/N*2 F2A00580 14117 FRVRWC SYN FORVAR-1 F2A00590 34440 FORTZ SYN DOTGZ-200*M/N*9-1 F2A00600 22236 FORTAG SYN FORTZ-3000*M/N*2 F2A00610 22235 FRTGWC SYN FORTAG-1 F2A00620 73600 TLTZ SYN ENDCOR TRALEV BUFFER USED AFTER TDO F2A00630 67514 TRALEV SYN TLTZ-2400*M/N IS EXPANDED AND MOVED F2A00640 67513 TRLVWC SYN TRALEV-1 TO DOTAG. F2A00650 14115 RTTBNR SYN FRVRWC-2 F2A00660 14114 RT90 SYN RTTBNR-1 F2A00670 HEAD 0 F2A00680 00007 M SYN 1$M F2A00690 00010 N SYN 1$N F2A00700 BLOCK ONE COMMON AREA. CELLS TO BE SHARED WITH LATER BLOCKS. F2A00710 03746 ORG BOTTOM+10 TEN INFO CELLS BELOW ORG FOR SEC. 3.F2A00720 BINARY CARD NO. 9F180002 03746 1 00000 0 73603 ERRORM TXI (DIAG),,0 MACHINE ERROR HAS OCCURRED. F2A00730 03747 1 75444 0 73603 ERROR1 TXI (DIAG),,-1244 4.NESTS WRONG OR F2A00740 03750 0 00000 0 73577 PZE 1$LIST A HIGHER THAN B. F2A00750 03751 1 77316 0 73603 ERROR2 TXI (DIAG),,-306 5.N3 OF DO EQUALS ZERO. F2A00760 03752 0 00000 0 37510 PZE 1$DOTGZ F2A00770 03753 1 77054 0 73603 ERROR3 TXI (DIAG),,-468 6.TRA TO DO OF LEVEL OVER 20. F2A00780 03754 1 77033 0 73603 ERROR4 TXI (DIAG),,-485 7.TRANSFER INTO A DO FROM F2A00790 03755 0 00000 0 66476 PZE 1$TIFZ OUTSIDE ITS RANGE. F2A00800 03756 1 76461 0 73603 ERROR5 TXI (DIAG),,-719 8.N1,2,OR 3 REDEFINED INSIDE DO. F2A00810 03757 1 77154 0 73603 ERROR6 TXI (DIAG),,-404 9.MORE THAN 200 DOS IN A NEST. F2A00820 03760 1 76246 0 73603 ERROR7 TXI (DIAG),,-858 10.TABLE HAS OVERFLOWED. F2A00830 03761 1 76023 0 73603 ERROR8 TXI (DIAG),,-1005 11.INTERMEDIATE TABLE IS FULL. F2A00840 03762 0 00000 0 34441 PZE 2$DOTAG F2A00850 03763 1 76742 0 73603 ERROR9 TXI (DIAG),,-542 12.CORE TABLE IS FULL. F2A00860 03764 1 45602 0 73603 ERRO10 TXI (DIAG),,-13438 13.FIXCON HAS OVERFLOWED. F2A00870 03765 1 45661 0 73603 ERRO11 TXI (DIAG),,-13391 14.TAGTAG HAS OVERFLOWED. F2A00880 03766 1 45510 0 73603 ERRO12 TXI (DIAG),,-13496 15.TOO MANY DOS ENDING AT THE F2A00890 03767 0 00000 0 11665 PZE 5$VCTR SAME STATEMENT. F2A00900 03770 1 77771 0 73603 ERRO13 TXI (DIAG),,-7 DOFILE HAS OVERFLOWED. F2A00910 03771 0 00000 0 42557 PZE 5$DOTAG F2A00920 03772 1 77770 0 73603 ERRO14 TXI (DIAG),,-8 TRALEV TOO LARGE. F2A00930 03773 0 77777 0 00000 REWIND PZE ,,-1 F2A00940 BINARY CARD NO. 9F180003 03774 0 12202 0 00000 MAXFTG PZE ,,3000*M/N*2 MAX SIZE FORTAG. F2A00950 03775 0 06654 0 00000 MAXFVL PZE ,,2000*M/N*2 MAX SIZE FORVAL. F2A00960 03776 0 11165 0 00000 MAXDTG PZE ,,600*M/N*9 MAX SIZE DOTAG. F2A00970 03777 0 00000 0 00000 DORCCT PZE COMMON CELL TO CARRY F2A00980 COUNT OF DOTAG B RECORDS. F2A00990 04000 +000000077777 ADDMSK OCT 77777 F2A01000 04001 +077777000000 DECMSK OCT 77777000000 F2A01010 04002 +200000000000 BITONE OCT 200000000000 F2A01020 04003 +100000000000 BITTWO OCT 100000000000 F2A01030 HEAD 1 F2A01040 PROGRAM CONSTANTS F2A01050 04004 ORG BITTWO+1 F2A01060 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 3 BLOCK A. BINARY CARD NO. 9F180004 04004 0 00000 0 00000 L(0) 0,0,0 F2A01070 04005 0 00001 0 00000 L(1) 0,0,1 F2A01080 04006 0 00003 0 00000 L(3) 0,0,3 F2A01090 04007 0 04064 0 00000 MAXTIF PZE ,,1200*M/N*2 MAX SIZE TIFGO. F2A01100 04010 0 12202 0 00000 MAXFVR PZE ,,3000*M/N*2 MAX SIZE FORVAR. F2A01110 04011 0 05101 0 00000 MAXTDO PZE ,,600*M/N*5 MAX SIZE TDO. F2A01120 04012 -0 00000 0 00000 L(MZ) MZE F2A01130 04013 +077777077777 DECADD OCT 77777077777 F2A01140 04014 +000000700000 TAGMSK OCT 700000 F2A01150 04015 -377777477777 NCMSK OCT -377777477777 F2A01160 04016 +000000100000 CR1 OCT 100000 F2A01170 04017 +000000200000 CR2 OCT 200000 F2A01180 04020 0 00000 0 00000 TBCHK PZE F2A01190 04021 0 00000 0 00000 PZE F2A01200 BEGIN BLO CK ONE. F2A01210 04022 0760 00 0 00140 TAP00 SLF ALL LIGHTS OFF. F2A01220 04023 0760 00 0 00142 SLN 2 TRALEV LIGHT ON. F2A01230 04024 0760 00 0 00012 DCT F2A01240 04025 0761 00 0 00000 NOP F2A01250 04026 0500 00 0 04007 CLA MAXTIF COMPUTE NEXT F2A01260 04027 0402 00 0 62411 SUB TIFGWC UNUSED INDEX FOR F2A01270 04030 0622 00 0 62411 STD TIFGWC TIFGO, AND STORE. F2A01280 04031 0500 00 0 04011 CLA MAXTDO COMPUTE NEXT UNUSED F2A01290 BINARY CARD NO. 9F180005 04032 0402 00 0 66476 SUB TDOWC INDEX FOR TDO, F2A01300 04033 0622 00 0 66476 STD TDOWC AND STORE. F2A01310 04034 -0534 00 1 66476 LXD TDOWC,1 LOAD XR AND F2A01320 04035 -3 05100 1 04042 TXL TAP15,1,600*M/N*5-1 TEST FOR EMPTY TDO. F2A01330 04036 0760 00 0 00143 SLN 3 TDO IS EMPTY, SET F2A01340 04037 0500 00 0 03776 CLA MAXDTG SDNSE LIGHT, STORE F2A01350 04040 0622 00 0 26322 STD DOTAG-1 UNUSED INDEX F2A01360 04041 0020 00 0 05110 TRA TS4VAL VALUE, AND TRANSTER. F2A01370 04042 -0634 00 1 04057 TAP15 SXD TAP35,1 THIS ROUTINE F2A01380 04043 -0534 00 1 04011 LXD MAXTDO,1 MOVES FIVE-WORD F2A01390 04044 -0534 00 2 03776 LXD MAXDTG,2 TDO ENTRIES F2A01400 04045 0774 00 4 00005 TAP20 AXT 5,4 TO DOTAG F2A01410 04046 0500 00 1 73600 TAP21 CLA TDOZ,1 AND EXPANDS TO F2A01420 04047 0601 00 2 37510 STO DOTGZ,2 A NINE-WORD PER F2A01430 04050 1 77777 1 04051 TXI *+1,1,-1 ENTRY TABLE. F2A01440 04051 1 77777 2 04052 TXI *+1,2,-1 F2A01450 04052 2 00001 4 04046 TIX TAP21,4,1 F2A01460 04053 0774 00 4 00004 AXT 4,4 F2A01470 04054 0600 00 2 37510 TAP30 STZ DOTGZ,2 ZERO OUT FOUR F2A01480 04055 1 77777 2 04056 TXI *+1,2,-1 WORDS AFTER F2A01490 04056 2 00001 4 04054 TIX TAP30,4,1 EACH TDO. F2A01500 04057 3 00000 1 04045 TAP35 TXH TAP20,1,** DEC. CONTAINS LAST TDO+1 F2A01510 BINARY CARD NO. 9F180006 04060 -0634 00 2 26322 SXD DOTAG-1,2 SAVE UNUSED INDEX. F2A01520 04061 0020 00 0 04062 TRA MR00 F2A01530 MROO COMPUTES LEVEL, X, CARRY BITS. F2A01540 04062 -0534 00 1 26322 MR00 LXD DOTAG-1,1 INITIALIZE TEST F2A01550 04063 -0634 00 1 04141 SXD MR70,1 INSTRUCTION. F2A01560 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 4 BLOCK A. 04064 -0534 00 1 03776 LXD MAXDTG,1 INITIALIZE XRA TO MAX DOTAG. F2A01570 04065 0500 00 0 04005 MR05 CLA L(1) INITIALIZE LEVEL TO ONE F2A01580 04066 -0734 00 2 00000 MR10 PDX 0,2 PUT LEVEL IN XRB F2A01590 04067 0601 00 1 37515 STO DOTGZ+5,1 STORE LEVEL IN L WORD F2A01600 04070 0500 00 1 37510 CLA DOTGZ,1 INSPECT TAG OF FIRST WORD. F2A01610 04071 -0634 00 4 04076 SXD MR14,4 F2A01620 04072 0734 00 4 00000 PAX 0,4 F2A01630 04073 0622 00 0 04074 STD MR12 F2A01640 04074 3 00000 4 04077 MR12 TXH MR15,4,0 F2A01650 04075 0020 00 0 05646 TRA ERBETA F2A01660 04076 0 00000 0 00000 MR14 PZE F2A01670 04077 -0534 00 4 04076 MR15 LXD MR14,4 F2A01680 04100 -0320 00 0 04014 ANA TAGMSK IF ZERO( TRA TO MR20) F2A01690 04101 0100 00 0 04105 TZE MR20 IF NOT ZERO( PUT BIT F2A01700 04102 0500 00 0 04003 CLA BITTWO IN L WORD FOR X NOT F2A01710 04103 -0602 00 1 37515 ORS DOTGZ+5,1 COMPUTABLE AND GO TO F2A01720 04104 0020 00 0 04136 TRA MR60 END. F2A01730 04105 0500 00 1 37513 MR20 CLA DOTGZ+3,1 COMPUTE X AND XTORE IN F2A01740 BINARY CARD NO. 9F180007 04106 0402 00 1 37512 SUB DOTGZ+2,1 L WORD F2A01750 04107 0400 00 1 37514 ADD DOTGZ+4,1 F2A01760 04110 0765 00 0 00043 LRS 35 F2A01770 04111 0221 00 1 37514 DVP DOTGZ+4,1 F2A01780 04112 0760 00 0 00012 DCT F2A01790 04113 0074 00 4 03751 TSX ERROR2,4 SOURCE PROGRAM ERROR. F2A01800 04114 0200 00 1 37514 MPY DOTGZ+4,1 F2A01810 04115 0763 00 0 00043 LLS 35 F2A01820 04116 0621 00 1 37515 STA DOTGZ+5,1 F2A01830 04117 -3 00001 2 04136 TXL MR60,2,1 IF L IS ONE( SKIP CARRY TEST) F2A01840 04120 0500 00 4 37510 CLA DOTGZ,4 OBTAIN NEXT BACK SUBNEST F2A01850 04121 0771 00 0 00017 ARS 15 DO( FIRST WORD. IN SPECT TAG F2A01860 04122 0760 00 0 00001 LBT FOR VARIABLE N3) IF NOT F2A01870 04123 0020 00 0 04125 TRA MR30 0) VARIABLE( CONTINUE WITH MR30, F2A01880 04124 0020 00 0 04136 TRA MR60 1) OTHERWISE GO TO END. F2A01890 04125 0500 00 4 37510 MR30 CLA DOTGZ,4 OBTANN FIRST WORD OF NEXT F2A01900 04126 -0320 00 0 04013 ANA DECADD BACK SUBNEST DO, REMOVE F2A01910 04127 0400 00 0 04005 ADD L(1) TAG, AND ADD ONE TO ALPHA. F2A01920 04130 0402 00 1 37510 SUB DOTGZ,1 SUB 1ST WD OF CURRENT DO F2A01930 04131 -0100 00 0 04134 TNZ MR40 (TAG IS ZERO). IF RESULT IS F2A01940 04132 0500 00 0 04016 CLA CR1 ZERO, CARRY IS TYPE ONE, F2A01950 04133 0020 00 0 04135 TRA MR50 IF NOT ZERO, CARRY IS TYPE F2A01960 BINARY CARD NO. 9F180008 04134 0500 00 0 04017 MR40 CLA CR2 TWO. INDICATE TYPE IN F2A01970 04135 -0602 00 1 37515 MR50 ORS DOTGZ+5,1 L WORD OF CURRENT DO. F2A01980 04136 -0754 00 1 00000 MR60 PXD 0,1 MAKE CURRENT DO NEXT BACK F2A01990 04137 -0734 00 4 00000 PDX 0,4 SUBNEST DO. F2A02000 04140 1 77767 1 04141 TXI MR70,1,-9 TAKE NEXT DO IN DOTAG. F2A02010 04141 -3 00000 1 05661 MR70 TXL ERTST,1,0 NO MORE DOS, EXIT TO TEST IF ERRORS F2A02020 04142 0500 00 1 37510 CLA DOTGZ,1 OBTAIN 1ST WD OF NEW DO. F2A02030 04143 -0320 00 0 04000 ANA ADDMSK OBTAIN BETA F2A02040 04144 0601 00 0 04171 STO MRES AND SAVE F2A02050 04145 0500 00 4 37510 MR75 CLA DOTGZ,4 OBTAIN BETA OF XRC DO, F2A02060 04146 -0320 00 0 04000 ANA ADDMSK AND SUBTRCT NEW BETA. F2A02070 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 5 BLOCK A. 04147 0601 00 0 04172 STO MRES1 F2A02080 04150 0402 00 0 04171 SUB MRES IF NOT NEGATIVE, XRC DO F2A02090 04151 -0120 00 0 04156 TMI MR80 CONTAINS NEW DO. OTHERWISE, TRA. F2A02100 04152 0500 00 4 37515 CLA DOTGZ+5,4 XRC CONTAINS NEW DO. F2A02110 04153 -0320 00 0 04001 ANA DECMSK OBTAIN LEVEL OF XRC DO, F2A02120 04154 0400 00 0 04005 ADD L(1) ADD ONE, STORE IN L. F2A02130 04155 0020 00 0 04066 TRA MR10 GO TO MRIO F2A02140 04156 0500 00 1 37510 MR80 CLA DOTGZ,1 F2A02150 04157 -0320 00 0 04001 ANA DECMSK F2A02160 04160 0771 00 0 00022 ARS 18 F2A02170 04161 0340 00 0 04172 CAS MRES1 F2A02180 BINARY CARD NO. 9F180009 04162 0020 00 0 04165 TRA MR85 ALPHA(XRA) GREATER THAN BETA(XRC) F2A02190 04163 0020 00 0 05626 TRA ERLIST F2A02200 04164 0020 00 0 05626 TRA ERLIST F2A02210 04165 0500 00 4 37515 MR85 CLA DOTGZ+5,4 F2A02220 04166 -0734 00 2 00000 PDX 0,2 NEWDO. IF XRL DO IS OF F2A02230 04167 -3 00001 2 04065 TXL MR05,2,1 LEVEL ONE, START NEW NEST F2A02240 04170 1 00011 4 04145 TXI MR75,4,9 BY TRA TO MR05. ELSE TRA MR75. F2A02250 04171 0 00000 0 00000 MRES PZE F2A02260 04172 0 00000 0 00000 MRES1 PZE F2A02270 FLOW, TRANSFER ANALYSIS. F2A02280 04173 -0534 00 4 62411 FLOW LXD TIFGO-1,4 TEST FOR EMPTY TIFGO F2A02290 04174 3 04063 4 04630 TXH SV00,4,1200*M/N*2-1 TEST FOR EMPTY TIFGO. F2A02300 04175 -0534 00 1 26322 LXD DOTAG-1,1 INITIALIZE F2A02310 04176 -0634 00 1 04214 SXD FL030,1 TEST F2A02320 04177 -0634 00 4 04234 SXD FL060,4 INSTRUCTIONS F2A02330 04200 -0634 00 1 04551 SXD ADL60,1 F2A02340 04201 -0634 00 1 04424 SXD INC40,1 F2A02350 04202 -0634 00 1 04477 SXD RNC70,1 F2A02360 04203 0774 00 1 00000 AXT 0,1 INITIALIZE TRALEV F2A02370 04204 -0634 00 1 04613 SXD TLT50,1 INDEX VALUE F2A02380 04205 -0534 00 4 04007 FLO10 LXD MAXTIF,4 INITIALIZE F2A02390 04206 -0634 00 4 04627 SXD TIFX,4 CURRENT TIFGO INDEX F2A02400 04207 -0534 00 1 03776 LXD MAXDTG,1 INITIALIZE XRA, DOTAG IX F2A02410 BINARY CARD NO. 9F180010 04210 0500 00 1 37515 FL015 CLA DOTGZ+5,1 INITIALIZE XRA, DOTAG IX F2A02420 04211 -0734 00 2 00000 PDX 0,2 AND F2A02430 04212 -3 00001 2 04216 TXL FL040,2,1 TRA IF LEVEL ONE. IF NOT F2A02440 04213 1 77767 1 04214 FL020 TXI FL030,1,-9 LEVEL ONE, FIND NEXT F2A02450 04214 3 00000 1 04210 FL030 TXH FL015,1,0 LEVEL ONE, IF ANY. F2A02460 04215 0020 00 0 04306 TRA FLOEND F2A02470 04216 -0634 00 1 04616 FL040 SXD BNX,1 SAVE BEGINNING OF NEST INDEX. F2A02480 04217 0500 00 1 37510 CLA DOTGZ,1 INITIALIZE F2A02490 04220 0734 00 2 00000 PAX 0,2 BEGINNING OF NEST F2A02500 04221 -0320 00 0 04001 ANA DECMSK AND F2A02510 04222 0601 00 0 04617 STO BNA END OF NEST F2A02520 04223 -0754 00 2 00000 PXD 0,2 ADDRESSES F2A02530 04224 -0534 00 4 04627 LXD TIFX,4 OBTAIN CURRENT TIFGO INDEX F2A02540 04225 0601 00 0 04620 STO ENA F2A02550 04226 0500 00 4 66476 FL050 CLA TIFZ,4 AND SEARCH FOR TIFGO F2A02560 04227 -0320 00 0 04001 ANA DECMSK ENTRY IN NEST. F2A02570 04230 0340 00 0 04617 CAS BNA COMPARE WITH BNA F2A02580 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 6 BLOCK A. 04231 0020 00 0 04240 TRA FL070 GREATER THAN OR EQUAL TO F2A02590 04232 0074 00 4 03746 TSX ERRORM,4 DECR OF TIFGO WORD (XR VALUE F2A02600 IN TIFX) SHOULD BE UNEQUAL TO F2A02610 BNA, WHICH CAME FROM THE IFN F2A02620 IN THE XR1 DOTAG WORD. TIFGO F2A02630 IS REC 6 FILE 5 TAPE2, AND THE F2A02640 DOTAG WORD IS PICKED UP FROM F2A02650 TDO (REC 8 FILE5 TAPE B2). F2A02660 04233 1 77776 4 04234 FL055 TXI FL060,4,-2 LESS THAN BNA, GO BACK F2A02670 04234 3 00000 4 04226 FL060 TXH FL050,4,0 FOR NEXT TIFGO ENTRY, F2A02680 04235 0020 00 0 04306 TRA FLOEND IF ANY. IF NONE, EXIT F2A02690 BINARY CARD NO. 9F180011 04236 -0534 00 1 04616 FL065 LXD BNX,1 F2A02700 04237 0020 00 0 04213 TRA FL020 F2A02710 04240 -0634 00 4 04627 FL070 SXD TIFX,4 SAVE CURRENT TIFGO INDEX F2A02720 04241 0340 00 0 04620 CAS ENA COMPARE G AND ENA F2A02730 04242 0020 00 0 04236 TRA FL065 G GREATER, GO BACK FOR NEXT NEST. F2A02740 04243 0761 00 0 00000 NOP G EQUAL TO F2A02750 04244 0601 00 0 04621 STO G OR LESS THAN G, SAVE G. F2A02760 04245 0500 00 4 66476 CLA TIFZ,4 TEST FOR THREE ADDRESS IF. F2A02770 04246 -0120 00 0 04254 TMI FL075 USE ADDRESS TO DETERMINE F2A02780 04247 0734 00 2 00000 PAX 0,2 WHETHER OR NOT THIS IS AN F2A02790 04250 -3 00005 2 04254 TXL FL075,2,5 ASSIGN FORMULA. IF IT IS, F2A02800 04251 -3 00006 2 04233 TXL FL055,2,6 IGNORE, TAKE NEXT TIFGO ENTRY F2A02810 04252 -3 00007 2 04254 TXL FL075,2,7 TEST FOR ADD. GREATER THAN F2A02820 04253 0074 00 4 03746 TSX ERRORM,4 THE ADDRESS OF TIFGO WORD(XR VALUE F2A02830 IN TIFX) SHOULD BE 7 OR LESS. F2A02840 TIFGO IS FROM REC 6.FILE5 TAPE 2. F2A02850 04254 0500 00 0 04621 FL075 CLA G OBTAIN G F2A02860 04255 -0534 00 1 04616 LXD BNX,1 OBTAIN CURRENT NEST INDEX F2A02870 04256 0074 00 4 04527 TSX ADLOC,4 OBTAIN XDG AND LDG F2A02880 04257 0500 00 0 04002 CLA BITONE PUT BIT IN DOTAG FOR TRA F2A02890 04260 -0602 00 1 37516 ORS DOTGZ+6,1 IN IMMEDIATE RANGE F2A02900 04261 -0754 00 1 00000 PXD 0,1 SAVE F2A02910 04262 0601 00 0 04622 STO XDG XDG F2A02920 04263 -0754 00 2 00000 PXD 0,2 AND F2A02930 BINARY CARD NO. 9F180012 04264 0601 00 0 04623 STO LDG LDG F2A02940 04265 0502 00 0 04621 CLS G LIST MINUS G F2A02950 04266 0074 00 4 04564 TSX TLT00,4 IN TRALEV BUFFER. F2A02960 04267 -0534 00 4 04627 LXD TIFX,4 OBTAIN FIRST WORD OF F2A02970 04270 0500 00 4 66476 CLA TIFZ,4 TIFGO ENTRY F2A02980 04271 -0120 00 0 04312 TMI 3ADIF TRA IF 3ADIF F2A02990 04272 0734 00 2 00000 PAX 0,2 PUT ADDRESS IN XRB F2A03000 04273 0020 00 2 04303 FL080 TRA FL080+8,2 INDEXED TRA. F2A03010 04274 0074 00 4 03746 TSX ERRORM,4 TIFGO ADDRESS IN XR2 IS SIX F2A03020 04275 0020 00 0 05740 TRA DT050 (20)F2A03030 OR LESS. TIFGO WORD IS PICKED F2A03040 UP WITH XR VALUE IN TIFX. F2A03050 TIFGO IS REC 6 FILE 5 TAPE2. F2A03060 04276 0020 00 0 04316 TRA 2ADIF 5, 2 ADDRESS TYPE F2A03070 04277 0020 00 0 04316 TRA 2ADIF 4, 2 ADIF F2A03080 04300 0020 00 0 04316 TRA 2ADIF 3, 2ADIF F2A03090 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 7 BLOCK A. 04301 0020 00 0 04327 TRA GOTOVN 2 VECTOR TYPE TRA F2A03100 04302 0020 00 0 04327 TRA GOTOVN 1 GO TO N (ASSIGN) F2A03110 04303 0020 00 0 04322 TRA GOTOK 0 GO TO CONSTANT F2A03120 04304 -0534 00 4 04627 FL090 LXD TIFX,4 GO BACK FOR NEXT F2A03130 04305 1 77776 4 04234 TXI FL060,4,-2 TIFGO ENTRY. F2A03140 04306 -0534 00 1 04613 FLOEND LXD TLT50,1 TEST IF ANY TRALEV ENTRIES F2A03150 04307 -3 00000 1 04630 TXL SV00,1,0 F2A03160 04310 0074 00 4 04576 TSX TLT20,4 IF SO, GO TO WRITE ROUTINE F2A03170 04311 0020 00 0 04630 TRA SV00 F2A03180 CONTROL ROUTINES F2A03190 BINARY CARD NO. 9F180013 04312 -0320 00 0 04000 3ADIF ANA ADDMSK THE FOLLOWING ROUTINES F2A03200 04313 0767 00 0 00022 ALS 18 ARRANGE TO PROCESS ALL OF F2A03210 04314 0074 00 4 04344 TSX FA000,4 THE ADDRESSES ASSOCIATED F2A03220 04315 -0534 00 4 04627 LXD TIFX,4 WITH THE TIFGO ENTRY, F2A03230 04316 0500 00 4 66477 2ADIF CLA TIFZ+1,4 ONE AT A TIME. F2A03240 04317 -0320 00 0 04001 ANA DECMSK WHEN ALL ADDRESSES F2A03250 04320 0074 00 4 04344 TSX FA000,4 ARE PROCESSED, F2A03260 04321 -0534 00 4 04627 LXD TIFX,4 CONTROL IS RETURED TO F2A03270 04322 0500 00 4 66477 GOTOK CLA TIFZ+1,4 FL090 FOR NEXT F2A03280 04323 -0320 00 0 04000 ANA ADDMSK TIFGO ENTRY. F2A03290 04324 0767 00 0 00022 ALS 18 F2A03300 04325 0074 00 4 04344 TSX FA000,4 F2A03310 04326 0020 00 0 04304 TRA FL090 F2A03320 04327 0500 00 4 66477 GOTOVN CLA TIFZ+1,4 FOR GOTOV TRANSFERS, F2A03330 04330 0734 00 4 00000 PAX 0,4 USE WORD TWO F2A03340 04331 -0634 00 4 04342 SXD GTV20,4 FOR INDEXING F2A03350 04332 -0734 00 4 00000 PDX 0,4 VALUES NECESSARY F2A03360 04333 0020 00 0 04342 TRA GTV20 F2A03370 04334 0500 00 4 62411 GTV10 CLA TRADZ,4 TO GET ADDRESSES F2A03380 04335 0767 00 0 00022 ALS 18 FROM TABLE TRAD. F2A03390 04336 -0634 00 4 04343 SXD GTV30,4 FOR GOTON (ASSIGN) TYPE F2A03400 04337 0074 00 4 04344 TSX FA000,4 TRANSFERS, ALL ADDRESSES F2A03410 BINARY CARD NO. 9F180014 04340 -0534 00 4 04343 LXD GTV30,4 MUST BE PROCESSED EVEN F2A03420 04341 1 77777 4 04342 TXI GTV20,4,-1 THOUGH THEY ARE ON SAME F2A03430 04342 3 00000 4 04334 GTV20 TXH GTV10,4,0 LEVEL BECAUSE OF F2A03440 04343 -3 00000 0 04304 GTV30 TXL FL090,,0 CARRY RESTRICTIONS. F2A03450 ANALYSIS OF ADDRESS F2A03460 04344 -0634 00 4 04407 FA000 SXD RS60,4 SAVE TSX SET F2A03470 04345 0020 00 0 05705 TRA FA000A (20)F2A03480 04346 -0534 00 1 04616 LXD BNX,1 OBTAIN F2A03490 04347 0074 00 4 04527 TSX ADLOC,4 INDEX OF DO CONTAINING F2A03500 04350 -0754 00 1 00000 PXD 0,1 ADDRESS AND LEVEL OF F2A03510 04351 0601 00 0 04625 STO XDA THAT DO. F2A03520 04352 -0754 00 2 00000 PXD 0,2 SAVE IN F2A03530 04353 0601 00 0 04626 STO LDA XDA AND LDA. F2A03540 04354 -3 00024 2 04356 TXL FA010,2,20 TEST LEVEL F2A03550 04355 0074 00 4 03753 TSX ERROR3,4 LEVEL ADD. OF TRA EXCEEDS 20. F2A03560 04356 0634 00 2 04361 FA010 SXA FA020,2 F2A03570 04357 -0500 00 0 04012 CAL L(MZ) LEVEL IN F2A03580 04360 -0534 00 1 04622 LXD XDG,1 XDG DO. F2A03590 04361 0771 00 0 00000 FA020 ARS ** F2A03600 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 8 BLOCK A. 04362 -0602 00 1 37517 ORS DOTGZ+7,1 F2A03610 04363 0500 00 0 04626 CLA LDA LIST F2A03620 04364 0771 00 0 00022 ARS 18 ADDRESS AND LEVEL F2A03630 04365 0400 00 0 04624 ADD A IN F2A03640 BINARY CARD NO. 9F180015 04366 0074 00 4 04564 TSX TLT00,4 TLT. CONTINUE WITH RS00 F2A03650 TRANSFER BIT INSERTION IN DO FORMULA F2A03660 04367 -0534 00 1 04622 RS00 LXD XDG,1 XRA CONTAINS XDG F2A03670 04370 -0534 00 2 04623 LXD LDG,2 XRB CONTAINS LDG F2A03680 04371 -0754 00 2 00000 RS10 PXD 0,2 IF G AND A IN SAME DO, F2A03690 04372 0402 00 0 04626 SUB LDA EXIT. THIS ROUTINE INSERTS F2A03700 04373 0100 00 0 04410 TZE INC00 BIT MEANING THERE IS A JUMP F2A03710 04374 0120 00 0 04377 TPL RS20 OUT OF THE RANGE OF THIS DO. F2A03720 04375 -0534 00 1 04627 LXD TIFX,1 F2A03730 04376 0074 00 4 03754 TSX ERROR4,4 SOURCE PROGRAM ERROR. F2A03740 04377 -0500 00 0 04012 RS20 CAL L(MZ) F2A03750 04400 -0602 00 1 37515 ORS DOTGZ+5,1 F2A03760 04401 -3 00001 2 04410 TXL INC00,2,1 FIND NEXT BACK SUBNEST F2A03770 04402 1 00011 1 04403 RS30 TXI RS40,1,9 DO FORMULA F2A03780 04403 0500 00 1 37515 RS40 CLA DOTGZ+5,1 AND RETURN F2A03790 04404 0622 00 0 04405 STD RS50 TO TEST F2A03800 04405 -3 00000 2 04402 RS50 TXL RS30,2,0 LEVEL F2A03810 04406 -0734 00 2 00000 PDX 0,2 AT F2A03820 04407 -3 00000 0 04371 RS60 TXL RS10,,0 RS10 F2A03830 INDEXING NO CARRY CONDITION F2A03840 04410 0500 00 0 04626 INC00 CLA LDA EXIT IF F2A03850 04411 0100 00 0 04453 TZE RNC00 LDA IS ZERO. F2A03860 04412 0500 00 0 04621 CLA G PLACE G ANDA F2A03870 04413 0560 00 0 04624 LDQ A IN F2A03880 BINARY CARD NO. 9F180016 04414 0040 00 0 04420 TLQ INC20 INCX AND INCY SO THAT F2A03890 04415 0601 00 0 04451 STO INCX INCX IS LESS THAN INCY. F2A03900 04416 -0600 00 0 04452 STQ INCY F2A03910 04417 0020 00 0 04422 TRA INC30 F2A03920 04420 -0600 00 0 04451 INC20 STQ INCX F2A03930 04421 0601 00 0 04452 STO INCY F2A03940 04422 -0534 00 1 04625 INC30 LXD XDA,1 INITIALIZE XRA F2A03950 04423 1 77767 1 04424 INC35 TXI INC40,1,-9 FIND DO OF LEVEL LDA F2A03960 04424 -3 00000 1 04453 INC40 TXL RNC00,1,0 PLUS ONE. F2A03970 04425 0500 00 1 37515 CLA DOTGZ+5,1 F2A03980 04426 -0320 00 0 04001 ANA DECMSK F2A03990 04427 0402 00 0 04626 SUB LDA F2A04000 04430 0402 00 0 04005 SUB L(1) F2A04010 04431 0100 00 0 04434 TZE INC50 DO OF LEVEL LDA PLUS ONE FOUND. F2A04020 04432 0120 00 0 04423 TPL INC35 LEVEL TO HIGH, GO BACK. F2A04030 04433 0020 00 0 04453 TRA RNC00 LEVEL TO LOW, DA EXHAUSTED. F2A04040 04434 0500 00 1 37510 INC50 CLA DOTGZ,1 OBTAIN BETA OF F2A04050 04435 0734 00 2 00000 PAX 0,2 THIS DO IN DECREMENT. F2A04060 04436 -0754 00 2 00000 PXD 0,2 F2A04070 04437 0340 00 0 04452 CAS INCY COMPARE WITY INCY. F2A04080 04440 0020 00 0 04453 TRA RNC00 GREATER THAN OR EQUAL TO F2A04090 04441 0020 00 0 04453 TRA RNC00 GREATEST OF G, A, EXIT. F2A04100 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 9 BLOCK A. BINARY CARD NO. 9F180017 04442 0340 00 0 04451 CAS INCX LESS THAN INCY, COMPARE F2A04110 04443 0020 00 0 04446 TRA INC60 WITH INCX. GREATER THAN F2A04120 04444 0020 00 0 04446 TRA INC60 OR EQUAL TO INCX, GO TO INC60. F2A04130 04445 0020 00 0 04423 TRA INC35 LESS THAN INCX, GET NEXT DO. F2A04140 04446 -0500 00 0 04015 INC60 CAL NCMSK AND OUT CARRY BITS. F2A04150 04447 0320 00 1 37515 ANS DOTGZ+5,1 F2A04160 04450 0020 00 0 04423 TRA INC35 GO BACK FOR NEXT DO. F2A04170 04451 0 00000 0 00000 INCX PZE ES. F2A04180 04452 0 00000 0 00000 INCY PZE ES. F2A04190 RESET NO CARRY CONDITION. NO CARRY TRANSFER LEVEL F2A04200 04453 0500 00 0 04626 RNC00 CLA LDA EXIT IF LDA IS ZERO F2A04210 04454 0100 00 0 04525 TZE RNC95 F2A04220 04455 0500 00 0 04623 CLA LDG EXIT IF F2A04230 04456 0402 00 0 04626 SUB LDA LDA EQUALS F2A04240 04457 0100 00 0 04525 TZE RNC95 LDG F2A04250 04460 -0734 00 4 00000 PDX 0,4 INITIALIZE COUNTER XR6 F2A04260 04461 -0534 00 1 04622 LXD XDG,1 INITIALIZE XRA F2A04270 04462 0500 00 0 04623 CLA LDG AND F2A04280 04463 -0734 00 2 00000 PDX 0,2 XRB. C(ACC) LDG. F2A04290 04464 1 00001 2 04472 TXI RNC50,2,1 C(XRB) LDG PLUS ONE. F2A04300 04465 1 00011 1 04466 RNC20 TXI RNC30,1,9 FIND NEXT BACK F2A04310 04466 3 11165 1 04525 RNC30 TXH RNC95,1,600*M/N*9 SUBNEST DO. F2A04320 04467 0500 00 1 37515 CLA DOTGZ+5,1 F2A04330 BINARY CARD NO. 9F180018 04470 0622 00 0 04471 STD RNC40 F2A04340 04471 -3 00000 2 04465 RNC40 TXL RNC20,2,0 F2A04350 04472 -0634 00 1 04517 RNC50 SXD RNC75,1 SAVE XRA F2A04360 04473 0622 00 0 04523 STD RNC85 SAVE LEVEL OF THIS DO F2A04370 04474 -0754 00 2 00000 PXD 0,2 SAVE LEVEL OF NEXT INNER F2A04380 04475 0601 00 0 04524 STO RNC90 SUBNEST DO. F2A04390 04476 1 77767 1 04477 RNC60 TXI RNC70,1,-9 TAKE NEXT DOWN DO IF ANY. F2A04400 04477 -3 00000 1 04520 RNC70 TXL RNC80,1,0 F2A04410 04500 0500 00 1 37510 CLA DOTGZ,1 IF BETA F2A04420 04501 -0320 00 0 04000 ANA ADDMSK OF THIS DO F2A04430 04502 0767 00 0 00022 ALS 18 IS LESS F2A04440 04503 0402 00 0 04621 SUB G THAN G, F2A04450 04504 0120 00 0 04520 TPL RNC80 TEST LEVEL F2A04460 04505 0500 00 1 37515 CLA DOTGZ+5,1 TO SEE IF F2A04470 04506 -0320 00 0 04001 ANA DECMSK THIS DO IS OF SAME F2A04480 04507 0402 00 0 04524 SUB RNC90 LEVEL AS NEXT INNERMOST F2A04490 04510 -0100 00 0 04476 TNZ RNC60 SUBNEST DO. IF NOT, GET NEXT DO. F2A04500 04511 0500 00 1 37516 CLA DOTGZ+6,1 IF SO, MAKE NO CARRY F2A04510 04512 -0320 00 0 04001 ANA DECMSK TRANSFER LEVEL OF THIS F2A04520 04513 0402 00 0 04626 SUB LDA DO EQUAL TO GREATER F2A04530 04514 0120 00 0 04476 TPL RNC60 OF PREVIOUS VALUE F2A04540 04515 0500 00 0 04626 CLA LDA AND CURRENT LDA. F2A04550 BINARY CARD NO. 9F180019 04516 0622 00 1 37516 STD DOTGZ+6,1 F2A04560 04517 -3 00000 0 04476 RNC75 TXL RNC60,,0 GO BACK FOR NEXT TEST DO. F2A04570 04520 -0534 00 1 04517 RNC80 LXD RNC75,1 GO BACK FOR NEXT SUBNEST DO, F2A04580 04521 -0534 00 2 04523 LXD RNC85,2 IF COUNTER PERMITS. F2A04590 04522 2 00001 4 04465 TIX RNC20,4,1 OTHERWISE, EXIT. F2A04600 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 10 BLOCK A. 04523 -3 00000 0 04525 RNC85 TXL RNC95,,0 F2A04610 04524 0 00000 0 00000 RNC90 PZE ES F2A04620 04525 -0534 00 4 04407 RNC95 LXD RS60,4 GO BACK TO CONTROL ROUTINE F2A04630 04526 0020 00 4 00001 TRA 1,4 FOR NEXT ADDRESS. F2A04640 INDEX AND LEVEL OF ADDRESS F2A04650 04527 -0634 00 4 04537 ADLOC SXD ADL20,4 SAVE TSX SET F2A04660 04530 -0534 00 4 04004 LXD L(0),4 INITIALIZE XRC, F2A04670 04531 -0634 00 4 04540 SXD ADL30,4 AND DEC OF ADL30, PUT ADDRESS F2A04680 04532 0601 00 0 04563 STO ADL90 IN ADL90. XRA CONTAINS BNX F2A04690 04533 0500 00 1 37510 ADL10 CLA DOTGZ,1 OBTAIN FIRST WORD. F2A04700 04534 0734 00 2 00000 PAX 0,2 SAVE BETA F2A04710 04535 -0320 00 0 04001 ANA DECMSK GET ALPHA ALONE. F2A04720 04536 0340 00 0 04563 CAS ADL90 COMPARE WITH ADDRESS. IF F2A04730 04537 -3 00000 0 04555 ADL20 TXL ADL70,,0 ALPHA NOT LESS THAN ADD, THEN F2A04740 04540 -3 00000 0 04555 ADL30 TXL ADL70,,0 ADD IN LAST CHOSEN DO. F2A04750 04541 -0754 00 2 00000 PXD 0,2 IF ALPHA LESS THAN ADD, F2A04760 04542 0340 00 0 04563 CAS ADL90 COMPARE WITH BETA. F2A04770 04543 0761 00 0 00000 NOP IF BETA IS NOT LESS THAN F2A04780 BINARY CARD NO. 9F180020 04544 0020 00 0 04547 TRA ADL40 ADDRESS, THIS DO CONTAINS F2A04790 04545 3 00000 4 04550 TXH ADL50,4,0 ADDRESS. EXIT IF OUT OF NEST F2A04800 04546 0020 00 0 04555 TRA ADL70 TO ADL 70. OTHERWISE, GO TO 50 F2A04810 04547 -0634 00 1 04540 ADL40 SXD ADL30,1 IF DO IN THIS NEST, SXD. F2A04820 04550 1 77767 1 04551 ADL50 TXI ADL60,1,-9 IN ANY CASE, TAKE NEXT DOWN F2A04830 04551 -3 00000 1 04555 ADL60 TXL ADL70,1,0 DO, IF ANY. F2A04840 04552 0500 00 1 37515 CLA DOTGZ+5,1 PUT LEVEL IN XRC. F2A04850 04553 -0734 00 4 00000 PDX 0,4 AND GO BACK FOR TEST F2A04860 04554 3 00001 4 04533 TXH ADL10,4,1 UNLESS NGW DO HAS LEVEL ONE. F2A04870 04555 -0534 00 3 04540 ADL70 LXD ADL30,3 OBTAIN XDA IN XRA, XRB. F2A04880 04556 -3 00000 1 04561 TXL ADL80,1,0 EXIT IF ZERO. F2A04890 04557 0500 00 1 37515 CLA DOTGZ+5,1 IF NOT ZERO, GET LDA IN F2A04900 04560 -0734 00 2 00000 PDX 0,2 XRB, PUT F2A04910 04561 -0534 00 4 04537 ADL80 LXD ADL20,4 TSX SET IN XRC F2A04920 04562 0020 00 4 00001 TRA 1,4 AND RETURN. F2A04930 04563 0 00000 0 00000 ADL90 PZE F2A04940 TRALEV LISTING F2A04950 04564 -0534 00 1 04615 TLT00 LXD TRLCT,1 TEST IF TWO RECORDS OF F2A04960 04565 -3 00001 1 04567 TXL *+2,1,1 TRALEV ALREADY WRITTEN. F2A04970 04566 0074 00 4 03772 TSX ERRO14,4 YES, SEC. 3 SPACE UNAVAILABLE. F2A04980 04567 -0535 00 1 04613 LDC TLT50,1 OBTAIN CURRENT TRALEV F2A04990 04570 0601 00 1 67514 STO TRALEV,1 INDEX STORE ENTRY. F2A05000 04571 -0534 00 1 04613 LXD TLT50,1 UPDATE F2A05010 BINARY CARD NO. 9F180021 04572 1 00001 1 04573 TXI *+1,1,1 WORD F2A05020 04573 -0634 00 1 04613 SXD TLT50,1 COUNT. IF TABLE FULL, F2A05030 04574 3 04063 1 04576 TXH TLT20,1,2400*M/N-1 GO TO WRITING ROUTINE. F2A05040 04575 0020 00 4 00001 TRA 1,4 OTHERWISE, RETURN. F2A05050 04576 0634 00 4 04611 TLT20 SXA TLT30,4 SAVE XRC. F2A05060 * *** F2A05070 04577 0074 00 4 73606 TLT200 TSX (TAPE),4 WRITE F2A05080 04600 0 40011 0 04613 PZE TLT50,,(WBNC) THE TRALEV F2A05090 04601 0 00004 0 04614 PZE TRLVL,,FTAPE4 BUFFER. F2A05100 04602 -0760 00 0 00142 MSE 98 TURN OFF TRALEV TAPE F2A05110 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 11 BLOCK A. 04603 0761 00 0 00000 NOP EMPTY LITE. F2A05120 04604 0774 00 1 00000 AXT 0,1 REINITIALIZE F2A05130 04605 -0634 00 1 04613 SXD TLT50,1 WORD COUNT OF TRALEV CONT WD. F2A05140 04606 -0534 00 4 04615 LXD TRLCT,4 UPDATE TRALEV F2A05150 04607 1 00001 4 04610 TXI *+1,4,1 RECORD COUNT F2A05160 04610 -0634 00 4 04615 SXD TRLCT,4 AND SAVE. F2A05170 04611 0774 00 4 00000 TLT30 AXT 0,4 RESTORE XRC. F2A05180 04612 0020 00 4 00001 TRA 1,4 RETURN. F2A05190 04613 -1 00000 0 67514 TLT50 IOCT TRALEV,,** DSC COMMAND WD. $F2A05200 04614 635121432565 TRLVL BCI 1,TRALEV F2A05210 04615 0 00000 0 00000 TRLCT PZE F2A05220 ES FORFLOW F2A05230 04616 0 00000 0 00000 BNX PZE BEGINNING OF NEST INDEX. F2A05240 04617 0 00000 0 00000 BNA PZE BEGINNING OF NEST ADDRESS. F2A05250 BINARY CARD NO. 9F180022 04620 0 00000 0 00000 ENA PZE END OF NEST ADDRESS. F2A05260 04621 0 00000 0 00000 G PZE GAMMA OF SOME TIFGO ENTRY. F2A05270 04622 0 00000 0 00000 XDG PZE INDEX OF DO WITH G IN IMMED. F2A05280 04623 0 00000 0 00000 LDG PZE RANGE. LEVEL OF XDG. F2A05290 04624 0 00000 0 00000 A PZE AN ADD. TO WHICH G TRANSFERS. F2A05300 04625 0 00000 0 00000 XDA PZE INDEX OF DO WITH A IN IMMED. F2A05310 04626 0 00000 0 00000 LDA PZE RANGE. LEVEL OF XDA. F2A05320 04627 0 00000 0 00000 TIFX PZE CURRENT TIFGO INDEX. F2A05330 DO SYMBOL DEFINITION OF VARIABLE RANGES AND INCREMENTS. F2A05340 04630 -0534 00 1 26322 SV00 LXD DOTAG-1,1 F2A05350 04631 -0634 00 1 04654 SXD SV80,1 F2A05360 04632 -0634 00 1 04661 SXD SV95,1 F2A05370 04633 -0634 00 1 05031 SXD TRA40,1 F2A05380 04634 -0534 00 1 03776 LXD MAXDTG,1 INITIALIZE XRA F2A05390 04635 -0634 00 1 04646 SXD SV44,1 SAVE CURRENT DO INDEX F2A05400 04636 -0634 00 1 04666 SV10 SXD SV98,1 SAVE NEST INDEX F2A05410 04637 0500 00 1 37510 SV20 CLA DOTGZ,1 GET 1ST WD CURRENT F2A05420 04640 -0320 00 0 04014 ANA TAGMSK DO AND INSPECT TAG. F2A05430 04641 0100 00 0 04660 TZE SV90 IF ZERO, GO TO INDEXING. F2A05440 04642 -0534 00 4 04666 LXD SV98,4 OTHERWISE, NEST INDEX IN XRC. F2A05450 04643 0500 00 4 37511 SV30 CLA DOTGZ+1,4 GET SYM OF XRG, F2A05460 04644 -0534 00 2 04006 LXD L(3),2 INITIALIZE XRB COUNTER F2A05470 04645 0340 00 1 37514 SV40 CAS DOTGZ+4,1 AND TEST FOR SYM=VAR. N. F2A05480 BINARY CARD NO. 9F180023 04646 -3 00000 0 04650 SV44 TXL SV50,,0 CURRENT DO INDEX STORAGE. F2A05490 04647 -3 00000 0 04667 SV48 TXL SF00,,0 INDEX STO. OF N IN CUR. DO. F2A05500 04650 1 00001 1 04651 SV50 TXI SV60,1,1 TAKE NEXT N, COUNT F2A05510 04651 2 00001 2 04645 SV60 TIX SV40,2,1 IN XRB AND GO BACK. F2A05520 04652 -0534 00 1 04646 SV65 LXD SV44,1 SYM NOT VAR.N., PUT CURRENT F2A05530 04653 1 77767 4 04654 SV70 TXI SV80,4,-9 DO INDEX IN XRA AND INDEX F2A05540 04654 -3 00000 4 04660 SV80 TXL SV90,4,0 XRC. IF TABLE ENDS, GO TO SV90. F2A05550 04655 0500 00 4 37515 CLA DOTGZ+5,4 OTHERWISE, TEST FOR NEW NEST. F2A05560 04656 -0734 00 2 00000 PDX 0,2 IF NOT NEW NEST, GO BACK TO F2A05570 04657 3 00001 2 04643 TXH SV30,2,1 TEST SYM. OTHERWISE. F2A05580 04660 1 77767 1 04661 SV90 TXI SV95,1,-9 TAKE NEXT DOWN DO IF F2A05590 04661 -3 00000 1 05110 SV95 TXL TS4VAL,1,0 POSSIBLE. OTHERWISE, EXIT. F2A05600 04662 -0634 00 1 04646 SXD SV44,1 SAVE CURRENT DO INDEX. F2A05610 04663 0500 00 1 37515 CLA DOTGZ+5,1 F2A05620 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 12 BLOCK A. 04664 -0734 00 2 00000 PDX 0,2 INSPECT LEVEL. F2A05630 04665 3 00001 2 04637 TXH SV20,2,1 IF NOT NEW NEST, TRA SV20 F2A05640 04666 -3 00000 0 04636 SV98 TXL SV10,,0 IF NEW NEST, SV10 (NEST INDEX STO.) F2A05650 04667 -0634 00 1 04647 SF00 SXD SV48,1 SAVE INDEX OF N IN CURRENT DO. F2A05660 04670 -0634 00 2 04677 SXD SF10,2 SAVE N COUNTER. F2A05670 04671 -0634 00 4 04702 SXD SF15,4 F2A05680 04672 -0754 00 4 00000 PXD 0,4 SAVE INDEX OF SYMBOL DO F2A05690 04673 0601 00 0 05010 STO SFES1 IN FULL WORD. F2A05700 BINARY CARD NO. 9F180024 04674 -0534 00 1 04646 LXD SV44,1 OBTAIN INDEX OF CURRENT DO F2A05710 04675 -0754 00 1 00000 PXD 0,1 IN ACC. AND COMPARE F2A05720 04676 0340 00 0 05010 CAS SFES1 WITH INDEX OF SYMBOL DO. F2A05730 04677 -3 00000 0 04703 SF10 TXL SF20,,0 CURRENT INDEX GREATER. F2A05740 04700 0020 00 0 04745 TRA SF79 EQUALITY F2A05750 04701 0760 00 0 00141 PSE 97 SYMBOL INDEX GREATER, F2A05760 04702 -3 00000 0 04707 SF15 TXL SF30,,0 TURN ON LIGHT 97. F2A05770 04703 -0534 00 4 04646 SF20 LXD SV44,4 CUR. IND. GREATER, PUT IN XRC F2A05780 04704 -0534 00 1 05010 LXD SFES1,1 SYM. IND. IN XRA. F2A05790 04705 -0760 00 0 00141 MSE 97 LIGHT 97 OFF. F2A05800 04706 0761 00 0 00000 NOP AT SF30, XRA CONTAIN LEAST F2A05810 04707 -0754 00 4 00000 SF30 PXD 0,4 OF CUR. IND, SYM. IND. XRC F2A05820 04710 0601 00 0 05010 STO SFES1 CONTAINS GREATER. PUT IN ES. F2A05830 04711 0500 00 1 37515 SF35 CLA DOTGZ+5,1 PUT LEVEL OF D(XRA) IN F2A05840 04712 -0734 00 2 00000 PDX 0,2 XRB. HALT IF F2A05850 04713 3 00001 2 04715 TXH SF40,2,1 LEVEL F2A05860 04714 0074 00 4 03746 TSX ERRORM,4 AN INNER DO HAS LEVEL OF 1. F2A05870 SIXTH WD OF DOTAG ENTRY (XR F2A05880 VALUE IN SFES1) HAS LEVEL IN F2A05890 DECR. THIS WORD IS FORMED IN CORE. F2A05900 04715 1 00011 1 04716 SF40 TXI SF50,1,9 BACK UP IN XRA F2A05910 04716 -3 11165 1 04720 SF50 TXL SF60,1,600*M/N*9 ERROR IF TOP OF F2A05920 04717 0074 00 4 03746 TSX ERRORM,4 DOTAG PASSED. IF LEVEL OF DO F2A05930 (XR VALUE IN SFES1) IS OVER 1, F2A05940 THERE MUST BE ANOTHER DO F2A05950 BEFORE THE END OF THE DOTAG TABLE. F2A05960 04720 0500 00 1 37515 SF60 CLA DOTGZ+5,1 THIS ROUTINE BY RAISING F2A05970 04721 0622 00 0 04722 STD SF70 XRA, EXITS TO SF80 OR F2A05980 BINARY CARD NO. 9F180025 04722 -3 00000 2 04715 SF70 TXL SF40,2,0 SF90 UPON FINDING A DO. F2A05990 04723 -0754 00 1 00000 PXD 0,1 IN THE SUBNEST OF XRA F2A06000 04724 0340 00 0 05010 CAS SFES1 WHICH IS THE DO OF XRC OR F2A06010 04725 0020 00 0 04730 TRA SF73 CONTAINS THE DO OF XRC F2A06020 04726 0020 00 0 04752 TRA SF80 AND CURRENT DO. F2A06030 04727 0020 00 0 04711 TRA SF35 GO BACK FOR NEXT DO F2A06040 04730 -0634 00 1 04743 SF73 SXD SF76,1 THIS ROUTINE (THROUGH SF76) F2A06050 04731 -0534 00 1 04702 SF74 LXD SF15,1 F2A06060 04732 0074 00 4 05011 TSX TRA00,4 USES TRA00 F2A06070 04733 0100 00 0 05006 TZE SFEND F2A06080 04734 0601 00 0 04744 STO SF78 TO DETERMINE THE F2A06090 04735 -0534 00 1 04743 LXD SF76,1 GREATEST EXIT LEVEL OF F2A06100 04736 0500 00 1 37515 CLA DOTGZ+5,1 DEFINITION FROM A F2A06110 04737 -0320 00 0 04001 ANA DECMSK DO SYM NOT IN THE F2A06120 04740 0340 00 0 04744 CAS SF78 SUBNEST OF A DO WITH F2A06130 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 13 BLOCK A. 04741 0500 00 0 04744 CLA SF78 VARIABLE NS, BUT IN A F2A06140 04742 0761 00 0 00000 NOP SUBNEST WHICH HAS A F2A06150 04743 -3 00000 0 04760 SF76 TXL SF90,,0 NON EMPTY INTERSECTION F2A06160 04744 0 00000 0 00000 SF78 PZE WITH THAT SUBNEST. F2A06170 04745 0500 00 1 37515 SF79 CLA DOTGZ+5,1 F2A06180 04746 -0320 00 0 04001 ANA DECMSK F2A06190 04747 0402 00 0 04005 SUB L(1) F2A06200 BINARY CARD NO. 9F180026 04750 -0100 00 0 04760 TNZ SF90 F2A06210 04751 0020 00 0 05006 TRA SFEND F2A06220 04752 -0760 00 0 00141 SF80 MSE 97 EQUALITY, IF SYM DO IS F2A06230 04753 0074 00 4 03756 TSX ERROR5,4 SOURCE PROGRAM ERROR. F2A06240 04754 0500 00 0 04002 CLA BITONE F2A06250 04755 -0602 00 1 37515 ORS DOTGZ+5,1 F2A06260 04756 0500 00 1 37515 CLA DOTGZ+5,1 GET LEVEL OF DEFINITION F2A06270 04757 -0320 00 0 04001 ANA DECMSK AND STORE F2A06280 04760 0771 00 0 00022 SF90 ARS 18 IN ADDRESS PART F2A06290 04761 0601 00 0 05010 STO SFES1 OF SFESI. F2A06300 04762 -0534 00 1 04647 LXD SV48,1 INDEX OF VAR.N. IN CUR. DO. F2A06310 04763 0500 00 1 37520 CLA DOTGZ+8,1 GET PREVIOUS LEVEL DEF. F2A06320 04764 -0320 00 0 04000 ANA ADDMSK AND COMPARE F2A06330 04765 0340 00 0 05010 CAS SFES1 WITH NEW. F2A06340 04766 0020 00 0 05006 TRA SFEND EXIT UNLESS F2A06350 04767 0020 00 0 05006 TRA SFEND NEW LEV. F2A06360 04770 0500 00 0 05010 CLA SFES1 IS LARGGER, IN WHICH CASE F2A06370 04771 0621 00 1 37520 STA DOTGZ+8,1 REPLACE OLD WITH NEW F2A06380 04772 -0534 00 2 04677 LXD SF10,2 OBTAIN N COUNTER IN XRB F2A06390 04773 0500 00 1 37514 SF92 CLA DOTGZ+4,1 GET VAR. N IN ACC. F2A06400 04774 0020 00 0 05000 TRA SF96 GO TO INDEXING. F2A06410 04775 0340 00 1 37514 SF94 CAS DOTGZ+4,1 COMPARE TO FIND DUPE F2A06420 BINARY CARD NO. 9F180027 04776 0020 00 0 05000 TRA SF96 N S. F2A06430 04777 0020 00 0 05003 TRA SF99 DUPE FOUND. F2A06440 05000 1 00001 1 05001 SF96 TXI SF98,1,1 INDEX IN DO FORMULA F2A06450 05001 2 00001 2 04775 SF98 TIX SF94,2,1 AND IN COUNTER F2A06460 05002 0020 00 0 05006 TRA SFEND F2A06470 05003 0500 00 0 05010 SF99 CLA SFES1 REPLACE F2A06480 05004 0621 00 1 37520 STA DOTGZ+8,1 OLD LEVEL F2A06490 05005 0020 00 0 04773 TRA SF92 OF DEFINITION. F2A06500 05006 -0534 00 4 04702 SFEND LXD SF15,4 GO BACK FOR NEXT F2A06510 05007 0020 00 0 04652 TRA SV65 SYMBOL DO F2A06520 05010 0 00000 0 00000 SFES1 PZE ES. F2A06530 GREATEST TRANSFER LEVEL OUT OF DO FORMULA F2A06540 05011 0500 00 1 37515 TRA00 CLA DOTGZ+5,1 GET LEVEL OF DO F2A06550 05012 -0734 00 2 00000 PDX 0,2 USE MAX LEV TWENTY F2A06560 05013 -3 00024 2 05015 TRA10 TXL TRA20,2,20 F2A06570 05014 -0534 00 2 05013 LXD TRA10,2 F2A06580 05015 -0634 00 2 05034 TRA20 SXD TRA50,2 INITIALIZE TEST INSTR. F2A06590 05016 -0754 00 2 00000 PXD 0,2 COMPUTE LEVEL MINUS ONE F2A06600 05017 0771 00 0 00022 ARS 18 AND INITIALIZE SHIFT INSTR. F2A06610 05020 0402 00 0 05060 SUB TRAN1 COMPUTE 35 MINUS (L MINUS F2A06620 05021 0621 00 0 05036 STA TRA70 ONE) AND F2A06630 05022 0402 00 0 05061 SUB TRAN2 INITIALIZE F2A06640 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 14 BLOCK A. 05023 0621 00 0 05037 STA TRA80 SHIFT INSTR. F2A06650 BINARY CARD NO. 9F180028 05024 -0754 00 0 00000 PXD 0,0 INITIALIZE F2A06660 05025 0601 00 0 05063 STO TRAN5 ES LOCATION TO ZERO F2A06670 05026 -0500 00 1 37517 TRA30 CAL DOTGZ+7,1 OR INTO TRAN5 ALL THE F2A06680 05027 -0602 00 0 05063 ORS TRAN5 T2 WORDS OF THIS DO F2A06690 05030 1 77767 1 05031 TXI TRA40,1,-9 AND ALL DOS CONTAINED F2A06700 05031 -3 00000 1 05035 TRA40 TXL TRA60,1,0 BY THIS DO. F2A06710 05032 0500 00 1 37515 CLA DOTGZ+5,1 F2A06720 05033 -0734 00 2 00000 PDX 0,2 F2A06730 05034 3 00000 2 05026 TRA50 TXH TRA30,2,0 F2A06740 05035 0560 00 0 05062 TRA60 LDQ TRAN4 PUT MASK IN QUOTIENT F2A06750 05036 0763 00 0 00000 TRA70 LLS ** REGISTER, SHIFT COMPUTED F2A06760 05037 0767 00 0 00000 TRA80 ALS ** AMOUNTS TO CONSTRUCT F2A06770 05040 -0320 00 0 05063 ANA TRAN5 MASK IN ACC. AND IN F2A06780 05041 0100 00 0 05057 TZE TRA95 UNION OF T2 WORDS. EXIT IF ZERO. F2A06790 05042 0602 00 0 05063 SLW TRAN5 OBTAIN LOW ORDER BIT (23)F2A06800 05043 0402 00 0 05060 SUB TRAN1 IN ACC. F2A06810 05044 0601 00 0 05064 STO TRAN6 F2A06820 05045 -0501 00 0 05063 ORA TRAN5 F2A06830 05046 0402 00 0 05064 SUB TRAN6 F2A06840 05047 -0534 00 1 04005 LXD L(1),1 F2A06850 05050 0340 00 1 05110 TRA85 CAS TRATAB+19,1 SEARCH TABLE F2A06860 05051 0020 00 0 05053 TRA TRA86 TO OBTAIN F2A06870 BINARY CARD NO. 9F180029 05052 0020 00 0 05056 TRA TRA90 LEVEL INTEGER F2A06880 05053 1 00001 1 05054 TRA86 TXI TRA87,1,1 F2A06890 05054 -3 00023 1 05050 TRA87 TXL TRA85,1,19 F2A06900 05055 0020 00 0 05753 TRA TRA88 GO TO PATCH (23)F2A06910 05056 -0754 00 1 00000 TRA90 PXD 0,1 PUT LEVEL IN ACC DECREMENT F2A06920 05057 0020 00 4 00001 TRA95 TRA 1,4 EXIT. F2A06930 05060 0000 00 0 00001 TRAN1 HTR 1 F2A06940 05061 0000 00 0 00043 TRAN2 HTR 35 F2A06950 05062 +377777777777 TRAN4 OCT 377777777777 F2A06960 05063 0 00000 0 00000 TRAN5 PZE F2A06970 05064 0 00000 0 00000 TRAN6 PZE F2A06980 05065 +000000200000 TRATAB OCT 200000 F2A06990 05066 +000000400000 OCT 400000 F2A07000 05067 +000001000000 OCT 1000000 F2A07010 05070 +000002000000 OCT 2000000 F2A07020 05071 +000004000000 OCT 4000000 F2A07030 05072 +000010000000 OCT 10000000 F2A07040 05073 +000020000000 OCT 20000000 F2A07050 05074 +000040000000 OCT 40000000 F2A07060 05075 +000100000000 OCT 100000000 F2A07070 05076 +000200000000 OCT 200000000 F2A07080 05077 +000400000000 OCT 400000000 F2A07090 BINARY CARD NO. 9F180030 05100 +001000000000 OCT 1000000000 F2A07100 05101 +002000000000 OCT 2000000000 F2A07110 05102 +004000000000 OCT 4000000000 F2A07120 05103 +010000000000 OCT 10000000000 F2A07130 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 15 BLOCK A. 05104 +020000000000 OCT 20000000000 F2A07140 05105 +040000000000 OCT 40000000000 F2A07150 05106 +100000000000 OCT 100000000000 F2A07160 05107 +200000000000 OCT 200000000000 F2A07170 FORVAL TABLE SEARCH FOR VARIABLE RANGES AND INCREMENTS F2A07180 * *** F2A07190 05110 0074 00 4 73606 TS4VAL TSX (TAPE),4 READ F2A07200 05111 0 40010 0 05313 PZE 4VALAD,,(RBNC) IN F2A07210 05112 0 00002 0 05623 PZE 4VALL,,FTAPE2 FORVAL. F2A07220 * *** F2A07230 05113 0534 00 2 73674 LXA (SCHU)+FTAPE2,2 COMPUTE F2A07240 05114 -0634 00 2 05670 SXD TBLEND,2 NEXT F2A07250 05115 0774 00 2 00000 AXT 0,2 GO TO F2A07260 05116 0074 00 4 05577 TSX CHECK,4 CHECK READ. F2A07270 05117 0534 00 2 05314 LXA 4VALAD+1,2 UNUSED F2A07280 05120 -0754 00 2 00000 PXD 0,2 INDEX F2A07290 05121 0400 00 0 05314 ADD 4VALAD+1 AND F2A07300 05122 0402 00 0 05670 SUB TBLEND PLACE F2A07310 05123 -0734 00 1 00000 PDX 0,1 IN XR. F2A07320 05124 -0634 00 1 37510 SXD FORVAL-1,1 SAVE INDEX. F2A07330 05125 -3 06653 1 05130 TXL TSV10,1,2000*M/N*2-1 F2A07340 BINARY CARD NO. 9F180031 05126 0760 00 0 00144 PSE 100 IF FORVAL EMPTY, SET F2A07350 05127 0020 00 0 05306 TRA T190 SENSE LIGHT AND EXIT F2A07360 05130 -0634 00 1 05205 TSV10 SXD TS40,1 INITIALIZE TEST INSTRS. F2A07370 05131 -0634 00 1 05226 SXD TS75,1 F2A07380 05132 -0760 00 0 00143 MSE 99 TEST FOR EMPTY DOTAG F2A07390 05133 0020 00 0 05136 TRA TSV20 OFF, NOT EMPTY F2A07400 05134 0760 00 0 00143 PSE 99 ON, DOTAG EMPTY F2A07410 05135 0020 00 0 05306 TRA T190 EXIT F2A07420 05136 -0534 00 1 26322 TSV20 LXD DOTAG-1,1 DOTAG TEST INITIALIZING F2A07430 05137 -0634 00 1 05203 SXD TS35,1 F2A07440 05140 -0534 00 1 03776 LXD MAXDTG,1 INITIALIZE XRA F2A07450 05141 -0534 00 4 03775 LXD MAXFVL,4 AND F2A07460 05142 -0634 00 4 05310 SXD XFOR,4 XFOR. CONTINUE WITH TS00 F2A07470 05143 -0760 00 0 00141 TS00 MSE 97 SENSE LIGHT 97 OFF F2A07480 05144 0761 00 0 00000 NOP F2A07490 05145 0500 00 1 37515 TS10 CLA DOTGZ+5,1 GET LEVEL OF CURRENT F2A07500 05146 -0734 00 2 00000 PDX 0,2 DO IN XRB. IF L IS ONE, F2A07510 05147 -3 00001 2 05154 TXL TS15,2,1 GO TO NEST PROCEDURE. IF F2A07520 05150 -0760 00 0 00141 MSE 97 L IS NOT ONE AND LIGHT IS F2A07530 05151 0020 00 0 05177 TRA TS30,0 OFF, GO TO INNER DO PRECEDURE. F2A07540 05152 0760 00 0 00141 PSE 97 IF LIGHT IS ON, CONTINUE F2A07550 05153 1 77767 1 05203 TXI TS35,1,-9 INDEXING FOR NEXT NEST. F2A07560 BINARY CARD NO. 9F180032 05154 -0760 00 0 00141 TS15 MSE 97 F2A07570 05155 0761 00 0 00000 NOP F2A07580 05156 0500 00 1 37510 CLA DOTGZ,1 L IS ONE, DO NEST PROCEDURE. F2A07590 05157 0734 00 2 00000 PAX 0,2 ESTABLISH BEGINNING OF F2A07600 05160 -0320 00 0 04001 ANA DECMSK NEST ADDRESS BNA, AND F2A07610 05161 0601 00 0 05311 STO TBNA END OF NEST ADDRESS ENA. F2A07620 05162 -0754 00 2 00000 PXD 0,2 SEARCH IN FORTAG UNTIL F2A07630 05163 0601 00 0 05312 STO TENA FOR NRS. FOUND GREATER F2A07640 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 16 BLOCK A. 05164 -0534 00 4 05310 LXD XFOR,4 THAN ENA. IF NONE, EXIT F2A07650 05165 0500 00 0 05311 CLA TBNA FROM ENTIRE ROUTINE. F2A07660 05166 0340 00 4 46365 TS20 CAS 4VALZ,4 TEST WHETHER FIRST SUCH F2A07670 05167 1 77776 4 05205 TXI TS40,4,-2 NR. IS IN NEST IF NOT, F2A07680 05170 0074 00 4 03746 TSX ERRORM,4 THE DECR OF FIRST WD OF XR1 F2A07690 DOTAG ENTRY IS THE IFN OF THE F2A07700 DO STATEMENT, AND SHOULD NOT F2A07710 BE EQUAL TO THE FORVAL IFN F2A07720 (DECR OF WD WITH XR VALUE F2A07730 IN TBNA). 4VAL IS REC9 FILE5 TP2 F2A07740 05171 -0634 00 4 05310 SXD XFOR,4 GO TO INDEXING INSTRS. F2A07750 05172 0500 00 0 05312 CLA TENA FOR NEXT DO. F2A07760 05173 0402 00 4 46365 SUB 4VALZ,4 F2A07770 05174 0120 00 0 05176 TPL TS25 F2A07780 05175 0760 00 0 00141 PSE 97 RECORD NO FORVAL FALLS IN THIS NEST.F2A07790 05176 1 77767 1 05203 TS25 TXI TS35,1,-9 F2A07800 05177 0500 00 1 37510 TS30 CLA DOTGZ,1 INNER DO PROCEDURE F2A07810 05200 -0320 00 0 04014 ANA TAGMSK TEST FOR NON ZERO TAG, F2A07820 05201 -0100 00 0 05207 TNZ TS50 IN WHICH CASE TRA FOR F2A07830 BINARY CARD NO. 9F180033 05202 1 77767 1 05203 TS33 TXI TS35,1,-9 TABLE SEARCH. OTHERWISE, F2A07840 05203 3 00000 1 05145 TS35 TXH TS10,1,0 INDEX FOR NEXT DO, IF POSSIBLE. F2A07850 05204 -3 00000 0 05306 TS38 TXL T190,,0 EXIT,STORAGE FOR INDEX CUR. DO. F2A07860 05205 3 00000 4 05166 TS40 TXH TS20,4,0 INDEX TEST FOR FORVAL. F2A07870 05206 0020 00 0 05306 TRA T190 EXIT F2A07880 05207 -0634 00 1 05204 TS50 SXD TS38,1 SAVE INDEX OF CURRENT DO F2A07890 05210 -0634 00 2 05255 SXD T110,2 SAVE LEVEL OF CURRENT DO F2A07900 05211 -0534 00 4 05310 LXD XFOR,4 OBTAIN FORVAL INDEX IN XRC F2A07910 05212 -0534 00 2 04006 TS55 LXD L(3),2 PUT THREE IN XRC F2A07920 05213 -0534 00 1 05204 LXD TS38,1 CURRENT DO IN XRA F2A07930 05214 0500 00 0 05312 CLA TENA TEST FOR END OF NEST F2A07940 05215 0402 00 4 46365 SUB 4VALZ,4 F2A07950 05216 -0120 00 0 05202 TMI TS33 NOT IN NEST,TRA FOR NEXT DO. F2A07960 05217 0500 00 4 46366 CLA 4VALZ+1,4 IN NEST OBTAIN FORTAG F2A07970 05220 0340 00 1 37514 TS60 CAS DOTGZ+4,1 SYMBOL, COMPARE WITH VAR. F2A07980 05221 0020 00 0 05223 TRA TS65 N SYMBOLS. F2A07990 05222 0020 00 0 05231 TRA TS80 EQUALITY F2A08000 05223 1 00001 1 05224 TS65 TXI TS70,1,1 INDEX IN XRA, F2A08010 05224 2 00001 2 05220 TS70 TIX TS60,2,1 COUNT IN XRB F2A08020 05225 1 77776 4 05226 TXI TS75,4,-2 TAKE NEXT FORTAG ENTRY, F2A08030 05226 3 00000 4 05212 TS75 TXH TS55,4,0 IF ANY. F2A08040 05227 -0534 00 1 05204 LXD TS38,1 RESTORE CURRENT DO INDEX F2A08050 BINARY CARD NO. 9F180034 05230 1 77767 1 05203 TXI TS35,1,-9 AND TRA FOR NEXT DO. F2A08060 05231 -0634 00 2 05276 TS80 SXD T148,2 SAVE VAR. N. COUNTER. F2A08070 05232 -0634 00 1 05275 SXD T144,1 SAVE COUNTER OF SYM IN DO F2A08080 05233 -0534 00 1 05204 LXD TS38,1 CURRENT DO INDEX IN XRA F2A08090 05234 -0534 00 2 05255 LXD T110,2 CURRENT DO LEVEL IN XRB F2A08100 05235 1 00001 2 05236 TXI TS85,2,1 ADJUST XRB FOR CURRENT DO TEST. F2A08110 05236 0500 00 1 37515 TS85 CLA DOTGZ+5,1 GET NEXT BACK DO IN F2A08120 05237 0622 00 0 05240 STD TS90 SUBNEST. ON FIRST TIME F2A08130 05240 3 00000 2 05244 TS90 TXH T100,2,0 THROUGH, CURRENT DO IS F2A08140 05241 1 00011 1 05236 TS92 TXI TS85,1,9 PRODUCED. F2A08150 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 17 BLOCK A. 05242 2 00001 2 05241 TS94 TIX TS92,2,1 ADJUST LEVEL. F2A08160 05243 0074 00 4 03746 TSX ERRORM,4 LEVEL OF CURRENT DO (IN XR2) F2A08170 SHOULD BE MORE THAN LEVEL OF F2A08180 BACK DO IN SAME NEST (DECR OF F2A08190 SIXTH WD OF DOTAG ENTRY WITH F2A08200 XR VALUE IN XR1. F2A08210 05244 0500 00 1 37510 T100 CLA DOTGZ,1 NEXT BACK DO FOUND. F2A08220 05245 -0320 00 0 04001 ANA DECMSK TEST TO SEE IF FORTAG F2A08230 05246 0402 00 4 46365 SUB 4VALZ,4 FORMULA NR. IS IN THIS F2A08240 05247 0120 00 0 05242 TPL TS94 DO. IF NOT, GO TO TS94 F2A08250 05250 0500 00 1 37510 CLA DOTGZ,1 TO ADJUST LEVEL FOR F2A08260 05251 -0320 00 0 04000 ANA ADDMSK OBTAINING NEW SUBNEST DO. F2A08270 05252 0767 00 0 00022 ALS 18 F2A08280 05253 0402 00 4 46365 SUB 4VALZ,4 F2A08290 05254 -0120 00 0 05242 TMI TS94 F2A08300 05255 -3 00000 2 05257 T110 TXL T120,2,0 DEC CONTAINS CURRENT LEVEL. F2A08310 BINARY CARD NO. 9F180035 05256 0020 00 0 05301 TRA T170 APPARENT DEF OF A VAR N WITHIN F2A08320 RANGE OF THE DO WITH VARIABLE N. IGNORE AND F2A08330 GET NEXT FORVAL. F2A08340 05257 -0534 00 1 05275 T120 LXD T144,1 PUT CUR. VAR. DO INDEX IN F2A08350 05260 0500 00 1 37520 CLA DOTGZ+8,1 XRA, AND GET LEV. DEF F2A08360 05261 0734 00 2 00000 PAX 0,2 OF VAR. N. F2A08370 05262 -0634 00 2 05264 SXD T130,2 STORE IN DEC OF T130. F2A08380 05263 -0534 00 2 05240 LXD TS90,2 OBTAIN LEVEL OF DO CONTAINING F2A08390 05264 -3 00000 2 05301 T130 TXL T170,2,0 FORTAG FOR. NR. F2A08400 05265 -0754 00 2 00000 PXD 0,2 CHOOSE LARGER AND PUT IN F2A08410 05266 0771 00 0 00022 ARS 18 LEV. DEF. FIELD OF CURRENT DO. F2A08420 05267 0621 00 1 37520 STA DOTGZ+8,1 IF CHANGE MADE, SAVE F2A08430 05270 0601 00 0 05307 STO T195 LEVEL, F2A08440 05271 -0534 00 2 05276 LXD T148,2 AND TEST TO SEE IF THIS F2A08450 05272 0500 00 1 37514 CLA DOTGZ+4,1 SYMBOL F2A08460 05273 1 00001 1 05300 TXI T160,1,1 DUPLICATED F2A08470 05274 0340 00 1 37514 T140 CAS DOTGZ+4,1 IN DO VAR. N S. F2A08480 05275 -3 00000 0 05277 T144 TXL T150,,0 IF SO, REPLACE LEVEL OF DEF. F2A08490 05276 -3 00000 0 05302 T148 TXL T180,,0 BY THIS. DEC OF T144 HAS IX FOR F2A08500 VAR N, AND DEC OF T148 HAS 3,2,1 F2A08510 IF 4VAL MATCHES N3,N2,N1. F2A08520 MATCHES VARIABLE N3,N2,N1) F2A08530 05277 1 00001 1 05300 T150 TXI T160,1,1 NEW LEVEL. F2A08540 05300 2 00001 2 05274 T160 TIX T140,2,1 F2A08550 05301 1 77776 4 05226 T170 TXI TS75,4,-2 F2A08560 05302 0500 00 0 05307 T180 CLA T195 F2A08570 05303 0621 00 1 37520 STA DOTGZ+8,1 F2A08580 BINARY CARD NO. 9F180036 05304 0500 00 1 37514 CLA DOTGZ+4,1 F2A08590 05305 1 00001 1 05300 TXI T160,1,1 F2A08600 05306 0020 00 0 05315 T190 TRA RH00 EXIT F2A08610 05307 0 00000 0 00000 T195 PZE ES F2A08620 05310 0 00000 0 00000 XFOR PZE FORTAG INDEX F2A08630 05311 0 00000 0 00000 TBNA PZE ES F2A08640 05312 0 00000 0 00000 TENA PZE ES F2A08650 05313 -0 00002 0 04020 4VALAD IOCP TBCHK,,2 F2A08660 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 18 BLOCK A. 05314 3 06654 0 37511 IORT FORVAL,,2000*M/N*2 F2A08670 USE OF SYMBOL WITHIN RANGE AS FXD POINT VAR. FORVAR SEARCH. F2A08680 * *** F2A08690 05315 0074 00 4 73606 RH00 TSX (TAPE),4 READ F2A08700 05316 0 40010 0 05427 PZE 4VARAD,,(RBNC) IN F2A08710 05317 0 00002 0 05622 PZE 4VARL,,FTAPE2 FORVAR. F2A08720 * *** F2A08730 05320 0534 00 2 73674 LXA (SCHU)+FTAPE2,2 COMPUTE F2A08740 05321 -0634 00 2 05670 SXD TBLEND,2 NEXT F2A08750 05322 0774 00 2 00001 AXT 1,2 GO TO F2A08760 05323 0074 00 4 05577 TSX CHECK,4 CHECK READ. F2A08770 05324 0534 00 2 05430 LXA 4VARAD+1,2 UNUSED F2A08780 05325 -0754 00 2 00000 PXD 0,2 INDEX F2A08790 05326 0400 00 0 05430 ADD 4VARAD+1 AND F2A08800 05327 0402 00 0 05670 SUB TBLEND PLACE F2A08810 05330 -0734 00 1 00000 PDX 0,1 IN XR. F2A08820 05331 -0634 00 1 14117 SXD FORVAR-1,1 SAVE INDEX. F2A08830 BINARY CARD NO. 9F180037 05332 3 12201 1 05422 TXH RH95,1,3000*M/N*2-1 EXIT IF FORVAR IS EMPTY. F2A08840 05333 -0760 00 0 00143 MSE 99 TEST FOR EMPTY DOTAG. F2A08850 05334 0020 00 0 05337 TRA RH05 NOT EMPTY. F2A08860 05335 0760 00 0 00143 PSE 99 EMPTY, RESTORE SENSE LIGHT F2A08870 05336 0020 00 0 05422 TRA RH95 AND EXIT. F2A08880 05337 -0634 00 1 05401 RH05 SXD RH60,1 FORVAR TEST F2A08890 05340 -0634 00 1 05412 SXD RH75,1 INITIALIZING. F2A08900 05341 -0534 00 1 26322 LXD DOTAG-1,1 DOTAG TEST F2A08910 05342 -0634 00 1 05421 SXD RH90,1 INITIALIZING F2A08920 05343 -0534 00 1 04010 LXD MAXFVR,1 MAX WDS IN FORVAR F2A08930 05344 -0634 00 1 05423 SXD RHNNX,1 IN NEXT NEST INDEX. F2A08940 05345 -0760 00 0 00141 MSE 97 TURN LIGHT 97 OFF. F2A08950 05346 0761 00 0 00000 NOP F2A08960 05347 -0534 00 1 03776 LXD MAXDTG,1 PUT MAX WDS IN DOTAG IN XRA F2A08970 05350 0500 00 1 37510 RH10 CLA DOTGZ,1 GET 1ST DOTAG WORD. F2A08980 05351 0734 00 2 00000 PAX 0,2 SEPARATE ALPHA AND BETA, F2A08990 05352 -0320 00 0 04001 ANA DECMSK STORE IN RFIRST AND RLAST. F2A09000 05353 0601 00 0 05425 STO RFIRST F2A09010 05354 -0754 00 2 00000 PXD 0,2 F2A09020 05355 0601 00 0 05426 STO RLAST F2A09030 05356 0500 00 1 37515 CLA DOTGZ+5,1 GET LEVEL IN XRB. F2A09040 05357 -0734 00 2 00000 PDX 0,2 F2A09050 BINARY CARD NO. 9F180038 05360 3 00001 2 05366 TXH RH30,2,1 TRA IF LEVEL GREATER THAN ONE. F2A09060 05361 -0760 00 0 00141 MSE 97 LEVEL IS ONE, TEST WHETHER, F2A09070 05362 0020 00 0 05364 TRA RH20 ON LAST LEVEL ONE, FORVAR F2A09080 05363 0020 00 0 05422 TRA RH95 EXHAUSTED. IF SO, EXIT. F2A09090 05364 -0534 00 4 05423 RH20 LXD RHNNX,4 OTHERWISE, ADJUST FORVAR F2A09100 05365 -0634 00 4 05424 SXD RHCNX,4 INDEX TO SKIP LAST NEST AREA. F2A09110 05366 -0534 00 4 05424 RH30 LXD RHCNX,4 PUT FORVAR INDEX IN XRC. F2A09120 05367 0500 00 0 05425 CLA RFIRST BEGIN SEARCH FOR FIRST F2A09130 05370 0340 00 4 26322 RH40 CAS 4VARZ,4 FORVAR ENTRY IN RANGE. F2A09140 05371 1 77776 4 05401 TXI RH60,4,-2 F2A09150 05372 0074 00 4 03746 TSX ERRORM,4 MACHINE ERROR. THE XR4 FORVAR F2A09160 ENTRY IS AN IFN WHICH CANNOT BE F2A09170 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 19 BLOCK A. EQUAL TO THE IFN OF XR1 DOTAG ENTRY F2A09180 FROM WHICH RFIRST IS TAKEN. FORTAG F2A09190 IS REC. 11 FILE 5 TP2, AND DOTAG F2A09200 IFN IS ON TP2 AS TDO(REC 8 FILE 5). F2A09210 05373 -0634 00 4 05424 SXD RHCNX,4 SAVE INDEX AT THIS POINT F2A09220 05374 0500 00 0 05426 RH50 CLA RLAST FOR NEXT DO, AND COMPARE F2A09230 05375 0340 00 4 26322 CAS 4VARZ,4 FORVAR ENTRY WITH RLAST F2A09240 05376 0761 00 0 00000 NOP F2A09250 05377 0020 00 0 05403 TRA RH70 TRA, IN RANGE. F2A09260 05400 0020 00 0 05416 TRA RH80 TRA, NOT IN RANGE. F2A09270 05401 3 00000 4 05370 RH60 TXH RH40,4,0 IF NO ENTRIES GREATER F2A09280 05402 0020 00 0 05422 TRA RH95 THAN RFIRST, EXIT. F2A09290 05403 0500 00 1 37511 RH70 CLA DOTGZ+1,1 IN RANGE, COMPARE SYMBOLS. F2A09300 05404 0402 00 4 26323 SUB 4VARZ+1,4 IF EQUAL, PUT BIT IN F2A09310 05405 -0100 00 0 05411 TNZ RH72 DOTAG ENTRY. F2A09320 BINARY CARD NO. 9F180039 05406 0500 00 0 04002 CLA BITONE F2A09330 05407 -0602 00 1 37515 ORS DOTGZ+5,1 F2A09340 05410 3 00001 2 05420 TXH RH85,2,1 F2A09350 05411 1 77776 4 05412 RH72 TXI RH75,4,-2 INDEX FORVAR AND GO BACK, F2A09360 05412 3 00000 4 05374 RH75 TXH RH50,4,0 IF POSSIBLE. OTHERWISE, F2A09370 05413 3 00001 2 05420 TXH RH85,2,1 TEST LEVEL. IF LEVEL IS F2A09380 05414 0760 00 0 00141 PSE 97 ONE, ARRANGE TO EXIT WHEN F2A09390 05415 0020 00 0 05420 TRA RH85 NEXT LEVEL ONE ENCOUNTERED. F2A09400 05416 3 00001 2 05420 RH80 TXH RH85,2,1 NOT IN RANGE, TEST LEVEL. F2A09410 05417 -0634 00 4 05423 SXD RHNNX,4 SET NEXT NEST INDEX IF L IS ONE. F2A09420 05420 1 77767 1 05421 RH85 TXI RH90,1,-9 INDEX IN DOTAG AND GO F2A09430 05421 3 00000 1 05350 RH90 TXH RH10,1,0 BACK, IF POSSIBLE. F2A09440 05422 0020 00 0 05431 RH95 TRA LB00 EXIT F2A09450 05423 0 00000 0 00000 RHNNX PZE NEXT NEST INDEX. F2A09460 05424 0 00000 0 00000 RHCNX PZE CURRENT NEST INDEX. F2A09470 05425 0 00000 0 00000 RFIRST PZE ALPHA ADDRESS. F2A09480 05426 0 00000 0 00000 RLAST PZE BETA ADDRESS. F2A09490 05427 -0 00002 0 04020 4VARAD IOCP TBCHK,,2 F2A09500 05430 3 12202 0 14120 IORT FORVAR,,3000*M/N*2 F2A09510 TRANSFER IN EXTENDED RANGE BIT. F2A09520 05431 -0760 00 0 00143 LB00 MSE 99 TEST FOR EMPTY DOTAG F2A09530 05432 0020 00 0 05671 TRA DOTRAN GO TO TEST FOR ILLEGAL TRA INTO DO (20)F2A09540 05433 0760 00 0 00143 PSE 99 ON, EMPTY, RESET LIGHT F2A09550 BINARY CARD NO. 9F180040 05434 0020 00 0 05463 TRA EB00 AND EXIT F2A09560 05435 -0534 00 1 26322 LB02 LXD DOTAG-1,1 OBTAIN NEXT UNUSED INDEX F2A09570 05436 -3 00000 0 05461 LB05 TXL LB60,,0 F2A09580 05437 0500 00 1 37516 LB10 CLA DOTGZ+6,1 F2A09590 05440 -0120 00 0 05461 TMI LB60 TEST SIGN, TRA IF NEG. F2A09600 05441 -0320 00 0 04002 ANA BITONE TEST FOR TRA IN IMMED. RANGE. F2A09610 05442 0100 00 0 05461 TZE LB60 IF NONE,TRA. F2A09620 05443 -0634 00 1 05436 SXD LB05,1 SAVE XRA F2A09630 05444 0500 00 1 37515 CLA DOTGZ+5,1 PUT LEVEL F2A09640 05445 -0734 00 2 00000 PDX 0,2 IN XRB F2A09650 05446 -0500 00 0 04012 LB20 CAL LMSK OR IN F2A09660 05447 -0602 00 1 37516 ORS DOTGZ+6,1 MSK F2A09670 05450 -3 00001 2 05460 TXL LB50,2,1 EXIT IF LEVEL ONE. F2A09680 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 20 BLOCK A. 05451 1 00011 1 05452 LB25 TXI LB30,1,9 FIND NEXT BACK F2A09690 05452 0500 00 1 37515 LB30 CLA DOTGZ+5,1 SUBNEST DO. F2A09700 05453 0622 00 0 05454 STD LB40 F2A09710 05454 -3 00000 2 05451 LB40 TXL LB25,2,0 F2A09720 05455 -0734 00 2 00000 PDX 0,2 SAVE NEW LEVEL IN XRB. F2A09730 05456 0500 00 1 37516 CLA DOTGZ+6,1 TEST SIGN OF WORD T1. F2A09740 05457 0120 00 0 05446 TPL LB20 IF PLUS GO TO PUT IN MSK. F2A09750 05460 -0534 00 1 05436 LB50 LXD LB05,1 IF NOT, FIND NEXT DO F2A09760 05461 1 00011 1 05462 LB60 TXI LB70,1,9 IN MAIN PASS. F2A09770 BINARY CARD NO. 9F180041 05462 -3 11165 1 05437 LB70 TXL LB10,1,600*M/N*9 EB00 FOLLOWS. F2A09780 *END O F BLOCK ROUTINE. WR DOTAG ON TP , ONE NEST PER RECORD. F2A09790 05463 -0760 00 0 00143 EB00 SLT 3 F2A09800 05464 0020 00 0 05467 TRA EB10 OFF, NOT EMPTY F2A09810 05465 0760 00 0 00143 PSE 99 ON, EMPTY, RESTORE AND TRA. F2A09820 05466 0020 00 0 05523 TRA EB50 F2A09830 05467 -0534 00 1 26322 EB10 LXD DOTAG-1,1 INITIALIZE TEST INSTR. F2A09840 05470 -0634 00 1 05501 SXD EB40,1 AND F2A09850 05471 -0634 00 1 05522 SXD EB48,1 F2A09860 05472 -0534 00 1 03776 LXD MAXDTG,1 XRA F2A09870 05473 0500 00 0 05553 CLA DOAD INITIALIZE COMMAND F2A09880 05474 0621 00 0 05560 STA EBCOM1 ADDRESS, F2A09890 05475 0057 00 000001 RIR 1 AND SWITCH. F2A09900 05476 0774 00 4 00000 EB20 AXT 0,4 CLEAR COUNTER FOR W.C. IN COMMAND F2A09910 05477 1 00011 4 05500 EB30 TXI *+1,4,9 BUMP FOR ONE DOTAG ENTRY. F2A09920 05500 1 77767 1 05501 TXI *+1,1,-9 BUMP DOTAG XR. F2A09930 05501 -3 00000 1 05505 EB40 TXL EB45,1,0 DEC HAS DOTAG IX F2A09940 05502 0500 00 1 37515 CLA DOTGZ+5,1 GET LEVEL OF DO F2A09950 05503 -0734 00 2 00000 PDX 0,2 INTO XRB AND IF F2A09960 05504 3 00001 2 05477 TXH EB30,2,1 LEVEL IS GREATER THAN 1, GO TO BUMP F2A09970 05505 -0534 00 2 05560 EB45 LXD EBCOM1,2 SAVE LAST ADDRESS+1. F2A09980 05506 0634 00 2 05563 SXA NSTAD,2 F2A09990 05507 -0634 00 4 05560 SXD EBCOM1,4 SET W.C. OF COMMAND. F2A10000 BINARY CARD NO. 9F180042 05510 0056 00 000001 EB455 RNT 1 F2A10010 05511 0020 00 0 05516 TRA EB46 FIRST TIME ONLY TRA. - SWITCH. F2A10020 05512 0500 00 0 05563 CLA NSTAD COMPUTE NEXT ADDRESS. F2A10030 05513 0401 00 0 05560 ADM EBCOM1 $F2A10040 05514 0400 00 0 04005 ADD L(1) F2A10050 05515 0621 00 0 05560 STA EBCOM1 F2A10060 05516 0055 00 000001 EB46 SIR 1 SET SWITCH. F2A10070 * *** F2A10080 05517 0074 00 4 73606 EB47 TSX (TAPE),4 WRITE ONE F2A10090 05520 0 40001 0 05560 PZE EBCOM1,,(WBNP) NEST OF F2A10100 05521 0 00003 0 05556 PZE DTGL,,FTAPE3 DOTAGA. F2A10110 05522 3 00000 1 05476 EB48 TXH EB20,1,0 IF END DOTAG, EXIT F2A10120 * *** F2A10130 05523 0074 00 4 73606 EB50 TSX (TAPE),4 WRITE EOF F2A10140 05524 0 40005 0 00000 PZE ,,(WEFP) FOR DOTAG. F2A10150 05525 0 00003 0 05667 PZE FILN1,,FTAPE3 F2A10160 * *** F2A10170 05526 0074 00 4 73606 EB60 TSX (TAPE),4 READ F2A10180 05527 0 40010 0 05554 PZE 4TAGAD,,(RBNC) IN F2A10190 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 21 BLOCK A. 05530 0 00002 0 05621 PZE 4TAGL,,FTAPE2 FORTAG. F2A10200 * *** F2A10210 05531 0534 00 2 73674 LXA (SCHU)+FTAPE2,2 COMPUTE F2A10220 05532 -0634 00 2 05670 SXD TBLEND,2 NEXT F2A10230 05533 0774 00 2 00002 AXT 2,2 GO TO F2A10240 05534 0074 00 4 05577 TSX CHECK,4 CHECK READ. F2A10250 05535 0534 00 2 05555 LXA 4TAGAD+1,2 UNUSED F2A10260 BINARY CARD NO. 9F180043 05536 -0754 00 2 00000 PXD 0,2 INDEX. F2A10270 05537 0400 00 0 05555 ADD 4TAGAD+1 F2A10280 05540 0402 00 0 05670 SUB TBLEND F2A10290 05541 0622 00 0 22235 STD FORTAG-1 SAVE INDEX VALUE F2A10300 05542 -0734 00 1 00000 PDX 0,1 AND PLACE IN XR. F2A10310 05543 -0760 00 0 00141 MSE 97 ON IF FORTAG F2A10320 05544 0761 00 0 00000 NOP EMPTY, OFF IF F2A10330 05545 -3 12201 1 05547 TXL EB70,1,3000*M/N*2-1 FORTAG F2A10340 05546 0760 00 0 00141 PSE 97 NOT EMPTY. F2A10350 * *** F2A10360 05547 0074 00 4 73606 EB70 TSX (TAPE),4 SPACE TAPE F2A10370 05550 0 20000 0 05664 PZE SKTAP,,(SKBP) TO BEGINNING F2A10380 05551 0 00002 0 05557 PZE DTGBL,,FTAPE2 OF NEXT FILE. F2A10390 05552 0020 00 0 05564 TRA EB90 F2A10400 05553 3 00006 0 26323 DOAD IORT DOTAG,,6 F2A10410 05554 -0 00002 0 04020 4TAGAD IOCP TBCHK,,2 F2A10420 05555 3 12202 0 22236 IORT FORTAG,,3000*M/N*2 F2A10430 05556 244663212721 DTGL BCI 1,DOTAGA F2A10440 05557 244663212722 DTGBL BCI 1,DOTAGB F2A10450 05560 -1 00000 0 26323 EBCOM1 IOCT DOTAG,0,0 WD CT INITLZD, ADD INIT + UPDATED. $F2A10460 05561 -0 00001 0 04004 EBCOM2 IOCP L(0),0,1 TRALEV TP CONT WD. F2A10470 05562 -1 00001 0 04004 IOCT L(0),0,1 $F2A10480 05563 0 00000 0 00000 NSTAD PZE F2A10490 BINARY CARD NO. 9F180044 05564 -0760 00 0 00142 EB90 MSE 98 IS TRALEV TALBE EMPTY F2A10500 05565 0020 00 0 05572 TRA EB95 F2A10510 * *** F2A10520 05566 0074 00 4 73606 TSX (TAPE),4 WRITE TWO F2A10530 05567 0 40001 0 05561 PZE EBCOM2,,(WBNP) ZERO WORD COUNT F2A10540 05570 0 00004 0 04614 PZE TRLVL,,FTAPE4 WORDS FOR EMPTY TRALEV. F2A10550 05571 0760 00 0 00142 SLN 2 INDICATE EMPTY TRALEV. F2A10560 * *** F2A10570 05572 0074 00 4 73606 EB95 TSX (TAPE),4 WRITE EOF F2A10580 05573 0 40005 0 00000 PZE ,,(WEFP) FOR TRALEV. F2A10590 05574 0 00004 0 05667 PZE FILN1,,FTAPE4 F2A10600 * *** F2A10610 05575 0074 00 4 73600 TSX (LOAD),4 GO TO BLOCK 2. F2A10620 05576 0 00000 0 00000 PZE F2A10630 *CHECK* TESTS READING OF TABLES BY COMPARING LABELS F2A10640 AND WORD COUNTS READ TO THOSE EXPECTED. F2A10650 05577 0500 00 2 05620 CHECK CLA TABNO,2 COMPARE LABEL WANTED F2A10660 05600 -0320 00 0 04000 ANA ADDMSK TO F2A10670 05601 0402 00 0 04020 SUB TBCHK LABEL READ. F2A10680 05602 0100 00 0 05605 TZE CK4 F2A10690 05603 0774 00 1 00000 AXT 0,1 WRONG LABEL, F2A10700 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 22 BLOCK A. 05604 0020 00 0 05613 TRA TAPER GO TO ERROR. F2A10710 05605 0500 00 2 05620 CK4 CLA TABNO,2 COMPUTE F2A10720 05606 -0320 00 0 04001 ANA DECMSK 1ST TABLE ADDRESS F2A10730 05607 0400 00 0 04021 ADD TBCHK+1 PLUS WORD COUNT READ F2A10740 05610 0402 00 0 05670 SUB TBLEND MINUS SCHU ADDRESS. F2A10750 05611 0100 00 4 00001 TZE 1,4 NO ERRORS, RETURN. F2A10760 BINARY CARD NO. 9F180045 05612 0774 00 1 00001 AXT 1,1 F2A10770 * *** F2A10780 05613 0074 00 4 73606 TAPER TSX (TAPE),4 GO TO TAPE F2A10790 05614 0 04000 1 05625 PZE ERIND,1,(TPER) ERROR F2A10800 05615 0 00002 2 05623 PZE 4VALL,2,FTAPE2 DIAGNOSTIC. F2A10810 05616 0 22236 0 00004 PZE 4,,FORTAG F2A10820 05617 0 14120 0 00005 PZE 5,,FORVAR F2A10830 05620 0 37511 0 00006 TABNO PZE 6,,FORVAL F2A10840 05621 264651632127 4TAGL BCI 1,FORTAG F2A10850 05622 264651652151 4VARL BCI 1,FORVAR F2A10860 05623 264651652143 4VALL BCI 1,FORVAL F2A10870 05624 234664456360 BCI 1,COUNT F2A10880 05625 432122254360 ERIND BCI 1,LABEL F2A10890 05626 -0634 00 2 05644 ERLIST SXD ERIR2,2 SAVE X R B F2A10900 05627 -0534 00 2 05645 LXD ERNBR,2 GET ERROR NUMBER F2A10910 05630 0500 00 4 37510 CLA DOTGZ,4 SAVE ALPHA DO BETA F2A10920 05631 0601 00 2 73577 STO LIST,2 IN LIST F2A10930 05632 0500 00 4 37511 CLA DOTGZ+1,4 AND SYMBOL F2A10940 05633 0601 00 2 73576 STO LIST-1,2 F2A10950 05634 0500 00 1 37510 CLA DOTGZ,1 SAVE OTHER ALPHA DO BETA F2A10960 05635 0601 00 2 73575 STO LIST-2,2 F2A10970 05636 0500 00 1 37511 CLA DOTGZ+1,1 AND SYMBOL F2A10980 05637 0601 00 2 73574 STO LIST-3,2 F2A10990 BINARY CARD NO. 9F180046 05640 1 00004 2 05641 TXI ERNXT,2,4 F2A11000 05641 -0634 00 2 05645 ERNXT SXD ERNBR,2 F2A11010 05642 -0534 00 2 05644 LXD ERIR2,2 F2A11020 05643 0020 00 0 04136 TRA MR60 F2A11030 05644 0 00000 0 00000 ERIR2 F2A11040 05645 0 00000 0 00000 ERNBR F2A11050 05646 -0634 00 2 05644 ERBETA SXD ERIR2,2 SAVE ALPHA DO BETA F2A11060 05647 -0534 00 2 05645 LXD ERNBR,2 WHERE ALPHA F2A11070 05650 0600 00 2 73577 STZ LIST,2 IS GREATER THAN F2A11080 05651 0500 00 1 37510 CLA DOTGZ,1 ITS BETA F2A11090 05652 0601 00 2 73576 STO LIST-1,2 F2A11100 05653 0500 00 1 37511 CLA DOTGZ+1,1 F2A11110 05654 0601 00 2 73575 STO LIST-2,2 F2A11120 05655 1 00003 2 05656 TXI ERNX,2,3 F2A11130 05656 -0634 00 2 05645 ERNX SXD ERNBR,2 F2A11140 05657 -0534 00 2 05644 LXD ERIR2,2 F2A11150 05660 0020 00 0 04077 TRA MR15 F2A11160 05661 -0534 00 2 05645 ERTST LXD ERNBR,2 F2A11170 05662 -3 00000 2 04173 TXL FLOW,2,0 F2A11180 05663 0074 00 4 03747 TSX ERROR1,4 SOURCE PROGRAM ERROR. F2A11190 73577 LIST SYN ENDCOR-1 F2A11200 04012 LMSK SYN L(MZ) F2A11210 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 23 BLOCK A. 05664 0 00001 0 00000 SKTAP PZE ,,1 F2A11220 05665 0 00000 0 00000 CHCK PZE F2A11230 BINARY CARD NO. 9F180047 05666 0 00000 0 00000 PZE F2A11240 05667 254626016060 FILN1 BCI 1,EOF1 F2A11250 05670 0 00000 0 00000 TBLEND PZE F2A11260 05671 0774 00 1 05740 DOTRAN AXT DT050,1 SET (20)F2A11270 05672 0634 00 1 04326 SXA GOTOVN-1,1 EXIT (20)F2A11280 05673 0634 00 1 04343 SXA GTV30,1 FROM FLOW (20)F2A11290 05674 -0634 00 0 05706 ZSD FA000A+1 SET EXIT FROM FA000 (20)F2A11300 05675 -0534 00 4 62411 LXD TIFGO-1,4 IS TIFGO EMPTY (20)F2A11310 05676 3 04063 4 05435 TXH LB02,4,1200*M/N*2-1 YES, EXIT (20)F2A11320 05677 -0634 00 4 05742 SXD DTEND,4 NO,STO NO. OF TIFGO ENTRIES (20)F2A11330 05700 -0534 00 4 04007 LXD MAXTIF,4 (20)F2A11340 05701 -0634 00 4 04627 DT000 SXD TIFX,4 STO CURRENT POINTER TO TIFGO (20)F2A11350 05702 0500 00 4 66476 CLA TIFZ,4 PICK UP TIFGO ENTRY (20)F2A11360 05703 0622 00 0 04621 STD G STO ORIGIN OF THE TRA (20)F2A11370 05704 0020 00 0 04271 TRA FL080-2 PICK UP THE DESTINATION OF THE TRA (20)F2A11380 05705 0601 00 0 04624 FA000A STO A STO DESTINATION OF TRA (20)F2A11390 05706 -3 77777 4 04346 TXL FA000+2,4,-1 FLOW SWITCH-- EXIT IF IN FLOW SCAN (20)F2A11400 05707 -0534 00 1 26322 DTSCAN LXD DOTAG-1,1 PICK UP NO OF DOES (20)F2A11410 05710 -0634 00 1 05745 SXD DT001+1,1 (20)F2A11420 05711 1 00011 1 05712 TXI *+1,1,9 STEP UP POINTER TO DOTAG TABLE (20)F2A11430 05712 -0634 00 1 04622 SXD XDG,1 (20)F2A11440 05713 0500 00 1 37510 CLA DOTGZ,1 PICK UP THE LAST ENTRY IN DOTAG TABLE (20)F2A11450 BINARY CARD NO. 9F180048 05714 0622 00 0 04617 STD BNA STO IFN OF BEG OF DO (20)F2A11460 05715 0734 00 2 00000 PAX 0,2 PICK UP IFN OF END OF DO (20)F2A11470 05716 -0634 00 2 04620 SXD ENA,2 STO IT IN DEC OF ENA (20)F2A11480 05717 0500 00 0 04624 CLA A AC CONTAINS END PT OF TRA (20)F2A11490 05720 0560 00 0 04620 LDQ ENA MQ CONTAINS END PT OF DO (20)F2A11500 05721 0040 00 0 05735 TLQ DTDO1 TRA IF END OF TRA AFTER END OF DO (20)F2A11510 05722 0402 00 0 04617 SUB BNA (20)F2A11520 05723 -0120 00 0 05735 TMI DTDO1 TRA IF END OF DO IS BEFORE BEG OF DO (20)F2A11530 05724 0100 00 0 05735 TZE DTDO1 TRA IF END OF TRA = BEG OF DO (20)F2A11540 05725 0500 00 0 04621 CLA G AC CONTAINS BEG OF TRA (20)F2A11550 05726 0040 00 0 05731 TLQ *+3 TRA FROM OUT OF DO RANGE GO TO TEST (20)F2A11560 05727 0560 00 0 04617 LDQ BNA (20)F2A11570 05730 0040 00 0 05735 TLQ DTDO1 TRA IF TRA FROM WITHIN DO (20)F2A11580 05731 0500 00 1 37515 CLA DOTGZ+5,1 PICK UP LEVEL OF DO (20)F2A11590 05732 0622 00 0 05750 STD DTLEV SAVE IT FOR TEST (20)F2A11600 05733 0500 00 1 37517 DT006 CLA DOTGZ+7,1 DOES THIS DO CONTAIN A TRA OUT OF NEST(20)F2A11610 05734 0120 00 0 05744 TPL DT001 NO, CHECK INNER DOES (20)F2A11620 05735 -0534 00 1 04622 DTDO1 LXD XDG,1 YES, TRA LEGAL, GET NEXT DO (20)F2A11630 05736 -3 11154 1 05711 TXL DTSCAN+2,1,600*M/N*9-9 IS THIS THE LAST DO (20)F2A11640 05737 0020 00 4 00001 TRA 1,4 YES, GET NEXT A (TRA ENDPOINT) (20)F2A11650 05740 -0534 00 4 04627 DT050 LXD TIFX,4 PICK UP TIFGO POINTER (20)F2A11660 05741 1 77776 4 05742 TXI *+1,4,-2 STEP UP POINTER (20)F2A11670 BINARY CARD NO. 9F180049 05742 3 00000 4 05701 DTEND TXH DT000,4,** IS THIS END OF TIFGO (20)F2A11680 05743 0020 00 0 05435 TRA LB02 YES, EXIT (20)F2A11690 05744 1 77767 1 05745 DT001 TXI *+1,1,-9 GET NEXT BACK DO (20)F2A11700 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 24 BLOCK A. 05745 -3 00000 1 05751 TXL DTERR,1,** TRA TO ERROR IF LAST DO WAS CHECKED (20)F2A11710 05746 0500 00 1 37515 CLA DOTGZ+5,1 (20)F2A11720 05747 -0734 00 2 00000 PDX 0,2 PICK UP LEVEL OF THIS DO (20)F2A11730 05750 3 00000 2 05733 DTLEV TXH DT006,2,** IS IT CONTAINED WITHIN DO WITH TRA (20)F2A11740 05751 -0534 00 1 04627 DTERR LXD TIFX,1 NO, GET IFN OF ILLEGAL TRA, TO PRINT (20)F2A11750 05752 0074 00 4 03754 TSX ERROR4,4 ILLEGAL TRA INTO THE RANGE OF A DO (20)F2A11760 05753 -0760 00 0 00001 TRA88 PBT IS LEVEL GREATER THAN 20. (23)F2A11770 05754 0074 00 4 03753 TSX ERROR3,4 YES, SOURCE PROGRAM ERROR. (23)F2A11780 05755 0020 00 0 05057 TRA TRA95 NO (23)F2A11790 06117 ENDB SYN *+97 (23)F2A11800 BINARY CARD NO. TRA77777 77777 TCD -1 (23)F2A11810 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 25 BLOCK B. * SECTION TWO OF 709/7090 32K FORTRAN, BLOCK B. F2B00000 HEAD 2 F2B00010 00102 ORG SYSCUR $F2B00020 BINARY CARD NO. 9F190000 00102 112601110000 BCI 1,9F1900 $F2B00030 73666 ORG (LODR) $F2B00040 BINARY CARD NO. 9F190001 73666 1 00276 0 04432 TXI BEGIN,,190 F2B00060 SUBSCRIPT COMBINATIONS WHICH HAVE SUBSCRIPTS F2B00080 SOME OR ALL OF WHICH ARE UNDER CONTROL OF THEIR RESPECTIVE F2B00090 DOS. THERE IS A CODING BLOCK STARTING AT SYMBOL CORES, F2B00100 VARIOUSLY TERMED STATE B OR RELCON, WHICH IS RESERVED F2B00110 FOR THOSE SUBSCRIPT COMBINATIONS F2B00120 SOME SUBSCRIPT ELEMENT/S OF WHICH ARE F2B00130 NOT UNDER CONTROL OF A DO (RELATIVE F2B00140 CONSTANT). F2B00150 00007 M SYN 1$M M/N IS THE RATIO OF TABLE SIZES F2B00160 00010 N SYN 1$N TO NORMAL 32K SIZES. F2B00170 04004 ORG BITTWO+1 F2B00180 HEAD 0 F2B00190 CELLS AND SUBROUTINES COMMON F2B00200 TO BLOCKS TWO AND THREE. F2B00210 BINARY CARD NO. 9F190002 04004 +000000000001 L(1)A OCT 1 F2B00220 04005 +000000000000 L(0) OCT 0 F2B00230 04006 +377777777777 35ONES OCT 377777777777 F2B00240 04007 0 00000 0 00000 RSYM1 PZE F2B00250 04010 0 00000 0 00000 RSYM2 PZE F2B00260 04011 0 00000 0 00000 RSYM3 PZE F2B00270 04012 0 00000 0 00000 C1 PZE F2B00280 04013 0 00000 0 00000 S1 PZE F2B00290 04014 0 00000 0 00000 C2 PZE F2B00300 04015 0 00000 0 00000 S2 PZE F2B00310 04016 0 00000 0 00000 C3 PZE F2B00320 04017 0 00000 0 00000 S3 PZE F2B00330 04020 0 00000 0 00000 D1 PZE F2B00340 04021 0 00000 0 00000 D2 PZE F2B00350 04022 0 00000 0 00000 A PZE F2B00360 04023 0 00000 0 00000 B PZE F2B00370 04024 0 00000 0 00000 NEXTA PZE F2B00380 04025 0 00000 0 00000 LASTB PZE F2B00390 04026 0 00000 0 00000 TAG PZE F2B00400 04027 0 00000 0 00000 TRABIT PZE F2B00410 THIS ROUTINE, GIVEN A TAU TAG, OBTAINS THE F2B00420 CORRESPONDING SUBSCRIPT COMBINATION FROM THE TAU F2B00430 TABLE AND POSITIONS IT IN PROPER FORMAT IN WORK SPACE. F2B00440 51160 TAU1 SYN 1$TAU1 F2B00450 52454 TAU2 SYN 1$TAU2 F2B00460 55030 TAU3 SYN 1$TAU3 F2B00470 34440 FORTZ SYN 1$FORTZ F2B00480 37510 DOTGZ SYN 1$DOTGZ F2B00490 04030 -0634 00 4 04114 SUBCOM SXD SUB085,4 SAVE LINKAGE INDEX F2B00500 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 26 BLOCK B. 04031 -0534 00 4 04122 LXD SUBORG+2,4 INITIALIZE F2B00510 BINARY CARD NO. 9F190003 04032 -0754 00 0 00000 PXD 0,0 SUBSCRIPT COMBO F2B00520 04033 0601 00 4 04022 SUB020 STO C1+8,4 SPACE F2B00530 04034 2 00001 4 04033 TIX SUB020,4,1 TO ZERO F2B00540 04035 0500 00 0 04026 CLA TAG COMPUTE F2B00550 04036 0765 00 0 00011 LRS 9 TABLE F2B00560 04037 0734 00 6 00000 PAX 0,6 ADDRESS F2B00570 04040 -0754 00 0 00000 PXD 0,0 TAU ONE ADD. IS ORG+2 TAU. F2B00580 04041 0763 00 0 00011 LLS 9 TAU TWO ADD. IS ORG+4 TAU. F2B00590 04042 0767 00 0 00001 ALS 1 TAU THREE ADD. IS ORG+6 TAU. F2B00600 04043 0601 00 0 04123 STO SUBES1 STORE TWO TAU F2B00610 04044 0500 00 4 04123 CLA SUBORG+3,4 GET ORG AND F2B00620 04045 0400 00 0 04123 SUB030 ADD SUBES1 ADD FACTOR OF TWO TAU F2B00630 04046 2 00001 4 04045 TIX SUB030,4,1 F2B00640 04047 0621 00 0 04065 STA SUB038 SET F2B00650 04050 -3 00002 2 04053 TXL SUB032,2,2 UP F2B00660 04051 0400 00 0 04004 ADD L(1)A CLA F2B00670 04052 0621 00 0 04070 STA SUB039 ADDRESSES F2B00680 04053 0400 00 0 04004 SUB032 ADD L(1)A FOR F2B00690 04054 0621 00 0 04072 STA SUB040 THE F2B00700 04055 -3 00001 2 04065 TXL SUB038,2,1 RETEIEVAL F2B00710 04056 0400 00 0 04004 ADD L(1)A AND F2B00720 04057 0621 00 0 04075 STA SUB043 DISPERSAL F2B00730 BINARY CARD NO. 9F190004 04060 -3 00002 2 04063 TXL SUB034,2,2 OF F2B00740 04061 0400 00 0 04004 ADD L(1)A THE F2B00750 04062 0621 00 0 04100 STA SUB046 TAU F2B00760 04063 0400 00 0 04004 SUB034 ADD L(1)A TABLE F2B00770 04064 0621 00 0 04102 STA SUB050 ENTRY F2B00780 04065 0500 00 0 00000 SUB038 CLA ** GET C1,C2 WORD FOR F2B00790 04066 0601 00 0 04012 STO C1 TAU 1,2,3. F2B00800 04067 -3 00002 2 04072 TXL SUB040,2,2 F2B00810 04070 0500 00 0 00000 SUB039 CLA ** GET C3 WORD FOR F2B00820 04071 0601 00 0 04016 STO C3 TAU 3. F2B00830 04072 0500 00 0 00000 SUB040 CLA ** GET S1 WORD FOR F2B00840 04073 0601 00 0 04013 STO S1 TAU1,2,3 F2B00850 04074 -3 00001 2 04116 TXL SUB095,2,1 F2B00860 04075 0500 00 0 00000 SUB043 CLA ** GET S2 WORD FOR F2B00870 04076 0601 00 0 04015 STO S2 TAU 2,3 F2B00880 04077 -3 00002 2 04102 TXL SUB050,2,2 F2B00890 04100 0500 00 0 00000 SUB046 CLA ** GET S3 WORD FOR F2B00900 04101 0601 00 0 04017 STO S3 TAU 3 F2B00910 04102 0500 00 0 00000 SUB050 CLA ** GET D1, D2 WORD FOR F2B00920 04103 0601 00 0 04020 STO D1 TAU 2,3 F2B00930 04104 -0534 00 4 04121 SUB075 LXD SUBORG+1,4 REARRANGE C1,C2,D1,D2, F2B00940 04105 0500 00 4 04021 SUB080 CLA C1+7,4 TO COMPLY WITH CORE F2B00950 BINARY CARD NO. 9F190005 04106 0734 00 2 00000 PAX 0,2 STORAGE FORMAT. F2B00960 04107 -0320 00 0 04001 ANA DECMSK F2B00970 04110 0601 00 4 04021 STO C1+7,4 F2B00980 04111 -0754 00 2 00000 PXD 0,2 F2B00990 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 27 BLOCK B. 04112 -2 00006 4 04115 TNX SUB090,4,6 F2B01000 04113 0601 00 0 04014 STO C2 F2B01010 04114 -3 00000 0 04105 SUB085 TXL SUB080,,0 F2B01020 04115 0601 00 0 04021 SUB090 STO D2 F2B01030 04116 -0534 00 4 04114 SUB095 LXD SUB085,4 RESTORE LINKAGE INDEX. F2B01040 04117 0020 00 4 00001 TRA 1,4 RETURN. F2B01050 04120 0 00006 0 55030 SUBORG TAU3,0,6 ADDRESSES F2B01060 04121 0 00007 0 52454 TAU2,0,7 CONTAIN F2B01070 04122 0 00010 0 51160 TAU1,0,8 ORIGINS OF TAU. F2B01080 04123 0 00000 0 00000 SUBES1 PZE E.S. FOR 2TAU ADDITIVE FACTOR. F2B01090 04124 -0734 00 1 00000 LIST PDX 0,1 PUT IX QUANTITY IN XRA F2B01100 04125 0734 00 2 00000 PAX 0,2 PUT NR. WDS IN XRB, XRC. F2B01110 04126 0400 00 0 04152 ADD LIST50 COMPUTE NUMBER WDS PLUS F2B01120 04127 0621 00 0 04142 STA LIST10 ORIGIN E1 AND INITIALIZE ADD. F2B01130 04130 0402 00 0 04152 SUB LIST50 SALVAGE ORIGINAL KEY WORD, F2B01140 04131 0400 00 1 04171 ADD LADDS+5,1 COMPUTE NR WDS PLUS F2B01150 04132 0621 00 0 04143 STA LIST20 CURRENT TABLE ADD AND INIT. ADD. F2B01160 04133 0500 00 1 04176 CLA LADDIN+5,1 TEST F2B01170 BINARY CARD NO. 9F190006 04134 0771 00 0 00022 ARS 18 FOR F2B01180 04135 0402 00 1 04171 SUB LADDS+5,1 FULL F2B01190 04136 -0100 00 0 04142 TNZ LIST10 TABLE. F2B01200 04137 -0634 00 1 04141 SXD LIST05,1 FULL TABLE ERROR, SAVE F2B01210 04140 0074 00 4 03760 TSX ERROR7,4 SOURCE PROGRAM ERROR. F2B01220 04141 0 00000 0 00000 LIST05 PZE F2B01230 04142 0500 00 2 00000 LIST10 CLA 0,2 PUT ENTRY F2B01240 04143 0601 00 2 00000 LIST20 STO 0,2 INTO TABLE. F2B01250 04144 2 00001 2 04142 TIX LIST10,2,1 F2B01260 04145 0500 00 1 04171 CLA LADDS+5,1 COMPUTE F2B01270 04146 0400 00 1 04164 ADD CHATAG+5,1 NEXT F2B01280 04147 -0320 00 0 04000 ANA ADDMSK ENTRY ADDRESS F2B01290 04150 0601 00 1 04171 STO LADDS+5,1 F2B01300 04151 0020 00 4 00001 TRA 1,4 EXIT. F2B01310 04152 0000 00 0 04153 LIST50 HTR E1 L(E1) F2B01320 FOUR WORD ENTRY BLOCK. F2B01330 04153 0 00000 0 00000 E1 PZE F2B01340 04154 0 00000 0 00000 E2 PZE F2B01350 04155 0 00000 0 00000 E3 PZE F2B01360 04156 0 00000 0 00000 E4 PZE F2B01370 FIVE KEY WDS, C(DEC)=IX QUAN., C(ADD)=NR. OF WDS. F2B01380 04157 0 00005 0 00002 CHATAG PZE 2,0,5 ACCUMULATOR F2B01390 04160 0 00004 0 00003 TRASTO PZE 3,0,4 KEY F2B01400 04161 0 00003 0 00002 TSXCOM PZE 2,0,3 WORD WHEN F2B01410 BINARY CARD NO. 9F190007 04162 0 00002 0 00002 NAMKEY PZE 2,0,2 TSX TO LIST. F2B01420 04163 0 00001 0 00004 DRMTAG PZE 4,0,1 (ADTAG). F2B01430 FIVE WDS CONTAINING CURRENT TABLE ADDRESSES IN ADD. PART F2B01440 04164 0 00000 0 00000 LADDS PZE CHATAG (INITIALLY ADD IS ADD OF F2B01450 04165 0 00000 0 00000 PZE TRASTO (LADDIN. THEREAFTER, IT F2B01460 04166 0 00000 0 00000 PZE TSXCOM (IS THE ADD OF THE NEXT F2B01470 04167 0 00000 0 00000 PZE NAMKEY (TABLE ENTRY PENDING) F2B01480 04170 0 00000 0 00000 PZE DRMTAG F2B01490 FIVE WDS., C(ADD)=ORG, C(DEC)=LAST TABLE LOCAT. PLUS ONE. F2B01500 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 28 BLOCK B. 04171 0 63424 0 62130 LADDIN PZE CHTGTB,,CHTAGZ CHANGETAG F2B01510 04172 0 65457 0 63425 PZE TRSTTB,,TRSTOZ TRASTO F2B01520 04173 0 71007 0 67513 PZE TSCMTB,,TSXCMZ TSXCOM F2B01530 04174 0 73042 0 71010 PZE NMKYTB,,NAMKYZ NAMEKEY F2B01540 04175 0 51156 0 46366 PZE DMTGTB,,DRMTGZ DRUMTAG F2B01550 SUBROUTINE SPC000 F2B01560 04176 -0634 00 1 04270 SPC000 SXD SPC115,1 SAVE INDEX OF DO TO BE SEARCHED. F2B01570 04177 -0634 00 2 04243 SXD SPC060,2 SAVE TINFOR,LIST INDICATOR F2B01580 04200 -0634 00 4 04260 SXD SPC105,4 SAVE TSX INDEX. F2B01590 04201 0601 00 0 04307 STO SPCKEY SAVE LIST KEY WORD F2B01600 04202 0500 00 1 37515 CLA DOTGZ+5,1 OBTAIN L WORD F2B01610 04203 0622 00 0 04220 STD SPC050 INITIALIZE TEST INSTR. F2B01620 04204 0500 00 1 37510 CLA DOTGZ,1 GET ALPHA-BETA WORD, F2B01630 04205 0734 00 2 00000 PAX 0,2 SAVE BETA, F2B01640 04206 -0320 00 0 04001 ANA DECMSK OBTAIN ALPHA ALONE F2B01650 04207 0601 00 0 04024 STO NEXTA STO IN NEXTA F2B01660 BINARY CARD NO. 9F190008 04210 0601 00 0 04022 STO A AND STORE IN A. F2B01670 04211 -0754 00 2 00000 PXD 0,2 PUT BETA IN LASTB AND F2B01680 04212 0601 00 0 04025 STO LASTB BETING SEARCH FOR R2 F2B01690 04213 -0534 00 1 04270 SPC010 LXD SPC115,1 OBTAIN CURRENT INDEX AND F2B01700 04214 1 77767 1 04215 SPC020 TXI SPC040,1,-9 GO DOWN ONE DO,IF POSSIBLE,ELSE F2B01710 04215 -3 00000 1 04261 SPC040 TXL SPC110,1,0 GO TO SET UP LAST INTERVAL. F2B01720 04216 0500 00 1 37515 CLA DOTGZ+5,1 TEST IF THIS DO F2B01730 04217 -0734 00 2 00000 PDX 0,2 IS IN RANGE OF R1(DXL) F2B01740 04220 -3 00000 2 04261 SPC050 TXL SPC110,2,0 IF NOT, EXIT FOR LAST INTERVAL F2B01750 04221 0500 00 1 37511 CLA DOTGZ+1,1 IF IN R1, IS THIS DO TO BE F2B01760 04222 0402 00 0 04007 SUB RSYM1 SKIPPED. IF NOT,GO BACK TO F2B01770 04223 0100 00 0 04227 TZE SPC053 GET NEXT DO. F2B01780 04224 0500 00 1 37511 CLA DOTGZ+1,1 F2B01790 04225 0402 00 0 04010 SUB RSYM2 F2B01800 04226 -0100 00 0 04214 TNZ SPC020 F2B01810 04227 0500 00 1 37510 SPC053 CLA DOTGZ,1 R2 FOUND, FIX TO SKIP THIS F2B01820 04230 0734 00 2 00000 PAX 0,2 INTERVAL. USE ALPHA OF R2 F2B01830 04231 -0320 00 0 04001 ANA DECMSK AS B,PUT BETA OF R2 IN F2B01840 04232 0601 00 0 04023 STO B NEXTA. F2B01850 04233 -0754 00 2 00000 PXD 0,2 DO FORMULAS WITHIN R2 ARE F2B01860 04234 0601 00 0 04024 STO NEXTA ACCOUNTED FOR AFTER SEARCH. F2B01870 04235 -0634 00 1 04270 SXD SPC115,1 SAVE INDEX OF R2. F2B01880 BINARY CARD NO. 9F190009 04236 -0534 00 2 04243 SPC055 LXD SPC060,2 PUT TINFOR, LIST IND. IN XRB F2B01890 04237 0500 00 0 04022 SPC058 CLA A FOR F2B01900 04240 0402 00 0 04023 SUB B NON EMPTY F2B01910 04241 0100 00 0 04244 TZE SPC065 INTERVALS, F2B01920 04242 -3 00001 2 04275 TXL SPCTIN,2,1 GO TO ARRANGE TINFOR SEARCH, OR F2B01930 04243 -3 00000 0 04300 SPC060 TXL SPCSTO,,0 TRA TO USE LIST. F2B01940 04244 -0534 00 2 04243 SPC065 LXD SPC060,2 RETURN HERE,TEST TINFOR F2B01950 04245 -3 00000 2 04271 TXL SPC120,2,0 LIST IND. IF ZERO, EXIT. F2B01960 04246 -0534 00 1 04270 SPC070 LXD SPC115,1 TO SET UP NEXT INTERVAL, F2B01970 04247 0500 00 1 37515 CLA DOTGZ+5,1 GET INDEX OF LAST R2 AND F2B01980 04250 0622 00 0 04255 STD SPC100 STEP DOWN IN DOTAG BY USUAL F2B01990 04251 1 77767 1 04252 SPC080 TXI SPC090,1,-9 PROCEDURE UNTIL SOME DO IS F2B02000 04252 -3 00000 1 04261 SPC090 TXL SPC110,1,0 FOUND NOT IN R2, OR UNTIL F2B02010 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 29 BLOCK B. 04253 0500 00 1 37515 CLA DOTGZ+5,1 DOTAG ENDED. IF DO FOUND F2B02020 04254 -0734 00 2 00000 PDX 0,2 NOT IN R2,SET A AND GO TO TEST F2B02030 04255 3 00000 2 04251 SPC100 TXH SPC080,2,0 IF THIS DO IS IN R1. F2B02040 04256 0500 00 0 04024 CLA NEXTA IF IT IS,NEWR2 WILL BE FOUND F2B02050 04257 0601 00 0 04022 STO A OR EXIT MADE TO SPC110. F2B02060 04260 -3 00000 0 04220 SPC105 TXL SPC050,,0 F2B02070 04261 0500 00 0 04024 SPC110 CLA NEXTA THIS IS SETUP FOR LAST F2B02080 04262 0601 00 0 04022 STO A INTERVAL. FOR A,USE F2B02090 04263 0500 00 0 04025 CLA LASTB CONTENTS OF NEXTA. FOR B, F2B02100 BINARY CARD NO. 9F190010 04264 0601 00 0 04023 STO B USE BETA OF R1,FOUND IN F2B02110 04265 -0534 00 2 04243 LXD SPC060,2 LASTB. OBTAIN TINFOR,STOTAG F2B02120 04266 0500 00 0 04005 CLA L(0) IND,AND SET LOCATION OF F2B02130 04267 0622 00 0 04243 STD SPC060 INDICATOR TO ZERO. GO TO F2B02140 04270 -3 00000 0 04237 SPC115 TXL SPC058,,0 TINFOR OR TRASTO. F2B02150 04271 -0534 00 4 04260 SPC120 LXD SPC105,4 EXIT,ALL STORES DONE,OR, F2B02160 04272 0020 00 4 00001 TRA 1,4 SEARCH MADE,T NOT FOUND. F2B02170 04273 -0534 00 4 04260 SPC130 LXD SPC105,4 EXIT,T FOUND F2B02180 04274 0020 00 4 00002 TRA 2,4 IN SOME INTERVAL F2B02190 04275 0074 00 4 04316 SPCTIN TSX TINFXX,4 GO TO SEARCH FORTAG F2B02200 04276 0020 00 0 04273 TRA SPC130 T FOUND F2B02210 04277 0020 00 0 04244 TRA SPC065 T NOT FOUND F2B02220 04300 0500 00 0 04023 SPCSTO CLA B FOR TRASTO,E2 AND E3 ARE F2B02230 04301 0771 00 0 00022 ARS 18 ALREADY SET UP. COLLECT F2B02240 04302 0400 00 0 04022 ADD A A AND B INTO E1 WORD, F2B02250 04303 0601 00 0 04153 STO E1 PUT TRASTO INDICATOR IN F2B02260 04304 0500 00 0 04307 CLA SPCKEY ACC. AND F2B02270 04305 0074 00 4 04124 TSX LIST,4 TSX TO LISTING ROUTINE. F2B02280 04306 0020 00 0 04244 TRA SPC065 ON RETURN,GO TO TEST FINISH. F2B02290 04307 0 00000 0 00000 SPCKEY PZE STORAGE FOR TABLE KEY. F2B02300 SUBROUTINES TINFOR AND TINFXX F2B02310 04310 0500 00 1 37510 TINFOR CLA DOTGZ,1 C(XRA) INDEX OF DO TO BE F2B02320 04311 0734 00 1 00000 PAX 0,1 SEARCHED. SEPARATE ALPHA F2B02330 BINARY CARD NO. 9F190011 04312 -0320 00 0 04001 ANA DECMSK AND BETA F2B02340 04313 0601 00 0 04022 STO A AND STORE IN A F2B02350 04314 -0754 00 1 00000 PXD 0,1 F2B02360 04315 0601 00 0 04023 STO B B F2B02370 04316 -0534 00 1 03774 TINFXX LXD MAXFTG,1 PUT MAX FORTAG IX IN XRA. F2B02380 04317 0500 00 1 34440 TINF10 CLA FORTZ,1 OBTAIN FORTAG ENTRY F2B02390 04320 -0320 00 0 04001 ANA DECMSK RETAIN FORMULA NUMBER ONLY F2B02400 04321 0340 00 0 04022 CAS A COMPARE ALPHA AND FORMULA NR. F2B02410 04322 0020 00 0 04327 TRA TINF40 FOR. NR. GREATER THAN ALPHA. TRA. F2B02420 04323 0761 00 0 00000 NOP C(A) MAY BE SOME BETA FROM SPC F2B02430 04324 1 77777 1 04325 TINF20 TXI TINF30,1,-1 FOR.NR. LESS THAN ALPHA. GO F2B02440 BACK FOR NEXT FORTAG ENTRY F2B02450 04325 3 00000 1 04317 TINF30 TXH TINF10,1,0 IF POSSIBLE. OTHERWISE, F2B02460 04326 0020 00 4 00002 TRA 2,4 RETURN TO CALLING INSTR PLUS TWO. F2B02470 04327 0340 00 0 04023 TINF40 CAS B COMPARE FOR. NR. WITH BETA F2B02480 04330 0020 00 4 00002 TRA 2,4 FOR. NR. GREATER THAN BETA,EXIT. F2B02490 04331 0761 00 0 00000 NOP FOR. NR. EQUAL TO OR F2B02500 04332 0500 00 1 34440 CLA FORTZ,1 LESS THAN BETA,OBTAIN FORTAG F2B02510 04333 0120 00 0 04324 TPL TINF20 TAG AND COMPARE WITH SEARCH TAG. F2B02520 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 30 BLOCK B. 04334 -0320 00 0 04000 ANA ADDMSK I.F. NOT EQUAL,GO BACK FOR NEXT TAG F2B02530 04335 0402 00 0 04026 SUB TAG F2B02540 04336 -0100 00 0 04324 TNZ TINF20 IF EQUAL,RETURN TO CALLING F2B02550 04337 0020 00 4 00001 TRA 1,4 F2B02560 HEAD 2 F2B02570 03047 DBUFSZ EQU 200*M/N*9 SIZE OF BUFFERS FOR DO TABLE. F2B02580 73600 ADTAGZ SYN ENDCOR ADDITIONAL F2B02590 73042 ADTAG SYN ADTAGZ-200*M/N*2 TABLE DEFINITIONS. F2B02600 73042 NAMKYZ SYN ADTAG FOR F2B02610 73042 NAMZ SYN NAMKYZ BLOCK 2. F2B02620 71010 NMKYTB SYN NAMKYZ-600*M/N*2 F2B02630 71010 NAM SYN NMKYTB F2B02640 71007 NMKYWC SYN NMKYTB-1 F2B02650 71007 TSXCMZ SYN NMKYWC F2B02660 67513 TSCMTB SYN TSXCMZ-400*M/N*2 F2B02670 67512 TSCMWC SYN TSCMTB-1 F2B02680 67511 RETABZ SYN TSCMWC-1 F2B02690 65457 RETAB SYN RETABZ-1200*M/N F2B02700 65457 TRSTOZ SYN RETAB F2B02710 63425 TRSTTB SYN TRSTOZ-400*M/N*3 F2B02720 63424 TRSTWC SYN TRSTTB-1 F2B02730 63424 CHTAGZ SYN TRSTWC F2B02740 62130 CHTGTB SYN CHTAGZ-400*M/N*2 F2B02750 62127 CHTGWC SYN CHTGTB-1 F2B02760 60074 FIXWC SYN 1$FIXWC F2B02770 55030 TAU3 SYN 1$TAU3 F2B02780 52454 TAU2 SYN 1$TAU2 F2B02790 51160 TAU1 SYN 1$TAU1 F2B02800 46365 4VALZ SYN 1$4VALZ F2B02810 37510 DOTGZ SYN 1$DOTGZ F2B02820 34441 DOTAG SYN DOTGZ-200*M/N*9 F2B02830 34440 DTGWC SYN DOTAG-1 F2B02840 34440 FORTZ SYN 1$FORTZ F2B02850 34440 DO SYN FORTZ F2B02860 36472 DOZ SYN DO+600*M/N*2 F2B02870 22235 TAGZ SYN FRTGWC F2B02880 13361 TAGTAG SYN TAGZ-1000*M/N*4 ORIGIN TAGTAG TABLE. F2B02890 17166 DBUF2 SYN TAGZ-DBUFSZ USED TO BRING IN DOTAG TO F2B02900 14117 DBUF1 SYN DBUF2-DBUFSZ MAKE DO TABLE. F2B02910 04340 ORG TINF40+9 F2B02920 BINARY CARD NO. 9F190012 04340 0 00000 0 00000 DOREC PZE NR DONEST RECS ON TAPE 2. F2B02930 04341 0 00000 0 00000 PZE F2B02940 04342 0 00000 0 00000 ATSW PZE ADDED TAG SW (1 IF PROC ADDED TAGS.)F2B02950 04343 0 00000 0 00000 NEWTAG PZE INIT 4000, FROM FIRSTTAG. F2B02960 04344 0 00000 0 00000 XC PZE IX CURRENT DO. F2B02970 04345 0 00000 0 00000 LC PZE LEV CURRENT DO. F2B02980 04346 0 00000 0 00000 ALPHA PZE ALPHA CURRENT DO. F2B02990 04347 0 00000 0 00000 BETA PZE BETA CURRENT DO. F2B03000 04350 0 00000 0 00000 TS PZE TAG, (4TAG OR NEW TAG NAME.) F2B03010 04351 0 00000 0 00000 TAG1 PZE 4TH WD OF TAGTAG. F2B03020 04352 0 00000 0 00000 GROUP PZE GROUP NO. IN DECR. F2B03030 HERE TO CARWRD ARE SET 0 IN IDENT. F2B03040 04353 0 00000 0 00000 X1 PZE IX DO MATCHING 1ST SYMBOL. $F2B03050 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 31 BLOCK B. 04354 0 00000 0 00000 L1 PZE LEV DO MATCHING 1ST SYMBOL. $F2B03060 04355 0 00000 0 00000 X2 PZE IX DO MATCHING 2ND SYMB $F2B03070 04356 0 00000 0 00000 L2 PZE LEV DO MATCHING 2ND $F2B03080 04357 0 00000 0 00000 X3 PZE IX DO MATCHING 3RD $F2B03090 04360 0 00000 0 00000 L3 PZE LEV DO MATCHING 3RD $F2B03100 04361 0 00000 0 00000 XL PZE IX LOWEST LEVEL DOSUB $F2B03110 04362 0 00000 0 00000 LL PZE LEV LOWEST LEVEL DOSUB $F2B03120 04363 0 00000 0 00000 NRSUBS PZE NR. SUBSCRIPTS IN SUBSCR COMBINATION$F2B03130 04364 0 00000 0 00000 NRRC PZE NR. RELCONS IN SUBSCR COMBINATION $F2B03140 04365 0 00000 0 00000 NRDS PZE NR DOSUBS IN S.C. $F2B03150 BINARY CARD NO. 9F190013 04366 0 00000 0 00000 DORC PZE BIT IN 15,16,17 IF CORRES X1,X2,X3 $F2B03160 IS DORC. F2B03170 04367 0 00000 0 00000 RCSUBS PZE BIT IN 15,16,17 IF CORRES X1,X2,X3 $F2B03180 IS RELCON. F2B03190 04370 0 00000 0 00000 DOSUBS PZE BIT IN 15,16,17 IF CORRES X1,X2,X3 $F2B03200 IS DOSUB. F2B03210 04371 0 00000 0 00000 DELTA PZE $F2B03220 04372 0 00000 0 00000 RCDUP PZE BIT IN 15,16,17 FOR CORRES DUPE RCS.$F2B03230 04373 0 00000 0 00000 DUPES PZE BIT IN 15,16,17 FOR CORRES $F2B03240 DOSUBS. F2B03250 04374 0 00000 0 00000 CARWRD PZE BIT IN 11 IF TYPE 1 CARRY, $F2B03260 12 IF LEFT TYPE 2, 13 IF CENTER F2B03270 TYPE 1, 14 IF CENTER TYPE 2, F2B03280 S SET NEG IF COUNTER AND TEST FOUND F2B03290 04375 0 00000 0 00000 TL1 PZE F2B03300 04376 0 00000 0 00000 TL2 PZE F2B03310 04377 0 00000 0 00000 REBITS PZE F2B03320 04400 0 00000 0 00000 LOWPOS PZE 5,3,1 IF LL SUBSCR. IS X1,X2,X3. F2B03330 04401 0 00000 0 00000 L(0) 0,0,0 F2B03340 04402 0 00001 0 00000 L(1) 0,0,1 F2B03350 04403 0 00002 0 00000 L(2) 0,0,2 F2B03360 04404 0 00003 0 00000 L(3) 0,0,3 F2B03370 04405 0 00004 0 00000 L(4) 0,0,4 F2B03380 04406 0 00005 0 00000 L(5) 0,0,5 F2B03390 04407 0 00006 0 00000 L(6) 0,0,6 F2B03400 04410 0 00044 0 00000 L(36) 0,0,36 F2B03410 04411 0 00000 0 00001 L(1)A 1 F2B03420 04412 0 00000 0 00002 L(2)A 2 F2B03430 04413 0 00000 0 00004 L(4)A 4 F2B03440 BINARY CARD NO. 9F190014 04414 -0 00000 0 00000 L(MZ) MZE F2B03450 04415 0 00000 0 37510 DTGZAD PZE DOTGZ F2B03460 04416 +000100000000 CR1 OCT 100000000 BIT 11 F2B03470 04417 +000040000000 CR2 OCT 40000000 BIT 12 F2B03480 04420 +000000300000 CARMSK OCT 300000 BITS 19,20(CARRY BITS FOR WD6 DOTAG)F2B03490 04421 +000000004000 FRSTAG OCT 4000 F2B03500 04422 -200000000000 2BITS OCT -200000000000 S AND 1 BIT F2B03510 04423 +000000400000 BIT18 OCT 400000 F2B03520 04424 +000000200000 BIT19 OCT 200000 F2B03530 04425 +000000100000 BIT20 OCT 100000 F2B03540 04426 0 00000 0 00536 ADTXX 200*M/N*2 IX VALUE FOR DEC F2B03550 04427 0 00000 0 02032 RESXX 1200*M/N CONTAINS NEXT TABLE ENTRY. F2B03560 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 32 BLOCK B. 04430 0 06654 0 06654 TAGXX 1000*M/N*4,,1000*M/N*4 F2B03570 04431 +000000000000 NAMXX OCT 0 DEC AND ADD INITLZD AT BEGIN EVERY F2B03580 NEST TO VALUE FOR NEXT TABLE ENTRY.F2B03590 THEN DEC BMPD THRU NEST FOR NEXT F2B03600 TABLE ENTRY. F2B03610 * *** F2B03620 04432 0074 00 4 73606 BEGIN TSX (TAPE),4 REWIND F2B03630 04433 0 20000 0 03773 PZE REWIND,,(SKBP) DOTAGA F2B03640 04434 0 00003 0 04603 PZE DTGL,,FTAPE3 TAPE. F2B03650 04435 0774 00 1 00005 AXT 5,1 INITIALIZE F2B03660 04436 0500 00 1 04176 BEG10 CLA LADDIN+5,1 PROGRAM F2B03670 04437 -0320 00 0 04000 ANA ADDMSK ADDRESSES F2B03680 04440 0601 00 1 04171 STO $LADDS+5,1 F2B03690 04441 2 00001 1 04436 TIX BEG10,1,1 F2B03700 BINARY CARD NO. 9F190015 04442 0500 00 0 04401 CLA L(0) F2B03710 04443 0601 00 0 04340 STO DOREC F2B03720 04444 -0534 00 6 04401 LXD L(0),6 TEST FOR EMPTY F2B03730 04445 -0760 00 0 00144 MSE 100 FORVAL F2B03740 04446 -0534 00 4 04402 LXD L(1),4 OFF, NOT EMPTY F2B03750 04447 -0634 00 4 04537 SXD END80,4 ON, EMPTY F2B03760 04450 -0760 00 0 00143 MSE 99 TEST FOR F2B03770 04451 -0534 00 2 04402 LXD L(1),2 EMPTY DOTAG. F2B03780 04452 -0634 00 2 04540 SXD END85,2 SAVE TABLE INFO IN END PROG. F2B03790 04453 -3 00000 2 04463 TXL ENDA,2,0 IF DOTAG EMPTY, GO TO END. F2B03800 04454 -0534 00 1 22235 LXD FORTAG-1,1 INITIALIZE F2B03810 04455 -0634 00 1 04325 SXD TINF30,1 FORTAG F2B03820 04456 -0634 00 1 05016 SXD TAG20,1 TEST F2B03830 04457 -0634 00 1 05125 SXD TAG90,1 INSTRUCTIONS. F2B03840 04460 0500 00 0 04421 PAT01 CLA FRSTAG INITIALIZE NEW TAG NAME BASE. F2B03850 04461 0601 00 0 04343 STO NEWTAG F2B03860 04462 0020 00 0 04541 TRA NEST F2B03870 * *** F2B03880 04463 0074 00 4 73606 ENDA TSX (TAPE),4 WRITE LABEL RECORD F2B03890 04464 0 40001 0 04667 PZE NSTCM2,,(WBNP) FOR DOTAG B. F2B03900 04465 0 00002 0 04670 PZE DTGBL,,FTAPE2 FILE (LABEL ONLY). F2B03910 * *** F2B03920 04466 0074 00 4 73606 END TSX (TAPE),4 WRITE EOF F2B03930 04467 0 40005 0 00000 PZE ,,(WEFP) AFTER F2B03940 BINARY CARD NO. 9F190016 04470 0 00004 0 04604 PZE FIL2L,,FTAPE4 TAGTAG. F2B03950 04471 0500 00 0 04170 CLA $LADDS+4 MAKE INDICATION IN F2B03960 04472 0621 00 0 04476 STA END05 TABLE F2B03970 04473 0400 00 0 04411 ADD L(1)A DRMTAG. F2B03980 04474 0621 00 0 04477 STA END06 OF F2B03990 04475 0500 00 0 04006 CLA 35ONES END F2B04000 04476 0601 00 0 00000 END05 STO ** OF F2B04010 04477 0601 00 0 00000 END06 STO ** ENTRIES. F2B04020 04500 -0534 00 1 04406 LXD L(5),1 F2B04030 04501 0500 00 1 04176 END10 CLA LADDIN+5,1 STORE F2B04040 04502 0402 00 0 04411 SUB L(1)A TABLE F2B04050 04503 0621 00 0 04510 STA END15 WORD COUNTS IN F2B04060 04504 0500 00 1 04176 CLA LADDIN+5,1 WD PRECEDING EACH TABLE OF F2B04070 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 33 BLOCK B. 04505 -0320 00 0 04000 ANA ADDMSK DRMTAG, F2B04080 04506 0402 00 1 04171 SUB $LADDS+5,1 NAMEKEY, F2B04090 04507 0760 00 0 00003 SSP TSXCOM, F2B04100 04510 0601 00 0 00000 END15 STO ** TRASTO, F2B04110 04511 2 00001 1 04501 TIX END10,1,1 CHATAG. F2B04120 04512 0760 00 0 00140 PSE 96 RESTORE SENSE LIGHTS F2B04130 04513 -0534 00 1 04537 LXD END80,1 SL 100 ON, FORVAL EMPTY F2B04140 04514 3 00000 1 04516 TXH END20,1,0 SL 99 ON, DOTAG EMPTY. F2B04150 04515 0760 00 0 00144 PSE 100 F2B04160 BINARY CARD NO. 9F190017 04516 -0534 00 1 04540 END20 LXD END85,1 F2B04170 04517 3 00000 1 04521 TXH END30,1,0 F2B04180 04520 0760 00 0 00143 PSE 99 F2B04190 * *** F2B04200 04521 0074 00 4 73606 END30 TSX (TAPE),4 WRITE EOF F2B04210 04522 0 40005 0 00000 PZE ,,(WEFP) AFTER F2B04220 04523 0 00002 0 04605 PZE FIL6L,,FTAPE2 DOTAGB. F2B04230 04524 -0534 00 4 04340 LXD DOREC,4 SAVE DOTAG RECORD COUNT F2B04240 04525 -0634 00 4 03777 SXD DORCCT,4 FOR LATER BLOCKS, F2B04250 04526 0634 00 4 04606 SXA SKPT,4 AND SET SKIP COMMAND. F2B04260 * *** F2B04270 04527 0074 00 4 73606 TSX (TAPE),4 POSITION TAPE F2B04280 04530 0 20000 0 04606 PZE SKPT,,(SKBP) TO READ DOTAG F2B04290 04531 0 00002 0 04670 PZE DTGBL,,FTAPE2 TABLE. F2B04300 * *** F2B04310 04532 0074 00 4 73606 TSX (TAPE),4 REWIND TAGTAG TAPE F2B04320 04533 0 20000 0 03773 PZE REWIND,,(SKBP) FOR LATER F2B04330 04534 0 00004 0 04536 PZE TRLVL,,FTAPE4 POSITIONING. F2B04340 04535 0020 00 0 07633 TRA MKDO GO TO FORM DO TABLE. F2B04350 04536 635121432565 TRLVL BCI 1,TRALEV F2B04360 04537 0 00000 0 00000 END80 PZE ES. (DEC IS 1 IF 4VAL NOT EMPTY) F2B04370 04540 0 00000 0 00000 END85 PZE ES. (DEC IS 1 IF DOTAG NOT EMPTY) F2B04380 * *** F2B04390 04541 0074 00 4 73606 NEST TSX (TAPE),4 READ ONE F2B04400 04542 0 40014 0 04601 PZE NSTCOM,,(RBEC) NEST OF F2B04410 04543 0 00003 0 04603 PZE DTGL,,FTAPE3 DOTAGA. F2B04420 * *** F2B04430 BINARY CARD NO. 9F190018 04544 -0520 00 0 73675 NZT (SCHU)+FTAPE3 TEST FOR EOF. F2B04440 04545 0020 00 0 05667 TRA TETAPE F2B04450 * *** F2B04460 04546 0500 00 0 73675 CLA (SCHU)+FTAPE3 F2B04470 04547 0601 00 0 04602 STO NSTSCH F2B04480 04550 -0320 00 0 04000 ANA ADDMSK INTO ADD OF AC F2B04490 04551 0402 00 0 04415 SUB DTGZAD F2B04500 04552 -0120 00 0 04555 TMI NEST20 IF STORAGE EXCEEDED, F2B04510 04553 0100 00 0 04555 TZE NEST20 F2B04520 04554 0074 00 4 03757 TSX ERROR6,4 SOURCE PROGRAM ERROR. F2B04530 04555 0734 00 2 00000 NEST20 PAX 0,2 F2B04540 04556 0500 00 0 04401 NEST30 CLA L(0) INITIALIZING INSTRUCTIONS. F2B04550 04557 0601 00 0 04342 STO ATSW F2B04560 04560 -0634 00 2 04344 SXD XC,2 PUT C(XRB) IN XC F2B04570 04561 -0634 00 2 34440 SXD DOTAG-1,2 INITIALIZE F2B04580 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 34 BLOCK B. 04562 -0634 00 2 05616 SXD TRW20,2 THAT F2B04590 04563 -0634 00 2 05631 SXD TRW50,2 TEST F2B04600 04564 -0634 00 2 04215 SXD SPC040,2 END OF F2B04610 04565 -0634 00 2 04252 SXD SPC090,2 DONEST. F2B04620 04566 0534 00 4 04426 LXA ADTXX,4 INIT F2B04630 04567 -0634 00 4 04426 SXD ADTXX,4 DECS F2B04640 04570 0534 00 4 04427 LXA RESXX,4 FROM F2B04650 04571 -0634 00 4 04427 SXD RESXX,4 ADDRESSES. F2B04660 BINARY CARD NO. 9F190019 04572 0500 00 0 04174 CLA LADDIN+3 GET UPPER TERMINUS NAMKEY. F2B04670 04573 0771 00 0 00022 ARS 18 TABLE IN ADDRESS, F2B04680 04574 0402 00 0 04167 SUB $LADDS+3 MINUS CURRENT FOR XR VALUE, F2B04690 04575 0621 00 0 04431 STA NAMXX AND INITLZ NAMXX F2B04700 04576 0767 00 0 00022 ALS 18 (ADD WILL GET LOWER TERMINUS, F2B04710 04577 0622 00 0 04431 STD NAMXX DEC NEXT-PENDING FOR THIS NEST) F2B04720 04600 0020 00 0 04671 TRA DOFOR IF NO ERROR, GO TO DOFOR. F2B04730 04601 3 03047 0 34441 NSTCOM IORT DOTAG,,201*M/N*9 F2B04740 04602 0 00000 0 00000 NSTSCH PZE $F2B04750 04603 244663212721 DTGL BCI 1,DOTAGA F2B04760 04604 254626026060 FIL2L BCI 1,EOF2 F2B04770 04605 254626066060 FIL6L BCI 1,EOF6 F2B04780 04606 -0 00001 0 00000 SKPT MZE **,,1 F2B04790 04607 -0534 00 2 04405 NESTEN LXD L(4),2 PUT END OF NEST INDICATION F2B04800 04610 0500 00 0 04006 CLA 35ONES IN TAGTAG, CONSISTING OF F2B04810 04611 0601 00 2 04157 NEST80 STO $E1+4,2 FOUR WDS OF 35 ONES. F2B04820 04612 2 00001 2 04611 TIX NEST80,2,1 F2B04830 04613 0074 00 4 05655 TSX TAGENT,4 ENTER IN TAGTAG AND F2B04840 04614 0500 00 0 04402 CLA L(1) SET ADDED TAG SWITCH F2B04850 04615 0601 00 0 04342 STO ATSW AND GO TO DRMENT TO F2B04860 04616 0074 00 4 05515 TSX DRMENT,4 PROCESS ADDED TAGS F2B04870 04617 -0534 00 1 04426 LXD ADTXX,1 TRANSFER F2B04880 BINARY CARD NO. 9F190020 04620 -0634 00 1 04640 SXD NEST88,1 TO DRUM TABLE NAME F2B04890 04621 0534 00 1 04426 LXA ADTXX,1 ALL ENTRIESP F2B04900 04622 -3 00000 0 04640 NEST85 TXL NEST88,,0 IN CORE TABLE ADTAG F2B04910 04623 0500 00 1 73601 NEST86 CLA ADTAGZ+1,1 EXCEPT F2B04920 04624 -0120 00 0 04637 TMI NEST87 RESET F2B04930 04625 0601 00 0 04154 STO $E2 ENTRIES F2B04940 04626 0500 00 1 73600 CLA ADTAGZ,1 F2B04950 04627 0601 00 0 04153 STO $E1 F2B04960 04630 -0734 00 2 00000 PDX 0,2 F2B04970 04631 0500 00 2 37510 CLA DOTGZ,2 F2B04980 04632 0622 00 0 04153 STD $E1 F2B04990 04633 -0634 00 1 04622 SXD NEST85,1 F2B05000 04634 0500 00 0 04162 CLA NAMKEY F2B05010 04635 0074 00 4 04124 TSX $LIST,4 F2B05020 04636 -0534 00 1 04622 LXD NEST85,1 F2B05030 04637 1 77776 1 04640 NEST87 TXI NEST88,1,-2 F2B05040 04640 3 00000 1 04623 NEST88 TXH NEST86,1,0 F2B05050 04641 -0534 00 1 34440 NST100 LXD DOTAG-1,1 F2B05060 04642 0020 00 0 04653 TRA NST120 F2B05070 04643 0500 00 1 37520 NST110 CLA DOTGZ+8,1 DOES BIT 20 WD 9 OF THIS DOTAG F2B05080 04644 -0320 00 0 04425 ANA BBIT EQ 1. F2B05090 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 35 BLOCK B. 04645 0100 00 0 04653 TZE NST120 AND F2B05100 BINARY CARD NO. 9F190021 04646 0500 00 1 37507 CLA DOTGZ-1,1 DOES BIT 18 WD9 OF PRIOR DOTAG F2B05110 04647 -0320 00 0 04423 ANA ABIT EQ 1. F2B05120 04650 -0100 00 0 04653 TNZ NST120 F2B05130 04651 0500 00 0 04000 CLA ADDMSK YES. ERASE DEC WD 9 F2B05140 04652 0320 00 1 37520 ANS DOTGZ+8,1 OF PRIOR DOTAG. F2B05150 04653 1 00011 1 04654 NST120 TXI NST130,1,9 F2B05160 04654 -3 03036 1 04643 NST130 TXL NST110,1,200*M/N*9-9 F2B05170 04655 0500 00 0 04340 CLA DOREC WRITE F2B05180 04656 0400 00 0 04402 ADD L(1) DOTAG F2B05190 04657 0601 00 0 04340 STO DOREC ON F2B05200 04660 0534 00 4 04602 LXA NSTSCH,4 SET THE DECREMENT OF THE $F2B05210 04661 1 43337 4 04662 TXI *+1,4,-DOTAG CHANNEL COMMAND WITH THE $F2B05220 04662 -0634 00 4 04667 SXD NSTCM2,4 WORD COUNT. $F2B05230 * *** F2B05250 04663 0074 00 4 73606 NEST90 TSX (TAPE),4 WRITE A F2B05260 04664 0 40011 0 04667 PZE NSTCM2,,(WBNC) NEST OF F2B05270 04665 0 00002 0 04670 PZE DTGBL,,FTAPE2 DOTAGB. F2B05280 04666 0020 00 0 04541 TRA NEST RETURN FOR NEXT NEST. F2B05290 04667 -1 00000 0 34441 NSTCM2 IOCT DOTAG,0,0 (DEC INITIALIZED. $F2B05300 04670 244663212722 DTGBL BCI 1,DOTAGB F2B05310 04671 -0534 00 1 04344 DOFOR LXD XC,1 OBTAIN F2B05320 04672 1 00011 1 04673 TXI DOF10,1,9 NEXT BACK DO, F2B05330 04673 3 03047 1 04607 DOF10 TXH NESTEN,1,200*M/N*9 IF ANY. F2B05340 BINARY CARD NO. 9F190022 04674 0074 00 4 04772 TSX DOINFO,4 USE DOINFO F2B05350 04675 0020 00 0 05006 TRA TAG00 AND GO TO TAG00 ROUTINE. F2B05360 04676 -0534 00 1 04344 DOFEND LXD XC,1 IS A COUNTER F2B05370 04677 0500 00 1 37520 CLA DOTGZ+8,1 F2B05380 04700 -0320 00 0 04424 ANA BIT19 F2B05390 04701 0100 00 0 04735 TZE MAKESC F2B05400 04702 -0500 00 1 37515 CAL DOTGZ+5,1 NECESSARY BECAUSE OF F2B05410 04703 -0320 00 0 04422 ANA 2BITS TRANSFERS OR COMPUTATION WITH F2B05420 04704 -0100 00 0 04710 TNZ DOF15 SYMBOL. F2B05430 04705 0500 00 0 04425 CLA BIT20 TEST FOR F2B05440 04706 -0320 00 1 37516 ANA DOTGZ+6,1 DELTA TWO F2B05450 04707 0100 00 0 04714 TZE DOF20 INSERT F2B05460 04710 0500 00 1 37516 DOF15 CLA DOTGZ+6,1 HAS A COUNTER BEEN F2B05470 04711 -0320 00 0 04003 ANA BITTWO FOUND. F2B05480 04712 -0100 00 0 04731 TNZ DOF40 IF NOT, F2B05490 04713 0020 00 0 04735 TRA MAKESC MAKE ONE. (RETURN IS TO DOF40) F2B05500 04714 0500 00 1 37520 DOF20 CLA DOTGZ+8,1 HAS A TEST F2B05510 04715 -0734 00 2 00000 PDX 0,2 BEEN F2B05520 04716 3 00000 2 04720 TXH DOF25,2,0 FOUND. F2B05530 04717 0020 00 0 04735 TRA MAKESC NO, MAKE A COUNTER. F2B05540 04720 0500 00 1 37515 DOF25 CLA DOTGZ+5,1 YES, HAS SYM OCCURRED WITH F2B05550 04721 -0320 00 0 04423 ANA SUBBIT RELCON NOT AS TYPE ONE CARRY. F2B05560 BINARY CARD NO. 9F190023 04722 -0100 00 0 04731 TNZ DOF40 IF YES, GO TO DOF40 F2B05570 04723 0500 00 1 37520 DOF30 CLA DOTGZ+8,1 IF SYM HAS NOT OCCURRED WITH F2B05580 04724 0771 00 0 00014 ARS 12 RELCON OR IN SUCH OCCURRENCES F2B05590 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 36 BLOCK B. 04725 -0734 00 2 00000 PDX 0,2 WAS ALWAYS A TYPE ONE F2B05600 04726 -3 00013 2 04731 TXL DOF40,2,11 CARRY, IS CURRECT TEST F2B05610 04727 0500 00 0 04425 CLA BBIT F2B05620 04730 -0602 00 1 37520 ORS DOTGZ+8,1 F2B05630 04731 0500 00 0 04734 DOF40 CLA DOF50 MADE. TAKE SIGN AND F2B05640 04732 0320 00 1 37520 ANS DOTGZ+8,1 TEST TABLE INTEGER OUT F2B05650 04733 0020 00 0 04671 TRA DOFOR OF TEST WORD AND EXIT. F2B05660 04734 +007777777777 DOF50 OCT 7777777777 F2B05670 04735 0500 00 0 04405 MAKESC CLA L(4) INITIALIZE F2B05680 04736 0601 00 0 04370 STO DOSUBS DOSUBS AND OTHER LOCATIONS F2B05690 04737 0500 00 0 04401 CLA L(0) USED IN 1NS00. F2B05700 04740 0601 00 0 04367 STO RCSUBS F2B05710 04741 0601 00 0 04366 STO DORC F2B05720 04742 0601 00 0 04012 STO $C1 F2B05730 04743 0601 00 0 04374 STO CARWRD F2B05740 04744 0500 00 0 04343 CLA NEWTAG GET A NAME F2B05750 04745 0601 00 0 04350 STO TS FOR THIS F2B05760 04746 0400 00 0 04411 ADD L(1)A SUBSCRIPT AND F2B05770 04747 0601 00 0 04343 STO NEWTAG UP DATE NEWTAG. F2B05780 BINARY CARD NO. 9F190024 04750 0074 00 4 06217 TSX 1NS00,4 USE 1NS00 FOR TEST INFO,LIST. F2B05790 04751 0500 00 0 04407 CLA L(6) SET UP TAG TAG F2B05800 04752 -0501 00 0 04413 ORA L(4)A ENTRY F2B05810 04753 -0501 00 0 04374 ORA CARWRD F2B05820 04754 0602 00 0 04156 SLW $E4 F2B05830 04755 0500 00 0 04350 CLA TS F2B05840 04756 0601 00 0 04155 STO $E3 F2B05850 04757 0500 00 0 04401 CLA L(0) F2B05860 04760 0601 00 0 04154 STO $E2 F2B05870 04761 0500 00 0 04344 CLA XC F2B05880 04762 0771 00 0 00022 ARS 18 F2B05890 04763 -0501 00 0 04346 ORA ALPHA F2B05900 04764 0601 00 0 04153 STO $E1 F2B05910 04765 0074 00 4 05655 TSX TAGENT,4 ENTER INTO TAGTAG. F2B05920 04766 -0534 00 1 04344 LXD XC,1 F2B05930 04767 0500 00 0 04423 CLA ABIT F2B05940 04770 -0602 00 1 37520 ORS DOTGZ+8,1 F2B05950 04771 0020 00 0 04731 TRA DOF40 RETURN F2B05960 04772 0500 00 1 37510 DOINFO CLA DOTGZ,1 FOR THE DO FORMULA WHOSE F2B05970 04773 0734 00 2 00000 PAX 0,2 INDEX IS IN XRA, F2B05980 04774 -0320 00 0 04001 ANA DECMSK ESTABLISH F2B05990 04775 0601 00 0 04346 STO ALPHA ALPHA,BETA,XC,XL F2B06000 BINARY CARD NO. 9F190025 04776 -0754 00 2 00000 PXD 0,2 F2B06010 04777 0601 00 0 04347 STO BETA F2B06020 05000 -0754 00 1 00000 PXD 0,1 F2B06030 05001 0601 00 0 04344 STO XC F2B06040 05002 0500 00 1 37515 CLA DOTGZ+5,1 F2B06050 05003 -0320 00 0 04001 ANA DECMSK F2B06060 05004 0601 00 0 04345 STO LC F2B06070 05005 0020 00 4 00001 TRA 1,4 F2B06080 05006 -0534 00 1 03774 TAG00 LXD MAXFTG,1 THIS ROUTINE. F2B06090 05007 0020 00 0 05016 TRA TAG20 SELECTS EVERY TAG F2B06100 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 37 BLOCK B. 05010 0500 00 1 34440 TAG05 CLA FORTZ,1 IN THE RANGE OF THE F2B06110 05011 -0320 00 0 04001 ANA DECMSK CURRENT DO WHICH F2B06120 05012 0340 00 0 04346 CAS ALPHA CONTAINS THE SUBSCRIPT F2B06130 05013 0020 00 0 05022 TRA TAG30 SYMBOL OF THE CURRENT F2B06140 05014 0074 00 4 03746 TSX ERRORM,4 THE IFN OF A SUBSCRIPTED F2B06150 VARIABLE (XR1 WD IN FORTAG) F2B06160 SHOULD NOT BE SAME AS IFN F2B06170 OF A DO (DECR OF FIRST WD OF F2B06180 DOTAG ENTRY WITH XR VALUE IN F2B06190 XC). 4TAG IS REC11 FILE 5 F2B06200 TAPE 2, DOTAG IS FILE 1 TP 3. F2B06210 05015 1 77777 1 05016 TAG10 TXI TAG20,1,-1 PREVIOUSLY BEEN F2B06220 05016 3 00000 1 05010 TAG20 TXH TAG05,1,0 PROCESSED, AND (DEC IS 4TAG IX) F2B06230 05017 0020 00 0 04676 TRA DOFEND COMPLETELY PROCESSES F2B06240 05020 -0534 00 1 05023 TAG25 LXD TAG40,1 THE TAG. THE RETURN F2B06250 05021 0020 00 0 05015 TRA TAG10 IS TO DOFEND F2B06260 05022 0340 00 0 04347 TAG30 CAS BETA COMPARE WITH BETA. F2B06270 05023 -3 00000 0 04676 TAG40 TXL DOFEND,,0 END RANGE. (DEC HAS 4TAG IX) F2B06280 BINARY CARD NO. 9F190026 05024 0761 00 0 00000 NOP IF ENTRY IS NEGATIVE, F2B06290 05025 0500 00 1 34440 CLA FORTZ,1 THEN IT HAS ALREADY F2B06300 05026 -0120 00 0 05015 TMI TAG10 BEEN PROCESSED. F2B06310 05027 -0320 00 0 04000 ANA ADDMSK STORE F2B06320 05030 0601 00 0 04026 STO $TAG IN TAG, F2B06330 05031 -0634 00 1 05023 SXD TAG40,1 AND SAVE INDEX. F2B06340 05032 0074 00 4 04030 TSX SUBCOM,4 OBTAIN SUB. COM. F2B06350 05033 0761 00 0 00000 NOP F2B06360 05034 0074 00 4 05707 TSX IDENT,4 USE IDENT. F2B06370 05035 0020 00 0 05020 TRA TAG25 SC. NOT WANTED. F2B06380 05036 0074 00 4 06150 TSX NAME,4 SC. TO BE PROCESSED. USE NAME. F2B06390 05037 0074 00 4 05415 TSX BRANCH,4 F2B06400 05040 0074 00 4 05127 TSX SCEND,4 F2B06410 05041 0074 00 4 05655 TSX TAGENT,4 F2B06420 05042 -0534 00 2 04406 TAG50 LXD L(5),2 F2B06430 05043 0500 00 2 04360 TAG52 CLA X1+5,2 ENTER BIT 18 WD 9 F2B06440 05044 0100 00 0 05056 TZE TAG58 OF MATCHING DOTAG F2B06450 05045 -0734 00 1 00000 PDX 0,1 IF 1ST SUBSCR OR F2B06460 05046 3 00004 2 05054 TXH TAG56,2,4 IF THERE IS NO F2B06470 05047 0500 00 0 04416 CLA CR1 TYPE 1 CARRY INTO F2B06480 05050 3 00002 2 05052 TXH TAG54,2,2 THE 2ND AND 3RD F2B06490 05051 0771 00 0 00002 ARS 2 SUBSCRS RESPECTIVELY. F2B06500 BINARY CARD NO. 9F190027 05052 -0320 00 0 04374 TAG54 ANA CARWRD F2B06510 05053 -0100 00 0 05056 TNZ TAG58 F2B06520 05054 0500 00 0 04423 TAG56 CLA ABIT ENTER BIT 18 WD 9. F2B06530 05055 -0602 00 1 37520 ORS DOTGZ+8,1 F2B06540 05056 2 00002 2 05043 TAG58 TIX TAG52,2,2 F2B06550 05057 -0534 00 4 04406 LXD L(5),4 TAG 60 SEQUENCE CONCERNS F2B06560 05060 0500 00 4 04360 TAG60 CLA X1+5,4 TESTS AND ADDED TAGS. F2B06570 05061 0100 00 0 05107 TZE TAG68 FOR EACH INDEXED SUBSCRIPT, F2B06580 05062 -0734 00 1 00000 PDX 0,1 DETERMINE F IRST WHETHER F2B06590 05063 0500 00 0 04367 CLA RCSUBS OR NOT IT F2B06600 05064 -0501 00 0 04366 ORA DORC OCCURS WITH F2B06610 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 38 BLOCK B. 05065 0100 00 0 05077 TZE TAG66 A RELCON. F2B06620 05066 -3 00001 4 05074 TXL TAG64,4,1 IF SO, PUT IN F2B06630 05067 0500 00 0 04416 CLA CR1 SUBBIT MEANING A TEST F2B06640 05070 3 00003 4 05072 TXH TAG62,4,3 IS NEEDED UNLESS F2B06650 05071 0771 00 0 00002 ARS 2 THE 1ST AND 2ND F2B06660 05072 -0320 00 0 04374 TAG62 ANA CARWRD SUBSCR PROMOTE A F2B06670 05073 -0100 00 0 05107 TNZ TAG68 TYPE ONE CARRY (LEFT F2B06680 05074 0500 00 0 04423 TAG64 CLA SUBBIT OR CENTER RESPECTIVELY) F2B06690 05075 -0602 00 1 37515 ORS DOTGZ+5,1 IS F2B06700 05076 -3 00000 0 05107 TAG65 TXL TAG68,,0 NEEDED. F2B06710 05077 0500 00 0 04424 TAG66 CLA BIT19 F2B06720 BINARY CARD NO. 9F190028 05100 -0602 00 1 37520 ORS DOTGZ+8,1 F2B06730 05101 0500 00 1 37515 CLA DOTGZ+5,1 IF THE SS DOES NOT OCCUR F2B06740 05102 -0320 00 0 04422 ANA 2BITS WITH A RELCON, DETERMINE WHETHER OR F2B06750 05103 -0100 00 0 05107 TNZ TAG68 NOT A COUNTER HAS BEEN REQUESTED. F2B06760 05104 -0634 00 4 05076 SXD TAG65,4 IF SO, TAKE NEXT INDEXED SUBSCR. F2B06770 05105 0074 00 2 05200 TSX TEST,2 IF NOT, USE ROUTINE TEST. F2B06780 05106 -0534 00 4 05076 LXD TAG65,4 THEN TAKE NEXT INDEXED SUBSCRIPT. F2B06790 05107 2 00002 4 05060 TAG68 TIX TAG60,4,2 F2B06800 05110 -0534 00 1 05023 TAG70 LXD TAG40,1 SET ALL OCCURRANCES F2B06810 05111 0500 00 1 34440 TAG72 CLA FORTZ,1 OF THIS TAG, IN FORTAG, F2B06820 05112 -0320 00 0 04001 ANA DECMSK IN THE RANGE OF THIS F2B06830 05113 0340 00 0 04347 CAS BETA DO, NEGATIVE. F2B06840 05114 -3 00000 0 05020 TAG75 TXL TAG25,,0 F2B06850 05115 0761 00 0 00000 NOP F2B06860 05116 0500 00 1 34440 CLA FORTZ,1 F2B06870 05117 -0320 00 0 04000 ANA ADDMSK F2B06880 05120 0402 00 0 04026 SUB $TAG F2B06890 05121 -0100 00 0 05124 TNZ TAG80 F2B06900 05122 -0500 00 0 04414 CAL L(MZ) F2B06910 05123 -0602 00 1 34440 ORS FORTZ,1 F2B06920 05124 1 77777 1 05125 TAG80 TXI TAG90,1,-1 F2B06930 05125 3 00000 1 05111 TAG90 TXH TAG72,1,0 (DEC HAS 4TAG INDEX) F2B06940 BINARY CARD NO. 9F190029 05126 0020 00 0 05020 TRA TAG25 RETURN FOR NEXT TAG. F2B06950 SCEND COLLECTS TAGTAG ENTRY AND MAKES TABLE ENTRY F2B06960 05127 0500 00 0 04352 SCEND CLA GROUP ALL OF SCEND IS CONCERNED F2B06970 05130 0601 00 0 04351 STO TAG1 WITH GENERATING THE F2B06980 05131 0500 00 0 04370 CLA DOSUBS TAGTAG ENTRY FROM ITS F2B06990 05132 -0501 00 0 04373 ORA DUPES F2B07000 05133 0771 00 0 00022 ARS 18 VARIOUS COMPONENTS. F2B07010 05134 -0602 00 0 04351 ORS TAG1 F2B07020 05135 0500 00 0 04367 CLA RCSUBS F2B07030 05136 -0501 00 0 04366 ORA DORC F2B07040 05137 0771 00 0 00017 ARS 15 F2B07050 05140 -0602 00 0 04351 ORS TAG1 F2B07060 05141 0500 00 0 04373 CLA DUPES F2B07070 05142 0771 00 0 00011 ARS 9 F2B07080 05143 -0602 00 0 04351 ORS TAG1 F2B07090 05144 -0500 00 0 04374 CAL CARWRD F2B07100 05145 -0602 00 0 04351 ORS TAG1 F2B07110 05146 -0534 00 1 04406 LXD L(5),1 F2B07120 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 39 BLOCK B. 05147 0500 00 0 04402 SCE010 CLA L(1) F2B07130 05150 0340 00 1 04017 CAS $C1+5,1 GENERATES THE THREE BIT F2B07140 05151 0020 00 0 05160 TRA SCE020 TAG SHOWING WHICH F2B07150 05152 0020 00 0 05160 TRA SCE020 COEFFICIENTS ARE GREATER F2B07160 05153 -0754 00 1 00000 PXD 0,1 THAN ONE. F2B07170 BINARY CARD NO. 9F190030 05154 -3 00001 1 05156 TXL SCE015,1,1 F2B07180 05155 0402 00 0 04402 SUB L(1) F2B07190 05156 0771 00 0 00006 SCE015 ARS 6 F2B07200 05157 -0602 00 0 04351 ORS TAG1 F2B07210 05160 2 00002 1 05147 SCE020 TIX SCE010,1,2 F2B07220 05161 0500 00 0 04351 CLA TAG1 TAG1 IS NOW COMPLETE. F2B07230 05162 0601 00 0 04156 STO $E4 CONSTRUCT THE TAGTAG F2B07240 05163 0500 00 0 04026 CLA $TAG ENTRY F2B07250 05164 0767 00 0 00022 ALS 18 F2B07260 05165 0400 00 0 04350 ADD TS F2B07270 05166 0601 00 0 04155 STO $E3 F2B07280 05167 0500 00 0 04357 CLA X3 F2B07290 05170 0771 00 0 00022 ARS 18 F2B07300 05171 0400 00 0 04355 ADD X2 F2B07310 05172 0601 00 0 04154 STO $E2 F2B07320 05173 0500 00 0 04353 CLA X1 F2B07330 05174 0771 00 0 00022 ARS 18 F2B07340 05175 0400 00 0 04346 ADD ALPHA F2B07350 05176 0601 00 0 04153 STO $E1 F2B07360 05177 0020 00 4 00001 TRA 1,4 F2B07370 05200 0500 00 1 37520 TEST CLA DOTGZ+8,1 IF A GOOD F2B07380 05201 -0120 00 2 00001 TMI 1,2 TEST PREVIOUSLY FOUND, EXIT. F2B07390 BINARY CARD NO. 9F190031 05202 0634 00 2 05316 SXA TEST80,2 SAVE RETURN. F2B07400 05203 0500 00 0 04363 CLA NRSUBS IS TAG THREE F2B07410 05204 0402 00 0 04404 SUB L(3) DIMENSIONAL. F2B07420 05205 -0100 00 0 05254 TNZ TEST05 NO, TEST IS VALID F2B07430 05206 0500 00 0 04373 CLA DUPES ARE THERE F2B07440 05207 -0320 00 0 05343 ANA SUBMSK DUPE SUBSCRIPTS. F2B07450 05210 -0100 00 0 05254 TNZ TEST05 YES, TEST IS VALID. F2B07460 05211 -0754 00 1 00000 PXD 0,1 IS CURRENT SUBSCRIPT F2B07470 05212 0402 00 0 04357 SUB X3 THE RIGHTMOST. $F2B07480 05213 0100 00 0 05254 TZE TEST05 YES, TEST IS VALID. $F2B07490 05214 0500 00 0 04370 CLA DOSUBS ARE THE OTHER F2B07500 05215 -0320 00 0 05343 ANA SUBMSK SUBSCRIPTS F2B07510 05216 0322 00 0 05343 ERA SUBMSK DOSUBS. F2B07520 05217 -0100 00 0 05254 TNZ TEST05 NO, TEST IS VALID. F2B07530 05220 0500 00 1 37515 CLA DOTGZ+5,1 IS RIGHTMOST $F2B07540 05221 -0320 00 0 04001 ANA DECMSK SUBSCRIPT CONTROLLED F2B07550 05222 0601 00 0 05342 STO TCL F2B07560 05223 0402 00 0 04360 SUB L3 BY A LOWER LEVEL DO. $F2B07570 05224 -0120 00 0 05254 TMI TEST05 NO, TEST IS VALID. $F2B07580 05225 0020 00 0 07706 TRA TSTPCH YES GO TO PATCHED PORTION $F2B07590 05226 0402 00 0 07716 RETRN SUB L2ORL1 IS CENTER ,OR LEFT, SS CONTROLLED $F2B07600 05227 -0120 00 0 05254 TMI TEST05 BY A LOWER LEVEL DO. NO,TEST IS OK$F2B07610 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 40 BLOCK B. BINARY CARD NO. 9F190032 05230 0500 00 0 04360 CLA L3 ARE TWO OUTER $F2B07620 05231 0402 00 0 07716 SUB L2ORL1 DOS APART $F2B07630 05232 0760 00 0 00003 SSP BY ONLY F2B07640 05233 0402 00 0 04402 SUB L(1) ONE LEVEL. F2B07650 05234 -0100 00 0 05316 TNZ TEST80 NO, TEST IS NOT VALID. F2B07660 05235 0500 00 0 04360 CLA L3 YES, FIND SUBSCRIPT CONTROLLED F2B07670 05236 0402 00 0 07716 SUB L2ORL1 BY OUTER DO. $F2B07680 05237 -0120 00 0 05244 TMI TEST03 $F2B07690 05240 -0534 00 2 07715 LXD X2ORX1,2 CENTER (OR LEFT) SS IS CONTROLLED $F2B07700 05241 -0500 00 2 37517 CAL DOTGZ+7,2 BY OUTER DO. PICK UP TRA BITS $F2B07710 05242 -0534 00 2 07716 LXD L2ORL1,2 AND LEVEL NO. $F2B07720 05243 0020 00 0 05247 TRA TEST04 F2B07730 05244 -0534 00 2 04357 TEST03 LXD X3,2 RIGHT SUBSCRIPT IS CONTROLLED F2B07740 05245 -0500 00 2 37517 CAL DOTGZ+7,2 BY OUTER DO. PICK UP TRA BITS F2B07750 05246 -0534 00 2 04360 LXD L3,2 AND LEVEL NO. F2B07760 05247 0634 00 2 05250 TEST04 SXA *+1,2 IS THERE A TRA FROM THE RANGE OF F2B07770 05250 0767 00 0 00000 ALS ** THE OUTER DO BACK TO THE RANGE F2B07780 05251 -0760 00 0 00001 PBT OF THE OUTER DO. F2B07790 05252 0020 00 0 05254 TRA TEST05 NO, TEST IS VALID. F2B07800 05253 0020 00 0 05316 TRA TEST80 TEST NO GOOD, LEAVE. F2B07810 05254 2 00001 4 05255 TEST05 TIX TEST10,4,1 XRC CONTAINS 5,3,1 F2B07820 05255 -0754 00 4 00000 TEST10 PXD 0,4 DEPENDING ON POSITION NR F2B07830 BINARY CARD NO. 9F190033 05256 0767 00 0 00003 ALS 3 1,2,3. CONSTRUCT A F2B07840 05257 -0501 00 0 04352 ORA GROUP TABLE SEARCH MASK IN F2B07850 05260 -3 00001 4 05266 TXL TEST20,4,1 WHICH THE FORTH OCTAL F2B07860 05261 0601 00 0 05320 STO TEST85 DIGIT IS THE CARRY BIT F2B07870 05262 0500 00 0 04374 CLA CARWRD INFO. FOR THE POSITION F2B07880 05263 0767 00 4 00005 ALS 5,4 BEING CONSIDERED, THE F2B07890 05264 -0320 00 0 05321 ANA TEST90 FIFTH OCTAL DIGIT IS THE F2B07900 05265 -0501 00 0 05320 ORA TEST85 POSITION BIT, AND THE F2B07910 05266 -0534 00 4 05271 TEST20 LXD TEST35,4 SIXTH OCTAL DIGIT F2B07920 05267 0340 00 4 05342 TEST30 CAS TESTAB+15,4 IS THE GROUP NUMBER. F2B07930 05270 1 77777 4 05273 TXI TEST40,4,-1 SEARCH TESTAB FOR F2B07940 05271 -3 00017 0 05274 TEST35 TXL TEST50,0,15 ENTRY AND CONSIDER F2B07950 05272 1 77777 4 05273 TXI TEST40,4,-1 C(XRC) AFTER SEARCH, IF F2B07960 05273 3 00000 4 05267 TEST40 TXH TEST30,4,0 ENTRY NOT FOUND,C(XRC)=0. F2B07970 05274 -0634 00 4 05302 TEST50 SXD TEST60,4 COMPARE THIS INTEGER F2B07980 05275 0500 00 1 37520 CLA DOTGZ+8,1 WITH PREVIOUS INTEGER, F2B07990 05276 -0734 00 4 00000 PDX 0,4 IF ANY. IF NEW NR. IS LESS F2B08000 05277 -3 00000 4 05305 TXL TEST75,4,0 THAN OLD, USE NEW TAG F2B08010 05300 0771 00 0 00014 ARS 12 FOR TEST. OTHERWISE F2B08020 05301 -0734 00 4 00000 PDX 0,4 USE OLD TAG. F2B08030 05302 -3 00000 4 05316 TEST60 TXL TEST80,4,0 (DEC HAS TEST TAB NR FOR THIS S.C.) F2B08040 05303 0500 00 0 05322 TEST70 CLA TEST95 IF THE NEW TAG IS F2B08050 BINARY CARD NO. 9F190034 05304 0320 00 1 37520 ANS DOTGZ+8,1 USED, AND C(XRC) F2B08060 05305 -0534 00 4 05302 TEST75 LXD TEST60,4 AFTER SEARCH WAS ZERO, F2B08070 05306 -0754 00 4 00000 PXD 0,4 SET DOTAGZ+8 WORD F2B08080 05307 0771 00 0 00006 ARS 6 NEGATIVE. F2B08090 05310 -0501 00 0 04350 ORA TS F2B08100 05311 0767 00 0 00022 ALS 18 F2B08110 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 41 BLOCK B. 05312 -0602 00 1 37520 ORS DOTGZ+8,1 F2B08120 05313 3 00000 4 05316 TXH TEST80,4,0 F2B08130 05314 -0500 00 0 04414 CAL L(MZ) F2B08140 05315 -0602 00 1 37520 ORS DOTGZ+8,1 F2B08150 05316 0774 00 2 00000 TEST80 AXT **,2 F2B08160 05317 0020 00 2 00001 TRA 1,2 F2B08170 05320 0 00000 0 00000 TEST85 PZE STORAGE FOR COMPOSED TEST WORD. F2B08180 05321 +000300000000 TEST90 OCT 300000000 BITS 10, 11 F2B08190 05322 +000000777777 TEST95 OCT 777777 F2B08200 05323 +000241000000 TESTAB OCT 241000000 FIRST SIGNIF DIGIT CONTAINS F2B08210 05324 +000221000000 OCT 221000000 A TWO IF TYPE ONE CARRY , F2B08220 05325 +000244000000 OCT 244000000 ONE IF TYPE TWO FROM LEFT OR F2B08230 05326 +000222000000 OCT 222000000 CENTER. (4TH OCT DIG). NEXT F2B08240 05327 +000141000000 OCT 141000000 HAS 4 IF POSIT OF SUBSC IS F2B08250 05330 +000121000000 OCT 121000000 LEFT, 2 IF CENTER, 0 IF RIGHT F2B08260 05331 +000144000000 OCT 144000000 (5TH OCT DIGIT). FINAL DIG HAS F2B08270 BINARY CARD NO. 9F190035 05332 +000122000000 OCT 122000000 GROUP NR. (6TH OCT DIG). F2B08280 05333 +000045000000 OCT 45000000 F2B08290 05334 +000041000000 OCT 41000000 F2B08300 05335 +000021000000 OCT 21000000 F2B08310 05336 +000044000000 OCT 44000000 F2B08320 05337 +000022000000 OCT 22000000 F2B08330 05340 +000043000000 OCT 43000000 F2B08340 05341 +000023000000 OCT 23000000 F2B08350 05342 0 00000 0 00000 TCL PZE F2B08360 05343 +000003000000 SUBMSK OCT 3000000 F2B08370 05344 -0634 00 4 05360 CARRY SXD CAR05,4 SAVE LINKAGE F2B08380 05345 0500 00 2 04357 CLA X1+4,2 PUT LEFT INDEX F2B08390 05346 -0734 00 1 00000 PDX 0,1 IN XRA F2B08400 05347 0500 00 2 04361 CLA X1+6,2 PUT RIGHT INDEX F2B08410 05350 -0734 00 4 00000 PDX 0,4 IN XRC F2B08420 05351 0500 00 1 37515 CLA DOTGZ+5,1 TEST LEFT SUB. DO F2B08430 05352 -0320 00 0 04420 ANA CARMSK CARRY BITS. F2B08440 05353 0100 00 0 05412 TZE CAR30 EXIT IF NO CARRY. F2B08450 05354 0500 00 1 37516 CLA DOTGZ+6,1 COMPARE F2B08460 05355 -0320 00 0 04001 ANA DECMSK NO CARRY TRA LEVEL F2B08470 05356 0340 00 0 04362 CAS LL AND LOW LEVEL. F2B08480 05357 0020 00 0 05412 TRA CAR30 EXIT F2B08490 BINARY CARD NO. 9F190036 05360 -3 00000 0 05412 CAR05 TXL CAR30,,0 F2B08500 05361 0500 00 1 37515 CLA DOTGZ+5,1 COMPUTE FOR LEFT F2B08510 05362 -0320 00 0 04000 ANA ADDMSK SUBSCRIPT THE QUANTITY F2B08520 05363 0601 00 0 05414 STO CAR40 C*X (COEF. TIMES ADDED F2B08530 05364 0560 00 0 05414 LDQ CAR40 VALUE). F2B08540 05365 0200 00 2 04016 MPY $C1+4,2 COMPUTE FOR RIGHT F2B08550 05366 -0600 00 0 05414 STQ CAR40 SUBSCRIPT THE QUANTITY F2B08560 05367 0560 00 0 04020 LDQ $D1 C*N3*D(L) (COEFF. TIMES F2B08570 05370 3 00002 2 05372 TXH CAR10,2,2 INCREMENT TIMES DIM. OF F2B08580 05371 0560 00 0 04021 LDQ $D2 LEFT SUBSCRIPT). F2B08590 05372 0200 00 4 37514 CAR10 MPY DOTGZ+4,4 IF THESE QUANTITIES F2B08600 05373 0200 00 2 04020 MPY $C1+6,2 ARE UNEQUAL, F2B08610 05374 0767 00 0 00021 ALS 17 EXIT F2B08620 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 42 BLOCK B. 05375 0402 00 0 05414 SUB CAR40 F2B08630 05376 -0100 00 0 05412 TNZ CAR30 OBTAIN LEFT F2B08640 05377 0500 00 1 37515 CLA DOTGZ+5,1 SUB. DOTAG F2B08650 05400 -0320 00 0 04420 ANA CARMSK CARRY BITS AGAIN. F2B08660 05401 0771 00 0 00017 ARS 15 TEST FOR F2B08670 05402 0760 00 0 00001 LBT CARRY TYPE ONE F2B08680 05403 0020 00 0 05406 TRA CAR15 OR CARRY TYPE F2B08690 05404 0500 00 0 04416 CLA CR1 TWO. F2B08700 05405 0020 00 0 05407 TRA CAR20 OBTAIN PROPER F2B08710 BINARY CARD NO. 9F190037 05406 0500 00 0 04417 CAR15 CLA CR2 TAGTAG CARRY BIT, F2B08720 05407 3 00002 2 05411 CAR20 TXH CAR25,2,2 SHIFT IF NECESSARY FOR F2B08730 05410 0771 00 0 00002 ARS 2 CENTER SUB. AND F2B08740 05411 -0602 00 0 04374 CAR25 ORS CARWRD PLACE IN CARWRD. F2B08750 05412 -0534 00 4 05360 CAR30 LXD CAR05,4 EXIT F2B08760 05413 0020 00 4 00001 TRA 1,4 F2B08770 05414 0 00000 0 00000 CAR40 PZE E.S. F2B08780 05415 -0634 00 4 05431 BRANCH SXD BRA45,4 IF THERE ARE RELCONS F2B08790 05416 0500 00 0 04364 CLA NRRC (NOT DORC) IN THE SC, F2B08800 05417 0100 00 0 05421 TZE BRA10 USE F2B08810 05420 0020 00 0 06773 TRA CORES RELCON, (CODING BLOCK FOR MIXED RCS.F2B08820 05421 -0534 00 1 04365 BRA10 LXD NRDS,1 THIS ROUTINE F2B08830 05422 3 00001 1 05425 TXH BRA30,1,1 CONDENSES F2B08840 05423 0074 00 4 06217 BRA20 TSX 1NS00,4 DUPLICATE F2B08850 05424 0020 00 0 05445 TRA BRA90 SUBSCRIPTS F2B08860 05425 3 00002 1 05432 BRA30 TXH BRA50,1,2 AND F2B08870 05426 0500 00 0 04373 CLA DUPES TRANSFERS F2B08880 05427 -0100 00 0 05423 TNZ BRA20 TO F2B08890 05430 0074 00 4 06271 BRA40 TSX 2NS00,4 ROUTINES F2B08900 05431 -3 00000 0 05445 BRA45 TXL BRA90,,0 1NS00, 2NS00, 3NS00 F2B08910 05432 -0534 00 4 04373 BRA50 LXD DUPES,4 AFTER F2B08920 05433 3 00006 4 05423 TXH BRA20,4,6 PROCESSING, F2B08930 BINARY CARD NO. 9F190038 05434 -3 00000 4 05444 TXL BRA80,4,0 RETURN F2B08940 05435 3 00005 4 05441 TXH BRA60,4,5 IS TO F2B08950 05436 -3 00003 4 05441 TXL BRA60,4,3 DRMENT OR F2B08960 05437 0500 00 0 04404 CLA L(3) TAG00 F2B08970 05440 0020 00 0 05442 TRA BRA70 F2B08980 05441 0500 00 0 04406 BRA60 CLA L(5) F2B08990 05442 0601 00 0 04370 BRA70 STO DOSUBS F2B09000 05443 0020 00 0 05430 TRA BRA40 F2B09010 05444 0074 00 4 06370 BRA80 TSX 3NS00,4 F2B09020 05445 -0534 00 4 05431 BRA90 LXD BRA45,4 F2B09030 05446 0020 00 4 00001 TRA 1,4 F2B09040 05447 -0634 00 4 05513 RSR SXD RSR20,4 SAVE LINKAGE F2B09050 05450 -0634 00 1 05514 SXD RSR30,1 SAVE INDEX F2B09060 05451 0500 00 1 37516 CLA DOTGZ+6,1 HAS COUNTER ADJUSTMENT F2B09070 05452 -0320 00 0 04423 ANA BIT18 INSTRUCTION BEEN ENTERED. F2B09080 05453 -0100 00 0 05473 TNZ RSR10 IF SO, GO TO RSR10 F2B09090 05454 0500 00 0 04423 CLA BIT18 IF NOT, ENTER IN F2B09100 05455 -0602 00 1 37516 ORS DOTGZ+6,1 TRASTO AN ENTRY TO CAUSE F2B09110 05456 0500 00 1 37510 CLA DOTGZ,1 THE COUNTER TO BE F2B09120 05457 -0760 00 0 00003 SSM F2B09130 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 43 BLOCK B. 05460 0601 00 0 04153 STO $E1 DECREASED BY N1, WHICH F2B09140 05461 0500 00 1 37515 CLA DOTGZ+5,1 WILL MAKE IT USEFUL AS F2B09150 BINARY CARD NO. 9F190039 05462 -0320 00 0 04001 ANA DECMSK AS A RESET SUB. COMB. F2B09160 05463 0771 00 0 00022 ARS 18 F2B09170 05464 0601 00 0 04154 STO $E2 F2B09180 05465 0500 00 1 37520 CLA DOTGZ+8,1 F2B09190 05466 -0320 00 0 04001 ANA DECMSK F2B09200 05467 -0501 00 1 37512 ORA DOTGZ+2,1 F2B09210 05470 0601 00 0 04155 STO $E3 F2B09220 05471 0500 00 0 04160 CLA TRASTO F2B09230 05472 0074 00 4 04124 TSX $LIST,4 F2B09240 05473 -0534 00 1 05514 RSR10 LXD RSR30,1 ENTER IN TRASTO F2B09250 05474 0500 00 1 37520 CLA DOTGZ+8,1 AN ENTRY TO CAUSE F2B09260 05475 -0320 00 0 04001 ANA DECMSK THE TAG UNDER F2B09270 05476 -0501 00 0 04350 ORA TS CONSIDERATION F2B09280 05477 -0760 00 0 00003 SSM F2B09290 05500 0601 00 0 04155 STO $E3 TO BE RESET F2B09300 05501 0500 00 0 04376 CLA TL2 BY THE ADJUSTED F2B09310 05502 0771 00 0 00022 ARS 18 COUNTER AT THE F2B09320 05503 -0501 00 0 04375 ORA TL1 PROPER TIMES. F2B09330 05504 0601 00 0 04154 STO $E2 F2B09340 05505 0500 00 1 37510 CLA DOTGZ,1 F2B09350 05506 0601 00 0 04153 STO $E1 F2B09360 05507 0500 00 0 04160 CLA TRASTO F2B09370 BINARY CARD NO. 9F190040 05510 0074 00 4 04124 TSX $LIST,4 F2B09380 05511 -0534 00 4 05513 LXD RSR20,4 F2B09390 05512 0020 00 4 00001 TRA 1,4 F2B09400 05513 0 00000 0 00000 RSR20 PZE F2B09410 05514 0 00000 0 00000 RSR30 PZE F2B09420 05515 -0634 00 4 05521 DRMENT SXD DRM05,4 THIS ROUTINE F2B09430 05516 -0534 00 2 04426 LXD ADTXX,2 PROCESSES THE F2B09440 05517 -0634 00 2 05550 SXD DRM20,2 ADDED TAG TABLE F2B09450 05520 0534 00 2 04426 LXA ADTXX,2 F2B09460 05521 -3 00000 0 05550 DRM05 TXL DRM20,,0 F2B09470 05522 0500 00 2 73600 DRM10 CLA ADTAGZ,2 OBTAIN FIRST ENTRY WORD. F2B09480 05523 -0734 00 1 00000 PDX 0,1 PUT INDEX IN XRA. F2B09490 05524 -0320 00 0 04000 ANA ADDMSK STORE TAG F2B09500 05525 0601 00 0 04026 STO $TAG IN TAG F2B09510 05526 0601 00 0 04350 STO TS AND TS F2B09520 05527 -0754 00 1 00000 PXD 0,1 PUT INDEX F2B09530 05530 0601 00 0 04344 STO XC IN XC F2B09540 05531 -0634 00 2 05553 SXD DRM30,2 SAVE INDEX B. F2B09550 05532 0500 00 2 73601 CLA ADTAGZ+1,2 OBTAIN WORD TWO. F2B09560 05533 -0120 00 0 05554 TMI DRM40 TRA IF RESET ENTRY. F2B09570 05534 0601 00 0 04350 STO TS SAVE NAME IN TS. F2B09580 05535 0074 00 4 04772 TSX DOINFO,4 USE DOINFO F2B09590 BINARY CARD NO. 9F190041 05536 0074 00 4 04030 TSX SUBCOM,4 AND F2B09600 05537 0761 00 0 00000 NOP OTHER F2B09610 05540 0074 00 4 05707 TSX IDENT,4 ROUTINES F2B09620 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 44 BLOCK B. 05541 0074 00 4 03746 TSX ERRORM,4 SECOND WD OF XR1 DOTAG ENTRY F2B09630 SHOULD BE EQUAL TO S1,S2,OR F2B09640 S3. DOTAG IS FROM FILE 1 TAPE 3, F2B09650 AND S1,2,AND 3 COME FROM THE F2B09660 TAU TABLES IN CORE. F2B09670 05542 0074 00 4 05415 TSX BRANCH,4 PROCESS F2B09680 05543 0074 00 4 05127 TSX SCEND,4 ENTRY. F2B09690 05544 0500 00 0 04163 CLA DRMTAG F2B09700 05545 0074 00 4 04124 TSX $LIST,4 ENTER RESULT IN DRMTAG. F2B09710 05546 -0534 00 2 05553 DRM15 LXD DRM30,2 F2B09720 05547 1 77776 2 05550 TXI DRM20,2,-2 F2B09730 05550 3 00000 2 05522 DRM20 TXH DRM10,2,0 F2B09740 05551 -0534 00 4 05521 LXD DRM05,4 F2B09750 05552 0020 00 4 00001 TRA 1,4 F2B09760 05553 0 00000 0 00000 DRM30 PZE F2B09770 05554 0734 00 4 00000 DRM40 PAX 0,4 FOR RESET ENTRY, F2B09780 05555 -0320 00 0 04001 ANA DECMSK INITIALIZE CELLS F2B09790 05556 0601 00 0 04375 STO TL1 USED IN RSR ROUTINE. F2B09800 05557 -0754 00 4 00000 PXD 0,4 F2B09810 05560 0601 00 0 04376 STO TL2 F2B09820 05561 0074 00 4 05447 TSX RSR,4 F2B09830 05562 0020 00 0 05546 TRA DRM15 TRA FOR NEXT ENTRY. F2B09840 SUBROUTINE TAGADD F2B09850 05563 3 00000 2 05565 TAGADD TXH TAGAD1,2,0 C(IRB) EQ 1 IF NORMAL ADTAG F2B09860 BINARY CARD NO. 9F190042 05564 -0754 00 1 00000 PXD 0,1 F2B09870 05565 -0534 00 1 04426 TAGAD1 LXD ADTXX,1 F2B09880 05566 -3 00000 1 05602 TXL TAGAD6,1,0 F2B09890 05567 3 00000 2 05603 TXH TAGAD8,2,0 XRB=1,NORMAL ADDED TAG F2B09900 05570 0400 00 0 04026 ADD $TAG F2B09910 05571 0601 00 1 73600 STO ADTAGZ,1 F2B09920 05572 0500 00 0 04343 CLA NEWTAG F2B09930 05573 0560 00 0 04343 LDQ NEWTAG F2B09940 05574 0601 00 1 73601 STO ADTAGZ+1,1 F2B09950 05575 0400 00 0 04411 ADD L(1)A F2B09960 05576 0601 00 0 04343 STO NEWTAG F2B09970 05577 1 77776 1 05600 TXI TAGAD2,1,-2 F2B09980 05600 -0634 00 1 04426 TAGAD2 SXD ADTXX,1 F2B09990 05601 0020 00 4 00001 TAGAD3 TRA 1,4 F2B10000 05602 0074 00 4 03761 TAGAD6 TSX ERROR8,4 ADTAG TABLE IS FULL. F2B10010 05603 0601 00 1 73600 TAGAD8 STO ADTAGZ,1 F2B10020 05604 -0600 00 1 73601 STQ ADTAGZ+1,1 F2B10030 05605 1 77776 1 05600 TXI TAGAD2,1,-2 F2B10040 INSTR PLUS ONE. XRA CONTAINS INDEX IN FORTAG OF FIRST TAG F2B10050 FOUND F2B10060 SUBROUTINE TRAWRD F2B10070 05606 -0634 00 4 05635 TRWRD SXD TRW65,4 F2B10080 05607 0500 00 0 04401 CLA L(0) F2B10090 05610 0601 00 0 04027 STO TRABIT F2B10100 05611 0500 00 1 37515 CLA DOTGZ+5,1 F2B10110 BINARY CARD NO. 9F190043 05612 0622 00 0 05621 STD TRW30 F2B10120 05613 0500 00 1 37517 TRW10 CLA DOTGZ+7,1 GET T2 WORD F2B10130 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 45 BLOCK B. 05614 -0602 00 0 04027 ORS TRABIT OR INTO TRABIT F2B10140 05615 1 77767 1 05616 TXI TRW20,1,-9 TAKE NEXT DO F2B10150 05616 -3 00000 1 05636 TRW20 TXL TRW70,1,0 IF NONE, EXIT. F2B10160 05617 0500 00 1 37515 CLA DOTGZ+5,1 GET L WORD F2B10170 05620 -0734 00 4 00000 PDX 0,4 PUT L IN XRC. F2B10180 05621 -3 00000 4 05636 TRW30 TXL TRW70,4,0 EXIT IF DO IS NOT IN R1. F2B10190 05622 -3 00001 2 05613 TXL TRW10,2,1 IF COMPLETE TEST, GO BACK F2B10200 05623 0500 00 1 37511 TRW35 CLA DOTGZ+1,1 IF INCOMPLETE, IS THIS A F2B10210 05624 0402 00 0 04010 SUB $RSYM2 DO TO BE SKIPPED F2B10220 05625 -0100 00 0 05613 TNZ TRW10 IF NOT, GO BACK F2B10230 05626 0500 00 1 37515 CLA DOTGZ+5,1 THIS DO IS TO BE SKIPPED F2B10240 05627 0622 00 0 05634 STD TRW60 PUT LEVEL OF THIS DO IN INSTR F2B10250 05630 1 77767 1 05631 TRW40 TXI TRW50,1,-9 TAKE NEXT DO, IF ANY F2B10260 05631 -3 00000 1 05636 TRW50 TXL TRW70,1,0 IF NOT, EXIT. F2B10270 05632 0500 00 1 37515 CLA DOTGZ+5,1 OBTAIN L WORD. F2B10280 05633 -0734 00 4 00000 PDX 0,4 PUT L IN XRC F2B10290 05634 3 00000 4 05630 TRW60 TXH TRW40,4,0 IF DO IS IN RANGE R2, GO BACK. F2B10300 05635 -3 00000 0 05621 TRW65 TXL TRW30,,0 OTHERWISE, GO TO TRW30. F2B10310 05636 -0534 00 4 05635 TRW70 LXD TRW65,4 F2B10320 05637 0500 00 0 04410 CLA L(36) OBTAIN 36 IN DECREMENT F2B10330 BINARY CARD NO. 9F190044 05640 0402 00 0 04376 SUB TL2 36-TL2 F2B10340 05641 0771 00 0 00022 ARS 18 IN ADDRESS F2B10350 05642 0621 00 0 05652 STA TRW90 INITIALIZE SHIFT F2B10360 05643 0500 00 0 04376 CLA TL2 OBTAIN TL2 F2B10370 05644 0402 00 0 04375 SUB TL1 TL2-TL1 F2B10380 05645 0771 00 0 00022 ARS 18 IN ADDRESS F2B10390 05646 0621 00 0 05651 STA TRW80 INITIALIZE SHIFT F2B10400 05647 0500 00 0 04401 CLA L(0) ACC CONTAINS ZERO F2B10410 05650 0560 00 0 04006 LDQ 35ONES MQ CONTAINS ALL ONES F2B10420 05651 0763 00 0 00000 TRW80 LLS ** PUT TL2-TL1 ONES IN AC. F2B10430 05652 0767 00 0 00000 TRW90 ALS ** POSITION ONES IN AC. F2B10440 05653 -0320 00 0 04027 ANA TRABIT AND IN TRANSFER BITS F2B10450 05654 0020 00 4 00001 TRA 1,4 GO BACK TO CALLING INSTR PLUS ONE. F2B10460 SUBROUTINES TAGENT AND TETAPE F2B10470 05655 -0534 00 1 04430 TAGENT LXD TAGXX,1 THIS ROUTINE ENTERS F2B10480 05656 3 00000 1 05660 TXH TE10,1,0 ONE ENTRY IN TAGZ, F2B10490 05657 0074 00 4 03765 TSX ERRO11,4 TAGTAG IS FULL. F2B10500 05660 -0534 00 2 04405 TE10 LXD L(4),2 TRA TO TETAPE. F2B10510 05661 0500 00 2 04157 TE20 CLA $E1+4,2 F2B10520 05662 0601 00 1 22235 STO TAGZ,1 F2B10530 05663 1 77777 1 05664 TXI TE30,1,-1 F2B10540 05664 2 00001 2 05661 TE30 TIX TE20,2,1 F2B10550 05665 -0634 00 1 04430 SXD TAGXX,1 F2B10560 BINARY CARD NO. 9F190045 05666 0020 00 4 00001 TRA 1,4 F2B10570 *ROUTI NE TETAPE ENTERS ALL THE VALID ENTRIES IN TAGTAG ON TP. THE LAST F2B10580 *ENTRY ON TAPE AFTER EACH NEST IS AN ENTRY OF 4 WDS OF 35 ONES. F2B10590 * *** F2B10600 05667 0074 00 4 73606 TETAPE TSX (TAPE),4 REWIND DOTAG A F2B10610 05670 0 20000 0 03773 PZE REWIND,,(SKBP) TAPE. F2B10620 05671 0 00003 0 04603 PZE DTGL,,FTAPE3 F2B10630 05672 0500 00 0 04430 CLA TAGXX GET XR VALUE OF F2B10640 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 46 BLOCK B. 05673 0771 00 0 00022 ARS 18 TAGTAG IN DEC AND F2B10650 05674 0402 00 0 04430 SUB TAGXX COMPUTE NR WDS F2B10660 05675 0767 00 0 00022 ALS 18 F2B10670 05676 0622 00 0 05705 STD TETCOM F2B10680 05677 0634 00 4 05703 SXA TET20,4 F2B10690 * *** F2B10700 05700 0074 00 4 73606 TET10 TSX (TAPE),4 WRITE F2B10710 05701 0 40001 0 05705 PZE TETCOM,,(WBNP) TAGTAG F2B10720 05702 0 00004 0 05706 PZE TAGL,,FTAPE4 TABLE. F2B10730 05703 0774 00 4 00000 TET20 AXT 0,4 F2B10740 05704 0020 00 0 04466 TRA END F2B10750 05705 -1 00000 0 13361 TETCOM IOCT TAGTAG,0,0 DEC INITIALIZED WC TAGTAG $F2B10760 05706 632127632127 TAGL BCI 1,TAGTAG F2B10770 05707 -0634 00 4 05743 IDENT SXD ID075,4 SAVE INDEX F2B10780 05710 0774 00 1 00022 AXT 18,1 INITIALIZE IDENT STORAGE F2B10790 05711 0500 00 0 04401 CLA L(0) TO ZERO F2B10800 05712 0601 00 0 06147 STO IDES F2B10810 05713 0601 00 1 04375 ID010 STO X1+18,1 F2B10820 BINARY CARD NO. 9F190046 05714 2 00001 1 05713 TIX ID010,1,1 F2B10830 05715 0500 00 0 04006 CLA 35ONES INITIALIZE F2B10840 05716 0601 00 0 04362 STO LL LOW LEVEL F2B10850 05717 -0534 00 2 04401 LXD L(0),2 COUNT THE SUBSCRIPT F2B10860 05720 -0534 00 4 04406 LXD L(5),4 SYMBOLS. F2B10870 05721 0500 00 4 04020 ID020 CLA $S1+5,4 STORE COUNT IN F2B10880 05722 0100 00 0 05724 TZE ID030 NRSUBS, AND ALSO IN F2B10890 05723 1 00001 2 05724 TXI ID030,2,1 NRRC, WHICH IS THE F2B10900 05724 2 00002 4 05721 ID030 TIX ID020,4,2 COUNT OF REL. CON. F2B10910 05725 -0754 00 2 00000 PXD 0,2 SUBSCRIPTS. DO SUBS ARE F2B10920 05726 0601 00 0 04364 STO NRRC SUBTRACTED OUT LATER. F2B10930 05727 0601 00 0 04363 STO NRSUBS F2B10940 05730 -0534 00 1 04344 LXD XC,1 COMPARE EACH SYMBOL F2B10950 05731 -0534 00 2 04345 LXD LC,2 IN THE SUB. COMB. WITH F2B10960 05732 0760 00 0 00141 PSE TL THE SYMBOL OF EACH F2B10970 05733 0500 00 1 37511 ID050 CLA DOTGZ+1,1 DO IN THE SUB NEST. F2B10980 05734 -0534 00 4 04406 LXD L(5),4 WHEN EQUALITY IS F2B10990 05735 0340 00 4 04020 ID060 CAS $S1+5,4 FOUND, GO TO ID120 F2B11000 05736 0020 00 0 05740 TRA ID070 IF THE CURRENT DO F2B11010 05737 0020 00 0 05753 TRA ID120 SYMBOL IS NOT FOUND, F2B11020 05740 2 00002 4 05735 ID070 TIX ID060,4,2 MAKE EXIT FROM ID410 F2B11030 05741 -0760 00 0 00141 MSE TL F2B11040 BINARY CARD NO. 9F190047 05742 0020 00 0 05744 TRA ID080 F2B11050 05743 -3 00000 0 06145 ID075 TXL ID410,,0 F2B11060 05744 -3 00001 2 05767 ID080 TXL ID150,2,1 THESE INSTRUCTIONS F2B11070 05745 1 00011 1 05746 ID090 TXI ID100,1,9 FIND THE NEXT BACK F2B11080 05746 0500 00 1 37515 ID100 CLA DOTGZ+5,1 SUB NEST DO FORMULA, F2B11090 05747 0622 00 0 05750 STD ID110 AND RETURN CONTROL F2B11100 05750 -3 00000 2 05745 ID110 TXL ID090,2,0 TO ID050. F2B11110 05751 -0734 00 2 00000 PDX 0,2 F2B11120 05752 0020 00 0 05733 TRA ID050 F2B11130 05753 -0760 00 0 00141 ID120 MSE TL TURN OFF TEST LIGHT F2B11140 05754 0761 00 0 00000 NOP AND F2B11150 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 47 BLOCK B. 05755 -0754 00 1 00000 PXD 0,1 ESTABLISH F2B11160 05756 0601 00 4 04360 STO X1+5,4 INDEX F2B11170 05757 -0754 00 2 00000 PXD 0,2 AND F2B11180 05760 0601 00 4 04361 STO L1+5,4 LEVEL FOR THIS SUBSCRIPT. F2B11190 05761 0500 00 0 04364 CLA NRRC SUBTRACT ONE FROM F2B11200 05762 0402 00 0 04402 SUB L(1) NRRC. THIS WORD F2B11210 05763 0601 00 0 04364 STO NRRC CONTAINS INITIALLY F2B11220 05764 0100 00 0 05767 TZE ID150 THE NUMBER OF F2B11230 05765 0500 00 1 37511 CLA DOTGZ+1,1 SUBSCRIPTS IN THE F2B11240 05766 0020 00 0 05740 TRA ID070 COMBINATION. F2B11250 05767 0500 00 0 04353 ID150 CLA X1 THIS ROUTINE F2B11260 BINARY CARD NO. 9F190048 05770 0560 00 0 04355 LDQ X2 LOOKS FOR THE F2B11270 05771 0040 00 0 05773 TLQ PT041 OUTERMOST F2B11280 05772 0500 00 0 04355 CLA X2 DOTAG F2B11290 05773 0560 00 0 04357 PT041 LDQ X3 OF A F2B11300 05774 0040 00 0 05776 TLQ PT042 SUBSCRIPT F2B11310 05775 0500 00 0 04357 CLA X3 COMBINATION. F2B11320 05776 0601 00 0 06002 PT042 STO PT043 F2B11330 05777 -0534 00 4 04407 LXD L(6),4 F2B11340 06000 -0534 00 3 04404 LXD L(3),3 F2B11350 06001 0020 00 0 06003 TRA ID160 RETURN F2B11360 06002 0 00000 0 00000 PT043 PZE F2B11370 06003 0500 00 1 04016 ID160 CLA $S1+3,1 WHICH CAN BE ASSIGNED. F2B11380 06004 0100 00 0 06011 TZE ID170 HAVE BEEN ASSIGNED. F2B11390 06005 0402 00 2 04020 SUB $S1+5,2 THIS F2B11400 06006 -0100 00 0 06011 TNZ ID170 ROUTINE F2B11410 06007 -0754 00 4 00000 PXD 0,4 MAKES UP THE F2B11420 06010 -0602 00 0 04373 ORS DUPES DUPLICATE F2B11430 06011 2 00001 4 06012 ID170 TIX ID180,4,1 SUBSCRIPT F2B11440 06012 2 00002 2 06003 ID180 TIX ID160,2,2 WORD. F2B11450 06013 2 00001 4 06014 TIX ID190,4,1 F2B11460 06014 2 00002 1 06003 ID190 TIX ID160,1,2 F2B11470 06015 -0534 00 2 04364 LXD NRRC,2 IF THERE IS MORE F2B11480 BINARY CARD NO. 9F190049 06016 -3 00000 2 06043 TXL ID300,2,0 THAN ONE RELCON, F2B11490 06017 -3 00001 2 06024 TXL ID195,2,1 AND IF THERE ARE F2B11500 06020 0500 00 0 04373 CLA DUPES DUPLICATES, THEN THE F2B11510 06021 0601 00 0 04372 STO RCDUP RELCONS ARE DUPLICATES. F2B11520 06022 0500 00 0 04401 CLA L(0) OTHERWISE, THE DOSUBS F2B11530 06023 0601 00 0 04373 STO DUPES ARE DUPLICATES. F2B11540 06024 -0534 00 4 04406 ID195 LXD L(5),4 IF THERE ARE RELCONS, F2B11550 06025 0500 00 4 04361 ID200 CLA L1+5,4 THERE ARE NOT MORE F2B11560 06026 -0100 00 0 06040 TNZ ID210 THAN TWO. F2B11570 06027 0500 00 4 04020 CLA $S1+5,4 PUT THEIR SYMBOLS F2B11580 06030 0100 00 0 06040 TZE ID210 IN PSYM1 AND RSYM2, F2B11590 06031 -0754 00 4 00000 PXD 0,4 AND PUT BITS IN THE F2B11600 06032 -3 00001 4 06034 TXL ID205,4,1 PROPER POSITIONS OF F2B11610 06033 0402 00 0 04402 SUB L(1) RCSUBS. F2B11620 06034 -0602 00 0 04367 ID205 ORS RCSUBS F2B11630 06035 0500 00 4 04020 CLA $S1+5,4 F2B11640 06036 -2 00001 2 06042 TNX ID220,2,1 F2B11650 06037 0601 00 0 04010 STO $RSYM2 F2B11660 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 48 BLOCK B. 06040 2 00002 4 06025 ID210 TIX ID200,4,2 F2B11670 06041 0020 00 0 06043 TRA ID300 F2B11680 06042 0601 00 0 04007 ID220 STO $RSYM1 F2B11690 06043 -0534 00 4 04406 ID300 LXD L(5),4 FOR ALL DO SUBS, F2B11700 BINARY CARD NO. 9F190050 06044 0500 00 4 04360 ID310 CLA X1+5,4 SELECT THE F2B11710 06045 0100 00 0 06060 TZE ID340 MAXIMUM OF ALL F2B11720 06046 -0734 00 1 00000 PDX 0,1 VARAIBLE N LEVEL F2B11730 06047 -0534 00 2 04404 LXD L(3),2 OF DEFINITION F2B11740 06050 0500 00 1 37516 ID320 CLA DOTGZ+6,1 QUANTITIES. F2B11750 06051 -0320 00 0 04000 ANA ADDMSK F2B11760 06052 0767 00 0 00022 ALS 18 F2B11770 06053 0340 00 0 06147 CAS IDES F2B11780 06054 0601 00 0 06147 STO IDES F2B11790 06055 0761 00 0 00000 NOP F2B11800 06056 2 00001 1 06057 TIX ID330,1,1 F2B11810 06057 2 00001 2 06050 ID330 TIX ID320,2,1 F2B11820 06060 2 00002 4 06044 ID340 TIX ID310,4,2 F2B11830 06061 -0534 00 4 04406 LXD L(5),4 COMPARE THIS MAXIMUM F2B11840 06062 -0534 00 2 04401 LXD L(0),2 F2B11850 06063 0500 00 4 04361 ID350 CLA L1+5,4 WITH EACH SUBSCRIPT F2B11860 06064 0100 00 0 06120 TZE ID380 LEVEL, THOSE SUBSCRIPT F2B11870 06065 0340 00 0 06147 CAS IDES LEVELS LESS THAN OR F2B11880 06066 0020 00 0 06104 TRA ID370 EQUAL TO THE MAXIMUM F2B11890 06067 0761 00 0 00000 NOP LEVEL OF DEFINITION F2B11900 06070 -0754 00 4 00000 PXD 0,4 QUANTITY WILL BE TREATED F2B11910 06071 -3 00001 4 06073 TXL ID360,4,1 AS REL. CONS. F2B11920 BINARY CARD NO. 9F190051 06072 0402 00 0 04402 SUB L(1) INDICATE THIS CONDITION F2B11930 06073 -0602 00 0 04366 ID360 ORS DORC IN THE DORC WORD. F2B11940 06074 0500 00 4 04360 CLA X1+5,4 F2B11950 06075 -0734 00 1 00000 PDX 0,1 F2B11960 06076 0500 00 0 04002 CLA BITONE MAKE INDICATION FOR STORED COUNTER F2B11970 06077 -0602 00 1 37515 ORS DOTGZ+5,1 FOR THIS DORC. F2B11980 06100 -0754 00 0 00000 PXD 0,0 CLEAR X(N) AND L(N) F2B11990 06101 0601 00 4 04361 STO L1+5,4 SINCE THEY ARE NO LONGER DOSUBS. F2B12000 06102 0601 00 4 04360 STO X1+5,4 F2B12010 06103 0020 00 0 06120 TRA ID380 F2B12020 06104 0340 00 0 04362 ID370 CAS LL FOR TRUE DO SUBS. F2B12030 06105 0020 00 0 06113 TRA ID372 ESTABLISH LOW LEVEL F2B12040 06106 0020 00 0 06113 TRA ID372 AND LOW INDEX. LOW F2B12050 06107 0601 00 0 04362 STO LL LEVEL WORD WAS F2B12060 06110 0500 00 4 04360 CLA X1+5,4 INITIALIZED TO F2B12070 06111 0601 00 0 04361 STO XL 35ONES. F2B12080 06112 -0634 00 4 04400 SXD LOWPOS,4 F2B12090 06113 -0754 00 4 00000 ID372 PXD 0,4 PUT BITS IN F2B12100 06114 -3 00001 4 06116 TXL ID375,4,1 PROPER POSITIONS F2B12110 06115 0402 00 0 04402 SUB L(1) OF DOSUBS F2B12120 06116 -0602 00 0 04370 ID375 ORS DOSUBS WORD F2B12130 06117 1 00001 2 06120 TXI ID380,2,1 F2B12140 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 49 BLOCK B. BINARY CARD NO. 9F190052 06120 2 00002 4 06063 ID380 TIX ID350,4,2 F2B12150 06121 -0754 00 2 00000 PXD 0,2 F2B12160 06122 0601 00 0 04365 STO NRDS CHECK TO SEE THAT F2B12170 06123 -0100 00 0 06125 TNZ ID385 AT LEAST ONE SUBSCR IS A DOSUB F2B12180 06124 0074 00 4 03746 TSX ERRORM,4 AC (ALSO IN NRDS) SHOULD NOT F2B12190 BE ZERO. XR2 PLACED IN AC TO F2B12200 TEST. F2B12210 06125 -0534 00 2 04364 ID385 LXD NRRC,2 THESE INSTRUCTIONS F2B12220 06126 -3 00000 2 06143 TXL ID400,2,0 COMPUTE DELTA. F2B12230 06127 -0534 00 4 04402 LXD L(1),4 IF ONE DISTINCT DOSUB, F2B12240 06130 0500 00 0 04372 CLA RCDUP ONE DISTINCT RELCON, F2B12250 06131 -0100 00 0 06141 TNZ ID395 DELTA IS ONE. F2B12260 06132 0500 00 0 04373 CLA DUPES IF TWO DISTINCT DOSUBS, F2B12270 06133 -0100 00 0 06141 TNZ ID395 ONE RELCON, DELTA IS TWO. F2B12280 06134 -3 00001 2 06136 TXL ID390,2,1 IF ONE DOSUB, TWO F2B12290 06135 1 00002 4 06141 TXI ID395,4,2 DISTINCT RELCONS, F2B12300 06136 -0534 00 2 04365 ID390 LXD NRDS,2 DELTA IS THREE. F2B12310 06137 -3 00001 2 06141 TXL ID395,2,1 FOR ALL OTHER CASES, F2B12320 06140 1 00001 4 06141 TXI ID395,4,1 DELTA IS ZERO. F2B12330 06141 -0754 00 4 00000 ID395 PXD 0,4 F2B12340 06142 0601 00 0 04371 STO DELTA F2B12350 06143 -0534 00 4 05743 ID400 LXD ID075,4 EXIT, F2B12360 06144 0020 00 4 00002 TRA 2,4 SUBCOM USED. F2B12370 06145 -0534 00 4 05743 ID410 LXD ID075,4 EXIT, F2B12380 BINARY CARD NO. 9F190053 06146 0020 00 4 00001 TRA 1,4 SUBCOMB NOT USED. F2B12390 06147 0 00000 0 00000 IDES PZE F2B12400 06150 -0634 00 4 06156 NAME SXD NAM10,4 SAVE LINKAGE F2B12410 06151 0500 00 0 04026 CLA $TAG PUT TAU IN TS F2B12420 06152 0601 00 0 04350 PAT05 STO TS P463 S F2B12430 06153 -0534 00 1 06002 LXD PT043,1 F2B12440 06154 0074 00 4 04310 RET01 TSX TINFOR,4 SEARCH RANGE OF XL F2B12450 06155 0020 00 0 06157 TRA NAM20 (FOUND) FOR NEGATICE TAG. F2B12460 06156 -3 00000 0 06215 NAM10 TXL NAM50,,0 NOT FOUND F2B12470 06157 0500 00 0 04343 NAM20 CLA NEWTAG OBTAIN F2B12480 06160 0601 00 0 04350 STO TS NEW F2B12490 06161 0400 00 0 04411 ADD L(1)A NAME F2B12500 06162 0601 00 0 04343 STO NEWTAG F2B12510 06163 -0534 00 1 04344 LXD XC,1 ARRANGE F2B12520 06164 0500 00 1 37510 CLA DOTGZ,1 ENTRY BLOCK F2B12530 06165 0601 00 0 04153 STO $E1 FOR CHATAG F2B12540 06166 0500 00 0 04026 CLA $TAG ENTRY F2B12550 06167 0767 00 0 00022 ALS 18 F2B12560 06170 0400 00 0 04350 ADD TS F2B12570 06171 0601 00 0 04154 STO $E2 F2B12580 06172 0500 00 0 04157 CLA CHATAG F2B12590 06173 -0534 00 4 04364 LXD NRRC,4 USE LIST OR SPC000, F2B12600 BINARY CARD NO. 9F190054 06174 3 00000 4 06177 TXH NAM30,4,0 DEPENDING UPON F2B12610 06175 0074 00 4 04124 TSX $LIST,4 WHETHER OR NOT F2B12620 06176 0020 00 0 06201 TRA NAM40 WORD NRRC IS ZERO. I.E., ARE THERE RF2B12630 06177 -0534 00 2 04403 NAM30 LXD L(2),2 NO TINFOR SEARCH REQUIRED. F2B12640 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 50 BLOCK B. 06200 0074 00 4 04176 TSX SPC000,4 F2B12650 06201 0500 00 0 04346 NAM40 CLA ALPHA ENTER ALPHA AND F2B12660 06202 -0501 00 0 04026 ORA $TAG NAME F2B12670 06203 0601 00 0 04153 STO $E1 IN F2B12680 06204 0500 00 0 04350 CLA TS NAME F2B12690 06205 0601 00 0 04154 STO $E2 TABLE. F2B12700 06206 0500 00 0 04162 CLA NAMKEY ENTER INTO F2B12710 06207 0074 00 4 04124 TSX $LIST,4 NAME (OR NAMEKEY) TABLE. F2B12720 06210 0500 00 0 04174 CLA LADDIN+3 UPDATE F2B12730 06211 0771 00 0 00022 ARS 18 NAMXX INDEX REG F2B12740 06212 0402 00 0 04167 SUB $LADDS+3 VALUES. F2B12750 06213 0767 00 0 00022 ALS 18 . F2B12760 06214 0622 00 0 04431 STD NAMXX . F2B12770 06215 -0534 00 4 06156 NAM50 LXD NAM10,4 EXIT F2B12780 06216 0020 00 4 00001 TRA 1,4 F2B12790 1NS00 PROCESSES SC CONTAINING ONE DISTINCT INDEXED SUBSCRIPT.F2B12800 06217 -0634 00 4 06270 1NS00 SXD 1NS20,4 SAVE LINKAGE F2B12810 06220 -0534 00 1 04344 LXD XC,1 F2B12820 06221 0500 00 0 04003 CLA BITTWO IF A COUNTER HAS F2B12830 BINARY CARD NO. 9F190055 06222 -0320 00 1 37516 ANA DOTGZ+6,1 BEEN FOUND, F2B12840 06223 -0100 00 0 06264 TNZ 1NS10 GO TO 1NS10 F2B12850 06224 -0534 00 4 04370 LXD DOSUBS,4 SKIP TO 1NS10 F2B12860 06225 -3 00003 4 06264 TXL 1NS10,4,3 IF NOT FIRST POSITION. F2B12870 06226 3 00004 4 06264 TXH 1NS10,4,4 F2B12880 06227 0500 00 0 04367 CLA RCSUBS IF ANY RELCONS, F2B12890 06230 -0501 00 0 04366 ORA DORC GO TO 1NS10 F2B12900 06231 -0100 00 0 06264 TNZ 1NS10 F2B12910 06232 -0534 00 4 04012 LXD $C1,4 IF C1 IS NOT ONE, F2B12920 06233 3 00001 4 06264 TXH 1NS10,4,1 GO TO 1NS10 F2B12930 06234 0500 00 0 04000 CLA ADDMSK THIS SUB. COMB. WILL SERVE F2B12940 06235 0320 00 1 37520 ANS DOTGZ+8,1 AS COUNTER AND TEST. ENTER IN F2B12950 06236 0500 00 0 04350 CLA TS DOTAGZ+8. F2B12960 06237 0767 00 0 00022 ALS 18 INDICATE F2B12970 06240 -0501 00 0 04414 ORA L(MZ) BEST TEST F2B12980 06241 -0602 00 1 37520 ORS DOTGZ+8,1 FOUND. F2B12990 06242 0500 00 0 04003 CLA BITTWO INDICATE COUNTER FOUND. F2B13000 06243 -0602 00 1 37516 ORS DOTGZ+6,1 F2B13010 06244 -0500 00 0 04414 CAL L(MZ) SET CARWRD NEGATIVE. F2B13020 06245 -0602 00 0 04374 ORS CARWRD TEST BITONE OF L WORD. F2B13030 06246 0500 00 0 04002 CLA BITONE IF ONE, SKIP TRASTO F2B13040 06247 -0320 00 1 37515 ANA DOTGZ+5,1 TEST. F2B13050 BINARY CARD NO. 9F190056 06250 -0100 00 0 06264 TNZ 1NS10 F2B13060 06251 0500 00 1 37515 1NS05 CLA DOTGZ+5,1 TEST TO SEE IF TRANSFER F2B13070 06252 0120 00 0 06264 TPL 1NS10 STORE NECESSARY. F2B13080 06253 0500 00 1 37510 CLA DOTGZ,1 MAKE TRASTO ENTRY F2B13090 06254 0601 00 0 04153 STO $E1 TO STORE COUNTER F2B13100 06255 0500 00 1 37511 CLA DOTGZ+1,1 IN LOCATION OF SYMBOL. F2B13110 06256 0601 00 0 04154 STO $E2 F2B13120 06257 0500 00 0 04345 CLA LC F2B13130 06260 -0501 00 0 04350 ORA TS F2B13140 06261 0601 00 0 04155 STO $E3 F2B13150 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 51 BLOCK B. 06262 0500 00 0 04160 CLA TRASTO F2B13160 06263 0074 00 4 04124 TSX $LIST,4 F2B13170 06264 0500 00 0 04407 1NS10 CLA L(6) ENTER F2B13180 06265 0601 00 0 04352 STO GROUP GROUP NR. F2B13190 06266 -0534 00 4 06270 LXD 1NS20,4 AND EXIT. F2B13200 06267 0020 00 4 00001 TRA 1,4 F2B13210 06270 0 00000 0 00000 1NS20 PZE F2B13220 2NS00 ROUTINE PROCESSES SC WITH TWO DISTINCT INDEXED F2B13230 SUBSCRIPTS. F2B13240 06271 -0634 00 4 06301 2NS00 SXD 2NS25,4 SAVE LINKAAGE F2B13250 06272 -0534 00 1 04370 2NS10 LXD DOSUBS,1 2NS10 TO 2NS80 DETERMINE THE F2B13260 06273 -0534 00 2 04403 LXD L(2),2 GROUP NR AND CARRY BITS F2B13270 06274 0500 00 0 04354 CLA L1 FOR THE SL. F2B13280 06275 3 00003 1 06277 TXH 2NS20,1,3 F2B13290 BINARY CARD NO. 9F190057 06276 0500 00 0 04356 CLA L2 F2B13300 06277 -3 00005 1 06302 2NS20 TXL 2NS30,1,5 F2B13310 06300 0402 00 0 04356 SUB L2 F2B13320 06301 -3 00000 0 06303 2NS25 TXL 2NS40,,0 F2B13330 06302 0402 00 0 04360 2NS30 SUB L3 F2B13340 06303 -0120 00 0 06316 2NS40 TMI 2NS70 F2B13350 06304 0402 00 0 04402 SUB L(1) F2B13360 06305 -0100 00 0 06314 TNZ 2NS60 F2B13370 06306 -3 00003 1 06311 TXL 2NS50,1,3 F2B13380 06307 -3 00005 1 06314 TXL 2NS60,1,5 F2B13390 06310 1 00002 2 06311 TXI 2NS50,2,2 F2B13400 06311 -0534 00 4 04373 2NS50 LXD DUPES,4 THIS DUPE TEST IS AN ADJUSTMENT F2B13410 06312 3 00000 4 06314 TXH 2NS60,4,0 FOR DUPLICATES IN A REDUCED F2B13420 06313 0074 00 4 05344 TSX CARRY,4 3NS CASE. F2B13430 06314 0500 00 0 04402 2NS60 CLA L(1) F2B13440 06315 -3 00000 0 06317 2NS65 TXL 2NS80,,0 F2B13450 06316 0500 00 0 04407 2NS70 CLA L(6) F2B13460 06317 0601 00 0 04352 2NS80 STO GROUP F2B13470 06320 -0734 00 4 00000 PDX 0,4 F2B13480 06321 -0534 00 2 04370 LXD DOSUBS,2 THIS ROUTINE,TO 2NS90, F2B13490 06322 0500 00 0 04354 CLA L1 PREPARES A TRAWRD CALLING F2B13500 06323 3 00003 2 06325 TXH 2NS82,2,3 SEQUENCE TO DETERMINE F2B13510 BINARY CARD NO. 9F190058 06324 0500 00 0 04356 CLA L2 WHETHER OR NOT RESETTING F2B13520 06325 -3 00005 2 06330 2NS82 TXL 2NS84,2,5 IS NECESSARY F2B13530 06326 0560 00 0 04356 LDQ L2 F2B13540 06327 0020 00 0 06331 TRA 2NS86 F2B13550 06330 0560 00 0 04360 2NS84 LDQ L3 F2B13560 06331 -3 00001 4 06342 2NS86 TXL 2NS88,4,1 TEST GROUP F2B13570 06332 0601 00 0 04375 STO TL1 F2B13580 06333 -0600 00 0 04376 STQ TL2 F2B13590 06334 -0534 00 1 04357 LXD X3,1 F2B13600 06335 0500 00 0 04402 CLA L(1) F2B13610 06336 -3 00005 2 06351 TXL 2NS90,2,5 F2B13620 06337 -0534 00 1 04355 LXD X2,1 F2B13630 06340 0500 00 0 04403 CLA L(2) F2B13640 06341 0020 00 0 06351 TRA 2NS90 F2B13650 06342 0601 00 0 04376 2NS88 STO TL2 F2B13660 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 52 BLOCK B. 06343 -0600 00 0 04375 STQ TL1 F2B13670 06344 -0534 00 1 04353 LXD X1,1 F2B13680 06345 0500 00 0 04405 CLA L(4) F2B13690 06346 3 00003 2 06351 TXH 2NS90,2,3 F2B13700 06347 -0534 00 1 04355 LXD X2,1 F2B13710 06350 0500 00 0 04403 CLA L(2) F2B13720 06351 0601 00 0 04377 2NS90 STO REBITS 2NS90 SEQ. SINGLE REBITS F2B13730 BINARY CARD NO. 9F190059 06352 -0320 00 0 04373 ANA DUPES ARE PART OF THE TAG OF THE F2B13740 06353 0100 00 0 06357 TZE 2NS91 RESETTING SC,IT MUST BE F2B13750 06354 0500 00 0 04377 CLA REBITS ADJUSTED FOR DUPE RESETS. F2B13760 06355 -0501 00 0 04373 ORA DUPES F2B13770 06356 0601 00 0 04377 STO REBITS F2B13780 06357 -0634 00 1 06315 2NS91 SXD 2NS65,1 F2B13790 06360 -0534 00 2 04402 LXD L(1),2 F2B13800 06361 0074 00 4 05606 TSX TRWRD,4 TEST FOR TRANSFER BITS. F2B13810 06362 0100 00 0 06366 TZE 2NSEND RESETTING NOT NECESSARY IF F2B13820 06363 -0534 00 2 04377 LXD REBITS,2 TRAWRD RESULT ZERO. IF F2B13830 06364 -0534 00 1 06315 LXD 2NS65,1 RESETTING NECESSARY, EXECUTE F2B13840 06365 0074 00 4 06512 TSX RESET,4 RESET ROUTINE AND F2B13850 06366 -0534 00 4 06301 2NSEND LXD 2NS25,4 EXIT F2B13860 06367 0020 00 4 00001 TRA 1,4 F2B13870 3NS00 ROUTINE PROCESSES SC WITH THREE DISTINCT INDEXED F2B13880 SUBSCRIPTS. F2B13890 06370 -0634 00 4 06377 3NS00 SXD 3GRP15,4 SAVE LINKAGE F2B13900 THIS ROUTINE DETERMINES GROUP NUMBER FOR 3NS NO DUPE SC F2B13910 06371 -0534 00 2 04401 LXD L(0),2 PUT ZERO IN XRB F2B13920 06372 0500 00 0 04360 CLA L3 OBTAIN L3 F2B13930 06373 0340 00 0 04356 CAS L2 COMPARE WITH L2 F2B13940 06374 1 00004 2 06376 TXI 3GRP10,2,4 L3 GREATER THAN L2 F2B13950 06375 0074 00 4 03746 TSX ERRORM,4 LEVEL NOS.(L2,L3) SHOULD NOT F2B13960 BE EQUAL. LEVEL TAKEN FROM THE F2B13970 SECOND WD OF DOTAG ENTRY. F2B13980 06376 0340 00 0 04354 3GRP10 CAS L1 L3 LESS THAN L2,COMPARE L3,L1 F2B13990 06377 -3 00000 0 06402 3GRP15 TXL 3GRP20,,0 L3 GREATER THAN L1. F2B14000 BINARY CARD NO. 9F190060 06400 0074 00 4 03746 TSX ERRORM,4 LEVEL NO. OF INNER NEST (L3) F2B14010 SHOULD BE GREATER THAN THAT OF F2B14020 OUTER NEST (L1). F2B14030 06401 1 00001 2 06402 TXI 3GRP20,2,1 L3 LESS THAN L1 F2B14040 06402 0500 00 0 04356 3GRP20 CLA L2 OBTAIN L2 F2B14050 06403 0402 00 0 04354 SUB L1 SUBTRACT L1 F2B14060 06404 -0120 00 0 06406 TMI 3GRP30 TRA IF L2 LESS THAN L1 F2B14070 06405 1 00002 2 06406 TXI 3GRP30,2,2 L2 GREATER THAN L1 F2B14080 06406 -0754 00 2 00000 3GRP30 PXD 0,2 PUT GROUP NUMBER IN ACC DEC. F2B14090 06407 0601 00 0 04352 STO GROUP OR INTO TAG 1 F2B14100 06410 0500 00 0 04354 CLA L1 OBTAIN L1 F2B14110 06411 0402 00 0 04402 SUB L(1) L1 LESS 1 F2B14120 06412 0402 00 0 04356 SUB L2 L1 LESS 1 LESS L2 F2B14130 06413 -0100 00 0 06416 TNZ 3GRP40 NOT ZERO,NO CARRY,TRA F2B14140 06414 -0534 00 2 04405 LXD L(4),2 SET XRB F2B14150 06415 0074 00 4 05344 TSX CARRY,4 AND TSX TO CARRY F2B14160 06416 0500 00 0 04356 3GRP40 CLA L2 RE-ENTRY,OBTAIN L2 F2B14170 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 53 BLOCK B. 06417 0402 00 0 04402 SUB L(1) L2 LESS 1 F2B14180 06420 0402 00 0 04360 SUB L3 L2 LESS 1 LESS L3 F2B14190 06421 -0100 00 0 06424 TNZ 3GRP50 NOT ZERO,NO CARRY,TRA F2B14200 06422 -0534 00 2 04403 LXD L(2),2 SET XRB F2B14210 06423 0074 00 4 05344 TSX CARRY,4 AND TSX TO CARRY F2B14220 06424 -0534 00 6 04401 3GRP50 LXD L(0),6 THE FOLLOWING ROUTINE, F2B14230 06425 -0534 00 1 04352 LXD GROUP,1 THROUGH 3GRP72, COMPUTES F2B14240 BINARY CARD NO. 9F190061 06426 0020 00 1 06435 3GRP55 TRA 3GRP55+7,1 QUANTITIES FOR XRB, XRC. F2B14250 06427 1 00002 2 06436 TXI 3GRP65,2,2 GROUP IS SIX F2B14260 06430 1 00004 4 06436 TXI 3GRP65,4,4 FIVE F2B14270 06431 1 00004 2 06436 TXI 3GRP65,2,4 FOUR F2B14280 06432 1 00002 6 06435 TXI 3GRP60,6,2 THREE F2B14290 06433 1 00002 4 06436 TXI 3GRP65,4,2 TWO F2B14300 06434 1 00004 4 06435 TXI 3GRP60,4,4 ONE F2B14310 06435 1 00002 2 06436 3GRP60 TXI 3GRP65,2,2 F2B14320 06436 0500 00 4 04357 3GRP65 CLA X1+4,4 F2B14330 06437 0601 00 0 06504 STO INX F2B14340 06440 0500 00 4 04360 CLA X1+5,4 F2B14350 06441 0601 00 0 06505 STO INL F2B14360 06442 0500 00 2 04357 CLA X1+4,2 F2B14370 06443 0601 00 0 06506 STO MIDX F2B14380 06444 0500 00 2 04360 CLA X1+5,2 F2B14390 06445 0601 00 0 06507 STO MIDL F2B14400 06446 3 00000 4 06450 TXH 3GRP70,4,0 THE QUANTITIES IN XRB. F2B14410 06447 1 00001 4 06450 TXI 3GRP70,4,1 XRC, ARE ZERO, TWO, OR F2B14420 06450 -0634 00 4 06501 3GRP70 SXD INP,4 FOUR, ADJUSTED TO ONE, F2B14430 06451 3 00000 2 06453 TXH 3GRP72,2,0 TWO, FOUR, TO INDICATE THE F2B14440 06452 1 00001 2 06453 TXI 3GRP72,2,1 POSITION OF THE SUBCCRIPT F2B14450 06453 -0634 00 2 06503 3GRP72 SXD MIDP,2 BEING RESET, STORE IN INP, MIDP. F2B14460 BINARY CARD NO. 9F190062 06454 -0534 00 4 04405 LXD L(4),4 THIS LOOP IS EXECUTED TWICE. F2B14470 06455 0500 00 4 06510 3GRP75 CLA INX+4,4 OBTAIN INNER INDEX OF PAIR F2B14480 06456 -0734 00 1 00000 PDX 0,1 IN XRA F2B14490 06457 0500 00 4 06511 CLA INL+4,4 OBTAIN INNER LEVEL OF PAIR F2B14500 06460 0601 00 0 04376 STO TL2 TL2 F2B14510 06461 0500 00 0 04362 CLA LL OBTAIN LOWER LEVEL IN F2B14520 06462 0601 00 0 04375 STO TL1 TL1 F2B14530 06463 -0534 00 2 04402 LXD L(1),2 PUT ONE IN XRB, F2B14540 06464 -0634 00 4 06502 SXD 3GRP80,4 SAVE XRC, F2B14550 06465 0074 00 4 05606 TSX TRWRD,4 AND USE TRWRD. F2B14560 06466 -0534 00 4 06502 LXD 3GRP80,4 RESTORE XRC, F2B14570 06467 0100 00 0 06477 TZE 3GRP77 GO TO INDEXING IF ZERO. F2B14580 06470 0500 00 4 06505 CLA INP+4,4 TRAWRD RESULT NOT ZERO. F2B14590 06471 -0734 00 2 00000 PDX 0,2 PREPARE TO F2B14600 06472 0500 00 4 06510 CLA INX+4,4 USE RESET F2B14610 06473 -0734 00 1 00000 PDX 0,1 F2B14620 06474 -0634 00 4 06502 SXD 3GRP80,4 SAVE XRC, F2B14630 06475 0074 00 4 06512 TSX RESET,4 GO TO RESET, F2B14640 06476 -0534 00 4 06502 LXD 3GRP80,4 RESTROE XRC, F2B14650 06477 2 00002 4 06455 3GRP77 TIX 3GRP75,4,2 INDEX AND GO BACK, F2B14660 06500 0020 00 0 06510 TRA 3NSEND OR EXIT F2B14670 06501 0 00000 0 00000 INP PZE POSITION OF INNER SUB. F2B14680 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 54 BLOCK B. BINARY CARD NO. 9F190063 06502 0 00000 0 00000 3GRP80 PZE F2B14690 06503 0 00000 0 00000 MIDP PZE POSITION OF MIDDLE SUB. F2B14700 06504 0 00000 0 00000 INX PZE INDEX INNER LEVEL SUB. F2B14710 06505 0 00000 0 00000 INL PZE LEVEL INNER LEVEL SUB. F2B14720 06506 0 00000 0 00000 MIDX PZE INDEX MIDDLE LEVEL SUB. F2B14730 06507 0 00000 0 00000 MIDL PZE LEVEL INNER LEVEL SUB. F2B14740 06510 -0534 00 4 06377 3NSEND LXD 3GRP15,4 F2B14750 06511 0020 00 4 00001 TRA 1,4 F2B14760 06512 -0634 00 4 06543 RESET SXD RES45,4 SAVE LINKAGE F2B14770 06513 -0754 00 2 00000 PXD 0,2 SAVE F2B14780 06514 0601 00 0 06735 STO RES300 PREFIX (REBITS) F2B14790 06515 -0754 00 1 00000 PXD 0,1 SAVE INDEX F2B14800 06516 0601 00 0 06736 STO RES310 OF RESET F2B14810 06517 0500 00 0 04016 CLA $C3 OBTAIN C3 IN F2B14820 06520 0771 00 0 00022 ARS 18 ADDRESS PART. F2B14830 06521 0020 00 2 06530 RES05 TRA RES05+7,2 INDEXED T RANSFER, C(XRB)=C(REBITS) F2B14840 06522 0020 00 0 06544 TRA RES50 C(XRB)=110 F2B14850 06523 0020 00 0 06536 TRA RES30 C(XRB)=101 F2B14860 06524 0020 00 0 06540 TRA RES40 C(XRB)=100 F2B14870 06525 0020 00 0 06534 TRA RES20 C(XRB)=011 F2B14880 06526 0020 00 0 06544 TRA RES50 C(XRB)= 010 F2B14890 06527 0601 00 0 04154 RES10 STO $E2 C(XRB)=001 F2B14900 BINARY CARD NO. 9F190064 06530 0500 00 0 04021 CLA $D2 THESE INSTRUCTIONS, THRU F2B14910 06531 0771 00 0 00022 ARS 18 RES60, COMPUTE THE F2B14920 06532 0400 00 0 04020 ADD $D1 CHARACTERISTIC WORDS OF THE F2B14930 06533 0020 00 0 06552 TRA RES60 SUBSCRIPT COMBINATION. F2B14940 06534 0400 00 0 04014 RES20 ADD $C2 F2B14950 06535 0020 00 0 06527 TRA RES10 F2B14960 06536 0400 00 0 04012 RES30 ADD $C1 F2B14970 06537 0020 00 0 06527 TRA RES10 F2B14980 06540 0500 00 0 04012 RES40 CLA $C1 F2B14990 06541 0601 00 0 04154 STO $E2 F2B15000 06542 0500 00 0 04401 CLA L(0) F2B15010 06543 -3 00000 0 06552 RES45 TXL RES60,,0 F2B15020 06544 0500 00 0 04014 RES50 CLA $C2 F2B15030 06545 0771 00 0 00022 ARS 18 F2B15040 06546 -3 00002 2 06550 TXL RES55,2,2 F2B15050 06547 0400 00 0 04012 ADD $C1 F2B15060 06550 0601 00 0 04154 RES55 STO $E2 F2B15070 06551 0500 00 0 04020 CLA $D1 F2B15080 06552 0601 00 0 04155 RES60 STO $E3 F2B15090 06553 3 00004 2 06555 TXH RES65,2,4 IF PREFIX IS 1,0,0, F2B15100 06554 3 00003 2 06742 TXH RES400,2,3 T RA TO RES400 F2B15110 06555 -0534 00 1 04427 RES65 LXD RESXX,1 SEARCH F2B15120 BINARY CARD NO. 9F190065 06556 -0634 00 1 06567 SXD RES75,1 RETAB F2B15130 06557 0534 00 1 04427 LXA RESXX,1 FOR F2B15140 06560 0020 00 0 06567 TRA RES75 SAME F2B15150 06561 0500 00 1 67511 RES70 CLA RETABZ,1 INDEX. F2B15160 06562 -0320 00 0 04001 ANA DECMSK F2B15170 06563 0340 00 0 06736 CAS RES310 F2B15180 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 55 BLOCK B. 06564 1 77775 1 06567 TXI RES75,1,-3 F2B15190 06565 0020 00 0 06571 TRA RES80 INDEX FOUND, GO TO RES80 F2B15200 06566 1 77775 1 06567 RES73 TXI RES75,1,-3 F2B15210 06567 3 00000 1 06561 RES75 TXH RES70,1,0 F2B15220 06570 0020 00 0 06610 TRA RES85 NOT FOUND, GO TO RES85 F2B15230 06571 0500 00 1 67511 RES80 CLA RETABZ,1 COMPARE PREFIX OF F2B15240 06572 -0320 00 0 06737 ANA RES320 RETAB ENTRY F2B15250 06573 0767 00 0 00006 ALS 6 WITH CURRENT F2B15260 06574 0402 00 0 06735 SUB RES300 PREFIX. IF NOT EQUAL, F2B15270 06575 -0100 00 0 06566 TNZ RES73 CONTINUE RETAB SEARCH. F2B15280 06576 0500 00 1 67512 CLA RETABZ+1,1 IF EQUAL, COMPARE F2B15290 06577 0402 00 0 04154 SUB $E2 CHARACTERISTIC WORDS. F2B15300 06600 -0100 00 0 06566 TNZ RES73 IF F2B15310 06601 0500 00 1 67513 CLA RETABZ+2,1 NOT F2B15320 06602 0402 00 0 04155 SUB $E3 F2B15330 06603 -0100 00 0 06566 TNZ RES73 EQUAL, CONTINUE SEARCH. F2B15340 BINARY CARD NO. 9F190066 06604 0500 00 1 67511 CLA RETABZ,1 IF EQUAL, F2B15350 06605 -0320 00 0 04000 ANA ADDMSK USE RESET TAG ALREADY F2B15360 06606 0601 00 0 06740 STO RES330 ENTERED. SAVE NAME. F2B15370 06607 0020 00 0 06715 TRA RES200 TRA TO RES200 F2B15380 06610 0500 00 0 06735 RES85 CLA RES300 NO USABLE ENTRY FOUND. F2B15390 06611 0771 00 0 00006 ARS 6 MAKE F2B15400 06612 -0501 00 0 04026 ORA $TAG NEW F2B15410 06613 0601 00 0 06740 STO RES330 F2B15420 06614 -0501 00 0 06736 ORA RES310 ENTRY F2B15430 06615 -0534 00 1 04427 LXD RESXX,1 IN F2B15440 06616 3 00000 1 06620 TXH RES87,1,0 RETAB. F2B15450 06617 0074 00 4 03761 TSX ERROR8,4 RETAB TABLE IS FULL. F2B15460 06620 0601 00 1 67511 RES87 STO RETABZ,1 F2B15470 06621 0500 00 0 04154 CLA $E2 F2B15480 06622 0601 00 1 67512 STO RETABZ+1,1 F2B15490 06623 0500 00 0 04155 CLA $E3 F2B15500 06624 0601 00 1 67513 STO RETABZ+2,1 F2B15510 06625 1 77775 1 06626 TXI RES88,1,-3 ADJUST IN DEX. F2B15520 06626 -0634 00 1 04427 RES88 SXD RESXX,1 F2B15530 06627 0500 00 0 06736 CLA RES310 MAKE E2 WORD F2B15540 06630 3 00005 2 06644 TXH RES96,2,5 FOR DRUMTAG OR F2B15550 06631 3 00004 2 06643 TXH RES94,2,4 TAGTAG ENTRY F2B15560 BINARY CARD NO. 9F190067 06632 3 00003 2 06642 TXH RES92,2,3 F2B15570 06633 3 00002 2 06637 TXH RES90,2,2 F2B15580 06634 3 00001 2 06644 TXH RES96,2,1 F2B15590 06635 0771 00 0 00022 ARS 18 F2B15600 06636 0020 00 0 06644 TRA RES96 F2B15610 06637 0771 00 0 00022 RES90 ARS 18 F2B15620 06640 0400 00 0 06736 ADD RES310 F2B15630 06641 0020 00 0 06644 TRA RES96 F2B15640 06642 0500 00 0 04401 RES92 CLA L(0) F2B15650 06643 0771 00 0 00022 RES94 ARS 18 F2B15660 06644 0601 00 0 04154 RES96 STO $E2 F2B15670 06645 0500 00 0 06736 CLA RES310 MAKE F2B15680 06646 0771 00 0 00022 ARS 18 E1 WORD F2B15690 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 56 BLOCK B. 06647 3 00003 2 06651 TXH RES98,2,3 F2B15700 06650 0500 00 0 04401 CLA L(0) F2B15710 06651 0601 00 0 04153 RES98 STO $E1 F2B15720 06652 -0534 00 1 06736 LXD RES310,1 F2B15730 06653 0500 00 1 37510 CLA DOTGZ,1 F2B15740 06654 -0320 00 0 04001 ANA DECMSK F2B15750 06655 -0602 00 0 04153 ORS $E1 F2B15760 06656 0500 00 0 06740 CLA RES330 MAKE F2B15770 06657 0601 00 0 04155 STO $E3 E3 WORD F2B15780 BINARY CARD NO. 9F190068 06660 0500 00 0 04407 CLA L(6) MAKE F2B15790 06661 0601 00 0 04156 STO $E4 E4 F2B15800 06662 0500 00 0 06735 CLA RES300 WORD F2B15810 06663 0771 00 0 00022 ARS 18 F2B15820 06664 -0602 00 0 04156 ORS $E4 F2B15830 06665 -3 00002 2 06672 TXL RES110,2,2 F2B15840 06666 -3 00003 2 06670 TXL RES100,2,3 F2B15850 06667 -3 00004 2 06672 TXL RES110,2,4 F2B15860 06670 0767 00 0 00011 RES100 ALS 9 F2B15870 06671 -0602 00 0 04156 ORS $E4 F2B15880 06672 0500 00 0 04401 RES110 CLA L(0) THESE INSTRUCTIONS, F2B15890 06673 0601 00 0 06741 STO RES340 TO RES170, DETERMINE F2B15900 06674 -0534 00 4 04406 LXD L(5),4 WHICH COEFFICIENTS F2B15910 06675 0500 00 4 04017 RES120 CLA $C1+5,4 ARE GREATER THAN F2B15920 06676 0402 00 0 04402 SUB L(1) ONE AND PLACE F2B15930 06677 0100 00 0 06704 TZE RES140 THIS INFO IN F2B15940 06700 2 00001 4 06701 TIX RES130,4,1 E4(TAG1). F2B15950 06701 -0754 00 4 00000 RES130 PXD 0,4 F2B15960 06702 -0602 00 0 06741 ORS RES340 F2B15970 06703 1 00001 4 06704 TXI RES140,4,1 F2B15980 06704 2 00002 4 06675 RES140 TIX RES120,4,2 F2B15990 06705 0500 00 0 06741 CLA RES340 F2B16000 BINARY CARD NO. 9F190069 06706 -0320 00 0 06735 ANA RES300 F2B16010 06707 0771 00 0 00006 ARS 6 F2B16020 06710 -0602 00 0 04156 ORS $E4 F2B16030 06711 0500 00 0 04163 CLA DRMTAG DRUM TAG ENTRY F2B16040 06712 0074 00 4 04124 TSX $LIST,4 OR F2B16050 06713 0020 00 0 06715 TRA RES200 TAGTAG F2B16060 06714 0074 00 4 05655 RES180 TSX TAGENT,4 ENTRY. F2B16070 06715 -0534 00 1 06736 RES200 LXD RES310,1 MAKE F2B16080 06716 0500 00 1 37510 CLA DOTGZ,1 PROPER F2B16090 06717 0601 00 0 04153 STO $E1 TRASTO F2B16100 06720 0500 00 0 04376 CLA TL2 ENTRY F2B16110 06721 0771 00 0 00022 ARS 18 F2B16120 06722 0400 00 0 04375 ADD TL1 F2B16130 06723 0601 00 0 04154 STO $E2 F2B16140 06724 0500 00 0 06740 CLA RES330 F2B16150 06725 0767 00 0 00022 ALS 18 F2B16160 06726 0400 00 0 04350 ADD TS F2B16170 06727 -0760 00 0 00003 SSM F2B16180 06730 0601 00 0 04155 STO $E3 F2B16190 06731 0500 00 0 04160 CLA TRASTO F2B16200 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 57 BLOCK B. 06732 0074 00 4 04124 TSX $LIST,4 F2B16210 06733 -0534 00 4 06543 RES210 LXD RES45,4 EXIT. F2B16220 BINARY CARD NO. 9F190070 06734 0020 00 4 00001 TRA 1,4 F2B16230 06735 0 00000 0 00000 RES300 PZE PREFIX STORAGE F2B16240 06736 0 00000 0 00000 RES310 PZE INDEX STORAGE F2B16250 06737 +000000070000 RES320 OCT 70000 PREFIX MASK F2B16260 06740 0 00000 0 00000 RES330 PZE RESET NAME STORAGE. F2B16270 06741 0 00000 0 00000 RES340 PZE E.S. F2B16280 06742 0500 00 0 04154 RES400 CLA $E2 TEST FOR COEFFICIENT F2B16290 06743 0402 00 0 04402 SUB L(1) EQUAL TO ONE. F2B16300 06744 -0100 00 0 06555 TNZ RES65 IF NOT, PROCESS NORMALLY F2B16310 06745 0500 00 1 37510 CLA DOTGZ,1 THROUGH RESET. F2B16320 06746 0771 00 0 00021 ARS 17 TEST FOR CONSTANT N1. F2B16330 06747 0760 00 0 00001 LBT IF VARIABLE, NORMAL PROCESSING. F2B16340 06750 0020 00 0 06752 TRA RES410 0 F2B16350 06751 0020 00 0 06555 TRA RES65 1 F2B16360 06752 0500 00 1 37516 RES410 CLA DOTGZ+6,1 HAS COUNTER BEEN FOUND. F2B16370 06753 -0320 00 0 04003 ANA BITTWO F2B16380 06754 -0100 00 0 06767 TNZ RES420 IF SO, GO TO RES420 F2B16390 06755 0500 00 0 04376 CLA TL2 IF NOT, MAKE ENTRY F2B16400 06756 0771 00 0 00022 ARS 18 IN ADDED TAG TABLE F2B16410 06757 -0501 00 0 04375 ORA TL1 FOR PROCESSING INTO F2B16420 06760 -0760 00 0 00003 SSM DRUM TAG AFTER NEST F2B16430 06761 0765 00 0 00043 LRS 35 ANALYSIS. F2B16440 BINARY CARD NO. 9F190071 06762 -0754 00 1 00000 PXD 0,1 F2B16450 06763 -0501 00 0 04350 ORA TS F2B16460 06764 -0534 00 2 04402 LXD L(1),2 F2B16470 06765 0074 00 4 05563 TSX TAGADD,4 F2B16480 06766 0020 00 0 06733 TRA RES210 TRA TO EXIT F2B16490 06767 0074 00 4 05447 RES420 TSX RSR,4 COUNTER FOUND, USE RSR. F2B16500 06770 0020 00 0 06733 TRA RES210 TRA TO EXIT F2B16510 * *** F2B16520 06771 0074 00 4 73600 NRMRT TSX (LOAD),4 GO TO BLOCK 3. F2B16530 06772 0 00000 0 00000 PZE F2B16540 THIS ROUTINE PROCESSES SINGLE RELATIVE CONSTANTS F2B16550 AND, FOR SC WITH TWO RC SUBS, DOES ALL PROCESSING F2B16560 EXCEPT WHERE THERE IS A POSSIBLE MULTIPLE DEFINITION, F2B16570 AT WHICH POINT IT CALLS ON 2R0000. F2B16580 06773 -0534 00 1 34440 CORES LXD DOTAG-1,1 RELCON CODING BLOCK. (STATE B) F2B16590 06774 -0634 00 1 07007 SXD DSDR20,1 F2B16600 06775 -0634 00 1 07152 SXD DSD118,1 F2B16610 06776 -0634 00 1 07167 SXD DSD145,1 F2B16620 06777 -0634 00 1 07233 SXD 2R0020,1 F2B16630 07000 -0760 00 0 00144 DSDR00 MSE 100 F2B16640 07001 0761 00 0 00000 NOP F2B16650 07002 -0534 00 1 04344 LXD XC,1 PUT INDEX OF DC IN XRA F2B16660 07003 -0534 00 4 04371 LXD DELTA,4 PUT DELTA IN XRC F2B16670 07004 0500 00 0 04345 CLA LC INITIALIZE END OF F2B16680 07005 0622 00 0 07012 STD DSDR30 DC TEST INSTR F2B16690 07006 1 77767 1 07007 DSDR10 TXI DSDR20,1,-9 TAKE NEXT DOWN DO,IF POSSIBLE F2B16700 07007 -3 00000 1 07141 DSDR20 TXL DSD100,1,0 EXIT IF DOTAG EXHAUSTED. F2B16710 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 58 BLOCK B. BINARY CARD NO. 9F190072 07010 0500 00 1 37515 CLA DOTGZ+5,1 GET LEVEL OF THIS DO IN F2B16720 07011 -0734 00 2 00000 PDX 0,2 XRB,COMPARE WITH LEVEL OF F2B16730 07012 -3 00000 2 07141 DSDR30 TXL DSD100,2,0 D6 AND EXIT IF NOT IN DC. F2B16740 07013 0500 00 1 37511 CLA DOTGZ+1,1 GET SYMBOL OF THIS DO F2B16750 07014 0402 00 0 04007 SUB $RSYM1 COMPARE WITH FIRST R SYM. F2B16760 07015 0100 00 0 07026 TZE DSDR50 IF THIS DO IS DR1,TRA. F2B16770 07016 -3 00002 4 07006 TXL DSDR10,4,2 IF NOT DR1,GO BACK,UNLESS DELTA3 F2B16780 07017 0500 00 1 37511 CLA DOTGZ+1,1 GET SYMBOL AGAIN F2B16790 07020 0402 00 0 04010 SUB $RSYM2 AND COMPARE WITH RSYM2. F2B16800 07021 -0100 00 0 07006 TNZ DSDR10 IF NOT RSYM1 OR RSYM2,GO BACK F2B16810 07022 0500 00 0 04010 CLA $RSYM2 IF DO SYM IS RSYM2, F2B16820 07023 0560 00 0 04007 LDQ $RSYM1 SWITCH RSYM1 AND RSYM2 F2B16830 07024 0601 00 0 04007 STO $RSYM1 TO MAKE BUCKET LABLES F2B16840 07025 -0600 00 0 04010 STQ $RSYM2 AGREE WITH ORDER OF DO FORMULAS. F2B16850 07026 -0634 00 1 07526 DSDR50 SXD XR1,1 SAVE F2B16860 07027 -0754 00 2 00000 PXD 0,2 INDEX OF R1 F2B16870 07030 0601 00 0 07527 STO LR1 AND LEVEL OF R1 F2B16880 07031 0601 00 0 04376 STO TL2 INITIALIZE TRAWRD TL2 F2B16890 07032 0500 00 0 04362 CLA LL INITIALIZE TRAWRD TL1 F2B16900 07033 0601 00 0 04375 STO TL1 PREPARE F2B16910 07034 -0534 00 2 04402 LXD L(1),2 TRAWRD C(XRB) F2B16920 07035 -3 00002 4 07037 TXL DSDR55,4,2 F2B16930 BINARY CARD NO. 9F190073 07036 -0534 00 2 04403 LXD L(2),2 F2B16940 07037 0074 00 4 05606 DSDR55 TSX TRWRD,4 GO TO TRWRD AND F2B16950 07040 0601 00 0 07532 STO D2D1 SAVE IF NOT ZERO F2B16960 07041 -0534 00 4 04371 LXD DELTA,4 RETURN HERE F2B16970 07042 3 00002 4 07110 TXH DSDR85,4,2 TRANSFER IF DELTA IS THREE F2B16980 07043 0100 00 0 07007 TZE DSDR20 RETURN IF RESULT ZERO F2B16990 07044 -0634 00 1 07140 SXD DSDR95,1 F2B17000 07045 -3 00001 4 07062 TXL DSDR65,4,1 TR IF DELTA=1 F2B17010 07046 0500 00 0 04410 CLA L(36) FOR DELTA=2,SEPARATE F2B17020 07047 0402 00 0 04345 SUB LC TRAWRD RESULTS. F2B17030 07050 0771 00 0 00022 ARS 18 F2B17040 07051 0621 00 0 07054 STA DSDR60 F2B17050 07052 0560 00 0 04401 LDQ L(0) F2B17060 07053 0500 00 0 07532 CLA D2D1 F2B17070 07054 0765 00 0 00000 DSDR60 LRS ** F2B17080 07055 0100 00 0 07057 TZE DSDR62 IF TRANSFERS EXIST DC TO DL, F2B17090 07056 0760 00 0 00144 PSE 100 SET SENSE SWITCH F2B17100 07057 -0600 00 0 07532 DSDR62 STQ D2D1 F2B17110 07060 0500 00 0 07532 CLA D2D1 F2B17120 07061 0100 00 0 07105 TZE DSDR80 IF NO TRANSFERS DR TO DC,EXIT F2B17130 07062 0500 00 0 04342 DSDR65 CLA ATSW TEST ADDED TAG SWITCH F2B17140 07063 -0100 00 0 07105 TNZ DSDR80 IF ADDED DELTA TWO, SKIP INSERT F2B17150 BINARY CARD NO. 9F190074 07064 -0534 00 1 07526 LXD XR1,1 IS TAG IN DR1 F2B17160 07065 0074 00 4 04310 TSX TINFOR,4 GO TO TINFOR AND RETURN F2B17170 07066 0020 00 0 07074 TRA DSDR70 FOUND F2B17180 07067 -0534 00 2 04401 LXD L(0),2 NOT FOUND F2B17190 07070 -0534 00 1 07526 LXD XR1,1 F2B17200 07071 0074 00 4 05563 TSX TAGADD,4 INSERT TAG IN R1,RETURN F2B17210 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 59 BLOCK B. 07072 -0600 00 0 07535 STQ TR1 HERE AND STORE NAME IN TR1 F2B17220 07073 0020 00 0 07102 TRA DSDR75 F2B17230 07074 -0534 00 1 07526 DSDR70 LXD XR1,1 FIND NAME OF TAG IN R1 F2B17240 07075 0500 00 1 37510 CLA DOTGZ,1 F2B17250 07076 -0320 00 0 04001 ANA DECMSK F2B17260 07077 0400 00 0 04026 ADD $TAG F2B17270 07100 0074 00 4 07537 TSX GETNAM,4 F2B17280 07101 0601 00 0 07535 STO TR1 F2B17290 07102 -0534 00 1 07526 DSDR75 LXD XR1,1 LIST STORES F2B17300 07103 -0534 00 2 04401 LXD L(0),2 F2B17310 07104 0074 00 4 07572 TSX STORES,4 F2B17320 07105 -0534 00 1 07140 DSDR80 LXD DSDR95,1 F2B17330 07106 -0534 00 4 04371 LXD DELTA,4 F2B17340 07107 0020 00 0 07007 TRA DSDR20 F2B17350 07110 0100 00 0 07227 DSDR85 TZE 2R0000 GO TO R2 SEARCH IF NO TRA R1 TO D6 F2B17360 07111 -0534 00 1 07526 LXD XR1,1 IF TRA R1 TO DC, F2B17370 BINARY CARD NO. 9F190075 07112 -0534 00 2 04402 LXD L(1),2 USE SPC000 TO LOOK FOR F2B17380 07113 0074 00 4 04176 TSX SPC000,4 TAG IN R1 F2B17390 07114 0020 00 0 07124 TRA DSDR87 NOT FOUND,GO TO DSDR87 F2B17400 07115 -0534 00 1 07526 LXD XR1,1 FOUND,USE SUBROUTINE F2B17410 07116 0500 00 1 37510 CLA DOTGZ,1 GETNAM TO DETERMINE LABEL F2B17420 07117 -0320 00 0 04001 ANA DECMSK OF TAG IN R1 F2B17430 07120 0400 00 0 04026 ADD $TAG F2B17440 07121 0074 00 4 07537 TSX GETNAM,4 F2B17450 07122 0601 00 0 07535 STO TR1 PUT NAME IN TR1 F2B17460 07123 0020 00 0 07133 TRA DSDR89 F2B17470 07124 -0534 00 1 07526 DSDR87 LXD XR1,1 USE TAGADD TO INSERT F2B17480 07125 -0534 00 2 04401 LXD L(0),2 TAG IN R1 F2B17490 07126 0074 00 4 05563 TSX TAGADD,4 F2B17500 07127 -0600 00 0 07535 STQ TR1 PUT NAME IN TR1 F2B17510 07130 -0534 00 1 04361 LXD XL,1 F2B17520 07131 0500 00 0 04425 CLA BIT20 F2B17530 07132 -0602 00 1 37516 ORS DOTGZ+6,1 F2B17540 07133 -0534 00 1 07526 DSDR89 LXD XR1,1 LIST STORES F2B17550 07134 -0534 00 2 04402 LXD L(1),2 F2B17560 07135 0074 00 4 07572 TSX STORES,4 F2B17570 07136 0020 00 0 07227 DSDR90 TRA 2R0000 GO TO R2 ROUTINE AND F2B17580 07137 -0534 00 4 04371 DSDR92 LXD DELTA,4 RETURN HERE F2B17590 BINARY CARD NO. 9F190076 07140 -3 00000 0 07007 DSDR95 TXL DSDR20,,0 NEXT R1. DEC IS XNEXTR1. F2B17600 07141 -3 00001 4 07226 DSD100 TXL DSD200,4,1 TRA IF DELTA IS 1 F2B17610 07142 3 00002 4 07226 TXH DSD200,4,2 TRA IF DELTA IS 3 F2B17620 07143 -0760 00 0 00144 MSE 100 DELTA IS 2,TEST D3D1 SWITCH F2B17630 07144 0020 00 0 07146 TRA DSD110 LIGHT OFF F2B17640 07145 0020 00 0 07203 TRA DSD170 LIGHT ON F2B17650 07146 -0534 00 1 04361 DSD110 LXD XL,1 OBTAIN INDEX OF DL IN XRA F2B17660 07147 0500 00 1 37515 CLA DOTGZ+5,1 GET LEVEL OF DL F2B17670 07150 0622 00 0 07155 STD DSD120 AND STORE IN TEST INSTR. F2B17680 07151 1 77767 1 07152 DSD115 TXI DSD118,1,-9 TAKE NEXT DOWN DO IF POSSIBLE F2B17690 07152 -3 00000 1 07226 DSD118 TXL DSD200,1,0 OTHERWISE, EXIT. F2B17700 07153 0500 00 1 37515 CLA DOTGZ+5,1 GET LEVEL OF THIS DO F2B17710 07154 -0734 00 2 00000 PDX 0,2 AND TEST WHETHER THIS DO IS F2B17720 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 60 BLOCK B. 07155 -3 00000 2 07226 DSD120 TXL DSD200,2,0 IN DL. IF NOT, EXIT. F2B17730 07156 -0754 00 1 00000 PXD 0,1 IF IN DL, F2B17740 07157 0402 00 0 04344 SUB XC IF THIS DO D6. F2B17750 07160 0100 00 0 07165 TZE DSD130 IF SO,TRA. F2B17760 07161 0500 00 1 37511 CLA DOTGZ+1,1 IF NOT, IS THIS DO A DR. F2B17770 07162 0402 00 0 04007 SUB $RSYM1 F2B17780 07163 0100 00 0 07174 TZE DSD160 IF SO,TRA, F2B17790 07164 0020 00 0 07151 TRA DSD115 IF NOT,GO BACK TO GET NEXT DO F2B17800 07165 -0634 00 2 07172 DSD130 SXD DSD150,2 IF DO IS DC, F2B17810 BINARY CARD NO. 9F190077 07166 1 77767 1 07167 DSD140 TXI DSD145,1,-9 F2B17820 07167 -3 00000 1 07226 DSD145 TXL DSD200,1,0 F2B17830 07170 0500 00 1 37515 CLA DOTGZ+5,1 IS NEW IN DL. F2B17840 07171 -0734 00 2 00000 PDX 0,2 IF SO,GO BACK TO STEP DOWN F2B17850 07172 -3 00000 2 07155 DSD150 TXL DSD120,2,0 AGAIN IN DC. IF NOT IN F2B17860 07173 0020 00 0 07166 TRA DSD140 DC, GO TO TEST IF IN DL F2B17870 07174 -0754 00 2 00000 DSD160 PXD 0,2 INITIALIZE F2B17880 07175 0601 00 0 04376 STO TL2 TL2 TO LEVEL OF DR F2B17890 07176 0500 00 0 04362 CLA LL PUT LEVEL OF DL F2B17900 07177 0601 00 0 04375 STO TL1 IN TL1 F2B17910 07200 -0534 00 2 04402 LXD L(1),2 PUT 1 IN XRB F2B17920 07201 0074 00 4 05606 TSX TRWRD,4 AND GO TO TRWRD. F2B17930 07202 0100 00 0 07152 TZE DSD118 IF RESUTL ZERO,GO BACK F2B17940 07203 -0534 00 2 04361 DSD170 LXD XL,2 F2B17950 07204 0500 00 0 04002 CLA BITONE F2B17960 07205 -0602 00 2 37515 ORS DOTGZ+5,2 F2B17970 07206 -0534 00 2 04400 LXD LOWPOS,2 F2B17980 07207 0500 00 0 04401 CLA L(0) F2B17990 07210 0601 00 2 04360 STO X1+5,2 F2B18000 07211 0601 00 2 04361 STO X1+6,2 F2B18010 07212 2 00001 2 07213 TIX DSD175,2,1 F2B18020 07213 -0754 00 2 00000 DSD175 PXD 0,2 F2B18030 BINARY CARD NO. 9F190078 07214 -0602 00 0 04366 ORS DORC F2B18040 07215 0760 00 0 00006 COM F2B18050 07216 0320 00 0 04370 ANS DOSUBS F2B18060 07217 0500 00 0 04344 CLA XC F2B18070 07220 0601 00 0 04361 STO XL F2B18080 07221 0500 00 0 04345 CLA LC F2B18090 07222 0601 00 0 04362 STO LL F2B18100 07223 0500 00 0 04402 CLA L(1) F2B18110 07224 0601 00 0 04365 STO NRDS F2B18120 07225 0601 00 0 04371 STO DELTA F2B18130 07226 0020 00 0 07330 DSD200 TRA DS4VAL F2B18140 RELCON DELTA THREE SECOND LEVEL DEFINITION. F2B18150 07227 -0534 00 1 07526 2R0000 LXD XR1,1 PUT INDEX OF R1 IN XRA F2B18160 07230 0500 00 0 07527 CLA LR1 OBTAIN LEVEL OF R1 F2B18170 07231 0622 00 0 07236 STD 2R0030 INITIALIZE TEST INSTR. F2B18180 07232 1 77767 1 07233 2R0010 TXI 2R0020,1,-9 TAKE NEXT DOWN DO IF POSSIBLE F2B18190 07233 -3 00000 1 07137 2R0020 TXL DSDR92,1,0 EXIT IF DOTAG EXHAUSTED. F2B18200 07234 0500 00 1 37515 CLA DOTGZ+5,1 GET LEVEL OF DO F2B18210 07235 -0734 00 2 00000 PDX 0,2 PUT IN XRB AND COMPARE WITH F2B18220 07236 -3 00000 2 07137 2R0030 TXL DSDR92,2,0 LR1,EXIT IF NEW DO NOT IN XR1. F2B18230 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 61 BLOCK B. 07237 0500 00 1 37511 CLA DOTGZ+1,1 GET SYMBOL OF NEW DO, F2B18240 07240 0402 00 0 04010 SUB $RSYM2 COMPARE WITH RSYM2 F2B18250 07241 -0100 00 0 07232 TNZ 2R0010 IF NOT RSYM2,GO BACK. F2B18260 BINARY CARD NO. 9F190079 07242 -0634 00 1 07530 SXD XR2,1 SAVE INDEX F2B18270 07243 -0754 00 2 00000 PXD 0,2 AND LEVEL F2B18280 07244 0601 00 0 07531 STO LR2 OF R2. F2B18290 07245 0601 00 0 04376 STO TL2 PREPARE FOR TSX TO TRAWRD. F2B18300 07246 0500 00 0 04345 CLA LC TO TEST FOR TRANSFERS F2B18310 07247 0601 00 0 04375 STO TL1 FROM R2 TO DS. F2B18320 07250 -0534 00 2 04402 LXD L(1),2 F2B18330 07251 0074 00 4 05606 TSX TRWRD,4 IF NO TRANSFERS, GO BACK F2B18340 07252 0100 00 0 07233 TZE 2R0020 FOR NEXT DO. F2B18350 07253 -0634 00 1 07277 SXD 2R0065,1 F2B18360 07254 0601 00 0 07534 STO D3D2 TEMPORARY STORAGE F2B18370 07255 0500 00 0 04410 CLA L(36) PUT 36 IN ACC F2B18380 07256 0402 00 0 07527 SUB LR1 SUB LEVEL OF R1, F2B18390 07257 0771 00 0 00022 ARS 18 SHIFT RESULT AND F2B18400 07260 0621 00 0 07263 STA 2R0050 F2B18410 07261 0560 00 0 04401 LDQ L(0) PUT ZERO IN MQ, F2B18420 07262 0500 00 0 07534 CLA D3D2 OBTAIN TRAWRD RESULT, F2B18430 07263 0765 00 0 00000 2R0050 LRS ** PERFORM SEPARATION F2B18440 07264 0601 00 0 07533 STO D3D1 AND SAVE F2B18450 07265 -0600 00 0 07534 STQ D3D2 RESULTS. F2B18460 07266 0500 00 0 07533 CLA D3D1 IF D3D1 IS ZERO,THEN D3D2 F2B18470 07267 -0100 00 0 07272 TNZ 2R0060 IS NOT ZERO F2B18480 BINARY CARD NO. 9F190080 07270 0500 00 0 07532 CLA D2D1 IF D2D1 IS ZERO, F2B18490 07271 0100 00 0 07326 TZE 2R0200 TR TO GET NEX DO F2B18500 07272 -0534 00 1 07530 2R0060 LXD XR2,1 SEARCH FOR TAG F2B18510 07273 0074 00 4 04310 TSX TINFOR,4 IN R2 F2B18520 07274 0020 00 0 07305 TRA 2R0080 FOUND,TR TO OBTAIN NAME F2B18530 07275 -0534 00 1 07530 LXD XR2,1 NOT FOUND, LOOK FOR DELTA TWO F2B18540 07276 0074 00 4 07554 TSX ADDSER,4 INSERT IN ADDED TAG TABLE. F2B18550 07277 -3 00000 0 07312 2R0065 TXL 2R0090,,0 FOUND, NAME IN AC. F2B18560 07300 -0534 00 1 07530 LXD XR2,1 NOT FOUND F2B18570 07301 -0534 00 2 04401 LXD L(0),2 ADD TAG F2B18580 07302 0074 00 4 05563 TSX TAGADD,4 IN TABLE OF ADDED TAGS F2B18590 07303 -0600 00 0 07536 STQ TR2 PUT NAME IN TR2 F2B18600 07304 0020 00 0 07313 TRA 2R0100 F2B18610 07305 -0534 00 1 07530 2R0080 LXD XR2,1 SEARCH F2B18620 07306 0500 00 1 37510 CLA DOTGZ,1 FOR F2B18630 07307 -0320 00 0 04001 ANA DECMSK NAME F2B18640 07310 0400 00 0 04026 ADD $TAG F2B18650 07311 0074 00 4 07537 TSX GETNAM,4 F2B18660 07312 0601 00 0 07536 2R0090 STO TR2 PUT NAME IN TR2 F2B18670 07313 0500 00 0 07533 2R0100 CLA D3D1 LIST STORES,IF ANY TR, F2B18680 07314 0100 00 0 07320 TZE 2R0150 FOR TRANSFERS F2B18690 07315 -0534 00 1 07530 LXD XR2,1 D3D1 F2B18700 BINARY CARD NO. 9F190081 07316 -0534 00 2 04403 LXD L(2),2 F2B18710 07317 0074 00 4 07572 TSX STORES,4 F2B18720 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 62 BLOCK B. 07320 0500 00 0 07534 2R0150 CLA D3D2 TEST TR F2B18730 07321 0100 00 0 07326 TZE 2R0200 D3D2 F2B18740 07322 0500 00 0 07532 CLA D2D1 TEST TR F2B18750 07323 0100 00 0 07326 TZE 2R0200 D2D1 F2B18760 07324 -0534 00 1 07530 LXD XR2,1 LIST STORES F2B18770 07325 0074 00 4 07610 TSX STORXX,4 F2B18780 07326 -0534 00 1 07277 2R0200 LXD 2R0065,1 RETURN FOR F2B18790 07327 0020 00 0 07233 TRA 2R0020 NEXT R2 F2B18800 TABLE SEARCH OF FORVAL F2B18810 07330 -0534 00 1 04537 DS4VAL LXD END80,1 OBTAIN FORVAL EMPTY INDICATOR. F2B18820 07331 -3 00000 1 07406 TXL DS4V20,1,0 EXIT IF FORVAL EMPTY F2B18830 07332 0500 00 0 04026 CLA $TAG PRESET WD E2 FOR LIST F2B18840 07333 0767 00 0 00022 ALS 18 ROUTINE,TAU TAG AND NAME F2B18850 07334 0400 00 0 04350 ADD TS F2B18860 07335 0601 00 0 04154 STO $E2 F2B18870 07336 -0760 00 0 00144 MSE 100 LIGHT 100 OFF F2B18880 07337 0761 00 0 00000 NOP F2B18890 07340 0500 00 0 04346 CLA ALPHA THESE INSTRUCTIONS SET UP F2B18900 07341 0601 00 0 04022 STO $A FOR DRUM SEARCH F2B18910 07342 0500 00 0 04347 CLA BETA F2B18920 07343 0400 00 0 04411 ADD L(1)A F2B18930 BINARY CARD NO. 9F190082 07344 0601 00 0 04023 STO $B F2B18940 07345 -0534 00 1 04401 LXD L(0),1 GET LOC OF 1ST 4VAL ENTRY, STORE IN F2B18950 07346 0074 00 4 07407 TSX FSXX,4 UPDATED ADD. PUT 0 IN XRA, GO TO F2B18960 07347 -0534 00 4 04371 LXD DELTA,4 SEARCH ROUTINE. UPON RETURN, F2B18970 07350 3 00002 4 07406 TXH DS4V20,4,2 ECIT UNLESS DELTA IS 2, F2B18980 07351 -3 00001 4 07406 TXL DS4V20,4,1 IN WHICH CASE,CONTINUE F2B18990 07352 0760 00 0 00144 PSE 100 TURN INDICATOR LIGHT ON F2B19000 07353 0500 00 0 04023 CLA $B THE FOLLOWING INSTR. F2B19010 07354 0601 00 0 04024 STO $NEXTA SET UP TWO ADDITIONAL F2B19020 07355 0500 00 0 04022 CLA $A RANGES FOR SEARCHING, F2B19030 07356 0601 00 0 04023 STO $B THOSE FORMULAS OUTSIDE F2B19040 07357 -0534 00 2 04361 LXD XL,2 OF DC BUT WITHIN DL. F2B19050 07360 0500 00 2 37510 CLA DOTGZ,2 IN THESE SPECIAL RANGES F2B19060 07361 0734 00 2 00000 PAX 0,2 AS SOON AS ONE ENTRY IS F2B19070 07362 -0320 00 0 04001 ANA DECMSK FOUND IN EITHER RANGE, F2B19080 07363 0601 00 0 04022 STO $A TO BE DONE. F2B19090 07364 -0754 00 2 00000 PXD 0,2 F2B19100 07365 0400 00 0 04411 ADD L(1)A F2B19110 07366 0601 00 0 04025 STO $LASTB F2B19120 07367 0500 00 0 04022 CLA $A F2B19130 07370 0400 00 0 04402 ADD L(1) F2B19140 07371 0402 00 0 04023 SUB $B F2B19150 BINARY CARD NO. 9F190083 07372 0100 00 0 07375 TZE DS4V10 IF THIS RANGE IS EMPTY, SKIP SEARCH.F2B19160 07373 -0534 00 1 04401 LXD L(0),1 F2B19170 07374 0074 00 4 07407 TSX FSXX,4 GO TO SEARCH ROUTINE F2B19180 07375 0500 00 0 04024 DS4V10 CLA $NEXTA A AND B FOR SECOND F2B19190 07376 0601 00 0 04022 STO $A F2B19200 07377 0500 00 0 04025 CLA $LASTB F2B19210 07400 0601 00 0 04023 STO $B F2B19220 07401 0402 00 0 04022 SUB $A F2B19230 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 63 BLOCK B. 07402 0100 00 0 07406 TZE DS4V20 F2B19240 07403 0760 00 0 00144 PSE 100 F2B19250 07404 -0534 00 1 04401 LXD L(0),1 F2B19260 07405 0074 00 4 07407 TSX FSXX,4 F2B19270 07406 0020 00 0 05421 DS4V20 TRA RELEND EXIT F2B19280 ROUTINE FSXX FINDS THOSE FORVAL ENTRIES FALLING WITHIN THE F2B19290 RANGE A TO B (B+1) AS DEFINED EARLIER. F2B19300 07407 -0634 00 4 07421 FSXX SXD FS28,4 SAVE LINKAGE. F2B19310 07410 0500 00 0 37510 FS00 CLA FORVAL-1 INITIALIZE DECREMENTS F2B19320 07411 0622 00 0 07423 STD FS50 THAT TEST F2B19330 07412 0622 00 0 07434 STD FS100 END OF FORVAL TABLE. F2B19340 07413 -0534 00 1 03775 LXD MAXFVL,1 LOAD XRA FOR FIRST FVL ENTRY. F2B19350 07414 0500 00 0 04022 CLA $A F2B19360 07415 0560 00 1 46365 FS20 LDQ 4VALZ,1 DOES THIS FORVAL ALPHA F2B19370 07416 0040 00 0 07422 TLQ FS40 EXCEED A. F2B19380 07417 0500 00 0 04023 CLA $B YES. DOES FIRST ENTRY EXCEEDING A F2B19390 BINARY CARD NO. 9F190084 07420 0040 00 0 07432 TLQ FS85 ALSO EXCEED B. IF NO, TRANSFER. F2B19400 07421 -3 00000 0 07523 FS28 TXL BS99,,0 IF YES, EXIT. F2B19410 07422 1 77776 1 07423 FS40 TXI FS50,1,-2 BUMP FOR NEXT FORVAL ENTRY. F2B19420 07423 3 00000 1 07415 FS50 TXH FS20,1,0 IF END OF FORVAL TABLE REACHED F2B19430 07424 0020 00 0 07523 TRA BS99 WITHOUT ANY ENTRY EXCEEDING A, EXIT.F2B19440 07425 0560 00 1 46365 FS70 LDQ 4VALZ,1 DOES THIS FORVAL ENTRY F2B19450 07426 0040 00 0 07433 TLQ FS90 EXCEED B, IF YES, F2B19460 07427 -0634 00 1 07437 FS80 SXD FSEND,1 SAVE IR FOR LAST 4VAL IN RANGE. F2B19470 07430 -0634 00 1 07447 SXD BS40,1 SET DEC FOR TEST IN BS BELOW F2B19480 07431 0020 00 0 07440 TRA BS00 GO TO PROCESS THESE ENTRIES. F2B19490 07432 -0634 00 1 07436 FS85 SXD FSBEG,1 SAVE IR FOR 1ST 4VAL IN RANGE. F2B19500 07433 1 77776 1 07434 FS90 TXI FS100,1,-2 BUMP FOR NEXT FORVAL ENTRY F2B19510 07434 3 00000 1 07425 FS100 TXH FS70,1,0 IF END OF FORVAL TABLE, F2B19520 07435 0020 00 0 07427 TRA FS80 GO TO SAVE IR SETTING. F2B19530 07436 0 00000 0 00000 FSBEG PZE IX FOR 1ST 4VAL IN RANGE F2B19540 07437 0 00000 0 00000 FSEND PZE IX FOR LAST+1 4VAL IN F2B19550 RANGE A TO B. F2B19560 THIS ROUTINE SEARCHES AMONG THOSE FORVAL ENTRIES OF F2B19570 ROUTINE FS00 FOR RSYM1, AND RSYM2 IF DELTA IS 3. F2B19580 07440 0500 00 0 04007 BS00 CLA $RSYM1 DOES RSYM1 F2B19590 07441 -0534 00 4 04371 LXD DELTA,4 OR, IF DELTA IS 3, RSYM1 OR 2, F2B19600 07442 -0534 00 2 07436 BS10 LXD FSBEG,2 F2B19610 07443 0340 00 2 46366 BS20 CAS 4VALZ+1,2 MATCH ANY OF THESE FORVAL ENTRIES F2B19620 07444 0020 00 0 07446 TRA BS30 F2B19630 07445 0020 00 0 07454 TRA BS60 YES. GO TO SEE IF NORMAL SEARCH. F2B19640 BINARY CARD NO. 9F190085 07446 1 77776 2 07447 BS30 TXI BS40,2,-2 NO. STEP THRU RANGE OF FORVALS, F2B19650 07447 3 00000 2 07443 BS40 TXH BS20,2,0 AND, IF NO MATCH FOUND, F2B19660 07450 -3 00002 4 07523 BS50 TXL BS99,4,2 EXIT. F2B19670 07451 -0534 00 4 04401 LXD L(0),4 (SET DELTA LESS THAN 3 FOR F2B19680 NEXT PASS). F2B19690 07452 0500 00 0 04010 CLA $RSYM2 F2B19700 07453 0020 00 0 07442 TRA BS10 F2B19710 07454 -0760 00 0 00144 BS60 MSE 100 TEST TO SEE IF F2B19720 07455 0020 00 0 07457 TRA BS80 NORMAL SEARCH, OR IF F2B19730 07456 -3 00000 0 07477 BS78 TXL BS90,,0 SPECIAL CASE OF DELTA TWO. F2B19740 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 64 BLOCK B. 07457 0601 00 0 07525 BS80 STO 4VALES RSYM FOUND,ARRANGE TO F2B19750 07460 -0534 00 1 04361 LXD XL,1 SAVE INDEXED SUBSCRIPTS. F2B19760 07461 0500 00 0 04002 CLA BITONE F2B19770 07462 -0602 00 1 37515 ORS DOTGZ+5,1 F2B19780 07463 -0534 00 1 04344 LXD XC,1 F2B19790 07464 -0602 00 1 37515 ORS DOTGZ+5,1 RSYM FOUND, E2 PREVIOUSLY F2B19800 07465 0500 00 2 46365 CLA 4VALZ,2 PREPARED,NOW PREPARE F2B19810 07466 0601 00 0 04153 STO $E1 E1, SAVE AC, XRB, XRC, F2B19820 07467 0500 00 0 04161 CLA TSXCOM AND LIST. F2B19830 07470 -0634 00 2 07476 SXD BS85,2 AFTER LISTING, F2B19840 07471 -0634 00 4 07456 SXD BS78,4 RESTORE ACC,XRB,XRC F2B19850 07472 0074 00 4 04124 TSX $LIST,4 AND RETURN TO CONTINUE F2B19860 07473 -0534 00 2 07476 LXD BS85,2 SEARCH. F2B19870 BINARY CARD NO. 9F190086 07474 -0534 00 4 07456 LXD BS78,4 F2B19880 07475 0500 00 0 07525 CLA 4VALES F2B19890 07476 -3 00000 0 07446 BS85 TXL BS30,,0 F2B19900 07477 -0534 00 2 04361 BS90 LXD XL,2 SPECIAL CASE,DELTA TWO, F2B19910 07500 0500 00 0 04002 CLA BITONE PUT IN BIT TO SAVE SL F2B19920 07501 -0602 00 2 37515 ORS DOTGZ+5,2 F2B19930 07502 -0534 00 2 04400 LXD LOWPOS,2 OBTAIN INDEX QUANTITY 1, 3, 5. F2B19940 07503 0500 00 0 04401 CLA L(0) FOR XL, F2B19950 07504 0601 00 2 04360 STO X1+5,2 SET PROPER X AND L TO ZERO, F2B19960 07505 0601 00 2 04361 STO X1+6,2 F2B19970 07506 2 00001 2 07507 TIX BS91,2,1 ADJUST 1,3,5 TO 1,2,4, F2B19980 07507 -0754 00 2 00000 BS91 PXD 0,2 PUT IN ACC F2B19990 07510 -0602 00 0 04366 BS92 ORS DORC AND PUT BIT IN DORC F2B20000 07511 0760 00 0 00006 COM REMOVE BIT F2B20010 07512 0320 00 0 04370 ANS DOSUBS FROM DOSUBS F2B20020 07513 0500 00 0 04344 CLA XC F2B20030 07514 0601 00 0 04361 STO XL F2B20040 07515 0500 00 0 04345 CLA LC F2B20050 07516 0601 00 0 04362 STO LL F2B20060 07517 0500 00 0 04402 CLA L(1) F2B20070 07520 0601 00 0 04365 STO NRDS F2B20080 07521 0601 00 0 04371 STO DELTA F2B20090 BINARY CARD NO. 9F190087 07522 0020 00 0 07406 TRA DS4V20 EXIT F2B20100 07523 -0534 00 4 07421 BS99 LXD FS28,4 EXIT FROM FSXX ENTRY F2B20110 07524 0020 00 4 00001 TRA 1,4 F2B20120 07525 0 00000 0 00000 4VALES PZE E.S. F2B20130 07526 0 00000 0 00000 XR1 F2B20140 07527 0 00000 0 00000 LR1 F2B20150 07530 0 00000 0 00000 XR2 F2B20160 07531 0 00000 0 00000 LR2 F2B20170 07532 0 00000 0 00000 D2D1 F2B20180 07533 0 00000 0 00000 D3D1 F2B20190 07534 0 00000 0 00000 D3D2 F2B20200 07535 0 00000 0 00000 TR1 F2B20210 07536 0 00000 0 00000 TR2 F2B20220 SUBROUTINE GETNAM F2B20230 07537 -0534 00 1 04431 GETNAM LXD NAMXX,1 THIS ROUTINE SEARCHES F2B20240 07540 -0634 00 1 07547 SXD GETN20,1 TABLE NAMZ FOR THE NAME F2B20250 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 65 BLOCK B. 07541 0534 00 1 04431 LXA NAMXX,1 OF TAU TAG IN A PARTICULAR F2B20260 07542 0020 00 0 07547 TRA GETN20 F2B20270 07543 0340 00 1 73042 GETN05 CAS NAMZ,1 DO FORMULA. F2B20280 07544 0020 00 0 07546 TRA GETN10 F2B20290 07545 0020 00 0 07552 TRA GETN30 F2B20300 07546 1 77776 1 07547 GETN10 TXI GETN20,1,-2 F2B20310 07547 3 00000 1 07543 GETN20 TXH GETN05,1,0 F2B20320 BINARY CARD NO. 9F190088 07550 -0320 00 0 04000 ANA ADDMSK F2B20330 07551 0020 00 4 00001 TRA 1,4 F2B20340 07552 0500 00 1 73043 GETN30 CLA NAMZ+1,1 F2B20350 07553 0020 00 4 00001 TRA 1,4 F2B20360 SUBROUTINE ADDSER F2B20370 07554 -0754 00 1 00000 ADDSER PXD 0,1 F2B20380 07555 0400 00 0 04026 ADD $TAG F2B20390 07556 -0534 00 1 04426 LXD ADTXX,1 PREPARE XRA AND DEC O F2B20400 07557 -0634 00 1 07566 SXD ADS030,1 ADS030 FOR TABLE SEARCH. F2B20410 07560 0534 00 1 04426 LXA ADTXX,1 F2B20420 07561 0020 00 0 07566 TRA ADS030 TRA FOR EMPTY TABLE TEST F2B20430 07562 0340 00 1 73600 ADS010 CAS ADTAGZ,1 F2B20440 07563 0020 00 0 07565 TRA ADS020 F2B20450 07564 0020 00 0 07570 TRA ADS040 FIRST WORD FOUND F2B20460 07565 1 77776 1 07566 ADS020 TXI ADS030,1,-2 F2B20470 07566 3 00000 1 07562 ADS030 TXH ADS010,1,0 F2B20480 07567 0020 00 4 00002 TRA 2,4 NOT FOUND F2B20490 07570 0500 00 1 73601 ADS040 CLA ADTAGZ+1,1 F2B20500 07571 0020 00 4 00001 ADS050 TRA 1,4 F2B20510 SUBROUTINES STORES AND STORXX F2B20520 07572 -0634 00 4 07625 STORES SXD ST040,4 THIS ROUTINE PREPARES F2B20530 07573 0500 00 0 07527 CLA LR1 AN ENTRY FOR TABLE TRASTO F2B20540 07574 0771 00 0 00022 ARS 18 AND USES LIST TO ENTER F2B20550 07575 0400 00 0 04345 ADD LC THE ENTRY ON THE PROPER F2B20560 BINARY CARD NO. 9F190089 07576 0601 00 0 04154 STO $E2 DRUM TABLE. IF SPC000 F2B20570 07577 0500 00 0 07535 CLA TR1 IS USED BY THE ROUTINE, F2B20580 07600 -3 00001 2 07602 TXL ST020,2,1 MANY ENTRIES MAY BE MADE F2B20590 07601 0500 00 0 07536 CLA TR2 IN TRA STO. F2B20600 07602 0767 00 0 00022 ST020 ALS 18 IF DELTA EQUALS ONE OR TWO, F2B20610 07603 0400 00 0 04350 ADD TS THIS ROUTINE IS ENTERED F2B20620 07604 0601 00 0 04155 STO $E3 THROUGH STORES WITH C(XRB) F2B20630 07605 -3 00000 2 07621 TXL ST035,2,0 ZERO. IF DELTA IS THREE F2B20640 07606 -3 00001 2 07626 TXL ST050,2,1 AND WE ARE WORKING ON F2B20650 07607 0020 00 0 07621 TRA ST035 TRANSFERS DR2 TO DS,THEN F2B20660 07610 -0634 00 4 07625 STORXX SXD ST040,4 STORES ENTRY IS USED WITH F2B20670 07611 0500 00 0 07531 CLA LR2 C(XRB)=2 F2B20680 07612 0771 00 0 00022 ARS 18 IF DELTA=3,TRA DR1 TO DS, F2B20690 07613 0400 00 0 07527 ADD LR1 STORES ENTRY IS USED WITH F2B20700 07614 0601 00 0 04154 STO $E2 C(XRB)=1 F2B20710 07615 0500 00 0 07536 CLA TR2 IF DELTA=3,TRA DR2 TO DR1, F2B20720 07616 0767 00 0 00022 ALS 18 ENTRY STORXX IS USED. F2B20730 07617 0400 00 0 07535 ADD TR1 C(XRB) NOT USED. F2B20740 07620 0601 00 0 04155 STO $E3 LIST ROUTINE IS USED IN F2B20750 EVERY CASE, MAKING ONE F2B20760 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 66 BLOCK B. TRASTO ENTRY, EXCEPT FOR F2B20770 CASE DELTA=3,TRA DR1 TO DS, F2B20780 C(XRB)=1,WHEN SPC000 IS USED. F2B20790 07621 0500 00 1 37510 ST035 CLA DOTGZ,1 LIST ROUTINE USED. F2B20800 07622 0601 00 0 04153 STO $E1 F2B20810 07623 0500 00 0 04160 CLA TRASTO F2B20820 BINARY CARD NO. 9F190090 07624 0074 00 4 04124 TSX $LIST,4 F2B20830 07625 -3 00000 0 07631 ST040 TXL ST100,,0 F2B20840 07626 -0534 00 2 04403 ST050 LXD L(2),2 SPC000 USED. F2B20850 07627 0500 00 0 04160 CLA TRASTO F2B20860 07630 0074 00 4 04176 TSX SPC000,4 F2B20870 07631 -0534 00 4 07625 ST100 LXD ST040,4 EXIT F2B20880 07632 0020 00 4 00001 TRA 1,4 F2B20890 MKDO READS DOTAG A INTO DOUBLE BUFFERS AND USES THE F2B20900 FIRST TWO WORDS OF EACH ENTRY TO FORM THE DO TABLE F2B20910 FOR BLOCK THREE. F2B20920 07633 -0534 00 1 07705 MKDO LXD MAXDO,1 F2B20930 07634 -0760 00 0 00143 SLT 3 F2B20940 07635 0020 00 0 07640 TRA MKDO1 EMPTY DOTAG. F2B20950 07636 0760 00 0 00143 SLN 3 RESET SL F2B20960 07637 0020 00 0 07674 TRA MKDO9 AND SKIP MKDO. F2B20970 07640 0774 00 2 77777 MKDO1 AXT -1,2 FILL F2B20980 * *** F2B20990 07641 0074 00 4 73606 TSX (TAPE),4 FIRST F2B21000 07642 0 40000 2 07703 PZE DBIO2,2,(RBNP) BUFFER. F2B21010 07643 0 00003 0 04603 PZE DTGL,,FTAPE3 F2B21020 07644 -0774 00 2 77777 MKDO2 AXC -1,2 REVERSE SWITCH. F2B21030 07645 0500 00 2 07702 CLA DB1,2 CHANGE F2B21040 07646 0621 00 0 07664 STA MKDO6 BUFFER ADDRESS. F2B21050 * *** F2B21060 07647 0074 00 4 73606 TSX (TAPE),4 FILL F2B21070 07650 0 40004 2 07703 PZE DBIO2,2,(RBEP) NEXT F2B21080 07651 0 00003 0 04603 PZE DTGL,,FTAPE3 BUFFER. F2B21090 BINARY CARD NO. 9F190091 07652 0634 00 2 07644 SXA MKDO2,2 F2B21100 07653 -0520 00 0 73675 NZT (SCHU)+FTAPE3 TEST FOR EOF. F2B21110 07654 0020 00 0 07674 TRA MKDO9 EOF. F2B21120 * *** F2B21130 07655 0500 00 0 73675 CLA (SCHU)+FTAPE3 COMPUTE F2B21140 07656 -0320 00 0 04000 ANA ADDMSK XR VALUE F2B21150 07657 0402 00 2 07702 MKDO4 SUB DB1,2 FOR END OF F2B21160 07660 0734 00 4 00000 PAX 0,4 NEST AND F2B21170 07661 -0634 00 4 07672 SXD MKDO8,4 SAVE IN TEST. F2B21180 07662 0774 00 2 03047 AXT DBUFSZ,2 F2B21190 07663 0774 00 4 00002 MKDO5 AXT 2,4 PICK UP F2B21200 07664 0500 00 2 00000 MKDO6 CLA **,2 FIRST TWO WORDS F2B21210 07665 0601 00 1 36472 STO DOZ,1 OF EACH DOTAG F2B21220 07666 1 77777 2 07667 TXI *+1,2,-1 AND SAVE F2B21230 07667 1 77777 1 07670 TXI *+1,1,-1 IN DO. F2B21240 07670 2 00001 4 07664 TIX MKDO6,4,1 F2B21250 07671 1 77771 2 07672 TXI *+1,2,-7 BUMP TO NEXT DOTAG ENTRY. F2B21260 07672 3 00000 2 07663 MKDO8 TXH MKDO5,2,** IS THIS END OF NEST. F2B21270 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 67 BLOCK B. 07673 0020 00 0 07644 TRA MKDO2 YES, GO TO READ NEXT NEST. F2B21280 07674 -0634 00 1 36472 MKDO9 SXD DOZ,1 SAVE XR VALUE FOR LAST DO ENTRY. F2B21290 * *** F2B21300 07675 0074 00 4 73606 TSX (TAPE),4 REWIND TAPE 3 TO F2B21310 07676 0 20000 0 03773 PZE REWIND,,(SKBP) WRITE DOFILE C. F2B21320 07677 0 00003 0 04603 PZE DTGL,,FTAPE3 (BLOCK 4). F2B21330 BINARY CARD NO. 9F190092 07700 0020 00 0 06771 TRA NRMRT GO TO BLOCK THREE) F2B21340 07701 0 00000 0 17166 DBIO1 PZE DBUF1+DBUFSZ F2B21350 07702 3 03047 0 17166 DB1 IORT DBUF2,,DBUFSZ F2B21360 07703 0 00000 0 22235 DBIO2 PZE DBUF2+DBUFSZ F2B21370 07704 3 03047 0 14117 DB2 IORT DBUF1,,DBUFSZ F2B21380 07705 0 02032 0 00000 MAXDO PZE ,,600*M/N*2 MAX SIZE OF DO TABLE. F2B21390 07706 0500 00 4 04411 TSTPCH CLA L(3)+5,4 PICK UP REFERENCE FOR NON CURRENT $F2B21391 07707 -0734 00 2 00000 PDX 0,2 SUBSCRIPT - LEFT OR CENTER $F2B21392 07710 0500 00 2 04361 CLA L1+5,2 GET LEVEL NO. OF NON CURRENT SS $F2B21393 07711 0622 00 0 07716 STD L2ORL1 AND STORE IN WORKING STORAGE $F2B21394 07712 0500 00 2 04360 CLA X1+5,2 GET DOTAG REF. NO. OF NON CURRENT $F2B21395 07713 0622 00 0 07715 STD X2ORX1 SS AND STORE IN WORKING STORAGE $F2B21396 07714 0500 00 0 05342 CLA TCL RESTORE LEVEL OF CURRENT SS DO $F2B21397 07715 -3 00000 0 05226 X2ORX1 BRA RETRN,,*-* TO ACCUMULATOR AND RETURN $F2B21398 07716 0 00000 0 00000 L2ORL1 PZE $F2B21399 07732 ENDB SYN *+11 $F2B21400 00141 TL EQU 97 F2B21410 04423 ABIT SYN BIT18 F2B21420 04425 BBIT SYN BIT20 F2B21430 04423 SUBBIT SYN BIT18 F2B21440 05421 RELEND SYN BRA10 FINISH OF RELCON CODING BLOK. F2B21450 BINARY CARD NO. TRA77777 77777 TCD -1 $F2B21455 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 68 BLOCK C. * SECTION TWO OF 709/7090 32K FORTRAN, BLOCK C. F2C00000 HEAD 3 F2C00010 00102 ORG SYSCUR $F2C00020 BINARY CARD NO. 9F200000 00102 112602000000 BCI 1,9F2000 $F2C00030 73666 ORG (LODR) $F2C00040 BINARY CARD NO. 9F200001 73666 1 00310 0 04235 TXI BLCK3A,,200 F2C00060 ABS F2C00070 BLOCK 3 DOES SUBSCRIPT ANALYSIS FOR F2C00080 THOSE SUBSCRIPT COMBINATIONS NO SUBSCRIPT F2C00090 ELEMENT OF WHICH IS UNDER CONTROL OF F2C00100 A DO (PURE RELATIVE CONSTANTS). TWO F2C00110 TYPES OF TSXCOM TABLE ENTRIES ARE MADE IN ROUTINE FOUND F2C00120 WHICH WILL INDICATE TO SUCCEEDING BLOCKS THE NECESSITY TO F2C00130 COMPILE EITHER DIRECT LXDS OF INDEX REG VALUES OR TSXS TO F2C00140 SUBROUTINES TO COMPUTE THOSE INDEX REG VALUES. FOUR TYPES OF F2C00150 TRASTO TABLE ENTRIES ARE MADE WHICH WILL INDICATE THAT F2C00160 CERTAIN INDEXING INSTRUCTIONS SHOULD BE COMPILED ACCOMPANYINGF2C00170 THE TRANSFERS OUT OF THE RANGE OF DOS WHICH DEFINE VALUES F2C00180 OF THE SUBSCRIPTS IN QUESTION. FINALLY, TSXCOM ENTRIES AND F2C00190 TABLE IRV ENTRIES ARE SORTED AND CONDENSED. ROUTINES F2C00200 ENCOUNTERED IN BLOCK 2 WILL BE RECOGNIZED IN THIS BLOCK 3 - F2C00210 SUBCOM, TRAWORD, SPC, TINFOR, LIST. F2C00220 00007 M SYN 1$M M/N IS THE RATIO OF TABLE SIZES F2C00230 00010 N SYN 1$N TO NORMAL 32K SIZES. F2C00240 73041 TCOMZ SYN NAMKYZ-1 ADDITIONAL TABLE F2C00250 67513 TCOM SYN TSCMTB DEFINITIONS F2C00260 73041 TCOMWC SYN TCOMZ FOR F2C00270 67512 IRVZ SYN TCOM-1 BLOCK F2C00280 66475 IRV SYN IRVZ-600*M/N THREE. F2C00290 66474 IRVWC SYN IRV-1 F2C00300 55030 TAU3 SYN 1$TAU3 F2C00310 52454 TAU2 SYN 1$TAU2 F2C00320 51160 TAU1 SYN 1$TAU1 F2C00330 46365 4VALZ SYN 2$4VALZ F2C00340 34440 FORTZ SYN 2$FORTZ F2C00350 34440 DO SYN FORTZ F2C00360 36472 DOZ SYN DO+600*M/N*2 F2C00370 34441 DOTAG SYN DO+1 F2C00380 45626 DOTGZ SYN DOTAG+600*M/N*9 F2C00390 22235 NAMZ SYN FRTGWC F2C00400 20203 NAME SYN NAMZ-600*M/N*2 F2C00410 20202 NAMWC SYN NAME-1 F2C00420 CONSULT END OF BLOCK FOR MORE SYN AND EQU ENTRIES. F2C00430 04176 ORG LADDIN+5 F2C00440 BINARY CARD NO. 9F200002 04176 0 00000 0 00000 TS PZE NEW NAME. F2C00450 04177 0 00000 0 00000 TAGIND PZE 1 IF ONLY 1 SC(COEFF 1), OTHERWISE 0F2C00460 04200 0 00000 0 00000 DELTA PZE COUNT OF NO OF SYMBOLS IN SC COMB. F2C00470 04201 0 00000 0 00000 TL2 PZE LEV OF DOTAG MATCHING SC SYMBOL. F2C00480 04202 0 00000 0 00000 XR1 PZE IX DOTAG MATCHING RSYM1. F2C00490 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 69 BLOCK C. 04203 0 00000 0 00000 LR1 PZE LEV DOTAG MATCHING RSYM1. F2C00500 04204 0 00000 0 00000 NEXTR1 PZE IX LAST DOTAG OF NEST SEARCHED. F2C00510 IN TRAWRD 1ST LEVEL. F2C00520 04205 0 00000 0 00000 XR2 PZE IX DOTAG MATCHING RSYM2. F2C00530 04206 0 00000 0 00000 LR2 PZE LEV DOTAG MATCHING RWYM2. F2C00540 04207 0 00000 0 00000 NEXTR2 PZE IX LAST DO OF NEST SEARCHED. F2C00550 IN TRAWRD ON 2ND LEVEL. F2C00560 04210 0 00000 0 00000 XR3 PZE IX DOTAG MATCHING RSYM3. F2C00570 04211 0 00000 0 00000 NEXTR3 PZE IX LAST DO OF NEXT SEARCHED. F2C00580 IN TRWRD ON 3RD LEVEL. F2C00590 04212 0 00000 0 00000 SKIP PZE SKIP, ZERO OR ONE. F2C00600 04213 0 00000 0 00000 IRVXX PZE CURRENT IRV TABLE IX VALUE. F2C00610 04214 0 00000 0 00000 L(0) 0,0,0 F2C00620 04215 0 00001 0 00000 L(1) 0,0,1 F2C00630 04216 0 00002 0 00000 L(2) 0,0,2 F2C00640 04217 0 00003 0 00000 L(3) 0,0,3 F2C00650 04220 0 00006 0 00000 L(6) 0,0,6 F2C00660 04221 0 00044 0 00000 L(36) 0,0,36 F2C00670 04222 +000000000002 L(2)A OCT 2 F2C00680 04223 -0 00000 0 00000 L(MZ) MZE F2C00690 BINARY CARD NO. 9F200003 04224 +000000400000 BIT18 OCT 400000 F2C00700 04225 -200000000000 PREMSK OCT -200000000000 F2C00710 04226 0 02032 0 00000 NAMAX ,,600*M/N*2 MAX SIZE OF NAME. F2C00720 04227 0 01015 0 00000 IRVMAX 0,0,600*M/N MAXIMUM SIZE OF IRV. F2C00730 04230 0 03326 0 00000 TCOMAX ,,1000*M/N*2 MAX SIZE OF TSXCOM. F2C00740 04231 0 00000 0 71010 NMKYAD NMKYTB ORIGIN OF NAMKEY TABLE CARRYOVER F2C00750 FROM BL 2. F2C00760 04232 0 00000 0 20203 NAMAD NAME ORIGIN O F NAME TABLE F2C00770 04233 0 00000 0 67513 TCOMAD TCOM ORIGIN OF TCOM TABLE F2C00780 04234 0 00000 0 63425 TRSTAD TRSTTB ORIGIN OF TRASTO TABLE F2C00790 04235 0500 00 0 67512 BLCK3A CLA TSCMWC INITIALIZE F2C00800 04236 0400 00 0 04173 ADD LADDIN+2 LADDS CONSTANTS F2C00810 04237 -0320 00 0 04000 ANA ADDMSK IN ROUTINE LIST FOR F2C00820 04240 0601 00 0 04166 STO $LADDS+2 TSXCOM, F2C00830 04241 0500 00 0 63424 CLA TRSTWC F2C00840 04242 0774 00 1 73041 AXT TCOMZ,1 F2C00850 04243 -0634 00 1 04173 SXD LADDIN+2,1 F2C00860 04244 0400 00 0 04172 ADD LADDIN+1 F2C00870 04245 -0320 00 0 04000 ANA ADDMSK F2C00880 04246 0601 00 0 04165 STO $LADDS+1 AND TRASTO. F2C00890 04247 0500 00 0 04227 CLA IRVMAX INITIALIZE IRVXX. F2C00900 04250 0601 00 0 04213 STO IRVXX F2C00910 04251 0500 00 0 04214 CLA L(0) INITIALIZE WD CT OF F2C00920 BINARY CARD NO. 9F200004 04252 0601 00 0 66474 STO IRVWC IRV TABLE F2C00930 04253 -0534 00 1 22235 LXD FORTAG-1,1 IF FORTAG EMPTY, F2C00940 04254 3 12201 1 04472 TXH BLCK3B,1,3000*M/N*2-1 F2C00950 04255 0500 00 0 71007 CLA NMKYWC GET WD CT OF NAMKEY LEFT FROM BL2. F2C00960 04256 0734 00 1 00000 PAX 0,1 F2C00970 04257 -3 00000 1 04275 TXL NAM95,1,0 IF NO TABLE NAME, GO SEARCH 4VAL. F2C00980 04260 0400 00 0 04232 ADD NAMAD ADD ORG NAME TABLE TO GET END, AND F2C00990 04261 0621 00 0 04272 STA NAM20 STORE IN STORE ADDRESS F2C01000 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 70 BLOCK C. 04262 0500 00 0 71007 CLA NMKYWC GET WD CT OF NAMKEY LEFT FROM BL 2. F2C01010 04263 0400 00 0 04231 ADD NMKYAD ADD ORG NAMKEY TABLE CARRYOVER FROM F2C01020 04264 0621 00 0 04271 STA NAM10 BL2 TO GET END AND STORE IN CLA ADD F2C01030 04265 -0754 00 1 00000 PXD 0,1 F2C01040 04266 -0760 00 0 00003 SSM F2C01050 04267 0400 00 0 04226 ADD NAMAX COMP NEXT UNUSED INDEX AND F2C01060 04270 0601 00 0 20202 STO NAME-1 PLACE IN WD CT LOCAT. F2C01070 04271 0500 00 1 00000 NAM10 CLA 0,1 MOVE NAMKEY TABLE CARRYOVER FROM F2C01080 04272 0601 00 1 00000 NAM20 STO 0,1 BL 2 TO NEW LOCATION FOR THIS F2C01090 04273 2 00001 1 04271 TIX NAM10,1,1 BLOCK. F2C01100 04274 0020 00 0 04277 TRA BEGIN TABLE NAME ALL IN. F2C01110 04275 0500 00 0 04226 NAM95 CLA NAMAX TABLE NAME EMPTY. F2C01120 04276 0601 00 0 20202 STO NAME-1 F2C01130 04277 -0760 00 0 00144 BEGIN MSE LIGHT TEST FOR EMPTY FORVAL F2C01140 BINARY CARD NO. 9F200005 04300 0020 00 0 04302 TRA INIT F2C01150 04301 0020 00 0 04472 TRA BLCK3B F2C01160 04302 -0534 00 1 37510 INIT LXD FORVAL-1,1 INITIALIZE F2C01170 04303 -0634 00 1 04410 SXD TAB60,1 . F2C01180 04304 -0534 00 1 22235 LXD FORTAG-1,1 . F2C01190 04305 -0634 00 1 04371 SXD VAL80,1 . F2C01200 04306 -0634 00 1 04374 SXD VAL95,1 . F2C01210 04307 -0534 00 1 36472 LXD DOZ,1 . F2C01220 04310 -0634 00 1 04455 SXD IND20,1 . F2C01230 04311 -0534 00 1 03774 VALTAG LXD MAXFTG,1 THIS PROGRAM F2C01240 04312 0500 00 1 34440 VAL10 CLA FORTZ,1 MAKES A F2C01250 04313 -0120 00 0 04373 TMI VAL90 PASS OVER F2C01260 04314 -0320 00 0 04002 ANA BITONE FORTAG, AND F2C01270 04315 -0100 00 0 04373 TNZ VAL90 FOR EACH POSITIVE(UNTREATED IN BL2) F2C01280 04316 0500 00 1 34440 CLA FORTZ,1 TAG WITH BITONE EQUAL F2C01290 04317 -0320 00 0 04000 ANA ADDMSK TO ZERO, (NOT YET TREATED HERE) F2C01300 04320 0601 00 0 04026 STO $TAG OBTAINS THE CORRESPONDING SSC. F2C01310 04321 -0634 00 1 04354 SXD SAVEA,1 COMBINATION FROM THE F2C01320 04322 0074 00 4 04030 TSX SUBCOM,4 TAU TABLE DRUM. F2C01330 04323 -0534 00 4 04217 LXD L(3),4 F2C01340 04324 -0754 00 0 00000 PXD 0,0 F2C01350 04325 0601 00 4 04012 VAL20 STO $RSYM1+3,4 INITIALIZE WITH ZEROES. F2C01360 BINARY CARD NO. 9F200006 04326 2 00001 4 04325 TIX VAL20,4,1 F2C01370 04327 -0534 00 1 04220 LXD L(6),1 THIS ROUTINE STORES F2C01380 04330 -0534 00 2 04217 LXD L(3),2 THE SYMBOLS AS FOLLOWS F2C01390 04331 0500 00 1 04021 VAL30 CLA $S1+6,1 LEFTMOST IN RSYM1, F2C01400 04332 0100 00 0 04335 TZE VAL40 NEXT SYMBOL IN RSYM2, F2C01410 04333 0601 00 2 04012 STO $RSYM1+3,2 RIGHTMOST IN RSYM3. F2C01420 04334 1 77777 2 04335 TXI VAL40,2,-1 IF THERE ARE NOT THREE F2C01430 04335 2 00002 1 04331 VAL40 TIX VAL30,1,2 SYMBOLS IN THE SC, THEN F2C01440 04336 -0754 00 2 00000 PXD 0,2 THE RSYM LOCATIONS ARE F2C01450 04337 -0760 00 0 00003 SSM SET TO ZERO. F2C01460 04340 0400 00 0 04217 ADD L(3) DELTA IS THE SYMBOL COUNT. F2C01470 04341 0100 00 0 04355 TZE VAL60 SUBSCRIPT IS CONSTANT, NO SYMBOLS. F2C01480 04342 0601 00 0 04200 STO DELTA F2C01490 04343 -0534 00 4 04214 LXD L(0),4 LOCATION TAGIND IS SET F2C01500 04344 0402 00 0 04215 SUB L(1) TO ZERO, UNLESS THE SC F2C01510 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 71 BLOCK C. 04345 -0100 00 0 04353 TNZ VAL50 HAS THE FOLLOWING F2C01520 04346 0500 00 0 04013 CLA $S1 CHARACTERISTICS F2C01530 04347 0100 00 0 04353 TZE VAL50 ONE SYMBOL F2C01540 04350 -0534 00 1 04012 LXD $C1,1 IN LEFTMOST POSITION F2C01550 04351 3 00001 1 04353 TXH VAL50,1,1 WITH COEFFICIENT EQUAL F2C01560 04352 -0534 00 4 04215 LXD L(1),4 TO ONE F2C01570 04353 -0634 00 4 04177 VAL50 SXD TAGIND,4 F2C01580 BINARY CARD NO. 9F200007 04354 -3 00000 0 04376 SAVEA TXL TABSER,,0 GO TO TABSER(DEC IS 4TAG IX) F2C01590 04355 -0534 00 1 04354 VAL60 LXD SAVEA,1 RETURN FROM PROCESSING F2C01600 04356 0500 00 1 34440 CLA FORTZ,1 ROUTINE. FOR THIS TAG, F2C01610 04357 -0120 00 0 04370 TMI VAL70 AND ALL TAGS EQUAL TO F2C01620 04360 -0320 00 0 04002 ANA BITONE THIS TAG, SET FORTAG F2C01630 04361 -0100 00 0 04370 TNZ VAL70 ENTRY BIT ONE EQUAL F2C01640 04362 0500 00 1 34440 CLA FORTZ,1 TO ONE. F2C01650 04363 -0320 00 0 04000 ANA ADDMSK F2C01660 04364 0402 00 0 04026 SUB $TAG F2C01670 04365 -0100 00 0 04370 TNZ VAL70 F2C01680 04366 0500 00 0 04002 CLA BITONE F2C01690 04367 -0602 00 1 34440 ORS FORTZ,1 F2C01700 04370 1 77777 1 04371 VAL70 TXI VAL80,1,-1 F2C01710 04371 3 00000 1 04356 VAL80 TXH VAL60+1,1,0 IF 4TAG DONE,(DEC IS 4TAG IX) F2C01720 04372 -0534 00 1 04354 LXD SAVEA,1 GO BACK F2C01730 04373 1 77777 1 04374 VAL90 TXI VAL95,1,-1 FOR NEXT TAG F2C01740 04374 3 00000 1 04312 VAL95 TXH VAL10,1,0 IF ANY (DEC IS 4TAG IX) F2C01750 04375 0020 00 0 04472 TRA BLCK3B F2C01760 04376 -0534 00 1 03775 TABSER LXD MAXFVL,1 F2C01770 04377 -0634 00 2 04406 SXD TAB40,2 (6 - 2X NO SUB SYMBOLS - VAL40) F2C01780 04400 -0534 00 2 04217 TAB10 LXD L(3),2 FORVAL F2C01790 04401 0500 00 1 46366 CLA 4VALZ+1,1 FOR AN F2C01800 BINARY CARD NO. 9F200008 04402 0340 00 2 04012 TAB20 CAS $RSYM1+3,2 OCCURRANCE F2C01810 04403 0020 00 0 04405 TRA TAB30 OF ANY SYMBOL F2C01820 04404 0020 00 0 04412 TRA FOUND IN THIS SC. F2C01830 04405 1 77777 2 04406 TAB30 TXI TAB40,2,-1 F2C01840 04406 3 00000 2 04402 TAB40 TXH TAB20,2,0 (DEC LOADED FROM TABSER +1) F2C01850 04407 1 77776 1 04410 TAB50 TXI TAB60,1,-2 F2C01860 04410 3 00000 1 04400 TAB60 TXH TAB10,1,0 (DEC HAS FORVAL IX) F2C01870 04411 0020 00 0 04355 TRA VAL60 F2C01880 04412 -0634 00 1 04427 FOUND SXD FND10,1 IF SYMBOL FOUND, F2C01890 04413 -0534 00 4 04177 LXD TAGIND,4 MAKE NORMAL OR SPECIAL F2C01900 04414 0500 00 1 46365 CLA 4VALZ,1 ENTRY IN TSXCOM, DEPENDING F2C01910 04415 3 00000 4 04430 TXH FND20,4,0 ON TAGIND. (UNLESS SEE SUBRT INDO) F2C01920 04416 0601 00 0 04466 STO FORNR F2C01930 04417 0074 00 4 04440 TSX INDO,4 F2C01940 04420 0020 00 0 04436 TRA FND40 INDO RETURN IF FRVL ALPH IN RANGE MTF2C01950 04421 -0534 00 1 04427 LXD FND10,1 RETURN FROM INDO WHEN NOT SO. F2C01960 04422 0500 00 1 46365 CLA 4VALZ,1 F2C01970 04423 0601 00 0 04153 STO $E1 SPECIAL ENTRY IF TAGIND F2C01980 04424 0500 00 0 04026 CLA $TAG NOT ZERO. F2C01990 04425 0767 00 0 00022 ALS 18 F2C02000 04426 -0501 00 0 04026 ORA $TAG F2C02010 04427 -3 00000 0 04433 FND10 TXL FND30,,0 (DEC HAS FORTAG IX) F2C02020 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 72 BLOCK C. BINARY CARD NO. 9F200009 04430 -0501 00 0 04026 FND20 ORA $TAG SET UP E BLCK WHEN TAGIND IS 1. F2C02030 04431 0601 00 0 04153 STO $E1 F2C02040 04432 0500 00 0 04007 CLA $RSYM1 TAG SYMBOL F2C02050 04433 0601 00 0 04154 FND30 STO $E2 F2C02060 04434 0500 00 0 04161 CLA TSXCOM TSXCOM KEY F2C02070 04435 0074 00 4 04124 TSX $LIST,4 F2C02080 04436 -0534 00 1 04427 FND40 LXD FND10,1 F2C02090 04437 0020 00 0 04407 TRA TAB50 CONTINUE SEARCH F2C02100 SUBRT INDO.... THIS ROUTINE DETERMINES WHETHER THE FORVAL F2C02110 WHICH HAS BEEN FOUND TO MATCH A SUBSCRIPT FALLS WITHIN RANGE F2C02120 OF A DO WHICH IN TURN MATCHES THE FORAVAL. IF SO A RETURN IS F2C02130 MADE AND TSXCOM ENTRY FOR THIS FORVAL ALPHA IS OMMITTED. F2C02140 04440 -0534 00 1 04467 INDO LXD IND60,1 F2C02150 04441 0020 00 0 04455 TRA IND20 F2C02160 04442 0500 00 1 36472 IND10 CLA DOZ,1 OBTAIN FIRST WORD DOTAG. F2C02170 04443 0734 00 2 00000 PAX 0,2 DOTAGS BETA. F2C02180 04444 -0320 00 0 04001 ANA DECMSK DOTAGS ALPHA F2C02190 04445 0340 00 0 04466 CAS FORNR AGAINST FORVAL ALPHA. F2C02200 04446 0020 00 4 00002 TRA 2,4 OUTSIDE RANGE . RETURN. F2C02210 04447 0074 00 4 03746 TSX ERRORM,4 DECR OF FIRST WD OF XR1 F2C02220 DO ENTRY (IFN) SHOULD NOT F2C02230 EQUAL TO FORNR. DO IS FIRST F2C02240 TWO WDS OF EACH DOTAG ENTRY F2C02250 (FILE 1 TAPE3), AND FORNR IS F2C02260 4VAL ENTRY WITH XR VALUE IN F2C02270 DECR OF FND10. F2C02280 04450 -0754 00 2 00000 PXD 0,2 F2C02290 04451 0340 00 0 04466 CAS FORNR DOTAGS BETA AGAINST FORVAL ALPHA. F2C02300 04452 0020 00 0 04457 TRA IND30 FORVAL WITHIN RANGE F2C02310 04453 0020 00 0 04457 TRA IND30 OF DOTAG. F2C02320 04454 1 77776 1 04455 TXI IND20,1,-2 F2C02330 04455 3 00000 1 04442 IND20 TXH IND10,1,0 F2C02340 BINARY CARD NO. 9F200010 04456 0020 00 4 00002 TRA 2,4 DOTAG EXHAUSTED, RETURN. F2C02350 04457 -0534 00 2 04217 IND30 LXD L(3),2 F2C02360 04460 0500 00 1 36473 CLA DOZ+1,1 FN EDIT CORR CD NR. F2C02370 04461 0340 00 2 04012 IND40 CAS $RSYM1+3,2 DOES DOTAG SYMBOL EQUAL F2C02380 04462 0020 00 0 04464 TRA IND50 FORVAL SYMBOL (WHICH HAS BEEN FOUND F2C02390 04463 0020 00 4 00001 TRA 1,4 TO EQUAL SUBSCRIPT). IF SO, RETURN. F2C02400 04464 2 00001 2 04461 IND50 TIX IND40,2,1 F2C02410 04465 1 77776 1 04455 TXI IND20,1,-2 F2C02420 04466 0 00000 0 00000 FORNR PZE STORAGE FOR 1ST WD 4VAL (ALPHA) F2C02430 04467 0 02032 0 00000 IND60 ,,600*M/N*2 F2C02440 *******************SUBROUTINES COMMON TO 3A + 3B. F2C02450 * *** F2C02460 04470 0074 00 4 73600 NORMRT TSX (LOAD),4 GO TO BLOCK 4. F2C02470 04471 0 00000 0 00000 PZE F2C02480 04472 -0534 00 1 22235 BLCK3B LXD FORTAG-1,1 F2C02490 04473 3 12201 1 04470 TXH NORMRT,1,3000*M/N*2-1 F2C02500 04474 -0760 00 0 00143 MSE 99 F2C02510 04475 0020 00 0 04500 TRA RDO105 F2C02520 04476 0760 00 0 00143 PSE 99 F2C02530 04477 0020 00 0 05352 TRA RDTSX F2C02540 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 73 BLOCK C. 04500 -0534 00 1 03777 RDO105 LXD DORCCT,1 PICK UP DOTAG RECORD COUNT. F2C02550 04501 0634 00 1 04525 SXA SKLST1,1 F2C02560 * *** F2C02570 04502 0074 00 4 73606 RDORD TSX (TAPE),4 READ IN F2C02580 04503 0 40010 0 04524 PZE RDOCM2,,(RBNC) ONE DOTAG F2C02590 BINARY CARD NO. 9F200011 04504 0 00002 0 04523 PZE DTGBL,,FTAPE2 RECORD. F2C02600 * *** F2C02610 04505 0500 00 0 73674 CLA (SCHU)+FTAPE2 UPDATE F2C02620 04506 0621 00 0 04524 STA RDOCM2 ADDRESS. F2C02630 04507 2 00001 1 04502 TIX RDORD,1,1 RETURN TO READ NEXT RECORD. F2C02640 04510 0500 00 0 04524 CLA RDOCM2 COMPUTE F2C02650 04511 -0320 00 0 04000 ANA ADDMSK XR VALUE FOR F2C02660 04512 0402 00 0 04526 SUB LDTGZ END OF TABLE. F2C02670 04513 -0120 00 0 04515 TMI RDO30 TEST FOR OVERFLOW. F2C02680 04514 0074 00 4 03746 TSX ERRORM,4 DOTAG TABLE OVERFLOWS A BUFFER F2C02690 THE SAME SIZE AS THE ONE FROM WHICH F2C02700 IT WAS WRITTEN IN RECORD 16. F2C02710 DOTAG IS ON TAPE 2 AS FILE 6. F2C02720 04515 0767 00 0 00022 RDO30 ALS 18 SAVE F2C02730 04516 0622 00 0 34440 STD DOTAG-1 NEXT UNUSED INDEX. F2C02740 * *** F2C02750 04517 0074 00 4 73606 RDO40 TSX (TAPE),4 SPACE TAPE F2C02760 04520 0 20000 0 04525 PZE SKLST1,,(SKBP) TO READ DOTAG F2C02770 04521 0 00002 0 04523 PZE DTGBL,,FTAPE2 TABLE (BLOCK 5). F2C02780 04522 0020 00 0 04531 TRA DOPASS F2C02790 04523 244663212722 DTGBL BCI 1,DOTAGB F2C02800 04524 3 03047 0 34441 RDOCM2 IORT DOTAG,,200*M/N*9 F2C02810 04525 -0 00000 0 00000 SKLST1 MZE **,,0 F2C02820 04526 0 00000 0 45626 LDTGZ DOTGZ F2C02830 04527 0 00000 0 00000 RDES1 PZE RECORD COUNT F2C02840 04530 0 00000 0 00000 RDES2 PZE RECORD COUNT F2C02850 04531 -0534 00 1 34440 DOPASS LXD DOTAG-1,1 DOTAG INDEX. F2C02860 BINARY CARD NO. 9F200012 04532 -0634 00 1 04647 SXD SYM40,1 INITIALIZE. F2C02870 04533 -0634 00 1 04717 SXD SYM130,1 . F2C02880 04534 -0634 00 1 04761 SXD SYM220,1 . F2C02890 04535 -0634 00 1 05311 SXD TRAW20,1 . F2C02900 04536 -0634 00 1 05327 SXD TRAW50,1 . F2C02910 04537 -0634 00 1 05156 SXD SP040,1 F2C02920 04540 -0634 00 1 05213 SXD SP090,1 F2C02930 04541 -0534 00 1 20202 LXD NAME-1,1 . F2C02940 04542 -0634 00 1 07547 SXD GETN20,1 . F2C02950 THIS ROUTINEMAKES A PASS OVER FORTAG AND FOR EACH NON- F2C02960 NEGATIVE TAG, OBTAINS THE CORRESPONDING SUBSCRIPT COMBINATIONF2C02970 FROM THE TAU TABLE. THE SYMBOLS ARE PUT INTO THE LOCATIONS F2C02980 RSYM1, RSYM2, RSYM3, AND LOCATION TAGIND IS INITIALIZED. F2C02990 CONTROL THEN GOES TO ROUTINE SYMONE. UPON RETURN, THIS ENTRY F2C03000 IN FORTAG AND ALL OTHER NON- NEGATIVE ENTRIES CONTAINING F2C03010 THIS TAG ARE SET NEGATIVE. F2C03020 04543 -0534 00 1 22235 TAGPAS LXD FORTAG-1,1 F2C03030 04544 -0634 00 1 05266 SXD TINF3,1 F2C03040 04545 -0634 00 1 04632 SXD TAGP80,1 F2C03050 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 74 BLOCK C. 04546 -0634 00 1 04635 SXD TAGP98,1 F2C03060 04547 -0534 00 1 03774 LXD MAXFTG,1 MAXIMUM SIZE TABLE FORTAG. F2C03070 04550 0500 00 1 34440 TAGP10 CLA FORTZ,1 F2C03080 04551 -0120 00 0 04634 TMI TAGP94 IF NEG, GET NEXT FORTAG F2C03090 04552 -0320 00 0 04000 ANA ADDMSK TAG F2C03100 04553 0601 00 0 04026 STO $TAG F2C03110 04554 -0634 00 1 04636 SXD TAGX,1 SAVE CURRENT FORTAG IX F2C03120 04555 0074 00 4 04030 TSX SUBCOM,4 OBTAIN AND DISPERSE THE TAU TABLES. F2C03130 04556 -0534 00 4 04217 LXD L(3),4 F2C03140 04557 -0754 00 0 00000 PXD 0,0 F2C03150 BINARY CARD NO. 9F200013 04560 0601 00 4 04012 TAGP20 STO $RSYM1+3,4 INITIALIZE WITH ZEROS. F2C03160 04561 2 00001 4 04560 TIX TAGP20,4,1 F2C03170 04562 -0534 00 1 04220 LXD L(6),1 F2C03180 04563 -0534 00 2 04217 LXD L(3),2 F2C03190 04564 -0534 00 4 04214 LXD L(0),4 F2C03200 04565 0500 00 1 04021 TAGP30 CLA $S1+6,1 GET SYMBOL F2C03210 04566 0100 00 0 04600 TZE TAGP40 IF ZERO, GET NEXT SYMBOL F2C03220 04567 3 00002 2 04576 TXH TAGP34,2,2 AT RSYM2 AND RSYM3 PASS, F2C03230 04570 0340 00 0 04007 CAS $RSYM1 CHECK FOR DUPLICATE SYMBOLS. F2C03240 04571 0020 00 0 04573 TRA TAGP32 F2C03250 04572 1 00001 4 04600 TXI TAGP40,4,1 SYMBOL DUPLICATES RSYM1. F2C03260 04573 0340 00 0 04010 TAGP32 CAS $RSYM2 F2C03270 04574 0020 00 0 04576 TRA TAGP34 F2C03280 04575 1 00001 4 04600 TXI TAGP40,4,1 SYMBOL DUPLICATES RSYM2. F2C03290 04576 0601 00 2 04012 TAGP34 STO $RSYM1+3,2 F2C03300 04577 1 77777 2 04600 TXI TAGP40,2,-1 BUMP DELTA COUNTER. F2C03310 04600 2 00002 1 04565 TAGP40 TIX TAGP30,1,2 F2C03320 04601 -0754 00 2 00000 PXD 0,2 COMPUTE F2C03330 04602 -0760 00 0 00003 SSM DELTA AS NO F2C03340 04603 0400 00 0 04217 ADD L(3) OF DISTINCT SYMBOLS. F2C03350 04604 0100 00 0 04621 TZE TAGP50 CONSTANT SUBSCRIPT. F2C03360 04605 0601 00 0 04200 STO DELTA F2C03370 BINARY CARD NO. 9F200014 04606 -0534 00 2 04214 LXD L(0),2 F2C03380 04607 3 00000 4 04617 TXH TAGP45,4,0 IF DUPES, SET TAGIND TO ZERO F2C03390 04610 0402 00 0 04215 SUB L(1) F2C03400 04611 -0100 00 0 04617 TNZ TAGP45 IF DELTA NOT 1, SET TAGIND TO 0. F2C03410 04612 0500 00 0 04013 CLA $S1 F2C03420 04613 0100 00 0 04617 TZE TAGP45 IF SSC CONSTANT, SET TAGIND TO 0. F2C03430 04614 -0534 00 1 04012 LXD $C1,1 IF COEFF NOT 1 SET TAGIND TO 0. F2C03440 04615 3 00001 1 04617 TXH TAGP45,1,1 F2C03450 04616 -0534 00 2 04215 LXD L(1),2 OTHERWISE SET TAGIND TO ONE. F2C03460 04617 -0634 00 2 04177 TAGP45 SXD TAGIND,2 F2C03470 04620 0020 00 0 04637 TRA SYMONE GO TO ANALYZE DONEST. F2C03480 04621 -0534 00 1 04636 TAGP50 LXD TAGX,1 IF ANY F2C03490 04622 0500 00 1 34440 TAGP60 CLA FORTZ,1 OF THE AS YET UNTREATED F2C03500 04623 -0120 00 0 04631 TMI TAGP70 FORTAGS F2C03510 04624 -0320 00 0 04000 ANA ADDMSK ARE F2C03520 04625 0402 00 0 04026 SUB $TAG THE SAME AS THAT TAG F2C03530 04626 -0100 00 0 04631 TNZ TAGP70 JUST TREATED, F2C03540 04627 -0500 00 0 04223 CAL L(MZ) SET THEM F2C03550 04630 -0602 00 1 34440 ORS FORTZ,1 MINUS. F2C03560 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 75 BLOCK C. 04631 1 77777 1 04632 TAGP70 TXI TAGP80,1,-1 F2C03570 04632 3 00000 1 04622 TAGP80 TXH TAGP60,1,0 (DEC HAS 4TAG IX) F2C03580 04633 -0534 00 1 04636 TAGP90 LXD TAGX,1 F2C03590 BINARY CARD NO. 9F200015 04634 1 77777 1 04635 TAGP94 TXI TAGP98,1,-1 IF ALL OF FORTAG F2C03600 04635 3 00000 1 04550 TAGP98 TXH TAGP10,1,0 HAS BEEN DONE, (DEC HAS 4TAG IX) F2C03610 04636 -3 00000 0 05352 TAGX TXL RDTSX,,0 EXIT. F2C03620 ROUTINE SYMONE FINDS DOFORMULAS DEFINING SOME SYMBOL IN THIS F2C03630 SC. IT USES TRAWRD TO DETERMINE WHETHER OR NOT ROUTINE F2C03640 PROCESS SHOULD BE USED. F2C03650 IF MORE THAN ONE SYMBOL, IT THEN USES ROUTINE SYM2. F2C03660 04637 -0534 00 1 03776 SYMONE LXD MAXDTG,1 F2C03670 04640 -0534 00 2 04217 SYM10 LXD L(3),2 F2C03680 04641 0500 00 1 45627 CLA DOTGZ+1,1 GET NEXT DOTAG SYMBOL. F2C03690 04642 0340 00 2 04012 SYM20 CAS $RSYM1+3,2 IS IT SAME AS SS SYMBOL. F2C03700 04643 0020 00 0 04645 TRA SYM30 F2C03710 04644 0020 00 0 04651 TRA SYM50 YES F2C03720 04645 2 00001 2 04642 SYM30 TIX SYM20,2,1 F2C03730 04646 1 77767 1 04647 TXI SYM40,1,-9 F2C03740 04647 3 00000 1 04640 SYM40 TXH SYM10,1,0 END OF DOTAG, RETURN. F2C03750 04650 0020 00 0 04621 TRA TAGP50 F2C03760 04651 0500 00 0 04007 SYM50 CLA $RSYM1 INTERCHANGE THE F2C03770 04652 0560 00 2 04012 LDQ $RSYM1+3,2 MATCHING SUBSCRIPT F2C03780 04653 0601 00 2 04012 STO $RSYM1+3,2 SYMBOL WITH F2C03790 04654 -0600 00 0 04007 STQ $RSYM1 RSYM1. F2C03800 04655 0500 00 1 45633 CLA DOTGZ+5,1 F2C03810 04656 -0320 00 0 04001 ANA DECMSK STORE LEVEL F2C03820 04657 0601 00 0 04203 STO LR1 OF F2C03830 04660 0601 00 0 04201 STO TL2 DOTAG F2C03840 04661 -0634 00 1 04202 SXD XR1,1 THIS DOTAG IS R1. F2C03850 BINARY CARD NO. 9F200016 04662 -0534 00 4 04200 LXD DELTA,4 IF DELTA IS F2C03860 04663 -0534 00 2 04215 LXD L(1),2 ONE, THEN F2C03870 04664 -3 00001 4 04666 TXL SYM60,4,1 NO TRAWORD SKIP. F2C03880 04665 -0534 00 2 04216 LXD L(2),2 OTHERWISE, TRAWORD SKIP. F2C03890 04666 0074 00 4 05301 SYM60 TSX TRAWRD,4 F2C03900 04667 -0634 00 1 04204 SXD NEXTR1,1 SAVE INDEX LAST DOTAG HANDLED. F2C03910 04670 0100 00 0 04674 TZE SYM70 ARE THERE TRANSFERS OUT(TRABITS). F2C03920 04671 -0534 00 1 04202 LXD XR1,1 YES. LOAD I.R. FOR MATCHING DOTAG. F2C03930 04672 -0534 00 2 04215 LXD L(1),2 A ONE TELLS PROCESS THAT F2C03940 04673 0074 00 4 04775 TSX PROCES,4 CALLER WAS SYMONE. (B). F2C03950 04674 -0534 00 4 04200 SYM70 LXD DELTA,4 NO TRANSFERS OUT (TRABITS) F2C03960 04675 -3 00001 4 04701 TXL SYM80,4,1 IF DELTA IS GREATER THAN ONE, THEN F2C03970 04676 -0534 00 1 04202 LXD XR1,1 LOAD INDEX REG FOR MATCHING DOTAG, F2C03980 04677 -0534 00 2 04203 LXD LR1,2 AND LEVEL AND F2C03990 04700 0020 00 0 04703 TRA SYM2 GO TO SECOND LEVEL SEARCH. F2C04000 04701 -0534 00 1 04204 SYM80 LXD NEXTR1,1 DELTA IS ONE, F2C04010 04702 0020 00 0 04647 TRA SYM40 CONTINUE FIRST LEVEL SEARCH. F2C04020 ROUTINE SYMTWO MAKES A SECOND LEVEL SEARCH AMONG THOSE DOS F2C04030 NESTED WITHIN THE DO MATCHING RSYM1. USES PROCESS ROUTINE F2C04040 IF NECESSARY, AND ROUTINE SYM3 IF NECESSARY. F2C04050 04703 -0634 00 2 04707 SYM2 SXD SYM100,2 INITIALIZE LEVEL TEST F2C04060 04704 0020 00 0 04716 TRA SYM120 F2C04070 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 76 BLOCK C. 04705 0500 00 1 45633 SYM90 CLA DOTGZ+5,1 GET LEVEL OF F2C04080 04706 -0734 00 2 00000 PDX 0,2 NEW DOTAG AND F2C04090 04707 -3 00000 2 04647 SYM100 TXL SYM40,2,0 TEST AGAINST LEVEL OF R1 AND F2C04100 BINARY CARD NO. 9F200017 04710 0500 00 1 45627 CLA DOTGZ+1,1 IF IN RANGE OF R1, F2C04110 04711 0340 00 0 04010 CAS $RSYM2 COMP DOTAG SYMBOL AND RSYM2. F2C04120 04712 0020 00 0 04714 TRA SYM110 F2C04130 04713 0020 00 0 04725 TRA SYM150 MATCHES . GO TO TREAT R2. F2C04140 04714 0402 00 0 04011 SYM110 SUB $RSYM3 DOESNT MATCH RSYM2, TRY RSYM3. F2C04150 04715 0100 00 0 04721 TZE SYM140 F2C04160 04716 1 77767 1 04717 SYM120 TXI SYM130,1,-9 GET NEXT DOTAG F2C04170 04717 3 00000 1 04705 SYM130 TXH SYM90,1,0 (DEC IS DOTAG IX) F2C04180 04720 0020 00 0 04647 TRA SYM40 IF END OF DOTAG, EXIT. F2C04190 04721 0500 00 0 04010 SYM140 CLA $RSYM2 DOTAG SYMBOL MATCHES RSYM3, F2C04200 04722 0560 00 0 04011 LDQ $RSYM3 INTERCHANGE F2C04210 04723 0601 00 0 04011 STO $RSYM3 RSYM2 AND F2C04220 04724 -0600 00 0 04010 STQ $RSYM2 RSYM3. F2C04230 04725 -0634 00 1 04205 SYM150 SXD XR2,1 THIS DOTAG IS R2 F2C04240 04726 -0634 00 2 04206 SXD LR2,2 SAVE ITS LEVEL . F2C04250 04727 -0534 00 2 04215 LXD L(1),2 IF DELTA IS F2C04260 04730 -0534 00 4 04200 LXD DELTA,4 TWO OR ONE, THEN F2C04270 04731 -3 00002 4 04733 TXL SYM160,4,2 NO TRAWORD SKIP. F2C04280 04732 -0534 00 2 04216 LXD L(2),2 OTHERWISE TRAWORD SKIP. F2C04290 04733 0074 00 4 05301 SYM160 TSX TRAWRD,4 F2C04300 04734 -0634 00 1 04207 SXD NEXTR2,1 SAVE INDEX LAST DOTAG HANDLED. F2C04310 04735 0100 00 0 04741 TZE SYM170 ARE THERE TRANSFERS OUT (TRABITS). F2C04320 BINARY CARD NO. 9F200018 04736 -0534 00 1 04205 LXD XR2,1 YES. LOAD IX REG FOR MATCHING DOTAG.F2C04330 04737 -0534 00 2 04216 LXD L(2),2 A TWO TELLS PROCESS THAT F2C04340 04740 0074 00 4 04775 TSX PROCES,4 CALLER WAS SYM2. (2). F2C04350 04741 -0534 00 4 04200 SYM170 LXD DELTA,4 NO TRANSFERS OUT (TRABITS). F2C04360 04742 -3 00002 4 04746 TXL SYM180,4,2 IF DELTA IS 3 , THEN F2C04370 04743 -0534 00 1 04205 LXD XR2,1 LOAD INDEX REG FOR MATCHING DOTAG. F2C04380 04744 -0534 00 2 04206 LXD LR2,2 AND LEVEL AND F2C04390 04745 0020 00 0 04750 TRA SYM3 GO TO THRID LEVEL SEARCH. F2C04400 04746 -0534 00 1 04207 SYM180 LXD NEXTR2,1 DELTA IS LESS THAN THREE, F2C04410 04747 0020 00 0 04717 TRA SYM130 CONTINUE SECOND LEVEL SEARCH. F2C04420 ROUTINE SYM3 MAKES A THIRD LEVEL SEARCH OF DOTAG AMONG THOSEF2C04430 DOS NESTED WITHIN THE DO MATCHING RSYM2, USES PROCESS IF F2C04440 NECESSARY, AND THEN RETURNS TO SYM2. F2C04450 04750 -0634 00 2 04754 SYM3 SXD SYM200,2 INITIALIZE WITH LEVEL OF R2. F2C04460 04751 0020 00 0 04760 TRA SYM210 F2C04470 04752 0500 00 1 45633 SYM190 CLA DOTGZ+5,1 GET LEVEL F2C04480 04753 -0734 00 2 00000 PDX 0,2 OF CURRENT DOTAG AND IF IT IS F2C04490 04754 -3 00000 2 04717 SYM200 TXL SYM130,2,0 OUT OF RANGE R2, EXIT. F2C04500 (DEC HAS LEVEL R2) F2C04510 04755 0500 00 1 45627 CLA DOTGZ+1,1 CHECK FOR IDENTITY F2C04520 04756 0402 00 0 04011 SUB $RSYM3 WITH THIRD FORTAG SYMBOL. F2C04530 04757 0100 00 0 04763 TZE SYM230 IF IDENTITY, GO TO ANALYZE. IF NOT, F2C04540 04760 1 77767 1 04761 SYM210 TXI SYM220,1,-9 GET NEXT DOTAG. F2C04550 04761 3 00000 1 04752 SYM220 TXH SYM190,1,0 IF END OF DOTAG (DEC IS DOTAG IX) F2C04560 04762 0020 00 0 04717 TRA SYM130 EXIT FROM THIRD LEVEL SEARCH F2C04570 04763 -0634 00 1 04210 SYM230 SXD XR3,1 SAVE IX OF MATCHING DO F2C04580 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 77 BLOCK C. BINARY CARD NO. 9F200019 04764 -0534 00 2 04215 LXD L(1),2 NO TRAWORD SKIP. F2C04590 04765 0074 00 4 05301 TSX TRAWRD,4 GO TO HUNT TRANSFERS-OUT. F2C04600 04766 0100 00 0 04761 TZE SYM220 IF NO TRABITS, RETURN TO SEARCH. F2C04610 04767 -0634 00 1 04211 SXD NEXTR3,1 TRNSFRS OUT. SAVE IX LAST DO F2C04620 HANDLED IN TRAWRD. F2C04630 04770 -0534 00 1 04210 LXD XR3,1 F2C04640 04771 -0534 00 2 04217 LXD L(3),2 3 TELLS PROCESS THAT SYM3 CALLED. F2C04650 04772 0074 00 4 04775 TSX PROCES,4 F2C04660 04773 -0534 00 1 04211 LXD NEXTR3,1 GET IX NEXT DOTAG AND F2C04670 04774 0020 00 0 04761 TRA SYM220 CONTINUE THIRD LEVEL SEARCH. F2C04680 ROUTINE PROCESS DETERMINES WHETHER OR NOT THERE EXISTS A F2C04690 TAG IDENTICAL TO THE CURRENT RELCON TAG AND WHETHER ITS F2C04700 TAG NAME HAS BEEN CHANGED. THE SEARCH FOR THIS IDENTICAL TAG F2C04710 IS MADE THRU APPROPRIATE RANGES OF THAT DO WHOSE SYMBOL HAS F2C04720 BEEN FOUND TO MATCH ONE OF THE RELCON SYMBOLS. TRASTO ENTRIESF2C04730 ARE ENTERED DEPENDING UPON WHICH OF THOSE CONDITIONS HOLDS. F2C04740 04775 -0634 00 1 05021 PROCES SXD DOX,1 SAVE DOTAG IX F2C04750 04776 -0634 00 4 05024 SXD SYMLNK,4 AND CALLER F2C04760 04777 -0634 00 2 05002 SXD PR10,2 AND INITIALIZE WITH B. F2C04770 05000 -0534 00 2 04200 LXD DELTA,2 F2C04780 05001 -0534 00 4 04214 LXD L(0),4 F2C04790 05002 3 00000 2 05004 PR10 TXH PR20,2,0 DOES DELTA EXCEED B. (DEC IS B) F2C04800 05003 -0534 00 4 04215 LXD L(1),4 IF NOT, THEN NO SKIP. OTHERWISE, F2C04810 05004 -0634 00 4 04212 PR20 SXD SKIP,4 SKIP IF C(SKIP)=0. F2C04820 05005 -0534 00 4 04177 LXD TAGIND,4 TRA IF SPECIAL CASE( MOST SIMPLE). F2C04830 05006 3 00000 4 05056 TXH PRSPEC,4,0 (TAGIND NOT ZERO) F2C04840 05007 0500 00 1 45626 CLA DOTGZ,1 SEARCH NAME TABLE F2C04850 05010 -0320 00 0 04001 ANA DECMSK GET RSYM1 DOTAG ALPHA IN DEC F2C04860 05011 0400 00 0 04026 ADD $TAG AND FORTAG IN ADDRESS. F2C04870 BINARY CARD NO. 9F200020 05012 -0534 00 1 04226 GETNM LXD NAMAX,1 LOAD MAX NO. TABLE WORDS F2C04880 05013 0020 00 0 05020 TRA GETN3 F2C04890 05014 0340 00 1 22235 GETN1 CAS NAMZ,1 DO THE DOTAG ALPHA AND FORTAG F2C04900 05015 0020 00 0 05017 TRA GETN2 INDEX OF FIRST NAME ENTRY MATCH. F2C04910 05016 0020 00 0 05022 TRA GETN4 YES F2C04920 05017 1 77775 1 05020 GETN2 TXI GETN3,1,-3 NO, GET NEXT NAME TABLE. F2C04930 05020 3 00000 1 05014 GETN3 TXH GETN1,1,0 IS NAME EXHAUSTED (DEC HAS IX) F2C04940 05021 -3 00000 0 05025 DOX TXL PR25,,0 YES, NOT FOUND (DEC HAS IX F2C04950 MATCHING DOTAG). F2C04960 05022 0500 00 1 22236 GETN4 CLA NAMZ+1,1 FOUND. GET NEW TAG NAME F2C04970 05023 0601 00 0 04176 STO TS AND SAVE IT. F2C04980 05024 -3 00000 0 05052 SYMLNK TXL PR80,,0 F2C04990 05025 -0534 00 4 04212 PR25 LXD SKIP,4 NOT FOUND IN NAME TABLE, F2C05000 05026 -0534 00 1 05021 LXD DOX,1 SEARCH FORTAG F2C05010 05027 3 00000 4 05034 TXH PR30,4,0 IN PROPER RANGE. F2C05020 05030 -0534 00 2 04215 LXD L(1),2 INDICATE TINFOR SEARCH REQUIRED F2C05030 05031 0074 00 4 05137 TSX SP000,4 F2C05040 05032 0020 00 0 05036 TRA PR40 NOT FOUND F2C05050 05033 0020 00 0 05054 TRA PR90 T FOUND F2C05060 05034 0074 00 4 05251 PR30 TSX TINFR,4 F2C05070 05035 0020 00 0 05054 TRA PR90 FOUND, GO TO EXIT. F2C05080 05036 -0534 00 2 04214 PR40 LXD L(0),2 T NOT FOUND, MAKE TYPE 6 F2C05090 05037 0074 00 4 05075 TSX TRAENT,4 TRASTO ENTRY F2C05100 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 78 BLOCK C. MAKE ENTRY IN TABLE IRV F2C05110 BINARY CARD NO. 9F200021 05040 -0534 00 1 04213 PR60 LXD IRVXX,1 GET IX FOR ENTRY IN TABLE IRV. F2C05120 05041 3 00000 1 05043 TXH PR70,1,0 F2C05130 05042 0074 00 4 03763 TSX ERROR9,4 IRV TABLE IS FULL. F2C05140 05043 0500 00 0 04026 PR70 CLA $TAG PLACE TAG IN F2C05150 05044 0767 00 0 00022 ALS 18 DECREMENT AND F2C05160 05045 0400 00 0 04026 ADD $TAG ADDRESS AND F2C05170 05046 0601 00 1 67512 STO IRVZ,1 STORE ENTRY IN TABLE IRV F2C05180 05047 1 77777 1 05050 TXI PR75,1,-1 BUMP IRV TABLE INDEX AND F2C05190 05050 -0634 00 1 04213 PR75 SXD IRVXX,1 SAVE IT FOR NEXT ENTRY. F2C05200 05051 0020 00 0 05054 TRA PR90 F2C05210 05052 -0534 00 2 04215 PR80 LXD L(1),2 MAKE TYPE ONE TRASTO ENTRY F2C05220 05053 0074 00 4 05075 TSX TRAENT,4 F2C05230 05054 -0534 00 4 05024 PR90 LXD SYMLNK,4 RESTORE INDEX REG F2C05240 05055 0020 00 4 00001 TRA 1,4 AND RETURN TO CALLER F2C05250 ROUTINE PERSPEC IS FOR THE SPECIAL CASE OF A SINGLE SUBSCRIPTF2C05260 RELCON WITH NO COEFFICIENT (TAGIND EQUALS ONE) F2C05270 05056 0500 00 1 45636 PRSPEC CLA DOTGZ+8,1 IF DOTAGS F2C05280 05057 0771 00 0 00022 ARS 18 TEST NAME F2C05290 05060 0402 00 0 04026 SUB $TAG IS SAME AS F2C05300 05061 -0100 00 0 05070 TNZ PR100 CURRENT FORTAG F2C05310 05062 0500 00 0 04224 CLA BIT18 AND IF F2C05320 05063 -0320 00 1 45634 ANA DOTGZ+6,1 THERE IS A F2C05330 05064 0100 00 0 05054 TZE PR90 F2C05340 05065 -0534 00 2 04217 LXD L(3),2 MAKE A TYPE 5 TRASTO ENTRY F2C05350 BINARY CARD NO. 9F200022 05066 0074 00 4 05075 TSX TRAENT,4 F2C05360 05067 0020 00 0 05054 TRA PR90 F2C05370 05070 0074 00 4 05251 PR100 TSX TINFR,4 LOOK FOR PREV. PROC. 4 TAG. F2C05380 05071 0020 00 0 05054 TRA PR90 FOUND. F2C05390 05072 -0534 00 2 04216 LXD L(2),2 NOT FOUND, MAKE A TYPE 1 TRASTO F2C05400 05073 0074 00 4 05075 TSX TRAENT,4 ENTRY F2C05410 05074 0020 00 0 05054 TRA PR90 F2C05420 MAKE A TRASTO ENTRY. TRASTO TYPE ONE ENTRY IS MADE WHEN F2C05430 B IS ONE OR TWO, TYPE FIVE ENTRY WHEN B IS THREE, AND TYPE F2C05440 SIX TRASTO ENTRY WHEN B IS ZERO. F2C05450 05075 -0634 00 4 05133 TRAENT SXD TE70,4 F2C05460 05076 -0534 00 1 05021 LXD DOX,1 F2C05470 05077 0500 00 1 45626 CLA DOTGZ,1 GET ALPHA AND BETA F2C05480 05100 -3 00002 2 05102 TXL TE10,2,2 WHERE B IS 3 (TYPE5) F2C05490 05101 -0760 00 0 00003 SSM SET E1 NEG. F2C05500 05102 0601 00 0 04153 TE10 STO $E1 AND STORE IN E1. F2C05510 05103 0500 00 0 04201 CLA TL2 GET LEVEL OF DOTAG F2C05520 05104 0771 00 0 00022 ARS 18 INTO ADDRESS AND F2C05530 05105 3 00000 2 05107 TXH TE20,2,0 WHERE B ZERO (TYPE 6), F2C05540 05106 -0760 00 0 00003 SSM SET NEG AND F2C05550 05107 0601 00 0 04154 TE20 STO $E2 PUT IT INTO E2. F2C05560 05110 -3 00000 2 05123 TXL TE40,2,0 IS B=0 (TYPE 6). F2C05570 05111 -3 00001 2 05120 TXL TE30,2,1 IS B=1 (TYPE 1). F2C05580 05112 0500 00 1 45636 CLA DOTGZ+8,1 B=2 OR 3(TYPE 1 OR 5).PREPARE F2C05590 05113 -0320 00 0 04001 ANA DECMSK DOTAG TEST NAME. F2C05600 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 79 BLOCK C. BINARY CARD NO. 9F200023 05114 -3 00002 2 05124 TXL TE50,2,2 IS B=2 (SPECIAL TYPE 1). F2C05610 05115 -0501 00 1 45630 ORA DOTGZ+2,1 B=3.PREPARE DOTAG PARAMETER. F2C05620 05116 -0760 00 0 00003 SSM N1 AND MAKE NEGATIVE. F2C05630 05117 0020 00 0 05125 TRA TE60 F2C05640 05120 0534 00 4 04176 TE30 LXA TS,4 B=1. PUT NEW TAG NAME F2C05650 05121 -0754 00 4 00000 PXD 0,4 IN DECREMENT. F2C05660 05122 0020 00 0 05124 TRA TE50 F2C05670 05123 0500 00 0 04223 TE40 CLA L(MZ) B=0. MAKE DEC MINUS ZERO. F2C05680 05124 -0501 00 0 04026 TE50 ORA $TAG PUT FORTAG IN ADDRESS. F2C05690 05125 0601 00 0 04155 TE60 STO $E3 STORE IN E3. F2C05700 05126 -0500 00 0 04160 CAL TRASTO GET TRASTO KEY WORD. F2C05710 05127 -0534 00 2 04216 LXD L(2),2 INDICATE TINFOR SEARCH NOT REQUIRED F2C05720 05130 -0534 00 4 04212 LXD SKIP,4 F2C05730 05131 3 00000 4 05134 TXH TE80,4,0 IF SKIP IS 1 (DELTA GREATER THEN B)F2C05740 05132 0074 00 4 05137 TSX SP000,4 GO TO SP. F2C05750 05133 -3 00000 0 05135 TE70 TXL TE90,,0 (DEC SAVES TSX LINK) F2C05760 05134 0074 00 4 04124 TE80 TSX $LIST,4 GO TO LIST IF SKIP IS ZERO. F2C05770 05135 -0534 00 4 05133 TE90 LXD TE70,4 RETURN FROM LIST. F2C05780 05136 0020 00 4 00001 TRA 1,4 RETURN TO CALLER. F2C05790 SUBROUTINE SP000 (IDENTICAL TO SPC000 IN BLOCK 2, F2C05800 EXCEPT FOR TABLE DEFINITIONS). F2C05810 05137 -0634 00 1 05231 SP000 SXD SP115,1 F2C05820 05140 -0634 00 2 05204 SXD SP060,2 F2C05830 05141 -0634 00 4 05221 SXD SP105,4 F2C05840 BINARY CARD NO. 9F200024 05142 0601 00 0 05250 STO SPKEY F2C05850 05143 0500 00 1 45633 CLA DOTGZ+5,1 F2C05860 05144 0622 00 0 05161 STD SP050 F2C05870 05145 0500 00 1 45626 CLA DOTGZ,1 F2C05880 05146 0734 00 2 00000 PAX 0,2 F2C05890 05147 -0320 00 0 04001 ANA DECMSK F2C05900 05150 0601 00 0 04024 STO $NEXTA F2C05910 05151 0601 00 0 04022 STO $A F2C05920 05152 -0754 00 2 00000 PXD 0,2 F2C05930 05153 0601 00 0 04025 STO $LASTB F2C05940 05154 -0534 00 1 05231 SP010 LXD SP115,1 F2C05950 05155 1 77767 1 05156 SP020 TXI SP040,1,-9 F2C05960 05156 -3 00000 1 05222 SP040 TXL SP110,1,0 F2C05970 05157 0500 00 1 45633 CLA DOTGZ+5,1 F2C05980 05160 -0734 00 2 00000 PDX 0,2 F2C05990 05161 -3 00000 2 05222 SP050 TXL SP110,2,0 F2C06000 05162 0500 00 1 45627 CLA DOTGZ+1,1 F2C06010 05163 0402 00 0 04007 SUB $RSYM1 F2C06020 05164 0100 00 0 05170 TZE SP053 F2C06030 05165 0500 00 1 45627 CLA DOTGZ+1,1 F2C06040 05166 0402 00 0 04010 SUB $RSYM2 F2C06050 05167 -0100 00 0 05155 TNZ SP020 F2C06060 BINARY CARD NO. 9F200025 05170 0500 00 1 45626 SP053 CLA DOTGZ,1 F2C06070 05171 0734 00 2 00000 PAX 0,2 F2C06080 05172 -0320 00 0 04001 ANA DECMSK F2C06090 05173 0601 00 0 04023 STO $B F2C06100 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 80 BLOCK C. 05174 -0754 00 2 00000 PXD 0,2 F2C06110 05175 0601 00 0 04024 STO $NEXTA F2C06120 05176 -0634 00 1 05231 SXD SP115,1 F2C06130 05177 -0534 00 2 05204 SP055 LXD SP060,2 F2C06140 05200 0500 00 0 04022 SP058 CLA $A F2C06150 05201 0402 00 0 04023 SUB $B F2C06160 05202 0100 00 0 05205 TZE SP065 F2C06170 05203 -3 00001 2 05236 TXL SPTIN,2,1 F2C06180 05204 -3 00000 0 05241 SP060 TXL SPSTO,,0 F2C06190 05205 -0534 00 2 05204 SP065 LXD SP060,2 F2C06200 05206 -3 00000 2 05232 TXL SP120,2,0 F2C06210 05207 -0534 00 1 05231 SP070 LXD SP115,1 F2C06220 05210 0500 00 1 45633 CLA DOTGZ+5,1 F2C06230 05211 0622 00 0 05216 STD SP100 F2C06240 05212 1 77767 1 05213 SP080 TXI SP090,1,-9 F2C06250 05213 -3 00000 1 05222 SP090 TXL SP110,1,0 F2C06260 05214 0500 00 1 45633 CLA DOTGZ+5,1 F2C06270 05215 -0734 00 2 00000 PDX 0,2 F2C06280 BINARY CARD NO. 9F200026 05216 3 00000 2 05212 SP100 TXH SP080,2,0 F2C06290 05217 0500 00 0 04024 CLA $NEXTA F2C06300 05220 0601 00 0 04022 STO $A F2C06310 05221 -3 00000 0 05161 SP105 TXL SP050,,0 F2C06320 05222 0500 00 0 04024 SP110 CLA $NEXTA F2C06330 05223 0601 00 0 04022 STO $A F2C06340 05224 0500 00 0 04025 CLA $LASTB F2C06350 05225 0601 00 0 04023 STO $B F2C06360 05226 -0534 00 2 05204 LXD SP060,2 F2C06370 05227 0500 00 0 04214 CLA L(0) F2C06380 05230 0622 00 0 05204 STD SP060 F2C06390 05231 -3 00000 0 05200 SP115 TXL SP058,,0 STORAGE FOR TABLE KEY. F2C06400 05232 -0534 00 4 05221 SP120 LXD SP105,4 F2C06410 05233 0020 00 4 00001 TRA 1,4 F2C06420 05234 -0534 00 4 05221 SP130 LXD SP105,4 F2C06430 05235 0020 00 4 00002 TRA 2,4 F2C06440 05236 0074 00 4 05257 SPTIN TSX TINFX,4 F2C06450 05237 0020 00 0 05234 TRA SP130 F2C06460 05240 0020 00 0 05205 TRA SP065 F2C06470 05241 0500 00 0 04023 SPSTO CLA $B F2C06480 05242 0771 00 0 00022 ARS 18 F2C06490 05243 0400 00 0 04022 ADD $A F2C06500 BINARY CARD NO. 9F200027 05244 0601 00 0 04153 STO $E1 F2C06510 05245 0500 00 0 05250 CLA SPKEY F2C06520 05246 0074 00 4 04124 TSX $LIST,4 F2C06530 05247 0020 00 0 05205 TRA SP065 F2C06540 05250 0 00000 0 00000 SPKEY PZE F2C06550 SUBROUTINES TINFR AND TINFX (IDENTICAL TO TINFOR AND F2C06560 TINFXX IN BLOCK 2, EXCEPT FOR TABLE DEFINITIONS). F2C06570 05251 0500 00 1 45626 TINFR CLA DOTGZ,1 F2C06580 05252 0734 00 1 00000 PAX 0,1 F2C06590 05253 -0320 00 0 04001 ANA DECMSK F2C06600 05254 0601 00 0 04022 STO $A F2C06610 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 81 BLOCK C. 05255 -0754 00 1 00000 PXD 0,1 F2C06620 05256 0601 00 0 04023 STO $B F2C06630 05257 -0534 00 1 03774 TINFX LXD MAXFTG,1 F2C06640 05260 0500 00 1 34440 TINF1 CLA FORTZ,1 F2C06650 05261 -0320 00 0 04001 ANA DECMSK F2C06660 05262 0340 00 0 04022 CAS $A F2C06670 05263 0020 00 0 05270 TRA TINF4 F2C06680 05264 0761 00 0 00000 NOP F2C06690 05265 1 77777 1 05266 TINF2 TXI TINF3,1,-1 F2C06700 05266 3 00000 1 05260 TINF3 TXH TINF1,1,0 F2C06710 05267 0020 00 4 00002 TRA 2,4 F2C06720 05270 0340 00 0 04023 TINF4 CAS $B F2C06730 05271 0020 00 4 00002 TRA 2,4 F2C06740 BINARY CARD NO. 9F200028 05272 0761 00 0 00000 NOP F2C06750 05273 0500 00 1 34440 CLA FORTZ,1 F2C06760 05274 0120 00 0 05265 TPL TINF2 F2C06770 05275 -0320 00 0 04000 ANA ADDMSK F2C06780 05276 0402 00 0 04026 SUB $TAG F2C06790 05277 -0100 00 0 05265 TNZ TINF2 F2C06800 05300 0020 00 4 00001 TRA 1,4 F2C06810 SUBROUTINE TRAWRD F2C06820 05301 -0634 00 4 05333 TRAWRD SXD TRAW65,4 F2C06830 05302 0500 00 0 04214 CLA L(0) F2C06840 05303 0601 00 0 04027 STO TRABIT INITIALIZE. F2C06850 05304 0500 00 1 45633 CLA DOTGZ+5,1 LEVEL OF DOTAG F2C06860 05305 0622 00 0 05314 STD TRAW30 F2C06870 05306 -0500 00 1 45635 TRAW10 CAL DOTGZ+7,1 GET T2 WORD. F2C06880 05307 -0602 00 0 04027 ORS TRABIT OR INTO TRABIT F2C06890 05310 1 77767 1 05311 TXI TRAW20,1,-9 TAKE NEXT DO F2C06900 05311 -3 00000 1 05334 TRAW20 TXL TRAW70,1,0 IF NONE, EXIT (DEC IS DOTAG IX) F2C06910 05312 0500 00 1 45633 CLA DOTGZ+5,1 GET L WORD. F2C06920 05313 -0734 00 4 00000 PDX 0,4 PUT L IN XRC. F2C06930 05314 -3 00000 4 05334 TRAW30 TXL TRAW70,4,0 EXIT IF DO IS NOT IN RANGE R1. F2C06940 (DEC HAS LEVEL DO). F2C06950 05315 -3 00001 2 05306 TXL TRAW10,2,1 IF COMPLETE TEST, NO TRWRD SKIP. F2C06960 05316 0500 00 1 45627 TRAW35 CLA DOTGZ+1,1 IF INCOMPLETE TEST, IS THIS A F2C06970 05317 0402 00 0 04010 SUB $RSYM2 DO TO BE SKIPPED. F2C06980 BINARY CARD NO. 9F200029 05320 0100 00 0 05324 TZE TRAW38 IF SO, GO TO TRAW38 F2C06990 05321 0500 00 1 45627 CLA DOTGZ+1,1 TEST RSYM3. F2C07000 05322 0402 00 0 04011 SUB $RSYM3 IF NO SKIP F2C07010 05323 -0100 00 0 05306 TNZ TRAW10 GO BACK. F2C07020 05324 0500 00 1 45633 TRAW38 CLA DOTGZ+5,1 THIS DO IS TO BE SKIPPED. F2C07030 05325 0622 00 0 05332 STD TRAW60 PUT LEVEL OF THIS DO IN TEST INSTR. F2C07040 05326 1 77767 1 05327 TRAW40 TXI TRAW50,1,-9 TAKE NEXT DO IF ANY F2C07050 05327 -3 00000 1 05334 TRAW50 TXL TRAW70,1,0 IF NOT, EXIT. IF SO,(DEC IS DO IX) F2C07060 05330 0500 00 1 45633 CLA DOTGZ+5,1 GET L WORD F2C07070 05331 -0734 00 4 00000 PDX 0,4 PUT L IN XRC F2C07080 05332 3 00000 4 05326 TRAW60 TXH TRAW40,4,0 IF DO IS IN RANGE R2, GO BACK. F2C07090 05333 -3 00000 0 05314 TRAW65 TXL TRAW30,,0 OTHERWISE, GO TO TRAW30. F2C07100 05334 -0534 00 4 05333 TRAW70 LXD TRAW65,4 F2C07110 05335 0500 00 0 04221 CLA L(36) OBTAIN 36 IN DECREMENT F2C07120 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 82 BLOCK C. 05336 0402 00 0 04201 SUB TL2 36-TL2 (LEVEL OF DOTAG) F2C07130 05337 0771 00 0 00022 ARS 18 IN ADDRESS F2C07140 05340 0621 00 0 05347 STA TRAW90 INITIALIZE SHIFT F2C07150 05341 0500 00 0 04201 CLA TL2 OBTAIN TL2 F2C07160 05342 0771 00 0 00022 ARS 18 IN ADDRESS F2C07170 05343 0621 00 0 05346 STA TRAW80 INITIALIZE SHIFT F2C07180 05344 0500 00 0 04214 CLA L(0) ACC CONTAINS ZERO F2C07190 05345 0560 00 0 04006 LDQ 35ONES MQ CONTAINS ALL ONES F2C07200 BINARY CARD NO. 9F200030 05346 0763 00 0 00000 TRAW80 LLS ** PUT TL2 ONES IN AC (LEV DOTAG) F2C07210 05347 0767 00 0 00000 TRAW90 ALS ** POSITION ONES IN AC. F2C07220 05350 -0320 00 0 04027 ANA TRABIT AND IN TRANSFER BITS F2C07230 05351 0020 00 4 00001 TRA 1,4 GO BACK TO CALLING INSTR PLUS ONE. F2C07240 SET UP TSXCOM F2C07250 05352 0500 00 0 04166 RDTSX CLA $LADDS+2 COMPUTE NR WDS IN TSXCOM. F2C07260 05353 0402 00 0 04233 SUB TCOMAD TABLE AND F2C07270 05354 0767 00 0 00022 ALS 18 F2C07280 05355 0601 00 0 67512 STO TSCMWC STORE WORD COUNT. F2C07290 05356 0100 00 0 05443 TZE IRVSRT IF IT IS EMPTY, EXIT. F2C07300 05357 -0760 00 0 00003 SSM IF NOT EMPTY, F2C07310 05360 0400 00 0 04230 ADD TCOMAX COMPUTE NR OF UNFILLED TSXCOM F2C07320 05361 0601 00 0 73041 STO TCOMWC SPACES AND SAVE IT AS AN IX VALUE, F2C07330 AND GO TO SORT TSXCOM. F2C07340 SORT TSXCOM F2C07350 05362 -0760 00 0 00144 SORT MSE LIGHT TURN OFF LIGHT F2C07360 05363 0761 00 0 00000 NOP F2C07370 05364 -0534 00 1 73041 LXD TCOMWC,1 INITIALIZE F2C07380 05365 1 00002 1 05366 TXI SORT10,1,2 F2C07390 05366 3 03324 1 05424 SORT10 TXH MAKIRV,1,1000*M/N*2-2 F2C07400 05367 -0634 00 1 05415 SXD SORT80,1 INITIALIZE F2C07410 05370 -0534 00 1 04230 SORT20 LXD TCOMAX,1 F2C07420 05371 0500 00 1 73041 SORT30 CLA TCOMZ,1 GET 1ST WD, 1ST ENTRY TSXCOM(ALPHA).F2C07430 05372 0340 00 1 73043 CAS TCOMZ+2,1 COMPARE IT AGAINST SECOND ENTRY. F2C07440 05373 0020 00 0 05403 TRA SORT50 OUT OF ORDER, REARRANGE ENTRY. F2C07450 BINARY CARD NO. 9F200031 05374 0020 00 0 05376 TRA SORT40 IN ORDER BY 1ST WDS, CHECK 2ND WDS. F2C07460 05375 0020 00 0 05414 TRA SORT70 ENTRIES IN ORDER, IGNORE. F2C07470 05376 0500 00 1 73042 SORT40 CLA TCOMZ+1,1 ALRIGHT- FIRST WORDS IN ORDER BUT F2C07480 05377 0340 00 1 73044 CAS TCOMZ+3,1 HOW DO THEIR 2ND WORDS COMPARE. F2C07490 05400 0020 00 0 05407 TRA SORT60 IF OUT OF ORDER, GO TO REARRANGE. F2C07500 05401 0020 00 0 05414 TRA SORT70 IF EQUAL OR F2C07510 05402 0020 00 0 05414 TRA SORT70 IF IN ORDER, IGNORE. F2C07520 05403 0500 00 1 73041 SORT50 CLA TCOMZ,1 1ST ENTRY GREATER, OUT OF ORDER. F2C07530 05404 0560 00 1 73043 LDQ TCOMZ+2,1 INTERCHANGE THE FIRST WORDS F2C07540 05405 0601 00 1 73043 STO TCOMZ+2,1 OF THE F2C07550 05406 -0600 00 1 73041 STQ TCOMZ,1 TWO ENTRIES. F2C07560 05407 0500 00 1 73042 SORT60 CLA TCOMZ+1,1 INTERCHANGE F2C07570 05410 0560 00 1 73044 LDQ TCOMZ+3,1 THE F2C07580 05411 0601 00 1 73044 STO TCOMZ+3,1 SECOND WORDS F2C07590 05412 -0600 00 1 73042 STQ TCOMZ+1,1 OF THE ENTRIES. F2C07600 05413 0760 00 0 00144 PSE LIGHT INDICATE ENTRY OUT OF ORDER. F2C07610 05414 1 77776 1 05415 SORT70 TXI SORT80,1,-2 BUMP FOR NEXT COMPARISON F2C07620 05415 3 00000 1 05371 SORT80 TXH SORT30,1,0 IS PASS COMPLETE. F2C07630 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 83 BLOCK C. (DEC HAS UNUSED TSXCOM BUFF+3). F2C07640 05416 -0760 00 0 00144 MSE LIGHT YES, WAS AN ENTRY OUT OF ORDER. F2C07650 05417 0020 00 0 05424 TRA REMOVE NO. GO TO MAKIRV. F2C07660 05420 -0534 00 1 05415 LXD SORT80,1 YES. NUMBER OF COMPARISONS F2C07670 05421 1 00002 1 05422 TXI SORT90,1,2 MADE IS DECREASED BY ONE F2C07680 BINARY CARD NO. 9F200032 05422 -0634 00 1 05415 SORT90 SXD SORT80,1 ON EACH PASS. F2C07690 05423 0020 00 0 05370 TRA SORT20 F2C07700 BUILD UP TABLE IRV FROM TSXCOM F2C07710 05424 -0534 00 2 04213 MAKIRV LXD IRVXX,2 (IX VALUE FOR NEXT IRV ENTRY) F2C07720 05425 -0534 00 1 73041 LXD TCOMWC,1 F2C07730 05426 -0634 00 1 05441 SXD MAK50,1 F2C07740 05427 -0534 00 1 04230 LXD TCOMAX,1 F2C07750 05430 -0500 00 1 73042 MAK10 CAL TCOMZ+1,1 GET SECOND WORD OF TSXCOM. F2C07760 05431 -0320 00 0 04225 ANA PREMSK PULL OUT PREFIX. F2C07770 05432 -0100 00 0 05440 TNZ MAK40 IS ANYTHING THERE. F2C07780 05433 0500 00 1 73042 CLA TCOMZ+1,1 F2C07790 05434 3 00000 2 05436 TXH MAK20,2,0 F2C07800 05435 0074 00 4 03763 TSX ERROR9,4 IRV TABLE IS FULL. F2C07810 05436 0601 00 2 67512 MAK20 STO IRVZ,2 STORE IRV. F2C07820 05437 1 77777 2 05440 TXI MAK40,2,-1 F2C07830 05440 1 77776 1 05441 MAK40 TXI MAK50,1,-2 F2C07840 05441 3 00000 1 05430 MAK50 TXH MAK10,1,0 IS TSXCOM ENDED. (DEC IS UNUSED IX) F2C07850 05442 -0634 00 2 04213 MAK60 SXD IRVXX,2 YES. SAVE INDICATION OF SIZE OF IRV.F2C07860 SORT TABLE IRV. F2C07870 05443 -0534 00 1 04213 IRVSRT LXD IRVXX,1 F2C07880 05444 1 00001 1 05445 TXI IRVS10,1,1 F2C07890 05445 3 01014 1 05510 IRVS10 TXH END,1,600*M/N-1 IS THERE ONLY ONE ENTRY IN IRV. F2C07900 05446 -0634 00 1 05457 SXD IRVS50,1 F2C07910 05447 -0760 00 0 00144 MSE LIGHT TURN OFF LITE. F2C07920 BINARY CARD NO. 9F200033 05450 0761 00 0 00000 NOP F2C07930 05451 -0534 00 1 04227 IRVS20 LXD IRVMAX,1 INITIALIZE F2C07940 05452 0500 00 1 67512 IRVS30 CLA IRVZ,1 GET FIRST IRV ENTRY AND F2C07950 05453 0340 00 1 67513 CAS IRVZ+1,1 COMPARE AGAINST ITS NEIGHBOR. F2C07960 05454 0020 00 0 05463 TRA IRVS60 OUT OF ORDER. GO TO REARRANGE. F2C07970 05455 0761 00 0 00000 NOP F2C07980 05456 1 77777 1 05457 IRVS40 TXI IRVS50,1,-1 BUMP FOR NEXT COMPARISON F2C07990 05457 3 00000 1 05452 IRVS50 TXH IRVS30,1,0 IS PASS COMPLETE (DEC IS IRV IX) F2C08000 05460 -0760 00 0 00144 MSE LIGHT YES . WAS OUT OF ORDER NABBED. F2C08010 05461 0020 00 0 05470 TRA DELETE NO. SORT COMPLETE. F2C08020 05462 0020 00 0 05451 TRA IRVS20 YES. MAKE ANOTHER PASS. F2C08030 05463 0560 00 1 67513 IRVS60 LDQ IRVZ+1,1 REARRANGE F2C08040 05464 0601 00 1 67513 STO IRVZ+1,1 THE OUT OF ORDER F2C08050 05465 -0600 00 1 67512 STQ IRVZ,1 IRV ENTRIES AND F2C08060 05466 0760 00 0 00144 PSE LIGHT INDICATE SAME. F2C08070 05467 0020 00 0 05456 TRA IRVS40 F2C08080 DELETE DUPE ENTRIES FROM TABLE IRV F2C08090 05470 -0534 00 1 04213 DELETE LXD IRVXX,1 F2C08100 05471 -0634 00 1 05502 SXD DEL30,1 INITIALIZE F2C08110 05472 -0534 00 3 04227 LXD IRVMAX,3 INIT STANDARD AND CANDIDATE XRS. F2C08120 05473 2 00001 2 05474 TIX DEL10,2,1 BUMP CANDIDATE IR. F2C08130 05474 0500 00 2 67512 DEL10 CLA IRVZ,2 GET CANDIDATE. F2C08140 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 84 BLOCK C. 05475 0340 00 1 67512 CAS IRVZ,1 COMPARE AGAINST STANDARD. F2C08150 BINARY CARD NO. 9F200034 05476 0020 00 0 05506 TRA DEL40 CANDIDATE DOES NOT MATCH STANDARD. F2C08160 05477 0020 00 0 05501 TRA DEL20 CAND. MATCHES STANDARD. F2C08170 05500 0074 00 4 03746 TSX ERRORM,4 IRV ENTRIES ARE OUT OF ORDER F2C08180 OR MACHINE HAS FAILED IF XR2 F2C08190 IRV IS LESS THAN XR1 IRV. F2C08200 05501 1 77777 2 05502 DEL20 TXI DEL30,2,-1 BUMP FOR NEXT CANDIDATE. F2C08210 05502 3 00000 2 05474 DEL30 TXH DEL10,2,0 IS IT END OF PASS(DEC IS IRV IX) F2C08220 05503 1 77777 1 05504 TXI DEL35,1,-1 YES. BUMP STANDARD IR. F2C08230 05504 -0634 00 1 04213 DEL35 SXD IRVXX,1 SAVE NEW IRV SIZE INDEX. F2C08240 05505 0020 00 0 05510 TRA END EXIT. F2C08250 05506 0601 00 1 67513 DEL40 STO IRVZ+1,1 NOT DUPE, PUT CANDIDATE BACK. F2C08260 05507 1 77777 1 05501 TXI DEL20,1,-1 AND INSTALL IT AS STANDARD. F2C08270 05510 0500 00 0 04227 END CLA IRVMAX COMPUTE IRV F2C08280 05511 0402 00 0 04213 SUB IRVXX WD CT AND F2C08290 05512 0601 00 0 66474 STO IRVWC STORE IN WD PRECEDING TABLE (IN DEC)F2C08300 05513 0500 00 0 04165 CLA $LADDS+1 COMPUTE TRASTO F2C08310 05514 0402 00 0 04234 SUB TRSTAD WD CT AND F2C08320 05515 0601 00 0 63424 STO TRSTWC STORE IN WD PRECEDING TABLE (IN ADD)F2C08330 05516 0020 00 0 04470 TRA NORMRT F2C08340 05543 ENDB SYN *+20 F2C08350 00144 LIGHT EQU 100 IF FORVAL EMPTY, LIGHT ON. F2C08360 05424 REMOVE SYN MAKIRV F2C08370 BINARY CARD NO. TRA77777 77777 TCD -1 $F2C08375 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 85 BLOCK D. * SECTION TWO OF 709/7090 32K FORTRAN, BLOCK D. F2D00000 HEAD 4 F2D00010 00102 ORG SYSCUR $F2D00020 BINARY CARD NO. 9F210000 00102 112602010000 BCI 1,9F2100 $F2D00030 73666 ORG (LODR) $F2D00040 BINARY CARD NO. 9F210001 73666 1 00322 0 04212 TXI START,,210 F2D00060 00007 M SYN 1$M M/N IS THE RATIO OF TABLE SIZES F2D00080 00010 N SYN 1$N TO NORMAL 32K SIZES. F2D00090 BLOCK 4 F2D00100 THIS PART COMPILES THE SUBROUTINES WHICH COMPUTE F2D00110 INDEX LOAD VALUES FOR PURE RELCONS. F2D00120 THE LOAD VALUE FOR SUBSCRIPTS (C1I,C2J,C3K) IS F2D00130 (C1I-1)+(C2D1J-D1)+(C3D1D2K-D1D2)+1 F2D00140 TABLE IRV, PRODUCED BY BLOCK 3, GIVES A LIST OF THE F2D00150 SUBROUTINES REQUIRED. F2D00160 HEAD 0 F2D00170 60075 FIXCN SYN 1$FIXCN F2D00180 60074 FIXWC SYN FIXCN-1 F2D00190 SUBROUTINES AND CELLS COMMON TO F2D00200 BLOCKS FOUR AND FIVE. F2D00210 04004 ORG BITTWO+1 F2D00220 BINARY CARD NO. 9F210002 04004 +000001000000 L1DEC OCT 1000000 F2D00230 04005 +000000000003 L(3) OCT 3 F2D00240 04006 +000000000006 L(6) OCT 6 F2D00250 04007 +000000000010 L(8) OCT 10 F2D00260 04010 +020000000000 BCD2 OCT 020000000000 F2D00270 04011 0 00000 0 00000 E2C PZE F2D00280 04012 0 00000 0 00000 E3C PZE F2D00290 04013 0 00000 0 00000 LINKC PZE F2D00300 04014 WRKSC DUP 1,8 EIGHT WRKSC WORDS. F2D00310 04014 0 00000 0 00000 PZE F2D00320 04015 0 00000 0 00000 04016 0 00000 0 00000 04017 0 00000 0 00000 04020 0 00000 0 00000 04021 0 00000 0 00000 04022 0 00000 0 00000 04023 0 00000 0 00000 04024 OR000 DUP 1,12 F2D00330 04024 0 00000 0 00000 PZE F2D00340 04025 0 00000 0 00000 04026 0 00000 0 00000 04027 0 00000 0 00000 04030 0 00000 0 00000 04031 0 00000 0 00000 BINARY CARD NO. 9F210003 04032 0 00000 0 00000 04033 0 00000 0 00000 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 86 BLOCK D. 04034 0 00000 0 00000 04035 0 00000 0 00000 04036 0 00000 0 00000 04037 0 00000 0 00000 04040 +010000000001 OR012 OCT 010000000001 F2D00350 04041 +060000000003 OR013 OCT 060000000003 F2D00360 04042 OR014 DUP 1,4 F2D00370 04042 0 00000 0 00000 PZE F2D00380 04043 0 00000 0 00000 04044 0 00000 0 00000 04045 0 00000 0 00000 04046 0 00000 0 00000 OR018 PZE F2D00390 04047 OR019 DUP 1,7 F2D00400 04047 0 00000 0 00000 PZE F2D00410 04050 0 00000 0 00000 04051 0 00000 0 00000 04052 0 00000 0 00000 04053 0 00000 0 00000 04054 0 00000 0 00000 04055 0 00000 0 00000 04056 +010000000003 OR026 OCT 010000000003 F2D00420 04057 0 00000 0 00000 OR027 PZE F2D00430 BINARY CARD NO. 9F210004 04060 626346000000 L(STO) BCI 1,STO000 F2D00440 04061 234321000000 L(CLA) BCI 1,CLA000 F2D00450 COSE ROUTINE FORMS NAME OF EACH NONTRIVIAL COEFF. IN FIXCON F2D00460 TABLE, AND SETS SENSE LIGHTS ACCORDINGLY. F2D00470 04062 0534 00 1 04006 COSE LXA L(6),1 INDEX TO SELECT SUBSCRIPTS IN TURN. F2D00480 04063 0534 00 2 04005 LXA L(3),2 INITIALISE SENSE LT. SELECTION. F2D00490 04064 -0634 00 4 04013 SXD LINKC,4 F2D00500 04065 0500 00 1 04022 COSE5 CLA WRKSC+6,1 SELECT A S.C. COEFF. F2D00510 04066 0100 00 0 04075 TZE COSE08 TRA IF NO SUBSC. IN THIS DIMENSION. F2D00520 04067 0402 00 0 04004 SUB L1DEC F2D00530 04070 0100 00 0 04075 TZE COSE08 TRA IF COEFF. IS ONE. F2D00540 04071 0760 00 2 00144 PSE 100,2 SET CORRESPONDING SENSE LIGHT. F2D00550 04072 0500 00 1 04022 CLA WRKSC+6,1 ENTER COEFF IN FIXCON IF F2D00560 04073 0074 00 4 04101 TSX FXCON,4 NOT ALREADY THERE. F2D00570 04074 0601 00 2 04040 STO OR000+12,2 STORE NAME OF FIXCON ENTRY. F2D00580 04075 2 00002 1 04076 COSE08 TIX COSE10,1,2 F2D00590 04076 2 00001 2 04065 COSE10 TIX COSE5,2,1 REPEAT FOR ALL SUBSCRIPTS. F2D00600 04077 -0534 00 4 04013 LXD LINKC,4 F2D00610 04100 0020 00 4 00001 TRA 1,4 RETURN F2D00620 *************************************************************F2D00630 FIXCON SEARCHES THE FIXCN TABLE FOR THE PRESENCE OF F2D00640 A DESIRED FIXED POINT CONSTANT. IF THE DESIRED FIXCON F2D00650 IS NOT THERE AN ENTRY IS MADE. A SYMBOL IS F2D00660 FORMED FOR THE CONSTANT AND LEFT IN THE ACCUMULATOR. F2D00670 04101 -0634 00 1 04011 FXCON SXD E2C,1 SAVE INDEX REGISTERS. F2D00680 04102 -0634 00 2 04012 SXD E3C,2 X F2D00690 04103 0534 00 1 60074 LXA FIXWC,1 $F2D00700 04104 0534 00 2 60074 LXA FIXWC,2 $F2D00705 04105 1 60075 2 04106 TXI *+1,2,FIXCN AND COUNTER FOR F2D00710 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 87 BLOCK D. BINARY CARD NO. 9F210005 04106 0634 00 2 04112 SXA FC10,2 SCAN OF FIXCON. F2D00720 04107 0634 00 2 04120 SXA FC13,2 F2D00730 04110 0774 00 2 00001 AXT 1,2 INITIALIZE ENTRY NO. COUNTER. F2D00740 04111 -3 00000 1 04120 TXL FC13,1,0 TEST FOR EMPTY TABLE F2D00750 04112 0340 00 1 00000 FC10 CAS 0,1 ADDRESS INITIALIZED. F2D00760 04113 1 00001 2 04116 TXI FC12,2,1 F2D00770 04114 1 77777 2 04123 TXI FC14,2,-1 ENTRY FOUND. F2D00780 04115 1 00001 2 04116 TXI FC12,2,1 F2D00790 04116 2 00001 1 04112 FC12 TIX FC10,1,1 ENTRY NOT FOUND, CONTINUE SCAN. F2D00800 04117 3 02032 2 04130 TXH FC16,2,LMXFIX HAS TABLE OVERFLOWED F2D00810 04120 0601 00 0 00000 FC13 STO ** F2D00820 04121 0634 00 2 60074 SXA FIXWC,2 UPDATE WORD COUNT. F2D00830 04122 1 77777 2 04123 TXI *+1,2,-1 F2D00840 04123 0754 00 2 00000 FC14 PXA 0,2 FORM FIXCON SYMBOL F2D00850 04124 -0501 00 0 04010 ORA BCD2 IN ACCUMULATOR. F2D00860 04125 -0534 00 1 04011 LXD E2C,1 RESTORE INDEX REGISTERS F2D00870 04126 -0534 00 2 04012 LXD E3C,2 AND F2D00880 04127 0020 00 4 00001 TRA 1,4 RETURN. F2D00890 04130 0074 00 4 03764 FC16 TSX ERRO10,4 FIXCON HAS OVERFLOWED. F2D00900 *************************************************************F2D00910 04131 -0634 00 1 04207 SUBCM SXD TAUREF,1 SAVE CALLERS INDEX F2D00920 04132 -0634 00 4 04210 SXD TAUREF+1,4 REGISTERS 1 AND 4. F2D00930 04133 0534 00 4 04007 LXA L(8),4 F2D00940 BINARY CARD NO. 9F210006 04134 0600 00 4 04024 SUB010 STZ WRKSC+8,4 INITIALIZE WRKSC F2D00950 04135 2 00001 4 04134 TIX SUB010,4,1 TO ZEROES. F2D00960 04136 0765 00 0 00011 LRS 9 ISOLATE TABLE NUMBER F2D00970 04137 0734 00 4 00000 PAX 0,4 (TAU 1,2 OR 3) IN IR4. F2D00980 04140 0760 00 0 00000 CLM F2D00990 04141 0763 00 0 00011 LLS 9 F2D01000 04142 0767 00 0 00001 ALS 1 TWICE ENTRY NO. FOR TAU 1. F2D01010 04143 -3 00001 4 04151 TXL SUB30,4,1 TRA IF TAU1. F2D01020 04144 0767 00 0 00001 ALS 1 4 TIMES ENTRY NO. FOR TAU 2. F2D01030 04145 -3 00002 4 04151 TXL SUB30,4,2 TRA IF TAU2. F2D01040 04146 0601 00 0 04206 STO TAUERS F2D01050 04147 0771 00 0 00001 ARS 1 F2D01060 04150 0400 00 0 04206 ADD TAUERS 6 TIMES ENTRY NO. FOR TAU 3. F2D01070 04151 0737 00 1 00000 SUB30 PAC 0,1 TABLE IX=ENTRY LENGTH X NO. F2D01080 04152 0500 60 4 04212 CLA* TAUREF+3,4 F2D01090 04153 0622 00 0 04014 STD WRKSC C1. F2D01100 04154 -3 00001 4 04163 TXL SUB50,4,1 F2D01110 04155 0767 00 0 00022 ALS 18 F2D01120 04156 0622 00 0 04016 STD WRKSC+2 C2 (FOR TAU2 OR 3). F2D01130 04157 -3 00002 4 04163 TXL SUB50,4,2 TRA IF TAU2. F2D01140 04160 1 77777 1 04161 SUB40 TXI *+1,1,-1 F2D01150 04161 0500 60 4 04212 CLA* TAUREF+3,4 F2D01160 BINARY CARD NO. 9F210007 04162 0622 00 0 04020 STD WRKSC+4 C3. F2D01170 04163 1 77777 1 04164 SUB50 TXI *+1,1,-1 F2D01180 04164 0500 60 4 04212 CLA* TAUREF+3,4 F2D01190 04165 0601 00 0 04015 STO WRKSC+1 S1. F2D01200 04166 -3 00001 4 04203 TXL SUB060,4,1 TAU 1 FINISHED. F2D01210 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 88 BLOCK D. 04167 1 77777 1 04170 TXI *+1,1,-1 F2D01220 04170 0500 60 4 04212 CLA* TAUREF+3,4 F2D01230 04171 0601 00 0 04017 STO WRKSC+3 S2 F2D01240 04172 1 77777 1 04173 TXI *+1,1,-1 F2D01250 04173 0500 60 4 04212 CLA* TAUREF+3,4 F2D01260 04174 0601 00 4 04024 STO WRKSC+8,4 S3 IF TAU 3, D1 IF TAU 2. F2D01270 04175 -3 00002 4 04203 TXL SUB060,4,2 TAU2 FINISHED. F2D01280 04176 1 77777 1 04177 TXI *+1,1,-1 F2D01290 04177 0500 60 4 04212 CLA* TAUREF+3,4 F2D01300 04200 0622 00 0 04022 STD WRKSC+6 D1 FOR TAU 3. F2D01310 04201 0767 00 0 00022 ALS 18 F2D01320 04202 0622 00 0 04023 STD WRKSC+7 D2. F2D01330 04203 -0534 00 1 04207 SUB060 LXD TAUREF,1 RESTORE CALLERS INDEX F2D01340 04204 -0534 00 4 04210 LXD TAUREF+1,4 REGISTERS 1 AND 4. F2D01350 04205 0020 00 4 00001 TRA 1,4 F2D01360 04206 0 00000 0 00000 TAUERS PZE ** F2D01370 04207 0 00000 1 55030 TAUREF PZE TAU3,1,** INDIRECT ADDRESSING F2D01380 BINARY CARD NO. 9F210008 04210 0 00000 1 52454 PZE TAU2,1,** REFERENCES TO F2D01390 04211 0 00000 1 51160 PZE TAU1,1,** TAU TABLES. F2D01400 *************************************************************F2D01410 HEAD 4 F2D01420 00310 A)BSZ EQU 200 SIZE OF CIT OUTPUT BUFFERS. F2D01430 66475 BOB SYN 3$IRV ADDITIONAL F2D01440 66474 BOBWC SYN BOB-1 TABLE F2D01450 60075 FIXCN SYN 1$FIXCN DEFINITIONS. F2D01460 60074 FIXWC SYN FIXCN-1 FOR BLOCK 4. F2D01470 46366 ADTAG SYN DMTGTB F2D01480 46365 ADTGWC SYN ADTAG-1 F2D01490 46055 A)B2 SYN ADTGWC-A)BSZ F2D01500 45545 A)B1 SYN A)B2-A)BSZ F2D01510 *************************************************************F2D01520 04212 0500 00 0 04643 START CLA L(1) SAVE STATUS OF SENSE LIGHT 3. F2D01530 04213 -0760 00 0 00143 SLT 3 F2D01540 04214 0020 00 0 04216 TRA START0 F2D01550 04215 0601 00 0 04635 STO SENSE1 F2D01560 * *** F2D01570 04216 0074 00 4 73606 START0 TSX (TAPE),4 SKIP OVER FIRST F2D01580 04217 0 20000 0 04264 PZE SKLST3,,(SKBP) FILE OF F2D01590 04220 0 00004 0 04655 PZE 5$TAGL,,FTAPE4 TAGTAG TAPE. F2D01600 04221 -0534 00 1 66474 START1 LXD BOBWC,1 F2D01610 04222 -3 00000 1 04247 TXL FIN,1,0 EXIT IF NO ENTRIES IN IRV. F2D01620 04223 0774 00 2 00000 AXT 0,2 F2D01630 04224 0500 00 2 66475 REPETE CLA BOB,2 SELECT TABLE IRV ENTRY. F2D01640 04225 0621 00 0 04621 STA NAME1 PUT SUBCOM NAME IN NAME 1. F2D01650 04226 0771 00 0 00022 ARS 18 PUT TAU REFERENCE F2D01660 04227 0621 00 0 04622 STA TAG1 IN TAG1. F2D01670 04230 -0634 00 2 04634 ENTRY SXD BX,2 F2D01680 04231 -0634 00 1 04633 SXD AX,1 F2D01690 04232 0074 00 4 04131 TSX $SUBCM,4 PICK UP TAU ENTRY. F2D01700 04233 0074 00 4 04266 TSX COMPIL,4 COMPILE SUBROUTINE FRO COMPUTING F2D01710 04234 -0534 00 2 04634 LXD BX,2 LOAD VALUE. F2D01720 04235 -0534 00 1 04633 LXD AX,1 F2D01730 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 89 BLOCK D. BINARY CARD NO. 9F210009 04236 1 77777 2 04237 TXI TEST,2,-1 STEP DOWN COUNT THROUGH TABLE IRV. F2D01740 04237 -2 00001 1 04244 TEST TNX FINISH,1,1 END OF TABLE IRV. F2D01750 04240 0074 00 4 04414 TSX LINKTR,4 COMPILE SUBROUTINE RETURN. F2D01760 04241 0020 00 0 04224 TRA REPETE F2D01770 04242 0074 00 4 04400 EQUAL TSX STOTP,4 F2D01780 04243 0020 00 0 04236 TRA TEST-1 F2D01790 04244 0074 00 4 04414 FINISH TSX LINKTR,4 F2D01800 04245 0074 00 4 04600 TSX CITSP,4 WRITE CIT BUFFER ON TAPE. F2D01810 04246 0020 00 0 04252 TRA FIN1 F2D01820 * *** F2D01830 04247 0074 00 4 73606 FIN TSX (TAPE),4 WRITE FOUR F2D01840 04250 0 40001 0 04262 PZE DSC2,,(WBNP) ZERO WORDS FOR F2D01850 04251 0 00003 0 04263 PZE A)FNL,,FTAPE3 EMPTY DOFILE C. F2D01860 * *** F2D01870 04252 0074 00 4 73606 FIN1 TSX (TAPE),4 WRITE EOF F2D01880 04253 0 40005 0 00000 PZE 0,0,(WEFP) AFTER F2D01890 04254 0 00003 0 04265 PZE FILN8L,,FTAPE3 A) ROUTINES. F2D01900 04255 0760 00 0 00140 SLF TURN OFF ALL SENSE LIGHTS. F2D01910 04256 0500 00 0 04635 CLA SENSE1 RESTORE STATUS F2D01920 04257 0100 00 0 04261 TZE *+2 OF SENSE LIGHT 3. F2D01930 04260 0760 00 0 00143 SLN 3 F2D01940 04261 0020 00 0 04660 TRA 5$AINIT F2D01950 04262 3 00004 0 04615 DSC2 IORT CIL00,,4 F2D01960 04263 213426644523 A)FNL BCI 1,A)FUNC F2D01970 BINARY CARD NO. 9F210010 04264 0 00001 0 00000 SKLST3 PZE 0,,1 F2D01980 04265 254626016060 FILN8L BCI 1,EOF1 F2D01990 *************************************************************F2D02000 04266 -0634 00 1 04625 COMPIL SXD 1XBOX,1 F2D02010 04267 -0634 00 2 04626 SXD 2XBOX,2 F2D02020 04270 -0634 00 4 04627 SXD LINK1,4 SAVE LINKAGE F2D02030 04271 0760 00 0 00140 PSE 96 TURN ALL SENSE LIGHTS OFF F2D02040 04272 0074 00 4 04062 TSX $COSE,4 GET NAME OF COEFF IN FIXCON. F2D02050 04273 0500 00 0 04061 CLA L(CLA) F2D02060 04274 0601 00 0 04616 STO CIL01 THIS ROUTINE COMPILES F2D02070 04275 0500 00 0 04041 CLA OR000+13 THE INSTRUCTION F2D02080 04276 -0320 00 0 04640 ANA 6ONES F2D02090 04277 0601 00 0 04617 STO CIL02 CLA 6)+3, F2D02100 04300 0500 00 0 04005 CLA $L(3) WITH ZERO TAG, F2D02110 04301 0767 00 0 00022 ALS 18 F2D02120 04302 0601 00 0 04620 STO CIL03 TOGETHER WITH A SYMBOLIC F2D02130 04303 0500 00 0 04621 CLA NAME1 LOCATION OF F2D02140 04304 -0501 00 0 04637 ORA BCD10 F2D02150 04305 0601 00 0 04615 STOLOC STO CIL00 10)+NAME1 F2D02160 04306 0074 00 4 04547 TSX CIT,4 ENTER INSTR. IN CIT F2D02170 04307 0500 00 0 04060 CLA L(STO) F2D02180 04310 0601 00 0 04616 STO CIL01 THIS ROUTINE COMPILES THE F2D02190 04311 0500 00 0 04056 CLA OR000+26 INSTRUCTION. F2D02200 BINARY CARD NO. 9F210011 04312 0734 00 1 00000 PAX 0,1 F2D02210 04313 -0320 00 0 04640 ANA 6ONES STO 1)+3 F2D02220 04314 -0634 00 1 04620 SXD CIL03,1 THESE COMPILED INSTR. PLACE F2D02230 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 90 BLOCK D. 04315 0601 00 0 04617 STO CIL02 1 IN ERASABLE STORAGE F2D02240 04316 -0754 00 0 00000 ZAC F2D02250 04317 0601 00 0 04615 STO CIL00 F2D02260 04320 0074 00 4 04547 TSX CIT,4 ENTER INSTR. IN CIT F2D02270 04321 0500 00 0 04015 CLA $WRKSC+1 TEST 1ST SSC SYMBOL. F2D02280 04322 0100 00 0 04334 TZE S2 NO SYMBOL PRESENT F2D02290 04323 0601 00 0 04025 STO OR000+1 SAVE S1 FOR LXC ROUTINE F2D02300 04324 0534 00 1 04644 LXA L(4),1 INDEX FOR NO. OF COMPILED INSTR. F2D02310 04325 -0760 00 0 00141 MSE 97 DOES 1ST COEFF EXCEED 1 F2D02320 04326 0020 00 0 04330 TRA COMP20 NO F2D02330 04327 1 00002 1 04332 TXI COMP30,1,2 YES. 6 INSTR. TO BE COMPILED F2D02340 04330 0500 00 0 04645 COMP20 CLA KLX02 NO. COMPILE INSTR TO COMPUTE F2D02350 04331 0020 00 0 04333 TRA COMP30+1 S1-1+(1 ALREADY IN ERASABLE) F2D02360 04332 0500 00 0 04646 COMP30 CLA KLX021 YES. COMPILE C1A1-1 F2D02370 04333 0074 00 4 04431 TSX LXC,4 +(1 AREADY IN ERASABLE) F2D02380 04334 0500 00 0 04017 S2 CLA $WRKSC+3 F2D02390 04335 0100 00 0 04351 TZE S3 TRA IF NO 2ND SUBSC. SYMBOL F2D02400 04336 0601 00 0 04030 STO OR000+4 SAVE S2 FOR LXC ROUTINE. F2D02410 04337 0500 00 0 04022 CLA $WRKSC+6 GET SYMBOLIC ADDRESS F2D02420 BINARY CARD NO. 9F210012 04340 0074 00 4 04101 TSX $FXCON,4 OF D1 IN FIXCON TABLE F2D02430 04341 0601 00 0 04033 STO OR000+7 AND STORE FOR LXC ROUTINE. F2D02440 04342 0534 00 1 04006 LXA $L(6),1 6 INSTR. TO BE COMPILED. F2D02450 04343 -0760 00 0 00142 MSE 98 IS COEFF. C2 GREATER THAN 1. F2D02460 04344 0020 00 0 04347 TRA COMP40 NO. COMPILE D1*S2-D1+ F2D02470 04345 0500 00 0 04647 CLA KLX03 YES. 8 INSTR. COMPILED TO F2D02480 04346 1 00002 1 04350 TXI COMP40+1,1,2 COMPUTE D1*S2*C3-D1+ F2D02490 04347 0500 00 0 04650 COMP40 CLA KLX031 F2D02500 04350 0074 00 4 04431 TSX LXC,4 + THAT ALREADY COMPUTED. F2D02510 04351 0500 00 0 04021 S3 CLA $WRKSC+5 TEST FOR 3RD SUBSCRIPT F2D02520 04352 0100 00 0 04370 TZE COMP55 SYMBOL. F2D02530 04353 0601 00 0 04051 STO OR000+21 STORE FOR LXC ROUTINE. F2D02540 04354 0560 00 0 04022 LDQ $WRKSC+6 COMPUTE D1*D2, F2D02550 04355 0200 00 0 04023 MPY $WRKSC+7 AND OBTAIN F2D02560 04356 0767 00 0 00021 ALS 17 NAME FOR THIS CONSTANT FROM F2D02570 04357 0074 00 4 04101 TSX $FXCON,4 FIXCON, AND STORE FOR F2D02580 04360 0601 00 0 04054 STO OR000+24 LXC ROUTINE. F2D02590 04361 0534 00 1 04006 LXA $L(6),1 6 INSTR. TO BE COMPILED. F2D02600 04362 -0760 00 0 00143 MSE 99 IS 3RD COEFF GREATER THAN 1. F2D02610 04363 0020 00 0 04366 TRA COMP50 NO. COMPILE D1D2*S3-D1D2+ F2D02620 04364 0500 00 0 04651 CLA KLX05 YES, COMPILE D1D2*C3S3-D1D2+ F2D02630 04365 1 00002 1 04367 TXI COMP50+1,1,2 F2D02640 BINARY CARD NO. 9F210013 04366 0500 00 0 04652 COMP50 CLA KLX051 F2D02650 04367 0074 00 4 04431 TSX LXC,4 + THAT ALREADY COMPUTED. F2D02660 04370 -0534 00 4 04614 COMP55 LXD BBOX,4 F2D02670 04371 1 00004 4 04372 TXI COMP55+2,4,4 STEP UP CIT BUFFER COUNT F2D02680 04372 -0634 00 4 04614 SXD BBOX,4 F2D02690 04373 0074 00 4 04400 TSX STOTP,4 COMPILE INSTRUCTION TO STORE F2D02700 04374 -0534 00 1 04625 LXD 1XBOX,1 LOADING VALUE FOR SUBSCRIPT COMB. F2D02710 04375 -0534 00 2 04625 LXD 1XBOX,2 F2D02720 04376 -0534 00 4 04627 LXD LINK1,4 F2D02730 04377 0020 00 4 00001 TRA 1,4 RETURN F2D02740 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 91 BLOCK D. *************************************************************F2D02750 04400 -0634 00 4 04630 STOTP SXD LINK2,4 ROUTINE COMPILES THE INSTR. F2D02760 04401 0500 00 0 04642 CLA L(0) TO STORE THE RESULTS OF F2D02770 04402 0601 00 0 04615 STO CIL00 THE SUBROUTINE COMPILATION IN F2D02780 04403 0601 00 0 04620 STO CIL03 THE TAG NAME. F2D02790 04404 0500 00 0 04060 CLA L(STO) THIS INSTRUCTION IS F2D02800 04405 0601 00 0 04616 STO CIL01 F2D02810 04406 0500 00 0 04621 CLA NAME1 STO 12)+ NAME1 F2D02820 04407 -0501 00 0 04636 ORA BCD14 F2D02830 04410 0601 00 0 04617 STO CIL02 F2D02840 04411 0074 00 4 04547 TSX CIT,4 ENTER IN CIT TABLE F2D02850 04412 -0534 00 4 04630 LXD LINK2,4 F2D02860 04413 0020 00 4 00001 TRA 1,4 RETURN F2D02870 *************************************************************F2D02880 BINARY CARD NO. 9F210014 04414 0500 00 0 04642 LINKTR CLA L(0) F2D02890 04415 0601 00 0 04615 STO CIL00 THIS ROUTINE COMPILES F2D02900 04416 0601 00 0 04617 STO CIL02 INSTRUCTION FOR RETURN F2D02910 04417 0500 00 0 04427 CLA L(TRA) TO THE FORTRAN MASTER F2D02920 04420 0601 00 0 04616 STO CIL01 ROUTINE. F2D02930 04421 0500 00 0 04430 CLA RELTG TRA1,4 F2D02940 04422 0601 00 0 04620 STO CIL03 F2D02950 04423 -0634 00 4 04627 SXD LINK1,4 F2D02960 04424 0074 00 4 04547 TSX CIT,4 FENTER IN CIT TABLE. F2D02970 04425 -0534 00 4 04627 LXD LINK1,4 F2D02980 04426 0020 00 4 00001 TRA 1,4 RETURN F2D02990 04427 635121000000 L(TRA) BCI 1,TRA000 F2D03000 04430 +000001000004 RELTG OCT 000001000004 F2D03010 *************************************************************F2D03020 ROUTINE COMPILES SETS OF INSTRUCTIONS, GIVEN STARTING LOCN. F2D03030 OF APPROPRIATE SKELETON IN ACC., AND NO. OF INSTR. IN IRA F2D03040 04431 -0634 00 4 04465 LXC SXD LXC19,4 F2D03050 04432 0601 00 0 04632 STO ERLXC SAVE LOCATION OF INSTR. SKELETON. F2D03060 04433 -0754 00 1 00000 PXD 0,1 NO. OF INST TO BE COMPILED. F2D03070 04434 0771 00 0 00022 ARS 18 F2D03080 04435 0400 00 0 04632 ADD ERLXC FORM ADDRESS WHICH GIVES F2D03090 04436 0621 00 0 04441 STA LXC10 APPROPRIATE SKELETAL WORDS. F2D03100 04437 0500 00 0 04642 LXC08 CLA L(0) SET CIT SYMBOLIC LOCN. TO ZERO F2D03110 04440 0601 00 0 04615 STO CIL00 F2D03120 04441 0560 00 1 00000 LXC10 LDQ 0,1 SELECT NEXT SKELETAL WORD. F2D03130 BINARY CARD NO. 9F210015 04442 0763 00 0 00000 LLS 0 FOR COMPILATION. SET SIGN IN AC. F2D03140 04443 -0763 00 0 00022 LGL 18 BCD. OPERATION IS IN DECREMENT. F2D03150 04444 -0600 00 0 04616 STQ CIL01 STORE OPERATION F2D03160 04445 -0120 00 0 04466 TMI LXC20 CIT IS SHIFT TYPE INSTRUCTION. F2D03170 04446 0621 00 0 04447 STA LXC15 CIT IS SYMBOLIC ADDRESS TYPE. F2D03180 04447 0500 00 0 00000 LXC15 CLA ** ADD IS LOC OF SYMBOL ADDRESS. F2D03190 04450 0601 00 0 04617 STO CIL02 OF CIT. F2D03200 04451 0500 00 0 04642 CLA L(0) F2D03210 04452 0601 00 0 04620 STO CIL03 SET CIT TAG TO ZERO. F2D03220 04453 -0500 00 0 04617 CAL CIL02 TEST FOR A COT F2D03230 04454 -0320 00 0 04640 ANA 6ONES SYMBOLIC ADDRESS OF THE TYPE F2D03240 04455 0100 00 0 04473 TZE LXC30 1)+3 OR6)+2 ERASABLE F2D03250 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 92 BLOCK D. 04456 -0320 00 0 04641 ANA BIT01 STORAGE F2D03260 04457 -0100 00 0 04473 TNZ LXC30 NO F2D03270 04460 -0500 00 0 04617 CAL CIL02 YES. SEPARATE ADDRESS LEAVING THE F2D03280 04461 0767 00 0 00022 ALS 18 CLASS OF SYMBOLS IN SYMBOLIC F2D03290 04462 0622 00 0 04620 STD CIL03 ADDRESS POSN. ALONE, AND F2D03300 04463 -0500 00 0 04640 CAL 6ONES PLACING ADDEND IN REL. ADDRESS F2D03310 04464 0320 00 0 04617 ANS CIL02 POSITION. F2D03320 04465 -3 00000 0 04473 LXC19 TXL LXC30,,0 UNCOND. TRANSFER LINKAGE IN DEC) F2D03330 04466 0767 00 0 00022 LXC20 ALS 18 CIT IS SHIFT TYPE INSTRUCTION F2D03340 04467 -0320 00 0 04001 ANA DECMSK I.E. ABSOLUTE ADDRESS ONLY. F2D03350 BINARY CARD NO. 9F210016 04470 0601 00 0 04620 STO CIL03 STORE ADDRESS IN CIT REL. ADDRESS. F2D03360 04471 0500 00 0 04642 CLA L(0) STORE ZERO AS F2D03370 04472 0601 00 0 04617 STO CIL02 SYMBOLIC ADDRESS. F2D03380 04473 0074 00 4 04547 LXC30 TSX CIT,4 MAKE CIT ENTRY. F2D03390 04474 2 00001 1 04437 TIX LXC08,1,1 RETURN FOR NEXT SKELETON INST. F2D03400 04475 -0534 00 4 04465 LXD LXC19,4 SKELETON COMPLETED. F2D03410 04476 0020 00 4 00001 TRA 1,4 RETURN. F2D03420 04477 0 04041 2 34321 LX100 PZE 14545,2,OR000+13 CLA. THESE WORDS F2D03430 04500 0 04056 6 26346 PZE 11494,6,OR000+26 STO. CONSTITUTE THE F2D03440 04501 0 04025 2 34321 LX102 PZE 14545,2,OR000+1 CLA. CODING F2D03450 04502 0 04041 6 26422 PZE 11538,6,OR000+13 SUB. SKELETONS, F2D03460 04503 0 04056 2 12424 PZE 5396,2,OR000+26 ADD. AND ARE F2D03470 04504 0 04056 6 26346 PZE 11494,6,OR000+26 STO. CALLED UPON F2D03480 04505 0 04025 4 32450 LX105 PZE 13608,4,OR000+1 LDQ. BY THE LXC F2D03490 04506 0 04035 4 44770 PZE 18936,4,OR000+9 MPY. ACCORDING F2D03500 04507 -2 00021 2 14362 TNX 6386,2,17 ALS. TO THE F2D03510 04510 0 04041 6 26422 PZE 11538,6,OR000+13 SUB. DIFFERENT F2D03520 04511 0 04056 2 12424 PZE 5396,2,OR000+26 ADD. COMPUTATIONS F2D03530 04512 0 04056 6 26346 PZE 11494,6,OR000+26 STO. REQUIRED F2D03540 04513 0 04030 4 32450 LX110 PZE 13608,4,OR000+4 LDQ. F2D03550 04514 0 04033 4 44770 PZE 18936,4,OR000+7 MPY. THE TAG AND F2D03560 04515 -2 00021 2 14362 TNX 6386,2,17 ALS. ADDRESS ARE F2D03570 BINARY CARD NO. 9F210017 04516 0 04033 6 26422 PZE 11538,6,OR000+7 SUB. THE BCD F2D03580 04517 0 04056 2 12424 PZE 5396,2,OR000+26 ADD. EQUIVALENTS OF F2D03590 04520 0 04056 6 26346 PZE 11494,6,OR000+26 STO. THE CIT F2D03600 04521 0 04030 4 32450 LX116 PZE 13608,4,OR000+4 LDQ. INSTRUCTIONS. F2D03610 04522 0 04036 4 44770 PZE 18936,4,OR000+10 MPY. THE SYMBOLIC F2D03620 04523 -2 00022 4 35162 TNX 14962,4,18 LRS. DECREMENTS ARE F2D03630 04524 0 04033 4 44770 PZE 18936,4,OR000+7 MPY. THE LOCATIONS F2D03640 04525 -2 00021 2 14362 TNX 6386,2,17 ALS. OF THE F2D03650 04526 0 04033 6 26422 PZE 11538,6,OR000+7 SUB. ADDRESSES IN F2D03660 04527 0 04056 2 12424 PZE 5396,2,OR000+26 ADD. THE CIT F2D03670 04530 0 04056 6 26346 PZE 11494,6,OR000+26 STO. F2D03680 04531 0 04051 4 32450 LX124 PZE 13608,4,OR000+21 LDQ. THE NEGATIVE F2D03690 04532 0 04054 4 44770 PZE 18936,4,OR000+24 MPY. PREFIX INDICATES F2D03700 04533 -2 00021 2 14362 TNX 6386,2,17 ALS. A PURELY F2D03710 04534 0 04054 6 26422 PZE 11538,6,OR000+24 SUB. ABSOLUTE ADDRESSES F2D03720 04535 0 04056 2 12424 PZE 5396,2,OR000+26 ADD. F2D03730 04536 0 04056 6 26346 PZE 11494,6,OR000+26 STO. F2D03740 04537 0 04051 4 32450 LX130 PZE 13608,4,OR000+21 LDQ. F2D03750 04540 0 04037 4 44770 PZE 18936,4,OR000+11 MPY. F2D03760 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 93 BLOCK D. 04541 -2 00022 4 35162 TNX 14962,4,18 LRS. F2D03770 04542 0 04054 4 44770 PZE 18936,4,OR000+24 MPY. F2D03780 04543 -2 00021 2 14362 TNX 6386,2,17 ALS. F2D03790 BINARY CARD NO. 9F210018 04544 0 04054 6 26422 PZE 11538,6,OR000+24 SUB. F2D03800 04545 0 04056 2 12424 PZE 5396,2,OR000+26 ADD. F2D03810 04546 0 04056 6 26346 PZE 11494,6,OR000+26 STO. F2D03820 *************************************************************F2D03830 *************************************************************F2D03840 CIT WRITES THE COMPILED INSTRUCTION F2D03850 BUFFER ON TAPE, WHEN FULL, AND ENTERS F2D03860 A NEW CIT INTO THE BUFFER. F2D03870 04547 -0634 00 2 04011 CIT SXD $E2C,2 F2D03880 04550 -0634 00 4 04012 SXD $E3C,4 F2D03890 04551 -0534 00 2 04614 LXD BBOX,2 F2D03900 04552 -3 00000 2 04554 TXL *+2,2,0 TEST FOR FULL BUFFER. F2D03910 04553 -3 77470 2 04565 TXL CIT06,2,-A)BSZ F2D03920 04554 0774 00 4 00004 CIT01 AXT 4,4 F2D03930 04555 0500 00 4 04621 CIT02 CLA CIL00+4,4 MOVE CIT TO OUTPUT F2D03940 04556 0601 00 2 45545 CIT03 STO A)B1,2 BUFFER. F2D03950 04557 1 77777 2 04560 TXI *+1,2,-1 F2D03960 04560 2 00001 4 04555 TIX CIT02,4,1 F2D03970 04561 -0634 00 2 04614 SXD BBOX,2 F2D03980 04562 -0534 00 2 04011 CIT04 LXD $E2C,2 NOT FULL, F2D03990 04563 -0534 00 4 04012 CIT05 LXD $E3C,4 RETURN. F2D04000 04564 0020 00 4 00001 TRA 1,4 F2D04010 04565 -0774 00 2 77777 CIT06 AXC -1,2 F2D04020 * *** F2D04030 04566 0074 00 4 73606 CIT07 TSX (TAPE),4 WRITE ONE RECORD F2D04040 04567 0 40001 2 04611 PZE A)B2A,2,(WBNP) OF A) CITS. F2D04050 04570 0 00003 0 04263 PZE A)FNL,,FTAPE3 F2D04060 04571 0500 00 2 04612 CLA DSC5,2 CHANGE OUTPUT F2D04070 BINARY CARD NO. 9F210019 04572 0621 00 0 04556 STA CIT03 BUFFER ADDRESS. F2D04080 04573 0634 00 2 04565 SXA CIT06,2 REVERSE SWITCH. F2D04090 04574 0600 00 0 04614 STZ BBOX RESET WORD COUNT. F2D04100 04575 0520 00 0 04576 ZET *+1 IS THIS LAST RECORD. F2D04110 04576 0020 00 0 04551 CIT08 TRA CIT01-3 NO, GO BACK TO MAKE AN ENTRY. F2D04120 04577 0020 00 0 04563 TRA CIT05 YES, RETURN. F2D04130 04600 -0634 00 4 04012 CITSP SXD $E3C,4 F2D04140 04601 -0535 00 4 04614 LDC BBOX,4 IS LAST F2D04150 04602 -3 00000 4 04563 TXL CIT05,4,0 BUFFER EMPTY. F2D04160 04603 0535 00 2 04565 LAC CIT06,2 NO, COMPUTE WORD COUNT F2D04170 04604 -0754 00 4 00000 PXD ,4 AND STORE IN F2D04180 04605 0622 00 2 04611 STD A)B2A,2 CURRENT I/O COMMAND. F2D04190 04606 0600 00 0 04576 STZ CIT08 SET LAST-TIME SWITCH. F2D04200 04607 0020 00 0 04566 TRA CIT07 F2D04210 04610 3 00310 0 45545 DSC4 IORT A)B1,,A)BSZ F2D04220 04611 0 00000 0 46055 A)B2A PZE A)B2 F2D04230 04612 3 00310 0 46055 DSC5 IORT A)B2,,A)BSZ F2D04240 04613 0 00000 0 45545 A)B1A PZE A)B1 F2D04250 04614 0 00000 0 00000 BBOX PZE F2D04260 04615 0 00000 0 00000 CIL00 PZE F2D04270 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 94 BLOCK D. 04616 0 00000 0 00000 CIL01 PZE F2D04280 04617 0 00000 0 00000 CIL02 PZE F2D04290 BINARY CARD NO. 9F210020 04620 0 00000 0 00000 CIL03 PZE F2D04300 *************************************************************F2D04310 04621 0 00000 0 00000 NAME1 PZE F2D04320 04622 0 00000 0 00000 TAG1 PZE F2D04330 04623 0 00000 0 00000 TAG2 PZE F2D04340 04624 0 00000 0 00000 RECCNT PZE F2D04350 04625 0 00000 0 00000 1XBOX PZE F2D04360 04626 0 00000 0 00000 2XBOX PZE F2D04370 04627 0 00000 0 00000 LINK1 PZE F2D04380 04630 0 00000 0 00000 LINK2 PZE F2D04390 04631 0 00000 0 00000 ERDRM PZE F2D04400 04632 0 00000 0 00000 ERLXC PZE F2D04410 04633 0 00000 0 00000 AX PZE F2D04420 04634 0 00000 0 00000 BX PZE F2D04430 04635 0 00000 0 00000 SENSE1 PZE F2D04440 04636 +140000000000 BCD14 OCT 140000000000 F2D04450 04637 +120000000000 BCD10 OCT 120000000000 F2D04460 04640 -370000000000 6ONES OCT 770000000000 F2D04470 04641 -200000000000 BIT01 OCT 600000000000 F2D04480 04642 0000 00 0 00000 L(0) HTR 0 F2D04490 04643 0000 00 0 00001 L(1) HTR 1 F2D04500 04644 0000 00 0 00004 L(4) HTR 4 F2D04510 04645 0000 00 0 04501 KLX02 HTR LX102 SKELETON KEYS F2D04520 BINARY CARD NO. 9F210021 04646 0000 00 0 04505 KLX021 HTR LX105 FOR LXC ROUTINE. F2D04530 04647 0000 00 0 04521 KLX03 HTR LX116 F2D04540 04650 0000 00 0 04513 KLX031 HTR LX110 F2D04550 04651 0000 00 0 04537 KLX05 HTR LX130 F2D04560 04652 0000 00 0 04531 KLX051 HTR LX124 F2D04570 *************************************************************F2D04580 02573 LADTG EQU 3+400*M/N*4 F2D04590 02032 LMXFIX EQU 1200*M/N F2D04600 04024 OR000 SYN $OR000 F2D04610 04040 OR012 SYN OR000+12 F2D04620 04041 OR013 SYN OR000+13 F2D04630 04046 OR018 SYN OR000+18 F2D04640 04056 OR026 SYN OR000+26 F2D04650 *************************************************************F2D04660 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 95 BLOCK E. * SECTION TWO OF 709/7090 32K FORTRAN, BLOCK E. F2E00000 HEAD 5 F2E00010 00007 M SYN 1$M M/N IS THE RATIO OF TABLE SIZES F2E00020 00010 N SYN 1$N TO NORMAL 32K SIZES. F2E00030 COMPILES DO LOOP INDEXING INSTRUCTIONS. F2E00040 INITIALIZATION F2E00050 00310 CIBSZ EQU 200 SIZE OF CIT OUTPUT BUFFERS. F2E00060 73600 DOCARZ SYN ENDCOR F2E00070 73042 DOCARE SYN DOCARZ-400*M/N ADDITIONAL TABLE F2E00080 73041 CARWC SYN DOCARE-1 DEFINITIONS FOR F2E00090 67512 SXTXZ SYN TSCMWC F2E00100 65460 SXTX SYN SXTXZ-600*M/N*2 BLOCK 5. F2E00110 65457 SXDWC SYN SXTX-1 F2E00120 60075 FIXCN SYN 4$FIXCN F2E00130 60074 FIXWC SYN FIXCN-1 F2E00140 55030 TAU3 SYN 1$TAU3 F2E00150 52454 TAU2 SYN 1$TAU2 F2E00160 51160 TAU1 SYN 1$TAU1 F2E00170 46366 ADTAG SYN 4$ADTAG F2E00180 46365 ADTGA SYN ADTAG-1 F2E00190 45626 OADTGA SYN ADTGA-400*M/N-1 F2E00200 45626 DOTAGZ SYN OADTGA F2E00210 42557 DOTAG SYN DOTAGZ-200*M/N*9 F2E00220 42557 MXTGA SYN DOTAG F2E00230 41004 OMXTGA SYN MXTGA-1000*M/N F2E00240 41004 TAGZ SYN OMXTGA F2E00250 32130 TAGTG SYN TAGZ-1000*M/N*4 F2E00260 17730 DOFILE SYN TAGTG-1500*M/N*4 F2E00270 17420 BTWO SYN DOFILE-CIBSZ ORIGIN OF CIT F2E00280 17110 BONE SYN BTWO-CIBSZ OUTPUT BUFFERS. F2E00290 04653 635121432565 TRLVL BCI 1,TRALEV F2E00300 04654 244663212722 DTGBL BCI 1,DOTAGB F2E00310 04655 632127632127 TAGL BCI 1,TAGTAG F2E00320 04656 633126274660 TIFL BCI 1,TIFGO F2E00330 04657 -0 00000 0 00001 SKLST4 MZE 1,,0 F2E00340 04660 -0534 00 2 03777 AINIT LXD DORCCT,2 PICK UP DOTAG F2E00350 04661 -0634 00 2 11477 SXD DOTGRC,2 RECORD COUNT. F2E00360 04662 0600 00 0 73041 STZ CARWC F2E00370 04663 0600 00 0 65457 STZ SXDWC F2E00380 04664 0500 00 0 11557 CLA LADMX F2E00390 04665 0402 00 0 46365 SUB ADTGWC F2E00400 04666 0734 00 1 00000 PAX 0,1 F2E00410 04667 -0634 00 1 07265 SXD ADTGS1,1 F2E00420 04670 -0760 00 0 00143 SLT 3 TEST FOR EMPTY DOTAG. F2E00430 04671 0020 00 0 04674 TRA MAN NOT EMPTY. F2E00440 04672 0760 00 0 00143 SLN 3 RESTORE SL AND F2E00450 04673 0020 00 0 07631 TRA DF70 SKIP BLOCK 5. F2E00460 F2E00470 BINARY CARD NO. 9F210022 04674 -0534 00 1 11477 MAN LXD DOTGRC,1 LOAD REMAINING DOTAG RECORD CNT. F2E00480 * *** F2E00490 04675 0074 00 4 73606 TSX (TAPE),4 READ F2E00500 04676 0 40000 0 07531 PZE IOCOM2,,(RBNP) IN F2E00510 04677 0 00004 0 04655 PZE TAGL,,FTAPE4 TAGTAG. F2E00520 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 96 BLOCK E. * *** F2E00530 04700 0074 00 4 73606 TSX (TAPE),4 POSITION TAPE F2E00540 04701 0 20000 0 04657 PZE SKLST4,,(SKBP) TO WRITE F2E00550 04702 0 00004 0 07641 PZE CMPDOL,,FTAPE4 COMPDO. F2E00560 04703 -0534 00 2 11553 LXD LMXTG,2 INITIALIZE TEST F2E00570 04704 1 00004 2 04705 TXI *+1,2,4 IN NEST SEARCH F2E00580 04705 -0634 00 2 07047 SXD FIND10,2 ROUTINE. F2E00590 04706 -0634 00 1 11477 MAN01 SXD DOTGRC,1 F2E00600 04707 -3 00000 1 04771 TXL MAN70,1,0 TEST FOR END DOTAG. F2E00610 * *** F2E00620 04710 0074 00 4 73606 MAN03 TSX (TAPE),4 READ ONE F2E00630 04711 0 40010 0 11470 PZE DSC6,,(RBNC) NEST OF F2E00640 04712 0 00002 0 04654 PZE DTGBL,,FTAPE2 DOTAGS. F2E00650 04713 0534 00 2 11554 LXA LMXTGA,2 INITIALIZE APPENDED F2E00660 04714 0600 00 2 42557 MAN06 STZ MXTGA,2 TAGTAG AND F2E00670 04715 2 00001 2 04714 TIX MAN06,2,1 APPENDED F2E00680 04716 0534 00 2 11556 LXA LZEKMX,2 ADTAG F2E00690 04717 0600 00 2 46365 MAN08 STZ ADTGA,2 TO ALL F2E00700 04720 2 00001 2 04717 TIX MAN08,2,1 ZEROS. F2E00710 04721 0600 00 0 11622 STZ BBOX INITIALIZE F2E00720 BINARY CARD NO. 9F210023 04722 0600 00 0 11652 STZ DOIND INDICATORS. F2E00730 04723 0600 00 0 11653 STZ DOIND1 F2E00740 04724 0600 00 0 11655 STZ SWICH1 F2E00750 04725 0500 00 0 11555 CLA ALLONE F2E00760 04726 0601 00 0 11665 STO VCTR F2E00770 * *** F2E00780 04727 0500 00 0 73674 CLA (SCHU)+FTAPE2 DETERMINE F2E00790 04730 0601 00 0 04011 STO $E2C DOTAG AREA. F2E00800 04731 0534 00 1 04011 LXA $E2C,1 F2E00810 04732 -3 45626 1 04734 TXL *+2,1,DOTAGZ F2E00820 04733 0074 00 4 03746 TSX ERRORM,4 DOTAG RECORD OVERFLOWS A F2E00830 BUFFER OF THE SIZE OF THE F2E00840 ONE FROM WHICH IT WAS WRITTEN F2E00850 ONTO TAPE2 AS FILE 6. F2E00860 04734 -0634 00 1 04736 SXD MAN16,1 F2E00870 04735 0774 00 1 45630 AXT DOTAGZ+2,1 FORM TEST FOR F2E00880 04736 2 00000 1 04737 MAN16 TIX *+1,1,0 SCAN OF DOTAG F2E00890 04737 -0634 00 1 07024 SXD DOGS60,1 IN DOGS ROUTINE. F2E00900 04740 -0634 00 1 04745 SXD MAN18,1 INITIALIZE F2E00910 04741 0534 00 1 11516 LXA LMXDTG,1 WORD 7 F2E00920 04742 -0500 00 0 11537 CAL T1MSK OF DOTAG F2E00930 04743 0320 00 1 45634 MAN17 ANS DOTAGZ+6,1 FOR USE AS F2E00940 04744 1 77767 1 04745 TXI *+1,1,-9 STORAGE OF VAR F2E00950 04745 3 00000 1 04743 MAN18 TXH MAN17,1,0 TXH LOCATION F2E00960 04746 0074 00 4 07515 TSX TTG,4 READ NEST OF TAGTAGS. F2E00970 04747 0500 00 0 11560 MAN20 CLA L(1) INITIALIZE LOCATION INDICATOR F2E00980 BINARY CARD NO. 9F210024 04750 0601 00 0 11644 STO LOCIND FOR A CYCLE OF CODING. F2E00990 04751 0074 00 4 06737 TSX DOGS,4 SELECT BETA OR ALPHA. F2E01000 04752 0020 00 0 04765 TRA MAN50 END OF NEST F2E01010 04753 -0534 00 2 11652 MAN40 LXD DOIND,2 SET UP ALPHA F2E01020 04754 0500 00 2 45626 CLA DOTAGZ,2 WORD AND F2E01030 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 97 BLOCK E. 04755 0622 00 0 11646 STD A BETA WORD IN F2E01040 04756 0734 00 1 00000 PAX 0,1 PREPARATION FOR F2E01050 04757 -0634 00 1 11647 SXD B,1 ALPHA OR BETA CYCLE. F2E01060 04760 -0320 00 0 04001 ANA DECMSK LEAVE BETA IN ACC DECREMENT. F2E01070 04761 0520 00 0 11655 ZET SWICH1 WHICH CYCLE IS APPROPRIATE. F2E01080 04762 0074 00 4 04774 TSX RTX,4 BETA CYCLE. F2E01090 04763 0074 00 4 05735 TSX AC,4 ALPHA CYCLE. F2E01100 04764 0020 00 0 04747 TRA MAN20 RETURN FOR EITHER CYCLE F2E01110 04765 0020 00 0 07557 MAN50 TRA DF01 GO TO SORT A NEST OF CIT'S. F2E01120 04766 -0634 00 2 07646 SXD BCNT,2 RETURN FROM DF ROUTINE. F2E01130 04767 -0534 00 1 11477 LXD DOTGRC,1 END OF NEST, F2E01140 04770 1 77777 1 04706 TXI MAN01,1,-1 AND CONSIDER NEXT NEST. F2E01150 04771 0760 00 0 00140 MAN70 SLF END OF DOTAG, F2E01160 04772 0020 00 0 07631 TRA DF70 F2E01170 04773 254626026060 FILN2L BCI 1,EOF2 F2E01180 BEGIN BETA STAGE F2E01190 THE BETA STATE IS CALLED BY MAN TO COMPUTE AND COMPILE F2E01200 INCREMENTING, TESTING, AND RESETTING INSTRUCTIONS FOR A GIVENF2E01210 DO. F2E01220 04774 -0634 00 4 05037 RTX SXD RTX024,4 F2E01230 04775 -0534 00 1 11665 LXD VCTR,1 VARIABLE CTR. LAST BETA. F2E01240 BINARY CARD NO. 9F210025 04776 -0534 00 2 11647 LXD B,2 BETA OF NEW DO. F2E01250 04777 -0634 00 2 05000 SXD *+1,2 F2E01260 05000 3 00000 1 05003 TXH *+3,1,0 IS THIS THE FIRST BETA. F2E01270 05001 0600 00 0 11644 STZ LOCIND F2E01280 05002 0020 00 0 05010 TRA RTX05 F2E01290 05003 -0754 00 2 00000 PXD 0,2 F2E01300 05004 0400 00 0 11544 ADD L(K1) FIRST B. SET F2E01310 05005 0601 00 0 11665 STO VCTR VCTR AND F2E01320 05006 0500 00 0 11555 CLA ALLONE INITIALIZE F2E01330 05007 0601 00 0 07645 STO BLSW BLOCK INDICATOR. F2E01340 05010 0500 00 0 11565 RTX05 CLA L(0) INITIALIZE THE TEST TAG F2E01350 05011 0601 00 0 11642 STO TETTGX INDEX FOR THIS DO TO ZERO. F2E01360 05012 0601 00 0 11660 STO XTG F2E01370 05013 0601 00 0 11643 STO RTXTGX F2E01380 05014 0601 00 0 11640 STO ADTGX F2E01390 05015 0074 00 4 07665 TSX N3BIT,4 ISOLATE N3 BIT OF DOTAG F2E01400 05016 0074 00 4 07035 TSX SCAN,4 F2E01410 05017 -0634 00 1 11643 RTXIN1 SXD RTXTGX,1 STORE FIRST TTG FOR TX CYCLE. F2E01420 05020 -0634 00 1 11660 SXD XTG,1 ENTRY THAT LIES BETWEEN A AND B F2E01430 05021 0074 00 4 07044 RTX06 TSX FIND,4 F2E01440 05022 0020 00 0 05424 TRA RTX180 END OF DO, START DMTG CYCLE. F2E01450 05023 -0634 00 1 11660 SXD XTG,1 SC MODIFIED BY DO, STORE. F2E01460 BINARY CARD NO. 9F210026 05024 0074 00 4 07673 TSX TETG,4 PLACE TEST BITS IN TAG WORD. F2E01470 05025 0074 00 4 07727 TSX PRES,4 F2E01480 AT THE END OF THIS ROUTINE THE BLOCK INDICATION IS IN XB. F2E01490 05026 3 00004 2 05410 TXH RTX160,2,4 BL F, NO INSTR., GET NEW TAG. F2E01500 05027 3 00000 2 05147 TXH RTX70,2,0 BLOCK DIFFERENT FROM A OR F. F2E01510 05030 0500 00 0 11656 CLA N3IND BLOCK EQUALSA. F2E01520 05031 -0100 00 0 05115 TNZ RTX68 DECREMENT OF RXA IS VARIABLE F2E01530 05032 -0534 00 1 11475 RTX020 LXD TAG3,1 DECREMENT IS CONSTANT. F2E01540 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 98 BLOCK E. 05033 3 00000 1 05046 TXH RTX50,1,0 TEST FOR INSERTED COUNTER. F2E01550 05034 0500 00 0 11475 CLA TAG3 OR RESET TAG. F2E01560 05035 0765 00 0 00013 LRS 11 F2E01570 05036 0760 00 0 00001 LBT F2E01580 05037 -3 00000 0 05041 RTX024 TXL RTX30,,0 RESET F2E01590 05040 0020 00 0 05044 TRA RTX34 COUNTER. F2E01600 05041 0500 00 0 11475 RTX30 CLA TAG3 IF RESET TAG, PUT TAG F2E01610 05042 -0320 00 0 11603 ANA 11BITS NAME IN ACCUMULATOR AND F2E01620 05043 0020 00 0 05050 TRA RTX51 GO TO SUBCOM. F2E01630 05044 0074 00 4 07112 RTX34 TSX ENTR,4 IF COUNTER, MAKE F2E01640 05045 0020 00 0 05051 TRA RTX52 ARTIFICIAL ENTRY IN WRKSC. F2E01650 05046 -0754 00 1 00000 RTX50 PXD 0,1 CURRENT TAG. F2E01660 05047 0771 00 0 00022 ARS 18 GET TAG NAME F2E01670 05050 0074 00 4 04131 RTX51 TSX $SUBCM,4 LAY OUT TAU ENTRY. F2E01680 05051 0500 00 0 11503 RTX52 CLA L(TXI) COMPILE F2E01690 BINARY CARD NO. 9F210027 05052 0601 00 0 11624 STO CIL01 TXI F2E01700 05053 0534 00 1 11661 LXA POSIND,1 PREPARE FOR F2E01710 05054 -0534 00 2 11652 LXD DOIND,2 EXIT ROUTINE. F2E01720 05055 0074 00 4 10102 TSX CN3IJ,4 ROUTINE COMPUTES DECREMENT N3G F2E01730 05056 0601 00 0 11666 STO ERTX01 AND STORES IN ERTX01. F2E01740 05057 0534 00 1 11661 LXA POSIND,1 F2E01750 05060 0500 00 0 11476 CLA TAG4 TEST FOR DUPLICATE F2E01760 05061 0765 00 0 00014 LRS 12 SUBSCRIPTS AND COMPUTE F2E01770 05062 0763 00 1 00004 LLS 4,1 DECREMENT FOR THEM. F2E01780 05063 0760 00 0 00001 LBT TEST ON S1,S2, OR S3 FOR DUPES. F2E01790 05064 0020 00 0 05110 TRA RTX66 NO DUPLICATES FOR THIS SUBSCRIPT. F2E01800 05065 0771 00 0 00001 ARS 1 F2E01810 05066 0760 00 0 00001 LBT TEST FOR S1 OR S2 DUPES. F2E01820 05067 1 00002 1 05101 TXI RTX62+3,1,2 DUPES ARE 1,3 ON TRANSFER. F2E01830 05070 1 00001 1 05071 TXI RTX61,1,1 F2E01840 05071 0601 00 0 11667 RTX61 STO ERTX02 STORE STATUS OF AC. DUPES ARE F2E01850 05072 0074 00 4 10102 TSX CN3IJ,4 1,2 OR 2,3 OR 1,2,3. F2E01860 05073 0534 00 1 11661 LXA POSIND,1 COMPUTE DECREMENT ADJUSTMENT F2E01870 05074 0400 00 0 11666 ADD ERTX01 FOR NEXT LEFT SUBSCRIPT. F2E01880 05075 0601 00 0 11666 STO ERTX01 REPLACE ADJUSTED DECREMENT IN ERTX01F2E01890 05076 1 00002 1 05077 RTX62 TXI RTX62+1,1,2 F2E01900 05077 3 00003 1 05110 TXH RTX66,1,3 NOT 3RD SUBSCRIPT CASE. F2E01910 BINARY CARD NO. 9F210028 05100 0500 00 0 11667 CLA ERTX02 LOW ORDER BIT IS SSC LEFT OF DOSUB. F2E01920 05101 0771 00 0 00001 ARS 1 F2E01930 05102 0760 00 0 00001 LBT TEST FOR S1 DUPE. F2E01940 05103 0020 00 0 05110 TRA RTX66 F2E01950 05104 -0534 00 2 11652 LXD DOIND,2 F2E01960 05105 0074 00 4 10102 TSX CN3IJ,4 COMPUTE DECREMENT ADJUSTMENT FOR S1 F2E01970 05106 0400 00 0 11666 ADD ERTX01 IN 1,2,3 AND 1,3 CASES. F2E01980 05107 0601 00 0 11666 STO ERTX01 FINAL DECREMENT ADJUSTMENT. F2E01990 05110 0500 00 0 11666 RTX66 CLA ERTX01 F2E02000 05111 0621 00 0 11624 STA CIL01 AFTER DECREMENT IS COMPUTED, FILL F2E02010 05112 0074 00 4 10120 TSX CIL023,4 OUT 4 WORDS OF F2E02020 05113 0074 00 4 07532 TSX CIT,4 COMPILED INSTRUCTION.P F2E02030 05114 0020 00 0 05125 TRA RTX69 AND CONTINUE. F2E02040 05115 0074 00 4 07654 RTX68 TSX CILV,4 DEC IS VARIABLE. ASSIGN LOCATION F2E02050 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 99 BLOCK E. 05116 0500 00 0 11623 CLA CIL00 PREPARE VCTR LOCATION F2E02060 05117 -0320 00 0 11572 ANA ADMSK FOR TGA ROUTINE. F2E02070 05120 0074 00 4 10131 TSX TGA,4 PUT LOC IN APP TAGTAG WORD F2E02080 05121 0074 00 4 10260 TSX CIL23,4 AND THEN FILL OUT F2E02090 05122 0500 00 0 11503 CLA L(TXI) REMAINING WORDS OF F2E02100 05123 0601 00 0 11624 STO CIL01 COMPILED INSTRUCTION F2E02110 05124 0074 00 4 07532 TSX CIT,4 COMPILER ROUTINE. F2E02120 05125 0500 00 0 11476 RTX69 CLA TAG4 TEST FOR SYMBOL F2E02130 BINARY CARD NO. 9F210029 05126 0120 00 0 05410 TPL RTX160 INDICATION F2E02140 05127 -0534 00 2 11652 LXD DOIND,2 FORVAR F2E02150 05130 0500 00 2 45633 CLA DOTAGZ+5,2 OCCURRANCE. F2E02160 05131 -0320 00 0 11567 ANA BIT1 F2E02170 05132 0100 00 0 05410 TZE RTX160 NO FORVAR, CONTINUE. F2E02180 05133 0500 00 0 11565 CLA L(0) FORVAR EXISTS. F2E02190 05134 0601 00 0 11623 STO CIL00 F2E02200 05135 0500 00 0 11475 CLA TAG3 COMPILE F2E02210 05136 -0320 00 0 11572 ANA ADMSK STORE F2E02220 05137 0601 00 0 11626 STO CIL03 INSTRUCTION F2E02230 05140 0500 00 0 11505 CLA L(SXD) FOR F2E02240 05141 0601 00 0 11624 STO CIL01 FORVAR OCCURRANCE. F2E02250 05142 -0534 00 2 11652 LXD DOIND,2 F2E02260 05143 0500 00 2 45627 CLA DOTAGZ+1,2 PUT FORVAR SUBSCRIPT F2E02270 05144 0601 00 0 11625 STO CIL02 IN RELATIVE ADDRESS F2E02280 05145 0074 00 4 07532 TSX CIT,4 WORD FOR SXD INSTRUCTION. F2E02290 05146 0020 00 0 05410 TRA RTX160 F2E02300 05147 3 00001 2 05177 RTX70 TXH RTX90,2,1 BLOCK IS B,C,D OR E. F2E02310 05150 -0634 00 2 11671 SXD BLKNUM,2 F2E02320 05151 -0534 00 2 11472 LXD TAG2,2 BLOCK B FIRST DETERMINE F2E02330 05152 0074 00 4 10253 TSX NBITS,4 IF DECREMENT IS VARIABLE F2E02340 05153 0400 00 0 11656 ADD N3IND F2E02350 BINARY CARD NO. 9F210030 05154 -0100 00 0 05175 TNZ RTX80 DECREMENT IS VARIABLE. F2E02360 05155 0500 00 0 11475 CLA TAG3 DECREMENT IS CONSTANT. F2E02370 05156 0771 00 0 00022 ARS 18 F2E02380 05157 0074 00 4 04131 TSX $SUBCM,4 LAY OUT TAU INTO WRKSC. F2E02390 05160 -0534 00 2 11652 LXD DOIND,2 PREPARE FOR F2E02400 05161 0534 00 1 11661 LXA POSIND,1 EXIT ROUTINE. F2E02410 05162 0074 00 4 10102 TSX CN3IJ,4 COMPUTE N3G AND F2E02420 05163 0601 00 0 11666 STO ERTX01 STORE IN ERTX01. F2E02430 05164 -0534 00 2 11472 LXD TAG2,2 F2E02440 05165 0534 00 1 11661 LXA POSIND,1 MOVE POSIND TO LEFT SUB F2E02450 05166 1 00001 1 05167 TXI RTX72,1,1 AND COMPUTE XN3G F2E02460 05167 0074 00 4 07207 RTX72 TSX XMIN1,4 FOR LEFT SUB WHICH IS TEST. F2E02470 05170 0601 00 0 11667 STO ERTX02 F2E02480 05171 0400 00 0 11666 ADD ERTX01 ADDN3G FOR THIS SUBSCRIPT F2E02490 05172 0601 00 0 11666 STO ERTX01 RESULT IS TXI DECREMENT. F2E02500 05173 0074 00 4 10146 TSX EDCB,4 COMPILE TXI SXD TIX. F2E02510 05174 0020 00 0 05410 TRA RTX160 CHECK BEST TEST. F2E02520 05175 0074 00 4 10201 RTX80 TSX BCDE,4 BLOCK B IS VARIABLE. F2E02530 05176 0020 00 0 05410 TRA RTX160 F2E02540 05177 3 00002 2 05235 RTX90 TXH RTX110,2,2 BLOCK IS C,D, OR E. F2E02550 05200 -0634 00 2 11671 SXD BLKNUM,2 BLOCK IS C, PUT IN XB. F2E02560 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 100 BLOCK E. 05201 -0534 00 2 11472 LXD TAG2,2 ISOLATE F2E02570 BINARY CARD NO. 9F210031 05202 0074 00 4 10253 TSX NBITS,4 NBITS INTO N1N2N3. F2E02580 05203 0400 00 0 11656 ADD N3IND F2E02590 05204 -0100 00 0 05233 TNZ RTX100 DECREMENT IS VARIABLE, TSX BCDE. F2E02600 05205 0500 00 0 11475 CLA TAG3 DECREMENT IS CONSTANT. F2E02610 05206 0771 00 0 00022 ARS 18 LAY OUT TAU F2E02620 05207 0074 00 4 04131 TSX $SUBCM,4 ENTRY INTO WRKSC. F2E02630 05210 -0534 00 2 11472 LXD TAG2,2 COMPUTE F2E02640 05211 0534 00 1 11563 LXA L(3),1 XN3G-1 F2E02650 05212 0074 00 4 07207 RTX91 TSX XMIN1,4 FOR F2E02660 05213 0601 00 0 11667 STO ERTX02 SUBSCRIPT. F2E02670 05214 0534 00 1 11661 LXA POSIND,1 THEN COMPUTE N3G F2E02680 05215 -0534 00 2 11652 LXD DOIND,2 FOR RIGHT F2E02690 05216 0074 00 4 10102 TSX CN3IJ,4 SUBSCRIPT. F2E02700 05217 0400 00 0 11667 ADD ERTX02 RESULT IS F2E02710 05220 0601 00 0 11666 STO ERTX01 ERTX01. F2E02720 05221 0441 00 0 11476 LDI TAG4 TEST F2E02730 05222 0056 00 001000 RNT 1000 FOR DUPES. F2E02740 05223 0020 00 0 05231 TRA RTX95 NO DOSUB DUPE. F2E02750 05224 0534 00 1 11661 LXA POSIND,1 DOSUB IS DUPE. F2E02760 05225 1 00001 1 05226 TXI RTX93,1,1 COMPUTE ADJUSTMENT F2E02770 05226 0074 00 4 10102 RTX93 TSX CN3IJ,4 FOR DECREMENT AND F2E02780 05227 0400 00 0 11666 ADD ERTX01 STORE IN ERTX01. F2E02790 BINARY CARD NO. 9F210032 05230 0601 00 0 11666 STO ERTX01 XN3G(L) + N3G(R) + N3G(C) - 1) F2E02800 05231 0074 00 4 10146 RTX95 TSX EDCB,4 COMPILE TXI SXD TIX. F2E02810 05232 0020 00 0 05410 TRA RTX160 F2E02820 05233 0074 00 4 10201 RTX100 TSX BCDE,4 BLOCK DECREMENT IS VARIABLE. F2E02830 05234 0020 00 0 05410 TRA RTX160 F2E02840 05235 3 00003 2 05320 RTX110 TXH RTX140,2,3 D OR E. F2E02850 05236 -0634 00 2 11671 SXD BLKNUM,2 STORE BLOCK NUMBER D. F2E02860 05237 -0534 00 2 11473 LXD TAG2+1,2 BLOCK D CONSIDERED. F2E02870 05240 0074 00 4 10253 TSX NBITS,4 ISOLATE NBITS F2E02880 05241 0400 00 0 11656 ADD N3IND CHECK FOR VARIABLE DECREMENT. F2E02890 05242 -0100 00 0 05316 TNZ RTX130 DECREMENT IS VARIABLE. F2E02900 05243 0500 00 0 11475 CLA TAG3 DECREMENT IS CONSTANT. F2E02910 05244 0771 00 0 00022 ARS 18 SET UP TAG F2E02920 05245 -0320 00 0 11603 ANA 11BITS NAME AND F2E02930 05246 0074 00 4 04131 TSX $SUBCM,4 LAY OUT TAU ENTRY. F2E02940 05247 -0534 00 2 11473 LXD TAG2+1,2 CONSIDER CENTER SUBSCRIPT F2E02950 05250 -0534 00 4 11660 LXD XTG,4 F2E02960 05251 0534 00 1 11561 LXA L(2),1 F2E02970 05252 0500 00 4 41007 CLA TAGZ+3,4 DOES CARRY EXIST FOR F2E02980 05253 -0320 00 0 10550 ANA CRMSK TWO INNER DOS. F2E02990 05254 0100 00 0 05262 TZE RTX111 IF NOT, GO TO RTX111. F2E03000 05255 0074 00 4 07213 TSX CXIJ,4 YES, COMPUTE F2E03010 BINARY CARD NO. 9F210033 05256 -0534 00 4 04014 LXD $WRKSC,4 XN3G F2E03020 05257 0634 00 4 11667 SXA ERTX02,4 MINUS F2E03030 05260 0402 00 0 11667 SUB ERTX02 C1. F2E03040 05261 0020 00 0 05263 TRA RTX112 F2E03050 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 101 BLOCK E. 05262 0074 00 4 07207 RTX111 TSX XMIN1,4 COMPUTE (X-1)N3G F2E03060 05263 0601 00 0 11667 RTX112 STO ERTX02 FOR CENTER SUBSCRIPT. F2E03070 05264 0534 00 1 11661 LXA POSIND,1 PREPARE DOSUB SUBSCRIPT F2E03080 05265 -0534 00 2 11652 LXD DOIND,2 FOR CN3IJROUTINE. F2E03090 05266 0074 00 4 10102 TSX CN3IJ,4 COMPUTE N3G FOR F2E03100 05267 0601 00 0 11666 STO ERTX01 DOSUB SUBSCRIPT. F2E03110 05270 0500 00 0 11476 CLA TAG4 TEST F2E03120 05271 0771 00 0 00011 ARS 9 FOR F2E03130 05272 -0320 00 0 11532 ANA L(7) DUPES. F2E03140 05273 0100 00 0 05311 TZE RTX126 NORMAL BLOCK D, NO DUPES. F2E03150 05274 0760 00 0 00001 LBT F2E03160 05275 0020 00 0 05304 TRA RTX118 XX0 BLOCK D, OR 0XX. F2E03170 05276 0534 00 1 11661 LXA POSIND,1 X0X BLOCK D. F2E03180 05277 1 00002 1 05300 TXI RTX114,1,2 SWITCH RIGHT OR LEFT POSIND. F2E03190 05300 0074 00 4 10102 RTX114 TSX CN3IJ,4 COMPUTE N3G F2E03200 05301 0400 00 0 11666 ADD ERTX01 DECREMENT ADJUSTMENT F2E03210 05302 0601 00 0 11666 STO ERTX01 FOR X0X F2E03220 05303 0020 00 0 05311 TRA RTX126 DUPES. F2E03230 BINARY CARD NO. 9F210034 05304 -0534 00 2 11473 RTX118 LXD TAG2+1,2 COMPUTE XN3G F2E03240 05305 0534 00 1 04005 LXA $L(3),1 DECREMENT F2E03250 05306 0074 00 4 07207 RTX122 TSX XMIN1,4 ADJUSTMENT F2E03260 05307 0400 00 0 11667 ADD ERTX02 FOR CENTER F2E03270 05310 0601 00 0 11667 STO ERTX02 SUBSCRIPT. F2E03280 05311 0500 00 0 11667 RTX126 CLA ERTX02 SUB1 AND F2E03290 05312 0400 00 0 11666 ADD ERTX01 YIELDING TXI F2E03300 05313 0601 00 0 11666 STO ERTX01 DECREMENT. F2E03310 05314 0074 00 4 10146 TSX EDCB,4 COMPILE TXI SXD TIX. F2E03320 05315 0020 00 0 05410 TRA RTX160 END CHECK FOR TEST TAG. F2E03330 05316 0074 00 4 10201 RTX130 TSX BCDE,4 BLOCK D IS VARIABLE. F2E03340 05317 0020 00 0 05410 TRA RTX160 F2E03350 05320 -0634 00 2 11671 RTX140 SXD BLKNUM,2 BLOCK E F2E03360 05321 -0534 00 2 11472 LXD TAG2,2 PUT N BITS FOR S1 F2E03370 05322 0074 00 4 10253 TSX NBITS,4 PLACE N BITS PLUS F2E03380 05323 0400 00 0 11656 ADD N3IND N3IND FOR S1 F2E03390 05324 0601 00 0 11666 STO ERTX01 AND S2 INTO ERTX01 F2E03400 05325 -0534 00 2 11473 LXD TAG2+1,2 FOR VARIABLE DECREMENT F2E03410 05326 0074 00 4 10253 TSX NBITS,4 TEST. IF SUM IS NOT ZERO, F2E03420 05327 0400 00 0 11666 ADD ERTX01 THEN THE DECREMENT IS VARIABLE. F2E03430 05330 -0100 00 0 05361 TNZ RTX154 DECREMENT IS VARIABLE. F2E03440 05331 0500 00 0 11475 CLA TAG3 CONSTANT CASE, LAY F2E03450 BINARY CARD NO. 9F210035 05332 0771 00 0 00022 ARS 18 OUT TAU ENTRY INTO F2E03460 05333 0074 00 4 04131 TSX $SUBCM,4 WRKSC. F2E03470 05334 -0534 00 2 11473 LXD TAG2+1,2 SET UP CENTER SUBSCRIPT F2E03480 05335 0534 00 1 11561 LXA L(2),1 FOR EXIT ROUTINE. F2E03490 05336 0074 00 4 07207 TSX XMIN1,4 COMPUTE XN3G FOR CENTER. F2E03500 05337 0601 00 0 11667 STO ERTX02 IN ERTX02. F2E03510 05340 0534 00 1 11661 LXA POSIND,1 COMPUTE N3G F2E03520 05341 -0534 00 2 11652 LXD DOIND,2 FOR RIGHT F2E03530 05342 0074 00 4 10102 TSX CN3IJ,4 SUBSCRIPT (DOSUB). F2E03540 05343 0400 00 0 11667 ADD ERTX02 PUT FIRST TXI DECREMENT F2E03550 05344 0601 00 0 11666 STO ERTX01 IN ERTX01. F2E03560 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 102 BLOCK E. 05345 0074 00 4 10146 TSX EDCB,4 COMPILES FIRST F2E03570 05346 -0534 00 2 11472 LXD TAG2,2 THREE OF BLOCK E. F2E03580 05347 0534 00 1 11661 LXA POSIND,1 COMPUTE XN3G FOR F2E03590 05350 1 00002 1 05351 TXI RTX150,1,2 LEFT SUBSCRIPT. F2E03600 05351 0074 00 4 07207 RTX150 TSX XMIN1,4 TO COMPILE 2ND F2E03610 05352 0601 00 0 11666 STO ERTX01 BLOCK E, THE BLOCK F2E03620 05353 0601 00 0 11667 STO ERTX02 NUMBER IS SET TO F2E03630 05354 -0534 00 4 11671 LXD BLKNUM,4 APPEAR LIKE BLOCK C SO F2E03640 05355 2 00002 4 05356 TIX RTX152,4,2 THATTHE SXD LOCATION IS STORED F2E03650 05356 -0634 00 4 11671 RTX152 SXD BLKNUM,4 PROPERLY INTO DOTAG. F2E03660 05357 0074 00 4 10146 TSX EDCB,4 COMPILE 2ND TXI SXD TIX. F2E03670 BINARY CARD NO. 9F210036 05360 0020 00 0 05410 TRA RTX160 F2E03680 05361 0074 00 4 10201 RTX154 TSX BCDE,4 E IS VARIABLE. THIS TAKES F2E03690 05362 0074 00 4 07654 TSX CILV,4 CARE OF FIRST 3 INSTRUCTIONS.P F2E03700 05363 0074 00 4 10260 TSX CIL23,4 THE REMAINING THREE ARE F2E03710 05364 0500 00 0 11503 CLA L(TXI) F2E03720 05365 0601 00 0 11624 STO CIL01 NOW COMPILED. F2E03730 05366 0074 00 4 07532 TSX CIT,4 F2E03740 05367 -0534 00 4 11671 LXD BLKNUM,4 CHANGE BLKNUM F2E03750 05370 2 00002 4 05370 RTX157 TIX RTX157,4,2 FROM E F2E03760 05371 -0634 00 4 11671 SXD BLKNUM,4 TO C AND F2E03770 05372 0074 00 4 07236 TSX CSXD,4 TSX CSXD. F2E03780 05373 -0534 00 4 11671 LXD BLKNUM,4 F2E03790 05374 1 00002 4 05375 TXI RTX157+5,4,2 F2E03800 05375 -0634 00 4 11671 SXD BLKNUM,4 F2E03810 05376 -0534 00 2 11472 LXD TAG2,2 PLACE LOCATION OF SXD F2E03820 05377 0500 00 0 11623 CLA CIL00 INSTRUCTION IN PROPER DOTAG ENTRY F2E03830 05400 -0320 00 0 11572 ANA ADMSK AND POSITION. (LEFT SUB DO). F2E03840 05401 0767 00 0 00014 ALS 12 F2E03850 05402 -0602 00 2 45634 ORS DOTAGZ+6,2 F2E03860 05403 0074 00 4 07654 TSX CILV,4 GENERATE AND F2E03870 05404 0074 00 4 10260 TSX CIL23,4 F2E03880 05405 0500 00 0 11506 CLA L(TIX) COMPILE REMAINING INSTRC. F2E03890 BINARY CARD NO. 9F210037 05406 0601 00 0 11624 STO CIL01 F2E03900 05407 0074 00 4 07532 TSX CIT,4 PUT INTO BUFFER. F2E03910 05410 -0534 00 2 11652 RTX160 LXD DOIND,2 FINDING S.C. WHICH F2E03920 05411 0500 00 2 45636 CLA DOTAGZ+8,2 HAS AN S THAT IS THE TEST. F2E03930 05412 -0320 00 0 11541 ANA TETMSK F2E03940 05413 0601 00 0 11666 STO ERTX01 TEST NAME. F2E03950 05414 0500 00 0 11475 CLA TAG3 COMPARE TAG NAME F2E03960 05415 0767 00 0 00022 ALS 18 WITH BEST TEST F2E03970 05416 -0320 00 0 04001 ANA DECMSK OF CURRENT DO. F2E03980 05417 0402 00 0 11666 SUB ERTX01 IF THIS TAG IS F2E03990 05420 -0100 00 0 05423 TNZ RTX164 BEST TEST, F2E04000 05421 0500 00 0 11660 CLA XTG STORE ITS INDEX F2E04010 05422 0601 00 0 11642 STO TETTGX IN TETTGX. F2E04020 05423 0020 00 0 05021 RTX164 TRA RTX06 GO TO FIND FOR NEXT TAG. F2E04030 05424 0500 00 0 11550 RTX180 CLA INST26 RTX184 LOCATION. F2E04040 05425 0621 00 0 05126 STA RTX69+1 RESET AT END OF ROUTINE. F2E04050 05426 0534 00 4 11557 LXA LADMX,4 PREPARE FOR ADTAG TXI. F2E04060 05427 1 00004 4 05430 TXI RTX180+4,4,4 F2E04070 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 103 BLOCK E. 05430 -0634 00 4 11660 SXD XTG,4 F2E04080 05431 0500 00 0 11545 CLA INST20 ADTGA LOCATION. F2E04090 05432 0621 00 0 10142 STA TGA8 F2E04100 05433 0074 00 4 07262 RTX184 TSX ADTGSE,4 SEARCH FOR ADTAG. F2E04110 BINARY CARD NO. 9F210038 05434 0020 00 0 05462 TRA RTX192 END OF TABLE, START TX PHASE. F2E04120 05435 -0754 00 2 00000 PXD 0,2 ENTRY FOUND, CONTINUE ADTG CYCLE. F2E04130 05436 0771 00 0 00022 ARS 18 POSIND IN ADDRESS. F2E04140 05437 0601 00 0 11661 STO POSIND F2E04150 05440 0500 00 0 11476 CLA TAG4 LOOK AT F2E04160 05441 0771 00 0 00025 ARS 21 CARRY BITS. F2E04170 05442 3 00002 2 05447 TXH RTX190,2,2 S1, BLOCK A. F2E04180 05443 -3 00001 2 05445 TXL RTX188,2,1 S3 F2E04190 05444 0771 00 0 00002 ARS 2 S2 F2E04200 05445 -0320 00 0 04005 RTX188 ANA $L(3) F2E04210 05446 -0100 00 0 05433 TNZ RTX184 CARRY T1 OR T2 BLOCK F. F2E04220 05447 0500 00 0 11656 RTX190 CLA N3IND F2E04230 05450 0100 00 0 05032 TZE RTX020 DECREMENT IS CONSTANT. F2E04240 05451 0074 00 4 07654 TSX CILV,4 DECREMENT IS VARIABLE. F2E04250 05452 0500 00 0 11623 CLA CIL00 INSTRUCTION IS COMPILED F2E04260 05453 -0320 00 0 11572 ANA ADMSK AND ENTRY IS MADE F2E04270 05454 0074 00 4 10131 TSX TGA,4 IN APPENDED DRM TG WORD. F2E04280 05455 0074 00 4 10260 TSX CIL23,4 F2E04290 05456 0500 00 0 11503 CLA L(TXI) COMPILE F2E04300 05457 0601 00 0 11624 STO CIL01 TXI AND PUT F2E04310 05460 0074 00 4 07532 TSX CIT,4 IN CIB. F2E04320 05461 0020 00 0 05433 TRA RTX184 GET NEW ADTAG. F2E04330 BINARY CARD NO. 9F210039 05462 0500 00 0 11547 RTX192 CLA INST24 RESET MODIFIED F2E04340 05463 0621 00 0 05126 STA RTX69+1 ADDRESSES FOR F2E04350 05464 0500 00 0 11546 CLA INST22 TXI CYCLE. F2E04360 05465 0621 00 0 10142 STA TGA8 F2E04370 05466 -0534 00 1 11642 RTX195 LXD TETTGX,1 DETERMINE IF THIS DO HAS A TEST. F2E04380 05467 3 00000 1 05501 TXH RTX197,1,0 THIS DO HAS A TEST. F2E04390 05470 -0534 00 2 11652 RTX196 LXD DOIND,2 NO TXL, F2E04400 05471 0500 00 2 45626 CLA DOTAGZ,2 MAKE F2E04410 05472 0767 00 0 00004 ALS 4 ENTRY F2E04420 05473 0771 00 0 00004 ARS 4 INTO F2E04430 05474 -0534 00 1 73041 LXD CARWC,1 DOCARE. F2E04440 05475 0601 00 1 73042 STO DOCARE,1 F2E04450 05476 1 77777 1 05477 TXI *+1,1,-1 UPDATE DOCARE WORD COUNT. F2E04460 05477 -0634 00 1 73041 SXD CARWC,1 F2E04470 05500 0020 00 0 05733 TRA RTX280 F2E04480 05501 0760 00 0 00140 RTX197 PSE 096 CLEAR SENSE LIGHTS. F2E04490 05502 0074 00 4 07075 TSX TGFM,4 FILL OUT TAG WORDS. F2E04500 05503 0074 00 4 07066 TSX ISC,4 FIND DOSUB. F2E04510 05504 0074 00 4 03746 TSX ERRORM,4 DOIND (XR VALUE OF CURRENT F2E04520 DOTAG ENTRY) MUST MATCH ONE 3 F2E04530 OF THE 3 TAG2 WDS TAKEN FROM F2E04540 THE XR1 TAGTAG ENTRY (FILE 2 F2E04550 TAPE 4). THIS IS AN ERROR F2E04560 RETURN FROM ISC. F2E04570 05505 -0754 00 2 00000 PXD 0,2 FORM F2E04580 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 104 BLOCK E. 05506 0771 00 0 00022 ARS 18 POSITION F2E04590 05507 0601 00 0 11661 STO POSIND INDICATOR. F2E04600 BINARY CARD NO. 9F210040 05510 0074 00 4 07654 TSX CILV,4 OBTAIN LOCATION FOR TEST, F2E04610 05511 -0534 00 2 11652 LXD DOIND,2 ISOLATE F2E04620 05512 0074 00 4 10253 TSX NBITS,4 NBITS. F2E04630 05513 0601 00 0 11657 STO N1N2N3 F2E04640 05514 0500 00 2 45631 CLA DOTAGZ+3,2 F2E04650 05515 -0320 00 0 11540 ANA 6ONES F2E04660 05516 -0100 00 0 05556 TNZ RTX210 N2 IS VARIABLE F2E04670 05517 0534 00 1 11661 LXA POSIND,1 F2E04680 05520 -2 00001 1 05526 RTX198 TNX RTX200,1,1 IS POSITION S3. F2E04690 05521 0500 00 0 11476 CLA TAG4 CHECK FOR DORC F2E04700 05522 -0320 00 1 11602 ANA BITMSK+2,1 F2E04710 05523 0601 00 0 11675 STO N1SBX N1 BIT. F2E04720 05524 0074 00 4 07332 TSX N1S02,4 F2E04730 05525 -0100 00 0 05556 TNZ RTX210 TXL VARIABLE DECREMENT. F2E04740 05526 -0534 00 1 11475 RTX200 LXD TAG3,1 F2E04750 05527 3 00000 1 05532 TXH RTX201,1,0 F2E04760 05530 0074 00 4 07112 TSX ENTR,4 NOT NORMAL TAG, LAY OUT SIMULATED F2E04770 05531 0020 00 0 05535 TRA RTX202 TAU ENTRY INTO WRKSC. F2E04780 05532 0500 00 0 11475 RTX201 CLA TAG3 PREPARE FOR F2E04790 05533 0771 00 0 00022 ARS 18 SUBCOM ROUTINE. F2E04800 05534 0074 00 4 04131 TSX $SUBCM,4 LAY OUT TAU ENTRY. F2E04810 05535 -0534 00 2 11652 RTX202 LXD DOIND,2 PREPARE FOR AND CALL CXIJ F2E04820 BINARY CARD NO. 9F210041 05536 0534 00 1 11661 LXA POSIND,1 ROUTINE TO COMPUTE XGN3. F2E04830 05537 0500 00 2 45631 CLA DOTAGZ+3,2 PTCH06 CALLS TELC ROUTINE F2E04840 05540 0074 00 4 07215 TSX CXIJ+2,4 F2E04850 05541 -2 00001 1 05544 TNX RTX204,1,1 F2E04860 05542 0074 00 4 07150 TSX TELC+2,4 COMPUTES LOAD VALUE FOR F2E04870 05543 0020 00 0 11677 TRA RTX205 DEC, STO IN ERTX01.MAX.OF 32767 (26)F2E04880 05544 0601 00 0 11624 RTX204 STO CIL01 FINAL TXL DECREMENT. F2E04890 05545 -0500 00 0 11507 CAL L(TXL) F2E04900 05546 -0602 00 0 11624 ORS CIL01 F2E04910 05547 0074 00 4 10267 TSX CILNAM,4 ENTER TAG NAME IN CIL03. F2E04920 05550 0500 00 0 11646 CLA A ALPHA PLUS ONE IS F2E04930 05551 0400 00 0 04004 ADD $L1DEC ENTERED AS SYMBOLIC F2E04940 05552 0601 00 0 11625 STO CIL02 ADDRESS. F2E04950 05553 0074 00 4 07532 TSX CIT,4 ENTER TXL IN BUFFER. F2E04960 05554 0500 00 0 11565 CLA L(0) ELIMINATE VARIABLE INDICATOR BIT. F2E04970 05555 0020 00 0 05566 TRA RTX214 F2E04980 05556 0500 00 0 11507 RTX210 CLA L(TXL) COMPILE INSTR FOR VARIABLE DECR. F2E04990 05557 0601 00 0 11624 STO CIL01 F2E05000 05560 0074 00 4 10267 TSX CILNAM,4 ENTER TAG NAME. F2E05010 05561 0500 00 0 11646 CLA A ALPHA PLUS ONE IS F2E05020 05562 0400 00 0 04004 ADD $L1DEC ENTERED AS THE F2E05030 05563 0601 00 0 11625 STO CIL02 SYMBOLIC ADDRESS. F2E05040 BINARY CARD NO. 9F210042 05564 0074 00 4 07532 TSX CIT,4 ENTER COMPILED TXL IN BUFFER. F2E05050 05565 0500 00 0 11604 CLA BIT20 TEST VARIABLE INDICATOR. F2E05060 05566 -0534 00 2 11652 RTX214 LXD DOIND,2 ENTERONE IN BIT 20 IF F2E05070 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 105 BLOCK E. 05567 -0602 00 2 45636 ORS DOTAGZ+8,2 VARIABLE DECREMENT. F2E05080 05570 0500 00 0 11623 CLA CIL00 STORE LOCATION F2E05090 05571 0767 00 0 00030 ALS 24 OF F2E05100 05572 -0602 00 2 45634 ORS DOTAGZ+6,2 TEST. F2E05110 05573 0760 00 0 00141 PSE 097 SET SENSE INDICATOR SO F2E05120 05574 -0534 00 1 11643 RTX222 LXD RTXTGX,1 START SCAN FOR TIXING. F2E05130 05575 -0634 00 1 11660 SXD XTG,1 F2E05140 05576 0074 00 4 07044 RTX226 TSX FIND,4 FIND VALID TAG. FILL TAG WORDS. F2E05150 05577 0020 00 0 05712 TRA RTX260 END OF DO. F2E05160 05600 -0634 00 1 11660 SXD XTG,1 SAVE IX OF TAG UNDER CONSIDERATION. F2E05170 05601 0074 00 4 07133 RTX228 TSX SCLMN1,4 COMPARE LARGEST S INDES F2E05180 05602 0402 00 0 11652 SUB DOIND WITH INDEX OF THE DO. F2E05190 05603 0100 00 0 05655 TZE RTX234 DO IS OUTER, OBTAIN TAG. F2E05200 05604 -0534 00 2 11475 LXD TAG3,2 F2E05210 05605 3 00000 2 05614 TXH RTX229,2,0 CURRENT TAG VALID, FILL OUT WRKSC. F2E05220 05606 0500 00 0 11475 CLA TAG3 NEW TAG, DETERMINE F2E05230 05607 0771 00 0 00013 ARS 11 IF TAU ENTRY F2E05240 05610 0760 00 0 00001 LBT EXISTS. F2E05250 05611 0020 00 0 05621 TRA RTX229+5 NO,TSX ENTR. F2E05260 BINARY CARD NO. 9F210043 05612 0500 00 0 11475 CLA TAG3 YES, TSX F2E05270 05613 0020 00 0 05616 TRA RTX229+2 SUBCOM. F2E05280 05614 0500 00 0 11475 RTX229 CLA TAG3 CURRENT TAG F2E05290 05615 0771 00 0 00022 ARS 18 VALID. F2E05300 05616 -0320 00 0 11603 ANA 11BITS FILL OUT F2E05310 05617 0074 00 4 04131 TSX $SUBCM,4 WRKSC AND F2E05320 05620 0020 00 0 05622 TRA RTX230 CONTINUE. F2E05330 05621 0074 00 4 07112 TSX ENTR,4 ARTIFICIAL WRKSC ENTRY. F2E05340 05622 0534 00 4 11661 RTX230 LXA POSIND,4 F2E05350 05623 2 00001 4 05625 TIX CLA,4,1 MOVE RIGHT ONE POSITION. F2E05360 05624 0020 00 0 05641 TRA RTX232 POSITION IS RIGHT, IGNORE CARRY. F2E05370 05625 0500 00 0 11476 CLA CLA TAG4 POSITION IS LEFT OR CENTER, F2E05380 05626 0771 00 0 00001 ARS 1 OR TYPE 1 AND 2 F2E05390 05627 -0501 00 0 11476 ORA TAG4 CARRY BITS FOR LEFT F2E05400 05630 -3 00001 4 05633 TXL ARS,4,1 AND CENTER POSITIONS. F2E05410 05631 0771 00 0 00027 ARS 23 S2 CARRY BIT IN POSITION 35. F2E05420 05632 0020 00 0 05634 TRA LBT F2E05430 05633 0771 00 0 00025 ARS ARS 21 S3 CARRY BIT IN POSITION 35 F2E05440 05634 0760 00 0 00001 LBT LBT TEST FOR DOSUB CARRY BIT. F2E05450 05635 0020 00 0 05641 TRA RTX232 NO CARRY, CONTINUE. F2E05460 05636 0500 00 0 11642 CLA TETTGX CARRY, SEE IF THIS F2E05470 05637 0402 00 0 11660 SUB XTG TAG IS BEST TEST. F2E05480 BINARY CARD NO. 9F210044 05640 -0100 00 0 05711 TNZ RTX254 NO, GET NEXT TAG. F2E05490 05641 0500 00 0 11506 RTX232 CLA L(TIX) COMPILE TIX INSTRUCTION. F2E05500 05642 0601 00 0 11624 STO CIL01 F2E05510 05643 0500 00 0 11657 CLA N1N2N3 TEST FOR VARIABLE DECREMENT. F2E05520 05644 0100 00 0 05660 TZE RTX238 DECREMENT IS CONSTANT. F2E05530 05645 -0760 00 0 00141 MSE 097 DECREMENT IS VARIABLE8 TURN OFF F2E05540 05646 0761 00 0 00000 NOP LIGHT INDICATION FIRST F2E05550 05647 0074 00 4 07654 TSX CILV,4 TIX AFTER TXL AND ASSIGN F2E05560 05650 0074 00 4 10260 TSX CIL23,4 LOCATION. F2E05570 05651 0500 00 0 11623 CLA CIL00 WHEN DECREMENT IS VARIABLE, LOCATIONF2E05580 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 106 BLOCK E. 05652 -0320 00 0 11572 ANA ADMSK MUST BE STORED IN TGA WORD F2E05590 05653 0074 00 4 10132 TSX TGAT,4 FOR SXD ADDRESS IS OBJECT TIME. F2E05600 05654 0020 00 0 05710 TRA RTX250 NOW PERFORM COMPILING. F2E05610 05655 0500 00 0 11510 RTX234 CLA L(DED) COMPILE OP WHICH INDICATES F2E05620 05656 0601 00 0 11624 STO CIL01 SC IS DEAD. F2E05630 05657 0020 00 0 05702 TRA RTX242 ASSIGN LOCATION IF NECESSARY. F2E05640 05660 0534 00 1 11661 RTX238 LXA POSIND,1 DECREMENT IS CONSTANT. F2E05650 05661 -0534 00 2 11652 LXD DOIND,2 TEST FOR DUPLICATES F2E05660 05662 0074 00 4 07213 TSX CXIJ,4 AND COMPUTE ACCORDINGLY. F2E05670 05663 0601 00 0 11666 STO ERTX01 XN3G IN ERTX01. F2E05680 05664 0560 00 0 11476 LDQ TAG4 TEST F2E05690 05665 0763 00 1 00033 LLS 27,1 FOR F2E05700 BINARY CARD NO. 9F210045 05666 0760 00 0 00001 LBT DUPES. F2E05710 05667 0020 00 0 05700 TRA RTX240 NO DUPES. F2E05720 05670 1 00001 1 05671 RTX239 TXI RTX239+1,1,1 DUPES EXIST F2E05730 05671 0560 00 0 11476 LDQ TAG4 TEST DUPE F2E05740 05672 0763 00 1 00033 LLS 27,1 BITS OF POSITIONS F2E05750 05673 0760 00 0 00001 LBT TO THE LEFT OF DOSUB F2E05760 05674 0020 00 0 05670 TRA RTX239 UNTIL THAT POSITION IS F2E05770 05675 0074 00 4 07213 TSX CXIJ,4 IN XA, THEN CALLCXIJ F2E05780 05676 0400 00 0 11666 ADD ERTX01 AND COMPUTE AND ADD F2E05790 05677 0601 00 0 11666 STO ERTX01 DECREMENT ADJUSTMENT. F2E05800 05700 0500 00 0 11666 RTX240 CLA ERTX01 PUT COMPUTED DE EREMTN F2E05810 05701 0621 00 0 11624 STA CIL01 IN CIL01 WORD. F2E05820 05702 -0760 00 0 00141 RTX242 MSE 097 A LOC MUST BE ASSIGNED IF F2E05830 05703 0020 00 0 05707 TRA RTX246 F2E05840 05704 0074 00 4 07654 TSX CILV,4 THIS IS FIRST TIX AFTER F2E05850 05705 0074 00 4 10260 TSX CIL23,4 TEST. F2E05860 05706 0020 00 0 05710 TRA RTX250 F2E05870 05707 0074 00 4 10120 RTX246 TSX CIL023,4 F2E05880 05710 0074 00 4 07532 RTX250 TSX CIT,4 COMPILE INST. F2E05890 05711 0020 00 0 05576 RTX254 TRA RTX226 RETURN FOR NEXT TG. F2E05900 05712 0534 00 4 11557 RTX260 LXA LADMX,4 START DRMTG SEARCH AND F2E05910 05713 1 00004 4 05714 TXI RTX260+2,4,4 F2E05920 BINARY CARD NO. 9F210046 05714 -0634 00 4 11660 SXD XTG,4 COMPILING F2E05930 05715 0074 00 4 07262 RTX264 TSX ADTGSE,4 FIND VALID TAG, FILL OUT TAG WDS. F2E05940 05716 0020 00 0 05727 TRA RTX270 END OF TABLE F2E05950 05717 -0754 00 2 00000 PXD 0,2 STORE POSITION F2E05960 05720 0771 00 0 00022 ARS 18 OF DOSUB F2E05970 05721 0601 00 0 11661 STO POSIND IN POSIND. F2E05980 05722 0500 00 0 11551 CLA INST30 MODIFY TGTG F2E05990 05723 0621 00 0 05711 STA RTX254 TIX COMPILING F2E06000 05724 0500 00 0 11545 CLA INST20 ROUTINE TO F2E06010 05725 0621 00 0 10142 STA TGA8 F2E06020 05726 0020 00 0 05601 TRA RTX228 AND EXECUTE. F2E06030 05727 0500 00 0 11552 RTX270 CLA INST32 ADTG PORTION FINISHED. F2E06040 05730 0621 00 0 05711 STA RTX254 REMODIFY TIX COMPILING F2E06050 05731 0500 00 0 11546 CLA INST22 ROUTINE FOR TGTGS. F2E06060 05732 0621 00 0 10142 STA TGA8 END OF BETA CYCLE8 RETURN TO 1 PLUS F2E06070 05733 -0534 00 4 05037 RTX280 LXD RTX024,4 LOCATION OF THE INSTRUCTION F2E06080 05734 0020 00 4 00002 TRA 2,4 F2E06090 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 107 BLOCK E. F2E06100 F2E06110 BEGIN ALPHA STATE F2E06120 THE ALPHA STATE, AC, IS CALLED BY MAN TO COMPILE ALL INITIALIF2E06130 ZATION AND LOAD INSTRUCTIONS WHEN AN ALPH OF A DO IS UNDER CF2E06140 CONSIDERATION. F2E06150 05735 -0634 00 4 06716 AC SXD AC248,4 SAVE LINKAGE. F2E06160 05736 0601 00 0 11665 STO VCTR F2E06170 05737 0535 00 1 65457 LAC SXDWC,1 F2E06180 05740 0500 00 2 45634 CLA DOTAGZ+6,2 2 F2E06190 05741 0771 00 0 00033 ARS 27 WORD F2E06200 BINARY CARD NO. 9F210047 05742 -0320 00 0 11617 ANA 6ONESR ENTRY F2E06210 05743 0767 00 0 00003 ALS 3 IN F2E06220 05744 0400 00 0 11647 ADD B SXDTX F2E06230 05745 0601 00 1 65461 STO SXTX+1,1 F2E06240 05746 0500 00 2 45626 CLA DOTAGZ,2 F2E06250 05747 -0320 00 0 11530 ANA NOPRET F2E06260 05750 0601 00 1 65460 STO SXTX,1 F2E06270 05751 0534 00 1 65457 LXA SXDWC,1 UPDATE SXDTX WORD COUNT. F2E06280 05752 1 00002 1 05753 TXI AC03,1,2 F2E06290 05753 0634 00 1 65457 AC03 SXA SXDWC,1 F2E06300 05754 0500 00 0 11555 AC05 CLA ALLONE INITIALIZE CIL WORDS F2E06310 05755 0601 00 0 07645 STO BLSW BLOCK INDICATOR. F2E06320 05756 0074 00 4 07035 TSX SCAN,4 SCAN AND FIND PICK F2E06330 05757 -0634 00 1 11643 SXD RTXTGX,1 F2E06340 05760 -0634 00 1 11660 SXD XTG,1 BY A DO WITHIN ALPHA F2E06350 05761 0074 00 4 07044 AC010 TSX FIND,4 AND BETA. F2E06360 05762 0020 00 0 06704 TRA AC240+1 END OF DO FOR DOTAG. F2E06370 05763 -0634 00 1 11660 SXD XTG,1 STORE TGTG INDEX IN XTG. F2E06380 05764 0074 00 4 07133 AC014 TSX SCLMN1,4 OBTAIN X FOR MINLEV OF S.C. F2E06390 05765 -0534 00 1 11660 LXD XTG,1 SET UP FOR FIND ROUTINE. F2E06400 05766 0402 00 0 11652 SUB DOIND TEST TO SEE IF THIS IS F2E06410 05767 -0100 00 0 05761 AC016 TNZ AC010 THE OUTERMOST DO. F2E06420 BINARY CARD NO. 9F210048 05770 -0534 00 1 11475 LXD TAG3,1 IF IT IS PROCEED TO F2E06430 05771 3 00000 1 06004 TXH AC018,1,0 COMPILE PROPER INST. F2E06440 05772 0500 00 0 11475 CLA TAG3 NO CURRENT TG, USE NEW TG. F2E06450 05773 0771 00 0 00013 ARS 11 CHECK RESET TAG BIT F2E06460 05774 0760 00 0 00001 LBT OR INSERTED COUNTER. F2E06470 05775 0020 00 0 06000 TRA AC016I RESET TYPE ENTRY, USE NEW TAG. F2E06480 05776 0074 00 4 07112 TSX ENTR,4 CTR. TYPE ENTRY, SIMULATE F2E06490 05777 0020 00 0 06007 TRA AC020 WRKSC AND CONTINUE. F2E06500 06000 0500 00 0 11475 AC016I CLA TAG3 RESET TYPE ENTRY F2E06510 06001 -0320 00 0 11603 ANA 11BITS LAY OUT TAU ENTRIES F2E06520 06002 0074 00 4 04131 TSX $SUBCM,4 F2E06530 06003 0020 00 0 06021 TRA AC021 DECRENENT AND CONTINUE. F2E06540 06004 0500 00 0 11475 AC018 CLA TAG3 CURRENT TAG VALID, LAY F2E06550 06005 0771 00 0 00022 ARS 18 OUT TAU DNTRIES INTO F2E06560 06006 0074 00 4 04131 AC019 TSX $SUBCM,4 WRKSC AND CONTINUE F2E06570 06007 0074 00 4 07324 AC020 TSX N1STET,4 F2E06580 06010 0500 00 0 11675 CLA N1SBX VALUE IS CONSTANT F2E06590 06011 -0100 00 0 06044 TNZ AC030 VARIABLE, TRA AC030. F2E06600 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 108 BLOCK E. 06012 0074 00 4 07146 TSX TELC,4 COMPUTE LOAD F2E06610 06013 0500 00 0 11666 CLA ERTX01 VALUE F2E06620 06014 0767 00 0 00022 ALS 18 AND PLACE F2E06630 06015 0400 00 0 04004 ADD $L1DEC IN F2E06640 BINARY CARD NO. 9F210049 06016 0074 00 4 04101 TSX $FXCON,4 FIXCON. F2E06650 06017 0601 00 0 11625 STO CIL02 FIXCON LOCATION SYMBOL. F2E06660 06020 0020 00 0 06024 TRA AC022 CONTINUE. F2E06670 06021 0500 00 0 11534 AC021 CLA BCD0 F2E06680 06022 0601 00 0 11625 STO CIL02 LXD ADDRESS TO BCD ZERO. F2E06690 06023 0600 00 0 11675 STZ N1SBX F2E06700 06024 0500 00 0 11511 AC022 CLA L(LXD) F2E06710 06025 0601 00 0 11624 STO CIL01 LXD F2E06720 06026 0074 00 4 11027 TSX CIL03I,4 FILL OUT LOCATION AND TG WORDS. F2E06730 06027 0500 00 0 11625 CLA CIL02 PLACE LXD ADDRESS F2E06740 06030 0601 00 0 04057 STO ORO00+27 IN ORO TABLE. F2E06750 06031 0734 00 4 00000 PAX 0,4 RELATIVE PART OF FIXCON NAME F2E06760 06032 -0320 00 0 11540 ANA 6ONES F2E06770 06033 0601 00 0 11625 STO CIL02 ADDRESS. F2E06780 06034 -0634 00 4 11626 SXD CIL03,4 RELATIVE ADDRESS. F2E06790 06035 0500 00 0 11644 CLA LOCIND TEST LOCATION INDICATOR. F2E06800 06036 0100 00 0 06043 TZE AC024 F2E06810 06037 0402 00 0 11560 SUB L(1) F2E06820 06040 0601 00 0 11644 STO LOCIND A LOCATION MUST BE F2E06830 06041 0500 00 0 11646 CLA A ASSIGNED FOR 1ST LXD F2E06840 06042 0601 00 0 11623 STO CIL00 COMPILED FOR AN ALPHA. F2E06850 06043 0074 00 4 07532 AC024 TSX CIT,4 PUT IN DOFILE. F2E06860 BINARY CARD NO. 9F210050 06044 0500 00 0 11476 AC030 CLA TAG4 VARIABLE CASE, THE BITS FOR F2E06870 06045 0771 00 0 00003 ARS 3 DEFINING A SUB BY A DO OR F2E06880 06046 -0320 00 0 11532 ANA L(7) A RELCON OR BOTH ARE F2E06890 06047 0601 00 0 11634 STO RELCO ISOLATED IN 3 SEPARATE F2E06900 06050 0500 00 0 11476 CLA TAG4 WORDS, DEFDO, RELCO, AND F2E06910 06051 -0320 00 0 11532 ANA L(7) ORDEDO. F2E06920 06052 0601 00 0 11674 STO DEFDO F2E06930 06053 -0501 00 0 11634 ORA RELCO F2E06940 06054 0601 00 0 11673 STO OREDO F2E06950 06055 0500 00 0 11675 CLA N1SBX IF CONSTANT LOAD, F2E06960 06056 0100 00 0 06233 TZE AC100+2 TRA AC100+2. F2E06970 06057 0500 00 0 11561 CLA L(2) IF VARIABLE LOAD, FILL F2E06980 06060 0074 00 4 11035 TSX BITP,4 ORO TABLE. F2E06990 06061 0020 00 0 06063 TRA AC040 S1 NOT DEFINED. F2E07000 06062 0601 00 0 04025 STO ORO00+1 S1 DEFINED. STO SYMBOL IN ORO+1. F2E07010 06063 0500 00 0 11560 AC040 CLA L(1) REPEAT FOR F2E07020 06064 0074 00 4 11035 TSX BITP,4 S2. F2E07030 06065 0020 00 0 06072 TRA AC046 S2 NOT DEFINED. F2E07040 06066 0601 00 0 04030 STO ORO00+4 S2 DEFINED. PUT SUBSCRIPT F2E07050 06067 0500 00 0 04022 CLA $WRKSC+6 SYMBOL IN ORO+4 AND F2E07060 06070 0074 00 4 04101 TSX $FXCON,4 D1 SYMBOL F2E07070 06071 0601 00 0 04033 STO ORO00+7 IN ORO+7. F2E07080 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 109 BLOCK E. BINARY CARD NO. 9F210051 06072 0500 00 0 11565 AC046 CLA L(0) REPEAT FOR F2E07090 06073 0074 00 4 11035 TSX BITP,4 F2E07100 06074 0020 00 0 06106 TRA AC048-1 F2E07110 06075 0601 00 0 04051 STO ORO00+21 S3 DEFINED. PUT SUBSCRIPT F2E07120 06076 0560 00 0 04022 LDQ $WRKSC+6 SYMBOL IN ORO+21 F2E07130 06077 0200 00 0 04023 MPY $WRKSC+7 AND F2E07140 06100 0767 00 0 00021 ALS 17 PUT F2E07150 06101 0074 00 4 04101 TSX $FXCON,4 D1D2 IN F2E07160 06102 0601 00 0 04054 STO ORO00+24 ORO+24. F2E07170 06103 0500 00 0 04022 CLA $WRKSC+6 F2E07180 06104 0074 00 4 04101 TSX $FXCON,4 GET SYMBOL FOR D1 F2E07190 06105 0601 00 0 04033 STO ORO00+7 AND STORE IN ORO+7. F2E07200 06106 0760 00 0 00140 PSE 96 TURN OFF SENSE LIGHTS. F2E07210 06107 0074 00 4 04062 AC048 TSX $COSE,4 TEST COEFFS OVER 1. F2E07220 06110 0500 00 0 11602 CLA OPMSK F2E07230 06111 -0320 00 0 11476 ANA TAG4 COEFS, 011 RELCONS, 100 CUPE. F2E07240 06112 -0100 00 0 06136 TNZ AC049 SOME OF ABOVE EXIST. F2E07250 06113 -0534 00 1 11473 LXD TAG21,1 NONE OF ABOVE EXIST, F2E07260 06114 -3 00000 1 06116 TXL AC048+7,1,0 IF S2 DEF BY DO, F2E07270 06115 -0500 00 1 45630 CAL DOTAGZ+2,1 ISOLATE N1. F2E07280 06116 -0534 00 1 11474 LXD TAG22,1 IF S3 DEF BY DO, F2E07290 06117 -3 00000 1 06121 TXL AC048+10,1,0 OR N1S OF S2 AND S3. F2E07300 BINARY CARD NO. 9F210052 06120 -0501 00 1 45630 ORA DOTAGZ+2,1 IF EITHER N1 IS GREATER F2E07310 06121 0402 00 0 11560 SUB L(1) THAN 1, RETURN. F2E07320 06122 0100 00 0 06124 TZE AC048I IS S1 IS F2E07330 06123 0120 00 0 06136 TPL AC049 DEFINED BY A DO, F2E07340 06124 -0534 00 1 11472 AC048I LXD TAG2,1 IS/LATE N1. F2E07350 06125 -3 00000 1 06130 TXL AC048I+4,1,0 IF NOT ISOLATE F2E07360 06126 0500 00 1 45630 CLA DOTAGZ+2,1 S1 (BCD). F2E07370 06127 0020 00 0 06131 TRA AC048I+5 F2E07380 06130 0500 00 0 04015 CLA $WRKSC+1 F2E07390 06131 0601 00 0 11625 STO CIL02 STO S1 OR N1 SYMBOL. F2E07400 06132 0074 00 4 11027 TSX CIL03I,4 FILL OUT F2E07410 06133 0500 00 0 11511 CLA L(LXD) COMPILED INSTRUCTION F2E07420 06134 0601 00 0 11624 STO CIL01 WORDS AND CONTINUE F2E07430 06135 0020 00 0 06230 TRA AC100-1 TO INIT PORTION, F2E07440 06136 0534 00 1 11561 AC049 LXA L(2),1 F2E07450 06137 0500 00 0 11673 CLA OREDO IS LEFT SUB A RELCON, F2E07460 06140 -0320 00 0 11562 ANA L(4) DORC, OR DOSUB. F2E07470 06141 0100 00 0 06147 TZE AC049A NO, COMPILE CLA, SUB. F2E07480 06142 -0534 00 2 11472 LXD TAG2,2 YES, IS IT A DOSUB. F2E07490 06143 -3 00000 2 06151 TXL AC049B,2,0 NO. F2E07500 06144 0500 00 2 45630 CLA DOTAGZ+2,2 YES, IS N1(S1)=1. F2E07510 06145 0402 00 0 11560 SUB L(1) F2E07520 BINARY CARD NO. 9F210053 06146 -0100 00 0 06151 TNZ AC049B NO. F2E07530 06147 0500 00 0 11225 AC049A CLA KLX01 F2E07540 06150 0074 00 4 11146 TSX LXC,4 COMPILE CLA, SUB. F2E07550 06151 0500 00 0 11673 AC049B CLA OREDO F2E07560 06152 0771 00 0 00002 ARS 2 DEFINITION. F2E07570 06153 0760 00 0 00001 LBT OF S1. F2E07580 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 110 BLOCK E. 06154 0020 00 0 06167 TRA AC064 S1 IS NOT DEF., TAKE S2. F2E07590 06155 0534 00 1 04005 LXA $L(3),1 S1 DEFINED, GO TO F2E07600 06156 0074 00 4 07345 TSX OP2,4 OPTIMIZING ROUTINE. F2E07610 06157 0534 00 1 11561 LXA L(2),1 AT LEAST 4 COMP INST. F2E07620 06160 -0760 00 0 00141 MSE 97 TEST ON COEF F2E07630 06161 0020 00 0 06163 TRA AC050 GREATER THAN 1. F2E07640 06162 1 00002 1 06165 TXI AC050I,1,2 F2E07650 06163 0500 00 0 11230 AC050 CLA KLX02 L(LXI02) F2E07660 06164 0020 00 0 06166 TRA AC050I+1 F2E07670 06165 0500 00 0 11227 AC050I CLA KLX02I L(LXI05) F2E07680 06166 0074 00 4 11146 TSX LXC,4 COMPILER. F2E07690 06167 0500 00 0 11673 AC064 CLA OREDO F2E07700 06170 0771 00 0 00001 ARS 1 S2 F2E07710 06171 0760 00 0 00001 LBT DEFINED. F2E07720 06172 0020 00 0 06204 TRA AC080 S2 NOT DEFINED. S3. F2E07730 06173 0534 00 1 11561 LXA L(2),1 CALL OP2 ROUTINE F2E07740 BINARY CARD NO. 9F210054 06174 0074 00 4 07345 TSX OP2,4 TO OPTIMIZE. F2E07750 06175 0534 00 1 04006 LXA $L(6),1 COUNTER FOR COMPILING. F2E07760 06176 -0760 00 0 00142 MSE 98 IS COEF GREATER THAN 1. F2E07770 06177 0020 00 0 06202 TRA AC068 NO F2E07780 06200 0500 00 0 11231 CLA KLX03 YES. F2E07790 06201 1 00002 1 06203 TXI AC068+1,1,2 INCREMENT COMPILING COUNTER. F2E07800 06202 0500 00 0 11233 AC068 CLA KLX03I F2E07810 06203 0074 00 4 11146 TSX LXC,4 COMPILE S2 LOAD VALUE. F2E07820 06204 0500 00 0 11673 AC080 CLA OREDO F2E07830 06205 0760 00 0 00001 LBT F2E07840 06206 0020 00 0 06220 TRA AC096 S3 NOT DEFINED, EXIT. F2E07850 06207 0534 00 1 11560 LXA L(1),1 CALL OP2 ROUTINE F2E07860 06210 0074 00 4 07345 TSX OP2,4 FOR OPTIMIZATION. F2E07870 06211 0534 00 1 04006 LXA $L(6),1 COMPILING COUNTER. F2E07880 06212 -0760 00 0 00143 MSE 99 TEST FOR COEF GREATER THAN 1. F2E07890 06213 0020 00 0 06216 TRA AC084 NONE. F2E07900 06214 0500 00 0 11232 CLA KLX05 C3 GREATER THAN 1, COMPILE F2E07910 06215 1 00002 1 06217 TXI AC084+1,1,2 KLX05 BLOCK. F2E07920 06216 0500 00 0 11234 AC084 CLA KLX05I C3=1, COMPILE KLX05I F2E07930 06217 0074 00 4 11146 TSX LXC,4 BLOCK. F2E07940 06220 0074 00 4 11027 AC096 TSX CIL03I,4 COMPILE F2E07950 06221 0500 00 0 11511 CLA L(LXD) LXD. F2E07960 BINARY CARD NO. 9F210055 06222 0601 00 0 11624 STO CIL01 F2E07970 06223 0500 00 0 04056 CLA ORO00+26 ERASABLE OBJECT TIME SYMBOL. F2E07980 06224 0734 00 1 00000 PAX 0,1 F2E07990 06225 -0320 00 0 11540 ANA 6ONES F2E08000 06226 -0634 00 1 11626 SXD CIL03,1 F2E08010 06227 0601 00 0 11625 STO CIL02 F2E08020 06230 0074 00 4 07532 TSX CIT,4 PUT IN BUFFER. F2E08030 06231 0500 00 0 04056 AC100 CLA ORO00+26 F2E08040 06232 0601 00 0 04057 STO ORO00+27 F2E08050 06233 0534 00 1 04005 LXA $L(3),1 PREPARE TO F2E08060 06234 -0634 00 1 11633 AC109 SXD AX,1 CHECK FOR F2E08070 06235 0500 00 1 11475 CLA TAG2+3,1 DUPES. F2E08080 06236 -0734 00 2 00000 PDX 0,2 SAVE INDEX OF S. F2E08090 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 111 BLOCK E. 06237 -3 00000 2 06407 TXL AC160,2,0 POS. NOT MOD. BY DO. F2E08100 06240 -2 00001 1 06245 AC110 TNX AC116,1,1 F2E08110 06241 0340 00 1 11475 CAS TAG2+3,1 SKIP DUPES F2E08120 06242 0020 00 0 06240 TRA AC110 EXCEPT F2E08130 06243 0020 00 0 06407 TRA AC160 RIGHTMOST. F2E08140 06244 0020 00 0 06240 TRA AC110 F2E08150 06245 0500 00 2 45636 AC116 CLA DOTAGZ+8,2 ISOLATE F2E08160 06246 -0320 00 0 11620 ANA 6TO17 NAME OF TEST F2E08170 06247 0601 00 0 11630 STO TETTG FOR THIS DO F2E08180 BINARY CARD NO. 9F210056 06250 0500 00 0 11475 CLA TAG3 AND F2E08190 06251 -0320 00 0 11621 ANA 24TO35 COMPARE F2E08200 06252 0767 00 0 00022 ALS 18 WITH F2E08210 06253 0340 00 0 11630 CAS TETTG CURRENT TAG. F2E08220 06254 0020 00 0 06407 TRA AC160 NOT A TEST TAG. F2E08230 06255 0020 00 0 06257 TRA AC120 THIS IS A TEST TAG. F2E08240 06256 0020 00 0 06407 TRA AC160 NOT A TEST TAG. F2E08250 06257 0500 00 2 45631 AC120 CLA DOTAGZ+3,2 THIS IS TEST TAG, F2E08260 06260 -0320 00 0 11540 ANA 6ONES 18 N2 CONSTANT. F2E08270 06261 -0100 00 0 06266 TNZ AC128 F2E08280 06262 0500 00 2 45636 CLA DOTAGZ+8,2 IF RIGHT TEST HAS VARIABLE DECREMENTF2E08290 06263 -0320 00 0 11604 ANA BIT20 GO TO AC138 +4 F2E08300 06264 0100 00 0 06273 TZE AC138 INSTEAD OF F2E08310 06265 0020 00 0 06277 TRA AC138+4 F2E08320 06266 0500 00 2 45631 AC128 CLA DOTAGZ+3,2 F2E08330 06267 0601 00 0 11625 STO CIL02 PUT N2 WORD AS F2E08340 06270 0500 00 0 11565 CLA L(0) SYMBOLIC ADDRESS AND F2E08350 06271 0601 00 0 11626 STO CIL03 ZERO AS THE F2E08360 06272 0020 00 0 06324 TRA AC140 RELATIVE ADDRESS. F2E08370 06273 0560 00 2 45634 AC138 LDQ DOTAGZ+6,2 CONSTANT N2 CASE. F2E08380 06274 -0773 00 0 00011 RQL 9 IS TEST F2E08390 06275 -0763 00 0 00014 LGL 12 MODIFIED. F2E08400 BINARY CARD NO. 9F210057 06276 0100 00 0 06407 TZE AC160 NO, TAKE NEXT SUB. F2E08410 06277 0500 00 2 45631 CLA DOTAGZ+3,2 YES, ISOLATE N2. F2E08420 06300 -0534 00 1 11633 LXD AX,1 F2E08430 06301 0074 00 4 07215 TSX CXIJ+2,4 IF POSITION IS F2E08440 06302 -2 00001 1 06313 TNX AC139,1,1 F2E08450 06303 0601 00 0 11527 STO ESTORE F2E08460 06304 0500 00 2 45636 CLA DOTAGZ+8,2 DOES TEST F2E08470 06305 -0320 00 0 11604 ANA BIT20 HAVE VARIABLE DECREMENT. F2E08480 06306 -0100 00 0 06312 TNZ AC139-1 F2E08490 06307 0500 00 0 11527 CLA ESTORE F2E08500 06310 0074 00 4 07150 TSX TELC+2,4 F2E08510 06311 0020 00 0 06313 TRA AC139 F2E08520 06312 0500 00 0 11527 CLA ESTORE F2E08530 06313 0767 00 0 00022 AC139 ALS 18 F2E08540 06314 0074 00 4 04101 TSX $FXCON,4 ASSIGN SYMBOL FOR F2E08550 06315 0734 00 1 00000 PAX 0,1 LOAD PORTION F2E08560 06316 -0320 00 0 11540 ANA 6ONES AND COMPILE F2E08570 06317 0601 00 0 11625 STO CIL02 CLAL(GN2 + LOAD PORT.) F2E08580 06320 0500 00 0 11565 CLA L(0) F2E08590 06321 0601 00 0 11626 STO CIL03 F2E08600 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 112 BLOCK E. 06322 -0634 00 1 11626 SXD CIL03,1 F2E08610 06323 0020 00 0 06331 TRA AC144 F2E08620 BINARY CARD NO. 9F210058 06324 0500 00 0 11560 AC140 CLA L(1) F2E08630 06325 -0534 00 1 11633 LXD AX,1 COMPUTE G AND DETERMINE F2E08640 06326 0074 00 4 07215 TSX CXIJ+2,4 IF GREATER THAN ONE. F2E08650 06327 0402 00 0 11560 SUB L(1) F2E08660 06330 -0100 00 0 06337 TNZ AC146 F2E08670 06331 0500 00 0 04061 AC144 CLA L(CLA) G = 1, F2E08680 06332 0601 00 0 11624 STO CIL01 COMPILE F2E08690 06333 0500 00 0 11565 CLA L(0) CLA N2, FOLLOWED F2E08700 06334 0601 00 0 11623 STO CIL00 LATER BY STD. F2E08710 06335 0074 00 4 07532 TSX CIT,4 F2E08720 06336 0020 00 0 06350 TRA AC150 F2E08730 06337 0400 00 0 11560 AC146 ADD L(1) G GREATER THAN 1, F2E08740 06340 0767 00 0 00022 ALS 18 COMPILE F2E08750 06341 0074 00 4 04101 TSX $FXCON,4 LDQ, MPY, ALS. F2E08760 06342 0601 00 0 04035 STO ORO00+9 F2E08770 06343 0500 00 0 11625 CLA CIL02 F2E08780 06344 0601 00 0 04025 STO ORO00+1 F2E08790 06345 0500 00 0 11227 CLA KLX02I F2E08800 06346 0534 00 1 04005 LXA $L(3),1 F2E08810 06347 0074 00 4 11146 TSX LXC,4 F2E08820 06350 -0534 00 1 11633 AC150 LXD AX,1 F2E08830 06351 0500 00 1 11475 CLA TAG3,1 F2E08840 BINARY CARD NO. 9F210059 06352 -0734 00 2 00000 PDX 0,2 F2E08850 06353 0500 00 2 45636 CLA DOTAGZ+8,2 F2E08860 06354 -0320 00 0 11604 ANA BIT20 F2E08870 06355 -0534 00 2 11633 LXD AX,2 F2E08880 06356 0100 00 0 06377 TZE AC157 F2E08890 06357 -2 00001 2 06377 TNX AC157,2,1 F2E08900 06360 0534 00 1 11560 LXA L(1),1 F2E08910 06361 0500 00 0 11226 CLA KLX01I F2E08920 06362 0074 00 4 11146 TSX LXC,4 F2E08930 06363 0500 00 0 11615 CLA INST13 F2E08940 06364 0601 00 0 06220 STO AC096 F2E08950 06365 0074 00 4 04062 TSX $COSE,4 F2E08960 06366 -0534 00 2 11633 LXD AX,2 F2E08970 06367 -3 00002 2 06204 TXL AC080,2,2 F2E08980 06370 0020 00 0 06167 TRA AC064 F2E08990 06371 0500 00 0 11616 AC155 CLA INST14 F2E09000 06372 0601 00 0 06220 STO AC096 F2E09010 06373 -0534 00 2 11633 LXD AX,2 F2E09020 06374 -0534 00 4 11622 LXD BBOX,4 F2E09030 06375 1 00004 4 06376 TXI AC155+5,4,4 F2E09040 06376 -0634 00 4 11622 SXD BBOX,4 F2E09050 06377 0074 00 4 11066 AC157 TSX TESTLO,4 F2E09060 BINARY CARD NO. 9F210060 06400 0500 00 0 11676 CLA TETLOC IN TETLO. F2E09070 06401 0601 00 0 11625 STO CIL02 COMPILE F2E09080 06402 0500 00 0 11512 CLA L(STD) STD TETLO F2E09090 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 113 BLOCK E. 06403 0601 00 0 11624 STO CIL01 AND RETURN TO F2E09100 06404 -0634 00 0 11623 SXD CIL00,0 AC160 TO F2E09110 06405 -0634 00 0 11626 SXD CIL03,0 CONSIDER NEXT F2E09120 06406 0074 00 4 07532 TSX CIT,4 SUB OF TAG. F2E09130 06407 -0534 00 1 11633 AC160 LXD AX,1 F2E09140 06410 2 00001 1 06234 TIX AC109,1,1 REDUCE POS. CTR. F2E09150 06411 0500 00 0 11476 CLA TAG4 CHECK SUSBIT F2E09160 06412 0120 00 0 06434 TPL AC165 FOR FORVAR. F2E09170 06413 -0534 00 2 11652 LXD DOIND,2 FORVAR, IS IT F2E09180 06414 0500 00 2 45633 CLA DOTAGZ+5,2 WITHIN THE CURRENT DO. F2E09190 06415 -0320 00 0 11567 ANA BIT1 F2E09200 06416 0100 00 0 06434 TZE AC165 NO, AC165. F2E09210 06417 0500 00 0 11565 CLA L(0) YES, F2E09220 06420 0601 00 0 11625 STO CIL02 COMPILE F2E09230 06421 0074 00 4 11027 TSX CIL03I,4 INSTRUCTIONS F2E09240 06422 0500 00 0 11504 CLA L(PXD) TO F2E09250 06423 0601 00 0 11624 STO CIL01 STORE F2E09260 06424 0074 00 4 07532 TSX CIT,4 THE F2E09270 06425 0500 00 2 45627 CLA DOTAGZ+1,2 VALUE F2E09280 BINARY CARD NO. 9F210061 06426 0601 00 0 11625 STO CIL02 OF F2E09290 06427 0500 00 0 04060 CLA L(STO) THE F2E09300 06430 0601 00 0 11624 STO CIL01 SUBSCRIPT F2E09310 06431 -0754 00 0 00000 PXD 0,0 INTO F2E09320 06432 0601 00 0 11626 STO CIL03 ITS F2E09330 06433 0074 00 4 07532 TSX CIT,4 SYMBOL. F2E09340 06434 0500 00 0 11660 AC165 CLA XTG START SCANNING F2E09350 06435 0771 00 0 00002 ARS 2 TGA FOR LOCATIONS F2E09360 06436 -0734 00 1 00000 PDX 0,1 INDICATING VARIABLE F2E09370 06437 -0500 00 1 42557 CAL MXTGA,1 DECREMENTS OF TXI F2E09380 06440 0602 00 0 11635 SLW WRKTGA AND TIX INSTRUCTIONS- F2E09390 06441 0100 00 0 06703 TZE AC240 NONE, AC240. F2E09400 06442 0534 00 1 04005 LXA $L(3),1 YES, ISOLATE F2E09410 06443 -0634 00 1 11633 AC166 SXD AX,1 APP. TGTG AND F2E09420 06444 -0500 00 0 11635 CAL WRKTGA CHECK FOR F2E09430 06445 0771 00 0 00022 ARS 18 LOCATIONS F2E09440 06446 -2 00001 1 06451 AC168 TNX AC170,1,1 OF TXI F2E09450 06447 0771 00 0 00006 ARS 6 INSTRUCTIONS F2E09460 06450 0020 00 0 06446 TRA AC168 WITH VARIABLE F2E09470 06451 -0320 00 0 11617 AC170 ANA 6ONESR DECREMENTS. F2E09480 06452 0100 00 0 06524 TZE AC190 NONE, AC190. F2E09490 06453 0767 00 0 00003 ALS 3 STORE F2E09500 BINARY CARD NO. 9F210062 06454 0601 00 0 11676 STO TETLOC LOC. OF TXI. F2E09510 06455 0534 00 4 11565 LXA L(0),4 F2E09520 06456 -0534 00 1 11633 LXD AX,1 IS F2E09530 06457 0500 00 0 11476 CLA TAG4 POSITION F2E09540 06460 -3 00002 1 06501 TXL AC173,1,2 F2E09550 06461 -0320 00 0 11571 ANA BIT8 POSITION IS S1, IS F2E09560 06462 -0100 00 0 06465 AC171 TNZ AC172 THIS BLOCK D SPECIAL. F2E09570 06463 0500 00 0 11476 CLA TAG4 NO, BLOCK A. F2E09580 06464 0020 00 0 06506 TRA AC176 TSX AORO F2E09590 06465 0560 00 0 04016 AC172 LDQ $WRKSC+2 TES, SET UP F2E09600 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 114 BLOCK E. 06466 0200 00 0 04022 MPY $WRKSC+6 C1D1 AS G F2E09610 06467 0767 00 0 00021 ALS 17 FOR XX POSITION. F2E09620 06470 0601 00 0 04050 STO ORO00+20 C1 IS G FOR F2E09630 06471 0500 00 0 04014 CLA $WRKSC N3X POSITION. F2E09640 06472 0601 00 0 04047 STO ORO00+19 PREPARE TO F2E09650 06473 0534 00 1 04005 LXA $L(3),1 CALL PC ROUTINE F2E09660 06474 -0634 00 1 11636 SXD N3X,1 TO COMPILE F2E09670 06475 0534 00 1 11561 LXA L(2),1 INITIALIZATION F2E09680 06476 -0634 00 1 11637 SXD XX,1 INSTRUCTIONS F2E09690 06477 0074 00 4 10574 TSX PC,4 FOR BLOCK D SPECIAL. F2E09700 06500 0020 00 0 06524 TRA AC190 F2E09710 06501 -3 00001 1 06503 AC173 TXL AC174,1,1 IS POSITION S3) F2E09720 BINARY CARD NO. 9F210063 06502 0771 00 0 00003 ARS 3 ISOLATE BLKNUM F2E09730 06503 0771 00 0 00035 AC174 ARS 29 FROM TAG4 AND F2E09740 06504 -0320 00 0 11532 ANA L(7) CALLPROPER ROUTINE F2E09750 06505 0734 00 4 00000 PAX 0,4 TO COMPILE INITIALIZATION F2E09760 06506 3 00000 4 06511 AC176 TXH AC176+3,4,0 INSTRUCTIONS FOR THAT BLOCK. F2E09770 06507 0074 00 4 10323 TSX AORO,4 BLOCK A F2E09780 06510 0020 00 0 06524 TRA AC190 F2E09790 06511 3 00001 4 06514 TXH AC178,4,1 F2E09800 06512 0074 00 4 10434 TSX BORO,4 BLOCK B F2E09810 06513 0020 00 0 06524 TRA AC190 F2E09820 06514 3 00002 4 06517 AC178 TXH AC182,4,2 F2E09830 06515 0074 00 4 10452 TSX CORO,4 BLOCK C F2E09840 06516 0020 00 0 06524 TRA AC190 F2E09850 06517 3 00003 4 06522 AC182 TXH AC186,4,3 F2E09860 06520 0074 00 4 10503 TSX DORO,4 BLOCK D. F2E09870 06521 0020 00 0 06524 TRA AC190 F2E09880 06522 0074 00 4 10552 AC186 TSX EORO,4 BLOCK E. F2E09890 06523 0020 00 0 06524 TRA AC190 F2E09900 06524 -0534 00 1 11633 AC190 LXD AX,1 IF ALL SUBS HAVE NOT BEEN F2E09910 06525 2 00001 1 06443 TIX AC166,1,1 CONSIDERED FOR TXIS, TAKE NEXT RT. F2E09920 06526 0534 00 1 11563 LXA L(3),1 THIS REPRESENTS END OF F2E09930 06527 -0634 00 1 11633 AC200 SXD AX,1 TXI PHASE, START TIX. F2E09940 BINARY CARD NO. 9F210064 06530 0500 00 0 11635 CLA WRKTGA ISOLATE APP. TGTG ENTRY. F2E09950 06531 -2 00001 1 06534 AC210 TNX AC214+1,1,1 F2E09960 06532 0771 00 0 00006 ARS 6 F2E09970 06533 0020 00 0 06531 AC214 TRA AC210 F2E09980 06534 -0320 00 0 11617 ANA 6ONESR F2E09990 06535 0100 00 0 06701 TZE AC236 IS THERE A TIX VAR. DEC. LOC. F2E10000 06536 0767 00 0 00003 ALS 3 YES, STORE TIX REL. LOC. F2E10010 06537 0601 00 0 11676 STO TETLOC IN TETLOC WORD. F2E10020 06540 -0534 00 1 11633 LXD AX,1 F2E10030 06541 0500 00 1 11475 CLA TAG2+3,1 ISOLATE F2E10040 06542 -0734 00 2 00000 PDX 0,2 N3 FOR F2E10050 06543 0500 00 2 45632 ACI21 CLA DOTAGZ+4,2 THIS DO. F2E10060 06544 0402 00 0 11560 SUB L(1) DOES N3 = 1. F2E10070 06545 0100 00 0 06553 TZE AC220+2 F2E10080 06546 0074 00 4 11114 TSX XORO,4 NO, PLACE N SYMBOLS F2E10090 06547 0534 00 1 11542 LXA L(6),1 IN APPROP. ORO LOCS F2E10100 06550 -0534 00 2 11633 LXD AX,2 AND COMPUTE F2E10110 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 115 BLOCK E. 06551 0500 00 2 11244 AC220 CLA KTX00+3,2 X QUANTITY F2E10120 06552 0074 00 4 11146 TSX LXC,4 ON O.C. LEVEL. F2E10130 06553 -0534 00 1 11633 LXD AX,1 F2E10140 06554 0500 00 0 11607 CLA INST4 TRA AC224. MODIFY ADRO F2E10150 06555 0601 00 0 10423 STO AORO30 ROUTINE TO COMPUTE G. F2E10160 BINARY CARD NO. 9F210065 06556 0500 00 0 11610 CLA INST5 TRAAC228. F2E10170 06557 0601 00 0 10427 STO AORO40 F2E10180 06560 0074 00 4 10323 TSX AORO,4 COMPUTE G, PUT IN ORO+19. F2E10190 06561 0020 00 0 06636 AC224 TRA AC230 G1 = 1. F2E10200 06562 -0534 00 1 11633 AC228 LXD AX,1 G1 NOT = 1, F2E10210 06563 0500 00 1 11475 CLA TAG2+3,1 COMPILE INSTRUCTIONS F2E10220 06564 -0734 00 2 00000 PDX 0,2 TO COMPUTE AND INITIALIZE F2E10230 06565 0500 00 2 45632 CLA DOTAGZ+4,2 TIX DECREMENT. F2E10240 06566 0402 00 0 11560 SUB L(1) F2E10250 06567 -0100 00 0 06632 TNZ AC228I N3 NOT = 1. F2E10260 06570 0500 00 2 45630 CLA DOTAGZ+2,2 N3 = 1, DOES F2E10270 06571 0402 00 0 11560 SUB L(1) N1 = 1. F2E10280 06572 -0100 00 0 06601 TNZ ACI22 N1 NOT = 1. F2E10290 06573 0500 00 2 45631 CLA DOTAGZ+3,2 N3, N1=1. F2E10300 06574 0601 00 0 04024 STO ORO00 G GREATER THAN 1. F2E10310 06575 0500 00 0 11235 CLA K1AORO F2E10320 06576 0534 00 1 11562 LXA L(4),1 F2E10330 06577 0074 00 4 11146 TSX LXC,4 F2E10340 06600 0020 00 0 06675 TRA AC234 EXIT TIX INITIALIZATION. F2E10350 06601 0074 00 4 07416 ACI22 TSX OP3,4 N3= 1, N1 NOT = 1, F2E10360 06602 0500 00 0 11513 CLA L(ADD) COMPILE F2E10370 06603 0601 00 0 11624 STO CIL01 TIX F2E10380 BINARY CARD NO. 9F210066 06604 0500 00 0 04041 CLA ORO00+13 INITIALIZATION F2E10390 06605 0734 00 1 00000 PAX 0,1 GROUP F2E10400 06606 -0320 00 0 11540 ANA 6ONES FOR F2E10410 06607 0601 00 0 11625 STO CIL02 THIS F2E10420 06610 -0634 00 1 11626 SXD CIL03,1 CASE. F2E10430 06611 0074 00 4 07532 TSX CIT,4 F2E10440 06612 0500 00 0 04060 CLA L(STO) F2E10450 06613 0601 00 0 11624 STO CIL01 F2E10460 06614 0500 00 0 11565 CLA L(0) F2E10470 06615 0601 00 0 11626 STO CIL03 F2E10480 06616 0500 00 0 04056 CLA ORO00+26 ERASEABLE STORAGE F2E10490 06617 0734 00 4 00000 PAX 0,4 SYMBOL FOR ADDRESS. F2E10500 06620 -0320 00 0 11540 ANA 6ONES F2E10510 06621 0601 00 0 11625 STO CIL02 F2E10520 06622 -0634 00 4 11626 SXD CIL03,4 F2E10530 06623 0074 00 4 07532 TSX CIT,4 F2E10540 06624 0500 00 0 04056 CLA ORO00+26 PLACE ERASEABLE SYMBOL F2E10550 06625 0601 00 0 04024 STO ORO00 IN ORO00 FOR LXC BLOCK. F2E10560 06626 0534 00 1 11562 LXA L(4),1 F2E10570 06627 0500 00 0 11235 CLA K1AORO F2E10580 06630 0074 00 4 11146 TSX LXC,4 F2E10590 06631 0020 00 0 06675 TRA AC234 EXIT TIX INITIALIZATION. F2E10600 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 116 BLOCK E. BINARY CARD NO. 9F210067 06632 0534 00 1 11562 AC228I LXA L(4),1 F2E10610 06633 0500 00 0 11246 CLA LTX040 COMPILE TIX INITIALIZATION F2E10620 06634 0074 00 4 11146 TSX LXC,4 GROUP FOR THIS CASE. F2E10630 06635 0020 00 0 06675 TRA AC234 EXIT TIX INITIALIZATION. F2E10640 06636 -0534 00 1 11633 AC230 LXD AX,1 G=1, F2E10650 06637 0500 00 1 11475 CLA TAG2+3,1 DOES F2E10660 06640 -0734 00 2 00000 PDX 0,2 N3 = 1. F2E10670 06641 0500 00 2 45632 CLA DOTAGZ+4,2 F2E10680 06642 0402 00 0 11560 SUB L(1) F2E10690 06643 -0100 00 0 06672 TNZ AC230I NO. F2E10700 06644 0500 00 2 45630 CLA DOTAGZ+2,2 YES, DOES N1= 1. F2E10710 06645 0402 00 0 11560 SUB L(1) F2E10720 06646 -0100 00 0 06655 TNZ ACI23 NO. F2E10730 06647 0500 00 2 45631 CLA DOTAGZ+3,2 G,N3,N1 = 1, F2E10740 06650 0601 00 0 04024 STO ORO00 COMPILE TIX F2E10750 06651 0500 00 0 11237 CLA K2AORO INITIALIZATION F2E10760 06652 0534 00 1 11561 LXA L(2),1 FOR THIS F2E10770 06653 0074 00 4 11146 TSX LXC,4 CASE. F2E10780 06654 0020 00 0 06675 TRA AC234 EXIT TIX INITIALIZATION. F2E10790 06655 0074 00 4 07416 ACI23 TSX OP3,4 N3=1, N1 NOT = 1. F2E10800 06656 0500 00 0 11513 CLA L(ADD) COMPILE F2E10810 06657 0601 00 0 11624 STO CIL01 TIX F2E10820 BINARY CARD NO. 9F210068 06660 0500 00 0 04041 CLA ORO00+13 INITIALIZATION F2E10830 06661 0734 00 1 00000 PAX 0,1 FOR F2E10840 06662 -0320 00 0 11540 ANA 6ONES THIS F2E10850 06663 0601 00 0 11625 STO CIL02 CASE. F2E10860 06664 -0634 00 1 11626 SXD CIL03,1 F2E10870 06665 0074 00 4 07532 TSX CIT,4 F2E10880 06666 0500 00 0 11240 CLA K3AORO F2E10890 06667 0534 00 1 11560 LXA L(1),1 F2E10900 06670 0074 00 4 11146 TSX LXC,4 F2E10910 06671 0020 00 0 06675 TRA AC234 EXIT TIX INITIALIZATION. F2E10920 06672 0534 00 1 11561 AC230I LXA L(2),1 G =1, N3 NOT = 1. F2E10930 06673 0500 00 0 11247 CLA LTX042 F2E10940 06674 0074 00 4 11146 TSX LXC,4 THIS CASE. F2E10950 06675 0500 00 0 11606 AC234 CLA INST3 RESET MODIFIED AORO. F2E10960 06676 0601 00 0 10423 STO AORO30 LXC L(4),1. F2E10970 06677 0500 00 0 11605 CLA INST2 F2E10980 06700 0601 00 0 10427 STO AORO40 LXD L(2),1. F2E10990 06701 -0534 00 1 11633 AC236 LXD AX,1 F2E11000 06702 2 00001 1 06527 TIX AC200,1,1 F2E11010 06703 0020 00 0 05761 AC240 TRA AC010 F2E11020 06704 0534 00 2 11557 LXA LADMX,2 START ADTG COMPILING. F2E11030 06705 1 00004 2 06706 TXI AC240+3,2,4 F2E11040 BINARY CARD NO. 9F210069 06706 -0634 00 2 11660 SXD XTG,2 F2E11050 06707 0500 00 0 11611 CLA INST8 L(TRA AC244). F2E11060 06710 0621 00 0 06703 STA AC240 MODIFY RETURN FOR ADTG ENTRY. F2E11070 06711 0621 00 0 05767 STA AC016 F2E11080 06712 0500 00 0 11612 CLA INST10 F2E11090 06713 0621 00 0 06437 STA AC165+3 F2E11100 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 117 BLOCK E. 06714 0074 00 4 07262 AC244 TSX ADTGSE,4 FIND VALID ADTG ENTRY. F2E11110 06715 0020 00 0 06717 TRA AC250 END OF TABLE , GET NEXT DO. F2E11120 06716 -3 00000 0 05764 AC248 TXL AC014,,0 VALID ENTRY, CONTINUE AC CYCLE. F2E11130 06717 0500 00 0 11613 AC250 CLA INST11 REINITIALIZE INSTRUCTIONS F2E11140 06720 0621 00 0 06703 STA AC240 MODIFIED FOR F2E11150 06721 0621 00 0 05767 STA AC016 DRUMTAG F2E11160 06722 0500 00 0 11614 CLA INST12 CYCLE. F2E11170 06723 0621 00 0 06437 STA AC165+3 F2E11180 06724 0500 00 0 11644 CLA LOCIND IF NO INSTRUCTIONS HAVE BEEN F2E11190 06725 0100 00 0 06735 TZE AC260 COMPILED FOR THIS ALPHA, F2E11200 06726 0500 00 0 11515 CLA L(BSS) F2E11210 06727 0601 00 0 11624 STO CIL01 INSURES THAT THE EXTERNAL F2E11220 06730 0500 00 0 11646 CLA A ALPHA WILL HAVE A CORRESPON- F2E11230 06731 0601 00 0 11623 STO CIL00 DING INTERNAL ALPHA. F2E11240 06732 0600 00 0 11625 STZ CIL02 F2E11250 06733 0600 00 0 11626 STZ CIL03 F2E11260 BINARY CARD NO. 9F210070 06734 0074 00 4 07532 TSX CIT,4 F2E11270 06735 -0534 00 4 06716 AC260 LXD AC248,4 F2E11280 06736 0020 00 4 00001 TRA 1,4 EXIT ALPHA CYCLE F2E11290 *************************************************************F2E11300 DOGS IS CALLED BY MAN TO SELECT AN ALPHA OR BETA TO BE PRO F2E11310 CESSED BY THE APPROPRIATE STATE (ALPHA OR BETA). F2E11320 06737 0500 00 0 11565 DOGS CLA L(0) INITIALIZING TO ZERO F2E11330 06740 0601 00 0 11646 STO A ALL CALLS REQUIRED FOR F2E11340 06741 0601 00 0 11647 STO B COMPARISON FOR EACH DO F2E11350 06742 0601 00 0 11650 STO SWICH F2E11360 06743 0601 00 0 11651 STO TEBBOX F2E11370 06744 -0534 00 1 11653 LXD DOIND1,1 IF LEVEL OF LAST F2E11380 06745 -3 00000 1 06754 TXL DOGS20,1,0 F2E11390 06746 0500 00 0 11655 CLA SWICH1 F2E11400 06747 -0100 00 0 06754 TNZ DOGS20 F2E11410 06750 0500 00 1 45633 CLA DOTAGZ+5,1 ANALYZED DOTAG ENTRY F2E11420 06751 -0734 00 1 00000 PDX 0,1 IS ONE THEN THE NEST F2E11430 06752 3 00001 1 06754 TXH DOGS20,1,1 HAS BEEN COMPLETELY F2E11440 06753 0020 00 4 00001 TRA 1,4 ANALYZED. IF NOT F2E11450 06754 0534 00 1 11516 DOGS20 LXA LMXDTG,1 START SCAN AT FIRST ENTRY F2E11460 06755 0500 00 0 11650 DOGS22 CLA SWICH F2E11470 06756 -0100 00 0 06766 TNZ DOGS25 B PORTION UNDER CONSIDERATION F2E11480 06757 0500 00 1 45626 CLA DOTAGZ,1 A PORTION UNDER CONSIDERATION F2E11490 06760 -0320 00 0 11567 ANA BIT1 F2E11500 06761 -0100 00 0 07016 TNZ DOGS50 CONTINUE, ALREADY ANALYZED F2E11510 BINARY CARD NO. 9F210071 06762 0500 00 1 45626 CLA DOTAGZ,1 SETS UP A PORTION OF F2E11520 06763 -0734 00 2 00000 PDX 0,2 DO FOR COMPARISON F2E11530 06764 -0634 00 2 11647 SXD B,2 PUT A OF DO IN INDICATOR B F2E11540 06765 0020 00 0 06776 TRA DOGS30 PROCEED T/ COMPARISON F2E11550 06766 0500 00 1 45626 DOGS25 CLA DOTAGZ,1 B PORTION UNDER CONSIDERATION F2E11560 06767 -0320 00 0 11570 ANA BIT2 MASK TO INDICATE LOOKED AT F2E11570 06770 -0100 00 0 07016 TNZ DOGS50 ALREADY ANALYZED, CONTINUE F2E11580 06771 0500 00 1 45626 CLA DOTAGZ,1 SET UP A IN F2E11590 06772 -0734 00 2 00000 PDX 0,2 B WORD FOR COMPARISON F2E11600 06773 -0634 00 2 11646 SXD A,2 F2E11610 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 118 BLOCK E. 06774 0734 00 2 00000 PAX 0,2 F2E11620 06775 -0634 00 2 11647 SXD B,2 F2E11630 06776 0500 00 0 11647 DOGS30 CLA B F2E11640 06777 0340 00 0 11651 CAS TEBBOX F2E11650 07000 0020 00 0 07007 TRA DOGS45 T-B1 STORE B IN TEBBOX F2E11660 07001 0020 00 0 07003 TRA DOGS40 T=B1 COMPARE AS F2E11670 07002 0020 00 0 07016 TRA DOGS50 T-B1 CONTINUE F2E11680 07003 0500 00 0 11654 DOGS40 CLA TEABOX CONPARE AS F2E11690 07004 0340 00 0 11646 CAS A F2E11700 07005 0020 00 0 07016 TRA DOGS50 T-A CONTINUE F2E11710 07006 0074 00 4 03746 TSX ERRORM,4 TEABOX(IFN OF PRECEDING DO) F2E11720 SHOULD NOT EQUAL A (IFN OF F2E11730 SUCCEEDING DO). F2E11740 07007 0500 00 0 11646 DOGS45 CLA A T-A STORE B IN TRBBOX F2E11750 BINARY CARD NO. 9F210072 07010 0601 00 0 11654 STO TEABOX F2E11760 07011 0500 00 0 11647 CLA B F2E11770 07012 0601 00 0 11651 STO TEBBOX F2E11780 07013 -0634 00 1 11653 SXD DOIND1,1 RECORD THE DO POSITION F2E11790 07014 0500 00 0 11650 CLA SWICH RECORD SWITCH F2E11800 07015 0601 00 0 11655 STO SWICH1 F2E11810 07016 0500 00 0 11650 DOGS50 CLA SWICH REVERSE SWITCH FOR F2E11820 07017 0402 00 0 11560 SUB L(1) EITHER B OF SAME DO OR F2E11830 07020 0760 00 0 00003 SSP A OF NEXT DO F2E11840 07021 0601 00 0 11650 STO SWICH F2E11850 07022 -0100 00 0 07024 TNZ DOGS60 TESTS A,B STATUS IF A F2E11860 07023 1 77767 1 07024 TXI DOGS60,1,-9 LOWERS INDEX FOR NEXT DO F2E11870 07024 3 00000 1 06755 DOGS60 TXH DOGS22,1,0 F2E11880 07025 -0534 00 1 11653 LXD DOIND1,1 END OF SCAN F2E11890 07026 -0634 00 1 11652 SXD DOIND,1 DO INDICATOR SET F2E11900 07027 0534 00 2 11655 LXA SWICH1,2 F2E11910 07030 0500 00 0 11567 CLA BIT1 ORDER TO PLACE BIT IN F2E11920 07031 -3 00000 2 07033 TXL DOGS70,2,0 A OR B USED F2E11930 07032 0771 00 0 00001 ARS 1 INDICATOR POSITION F2E11940 07033 -0602 00 1 45626 DOGS70 ORS DOTAGZ,1 F2E11950 07034 0020 00 4 00002 TRA 2,4 EXIT AFTER FINDING DO F2E11960 *************************************************************F2E11970 SCAN SCANS TAGTAG FOR THE FIRST ENTRY THAT IS MODIFIED BY A DF2E11980 DO WHOSE ALLPHA IS LESS THAT THE CURRENT DOTAG BETA. F2E11990 THIS TAG IS CALLED RTXTGX. F2E12000 07035 -0534 00 1 07530 SCAN LXD FNEST,1 COMPARE B WITH DOFOR F2E12010 BINARY CARD NO. 9F210073 07036 0500 00 0 11647 SCAN05 CLA B DOTAG A OF EACH TAGTAG F2E12020 07037 0340 00 1 41004 CAS TAGZ,1 ENTRY IN NEST. F2E12030 07040 1 00004 1 07043 TXI SCAN10,1,4 SEARCH COMPLETED. F2E12040 07041 0074 00 4 03746 TSX ERRORM,4 THE IFN IN B(FROM CURRENT F2E12050 DOTAG ENTRY) SHOULD NOT BE F2E12060 EQUAL TO THE FIRST WORD F2E12070 OF XR1 TAGTAG ENTRY. TAGTAG IS F2E12080 FROM FILE 2 TAPE 4. F2E12090 07042 1 77774 1 07036 TXI SCAN05,1,-4 G LESS THAN A. F2E12100 07043 0020 00 4 00001 SCAN10 TRA 1,4 F2E12110 *************************************************************F2E12120 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 119 BLOCK E. FIND, BEGINNING WITH RTXTGX, SEARCHES FOR A TAGTAG ENTRY MODIF2E12130 FIED BY THE CURRENT DO. F2E12140 07044 -0634 00 4 07060 FIND SXD FIND22,4 F2E12150 07045 -0534 00 1 11660 LXD XTG,1 F2E12160 07046 1 77774 1 07047 FIND04 TXI FIND10,1,-4 BUMP TO NEXT TGTG ENTRY. F2E12170 07047 3 00000 1 07052 FIND10 TXH FIND20,1,0 DEC CONTAINS TAGTAG COUNT. F2E12180 07050 -0534 00 4 07060 LXD FIND22,4 F2E12190 07051 0020 00 4 00001 TRA 1,4 END OF TGTG TABLE AND DO. F2E12200 07052 0500 00 0 11646 FIND20 CLA A COMPARE DOTAGA WITH F2E12210 07053 0340 00 1 41004 CAS TAGZ,1 TGTG DOFOR DOTAG A. F2E12220 07054 0020 00 0 07050 TRA FIND10+1 END OF DO. F2E12230 07055 0761 00 0 00000 NOP F2E12240 07056 0074 00 4 07075 TSX TGFM,4 F2E12250 07057 0074 00 4 07066 TSX ISC,4 F2E12260 07060 -3 00000 0 07046 FIND22 TXL FIND04,,0 POSIND=3 IF LEFTMOST SYMBOL. F2E12270 07061 -0754 00 2 00000 PXD 0,2 2IF CENTER. F2E12280 07062 0771 00 0 00022 ARS 18 1 IF RIGHTMOST. F2E12290 07063 0601 00 0 11661 STO POSIND F2E12300 BINARY CARD NO. 9F210074 07064 -0534 00 4 07060 LXD FIND22,4 F2E12310 07065 0020 00 4 00002 TRA 2,4 SUCCESSFUL SEARCH. F2E12320 *************************************************************F2E12330 ISC IS CALLED BY FIND TO TEST FOR MODIFICATION. F2E12340 07066 0534 00 2 11560 ISC LXA L(1),2 COMPARE SUBSCRIPT F2E12350 07067 0500 00 0 11652 CLA DOIND WITH THE INDEX F2E12360 07070 0402 00 2 11475 SUB TAG2+3,2 OF THE CURRENT DO. F2E12370 07071 0100 00 4 00002 TZE 2,4 CURRENT DO MODIFIES THIS TAG. F2E12380 07072 1 00001 2 07073 TXI ISC+5,2,1 TRY NEXT LEFT F2E12390 07073 -3 00003 2 07067 TXL ISC+1,2,3 SUBSCRIPT. F2E12400 07074 0020 00 4 00001 TRA 1,4 NO MODIFICATION, ERROR RETURN. F2E12410 *************************************************************F2E12420 TGFM TAKES A TAG ENTRY AND STORES ITS INFORMATION INTO F2E12430 WORKING TGTG. F2E12440 07075 0500 00 1 41004 TGFM CLA TAGZ,1 F2E12450 07076 0622 00 0 11471 STD TAG1 IN WORKING TGTG. F2E12460 07077 0734 00 2 00000 PAX 0,2 A, X1, X2, X3, TG, TG1. F2E12470 07100 -0634 00 2 11472 SXD TAG2,2 F2E12480 07101 0500 00 1 41005 CLA TAGZ+1,1 F2E12490 07102 0622 00 0 11473 STD TAG2+1 F2E12500 07103 0734 00 2 00000 PAX 0,2 F2E12510 07104 -0634 00 2 11474 SXD TAG2+2,2 F2E12520 07105 0500 00 1 41006 CLA TAGZ+2,1 F2E12530 07106 0601 00 0 11475 STO TAG3 F2E12540 07107 0500 00 1 41007 CLA TAGZ+3,1 F2E12550 07110 0601 00 0 11476 STO TAG4 F2E12560 07111 0020 00 4 00001 TRA 1,4 F2E12570 *************************************************************F2E12580 ENTR SIMJLATES A TAU ENTRY AND SPREADS IS INTO WORKING TAG--(F2E12590 BINARY CARD NO. 9F210075 07112 -0534 00 2 11652 ENTR LXD DOIND,2 SYMBOL OF DO IS F2E12600 07113 0500 00 2 45627 CLA DOTAGZ+1,2 PLACED IN WRKSC F2E12610 07114 0601 00 0 04015 STO $WRKSC+1 AND COEF. IS SET F2E12620 07115 0500 00 0 04004 CLA $L1DEC =1. THIS SIMULATES F2E12630 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 120 BLOCK E. 07116 0601 00 0 04014 STO $WRKSC A TAU TABLE ENTRY. F2E12640 07117 0020 00 4 00001 TRA 1,4 F2E12650 *************************************************************F2E12660 LOCO ASSIGNS A RELATIVE LOCATION (INSTRUCTION NUMBER), AND UPF2E12670 DATES A COUNTER FOR THE NEXT ASSIGNMENT. F2E12680 07120 0500 00 0 11644 LOCO CLA LOCIND F2E12690 07121 0100 00 2 00001 TZE 1,2 LOCATION ALREADY ASSIGNED. F2E12700 07122 0500 00 0 11565 CLA L(0) IF LOCIND GREATER F2E12710 07123 0601 00 0 11644 STO LOCIND F2E12720 07124 0500 00 0 11623 CLA CIL00 TO ZERO. F2E12730 07125 -0100 00 2 00001 TNZ 1,2 IF CIL00 HAS NOT BEEN F2E12740 07126 0500 00 0 11665 CLA VCTR F2E12750 07127 0601 00 0 11623 STO CIL00 UPDATE VCTR. F2E12760 07130 0400 00 0 04007 ADD $L(8) F2E12770 07131 0601 00 0 11665 STO VCTR F2E12780 07132 0020 00 2 00001 TRA 1,2 START COMPARING BUFFER F2E12790 *************************************************************F2E12800 SCLMN1 ISOLATES THE INNERMOST DOTAG CONTROLLING A GIVEN TAG. F2E12810 07133 -0534 00 1 11472 SCLMN1 LXD TAG2,1 S1 INDEX QUANTITY. F2E12820 07134 -0534 00 2 11473 LXD TAG2+1,2 S2 INDEX QUANTITY. F2E12830 07135 -0634 00 2 07136 SXD SCLMN2,2 THIS ROUTINE F2E12840 07136 3 00000 1 07140 SCLMN2 TXH SCLMN3,1,0 COMPARES SIZES F2E12850 07137 -0534 00 1 07136 LXD SCLMN2,1 OF THE INDEX F2E12860 BINARY CARD NO. 9F210076 07140 -0534 00 2 11474 SCLMN3 LXD TAG2+2,2 QUANTITIES OF F2E12870 07141 -0634 00 2 07142 SXD SCLMN4,2 EACH SUBSCRIPT IN A TAG. F2E12880 07142 3 00000 1 07144 SCLMN4 TXH SCLMN5,1,0 LARGEST 2.X. QUANTITY F2E12890 07143 -0534 00 1 07142 LXD SCLMN4,1 IS FOUND AND LEFT IN F2E12900 07144 -0754 00 1 00000 SCLMN5 PXD 0,1 ACC FOR COMPARISON WITH DOIND. F2E12910 07145 0020 00 4 00001 TRA 1,4 F2E12920 *************************************************************F2E12930 TELC MONITORS THE COMPUTING OF THE LOAD PORTION OF THE TEST F2E12940 DECREMENT. F2E12950 07146 0534 00 1 04005 TELC LXA $L(3),1 F2E12960 07147 0500 00 0 11565 CLA L(0) F2E12970 07150 0601 00 0 11666 STO ERTX01 F2E12980 07151 -0634 00 4 04013 SXD $LINKC,4 F2E12990 07152 0500 00 1 11475 TELC05 CLA TAG2+3,1 SEQUENCE. PUT S IN XB TO PREPARE F2E13000 07153 -0734 00 2 00000 PDX 0,2 FOR CN1IJ ROUTINE. F2E13010 07154 -3 00000 2 07156 TXL TELC10-2,2,0 NO S, GO TO NEXT S. F2E13020 07155 0074 00 4 07163 TSX CN1IJ,4 COMPUTE (CN1-1)IJ ETC. F2E13030 07156 0400 00 0 11666 ADD ERTX01 F2E13040 07157 0601 00 0 11666 STO ERTX01 (C1N1)+(C2N1-1)D1+(C3N1-1)D1D2. F2E13050 07160 2 00001 1 07152 TELC10 TIX TELC05,1,1 GO TO NEXT S FOR CN1IJ ROUTINE. F2E13060 07161 -0534 00 4 04013 LXD $LINKC,4 F2E13070 07162 0020 00 4 00001 TRA 1,4 F2E13080 *************************************************************F2E13090 CN1IJ COMPUTES THE LOAD VALUE FOR A GIVEN SUBSCRIPT IN A F2E13100 SUBSCRIPT COMBINATION. (C1N1-1), OR (C2N1-1)D1 F2E13110 (C3N1-1)D1D2. F2E13120 07163 0560 00 2 45630 CN1IJ LDQ DOTAGZ+2,2 N2 INTO MQ. F2E13130 07164 0763 00 0 00022 LLS 18 F2E13140 07165 -3 00002 1 07171 TXL CN1IJ2,1,2 S2 OR S3, TRANSFER. F2E13150 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 121 BLOCK E. BINARY CARD NO. 9F210077 07166 0200 00 0 04014 MPY $WRKSC S1, F2E13160 07167 0402 00 0 11561 SUB L(2) F2E13170 07170 0020 00 0 07205 TRA CN1IJ8 F2E13180 07171 -3 00001 1 07177 CN1IJ2 TXL CN1IJ4,1,1 DIVIDE BY 2 AND RETURN. F2E13190 07172 0200 00 0 04016 MPY $WRKSC+2 S2 F2E13200 07173 0402 00 0 11561 SUB L(2) COMPUTE F2E13210 07174 0765 00 0 00022 LRS 18 (2C2N1-2)D1D2 THEN F2E13220 07175 0200 00 0 04022 MPY $WRKSC+6 GO TO CN1IJ8 TO DIVIDE F2E13230 07176 0020 00 0 07205 TRA CN1IJ8 BY 2 AND RETURN. F2E13240 07177 0200 00 0 04020 CN1IJ4 MPY $WRKSC+4 S3, F2E13250 07200 0402 00 0 11561 SUB L(2) COMPUTE F2E13260 07201 0765 00 0 00022 LRS 18 (2C3N1-2)D1D2 THEN F2E13270 07202 0200 00 0 04022 MPY $WRKSC+6 GO TO CN1IJ8 TO DIVIDE F2E13280 07203 0765 00 0 00022 LRS 18 DIVIDE BY 2 AND F2E13290 07204 0200 00 0 04023 MPY $WRKSC+7 RETURN. F2E13300 07205 0771 00 0 00001 CN1IJ8 ARS 1 DIVIDE BY 2. RESULT IS (C1N1-1) F2E13310 07206 0020 00 4 00001 TRA 1,4 OR (C2N1-1)D1 OR (C3N1-1)D1D2. F2E13320 *************************************************************F2E13330 CXIJ COMPUTES GN3X. WHEN THE ROUTINE CXIJ+2 IS CALLED, F2E13340 GQ IS COMPUTED, Q BEING WHATEVER PARAMETER IS LEFT IN THE ACCF2E13350 BY THE CALLER. F2E13360 07207 0500 00 2 45633 XMIN1 CLA DOTAGZ+5,2 F2E13370 07210 -0320 00 0 11572 ANA ADMSK F2E13380 07211 0402 00 2 45632 SUB DOTAGZ+4,2 F2E13390 07212 0020 00 0 07215 TRA CXIJ+2 F2E13400 07213 0500 00 2 45633 CXIJ CLA DOTAGZ+5,2 F2E13410 BINARY CARD NO. 9F210078 07214 -0320 00 0 11572 ANA ADMSK ISOLATE X QUANTITY. F2E13420 07215 0601 00 0 11670 STO ERTX03 F2E13430 07216 3 00001 1 07221 TXH CXIJ+6,1,1 S2 OR S1. F2E13440 07217 0560 00 0 04020 LDQ $WRKSC+4 S3, LOAD C3 F2E13450 07220 0020 00 0 07225 TRA CXIJ2 F2E13460 07221 -3 00002 1 07224 TXL CXIJ1,1,2 S2. F2E13470 07222 0560 00 0 04014 LDQ $WRKSC S1, LOAD C1. F2E13480 07223 0020 00 0 07225 TRA CXIJ2 F2E13490 07224 0560 00 0 04016 CXIJ1 LDQ $WRKSC+2 S2, LOAD C1. F2E13500 07225 0200 00 0 11670 CXIJ2 MPY ERTX03 F2E13510 07226 3 00002 1 07234 TXH CXIJ4,1,2 IF S1, FINISHED. F2E13520 07227 0765 00 0 00022 LRS 18 F2E13530 07230 0200 00 0 04022 MPY $WRKSC+6 CX TIMES D1. F2E13540 07231 3 00001 1 07234 TXH CXIJ4,1,1 IF S2, FINISHED. F2E13550 07232 0765 00 0 00022 LRS 18 F2E13560 07233 0200 00 0 04023 MPY $WRKSC+7 CXD1 TIMES D2. F2E13570 07234 0763 00 0 00021 CXIJ4 LLS 17 F2E13580 07235 0020 00 4 00001 TRA 1,4 IN ACC. AND RETURN. F2E13590 *************************************************************F2E13600 CSXD COMPILES AN SXD INSTRUCTION WHERE THE ADDRESS IS NOT YETF2E13610 KNOWN, BUT IS KNOWN TO BE THE TEST FOR A GIVEN DO. THE F2E13620 ADDRESS WORD IS FILLED IN WITH THAT DOTAG ALPHA-BETA AND THE F2E13630 LOCATION OF THE SXD IS STORED IN THAT DOTAG SO THAT A TABLE (F2E13640 (SXDTX) MAY BE MADE FOR REFERENCE BY SECTION 3 TO FILL IN THEF2E13650 PROPER ADDRESS DURING MERGE. F2E13660 07236 -0634 00 4 11666 CSXD SXD ERTX01,4 ROUTINE FOR F2E13670 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 122 BLOCK E. 07237 0074 00 4 07654 TSX CILV,4 COMPILING AN F2E13680 07240 0500 00 0 11565 CLA L(0) SXD INSTRUCTION F2E13690 07241 0601 00 0 11626 STO CIL03 WHERE THE F2E13700 BINARY CARD NO. 9F210079 07242 0601 00 0 11625 STO CIL02 F2E13710 07243 -0534 00 4 11671 LXD BLKNUM,4 F2E13720 07244 -3 00002 4 07247 TXL CSXD4,4,2 BLOCKS B,C. F2E13730 07245 -0534 00 4 11473 LXD TAG21,4 BLOCKS D,E, LOAD S2 INDEX. F2E13740 07246 0020 00 0 07250 TRA CSXD4+1 F2E13750 07247 -0534 00 4 11472 CSXD4 LXD TAG2,4 BLOCKS B,C, LOAD S1 INDEX. F2E13760 07250 0500 00 4 45626 CLA DOTAGZ,4 FOR BLOCKS B,C, FILL IN F2E13770 07251 -0320 00 0 11530 ANA NOPRET SYMBOLIC ADDRESS OF SXD F2E13780 07252 0601 00 0 11625 STO CIL02 FROM WD1 OF S1 DOTAG. F2E13790 07253 0500 00 0 11475 CLA TAG3 NOT KNOWN. F2E13800 07254 0621 00 0 11626 STA CIL03 F2E13810 07255 0500 00 0 11505 CLA L(SXD) F2E13820 07256 0601 00 0 11624 STO CIL01 F2E13830 07257 0074 00 4 07532 TSX CIT,4 F2E13840 07260 -0534 00 4 11666 LXD ERTX01,4 F2E13850 07261 0020 00 4 00001 TRA 1,4 F2E13860 *************************************************************F2E13870 ADTGSE FINDS A VALID DRMTG (ADTAG) ENTRY FOR CONSIDERATION F2E13880 AND SPREADS IT INTO WORKING TAG (WRKSC). F2E13890 07262 -0534 00 1 11660 ADTGSE LXD XTG,1 F2E13900 07263 1 77774 1 07264 ADTGS TXI ADTGS+1,1,-4 F2E13910 07264 -0634 00 1 11660 SXD XTG,1 F2E13920 07265 3 00000 1 07267 ADTGS1 TXH ADTGS5,1,0 F2E13930 07266 0020 00 4 00001 TRA 1,4 END OF TABLE. F2E13940 07267 0500 00 1 51156 ADTGS5 CLA ADTGMX,1 COMPARE ADTG DDA WITH F2E13950 BINARY CARD NO. 9F210080 07270 -0320 00 0 04001 ANA DECMSK DOTAG A AND B UNTIL F2E13960 07271 0340 00 0 11646 CAS A WE FIND AN ADTAG F2E13970 07272 0020 00 0 07275 TRA ADTGS4 MODIFIED BY A DO THAT F2E13980 07273 0020 00 0 07275 TRA ADTGS4 IS WITHIN THE RANGE F2E13990 07274 0020 00 0 07263 TRA ADTGS OF THE CURRENT DO F2E14000 07275 0340 00 0 11647 ADTGS4 CAS B F2E14010 07276 0020 00 0 07263 TRA ADTGS NOT IN RANGE, SELECT NEXT. F2E14020 07277 0074 00 4 03746 TSX ERRORM,4 THE IFN IN B(FROM CURRENT F2E14030 DOTAG ENTRY) SHOULD NOT BE F2E14040 EQUAL TO THE XR1 VALUE OF F2E14050 ADTAG. F2E14060 07300 0500 00 1 51156 CLA ADTGMX,1 IN RANGE, FILL F2E14070 07301 -0734 00 2 00000 PDX 0,2 OUT WORKING TAG. F2E14080 07302 -0634 00 2 11471 SXD TAG1,2 DDA IN TAG1 DECREMENT. F2E14090 07303 0734 00 2 00000 PAX 0,2 F2E14100 07304 -0634 00 2 11472 SXD TAG2,2 S1 INDEX IN TAG2. F2E14110 07305 0500 00 1 51157 CLA ADTGMX+1,1 F2E14120 07306 -0734 00 2 00000 PDX 0,2 F2E14130 07307 -0634 00 2 11473 SXD TAG2+1,2 S2 INDEX IN TAG2+1 F2E14140 07310 0734 00 2 00000 PAX 0,2 F2E14150 07311 -0634 00 2 11474 SXD TAG2+2,2 S3 INDEX IN TAG2+2. F2E14160 07312 0500 00 1 51160 CLA ADTGMX+2,1 F2E14170 07313 0601 00 0 11475 STO TAG3 TAG NAME IN TAG3. F2E14180 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 123 BLOCK E. 07314 0500 00 1 51161 CLA ADTGMX+3,1 F2E14190 07315 0601 00 0 11476 STO TAG4 ADTG WD4 IN TAG4. F2E14200 BINARY CARD NO. 9F210081 07316 0534 00 2 11560 ADTGS8 LXA L(1),2 INIT FOR POSING. F2E14210 07317 0500 00 2 11475 CLA TAG2+3,2 F2E14220 07320 0402 00 0 11652 SUB DOIND TEST FOR MODIFICATION. F2E14230 07321 0100 00 4 00002 TZE 2,4 PROPER ENTRY FOUND. F2E14240 07322 3 00002 2 07263 TXH ADTGS,2,2 NOT MOD BY DO, TAKE NEXT SUBSCRIPT. F2E14250 07323 1 00001 2 07317 TXI ADTGS8+1,2,1 ADTG NOT MOD BY DO, TAKE NEXT ADTG. F2E14260 *************************************************************F2E14270 N1STET ISOLATES VARIABLE N1 BITS FOR A TAG AND ORS THEM TO LF2E14280 LAST 3 BITS OF THE WORD N1SBX. F2E14290 07324 0500 00 0 11476 N1STET CLA TAG4 F2E14300 07325 0771 00 0 00003 ARS 3 ONE BIT F2E14310 07326 -0320 00 0 11532 ANA L(7) IS STORED IN N1SBX. F2E14320 07327 0767 00 0 00003 ALS 3 F2E14330 07330 0601 00 0 11675 STO N1SBX F2E14340 07331 0534 00 1 04005 LXA $L(3),1 F2E14350 07332 0500 00 1 11475 N1S02 CLA TAG2+3,1 A CONATAINS POSIND. F2E14360 07333 -0734 00 2 00000 PDX 0,2 F2E14370 07334 -3 00000 2 07342 TXL N1S05,2,0 NO TAG FOR THIS POS. F2E14380 07335 0500 00 2 45626 CLA DOTAGZ,2 ISOLATE F2E14390 07336 0771 00 0 00017 ARS 15 VARIABLE F2E14400 07337 -0320 00 0 11562 ANA L(4) N1 F2E14410 07340 0771 00 1 00003 ARS 3,1 BIT. F2E14420 07341 -0602 00 0 11675 ORS N1SBX OR N1BIT TO N1SBX. F2E14430 07342 2 00001 1 07332 N1S05 TIX N1S02,1,1 REPEAT FOR NEXT RIGHT S. F2E14440 07343 0500 00 0 11675 CLA N1SBX F2E14450 BINARY CARD NO. 9F210082 07344 0020 00 4 00001 TRA 1,4 F2E14460 *************************************************************F2E14470 OP2 IS CALLED BY THE ALPHA STATE TO TEST FOR OPTIMIZATION IN F2E14480 THE COMILATION OF LOAD VALUE COMPUTATION. IT OPTIMIZES WHEN F2E14490 (CN1-1)=0 OR IS COMPUTABLE AT EXECUTIVE TIME. F2E14500 07345 0500 00 4 77776 OP2 CLA 32766,4 F2E14510 07346 0621 00 0 07415 STA RETURN LINKAGE. F2E14520 07347 0500 00 1 11475 CLA TAG2+3,1 IF S IS NOT F2E14530 07350 -0734 00 2 00000 PDX 0,2 DEFINED BY A DO, F2E14540 07351 3 00000 2 07353 TXH OP2P,2,0 F2E14550 07352 0020 00 4 00001 TRA 1,4 F2E14560 07353 0500 00 2 45630 OP2P CLA DOTAGZ+2,2 IF NOT DEFINED BY F2E14570 07354 -0320 00 0 11540 ANA 6ONES F2E14580 07355 -0100 00 4 00001 TNZ 1,4 RETURN TO MAIN ROUTINE. F2E14590 07356 0500 00 2 45630 CLA DOTAGZ+2,2 IF CONSTANT, COMPUTE F2E14600 07357 0074 00 4 07163 TSX CN1IJ,4 F2E14610 07360 0100 00 0 07415 TZE RETURN RETURN AND CONSIDER S2. F2E14620 07361 0767 00 0 00022 ALS 18 OTHERWISE COMPUTE F2E14630 07362 -3 00002 1 07364 TXL OP2P1,1,2 F2E14640 07363 0400 00 0 04004 ADD $L1DEC TO (CN1-1). F2E14650 07364 0074 00 4 04101 OP2P1 TSX $FXCON,4 F2E14660 07365 -3 00002 1 07370 TXL OP2P2,1,2 F2E14670 07366 0601 00 0 04025 STO ORO00+1 F2E14680 07367 2 00001 1 06163 TIX AC050,1,1 F2E14690 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 124 BLOCK E. 07370 0734 00 1 00000 OP2P2 PAX 0,1 F2E14700 07371 -0320 00 0 11540 ANA 6ONES ASSIGN FIXCON SYMBOL. F2E14710 BINARY CARD NO. 9F210083 07372 0601 00 0 11625 STO CIL02 CHECK SUBSCRIPT. IF F2E14720 07373 -0754 00 1 00000 PXD 0,1 S1, TRA RETURN (3RD). OTHERWISE F2E14730 07374 0601 00 0 11626 STO CIL03 COMPILE ADD L(SYMBOL). F2E14740 07375 0500 00 0 11513 CLA L(ADD) STO 1)+3. F2E14750 07376 0601 00 0 11624 STO CIL01 F2E14760 07377 0500 00 0 11565 CLA L(0) F2E14770 07400 0601 00 0 11623 STO CIL00 F2E14780 07401 -0534 00 1 11622 LXD BBOX,1 F2E14790 07402 1 00004 1 07403 TXI OP24,1,4 F2E14800 07403 -0634 00 1 11622 OP24 SXD BBOX,1 F2E14810 07404 0074 00 4 07532 TSX CIT,4 F2E14820 07405 0500 00 0 04060 CLA L(STO) F2E14830 07406 0601 00 0 11624 STO CIL01 F2E14840 07407 0500 00 0 11531 CLA L3DEC F2E14850 07410 0601 00 0 11626 STO CIL03 F2E14860 07411 0500 00 0 04056 CLA ORO00+26 F2E14870 07412 -0320 00 0 11540 ANA 6ONES F2E14880 07413 0601 00 0 11625 STO CIL02 F2E14890 07414 0074 00 4 07532 TSX CIT,4 F2E14900 07415 0020 00 0 00000 RETURN TRA 0 ADDRESS MODIFIED. F2E14910 *************************************************************F2E14920 OP3 TESTS FOR VARIABLE NS AND IF CONSTANT COMPILES A F2E14930 CLA L(N2-N1), OR IF VARIABLE CLA L(N2)....SUBL(N1). F2E14940 07416 -0634 00 4 11501 OP3 SXD EROP3,4 F2E14950 07417 0500 00 2 45626 CLA DOTAGZ,2 ARE ALL F2E14960 BINARY CARD NO. 9F210084 07420 0771 00 0 00017 ARS 15 N PARAMETERS F2E14970 07421 -0320 00 0 11532 ANA L(7) CONSTANT. F2E14980 07422 -0100 00 0 07443 TNZ OP31 NO, OP31. F2E14990 07423 0500 00 2 45631 CLA DOTAGZ+3,2 YES, F2E15000 07424 0402 00 2 45630 SUB DOTAGZ+2,2 FORM F2E15010 07425 0767 00 0 00022 ALS 18 N2-N1. F2E15020 07426 0074 00 4 04101 TSX $FXCON,4 OBTAIN FIXCON SYMBOL. F2E15030 07427 0734 00 4 00000 PAX 0,4 COMPILE F2E15040 07430 -0320 00 0 11540 ANA 6ONES CLA F2E15050 07431 0601 00 0 11625 STO CIL02 L(N2-N1) F2E15060 07432 -0754 00 4 00000 PXD 0,4 AND F2E15070 07433 0601 00 0 11626 STO CIL03 RETURN F2E15080 07434 0500 00 0 04061 CLA L(CLA) TO F2E15090 07435 0601 00 0 11624 STO CIL01 THE F2E15100 07436 0500 00 0 11565 CLA L(0) CALLER. F2E15110 07437 0601 00 0 11623 STO CIL00 ZERO LOCATION. F2E15120 07440 0074 00 4 07532 TSX CIT,4 F2E15130 07441 -0534 00 4 11501 LXD EROP3,4 F2E15140 07442 0020 00 4 00001 TRA 1,4 F2E15150 07443 0771 00 0 00001 OP31 ARS 1 F2E15160 07444 0760 00 0 00001 LBT F2E15170 07445 0020 00 0 07453 TRA OP32 F2E15180 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 125 BLOCK E. BINARY CARD NO. 9F210085 07446 0500 00 2 45631 CLA DOTAGZ+3,2 N2 VARIABLE, F2E15190 07447 0601 00 0 11625 STO CIL02 COMPILE F2E15200 07450 0500 00 0 11565 CLA L(0) CLA L(N2). F2E15210 07451 0601 00 0 11626 STO CIL03 F2E15220 07452 0020 00 0 07463 TRA OP33 F2E15230 07453 0500 00 2 45631 OP32 CLA DOTAGZ+3,2 F2E15240 07454 0767 00 0 00022 ALS 18 F2E15250 07455 0074 00 4 04101 TSX $FXCON,4 F2E15260 07456 0734 00 4 00000 PAX 0,4 F2E15270 07457 -0320 00 0 11540 ANA 6ONES F2E15280 07460 0601 00 0 11625 STO CIL02 F2E15290 07461 -0754 00 4 00000 PXD 0,4 F2E15300 07462 0601 00 0 11626 STO CIL03 F2E15310 07463 0500 00 0 11565 OP33 CLA L(0) F2E15320 07464 0601 00 0 11623 STO CIL00 F2E15330 07465 0500 00 0 04061 CLA L(CLA) F2E15340 07466 0601 00 0 11624 STO CIL01 F2E15350 07467 0074 00 4 07532 TSX CIT,4 F2E15360 07470 0500 00 2 45626 CLA DOTAGZ,2 F2E15370 07471 0771 00 0 00021 ARS 17 F2E15380 07472 0760 00 0 00001 LBT F2E15390 07473 0020 00 0 07501 TRA OP34 F2E15400 BINARY CARD NO. 9F210086 07474 0500 00 2 45630 CLA DOTAGZ+2,2 N1IS VARIABLE, F2E15410 07475 0601 00 0 11625 STO CIL02 PREPARE TO F2E15420 07476 0500 00 0 11565 CLA L(0) COMPILE F2E15430 07477 0601 00 0 11626 STO CIL03 SUBL(N1). F2E15440 07500 0020 00 0 07510 TRA OP35 F2E15450 07501 0500 00 2 45630 OP34 CLA DOTAGZ+2,2 N1 CONSTANT, F2E15460 07502 0767 00 0 00022 ALS 18 OBTAIN F2E15470 07503 0074 00 4 04101 TSX $FXCON,4 FIXCON SYMBOL F2E15480 07504 0734 00 4 00000 PAX 0,4 FOR N1 F2E15490 07505 -0320 00 0 11540 ANA 6ONES AND PREPARE F2E15500 07506 0601 00 0 11625 STO CIL02 TO COMPILE F2E15510 07507 -0634 00 4 11626 SXD CIL03,4 SUB L(N1). F2E15520 07510 0500 00 0 11514 OP35 CLA L(SUB) COMPILE F2E15530 07511 0601 00 0 11624 STO CIL01 SUB F2E15540 07512 0074 00 4 07532 TSX CIT,4 L(N1) F2E15550 07513 -0534 00 4 11501 LXD EROP3,4 F2E15560 07514 0020 00 4 00001 TRA 1,4 F2E15570 *************************************************************F2E15580 07515 -0534 00 1 07047 TTG LXD FIND10,1 PICK UP VALUE FOR LAST ENTRY F2E15590 07516 1 77774 1 07517 TXI *+1,1,-4 OF NEST AND BUMP TO VALUE FOR F2E15600 07517 -0634 00 1 07530 SXD FNEST,1 FIRST ENTRY OF NEXT NEST. F2E15610 07520 0500 00 1 41004 TTG10 CLA TAGZ,1 SEARCH FOR F2E15620 07521 0402 00 0 11555 SUB ALLONE END OF NEST F2E15630 BINARY CARD NO. 9F210087 07522 0100 00 0 07526 TZE *+4 FENCE. F2E15640 07523 1 77774 1 07524 TXI *+1,1,-4 F2E15650 07524 3 00000 1 07520 TXH TTG10,1,0 F2E15660 07525 0074 00 4 03746 TSX ERRORM,4 A FENCE OF 4 WORDS OF ALLONES F2E15670 SHOULD END THE TAGTAG TABLE. F2E15680 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 126 BLOCK E. 07526 -0634 00 1 07047 SXD FIND10,1 F2E15690 07527 0020 00 4 00001 TRA 1,4 F2E15700 07530 0 00000 0 00000 FNEST PZE 0 F2E15710 07531 -3 06654 0 32130 IOCOM2 IOST TAGTG,,1000*M/N*4 F2E15720 *************************************************************F2E15730 07532 -0634 00 4 04011 CIT SXD $E2C,4 F2E15740 07533 -0634 00 2 04012 SXD $E3C,2 F2E15750 07534 0074 00 2 07120 TSX LOCO,2 CITSP PART. F2E15760 07535 -0534 00 2 11622 LXD BBOX,2 F2E15770 07536 -0520 00 0 07645 NZT BLSW IF FIRST CIT OF A BLOCK, F2E15780 07537 0020 00 0 07544 TRA CIT02 (NOT FIRST, OMIT) F2E15790 07540 0500 00 0 11623 CLA CIL00 SET SIGN F2E15800 07541 -0760 00 0 00003 SSM MINUS F2E15810 07542 0601 00 0 11623 STO CIL00 AND STORE. F2E15820 07543 0600 00 0 07645 STZ BLSW RESET SIGNAL. F2E15830 07544 0534 00 4 11562 CIT02 LXA L(4),4 MOVE THE F2E15840 07545 0500 00 4 11627 CLA CIL00+4,4 CIT F2E15850 07546 0601 00 2 17730 STO DOFILE,2 TO F2E15860 07547 1 77777 2 07550 TXI CIT04,2,-1 DOFILE F2E15870 BINARY CARD NO. 9F210088 07550 2 00001 4 07545 CIT04 TIX CIT02+1,4,1 BUFFER. F2E15880 07551 3 71123 2 07553 TXH *+2,2,-LMXDF-1 F2E15890 07552 0074 00 4 03770 TSX ERRO13,4 DOFILE IS FULL. F2E15900 07553 -0634 00 2 11622 SXD BBOX,2 SAVE DOFILE XR VALUE. F2E15910 07554 -0534 00 2 04012 LXD $E3C,2 F2E15920 07555 -0534 00 4 04011 LXD $E2C,4 F2E15930 07556 0020 00 4 00001 TRA 1,4 F2E15940 *************************************************************F2E15950 DF01 SORTS A NEST OF CITS AND WRITES THEM ON TAPE 4. F2E15960 07557 0600 00 0 07644 DF01 STZ NTEST ERASE 6AST BLOCK INDICATOR. F2E15970 07560 -0534 00 2 07646 LXD BCNT,2 LOAD WITH VALUE FOR NEXT BUFFER. F2E15980 07561 -0534 00 1 11622 LXD BBOX,1 LOAD WITH VALUE FOR LAST DOFILE WD. F2E15990 07562 -0634 00 1 07600 DF20 SXD DF40,1 SET END OF BLOCK TEST VALUE. F2E16000 07563 1 00004 1 07564 TXI *+1,1,4 F2E16010 07564 -0500 00 1 17730 CAL DOFILE,1 SEARCH FOR BEGINNING F2E16020 07565 -0760 00 0 00001 PBT OF BLOCK OF CITS. F2E16030 07566 1 00004 1 07564 TXI *-2,1,4 F2E16040 07567 0601 00 1 17730 STO DOFILE,1 RESET P BIT TO ZERO IN CIT. F2E16050 07570 3 00000 1 07573 DF31 TXH DF34,1,0 TEST FOR LAST BLOCK OF NEST. F2E16060 07571 0500 00 0 11555 CLA ALLONE END OF F2E16070 07572 0601 00 0 07644 STO NTEST NEST FLAG. F2E16080 07573 0634 00 1 07643 DF34 SXA BLOCK,1 SAVE XR TO FIND NEXT BLOCK. F2E16090 07574 0500 00 1 17730 DF36 CLA DOFILE,1 MOVE A WORD TO BUFFER F2E16100 07575 0601 00 2 17420 DF37 STO BONE+CIBSZ,2 1 OR 2 (ADD. IS SWITCHED). F2E16110 BINARY CARD NO. 9F210089 07576 1 77777 1 07577 TXI *+1,1,-1 F2E16120 07577 -2 00001 2 07605 TNX DF50,2,1 IS BUFFER FULL. F2E16130 07600 3 00000 1 07574 DF40 TXH DF36,1,** TEST FOR END OF BLOCK. F2E16140 07601 0520 00 0 07644 ZET NTEST TEST FOR END OF NEST. F2E16150 07602 0020 00 0 04766 TRA MAN50+1 END OF NEST. F2E16160 07603 0534 00 1 07643 LXA BLOCK,1 END OF BLOCK. RESET XR F2E16170 07604 0020 00 0 07562 TRA DF20 AND GO TO FIND NEXT BLOCK. F2E16180 07605 -0774 00 2 77777 DF50 AXC -1,2 LOAD BUFFER INDEX. F2E16190 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 127 BLOCK E. * *** F2E16200 07606 0074 00 4 73606 DF51 TSX (TAPE),4 WRITE ONE F2E16210 07607 0 40001 2 07651 PZE B1Z,2,(WBNP) RECORD OF F2E16220 07610 0 00004 0 07641 PZE CMPDOL,,FTAPE4 COMPDO CIT'S. F2E16230 07611 0500 00 2 07650 CLA DSC7,2 SWITCH BUFFER F2E16240 07612 0621 00 0 07575 STA DF37 ADDRESS. F2E16250 07613 0634 00 2 07605 SXA DF50,2 F2E16260 07614 0774 00 2 00310 AXT CIBSZ,2 F2E16270 07615 3 00000 1 07600 TXH DF40,1,0 IS THIS LAST BUFFER(XR1=0). F2E16280 * *** F2E16290 07616 0074 00 4 73606 DFEXIT TSX (TAPE),4 WRITE END OF F2E16300 07617 0 40005 0 00000 PZE ,,(WEFP) FILE F2E16310 07620 0 00004 0 04773 PZE FILN2L,,FTAPE4 FOR COMPDO. F2E16320 * *** F2E16330 07621 0074 00 4 73606 TSX (TAPE),4 POSITION TAPE 2 F2E16340 07622 0 20000 0 07642 PZE SKLST5,,(SKBP) FOR F2E16350 07623 0 00002 0 04656 PZE TIFL,,FTAPE2 SECTION THREE. F2E16360 * *** F2E16370 BINARY CARD NO. 9F210090 07624 0074 00 4 73606 TSX (TAPE),4 REWIND TAPE 4 F2E16380 07625 0 20000 0 03773 PZE REWIND,,(SKBP) FOR F2E16390 07626 0 00004 0 04653 PZE TRLVL,,FTAPE4 SECTION THREE. F2E16400 * *** F2E16410 07627 0074 00 4 73600 TSX (LOAD),4 GO TO SECTION THREE. F2E16420 07630 0 00000 0 00000 PZE F2E16430 07631 0500 00 0 07605 DF70 CLA DF50 PICK UP F2E16440 07632 0737 00 2 00000 PAC ,2 BUFFER INDEX. F2E16450 07633 0500 00 2 07651 CLA B1Z,2 COMPUTE WORD COUNT F2E16460 07634 -0320 00 0 04001 ANA DECMSK FOR LAST BUFFER, F2E16470 07635 0402 00 0 07646 SUB BCNT AND STORE F2E16480 07636 0622 00 2 07651 STD B1Z,2 IN I/O COMMAND. F2E16490 07637 0774 00 1 00000 AXT 0,1 INDICATE LAST BUFFER AND F2E16500 07640 0020 00 0 07606 TRA DF51 GO TO WRITE. F2E16510 07641 234644472446 CMPDOL BCI 1,COMPDO F2E16520 07642 -0 00001 0 00011 SKLST5 MZE 9,,1 F2E16530 07643 0 00000 0 00000 BLOCK PZE 0 F2E16540 07644 0 00000 0 00000 NTEST PZE 0 F2E16550 07645 0 00000 0 00000 BLSW PZE F2E16560 07646 0 00310 0 00000 BCNT PZE ,,CIBSZ F2E16570 07647 0 00000 0 17730 B2Z PZE BTWO+CIBSZ F2E16580 07650 3 00310 0 17110 DSC7 IORT BONE,,CIBSZ F2E16590 07651 0 00000 0 17420 B1Z PZE BONE+CIBSZ F2E16600 BINARY CARD NO. 9F210091 07652 3 00310 0 17420 DSC8 IORT BTWO,,CIBSZ F2E16610 06654 LMXDF EQU 1000*M/N*4 F2E16620 07653 0020 00 4 00001 TRA 1,4 F2E16630 *************************************************************F2E16640 CILV IS CALLED WHEN AN INSTRUCTION NUMBER IS NEEDED FOR A COMF2E16650 PILED BETA STATE INSTRUCTION. F2E16660 07654 0500 00 0 11665 CILV CLA VCTR THIS ROUTINE UPDATES F2E16670 07655 0601 00 0 11623 STO CIL00 VCTR AND F2E16680 07656 0400 00 0 04007 ADD $L(8) STORE INTO CIL00 F2E16690 07657 0601 00 0 11665 STO VCTR IT IS CALLED WHEN F2E16700 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 128 BLOCK E. 07660 -0320 00 0 11572 ANA ADMSK WE NEED A LOCATION F2E16710 07661 0402 00 0 11517 SUB MAXLOC FOR A COMPILED F2E16720 07662 0100 00 0 07664 TZE CILV1 INSTRUCTION. F2E16730 07663 0020 00 4 00001 TRA 1,4 F2E16740 07664 0074 00 4 03766 CILV1 TSX ERRO12,4 SOURCE PROGRAM ERROR. F2E16750 *************************************************************F2E16760 N3BIT PLACES THE VARIABLE N3 BIT OF A DO IN THE WORK N3IND. F2E16770 07665 -0534 00 2 11652 N3BIT LXD DOIND,2 THIS ROUTIN E ISOLATES F2E16780 07666 0500 00 2 45626 CLA DOTAGZ,2 THE N3 BIT SO THAT F2E16790 07667 0771 00 0 00017 ARS 15 IT CAN BE EASILY TESTED. F2E16800 07670 -0320 00 0 11560 ANA L(1) F2E16810 07671 0601 00 0 11656 STO N3IND F2E16820 07672 0020 00 4 00001 TRA 1,4 RETURN F2E16830 TETG DETERMINES FOR WHICH DOS A GIVEN TAG IS A TEST. THIS F2E16840 INFORMATION IS RECORDED IN TAG4. F2E16850 07673 0500 00 0 11475 TETG CLA TAG3 ISOLATE F2E16860 07674 -0320 00 0 11572 ANA ADMSK TAG NAME. F2E16870 07675 0601 00 0 11662 STO ER40 F2E16880 07676 0500 00 0 11476 CLA TAG4 ISOLATE DUPES INDICATORS F2E16890 07677 0771 00 0 00011 ARS 9 F2E16900 BINARY CARD NO. 9F210092 07700 -0320 00 0 11532 ANA L(7) IF THERE ARE DUPES F2E16910 07701 0601 00 0 11663 STO ER41 THIS INSURES THAT TEST BITS F2E16920 07702 0402 00 0 11560 SUB L(1) ARE ENTERED ONLY FOR F2E16930 07703 0320 00 0 11663 ANS ER41 RIGHTMOST DUPE. F2E16940 07704 0534 00 1 04005 LXA $L(3),1 F2E16950 07705 0500 00 1 11475 CLA TAG2+3,1 SELECT DOTAG WHICH F2E16960 07706 0100 00 0 07725 TZE TETG5 CONTROLS THIS F2E16970 07707 -0734 00 2 00000 PDX 0,2 SUBSCRIPT. F2E16980 07710 0500 00 2 45636 CLA DOTAGZ+8,2 F2E16990 07711 -0320 00 0 11541 ANA TETMSK ISOLATE TEST NAME F2E17000 07712 0771 00 0 00022 ARS 18 OF THIS SUBSCRIPT. F2E17010 07713 0402 00 0 11662 SUB ER40 DOES TEST NAME EQUAL TAG NAME. F2E17020 07714 -0100 00 0 07725 TNZ TETG5 NO, GO TO NEXT SUBSCRIPT. F2E17030 07715 0560 00 0 11663 LDQ ER41 TEST NAME EQUALS TAG NAME, F2E17040 07716 0763 00 1 00044 LLS 36,1 SEE IF THIS SUBSCRIPT F2E17050 07717 0760 00 0 00001 LBT IS A LEFT DUPE. F2E17060 07720 0020 00 0 07722 TRA TETG3 NOT A LEFT DUPE, ENTER TEST BIT. F2E17070 07721 0020 00 0 07725 TRA TETG5 LEFT DUPE, IGNORE. F2E17080 07722 0500 00 0 11567 TETG3 CLA BIT1 ENTER TEST BIT F2E17090 07723 0771 00 1 00012 ARS 10,1 FOR THIS F2E17100 07724 -0602 00 0 11476 ORS TAG4 SUBSCRIPT. F2E17110 07725 2 00001 1 07705 TETG5 TIX TETG+10,1,1 DEAL WITH NEXT SUBSCRIPT. F2E17120 BINARY CARD NO. 9F210093 07726 0020 00 4 00001 TRA 1,4 F2E17130 *************************************************************F2E17140 PRES DETERMINES THE TXI BLOCK NJMBER FOR A GIVEN TAG AND PUTSF2E17150 IT IN INDEX REGISTER B. F2E17160 07727 0500 00 0 11476 PRES CLA TAG4 FIRST THE TEST F2E17170 07730 0765 00 0 00032 LRS 26 BITS ARE ISOLATED F2E17180 07731 0767 00 0 00041 ALS 33 AND STORED. F2E17190 07732 0601 00 0 11662 STO ER40 TEST BITS 1,2. F2E17200 07733 0763 00 0 00005 LLS 5 THEN THE GROUP NO. F2E17210 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 129 BLOCK E. 07734 0767 00 0 00024 ALS 20 IS LEFT F2E17220 07735 -0501 00 0 11476 ORA TAG4 IN THE MQ WHILE THE F2E17230 07736 0771 00 0 00025 ARS 21 CARRY BITS ARE ORED F2E17240 07737 -0320 00 0 11564 ANA L(5) AND STORED. F2E17250 07740 0601 00 0 11663 STO ER41 CARRY BITS 101. F2E17260 07741 0763 00 0 00005 LLS 5 THE GROUP NO. IS THEN F2E17270 07742 -0501 00 0 11661 ORA POSIND SHIFTED TO BE COMBINED F2E17280 07743 0560 00 0 11662 LDQ ER40 WITH THE POS. THE TEST F2E17290 07744 0763 00 0 00001 LLS 1 BITS ARE SEPARATED SO THAT F2E17300 07745 0767 00 0 00001 ALS 1 THEY CAN OR PROPERLY WITH F2E17310 07746 0763 00 0 00002 LLS 2 CARRY BITS LT, LC, CT, CC. F2E17320 07747 -0501 00 0 11663 ORA ER41 THIS RESULTS IN THE MASK F2E17330 07750 0601 00 0 11664 STO ARG USED FOR TABLE SEARCH. F2E17340 07751 -0634 00 4 11662 SXD ER40,4 F2E17350 07752 0534 00 1 11560 LXA L(1),1 THIS BLOCK REPRESENTS F2E17360 07753 1 00046 1 07754 TXI PRES10,1,38 SETS OF CALLING SEQUENCES TO F2E17370 BINARY CARD NO. 9F210094 07754 -0634 00 1 10014 PRES10 SXD S3,1 SEARCH ROUTINE. MASK IS F2E17380 07755 1 00011 1 07756 TXI PRES20,1,9 STORED AND BLOCK TEST F2E17390 07756 0500 00 0 11574 PRES20 CLA SMSK1 INDEX DECREMENT IS STORED. F2E17400 07757 0601 00 0 11573 STO SMSK FIRST 11 ENTRIES ARE F2E17410 07760 0074 00 4 10004 TSX SEARCH,4 SEARCHED. THEN 12,12,4. F2E17420 07761 0500 00 0 11575 CLA SMSK2 RETURN TO ROUTINE F2E17430 07762 0601 00 0 11573 STO SMSK AFTER SEARCHING LAST F2E17440 07763 2 00014 1 07764 TIX PRES30,1,12 BLOCK INDICATES AN ERROR. F2E17450 07764 -0634 00 1 10014 PRES30 SXD S3,1 F2E17460 07765 1 00014 1 07766 TXI PRES40,1,12 F2E17470 07766 0074 00 4 10004 PRES40 TSX SEARCH,4 F2E17480 07767 0500 00 0 11577 CLA SMSK4 F2E17490 07770 0601 00 0 11573 STO SMSK F2E17500 07771 2 00024 1 07772 TIX PRES50,1,20 F2E17510 07772 -0634 00 1 10014 PRES50 SXD S3,1 F2E17520 07773 1 00024 1 07774 TXI PRES60,1,20 F2E17530 07774 0074 00 4 10004 PRES60 TSX SEARCH,4 F2E17540 07775 0500 00 0 11576 CLA SMSK3 F2E17550 07776 0601 00 0 11573 STO SMSK F2E17560 07777 2 00006 1 10000 TIX PRES70,1,6 F2E17570 10000 -0634 00 1 10014 PRES70 SXD S3,1 F2E17580 10001 1 00006 1 10002 TXI PRES80,1,6 F2E17590 BINARY CARD NO. 9F210095 10002 0074 00 4 10004 PRES80 TSX SEARCH,4 F2E17600 10003 0074 00 4 03746 TSX ERRORM,4 ERROR RETURN FROM SEARCH. F2E17610 IF LAST BLOCK OF RX TABLE F2E17620 IS SEARCHED AND NO XR1 RX F2E17630 WORD (MODIFIED BY SEARCH, F2E17640 STORED IN WRKRXT) IS FOUND F2E17650 TO MATCH ARG(ALSO MODIFIED F2E17660 BY SMSK), THIS RETURN IS F2E17670 TAKEN. F2E17680 *************************************************************F2E17690 SEARCH IS CALLED BY PRES TO COMPARE CONSTANTS IN THE RX TABLEF2E17700 AGAINST VARIOUS PERMUTATIONS OF AN ARGUMENT WORD. A MATCHINGF2E17710 COMPARISON MEANS THE CONSTANT WILL YIELD THE CORRECT BLOCK NUF2E17720 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 130 BLOCK E. NUMBER. F2E17730 10004 0500 00 1 10103 SEARCH CLA RXTA+48,1 F2E17740 10005 0771 00 0 00003 ARS 3 THIS ROUTINE TAKES F2E17750 10006 0601 00 0 11641 STO WRKRXT THE ARGUMENT MASK, EDITS F2E17760 10007 0500 00 0 11664 CLA ARG IT AND THEN SEARCHES F2E17770 10010 -0320 00 0 11573 ANA SMSK PRESCRIBED BLOCKS OF F2E17780 10011 0402 00 0 11641 SUB WRKRXT THE RX TABLE. F2E17790 10012 0100 00 0 10016 TZE S8 SUCCESSFUL SEARCH. F2E17800 10013 2 00001 1 10014 TIX S3,1,1 INDEX FOR NEXT ENTRY. F2E17810 10014 3 00000 1 10004 S3 TXH SEARCH,1,0 TEST FOR END OF BLOCK. F2E17820 10015 0020 00 4 00001 TRA 1,4 F2E17830 10016 0500 00 1 10103 S8 CLA RXTA+48,1 TABLE ENTRY CONTAINS F2E17840 10017 -0320 00 0 11532 ANA L(7) BLOCK NOS. 0-5 WHICH F2E17850 10020 0734 00 2 00000 PAX 0,2 CORRESPOND TO BLOCKS F2E17860 10021 -0534 00 4 11662 LXD ER40,4 A-F. F2E17870 10022 0020 00 4 00001 TRA 1,4 F2E17880 10023 +000000006600 RXTA OCT 6600 6L, 760 MASK F2E17890 10024 +000000006400 OCT 6400 6C F2E17900 10025 +000000006200 OCT 6200 6R F2E17910 10026 +000000005600 OCT 5600 5L F2E17920 10027 +000000004600 OCT 4600 4L F2E17930 BINARY CARD NO. 9F210096 10030 +000000004200 OCT 4200 4R F2E17940 10031 +000000003400 OCT 3400 3C F2E17950 10032 +000000002400 OCT 2400 2C F2E17960 10033 +000000001600 OCT 1600 1L F2E17970 10034 +000000005501 OCT 5501 5C, 774 MASK F2E17980 10035 +000000005400 OCT 5400 5C F2E17990 10036 +000000005302 OCT 5302 5R F2E18000 10037 +000000005200 OCT 5200 5R F2E18010 10040 +000000004541 OCT 4541 4C F2E18020 10041 +000000004501 OCT 4501 4C F2E18030 10042 +000000004445 OCT 4445 4C F2E18040 10043 +000000004400 OCT 4400 4C F2E18050 10044 +000000001541 OCT 1541 1C F2E18060 10045 +000000001501 OCT 1501 1C F2E18070 10046 +000000001445 OCT 1445 1C F2E18080 10047 +000000001400 OCT 1400 1C F2E18090 10050 +000000001215 OCT 1215 1R, 773 MASK F2E18100 10051 +000000001200 OCT 1200 1R F2E18110 10052 +000000002723 OCT 2723 2L F2E18120 10053 +000000002733 OCT 2733 2L F2E18130 10054 +000000002623 OCT 2623 2L F2E18140 10055 +000000002633 OCT 2633 2L F2E18150 BINARY CARD NO. 9F210097 10056 +000000003324 OCT 3324 3R F2E18160 10057 +000000003302 OCT 3302 3R F2E18170 10060 +000000003223 OCT 3223 3R F2E18180 10061 +000000003200 OCT 3200 3R F2E18190 10062 +000000003723 OCT 3723 3L,BL. A, LEFT + CENTER TEST. F2E18200 10063 +000000003700 OCT 3700 3L, BL. A, LEFT TEST. F2E18210 10064 +000000003623 OCT 3623 3L, BL. D, CENTER TEST. F2E18220 10065 +000000003600 OCT 3600 3L, BL. A, NO TEST. F2E18230 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 131 BLOCK E. 10066 +000000001334 OCT 1334 1R F2E18240 10067 +000000001324 OCT 1324 1R F2E18250 10070 +000000001315 OCT 1315 1R F2E18260 10071 +000000001302 OCT 1302 1R F2E18270 10072 +000000001233 OCT 1233 1R F2E18280 10073 +000000001223 OCT 1223 1R F2E18290 10074 +000000002600 OCT 2600 2L, 763 MASK F2E18300 10075 +000000002610 OCT 2610 2L F2E18310 10076 +000000002233 OCT 2233 2R F2E18320 10077 +000000002223 OCT 2223 2R F2E18330 10100 +000000002215 OCT 2215 2R F2E18340 10101 +000000002200 OCT 2200 2R F2E18350 *************************************************************F2E18360 CN3IJ COMPUTES THE INDEX INCREMENTING VALUE FOR EACH PASS THRF2E18370 THROUGH A DO LOOP. THIS IS THE NORMAL TXI DECREMENT. F2E18380 10102 0560 00 2 45632 CN3IJ LDQ DOTAGZ+4,2 COMPUTES DECREMENT AND F2E18390 10103 0763 00 0 00022 LLS 18 LEAVES IT IN ACCUMULATOR. F2E18400 BINARY CARD NO. 9F210098 10104 3 00002 1 10112 TXH CN3IJ5,1,2 IF POSIND=3, S1 POS. F2E18410 10105 0200 00 0 04022 MPY $WRKSC+6 D1N3 FOR S2 OR S3. F2E18420 10106 0765 00 0 00022 LRS 18 F2E18430 10107 3 00001 1 10112 TXH CN3IJ5,1,1 POSIND=2 S2 POS. F2E18440 10110 0200 00 0 04023 MPY $WRKSC+7 D2D1N3 FOR S3. F2E18450 10111 0765 00 0 00022 LRS 18 F2E18460 10112 -0754 00 1 00000 CN3IJ5 PXD 0,1 PLACE TWICE F2E18470 10113 0767 00 0 00001 ALS 1 POSIND IN F2E18480 10114 -0734 00 1 00000 PDX 0,1 INDEX REGISTER. F2E18490 10115 0200 00 1 04022 MPY $WRKSC+6,1 CN3D1D2 OR CN3D1 OR CN3. F2E18500 10116 0771 00 0 00001 ARS 1 F2E18510 10117 0020 00 4 00001 TRA 1,4 RESULT IS N3G. F2E18520 *************************************************************F2E18530 CIL023 FILLS OUT THE LOCATION, ADDRESS, AND TAG NAME WORDS FOF2E18540 FOR NON-LOCATION COMPILED INSTRUCTIONS ADDRESSING THE FOLLOWIF2E18550 ING INSTRUCTIONS F2E18560 10120 0500 00 0 11565 CIL023 CLA L(0) ROUTINE PLACES SPECIAL F2E18570 10121 0601 00 0 11623 STO CIL00 F2E18580 10122 0500 00 0 04004 CLA $L1DEC SYMBOL FOR ADDRESS. F2E18590 10123 0601 00 0 11626 STO CIL03 F2E18600 10124 0500 00 0 11533 CLA BCD15 AND INITIALIZES LOC. WORD F2E18610 10125 0601 00 0 11625 STO CIL02 AND PLACES TAG IN F2E18620 10126 0500 00 0 11475 CLA TAG3 TAG WD. THIS IS DOEN F2E18630 10127 0621 00 0 11626 STA CIL03 FOR INST. OF K DECREMENT. F2E18640 10130 0020 00 4 00001 TRA 1,4 F2E18650 *************************************************************F2E18660 TGA MAKES AN ENTRY IN APPENDED TAGTAG SHOWING THE LOCATION OFF2E18670 A GIVEN VARIABLE DECREMENT TXI OR TIX. FOR REFERENCE BY THE F2E18680 ALPHA STATE WHEN COMPILING CECREMENT INITIALIZATION F2E18690 INSTRUCTIONS. F2E18700 10131 0767 00 0 00022 TGA ALS 18 FOR RX LOC. F2E18710 BINARY CARD NO. 9F210099 10132 0771 00 0 00003 TGAT ARS 3 FOR TX LOC, DIV VCTOR BY 8. F2E18720 10133 0601 00 0 11627 STO ERTGA F2E18730 10134 0534 00 1 11661 LXA POSIND,1 F2E18740 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 132 BLOCK E. 10135 0500 00 0 11660 CLA XTG CALCULATES X LOC OF TTGA. F2E18750 10136 0771 00 0 00002 ARS 2 INDEX QUANTITY FOR TTGA IS F2E18760 10137 -0734 00 2 00000 PDX 0,2 ONE FOURTH THAT FOR TTG. F2E18770 10140 0500 00 0 11627 CLA ERTGA F2E18780 10141 2 00001 1 10144 TGA5 TIX TGA10,1,1 SHIFT LEFT FOR S1 OR S2 F2E18790 10142 -0602 00 2 42557 TGA8 ORS MXTGA,2 ADDRESS IS ORIGIN PLUS MAX F2E18800 10143 0020 00 4 00001 TRA 1,4 ADD TG WD. LINKAGE TRANSFER. F2E18810 10144 0767 00 0 00006 TGA10 ALS 6 F2E18820 10145 0020 00 0 10141 TRA TGA5 F2E18830 *************************************************************F2E18840 EDCB COMPILES TXI-SXD-TIX INSTRUCTIONS AND STORES THE SXD LOCF2E18850 ATION FOR BLOCKS B,C,D, OR E WHEN THE DECREMENTS ARE CONSTANTF2E18860 AND KNOWN. F2E18870 10146 -0634 00 4 10166 EDCB SXD EDCB5,4 COMPILES TXI SXD TIX F2E18880 10147 0500 00 0 11503 CLA L(TXI) INSTRUCTIONS WHEN F2E18890 10150 0601 00 0 11624 STO CIL01 DECREMENTS ARE KNOWN. F2E18900 10151 0500 00 0 11666 CLA ERTX01 ASSUMES DECREMENTS TO F2E18910 10152 0621 00 0 11624 STA CIL01 BE IN ERTX01 AND F2E18920 10153 0074 00 4 10120 TSX CIL023,4 ERTX02. F2E18930 10154 0074 00 4 07532 TSX CIT,4 COMPILE TXI INSTRUCITON. F2E18940 10155 0074 00 4 07236 TSX CSXD,4 COMPILE SXD SKELETON. F2E18950 10156 0500 00 0 11623 CLA CIL00 F2E18960 10157 -0320 00 0 11572 ANA ADMSK F2E18970 BINARY CARD NO. 9F210100 10160 0767 00 0 00014 ALS 12 BELOW, PLACE SXD LOC. INTO F2E18980 10161 -0534 00 4 11671 LXD BLKNUM,4 DOTAG WORD 7. APPROPRIATE F2E18990 10162 3 00002 4 10167 TXH EDCB10,4,2 BITS DEPEND ON BLOCK NOS. F2E19000 10163 -0534 00 2 11472 LXD TAG2,2 BLOCKS D, E SHIFT LEFT 12. F2E19010 10164 3 00001 4 10166 TXH EDCB5,4,1 BLOCKS C, B USE S1 DOTAG. F2E19020 10165 0767 00 0 00006 ALS 6 BLOCK C, SHIFT LEFT 12. F2E19030 10166 -3 00000 0 10170 EDCB5 TXL EDCB20,,0 BLOCK B, SHIFT LEFT 18. F2E19040 10167 -0534 00 2 11473 EDCB10 LXD TAG2+1,2 BLOCK D,E USE S2 DOTAG. F2E19050 10170 -0602 00 2 45634 EDCB20 ORS DOTAGZ+6,2 PLACE LOC. INTO WD 7. F2E19060 10171 0500 00 0 11506 CLA L(TIX) COMPILE F2E19070 10172 0601 00 0 11624 STO CIL01 TIX. F2E19080 10173 0500 00 0 11667 CLA ERTX02 COMPILE F2E19090 10174 0621 00 0 11624 STA CIL01 TIX DECREMENT. F2E19100 10175 0074 00 4 10120 TSX CIL023,4 F2E19110 10176 0074 00 4 07532 TSX CIT,4 F2E19120 10177 -0534 00 4 10166 LXD EDCB5,4 F2E19130 10200 0020 00 4 00001 TRA 1,4 F2E19140 *************************************************************F2E19150 BCDE COMPILES TXI-SXD-TIX INSTRUCTIONS AND MAKES PROPER TABLEF2E19160 ENTRIES IN DOTAG AND TGA WHEN BLOCK B,C,D, OR E IS VARIABLE. F2E19170 10201 -0634 00 4 10222 BCDE SXD BCDE2,4 F2E19180 10202 0074 00 4 07654 TSX CILV,4 OBTAIN LOC. FOR FIRST INST. F2E19190 10203 0500 00 0 11623 CLA CIL00 MAKE LOCATION ENTRY INTO F2E19200 10204 -0320 00 0 11572 ANA ADMSK APPENDED TAG WORD. F2E19210 10205 0074 00 4 10131 TSX TGA,4 F2E19220 BINARY CARD NO. 9F210101 10206 0500 00 0 11503 CLA L(TXI) PLACE OPERATION IN F2E19230 10207 0601 00 0 11624 STO CIL01 COMPILED INSTRUCTIN. F2E19240 10210 0074 00 4 10260 TSX CIL23,4 FILL OUT REMAINING WORDS. F2E19250 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 133 BLOCK E. 10211 0074 00 4 07532 TSX CIT,4 F2E19260 10212 0074 00 4 07236 TSX CSXD,4 F2E19270 10213 -0534 00 2 11671 LXD BLKNUM,2 F2E19280 10214 -3 00002 2 10223 TXL BCDE5,2,2 TEST FOR BLOCKS B OR C. F2E19290 10215 0500 00 0 11623 CLA CIL00 BLOCK D OR E. F2E19300 10216 -0534 00 1 11473 LXD TAG2+1,1 PLACE LOC. OF SXD INST. F2E19310 10217 -0320 00 0 11572 ANA ADMSK INTO DOTAG ENTRY FOR F2E19320 10220 0767 00 0 00014 ALS 12 CENTER SUBSCRIPT. F2E19330 10221 -0602 00 1 45634 ORS DOTAGZ+6,1 F2E19340 10222 -3 00000 0 10232 BCDE2 TXL BCDE9,,0 BLOCKS D,E CONTINUE F2E19350 10223 0500 00 0 11623 BCDE5 CLA CIL00 BLOCK B OR C . F2E19360 10224 -0534 00 1 11472 LXD TAG2,1 PLACE LOC. FOR SXD OF F2E19370 10225 -0320 00 0 11572 ANA ADMSK REMAINING TWO BLOCKS. F2E19380 10226 0767 00 0 00014 ALS 12 DISTINGUISH BETWEEN BLOCK B, C. F2E19390 10227 3 00001 2 10231 TXH BCDE8,2,1 F2E19400 10230 0767 00 0 00006 ALS 6 F2E19410 10231 -0602 00 1 45634 BCDE8 ORS DOTAGZ+6,1 F2E19420 10232 -0754 00 2 00000 BCDE9 PXD 0,2 BLOCK NUMBER MUST BE F2E19430 10233 0767 00 0 00016 ALS 14 STORED IN PROPER POS. F2E19440 BINARY CARD NO. 9F210102 10234 0534 00 1 11661 LXA POSIND,1 OF TAG 4 WORD. F2E19450 10235 -3 00001 1 10241 TXL BCDE10-1,1,1 F2E19460 10236 -3 00002 1 10242 TXL BCDE10,1,2 IF POSITION IS LEFT, F2E19470 10237 -0500 00 0 11571 CAL BIT8 PLACE A ONE IN BIT 7 OF TAG4 F2E19480 10240 0020 00 0 10242 TRA BCDE10 TO INDICATE BLOCK D SPECIAL. F2E19490 10241 0771 00 0 00003 ARS 3 F2E19500 10242 -0534 00 2 11660 BCDE10 LXD XTG,2 F2E19510 10243 -0602 00 2 41007 ORS TAGZ+3,2 F2E19520 10244 0074 00 4 07654 TSX CILV,4 OBTAIN LOC. FOR THIRD F2E19530 10245 0500 00 0 11506 CLA L(TIX) INST. AND OPERATION PART F2E19540 10246 0601 00 0 11624 STO CIL01 FOR 2ND WORD. F2E19550 10247 0074 00 4 10260 TSX CIL23,4 FILL OUT REMAINING WORDS. F2E19560 10250 0074 00 4 07532 TSX CIT,4 F2E19570 10251 -0534 00 4 10222 LXD BCDE2,4 F2E19580 10252 0020 00 4 00001 TRA 1,4 F2E19590 *************************************************************F2E19600 NBITS ISOLATES THE VARIABLE PARAMETER BITS FOR A GIVEN DOTAG.F2E19610 10253 0500 00 2 45626 NBITS CLA DOTAGZ,2 ROUTINE FOR ISOLATING F2E19620 10254 0771 00 0 00017 ARS 15 THE N BITS OF A DO. F2E19630 10255 -0320 00 0 11532 ANA L(7) F2E19640 10256 0601 00 0 11657 STO N1N2N3 F2E19650 10257 0020 00 4 00001 TRA 1,4 F2E19660 *************************************************************F2E19670 CIL23 FILLS OUT THE ADDRESS AND TAG NAME WORDS FOR A COMPILEDF2E19680 INSTRUCTION WHEN THE ADDRESS IS TO BE THE NEXT SEQUENTIAL INSF2E19690 TRUCTION AND THE LOCATION WORD IS FILLED ELSEWHERE. F2E19700 10260 0500 00 0 11533 CIL23 CLA BCD15 THIS ROUTINE PLACES TAG IN F2E19710 10261 0601 00 0 11625 STO CIL02 TAG WD. OF CIL03 AND 1 F2E19720 BINARY CARD NO. 9F210103 10262 0500 00 0 11475 CLA TAG3 IN DECREMENT FOR THE F2E19730 10263 -0320 00 0 11572 ANA ADMSK RELATIVE PART, F2E19740 10264 -0501 00 0 04004 ORA $L1DEC PLACES THE LOCATION IN F2E19750 10265 0601 00 0 11626 STO CIL03 THE ADDRESS WORD CIL02 . F2E19760 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 134 BLOCK E. 10266 0020 00 4 00001 TRA 1,4 F2E19770 *************************************************************F2E19780 CILNAM ENTERS ONLY THE TAG NAME. F2E19790 10267 0500 00 0 11475 CILNAM CLA TAG3 THIS ROUTINE F2E19800 10270 -0320 00 0 11572 ANA ADMSK ENTERS THE F2E19810 10271 0601 00 0 11626 STO CIL03 TAG NAME F2E19820 10272 0020 00 4 00001 TRA 1,4 IN CIL. F2E19830 *************************************************************F2E19840 CDORO TAKES COEF. AND DIM. AND FILLS OUT ORO. F2E19850 10273 -0634 00 4 10276 CDORO SXD CDORO1,4 F2E19860 10274 -0534 00 2 11633 LXD AX,2 F2E19870 10275 -0760 00 0 00144 MSE 100 F2E19880 10276 3 00000 0 10277 CDORO1 TXH CDORO1+1,,0 WHICH SUB IS IT. F2E19890 10277 -3 00002 2 10306 TXL CDORO3,2,2 S2 OR S3, TRA. F2E19900 10300 0500 00 0 04014 CLA $WRKSC S1, F2E19910 10301 0402 00 0 04004 SUB $L1DEC IS C1 MORE THAN 1. F2E19920 10302 0100 00 4 00001 TZE 1,4 C1=1, RETURN. F2E19930 10303 0760 00 0 00144 PSE 100 C1 NOT = 1, TURN ON F2E19940 10304 0500 00 0 04014 CLA $WRKSC SENSE LIGHT, ISOLATE C1. F2E19950 10305 0020 00 0 10316 TRA CDORO7+1 F2E19960 10306 0560 00 0 04022 CDORO3 LDQ $WRKSC+6 ISOLATE D1. F2E19970 10307 -3 00001 2 10312 TXL CDORO5,2,1 WHICH SUB IS IT. F2E19980 BINARY CARD NO. 9F210104 10310 0200 00 0 04016 MPY $WRKSC+2 S2, FORM C2D1. F2E19990 10311 0020 00 0 10315 TRA CDORO7 F2E20000 10312 0200 00 0 04020 CDORO5 MPY $WRKSC+4 S3, FORM F2E20010 10313 0765 00 0 00022 LRS 18 C3D1D2. F2E20020 10314 0200 00 0 04023 MPY $WRKSC+7 F2E20030 10315 0767 00 0 00021 CDORO7 ALS 17 ASSIGN SYMBOL F2E20040 10316 0074 00 4 04101 TSX $FXCON,4 FOR G AND PUT F2E20050 10317 0601 00 0 04047 STO ORO00+19 IN ORO + 19. F2E20060 10320 -0534 00 4 10276 LXD CDORO1,4 RESTORE LINKAGE, F2E20070 10321 -0534 00 2 11633 LXD AX,2 PUT AX POSITION IN F2E20080 10322 0020 00 4 00001 TRA 1,4 I.R. B AND RETURN. F2E20090 *************************************************************F2E20100 AORO, BORO, CORO, DORO, AND EORO ARE CALLED TO MAKE APPROPRIAF2E20110 COMPILING TABLE (ORO) ENTRIES AND TO CALLL ROUTINES TO MAKE F2E20120 COMPUTATIONS AND COMPILE INSTRUCTIONS TO INTIALIZE VARIABLE DF2E20130 DECREMENTS FOR BLOCKS A, B, C, D, AND E RESPECTIVELY. F2E20140 10323 -0634 00 4 10345 AORO SXD AORO5,4 F2E20150 10324 0500 00 1 11475 CLA TAG2+3,1 LOCATION IS F2E20160 10325 -0734 00 2 00000 PDX 0,2 SPECIFIED IN ORO +14 F2E20170 10326 0500 00 2 45626 CLA DOTAGZ,2 BY COMBINING TETLOC F2E20180 10327 -0320 00 0 11572 ANA ADMSK WITH PROPER BETA. F2E20190 10330 0767 00 0 00022 ALS 18 F2E20200 10331 -0501 00 0 11676 ORA TETLOC F2E20210 10332 0601 00 0 04042 STO ORO00+14 F2E20220 10333 0500 00 2 45632 CLA DOTAGZ+4,2 F2E20230 10334 0601 00 0 04024 STO ORO00 F2E20240 10335 -0534 00 1 11633 LXD AX,1 F2E20250 BINARY CARD NO. 9F210105 10336 -3 00002 1 10346 TXL AORO10,1,2 S2 OR S3. F2E20260 10337 0500 00 0 04014 CLA $WRKSC S1, IS F2E20270 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 135 BLOCK E. 10340 0402 00 0 04004 SUB $L1DEC C1=1. F2E20280 10341 0100 00 0 10423 TZE AORO30 YES F2E20290 10342 0400 00 0 04004 ADD $L1DEC NO, ASSIGN F2E20300 10343 0074 00 4 04101 TSX $FXCON,4 SYMBOL FOR C1. F2E20310 10344 0601 00 0 04047 STO ORO00+19 F2E20320 10345 -3 00000 0 10427 AORO5 TXL AORO40,,0 F2E20330 10346 -3 00001 1 10366 AORO10 TXL AORO20,1,1 IS SUB S2. F2E20340 10347 0560 00 0 04016 LDQ $WRKSC+2 YES, FOR C2D1. F2E20350 10350 0200 00 0 04022 MPY $WRKSC+6 IF S2 IS A F2E20360 10351 0767 00 0 00021 ALS 17 DUPE, ADD C1. F2E20370 10352 0601 00 0 11666 STO ERAORO F2E20380 10353 0560 00 0 11476 LDQ TAG4 F2E20390 10354 0763 00 0 00031 LLS 25 F2E20400 10355 0760 00 0 00001 LBT F2E20410 10356 0020 00 0 10362 TRA AORO14 NO DUPES. F2E20420 10357 0500 00 0 04014 CLA $WRKSC F2E20430 10360 0400 00 0 11666 ADD ERAORO F2E20440 10361 0601 00 0 11666 STO ERAORO F2E20450 10362 0500 00 0 11666 AORO14 CLA ERAORO CONTAINS C2D1, ETC. F2E20460 10363 0074 00 4 04101 TSX $FXCON,4 ASSIGN SYMBOL FOR F2E20470 BINARY CARD NO. 9F210106 10364 0601 00 0 04047 STO ORO00+19 G AND PUT IN ORO+19 F2E20480 10365 0020 00 0 10427 TRA AORO40 F2E20490 10366 0560 00 0 04020 AORO20 LDQ $WRKSC+4 S3, FORM F2E20500 10367 0200 00 0 04022 MPY $WRKSC+6 C3D1D2. F2E20510 10370 0765 00 0 00022 LRS 18 F2E20520 10371 0200 00 0 04023 MPY $WRKSC+7 F2E20530 10372 0767 00 0 00021 ALS 17 F2E20540 10373 0601 00 0 11666 STO ERAORO F2E20550 10374 0560 00 0 11476 LDQ TAG4 CHECK DUPES F2E20560 10375 0763 00 0 00032 LLS 26 AND MAKE G F2E20570 10376 0760 00 0 00001 LBT ADJUSTMENTS F2E20580 10377 0020 00 0 10417 TRA AORO24 ACCORDINGLY. F2E20590 10400 0771 00 0 00001 ARS 1 F2E20600 10401 0760 00 0 00001 LBT F2E20610 10402 0020 00 0 10410 TRA AORO22 F2E20620 10403 0560 00 0 04016 LDQ $WRKSC+2 F2E20630 10404 0200 00 0 04022 MPY $WRKSC+6 F2E20640 10405 0767 00 0 00021 ALS 17 F2E20650 10406 0400 00 0 11666 ADD ERAORO F2E20660 10407 0601 00 0 11666 STO ERAORO F2E20670 10410 0500 00 0 11476 AORO22 CLA TAG4 F2E20680 10411 0771 00 0 00013 ARS 11 F2E20690 BINARY CARD NO. 9F210107 10412 0760 00 0 00001 LBT F2E20700 10413 0020 00 0 10417 TRA AORO24 F2E20710 10414 0500 00 0 04014 CLA $WRKSC F2E20720 10415 0400 00 0 11666 ADD ERAORO F2E20730 10416 0601 00 0 11666 STO ERAORO F2E20740 10417 0500 00 0 11666 AORO24 CLA ERAORO F2E20750 10420 0074 00 4 04101 TSX $FXCON,4 ASSIGN SYMBOL FOR F2E20760 10421 0601 00 0 04047 STO ORO00+19 G FOR S3. F2E20770 10422 0020 00 0 10427 TRA AORO40 F2E20780 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 136 BLOCK E. 10423 0534 00 1 11561 AORO30 LXA L(2),1 SUB IS S1, C1=1. F2E20790 10424 0500 00 0 11237 CLA K2AORO COMPILE CLA, STD. F2E20800 10425 0074 00 4 11146 TSX LXC,4 F2E20810 10426 0020 00 0 10432 TRA AORO50 F2E20820 10427 0534 00 1 11562 AORO40 LXA L(4),1 COMPILE LDQ,MPY, STD. F2E20830 10430 0500 00 0 11235 CLA K1AORO F2E20840 10431 0074 00 4 11146 TSX LXC,4 F2E20850 10432 -0534 00 4 10345 AORO50 LXD AORO5,4 RESTORE LINKAGE. F2E20860 10433 0020 00 4 00001 TRA 1,4 F2E20870 *************************************************************F2E20880 10434 -0634 00 4 04013 BORO SXD $LINKC,4 FOR B BLOCK F2E20890 10435 0560 00 0 04016 LDQ $WRKSC+2 COMPUTE G AS F2E20900 10436 0200 00 0 04022 MPY $WRKSC+6 C2D1. PLACE F2E20910 10437 0767 00 0 00021 ALS 17 THIS AND C1 F2E20920 BINARY CARD NO. 9F210108 10440 0601 00 0 04047 STO ORO00+19 IN ORO. F2E20930 10441 0500 00 0 04014 CLA $WRKSC F2E20940 10442 0601 00 0 04050 STO ORO00+20 F2E20950 10443 0534 00 1 11561 LXA L(2),1 INITIALIZE N3X F2E20960 10444 -0634 00 1 11636 SXD N3X,1 POS. TO S2. F2E20970 10445 0534 00 1 04005 LXA $L(3),1 INITIALIZE XX F2E20980 10446 -0634 00 1 11637 SXD XX,1 POS. TO S1. F2E20990 10447 0074 00 4 10574 TSX PC,4 F2E21000 10450 -0534 00 4 04013 LXD $LINKC,4 F2E21010 10451 0020 00 4 00001 TRA 1,4 F2E21020 *************************************************************F2E21030 10452 -0634 00 4 10464 CORO SXD CORO05,4 F2E21040 10453 0560 00 0 04022 LDQ $WRKSC+6 FORM C3D1D2 AND F2E21050 10454 0200 00 0 04023 MPY $WRKSC+7 STORE IN F2E21060 10455 0765 00 0 00022 LRS 18 ORO+19 F2E21070 10456 0200 00 0 04020 MPY $WRKSC+4 FOR USE BY F2E21080 10457 0767 00 0 00021 ALS 17 PC IN COMPUTING F2E21090 10460 0601 00 0 04047 STO ORO00+19 BLOCK C DECREMENTS. F2E21100 10461 0500 00 0 11476 CLA TAG4 TEST F2E21110 10462 0771 00 0 00011 ARS 9 FOR F2E21120 10463 0760 00 0 00001 LBT DUPES. F2E21130 10464 -3 00000 0 10472 CORO05 TXL CORO10,,0 NO DUPES. F2E21140 10465 0560 00 0 04022 LDQ $WRKSC+6 IF DUPES, FORM F2E21150 BINARY CARD NO. 9F210109 10466 0200 00 0 04016 MPY $WRKSC+2 C2D1, ADD TO F2E21160 10467 0767 00 0 00021 ALS 17 ORO+19 , AND STORE F2E21170 10470 0400 00 0 04047 ADD ORO00+19 IN ORO+19 FOR F2E21180 10471 0601 00 0 04047 STO ORO00+19 USE BY PC. F2E21190 10472 0500 00 0 04014 CORO10 CLA $WRKSC STORE C1 IN *F2E21200 10473 0601 00 0 04050 STO ORO00+20 ORO+20 FOR PC. F2E21210 10474 0534 00 1 11560 LXA L(1),1 SET N3X POSITION *F2E21220 10475 -0634 00 1 11636 SXD N3X,1 TO S3, F2E21230 10476 0534 00 1 04005 LXA $L(3),1 XX POSITION TO S1. F2E21240 10477 -0634 00 1 11637 SXD XX,1 AND CALL PC TO COMPUTE F2E21250 10500 0074 00 4 10574 TSX PC,4 AND COMPILE BLKC INIT. F2E21260 10501 -0534 00 4 10464 LXD CORO05,4 RESTORE LINKAGE AND F2E21270 10502 0020 00 4 00001 TRA 1,4 RETURN TO MAIN ROUTINE. F2E21280 *************************************************************F2E21290 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 137 BLOCK E. 10503 -0634 00 4 10530 DORO SXD DORO5,4 BLOCK D NORMAL. F2E21300 10504 0560 00 0 04020 LDQ $WRKSC+4 COMPUTES C3D1D2, G1 F2E21310 10505 0200 00 0 04022 MPY $WRKSC+6 AND C2D1, G2 IF DUPE. F2E21320 10506 0765 00 0 00022 LRS 18 EXIST IN THE CASE F2E21330 10507 0200 00 0 04023 MPY $WRKSC+7 110 C1 ADDED TO G2. F2E21340 10510 0767 00 0 00021 ALS 17 IN THE CASE 101 F2E21350 10511 0601 00 0 04047 STO ORO00+19 C1 ADDED TO G1. F2E21360 10512 0560 00 0 04016 LDQ $WRKSC+2 F2E21370 10513 0200 00 0 04022 MPY $WRKSC+6 F2E21380 BINARY CARD NO. 9F210110 10514 0767 00 0 00021 ALS 17 F2E21390 10515 0601 00 0 04050 STO ORO00+20 F2E21400 10516 -0534 00 4 11660 LXD XTG,4 F2E21410 10517 0500 00 4 41007 CLA TAGZ+3,4 DOES CARRY EXIST F2E21420 10520 -0320 00 0 10550 ANA CRMSK FOR TWO INNER DOS. F2E21430 10521 0100 00 0 10523 TZE *+2 NO. F2E21440 10522 -0634 00 4 10551 SXD CTEST,4 YES, SET INDICATOR. F2E21450 10523 0500 00 0 11476 CLA TAG4 F2E21460 10524 0771 00 0 00011 ARS 9 F2E21470 10525 -0320 00 0 11532 ANA L(7) F2E21480 10526 0100 00 0 10540 TZE DORO20 F2E21490 10527 0760 00 0 00001 LBT F2E21500 10530 -3 00000 0 10535 DORO5 TXL DORO10,,0 F2E21510 10531 0500 00 0 04014 CLA $WRKSC F2E21520 10532 0400 00 0 04047 ADD ORO00+19 F2E21530 10533 0601 00 0 04047 STO ORO00+19 F2E21540 10534 0020 00 0 10540 TRA DORO20 F2E21550 10535 0500 00 0 04014 DORO10 CLA $WRKSC F2E21560 10536 0400 00 0 04050 ADD ORO00+20 F2E21570 10537 0601 00 0 04050 STO ORO00+20 F2E21580 10540 0534 00 1 11560 DORO20 LXA L(1),1 SET N3X POS. TO S3, F2E21590 10541 -0634 00 1 11636 SXD N3X,1 F2E21600 BINARY CARD NO. 9F210111 10542 0534 00 1 11561 LXA L(2),1 XX POS. TO S2. F2E21610 10543 -0634 00 1 11637 SXD XX,1 F2E21620 10544 0074 00 4 10574 TSX PC,4 MAKE COMPUTATIONS AND COMPILE F2E21630 10545 0600 00 0 10551 STZ CTEST RESET CARRY INDICATOR. F2E21640 10546 -0534 00 4 10530 LXD DORO5,4 INSTRUCTIONS TO INIT. VAR. F2E21650 10547 0020 00 4 00001 TRA 1,4 BLOCK D DECREMENTS. F2E21660 10550 +000140000000 CRMSK OCT 140000000 F2E21670 10551 0 00000 0 00000 CTEST PZE F2E21680 *************************************************************F2E21690 10552 -0634 00 4 10573 EORO SXD ERTN,4 F2E21700 10553 0074 00 4 10503 TSX DORO,4 F2E21710 10554 -0634 00 4 10572 SXD EFLAG,4 F2E21720 10555 0074 00 4 10452 TSX CORO,4 F2E21730 10556 0500 00 0 04043 CLA ORO00+15 F2E21740 10557 0400 00 0 11543 ADD L(8) F2E21750 10560 0601 00 0 04042 STO ORO00+14 F2E21760 10561 0400 00 0 11566 ADD L(16) F2E21770 10562 0601 00 0 04043 STO ORO00+15 F2E21780 10563 0534 00 1 11561 LXA L(2),1 F2E21790 10564 0500 00 0 11255 CLA LXCEIP F2E21800 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 138 BLOCK E. 10565 0074 00 4 11146 TSX LXC,4 F2E21810 10566 -0534 00 4 10573 LXD ERTN,4 F2E21820 10567 0600 00 0 10572 STZ EFLAG F2E21830 BINARY CARD NO. 9F210112 10570 -0534 00 4 10573 LXD ERTN,4 F2E21840 10571 0020 00 4 00001 TRA 1,4 F2E21850 10572 0 00000 0 00000 EFLAG PZE F2E21860 10573 0 00000 0 00000 ERTN PZE F2E21870 *************************************************************F2E21880 PC IS A SUBROUTINE CALLED BY AORO, BORO, ETC. TO MAKE COMPUTAF2E21890 TIONS AND TO CALL COMPILING ROUTINES FOR TXI DECREMENT INTIAF2E21900 LIZATION. F2E21910 10574 -0634 00 4 10612 PC SXD PC04,4 F2E21920 10575 -0534 00 1 11636 LXD N3X,1 F2E21930 10576 0500 00 1 11475 CLA TAG2+3,1 F2E21940 10577 -0734 00 2 00000 PDX 0,2 F2E21950 10600 0500 00 2 45626 CLA DOTAGZ,2 F2E21960 10601 -0320 00 0 11572 ANA ADMSK FORM LOCATION F2E21970 10602 0767 00 0 00022 ALS 18 WORDS AND PUT F2E21980 10603 -0501 00 0 11676 ORA TETLOC IN ORO+14 F2E21990 10604 0601 00 0 04042 STO ORO00+14 AND ORO+15. F2E22000 10605 0400 00 0 11566 ADD L(16) F2E22010 10606 0601 00 0 04043 STO ORO00+15 F2E22020 10607 0500 00 2 45626 CLA DOTAGZ,2 IS N3 FOR THIS DO F2E22030 10610 0771 00 0 00017 ARS 15 VARIABLE. F2E22040 10611 0760 00 0 00001 LBT F2E22050 10612 -3 00000 0 10624 PC04 TXL PC10,,0 NO, PC10. F2E22060 10613 0500 00 2 45632 CLA DOTAGZ+4,2 YES, F2E22070 10614 0601 00 0 04024 STO ORO00 COMPILE F2E22080 10615 0500 00 0 04047 CLA ORO00+19 LDQ L(G), (N3X POS.), F2E22090 BINARY CARD NO. 9F210113 10616 0074 00 4 04101 TSX $FXCON,4 MPY N3, (N3X POS.), F2E22100 10617 0601 00 0 04047 STO ORO00+19 ALS 17, F2E22110 10620 0534 00 1 11562 LXA L(4),1 STO C(ORO+12) F2E22120 10621 0500 00 0 11257 CLA K1BORO F2E22130 10622 0074 00 4 11146 TSX LXC,4 F2E22140 10623 0020 00 0 10631 TRA PC20 F2E22150 10624 0560 00 2 45632 PC10 LDQ DOTAGZ+4,2 N3 CONSTANT, PUT F2E22160 10625 0200 00 0 04047 MPY ORO00+19 N3G SYMBOL IN F2E22170 10626 0763 00 0 00043 LLS 35 ORO+19 F2E22180 10627 0074 00 4 04101 TSX $FXCON,4 F2E22190 10630 0601 00 0 04047 STO ORO00+19 F2E22200 10631 -0534 00 1 11637 PC20 LXD XX,1 ISOLATE N3 FOR F2E22210 10632 0500 00 1 11475 PCI CLA TAG2+3,1 XX POSITION F2E22220 10633 -0734 00 2 00000 PDX 0,2 F2E22230 10634 0500 00 2 45632 CLA DOTAGZ+4,2 DOES N3 = 1. F2E22240 10635 0402 00 0 11560 SUB L(1) F2E22250 10636 -0100 00 0 10732 TNZ PCI33-3 NO, GO TO PATCH $F2E22260 10637 0500 00 2 45633 CLA DOTAGZ+5,2 YES, IS X CONST. F2E22270 10640 -0320 00 0 11570 ANA BIT2 F2E22280 10641 0100 00 0 10741 TZE PC21 YES, PC21. F2E22290 10642 -3 00002 1 10716 TXL PCI31,1,2 NO, IS POS. S2. *F2E22300 10643 0500 00 2 45630 CLA DOTAGZ+2,2 NO, IS N1 = 1. F2E22310 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 139 BLOCK E. BINARY CARD NO. 9F210114 10644 0402 00 0 11560 SUB L(1) F2E22320 10645 -0100 00 0 10666 TNZ PCI22 NO, PCI22. F2E22330 10646 0500 00 2 45631 CLA DOTAGZ+3,2 YES, DOES C1 = 1. F2E22340 10647 0601 00 0 04025 STO ORO00+1 F2E22350 10650 0500 00 0 04014 CLA $WRKSC F2E22360 10651 0402 00 0 04004 SUB $L1DEC F2E22370 10652 -0100 00 0 10657 TNZ PCI21 NO, PCI21. F2E22380 10653 0534 00 1 11560 LXA L(1),1 YES, COMPILE F2E22390 10654 0500 00 0 11230 CLA KLX02 CLA N1, F2E22400 10655 0074 00 4 11146 TSX LXC,4 SUBL(1), AND F2E22410 10656 0020 00 0 10735 TRA PCI33 F2E22420 10657 0500 00 0 04014 PCI21 CLA $WRKSC F2E22430 10660 0074 00 4 04101 TSX $FXCON,4 COMPILE F2E22440 10661 0601 00 0 04035 STO ORO00+9 LDQ L(N2) F2E22450 10662 0500 00 0 11446 CLA KLAR3 MPY L(C1) F2E22460 10663 0534 00 1 11562 LXA L(4),1 ALS 17 F2E22470 10664 0074 00 4 11146 TSX LXC,4 STO 1) +3. F2E22480 10665 0020 00 0 11007 TRA PC60 F2E22490 10666 0074 00 4 07416 PCI22 TSX OP3,4 COMPILE CLA L(N2-N1) F2E22500 10667 0500 00 0 04014 CLA $WRKSC F2E22510 10670 0402 00 0 04004 SUB $L1DEC IS C1=1. F2E22520 10671 0100 00 0 11007 TZE PC60 F2E22530 BINARY CARD NO. 9F210115 10672 0500 00 0 04014 CLA $WRKSC NO, OBTAIN F2E22540 10673 0074 00 4 04101 TSX $FXCON,4 SYMBOL FOR F2E22550 10674 0601 00 0 04035 STO ORO00+9 C1 AND F2E22560 10675 0534 00 1 11560 PCI22R LXA L(1),1 COMPILE *F2E22570 10676 0500 00 0 11226 CLA KLX01I STO 1)+3 *F2E22580 10677 0074 00 4 11146 TSX LXC,4 *F2E22590 10700 0500 00 0 04056 CLA ORO00+26 *F2E22600 10701 0601 00 0 04025 STO ORO00+1 COMPILE *F2E22610 10702 0534 00 1 11563 LXA L(3),1 LDQ 1)+3, *F2E22620 10703 0500 00 0 11446 CLA KLAR3 MPY ORO00+9, *F2E22630 10704 0074 00 4 11146 TSX LXC,4 ALS 17. *F2E22640 10705 -0520 00 0 10551 NZT CTEST TEST CARRY BETWEEN INNER DOS. *F2E22650 10706 0020 00 0 11007 TRA PC60 NO CARRY. *F2E22660 10707 0500 00 0 04014 CLA $WRKSC CARRY, COMPILE *F2E22670 10710 0074 00 4 04101 TSX $FXCON,4 SUB L(C1). *F2E22680 10711 0601 00 0 04025 STO ORO00+1 *F2E22690 10712 0534 00 1 11560 LXA L(1),1 *F2E22700 10713 0500 00 0 11263 CLA LXCI1 *F2E22710 10714 0074 00 4 11146 TSX LXC,4 *F2E22720 10715 0020 00 0 11007 TRA PC60 *F2E22730 10716 0500 00 0 04050 PCI31 CLA ORO00+20 COMPILE *F2E22740 10717 0074 00 4 04101 TSX $FXCON,4 CLA (N2-N1) OR *F2E22750 BINARY CARD NO. 9F210116 10720 0601 00 0 04035 STO ORO00+9 CLA N2, *F2E22760 10721 0074 00 4 07416 TSX OP3,4 SUB N1. *F2E22770 10722 -0520 00 0 10551 NZT CTEST TEST CARRY BETWEEN INNER DOS. *F2E22780 10723 0020 00 0 10675 TRA PCI22R NO CARRY. *F2E22790 10724 0500 00 0 04041 CLA ORO00+13 CARRY, *F2E22800 10725 0601 00 0 04057 STO ORO00+27 COMPILE *F2E22810 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 140 BLOCK E. 10726 0534 00 1 11560 LXA L(1),1 ADD L(1). *F2E22820 10727 0500 00 0 11245 CLA KTX05 *F2E22830 10730 0074 00 4 11146 TSX LXC,4 *F2E22840 10731 0020 00 0 10675 TRA PCI22R *F2E22850 10732 0774 00 1 00003 AXT 3,1 PATCH $F2E22860 10733 0020 00 0 10741 TRA PC21 PATCH--RETURN TO PC21. $F2E22870 10734 0 00000 0 00000 PZE NOT USED. *F2E22880 10735 0534 00 1 11560 PCI33 LXA L(1),1 F2E22890 10736 0500 00 0 11261 CLA LXCI61 F2E22900 10737 0074 00 4 11146 TSX LXC,4 F2E22910 10740 0020 00 0 11007 TRA PC60 F2E22920 10741 0074 00 4 11105 PC21 TSX PXORO+2,4 IS X CONSTANT. $F2E22930 10742 0020 00 0 10744 TRA PC22 NO, PC22. F2E22940 10743 0020 00 0 10766 TRA PC30 F2E22950 10744 -0534 00 2 11637 PC22 LXD XX,2 F2E22960 10745 0534 00 1 11543 LXA L(8),1 F2E22970 BINARY CARD NO. 9F210117 10746 0500 00 0 04050 CLA ORO00+20 F2E22980 10747 -3 00002 2 10754 TXL PC23,2,2 F2E22990 10750 0500 00 0 04014 CLA $WRKSC F2E23000 10751 0402 00 0 11520 SUB L1DEC F2E23010 10752 0100 00 0 10761 TZE PC24 F2E23020 10753 0400 00 0 11520 ADD L1DEC F2E23030 10754 0074 00 4 04101 PC23 TSX $FXCON,4 F2E23040 10755 0601 00 0 04035 STO ORO00+9 F2E23050 10756 0560 00 0 04056 LDQ ORO00+26 F2E23060 10757 0500 00 0 11444 CLA KLAR1 F2E23070 10760 1 00004 1 10763 TXI PC25,1,4 F2E23080 10761 0560 00 0 04027 PC24 LDQ ORO00+3 F2E23090 10762 0500 00 0 11445 CLA KLAR2 F2E23100 10763 -0600 00 0 11467 PC25 STQ MYORO F2E23110 10764 0074 00 4 11146 TSX LXC,4 F2E23120 10765 0020 00 0 11007 TRA PC60 F2E23130 10766 -0520 00 0 10551 PC30 NZT CTEST TEST FOR CARRY BTWN INNER DOS. F2E23140 10767 0020 00 0 10775 TRA PC31 NO. F2E23150 10770 0765 00 0 00043 LRS 35 YES, USE F2E23160 10771 0200 00 0 04050 MPY ORO00+20 XN3G F2E23170 10772 0767 00 0 00021 ALS 17 MINUS F2E23180 10773 0402 00 0 04014 SUB $WRKSC C1 AS DECREMENT. F2E23190 BINARY CARD NO. 9F210118 10774 0020 00 0 11002 TRA PC32 F2E23200 10775 0765 00 0 00022 PC31 LRS 18 F2E23210 10776 0402 00 2 45632 SUB DOTAGZ+4,2 F2E23220 10777 0765 00 0 00021 LRS 17 F2E23230 11000 0200 00 0 04050 MPY ORO00+20 F2E23240 11001 0767 00 0 00021 ALS 17 F2E23250 11002 0074 00 4 04101 PC32 TSX $FXCON,4 F2E23260 11003 0601 00 0 04050 STO ORO00+20 F2E23270 11004 0534 00 1 11560 LXA L(1),1 F2E23280 11005 0500 00 0 11256 CLA XK F2E23290 11006 0074 00 4 11146 TSX LXC,4 F2E23300 11007 0500 00 0 10572 PC60 CLA EFLAG F2E23310 11010 -0100 00 0 11023 TNZ PC62+1 F2E23320 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 141 BLOCK E. 11011 -0534 00 1 11636 LXD N3X,1 F2E23330 11012 0500 00 1 11475 CLA TAG2+3,1 IS F2E23340 11013 -0734 00 2 00000 PDX 0,2 N3 F2E23350 11014 0534 00 1 04005 LXA $L(3),1 OF F2E23360 11015 0500 00 2 45626 CLA DOTAGZ,2 CURRENT F2E23370 11016 0771 00 0 00017 ARS 15 DO F2E23380 11017 0760 00 0 00001 LBT VARIABLE. F2E23390 11020 0020 00 0 11025 TRA PC61 CONSTANT, PC61. F2E23400 11021 0500 00 0 11262 CLA LXCI8 VARIABLE, COMPILE F2E23410 BINARY CARD NO. 9F210119 11022 0074 00 4 11146 PC62 TSX LXC,4 STD, ADD N3G, STD. F2E23420 11023 -0534 00 4 10612 LXD PC04,4 F2E23430 11024 0020 00 4 00001 TRA 1,4 F2E23440 11025 0500 00 0 11440 PC61 CLA LXCI8P CONSTANT. COMPILE F2E23450 11026 0020 00 0 11022 TRA PC62 STD, ADD C(ORO+12), STD. F2E23460 *************************************************************F2E23470 CIL03I FILLS OUT LOCATION AND TAG NAME WORDS FOR COMPILED INSF2E23480 TRUCTIONS WITHOUT LOCATIONS. F2E23490 11027 0500 00 0 11565 CIL03I CLA L(0) PLACE 0 IN LOCATION F2E23500 11030 0601 00 0 11623 STO CIL00 WORD AND TAG IN F2E23510 11031 0500 00 0 11475 CLA TAG3 TAG WORD OF COMPILED F2E23520 11032 -0320 00 0 11572 ANA ADMSK INSTRUCGIN. F2E23530 11033 0601 00 0 11626 STO CIL03 F2E23540 11034 0020 00 4 00001 TRA 1,4 F2E23550 *************************************************************F2E23560 BITP CHECKS SUBSCRIPTS FOR DEFINITION. IF DEFINED BY RELCON F2E23570 OR DOSUB IT OBTAINS OBJECT PROGRAM SYMBOLS FOR N1 OR S1 RESPEF2E23580 CTIVELY. F2E23590 11035 0621 00 0 11057 BITP STA BITP14 F2E23600 11036 0621 00 0 11044 STA BITP02 INITIALIZE SHIFTS, F2E23610 11037 0621 00 0 11051 STA BITP04 STORE LINKAGE F2E23620 11040 0734 00 2 00000 PAX 0,2 AND PLACE 0,1,2 IN F2E23630 11041 0767 00 0 00001 ALS 1 XB FOR S3, S2, AND F2E23640 11042 0734 00 1 00000 PAX 0,1 S1 RESPECTIVELY. F2E23650 11043 0500 00 0 11634 CLA RELCO IS THIS A F2E23660 11044 0771 00 0 00000 BITP02 ARS ** RELCON. F2E23670 11045 0760 00 0 00001 LBT X F2E23680 11046 0020 00 0 11050 TRA BITP03 NOT RELCON. F2E23690 11047 0020 00 0 11064 TRA BITP30 RELCON. F2E23700 BINARY CARD NO. 9F210120 11050 0500 00 0 11674 BITP03 CLA DEFDO IS THIS DEFINED F2E23710 11051 0771 00 0 00000 BITP04 ARS ** BY A DO. F2E23720 11052 0760 00 0 00001 LBT X F2E23730 11053 0020 00 4 00001 TRA 1,4 NO, UNDEFINED. F2E23740 11054 0500 00 2 11474 CLA TAG2+2,2 ISOLATE DO F2E23750 11055 -0734 00 2 00000 PDX 0,2 INDEX. F2E23760 11056 0500 00 0 11675 CLA N1SBX IS DO DEFINITION F2E23770 11057 0771 00 0 00000 BITP14 ARS ** CONSTANT. F2E23780 11060 0760 00 0 00001 LBT X F2E23790 11061 0020 00 4 00001 TRA 1,4 DO DEFINITION IS CONSTANT. F2E23800 11062 0500 00 2 45630 CLA DOTAGZ+2,2 ISOLATE N1 OF DEFINING F2E23810 11063 0020 00 4 00002 TRA 2,4 DO. F2E23820 11064 0500 00 1 04021 BITP30 CLA $WRKSC+5,1 RELCON, ISOLATE F2E23830 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 142 BLOCK E. 11065 0020 00 4 00002 TRA 2,4 SUBSCRIPT. F2E23840 *************************************************************F2E23850 TESTLO OBTAINS THE TEST LOCATION TO BE THE SYMBOLIC ADDRESS OF2E23860 OF THE STD INITIALIZING INSTRUCTION. F2E23870 11066 0500 00 2 11475 TESTLO CLA TAG2+3,2 INITIALIZE INDEX F2E23880 11067 -0734 00 2 00000 PDX 0,2 FOR TEST DOTAG. F2E23890 11070 0500 00 0 11565 CLA L(0) ISOLATE F2E23900 11071 0560 00 2 45634 LDQ DOTAGZ+6,2 SXD F2E23910 11072 -0773 00 0 00003 RQL 3 LOCATION F2E23920 11073 -0763 00 0 00006 LGL 6 AND PUT F2E23930 11074 0767 00 0 00003 ALS 3 IN TETLOC F2E23940 11075 0601 00 0 11676 STO TETLOC ADDRESS F2E23950 BINARY CARD NO. 9F210121 11076 0500 00 2 45626 CLA DOTAGZ,2 PUT TXL F2E23960 11077 -0320 00 0 11572 ANA ADMSK LOCATION F2E23970 11100 0767 00 0 00022 ALS 18 IN TETLOC F2E23980 11101 -0602 00 0 11676 ORS TETLOC DECREMENT. F2E23990 11102 0020 00 4 00001 TRA 1,4 F2E24000 *************************************************************F2E24010 PREFACE TO ORO EXAMINES VARIABLIITY OF X QUANTITY. F2E24020 11103 0500 00 1 11475 PXORO CLA TAG2+3,1 IF X IS F2E24030 11104 -0734 00 2 00000 PDX 0,2 CONSTANT IT IS F2E24040 11105 0500 00 2 45633 CLA DOTAGZ+5,2 LEFT IN THE F2E24050 11106 -0320 00 0 11570 ANA BIT2 DECREMENT OF F2E24060 11107 -0100 00 0 11114 TNZ XORO ACC. F2E24070 11110 0500 00 2 45633 CLA DOTAGZ+5,2 F2E24080 11111 -0320 00 0 11572 ANA ADMSK F2E24090 11112 0767 00 0 00022 ALS 18 F2E24100 11113 0020 00 4 00002 TRA 2,4 F2E24110 *************************************************************F2E24120 XORO FILLS OUT ORO FOR N1, N2, N3, GIVEN DO IN B AND POS IN AF2E24130 11114 -0634 00 4 11135 XORO SXD XORO32,4 F2E24140 11115 0500 00 2 45626 CLA DOTAGZ,2 F2E24150 11116 0771 00 0 00017 ARS 15 F2E24160 11117 -0320 00 0 11532 ANA L(7) F2E24170 11120 0601 00 0 11657 STO N1N2N3 F2E24180 11121 0500 00 0 11526 CLA L(ORO) ORIGIN OF ORO TABLE. F2E24190 11122 0400 00 0 11562 ADD L(4) CALCULATES ADDRESS F2E24200 11123 3 00002 1 11125 TXH XORO10,1,2 FOR STORING INTO F2E24210 BINARY CARD NO. 9F210122 11124 0400 00 0 11563 ADD L(3) ORO TABLE. F2E24220 11125 3 00001 1 11127 XORO10 TXH XORO20,1,1 F2E24230 11126 0400 00 0 11525 ADD L(17) F2E24240 11127 0621 00 0 11140 XORO20 STA XORO36 STORE ADRS FOR NS. F2E24250 11130 0534 00 1 11563 LXA L(3),1 F2E24260 11131 0560 00 0 11657 XORO30 LDQ N1N2N3 F2E24270 11132 -0773 00 1 00044 RQL 36,1 F2E24280 11133 0500 00 2 45630 CLA DOTAGZ+2,2 F2E24290 11134 0162 00 0 11136 TQP XORO34 N IS CONSTANT. F2E24300 11135 -3 00000 0 11140 XORO32 TXL XORO36,,0 N IS VARIABLE. F2E24310 11136 0767 00 0 00022 XORO34 ALS 18 F2E24320 11137 0074 00 4 04101 TSX $FXCON,4 F2E24330 11140 0601 00 1 00000 XORO36 STO 0,1 F2E24340 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 143 BLOCK E. 11141 2 00001 2 11142 TIX XORO40,2,1 F2E24350 11142 2 00001 1 11131 XORO40 TIX XORO30,1,1 F2E24360 11143 0601 00 0 04024 STO ORO00 F2E24370 11144 -0534 00 4 11135 LXD XORO32,4 F2E24380 11145 0020 00 4 00001 TRA 1,4 F2E24390 *************************************************************F2E24400 THIS ROUTINE EXAMINES A BLOCK OF CONSTANTS AND COMPILES ONE IF2E24410 INSTRUCTION FOR EACH. THE CALLER INDICATES THE FIRST CONSTANF2E24420 BY A REFERENCE IN THE ACCUMULATOR, AND INDICATES THE NUMBER OF2E24430 OF INSTRUCTIONS IN INDEX REGISTER A. F2E24440 11146 -0634 00 4 11213 LXC SXD LXC19,4 F2E24450 11147 0601 00 0 11632 STO ERLXC F2E24460 11150 -0754 00 1 00000 PXD 0,1 F2E24470 11151 0771 00 0 00022 ARS 18 F2E24480 BINARY CARD NO. 9F210123 11152 0400 00 0 11632 ADD ERLXC F2E24490 11153 0621 00 0 11167 STA LXC10 F2E24500 11154 0500 00 0 11644 CLA LOCIND TEST TO SEE IF F2E24510 11155 0100 00 0 11165 TZE LXC08 THIS IS THE FIRST F2E24520 11156 0402 00 0 11560 SUB L(1) LXD COMPILED. IF SO, F2E24530 11157 0601 00 0 11644 STO LOCIND PLACE A IN F2E24540 11160 -0534 00 2 11652 LXD DOIND,2 DECREMENT F2E24550 11161 0500 00 2 45626 CLA DOTAGZ,2 OF LOCATION WORD F2E24560 11162 -0320 00 0 04001 ANA DECMSK FOR FIRST COMPILED F2E24570 11163 0601 00 0 11623 STO CIL00 INSTRUCTION. F2E24580 11164 0020 00 0 11167 TRA LXC10 F2E24590 11165 0500 00 0 11565 LXC08 CLA L(0) F2E24600 11166 0601 00 0 11623 STO CIL00 F2E24610 11167 0560 00 1 00000 LXC10 LDQ 0,1 SKELETAL INSTRUCTION. F2E24620 11170 0763 00 0 00000 LLS 0 F2E24630 11171 -0763 00 0 00022 LGL 18 F2E24640 11172 -0600 00 0 11624 STQ CIL01 COMPILE OP. WORD. F2E24650 11173 -0120 00 0 11214 TMI LXC20 F2E24660 11174 0621 00 0 11175 STA LXC15 SYMBOL.ADDR. TYPE INSTRUCTION. F2E24670 11175 0500 00 0 00000 LXC15 CLA ** F2E24680 11176 0601 00 0 11625 STO CIL02 SYMBOLIC ADDRESS. F2E24690 11177 0500 00 0 11565 CLA L(0) RELATIVE F2E24700 BINARY CARD NO. 9F210124 11200 0601 00 0 11626 STO CIL03 ADDRESS. F2E24710 11201 -0500 00 0 11625 CAL CIL02 TEST CIL02 F2E24720 11202 -0320 00 0 11540 ANA 6ONES WORD. F2E24730 11203 0100 00 0 11221 TZE LXC30 FIRST CHARACTER IS ZERO. F2E24740 11204 -0320 00 0 11536 ANA BIT01 F2E24750 11205 -0100 00 0 11221 TNZ LXC30 FIRST CHARACTER ALPHABETIC. F2E24760 11206 -0500 00 0 11625 CAL CIL02 FIRST CHARACTER NUMBERIC, F2E24770 11207 0767 00 0 00022 ALS 18 PLACE REIGHT HALF OF CIL02 F2E24780 11210 0622 00 0 11626 STD CIL03 IN CIL03, LEFT HALF F2E24790 11211 -0500 00 0 11540 CAL 6ONES IN CIL02. F2E24800 11212 0320 00 0 11625 ANS CIL02 F2E24810 11213 -3 00000 0 11221 LXC19 TXL LXC30,,0 SHIFT TYPE INSTRUCTION, F2E24820 11214 0767 00 0 00022 LXC20 ALS 18 F2E24830 11215 -0320 00 0 04001 ANA DECMSK F2E24840 11216 0601 00 0 11626 STO CIL03 F2E24850 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 144 BLOCK E. 11217 0500 00 0 11565 CLA L(0) F2E24860 11220 0601 00 0 11625 STO CIL02 F2E24870 11221 0074 00 4 07532 LXC30 TSX CIT,4 F2E24880 11222 2 00001 1 11165 TIX LXC08,1,1 COUNT COMPILED INSTR. IN BLK. F2E24890 11223 -0534 00 4 11213 LXD LXC19,4 F2E24900 11224 0020 00 4 00001 TRA 1,4 F2E24910 *************************************************************F2E24920 11225 0 00000 0 11264 KLX01 LXI00 F2E24930 BINARY CARD NO. 9F210125 11226 0 00000 0 11265 KLX01I LXI00+1 F2E24940 11227 0 00000 0 11270 KLX02I LXI05 F2E24950 11230 0 00000 0 11266 KLX02 LXI02 F2E24960 11231 0 00000 0 11302 KLX03 LXI16 F2E24970 11232 0 00000 0 11320 KLX05 LXI30 F2E24980 11233 0 00000 0 11274 KLX03I LXI10 F2E24990 11234 0 00000 0 11312 KLX05I LXI24 F2E25000 11235 0 00000 0 11351 K1AORO A1C00 F2E25010 11236 0 00000 0 11352 KIAORO A1C01 F2E25020 11237 0 00000 0 11355 K2AORO A1000 F2E25030 11240 0 00000 0 11356 K3AORO A1001 F2E25040 11241 0 00000 0 11357 KTX00 TXC00 F2E25050 11242 0 00000 0 11365 TXC08 F2E25060 11243 0 00000 0 11373 TXC18 F2E25070 11244 0 00000 0 11407 KTX04 TXC30 F2E25080 11245 0 00000 0 11410 KTX05 TXC31 F2E25090 11246 0 00000 0 11412 LTX040 TX040 F2E25100 11247 0 00000 0 11414 LTX042 TX042 F2E25110 11250 0 00000 0 11334 LXCI XCI F2E25120 11251 0 00000 0 11344 LXCI6 XCI6 F2E25130 11252 0 00000 0 11431 LXCIE XCIE F2E25140 11253 0 00000 0 11432 LXCIE1 XCIE+1 F2E25150 BINARY CARD NO. 9F210126 11254 0 00000 0 11441 LXCIEP XCIEP F2E25160 11255 0 00000 0 11442 LXCEIP XCEIP F2E25170 11256 0 00000 0 11430 XK XKI F2E25180 11257 0 00000 0 11330 K1BORO L(BIC) F2E25190 11260 0 00000 0 11416 LX2CI X2CI F2E25200 11261 0 00000 0 11345 LXCI61 XCI6+1 F2E25210 11262 0 00000 0 11346 LXCI8 XCI8 F2E25220 11263 0 00000 0 11335 LXCI1 XCI+1 F2E25230 11264 0 04041 2 34321 LXI00 14545,2,ORO00+13 CLA F2E25240 11265 0 04056 6 26346 11494,6,ORO00+26 STO F2E25250 11266 0 04025 2 34321 LXI02 14545,2,ORO00+1 CLA F2E25260 11267 0 04056 6 26346 11494,6,ORO00+26 STO F2E25270 11270 0 04025 4 32450 LXI05 13608,4,ORO00+1 LDQ F2E25280 11271 0 04035 4 44770 18936,4,ORO00+9 MPY F2E25290 11272 -2 00021 2 14362 TNX 6386,2,17 ALS 17 F2E25300 11273 0 04056 6 26346 11494,6,ORO00+26 STO F2E25310 11274 0 04030 4 32450 LXI10 13608,4,ORO00+4 LDQ F2E25320 11275 0 04033 4 44770 18936,4,ORO00+7 MPY F2E25330 11276 -2 00021 2 14362 TNX 6386,2,17 ALS 17 F2E25340 11277 0 04033 6 26422 11538,6,ORO00+7 SUB F2E25350 11300 0 04056 2 12424 5396,2,ORO00+26 ADD F2E25360 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 145 BLOCK E. 11301 0 04056 6 26346 11494,6,ORO00+26 STO F2E25370 BINARY CARD NO. 9F210127 11302 0 04030 4 32450 LXI16 13608,4,ORO00+4 LDQ F2E25380 11303 0 04036 4 44770 18936,4,ORO00+10 MPY F2E25390 11304 -2 00022 4 35162 TNX 14962,4,18 LRS F2E25400 11305 0 04033 4 44770 18936,4,ORO00+7 MPY F2E25410 11306 -2 00021 2 14362 TNX 6386,2,17 ALS F2E25420 11307 0 04033 6 26422 11538,6,ORO00+7 SUB F2E25430 11310 0 04056 2 12424 5396,2,ORO00+26 ADD F2E25440 11311 0 04056 6 26346 11494,6,ORO00+26 STO F2E25450 11312 0 04051 4 32450 LXI24 13608,4,ORO00+21 LDQ F2E25460 11313 0 04054 4 44770 18936,4,ORO00+24 MPY F2E25470 11314 -2 00021 2 14362 TNX 6386,2,17 ALS F2E25480 11315 0 04054 6 26422 11538,6,ORO00+24 SUB F2E25490 11316 0 04056 2 12424 5396,2,ORO00+26 ADD F2E25500 11317 0 04056 6 26346 11494,6,ORO00+26 STO F2E25510 11320 0 04051 4 32450 LXI30 13608,4,ORO00+21 LDQ F2E25520 11321 0 04037 4 44770 18936,4,ORO00+11 MPY F2E25530 11322 -2 00022 4 35162 TNX 14962,4,18 LRS F2E25540 11323 0 04054 4 44770 18936,4,ORO00+24 MPY F2E25550 11324 -2 00021 2 14362 TNX 6386,2,17 ALS F2E25560 11325 0 04054 6 26422 11538,6,ORO00+24 SUB F2E25570 11326 0 04056 2 12424 5396,2,ORO00+26 ADD F2E25580 11327 0 04056 6 26346 11494,6,ORO00+26 STO F2E25590 BINARY CARD NO. 9F210128 11330 0 04047 4 32450 L(BIC) 13608,4,ORO00+19 LDQ F2E25600 11331 0 04024 4 44770 18936,4,ORO00 MPY F2E25610 11332 -2 00021 2 14362 TNX 6386,2,17 ALS F2E25620 11333 0 04040 6 26346 11494,6,ORO00+12 STO F2E25630 11334 0 04026 2 34321 XCI 14545,2,ORO00+2 CLA F2E25640 11335 0 04025 6 26422 11538,6,ORO00+1 SUB F2E25650 11336 0 04027 2 12424 5396,2,ORO00+3 ADD F2E25660 11337 -2 00043 4 35162 TNX 14962,4,35 LRS F2E25670 11340 0 04027 2 46547 19815,2,ORO00+3 DVP F2E25680 11341 0 04027 4 44770 18936,4,ORO00+3 MPY F2E25690 11342 -2 00022 4 35162 TNX 14962,4,18 LRS F2E25700 11343 0 04035 4 44770 18936,4,ORO00+9 MPY F2E25710 11344 -2 00043 4 34362 XCI6 TNX 14578,4,35 LLS F2E25720 11345 0 04041 6 26422 11538,6,ORO00+13 SUB F2E25730 11346 0 04043 6 26324 XCI8 11476,6,ORO00+15 STD F2E25740 11347 0 04040 2 12424 5396,2,ORO00+12 ADD F2E25750 11350 0 04042 6 26324 11476,6,ORO00+14 STD F2E25760 11351 0 04024 4 32450 A1C00 13608,4,ORO00 LDQ F2E25770 11352 0 04047 4 44770 A1C01 18936,4,ORO00+19 MPY F2E25780 11353 -2 00021 2 14362 TNX 6386,2,17 ALS F2E25790 11354 0 04042 6 26324 11476,6,ORO00+14 STD F2E25800 11355 0 04024 2 34321 A1000 14545,2,ORO00 CLA F2E25810 BINARY CARD NO. 9F210129 11356 0 04042 6 26324 A1001 11476,6,ORO00+14 STD F2E25820 11357 0 04026 2 34321 TXC00 14545,2,ORO00+2 CLA F2E25830 11360 0 04025 6 26422 11538,6,ORO00+1 SUB F2E25840 11361 0 04027 2 12424 5396,2,ORO00+3 ADD F2E25850 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 146 BLOCK E. 11362 -2 00043 4 35162 TNX 14962,4,35 LRS F2E25860 11363 0 04027 2 46547 19815,2,ORO00+3 DVP F2E25870 11364 0 04027 4 44770 18936,4,ORO00+3 MPY F2E25880 11365 0 04031 2 34321 TXC08 14545,2,ORO00+5 CLA F2E25890 11366 0 04030 6 26422 11538,6,ORO00+4 SUB F2E25900 11367 0 04032 2 12424 5396,2,ORO00+6 ADD F2E25910 11370 -2 00043 4 35162 TNX 14962,4,35 LRS F2E25920 11371 0 04032 2 46547 19815,2,ORO00+6 DVP F2E25930 11372 0 04032 4 44770 18936,4,ORO00+6 MPY F2E25940 11373 0 04052 2 34321 TXC18 14545,2,ORO00+22 CLA F2E25950 11374 0 04051 6 26422 11538,6,ORO00+21 SUB F2E25960 11375 0 04053 2 12424 5396,2,ORO00+23 ADD F2E25970 11376 -2 00043 4 35162 TNX 14962,4,35 LRS F2E25980 11377 0 04053 2 46547 19815,2,ORO00+23 DVP F2E25990 11400 0 04053 4 44770 18936,4,ORO00+23 MPY F2E26000 11401 -2 00022 4 35162 TNX 14962,4,18 LRS F2E26010 11402 0 04033 4 44770 18936,4,ORO00+7 MPY F2E26020 11403 -2 00022 4 35162 TNX 14962,4,18 LRS F2E26030 BINARY CARD NO. 9F210130 11404 0 04034 4 44770 18936,4,ORO00+8 MPY F2E26040 11405 -2 00022 4 35162 TNX 14962,4,18 LRS F2E26050 11406 0 04037 4 44770 18936,4,ORO00+11 MPY F2E26060 11407 -2 00043 4 34362 TXC30 TNX 14578,4,35 LLS F2E26070 11410 0 04057 2 12424 TXC31 5396,2,ORO00+27 ADD F2E26080 11411 0 04041 6 26422 11538,6,ORO00+13 SUB F2E26090 11412 -2 00022 4 35162 TX040 TNX 14962,4,18 LRS F2E26100 11413 0 04047 4 44770 18936,4,ORO00+19 MPY F2E26110 11414 -2 00043 4 34362 TX042 TNX 14578,4,35 LLS F2E26120 11415 0 04042 6 26324 11476,6,ORO00+14 STD F2E26130 11416 0 04031 2 34321 X2CI 14545,2,ORO00+5 CLA F2E26140 11417 0 04030 6 26422 11538,6,ORO00+4 SUB F2E26150 11420 0 04032 2 12424 5396,2,ORO00+6 ADD F2E26160 11421 -2 00043 4 35162 TNX 14962,4,35 LRS F2E26170 11422 0 04032 2 46547 19815,2,ORO00+6 DVP F2E26180 11423 0 04032 4 44770 18936,4,ORO00+6 MPY F2E26190 11424 -2 00022 4 35162 TNX 14962,4,18 LRS F2E26200 11425 0 04050 4 44770 18936,4,ORO00+20 MPY F2E26210 11426 -2 00043 4 34362 TNX 14578,4,35 LLS F2E26220 11427 0 04041 6 26422 11538,6,ORO00+13 SUB F2E26230 11430 0 04050 2 34321 XKI 14545,2,ORO00+20 CLA F2E26240 11431 -2 00043 4 34362 XCIE TNX 14578,4,35 LLS F2E26250 BINARY CARD NO. 9F210131 11432 0 04041 6 26422 11538,6,ORO00+13 SUB F2E26260 11433 0 04043 6 26324 11476,6,ORO00+15 STD F2E26270 11434 0 04042 6 26324 11476,6,ORO00+14 STD F2E26280 11435 0 04043 6 26324 XCI8P 11476,6,ORO00+15 STD F2E26290 11436 0 04047 2 12424 5396,2,ORO00+19 ADD F2E26300 11437 0 04042 6 26324 11476,6,ORO00+14 STD F2E26310 11440 0 00000 0 11435 LXCI8P XCI8P F2E26320 11441 0 04050 2 34321 XCIEP 14545,2,ORO00+20 CLA F2E26330 11442 0 04043 6 26324 XCEIP 11476,6,ORO00+15 STD F2E26340 11443 0 04042 6 26324 11476,6,ORO00+14 STD F2E26350 11444 0 00000 0 11447 KLAR1 PZE KIII1 F2E26360 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 147 BLOCK E. 11445 0 00000 0 11453 KLAR2 PZE KIII2 F2E26370 11446 0 00000 0 11463 KLAR3 PZE KIII3 F2E26380 11447 0 04027 4 32450 KIII1 13608,4,ORO00+3 LDQ (N3) F2E26390 11450 0 04035 4 44770 18936,4,ORO00+9 MPY (C1) F2E26400 11451 -2 00021 2 14362 TNX 6386,2,17 ALS 17 F2E26410 11452 0 04056 6 26346 11494,6,ORO00+26 STO 1)+3 F2E26420 11453 0 04026 2 34321 KIII2 14545,2,ORO00+2 CLA N2 F2E26430 11454 0 04025 6 26422 11538,6,ORO00+1 SUB N1 F2E26440 11455 0 04027 2 12424 5396,2,ORO00+3 ADD N3 F2E26450 11456 -2 00043 4 35162 TNX 14962,4,35 LRS 35 F2E26460 11457 0 04027 2 46547 19815,2,ORO00+3 DVP (N3) F2E26470 BINARY CARD NO. 9F210132 11460 0 11467 4 44770 18936,4,MYORO MPY (N3) OR 1)+3 F2E26480 11461 -2 00043 4 34362 TNX 14578,4,35 LLS 35 F2E26490 11462 0 11467 6 26422 11538,6,MYORO SUB (N3) OR 1)+3 F2E26500 11463 0 04025 4 32450 KIII3 13608,4,ORO00+1 LDQ (N2) F2E26510 11464 0 04035 4 44770 18936,4,ORO00+9 MPY (C1) F2E26520 11465 -2 00021 2 14362 TNX 6386,2,17 ALS 17 F2E26530 11466 0 04035 6 26422 11538,6,ORO00+9 SUB (C1) F2E26540 11467 0 00000 0 00000 MYORO PZE F2E26550 11470 3 03050 0 42557 DSC6 IORT DOTAG,,200*M/N*9+1 F2E26560 *************************************************************F2E26570 11471 0 00000 0 00000 TAG1 PZE F2E26580 11472 0 00000 0 00000 TAG2 PZE F2E26590 11473 0 00000 0 00000 TAG21 PZE F2E26600 11474 0 00000 0 00000 TAG22 PZE F2E26610 11475 0 00000 0 00000 TAG3 PZE F2E26620 11476 0 00000 0 00000 TAG4 PZE F2E26630 11477 0 00000 0 00000 DOTGRC PZE F2E26640 11500 0 00000 0 00000 PZE F2E26650 *************************************************************F2E26660 11501 0 00000 0 00000 EROP3 F2E26670 11502 +000000000100 EROP OCT 100 F2E26680 *************************************************************F2E26690 11503 636731000000 L(TXI) BCI 1,TXI000 F2E26700 11504 476724000000 L(PXD) BCI 1,PXD000 F2E26710 11505 626724000000 L(SXD) BCI 1,SXD000 F2E26720 BINARY CARD NO. 9F210133 11506 633167000000 L(TIX) BCI 1,TIX000 F2E26730 11507 636743000000 L(TXL) BCI 1,TXL000 F2E26740 11510 242524000000 L(DED) BCI 1,DED000 F2E26750 11511 436724000000 L(LXD) BCI 1,LXD000 F2E26760 11512 626324000000 L(STD) BCI 1,STD000 F2E26770 11513 212424000000 L(ADD) BCI 1,ADD000 F2E26780 11514 626422000000 L(SUB) BCI 1,SUB000 F2E26790 11515 226262000000 L(BSS) BCI 1,BSS000 F2E26800 11516 0 00000 0 03047 LMXDTG 200*M/N*9 F2E26810 11517 +000000000400 MAXLOC OCT 400 F2E26820 11520 +000001000000 L1DEC OCT 1000000 F2E26830 11521 +000000002664 DRADS1 OCT 2664 F2E26840 11522 0 00000 0 00314 DRADS2 204 F2E26850 11523 0 00000 0 00002 DRADS3 2 F2E26860 11524 0 00000 0 00312 AD202 202 F2E26870 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 148 BLOCK E. 11525 0 00000 0 00021 L(17) 17 F2E26880 11526 0 00000 0 04024 L(ORO) ORO00 F2E26890 11527 0000 00 0 00000 ESTORE HTR 0 F2E26900 11530 +077777077777 NOPRET OCT 077777077777 F2E26910 11531 +000003000000 L3DEC OCT 000003000000 F2E26920 11532 0 00000 0 00007 L(7) 7 F2E26930 11533 +170000000000 BCD15 OCT 170000000000 F2E26940 BINARY CARD NO. 9F210134 11534 +060000000002 BCD0 OCT 060000000002 F2E26950 11535 +020000000000 BCD2 OCT 020000000000 F2E26960 11536 -200000000000 BIT01 OCT 600000000000 F2E26970 11537 -300000077777 T1MSK OCT 700000077777 F2E26980 11540 -370000000000 6ONES OCT 770000000000 F2E26990 11541 +007777000000 TETMSK OCT 007777000000 F2E27000 11542 0 00000 0 00006 L(6) 6 F2E27010 11543 0 00000 0 00010 L(8) 8 F2E27020 11544 +000000000010 L(K1) OCT 10 F2E27030 11545 0 00000 0 46365 INST20 ADTGA F2E27040 11546 0 00000 0 42557 INST22 MXTGA F2E27050 11547 0 00000 0 05410 INST24 RTX160 F2E27060 11550 0 00000 0 05433 INST26 RTX184 F2E27070 11551 0 00000 0 05715 INST30 RTX264 F2E27080 11552 0 00000 0 05576 INST32 RTX226 F2E27090 11553 0 06654 0 06654 LMXTG 1000*M/N*4,,1000*M/N*4 F2E27100 11554 0 00000 0 01553 LMXTGA 1000*M/N F2E27110 11555 +377777777777 ALLONE OCT 377777777777 F2E27120 11556 0 00000 0 00536 LZEKMX 400*M/N F2E27130 11557 0 00000 0 02570 LADMX 1600*M/N F2E27140 11560 0 00000 0 00001 L(1) 1 F2E27150 11561 0 00000 0 00002 L(2) 2 F2E27160 BINARY CARD NO. 9F210135 11562 0 00000 0 00004 L(4) 4 F2E27170 11563 0 00000 0 00003 L(3) 3 F2E27180 11564 0 00000 0 00005 L(5) 5 F2E27190 11565 0 00000 0 00000 L(0) 0 F2E27200 11566 0 00000 0 00020 L(16) 16 F2E27210 11567 2 00000 0 00000 BIT1 PTW 0 F2E27220 11570 1 00000 0 00000 BIT2 PON 0 F2E27230 11571 +002000000000 BIT8 OCT 002000000000 F2E27240 11572 +000000077777 ADMSK OCT 77777 F2E27250 11573 0 00000 0 00000 SMSK F2E27260 11574 +000000000760 SMSK1 OCT 760 F2E27270 11575 +000000000774 SMSK2 OCT 774 F2E27280 11576 +000000000763 SMSK3 OCT 763 F2E27290 11577 +000000000773 SMSK4 OCT 773 F2E27300 11600 +000000000020 BITMSK OCT 20 F2E27310 11601 +000000000010 OCT 10 F2E27320 11602 +000000074030 OPMSK OCT 74030 F2E27330 11603 +000000003777 11BITS OCT 3777 F2E27340 11604 +000000100000 BIT20 OCT 100000 F2E27350 11605 0534 00 1 11562 INST2 LXA L(4),1 F2E27360 11606 0534 00 1 11561 INST3 LXA L(2),1 F2E27370 11607 0020 00 0 06561 INST4 TRA AC224 F2E27380 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 149 BLOCK E. BINARY CARD NO. 9F210136 11610 0020 00 0 06562 INST5 TRA AC228 F2E27390 11611 0 00000 0 06714 INST8 AC244 F2E27400 11612 0 00000 0 46365 INST10 ADTGA F2E27410 11613 0 00000 0 05761 INST11 AC010 F2E27420 11614 0 00000 0 42557 INST12 MXTGA F2E27430 11615 0020 00 0 06371 INST13 TRA AC155 F2E27440 11616 0074 00 4 11027 INST14 TSX CIL03I,4 F2E27450 11617 +000000000077 6ONESR OCT 77 F2E27460 11620 +007777000000 6TO17 OCT 007777000000 F2E27470 11621 +000000007777 24TO35 OCT 7777 F2E27480 11622 0 00000 0 00000 BBOX PZE F2E27490 11623 0 00000 0 00000 CIL00 PZE F2E27500 11624 0 00000 0 00000 CIL01 PZE F2E27510 11625 0 00000 0 00000 CIL02 PZE F2E27520 11626 0 00000 0 00000 CIL03 PZE F2E27530 11627 0 00000 0 00000 ERTGA PZE F2E27540 11630 0 00000 0 00000 TETTG PZE F2E27550 11631 0 00000 0 00000 SWICH2 PZE F2E27560 11632 0 00000 0 00000 ERLXC PZE F2E27570 11633 0 00000 0 00000 AX PZE F2E27580 11634 0 00000 0 00000 RELCO PZE F2E27590 11635 0 00000 0 00000 WRKTGA PZE F2E27600 BINARY CARD NO. 9F210137 11636 0 00000 0 00000 N3X PZE F2E27610 11637 0 00000 0 00000 XX PZE F2E27620 11640 0 00000 0 00000 ADTGX PZE F2E27630 11641 0 00000 0 00000 WRKRXT PZE F2E27640 11642 0 00000 0 00000 TETTGX PZE F2E27650 11643 0 00000 0 00000 RTXTGX PZE F2E27660 11644 0 00000 0 00000 LOCIND PZE F2E27670 11645 0 00000 0 00000 ERORBX PZE F2E27680 11646 0 00000 0 00000 A PZE F2E27690 11647 0 00000 0 00000 B PZE F2E27700 11650 0 00000 0 00000 SWICH PZE F2E27710 11651 0 00000 0 00000 TEBBOX PZE F2E27720 11652 0 00000 0 00000 DOIND PZE F2E27730 11653 0 00000 0 00000 DOIND1 PZE F2E27740 11654 0 00000 0 00000 TEABOX PZE F2E27750 11655 0 00000 0 00000 SWICH1 PZE F2E27760 11656 0 00000 0 00000 N3IND PZE F2E27770 11657 0 00000 0 00000 N1N2N3 PZE F2E27780 11660 0 00000 0 00000 XTG PZE F2E27790 11661 0 00000 0 00000 POSIND PZE F2E27800 11662 0 00000 0 00000 ER40 PZE F2E27810 11663 0 00000 0 00000 ER41 PZE F2E27820 BINARY CARD NO. 9F210138 11664 0 00000 0 00000 ARG PZE F2E27830 11665 0 00000 0 00000 VCTR PZE F2E27840 11666 0 00000 0 00000 ERTX01 PZE F2E27850 11667 0 00000 0 00000 ERTX02 PZE F2E27860 11670 0 00000 0 00000 ERTX03 PZE F2E27870 11671 0 00000 0 00000 BLKNUM PZE F2E27880 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 150 BLOCK E. 11672 0 00000 0 00000 SXDTXZ PZE F2E27890 11673 0 00000 0 00000 OREDO PZE F2E27900 11674 0 00000 0 00000 DEFDO PZE F2E27910 11675 0 00000 0 00000 N1SBX PZE F2E27920 11676 0 00000 0 00000 TETLOC PZE F2E27930 PATCH TO RTX200 ROUTINE TO ALLOW DECR. MAX. OF 32767 (26)F2E27931 11677 0500 00 0 11666 RTX205 CLA ERTX01 (26)F2E27932 11700 -0320 00 0 04000 ANA ADDMSK (26)F2E27933 11701 0020 00 0 05544 TRA RTX204 (26)F2E27934 11735 ENDB SYN *+27 (26)F2E27940 *************************************************************F2E27950 11666 ERAORO SYN ERTX01 F2E27960 11667 ERDRM SYN ERTX02 F2E27970 11627 ERAB SYN ERTGA F2E27980 04024 ORO00 SYN $OR000 F2E27990 04041 ORO13 SYN ORO00+13 F2E28000 04046 ORO18 SYN ORO00+18 F2E28010 51156 ADTGMX SYN ADTAG+400*M/N*4 F2E28020 77777 END -1 $F2E28030 BINARY CARD NO. TRA77777 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 1 POST PROCESSOR ASSEMBLY DATA 73667 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM REFERENCES TO DEFINED SYMBOLS 4022 A 4210, 4237, 4257, 4262, 4302, 4313, 4321, 7341, 7355, 7363, 7367, 7376, 7401, 7414, 5151, 5200, 5220 5223, 5243, 5254, 5262 4023 B 4232, 4240, 4264, 4300, 4315, 4327, 7344, 7353, 7356, 7371, 7400, 7417, 5173, 5201, 5225, 5241, 5256 5270 7 M 73667, 3774, 3775, 3776 10 N 73667, 3774, 3775, 3776 4012 C1 4033, 4066, 4105, 4110, 4742, 5150, 5365, 5373, 6232, 6536, 6540, 6547, 6675, 4350, 4614 4014 C2 4113, 6534, 6544 4016 C3 4071, 6517 4020 D1 4103, 5367, 6532, 6551 4021 D2 4115, 5371, 6530 4153 E1 4152, 4303, 4611, 4627, 4632, 4764, 5176, 5460, 5506, 5661, 6165, 6203, 6254, 6651, 6655, 6717, 7466 7622, 4423, 4431, 5102, 5244 4154 E2 4625, 4760, 5172, 5464, 5504, 6171, 6205, 6256, 6527, 6541, 6550, 6577, 6621, 6644, 6723, 6742, 7335 7576, 7614, 4433, 5107 4155 E3 4756, 5166, 5470, 5500, 6261, 6552, 6602, 6623, 6657, 6730, 7604, 7620, 5125 4156 E4 4754, 5162, 6661, 6664, 6671, 6710 4013 S1 4073, 5721, 5735, 6003, 6005, 6027, 6035, 4331, 4346, 4565, 4612 4015 S2 4076 4017 S3 4101 4011 E2C 4101, 4125, 4547, 4562, 4730, 4731, 7532, 7555 4012 E3C 4102, 4126, 4550, 4563, 4600, 7533, 7554 4026 TAG 4035, 4335, 5030, 5120, 5163, 5525, 5570, 6151, 6166, 6202, 6612, 7077, 7120, 7310, 7332, 7555, 4320 4364, 4424, 4426, 4430, 4553, 4625, 5011, 5043, 5045, 5060, 5124, 5276 4010 BCD2 4124 4062 COSE 4272, 6107, 6365 4112 FC10 4106, 4116 4116 FC12 4113, 4115 4120 FC13 4107, 4111 4123 FC14 4114 4130 FC16 4117 4124 LIST 4305, 4635, 5472, 5510, 5545, 6175, 6207, 6263, 6712, 6732, 7472, 7624, 4435, 5134, 5246 4005 L(0) 4266 4005 L(3) 4063, 4300, 5305, 5445, 6155, 6233, 6346, 6442, 6473, 7146, 7331, 7704,10445,10476,11014 4006 L(6) 4062, 4342, 4361, 6175, 6211 4007 L(8) 4133, 7130, 7656 51160 TAU1 4030, 4122, 4211 52454 TAU2 4030, 4121, 4210 55030 TAU3 4030, 4120, 4207 4065 COSE5 4076 37510 DOTGZ 4030, 4202, 4204, 4216, 4221, 4224, 4227, 4247, 4253, 4310 60075 FIXCN 73667, 4105 60074 FIXWC 73667, 4103, 4104, 4121 34440 FORTZ 4030, 4317, 4332 4101 FXCON 4073, 4340, 4357, 6016, 6070, 6101, 6104, 6314, 6341, 7364, 7426, 7455, 7503,10316,10343,10363,10420 10616,10627,10660,10673,10710,10717,10754,11002,11137 4004 L1DEC 4067, 5551, 5562, 6015, 7115, 7363,10122,10264,10301,10340,10342,10651,10670 4164 LADDS 4131, 4135, 4145, 4150, 4440, 4471, 4506, 4574, 6212, 4240, 4246, 5352, 5513 4025 LASTB 4212, 4263, 7366, 7377, 5153, 5224 4013 LINKC 4064, 4077, 7151, 7161,10434,10450 4004 L(1)A 4051, 4053, 4056, 4061, 4063 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 2 POST PROCESSOR ASSEMBLY DATA 4024 NEXTA 4207, 4234, 4256, 4261, 7354, 7375, 5150, 5175, 5217, 5222 4024 OR000 4074, 4653,11702 4040 OR012 4041 OR013 4042 OR014 4046 OR018 4047 OR019 4056 OR026 4057 OR027 4007 RSYM1 4222, 6042, 7014, 7023, 7024, 7162, 7440, 4325, 4333, 4402, 4432, 4461, 4560, 4570, 4576, 4642, 4651 4652, 4653, 4654, 5163 4010 RSYM2 4225, 5624, 6037, 7020, 7022, 7025, 7240, 7452, 4573, 4711, 4721, 4724, 5166, 5317 4011 RSYM3 4714, 4722, 4723, 4756, 5322 4151 SUB30 4143, 4145 4160 SUB40 4163 SUB50 4154, 4157 4131 SUBCM 4232, 5050, 5157, 5207, 5246, 5333, 5534, 5617, 6002, 6006 4014 WRKSC 4065, 4072, 4134, 4153, 4156, 4162, 4165, 4171, 4174, 4200, 4202, 4321, 4334, 4337, 4351, 4354, 4355 5256, 6067, 6076, 6077, 6103, 6130, 6465, 6466, 6471, 7114, 7116, 7166, 7172, 7175, 7177, 7202, 7204 7217, 7222, 7224, 7230, 7233,10105,10110,10115,10300,10304,10306,10310,10312,10314,10337,10347,10350 10357,10366,10367,10371,10403,10404,10414,10435,10436,10441,10453,10454,10456,10465,10466,10472,10504 10505,10507,10512,10513,10531,10535,10650,10657,10667,10672,10707,10750,10773,11064 4624 1 A 4365, 4413, 5705, 5717 4621 1 G 4244, 4254, 4265, 4412, 4503, 5703, 5725 7 1 M 73667, 4007, 4010, 4011, 4035, 4174, 4466, 4574, 4716, 5125, 5314, 5332, 5430, 5462, 5545, 5555, 5676 5736,73667, 4653 10 1 N 73667, 4007, 4010, 4011, 4035, 4174, 4466, 4574, 4716, 5125, 5314, 5332, 5430, 5462, 5545, 5555, 5676 5736,73667, 4653 4617 1 BNA 4222, 4230, 5714, 5722, 5727 4616 1 BNX 4216, 4236, 4255, 4346 5605 1 CK4 5602 4016 1 CR1 4132 4017 1 CR2 4134 4620 1 ENA 4225, 4241, 5716, 5720 4626 1 LDA 4353, 4363, 4372, 4410, 4427, 4453, 4456, 4513, 4515 4623 1 LDG 4264, 4370, 4455, 4462 66477 1 TDO 73667 73577 1 TOP 73667 4625 1 XDA 4351, 4422 4622 1 XDG 4262, 4360, 4367, 4461, 5712, 5735 5665 1 CHCK 5553 1 DOAD 5473 5556 1 DTGL 5521 5463 1 EB00 5434 5467 1 EB10 5464 5476 1 EB20 5522 5477 1 EB30 5504 5501 1 EB40 5470 5505 1 EB45 5501 5516 1 EB46 5511 5517 1 EB47 5522 1 EB48 5471 5523 1 EB50 5466 5526 1 EB60 5547 1 EB70 5545 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 3 POST PROCESSOR ASSEMBLY DATA 5564 1 EB90 5552 5572 1 EB95 5565 6117 1 ENDB 5756 5656 1 ERNX 5655 4173 1 FLOW 5662 4451 1 INCX 4415, 4420, 4442 4452 1 INCY 4416, 4421, 4437 5431 1 LB00 5422 5435 1 LB02 5676, 5743 5436 1 LB05 5443, 5460 5437 1 LB10 5462 5446 1 LB20 5457 5451 1 LB25 5454 5452 1 LB30 5451 5454 1 LB40 5453 5460 1 LB50 5450 5461 1 LB60 5436, 5440, 5442 5462 1 LB70 5461 73577 1 LIST 3750, 5631, 5633, 5635, 5637, 5650, 5652, 5654, 5664 4012 1 LMSK 5446, 5664 4004 1 L(0) 4530, 5561, 5562 4005 1 L(1) 4065, 4127, 4154, 4430, 4747, 5047, 5514 4006 1 L(3) 4644, 5212 4062 1 MR00 4061 4065 1 MR05 4167 4066 1 MR10 4155 4074 1 MR12 4073 4076 1 MR14 4071, 4077 4077 1 MR15 4074, 5660 4105 1 MR20 4101 4125 1 MR30 4123 4134 1 MR40 4131 4135 1 MR50 4133 4136 1 MR60 4104, 4117, 4124, 5643 4141 1 MR70 4063, 4140 4145 1 MR75 4170 4156 1 MR80 4151 4165 1 MR85 4162 4171 1 MRES 4144, 4150 5315 1 RH00 5306 5337 1 RH05 5334 5350 1 RH10 5421 5364 1 RH20 5362 5366 1 RH30 5360 5370 1 RH40 5401 5374 1 RH50 5412 5401 1 RH60 5337, 5371 5403 1 RH70 5377 5411 1 RH72 5405 5412 1 RH75 5340, 5411 5416 1 RH80 5400 5420 1 RH85 5410, 5413, 5415, 5416 5421 1 RH90 5342, 5420 5422 1 RH95 5332, 5336, 5363, 5402 4367 1 RS00 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 4 POST PROCESSOR ASSEMBLY DATA 4371 1 RS10 4407 4377 1 RS20 4374 4402 1 RS30 4405 4403 1 RS40 4402 4405 1 RS50 4404 4407 1 RS60 4344, 4525 14114 1 RT90 73667 4667 1 SF00 4647 4677 1 SF10 4670, 4772 4702 1 SF15 4671, 4731, 5006 4703 1 SF20 4677 4707 1 SF30 4702 4711 1 SF35 4727 4715 1 SF40 4713, 4722 4716 1 SF50 4715 4720 1 SF60 4716 4722 1 SF70 4721 4730 1 SF73 4725 4731 1 SF74 4743 1 SF76 4730, 4735 4744 1 SF78 4734, 4740, 4741 4745 1 SF79 4700 4752 1 SF80 4726 4760 1 SF90 4743, 4750 4773 1 SF92 5005 4775 1 SF94 5001 5000 1 SF96 4774, 4776 5001 1 SF98 5000 5003 1 SF99 4777 4630 1 SV00 4174, 4307, 4311 4636 1 SV10 4666 4637 1 SV20 4665 4643 1 SV30 4657 4645 1 SV40 4651 4646 1 SV44 4635, 4652, 4662, 4674, 4703 4647 1 SV48 4667, 4762 4650 1 SV50 4646 4651 1 SV60 4650 4652 1 SV65 5007 4653 1 SV70 4654 1 SV80 4631, 4653 4660 1 SV90 4641, 4654 4661 1 SV95 4632, 4660 4666 1 SV98 4636, 4642 5244 1 T100 5240 5255 1 T110 5210, 5234 5257 1 T120 5255 5264 1 T130 5262 5274 1 T140 5300 5275 1 T144 5232, 5257 5276 1 T148 5231, 5271 5277 1 T150 5275 5300 1 T160 5273, 5277, 5305 5301 1 T170 5256, 5264 5302 1 T180 5276 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 5 POST PROCESSOR ASSEMBLY DATA 5306 1 T190 5127, 5135, 5204, 5206 5307 1 T195 5270, 5302 51160 1 TAU1 73667, 4030, 4340,73667, 4653 52454 1 TAU2 73667, 4030, 4340,73667, 4653 55030 1 TAU3 73667, 4030, 4340,73667, 4653 5311 1 TBNA 5161, 5165 73600 1 TDOZ 73667, 4046 5312 1 TENA 5163, 5172, 5214 4627 1 TIFX 4206, 4224, 4240, 4267, 4304, 4315, 4321, 4375, 5701, 5740, 5751 66476 1 TIFZ 73667, 3755, 4226, 4245, 4270, 4316, 4322, 4327, 5702 73600 1 TLTZ 73667 60636 1 TRAD 73667 5143 1 TS00 5145 1 TS10 5203 5154 1 TS15 5147 5166 1 TS20 5205 5176 1 TS25 5174 5177 1 TS30 5151 5202 1 TS33 5216 5203 1 TS35 5137, 5153, 5176, 5202, 5230 5204 1 TS38 5207, 5213, 5227, 5233 5205 1 TS40 5130, 5167 5207 1 TS50 5201 5212 1 TS55 5226 5220 1 TS60 5224 5223 1 TS65 5221 5224 1 TS70 5223 5226 1 TS75 5131, 5225, 5301 5231 1 TS80 5222 5236 1 TS85 5235, 5241 5240 1 TS90 5237, 5263 5241 1 TS92 5242 5242 1 TS94 5247, 5254 5310 1 XFOR 5142, 5164, 5171, 5211 11603 11BITS 5042, 5245, 5616, 6001 4316 12ADIF 4276, 4277, 4300 4312 13ADIF 4271 5621 14TAGL 5530 5623 14VALL 5112, 5615 46365 14VALZ 73667, 5166, 5173, 5215, 5217, 5246, 5253, 4340 5622 14VARL 5317 26322 14VARZ 73667, 5370, 5375, 5404 4533 1ADL10 4554 4537 1ADL20 4527, 4561 4540 1ADL30 4531, 4547, 4555 4547 1ADL40 4544 4550 1ADL50 4545 4551 1ADL60 4200, 4550 4555 1ADL70 4537, 4540, 4546, 4551 4561 1ADL80 4556 4563 1ADL90 4532, 4536, 4542 4527 1ADLOC 4256, 4347 5577 1CHECK 5116, 5323, 5534 26323 1DOTAG 73667, 4040, 4060, 4062, 4175, 4630, 5136, 5341, 5435, 5467, 5553, 5560, 5707 37510 1DOTGZ 73667, 3752, 4047, 4054, 4067, 4070, 4103, 4105, 4106, 4107, 4111, 4114, 4116, 4120, 4125, 4130, 4135 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 6 POST PROCESSOR ASSEMBLY DATA 4142, 4145, 4152, 4156, 4165, 4210, 4217, 4260, 4362, 4400, 4403, 4425, 4434, 4447, 4467, 4500, 4505 4511, 4516, 4533, 4552, 4557, 4637, 4643, 4645, 4655, 4663, 4711, 4720, 4736, 4745, 4755, 4756, 4763 4771, 4773, 4775, 5004, 5011, 5026, 5032, 5145, 5156, 5177, 5220, 5236, 5244, 5250, 5260, 5267, 5272 5274, 5303, 5304, 5350, 5356, 5403, 5407, 5437, 5444, 5447, 5452, 5456, 5502, 5630, 5632, 5634, 5636 5651, 5653, 5713, 5731, 5733, 5746, 4030, 4340 5701 1DT000 5742 5744 1DT001 5710, 5734 5733 1DT006 5750 5740 1DT050 4275, 5671 5735 1DTDO1 5721, 5723, 5724, 5730 5742 1DTEND 5677 5751 1DTERR 5745 5557 1DTGBL 5551 5750 1DTLEV 5732 5510 1EB455 5625 1ERIND 5614 5644 1ERIR2 5626, 5642, 5646, 5657 5645 1ERNBR 5627, 5641, 5647, 5656, 5661 5641 1ERNXT 5640 5661 1ERTST 4141 4344 1FA000 4314, 4320, 4325, 4337, 5706 4356 1FA010 4354 4361 1FA020 4356 5667 1FILN1 5525, 5574 60075 1FIXCN 73667, 4212 60074 1FIXWC 73667, 4340 4210 1FL015 4214 4213 1FL020 4237 4214 1FL030 4176, 4213 4216 1FL040 4212 4226 1FL050 4234 4233 1FL055 4251 4234 1FL060 4177, 4233, 4305 4236 1FL065 4242 4240 1FL070 4231 4254 1FL075 4246, 4250, 4252 4273 1FL080 4273, 5704 4304 1FL090 4326, 4343 4205 1FLO10 34440 1FORTZ 73667, 4030, 4340 4322 1GOTOK 4303 4334 1GTV10 4342 4342 1GTV20 4331, 4333, 4341 4343 1GTV30 4336, 4340, 5673 4410 1INC00 4373, 4401 4420 1INC20 4414 4422 1INC30 4417 4423 1INC35 4432, 4445, 4450 4424 1INC40 4201, 4423 4434 1INC50 4431 4446 1INC60 4443, 4444 4012 1L(MZ) 4357, 4377, 5664 4172 1MRES1 4147, 4161 4015 1NCMSK 4446 5563 1NSTAD 5506, 5512 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 7 POST PROCESSOR ASSEMBLY DATA 5424 1RHCNX 5365, 5366, 5373 5423 1RHNNX 5344, 5364, 5417 5426 1RLAST 5355, 5374 4453 1RNC00 4411, 4424, 4433, 4440, 4441 4465 1RNC20 4471, 4522 4466 1RNC30 4465 4471 1RNC40 4470 4472 1RNC50 4464 4476 1RNC60 4510, 4514, 4517 4477 1RNC70 4202, 4476 4517 1RNC75 4472, 4520 4520 1RNC80 4477, 4504 4523 1RNC85 4473, 4521 4524 1RNC90 4475, 4507 4525 1RNC95 4454, 4457, 4466, 4523 5006 1SFEND 4733, 4751, 4766, 4767, 5002 5010 1SFES1 4673, 4676, 4704, 4710, 4724, 4761, 4765, 4770, 5003 5664 1SKTAP 5550 5620 1TABNO 5577, 5605 4022 1TAP00 73666 4042 1TAP15 4035 4045 1TAP20 4057 4046 1TAP21 4052 4054 1TAP30 4056 4057 1TAP35 4042 5613 1TAPER 5604 4020 1TBCHK 5313, 5427, 5554, 5601, 5607 66476 1TDOWC 73667, 4032, 4033, 4034 62412 1TIFGO 73667, 4173, 5675 4564 1TLT00 4266, 4366 4576 1TLT20 4310, 4574 4611 1TLT30 4576 4613 1TLT50 4204, 4306, 4567, 4571, 4573, 4600, 4605 5011 1TRA00 4732 5013 1TRA10 5014 5015 1TRA20 5013 5026 1TRA30 5034 5031 1TRA40 4633, 5030 5034 1TRA50 5015 5035 1TRA60 5031 5036 1TRA70 5021 5037 1TRA80 5023 5050 1TRA85 5054 5053 1TRA86 5051 5054 1TRA87 5053 5753 1TRA88 5055 5056 1TRA90 5052 5057 1TRA95 5041, 5755 62411 1TRADZ 73667, 4334 5060 1TRAN1 5020, 5043 5061 1TRAN2 5022 5062 1TRAN4 5035 5063 1TRAN5 5025, 5027, 5040, 5042, 5045 5064 1TRAN6 5044, 5046 4615 1TRLCT 4564, 4606, 4610 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 8 POST PROCESSOR ASSEMBLY DATA 4614 1TRLVL 4601, 5570 5130 1TSV10 5125 5136 1TSV20 5133 7 2 M 73667, 4340, 4426, 4427, 4430, 4601, 4654, 4673, 7705 10 2 N 73667, 4340, 4426, 4427, 4430, 4601, 4654, 4673, 7705 34440 2 DO 4340 4354 2 L1 5760, 6025, 6063, 6101, 6274, 6322, 6376, 6403, 6410, 7710 4356 2 L2 6276, 6300, 6324, 6326, 6373, 6402, 6412, 6416 4360 2 L3 5223, 5230, 5235, 5246, 6302, 6330, 6372, 6420 4345 2 LC 5004, 5731, 6257, 7004, 7047, 7221, 7246, 7515, 7575 4362 2 LL 5356, 5716, 6104, 6107, 6461, 7032, 7176, 7222, 7516 141 2 TL 5732, 5741, 5753, 7717 4350 2 TS 4745, 4755, 5165, 5310, 5476, 5526, 5534, 6152, 6160, 6170, 6204, 6236, 6260, 6726, 6763, 7334, 7603 4353 2 X1 5043, 5060, 5173, 5345, 5347, 5713, 5756, 5767, 6044, 6074, 6102, 6110, 6344, 6436, 6440, 6442, 6444 7210, 7211, 7504, 7505, 7712 4355 2 X2 5171, 5770, 5772, 6337, 6347 4357 2 X3 5167, 5212, 5244, 5773, 5775, 6334 4344 2 XC 4560, 4671, 4676, 4761, 4766, 5001, 5530, 5730, 6163, 6220, 7002, 7157, 7217, 7463, 7513 4361 2 XL 6111, 7130, 7146, 7203, 7220, 7357, 7460, 7477, 7514 4416 2 CR1 5047, 5067, 5404 4417 2 CR2 5406 7702 2 DB1 7645, 7657 7704 2 DB2 36472 2 DOZ 4340, 7665, 7674 4466 2 END 5704 6505 2 INL 6441, 6457 6501 2 INP 6450, 6470 6504 2 INX 6437, 6455, 6472 7527 2 LR1 7030, 7230, 7256, 7573, 7613 7531 2 LR2 7244, 7611 71010 2 NAM 4340 5447 2 RSR 5561, 6767 5342 2 TCL 5222, 7714 4375 2 TL1 5503, 5556, 5644, 6332, 6343, 6462, 6722, 6757, 7033, 7177, 7247 4376 2 TL2 5501, 5560, 5640, 5643, 6333, 6342, 6460, 6720, 6755, 7031, 7175, 7245 7535 2 TR1 7072, 7101, 7122, 7127, 7577, 7617 7536 2 TR2 7303, 7312, 7601, 7615 7526 2 XR1 7026, 7064, 7070, 7074, 7102, 7111, 7115, 7124, 7133, 7227 7530 2 XR2 7242, 7272, 7275, 7300, 7305, 7315, 7324 4423 2 ABIT 4647, 4767, 5054, 7717 4342 2 ATSW 4557, 4615, 7062 4425 2 BBIT 4644, 4727, 7717 4347 2 BETA 4777, 5022, 5113, 7342 7440 2 BS00 7431 7442 2 BS10 7453 7443 2 BS20 7447 7446 2 BS30 7444, 7476 7447 2 BS40 7430, 7446 7450 2 BS50 7454 2 BS60 7445 7456 2 BS78 7471, 7474 7457 2 BS80 7455 7476 2 BS85 7470, 7473 7477 2 BS90 7456 7507 2 BS91 7506 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 9 POST PROCESSOR ASSEMBLY DATA 7510 2 BS92 7523 2 BS99 7421, 7424, 7450 7532 2 D2D1 7040, 7053, 7057, 7060, 7270, 7322 7533 2 D3D1 7264, 7266, 7313 7534 2 D3D2 7254, 7262, 7265, 7320 4366 2 DORC 4741, 5064, 5136, 6073, 6230, 7214, 7510 4603 2 DTGL 4434, 4543, 5671, 7643, 7651, 7677 4463 2 ENDA 4453 7732 2 ENDB 7717 7410 2 FS00 7415 2 FS20 7423 7421 2 FS28 7407, 7523 7422 2 FS40 7416 7423 2 FS50 7411, 7422 7425 2 FS70 7434 7427 2 FS80 7435 7432 2 FS85 7420 7433 2 FS90 7426 7407 2 FSXX 7346, 7374, 7405 6147 2 IDES 5712, 6053, 6054, 6065 4401 2 L(0) 4442, 4444, 4556, 4737, 4757, 5607, 5647, 5711, 5717, 6022, 6062, 6371, 6424, 6542, 6642, 6650, 6672 7052, 7067, 7103, 7125, 7207, 7261, 7301, 7345, 7373, 7404, 7451, 7503 4402 2 L(1) 4446, 4451, 4614, 4656, 5147, 5155, 5233, 5762, 6033, 6072, 6115, 6127, 6304, 6314, 6335, 6360, 6411 6417, 6463, 6676, 6743, 6764, 7034, 7112, 7134, 7200, 7223, 7250, 7370, 7517 4403 2 L(2) 6177, 6273, 6340, 6350, 6422, 7036, 7316, 7626 4404 2 L(3) 5204, 5437, 6000, 6047, 7706 4405 2 L(4) 4607, 4735, 5660, 6345, 6414, 6454 4406 2 L(5) 4500, 5042, 5057, 5146, 5441, 5720, 5734, 6024, 6043, 6061, 6674 4407 2 L(6) 4751, 5777, 6264, 6316, 6660 6507 2 MIDL 6445 6503 2 MIDP 6453 6506 2 MIDX 6443 7633 2 MKDO 4535 6150 2 NAME 5036 73042 2 NAMZ 4340, 7543, 7552 4541 2 NEST 4462, 4666 4365 2 NRDS 5421, 6122, 6136, 7224, 7520 4364 2 NRRC 5416, 5726, 5761, 5763, 6015, 6125, 6173 4606 2 SKPT 4526, 4530 4351 2 TAG1 5130, 5134, 5140, 5143, 5145, 5157, 5161 5706 2 TAGL 5702 22235 2 TAGZ 4340, 5662 51160 2 TAU1 4340 52454 2 TAU2 4340 55030 2 TAU3 4340 5660 2 TE10 5656 5661 2 TE20 5664 5664 2 TE30 5663 5200 2 TEST 5105 6217 21NS00 4750, 5423 6251 21NS05 6264 21NS10 6223, 6225, 6226, 6231, 6233, 6250, 6252 6270 21NS20 6217, 6266 4422 22BITS 4703, 5102 6271 22NS00 5430 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 10 POST PROCESSOR ASSEMBLY DATA 6272 22NS10 6277 22NS20 6275 6301 22NS25 6271, 6366 6302 22NS30 6277 6303 22NS40 6301 6311 22NS50 6306, 6310 6314 22NS60 6305, 6307, 6312 6315 22NS65 6357, 6364 6316 22NS70 6303 6317 22NS80 6315 6325 22NS82 6323 6330 22NS84 6325 6331 22NS86 6327 6342 22NS88 6331 6351 22NS90 6336, 6341, 6346 6357 22NS91 6353 6370 23NS00 5444 11621 24TO35 6251 46365 24VALZ 4340, 7415, 7425, 7443, 7465,73667 73042 2ADTAG 4340 4426 2ADTXX 4566, 4567, 4617, 4621, 5516, 5520, 5565, 5600, 7556, 7560 4346 2ALPHA 4763, 4775, 5012, 5175, 6201, 7340 4436 2BEG10 4441 4432 2BEGIN 73666 4423 2BIT18 5452, 5454, 7717 4424 2BIT19 4700, 5077 4425 2BIT20 4705, 7131, 7717 5421 2BRA10 5417, 7717 5423 2BRA20 5427, 5433 5425 2BRA30 5422 5430 2BRA40 5443 5431 2BRA45 5415, 5445 5432 2BRA50 5425 5441 2BRA60 5435, 5436 5442 2BRA70 5440 5444 2BRA80 5434 5445 2BRA90 5424, 5431 5360 2CAR05 5344, 5412 5372 2CAR10 5370 5406 2CAR15 5403 5407 2CAR20 5405 5411 2CAR25 5407 5412 2CAR30 5353, 5357, 5360, 5376 5414 2CAR40 5363, 5364, 5366, 5375 5344 2CARRY 6313, 6415, 6423 6773 2CORES 5420 7701 2DBIO1 7703 2DBIO2 7642, 7650 14117 2DBUF1 4340, 7701, 7704 17166 2DBUF2 4340, 7702, 7703 4371 2DELTA 6142, 7003, 7041, 7106, 7137, 7225, 7347, 7441, 7521 4673 2DOF10 4672 4710 2DOF15 4704 4714 2DOF20 4707 4720 2DOF25 4716 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 11 POST PROCESSOR ASSEMBLY DATA 4723 2DOF30 4731 2DOF40 4712, 4722, 4726, 4771 4734 2DOF50 4731 4671 2DOFOR 4600, 4733 4340 2DOREC 4443, 4524, 4655, 4657 34441 2DOTAG 3762, 4340, 4561, 4601, 4641, 4661, 4667, 6773 37510 2DOTGZ 4340, 4415, 4631, 4643, 4646, 4652, 4677, 4702, 4706, 4710, 4714, 4720, 4723, 4730, 4732, 4770, 4772 5002, 5055, 5075, 5100, 5101, 5200, 5220, 5241, 5245, 5275, 5304, 5312, 5315, 5351, 5354, 5361, 5372 5377, 5451, 5455, 5456, 5461, 5465, 5467, 5474, 5505, 5611, 5613, 5617, 5623, 5626, 5632, 5733, 5746 5765, 6050, 6077, 6164, 6222, 6235, 6241, 6243, 6247, 6251, 6253, 6255, 6653, 6716, 6745, 6752, 7010 7013, 7017, 7075, 7116, 7132, 7147, 7153, 7161, 7170, 7205, 7234, 7237, 7306, 7360, 7462, 7464, 7501 7621 5521 2DRM05 5515, 5551 5522 2DRM10 5550 5546 2DRM15 5562 5550 2DRM20 5517, 5521, 5547 5553 2DRM30 5531, 5546 5554 2DRM40 5533 4670 2DTGBL 4465, 4531, 4665 34440 2DTGWC 4340 4373 2DUPES 5132, 5141, 5206, 5426, 5432, 6010, 6020, 6023, 6132, 6311, 6352, 6355 4476 2END05 4472 4477 2END06 4474 4501 2END10 4511 4510 2END15 4503 4516 2END20 4514 4521 2END30 4517 4537 2END80 4447, 4513, 7330 4540 2END85 4452, 4516 4604 2FIL2L 4470 4605 2FIL6L 4523 60074 2FIXWC 4340 34440 2FORTZ 4340, 5010, 5025, 5111, 5116, 5123,73667 7434 2FS100 7412, 7433 7436 2FSBEG 7432, 7442 7437 2FSEND 7427 4352 2GROUP 5127, 5257, 6265, 6317, 6407, 6425 5713 2ID010 5714 5721 2ID020 5724 5724 2ID030 5722, 5723 5733 2ID050 5752 5735 2ID060 5740 5740 2ID070 5736, 5766 5743 2ID075 5707, 6143, 6145 5744 2ID080 5742 5745 2ID090 5750 5746 2ID100 5745 5750 2ID110 5747 5753 2ID120 5737 5767 2ID150 5744, 5764 6003 2ID160 6001, 6012, 6014 6011 2ID170 6004, 6006 6012 2ID180 6011 6014 2ID190 6013 6024 2ID195 6017 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 12 POST PROCESSOR ASSEMBLY DATA 6025 2ID200 6040 6034 2ID205 6032 6040 2ID210 6026, 6030 6042 2ID220 6036 6043 2ID300 6016, 6041 6044 2ID310 6060 6050 2ID320 6057 6057 2ID330 6056 6060 2ID340 6045 6063 2ID350 6120 6073 2ID360 6071 6104 2ID370 6066 6113 2ID372 6105, 6106 6116 2ID375 6114 6120 2ID380 6064, 6103, 6117 6125 2ID385 6123 6136 2ID390 6134 6141 2ID395 6131, 6133, 6135, 6137, 6140 6143 2ID400 6126 6145 2ID410 5743 5707 2IDENT 5034, 5540 4411 2L(1)A 4473, 4502, 4746, 5575, 6161, 7343, 7365 4412 2L(2)A 4410 2L(36) 5637, 7046, 7255 4413 2L(4)A 4752 4414 2L(MZ) 5122, 5314, 6240, 6244 7705 2MAXDO 7633 7640 2MKDO1 7635 7644 2MKDO2 7652, 7673 7657 2MKDO4 7663 2MKDO5 7672 7664 2MKDO6 7646, 7670 7672 2MKDO8 7661 7674 2MKDO9 7637, 7654 6156 2NAM10 6150, 6215 6157 2NAM20 6155 6177 2NAM30 6174 6201 2NAM40 6176 6215 2NAM50 6156 4431 2NAMXX 4575, 4577, 6214, 7537, 7541 6771 2NRMRT 7700 6366 2NSEND 6362 4460 2PAT01 6152 2PAT05 5773 2PT041 5771 5776 2PT042 5774 6002 2PT043 5776, 6153 7227 2R0000 7110, 7136 7232 2R0010 7241 7233 2R0020 6777, 7232, 7252, 7327 7236 2R0030 7231 7263 2R0050 7260 7272 2R0060 7267 7277 2R0065 7253, 7326 7305 2R0080 7274 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 13 POST PROCESSOR ASSEMBLY DATA 7312 2R0090 7277 7313 2R0100 7304 7320 2R0150 7314 7326 2R0200 7271, 7321, 7323 4372 2RCDUP 6021, 6130 6521 2RES05 6521 6527 2RES10 6535, 6537 6534 2RES20 6525 6536 2RES30 6523 6540 2RES40 6524 6543 2RES45 6512, 6733 6544 2RES50 6522, 6526 6550 2RES55 6546 6552 2RES60 6533, 6543 6555 2RES65 6553, 6744, 6751 6561 2RES70 6567 6566 2RES73 6575, 6600, 6603 6567 2RES75 6556, 6560, 6564, 6566 6571 2RES80 6565 6610 2RES85 6570 6620 2RES87 6616 6626 2RES88 6625 6637 2RES90 6633 6642 2RES92 6632 6643 2RES94 6631 6644 2RES96 6630, 6634, 6636, 6641 6651 2RES98 6647 6512 2RESET 6365, 6475 4427 2RESXX 4570, 4571, 6555, 6557, 6615, 6626 6154 2RET01 65457 2RETAB 4340 5226 2RETRN 7715 5473 2RSR10 5453 5513 2RSR20 5447, 5511 5514 2RSR30 5450, 5473 5127 2SCEND 5040, 5543 7602 2ST020 7600 7621 2ST035 7605, 7607 7625 2ST040 7572, 7610, 7631 7626 2ST050 7606 7631 2ST100 7625 5006 2TAG00 4675 5010 2TAG05 5016 5015 2TAG10 5021, 5026 5016 2TAG20 4456, 5007, 5015 5020 2TAG25 5035, 5114, 5126 5022 2TAG30 5013 5023 2TAG40 5020, 5031, 5110 5042 2TAG50 5043 2TAG52 5056 5052 2TAG54 5050 5054 2TAG56 5046 5056 2TAG58 5044, 5053 5060 2TAG60 5107 5072 2TAG62 5070 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 14 POST PROCESSOR ASSEMBLY DATA 5074 2TAG64 5066 5076 2TAG65 5104, 5106 5077 2TAG66 5065 5107 2TAG68 5061, 5073, 5076, 5103 5110 2TAG70 5111 2TAG72 5125 5114 2TAG75 5124 2TAG80 5121 5125 2TAG90 4457, 5124 4430 2TAGXX 5655, 5665, 5672, 5674 5700 2TET10 5703 2TET20 5677 4536 2TRLVL 4534 5613 2TRW10 5622, 5625 5616 2TRW20 4562, 5615 5621 2TRW30 5612, 5635 5623 2TRW35 5630 2TRW40 5634 5631 2TRW50 4563, 5630 5634 2TRW60 5627 5635 2TRW65 5606, 5636 5636 2TRW70 5616, 5621, 5631 5651 2TRW80 5646 5652 2TRW90 5642 5606 2TRWRD 6361, 6465, 7037, 7201, 7251 7 3 M 73667, 4226, 4227, 4230, 4254, 4467, 4473, 4524, 5366, 5445 10 3 N 73667, 4226, 4227, 4230, 4254, 4467, 4473, 4524, 5366, 5445 34440 3 DO 73667 4176 3 TS 5023, 5120 5021 3 DOX 4775, 5026, 5076 36472 3 DOZ 73667, 4307, 4442, 4460 5510 3 END 5445, 5505 66475 3 IRV 73667, 4212 4203 3 LR1 4657, 4677 4206 3 LR2 4726, 4744 4201 3 TL2 4660, 5103, 5336, 5341 4202 3 XR1 4661, 4671, 4676 4205 3 XR2 4725, 4736, 4743 4210 3 XR3 4763, 4770 5543 3 ENDB 5517 4440 3 INDO 4417 4302 3 INIT 4300 67512 3 IRVZ 73667, 5046, 5436, 5452, 5453, 5463, 5464, 5465, 5474, 5475, 5506 4214 3 L(0) 4251, 4343, 4564, 4606, 5001, 5036, 5227, 5302, 5344 4215 3 L(1) 4344, 4352, 4610, 4616, 4663, 4672, 4727, 4764, 5003, 5030, 5052 4216 3 L(2) 4665, 4732, 4737, 5072, 5127 4217 3 L(3) 4323, 4330, 4340, 4400, 4457, 4556, 4563, 4603, 4640, 4771, 5065 4220 3 L(6) 4327, 4562 20203 3 NAME 73667, 4232, 4270, 4276, 4541 22235 3 NAMZ 73667, 5014, 5022 5002 3 PR10 4777 5004 3 PR20 5002 5025 3 PR25 5021 5034 3 PR30 5027 5036 3 PR40 5032 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 15 POST PROCESSOR ASSEMBLY DATA 5040 3 PR60 5043 3 PR70 5041 5050 3 PR75 5047 5052 3 PR80 5024 5054 3 PR90 5033, 5035, 5051, 5064, 5067, 5071, 5074 4212 3 SKIP 5004, 5025, 5130 5362 3 SORT 4703 3 SYM2 4700 4750 3 SYM3 4745 4636 3 TAGX 4554, 4621, 4633 51160 3 TAU1 73667 52454 3 TAU2 73667 55030 3 TAU3 73667 67513 3 TCOM 73667, 4233 5102 3 TE10 5100 5107 3 TE20 5105 5120 3 TE30 5111 5123 3 TE40 5110 5124 3 TE50 5114, 5122 5125 3 TE60 5117 5133 3 TE70 5075, 5135 5134 3 TE80 5131 5135 3 TE90 5133 46365 34VALZ 73667, 4401, 4414, 4422 4006 35ONES 4475, 4610, 5650, 5715, 5345 4277 3BEGIN 4274 4224 3BIT18 5062 5474 3DEL10 5473, 5502 5501 3DEL20 5477, 5507 5502 3DEL30 5471, 5501 5504 3DEL35 5503 5506 3DEL40 5476 4200 3DELTA 4342, 4605, 4662, 4674, 4730, 4741, 5000 34441 3DOTAG 73667, 4516, 4524, 4531 45626 3DOTGZ 73667, 4526, 4641, 4655, 4705, 4710, 4752, 4755, 5007, 5056, 5063, 5077, 5112, 5115, 5143, 5145, 5157 5162, 5165, 5170, 5210, 5214, 5251, 5304, 5306, 5312, 5316, 5321, 5324, 5330 4523 3DTGBL 4504, 4521 4427 3FND10 4412, 4421, 4436 4430 3FND20 4415 4433 3FND30 4427 4436 3FND40 4420 4466 3FORNR 4416, 4445, 4451 34440 3FORTZ 73667, 4312, 4316, 4356, 4362, 4367, 4550, 4622, 4630, 5260, 5273 4412 3FOUND 4404 5014 3GETN1 5020 5017 3GETN2 5015 5020 3GETN3 5013, 5017 5022 3GETN4 5016 5012 3GETNM 6376 3GRP10 6374 6377 3GRP15 6370, 6510 6402 3GRP20 6377, 6401 6406 3GRP30 6404, 6405 6416 3GRP40 6413 6424 3GRP50 6421 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 16 POST PROCESSOR ASSEMBLY DATA 6426 3GRP55 6426 6435 3GRP60 6432, 6434 6436 3GRP65 6427, 6430, 6431, 6433, 6435 6450 3GRP70 6446, 6447 6453 3GRP72 6451, 6452 6455 3GRP75 6477 6477 3GRP77 6467 6502 3GRP80 6464, 6466, 6474, 6476 4442 3IND10 4455 4455 3IND20 4310, 4441, 4454, 4465 4457 3IND30 4452, 4453 4461 3IND40 4464 4464 3IND50 4462 4467 3IND60 4440 66474 3IRVWC 73667, 4252, 5512 4213 3IRVXX 4250, 5040, 5050, 5424, 5442, 5443, 5470, 5504, 5511 4526 3LDTGZ 4512 144 3LIGHT 4277, 5362, 5413, 5416, 5447, 5460, 5466, 5517 4222 3L(2)A 4221 3L(36) 5335 4223 3L(MZ) 4627, 5123 5430 3MAK10 5441 5436 3MAK20 5434 5440 3MAK40 5432, 5437 5441 3MAK50 5426, 5440 5442 3MAK60 4271 3NAM10 4264, 4273 4272 3NAM20 4261 4275 3NAM95 4257 4232 3NAMAD 4260 4226 3NAMAX 4267, 4275, 5012 20202 3NAMWC 73667 6510 3NSEND 6500 5070 3PR100 5061 4527 3RDES1 4530 3RDES2 4515 3RDO30 4513 4517 3RDO40 4502 3RDORD 4507 5352 3RDTSX 4477, 4636 4354 3SAVEA 4321, 4355, 4372 5137 3SP000 5031, 5132 5154 3SP010 5155 3SP020 5167 5156 3SP040 4537, 5155 5161 3SP050 5144, 5221 5170 3SP053 5164 5177 3SP055 5200 3SP058 5231 5204 3SP060 5140, 5177, 5205, 5226, 5230 5205 3SP065 5202, 5240, 5247 5207 3SP070 5212 3SP080 5216 5213 3SP090 4540, 5212 5216 3SP100 5211 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 17 POST PROCESSOR ASSEMBLY DATA 5221 3SP105 5141, 5232, 5234 5222 3SP110 5156, 5161, 5213 5231 3SP115 5137, 5154, 5176, 5207 5232 3SP120 5206 5234 3SP130 5237 5250 3SPKEY 5142, 5245 5241 3SPSTO 5204 5236 3SPTIN 5203 4640 3SYM10 4647 4642 3SYM20 4645 4645 3SYM30 4643 4647 3SYM40 4532, 4646, 4702, 4707, 4720 4651 3SYM50 4644 4666 3SYM60 4664 4674 3SYM70 4670 4701 3SYM80 4675 4705 3SYM90 4717 4400 3TAB10 4410 4402 3TAB20 4406 4405 3TAB30 4403 4406 3TAB40 4377, 4405 4407 3TAB50 4437 4410 3TAB60 4303, 4407 73041 3TCOMZ 73667, 4242, 5371, 5372, 5376, 5377, 5403, 5404, 5405, 5406, 5407, 5410, 5411, 5412, 5430, 5433 5260 3TINF1 5266 5265 3TINF2 5274, 5277 5266 3TINF3 4544, 5265 5270 3TINF4 5263 5251 3TINFR 5034, 5070 5257 3TINFX 5236 4312 3VAL10 4374 4325 3VAL20 4326 4331 3VAL30 4335 4335 3VAL40 4332, 4334 4353 3VAL50 4345, 4347, 4351 4355 3VAL60 4341, 4371, 4411 4370 3VAL70 4357, 4361, 4365 4371 3VAL80 4305, 4370 4373 3VAL90 4313, 4315 4374 3VAL95 4306, 4373 7 4 M 73667, 4653 10 4 N 73667, 4653 4633 4 AX 4231, 4235 4634 4 BX 4230, 4234 4334 4 S2 4322 4351 4 S3 4335 66475 4 BOB 4212, 4224 4547 4 CIT 4306, 4320, 4411, 4424, 4473 4247 4 FIN 4222 4431 4 LXC 4333, 4350, 4367 45545 4 A)B1 4212, 4556, 4610, 4613 46055 4 A)B2 4212, 4611, 4612 4614 4 BBOX 4370, 4372, 4551, 4561, 4574, 4601 4262 4 DSC2 4250 4610 4 DSC4 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 18 POST PROCESSOR ASSEMBLY DATA 4612 4 DSC5 4571 4252 4 FIN1 4246 4642 4 L(0) 4401, 4414, 4437, 4451, 4471 4643 4 L(1) 4212 4644 4 L(4) 4324 4622 4 TAG1 4227 4623 4 TAG2 4237 4 TEST 4236, 4243 4625 41XBOX 4266, 4374, 4375 4626 42XBOX 4267 4640 46ONES 4276, 4313, 4454, 4463 46366 4ADTAG 4212, 4653 4613 4A)B1A 4611 4A)B2A 4567, 4605 310 4A)BSZ 4212, 4553, 4610, 4612 4263 4A)FNL 4251, 4570 4637 4BCD10 4304 4636 4BCD14 4407 4641 4BIT01 4456 66474 4BOBWC 4212, 4221 4615 4CIL00 4262, 4305, 4317, 4402, 4415, 4440, 4555 4616 4CIL01 4274, 4310, 4405, 4420, 4444 4617 4CIL02 4277, 4315, 4410, 4416, 4450, 4453, 4460, 4464, 4472 4620 4CIL03 4302, 4314, 4403, 4422, 4452, 4462, 4470 4554 4CIT01 4576 4555 4CIT02 4560 4556 4CIT03 4572 4562 4CIT04 4563 4CIT05 4577, 4602 4565 4CIT06 4553, 4573, 4603 4566 4CIT07 4607 4576 4CIT08 4606 4600 4CITSP 4245 4230 4ENTRY 4242 4EQUAL 4631 4ERDRM 4632 4ERLXC 4432, 4435 60075 4FIXCN 4212, 4653 60074 4FIXWC 4212 4645 4KLX02 4330 4647 4KLX03 4345 4651 4KLX05 4364 2573 4LADTG 4653 4627 4LINK1 4270, 4376, 4423, 4425 4630 4LINK2 4400, 4412 4477 4LX100 4501 4LX102 4645 4505 4LX105 4646 4513 4LX110 4650 4521 4LX116 4647 4531 4LX124 4652 4537 4LX130 4651 4437 4LXC08 4474 4441 4LXC10 4436 4447 4LXC15 4446 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 19 POST PROCESSOR ASSEMBLY DATA 4465 4LXC19 4431, 4475 4466 4LXC20 4445 4473 4LXC30 4455, 4457, 4465 4621 4NAME1 4225, 4303, 4406 4024 4OR000 4275, 4311, 4323, 4336, 4341, 4353, 4360, 4477, 4500, 4501, 4502, 4503, 4504, 4505, 4506, 4510, 4511 4512, 4513, 4514, 4516, 4517, 4520, 4521, 4522, 4524, 4526, 4527, 4530, 4531, 4532, 4534, 4535, 4536 4537, 4540, 4542, 4544, 4545, 4546, 4653 4040 4OR012 4653 4041 4OR013 4653 4046 4OR018 4653 4056 4OR026 4653 4430 4RELTG 4421 4212 4START 73666 4400 4STOTP 4242, 4373 5554 4TAGAD 5527, 5535, 5537 5313 4VALAD 5111, 5117, 5121 7525 4VALES 7457, 7475 37510 4VALWC 73667 5427 4VARAD 5316, 5324, 5326 11646 5 A 4755, 5550, 5561, 6041, 6730, 6740, 6773, 7004, 7007, 7052, 7271 11647 5 B 4757, 4776, 5744, 6741, 6764, 6775, 6776, 7011, 7036, 7275 7 5 M 4653, 7531, 7653,11470,11516,11553,11554,11556,11557,11702 10 5 N 4653, 7531, 7653,11470,11516,11553,11554,11556,11557,11702 5735 5 AC 4763 11633 5 AX 6234, 6300, 6325, 6350, 6355, 6366, 6373, 6407, 6443, 6456, 6524, 6527, 6540, 6550, 6553, 6562, 6636 6701,10274,10321,10335 10574 5 PC 6477,10447,10500,10544 10014 5 S3 7754, 7764, 7772,10000,10013 10016 5 S8 10012 11256 5 XK 11005 11637 5 XX 6476,10446,10477,10543,10631,10744 11664 5 ARG 7750,10007 5633 5 ARS 5630 7651 5 B1Z 7607, 7633, 7636 7647 5 B2Z 7532 5 CIT 5113, 5124, 5145, 5366, 5407, 5460, 5553, 5564, 5710, 6043, 6230, 6335, 6406, 6424, 6433, 6611, 6623 6665, 6734, 7257, 7404, 7414, 7440, 7467, 7512,10154,10176,10211,10250,11221 5625 5 CLA 5623 7066 5 ISC 5503, 7057, 7072, 7073 5634 5 LBT 5632 11146 5 LXC 6150, 6166, 6203, 6217, 6347, 6362, 6552, 6577, 6630, 6634, 6653, 6670, 6674,10425,10431,10565,10622 10655,10664,10677,10704,10714,10730,10737,10764,11006,11022 4674 5 MAN 4671 11636 5 N3X 6474,10444,10475,10541,10575,11011 7345 5 OP2 6156, 6174, 6210 7416 5 OP3 6601, 6655,10666,10721 10632 5 PCI 4774 5 RTX 4762 10131 5 TGA 5120, 5454,10205 7515 5 TTG 4746 11334 5 XCI 11250,11263 11430 5 XKI 11256 11660 5 XTG 5012, 5020, 5023, 5250, 5421, 5430, 5575, 5600, 5637, 5714, 5760, 5763, 5765, 6434, 6706, 7045, 7262 7264,10135,10242,10516 5753 5 AC03 5752 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 20 POST PROCESSOR ASSEMBLY DATA 5754 5 AC05 10323 5 AORO 6507, 6560 11622 5 BBOX 4721, 6374, 6376, 7401, 7403, 7535, 7553, 7561 11534 5 BCD0 6021 11535 5 BCD2 10201 5 BCDE 5175, 5233, 5316, 5361 7646 5 BCNT 4766, 7560, 7635 11567 5 BIT1 5131, 6415, 6760, 7030, 7722 11570 5 BIT2 6767,10640,11106 11571 5 BIT8 6461,10237 11035 5 BITP 6060, 6064, 6073 7645 5 BLSW 5007, 5755, 7536, 7543 17110 5 BONE 4653, 7575, 7650, 7651 10434 5 BORO 6512 17420 5 BTWO 4653, 7647, 7652 7654 5 CILV 5115, 5362, 5403, 5451, 5510, 5647, 5704, 7237,10202,10244 10452 5 CORO 6515,10555 7236 5 CSXD 5372,10155,10212 7213 5 CXIJ 5255, 5540, 5662, 5675, 6301, 6326, 7212, 7216 7557 5 DF01 4765 7562 5 DF20 7604 7570 5 DF31 7573 5 DF34 7570 7574 5 DF36 7600 7575 5 DF37 7612 7600 5 DF40 7562, 7615 7605 5 DF50 7577, 7613, 7631 7606 5 DF51 7640 7631 5 DF70 4673, 4772 6737 5 DOGS 4751 10503 5 DORO 6520,10553 11470 5 DSC6 4711 7650 5 DSC7 7611 7652 5 DSC8 10146 5 EDCB 5173, 5231, 5314, 5345, 5357 11735 5 ENDB 11702 7112 5 ENTR 5044, 5530, 5621, 5776 10552 5 EORO 6522 11662 5 ER40 7675, 7713, 7732, 7743, 7751,10021 11663 5 ER41 7701, 7703, 7715, 7740, 7747 11627 5 ERAB 11702 11502 5 EROP 10573 5 ERTN 10552,10566,10570 7044 5 FIND 5021, 5576, 5761 7120 5 LOCO 7534 11250 5 LXCI 11565 5 L(0) 5010, 5133, 5554, 6072, 6270, 6320, 6333, 6417, 6455, 6614, 6737, 7122, 7147, 7240, 7377, 7436, 7450 7463, 7476,10120,11027,11070,11165,11177,11217 11560 5 L(1) 4747, 6037, 6063, 6121, 6145, 6207, 6324, 6327, 6337, 6360, 6544, 6566, 6571, 6642, 6645, 6667, 7017 7066, 7316, 7670, 7702, 7752,10474,10540,10635,10644,10653,10675,10712,10726,10735,11004,11156 11561 5 L(2) 5251, 5335, 6057, 6136, 6157, 6173, 6475, 6652, 6672, 7167, 7173, 7200,10423,10443,10542,10563,11606 11563 5 L(3) 5211, 6526,10702,11124,11130 11562 5 L(4) 6140, 6576, 6626, 6632, 7337, 7544,10427,10620,10663,11122,11605 11564 5 L(5) 7737 11542 5 L(6) 6547 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 21 POST PROCESSOR ASSEMBLY DATA 11532 5 L(7) 5272, 6046, 6051, 6504, 7326, 7421, 7700,10017,10255,10525,11117 11543 5 L(8) 10557,10745 7403 5 OP24 7402 7353 5 OP2P 7351 7443 5 OP31 7422 7453 5 OP32 7445 7463 5 OP33 7452 7501 5 OP34 7473 7510 5 OP35 7500 10612 5 PC04 10574,11023 10624 5 PC10 10612 10631 5 PC20 10623 10741 5 PC21 10641,10733 10744 5 PC22 10742 10754 5 PC23 10747 10761 5 PC24 10752 10763 5 PC25 10760 10766 5 PC30 10743 10775 5 PC31 10767 11002 5 PC32 10774 11007 5 PC60 10665,10671,10706,10715,10740,10765 11025 5 PC61 11020 11022 5 PC62 11010,11026 7727 5 PRES 5025 10023 5 RXTA 10004,10016 7035 5 SCAN 5016, 5756 11573 5 SMSK 7757, 7762, 7770, 7776,10010 65460 5 SXTX 4653, 5745, 5750 11471 5 TAG1 7076, 7302 11472 5 TAG2 5151, 5164, 5201, 5210, 5237, 5247, 5304, 5321, 5325, 5334, 5346, 5376, 6124, 6142, 6235, 6241, 6541 6563, 6637, 7070, 7100, 7102, 7104, 7133, 7134, 7140, 7152, 7247, 7304, 7307, 7311, 7317, 7332, 7347 7705,10163,10167,10216,10224,10324,10576,10632,11012,11054,11066,11103 11475 5 TAG3 5032, 5034, 5041, 5135, 5155, 5205, 5243, 5331, 5414, 5526, 5532, 5604, 5606, 5612, 5614, 5770, 5772 6000, 6004, 6250, 6351, 7106, 7253, 7313, 7673,10126,10262,10267,11031 11476 5 TAG4 5060, 5125, 5221, 5270, 5440, 5521, 5625, 5627, 5664, 5671, 6044, 6050, 6111, 6411, 6457, 6463, 7110 7315, 7324, 7676, 7724, 7727, 7735,10353,10374,10410,10461,10523 4655 5 TAGL 4220, 4677 41004 5 TAGZ 4653, 5252, 7037, 7053, 7075, 7101, 7105, 7107, 7520,10243,10517 51160 5 TAU1 4653 52454 5 TAU2 4653 55030 5 TAU3 4653 7146 5 TELC 5542, 6012, 6310 7673 5 TETG 5024, 7725 10141 5 TGA5 10145 10142 5 TGA8 5432, 5465, 5725, 5732 10132 5 TGAT 5653 7075 5 TGFM 5502, 7056 4656 5 TIFL 7623 11665 5 VCTR 3767, 4726, 4775, 5005, 5736, 7126, 7131, 7654, 7657 11416 5 X2CI 11260 11344 5 XCI6 11251,11261 11346 5 XCI8 11262 11431 5 XCIE 11252,11253 11114 5 XORO 6546,11107 11540 56ONES 5515, 6032, 6225, 6260, 6316, 6606, 6620, 6662, 7354, 7371, 7412, 7430, 7457, 7505,11202,11211 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 22 POST PROCESSOR ASSEMBLY DATA 11620 56TO17 6246 11355 5A1000 11237 11356 5A1001 11240 11351 5A1C00 11235 11352 5A1C01 11236 5761 5AC010 5767, 6703,11613 5764 5AC014 6716 5767 5AC016 6711, 6721 6004 5AC018 5771 6006 5AC019 6007 5AC020 5777 6021 5AC021 6003 6024 5AC022 6020 6043 5AC024 6036 6044 5AC030 6011 6063 5AC040 6061 6072 5AC046 6065 6107 5AC048 6074, 6114, 6117 6136 5AC049 6112, 6123 6163 5AC050 6161, 7367 6167 5AC064 6154, 6370 6202 5AC068 6177, 6201 6204 5AC080 6172, 6367 6216 5AC084 6213, 6215 6220 5AC096 6206, 6364, 6372 6231 5AC100 6056, 6135 6234 5AC109 6410 6240 5AC110 6242, 6244 6245 5AC116 6240 6257 5AC120 6255 6266 5AC128 6261 6273 5AC138 6264, 6265 6313 5AC139 6302, 6306, 6311 6324 5AC140 6272 6331 5AC144 6323 6337 5AC146 6330 6350 5AC150 6336 6371 5AC155 6375,11615 6377 5AC157 6356, 6357 6407 5AC160 6237, 6243, 6254, 6256, 6276 6434 5AC165 6412, 6416, 6713, 6723 6443 5AC166 6525 6446 5AC168 6450 6451 5AC170 6446 6462 5AC171 6465 5AC172 6462 6501 5AC173 6460 6503 5AC174 6501 6506 5AC176 6464, 6506 6514 5AC178 6511 6517 5AC182 6514 6522 5AC186 6517 6524 5AC190 6452, 6500, 6510, 6513, 6516, 6521, 6523 6527 5AC200 6702 6531 5AC210 6533 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 23 POST PROCESSOR ASSEMBLY DATA 6533 5AC214 6531 6551 5AC220 6545 6561 5AC224 11607 6562 5AC228 11610 6636 5AC230 6561 6675 5AC234 6600, 6631, 6635, 6654, 6671 6701 5AC236 6535 6703 5AC240 5762, 6441, 6705, 6710, 6720 6714 5AC244 11611 6716 5AC248 5735, 6735 6717 5AC250 6715 6735 5AC260 6725 6543 5ACI21 6601 5ACI22 6572 6655 5ACI23 6646 11524 5AD202 11572 5ADMSK 5117, 5136, 5400, 5453, 5652, 7210, 7214, 7660, 7674,10157,10204,10217,10225,10263,10270,10327,10601 11032,11077,11111 46366 5ADTAG 4653,11702 46365 5ADTGA 4653, 4717,11545,11612 7263 5ADTGS 7263, 7274, 7276, 7322 11640 5ADTGX 5014 4660 5AINIT 4261 10345 5AORO5 10323,10432 11533 5BCD15 10124,10260 10222 5BCDE2 10201,10251 10223 5BCDE5 10214 10231 5BCDE8 10227 10232 5BCDE9 10222 11536 5BIT01 11204 11604 5BIT20 5565, 6263, 6305, 6354 7643 5BLOCK 7573, 7603 73041 5CARWC 4653, 4662, 5474, 5477 10273 5CDORO 310 5CIBSZ 4653, 7575, 7614, 7646, 7647, 7650, 7651, 7652 11623 5CIL00 5116, 5134, 5377, 5452, 5570, 5651, 6042, 6334, 6404, 6731, 7124, 7127, 7400, 7437, 7464, 7540, 7542 7545, 7655,10121,10156,10203,10215,10223,11030,11163,11166 11624 5CIL01 5052, 5111, 5123, 5141, 5365, 5406, 5457, 5544, 5546, 5557, 5642, 5656, 5701, 6025, 6134, 6222, 6332 6403, 6423, 6430, 6603, 6613, 6657, 6727, 7256, 7376, 7406, 7435, 7466, 7511,10150,10152,10172,10174 10207,10246,11172 11625 5CIL02 5144, 5552, 5563, 6017, 6022, 6027, 6033, 6131, 6227, 6267, 6317, 6343, 6401, 6420, 6426, 6607, 6621 6663, 6732, 7242, 7252, 7372, 7413, 7431, 7447, 7460, 7475, 7506,10125,10261,11176,11201,11206,11212 11220 11626 5CIL03 5137, 6034, 6226, 6271, 6321, 6322, 6405, 6432, 6610, 6615, 6622, 6664, 6733, 7241, 7254, 7374, 7410 7433, 7451, 7462, 7477, 7507,10123,10127,10265,10271,11033,11200,11210,11216 10260 5CIL23 5121, 5363, 5404, 5455, 5650, 5705,10210,10247 7664 5CILV1 7662 7544 5CIT02 7537, 7550 7550 5CIT04 7547 7163 5CN1IJ 7155, 7357 10102 5CN3IJ 5055, 5072, 5105, 5162, 5216, 5226, 5266, 5300, 5342 10550 5CRMSK 5253,10520 7247 5CSXD4 7244, 7246 10551 5CTEST 10522,10545,10705,10722,10766 7224 5CXIJ1 7221 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 24 POST PROCESSOR ASSEMBLY DATA 7225 5CXIJ2 7220, 7223 7234 5CXIJ4 7226, 7231 11674 5DEFDO 6052,11050 11652 5DOIND 4722, 4753, 5054, 5104, 5127, 5142, 5160, 5215, 5265, 5341, 5410, 5470, 5511, 5535, 5566, 5602, 5661 5766, 6413, 7026, 7067, 7112, 7320, 7665,11160 10530 5DORO5 10503,10546 42557 5DOTAG 3771, 4653,11470 4654 5DTGBL 4712 10166 5EDCB5 10146,10164,10177 10572 5EFLAG 10554,10567,11007 11667 5ERDRM 11702 11632 5ERLXC 11147,11152 11501 5EROP3 7416, 7441, 7513 11627 5ERTGA 10133,10140,11702 60075 5FIXCN 4653 60074 5FIXWC 4653 7530 5FNEST 7035, 7517 11605 5INST2 6677 11606 5INST3 6675 11607 5INST4 6554 11610 5INST5 6556 11611 5INST8 6707 11447 5KIII1 11444 11453 5KIII2 11445 11463 5KIII3 11446 11444 5KLAR1 10757 11445 5KLAR2 10762 11446 5KLAR3 10662,10703 11225 5KLX01 6147 11230 5KLX02 6163,10654 11231 5KLX03 6200 11232 5KLX05 6214 11241 5KTX00 6551 11244 5KTX04 11245 5KTX05 10727 11520 5L1DEC 10751,10753 11531 5L3DEC 7407 11557 5LADMX 4664, 5426, 5712, 6704 6654 5LMXDF 7551, 7653 11553 5LMXTG 4703 11260 5LX2CI 11165 5LXC08 11155,11222 11167 5LXC10 11153,11164 11175 5LXC15 11174 11213 5LXC19 11146,11223 11214 5LXC20 11173 11221 5LXC30 11203,11205,11213 11263 5LXCI1 10713 11251 5LXCI6 11262 5LXCI8 11021 11252 5LXCIE 11264 5LXI00 11225,11226 11266 5LXI02 11230 11270 5LXI05 11227 11274 5LXI10 11233 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 25 POST PROCESSOR ASSEMBLY DATA 11302 5LXI16 11231 11312 5LXI24 11234 11320 5LXI30 11232 11566 5L(16) 10561,10605 11525 5L(17) 11126 11544 5L(K1) 5004 4706 5MAN01 4770 4710 5MAN03 4714 5MAN06 4715 4717 5MAN08 4720 4736 5MAN16 4734 4743 5MAN17 4745 4745 5MAN18 4740 4747 5MAN20 4764 4753 5MAN40 4765 5MAN50 4752, 7602 4771 5MAN70 4707 42557 5MXTGA 4653, 4714, 6437,10142,11546,11614 11467 5MYORO 10763,11460,11462 7332 5N1S02 5524, 7342 7342 5N1S05 7334 11675 5N1SBX 5523, 6010, 6023, 6055, 7330, 7341, 7343,11056 7665 5N3BIT 5015 11656 5N3IND 5030, 5153, 5203, 5241, 5323, 5447, 7671 10253 5NBITS 5152, 5202, 5240, 5322, 5326, 5512 7644 5NTEST 7557, 7572, 7601 7364 5OP2P1 7362 7370 5OP2P2 7365 11602 5OPMSK 6110 11673 5OREDO 6054, 6137, 6151, 6167, 6204 4024 5ORO00 6030, 6062, 6066, 6071, 6075, 6102, 6105, 6223, 6231, 6232, 6342, 6344, 6470, 6472, 6574, 6604, 6616 6624, 6625, 6650, 6660, 7366, 7411,10317,10332,10334,10344,10364,10421,10440,10442,10460,10470,10471 10473,10511,10515,10532,10533,10536,10537,10556,10560,10562,10604,10606,10614,10615,10617,10625,10630 10647,10661,10674,10700,10701,10711,10716,10720,10724,10725,10746,10755,10756,10761,10771,11000,11003 11143,11264,11265,11266,11267,11270,11271,11273,11274,11275,11277,11300,11301,11302,11303,11305,11307 11310,11311,11312,11313,11315,11316,11317,11320,11321,11323,11325,11326,11327,11330,11331,11333,11334 11335,11336,11340,11341,11343,11345,11346,11347,11350,11351,11352,11354,11355,11356,11357,11360,11361 11363,11364,11365,11366,11367,11371,11372,11373,11374,11375,11377,11400,11402,11404,11406,11410,11411 11413,11415,11416,11417,11420,11422,11423,11425,11427,11430,11432,11433,11434,11435,11436,11437,11441 11442,11443,11447,11450,11452,11453,11454,11455,11457,11463,11464,11466,11526,11702 4041 5ORO13 11702 4046 5ORO18 11702 10657 5PCI21 10652 10666 5PCI22 10645 10716 5PCI31 10642 10735 5PCI33 10636,10656 11103 5PXORO 10741 11634 5RELCO 6047, 6053,11043 5010 5RTX05 5002 5021 5RTX06 5423 5041 5RTX30 5037 5044 5RTX34 5040 5046 5RTX50 5033 5050 5RTX51 5043 5051 5RTX52 5045 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 26 POST PROCESSOR ASSEMBLY DATA 5071 5RTX61 5070 5076 5RTX62 5067, 5076 5110 5RTX66 5064, 5077, 5103 5115 5RTX68 5031 5125 5RTX69 5114, 5425, 5463 5147 5RTX70 5027 5167 5RTX72 5166 5175 5RTX80 5154 5177 5RTX90 5147 5212 5RTX91 5226 5RTX93 5225 5231 5RTX95 5223 11574 5SMSK1 7756 11575 5SMSK2 7761 11576 5SMSK3 7775 11577 5SMSK4 7767 11650 5SWICH 6742, 6755, 7014, 7016, 7021 65457 5SXDWC 4653, 4663, 5737, 5751, 5753 67512 5SXTXZ 4653 11537 5T1MSK 4742 11473 5TAG21 6113, 7245 11474 5TAG22 6116 32130 5TAGTG 4653, 7531 7722 5TETG3 7720 7725 5TETG5 7706, 7714, 7721 11630 5TETTG 6247, 6253 10144 5TGA10 10141 4653 5TRLVL 7626 7520 5TTG10 7524 11412 5TX040 11246 11414 5TX042 11247 11357 5TXC00 11241 11365 5TXC08 11242 11373 5TXC18 11243 11407 5TXC30 11244 11410 5TXC31 11245 11442 5XCEIP 11255 11435 5XCI8P 11440 11441 5XCIEP 11254 7207 5XMIN1 5167, 5212, 5262, 5306, 5336, 5351 11617 6ONESR 5742, 6451, 6534 6000 AC016I 5775 6124 AC048I 6122, 6125, 6127 6147 AC049A 6141 6151 AC049B 6143, 6146 6165 AC050I 6162, 6164 6632 AC228I 6567 6672 AC230I 6643 4000 ADDMSK 4143, 4146, 4312, 4323, 4501, 4764, 5251, 5600, 4147, 4334, 4437, 4505, 4550, 4651, 5027, 5117, 5362 5524, 6051, 6234, 6605, 7550, 7656, 4237, 4245, 4317, 4363, 4511, 4552, 4624, 5275,11700 7554 ADDSER 7276 7562 ADS010 7566 7565 ADS020 7563 7566 ADS030 7557, 7561, 7565 7570 ADS040 7564 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 27 POST PROCESSOR ASSEMBLY DATA 7571 ADS050 73600 ADTAGZ 4340, 4623, 4626, 5522, 5532, 5571, 5574, 5603, 5604, 7562, 7570 51156 ADTGMX 7267, 7300, 7305, 7312, 7314,11702 7265 ADTGS1 4667 7275 ADTGS4 7272, 7273 7267 ADTGS5 7265 7316 ADTGS8 7323 7262 ADTGSE 5433, 5715, 6714 46365 ADTGWC 4212, 4665 11555 ALLONE 4725, 5006, 5754, 7521, 7571 10346 AORO10 10336 10362 AORO14 10356 10366 AORO20 10346 10410 AORO22 10402 10417 AORO24 10377,10413 10423 AORO30 6555, 6676,10341 10427 AORO40 6557, 6700,10345,10365,10422 10432 AORO50 10426 10242 BCDE10 10235,10236,10240 11600 BITMSK 5522 4002 BITONE 4257, 4754, 5406, 5441, 6076, 6246, 7204, 7461, 7500, 4314, 4360, 4366 11044 BITP02 11036 11050 BITP03 11046 11051 BITP04 11037 11057 BITP14 11035 11064 BITP30 11047 4003 BITTWO 4004, 4102, 4004, 4711, 6221, 6242, 6753, 4004 4235 BLCK3A 73666 4472 BLCK3B 4254, 4301, 4375 11671 BLKNUM 5150, 5200, 5236, 5320, 5354, 5356, 5367, 5371, 5373, 5375, 7243,10161,10213 73600 BOTIOP 73667 3734 BOTTOM 3746 5415 BRANCH 5037, 5542 4420 CARMSK 5352, 5400 4374 CARWRD 4743, 4753, 5052, 5072, 5144, 5262, 5411, 6245 10276 CDORO1 10273,10276,10320 10306 CDORO3 10277 10312 CDORO5 10307 10315 CDORO7 10305,10311 4157 CHATAG 4146, 6172 63424 CHTAGZ 4171, 4340 62130 CHTGTB 4171, 4340 62127 CHTGWC 4340 10120 CIL023 5112, 5707,10153,10175 11027 CIL03I 6026, 6132, 6220, 6421,11616 10267 CILNAM 5547, 5560 7641 CMPDOL 4702, 7610 7171 CN1IJ2 7165 7177 CN1IJ4 7171 7205 CN1IJ8 7170, 7176 10112 CN3IJ5 10104,10107 4330 COMP20 4326 4332 COMP30 4327, 4331 4347 COMP40 4344, 4346 4366 COMP50 4363, 4365 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 28 POST PROCESSOR ASSEMBLY DATA 4370 COMP55 4352, 4371 4266 COMPIL 4233 10464 CORO05 10452,10501 10472 CORO10 10464 4075 COSE08 4066, 4070 4076 COSE10 4075 3732 DATEBX 3047 DBUFSZ 4340, 7662, 7701, 7702, 7703, 7704 4013 DECADD 4126 4001 DECMSK 4153, 4157, 4221, 4227, 4317, 4426, 4506, 4512, 4535, 4737, 4746, 4757, 5160, 5245, 5352, 5606, 4107 4206, 4231, 4312, 4320, 4774, 5003, 5011, 5112, 5221, 5355, 5462, 5466, 5475, 5555, 6562, 6654, 7076 7117, 7307, 7362, 4444, 4656, 5010, 5113, 5147, 5172, 5253, 5261, 4467, 4760, 5416, 7270, 7634,11162 11215 5470 DELETE 5461 7616 DFEXIT 46366 DMTGTB 73667, 4175, 4212 46365 DMTGWC 73667 73042 DOCARE 4653, 5475 73600 DOCARZ 4653 4676 DOFEND 5017, 5023 17730 DOFILE 4653, 7546, 7564, 7567, 7574 6754 DOGS20 6745, 6747, 6752 6755 DOGS22 7024 6766 DOGS25 6756 6776 DOGS30 6765 7003 DOGS40 7001 7007 DOGS45 7000 7016 DOGS50 6761, 6770, 7002, 7005 7024 DOGS60 4737, 7022, 7023 7033 DOGS70 7031 11653 DOIND1 4723, 6744, 7013, 7025 4772 DOINFO 4674, 5535 4531 DOPASS 4522 3777 DORCCT 4525, 4500, 4660 10535 DORO10 10530 10540 DORO20 10526,10534 4370 DOSUBS 4736, 5131, 5214, 5442, 6116, 6224, 6272, 6321, 7216, 7512 45626 DOTAGZ 4653, 4732, 4735, 4743, 4754, 5130, 5143, 5402, 5411, 5471, 5514, 5537, 5567, 5572, 5740, 5746, 6115 6120, 6126, 6144, 6245, 6257, 6262, 6266, 6273, 6277, 6304, 6353, 6414, 6425, 6543, 6565, 6570, 6573 6641, 6644, 6647, 6750, 6757, 6762, 6766, 6771, 7033, 7113, 7163, 7207, 7211, 7213, 7250, 7335, 7353 7356, 7417, 7423, 7424, 7446, 7453, 7470, 7474, 7501, 7666, 7710,10102,10170,10221,10231,10253,10326 10333,10600,10607,10613,10624,10634,10637,10643,10646,10776,11015,11062,11071,11076,11105,11110,11115 11133,11161 11477 DOTGRC 4661, 4674, 4706, 4767 26322 DOTGWC 73667 5671 DOTRAN 5432 11521 DRADS1 11522 DRADS2 11523 DRADS3 5515 DRMENT 4616 4163 DRMTAG 5544, 6711 51156 DRMTGZ 73667, 4175 7375 DS4V10 7372 7406 DS4V20 7331, 7350, 7351, 7402, 7522 7330 DS4VAL 7226 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 29 POST PROCESSOR ASSEMBLY DATA 7141 DSD100 7007, 7012 7146 DSD110 7144 7151 DSD115 7164 7152 DSD118 6775, 7151, 7202 7155 DSD120 7150, 7172 7165 DSD130 7160 7166 DSD140 7173 7167 DSD145 6776, 7166 7172 DSD150 7165 7174 DSD160 7163 7203 DSD170 7145 7213 DSD175 7212 7226 DSD200 7141, 7142, 7152, 7155, 7167 7000 DSDR00 7006 DSDR10 7016, 7021 7007 DSDR20 6774, 7006, 7043, 7107, 7140 7012 DSDR30 7005 7026 DSDR50 7015 7037 DSDR55 7035 7054 DSDR60 7051 7057 DSDR62 7055 7062 DSDR65 7045 7074 DSDR70 7066 7102 DSDR75 7073 7105 DSDR80 7061, 7063 7110 DSDR85 7042 7124 DSDR87 7114 7133 DSDR89 7123 7136 DSDR90 7137 DSDR92 7233, 7236 7140 DSDR95 7044, 7105 4415 DTGZAD 4551 5707 DTSCAN 5736 5560 EBCOM1 5474, 5505, 5507, 5513, 5515, 5520 5561 EBCOM2 5567 10167 EDCB10 10162 10170 EDCB20 10166 73600 ENDCOR 73667, 5664, 4340, 4653 11666 ERAORO 10352,10360,10361,10362,10373,10406,10407,10415,10416,10417,11702 5646 ERBETA 4075 5626 ERLIST 4163, 4164 11645 ERORBX 3764 ERRO10 4130 3765 ERRO11 5657 3766 ERRO12 7664 3770 ERRO13 7552 3772 ERRO14 4566 3747 ERROR1 5663 3751 ERROR2 4113 3753 ERROR3 4355, 5754 3754 ERROR4 4376, 5752 3756 ERROR5 4753 3757 ERROR6 4554 3760 ERROR7 4140 3761 ERROR8 5602, 6617 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 30 POST PROCESSOR ASSEMBLY DATA 3763 ERROR9 5042, 5435 3746 ERRORM 4232, 4253, 4274, 4714, 4717, 5170, 5243, 5372, 5014, 5541, 6124, 6375, 6400, 4447, 4514, 5500, 4733 5504, 7006, 7041, 7277, 7525,10003 11666 ERTX01 5056, 5074, 5075, 5106, 5107, 5110, 5163, 5171, 5172, 5220, 5227, 5230, 5267, 5301, 5302, 5312, 5313 5324, 5327, 5344, 5352, 5413, 5417, 5663, 5676, 5677, 5700, 6013, 7150, 7156, 7157, 7236, 7260,10151 11677,11702 11667 ERTX02 5071, 5100, 5170, 5213, 5217, 5257, 5260, 5263, 5307, 5310, 5311, 5337, 5343, 5353,10173,11702 11670 ERTX03 7215, 7225 11527 ESTORE 6303, 6307, 6312 5705 FA000A 4345, 5674 4773 FILN2L 7620 4265 FILN8L 4254 7046 FIND04 7060 7047 FIND10 4705, 7046, 7054, 7515, 7526 7052 FIND20 7047 7060 FIND22 7044, 7050, 7064 4244 FINISH 4237 2 FINTAP 73667 3730 FLAGBX 4306 FLOEND 4215, 4235 22236 FORTAG 73667, 5541, 5555, 5616, 4454, 4253, 4304, 4472, 4543 37511 FORVAL 73667, 5124, 5314, 5620, 7410, 4302 14120 FORVAR 73667, 5331, 5430, 5617 4421 FRSTAG 4460 22235 FRTGWC 73667, 4340,73667 14117 FRVRWC 73667 1 FTAPE1 73667 2 FTAPE2 73667, 5112, 5113, 5317, 5320, 5530, 5531, 5551, 5615, 4465, 4523, 4531, 4665, 4504, 4505, 4521, 4712 4727, 7623 3 FTAPE3 73667, 5521, 5525, 4434, 4543, 4544, 4546, 5671, 7643, 7651, 7653, 7655, 7677, 4251, 4254, 4570 4 FTAPE4 73667, 4601, 5570, 5574, 4470, 4534, 5702, 4220, 4677, 4702, 7610, 7620, 7626 7543 GETN05 7547 7546 GETN10 7544 7547 GETN20 7540, 7542, 7546, 4542 7552 GETN30 7545 7537 GETNAM 7100, 7121, 7311 4327 GOTOVN 4301, 4302, 5672 11612 INST10 6712 11613 INST11 6717 11614 INST12 6722 11615 INST13 6363 11616 INST14 6371 11545 INST20 5431, 5724 11546 INST22 5464, 5731 11547 INST24 5462 11550 INST26 5424 11551 INST30 5722 11552 INST32 5727 7531 IOCOM2 4676 4227 IRVMAX 4247, 5451, 5472, 5510 5445 IRVS10 5444 5451 IRVS20 5462 5452 IRVS30 5457 5456 IRVS40 5467 5457 IRVS50 5446, 5456 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 31 POST PROCESSOR ASSEMBLY DATA 5463 IRVS60 5454 5443 IRVSRT 5356 134 .CHEXI 135 .MODSW 11235 K1AORO 6575, 6627,10430 11257 K1BORO 10621 11237 K2AORO 6651,10424 11240 K3AORO 6666 11236 KIAORO 11226 KLX01I 6361,10676 4646 KLX021 4332 11227 KLX02I 6165, 6345 4650 KLX031 4347 11233 KLX03I 6202 4652 KLX051 4366 11234 KLX05I 6216 7716 L2ORL1 5226, 5231, 5236, 5242, 7711 4171 LADDIN 4133, 4436, 4501, 4504, 4572, 6210, 4176, 4236, 4243, 4244 1 LIBTAP 3731 LINECT 4414 LINKTR 4240, 4244 4141 LIST05 4137 4142 LIST10 4127, 4136, 4144 4143 LIST20 4132 4152 LIST50 4126, 4130 11516 LMXDTG 4741, 6754 2032 LMXFIX 4117, 4653 11554 LMXTGA 4713 11644 LOCIND 4750, 5001, 6035, 6040, 6724, 7120, 7123,11154,11157 4400 LOWPOS 6112, 7206, 7502 11246 LTX040 6633 11247 LTX042 6673 11255 LXCEIP 10564 11261 LXCI61 10736 11440 LXCI8P 11025 11253 LXCIE1 11254 LXCIEP 11556 LZEKMX 4716 11513 L(ADD) 6602, 6656, 7375 11330 L(BIC) 11257 11515 L(BSS) 6726 4061 L(CLA) 4273, 6331, 7434, 7465 11510 L(DED) 5655 11511 L(LXD) 6024, 6133, 6221 11526 L(ORO) 11121 11504 L(PXD) 6422 11512 L(STD) 6402 4060 L(STO) 4307, 4404, 6427, 6612, 7405 11514 L(SUB) 7510 11505 L(SXD) 5140, 7255 11506 L(TIX) 5405, 5641,10171,10245 4427 L(TRA) 4417 11503 L(TXI) 5051, 5122, 5364, 5456,10147,10206 11507 L(TXL) 5545, 5556 4735 MAKESC 4701, 4713, 4717 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 32 POST PROCESSOR ASSEMBLY DATA 5424 MAKIRV 5366, 5517 3776 MAXDTG 4037, 4044, 4064, 4207, 4634, 5140, 5347, 5472, 4637 3774 MAXFTG 4316, 5006, 4311, 4547, 5257 3775 MAXFVL 5141, 7413, 4376 4010 MAXFVR 5343 11517 MAXLOC 7661 4011 MAXTDO 4031, 4043 4007 MAXTIF 4026, 4205, 5700 7 MBNTAP 10 MCHTAP 5 MINTAP 6 MLSTAP 11657 N1N2N3 5513, 5643,10256,11120,11131 7324 N1STET 6007 4162 NAMKEY 4634, 6206 73042 NAMKYZ 4174, 4340,73667 4555 NEST20 4552, 4553 4556 NEST30 4611 NEST80 4612 4622 NEST85 4633, 4636 4623 NEST86 4640 4637 NEST87 4624 4640 NEST88 4620, 4622, 4637 4663 NEST90 4607 NESTEN 4673 4343 NEWTAG 4461, 4744, 4747, 5572, 5573, 5576, 6157, 6162 4204 NEXTR1 4667, 4701 4207 NEXTR2 4734, 4746 4211 NEXTR3 4767, 4773 4231 NMKYAD 4263 71010 NMKYTB 4174, 4340, 4231 71007 NMKYWC 4340, 4255, 4262 11530 NOPRET 5747, 7251 4470 NORMRT 4473, 5516 4363 NRSUBS 5203, 5727 4641 NST100 4643 NST110 4654 4653 NST120 4642, 4645, 4650 4654 NST130 4653 4667 NSTCM2 4464, 4662, 4664 4601 NSTCOM 4542 4602 NSTSCH 4547, 4660 45626 OADTGA 4653 41004 OMXTGA 4653 10675 PCI22R 10723,10731 11661 POSIND 5053, 5057, 5073, 5161, 5165, 5214, 5224, 5264, 5276, 5340, 5347, 5437, 5507, 5517, 5536, 5622, 5660 5721, 7063, 7742,10134,10234 4225 PREMSK 5431 7754 PRES10 7753 7756 PRES20 7755 7764 PRES30 7763 7766 PRES40 7765 7772 PRES50 7771 7774 PRES60 7773 10000 PRES70 7777 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 33 POST PROCESSOR ASSEMBLY DATA 10002 PRES80 10001 4775 PROCES 4673, 4740, 4772 5056 PRSPEC 5006 4367 RCSUBS 4740, 5063, 5135, 6034, 6227 4500 RDO105 4475 4524 RDOCM2 4503, 4506, 4510 4377 REBITS 6351, 6354, 6356, 6363 4624 RECCNT 5421 RELEND 7406, 7717 5424 REMOVE 5417, 5517 4224 REPETE 4241 6670 RES100 6666 6672 RES110 6665, 6667 6675 RES120 6704 6701 RES130 6700 6704 RES140 6677, 6703 6714 RES180 6715 RES200 6607, 6713 6733 RES210 6766, 6770 6735 RES300 6514, 6574, 6610, 6662, 6706 6736 RES310 6516, 6563, 6614, 6627, 6640, 6645, 6652, 6715 6737 RES320 6572 6740 RES330 6606, 6613, 6656, 6724 6741 RES340 6673, 6702, 6705 6742 RES400 6554 6752 RES410 6750 6767 RES420 6754 67511 RETABZ 4340, 6561, 6571, 6576, 6601, 6604, 6620, 6622, 6624 7415 RETURN 7346, 7360 3773 REWIND 4433, 4533, 5670, 7676, 7625 5425 RFIRST 5353, 5367 14115 RTTBNR 73667 5032 RTX020 5450 5037 RTX024 4774, 5733 5233 RTX100 5204 5235 RTX110 5177 5262 RTX111 5254 5263 RTX112 5261 5300 RTX114 5277 5304 RTX118 5275 5306 RTX122 5311 RTX126 5273, 5303 5316 RTX130 5242 5320 RTX140 5235 5351 RTX150 5350 5356 RTX152 5355 5361 RTX154 5330 5370 RTX157 5370, 5374 5410 RTX160 5026, 5126, 5132, 5146, 5174, 5176, 5232, 5234, 5315, 5317, 5360,11547 5423 RTX164 5420 5424 RTX180 5022, 5427 5433 RTX184 5446, 5461,11550 5445 RTX188 5443 5447 RTX190 5442 5462 RTX192 5434 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 34 POST PROCESSOR ASSEMBLY DATA 5466 RTX195 5470 RTX196 5501 RTX197 5467 5520 RTX198 5526 RTX200 5520 5532 RTX201 5527 5535 RTX202 5531 5544 RTX204 5541,11701 11677 RTX205 5543 5556 RTX210 5516, 5525 5566 RTX214 5555 5574 RTX222 5576 RTX226 5711,11552 5601 RTX228 5726 5614 RTX229 5605, 5611, 5613 5622 RTX230 5620 5641 RTX232 5624, 5635 5655 RTX234 5603 5660 RTX238 5644 5670 RTX239 5670, 5674 5700 RTX240 5667 5702 RTX242 5657 5707 RTX246 5703 5710 RTX250 5654, 5706 5711 RTX254 5640, 5723, 5730 5712 RTX260 5577, 5713 5715 RTX264 11551 5727 RTX270 5716 5733 RTX280 5500 5017 RTXIN1 11643 RTXTGX 5013, 5017, 5574, 5757 7036 SCAN05 7042 7043 SCAN10 7040 5147 SCE010 5160 5156 SCE015 5154 5160 SCE020 5151, 5152 7133 SCLMN1 5601, 5764 7136 SCLMN2 7135, 7137 7140 SCLMN3 7136 7142 SCLMN4 7141, 7143 7144 SCLMN5 7142 10004 SEARCH 7760, 7766, 7774,10002,10014 4635 SENSE1 4215, 4256 3 SINTAP 73667 4525 SKLST1 4501, 4520 4264 SKLST3 4217 4657 SKLST4 4701 7642 SKLST5 7622 11 SNPTAP 5366 SORT10 5365 5370 SORT20 5423 5371 SORT30 5415 5376 SORT40 5374 5403 SORT50 5373 5407 SORT60 5400 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 35 POST PROCESSOR ASSEMBLY DATA 5414 SORT70 5375, 5401, 5402 5415 SORT80 5367, 5414, 5420, 5422 5422 SORT90 5421 4176 SPC000 6200, 7113, 7630 4213 SPC010 4214 SPC020 4226 4215 SPC040 4214, 4564 4220 SPC050 4203, 4260 4227 SPC053 4223 4236 SPC055 4237 SPC058 4270 4243 SPC060 4177, 4236, 4244, 4265, 4267 4244 SPC065 4241, 4277, 4306 4246 SPC070 4251 SPC080 4255 4252 SPC090 4251, 4565 4255 SPC100 4250 4260 SPC105 4200, 4271, 4273 4261 SPC110 4215, 4220, 4252 4270 SPC115 4176, 4213, 4235, 4246 4271 SPC120 4245 4273 SPC130 4276 4307 SPCKEY 4201, 4304 4300 SPCSTO 4243 4275 SPCTIN 4242 4216 START0 4214 4221 START1 4305 STOLOC 7572 STORES 7104, 7135, 7317 7610 STORXX 7325 4134 SUB010 4135 4033 SUB020 4034 4045 SUB030 4046 4053 SUB032 4050 4063 SUB034 4060 4065 SUB038 4047, 4055 4070 SUB039 4052 4072 SUB040 4054, 4067 4075 SUB043 4057 4100 SUB046 4062 4102 SUB050 4064, 4077 4203 SUB060 4166, 4175 4104 SUB075 4105 SUB080 4114 4114 SUB085 4030, 4116 4115 SUB090 4112 4116 SUB095 4074 4423 SUBBIT 4721, 5074, 7717 4030 SUBCOM 5032, 5536, 4322, 4555 4123 SUBES1 4043, 4045 5343 SUBMSK 5207, 5215, 5216 4120 SUBORG 4031, 4044, 4104 11655 SWICH1 4724, 4761, 6746, 7015, 7027 11631 SWICH2 11672 SXDTXZ 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 36 POST PROCESSOR ASSEMBLY DATA 4707 SYM100 4703 4714 SYM110 4712 4716 SYM120 4704 4717 SYM130 4533, 4716, 4747, 4754, 4762 4721 SYM140 4715 4725 SYM150 4713 4733 SYM160 4731 4741 SYM170 4735 4746 SYM180 4742 4752 SYM190 4761 4754 SYM200 4750 4760 SYM210 4751 4761 SYM220 4534, 4760, 4766, 4774 4763 SYM230 4757 5024 SYMLNK 4776, 5054 4637 SYMONE 4620 122 SYSACC 114 SYSCEM 155 SYSCK1 156 SYSCK2 120 SYSCOR 144 SYSCRD 102 SYSCUR 102 124 SYSCYD 101 SYSDAT 115 SYSDMP 77777 SYSEND 132 SYSGET 117 SYSIDR 151 SYSIN1 152 SYSIN2 116 SYSIOX 133 SYSJOB 104 SYSKEY 140 SYSLB1 141 SYSLB2 142 SYSLB3 143 SYSLB4 121 SYSLDR 3720 SYSORG 147 SYSOU1 150 SYSOU2 146 SYSPCH 123 SYSPID 106 SYSPOS 153 SYSPP1 154 SYSPP2 145 SYSPRT 103 SYSRET 113 SYSRPT 126 SYSSLD 105 SYSSWS 1 SYSTAP 73667 127 SYSTCH 100 SYSTRA 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 37 POST PROCESSOR ASSEMBLY DATA 131 SYSTWT 111 SYSUAV 110 SYSUBC 112 SYSUCW 107 SYSUNI 157 SYSUT1 160 SYSUT2 161 SYSUT3 162 SYSUT4 4376 TABSER 4354 5565 TAGAD1 5563 5600 TAGAD2 5577, 5605 5601 TAGAD3 5602 TAGAD6 5566 5603 TAGAD8 5567 5563 TAGADD 6765, 7071, 7126, 7302 5655 TAGENT 4613, 4765, 5041, 6714 4177 TAGIND 4353, 4413, 4617, 5005 4014 TAGMSK 4100, 4640, 5200 4550 TAGP10 4635 4560 TAGP20 4561 4565 TAGP30 4600 4573 TAGP32 4571 4576 TAGP34 4567, 4574 4600 TAGP40 4566, 4572, 4575, 4577 4617 TAGP45 4607, 4611, 4613, 4615 4621 TAGP50 4604, 4650 4622 TAGP60 4632 4631 TAGP70 4623, 4626 4632 TAGP80 4545, 4631 4633 TAGP90 4634 TAGP94 4551 4635 TAGP98 4546, 4634 4543 TAGPAS 13361 TAGTAG 4340, 5705 4206 TAUERS 4146, 4150 4207 TAUREF 4131, 4132, 4152, 4161, 4164, 4170, 4173, 4177, 4203, 4204 5670 TBLEND 5114, 5122, 5321, 5327, 5532, 5540, 5610 4233 TCOMAD 5353 4230 TCOMAX 5360, 5370, 5427 73041 TCOMWC 73667, 5361, 5364, 5425 11654 TEABOX 7003, 7010 11651 TEBBOX 6743, 6777, 7012 7152 TELC05 7160 7160 TELC10 7154 5244 TEST03 5237 5247 TEST04 5243 5254 TEST05 5205, 5210, 5213, 5217, 5224, 5227, 5252 5255 TEST10 5254 5266 TEST20 5260 5267 TEST30 5273 5271 TEST35 5266 5273 TEST40 5270, 5272 5274 TEST50 5271 5302 TEST60 5274, 5305 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 38 POST PROCESSOR ASSEMBLY DATA 5303 TEST70 5305 TEST75 5277 5316 TEST80 5202, 5234, 5253, 5302, 5313 5320 TEST85 5261, 5265 5321 TEST90 5264 5322 TEST95 5303 5323 TESTAB 5267 11066 TESTLO 6377 5667 TETAPE 4545 5705 TETCOM 5676, 5701 11676 TETLOC 6400, 6454, 6537,10331,10603,11075,11101 11541 TETMSK 5412, 7711 11642 TETTGX 5011, 5422, 5466, 5636 62411 TIFGWC 73667, 4027, 4030 4317 TINF10 4325 4324 TINF20 4333, 4336 4325 TINF30 4324, 4455 4327 TINF40 4322, 4340 4310 TINFOR 6154, 7065, 7273 4316 TINFXX 4275 4 TINTAP 73667 4577 TLT200 77677 TOPMEM 4027 TRABIT 5610, 5614, 5653, 5303, 5307, 5350 60635 TRADWC 73667 5075 TRAENT 5037, 5053, 5066, 5073 67514 TRALEV 73667, 4570, 4613 4160 TRASTO 5471, 5507, 6262, 6731, 7623, 7627, 5126 5065 TRATAB 5050 5306 TRAW10 5315, 5323 5311 TRAW20 4535, 5310 5314 TRAW30 5305, 5333 5316 TRAW35 5324 TRAW38 5320 5326 TRAW40 5332 5327 TRAW50 4536, 5326 5332 TRAW60 5325 5333 TRAW65 5301, 5334 5334 TRAW70 5311, 5314, 5327 5346 TRAW80 5343 5347 TRAW90 5340 5301 TRAWRD 4666, 4733, 4765 67513 TRLVWC 73667 4234 TRSTAD 5514 65457 TRSTOZ 4172, 4340 63425 TRSTTB 4172, 4340, 4234 63424 TRSTWC 4340, 4241, 5515 5110 TS4VAL 4041, 4661 67513 TSCMTB 4173, 4340,73667 67512 TSCMWC 4340, 4235, 5355, 4653 7706 TSTPCH 5225 71007 TSXCMZ 4173, 4340 4161 TSXCOM 7467, 4434 4311 VALTAG 11641 WRKRXT 10006,10011 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 39 POST PROCESSOR ASSEMBLY DATA 11635 WRKTGA 6440, 6444, 6530 7715 X2ORX1 5240, 7713 11125 XORO10 11123 11127 XORO20 11125 11131 XORO30 11142 11135 XORO32 11114,11144 11136 XORO34 11134 11140 XORO36 11127,11135 11142 XORO40 11141 702 (ACTIV 703 (ACTVX 720 (BCD5R 721 (BCD5X 10000 (CHKU) 741 (CHPSW 724 (CHXAC 750 (CHXSP 717 (CKWAT 746 (COMMD 736 (COMMM 722 (CVPRT 73662 (DATE) 716 (DECVA 715 (DECVD 73645 (DGLD) 73603 (DIAG) 3746, 3747, 3751, 3753, 3754, 3756, 3757, 3760, 3761, 3763, 3764, 3765, 3766, 3770, 3772 710 (ENBSW 73665 (ENDS) 732 (ETTXI 743 (FDAMT 73660 (FGBX) 747 (IBCDZ 740 (IOXSI 73667 (LBLD) 73652 (LIBT) 73661 (LNCT) 73600 (LOAD) 5575, 6771, 4470, 7627 73666 (LODR) 73666 737 (LTPOS 73644 (MECL) 73664 (MSLN) 704 (NDATA 705 (NDSLX 712 (PAUSE 711 (PAWSX 3733 (PCBK) 73651 (PGCT) 73614 (PNCH) 73611 (PRNT) 706 (PROUT 707 (PUNCH 40014 (RBEC) 4542 40004 (RBEP) 7650 40010 (RBNC) 5111, 5316, 5527, 4503, 4711 40000 (RBNP) 7642, 4676 32K 709/7090 FORTRAN SECTION TWO 2/07/05 PAGE 40 POST PROCESSOR ASSEMBLY DATA 727 (RCHXI 726 (RCTXI 40016 (RDEC) 40006 (RDEP) 40012 (RDNC) 40002 (RDNP) 73622 (REST) 73672 (SCHU) 5113, 5320, 5531, 4544, 4546, 7653, 7655, 4505, 4727 744 (SDCXI 73643 (SECL) 20010 (SKBC) 20000 (SKBP) 5550, 4433, 4530, 4533, 5670, 7676, 4520, 4217, 4701, 7622, 7625 20012 (SKDC) 20002 (SKDP) 1000 (SNAP) 73663 (SNCT) 73617 (STAT) 745 (STCXI 73626 (STDN) 723 (STOPD 713 (STOPX 10003 (SUAV) 10002 (SUNV) 714 (SYMUN 73606 (TAPE) 4577, 5110, 5315, 5517, 5523, 5526, 5547, 5566, 5572, 5613, 4432, 4463, 4466, 4521, 4527, 4532, 4541 4663, 5667, 5700, 7641, 7647, 7675, 4502, 4517, 4216, 4247, 4252, 4566, 4675, 4700, 4710, 7606, 7616 7621, 7624 730 (TCOXI 733 (TEFXI 4000 (TPER) 5614 735 (TRAPS 734 (TRAPX 731 (TRCXI 742 (TRPSW 725 (URRXI 40011 (WBNC) 4600, 4664 40001 (WBNP) 5520, 5567, 4464, 5701, 4250, 4567, 7607 40013 (WDNC) 40003 (WDNP) 40015 (WEFC) 40005 (WEFP) 5524, 5573, 4467, 4522, 4253, 7617 40031 (WROW) NO ERROR IN ABOVE ASSEMBLY. * 32K 709/7090 FORTRAN SECTION THREE F3A00010 * FAP F3A00030 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 1 PCC F3A00050 ABS F3A00060 COUNT 3600 F3A00070 HEAD A F3A00080 LBL 9F22,JAKE F3A00090 SST FORTRAN $F3A00100 PCC F3A00110 709/7090 FORTRAN SECTION THREE 32K VERSION F3A00130 F3A00140 PARAMETERS VARIABLE AT ASSEMBLY TIME F3A00160 F3A00170 00007 M SYN 7 MULTIPLIER FOR 32 K TABLE SIZES. $F3A00190 00010 N SYN 8 DIVISOR FOR 32 K TABLE SIZES. $F3A00200 00001 R SYN 1 MULTIPLIER FOR CIT OUT PUT BUFFER SIZE. F3A00210 00001 S SYN 1 DIVISOR FOR CIT OUT PUT BUFFER SIZE. F3A00220 00001 P SYN 1 MULTIPLIER FOR AIL IN PUT BUFFER SIZE. F3A00230 00001 Q SYN 1 DIVISOR FOR AIL IN PUT BUFFER SIZE. F3A00240 00001 U SYN 1 MULTIPLIER FOR DO IN PUT BUFFER SIZE. F3A00250 00001 V SYN 1 DIVISOR FOR DO IN PUT BUFFER SIZE. F3A00260 00001 W SYN 1 MULTIPLIER FOR DOC IN PUT BUFFER SIZE F3A00270 00001 X SYN 1 DIVISOR FOR DOC IN PUT BUFFER SIZE F3A00280 00001 Y SYN 1 MULTIPLIER FOR FIRST BUFFER SIZE F3A00290 00001 Z SYN 1 DIVISOR FOR FIRST BUFFER SIZE F3A00300 00002 TBTAP SYN FINTAP TABLE TAPE. F3A00310 00003 CSBTP SYN SINTAP CLOSED SUBROUTINE TAPE. F3A00320 00003 VFLTP SYN SINTAP OVERFLOW TAPE. F3A00330 00004 CITTP SYN TINTAP OUT PUT CIT TAPE. F3A00340 00004 CDOTP SYN TINTAP TRALEV AND COMPDO TAPE. F3A00350 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 2 NUMBER OF ENTRIES IN TABLES AND BUFFERS F3A00380 F3A00390 00620 1DCAR SYN 400 DOCARE TABLE. F3A00400 00000 1DM01 SYN 0 DUMMY BUFFER FOR CITCNT TABLE. F3A00410 00001 1CTCT SYN 1 CITCNT COUNT. F3A00420 01750 1TSCM SYN 1000 TSXCOM TABLE. F3A00430 00000 1DM02 SYN 0 DUMMY BUFFER FOR CIT AND DOC BUFFERS. F3A00440 00062 1CTBF SYN 50 CIT BUFFER. F3A00450 00000 1DM03 SYN 0 DUMMY BUFFER FOR DOC BUFFER. F3A00460 00062 1DCBF SYN 50 DOC BUFFER. F3A00470 01130 1SXTX SYN 600 SXTX TABLE. F3A00480 00000 1DM04 SYN 0 DUMMY BUFFER FOR, AIL AND FIRST. F3A00490 00062 1DOBF SYN 50 COMDO BUFFER. F3A00500 00000 1DM05 SYN 0 DUMMY BUFFER FOR AIL AND FIRST. F3A00510 00062 1ALBF SYN 50 COMPAIL BUFFER. F3A00520 00000 1DM06 SYN 0 DUMMY BUFFER FOR FIRST FILE. F3A00530 00062 1FRBF SYN 50 FIRST FILE BUFFER. F3A00540 00620 1TRST SYN 400 TRASTO TABLE. F3A00550 00620 1UCTG SYN 400 UCHTAG TABLE. F3A00560 02260 1FXCN SYN 1200 FIXCON TABLE. F3A00570 11300 1TRLV SYN 4800 TRALEV TABLE. F3A00580 02260 1TFGO SYN 1200 TIFGO TABLE. F3A00590 01750 1TRAD SYN 1000 TRAD TABLE. F3A00600 14562 1DM07 SYN TOPMEM-5714-23400*M/N DUMMY BUFFER FOR FORTAG. F3A00610 13560 1FRTG SYN 6000 FORTAG TABLE. F3A00620 00000 1DM08 SYN 0 DUMMY BUFFER FOR CHTAG TABLE. F3A00630 02260 1CHTG SYN 1200 CHTAG TABLE. F3A00640 NUMBER OF WORDS IN TABLE AND BUFFER ENTRY F3A00660 F3A00670 00001 2TBF1 SYN 1 ONE WORD IN TABLE OR BUFFER ENTRY. F3A00680 00002 2TBF2 SYN 2 TWO WORDS IN TABLE OR BUFFER ENTRY. F3A00690 00003 2TBF3 SYN 3 THREE WORDS IN TABLE OR BUFFER ENTRY. F3A00700 00004 2TBF4 SYN 4 FOUR WORDS IN TABLE OR BUFFER ENTRY. F3A00710 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 3 TABLE AND BUFFER SIZE F3A00730 F3A00740 04077 3IO01 SYN TOPMEM-BOTIOP I/O PACKAGE. F3A00750 00536 3DCAR SYN 1DCAR*M/N DOCARE TABLE. F3A00760 00000 3DM01 SYN 1DM01 DUMMY BUFFER FOR CITCNT. F3A00770 00001 3CTCT SYN 1CTCT CITCNT COUNT. F3A00780 01553 3TSCM SYN 1TSCM*M/N TSXCOM TABLE. F3A00790 00000 3DM02 SYN 1DM02 DUMMY BUFFER FOR CIT AND DOC BUFFERS. F3A00800 00062 3CTB2 SYN 1CTBF*R/S CIT BUFFER 2. F3A00810 00062 3CTB1 SYN 1CTBF*R/S CIT BUFFER 1. F3A00820 00000 3DM03 SYN 1DM03 DUMMY BUFFER FOR DOC BUFFER. F3A00830 00062 3DCB2 SYN 1DCBF*W/X DOC BUFFER 2. F3A00840 00062 3DCB1 SYN 1DCBF*W/X DOC BUFFER 1. F3A00850 01015 3SXTX SYN 1SXTX*M/N SXTX TABLE. F3A00860 00000 3DM04 SYN 1DM04 DUMMY BUFFER FOR DO, AIL AND FIRST FILE. F3A00870 00062 3DBF2 SYN 1DOBF*U/V COMPDO BUFFER 2. F3A00880 00062 3DBF1 SYN 1DOBF*U/V COMPDO BUFFER 1. F3A00890 00000 3DM05 SYN 1DM05 DUMMY BUFFER FOR AIL AND FIRST FILE. F3A00900 00062 3ALB2 SYN 1ALBF*P/Q COMPAIL BUFFER 2. F3A00910 00062 3ALB1 SYN 1ALBF*P/Q COMPAIL BUFFER 1. F3A00920 00000 3DM06 SYN 1DM06 DUMMY BUFFER FOR FIRST FILE. F3A00930 00062 3FRB2 SYN 1FRBF*Y/Z FIRST FILE BUFFER 2. F3A00940 00062 3FRB1 SYN 1FRBF*Y/Z FIRST FILE BUFFER 1. F3A00950 00536 3TRST SYN 1TRST*M/N TRASTO TABLE. F3A00960 00536 3UCTG SYN 1UCTG*M/N UCHTAG TABLE. F3A00970 02032 3FXCN SYN 1FXCN*M/N FIXCON TABLE. F3A00980 10150 3TRLV SYN 1TRLV*M/N TRALEV TABLE. F3A00990 02032 3TFGO SYN 1TFGO*M/N TIFGO TABLE. F3A01000 01553 3TRAD SYN 1TRAD*M/N TRAD TABLE. F3A01010 14562 3DM07 SYN 1DM07 DUMMY BUFFER FOR FORTAG TABLE. F3A01020 12202 3FRTG SYN 1FRTG*M/N FORTAG TABLE. F3A01030 00000 3DM08 SYN 1DM08 DUMMY BUFFER FOR CHTAG TABLE. F3A01040 02032 3CHTG SYN 1CHTG*M/N CHTAG TABLE. F3A01050 NUMBER OF WORDS IN FRONT OF TABLES F3A01070 WHEN ONE WORD, IT IS WORD COUNT F3A01080 WHEN TWO WORDS, IT IS LABEL AND WORD COUNT F3A01090 F3A01100 00001 4DCAR SYN 1 DOCARE TABLE. F3A01110 00001 4TSCM SYN 1 TSXCOM TABLE. F3A01120 00001 4SXTX SYN 1 SXTX TABLE. F3A01130 00001 4TRST SYN 1 TRASTO TABLE. F3A01140 00001 4UCTG SYN 1 UCHTAG TABLE. F3A01150 00001 4FXCN SYN 1 FIXCON TABLE. F3A01160 00000 4TRLV SYN 0 TRALEV TABLE. F3A01170 00002 4TFGO SYN 2 TIFGO TABLE. F3A01180 00002 4TRAD SYN 2 TRAD TABLE. F3A01190 00002 4FRTG SYN 2 FORTAG TABLE. F3A01200 00000 4CHTG SYN 0 CHTAG TABLE. F3A01210 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 4 TABLE AND BUFFER LENGTH F3A01230 F3A01240 04077 5IO01 SYN 3IO01*2TBF1 UPPER I/O PACKAGE. F3A01250 00536 5DCAR SYN 3DCAR*2TBF1 DOCARE TABLE. F3A01260 00000 5DM01 SYN 3DM01*2TBF1 DUMMY BUFFER FOR CITCNT. F3A01270 00001 5CTCT SYN 3CTCT*2TBF1 CITCNT COUNT. F3A01280 03326 5TSCM SYN 3TSCM*2TBF2 TSXCOM TABLE. F3A01290 00000 5DM02 SYN 3DM02*2TBF1 DUMMY BUFFER FOR CIT AND DOC BUFFERS. F3A01300 00310 5CTB2 SYN 3CTB2*2TBF4 CIT BUFFER 2. F3A01310 00310 5CTB1 SYN 3CTB1*2TBF4 CIT BUFFER 1. F3A01320 00000 5DM03 SYN 3DM03*2TBF1 DUMMY BUFFER FOR DOC BUFFER. F3A01330 00310 5DCB2 SYN 3DCB2*2TBF4 DOC BUFFER 2. F3A01340 00310 5DCB1 SYN 3DCB1*2TBF4 DOC BUFFER 1. F3A01350 02032 5SXTX SYN 3SXTX*2TBF2 SXTX TABLE. F3A01360 00000 5DM04 SYN 3DM04*2TBF1 DUMMY BUFFER FOR DO, AIL AND FIRST FILE. F3A01370 00310 5DBF2 SYN 3DBF2*2TBF4 COMPDO BUFFER 2. F3A01380 00310 5DBF1 SYN 3DBF1*2TBF4 COMPDO BUFFER 1. F3A01390 00000 5DM05 SYN 3DM05*2TBF1 DUMMY BUFFER FOR AIL AND FIRST FILE. F3A01400 00310 5ALB2 SYN 3ALB2*2TBF4 COMPAIL BUFFER 2. F3A01410 00310 5ALB1 SYN 3ALB1*2TBF4 COMPAIL BUFFER 1. F3A01420 00000 5DM06 SYN 3DM06*2TBF1 DUMMY BUFFER FOR FIRST FILE. F3A01430 00310 5FRB2 SYN 3FRB2*2TBF4 FIRST FILE BUFFER 2. F3A01440 00310 5FRB1 SYN 3FRB1*2TBF4 FIRST FILE BUFFER 1. F3A01450 02032 5TRST SYN 3TRST*2TBF3 TRASTO TABLE. F3A01460 01274 5UCTG SYN 3UCTG*2TBF2 UCHTAG TABLE. F3A01470 02032 5FXCN SYN 3FXCN*2TBF1 FIXCON TABLE. F3A01480 10150 5TRLV SYN 3TRLV*2TBF1 TRALEV TABLE. F3A01490 04064 5TFGO SYN 3TFGO*2TBF2 TIFGO TABLE. F3A01500 01553 5TRAD SYN 3TRAD*2TBF1 TRAD TABLE. F3A01510 14562 5DM07 SYN 3DM07*2TBF1 DUMMY BUFFER FOR FORTAG TABLE. F3A01520 12202 5FRTG SYN 3FRTG*2TBF1 FORTAG TABLE. F3A01530 00000 5DM08 SYN 3DM08*2TBF1 DUMMY BUFFER FOR CHTAG TABLE. F3A01540 04064 5CHTG SYN 3CHTG*2TBF2 CHTAG TABLE. F3A01550 02032 5TPE6 SYN 3TRST*2TBF3 TRASTO TYPE 6 SORT TABLE. F3A01560 02032 5TPE5 SYN 3TRST*2TBF3 TRASTO TYPE 5 SORT TABLE. F3A01570 02032 5TPE4 SYN 3TRST*2TBF3 TRASTO TYPE 4 SORT TABLE. F3A01580 02032 5TPE3 SYN 3TRST*2TBF3 TRASTO TYPE 3 SORT TABLE. F3A01590 02032 5TPE2 SYN 3TRST*2TBF3 TRASTO TYPE 2 SORT TABLE. F3A01600 02032 5TPE1 SYN 5TRST TRASTO TYPE 1 SORT TABLE. F3A01610 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 5 TABLE OF INDICATOR BITS F3A01630 F3A01640 000001 NOCHG BOOL 1 NO OR END CHANGE TAG. F3A01650 000002 INTRL BOOL 2 TIFGO ENTRY IN TRALEV. F3A01660 000004 FRSTX BOOL 4 SET FOR TIFGO SUBROUTINE. F3A01670 000010 SCONX BOOL 10 SET FOR TIFGO SUBROUTINE. F3A01680 000020 THRDX BOOL 20 SET FOR TIFGO SUBROUTINE. F3A01690 000040 FORTX BOOL 40 SET FOR TIFGO SUBROUTINE. F3A01700 000100 FFTHX BOOL 100 SET FOR TIFGO SUBROUTINE. F3A01710 000200 FAIL BOOL 200 SET FOR FIRST READ OF AIL. F3A01720 000400 NOAIL BOOL 400 NO OR END OF COMPAIL. F3A01730 001000 NODO BOOL 1000 NO OR END OF COMPDO. F3A01740 002000 IFSTT BOOL 2000 TIFGO ENTRY IS IF STATEMENT. F3A01750 004000 FXPT BOOL 4000 FIX POINT. F3A01760 02002 IFIN SYN INTRL+IFSTT RESET. F3A01770 00174 RSIND SYN FRSTX+SCONX+THRDX+FORTX+FFTHX RESET. F3A01780 010000 NOTF BOOL 10000 NO OR END OF TIFGO FILE. F3A01790 020000 NOFF BOOL 20000 NO OR END OF FIRST FILE. F3A01800 TABLE OF SYMBOLS SET SYN ZERO F3A01820 F3A01830 00000 TRAST SYN 0 TRASTO. F3A01840 00000 TYPE1 SYN 0 TYPE 1. F3A01850 00000 TYPE2 SYN 0 TYPE 2. F3A01860 00000 TYPE3 SYN 0 TYPE 3. F3A01870 00000 TYPE4 SYN 0 TYPE 4. F3A01880 00000 TYPE5 SYN 0 TYPE 5. F3A01890 00000 TYPE6 SYN 0 TYPE 6. F3A01900 00000 FORTG SYN 0 FORTAG. F3A01910 00000 UCHTG SYN 0 UNEDITED CHANGE TAG. F3A01920 00000 CHTG SYN 0 CHANGE TAG. F3A01930 00000 TIFGO SYN 0 TIFGO. F3A01940 00000 TRLEV SYN 0 TRALEV. F3A01950 00000 ASCO SYN 0 ASCO. F3A01960 00000 AIL SYN 0 AIL. F3A01970 00000 DO SYN 0 DO. F3A01980 00000 SXTX SYN 0 SXTX. F3A01990 00000 CIB SYN 0 CIB. F3A02000 00000 TRAD SYN 0 TRAD. F3A02010 00000 TFGBF SYN 0 TIFGO BUFFER. F3A02020 00000 FFLBF SYN 0 FIRST FILE BUFFER. F3A02030 00000 TSXCM SYN 0 TSXCOM. F3A02040 FOR MASTER RECORD AND PATCH SPACE CARDS. F3A02060 F3A02070 000026 REC22 BOOL 26 RECORD 22. F3A02080 00372 PATCH SYN 250 PATCH SPACE FOR SECTION THREE. F3A02090 00372 OPSUB SYN 250 PATCH SPACE FOR OPEN SUBROUTINES. F3A02100 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 6 DEFINITIONS FOR TABLE AND BUFFER ORIGINS F3A02120 F3A02130 73041 ORGA SYN TOPMEM-5IO01-5DCAR-4DCAR F3A02140 73040 ORGB SYN ORGA-5DM01-5CTCT PHASE 6 F3A02150 67512 ORGC SYN ORGA-5TSCM-4TSCM F3A02160 66052 ORGD SYN ORGC-5DM02-5CTB2-5CTB1-5DM03-5DCB2-5DCB1 PHASE5. F3A02170 65457 ORGE SYN ORGC-5SXTX-4SXTX F3A02180 64017 ORGF SYN ORGE-5DM04-5DBF2-5DBF1-5DM05-5ALB2-5ALB1 F3A02190 63177 ORGG SYN ORGF-5DM06-5FRB2-5FRB1 PHASE 4. F3A02200 60074 ORGH SYN ORGE-5TRST-4TRST-5UCTG-4UCTG-5FXCN-4FXCN F3A02210 42061 ORGI SYN ORGH-5TRLV-4TRLV-5TFGO-4TFGO-5TRAD-4TRAD F3A02220 07007 ORGJ SYN ORGI-5DM07-5FRTG-4FRTG-5DM08-5CHTG-4CHTG PHASE 2 AND 3. F3A02230 27657 ORGK SYN ORGI-5TPE6-5TPE5-5TPE4-5TPE3-5TPE2 PHASE 1. F3A02240 PHASE 1 SORT AND PACK TRASTO F3A02260 PHASE 2 EDIT CHANGE TAG F3A02270 PHASE 3 CREATE TIFGO FILE F3A02280 PHASE 4 CREATE FIRST FILE F3A02290 PHASE 5 MERGE TIFGO AND FIRST FILES TO CREATE CITS F3A02300 PHASE 6 LEAVE CIT COUNT F3A02310 LOCATIONS OF TABLES, BUFFERS, WORD COUNT AND LABELS F3A02330 F3A02340 27657 ORG ORGK F3A02350 27657 7TPE2 BSS 5TPE2 TYPE 2 SORT TABLE. F3A02360 31711 7TPE3 BSS 5TPE3 TYPE 3 SORT TABLE. F3A02370 33743 7TPE4 BSS 5TPE4 TYPE 4 SORT TABLE. F3A02380 35775 7TPE5 BSS 5TPE5 TYPE 5 SORT TABLE. F3A02390 40027 7TPE6 BSS 5TPE6 TYPE 6 SORT TABLE. F3A02400 42061 6TRAD BSS 4TRAD TRAD LABEL. F3A02410 42063 7TRAD BSS 5TRAD TRAD TABLE. F3A02420 43636 6TFGO BSS 4TFGO TIFGO LABEL. F3A02430 43640 7TFGO BSS 5TFGO TIFGO TABLE. F3A02440 47724 6TRLV BSS 4TRLV TRALEV. F3A02450 47724 7TRLV BSS 5TRLV TRALEV TABLE. F3A02460 60074 6FXCN BSS 4FXCN FIXCON WORD COUNT. F3A02470 60075 7FXCN BSS 5FXCN FIXCON TABLE. F3A02480 62127 6UCTG BSS 4UCTG UCHTAG WORD COUNT. F3A02490 62130 7UCTG BSS 5UCTG UCHTAG TABLE. F3A02500 63424 6TRST BSS 4TRST TRASTO WORD COUNT. F3A02510 63425 7TRST BSS 5TRST TRASTO TABLE. F3A02520 65457 6SXTX BSS 4SXTX SXTX WORD COUNT. F3A02530 65460 7SXTX BSS 5SXTX SXTX TABLE. F3A02540 67512 6TSCM BSS 4TSCM TSXCOM WORD COUNT. F3A02550 67513 7TSCM BSS 5TSCM TSXCOM TABLE. F3A02560 07007 ORG ORGJ F3A02580 07007 6CHTG BSS 4CHTG CHTAG. F3A02590 07007 7CHTG BSS 5CHTG CHTAG TABLE. F3A02600 13073 7DM08 BSS 5DM08 DUMMY BUFFER. F3A02610 13073 6FRTG BSS 4FRTG FORTAG LABEL. F3A02620 13075 7FRTG BSS 5FRTG FORTAG TABLE. F3A02630 25277 7DM07 BSS 5DM07 DUMMY BUFFER. F3A02640 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 7 63177 ORG ORGG F3A02660 63177 7FRB1 BSS 5FRB1 FIRST FILE BUFFER 1. F3A02670 63507 7FRB2 BSS 5FRB2 FIRST FILE BUFFER 2. F3A02680 64017 7DM06 BSS 5DM06 DUMMY BUFFER. F3A02690 64017 7ALB1 BSS 5ALB1 COMPAIL BUFFER 1. F3A02700 64327 7ALB2 BSS 5ALB2 COMPAIL BUFFER 2. F3A02710 64637 7DM05 BSS 5DM05 DUMMY BUFFER. F3A02720 64637 7DBF1 BSS 5DBF1 COMPDO BUFFER 1. F3A02730 65147 7DBF2 BSS 5DBF2 COMPDO BUFFER 2. F3A02740 65457 7DM04 BSS 5DM04 DUMMY BUFFER. F3A02750 66052 ORG ORGD F3A02770 66052 7DCB1 BSS 5DCB1 DO FILE C BUFFER 1. F3A02780 66362 7DCB2 BSS 5DCB2 DO FILE C BUFFER 2. F3A02790 66672 7DM03 BSS 5DM03 DUMMY BUFFER. F3A02800 66672 7CTB1 BSS 5CTB1 CIT BUFFER 1. F3A02810 67202 7CTB2 BSS 5CTB2 CIT BUFFER 2. F3A02820 67512 7DM02 BSS 5DM02 DUMMY BUFFER. F3A02830 73040 ORG ORGB F3A02850 73040 7CTCT BSS 5CTCT CITCNT TABLE (ONE WORD). F3A02860 73041 7DM01 BSS 5DM01 DUMMY BUFFER. F3A02870 73041 6DCAR BSS 4DCAR DOCARE WORD COUNT. F3A02880 73042 7DCAR BSS 5DCAR DOCARE TABLE. F3A02890 73600 7IO01 BSS 5IO01 I/O PACKAGE FOR UPPER MEMORY. F3A02900 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 8 F3A02920 NEW RECORD FOR SECTION THREE F3A02940 00102 ORG SYSCUR $F3A02960 F3A02970 BINARY CARD NO. 9F220000 00102 112602020000 BCI 1,9F2200 $F3A02980 73666 ORG (LODR) $F3A02990 BINARY CARD NO. 9F220001 73666 1 00334 0 05242 TXI HELLO,,REC22*10 F3A03010 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 9 SECTION THREE F3A03040 COMPUTING LOCATION FOR TABLES AND BUFFERS F3A03060 F3A03070 03734 ORG BOTTOM F3A03080 BINARY CARD NO. 9F220002 03734 0 77677 0 77677 CL01 PZE TOPMEM,,TOPMEM LOCATION OF TOP. F3A03090 03735 0 73701 0 73701 CL01A PZE -5IO01,,-5IO01 SIZE OF UPPER IO PACKAGE F3A03100 03736 0 77241 0 77241 PZE -5DCAR-4DCAR,,-5DCAR-4DCAR SIZE OF DOCARE. F3A03110 03737 0 74452 0 74452 PZE -5TSCM,,-5TSCM TSXCOM SIZE. F3A03120 03740 0 77777 0 77777 PZE -4TSCM,,-4TSCM TSXCOM LABEL SIZE. F3A03130 03741 0 75746 0 75746 PZE -5SXTX,,-5SXTX SXTX SIZE F3A03140 03742 0 77777 0 77777 PZE -4SXTX,,-4SXTX SXTX LABEL SIZE F3A03150 03743 0 75746 0 75746 PZE -5TRST,,-5TRST TRASTO SIZE. F3A03160 03744 0 77777 0 77777 PZE -4TRST,,-4TRST TRASTO LABEL SIZE. F3A03170 03745 0 76504 0 76504 PZE -5UCTG,,-5UCTG UCHTAG SIZE. F3A03180 03746 0 77777 0 77777 PZE -4UCTG,,-4UCTG UCHTAG LABEL SIZE. F3A03190 03747 0 75746 0 75746 PZE -5FXCN,,-5FXCN FIXCON SIZE. F3A03200 03750 0 77777 0 77777 PZE -4FXCN,,-4FXCN FIXCON LABEL SIZE. F3A03210 03751 0 67630 0 67630 CL02 PZE -5TRLV,,-5TRLV TRALEV SIZE. F3A03220 03752 0 00000 0 00000 CL03 PZE -4TRLV,,-4TRLV TRALEV LABEL SIZE. F3A03230 03753 0 73714 0 73714 CL04 PZE -5TFGO,,-5TFGO TIFGO SIZE. F3A03240 03754 0 77776 0 77776 CL05 PZE -4TFGO,,-4TFGO TIFGO LABEL SIZE. F3A03250 03755 0 76225 0 76225 CL06 PZE -5TRAD,,-5TRAD TRAD SIZE F3A03260 03756 0 77776 0 77776 CL07 PZE -4TRAD,,-4TRAD TRAD LABEL SIZE F3A03270 03757 0 63216 0 75746 CL08 PZE -5TPE6,,-5DM07 TYPE 6 SIZE,,DUMMY BUFFER 7 SIZE. F3A03280 03760 0 65576 0 75746 CL09 PZE -5TPE5,,-5FRTG TYPE 5 SIZE,,FORTAG SIZE. F3A03290 03761 0 77776 0 75746 CL10 PZE -5TPE4,,-4FRTG TYPE 4 SIZE,,FORTAG LABEL SIZE. F3A03300 BINARY CARD NO. 9F220003 03762 0 00000 0 75746 CL11 PZE -5TPE3,,-5DM08 TYPE 3 SIZE,,DUMMY BUFFER 8 SIZE. F3A03310 03763 0 73714 0 75746 CL12 PZE -5TPE2,,-5CHTG TYPE 2 SIZE,,CHTAG SIZE. F3A03320 03764 0 00000 0 00000 CL13 PZE ,,-4CHTG ,,CHTAG LABEL SIZE F3A03330 03765 0 00000 0 75746 CL14 PZE -5SXTX,,-5DM02 SXTX SIZE,,DUMMY BUFFER 2 SIZE F3A03350 03766 0 77470 0 77777 CL15 PZE -4SXTX,,-5CTB2 SXTX LABEL SIZE,,CIT BUFFER 2 SIZE. F3A03360 03767 0 77470 0 00000 CL16 PZE -5DM04,,-5CTB1 DY BUFFER 4 SIZE,,CIT BUFFER 2 SIZE. F3A03370 03770 0 00000 0 77470 CL17 PZE -5DBF2,,-5DM03 DO BUFFER 2 SIZE,,DY BUFFER 3 SIZE. F3A03380 03771 0 77470 0 77470 CL18 PZE -5DBF1,,-5DCB2 DO BUFFER 1 SIZE,,DOC BUFFER 2 SIZE. F3A03390 03772 0 77470 0 00000 CL19 PZE -5DM05,,-5DCB1 DY BUFFER 5 SIZE,,DOC BUFFER 1 SIZE. F3A03400 03773 0 00000 0 77470 CL20 PZE -5ALB2 AIL BUFFER 2 SIZE. F3A03410 03774 0 00000 0 77470 CL21 PZE -5ALB1 AIL BUFFER 1 SIZE. F3A03420 03775 0 00000 0 00000 CL22 PZE -5DM06 DUMMY BUFFER 6 SIZE F3A03430 03776 0 00000 0 77470 CL23 PZE -5FRB2 FIRST FILE 2 SIZE. F3A03440 03777 0 00000 0 77470 CL24 PZE -5FRB1 FIRST FILE BUFFER 1 SIZE. F3A03450 04000 0 00000 0 00000 CL25 PZE -5DM01 DUMMY BUFFER 1 SIZE F3A03470 04001 0 00000 0 77777 CL26 PZE -5CTCT CITCNT SIZE. F3A03480 04002 CL27 SYN * F3A03490 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 10 LOCATION OF TABLES AND BUFFERS F3A03510 F3A03520 04002 0 73600 0 73600 9IO01 PZE 7IO01,,7IO01 UPPER I/O PACKAGE. F3A03530 04003 0 73041 0 73041 8DCAR PZE 6DCAR,,6DCAR DOCAR WORD COUNT. F3A03540 04004 0 67513 0 67513 9TSCM PZE 7TSCM,,7TSCM TSXCOM TABLE. F3A03550 04005 0 67512 0 67512 8TSCM PZE 6TSCM,,6TSCM TSXCOM WORD COUNT. F3A03560 04006 0 65460 0 65460 9SXTX PZE 7SXTX,,7SXTX SXTX TABLE. F3A03570 04007 0 65457 0 65457 8SXTX PZE 6SXTX,,6SXTX SXTX WORD COUNT. F3A03580 BINARY CARD NO. 9F220004 04010 0 63425 0 63425 9TRST PZE 7TRST,,7TRST TRASTO TABLE. F3A03590 04011 0 63424 0 63424 8TRST PZE 6TRST,,6TRST TRASTO WORD COUNT. F3A03600 04012 0 62130 0 62130 9UCTG PZE 7UCTG,,7UCTG UCHTAG TABLE. F3A03610 04013 0 62127 0 62127 8UCTG PZE 6UCTG,,6UCTG UCHTAG WORD COUNT. F3A03620 04014 0 60075 0 60075 9FXCN PZE 7FXCN,,7FXCN FIXCON TABLE. F3A03630 04015 0 60074 0 60074 8FXCN PZE 6FXCN,,6FXCN FIXCON WORD COUNT. F3A03640 04016 0 47724 0 47724 9TRLV PZE 7TRLV,,7TRLV TRALEV TABLE. F3A03650 04017 0 47724 0 47724 8TRLV PZE 6TRLV,,6TRLV TRALEV (NO WORD COUNT). F3A03660 04020 0 43640 0 43640 9TFGO PZE 7TFGO,,7TFGO TIFGO TABLE. F3A03670 04021 0 43636 0 43636 8TFGO PZE 6TFGO,,6TFGO TIFGO LABEL. F3A03680 04022 0 42063 0 42063 9TRAD PZE 7TRAD,,7TRAD TRAD TABLE. F3A03690 04023 0 42061 0 42061 8TRAD PZE 6TRAD,,6TRAD TRAD LABEL. F3A03700 04024 0 25277 0 40027 9TPE6 PZE 7TPE6,,7DM07 TYPE 6,,DUMMY BUFFER 7. F3A03710 04025 0 13075 0 35775 9TPE5 PZE 7TPE5,,7FRTG TYPE 5,,FORTAG TABLE. F3A03720 04026 0 13073 0 33743 9TPE4 PZE 7TPE4,,6FRTG TYPE 4,,FORTAG LABEL. F3A03730 04027 0 13073 0 31711 9TPE3 PZE 7TPE3,,7DM08 TYPE 3,,DUMMY BUFFER 8. F3A03740 04030 0 07007 0 27657 9TPE2 PZE 7TPE2,,7CHTG TYPE 2,,CHTAG TABLE. F3A03750 04031 0 07007 0 00000 8CHTG PZE ,,6CHTG ,,CHTAG (NO WORD COUNT). F3A03760 04032 0 67512 0 65460 9DM02 PZE 7SXTX,,7DM02 SXTX TABLE,,DUMMY BUFFER 2. F3A03780 04033 0 67202 0 65457 9CTB2 PZE 6SXTX,,7CTB2 SXTX LABEL,,CIT BUFFER 2. F3A03790 04034 0 66672 0 65457 9DM04 PZE 7DM04,,7CTB1 DUMMY BUFFER 4,,CIT BUFFER 1. F3A03800 04035 0 66672 0 65147 9DBF2 PZE 7DBF2,,7DM03 DO BUFFER 2,,DUMMY BUFFER 3. F3A03810 BINARY CARD NO. 9F220005 04036 0 66362 0 64637 9DBF1 PZE 7DBF1,,7DCB2 DO BUFFER 1,,DOC BUFFER 2. F3A03820 04037 0 66052 0 64637 9DM05 PZE 7DM05,,7DCB1 DUMMY BUFFER 5,,DOC BUFFER 1. F3A03830 04040 0 00000 0 64327 9ALB2 PZE 7ALB2 AIL BUFFER 2. F3A03840 04041 0 00000 0 64017 9ALB1 PZE 7ALB1 AIL BUFFER 1. F3A03850 04042 0 00000 0 64017 9DM06 PZE 7DM06 DUMMY BUFFER 6. F3A03860 04043 0 00000 0 63507 9FRB2 PZE 7FRB2 FIRST FILE BUFFER 2. F3A03870 04044 0 00000 0 63177 9FRB1 PZE 7FRB1 FIRST FILE BUFFER 1. F3A03880 04045 0 00000 0 73041 9DM01 PZE 7DM01 DUMMY BUFFER 1. F3A03900 04046 0 00000 0 73040 9CTCT PZE 7CTCT CITCNT. F3A03910 04047 8CTCT SYN * F3A03920 04025 9FRTG SYN 9TPE5 FORTAG TABLE IN DEC. F3A03940 04026 8FRTG SYN 9TPE4 FORTAG LABEL IN DEC. F3A03950 04027 9DM08 SYN 9TPE3 DUMMY BUFFER 8 IN DEC. F3A03960 04030 9CHTG SYN 9TPE2 CHTAG TABLE IN DEC. F3A03970 04034 9CTB1 SYN 9DM04 CIT BUFFER 1 IN DEC. F3A03980 04036 9DCB2 SYN 9DBF1 DOC BUFFER 2 IN DEC. F3A03990 04037 9DCB1 SYN 9DM05 DOC BUFFER 1 IN DEC. F3A04000 04013 8ASCN SYN 8UCTG ASCON WORD COUNT IN ADD. F3A04010 04012 9ASCN SYN 9UCTG ASCON TABLE IN ADD. F3A04020 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 11 TABLE FOR TRANSFERS TO THE DIAGNOSTIC F3A04040 F3A04050 04047 1 77777 0 73603 ERR1 TXI (DIAG),,-1 PROGRAMMER ERROR. SECTION THREE DOES F3A04060 NOT HAVE ROOM FOR ITS CODE AND TABLES F3A04070 F3A04080 04050 0074 00 4 73606 ERR2 TSX (TAPE),4 MACHINE ERROR. LOGICAL TAPE 2 IS NOT F3A04090 04051 0 04000 0 04310 PZE LABEL,,(TPER) POSITIONED CORRECTLY TO READ THE F3A04100 04052 0 00002 0 05172 PZE ALAB1,,TBTAP TIFGO TABLE LABEL. F3A04110 F3A04120 04053 0074 00 4 73606 ERR3 TSX (TAPE),4 MACHINE ERROR. WORD COUNT FOR THE F3A04130 04054 0 04000 0 04311 PZE COUNT,,(TPER) TIFGO TABLE DOES NOT AGREE WITH THE F3A04140 04055 0 00002 0 05172 PZE ALAB1,,TBTAP WORD COUNT IN THE LABEL. F3A04150 F3A04160 04056 1 00000 0 73603 ERR4 TXI (DIAG),,0 PROGRAMMER ERROR. SOURCE PROGRAM F3A04170 HAS CAUSE TRALEU TABLE.TO OVERFLOW. F3A04180 POSSIBLE MACHINE ERROR.LOGICAL TAPE 4 F3A04190 F3A04200 04057 0074 00 4 73606 ERR5 TSX (TAPE),4 MACHINE ERROR. LOGICAL TAPE 2 IS NOT F3A04210 04060 0 04000 0 04310 PZE LABEL,,(TPER) POSITIONED CORRECTLY TO READ THE F3A04220 04061 0 00002 0 05176 PZE ALAB2,,TBTAP TRAD TABLE LABEL. F3A04230 F3A04240 04062 0074 00 4 73606 ERR6 TSX (TAPE),4 MACHINE ERROR. WORD COUNT FOR THE F3A04250 04063 0 04000 0 04311 PZE COUNT,,(TPER) TRAD TABLE DOES NOT AGREE WITH THE F3A04260 BINARY CARD NO. 9F220006 04064 0 00002 0 05176 PZE ALAB2,,TBTAP WORD COUNT IN THE LABEL. F3A04270 F3A04280 04065 0074 00 4 73606 ERR7 TSX (TAPE),4 MACHINE ERROR. LOGICAL TAPE 2 IS NOT F3A04290 04066 0 04000 0 04310 PZE LABEL,,(TPER) POSITIONED CORRECTLY TO READ THE F3A04300 04067 0 00002 0 05202 PZE ALAB3,,TBTAP FORTAG TABLE LABEL. F3A04310 F3A04320 04070 0074 00 4 73606 ERR8 TSX (TAPE),4 MACHINE ERROR. WORD COUNT FOR THE F3A04330 04071 0 04000 0 04311 PZE COUNT,,(TPER) FORTAG TABLE DOES NOT AGREE WITH THE F3A04340 04072 0 00002 0 05202 PZE ALAB3,,TBTAP WORD COUNT IN THE LABEL. F3A04350 F3A04360 04073 1 77271 0 73603 ERR9 TXI (DIAG),,-327 PROGRAMMER. THE CHANGE TAG TABLE F3A04370 HAS OVERFLOWED. F3A04380 F3A04390 04074 1 77774 0 73603 ERR10 TXI (DIAG),,-4 PROGRAMMER ERROR. THE TIFGO FILE OF F3A04400 CITS HAS OVERFLOWED. F3A04410 F3A04420 04075 0074 00 4 73606 ERR11 TSX (TAPE),4 MACHINE ERROR. A RECORD OF COMPDO F3A04430 04076 0 04000 0 04311 PZE COUNT,,(TPER) CITS ON LOGICAL TAPE4 IS NOT A F3A04440 04077 0 00004 0 05230 PZE ALAB4,,CDOTP MULTIPLE OF FOUR. THIS IS A POSSIBLE F3A04450 TAPE ERROR F3A04460 F3A04470 04100 0074 00 4 73606 ERR12 TSX (TAPE),4 MACHINE ERROR. A RECORD OF COMPAIL F3A04480 04101 0 04000 0 04311 PZE COUNT,,(TPER) CITS ON LOGICAL TAPE 2 IS NOT A F3A04490 04102 0 00002 0 05232 PZE ALAB5,,TBTAP MULTIPLE OF FOUR. THIS IS A POSSIBLE F3A04500 TAPE ERROR. F3A04510 F3A04520 04103 1 00000 0 73603 ERR13 TXI (DIAG),,0 MACHINE ERROR. A RECORD OF FIRST FILE F3A04530 CITS TO BE WRITTEN AS AN OVERFLOW F3A04540 IS NOT A MULTIPLE OF FOUR. THIS IS NOT F3A04550 THE LOGIC OF THE PROGRAM. F3A04560 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 12 04104 1 00000 0 73603 ERR14 TXI (DIAG),,0 MACHINE ERROR. A RECORD OF MERGED CITS F3A04580 TO BE WRITTEN IS NOT A MULTIPLE OF F3A04590 FOUR. THIS IS NOT THE LOGIC OF THE F3A04600 PROGRAM F3A04610 F3A04620 04105 1 77773 0 73603 ERR15 TXI (DIAG),,-5 PROGRAMMER ERROR. THE ASSIGN CONSTANT F3A04630 TABLE HAS OVER FLOWED F3A04640 F3A04650 04106 1 76657 0 73603 ERR16 TXI (DIAG),,-593 PROGRAMMER ERROR. A FORTRAN FUNCTION F3A04660 STATEMENT APPEARS IN THE MIDDLE OF F3A04670 HIS SOURCE PROGRAM. F3A04680 F3A04690 04107 1 50431 0 73603 ERR17 TXI (DIAG),,-12007 PROGRAMMER ERROR. THE NAME OF AN OPEN F3A04700 SUBROUTINE USED IN THE SOURCE PROGRAM F3A04710 DOES NOT APPEAR IN SECTION THREE S F3A04720 DICTIONARY. F3A04730 F3A04740 04110 1 75443 0 73603 ERR18 TXI (DIAG),,-1245 MACHINE ERROR OR PROGRAMMER ERROR. THERE F3A04750 IS A FENCE OF ALL ONE IN THE FIRST F3A04760 WORD OF A CIT WHERE THERE SHOULD BE F3A04770 NO FENCE F3A04780 F3A04790 04111 1 75451 0 73603 ERR19 TXI (DIAG),,-1239 MACHINEERROR OR PROGRAMMERERROR. THERE F3A04800 IS NO FENCE OF ALL ONE IN THE FIRST F3A04810 WORD OF A CIT WHERE THERE SHOULD BE F3A04820 A FENCE F3A04830 F3A04840 BINARY CARD NO. 9F220007 04112 0074 00 4 73606 ERR20 TSX (TAPE),4 MACHINE ERROR. A RECORD OF FIRST FILE F3A04850 04113 0 04000 0 04311 PZE COUNT,,(TPER) OVERFLOW HAS BEEN READ AND IT IS NOT F3A04860 04114 0 00003 0 05234 PZE ALAB6,,VFLTP A MULTIPLE OF FOUR. A POSSIBLE ERROR F3A04870 ON LOGICAL TAPE 3. F3A04880 F3A04890 04115 0074 00 4 73606 ERR21 TSX (TAPE),4 MACHINE ERROR. THE NUMBER OF WORDS AND F3A04900 04116 0 04000 0 04311 PZE COUNT,,(TPER) RECORDS WRITTEN FOR FIRST FILE F3A04910 04117 0 00003 0 05234 PZE ALAB6,,VFLTP OVERFLOW DO NOT AGREE WITH THE F3A04920 NUMBER OF WORDS AND RECORD READ F3A04930 FOR FIRST FILE OVERFLOW F3A04940 F3A04950 04120 0074 00 4 73606 ERR22 TSX (TAPE),4 MACHINE ERROR. THE NUMBER OF WORDS AND F3A04960 04121 0 04000 0 04311 PZE COUNT,,(TPER) WRITTEN FOR FORTRAN FUNCTIONS DO F3A04970 04122 0 00003 0 05224 PZE ALAB7,,CSBTP NOT AGREE WITH THE NUMBER OF WORDS F3A04980 READ FOR FORTRAN FUNCTIONS. F3A04990 F3A05000 04123 0074 00 4 73606 ERR23 TSX (TAPE),4 MACHINE ERROR. A RECORD OF DO FILE C F3A05010 04124 0 04000 0 04311 PZE COUNT,,(TPER) CITS ARE NOT A MULTIPLE OF FOUR. F3A05020 04125 0 00003 0 05240 PZE ALAB8,,CSBTP F3A05030 F3A05040 04126 1 77772 0 73603 ERR24 TXI (DIAG),,-6 PROGRAMMER ERROR. COMPILED F3A05050 PROGRAM TO LARGE. REDUCE SIZE OF PROGRAM. F3A05060 F3A05070 04127 1 77771 0 73603 ERR25 TXI (DIAG),,-7 PROGRAM ERROR. REDUCE THE F3A05080 NUMBER OF ARITHMETIC F3A05090 STATEMENT FUNCTIONS. F3A05100 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 13 04130 0 00000 0 00000 L(0) PZE 0 OCTAL ZERO. F3A05120 04131 0 00000 0 00002 L(2) PZE 2 OCTAL TWO. F3A05130 04132 0 00000 0 00003 L(3) PZE 3 OCTAL THREE. F3A05140 04133 0 00000 0 00004 L(4) PZE 4 OCTAL FOUR. F3A05150 04134 0 00000 0 00010 L(8) PZE 8 OCTAL TEN. F3A05160 04135 0 00000 0 00020 L(16) PZE 16 OCTAL TWENTY. F3A05170 04136 +000000000370 (370) OCT 370 ADDEND OF 248 FOR ASSIGN. F3A05180 04137 +000000002000 TGMSK OCT 2000 I TAU MASK FOR 4TH WORD OF CIT. F3A05190 BINARY CARD NO. 9F220008 04140 0 00004 0 00004 (4A4D PZE 4,,4 OCTAL 4,, OCTAL 4. F3A05200 04141 0 00001 0 00007 (7A1D PZE 7,,1 OCTAL 7,, OCTAL 1. F3A05210 04142 0 00001 0 00000 L(1D) PZE ,,1 DEC OCTAL ONE. F3A05220 04143 0 00002 0 00000 L(2D) PZE ,,2 DEC OCTAL TWO. F3A05230 04144 0 00003 0 00000 L(3D) PZE ,,3 DEC OCTAL THREE. F3A05240 04145 0 00004 0 00000 L(4D) PZE ,,4 DEC OCTAL FOUR. F3A05250 04146 0 00005 0 00000 L(5D) PZE ,,5 DEC OCTAL FIVE. F3A05260 04147 0 00021 0 00000 (17D) PZE ,,17 DEC OCTAL TWENTY ONE. F3A05270 04150 0 00022 0 00000 (18D) PZE ,,18 DEC OCTAL TWENTY TWO. F3A05280 04151 -3 77777 7 77777 ALONE SVN -1,7,-1 ALLONES OR 36 ONES. F3A05290 04152 0 77777 0 00000 DCMSK PZE ,,-1 DECREMENT FIELS MASK. F3A05300 04153 0 00000 0 77777 ADMSK PZE -1 ADDRESS FIELD MASK. F3A05310 04154 0 00000 0 00000 CHTFN PZE 0 IFN FOR THE CURRENT CHTAG BLOCK. F3A05320 04155 0 00000 0 00000 TGBOX PZE 0 TAG FOR AIL DURING CHTAG TABLE SEARCH. F3A05330 04156 0 00000 0 00000 CMBOX PZE 0 IFN FOR FORTAG ENTRY DURING CHTAG EDIT. F3A05340 04157 0 00000 0 00000 MDOFN PZE 0 IFN OF CURRENT BLOCK OF DO INSTRUCTIONS. F3A05350 04160 0 00000 0 00000 MALFN PZE 0 IFN FOR CURRENT BLOCK OF AIL INSTRUCTIONS.F3A05360 04161 0 00000 0 00000 CCONT PZE 0 COUNT FOR EXP ROUTINE. F3A05370 04162 0 00000 0 00000 3WD PZE 0 TEMPORARY STORAGE FOR 3RD WORD OF CITS. F3A05380 04163 0 00000 0 00000 4WD PZE 0 TEMPORARY STORAGE FOR 4TH WORD OF CITS. F3A05390 04164 +000000000000 M1CW OCT ,,,,0 FIVE WORDS FOR INSTRUCTION STORAGE. $F3A05400 04165 +000000000000 BINARY CARD NO. 9F220009 04166 +000000000000 04167 +000000000000 04170 +000000000000 04171 0 00000 0 00000 ADDCO PZE 0 COUNTER FOR TIFGO FILE. F3A05410 04172 -2 00000 0 00000 MASK MTW 0 MASK FOR TRASTO BCD. F3A05420 04173 0 00000 0 00000 TIFFN PZE 0 IFN OF CURRENT TIFGO ENTRY. F3A05430 04174 0 00000 0 00000 LEVNO PZE 0 LEVEL NUMBER FOR CURRENT TIFGO ENTRY. F3A05440 04175 0 00000 0 00000 CLOC PZE 0 INCREMENT OF 1ST INST IN CURRENT BLOCK. F3A05450 04176 0 00000 0 00000 SXLOC PZE 0 LOCATION WORD FOR CURRENT DO INSTRUCTION. F3A05460 04177 1 00000 0 00000 2BIT PON 0 MASK FOR FINAL MERGE. F3A05470 04200 -3 00000 0 00000 PMASK SVN 0 MASK FOR TSXCOM TYPE. F3A05480 04201 +003777000370 (LOC) OCT 3777000370 FOR LOAD BUTTON SEQUENCE. F3A05490 04202 0 00000 0 00000 TFGFN PZE 0 IFN FOR CURRENT TIFGO INSTRUCTION. F3A05500 04203 0 00000 0 00000 FFLFN PZE 0 IFN FOR CURRENT FIRST FILE INSTRUCTION. F3A05510 04204 0 00000 0 00000 RAVEL PZE 0 TRALEV SWITCH CELL. F3A05520 04205 0 00000 0 00000 FOFWC PZE 0 WORD COUNT OF FORTRAN FUNCTIONS. F3A05530 04206 0 00000 0 00000 ERAS PZE 0 ERASEABLE CELLS. F3A05540 04207 0 00000 0 00000 BETA1 PZE 0 TRANSFER IFN FOR TIFGO FILE. F3A05550 04210 0 00000 0 00000 BETA2 PZE 0 TRANSFER IFN FOR TIFGO FILE. F3A05560 04211 0 00000 0 00000 BETA3 PZE 0 TRANSFER IFN FOR TIFGO FILE. F3A05570 04212 +170000000000 (AST) OCT 170000000000 STAR SYMBOL. F3A05580 04213 010000000000 L(1)) BCI 1,100000 1) SYMBOL. F3A05590 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 14 BINARY CARD NO. 9F220010 04214 050000000000 L(5)) BCI 1,500000 5) SYMBOL. F3A05600 04215 060000000000 L(6)) BCI 1,600000 6. SYMBOL. F3A05610 04216 +120000000000 L(A)) OCT 120000000000 A) SYMBOL. F3A05620 04217 +140000000000 L(C)) OCT 140000000000 C) SYMBOL. F3A05630 04220 540000000000 LSTR0 BCI 1,*00000 FIXED POINT EXPONENT - X**I OR J**I. F3A05640 04221 005400000000 L0STR BCI 1,0*0000 FLOATING POINT EXPONENT - X**Y. F3A05650 04222 200000000000 LPLUS BCI 1,+00000 ARGURMENT IN AC. F3A05660 04223 535360606060 FPTCN BCI 1,$$ FPT SYMBOL AT BEGINNING OF MAIN PROGRAM. F3A05670 04224 234321000000 (CLA) BCI 1,CLA000 CLA. F3A05680 04225 234362000000 (CLS) BCI 1,CLS000 CLS. F3A05690 04226 626346000000 (STO) BCI 1,STO000 STO. F3A05700 04227 635121000000 (TRA) BCI 1,TRA000 TRA. F3A05710 04230 634743000000 (TPL) BCI 1,TPL000 TPL. F3A05720 04231 637125000000 (TZE) BCI 1,TZE000 TZE. F3A05730 04232 636731000000 (TXI) BCI 1,TXI000 TXI. F3A05740 04233 633167000000 (TIX) BCI 1,TIX000 TIX. F3A05750 04234 636267000000 (TSX) BCI 1,TSX000 TSX. F3A05760 04235 436724000000 (LXD) BCI 1,LXD000 LXD. F3A05770 04236 626724000000 (SXD) BCI 1,SXD000 SXD. F3A05780 04237 436747000000 (LXP) BCI 1,LXP000 SPECIAL LXD. F3A05790 04240 476724000000 (PXD) BCI 1,PXD000 PXD. F3A05800 04241 512324000000 (RCD) BCI 1,RCD000 FORTRAN MNEMONIC FOR RCDA. F3A05810 BINARY CARD NO. 9F220011 04242 304751000000 (HPR) BCI 1,HPR000 HPR. F3A05820 04243 514321000000 (RLA) BCI 1,RLA000 FORTRAN MNEMONIC FOR RCHA. F3A05830 04244 432321000000 (LCA) BCI 1,LCA000 FORTRAN MNEMONIC FOR LCHA. F3A05840 04245 632126000000 (TAF) BCI 1,TAF000 FORTRAN MNEMONIC FOR TEFA. F3A05850 04246 444645000003 (MON) BCI 1,MON003 IOCT COMMAND FOR RLA IN LOAD CARDS SEQ. F3A05860 04247 432450000000 (LDQ) BCI 1,LDQ000 LDQ. F3A05870 04250 444770000000 (MPY) BCI 1,MPY000 MPY. F3A05880 04251 435162000000 (LRS) BCI 1,LRS000 LRS. F3A05890 04252 214362000000 (ALS) BCI 1,ALS000 ALS. F3A05900 04253 434362000000 (LLS) BCI 1,LLS000 LLS. F3A05910 04254 626350000000 (STQ) BCI 1,STQ000 STQ. F3A05920 04255 264447000000 (FMP) BCI 1,FMP000 FMP. F3A05930 04256 626247000000 (SSP) BCI 1,SSP000 SSP. F3A05940 04257 642621000000 (UFA) BCI 1,UFA000 UFA. F3A05950 04260 214521000000 (ANA) BCI 1,ANA000 ANA. F3A05960 04261 262124000000 (FAD) BCI 1,FAD000 FAD. F3A05970 04262 234344000000 (CLM) BCI 1,CLM000 CLM. F3A05980 04263 246547000000 (DVP) BCI 1,DVP000 DVP. F3A05990 04264 262447000000 (FDP) BCI 1,FDP000 FDP. F3A06000 04265 634350000000 (TLQ) BCI 1,TLQ000 TLQ. F3A06010 04266 266222000000 (FSB) BCI 1,FSB000 FSB. F3A06020 04267 465121000000 (ORA) BCI 1,ORA000 ORA. F3A06030 BINARY CARD NO. 9F220012 04270 626422000000 (SUB) BCI 1,SUB000 SUB. F3A06040 04271 672321000000 (XCA) BCI 1,XCA000 XCA. F3A06050 04272 314663000000 (IOT) BCI 1,IOT000 IOT. F3A06060 04273 0 00000 0 00000 WARCN PZE **,,** WORD COUNT ,, RECORD COUNT CELL. F3A06070 04274 0 77677 0 12300 MEMRY PZE BTTAB,,TOPMEM START OR TABLES ,, TOP OR MEMORY. F3A06080 04275 +000000004377 XIOUP OCT 4377 SIZE OF UPPER I/O PACKAGE. F3A06090 04276 0 00000 0 14562 XDUM7 PZE 1DM07 CHANGE TO ZERO FOR SWITCH. F3A06100 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 15 04277 0 77777 0 00000 XTOP PZE ,,-1 LOCATION OF TOP. F3A06110 04300 0 00000 0 00000 CINF PZE **,,** 2S COM INTIAL BUFADD,,2S COM LAST BUFADD. F3A06120 04301 0 00000 0 00000 WARCT PZE **,,** WORD COUNT ,, RECORD COUNT. F3A06130 04302 0 00000 0 00000 SCIBI PZE **,,** SAVE CELL FOR CIBL1. F3A06140 04303 0074 00 4 04664 SWTCT TSX WTCT,4 CELL FOR TSX TO WRITE CITS. F3A06150 04304 0 00000 0 00000 STFIF PZE **,,** SAVE CELL FOR TIFGO INFORMATION. F3A06160 04305 0 00000 0 00000 SFFIF PZE **,,** SAVE CELL FOR FIRST FILE INFORMATION. F3A06170 04306 0 00000 0 00000 SOVCT PZE **,,** SAVE CELL FOR OVERFLOW INFORMATION. F3A06180 04307 0 77777 0 77777 PTMSK PZE -1,,-1 ADDRESS AND DECREMENT MASK. F3A06190 04310 432122254360 LABEL BCI 1,LABEL FOR DIAG IN I/O PACKAGE. F3A06200 04311 234664456360 COUNT BCI 1,COUNT FOR DIAG IN I/O PACKAGE. F3A06210 04312 0020 00 0 11103 FTRA TRA BOUT4 FOR ADD MOD WHEN FORTRAN FUNCTIONS. F3A06220 04313 0020 00 0 11104 FTRB TRA BOUT4+1 WHEN MOVED AND OP SUB ARE ADDED. F3A06230 04314 +000000400000 TAG4 OCT 400000 MASK FOR TOO MANY CITS. F3A06240 04315 BSS 10 F3A06250 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 16 ROUTINE FOR READING OR WRITING THRU I/O PACKAGE F3A06270 F3A06280 BINARY CARD NO. 9F220013 04327 0774 00 1 00052 RDTBA AXT SKLST-SKLTX,1 ENTRY FOR SINGLE OPERATION. F3A06290 04330 -0634 00 4 04335 SXD RDTBC,4 SWITCH SET. F3A06300 04331 0634 00 4 04341 RDTBB SXA RDTBD,4 ENTRY FOR DOUBLE BUFFERING. F3A06310 04332 0074 00 4 73606 TSX (TAPE),4 TO TAPE OPERATIONS F3A06320 04333 0 77777 1 05044 PZE LIST,1,-1 WHICH ARE INDIRECTLY ADDRESSED F3A06330 04334 0 77777 1 05170 PZE RISE,1,-1 F3A06340 04335 3 00000 1 04341 RDTBC TXH RDTBD,1,** BY PASS SWITCH FOR DOUBLE BUFFERING. F3A06350 04336 1 77777 1 04337 TXI *+1,1,-1 REDUCE CELL ON SINGLE OPERATION F3A06360 04337 0634 00 1 04327 SXA RDTBA,1 STORE BACK F3A06370 04340 -0634 00 0 04335 SXD RDTBC,0 RESET SWITCH. F3A06380 04341 0774 00 4 00000 RDTBD AXT **,4 RESORT IR4 F3A06390 04342 0020 00 4 00001 TRA 1,4 RETURN F3A06400 DOUBLE BUFFER COMDO READ ROUTINE F3A06420 F3A06430 04343 0634 00 4 04440 RDD01 SXA RDD15,4 SAVE IR4. F3A06440 04344 0634 00 1 04437 SXA RDD14,1 SAVE IR1. F3A06450 04345 0774 00 1 00012 RDD02 AXT SKLST-CODO1,1 GET INDEX FOR NEXT BUFFER. F3A06460 04346 0074 00 4 04331 TSX RDTBB,4 READ A RECORD. F3A06470 04347 3 00011 1 04353 TXH RDD03,1,SKLST-CODO2 TEST BUFFER SWITCH. F3A06480 04350 0774 00 1 00012 AXT SKLST-CODO1,1 RESET INDEX FOR BUFFER 1. F3A06490 04351 0634 00 1 04345 SXA RDD02,1 SAVE INDEX FOR NEXT READ. F3A06500 04352 0020 00 0 04355 TRA RDD04 TRANSFER. F3A06510 04353 0774 00 1 00011 RDD03 AXT SKLST-CODO2,1 RESET INDEX FOR BUFFER 2. F3A06520 04354 0634 00 1 04345 SXA RDD02,1 SAVE INDEX FOR NEXT READ. F3A06530 BINARY CARD NO. 9F220014 04355 -3 00000 0 04356 RDD04 TXL *+1,0,** SWITCH TO READ ANOTHER RECORD FOR THEF3A06540 04356 0774 00 1 04361 AXT RDD05,1 FIRST THRU THIS ROUTINE. F3A06550 04357 0634 00 1 04355 SXA *-2,1 THE DECREMENT OF RDD04 IS USED FOR F3A06560 04360 0020 00 0 04345 TRA RDD02 IR2 POINTER BUFFER BEING PROCESSED. F3A06570 04361 0500 00 1 05170 RDD05 CLA RISE,1 GET LOGICAL TAPE NUMBER FROM DEC F3A06580 04362 -0734 00 2 00000 PDX ,2 AND PLACE IN IR2. COMPUTE THE ADDRESSF3A06590 04363 1 73672 2 04364 TXI *+1,2,(SCHU) FOR THE STORE CHANNEL AND F3A06600 04364 0634 00 2 04365 SXA RDD06,2 SAVE THE ADDRESS IN RDD06 F3A06610 04365 -0520 00 0 00000 RDD06 NZT ** TEST THE STORE CHANNEL CELL FOR ZERO.F3A06620 04366 0020 00 0 07565 TRA FAD14 YES TRANSFER OUT F3A06630 04367 0500 60 0 04365 CLA* RDD06 NO GET STORE CHANNEL IN AC F3A06640 04370 0737 00 2 00000 PAC ,2 LOAD IR2 WITH LAST ADDRESS PLUS ONE. F3A06650 04371 -0634 00 2 04375 SXD RDD07,2 SAVE IR2 IN RDD07 FOR COMPUTING F3A06660 04372 -0634 00 2 04442 SXD TESTD,2 SAVE IR2 IN TESTD FOR TEST. F3A06670 04373 0500 00 1 05116 CLA SKLST,1 GET 1ST ADDRESS OF BUFFER IN AC F3A06680 04374 0734 00 1 00000 PAX ,1 LOAD IR1 WITH 1ST ADDRESS OF BUFFER. F3A06690 04375 1 00000 1 04376 RDD07 TXI *+1,1,** COMPUTE 2S COMP OF LENGTH OF BUFFER. F3A06700 04376 0737 00 2 00000 PAC ,2 LOAD IR2 WITH 2S COMP OF 1ST ADD OF BF3A06710 04377 0754 00 1 00000 PXA ,1 CLEAR AC AND PUT 2S COMP OF LENGTH F3A06720 04400 -0320 00 0 04132 ANA L(3) IN THE ADDRESS AND GET BITS 35 AND 36F3A06730 04401 0100 00 0 04403 TZE *+2 TRANSFER OUT TO ERROR CITS ARE NOT 4 F3A06740 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 17 04402 0020 00 0 04075 TRA ERR11 GO TO IO PACKAGE. F3A06750 BINARY CARD NO. 9F220015 04403 0500 60 0 04007 CLA* 8SXTX GET THE LENGTH OF SXTX TABLE. F3A06760 04404 -0634 00 2 04355 SXD RDD04,2 SAVE IR2 WITH 2S COMP OF 1ST BUF LOC F3A06770 04405 0100 00 0 04436 TZE RDD13 TRANSFER FOR EMPTY SXTX TABLE F3A06780 04406 0400 00 0 04006 ADD 9SXTX F3A06790 04407 0737 00 4 00000 PAC ,4 F3A06800 04410 -0634 00 4 04427 SXD RDD11,4 F3A06810 04411 0500 00 2 00001 RDD08 CLA DO+1,2 GET 2ND WORD OF CIT WITH OP CODE. F3A06820 04412 0402 00 0 04236 SUB (SXD) IS IT SXD. F3A06830 04413 0100 00 0 04420 TZE RDD09 YES TRANSFER. F3A06840 04414 1 77774 2 04415 TXI *+1,2,-2TBF4 NO DECREASE IR 2 BY 4. F3A06850 04415 0074 00 4 04442 TSX TESTD,4 TEST FOR END OF BUFFER F3A06860 04416 0020 00 0 04436 TRA RDD13 YES END OF BUFFER RETURN. F3A06870 04417 0020 00 0 04411 TRA RDD08 NO GO TO NEXT CIT. F3A06880 04420 0500 00 2 00002 RDD09 CLA DO+2,2 GET 3RD WORD OF CIT. F3A06890 04421 0601 00 0 04176 STO SXLOC SAVE IN SXLOC. F3A06900 04422 0535 00 4 04006 LAC 9SXTX,4 GET 2S COMP OF 1ST ADD OF SXTX IN IR4F3A06910 04423 0500 00 4 00000 RDD10 CLA SXTX,4 GET 1ST WORD OF SXTX ENTRY F3A06920 04424 0402 00 0 04176 SUB SXLOC COMPARE TO SXLOC OR 3RD WORD OF CIT. F3A06930 04425 0100 00 0 04431 TZE RDD12 EQUAL TRANSFER. F3A06940 04426 1 77776 4 04427 TXI RDD11,4,-2TBF2 NOT IQUAL DECREASE IR 4 BY 2. F3A06950 04427 3 00000 4 04423 RDD11 TXH RDD10,4,** TEST FOR END OF SXTX TABLE F3A06960 04430 1 77774 2 04411 TXI RDD08,2,-2TBF4 YES GO BACK AND GET NEXT CIT. F3A06970 BINARY CARD NO. 9F220016 04431 1 77777 4 04432 RDD12 TXI *+1,4,-1 DECREASE IR4 BY 1. F3A06980 04432 0500 00 4 00000 CLA SXTX,4 GET 2ND WORD OF SXTX ENTRY F3A06990 04433 0601 00 2 00002 STO DO+2,2 PUT IT IN 3RD WORD OF CIT. F3A07000 04434 0600 00 2 00000 STZ DO,2 PUT ZEROS IN 1ST WORD OF CIT F3A07010 04435 1 77774 2 04411 TXI RDD08,2,-2TBF4 DECREASE IR2 BY 4 AND RETURN FOR CIT.F3A07020 04436 -0534 00 2 04355 RDD13 LXD RDD04,2 LOAD IR2 WITH 2S COMP OF 1ST BUF ADD.F3A07030 04437 0774 00 1 00000 RDD14 AXT **,1 RESTORE IR1 F3A07040 04440 0774 00 4 00000 RDD15 AXT **,4 RESTORE IR4 F3A07050 04441 0020 00 4 00001 TRA 1,4 RETURN F3A07060 TEST FOR END OF COMPDO BUFFER F3A07080 F3A07090 04442 3 00000 2 04444 TESTD TXH *+2,2,** TEST FOR END OF COMPDO BUFFER F3A07100 04443 0020 00 4 00001 TRA 1,4 RETURN OF ONE IS END. F3A07110 04444 0020 00 4 00002 TRA 2,4 RETURN OF TWO IS CONTINUE. F3A07120 DOUBLE BUFFER COMPAIL READ ROUTINE F3A07140 F3A07150 04445 0634 00 4 04511 RDA01 SXA RDA10,4 SAVE IR4 F3A07160 04446 0634 00 2 04510 SXA RDA09,2 SAVE IR2. F3A07170 04447 0774 00 1 00010 RDA02 AXT SKLST-CAIL1,1 GET INDEX FOR NEXT BUFFER. F3A07180 04450 0074 00 4 04331 TSX RDTBB,4 READ A RECORD. F3A07190 04451 3 00007 1 04455 TXH RDA03,1,SKLST-CAIL2 TEST BUFFER SWITCH F3A07200 04452 0774 00 1 00010 AXT SKLST-CAIL1,1 RESET INDEX FOR BUFFER 1. F3A07210 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 18 04453 0634 00 1 04447 SXA RDA02,1 SAVE INDEX FOR NEXT READ. F3A07220 04454 0020 00 0 04457 TRA RDA04 TRANSFER F3A07230 04455 0774 00 1 00007 RDA03 AXT SKLST-CAIL2,1 RESET INDEX FOR BUFFER 2. F3A07240 04456 0634 00 1 04447 SXA RDA02,1 SAVE INDEX FOR NEXT READ. F3A07250 BINARY CARD NO. 9F220017 04457 -3 00000 0 04460 RDA04 TXL *+1,0,** SWITCH TO READ ANOTHER RECORD FOR THEF3A07260 04460 0774 00 1 04464 AXT RDA05,1 FIRST TIME THRU THIS ROUTINE. F3A07270 04461 0634 00 1 04457 SXA *-2,1 THE DECREMENT OF RDA04 IS USED FOR F3A07280 04462 0055 00 000200 SIR FAIL SET IND FOR FIRST READ OF AIL F3A07290 04463 0020 00 0 04447 TRA RDA02 IR1 POINTER TO BUFFER BEING PROCESSEDF3A07300 04464 0500 00 1 05170 RDA05 CLA RISE,1 GET LOGICAL TAPE NUMBER FROM DEC F3A07310 04465 -0734 00 2 00000 PDX ,2 AND PLACE IN IR2. COMPUTE THE ADDRESSF3A07320 04466 1 73672 2 04467 TXI *+1,2,(SCHU) FOR THE STORE CHANNEL AND F3A07330 04467 0634 00 2 04470 SXA RDA06,2 SAVE THE ADDRESS IN RDA06. F3A07340 04470 -0520 00 0 00000 RDA06 NZT ** TEST THE STORE CHANNEL CELL FOR ZERO F3A07350 04471 0020 00 0 07574 TRA FAD15 YES TRANSFER OUT F3A07360 04472 0500 60 0 04470 CLA* RDA06 NO GET STORE CHANNEL IN AC F3A07370 04473 0737 00 2 00000 PAC ,2 LOAD IR2 WITH LAST ADDRESS PLUS ONE F3A07380 04474 -0634 00 2 04500 SXD RDA07,2 SAVE IR2 IN RDA07 FOR COMPUTING. F3A07390 04475 -0634 00 2 04513 SXD TESTA,2 SAVE IR2 IN TESTA FOR TEST. F3A07400 04476 0500 00 1 05116 CLA SKLST,1 GET 1ST ADDRESS OF BUFFER IN AC F3A07410 04477 0734 00 2 00000 PAX ,2 LOAD IR2 WITH 1ST ADDRESS OF BUFFER. F3A07420 04500 1 00000 2 04501 RDA07 TXI *+1,2,** COMPUTE 2S COMP OF LENGTH OF BUFFER. F3A07430 04501 0737 00 1 00000 PAC ,1 LOAD IR1 WITH 2S COMP OF 1ST ADD OF BF3A07440 04502 0754 00 2 00000 PXA ,2 CLEAR AC AND PUT 2S COMP OF LENGTH F3A07450 04503 -0320 00 0 04132 ANA L(3) IN THE ADDRESS AND GET BITS 35 AND 36F3A07460 04504 0100 00 0 04506 TZE *+2 TRANSFER OUT TO ERROR CITS ARE NOT 4 F3A07470 BINARY CARD NO. 9F220018 04505 0020 00 0 04100 TRA ERR12 GO TO IO PACKAGE. F3A07480 04506 -0634 00 1 04457 SXD RDA04,1 SAVE IR1 WITH 2S COMP OF BUFFER LOC. F3A07490 04507 -0534 00 1 04457 RDA08 LXD RDA04,1 LOAD IR1 F3A07500 04510 0774 00 2 00000 RDA09 AXT **,2 RESTORE IR2 F3A07510 04511 0774 00 4 00000 RDA10 AXT **,4 RESTORE IR4 F3A07520 04512 0020 00 4 00001 TRA 1,4 RETURN F3A07530 TEST FOR END OF COMPAIL BUFFER F3A07550 F3A07560 04513 3 00000 1 04515 TESTA TXH *+2,1,** TEST FOR END OF COMPAIL BUFFER F3A07570 04514 0020 00 4 00001 TRA 1,4 RETURN OF ONE IS END. F3A07580 04515 0020 00 4 00002 TRA 2,4 RETURN OF TWO IS CONTINUE. F3A07590 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 19 F3A07610 STANDARD CIT COMPILING ROUTINE. F3A07620 F3A07630 COMPILES CITS IN AN OUTPUT BUFFER INITIALIZED AT THE F3A07640 BEGINNING OF A RECORD OR BLOCK OF CODING. RETURNS TO THEF3A07650 THIRD LOCATION FOLLOWING THE TSX. F3A07660 THE CALLING SEQUENCE IS AS FOLLOWS - F3A07670 F3A07680 $ TSX CIT00,4 F3A07690 PZE 1ST WD - ALPHA,,2ND WD - INSTRUCTION F3A07700 PZE 3RD WD - SYMBOL,,4TH WD - ADDEND, I-TAU F3A07710 $$ RETURN F3A07720 F3A07730 04516 0634 00 1 04537 CIT00 SXA CIR1,1 **SAVE IR1, IR2, AND IR4. F3A07740 04517 0634 00 2 04540 SXA CIR2,2 F3A07750 04520 0634 00 4 04523 SXA CIR4,4 F3A07760 04521 0074 00 4 04574 TSX CIBLD,4 $GET CIB INCREMENT. F3A07770 04522 -0734 00 2 00000 PDX ,2 $$LOAD CIB INCREMENT FROM DECREMENT OF AC. F3A07780 04523 0774 00 4 00000 CIR4 AXT **,4 RELOAD IR 4. F3A07790 04524 0774 00 1 00002 AXT 2,1 LOAD LOOP COUNT. F3A07800 04525 0500 00 4 00001 CIT01 CLA 1,4 ..GET 1ST THEN IND WORD OF CALLING SEQUENCE. F3A07810 04526 0771 00 0 00022 ARS 18 INITIALIZE CLA WITH ADDRESS OF 2ND OR 4TH F3A07820 04527 0621 00 0 04530 STA *+1 WORD ADDRESSES. F3A07830 04530 0500 00 0 00000 CLA ** GET 2ND THEN 4TH WORD OF CIT ENTRY. F3A07840 04531 0601 00 2 00001 STO CIB+1,2 STORE IN BUFFER. F3A07850 04532 0500 60 4 00001 CLA* 1,4 GET 1ST THEN 3RD WORD OF CIT ENTRY. F3A07860 BINARY CARD NO. 9F220019 04533 0601 00 2 00000 STO CIB,2 STORE IN BUFFER. F3A07870 04534 1 77777 4 04535 TXI *+1,4,-1 INCREMENT CALL ADDRESS. F3A07880 04535 1 77776 2 04536 TXI *+1,2,-2 INCREMENT CIT BUFFER ADDRESS. F3A07890 04536 2 00001 1 04525 TIX CIT01,1,1 .GO THROUGH LOOP TWICE. F3A07900 04537 0774 00 1 00000 CIR1 AXT **,1 RELOAD IR 1 AND IR 2. F3A07910 04540 0774 00 2 00000 CIR2 AXT **,2 F3A07920 04541 0020 00 4 00001 TRA 1,4 *RETURN TO CALLER. F3A07930 F3A07940 SUBROUTINES CITIR1 AND CITIR2. F3A07950 F3A07960 SUBROUTINE CITIR1 F3A07970 F3A07980 SPECIAL SUBROUTINE TO MOVE CITS FROM ONE BUFFER TO THE F3A07990 OUTPUT BUFFER WHEN IR1 IS USED AS THE INCREMENT FOR THE F3A08000 THE INPUT BUFFER. RETURNS TO THE 1ST LOCATION AFTER THE F3A08010 TSX. INPUT AND OUTPUT BUFFER ADDRESSES ARE INITIALIZED F3A08020 AT THE BEGINNING OF A RECORD OR BLOCK OF CODE. F3A08030 F3A08040 $ TSX CITIR1,4 F3A08050 $$ RETURN F3A08060 F3A08070 04542 0634 00 2 04554 CITR1 SXA KIR2,2 **SAVE IR 2 AND IR 4. F3A08080 04543 0634 00 4 04555 SXA KIR4,4 F3A08090 04544 0074 00 4 04574 TSX CIBLD,4 $GET CIB INCREMENT. F3A08100 04545 -0734 00 2 00000 PDX ,2 $$LOAD CIB INCREMENT FROM DECREMENT OF AC. F3A08110 04546 0774 00 4 00004 AXT 4,4 LOAD LOOP COUNT. F3A08120 04547 0500 00 1 00000 CITRA CLA **,1 ..GET 1ST WORD OF CIT, THEN 2ND,3RD, AND 4TH.F3A08130 04550 0601 00 2 00000 STO CIB,2 STORE IN OUTPUT BUFFER. F3A08140 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 20 04551 1 77777 1 04552 TXI *+1,1,-1 INCREMENT INPUT BUFFER REFERENCE. F3A08150 04552 1 77777 2 04553 TXI *+1,2,-1 INCREMENT OUTPUT BUFFER REFERENCE. F3A08160 04553 2 00001 4 04547 TIX CITRA,4,1 .GO BACK AND MOVE 2ND, 3RD, AND 4TH WORDS. F3A08170 04554 0774 00 2 00000 KIR2 AXT **,2 RELOAD IR 2 AND IR 4. F3A08180 04555 0774 00 4 00000 KIR4 AXT **,4 F3A08190 04556 0020 00 4 00001 TRA 1,4 *RETURN TO CALLER. F3A08200 F3A08210 SUBROUTINE CITIR2 F3A08220 F3A08230 SUBROUTINE CITIR2 IS THE SAME AS SUBROUTINE CITIR1, F3A08240 EXCEPT THAT IT USES IR2 AS THE REFERENCE TO THE INPUT F3A08250 BUFFER. F3A08260 F3A08270 04557 0634 00 1 04571 CITR2 SXA VIR1,1 **SAVE IR 1 AND IR 4. F3A08280 04560 0634 00 4 04572 SXA VIR4,4 F3A08290 BINARY CARD NO. 9F220020 04561 0074 00 4 04574 TSX CIBLD,4 $GET CIB INCREMENT. F3A08300 04562 -0734 00 1 00000 PDX ,1 $$LOAD CIB INCREMENT FROM DECREMENT OF AC. F3A08310 04563 0774 00 4 00004 AXT 4,4 LOAD LOOP COUNT. F3A08320 04564 0500 00 2 00000 CITRB CLA **,2 ..GET 1ST WORD OF CIT, THEN 2ND,3RD AND 4TH. F3A08330 04565 0601 00 1 00000 STO CIB,1 STORE IN OUT PUT BUFFER. F3A08340 04566 1 77777 1 04567 TXI *+1,1,-1 INCREMENT OUTPUT BUFFER REFERENCE. F3A08350 04567 1 77777 2 04570 TXI *+1,2,-1 INCREMENT INPUT BUFFER REFERENCE. F3A08360 04570 2 00001 4 04564 TIX CITRB,4,1 .GO BACK AND MOVE 2ND, 3RD, AND 4TH WORDS. F3A08370 04571 0774 00 1 00000 VIR1 AXT **,1 RELOAD IR 1 AND IR 4. F3A08380 04572 0774 00 4 00000 VIR4 AXT **,4 F3A08390 04573 0020 00 4 00001 TRA 1,4 *RETURN TO CALLER. F3A08400 F3A08410 CIBLD SUBROUTINE. F3A08420 F3A08430 TESTS FOR A FULL CIB BUFFER AND CALLS THE I/O ROUTINE F3A08440 WHEN THE BUFFER IS FULL. LEAVES THE CURRENT F3A08450 CIB INCREMENT IN THE DECREMENT FIELD OF THE AC. F3A08460 F3A08470 ROUTINE TO WRITE FOR DOUBLE BUFFER WRITE ROUTINES F3A08480 F3A08490 04574 0634 00 4 04605 CIBLD SXA CIBL4,4 SAVE IR4 F3A08500 04575 -0534 00 4 04300 LXD CINF,4 GET 2S COMP OF LAST ADDRESS F3A08510 04576 0520 00 0 04577 ZET CIBL1 SWITCH TO FORCE WRITE BY 0 IN CIBL1. F3A08520 04577 3 00000 4 04602 CIBL1 TXH CIBL3,4,** TEST FOR FULL BUFFER. F3A08530 04600 0074 00 4 04607 CIBL2 TSX WTOV,4 YES GO TO CORRECT ROUTINE. F3A08540 04601 -0534 00 4 04300 LXD CINF,4 RELOAD IR4 WITH 2S COMP 1ST ADDRESS. F3A08550 04602 -0754 00 4 00000 CIBL3 PXD ,4 LEAVE 2S COMP IN AC FOR COMPILE. F3A08560 04603 1 77774 4 04604 TXI *+1,4,-4 BUMP IR4 BY 4. F3A08570 04604 -0634 00 4 04300 SXD CINF,4 SAVE NEW 2S COMP IN CINF. F3A08580 04605 0774 00 4 00000 CIBL4 AXT **,4 RESTORE IR4. F3A08590 04606 0020 00 4 00001 TRA 1,4 RETURN F3A08600 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 21 ROUTINE TIFGO FILE OVER FLOW AND DOUBLE BUFFER OVER FLOW F3A08620 F3A08630 BINARY CARD NO. 9F220021 04607 0520 00 0 04610 WTOV ZET WTV01 SWITCH TO TEST TIFGO FILE OVERFLOW F3A08640 04610 0074 00 4 04074 WTV01 TSX ERR10,4 TRANSFER OUT DIAG. F3A08650 04611 0634 00 4 04662 SXA WTV10,4 SAVE IR4 F3A08660 04612 0634 00 1 04661 SXA WTV09,1 SAVE IR1 F3A08670 04613 0020 00 0 04614 WTV02 TRA *+1 SWITCH FOR FIRST TIME THRU ON F3A08680 04614 0774 00 1 04625 AXT WTV03,1 FIRST FILE OVERFLOW. F3A08690 04615 0634 00 1 04613 SXA WTV02,1 CHANGE ADDRESS OF TRANSFER. F3A08700 04616 0534 00 1 04300 LXA CINF,1 GET 1ST ADDRESS OF FIRST FILE AND F3A08710 04617 0634 00 1 04305 SXA SFFIF,1 SAVE IT IN SFFIF CELL. F3A08720 04620 0774 00 1 00006 AXT SKLST-FIRF1,1 LOAD IR1 WITH INDEX TO BUFFER 1 OF F3A08730 04621 0500 00 1 05116 CLA SKLST,1 FIRST FILE OVERFLOW AND GET THE 1ST F3A08740 04622 0737 00 1 00000 PAC ,1 ADDRESS OF THIS BUFFER AND SAVE IT F3A08750 04623 -0634 00 1 04305 SXD SFFIF,1 IN THE DEC OF SFFIF AND IN ADDRESS F3A08760 04624 0634 00 1 04300 SXA CINF,1 OF CINF. F3A08770 04625 -0535 00 4 04300 WTV03 LDC CINF,4 GET LAST ADD PLUS OF BUFFER AND F3A08780 04626 -0634 00 4 04632 SXD WTV05,4 PUT IT IN DEC OF WTV05 F3A08790 04627 0774 00 1 00006 WTV04 AXT SKLST-FIRF1,1 LOAD IR1 WITH INDEX TO BUFFER F3A08800 04630 0500 00 1 05116 CLA SKLST,1 GET 2S COMP OF 1ST ADDRESS F3A08810 04631 0737 00 4 00000 PAC ,4 OF BUFFER IN IR4 AND F3A08820 04632 1 00000 4 04633 WTV05 TXI *+1,4,** COMPUTE LENTH OF BUFFER IN IR4. F3A08830 04633 -0754 00 4 00000 PXD ,4 CLEAR AC AND LENGTH IN DEC OF AC. F3A08840 04634 0622 00 1 05116 STD SKLST,1 PUT WORD COUNT OF BUFFER IN COMMAND. F3A08850 BINARY CARD NO. 9F220022 04635 -0320 00 0 04144 ANA L(3D) GET BITS 17 AND 18 AND TEST AC FOR F3A08860 04636 0100 00 0 04640 TZE *+2 ZERO. IF NON ZERO GO TO DIAG F3A08870 04637 0074 00 4 04103 TSX ERR13,4 F3A08880 04640 -0634 00 4 04642 SXD WTV06,4 PUT BUFFER WORD COUNT IN DEC. F3A08890 04641 0534 00 4 04301 LXA WARCT,4 UPDATE WORD COUNT OF OVERFLOW F3A08900 04642 1 00000 4 04643 WTV06 TXI *+1,4,** IN WARCT CELL AND PUT F3A08910 04643 0634 00 4 04301 SXA WARCT,4 BACK IN ADDRESS OF CELL WARCT F3A08920 04644 0074 00 4 04331 TSX RDTBB,4 WRITE BUFFER F3A08930 04645 3 00005 1 04651 TXH WTV07,1,SKLST-FIRF2 SWITCH TO RESET INDEX FOR NEXT WRITE F3A08940 04646 0774 00 1 00006 AXT SKLST-FIRF1,1 RESET INDEX FOR BUFFER 1 F3A08950 04647 0634 00 1 04627 SXA WTV04,1 SAVE INDEX. F3A08960 04650 0020 00 0 04653 TRA WTV08 TRANSFER F3A08970 04651 0774 00 1 00005 WTV07 AXT SKLST-FIRF2,1 RESET INDEX FOR BUFFER 2. F3A08980 04652 0634 00 1 04627 SXA WTV04,1 SAVE INDEX F3A08990 04653 0500 00 1 05116 WTV08 CLA SKLST,1 WITH RESET INDEX RESET CINF CELL. F3A09000 04654 0737 00 1 00000 PAC ,1 PUT 2S COMP OF 1ST ADDRESS OF F3A09010 04655 0634 00 1 04300 SXA CINF,1 BUFFER IN ADDRESS AND DECREMENT. F3A09020 04656 -0634 00 1 04300 SXD CINF,1 DECREMENT WILL DECREAS AS BUFFER F3A09030 04657 1 77470 1 04660 WTVP8 TXI *+1,1,-5FRB2 IS FILLED. COMPUTE THE LAST ADDRESS. F3A09040 04660 -0634 00 1 04577 SXD CIBL1,1 PLUS ONE FOR TEST IN LIBLD ROUTINE. F3A09050 04661 0774 00 1 00000 WTV09 AXT **,1 RESTORE IR1. F3A09060 04662 0774 00 4 00000 WTV10 AXT **,4 RESTORE IR4 F3A09070 BINARY CARD NO. 9F220023 04663 0020 00 4 00001 TRA 1,4 RETURN. F3A09080 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 22 ROUTINE TO DOUBLE BUFFER CITS F3A09100 F3A09110 04664 0634 00 4 04725 WTCT SXA WTC07,4 SAVE IR4. F3A09120 04665 0634 00 1 04724 SXA WTC06,1 SAVE IR1. F3A09130 04666 -0535 00 4 04300 LDC CINF,4 GET LAST ADDRESS OF BUFFER. F3A09140 04667 -0634 00 4 04673 SXD WTC02,4 PUT LAST ADD IN DEC. F3A09150 04670 0774 00 1 00004 WTC01 AXT SKLST-CIT31,1 GET INDEX TO BUFFER F3A09160 04671 0500 00 1 05116 CLA SKLST,1 GET 1ST ADD OF CIT BUFFER. F3A09170 04672 0737 00 4 00000 PAC ,4 LOAD IR4 WITH 2S COMP OF BUFFER ADD. F3A09180 04673 1 00000 4 04674 WTC02 TXI *+1,4,** COMPUTE WORD COUNT F3A09190 04674 -0754 00 4 00000 PXD ,4 PLACE WORD COUNT IN DEC OF AC F3A09200 04675 0622 00 1 05116 STD SKLST,1 PUT WORD COUNT IN COMMAND F3A09210 04676 -0320 00 0 04144 ANA L(3D) GET BITS 16 AND 17. F3A09220 04677 0100 00 0 04701 TZE *+2 IS WORD COUNT MULTIPLE OF FOUR. F3A09230 04700 0074 00 4 04104 TSX ERR14,4 NO GO TO DIAG F3A09240 04701 0754 00 4 00000 PXA ,4 PUT WORD COUNT IN ADD F3A09250 04702 0400 00 0 04273 ADD WARCN ADD PREVIOUS WORD COUNT F3A09260 04703 0601 00 0 04273 STO WARCN STORE WORD AND RECORD COUNT F3A09270 04704 -0320 00 0 04314 ANA TAG4 TEST BIT 18 OF WORD COUNT F3A09280 04705 0100 00 0 04707 TZE *+2 IF ZERO TRANSFER F3A09290 04706 0074 00 4 04126 TSX ERR24,4 IF NOW ZERO GO TO DIAG F3A09300 04707 0074 00 4 04331 TSX RDTBB,4 WRITE RECORD OF CITS. F3A09310 04710 3 00003 1 04714 TXH WTC04,1,SKLST-CIT32 IS THIS BUFFER 1 OR 2 F3A09320 BINARY CARD NO. 9F220024 04711 0774 00 1 00004 AXT SKLST-CIT31,1 WAS BUFFER 2 GET INDEX TO BUF 1 F3A09330 04712 0634 00 1 04670 SXA WTC01,1 PUT INDEX IN WTC01 F3A09340 04713 0020 00 0 04716 TRA WTC05 TRANSFER. F3A09350 04714 0774 00 1 00003 WTC04 AXT SKLST-CIT32,1 WAS BUFFER 1 GET INDEX TO BUF 2. F3A09360 04715 0634 00 1 04670 SXA WTC01,1 PUT INDEX IN WTC01 F3A09370 04716 0500 00 1 05116 WTC05 CLA SKLST,1 GET 1ST ADD OF NEXT BUFFER F3A09380 04717 0737 00 1 00000 PAC ,1 LOAD IR1 WITH 2S COMP OF 1ST ADD F3A09390 04720 0634 00 1 04300 SXA CINF,1 RESET ADDRESS AND F3A09400 04721 -0634 00 1 04300 SXD CINF,1 DECREMENT OF CINF. F3A09410 04722 1 77470 1 04723 WTCP5 TXI *+1,1,-5CTB2 COMPUTE LAST ADDRESS OF BUFFER. F3A09420 04723 -0634 00 1 04577 SXD CIBL1,1 PUT IT IN TEST F3A09430 04724 0774 00 1 00000 WTC06 AXT **,1 RESTORE IR1 F3A09440 04725 0774 00 4 00000 WTC07 AXT **,4 RESTORE IR4 F3A09450 04726 0020 00 4 00001 TRA 1,4 TRANSFER. F3A09460 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 23 ROUTINE TO READ DO FILE C F3A09480 F3A09490 04727 0634 00 4 04770 RDC01 SXA RDC08,4 SAVE IR4 F3A09500 04730 0774 00 1 00002 RDC02 AXT SKLST-A)FU1,1 GET INDEX TO BUFFER. F3A09510 04731 0074 00 4 04331 TSX RDTBB,4 READ A RECORD F3A09520 04732 3 00001 1 04736 TXH RDC03,1,SKLST-A)FU2 WHICH BUFFER READ F3A09530 04733 0774 00 1 00002 AXT SKLST-A)FU1,1 2ND BUFFER READ GET INDEX TO 1ST F3A09540 04734 0634 00 1 04730 SXA RDC02,1 SAVE INDEX FOR NEXT READ F3A09550 04735 0020 00 0 04740 TRA RDC04 TRANSFER F3A09560 04736 0774 00 1 00001 RDC03 AXT SKLST-A)FU2,1 1ST BUFFER READ GET INDEX TO 2ND F3A09570 BINARY CARD NO. 9F220025 04737 0634 00 1 04730 SXA RDC02,1 SAVE IT FOR NEXT READ. F3A09580 04740 -3 00000 0 04741 RDC04 TXL *+1,0,** SWITCH FOR FIRST FIME THRU F3A09590 04741 0774 00 1 04744 AXT RDC05,1 GET ADD FOR FOLLOWING TIMES THRU F3A09600 04742 0634 00 1 04740 SXA RDC04,1 RESET SWITCH F3A09610 04743 0020 00 0 04730 TRA RDC02 TRANSFER TO READ ANOTHER RECORD. F3A09620 04744 0500 00 1 05170 RDC05 CLA RISE,1 GET TAPE NUMBER F3A09630 04745 -0734 00 2 00000 PDX ,2 PUT TAPE NUMBER IN IR2 F3A09640 04746 1 73672 2 04747 TXI *+1,2,(SCHU) COMPUTE STORE CHANNEL ADDRESS F3A09650 04747 0634 00 2 04750 SXA RDC06,2 SAVE IT F3A09660 04750 -0520 00 0 00000 RDC06 NZT ** WAS THERE A RECORD F3A09670 04751 0020 00 0 11043 TRA BOUT2 NO TRANSFER OUT F3A09680 04752 0500 60 0 04750 CLA* RDC06 GET THE LAST ADD F3A09690 04753 0737 00 2 00000 PAC ,2 PUT THE 2S COMP OF LAST ADD IN IR2 F3A09700 04754 -0634 00 2 04760 SXD RDC07,2 SAVE IT FOR COMPUTATION F3A09710 04755 -0634 00 2 11304 SXD TESTC,2 SAVE IT IN TEST F3A09720 04756 0500 00 1 05116 CLA SKLST,1 GET 1ST ADD OF BUFFER F3A09730 04757 0734 00 2 00000 PAX ,2 PUT IT IN IR2 F3A09740 04760 1 00000 2 04761 RDC07 TXI *+1,2,** COMPUTE THE WORD COUNT F3A09750 04761 0737 00 1 00000 PAC ,1 GET 2S COMP OF 1ST ADD IN IR1 F3A09760 04762 0754 00 2 00000 PXA ,2 PUT WORD COUNT IN AC. F3A09770 04763 -0320 00 0 04132 ANA L(3) IS WORD COUNT MULTIPLE OF 4 F3A09780 04764 0100 00 0 04766 TZE *+2 YES TRANSFER F3A09790 BINARY CARD NO. 9F220026 04765 0020 00 0 04123 TRA ERR23 NO GO TO IO PACKAGE. F3A09800 04766 -0634 00 1 04740 SXD RDC04,1 SAVE ENTRY POINT F3A09810 04767 -0534 00 1 04740 LXD RDC04,1 LOAD ENTRY POINT F3A09820 04770 0774 00 4 00000 RDC08 AXT **,4 RESTORE IR4 F3A09830 04771 0020 00 4 00001 TRA 1,4 TRANSFER F3A09840 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 24 IO PACKAGE LIST TABLE F3A09860 F3A09870 04772 0 20000 1 05116 PZE SKLST,1,(SKBP) REWIND TAPE 4 F3A09880 04773 0 40000 1 05116 PZE SKLST,1,(RBNP) READ TRALEV TAPE 4 F3A09890 04774 0 20000 1 05116 PZE SKLST,1,(SKBP) SKIP 0 TAPE 2 F3A09900 04775 0 40000 1 05116 PZE SKLST,1,(RBNP) READ TIFGO TAPE 2 F3A09910 04776 0 20000 1 05116 PZE SKLST,1,(SKBP) SKIP 0 TAPE 4 F3A09920 04777 0 40004 1 05116 PZE SKLST,1,(RBEP) READ TRALEV TAPE 4 F3A09930 05000 0 20000 1 05116 PZE SKLST,1,(SKBP) SKIP 0 TAPE 2 F3A09940 05001 0 40000 1 05116 PZE SKLST,1,(RBNP) READ TRAD TAPE 2 F3A09950 05002 0 20000 1 05116 PZE SKLST,1,(SKBP) SKIP 0 TAPE 4 F3A09960 05003 0 40014 1 05116 PZE SKLST,1,(RBEC) READ EOF TRALEV AND CHECK TAPE 4 F3A09970 05004 0 20000 1 05116 PZE SKLST,1,(SKBP) SKIP 3 RECORDS TAPE 2 F3A09980 05005 0 40000 1 05116 PZE SKLST,1,(RBNP) READ FORTAG TAPE 2 F3A09990 05006 0 20000 1 05116 PZE SKLST,1,(SKBP) SKIP 3 FILES TAPE 2 F3A10000 05007 0 40001 1 05116 PZE SKLST,1,(WBNP) WRITE ASCON3 TAPE 2 F3A10010 05010 0 40005 1 05116 PZE SKLST,1,(WEFP) WRITE EOF TAPE 2 F3A10020 05011 0 40001 1 05116 PZE SKLST,1,(WBNP) WRITE FIXCON TAPE 2 F3A10030 05012 0 40005 1 05116 PZE SKLST,1,(WEFP) WRITE EOF TAPE 2 F3A10040 BINARY CARD NO. 9F220027 05013 0 20000 1 05116 PZE SKLST,1,(SKBP) SKIP BACK 9 FILES TAPE 2 F3A10050 05014 0 20000 1 05116 PZE SKLST,1,(SKBP) SKIP 1 FILE TAPE 2 F3A10060 05015 0 40001 1 05116 PZE SKLST,1,(WBNP) WRITE FORFUN TAPE 3 F3A10070 05016 0 40005 1 05116 PZE SKLST,1,(WEFP) WRITE EOF TAPE 3 F3A10080 05017 0 20000 1 05116 PZE SKLST,1,(SKBP) REWIND TAPE 4A F3A10090 05020 0 40005 1 05116 PZE SKLST,1,(WEFP) WRITE EOF TAPE 3A F3A10100 05021 0 20000 1 05116 PZE SKLST,1,(SKBP) SKIP BACK 2 FILES TAPE 3A F3A10110 05022 0 20000 1 05116 PZE SKLST,1,(SKBP) SKIP 1 FILE TAPE 3 F3A10120 05023 0 20000 1 05116 PZE SKLST,1,(SKBP) SKIP 2 FILES AND 5 RECORDS F3A10130 05024 0 20000 1 05116 PZE SKLST,1,(SKBP) REWIND TAPE 3 F3A10140 05025 0 40005 1 05116 PZE SKLST,1,(WEFP) WRITE EOF TAPE 4A F3A10150 05026 0 40000 1 05116 PZE SKLST,1,(RBNP) READ FORFUN TAPE 3 F3A10160 05027 0 20000 1 05116 PZE SKLST,1,(SKBP) SKIP 1 FILE AND CHECK TAPE 3 F3A10170 05030 0 40005 1 05116 PZE SKLST,1,(WEFP) WRITE EOF TAPE 4A F3A10180 05031 0 20000 1 05116 PZE SKLST,1,(SKBP) REWIND AND CHECKED TAPE 4A F3A10190 05032 0 40004 1 05116 PZE SKLST,1,(RBEP) READ COMPDO BUFFER TAPE 4 F3A10200 05033 0 40004 1 05116 PZE SKLST,1,(RBEP) READ COMPDO BUFFER TAPE 4 F3A10210 05034 0 40004 1 05116 PZE SKLST,1,(RBEP) READ COMPAIL BUFFER TAPE 2 F3A10220 05035 0 40004 1 05116 PZE SKLST,1,(RBEP) READ COMPAIL BUFFER TAPE 2 F3A10230 05036 0 40001 1 05116 SRD1 PZE SKLST,1,(WBNP) WRITE AND READ FIRST FILE OVERFLOW F3A10240 05037 0 40001 1 05116 SRD2 PZE SKLST,1,(WBNP) WRITE AND READ FIRST FILE OVERFLOW. F3A10250 05040 0 40001 1 05116 PZE SKLST,1,(WBNP) WRITE CITS03 BUFFER TAPE 4A F3A10260 BINARY CARD NO. 9F220028 05041 0 40001 1 05116 PZE SKLST,1,(WBNP) WRITE CITS03 BUFFER TAPE 4A F3A10270 05042 0 40004 1 05116 PZE SKLST,1,(RBEP) READ A)FUNC BUFFER TAPE 3 F3A10280 05043 0 40004 1 05116 PZE SKLST,1,(RBEP) READ A)FUNC BUFFER TAPE 3 F3A10290 05044 LIST SYN * F3A10300 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 25 IO PACKAGE SKLST TABLE F3A10320 F3A10330 05044 0 00000 0 00000 SKLTX PZE 0,,0 REWIND TAPE 4 F3A10340 05045 3 04064 0 47724 STRLA IORT 6TRLV,,5TRLV/2+4TRLV READ 1ST RECORD TRALEV TAPE 4. F3A10350 05046 0 00000 0 00000 PZE 0,,0 SKIP TAPE 2 F3A10360 05047 3 04066 0 43636 STFGO IORT 6TFGO,,5TFGO+4TFGO READ TIFGO TAPE 2. F3A10370 05050 0 00000 0 00000 PZE 0,,0 SKIP TAPE 4 F3A10380 05051 3 04064 0 54010 STRLB IORT 6TRLV+5TRLV/2+4TRLV,,5TRLV/2 READ 2ND TRALEV TAPE 4. F3A10390 05052 0 00000 0 00000 PZE 0,,0 SKIP TAPE 2 F3A10400 05053 3 01555 0 42061 STRAD IORT 6TRAD,,5TRAD+4TRAD READ TRAD TAPE 2 F3A10410 05054 0 00000 0 00000 PZE 0,,0 SKIP TAPE 4 F3A10420 05055 3 00001 0 60074 STRLC IORT 6FXCN,,1 READ EOF TAPE 4. F3A10430 05056 0 00000 0 00003 PZE 3,,0 SKIP TAPE 2 F3A10440 05057 3 12204 0 13073 SFRTG IORT 6FRTG,,5FRTG+4FRTG READ FORTAG TAPE 2. F3A10450 05060 0 00002 0 00000 PZE 0,,2 SKIP TAPE 2 F3A10460 05061 3 00000 0 62127 SASCN IORT 6UCTG,,** WRITE ASCON3 TAPE 2. F3A10470 05062 0 00000 0 00000 PZE WRITE EOF TAPE 2 F3A10480 05063 3 00000 0 60074 SFXCN IORT 6FXCN,,** WRITE FIXCON TAPE 2. F3A10490 05064 0 00000 0 00000 PZE WRITE EOF TAPE 2 F3A10500 05065 -0 00010 0 00000 MZE 0,,8 SKIP BACK TO COMPAIL TAPE 2 F3A10510 05066 0 00001 0 00000 PZE 0,,1 SKIP TO COMPAIL TAPE 2 F3A10520 BINARY CARD NO. 9F220029 05067 -1 00000 0 00000 SFRFW IOCT **,,** WRITE FORFUN TAPE 2 $F3A10530 05070 0 00000 0 00000 PZE WRITE EOF TAPE 2 F3A10540 05071 0 77777 0 00000 PZE 0,,-1 REWIND TAPE 4A F3A10550 05072 0 00000 0 00000 PZE WRITE EOF TAPE 3A F3A10560 05073 -0 00002 0 00000 MZE 0,,2 SKIP BACK TO FIRFIL TAPE 3A F3A10570 05074 0 00001 0 00000 PZE 0,,1 SKIP TO FIRFIL TAPE 3A F3A10580 05075 0 00002 0 00005 PZE 5,,2 SKIP TO TIFGO AND CHECK TAPE 2 F3A10590 05076 0 77777 0 00000 PZE 0,,-1 REWIND TAPE 3 F3A10600 05077 0 00000 0 00000 PZE WRITE EOF TAPE 4A F3A10610 05100 3 00000 0 00000 SFRFR IORT **,,** READ FORFUN TAPE 3 F3A10620 05101 0 00001 0 00000 PZE 0,,1 SKIP TAPE 3 F3A10630 05102 0 00000 0 00000 PZE WRITE EOF TAPE 4A F3A10640 05103 0 77777 0 00000 PZE 0,,-1 REWIND AND CHECKED TAPE 4A F3A10650 05104 3 00310 0 64637 CODO1 IORT 7DBF1,,5DBF1 READ COMPDO BUFFER 1 TAPE. F3A10660 05105 3 00310 0 65147 CODO2 IORT 7DBF2,,5DBF2 READ COMPDO BUFFER 2 TAPE 4. F3A10670 05106 3 00310 0 64017 CAIL1 IORT 7ALB1,,5ALB1 READ COMPAIL BUFFER 1 TAPE 2. F3A10680 05107 3 00310 0 64327 CAIL2 IORT 7ALB2,,5ALB2 READ COMPAIL BUFFER 2 TAPE 2. F3A10690 05110 3 00000 0 63177 FIRF1 IORT 7FRB1,,** WRITE AND READ FIRST 1 TAPE 3A. F3A10700 05111 3 00000 0 63507 FIRF2 IORT 7FRB2,,** WRITE AND READ FIRST 2 TAPE 3A. F3A10710 05112 3 00000 0 66672 CIT31 IORT 7CTB1,,** WRITE CIT03 AND A)FUN BUFF 1 TAPE 4A.F3A10720 05113 3 00000 0 67202 CIT32 IORT 7CTB2,,** WRITE CIT03 AND A)FUN BUFF 2 TAPE 4A.F3A10730 05114 3 00310 0 66052 A)FU1 IORT 7DCB1,,5DCB1 READ A)FUNC BUFFER 1 TAPE 3. F3A10740 BINARY CARD NO. 9F220030 05115 3 00310 0 66362 A)FU2 IORT 7DCB2,,5DCB2 READ A)FUNC BUFFER 2 TAPE 3. F3A10750 05116 SKLST SYN * F3A10760 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 26 IO PACKAGE RISE TABLE F3A10780 F3A10790 05116 0 00004 1 05242 PZE TLABL,1,CDOTP F3A10800 05117 0 00004 1 05242 PZE TLABL,1,CDOTP F3A10810 05120 0 00002 1 05242 PZE TLABL,1,TBTAP F3A10820 05121 0 00002 1 05242 PZE TLABL,1,TBTAP F3A10830 05122 0 00004 1 05242 PZE TLABL,1,CDOTP F3A10840 05123 0 00004 1 05242 PZE TLABL,1,CDOTP F3A10850 05124 0 00002 1 05242 PZE TLABL,1,TBTAP F3A10860 05125 0 00002 1 05242 PZE TLABL,1,TBTAP F3A10870 05126 0 00004 1 05242 PZE TLABL,1,CDOTP F3A10880 05127 0 00004 1 05242 PZE TLABL,1,CDOTP F3A10890 05130 0 00002 1 05242 PZE TLABL,1,TBTAP F3A10900 05131 0 00002 1 05242 PZE TLABL,1,TBTAP F3A10910 05132 0 00002 1 05242 PZE TLABL,1,TBTAP F3A10920 05133 0 00002 1 05242 PZE TLABL,1,TBTAP F3A10930 05134 0 00002 1 05242 PZE TLABL,1,TBTAP F3A10940 05135 0 00002 1 05242 PZE TLABL,1,TBTAP F3A10950 05136 0 00002 1 05242 PZE TLABL,1,TBTAP F3A10960 05137 0 00002 1 05242 PZE TLABL,1,TBTAP F3A10970 05140 0 00002 1 05242 PZE TLABL,1,TBTAP F3A10980 05141 0 00003 1 05242 PZE TLABL,1,CSBTP F3A10990 05142 0 00003 1 05242 PZE TLABL,1,CSBTP F3A11000 BINARY CARD NO. 9F220031 05143 0 00004 1 05242 PZE TLABL,1,CITTP F3A11010 05144 0 00003 1 05242 PZE TLABL,1,VFLTP F3A11020 05145 0 00003 1 05242 PZE TLABL,1,VFLTP F3A11030 05146 0 00003 1 05242 PZE TLABL,1,VFLTP F3A11040 05147 0 00002 1 05242 PZE TLABL,1,TBTAP F3A11050 05150 0 00003 1 05242 PZE TLABL,1,CSBTP F3A11060 05151 0 00004 1 05242 PZE TLABL,1,CITTP F3A11070 05152 0 00003 1 05242 PZE TLABL,1,CSBTP F3A11080 05153 0 00003 1 05242 PZE TLABL,1,CSBTP F3A11090 05154 0 00004 1 05242 PZE TLABL,1,CITTP F3A11100 05155 0 00004 1 05242 PZE TLABL,1,CITTP F3A11110 05156 0 00004 1 05242 PZE TLABL,1,CDOTP F3A11120 05157 0 00004 1 05242 PZE TLABL,1,CDOTP F3A11130 05160 0 00002 1 05242 PZE TLABL,1,TBTAP F3A11140 05161 0 00002 1 05242 PZE TLABL,1,TBTAP F3A11150 05162 0 00003 1 05242 PZE TLABL,1,VFLTP F3A11160 05163 0 00003 1 05242 PZE TLABL,1,VFLTP F3A11170 05164 0 00004 1 05242 PZE TLABL,1,CITTP F3A11180 05165 0 00004 1 05242 PZE TLABL,1,CITTP F3A11190 05166 0 00003 1 05242 PZE TLABL,1,CSBTP F3A11200 05167 0 00003 1 05242 PZE TLABL,1,CSBTP F3A11210 05170 RISE SYN * F3A11220 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 27 IO PACKAGE TLABL TABLE F3A11240 F3A11250 05170 635121432565 BCI 1,TRALEV F3A11260 BINARY CARD NO. 9F220032 05171 635121432565 BCI 1,TRALEV F3A11270 05172 633126274660 ALAB1 BCI 1,TIFGO F3A11280 05173 633126274660 BCI 1,TIFGO F3A11290 05174 635121432565 BCI 1,TRALEV F3A11300 05175 635121432565 BCI 1,TRALEV F3A11310 05176 635121246060 ALAB2 BCI 1,TRAD F3A11320 05177 635121246060 BCI 1,TRAD F3A11330 05200 635121432565 BCI 1,TRALEV F3A11340 05201 635121432565 BCI 1,TRALEV F3A11350 05202 264651632127 ALAB3 BCI 1,FORTAG F3A11360 05203 264651632127 BCI 1,FORTAG F3A11370 05204 216223464503 BCI 1,ASCON3 F3A11380 05205 216223464503 BCI 1,ASCON3 F3A11390 05206 216223464503 BCI 1,ASCON3 F3A11400 05207 263167234503 BCI 1,FIXCN3 F3A11410 05210 263167234503 BCI 1,FIXCN3 F3A11420 05211 0 00000 0 00000 PZE F3A11430 05212 234644213143 BCI 1,COMAIL F3A11440 05213 264651266445 BCI 1,FORFUN F3A11450 05214 264651266445 BCI 1,FORFUN F3A11460 05215 0 00000 0 00000 PZE F3A11470 05216 263151263143 BCI 1,FIRFIL F3A11480 BINARY CARD NO. 9F220033 05217 0 00000 0 00000 PZE F3A11490 05220 263151263143 BCI 1,FIRFIL F3A11500 05221 633126274660 BCI 1,TIFGO F3A11510 05222 213426644523 BCI 1,A)FUNC F3A11520 05223 233163620003 BCI 1,CITS03 F3A11530 05224 264651266445 ALAB7 BCI 1,FORFUN F3A11540 05225 0 00000 0 00000 PZE F3A11550 05226 213426644560 ALA11 BCI 1,A)FUN F3A11560 05227 233163620003 BCI 1,CITS03 F3A11570 05230 234644472446 ALAB4 BCI 1,COMPDO F3A11580 05231 234644472446 BCI 1,COMPDO F3A11590 05232 234644213143 ALAB5 BCI 1,COMAIL F3A11600 05233 234644213143 BCI 1,COMAIL F3A11610 05234 263151263143 ALAB6 BCI 1,FIRFIL F3A11620 05235 263151263143 BCI 1,FIRFIL F3A11630 05236 233163620003 ALAB9 BCI 1,CITS03 F3A11640 05237 233163620003 ALA10 BCI 1,CITS03 F3A11650 05240 213426644523 ALAB8 BCI 1,A)FUNC F3A11660 05241 213426644523 BCI 1,A)FUNC F3A11670 05242 TLABL SYN * F3A11680 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 28 ROUTINE TO INITIALIZE STORAGE F3A11700 F3A11710 05242 0500 00 0 04274 HELLO CLA MEMRY GET TOP FROM ASSEMBLY AND F3A11720 05243 -0320 00 0 04152 ANA DCMSK COMPARE IT TO XTOP FROM PARAMETER. F3A11730 05244 0340 00 0 04277 CAS XTOP IF NOT EQUAL GO TO INITIALIZATION TIRA F3A11740 BINARY CARD NO. 9F220034 05245 0020 00 0 05263 TRA TIRA F3A11750 05246 0020 00 0 05250 TRA *+2 GO TO NEXT TEST F3A11760 05247 0020 00 0 05263 TRA TIRA F3A11770 05250 0535 00 1 03735 LAC CL01A,1 GET SIZE OF UPPER IO PACKAGE IN IR1 F3A11780 05251 0754 00 1 00000 PXA ,1 AND PUT IT ADDRESS OF AC. F3A11790 05252 0340 00 0 04275 CAS XIOUP COMPAPE IT TO XIOUP FROM PARAMETER F3A11800 05253 0020 00 0 05263 TRA TIRA IF NOT EQUAL GO TO INITIALIZATION TIRA F3A11810 05254 0020 00 0 05256 TRA *+2 GO TO NEXT TEST F3A11820 05255 0020 00 0 05263 TRA TIRA F3A11830 05256 -0535 00 1 03757 LDC CL08,1 GET SIZE OF DUMMY BUFFER 7 IN IR1 F3A11840 05257 0754 00 1 00000 PXA ,1 AND PUT IT IN ADDRESS OF AC. F3A11850 05260 0340 00 0 04276 CAS XDUM7 COMPARE IT TO XDUM7 FROM PARAMETER F3A11860 05261 0020 00 0 05263 TRA TIRA IF EQUAL GO TO START BY PASSING INITIAL. F3A11870 05262 0020 00 0 05512 TRA START IF NOT EQUAL DO INTIALIZATION. F3A11880 05263 0774 00 1 00031 TIRA AXT CL14-CL01,1 LOAD IR1 WITH LENGTH OF TABLE F3A11890 05264 0500 00 1 03765 CLA CL14,1 COMPUTE TABLE LOCATION AND F3A11900 05265 1 77777 1 05266 TXI *+1,1,-1 STORE THEM FOR PHASE 1 AND 2 F3A11910 05266 0774 00 2 00030 AXT 9DM02-9IO01,2 F3A11920 05267 0400 00 1 03765 ADD CL14,1 F3A11930 05270 -0320 00 0 04307 ANA PTMSK MASK FOR ADD AND DEC. F3A11940 05271 0601 00 2 04032 STO 9DM02,2 F3A11950 05272 1 77777 2 05273 TXI *+1,2,-1 F3A11960 BINARY CARD NO. 9F220035 05273 2 00001 1 05267 TIX *-4,1,1 F3A11970 05274 -0734 00 1 00000 PDX ,1 AC HAS LOCATION OF LOWEST TABLES FOR F3A11980 05275 0734 00 2 00000 PAX ,2 PHASES 1 AND 2. F3A11990 05276 -0634 00 2 05277 SXD *+1,2 PHASE 1 IN ADD AND PHASE 2 IN DEC. F3A12000 05277 3 00000 1 05320 TXH OTH,1,** TRANSFER IF PHASE 2 LOCATION IS HIGHER F3A12010 05300 0754 00 1 00000 PXA ,1 PHASE 2 IS LOWER GET ADDRESS FOR F3A12020 05301 0522 00 0 05513 XEC STR1 BOTTOM TABLE AND SUBTRACT IT FROM F3A12030 05302 0634 00 1 04162 SXA 3WD,1 F3A12040 05303 0402 00 0 04162 SUB 3WD F3A12050 05304 0340 00 0 04130 CAS L(0) COMPARE THE RESULT TO ZERO F3A12060 05305 0020 00 0 05306 TRA *+1 AC GREATER THAN ZERO F3A12070 05306 0020 00 0 05326 TRA TIRB GO AND INITIALIZE REST OF THE TABLE F3A12080 05307 -0535 00 1 03757 LDC CL08,1 AC LESS THAN ZERO. GET THE SIZE OF F3A12090 05310 0634 00 1 04162 SXA 3WD,1 F3A12100 05311 0400 00 0 04162 ADD 3WD F3A12110 05312 -0120 00 0 05316 TMI RZT TRANSFER ON MINUS F3A12120 05313 0737 00 1 00000 BRT PAC ,1 RESET DUMMY BUFFER 7 SIZE WHEN F3A12130 05314 -0634 00 1 03757 SXD CL08,1 PLUS AND GO BACK AND INITIALIZE F3A12140 05315 0020 00 0 05263 TRA TIRA AGAIN F3A12150 05316 0100 00 0 05313 RZT TZE BRT IF ZERO RESET TO ZERO F3A12160 05317 0074 00 4 04047 TSX ERR1,4 IF NEGATIVE GO TO DIAG F3A12170 05320 0774 00 1 00005 OTH AXT CL13-CL08,1 LOAD IR1 WITH INDEX TO GET TYPE 2 THRU F3A12180 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 29 BINARY CARD NO. 9F220036 05321 0500 00 1 03764 CLA CL13,1 TYPE 6 SIZE CELLS. ADD THREE TO THE ADD F3A12190 05322 0400 00 0 04132 ADD L(3) TO REDUCE THE SIZE OF THE TABLES F3A12200 05323 0601 00 1 03764 STO CL13,1 USED IN THE SORT OF TRASTO F3A12210 05324 2 00001 1 05321 TIX *-3,1,1 AND RETURN F3A12220 05325 0020 00 0 05263 TRA TIRA TO INITIALIZE AGAIN. F3A12230 05326 0500 00 0 04005 TIRB CLA 8TSCM COMPUTE TABLE LOCATIONS AND STORE F3A12240 05327 0774 00 1 00013 AXT CL25-CL14,1 THEM FOR PHASES 3 AND 4 F3A12250 05330 0774 00 2 00013 AXT 9DM01-9DM02,2 F3A12260 05331 0400 00 1 04000 ADD CL25,1 F3A12270 05332 -0320 00 0 04307 ANA PTMSK MASK FOR ADD AND DEC. F3A12280 05333 0601 00 2 04045 STO 9DM01,2 F3A12290 05334 1 77777 2 05335 TXI *+1,2,-1 F3A12300 05335 2 00001 1 05331 TIX *-4,1,1 F3A12310 05336 0500 00 0 04003 CLA 8DCAR COMPUTE TABLE LOCATIONS AND STORE F3A12320 05337 0774 00 1 00002 AXT CL27-CL25,1 THEM FOR PHASES 5 AND 6 F3A12330 05340 0774 00 2 00002 AXT 8CTCT-9DM01,2 F3A12340 05341 0400 00 1 04002 ADD CL27,1 F3A12350 05342 -0320 00 0 04307 ANA PTMSK MASK FOR ADD AND DEC. F3A12360 05343 0601 00 2 04047 STO 8CTCT,2 F3A12370 05344 1 77777 2 05345 TXI *+1,2,-1 F3A12380 05345 2 00001 1 05341 TIX *-4,1,1 F3A12390 05346 -0535 00 1 03751 LDC CL02,1 GET 5TRALV IN IR1 F3A12400 BINARY CARD NO. 9F220037 05347 0754 00 1 00000 PXA ,1 CLEAR AC AND PUT 5TRALV IN ADD. F3A12410 05350 0771 00 0 00001 ARS 1 GET 5TRALV/2 F3A12420 05351 0734 00 1 00000 PAX ,1 PUT 5TRALV/2 IN IR1 F3A12430 05352 -0634 00 1 05051 SXD STRLB,1 SKLST TABLE F3A12440 05353 -0535 00 2 03752 LDC CL03,2 GET 4TRALV IN IR2 F3A12450 05354 -0634 00 2 05355 SXD *+1,2 F3A12460 05355 1 00000 1 05356 TXI *+1,1,** F3A12470 05356 -0634 00 1 05045 SXD STRLA,1 PUT 5TRALV/2+4TRALV IN SKLST TABLE F3A12480 05357 -0534 00 2 04017 LXD 8TRLV,2 GET 6TRALEV IN IR 2. F3A12490 05360 0634 00 2 05045 SXA STRLA,2 PUT 6TRALV IN SKLST TABLE F3A12500 05361 -0634 00 2 05362 SXD *+1,2 F3A12510 05362 1 00000 1 05363 TXI *+1,1,** F3A12520 05363 0634 00 1 05051 SXA STRLB,1 PUT 6TRALV+5TRALV/2+4TRALV IN SKLST TABLE F3A12530 05364 0634 00 1 06035 SXA PEC03,1 SAVE 1ST ADD OF SECOND TRALEV READ. F3A12540 05365 -0535 00 1 03753 LDC CL04,1 GET 4TIFGO F3A12550 05366 -0535 00 2 03754 LDC CL05,2 GET 5TIFGO F3A12560 05367 -0634 00 2 05370 SXD *+1,2 F3A12570 05370 1 00000 1 05371 TXI *+1,1,** F3A12580 05371 -0634 00 1 05047 SXD STFGO,1 PUT 5TIFGO+4TIFGO IN SKLST TABLE F3A12590 05372 -0534 00 1 04021 LXD 8TFGO,1 GET 6TIFGO. F3A12600 05373 0634 00 1 05047 SXA STFGO,1 PUT 6TIFGO IN SKLST TABLE F3A12610 05374 -0535 00 1 03755 LDC CL06,1 GET 5TRAD F3A12620 BINARY CARD NO. 9F220038 05375 -0535 00 2 03756 LDC CL07,2 GET 4TRAD F3A12630 05376 -0634 00 2 05377 SXD *+1,2 F3A12640 05377 1 00000 1 05400 TXI *+1,1,** F3A12650 05400 -0634 00 1 05053 SXD STRAD,1 PUT 5TRAD+4TRAD IN SKLST TABLE F3A12660 05401 -0534 00 1 04023 LXD 8TRAD,1 GET 6TRAD F3A12670 05402 0634 00 1 05053 SXA STRAD,1 PUT 6TRAD IN SKLST TABLE F3A12680 05403 -0535 00 1 03760 LDC CL09,1 GET 5FORTG F3A12690 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 30 05404 -0535 00 2 03761 LDC CL10,2 GET 4FORTG F3A12700 05405 -0634 00 2 05406 SXD *+1,2 F3A12710 05406 1 00000 1 05407 TXI *+1,1,** F3A12720 05407 -0634 00 1 05057 SXD SFRTG,1 PUT 5FORTG+4FORTG IN SKLST TABLE F3A12730 05410 -0534 00 1 04026 LXD 8FRTG,1 GET 6FRTG. F3A12740 05411 0634 00 1 05057 SXA SFRTG,1 PUT 6FORTG IN SKLST TABLE F3A12750 05412 -0534 00 1 04015 LXD 8FXCN,1 GET 6FIXCON. F3A12760 05413 0634 00 1 05063 SXA SFXCN,1 PUT 6FIXCN IN SKLST TABLE F3A12770 05414 0634 00 1 05055 SXA STRLC,1 PUT 6FIXCN IN SKLST TABLE F3A12780 05415 -0534 00 1 04013 LXD 8ASCN,1 GET 6ASCON. F3A12790 05416 0634 00 1 05061 SXA SASCN,1 PUT 6ASCON IN SKLST TABLE F3A12800 05417 0535 00 1 03771 LAC CL18,1 INITIALIZE COMPDO BUFFERS F3A12810 05420 -0634 00 1 05104 SXD CODO1,1 IN SKLST TABLE. F3A12820 05421 -0634 00 1 05105 SXD CODO2,1 F3A12830 05422 0534 00 1 04036 LXA 9DBF1,1 F3A12840 BINARY CARD NO. 9F220039 05423 0534 00 2 04035 LXA 9DBF2,2 F3A12850 05424 0634 00 1 05104 SXA CODO1,1 F3A12860 05425 0634 00 2 05105 SXA CODO2,2 F3A12870 05426 0535 00 1 03774 LAC CL21,1 INITIALIZE COMPAIL BUFFERS F3A12880 05427 -0634 00 1 05106 SXD CAIL1,1 IN SKLST TABLE F3A12890 05430 -0634 00 1 05107 SXD CAIL2,1 F3A12900 05431 0534 00 1 04041 LXA 9ALB1,1 F3A12910 05432 0534 00 2 04040 LXA 9ALB2,2 F3A12920 05433 0634 00 1 05106 SXA CAIL1,1 F3A12930 05434 0634 00 2 05107 SXA CAIL2,2 F3A12940 05435 -0534 00 1 04034 LXD 9CTB1,1 INITIALIZE CIT BUFFERS. F3A12950 05436 -0534 00 2 04033 LXD 9CTB2,2 IN SKLST TABLE. F3A12960 05437 0634 00 1 05112 SXA CIT31,1 F3A12970 05440 0634 00 2 05113 SXA CIT32,2 F3A12980 05441 -0534 00 2 03767 LXD CL16,2 F3A12990 05442 -0634 00 2 04722 SXD WTCP5,2 F3A13000 05443 -0634 00 2 11033 SXD BOUTP,2 F3A13010 05444 -0535 00 1 03772 LDC CL19,1 INITIALIZE DO FILE C BUFFERS F3A13020 05445 -0634 00 1 05114 SXD A)FU1,1 IN SKLST TABLE F3A13030 05446 -0634 00 1 05115 SXD A)FU2,1 F3A13040 05447 -0534 00 1 04037 LXD 9DCB1,1 F3A13050 05450 -0534 00 2 04036 LXD 9DCB2,2 F3A13060 BINARY CARD NO. 9F220040 05451 0634 00 1 05114 SXA A)FU1,1 F3A13070 05452 0634 00 2 05115 SXA A)FU2,2 F3A13080 05453 0535 00 1 04024 LAC 9TPE6,1 INITIALIZE FOR TYPE 6 TRASTO SORT. F3A13090 05454 -0634 00 1 05672 SXD 6BOX,1 AND MERGE F3A13100 05455 1 77777 1 05456 TXI *+1,1,-1 F3A13110 05456 -0634 00 1 06017 SXD K4,1 F3A13120 05457 -0634 00 1 06026 SXD K2,1 F3A13130 05460 0535 00 1 04025 LAC 9TPE5,1 INITIALIZE FOR TYPE 5 TRASTO SORT. F3A13140 05461 -0634 00 1 05671 SXD 5BOX,1 AND MERGE F3A13150 05462 1 77777 1 05463 TXI *+1,1,-1 F3A13160 05463 -0634 00 1 06005 SXD J6,1 F3A13170 05464 -0634 00 1 06014 SXD J3,1 F3A13180 05465 0535 00 1 04026 LAC 9TPE4,1 INITIALIZE FOR TYPE 4 TRASTO SORT. F3A13190 05466 -0634 00 1 05670 SXD 4BOX,1 AND MERGE F3A13200 05467 1 77777 1 05470 TXI *+1,1,-1 F3A13210 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 31 05470 -0634 00 1 05771 SXD I3,1 F3A13220 05471 -0634 00 1 06000 SXD I2,1 F3A13230 05472 0535 00 1 04027 LAC 9TPE3,1 INITIALIZE FOR TYPE 3 TRASTO SORT. F3A13240 05473 -0634 00 1 05667 SXD 3BOX,1 AND MERGE F3A13250 05474 1 77777 1 05475 TXI *+1,1,-1 F3A13260 05475 -0634 00 1 05756 SXD H6,1 F3A13270 05476 -0634 00 1 05765 SXD H4,1 F3A13280 BINARY CARD NO. 9F220041 05477 0535 00 1 04030 LAC 9TPE2,1 INITIALIZE FOR TYPE 2 TRASTO SORT. F3A13290 05500 -0634 00 1 05666 SXD 2BOX,1 AND MERGE F3A13300 05501 1 77777 1 05502 TXI *+1,1,-1 F3A13310 05502 -0634 00 1 05744 SXD G3,1 F3A13320 05503 -0634 00 1 05753 SXD G4,1 F3A13330 05504 0535 00 1 04010 LAC 9TRST,1 INITIALIZE 1 BOX FOR TYPE 1 TRASTO SORT. F3A13340 05505 -0634 00 1 05665 SXD 1BOX,1 AND MERGE. F3A13350 05506 0534 00 1 03776 LXA CL23,1 INITIALIZE OVERFLOW BUFFER SIZE. F3A13360 05507 -0634 00 1 04657 SXD WTVP8,1 F3A13370 05510 0535 00 1 03777 LAC CL24,1 F3A13380 05511 -0634 00 1 06330 SXD PC13B,1 F3A13390 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 32 START OF SECTION THREE F3A13410 05512 0441 00 0 04130 START LDI L(0) RESET INDICATORS TO ZERO F3A13430 05513 0774 00 1 12300 STR1 AXT BTTAB,1 GET BOTTOM ADDRESS OF TABLE IN IR 1. F3A13440 05514 0534 00 2 04015 LXA 8FXCN,2 GET TOP ADDRESS OF STORAGE TO BE ZEROED. F3A13450 05515 0634 00 2 05520 SXA *+3,2 F3A13460 05516 -0634 00 1 05517 SXD *+1,1 F3A13470 05517 2 00000 2 05520 TIX *+1,2,** F3A13480 05520 0600 00 2 00000 STZ **,2 ZERO STORAGE F3A13490 05521 2 00001 2 05520 TIX *-1,2,1 F3A13500 05522 0774 00 2 00004 AXT 4,2 F3A13510 05523 0074 00 4 04327 TSX RDTBA,4 READ 1ST FOUR IO COMMANDS F3A13520 05524 2 00001 2 05523 TIX *-1,2,1 F3A13530 BINARY CARD NO. 9F220042 05525 0535 00 1 04010 LAC 9TRST,1 GET TRASTO ENTRY POINT. F3A13540 05526 0634 00 1 06374 SXA M2103,1 INITIALIZE TRASTO ENTRY POINT. F3A13550 05527 -0634 00 1 07057 SXD M2701,1 INITIALIZE TRASTO TEST. F3A13560 05530 -0520 60 0 04011 NZT* 8TRST IS TRASTO EMPTY. F3A13570 05531 0020 00 0 05673 TRA PACK YES F3A13580 05532 0500 00 0 04010 CLA 9TRST NO GET TRASTO ADDRESS. F3A13590 05533 0400 60 0 04011 ADD* 8TRST ADD TRASTO WORD COUNT. F3A13600 05534 0737 00 2 00000 PAC ,2 GET 2S COMP OF LAST ADDRESS IN IR2 F3A13610 05535 -0634 00 2 07057 SXD M2701,2 INITIALIZE TEST. F3A13620 05536 -0634 00 2 05561 SXD A1,2 INITIALIZE TEST FOR TRASTO SORT F3A13630 05537 -0634 00 2 05600 SXD B3,2 F3A13640 05540 -0634 00 2 05613 SXD C5,2 F3A13650 05541 -0634 00 2 05630 SXD D3,2 F3A13660 05542 -0634 00 2 05647 SXD E4,2 F3A13670 05543 -0634 00 2 05662 SXD F6,2 F3A13680 05544 1 77776 1 05545 TXI A4,1,-2 BUMP IR1 TO GET 3ND WORD IN TRASTO ENTRY F3A13690 TRASTO SORT F3A13710 F3A13720 05545 0500 00 1 00000 A4 CLA TRAST,1 GET 3RD WORD. F3A13730 05546 -0120 00 0 05616 TMI D1 MINUS IS TYPE 4,5 AND 6 F3A13740 ENTRY IS TYPE 1,2 OR 3. F3A13760 F3A13770 05547 1 00002 1 05550 TXI *+1,1,2 RESTORE TO 1ST WORD F3A13780 05550 0500 00 1 00000 CLA TRAST,1 GET 1ST WORD. F3A13790 05551 0120 00 0 05564 TPL B2 PLUS IS TYPE 1 OR 2 F3A13800 ENTRY IS TYPE 3 F3A13820 F3A13830 05552 0534 00 4 04132 LXA L(3),4 PLACE COUNT OF 3 IN IR 4 F3A13840 BINARY CARD NO. 9F220043 05553 -0534 00 2 05667 LXD 3BOX,2 LOAD IR2 WITH CURRENT 2S COMP OF TYPE 3LOCF3A13850 05554 -0500 00 1 00000 A3 CAL TRAST,1 GET CURRENT TRASTO. F3A13860 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 33 05555 0602 00 2 00000 SLW TYPE3,2 STORE IN TYPE 3 F3A13870 05556 1 77777 2 05557 TXI *+1,2,-1 INCREASE IR 2 BY 1 F3A13880 05557 -0634 00 2 05667 SXD 3BOX,2 SAVE IR 2 F3A13890 05560 1 77777 1 05561 TXI *+1,1,-1 INCREASE IR 1 BY 1 TO GET NEXT TRASTO F3A13900 05561 -3 00000 1 05673 A1 TXL PACK,1,** *EXIT FOR END OF TRASTO F3A13910 05562 2 00001 4 05554 TIX A3,4,1 LOOP BACK FOR THREE WORD OF ENTRY F3A13920 05563 1 77776 1 05545 TXI A4,1,-2 BACK TO PICK UP NEXT TRASTO ENTRY F3A13930 ENTRY IS TYPE 1 OR 2 F3A13950 F3A13960 05564 1 77777 1 05565 B2 TXI *+1,1,-1 F3A13970 05565 -0500 00 1 00000 CAL TRAST,1 OBTAIN 2ND WORD. F3A13980 05566 -0320 00 0 04172 ANA MASK EXAMINE PREFIX, TYPE 2 IF MINUS F3A13990 05567 0100 00 0 05603 TZE C1 F3A14000 ENTRY IS TYPE 2 F3A14020 F3A14030 05570 1 00001 1 05571 TXI *+1,1,1 RESTORE IR 1 TO GET 1ST WORD F3A14040 05571 0534 00 4 04132 LXA L(3),4 F3A14050 05572 -0534 00 2 05666 LXD 2BOX,2 F3A14060 05573 -0500 00 1 00000 B5 CAL TRAST,1 F3A14070 05574 0602 00 2 00000 SLW TYPE2,2 F3A14080 05575 1 77777 2 05576 TXI *+1,2,-1 F3A14090 05576 -0634 00 2 05666 SXD 2BOX,2 F3A14100 05577 1 77777 1 05600 TXI *+1,1,-1 F3A14110 05600 -3 00000 1 05673 B3 TXL PACK,1,** F3A14120 BINARY CARD NO. 9F220044 05601 2 00001 4 05573 TIX B5,4,1 F3A14130 05602 1 77776 1 05545 TXI A4,1,-2 F3A14140 ENTRY IS TYPE 1 F3A14160 F3A14170 05603 1 00001 1 05604 C1 TXI *+1,1,1 RESTORE IR 1 TO GET 1ST WORD F3A14180 05604 0534 00 4 04132 LXA L(3),4 F3A14190 05605 -0534 00 2 05665 LXD 1BOX,2 F3A14200 05606 -0500 00 1 00000 C2 CAL TRAST,1 F3A14210 05607 0602 00 2 00000 SLW TYPE1,2 F3A14220 05610 1 77777 2 05611 TXI *+1,2,-1 F3A14230 05611 -0634 00 2 05665 SXD 1BOX,2 F3A14240 05612 1 77777 1 05613 TXI *+1,1,-1 F3A14250 05613 -3 00000 1 05673 C5 TXL PACK,1,** F3A14260 05614 2 00001 4 05606 TIX C2,4,1 F3A14270 05615 1 77776 1 05545 TXI A4,1,-2 F3A14280 ENTRY IS TYPE 4,5 OR 6 F3A14300 F3A14310 05616 1 00002 1 05617 D1 TXI *+1,1,2 RESTORE IR 1 TO GET 1ST WORD F3A14320 05617 0500 00 1 00000 CLA TRAST,1 OBTAIN 1ST WORD. F3A14330 05620 0120 00 0 05633 TPL E2 ENTRY IS TYPE 4 OR 6 F3A14340 ENTRY IS TYPE 5 F3A14360 F3A14370 05621 0534 00 4 04132 LXA L(3),4 F3A14380 05622 -0534 00 2 05671 LXD 5BOX,2 F3A14390 05623 -0500 00 1 00000 D2 CAL TRAST,1 F3A14400 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 34 05624 0602 00 2 00000 SLW TYPE5,2 F3A14410 05625 1 77777 2 05626 TXI *+1,2,-1 F3A14420 05626 -0634 00 2 05671 SXD 5BOX,2 F3A14430 BINARY CARD NO. 9F220045 05627 1 77777 1 05630 TXI *+1,1,-1 F3A14440 05630 -3 00000 1 05673 D3 TXL PACK,1,** F3A14450 05631 2 00001 4 05623 TIX D2,4,1 F3A14460 05632 1 77776 1 05545 TXI A4,1,-2 F3A14470 ENTRY IS TYPE 4 OR 6 F3A14490 F3A14500 05633 1 77777 1 05634 E2 TXI *+1,1,-1 F3A14510 05634 -0500 00 1 00000 CAL TRAST,1 OBTAIN 2ND WORD. F3A14520 05635 -0320 00 0 04172 ANA MASK TEST IF MINUS F3A14530 05636 0100 00 0 05652 TZE F4 ENTRY IS TYPE 4 F3A14540 ENTY IS TYPE 6 F3A14560 F3A14570 05637 1 00001 1 05640 TXI *+1,1,1 RESTORE COUNT TO GET 1ST WORD F3A14580 05640 0534 00 4 04132 LXA L(3),4 F3A14590 05641 -0534 00 2 05672 LXD 6BOX,2 F3A14600 05642 -0500 00 1 00000 E3 CAL TRAST,1 F3A14610 05643 0602 00 2 00000 SLW TYPE6,2 F3A14620 05644 1 77777 2 05645 TXI *+1,2,-1 F3A14630 05645 -0634 00 2 05672 SXD 6BOX,2 F3A14640 05646 1 77777 1 05647 TXI *+1,1,-1 F3A14650 05647 -3 00000 1 05673 E4 TXL PACK,1,** F3A14660 05650 2 00001 4 05642 TIX E3,4,1 F3A14670 05651 1 77776 1 05545 TXI A4,1,-2 F3A14680 ENTRY IS TYPE 4 F3A14700 F3A14710 05652 1 00001 1 05653 F4 TXI *+1,1,1 RESTORE COUNT TO GET 1ST WORD F3A14720 05653 0534 00 4 04132 LXA L(3),4 F3A14730 05654 -0534 00 2 05670 LXD 4BOX,2 F3A14740 BINARY CARD NO. 9F220046 05655 -0500 00 1 00000 F5 CAL TRAST,1 F3A14750 05656 0602 00 2 00000 SLW TYPE4,2 F3A14760 05657 1 77777 2 05660 TXI *+1,2,-1 F3A14770 05660 -0634 00 2 05670 SXD 4BOX,2 F3A14780 05661 1 77777 1 05662 TXI *+1,1,-1 F3A14790 05662 -3 00000 1 05673 F6 TXL PACK,1,** F3A14800 05663 2 00001 4 05655 TIX F5,4,1 F3A14810 05664 1 77776 1 05545 TXI A4,1,-2 F3A14820 CONTROL TABLE FOR TRASTO SORT F3A14840 F3A14850 05665 0 14353 0 00000 1BOX PZE ,,-7TRST VARIES TO 2S COMP OF LAST TYPE 1 TRASTO. F3A14860 05666 0 50121 0 00000 2BOX PZE ,,-7TPE2 VARIES TO 2S COMP OF LAST TYPE 2 TRASTO. F3A14870 05667 0 46067 0 00000 3BOX PZE ,,-7TPE3 VARIES TO 2S COMP OF LAST TYPE 3 TRASTO. F3A14880 05670 0 44035 0 00000 4BOX PZE ,,-7TPE4 VARIES TO 2S COMP OF LAST TYPE 4 TRASTO. F3A14890 05671 0 42003 0 00000 5BOX PZE ,,-7TPE5 VARIES TO 2S COMP OF LAST TYPE 5 TRASTO. F3A14900 05672 0 37751 0 00000 6BOX PZE ,,-7TPE6 VARIES TO 2S COMP OF LAST TYPE 6 TRASTO. F3A14910 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 35 READ AND CHECK TABLES F3A14930 F3A14940 05673 0074 00 4 04327 PACK TSX RDTBA,4 SKIP 0,,0 TAPE 4 F3A14950 05674 0500 60 0 04016 CLA* 9TRLV CHECK 1ST WORD OF TRALEV FOR ZERO. F3A14960 05675 0100 00 0 05732 TZE PACK3 YES ZERO TRANSFER F3A14970 05676 0074 00 4 06123 TSX SCHU1,4 NO GET STORE CHANNEL IN ADD OF AC F3A14980 05677 0402 00 0 04016 SUB 9TRLV SUBTRACT 1ST ADD OF TRALEV. F3A14990 05700 0734 00 2 00000 PAX ,2 LOAD IR2 WITH WORD COUNT F3A15000 05701 0500 00 0 05051 CLA STRLB GET 5TRALV/2 IN DEC OF AS F3A15010 05702 -0734 00 1 00000 PDX ,1 LOAD IR1 WITH 5TRALV/2 F3A15020 BINARY CARD NO. 9F220047 05703 -0634 00 2 05704 SXD *+1,2 COMPARE WORDS READ INTO MEMORY WITH MAX F3A15030 05704 3 00000 1 05731 TXH PACK2,1,** WORDS FOR ONE RECORD. IF EQUAL DROP THRU. F3A15040 05705 0074 00 4 04327 TSX RDTBA,4 READ NEXT RECORD OF TRALEV F3A15050 05706 0074 00 4 04327 PACK1 TSX RDTBA,4 SKIP 0,,0 TAPE 2 F3A15060 05707 0500 60 0 04021 CLA* 8TFGO CHECK LABEL FOR TIFGO. F3A15070 05710 0402 00 0 04131 SUB L(2) TIFGO LABEL SHOULD BE 2 F3A15080 05711 0100 00 0 05713 TZE *+2 TRANSFER FOR CORRECT LABEL F3A15090 05712 0020 00 0 04050 TRA ERR2 GO TO IO PACAGE FOR INCORRECT LABEL F3A15100 05713 0074 00 4 06123 TSX SCHU1,4 GET STORE CHANNEL IN ADD OF AC F3A15110 05714 0737 00 2 00000 PAC ,2 PUT 2S COMP OF LAST ADDRESS IN IR2 F3A15120 05715 -0634 00 2 06352 SXD M2101,2 INITIALIZE TIFGO TEST. F3A15130 05716 0535 00 2 04020 LAC 9TFGO,2 GET 2S COMP OF 1ST TIFGO ADD IN IR 2. F3A15140 05717 0634 00 2 06351 SXA M2100,2 INITIALIZE TIFGO CELL. F3A15150 05720 0402 00 0 04020 SUB 9TFGO SUBTRACT 1ST ADD TO GET WORD COUNT. F3A15160 05721 0734 00 2 00000 PAX ,2 PUT WORD COUNT F3A15170 05722 -0754 00 2 00000 PXD ,2 IN DEC OF AC F3A15180 05723 0534 00 2 04021 LXA 8TFGO,2 GET ADDRESS OF F3A15190 05724 1 00001 2 05725 TXI *+1,2,1 CELL WITH WORD COUNT IN TABLE LABEL F3A15200 05725 0634 00 2 05726 SXA *+1,2 AND F3A15210 05726 0402 00 0 00000 SUB ** SUBTRACT IT F3A15220 05727 0100 00 0 05736 TZE PACK4 TRANSFER IF EQUAL. F3A15230 05730 0020 00 0 04053 TRA ERR3 NOT EQUAL GO TO IO PACKAGE. F3A15240 BINARY CARD NO. 9F220048 05731 0634 00 2 04204 PACK2 SXA RAVEL,2 SAVE TRALEV WORD COUNT IN ADD OF RAVEL F3A15250 05732 0522 00 0 04327 PACK3 XEC RDTBA BUMP COUNTER IN RDTBA ROUTINE F3A15260 05733 1 77777 1 05734 TXI *+1,1,-1 TO BY PASS SECOND READ OF TRALEV F3A15270 05734 0634 00 1 04327 SXA RDTBA,1 RESTORE INTO COUNTER F3A15280 05735 0020 00 0 05706 TRA PACK1 TRANSFER BACK F3A15290 05736 0074 00 4 04327 PACK4 TSX RDTBA,4 READ TRAD F3A15300 05737 -0520 60 0 04011 NZT* 8TRST IS TRASTO EMPTY. F3A15310 05740 0020 00 0 06030 TRA PEC02 YES F3A15320 TYPE 2 TRASTO PACK F3A15340 F3A15350 05741 -0534 00 1 05665 LXD 1BOX,1 LOAD IR1 WITH 2S COMP OF LAST TYPE 1 F3A15360 05742 -0634 00 1 07134 SXD M2801,1 INITIALIZE TIFGO FILE TEST. F3A15370 05743 -0534 00 4 05666 LXD 2BOX,4 LOAD IR4 WITH 2S COMP OF LAST TYPE 2 F3A15380 05744 3 50120 4 05754 G3 TXH H5,4,-7TPE2-1 IF HIGHER NO TYPE 2 TRASTO FOR PACK. F3A15390 05745 0535 00 2 04030 LAC 9TPE2,2 LOAD IR2 WITH 2S COMP OF 1ST ADD OF TYPE 2F3A15400 05746 -0500 00 2 00000 G5 CAL TYPE2,2 GET TYPE 2 AND F3A15410 05747 0602 00 1 00000 SLW TYPE1,1 STORE ABOVE TYPE 1 IN TRASTO TABLE F3A15420 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 36 05750 1 77777 1 05751 TXI *+1,1,-1 BUMP IR1 F3A15430 05751 1 77777 2 05752 TXI *+1,2,-1 BUMP IR2 F3A15440 05752 1 00001 4 05753 TXI *+1,4,1 BUMP IR4 F3A15450 05753 -3 50120 4 05746 G4 TXL G5,4,-7TPE2-1 TEST IF ALL TYPE 2 HAVE BEEN MOVED. F3A15460 TYPE 3 TRASTO PACK F3A15480 F3A15490 05754 -0634 00 1 07135 H5 SXD M2802,1 INITIALIZE FOR TIFGO FILE. F3A15500 05755 -0534 00 2 05667 LXD 3BOX,2 F3A15510 05756 3 46066 2 05766 H6 TXH I5,2,-7TPE3-1 F3A15520 BINARY CARD NO. 9F220049 05757 0535 00 4 04027 LAC 9TPE3,4 F3A15530 05760 -0500 00 4 00000 H3 CAL TYPE3,4 F3A15540 05761 0602 00 1 00000 SLW TYPE1,1 F3A15550 05762 1 77777 1 05763 TXI *+1,1,-1 F3A15560 05763 1 77777 4 05764 TXI *+1,4,-1 F3A15570 05764 1 00001 2 05765 TXI *+1,2,1 F3A15580 05765 -3 46066 2 05760 H4 TXL H3,2,-7TPE3-1 F3A15590 TYPE 4 TRASTO PACK F3A15610 F3A15620 05766 -0634 00 1 07136 I5 SXD M2803,1 INITIALIZE FOR TIFGO FILE. F3A15630 05767 -0634 00 1 07034 SXD CMP03,1 INITIALIZE FOR TIFGO FILE. F3A15640 05770 -0534 00 4 05670 LXD 4BOX,4 F3A15650 05771 3 44034 4 06001 I3 TXH J5,4,-7TPE4-1 F3A15660 05772 0535 00 2 04026 LAC 9TPE4,2 F3A15670 05773 -0500 00 2 00000 I1 CAL TYPE4,2 F3A15680 05774 0602 00 1 00000 SLW TYPE1,1 F3A15690 05775 1 77777 1 05776 TXI *+1,1,-1 F3A15700 05776 1 77777 2 05777 TXI *+1,2,-1 F3A15710 05777 1 00001 4 06000 TXI *+1,4,1 F3A15720 06000 -3 44034 4 05773 I2 TXL I1,4,-7TPE4-1 F3A15730 TYPE 5 TRASTO PACK F3A15750 F3A15760 06001 -0634 00 1 07137 J5 SXD M2804,1 INITIALIZE FOR TIFGO FILE. F3A15770 06002 -0634 00 1 07035 SXD CMP04,1 INITIALIZE FOR TIFGO FILE. F3A15780 06003 -0634 00 1 07046 SXD CMP08,1 INITIALIZE FOR TIFGO FILE. F3A15790 06004 -0534 00 2 05671 LXD 5BOX,2 F3A15800 BINARY CARD NO. 9F220050 06005 3 42002 2 06015 J6 TXH K5,2,-7TPE5-1 F3A15810 06006 0535 00 4 04025 LAC 9TPE5,4 F3A15820 06007 -0500 00 4 00000 J2 CAL TYPE5,4 F3A15830 06010 0602 00 1 00000 SLW TYPE1,1 F3A15840 06011 1 77777 1 06012 TXI *+1,1,-1 F3A15850 06012 1 77777 4 06013 TXI *+1,4,-1 F3A15860 06013 1 00001 2 06014 TXI *+1,2,1 F3A15870 06014 -3 42002 2 06007 J3 TXL J2,2,-7TPE5-1 F3A15880 TYPE 6 TRASTO PACK F3A15900 F3A15910 06015 -0634 00 1 07140 K5 SXD M2805,1 INITIALIZE FOR TIFGO FILE. F3A15920 06016 -0534 00 4 05672 LXD 6BOX,4 F3A15930 06017 3 37750 4 06027 K4 TXH PEC01,4,-7TPE6-1 F3A15940 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 37 06020 0535 00 2 04024 LAC 9TPE6,2 F3A15950 06021 -0500 00 2 00000 K1 CAL TYPE6,2 F3A15960 06022 0602 00 1 00000 SLW TYPE1,1 F3A15970 06023 1 77777 1 06024 TXI *+1,1,-1 F3A15980 06024 1 77777 2 06025 TXI *+1,2,-1 F3A15990 06025 1 00001 4 06026 TXI *+1,4,1 F3A16000 06026 -3 37750 4 06021 K2 TXL K1,4,-7TPE6-1 F3A16010 06027 -0634 00 1 07141 PEC01 SXD M2806,1 INITIALIZE FOR TIFGO FILE. F3A16020 READ AND CHECK THE REMAINING TABLES F3A16040 F3A16050 06030 0074 00 4 04327 PEC02 TSX RDTBA,4 SKIP 0,,0 TAPE 4 F3A16060 06031 -0520 60 0 04016 NZT* 9TRLV WAS TRALEV EMPTY. F3A16070 06032 0020 00 0 06043 TRA PEC04 YES TRANSFER F3A16080 BINARY CARD NO. 9F220051 06033 0520 00 0 04204 ZET RAVEL WAS TRALEV ONE RECORD F3A16090 06034 0020 00 0 06043 TRA PEC04 YES TRANSFER F3A16100 06035 -0520 00 0 54010 PEC03 NZT 6TRLV+5TRLV/2+4TRLV DID 2ND READ TRLV TRANSMIT. F3A16110 06036 0020 00 0 06117 TRA PEC06 NO TRANSFER F3A16120 06037 0074 00 4 06123 TSX SCHU1,4 YES GET STORE CHANNEL IN AC F3A16130 06040 0402 00 0 04016 SUB 9TRLV COMPUTE TRALEV WORD COUNT BY SUBTRACTING. F3A16140 06041 0734 00 2 00000 PAX ,2 1ST LOCATION AND LOADING IR1 WITH ADD F3A16150 06042 0634 00 2 04204 SXA RAVEL,2 AND SAVING IN ADDRESS OF RAVEL F3A16160 06043 0074 00 4 04327 PEC04 TSX RDTBA,4 TRY TO READ ANOTHER RECORD OF TRALEV F3A16170 06044 0074 00 4 06123 PEC05 TSX SCHU1,4 GET STORE CHANNEL IN AC F3A16180 06045 0100 00 0 06047 TZE *+2 AC SHOULD BE ZERO BECAUSE OF EOF F3A16190 06046 0074 00 4 04056 TSX ERR4,4 AC NOT ZERO GO TO DIAG. F3A16200 06047 0074 00 4 04327 TSX RDTBA,4 SKIP 3,,0 TAPE 2 F3A16210 06050 0500 60 0 04023 CLA* 8TRAD GET TRAD LABEL F3A16220 06051 0402 00 0 04132 SUB L(3) IS LABEL 3 F3A16230 06052 0100 00 0 06054 TZE *+2 YES TRANSFER F3A16240 06053 0020 00 0 04057 TRA ERR5 NO GO TO IO PACKAGE F3A16250 06054 0074 00 4 06123 TSX SCHU1,4 YES GET STORE CHANNEL IN AC F3A16260 06055 0535 00 2 04021 LAC 8TFGO,2 LOAD IR2 WITH 2S COMP LAST POSSIBLE TRAD. F3A16270 06056 -0634 00 2 06467 SXD TWO02,2 INITIALIZE FOR TIFGO FILE F3A16280 06057 1 00001 2 06060 TXI *+1,2,1 BUMP IR2 F3A16290 06060 -0634 00 2 06472 SXD TWO03,2 INITIALIZE FOR TIFGO FILE F3A16300 BINARY CARD NO. 9F220052 06061 0402 00 0 04022 SUB 9TRAD SUBTRACT 1ST ADD F3A16310 06062 0734 00 2 00000 PAX ,2 LOAD IR2 WITH TRAD WORD COUNT F3A16320 06063 0534 00 1 04023 LXA 8TRAD,1 GET LABEL ADDRESS F3A16330 06064 1 00001 1 06065 TXI *+1,1,1 BUMP TO GET WORD COUNT OF LABEL F3A16340 06065 0634 00 1 06067 SXA *+2,1 SAVE ADD OF LABEL WORD COUNT F3A16350 06066 -0754 00 2 00000 PXD ,2 CLEAR AC AND PUT COMPUTED TRAD WORD COUNT F3A16360 06067 0402 00 0 00000 SUB ** IN DEC AND SUBTRACT LABEL WORD COUNT F3A16370 06070 0100 00 0 06072 TZE *+2 WORD COUNTS AGREE TRANSFER F3A16380 06071 0020 00 0 04062 TRA ERR6 NO AGREEMENT GO TO IO PACKAGE. F3A16390 06072 0074 00 4 04327 TSX RDTBA,4 READ FORTAG F3A16400 06073 0074 00 4 04327 TSX RDTBA,4 SKIP TO ASCON F3A16410 06074 -0534 00 2 04026 LXD 8FRTG,2 GET ADD OF FORTAG LABEL. F3A16420 06075 0634 00 2 06100 SXA *+3,2 SAVE ADD. F3A16430 06076 1 00001 2 06077 TXI *+1,2,1 GET ADD OF FORTAG WORD COUNT. F3A16440 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 38 06077 0634 00 2 06114 SXA PECA5,2 SAVE ADD OF FORTAG WORD COUNT. F3A16450 06100 0500 00 0 00000 CLA ** GET FORTAG LABEL IN AC. F3A16460 06101 0402 00 0 04133 SUB L(4) IS LABEL 4 F3A16470 06102 0100 00 0 06104 TZE *+2 YES TRANSFER F3A16480 06103 0020 00 0 04065 TRA ERR7 NO GO TO IO PACKAGE. F3A16490 06104 0074 00 4 06123 TSX SCHU1,4 GET STORE CHANNEL IN AC F3A16500 06105 0737 00 2 00000 PAC ,2 LOAD IR2 WITH 2S COMP OF LAST ADD FORTG F3A16510 06106 -0634 00 2 06274 SXD PEC12,2 INITIALIZE EDIT CHANGE TAG TEST F3A16520 BINARY CARD NO. 9F220053 06107 0734 00 1 00000 PAX ,1 GET LAST ADD OF FORTAG F3A16530 06110 -0535 00 2 04025 LDC 9FRTG,2 GET FIRST ADD OF FORTAG. F3A16540 06111 -0634 00 2 06112 SXD *+1,2 SAVE IT. F3A16550 06112 1 00000 1 06113 TXI *+1,1,** SUB FIRST ADD FROM LAST ADD. F3A16560 06113 -0754 00 1 00000 PXD ,1 PUT FORTAG WORD COUNT IN DEC F3A16570 06114 0402 00 0 00000 PECA5 SUB ** DOES IT AGREE WITH WC IN LABEL F3A16580 06115 0100 00 0 06242 TZE PEC07 YES TRANSFER F3A16590 06116 0020 00 0 04070 TRA ERR8 NO GO TO IO PACKAGE. F3A16600 06117 0522 00 0 04327 PEC06 XEC RDTBA RESET COUNTER F3A16610 06120 1 77777 1 06121 TXI *+1,1,-1 FOR RDTBA ROUTINE F3A16620 06121 0634 00 1 04327 SXA RDTBA,1 AND SAVE BACK IN COUNT F3A16630 06122 0020 00 0 06044 TRA PEC05 TRANSFER F3A16640 ROUTINE TO GET STORE CHANNEL CELL IN AC F3A16660 F3A16670 06123 0634 00 4 06133 SCHU1 SXA SCHU2,4 SAVE IR4 F3A16680 06124 0522 00 0 04327 XEC RDTBA GET COUNTER F3A16690 06125 1 00001 1 06126 TXI *+1,1,1 BUMP COUNTER IRI. F3A16700 06126 0500 00 1 05170 CLA RISE,1 GET RISE WITH LOGICAL TAPE NUMBER IN DEC F3A16710 06127 -0734 00 2 00000 PDX ,2 PUT TAPE NUMBER IN IR2 F3A16720 06130 1 73672 2 06131 TXI *+1,2,(SCHU) COMPUTE STORE CHANNEL ADDRESS F3A16730 06131 0634 00 2 06132 SXA *+1,2 PUT STORE CHANNEL ADDRESS IN CLA F3A16740 06132 0500 00 0 00000 CLA ** GET STORE CHANNEL IN AC. F3A16750 06133 0774 00 4 00000 SCHU2 AXT **,4 RESTORE IR4 F3A16760 06134 0020 00 4 00001 TRA 1,4 F3A16770 SEARCH UNEDITED CHANGE TAG FOR FORTAG IFN F3A16790 F3A16800 BINARY CARD NO. 9F220054 06135 0500 00 1 00000 PEC14 CLA FORTG,1 GET CURRENT FORTAG. F3A16810 06136 -0320 00 0 04152 ANA DCMSK GET FORTAG IFN. F3A16820 06137 0622 00 0 04156 STD CMBOX SAVE IN COMBOX. F3A16830 06140 0500 00 4 00000 CLA UCHTG,4 GET THE LOWER UCHTG IFN F3A16840 06141 -0320 00 0 04152 ANA DCMSK AND COMPARE WITH FORTAG IFN. F3A16850 06142 0340 00 0 04156 CAS CMBOX F3A16860 06143 1 77776 4 06272 TXI PEC11,4,-2 UCHTG IFN GREATER GO BACK F3A16870 06144 1 77776 4 06272 TXI PEC11,4,-2 UCHTG IFN EQUAL GO BACK. F3A16880 06145 0500 00 4 00000 CLA UCHTG,4 UCHTG IFN LOWER CONTINUE F3A16890 06146 -0320 00 0 04153 ANA ADMSK GET THE UPPER UNEDITED CHANGE TAG IFN. F3A16900 06147 0767 00 0 00022 ALS 18 IN THE DEC F3A16910 06150 0340 00 0 04156 CAS CMBOX COMPARE AGAIN. F3A16920 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 39 06151 0020 00 0 06154 TRA PEC15 UCHTG IFN GREATER CONTINUE F3A16930 06152 0020 00 0 06154 TRA PEC15 UCHTG IFN EQUAL CONTINUE F3A16940 06153 1 77776 4 06272 TXI PEC11,4,-2 UCHTG IFN LOWER GO BACK F3A16950 06154 0500 00 0 04156 PEC15 CLA CMBOX GET IFN FROM FORTAG AND F3A16960 06155 0601 00 2 00000 STO CHTG,2 PUT IN 1ST WORD OF EDITED CHANGE TAG ENTRYF3A16970 06156 0500 00 4 00001 CLA UCHTG+1,4 GET 2ND WORD OF UNEDITED CHANGE TAG F3A16980 06157 0601 00 2 00001 STO CHTG+1,2 AND PUT IN 2ND WORD OF EDITE CHTG ENTRY F3A16990 06160 1 77776 2 06161 TXI *+1,2,-2 BUMP IR2 FOR NEXT CHTG ENTRY F3A17000 06161 3 00000 2 06273 PEC16 TXH PC11A,2,** TEST FOR OVERFLOW AND GO BACK F3A17010 06162 0074 00 4 04073 TSX ERR9,4 GO TO DIAG ON OVERFLOW F3A17020 ROUTINE TO SET CELLS FOR CHANGE TAG TABLE SEARCH F3A17040 F3A17050 BINARY CARD NO. 9F220055 06163 0634 00 4 06175 CHTGA SXA CHTGE,4 SAVE IR4. F3A17060 06164 0522 00 0 06204 XEC M1251 GET CURRENT CHTG ENTRY IN IR4 F3A17070 06165 0500 00 4 00000 CLA CHTG,4 GET 1ST WORD OF CHTG F3A17080 06166 0601 00 0 04154 STO CHTFN SAVE CHANGE TAG IFN. F3A17090 06167 1 77776 4 06170 CHTGB TXI *+1,4,-2 BUMP IR4 TO NEXT ENTRY F3A17100 06170 -3 00000 4 06174 CHTGC TXL CHTGD,4,** TEST FOR END OF CHANGE TAG F3A17110 06171 0500 00 4 00000 CLA CHTG,4 GET NEXT CHTG IFN F3A17120 06172 0402 00 0 04154 SUB CHTFN SUBTRACT IT FORM PREVIOUS IFN. F3A17130 06173 0100 00 0 06167 TZE CHTGB IF THEY ARE EQUAL GO BACK F3A17140 06174 0634 00 4 06215 CHTGD SXA M1254,4 IF NOT EQUAL SET CELL IN TABLE SEARCH F3A17150 06175 0774 00 4 00000 CHTGE AXT **,4 RESTORE IR4 F3A17160 06176 0020 00 4 00001 TRA 1,4 TRANSFER F3A17170 CHANGE TAG TABLE SEARCH F3A17190 F3A17200 06177 0634 00 4 06213 M1250 SXA M1253,4 SAVE IR 4. F3A17210 06200 0634 00 2 06212 SXA M1252,2 SAVE IR2 F3A17220 06201 0500 00 1 00003 CLA AIL+3,1 GET TAG FROM 4TH WORD OF CIT F3A17230 06202 0734 00 2 00000 PAX ,2 F3A17240 06203 -0634 00 2 04155 SXD TGBOX,2 F3A17250 06204 0774 00 4 00000 M1251 AXT **,4 LOAD IR4 WITH ENTRY POINT TO CHTG F3A17260 06205 0500 00 4 00000 CLA CHTG,4 GET 1ST WORD OF CHTG WITH IFN F3A17270 06206 0340 00 0 04160 CAS MALFN COMPARE TO CIT IFN. F3A17280 06207 0020 00 0 06212 TRA M1252 CHTG IFN GREATER TRANSFER OUT F3A17290 06210 0020 00 0 06215 TRA M1254 CHTG IFN EQUAL CONTINUE F3A17300 BINARY CARD NO. 9F220056 06211 0020 00 0 06233 TRA M1258 CHTG IFN LESS F3A17310 06212 0774 00 2 00000 M1252 AXT **,2 RESTORE IR2 F3A17320 06213 0774 00 4 00000 M1253 AXT **,4 RESTORE IR4. F3A17330 06214 0020 00 4 00001 TRA 1,4 TRANSFER. F3A17340 06215 0774 00 2 00000 M1254 AXT **,2 LOAD IR2 WITH END POINT OF BLOCK OF IFN F3A17350 06216 -0634 00 2 06226 SXD M1256,2 STORE IR2 FOR TEST F3A17360 06217 1 77777 4 06220 M1255 TXI *+1,4,-1 BUMP IR4 F3A17370 06220 0500 00 4 00000 CLA CHTG,4 AND GET SECOND CHTG ENTRY F3A17380 06221 0734 00 2 00000 PAX ,2 SAVE NEW TAG IN IR2 F3A17390 06222 -0320 00 0 04152 ANA DCMSK GET OLD TAG IN DEC. F3A17400 06223 0402 00 0 04155 SUB TGBOX COMPARE TO TAG OF CIT. F3A17410 06224 0100 00 0 06230 TZE M1257 EQUAL TRANSFER AND CONTINUE F3A17420 06225 1 77777 4 06226 TXI M1256,4,-1 NOT EQUAL GO TO 1ST WORD OF NEXT CHTG F3A17430 06226 3 00000 4 06217 M1256 TXH M1255,4,** TEST IF STILL IN CHTG BLOCK OF IFN F3A17440 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 40 06227 0020 00 0 06212 TRA M1252 NO GO OUT F3A17450 06230 0754 00 2 00000 M1257 PXA ,2 MATCH PUT NEW TAG IN AC ADD F3A17460 06231 0621 00 1 00003 STA AIL+3,1 PUT NEW TAG IN ADD OF 4TH WORD OF CIT F3A17470 06232 0020 00 0 06212 TRA M1252 GO OUT F3A17480 06233 0522 00 0 06215 M1258 XEC M1254 GET OLD UPPER BLOCK LIMIT F3A17490 06234 0634 00 2 06204 SXA M1251,2 AND MAKE IT NEW LOWER ENTRY POINT F3A17500 06235 3 00000 2 06240 M1259 TXH M1260,2,** TEST FOR END CHANGE TAG F3A17510 06236 0055 00 000001 SIR NOCHG YES SET INDICATOR FOR END F3A17520 BINARY CARD NO. 9F220057 06237 0020 00 0 06212 TRA M1252 THEN GO OUT F3A17530 06240 0074 00 4 06163 M1260 TSX CHTGA,4 NO COMPUT NEW UPPER BLOCK LIMIT F3A17540 06241 0020 00 0 06204 TRA M1251 GO BACK TO CHANGE TAG SEARCH. F3A17550 F3A17560 INITIALIZE EDIT CHANGE TAG F3A17580 F3A17590 06242 -0520 60 0 04013 PEC07 NZT* 8UCTG IS UNEDITED CHAGE TAG EMPTY. F3A17600 06243 0020 00 0 06301 TRA PEC13 YES TRANSFER F3A17610 06244 0500 60 0 04013 CLA* 8UCTG NO INITIALIZE. F3A17620 06245 0400 00 0 04012 ADD 9UCTG COMPUTE THE 2S COMP. F3A17630 06246 0737 00 2 00000 PAC ,2 OF LAST ADDRESS AND F3A17640 06247 -0634 00 2 06272 SXD PEC11,2 SAVE IN TEST F3A17650 06250 -0535 00 2 04027 LDC 9DM08,2 GET 2S COMP OF LAST PERMISSIBLE CHANGE F3A17660 06251 -0634 00 2 06161 SXD PEC16,2 TAG ADDRESS AND SAVE IN OVERFLOW TEST F3A17670 06252 -0535 00 1 04025 LDC 9FRTG,1 LOAD IR1 WITH 2S COMP FOR FORTAG. F3A17680 06253 -0535 00 2 04030 LDC 9CHTG,2 LOAD IR2 WITH 2S COMP FOR CHANGE TAG F3A17690 06254 0634 00 2 06204 SXA M1251,2 INITIALIZE CELL IN CHANGE TAG SEARCH F3A17700 06255 0500 00 1 00000 PEC08 CLA FORTG,1 GET 1ST FORTAG. F3A17710 06256 0340 00 1 00001 CAS FORTG+1,1 COMPARE TO 2ND FORTAG AND F3A17720 06257 0020 00 0 06261 TRA PEC09 SKIP OVER SUCCESSIVE DUPLICATES F3A17730 06260 1 77777 1 06255 TXI PEC08,1,-1 TRANSFER BACK F3A17740 06261 0734 00 4 00000 PEC09 PAX ,4 GET TAG AND PUT IN F3A17750 06262 -0634 00 4 04206 SXD ERAS,4 DECREMENT OF ERAS F3A17760 06263 0535 00 4 04012 LAC 9UCTG,4 LOAD IR4 WITH 2S COMP 1ST UNEDITED CHTAG. F3A17770 06264 0500 00 4 00001 PEC10 CLA UCHTG+1,4 GET 2ND WORD OF UNEDITED CHANGE TAG. F3A17780 BINARY CARD NO. 9F220058 06265 -0320 00 0 04152 ANA DCMSK AND COMPARE TAG1 IN DEC WITH TAG F3A17790 06266 0340 00 0 04206 CAS ERAS FROM FORTAG F3A17800 06267 1 77776 4 06272 TXI PEC11,4,-2 GO TO TEST FOR END OF UCHTAG WHEN NOT EQU F3A17810 06270 0020 00 0 06135 TRA PEC14 EQUAL TRANSFER F3A17820 06271 1 77776 4 06272 TXI PEC11,4,-2 GO TO TEST F3A17830 06272 3 00000 4 06264 PEC11 TXH PEC10,4,** TEST FOR END OF UCHTAG F3A17840 06273 1 77777 1 06274 PC11A TXI *+1,1,-1 BUMP IR 1 TO NEXT FORTAG. F3A17850 06274 3 00000 1 06255 PEC12 TXH PEC08,1,** TEST FOR END OF FORTAG F3A17860 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 41 END OF CHANGE TAG EDIT F3A17880 F3A17890 06275 -0634 00 2 06170 SXD CHTGC,2 SET CELL IN CHTGA ROUTINE FOR TEST F3A17900 06276 -0634 00 2 06235 SXD M1259,2 SET CELL IN CHTG SEARCH ROUTINE FOR TEST F3A17910 06277 0074 00 4 06163 TSX CHTGA,4 SET CELLS FOR CHANGE TAG TABLE SEARCH F3A17920 06300 0020 00 0 06302 TRA *+2 TRANSFER. F3A17930 06301 0055 00 000001 PEC13 SIR NOCHG SET INDICATOR FOR NO CHANGE TAG TABLE F3A17940 06302 0056 00 000001 RNT NOCHG IS THERE CHTG TABLE. F3A17950 06303 0020 00 0 06305 TRA *+2 YES TRANSFER IR 2 HAS LAST ADD CHTG. F3A17960 06304 -0535 00 2 04030 LDC 9CHTG,2 NO LOAD IR 2 WITH ADD FOR NO CHTG. F3A17970 06305 0534 00 1 04023 LXA 8TRAD,1 GET 1ST ADD OF TRAD TABLE. F3A17980 06306 -0634 00 2 06307 SXD *+1,2 COMPUTE LENGTH FROM TOP CHTAG. F3A17990 06307 1 00000 1 06310 TXI *+1,1,** OR NO CHTAG TO TRAD. F3A18000 06310 0754 00 1 00000 PXA ,1 PLACE LENGTH IN AC ADD. F3A18010 06311 -0320 00 0 04132 ANA L(3) GET BITS 34 AND 35 IF ANY. F3A18020 06312 0737 00 1 00000 PAC ,1 PLACE COMP OF BITS IN IR 1. F3A18030 BINARY CARD NO. 9F220059 06313 -0634 00 1 06314 SXD *+1,1 COMPUTATION TO MAKE TIFGO FILE. F3A18040 06314 1 00000 2 06315 TXI *+1,2,** BUFFER MULTIPLE OF FOUR. F3A18050 06315 -0634 00 2 04300 SXD CINF,2 SET ADD AND DEC IN CINF FOR F3A18060 06316 0634 00 2 04300 SXA CINF,2 COMPILING F3A18070 06317 0534 00 1 04044 LXA 9FRB1,1 GET ADD OF 1ST OVERFLOW BUFFER. F3A18080 06320 -0634 00 1 06321 SXD *+1,1 COMPUTE LENGTH FROM TOP CHTAG. F3A18090 06321 1 00000 2 06322 TXI *+1,2,** OR NO CHTAG TO 1ST OVERFLOW BUFFER. F3A18100 06322 0754 00 2 00000 PXA ,2 PLACE LENGTH IN AC ADD. F3A18110 06323 -0320 00 0 04132 ANA L(3) GET BITS 34 AND 35 IF ANY. F3A18120 06324 0737 00 2 00000 PAC ,2 PLACE COMP OF BITS IN IR 2. F3A18130 06325 -0634 00 2 06326 SXD *+1,2 COMPUTATION TO MAKE F3A18140 06326 1 00000 1 06327 TXI *+1,1,** FIRST FILE OVERFLOW. F3A18150 06327 0634 00 1 05110 SXA FIRF1,1 BUFFER A MULTIPLE OF FOUR. F3A18160 06330 1 00310 1 06331 PC13B TXI *+1,1,5FRB1 BUMP BY LENGTH OF 1ST BUFFER. F3A18170 06331 0634 00 1 05111 SXA FIRF2,1 SET 2ND BUFFER. F3A18180 06332 0761 00 0 00000 NOP NOT USED $F3A18190 06333 0600 60 0 04013 PC13A STZ* 8ASCN SET ASCON WORD COUNT TO ZERO. F3A18200 06334 0535 00 2 04023 LAC 8TRAD,2 LOAD IR2 WITH 2S COMP TRAD LABEL F3A18210 06335 -0634 00 2 04577 SXD CIBL1,2 AND SAVE TO TEST TIFGO FILE OVERFLOW F3A18220 06336 0535 00 2 04011 LAC 8TRST,2 SET CELL IN TIFGO FILE FOR F3A18230 06337 -0634 00 2 06642 SXD SIX03,2 ASSIGN OVERFLOW F3A18240 06340 0535 00 2 04012 LAC 9ASCN,2 SET CELL IN TIFGO FILE FOR F3A18250 BINARY CARD NO. 9F220060 06341 0634 00 2 06636 SXA SIX02,2 ASSIGN ENTRY F3A18260 06342 0500 00 0 04204 CLA RAVEL COMPUTE TRAVEV F3A18270 06343 0400 00 0 04016 ADD 9TRLV LENGTH FOR TIFGO FILE TEST. F3A18280 06344 0737 00 2 00000 PAC ,2 INITIALIZE. F3A18290 06345 -0634 00 2 06367 SXD M2102,2 TESTS IN F3A18300 06346 -0634 00 2 06421 SXD M2107,2 TIFGO FILE CREATION. F3A18310 06347 0535 00 2 04016 LAC 9TRLV,2 LOAD IR2 WITH TRALEV ENTRY. F3A18320 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 42 CREATE THE TIFGO FILE F3A18340 F3A18350 06350 0057 00 002002 RTURN RIR IFIN $RESET INDICATORS. F3A18360 06351 0774 00 1 00000 M2100 AXT **,1 +LOAD IR1 WITH CURRENT TIFGO ENTRY POINT. F3A18370 06352 -3 00000 1 07410 M2101 TXL M2190,1,** +*TEST FOR END OF TIFGO TABLE. F3A18380 06353 0500 00 1 00001 CLA TIFGO+1,1 GET 2ND WORD OF TIFGO ENTRY. F3A18390 06354 0734 00 4 00000 PAX ,4 GET ADDRESS AND F3A18400 06355 -0634 00 4 04210 SXD BETA2,4 STORE IT IN BETA2. F3A18410 06356 0622 00 0 04207 STD BETA1 STORE DECREMENT IN BETA1. F3A18420 06357 0500 00 1 00000 CLA TIFGO,1 GET 1ST WORD OF TIFGO ENTRY. F3A18430 06360 0734 00 4 00000 PAX ,4 GET ADDRESS AND F3A18440 06361 -0634 00 4 04211 SXD BETA3,4 STORE IT IN BETA3. F3A18450 06362 0622 00 0 04173 STD TIFFN STORE IFN IN DECREMENT IN TIFFN. F3A18460 06363 1 77776 1 06364 TXI *+1,1,-2 UPDATE IR1 FOR NEXT TIFGO ENTRY. F3A18470 06364 0634 00 1 06351 SXA M2100,1 SAVE IR 1. F3A18480 06365 0120 00 0 06367 TPL M2102 *TRANSFER FOR ALL TIFGO EXCEPT IF. F3A18490 06366 0055 00 002000 SIR IFSTT SET INICATOR WITH IF BIT. F3A18500 BINARY CARD NO. 9F220061 06367 -3 00000 2 06403 M2102 TXL M2105,2,** +$TEST FOR END OF TRALEV TABLE. IR 2 HAS F3A18510 06370 -0320 00 0 04152 ANA DCMSK TRALEV ENTRY POINT) GET TIFGO IFN. F3A18520 06371 0400 00 2 00000 ADD TRLEV,2 ADD TRALEV IFN WHICH IS MINUS. F3A18530 06372 -0100 00 0 06403 TNZ M2105 *TRANSFER IF NOT ZERO. TIFGO IFN NOT IN F3A18540 06373 1 77777 2 06374 TXI *+1,2,-1 TRALEV. ZERO TIFGO IFN IN TRALEV. UPDATE F3A18550 06374 0774 00 1 00000 M2103 AXT **,1 +IR2. LOAD IR1 WITH TRASTO ENTRY POINT. F3A18560 06375 0074 00 4 07056 TSX M2700,4 *TRASTO FORMULA NUMBER SEARCH. F3A18570 06376 0020 00 0 06420 TRA M2106 *$RETURN FOR TIFGO IFN NOT IN TRASTO. F3A18580 06377 0055 00 000002 SIR INTRL $RETURN FOR TIFGO IFN IN TRASTO. SET F3A18590 06400 0634 00 1 06401 SXA M2104,1 INDICATOR BIT. SAVE TRASTO ENTRY POINT IN F3A18600 06401 0774 00 1 00000 M2104 AXT **,1 +IR 1 FOR RESET. F3A18610 06402 0600 00 0 04171 STZ ADDCO SET ADDCO COUNTER TO ZERO. F3A18620 06403 0054 00 002000 M2105 RFT IFSTT $TEST INDICATOR TO ZERO. F3A18630 06404 0020 00 0 06646 TRA IF01 *TRANSFER FOR IF. F3A18640 06405 0500 00 0 04211 CLA BETA3 BETA3 CONTAINS A NUMBER TO SHOW THE TYPE F3A18650 06406 0340 00 0 04146 CAS L(5D) OF TIFGO ENTRY FOR OTHER THAN IF. F3A18660 06407 0020 00 0 06627 TRA SIX01 *SIX IS AN ASSIGN. F3A18670 06410 0020 00 0 06607 TRA FIVE1 *FIVE IS AC OR QUOTIENT OVERFLOW. F3A18680 06411 0340 00 0 04144 CAS L(3D) F3A18690 06412 0020 00 0 06552 TRA FOUR1 *FOUR IS DIVIDE CHECK. F3A18700 06413 0020 00 0 06534 TRA THRE1 *THREE IS SENSE LIGHT OR SWITCH. F3A18710 06414 0340 00 0 04142 CAS L(1D) F3A18720 BINARY CARD NO. 9F220062 06415 0020 00 0 06462 TRA TWO01 *TWO IS COMPUTED GO TO. F3A18730 06416 0020 00 0 06452 TRA ONE01 *ONE IS ASSIGN GO TO. F3A18740 06417 0020 00 0 06427 TRA ZERO1 *ZERO IS AN UNCONDITIONAL GO TO. F3A18750 06420 0500 00 2 00000 M2106 CLA TRLEV,2 $GET TRALEV WORD. F3A18760 06421 -3 00000 2 06424 M2107 TXL M2108,2,** +*TEST FOR END OF TRALEV TABLE. F3A18770 06422 -0120 00 0 06424 TMI M2108 *TEST FOR START BLOCK OF TRALEV BY MINUS. F3A18780 06423 1 77777 2 06420 TXI M2106,2,-1 *BUMP IR2 FOR NEXT TRALEV WORD. F3A18790 06424 0054 00 000002 M2108 RFT INTRL $TEST UPDATE OF TRALEV TO SEE WHERE YOU F3A18800 06425 0020 00 0 06350 TRA RTURN *CAME FROM. FROM COMPILING IN TRALEV. F3A18810 06426 0020 00 0 06403 TRA M2105 *FROM TIFGO IFN NOT IN TRASTO. F3A18820 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 43 TIFGO ENTRY IS AN UNCONDITIONAL GO TO NOT IN TRALEV F3A18840 F3A18850 06427 0054 00 000002 ZERO1 RFT INTRL $ENTER. F3A18860 06430 0020 00 0 06435 TRA ZERO2 *TRANSFER. F3A18870 06431 0074 00 4 04516 TSX CIT00,4 *COMPILE. F3A18880 06432 0 04227 0 04173 PZE TIFFN,,(TRA) IFN,,TRA. F3A18890 06433 0 04130 0 04210 PZE BETA2,,L(0) BETA,,0. F3A18900 06434 0020 00 0 06350 TRA RTURN *BACK FOR NEXT TIFGO ENTRY. F3A18910 TIFGO ENTRY IS AN UNCONDITIONAL GO TO IN TRALEV F3A18930 F3A18940 06435 0500 00 0 04173 ZERO2 CLA TIFFN $GET IFN AND F3A18950 06436 0601 00 0 04164 STO M1CW $PUT IN DEC OF 1ST WORD OF CIT. F3A18960 06437 0074 00 4 07374 TSX CLOC1,4 *SET CLOC COUNTER. F3A18970 06440 0055 00 000100 SIR FFTHX SET INDICATOR FOR SUBROUTINE TO COMPILE. F3A18980 06441 0074 00 4 06726 TSX M2225,4 *SAVE CITS IN M2800. F3A18990 06442 0500 00 0 04171 CLA ADDCO WERE SAVE CITS COMPILED. F3A19000 BINARY CARD NO. 9F220063 06443 0100 00 0 06446 TZE ZERO3 *NO TRANSFER TO COMPILE ROUTINE WITH IFN. F3A19010 06444 0500 00 0 04212 CLA (AST) YES PLACE AST IN FIRST WORD. F3A19020 06445 0601 00 0 04164 STO M1CW OF CIT. F3A19030 06446 0074 00 4 04516 ZERO3 TSX CIT00,4 $*COMPILE. F3A19040 06447 0 04227 0 04164 PZE M1CW,,(TRA) IFN OR AST,,TRA. F3A19050 06450 0 04130 0 04210 PZE BETA2,,L(0) BETA,,0 F3A19060 06451 0020 00 0 06420 TRA M2106 *BACK FOR NEXT TIFGO THRU TRALEV UPDATE. F3A19070 TIFGO ENTRY IS AN ASSIGN GO TO NOT IN TRALEV F3A19090 F3A19100 06452 0056 00 000002 ONE01 RNT INTRL $ENTER. F3A19110 06453 0020 00 0 06350 TRA RTURN *BACK FOR NEXT TIFGO ENTRY. F3A19120 TIFGO ENTRY IS AN ASSIGN GO TO IN TRALEV F3A19140 F3A19150 06454 0502 00 0 04173 CLS TIFFN GET IFN AND PUT A MINUS FOR FINAL MERGE. F3A19160 06455 0601 00 0 04164 STO M1CW STORE IN 1ST WORD OF CIT. F3A19170 06456 0074 00 4 07374 TSX CLOC1,4 *SET CLOC COUNTER. F3A19180 06457 0055 00 000100 SIR FFTHX SET INDICATOR FOR SUBROUTINE TO COMPILE. F3A19190 06460 0074 00 4 06726 TSX M2225,4 *SAVE CITS IN M2800. F3A19200 06461 0020 00 0 06420 TRA M2106 *BACK FOR NEXT TIFGO THRU TRALEV UPDATE. F3A19210 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 44 TIFGO ENTRY IS A COMPUTED GO TO NOT IN TRALEV F3A19230 F3A19240 06462 0054 00 000002 TWO01 RFT INTRL $ENTER. F3A19250 06463 0020 00 0 06503 TRA TWO06 *TRANSFER. F3A19260 06464 0074 00 4 07403 TSX CTRDN,4 *COMPUTE N+1 AND STORE IN 4TH WORD OF CIT. F3A19270 06465 0074 00 4 07346 TSX TOTM1,4 *COMPILE IFN,,0,,IFN,,N+1. F3A19280 06466 -0534 00 1 04207 LXD BETA1,1 LOAD IR1 WITH CTRAD1. F3A19290 06467 1 00000 1 06470 TWO02 TXI *+1,1,** +BUMP IR1 BY 2S COMP OF LAST LOCATION OF F3A19300 06470 -0634 00 1 06501 SXD TWO05,1 TRAD TABLE PLUS ONE AND SAVE FOR TEST. F3A19310 BINARY CARD NO. 9F220064 06471 -0534 00 1 04210 LXD BETA2,1 LOAD IR1 WITH CTRADU. F3A19320 06472 1 00000 1 06473 TWO03 TXI *+1,1,** +BUMP IR1 BY 2S COMP OF LAST LOCATION OF F3A19330 06473 0500 00 1 00000 TWO04 CLA TRAD,1 $TRAD. GET LAST BETA FIRST FROM TRAD. F3A19340 06474 0734 00 4 00000 PAX ,4 BETA IS IN ADDRESS. F3A19350 06475 -0754 00 4 00000 PXD ,4 PLACE BETA IN DECREMENT. F3A19360 06476 0601 00 0 04166 STO M1CW+2 PLACE 3RD WORD OF CIT. F3A19370 06477 0074 00 4 07354 TSX OTM01,4 *COMPILE 0,,TRA,,BETA,,0. F3A19380 06500 1 00001 1 06501 TXI TWO05,1,1 BUMP IR1 TO GET NEXT TO LAST BETA ETC. F3A19390 06501 -3 00000 1 06473 TWO05 TXL TWO04,1,** +*TEST TO DROP THRU WHEN FIRST BETA COMPILEDF3A19400 06502 0020 00 0 06350 TRA RTURN *BACK FOR NEXT TIFGO ENTRY. F3A19410 TIFGO ENTRY IS A COMPUTED GO TO IN TRALEV F3A19430 F3A19440 06503 0074 00 4 07403 TWO06 TSX CTRDN,4 $ENTER AND COMPUTE N+1 THEN PUT IN 4TH CIT.F3A19450 06504 0402 00 0 04143 SUB L(2D) COMPUTE N-1 F3A19460 06505 -0737 00 4 00000 PDC ,4 PUT 2S COMP OF N-1 IN IR4. F3A19470 06506 -0634 00 4 06512 SXD TWO08,4 PUT IN DECREMENT FOR BUMP. F3A19480 06507 0074 00 4 07346 TSX TOTM1,4 *COMPILE IFN,,0,,IFN,,N+1 F3A19490 06510 -0634 00 2 06521 TWO07 SXD TWO11,2 $IR2 HAS LOCATION OF FIRST TRALEV BETA AND F3A19500 06511 -0634 00 2 06531 SXD TWO13,2 IS PUT IN TWO11 AN TWO13 FOR TEST. F3A19510 06512 1 00000 2 11335 TWO08 TXI TWO1A,2,** BUMP IR2 FOR LOC OF LAST TRLEV (32)F3A19520 06513 0 00000 0 00000 PZE AND INITIALIZE SUPPLEMENTARY TRLEV (32)F3A19530 06514 0774 00 2 00000 TWO09 AXT **,2 +SAVE IR2 FOR RESET FOR 2ND PASS THRU TRASTF3A19540 06515 0055 00 000004 TWO10 SIR FRSTX $SET INDICATOR FOR SUBROUTINE TO COMPILE. F3A19550 06516 0074 00 4 06726 TSX M2225,4 *0,,TRA,,IFN+ADD OR BETA,,0,,IFN+ADD,,IFN. F3A19560 BINARY CARD NO. 9F220065 06517 0522 00 0 06401 XEC M2104 ALPHA IN TRASTO. BETA IF ALPHA NOT IN F3A19570 06520 0020 00 0 11363 TRA TWO1E TRASTO,CHECK FOR NEW ADDEND (32)F3A19580 06521 -3 00000 2 11343 TWO11 TXL TWO1B,2,** UNLESS DROP THRU,CHECK FOR DUP TRLEV (32)F3A19590 06522 0500 00 0 04171 CLA ADDCO ADDCO ZERO ALPHA NEVER IN TRASTO. ADDCO F3A19600 06523 0100 00 0 06532 TZE TWO14 *NON ZERO ALPHA IN TRASTO IFN+ADD COMPILED.F3A19610 06524 0522 00 0 06514 XEC TWO09 RESET IR2 FOR 2ND PASS FOR ALL IFN+ADD F3A19620 06525 0074 00 4 07374 TSX CLOC1,4 *SET CLOC COUNTER. F3A19630 06526 0601 00 0 04164 STO M1CW STORE CLOC IN 1ST WORD OF CIT. F3A19640 06527 0074 00 4 07301 TWO12 TSX M2265,4 $COMPILE SAVE AND RESET AND TRANSFER CITS. F3A19650 06530 1 00001 2 06531 TXI TWO13,2,1 BUMP IR2 FOR NEXT TO LAST BETA. F3A19660 06531 -3 00000 2 11377 TWO13 TXL TWO1F,2,** UNLESS DROP THRU,CHECK FOR DUP TRLEV (32)F3A19670 06532 0522 00 0 06514 TWO14 XEC TWO09 RESET IR 2. F3A19680 06533 0020 00 0 06420 TRA M2106 *BACK FOR NEXT TIFGO THRU TRALEV UPDATE. F3A19690 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 45 TIFGO ENTRY IS SENSE LIGHT OR SWITCH NOT IN TRALEV F3A19710 F3A19720 06534 0054 00 000002 THRE1 RFT INTRL $ENTER. F3A19730 06535 0020 00 0 06546 TRA THRE2 *TRANSFER. F3A19740 06536 0074 00 4 07324 TSX T0001,4 *COMPILE IFN,,0,,0,,0. F3A19750 06537 0500 00 0 04210 CLA BETA2 GET BETA2 AND F3A19760 06540 0601 00 0 04166 STO M1CW+2 PUT IN 3RD WORD OF CIT. F3A19770 06541 0074 00 4 07354 TSX OTM01,4 *COMPILE 0,,TRA,,BETA2,,0. F3A19780 06542 0500 00 0 04207 CLA BETA1 GET BETA1 AND F3A19790 06543 0601 00 0 04166 STO M1CW+2 PUT IN 3RD WORD OF CIT. F3A19800 06544 0074 00 4 07354 TSX OTM01,4 *COMPILE 0,,TRA,,BETA1,,0. F3A19810 BINARY CARD NO. 9F220066 06545 0020 00 0 06350 TRA RTURN *BACK FOR NEXT TIFGO ENTRY. F3A19820 TIFGO ENTRY IS SENSE LIGHT OR SWITCH IN TRALEV F3A19840 F3A19850 06546 -0534 00 4 04152 THRE2 LXD DCMSK,4 $ENTER AND SET F3A19860 06547 -0634 00 4 06512 SXD TWO08,4 DECREMENT OF TWO08 FOR IR2 BUMP. F3A19870 06550 0074 00 4 07324 TSX T0001,4 *COMPILE IFN,,0,,0,,0. F3A19880 06551 0020 00 0 06510 TRA TWO07 *TRANSFER. F3A19890 TIFGO ENTRY IS DIVIDE CHECK NOT IN TRALEV F3A19910 F3A19920 06552 0054 00 000002 FOUR1 RFT INTRL $ENTER. F3A19930 06553 0020 00 0 06564 TRA FOUR2 *TRANSFER. F3A19940 06554 0074 00 4 07324 TSX T0001,4 *COMPILE IFN,,0,,0,,0. F3A19950 06555 0500 00 0 04207 CLA BETA1 GET BETA1 AND F3A19960 06556 0601 00 0 04166 STO M1CW+2 PUT IN 3RD WORD OF CIT. F3A19970 06557 0074 00 4 07354 TSX OTM01,4 *COMPILE 0,,TRA,,BETA1,,0. F3A19980 06560 0500 00 0 04210 CLA BETA2 GET BETA2 AND F3A19990 06561 0601 00 0 04166 STO M1CW+2 PUT IN 3RD WORD OF CIT. F3A20000 06562 0074 00 4 07354 TSX OTM01,4 *COMPILE 0,,TRA,,BETA2,,0. F3A20010 06563 0020 00 0 06350 TRA RTURN *BACK FOR NEXT TIFGO ENTRY. F3A20020 TIFGO ENTRY IS DIVIDE CHECK IN TRALEV F3A20040 F3A20050 06564 0074 00 4 07324 FOUR2 TSX T0001,4 $*ENTER AND COMPILE IFN,,0,,0,,. F3A20060 06565 1 77776 2 06566 TXI *+1,2,-2 BUMP IR2 WITH TRALEV F3A20070 06566 -0634 00 2 06575 SXD FOUR5,2 FOR LATER USE. F3A20080 06567 -0634 00 2 06605 SXD FOUR8,2 INTEST IN FOUR5 AND FOUR8. F3A20090 06570 1 00002 2 06571 TXI *+1,2,2 RESET IR2. F3A20100 06571 0055 00 000004 FOUR3 SIR FRSTX $SET INDICATOR FOR SUBROUTINE TO COMPLE. F3A20110 06572 0074 00 4 06726 TSX M2225,4 *0,,TRA,,IFN+ADD OR BETA,,0. F3A20120 BINARY CARD NO. 9F220067 06573 0522 00 0 06401 FOUR4 XEC M2104 $RESET IR1 FOR PASS THRU TRASTO. F3A20130 06574 1 77777 2 06575 TXI *+1,2,-1 BUMP IR2 FOR NEXT TRALEV. F3A20140 06575 3 00000 2 06571 FOUR5 TXH FOUR3,2,** +*TEST DROP THRU WHEN LAST BETA COMPILED. F3A20150 06576 0500 00 0 04171 CLA ADDCO ADOCO ZERO ALPHA NEVER FOUND IN TRASTO. F3A20160 06577 0100 00 0 06350 TZE RTURN *ADDCO ZERO ALPHA FOUND IN TRASTO. F3A20170 06600 1 00002 2 06601 TXI *+1,2,2 RESET IR2 2ND PASS. F3A20180 06601 0074 00 4 07374 TSX CLOC1,4 *SET CLOC COUNTER. F3A20190 06602 0601 00 0 04164 FOUR6 STO M1CW $STORE CLOC IN 1ST WORD OF CIT. F3A20200 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 46 06603 0074 00 4 07301 FOUR7 TSX M2265,4 *COMPILE SAVE AND RESET AND TRANSFER CITS. F3A20210 06604 1 77777 2 06605 TXI FOUR8,2,-1 BUMP IR2 FOR NEXT BETA. F3A20220 06605 3 00000 2 06603 FOUR8 TXH FOUR7,2,** +*TEST DROP THRU WHEN LAST BETA COMPILED. F3A20230 06606 0020 00 0 06350 TRA RTURN *BACK FOR NEXT TIFGO ENTRY. F3A20240 TIFGO ENTRY IS AC OR QUOTIENT OVERFLOW NOT IN TRALEV F3A20260 F3A20270 06607 0054 00 000002 FIVE1 RFT INTRL $ENTER. F3A20280 06610 0020 00 0 06620 TRA FIVE2 *TRANSFER. F3A20290 06611 0500 00 0 04207 CLA BETA1 GET BETA1 AND F3A20300 06612 0601 00 0 04166 STO M1CW+2 PUT IN 3RD WORD OF CIT. F3A20310 06613 0074 00 4 07332 TSX T0M01,4 *COMPILE IFN,,0,,BETA1,,0. F3A20320 06614 0500 00 0 04210 CLA BETA2 GET BETA2 AND F3A20330 06615 0601 00 0 04166 STO M1CW+2 PUT IN 3RD WORD OF CIT. F3A20340 06616 0074 00 4 07354 TSX OTM01,4 *COMPILE 0,,TRA,,BETA2,,0. F3A20350 06617 0020 00 0 06350 TRA RTURN *BACK FOR NEXT TIFGO ENTRY. F3A20360 TIFGO ENTRY IS AC OR QUOTIENT OVERFLOW IN TRALEV F3A20380 F3A20390 06620 1 77776 2 06621 FIVE2 TXI *+1,2,-2 $BUMP IR 2 TRALEV AND F3A20400 BINARY CARD NO. 9F220068 06621 -0634 00 2 06575 SXD FOUR5,2 SAVE IN F3A20410 06622 -0634 00 2 06605 SXD FOUR8,2 TEST FOUR5 AND FOUR8. F3A20420 06623 1 00002 2 06624 TXI *+1,2,2 RESET IR2 F3A20430 06624 0055 00 000010 SIR SCONX SET INDICATOR FOR SUBROUTINE TO COMPILE. F3A20440 06625 0074 00 4 06726 TSX M2225,4 *IFN,,0,,IFN+ADD OR BETA1,,0. F3A20450 06626 0020 00 0 06573 TRA FOUR4 *TRANSFER. F3A20460 TIFGO ENTRY IS AN ASSIGN NOT IN TRALEV F3A20480 F3A20490 06627 0500 60 0 04013 SIX01 CLA* 8ASCN $ENTER AND GET CURRENT ASSIGN NUMBER. F3A20500 06630 0601 00 0 04167 STO M1CW+3 PLACE ASSIGN NUMBER IN 4TH WORD OF CIT. F3A20510 06631 0400 00 0 04142 ADD L(1D) ADD ONE TO ASSIGN NUMBER F3A20520 06632 0601 60 0 04013 STO* 8ASCN AND SAVE. F3A20530 06633 0074 00 4 04516 TSX CIT00,4 *COMPILE F3A20540 06634 0 04130 0 04173 PZE TIFFN,,L(0) IFN,,0 F3A20550 06635 0 04167 0 04214 PZE L(5)),,M1CW+3 5),,ASSIGN NUMBER F3A20560 06636 0774 00 1 00000 SIX02 AXT **,1 +ADDRESS SET FOR ASSIGN CONSTANT TABLE. F3A20570 06637 0500 00 0 04210 CLA BETA2 EET BETA AND F3A20580 06640 0601 00 1 00000 STO ASCO,1 STORE IN ASSIGN CONSTANT TABLE. F3A20590 06641 1 77777 1 06642 TXI *+1,1,-1 BUMP IR1 FOR NEXT TABLE ENTRY. F3A20600 06642 3 00000 1 06644 SIX03 TXH *+2,1,** +*TEST FOR TABLE OVERFLOW. F3A20610 06643 0074 00 4 04105 TSX ERR15,4 *GO TO DIAG ON TABLE OVERFLOW. F3A20620 06644 0634 00 1 06636 SXA SIX02,1 SAVE IR1 F3A20630 06645 0020 00 0 06350 TRA RTURN *BACK FOR NEXT TIFGO ENTRY. F3A20640 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 47 TIFGO ENTRY IS AN IF NOT IN TRALEV. F3A20660 06646 0054 00 000002 IF01 RFT INTRL $ENTER. F3A20670 BINARY CARD NO. 9F220069 06647 0020 00 0 06666 TRA IF02 *TRANSFER. F3A20680 06650 0074 00 4 07324 TSX T0001,4 *COMPILE IFN,,0,,0,,0. F3A20690 06651 0500 00 0 04207 CLA BETA1 GET BETA1 AND F3A20700 06652 0601 00 0 04166 STO M1CW+2 PUT IN 3RD WORD OF CIT. F3A20710 06653 0500 00 0 04173 CLA TIFFN GET IFN AND F3A20720 06654 -0501 00 0 04134 ORA L(8) OR IN ADD OF ONE AND F3A20730 06655 0601 00 0 04164 STO M1CW PUT IN 1ST WORD OF CIT. F3A20740 06656 0074 00 4 07340 TSX MZM01,4 *COMPILE IFN+ADD,,TZE,,BETA1,,0. F3A20750 06657 0500 00 0 04210 CLA BETA2 GET BETA2 AND F3A20760 06660 0601 00 0 04166 STO M1CW+2 PUT IN 3RD WORD OF CIT. F3A20770 06661 0074 00 4 07362 TSX OPM01,4 *COMPILE 0,,TPL,,BETA2,,0. F3A20780 06662 0500 00 0 04211 CLA BETA3 GET BETA3 AND F3A20790 06663 0601 00 0 04166 STO M1CW+2 PUT IN 3RD WORD OF CIT. F3A20800 06664 0074 00 4 07354 TSX OTM01,4 *COMPIL 0,,TRA,,BETA3,,0. F3A20810 06665 0020 00 0 06350 TRA RTURN *BACK FOR NEXT TIFGO ENTRY. F3A20820 TIFGO ENTRY IS AN IF IN TRALEV F3A20830 06666 0500 00 2 00000 IF02 CLA TRLEV,2 $ENTER AND F3A20840 06667 0601 00 0 04206 STO ERAS REORDER THE TRANSFERS OR BETAS IN F3A20850 06670 0500 00 2 00001 CLA TRLEV+1,2 TRALEV SO THAT THEY F3A20860 06671 0601 00 2 00000 STO TRLEV,2 ARE TZE TPL AND TRA. F3A20870 06672 0500 00 2 00002 CLA TRLEV+2,2 F3A20880 06673 0601 00 2 00001 STO TRLEV+1,2 F3A20890 06674 0500 00 0 04206 CLA ERAS F3A20900 BINARY CARD NO. 9F220070 06675 0601 00 2 00002 STO TRLEV+2,2 F3A20910 06676 1 77775 2 06677 TXI *+1,2,-3 BUMP IR2 BY THREE AND F3A20920 06677 -0634 00 2 06605 SXD FOUR8,2 PUT IN TEST FOUR8. F3A20930 06700 1 00003 2 06701 TXI *+1,2,3 RESET IR2. F3A20940 06701 0074 00 4 07324 TSX T0001,4 *COMPILE IFN,,0,,0,,0. F3A20950 06702 0055 00 000020 SIR THRDX SET INDICATOR FOR SUBROUTINE TO COMPILE. F3A20960 06703 0074 00 4 06726 TSX M2225,4 *IFN+ADD,,TZE,,IFN+ADD+1 OR BETA,,0. F3A20970 06704 0522 00 0 06401 XEC M2104 RESET IR 1 FOR PASS THRU TRASTO. F3A20980 06705 1 77777 2 06706 TXI *+1,2,-1 BUMP IR2 F3A20990 06706 0055 00 000040 SIR FORTX SET INDICATOR FOR SUBROUTINE TO COMPILE. F3A21000 06707 0074 00 4 06726 TSX M2225,4 *0,,TPL,,IFN+ADD OR BETA,,0. F3A21010 06710 0522 00 0 06401 XEC M2104 RESET IR 1 FOR PASS THRU TRASTO. F3A21020 06711 1 77777 2 06712 TXI *+1,2,-1 BUMP IR2 F3A21030 06712 0074 00 4 07370 TSX ADDC1,4 *BUMP ADDCO COUNTER. F3A21040 06713 0055 00 000004 SIR FRSTX SET INDICATOR FOR SUBROUTINE TO COMPILE. F3A21050 06714 0074 00 4 06726 TSX M2225,4 *0,,TRA,,IFN+ADD OR BETA,,0. F3A21060 06715 1 77777 2 06716 TXI *+1,2,-1 BUMP IR2 F3A21070 06716 0500 00 0 04171 CLA ADDCO GET ADDCO AND F3A21080 06717 0402 00 0 04134 SUB L(8) RESET. F3A21090 06720 0100 00 0 06350 TZE RTURN *BACK FOR NEXT TIFGO ENTRY. F3A21100 06721 1 00003 2 06722 TXI *+1,2,3 RESET IR2. F3A21110 06722 0522 00 0 06401 XEC M2104 RESET IR 1 FOR PASS THRU TRASTO. F3A21120 BINARY CARD NO. 9F220071 06723 0500 00 0 04135 CLA L(16) SET CLOC COUNTER F3A21130 06724 0601 00 0 04175 STO CLOC TO TWO F3A21140 06725 0020 00 0 06602 TRA FOUR6 *TRANSFER. F3A21150 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 48 MASTER COMPILING ROUTINE F3A21170 F3A21180 06726 0634 00 4 06735 M2225 SXA M2226,4 $ENTER AND SAVE IR 4. F3A21190 06727 0074 00 4 06737 TSX M2750,4 *TRASTO LEVEL NUMBER SEARCH. F3A21200 06730 0074 00 4 06777 TSX CMPIL,4 *SUBROUTINE TO COMPILING ROUTINES. F3A21210 06731 0074 00 4 07056 TSX M2700,4 *TRASTO FORMULA NUMBER SEARCH. F3A21220 06732 0074 00 4 07100 TSX CMOUT,4 *COMPILING ROUTINE FOR TRASTO NOT FOUND. F3A21230 06733 0074 00 4 07124 TSX ADDBC,4 *ROUTINE FOR ANOTHER PASS THRU TRASTO. F3A21240 06734 0057 00 000174 RIR RSIND RESET INDICATORS. F3A21250 06735 0774 00 4 00000 M2226 AXT **,4 +RESTORE IR 4. F3A21260 06736 0020 00 4 00001 TRA 1,4 *TRANSFER. F3A21270 TRASTO LEVEL NUMBER SEARCH SUBROUTINE F3A21290 F3A21300 06737 0634 00 4 06775 M2750 SXA M2755,4 $SAVE IR 4. F3A21310 06740 0500 00 2 00000 CLA TRLEV,2 GET TRALEV WORD. IR2 CONTAINS TRALEV ENTRYF3A21320 06741 0621 00 0 04174 STA LEVNO POINT. SAVE TRALEV LEVEL NUMBER. F3A21330 06742 0500 00 1 00002 CLA TRAST+2,1 IR1 CONTAIN TRASTO ENTRY POINT. F3A21340 06743 -0120 00 0 06760 TMI M2752 *3RD TRASTO WORD MINUS SHOWS TYPES 4,5OR6. F3A21350 06744 -0500 00 1 00001 CAL TRAST+1,1 2ND TRASTO WORD. GET BITS P AND 1. F3A21360 06745 -0320 00 0 04172 ANA MASK THIS SHOWS 2ND WORD IS BCD OR TYPE 2. F3A21370 06746 0100 00 0 06760 TZE M2752 *TRANSFER FOR TYPES 1 AND 3. F3A21380 06747 0500 00 1 00002 CLA TRAST+2,1 GET 3RD TRASTO WORD FOR TYPE 2. F3A21390 06750 -0734 00 4 00000 PDX ,4 GET DECREMENT WHICH CONTAINS LEVEL NO AND F3A21400 BINARY CARD NO. 9F220072 06751 0754 00 4 00000 PXA ,4 PLACE IT IN THE ADDRESS. F3A21410 06752 0340 00 0 04174 CAS LEVNO COMPARE TRALEV TO TRASTO LEVEL NUMBER F3A21420 06753 0020 00 0 06774 TRA M2754 *TRALEV NO LARGER. TRASTO FOUND. F3A21430 06754 0020 00 0 06755 TRA M2751 *TRALEV NO EQUAL OR LESS THAN. F3A21440 06755 1 77775 1 06756 M2751 TXI *+1,1,-3 $TRASTO NOT FOUND BUMP IR 1 BY 3. F3A21450 06756 0522 00 0 06775 XEC M2755 RESET IR 4. F3A21460 06757 0020 00 4 00002 TRA 2,4 *RETURN FOR TRASTO NOT FOUND F3A21470 06760 0500 00 1 00001 M2752 CLA TRAST+1,1 GET 2ND TRASTO WORD FOR TYPES 1,3,4,5,6. F3A21480 06761 -0320 00 0 04153 ANA ADMSK GET UPPER LEVEL NO FROM TRASTO OR L2. F3A21490 06762 0340 00 0 04174 CAS LEVNO COMPARE L2 TO TRALEV LEVEL NUMBER. F3A21500 06763 0020 00 0 06766 TRA M2753 *L2 LARGER THAN GO TO TEST L1. F3A21510 06764 0020 00 0 06755 TRA M2751 *L2 EQUAL TRASTO NOT FOUND. F3A21520 06765 0020 00 0 06755 TRA M2751 *L2 LESS THAN TRASTO NOT FOUND. F3A21530 06766 0500 00 1 00001 M2753 CLA TRAST+1,1 $TEST LOWER TRASTO LEVEL NO L1. F3A21540 06767 -0734 00 4 00000 PDX ,4 GET L1 FROM DECREMENT AND F3A21550 06770 0754 00 4 00000 PXA ,4 PUT L1 IN ADDRESS. F3A21560 06771 0340 00 0 04174 CAS LEVNO COMPARE L1 TO TRALEV LEVEL NUMBER. F3A21570 06772 0020 00 0 06755 TRA M2751 *L1 LARGER THAN TRASTO NOT FOUND. F3A21580 06773 0020 00 0 06774 TRA M2754 *L1 EQUAL OR LESS THAN TRASTO FOUND. F3A21590 06774 0074 00 4 07370 M2754 TSX ADDC1,4 $UPDATE ADDCO COUNTER. F3A21600 06775 0774 00 4 00000 M2755 AXT **,4 RESTORE IR 4. F3A21610 06776 0020 00 4 00001 TRA 1,4 *RETURN FOR TRASTO FOUND F3A21620 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 49 SUBROUTINE TO COMPILING ROUTINES F3A21640 F3A21650 BINARY CARD NO. 9F220073 06777 0634 00 4 07036 CMPIL SXA CMP05,4 $ENTER AND SAVE IR 4. F3A21660 07000 0054 00 000100 RFT FFTHX BRANCH FOR INDICATOR FIFTHX. F3A21670 07001 0074 00 4 07132 TSX M2800,4 *INDEXING INSTRUCTION COMPILER. F3A21680 07002 0054 00 000100 RFT FFTHX $BRANCH. F3A21690 07003 0020 00 0 07054 TRA CMP10 *TRANSFER FOR INDICATOR FIFTHX. F3A21700 07004 0054 00 000040 RFT FORTX BRANCH. F3A21710 07005 0020 00 0 07027 TRA CMP02 *TRANSFER FOR INDICATOR FOURTX. F3A21720 07006 0054 00 000020 RFT THRDX BRANCH. F3A21730 07007 0020 00 0 07020 TRA CMP01 *TRANSFER FOR INDICATOR THIRDX. F3A21740 07010 0500 00 0 04173 CLA TIFFN INICADTOR FIRSTX OR SECONX PUT F3A21750 07011 -0501 00 0 04171 ORA ADDCO IFN PLUS ADD FROM ADDCO COUNTER F3A21760 07012 0601 00 0 04166 STO M1CW+2 IN 3RD WORD OF CIT. F3A21770 07013 0054 00 000010 RFT SCONX BRANCH FOR INDICATOR SECONX. F3A21780 07014 0074 00 4 07332 TSX T0M01,4 *COMPILE IFN,,0,,IFN+ ADD,,0. F3A21790 07015 0054 00 000004 RFT FRSTX $BRANCH FOR INDICATOR FIRSTX. F3A21800 07016 0074 00 4 07354 TSX OTM01,4 *COMPILE 0,,TRA,,IFN+ADD,,0. F3A21810 07017 0020 00 0 07034 TRA CMP03 *TRANSFER FOR FIRSTX AND SECONX. F3A21820 07020 0500 00 0 04173 CMP01 CLA TIFFN $ENTER FOR THIRDX AND PUT F3A21830 07021 -0501 00 0 04171 ORA ADDCO IFN PLUS ADD FROM ADDCO COUNTER F3A21840 07022 0601 00 0 04164 STO M1CW IN 1ST WORD OF CIT. F3A21850 07023 0400 00 0 04134 ADD L(8) ADD ONE TO ADD AND PUT F3A21860 07024 0601 00 0 04166 STO M1CW+2 IFN PLUS ADD PLUS ONE IN 3RD WORD OF CIT. F3A21870 BINARY CARD NO. 9F220074 07025 0074 00 4 07340 TSX MZM01,4 *COMPILE IFN+ADD,,TZE,,IFN+ADD+1,,0. F3A21880 07026 0020 00 0 07034 TRA CMP03 *TRANSFER FOR THIRDX. F3A21890 07027 0500 00 0 04173 CMP02 CLA TIFFN $ENTER FOR FOURTX AND PUT F3A21900 07030 -0501 00 0 04171 ORA ADDCO IFN PLUS ADD FROM ADDCO COUNTER F3A21910 07031 0400 00 0 04134 ADD L(8) PLUS ONE IN F3A21920 07032 0601 00 0 04166 STO M1CW+2 THE 3RD WORD OF CIT. F3A21930 07033 0074 00 4 07362 TSX OPM01,4 *COMPILE 0,,TPL,,IFN+ADD+1,,0. F3A21940 07034 3 00000 1 07040 CMP03 TXH CMP06,1,** +$*TRASTO ENTRY BEFORE TYPE 4. F3A21950 07035 3 00000 1 07041 CMP04 TXH CMP07,1,** +$*TRASTO ENTRY TYPE 4 TRANSFER OR DROP THRU.F3A21960 07036 0774 00 4 00000 CMP05 AXT **,4 $RESTORE IR 4. F3A21970 07037 0020 00 4 00004 TRA 4,4 *AND OUT FOR FIRSTX SECONX THIRDX FOURTX F3A21980 07040 -0534 00 1 07034 CMP06 LXD CMP03,1 $LOAD IR 1 FOR TRASTO ENTRY TO TYPE 4. F3A21990 07041 0074 00 4 07056 CMP07 TSX M2700,4 $*TRASTO FORMULA NUMBER SEARCH. F3A22000 07042 0020 00 0 07036 TRA CMP05 *OUT ALPHA NEVER FOUND IN TRASTO. F3A22010 07043 0074 00 4 06737 TSX M2750,4 $*TRASTO LEVEL NUMBER SEARCH. F3A22020 07044 0020 00 0 07046 TRA CMP08 *TRANSFER FOR TRASTO FOUND. F3A22030 07045 0020 00 0 07035 TRA CMP04 *TRANSFER FOR TRASTO NOT FOUND. F3A22040 07046 3 00000 1 07053 CMP08 TXH CMP09,1,** +$*IS TRASTO TYPE 4. F3A22050 07047 0500 00 0 04171 CLA ADDCO YES REDUCE F3A22060 07050 0402 00 0 04134 SUB L(8) ADDCO COUNTER F3A22070 07051 0601 00 0 04171 STO ADDCO BY ONE. F3A22080 07052 0020 00 0 07036 TRA CMP05 *TRANSFER. F3A22090 BINARY CARD NO. 9F220075 07053 1 77775 1 07035 CMP09 TXI CMP04,1,-3 $*NO REDUCE IR 1 AND TRANSFER. F3A22100 07054 0522 00 0 07036 CMP10 XEC CMP05 $ENTER AND RESTORE IR4 FOR FIFTHX. F3A22110 07055 0020 00 4 00001 TRA 1,4 *TRANSFER. F3A22120 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 50 TRASTO FORMULA NUMBER SEARCH SUBROUTINE F3A22140 F3A22150 07056 0634 00 4 07076 M2700 SXA M2703,4 $SAVE IR 4. F3A22160 07057 3 00000 1 07062 M2701 TXH *+3,1,** +$*TEST FOR END OF TRASTO TABLE. F3A22170 07060 0522 00 0 07076 XEC M2703 LOAD IR 4 FOR RETURN. F3A22180 07061 0020 00 4 00001 TRA 1,4 *RETURN FOR TIFGO IFN NOT FOUND IN TRASTO. F3A22190 07062 0500 00 1 00000 CLA TRAST,1 GET 1ST WORD OF TRASTO ENTRY. F3A22200 07063 0734 00 4 00000 PAX ,4 GET BETA IN ADDRESS AND F3A22210 07064 -0754 00 4 00000 PXD ,4 PUT IT IN DECREMENT OF AC. F3A22220 07065 0340 00 0 04173 CAS TIFFN COMPAPE BETA TO TIFGO IFN. F3A22230 07066 0020 00 0 07071 TRA M2702 *BETA LARGER THAN TIFGO IFN. F3A22240 07067 0020 00 0 07076 TRA M2703 *BETA EQUAL TIFGO IFN. F3A22250 07070 1 77775 1 07057 TXI M2701,1,-3 *BETA LESS THAN TIFGO IFN GO TO NEXT TRASTOF3A22260 07071 0500 00 1 00000 M2702 CLA TRAST,1 $GET ALPHA FROM TRASTO ENTRY. F3A22270 07072 -0320 00 0 04152 ANA DCMSK ALPHA IS IN DECREMENT. F3A22280 07073 0340 00 0 04173 CAS TIFFN COMPARE ALPHA TO TIFGO IFN. F3A22290 07074 1 77775 1 07057 TXI M2701,1,-3 *ALPHA LARGER THAN TIFGO IFN NEXT TRASTO. F3A22300 07075 1 77775 1 07057 TXI M2701,1,-3 *ALPHA EQUAL TIFGO IFN NEXT TRASTO. F3A22310 07076 0774 00 4 00000 M2703 AXT **,4 +$ALPHA LESS THAN TIFGO IFN. TIFGO IN TRASTOF3A22320 07077 0020 00 4 00002 TRA 2,4 *RETURN F3A22330 COMPILING ROUTINE FOR TRASTO NOT FOUND F3A22350 F3A22360 07100 0634 00 4 07122 CMOUT SXA CMOU1,4 $ENTER AND SAVE IR 4. F3A22370 BINARY CARD NO. 9F220076 07101 0054 00 000100 RFT FFTHX BRANCH. F3A22380 07102 0020 00 4 00002 TRA 2,4 *TRANSFER ON FIFTHX. F3A22390 07103 0500 00 2 00000 CLA TRLEV,2 GET BETA. F3A22400 07104 -0320 00 0 04152 ANA DCMSK FROM DECREMENT OF TRALEV AND F3A22410 07105 0601 00 0 04166 STO M1CW+2 PUT IN 3RD WORD OF CIT. F3A22420 07106 0054 00 000040 RFT FORTX BRANCH FOR INDICATOR FOURTX. F3A22430 07107 0074 00 4 07362 TSX OPM01,4 *COMPILE 0,,TPL,,BETA,,0. F3A22440 07110 0054 00 000010 RFT SCONX BRANCH FOR INDICATOR SECONX. F3A22450 07111 0074 00 4 07332 TSX T0M01,4 *COMPILE IFN,,0,,BETA,,0. F3A22460 07112 0054 00 000004 RFT FRSTX BRANCH FOR INDICATOR FIRSTX. F3A22470 07113 0074 00 4 07354 TSX OTM01,4 *COMPILE 0,,TRA,,BETA,,0. F3A22480 07114 0056 00 000020 RNT THRDX BRANCH. F3A22490 07115 0020 00 0 07122 TRA CMOU1 *TRANSFER FOR FIRSTX SECONX AND FOURTX. F3A22500 07116 0500 00 0 04173 CLA TIFFN GET IFN AND F3A22510 07117 -0501 00 0 04134 ORA L(8) ADD ONE IN ADD AND F3A22520 07120 0601 00 0 04164 STO M1CW PUT IN 1ST WORD OF CIT. F3A22530 07121 0074 00 4 07340 TSX MZM01,4 *COMPILE IFN+1,,TZE,,BETA,,0. F3A22540 07122 0774 00 4 00000 CMOU1 AXT **,4 +$RESTORE IR 4. F3A22550 07123 0020 00 4 00002 TRA 2,4 *TRANSFER. F3A22560 ROUTINE FOR ANOTHER PASS THRU TRASTO F3A22580 F3A22590 07124 0056 00 000100 ADDBC RNT FFTHX $ENTER AND BRANCH ON FIFTHX. F3A22600 07125 0020 00 4 77774 TRA -4,4 *BACK FOR FIRSTX SECONX THIRDX FOURTX F3A22610 07126 0500 00 0 04171 CLA ADDCO ADDCO COUNTER NON ZERO F3A22620 BINARY CARD NO. 9F220077 07127 0100 00 4 77774 TZE -4,4 *STORE ZERO IN 1ST WORD OF CIT. F3A22630 07130 0600 00 0 04164 STZ M1CW THIS REMOVES IFN AND GIVES BLOCK OF CODE F3A22640 07131 0020 00 4 77774 TRA -4,4 *TRANSFER BACK. F3A22650 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 51 INDEXING INSTRUCTION COMPILER SUBROUTINE F3A22670 F3A22680 07132 0634 00 4 07161 M2800 SXA M2848,4 $SAVE IR 4. F3A22690 07133 0634 00 2 07163 SXA M2849,2 SAVE IR 2. F3A22700 07134 3 00000 1 07142 M2801 TXH M2825,1,** +*TYPE 1 TRASTO. F3A22710 07135 3 00000 1 07165 M2802 TXH M2850,1,** +*TYPE 2 TRASTO. F3A22720 07136 3 00000 1 07201 M2803 TXH M2875,1,** +*TYPE 3 TRASTO. F3A22730 07137 3 00000 1 07216 M2804 TXH M2900,1,** +*TYPE 4 TRASTO. F3A22740 07140 3 00000 1 07240 M2805 TXH M2925,1,** +*TYPE 5 TRASTO. F3A22750 07141 3 00000 1 07255 M2806 TXH M2950,1,** +*TYPE 6 TRASTO. F3A22760 TYPE 1 TRASTO INSERTS F3A22780 F3A22790 07142 0500 00 1 00002 M2825 CLA TRAST+2,1 $GET 3RD WORD OF TRASTO ENTRY. F3A22800 07143 0734 00 2 00000 PAX ,2 PLACE T2 IN IR2 F3A22810 07144 -0734 00 4 00000 PDX ,4 PLACE T1 IN IR4 F3A22820 07145 0754 00 2 00000 PXA ,2 CLEAR AC AND PUT T2 IN ADDRESS. F3A22830 07146 -0501 00 0 04217 ORA L(C)) OR IN C) F3A22840 07147 0602 00 0 04166 SLW M1CW+2 PUT IN 3RD WORD OF CIT. F3A22850 07150 0754 00 4 00000 PXA ,4 CLEAR AC AND PUT T1 IN ADDRES. F3A22860 07151 0601 00 0 04167 STO M1CW+3 PUT IN 4TH WORD OF CIT. F3A22870 07152 0074 00 4 04516 TSX CIT00,4 COMPILE. F3A22880 07153 0 04236 0 04164 PZE M1CW,,(SXD) IFN (IF ANY),,SXD. F3A22890 07154 0 04167 0 04166 PZE M1CW+2,,M1CW+3 F3A22900 BINARY CARD NO. 9F220078 07155 0634 00 2 04167 SXA M1CW+3,2 CHANGE T1 TO T2 IN 4TH WORD OF CIT. F3A22910 07156 0074 00 4 04516 TSX CIT00,4 COMPILE. F3A22920 07157 0 04237 0 04130 PZE L(0),,(LXP) F3A22930 07160 0 04167 0 04166 PZE M1CW+2,,M1CW+3 C)+T2,,T2. F3A22940 07161 0774 00 4 00000 M2848 AXT **,4 +LOAD IR 4. F3A22950 07162 1 77775 1 07163 TXI *+1,1,-3 BUMP IR1 TO NEXT TRAST ENTRY. F3A22960 07163 0774 00 2 00000 M2849 AXT **,2 +LOAD IR 2 WITH THE CURRENT TRALEV ENTRY. F3A22970 07164 0020 00 4 00001 TRA 1,4 *RETURN F3A22980 TYPE 2 TRASTO INSERTS F3A23000 F3A23010 07165 -0500 00 1 00001 M2850 CAL TRAST+1,1 $GET 2ND WORD OF TRASTO ENTRY WITH BCD. F3A23020 07166 0602 00 0 04166 SLW M1CW+2 SYMBOL AND PUT IT IN 3RD WORD OF CIT. F3A23030 07167 0500 00 1 00002 CLA TRAST+2,1 GET 3RD WORD OF TRASTO ENTRY. F3A23040 07170 -0320 00 0 04153 ANA ADMSK GET T1 IN ADDRESS. F3A23050 07171 0601 00 0 04167 STO M1CW+3 PUT IT IN 4TH WORD OF CIT. F3A23060 07172 0074 00 4 04516 TSX CIT00,4 COMPILE. F3A23070 07173 0 04240 0 04164 PZE M1CW,,(PXD) IFN (IF ANY),,PXD. F3A23080 07174 0 04167 0 04130 PZE L(0),,M1CW+3 0,,T1. F3A23090 07175 0074 00 4 04516 TSX CIT00,4 COMPILE. F3A23100 07176 0 04226 0 04130 PZE L(0),,(STO) 0,,STO. F3A23110 07177 0 04130 0 04166 PZE M1CW+2,,L(0) SYMBOL,,0. F3A23120 07200 0020 00 0 07161 TRA M2848 *BACK TO RETURN. F3A23130 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 52 TYPE 3 TRASTO INSERTS F3A23150 F3A23160 07201 0500 00 1 00002 M2875 CLA TRAST+2,1 $GET 3RD WORD OF TRASTO ENTRY. F3A23170 07202 0737 00 4 00000 PAC ,4 PUT 2S COMP OF N IN IR4. F3A23180 BINARY CARD NO. 9F220079 07203 -0734 00 2 00000 PDX ,2 PUT T IN IR2. F3A23190 07204 0754 00 4 00000 PXA ,4 CLEAR AC AND PUT 1-N IN ADDRESS. F3A23200 07205 -0501 00 0 04232 ORA (TXI) OR IN TXI. F3A23210 07206 0602 00 0 04165 SLW M1CW+1 PUT IN 2ND WORD OF CIT. F3A23220 07207 0754 00 2 00000 PXA ,2 CLEAR AC AND T IN ADDRESS. F3A23230 07210 0400 00 0 04142 ADD L(1D) ADD ONE DECREMENT. F3A23240 07211 0601 00 0 04167 STO M1CW+3 PUT IN 4TH WORD OF CIT. F3A23250 07212 0074 00 4 04516 TSX CIT00,4 COMPILE F3A23260 07213 0 04165 0 04164 PZE M1CW,,M1CW+1 IFN (IF ANY),,TXI+(1-N) F3A23270 07214 0 04167 0 04212 PZE (AST),,M1CW+3 AST,,1+T. F3A23280 07215 0020 00 0 07161 TRA M2848 *BACK TO RETURN. F3A23290 TYPE 4 TRASTO INSERTS F3A23310 F3A23320 07216 0502 00 1 00002 M2900 CLS TRAST+2,1 $GET 3RD WORD OF TRASTO ENTRY. F3A23330 07217 0734 00 2 00000 PAX ,2 PUT T2 IN IR2. F3A23340 07220 -0734 00 4 00000 PDX ,4 PUT T1 IN IR4. F3A23350 07221 0754 00 4 00000 PXA ,4 CLEAR AC AND PUT T1 IN ADDRESS. F3A23360 07222 0601 00 0 04167 STO M1CW+3 PUT IT IN 4TH WORD OF CIT. F3A23370 07223 0074 00 4 07377 TSX CLOC2,4 GET CLOC COUNTER AND BUMP IT. F3A23380 07224 -0501 00 0 04173 ORA TIFFN OR IN THE IFN IN THE DECREMENT. F3A23390 07225 0601 00 0 04166 STO M1CW+2 PUT IT IN 3RD WORD OF CIT. F3A23400 07226 0074 00 4 04516 TSX CIT00,4 COMPILE. F3A23410 07227 0 04236 0 04164 PZE M1CW,,(SXD) IFN (IF ANY),,SXD. F3A23420 07230 0 04167 0 04166 PZE M1CW+2,,M1CW+3 IFN+CLOC(COUNTER),,T1. F3A23430 BINARY CARD NO. 9F220080 07231 0754 00 2 00000 PXA ,2 CLEAR AC AND PUT T2 IN ADDRESS. F3A23440 07232 0400 00 0 04142 ADD L(1D) ADD ONE TO DECREMENT. F3A23450 07233 0601 00 0 04167 STO M1CW+3 PUT IN 4TH WORD OF CIT. F3A23460 07234 0074 00 4 04516 TSX CIT00,4 COMPILE. F3A23470 07235 0 04233 0 04166 PZE M1CW+2,,(TIX) IFN+CLOC(COUNTER),,TIX. F3A23480 07236 0 04167 0 04212 PZE (AST),,M1CW+3 AST,,1+T2. F3A23490 07237 0020 00 0 07161 TRA M2848 *BACK TO RETURN. F3A23500 TYPE 5 TRASTO INSERTS F3A23520 F3A23530 07240 0502 00 1 00002 M2925 CLS TRAST+2,1 $GET 3RD WORD OF TRASTO ENTRY. F3A23540 07241 0734 00 2 00000 PAX ,2 PUT N IN IR2. F3A23550 07242 -0734 00 4 00000 PDX ,4 PUT T IN IR4. F3A23560 07243 0754 00 4 00000 PXA ,4 CLEAR AC AND PUT T IN ADDRESS. F3A23570 07244 0400 00 0 04142 ADD L(1D) ADD ONE TO DECREMENT. F3A23580 07245 0601 00 0 04167 STO M1CW+3 PUT IT IN 4TH WORD OF CIT. F3A23590 07246 0754 00 2 00000 PXA ,2 CLEAR AC AND PUT N IN ADDRESS. F3A23600 07247 -0501 00 0 04232 ORA (TXI) OR IN TXI. F3A23610 07250 0602 00 0 04165 SLW M1CW+1 PUT IT IN 2ND WORD OF CIT. F3A23620 07251 0074 00 4 04516 TSX CIT00,4 COMPILE. F3A23630 07252 0 04165 0 04164 PZE M1CW,,M1CW+1 IFN (IF ANY),,TXI+N. F3A23640 07253 0 04167 0 04212 PZE (AST),,M1CW+3 AST,,1+T. F3A23650 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 53 07254 0020 00 0 07161 TRA M2848 *BACK TO RETURN. F3A23660 TYPE 6 TRASTO INSERTS F3A23680 F3A23690 07255 0502 00 1 00002 M2950 CLS TRAST+2,1 $GET 3RD WORD OF TRASTO ENTRY. F3A23700 07256 0601 00 0 04167 STO M1CW+3 PUT T IN 4TH WORD OF CIT. F3A23710 BINARY CARD NO. 9F220081 07257 -0501 00 0 04216 ORA L(A)) OR IN A). F3A23720 07260 0602 00 0 04166 SLW M1CW+2 PUT IT IN 3RD WORD OF CIT. F3A23730 07261 0502 00 1 00002 CLS TRAST+2,1 GET 3RD WORD OF TRASTO ENTRY. F3A23740 07262 -0501 00 0 04217 ORA L(C)) OR IN C). F3A23750 07263 0602 00 0 04165 SLW M1CW+1 PUT IT IN 3RD WORD OF CIT. F3A23760 07264 0074 00 4 04516 TSX CIT00,4 COMPILE. F3A23770 07265 0 04236 0 04164 PZE M1CW,,(SXD) IFN (IF ANY),,SXD. F3A23780 07266 0 04140 0 04215 PZE L(6)),,(4A4D 6),,4A4D. F3A23790 07267 0074 00 4 04516 TSX CIT00,4 COMPILE. F3A23800 07270 0 04234 0 04130 PZE L(0),,(TSX) 0,,TSX. F3A23810 07271 0 04133 0 04166 PZE M1CW+2,,L(4) A)+T,,4 F3A23820 07272 0074 00 4 04516 TSX CIT00,4 COMPILE. F3A23830 07273 0 04237 0 04130 PZE L(0),,(LXP) 0,,LXP. F3A23840 07274 0 04167 0 04165 PZE M1CW+1,,M1CW+3 C)+T,T. F3A23850 07275 0074 00 4 04516 TSX CIT00,4 COMPILE. F3A23860 07276 0 04235 0 04130 PZE L(0),,(LXD) 0,,LXD. F3A23870 07277 0 04140 0 04215 PZE L(6)),,(4A4D 6),,4A4D. F3A23880 07300 0020 00 0 07161 TRA M2848 *BACK TO RETURN. F3A23890 COMPILE SAVE RESET AND TRANSFER FOR ALPHA IN TRASTO F3A23910 F3A23920 07301 0634 00 4 07322 M2265 SXA M2267,4 $ENTER AND SAVE IR 4. F3A23930 07302 0500 00 0 04173 CLA TIFFN GET IFN AND OR F3A23940 07303 -0602 00 0 04164 ORS M1CW IN 1ST WORD OF CIT. F3A23950 07304 0600 00 0 04171 STZ ADDCO RESET ADDCO TO ZERO. F3A23960 BINARY CARD NO. 9F220082 07305 0055 00 000100 SIR FFTHX SET INDICATOR FOR SUBROUTINE TO COMPILE. F3A23970 07306 0074 00 4 06726 TSX M2225,4 *SAVE CITS IN M2800. F3A23980 07307 0500 00 0 04171 CLA ADDCO ADDCO ZERO BETA ALREADY COMPILE AND F3A23990 07310 0100 00 0 07321 TZE M2266 *TRANSFER. F3A24000 07311 0500 00 2 00000 CLA TRLEV,2 GET BETA FROM TRALEV. F3A24010 07312 -0320 00 0 04152 ANA DCMSK AND PUT F3A24020 07313 0601 00 0 04166 STO M1CW+2 IN 3RD WORD OF CIT. F3A24030 07314 0074 00 4 04516 TSX CIT00,4 *COMPILE. F3A24040 07315 0 04227 0 04212 PZE (AST),,(TRA) AST,,TRA. F3A24050 07316 0 04130 0 04166 PZE M1CW+2,,L(0) BETA,,0 F3A24060 07317 0074 00 4 07377 TSX CLOC2,4 *BUMP CLOC COUNTER AND F3A24070 07320 0601 00 0 04164 STO M1CW PUT IN ADD OF 1ST WORD OF CIT. F3A24080 07321 0522 00 0 06401 M2266 XEC M2104 $RESET TRASTO ENTRY POINT IN IR 1. F3A24090 07322 0774 00 4 00000 M2267 AXT **,4 +RESTORE IR 4. F3A24100 07323 0020 00 4 00001 TRA 1,4 *TRANSFER. F3A24110 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 54 COMPILE IFN,,0,,0,,0 F3A24130 F3A24140 07324 0634 00 4 07330 T0001 SXA T0002,4 $ENTER AND SAVE IR 4. F3A24150 07325 0074 00 4 04516 TSX CIT00,4 *COMPILE F3A24160 07326 0 04130 0 04173 PZE TIFFN,,L(0) IFN,,0. F3A24170 07327 0 04130 0 04130 PZE L(0),,L(0) 0,,0. F3A24180 07330 0774 00 4 00000 T0002 AXT **,4 +RESTORE IR 4. F3A24190 07331 0020 00 4 00001 TRA 1,4 *TRANSFER. F3A24200 COMPILE IFN,,0,,M2CW+2,,0 F3A24220 F3A24230 07332 0634 00 4 07336 T0M01 SXA T0M02,4 $ENTER AND SAVE IR 4. F3A24240 BINARY CARD NO. 9F220083 07333 0074 00 4 04516 TSX CIT00,4 *COMPILE. F3A24250 07334 0 04130 0 04173 PZE TIFFN,,L(0) IFN,,0. F3A24260 07335 0 04130 0 04166 PZE M1CW+2,,L(0) M2CW+2,,0. F3A24270 07336 0774 00 4 00000 T0M02 AXT **,4 +RESTORE IR 4. F3A24280 07337 0020 00 4 00001 TRA 1,4 *TRANSFER. F3A24290 COMPILE M2CW,,TZE,,M2CW+2,,0 F3A24310 F3A24320 07340 0634 00 4 07344 MZM01 SXA MZM02,4 $ENTER AND SAVE IR 4. F3A24330 07341 0074 00 4 04516 TSX CIT00,4 *COMPILE F3A24340 07342 0 04231 0 04164 PZE M1CW,,(TZE) M1CW,,TZE. F3A24350 07343 0 04130 0 04166 PZE M1CW+2,,L(0) M1CW+2,,0. F3A24360 07344 0774 00 4 00000 MZM02 AXT **,4 +RESTORE IR 4. F3A24370 07345 0020 00 4 00001 TRA 1,4 *TRANSFER. F3A24380 COMPILE IFN,,0,,IFN,,M2CW+3 F3A24400 F3A24410 07346 0634 00 4 07352 TOTM1 SXA TOTM2,4 $ENTER AND SAVE IR 4. F3A24420 07347 0074 00 4 04516 TSX CIT00,4 *COMPILE. F3A24430 07350 0 04130 0 04173 PZE TIFFN,,L(0) IFN,,0. F3A24440 07351 0 04167 0 04173 PZE TIFFN,,M1CW+3 IFN,,M2CW+3. F3A24450 07352 0774 00 4 00000 TOTM2 AXT **,4 +RESTORE IR 4. F3A24460 07353 0020 00 4 00001 TRA 1,4 *TRANSFER F3A24470 COMPILE 0,,TRA,,M2CW+2,,0 F3A24490 F3A24500 07354 0634 00 4 07360 OTM01 SXA OTM02,4 $ENTER AND SAVE IR 4. F3A24510 07355 0074 00 4 04516 TSX CIT00,4 *COMPILE. F3A24520 07356 0 04227 0 04130 PZE L(0),,(TRA) 0,,TRA. F3A24530 07357 0 04130 0 04166 PZE M1CW+2,,L(0) M2CW+2,,0 F3A24540 07360 0774 00 4 00000 OTM02 AXT **,4 +RESTORE IR 4. F3A24550 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 55 BINARY CARD NO. 9F220084 07361 0020 00 4 00001 TRA 1,4 *TRANSFER. F3A24560 COMPILE 0,,TPL,,M2CW+2,,0 F3A24580 F3A24590 07362 0634 00 4 07366 OPM01 SXA OPM02,4 $ENTER AND SVAE IR 4. F3A24600 07363 0074 00 4 04516 TSX CIT00,4 *COMPILE. F3A24610 07364 0 04230 0 04130 PZE L(0),,(TPL) 0,,TPL. F3A24620 07365 0 04130 0 04166 PZE M1CW+2,,L(0) M2CW+2,,0. F3A24630 07366 0774 00 4 00000 OPM02 AXT **,4 +RESORE IR 4. F3A24640 07367 0020 00 4 00001 TRA 1,4 *TRANSFER. F3A24650 ROUTINE TO BUMP ADDCO COUNTER F3A24670 F3A24680 07370 0500 00 0 04171 ADDC1 CLA ADDCO $GET ADDCO. F3A24690 07371 0400 00 0 04134 ADD L(8) BUMP. F3A24700 07372 0601 00 0 04171 STO ADDCO SAVE ADDCO. F3A24710 07373 0020 00 4 00001 TRA 1,4 *TRANSFER. F3A24720 ROUTINE TO RESET CLOC COUNTER F3A24740 F3A24750 07374 0500 00 0 04134 CLOC1 CLA L(8) $RESET. F3A24760 07375 0601 00 0 04175 STO CLOC CLOC. F3A24770 07376 0020 00 4 00001 TRA 1,4 *TRANSFER. F3A24780 ROUTINE TO BUMP CLOC COUNTER F3A24800 F3A24810 07377 0500 00 0 04175 CLOC2 CLA CLOC $GET CLOC. F3A24820 07400 0400 00 0 04134 ADD L(8) BUMP. F3A24830 07401 0601 00 0 04175 STO CLOC SAVE CLOC. F3A24840 07402 0020 00 4 00001 TRA 1,4 *TRANSFER. F3A24850 ROUTINE TO COMPUTE N+1 F3A24870 F3A24880 07403 0500 00 0 04207 CTRDN CLA BETA1 $GET CTRAD1. F3A24890 07404 0400 00 0 04142 ADD L(1D) ADD ONE. F3A24900 07405 0402 00 0 04210 SUB BETA2 SUBTRACT CTRADU TO GET N+1 F3A24910 07406 0601 00 0 04167 STO M1CW+3 SAVE N+1 IN 4TH WORD OF CIT. F3A24920 BINARY CARD NO. 9F220085 07407 0020 00 4 00001 TRA 1,4 *TRANSFER F3A24930 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 56 END OF TIFGO FILE AND INITIALIZE FIRST FILE F3A24950 F3A24960 07410 0500 60 0 04013 M2190 CLA* 8ASCN GET ASCON WORD COUNT. F3A24970 07411 0400 00 0 04142 ADD L(1D) ADD ONE TO WORD COUNT AND SET WRITE F3A24980 07412 0622 00 0 05061 STD SASCN COMMAND F3A24990 07413 0500 60 0 04015 CLA* 8FXCN GET FIXCON WORD COUNT. F3A25000 07414 0734 00 1 00000 PAX ,1 GET FIXCON WORD COUNT FROM ADDRESS. F3A25010 07415 1 00001 1 07416 TXI *+1,1,1 ADD ONE FOR WORD COUNT AND F3A25020 07416 -0634 00 1 05063 SXD SFXCN,1 SET COMMAND F3A25030 07417 0774 00 2 00006 AXT 6,2 WRITE ASCON F3A25040 07420 0074 00 4 04327 TSX RDTBA,4 AND FIXCON AND F3A25050 07421 2 00001 2 07420 TIX *-1,2,1 SPACE TAPE F3A25060 07422 0020 00 0 11314 TOPAT TRA PAT1 $F3A25070 07423 0600 00 0 04610 STZ WTV01 SET SWITCH IN OVERFLOW ROUTINE F3A25080 07424 0500 00 0 04300 CLA CINF SAVE INFORMATION ON TIFGO FILE F3A25090 07425 0601 00 0 04304 STO STFIF IN STFIF F3A25100 07426 -0534 00 2 04300 LXD CINF,2 SET ADDRESS OF CINF EQUAL TO THE DEC F3A25110 07427 0634 00 2 04300 SXA CINF,2 FOR FIRST FILE F3A25120 07430 0535 00 2 05111 LAC FIRF2,2 GET 2S COMP OF SECOND BUFFER FOR OVERFLOW F3A25130 07431 -0634 00 2 04577 SXD CIBL1,2 AND PUT IN COMPILING TEST F3A25140 MERGE OF COMPAIL AND COMPDO F3A25160 F3A25170 07432 0500 00 1 00000 FAD01 CLA AIL,1 GET 1ST AIL AND CHECK FOR FLOATING POINT F3A25180 07433 0340 00 0 04223 CAS FPTCN TRAP BY COMPARING TO $$. F3A25190 07434 0020 00 0 07436 TRA *+2 TRANSFER $F3A25200 BINARY CARD NO. 9F220086 07435 0020 00 0 07437 TRA *+2 TO FLOATING POINT TRAP. F3A25210 07436 0074 00 4 11317 TSX PAT1B,4 GO SET INDEX TO WRITE CLA2 STO6)+5 ONLY $F3A25220 07437 0774 00 2 00005 AXT 5,2 COMPILE $F3A25230 07440 0074 00 4 04542 TSX CITR1,4 1ST FIVE AIL FOR CLA2 AND STO6)+5 AND $F3A25240 07441 2 00001 2 07440 TIX *-1,2,1 FLOATING POINT TRAP F3A25250 07442 -0534 00 2 04355 FAD02 LXD RDD04,2 LOAD IR2 WITH COMPDO. F3A25260 07443 0074 00 4 07601 TSX TONE,4 ARE NEXT FOUR WORDS ALL ONES F3A25270 07444 -0100 00 0 07470 TNZ FAD06 NO TRANSFER F3A25280 07445 -0535 00 4 04300 LDC CINF,4 YES FORTRAN FUNCTION F3A25290 07446 0754 00 4 00000 PXA ,4 GET LOC IN AIL BUFFER AND PUT IN AC F3A25300 07447 0074 00 4 07607 TSX SRIR1,4 SAVE IR1 AND GET COUNTER IN IR1 F3A25310 07450 0621 00 1 05116 STA SKLST,1 PUT ADDRESS IN COMMAND F3A25320 07451 0522 00 0 07610 XEC SRIR2 RELOAD IR1 WITH AIL ADDRESS F3A25330 07452 -0534 00 4 04300 LXD CINF,4 GET 2S COMP OF ADD IN IR4 F3A25340 07453 0634 00 4 07454 SXA FAD03,4 AND SAVE IN FAD03 F3A25350 07454 0774 00 4 00000 FAD03 AXT **,4 FOR FUTURER RESTORATION F3A25360 07455 1 77774 1 07456 FAD04 TXI *+1,1,-4 BUMP AIL LOCATION F3A25370 07456 0074 00 4 07613 TSX TEST1,4 TEST FOR END OF BUFFER F3A25380 07457 0074 00 4 04542 FAD05 TSX CITR1,4 COMPILE. F3A25390 07460 0074 00 4 07613 TSX TEST1,4 TEST AGAIN F3A25400 07461 0500 00 1 00000 CLA AIL,1 GET 1ST WORD OF NEXT CIT F3A25410 07462 0100 00 0 07457 TZE FAD05 IF IFN ZERO GO BACK AND COMPILE AGAIN F3A25420 BINARY CARD NO. 9F220087 07463 0402 00 0 04151 SUB ALONE IS 1ST WORD ALL ONE . F3A25430 07464 -0100 00 0 07470 TNZ FAD06 TRANSFER OUT. F3A25440 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 57 07465 0074 00 4 07601 TSX TONE,4 IS ENTIRE CIT ALL ONF F3A25450 07466 0100 00 0 07455 TZE FAD04 TRANSFER BACK FOR FORTRAN FUNCTION F3A25460 07467 0020 00 0 07457 TRA FAD05 TRANSFER BACK FOR OPEN SUBROUTINE F3A25470 07470 0522 00 0 07454 FAD06 XEC FAD03 WAS FAD03 EXECUTED F3A25480 07471 -3 00000 4 07511 TXL FAD07,4,0 NO TRANSFER F3A25490 07472 -0634 00 4 07474 SXD *+2,4 YES COMPUTE WORD COUNT FOR FORTRAN F3A25500 07473 -0535 00 4 04300 LDC CINF,4 FUNCTION COMMAND. F3A25510 07474 1 00000 4 07475 TXI *+1,4,** WORD COUNT IN IR4 F3A25520 07475 -0634 00 4 04205 SXD FOFWC,4 SAVE WORD COUNT F3A25530 07476 -0754 00 4 00000 PXD ,4 PUT WORD COUNT IN AC DEC F3A25540 07477 0074 00 4 07607 TSX SRIR1,4 SAVE IR1 AND GET COUNTER IN IR1 F3A25550 07500 0622 00 1 05116 STD SKLST,1 SET COUNT IN FORTRAN FUNCTION COMMAND F3A25560 07501 0074 00 4 04327 TSX RDTBA,4 WRITE FORTRAN FUNCTIONS F3A25570 07502 0074 00 4 04327 TSX RDTBA,4 WRITE EOF F3A25580 07503 0522 00 0 07610 XEC SRIR2 RELOAD IR1 WITH AIL ADD F3A25590 07504 0522 00 0 07454 XEC FAD03 GET ADDRESS TO RESTORE F3A25600 07505 -0634 00 4 04300 SXD CINF,4 DEC OF CINF. F3A25610 07506 -0520 00 0 04305 NZT SFFIF DID OVERFLOW OCCUR. F3A25620 07507 0020 00 0 07515 TRA FAD08 NO TRANSFER. F3A25630 07510 0074 00 4 04127 TSX ERR25,4 YES GO TO DIAG. F3A25640 BINARY CARD NO. 9F220088 07511 0074 00 4 07607 FAD07 TSX SRIR1,4 SAVE IR1 AND GET COUNTER F3A25650 07512 1 77776 1 07513 TXI *+1,1,-2 BUMP COUNTER BY 2 FOR NO FORTRAN FUNCTIONSF3A25660 07513 0634 00 1 04327 SXA RDTBA,1 SAVE COUNTER F3A25670 07514 0522 00 0 07610 XEC SRIR2 RESTORE IR1 F3A25680 07515 0054 00 001000 FAD08 RFT NODO ANY COMPDO F3A25690 07516 0020 00 0 07530 TRA FAD10 NO TRANSFER. F3A25700 07517 0054 00 000400 FAD09 RFT NOAIL ANY COMPAIL F3A25710 07520 0020 00 0 07555 TRA FAD13 NO TRANSFER. F3A25720 07521 0500 00 2 00000 CLA DO,2 GET 1ST WORD OF DO CIT F3A25730 07522 0622 00 0 04157 STD MDOFN SAVE THE IFN. F3A25740 07523 0500 00 1 00000 CLA AIL,1 GET 1ST WORD OF AIL CIT F3A25750 07524 -0320 00 0 04152 ANA DCMSK GET JUST IFN IN DEC OF AC. F3A25760 07525 0340 00 0 04157 CAS MDOFN COMPARE IFNS. F3A25770 07526 0020 00 0 07555 TRA FAD13 AIL IFN LARGER COMPILE DO IFN F3A25780 07527 0020 00 0 07530 TRA *+1 EQUAL COMPILE AIL F3A25790 07530 0500 00 1 00000 FAD10 CLA AIL,1 AIL LESS GET 1ST WORD OF AIL CIT. F3A25800 07531 0340 00 0 04151 CAS ALONE COMPARE TO ALL ONE FORTRAN FUNCTION. F3A25810 07532 0020 00 0 07535 TRA *+3 NOT ALL ONE TRANSFER AND CONTINUE F3A25820 07533 0074 00 4 04106 TSX ERR16,4 FORTRAN FUNCTION IN MIDDLE OF F3A25830 07534 0074 00 4 04106 TSX ERR16,4 PROGRAM GO TO DIAG F3A25840 07535 0622 00 0 04160 STD MALFN SAVE AIL IFN. F3A25850 07536 -0120 00 0 07625 FAD11 TMI OPS01 TRANSFER TO OPEN SUBROUTINE ON MINUS. F3A25860 BINARY CARD NO. 9F220089 07537 0500 00 1 00003 CLA AIL+3,1 GET 4TH WORD OF AIL CIT F3A25870 07540 -0320 00 0 04137 ANA TGMSK 4TH WORD CIT BITS 24-26. IF 1 DO NOT F3A25880 07541 0100 00 0 07544 TZE *+3 CHANGE. IF 2 OR 3 CHANGE TAG SEARCH F3A25890 07542 0056 00 000001 RNT NOCHG CHANGE TAG EMPTY. F3A25900 07543 0074 00 4 06177 TSX M1250,4 CHANGE TAG TABLE SEARCH F3A25910 07544 0074 00 4 04542 TSX CITR1,4 COMPILE AIL. F3A25920 07545 0074 00 4 07613 FAD12 TSX TEST1,4 TEST AIL BUFFER F3A25930 07546 0500 00 1 00000 CLA AIL,1 GET NEXT AIL CIT F3A25940 07547 -0320 00 0 04152 ANA DCMSK COMPARE THIS AIL IFN TO THE PREVIOUS F3A25950 07550 0340 00 0 04160 CAS MALFN AIL. IF LARGER GO BACK TO DO COMPARE. F3A25960 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 58 07551 0020 00 0 07515 TRA FAD08 TRANSFER BACK F3A25970 07552 0020 00 0 07553 TRA *+1 IF EQUAL OR F3A25980 07553 0500 00 1 00000 CLA AIL,1 LARGER GET 1ST WORD AIL CIT F3A25990 07554 0020 00 0 07536 TRA FAD11 AND TRANSFER TO OPEN SUBROUTINE TEST F3A26000 07555 0074 00 4 04557 FAD13 TSX CITR2,4 COMPILE COMPDO CIT. F3A26010 07556 0074 00 4 07620 TSX TEST2,4 TEST COMPDO BUFFER F3A26020 07557 0500 00 2 00000 CLA DO,2 GET 1ST WORD OF NEXT DO CIT F3A26030 07560 -0320 00 0 04152 ANA DCMSK GET DO IFN. F3A26040 07561 0340 00 0 04157 CAS MDOFN COMPARE TO PREVIOUS DO CIT. F3A26050 07562 0020 00 0 07517 TRA FAD09 LARGER GO BACK AND COMPARE TO AIL IFN F3A26060 07563 0020 00 0 07555 TRA FAD13 EQUAL COMPILE DO F3A26070 07564 0020 00 0 07555 TRA FAD13 LESS COMPILE DO F3A26080 END OF FIRST FILE MERGE F3A26100 F3A26110 BINARY CARD NO. 9F220090 07565 0055 00 001000 FAD14 SIR NODO SET INDICATOR FOR NO COMPDO F3A26120 07566 0522 00 0 04437 XEC RDD14 F3A26130 07567 0056 00 000200 RNT FAIL TEST INDICATOR TO SEE IF AIL YET READ F3A26140 07570 0020 00 0 11315 TRA PAT1A NO COMPDO, AIL NOT YET READ $F3A26150 07571 0054 00 000400 RFT NOAIL NO AIL F3A26160 07572 0020 00 0 10460 TRA M3000 TRANSFER OUT F3A26170 07573 0020 00 0 07530 TRA FAD10 MORE AIL TRANSFER BACK F3A26180 07574 0055 00 000400 FAD15 SIR NOAIL SET INDICATOR FOR NO COMPAIL F3A26190 07575 0522 00 0 04510 XEC RDA09 F3A26200 07576 0054 00 001000 RFT NODO TEST IF MORE COMPDO F3A26210 07577 0020 00 0 10460 TRA M3000 NO COMPDO OUT F3A26220 07600 0020 00 0 07555 TRA FAD13 MORE COMPDO TRANSFER BACK. F3A26230 ROUTINE TO CIT FOR FOUR WORDS OF ONES F3A26250 F3A26260 07601 -0500 00 1 00000 TONE CAL AIL,1 AC ZERO IF ALL ONE F3A26270 07602 -0320 00 1 00001 ANA AIL+1,1 AC NON ZERO IF NOT ALL ONE F3A26280 07603 -0320 00 1 00002 ANA AIL+2,1 F3A26290 07604 -0320 00 1 00003 ANA AIL+3,1 F3A26300 07605 0322 00 0 04151 ERA ALONE F3A26310 07606 0020 00 4 00001 TRA 1,4 F3A26320 ROUTINE TO SAVE IR1 AND GET SKLST COUNTER IN IR1 F3A26340 F3A26350 07607 0634 00 1 07610 SRIR1 SXA SRIR2,1 SAVE IR1 F3A26360 07610 0774 00 1 00000 SRIR2 AXT **,1 F3A26370 07611 0522 00 0 04327 XEC RDTBA LOAD IR1 WITH SKLST COUNTER F3A26380 07612 0020 00 4 00001 TRA 1,4 F3A26390 ROUTINE TO TEST COMPAIL BUFFER AND READ COMPAIL F3A26410 F3A26420 BINARY CARD NO. 9F220091 07613 0634 00 4 07616 TEST1 SXA TEST3,4 F3A26430 07614 0074 00 4 04513 TSX TESTA,4 TEST FOR END OF BUFFER F3A26440 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 59 07615 0074 00 4 04445 TSX RDA01,4 RETURN ONE READ ANOTHER BUFFER F3A26450 07616 0774 00 4 00000 TEST3 AXT **,4 RETURN BUFFER NOT EMPTY F3A26460 07617 0020 00 4 00001 TRA 1,4 F3A26470 ROUTINE TO TEST COMPDO BUFFER AND READ COMPDO F3A26490 F3A26500 07620 0634 00 4 07623 TEST2 SXA TEST4,4 F3A26510 07621 0074 00 4 04442 TSX TESTD,4 TEST FOR END DO BUFFER F3A26520 07622 0074 00 4 04343 TSX RDD01,4 RETURN ONE READ ANOTHER BUFFER F3A26530 07623 0774 00 4 00000 TEST4 AXT **,4 RETURN TWO BUFFER NOT EMPTY F3A26540 07624 0020 00 4 00001 TRA 1,4 F3A26550 BRANCHING ROUTINE FOR OPEN SUBROUTINES F3A26570 F3A26580 07625 0760 00 0 00002 OPS01 CHS CHANGE MINUS TO PLUS. F3A26590 07626 0601 00 0 04164 STO M1CW PLACE IFN IN M1CW F3A26600 07627 0500 00 1 00001 CLA AIL+1,1 GET 2ND WORD OF AIL CIT F3A26610 07630 0402 00 0 04220 SUB LSTR0 SUBTRACT ASTERICK OR *00000. F3A26620 07631 0100 00 0 07744 TZE EXP01 TRANSFER TO FIXED EXPONENTIAL F3A26630 07632 0400 00 0 04221 ADD L0STR CHECK FOR **0000. F3A26640 07633 0100 00 0 07745 TZE EXP02 TRANSFER TO FLOATING EXPONENTIAL F3A26650 OTHER OPEN SUBROUTINES F3A26670 F3A26680 07634 0774 00 4 00024 OPS02 AXT 20,4 CHANGE THIS CELL WHEN MORE ROUTINES ADDED F3A26690 07635 0500 00 1 00002 CLA AIL+2,1 GET 3RD WORD OF AIL CIT. F3A26700 07636 0340 00 4 07732 OPS03 CAS M1D+20,4 CHANGE CELL WHEN ROUTINES ADDED F3A26710 07637 0020 00 0 07641 TRA OPS04 COMPARE NAME IN 3RD WORD WITH DICTIONARY F3A26720 07640 0020 00 0 07643 TRA OPS05 MATCH TRANSFER F3A26730 BINARY CARD NO. 9F220092 07641 2 00001 4 07636 OPS04 TIX OPS03,4,1 NO MATCH RETURN AND TRY AGAIN. F3A26740 07642 0074 00 4 04107 TSX ERR17,4 NOT FOUND GO TO DIAG F3A26750 07643 0634 00 4 07646 OPS05 SXA OPS06,4 SAVE IR4 F3A26760 07644 1 77774 1 07645 TXI *+1,1,-4 BUMP IR1 TO NEXT AIL F3A26770 07645 0074 00 4 07613 TSX TEST1,4 TEST AIL BUFFER F3A26780 07646 0774 00 4 00000 OPS06 AXT **,4 RESTORE IR4 F3A26790 07647 0020 00 4 07674 OPS07 TRA *+21,4 CHANGE CELL WHEN ROUTINES ADDED. F3A26800 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 60 TRANSFER LIST FOR OPEN SUBROUTINES F3A26820 F3A26830 07650 0020 00 0 10062 TRA ABS TRANSFER TO XABS F3A26840 07651 0020 00 0 10062 TRA ABS TRANSFER TO ABS F3A26850 07652 0020 00 0 10070 TRA FIX TRANSFER TO XINT F3A26860 07653 0020 00 0 10067 TRA INT TRANSFER TO INT F3A26870 07654 0020 00 0 10070 TRA FIX TRANSFER TO XFIX F3A26880 07655 0020 00 0 10112 TRA FLOAT TRANSFER TO FLOAT F3A26890 07656 0020 00 0 10115 TRA XMOD TRANSFER TO XMOD F3A26900 07657 0020 00 0 10116 TRA MOD TRANSFER TO MOD F3A26910 07660 0020 00 0 10164 TRA SIGN TRANSFER TO XSIGN F3A26920 07661 0020 00 0 10164 TRA SIGN TRANSFER TO SIGN F3A26930 07662 0020 00 0 10174 TRA XMAX0 TRANSFER TO XMAX0 F3A26940 07663 0020 00 0 10176 TRA MAX0 TRANSFER TO MAX0 F3A26950 07664 0020 00 0 10201 TRA XMAX1 TRANSFER TO XMAX1 F3A26960 07665 0020 00 0 10174 TRA XMAX0 TRANSFER TO MAX1 F3A26970 07666 0020 00 0 10203 TRA XMIN0 TRANSFER TO XMIN0 F3A26980 BINARY CARD NO. 9F220093 07667 0020 00 0 10206 TRA MIN0 TRANSFER TO MIN0 F3A26990 07670 0020 00 0 10212 TRA XMIN1 TRANSFER TO XMIN1 F3A27000 07671 0020 00 0 10203 TRA XMIN0 TRANSFER TO MIN1 F3A27010 07672 0020 00 0 10215 TRA XDIM TRANSFER TO XDIM F3A27020 07673 0020 00 0 10216 TRA DIM TRANSFER TO DIM F3A27030 07674 TRANS BSS 10 SPACE FOR TEN MORE ROUTINES. F3A27040 DICTIONARY FOR OPEN SUBROUTINES F3A27060 F3A27070 BINARY CARD NO. 9F220094 07706 672122626060 M1D BCI 1,XABS F3A27080 07707 212262606060 BCI 1,ABS F3A27090 07710 673145636060 BCI 1,XINT F3A27100 07711 314563606060 BCI 1,INT F3A27110 07712 672631676060 BCI 1,XFIX F3A27120 07713 264346216360 BCI 1,FLOAT F3A27130 07714 674446246060 BCI 1,XMOD F3A27140 07715 444624606060 BCI 1,MOD F3A27150 07716 676231274560 BCI 1,XSIGN F3A27160 07717 623127456060 BCI 1,SIGN F3A27170 07720 674421670060 BCI 1,XMAX0 F3A27180 07721 442167006060 BCI 1,MAX0 F3A27190 07722 674421670160 BCI 1,XMAX1 F3A27200 07723 442167016060 BCI 1,MAX1 F3A27210 07724 674431450060 BCI 1,XMIN0 F3A27220 07725 443145006060 BCI 1,MIN0 F3A27230 07726 674431450160 BCI 1,XMIN1 F3A27240 07727 443145016060 BCI 1,MIN1 F3A27250 07730 672431446060 BCI 1,XDIM F3A27260 07731 243144606060 BCI 1,DIM F3A27270 07732 DICT. BSS 10 SPACE FOR 10 MORE BUILT-IN FUNC. NAMES. F3A27280 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 61 EXPONENTIAL OPEN SUBROUTINES F3A27300 F3A27310 BINARY CARD NO. 9F220095 07744 0055 00 004000 EXP01 SIR FXPT FIXED POINT ENTRY. F3A27320 07745 0074 00 4 10343 EXP02 TSX ARGTG,4 FLOATIN POINT ENTRY AND TAGED ARGUEMENT. F3A27330 07746 1 77774 1 07747 TXI *+1,1,-4 BUMP IR1 TO NEXT AIL CIT F3A27340 07747 0074 00 4 07613 TSX TEST1,4 TEST AIL BUFFER F3A27350 07750 0500 00 0 04166 CLA M1CW+2 GET 3RD WORD OF 1ST AIL CIT F3A27360 07751 0402 00 0 04222 SUB LPLUS IS IT A +00000. F3A27370 07752 0100 00 0 10017 TZE EXP08 YES TRANSFER ARGUEMENT IS IN AC F3A27380 07753 0500 00 0 04166 CLA M1CW+2 GET 3RD WORD OF 1ST AIL CIT. F3A27390 07754 0402 00 0 04220 SUB LSTR0 IS IT A *00000. F3A27400 07755 0100 00 0 10032 TZE EXP10 YES TRANSFER ARGUEMENT IS IN MQ. F3A27410 07756 0500 00 1 00002 CLA AIL+2,1 ARGUEMENT STORED GET VALUE OF EXP IN CIT. F3A27420 07757 0402 00 0 04142 SUB L(1D) IS IT ONE. F3A27430 07760 0100 00 0 10014 TZE EXP07 YES TRANSFER F3A27440 07761 0074 00 4 10406 EXP03 TSX LDQCW,4 COMPILE LOAD MQ FROM LOCATION F3A27450 07762 0500 00 1 00002 EXP04 CLA AIL+2,1 GET VALUE OF EXP IN CIT F3A27460 07763 0402 00 0 04143 SUB L(2D) IS IT TWO F3A27470 07764 0100 00 0 10002 TZE EXP06 YES TRANSFER F3A27480 07765 0622 00 0 04161 STD CCONT SAVE THE COUNT. F3A27490 07766 0056 00 004000 RNT FXPT IS EXP FLOATING. F3A27500 07767 0020 00 0 10046 TRA EXP12 YES TRANSFER F3A27510 07770 0074 00 4 04516 EXP05 TSX CIT00,4 COMPILE FOR FIXED POINT. F3A27520 07771 0 04250 0 04130 PZE L(0),,(MPY) F3A27530 BINARY CARD NO. 9F220096 07772 0 04167 0 04166 PZE M1CW+2,,M1CW+3 F3A27540 07773 0074 00 4 04516 TSX CIT00,4 COMPILE. F3A27550 07774 0 04251 0 04130 PZE L(0),,(LRS) F3A27560 07775 0 04150 0 04130 PZE L(0),,(18D) F3A27570 07776 -0534 00 4 04161 LXD CCONT,4 GET COUNT. F3A27580 07777 1 77777 4 10000 TXI *+1,4,-1 REDUCE COUNT. F3A27590 10000 -0634 00 4 04161 SXD CCONT,4 SAVE COUNT. F3A27600 10001 3 00000 4 07770 TXH EXP05,4,0 IS COUNT ZERO YES DROP THRU NO GO BACK F3A27610 10002 0056 00 004000 EXP06 RNT FXPT IS EXP FLOATING F3A27620 10003 0020 00 0 10056 TRA EXP13 YES TRANSFER. F3A27630 10004 0057 00 004000 RIR FXPT NO RESET INDICATOR F3A27640 10005 0074 00 4 04516 TSX CIT00,4 COMPILE LAST TWO CITS FOR FIXED POINT F3A27650 10006 0 04250 0 04130 PZE L(0),,(MPY) F3A27660 10007 0 04167 0 04166 PZE M1CW+2,,M1CW+3 F3A27670 10010 0074 00 4 04516 TSX CIT00,4 COMPILE F3A27680 10011 0 04252 0 04130 PZE L(0),,(ALS) F3A27690 10012 0 04147 0 04130 PZE L(0),,(17D) F3A27700 10013 1 77774 1 07545 TXI FAD12,1,-4 RETURN TO MAIN MERGE AND NEXT CIT F3A27710 10014 0057 00 004000 EXP07 RIR FXPT RESET INDICATOR F3A27720 10015 0074 00 4 10430 TSX CLATW,4 COMPILE FOR STORED ARGUEMENT WITH EXP OF F3A27730 10016 1 77774 1 07545 TXI FAD12,1,-4 ONE FOR FIXED OR FLOATING POINT AND RETUR.F3A27740 10017 0500 00 1 00002 EXP08 CLA AIL+2,1 ARGUEMENT FIXED OR FLOATING POINT IN AC F3A27750 BINARY CARD NO. 9F220097 10020 0402 00 0 04142 SUB L(1D) IS EXP ONE F3A27760 10021 0100 00 0 10030 TZE EXP09 YES TRANSFER F3A27770 10022 0500 00 0 04213 CLA L(1)) NO STORE ARG IN 1). F3A27780 10023 0601 00 0 04166 STO M1CW+2 F3A27790 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 62 10024 0074 00 4 04516 TSX CIT00,4 COMPILE. F3A27800 10025 0 04226 0 04164 PZE M1CW,,(STO) F3A27810 10026 0 04167 0 04166 PZE M1CW+2,,M1CW+3 F3A27820 10027 0020 00 0 07761 TRA EXP03 ARGUEMENT NOW STORED TRANSFER BACK F3A27830 10030 0057 00 004000 EXP09 RIR FXPT RESET INDICATOR F3A27840 10031 1 77774 1 07545 TXI FAD12,1,-4 RETURN F3A27850 10032 0500 00 1 00002 EXP10 CLA AIL+2,1 ARGUEMENT FIXED OR FLOATING POINT IN MQ. F3A27860 10033 0402 00 0 04142 SUB L(1D) IS EXP ONE F3A27870 10034 0100 00 0 10043 TZE EXP11 YES TRANSFER F3A27880 10035 0500 00 0 04213 CLA L(1)) NO STORE ARG IN 1). F3A27890 10036 0601 00 0 04166 STO M1CW+2 F3A27900 10037 0074 00 4 04516 TSX CIT00,4 COMPILE F3A27910 10040 0 04254 0 04164 PZE M1CW,,(STQ) F3A27920 10041 0 04167 0 04166 PZE M1CW+2,,M1CW+3 F3A27930 10042 0020 00 0 07762 TRA EXP04 ARGUEMENT NOW IN 1) TRANSFER BACK F3A27940 10043 0074 00 4 10422 EXP11 TSX XCACW,4 COMPILE FOR ARGUEMENT IN MQ WITH EXP OF 1 F3A27950 10044 0057 00 004000 RIR FXPT FOR FIXED OR FLOATING POINT AND RESET IND.F3A27960 10045 1 77774 1 07545 TXI FAD12,1,-4 RETURN. F3A27970 BINARY CARD NO. 9F220098 10046 0074 00 4 04516 EXP12 TSX CIT00,4 COMPILE FOR FLOATING POINT F3A27980 10047 0 04255 0 04130 PZE L(0),,(FMP) F3A27990 10050 0 04167 0 04166 PZE M1CW+2,,M1CW+3 F3A28000 10051 0074 00 4 10414 TSX XCA,4 COMPILE XCA F3A28010 10052 -0534 00 4 04161 LXD CCONT,4 GET COUNT. F3A28020 10053 1 77777 4 10054 TXI *+1,4,-1 REDUCE COUNT F3A28030 10054 -0634 00 4 04161 SXD CCONT,4 SAVE COUNT. F3A28040 10055 3 00000 4 10046 TXH EXP12,4,0 IS COUNT ZERO YES DROP THRU NO GO BACK F3A28050 10056 0074 00 4 04516 EXP13 TSX CIT00,4 COMPILE F3A28060 10057 0 04255 0 04130 PZE L(0),,(FMP) F3A28070 10060 0 04167 0 04166 PZE M1CW+2,,M1CW+3 F3A28080 10061 1 77774 1 07545 TXI FAD12,1,-4 RETURN. F3A28090 ABS AND XABS OPEN SUBROUTINES F3A28110 F3A28120 10062 0074 00 4 10370 ABS TSX WHERE,4 CITS COMPILED FOR ARG IN AC. F3A28130 10063 0074 00 4 04516 TSX CIT00,4 COMPILE F3A28140 10064 0 04256 0 04130 PZE L(0),,(SSP) F3A28150 10065 0 04130 0 04130 PZE L(0),,L(0) F3A28160 10066 1 77774 1 07545 TXI FAD12,1,-4 F3A28170 INT XINT AND XFIX OPEN SUBROUTINES F3A28190 F3A28200 10067 0055 00 004000 INT SIR FXPT SET INDICATOR FOR INT F3A28210 10070 0074 00 4 10370 FIX TSX WHERE,4 CITS COMPILED FOR ARG IN AC. F3A28220 10071 0074 00 4 10436 FIX02 TSX UFA,4 COMPILE UFA FROM 6) F3A28230 10072 0054 00 004000 RFT FXPT IS ROUTINE INT F3A28240 10073 0020 00 0 10107 TRA FIX03 YES TRANSFER F3A28250 BINARY CARD NO. 9F220099 10074 0074 00 4 04516 TSX CIT00,4 COMPILE. F3A28260 10075 0 04251 0 04130 PZE L(0),,(LRS) F3A28270 10076 0 04130 0 04130 PZE L(0),,L(0) F3A28280 10077 0074 00 4 04516 TSX CIT00,4 COMPILE F3A28290 10100 0 04260 0 04130 PZE L(0),,(ANA) F3A28300 10101 0 04142 0 04215 PZE L(6)),,L(1D) F3A28310 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 63 10102 0074 00 4 10452 TSX LLS,4 COMPILE LLS F3A28320 10103 0074 00 4 04516 TSX CIT00,4 COMPILE F3A28330 10104 0 04252 0 04130 PZE L(0),,(ALS) F3A28340 10105 0 04150 0 04130 PZE L(0),,(18D) F3A28350 10106 1 77774 1 07545 TXI FAD12,1,-4 RETURN F3A28360 10107 0057 00 004000 FIX03 RIR FXPT RESET INDICATOR. F3A28370 10110 0074 00 4 10444 TSX FADCW,4 COMPILE FAD FROM 6) F3A28380 10111 1 77774 1 07545 TXI FAD12,1,-4 RETURN F3A28390 FLOAT OPEN SUBROUTINE F3A28410 F3A28420 10112 0074 00 4 10370 FLOAT TSX WHERE,4 CITS COMPILED FOR ARG IN AC. F3A28430 10113 0074 00 4 10321 TSX JONT1,4 COMPILING ROUTINE. F3A28440 10114 1 77774 1 07545 TXI FAD12,1,-4 RETURN F3A28450 MOD AND XMOD OPEN SUBROUTINES F3A28470 F3A28480 10115 0055 00 004000 XMOD SIR FXPT SET INDICATOR F3A28490 10116 0074 00 4 10333 MOD TSX ONLY2,4 TEST FOR THREE CITS AND CHECK TAG F3A28500 10117 0054 00 004000 RFT FXPT IS THIS XMOD F3A28510 10120 0020 00 0 10147 TRA MOD01 YES TRANSFER F3A28520 10121 0074 00 4 04516 TSX CIT00,4 COMPILE F3A28530 BINARY CARD NO. 9F220100 10122 0 04225 0 04164 PZE M1CW,,(CLS) F3A28540 10123 0 04167 0 04166 PZE M1CW+2,,M1CW+3 F3A28550 10124 0500 00 0 04166 CLA M1CW+2 SAVE LOCATION AND TAG F3A28560 10125 0601 00 0 04162 STO 3WD F3A28570 10126 0500 00 0 04167 CLA M1CW+3 F3A28580 10127 0601 00 0 04163 STO 4WD F3A28590 10130 0074 00 4 10343 TSX ARGTG,4 CHECK TAG OF THIRD CIT F3A28600 10131 0074 00 4 04516 TSX CIT00,4 COMPILE FROM 3RD CIT F3A28610 10132 0 04264 0 04130 PZE L(0),,(FDP) F3A28620 10133 0 04167 0 04166 PZE M1CW+2,,M1CW+3 F3A28630 10134 0074 00 4 10414 TSX XCA,4 COMPILE XCA F3A28640 10135 0074 00 4 10436 TSX UFA,4 COMPILE UFA FROM 6) F3A28650 10136 0074 00 4 10444 TSX FADCW,4 COMPILE FAD FROM 6) F3A28660 10137 0074 00 4 10414 TSX XCA,4 COMPILE XCA F3A28670 10140 0074 00 4 04516 TSX CIT00,4 COMPILE FROM 3RD CIT F3A28680 10141 0 04255 0 04130 PZE L(0),,(FMP) F3A28690 10142 0 04167 0 04166 PZE M1CW+2,,M1CW+3 F3A28700 10143 0074 00 4 04516 TSX CIT00,4 COMPILE FROM 2ND CIT F3A28710 10144 0 04261 0 04130 PZE L(0),,(FAD) F3A28720 10145 0 04163 0 04162 PZE 3WD,,4WD F3A28730 10146 0020 00 0 11321 TRA PAT1C THEN COMPLETE COMPILE $F3A28740 10147 0057 00 004000 MOD01 RIR FXPT RESET INDICATOR F3A28750 BINARY CARD NO. 9F220101 10150 0074 00 4 04516 TSX CIT00,4 COMPILE F3A28760 10151 0 04262 0 04164 PZE M1CW,,(CLM) F3A28770 10152 0 04130 0 04130 PZE L(0),,L(0) F3A28780 10153 0074 00 4 04516 TSX CIT00,4 COMPILE FROM 2ND CIT F3A28790 10154 0 04247 0 04130 PZE L(0),,(LDQ) F3A28800 10155 0 04167 0 04166 PZE M1CW+2,,M1CW+3 F3A28810 10156 0074 00 4 10452 TSX LLS,4 COMPILE LLS F3A28820 10157 0074 00 4 10343 TSX ARGTG,4 CHECK TAG F3A28830 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 64 10160 0074 00 4 04516 TSX CIT00,4 COMPILE FROM 3RD CIT F3A28840 10161 0 04263 0 04130 PZE L(0),,(DVP) F3A28850 10162 0 04167 0 04166 PZE M1CW+2,,M1CW+3 F3A28860 10163 1 77774 1 07545 TXI FAD12,1,-4 RETURN F3A28870 SIGN AND XSIGN OPEN SUBROUTINES F3A28890 F3A28900 10164 0074 00 4 10333 SIGN TSX ONLY2,4 TEST FOR THREE CITS AND CHECK TAG F3A28910 10165 0074 00 4 10430 TSX CLATW,4 COMPILE CLA FOR 2ND CIT F3A28920 10166 0074 00 4 10343 TSX ARGTG,4 CHECK TAG FOR 3RD CIT F3A28930 10167 0074 00 4 04516 TSX CIT00,4 COMPILE FOR THIRD CIT F3A28940 10170 0 04247 0 04130 PZE L(0),,(LDQ) F3A28950 10171 0 04167 0 04166 PZE M1CW+2,,M1CW+3 F3A28960 10172 0074 00 4 10452 TSX LLS,4 COMPILE LLS F3A28970 10173 1 77774 1 07545 TXI FAD12,1,-4 RETURN F3A28980 XMAX0 AND MAX1 OPEN SUBROUTINES F3A29000 F3A29010 10174 0074 00 4 10261 XMAX0 TSX MAX,4 COMPILING ROUTINE FOR ALL MAX SUBROUTINES F3A29020 10175 1 77774 1 07545 TXI FAD12,1,-4 RETURN F3A29030 MAX0 OPEN SUBROUTINE F3A29050 F3A29060 BINARY CARD NO. 9F220102 10176 0074 00 4 10261 MAX0 TSX MAX,4 COMPILING ROUTINE FOR ALL MAX SUBROUTINES F3A29070 10177 0074 00 4 10321 TSX JONT1,4 COMPILING ROUTINE F3A29080 10200 1 77774 1 07545 TXI FAD12,1,-4 RETURN F3A29090 XMAX1 OPEN SUBROUTINE F3A29110 F3A29120 10201 0074 00 4 10261 XMAX1 TSX MAX,4 COMPILING ROUTINE FOR ALL MAX SUBROUTINES.F3A29130 10202 0020 00 0 10071 TRA FIX02 TRANSFER F3A29140 XMIN0 AND MIN1 OPEN SUBROUTINES F3A29160 F3A29170 10203 0074 00 4 10240 XMIN0 TSX MIN,4 F3A29180 10204 0074 00 4 10414 TSX XCA,4 COMPILING ROUTINE FOR ALL MIN SUBROUTINES F3A29190 10205 1 77774 1 07545 TXI FAD12,1,-4 RETURN F3A29200 MIN0 OPEN SUBROUTINE F3A29220 F3A29230 10206 0074 00 4 10240 MIN0 TSX MIN,4 COMPILING ROUTINE FOR ALL MIN SUBROUTINES F3A29240 10207 0074 00 4 10414 TSX XCA,4 COMPILE XCA F3A29250 10210 0074 00 4 10321 TSX JONT1,4 COMPILING ROUTINE F3A29260 10211 1 77774 1 07545 TXI FAD12,1,-4 RETURN F3A29270 XMIN1 OPEN SUBROUTINE F3A29290 F3A29300 10212 0074 00 4 10240 XMIN1 TSX MIN,4 COMPILING ROUTINE FOR ALL MIN SUBROUTINES F3A29310 10213 0074 00 4 10414 TSX XCA,4 COMPILE XCA F3A29320 10214 0020 00 0 10071 TRA FIX02 TRANSFER F3A29330 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 65 DIM AND XDIM OPEN SUBROUTINES F3A29350 F3A29360 10215 0055 00 004000 XDIM SIR FXPT SET INDICATOR FOR XDIM F3A29370 10216 0074 00 4 10333 DIM TSX ONLY2,4 TEST FOR THREE CITS AND CHECK TAG F3A29380 10217 0074 00 4 10430 TSX CLATW,4 COMPILE CLA F3A29390 10220 0074 00 4 10343 TSX ARGTG,4 CHECK TAG OF THIRD CIT F3A29400 10221 -0500 00 0 04270 CAL (SUB) SUB FOR XDIM. F3A29410 10222 0056 00 004000 RNT FXPT TEST F3A29420 10223 -0500 00 0 04266 CAL (FSB) FSB FOR DIM. F3A29430 BINARY CARD NO. 9F220103 10224 0602 00 0 04165 SLW M1CW+1 STORE SUB FOR XDIM AND FSB FOR DIM F3A29440 10225 0057 00 004000 RIR FXPT RESET INDICATOR F3A29450 10226 0074 00 4 04516 TSX CIT00,4 COMPILE F3A29460 10227 0 04165 0 04130 PZE L(0),,M1CW+1 F3A29470 10230 0 04167 0 04166 PZE M1CW+2,,M1CW+3 F3A29480 10231 0074 00 4 04516 TSX CIT00,4 COMPILE F3A29490 10232 0 04230 0 04130 PZE L(0),,(TPL) F3A29500 10233 0 04143 0 04212 PZE (AST),,L(2D) F3A29510 10234 0074 00 4 04516 TSX CIT00,4 COMPILE F3A29520 10235 0 04240 0 04130 PZE L(0),,(PXD) F3A29530 10236 0 04130 0 04130 PZE L(0),,L(0) F3A29540 10237 1 77774 1 07545 TXI FAD12,1,-4 RETURN F3A29550 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 66 COMPILING ROUTINE FOR ALL MIN F3A29570 F3A29580 10240 0634 00 4 10257 MIN SXA MINBB,4 SAVE IR4 F3A29590 10241 0074 00 4 10302 TSX BTEST,4 CHECK THAT NO FENCE, CHECK TAG AND BUFFER F3A29600 10242 0074 00 4 10406 TSX LDQCW,4 COMPILE LDQ F3A29610 10243 0074 00 4 10343 MINAA TSX ARGTG,4 CHECK TAG OF NEXT CIT F3A29620 10244 0074 00 4 04516 TSX CIT00,4 COMPILE F3A29630 10245 0 04224 0 04130 PZE L(0),,(CLA) F3A29640 10246 0 04167 0 04166 PZE M1CW+2,,M1CW+3 F3A29650 10247 0074 00 4 04516 TSX CIT00,4 COMPILE F3A29660 10250 0 04265 0 04130 PZE L(0),,(TLQ) F3A29670 10251 0 04143 0 04212 PZE (AST),,L(2D) F3A29680 BINARY CARD NO. 9F220104 10252 0074 00 4 04516 TSX CIT00,4 COMPILE F3A29690 10253 0 04247 0 04130 PZE L(0),,(LDQ) F3A29700 10254 0 04167 0 04166 PZE M1CW+2,,M1CW+3 F3A29710 10255 0074 00 4 10311 TSX QUEST,4 CHECK FOR FENCE, THEN BUFFER F3A29720 10256 0020 00 0 10243 TRA MINAA NO FENCE OF ALL ONES GO BACK F3A29730 10257 0774 00 4 00000 MINBB AXT **,4 FENCE FOUND RESTORE IR4 F3A29740 10260 0020 00 4 00001 TRA 1,4 TRANSFER F3A29750 COMPILING ROUTINE FOR ALL MAX F3A29770 F3A29780 10261 0634 00 4 10300 MAX SXA MAXBB,4 SAVE IR4 F3A29790 10262 0074 00 4 10302 TSX BTEST,4 CHECK THAT NO FENCE, CHECK TAG AND BUFFER.F3A29800 10263 0074 00 4 10430 TSX CLATW,4 COMPILE CLA F3A29810 10264 0074 00 4 10343 MAXAA TSX ARGTG,4 CHECK TAG OF NEXT CIT F3A29820 10265 0074 00 4 04516 TSX CIT00,4 COMPILE F3A29830 10266 0 04247 0 04130 PZE L(0),,(LDQ) F3A29840 10267 0 04167 0 04166 PZE M1CW+2,,M1CW+3 F3A29850 10270 0074 00 4 04516 TSX CIT00,4 COMPILE F3A29860 10271 0 04265 0 04130 PZE L(0),,(TLQ) F3A29870 10272 0 04143 0 04212 PZE (AST),,L(2D) F3A29880 10273 0074 00 4 04516 TSX CIT00,4 COMPILE F3A29890 10274 0 04224 0 04130 PZE L(0),,(CLA) F3A29900 10275 0 04167 0 04166 PZE M1CW+2,,M1CW+3 F3A29910 10276 0074 00 4 10311 TSX QUEST,4 CHECK FOR FENCE, THEN BUFFER F3A29920 10277 0020 00 0 10264 TRA MAXAA NO FENCE OF ALL ONES GO BACK F3A29930 BINARY CARD NO. 9F220105 10300 0774 00 4 00000 MAXBB AXT **,4 FENCE FOUND RESTORE IR4 F3A29940 10301 0020 00 4 00001 TRA 1,4 TRANSFER. F3A29950 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 67 ROUTINE TO CHECK FOR NO FENCE, CHECK TAG AND TEST BUF F3A29970 F3A29980 10302 0634 00 4 10307 BTEST SXA *+5,4 SAVE IR4. F3A29990 10303 0074 00 4 10360 TSX TARG1,4 CHECK THAT 2ND CIT DOES NOT HAVE FENCE OF1F3A30000 10304 0074 00 4 10343 TSX ARGTG,4 CHECK TAG F3A30010 10305 1 77774 1 10306 TXI *+1,1,-4 GO TO NEXT CIT F3A30020 10306 0074 00 4 07613 TSX TEST1,4 TEST BUFFER F3A30030 10307 0774 00 4 00000 AXT **,4 RESTORE IR4 F3A30040 10310 0020 00 4 00001 TRA 1,4 TRANSFER F3A30050 ROUTINE TO CHECK FENCE AND BUFFER F3A30070 F3A30080 10311 0500 00 1 00000 QUEST CLA AIL,1 GET 1ST WORD OF AIL CIT. F3A30090 10312 0402 00 0 04151 SUB ALONE IS THIS A FENCE OF ALLONES. F3A30100 10313 0100 00 4 00002 TZE 2,4 YES TRANSFER TWO F3A30110 10314 0634 00 4 10317 SXA *+3,4 SAVE IR4 F3A30120 10315 1 77774 1 10316 TXI *+1,1,-4 GO TO NEXT CIT. F3A30130 10316 0074 00 4 07613 TSX TEST1,4 TESST BUFFER F3A30140 10317 0774 00 4 00000 AXT **,4 RESTORE IR4 F3A30150 10320 0020 00 4 00001 TRA 1,4 TRANSFER F3A30160 COMPILING ROUTINE FOR MAX0 AND MIN0 F3A30180 F3A30190 10321 0634 00 4 10331 JONT1 SXA JONT2,4 SAVE IR4 F3A30200 10322 0074 00 4 04516 TSX CIT00,4 COMPILE F3A30210 10323 0 04251 0 04130 PZE L(0),,(LRS) F3A30220 10324 0 04150 0 04130 PZE L(0),,(18D) F3A30230 10325 0074 00 4 04516 TSX CIT00,4 COMPILE F3A30240 BINARY CARD NO. 9F220106 10326 0 04267 0 04130 PZE L(0),,(ORA) F3A30250 10327 0 04130 0 04215 PZE L(6)),,L(0) F3A30260 10330 0074 00 4 10444 TSX FADCW,4 COMPILE FAD F3A30270 10331 0774 00 4 00000 JONT2 AXT **,4 RESTORE IR4 F3A30280 10332 0020 00 4 00001 TRA 1,4 TRANSFER F3A30290 TEST FOR THREE CITS AND CHECK TAG F3A30310 F3A30320 10333 0634 00 4 10341 ONLY2 SXA *+6,4 SAVE IR4 F3A30330 10334 0074 00 4 10360 TSX TARG1,4 GO TO ERROR IF FENCE ON 2ND CIT F3A30340 10335 0074 00 4 10343 TSX ARGTG,4 CHECK TAG F3A30350 10336 1 77774 1 10337 TXI *+1,1,-4 GO TO NEXT CIT F3A30360 10337 0074 00 4 07613 TSX TEST1,4 TEST BUFFER F3A30370 10340 0074 00 4 10364 TSX LAST,4 GO TO ERROR IF NO FENCE OF ONES F3A30380 10341 0774 00 4 00000 AXT **,4 RESTORE IR4 F3A30390 10342 0020 00 4 00001 TRA 1,4 TRANSFER F3A30400 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 68 ROUTINE TO CHECK TAG F3A30420 F3A30430 10343 0500 00 1 00002 ARGTG CLA AIL+2,1 GET 3RD WORD OF CIT F3A30440 10344 0601 00 0 04166 STO M1CW+2 PUT 3RD WORD IN M1CW+2 F3A30450 10345 0500 00 1 00003 CLA AIL+3,1 GET 4TH WORD OF CIT F3A30460 10346 0601 00 0 04167 STO M1CW+3 PUT 4TH WORD IN M1CW+3 AND CHECK BITS F3A30470 10347 -0320 00 0 04137 ANA TGMSK 24-26. DOES TAG NEED TO BE CHANGED F3A30480 10350 0100 00 4 00001 TZE 1,4 NO TRANSFER BACK F3A30490 10351 0634 00 4 10354 SXA *+3,4 SAVE IR4 F3A30500 10352 0056 00 000001 RNT NOCHG IS THERE CHANGE TAG F3A30510 10353 0074 00 4 06177 TSX M1250,4 YES SEARCH CHANGE TAG F3A30520 BINARY CARD NO. 9F220107 10354 0774 00 4 00000 AXT **,4 RESTORE IR4 F3A30530 10355 0500 00 1 00003 CLA AIL+3,1 PUT NEW TAG IN 4TH WORD M1CW+3 F3A30540 10356 0601 00 0 04167 STO M1CW+3 F3A30550 10357 0020 00 4 00001 TRA 1,4 TRANSFER F3A30560 CHECK FOR NO FENCE OF ONES F3A30580 F3A30590 10360 0500 00 1 00000 TARG1 CLA AIL,1 GET 1ST WORD OF CIT F3A30600 10361 0402 00 0 04151 SUB ALONE IS IT ALLONES. F3A30610 10362 -0100 00 4 00001 TNZ 1,4 NO TRANSFER F3A30620 10363 0074 00 4 04110 TSX ERR18,4 YES GO TO DIAG F3A30630 CHECK FOR FENCE OF ONES F3A30650 F3A30660 10364 0500 00 1 00000 LAST CLA AIL,1 GET 1ST WORD OF CIT F3A30670 10365 0402 00 0 04151 SUB ALONE IS IT ALLONES. F3A30680 10366 0100 00 4 00001 TZE 1,4 YES TRANSFER F3A30690 10367 0074 00 4 04111 TSX ERR19,4 NO GO TO DIAG F3A30700 ROUTINE FOR COMPILING FOR SINGLE ARG F3A30720 F3A30730 10370 0634 00 4 10402 WHERE SXA WHER1,4 SAVE IR4. F3A30740 10371 0074 00 4 10364 TSX LAST,4 CHCCK FOR FENCE OF ONES. F3A30750 10372 0500 00 1 00002 CLA AIL+2,1 GET 3RD WORD OF CIT. F3A30760 10373 0402 00 0 04222 SUB LPLUS IS ARG IN AC. F3A30770 10374 0100 00 0 10402 TZE WHER1 YES TRANSFER. F3A30780 10375 0500 00 1 00002 CLA AIL+2,1 GET 3RD WORD OF CIT. F3A30790 10376 0402 00 0 04220 SUB LSTR0 IS ARG IN MQ. F3A30800 10377 0100 00 0 10404 TZE WHER2 YES TRANSFER. F3A30810 10400 0074 00 4 10343 TSX ARGTG,4 ARG STORED CHECK TAG. F3A30820 10401 0074 00 4 10430 TSX CLATW,4 COMPILE CLA. F3A30830 BINARY CARD NO. 9F220108 10402 0774 00 4 00000 WHER1 AXT **,4 RESTORE IR4. F3A30840 10403 0020 00 4 00001 TRA 1,4 RETURN FOR ARG STORED, AC, MQ. F3A30850 10404 0074 00 4 10422 WHER2 TSX XCACW,4 COMPILE XCA. F3A30860 10405 0020 00 0 10402 TRA WHER1 RETURN. F3A30870 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 69 COMPILING ROUTINES F3A30890 F3A30900 10406 0634 00 4 10412 LDQCW SXA *+4,4 F3A30910 10407 0074 00 4 04516 TSX CIT00,4 LDQ F3A30920 10410 0 04247 0 04164 PZE M1CW,,(LDQ) F3A30930 10411 0 04167 0 04166 PZE M1CW+2,,M1CW+3 F3A30940 10412 0774 00 4 00000 AXT **,4 F3A30950 10413 0020 00 4 00001 TRA 1,4 F3A30960 10414 0634 00 4 10420 XCA SXA *+4,4 XCA NO IFN F3A30980 10415 0074 00 4 04516 TSX CIT00,4 F3A30990 10416 0 04271 0 04130 PZE L(0),,(XCA) F3A31000 10417 0 04130 0 04130 PZE L(0),,L(0) F3A31010 10420 0774 00 4 00000 AXT **,4 F3A31020 10421 0020 00 4 00001 TRA 1,4 F3A31030 10422 0634 00 4 10426 XCACW SXA *+4,4 F3A31050 10423 0074 00 4 04516 TSX CIT00,4 XCA IFN F3A31060 10424 0 04271 0 04164 PZE M1CW,,(XCA) F3A31070 10425 0 04130 0 04130 PZE L(0),,L(0) F3A31080 10426 0774 00 4 00000 AXT **,4 F3A31090 10427 0020 00 4 00001 TRA 1,4 F3A31100 BINARY CARD NO. 9F220109 10430 0634 00 4 10434 CLATW SXA *+4,4 F3A31120 10431 0074 00 4 04516 TSX CIT00,4 CLA F3A31130 10432 0 04224 0 04164 PZE M1CW,,(CLA) F3A31140 10433 0 04167 0 04166 PZE M1CW+2,,M1CW+3 F3A31150 10434 0774 00 4 00000 AXT **,4 F3A31160 10435 0020 00 4 00001 TRA 1,4 F3A31170 10436 0634 00 4 10442 UFA SXA *+4,4 F3A31190 10437 0074 00 4 04516 TSX CIT00,4 UFA F3A31200 10440 0 04257 0 04130 PZE L(0),,(UFA) F3A31210 10441 0 04130 0 04215 PZE L(6)),,L(0) F3A31220 10442 0774 00 4 00000 AXT **,4 F3A31230 10443 0020 00 4 00001 TRA 1,4 F3A31240 10444 0634 00 4 10450 FADCW SXA *+4,4 F3A31260 10445 0074 00 4 04516 TSX CIT00,4 FAD F3A31270 10446 0 04261 0 04130 PZE L(0),,(FAD) F3A31280 10447 0 04130 0 04215 PZE L(6)),,L(0) F3A31290 10450 0774 00 4 00000 AXT **,4 F3A31300 10451 0020 00 4 00001 TRA 1,4 F3A31310 10452 0634 00 4 10456 LLS SXA *+4,4 F3A31330 10453 0074 00 4 04516 TSX CIT00,4 LLS F3A31340 10454 0 04253 0 04130 PZE L(0),,(LLS) F3A31350 10455 0 04130 0 04130 PZE L(0),,L(0) F3A31360 BINARY CARD NO. 9F220110 10456 0774 00 4 00000 AXT **,4 F3A31370 10457 0020 00 4 00001 TRA 1,4 F3A31380 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 70 ROUTINE TO POSITION TAPES AND SAVE INFORMATION F3A31400 F3A31410 10460 -0520 00 0 04305 M3000 NZT SFFIF DID FIRST FILE OVERFLOW F3A31420 10461 0020 00 0 10506 TRA M3001 NO TRANSFER. F3A31430 10462 0500 00 0 04577 CLA CIBL1 GET TEST INSTRUCTION. F3A31440 10463 0601 00 0 04302 STO SCIBI SAVE TEST INSTRUCTION. F3A31450 10464 0600 00 0 04577 STZ CIBL1 STORE ZERO IN SWITCH F3A31460 10465 0074 00 4 04574 TSX CIBLD,4 FORCE WRITE OF LAST OVERFLOW BUFFER. F3A31470 10466 0500 00 0 04302 CLA SCIBI GET TEST INSTRUCTION F3A31480 10467 0601 00 0 04577 STO CIBL1 RESTORE TEST INSTRUCTION F3A31490 10470 0500 00 0 04301 CLA WARCT GET WORD AND RECORD COUNT OF OVERFLOW F3A31500 10471 0601 00 0 04306 STO SOVCT SAVE OVERFLOW INFORMATION F3A31510 10472 0600 00 0 04301 STZ WARCT SET WARCT TO ZERO. F3A31520 10473 0600 00 0 11216 STZ CPFF5 SET SWITCH IN FIRST FILE ROUTINE. F3A31530 10474 0535 00 1 03777 LAC CL24,1 GET OVERFLOW BUFFER LENGTH. F3A31540 10475 -0634 00 1 05110 SXD FIRF1,1 SET READ COMMANDS F3A31550 10476 -0634 00 1 05111 SXD FIRF2,1 FOR OVERFLOW. F3A31560 10477 0774 00 1 40004 AXT (RBEP),1 SET COMMANDS F3A31570 10500 -0634 00 1 05036 SXD SRD1,1 TO READ FOR F3A31580 10501 -0634 00 1 05037 SXD SRD2,1 OVERFLOW F3A31590 10502 0774 00 2 00005 AXT 5,2 SET IR2. F3A31600 10503 0074 00 4 04327 TSX RDTBA,4 DO NEXT FIVE TAP OPERATIONS F3A31610 BINARY CARD NO. 9F220111 10504 2 00001 2 10503 TIX *-1,2,1 TO POSITIONING LOGICAL TAPE 2 F3A31620 10505 0020 00 0 10516 TRA M3002 TRANSFER. F3A31630 10506 0500 00 0 04300 M3001 CLA CINF GET FIRST FILE INFORMATION F3A31640 10507 0601 00 0 04305 STO SFFIF AND SAVE IT IN SFFIF F3A31650 10510 0074 00 4 04327 TSX RDTBA,4 REWIND TAPE 4 F3A31660 10511 0522 00 0 04327 XEC RDTBA GET INDEX TO SKLST. F3A31670 10512 1 77775 1 10513 TXI *+1,1,-3 SKIP NEXT THREE TAPE OPERATIONS F3A31680 10513 0634 00 1 04327 SXA RDTBA,1 RESET INDEX TO SKLST. F3A31690 10514 0074 00 4 04327 TSX RDTBA,4 POSITION TAPE 2 F3A31700 10515 0074 00 4 04327 TSX RDTBA,4 REWIND TAPE 3 F3A31710 10516 -0534 00 1 04304 M3002 LXD STFIF,1 GET 2S COMP OF LAST ADD OF TIFGO FILE F3A31720 10517 -0634 00 1 11275 SXD CPTF2,1 SET TEST IN TIFGO FILE COMPILE F3A31730 10520 -0634 00 1 10522 SXD *+2,1 SET DEC FOR TEST F3A31740 10521 0534 00 1 04304 LXA STFIF,1 GET 2S COMP OF FIRST ADD OF TIFGO FILE F3A31750 10522 -3 00000 1 10524 TXL M3003,1,** TRANSFER IF TIFGO FILE EMPTY F3A31760 10523 0020 00 0 10525 TRA M3004 TIFGO FILE NO EMPTY TRANSFER F3A31770 10524 0055 00 010000 M3003 SIR NOTF SET INDICATOR FOR EMPTY FIRST FILE. F3A31780 10525 -0534 00 1 04305 M3004 LXD SFFIF,1 GET 2S COMP OF LAST ADD OF FIRST FILE. F3A31790 10526 -0634 00 1 11212 SXD CPFF2,1 SET TEST IN FIRST FILE COMPILE. F3A31800 10527 -0634 00 1 10531 SXD *+2,1 SET DEC FOR TEST. F3A31810 10530 0534 00 1 04305 LXA SFFIF,1 GET 2S COMP OF FIRST ADD OF FIRST FILE. F3A31820 10531 -3 00000 1 10533 TXL M3005,1,** TRANSFER IF FIRST FILE EMPTY. F3A31830 BINARY CARD NO. 9F220112 10532 0020 00 0 10534 TRA M3006 FIRST FILE NO EMPTY TRANSFER. F3A31840 10533 0055 00 020000 M3005 SIR NOFF SET INDICATOR FOR EMPTY FIRST FILE. F3A31850 10534 -0535 00 2 04004 M3006 LDC 9TSCM,2 GET 2S COMP OF LOCATION OF TSXCOM. F3A31860 10535 0634 00 2 11133 SXA TSXC2,2 SET ENTRY POINT FOR TSXCOM F3A31870 10536 -0634 00 2 11134 SXD TSXC3,2 SET TEST FOR TSXCOM. F3A31880 10537 -0520 60 0 04005 NZT* 8TSCM IS TSXCOM EMPTY. F3A31890 10540 0020 00 0 10545 TRA AC1 YES TRANSFER F3A31900 10541 0500 00 0 04004 CLA 9TSCM NO GET LOCATION OF TSXCOM. F3A31910 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 71 10542 0400 60 0 04005 ADD* 8TSCM ADD TSXCOM LENGTH. F3A31920 10543 -0737 00 2 00000 PDC ,2 LOAD IR2 WITH 2S COMP OF LAST ADD F3A31930 10544 -0634 00 2 11134 SXD TSXC3,2 RESET TEST FOR NON EMPTY TSXCOM. F3A31940 10545 0500 00 0 04303 AC1 CLA SWTCT GET NEW TRANSFER FOR COMPILING F3A31950 10546 0601 00 0 04600 STO CIBL2 AND SET INSTRUCTION F3A31960 10547 -0535 00 2 04033 LDC 9CTB2,2 GET 2S COMP OF LAST ADD OF BUFFER 1. F3A31970 10550 -0634 00 2 04577 SXD CIBL1,2 SET TEST IN COMPILING F3A31980 10551 -0535 00 2 04034 LDC 9CTB1,2 GET 2S COMP OF FIRST ADD. F3A31990 10552 0634 00 2 04300 SXA CINF,2 AND SET ADD AND F3A32000 10553 -0634 00 2 04300 SXD CINF,2 DEC OF CINF. F3A32010 MERGE OF FIRST FILE AND TIFGO FILE F3A32030 F3A32040 10554 0054 00 020000 RFT NOFF IS FIRST FILE EMPTY F3A32050 10555 0020 00 0 10600 TRA AC9 YES TRANSFER. F3A32060 10556 0500 00 1 00000 CLA FFLBF,1 GET 1ST WORD OF FIRST FILE BUFFER. F3A32070 10557 0340 00 0 04223 CAS FPTCN IS THERE FLOATING POINT TRAP. F3A32080 BINARY CARD NO. 9F220113 10560 0020 00 0 10562 TRA *+2 NO TRANSFER $F3A32090 10561 0020 00 0 10563 TRA *+2 YES TRANSFER. F3A32100 10562 0074 00 4 11317 TSX PAT1B,4 GO SET INDEX TO WRITE CLA2 STO6)+5 ONLY $F3A32110 10563 0774 00 2 00005 AXT 5,2 COMPILE FIRST FIVE $F3A32120 10564 0074 00 4 11210 TSX CPFF1,4 CITS OF THE F3A32130 10565 2 00001 2 10564 TIX *-1,2,1 FIRST FILE. F3A32140 10566 -0520 60 0 04005 NZT* 8TSCM IS TSXCOM TABLE EMPTY. F3A32150 10567 0020 00 0 10600 TRA AC9 YES TRANSFER F3A32160 10570 -0535 00 2 04004 AC2 LDC 9TSCM,2 NO LOAD IR 2 WITH ENTRY POINT TO TSXCOM. F3A32170 10571 0500 00 2 00000 CLA TSXCM,2 GET 1ST WORD OF TSXCOM. F3A32180 10572 -0320 00 0 04152 ANA DCMSK GET IFN. F3A32190 10573 0340 00 1 00000 CAS FFLBF,1 COMPARE IFN OF TSXCOM TO IFN OF FIRST FILEF3A32200 10574 0020 00 0 10600 TRA AC9 IFN IS GREATER TRANSFER F3A32210 10575 0020 00 0 10600 TRA AC9 IFN IS EQUAL.TRANSFER F3A32220 10576 0622 00 0 04203 STD FFLFN IFN IS LESS SAVE IFN IN FFLCFN. F3A32230 10577 0074 00 4 11130 TSX TSXC1,4 TSXCOM TABLE SEARCH F3A32240 10600 0054 00 010000 AC9 RFT NOTF IS TIFGO FILE EMPTY. F3A32250 10601 0020 00 0 10627 TRA AG1 YES TRANSFER. F3A32260 10602 0534 00 2 04304 LXA STFIF,2 NO LOAD IR2 WITH TIFGO ENTRY POINT F3A32270 10603 0500 00 1 00000 AC6 CLA FFLBF,1 GET 1ST WORD OF FIRST FILE CIT. F3A32280 10604 0622 00 0 04203 STD FFLFN SAVE IFN. F3A32290 10605 0500 00 2 00000 CLA TFGBF,2 GET 1ST WORD OF TIFGO FILE CIT. F3A32300 BINARY CARD NO. 9F220114 10606 -0320 00 0 04152 ANA DCMSK GET IFN. F3A32310 10607 0622 00 0 04202 STD TFGFN SAVE TIFGO FILE IFN. F3A32320 10610 0340 00 0 04203 CAS FFLFN COMPARE TIFGO IFN TO FIRST FILE IFN. F3A32330 10611 0020 00 0 10654 TRA AF1 TIFGO IFN GREATER TRANSFE TO FIRST COMPILEF3A32340 10612 0020 00 0 10700 TRA AJ1 TIFGO IFN EQUAL TRANSFER F3A32350 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 72 COMPILE TIFGO FILE F3A32370 F3A32380 10613 0074 00 4 11273 AC5 TSX CPTF1,4 TIFGO IFN LESS COMPILE TIFGO. F3A32390 10614 0054 00 010000 AC4 RFT NOTF IS TIFGO EMPTY. F3A32400 10615 0020 00 0 10627 TRA AG1 YES TRANSFER TO FINISH FIRST FILE F3A32410 10616 0500 00 2 00000 CLA TFGBF,2 NO GET NEXT TIFGO. F3A32420 10617 -0320 00 0 04177 ANA 2BIT IS THERE A BIT IN 2 F3A32430 10620 -0100 00 0 10613 TNZ AC5 YES TRANSFER BACK AND COMPILE TIFGO F3A32440 10621 0500 00 2 00000 CLA TFGBF,2 REGET NEXT TIFGO. F3A32450 10622 -0320 00 0 04152 ANA DCMSK GET IFN. F3A32460 10623 0340 00 0 04202 CAS TFGFN COMPARE NEXT IFN TO PREVIOUS IFN. F3A32470 10624 0020 00 0 10603 TRA AC6 NEXT IFN GREATER TRANSFER TO FIRST COMPAREF3A32480 10625 0020 00 0 10613 TRA AC5 NEXT IFN EQUAL GO BACK COMPILE TIFGO F3A32490 10626 0020 00 0 10613 TRA AC5 NEXT IFN LESS GO BACK COMPILE TIFGO F3A32500 TIFGO FILE EMPTY FINISH COMPILING FIRST FILE F3A32520 F3A32530 10627 0054 00 020000 AG1 RFT NOFF IS FIRST FILE EMPTY F3A32540 10630 0020 00 0 10743 TRA AOUT YES TRANSFER OUT. F3A32550 10631 0500 00 1 00000 AG2 CLA FFLBF,1 GET FIRST FILE IFN. F3A32560 10632 0622 00 0 04203 STD FFLFN SAVE IFN. F3A32570 10633 0074 00 4 11210 AG5 TSX CPFF1,4 COMPILE FIRST FILE CIT F3A32580 BINARY CARD NO. 9F220115 10634 0056 00 020000 RNT NOFF IS FIRST FILE EMPTY F3A32590 10635 0020 00 0 10640 TRA AG8 NO TRANSFER F3A32600 10636 0074 00 4 11130 TSX TSXC1,4 YES SEARCH TSXCOM F3A32610 10637 0020 00 0 10743 TRA AOUT TRANSFER OUT F3A32620 10640 0500 00 1 00000 AG8 CLA FFLBF,1 IS THIS SAME BLOCK FIRST FILE CITS. F3A32630 10641 0100 00 0 10633 TZE AG5 YES TRANSFER BACK F3A32640 10642 0074 00 4 11130 TSX TSXC1,4 NO SEARCH TSXCOM F3A32650 10643 0500 00 1 00000 AG9 CLA FFLBF,1 GET NEXT CIT. F3A32660 10644 -0320 00 0 04152 ANA DCMSK GET IFN. F3A32670 10645 0340 00 0 04203 CAS FFLFN COMPARE NEXXT IFN TO PREVIOUS IFN. F3A32680 10646 0020 00 0 10631 TRA AG2 GREATER GO BACK F3A32690 10647 0020 00 0 10650 TRA *+1 EQUAL OR LESS F3A32700 10650 0074 00 4 11210 TSX CPFF1,4 COMPILE FIRST FILE CIT F3A32710 10651 0056 00 020000 RNT NOFF IS FIRST FILE EMPTY F3A32720 10652 0020 00 0 10643 TRA AG9 NO GO BACK F3A32730 10653 0020 00 0 10743 TRA AOUT YES TRANSFER OUT F3A32740 COMPILE FIRST FILE F3A32760 F3A32770 10654 0074 00 4 11210 AF1 TSX CPFF1,4 COMPILE FIRST FILE F3A32780 10655 0054 00 020000 RFT NOFF IS FIRST FILE EMPTY. F3A32790 10656 0020 00 0 10673 TRA AH1 YES TRANSFER TO FINISH TIFGO F3A32800 10657 0500 00 1 00000 CLA FFLBF,1 IS NEXT IFN ZERO. F3A32810 10660 0100 00 0 10654 TZE AF1 YES TRANSFER BACK FOR SAME BLOCK F3A32820 10661 0074 00 4 11130 TSX TSXC1,4 NO SEARCH TSXCOM F3A32830 BINARY CARD NO. 9F220116 10662 0500 00 1 00000 AF2 CLA FFLBF,1 GET NEXT CIT. F3A32840 10663 -0320 00 0 04152 ANA DCMSK GET IFN. F3A32850 10664 0340 00 0 04203 CAS FFLFN COMPARE NEXT IFN WITH PREVIOUS IFN. F3A32860 10665 0020 00 0 10603 TRA AC6 GREATER TRANSFER TO TIFGO COMPARE F3A32870 10666 0020 00 0 10667 TRA *+1 EQUAL OR LESS F3A32880 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 73 10667 0074 00 4 11210 TSX CPFF1,4 COMPILE FIRST FILE CIT F3A32890 10670 0056 00 020000 RNT NOFF IS FIRST FILE EMPTY F3A32900 10671 0020 00 0 10662 TRA AF2 NO GO BACK F3A32910 10672 0020 00 0 10674 TRA AH2 YES TRANSFER TO FINISH TIFGO F3A32920 FIRST FILE EMPTY FINISH COMPILING TIFGO FILE F3A32940 F3A32950 10673 0074 00 4 11130 AH1 TSX TSXC1,4 SEARCH TSXCOM F3A32960 10674 0054 00 010000 AH2 RFT NOTF IS TIFGO FILE EMPTY F3A32970 10675 0020 00 0 10743 TRA AOUT YES TRANSFER OUT. F3A32980 10676 0074 00 4 11273 TSX CPTF1,4 NO COMPILE TIFGO F3A32990 10677 0020 00 0 10674 TRA AH2 TRANSFER BACK F3A33000 TIFGO FILE IFN EQUALS FIRST FILE IFN F3A33020 F3A33030 10700 0500 00 2 00000 AJ1 CLA TFGBF,2 IS 1ST WORD OF TIFGO CIT MINUS OR ASSIGN. F3A33040 10701 0120 00 0 10717 TPL AL1 NO TRANSFER F3A33050 COMPILE FOR ASSIGN GO TO F3A33070 F3A33080 10702 0760 00 0 00003 SSP CHANGE SIGN TO PLUS F3A33090 10703 0601 00 2 00000 STO TFGBF,2 PUT BACK IN TIFGO BUFFER. F3A33100 10704 0400 00 0 04136 ADD (370) SET ADDEND. F3A33110 10705 0601 00 1 00000 STO FFLBF,1 PUT IN FIRST FILE BUFFER. F3A33120 10706 0074 00 4 11273 AJ4 TSX CPTF1,4 COMPILE TIFGO CIT F3A33130 10707 0054 00 010000 RFT NOTF IS TIFGO FILE EMPTY F3A33140 BINARY CARD NO. 9F220117 10710 0020 00 0 10631 TRA AG2 YS TRANSFER TO FINISH FIRST FILE F3A33150 10711 0500 00 2 00000 CLA TFGBF,2 NO GET NEXT TIFGO CIT. F3A33160 10712 -0320 00 0 04152 ANA DCMSK GET TIFGO IFN. F3A33170 10713 0340 00 0 04202 CAS TFGFN COMPARE NEXT IFN TO PREVIOUS IFN. F3A33180 10714 0020 00 0 10654 TRA AF1 GREATER TRANSFER TO FIRST FILE COMPILE F3A33190 10715 0020 00 0 10706 TRA AJ4 EQUAL OR LESS F3A33200 10716 0020 00 0 10706 TRA AJ4 GO BACK. F3A33210 OR TIFGO FILE TO FIRST FILE F3A33230 F3A33240 10717 0774 00 4 00004 AL1 AXT 4,4 OR THE TIFGO FILE F3A33250 10720 -0500 00 2 00000 CAL TFGBF,2 TO THE FIRST FILE. F3A33260 10721 -0602 00 1 00000 ORS FFLBF,1 FOR THIS CIT. F3A33270 10722 1 77777 1 10723 TXI *+1,1,-1 F3A33280 10723 1 77777 2 10724 TXI *+1,2,-1 F3A33290 10724 2 00001 4 10720 TIX *-4,4,1 F3A33300 10725 1 00004 1 10726 TXI *+1,1,4 F3A33310 10726 0074 00 4 11210 AL5 TSX CPFF1,4 COMPILE FIRST FILE F3A33320 10727 0054 00 020000 RFT NOFF IS FIRST FILE EMPTY F3A33330 10730 0020 00 0 10737 TRA AL6 YES TRANSFER F3A33340 10731 0500 00 1 00000 CLA FFLBF,1 NO GET NEXT CIT FOR FIRST FILE. F3A33350 10732 -0320 00 0 04152 ANA DCMSK GET IFN. F3A33360 10733 0340 00 0 04203 CAS FFLFN COMPARE NEXT IFN TO PREVIOUS IFN. F3A33370 10734 0020 00 0 10741 TRA AL7 GREATER TRANSFER F3A33380 10735 0020 00 0 10726 TRA AL5 EQUAL OR LESS F3A33390 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 74 BINARY CARD NO. 9F220118 10736 0020 00 0 10726 TRA AL5 GO BACK F3A33400 10737 0074 00 4 11302 AL6 TSX CPTF5,4 CHECK END OF TIFGO FILE. F3A33410 10740 0020 00 0 10674 TRA AH2 TRANSFER TO FINISH TIFGO F3A33420 10741 0074 00 4 11302 AL7 TSX CPTF5,4 CHECK END OF TIFGO FILE. F3A33430 10742 0020 00 0 10614 TRA AC4 TRANSFER TO TIFGO COMPILE F3A33440 10743 -0534 00 1 04300 AOUT LXD CINF,1 GET ENTRY POINT F3A33450 10744 0500 00 1 77775 CLA CIB-3,1 GET LAST OP CODE F3A33460 10745 0402 00 0 04227 SUB (TRA) IS IT A TRANSFER OF. F3A33470 10746 0100 00 0 11002 TZE BOUT YES TRANSFER F3A33480 ADD LOAD BUTTON SEQUENCE F3A33500 F3A33510 10747 0074 00 4 04516 TSX CIT00,4 NO COMPILE LOAD BUTTON SEQUENCE F3A33520 10750 0 04241 0 04130 PZE L(0),,(RCD) RCDA F3A33530 10751 0 04130 0 04130 PZE L(0),,L(0) F3A33540 10752 0074 00 4 04516 TSX CIT00,4 COMPILE RCHA *+4 F3A33550 10753 0 04243 0 04130 PZE L(0),,(RLA) F3A33560 10754 0 04145 0 04212 PZE (AST),,L(4D) F3A33570 10755 0074 00 4 04516 TSX CIT00,4 COMPILE LCHA F3A33580 10756 0 04244 0 04130 PZE L(0),,(LCA) F3A33590 10757 0 04130 0 04130 PZE L(0),,L(0) F3A33600 10760 0074 00 4 04516 TSX CIT00,4 COMPILE TEFA *+3 F3A33610 10761 0 04245 0 04130 PZE L(0),,(TAF) F3A33620 10762 0 04144 0 04212 PZE (AST),,L(3D) F3A33630 10763 0074 00 4 04516 TSX CIT00,4 COMPILE TRA 1 F3A33640 BINARY CARD NO. 9F220119 10764 0 04227 0 04130 PZE L(0),,(TRA) F3A33650 10765 0 04142 0 04130 PZE L(0),,L(1D) F3A33660 10766 0074 00 4 04516 TSX CIT00,4 COMPILE IOCD 0,,3 F3A33670 10767 0 04246 0 04130 PZE L(0),,(MON) F3A33680 10770 0 04130 0 04130 PZE L(0),,L(0) F3A33690 10771 0074 00 4 04516 TSX CIT00,4 COMPILE IOT F3A33700 10772 0 04272 0 04130 PZE L(0),,(IOT) F3A33710 10773 0 04130 0 04130 PZE L(0),,L(0) F3A33720 10774 0074 00 4 04516 TSX CIT00,4 COMPILE LOC HPR 1,7 F3A33730 10775 0 04242 0 04201 PZE (LOC),,(HPR) F3A33740 10776 0 04141 0 04130 PZE L(0),,(7A1D F3A33750 10777 0074 00 4 04516 TSX CIT00,4 COMPILE TRA LOC F3A33760 11000 0 04227 0 04130 PZE L(0),,(TRA) F3A33770 11001 0 04130 0 04201 PZE (LOC),,L(0) F3A33780 TERMINAL ROUTINE FOR SECTION THREE F3A33800 F3A33810 11002 0500 00 0 04577 BOUT CLA CIBL1 GET TEST INSTRUCTION F3A33820 11003 0601 00 0 04302 STO SCIBI SAVE INSTRUCTION. F3A33830 11004 0600 00 0 04577 STZ CIBL1 STORE ZERO IN TEST CELL F3A33840 11005 0074 00 4 04574 TSX CIBLD,4 FORCE WRITE OF LAST BUFFER OF CITS. F3A33850 11006 0500 00 0 04302 CLA SCIBI REGET TEST INSTRUCTION F3A33860 11007 0601 00 0 04577 STO CIBL1 RESTORE TEST INSTRUCTION TO CELL F3A33870 11010 0500 00 0 04273 CLA WARCN GET WORD AND RECORD COUNT OF CITS F3A33880 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 75 11011 0601 60 0 04046 STO* 9CTCT PUT IT IN CELL FOR SECTION FOUR. F3A33890 BINARY CARD NO. 9F220120 11012 0600 00 0 04273 STZ WARCN SET WARCN CELL TO ZERO F3A33900 11013 -0520 00 0 04306 NZT SOVCT DID OVERFLOW OCCUR. F3A33910 11014 0020 00 0 11022 TRA BOUT1 NO TRANSFER. F3A33920 11015 0074 00 4 04327 TSX RDTBA,4 YES REWIND TAPE THREE. F3A33930 11016 0500 00 0 04306 CLA SOVCT GET WORD AND RECORD COUNT FOR OVERFLOW. F3A33940 11017 0402 00 0 04301 SUB WARCT DOES IT AGREE WITH THE READ. F3A33950 11020 0100 00 0 11022 TZE BOUT1 YES TRANSFER. F3A33960 11021 0020 00 0 04115 TRA ERR21 NO GO TO IO PACKAGE. F3A33970 11022 0074 00 4 04327 BOUT1 TSX RDTBA,4 WRITE EOF FOR CITS F3A33980 11023 0500 00 0 05226 CLA ALA11 RESET LABEL FOR SECOND F3A33990 11024 0601 00 0 05236 STO ALAB9 FILE OF CITS FROM CITS03. F3A34000 11025 0601 00 0 05237 STO ALA10 TO A) FUNC F3A34010 11026 0522 00 0 04670 XEC WTC01 GET INDEX TO CIT WRITE F3A34020 11027 0500 00 1 05116 CLA SKLST,1 GET COMMAND. F3A34030 11030 0737 00 2 00000 PAC ,2 GET 2S COMP OF BUFFER ADD. F3A34040 11031 0634 00 2 04300 SXA CINF,2 AND SET CONTROL F3A34050 11032 -0634 00 2 04300 SXD CINF,2 CELLS ADD AND DEC. F3A34060 11033 1 77470 2 11034 BOUTP TXI *+1,2,-5CTB2 BUMP IR 2 TO GET 2S COMP OF F3A34070 11034 -0634 00 2 04577 SXD CIBL1,2 LAST ADD AND SET TEST CELL. F3A34080 11035 0074 00 4 04727 TSX RDC01,4 FIRST READ OF DO FILE C F3A34090 11036 0500 00 1 00000 CLA ,1 GET 1ST WORD OF DO FILE. IS IT EMPTY. F3A34100 11037 0100 00 0 11115 TZE BOUTA YES TRANSFER F3A34110 BINARY CARD NO. 9F220121 11040 0074 00 4 04542 TSX CITR1,4 COMPILE DO FILE C. F3A34120 11041 0074 00 4 11307 TSX TEST5,4 TEST FOR END OF DO FILE C F3A34130 11042 0020 00 0 11040 TRA *-2 NO END GO BACK. F3A34140 11043 0534 00 4 05067 BOUT2 LXA SFRFW,4 ARE THERE FORTRAN FUNCTIONS. $F3A34150 11044 -3 00000 4 11117 TXL BOUTB,4,0 NO, TRANSFER. $F3A34160 11045 0500 00 0 04312 CLA FTRA MODIFY INST FOR PROPER RETURN F3A34170 11046 0601 00 0 07545 STO FAD12 FROM MERGE F3A34180 11047 0500 00 0 04313 CLA FTRB MODIFY INST TESTA ROUTINE F3A34190 11050 0601 00 0 04514 STO TESTA+1 FOR END RETURN F3A34200 11051 0500 00 0 05067 CLA SFRFW GET FORTRAN FUNCTION COMMAND F3A34210 11052 0522 00 0 04327 XEC RDTBA GET INDEX TO SKLST. $F3A34211 11053 0622 00 1 05116 STD SKLST,1 PUT COMMAND IN SKLST. $F3A34220 11054 0621 00 1 05116 STA SKLST,1 $F3A34230 11055 0500 00 1 05170 CLA RISE,1 GET TAPE NUMBER F3A34240 11056 -0734 00 2 00000 PDX ,2 PUT TAPE NUMBER IN IR2 F3A34250 11057 0074 00 4 04327 TSX RDTBA,4 READ FORTRAN FUNCTIONS F3A34260 11060 0074 00 4 04327 TSX RDTBA,4 SKIP OVER EOF AND TAPE IS CHECKED F3A34270 11061 1 73672 2 11062 TXI *+1,2,(SCHU) COMPUTE STORE CHANNEL ADD F3A34280 11062 0634 00 2 11063 SXA BOUT3,2 SAVE ADDRESS. F3A34290 11063 0500 00 0 00000 BOUT3 CLA ** GET STORE CHANNEL F3A34300 11064 0737 00 1 00000 PAC ,1 GET 2S COMP OF LAST ADD F3A34310 11065 -0634 00 1 04513 SXD TESTA,1 IN THE TWO TEST F3A34320 BINARY CARD NO. 9F220122 11066 -0634 00 1 11103 SXD BOUT4,1 FOR END. F3A34330 11067 0734 00 2 00000 PAX ,2 GET LAST ADD F3A34340 11070 -0634 00 2 11072 SXD *+2,2 SAVE IT FOR COMPUTATION F3A34350 11071 0535 00 2 05067 LAC SFRFW,2 GET 2S COMP OF 1ST ADD. F3A34360 11072 1 00000 2 11073 TXI *+1,2,** COMPUTE WORD COUNT F3A34370 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 76 11073 -0754 00 2 00000 PXD ,2 PUT WORD COUNT IN AC F3A34380 11074 0402 00 0 04205 SUB FOFWC DOES WORD COUNT WITH PREVIOUS COUNT. F3A34390 11075 0100 00 0 11077 TZE *+2 YES TRANSFER. F3A34400 11076 0020 00 0 04120 TRA ERR22 NO GO TO IO PACKAGE. F3A34410 11077 0535 00 1 05067 LAC SFRFW,1 LOAD IR1 WITH ENTRY POINT F3A34420 11100 0500 00 1 00000 CLA ,1 GET FIRST WORD OF CIT F3A34430 11101 -0120 00 0 07625 TMI OPS01 TRANSFER TO OPEN SUBROUTINE ON MINUS F3A34440 11102 0074 00 4 04542 TSX CITR1,4 COMPILE FORTRAN FUNCTIONS. F3A34450 11103 3 00000 1 11100 BOUT4 TXH *-3,1,** TEST FOR END. F3A34460 11104 0600 00 0 04577 STZ CIBL1 STORE ZERO IN CIBL1 F3A34470 11105 0074 00 4 04574 TSX CIBLD,4 FORCE WRITE OF LAST BUFFER. F3A34480 11106 0500 00 0 04046 CLA 9CTCT GET ADD CIT COUNT. F3A34490 11107 0734 00 1 00000 PAX ,1 PUT IT IN IR1 F3A34500 11110 1 77777 1 11111 TXI *+1,1,-1 REDUCE IT BY 1 F3A34510 11111 0634 00 1 11113 SXA *+2,1 SAVE IT FOR STORE $F3A34520 11112 0500 00 0 04273 CLA WARCN GET WORD AND RECORD COUNT OF 2ND FILE F3A34530 11113 0601 00 0 00000 STO ** STORE COUNT F3A34540 BINARY CARD NO. 9F220123 11114 0020 00 0 11124 TRA BOUT6 TRANSFER. F3A34550 11115 0074 00 4 04727 BOUTA TSX RDC01,4 RELEASE EMPTY 00 FILE BY F3A34560 11116 0020 00 0 11043 TRA BOUT2 EXTRA CALL AND RETURN F3A34570 11117 0600 00 0 04577 BOUTB STZ CIBL1 SET SWITCH AND FORCE WRITE F3A34580 11120 0074 00 4 04574 TSX CIBLD,4 OF LAST BUFFER SECOND FILE OF CITS F3A34590 11121 0522 00 0 04327 BOUT5 XEC RDTBA GET INDEX TO SKLST F3A34600 11122 1 77776 1 11123 TXI *+1,1,-2 REDUCE IT BY 2 F3A34610 11123 0634 00 1 04327 SXA RDTBA,1 RESTORE INDEX F3A34620 11124 0074 00 4 04327 BOUT6 TSX RDTBA,4 WRITE EOF F3A34630 11125 0074 00 4 04327 TSX RDTBA,4 REWIND TAPE 4 F3A34640 11126 0074 00 4 73600 TSX (LOAD),4 GO TO SECTION FOUR F3A34650 11127 0 00000 0 00000 PZE F3A34660 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 77 TSXCOM TABLE SEARCH F3A34680 F3A34690 11130 0634 00 4 11206 TSXC1 SXA TSXC7,4 SAVE IR4. F3A34700 11131 0634 00 1 11205 SXA TSXC6,1 SAVE IR1 F3A34710 11132 0600 00 0 04206 STZ ERAS SET ERAS TO ZERO FOR DUPLICATE. F3A34720 11133 0774 00 1 00000 TSXC2 AXT **,1 LOAD IR1 WITH TSXCOM ENTRY POINT. F3A34730 11134 -3 00000 1 11204 TSXC3 TXL TSXC5,1,** TEST FOR END OF TSXCOM F3A34740 11135 0500 00 1 00000 CLA TSXCM,1 GET THE FIRST WORD OF TSXCOM. F3A34750 11136 -0320 00 0 04152 ANA DCMSK GET THE IFN. F3A34760 11137 0020 00 0 11331 TRA PAT1D TO COMPARE FIRST FILE IFN $F3A34770 11140 0020 00 0 11204 TSXR TRA TSXC5 TSXCOM IFN IS GREATER $F3A34780 11141 -0500 00 1 00001 CAL TSXCM+1,1 GET 2ND WORD OF TSXCOM. F3A34790 BINARY CARD NO. 9F220124 11142 -0320 00 0 04200 ANA PMASK IS TSXCOM TYPE 1 F3A34800 11143 0100 00 0 11155 TZE TSXC4 NO IT IS TYPE 2 TRANSFER. F3A34810 11144 0500 00 1 00000 CLA TSXCM,1 TYPE 1 GET 1ST WORD OF TSXCOM. F3A34820 11145 -0320 00 0 04153 ANA ADMSK GET TAG. F3A34830 11146 0601 00 0 04167 STO M1CW+3 PUT TAG IN 4TH WORD OF CIT F3A34840 11147 0500 00 1 00001 CLA TSXCM+1,1 GET 2ND WORD OF TSXCOM SYMBOL. F3A34850 11150 0601 00 0 04166 STO M1CW+2 PUT IN 3RD WORD OF CIT F3A34860 11151 0074 00 4 04516 TSX CIT00,4 COMPILE F3A34870 11152 0 04235 0 04130 PZE L(0),,(LXD) 0,,LXD. F3A34880 11153 0 04167 0 04166 PZE M1CW+2,,M1CW+3 SYB,,TAG F3A34890 11154 1 77776 1 11134 TXI TSXC3,1,-2 RETURN TO NEXT TSXCOM ENTRY F3A34900 11155 0500 00 1 00001 TSXC4 CLA TSXCM+1,1 TYPE 2 GET 2ND WORD OF TSXCOM. F3A34910 11156 0340 00 0 04206 CAS ERAS COMPARE FOR DUPLICATE F3A34920 11157 0020 00 0 11161 TRA *+2 NO DUPLICATE TRANSFER F3A34930 11160 1 77776 1 11134 TXI TSXC3,1,-2 DUPLICATE RETURN TO NEXT ENTRY F3A34940 11161 0601 00 0 04206 STO ERAS NO DUPLICATE PUT 2ND WD TSXCOM IN ERAF3A34950 11162 0074 00 4 04516 TSX CIT00,4 COMPILE F3A34960 11163 0 04236 0 04130 PZE L(0),,(SXD) 0,,SXD. F3A34970 11164 0 04140 0 04215 PZE L(6)),,(4A4D F3A34980 11165 0500 00 1 00001 CLA TSXCM+1,1 GET 2ND WORD OF TSXCOM. F3A34990 11166 -0320 00 0 04153 ANA ADMSK GET TAG NAME. F3A35000 11167 0601 00 0 04167 STO M1CW+3 PUT TAG NAME IN 4TH WORD OF CIT. F3A35010 BINARY CARD NO. 9F220125 11170 -0501 00 0 04216 ORA L(A)) OR A) IN. F3A35020 11171 0601 00 0 04166 STO M1CW+2 PUT A) PLUS TAG NAME IN 3RD WD OF CITF3A35030 11172 0074 00 4 04516 TSX CIT00,4 COMPILE. F3A35040 11173 0 04234 0 04130 PZE L(0),,(TSX) 0,,TSX. F3A35050 11174 0 04133 0 04166 PZE M1CW+2,,L(4) A)+TAG,,4 F3A35060 11175 0074 00 4 04516 TSX CIT00,4 COMPILE. F3A35070 11176 0 04237 0 04130 PZE L(0),,(LXP) 0,,LXD. F3A35080 11177 0 04167 0 04166 PZE M1CW+2,,M1CW+3 A)+TAG,,TAG F3A35090 11200 0074 00 4 04516 TSX CIT00,4 COMPILE F3A35100 11201 0 04235 0 04130 PZE L(0),,(LXD) 0,,LXD. F3A35110 11202 0 04140 0 04215 PZE L(6)),,(4A4D 6),,4+4. F3A35120 11203 1 77776 1 11134 TXI TSXC3,1,-2 RETURN TO NEXT ENTRY F3A35130 11204 0634 00 1 11133 TSXC5 SXA TSXC2,1 SAVE TSXCOM ENTRY. F3A35140 11205 0774 00 1 00000 TSXC6 AXT **,1 RESTORE IR1 F3A35150 11206 0774 00 4 00000 TSXC7 AXT **,4 RESTORE IR4 F3A35160 11207 0020 00 4 00001 TRA 1,4 TRANSFER F3A35170 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 78 ROUTINE TO COMPILE, TEST AND READ FOR FIRST FILE F3A35190 F3A35200 11210 0634 00 4 11213 CPFF1 SXA CPFF3,4 SAVE IR4 F3A35210 11211 0074 00 4 04542 TSX CITR1,4 COMPILE FIRST FILE. F3A35220 11212 -3 00000 1 11215 CPFF2 TXL CPFF4,1,** TEST FIRST FILE FOR END AND TRANSFER.F3A35230 11213 0774 00 4 00000 CPFF3 AXT **,4 RESTORE IR4 F3A35240 11214 0020 00 4 00001 TRA 1,4 TRANSFER. F3A35250 11215 0520 00 0 11216 CPFF4 ZET CPFF5 SWITCH FOR OVERFLOW OF FIRST FILE. F3A35260 BINARY CARD NO. 9F220126 11216 0020 00 0 11267 CPFF5 TRA CPF15 CELL SET TO ZERO FOR OVERFLOW F3A35270 11217 0634 00 2 11265 SXA CPF14,2 SAVE IR2 F3A35280 11220 0774 00 1 00006 CPFF6 AXT SKLST-FIRF1,1 GET INDEX TO BUFFER F3A35290 11221 0074 00 4 04331 TSX RDTBB,4 READ A RECORD F3A35300 11222 3 00005 1 11226 TXH CPFF7,1,SKLST-FIRF2 IS THES BUFFER 1 OR 2 F3A35310 11223 0774 00 1 00006 AXT SKLST-FIRF1,1 BUFFER 2 GET INDEX FOR BUFFER 1 F3A35320 11224 0634 00 1 11220 SXA CPFF6,1 RESET INDEX TO BUFFER F3A35330 11225 0020 00 0 11230 TRA CPFF8 TRANSFER F3A35340 11226 0774 00 1 00005 CPFF7 AXT SKLST-FIRF2,1 BUFFER 1 GET INDEX FOR BUFFER 2 F3A35350 11227 0634 00 1 11220 SXA CPFF6,1 RESET INDEX TO BUFFER F3A35360 11230 -3 00000 0 11231 CPFF8 TXL *+1,0,** SWITCH FOR 1ST TIME THRU. F3A35370 11231 0774 00 1 11234 AXT CPFF9,1 GET ADD FOR 2ND TIME THRU. F3A35380 11232 0634 00 1 11230 SXA CPFF8,1 RESET SWITCH F3A35390 11233 0020 00 0 11220 TRA CPFF6 TRANSFER TO READ SECOND RECORD. F3A35400 11234 0500 00 1 05170 CPFF9 CLA RISE,1 GET LOGICAL TAPE NUMBER F3A35410 11235 -0734 00 2 00000 PDX ,2 PUT TAPE NUMBER IN IR2 F3A35420 11236 1 73672 2 11237 TXI *+1,2,(SCHU) COMPUTE STORE CHANNEL ADD F3A35430 11237 0634 00 2 11240 SXA CPF10,2 PUT ADD IN NEXT CELL F3A35440 11240 -0520 00 0 00000 CPF10 NZT ** IS STORE CHANNEL CELL ZERO. F3A35450 11241 0020 00 0 11271 TRA CPF16 YES TRANSFER. F3A35460 11242 0500 60 0 11240 CLA* CPF10 NO GET LAST ADDRESS OF BUFFER. F3A35470 11243 0737 00 2 00000 PAC ,2 GET 2S COMP OF LAST ADD. F3A35480 BINARY CARD NO. 9F220127 11244 -0634 00 2 11212 SXD CPFF2,2 PUT IN TEST INSTRUCTION F3A35490 11245 0734 00 2 00000 PAX ,2 LOAD IR2 WITH LAST ADD F3A35500 11246 -0634 00 2 11251 SXD CPF11,2 SAVE IR2 IN DEC OF CPF11. F3A35510 11247 0500 00 1 05116 CLA SKLST,1 GET 1ST ADD OF BUFFER F3A35520 11250 0737 00 2 00000 PAC ,2 PUT 2S COMP OF 1ST ADD OF BUFFER IN 2F3A35530 11251 1 00000 2 11252 CPF11 TXI *+1,2,** COMPUTE WORD COUNT F3A35540 11252 0737 00 1 00000 PAC ,1 LOAD IR1 WITH 2S COMP OF 1ST ADD F3A35550 11253 0754 00 2 00000 PXA ,2 CLEAR AC AND PUT WORD COUNT IN ADD F3A35560 11254 -0320 00 0 04132 ANA L(3) GET BITS 35 AND 36 F3A35570 11255 0100 00 0 11257 TZE CPF12 IS WORD COUNT MULTIPLE OF 4 F3A35580 11256 0020 00 0 04112 TRA ERR20 NO GO TO IO PACKAGE. F3A35590 11257 -0634 00 2 11261 CPF12 SXD CPF13,2 YES PUT WORD COUNT IN DEC F3A35600 11260 0534 00 2 04301 LXA WARCT,2 GET PREVIOUS WORD COUNT F3A35610 11261 1 00000 2 11262 CPF13 TXI *+1,2,** COMPUTE NEW WORD COUNT. F3A35620 11262 0634 00 2 04301 SXA WARCT,2 SAVE NEW WORD COUNT F3A35630 11263 -0634 00 1 11230 SXD CPFF8,1 SAVE ENTRY POINT TO FIRST FILE F3A35640 11264 -0534 00 1 11230 LXD CPFF8,1 GET ENTRY POINT TO FIRST FILE F3A35650 11265 0774 00 2 00000 CPF14 AXT **,2 RESTORE IR2 F3A35660 11266 0020 00 0 11213 TRA CPFF3 TRANSFER F3A35670 11267 0055 00 020000 CPF15 SIR NOFF SET INDICATOR FOR NO FIRST FILE F3A35680 11270 0020 00 0 11213 TRA CPFF3 TRANSFER. F3A35690 11271 0055 00 020000 CPF16 SIR NOFF F3A35700 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 79 BINARY CARD NO. 9F220128 11272 0020 00 0 11265 TRA CPF14 F3A35710 ROUTINE TO COMPILE AND TEST TIFGO FILE F3A35730 F3A35740 11273 0634 00 4 11276 CPTF1 SXA CPTF3,4 SAVE IR4 F3A35750 11274 0074 00 4 04557 TSX CITR2,4 COMPILE TIFGO FILE. F3A35760 11275 -3 00000 2 11300 CPTF2 TXL CPTF4,2,** TEST TIFGO FILE FOR END AND TRANSFER.F3A35770 11276 0774 00 4 00000 CPTF3 AXT **,4 RESTORE IR4 F3A35780 11277 0020 00 4 00001 TRA 1,4 TRANSFER. F3A35790 11300 0055 00 010000 CPTF4 SIR NOTF SET INDICATOR FOR NO TIFGO FILE F3A35800 11301 0020 00 0 11276 TRA CPTF3 TRANSFER. F3A35810 11302 0634 00 4 11276 CPTF5 SXA CPTF3,4 SAVE IR4. F3A35820 11303 0020 00 0 11275 TRA CPTF2 F3A35830 ROUTINE TO TEST FOR END OF DO FILE C RECORD F3A35850 F3A35860 11304 3 00000 1 11306 TESTC TXH *+2,1,** TRANSFER IF NOT END F3A35870 11305 0020 00 4 00001 TRA 1,4 END TRANSFER F3A35880 11306 0020 00 4 00002 TRA 2,4 NOT END TRANSFER. F3A35890 ROUTINE FOR DO FILE C TEST F3A35910 F3A35920 11307 0634 00 4 11312 TEST5 SXA TEST7,4 SAVE IR4 F3A35930 11310 0074 00 4 11304 TSX TESTC,4 TEST RECORD F3A35940 11311 0074 00 4 04727 TSX RDC01,4 READ ANOTHER RECORD. F3A35950 11312 0774 00 4 00000 TEST7 AXT **,4 RESTORE IR4 F3A35960 11313 0020 00 4 00001 TRA 1,4 TRANSFER F3A35970 11314 0074 00 4 04343 PAT1 TSX RDD01,4 READ COMPDO FIRST TIME $F3A35980 11315 0074 00 4 04445 PAT1A TSX RDA01,4 READ COMPAIL FIRST TIME $F3A35981 11316 0020 00 0 07423 TRA TOPAT+1 $F3A35982 11317 0774 00 2 00002 PAT1B AXT 2,2 $F3A35983 BINARY CARD NO. 9F220129 11320 0020 00 4 00002 TRA 2,4 $F3A35984 11321 0074 00 4 04516 PAT1C TSX CIT00,4 $F3A35985 11322 0 11330 0 04130 PZE L(0),,(TNZ) $F3A35986 11323 0 04143 0 04212 PZE (AST),,L(2D) $F3A35987 11324 0074 00 4 04516 TSX CIT00,4 $F3A35988 11325 0 04256 0 04130 PZE L(0),,(SSP) $F3A35989 11326 0 04130 0 04130 PZE L(0),,L(0) $F3A3598A 11327 1 77774 1 07545 TXI FAD12,1,-4 $F3A3598B 11330 634571000000 (TNZ) BCI 1,TNZ000 $F3A3598C 11331 0340 00 0 04203 PAT1D CAS FFLFN COMPARE FIRST FILE IFN $F3A3598D 11332 0020 00 0 11140 TRA TSXR TSXCOM IFN IS GREATER $F3A3598E 11333 0020 00 0 11141 TRA TSXR+1 EQUAL. TRANSFER BACK TO COMPILE $F3A3598F 11334 1 77776 1 11134 TXI TSXC3,1,-2 GET NEXT TSXCOM ENTRY $F3A3598G 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 80 11335 0634 00 2 06514 TWO1A SXA TWO09,2 LOC OF LAST TRALEV BETA (32)F3A3598H 11336 -0500 00 0 11363 CAL TWO1E SET SUPPLEMENTARY TRALEV (32)F3A35990 11337 0602 00 0 11410 SLW GOOUT END INDICATOR (32)F3A36000 11340 0774 00 4 00100 AXT 64,4 SET SUPPLEMENTARY TRLEV (32)F3A36010 11341 0634 00 4 11407 SXA TRLVP,4 POINTER (32)F3A36020 11342 0020 00 0 06515 TRA TWO10 PROCESS TRALEV ENTRY (32)F3A36030 11343 0774 00 4 00100 TWO1B AXT 64,4 CHECK FOR DUP TRALEV (32)F3A36040 11344 0500 00 4 11510 TWO16 CLA GOOUT+64,4 ENTRY (32)F3A36050 11345 -0120 00 0 06515 TMI TWO10 TRA IF END OF SUPPLEMENTARY TABLE (32)F3A36060 BINARY CARD NO. 9F220130 11346 -0340 00 2 00000 LAS TRLEV,2 FOUND (32)F3A36070 11347 0020 00 0 11351 TRA *+2 NO (32)F3A36080 11350 0020 00 0 11353 TRA TWO1D YES (32)F3A36090 11351 2 00002 4 11344 TIX TWO16,4,2 NO,CONTINUE UNTIL ALL SUPP (32)F3A36100 11352 0020 00 0 06515 TRA TWO10 ENTRIES EXAMINED,THEN PROCESS AS NEW (32)F3A36110 11353 0500 00 0 04173 TWO1D CLA TIFFN DUPLICATE TRLEV BETA (32)F3A36120 11354 0601 00 0 11406 STO PRAM (32)F3A36130 11355 -0501 00 4 11511 ORA GOOUT+65,4 COMPILE 0,,TRA,,IFN+ADD,,0 (32)F3A36140 11356 0602 00 0 04166 SLW M1CW+2 WHERE HODEND IS THAT OF (32)F3A36150 11357 0074 00 4 07354 TSX OTM01,4 FIRST SUCH BETA ENCOUNTERED (32)F3A36160 11360 -0500 00 0 11363 CAL TWO1E MARK TRALEV BETA AS (32)F3A36170 11361 0630 00 2 00000 STP TRLEV,2 DUPLICATE (32)F3A36180 11362 1 00001 2 06521 TXI TWO11,2,1 GO GET NEXT TRLEV BETA (32)F3A36190 11363 -0500 00 0 04166 TWO1E CAL M1CW+2 WAS NEW ADDEND USED (32)F3A36200 11364 -0320 00 0 04153 ANA ADMSK (32)F3A36210 11365 0100 00 0 11376 TZE TWO1G NO (32)F3A36220 11366 0534 00 4 11407 LXA TRLVP,4 YES ENTER TRLEV IN SUPP TABLE (32)F3A36230 11367 -2 00002 4 11404 TNX TWO1H,4,2 UNLESS ERROR-32ND ENTRY (32)F3A36240 11370 0634 00 4 11407 SXA TRLVP,4 (32)F3A36250 11371 0602 00 4 11507 SLW GOOUT+63,4 STORE ADDEND (32)F3A36260 11372 0500 00 2 00000 CLA TRLEV,2 (32)F3A36270 11373 0601 00 4 11506 STO GOOUT+62,4 AND BETA (32)F3A36280 BINARY CARD NO. 9F220131 11374 -0500 00 0 11363 CAL TWO1E (32)F3A36290 11375 0630 00 4 11510 STP GOOUT+64,4 INDICATE NEW END OF SUPP TABLE (32)F3A36300 11376 1 00001 2 06521 TWO1G TXI TWO11,2,1 GET NEXT TRLEV BETA (32)F3A36310 11377 0500 00 2 00000 TWO1F CLA TRLEV,2 DO NOT COMPILE TRASTO UNLESS (32)F3A36320 11400 0120 00 0 06527 TPL TWO12 TRLEV ENTRY IS NOT DUPLICATE (32)F3A36330 11401 0760 00 0 00003 SSP TRLEV ENTRY IS DUPLICATE (32)F3A36340 11402 0601 00 2 00000 STO TRLEV,2 (32)F3A36350 11403 0020 00 0 06530 TRA TWO12+1 GET NEXT TRLEV ENTRY (32)F3A36360 11404 0074 00 4 11405 TWO1H TSX *+1,4 ERROR-TOO MANY ADDENDS (32) (32)F3A36370 11405 1 77014 0 73603 TXI (DIAG),,-500 FOR 1 IFN- (32)F3A36380 11406 0 00000 0 00000 PRAM PZE CONTAINS IFN FOR DIAGNOSTIC (32)F3A36390 11407 0 00000 0 00000 TRLVP PZE ** POINTER TO SUPPLEMENTRY TRLEV (32)F3A36400 11410 GOOUT BSS 63 SUPPLEMENTARY TRLEV BUFFER (32)F3A36410 11507 BSS PATCH-123 (32)F3A36420 11706 HNDCD BSS OPSUB SPACE FOR HAND-CODING OF BUILTIN FUNCT(32)F3A37000 12300 BTTAB SYN * (32)F3A38990 77777 END -1 (32)F3A39000 BINARY CARD NO. TRA77777 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 1 POST PROCESSOR ASSEMBLY DATA 77677 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM REFERENCES TO DEFINED SYMBOLS 7 A M 0 10 A N 0 1 A P 0 1 A Q 0 1 A R 0 1 A S 0 1 A U 0 1 A V 0 1 A W 0 1 A X 0 1 A Y 0 1 A Z 0 5561 A A1 5536 5554 A A3 5562 5545 A A4 5544, 5563, 5602, 5615, 5632, 5651, 5664 5564 A B2 5551 5600 A B3 5537 5573 A B5 5601 5603 A C1 5567 5606 A C2 5614 5613 A C5 5540 5616 A D1 5546 5623 A D2 5631 5630 A D3 5541 0 A DO 0, 4411, 4420, 4433, 4434, 7521, 7557 5633 A E2 5620 5642 A E3 5650 5647 A E4 5542 5652 A F4 5636 5655 A F5 5663 5662 A F6 5543 5744 A G3 5502 5753 A G4 5503 5746 A G5 5753 5760 A H3 5765 5765 A H4 5476 5754 A H5 5744 5756 A H6 5475 5773 A I1 6000 6000 A I2 5471 5771 A I3 5470 5766 A I5 5756 6007 A J2 6014 6014 A J3 5464 6001 A J5 5771 6005 A J6 5463 6021 A K1 6026 6026 A K2 5457 6017 A K4 5456 6015 A K5 6005 4162 A 3WD 5302, 5303, 5310, 5311,10125,10145 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 2 POST PROCESSOR ASSEMBLY DATA 4163 A 4WD 10127,10145 10062 A ABS 7650, 7651 10545 A AC1 10540 10570 A AC2 10614 A AC4 10742 10613 A AC5 10620,10625,10626 10603 A AC6 10624,10665 10600 A AC9 10555,10567,10574,10575 10654 A AF1 10611,10660,10714 10662 A AF2 10671 10627 A AG1 10601,10615 10631 A AG2 10646,10710 10633 A AG5 10641 10640 A AG8 10635 10643 A AG9 10652 10673 A AH1 10656 10674 A AH2 10672,10677,10740 0 A AIL 0, 6201, 6231, 7432, 7461, 7523, 7530, 7537, 7546, 7553, 7601, 7602, 7603, 7604, 7627, 7635, 7756 7762,10017,10032,10311,10343,10345,10355,10360,10364,10372,10375 10700 A AJ1 10612 10706 A AJ4 10715,10716 10717 A AL1 10701 10726 A AL5 10735,10736 10737 A AL6 10730 10741 A AL7 10734 5313 A BRT 5316 0 A CIB 0, 4531, 4533, 4550, 4565,10744 10216 A DIM 7673 10070 A FIX 7652, 7654 10067 A INT 7653 10452 A LLS 10102,10156,10172 7706 A M1D 7636 10261 A MAX 10174,10176,10201 10240 A MIN 10203,10206,10212 10116 A MOD 7657 5320 A OTH 5277 5316 A RZT 5312 10436 A UFA 10071,10135 10414 A XCA 10051,10134,10137,10204,10207,10213 5665 A 1BOX 5505, 5605, 5611, 5741 4177 A 2BIT 10617 5666 A 2BOX 5500, 5572, 5576, 5743 5667 A 3BOX 5473, 5553, 5557, 5755 5670 A 4BOX 5466, 5654, 5660, 5770 5671 A 5BOX 5461, 5622, 5626, 6004 5672 A 6BOX 5454, 5641, 5645, 6016 10743 A AOUT 10630,10637,10653,10675 0 A ASCO 0, 6640 11002 A BOUT 10746 0 A CHTG 0, 6155, 6157, 6165, 6171, 6205, 6220 4300 A CINF 4575, 4601, 4604, 4616, 4624, 4625, 4655, 4656, 4666, 4720, 4721, 6315, 6316, 7424, 7426, 7427, 7445 7452, 7473, 7505,10506,10552,10553,10743,11031,11032 4537 A CIR1 4516 4540 A CIR2 4517 4523 A CIR4 4520 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 3 POST PROCESSOR ASSEMBLY DATA 3734 A CL01 5263 3751 A CL02 5346 3752 A CL03 5353 3753 A CL04 5365 3754 A CL05 5366 3755 A CL06 5374 3756 A CL07 5375 3757 A CL08 5256, 5307, 5314, 5320 3760 A CL09 5403 3761 A CL10 5404 3762 A CL11 3763 A CL12 3764 A CL13 5320, 5321, 5323 3765 A CL14 5263, 5264, 5267, 5327 3766 A CL15 3767 A CL16 5441 3770 A CL17 3771 A CL18 5417 3772 A CL19 5444 3773 A CL20 3774 A CL21 5426 3775 A CL22 3776 A CL23 5506 3777 A CL24 5510,10474 4000 A CL25 5327, 5331, 5337 4001 A CL26 4002 A CL27 4002, 5337, 5341 4175 A CLOC 6724, 7375, 7377, 7401 4206 A ERAS 6262, 6266, 6667, 6674,11132,11156,11161 4047 A ERR1 5317 4050 A ERR2 5712 4053 A ERR3 5730 4056 A ERR4 6046 4057 A ERR5 6053 4062 A ERR6 6071 4065 A ERR7 6103 4070 A ERR8 6116 4073 A ERR9 6162 200 A FAIL 0, 4462, 7567 4312 A FTRA 11045 4313 A FTRB 11047 4000 A FXPT 0, 7744, 7766,10002,10004,10014,10030,10044,10067,10072,10107,10115,10117,10147,10215,10222,10225 6646 A IF01 6404 6666 A IF02 6647 2002 A IFIN 0, 6350 4554 A KIR2 4542 4555 A KIR4 4543 10364 A LAST 10340,10371 5044 A LIST 4333, 5044 4130 A L(0) 5304, 5512, 6433, 6450, 6634, 7157, 7174, 7176, 7177, 7270, 7273, 7276, 7316, 7326, 7327, 7334, 7335 7343, 7350, 7356, 7357, 7364, 7365, 7771, 7774, 7775,10006,10011,10012,10047,10057,10064,10065,10075 10076,10100,10104,10105,10132,10141,10144,10152,10154,10161,10170,10227,10232,10235,10236,10245,10250 10253,10266,10271,10274,10323,10324,10326,10327,10416,10417,10425,10440,10441,10446,10447,10454,10455 10750,10751,10753,10756,10757,10761,10764,10765,10767,10770,10772,10773,10776,11000,11001,11152,11163 11173,11176,11201,11322,11325,11326 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 4 POST PROCESSOR ASSEMBLY DATA 4131 A L(2) 5710 4132 A L(3) 4400, 4503, 4763, 5322, 5552, 5571, 5604, 5621, 5640, 5653, 6051, 6311, 6323,11254 4133 A L(4) 6101, 7271,11174 4134 A L(8) 6654, 6717, 7023, 7031, 7050, 7117, 7371, 7374, 7400 4164 A M1CW 6436, 6445, 6447, 6455, 6476, 6526, 6540, 6543, 6556, 6561, 6602, 6612, 6615, 6630, 6635, 6652, 6655 6660, 6663, 7012, 7022, 7024, 7032, 7105, 7120, 7130, 7147, 7151, 7153, 7154, 7155, 7160, 7166, 7171 7173, 7174, 7177, 7206, 7211, 7213, 7214, 7222, 7225, 7227, 7230, 7233, 7235, 7236, 7245, 7250, 7252 7253, 7256, 7260, 7263, 7265, 7271, 7274, 7303, 7313, 7316, 7320, 7335, 7342, 7343, 7351, 7357, 7365 7406, 7626, 7750, 7753, 7772,10007,10023,10025,10026,10036,10040,10041,10050,10060,10122,10123,10124 10126,10133,10142,10151,10155,10162,10171,10224,10227,10230,10246,10254,10267,10275,10344,10346,10356 10410,10411,10424,10432,10433,11146,11150,11153,11167,11171,11174,11177,11356,11363 4172 A MASK 5566, 5635, 6745 10176 A MAX0 7663 10206 A MIN0 7667 1000 A NODO 0, 7515, 7565, 7576 20000 A NOFF 0,10533,10554,10627,10634,10651,10655,10670,10727,11267,11271 10000 A NOTF 0,10524,10600,10614,10674,10707,11300 73041 A ORGA 0 73040 A ORGB 0,73040 67512 A ORGC 0 66052 A ORGD 0,66052 65457 A ORGE 0 64017 A ORGF 0 63177 A ORGG 0,63177 60074 A ORGH 0 42061 A ORGI 0 7007 A ORGJ 0, 7007 27657 A ORGK 0,27657 5673 A PACK 5531, 5561, 5600, 5613, 5630, 5647, 5662 11314 A PAT1 7422 11406 A PRAM 11354 5170 A RISE 4334, 4361, 4464, 4744, 5170, 6126,11055,11234 10164 A SIGN 7660, 7661 5036 A SRD1 10500 5037 A SRD2 10501 5513 A STR1 5301 0 A SXTX 0, 4423, 4432 4314 A TAG4 4704 5263 A TIRA 5245, 5247, 5253, 5255, 5261, 5315, 5325 5326 A TIRB 5306 7601 A TONE 7443, 7465 0 A TRAD 0, 6473 11140 A TSXR 11332,11333 4571 A VIR1 4557 4572 A VIR4 4560 4664 A WTCT 4303 4607 A WTOV 4600 10215 A XDIM 7672 10115 A XMOD 7656 4277 A XTOP 5244 62 A1ALBF 0 2260 A1CHTG 0 62 A1CTBF 0 1 A1CTCT 0 620 A1DCAR 0 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 5 POST PROCESSOR ASSEMBLY DATA 62 A1DCBF 0 0 A1DM01 0 0 A1DM02 0 0 A1DM03 0 0 A1DM04 0 0 A1DM05 0 0 A1DM06 0 14562 A1DM07 0, 4276 0 A1DM08 0 62 A1DOBF 0 62 A1FRBF 0 13560 A1FRTG 0 2260 A1FXCN 0 1130 A1SXTX 0 2260 A1TFGO 0 1750 A1TRAD 0 11300 A1TRLV 0 620 A1TRST 0 1750 A1TSCM 0 620 A1UCTG 0 1 A2TBF1 0 2 A2TBF2 0, 4426 3 A2TBF3 0 4 A2TBF4 0, 4414, 4430, 4435 62 A3ALB1 0 62 A3ALB2 0 2032 A3CHTG 0 62 A3CTB1 0 62 A3CTB2 0 1 A3CTCT 0 62 A3DBF1 0 62 A3DBF2 0 536 A3DCAR 0 62 A3DCB1 0 62 A3DCB2 0 0 A3DM01 0 0 A3DM02 0 0 A3DM03 0 0 A3DM04 0 0 A3DM05 0 0 A3DM06 0 14562 A3DM07 0 0 A3DM08 0 62 A3FRB1 0 62 A3FRB2 0 12202 A3FRTG 0 2032 A3FXCN 0 4077 A3IO01 0 1015 A3SXTX 0 2032 A3TFGO 0 1553 A3TRAD 0 10150 A3TRLV 0 536 A3TRST 0 1553 A3TSCM 0 536 A3UCTG 0 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 6 POST PROCESSOR ASSEMBLY DATA 0 A4CHTG 0, 7007, 3764 1 A4DCAR 0,73041, 3736 2 A4FRTG 0,13073, 3761, 5057 1 A4FXCN 0,60074, 3750 1 A4SXTX 0,65457, 3742, 3766 2 A4TFGO 0,43636, 3754, 5047 2 A4TRAD 0,42061, 3756, 5053 0 A4TRLV 0,47724, 3752, 5045, 5051, 6035 1 A4TRST 0,63424, 3744 1 A4TSCM 0,67512, 3740 1 A4UCTG 0,62127, 3746 310 A5ALB1 0,64017, 3774, 5106 310 A5ALB2 0,64327, 3773, 5107 4064 A5CHTG 0, 7007, 3763 310 A5CTB1 0,66672, 3767 310 A5CTB2 0,67202, 3766, 4722,11033 1 A5CTCT 0,73040, 4001 310 A5DBF1 0,64637, 3771, 5104 310 A5DBF2 0,65147, 3770, 5105 536 A5DCAR 0,73042, 3736 310 A5DCB1 0,66052, 3772, 5114 310 A5DCB2 0,66362, 3771, 5115 0 A5DM01 0,73041, 4000 0 A5DM02 0,67512, 3765 0 A5DM03 0,66672, 3770 0 A5DM04 0,65457, 3767 0 A5DM05 0,64637, 3772 0 A5DM06 0,64017, 3775 14562 A5DM07 0,25277, 3757 0 A5DM08 0,13073, 3762 310 A5FRB1 0,63177, 3777, 6330 310 A5FRB2 0,63507, 3776, 4657 12202 A5FRTG 0,13075, 3760, 5057 2032 A5FXCN 0,60075, 3747 4077 A5IO01 0,73600, 3735 2032 A5SXTX 0,65460, 3741, 3765 4064 A5TFGO 0,43640, 3753, 5047 2032 A5TPE1 0 2032 A5TPE2 0,27657, 3763 2032 A5TPE3 0,31711, 3762 2032 A5TPE4 0,33743, 3761 2032 A5TPE5 0,35775, 3760 2032 A5TPE6 0,40027, 3757 1553 A5TRAD 0,42063, 3755, 5053 10150 A5TRLV 0,47724, 3751, 5045, 5051, 6035 2032 A5TRST 0,63425, 3743 3326 A5TSCM 0,67513, 3737 1274 A5UCTG 0,62130, 3745 7007 A6CHTG 4031 73041 A6DCAR 4003 13073 A6FRTG 4026, 5057 60074 A6FXCN 4015, 5055, 5063 65457 A6SXTX 4007, 4033 43636 A6TFGO 4021, 5047 42061 A6TRAD 4023, 5053 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 7 POST PROCESSOR ASSEMBLY DATA 47724 A6TRLV 4017, 5045, 5051, 6035 63424 A6TRST 4011 67512 A6TSCM 4005 62127 A6UCTG 4013, 5061 64017 A7ALB1 4041, 5106 64327 A7ALB2 4040, 5107 7007 A7CHTG 4030 66672 A7CTB1 4034, 5112 67202 A7CTB2 4033, 5113 73040 A7CTCT 4046 64637 A7DBF1 4036, 5104 65147 A7DBF2 4035, 5105 73042 A7DCAR 66052 A7DCB1 4037, 5114 66362 A7DCB2 4036, 5115 73041 A7DM01 4045 67512 A7DM02 4032 66672 A7DM03 4035 65457 A7DM04 4034 64637 A7DM05 4037 64017 A7DM06 4042 25277 A7DM07 4024 13073 A7DM08 4027 63177 A7FRB1 4044, 5110 63507 A7FRB2 4043, 5111 13075 A7FRTG 4025 60075 A7FXCN 4014 73600 A7IO01 4002 65460 A7SXTX 4006, 4032 43640 A7TFGO 4020 27657 A7TPE2 4030, 5666, 5744, 5753 31711 A7TPE3 4027, 5667, 5756, 5765 33743 A7TPE4 4026, 5670, 5771, 6000 35775 A7TPE5 4025, 5671, 6005, 6014 40027 A7TPE6 4024, 5672, 6017, 6026 42063 A7TRAD 4022 47724 A7TRLV 4016 63425 A7TRST 4010, 5665 67513 A7TSCM 4004 62130 A7UCTG 4012 4013 A8ASCN 4047, 5415, 6333, 6627, 6632, 7410 4031 A8CHTG 4047 A8CTCT 4047, 5340, 5343 4003 A8DCAR 5336 4026 A8FRTG 4047, 5410, 6074 4015 A8FXCN 5412, 5514, 7413 4007 A8SXTX 4403 4021 A8TFGO 5372, 5707, 5723, 6055 4023 A8TRAD 5401, 6050, 6063, 6305, 6334 4017 A8TRLV 5357 4011 A8TRST 5530, 5533, 5737, 6336 4005 A8TSCM 5326,10537,10542,10566 4013 A8UCTG 4047, 6242, 6244 4041 A9ALB1 5431 4040 A9ALB2 5432 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 8 POST PROCESSOR ASSEMBLY DATA 4012 A9ASCN 4047, 6340 4030 A9CHTG 4047, 6253, 6304 4034 A9CTB1 4047, 5435,10551 4033 A9CTB2 5436,10547 4046 A9CTCT 11011,11106 4036 A9DBF1 4047, 5422 4035 A9DBF2 5423 4037 A9DCB1 4047, 5447 4036 A9DCB2 4047, 5450 4045 A9DM01 5330, 5333, 5340 4032 A9DM02 5266, 5271, 5330 4034 A9DM04 4047 4037 A9DM05 4047 4042 A9DM06 4027 A9DM08 4047, 6250 4044 A9FRB1 6317 4043 A9FRB2 4025 A9FRTG 4047, 6110, 6252 4014 A9FXCN 4002 A9IO01 5266 4006 A9SXTX 4406, 4422 4020 A9TFGO 5716, 5720 4030 A9TPE2 4047, 5477, 5745 4027 A9TPE3 4047, 5472, 5757 4026 A9TPE4 4047, 5465, 5772 4025 A9TPE5 4047, 5460, 6006 4024 A9TPE6 5453, 6020 4022 A9TRAD 6061 4016 A9TRLV 5674, 5677, 6031, 6040, 6343, 6347 4010 A9TRST 5504, 5525, 5532 4004 A9TSCM 10534,10541,10570 4012 A9UCTG 4047, 6245, 6263 7124 AADDBC 6733 7370 AADDC1 6712, 6774 4171 AADDCO 6402, 6442, 6522, 6576, 6716, 7011, 7021, 7030, 7047, 7051, 7126, 7304, 7307, 7370, 7372 4153 AADMSK 6146, 6761, 7170,11145,11166,11364 5114 AA)FU1 4730, 4733, 5445, 5451 5115 AA)FU2 4732, 4736, 5446, 5452 5237 AALA10 11025 5226 AALA11 11023 5172 AALAB1 4052, 4055 5176 AALAB2 4061, 4064 5202 AALAB3 4067, 4072 5230 AALAB4 4077 5232 AALAB5 4102 5234 AALAB6 4114, 4117 5224 AALAB7 4122 5240 AALAB8 4125 5236 AALAB9 11024 4151 AALONE 7463, 7531, 7605,10312,10361,10365 10343 AARGTG 7745,10130,10157,10166,10220,10243,10264,10304,10335,10400 4207 ABETA1 6356, 6466, 6542, 6555, 6611, 6651, 7403 4210 ABETA2 6355, 6433, 6450, 6471, 6537, 6560, 6614, 6637, 6657, 7405 4211 ABETA3 6361, 6405, 6662 11022 ABOUT1 11014,11020 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 9 POST PROCESSOR ASSEMBLY DATA 11043 ABOUT2 4751,11116 11063 ABOUT3 11062 11103 ABOUT4 4312, 4313,11066 11121 ABOUT5 11124 ABOUT6 11114 11115 ABOUTA 11037 11117 ABOUTB 11044 11033 ABOUTP 5443 10302 ABTEST 10241,10262 12300 ABTTAB 4274, 5513,12300 5106 ACAIL1 4447, 4452, 5427, 5433 5107 ACAIL2 4451, 4455, 5430, 5434 4161 ACCONT 7765, 7776,10000,10052,10054 4 ACDOTP 0, 4077, 5116, 5117, 5122, 5123, 5126, 5127, 5156, 5157 4154 ACHTFN 6166, 6172 6163 ACHTGA 6240, 6277 6167 ACHTGB 6173 6170 ACHTGC 6275 6174 ACHTGD 6170 6175 ACHTGE 6163 4577 ACIBL1 4576, 4660, 4723, 6335, 7431,10462,10464,10467,10550,11002,11004,11007,11034,11104,11117 4600 ACIBL2 10546 4602 ACIBL3 4577 4605 ACIBL4 4574 4574 ACIBLD 4521, 4544, 4561,10465,11005,11105,11120 4516 ACIT00 6431, 6446, 6633, 7152, 7156, 7172, 7175, 7212, 7226, 7234, 7251, 7264, 7267, 7272, 7275, 7314, 7325 7333, 7341, 7347, 7355, 7363, 7770, 7773,10005,10010,10024,10037,10046,10056,10063,10074,10077,10103 10121,10131,10140,10143,10150,10153,10160,10167,10226,10231,10234,10244,10247,10252,10265,10270,10273 10322,10325,10407,10415,10423,10431,10437,10445,10453,10747,10752,10755,10760,10763,10766,10771,10774 10777,11151,11162,11172,11175,11200,11321,11324 4525 ACIT01 4536 5112 ACIT31 4670, 4711, 5437 5113 ACIT32 4710, 4714, 5440 4542 ACITR1 7440, 7457, 7544,11040,11102,11211 4557 ACITR2 7555,11274 4547 ACITRA 4553 4564 ACITRB 4570 4 ACITTP 0, 5143, 5151, 5154, 5155, 5164, 5165 3735 ACL01A 5250 10430 ACLATW 10015,10165,10217,10263,10401 7374 ACLOC1 6437, 6456, 6525, 6601 7377 ACLOC2 7223, 7317 4156 ACMBOX 6137, 6142, 6150, 6154 7122 ACMOU1 7100, 7115 7100 ACMOUT 6732 7020 ACMP01 7007 7027 ACMP02 7005 7034 ACMP03 5767, 7017, 7026, 7040 7035 ACMP04 6002, 7045, 7053 7036 ACMP05 6777, 7042, 7052, 7054 7040 ACMP06 7034 7041 ACMP07 7035 7046 ACMP08 6003, 7044 7053 ACMP09 7046 7054 ACMP10 7003 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 10 POST PROCESSOR ASSEMBLY DATA 6777 ACMPIL 6730 5104 ACODO1 4345, 4350, 5420, 5424 5105 ACODO2 4347, 4353, 5421, 5425 4311 ACOUNT 4054, 4063, 4071, 4076, 4101, 4113, 4116, 4121, 4124 11240 ACPF10 11237,11242 11251 ACPF11 11246 11257 ACPF12 11255 11261 ACPF13 11257 11265 ACPF14 11217,11272 11267 ACPF15 11216 11271 ACPF16 11241 11210 ACPFF1 10564,10633,10650,10654,10667,10726 11212 ACPFF2 10526,11244 11213 ACPFF3 11210,11266,11270 11215 ACPFF4 11212 11216 ACPFF5 10473,11215 11220 ACPFF6 11224,11227,11233 11226 ACPFF7 11222 11230 ACPFF8 11225,11232,11263,11264 11234 ACPFF9 11231 11273 ACPTF1 10613,10676,10706 11275 ACPTF2 10517,11303 11276 ACPTF3 11273,11301,11302 11300 ACPTF4 11275 11302 ACPTF5 10737,10741 3 ACSBTP 0, 4122, 4125, 5141, 5142, 5150, 5152, 5153, 5166, 5167 7403 ACTRDN 6464, 6503 4152 ADCMSK 5243, 6136, 6141, 6222, 6265, 6370, 6546, 7072, 7104, 7312, 7524, 7547, 7560,10572,10606,10622,10644 10663,10712,10732,11136 7732 ADICT. 4074 AERR10 4610 4075 AERR11 4402 4100 AERR12 4505 4103 AERR13 4637 4104 AERR14 4700 4105 AERR15 6643 4106 AERR16 7533, 7534 4107 AERR17 7642 4110 AERR18 10363 4111 AERR19 10367 4112 AERR20 11256 4115 AERR21 11021 4120 AERR22 11076 4123 AERR23 4765 4126 AERR24 4706 4127 AERR25 7510 7744 AEXP01 7631 7745 AEXP02 7633 7761 AEXP03 10027 7762 AEXP04 10042 7770 AEXP05 10001 10002 AEXP06 7764 10014 AEXP07 7760 10017 AEXP08 7752 10030 AEXP09 10021 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 11 POST PROCESSOR ASSEMBLY DATA 10032 AEXP10 7755 10043 AEXP11 10034 10046 AEXP12 7767,10055 10056 AEXP13 10003 7432 AFAD01 7442 AFAD02 7454 AFAD03 7453, 7470, 7504 7455 AFAD04 7466 7457 AFAD05 7462, 7467 7470 AFAD06 7444, 7464 7511 AFAD07 7471 7515 AFAD08 7507, 7551 7517 AFAD09 7562 7530 AFAD10 7516, 7573 7536 AFAD11 7554 7545 AFAD12 10013,10016,10031,10045,10061,10066,10106,10111,10114,10163,10173,10175,10200,10205,10211,10237,11046 11327 7555 AFAD13 7520, 7526, 7563, 7564, 7600 7565 AFAD14 4366 7574 AFAD15 4471 10444 AFADCW 10110,10136,10330 0 AFFLBF 0,10556,10573,10603,10631,10640,10643,10657,10662,10705,10721,10731 4203 AFFLFN 10576,10604,10610,10632,10645,10664,10733,11331 100 AFFTHX 0, 6440, 6457, 7000, 7002, 7101, 7124, 7305 5110 AFIRF1 4620, 4627, 4646, 6327,10475,11220,11223 5111 AFIRF2 4645, 4651, 6331, 7430,10476,11222,11226 6607 AFIVE1 6410 6620 AFIVE2 6610 10071 AFIX02 10202,10214 10107 AFIX03 10073 10112 AFLOAT 7655 4205 AFOFWC 7475,11074 0 AFORTG 0, 6135, 6255, 6256 40 AFORTX 0, 6706, 7004, 7106 6552 AFOUR1 6412 6564 AFOUR2 6553 6571 AFOUR3 6575 6573 AFOUR4 6626 6575 AFOUR5 6566, 6621 6602 AFOUR6 6725 6603 AFOUR7 6605 6605 AFOUR8 6567, 6604, 6622, 6677 4223 AFPTCN 7433,10557 4 AFRSTX 0, 6515, 6571, 6713, 7015, 7112 11410 AGOOUT 11337,11344,11355,11371,11373,11375 5242 AHELLO 73666 11706 AHNDCD 2000 AIFSTT 0, 6366, 6403 2 AINTRL 0, 6377, 6424, 6427, 6452, 6462, 6534, 6552, 6607, 6646 10321 AJONT1 10113,10177,10210 10331 AJONT2 10321 4221 AL0STR 7632 4310 ALABEL 4051, 4060, 4066 10406 ALDQCW 7761,10242 4174 ALEVNO 6741, 6752, 6762, 6771 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 12 POST PROCESSOR ASSEMBLY DATA 4222 ALPLUS 7751,10373 4220 ALSTR0 7630, 7754,10376 4135 AL(16) 6723 4142 AL(1D) 6414, 6631, 7210, 7232, 7244, 7404, 7411, 7757,10020,10033,10101,10765 4213 AL(1)) 10022,10035 4143 AL(2D) 6504, 7763,10233,10251,10272,11323 4144 AL(3D) 4635, 4676, 6411,10762 4145 AL(4D) 10754 4146 AL(5D) 6406 4214 AL(5)) 6635 4215 AL(6)) 7266, 7277,10101,10327,10441,10447,11164,11202 4216 AL(A)) 7257,11170 4217 AL(C)) 7146, 7262 6177 AM1250 7543,10353 6204 AM1251 6164, 6234, 6241, 6254 6212 AM1252 6200, 6207, 6227, 6232, 6237 6213 AM1253 6177 6215 AM1254 6174, 6210, 6233 6217 AM1255 6226 6226 AM1256 6216, 6225 6230 AM1257 6224 6233 AM1258 6211 6235 AM1259 6276 6240 AM1260 6235 6351 AM2100 5717, 6364 6352 AM2101 5715 6367 AM2102 6345, 6365 6374 AM2103 5526 6401 AM2104 6400, 6517, 6573, 6704, 6710, 6722, 7321 6403 AM2105 6367, 6372, 6426 6420 AM2106 6376, 6423, 6451, 6461, 6533 6421 AM2107 6346 6424 AM2108 6421, 6422 7410 AM2190 6352 6726 AM2225 6441, 6460, 6516, 6572, 6625, 6703, 6707, 6714, 7306 6735 AM2226 6726 7301 AM2265 6527, 6603 7321 AM2266 7310 7322 AM2267 7301 7056 AM2700 6375, 6731, 7041 7057 AM2701 5527, 5535, 7070, 7074, 7075 7071 AM2702 7066 7076 AM2703 7056, 7060, 7067 6737 AM2750 6727, 7043 6755 AM2751 6754, 6764, 6765, 6772 6760 AM2752 6743, 6746 6766 AM2753 6763 6774 AM2754 6753, 6773 6775 AM2755 6737, 6756 7132 AM2800 7001 7134 AM2801 5742 7135 AM2802 5754 7136 AM2803 5766 7137 AM2804 6001 7140 AM2805 6015 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 13 POST PROCESSOR ASSEMBLY DATA 7141 AM2806 6027 7142 AM2825 7134 7161 AM2848 7132, 7200, 7215, 7237, 7254, 7300 7163 AM2849 7133 7165 AM2850 7135 7201 AM2875 7136 7216 AM2900 7137 7240 AM2925 7140 7255 AM2950 7141 10460 AM3000 7572, 7577 10506 AM3001 10461 10516 AM3002 10505 10524 AM3003 10522 10525 AM3004 10523 10533 AM3005 10531 10534 AM3006 10532 4160 AMALFN 6206, 7535, 7550 10264 AMAXAA 10277 10300 AMAXBB 10261 4157 AMDOFN 7522, 7525, 7561 4274 AMEMRY 5242 10243 AMINAA 10256 10257 AMINBB 10240 10147 AMOD01 10120 7340 AMZM01 6656, 7025, 7121 7344 AMZM02 7340 400 ANOAIL 0, 7517, 7571, 7574 1 ANOCHG 0, 6236, 6301, 6302, 7542,10352 6452 AONE01 6416 10333 AONLY2 10116,10164,10216 7362 AOPM01 6661, 7033, 7107 7366 AOPM02 7362 7625 AOPS01 7536,11101 7634 AOPS02 7636 AOPS03 7641 7641 AOPS04 7637 7643 AOPS05 7640 7646 AOPS06 7643 7647 AOPS07 372 AOPSUB 0,11706 7354 AOTM01 6477, 6541, 6544, 6557, 6562, 6616, 6664, 7016, 7113,11357 7360 AOTM02 7354 5706 APACK1 5735 5731 APACK2 5704 5732 APACK3 5675 5736 APACK4 5727 11315 APAT1A 7570 11317 APAT1B 7436,10562 11321 APAT1C 10146 11331 APAT1D 11137 372 APATCH 0,11507 6273 APC11A 6161 6333 APC13A 6330 APC13B 5511 6027 APEC01 6017 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 14 POST PROCESSOR ASSEMBLY DATA 6030 APEC02 5740 6035 APEC03 5364 6043 APEC04 6032, 6034 6044 APEC05 6122 6117 APEC06 6036 6242 APEC07 6115 6255 APEC08 6260, 6274 6261 APEC09 6257 6264 APEC10 6272 6272 APEC11 6143, 6144, 6153, 6247, 6267, 6271 6274 APEC12 6106 6301 APEC13 6243 6135 APEC14 6270 6154 APEC15 6151, 6152 6161 APEC16 6251 6114 APECA5 6077 4200 APMASK 11142 4307 APTMSK 5270, 5332, 5342 10311 AQUEST 10255,10276 4204 ARAVEL 5731, 6033, 6042, 6342 4445 ARDA01 7615,11315 4447 ARDA02 4453, 4456, 4463 4455 ARDA03 4451 4457 ARDA04 4454, 4506, 4507 4464 ARDA05 4460 4470 ARDA06 4467, 4472 4500 ARDA07 4474 4507 ARDA08 4510 ARDA09 4446, 7575 4511 ARDA10 4445 4727 ARDC01 11035,11115,11311 4730 ARDC02 4734, 4737, 4743 4736 ARDC03 4732 4740 ARDC04 4735, 4742, 4766, 4767 4744 ARDC05 4741 4750 ARDC06 4747, 4752 4760 ARDC07 4754 4770 ARDC08 4727 4343 ARDD01 7622,11314 4345 ARDD02 4351, 4354, 4360 4353 ARDD03 4347 4355 ARDD04 4352, 4404, 4436, 7442 4361 ARDD05 4356 4365 ARDD06 4364, 4367 4375 ARDD07 4371 4411 ARDD08 4417, 4430, 4435 4420 ARDD09 4413 4423 ARDD10 4427 4427 ARDD11 4410, 4426 4431 ARDD12 4425 4436 ARDD13 4405, 4416 4437 ARDD14 4344, 7566 4440 ARDD15 4343 4327 ARDTBA 4337, 5523, 5673, 5705, 5706, 5732, 5734, 5736, 6030, 6043, 6047, 6072, 6073, 6117, 6121, 6124, 7420 7501, 7502, 7513, 7611,10503,10510,10511,10513,10514,10515,11015,11022,11052,11057,11060,11121,11123 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 15 POST PROCESSOR ASSEMBLY DATA 11124,11125 4331 ARDTBB 4346, 4450, 4644, 4707, 4731,11221 4335 ARDTBC 4330, 4340 4341 ARDTBD 4331, 4335 26 AREC22 0,73666 174 ARSIND 0, 6734 6350 ARTURN 6425, 6434, 6453, 6502, 6545, 6563, 6577, 6606, 6617, 6645, 6665, 6720 5061 ASASCN 5416, 7412 6123 ASCHU1 5676, 5713, 6037, 6044, 6054, 6104 6133 ASCHU2 6123 4302 ASCIBI 10463,10466,11003,11006 10 ASCONX 0, 6624, 7013, 7110 4305 ASFFIF 4617, 4623, 7506,10460,10507,10525,10530 5100 ASFRFR 5067 ASFRFW 11043,11051,11071,11077 5057 ASFRTG 5407, 5411 5063 ASFXCN 5413, 7416 6627 ASIX01 6407 6636 ASIX02 6341, 6644 6642 ASIX03 6337 5116 ASKLST 4327, 4345, 4347, 4350, 4353, 4373, 4447, 4451, 4452, 4455, 4476, 4620, 4621, 4627, 4630, 4634, 4645 4646, 4651, 4653, 4670, 4671, 4675, 4710, 4711, 4714, 4716, 4730, 4732, 4733, 4736, 4756, 4772, 4773 4774, 4775, 4776, 4777, 5000, 5001, 5002, 5003, 5004, 5005, 5006, 5007, 5010, 5011, 5012, 5013, 5014 5015, 5016, 5017, 5020, 5021, 5022, 5023, 5024, 5025, 5026, 5027, 5030, 5031, 5032, 5033, 5034, 5035 5036, 5037, 5040, 5041, 5042, 5043, 5116, 7450, 7500,11027,11053,11054,11220,11222,11223,11226,11247 5044 ASKLTX 4327 4306 ASOVCT 10471,11013,11016 7607 ASRIR1 7447, 7477, 7511 7610 ASRIR2 7451, 7503, 7514, 7607 5512 ASTART 5262 5047 ASTFGO 5371, 5373 4304 ASTFIF 7425,10516,10521,10602 5053 ASTRAD 5400, 5402 5045 ASTRLA 5356, 5360 5051 ASTRLB 5352, 5363, 5701 5055 ASTRLC 5414 4303 ASWTCT 10545 4176 ASXLOC 4421, 4424 7324 AT0001 6536, 6550, 6554, 6564, 6650, 6701 7330 AT0002 7324 7332 AT0M01 6613, 7014, 7111 7336 AT0M02 7332 10360 ATARG1 10303,10334 2 ATBTAP 0, 4052, 4055, 4061, 4064, 4067, 4072, 4102, 5120, 5121, 5124, 5125, 5130, 5131, 5132, 5133, 5134 5135, 5136, 5137, 5140, 5147, 5160, 5161 7613 ATEST1 7456, 7460, 7545, 7645, 7747,10306,10316,10337 7620 ATEST2 7556 7616 ATEST3 7613 7623 ATEST4 7620 11307 ATEST5 11041 11312 ATEST7 11307 4513 ATESTA 4475, 7614,11050,11065 11304 ATESTC 4755,11310 4442 ATESTD 4372, 4415, 7621 0 ATFGBF 0,10605,10616,10621,10700,10703,10711,10720 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 16 POST PROCESSOR ASSEMBLY DATA 4202 ATFGFN 10607,10623,10713 4155 ATGBOX 6203, 6223 4137 ATGMSK 7540,10347 20 ATHRDX 0, 6702, 7006, 7114 6534 ATHRE1 6413 6546 ATHRE2 6535 4173 ATIFFN 6362, 6432, 6435, 6454, 6634, 6653, 7010, 7020, 7027, 7065, 7073, 7116, 7224, 7302, 7326, 7334, 7350 7351,11353 0 ATIFGO 0, 6353, 6357 5242 ATLABL 5116, 5117, 5120, 5121, 5122, 5123, 5124, 5125, 5126, 5127, 5130, 5131, 5132, 5133, 5134, 5135, 5136 5137, 5140, 5141, 5142, 5143, 5144, 5145, 5146, 5147, 5150, 5151, 5152, 5153, 5154, 5155, 5156, 5157 5160, 5161, 5162, 5163, 5164, 5165, 5166, 5167, 5242 7422 ATOPAT 11316 7346 ATOTM1 6465, 6507 7352 ATOTM2 7346 7674 ATRANS 0 ATRAST 0, 5545, 5550, 5554, 5565, 5573, 5606, 5617, 5623, 5634, 5642, 5655, 6742, 6744, 6747, 6760, 6766 7062, 7071, 7142, 7165, 7167, 7201, 7216, 7240, 7255, 7261 0 ATRLEV 0, 6371, 6420, 6666, 6670, 6671, 6672, 6673, 6675, 6740, 7103, 7311,11346,11361,11372,11377,11402 11407 ATRLVP 11341,11366,11370 11130 ATSXC1 10577,10636,10642,10661,10673 11133 ATSXC2 10535,11204 11134 ATSXC3 10536,10544,11154,11160,11203,11334 11155 ATSXC4 11143 11204 ATSXC5 11134,11140 11205 ATSXC6 11131 11206 ATSXC7 11130 0 ATSXCM 0,10571,11135,11141,11144,11147,11155,11165 6462 ATWO01 6415 6467 ATWO02 6056 6472 ATWO03 6060 6473 ATWO04 6501 6501 ATWO05 6470, 6500 6503 ATWO06 6463 6510 ATWO07 6551 6512 ATWO08 6506, 6547 6514 ATWO09 6524, 6532,11335 6515 ATWO10 11342,11345,11352 6521 ATWO11 6510,11362,11376 6527 ATWO12 11400,11403 6531 ATWO13 6511, 6530 6532 ATWO14 6523 11344 ATWO16 11351 11335 ATWO1A 6512 11343 ATWO1B 6521 11353 ATWO1D 11350 11363 ATWO1E 6520,11336,11360,11374 11377 ATWO1F 6531 11376 ATWO1G 11365 11404 ATWO1H 11367 0 ATYPE1 0, 5607, 5747, 5761, 5774, 6010, 6022 0 ATYPE2 0, 5574, 5746 0 ATYPE3 0, 5555, 5760 0 ATYPE4 0, 5656, 5773 0 ATYPE5 0, 5624, 6007 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 17 POST PROCESSOR ASSEMBLY DATA 0 ATYPE6 0, 5643, 6021 0 AUCHTG 0, 6140, 6145, 6156, 6264 3 AVFLTP 0, 4114, 4117, 5144, 5145, 5146, 5162, 5163 4273 AWARCN 4702, 4703,11010,11012,11112 4301 AWARCT 4641, 4643,10470,10472,11017,11260,11262 10402 AWHER1 10370,10374,10405 10404 AWHER2 10377 10370 AWHERE 10062,10070,10112 4670 AWTC01 4712, 4715,11026 4673 AWTC02 4667 4714 AWTC04 4710 4716 AWTC05 4713 4724 AWTC06 4665 4725 AWTC07 4664 4722 AWTCP5 5442 4610 AWTV01 4607, 7423 4613 AWTV02 4615 4625 AWTV03 4614 4627 AWTV04 4647, 4652 4632 AWTV05 4626 4642 AWTV06 4640 4651 AWTV07 4645 4653 AWTV08 4650 4661 AWTV09 4612 4662 AWTV10 4611 4657 AWTVP8 5507 10422 AXCACW 10043,10404 4276 AXDUM7 5260 4275 AXIOUP 5252 10174 AXMAX0 7662, 7665 10201 AXMAX1 7664 10203 AXMIN0 7666, 7671 10212 AXMIN1 7670 6427 AZERO1 6417 6435 AZERO2 6430 6446 AZERO3 6443 4147 A(17D) 10012 4150 A(18D) 7775,10105,10324 4136 A(370) 10704 4140 A(4A4D 7266, 7277,11164,11202 4141 A(7A1D 10776 4252 A(ALS) 10011,10104 4260 A(ANA) 10100 4212 A(AST) 6444, 7214, 7236, 7253, 7315,10233,10251,10272,10754,10762,11323 4224 A(CLA) 10245,10274,10432 4262 A(CLM) 10151 4225 A(CLS) 10122 4263 A(DVP) 10161 4261 A(FAD) 10144,10446 4264 A(FDP) 10132 4255 A(FMP) 10047,10057,10141 4266 A(FSB) 10223 4242 A(HPR) 10775 4272 A(IOT) 10772 4244 A(LCA) 10756 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 18 POST PROCESSOR ASSEMBLY DATA 4247 A(LDQ) 10154,10170,10253,10266,10410 4253 A(LLS) 10454 4201 A(LOC) 10775,11001 4251 A(LRS) 7774,10075,10323 4235 A(LXD) 7276,11152,11201 4237 A(LXP) 7157, 7273,11176 4246 A(MON) 10767 4250 A(MPY) 7771,10006 4267 A(ORA) 10326 4240 A(PXD) 7173,10235 4241 A(RCD) 10750 4243 A(RLA) 10753 4256 A(SSP) 10064,11325 4226 A(STO) 7176,10025 4254 A(STQ) 10040 4270 A(SUB) 10221 4236 A(SXD) 4412, 7153, 7227, 7265,11163 4245 A(TAF) 10761 4233 A(TIX) 7235 4265 A(TLQ) 10250,10271 11330 A(TNZ) 11322 4230 A(TPL) 7364,10232 4227 A(TRA) 6432, 6447, 7315, 7356,10745,10764,11000 4234 A(TSX) 7270,11173 4232 A(TXI) 7205, 7247 4231 A(TZE) 7342 4257 A(UFA) 10440 4271 A(XCA) 10416,10424 73600 BOTIOP 0 3734 BOTTOM 3734 3732 DATEBX 2 FINTAP 0 3730 FLAGBX 134 .CHEXI 135 .MODSW 1 LIBTAP 3731 LINECT 7 MBNTAP 10 MCHTAP 5 MINTAP 6 MLSTAP 3 SINTAP 0 11 SNPTAP 122 SYSACC 114 SYSCEM 155 SYSCK1 156 SYSCK2 120 SYSCOR 144 SYSCRD 102 SYSCUR 102 124 SYSCYD 101 SYSDAT 115 SYSDMP 77777 SYSEND 132 SYSGET 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 19 POST PROCESSOR ASSEMBLY DATA 117 SYSIDR 151 SYSIN1 152 SYSIN2 116 SYSIOX 133 SYSJOB 104 SYSKEY 140 SYSLB1 141 SYSLB2 142 SYSLB3 143 SYSLB4 121 SYSLDR 3720 SYSORG 147 SYSOU1 150 SYSOU2 146 SYSPCH 123 SYSPID 106 SYSPOS 153 SYSPP1 154 SYSPP2 145 SYSPRT 103 SYSRET 113 SYSRPT 126 SYSSLD 105 SYSSWS 1 SYSTAP 127 SYSTCH 100 SYSTRA 131 SYSTWT 111 SYSUAV 110 SYSUBC 112 SYSUCW 107 SYSUNI 157 SYSUT1 160 SYSUT2 161 SYSUT3 162 SYSUT4 4 TINTAP 0 77677 TOPMEM 0, 3734, 4274 702 (ACTIV 703 (ACTVX 720 (BCD5R 721 (BCD5X 10000 (CHKU) 741 (CHPSW 724 (CHXAC 750 (CHXSP 717 (CKWAT 746 (COMMD 736 (COMMM 722 (CVPRT 73662 (DATE) 716 (DECVA 715 (DECVD 73645 (DGLD) 73603 (DIAG) 4047, 4056, 4073, 4074, 4103, 4104, 4105, 4106, 4107, 4110, 4111, 4126, 4127,11405 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 20 POST PROCESSOR ASSEMBLY DATA 710 (ENBSW 73665 (ENDS) 732 (ETTXI 743 (FDAMT 73660 (FGBX) 747 (IBCDZ 740 (IOXSI 73667 (LBLD) 73652 (LIBT) 73661 (LNCT) 73600 (LOAD) 11126 73666 (LODR) 73666 737 (LTPOS 73644 (MECL) 73664 (MSLN) 704 (NDATA 705 (NDSLX 712 (PAUSE 711 (PAWSX 3733 (PCBK) 73651 (PGCT) 73614 (PNCH) 73611 (PRNT) 706 (PROUT 707 (PUNCH 40014 (RBEC) 5003 40004 (RBEP) 4777, 5032, 5033, 5034, 5035, 5042, 5043,10477 40010 (RBNC) 40000 (RBNP) 4773, 4775, 5001, 5005, 5026 727 (RCHXI 726 (RCTXI 40016 (RDEC) 40006 (RDEP) 40012 (RDNC) 40002 (RDNP) 73622 (REST) 73672 (SCHU) 4363, 4466, 4746, 6130,11061,11236 744 (SDCXI 73643 (SECL) 20010 (SKBC) 20000 (SKBP) 4772, 4774, 4776, 5000, 5002, 5004, 5006, 5013, 5014, 5017, 5021, 5022, 5023, 5024, 5027, 5031 20012 (SKDC) 20002 (SKDP) 1000 (SNAP) 73663 (SNCT) 73617 (STAT) 745 (STCXI 73626 (STDN) 723 (STOPD 713 (STOPX 10003 (SUAV) 10002 (SUNV) 714 (SYMUN 73606 (TAPE) 4050, 4053, 4057, 4062, 4065, 4070, 4075, 4100, 4112, 4115, 4120, 4123, 4332 730 (TCOXI 32K 709/7090 FORTRAN SECTION THREE 2/07/05 PAGE 21 POST PROCESSOR ASSEMBLY DATA 733 (TEFXI 4000 (TPER) 4051, 4054, 4060, 4063, 4066, 4071, 4076, 4101, 4113, 4116, 4121, 4124 735 (TRAPS 734 (TRAPX 731 (TRCXI 742 (TRPSW 725 (URRXI 40011 (WBNC) 40001 (WBNP) 5007, 5011, 5015, 5036, 5037, 5040, 5041 40013 (WDNC) 40003 (WDNP) 40015 (WEFC) 40005 (WEFP) 5010, 5012, 5016, 5020, 5025, 5030 40031 (WROW) NO ERROR IN ABOVE ASSEMBLY. * 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE F4A00010 * FAP F4A00030 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 1 ABS F4A00060 SST FORTRAN $F4A00061 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 2 SECTION 4, PART ONE HEAD 0 F4A00090 F4A00100 DEFINITIONS REQUIRED THROUGHOUT SECTION 4 F4A00110 00000 ...... SYN 0 THE APPEARANCE OF THIS SYMBOL IN F4A00130 THE LISTING INDICATES THAT ITS F4A00140 VALUE IS SET BY THE PROGRAM. F4A00150 00001 IR1 SYN 1 INDEX REGISTER 1 F4A00160 00002 IR2 SYN 2 INDEX REGISTER 2 F4A00170 00004 IR4 SYN 4 INDEX REGISTER 4 F4A00180 00001 FTAPE1 SYN SYSTAP F4A00190 00002 FTAPE2 SYN FINTAP F4A00200 00003 FTAPE3 SYN SINTAP F4A00210 00004 FTAPE4 SYN TINTAP F4A00220 00004 CTAPE SYN FTAPE4 F4A00230 F4A00240 F4A00250 SECTION 4 - PART 1 OF 3 F4A00260 F4A00270 00102 ORG SYSCUR $F4A00280 BINARY CARD NO. 9F230000 00102 112602030000 BCI 1,9F2300 $F4A00290 73666 ORG (LODR) $F4A00300 BINARY CARD NO. 9F230001 73666 1 00346 0 04036 TXI PASS1,,230 F4A00320 F4A00340 DEFINITIONS REQUIRED BY PART 1 F4A00350 F4A00360 CONSTANTS AND VARIABLES FIRST APPEARING IN PART 1. F4A00370 03734 ORG BOTTOM F4A00380 BINARY CARD NO. 9F230002 03734 +000000000000 ZERO DEC 0 F4A00390 03735 +000000000001 ONE DEC 1 F4A00400 03736 0 00000 0 33361 DOTOP PZE DOTAG F4A00410 03737 0 00001 0 00000 D1 PZE ,,1 F4A00420 03740 0 00000 0 44250 CTSPC1 PZE CTSP1 F4A00430 03741 0 00000 0 00000 RLNGTH PZE ...... F4A00440 03742 -1 00000 0 00000 ASPRS FVE 0 ASSIGN FLAG. F4A00450 03743 -370000000000 1STLET OCT 770000000000 FIRST LETTER MASK F4A00460 03744 -230000000000 T OCT 630000000000 T F4A00470 03745 +170000000000 ASTRSK OCT 170000000000 ASTERISK F4A00480 03746 +034743000000 TPL OCT 34743000000 TPL F4A00490 03747 -300000000000 PMASK OCT 700000000000 PREFACE MASK F4A00500 03750 +077777000000 DMASK OCT 77777000000 DECREMENT MASK F4A00510 03751 +000000700000 TMASK OCT 700000 TAG MASK F4A00520 03752 +000000777777 TAMASK OCT 777777 TAG AND ADDRESS MASK F4A00530 03753 +377777777777 POSMAX OCT 377777777777 LARGEST POSITIVE INTEGER MACHINE CAN F4A00540 HOLD F4A00550 03754 0 00000 0 54270 ANTEBB PZE BBLIST+1 ADDRESS OF LOWEST ENTRY IN BBLIST + 1 F4A00560 03755 0 00000 0 54267 1ST PZE BBLIST ADDRESS OF LOWEST ENTRY IN BBLIST F4A00570 03756 0 00000 0 54266 NTH PZE BBLIST-1 ADDRESS OF HIGHEST ENTRY IN BBLIST F4A00580 03757 0 00000 0 00000 ARG ...... ARGUMENT CELL FOR MIH, FINDBB, SERCHN, F4A00590 AND ENTER SUBROUTINES F4A00600 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 3 SECTION 4, PART ONE 03760 0 00000 0 00000 FLOOR ...... LOWER LIMIT OF SEARCH IN MIH AND F4A00610 FINDBB SUBROUTINES F4A00620 03761 0 00000 0 00000 ROOF ...... UPPER LIMIT OF SEARCH IN MIH AND F4A00630 FINDBB SUBROUTINES F4A00640 BINARY CARD NO. 9F230003 03762 0 00000 0 00000 TRYME ...... ADDRESS OF TABLE MEMBER TO BE COMPARED F4A00650 WITH ARGUMENT IN MIH AND FINDBB F4A00660 03763 0 00000 0 00000 ILNGTH ...... NUMBER OF WORDS IN CIT IS STORED HERE. F4A00670 03764 0 00000 0 00000 PAS2RD ...... F4A00680 03765 0 00000 0 00000 LBSIZE ...... F4A00690 03766 0 00000 0 00000 OPCODE ...... F4A00700 03767 0 00000 0 00000 DOBOX ...... DO COUNTER F4A00710 03770 0 00000 0 00000 FRTBOX ...... FRET COUNTER F4A00720 03771 0 00000 0 00000 ERASE1 ...... ERASABLE STORAGE F4A00730 03772 1 00000 0 73603 ERRM4 TXI (DIAG),,0 MACHINE ERROR F4A00740 03773 233163620003 CTLBL BCI 1,CITS03 F4A00750 03774 224331626360 BBLBL BCI 1,BLIST F4A00760 03775 632127606060 TGLBL BCI 1,TAG F4A00770 03776 633126274660 TFGLBL BCI 1,TIFGO F4A00780 03777 635121246060 TRDLBL BCI 1,TRAD F4A00790 04000 265125636060 FRTLBL BCI 1,FRET F4A00800 04001 244663212722 DTGLBL BCI 1,DOTAGB F4A00810 04002 254626606060 EOFLB1 BCI 1,EOF F4A00820 04003 216223464503 AC3LBL BCI 1,ASCON3 F4A00830 04004 3 00310 0 05335 CTRD1 IORT CTBOT,,200 IO COMMAND FOR 1 CIT RECORD. F4A00840 04005 0 00000 0 00000 SKNR PZE F4A00850 04006 0 00000 0 00002 SK2R PZE 2 F4A00860 04007 0 00000 0 00004 SK4R PZE 4 F4A00870 BINARY CARD NO. 9F230004 04010 0 00001 0 00000 SKFL PZE ,,1 F4A00880 04011 0 77777 0 00000 RWND PZE ,,-1 F4A00890 04012 -0 00002 0 00000 BSP2F MZE ,,2 F4A00900 03760 ERASE2 SYN FLOOR ERASABLE STORAGE F4A00910 03761 ERASE3 SYN ROOF ERASABLE STORAGE F4A00920 03766 DOSUB SYN OPCODE F4A00930 04013 +035121000000 TRA OCT 35121000000 TRA F4A00940 F4A00950 CONSTANTS USED IN PART 1 ONLY. F4A00960 04014 +001146000000 OCT 1146000000 TSX-TRA F4A00970 04015 +000454000000 OCT 454000000 TXL-TSX F4A00980 04016 +000162000000 TRACON OCT 162000000 TZE-TXL F4A00990 04017 +042363000000 OCT 42363000000 DCT F4A01000 04020 +003642000000 OCT 3642000000 MSE-DCT F4A01010 04021 +030000000000 TSTCON OCT 30000000000 PSE-MSE F4A01020 04022 +000000000005 FIVE DEC 5 F4A01030 04023 0 00000 0 04273 EXIT1 PZE ASSIGN EXIT ADDRESS FROM PASS1 F4A01040 04024 0 00000 0 33361 DOBASE PZE DOTAG THIS CONSTANT=THE BASE ADDRESS OF F4A01050 DOTAG TABLE. F4A01060 04025 +000070000000 PSEMSK OCT 70000000 F4A01070 04026 +000060000000 PSEMRK OCT 60000000 F4A01080 04027 -377777777777 NEGMAX OCT 777777777777 LARGEST NEGATIVE INTEGER MACHINE CAN F4A01090 HOLD F4A01100 04030 0 00000 0 51646 LIMIT PZE BBLIST-1484*M/N+1 F4A01110 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 4 SECTION 4, PART ONE MAY BE STORED. F4A01120 F4A01130 F4A01140 04031 3 04066 0 60073 TFGRD IORT TIFGO,,2400*M/N+2 IO COMMAND FOR TIFGO. F4A01150 04032 3 01555 0 71264 TRDRD IORT TRAD-1000*M/N-2,,1000*M/N+2 IO COMMAND FOR TRAD. F4A01160 04033 3 05103 0 64161 FRTRD IORT FRET-2,,3000*M/N+2 IO COMMAND FOR FRET. F4A01170 04034 3 03047 0 33361 DORD IORT DOTAG,,200*M/N*9 IO COMMAND FOR DOTAG. F4A01180 04035 1 77777 0 73603 ERR42 TXI (DIAG),,-1 BBLIST OVERFLOW. F4A01190 PASS1 / CALLS ON RDCIT1 AND MIH F4A01200 THIS ROUTINE SCANS THE COMPILED INSTRUCTIONS AND F4A01210 DIVIDES THE OBJECT PROGRAM INTO BASIC BLOCKS. A BASIC BLOCKF4A01220 IS A STRETCH OF PROGRAM WITH ONLY ONE ENTRY POINT AND ONE F4A01230 EXIT POINT. THE OUTPUT OF THIS ROUTINE IS BBLIST, A TABLE F4A01240 LISTING THE BEGINNING OF EACH BASIC BLOCK (THE LOCATION F4A01250 SYMBOL OF THE 1ST INSTRUCTION OF EACH BASIC BLOCK). A TABLEF4A01260 CALLED DOLIST IS ALSO COMPILED OF THE BEGINNING AND END OF F4A01270 EVERY LOOP IN THE OBJECT PROGRAM. F4A01280 PASS1 ALSO STARTS READING TIFGO, TRAD AND FRET FROM F4A01290 TAPE FOR LATER PROCESSING. F4A01300 BINARY CARD NO. 9F230005 04036 -0754 00 0 00000 PASS1 ZAC F4A01310 04037 0760 00 0 00012 DCT BE SURE DIV-CHECK IND IS OFF. F4A01320 04040 0761 00 0 00000 NOP F4A01330 04041 -0634 00 0 73040 SXD CITCNT,0 CLEAR DECREMENT OF CIT COUNT. F4A01340 04042 0560 00 0 73040 LDQ CITCNT DIVIDE NO. OF WORDS IN CIT BY F4A01350 04043 -0600 00 0 03763 STQ ILNGTH LENGTH OF RESERVED AREA TO F4A01360 04044 0221 00 0 03740 DVP CTSPC1 FIND TOP OF LAST RECORD READ. F4A01370 04045 0760 00 0 00012 DCT F4A01380 04046 0074 00 4 03772 TSX ERRM4,IR4 DIVIDE ERROR GO TO DIAGNOSTIC. F4A01390 LENGTH OF CITS PLACED IN CITCNT F4A01400 BY SEC 3 , LENGTH OF CIT AREA DEFINED F4A01410 BY ASSEMBLY. F4A01420 04047 0400 00 0 04004 ADD CTRD1 ADD BOTTOM OF AREA TO GET LAST LOADED F4A01430 04050 0621 00 0 04674 STA LAST1 ADDRESS+1 AND SET FOR EXIT ROUTINE. F4A01440 04051 0074 00 2 04705 TSX RDTBLS,IR2 START READING TIFGO. F4A01450 04052 0074 00 4 73606 TSX (TAPE),IR4 READ FIRST RECORD OF CIT. F4A01460 04053 0 40014 0 04004 CTRD1,,(RBEC) F4A01470 04054 0 00004 0 03773 CTLBL,,CTAPE F4A01480 04055 0534 00 1 73676 LXA (SCHU)+CTAPE,IR1 F4A01490 04056 0534 00 2 04004 LXA CTRD1,IR2 F4A01500 04057 0634 00 1 04004 SXA CTRD1,IR1 SET LOAD ADDRESS FOR NEXT RECORD. F4A01510 04060 -0634 00 2 04061 SXD *+1,IR2 F4A01520 04061 2 00000 1 04062 TIX *+1,IR1,...... COMPUTE RECORD LENGTH. F4A01530 04062 0634 00 1 03741 SXA RLNGTH,IR1 F4A01540 04063 -0634 00 1 04634 SXD IOAJ1,IR1 SET FOR ADJUSTING IO COMMAND F4A01550 BINARY CARD NO. 9F230006 04064 -0634 00 1 04652 SXD PRAJ1,IR1 AND PROCESSING DECREMENTS. F4A01560 04065 0074 00 2 04705 TSX RDTBLS,IR2 START READING TRAD. F4A01570 04066 0074 00 4 73606 TSX (TAPE),IR4 START READING SECOND RECORD OF CIT. F4A01580 04067 0 40004 0 04004 CTRD1,,(RBEP) F4A01590 04070 0 00004 0 03773 CTLBL,,CTAPE F4A01600 04071 -0774 00 1 05335 AXC CTBOT,IR1 INITIALIZE IR1 FOR PROCESSING 1RST CIT F4A01610 04072 0074 00 4 04627 TSX RDCIT1,IR4 GO TO START READING 3RD CIT. F4A01620 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 5 SECTION 4, PART ONE 04073 0500 00 1 00000 CLA CITLOC,IR1 PUT LOCATION OF 1ST INSTRUCTION IN F4A01630 04074 0601 00 0 54267 STO BBLIST BBLIST. F4A01640 04075 0500 00 0 03753 CLA POSMAX INSERT ENDMARK IN BBLIST. F4A01650 04076 0601 00 0 54266 STO BBLIST-1 F4A01660 04077 3 26173 1 04101 TEST1 TXH *+2,IR1,-CTTP1 F4A01670 04100 1 44250 1 04623 TXI 1TSX,IR1,CTSP1 YES, SET TO START PROCESSING AT BOTTOM F4A01680 04101 -3 00000 1 04623 BEGN1 TXL 1TSX,IR1,...... HAS THIS RECORD BEEN PROCESSED. F4A01690 04102 -0520 00 1 00000 NZT CITLOC,IR1 DOES THIS INST. HAVE A FORMULA NO. F4A01700 04103 1 77774 1 04077 TXI TEST1,IR1,-4 NO - IGNORE IT, LOOK AT NEXT INST. F4A01710 04104 -0500 00 1 00001 CAL CITOP,IR1 YES - IS THIS INST. A TRANSFER (IS 1ST F4A01720 04105 0622 00 0 03766 STD OPCODE LETTER OF OP CODE A T) F4A01730 04106 -0320 00 0 03743 ANA 1STLET F4A01740 04107 0322 00 0 03744 ERA T F4A01750 04110 0100 00 0 04126 TZE TRANS YES, THIS IS A TRANSFER F4A01760 04111 0774 00 4 00003 AXT 3,IR4 NO - IS IT A TEST (SKIP-TYPE) INST. F4A01770 BINARY CARD NO. 9F230007 04112 0500 00 0 03766 CLA OPCODE F4A01780 04113 0402 00 4 04022 TSTSUB SUB TSTCON+1,IR4 F4A01790 04114 0100 60 4 04122 TZE* TSTVEC+1,IR4 YES, THIS IS A TEST INST. F4A01800 04115 2 00001 4 04113 TIX TSTSUB,IR4,1 F4A01810 04116 1 77774 1 04077 OTHER TXI TEST1,IR1,-4 THIS IS NEITHER A TRANSFER, NOR A TEST F4A01820 INSTRUCTION, SO IGNORE IT AND LOOK F4A01830 AT NEXT INSTRUCTION. F4A01840 04117 0020 00 0 04227 TRA TSTCAS DCT F4A01850 04120 0020 00 0 04227 TRA TSTCAS MSE F4A01860 04121 0020 00 0 04223 TSTVEC TRA PSECAS PSE F4A01870 04122 0020 00 0 04153 TRA TRACAS TRA F4A01880 04123 0020 00 0 04116 TRA OTHER TSX F4A01890 04124 0020 00 0 04201 TRA DOCASE TXL F4A01900 04125 0020 00 0 04214 TRAVEC TRA TZECAS TZE F4A01910 04126 0774 00 4 00004 TRANS AXT 4,IR4 WHAT KIND OF TRANSFER IS IT F4A01920 04127 0500 00 0 03766 CLA OPCODE F4A01930 04130 0402 00 4 04017 TRASUB SUB TRACON+1,IR4 F4A01940 04131 0100 60 4 04126 TZE* TRAVEC+1,IR4 F4A01950 04132 2 00001 4 04130 TIX TRASUB,IR4,1 F4A01960 04133 0500 00 1 00002 CLA CITAD,IR1 IS IT A TXI OR A TIX TO THE NEXT INST. F4A01970 04134 0402 00 0 03745 SUB ASTRSK F4A01980 04135 0100 00 0 04116 TZE OTHER YES, IGNORE IT. F4A01990 04136 0500 00 1 00000 CLA CITLOC,IR1 F4A02000 04137 0402 00 1 00002 SUB CITAD,IR1 F4A02010 BINARY CARD NO. 9F230008 04140 0100 00 0 04116 TZE OTHER YES, IGNORE IT. F4A02020 04141 0500 00 1 00002 2WAYTR CLA CITAD,IR1 THIS MUST BE A CONDITIONAL TRANSFER. F4A02030 04142 0074 00 4 04731 TSX MIH,IR4 PUT ITS ADDRESS IN BBLIST. F4A02040 04143 -0500 00 1 00005 CAL CITOP+4,IR1 IS IT FOLLOWED BY TRA F4A02050 04144 -0320 00 0 03750 ANA DMASK F4A02060 04145 0402 00 0 04013 SUB TRA F4A02070 04146 0100 00 0 04150 TZE *+2 F4A02080 04147 0074 00 4 03772 TSX ERRM4,IR4 COND.TRANS. NOT FOLLOWED BY A TRANS. F4A02090 04150 0500 00 1 00006 CLA CITAD+4,IR1 PUT ADDRESS OF TRA IN BBLIST. F4A02100 04151 0074 00 4 04731 TSX MIH,IR4 F4A02110 04152 1 77770 1 04077 TXI TEST1,IR1,-8 GET SET TO LOOK AT INST. AFTER THE TRA F4A02120 04153 0500 00 1 00003 TRACAS CLA CITTAG,IR1 IS THIS TRA TAGGED F4A02130 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 6 SECTION 4, PART ONE 04154 -0320 00 0 03752 ANA TAMASK F4A02140 04155 -0100 00 0 04164 TNZ GOTOV YES, THIS IS A GO TO VECTOR CASE F4A02150 04156 -0500 00 1 00002 CAL CITAD,IR1 IS THIS TRA A GO TO N F4A02160 04157 -0320 00 0 03747 ANA PMASK F4A02170 04160 -0100 00 0 04116 TNZ OTHER YES, IGNORE FOR NOW F4A02180 04161 0500 00 1 00002 CLA CITAD,IR1 THIS MUST BE A STRAIGHT TRA. PUT F4A02190 04162 0074 00 4 04731 TSX MIH,IR4 ITS ADDRESS IN BBLIST. F4A02200 04163 1 77774 1 04077 TXI TEST1,IR1,-4 GET SET TO LOOK AT NEXT INSTRUCTION F4A02210 04164 0500 00 1 00003 GOTOV CLA CITAAA,IR1 PUT NO. OF BRANCHES INTO IR2. F4A02220 04165 -0734 00 2 00000 PDX 0,IR2 F4A02230 BINARY CARD NO. 9F230009 04166 2 00001 2 04167 TIX NXTTRA,IR2,1 F4A02240 04167 1 77774 1 04170 NXTTRA TXI TEST2,IR1,-4 GET SET TO PICK UP NEXT TRA F4A02250 04170 3 26173 1 04172 TEST2 TXH *+2,IR1,-CTTP1 F4A02260 04171 1 44250 1 04625 TXI 2TSX,IR1,CTSP1 YES, SET TO START PROCESSING AT BOTTOM F4A02270 04172 -3 00000 1 04625 CNTU1 TXL 2TSX,IR1,...... HAS THIS RECORD BEEN PROCESSED. F4A02280 04173 0500 00 1 00002 CLA CITAD,IR1 PUT TRA ADDRESS IN BBLIST F4A02290 04174 0634 00 2 04176 SXA *+2,IR2 F4A02300 04175 0074 00 4 04731 TSX MIH,IR4 F4A02310 04176 0774 00 2 00000 AXT ......,IR2 F4A02320 04177 2 00001 2 04167 TIX NXTTRA,IR2,1 F4A02330 04200 1 77774 1 04077 TXI TEST1,IR1,-4 GET SET TO LOOK AT NEXT INSTRUCTION F4A02340 04201 -0534 00 4 03767 DOCASE LXD DOBOX,IR4 SET DOLIST INDEX REGISTER FOR NEXT F4A02350 04202 1 00002 4 04203 TXI *+1,IR4,2 ENTRY. F4A02360 04203 0500 00 1 00000 CLA CITLOC,IR1 PUT LOCATION AND ADDRESS OF TXL IN F4A02370 04204 0601 00 4 56324 STO DOLIST+1,IR4 DOLIST (BEGINNING AND END OF DO). F4A02380 04205 0500 00 1 00002 CLA CITAD,IR1 F4A02390 04206 0601 00 4 56323 STO DOLIST,IR4 F4A02400 04207 -0634 00 4 03767 SXD DOBOX,IR4 SAVE CURRENT DOLIST INDEX F4A02410 04210 0074 00 4 04731 TSX MIH,IR4 PUT ADDRESS OF TXL AND LOCATION OF F4A02420 04211 0500 00 1 00004 CLA CITLOC+4,IR1 NEXT INSTRUCTION IN BBLIST. F4A02430 04212 0074 00 4 04731 TSX MIH,IR4 F4A02440 04213 1 77774 1 04077 TXI TEST1,IR1,-4 GET SET TO LOOK AT NEXT INSTRUCTION F4A02450 BINARY CARD NO. 9F230010 04214 -0500 00 1 00005 TZECAS CAL CITOP+4,IR1 THIS IS A TZE. IS IT FOLLOWED BY A F4A02460 04215 -0320 00 0 03750 ANA DMASK TPL. F4A02470 04216 0402 00 0 03746 SUB TPL F4A02480 04217 -0100 00 0 04141 TNZ 2WAYTR F4A02490 04220 0500 00 1 00002 CLA CITAD,IR1 PUT ADDRESS OF TZE IN BBLIST. F4A02500 04221 0074 00 4 04731 TSX MIH,IR4 F4A02510 04222 1 77774 1 04141 TXI 2WAYTR,IR1,-4 F4A02520 04223 -0500 00 1 00003 PSECAS CAL CITAAA,IR1 IS THIS IS A SENSE SWITCH TEST F4A02530 04224 -0320 00 0 04025 ANA PSEMSK F4A02540 04225 0402 00 0 04026 SUB PSEMRK F4A02550 04226 -0100 00 0 04116 TNZ OTHER NO, IGNORE F4A02560 04227 -0500 00 1 00005 TSTCAS CAL CITOP+4,IR1 IS THIS TEST FOLLOWED BY A TRANSFER F4A02570 04230 -0320 00 0 03750 ANA DMASK F4A02580 04231 0402 00 0 04013 SUB TRA F4A02590 04232 -0100 00 0 04116 TNZ OTHER NO, IGNORE F4A02600 04233 0500 00 1 00006 CLA CITAD+4,IR1 YES, PUT ADDRESS OF TRA IN BBLIST F4A02610 04234 0074 00 4 04731 TSX MIH,IR4 F4A02620 04235 -0500 00 1 00011 CAL CITOP+8,IR1 IS THAT TRA FOLLOWED BY A TRA F4A02630 04236 -0320 00 0 03750 ANA DMASK F4A02640 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 7 SECTION 4, PART ONE 04237 0402 00 0 04013 SUB TRA F4A02650 04240 -0100 00 0 04244 TNZ NOTRA NO F4A02660 04241 0500 00 1 00012 CLA CITAD+8,IR1 YES, PUT ADDRESS OF 2ND TRA IN BBLIST F4A02670 BINARY CARD NO. 9F230011 04242 0074 00 4 04731 TSX MIH,IR4 F4A02680 04243 1 77764 1 04077 TXI TEST1,IR1,-12 GET SET TO LOOK AT INST. AFTER THE F4A02690 2ND TRA F4A02700 04244 0500 00 1 00010 NOTRA CLA CITLOC+8,IR1 PUT LOCATION OF INSTRUCTION IN BBLIST. F4A02710 04245 0074 00 4 04731 TSX MIH,IR4 F4A02720 04246 1 77770 1 04077 TXI TEST1,IR1,-8 GET SET TO LOOK AT INST. AFTER THE TRA F4A02730 F4A02740 ASSIGN / CALLS ON MIH F4A02750 FIRST THIS ROUTINE INSURES THAT TIFGO, TRAD AND FRET F4A02760 HAVE BEEN READ CORRECTLY FROM TAPE. THEN IT STARTS READING F4A02770 DOTAG FOR LATER PROCESSING. F4A02780 THEN IT SCANS TIFGO, MOVING THOSE TIFGO ENTRIES WHICH F4A02790 DEAL WITH ASSIGN STATEMENTS AND ASSIGNED GO TO STATEMENTS F4A02800 TO A TABLE CALLED TIFRD. THE TRAD ENTRIES THAT ARE ASSOCI- F4A02810 ATED WITH EACH ASSIGNED GO TO ARE MOVED TO TIFRD FOLLOWING F4A02820 THE APPROPRIATE TIFGO ENTRY AND THESE TRAD ENTRIES ARE F4A02830 FLAGGED NEGATIVE FOR EASY SEARCHING LATER. AT THE SAME TIMEF4A02840 THESE TRAD ENTRIES ARE PUT IN BBLIST USING SUBROUTINE MIH. F4A02850 WHEN THIS IS DONE TIFGO AND TRAD ARE NO LONGER OF F4A02860 INTEREST TO SECTION 4, THE ASSIGN INFORMATION NOW HAVING F4A02870 BEEN ISOLATED AND PLACED IN TIFRD. F4A02880 04247 0500 00 1 60075 GOTON CLA TIFGO+2,IR1 MOVE THIS TIFGO ENTRY TO TIFRD. F4A02890 04250 0601 00 2 56323 STO TIFRD,IR2 F4A02900 04251 0500 00 1 60076 CLA TIFGO+3,IR1 F4A02910 04252 0601 00 2 56324 STO TIFRD+1,IR2 F4A02920 04253 1 77776 2 04254 TXI *+1,IR2,-2 SET INDEX FOR NEXT STORE IN TIFRD. F4A02930 04254 -0734 00 4 00000 PDX 0,IR4 INITIALIZE TRAD INDEX REGISTER. F4A02940 04255 0767 00 0 00022 ALS 18 SET TEST DEC WITH TRAD START MINUS NO. F4A02950 04256 0622 00 0 04271 STD TRATST OF TRAD ENTRIES FOR THIS GO TO N. F4A02960 04257 0502 00 4 73041 DOTRAD CLS TRAD,IR4 MOVE TRAD ENTRIES INTO TIFRD. F4A02970 04260 0767 00 0 00022 ALS 18 F4A02980 04261 0601 00 2 56323 STO TIFRD,IR2 F4A02990 04262 0634 00 2 04266 SXA *+4,IR2 SAVE INDEX REGISTERS USED BY MIH. F4A03000 04263 0634 00 4 04265 SXA *+2,IR4 F4A03010 04264 0074 00 4 04731 TSX MIH,IR4 PUT ALL TRAD ENTRIES IN BBLIST. F4A03020 04265 0774 00 4 00000 AXT ......,IR4 RESTORE INDEX REGISTERS. F4A03030 04266 0774 00 2 00000 AXT ......,IR2 F4A03040 04267 1 77777 2 04270 TXI *+1,IR2,-1 SET INDEX FOR NEXT STORE IN TIFRD. F4A03050 BINARY CARD NO. 9F230012 04270 1 77777 4 04271 TXI *+1,IR4,-1 SET IR FOR PICKING UP NEXT TRAD ENTRY. F4A03060 04271 3 00000 4 04257 TRATST TXH DOTRAD,IR4,...... HAVE ALL TRAD ENTRIES FOR THIS GO TO N F4A03070 BEEN TREATED. F4A03080 04272 1 77776 1 04333 TXI TIFTST,IR1,-2 YES, SET INDEX FOR NEXT LOOK AT TIFGO F4A03090 AND RETURN TO PRUNING TIFGO. F4A03100 04273 0074 00 4 73606 ASSIGN TSX (TAPE),IR4 F4A03110 04274 0 20000 0 04011 RWND,,(SKBP) F4A03120 04275 0 00004 0 03773 CTLBL,,CTAPE F4A03130 04276 0520 00 0 04705 ZET RDTBLS HAVE TIFGO,TRAD AND FRET BEEN READ F4A03140 04277 0074 00 2 04705 TSX RDTBLS,IR2 IN AND THE TAPE POSITIONED F4A03150 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 8 SECTION 4, PART ONE 04300 0520 00 0 04705 ZET RDTBLS F4A03160 04301 0020 00 0 04277 TRA *-2 NO AGAIN F4A03170 04302 0074 00 4 73606 REEDDO TSX (TAPE),IR4 YES READ DOTAG F4A03180 04303 0 40014 0 04034 DORD,,(RBEC) F4A03190 04304 0 00002 0 04001 DTGLBL,,FTAPE2 F4A03200 04305 0520 00 0 73674 ZET (SCHU)+FTAPE2 F4A03210 04306 0020 00 0 05003 TRA CONDO F4A03220 04307 0774 00 3 00000 AXT 0,IR1+IR2 INITIALIZE TIFGO AND TIFRD IRS. F4A03230 04310 -0520 00 0 60074 NZT TIFGO+1 IS TIFGO EMPTY F4A03240 04311 0020 00 0 04335 TRA FREQ YES, SKIP THIS ROUTINE. F4A03250 04312 -0535 00 4 60074 LDC TIFGO+1,IR4 SET TEST DECREMENT WITH COMPLEMENT F4A03260 04313 -0634 00 4 04333 SXD TIFTST,IR4 OF LENGTH OF TIFGO. F4A03270 04314 0500 00 1 60075 PRUNE CLA TIFGO+2,IR1 IS THIS TIFGO ENTRY A GO TO N. F4A03280 04315 -0120 00 0 04332 TMI STEP F4A03290 BINARY CARD NO. 9F230013 04316 -0320 00 0 03752 ANA TAMASK F4A03300 04317 0402 00 0 03735 SUB ONE F4A03310 04320 0100 00 0 04247 TZE GOTON YES. F4A03320 04321 0402 00 0 04022 SUB FIVE NO, IS IT AN ASSIGN. F4A03330 04322 -0100 00 0 04332 TNZ STEP NO. F4A03340 04323 0500 00 0 03735 CLA ONE YES F4A03350 04324 0621 00 0 03742 STA ASPRS SET ASSIGN FLAG FOR ASSIGN PRESENT. F4A03360 04325 0500 00 1 60075 CLA TIFGO+2,IR1 MOVE THIS TIFGO ENTRY TO TIFRD. F4A03370 04326 0601 00 2 56323 STO TIFRD,IR2 F4A03380 04327 0500 00 1 60076 CLA TIFGO+3,IR1 F4A03390 04330 0601 00 2 56324 STO TIFRD+1,IR2 F4A03400 04331 1 77776 2 04332 TXI STEP,IR2,-2 SET INDEX FOR NEXT STORE IN TIFRD. F4A03410 04332 1 77776 1 04333 STEP TXI TIFTST,IR1,-2 SET INDEX FOR NEXT LOOK AT TIFGO. F4A03420 04333 3 00000 1 04314 TIFTST TXH PRUNE,IR1,...... HAS ALL TIFGO BEEN TREATED. F4A03430 04334 0600 00 2 56323 STZ TIFRD,IR2 STORE ENDMARK FOR TIFRD. F4A03440 F4A03450 FREQ / NO SUBROUTINES CALLED F4A03460 THIS ROUTINE SCANS THE FREQUENCY TABLE (FRET). IT F4A03470 MOVES ALL ENTRIES THAT DEAL WITH DOS TO A TABLE CALLED F4A03480 DOFRET AND MARKS THE FIRST WORD IN FRET OF EACH SUCH VACATEDF4A03490 ENTRY WITH A SIGNAL USED BY THE NEXT ROUTINE. F4A03500 ALL REGULAR FRET ENTRIES, THAT IS, THOSE THAT DEAL WITHF4A03510 DATA-CONTROLLED TRANSFER OPTIONS, ARE MODIFIED AS FOLLOWS. F4A03520 THE 1ST FREQUENCY OF EACH ENTRY IS UNMODIFIED, THE 2ND BE- F4A03530 COMES THE 1ST + THE 2ND, THE 3RD BECOMES THIS TOTAL + THE F4A03540 3RD, ETC. THUS (2,7,4) BECOMES (2,9,13). THEN EACH OF F4A03550 THESE MODIFIED FREQUENCIES IS DIVIDED BY THE LAST FREQUENCY.F4A03560 THUS (2,9,13) BECOMES (2/13,9/13,1). THE PURPOSE OF THIS F4A03570 PROCEDURE BECOMES MORE APPARENT WHEN EXAMINING THE METHOD F4A03580 USED IN SECT. 4, PART 3, FOR SIMULATING THE OBJECT PROGRAM. F4A03590 04335 -0520 00 0 64162 FREQ NZT FRET-1 IS FRET EMPTY. F4A03600 04336 0020 00 0 04442 TRA SORTDO YES, SKIP THIS ROUTINE. F4A03610 04337 -0774 00 1 00002 AXC 2,IR1 NO, INITIALIZE FRET INDEX REGISTER. F4A03620 04340 0774 00 2 00000 AXT 0,IR2 INITIALIZE DOFRET INDEX REGISTER. F4A03630 04341 -0535 00 4 64162 LDC FRET-1,IR4 SET TEST DECREMENTS IN THIS ROUTINE F4A03640 04342 -0634 00 4 04347 SXD DNDTST,IR4 WITH THE COMPLEMENT OF THE LENGTH F4A03650 04343 -0634 00 4 04360 SXD DOTEST,IR4 OF FRET. F4A03660 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 9 SECTION 4, PART ONE BINARY CARD NO. 9F230014 04344 -0634 00 4 04365 SXD PNDTST,IR4 F4A03670 04345 -0634 00 4 04407 SXD PRBTST,IR4 F4A03680 04346 0441 00 0 04027 LDI NEGMAX LOAD SI WITH SIGNAL. F4A03690 04347 -3 00000 1 04352 DNDTST TXL DOMOVE,IR1,...... DOES TABLE END WITH A DOFRET ENTRY. F4A03700 04350 0500 00 1 64163 CLA FRET,IR1 IS THIS A FORMULA NUMBER. F4A03710 04351 0120 00 0 04362 TPL ACCUM NO. IT IS A FREQUENCY. F4A03720 04352 0500 00 1 64161 DOMOVE CLA FRET-2,IR1 THE PREVIOUS ENTRY WAS A DOFRET ENTRY. F4A03730 04353 0601 00 2 51645 STO DOFRET,IR2 MOVE IT TO DOFRET TABLE. F4A03740 04354 0500 00 1 64162 CLA FRET-1,IR1 F4A03750 04355 0601 00 2 51644 STO DOFRET-1,IR2 F4A03760 04356 0604 00 1 64161 STI FRET-2,IR1 STORE SIGNAL TO INDICATE VACATED F4A03770 DOFRET ENTRY. F4A03780 04357 1 00002 2 04360 TXI DOTEST,IR2,2 SET DOFRET INDEX REG FOR NEXT ENTRY. F4A03790 04360 -3 00000 1 04422 DOTEST TXL SAVDOF,IR1,...... HAS ALL OF FRET BEEN TREATED. F4A03800 04361 1 77776 1 04347 TXI DNDTST,IR1,-2 SET FRET IR TO LOOK TWO WORDS AHEAD. F4A03810 04362 0400 00 1 64162 ACCUM ADD FRET-1,IR1 ADD LAST FREQUENCY TO THIS ONE TO GET F4A03820 04363 0601 00 1 64163 STO FRET,IR1 CUMULATIVE FREQUENCY. F4A03830 04364 1 77777 1 04365 TXI PNDTST,IR1,-1 SET FRET IR TO LOOK AT NEXT WORD. F4A03840 04365 -3 00000 1 04370 PNDTST TXL DIVFRQ,IR1,...... DOES TABLE END WITH REGULAR FRET ENTRY F4A03850 04366 0500 00 1 64163 CLA FRET,IR1 IS THIS A FORMULA NUMBER. F4A03860 04367 0120 00 0 04362 TPL ACCUM NO. IT IS ANOTHER FREQUENCY. F4A03870 04370 0500 00 1 64162 DIVFRQ CLA FRET-1,IR1 SET TOTAL FREQUENCY OF ENTRY AS F4A03880 04371 0601 00 0 03771 STO ERASE1 DIVISOR. F4A03890 BINARY CARD NO. 9F230015 04372 0500 00 0 03753 CLA POSMAX SET THE HIGHEST POSITIVE NUMBER AS THE F4A03900 04373 0601 00 1 64162 STO FRET-1,IR1 TOTAL PROBABILITY OF THE ENTRY. F4A03910 04374 0634 00 1 04406 SXA CONTIN,IR1 SAVE CURRENT FRET INDEX. F4A03920 04375 1 00002 1 04376 TXI DIVDND,IR1,2 SET IR TO LOOK AT THE NEXT TO LAST F4A03930 FREQUENCY IN THIS ENTRY. F4A03940 04376 0500 00 1 64163 DIVDND CLA FRET,IR1 LOOK AT PREVIOUS FREQUENCY. F4A03950 04377 -0120 00 0 04406 TMI CONTIN IS IT THE FORMULA NO. FOR THE ENTRY. F4A03960 04400 0560 00 0 03734 LDQ ZERO NO, DIVIDE THIS CUMULATIVE FREQUENCY F4A03970 04401 0221 00 0 03771 DVP ERASE1 BY TOTAL FREQUENCY TO GET F4A03980 04402 0760 00 0 00012 DCT CUMULATIVE PROBABILITY. F4A03990 04403 0560 00 0 03753 LDQ POSMAX F4A04000 04404 -0600 00 1 64163 STQ FRET,IR1 F4A04010 04405 1 00001 1 04376 TXI DIVDND,IR1,1 SET IR TO LOOK AT THE FREQ BEFORE THIS F4A04020 04406 0774 00 1 00000 CONTIN AXT ......,IR1 RESTORE CURRENT FRET INDEX. F4A04030 04407 -3 00000 1 04422 PRBTST TXL SAVDOF,IR1,...... HAS ALL OF FRET BEEN TREATED. F4A04040 04410 1 77776 1 04347 TXI DNDTST,IR1,-2 SET FRET IR TO LOOK TWO WORDS AHEAD. F4A04050 F4A04060 SQUEEZ / NO SUBROUTINES CALLED F4A04070 THIS ROUTINE, SCANNING FRET FOR THE SIGNALS LEFT BY THEF4A04080 PREVIOUS ROUTINE WHICH MARK THE VACATED DOFRET ENTRIES, F4A04090 CLOSES UP THE FRET TABLE SO THAT ONLY REGULAR FRET ENTRIES F4A04100 REMAIN. F4A04110 ALSO THIS ROUTINE STORES THE LENGTH OF FRET IN A CELL F4A04120 CALLED FRTBOX. F4A04130 04411 1 00002 4 04412 SQUEEZ TXI *+1,IR4,2 SET TEST DECREMENT FOR END OF F4A04140 04412 -0634 00 4 04420 SXD SQTEST,IR4 SQUEEZE LOOP. F4A04150 04413 0634 00 1 04414 SXA *+1,IR1 INITIALIZE INDEX REGISTER FOR F4A04160 04414 0774 00 2 00000 AXT ......,IR2 SQUEEZE LOOP. F4A04170 04415 0560 00 2 64165 SQLOOP LDQ FRET+2,IR2 MOVE UP NEXT WORD. F4A04180 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 10 SECTION 4, PART ONE 04416 -0600 00 2 64163 STQ FRET,IR2 F4A04190 04417 1 77777 2 04420 TXI SQTEST,IR2,-1 SET INDEX REG FOR MOVING NEXT WORD. F4A04200 BINARY CARD NO. 9F230016 04420 3 00000 2 04415 SQTEST TXH SQLOOP,IR2,...... HAVE ALL WORDS BEEN MOVED UP. F4A04210 04421 0020 00 0 04436 TRA FRETLP YES, LOOK AT NEXT FRET ENTRY. F4A04220 04422 -0634 00 2 03766 SAVDOF SXD DOSUB,IR2 F4A04230 04423 -0634 00 2 04607 SXD DOFTST,IR2 SET TEST DECREMENT IN LOADDO ROUTINE. F4A04240 04424 0500 00 0 64162 CLA FRET-1 SAVE LENGTH OF FRET. F4A04250 04425 0402 00 0 03766 SUB DOSUB F4A04260 04426 0601 00 0 03770 STO FRTBOX F4A04270 04427 0100 00 0 04442 TZE SORTDO IF FRET WAS ALL DOFRET ENTRIES OR ALL F4A04280 04430 -3 00000 2 04442 TXL SORTDO,IR2,0 REGULAR FRET ENTRIES, SKIP SQUEEZE F4A04290 ROUTINE. F4A04300 04431 0774 00 1 00000 AXT 0,IR1 INITIALIZE INDEX REG FOR FRET LOOP. F4A04310 04432 -0535 00 4 03770 LDC FRTBOX,IR4 SET TEST DECREMENT FOR END OF FRET F4A04320 04433 -0634 00 4 04441 SXD FRTEND,IR4 LOOP. F4A04330 04434 -0535 00 4 64162 LDC FRET-1,IR4 PREPARE FOR SETTING OF SQUEEZE LOOP F4A04340 TEST DECREMENT. F4A04350 04435 -0500 00 0 04027 CAL NEGMAX LOAD AC WITH SIGNAL. F4A04360 04436 0441 00 1 64163 FRETLP LDI FRET,IR1 PICK UP NEXT FRET WORD. F4A04370 04437 0042 00 0 04411 TIO SQUEEZ IS THIS AND THE NEXT WORD A VACATED F4A04380 DOFRET ENTRY. F4A04390 04440 1 77777 1 04441 TXI FRTEND,IR1,-1 SET IR TO PICK UP NEXT FRET WORD. F4A04400 04441 3 00000 1 04436 FRTEND TXH FRETLP,IR1,...... HAS ALL OF FRET BEEN TREATED. F4A04410 F4A04420 SORTDO / NO SUBROUTINES CALLED F4A04430 DOLIST IS BUILT UP IN PASS1 ORDERED ON THE ENDS OF DOS F4A04440 (LOCATIONS OF TXLS IN THE OBJECT PROGRAM). THIS ROUTINE F4A04450 SORTS DOLIST SO THAT IT IS ORDERED ON THE BEGINNINGS OF DOS F4A04460 (ADDRESSES OF TXLS). F4A04470 04442 -0534 00 1 03767 SORTDO LXD DOBOX,IR1 LOAD IR WITH LENGTH OF DOLIST. F4A04480 04443 -3 00000 1 04621 TXL FREAD2,IR1,0 IF DOLIST IS EMPTY, SKIP DO ROUTINES. F4A04490 04444 0634 00 1 04475 NXTPAS SXA STORHI,IR1 SAVE CURRENT SORTING INDEX. F4A04500 04445 -0500 00 1 56323 CAL DOLIST,IR1 PICK UP NEXT ENTRY NOT YET SORTED. F4A04510 BINARY CARD NO. 9F230017 04446 0560 00 1 56324 LDQ DOLIST+1,IR1 F4A04520 04447 -3 00002 1 04475 SORTLP TXL STORHI,IR1,2 IS THERE ANOTHER ENTRY TO COMPARE. F4A04530 04450 -0340 00 1 56325 LAS DOLIST+2,IR1 COMPARE ADDRESSES OF DOS. F4A04540 04451 1 77776 1 04447 TXI SORTLP,IR1,-2 STORED ADDRESS SMALLER, COMPARE NEXT. F4A04550 04452 0020 00 0 04462 TRA 2NDCMP ADDRESSES ARE EQUAL, COMPARE LOCATIONS F4A04560 04453 0441 00 1 56325 LDI DOLIST+2,IR1 STORED ADDRESS LARGER, SWITCH ENTRIES. F4A04570 04454 0602 00 1 56325 SLW DOLIST+2,IR1 F4A04580 04455 -0130 00 0 00000 XCL F4A04590 04456 0560 00 1 56326 LDQ DOLIST+3,IR1 F4A04600 04457 0602 00 1 56326 SLW DOLIST+3,IR1 F4A04610 04460 -0046 00 0 00000 PIA F4A04620 04461 1 77776 1 04447 TXI SORTLP,IR1,-2 SET IR TO COMPARE NEXT ENTRY. F4A04630 04462 0044 00 0 00000 2NDCMP PAI F4A04640 04463 0500 00 1 56326 CLA DOLIST+3,IR1 F4A04650 04464 0040 00 0 04473 TLQ FIXAC AC LOC. LARGER, DONT SWITCH ENTRIES. F4A04660 04465 -0500 00 1 56326 CAL DOLIST+3,IR1 AC LOCATION SMALLER, SWITCH ENTRIES. F4A04670 04466 -0600 00 1 56326 STQ DOLIST+3,IR1 F4A04680 04467 0560 00 1 56325 LDQ DOLIST+2,IR1 F4A04690 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 11 SECTION 4, PART ONE 04470 0604 00 1 56325 STI DOLIST+2,IR1 F4A04700 04471 -0130 00 0 00000 XCL F4A04710 04472 1 77776 1 04447 TXI SORTLP,IR1,-2 SET IR TO COMPARE NEXT ENTRY. F4A04720 04473 -0046 00 0 00000 FIXAC PIA RESTORE AC. F4A04730 BINARY CARD NO. 9F230018 04474 1 77776 1 04447 TXI SORTLP,IR1,-2 SET IR TO COMPARE NEXT ENTRY. F4A04740 04475 0774 00 1 00000 STORHI AXT ......,IR1 RESTORE CURRENT SORTING INDEX. F4A04750 04476 0602 00 1 56323 SLW DOLIST,IR1 STORE AS NEXT HIGHEST SORTED ENTRY. F4A04760 04477 -0600 00 1 56324 STQ DOLIST+1,IR1 F4A04770 04500 1 77776 1 04501 TXI *+1,IR1,-2 SET IR TO PICK UP NEXT UNSORTED ENTRY. F4A04780 04501 3 00002 1 04444 TXH NXTPAS,IR1,2 IS TABLE ALL SORTED. F4A04790 F4A04800 REPLACE DO / NO SUBROUTINES CALLED F4A04810 THIS ROUTINE REPLACES THE INSTRUCTION NUMBERS (TXL LO- F4A04820 CATIONS AND ADDRESSES) IN DOLIST BY BASIC BLOCK NUMBERS. F4A04830 (BASIC BLOCKS ARE NUMBERED IN THE ORDER OF THEIR APPEARANCE F4A04840 IN THE OBJECT PROGRAM FROM 0 THRU N-1 WHERE N IS THE NUMBER F4A04850 OF BASIC BLOCKS IN THE PROGRAM.) F4A04860 04502 0774 00 1 00001 AXT 1,IR1 INITIALIZE DOLIST INDEX REGISTER. F4A04870 04503 0774 00 2 00000 AXT 0,IR2 INITIALIZE BBLIST INDEX REGISTER. F4A04880 04504 0500 00 0 03767 CLA DOBOX SET TEST DECREMENT WITH LENGTH OF F4A04890 04505 0622 00 0 04506 STD DOTIX DOLIST. F4A04900 04506 2 00000 1 04526 DOTIX TIX LOADDO,IR1,...... HAVE ALL DOLIST ENTRIES BEEN CHANGED. F4A04910 04507 0500 00 1 56322 CLA DOLIST-1,IR1 PICK UP NEXT DOLIST ADDRESS. F4A04920 04510 0340 00 2 54267 ADCOMP CAS BBLIST,IR2 COMPARE WITH BBLIST ENTRIES. F4A04930 04511 1 00001 2 04510 TXI ADCOMP,IR2,1 THIS BB BEGINS BEFORE THE DO BEGINS. F4A04940 TRY NEXT BB. F4A04950 04512 -0754 00 2 00000 PXD 0,IR2 THIS BB AND DO BEGIN TOGETHER, SO RE- F4A04960 04513 0601 00 1 56322 STO DOLIST-1,IR1 PLACE TXL ADD. IN DOLIST WITH BB NO F4A04970 04514 0500 00 1 56323 CLA DOLIST,IR1 PICK UP NEXT DOLIST LOCATION. F4A04980 04515 0340 00 2 54267 LOCCOM CAS BBLIST,IR2 COMPARE WITH BBLIST ENTRIES. F4A04990 04516 1 00001 2 04515 TXI LOCCOM,IR2,1 THIS BB BEGINS BEFORE THE DO ENDS. F4A05000 TRY NEXT BB. F4A05010 04517 0074 00 4 03772 TSX ERRM4,IR4 ILLEGAL TRANSFER TO A TXL. F4A05020 04520 1 77777 2 04521 TXI *+1,IR2,-1 THIS BB BEGINS AFTER THE DO ENDS, SO F4A05030 04521 -0754 00 2 00000 PXD 0,IR2 REPLACE TXL LOCATION IN DOLIST WITH F4A05040 BINARY CARD NO. 9F230019 04522 0601 00 1 56323 STO DOLIST,IR1 BB NO. OF PREVIOUS BB. F4A05050 04523 0500 00 1 56322 CLA DOLIST-1,IR1 CONTINUE COMPARING ENTRIES STARTING F4A05060 04524 -0734 00 2 00000 PDX 0,IR2 WITH THE SAME BB THAT BEGAN WITH F4A05070 04525 1 00002 1 04506 TXI DOTIX,IR1,2 THIS DO AND THE NEXT DOLIST ADDRESS F4A05080 TO BE CHANGED. F4A05090 F4A05100 LOADDO / NO SUBROUTINES CALLED F4A05110 FIRST THIS ROUTINE INSURES THAT DOTAG HAS BEEN READ F4A05120 CORRECTLY FROM TAPE. THEN IT SCANS DOTAG. EVERY TIME A DO F4A05130 IS ENCOUNTERED WHICH HAS A TRANSFER IN ITS EXTENDED RANGE (AF4A05140 DO WITH AN IF) THIS IS INDICATED BY A TAG OF 7 IN THE 2ND F4A05150 WORD OF THE APPROPRIATE DOLIST ENTRY. F4A05160 THEN THE LOOP COUNT IS COMPUTED AND PLACED IN THE F4A05170 ADDRESS OF THE 1ST WORD OF THE APPROPRIATE DOLIST ENTRY. F4A05180 DOTAG TELLS IF THE PARAMETERS FOR THE DO ARE CONSTANTS OR F4A05190 VARIABLES. IF CONSTANTS, THE LOOP COUNT IS COMPUTED BY THE F4A05200 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 12 SECTION 4, PART ONE FORMULA (N2-N1+N3)/N3 WHERE N1, N2 AND N3 ARE THE PARAMETERSF4A05210 OF THE DO. IF ANY OF THE PARAMETERS ARE VARIABLES THE LOOP F4A05220 COUNT IS TAKEN FROM DOFRET (IF THE PROGRAMMER HAS GIVEN A F4A05230 FREQUENCY ESTIMATE FOR THE DO) OR A COUNT OF 5 IS USED (IF F4A05240 HE HAS NOT SO DONE). F4A05250 IN A CARRY CASE (WHERE 2 OR 3 DOS ARE BUILT INTO ONE F4A05260 LOOP) THE CARRY LOOP COUNT IS MULTIPLIED BY THE LOOP COUNT F4A05270 OF THE PREVIOUS DO TO GIVE THE TOTAL COUNT FOR THE LOOP. F4A05280 04526 0074 00 4 73606 LOADDO TSX (TAPE),IR4 F4A05290 04527 0 10000 0 00002 FTAPE2,,(CHKU) F4A05300 04530 0500 00 0 03736 CLA DOTOP F4A05310 04531 0402 00 0 04024 SUB DOBASE LENGTH OF DOTAG. F4A05320 04532 0737 00 4 00000 PAC 0,IR4 SET TEST DECREMENTS WITH COMPLEMENT F4A05330 04533 -0634 00 4 04564 SXD DTGBOX,IR4 OF LENGTH OF DOTAG. F4A05340 04534 0774 00 1 00000 AXT 0,IR1 INITIALIZE DOTAG INDEX REGISTER. F4A05350 04535 0774 00 2 00001 AXT 1,IR2 INITIALIZE DOLIST INDEX REGISTER. F4A05360 04536 0760 00 0 00140 SLF MAKE SURE SENSE LIGHTS ARE OFF. F4A05370 04537 0500 00 1 33367 NEXTDO CLA DOTAG+6,IR1 IS THIS A DO WITH AN IF. F4A05380 04540 0120 00 0 04543 TPL NOIF NO. F4A05390 04541 0500 00 0 03751 CLA TMASK YES. INDICATE THIS IN DOLIST. F4A05400 04542 0625 00 2 56322 STT DOLIST-1,IR2 F4A05410 04543 0500 00 1 33361 NOIF CLA DOTAG,IR1 ARE ANY OF THE PARAMETERS OF THIS DO F4A05420 04544 -0320 00 0 03751 ANA TMASK VARIABLE. F4A05430 04545 -0100 00 0 04603 TNZ VARPAR YES. F4A05440 04546 0500 00 1 33366 CLA DOTAG+5,IR1 NO. THEY ARE ALL CONSTANTS. COMPUTE F4A05450 04547 0621 00 0 03760 STA ERASE2 LOOP COUNT BY DIVIDING N2-N1+N3 BY F4A05460 BINARY CARD NO. 9F230020 04550 -0754 00 0 00000 ZAC N3 WHERE N2, AND N3 ARE THE F4A05470 04551 0560 00 0 03760 LDQ ERASE2 PARAMETERS OF THE DO. F4A05480 04552 0221 00 1 33365 DVP DOTAG+4,IR1 F4A05490 04553 0760 00 0 00012 DCT F4A05500 04554 0074 00 4 03772 TSX ERRM4,IR4 DIVIDE ERROR, GO TO DIAGNOSTIC. F4A05510 ERASE2 LOADED WITH ADDRESS OF F4A05520 DOTAG+5,IR1, IR1 LOADED WITH F4A05530 ZERO (AT NEXTDO-3) AND MODIFIED F4A05540 WITH TXI (AT DTGBOX-1). DOTAG F4A05550 READ FROM TAPE 2, FILE 6. F4A05560 04555 -0760 00 0 00141 LITEST SLT 1 IS THIS A CARRY CASE. F4A05570 04556 0020 00 0 04560 TRA *+2 NO. F4A05580 04557 0200 00 0 03761 MPY ERASE3 YES. MULTIPLY LOOP COUNT BY PREVIOUS F4A05590 04560 0131 00 0 00000 XCA LOOP COUNT. F4A05600 04561 0621 00 2 56323 STA DOLIST,IR2 ENTER LOOP COUNT IN DOLIST. F4A05610 04562 0621 00 0 03761 STA ERASE3 F4A05620 04563 1 77767 1 04564 TXI DTGBOX,IR1,-9 SET IR FOR NEXT DOTAG ENTRY. F4A05630 04564 -3 00000 1 04621 DTGBOX TXL FREAD2,IR1,...... HAVE ALL DOTAG ENTRIES BEEN TREATED. F4A05640 04565 -0520 00 0 73041 NZT DOCARE-1 IS DOCARE EMPTY. F4A05650 04566 1 00002 2 04537 TXI NEXTDO,IR2,2 YES, NO CARRY. SET IR FOR NEXT F4A05660 DOLIST ENTRY. F4A05670 04567 -0534 00 4 73041 LXD DOCARE-1,IR4 NO, SET TEST DECREMENT WITH COMPLEMENT F4A05680 04570 -0634 00 4 04577 SXD DCRTST,IR4 OF LENGTH OF DOCARE. F4A05690 04571 0774 00 4 00000 AXT 0,IR4 INITIALIZE DOCARE INDEX REGISTER. F4A05700 04572 0500 00 1 33361 CLA DOTAG,IR1 COMPARE 1ST WORD OF NEXT DOTAG WITH F4A05710 04573 0340 00 4 73042 DODO CAS DOCARE,IR4 ALL OF DOCARE TO DISCOVER IF THIS F4A05720 04574 1 77777 4 04577 TXI DCRTST,IR4,-1 DO IS A CARRY CASE. F4A05730 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 13 SECTION 4, PART ONE 04575 0020 00 0 04601 TRA LITEON THIS IS A CARRY CASE. F4A05740 BINARY CARD NO. 9F230021 04576 1 77777 4 04577 TXI DCRTST,IR4,-1 F4A05750 04577 3 00000 4 04573 DCRTST TXH DODO,IR4,...... HAS ALL DOCARE BEEN SEARCHED. F4A05760 04600 1 00002 2 04537 TXI NEXTDO,IR2,2 NO CARRY. SET IR FOR NEXT DOLIST ENTRY F4A05770 04601 0760 00 0 00141 LITEON SLN 1 TURN ON SENSE LITE 1 TO INDICATE CARRY F4A05780 04602 0020 00 0 04543 TRA NOIF F4A05790 04603 0774 00 4 00001 VARPAR AXT 1,IR4 LOAD IR WITH CURRENT DOFRET INDEX. F4A05800 (INITIALIZED AT 1) F4A05810 04604 0500 00 1 33361 CLA DOTAG,IR1 COMPARE INTERNAL FORMULA NO. OF THIS F4A05820 04605 0771 00 0 00022 ARS 18 DOTAG WITH DOFRET INTERNAL FORMULA F4A05830 04606 -0760 00 0 00003 SSM NOS. TO DISCOVER IF THERE IS A F4A05840 FREQUENCY STATEMENT FOR THIS DO. F4A05850 04607 3 00000 4 04613 DOFTST TXH USE5,IR4,...... HAS ALL DOFRET BEEN SEARCHED. F4A05860 04610 0340 00 4 51646 CAS DOFRET+1,IR4 F4A05870 04611 1 00002 4 04607 TXI DOFTST,IR4,2 F4A05880 04612 1 00002 4 04616 TXI USEDOF,IR4,2 YES, THERE IS A FREQUENCY FOR THIS DO. F4A05890 04613 0560 00 0 04022 USE5 LDQ FIVE NO DOFRET ENTRY. USE 5 AS LOOP COUNT. F4A05900 04614 0634 00 4 04603 SXA VARPAR,IR4 SAVE CURRENT DOFRET INDEX. F4A05910 04615 0020 00 0 04555 TRA LITEST F4A05920 04616 0560 00 4 51647 USEDOF LDQ DOFRET+2,IR4 USE DOFRET ENTRY AS LOOP COUNT. F4A05930 04617 0634 00 4 04603 SXA VARPAR,IR4 SAVE CURRENT DOFRET INDEX. F4A05940 04620 0020 00 0 04555 TRA LITEST F4A05950 04621 0074 00 4 73600 FREAD2 TSX (LOAD),IR4 GO TO RECORD 27 F4A05960 04622 0 00000 0 00000 PZE F4A05970 F4A05980 04623 0074 00 4 04627 1TSX TSX RDCIT1,IR4 F4A05990 BINARY CARD NO. 9F230022 04624 0020 00 0 04077 TRA TEST1 F4A06000 04625 0074 00 4 04627 2TSX TSX RDCIT1,IR4 F4A06010 04626 0020 00 0 04170 TRA TEST2 F4A06020 F4A06030 RDCIT1 / A SUBROUTINE CALLED BY PASS1 F4A06040 THIS ROUTINE READS A BUFFERLOAD OF COMPILED INSTRUC- F4A06050 TIONS (CIT) FROM TAPE INTO CORES AS NEEDED. WHILE PASS1 F4A06060 IS PROCESSING THE CITS IN ONE BUFFER THE NEXT TO NEXT F4A06070 BUFFER AHEAD IS BEING LOADED. ALOOK AHED ZONE FOR TWO F4A06080 CITS IS LOADED FROM THE FIRST BUFFER IN CASE OF OVERFLOW.F4A06090 AFTER ALL THE CITS HAVE BEEN PROCESSED THE EXIT IS TO F4A06100 ASSIGN. F4A06110 04627 0634 00 2 04663 RDCIT1 SXA S1IR2,IR2 SAVE INDEX REGISTERS F4A06120 04630 0634 00 4 04664 SXA S1IR4,IR4 F4A06130 04631 0520 00 0 04705 ZET RDTBLS HAS FRET BEEN READ AND TAPE POSITIONED F4A06140 04632 0074 00 2 04705 TSX RDTBLS,IR2 NO. F4A06150 04633 0534 00 2 04004 LXA CTRD1,IR2 GET PREVIOUS LOAD ADDRESS. F4A06160 04634 1 00000 2 04635 IOAJ1 TXI *+1,IR2,...... ADJUST FOR NEXT RECORD. F4A06170 04635 3 51604 2 04640 TXH *+3,IR2,CTTP1-1 WOULD THIS BE ABOVE CIT AREA. F4A06180 04636 0634 00 2 04004 SXA CTRD1,IR2 NO, SET IO COMMAND ADRESS. F4A06190 04637 0020 00 0 04642 TRA *+3 F4A06200 04640 0774 00 2 05335 RINT1 AXT CTBOT,IR2 YES, SET LOAD ADDRESS TO BOTTOM F4A06210 04641 0634 00 2 04004 SXA CTRD1,IR2 OF AREA. F4A06220 04642 0074 00 4 73606 TSX (TAPE),IR4 DELAY, CHECK AND START READ. F4A06230 04643 0 40004 0 04004 CTRD1,,(RBEP) F4A06240 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 14 SECTION 4, PART ONE 04644 0 00004 0 03773 CTLBL,,CTAPE F4A06250 04645 0534 00 2 73676 LXA (SCHU)+CTAPE,IR2 F4A06260 04646 -3 00000 2 04674 TXL LAST1,IR2,0 WAS LAST READ EOF. F4A06270 04647 -3 05335 2 04666 MTST1 TXL MOVE1,IR2,CTBOT NO, HAS FIRST BUFFER JUST BEEN FILLED. F4A06280 04650 -0634 00 2 04647 SXD *-1,IR2 NO F4A06290 04651 0774 00 2 05335 AJBF1 AXT CTBOT,IR2 ADJUST PROCESSING TEST DECREMENT F4A06300 BINARY CARD NO. 9F230023 04652 1 00000 2 04653 PRAJ1 TXI *+1,IR2,...... FOR NEXT RECORD. F4A06310 04653 0634 00 2 04651 SXA *-2,IR2 F4A06320 04654 0754 00 2 00000 PXA ,IR2 F4A06330 04655 0737 00 2 00000 PAC ,IR2 F4A06340 04656 3 26172 2 04661 TXH *+3,IR2,-CTTP1-1 SHOULD PROCESSING RESTART AT BOTTOM. F4A06350 04657 0774 00 2 05335 AXT CTBOT,IR2 YES F4A06360 04660 0020 00 0 04652 TRA PRAJ1 F4A06370 04661 -0634 00 2 04101 SXD BEGN1,IR2 F4A06380 04662 -0634 00 2 04172 SXD CNTU1,IR2 F4A06390 04663 0774 00 2 00000 S1IR2 AXT ......,IR2 RELOAD INDEX REGISTERS F4A06400 04664 0774 00 4 00000 S1IR4 AXT ......,IR4 F4A06410 04665 0020 00 4 00001 TRA 1,IR4 F4A06420 04666 -0634 00 2 04647 MOVE1 SXD MTST1,IR2 MOVE FIRST TWO CITS FROM FIRST OF F4A06430 04667 0774 00 2 00010 AXT ZONSZ,IR2 BOTTOM BUFFER TO LOOK AHEAD ZONE. . F4A06440 04670 0500 00 2 05345 CLA CTBOT+ZONSZ,IR2 F4A06450 04671 0601 00 2 51615 STO CTTP1+ZONSZ,IR2 F4A06460 04672 2 00001 2 04670 TIX *-2,IR2,1 F4A06470 04673 0020 00 0 04651 TRA AJBF1 F4A06480 04674 -0774 00 2 00000 LAST1 AXC ......,IR2 SET TEST DECREMENTS AND EXIT ADRESS F4A06490 04675 -0634 00 2 04101 SXD BEGN1,IR2 FOR PROCESSING LAST RECORD. F4A06500 04676 -0634 00 2 04172 SXD CNTU1,IR2 F4A06510 04677 0500 00 0 04023 CLA EXIT1 F4A06520 BINARY CARD NO. 9F230024 04700 0621 00 0 04101 STA BEGN1 F4A06530 04701 0621 00 0 04172 STA CNTU1 F4A06540 04702 0621 00 0 04100 STA BEGN1-1 F4A06550 04703 0621 00 0 04171 STA CNTU1-1 F4A06560 04704 0020 00 0 04663 TRA S1IR2 F4A06570 F4A06580 04705 0634 00 2 04715 RDTBLS SXA RLD2,IR2 READ TIFGO, TRAD, SKIP FOUR RECORDS, F4A06590 04706 0774 00 2 00005 AXT 5,IR2 READ FRET AND THEN SKIP TO EOF. F4A06600 04707 0074 00 4 73606 TSX (TAPE),IR4 F4A06610 04710 0 77777 2 04724 TBLRD,IR2,-1 F4A06620 04711 0 77777 2 04731 MIH,IR2,-1 F4A06630 04712 2 00001 2 04714 TIX *+2,IR2,1 F4A06640 04713 0600 00 0 04705 STZ RDTBLS F4A06650 04714 0634 00 2 04706 SXA RDTBLS+1,IR2 F4A06660 04715 0774 00 2 00000 RLD2 AXT ......,IR2 F4A06670 04716 0020 00 2 00001 TRA 1,IR2 F4A06680 04717 0 40000 0 04031 TFGRD,,(RBNP) IO PARAMETERS FOR RDTBLS F4A06690 04720 0 40000 0 04032 TRDRD,,(RBNP) F4A06700 04721 0 20000 0 04007 SK4R,,(SKBP) F4A06710 04722 0 40000 0 04033 FRTRD,,(RBNP) F4A06720 04723 0 20000 0 04010 SKFL,,(SKBP) F4A06730 04724 0 00002 0 03776 TBLRD TFGLBL,,FTAPE2 F4A06740 04725 0 00002 0 03777 TRDLBL,,FTAPE2 F4A06750 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 15 SECTION 4, PART ONE BINARY CARD NO. 9F230025 04726 0 00002 0 04000 FRTLBL,,FTAPE2 F4A06760 04727 0 00002 0 04000 FRTLBL,,FTAPE2 F4A06770 04730 0 00002 0 04001 DTGLBL,,FTAPE2 F4A06780 F4A06790 MIH / A SUBROUTINE CALLED BY PASS1 AND ASSIGN F4A06800 THIS ROUTINE MAKES ENTRIES IN THE BBLIST. IT IS CALLEDF4A06810 BY TSX MIH,IR4 WITH THE ARGUMENT IN THE AC. MIH FIRST MAKESF4A06820 A BINARY SEARCH OF THE CURRENT BBLIST TO SEE IF THE ARGUMENTF4A06830 IS ALREADY IN THE TABLE. IF SO, IT RETURNS TO THE CALLER. F4A06840 IF NOT, IT INSERTS THE ARGUMENT IN BBLIST, PRESERVING ALGE- F4A06850 BRAIC ORDER. RETURN IS ALWAYS TO 1,IR4. F4A06860 A TEST FOR OVERFLOW OF TABLE IS ALSO MADE IN MIH. IF F4A06870 BBLIST EXCEEDS ITS PRESCRIBED LIMIT, THE FORTRAN DIAGNOSTIC F4A06880 IS CALLED IN TO ADVISE THE PROGRAMMER TO SIMPLIFY HIS F4A06890 PROGRAM. F4A06900 THE VERY FIRST ENTRY AND AN ENDMARK ARE PLACED IN F4A06910 BBLIST BY PASS1 WITHOUT CALLING ON MIH. THEREAFTER MIH F4A06920 INSERTS THE ENTRIES. BBLIST IS BUILT UP BACKWARDS IN CORES.F4A06930 F4A06940 04731 0602 00 0 03757 MIH SLW ARG F4A06950 04732 0500 00 0 03754 CLA ANTEBB INITIALIZE FLOOR AND ROOF. F4A06960 04733 0601 00 0 03760 STO FLOOR F4A06970 04734 0500 00 0 03756 CLA NTH F4A06980 04735 0601 00 0 03761 STO ROOF F4A06990 04736 0500 00 0 03761 LOOKUP CLA ROOF COMPUTE ADDRESS OF NEXT TABLE MEMBER F4A07000 04737 0400 00 0 03760 ADD FLOOR TO BE COMPARED WITH ARGUMENT. F4A07010 04740 0771 00 0 00001 ARS 1 (FIND MIDPOINT OF UNSEARCHED AREA F4A07020 04741 0601 00 0 03762 STO TRYME OF TABLE). F4A07030 04742 0500 60 0 03762 CLA* TRYME COMPARE ARGUMENT WITH TABLE MEMBER. F4A07040 04743 0340 00 0 03757 CAS ARG F4A07050 04744 0020 00 0 04751 TRA LOWER SEARCH LOWER F4A07060 04745 0020 00 4 00001 TRA 1,IR4 THIS ARG ALREADY IN BBLIST. IGNORE IT. F4A07070 04746 0500 00 0 03762 CLA TRYME RAISE FLOOR AND KEEP SEARCHING. F4A07080 04747 0601 00 0 03760 STO FLOOR F4A07090 04750 0020 00 0 04736 TRA LOOKUP F4A07100 04751 0500 00 0 03762 LOWER CLA TRYME F4A07110 04752 0402 00 0 03761 SUB ROOF F4A07120 04753 0100 00 0 04757 TZE INSERT THIS ARG NOWHERE IN BBLIST. INSERT IT. F4A07130 BINARY CARD NO. 9F230026 04754 0500 00 0 03762 CLA TRYME LOWER ROOF AND KEEP SEARCHING. F4A07140 04755 0601 00 0 03761 STO ROOF F4A07150 04756 0020 00 0 04737 TRA LOOKUP+1 F4A07160 04757 0500 00 0 03756 INSERT CLA NTH COMPUTE WHAT ENTRIES MUST BE MOVED. F4A07170 04760 0621 00 0 04774 STA MOVE F4A07180 04761 0402 00 0 03735 SUB ONE F4A07190 04762 0340 00 0 04030 CAS LIMIT IS BBLIST FULL F4A07200 04763 0020 00 0 04766 TRA *+3 F4A07210 04764 0020 00 0 04766 TRA *+2 F4A07220 04765 0074 00 4 04035 TSX ERR42,IR4 BBLIST IS FULL WITHOUT THIS ENTRY. F4A07230 04766 0621 00 0 04775 STA MOVE+1 F4A07240 04767 0601 00 0 03756 STO NTH LOWER ADDRESS OF HIGHEST ENTRY F4A07250 04770 0402 00 0 03762 SUB TRYME F4A07260 04771 0737 00 2 00000 PAC 0,IR2 F4A07270 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 16 SECTION 4, PART ONE 04772 -0634 00 2 04777 SXD MOVTST,IR2 F4A07280 04773 0774 00 2 00000 AXT 0,IR2 F4A07290 04774 0500 00 2 00000 MOVE CLA ......,IR2 MOVE UP ALL ENTRIES HIGHER THAN ARG F4A07300 04775 0601 00 2 00000 STO ......,IR2 TO MAKE ROOM FOR ARGUMENT. F4A07310 04776 1 77777 2 04777 TXI MOVTST,IR2,-1 F4A07320 04777 3 00000 2 04774 MOVTST TXH MOVE,IR2,...... F4A07330 05000 0500 00 0 03757 CLA ARG INSERT ARGUMENT IN CORRECT PLACE. F4A07340 05001 0601 60 0 03762 STO* TRYME F4A07350 BINARY CARD NO. 9F230027 05002 0020 00 4 00001 TRA 1,IR4 RETURN TO MAIN ROUTINE. F4A07360 05003 0500 00 0 73674 CONDO CLA (SCHU)+FTAPE2 F4A07370 05004 0621 00 0 04034 STA DORD F4A07380 05005 0621 00 0 03736 STA DOTOP F4A07390 05006 0020 00 0 04302 TRA REEDDO F4A07400 05045 END26 SYN *+30 F4A07410 BINARY CARD NO. TRA77777 77777 TCD -1 $F4A07415 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 17 SECTION 4, PART TWO SECTION 4 - PART 2 OF 3 F4B00010 F4B00020 00102 ORG SYSCUR $F4B00030 BINARY CARD NO. 9F240000 00102 112602040000 BCI 1,9F2400 $F4B00040 73666 ORG (LODR) $F4B00050 BINARY CARD NO. 9F240001 73666 1 00360 0 04066 TXI PASS2,,240 F4B00070 F4B00090 CONSTANTS AND VARIABLES FIRST APPEARING IN PART 2. F4B00100 04014 ORG TRA+1 F4B00110 BINARY CARD NO. 9F240002 04014 +000000000006 SIX DEC 6 F4B00120 04015 0 00000 0 21760 CTSPC2 PZE CTSP2 F4B00130 04016 0 00000 0 77777 CTINFL PZE -1 F4B00140 04017 +000000077777 ADMASK OCT 77777 F4B00150 04020 0 00000 0 00000 TSBOX ...... TRATBL AND SET COUNTER F4B00160 04021 0 00000 0 00000 BBBOX ...... BASIC BLOCK COUNTER F4B00170 F4B00180 CONSTANTS USED IN PART 2 ONLY. F4B00190 04022 0 00003 0 00000 D3 PZE 0,0,3 F4B00200 04023 0 00000 0 04624 EXIT2 PZE OUT EXIT ADDRESS FROM PASS2 F4B00210 04024 0 04200 0 00000 CSLITE PZE 0,0,-NLIST-4 F4B00220 04025 0 04204 0 00000 LNLST PZE 0,0,-NLIST F4B00230 04026 0 26135 0 00000 CTRA PZE 0,0,-TRATBL+2 F4B00240 04027 0 00000 0 73313 FIXLIM PZE NLIST-200*M/N-2 F4B00250 ENTRY MAY BE STORED. F4B00260 04030 0020 00 0 05136 NODO TRA SAVE4 F4B00270 04031 +035121000000 OCT 35121000000 TRA F4B00280 04032 +041104000000 OCT 41104000000 PSE-TRA F4B00290 04033 -033642000000 OCT -33642000000 DCT-PSE F4B00300 04034 +003642000000 OCT 3642000000 MSE-DCT F4B00310 04035 -007100000000 OCT -7100000000 TZE-MSE F4B00320 04036 -032154000000 OCT -32154000000 HPR-TZE F4B00330 04037 +031316000000 NNDCON OCT 31316000000 TSX-HPR F4B00340 04040 +035121000000 OCT 35121000000 TRA F4B00350 04041 +001622000000 OCT 1622000000 TXL-TRA F4B00360 BINARY CARD NO. 9F240003 04042 -000372000000 ENDCON OCT -372000000 TTR-TXL F4B00370 04043 +076225000000 PSE OCT 76225000000 F4B00380 04044 +200000000000 PBYCOD OCT 200000000000 F4B00390 04045 +300000000000 CERTCD OCT 300000000000 F4B00400 04046 -100000000000 GTNCD OCT 500000000000 F4B00410 04047 -200000000000 STOPCD OCT 600000000000 F4B00420 04050 +000770000000 D34MSK OCT 770000000 F4B00430 04051 +000007000000 D5MASK OCT 7000000 F4B00440 04052 +000140000000 AD14X OCT 140000000 F4B00450 04053 +000160000000 AD16X OCT 160000000 F4B00460 04054 1 77776 0 73603 ERR43 TXI (DIAG),,-2 GO TO VECTOR WITH NO BRANCHES. F4B00470 04055 1 77776 0 73603 ERR44 TXI (DIAG),,-2 FLOW ERROR. F4B00480 04056 1 77775 0 73603 ERR45 TXI (DIAG),,-3 NLIST OVERFLOW. F4B00490 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 18 SECTION 4, PART TWO 04057 1 77774 0 73603 ERR46 TXI (DIAG),,-4 TRATBL OVERFLOW. F4B00500 04060 1 77773 0 73603 ERR47 TXI (DIAG),,-5 SET OVERFLOW. F4B00510 04061 1 77772 0 73603 ERR48 TXI (DIAG),,-6 FIXDO OVERFLOW. F4B00520 04062 1 77771 0 73603 ERR41 TXI (DIAG),,-7 NO ASSIGN FOR GOTON(S). F4B00530 04063 1 77766 0 73603 ERR40 TXI (DIAG),,-10 FLOW ERROR OR MACHINE ERROR. F4B00540 04064 0074 00 4 73600 LOAD TSX (LOAD),IR4 GO TO RECORD 28. F4B00550 04065 0 00000 0 00000 PZE F4B00560 F4B00570 PASS2 / CALLS ON RDCIT2, FINDBB, SERCHN AND ENTER F4B00580 A SECOND PASS IS MADE OVER THE COMPILED INSTRUCTIONS, F4B00590 PRODUCING THE THREE PRINCIPLE TABLES WITH WHICH SIMULATION F4B00600 IS ACCOMPLISHED, NAMELY TRATBL (2 WORDS PER ENTRY), SET (1 F4B00610 WORD PER ENTRY), AND BBTABL (1 WORD PER ENTRY). F4B00620 TRATBL CONTAINS FOR EACH BASIC BLOCK IN THE OBJECT F4B00630 PROGRAM THE BASIC BLOCK NUMBERS OF ITS SUCCESSOR BASIC F4B00640 BLOCKS (THOSE TO WHICH TRANSFER IS MADE). ASSOCIATED WITH F4B00650 EACH OF THESE SUCCESSOR BASIC BLOCK NUMBERS IS A COUNTER F4B00660 (PRESET TO ONE) WHICH DURING SIMULATION WILL KEEP COUNT OF F4B00670 THE NUMBER OF TIMES THE PATH BETWEEN THE PREDECESSOR AND F4B00680 SUCCESSOR IN QUESTION HAS BEEN TRAVERSED. F4B00690 SET CONTAINS INFORMATION PERTINENT TO THE THREE TYPES F4B00700 OF SETTING THAT MUST BE DONE DURING SIMULATION - 1.) THE F4B00710 SETTING OF ASSIGNED GO TO ADDRESSES, 2.) THE SETTING OF F4B00720 SENSE LIGHTS AND 3.) THE RESETTING OF DO INDEXES FOR DOS F4B00730 WHICH HAVE TRANSFERS OUT OF THEIR RANGE. F4B00740 BBTABL TELLS FOR EACH BASIC BLOCK 1.) WHICH OF THE 7 F4B00750 KINDS OF BASIC BLOCK ENDINGS IT HAS, 2.) THE RELATIVE AD- F4B00760 DRESS OF THE 1ST WORD OF THE ASSOCIATED TRATBL ENTRIES, AND F4B00770 3.) THE RELATIVE ADDRESS OF THE 1ST WORD OF THE ASSOCIATED F4B00780 SET ENTRIES. F4B00790 04066 -0754 00 0 00000 PASS2 ZAC F4B00800 04067 0774 00 2 05335 AXT CTBOT,IR2 F4B00810 BINARY CARD NO. 9F240004 04070 0634 00 2 04004 SXA CTRD1,IR2 SET IO COMMAND ADDRESS FOR BOTTOM CIT. F4B00820 04071 0560 00 0 03763 LDQ ILNGTH F4B00830 04072 0221 00 0 04015 DVP CTSPC2 DIVIDE NO. OF WORDS IN CIT BY AREA F4B00840 04073 0760 00 0 00012 DCT LENGTH TO FIND TOP OF LAST RECORD. F4B00850 04074 0074 00 4 03772 TSX ERRM4,IR4 DIVIDE ERROR, GO TO DIAGNOSTIC. F4B00860 ILNGTH LOADED FROM CTCNT IN F4B00870 FIRST OF PASS1 AND CTSPC2 DEFINED F4B00880 AT ASSEMBLY. F4B00890 04075 0400 00 0 04004 ADD CTRD1 LAST CIT ADRESS F4B00900 04076 0621 00 0 05020 STA LAST2 F4B00910 04077 0131 00 0 00000 XCA F4B00920 04100 0100 00 0 04111 TZE ALLIN IS ALL OF CIT IN CORE. F4B00930 04101 0402 00 0 03735 SUB ONE MAYBE NOT F4B00940 04102 -0100 00 0 04116 TNZ NALIN NO. F4B00950 04103 0500 00 0 05020 CLA LAST2 STILL MAYBE. F4B00960 04104 0400 00 0 04004 ADD CTRD1 F4B00970 04105 -0320 00 0 04017 ANA ADMASK F4B00980 04106 -0100 00 0 04116 TNZ NALIN NO. F4B00990 04107 0774 00 2 27315 AXT CTTP2,IR2 YES. F4B01000 04110 0634 00 2 05020 SXA LAST2,IR2 F4B01010 04111 0774 00 4 00013 ALLIN AXT 11,IR4 SET EXIT CONDITIONS BY EXECUTING F4B01020 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 19 SECTION 4, PART TWO 04112 0522 00 4 05033 XEC LAST2+11,IR4 ROUTINE IN RDCIT2. F4B01030 04113 2 00001 4 04112 TIX *-1,IR4,1 F4B01040 04114 0600 00 0 04016 STZ CTINFL SET FLAG FOR PART 3. F4B01050 04115 0020 00 0 04163 TRA START F4B01060 BINARY CARD NO. 9F240005 04116 0534 00 2 03741 NALIN LXA RLNGTH,IR2 F4B01070 04117 -0634 00 2 04760 SXD IOAJ2,IR2 F4B01080 04120 -0634 00 2 04776 SXD PRAJ2,IR2 F4B01090 04121 0500 00 0 03740 CLA CTSPC1 F4B01100 04122 0402 00 0 03763 SUB ILNGTH F4B01110 04123 -0120 00 0 04152 TMI STRTRD IS FIRST LOAD IN CORE. F4B01120 04124 0774 00 2 27315 AXT CTTP2,IR2 YES F4B01130 04125 0634 00 2 73676 SXA (SCHU)+CTAPE,IR2 SET TEST DECREMENTS AND LOAD F4B01140 04126 0754 00 2 00000 PXA ,IR2 ADDRESSES TO START READING F4B01150 04127 0402 00 0 03741 SUB RLNGTH AFTER FIRST LOAD IS PROCESSED. F4B01160 04130 0402 00 0 03741 SUB RLNGTH F4B01170 04131 0621 00 0 04775 STA AJBF2 F4B01180 04132 0737 00 2 00000 PAC ,IR2 F4B01190 04133 -0634 00 2 04207 SXD BEGN2,IR2 F4B01200 04134 -0634 00 2 04501 SXD CNTU2,IR2 F4B01210 04135 0500 00 0 04004 CLA CTRD1 F4B01220 04136 0402 00 0 03741 SUB RLNGTH F4B01230 04137 0621 00 0 04004 STA CTRD1 F4B01240 04140 -0754 00 0 00000 ZAC F4B01250 04141 0560 00 0 04015 LDQ CTSPC2 COMPUTE NO. OF RECORDS IN ONE LOAD. F4B01260 04142 0221 00 0 03741 DVP RLNGTH FOR POSITIONING TAPE. F4B01270 04143 0760 00 0 00012 DCT F4B01280 BINARY CARD NO. 9F240006 04144 0074 00 4 03772 TSX ERRM4,IR4 DIVIDE ERROR, GO TO DIAGNOSTIC F4B01290 RLNGTH WAS COMPUTED AND LOADED F4B01300 IN PASS1 F4B01310 04145 -0600 00 0 04005 STQ SKNR F4B01320 04146 0074 00 4 73606 TSX (TAPE),IR4 POSITION TAPE FOR READING SECOND F4B01330 04147 0 20000 0 04005 SKNR,,(SKBP) LOAD. F4B01340 04150 0 00004 0 03773 CTLBL,,CTAPE F4B01350 04151 0020 00 0 04163 TRA START F4B01360 04152 0074 00 4 73606 STRTRD TSX (TAPE),IR4 READ FIRST RECORD, DELAY AND F4B01370 04153 0 40010 0 04004 CTRD1,,(RBNC) CHECK. F4B01380 04154 0 00004 0 03773 CTLBL,,FTAPE4 F4B01390 04155 0500 00 0 73676 CLA (SCHU)+FTAPE4 F4B01400 04156 0621 00 0 04004 STA CTRD1 LOAD ADDRESS FOR NEXT RECORD. F4B01410 04157 0074 00 4 73606 TSX (TAPE),IR4 READ NEXT RECORD. F4B01420 04160 0 40004 0 04004 CTRD1,,(RBEP) F4B01430 04161 0 00004 0 03773 CTLBL,,CTAPE F4B01440 04162 0074 00 4 04755 TSX RDCIT2,IR4 F4B01450 04163 0774 00 1 14612 START AXT TRAMAX,IR1 CLEAR THE TRANSFER TABLE AND SET ALL (32)F4B01460 04164 0500 00 0 03735 CLA ONE COUNTERS TO ONE. F4B01470 04165 0601 00 1 51646 CLRTRA STO TRATBL+1,IR1 F4B01480 04166 0600 00 1 51647 STZ TRATBL+2,IR1 F4B01490 04167 2 00002 1 04165 D2 TIX CLRTRA,IR1,2 F4B01500 04170 0600 00 0 73573 STZ NLIST-1 STORE ENDMARK FOR NLIST. F4B01510 04171 -0534 00 1 03767 LXD DOBOX,IR1 STORE ENDMARK FOR DOLIST. F4B01520 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 20 SECTION 4, PART TWO BINARY CARD NO. 9F240007 04172 0500 00 0 03750 CLA DMASK F4B01530 04173 0601 00 1 56322 STO DOLIST-1,IR1 F4B01540 04174 -0774 00 1 05335 AXC CTBOT,IR1 F4B01550 04175 -0774 00 2 00001 AXC 1,IR2 INITIALIZE BBTABL INDEX REGISTER. F4B01560 04176 0500 00 0 03767 CLA DOBOX F4B01570 04177 -0100 00 0 04202 TNZ BEGBB F4B01580 04200 0500 00 0 04030 CLA NODO F4B01590 04201 0601 00 0 05123 STO SETDO F4B01600 04202 1 00001 2 04203 BEGBB TXI *+1,IR2,1 SET IR FOR NEXT BBTABL ENTRY. F4B01610 04203 0500 00 0 04020 CLA TSBOX PUT TRATBL AND SET ADDRESSES F4B01620 04204 0601 00 2 35032 STO BBTABL,IR2 IN BBTABL. F4B01630 04205 3 50463 1 04207 TEST3 TXH *+2,IR1,-CTTP2 F4B01640 04206 1 21760 1 04751 TXI 3TSX,IR1,CTSP2 F4B01650 04207 -3 00000 1 04751 BEGN2 TXL 3TSX,IR1,...... F4B01660 04210 0500 00 1 00000 CLA INSTLC,IR1 DOES THIS INSTR. HAVE A FORMULA NO. F4B01670 04211 0100 00 0 04276 TZE TR3S+1 NO. F4B01680 04212 0774 00 4 00000 TIFBOX AXT ......,IR4 YES, LOAD IR WITH TIFRD COUNT. (INIT- F4B01690 IALIZED AT ZERO) F4B01700 04213 0400 00 0 04014 ADD SIX F4B01710 04214 0402 00 4 56323 SUB TIFRD,IR4 IS THIS INSTRUCTION AN ASSIGN. F4B01720 04215 0100 00 0 04232 TZE ASNCAS YES, THIS IS AN ASSIGN CASE. F4B01730 04216 0500 00 1 00001 CLA INSTOP,IR1 NO, IS THIS INSTRUCTION A PSE. F4B01740 04217 -0320 00 0 03750 ANA DMASK F4B01750 BINARY CARD NO. 9F240008 04220 0402 00 0 04043 SUB PSE F4B01760 04221 -0100 00 0 04302 TNZ TSTTR NO. F4B01770 04222 0500 00 1 00003 CLA INSTAA,IR1 YES, IS ITS ADDRESS 140-144. F4B01780 04223 -0320 00 0 04050 ANA D34MSK F4B01790 04224 0402 00 0 04052 SUB AD14X F4B01800 04225 0100 00 0 04253 TZE SETSLT THIS IS A SET SENSE LIGHT INST. F4B01810 04226 0500 00 1 00004 CLA INSTLC+4,IR1 DOES NEXT INSTRUCTION BEGIN A F4B01820 04227 0402 00 2 54266 SUB BBLIST-1,IR2 BASIC BLOCK. F4B01830 04230 0100 00 0 04335 TZE CERTCS YES. F4B01840 04231 0020 00 0 04512 TRA IF2PSE F4B01850 04232 0500 00 1 00006 ASNCAS CLA INSTAD+4,IR1 ENTER N FOR THIS ASSIGN INTO NLIST, F4B01860 04233 0074 00 4 05072 TSX SERCHN,IR4 IF NOT ALREADY ENTERED. F4B01870 04234 0400 00 0 04025 ADD LNLST CREATE COMPLEMENT OF ADDRESS OF NLIST F4B01880 04235 0534 00 4 04020 LXA TSBOX,IR4 ENTRY. F4B01890 04236 3 02567 4 05152 TXH SETTSX,IR4,SETMAX HAS THE SET TABLE OVERFLOWED. F4B01900 04237 0601 00 4 32407 STO SET,IR4 STORE THIS COMPLEMENT IN DECREMENT OF F4B01910 04240 0534 00 4 04212 LXA TIFBOX,IR4 SET TABLE. F4B01920 04241 0500 00 4 56324 CLA TIFRD+1,IR4 GET TIFRD BETA (TRANSFER ADDRESS). F4B01930 04242 0767 00 0 00022 ALS 18 F4B01940 04243 1 77776 4 04244 TXI *+1,IR4,-2 SET IR FOR NEXT LOOK AT TIFRD. F4B01950 04244 0634 00 4 04212 SXA TIFBOX,IR4 SAVE TIFRD INDEX. F4B01960 04245 0074 00 4 05037 TSX FINDBB,IR4 FIND BB NO. OF TIFRD BETA. F4B01970 BINARY CARD NO. 9F240009 04246 0771 00 0 00022 ARS 18 F4B01980 04247 0534 00 4 04020 LXA TSBOX,IR4 F4B01990 04250 0621 00 4 32407 STA SET,IR4 STORE SUCCESSOR BB NO. IN ADDR. OF SET F4B02000 04251 1 00001 4 04252 TXI *+1,IR4,1 SET INDEX REGISTER FOR NEXT SET ENTRY. F4B02010 04252 1 77774 1 04275 TXI TR3S,IR1,-4 F4B02020 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 21 SECTION 4, PART TWO 04253 0534 00 4 04020 SETSLT LXA TSBOX,IR4 F4B02030 04254 0500 00 1 00003 CLA INSTAA,IR1 DOES THIS INSTR. SET LIGHTS ON OR OFF. F4B02040 04255 -0320 00 0 04051 ANA D5MASK F4B02050 04256 0100 00 0 04264 TZE LITOFF OFF. F4B02060 04257 0400 00 0 04024 ADD CSLITE ON, CREATE COMPLEMENT OF ADDRESS OF F4B02070 04260 0400 00 0 03735 ADD ONE DUMMY SENSE LIGHT. F4B02080 04261 3 02567 4 05152 TXH SETTSX,IR4,SETMAX HAS THE SET TABLE OVERFLOWED. F4B02090 04262 0601 00 4 32407 STO SET,IR4 STORE THIS COMPLEMENT IN DECREMENT OF F4B02100 SET TABLE AND A ONE IN THE ADDRESS F4B02110 TO INDICATE LIGHT ON. F4B02120 04263 1 00001 4 04275 TXI TR3S,IR4,1 SET INDEX REGISTER FOR NEXT SET ENTRY. F4B02130 04264 0634 00 2 04274 LITOFF SXA HOLD2,IR2 F4B02140 04265 0774 00 2 00004 AXT 4,IR2 F4B02150 04266 0500 00 0 04024 CLA CSLITE CREATE COMPLEMENTS OF ADDRESSES OF ALL F4B02160 04267 0400 00 0 03737 3ADD ADD D1 FOUR DUMMY SENSE LIGHTS. F4B02170 04270 3 02567 4 05152 TXH SETTSX,IR4,SETMAX HAS THE SET TABLE OVERFLOWED. F4B02180 04271 0601 00 4 32407 STO SET,IR4 STORE THESE COMPLEMENTS IN DECR. OF F4B02190 SUCCESSIVE SET ENTRIES WITH ZERO F4B02200 IN THE ADDRESS FIELDS TO INDICATE F4B02210 LIGHT OFF. F4B02220 04272 1 00001 4 04273 TXI *+1,IR4,1 SET INDEX REGISTER FOR NEXT SET ENTRY. F4B02230 04273 2 00001 2 04267 TIX 3ADD,IR2,1 F4B02240 BINARY CARD NO. 9F240010 04274 0774 00 2 00000 HOLD2 AXT ......,IR2 F4B02250 04275 0634 00 4 04020 TR3S SXA TSBOX,IR4 SAVE SET TABLE INDEX. F4B02260 04276 0500 00 1 00004 CLA INSTLC+4,IR1 DOES NEXT INSTR. BEGIN A BASIC BLOCK. F4B02270 04277 0402 00 2 54266 SUB BBLIST-1,IR2 F4B02280 04300 0100 00 0 04335 TZE CERTCS YES. F4B02290 04301 1 77774 1 04205 TXI TEST3,IR1,-4 NO, SET IR FOR NEXT LOOK AT CIT. F4B02300 04302 0500 00 1 00004 TSTTR CLA INSTLC+4,IR1 DOES NEXT INSTR. BEGIN A BASIC BLOCK. F4B02310 04303 0402 00 2 54266 SUB BBLIST-1,IR2 F4B02320 04304 0100 00 0 04327 TZE ENDBB YES. F4B02330 04305 0774 00 4 00007 AXT 7,IR4 NO, IS THIS INSTR. A TRA, PSE, DCT, F4B02340 04306 -0500 00 1 00001 CAL INSTOP,IR1 MSE, TZE, HPR OR TSX. F4B02350 04307 -0320 00 0 03750 ANA DMASK F4B02360 04310 0402 00 4 04040 NNDSUB SUB NNDCON+1,IR4 F4B02370 04311 0100 60 4 04327 TZE* NNDVEC+1,IR4 F4B02380 04312 2 00001 4 04310 TIX NNDSUB,IR4,1 F4B02390 04313 -0500 00 1 00001 CAL INSTOP,IR1 IT IS NONE OF THE ABOVE. IS IT SOME F4B02400 04314 -0320 00 0 03743 ANA 1STLET OTHER KIND OF TRANSFER. (IS 1ST F4B02410 04315 0322 00 0 03744 ERA T LETTER OF OP CODE A T.) F4B02420 04316 0100 00 0 04435 TZE CONDTR YES, IT MUST BE A 2-WAY TRANSFER CASE. F4B02430 04317 1 77774 1 04205 IGNORE TXI TEST3,IR1,-4 NO, IGNORE IT AND LOOK AT NEXT CIT. F4B02440 04320 0020 00 0 04461 TRA GOTOV2 TRA F4B02450 04321 0020 00 0 04512 TRA IF2PSE PSE F4B02460 BINARY CARD NO. 9F240011 04322 0020 00 0 04542 TRA IF2CAS DCT F4B02470 04323 0020 00 0 04534 TRA MSECAS MSE F4B02480 04324 0020 00 0 04560 TRA IF3CAS TZE F4B02490 04325 0020 00 0 04612 TRA HPRCAS HPR F4B02500 04326 0020 00 0 04317 NNDVEC TRA IGNORE TSX F4B02510 04327 0774 00 4 00003 ENDBB AXT 3,IR4 IS THIS INSTR. A TRA, TXL OR TTR. F4B02520 04330 0500 00 1 00001 CLA INSTOP,IR1 F4B02530 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 22 SECTION 4, PART TWO 04331 -0320 00 0 03750 ANA DMASK F4B02540 04332 0402 00 4 04043 ENDSUB SUB ENDCON+1,IR4 F4B02550 04333 0100 60 4 04344 TZE* ENDVEC+1,IR4 F4B02560 04334 2 00001 4 04332 TIX ENDSUB,IR4,1 F4B02570 04335 0074 00 4 05112 CERTCS TSX ENTER,IR4 IT IS NONE OF THE ABOVE. IT MUST BE F4B02580 A CERTAINTY ENDING. F4B02590 04336 -0500 00 0 04045 CAL CERTCD PUT CERTAINTY CODE IN BBTABL. F4B02600 04337 0630 00 2 35032 STP BBTABL,IR2 F4B02610 04340 1 77774 1 04202 TXI BEGBB,IR1,-4 GO BACK TO DO NEXT BASIC BLOCK. F4B02620 04341 0020 00 0 04344 TRA TRACS TRA F4B02630 04342 0020 00 0 04405 TRA DOCAS TXL F4B02640 04343 0020 00 0 04347 ENDVEC TRA TRACS+3 TTR F4B02650 04344 -0500 00 1 00002 TRACS CAL INSTAD,IR1 IS THIS TRA A GO TO N. F4B02660 04345 -0320 00 0 03747 ANA PMASK F4B02670 04346 -0100 00 0 04355 TNZ GOTON2 YES. F4B02680 04347 0500 00 1 00002 CLA INSTAD,IR1 NO, IT IS A STRAIGHT GO TO. F4B02690 BINARY CARD NO. 9F240012 04350 0074 00 4 05037 TSX FINDBB,IR4 GET THE SUCCESSOR BB NO. F4B02700 04351 0074 00 4 05114 TSX ENTER2,IR4 ENTER IT IN TRATBL. F4B02710 04352 -0500 00 0 04045 CAL CERTCD PUT CERTAINTY CODE IN BBTABL. F4B02720 04353 0630 00 2 35032 STP BBTABL,IR2 F4B02730 04354 1 77774 1 04202 TXI BEGBB,IR1,-4 GO BACK TO DO NEXT BASIC BLOCK. F4B02740 04355 -0500 00 0 04046 GOTON2 CAL GTNCD PUT GO TO N CODE IN BBTABL. F4B02750 04356 0630 00 2 35032 STP BBTABL,IR2 F4B02760 04357 0500 00 0 03735 CLA ONE SET FLAG FOR GOTON IN SOURCE PROGRAM. F4B02770 04360 0621 00 0 04046 STA GTNCD F4B02780 04361 0500 00 1 00002 CLA INSTAD,IR1 GET RELATIVE ADDRESS OF PROPER F4B02790 04362 0074 00 4 05072 TSX SERCHN,IR4 NLIST ENTRY. F4B02800 04363 -0534 00 4 04020 LXD TSBOX,IR4 F4B02810 04364 0622 00 4 51645 STD TRATBL,IR4 PUT IT IN DECR. OF 1ST WORD OF TRATBL. F4B02820 04365 0534 00 4 04212 LXA TIFBOX,IR4 MAKE SURE THERE IS A TIFRD ENTRY F4B02830 04366 0500 00 1 00000 CLA INSTLC,IR1 FOR THIS GO TO N. F4B02840 04367 -0320 00 0 03750 ANA DMASK F4B02850 04370 0400 00 0 03735 ADD ONE F4B02860 04371 0402 00 4 56323 SUB TIFRD,IR4 F4B02870 04372 0100 00 0 04374 TZE *+2 F4B02880 04373 0074 00 4 03772 TSX ERRM4,IR4 NO ENTRY FOUND IN TIFRD FOR A GO TO N. F4B02890 04374 1 77776 4 04375 TXI *+1,IR4,-2 SET IR FOR NEXT LOOK AT TIFRD. F4B02900 04375 0500 00 4 56323 8CLA CLA TIFRD,IR4 PICK UP NEXT TRA ADDRESS FROM TIFRD. F4B02910 BINARY CARD NO. 9F240013 04376 0634 00 4 04212 SXA TIFBOX,IR4 F4B02920 04377 0120 00 0 04354 TPL GOTON2-1 THIS GO TO N IS FINISHED. F4B02930 04400 0760 00 0 00003 SSP F4B02940 04401 0074 00 4 05037 TSX FINDBB,IR4 GET THE SUCCESSOR BB NO. F4B02950 04402 0074 00 4 05114 TSX ENTER2,IR4 ENTER IT IN TRATBL. F4B02960 04403 0534 00 4 04212 LXA TIFBOX,IR4 F4B02970 04404 1 77777 4 04375 TXI 8CLA,IR4,-1 SET IR FOR NEXT LOOK AT TIFRD. F4B02980 04405 0500 00 1 00002 DOCAS CLA INSTAD,IR1 GET BB NO. OF BEGINNING OF DO. F4B02990 04406 0074 00 4 05037 TSX FINDBB,IR4 F4B03000 04407 0074 00 4 05114 TSX ENTER2,IR4 ENTER IT IN TRATBL. F4B03010 04410 0074 00 4 05112 TSX ENTER,IR4 ALSO ENTER BB NO. OF NEXT BB AFTER DO. F4B03020 04411 -0634 00 2 03766 SXD DOSUB,IR2 FIND APPROPRIATE DOLIST ENTRY. F4B03030 04412 0774 00 2 00001 AXT 1,IR2 F4B03040 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 23 SECTION 4, PART TWO 04413 -0534 00 4 04020 LXD TSBOX,IR4 F4B03050 04414 0500 00 2 56323 DOCOMP CLA DOLIST,IR2 F4B03060 04415 -0320 00 0 03750 ANA DMASK F4B03070 04416 0402 00 0 03766 SUB DOSUB F4B03080 04417 0100 00 0 04421 TZE *+2 F4B03090 04420 1 00002 2 04414 TXI DOCOMP,IR2,2 F4B03100 04421 0500 00 2 56322 CLA DOLIST-1,IR2 IS THIS A DO WITH OR WITHOUT AN IF. F4B03110 04422 -0320 00 0 03751 ANA TMASK F4B03120 04423 0100 00 0 04433 TZE DONOIF F4B03130 BINARY CARD NO. 9F240014 04424 0500 00 2 56323 CLA DOLIST,IR2 ENTER LOOP COUNT IN DECR. OF 1ST WORD F4B03140 04425 0767 00 0 00022 ALS 18 OF TRATBL. F4B03150 04426 0622 00 4 51651 DWIFCD STD TRATBL+4,IR4 F4B03160 04427 -0500 00 0 04426 CAL DWIFCD PUT DO WITH IF CODE IN BBTABL. F4B03170 04430 -0534 00 2 03766 DOLXD LXD DOSUB,IR2 F4B03180 04431 0630 00 2 35032 STP BBTABL,IR2 F4B03190 04432 1 77774 1 04202 TXI BEGBB,IR1,-4 GO BACK TO DO NEXT BASIC BLOCK. F4B03200 04433 -0500 00 0 04433 DONOIF CAL DONOIF PUT DO NO IF CODE IN BBTABL. F4B03210 04434 0020 00 0 04430 TRA DOLXD F4B03220 04435 0500 00 1 00002 CONDTR CLA INSTAD,IR1 IS THIS A TXI OR A TIX TO THE NEXT F4B03230 04436 0402 00 0 03745 SUB ASTRSK INSTRUCTION. F4B03240 04437 0100 00 0 04317 TZE IGNORE YES, IGNORE IT. F4B03250 04440 0500 00 1 00000 CLA INSTLC,IR1 F4B03260 04441 0402 00 1 00002 SUB INSTAD,IR1 F4B03270 04442 0100 00 0 04317 TZE IGNORE YES, IGNORE IT. F4B03280 04443 0500 00 1 00002 CLA INSTAD,IR1 GET SUCCESSOR BB NO. OF 1ST BRANCH. F4B03290 04444 0074 00 4 05037 TSX FINDBB,IR4 F4B03300 04445 0074 00 4 05114 TSX ENTER2,IR4 ENTER IT IN TRATBL. F4B03310 04446 0500 00 1 00006 CLA INSTAD+4,IR1 GET SUCCESSOR BB NO. OF 2ND BRANCH. F4B03320 04447 0074 00 4 05037 TSX FINDBB,IR4 F4B03330 04450 0074 00 4 05114 TSX ENTER2,IR4 ENTER IT IN TRATBL. F4B03340 04451 0500 00 1 00000 CLA INSTLC,IR1 PUT FORMULA NO. OF CONDITIONAL F4B03350 BINARY CARD NO. 9F240015 04452 -0534 00 4 04020 LXD TSBOX,IR4 TRANSFER IN TRATBL. F4B03360 04453 0622 00 4 51651 STD TRATBL+4,IR4 F4B03370 04454 -0500 00 0 04044 CAL PBYCOD PUT PROBABILITY CODE IN BBTABL. F4B03380 04455 0630 00 2 35032 STP BBTABL,IR2 F4B03390 04456 0500 00 0 04167 CLA D2 PUT NO. OF BRANCHES (2) IN TRATBL. F4B03400 04457 0622 00 4 51647 STD TRATBL+2,IR4 F4B03410 04460 1 77770 1 04202 TXI BEGBB,IR1,-8 GO BACK TO DO NEXT BASIC BLOCK. F4B03420 04461 0500 00 1 00003 GOTOV2 CLA INSTAA,IR1 PICK UP ADDEND OF ADDRESS OF THIS F4B03430 04462 -0734 00 4 00000 PDX 0,IR4 TAGGED TRA AND SUBTRACT ONE TO GET F4B03440 04463 2 00001 4 04465 TIX OK,IR4,1 NO. OF BRANCHES IN VECTOR. F4B03450 04464 0074 00 4 04054 TSX ERR43,IR4 THIS GO TO VECTOR HAS NO BRANCHES. F4B03460 (IN ACTUAL PRACTICE THIS STOP, F4B03470 WHICH IS THE MOST FREQUENT F4B03480 STOP IN SECTION 4, USUALLY INDI- F4B03490 CATES A FLOW ERROR CAUSED EITHER BYF4B03500 THE SOURCE PROGRAM OR BY A BUG IN F4B03510 FORTRAN, SECTIONS 1-3. THIS STOP F4B03520 OCCURS WHEN FOR ONE OF THE ABOVE F4B03530 REASONS A STRAIGHT GO TO DOES NOT F4B03540 END A BASIC BLOCK.) F4B03550 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 24 SECTION 4, PART TWO 04465 3 00001 4 04467 OK TXH *+2,IR4,1 DOES THIS GO TO VECTOR HAVE ONLY ONE F4B03560 BRANCH. F4B03570 04466 1 77774 1 04347 TXI TRACS+3,IR1,-4 YES, TREAT IT AS A STRAIGHT GO TO. F4B03580 04467 -0754 00 4 00000 PXD 0,IR4 PUT NO. OF BRANCHES IN TRATBL. F4B03590 04470 -0534 00 4 04020 LXD TSBOX,IR4 F4B03600 04471 0622 00 4 51643 STD TRATBL-2,IR4 F4B03610 04472 0622 00 0 03771 STD ERASE1 F4B03620 04473 -0500 00 0 04044 CAL PBYCOD PUT PROBABILITY CODE IN BBTABL. F4B03630 04474 0630 00 2 35032 STP BBTABL,IR2 F4B03640 04475 0500 00 1 00000 CLA INSTLC,IR1 PUT FORMULA NO. OF TAGGED TRA F4B03650 04476 0622 00 4 51645 STD TRATBL,IR4 IN TRATBL. F4B03660 04477 3 50463 1 04501 TEST4 TXH *+2,IR1,-CTTP2 F4B03670 BINARY CARD NO. 9F240016 04500 1 21760 1 04753 TXI 4TSX,IR1,CTSP2 F4B03680 04501 -3 00000 1 04753 CNTU2 TXL 4TSX,IR1,...... F4B03690 04502 0500 00 1 00006 CLA INSTAD+4,IR1 GET SUCCESSOR BB NO. OF NEXT BRANCH. F4B03700 04503 0074 00 4 05037 TSX FINDBB,IR4 F4B03710 04504 0074 00 4 05114 TSX ENTER2,IR4 ENTER IT IN TRATBL. F4B03720 04505 -0534 00 4 03771 LXD ERASE1,IR4 F4B03730 04506 2 00001 4 04510 TIX *+2,IR4,1 F4B03740 04507 1 77770 1 04202 TXI BEGBB,IR1,-8 ALL BRANCHES ENTERED. GO BACK AND DO F4B03750 NEXT BASIC BLOCK. F4B03760 04510 -0634 00 4 03771 SXD ERASE1,IR4 F4B03770 04511 1 77774 1 04477 TXI TEST4,IR1,-4 SET IR TO LOOK AT NEXT TRA IN VECTOR. F4B03780 04512 0500 00 1 00003 IF2PSE CLA INSTAA,IR1 IS THIS PSE A SENSE SWITCH TEST. F4B03790 04513 -0320 00 0 04050 ANA D34MSK F4B03800 04514 0402 00 0 04053 SUB AD16X F4B03810 04515 -0100 00 0 04317 TNZ IGNORE NO, IGNORE IT. F4B03820 04516 -0500 00 0 04044 CAL PBYCOD YES, PUT PROBABILITY CODE IN BBTABL. F4B03830 04517 0630 00 2 35032 STP BBTABL,IR2 F4B03840 04520 -0534 00 4 04020 LXD TSBOX,IR4 F4B03850 04521 0500 00 1 00000 CLA INSTLC,IR1 PUT FORMULA NO. OF THE PSE IN TRATBL. F4B03860 04522 0622 00 4 51645 STD TRATBL,IR4 F4B03870 04523 0500 00 0 04167 CLA D2 PUT NO. OF BRANCHES (2) IN TRATBL. F4B03880 04524 0622 00 4 51643 STD TRATBL-2,IR4 F4B03890 04525 0500 00 1 00012 SNSCS CLA INSTAD+8,IR1 GET BB NO. OF 2ND BRANCH. F4B03900 BINARY CARD NO. 9F240017 04526 0074 00 4 05037 TSX FINDBB,IR4 F4B03910 04527 0074 00 4 05114 TSX ENTER2,IR4 ENTER IT IN TRATBL. F4B03920 04530 0500 00 1 00006 CLA INSTAD+4,IR1 GET BB NO. OF 1ST BRANCH. F4B03930 04531 0074 00 4 05037 TSX FINDBB,IR4 F4B03940 04532 0074 00 4 05114 TSX ENTER2,IR4 ENTER IT IN TRATBL. F4B03950 04533 1 77764 1 04202 MSECOD TXI BEGBB,IR1,-12 GO BACK TO DO NEXT BASIC BLOCK. F4B03960 04534 -0500 00 0 04533 MSECAS CAL MSECOD PUT THE SENSE LIGHT CODE IN BBTABL. F4B03970 04535 0630 00 2 35032 STP BBTABL,IR2 F4B03980 04536 0500 00 1 00003 CLA INSTAA,IR1 PUT THE MSE ADDRESS IN TRATBL. F4B03990 04537 -0534 00 4 04020 LXD TSBOX,IR4 F4B04000 04540 0622 00 4 51645 STD TRATBL,IR4 F4B04010 04541 0020 00 0 04525 TRA SNSCS F4B04020 04542 -0500 00 0 04044 IF2CAS CAL PBYCOD PUT THE PROBABILITY CODE IN BBTABL. F4B04030 04543 0630 00 2 35032 STP BBTABL,IR2 F4B04040 04544 -0534 00 4 04020 LXD TSBOX,IR4 F4B04050 04545 0500 00 1 00000 CLA INSTLC,IR1 PUT FORMULA NUMBER IN TRATBL. F4B04060 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 25 SECTION 4, PART TWO 04546 0622 00 4 51645 STD TRATBL,IR4 F4B04070 04547 0500 00 0 04167 CLA D2 PUT NO. OF BRANCHES (2) IN TRATBL. F4B04080 04550 0622 00 4 51643 STD TRATBL-2,IR4 F4B04090 04551 0500 00 1 00006 CLA INSTAD+4,IR1 GET BB NO. OF 1ST BRANCH. F4B04100 04552 0074 00 4 05037 TSX FINDBB,IR4 F4B04110 04553 0074 00 4 05114 TSX ENTER2,IR4 ENTER IT IN TRATBL. F4B04120 BINARY CARD NO. 9F240018 04554 0500 00 1 00012 CLA INSTAD+8,IR1 GET BB NO. OF 2ND BRANCH. F4B04130 04555 0074 00 4 05037 TSX FINDBB,IR4 F4B04140 04556 0074 00 4 05114 TSX ENTER2,IR4 ENTER IT IN TRATBL. F4B04150 04557 1 77764 1 04202 TXI BEGBB,IR1,-12 GO BACK TO DO NEXT BASIC BLOCK. F4B04160 04560 0500 00 1 00005 IF3CAS CLA INSTOP+4,IR1 IS THIS TZE FOLLOWED BY A TPL. F4B04170 04561 -0320 00 0 03750 ANA DMASK F4B04180 04562 0402 00 0 03746 SUB TPL F4B04190 04563 0100 00 0 04565 TZE *+2 F4B04200 04564 0074 00 4 03772 IFTSX TSX ERRM4,IR4 NO, GO TO DIAGNOSTIC. F4B04210 04565 0500 00 1 00011 CLA INSTOP+8,IR1 YES, IS THIS TPL FOLLOWED BY A TRA. F4B04220 04566 -0320 00 0 03750 ANA DMASK F4B04230 04567 0402 00 0 04013 SUB TRA F4B04240 04570 -0100 00 0 04564 TNZ IFTSX NO, GO TO DIAGNOSTIC. F4B04250 04571 -0500 00 0 04044 CAL PBYCOD PUT THE PROBABILITY CODE IN BBTABL. F4B04260 04572 0630 00 2 35032 STP BBTABL,IR2 F4B04270 04573 -0534 00 4 04020 LXD TSBOX,IR4 F4B04280 04574 0500 00 1 00000 CLA INSTLC,IR1 PUT FORMULA NUMBER IN TRATBL. F4B04290 04575 0622 00 4 51645 STD TRATBL,IR4 F4B04300 04576 0500 00 0 04022 CLA D3 PUT NO. OF BRANCHES (3) IN TRATBL. F4B04310 04577 0622 00 4 51643 STD TRATBL-2,IR4 F4B04320 04600 0500 00 1 00006 CLA INSTAD+4,IR1 GET BB NO. OF POSITIVE BRANCH. F4B04330 04601 0074 00 4 05037 TSX FINDBB,IR4 F4B04340 BINARY CARD NO. 9F240019 04602 0074 00 4 05114 TSX ENTER2,IR4 ENTER IT IN TRATBL. F4B04350 04603 0500 00 1 00002 CLA INSTAD,IR1 GET BB NO. OF ZERO BRANCH. F4B04360 04604 0074 00 4 05037 TSX FINDBB,IR4 F4B04370 04605 0074 00 4 05114 TSX ENTER2,IR4 ENTER IT IN TRATBL. F4B04380 04606 0500 00 1 00012 CLA INSTAD+8,IR1 GET BB NO. OF NEGATIVE BRANCH. F4B04390 04607 0074 00 4 05037 TSX FINDBB,IR4 F4B04400 04610 0074 00 4 05114 TSX ENTER2,IR4 ENTER IT IN TRATBL. F4B04410 04611 1 77764 1 04202 TXI BEGBB,IR1,-12 GO BACK TO DO NEXT BASIC BLOCK. F4B04420 04612 -0500 00 1 00005 HPRCAS CAL INSTOP+4,IR1 IS THIS HPR FOLLOWED BY A TRA. F4B04430 04613 -0320 00 0 03750 ANA DMASK F4B04440 04614 0402 00 0 04013 SUB TRA F4B04450 04615 -0100 00 0 04317 TNZ IGNORE NO, IGNORE IT. F4B04460 04616 0500 00 1 00006 CLA INSTAD+4,IR1 YES, DOES THE TRA TRANSFER BACK TO F4B04470 04617 0402 00 1 00000 SUB INSTLC,IR1 THE HPR. F4B04480 04620 -0100 00 0 04317 TNZ IGNORE NO, IGNORE IT. F4B04490 04621 -0500 00 0 04047 CAL STOPCD YES, ITS A STOP. PUT THE STOP CODE F4B04500 04622 0630 00 2 35032 STP BBTABL,IR2 IN BBTABL. F4B04510 04623 1 77770 1 04202 TXI BEGBB,IR1,-8 GO BACK TO DO NEXT BASIC BLOCK. F4B04520 04624 0502 00 0 05167 OUT CLS FIXSTO PUT ENDMARK ON FIXDOS TABLE. F4B04530 04625 0402 00 0 03735 SUB ONE F4B04540 04626 0621 00 0 04627 STA *+1 F4B04550 04627 0601 00 0 00000 STO ...... F4B04560 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 26 SECTION 4, PART TWO BINARY CARD NO. 9F240020 04630 0600 00 2 35031 STZ BBTABL-1,IR2 PUT ENDMARK ON BBTABL. F4B04570 04631 -0634 00 2 04021 SXD BBBOX,IR2 STORE NO. OF BBS IN BBBOX. F4B04580 04632 1 77777 2 04633 TXI *+1,IR2,-1 SET TEST DECREMENT FOR FIXTRA ROUTINE. F4B04590 04633 -0634 00 2 04673 SXD FXTTST,IR2 F4B04600 F4B04610 FIXSET / NO SUBROUTINES CALLED F4B04620 IN THE CASE OF SET ENTRIES FOR RESETTING THE INDEXES F4B04630 FOR DOS WITH IFS, THE INDEX TO BE RESET IS FOUND IN TRATBL. F4B04640 BUT AS THE KNOWLEDGE THAT SETTING IS NECESSARY MAY OCCUR F4B04650 IN PASS2 BEFORE THE ENTRY IN TRATBL TO BE RESET HAS BEEN F4B04660 MADE, THE DESIRED COMPLEMENT OF THE ADDRESS OF THE DO F4B04670 INDEX IS NOT AVAILABLE FOR INSERTION IN SET. INSTEAD PASS2 F4B04680 PUTS THE BASIC BLOCK NUMBER OF THE END OF THE DO TO BE RESETF4B04690 INTO SET TABLE AND SAVES THE RELATIVE ADDRESSES OF SUCH F4B04700 SET ENTRIES IN A MINOR TABLE CALLED FIXDOS. NOW THAT PASS2 F4B04710 IS OVER AND TRATBL IS FULLY BUILT UP, THIS ROUTINE SCANS F4B04720 FIXDOS TO GET AT THE SET ENTRIES PERTAINING TO THE DO RESET F4B04730 CASE AND REPLACES THE DECREMENT PART OF SUCH SET ENTRIES F4B04740 WITH THE DESIRED COMPLEMENT OF THE ADDRESS OF THE DO F4B04750 INDEX WORD IN TRATBL. F4B04760 04634 0774 00 1 00000 AXT 0,IR1 F4B04770 04635 0500 00 1 71264 FIXSET CLA FIXDOS,IR1 GET NEXT FIXDOS ENTRY. F4B04780 04636 -0120 00 0 04646 TMI CLEARN ARE ALL FIXDOS FINISHED. YES. F4B04790 04637 -0734 00 4 00000 PDX 0,IR4 NO, GET APPROPRIATE SET ENTRY. F4B04800 04640 0500 00 4 32407 CLA SET,IR4 F4B04810 04641 -0734 00 2 00000 PDX 0,IR2 CREATE COMPLEMENT OF ADDRESS OF 3RD F4B04820 04642 0500 00 2 35032 CLA BBTABL,IR2 WORD OF TRATBL FOR THE DO WHICH IS F4B04830 04643 0400 00 0 04026 ADD CTRA TO BE RESET. F4B04840 04644 0622 00 4 32407 STD SET,IR4 STORE THIS IN DECR. OF SET TABLE. F4B04850 04645 1 77777 1 04635 TXI FIXSET,IR1,-1 SET IR TO PICK UP NEXT FIXDOS ENTRY. F4B04860 F4B04870 CLEARN / NO SUBROUTINES CALLED F4B04880 THIS ROUTINE CLEARS NLIST AND THE DUMMY SENSE LIGHTS F4B04890 TO ZEROS IN PREPARATION FOR SIMULATION. F4B04900 04646 0774 00 1 00001 CLEARN AXT 1,IR1 CLEAR THE NLIST TO ZEROS. F4B04910 04647 -0520 00 1 73574 NZT NLIST,IR1 F4B04920 04650 0020 00 0 04653 TRA CLEARS F4B04930 04651 0600 00 1 73574 STZ NLIST,IR1 F4B04940 04652 1 00001 1 04647 TXI CLEARN+1,IR1,1 F4B04950 04653 0600 00 0 73574 CLEARS STZ NLIST CLEAR THE DUMMY SENSE LIGHTS. F4B04960 04654 0600 00 0 73575 STZ NLIST+1 F4B04970 04655 0600 00 0 73576 STZ NLIST+2 F4B04980 BINARY CARD NO. 9F240021 04656 0600 00 0 73577 STZ NLIST+3 F4B04990 04657 0502 00 0 03742 CLS ASPRS ARE THERE GOTONS BUT NO ASSIGNS F4B05000 04660 0400 00 0 04046 ADD GTNCD IN SOURCE PROGRAM. F4B05010 04661 0120 00 0 04663 TPL *+2 NO F4B05020 04662 0074 00 4 04062 TSX ERR41,IR4 YES, GO TO DIAGNOSTIC. F4B05030 F4B05040 FIXTRA / NO SUBROUTINES CALLED F4B05050 THIS ROUTINE SCANS BBTABL SEARCHING FOR BASIC BLOCKS F4B05060 THAT END WITH THE PROBABILITY ENDING. WHEN IT FINDS ONE IT F4B05070 TRIES TO FIND AN ASSOCIATED SET OF PROBABILITY STATEMENTS INF4B05080 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 27 SECTION 4, PART TWO FRET. IF THERE IS A FRET ENTRY FOR THIS BASIC BLOCK ENDING,F4B05090 EACH PROBABILITY STATEMENT IN THE ENTRY IS INSERTED IN F4B05100 TRATBL NEXT TO THE BRANCH IT REFERS TO. IF THERE IS NO F4B05110 FREQUENCY STATEMENT FOR THIS ENDING, FORTRAN ASSUMES THAT F4B05120 THE BRANCHES ARE EQUIPROBABLE AND CREATES PROBABILITY F4B05130 STATEMENTS WHICH REFLECT THIS IDEA AND INSERTS THEM NEXT F4B05140 TO THE PROPER ENTRIES IN TRATBL. F4B05150 04663 0520 00 0 03770 ZET FRTBOX IS FRET EMPTY. F4B05160 04664 0020 00 0 04667 TRA *+3 NO. F4B05170 04665 0500 00 0 04717 CLA NOFREQ YES, PREVENT LOOKING AT FRET. F4B05180 04666 0621 00 0 04700 STA BUMPBB-1 F4B05190 04667 -0535 00 4 03770 LDC FRTBOX,IR4 SET TEST DECREMENTS WITH COMPLEMENT F4B05200 04670 -0634 00 4 04707 SXD FRTST1,IR4 OF LENGTH OF FRET. F4B05210 04671 -0634 00 4 04724 SXD FRTST2,IR4 F4B05220 04672 0774 00 6 00000 AXT 0,IR2+IR4 F4B05230 04673 3 00000 2 04064 FXTTST TXH LOAD,IR2,...... F4B05240 04674 -0500 00 2 35032 CAL BBTABL,IR2 F4B05250 04675 -0734 00 1 00000 PDX 0,IR1 PUT TRATBL INDEX IN IR. F4B05260 04676 -0320 00 0 03747 ANA PMASK DOES THIS BB HAVE PROBABILITY ENDING. F4B05270 04677 0402 00 0 04044 SUB PBYCOD F4B05280 04700 0100 00 0 04702 TZE *+2 YES. F4B05290 04701 1 00001 2 04673 BUMPBB TXI FXTTST,IR2,1 SET IR TO PICK UP NEXT BBTABL ENTRY. F4B05300 04702 0500 00 4 64163 CLA FRET,IR4 IS THERE A FREQUENCY STATEMENT FOR F4B05310 04703 0767 00 0 00022 FINDFQ ALS 18 THIS ENDING. F4B05320 BINARY CARD NO. 9F240022 04704 0400 00 1 51645 ADD TRATBL,IR1 F4B05330 04705 -0100 00 0 04717 TNZ NOFREQ NO. F4B05340 04706 1 77777 4 04707 BUMPFR TXI FRTST1,IR4,-1 YES, SET IR TO PICK UP NEXT FRET WORD. F4B05350 04707 -3 00000 4 04714 FRTST1 TXL FRTHRU,IR4,...... HAS ALL OF FRET BEEN EXAMINED. F4B05360 04710 0500 00 4 64163 CLA FRET,IR4 F4B05370 04711 -0120 00 0 04701 TMI BUMPBB IS THIS THE START OF NEXT FRET ENTRY. F4B05380 04712 0601 00 1 51645 STO TRATBL,IR1 NO, PLACE PROBABILITY IN TRATBL. F4B05390 04713 1 00002 1 04706 TXI BUMPFR,IR1,2 SET IR TO PICK UP NEXT TRATBL ENTRY. F4B05400 04714 0500 00 0 04717 FRTHRU CLA NOFREQ PREVENT FURTHER LOOKING AT FRET. F4B05410 04715 0621 00 0 04700 STA BUMPBB-1 F4B05420 04716 1 00001 2 04673 TXI FXTTST,IR2,1 SET IR TO PICK UP NEXT BBTABL ENTRY. F4B05430 04717 -0120 00 0 04727 NOFREQ TMI EQPROB IS FREQ. STATEMENT HIGHER THAN TRATBL F4B05440 ENTRY. YES. F4B05450 04720 1 77777 4 04724 TXI FRTST2,IR4,-1 NO. F4B05460 04721 0500 00 4 64163 NXTFRT CLA FRET,IR4 F4B05470 04722 -0120 00 0 04703 TMI FINDFQ F4B05480 04723 1 77777 4 04724 TXI FRTST2,IR4,-1 F4B05490 04724 3 00000 4 04721 FRTST2 TXH NXTFRT,IR4,...... HAS ALL OF FRET BEEN EXAMINED. F4B05500 04725 0500 00 0 04717 CLA NOFREQ PREVENT FURTHER LOOKING AT FRET. F4B05510 04726 0621 00 0 04700 STA BUMPBB-1 F4B05520 THERE IS NO FREQUENCY STATEMENT FOR F4B05530 THIS PROBABILITY ENDING, THEREFORE F4B05540 FORTRAN ASSUMES THE BRANCHES TO BE F4B05550 EQUIPROBABLE. F4B05560 04727 0500 00 1 51643 EQPROB CLA TRATBL-2,IR1 PUT NO. OF BRANCHES IN IR TO COUNT F4B05570 04730 0634 00 4 04745 SXA REST4,IR4 LOOP AHEAD. F4B05580 04731 -0734 00 4 00000 PDX 0,IR4 F4B05590 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 28 SECTION 4, PART TWO BINARY CARD NO. 9F240023 04732 0500 00 0 03737 CLA D1 DIVIDE ONE BY NO. OF BRANCHES TO F4B05600 04733 0560 00 0 03734 LDQ ZERO OBTAIN FRACTION OF EQUIPROBABILITY. F4B05610 04734 0221 00 1 51643 DVP TRATBL-2,IR1 F4B05620 04735 0760 00 0 00012 DCT F4B05630 04736 0074 00 4 04063 TSX ERR40,IR4 FLOW OR MACHINE ERROR, GO TO DIAG. F4B05640 IR1 IS SET IN CLEARN AND MODIFIED F4B05650 BY FRTHRU-1. F4B05660 04737 -0600 00 0 03771 STQ ERASE1 F4B05670 04740 -0754 00 0 00000 ZAC F4B05680 04741 0400 00 0 03771 ADDPR ADD ERASE1 ADD PROBABILITIES TO GET CUMULATIVE F4B05690 PROBABILITY. F4B05700 04742 0601 00 1 51645 STO TRATBL,IR1 STORE CUMULATIVE PROBABILITY IN TRATBL F4B05710 04743 -2 00001 4 04745 TNX REST4,IR4,1 HAVE ALL BRANCHES BEEN DONE. YES. F4B05720 04744 1 00002 1 04741 TXI ADDPR,IR1,2 NO, SET IR FOR NEXT STORE IN TRATBL. F4B05730 04745 0774 00 4 00000 REST4 AXT ......,IR4 F4B05740 04746 0500 00 0 03753 CLA POSMAX STORE HIGHEST NUMBER AS LAST F4B05750 04747 0601 00 1 51645 STO TRATBL,IR1 CUMULATIVE PROBABILITY. F4B05760 04750 1 00001 2 04673 TXI FXTTST,IR2,1 LOOK FOR NEXT PROBABILITY ENDING. F4B05770 F4B05780 04751 0074 00 4 04755 3TSX TSX RDCIT2,IR4 CALLERS FOR CIT INPUT SUBROUTINE. F4B05790 04752 0020 00 0 04205 TRA TEST3 F4B05800 04753 0074 00 4 04755 4TSX TSX RDCIT2,IR4 F4B05810 04754 0020 00 0 04477 TRA TEST4 F4B05820 F4B05830 RDCIT2 / A SUBROUTINE CALLED BY PASS2 F4B05840 WITH THE EXCEPTION OF A FEW INSTRUCTIONS THIS ROUTINE F4B05850 IS EXACTLY LIKE RDCIT1. FOR COMMENTS, SEE RDCIT1 ROUTINE. F4B05860 04755 0634 00 2 05007 RDCIT2 SXA S2IR2,IR2 F4B05870 04756 0634 00 4 05010 SXA S2IR4,IR4 F4B05880 04757 0534 00 2 04004 LXA CTRD1,IR2 F4B05890 BINARY CARD NO. 9F240024 04760 1 00000 2 04761 IOAJ2 TXI *+1,IR2,...... F4B05900 04761 3 27314 2 04764 TXH *+3,IR2,CTTP2-1 F4B05910 04762 0634 00 2 04004 SXA CTRD1,IR2 F4B05920 04763 0020 00 0 04766 TRA *+3 F4B05930 04764 0774 00 2 05335 RINT2 AXT CTBOT,IR2 F4B05940 04765 0634 00 2 04004 SXA CTRD1,IR2 F4B05950 04766 0074 00 4 73606 TSX (TAPE),IR4 F4B05960 04767 0 40004 0 04004 CTRD1,,(RBEP) F4B05970 04770 0 00004 0 03773 CTLBL,,CTAPE F4B05980 04771 0534 00 2 73676 LXA (SCHU)+CTAPE,IR2 F4B05990 04772 -3 00000 2 05020 TXL LAST2,IR2,0 F4B06000 04773 -3 05335 2 05012 MTST2 TXL MOVE2,IR2,CTBOT F4B06010 04774 -0634 00 2 04773 SXD *-1,IR2 F4B06020 04775 0774 00 2 05335 AJBF2 AXT CTBOT,IR2 F4B06030 04776 1 00000 2 04777 PRAJ2 TXI *+1,IR2,...... F4B06040 04777 0634 00 2 04775 SXA *-2,IR2 F4B06050 05000 0754 00 2 00000 PXA ,IR2 F4B06060 05001 0737 00 2 00000 PAC ,IR2 F4B06070 05002 3 50462 2 05005 TXH *+3,IR2,-CTTP2-1 F4B06080 05003 0522 00 0 04764 XEC RINT2 F4B06090 05004 0020 00 0 04776 TRA PRAJ2 F4B06100 05005 -0634 00 2 04207 SXD BEGN2,IR2 F4B06110 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 29 SECTION 4, PART TWO BINARY CARD NO. 9F240025 05006 -0634 00 2 04501 SXD CNTU2,IR2 F4B06120 05007 0774 00 2 00000 S2IR2 AXT ......,IR2 F4B06130 05010 0774 00 4 00000 S2IR4 AXT ......,IR4 F4B06140 05011 0020 00 4 00001 TRA 1,IR4 F4B06150 05012 -0634 00 2 04773 MOVE2 SXD MTST2,IR2 F4B06160 05013 0774 00 2 00010 AXT ZONSZ,IR2 F4B06170 05014 0500 00 2 05345 CLA CTBOT+ZONSZ,IR2 F4B06180 05015 0601 00 2 27325 STO CTTP2+ZONSZ,IR2 F4B06190 05016 2 00001 2 05014 TIX *-2,IR2,1 F4B06200 05017 0020 00 0 04775 TRA AJBF2 F4B06210 05020 -0774 00 2 00000 LAST2 AXC ......,IR2 F4B06220 05021 -0634 00 2 04207 SXD BEGN2,IR2 F4B06230 05022 -0634 00 2 04501 SXD CNTU2,IR2 F4B06240 05023 0774 00 2 00000 AXT 0,IR2 F4B06250 05024 0500 00 0 03753 CLA POSMAX F4B06260 05025 0601 60 0 05020 STO* LAST2 F4B06270 05026 0500 00 0 04023 CLA EXIT2 F4B06280 05027 0621 00 0 04207 STA BEGN2 F4B06290 05030 0621 00 0 04501 STA CNTU2 F4B06300 05031 0621 00 0 04206 STA BEGN2-1 F4B06310 05032 0621 00 0 04500 STA CNTU2-1 F4B06320 05033 0074 00 4 73606 TSX (TAPE),IR4 F4B06330 BINARY CARD NO. 9F240026 05034 0 20000 0 04011 RWND,,(SKBP) F4B06340 05035 0 00004 0 03773 CTLBL,,FTAPE4 F4B06350 05036 0020 00 0 05007 TRA S2IR2 F4B06360 F4B06370 FINDBB / A SUBROUTINE CALLED BY PASS2 F4B06380 THIS ROUTINE SEARCHES BBLIST BY BINARY SEARCH FOR THE F4B06390 ARGUMENT IN THE AC AND RETURNS TO 1,IR4 WITH ITS BASIC BLOCKF4B06400 NUMBER IN THE DECREMENT OF THE AC. F4B06410 05037 0601 00 0 03757 FINDBB STO ARG F4B06420 05040 0500 00 0 03754 CLA ANTEBB INITIALIZE FLOOR AND ROOF. F4B06430 05041 0601 00 0 03760 STO FLOOR F4B06440 05042 0500 00 0 03756 CLA NTH F4B06450 05043 0601 00 0 03761 STO ROOF F4B06460 05044 0500 00 0 03761 LUKUP CLA ROOF COMPUTE ADDRESS OF NEXT TABLE MEMBER F4B06470 05045 0400 00 0 03760 ADD FLOOR TO BE COMPARED WITH ARGUMENT. F4B06480 05046 0771 00 0 00001 ARS 1 (FIND MIDPOINT OF UNSEARCHED AREA F4B06490 05047 0601 00 0 03762 STO TRYME OF TABLE.) F4B06500 05050 0500 60 0 03762 CLA* TRYME COMPARE ARGUMENT WITH TABLE MEMBER. F4B06510 05051 0340 00 0 03757 CAS ARG F4B06520 05052 0020 00 0 05057 TRA LOW SEARCH LOWER. F4B06530 05053 0020 00 0 05066 TRA FOUND ARGUMENT FOUND. F4B06540 05054 0500 00 0 03762 CLA TRYME SEARCH HIGHER. F4B06550 05055 0601 00 0 03760 STO FLOOR F4B06560 05056 0020 00 0 05044 TRA LUKUP F4B06570 05057 0500 00 0 03762 LOW CLA TRYME F4B06580 05060 0402 00 0 03761 SUB ROOF F4B06590 05061 0100 00 0 05065 TZE FLOERR THIS BB IS NOT IN BBLIST. F4B06600 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 30 SECTION 4, PART TWO BINARY CARD NO. 9F240027 05062 0500 00 0 03762 CLA TRYME F4B06610 05063 0601 00 0 03761 STO ROOF F4B06620 05064 0020 00 0 05045 TRA LUKUP+1 F4B06630 05065 0074 00 4 04055 FLOERR TSX ERR44,IR4 FLOW ERROR, GOTO DIAGNOSTIC. F4B06640 05066 0500 00 0 03755 FOUND CLA 1ST COMPUTE BB NO. OF THIS BASIC BLOCK F4B06650 05067 0402 00 0 03762 SUB TRYME AND RETURN WITH IT IN THE DECREMENT F4B06660 05070 0767 00 0 00022 ALS 18 OF THE AC. F4B06670 05071 0020 00 4 00001 TRA 1,IR4 F4B06680 F4B06690 SERCHN / A SUBROUTINE CALLED BY PASS2 F4B06700 THIS ROUTINE MAKES ENTRIES IN THE NLIST. IT IS CALLED F4B06710 BY TSX SERCHN, IR4 WITH THE ARGUMENT IN THE AC. IT SEARCHESF4B06720 THE CURRENT NLIST TO SEE IF THE ARGUMENT IS ALREADY IN THE F4B06730 TABLE. IF NOT, IT IS ENTERED. IN EITHER CASE, SERCHN RE- F4B06740 TURNS TO 1,IR4 WITH THE ORDINAL NUMBER OF THE ARGUMENT N IN F4B06750 THE DECREMENT OF THE AC. F4B06760 A TEST FOR OVERFLOW OF TABLE IS ALSO MADE IN SERCHN. F4B06770 IF NLIST EXCEEDS ITS PRESCRIBED LIMIT, THE FORTRAN DIAGNOS- F4B06780 TIC IS CALLED IN TO ADVISE THE PROGRAMMER TO REWRITE HIS F4B06790 PROGRAM USING FEWER NS IN ASSIGN AND ASSIGN GO TO F4B06800 STATEMENTS. F4B06810 05072 0634 00 4 05110 SERCHN SXA HOLD4,IR4 SAVE INDEX REGISTER. F4B06820 05073 0774 00 4 00001 AXT 1,IR4 INITIALIZE SEARCHING INDEX REGISTER. F4B06830 05074 0601 00 0 03757 STO ARG F4B06840 05075 0500 00 4 73574 NLOOP CLA NLIST,IR4 GET NEXT N. F4B06850 05076 0100 00 0 05102 TZE ENTERN HAS ALL OF NLIST BEEN SEARCHED. F4B06860 05077 0402 00 0 03757 SUB ARG COMPARE THIS N WITH ARGUMENT. F4B06870 05100 0100 00 0 05107 TZE NFOUND ARGUMENT IS ALREADY IN NLIST. F4B06880 05101 1 00001 4 05075 TXI NLOOP,IR4,1 SET IR FOR LOOK AT NEXT N. F4B06890 05102 -3 00257 4 05104 ENTERN TXL *+2,IR4,NMAX HAS NLIST OVERFLOWED. F4B06900 05103 0074 00 4 04056 TSX ERR45,IR4 YES, GO TO DIAGNOSTIC F4B06910 05104 0500 00 0 03757 CLA ARG NO, ENTER NEW N. F4B06920 05105 0601 00 4 73574 STO NLIST,IR4 F4B06930 05106 0600 00 4 73573 STZ NLIST-1,IR4 STORE NEW ENDMARK. F4B06940 05107 -0754 00 4 00000 NFOUND PXD 0,IR4 PUT INDEX FOR N INTO AC. F4B06950 BINARY CARD NO. 9F240028 05110 0774 00 4 00000 HOLD4 AXT ......,IR4 RESTORE INDEX REGISTER. F4B06960 05111 0020 00 4 00001 TRA 1,IR4 RETURN TO MAIN ROUTINE. F4B06970 F4B06980 ENTER / A SUBROUTINE CALLED BY PASS2 F4B06990 THIS SUBROUTINE HAS TWO JOBS. FIRST IT MAKES THE PRIN-F4B07000 CIPLE ENTRIES FOR PASS2 IN TRATBL, THAT IS, IT ENTERS SUC- F4B07010 CESSOR BASIC BLOCK NUMBERS. SECOND, IT ASKS WHETHER THE F4B07020 SUCCESSOR BASIC BLOCK JUST ENTERED IS THE NORMAL ENTRANCE F4B07030 TO ANY DOS WITH IFS AND WHETHER THOSE DOS ARE BEING ENTERED F4B07040 FROM OUTSIDE THEIR RANGE. IF NOT, THE ROUTINE RETURNS TO F4B07050 1,IR4. IF SO, IT ENTERS THE BASIC BLOCK NUMBERS OF THE ENDSF4B07060 OF THE DOS TO BE RESET IN SET AND THE RELATIVE ADDRESSES OF F4B07070 THOSE SET ENTRIES IN FIXDOS. F4B07080 05112 -0754 00 2 00000 ENTER PXD 0,IR2 ADD ONE TO CURRENT BB NO. TO GET NEXT F4B07090 05113 0400 00 0 03737 ADD D1 BB NO. F4B07100 05114 0634 00 4 05136 ENTER2 SXA SAVE4,IR4 F4B07110 05115 -0534 00 4 04020 LXD TSBOX,IR4 F4B07120 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 31 SECTION 4, PART TWO 05116 -3 14612 4 05120 TXL *+2,IR4,TRAMAX HAS TRATBL OVERFLOWED. F4B07130 05117 0074 00 4 04057 TSX ERR46,IR4 YES, GO TO DIAGNOSTIC F4B07140 05120 0622 00 4 51644 STD TRATBL-1,IR4 ENTER SUCCESSOR BB NO. IN DECREMENT F4B07150 OF 2ND WORD OF TRATBL. F4B07160 05121 1 00002 4 05122 TXI *+1,IR4,2 SET IR FOR NEXT TRATBL ENTRY. F4B07170 05122 -0634 00 4 04020 SXD TSBOX,IR4 F4B07180 05123 0634 00 1 05135 SETDO SXA SAVE1,IR1 F4B07190 05124 0534 00 1 04020 LXA TSBOX,IR1 F4B07200 05125 0774 00 4 00001 AXT 1,IR4 F4B07210 05126 0601 00 0 03757 STO ARG F4B07220 05127 0500 00 0 03757 FDLOOP CLA ARG IS THE SUCCESSOR BB JUST ENTERED ABOVE F4B07230 05130 -0501 00 0 03751 ORA TMASK THE NORMAL ENTRANCE TO A DO WITH F4B07240 05131 0340 00 4 56322 CAS DOLIST-1,IR4 AN IF. F4B07250 05132 1 00002 4 05131 TXI *-1,IR4,2 F4B07260 05133 0020 00 0 05140 TRA FIXDO YES. F4B07270 05134 0634 00 1 04020 SXA TSBOX,IR1 NO, RETURN TO MAIN ROUTINE. F4B07280 05135 0774 00 1 00000 SAVE1 AXT ......,IR1 F4B07290 BINARY CARD NO. 9F240029 05136 0774 00 4 00000 SAVE4 AXT ......,IR4 F4B07300 05137 0020 00 4 00001 TRA 1,IR4 F4B07310 05140 -0754 00 2 00000 FIXDO PXD 0,IR2 IS DO ENTERED FROM OUTSIDE THE RANGE. F4B07320 05141 -0501 00 0 03751 ORA TMASK F4B07330 05142 0402 00 4 56322 SUB DOLIST-1,IR4 F4B07340 05143 -0120 00 0 05151 TMI ENTSET YES. (FROM BEFORE DO RANGE) F4B07350 05144 -0754 00 2 00000 PXD 0,IR2 F4B07360 05145 0340 00 4 56323 CAS DOLIST,IR4 F4B07370 05146 0020 00 0 05151 TRA ENTSET YES. (FROM AFTER DO RANGE) F4B07380 05147 1 00002 4 05127 TXI FDLOOP,IR4,2 NO, IT IS ENTERED FROM INSIDE THE DO F4B07390 05150 1 00002 4 05127 TXI FDLOOP,IR4,2 RANGE AND IS THEREFORE NOT RESET. F4B07400 SEE IF ANY MORE DOS WITH IFS BEGIN F4B07410 AT THIS POINT. F4B07420 05151 -3 02567 1 05153 ENTSET TXL *+2,IR1,SETMAX HAS THE SET TABLE OVERFLOWED. F4B07430 05152 0074 00 4 04060 SETTSX TSX ERR47,IR4 YES, GO TO DIAGNOSTIC. F4B07440 05153 0500 00 4 56323 CLA DOLIST,IR4 ENTER BB NO. OF END OF DO TO BE RESET F4B07450 05154 0601 00 1 32407 STO SET,IR1 IN DECREMENT OF SET TABLE. F4B07460 05155 0500 00 0 03735 CLA ONE ENTER A ONE IN ADDRESS PORTION OF F4B07470 05156 0621 00 1 32407 STA SET,IR1 SET TABLE. F4B07480 05157 0500 00 0 05167 CLA FIXSTO SET FIXSTO INSTRUCTION TO STORE F4B07490 05160 0400 00 0 03735 ADD ONE NEXT FIXDOS ENTRY. F4B07500 05161 0601 00 0 05167 STO FIXSTO F4B07510 05162 -0320 00 0 04017 ANA ADMASK HAS FIXDOS TABLE OVERFLOWED. F4B07520 05163 0402 00 0 04027 SUB FIXLIM F4B07530 BINARY CARD NO. 9F240030 05164 -0120 00 0 05166 TMI *+2 F4B07540 05165 0074 00 4 04061 TSX ERR48,IR4 YES, GO TO DIAGNOSTIC F4B07550 05166 -0754 00 1 00000 PXD 0,IR1 NO, ENTER RELATIVE ADDRESS OF CORRES- F4B07560 05167 0601 00 0 71263 FIXSTO STO FIXDOS-1 PONDING SET ENTRY IN DECR. OF F4B07570 FIXDOS TABLE. F4B07580 05170 1 00001 1 05171 TXI *+1,IR1,1 SET INDEX REGISTER FOR NEXT SET ENTRY. F4B07590 05171 1 00002 4 05127 FENCE TXI FDLOOP,IR4,2 SEE IF ANY MORE DOS WITH IFS BEGIN AT F4B07600 THIS POINT. F4B07610 05230 END27 SYN *+30 F4B07620 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 32 SECTION 4, PART TWO BINARY CARD NO. TRA77777 77777 TCD -1 $F4B07625 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 33 SECTION 4, PART THREE SECTION 4 - PART 3 OF 3 F4C00010 F4C00020 00102 ORG SYSCUR $F4C00030 BINARY CARD NO. 9F250000 00102 112602050000 BCI 1,9F2500 $F4C00040 73666 ORG (LODR) $F4C00050 BINARY CARD NO. 9F250001 73666 1 00372 0 04055 TXI SIMUL,,250 F4C00070 F4C00090 CONSTANTS AND VARIABLES USED IN PART 3 ONLY. F4C00100 04022 ORG D3 F4C00110 BINARY CARD NO. 9F250002 04022 +100000000000 CODEMK OCT 100000000000 F4C00120 04023 +321702174347 RAND1 OCT 321702174347 F4C00130 04024 +000000000001 RAND2 OCT 1 F4C00140 03757 SIMBOX SYN ARG F4C00150 04025 +000000000011 NINE DEC 9 F4C00160 04026 0 77400 0 00000 WRDEC1 PZE 0,0,-TGBFSZ F4C00170 04027 0 77000 0 00000 WRDEC2 PZE 0,0,-2*TGBFSZ F4C00180 00400 TGBFSZ SYN 256 F4C00190 04030 0 00000 0 01000 TAGSIZ PZE 2*TGBFSZ F4C00200 04031 0 00000 0 23211 TAGMAX PZE CMTL+1 F4C00210 04032 0 00000 0 04534 EXIT3 PZE FINAL EXIT ADDRESS FROM TAGPAS F4C00220 04033 0020 00 0 04601 WREXIT TRA LSTCHK F4C00230 04034 +000033000000 TAGBOX OCT 33000000 F4C00240 04035 +000000777770 TAPMSK OCT 777770 F4C00250 04036 +377770000000 14ONES OCT 377770000000 F4C00260 04037 +037777037777 BBMASK OCT 37777037777 F4C00270 04040 +036721000000 OCT 36721000000 LXA F4C00280 04041 +036731000000 OCT 36731000000 TXI F4C00290 04042 +033167000000 OCT 33167000000 TIX F4C00300 04043 +036747000000 OCT 36747000000 LXP F4C00310 04044 +042524000000 OCT 42524000000 DED F4C00320 04045 +036724000000 OCT 36724000000 LXD F4C00330 04046 +072167000000 OCT 72167000000 PAX F4C00340 04047 +072467000000 OPCON OCT 72467000000 PDX F4C00350 BINARY CARD NO. 9F250003 04050 0 00000 0 00000 CELL ...... F4C00360 F4C00370 DSC CONTROL WORDS FOR READING AND WRITING TAPES IN PART 3. F4C00380 04051 3 00400 0 46223 WRITE1 IORT TAG,,TGBFSZ IO COMMANDS FOR WRITING F4C00390 04052 3 00400 0 46623 WRITE2 IORT TAG+TGBFSZ,,TGBFSZ TAG. F4C00400 04053 -1 00000 0 47223 WRITBB IOCT MIRROR,0,...... $F4C00410 04054 1 77770 0 73603 ERR49 TXI (DIAG),,-8 TAG IS TOO LONG. F4C00420 F4C00430 SIMUL / NO SUBROUTINES CALLED F4C00440 IT IS IN THIS ROUTINE THAT THE FLOW OF THE OBJECT F4C00450 PROGRAM IS SIMULATED. SIMULATION BEGINS WITH BASIC BLOCK 0.F4C00460 FIRST ANY SETTINGS THAT ARE MADE IN THIS BASIC BLOCK (I.E., F4C00470 SETTING ASSIGNED GO TO ADDRESSES, SENSE LIGHTS OR DO WITH IFF4C00480 INDEXES) ARE SET. THEN DEPENDING ON HOW THE BASIC BLOCK F4C00490 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 34 SECTION 4, PART THREE ENDS THE PROPER SUCCESSOR BASIC BLOCK IS CHOSEN AND THE F4C00500 FREQUENCY COUNTER FOR THAT PATH IS INCREMENTED BY ONE. THENF4C00510 ANY SETTINGS MADE IN THAT SUCCESSOR BASIC BLOCK ARE SET AND F4C00520 ITS SUCCESSOR IS CHOSEN, AND SO ON UNTIL SIMULATION IS OVER.F4C00530 04055 0500 00 0 04020 SIMUL CLA TSBOX MULTIPLY NO. OF BRANCHES IN OBJECT F4C00540 04056 0771 00 0 00014 ARS 12 PROGRAM (NO. OF TRATBL ENTRIES) BY F4C00550 04057 0601 00 0 03757 STO SIMBOX 128 TO GET NO. OF BRANCHES TO BE F4C00560 SIMULATED. F4C00570 04060 0020 00 0 04746 TRA STSNS (32)F4C00580 04061 0500 00 0 03757 COUNT CLA SIMBOX LOWER SIMULATION COUNT. F4C00590 04062 0402 00 0 03735 SUB ONE F4C00600 04063 -0120 00 0 04171 TMI DODOS IS SIMULATION FINISHED. YES. F4C00610 04064 0601 00 0 03757 STO SIMBOX NO, CONTINUE. F4C00620 04065 0500 00 1 35032 CLA BBTABL,IR1 PICK UP SUCCESSOR BASIC BLOCK. F4C00630 04066 0767 00 0 00022 ALS 18 SET TEST DECREMENT WITH RELATIVE AD- F4C00640 04067 0622 00 0 04072 STD SETTST DRESS OF 1ST SET ENTRY FOR THIS BB. F4C00650 04070 0500 00 1 35031 CLA BBTABL-1,IR1 LOAD IR WITH RELATIVE ADDRESS OF 1ST F4C00660 04071 0734 00 2 00000 PAX 0,IR2 SET ENTRY FOR NEXT BB. F4C00670 04072 -3 00000 2 04100 SETTST TXL DECODE,IR2,...... HAVE ALL SETS BEEN SET IN THIS BB. YES F4C00680 04073 0500 00 2 32410 CLA SET+1,IR2 NO, PICK UP NEXT SET ENTRY AND MAKE F4C00690 04074 -0734 00 4 00000 PDX 0,IR4 APPROPRIATE SETTING. F4C00700 04075 0767 00 0 00022 ALS 18 F4C00710 BINARY CARD NO. 9F250004 04076 0622 00 4 00000 STD 0,IR4 F4C00720 04077 1 77777 2 04072 TXI SETTST,IR2,-1 SET IR TO PICK UP NEXT SET ENTRY. F4C00730 04100 -0500 00 1 35032 DECODE CAL BBTABL,IR1 LOAD IR WITH RELATIVE ADDRESS OF 1ST F4C00740 04101 -0734 00 2 00000 PDX 0,IR2 TRATBL WORD FOR THIS BB. F4C00750 04102 0402 00 0 04022 SUB CODEMK HOW DOES THIS BASIC BLOCK END. F4C00760 04103 -0120 00 0 04143 TMI DOWIF DO WITH IF. F4C00770 04104 0402 00 0 04022 SUB CODEMK F4C00780 04105 -0120 00 0 04134 TMI MSECSE SENSE LIGHT. F4C00790 04106 0402 00 0 04022 SUB CODEMK F4C00800 04107 -0120 00 0 04152 TMI PRBYCS PROBABILITY. F4C00810 04110 0402 00 0 04022 SUB CODEMK F4C00820 04111 -0120 00 0 04160 TMI FLOCNT CERTAINTY. F4C00830 04112 0402 00 0 04022 SUB CODEMK F4C00840 04113 -0120 00 0 04151 TMI TROUT DO WITHOUT IF. TAKE EXIT FROM LOOP. F4C00850 04114 0402 00 0 04022 SUB CODEMK (LOOP COUNT WILL BE INCLUDED LATER) F4C00860 04115 -0120 00 0 04117 TMI GOTON3 GO TO N. F4C00870 04116 0020 00 0 04060 TRA COUNT-1 STOP. GO BACK TO BASIC BLOCK NO. 0. F4C00880 04117 0500 00 2 51645 GOTON3 CLA TRATBL,IR2 LOAD IR WITH RELATIVE ADDRESS OF NLIST F4C00890 04120 -0734 00 4 00000 PDX 0,IR4 ENTRY FOR THIS BB. F4C00900 04121 0500 00 1 35031 CLA BBTABL-1,IR1 SET TEST DECREMENT WITH RELATIVE ADDR. F4C00910 04122 0622 00 0 04130 STD NTEST OF 1ST TRATBL WORD FOR NEXT BB. F4C00920 04123 0500 00 2 51644 NLOOP2 CLA TRATBL-1,IR2 IS THIS THE TRATBL ENTRY WHICH COR- F4C00930 BINARY CARD NO. 9F250005 04124 -0320 00 0 03750 ANA DMASK RESPONDS TO THE SUCCESSOR BB F4C00940 04125 0402 00 4 73574 SUB NLIST,IR4 THAT HAS BEEN SET. F4C00950 04126 0100 00 0 04160 TZE FLOCNT YES. F4C00960 04127 1 00002 2 04130 TXI NTEST,IR2,2 NO, SET IR TO LOOK AT NEXT TRATBL. F4C00970 04130 -3 00000 2 04123 NTEST TXL NLOOP2,IR2,...... HAVE ALL TRATBL ENTRIES FOR THIS BB F4C00980 BEEN LOOKED AT. NO. F4C00990 04131 -0500 00 1 35032 CAL BBTABL,IR1 YES. F4C01000 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 35 SECTION 4, PART THREE 04132 -0734 00 2 00000 PDX 0,IR2 F4C01010 04133 0020 00 0 04160 TRA FLOCNT F4C01020 04134 0500 00 2 51645 MSECSE CLA TRATBL,IR2 F4C01030 04135 -0734 00 4 00000 PDX 0,IR4 F4C01040 04136 0500 00 4 73740 CLA SENSLT,IR4 IS DUMMY SENSE LIGHT ON OR OFF. F4C01050 04137 0100 00 0 04142 TZE LITOUT OFF. TAKE LIGHT OFF BRANCH. F4C01060 04140 0600 00 4 73740 STZ SENSLT,IR4 ON. TURN OFF LIGHT AND TAKE LIGHT ON F4C01070 04141 0020 00 0 04160 TRA FLOCNT BRANCH. F4C01080 04142 1 00002 2 04160 LITOUT TXI FLOCNT,IR2,2 F4C01090 04143 0500 00 2 51643 DOWIF CLA TRATBL-2,IR2 F4C01100 04144 0400 00 0 03737 ADD D1 COMPARE NO. OF TIMES IN LOOP WITH F4C01110 04145 0560 00 2 51645 LDQ TRATBL,IR2 MAXIMUM LOOP COUNT. F4C01120 04146 0040 00 0 04151 TLQ TROUT IF LOOP COUNT IS EXCEEDED TAKE EXIT F4C01130 FROM LOOP. F4C01140 04147 0622 00 2 51643 STD TRATBL-2,IR2 IF NOT, GO BACK TO BEGINNING OF LOOP. F4C01150 04150 0020 00 0 04160 TRA FLOCNT F4C01160 04151 1 00002 2 04160 TROUT TXI FLOCNT,IR2,2 F4C01170 BINARY CARD NO. 9F250006 04152 0560 00 0 04023 PRBYCS LDQ RAND1 GENERATE RANDOM NUMBER AND COMPARE F4C01180 04153 0200 00 0 04024 MPY RAND2 TO PROBABILITY STATEMENT TO CHOOSE F4C01190 04154 -0600 00 0 04024 STQ RAND2 BRANCH. F4C01200 04155 0500 00 2 51645 COMP CLA TRATBL,IR2 F4C01210 04156 0040 00 0 04160 TLQ FLOCNT F4C01220 04157 1 00002 2 04155 TXI COMP,IR2,2 F4C01230 04160 0500 00 2 51644 FLOCNT CLA TRATBL-1,IR2 LOAD IR WITH BB NO. OF SUCCESSOR BB. F4C01240 04161 -0734 00 1 00000 PDX 0,IR1 F4C01250 04162 0400 00 0 03735 ADD ONE ADD ONE TO THE FLOW COUNT. F4C01260 04163 0621 00 2 51644 STA TRATBL-1,IR2 F4C01270 04164 0402 00 2 51644 SUB TRATBL-1,IR2 HAS COUNT OVERFLOWED ADDRESS FIELD. F4C01280 04165 0100 00 0 04061 TZE COUNT NO, GO TO SUCCESSOR BB. F4C01290 04166 0500 00 0 04017 CLA ADMASK YES, INSERT FULL COUNT. F4C01300 04167 0621 00 2 51644 STA TRATBL-1,IR2 F4C01310 04170 0020 00 0 04061 TRA COUNT GO TO SUCCESSOR BB. F4C01320 F4C01330 DODOS / NO SUBROUTINES CALLED F4C01340 THE DO WITH NO IF IS ONLY PARTIALLY SIMULATED IN THE F4C01350 PREVIOUS ROUTINE. THAT IS, IF SUCH A DO HAS BEEN ENTERED N F4C01360 TIMES AND THE LOOP COUNT IS L, THEN THE TOTAL NUMBER OF F4C01370 ITERATIONS IS NL. THEN THE FREQUENCY COUNTERS FOR THE DO F4C01380 ARE GIVEN VALUES AS FOLLOWS - THE COUNTER FOR THE NUMBER OF F4C01390 TRANSFERS BACK TO THE BEGINNING OF THE LOOP IS SET AT N(L-1)F4C01400 AND THE COUNTER FOR THE NUMBER OF TRANSFERS TO THE INSTRUC- F4C01410 TION IMMEDIATELY FOLLOWING THE LOOP IS SET AT N. F4C01420 04171 0500 00 0 03767 DODOS CLA DOBOX ARE THERE ANY DOS. F4C01430 04172 0100 00 0 04304 TZE DOSUCC NO, SKIP THIS ROUTINE. F4C01440 04173 0774 00 2 00001 AXT 1,IR2 YES, CLEAR LCNTR TO ZEROS. F4C01450 04174 0600 00 2 57340 CLEARL STZ LCNTR,IR2 F4C01460 04175 3 01014 2 04177 TXH *+2,IR2,LMAX F4C01470 04176 1 00001 2 04174 TXI CLEARL,IR2,1 F4C01480 04177 0774 00 4 00000 AXT 0,IR4 INITIALIZE LCNTR INDEX REGISTER. F4C01490 BINARY CARD NO. 9F250007 04200 0774 00 2 00001 AXT 1,IR2 INITIALIZE DOLIST INDEX REGISTER. F4C01500 04201 0622 00 0 04303 STD DTEST SET TEST DECR. WITH LENGTH OF DOLIST. F4C01510 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 36 SECTION 4, PART THREE 04202 0500 00 2 56322 LOOKDO CLA DOLIST-1,IR2 F4C01520 04203 -0320 00 0 03751 ANA TMASK F4C01530 04204 1 00002 2 04205 TXI *+1,IR2,2 SET IR TO LOOK AT NEXT DOLIST ENTRY. F4C01540 04205 -0100 00 0 04303 TNZ DTEST IS THIS A DO WITH NO IF. NO. F4C01550 04206 0500 00 0 03735 CLA ONE YES, PUT A ONE IN LCNTR. F4C01560 04207 0601 00 4 57340 STO LCNTR,IR4 F4C01570 04210 1 00001 4 04211 TXI *+1,IR4,1 SET IR FOR NEXT STORE INTO LCNTR. F4C01580 04211 0500 00 2 56324 CLA DOLIST+1,IR2 F4C01590 04212 0622 00 0 03771 STD ERASE1 F4C01600 04213 0500 00 2 56325 CLA DOLIST+2,IR2 PUT LOOP COUNT IN LCNTR. F4C01610 04214 0621 00 4 57340 STA LCNTR,IR4 F4C01620 04215 0500 00 2 56322 NTHRDO CLA DOLIST-1,IR2 DO ANY MORE DOS BEGIN AT THIS POINT. F4C01630 04216 0402 00 2 56324 SUB DOLIST+1,IR2 F4C01640 04217 -0100 00 0 04230 TNZ ENDBB2 NO. F4C01650 04220 1 00001 4 04221 BEGDO TXI *+1,IR4,1 YES, SET IR FOR NEXT STORE INTO LCNTR. F4C01660 04221 1 00002 2 04222 TXI *+1,IR2,2 SET IR TO LOOK AT NEXT DOLIST ENTRY. F4C01670 04222 0500 00 2 56325 CLA DOLIST+2,IR2 MULTIPLY LOOP COUNT OF THIS DO BY F4C01680 04223 0621 00 4 57340 STA LCNTR,IR4 LOOP COUNT FOR PREVIOUS DO AND F4C01690 04224 0560 00 4 57340 LDQ LCNTR,IR4 STORE IN LCNTR. F4C01700 04225 0200 00 4 57341 MPY LCNTR+1,IR4 F4C01710 BINARY CARD NO. 9F250008 04226 -0600 00 4 57340 STQ LCNTR,IR4 F4C01720 04227 0020 00 0 04215 TRA NTHRDO F4C01730 04230 -0534 00 1 03771 ENDBB2 LXD ERASE1,IR1 LOAD IR WITH NO. OF BB WHICH BEGINS F4C01740 THIS DO. F4C01750 04231 0500 00 1 35032 CLA BBTABL,IR1 F4C01760 04232 -0734 00 1 00000 PDX 0,IR1 LOAD IR WITH TRATBL INDEX. F4C01770 04233 -0320 00 0 03747 ANA PMASK DOES THIS BB END IN A DO. F4C01780 04234 0100 00 0 04255 TZE ENDDO YES. F4C01790 04235 0500 00 1 51644 CLA TRATBL-1,IR1 NO, MULTIPLY FREQUENCY COUNT FROM F4C01800 04236 -0320 00 0 03752 ANA TAMASK SIMULATION BY LOOP COUNT TO GET F4C01810 04237 0131 00 0 00000 XCA TOTAL FREQUENCY. F4C01820 04240 0200 00 4 57340 MPY LCNTR,IR4 F4C01830 04241 0131 00 0 00000 XCA F4C01840 04242 0340 00 0 03752 CAS TAMASK HAS FREQUENCY COUNT OVERFLOWED. F4C01850 04243 0500 00 0 03752 CLA TAMASK YES, PUT FULL COUNT IN THE COUNTER. F4C01860 04244 0761 00 0 00000 NOP NO. F4C01870 04245 0621 00 1 51644 STA TRATBL-1,IR1 STORE TOTAL FREQUENCY BACK IN COUNTER. F4C01880 04246 -0534 00 1 03771 6LXD LXD ERASE1,IR1 F4C01890 04247 1 00001 1 04250 TXI *+1,IR1,1 F4C01900 04250 -0754 00 1 00000 PXD 0,IR1 F4C01910 04251 0622 00 0 03771 STD ERASE1 F4C01920 04252 0402 00 2 56322 SUB DOLIST-1,IR2 DOES THIS BB START A DO. F4C01930 04253 0100 00 0 04220 TZE BEGDO YES. F4C01940 BINARY CARD NO. 9F250009 04254 0020 00 0 04230 TRA ENDBB2 NO. F4C01950 04255 0500 00 1 51642 ENDDO CLA TRATBL-3,IR1 COMPUTE FREQUENCY OF EXITS FROM DO. F4C01960 04256 -0320 00 0 03752 ANA TAMASK F4C01970 04257 0601 00 0 03760 STO ERASE2 F4C01980 04260 0560 00 0 03760 LDQ ERASE2 F4C01990 04261 0200 00 4 57340 MPY LCNTR,IR4 F4C02000 04262 -0600 00 0 03761 STQ ERASE3 F4C02010 04263 0560 00 0 03760 LDQ ERASE2 F4C02020 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 37 SECTION 4, PART THREE 04264 0200 00 4 57341 MPY LCNTR+1,IR4 F4C02030 04265 -0600 00 0 03760 STQ ERASE2 F4C02040 04266 0500 00 0 03760 CLA ERASE2 F4C02050 04267 0340 00 0 03752 CAS TAMASK HAS FREQUENCY COUNT OVERFLOWED. F4C02060 04270 0500 00 0 03752 CLA TAMASK YES, PUT FULL COUNT IN THE COUNTER. F4C02070 04271 0761 00 0 00000 NOP NO. F4C02080 04272 0621 00 1 51642 STA TRATBL-3,IR1 STORE TOTAL FREQUENCY BACK IN COUNTER. F4C02090 04273 0502 00 0 03760 CLS ERASE2 COMPUTE FREQUENCY OF TRANSFERS BACK TO F4C02100 04274 0400 00 0 03761 ADD ERASE3 BEGINNING OF DO. F4C02110 04275 0340 00 0 03752 CAS TAMASK HAS FREQUENCY COUNT OVERFLOWED. F4C02120 04276 0500 00 0 03752 CLA TAMASK YES, PUT FULL COUNT IN THE COUNTER. F4C02130 04277 0761 00 0 00000 NOP NO. F4C02140 04300 0621 00 1 51644 STA TRATBL-1,IR1 STORE TOTAL FREQUENCY BACK IN COUNTER. F4C02150 04301 1 77777 4 04302 TXI *+1,IR4,-1 F4C02160 BINARY CARD NO. 9F250010 04302 3 00000 4 04246 TXH 6LXD,IR4,0 IS THIS THE END OF THE OUTER DO. F4C02170 04303 -3 00000 2 04202 DTEST TXL LOOKDO,IR2,...... HAVE ALL DOS BEEN TREATED. NO. F4C02180 F4C02190 DOSUCC / NO SUBROUTINES CALLED F4C02200 THIS ROUTINE EXTRACTS FROM TRATBL THE SUCCESSOR BASIC F4C02210 BLOCK NUMBERS AND THEIR ASSOCIATED FLOW COUNTS AND PLACES F4C02220 THEM IN A TABLE CALLED SUCC WHICH IS PASSED ON IN CORES TO F4C02230 SECTION 5. F4C02240 04304 -0534 00 1 04020 DOSUCC LXD TSBOX,IR1 F4C02250 04305 3 00000 1 04312 TXH ISSUCC,IR1,0 IS THERE ANY TRATBL. F4C02260 04306 0500 00 0 03734 CLA ZERO NO. F4C02270 04307 0621 00 0 35031 STA BBTABL-1 F4C02280 04310 0621 00 0 35032 STA BBTABL F4C02290 04311 0020 00 0 04426 TRA TAGPAS F4C02300 04312 1 77777 1 04313 ISSUCC TXI *+1,IR1,-1 YES, SET TEST DECREMENT FOR ALTERING F4C02310 04313 -0634 00 1 04331 SXD SUCTST,IR1 TRATBL INTO SUCC. F4C02320 04314 -0634 00 1 04425 SXD PRDTST,IR1 SET TEST DECR. IN STORE PRED ROUTINE. F4C02330 04315 0774 00 3 00000 AXT 0,IR1+IR2 INITIALIZE TRATBL AND SUCC IRS. F4C02340 04316 0560 00 1 51644 SUCCLP LDQ TRATBL-1,IR1 MOVE THE SUCCESSOR BB NO. FROM THE F4C02350 04317 0500 00 1 51644 CLA TRATBL-1,IR1 DECREMENT TO THE ADDRESS, AND MOVE F4C02360 04320 0767 00 0 00003 ALS 3 THE FLOW COUNT FROM THE ADDRESS TO F4C02370 04321 -0763 00 0 00022 LGL 18 BITS 1 THRU 14. F4C02380 04322 -0760 00 0 00001 PBT F4C02390 04323 0020 00 0 04325 TRA *+2 F4C02400 04324 -0501 00 0 04036 ORA 14ONES F4C02410 04325 0601 00 1 51645 STO TRATBL,IR1 STORE ALTERED ENTRY IN 1ST WORD OF F4C02420 TRATBL FOR NEXT ROUTINE. F4C02430 04326 0601 00 2 65274 STO SUCC,IR2 MOVE ALTERED ENTRY TO SUCC AREA. F4C02440 04327 1 00002 1 04330 TXI *+1,IR1,2 SET IR FOR GETTING NEXT TRATBL ENTRY. F4C02450 BINARY CARD NO. 9F250011 04330 1 77777 2 04331 TXI SUCTST,IR2,-1 SET IR FOR NEXT STORE IN SUCC. F4C02460 04331 -3 00000 1 04316 SUCTST TXL SUCCLP,IR1,...... HAS ALL OF TRATBL BEEN ALTERED. F4C02470 F4C02480 DOPRED / NO SUBROUTINES CALLED F4C02490 EACH FLOW COUNT IN TRATBL REPRESENTS THE NUMBER OF F4C02500 TIMES THE SIMULATED PROGRAM HAS FOLLOWED A CERTAIN PATH FROMF4C02510 ONE BASIC BLOCK TO ANOTHER. THE RELATIONSHIP BETWEEN TWO F4C02520 SUCH BASIC BLOCKS MAY BE DESCRIBED AS THAT OF PREDECESSOR F4C02530 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 38 SECTION 4, PART THREE AND SUCCESSOR. THIS ROUTINE SUBSTITUTES IN TRATBL FOR EACH F4C02540 SUCCESSOR BASIC BLOCK NUMBER ITS PREDECESSOR WITH RESPECT TOF4C02550 THE FLOW COUNT ASSOCIATED WITH IT. F4C02560 04332 0500 00 0 04021 CLA BBBOX SET TEST DECREMENT WITH LENGTH OF F4C02570 04333 0402 00 0 03737 SUB D1 BBTABL. F4C02580 04334 0622 00 0 04346 STD BBTEST F4C02590 04335 0774 00 2 00000 AXT 0,IR2 INITIALIZE BBTABL INDEX REGISTER. F4C02600 04336 0774 00 1 00001 AXT 1,IR1 INITIALIZE TRATBL INDEX REGISTER. F4C02610 04337 0500 00 2 35031 PRLOOP CLA BBTABL-1,IR2 SET TEST DECREMENT WITH RELATIVE ADDR. F4C02620 04340 0622 00 0 04342 STD TRTEST OF 1ST TRATBL WORD FOR NEXT BB. F4C02630 04341 0754 00 2 00000 PXA 0,IR2 F4C02640 04342 3 00000 1 04345 TRTEST TXH BBTEST-1,IR1,...... F4C02650 04343 0621 00 1 51646 STA TRATBL+1,IR1 STORE PREDECESSOR BB NO. IN TRATBL. F4C02660 04344 1 00002 1 04342 TXI TRTEST,IR1,2 SET IR TO MAKE NEXT STORE IN TRATBL. F4C02670 04345 1 00001 2 04346 TXI BBTEST,IR2,1 SET IR TO PICK UP NEXT BBTABL ENTRY. F4C02680 04346 -3 00000 2 04337 BBTEST TXL PRLOOP,IR2,...... HAVE ALL BASIC BLOCKS BEEN DONE. NO. F4C02690 F4C02700 SORT PRED / NO SUBROUTINES CALLED F4C02710 THE PREDECESSOR BASIC BLOCK ENTRIES IN TRATBL ARE F4C02720 SORTED IN THIS ROUTINE ON THEIR ASSOCIATED SUCCESSOR BASIC F4C02730 BLOCK NUMBERS. F4C02740 04347 1 77775 1 04350 TXI *+1,IR1,-3 IF THERE IS BUT ONE TRATBL ENTRY NO F4C02750 04350 -3 00000 1 04372 TXL FIXBB,IR1,0 SORTING IS NECESSARY. F4C02760 04351 0634 00 1 04352 SORT SXA *+1,IR1 F4C02770 04352 0774 00 2 00000 AXT ......,IR2 F4C02780 04353 -0500 00 1 51644 CAL TRATBL-1,IR1 F4C02790 04354 0560 00 1 51645 LDQ TRATBL,IR1 F4C02800 04355 -0340 00 2 51646 TRCOMP LAS TRATBL+1,IR2 F4C02810 BINARY CARD NO. 9F250012 04356 0020 00 0 04366 TRA CMPTST F4C02820 04357 0020 00 0 04366 TRA CMPTST F4C02830 04360 0441 00 2 51646 LDI TRATBL+1,IR2 STORED ENTRY IS HIGHER. SWITCH F4C02840 04361 0602 00 2 51646 SLW TRATBL+1,IR2 ENTRIES. F4C02850 04362 -0130 00 0 00000 XCL F4C02860 04363 0560 00 2 51647 LDQ TRATBL+2,IR2 F4C02870 04364 0602 00 2 51647 SLW TRATBL+2,IR2 F4C02880 04365 -0046 00 0 00000 PIA F4C02890 04366 2 00002 2 04355 CMPTST TIX TRCOMP,IR2,2 F4C02900 04367 0602 00 1 51644 SLW TRATBL-1,IR1 F4C02910 04370 -0600 00 1 51645 STQ TRATBL,IR1 F4C02920 04371 2 00002 1 04351 TIX SORT,IR1,2 HAS ALL SORTING BEEN DONE. NO. F4C02930 F4C02940 FIXBB / NO SUBROUTINES CALLED F4C02950 THE RELATIVE ADDRESSES IN TRATBL OF THE PREDECESSOR F4C02960 BASIC BLOCKS ARE INSERTED IN THE APPROPRIATE BBTABL WORDS INF4C02970 THE ADDRESS FIELD (OVERWRITING THE NOW DEFUNCT RELATIVE F4C02980 ADDRESSES OF SET ENTRIES). THEN THE BBTABL ENTRIES ARE F4C02990 DIVIDED BY TWO, THUS HALVING THE RELATIVE ADDRESSES OF BOTH F4C03000 SUCCESSOR BASIC BLOCK NUMBERS (IN THE DECREMENT) AND PRED- F4C03010 ECESSOR BASIC BLOCK NUMBERS (IN THE ADDRESS). THE REASON F4C03020 FOR THIS IS THAT THESE RELATIVE ADDRESSES NO LONGER REFER TOF4C03030 TRATBL (2 WORDS PER ENTRY) BUT TO SUCC AND PRED (1 WORD PER F4C03040 ENTRY). F4C03050 04372 -0534 00 2 04021 FIXBB LXD BBBOX,IR2 INITIALIZE BBTABL INDEX REGISTER. F4C03060 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 39 SECTION 4, PART THREE 04373 -0534 00 4 04020 LXD TSBOX,IR4 INITIALIZE TRATBL INDEX REGISTER. F4C03070 04374 0754 00 4 00000 BBLOOP PXA 0,IR4 F4C03080 04375 0621 00 2 35032 STA BBTABL,IR2 F4C03090 04376 1 77776 4 04377 TXI *+1,IR4,-2 F4C03100 04377 -2 00001 2 04406 TNX DONE,IR2,1 F4C03110 04400 -0754 00 2 00000 PXD 0,IR2 F4C03120 04401 0340 00 4 51646 BBCOMP CAS TRATBL+1,IR4 F4C03130 04402 0020 00 0 04374 TRA BBLOOP F4C03140 04403 0761 00 0 00000 NOP F4C03150 BINARY CARD NO. 9F250013 04404 2 00002 4 04401 TIX BBCOMP,IR4,2 F4C03160 04405 0621 00 0 35031 STA BBTABL-1 F4C03170 04406 0500 00 0 03734 DONE CLA ZERO F4C03180 04407 0621 00 0 35032 STA BBTABL F4C03190 04410 -0534 00 2 04021 LXD BBBOX,IR2 F4C03200 04411 1 00001 2 04412 TXI SHFTBB,IR2,1 F4C03210 04412 -0500 00 2 35033 SHFTBB CAL BBTABL+1,IR2 F4C03220 04413 -0320 00 0 04037 ANA BBMASK F4C03230 04414 0771 00 0 00001 ARS 1 F4C03240 04415 0622 00 2 35033 STD BBTABL+1,IR2 F4C03250 04416 0621 00 2 35033 STA BBTABL+1,IR2 F4C03260 04417 2 00001 2 04412 TIX SHFTBB,IR2,1 F4C03270 F4C03280 STORE PRED / NO SUBROUTINES CALLED F4C03290 THE PREDECESSOR BASIC BLOCK NUMBERS THAT HAVE BEEN F4C03300 BUILT UP AND SORTED IN TRATBL ARE MOVED TO A NEW TABLE F4C03310 CALLED PRED WHICH IS PASSED ON IN CORES TO SECTION 5. F4C03320 TRATBL IS NOW DEAD. F4C03330 04420 0774 00 3 00000 AXT 0,IR1+IR2 F4C03340 04421 0500 00 1 51645 PREDLP CLA TRATBL,IR1 F4C03350 04422 0601 00 2 56774 STO PRED,IR2 F4C03360 04423 1 00002 1 04424 TXI *+1,IR1,2 F4C03370 04424 1 77777 2 04425 TXI PRDTST,IR2,-1 F4C03380 04425 -3 00000 1 04421 PRDTST TXL PREDLP,IR1,...... F4C03390 F4C03400 TAGPAS / CALLS ON RDCIT3 AND WRTAG F4C03410 A THIRD AND FINAL PASS IS MADE OVER THE COMPILED IN- F4C03420 STRUCTIONS. TWO TABLES ARE THE OUTPUT OF THIS PASS, TAG ANDF4C03430 BBTAG, EACH ONE WORD PER ENTRY. EACH TIME A TAGGED IN- F4C03440 STRUCTION IS ENCOUNTERED A TAG ENTRY IS MADE. THE ADDRESS F4C03450 CONTAINS THE SYMBOLIC TAG, THE DECREMENT CONTAINS A CODE F4C03460 WHICH TELLS WHAT KIND OF INSTRUCTION THIS IS, AND IF THIS F4C03470 INSTRUCTION BEGINS A BASIC BLOCK THE SIGN IS MADE NEGATIVE. F4C03480 EACH TIME THE BEGINNING OF A BASIC BLOCK IS ENCOUNTEREDF4C03490 A BBTAG ENTRY IS MADE. THE ADDRESS CONTAINS THE NUMBER OF F4C03500 TAG ENTRIES MADE SO FAR, THE DECREMENT CONTAINS AN OCTAL 33 F4C03510 FOR THE CONVENIENCE OF SECTION 5. THE LAST BBTAG ENTRY IS F4C03520 A DUMMY WHICH CONTAINS THE TOTAL NUMBER OF TAG ENTRIES. F4C03530 FINALLY FOUR SPECIAL CELLS CALLED THE KEYS ARE LEFT FORF4C03540 SECTION 5. KEY1 = THE NUMBER OF BASIC BLOCKS INCLUDING THE F4C03550 DUMMY BASIC BLOCK, KEY2 = THE LENGTH OF THE SUCC OR PRED F4C03560 TABLES, KEY3 = THE NUMBER OF WORDS IN BBB (SOON TO BE F4C03570 CREATED) INCLUDING THE DUMMY ENTRY, AND KEY4 = THE LENGTH F4C03580 OF TAG DIVIDED BY NINE. F4C03590 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 40 SECTION 4, PART THREE 04426 0534 00 2 03741 TAGPAS LXA RLNGTH,IR2 SET DECREMENTS IN RDCIT3 F4C03600 04427 -0634 00 2 04655 SXD IOAJ3,IR2 F4C03610 04430 -0634 00 2 04671 SXD PRAJ3,IR2 F4C03620 04431 0774 00 2 05335 AXT CTBOT,IR2 F4C03630 BINARY CARD NO. 9F250014 04432 0634 00 2 04004 SXA CTRD1,IR2 INITIALIZE IO COMMAND F4C03640 04433 0520 00 0 04016 ZET CTINFL IS ALL OF CIT IN CORE. F4C03650 04434 0020 00 0 04441 TRA STREAD NO. F4C03660 04435 0774 00 4 00005 AXT 5,IR4 YES. F4C03670 04436 0522 00 4 04711 XEC LAST3+5,IR4 F4C03680 04437 2 00001 4 04436 TIX *-1,IR4,1 F4C03690 04440 0020 00 0 04452 TRA BEGIN READ FIRST TWO RECORDS AND GO TO F4C03700 04441 0074 00 4 73606 STREAD TSX (TAPE),IR4 READ THIRD. F4C03710 04442 0 40010 0 04004 CTRD1,,(RBNC) F4C03720 04443 0 00004 0 03773 CTLBL,,CTAPE F4C03730 04444 0500 00 0 73676 CLA (SCHU)+CTAPE F4C03740 04445 0621 00 0 04004 STA CTRD1 F4C03750 04446 0074 00 4 73606 TSX (TAPE),IR4 F4C03760 04447 0 40004 0 04004 CTRD1,,(RBEP) F4C03770 04450 0 00004 0 03773 CTLBL,,CTAPE F4C03780 04451 0074 00 4 04652 TSX RDCIT3,IR4 F4C03790 04452 0774 00 6 00000 BEGIN AXT 0,IR2+IR4 F4C03800 04453 -0774 00 1 05335 AXC CTBOT,IR1 F4C03810 04454 3 50463 1 04456 TEST5 TXH *+2,IR1,-CTTP2 F4C03820 04455 1 21760 1 04646 TXI 5TSX,IR1,CTSP2 F4C03830 04456 -3 00000 1 04646 BEGN3 TXL 5TSX,IR1,...... F4C03840 04457 0500 00 1 00000 CLA INLOC,IR1 DOES THIS INST. BEGIN A BASIC BLOCK. F4C03850 BINARY CARD NO. 9F250015 04460 0402 00 2 54267 SUB BBLIST,IR2 F4C03860 04461 0100 00 0 04470 TZE INTBB YES. F4C03870 04462 -0500 00 1 00003 CAL INTAG,IR1 NO, IS THIS INSTRUCTION TAGGED. F4C03880 04463 -0320 00 0 04035 ANA TAPMSK F4C03890 04464 0100 00 0 04533 TZE BUMP1 NO, IGNORE IT. F4C03900 04465 -0500 00 1 00003 CAL INTAG,IR1 YES. F4C03910 04466 -0320 00 0 03752 ANA TAMASK F4C03920 04467 0020 00 0 04505 TRA STOTAG F4C03930 04470 0754 00 4 00000 INTBB PXA 0,IR4 F4C03940 04471 0737 00 4 00000 PAC 0,IR4 F4C03950 04472 0754 00 4 00000 PXA 0,IR4 F4C03960 04473 0737 00 4 00000 PAC 0,IR4 F4C03970 04474 0400 00 0 04034 ADD TAGBOX F4C03980 04475 0601 00 2 32407 STO BBTAG,IR2 F4C03990 04476 1 00001 2 04477 TXI *+1,IR2,1 SET IR FOR NEXT STORE IN BBTAG. F4C04000 04477 -0500 00 1 00003 CAL INTAG,IR1 IS THIS INSTRUCTION TAGGED. F4C04010 04500 -0320 00 0 04035 ANA TAPMSK F4C04020 04501 0100 00 0 04533 TZE BUMP1 NO, IGNORE IT. F4C04030 04502 -0500 00 1 00003 CAL INTAG,IR1 YES. F4C04040 04503 -0320 00 0 03752 ANA TAMASK F4C04050 04504 -0760 00 0 00003 SSM F4C04060 04505 0601 00 4 46223 STOTAG STO TAG,IR4 F4C04070 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 41 SECTION 4, PART THREE BINARY CARD NO. 9F250016 04506 0634 00 2 04530 SXA SAVE2,IR2 SAVE BBTAG INDEX REGISTER. F4C04080 04507 0774 00 2 00010 AXT 8,IR2 F4C04090 04510 0500 00 1 00001 CLA INOP,IR1 F4C04100 04511 -0320 00 0 03750 ANA DMASK F4C04110 04512 0402 00 2 04050 OPSUB SUB OPCON+1,IR2 F4C04120 04513 0100 00 2 04527 TZE STORCD+1,IR2 F4C04130 04514 0400 00 2 04050 ADD OPCON+1,IR2 F4C04140 04515 2 00001 2 04512 TIX OPSUB,IR2,1 F4C04150 04516 1 00005 2 04526 TXI STORCD,IR2,5 INST. IS PASSIVE - CODE IS 6. F4C04160 04517 1 77771 2 04526 TXI STORCD,IR2,-7 LXA - CODE IS 1. F4C04170 04520 1 77776 2 04526 TXI STORCD,IR2,-2 TXI - CODE IS 5. F4C04180 04521 1 77777 2 04526 TXI STORCD,IR2,-1 TIX - CODE IS 5. F4C04190 04522 1 77775 2 04526 TXI STORCD,IR2,-3 LXP - CODE IS 2. F4C04200 04523 1 77777 2 04526 TXI STORCD,IR2,-1 DED - CODE IS 3. F4C04210 04524 1 77776 2 04526 TXI STORCD,IR2,-2 LXD - CODE IS 1. F4C04220 04525 1 77777 2 04526 TXI STORCD,IR2,-1 PAX - CODE IS 1. F4C04230 04526 -0754 00 2 00000 STORCD PXD 0,IR2 PDX - CODE IS 1. F4C04240 04527 0622 00 4 46223 STD TAG,IR4 STORE CODE FOR OPERATION TYPE IN TAG. F4C04250 04530 0774 00 2 00000 SAVE2 AXT ......,IR2 RESTORE BBTAG INDEX REGISTER. F4C04260 04531 1 77777 4 04532 TXI TEST6,IR4,-1 SET IR FOR NEXT STORE IN TAG. F4C04270 04532 -3 77400 4 04715 TEST6 TXL WRTAG,IR4,-TGBFSZ F4C04280 04533 1 77774 1 04454 BUMP1 TXI TEST5,IR1,-4 SET IR FOR NEXT LOOK AT CIT. F4C04290 BINARY CARD NO. 9F250017 04534 0754 00 4 00000 FINAL PXA 0,IR4 F4C04300 04535 0737 00 4 00000 PAC 0,IR4 F4C04310 04536 0754 00 4 00000 PXA 0,IR4 F4C04320 04537 0737 00 4 00000 PAC 0,IR4 F4C04330 04540 0400 00 0 04034 ADD TAGBOX F4C04340 04541 0601 00 2 32407 STO BBTAG,IR2 F4C04350 04542 -0320 00 0 04017 ANA ADMASK F4C04360 04543 0402 00 0 04031 SUB TAGMAX F4C04370 04544 -0120 00 0 04546 TMI *+2 F4C04380 04545 0074 00 4 04054 TSX ERR49,IR4 TAG IS TOO LONG. F4C04390 04546 0400 00 0 04031 ADD TAGMAX F4C04400 04547 0131 00 0 00000 XCA F4C04410 04550 -0754 00 0 00000 ZAC F4C04420 04551 0221 00 0 04025 DVP NINE F4C04430 04552 0760 00 0 00012 DCT F4C04440 04553 0074 00 4 03772 TSX ERRM4,IR4 DIVIDE ERROR, GO TO DIAGNISTIC. F4C04450 IR4 IS MODIFIED BY TAGPAS. F4C04460 04554 0100 00 0 04560 TZE STOKEY F4C04470 04555 0131 00 0 00000 XCA F4C04480 04556 0400 00 0 03735 ADD ONE F4C04490 04557 0131 00 0 00000 XCA F4C04500 04560 -0600 00 0 73577 STOKEY STQ KEY4 LENGTH OF TAG DIVIDED BY NINE. F4C04510 04561 0500 00 0 03754 CLA ANTEBB F4C04520 BINARY CARD NO. 9F250018 04562 0402 00 0 03756 SUB NTH F4C04530 04563 0601 00 0 73574 STO KEY1 NO. OF BASIC BLOCKS INCLUDING DUMMY. F4C04540 04564 0131 00 0 00000 XCA F4C04550 04565 0200 00 0 04014 MPY SIX F4C04560 04566 -0600 00 0 73576 STQ KEY3 NO. OF WORDS IN BBB INCL. DUMMY. F4C04570 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 42 SECTION 4, PART THREE 04567 0500 00 0 04020 CLA TSBOX F4C04580 04570 0771 00 0 00023 ARS 19 F4C04590 04571 0601 00 0 73575 STO KEY2 LENGTH OF SUCC OR PRED TABLES. F4C04600 04572 0500 00 0 04033 CLA WREXIT CHANGE EXIT FROM WRITE TAG ROUTINE. F4C04610 04573 0601 00 0 04745 STO SAVIR2+1 F4C04620 04574 3 00000 4 04577 TXH 15TEST,IR4,0 HAS 2ND BUFFER JUST BEEN WRITTEN. F4C04630 04575 0520 00 0 04050 ZET CELL F4C04640 04576 0020 00 0 04601 TRA LSTCHK F4C04650 04577 3 77400 4 04715 15TEST TXH WRTAG,IR4,-TGBFSZ F4C04660 04600 -3 77377 4 04715 TXL WRTAG,IR4,-TGBFSZ-1 F4C04670 04601 0074 00 4 73606 LSTCHK TSX (TAPE),IR4 F4C04680 04602 0 40005 0 00000 ,,(WEFP) F4C04690 04603 0 00003 0 04002 EOFLB1,,FTAPE3 F4C04700 F4C04710 WRITE BBLIST / NO SUBROUTINES CALLED F4C04720 THIS ROUTINE INVERTS THE ORDER OF BBLIST IN CORES AND F4C04730 THEN WRITES IT AS THE FIRST RECORD OF THE FOURTH FILE OF F4C04740 TAPE B3. F4C04750 04604 0534 00 1 73574 LXA KEY1,IR1 F4C04760 04605 0774 00 6 00000 AXT 0,IR2+IR4 F4C04770 04606 0500 00 2 54267 INVERT CLA BBLIST,IR2 F4C04780 04607 0601 00 4 47223 STO MIRROR,IR4 F4C04790 BINARY CARD NO. 9F250019 04610 1 77777 4 04611 TXI *+1,IR4,-1 F4C04800 04611 1 00001 2 04612 TXI *+1,IR2,1 F4C04810 04612 2 00001 1 04606 TIX INVERT,IR1,1 F4C04820 04613 0500 00 0 73574 CLA KEY1 F4C04830 04614 0767 00 0 00022 ALS 18 F4C04840 04615 0622 00 0 04053 STD WRITBB F4C04850 04616 0074 00 4 73606 TSX (TAPE),IR4 F4C04860 04617 0 40001 0 04053 WRITBB,,(WBNP) F4C04870 04620 0 00003 0 03774 BBLBL,,FTAPE3 F4C04880 04621 0074 00 4 73606 TSX (TAPE),IR4 F4C04890 04622 0 20000 0 04012 BSP2F,,(SKBP) F4C04900 04623 0 00003 0 00000 ,,FTAPE3 F4C04910 04624 0074 00 4 73606 TSX (TAPE),4 F4C04920 04625 0 20000 0 04010 SKFL,,(SKBP) F4C04930 04626 0 00003 0 03775 TGLBL,,FTAPE3 F4C04940 F4C04950 MAKE BBB / NO SUBROUTINES CALLED F4C04960 THIS COMBINES A WORD OF BBTABL, A WORD OF BBTAG, AND F4C04970 FOUR WORDS OF ZERO TO MAKE A BBB ENTRY. IN THIS WAY THE BBBF4C04980 TABLE IS CREATED AND IS LEFT IN CORES FOR SECTION 5. THE F4C04990 END-OF-FILE INDICATORS ARE TURNED OFF AND SECTION 4 IS OVER.F4C05000 04627 0534 00 1 73574 LXA KEY1,IR1 F4C05010 04630 0774 00 6 00000 AXT 0,IR2+IR4 F4C05020 04631 0500 00 2 35032 COMBIN CLA BBTABL,IR2 F4C05030 04632 0601 00 4 40004 STO BBB,IR4 F4C05040 04633 0500 00 2 32407 CLA BBTAG,IR2 F4C05050 04634 0601 00 4 40005 STO BBB+1,IR4 F4C05060 04635 0600 00 4 40006 STZ BBB+2,IR4 F4C05070 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 43 SECTION 4, PART THREE BINARY CARD NO. 9F250020 04636 0600 00 4 40007 STZ BBB+3,IR4 F4C05080 04637 0600 00 4 40010 STZ BBB+4,IR4 F4C05090 04640 0600 00 4 40011 STZ BBB+5,IR4 F4C05100 04641 1 77772 4 04642 TXI *+1,IR4,-6 F4C05110 04642 1 00001 2 04643 TXI *+1,IR2,1 F4C05120 04643 2 00001 1 04631 TIX COMBIN,IR1,1 F4C05130 04644 0074 00 4 73600 TSX (LOAD),IR4 GO TO RECORD 29. F4C05140 04645 0 00000 0 00000 PZE F4C05150 04646 0634 00 4 04650 5TSX SXA *+2,IR4 F4C05160 04647 0074 00 4 04652 TSX RDCIT3,IR4 CALLER FOR CIT INPUT SUBROUTINE. F4C05170 04650 0774 00 4 00000 AXT ......,IR4 F4C05180 04651 0020 00 0 04454 TRA TEST5 F4C05190 F4C05200 RDCIT3 / A SUBROUTINE CALLED BY TAGPAS F4C05210 WITH THE EXCEPTION OF A FEW INSTRUCTIONS THIS ROUTINE F4C05220 IS EXACTLY LIKE RDCIT1. FOR COMMENTS, SEE RDCIT1 ROUTINE. F4C05230 F4C05240 04652 0634 00 2 04701 RDCIT3 SXA S3IR2,IR2 F4C05250 04653 0634 00 4 04702 SXA S3IR4,IR4 F4C05260 04654 0534 00 2 04004 LXA CTRD1,IR2 F4C05270 04655 1 00000 2 04656 IOAJ3 TXI *+1,IR2,...... F4C05280 04656 3 27314 2 04661 TXH *+3,IR2,CTTP2-1 F4C05290 04657 0634 00 2 04004 SXA CTRD1,IR2 F4C05300 04660 0020 00 0 04663 TRA *+3 F4C05310 04661 0774 00 2 05335 RINT3 AXT CTBOT,IR2 F4C05320 04662 0634 00 2 04004 SXA CTRD1,IR2 F4C05330 04663 0074 00 4 73606 TSX (TAPE),IR4 F4C05340 BINARY CARD NO. 9F250021 04664 0 40004 0 04004 CTRD1,,(RBEP) F4C05350 04665 0 00004 0 03773 CTLBL,,CTAPE F4C05360 04666 -0520 00 0 73676 NZT (SCHU)+CTAPE F4C05370 04667 0020 00 0 04704 TRA LAST3 F4C05380 04670 0774 00 2 05335 AJBF3 AXT CTBOT,IR2 F4C05390 04671 1 00000 2 04672 PRAJ3 TXI *+1,IR2,...... F4C05400 04672 0634 00 2 04670 SXA *-2,IR2 F4C05410 04673 0754 00 2 00000 PXA ,IR2 F4C05420 04674 0737 00 2 00000 PAC ,IR2 F4C05430 04675 3 50462 2 04700 TXH *+3,IR2,-CTTP2-1 F4C05440 04676 0774 00 2 05335 AXT CTBOT,IR2 F4C05450 04677 0020 00 0 04671 TRA PRAJ3 F4C05460 04700 -0634 00 2 04456 SXD BEGN3,IR2 F4C05470 04701 0774 00 2 00000 S3IR2 AXT ......,IR2 F4C05480 04702 0774 00 4 00000 S3IR4 AXT ......,IR4 F4C05490 04703 0020 00 4 00001 TRA 1,IR4 F4C05500 04704 0522 00 0 05020 LAST3 XEC LAST2 F4C05510 04705 -0634 00 2 04456 SXD BEGN3,IR2 F4C05520 04706 0500 00 0 04032 CLA EXIT3 F4C05530 04707 0621 00 0 04456 STA BEGN3 F4C05540 04710 0621 00 0 04455 STA BEGN3-1 F4C05550 04711 0074 00 4 73606 TSX (TAPE),IR4 F4C05560 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 44 SECTION 4, PART THREE BINARY CARD NO. 9F250022 04712 0 20000 0 04011 RWND,,(SKBP) F4C05570 04713 0 00004 0 03773 CTLBL,,FTAPE4 F4C05580 04714 0020 00 0 04701 TRA S3IR2 F4C05590 F4C05600 WRTAG / A SUBROUTINE CALLED BY TAGPAS F4C05610 THIS SUBROUTINE WRITES THE TAG TABLE AS THE THIRD FILE F4C05620 OF TAPE B3 IN 256 WORD RECORDS. F4C05630 04715 0634 00 2 04744 WRTAG SXA SAVIR2,IR2 F4C05640 04716 0500 00 0 04050 CLA CELL F4C05650 04717 0400 00 0 03735 ADD ONE F4C05660 04720 0601 00 0 04050 STO CELL F4C05670 04721 0760 00 0 00001 LBT F4C05680 04722 1 01000 4 04732 TXI BUF2,IR4,2*TGBFSZ F4C05690 04723 0500 00 0 04027 CLA WRDEC2 F4C05700 04724 0634 00 4 04730 SXA *+4,IR4 F4C05710 04725 0074 00 4 73606 TSX (TAPE),IR4 F4C05720 04726 0 40001 0 04051 WRITE1,,(WBNP) F4C05730 04727 0 00003 0 03775 TGLBL,,FTAPE3 F4C05740 04730 0774 00 4 00000 AXT ......,IR4 F4C05750 04731 0020 00 0 04743 TRA FIX4 F4C05760 04732 0500 00 0 04034 BUF2 CLA TAGBOX F4C05770 04733 0400 00 0 04030 ADD TAGSIZ F4C05780 04734 0601 00 0 04034 STO TAGBOX F4C05790 04735 0500 00 0 04026 CLA WRDEC1 F4C05800 04736 0634 00 4 04742 SXA *+4,IR4 F4C05810 04737 0074 00 4 73606 TSX (TAPE),IR4 F4C05820 BINARY CARD NO. 9F250023 04740 0 40001 0 04052 WRITE2,,(WBNP) F4C05830 04741 0 00003 0 03775 TGLBL,,FTAPE3 F4C05840 04742 0774 00 4 00000 AXT ......,IR4 F4C05850 04743 0622 00 0 04532 FIX4 STD TEST6 F4C05860 04744 0774 00 2 00000 SAVIR2 AXT ......,IR2 F4C05870 04745 1 77774 1 04454 TXI TEST5,IR1,-4 F4C05880 04746 0774 00 4 00004 STSNS AXT 4,IR4 (32)F4C05881 04747 0560 00 0 04023 STRND LDQ RAND1 GENERATE NEXT RANDOM (32)F4C05882 04750 0200 00 0 04024 MPY RAND2 NUMBER AND SET SENSE (32)F4C05883 04751 -0600 00 0 04024 STQ RAND2 LIGHT ON IF IT IS GREATER (32)F4C05884 04752 -0754 00 0 00000 ZAC THAN 1/2. (32)F4C05885 04753 0763 00 0 00001 LLS 1 (32)F4C05886 04754 0601 00 4 73600 STO NLIST+4,IR4 (32)F4C05887 04755 2 00001 4 04747 TIX STRND,IR4,1 FOR ALL FOUR SIMULATED LIGHTS (32)F4C05888 04756 0774 00 1 00000 AXT 0,IR1 SET TO EXAMINE FIRST BB. (32)F4C05889 04757 0020 00 0 04061 TRA COUNT (32)F4C0588A 05004 END28 SYN *+20 (32)F4C05890 BINARY CARD NO. TRA77777 77777 TCD -1 $F4C05895 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 45 SECTION 5, PART ONE HEAD 5 F5A00010 INTRODUCTION F5A00020 THE GENERAL PHILOSOPHY OF SECTION 5 IS TO REDUCE A PROGRAM F5A00030 USING AS MANY INDEX REGISTERS AS NEEDED TO ONE USING 3 INDEXF5A00040 REGISTERS IN AS EFFICIENT A MEANS AS POSSIBLE, CALLING ON F5A00050 INDEX CELLS WHICH ARE STORAGE LOCATIONS, TO RETAIN DISPLACEDF5A00060 INFORMATION WHEN THE CONTENTS OF AN INDEX REGISTER MUST BE F5A00070 REPLACED. THUS THE INDEX CELLS CORRESPOND TO ORIGINAL INDEXF5A00080 REGISTERS USED IN THE FORTRAN OBJECT PROGRAM BEFORE SECTION5F5A00090 THE MAIN PROBLEMS SECTION 5 HANDLES ARE THOSE OF KEEPING F5A00100 INDEX CELLS UP TO DATE, AND EFFICIENTLY SEEING TO IT THAT THF5A00110 3 INDEX REGISTERS CONTAIN THE PROPER INFORMATION AT ALL F5A00120 TIMES FOR THE CORRECT EXECUTION OF TAGGED INSTRUCTIONS. F5A00130 GENERALLY, SECTION 5 COMPILES SX,S WHENEVER AN INDEX CELL F5A00140 MUST BE UPDATED SO THAT IF AN INDEX QUANTITY IS NEEDED AND F5A00150 NOT PRESENT IN AN INDEX REGISTER, AN LX CAN BE USED WITHOUT F5A00160 CONCERN ABOUT WHAT IS WIPED OUT. THE SKILLFUL PLACEMENT OFF5A00170 THESE SX,S IS ONE OF THE MAJOR JOBS OF SECTION 5. F5A00180 THE PROGRAM IS ANALYZED IN BASIC BLOCKS, WHICH ARE F5A00190 PROGRAM UNITS WITH A SINGLE ENTRY AND EXIT POINT, AS F5A00200 DEFINED IN SECTION 4. LINKS BETWEEN BLOCKS ARE LABELED F5A00210 BY FREQUENCY IN SECTION 4, BY ACTUAL PROGRAM SIMULATION. F5A00220 SECTION 5 ANALYSES THE OBJECT PROGRAM BY STARTING WITH THE F5A00230 HIGHEST FREQUENCY LINK BETWEEN BB,S AND EXPANDING OUTWARD F5A00240 ALONG PREDECESSOR AND SUCCESSOR BBS. THE AREA FORM- F5A00250 ED IN THIS MANNER IS A PORTION OF THE OBJECT PROGRAM AND IS F5A00260 CALLED A LOOPLIST. THIS IS TREATED TO REDUCE THE NUMBER OF F5A00270 INDEX REGISTERS TO 3, IS THEN CALLED A REGION, + CAN ENTER F5A00280 FUTURE LOOPLISTS. THE LOOPLIST PROCESS IS CONTINUED, F5A00290 CONSTANTLY EXPANDING THE TREATED AREA OF THE OBJECT PROGRAM F5A00300 BY THE INCLUSION OF ALREADY TREATED REGIONS IN THE CURRENT F5A00310 LPLST WHERE APPROPRIATE TO THE PROGRAM FLOW. THESE F5A00320 REGIONS BECOME PART OF THE LATEST LOOPLISTS REGION AT THE F5A00330 END OF LPLST TREATMENT, FORMING A NEW, SINGLE REGION. F5A00340 FINALLY THE ENTIRE PROGRAM HAS BEEN HANDLED. ANOTHER PRIN- F5A00350 CIPLE USED BY SECTION 5 IS TO COMPILE THE UPDATING SX,S AS F5A00360 LATE AS POSSIBLE TO TRADE OBJECT PROGRAM SPACE FOR TIME, F5A00370 SINCE THE LATER THE SX IS COMPILED, THE LOWER THE FREQUENCY F5A00380 OF TRANSFERS BETWEEN BLOCKS, HENCE THE FEWER THE EXECUTIONS F5A00390 OF THE SX. F5A00400 TAPE POSITIONS AT SECTION V START ARE--- F5A00410 TAPE A4(CIT INPUT ETC.) IS REWOUND. F5A00420 TAPE B3 (TAGLIST ETC.) IS AT END OF LAST RECORD OF TAGLIST F5A00430 BUT BEFORE THE FILE MARK.8 BLIST FOLLOWS TAGLIST WITH ONLY F5A00440 A RECORD MARK AFTER IT. TAGLIST IS THE 3RD FILE. F5A00450 TAPE B2 CONTAINS ASCON AS THE 8TH FILE AND IS POSITIONED AT F5A00460 THE START OF ASCON. TAPE A1 IS THE SYSTEM TAPE. F5A00470 LPLST IS FORMED BY SECTION 5 PART 1. IT SUMMARIZES F5A00480 EACH NEW REGION TO BE TREATED. PREFIX CODES ARE 2=OPAQUE F5A00490 REGION, 1=TRANSPARENT REGION (AT LEAST ONE INDEX REGISTER F5A00500 FREE) AND PREFIX CODE 0=BASIC BLOCKS. THE BB NUMBER F5A00510 IS CONTAINED IN THE DECREMENT OR ADDRESS. 77777 INDICATES F5A00520 LPLST ENTRY IS AT THE END OF A REGION, OR THAT LPLST EXIT F5A00530 IS AT THE BEGINNING OF THE REGION SPECIFIED BY BB NO. F5A00540 000000 INDICATES NOTHING BETWEEN THAT POINT AND THE NEXT F5A00550 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 46 SECTION 5, PART ONE DECR. OR ADDR. A WORD OF FULL 7,S (SENTINEL) ENDS F5A00560 LPLST. THUS A NEW REGION TO BE TREATED MIGHT HAVE A LPLST F5A00570 BEFORE TREATMENT LIKE F5A00580 277777 000014 F5A00590 000023 000000 F5A00600 100026 000033 F5A00610 200003 077777 F5A00620 777777 777777. F5A00630 THIS MEANS ENTRY IN OPAQUE REG. ENDING IN BB14, THEN F5A00640 BB23, THEN IMMEDIATELY FOLLOWS A TRANSPARENT REGION FROM F5A00650 BB 26 TO BB 33, THEN AN OPAQUE REGION ENTERING AT BB 3, F5A00660 TERMINATING THIS LPLST. WHEN TREATED, THIS ENTIRE LPLST F5A00670 BECOMES A NEW, SINGLE REGION, ENCOMPASSING THE OLD REGIONS F5A00680 AND BB,S IN IT, WHICH WILL DISAPPEAR. F5A00690 REG TABLE HAS 1 WORD PER EXISTING REGION. PREFIX F5A00700 INDICATES EXISTENCE IN REGION OF LX,S TO THE IR,S , F5A00710 DECREMENT=FIRST BB NO. IN REGION, TAG BITS=EMPTINESS F5A00720 THROUGHOUT REGION OF IR,S. F5A00730 INPUT TABLES IN CORES ARE PRED, SUCC AND BBB. F5A00740 THESE TABLES ARE PREPARED IN SECT. 4. SUCC IS F5A00750 ORDERED ON BASIC BLOCK NUMBER,+ ENTERED BY SE6. F5A00760 WORD FORMAT-SIGN BIT MADE MINUS BY X89 WHEN A LINK F5A00770 IS TREATED. BITS 1-14=FREQUENCY OF LINK, ADDRESS=NO. OF F5A00780 SUCCESSOR BASIC BLOCK. F5A00790 PRED IS ORDERED ON BB NUMBER AND ENTERED BY SE5. F5A00800 WORD FORMAT IS SIGN BIT NEGATIVE WHEN LINK TREATED. F5A00810 BITS 1-14=FREQUENCY OF LINK. BITS 15-17 CALL FOR SX,S TO F5A00820 APPROPRIATE INDEX CELLS AND BITS 18-20 CALL FOR LX,S TO F5A00830 THE 3 INDEX REGISTERS. THESE SX,S WILL LATER BE COMPILED F5A00840 BETWEEN BASIC BLOCKS BY PART 4 OF SECTION 5. THE ADDRESS F5A00850 CONTAINS THE NUMBER OF THE PREDECESSOR BASIC BLOCK. F5A00860 BBB IS ENTERED BY THE SE AND SE1 ROUTINES. F5A00870 THERE IS A 6 WORD ENTRY FOR EACH BB AND A LAST DUMMY ENTRY. F5A00880 WORD FORMAT FROM SECTION 4. FIRST WORD DECR=STARTING POINT F5A00890 IN SUCC, ADDRESS=STARTING POINT IN PRED OF ENTRIES F5A00900 REFERRING TO THIS BASIC BLOCK. FIRST WORD PREFIX CONTAINS F5A00910 CODE DESCRIBING TYPE OF ENDING BB HAS. CODING IS.... F5A00920 000=DO WITH AN IF, 001=MSE, 010=PROBABILITY BRANCH F5A00930 011=CERTAINTY BRANCH, 100=DO WITHOUT AN IF, 101=GO TO N, F5A00940 110=STOP. SECOND WORD, BITS 12-17=PERMUTATION NUMBERS, F5A00950 INITIALIZED TO 33 BY SECTION 4. ADDRESS=ORDINAL NUMBER OF F5A00960 FIRST TAGLIST ENTRY BELONGING TO THIS BB. REMAINING WORDS F5A00970 INITIALIZED TO ZEROES BY SECTION 4. F5A00980 IN SECTION 5 PART 1, FURTHER ENTRIES ARE MADE. SECOND WORD F5A00990 BITS S-2 INDICATE IR ACTIVITY IN THIS BB. PERMUTATION NOS. F5A01000 MAY UNDERGO CHANGE. WORDS 3-5 RECORD ENTRY AND EXIT CONDS. F5A01010 FOR THE 3 INDEX REGISTERS IN THE DECREMENT AND ADDRESS. F5A01020 WORD 6 DECR=REGION NUMBER BB CURRENTLY BELONGS TO. F5A01030 ADDRESS=NUMBER OF NEXT BB IN REGION. F5A01040 STAG IS INITIALIZED TO ZEROES AT THE START OF PART 1 F5A01050 OF SECTION V. ONE 4 BIT ENTRY FOR EACH TAGLIST INSTR. F5A01060 IS MADE IN PART 1 AND READ IN PART 4. BITS S-8 F5A01070 CALL FOR AN SX FOLLOWING THE INSTRUCTION AND BITS 9-17 F5A01080 FOR AN LX PRECEDING. BITS 18-35 IN PAIRS SPECIFY THE INDEX F5A01090 REGISTER TAGLIST INSTRUCTION IS TO USE. THUS PRED RECORDS F5A01100 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 47 SECTION 5, PART ONE INTER BB LX,S AND SX,S AND STAG RECORDS INTRA-BB LX,S AND F5A01110 SX,S. STAG IS HANDLED BY THE SE4 ROUTINE. F5A01120 CMTAG, THE CORE TAGLIST BUFFER, HAS THE SAME WORD F5A01130 FORMAT, THAT IS, THE DECREMENT CONTAINS THE INSTRUCTION F5A01140 CLASS, CODED FROM 0 TO 6, AND THE ADDRESS CONTAINS THE F5A01150 SYMBOLIC ADDRESS, AS FOLLOWS, BITS 24-26 CONTAIN TAU 1,2, F5A01160 OR 3, AND BITS 27-35 CONTAIN THE NUMBER OF THE ENTRY IN THATF5A01170 TAU TABLE. NOTE THAT IN THE OUTPUT, THE SYMBOLIC ADDRESS OFF5A01180 INDEX CELLS IS, TAU 1=G, TAU 2=10, TAU 3=1G, AND THIS F5A01190 SYMBOL IS FOLLOWED BY THE NUMBER OF THE ENTRY. THUS A F5A01200 TAGLIST ENTRY IN THE ADDRESS OF 003005 IS 1G5, MEANING F5A01210 TAU 3, ENTRY 5. INSTRUCTION CLASSES (IN DECR.) ARE-- F5A01220 1=LXA,LXD,PAX,PDX. 2=LXP. 3=DED. 4 IS UNUSED BUT AVAIL. F5A01230 FOR TNX. 5=ACTIVE INSTR(TIX, TXI). 6=PASSIVE INSTR. F5A01240 A PASSIVE INSTR IS A TAGGED INSTR THAT DOES NOT CHANGE THE F5A01250 CONTENTS OF THE INDEX REG. 7=UNUSED BUT AVAIL. FOR TIX F5A01260 WHEN 7 IS USED FOR A TIX, IT REPRESENTS A TIX USED AS A F5A01270 TRANSFER, NOT AN ACTIVE TIX. ACTIVE INSTRUCTIONS MAY F5A01280 BE RECOGNIZED BY THEIR ADDRESSES, WHICH ARE OF THE FORM *+Q F5A01290 WHERE Q IS SOME CONSTANT. F5A01300 CORE INFORMATION PASSED ON FROM SECTION 4 TO SECTION 5 F5A01310 IS IN THE LAST 4 CORE LOCATIONS, CALLED KEYS, GIVING TABLE F5A01320 LENGTHS. F5A01330 TAPE TABLES USED FOR INPUT INCLUDE TAGLIST AND CIT. F5A01340 TAGLIST, ON TAPE 3, IS HANDLED BY THE S4 SUBROUTINE. F5A01350 IT IS A SEQUENTIAL LIST OF ALL TAGGED OBJECT PROGRAM F5A01360 INSTRUCTIONS RESULTING FROM SECTION 3. EACH ENTRY IS ONE F5A01370 WORD. THE PREFIX DESCRIBES THE TYPE OF INSTRUCTION, AND THE F5A01380 ADDRESS CONTAINS THE SYMBOLIC INDEX REGISTER NAME. F5A01390 INTERMEDIATE TABLES INCLUDE THE ABOVE AND STAG, LPLIST,F5A01400 CMTAG, AND REG.. CMTAG IS A CORE BUFFER FOR TAGLIST. F5A01410 OUTPUT TABLES CONSIST OF CIT ON TAPE. F5A01420 F5A01430 IN ORDER TO INCREASE TABLE SPACE FOR A LARGER MACHINE, F5A01440 SECTION 4 OF FORTRAN, THE FLOW PASS OF TAG ANALYSIS, MUST F5A01450 BE ADJUSTED AS TO THE LENGTH OF TABLES PASSED ON IN CORES F5A01460 TO SECTION 5, AND THE POSITION OF INFORMATION AT THE END OF F5A01470 CORES, HERE SAID TO BE IN KEYS, MUST BE CHANGED. F5A01480 IN SECTION 5, THE PARAMETER MSIZE MUST BE CHANGED F5A01490 F5A01500 F5A01510 00077 PTL1 EQU 63 SPACE FOR PATCHES, PART 1. F5A01520 00044 PTL2 EQU 36 SPACE FOR PATCHES, PART 2. F5A01530 00056 PTL3 EQU 46 SPACE FOR PATCHES, PART 3. F5A01540 00042 PTL4 EQU 34 SPACE FOR PATCHES, PART 4. F5A01550 00310 LCLST SYN 200 F5A01560 00310 ZINST SYN 200 F5A01570 00200 NSXD EQU 128 NO. OF SXD CASES IN SXD LIST F5A01580 00000 SET EQU 0 THIS VALUE IS SET BY THE PROGRAM F5A01590 F5A01600 F5A01610 F5A01620 F5A01630 F5A01640 F5A01650 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 48 SECTION 5, PART ONE EDITOR RECORD 26 F5A01670 PART 1 OF 4, SECTION 5 F5A01680 00102 ORG SYSCUR $F5A01690 BINARY CARD NO. 9F260000 00102 112602060000 BCI 1,9F2600 $F5A01700 73666 ORG (LODR) $F5A01710 BINARY CARD NO. 9F260001 73666 1 00404 0 10421 TXI I,,260 F5A01730 F5A01750 PART 1. F5A01760 OPTIMIZE INDEXING EXCEPT FOR PERMUTATION, GO TO N, F5A01770 INSTRUCTION COMPILATION. F5A01780 03734 ORG BOTTOM F5A01790 ROUTINE TO TRANSFER NEXT F5A01800 PROGRAM PART F5A01810 BINARY CARD NO. 9F260002 03734 0074 00 4 73600 R TSX (LOAD),4 GO TO NEXT RECORD. F5A01820 03735 0 00000 0 00000 PZE F5A01830 03736 1 00000 0 73603 DIAG TXI (DIAG),,0 F5A01840 03737 1 77767 0 73603 ERR59 TXI (DIAG),,-9 REGION TABLE OVERFLOW. F5A01850 CONVERTS STAG, SUCC, PRED, BBB ITEM NUMBERS INTO PROPER F5A01860 INDEX REGISTER 1 QUANTITY TO PICK ITEM UP FROM TABLE. F5A01870 03740 0771 00 0 00022 SE6 ARS 18 FOR STAG, SUCC. SHIFT ITEM TO ADDRESS. F5A01880 03741 -0320 00 0 03764 SE4 ANA SEK2 MASK ITEM. F5A01890 03742 0402 00 0 03766 SE4A SUB SEK5 COMPLEMENT ADDRESS ONLY. F5A01900 03743 0734 00 1 00000 PAX 0,1 LOAD INDEX. F5A01910 03744 0020 00 4 00001 TRA 1,4 RETURN. F5A01920 03745 0771 00 0 00022 SE ARS 18 FOR BBB. SHIFT ITEM TO ADDR. F5A01930 03746 -0320 00 0 03764 SE1 ANA SEK2 MASK ITEM. F5A01940 03747 0131 00 0 00000 XCA 0 PLACE IN MQ. F5A01950 03750 0200 00 0 04004 MPY SIXA F5A01960 03751 0131 00 0 00000 XCA 0 PLACE RESULT IN AC. F5A01970 03752 0020 00 0 03742 TRA SE4A FINISH. F5A01980 03741 SE5 SYN SE4 FOR PRED-SAME AS STAG, SUCC. F5A01990 03753 632127606060 TGLBL BCI 1,TAG F5A02000 03754 224331626360 BLLBL BCI 1,BLIST F5A02010 03755 216223464505 ASLBL BCI 1,ASCON5 F5A02020 03756 233163620005 CTLBL BCI 1,CITS05 F5A02030 03757 233163620003 INSLBL BCI 1,CITS03 F5A02040 03760 213426644560 SBLBL BCI 1,A)FUN F5A02050 03761 254626606060 EFLBL BCI 1,EOF F5A02060 BINARY CARD NO. 9F260003 03762 216223464503 ASCLBL BCI 1,ASCON3 F5A02070 03763 0 00001 0 00000 SK1F PZE ,,1 F5A02080 03764 0 00000 0 77777 SEK2 PZE -1 USED TO EXTRACT ADDRESS. F5A02090 03765 0 77777 0 00000 SEK4 PZE 0,0,-1 IN DECR. PART F5A02100 03766 0 00000 1 00000 SEK5 PZE 0,1 2 EXP 15 F5A02110 03767 0 00000 0 00000 SEV2 PZE 0 STORAGE OF N (DECR.). F5A02120 03770 0500 00 4 00001 SE4F CLA 1,4 CONSTANT FOR RESTORING ROUTINE. F5A02130 03771 0 00000 0 12463 SE4H PZE STAG F5A02140 03772 0 00000 0 40004 PZE BBB F5A02150 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 49 SECTION 5, PART ONE 03773 0 00000 0 56774 PZE PRED F5A02160 03774 0 00000 0 65274 PZE SUCC F5A02170 03775 0 00000 0 00000 SE4J PZE 0 STAG ACTUAL LENGTH. F5A02180 03776 0 00000 0 00000 PZE 0 BBB ACTUAL LENGTH. F5A02190 03777 0 00000 0 00000 PZE 0 PRED ACTUAL LENGTH. F5A02200 04000 0 00000 0 00000 PZE 0 SUCC ACTUAL LENGTH. F5A02210 04001 0 00000 0 00000 ZERO PZE 0 F5A02220 04002 0 00000 0 00001 ONEA PZE 1 F5A02230 04003 0 00001 0 00000 ONED PZE 0,0,1 F5A02240 04004 0 00000 0 00006 SIXA PZE 6 F5A02250 CONSTANTS USED IN S1. ORIGIN OF LATER SECTIONS HERE. F5A02260 04005 0 00006 0 00000 S1K2 PZE 0,0,6 CONSTANT WHICH LOOKS LIKE PASS. REF. F5A02270 04005 C SYN S1K2 F5A02280 04006 0 77777 0 00000 S2K1 PZE 0,0,-1 ONES IN DECR. PART. F5A02290 04007 0 00001 0 00000 S2K2 PZE 0,0,1 CONST. USED TO TEST FOR LX. F5A02300 BINARY CARD NO. 9F260004 04010 -3 77777 7 77777 S3K1 MTH -1,-1,-1 END LOOP LIST SENTINEL. F5A02310 04011 0 77777 7 77777 S3K2 PZE -1,-1,-1 USED TO FIND OUT BY CF IF THIS IS BB. F5A02320 04012 0 00422 0 00000 S3K3 PZE 0,0,S3P1 INITIALIZ. CONST. FOR LPLST. F5A02330 04013 0 00000 7 77777 S3K4 PZE -1,-1 MASK TO EXTRACT LAST 1/2 WORD. F5A02340 04014 0 77777 0 00000 S3K5 PZE 0,0,-1 MASK TO EXTRACT INST. TYPE. F5A02350 CONSTANTS OF S4 F5A02360 04015 0 00000 0 23210 S4K1 PZE CMTL SIZE OF STORAGE FOR TAG TABLE. F5A02370 04016 0 00000 0 00400 S4K2 PZE TGBFSZ F5A02380 04017 0 00000 0 14574 S4K3 PZE CMTAG F5A02390 THE L CONSTANTS MUST BE AHEAD OF THOSE FOR S5 F5A02400 04020 0 00000 7 77776 LK1 PZE -2,-1 E, HASH SYMBOL. F5A02410 04021 -2 00000 0 00000 LK2 MTW 0 CONSTANTS FOR EXTRACTING FIRST TWO OR F5A02420 04022 -3 00000 0 00000 LK3 MTH 0 FIRST THREE BITS OF WORD. F5A02430 CONSTANTS FOR MATCHING SUBROUTINE F5A02440 04023 0 00000 7 77777 S5K1 PZE -1,-1 PHI=EMPTINESS. F5A02450 04024 0 00000 7 77775 S5K2 PZE -3,-1 CONSTANT USED TO TEST FOR REAL TAGS. F5A02460 04025 -0 00000 0 00000 S5K3 MZE 0 F5A02470 04026 0 00000 0 00002 S5K4 PZE 2 F5A02480 04027 0 00000 7 77760 S7K1 PZE -16,7 IMPOSSIBLE TAG VALUE. F5A02490 04030 0 00000 0 00004 S9K1 PZE 4 F5A02500 04031 0 00000 1 00000 S9K2 PZE 0,1 MASK FOR PHI DIGIT NO. 1. F5A02510 04032 0 00000 2 00000 PZE 0,2 MASK FOR PHI DIGIT NO. 2. F5A02520 04033 0 00000 4 00000 PZE 0,4 MASK FOR PHI DIGIT NO. 3. F5A02530 04034 0 00003 0 00000 S9K3 PZE 0,0,3 MASK TO EXTRACT 2 BITS IN DECR. F5A02540 04035 0 00000 0 07776 SAK1 PZE 4094 CONSTANT USED TO TEST NON EXISTENT BB. F5A02550 CONSTANTS OF SB F5A02560 BINARY CARD NO. 9F260005 04036 0 01000 0 00000 SBK1 PZE 0,0,512 CONST. USED TO GENERATE SX BIT. AD. F5A02570 03764 SBK2 SYN SEK2 USED TO EXTRACT ADDRESS. F5A02580 04037 0 00004 0 00000 SBK3 PZE 0,0,4 CONST. TO GENERATE SX BIT FOR TRANSFER. F5A02590 04040 0 10564 0 00000 SCK1 PZE 0,0,LPLST F5A02600 04041 1 77777 0 77777 FK1 PON -1,0,-1 TRANSPARENT REGION CONST. F5A02610 04042 2 77777 0 77777 FK2 PTW -1,0,-1 OPAQUE REGION CONST. F5A02620 04043 0 00000 7 00000 FK3 PZE 0,7 MASK TO EXTRACT TAG. F5A02630 04044 1 77777 7 77777 FK4 PON -1,-1,-1 CONST TO TEST FOR OPAQUE REGION. F5A02640 04045 -0 00000 0 00000 XK3 MZE 0 CONSTANTS USED TO CHANGE REGION WORDS F5A02650 04046 2 00000 0 00000 PTW 0 TO INDICATE THAT F5A02660 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 50 SECTION 5, PART ONE 04047 1 00000 0 00000 PON 0 THE IRS LX ED. F5A02670 04050 -3 77776 0 00000 XK4 MTH 0,0,-2 E, HASH SYMBOL, IN LEFT HALF. F5A02680 04051 -3 00000 0 00000 XK5 MTH 0 MASK FOR PREFIX. F5A02690 04052 0 00000 0 00011 XK9 PZE 9 F5A02700 04045 XK10 SYN XK3 MASK TO EXTRACT FIRST IN BB FIT. F5A02710 04053 0 00001 0 00000 XK11 PZE 0,0,1 CONST. TO GENERATE LX BIT. F5A02720 04054 0 00005 0 00000 XK12 PZE 0,0,5 CONST. TO TEST FOR ACTIVE INSTR. F5A02730 04055 0 00002 0 00000 XK15 PZE 0,0,2 CONST. USED TO TEST FOR LXP. F5A02740 04056 0 00000 4 00000 XK16 PZE 0,4 CONST. TO GENERATE LX BIT. F5A02750 04057 1 00000 0 00000 XK17 PON 0 CONST. TO SEPARATE TYPES. F5A02760 04050 XK18 SYN XK4 E IN LEFT HALF WORD. F5A02770 04060 -3 77777 0 00000 XK19 MTH 0,0,-1 MASK LEFT HALF WORD. F5A02780 04061 -3 77700 7 77777 XK20 MTH -1,-1,-64 CONST. TO DELETE PERM. NUMBERS. F5A02790 04062 0 00003 0 00000 XK21 PZE 0,0,3 CONST. TO TEST FOR DED INSTR. F5A02800 04063 -3 77777 0 77777 XK22 MTH -1,0,-1 CONST. TO DELETE PHIS. F5A02810 BINARY CARD NO. 9F260006 04064 0 00000 1 00000 XK23 PZE 0,1 F5A02820 04065 0 00000 2 00000 PZE 0,2 F5A02830 04066 0 00000 4 00000 PZE 0,4 F5A02840 04067 0 00000 0 00000 S1V1 PZE 0 TEMPORARY STORAGE F5A02850 04070 0 00000 0 00000 PZE 0 FOR FIRST NINE F5A02860 04071 0 00000 0 00000 PZE 0 VARIABLES F5A02870 04072 0 00000 0 00000 PZE 0 IN F5A02880 04073 0 00000 0 00000 PZE 0 THE F5A02890 04074 0 00000 0 00000 PZE 0 S3 F5A02900 04075 0 00000 0 00000 PZE 0 SUB F5A02910 04076 0 00000 0 00000 PZE 0 ROUTINE. F5A02920 04077 0 00000 0 00000 S1V3 PZE 0 THE CLA IN S3 F5A02930 04100 0 00000 0 00000 S1V5 PZE 0 (+/-)=DECIDE ON (MOST/LEAST) REPL. I.R. F5A02940 04101 0 00000 0 00000 S1V6 PZE 0 TEMP STORAGE USED IN ACTIVE PASS. F5A02950 THE IR1,2,3 CELLS SIMULATE OBJECT MACHINE INDEX REGISTERS, F5A02960 AND CONTAIN A REAL TAG, EMPTY SYMBOL 777777, OR HASH F5A02970 SYMBOL 777776. (HASH MEANS THE REGISTER IS NOT EMPTY BUT F5A02980 ITS CONTENTS HAVE NO VALUE, I.E. LXP COMPILED IN SECTION3 OFF5A02990 DED COMPILED IN SECTION 2. (LXP IS A WARNING THAT WHILE IR F5A03000 IS VALUELESS, IT WILL BE LOADED SOON WITH A NEW VALUE.) F5A03010 04102 0 00000 0 00000 IR1 PZE 0 THE 3 I.R.S IN F5A03020 04103 0 00000 0 00000 IR2 PZE 0 THE LAST 1/2 OF REGISTER F5A03030 04104 0 00000 0 00000 IR3 PZE 0 F5A03040 04105 0 00000 0 00000 IRR PZE 0 HOLDS 3,2,1 IF IR1,2,3 SELECTED F5A03050 04106 0 00000 0 00000 IND1 PZE 0 +/-=IR1 FOUND/NOT FOUND. F5A03060 04107 0 00000 0 00000 IND2 PZE 0 AS ABOVE FOR IR2. F5A03070 04110 0 00000 0 00000 IND3 PZE 0 AS ABOVE FOR IR3 F5A03080 04111 0 00000 0 00000 IN4 PZE 0 +F OR - IF IR HAS OR HASNT BEEN FOUND F5A03090 VARIABLES OF S3 SUBROUTINE F5A03100 BINARY CARD NO. 9F260007 04112 0 00000 0 00000 S3V1 PZE 0 LOCATION OF 1ST TAG IN BB. F5A03110 04113 0 00000 0 00000 S3V2 PZE 0 TAG COUNTER IN DECREMENT PART. F5A03120 04114 0 00000 0 00000 S3V3 PZE 0 + NO. OF TAGS LEFT IN BB AFTER TIX, OR -.F5A03130 04115 0 00000 0 00000 S3V4 PZE 0 LOOP LIST INDEX. F5A03140 04116 0 00000 0 00000 1TAG PZE 0 THE TAU-TAG. F5A03150 04117 0 00000 0 00000 TPE PZE 0 THE TYPE OF INSTRUCTION. F5A03160 04120 0 00000 0 00000 INTAG PZE 0 TAG AND INSTR. TYPE (ENTRY IN TAG LIST). F5A03170 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 51 SECTION 5, PART ONE 04121 0 00000 0 00000 S3V5 PZE 0 LOOP LIST QUANTITY. F5A03180 04122 0 00000 0 00000 S3V6 PZE 0 (1ST TAG IN BB-1ST TAG IN C.M.). F5A03190 04123 0 00000 0 00000 S3V7 PZE 0 NO. OF WORDS LEFT IN C.M. F5A03200 04124 0 00000 0 00000 S3V9 PZE 0 (+/-)= (NOT NEW BB/IS NEW BB). F5A03210 VARIABLES OF S4 F5A03220 04125 0 00000 0 00000 S4V1 PZE 0 LOC OF 1ST TAG IN CMTAG. F5A03230 04126 0 00000 0 00000 S4V2 PZE 0 LOC OF 1ST TAG IN NEXT RECORD(TAPE POS.).F5A03240 04127 0 00000 0 00000 S4V3 PZE 0 (LOC OF LAST TAG)+1. F5A03250 ABOVE MUST BE SET AT START. F5A03260 04130 0 00000 0 00000 S4V4 PZE 0 (LOC. OF 1ST TAG IN BB-POS OF TAPE). F5A03270 VARIABLES FOR MATCHING SUBROUTINE S5 F5A03280 04131 0 00000 0 00000 IR4 PZE 0 TEMP. STORAGE OF C(IR1). F5A03290 04132 0 00000 0 00000 IR5 PZE 0 TEMP STORAGE FOR C(IR2). F5A03300 04133 0 00000 0 00000 IR6 PZE 0 TEMP STORAGE FOR C(IR3). F5A03310 04134 0 00000 0 00000 ENC PZE 0 COUNTER OF = F5A03320 04135 0 00000 0 00000 IRC PZE 0 COUNTER OF ' F5A03330 THE IN 1,2,3, EN4,5,6 CELLS ARE LOADED BY THE S5 ROUTINE F5A03340 FOR PERMUTATION OF INDEX REGISTER ASSIGNMENT THROUGHOUT AN F5A03350 ALREADY TREATED REGION UPON ENTRY TO THIS REGION IN LPLST. F5A03360 OPTIMIZED MATCH TO CURRENT VALUE OF IR1,2,3 IS SECURED BY F5A03370 PERMUTING THE ENTIRE REGION AS NECESSARY. THE IN1,2,3 F5A03380 AND EN4,5,6 CELLS LINK THE OLD SYSTEM EN1,2,3 EX1,2,3 F5A03390 ACT1,2,3 FOR THIS REGION WITH THE ABSOLUTE SYSTEM IR1,2,3, F5A03400 AC1,2,3, LX1,2,3. FOR EXAMPLE EN4 IS 3,2,OR1 DEPENDING ON F5A03410 WHETHER THE MATCH OF EN1 IS IR1,2, OR 3. INVERSELY, F5A03420 IN1 IS 3,2, OR 1 FOR THE MATCH OF IR1 EQUAL TO EN1,2, OR 3. F5A03430 04136 0 00000 0 00000 IN1 PZE 0 INDEX OF CORRES OF IR1 F5A03440 04137 0 00000 0 00000 IN2 PZE 0 INDEX OF CORRES OF IR2 F5A03450 BINARY CARD NO. 9F260008 04140 0 00000 0 00000 IN3 PZE 0 INDEX OF CORRES OF IR3 F5A03460 04141 0 00000 0 00000 EN4 PZE 0 INDEX OF CORRES OF EN1 F5A03470 04142 0 00000 0 00000 EN5 PZE 0 INDEX OF CORRES OF EN2 F5A03480 04143 0 00000 0 00000 EN6 PZE 0 INDEX OF CORRES OF EN3 F5A03490 04144 0 00000 0 00000 EN1 PZE 0 THE ENTRANCE F5A03500 04145 0 00000 0 00000 EN2 PZE 0 REQUIRE- F5A03510 04146 0 00000 0 00000 EN3 PZE 0 MENTS. F5A03520 04147 0 00000 0 00000 S5V2 PZE 0 TEMP. STORAGE FOR LOOP LIST QUANTITY. F5A03530 04150 0 00000 0 00000 S9V1 PZE 0 TEMP. STORAGE FOR BB NO. F5A03540 04151 0 00000 0 00000 S9V4 PZE 0 TEMP. STORAGE FOR REGION WORD. F5A03550 VARIABLES OF SA SUBROUTINE (WHICH GETS EXIT CONDTITIONS) F5A03560 04152 0 00000 0 00000 SAV1 PZE 0 TEMP. STORAGE FOR PERMUTATION NOS. F5A03570 04153 0 00000 0 00000 SAV3 PZE 0 TEMP. STORAGE FOR REGION WORD. F5A03580 THE EX1,2,3 CELLS CONTAIN EXIT REQUIREMENTS FOR A BB THAT F5A03590 HAS ALREADY BEEN TREATED. F5A03600 04154 0 00000 0 00000 EX1 PZE 0 THREE F5A03610 04155 0 00000 0 00000 EX2 PZE 0 EXIT F5A03620 04156 0 00000 0 00000 EX3 PZE 0 CONDITIONS. F5A03630 THE ACT1,2,3 CELLS CONTAIN ACTIVITY OF ALREADY TREATED BB. F5A03640 04157 0 00000 0 00000 ACT1 PZE 0 THREE F5A03650 04160 0 00000 0 00000 PZE 0 ACTIVE F5A03660 04161 0 00000 0 00000 PZE 0 INDICATORS. F5A03670 VARIABLES OF SB F5A03680 04162 0 00000 0 00000 SBV2 PZE 0 TEMP STORAGE. F5A03690 04163 0 00000 0 00000 SBV3 PZE 0 TEMP STORAGE. F5A03700 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 52 SECTION 5, PART ONE 04164 0 00000 0 00000 SBV4 PZE 0 INDEX OF REGISTER WHICH IS ACTIVE. F5A03710 04165 0 00000 0 00000 SBV5 PZE 0 STORAGE FOR PERMUTATION NOS. F5A03720 BINARY CARD NO. 9F260009 04166 0 00000 0 00000 SCV3 PZE 0 INDEX OF POSITION IN LOOP LIST. F5A03730 04167 0 00000 0 00000 ACIND PZE 0 + OR - MEANS 2ND OR ACTIVE PASS. F5A03740 04170 0 00000 0 00000 SDV2 PZE 0 INDEX OF ACTIVE IR. F5A03750 04171 0 00000 0 00000 SDV3 PZE 0 THE PERMUTATION NUMBERS. F5A03760 04172 0 00000 0 00000 SFV1 PZE 0 ACTIVE INDICATOR FORMED HERE. F5A03770 04173 0 00000 0 00000 SFV2 PZE 0 RETURN INDEX. F5A03780 04174 0 00000 0 00000 SGV2 PZE 0 PERMUTED REGION WORD F5A03790 04175 0 00000 0 00000 FV1 PZE 0 HIGHEST FREQ. IN REG.--I.E. PRED TABLE ENF5A03800 04176 0 00000 0 00000 FV2 PZE 0 BB NO. OF HIGHEST FREQ. BB (ADDR.). F5A03810 04177 0 00000 0 00000 FV3 PZE 0 PRED. NO. (I.E. 0TH WORD FROM BB(ADDR.)).F5A03820 04200 0 00000 0 00000 FV4 PZE 0 WORD HAVING REGION NO.(5TH BB WORD). F5A03830 04201 0 00000 0 00000 FV5 PZE 0 CURRENT BB NO. BEING CONSIDERED. (ADDR.)F5A03840 04202 0 00000 0 00000 FV7 PZE 0 PRED. NO. BEING CONSIDERED IN BB (ADDR.).F5A03850 04203 0 00000 0 00000 FV8 PZE 0 FIRST PRED FROM NEXT BB (ADDR.). F5A03860 04204 0 00000 0 00000 FV9 PZE 0,0,SET TEMP STORE FOR CURRENT SUCC IN DECR ONLY.F5A03870 04205 0 00000 0 00000 FV10 PZE 0,0,SET TEMP STORE IN DECR ONLY, CURRENT SUCC. F5A03880 04206 0 00000 0 00000 FV101 PZE 0 HIGHEST FREQ. IN BB (PRED TABLE ENTRY). F5A03890 04207 0 00000 0 00000 FV102 PZE 0 BB NO. BEING CONSIDERED (ADDR.). F5A03900 04210 0 00000 0 00000 FV103 PZE 0 PRED NO.(0TH WORD FROM BB (ADDR.)). F5A03910 04211 0 00000 0 00000 FV104 PZE 0 WORD HAVING REGION NO. F5A03920 04212 0 00000 0 00000 LPIND PZE 0 +/- ISNT/IS A LOOP. F5A03930 04213 0 00000 0 00000 LV1 PZE 0 THE CONDITIONS OF THE IRS. F5A03940 BINARY CARD NO. 9F260010 04214 0 00000 0 00000 LV2 PZE 0 AT THE END OF THE F5A03950 04215 0 00000 0 00000 LV3 PZE 0 1ST LXING PASS. F5A03960 04216 0 00000 0 00000 LV4 PZE 0 THE LOOP LIST QUANTITY. F5A03970 04217 0 00000 0 00000 LV5 PZE 0 WORD FROM BB WITH PRED AND SUCC LOCS. F5A03980 ACTIVITY. WHEN SIMULATING A NEW BB IN THE 2ND LXING PASS, F5A03990 IF AN LX, TXI, OR TIX IS ENCOUNTERED, THE APPROPRIATE INDEX F5A04000 REGISTER BECOMES ACTIVE. THIS IS PLUS ACTIVITY. IF THIS F5A04010 REGISTER MUST BE DISPLACED IN THE SAME LPLST, SB IS ENTERED F5A04020 TO RECORD AN SX NECESSARY. SINCE THE ACTIVITY IS PLUS, THE F5A04030 SX WILL BE COMPILED IN STAG IMMEDIATELY AFTER THE ACTIVE F5A04040 INSTRUCTION. THIS SX ENDS THE ACTIVITY, COMPLETELY TAKING F5A04050 CARE OF THE PROBLEM. AT THE END OF LPLST, IF THE INDEX F5A04060 REGISTER IS STILL ACTIVE, OR IF, DURING LPLST, AN ACTIVE F5A04070 REGISTER FALLS OBSOLETE BY DED OR LXD, THEN ALL BLOCKS F5A04080 IN WHICH IT IS ACTIVE ARE MARKED MINUS BY SC. F5A04090 THIS, UNLIKE PLUS ACTIVITY, CAN NEVER BE ENDED. THE F5A04100 APPEARANCE OF A MINUS BB IN A FUTURE LPLST CAUSES THE F5A04110 PROPER AC1,2, OR 3 TO CONTAIN MINUS ACTIVITY AND WHENEVER F5A04120 THE CORRESPONDING INDEX REGISTER MUST BE DISPLACED, AN SB F5A04130 ENTRY WILL CAUSE AN SX TO BE COMPILED IN THE PRED LINK FROM F5A04140 THIS BB. THIS DELAYING OF SX COMPILATION AFTER AN ACTIVE F5A04150 INSTRUCTION AS LONG AS POSSIBLE PRODUCES A LARGER NUMBER F5A04160 OF SX,S THAN STRICTLY NECESSARY, BUT PLACES THEM IN LOW F5A04170 FREQUENCY PATHS, TRADING OBJECT PROGRAM SPACE FOR OBJECT F5A04180 PROGRAM TIME. F5A04190 THE AC1,2,3 CELLS DESCRIBE THE ACTIVITY STATUS OF IR1,2,3. F5A04200 ZERO...NOT ACTIVE, PLUS ACTIVITY...ACTIVE INSTRUCTION IN A F5A04210 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 53 SECTION 5, PART ONE BB NOT TREATED UNTIL THIS LPLST. AC1,2,3 CONTAINS INFO. F5A04220 FOR SB TO MAKE A STAG ENTRY AT THE ACTIVE INSTRUCTION. F5A04230 MINUS ACTIVITY...ACTIVE INSTR. IN BB ALREADY IN A REGION. F5A04240 AC1,2,3 CONTAINS INFO. FOR SB TO MAKE A PRED ENTRY AT LINK F5A04250 OUT OF THE REGION. F5A04260 VARIABLES OF 2ED LXING PASS. F5A04270 04220 0 00000 0 00000 AC1 PZE 0 ACTIVE INDICATORS. +0=NOT ACTIVE. F5A04280 04221 0 00000 0 00000 AC2 PZE 0 +VE=ACTIVE AND INSTR. DECR=LOC OF BB IN F5A04290 04222 0 00000 0 00000 AC3 PZE 0 LPLST. ADDR=LOC. OF Y-TAG. IF -VE, ACTIVF5A04300 04223 0 00000 0 00000 PZE 0 THING IS TRANSFER. LOC IN LPLST IN DECR. F5A04310 THE LX1,2,3 CELLS CONTAIN ENTRANCE REQUIREMENTS FOR A BB. F5A04320 04224 0 00000 0 00000 LX1 PZE 0 3 ENTRANCE REQS. FOR A BB BUILT UP HERE. F5A04330 04225 0 00000 0 00000 LX2 PZE 0 +0 MEANS F5A04340 04226 0 00000 0 00000 LX3 PZE 0 NO ENTRANCE REQS. DETERMINED. F5A04350 04227 0 00000 0 00000 XV1 PZE 0 INDEX OF CURRENT REGION IN DECR. F5A04360 04230 0 00000 0 00000 XV2 PZE 0 THE NEW REGION WORD. F5A04370 04231 0 00000 0 00000 XV3 PZE 0 THE WORD POSITION IN STAG. F5A04380 04232 0 00000 0 00000 XV4 PZE 0 THE DIGIT LOCATION WITHIN THE WORD. F5A04390 04233 0 00000 0 00000 XV5 PZE 0 THE LOCATION OF CURRENT TAG (INSTR.). F5A04400 04234 0 00000 0 00000 XV6 PZE 0 NEAR X07= C.F. OF TNX BRANCH. NEAC X85=TAF5A04410 04235 0 00000 0 00000 XV7 PZE 0 X07 TO X09+=INDEX OF BB. NEAR X85=TAG. F5A04420 04236 0 00000 0 00000 XV8 PZE 0 INDEX OF BB NEAR X33. F5A04430 PERMUTATION. WHEN INDEX REGISTER ASSIGNMENTS THROUGHOUT AN F5A04440 ALREADY TREATED REG. ARE PERMUTED, STAG, PRED AND BBB MUST F5A04450 BE UPDATED. INSTEAD, WORD 2 OF BBB CONTAINS PERMUTATION F5A04460 NUMBERS THROUGH WHICH THESE TABLES ARE READ, AND UPDATING F5A04470 REQUIRES ONLY THESE NUMBERSTO BE CHANGED. IN SECT. V PART F5A04480 2 WHEN THE FINAL CONFIGURATION HAS BEEN REACHED, THE TABLES F5A04490 THEMSELVES ARE ACTUALLY UPDATED. F5A04500 04237 0 00000 0 00000 XV9 PZE 0 THE PERMUTATION NOS. F5A04510 04240 0 00000 0 00000 XV10 PZE 0 INDEX OF IR IN BB CONSIDERED. F5A04520 04241 0 00000 0 00000 XV11 PZE 0 F5A04530 BINARY CARD NO. 9F260011 04242 0 00000 0 00000 XV12 PZE 0 F5A04540 04243 0 00000 0 00000 XV13 PZE 0 INDEX OF PARTICULAR BB(X40 ON). F5A04550 04244 0 00000 0 00000 XV14 PZE 0 TEMP STORAGE FOR 2 INDEXES F5A04560 04245 0 00000 0 00000 XV15 PZE 0 WHILE USING SUBROUTINE. F5A04570 04246 0 00000 0 00000 XV16 PZE 0 TEMP. STORAGE FOR PRED. F5A04580 04247 0 00000 0 00000 XV17 PZE 0 TEMP STORAGE FOR OLD REGION WORD. X74. F5A04590 04250 0 00000 0 00000 XV18 PZE 0 NO. OF SUCC. WE SEARCH FOR IN ADDR. X111.F5A04600 04251 0 00000 0 00000 XV19 PZE 0 TEMP STORAGE FOR PREVIOUS LPLST QUANTITY.F5A04610 04252 0 00000 0 00000 XV20 PZE 0 TEMP STORAGE IN DECR ONLY. F5A04620 04253 0 00000 0 00000 XV21 PZE 0 TEMP STORAGE FOR TAG NEAR X43. F5A04630 04254 0 00000 0 00000 XV22 PZE 0 LAST BB FOR WHICH REGION NUMBER WAS ADDEDF5A04640 04255 0 00000 0 00000 XV23 PZE 0 TEMP STORAGE FOR REGION INDEX IN DECR ONLF5A04650 04256 0 00000 0 00000 XV24 PZE 0 0 / NON 0 IS/ISNT SAME AS 1ST REGION. F5A04660 04257 0 00000 0 00000 AV1 PZE 0 TEMP STORAGE FOR PRED TABLE ENTRY. F5A04670 04260 0 00000 0 00000 AV2 PZE 0 TEMP STORAGE FOR INDEX OF IR. F5A04680 04261 0 00000 0 00000 AV3 PZE 0 TEMP STORAGE FOR PERMUTATION NOS. F5A04690 THE S1 AND S111 ROUTINES SELECT THE MOST (S1) OR THE LEAST F5A04700 (S111) REPLACEABLE INDEX REGISTERS BY SCANNING AHEAD F5A04710 THROUGH LPLST. THE IR WHOSE CONTENTS ARE REQUIRED AGAIN F5A04720 SOONEST (LAST) IS THE LEAST (MOST) REPLACEABLE. THESE F5A04730 ROUTINES USE THE S2 SUBROUTINE, WHICH ACTUALLY TRIES TO F5A04740 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 54 SECTION 5, PART ONE SELECT AN IR. F5A04750 04262 -0760 00 0 00003 S111 SSM SET INDICATOR TO MINUS...MEANING F5A04760 04263 0020 00 0 04265 TRA S109 SEARCH FOR LEAST REPLACEABLE I.R. F5A04770 04264 0760 00 0 00003 S1 SSP SET INDICATOR TO PLUS ....MEANING F5A04780 04265 0601 00 0 04100 S109 STO S1V5 SEARCH FOR MOST REPLACEABLE I.R. F5A04790 04266 0634 00 4 04416 SXA S118,4 STORE RETURN INDEX F5A04800 04267 -0760 00 0 00003 SSM SET F5A04810 BINARY CARD NO. 9F260012 04270 0601 00 0 04106 STO IND1 INDICATORS F5A04820 04271 0601 00 0 04107 STO IND2 TO F5A04830 04272 0601 00 0 04110 STO IND3 NOT F5A04840 04273 0601 00 0 04111 STO IN4 FOUND. F5A04850 04274 0774 00 1 00003 AXT 3,1 SET TO LOOK AT 3 IR S (32)F5A04860 04275 0500 00 1 04105 S120 CLA IR1+3,1 IS IRN EITHER EMPTY OR HASH F5A04870 04276 0402 00 0 04020 SUB LK1 F5A04880 04277 0120 00 0 04306 TPL S124 YES, SELECT IR F5A04890 04300 -2 00001 1 04324 S122 TNX S127,1,1 NO, HAVE WE LOOKED AT ALL 3 (32)F5A04900 04301 0020 00 0 04275 TRA S120 NO, LOOK AT NEXT (32)F5A04910 04302 0 00000 0 00000 PZE NOT USED F5A04920 04303 0 00000 0 00000 PZE NOT USED F5A04930 04304 0 00000 0 00000 PZE NOT USED F5A04940 04305 0 00000 0 00000 PZE NOT USED F5A04950 04306 0502 00 0 04100 S124 CLS S1V5 LOOKING FOR MOST REPLACEABLE F5A04960 04307 -0120 00 0 04320 TMI S129 I.R. F5A04970 04310 0601 00 1 04111 STO IND1+3,1 NO, RECORD IRN ELIMINATED F5A04980 04311 0560 00 0 04111 LDQ IN4 F5A04990 04312 0601 00 0 04111 STO IN4 RECORD SOME IR ELIMINATED F5A05000 04313 0162 00 0 04315 TQP S128 HAS AN IR BEEN ELIMINATED BEFORE F5A05010 04314 0020 00 0 04300 TRA S122 NO, F5A05020 04315 0774 00 1 00003 S128 AXT 3,1 SET COUNT TO 3, N TO 1. F5A05030 BINARY CARD NO. 9F260013 04316 0500 00 1 04111 S126 CLA IND1+3,1 HAS IRN F5A05040 04317 0120 00 0 04322 TPL S125 BEEN ELIMINATED F5A05050 04320 -0634 00 1 04105 S129 SXD IRR,1 NO,SELECT IRN F5A05060 04321 0020 00 4 00001 TRA 1,4 AND RETURN. F5A05070 04322 2 00001 1 04316 S125 TIX S126,1,1 COUNT TO 3,N=N+1 F5A05080 04323 0074 00 4 03736 S130 TSX DIAG,4 ERROR--TO DIAGNOSTIC. F5A05090 04324 0500 00 0 04564 S127 CLA S39 F5A05100 04325 0601 00 0 04077 STO S1V3 STORE ASIDE F5A05110 04326 0774 00 4 00010 AXT 8,4 THE F5A05120 04327 0500 00 4 04122 S112 CLA S3V1+8,4 STATE F5A05130 04330 0601 00 4 04077 STO S1V1+8,4 OF THE F5A05140 04331 2 00001 4 04327 TIX S112,4,1 S3 ROUTINE. F5A05150 04332 0074 00 4 04465 S11 TSX S3,4 GET NEXT TAG F5A05160 04333 0020 00 0 04350 TRA S103 COME HERE IF TAG NOT GOT. F5A05170 04334 0500 00 0 04067 CLA S1V1 F5A05180 04335 0340 00 0 04112 CAS S3V1 IS THE LOOP COMPLETED F5A05190 04336 0020 00 0 04340 TRA S104 NO F5A05200 04337 0020 00 0 04343 TRA S135 PERHAPS F5A05210 04340 0074 00 4 04430 S104 TSX S2,4 NO F5A05220 04341 0020 00 0 04407 TRA S16 COME HERE IF IR DECIDED ON F5A05230 04342 0020 00 0 04332 TRA S11 COME HERE IF NOT DECIDED ON F5A05240 04343 0500 00 0 04070 S135 CLA S1V1+1 IS THE LOOP COMPLETED F5A05250 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 55 SECTION 5, PART ONE BINARY CARD NO. 9F260014 04344 0340 00 0 04113 CAS S3V2 F5A05260 04345 0020 00 0 04340 TRA S104 F5A05270 04346 0020 00 0 04403 TRA S102 YES F5A05280 04347 0020 00 0 04340 TRA S104 F5A05290 04350 0340 00 0 04010 S103 CAS S3K1 IS THIS AN END LOOP LIST F5A05300 04351 0020 00 0 04353 TRA S105 NO F5A05310 04352 0020 00 0 04425 TRA S101 YES F5A05320 04353 0500 00 0 04121 S105 CLA S3V5 GET LOOP LIST QUANTITY AGAIN. F5A05330 04354 0340 00 0 04011 CAS S3K2 IS IT A BB F5A05340 04355 0761 00 0 00000 NOP NO, IS IT EITHER A TRANSPARENT F5A05350 04356 0020 00 0 04360 TRA S137 OR OPAQUE REGION. F5A05360 04357 0020 00 0 04332 TRA S11 YES F5A05370 04360 0340 00 0 04076 S137 CAS S1V1+7 F5A05380 04361 0020 00 0 04363 TRA S136 F5A05390 04362 0020 00 0 04403 TRA S102 F5A05400 04363 0074 00 4 03745 S136 TSX SE,4 GET BB WHICH CONTAINS ENTR. REQU. F5A05410 04364 0560 00 0 04005 LDQ S1K2 MAKE THIS LOOK LIKE A F5A05420 04365 -0600 00 0 04117 STQ TPE PASSIVE REFERENCE. F5A05430 04366 0774 00 4 00003 AXT 3,4 SET COUNT TO 3. F5A05440 04367 -0500 00 1 40006 S115 CAL BBB+2,1 PUT THIS TAU TAG F5A05450 04370 0771 00 0 00022 ARS 18 IN LOCATION F5A05460 04371 0602 00 0 04116 SLW 1TAG TAG F5A05470 BINARY CARD NO. 9F260015 04372 0634 00 1 04376 SXA S116,1 STORE THE F5A05480 04373 0634 00 4 04377 SXA S117,4 INDEXES. F5A05490 04374 0074 00 4 04430 TSX S2,4 TRY TO SELECT AN I.R. F5A05500 04375 0020 00 0 04407 TRA S16 COME HERE IF I.R. SELECTED. F5A05510 04376 0774 00 1 00000 S116 AXT SET,1 AND HERE IF NOT. RESTORE F5A05520 04377 0774 00 4 00000 S117 AXT SET,4 THE INDEXES. F5A05530 04400 1 77777 1 04401 TXI S114,1,-1 DECREASE ENTR. INDEX F5A05540 04401 2 00001 4 04367 S114 TIX S115,4,1 COUNT TO 3. F5A05550 04402 0020 00 0 04332 TRA S11 F5A05560 04403 0500 00 0 04106 S102 CLA IND1 HAS C(IR1) BEEN F5A05570 04404 0120 00 0 04420 TPL S13 FOUND (ELIMINATED) F5A05580 04405 0774 00 4 00003 S18 AXT 3,4 NO, SELECT F5A05590 04406 -0634 00 4 04105 S15 SXD IRR,4 IR1. F5A05600 04407 0774 00 4 00010 S16 AXT 8,4 RESTORE S3 (GET NEXT TAG SR.) F5A05610 04410 0500 00 4 04077 S113 CLA S1V1+8,4 TO STATE F5A05620 04411 0601 00 4 04122 STO S3V1+8,4 BEFORE F5A05630 04412 2 00001 4 04410 TIX S113,4,1 S1 WAS USED. F5A05640 04413 0500 00 0 04077 CLA S1V3 F5A05650 04414 0601 00 0 04564 STO S39 F5A05660 04415 0074 00 4 04575 TSX S4,4 MAKE SURE SAME TAGS ARE IN CM. F5A05670 04416 0774 00 4 00000 S118 AXT SET,4 F5A05680 04417 0020 00 4 00001 S14 TRA 1,4 RETURN F5A05690 BINARY CARD NO. 9F260016 04420 0500 00 0 04107 S13 CLA IND2 HAS IR2 BEEN F5A05700 04421 0120 00 0 04424 TPL S107 FOUND (ELIMINATED) F5A05710 04422 0774 00 4 00002 S108 AXT 2,4 NO, SELECT F5A05720 04423 0020 00 0 04406 TRA S15 IR2. F5A05730 04424 0074 00 4 03736 S107 TSX DIAG,4 ERROR--TO DIAGNOSTIC. F5A05740 OF SOME KIND. F5A05750 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 56 SECTION 5, PART ONE 04425 0560 00 0 04212 S101 LDQ LPIND IS THIS F5A05760 04426 0162 00 0 04403 TQP S102 A LOOP F5A05770 04427 0020 00 0 04332 TRA S11 YES F5A05780 THE S2 SUBROUTINE IS USED BY S1 TO SELECT AN INDEX REG. F5A05790 04430 0500 00 0 04116 S2 CLA 1TAG PUT TAU-TAG IN AC. F5A05800 04431 0774 00 1 00003 AXT 3,1 SET COUNT TO 3. F5A05810 04432 0560 00 1 04111 S22 LDQ IND1+3,1 F5A05820 04433 0162 00 0 04437 TQP S21 BEEN FOUND F5A05830 04434 0340 00 1 04105 CAS IR1+3,1 NO, IS TAU TAG EQUAL F5A05840 04435 0020 00 0 04437 TRA S21 NO,TO C(IRN) F5A05850 04436 0020 00 0 04441 TRA S24 YES F5A05860 04437 2 00001 1 04432 S21 TIX S22,1,1 NO. F5A05870 04440 0020 00 4 00002 TRA 2,4 RETURN TO L(TSX)+2 F5A05880 04441 0500 00 0 04117 S24 CLA TPE F5A05890 04442 0340 00 0 04062 CAS XK21 F5A05900 04443 -0501 00 0 04025 ORA S5K3 F5A05910 04444 0761 00 0 00000 NOP F5A05920 04445 0630 00 0 04447 STP S28 F5A05930 BINARY CARD NO. 9F260017 04446 0502 00 0 04100 CLS S1V5 F5A05940 04447 -0120 00 0 04452 S28 TMI S25 F5A05950 04450 -0634 00 1 04105 S23 SXD IRR,1 RECORD IRN INDEX. F5A05960 04451 0020 00 4 00001 TRA 1,4 F5A05970 04452 0560 00 0 04001 S25 LDQ ZERO RECORD IRN FOUND OR ELIM F5A05980 04453 -0600 00 1 04111 STQ IND1+3,1 F5A05990 04454 0502 00 0 04111 CLS IN4 HAS ONE OTHER I R BEEN F5A06000 04455 -0120 00 0 04460 TMI S26 (FOUND/ELIM) F5A06010 04456 0601 00 0 04111 STO IN4 F5A06020 04457 0020 00 4 00002 TRA 2,4 F5A06030 04460 0774 00 1 00003 S26 AXT 3,1 SEARCH FOR THE F5A06040 04461 0500 00 1 04111 S27 CLA IND1+3,1 I.R. WHICH HASNT F5A06050 04462 -0120 00 0 04450 TMI S23 BEEN (FOUND/ELIM) YET. F5A06060 04463 2 00001 1 04461 TIX S27,1,1 F5A06070 04464 0074 00 4 03736 TSX DIAG,4 NOT FOUND--TO DIAGNOSTIC. F5A06080 THE S3 SUBROUTINE EXISTS IN FEED TAG OR FEED LPLST STATES. F5A06090 IN THE FORMER IT FEEDS THE NEXT ITEM FROM TAGLIST AND TAKES F5A06100 THE TAG FEED EXIT. IN LPLST FEED IT FEEDS THE NEXT ITEM FROMF5A06110 LPLST AND TAKES THE LPLST FEED EXIT. WHEN IT COMES TO A F5A06120 LPLST ITEM WHICH IS A BB AND NOT IN A REGION, IT GOES TO F5A06130 FEED TAG STATE AND STAYS THERE UNTIL THE LAST TAGLIST ITEM IF5A06140 THAT BB HAS BEEN FED. THEN IT RETURNS TO LPLST FEED. WHEN F5A06150 SENTINEL IS FED THE ROUTINE RE-INITIALIZES ITSELF TO THE F5A06160 BEGINNING OF LPLST AND STAYS IN FEED LPLST STATE. IT USES F5A06170 THE S4 SUBROUTINE FOR HANDLING TAPE B3 FOR TAGLIST. F5A06180 04465 -0534 00 1 04113 S3 LXD S3V2,1 ARE THERE ANY F5A06190 04466 2 00001 1 04564 TIX S39,1,1 F5A06200 04467 0634 00 4 04512 SXA S305,4 NO, STORE RETURN INDEX. F5A06210 04470 0500 00 0 04114 CLA S3V3 F5A06220 04471 0601 00 0 04124 STO S3V9 F5A06230 04472 0120 00 0 04556 TPL S300 ARE THERE ANY MORE TAGS IN BB F5A06240 04473 -0534 00 1 04115 LXD S3V4,1 NO F5A06250 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 57 SECTION 5, PART ONE BINARY CARD NO. 9F260018 04474 0500 00 0 04121 CLA S3V5 WAS THE LAST THING F5A06260 04475 0120 00 0 04477 TPL S306 AN END LPLST F5A06270 04476 0774 00 1 00422 AXT S3P1,1 YES, RESET LPLST INDEX. F5A06280 04477 0500 00 1 11206 S306 CLA LPLST+S3P1,1 GET LOOP LIST QUANTITY F5A06290 04500 0601 00 0 04121 STO S3V5 QUANTITY. F5A06300 04501 1 77777 1 04502 TXI S31,1,-1 F5A06310 04502 -0634 00 1 04115 S31 SXD S3V4,1 THE INDEX. F5A06320 04503 0340 00 0 04010 CAS S3K1 IS THIS END OF LOOP LIST F5A06330 04504 0020 00 0 04506 TRA S32 NO, F5A06340 04505 0020 00 0 04514 TRA S35 YES, F5A06350 04506 0340 00 0 04011 S32 CAS S3K2 IS THIS A BB F5A06360 04507 0761 00 0 00000 NOP NO F5A06370 04510 0020 00 0 04512 TRA S305 F5A06380 04511 0020 00 0 04515 TRA S34 YES F5A06390 04512 0774 00 4 00000 S305 AXT SET,4 F5A06400 04513 0500 00 0 04121 CLA S3V5 RETURN WITH LOOP F5A06410 04514 0020 00 4 00001 S35 TRA 1,4 LIST QUANTITY F5A06420 04515 0074 00 4 03745 S34 TSX SE,4 GET INDEX OF BB F5A06430 04516 0500 00 1 40005 CLA BBB+1,1 F5A06440 04517 -0320 00 0 04013 ANA S3K4 GET AND STORE THE F5A06450 04520 0601 00 0 04112 S303 STO S3V1 TAG LOCATION. F5A06460 04521 0074 00 4 04575 TSX S4,4 GO TO PUT TAG IN CM. F5A06470 BINARY CARD NO. 9F260019 04522 0601 00 0 04122 STO S3V6 STORE (1ST BB TAG-1ST TAG IN C.M.) F5A06480 04523 0402 00 0 04015 SUB S4K1 FORM NO. OF F5A06490 04524 0760 00 0 00003 SSP WORDS LEFT IN CM. F5A06500 04525 0601 00 0 04123 STO S3V7 F5A06510 04526 0500 00 0 04121 CLA S3V5 GET THE F5A06520 04527 0400 00 0 04003 ADD ONED LOC. OF 1ST F5A06530 04530 0074 00 4 03745 TSX SE,4 TAG IN F5A06540 04531 0500 00 1 40005 CLA BBB+1,1 NEXT BB. F5A06550 04532 -0320 00 0 04013 ANA S3K4 F5A06560 04533 0402 00 0 04112 SUB S3V1 IS NO. OF TAGS IN BB LESS F5A06570 04534 0340 00 0 04123 CAS S3V7 THAN OR EQUAL TO SPACE IN C.M. F5A06580 04535 0020 00 0 04540 TRA S304 F5A06590 04536 0020 00 0 04561 TRA S36 YES, F5A06600 04537 0020 00 0 04561 TRA S36 YES, F5A06610 04540 0402 00 0 04123 S304 SUB S3V7 STORE S EXCESS OF TAGS F5A06620 04541 0601 00 0 04114 STO S3V3 F5A06630 04542 0500 00 0 04123 CLA S3V7 F5A06640 04543 0734 00 1 00000 S302 PAX 0,1 SET COUNT OF NO. OF TAGS. F5A06650 04544 1 00001 1 04545 S37 TXI S38,1,1 F5A06660 04545 -0634 00 1 04113 S38 SXD S3V2,1 F5A06670 04546 0400 00 0 04017 ADD S4K3 SET ADDRESS OF F5A06680 04547 0400 00 0 04122 ADD S3V6 CLA F5A06690 BINARY CARD NO. 9F260020 04550 0621 00 0 04564 STA S39 INSTRUCTION. F5A06700 04551 0534 00 4 04512 LXA S305,4 F5A06710 04552 0500 00 0 04124 CLA S3V9 IS THIS A F5A06720 04553 0120 00 0 04465 TPL S3 NEW BB F5A06730 04554 0500 00 0 04121 CLA S3V5 YES,RETURN WITH F5A06740 04555 0020 00 4 00001 TRA 1,4 LOOP LIST QUANTITY. F5A06750 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 58 SECTION 5, PART ONE 04556 0500 00 0 04125 S300 CLA S4V1 NEXT TAG NEEDED HAS F5A06760 04557 0400 00 0 04015 ADD S4K1 LOC. (S+1ST TAG IN C.M.) F5A06770 04560 0020 00 0 04520 TRA S303 F5A06780 04561 0560 00 0 04010 S36 LDQ S3K1 F5A06790 04562 -0600 00 0 04114 STQ S3V3 F5A06800 04563 0020 00 0 04543 TRA S302 F5A06810 04564 0500 00 1 00000 S39 CLA -,1 GET TAG WORD F5A06820 04565 -0634 00 1 04113 SXD S3V2,1 F5A06830 04566 0601 00 0 04120 STO INTAG AND F5A06840 04567 -0320 00 0 04013 ANA S3K4 SEPARATE TYPE F5A06850 04570 0601 00 0 04116 STO 1TAG FROM F5A06860 04571 -0500 00 0 04014 CAL S3K5 TAU-TAG. F5A06870 04572 -0320 00 0 04120 ANA INTAG F5A06880 04573 0601 00 0 04117 STO TPE F5A06890 04574 0020 00 4 00002 TRA 2,4 F5A06900 THE S4 SUBROUTINE HANDLES TAPE3 (TAGLIST) F5A06910 04575 0500 00 0 04112 S4 CLA S3V1 LOCATION OF 1ST TAG IN BB F5A06920 BINARY CARD NO. 9F260021 04576 0402 00 0 04125 SUB S4V1 LOCATION OF 1ST TAG IN CM F5A06930 04577 -0120 00 0 04604 TMI S41 IS TAG IN C.M. F5A06940 04600 0340 00 0 04015 CAS S4K1 POSSIBLY,IS IT FOR SURE F5A06950 04601 0761 00 0 00000 NOP NO F5A06960 04602 0020 00 0 04604 TRA S41 NO F5A06970 04603 0020 00 4 00001 TRA 1,4 YES. RETURN. F5A06980 04604 0500 00 0 04112 S41 CLA S3V1 NO,FORM (LOC. OF 1ST TAG IN BB F5A06990 04605 0402 00 0 04126 SUB S4V2 -POSITION OF TAPE) F5A07000 04606 -0120 00 0 04634 TMI S42 MUST WE RUN TAPE BACK WORDS F5A07010 04607 0601 00 0 04130 STO S4V4 NO, F5A07020 04610 0500 00 0 04127 CLA S4V3 CAN ALL THE FOLLOWING TAGS F5A07030 04611 0402 00 0 04126 SUB S4V2 BE PUT IN C.M. F5A07040 04612 0340 00 0 04015 CAS S4K1 F5A07050 04613 0020 00 0 04616 TRA S401 NO F5A07060 04614 0020 00 0 04645 TRA S45 YES,GO TO SET COUNT F5A07070 04615 0020 00 0 04645 TRA S45 YES,TO NO. OF TAGS IN BB. F5A07080 04616 0500 00 0 04130 S401 CLA S4V4 F5A07090 04617 0340 00 0 04016 CAS S4K2 IS TAG IN NEXT RECORD F5A07100 04620 0761 00 0 00000 NOP NO F5A07110 04621 0020 00 0 04623 TRA S47 F5A07120 04622 0020 00 0 04644 TRA S44 YES F5A07130 04623 0634 00 4 04627 S47 SXA *+4,4 F5A07140 BINARY CARD NO. 9F260022 04624 0020 00 0 04627 TRA *+3 F5A07150 04625 0 20000 0 04674 SK1R,,(SKBP) F5A07160 04626 0 00003 0 03753 TGLBL,,FTAPE3 F5A07170 04627 0774 00 4 00000 AXT SET,4 F5A07180 04630 0500 00 0 04126 CLA S4V2 ADJUST TAPE POSITION F5A07190 04631 0400 00 0 04016 ADD S4K2 F5A07200 04632 0601 00 0 04126 S43 STO S4V2 F5A07210 04633 0020 00 0 04604 TRA S41 F5A07220 04634 0634 00 4 04640 S42 SXA *+4,4 F5A07230 04635 0020 00 0 04640 TRA *+3 F5A07240 04636 0 20000 0 04673 BS1R,,(SKBP) F5A07250 04637 0 00003 0 03753 TGLBL,,FTAPE3 F5A07260 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 59 SECTION 5, PART ONE 04640 0774 00 4 00000 AXT SET,4 F5A07270 04641 0500 00 0 04126 CLA S4V2 AFTER BACKSPACING F5A07280 04642 0402 00 0 04016 SUB S4K2 ONE RECORD. F5A07290 04643 0020 00 0 04632 TRA S43 F5A07300 04644 0500 00 0 04015 S44 CLA S4K1 SET COUNT TO STORAGE SIZE. F5A07310 04645 0734 00 2 00000 S45 PAX 0,2 F5A07320 04646 -0634 00 2 04672 SXD DS46,2 F5A07330 04647 0500 00 0 04017 CLA S4K3 SET COPY F5A07340 04650 0621 00 0 04672 STA DS46 ADDRESS. F5A07350 04651 0500 00 0 04126 CLA S4V2 F5A07360 BINARY CARD NO. 9F260023 04652 0601 00 0 04125 STO S4V1 F5A07370 04653 0500 00 0 04126 S49 CLA S4V2 ADJUST F5A07380 04654 0400 00 0 04016 ADD S4K2 TAPE F5A07390 04655 0601 00 0 04126 STO S4V2 POSITION F5A07400 04656 0634 00 4 04662 S46 SXA *+4,4 F5A07410 04657 0074 00 4 73606 TSX (TAPE),4 READ A RECORD OR EXHAUST COUNT. F5A07420 04660 0 40010 0 04672 DS46,,(RBNC) F5A07430 04661 0 00003 0 03753 TGLBL,,FTAPE3 F5A07440 04662 0774 00 4 00000 AXT SET,4 F5A07450 04663 0500 00 0 73675 CLA (SCHU)+FTAPE3 F5A07460 04664 0621 00 0 04672 STA DS46 F5A07470 04665 1 77400 2 04666 TXI *+1,2,-TGBFSZ F5A07480 04666 -3 00000 2 04575 TXL S4,2,0 DONE IF COUNT IS GONE. MAKE SURE TAGS IN F5A07490 04667 3 77377 2 04575 TXH S4,2,-TGBFSZ-1 F5A07500 04670 -0634 00 2 04672 SXD DS46,2 NOT DONE. SET NEW COUNT INTO COMMAND. F5A07510 04671 0020 00 0 04653 TRA S49 CONTINUE. F5A07520 04672 3 00000 0 00000 DS46 IORT SET,,SET IN-OUT ONE RECORD OR FINISH OF COUNT. F5A07530 04673 -0 00000 0 00001 BS1R MZE 1 F5A07540 04674 0 00000 0 00001 SK1R PZE 1 SKIP ONE RECORD. F5A07550 THE S5 SUBROUTINE LOADS EN1,2,3 FROM ENTRANCE CONDITIONS F5A07560 OF THE ENTRY BB IN A REGION WHEN THE REGION IS ENCOUNTERED F5A07570 IN LPLST. IN ADDITION, THE PERMUTATION OF INDEX REGISTERS IF5A07580 THE REGION PROVIDING THE BEST MATCH BETWEEN IR1,2,3 AND F5A07590 EN1,2,3 IS LEFT IN IN1,2,3 AND EN4,5,6 BY S5. S5 USES F5A07600 S1,S111,S6,S7,S9, AS SUBROUTINES. F5A07610 04675 0634 00 4 04771 S5 SXA S541,4 STORE RETURN INDEX. F5A07620 04676 0601 00 0 04147 STO S5V2 STORE LOOP LIST QUANTITY F5A07630 04677 0074 00 4 05115 TSX S9,4 GET THE ENTRANCE F5A07640 REQUIREMENTS F5A07650 BINARY CARD NO. 9F260024 04700 0020 00 0 10500 TRA S5P (32)F5A07660 04701 0774 00 2 00010 AXT 8,2 STORE -0S IN THE COUNTER OF PHIS + OF REAF5A07670 04702 0601 00 2 04144 S51 STO ENC+8,2 STORE -0S IN THE F5A07680 04703 2 00001 2 04702 TIX S51,2,1 REGISTERS. F5A07690 04704 0774 00 1 00003 AXT 3,1 SET INDEX FOR EN1, N=1. F5A07700 04705 0774 00 2 00003 S54 AXT 3,2 SET INDEX FOR IR1, M EQUALS 1. F5A07710 04706 0500 00 1 04147 CLA EN1+3,1 F5A07720 04707 0340 00 0 04023 CAS S5K1 IS ENN EMPTY F5A07730 04710 0020 00 0 04712 TRA S55 NO F5A07740 04711 0020 00 0 05057 TRA S58 YES F5A07750 04712 0560 00 2 04141 S55 LDQ IN1+3,2 NO F5A07760 04713 0162 00 0 04717 TQP S56 IS IRM ASSIGNED F5A07770 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 60 SECTION 5, PART ONE 04714 0340 00 2 04105 CAS IR1+3,2 NO,IS C(ENM)=C(IRM) F5A07780 04715 0020 00 0 04717 TRA S56 NO. F5A07790 04716 0020 00 0 05063 TRA S59 YES. F5A07800 04717 2 00001 2 04712 S56 TIX S55,2,1 NO. THRU WITH IRS F5A07810 04720 2 00001 1 04705 S57 TIX S54,1,1 YES. THRU WITH ENS F5A07820 04721 0774 00 2 00003 AXT 3,2 YES, SET INDEX FOR IR1, M=1. F5A07830 04722 0774 00 1 00003 S510 AXT 3,1 SET INDEX FOR EN1, N=1. F5A07840 04723 0500 00 2 04105 CLA IR1+3,2 F5A07850 04724 0340 00 0 04023 CAS S5K1 IS IRM EMPTY F5A07860 04725 0020 00 0 04727 TRA S511 NO F5A07870 BINARY CARD NO. 9F260025 04726 0020 00 0 04740 TRA S513 YES F5A07880 04727 0560 00 2 04141 S511 LDQ IN1+3,2 NO F5A07890 04730 0162 00 0 04750 TQP S514 IS IRM ASSIGNED F5A07900 04731 0340 00 0 04024 CAS S5K2 NO,IS C(IRM)REAL F5A07910 04732 0020 00 0 04750 TRA S514 NO, F5A07920 04733 0020 00 0 04750 TRA S514 NO, F5A07930 04734 0020 00 0 10504 S512 TRA S512P YES, CHECK FOR EXIT MATCH (32)F5A07940 04735 0400 00 0 04002 ADD ONEA UNASSIGNED TAG F5A07950 04736 0601 00 0 04135 STO IRC COUNTER. F5A07960 04737 0020 00 0 04750 TRA S514 F5A07970 04740 0500 00 1 04144 S513 CLA EN4+3,1 HAS ENN F5A07980 04741 0120 00 0 04747 TPL S537 BEEN ASSIGNED F5A07990 04742 0560 00 0 04024 LDQ S5K2 NO,IS C(ENN) F5A08000 04743 0500 00 1 04147 CLA EN1+3,1 REAL F5A08010 04744 0040 00 0 04747 TLQ S537 F5A08020 04745 0074 00 4 05073 TSX S6,4 YES,MAKE IRM=ENN F5A08030 04746 0020 00 0 04750 TRA S514 F5A08040 04747 2 00001 1 04740 S537 TIX S513,1,1 ARE WE THRU WITH EN S F5A08050 04750 2 00001 2 04722 S514 TIX S510,2,1 YES, ARE WE THRU WITH IRS F5A08060 04751 0500 00 0 04134 CLA ENC YES. F5A08070 04752 -0120 00 0 04757 TMI S515 ARE THERE NO EMPTY ENS F5A08080 04753 0340 00 0 04026 CAS S5K4 HOW MANY EMPTY ENS. F5A08090 BINARY CARD NO. 9F260026 04754 0020 00 0 04757 TRA S515 3 OR 0 F5A08100 04755 0020 00 0 04773 TRA S520 2 EMPTY EN F5A08110 04756 0020 00 0 05016 TRA S526 1 EMPTY EN F5A08120 04757 0774 00 1 00003 S515 AXT 3,1 OR 0 EMPTY EN, N=1. F5A08130 04760 0774 00 2 00003 S519 AXT 3,2 M=1. F5A08140 04761 0500 00 1 04144 CLA EN4+3,1 F5A08150 04762 0120 00 0 04770 TPL S516 ENN ASSIGNED F5A08160 04763 0500 00 2 04141 S518 CLA IN1+3,2 NO,IRM F5A08170 04764 0120 00 0 04767 TPL S517 ASSIGNED F5A08180 04765 0074 00 4 05073 TSX S6,4 NO,MAKE IRM=IRN F5A08190 04766 0020 00 0 04770 TRA S516 F5A08200 04767 2 00001 2 04763 S517 TIX S518,2,1 F5A08210 04770 2 00001 1 04760 S516 TIX S519,1,1 F5A08220 04771 0774 00 4 00000 S541 AXT SET,4 F5A08230 04772 0020 00 4 00001 TRA 1,4 RETURN F5A08240 04773 0500 00 0 04135 S520 CLA IRC F5A08250 04774 0340 00 0 04026 CAS S5K4 ARE THERE 3 REAL UNASSNED TAGS IN THE IRSF5A08260 04775 0020 00 0 05000 TRA S536 F5A08270 04776 0020 00 0 05035 TRA S531 1,NO,GO MATCH EMPTY ENS F5A08280 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 61 SECTION 5, PART ONE 04777 0020 00 0 05035 TRA S531 2,NO. WITH ANY REAL UNASS. IRS F5A08290 05000 0074 00 4 05100 S536 TSX S7,4 3, YES, TO COPY IRS, ETC. F5A08300 05001 0074 00 4 04264 TSX S1,4 SELECT MOST REPLACEABLE I.R. F5A08310 BINARY CARD NO. 9F260027 05002 0774 00 1 00003 AXT 3,1 F5A08320 05003 0074 00 4 05065 TSX S595,4 F5A08330 05004 0500 00 1 04147 S521 CLA EN1+3,1 IS EN F5A08340 05005 0340 00 0 04023 CAS S5K1 EMPTY F5A08350 05006 0020 00 0 05010 TRA S522 NO F5A08360 05007 2 00001 1 05004 TIX S521,1,1 INDEX COUNTER OF IR S F5A08370 05010 0074 00 4 05073 S522 TSX S6,4 MADE ENN = IRM F5A08380 05011 0774 00 1 00003 S529 AXT 3,1 F5A08390 05012 0500 00 1 04134 S525 CLA IR4+3,1 REPLACE THE IRS F5A08400 05013 0601 00 1 04105 STO IR1+3,1 F5A08410 05014 2 00001 1 05012 TIX S525,1,1 F5A08420 05015 0020 00 0 04757 TRA S515 F5A08430 05016 0560 00 0 04135 S526 LDQ IRC F5A08440 05017 0500 00 0 04026 CLA S5K4 ARE THERE 2 OR 3 REAL F5A08450 05020 0040 00 0 05033 TLQ S530 UNASSNED TAGS F5A08460 05021 0074 00 4 05100 TSX S7,4 YES,COPY IRS F5A08470 05022 0074 00 4 04262 TSX S111,4 LOOK FOR LEAST REPLACEABLE I.R. F5A08480 05023 0074 00 4 05065 TSX S595,4 F5A08490 05024 0774 00 1 00003 AXT 3,1 ASSIGN THE EMPTY F5A08500 05025 0500 00 1 04147 S527 CLA EN1+3,1 EN TO THE IR F5A08510 05026 0340 00 0 04023 CAS S5K1 SELECTED F5A08520 05027 0020 00 0 05031 TRA S528 F5A08530 BINARY CARD NO. 9F260028 05030 0074 00 4 05073 TSX S6,4 BY F5A08540 05031 2 00001 1 05025 S528 TIX S527,1,1 S111. F5A08550 05032 0020 00 0 05011 TRA S529 F5A08560 05033 0162 00 0 05035 S530 TQP S531 IS THERE ONE REAL TAG F5A08570 05034 0020 00 0 04757 TRA S515 NO,GO MATCH ARBITRARILY. F5A08580 05035 0774 00 1 00003 S531 AXT 3,1 SET COUNT TO 3, N=1. F5A08590 05036 0774 00 2 00003 AXT 3,2 SET COUNT TO 3, M=1. F5A08600 05037 0500 00 1 04147 S532 CLA EN1+3,1 IS ENN F5A08610 05040 0340 00 0 04023 CAS S5K1 EMPTY F5A08620 05041 0020 00 0 05043 TRA S533 NO, F5A08630 05042 0020 00 0 05045 TRA S534 YES, F5A08640 05043 2 00001 1 05037 S533 TIX S532,1,1 NO,THRU WITH ENS F5A08650 05044 0020 00 0 04757 TRA S515 YES. F5A08660 05045 0500 00 2 04141 S534 CLA IN1+3,2 F5A08670 05046 0120 00 0 05055 TPL S535 F5A08680 05047 0500 00 2 04105 CLA IR1+3,2 NO F5A08690 05050 0340 00 0 04024 CAS S5K2 IS C (IRM) REAL F5A08700 05051 0761 00 0 00000 NOP NO F5A08710 05052 0020 00 0 05055 TRA S535 F5A08720 05053 0074 00 4 05073 TSX S6,4 YES F5A08730 05054 0020 00 0 05043 TRA S533 (32)F5A08740 05055 2 00001 2 05045 S535 TIX S534,2,1 NO F5A08750 BINARY CARD NO. 9F260029 05056 0020 00 0 05043 TRA S533 F5A08760 05057 0500 00 0 04134 S58 CLA ENC YESENM EMPTY F5A08770 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 62 SECTION 5, PART ONE 05060 0400 00 0 04002 ADD ONEA INCREASE COUNTER F5A08780 05061 0601 00 0 04134 STO ENC OF NO. OF EMPTY ENS. F5A08790 05062 0020 00 0 04720 TRA S57 F5A08800 05063 0074 00 4 05073 S59 TSX S6,4 MAKE IRM=ENN F5A08810 05064 0020 00 0 04720 TRA S57 F5A08820 05065 -0534 00 2 04105 S595 LXD IRR,2 F5A08830 05066 0500 00 2 04105 CLA IR1+3,2 F5A08840 05067 0340 00 0 04027 CAS S7K1 F5A08850 05070 0020 00 4 00001 TRA 1,4 F5A08860 05071 0020 00 0 05011 TRA S529 F5A08870 05072 0020 00 4 00001 TRA 1,4 F5A08880 THE S6 SUBROUTINE IS USED BY S5 F5A08890 05073 -0754 00 1 00000 S6 PXD 0,1 F5A08900 05074 0601 00 2 04141 STO IN1+3,2 F5A08910 05075 -0754 00 2 00000 PXD 0,2 F5A08920 05076 0601 00 1 04144 STO EN4+3,1 F5A08930 05077 0020 00 4 00001 TRA 1,4 F5A08940 THE S7 SUBROUTINE IS USED BY S5 F5A08950 05100 0774 00 1 00003 S7 AXT 3,1 SET COUNT TO 3, M=1. F5A08960 05101 0500 00 1 04105 S71 CLA IR1+3,1 COPY ASIDE C(IRM) F5A08970 05102 0601 00 1 04134 STO IR4+3,1 F5A08980 05103 0560 00 1 04141 LDQ IN1+3,1 IRM ASSIGNED F5A08990 BINARY CARD NO. 9F260030 05104 0162 00 0 05111 TQP S72 F5A09000 05105 0340 00 0 04024 CAS S5K2 NO, IS C(IRM) REAL F5A09010 05106 0761 00 0 00000 NOP F5A09020 05107 0020 00 0 05111 TRA S72 NO F5A09030 05110 0020 00 0 05113 TRA S73 YES. F5A09040 05111 0500 00 0 04027 S72 CLA S7K1 NO,REPLACE C(IRM) F5A09050 05112 0601 00 1 04105 STO IR1+3,1 BY IMPOSSIBLE TAG. F5A09060 05113 2 00001 1 05101 S73 TIX S71,1,1 COUNT TO 3,M=M+1 F5A09070 05114 0020 00 4 00001 TRA 1,4 RETURN F5A09080 THE S9 SUBROUTINE LOADS EN1,2,3. F5A09090 05115 0634 00 4 05142 S9 SXA S911,4 STORE RETURN INDEX. F5A09100 05116 0074 00 4 03745 TSX SE,4 MAKE SURE BB IS IN C+M+ F5A09110 05117 0500 00 1 40011 CLA BBB+5,1 GET AND F5A09120 05120 -0734 00 2 00000 PDX 0,2 STORE THE F5A09130 05121 0500 00 2 12463 CLA REG,2 REGION F5A09140 05122 0601 00 0 04151 STO S9V4 WORD+ F5A09150 05123 0774 00 2 00003 AXT 3,2 SET COUNT TO 3, N=1. F5A09160 05124 0500 00 1 40005 CLA BBB+1,1 STORE THE WORD F5A09170 05125 0601 00 0 04150 STO S9V1 CONTAINING THE PERMATATION NOS. F5A09180 05126 0500 00 0 04150 S92 CLA S9V1 EXTRACT THE N TH F5A09190 05127 0771 00 2 00003 ARS 3,2 PERMUTATION NO. F5A09200 05130 0771 00 2 00003 ARS 3,2 AND PUT IT F5A09210 05131 -0320 00 0 04034 ANA S9K3 IN F5A09220 BINARY CARD NO. 9F260031 05132 -0734 00 4 00000 PDX 0,4 INDEX 4. F5A09230 05133 -0500 00 0 04151 CAL S9V4 IS THIS F5A09240 05134 -0320 00 4 04034 ANA S9K2+3,4 AN EMPTY F5A09250 05135 0100 00 0 05144 TZE S93 I.R. F5A09260 05136 0500 00 0 04023 CLA S5K1 YES,STORE EMPTINESS SYMBOL F5A09270 05137 0601 00 4 04147 S94 STO EN1+3,4 F5A09280 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 63 SECTION 5, PART ONE 05140 1 77777 1 05141 TXI S91,1,-1 DOWN THE ENTR. INDEX F5A09290 05141 2 00001 2 05126 S91 TIX S92,2,1 COUNT TO 3 F5A09300 05142 0774 00 4 00000 S911 AXT SET,4 F5A09310 05143 0020 00 4 00001 TRA 1,4 RETURN F5A09320 05144 -0500 00 1 40006 S93 CAL BBB+2,1 SET THE F5A09330 05145 0771 00 0 00022 ARS 18 ENTRANCE REQUIREMENT. F5A09340 05146 0340 00 0 04023 CAS S5K1 IS IT AN EMPTINESS SYMBOL F5A09350 05147 0020 00 0 05137 TRA S94 NO, F5A09360 05150 0500 00 0 04020 CLA LK1 YES,STORE E,(HASH SYMBOL). F5A09370 05151 0020 00 0 05137 TRA S94 NO, F5A09380 THE SA SUBROUTINE LOADS EX1,2,3 AND ACT1,2,3 FROM EXIT F5A09390 CONDITIONS AND ACTIVITY BITS (PREFIX, WORD 2, BBB) OF THE F5A09400 EXIT BB IN A REGION. F5A09410 05152 0634 00 4 05205 SA SXA SA31,4 STORE RETURN INDEX. F5A09420 05153 -0320 00 0 03764 ANA SBK2 F5A09430 05154 0560 00 0 04035 LDQ SAK1 IS THIS AN IMPOSSIBLE BB F5A09440 05155 0040 00 0 05215 TLQ SAIMP YES F5A09450 05156 0074 00 4 03746 TSX SE1,4 MAKE SURE BB IS IN CM. F5A09460 05157 0500 00 1 40011 CLA BBB+5,1 GET AND F5A09470 BINARY CARD NO. 9F260032 05160 -0734 00 2 00000 PDX 0,2 STORE F5A09480 05161 0500 00 2 12463 CLA REG,2 REGION F5A09490 05162 0601 00 0 04153 STO SAV3 WORD. F5A09500 05163 0500 00 1 40005 CLA BBB+1,1 GET AND STORE THE F5A09510 05164 0601 00 0 04152 STO SAV1 WORD HAVING PERMUTATION NOS. F5A09520 05165 0774 00 2 00003 AXT 3,2 SET COUNT TO 3, N=N+1. F5A09530 05166 -0500 00 0 04152 SA1 CAL SAV1 PUT PERMUTATION F5A09540 05167 0771 00 2 00003 ARS 3,2 NUMBER F5A09550 05170 0771 00 2 00003 ARS 3,2 IN F5A09560 05171 -0320 00 0 04034 ANA S9K3 INDEX 4 F5A09570 05172 -0734 00 4 00000 PDX 0,4 F5A09580 05173 -0500 00 0 04153 CAL SAV3 IS THIS F5A09590 05174 -0320 00 4 04034 ANA S9K2+3,4 AN EMPTY F5A09600 05175 0100 00 0 05207 TZE SA2 EXIT F5A09610 05176 0500 00 0 04023 CLA S5K1 YES,STORE EMPTINESS SYMBOL. F5A09620 05177 0601 00 4 04157 SA4 STO EX1+3,4 F5A09630 05200 -0500 00 0 04152 SA5 CAL SAV1 STORE THE F5A09640 05201 0767 00 2 00003 ALS 3,2 ACTIVE F5A09650 05202 0602 00 4 04162 SLW ACT1+3,4 INDICATOR F5A09660 05203 1 77777 1 05204 TXI SA3,1,-1 F5A09670 05204 2 00001 2 05166 SA3 TIX SA1,2,1 COUNT TO 3 F5A09680 05205 0774 00 4 00000 SA31 AXT SET,4 F5A09690 BINARY CARD NO. 9F260033 05206 0020 00 4 00001 TRA 1,4 RETURN F5A09700 05207 -0500 00 1 40006 SA2 CAL BBB+2,1 F5A09710 05210 -0320 00 0 04013 ANA S3K4 IS THIS F5A09720 05211 0340 00 0 04023 CAS S5K1 AN EMPTY SYMBOL F5A09730 05212 0020 00 0 05177 TRA SA4 NO F5A09740 05213 0500 00 0 04020 CLA LK1 YES, REPLACE BY HASH F5A09750 05214 0020 00 0 05177 TRA SA4 NO F5A09760 05215 0500 00 0 04020 SAIMP CLA LK1 PUT HASH IN EX CELLS. F5A09770 05216 0601 00 0 04154 STO EX1 F5A09780 05217 0601 00 0 04155 STO EX2 F5A09790 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 64 SECTION 5, PART ONE 05220 0601 00 0 04156 STO EX3 F5A09800 05221 0020 00 4 00001 TRA 1,4 RETURN. F5A09810 THE SB SUBROUTINE ENTERS A PRED OR STAG BIT TO REQUEST SX F5A09820 COMPILATION. THE APPROPRIATE ACTIVITY CELL AC1,2, OR 3 IS F5A09830 EXAMINED. IF IT IS NEGATIVE (ACTIVE INSTRUCTION IN A BB F5A09840 ALREADY IN A REGION), THE SX BIT IS PLACED IN PRED IN THE F5A09850 LINK OUT OF THE REGION. IF IT IS POSITIVE (ACTIVE INSTRUC. F5A09860 IN A BB IN THIS LPLST), THE SX BIT IS PLACED IN THE STAG F5A09870 TABLE AT THE ACTIVE INSTRUCTION. THE APPROPRIATE AC1,2, OR F5A09880 IS ALSO TURNED OFF BY SB. F5A09890 05222 -0634 00 1 04164 SB SXD SBV4,1 STORE INDEX OF ACTIVE I.R+ F5A09900 05223 0634 00 4 05313 SXA SB61,4 F5A09910 05224 0500 00 1 04223 CLA AC1+3,1 IS THE ACTIVE THING F5A09920 05225 0120 00 0 05275 TPL SB1 AN INSTRUCTION F5A09930 05226 -0734 00 1 00000 PDX 0,1 NO F5A09940 05227 0500 00 1 11206 CLA LPLST+S3P1,1 GET + STORE F5A09950 05230 0340 00 0 04011 CAS S3K2 PRED. BB F5A09960 05231 0761 00 0 00000 NOP F5A09970 05232 0020 00 0 05234 TRA SB01 F5A09980 05233 0771 00 0 00022 ARS 18 NO F5A09990 BINARY CARD NO. 9F260034 05234 0621 00 0 04163 SB01 STA SBV3 F5A10000 05235 0500 00 1 11207 CLA LPLST+S3P1+1,1 F5A10010 05236 0340 00 0 04010 CAS S3K1 END LOOP LIST SENTINEL F5A10020 05237 0020 00 0 05241 TRA SB7 NO, F5A10030 05240 0500 00 0 10564 CLA LPLST YES,SUCCESSOR IS 1ST ENTRY. F5A10040 05241 0074 00 4 03745 SB7 TSX SE,4 NO,GET ADDR. OF F5A10050 05242 0500 00 1 40005 CLA BBB+1,1 PRED. F5A10060 05243 0601 00 0 04165 STO SBV5 STORE PERMUTATION NOS. F5A10070 05244 0500 00 1 40004 CLA BBB,1 GET ADDR OF 1ST PRED. F5A10080 05245 0602 00 0 04162 SB4 SLW SBV2 F5A10090 05246 0074 00 4 03741 TSX SE5,4 F5A10100 05247 -0500 00 1 56774 CAL PRED,1 F5A10110 05250 -0320 00 0 03764 ANA SBK2 F5A10120 05251 0340 00 0 04163 CAS SBV3 IS THIS THE RIGHT TRANSFER F5A10130 05252 0020 00 0 05254 TRA SB2 NO F5A10140 05253 0020 00 0 05257 TRA SB5 YES F5A10150 05254 0500 00 0 04162 SB2 CLA SBV2 NO TRY NEXT PRED. F5A10160 05255 0400 00 0 04002 ADD ONEA F5A10170 05256 0020 00 0 05245 TRA SB4 F5A10180 05257 0774 00 2 00003 SB5 AXT 3,2 F5A10190 05260 -0500 00 0 04165 SB00 CAL SBV5 SEARCH PERMUTATION F5A10200 05261 0771 00 2 00003 ARS 3,2 NOS. FOR THE INDEX F5A10210 BINARY CARD NO. 9F260035 05262 0771 00 2 00003 ARS 3,2 STORED IN SBV4 F5A10220 05263 -0320 00 0 04034 ANA S9K3 F5A10230 05264 0340 00 0 04164 CAS SBV4 IS THIS PERMUTATION NO. F5A10240 05265 0020 00 0 05267 TRA SB8 NO EQUAL TO THE ACTIVE F5A10250 05266 0020 00 0 05271 TRA SB9 YES IR F5A10260 05267 2 00001 2 05260 SB8 TIX SB00,2,1 NO F5A10270 05270 0074 00 4 03736 TSX DIAG,4 ERROR.--TO DIAGNOSTIC. F5A10280 05271 0500 00 0 04037 SB9 CLA SBK3 GENERATE NO STORE F5A10290 05272 0771 00 2 00003 ARS 3,2 THE F5A10300 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 65 SECTION 5, PART ONE 05273 -0602 00 1 56774 ORS PRED,1 SX FIT IN F5A10310 05274 0020 00 0 05310 TRA SB6 PRED. TABLE. F5A10320 05275 -0320 00 0 04013 SB1 ANA S3K4 F5A10330 05276 0765 00 0 00043 LRS 35 COMPUTE NO. OF WORD IN F5A10340 05277 0221 00 0 04052 DVP XK9 STAG AND POSITION OF SX F5A10350 05300 0734 00 2 00000 PAX 0,2 FIT IN WORD. F5A10360 05301 -0500 00 0 04036 CAL SBK1 GENERATE F5A10370 05302 0767 00 2 00010 ALS 8,2 THE BIT F5A10380 05303 0602 00 0 04162 SLW SBV2 TO F5A10390 STORE. F5A10400 05304 0763 00 0 00043 LLS 35 GET NO. OF WORD OUT OF MQ. F5A10410 05305 0074 00 4 03741 TSX SE4,4 MAKE SURE THE WD IS IN C.M. F5A10420 05306 -0500 00 0 04162 CAL SBV2 F5A10430 05307 -0602 00 1 12463 ORS STAG,1 F5A10440 BINARY CARD NO. 9F260036 05310 0500 00 0 04001 SB6 CLA ZERO SET IR F5A10450 05311 -0534 00 1 04164 LXD SBV4,1 TO F5A10460 05312 0601 00 1 04223 STO AC1+3,1 NOT ACTIVE. F5A10470 05313 0774 00 4 00000 SB61 AXT SET,4 RE- F5A10480 05314 0020 00 4 00001 TRA 1,4 TURN F5A10490 THE SC SUBROUTINE HANDLES THE PROBLEM OF AN ACTIVE INDEX F5A10500 REGISTER WITH NO SUBSEQUENT LX IN THE PRESENT REGION. THIS F5A10510 POSTPONES THE NECESSITY OF AN SX UNTIL A LATER LX IS FOUND. F5A10520 THE ACTIVITY IS TRANSFERRED FROM AC1,2,3 TO PREFIX, WORD 2, F5A10530 BBB FOR ALL BB,S DURING WHICH INDEX REGISTER IS ACTIVE. F5A10540 THIS PROPAGATION OF ACTIVITY WHEN NOT TURNED OFF DURING THE F5A10550 TREATMENT OF THE LPLST IN WHICH IT AROSE IS CALLED MARK- F5A10560 ING A SECTION OF LPLST ACTIVE. ALL BB,S BETWEEN THE ORIGIN F5A10570 OF THE ACTIVITY AND THE PRESENT POINT OF LPLST WHEN SC IS F5A10580 ENTERED ARE MARKED ACTIVE, AND THE DESIGNATED AC1,2,3 IS F5A10590 TURNED OFF. SD IS USED AS A SUBROUTINE, DOING THE ACTUAL F5A10600 MARKING OF BB,S ACTIVE. F5A10610 05315 0500 00 1 04223 SC CLA AC1+3,1 IS IR F5A10620 05316 0100 00 4 00001 TZE 1,4 ACTIVE F5A10630 05317 0634 00 4 05364 SXA SC51,4 YES, STORE RETURN F5A10640 05320 -0634 00 1 05372 SXD SC9,1 AND INDEX OF ACTIVE I.R+ F5A10650 05321 0622 00 0 04166 STD SCV3 STORE INDEX OF LOOP LIST. F5A10660 05322 0500 00 0 04166 CLA SCV3 IS THIS THE CURRENT F5A10670 05323 0402 00 0 04003 SUB ONED F5A10680 05324 -0400 00 0 04115 SBM S3V4 IS THIS THE CURRENT LPLST INDEX F5A10690 05325 -0100 00 0 05330 TNZ SC40 F5A10700 05326 0500 00 0 04167 CLA ACIND YES F5A10710 05327 0120 00 4 00001 TPL 1,4 IS THIS THE ACTIVE PASS F5A10720 05330 -0534 00 2 04166 SC40 LXD SCV3,2 YES F5A10730 05331 0500 00 2 11206 CLA LPLST+S3P1,2 F5A10740 05332 0340 00 0 04011 CAS S3K2 IS 1ST AACTIVE QUANTITY A BB F5A10750 05333 0020 00 0 05355 TRA SC02 F5A10760 05334 0020 00 0 05355 TRA SC02 NO F5A10770 05335 0020 00 0 05370 TRA SC8 YES F5A10780 BINARY CARD NO. 9F260037 05336 0402 00 0 04003 SC4 SUB ONED IS THIS CURRENT F5A10790 05337 0340 00 0 04115 CAS S3V4 LOOP LIST INDEX F5A10800 05340 0020 00 0 05342 TRA SC2 NO, F5A10810 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 66 SECTION 5, PART ONE 05341 0020 00 0 05361 TRA SC5 YES, F5A10820 05342 -0534 00 2 04166 SC2 LXD SCV3,2 NO, F5A10830 05343 0500 00 2 11206 CLA LPLST+S3P1,2 F5A10840 05344 0340 00 0 04010 CAS S3K1 IS IT END LOOP LIST F5A10850 05345 0020 00 0 05347 TRA SC3 NO, F5A10860 05346 0020 00 0 05366 TRA SC6 YES, F5A10870 05347 0340 00 0 04011 SC3 CAS S3K2 NO,IS IT A BB F5A10880 05350 0761 00 0 00000 NOP NO, F5A10890 05351 0020 00 0 05353 TRA SC04 F5A10900 05352 0020 00 0 05370 TRA SC8 YES, F5A10910 05353 -0534 00 2 05372 SC04 LXD SC9,2 NO, PUT INDEX OF ACTIVE IR F5A10920 05354 0074 00 4 05407 TSX SD,4 IN 2. GO TO RECORD REGION ACTIVE. F5A10930 05355 0500 00 0 04166 SC02 CLA SCV3 PREPARE TO GET F5A10940 05356 0402 00 0 04003 SUB ONED NEXT F5A10950 05357 0622 00 0 04166 SC7 STD SCV3 LOOP LIST QUANTITY. F5A10960 05360 0020 00 0 05336 TRA SC4 F5A10970 05361 -0534 00 1 05372 SC5 LXD SC9,1 F5A10980 05362 0500 00 0 04001 CLA ZERO RECORD I.R. NOT F5A10990 05363 0601 00 1 04223 STO AC1+3,1 ACTIVE ANYMORE. F5A11000 BINARY CARD NO. 9F260038 05364 0774 00 4 00000 SC51 AXT SET,4 F5A11010 05365 0020 00 4 00001 TRA 1,4 RETURN. F5A11020 05366 0500 00 0 04012 SC6 CLA S3K3 ARRANGE TO GET 1ST LPLST QUANTITY F5A11030 05367 0020 00 0 05357 TRA SC7 QUANTITY NEXT. F5A11040 05370 0074 00 4 03745 SC8 TSX SE,4 F5A11050 05371 0634 00 1 05404 SXA SC00,1 GET INDEX OF BB. F5A11060 05372 1 00000 1 05373 SC9 TXI SC01,1,0 INCREASE INDEX BY INDEX OF OCT. I.R. F5A11070 05373 0500 00 1 40011 SC01 CLA BBB+5,1 GET THE F5A11080 05374 -0320 00 0 04013 ANA S3K4 EXIT CONDITION. F5A11090 05375 -0534 00 2 05372 LXD SC9,2 IS EXIT COND. SAME F5A11100 05376 0340 00 2 04105 CAS IR1+3,2 AS TAG IN ACTIVE I.RH F5A11110 05377 0020 00 0 05355 TRA SC02 NO, F5A11120 05400 0020 00 0 05402 TRA SC03 YES, F5A11130 05401 0020 00 0 05355 TRA SC02 NO, F5A11140 05402 -0500 00 0 04025 SC03 CAL S5K3 RECORD THAT BB IS F5A11150 05403 0771 00 2 00003 ARS 3,2 ACTIVE F5A11160 05404 0774 00 1 00000 SC00 AXT SET,1 WO THIS F5A11170 05405 -0602 00 1 40005 ORS BBB+1,1 I+R. F5A11180 05406 0020 00 0 05355 TRA SC02 F5A11190 THE SD SUBROUTINE IS USED BY SC TO MARK BBS ACTIVE F5A11200 05407 -0634 00 2 04170 SD SXD SDV2,2 F5A11210 05410 0634 00 4 05452 SXA SD8,4 STORE RETURN. F5A11220 05411 0074 00 4 03745 TSX SE,4 GET INDEX OF BB F5A11230 BINARY CARD NO. 9F260039 05412 0500 00 1 40011 CLA BBB+5,1 GET F5A11240 05413 -0734 00 1 00000 PDX 0,1 REGION F5A11250 05414 0500 00 1 12463 CLA REG,1 WORD. F5A11260 05415 0074 00 4 03745 TSX SE,4 GET BB INDEX. F5A11270 05416 0634 00 1 05437 SD7 SXA SD41,1 F5A11280 05417 0500 00 1 40005 CLA BBB+1,1 STORE F5A11290 05420 0601 00 0 04171 STO SDV3 AWAY THE PERMUTATION NOS. F5A11300 05421 0774 00 2 00003 AXT 3,2 SET COUNT TO 3, N=1. F5A11310 05422 -0500 00 0 04171 SD3 CAL SDV3 IS F5A11320 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 67 SECTION 5, PART ONE 05423 0771 00 2 00003 ARS 3,2 PERMUTATION NO. F5A11330 05424 0771 00 2 00003 ARS 3,2 F5A11340 05425 -0320 00 0 04034 ANA S9K3 N EQUAL F5A11350 05426 0340 00 0 04170 CAS SDV2 TO I.R. INDEX F5A11360 05427 0020 00 0 05431 TRA SD1 NO F5A11370 05430 0020 00 0 05434 TRA SD4 YES F5A11380 05431 1 77777 1 05432 SD1 TXI SD1+1,1,-1 NO F5A11390 05432 2 00001 2 05422 SD2 TIX SD3,2,1 COUNT TO 3 F5A11400 05433 0074 00 4 03736 TSX DIAG,4 F5A11410 05434 -0500 00 1 40006 SD4 CAL BBB+2,1 F5A11420 05435 -0320 00 0 04013 ANA S3K4 IS TAG IN F5A11430 05436 -0534 00 4 04170 LXD SDV2,4 EXIT CONDITION F5A11440 05437 0774 00 1 00000 SD41 AXT SET,1 SAME AS IN ACTIVE IR. F5A11450 BINARY CARD NO. 9F260040 05440 0340 00 4 04105 CAS IR1+3,4 F5A11460 05441 0020 00 0 05443 TRA SD5 NO F5A11470 05442 0020 00 0 05454 TRA SD9 YES,IS F5A11480 05443 -0500 00 1 40011 SD5 CAL BBB+5,1 NO THIS LAST F5A11490 05444 -0320 00 0 03764 ANA SBK2 BB F5A11500 05445 0340 00 0 03764 CAS SBK2 IN REGION F5A11510 05446 0020 00 0 05450 TRA SD6 NO F5A11520 05447 0020 00 0 05452 TRA SD8 YES F5A11530 05450 0074 00 4 03746 SD6 TSX SE1,4 NO F5A11540 05451 0020 00 0 05416 TRA SD7 F5A11550 05452 0774 00 4 00000 SD8 AXT SET,4 RETURN F5A11560 05453 0020 00 4 00001 TRA 1,4 F5A11570 05454 -0500 00 0 04025 SD9 CAL S5K3 RECORD THIS BB F5A11580 05455 0771 00 2 00003 ARS 3,2 ACTIVE F5A11590 05456 -0602 00 1 40005 ORS BBB+1,1 WO THIS IR F5A11600 05457 0020 00 0 05443 TRA SD5 F5A11610 THE SF SUBROUTINE FORMS APPROPRIATE AC1,2,3 ENTRY WHEN AN F5A11620 ACTIVE INSTRUCTION IS ENCOUNTERED. F5A11630 05460 0500 00 0 04117 SF CLA TPE IS THIS F5A11640 05461 0340 00 0 04007 CAS S2K2 AN LX F5A11650 05462 0020 00 0 05464 TRA SF1 NO, F5A11660 05463 0020 00 0 05470 TRA SF4 YES, F5A11670 05464 0340 00 0 04054 SF1 CAS XK12 NO,IS IT AN ACTIVE INSTR F5A11680 05465 0020 00 4 00001 TRA 1,4 NO RETURN F5A11690 BINARY CARD NO. 9F260041 05466 0020 00 0 05470 TRA SF4 YES, F5A11700 05467 0020 00 4 00001 TRA 1,4 NO F5A11710 05470 0500 00 0 04233 SF4 CLA XV5 FORM QUANTITY TO F5A11720 05471 0601 00 0 04172 STO SFV1 BE PUT F5A11730 05472 -0534 00 2 04115 LXD S3V4,2 INTO F5A11740 05473 1 00001 2 05474 TXI SF5,2,1 ACTIVE F5A11750 05474 -0634 00 2 04172 SF5 SXD SFV1,2 INDICATOR F5A11760 05475 0020 00 4 00002 TRA 2,4 F5A11770 PERMUTE THE PHI AND LX BITS SUBROUTINE F5A11780 THE SG SUBROUTINE PERMUTES AS INDICATED BY EN4,5,6 ON A REG F5A11790 ENTRY. F5A11800 05476 0634 00 4 05527 SG SXA SG11,4 SAVE RETURN F5A11810 05477 0560 00 0 04002 LDQ ONEA SET NEW LX AND PHI BITS TO ONEA F5A11820 05500 -0600 00 0 04174 STQ SGV2 F5A11830 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 68 SECTION 5, PART ONE 05501 0500 00 0 04121 CLA S3V5 GET INDEX OF REGION WORD F5A11840 05502 0074 00 4 03745 TSX SE,4 F5A11850 05503 0500 00 1 40011 CLA BBB+5,1 F5A11860 05504 -0734 00 2 00000 PDX 0,2 F5A11870 05505 0774 00 4 00003 AXT 3,4 SET COUNT TO 3 F5A11880 05506 0500 00 4 04144 SG1 CLA EN4+3,4 FIND INDEX OF IR F5A11890 05507 -0734 00 1 00000 PDX 0,1 F5A11900 05510 -0500 00 2 12463 CAL REG,2 PERMUTE THE LX BIT F5A11910 05511 0767 00 4 00003 ALS 3,4 F5A11920 05512 -0320 00 0 04025 ANA S5K3 F5A11930 05513 0771 00 1 00003 ARS 3,1 F5A11940 BINARY CARD NO. 9F260042 05514 -0602 00 0 04174 ORS SGV2 F5A11950 05515 -0500 00 2 12463 CAL REG,2 PERMUTE THE PHI BIT F5A11960 05516 0771 00 4 00003 ARS 3,4 F5A11970 05517 -0320 00 0 04064 ANA XK23 F5A11980 05520 0767 00 1 00003 ALS 3,1 F5A11990 05521 -0602 00 0 04174 ORS SGV2 F5A12000 05522 2 00001 4 05506 TIX SG1,4,1 COUNT TO 3 F5A12010 05523 -0500 00 2 12463 CAL REG,2 F5A12020 05524 -0320 00 0 03765 ANA SEK4 F5A12030 05525 -0501 00 0 04174 ORA SGV2 F5A12040 05526 0602 00 2 12463 SLW REG,2 F5A12050 05527 0774 00 4 00000 SG11 AXT SET,4 RETURN F5A12060 05530 0020 00 4 00001 TRA 1,4 F5A12070 THE F1 SUBROUTINE FINDS THE HIGHEST FREQUENCY PRED ENTRY FORF5A12080 A GIVEN BB AND STORES IT IN FV 101. F5A12090 05531 0634 00 4 05570 F1 SXA F5,4 STORE RETURN F5A12100 05532 0560 00 0 04001 LDQ ZERO SET HIGHEST F5A12110 05533 -0600 00 0 04206 STQ FV101 FREQ. TO 0. F5A12120 05534 0601 00 0 04207 STO FV102 STORE BB NO+ F5A12130 05535 0074 00 4 03746 TSX SE1,4 GET INDEX OF BB F5A12140 05536 0500 00 1 40011 CLA BBB+5,1 STORE REGION F5A12150 05537 0601 00 0 04211 STO FV104 NO. WORD. F5A12160 05540 -0500 00 1 40004 CAL BBB,1 GET PRED. F5A12170 05541 0621 00 0 04202 STA FV7 NO. AND STORE IT F5A12180 BINARY CARD NO. 9F260043 05542 -0500 00 0 04207 CAL FV102 GET AND STORE F5A12190 05543 0400 00 0 04002 ADD ONEA FIRST PRED. IN F5A12200 05544 0074 00 4 03746 TSX SE1,4 NEXT B.B. F5A12210 05545 0500 00 1 40004 CLA BBB,1 F5A12220 05546 0621 00 0 04203 STA FV8 F5A12230 05547 0500 00 0 04202 CLA FV7 IS THIS PRED. F5A12240 05550 0340 00 0 04203 F4 CAS FV8 IN SAME BB F5A12250 05551 0020 00 0 05553 TRA F2 F5A12260 05552 0020 00 0 05570 TRA F5 NO F5A12270 05553 0074 00 4 03741 F2 TSX SE5,4 GET INDEX OF PRED F5A12280 05554 0500 00 1 56774 CLA PRED,1 F5A12290 05555 0340 00 0 04206 CAS FV101 IS THIS FREQ. GREATER F5A12300 05556 0020 00 0 05561 TRA F92 F5A12310 05557 0761 00 0 00000 NOP F5A12320 05560 0020 00 0 05564 TRA F3 NO F5A12330 05561 0601 00 0 04206 F92 STO FV101 STORE NEW MAX. F5A12340 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 69 SECTION 5, PART ONE 05562 0500 00 0 04202 CLA FV7 STORE NEW F5A12350 05563 0601 00 0 04210 STO FV103 PRED. NO. F5A12360 05564 0500 00 0 04202 F3 CLA FV7 ARRANGE TO F5A12370 05565 0400 00 0 04002 ADD ONEA CONSIDER NEXT PRED. F5A12380 05566 0621 00 0 04202 STA FV7 F5A12390 05567 0020 00 0 05550 TRA F4 F5A12400 BINARY CARD NO. 9F260044 05570 0774 00 4 00000 F5 AXT SET,4 F5A12410 05571 0020 00 4 00001 TRA 1,4 RETURN F5A12420 THE F15 SUBROUTINE MOVES THE LOOPLIST UP F5A12430 05572 0774 00 1 00422 F15 AXT S3P1,1 SET INDEX TO START OF LOOPLIST. F5A12440 05573 0500 00 2 11206 F26 CLA LPLST+S3P1,2 MOVE THIS F5A12450 05574 0601 00 1 11206 STO LPLST+S3P1,1 ENTRY UP. F5A12460 05575 -3 00000 2 05600 F18 TXL F17,2,SET IN DECR., THE INDEX OF LAST TO BE MOVED. F5A12470 05576 2 00001 1 05577 TIX F16,1,1 NO. F5A12480 05577 2 00001 2 05573 F16 TIX F26,2,1 ARE WE FINISHED COPYING. F5A12490 05600 0601 00 0 10563 F17 STO LPLST-1 CASE OF LOOP, STORE PRED. OF 1ST ELEMENT.F5A12500 05601 0500 00 0 04010 CLA S3K1 STORE THE END F5A12510 05602 0601 00 1 11207 STO LPLST+S3P1+1,1 LOOP LIST QUANTITY. F5A12520 05603 0020 00 4 00001 TRA 1,4 F5A12530 THE F30 SUBROUTINE FINDS THE HIGHEST FREQ. SUCC ENTRY FOR F5A12540 A GIVEN BB AND STORES IT IN FV 101. F5A12550 05604 0634 00 4 05643 F30 SXA F34,4 F5A12560 05605 0560 00 0 04001 LDQ ZERO SET HIGHEST FREQH F5A12570 05606 -0600 00 0 04206 STQ FV101 TO 0. F5A12580 05607 0601 00 0 04207 STO FV102 STORE BB NO. F5A12590 05610 0074 00 4 03745 TSX SE,4 F5A12600 05611 0500 00 1 40011 CLA BBB+5,1 F5A12610 05612 0601 00 0 04211 STO FV104 F5A12620 05613 -0500 00 1 40004 CAL BBB,1 GET SUCC. NO. F5A12630 05614 0622 00 0 04204 STD FV9 AND STORE IT F5A12640 05615 -0500 00 0 04207 CAL FV102 GET AND STORE F5A12650 BINARY CARD NO. 9F260045 05616 0400 00 0 04003 ADD ONED SUCC. F5A12660 05617 0074 00 4 03745 TSX SE,4 NO. F5A12670 05620 0500 00 1 40004 CLA BBB,1 OF 1ST SUCC. F5A12680 05621 0622 00 0 04205 STD FV10 IN NEXT BB F5A12690 05622 0500 00 0 04204 CLA FV9 F5A12700 05623 0340 00 0 04205 F31 CAS FV10 IS SUCC IN SAME BB F5A12710 05624 0020 00 0 05626 TRA F32 F5A12720 05625 0020 00 0 05643 TRA F34 NO. F5A12730 05626 0074 00 4 03740 F32 TSX SE6,4 GET INDEX OF SUCC. F5A12740 05627 0500 00 1 65274 CLA SUCC,1 F5A12750 05630 0340 00 0 04206 CAS FV101 IS THIS FREQ. GREATER F5A12760 05631 0020 00 0 05634 TRA F93 F5A12770 05632 0761 00 0 00000 NOP F5A12780 05633 0020 00 0 05637 TRA F33 NO F5A12790 05634 0601 00 0 04206 F93 STO FV101 STORE NEW MAX. F5A12800 05635 0500 00 0 04204 CLA FV9 STORE NEW F5A12810 05636 0601 00 0 04210 STO FV103 SUCC. NO. F5A12820 05637 0500 00 0 04204 F33 CLA FV9 ARRANGE TO CONSIDER F5A12830 05640 0400 00 0 04003 ADD ONED NEXT SUCC. F5A12840 05641 0622 00 0 04204 STD FV9 F5A12850 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 70 SECTION 5, PART ONE 05642 0020 00 0 05623 TRA F31 F5A12860 05643 0774 00 4 00000 F34 AXT SET,4 F5A12870 BINARY CARD NO. 9F260046 05644 0020 00 4 00001 TRA 1,4 RETURN F5A12880 THE F80 SUBROUTINE ASSIGNS NEW REGION NUMBERS F5A12890 05645 0774 00 1 01255 F80 AXT FP1,1 FIND F5A12900 05646 0500 00 1 12463 F81 CLA REG,1 THE 1ST AVAILABLE REGION F5A12910 05647 0100 00 0 05652 TZE F82 POSITION. F5A12920 05650 2 00001 1 05646 TIX F81,1,1 F5A12930 05651 0074 00 4 03737 TSX ERR59,4 GO TO DIAGNOSTIC. F5A12940 05652 -0634 00 1 04227 F82 SXD XV1,1 STORE THE INDEX OF THE NEW REGION WORD. F5A12950 05653 0560 00 0 04001 F83 LDQ ZERO STORE INITIAL F5A12960 05654 -0600 00 0 04230 STQ XV2 VALUE OF REGION F5A12970 05655 0020 00 4 00001 TRA 1,4 F5A12980 LOOPLIST FORMATION STARTS HERE F5A12990 05656 0500 00 0 04001 F CLA ZERO SET INDICATOR TO SAY F5A13000 05657 0601 00 0 04212 STO LPIND THIS ISNT A LOOP. F5A13010 05660 0601 00 0 04175 STO FV1 SET HIGHEST FREQ. TO 0. F5A13020 05661 0601 00 0 04201 STO FV5 SET TO CONSIDER 0TH BB F5A13030 05662 0500 00 0 04201 F7 CLA FV5 F5A13040 05663 0074 00 4 05531 TSX F1,4 FIND MOST FREQ. UNCONSIDERED TRANSFER F5A13050 05664 0500 00 0 04206 CLA FV101 IS IT GREATER THAN F5A13060 05665 0340 00 0 04175 CAS FV1 PREVIOUS MAXIMUM F5A13070 05666 0020 00 0 05671 TRA F85 F5A13080 05667 0761 00 0 00000 NOP F5A13090 05670 0020 00 0 05700 TRA F6 NO+ F5A13100 05671 0601 00 0 04175 F85 STO FV1 REPLACE PREV. MAX. F5A13110 BINARY CARD NO. 9F260047 05672 0500 00 0 04207 CLA FV102 AND BB NO. F5A13120 05673 0601 00 0 04176 STO FV2 F5A13130 05674 0500 00 0 04210 CLA FV103 AND PRED. NO. F5A13140 05675 0601 00 0 04177 STO FV3 F5A13150 05676 0500 00 0 04211 CLA FV104 AND REGION NO. WORD. F5A13160 05677 0601 00 0 04200 STO FV4 F5A13170 05700 0500 00 0 04201 F6 CLA FV5 ARRANGE TO CONSIDER NEXT F5A13180 05701 0400 00 0 04002 ADD ONEA B.B. F5A13190 05702 0601 00 0 04201 STO FV5 F5A13200 05703 0402 00 0 73574 SUB KEYS F5A13210 05704 0400 00 0 04002 ADD ONEA F5A13220 05705 -0100 00 0 05662 TNZ F7 WAS THIS THE LAST BB F5A13230 05706 0760 00 0 00012 F86 DCT YES, IF ANY DIVIDE CHECKS GO F5A13240 05707 0074 00 4 03736 TSX DIAG,4 ERROR--TO DIAGNOSTIC. F5A13250 05710 0500 00 0 04175 CLA FV1 ARE THERE ANY UNCONSIDERED PREDS F5A13260 05711 0100 00 0 03734 TZE R FOR NEXT PART IF NO UNCONSID. PREDS. F5A13270 05712 0500 00 0 04200 F86A CLA FV4 YES F5A13280 05713 0100 00 0 05723 TZE F9 IS THIS A REGION ALREADY F5A13290 05714 -0734 00 1 00000 PDX 0,1 YES. F5A13300 05715 0500 00 1 12463 CLA REG,1 GET REGION WORD. F5A13310 05716 -0320 00 0 04043 ANA FK3 F5A13320 05717 0100 00 0 05722 TZE F8 IS IT AN OPAQUE REGION F5A13330 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 71 SECTION 5, PART ONE BINARY CARD NO. 9F260048 05720 0500 00 0 04041 CLA FK1 NO,GET TRANSPARENT REGION MARKER. F5A13340 05721 0020 00 0 05723 TRA F9 F5A13350 05722 0500 00 0 04042 F8 CLA FK2 GET OPAQUE REGION MARKER. F5A13360 05723 0601 00 0 11204 F9 STO LPLST+S3P1-2 F5A13370 05724 0500 00 0 04176 CLA FV2 STORE THE REGION MARKER F5A13380 05725 0767 00 0 00022 ALS 18 AT END OF LPLST. F5A13390 05726 0622 00 0 11204 STD LPLST+S3P1-2 F5A13400 05727 0500 00 0 04034 CLA S9K3 INITIALIZE THE STORING F5A13410 05730 0622 00 0 05746 STD F11 POSITION IN LPLST. F5A13420 05731 0500 00 0 04175 F23 CLA FV1 GET INDEX F5A13430 05732 0074 00 4 03746 TSX SE1,4 OF BB UP FOR ENTRY. F5A13440 05733 0500 00 1 40011 CLA BBB+5,1 IS THIS BB IN F5A13450 05734 0100 00 0 06255 TZE F57 A REGION F5A13460 05735 -0734 00 2 00000 PDX 0,2 YES F5A13470 05736 0500 00 2 12463 CLA REG,2 GET AND STORE F5A13480 05737 0601 00 0 04200 STO FV4 REGION WORD F5A13490 05740 -0320 00 0 04043 ANA FK3 F5A13500 05741 0100 00 0 06247 TZE F55 IS IT AN OPAQUE REGION F5A13510 05742 0774 00 1 00002 AXT 2,1 NO, TRANSPARENT F5A13520 05743 0500 00 1 11206 F12 CLA LPLST+S3P1,1 F5A13530 05744 1 00001 1 05745 TXI F25,1,1 STORE INDEX OF LPLST QUANTITY BEING COMPAF5A13540 05745 -0634 00 1 05575 F25 SXD F18,1 F5A13550 BINARY CARD NO. 9F260049 05746 3 00000 1 05777 F11 TXH F19,1,SET ARE WE THRU WITH COMPARISONS. F5A13560 05747 0340 00 0 04011 CAS S3K2 NO,IS THIS BB ENTRY F5A13570 05750 0761 00 0 00000 NOP F5A13580 05751 0020 00 0 05753 TRA F87 F5A13590 05752 0020 00 0 05743 TRA F12 YES. F5A13600 05753 0074 00 4 03745 F87 TSX SE,4 GET INDEX OF BB F5A13610 05754 0500 00 1 40011 CLA BBB+5,1 GET F5A13620 05755 -0734 00 1 00000 PDX 0,1 REGION F5A13630 05756 0500 00 1 12463 CLA REG,1 WORD. F5A13640 05757 -0534 00 1 05575 LXD F18,1 F5A13650 05760 0340 00 0 04200 CAS FV4 IS THIS THE SAME REGION F5A13660 05761 0020 00 0 05743 TRA F12 NO F5A13670 05762 0020 00 0 05764 TRA F100 F5A13680 05763 0020 00 0 05743 TRA F12 NO F5A13690 05764 0500 00 0 04175 F100 CLA FV1 PUT EXIT BB NO. F5A13700 05765 0621 00 1 11207 STA LPLST+S3P1+1,1 IN TR. REG. QUANTITY F5A13710 05766 2 00001 1 05767 F13 TIX F24,1,1 GENERATE INDEX OF LAST THING TO BE MOVED F5A13720 05767 -0534 00 2 05746 F24 LXD F11,2 GET INDEX TO GENERATE INDEX OF 1ST THING F5A13730 05770 -0634 00 1 05575 F43 SXD F18,1 STORE INDEX OF LAST THING F5A13740 05771 0560 00 0 04010 LDQ S3K1 RECORD F5A13750 05772 -0600 00 0 04212 STQ LPIND LOOP. F5A13760 05773 2 00001 2 05774 TIX F14,2,1 GENERATE INDEX OF 1ST THING F5A13770 BINARY CARD NO. 9F260050 05774 0074 00 4 05572 F14 TSX F15,4 GO TO MOVE LPLST QUANTITIES UP+ F5A13780 05775 0074 00 4 05645 TSX F80,4 ASSIGN REGION NUMBER F5A13790 05776 0020 00 0 06352 TRA L TO 1ST LXING PASS. F5A13800 05777 0500 00 0 04041 F19 CLA FK1 F5A13810 06000 -0534 00 1 05746 LXD F11,1 STORE TRANSPARENT F5A13820 06001 0601 00 1 11206 STO LPLST+S3P1,1 REGION MARKER F5A13830 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 72 SECTION 5, PART ONE 06002 0500 00 0 04175 CLA FV1 F5A13840 06003 0621 00 1 11206 STA LPLST+S3P1,1 F5A13850 06004 0074 00 4 03746 TSX SE1,4 FIND BB INDEX. F5A13860 06005 0500 00 0 04001 CLA ZERO SET INITIAL MAX F5A13870 06006 0601 00 0 04175 STO FV1 FREQ. TO 0+ F5A13880 06007 0500 00 1 40011 CLA BBB+5,1 GET THE F5A13890 06010 -0734 00 1 00000 PDX 0,1 REGION F5A13900 06011 0500 00 1 12463 CLA REG,1 WORD F5A13910 06012 0771 00 0 00022 ARS 18 F5A13920 06013 0074 00 4 05531 F21 TSX F1,4 DETERMINE MOST FREQ. PRED IN BB. F5A13930 06014 0500 00 0 04206 CLA FV101 IS IT MORE FREQ. THAN F5A13940 06015 0340 00 0 04175 CAS FV1 PREV. MAX. F5A13950 06016 0020 00 0 06021 TRA F88 F5A13960 06017 0761 00 0 00000 NOP F5A13970 06020 0020 00 0 06030 TRA F20 NO. F5A13980 06021 0601 00 0 04175 F88 STO FV1 REPLACE PREV. MAX. F5A13990 BINARY CARD NO. 9F260051 06022 0500 00 0 04207 CLA FV102 AND BB NO. F5A14000 06023 0601 00 0 04176 STO FV2 AND F5A14010 06024 0500 00 0 04210 CLA FV103 PRED. NO. F5A14020 06025 0601 00 0 04177 STO FV3 AND F5A14030 06026 0500 00 0 04211 CLA FV104 REGION NO. WORD. F5A14040 06027 0601 00 0 04200 STO FV4 F5A14050 06030 0500 00 0 04211 F20 CLA FV104 ARRANGE TO CONSIDER THE F5A14060 06031 -0320 00 0 03764 ANA SBK2 NEXT B.B. IN REGION. F5A14070 06032 0340 00 0 03764 CAS SBK2 ARE WE THRU WITH REGION F5A14080 06033 0020 00 0 06013 TRA F21 F5A14090 06034 0020 00 0 06036 TRA F22 YES F5A14100 06035 0020 00 0 06013 TRA F21 F5A14110 06036 0500 00 0 04175 F22 CLA FV1 WAS THERE AN UNCONSIDERED F5A14120 06037 0100 00 0 06050 TZE F28 PRED F5A14130 06040 0500 00 0 04176 CLA FV2 YES,STORE THE F5A14140 06041 -0534 00 1 05746 LXD F11,1 ENTRY B.B. F5A14150 06042 0767 00 0 00022 ALS 18 NO. F5A14160 06043 0622 00 1 11206 STD LPLST+S3P1,1 F5A14170 06044 1 00001 1 06045 TXI F70,1,1 UP THE STORING INDEX F5A14180 06045 -0634 00 1 05746 F70 SXD F11,1 F5A14190 06046 3 00422 1 06062 TXH F73,1,S3P1 IS LPLST FULL F5A14200 06047 0020 00 0 05731 TRA F23 NO F5A14210 BINARY CARD NO. 9F260052 06050 -0534 00 2 05746 F28 LXD F11,2 F5A14220 06051 0774 00 1 00002 F56 AXT 2,1 F5A14230 06052 -0634 00 1 05575 SXD F18,1 F5A14240 06053 0074 00 4 05572 TSX F15,4 MOVE LPLST UP. F5A14250 06054 0500 00 0 10563 CLA LPLST-1 F5A14260 06055 0340 00 0 04044 CAS FK4 IS THIS AN OPAQUE REGION F5A14270 06056 0761 00 0 00000 NOP F5A14280 06057 0020 00 0 06341 TRA F75 TO 2ED LXING PASS. F5A14290 06060 3 00002 1 06065 TXH F29,1,2 F5A14300 06061 0020 00 0 06341 TRA F75 F5A14310 06062 0500 00 0 03765 F73 CLA SEK4 STORE SPECIAL F5A14320 06063 0622 00 0 10564 STD LPLST SYMBOL IN DECR. PART OF 1ST LPLST F5A14330 06064 0020 00 0 06202 TRA F53 QUANTITY F5A14340 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 73 SECTION 5, PART ONE 06065 -0634 00 1 06173 F29 SXD F39,1 INITIALIZE STORING LOCATION. F5A14350 06066 0340 00 0 04011 F64 CAS S3K2 ISNT OPAQUE REGION. IS IT BB. F5A14360 06067 0761 00 0 00000 NOP NO. F5A14370 06070 0020 00 0 06072 TRA F89 F5A14380 06071 0020 00 0 06207 TRA F44 YES. F5A14390 06072 0560 00 0 04001 F89 LDQ ZERO NO, SET INITIAL F5A14400 06073 -0600 00 0 04175 STQ FV1 FREQ+ TO 0. F5A14410 06074 0074 00 4 03745 TSX SE,4 GET F5A14420 06075 0500 00 1 40011 CLA BBB+5,1 REGION F5A14430 BINARY CARD NO. 9F260053 06076 -0734 00 1 00000 PDX 0,1 NO. F5A14440 06077 0500 00 1 12463 CLA REG,1 GET NO. OF 1ST BB IN REGION F5A14450 06100 0074 00 4 05604 F35 TSX F30,4 DETERMINE MOST FREQ SUCC IN BB F5A14460 06101 0500 00 0 04206 CLA FV101 IS IT MORE FREQ. THAN F5A14470 06102 0340 00 0 04175 CAS FV1 PREV+ MAX F5A14480 06103 0020 00 0 06106 TRA F90 YES F5A14490 06104 0761 00 0 00000 NOP F5A14500 06105 0020 00 0 06115 TRA F36 NO F5A14510 06106 0601 00 0 04175 F90 STO FV1 YES, REPLACE PREV.MAX. F5A14520 06107 0500 00 0 04207 CLA FV102 AND BB NO. F5A14530 06110 0601 00 0 04176 STO FV2 AND F5A14540 06111 0500 00 0 04210 CLA FV103 SUCC. NO+ F5A14550 06112 0601 00 0 04177 STO FV3 AND F5A14560 06113 0500 00 0 04211 CLA FV104 REGION NO. WORD F5A14570 06114 0601 00 0 04200 STO FV4 F5A14580 06115 0500 00 0 04211 F36 CLA FV104 ARRANGE TO CONSIDER THE F5A14590 06116 -0320 00 0 03764 ANA SBK2 NEXT BB IN REGION F5A14600 06117 0340 00 0 03764 CAS SBK2 IS IT LAST BB IN REGION F5A14610 06120 0020 00 0 06122 TRA F94 F5A14620 06121 0020 00 0 06124 TRA F37 YES F5A14630 06122 0767 00 0 00022 F94 ALS 18 F5A14640 06123 0020 00 0 06100 TRA F35 F5A14650 BINARY CARD NO. 9F260054 06124 0500 00 0 04175 F37 CLA FV1 WAS THERE AN UNCONSIDERED F5A14660 06125 -0534 00 1 06173 LXD F39,1 SUCC F5A14670 06126 0100 00 0 06214 TZE F47 NO F5A14680 06127 0500 00 0 04176 CLA FV2 EXIT BB F5A14690 06130 0771 00 0 00022 ARS 18 NO. F5A14700 06131 0621 00 1 11206 STA LPLST+S3P1,1 F5A14710 06132 2 00001 1 06133 F45 TIX F62,1,1 DOWN THE STORING F5A14720 06133 -0634 00 1 06173 F62 SXD F39,1 INDEX. F5A14730 06134 0500 00 0 04175 CLA FV1 GET INDEX OF F5A14740 06135 0074 00 4 03746 TSX SE1,4 BB UP FOR ENTRY. F5A14750 06136 0500 00 1 40011 CLA BBB+5,1 IS THIS BB IN F5A14760 06137 0100 00 0 06217 TZE F48 A REGION F5A14770 06140 -0734 00 2 00000 PDX 0,2 YES. F5A14780 06141 0500 00 2 12463 CLA REG,2 GET AND F5A14790 06142 0601 00 0 04200 STO FV4 STORE REGION WORD. F5A14800 06143 -0320 00 0 04043 ANA FK3 IS IT IN AN F5A14810 06144 0100 00 0 06240 TZE F54 OPAGUE REGION F5A14820 06145 -0534 00 1 06173 LXD F39,1 NO. F5A14830 06146 0500 00 0 04041 CLA FK1 STORE TRANSPARENT REGION F5A14840 06147 0601 00 1 11206 STO LPLST+S3P1,1 MARKER F5A14850 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 74 SECTION 5, PART ONE 06150 0500 00 0 04175 CLA FV1 WITH F5A14860 06151 0767 00 0 00022 ALS 18 ENTRY F5A14870 BINARY CARD NO. 9F260055 06152 0622 00 1 11206 STD LPLST+S3P1,1 BB NO. IN DECR. F5A14880 06153 0774 00 2 00422 AXT S3P1,2 SET INDEX TO 1ST ELEMENT IN LPLST. F5A14890 06154 0500 00 2 11206 F38 CLA LPLST+S3P1,2 F5A14900 06155 0340 00 0 04011 CAS S3K2 IS THIS A BB ENTRY F5A14910 06156 0761 00 0 00000 NOP F5A14920 06157 0020 00 0 06161 TRA F91 F5A14930 06160 0020 00 0 06172 TRA F40 YES F5A14940 06161 -0634 00 2 05575 F91 SXD F18,2 STOREINDEX OF QUANTITYBEING C.F. ED F5A14950 06162 0074 00 4 03746 TSX SE1,4 F5A14960 06163 0500 00 1 40011 CLA BBB+5,1 GET F5A14970 06164 -0734 00 2 00000 PDX 0,2 REGION WORD. F5A14980 06165 0500 00 2 12463 CLA REG,2 F5A14990 06166 -0534 00 2 05575 LXD F18,2 GET INDEX OF QUANTITY BEING COMPARED. F5A15000 06167 0340 00 0 04200 CAS FV4 IS THIS NAME REGION F5A15010 06170 0020 00 0 06172 TRA F40 F5A15020 06171 0020 00 0 06175 TRA F41 YES F5A15030 06172 2 00001 2 06173 F40 TIX F39,2,1 F5A15040 06173 -3 00000 2 06201 F39 TXL F42,2,- IS THIS INDEX OF QUANTITY BEING COMPARED F5A15050 06174 0020 00 0 06154 TRA F38 NO F5A15060 06175 0500 00 2 11206 F41 CLA LPLST+S3P1,2 PUT EXIT BB NO. F5A15070 06176 -0534 00 1 06173 LXD F39,1 FROM PREVIOUS QUANTITY F5A15080 06177 0621 00 1 11206 STA LPLST+S3P1,1 IN THIS LATEST ONE. F5A15090 BINARY CARD NO. 9F260056 06200 0020 00 0 05770 TRA F43 F5A15100 06201 3 00002 2 06205 F42 TXH F63,2,2 IS LPLST FULL F5A15110 06202 0500 00 0 04010 F53 CLA S3K1 YES, STORE END F5A15120 06203 0601 00 0 11205 STO LPLST+S3P1-1 LOOP LIST SENTINEL. F5A15130 06204 0020 00 0 06341 TRA F75 GO TO DEAL WITH STRING. F5A15140 06205 0500 00 2 11206 F63 CLA LPLST+S3P1,2 F5A15150 06206 0020 00 0 06066 TRA F64 F5A15160 06207 0074 00 4 05604 F44 TSX F30,4 DETERMINE MOST FREQ. SUCC. IN BB. F5A15170 06210 0500 00 0 04206 CLA FV101 STORE THE F5A15180 06211 0601 00 0 04175 STO FV1 MOST FREQ. SUCC. AWAY. F5A15190 06212 -0534 00 1 06173 LXD F39,1 F5A15200 06213 -0100 00 0 06132 TNZ F45 WAS THERE AN UNCONSIDERED SUCC. F5A15210 06214 0500 00 0 04010 F47 CLA S3K1 NO,RECORD AN F5A15220 06215 0601 00 1 11207 STO LPLST+S3P1+1,1 END LOOP LIST SENTINEL. F5A15230 06216 0020 00 0 06341 TRA F75 F5A15240 06217 -0534 00 1 06173 F48 LXD F39,1 ENTER BB F5A15250 06220 0500 00 0 04175 CLA FV1 NO. AND MARKER F5A15260 06221 -0320 00 0 03764 ANA SBK2 IN F5A15270 06222 0767 00 0 00022 ALS 18 LPLST F5A15280 06223 0601 00 0 04200 STO FV4 F5A15290 06224 0601 00 1 11206 STO LPLST+S3P1,1 F5A15300 06225 -0634 00 1 06234 SXD F50,1 F5A15310 BINARY CARD NO. 9F260057 06226 0774 00 2 00422 AXT S3P1,2 S + TO F5A15320 06227 0500 00 2 11206 F51 CLA LPLST+S3P1,2 F5A15330 06230 0340 00 0 04200 CAS FV4 IS THIS SAME BB AS NEW ENTRY F5A15340 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 75 SECTION 5, PART ONE 06231 0020 00 0 06233 TRA F49 F5A15350 06232 0020 00 0 05770 TRA F43 YES F5A15360 06233 2 00001 2 06234 F49 TIX F50,2,1 DECREASE COMPARISON INDEX. F5A15370 06234 -3 00000 2 06236 F50 TXL F52,2,- IS THIS INDEX OF NEW QUANTITY F5A15380 06235 0020 00 0 06227 TRA F51 NO. F5A15390 06236 3 00002 2 06205 F52 TXH F63,2,2 IS LPLST FULL F5A15400 06237 0020 00 0 06202 TRA F53 YES. F5A15410 06240 -0534 00 1 06173 F54 LXD F39,1 IS OPAQUE REGION F5A15420 06241 0500 00 0 04042 CLA FK2 ENTER OPAQUE F5A15430 06242 0601 00 1 11206 STO LPLST+S3P1,1 REGION MARKER F5A15440 06243 0500 00 0 04175 CLA FV1 WITH CORRECT F5A15450 06244 0767 00 0 00022 ALS 18 ENTRY BB F5A15460 06245 0622 00 1 11206 STD LPLST+S3P1,1 NO. F5A15470 06246 0020 00 0 06214 TRA F47 F5A15480 06247 -0534 00 2 05746 F55 LXD F11,2 STORE THE F5A15490 06250 0500 00 0 04042 CLA FK2 OPAQUE F5A15500 06251 0601 00 2 11206 STO LPLST+S3P1,2 REGION MARKR F5A15510 06252 0500 00 0 04175 CLA FV1 WITH F5A15520 06253 0621 00 2 11206 STA LPLST+S3P1,2 EXIT BB F5A15530 BINARY CARD NO. 9F260058 06254 0020 00 0 06051 TRA F56 NO. F5A15540 06255 0500 00 0 04175 F57 CLA FV1 PUT THE F5A15550 06256 -0320 00 0 03764 ANA SBK2 B.B. NO. F5A15560 06257 0767 00 0 00022 ALS 18 IN F5A15570 06260 0601 00 0 04200 STO FV4 DECR. PART. F5A15580 06261 0500 00 0 05746 CLA F11 SET THE END F5A15590 06262 0622 00 0 06267 STD F59 TEST. F5A15600 06263 0774 00 1 00002 AXT 2,1 SET INDEX OF 1ST LPLST TO BE COMPARED. F5A15610 06264 0500 00 1 11206 F61 CLA LPLST+S3P1,1 F5A15620 06265 1 00001 1 06266 TXI F58,1,1 F5A15630 06266 -0634 00 1 05575 F58 SXD F18,1 F5A15640 06267 3 00000 1 06274 F59 TXH F60,1,- WAS THAT THE LAST QUANTITY F5A15650 06270 0340 00 0 04200 CAS FV4 IS THIS THE SAME BB. F5A15660 06271 0020 00 0 06264 TRA F61 F5A15670 06272 0020 00 0 05766 TRA F13 YES F5A15680 06273 0020 00 0 06264 TRA F61 F5A15690 06274 -0534 00 1 05746 F60 LXD F11,1 F5A15700 06275 0500 00 0 04175 CLA FV1 STORE THE F5A15710 06276 -0320 00 0 03764 ANA SBK2 BB F5A15720 06277 0767 00 0 00022 ALS 18 MARKER. F5A15730 06300 0601 00 1 11206 STO LPLST+S3P1,1 F5A15740 06301 0500 00 0 04175 CLA FV1 F5A15750 BINARY CARD NO. 9F260059 06302 0074 00 4 05531 TSX F1,4 FIND MOST FREQ. PRED. OF BB. F5A15760 06303 0500 00 0 04206 CLA FV101 DOES B.B. HAVE F5A15770 06304 0601 00 0 04175 STO FV1 UNCONSIDERED PRED. F5A15780 06305 -0100 00 0 06310 TNZ F71 F5A15790 06306 -0534 00 2 05746 LXD F11,2 NO,GO TO MOVE LPLST UP. F5A15800 06307 0020 00 0 06051 TRA F56 F5A15810 06310 -0534 00 1 05746 F71 LXD F11,1 F5A15820 06311 1 00001 1 06312 TXI F72,1,1 UP THE STORING INDEX F5A15830 06312 -0634 00 1 05746 F72 SXD F11,1 F5A15840 06313 3 00422 1 06202 TXH F53,1,S3P1 IS LPLST FULL F5A15850 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 76 SECTION 5, PART ONE 06314 0020 00 0 05731 TRA F23 NO. F5A15860 06315 0074 00 4 05152 F78 TSX SA,4 GET EXIT CONDITIONS OF REGION. F5A15870 06316 0774 00 1 00003 AXT 3,1 PUT EXIT F5A15880 06317 0560 00 0 04001 LDQ ZERO F5A15890 06320 0500 00 1 04157 F76 CLA EX1+3,1 CONDITONS F5A15900 06321 0601 00 1 04105 STO IR1+3,1 INTO F5A15910 06322 0500 00 1 04162 CLA ACT1+3,1 I+R.S F5A15920 06323 -0600 00 1 04223 STQ AC1+3,1 F5A15930 06324 0120 00 0 06330 TPL F77 IS THIS EXIT ACTIVE F5A15940 06325 0500 00 0 04012 CLA S3K3 YES,FORM AND F5A15950 06326 -0760 00 0 00003 SSM STORE ACTIVE F5A15960 06327 0601 00 1 04223 STO AC1+3,1 INDICATOR F5A15970 BINARY CARD NO. 9F260060 06330 2 00001 1 06320 F77 TIX F76,1,1 COUNT TO 3 F5A15980 06331 0500 00 0 04012 CLA S3K3 INITIALIZE F5A15990 06332 0402 00 0 04003 SUB ONED LOOP LIST F5A16000 06333 0601 00 0 04115 STO S3V4 TO ITS F5A16010 06334 0601 00 0 04121 STO S3V5 F5A16020 06335 0500 00 0 04025 CLA S5K3 2ED F5A16030 06336 0601 00 0 04114 STO S3V3 ELEMENT F5A16040 06337 -0634 00 0 04113 SXD S3V2,0 F5A16050 06340 0020 00 0 06525 TRA X32 F5A16060 06341 0074 00 4 05645 F75 TSX F80,4 DETERMINE NEW REGION INDEX F5A16070 06342 0500 00 0 10564 CLA LPLST IS 1ST F5A16080 06343 0560 00 0 04011 LDQ S3K2 ELEMENT OF LPLST A TRANSPARENT F5A16090 06344 0040 00 0 06315 TLQ F78 ON OPAQUE REGION F5A16100 06345 0774 00 1 00003 AXT 3,1 NO, INITIALIZE F5A16110 06346 0500 00 0 04023 CLA S5K1 THE F5A16120 06347 0601 00 1 04105 F79 STO IR1+3,1 I.R.S F5A16130 06350 2 00001 1 06347 TIX F79,1,1 TO EMPTINESS F5A16140 06351 0020 00 0 06514 TRA X F5A16150 FIRST LXING PASS. F5A16160 06352 -0634 00 0 06416 L SXD ROT3,0 F5A16170 06353 -0634 00 0 06411 SXD ROT1,0 F5A16180 06354 0774 00 1 00003 INIZ AXT 3,1 INITIALIZE F5A16190 06355 0500 00 0 04023 CLA S5K1 THE F5A16200 BINARY CARD NO. 9F260061 06356 0601 00 1 04105 L23 STO IR1+3,1 INDEX REGISTERS F5A16210 06357 2 00001 1 06356 TIX L23,1,1 TO EMPTINESS. F5A16220 06360 0560 00 0 04012 LDQ S3K3 F5A16230 06361 -0600 00 0 04115 STQ S3V4 INITIALIZE THE F5A16240 06362 0560 00 0 04025 LDQ S5K3 LOOP LIST. F5A16250 06363 -0600 00 0 04114 STQ S3V3 MAKE SURE THAT THE F5A16260 06364 -0634 00 0 04113 SXD S3V2,0 F5A16270 06365 0074 00 4 04465 1L4 TSX S3,4 GET NEXT TAG. F5A16280 06366 0020 00 0 06446 TRA L6 *RETURN HERE IF TAG WASNT GOTTEN. F5A16290 06367 0774 00 1 00003 AXT 3,1 SET COUNT TO 3, N=1. F5A16300 06370 0500 00 0 04116 CLA 1TAG IS CL (TAG) EQUAL F5A16310 06371 0340 00 1 04105 L2 CAS IR1+3,1 TO C (IRN) F5A16320 06372 0020 00 0 06374 TRA L1 NO. F5A16330 06373 0020 00 0 06433 TRA 1L3 YES F5A16340 06374 2 00001 1 06371 L1 TIX L2,1,1 NO. COUNT TO 3,N=N+1 F5A16350 06375 0500 00 0 04117 CLA TPE IS THIS F5A16360 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 77 SECTION 5, PART ONE 06376 0340 00 0 04055 CAS XK15 AN LXP INSTR. F5A16370 06377 0020 00 0 06401 TRA L18 NO, F5A16380 06400 0020 00 0 06426 TRA L17 YES F5A16390 06401 0340 00 0 04062 L18 CAS XK21 NO,IS IT A DED INSTR. F5A16400 06402 0020 00 0 06426 TRA L17 NO F5A16410 06403 0020 00 0 06405 TRA ROT0 YES F5A16420 BINARY CARD NO. 9F260062 06404 0020 00 0 06426 TRA L17 F5A16430 06405 -0534 00 2 04115 ROT0 LXD S3V4,2 F5A16440 06406 -3 00420 2 06365 TXL 1L4,2,S3P1-2 F5A16450 06407 -0534 00 2 06416 LXD ROT3,2 F5A16460 06410 1 77777 2 06411 TXI ROT1,2,-1 F5A16470 06411 -3 00000 2 06365 ROT1 TXL 1L4,2,- F5A16480 06412 -0634 00 2 06416 SXD ROT3,2 F5A16490 06413 0774 00 2 00000 AXT 0,2 F5A16500 06414 0500 00 2 10564 ROT2 CLA LPLST,2 F5A16510 06415 0340 00 0 04010 CAS S3K1 F5A16520 06416 -3 00000 0 06420 ROT3 TXL ROT4,0,- F5A16530 06417 -3 00000 0 06422 TXL ROT5,0,- F5A16540 06420 0601 00 2 10563 ROT4 STO LPLST-1,2 F5A16550 06421 1 77777 2 06414 TXI ROT2,2,-1 F5A16560 06422 -0634 00 2 06411 ROT5 SXD ROT1,2 F5A16570 06423 0500 00 0 10563 CLA LPLST-1 F5A16580 06424 0601 00 2 10563 STO LPLST-1,2 F5A16590 06425 0020 00 0 06354 TRA INIZ F5A16600 06426 0074 00 4 04264 L17 TSX S1,4 SELECT MOST REPLACEABLE I.R. F5A16610 06427 -0534 00 4 04105 LXD IRR,4 PLACE TAU-TAG F5A16620 06430 0500 00 0 04116 CLA 1TAG IN APPROPRIATE F5A16630 06431 0601 00 4 04105 STO IR1+3,4 I.R. F5A16640 BINARY CARD NO. 9F260063 06432 0020 00 0 06365 TRA 1L4 F5A16650 06433 0500 00 0 04117 1L3 CLA TPE IS THIS AN LXP F5A16660 06434 0340 00 0 04055 CAS XK15 F5A16670 06435 0020 00 0 06437 TRA 1L19 F5A16680 06436 0020 00 0 06365 TRA 1L4 YES. F5A16690 06437 0340 00 0 04062 1L19 CAS XK21 IS IT AN DED F5A16700 06440 0020 00 0 06365 TRA 1L4 F5A16710 06441 0020 00 0 06443 TRA L5 YES. F5A16720 06442 0020 00 0 06365 TRA 1L4 F5A16730 06443 0500 00 0 04020 L5 CLA LK1 PLACE AN E (HASH F5A16740 06444 0601 00 1 04105 STO IR1+3,1 SYMBOL) IN F5A16750 06445 0020 00 0 06365 TRA 1L4 RIGHT IR, F5A16760 06446 0601 00 0 04216 L6 STO LV4 IS THIS AN END OF LOOP F5A16770 06447 0340 00 0 04010 CAS S3K1 LIST SENTINEL F5A16780 06450 0020 00 0 06452 TRA L14 NO, F5A16790 06451 0020 00 0 06504 TRA L15 YES, F5A16800 06452 -0500 00 0 04216 L14 CAL LV4 IS F5A16810 06453 -0320 00 0 04022 ANA LK3 THIS A F5A16820 06454 0100 00 0 06365 TZE 1L4 BB F5A16830 06455 0500 00 0 04216 CLA LV4 NO,FORM CORRESPONDENCE F5A16840 06456 0074 00 4 04675 TSX S5,4 BETWEEN IRS AND ENS F5A16850 06457 0500 00 0 04216 CLA LV4 GET + STORE EXIT CONDITIONS F5A16860 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 78 SECTION 5, PART ONE BINARY CARD NO. 9F260064 06460 0074 00 4 05152 TSX SA,4 AND (USELESSLY+ OCTIVE INDICATORS. F5A16870 06461 0774 00 1 00003 AXT 3,1 SET COUNT TO 3, N=1. F5A16880 06462 0500 00 1 04144 L11 CLA EN4+3,1 PUT CORRESPONDENCE INDEX F5A16890 06463 -0734 00 2 00000 PDX 0,2 IN 2. F5A16900 06464 0500 00 1 04157 CLA EX1+3,1 IS THIS EXIT CONDITION F5A16910 06465 0340 00 0 04023 CAS S5K1 EMPTY F5A16920 06466 0020 00 0 06470 TRA L13 NO, F5A16930 06467 0020 00 0 06473 TRA P003 F5A16940 06470 0601 00 2 04105 L13 STO IR1+3,2 NO,REPLACE C (IR) BY EXIT CONDITION. F5A16950 06471 2 00001 1 06462 L10 TIX L11,1,1 COUNT TO 3,N=N+1 F5A16960 06472 0020 00 0 06365 TRA 1L4 F5A16970 06473 0500 00 2 04105 P003 CLA IR1+3,2 F5A16980 06474 0560 00 0 04020 LDQ LK1 F5A16990 06475 0040 00 0 06471 TLQ L10 F5A17000 06476 0774 00 4 00003 AXT 3,4 F5A17010 06477 0340 00 4 04157 P003A CAS EX1+3,4 F5A17020 06500 0020 00 0 06502 TRA P003B F5A17030 06501 -0600 00 2 04105 STQ IR1+3,2 F5A17040 06502 2 00001 4 06477 P003B TIX P003A,4,1 F5A17050 06503 0020 00 0 06471 TRA L10 F5A17060 06504 0774 00 1 00003 L15 AXT 3,1 COPY ASIDE THE FINAL F5A17070 06505 0500 00 1 04105 L16 CLA IR1+3,1 CONTENTS F5A17080 BINARY CARD NO. 9F260065 06506 0340 00 0 04020 CAS LK1 (IF REAL, OTHERWISE F5A17090 06507 0761 00 0 00000 NOP F5A17100 06510 0500 00 0 04023 CLA S5K1 SET TO F5A17110 06511 0601 00 1 04105 STO IR1+3,1 EMPTY) F5A17120 06512 0601 00 1 04216 STO LV1+3,1 OF THE F5A17130 06513 2 00001 1 06505 TIX L16,1,1 IRS F5A17140 THE SECOND LXING PASS FOLLOWS. F5A17150 PRECEEDED BY 1ST LXING PASS F5A17160 06514 0560 00 0 04012 X LDQ S3K3 INITIALIZE THE F5A17170 06515 -0600 00 0 04115 STQ S3V4 LOOP LIST AND F5A17180 06516 0560 00 0 04025 LDQ S5K3 MAKE SURE TAG F5A17190 06517 -0600 00 0 04114 STQ S3V3 LOC. GETS SET. F5A17200 06520 -0634 00 1 04113 SXD S3V2,1 F5A17210 06521 0500 00 0 04001 X21 CLA ZERO SET ACTIVE INDICATORS F5A17220 06522 0601 00 0 04220 STO AC1 TO F5A17230 06523 0601 00 0 04221 STO AC2 F5A17240 06524 0601 00 0 04222 STO AC3 NOT ACTIVE. F5A17250 06525 0500 00 0 04001 X32 CLA ZERO SET LX INDICATORS F5A17260 06526 0601 00 0 04224 STO LX1 TO F5A17270 06527 0601 00 0 04225 STO LX2 NOT F5A17280 06530 0601 00 0 04226 STO LX3 LX ED. F5A17290 06531 0601 00 0 04167 STO ACIND SET IND. TO SAY THIS IS 2ED LXING PASS F5A17300 06532 0074 00 4 04465 X3 TSX S3,4 TRY TO GET NEXT TAG. F5A17310 06533 0020 00 0 06755 TRA X13 COME HERE IF TAG NOT GOT. F5A17320 BINARY CARD NO. 9F260066 06534 0500 00 0 04564 CLA S39 COMPUTE LOCATIONS OF F5A17330 06535 -0320 00 0 03764 ANA SBK2 THIS TAG=(ADDR. FOLLOWING F5A17340 06536 0400 00 0 04125 ADD S4V1 TIX BLACK + L (CM)- F5A17350 06537 0402 00 0 04017 SUB S4K3 CMTAG-INDEX OF TAG F5A17360 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 79 SECTION 5, PART ONE 06540 0767 00 0 00022 ALS 18 F5A17370 06541 -0400 00 0 04113 SBM S3V2 F5A17380 06542 0765 00 0 00065 LRS 53 THEN FORM LOC/9 F5A17390 06543 -0600 00 0 04233 STQ XV5 AND REMAINDER F5A17400 06544 0221 00 0 04052 DVP XK9 STORE INTEG. PART F5A17410 06545 -0600 00 0 04231 STQ XV3 AND REMAINDER. F5A17420 06546 0601 00 0 04232 STO XV4 F5A17430 06547 0774 00 1 00003 AXT 3,1 SET COUNT TO 3, N=1. F5A17440 06550 0500 00 0 04116 CLA 1TAG F5A17450 06551 0340 00 1 04105 X2 CAS IR1+3,1 IS CONTENTS OF IRN SAME AS OF TAG F5A17460 06552 0020 00 0 06554 TRA X1 NO F5A17470 06553 0020 00 0 06712 TRA X7 YES F5A17480 06554 2 00001 1 06551 X1 TIX X2,1,1 NO COUNT OT 3,N=N+1 F5A17490 06555 0500 00 0 04117 CLA TPE IS THIS AN F5A17500 06556 0340 00 0 04055 CAS XK15 LX PRIME F5A17510 06557 0020 00 0 06561 TRA X103 NO F5A17520 06560 0020 00 0 06564 TRA X8 YES. COMPILE LXD FOR LXP. F5A17530 06561 0340 00 0 04062 X103 CAS XK21 IS IT A DED F5A17540 BINARY CARD NO. 9F260067 06562 0020 00 0 06564 TRA X8 F5A17550 06563 0020 00 0 06532 TRA X3 YES F5A17560 06564 0074 00 4 04264 X8 TSX S1,4 SELECT MOST REPLACEABLE I.R. F5A17570 06565 -0534 00 1 04105 LXD IRR,1 PLACE TAU-TAG F5A17580 06566 0500 00 0 04116 CLA 1TAG IN SELECTED F5A17590 06567 0601 00 1 04105 STO IR1+3,1 I.R. F5A17600 06570 0500 00 1 04223 CLA AC1+3,1 IS THIS F5A17610 06571 0100 00 0 06573 TZE X4 IR ACTIVE F5A17620 06572 0074 00 4 05222 TSX SB,4 YES,RECORD SXD NECESSARY. F5A17630 06573 0500 00 0 04117 X4 CLA TPE IS THIS F5A17640 06574 0340 00 0 04007 CAS S2K2 AN LX F5A17650 06575 0020 00 0 06577 TRA X5 NO F5A17660 06576 0020 00 0 06610 TRA X14 YES F5A17670 06577 -0500 00 0 04120 X5 CAL INTAG IS THIS 1ST INSTR. F5A17680 06600 -0320 00 0 04045 ANA XK10 IN A BB F5A17690 06601 -0100 00 0 06637 TNZ X9 F5A17700 06602 0500 00 0 04231 CLA XV3 NO, F5A17710 06603 0074 00 4 03741 TSX SE4,4 DETERMINE INDEX IN STAG F5A17720 06604 0534 00 2 04232 LXA XV4,2 F5A17730 06605 -0500 00 0 04053 CAL XK11 GENERATE F5A17740 06606 0767 00 2 00010 ALS 8,2 LX BIT F5A17750 06607 -0602 00 1 12463 ORS STAG,1 STORE IN STAG. F5A17760 BINARY CARD NO. 9F260068 06610 0074 00 4 05460 X14 TSX SF,4 CHECK IF AN ACTIVE INSTR. F5A17770 06611 0020 00 0 06615 TRA X01 COME HERE IF NOT ACTIVE F5A17780 06612 -0534 00 1 04105 LXD IRR,1 ACTIVE-STORE ACTIVE F5A17790 06613 0500 00 0 04172 CLA SFV1 INDICATOR F5A17800 06614 0601 00 1 04223 STO AC1+3,1 F5A17810 06615 -0534 00 2 04105 X01 LXD IRR,2 F5A17820 06616 0500 00 2 04227 CLA LX1+3,2 WAS AN ENTRANCE REQUIREMENT F5A17830 06617 -0100 00 0 06622 TNZ X19 BEEN DETERMINED FOR THIS BB. F5A17840 06620 0500 00 0 04020 CLA LK1 NO,RECORD HASH F5A17850 06621 0601 00 2 04227 STO LX1+3,2 AS ENTRANCE REQUIREMENT F5A17860 06622 -0500 00 0 04025 X19 CAL S5K3 RECORD THAT THERE IS AN F5A17870 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 80 SECTION 5, PART ONE 06623 0771 00 2 00003 ARS 3,2 LX FOR THIS IR IN F5A17880 06624 -0602 00 0 04230 ORS XV2 REGION. F5A17890 06625 0500 00 0 04231 X02 CLA XV3 RECORD THE F5A17900 06626 0074 00 4 03741 TSX SE4,4 SPECIFIC F5A17910 06627 -0500 00 0 04232 CAL XV4 TAG F5A17920 06630 0760 00 0 00006 COM IN F5A17930 06631 0734 00 2 00000 PAX 0,2 THE F5A17940 06632 -0500 00 0 04105 CAL IRR STAG F5A17950 06633 0771 00 2 00000 ARS 0,2 TABLE F5A17960 06634 0771 00 2 00000 ARS 0,2 F5A17970 06635 -0602 00 1 12463 ORS STAG,1 F5A17980 BINARY CARD NO. 9F260069 06636 0020 00 0 06532 TRA X3 F5A17990 06637 -0534 00 1 04115 X9 LXD S3V4,1 GET F5A18000 06640 -3 00420 1 06645 TXL XI1+1,1,S3P1-2 F5A18010 06641 0500 00 0 04212 CLA LPIND F5A18020 06642 -0120 00 0 06645 TMI XI1+1 F5A18030 06643 -0534 00 2 04105 LXD IRR,2 F5A18040 06644 0020 00 0 06676 XI1 TRA X16-3 F5A18050 06645 0500 00 1 11204 CLA LPLST+S3P1-2,1 AND F5A18060 06646 0340 00 0 04011 CAS S3K2 STORE F5A18070 06647 0761 00 0 00000 NOP BB F5A18080 06650 0020 00 0 06652 TRA X117 F5A18090 06651 0771 00 0 00022 ARS 18 PRED F5A18100 06652 0621 00 0 04163 X117 STA SBV3 NO. F5A18110 06653 0500 00 1 11205 CLA LPLST+S3P1-1,1 F5A18120 06654 0074 00 4 03745 TSX SE,4 GET ADDR. OF F5A18130 06655 0500 00 1 40004 CLA BBB,1 1ST PRED. F5A18140 06656 0602 00 0 04162 X03 SLW SBV2 F5A18150 06657 0074 00 4 03741 TSX SE5,4 GET PRED. F5A18160 06660 -0500 00 1 56774 CAL PRED,1 F5A18170 06661 -0320 00 0 03764 ANA SBK2 F5A18180 06662 0340 00 0 04163 CAS SBV3 IS THIS RIGHT PRED. F5A18190 06663 0020 00 0 06665 TRA X04 NO F5A18200 BINARY CARD NO. 9F260070 06664 0020 00 0 06670 TRA X05 YES F5A18210 06665 0500 00 0 04162 X04 CLA SBV2 NO ARRANGE TO F5A18220 06666 0400 00 0 04002 ADD ONEA TRY NEXT F5A18230 06667 0020 00 0 06656 TRA X03 PRED. F5A18240 06670 -0534 00 2 04105 X05 LXD IRR,2 PUT LX F5A18250 06671 -0500 00 0 04056 CAL XK16 BIT INTO F5A18260 06672 0771 00 2 00003 ARS 3,2 PRED. F5A18270 06673 -0602 00 1 56774 ORS PRED,1 TABLE. F5A18280 06674 -0534 00 4 04115 LXD S3V4,4 F5A18290 06675 -0602 00 4 11205 ORS LPLST+S3P1-1,4 F5A18300 06676 0500 00 2 04105 CLA IR1+3,2 SET ENTR. REQU. F5A18310 06677 0601 00 2 04227 STO LX1+3,2 F5A18320 06700 0020 00 0 06610 TRA X14 F5A18330 06701 0074 00 4 05315 X16 TSX SC,4 RECORD I.R. ACTIVE IN SECTION OF LPLST F5A18340 06702 0560 00 0 04020 LDQ LK1 F5A18350 06703 0500 00 1 04227 CLA LX1+3,1 HAS THIS F5A18360 06704 -0100 00 0 06706 TNZ X100 ENTR. REQU. BEEN DETERMINED F5A18370 06705 -0600 00 1 04227 STQ LX1+3,1 NO,RECORD ENTR. REQU. IS AN E. F5A18380 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 81 SECTION 5, PART ONE 06706 -0600 00 1 04105 X100 STQ IR1+3,1 ERASE THIS I.R. F5A18390 06707 0500 00 0 04001 CLA ZERO RECORD THAT THIS F5A18400 06710 0601 00 1 04223 STO AC1+3,1 I.R. ISNT ACTIVE. F5A18410 06711 0020 00 0 06625 TRA X02 F5A18420 BINARY CARD NO. 9F260071 06712 -0634 00 1 04105 X7 SXD IRR,1 F5A18430 06713 0500 00 0 04117 CLA TPE IS THIS F5A18440 06714 0340 00 0 04055 CAS XK15 AN LXP F5A18450 06715 0020 00 0 06717 TRA X104 NO F5A18460 06716 0020 00 0 06577 TRA X5 YES. F5A18470 06717 0340 00 0 04062 X104 CAS XK21 IS IT A DED F5A18480 06720 0020 00 0 06722 TRA X15 F5A18490 06721 0020 00 0 06701 TRA X16 YES. F5A18500 06722 0074 00 4 05460 X15 TSX SF,4 DETERMINE ACTIVITY. F5A18510 06723 0020 00 0 06730 TRA X17 COME HERE IF NOT ACTIVE. F5A18520 06724 -0534 00 1 04105 LXD IRR,1 F5A18530 06725 0074 00 4 05315 TSX SC,4 RECORD PART OF LOOP LIST ACTIVE. F5A18540 06726 0500 00 0 04172 CLA SFV1 STORE ACTIVE F5A18550 06727 0601 00 1 04223 STO AC1+3,1 INDICATOR. F5A18560 06730 0500 00 0 04117 X17 CLA TPE F5A18570 06731 0340 00 0 04007 CAS S2K2 IS THIS AN LX F5A18580 06732 0020 00 0 06734 TRA X18 F5A18590 06733 0020 00 0 06615 TRA X01 YES. F5A18600 06734 -0534 00 1 04105 X18 LXD IRR,1 F5A18610 06735 0500 00 1 04227 CLA LX1+3,1 WAS THIS F5A18620 06736 -0100 00 0 06625 TNZ X02 I.R. LX ED F5A18630 06737 0500 00 1 04105 CLA IR1+3,1 NO,STORE THE TAG F5A18640 BINARY CARD NO. 9F260072 06740 0601 00 1 04227 STO LX1+3,1 IN TH LX INDICATOR. F5A18650 06741 0020 00 0 06625 TRA X02 F5A18660 06742 0074 00 4 03745 X22 TSX SE,4 MAKE SURE BB IS IN C+M. F5A18670 06743 0774 00 2 00003 AXT 3,2 F5A18680 06744 0500 00 2 04227 X25 CLA LX1+3,2 F5A18690 06745 -0100 00 0 06747 TNZ X23 HAS THIS ENTRANCE REQ. BEEN FOUND F5A18700 06746 0500 00 2 04105 CLA IR1+3,2 NO,ENTRANCE = EXIT. F5A18710 06747 0767 00 0 00022 X23 ALS 18 PUT ENTR. REQ. IN LEFT. F5A18720 06750 0400 00 2 04105 ADD IR1+3,2 ADD THE EXIT REQUIREMENTS. F5A18730 06751 0602 00 1 40006 SLW BBB+2,1 F5A18740 06752 1 77777 1 06753 TXI X24,1,-1 DOWN INDEX OF ENTR-EXIT REQU. F5A18750 06753 2 00001 2 06744 X24 TIX X25,2,1 COUNT TO 3 F5A18760 06754 0020 00 0 07006 TRA X26 F5A18770 06755 -0534 00 1 04115 X13 LXD S3V4,1 GET LOOP LIST QUANTITY F5A18780 06756 3 00420 1 07006 TXH X26,1,S3P1-2 TRANSFER IF THIS IS 1ST IN LPLST F5A18790 06757 0500 00 1 11204 CLA LPLST+S3P1-2,1 GET PRECEDING LPLST ENTRY F5A18800 06760 0601 00 0 04251 STO XV19 F5A18810 06761 0560 00 0 04011 LDQ S3K2 WAS IT F5A18820 06762 0040 00 0 06764 TLQ X126 A BB F5A18830 06763 0771 00 0 00022 ARS 18 YES F5A18840 06764 -0320 00 0 04013 X126 ANA S3K4 WAS THERE AN EXIT BB F5A18850 06765 0560 00 0 04035 LDQ SAK1 F5A18860 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 82 SECTION 5, PART ONE BINARY CARD NO. 9F260073 06766 0040 00 0 07001 TLQ X129 NO F5A18870 06767 0074 00 4 03746 TSX SE1,4 YES, GET EXIT BB F5A18880 06770 0500 00 1 40004 CLA BBB,1 WAS THAT BB F5A18890 06771 0771 00 0 00041 ARS 33 TERMINATED BY F5A18900 06772 0400 00 0 04002 ADD ONEA A F5A18910 06773 -0100 00 0 07001 TNZ X129 GO TO N F5A18920 06774 0774 00 1 00003 AXT 3,1 YES, SET COUNT TO 3. F5A18930 06775 0500 00 1 04223 X128 CLA AC1+3,1 IS THIS IR F5A18940 06776 0100 00 0 07000 TZE X127 ACTIVE F5A18950 06777 0074 00 4 05222 TSX SB,4 YES, RECORD SXD NECESSARY F5A18960 07000 2 00001 1 06775 X127 TIX X128,1,1 COUNT TO 3 F5A18970 07001 0500 00 0 04251 X129 CLA XV19 GET PRECEDING LPLST ENTRY F5A18980 07002 0340 00 0 04011 CAS S3K2 WAS IT A BB F5A18990 07003 0761 00 0 00000 NOP NO F5A19000 07004 0020 00 0 07006 TRA X26 F5A19010 07005 0020 00 0 06742 TRA X22 YES, F5A19020 07006 0500 00 0 04121 X26 CLA S3V5 GET CURRENT LPLST ENTRY F5A19030 07007 0340 00 0 04010 CAS S3K1 IS THIS AN END-LOOP-LIST F5A19040 07010 0020 00 0 07012 TRA X31 NO F5A19050 07011 0020 00 0 10023 TRA X88 YES F5A19060 07012 -0500 00 0 04121 X31 CAL S3V5 F5A19070 07013 -0320 00 0 04022 ANA LK3 F5A19080 BINARY CARD NO. 9F260074 07014 0340 00 0 04057 CAS XK17 WHAT TYPE ENTRY IS THIS F5A19090 07015 0020 00 0 07020 TRA X118 F5A19100 07016 0020 00 0 07476 TRA X33 TRANSPARENT REGION F5A19110 07017 0020 00 0 06525 TRA X32 BB F5A19120 07020 0500 00 0 04121 X118 CLA S3V5 OPAQUE REGION F5A19130 07021 0074 00 4 03745 TSX SE,4 IS F5A19140 07022 0500 00 1 40011 CLA BBB+5,1 THIS F5A19150 07023 0601 00 0 04256 STO XV24 F5A19160 07024 0622 00 0 04255 STD XV23 THE F5A19170 07025 0500 00 0 10564 CLA LPLST SAME F5A19180 07026 0560 00 0 04044 LDQ FK4 F5A19190 07027 0040 00 0 07031 TLQ X221 F5A19200 07030 1 00000 0 07037 TXI X213,0,- F5A19210 07031 0074 00 4 03746 X221 TSX SE1,4 REGION F5A19220 07032 0500 00 1 40011 CLA BBB+5,1 AS F5A19230 07033 -0320 00 0 04006 ANA S2K1 AT THE BEGINNING F5A19240 07034 0402 00 0 04255 SUB XV23 OF THE F5A19250 07035 0601 00 0 04256 STO XV24 STORE IND. OF SAMENESS OF 1ST REGION F5A19260 07036 0100 00 0 07357 TZE X61 LPLST F5A19270 07037 0500 00 0 04121 X213 CLA S3V5 F5A19280 07040 0074 00 4 04675 X57 TSX S5,4 NO,MATCH ENTR. REQU. F5A19290 07041 -0534 00 1 04255 X63 LXD XV23,1 GET F5A19300 BINARY CARD NO. 9F260075 07042 0500 00 1 12463 CLA REG,1 REGION WORD F5A19310 07043 0074 00 4 03745 TSX SE,4 GET INDEX OF 1ST BB F5A19320 07044 -0500 00 1 40005 X209 CAL BBB+1,1 GET THE F5A19330 07045 0602 00 0 04237 SLW XV9 ORIGINAL PERM. NOS. F5A19340 07046 -0320 00 0 04061 ANA XK20 STORE WORD TO F5A19350 07047 0602 00 0 04236 SLW XV8 CONTAIN NEW PERM. NOS. F5A19360 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 83 SECTION 5, PART ONE 07050 0774 00 2 00003 AXT 3,2 SET COUNT TO 3. F5A19370 07051 -0500 00 0 04237 X210 CAL XV9 GET THE F5A19380 07052 0771 00 2 00003 ARS 3,2 F5A19390 07053 0771 00 2 00003 ARS 3,2 PERM. NO. AND F5A19400 07054 -0320 00 0 04034 ANA S9K3 PUT IT F5A19410 07055 -0734 00 4 00000 PDX 0,4 IN 4. F5A19420 07056 0500 00 4 04144 CLA EN4+3,4 GET THE F5A19430 07057 0767 00 2 00003 ALS 3,2 CORRESPONDENCE F5A19440 07060 0767 00 2 00003 ALS 3,2 OF THE ENTR. REQUIREMENTS F5A19450 07061 -0602 00 0 04236 ORS XV8 FORM NEW PERM. F5A19460 07062 2 00001 2 07051 TIX X210,2,1 F5A19470 07063 -0500 00 0 04236 CAL XV8 STORE NEW PERM. F5A19480 07064 0622 00 1 40005 STD BBB+1,1 NOS. F5A19490 07065 0500 00 1 40011 CLA BBB+5,1 IS THIS THE LAST F5A19500 07066 -0320 00 0 03764 ANA SBK2 BB IN REGION F5A19510 07067 0340 00 0 03764 CAS SBK2 F5A19520 BINARY CARD NO. 9F260076 07070 0020 00 0 07072 TRA X211 NO. F5A19530 07071 0020 00 0 07074 TRA X212 YES, DONE F5A19540 07072 0074 00 4 03746 X211 TSX SE1,4 ARRANGE TO DO NEXT F5A19550 07073 0020 00 0 07044 TRA X209 BB. F5A19560 07074 0774 00 1 00003 X212 AXT 3,1 SET COUNT TO 3. F5A19570 07075 0500 00 1 04141 X60 CLA IN1+3,1 GET INDEX F5A19580 07076 -0734 00 2 00000 PDX 0,2 OF EN. F5A19590 07077 0500 00 2 04147 CLA EN1+3,2 IS C(ENM) F5A19600 07100 0340 00 1 04105 CAS IR1+3,1 =C(IRN) F5A19610 07101 0020 00 0 07103 TRA X58 F5A19620 07102 0020 00 0 07367 TRA X64 YES, F5A19630 07103 0340 00 0 04024 X58 CAS S5K2 IS C(ENM) REAL F5A19640 07104 0761 00 0 00000 NOP NO, F5A19650 07105 0020 00 0 07107 TRA X119 F5A19660 07106 0020 00 0 07424 TRA X67 YES, F5A19670 07107 0500 00 1 04223 X119 CLA AC1+3,1 NO,IS F5A19680 07110 0100 00 0 07112 X102 TZE X59 IRN ACTIVE F5A19690 07111 0074 00 4 05222 X65 TSX SB,4 YES,RECORD SXD NECESSARY. F5A19700 07112 2 00001 1 07075 X59 TIX X60,1,1 F5A19710 07113 0074 00 4 05476 TSX SG,4 PERMUTE REGION WORD F5A19720 07114 0500 00 0 10564 X89 CLA LPLST (COME HERE FROM ACTIVE PASS) F5A19730 07115 0340 00 0 04011 CAS S3K2 IS IT A BB F5A19740 BINARY CARD NO. 9F260077 07116 0074 00 4 03746 TSX SE1,4 NO F5A19750 07117 0020 00 0 07121 TRA X206 F5A19760 07120 0020 00 0 07124 TRA X207 F5A19770 07121 0500 00 1 40011 X206 CLA BBB+5,1 F5A19780 07122 -0734 00 1 00000 PDX 0,1 F5A19790 07123 0500 00 1 12463 CLA REG,1 FORM NO OF 1ST BB IN REGION F5A19800 07124 0622 00 0 04230 X207 STD XV2 F5A19810 07125 0774 00 1 00003 AXT 3,1 F5A19820 07126 0500 00 0 04023 X116 CLA S5K1 F5A19830 07127 0340 00 1 04105 CAS IR1+3,1 IS THIS IR EMPTY F5A19840 07130 0020 00 0 07133 TRA X115 F5A19850 07131 -0500 00 1 04067 CAL XK23+3,1 YES, INITIALIZE IR F5A19860 07132 -0602 00 0 04230 ORS XV2 TO EMPTYNESS F5A19870 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 84 SECTION 5, PART ONE 07133 2 00001 1 07126 X115 TIX X116,1,1 COUNT TO 3 F5A19880 07134 0774 00 2 00422 AXT S3P1,2 PREPARE TO SCAN LOOP LIST. F5A19890 07135 -0634 00 2 04242 SXD XV12,2 F5A19900 07136 0500 00 2 11206 X79 CLA LPLST+S3P1,2 F5A19910 07137 0340 00 0 04010 CAS S3K1 IS THIS END LOOP LIST F5A19920 07140 0020 00 0 07142 TRA X120 F5A19930 07141 0020 00 0 07352 TRA X81 YES. F5A19940 07142 0340 00 0 04011 X120 CAS S3K2 IS IT A BB F5A19950 07143 0761 00 0 00000 NOP F5A19960 BINARY CARD NO. 9F260078 07144 0020 00 0 07146 TRA X121 F5A19970 07145 0771 00 0 00022 ARS 18 YES. F5A19980 07146 0621 00 0 04163 X121 STA SBV3 STORE EXIT BB NO. F5A19990 07147 0500 00 2 11207 CLA LPLST+S3P1+1,2 F5A20000 07150 0340 00 0 04010 CAS S3K1 IS NEXT QUANTITY AN END LPLST F5A20010 07151 0020 00 0 07153 TRA X107 F5A20020 07152 0020 00 0 07236 TRA X114 YES. F5A20030 07153 0771 00 0 00022 X107 ARS 18 F5A20040 07154 0621 00 0 04250 STA XV18 STORE ENTRY BB NO. F5A20050 07155 0400 00 0 04002 ADD ONEA F5A20060 07156 0074 00 4 03746 TSX SE1,4 F5A20070 07157 -0500 00 1 40004 CAL BBB,1 F5A20080 07160 -0320 00 0 03764 ANA SBK2 F5A20090 07161 0601 00 0 04165 STO SBV5 F5A20100 07162 0500 00 0 04250 CLA XV18 F5A20110 07163 0074 00 4 03746 TSX SE1,4 F5A20120 07164 0500 00 1 40004 CLA BBB,1 F5A20130 07165 -0320 00 0 03764 ANA SBK2 F5A20140 07166 0602 00 0 04162 X109 SLW SBV2 F5A20150 07167 0074 00 4 03741 TSX SE5,4 F5A20160 07170 -0500 00 1 56774 CAL PRED,1 F5A20170 07171 -0320 00 0 03764 ANA SBK2 F5A20180 BINARY CARD NO. 9F260079 07172 0340 00 0 04163 CAS SBV3 IS THIS THE RIGHT TRANSFER F5A20190 07173 0020 00 0 07175 TRA X108 F5A20200 07174 0020 00 0 07203 TRA X110 YES F5A20210 07175 0500 00 0 04162 X108 CLA SBV2 ARRANGE TO TRY F5A20220 07176 0400 00 0 04002 ADD ONEA NEXT PRED. F5A20230 07177 0340 00 0 04165 CAS SBV5 IS THIS PRED ENTRY IN SAME BB F5A20240 07200 0020 00 0 07166 TRA X109 F5A20250 07201 0020 00 0 07207 TRA X222 F5A20260 07202 0020 00 0 07166 TRA X109 F5A20270 07203 0500 00 1 56774 X110 CLA PRED,1 SET SIGN F5A20280 07204 -0760 00 0 00003 SSM OF PRED. F5A20290 07205 0601 00 1 56774 STO PRED,1 ENTRY NEGATIVE. F5A20300 07206 0020 00 0 07175 TRA X108 F5A20310 07207 0500 00 0 04163 X222 CLA SBV3 GET INDEX F5A20320 07210 0400 00 0 04002 ADD ONEA F5A20330 07211 0074 00 4 03746 TSX SE1,4 OF F5A20340 07212 0500 00 1 40004 CLA BBB,1 F5A20350 07213 -0320 00 0 04006 ANA S2K1 F5A20360 07214 0601 00 0 04165 STO SBV5 F5A20370 07215 0500 00 0 04163 CLA SBV3 F5A20380 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 85 SECTION 5, PART ONE 07216 0074 00 4 03746 TSX SE1,4 F5A20390 07217 0500 00 1 40004 CLA BBB,1 F5A20400 BINARY CARD NO. 9F260080 07220 -0320 00 0 04006 ANA S2K1 F5A20410 07221 0602 00 0 04162 X112 SLW SBV2 F5A20420 07222 0074 00 4 03740 TSX SE6,4 F5A20430 07223 -0500 00 1 65274 CAL SUCC,1 F5A20440 07224 -0320 00 0 03764 ANA SBK2 F5A20450 07225 0340 00 0 04250 CAS XV18 IS THIS RIGHT SUCC. F5A20460 07226 0020 00 0 07230 TRA X111 F5A20470 07227 0020 00 0 07242 TRA X113 F5A20480 07230 0500 00 0 04162 X111 CLA SBV2 ARRANGE TO TRY NEXT SUCC. F5A20490 07231 0400 00 0 04003 ADD ONED F5A20500 07232 0340 00 0 04165 CAS SBV5 IS THIS SUCC IN SAME BB F5A20510 07233 0020 00 0 07221 TRA X112 F5A20520 07234 0020 00 0 07246 TRA X74 F5A20530 07235 0020 00 0 07221 TRA X112 F5A20540 07236 0500 00 0 04212 X114 CLA LPIND IS THIS F5A20550 07237 0120 00 0 07246 TPL X74 A LOOP F5A20560 07240 0500 00 0 10564 CLA LPLST YES F5A20570 07241 0020 00 0 07153 TRA X107 F5A20580 07242 0500 00 1 65274 X113 CLA SUCC,1 SET SIGN F5A20590 07243 -0760 00 0 00003 SSM OF SUCC ENTRY F5A20600 07244 0601 00 1 65274 STO SUCC,1 NEGATIVE F5A20610 07245 0020 00 0 07230 TRA X111 F5A20620 BINARY CARD NO. 9F260081 07246 -0534 00 2 04242 X74 LXD XV12,2 F5A20630 07247 0500 00 2 11206 CLA LPLST+S3P1,2 F5A20640 07250 0340 00 0 04011 CAS S3K2 IS IT A BB F5A20650 07251 0761 00 0 00000 NOP F5A20660 07252 0020 00 0 07254 TRA X122 F5A20670 07253 0020 00 0 07315 TRA X80 YES F5A20680 07254 -0734 00 4 00000 X122 PDX 0,4 F5A20690 07255 3 77776 4 07257 TXH X205,4,-2 IS THE DECR. AN IMPOSSIBLE BB F5A20700 07256 0771 00 0 00022 ARS 18 F5A20710 07257 0074 00 4 03746 X205 TSX SE1,4 F5A20720 07260 0500 00 1 40011 CLA BBB+5,1 THE F5A20730 07261 -0734 00 1 00000 PDX 0,1 REGION F5A20740 07262 -0500 00 1 12463 CAL REG,1 WORD F5A20750 07263 0602 00 0 04247 SLW XV17 F5A20760 07264 0100 00 0 07310 TZE X105 HAS THIS REGION ALREADY BEEN RENUMBERED F5A20770 07265 -0320 00 0 04022 ANA LK3 OR THE LX BITS FOR F5A20780 07266 -0602 00 0 04230 ORS XV2 OLD REGION IN NEW REGION WORD. F5A20790 07267 -0500 00 0 04063 CAL XK22 AND THE OLD PHI F5A20800 07270 -0501 00 0 04247 ORA XV17 BITS F5A20810 07271 0320 00 0 04230 ANS XV2 INTO NEW REGION WORD. F5A20820 07272 0500 00 0 04001 CLA ZERO CLEAR OLD F5A20830 07273 0601 00 1 12463 STO REG,1 REGION WORD. F5A20840 BINARY CARD NO. 9F260082 07274 0500 00 0 04247 CLA XV17 GET INDEX OF F5A20850 07275 0771 00 0 00022 ARS 18 FIRST BB IN REG F5A20860 07276 0621 00 0 04254 X75 STA XV22 STOREBB NO. F5A20870 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 86 SECTION 5, PART ONE 07277 0074 00 4 03746 TSX SE1,4 GET INDEX OF BB F5A20880 07300 0500 00 0 04227 X101 CLA XV1 STORE THE F5A20890 07301 0622 00 1 40011 STD BBB+5,1 NEW REGION NO. F5A20900 07302 0500 00 1 40011 CLA BBB+5,1 IS THIS THE F5A20910 07303 -0320 00 0 03764 ANA SBK2 LAST BB F5A20920 07304 0340 00 0 03764 CAS SBK2 OF THE REGION F5A20930 07305 0020 00 0 07276 TRA X75 F5A20940 07306 0020 00 0 07320 TRA X76 YES. F5A20950 07307 0020 00 0 07276 TRA X75 F5A20960 07310 0500 00 0 04254 X105 CLA XV22 RECORD THAT PREVIOUSLY F5A20970 07311 0074 00 4 03746 TSX SE1,4 NUMBERED BB F5A20980 07312 0500 00 0 04063 CLA XK22 WAS LAST F5A20990 07313 0621 00 1 40011 STA BBB+5,1 ONE IN NEW REGION. F5A21000 07314 0020 00 0 07352 TRA X81 FINISHED RENUMBERING. F5A21010 07315 0771 00 0 00022 X80 ARS 18 F5A21020 07316 0621 00 0 04254 STA XV22 F5A21030 07317 0074 00 4 03746 TSX SE1,4 F5A21040 07320 -0534 00 2 04242 X76 LXD XV12,2 F5A21050 07321 1 77777 2 07322 X140 TXI X140+1,2,-1 F5A21060 BINARY CARD NO. 9F260083 07322 -0634 00 2 04242 SXD XV12,2 F5A21070 07323 0500 00 2 11206 X77 CLA LPLST+S3P1,2 F5A21080 07324 0340 00 0 04010 CAS S3K1 IS THIS END LOOP LIST F5A21090 07325 1 00000 0 07333 X219 TXI X217,0,- SEE X217+2 F5A21100 07326 0500 00 0 04023 CLA S5K1 YES F5A21110 07327 0621 00 1 40011 X216 STA BBB+5,1 RECORD THE NEXT BB NO. F5A21120 07330 0500 00 0 04227 CLA XV1 RECORD THE F5A21130 07331 0622 00 1 40011 STD BBB+5,1 NEW REGION F5A21140 07332 0020 00 0 07136 TRA X79 NO. F5A21150 07333 0560 00 0 04011 X217 LDQ S3K2 F5A21160 07334 0040 00 0 07337 TLQ X220 F5A21170 07335 0771 00 0 00022 X215 ARS 18 NO F5A21180 07336 1 00000 0 07327 X218 TXI X216,0,- F5A21190 07337 -0634 00 2 07325 X220 SXD X219,2 F5A21200 07340 0074 00 4 03745 TSX SE,4 F5A21210 07341 0500 00 1 40011 CLA BBB+5,1 F5A21220 07342 -0734 00 1 00000 PDX 0,1 F5A21230 07343 0500 00 1 12463 CLA REG,1 GET REGION WORD F5A21240 07344 0622 00 0 07336 STD X218 F5A21250 07345 0500 00 0 04254 CLA XV22 F5A21260 07346 0074 00 4 03746 TSX SE1,4 F5A21270 07347 0500 00 0 07336 CLA X218 F5A21280 BINARY CARD NO. 9F260084 07350 -0534 00 2 07325 LXD X219,2 F5A21290 07351 1 00000 0 07335 TXI X215,-,- F5A21300 07352 0500 00 0 04230 X81 CLA XV2 F5A21310 07353 -0501 00 0 04002 ORA ONEA F5A21320 07354 -0534 00 1 04227 LXD XV1,1 NEW REGION F5A21330 07355 0601 00 1 12463 STO REG,1 WORD. F5A21340 07356 0020 00 0 05656 TRA F FINISHED TREATMENT, GO FORM NEXT LOOPLISTF5A21350 07357 0774 00 1 00003 X61 AXT 3,1 F5A21360 07360 -0754 00 1 00000 X62 PXD 0,1 PLACE APPROPRIATE NOS. F5A21370 07361 0622 00 1 04141 STD IN1+3,1 IN CORRSEPONDENCE F5A21380 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 87 SECTION 5, PART ONE 07362 0622 00 1 04144 STD EN4+3,1 TABLES F5A21390 07363 2 00001 1 07360 TIX X62,1,1 F5A21400 07364 0500 00 0 04121 CLA S3V5 F5A21410 07365 0074 00 4 05115 TSX S9,4 GET THE ENTRANCE REQUIREMENTS F5A21420 07366 0020 00 0 07041 TRA X63 F5A21430 07367 0500 00 1 04223 X64 CLA AC1+3,1 IS THIS I.R. F5A21440 07370 0100 00 0 07112 TZE X59 ACTIVE F5A21450 07371 -0534 00 4 04115 LXD S3V4,4 YES. F5A21460 07372 0500 00 4 11205 CLA LPLST+S3P1-1,4 GET F5A21470 07373 -0634 00 1 04241 SXD XV11,1 THE F5A21480 07374 -0634 00 2 04242 SXD XV12,2 REGION F5A21490 07375 0074 00 4 03745 TSX SE,4 WORD F5A21500 BINARY CARD NO. 9F260085 07376 0500 00 1 40011 CLA BBB+5,1 IN F5A21510 07377 -0734 00 4 00000 PDX 0,4 THE F5A21520 07400 0560 00 4 12463 LDQ REG,4 MQ. F5A21530 07401 -0534 00 1 04241 LXD XV11,1 HAS THERE F5A21540 07402 -0534 00 2 04242 LXD XV12,2 F5A21550 07403 -0773 00 2 00003 RQL 3,2 BEEN AN LX F5A21560 07404 0162 00 0 07406 TQP X66 FOR THIS I.R. F5A21570 07405 0020 00 0 07111 TRA X65 YES F5A21580 07406 0500 00 0 04256 X66 CLA XV24 F5A21590 07407 -0100 00 0 07415 TNZ X208 IS THIS SAME REG. AS BEGINS STRING F5A21600 07410 0500 00 0 10564 CLA LPLST YES F5A21610 07411 0074 00 4 05152 TSX SA,4 GET ACTIVE INDS. AT START OF STRING F5A21620 07412 -0534 00 1 04241 LXD XV11,1 F5A21630 07413 0500 00 1 04162 CLA ACT1+3,1 WAS THIS IR ACTIVE AT START F5A21640 07414 0120 00 0 07111 TPL X65 F5A21650 07415 -0534 00 4 04115 X208 LXD S3V4,4 YES, MARK ALL F5A21660 07416 0500 00 4 11205 CLA LPLST+S3P1-1,4 BBS IN OPAQUE F5A21670 07417 -0534 00 2 04241 LXD XV11,2 REGION ACTIVE F5A21680 07420 0074 00 4 05407 TSX SD,4 F5A21690 07421 -0534 00 1 04241 LXD XV11,1 F5A21700 07422 0074 00 4 05315 TSX SC,4 MARK SECTION OF LLLST ACTIVE F5A21710 07423 0020 00 0 07112 TRA X59 F5A21720 BINARY CARD NO. 9F260086 07424 -0634 00 1 04241 X67 SXD XV11,1 F5A21730 07425 -0534 00 1 04115 LXD S3V4,1 GET F5A21740 07426 0500 00 1 11204 CLA LPLST+S3P1-2,1 PRED+ NO F5A21750 07427 0340 00 0 04011 CAS S3K2 IS THIS A BB F5A21760 07430 0761 00 0 00000 NOP NO F5A21770 07431 0020 00 0 07433 TRA X123 F5A21780 07432 0771 00 0 00022 ARS 18 YES,SHIFT BB NO RIGHT. F5A21790 07433 0621 00 0 04163 X123 STA SBV3 AND STORE IT F5A21800 07434 0500 00 1 11205 CLA LPLST+S3P1-1,1 GET INDEX OF F5A21810 07435 0074 00 4 03745 TSX SE,4 THIS BB F5A21820 07436 0500 00 1 40005 CLA BBB+1,1 GET TO STORE F5A21830 07437 0601 00 0 04237 STO XV9 PREM. NO. F5A21840 07440 0500 00 1 40004 CLA BBB,1 GET PRED. NO. F5A21850 07441 0602 00 0 04162 X68 SLW SBV2 F5A21860 07442 0074 00 4 03741 TSX SE5,4 GET INDEX OF PRED. F5A21870 07443 -0500 00 1 56774 CAL PRED,1 IS THIS THE F5A21880 07444 -0320 00 0 03764 ANA SBK2 RIGHT PRED F5A21890 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 88 SECTION 5, PART ONE 07445 0340 00 0 04163 CAS SBV3 F5A21900 07446 0020 00 0 07450 TRA X69 F5A21910 07447 0020 00 0 07453 TRA X70 YES. F5A21920 07450 0500 00 0 04162 X69 CLA SBV2 F5A21930 07451 0400 00 0 04002 ADD ONEA F5A21940 BINARY CARD NO. 9F260087 07452 0020 00 0 07441 TRA X68 F5A21950 07453 0774 00 4 00003 X70 AXT 3,4 SET COUNT TO 3. F5A21960 07454 -0500 00 0 04237 X72 CAL XV9 FIND F5A21970 07455 0771 00 4 00003 ARS 3,4 THE F5A21980 07456 0771 00 4 00003 ARS 3,4 PERM+ NO. F5A21990 07457 -0320 00 0 04034 ANA S9K3 F5A22000 07460 0340 00 0 04241 CAS XV11 IS THIS THE RIGHT I.R. F5A22010 07461 0020 00 0 07463 TRA X71 NO, F5A22020 07462 0020 00 0 07465 TRA X73 YES, F5A22030 07463 2 00001 4 07454 X71 TIX X72,4,1 NO, F5A22040 07464 0074 00 4 03736 TSX DIAG,4 ERROR--TO DIAGNOSTIC. F5A22050 07465 -0500 00 0 04056 X73 CAL XK16 RECORD THAT AN F5A22060 07466 0771 00 4 00003 ARS 3,4 LX IS F5A22070 07467 -0602 00 1 56774 ORS PRED,1 NECESSARY. F5A22080 07470 -0534 00 4 04241 LXD XV11,4 RECORD F5A22090 07471 -0500 00 0 04025 CAL S5K3 LX F5A22100 07472 0771 00 4 00003 ARS 3,4 FOR THIS I.R. F5A22110 07473 -0602 00 0 04230 ORS XV2 IN THIS REGION. F5A22120 07474 -0534 00 1 04241 LXD XV11,1 F5A22130 07475 0020 00 0 07107 TRA X119 F5A22140 07476 0500 00 0 04121 X33 CLA S3V5 GET CURRENT LPLST ENTRY F5A22150 07477 0074 00 4 04675 TSX S5,4 MATCH ENTRANCE REQU. F5A22160 BINARY CARD NO. 9F260088 07500 0500 00 0 04121 CLA S3V5 F5A22170 07501 0074 00 4 05152 TSX SA,4 GET EXIT COND. F5A22180 07502 0500 00 0 04121 CLA S3V5 F5A22190 07503 0074 00 4 03745 TSX SE,4 GET INDEX OF F5A22200 07504 0500 00 1 40011 CLA BBB+5,1 B.B. F5A22210 07505 -0734 00 1 00000 PDX 0,1 GET F5A22220 07506 0500 00 1 12463 CLA REG,1 REGION WORD F5A22230 07507 0074 00 4 03745 TSX SE,4 GET INDEX OF FIRST BB F5A22240 07510 -0634 00 1 04243 X40 SXD XV13,1 F5A22250 07511 -0500 00 1 40005 CAL BBB+1,1 CLEAR REGISTER TO F5A22260 07512 0602 00 0 04237 SLW XV9 CONTAIN PERM. NOS. F5A22270 07513 -0320 00 0 04061 ANA XK20 GET ORIGINAL PERM. NOS. F5A22280 07514 0602 00 0 04236 SLW XV8 F5A22290 07515 0774 00 2 00003 AXT 3,2 SET COUNT TO 3. F5A22300 07516 -0500 00 0 04237 X38 CAL XV9 GET THE F5A22310 07517 0771 00 2 00003 ARS 3,2 PERM. F5A22320 07520 0771 00 2 00003 ARS 3,2 NO. AND F5A22330 07521 -0320 00 0 04034 ANA S9K3 PUT IT F5A22340 07522 -0734 00 4 00000 PDX 0,4 IN 4. F5A22350 07523 0500 00 4 04144 CLA EN4+3,4 GET THE CORRESPONDENCE F5A22360 07524 0767 00 2 00003 ALS 3,2 OF THE ENTR, F5A22370 07525 0767 00 2 00003 ALS 3,2 REQUIREMENTS. F5A22380 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 89 SECTION 5, PART ONE BINARY CARD NO. 9F260089 07526 -0602 00 0 04236 ORS XV8 FORM NEW PERM. NOS. F5A22390 07527 -0634 00 1 04240 SXD XV10,1 F5A22400 07530 0500 00 4 04144 CLA EN4+3,4 F5A22410 07531 -0734 00 1 00000 PDX 0,1 GET INDEX OF I.R. F5A22420 07532 0500 00 4 04147 CLA EN1+3,4 F5A22430 07533 0340 00 0 04023 CAS S5K1 IS ENM EMPTY F5A22440 07534 0020 00 0 07536 TRA X34 NO, F5A22450 07535 0020 00 0 07602 TRA X41 YES, F5A22460 07536 0340 00 0 04020 X34 CAS LK1 NO, IS C(ENM) HASH F5A22470 07537 0020 00 0 07541 TRA X35 NO, F5A22480 07540 0020 00 0 07544 TRA X36 YES, F5A22490 07541 0340 00 1 04105 X35 CAS IR1+3,1 C-(ENM)=C(IRN) F5A22500 07542 0020 00 0 07544 TRA X36 NO F5A22510 07543 0020 00 0 07561 TRA X430 YES F5A22520 07544 -0534 00 1 04240 X36 LXD XV10,1 NO F5A22530 07545 1 77777 1 07546 X42 TXI X42+1,1,-1 F5A22540 07546 2 00001 2 07516 X37 TIX X38,2,1 COUNT TO 3 F5A22550 07547 -0500 00 0 04236 CAL XV8 STORE NEW F5A22560 07550 0622 00 1 40002 STD BBB-2,1 PERM. NOS. F5A22570 07551 0630 00 1 40002 STP BBB-2,1 AND ACTIVE INDICATORS F5A22580 07552 0500 00 1 40006 CLA BBB+2,1 IS THIS F5A22590 07553 -0320 00 0 03764 ANA SBK2 LAST BB IN REGION F5A22600 BINARY CARD NO. 9F260090 07554 0340 00 0 03764 CAS SBK2 F5A22610 07555 0020 00 0 07557 TRA X39 F5A22620 07556 0020 00 0 07652 TRA X45 YES,DONE. F5A22630 07557 0074 00 4 03746 X39 TSX SE1,4 GET INDEX OF NEXT B.B. F5A22640 07560 0020 00 0 07510 TRA X40 F5A22650 07561 0500 00 1 04223 X430 CLA AC1+3,1 IS THIS IR ACTIVE F5A22660 07562 0100 00 0 07544 TZE X36 NO F5A22670 07563 -0634 00 1 10413 SXD W2+1,1 YES F5A22680 07564 0500 00 1 04105 CLA IR1+3,1 IS THIS SAME TAG IN CORRESPONDING BB EXITF5A22690 07565 0601 00 0 04253 STO XV21 F5A22700 07566 -0534 00 1 04240 LXD XV10,1 F5A22710 07567 0500 00 1 40006 CLA BBB+2,1 F5A22720 07570 -0320 00 0 04023 ANA S5K1 F5A22730 07571 0402 00 0 04253 SUB XV21 F5A22740 07572 -0100 00 0 10373 TNZ W0 NO. SEE IF TAG APPEARS IN OTHER POSITIONF5A22750 07573 0500 00 4 04162 CLA ACT1+3,4 YES. IS THIS ACT ACTIVE AT EXIT OF REGIONF5A22760 07574 -0120 00 0 10514 TMI X44A YES, TEST FOR LX IN THIS REGION (32)F5A22770 07575 0500 00 4 04157 CLA EX1+3,4 NO F5A22780 07576 0560 00 0 04024 LDQ S5K2 IS THIS EX REAL AT EXIT OF REGION F5A22790 07577 0040 00 0 10514 TLQ X44A NO, TEST FOR LX IN THIS REGION (32)F5A22800 07600 0020 00 0 07545 TRA X42 YES F5A22810 07601 0774 00 2 00000 X87 AXT **,2 (32)F5A22820 BINARY CARD NO. 9F260091 07602 0634 00 1 07634 X41 SXA X86,1 (32)F5A22830 C(XV10)= INDEX OF PARTICULAR F5A22840 ENTRANCE REQUIREMENT. F5A22850 07603 0500 00 1 04105 CLA IR1+3,1 (32)F5A22860 07604 0601 00 0 04234 STO XV6 F5A22870 07605 0767 00 0 00022 ALS 18 STORE AWAY THIS F5A22880 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 90 SECTION 5, PART ONE 07606 0400 00 1 04105 ADD IR1+3,1 TAG TEMPORARILY. F5A22890 07607 0602 00 0 04235 SLW XV7 F5A22900 07610 0500 00 1 04105 CLA IR1+3,1 IS THIS TAG REAL F5A22910 07611 0560 00 0 04024 LDQ S5K2 F5A22920 07612 0040 00 0 07630 TLQ X201 NO F5A22930 07613 -0534 00 1 04243 LXD XV13,1 YES F5A22940 07614 0774 00 4 00003 AXT 3,4 SET COUNT TO 3. F5A22950 07615 -0500 00 1 40006 X85 CAL BBB+2,1 F5A22960 07616 0765 00 0 00022 LRS 18 F5A22970 07617 0340 00 0 04234 CAS XV6 IS ENTR. REQU. EQUAL TO TAG F5A22980 07620 0020 00 0 07622 TRA X82 NO, F5A22990 07621 0020 00 0 07634 TRA X86 YES, F5A23000 07622 0500 00 0 04001 X82 CLA ZERO NO, F5A23010 07623 0763 00 0 00022 LLS 18 F5A23020 07624 0402 00 0 04234 SUB XV6 IS TAG EQUAL TO EXIT COND. (32)F5A23030 07625 0100 00 0 07634 TZE X86 IF EITHER, GO KILL CONTENTS (32)F5A23040 07626 1 77777 1 07627 TXI X84,1,-1 (32)F5A23050 07627 2 00001 4 07615 X84 TIX X85,4,1 COUNT TO 3 (32)F5A23060 BINARY CARD NO. 9F260092 07630 0500 00 0 04235 X201 CLA XV7 STORE THE (32)F5A23070 07631 -0534 00 1 04240 LXD XV10,1 NEW ENTRANCE- (32)F5A23080 07632 0601 00 1 40006 STO BBB+2,1 EXIT REQUIREMENTS. (32)F5A23090 07633 0020 00 0 07545 TRA X42 (32)F5A23100 07634 0774 00 1 00000 X86 AXT **,1 RESTORE IR POINTER (32)F5A23110 07635 0634 00 2 07601 SXA X87,2 PRESERVE COUNTER FROM SB DESTRUCTION (32)F5A23120 07636 0520 00 1 04223 ZET AC1+3,1 IS IR ACTIVE (32)F5A23130 07637 0074 00 4 05222 TSX SB,4 YES, RECORD SXD NECESSARY (32)F5A23140 07640 -0500 00 0 04020 CAL LK1 REPLACE IR CONTENTS (32)F5A23150 07641 0601 00 1 04105 STO IR1+3,1 WITH HASH (32)F5A23160 07642 -0500 00 0 04025 CAL S5K3 INDICATE LX FOR THIS IR IN (32)F5A23170 07643 0771 00 1 00003 ARS 3,1 REGION BEING FORMED, TO FORESTALL (32)F5A23180 07644 -0602 00 0 04230 ORS XV2 ERROR IF MATCHED AGAIN LATER (32)F5A23190 07645 0020 00 0 07601 TRA X87 GO RESTORE IR2 (32)F5A23200 07646 -0500 00 0 04025 X44 CAL S5K3 RECORD THIS F5A23210 07647 0771 00 2 00003 ARS 3,2 I.R. F5A23220 07650 -0602 00 0 04236 ORS XV8 ACTIVE F5A23230 07651 0020 00 0 07544 TRA X36 (32)F5A23240 07652 0774 00 2 00003 X45 AXT 3,2 F5A23250 07653 -0634 00 2 04244 X56 SXD XV14,2 F5A23260 07654 0500 00 2 04144 CLA EN4+3,2 F5A23270 07655 -0734 00 4 00000 PDX 0,4 GET INDEX F5A23280 BINARY CARD NO. 9F260093 07656 -0634 00 4 04164 SXD SBV4,4 OF I.R. F5A23290 07657 0500 00 2 04147 CLA EN1+3,2 F5A23300 07660 0340 00 0 04023 CAS S5K1 IS ENM EMPTY F5A23310 07661 0020 00 0 07663 TRA X46 F5A23320 07662 0020 00 0 07776 TRA X223 YES F5A23330 07663 0340 00 0 04020 X46 CAS LK1 IS THERE HASH IN ENM F5A23340 07664 0020 00 0 07666 TRA X134 F5A23350 07665 0020 00 0 07742 TRA X55 YES F5A23360 07666 0340 00 4 04105 X134 CAS IR1+3,4 DOES CONTENTS OF IR EQUAL CONTENTS OF EN F5A23370 07667 0020 00 0 07671 TRA X47 NO F5A23380 07670 0020 00 0 10012 TRA X131 YES F5A23390 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 91 SECTION 5, PART ONE 07671 -0534 00 1 04115 X47 LXD S3V4,1 GET AND F5A23400 07672 0500 00 1 11204 CLA LPLST+S3P1-2,1 STORE PRED. F5A23410 07673 0340 00 0 04011 CAS S3K2 BB F5A23420 07674 0761 00 0 00000 NOP NO. F5A23430 07675 0020 00 0 07677 TRA X124 F5A23440 07676 0771 00 0 00022 ARS 18 F5A23450 07677 0621 00 0 04163 X124 STA SBV3 F5A23460 07700 0500 00 1 11205 CLA LPLST+S3P1-1,1 GET F5A23470 07701 0074 00 4 03745 TSX SE,4 BB NO. F5A23480 07702 0500 00 1 40005 CLA BBB+1,1 STORE THE F5A23490 07703 0601 00 0 04237 STO XV9 PERM. NOS. F5A23500 BINARY CARD NO. 9F260094 07704 0500 00 1 40011 CLA BBB+5,1 F5A23510 07705 -0734 00 4 00000 PDX 0,4 F5A23520 07706 -0534 00 2 04244 LXD XV14,2 F5A23530 07707 -0500 00 0 04025 CAL S5K3 F5A23540 07710 0771 00 2 00003 ARS 3,2 F5A23550 07711 -0602 00 4 12463 ORS REG,4 F5A23560 07712 0500 00 1 40004 CLA BBB,1 GET PRED. NO. F5A23570 07713 0602 00 0 04162 X48 SLW SBV2 STORE PRED. NO. F5A23580 07714 0074 00 4 03741 TSX SE5,4 OBTAIN PRED. INDEX. F5A23590 07715 -0500 00 1 56774 CAL PRED,1 IS THIS F5A23600 07716 -0320 00 0 03764 ANA SBK2 THE CORRECT F5A23610 07717 0340 00 0 04163 CAS SBV3 PRED F5A23620 07720 0020 00 0 07722 TRA X49 F5A23630 07721 0020 00 0 07725 TRA X50 YES. F5A23640 07722 0500 00 0 04162 X49 CLA SBV2 ARRANGE TO F5A23650 07723 0400 00 0 04002 ADD ONEA TRY NEXT PREDECESSOR. F5A23660 07724 0020 00 0 07713 TRA X48 F5A23670 07725 0774 00 4 00003 X50 AXT 3,4 1 HAS INDEX OF PRED. F5A23680 07726 -0500 00 0 04237 X52 CAL XV9 EXTRACT F5A23690 07727 0771 00 4 00003 ARS 3,4 THE F5A23700 07730 0771 00 4 00003 ARS 3,4 PERM. F5A23710 07731 -0320 00 0 04034 ANA S9K3 NO. F5A23720 BINARY CARD NO. 9F260095 07732 0340 00 0 04164 CAS SBV4 IS THIS THE PERM. NO. F5A23730 07733 0020 00 0 07735 TRA X51 F5A23740 07734 0020 00 0 07737 TRA X53 YES. F5A23750 07735 2 00001 4 07726 X51 TIX X52,4,1 F5A23760 07736 0074 00 4 03736 TSX DIAG,4 ERROR--TO DIAGNOSTIC. F5A23770 07737 -0500 00 0 04056 X53 CAL XK16 GENERATE F5A23780 07740 0771 00 4 00003 ARS 3,4 THE LX BIT. F5A23790 07741 -0602 00 1 56774 ORS PRED,1 INSERT LX BIT. F5A23800 07742 -0534 00 1 04164 X55 LXD SBV4,1 IS THE F5A23810 07743 0500 00 1 04223 CLA AC1+3,1 I.R. F5A23820 07744 0100 00 0 07746 TZE X135 ACTIVE F5A23830 07745 0074 00 4 05222 TSX SB,4 YES,RECORD SXD NEEDED. F5A23840 07746 -0534 00 2 04244 X135 LXD XV14,2 REPLACE IR F5A23850 07747 -0534 00 4 04164 LXD SBV4,4 BY EXIT CONDITIONS F5A23860 07750 0500 00 2 04157 CLA EX1+3,2 OF THE F5A23870 07751 0601 00 4 04105 STO IR1+3,4 REGION F5A23880 07752 0500 00 2 04162 X136 CLA ACT1+3,2 IS IR F5A23890 07753 0120 00 0 07760 TPL X54 ACTIVE AT EXIT F5A23900 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 92 SECTION 5, PART ONE 07754 0500 00 0 04115 CLA S3V4 SET F5A23910 07755 -0760 00 0 00003 SSM ACTIVE F5A23920 07756 0402 00 0 04003 SUB ONED INDICATOR F5A23930 07757 0601 00 4 04223 STO AC1+3,4 F5A23940 BINARY CARD NO. 9F260096 07760 -0534 00 2 04244 X54 LXD XV14,2 COUNT TO F5A23950 07761 2 00001 2 07653 TIX X56,2,1 3 F5A23960 07762 0074 00 4 05476 TSX SG,4 PERMUTE REGION WORD F5A23970 07763 -0500 00 2 12463 CAL REG,2 F5A23980 07764 -0320 00 0 04063 ANA XK22 F5A23990 07765 0602 00 2 12463 SLW REG,2 F5A24000 07766 0774 00 4 00003 AXT 3,4 F5A24010 07767 0500 00 4 04105 XY1 CLA IR1+3,4 F5A24020 07770 0402 00 0 04023 SUB S5K1 F5A24030 07771 -0100 00 0 07774 TNZ XY2 F5A24040 07772 -0500 00 4 04067 CAL XK23+3,4 F5A24050 07773 -0602 00 2 12463 ORS REG,2 F5A24060 07774 2 00001 4 07767 XY2 TIX XY1,4,1 F5A24070 07775 0020 00 0 06532 TRA X3 F5A24080 07776 0500 00 4 04105 X223 CLA IR1+3,4 IS CONTENTS OF IR REAL F5A24090 07777 0560 00 0 04024 LDQ S5K2 F5A24100 10000 0040 00 0 07760 TLQ X54 F5A24110 10001 0774 00 1 00003 AXT 3,1 YES, SET COUNT TO 3. F5A24120 10002 0340 00 1 04157 X225 CAS EX1+3,1 IS CONTENTS SAME AS EXIT CONDITIONS F5A24130 10003 0020 00 0 10005 TRA X224 F5A24140 10004 0020 00 0 10471 TRA X225A YES (32)F5A24150 10005 2 00001 1 10002 X224 TIX X225,1,1 COUNT TO 3 F5A24160 BINARY CARD NO. 9F260097 10006 0020 00 0 07760 TRA X54 F5A24170 10007 0500 00 0 04020 X226 CLA LK1 REPLACE IR BY E F5A24180 10010 0601 00 1 04105 STO IR1+3,1 (32)F5A24190 10011 0020 00 0 07760 TRA X54 F5A24200 10012 0560 00 2 04157 X131 LDQ EX1+3,2 IS THE EXIT F5A24210 10013 0500 00 0 04024 CLA S5K2 CONDITION REAL FOR THIS IR F5A24220 10014 0040 00 0 10020 TLQ X132 F5A24230 10015 -0534 00 1 04164 X133 LXD SBV4,1 NO F5A24240 10016 0074 00 4 05315 TSX SC,4 RECORD PART OF LPLST ACTIVE F5A24250 10017 0020 00 0 07746 TRA X135 F5A24260 10020 0500 00 2 04162 X132 CLA ACT1+3,2 IS THIS IR ACTIVE F5A24270 10021 0120 00 0 07746 TPL X135 AT EXIT OF REGION F5A24280 10022 0020 00 0 10015 TRA X133 YES F5A24290 10023 0500 00 0 04212 X88 CLA LPIND F5A24300 10024 0120 00 0 10051 TPL XY3 IS THIS A LOOP F5A24310 10025 0500 00 0 10563 CLA LPLST-1 YES F5A24320 10026 0340 00 0 04011 CAS S3K2 IS LAST LPLST QUANTITY A BB F5A24330 10027 0761 00 0 00000 NOP NO F5A24340 10030 0020 00 0 10032 TRA X125 F5A24350 10031 0771 00 0 00022 ARS 18 YES F5A24360 10032 0621 00 0 04163 X125 STA SBV3 STORE PRED. NO. F5A24370 10033 0500 00 0 10564 CLA LPLST F5A24380 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 93 SECTION 5, PART ONE BINARY CARD NO. 9F260098 10034 0074 00 4 03745 TSX SE,4 GET INDEX OF 1ST BB IN LOOP. F5A24390 10035 -0634 00 1 04236 SXD XV8,1 STORE INDEX OF 1ST BB F5A24400 10036 0500 00 1 40004 CLA BBB,1 F5A24410 10037 0602 00 0 04246 X91 SLW XV16 STORE PRED. NO. F5A24420 10040 0074 00 4 03741 TSX SE5,4 GET INDEX OF PRED. F5A24430 10041 0500 00 1 56774 CLA PRED,1 IS F5A24440 10042 -0320 00 0 03764 ANA SBK2 THIS THE F5A24450 10043 0340 00 0 04163 CAS SBV3 RIGHT PRED F5A24460 10044 0020 00 0 10046 TRA X90 F5A24470 10045 0020 00 0 10100 TRA X92 YES F5A24480 10046 0500 00 0 04246 X90 CLA XV16 F5A24490 10047 0400 00 0 04002 ADD ONEA F5A24500 10050 0020 00 0 10037 TRA X91 F5A24510 10051 0774 00 1 00003 XY3 AXT 3,1 F5A24520 10052 0074 00 4 05315 XY4 TSX SC,4 F5A24530 10053 2 00001 1 10052 TIX XY4,1,1 F5A24540 10054 0020 00 0 07114 TRA X89 F5A24550 10055 -0634 00 1 10077 X97 SXD X137,1 F5A24560 10056 0340 00 1 04105 CAS IR1+3,1 IS CONTENTS OF IRN EQUAL TO CONTENTS OF EF5A24570 10057 0020 00 0 10061 TRA X98 F5A24580 10060 0020 00 0 10126 TRA X93 YES F5A24590 10061 -0500 00 0 04025 X98 CAL S5K3 RECORD LX FOR F5A24600 BINARY CARD NO. 9F260099 10062 0771 00 1 00003 ARS 3,1 THIS IR IN THIS F5A24610 10063 -0534 00 1 04227 LXD XV1,1 REGION. F5A24620 10064 -0602 00 1 12463 ORS REG,1 F5A24630 10065 -0634 00 4 04244 SXD XV14,4 GET F5A24640 10066 -0634 00 2 04245 SXD XV15,2 INDEX F5A24650 10067 0500 00 0 04246 CLA XV16 OF F5A24660 10070 0074 00 4 03741 TSX SE5,4 PRED. F5A24670 10071 -0534 00 4 04244 LXD XV14,4 F5A24680 10072 -0534 00 2 04245 LXD XV15,2 F5A24690 10073 -0500 00 0 04056 CAL XK16 RECORD F5A24700 10074 0771 00 4 00003 ARS 3,4 LX F5A24710 10075 -0602 00 1 56774 ORS PRED,1 NECESSARY. F5A24720 10076 -0534 00 1 10077 LXD X137,1 F5A24730 10077 1 00000 0 10117 X137 TXI X96,0,- F5A24740 10100 -0534 00 2 04236 X92 LXD XV8,2 F5A24750 10101 0774 00 4 00003 AXT 3,4 SET COUNT TO 3. F5A24760 10102 0500 00 2 40005 CLA BBB+1,2 GET THE WORD WITH F5A24770 10103 0601 00 0 04237 STO XV9 PERM. NOS. F5A24780 10104 -0500 00 0 04237 X95 CAL XV9 GET F5A24790 10105 0771 00 4 00003 ARS 3,4 INDEX F5A24800 10106 0771 00 4 00003 ARS 3,4 OF F5A24810 10107 -0320 00 0 04034 ANA S9K3 THE F5A24820 BINARY CARD NO. 9F260100 10110 -0734 00 1 00000 PDX 0,1 I.R. F5A24830 10111 -0500 00 2 40006 CAL BBB+2,2 GET ENTRANCE F5A24840 10112 0771 00 0 00022 ARS 18 REQUIREMENT. F5A24850 10113 0340 00 0 04024 CAS S5K2 IS ENM REAL F5A24860 10114 0761 00 0 00000 NOP F5A24870 10115 0020 00 0 10117 TRA X96 NO F5A24880 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 94 SECTION 5, PART ONE 10116 0020 00 0 10055 TRA X97 YES F5A24890 10117 0500 00 1 04223 X96 CLA AC1+3,1 IS IRN F5A24900 10120 0100 00 0 10126 TZE X93 ACTIVE F5A24910 10121 -0634 00 2 04244 SXD XV14,2 YES, F5A24920 10122 -0634 00 4 04245 SXD XV15,4 F5A24930 10123 0074 00 4 05222 TSX SB,4 RECORD SXD NECESSARY. F5A24940 10124 -0534 00 2 04244 LXD XV14,2 F5A24950 10125 -0534 00 4 04245 LXD XV15,4 F5A24960 10126 1 77777 2 10127 X93 TXI X93+1,2,-1 F5A24970 10127 2 00001 4 10104 X94 TIX X95,4,1 COUNT TO 3 F5A24980 ACTIVE PASS F5A24990 FOLLOWS 2 ED LXING PASS. F5A25000 10130 0560 00 0 04012 LDQ S3K3 INITIALIZE THE F5A25010 10131 -0600 00 0 04115 STQ S3V4 LOOP LIST F5A25020 10132 0560 00 0 04025 LDQ S5K3 AND F5A25030 10133 -0600 00 0 04114 STQ S3V3 MAKE SURE TAG F5A25040 10134 -0600 00 0 04167 STQ ACIND SET IND. TO SAY THIS IS ACTIVE PASS F5A25050 10135 -0634 00 0 04113 SXD S3V2,0 LOCATION GETS SET F5A25060 BINARY CARD NO. 9F260101 10136 0500 00 0 04001 A3 CLA ZERO IS THERE ANY ACTIVE IR LEFT F5A25070 10137 0401 00 0 04220 ADM AC1 F5A25080 10140 0401 00 0 04221 ADM AC2 F5A25090 10141 0401 00 0 04222 ADM AC3 F5A25100 10142 0100 00 0 07114 TZE X89 NO, GO TO RENUMBER. F5A25110 10143 0074 00 4 04465 TSX S3,4 YES. TRY TO GET NEXT TAG. F5A25120 10144 0020 00 0 10277 TRA A12 COME HERE IF TAG NOT GOT F5A25130 10145 0500 00 0 04564 CLA S39 COMPUTE LOCATION OF THIS F5A25140 10146 -0320 00 0 03764 ANA SBK2 TAG=(ADDR. FOLLOWING F5A25150 10147 0400 00 0 04125 ADD S4V1 TIX BLOCK + L(CM)-CM TAG F5A25160 10150 0402 00 0 04017 SUB S4K3 - INDEX OF TAG.) F5A25170 10151 0767 00 0 00022 ALS 18 F5A25180 10152 -0400 00 0 04113 SBM S3V2 F5A25190 10153 0765 00 0 00065 LRS 53 F5A25200 10154 -0600 00 0 04233 STQ XV5 F5A25210 10155 0221 00 0 04052 DVP XK9 FORM LOC/9 AND F5A25220 10156 -0600 00 0 04231 STQ XV3 REMAINDER F5A25230 10157 0601 00 0 04232 STO XV4 F5A25240 10160 0500 00 0 04117 CLA TPE IS THIS F5A25250 10161 0340 00 0 04007 CAS S2K2 AN LX F5A25260 10162 0020 00 0 10164 TRA A1 F5A25270 10163 0020 00 0 10223 TRA A5 YES F5A25280 BINARY CARD NO. 9F260102 10164 0340 00 0 04055 A1 CAS XK15 IS IT AN LX PRIME F5A25290 10165 0020 00 0 10167 TRA A20 F5A25300 10166 0020 00 0 10247 TRA A8 YES F5A25310 10167 0340 00 0 04062 A20 CAS XK21 IS IT A DED F5A25320 10170 0020 00 0 10172 TRA A21 F5A25330 10171 0020 00 0 10247 TRA A8 YES. F5A25340 10172 0340 00 0 04054 A21 CAS XK12 IS IT AN ACTIVE INSTR. F5A25350 10173 0020 00 0 10175 TRA A2 F5A25360 10174 0020 00 0 10223 TRA A5 YES. F5A25370 10175 0500 00 0 04231 A2 CLA XV3 GET INDEX F5A25380 10176 0074 00 4 03741 TSX SE4,4 OF STAG ENTRY. F5A25390 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 95 SECTION 5, PART ONE 10177 0534 00 2 04232 LXA XV4,2 IS THERE F5A25400 10200 -0500 00 1 12463 CAL STAG,1 AN LX F5A25410 10201 0771 00 2 00010 ARS 8,2 IN FRONT F5A25420 10202 -0320 00 0 04053 ANA XK11 OF F5A25430 10203 0340 00 0 04053 CAS XK11 THIS INSTR. F5A25440 10204 0020 00 0 10136 TRA A3 F5A25450 10205 0020 00 0 10207 TRA A4 YES. F5A25460 10206 0020 00 0 10136 TRA A3 F5A25470 10207 -0500 00 0 04232 A4 CAL XV4 GET F5A25480 10210 0760 00 0 00006 COM THE F5A25490 10211 0734 00 2 00000 PAX 0,2 S-TAG F5A25500 BINARY CARD NO. 9F260103 10212 -0500 00 1 12463 CAL STAG,1 IN F5A25510 10213 0767 00 2 00000 ALS 0,2 DECR. F5A25520 10214 0767 00 2 00000 ALS 0,2 PART. F5A25530 10215 -0320 00 0 04034 ANA S9K3 F5A25540 10216 -0734 00 1 00000 PDX 0,1 F5A25550 10217 0500 00 1 04223 CLA AC1+3,1 IS THE CORRESPONDING F5A25560 10220 0100 00 0 10136 TZE A3 I.R. ACTIVE F5A25570 10221 0074 00 4 05222 TSX SB,4 YES,RECORD SXD NECESSARY F5A25580 10222 0020 00 0 10136 TRA A3 F5A25590 10223 0500 00 0 04231 A5 CLA XV3 F5A25600 10224 0074 00 4 03741 TSX SE4,4 GET STAG INDEX. F5A25610 10225 -0500 00 0 04232 CAL XV4 F5A25620 10226 0760 00 0 00006 COM IS IT F5A25630 10227 0734 00 2 00000 PAX 0,2 TO F5A25640 10230 -0500 00 1 12463 CAL STAG,1 AN F5A25650 10231 0767 00 2 00000 ALS 0,2 F5A25660 10232 0767 00 2 00000 ALS 0,2 ACTIVE F5A25670 10233 -0320 00 0 04034 ANA S9K3 F5A25680 10234 -0734 00 1 00000 PDX 0,1 IR F5A25690 10235 0500 00 1 04223 CLA AC1+3,1 F5A25700 10236 0100 00 0 10136 TZE A3 F5A25710 10237 0500 00 1 04105 A51 CLA IR1+3,1 IS IT F5A25720 BINARY CARD NO. 9F260104 10240 0340 00 0 04116 CAS 1TAG SAME TAU-TAG F5A25730 10241 0020 00 0 10243 TRA A6 F5A25740 10242 0020 00 0 10245 TRA A7 YES F5A25750 10243 0074 00 4 05222 A6 TSX SB,4 RECORD SXD NEEDED. F5A25760 10244 0020 00 0 10136 TRA A3 F5A25770 10245 0074 00 4 05315 A7 TSX SC,4 RECORD CERTAIN PART OF F5A25780 10246 0020 00 0 10136 TRA A3 LOOP LIST ACTIVE. F5A25790 10247 0500 00 0 04231 A8 CLA XV3 GET F5A25800 10250 0074 00 4 03741 TSX SE4,4 THE F5A25810 10251 -0500 00 0 04232 CAL XV4 F5A25820 10252 0760 00 0 00006 COM S-TAG F5A25830 10253 0734 00 2 00000 PAX 0,2 OF F5A25840 10254 -0500 00 1 12463 CAL STAG,1 F5A25850 10255 0601 00 0 04101 STO S1V6 F5A25860 10256 0767 00 2 00000 ALS 0,2 THIS F5A25870 10257 0767 00 2 00000 ALS 0,2 INSTR. F5A25880 10260 -0320 00 0 04034 ANA S9K3 F5A25890 10261 -0734 00 1 00000 PDX 0,1 F5A25900 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 96 SECTION 5, PART ONE 10262 0100 00 0 10136 TZE A3 DOES THIS INSTR HAVE AN S-TAG F5A25910 10263 0500 00 1 04223 CLA AC1+3,1 YES. F5A25920 10264 0100 00 0 10136 TZE A3 IS THIS IR ACTIVE F5A25930 10265 0500 00 0 04001 CLA ZERO F5A25940 BINARY CARD NO. 9F260105 10266 -0754 00 2 00000 PXD 0,2 F5A25950 10267 0760 00 0 00006 COM 0 F5A25960 10270 -0734 00 4 00000 PDX 0,4 F5A25970 10271 0500 00 0 04101 CLA S1V6 F5A25980 10272 0771 00 4 00010 ARS 8,4 F5A25990 10273 -0320 00 0 04003 ANA ONED F5A26000 10274 -0100 00 0 10237 TNZ A51 F5A26010 10275 0074 00 4 05315 TSX SC,4 YES,RECORD SECTION OF LPLST ACTIVE F5A26020 10276 0020 00 0 10136 TRA A3 F5A26030 10277 -0534 00 1 04115 A12 LXD S3V4,1 GET INDEX OF LPLST QUANTITY F5A26040 10300 0500 00 1 11204 CLA LPLST+S3P1-2,1 GET PREVIOUS LPLST QUANTITY F5A26050 10301 0601 00 0 04251 STO XV19 F5A26060 10302 0560 00 0 04011 LDQ S3K2 WAS IT A BB F5A26070 10303 0040 00 0 10316 TLQ A28 NO F5A26080 10304 0074 00 4 03745 A25 TSX SE,4 YES, WAS THAT F5A26090 10305 0500 00 1 40004 CLA BBB,1 BB TERMINATED F5A26100 10306 0771 00 0 00041 ARS 33 BY A F5A26110 10307 0400 00 0 04002 ADD ONEA GO TO N F5A26120 10310 -0100 00 0 10316 TNZ A28 F5A26130 10311 0774 00 1 00003 AXT 3,1 YES F5A26140 10312 0500 00 1 04223 A26 CLA AC1+3,1 IS THIS F5A26150 10313 0100 00 0 10315 TZE A27 IR ACTIVE F5A26160 BINARY CARD NO. 9F260106 10314 0074 00 4 05222 TSX SB,4 YES, RECORD SXD NECESSARY F5A26170 10315 2 00001 1 10312 A27 TIX A26,1,1 F5A26180 10316 0500 00 0 04121 A28 CLA S3V5 F5A26190 10317 0560 00 0 04011 LDQ S3K2 IS THIS F5A26200 10320 0040 00 0 10333 TLQ A35 ATR. REGION F5A26210 10321 -0320 00 0 04023 ANA S5K1 NO, BB F5A26220 10322 0100 00 0 10136 TZE A3 F5A26230 10323 0767 00 0 00003 ALS 3 F5A26240 10324 -0734 00 1 00000 PDX 0,1 F5A26250 10325 -3 00002 1 10327 TXL AP1,1,2 F5A26260 10326 1 77777 1 10327 TXI AP1,1,-1 F5A26270 10327 0500 00 1 04223 AP1 CLA AC1+3,1 IS THIS IR ACTIVE F5A26280 10330 0100 00 0 10136 TZE A3 NO F5A26290 10331 0074 00 4 05222 TSX SB,4 YES, RECORD SXD NECESSARY F5A26300 10332 0020 00 0 10136 TRA A3 F5A26310 10333 0074 00 4 03745 A35 TSX SE,4 F5A26320 10334 0500 00 1 40011 CLA BBB+5,1 F5A26330 10335 -0734 00 2 00000 PDX 0,2 INDEX OF REGION TO 2 F5A26340 10336 0500 00 2 12463 CLA REG,2 GET REGION F5A26350 10337 0601 00 0 04251 STO XV19 F5A26360 10340 0774 00 1 00003 AXT 3,1 F5A26370 10341 -0500 00 0 04251 A31 CAL XV19 F5A26380 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 97 SECTION 5, PART ONE BINARY CARD NO. 9F260107 10342 0767 00 1 00003 ALS 3,1 F5A26390 10343 -0760 00 0 00001 PBT IS THERE AN LX F5A26400 10344 0020 00 0 10350 TRA A30 FOR THIS IR F5A26410 10345 0500 00 1 04223 CLA AC1+3,1 YES F5A26420 10346 0100 00 0 10350 TZE A30 IS THIS IR ACTIVE F5A26430 10347 0074 00 4 05222 TSX SB,4 YES, RECORD SXD NECESSARY F5A26440 10350 2 00001 1 10341 A30 TIX A31,1,1 F5A26450 10351 0500 00 0 04121 CLA S3V5 F5A26460 10352 0074 00 4 05152 TSX SA,4 GET THE EXIT CONDITIONS F5A26470 10353 0774 00 1 00003 AXT 3,1 F5A26480 10354 0500 00 1 04223 A34 CLA AC1+3,1 F5A26490 10355 0100 00 0 10371 TZE A32 IS THIS IR ACTIVE F5A26500 10356 0500 00 1 04157 CLA EX1+3,1 YES F5A26510 10357 0560 00 0 04024 LDQ S5K2 F5A26520 10360 0040 00 0 10363 TLQ A33 IS THE EXIT CONDITION REAL F5A26530 10361 0500 00 1 04162 CLA ACT1+3,1 YES F5A26540 10362 0120 00 0 10371 TPL A32 IS THE IR ACTIVE AT EXIT F5A26550 10363 -0634 00 1 04252 A33 SXD XV20,1 YES F5A26560 10364 -0534 00 2 04252 LXD XV20,2 F5A26570 10365 0500 00 0 04121 CLA S3V5 F5A26580 10366 0074 00 4 05407 TSX SD,4 RECORD TR. REG. ACTIVE F5A26590 10367 -0534 00 1 04252 LXD XV20,1 F5A26600 BINARY CARD NO. 9F260108 10370 0074 00 4 05315 TSX SC,4 RECORD SECTION OF LPLST ACTIVE F5A26610 10371 2 00001 1 10354 A32 TIX A34,1,1 COUNT TO 3 F5A26620 10372 0020 00 0 10136 TRA A3 F5A26630 10373 0500 00 1 40006 W0 CLA BBB+2,1 DOES THIS IR MATCH THE CORRESPONDING F5A26640 10374 0771 00 0 00022 ARS 18 ENTRANCE REQUIREMENTS FOR THIS BB F5A26650 10375 0402 00 0 04253 SUB XV21 F5A26660 10376 0100 00 0 07545 TZE X42 YES F5A26670 10377 0774 00 1 00003 AXT 3,1 NO F5A26680 10400 -0534 00 4 04243 LXD XV13,4 F5A26690 10401 -0500 00 4 40006 W1 CAL BBB+2,4 (32)F5A26700 10402 0765 00 0 00022 LRS 18 CONDITION OF THIS BB F5A26710 10403 0402 00 0 04253 SUB XV21 F5A26720 10404 0100 00 0 10414 TZE W3 F5A26730 10405 0500 00 0 04001 CLA ZERO F5A26740 10406 0763 00 0 00022 LLS 18 F5A26750 10407 0402 00 0 04253 SUB XV21 F5A26760 10410 0100 00 0 10414 TZE W3 F5A26770 10411 1 77777 4 10412 TXI W2,4,-1 F5A26780 10412 2 00001 1 10401 W2 TIX W1,1,1 F5A26790 10413 -3 00000 0 07544 TXL X36,-,- NO F5A26800 10414 -0634 00 2 10420 W3 SXD W4,2 YES F5A26810 10415 -0534 00 1 10413 LXD W2+1,1 F5A26820 BINARY CARD NO. 9F260109 10416 0074 00 4 05222 TSX SB,4 RECORD SX NECESSARY F5A26830 10417 -0534 00 2 10420 LXD W4,2 F5A26840 10420 -3 00000 0 07544 W4 TXL X36,-,- F5A26850 INITIALIZATION. F5A26860 10421 0760 00 0 00012 I DCT 0 CLEAR DIVIDE CHECK IF ON. F5A26870 10422 0761 00 0 00000 NOP 0 F5A26880 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 98 SECTION 5, PART ONE 10423 0774 00 1 04011 AXT CMTAG-END29,1 CLEAR TO CMTAG. F5A26890 10424 0600 00 1 14574 STZ CMTAG,1 F5A26900 10425 2 00001 1 10424 TIX *-1,1,1 F5A26910 10426 0500 00 0 73575 CLA KEYS+1 F5A26920 10427 0601 00 0 03777 STO SE4J+2 PREDL F5A26930 10430 0601 00 0 04000 STO SE4J+3 SUCCL F5A26940 10431 0500 00 0 73576 CLA KEYS+2 F5A26950 10432 0601 00 0 03776 STO SE4J+1 BBBL F5A26960 10433 0500 00 0 73577 CLA KEYS+3 F5A26970 10434 0601 00 0 03775 STO SE4J F5A26980 10435 0760 00 0 00140 PSE 96 CLEAR SENSE LIGHTS. F5A26990 10436 0500 00 0 73574 CLA KEYS LOAD LAST TAGLIST+1 ENTRY. F5A27000 10437 0402 00 0 04002 SUB ONEA F5A27010 10440 0074 00 4 03746 TSX SE1,4 F5A27020 10441 0500 00 1 40005 I13 CLA BBB+1,1 PICKS UP LAST T-TAG+1. F5A27030 10442 -0320 00 0 04013 ANA S3K4 F5A27040 10443 0601 00 0 04127 STO S4V3 F5A27050 BINARY CARD NO. 9F260110 10444 0765 00 0 00043 LRS 35 COMPUTE LOCATION A TAG F5A27060 10445 0221 00 0 04016 DVP S4K2 WOULD HAVE IF IT F5A27070 10446 -0600 00 0 10470 STQ IV1 WERE FIRST IN NEXT RECORD. F5A27080 10447 0100 00 0 10451 TZE I1 F5A27090 10450 0500 00 0 04002 CLA ONEA F5A27100 10451 0400 00 0 10470 I1 ADD IV1 F5A27110 10452 0765 00 0 00043 LRS 35 F5A27120 10453 0200 00 0 04016 MPY S4K2 F5A27130 10454 0763 00 0 00043 LLS 35 F5A27140 10455 0601 00 0 04126 STO S4V2 F5A27150 10456 0601 00 0 04125 STO S4V1 F5A27160 10457 0074 00 4 04575 TSX S4,4 INITIALIZE CMTAG F5A27170 10460 0500 00 0 73575 CLA KEYS+1 F5A27180 10461 -0100 00 0 05656 TNZ F ARE THERE ANY SUCCS. F5A27190 10462 0601 00 0 04212 STO LPIND NO SUCCS. F5A27200 10463 0601 00 0 10563 STO LPLST-1 F5A27210 10464 0601 00 0 10564 STO LPLST F5A27220 10465 0500 00 0 04010 CLA S3K1 F5A27230 10466 0601 00 0 10565 STO LPLST+1 F5A27240 10467 0020 00 0 06341 TRA F75 F5A27250 10470 0 00000 0 00000 IV1 PZE 0 STORAGE F5A27260 10471 -0534 00 1 04164 X225A LXD SBV4,1 LOAD IRM POINTER (32)F5A27270 BINARY CARD NO. 9F260111 10472 0520 00 1 04223 ZET AC1+3,1 IS IT ACTIVE (32)F5A27271 10473 0074 00 4 05222 TSX SB,4 YES, RECORD SX NECESSARY (32)F5A27272 10474 -0500 00 0 04025 CAL S5K3 INDICATE LX IN CORRESPONDING (32)F5A27273 10475 0771 00 1 00003 ARS 3,1 IR IN REGION IN CASE OTHER (32)F5A27274 10476 -0602 00 0 04230 ORS XV2 SX NEEDED LATER (32)F5A27275 10477 0020 00 0 10007 TRA X226 (32)F5A27276 10500 0500 00 0 04147 S5P CLA S5V2 GET LOOP LIST ENTRY (32)F5A27277 10501 0074 00 4 05152 TSX SA,4 GET EXIT REQUIREMENTS(AND, SUPER- (32)F5A27278 10502 0500 00 0 04025 CLA S5K3 FLUOUSLY, ACTIVE INDICATORS). (32)F5A27279 10503 0020 00 0 04701 TRA S51-1 (32)F5A2727A 10504 0500 00 1 04144 S512P CLA EN4+3,1 HAS ENN BEEN ASSIGNED (32)F5A2727B 10505 0120 00 0 10511 TPL *+4 (32)F5A2727C 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 99 SECTION 5, PART ONE 10506 0500 00 1 04157 CLA EX1+3,1 NO, DOES EXN MATCH (32)F5A2727D 10507 0402 00 2 04105 SUB IR1+3,2 THIS IRM (32)F5A2727E 10510 0100 00 0 04745 TZE S537-2 YES, IRM=ENN (32)F5A2727F 10511 2 00001 1 10504 TIX S512P,1,1 ARE WE THROUGH WITH ENS (32)F5A2727G 10512 0500 00 0 04135 CLA IRC YES, ADD TO UNASSIGNED IRS (32)F5A2727H 10513 0020 00 0 04735 TRA S512+1 (32)F5A2727I 10514 -0534 00 1 04243 X44A LXD XV13,1 GET REGION WORD INTO MQ. (32)F5A2727J 10515 0500 00 1 40011 CLA BBB+5,1 (32)F5A2727K 10516 -0734 00 1 00000 PDX ,1 (32)F5A2727L 10517 0560 00 1 12463 LDQ REG,1 (32)F5A2727M BINARY CARD NO. 9F260112 10520 -0773 00 4 00003 RQL 3,4 IS THERE AN LX FOR THIS IR.. (32)F5A2727N 10521 0162 00 0 07646 TQP X44 NO, GO RECORD ACTIVITY (32)F5A2727O 10522 0020 00 0 10414 TRA W3 YES, GO RECORD SX NECESSARY (32)F5A2727P 10563 EP BES PTL1-31 (32)F5A2727Q 10563 END29 SYN * F5A27280 BINARY CARD NO. TRA77777 77777 TCD -1 $F5A27285 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 100 SECTION 5, PART ONE STORAGE ASSIGNMENT F5A27300 73577 TOP SYN BOTIOP-1 F5A27330 00007 M SYN 7 $F5A27340 00010 N SYN 8 $F5A27350 63010 TBLSP SYN TOP-EP-4 F5A27360 00422 S3P1 EQU TBLSP/95 F5A27370 01255 FP1 EQU S3P1*2+S3P1/2 F5A27380 02110 STL EQU S3P1*4 F5A27390 23210 CMTL EQU STL*9 F5A27400 16770 BBBL EQU S3P1*28 F5A27410 14600 LEFT EQU TBLSP-S3P1*71-S3P1/2-1 F5A27420 TABLES F5A27450 10563 BSS 1 THIS IS LPLST-1 F5A27460 10564 LPLST BSS S3P1 SPACE FOR LOOPLIST TABLE. F5A27470 11206 ELPLT SYN * START OF REGION TABLE. F5A27480 12463 REG BES FP1 SPACE FOR REGION WORDS. F5A27490 12463 STAG BSS STL+1 F5A27500 14574 CMTAG BSS CMTL F5A27510 73574 KEYS SYN TOP-3 F5A27560 F5A27570 F5A27580 THE BASE ADDRESSES AND THE MAXIMUM LENGTHS OF ALL SECTION 4 F5A27590 TABLES ARE LISTED BELOW. F5A27600 HEAD 0 F5A27610 00007 M SYN 5$M F5A27620 00010 N SYN 5$N F5A27630 73577 TOP SYN 5$TOP F5A27640 23210 CMTL SYN 5$CMTL F5A27650 73042 DOCARE SYN TOP-400*M/N+1 F5A27690 73040 CITCNT SYN DOCARE-2 F5A27700 73041 TRAD SYN DOCARE-1 F5A27710 64163 FRET SYN TRAD-4000*M/N-2 F5A27720 60073 TIFGO SYN FRET-1200*M/N*2-4 F5A27730 56323 TIFRD SYN TIFGO-500*M/N*2+2 F5A27740 56323 DOLIST SYN TIFRD F5A27750 54267 BBLIST SYN DOLIST-600*M/N*2-2 F5A27760 51645 DOFRET SYN BBLIST-1484*M/N F5A27770 33361 DOTAG SYN DOFRET-1500*M/N*2-600*M/N*9+1 F5A27780 73574 NLIST SYN TOP-3 F5A27790 73574 KEY1 SYN NLIST F5A27800 73575 KEY2 SYN KEY1+1 F5A27810 73576 KEY3 SYN KEY2+1 F5A27820 73577 KEY4 SYN KEY3+1 F5A27830 73740 SENSLT SYN KEY1+100 F5A27840 71264 FIXDOS SYN TRAD-1000*M/N-2 F5A27850 51645 TRATBL SYN DOFRET F5A27860 35032 BBTABL SYN TRATBL-7474*M/N F5A27870 32407 SET SYN BBTABL-1484*M/N-1 F5A27880 57340 LCNTR SYN DOLIST+600*M/N F5A27890 47223 MIRROR SYN BBLIST-2968*M/N+1 F5A27900 46223 TAG SYN MIRROR-2*TGBFSZ F5A27910 32407 BBTAG SYN SET F5A27920 44264 SPAVL1 SYN DOFRET-FENCE-120 F5A27930 44250 CTSP1 SYN SPAVL1/200*200 F5A27940 00010 ZONSZ SYN 8 F5A27950 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 101 SECTION 5, PART ONE 05335 CTBOT SYN FENCE+100 F5A27960 51605 CTTP1 SYN CTBOT+CTSP1 F5A27970 00000 CITLOC SYN 0 F5A27980 00001 CITOP SYN 1 F5A27990 00002 CITAD SYN 2 F5A28000 00003 CITTAG SYN 3 F5A28010 00003 CITAAA SYN 3 F5A28020 22236 SPAVL2 SYN SET-1600*M/N-FENCE-120 F5A28030 21760 CTSP2 SYN SPAVL2/200*200 F5A28040 27315 CTTP2 SYN CTBOT+CTSP2 F5A28050 00000 INSTLC SYN 0 F5A28060 00001 INSTOP SYN 1 F5A28070 00002 INSTAD SYN 2 F5A28080 00003 INSTAA SYN 3 F5A28090 00000 INLOC SYN 0 F5A28100 00001 INOP SYN 1 F5A28110 00003 INTAG SYN 3 F5A28120 14612 TRAMAX SYN 7474*M/N-1 F5A28130 00257 NMAX SYN 200*M/N F5A28140 02567 SETMAX SYN 1600*M/N-1 F5A28150 01014 LMAX SYN 600*M/N-1 F5A28160 HEAD 5 $F5A28161 40004 BBB MAX *,BBTABL+1 $F5A28162 16770 AJBBL MAX BBBL+BBTABL+1-*,BBBL $F5A28163 40004 BSS AJBBL $F5A28164 14600 ADJL MIN TOP-*-3,LEFT $F5A28165 06300 ADJLF EQU ADJL/2 $F5A28166 56774 PRED BSS ADJLF $F5A28167 65274 SUCC BSS ADJLF $F5A28168 73574 ENTBL SYN * $F5A28169 HEAD 0 $F5A2816A 40004 BBB SYN 5$BBB $F5A2816B 56774 PRED SYN 5$PRED $F5A2816C 65274 SUCC SYN 5$SUCC $F5A2816D 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 102 SECTION 5, PART TWO EDITOR RECORD NO. 27 F5B00010 PART 2 OF 4, SECTION 5 F5B00020 00102 ORG SYSCUR $F5B00030 HEAD 5 F5B00040 BINARY CARD NO. 9F270000 00102 112602070000 BCI 1,9F2700 $F5B00050 73666 ORG (LODR) $F5B00060 BINARY CARD NO. 9F270001 73666 1 00416 0 04006 TXI BL12,,270 F5B00080 F5B00100 PART 2 F5B00110 PERMUTE RESULTS AND COMBINE BB LIST WITH BB TABLE F5B00120 04005 ORG C F5B00130 BINARY CARD NO. 9F270002 04005 0 00000 0 77777 BLV09 PZE -1 BB NO. OF LAST GO TO N F5B00140 04006 0074 00 4 73606 BL12 TSX (TAPE),4 GET OVER EOF. F5B00150 04007 0 20000 0 03763 SK1F,,(SKBP) F5B00160 04010 0 00003 0 03754 BLLBL,,FTAPE3 F5B00170 04011 0074 00 4 73606 BL5 TSX (TAPE),4 F5B00180 04012 0 40010 0 04223 COM1,,(RBNC) F5B00190 04013 0 00003 0 03754 BLLBL,,FTAPE3 F5B00200 04014 0500 00 0 73574 CLA KEYS O.K. COMPUTE TEST CONSTANT F5B00210 04015 0402 00 0 04254 SUB TWO F5B00220 04016 0601 00 0 04236 STO BLV3 F5B00230 04017 0500 00 0 04001 CLA ZERO F5B00240 04020 0074 00 4 03741 TSX SE4,4 STAG WORD F5B00250 04021 0500 00 1 12463 CLA STAG,1 F5B00260 04022 0601 00 0 04252 STO BLV07 F5B00270 04023 0500 00 0 04234 CLA BLV1 F5B00280 04024 0560 00 0 04236 BL3 LDQ BLV3 HAVE WE ALREADY DEALT WITH LAST BB F5B00290 04025 0040 00 0 04214 TLQ BL06 YES , GO TO READ IN NEXT PART F5B00300 04026 0400 00 0 04002 ADD ONEA F5B00310 04027 0074 00 4 03746 TSX SE1,4 GET UNDEX OF NEXT BB F5B00320 04030 0500 00 1 40005 CLA BBB+1,1 STORE THE NO. OF THE F5B00330 04031 -0320 00 0 04224 ANA RMSK FIRST TAG IN F5B00340 04032 0601 00 0 04241 STO BLV6 NEXT BB. F5B00350 BINARY CARD NO. 9F270003 04033 0500 00 1 40004 CLA BBB,1 F5B00360 04034 -0320 00 0 04255 ANA 2AMSK F5B00370 04035 0601 00 0 04240 STO BLV5 STORE AWAY NO. OF U1ST PRED IN NEXT BB. F5B00380 04036 0500 00 0 04234 CLA BLV1 F5B00390 04037 0074 00 4 03746 TSX SE1,4 F5B00400 04040 -0534 00 2 04235 LXD BLV2,2 F5B00410 04041 0500 00 2 04323 CLA BLIST,2 REPLACE LAST WORD OF BBB ENTRY F5B00420 04042 0601 00 1 40011 STO BBB+5,1 BY THE LOCATION FROM THE BB LIST. F5B00430 04043 1 77777 2 04044 BL2 TXI BL2+1,2,-1 F5B00440 04044 -0634 00 2 04235 SXD BLV2,2 F5B00450 04045 0500 00 1 40005 CLA BBB+1,1 STORE PERMUTATION NOS. F5B00460 04046 0601 00 0 04242 STO BLV7 F5B00470 04047 -0634 00 1 04237 SXD BLV4,1 F5B00480 04050 0500 00 1 40005 CLA BBB+1,1 GET NUMBER F5B00490 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 103 SECTION 5, PART TWO 04051 -0320 00 0 04224 ANA RMSK OF 1ST TAG IN BB F5B00500 04052 0402 00 0 04241 SUB BLV6 FORM COUNT OF NO. OF TAGS IN THIS BB F5B00510 04053 0402 00 0 04002 SUB ONEA F5B00520 04054 0734 00 2 00000 PAX 0,2 COUNT OF NO. OF TAGS INTO 2. F5B00530 04055 -0634 00 2 04250 SXD BLV05,2 STORE COUNT OF NO. OF TAGS F5B00540 04056 0500 00 1 40004 CLA BBB,1 GET NO. OF 1ST PRED IN THIS BB F5B00550 04057 -0320 00 0 04255 ANA 2AMSK F5B00560 04060 0601 00 0 04245 BL9 STO BLV01 F5B00570 BINARY CARD NO. 9F270004 04061 0340 00 0 04240 CAS BLV5 IS THIS PRED IN SAME BB F5B00580 04062 0020 00 0 04064 TRA BL7 YES F5B00590 04063 0020 00 0 04113 TRA BL01 NO F5B00600 04064 0074 00 4 03741 BL7 TSX SE5,4 YES, GET INDEX OF PRED F5B00610 04065 -0500 00 0 04225 CAL SALM F5B00620 04066 0602 00 0 04244 SLW BLV9 F5B00630 04067 -0500 00 1 56774 CAL PRED,1 F5B00640 04070 0602 00 0 04243 SLW BLV8 STODRE OLD PRED WORD F5B00650 04071 0320 00 0 04244 ANS BLV9 INT INITIALIZE NEW PRED WORD F5B00660 04072 0774 00 2 00003 AXT 3,2 SET COUNT TO 3. F5B00670 04073 -0500 00 0 04242 BL8 CAL BLV7 PLACE THE F5B00680 04074 0771 00 2 00003 ARS 3,2 PERMUTATION NO. F5B00690 04075 0771 00 2 00003 ARS 3,2 IN REGISTER 4 F5B00700 04076 -0320 00 0 04256 ANA 2LD3 F5B00710 04077 -0737 00 4 00000 PDC 0,4 (32)F5B00720 04100 -0500 00 0 04243 CAL BLV8 PERMUTE F5B00730 04101 0767 00 2 00003 ALS 3,2 THE LXD F5B00740 04102 -0320 00 0 04227 ANA BITMK AND SXD F5B00750 04103 0771 00 4 77777 ARS -1,4 BITS IN THE (32)F5B00760 04104 -0602 00 0 04244 ORS BLV9 PRED ENTRY F5B00770 04105 2 00001 2 04073 TIX BL8,2,1 COUNT TO 3 F5B00780 04106 0500 00 0 04244 CLA BLV9 F5B00790 BINARY CARD NO. 9F270005 04107 0601 00 1 56774 STO PRED,1 STORE PRED ENTRY WITH PERMUTED BITS F5B00800 04110 0500 00 0 04245 CLA BLV01 ARRANGE TO CONSIDER F5B00810 04111 0400 00 0 04002 ADD ONEA NEXT PRED ENTRY F5B00820 04112 0020 00 0 04060 TRA BL9 F5B00830 04113 -0534 00 1 04250 BL01 LXD BLV05,1 F5B00840 04114 -2 00001 1 04157 BL03 TNX BL04,1,1 IS THERE ANOTHER TAG IN BB F5B00850 04115 -0534 00 2 04247 LXD BLV04,2 YES F5B00860 04116 2 00001 2 04141 TIX BL02,2,1 HAVE WE EXHAUSTED STAG WORD F5B00870 04117 -0634 00 1 04250 SXD BLV05,1 YES, STORE COUNT OF NO. OF TAGS F5B00880 04120 -0534 00 2 04253 LXD BLV08,2 STORE F5B00890 04121 0500 00 0 04252 CLA BLV07 OLD PERMUTED F5B00900 04122 0601 00 2 12463 STO STAG,2 STAG WORD F5B00910 04123 0500 00 0 04001 CLA ZERO F5B00920 04124 0601 00 0 04252 STO BLV07 F5B00930 04125 0500 00 0 04246 CLA BLV03 GET F5B00940 04126 0074 00 4 03741 TSX SE4,4 NEXT F5B00950 04127 -0634 00 1 04253 SXD BLV08,1 STAG F5B00960 04130 -0500 00 1 12463 CAL STAG,1 WORD F5B00970 04131 0602 00 0 04251 SLW BLV06 STORE STAG WORD F5B00980 04132 -0320 00 0 04230 ANA LMSK AND F5B00990 04133 0602 00 0 04252 SLW BLV07 INITIALIZE NEW STAG WORD F5B01000 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 104 SECTION 5, PART TWO 04134 0500 00 0 04246 CLA BLV03 INCREASE THE F5B01010 BINARY CARD NO. 9F270006 04135 0400 00 0 04002 ADD ONEA STAG WORD NO. F5B01020 04136 0601 00 0 04246 STO BLV03 F5B01030 04137 0774 00 2 00011 AXT 9,2 RESET COUNT TO 9. F5B01040 04140 -0534 00 1 04250 LXD BLV05,1 RESTORE 1 F5B01050 04141 -0634 00 2 04247 BL02 SXD BLV04,2 STORE COUNTER F5B01060 04142 -0500 00 0 04251 CAL BLV06 F5B01070 04143 0767 00 0 00002 ALS 2 F5B01080 04144 0602 00 0 04251 SLW BLV06 F5B01090 04145 -0320 00 0 04256 ANA 2LD3 EXTRACT TAG. F5B01100 04146 -0734 00 4 00000 PDX 0,4 F5B01110 04147 -0500 00 0 04242 CAL BLV7 PERMUTE F5B01120 04150 0771 00 4 00003 ARS 3,4 F5B01130 04151 0771 00 4 00003 ARS 3,4 THE F5B01140 04152 0020 00 0 04260 TRA PTCHU TAG, AND COMPLEMENT IT. (32)F5B01150 04153 0771 00 2 00012 ARS 10,2 F5B01160 04154 0771 00 2 00012 ARS 10,2 F5B01170 04155 -0602 00 0 04252 ORS BLV07 FORM NEW TAG WORD F5B01180 04156 0020 00 0 04114 TRA BL03 F5B01190 04157 -0534 00 1 04237 BL04 LXD BLV4,1 GET INDEX OF BBB F5B01200 04160 0500 00 1 40004 CLA BBB,1 IS F5B01210 04161 0771 00 0 00041 ARS 33 THIS F5B01220 04162 0400 00 0 04002 ADD ONEA A GO N F5B01230 BINARY CARD NO. 9F270007 04163 -0100 00 0 04171 TNZ BL07 NO F5B01240 04164 0500 00 0 04005 CLA BLV09 YES, STORE BB NO. F5B01250 04165 0767 00 0 00022 ALS 18 OF LAST F5B01260 04166 0622 00 1 40005 STD BBB+1,1 GO N ENCOUNTERED F5B01270 04167 0500 00 0 04234 CLA BLV1 STORE PRESENT F5B01280 04170 0601 00 0 04005 STO BLV09 BB NO. F5B01290 04171 0774 00 2 00003 BL07 AXT 3,2 SET COUNT TO 3. F5B01300 04172 -0500 00 0 04242 BL09 CAL BLV7 F5B01310 04173 0771 00 2 00003 ARS 3,2 F5B01320 04174 0771 00 2 00003 ARS 3,2 GET PERMUTATION NO. F5B01330 04175 -0320 00 0 04256 ANA 2LD3 F5B01340 04176 -0737 00 4 00000 PDC 0,4 (32)F5B01350 04177 0500 00 1 40006 CLA BBB+2,1 PERMUTE F5B01360 04200 0601 00 4 04230 STO EXCO-4,4 EXIT-ENTRANCE REQUIREMENTS (32)F5B01370 04201 1 77777 1 04202 BL08 TXI BL08+1,1,-1 F5B01380 04202 2 00001 2 04172 TIX BL09,2,1 COUNT TO 3 F5B01390 04203 0774 00 2 00003 AXT 3,2 PLACE PERMUTED F5B01400 04204 0500 00 2 04234 BL10 CLA EXCO,2 ENTRANCE-EXIT COND. F5B01410 04205 0601 00 1 40003 STO BBB-1,1 BACK IN BBB F5B01420 04206 1 77777 1 04207 BL11 TXI BL11+1,1,-1 F5B01430 04207 2 00001 2 04204 TIX BL10,2,1 COUNT TO 3 F5B01440 04210 0500 00 0 04234 BL05 CLA BLV1 PREPARE TO DEAL WITH F5B01450 BINARY CARD NO. 9F270008 04211 0400 00 0 04002 ADD ONEA WITH NEXT BB F5B01460 04212 0601 00 0 04234 STO BLV1 F5B01470 04213 0020 00 0 04024 TRA BL3 F5B01480 04214 0074 00 4 03746 BL06 TSX SE1,4 PUT END MARK INTO THE DUMMY BB F5B01490 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 105 SECTION 5, PART TWO 04215 0500 00 0 04226 CLA EN2MK F5B01500 04216 0601 00 1 40011 STO BBB+5,1 F5B01510 04217 0500 00 0 04252 CLA BLV07 STORE F5B01520 04220 -0534 00 2 04253 LXD BLV08,2 F5B01530 04221 0601 00 2 12463 STO STAG,2 STAG WORD F5B01540 04222 0020 00 0 03734 TRA R READ NEXT PART F5B01550 04223 3 02422 0 04323 COM1 IORT BLIST,,1484*M/N F5B01560 04224 0 00000 7 77777 RMSK PZE -1,7 RIGHT HALF MASK. F5B01570 04225 -3 77770 0 77777 SALM MTH -1,0,-8 MASK OUT SXD AND LXD PRED REULTS F5B01580 04226 3 77777 7 77777 EN2MK PTH -1,-1,-1 PUT IN LOCATION OF DUMMEY BB F5B01590 04227 0 00004 4 00000 BITMK PZE 0,4,4 MASK TO EXTRACT ONE SXD AND LXD BIT F5B01600 04230 -3 77777 0 00000 LMSK MTH 0,0,-1 F5B01610 04234 EXCO BES 3 THE ENTRANCE-EXIT CONDITIONS PERMUTED F5B01620 BINARY CARD NO. 9F270009 04234 0 00000 0 00000 BLV1 PZE 0 BBNO. F5B01630 04235 0 00000 0 00000 BLV2 PZE 0 INDEX IN BB LIST F5B01640 04236 0 00000 0 00000 BLV3 PZE 0 TEST CONSTANT F5B01650 04237 0 00000 0 00000 BLV4 PZE 0 INDEX OF BB F5B01660 04240 0 00000 0 00000 BLV5 PZE 0 1ST PRED NO. IN NEXT BB F5B01670 04241 0 00000 0 00000 BLV6 PZE 0 1ST TAG IN NEXT BB F5B01680 04242 0 00000 0 00000 BLV7 PZE 0 PERMUTATION NOS. F5B01690 04243 0 00000 0 00000 BLV8 PZE 0 OLD PRED ENTRY F5B01700 04244 0 00000 0 00000 BLV9 PZE 0 NEW, PERMUTED, PRED ENTRY F5B01710 04245 0 00000 0 00000 BLV01 PZE 0 CURRENT PRED. NO. F5B01720 04246 0 00000 0 00000 BLV03 PZE 0 NO. OF STAG WORD, INITIALLY ZERO F5B01730 04247 0 00000 0 00000 BLV04 PZE 0 COUNTER TO 9, INITIALLY ZERO F5B01740 04250 0 00000 0 00000 BLV05 PZE 0 COUNT OF NO. OF TAGS IN BB F5B01750 04251 0 00000 0 00000 BLV06 PZE 0 STAG WORD F5B01760 04252 0 00000 0 00000 BLV07 PZE 0 NEW, PERMUTED , STAG WORD F5B01770 04253 0 00000 0 00000 BLV08 PZE 0 INDEX OF OLD STAG WORD F5B01780 04254 0 00000 0 00002 TWO PZE 2 F5B01790 04255 0 00000 0 77777 2AMSK PZE -1 F5B01800 04256 0 00003 0 00000 2LD3 PZE 0,0,3 F5B01810 04257 +000004000000 PTCHW OCT 4000000 (32)F5B01820 04260 -0320 00 0 04256 PTCHU ANA 2LD3 ISOLATE TAG (32)F5B01821 04261 0402 00 0 04257 SUB PTCHW TAKE FOURS COMPLEMENT (32)F5B01822 BINARY CARD NO. 9F270010 04262 -0320 00 0 04256 ANA 2LD3 (3,2,1,0 BECOME 1,2,3,0) (32)F5B01823 04263 0020 00 0 04153 TRA BL04-4 (32)F5B01824 04264 BSS PTL2-5 PATCH SPACE (32)F5B01825 BINARY CARD NO. 9F270011 04323 0 00000 0 00000 BLIST PZE 0 F5B01830 04324 END30 SYN * F5B01840 BINARY CARD NO. TRA77777 77777 TCD -1 $F5B01845 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 106 SECTION 5, PART THREE F5C00010 EDITOR RECORD NO. 28 F5C00020 PART 3 OF 4, SECTION 5 F5C00030 00102 ORG SYSCUR $F5C00040 BINARY CARD NO. 9F280000 00102 112602100000 BCI 1,9F2800 $F5C00050 73666 ORG (LODR) $F5C00060 BINARY CARD NO. 9F280001 73666 1 00430 0 04006 TXI RDIN,,280 F5C00080 F5C00100 PART 3 F5C00110 CHANGE LXD AND SXD RESULTS TO BE COMPATIBLE WITH GO TO F5C00120 N RESTRICTION. MODIFY ASSIGN CONSTANT TABLE. F5C00130 C CONTAINS THE BB NO. OF THE GO TO N F5C00140 04006 ORG C+1 F5C00150 BINARY CARD NO. 9F280002 04006 0774 00 2 00005 RDIN AXT 5,2 F5C00160 04007 0074 00 4 73606 AAC2 TSX (TAPE),4 F5C00170 04010 0 40010 0 04215 3CTL1,,(RBNC) F5C00180 04011 0 00002 0 03762 ASCLBL,,FTAPE2 F5C00190 04012 0074 00 4 73606 TSX (TAPE),4 F5C00200 04013 0 20000 0 04221 SK2F,,(SKBP) F5C00210 04014 0 00002 0 03755 ASLBL,,FTAPE2 F5C00220 04015 -0535 00 1 04317 LDC ASCON-1,1 SET ASCON INDEX. F5C00230 04016 -0634 00 1 04204 SXD AC22,1 F5C00240 04017 0500 00 0 04005 CLA C F5C00250 04020 0560 00 0 04227 AC15 LDQ ACK1 GET BB NO. OF 1ST GO TO N F5C00260 04021 0040 00 0 04165 TLQ AC16 WAS THIS THE LAST GO TO N F5C00270 04022 0400 00 0 04002 ADD ONEA NO F5C00280 04023 0074 00 4 03746 TSX SE1,4 F5C00290 04024 -0500 00 1 40004 CAL BBB,1 FIND NO. OF 1ST SUCC IN NEXT BB F5C00300 04025 0771 00 0 00022 ARS 18 F5C00310 04026 0621 00 0 04231 STA ACV3 F5C00320 04027 0500 00 0 04005 CLA C F5C00330 04030 0074 00 4 03746 TSX SE1,4 F5C00340 04031 0600 00 0 04232 STZ ACV4 CLEAR THE COMBINED SXD CASE F5C00350 04032 -0500 00 1 40004 CAL BBB,1 FIND THE NO. OF 1ST SUCC IN THIS BB F5C00360 04033 0771 00 0 00022 ARS 18 F5C00370 BINARY CARD NO. 9F280003 04034 -0320 00 0 04222 ANA AMSK F5C00380 04035 0601 00 0 04230 AC13 STO ACV2 F5C00390 04036 0340 00 0 04231 CAS ACV3 IS THIS SUCC IN SAME BB F5C00400 04037 0020 00 0 04041 TRA AAC3 YES F5C00410 04040 0020 00 0 04153 TRA AC14 NO F5C00420 04041 0767 00 0 00022 AAC3 ALS 18 F5C00430 04042 0074 00 4 03740 TSX SE6,4 YES GET BB NO. OF SUCESSOR F5C00440 04043 -0500 00 1 65274 CAL SUCC,1 F5C00450 04044 0621 00 0 04236 STA ACV8 F5C00460 04045 0400 00 0 04002 ADD ONEA FIN NO. OF 1ST PRED ENTRY NEXT BBB F5C00470 04046 0074 00 4 03746 TSX SE1,4 F5C00480 04047 0500 00 1 40004 CLA BBB,1 F5C00490 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 107 SECTION 5, PART THREE 04050 0621 00 0 04234 STA ACV6 F5C00500 04051 0600 00 0 04240 STZ ACV10 PRESET COMBINED LXD CASE TO 0 F5C00510 04052 0500 00 0 04236 CLA ACV8 FIND NO. OF 1ST PRED IN THIS BB F5C00520 04053 0074 00 4 03746 TSX SE1,4 F5C00530 04054 -0500 00 1 40004 CAL BBB,1 F5C00540 04055 -0320 00 0 04222 ANA AMSK F5C00550 04056 0621 00 0 04237 STA ACV9 RECORD 1ST PRED FOR FUTURE USE F5C00560 04057 0621 00 0 04235 AC7 STA ACV7 F5C00570 04060 0340 00 0 04234 CAS ACV6 IS THIS PRED IN SAME BB F5C00580 04061 0020 00 0 04063 TRA AC4 F5C00590 BINARY CARD NO. 9F280004 04062 0020 00 0 04111 TRA AC8 NO F5C00600 04063 0074 00 4 03741 AC4 TSX SE5,4 IS THIS THE TRANSFER FROM CURRENTLY CONSIF5C00610 04064 -0500 00 1 56774 CAL PRED,1 ED GO TO NP F5C00620 04065 -0320 00 0 04222 ANA AMSK F5C00630 04066 0402 00 0 04005 SUB C F5C00640 04067 -0100 00 0 04074 TNZ AC5 IF NOT SKIP THE ORING OF SXD CASE F5C00650 04070 -0500 00 1 56774 CAL PRED,1 OR THE SXD CASE INTO COMBINED SXD CASE F5C00660 04071 -0602 00 0 04232 ORS ACV4 F5C00670 04072 -0500 00 0 04224 CAL NTMSK F5C00680 04073 0320 00 1 56774 ANS PRED,1 F5C00690 04074 -0500 00 1 56774 AC5 CAL PRED,1 IS THE BB WHICH IS PREDECESSOR F5C00700 04075 0634 00 1 04103 SXA AC51,1 A GO TO N. F5C00710 04076 0074 00 4 03746 TSX SE1,4 F5C00720 04077 0500 00 1 40004 CLA BBB,1 F5C00730 04100 0771 00 0 00041 ARS 33 F5C00740 04101 0400 00 0 04002 ADD ONEA F5C00750 04102 -0100 00 0 04106 TNZ AC6 F5C00760 04103 0774 00 2 00000 AC51 AXT SET,2 YES, OR THE LXD X CASE INTO THE F5C00770 04104 -0500 00 2 56774 CAL PRED,2 COMBINED LXD CASE F5C00780 04105 -0602 00 0 04240 ORS ACV10 F5C00790 04106 0500 00 0 04235 AC6 CLA ACV7 F5C00800 04107 0400 00 0 04002 ADD ONEA F5C00810 BINARY CARD NO. 9F280005 04110 0020 00 0 04057 TRA AC7 F5C00820 04111 -0500 00 0 04240 AC8 CAL ACV10 IS THE COMBINED LXD CASE ZERO F5C00830 04112 -0320 00 0 04223 ANA TMSK F5C00840 04113 0100 00 0 04150 TZE AC12 F5C00850 04114 0500 00 0 04236 CLA ACV8 NO, HAS THIS BB ALREADY BEEN F5C00860 04115 0074 00 4 03746 TSX SE1,4 CONSIDERED F5C00870 04116 0560 00 1 40004 LDQ BBB,1 AS A SUCCESSOR TO F5C00880 04117 -0773 00 0 00024 RQL 20 A GO TO N F5C00890 04120 0162 00 0 04122 TQP AC18 F5C00900 04121 0020 00 0 04150 TRA AC12 F5C00910 04122 0500 00 0 04226 AC18 CLA LT1 F5C00920 04123 -0602 00 1 40004 ORS BBB,1 RECORD THAT THIS BB HAS BEEN CONSIDERED AF5C00930 04124 0500 00 0 04237 CLA ACV9 ECT..PE PREPARE TO SCAN ALL PRED ENTRYS F5C00940 04125 0621 00 0 04235 AC11 STA ACV7 F5C00950 04126 0340 00 0 04234 CAS ACV6 IS THIS PRED IN SAME BB F5C00960 04127 0020 00 0 04131 TRA AC9 F5C00970 04130 0020 00 0 04174 TRA AC19 NO F5C00980 04131 0074 00 4 03741 AC9 TSX SE5,4 DETERMINE IF THE BB WHICH F5C00990 04132 0634 00 1 04103 SXA AC51,1 IS THE PREDECESSOR OF THIS ONE F5C01000 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 108 SECTION 5, PART THREE 04133 0500 00 1 56774 CLA PRED,1 IS A GO TO N F5C01010 04134 0074 00 4 03746 TSX SE1,4 F5C01020 04135 0500 00 1 40004 CLA BBB,1 F5C01030 BINARY CARD NO. 9F280006 04136 0771 00 0 00041 ARS 33 F5C01040 04137 0400 00 0 04002 ADD ONEA F5C01050 04140 -0100 00 0 04145 TNZ AC10 F5C01060 04141 0534 00 2 04103 AC91 LXA AC51,2 IT IS A GO TO N. F5C01070 04142 0500 00 0 04240 CLA ACV10 REPLACE LXD CASE BY THE F5C01080 04143 -0320 00 0 04223 ANA TMSK COMBINED LXD CASE F5C01090 04144 -0602 00 2 56774 ORS PRED,2 F5C01100 04145 0500 00 0 04235 AC10 CLA ACV7 ARRANGE TO TREAT NEXT PRED ENTRY F5C01110 04146 0400 00 0 04002 ADD ONEA F5C01120 04147 0020 00 0 04125 TRA AC11 F5C01130 04150 0500 00 0 04230 AC12 CLA ACV2 F5C01140 04151 0400 00 0 04002 ADD ONEA ARRANGE TO TREAT NEXT SUCC ENTRY F5C01150 04152 0020 00 0 04035 TRA AC13 F5C01160 04153 0500 00 0 04005 AC14 CLA C STORE COMBINED F5C01170 04154 0074 00 4 03746 TSX SE1,4 SXDCASE IN PREFIX F5C01180 04155 0500 00 0 04232 CLA ACV4 OF 2ED WORD OF BBB ENTRY F5C01190 04156 0767 00 0 00017 ALS 15 F5C01200 04157 0630 00 1 40005 STP BBB+1,1 F5C01210 04160 0500 00 1 40005 CLA BBB+1,1 GET NEXT GO TO N NUMBER F5C01220 04161 0771 00 0 00022 ARS 18 F5C01230 04162 -0320 00 0 04222 ANA AMSK F5C01240 04163 0601 00 0 04005 STO C F5C01250 BINARY CARD NO. 9F280007 04164 0020 00 0 04020 TRA AC15 F5C01260 04165 0500 00 0 04317 AC16 CLA ASCON-1 PICK UP ASCON LENGTH. F5C01270 04166 0400 00 0 04242 ADD ACV12 F5C01280 04167 0622 00 0 04217 STD 3CTL2 STORE ASCON LENGTH IN WORD COUNT. F5C01290 04170 0074 00 4 73606 TSX (TAPE),4 F5C01300 04171 0 40011 0 04217 3CTL2,,(WBNC) F5C01310 04172 0 00002 0 03755 ASLBL,,FTAPE2 F5C01320 04173 0020 00 0 03734 TRA R GO TO NEXT PART F5C01330 04174 0500 00 0 04236 AC19 CLA ACV8 F5C01340 04175 0074 00 4 03746 TSX SE1,4 F5C01350 04176 0774 00 2 00000 AXT 0,2 F5C01360 04177 0500 00 1 40011 AC25 CLA BBB+5,1 F5C01370 04200 0340 00 2 04320 AC23 CAS ASCON,2 IS THIS ASSIGN CONST. EQUAL TO THE F5C01380 04201 0020 00 0 04203 TRA AC20 LOCATION OF 1ST INST IN BB F5C01390 04202 0020 00 0 04206 TRA AC24 YES F5C01400 04203 -3 00000 2 04205 AC20 TXL AC21,2,0 F5C01410 04204 -3 00000 2 04150 AC22 TXL AC12,2,SET COMPLIMENT OF NUMBER OF ENTRIES IN DECR. F5C01420 04205 1 77777 2 04200 AC21 TXI AC23,2,-1 F5C01430 04206 -0500 00 0 04240 AC24 CAL ACV10 REPLACE ASSIGN CONST. BY NEW F5C01440 04207 -0320 00 0 04223 ANA TMSK LOCATION SYMBOL F5C01450 04210 0771 00 0 00004 ARS 4 ALLOW 11 BITS FOR BBNO (32)F5C01460 04211 0400 00 0 04236 ADD ACV8 F5C01470 BINARY CARD NO. 9F280008 04212 0361 00 0 04225 ACL LXDC F5C01480 04213 0602 00 2 04320 SLW ASCON,2 F5C01490 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 109 SECTION 5, PART THREE 04214 0020 00 0 04177 TRA AC25 F5C01500 04215 3 01441 0 04317 3CTL1 IORT ASCON-1,,801 F5C01510 04216 3 01440 0 04320 IORT ASCON,,800 F5C01520 04217 -1 00000 0 04317 3CTL2 IOCT ASCON-1,,SET $F5C01530 04220 -1 00000 0 04320 3CTL3 IOCT ASCON,,SET $F5C01540 04221 0 00002 0 00000 SK2F PZE ,,2 F5C01550 04222 0 00000 0 77777 AMSK PZE -1 F5C01560 04223 0 00000 7 00000 TMSK PZE 0,7 F5C01570 04224 -3 77770 7 77777 NTMSK MTH -1,7,-8 F5C01580 04225 1 50000 0 00000 LXDC PON 0,0,5*4096 THE NUMBER IDENTIFYING THE LOC. OF AN LXDF5C01590 04226 0 00000 1 00000 LT1 PZE 0,1 F5C01600 04227 0 00000 0 77776 ACK1 PZE -2 F5C01610 04230 0 00000 0 00000 ACV2 PZE 0 NO. OF CURRENT SUCC. OF THIS BB IN ADDR.F5C01620 04231 0 00000 0 00000 ACV3 PZE 0 NO. OF 1ST SUCC IN NEXT BB IN ADDR F5C01630 04232 0 00000 0 00000 ACV4 PZE 0 COMBINED SXD CASE LAST OCTAL DIGIT IN DEF5C01640 04233 0 00000 0 00000 ACV5 PZE 0 NO. OF CURRENT PRED IN ADDR F5C01650 04234 0 00000 0 00000 ACV6 PZE 0 NO. OF 1ST PRED IN NEXT BB IN ADDR F5C01660 04235 0 00000 0 00000 ACV7 PZE 0 MO. OF CURRENT PRED IN THIS BB IN ADDR F5C01670 04236 0 00000 0 00000 ACV8 PZE 0 BB NO. OF SUCCESSOR IN ADDR F5C01680 04237 0 00000 0 00000 ACV9 PZE 0 NO. OF 1ST PRED IN SUCC BB(IN ADDRESS). F5C01690 BINARY CARD NO. 9F280009 04240 0 00000 0 00000 ACV10 PZE 0 THE COMBINED LXD CASE F5C01700 04241 0 00000 0 00000 ACV11 PZE 0 TEMP. STORE FOR PRED TABLE INDEX AT AC5F5C01710 04242 0 00001 0 00000 ACV12 PZE ,,1 WORD FOR ADJUSTING ASCON LENGTH. F5C01720 04243 0 00000 0 00000 ACV13 PZE 0 TEMP. STORE FOR LOCATION OF 1ST INST. IN F5C01730 04320 ASCON BES PTL3-2 SPACE FOR PATCHES F5C01740 04320 END31 SYN * F5C01750 BINARY CARD NO. TRA77777 77777 TCD -1 $F5C01751 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 110 SECTION 5, PART FOUR F5D00010 EDITOR RECORD NO. 29 F5D00020 PART 4 OF 4, SECTION 5 F5D00030 00102 ORG SYSCUR $F5D00040 BINARY CARD NO. 9F290000 00102 112602110000 BCI 1,9F2900 $F5D00050 73666 ORG (LODR) $F5D00060 BINARY CARD NO. 9F290001 73666 1 00442 0 07473 TXI PASS2,,290 F5D00080 F5D00100 PART 4 F5D00110 COMPILE INSTRUCTIONS FROM PREVIOUS RESULTS F5D00120 CONSTANTS F5D00130 04005 ORG C F5D00140 BINARY CARD NO. 9F290002 04005 0 00000 0 00003 L3 PZE 3 F5D00150 04006 0 00000 0 00004 L4 PZE 4 F5D00160 04007 0 00000 0 00007 L7 PZE 7 F5D00170 04003 LD1 SYN ONED F5D00180 04010 0 00002 0 00000 LD2 PZE 0,0,2 F5D00190 04011 0 00003 0 00000 LD3 PZE 0,0,3 F5D00200 04012 0 00007 0 00000 LD7 PZE 0,0,7 F5D00210 04013 0 00010 0 00000 LD8 PZE 0,0,8 F5D00220 04014 0 00000 7 00000 LT7 PZE 0,7 F5D00230 04015 0 77777 0 00000 DECMK PZE 0,0,-1 DECREMENT MASK. F5D00240 04016 3 77777 7 77777 ENDMK PTH -1,-1,-1 F5D00250 04017 0 00000 0 77777 ADDMK PZE -1 F5D00260 04020 0 00000 7 77770 STMSK PZE -8,7 F5D00270 04021 0 00007 7 00000 PRMK PZE 0,7,7 MASK FOR PRED RESULTS F5D00280 04022 0 00000 7 77777 TAGMK PZE -1,-1 MASK FOR TAU- TAGS F5D00290 04023 -3 77777 0 00000 LFMSK MTH 0,0,-1 F5D00300 04024 634743000000 LTPL BCI 1,TPL000 F5D00310 04025 436747000000 LLXP BCI 1,LXP000 F5D00320 04026 627045000000 LSYN BCI 1,SYN000 F5D00330 04027 242524000000 LDED BCI 1,DED000 F5D00340 04030 635121000000 LTRA BCI 1,TRA000 F5D00350 04031 636267000000 LTSX BCI 1,TSX000 F5D00360 04032 626724000000 LSXD BCI 1,SXD000 F5D00370 BINARY CARD NO. 9F290003 04033 626721000000 LSXA BCI 1,SXA000 F5D00380 04034 216763000000 LAXT BCI 1,AXT000 F5D00390 04035 436724000000 LLXD BCI 1,LXD000 F5D00400 04036 255064000000 LEQU BCI 1,EQU000 F5D00410 04037 226262000000 LBSS BCI 1,BSS000 F5D00420 04040 +076225000000 LPSE OCT 76225000000 F5D00430 04041 0 60000 0 00000 GSYM PZE 0,0,6*4096 GARBAGE SYMBOL F5D00440 04042 0 00004 0 00004 T4SYM PZE 4,0,4 TAG 4 AND RELATIVE PART 4 F5D00450 04043 0 00000 0 00004 PZE 4 4 NUMBERS TO CONVERT S-TAG F5D00460 04044 0 00000 0 00002 PZE 2 F5D00470 04045 0 00000 0 00001 PZE 1 F5D00480 04046 0 00000 0 00000 VSTAG PZE 0 F5D00490 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 111 SECTION 5, PART FOUR 04047 1 00000 0 73603 LCOUT TXI (DIAG),,0 TRANSFER FOR INEXPLICABLE ERROR $F5D00500 04050 +035121000000 OCT 35121000000 TRA OP CODE F5D00510 04051 +041104000000 OCT 41104000000 PSE-TRA F5D00520 04052 -033642000000 OCT -33642000000 DCT-PSE F5D00530 04053 -024000000000 OCT -24000000000 RTT-DCT F5D00540 04054 +027642000000 OCT 27642000000 MSE-RTT F5D00550 04055 -007100000000 OCT -7100000000 TZE-MSE F5D00560 04056 -032154000000 OCT -32154000000 HPR-TZE F5D00570 04057 +031316000000 LNTOP OCT 31316000000 TSX-HPR F5D00580 04060 +035121000000 OCT 35121000000 F5D00590 BINARY CARD NO. 9F290004 04061 +001622000000 OCT 1622000000 TXL-TRA F5D00600 04062 -031772000000 OCT -31772000000 HPR-TXL F5D00610 04063 +031400000000 LTROP OCT 31400000000 TTR-HPR F5D00620 04064 -370000000000 FSTLT OCT -370000000000 F5D00630 04065 -230000000000 FSTT OCT -230000000000 F5D00640 04066 +170000000000 PCC OCT 170000000000 MEANS LOCATION OF THIS INST. F5D00650 04067 -300000000000 PFXMK OCT -300000000000 F5D00660 04070 +000770000000 XXPSX OCT 770000000 CONSTANTS TO TEST PSE ADDR. F5D00670 04071 +000160000000 XX16X OCT 160000000 F5D00680 04072 +000360000000 XX360 OCT 360000000 F5D00690 04073 0 00000 7 77777 SHK1 PZE -1,7 CONST. TO EXTRACT R. HALF WORD F5D00700 04074 1 60000 0 00000 SIK2 PON 0,0,6*4096 I.D. FOR LOCATION OF SXD F5D00710 04032 SIK3 SYN LSXD F5D00720 04074 IDSXD SYN SIK2 F5D00730 04030 SLK1 SYN LTRA TRA IN BCD F5D00740 04075 1 50000 0 00000 SMK1 PON 0,0,5*4096 I.D. FOR LOCATION OF LXD F5D00750 04035 SMK2 SYN LLXD F5D00760 04023 SMK3 SYN LFMSK F5D00770 04076 1 40000 0 00000 SMK4 PON 0,0,4*4096 I.D. FOR TAU-TAG F5D00780 04075 SLK2 SYN SMK1 F5D00790 04075 IDLXD SYN SMK1 F5D00800 04076 IDTAG SYN SMK4 F5D00810 04077 -0 00000 0 00000 Z1K3 MZE 0 F5D00820 04077 MZE SYN Z1K3 F5D00830 04100 0 77776 0 00000 Z2K1 PZE 0,0,-2 THE INDEXES NEEDED TO REFER F5D00840 04101 0 77772 0 00000 PZE 0,0,-6 TO THE BOTTOM POSITIONS F5D00850 04102 0 77766 0 00000 PZE 0,0,-10 IN LIST1, LIST2, LIST3, RESPT. F5D00860 04103 0 00007 0 00003 Z2K2 PZE 3,0,7 NO. OF LISTS, NO. OF CASES F5D00870 04104 0 00000 0 00001 CASE PZE 1 F5D00880 04105 0 00000 0 00002 PZE 2 F5D00890 04106 0 00000 0 00004 PZE 4 F5D00900 BINARY CARD NO. 9F290005 04107 0 00000 0 00003 PZE 3 F5D00910 04110 0 00000 0 00005 PZE 5 F5D00920 04111 0 00000 0 00006 PZE 6 F5D00930 04112 0 00000 0 00007 PZE 7 F5D00940 04113 +000032212110 Z2K3 OCT 32212110 CONST. TO DETERMINE NO. 1 S IN 3 BITS F5D00950 04114 0 00030 0 00000 Z2K4 PZE 0,0,3*8 F5D00960 04115 0 00000 0 00007 Z2K5 PZE 7 F5D00970 04116 0 00000 0 77777 Z4K1 PZE -1 F5D00980 04117 0 00000 0 00000 Z4K2 PZE 0 INDEX OF ST SXD CASE F5D00990 04120 0 00000 0 01000 LNSXD PZE NSXD*4 NO. OF SXD IN SXD LIST F5D01000 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 112 SECTION 5, PART FOUR 04121 0 77770 0 00000 Z7K1 PZE 0,0,-8 INDEAXES OF ASSOCIATED SXD CASES F5D01010 04122 0 77764 0 00000 PZE 0,0,-12 F5D01020 04123 0 77760 0 00000 PZE 0,0,-16 F5D01030 THE DEFINITION OF TEMP. AND VARIABLE STORAGE LOCATIONS F5D01040 04124 -0 00001 0 00000 BBNO MZE 0,0,1 DECR., CURRENT BB NO. BEING SCANNED F5D01050 04125 0 00000 0 00000 NXLOC PZE 0 LOCATION OF 1ST INST OF THE BB F5D01060 04126 0 00000 0 00000 ERRBX PZE 0 ERROR INDICATOR F5D01070 04127 0 00000 0 00000 BBOX PZE 0 TEMP. STORE FOR INDEXES, MAINLY 2 F5D01080 04130 0 00000 0 00000 BBOX1 PZE 0 ANOTHER OF SAME F5D01090 04131 0 00000 0 00000 ABOX PZE 0 TEMP. STORE , INDEX 1 F5D01100 04132 0 00000 0 00000 TAG PZE 0 TAU-TAG FROM AN INST. F5D01110 04133 0 00000 0 00000 STGN1 PZE 0 WORD FROM STAG SHIFTED LEFT MULTIPLE OF IF5D01120 04134 0 00000 0 00000 STGN2 PZE 0 SAME WORD SHIFTED BY ONES F5D01130 BINARY CARD NO. 9F290006 04135 0 00000 0 00000 9CNT PZE 0 COUNT TO 9, 9 TAGS IN STAG WORD F5D01140 04136 -0 00000 0 00001 STGWD MZE 1 NO. OF STAG ENTRY BEING CONSIDERED F5D01150 04137 0 00000 0 00000 TMPD2 PZE 0 IN-OUT BUFFER FOR READING CIT . F5D01160 04140 0 00000 0 00000 TMP10 PZE 0 TEMP. STORE , LASTS ONLY 10 INSTRS. F5D01170 04141 0 00000 0 00000 CIND PZE 0 + OR - MEANS IR4 ISNT OR IS NECESSARY F5D01180 04142 -0 00000 0 00000 CPIND MZE 0 - OR + MEADS COMPILE/DONT COMPILE. F5D01190 04143 0 00000 0 00000 ARG1 PZE 0 U 1ST ARGUMENT FOR SUBROUTINES F5D01200 04144 0 00000 0 00000 MBOX PZE 0 NO. OF TRANSFERS IN GO TO VECTOR F5D01210 04145 0 00000 0 00000 SUCNO PZE 0 NO. OF A SUCCESSOR, GOV ROUTINE F5D01220 04146 0 00000 0 00000 SXD0 PZE 0 LXD CASE IN DECR., PRED NO. IN ADDR. F5D01230 04147 0 00000 0 00000 SXD1 PZE 0 3 TAU TAGS WHICH MUST BE STORED F5D01240 04150 0 00000 0 00000 SXD2 PZE 0 FROM IR1,2,3 F5D01250 04151 0 00000 0 00000 SXD3 PZE 0 RESPT. F5D01260 04152 0 00000 0 00000 SADV2 PZE 0 LOCATION OF 1ST INST IN SUCCESSOR BB F5D01270 04153 0 00000 0 00000 SADV3 PZE 0 NO. OF CURRENT PRED F5D01280 04154 0 00000 0 00000 SADV4 PZE 0 NO. OF 1ST PRED IN SUCCESSOR BB F5D01290 04155 0 00000 0 00000 SADV5 PZE 0 THE SUCCESSOR BB NO. F5D01300 04156 0 00000 0 00000 SHV2 PZE 0 ENTRY FROM PRED. F5D01310 04157 0 00000 0 00000 SIV3 PZE 0 LOCATION OF 1ST INST. IN SXD GROUP F5D01320 04160 0 00000 0 00000 SIV4 PZE 0 TEMP. STORE F5D01330 04161 0 00000 0 00000 SIV6 PZE 0 STORE FOR THE TAG F5D01340 04162 0 00000 0 00000 SJV1 PZE 0 LXD CASE IN DECR. F5D01350 BINARY CARD NO. 9F290007 04163 0 00000 0 00000 SJV3 PZE 0 F5D01360 04474 CLST BES LCLST THE NEW LIST OF COMPILED INST. F5D01370 BINARY CARD NO. 9F290008 04474 0 00000 0 00000 SLV2 PZE 0 LOCATION TO BE ATTACHED TO TRA F5D01380 04475 0 00000 0 00000 SLV3 PZE 0 + OR - MEANS ISNT OR IS HANGING TRA0 F5D01390 04476 0 00000 0 00000 SMV2 PZE 0 TAG TO BE COMPILED F5D01400 04477 0 00000 0 00000 SMV3 PZE 0 STORE INDEX OF QUANTITY IN LIST F5D01410 04500 0 00000 0 00000 SMV4 PZE 0 LOCATION , TEMP. STORE F5D01420 04501 0 00000 0 00000 Z1V2 PZE 0 NO. OF 1ST PRED. IN NEXT BB F5D01430 04502 0 00000 0 00000 Z1V3 PZE 0 NO. OF PRED BEING CONSIDERED F5D01440 04503 0 00000 0 00000 Z1V5 PZE 0 THE CASES F5D01450 04504 0 00000 0 00000 Z1V8 PZE 0 THE LOC. OF 1ST PRED IN BB, USED IN Z4 F5D01460 04505 0 00000 0 00000 Z2V1 PZE 0 IN DECREMENTS, THE INDEXES F5D01470 04506 0 00000 0 00000 PZE 0 THE TOP ENTRIES F5D01480 04507 0 00000 0 00000 PZE 0 IN THE 3 LXD LISTS F5D01490 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 113 SECTION 5, PART FOUR 04510 0 00000 0 00000 Z2V2 PZE 0 IN ADDR, NO. OF 1S IN DIFFERENCE. F5D01500 04511 +000000000000 LIST1 OCT ,,,0 $F5D01510 04512 +000000000000 04513 +000000000000 04514 +000000000000 04515 +000000000000 LIST2 OCT ,,,0 $F5D01520 04516 +000000000000 04517 +000000000000 04520 +000000000000 04521 +000000000000 LIST3 OCT ,,,0 $F5D01530 BINARY CARD NO. 9F290009 04522 +000000000000 04523 +000000000000 04524 +000000000000 04530 LLIND BES 3 + OR - MEANS LIST NOT TO BE OR TOBE COMPIF5D01540 BINARY CARD NO. 9F290010 04530 0 00000 0 00000 Z4V1 PZE 0 TEMP. STORE , LXD CASE IN ADDR. F5D01550 04531 0 00000 0 00000 Z5V1 PZE 0 INDEX IN SYN TABLE F5D01560 04532 0 00000 0 00000 Z7V1 PZE 0 INDEX OF LIST F5D01570 04533 0 00000 0 00000 Z7V2 PZE 0 + OR - MEANS 1ST OR 2ED TIME THRU F5D01580 04550 NDINS BES 12 BLOCK FOR 3 EXTRA COMPILED INST. F5D01590 05060 INST BES ZINST F5D01600 BINARY CARD NO. 9F290011 05060 -0 00000 0 00000 SXST MZE 0 + OR - MEANS SEQUENTIAL TRANSFER OR NOT F5D01610 05061 +000000000000 OCT ,,0 $F5D01620 05062 +000000000000 05063 +000000000000 THE SXD INST. ASSOCIATED WITH SEQUENTIAL TRANSFER F5D01630 05064 +000000000000 SXAS0 OCT ,,,0 ASSOCIATED WITH 0 LXD CASE $F5D01640 05065 +000000000000 05066 +000000000000 05067 +000000000000 05070 +000000000000 SXAS1 OCT ,,,0 WITH 1ST LXD LIST $F5D01650 05071 +000000000000 05072 +000000000000 05073 +000000000000 05074 +000000000000 SXAS2 OCT ,,,0 2ND LIST $F5D01660 05075 +000000000000 05076 +000000000000 05077 +000000000000 05100 +000000000000 SXAS3 OCT ,,,0 3RD $F5D01670 05101 +000000000000 05102 +000000000000 05103 +000000000000 05104 SXAS BSS 4*NSXD THE LIST OF SXD INST. F5D01680 BINARY CARD NO. 9F290012 06104 -0 00000 0 00000 SYN MZE 0 SYN CARD TABLE STORED BACKWARD F5D01690 WHEN ENTERED WITH PRESENT BB NO. IN ADDR OF ARG1 AND BBNO. F5D01700 OF A SUCC. BB IN ADDR. OF AC, SAD FIGURES OUT WHAT THE F5D01710 ADDRESS OF THE RELATED TRANSFER INST. SHOULD BE AND RETURNS F5D01720 WITH THE ADDR IN LOGICAL AC F5D01730 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 114 SECTION 5, PART FOUR 06105 0634 00 4 06145 SAD SXA SAD5,4 STORE RETURN F5D01740 06106 -0320 00 0 04017 ANA ADDMK STORE THE SUCC. NO. F5D01750 06107 0601 00 0 04155 STO SADV5 F5D01760 06110 0074 00 4 03746 TSX SE1,4 F5D01770 06111 0500 00 1 40011 CLA BBB+5,1 F5D01780 06112 0601 00 0 04152 STO SADV2 F5D01790 06113 0500 00 1 40004 CLA BBB,1 F5D01800 06114 -0320 00 0 04017 ANA ADDMK F5D01810 06115 0602 00 0 04154 SLW SADV4 F5D01820 06116 0602 00 0 04153 SAD1 SLW SADV3 F5D01830 06117 0074 00 4 03741 TSX SE5,4 F5D01840 06120 0500 00 1 56774 CLA PRED,1 F5D01850 06121 -0320 00 0 04017 ANA ADDMK IS THIS THE CORRECT F5D01860 06122 0402 00 0 04143 SUB ARG1 PRED ENTRY F5D01870 06123 0100 00 0 06127 TZE SAD2 F5D01880 06124 -0500 00 0 04153 CAL SADV3 NO, TRY NEXT RETURN F5D01890 06125 0400 00 0 04002 ADD ONEA F5D01900 06126 0020 00 0 06116 TRA SAD1 F5D01910 06127 -0500 00 1 56774 SAD2 CAL PRED,1 IS THE SXD CASE 0 F5D01920 06130 -0320 00 0 04012 ANA LD7 F5D01930 06131 0100 00 0 06137 TZE SAD3 YES F5D01940 BINARY CARD NO. 9F290013 06132 0500 00 0 04153 CLA SADV3 NO, FORM THE SYMBOLIC ADDR. F5D01950 06133 0402 00 0 04154 SUB SADV4 AS ID FOR SXD PLUS NO. OF PRED WITHIN F5D01960 06134 0020 00 0 10772 SAD7 TRA SXPC2 BB*(2**N),N=MAX BITS OF BBNO (32)F5D01970 06135 0400 00 0 04074 ADD IDSXD F5D01980 06136 0020 00 0 06144 TRA SAD6 F5D01990 06137 0500 00 1 56774 SAD3 CLA PRED,1 IS THE LXD CASE ZERO F5D02000 06140 -0320 00 0 04014 ANA LT7 F5D02010 06141 0100 00 0 06147 TZE SAD4 F5D02020 06142 0771 00 0 00004 ARS 4 ALLOW 11 BITS FOR BBNO (32)F5D02030 06143 0400 00 0 04075 ADD IDLXD AS 1024* LXD CASE PLUS BB NO. PLUS F5D02040 06144 0400 00 0 04155 SAD6 ADD SADV5 I. D. FOR AN LXD F5D02050 06145 0774 00 4 00000 SAD5 AXT SET,4 F5D02060 06146 0020 00 4 00001 TRA 1,4 F5D02070 06147 -0500 00 0 04152 SAD4 CAL SADV2 F5D02080 06150 0020 00 0 06145 TRA SAD5 F5D02090 THIS ROUTINE COMPILES CURRENT INST) IF INDICATOR IN CPIND F5D02100 INDICATES IT SHOULD BE F5D02110 06151 0500 00 0 04142 SCMI CLA CPIND SHOULD INST. BE COMPILED F5D02120 06152 0120 00 0 06165 TPL SCMI1 F5D02130 06153 0634 00 4 06164 SXA SCMI0,4 YES, COMPILE THE INST F5D02140 06154 0500 00 2 05060 CLA INST,2 F5D02150 06155 0074 00 4 06346 TSX SK,4 F5D02160 06156 0500 00 2 05057 CLA INST-1,2 F5D02170 06157 0074 00 4 06346 TSX SK,4 F5D02180 BINARY CARD NO. 9F290014 06160 0500 00 2 05056 CLA INST-2,2 F5D02190 06161 0074 00 4 06346 TSX SK,4 F5D02200 06162 0500 00 2 05055 CLA INST-3,2 F5D02210 06163 0074 00 4 06346 TSX SK,4 F5D02220 06164 0774 00 4 00000 SCMI0 AXT SET,4 F5D02230 06165 -0760 00 0 00003 SCMI1 SSM F5D02240 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 115 SECTION 5, PART FOUR 06166 0601 00 0 04142 STO CPIND RECORD INST SHOULD BE COMPILED F5D02250 06167 0020 00 4 00001 TRA 1,4 F5D02260 DETERMINE AN SXD CASE SUBROUTINE F5D02270 06170 0634 00 4 06217 SH SXA SH41,4 STORE RETURN F5D02280 06171 0774 00 4 00004 AXT 4,4 CLEAR F5D02290 06172 0560 00 0 04001 LDQ ZERO THE F5D02300 06173 -0600 00 4 04152 SH1 STQ SXD0+4,4 SXD F5D02310 06174 2 00001 4 06173 TIX SH1,4,1 POSITIONS 0-3 F5D02320 06175 0621 00 0 04146 STA SXD0 STORE THE PRED NO. F5D02330 06176 0074 00 4 03741 TSX SE5,4 GET INDEX OF PRED F5D02340 06177 0500 00 1 56774 CLA PRED,1 GET AND F5D02350 06200 0601 00 0 04156 STO SHV2 STORE PRED ENTRY F5D02360 06201 0074 00 4 03746 TSX SE1,4 GET INDEX OF BBB TABLE ENTRY F5D02370 06202 0774 00 4 00003 AXT 3,4 NO, SET COUNT TO 3 F5D02380 06203 0560 00 0 04156 SH2 LDQ SHV2 IS F5D02390 06204 -0773 00 4 00022 RQL 18,4 SXD REQUIRED F5D02400 06205 0162 00 0 06211 TQP SH3 FOR THIS I.R. F5D02410 BINARY CARD NO. 9F290015 06206 0500 00 1 40006 CLA BBB+2,1 YES, GET AND F5D02420 06207 -0320 00 0 04022 ANA TAGMK EXTRACT THE F5D02430 06210 0601 00 4 04152 STO SXD1+3,4 EXIT CONDITIONS F5D02440 06211 1 77777 1 06212 SH3 TXI SH3+1,1,-1 DOWN THE EXIT CONDITIONS F5D02450 06212 2 00001 4 06203 TIX SH2,4,1 COUNT TO 3 F5D02460 06213 -0500 00 0 04156 SH4 CAL SHV2 GET F5D02470 06214 -0320 00 0 04014 ANA LT7 AND STORE F5D02480 06215 0767 00 0 00003 ALS 3 LXD CASE F5D02490 06216 0622 00 0 04146 STD SXD0 F5D02500 06217 0774 00 4 00000 SH41 AXT SET,4 F5D02510 06220 0020 00 4 00001 TRA 1,4 RETURN F5D02520 COMPILE AN SXD CASE SUBROUTINE F5D02530 06221 0634 00 4 06313 SI SXA SI6,4 STORE RETURN F5D02540 06222 0634 00 1 06233 SXA SI0,1 STORE INDEX OF SXD CASE F5D02550 06223 0074 00 4 06407 TSX SL1,4 RECORD ANY HANGING TRANSFER F5D02560 06224 -0500 00 0 04124 CAL BBNO F5D02570 06225 0771 00 0 00022 ARS 18 F5D02580 06226 0601 00 0 04474 STO SLV2 STORE BB NO. F5D02590 06227 0074 00 4 03746 TSX SE1,4 GET INDEX OF BB F5D02600 06230 0500 00 1 40004 CLA BBB,1 F5D02610 06231 -0320 00 0 04017 ANA ADDMK F5D02620 06232 0601 00 0 04160 STO SIV4 STORE LOC. OF 1ST PRED IN BB F5D02630 06233 0774 00 1 00000 SI0 AXT SET,1 FORM F5D02640 BINARY CARD NO. 9F290016 06234 0500 00 1 05060 CLA SXST,1 LOC. OF THIS PRED - F5D02650 06235 -0320 00 0 04017 ANA ADDMK LOC. OF 1ST PRED IN BB F5D02660 06236 0402 00 0 04160 SUB SIV4 F5D02670 06237 0522 00 0 11030 XEC SXPC6 (32)F5D02680 06240 0400 00 0 04474 ADD SLV2 F5D02690 06241 0400 00 0 04074 ADD SIK2 F5D02700 06242 0601 00 0 04474 STO SLV2 STORE THE LOC. OF 1ST SXD F5D02710 06243 0774 00 2 00003 AXT 3,2 F5D02720 06244 0500 00 1 05061 SI2 CLA SXST+1,1 F5D02730 06245 0100 00 0 06264 TZE SI1 IS THIS TAG 0 F5D02740 06246 0634 00 1 06263 SXA SI21,1 NO, PRESERVE INDEX 1 F5D02750 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 116 SECTION 5, PART FOUR 06247 0601 00 0 04161 STO SIV6 PRESERVE THE TAG F5D02760 06250 0500 00 0 04474 CLA SLV2 PUT LOCATION WORD ON TAPE F5D02770 06251 0074 00 4 06346 TSX SK,4 F5D02780 06252 0500 00 0 04001 CLA ZERO AND RESET TO 0 F5D02790 06253 0601 00 0 04474 STO SLV2 F5D02800 06254 0500 00 0 04032 CLA SIK3 PUT SXD ON TAPE F5D02810 06255 0074 00 4 06346 TSX SK,4 F5D02820 06256 0500 00 0 04161 CLA SIV6 14*2**-5+TAU-TAG IS F5D02830 06257 0400 00 0 04076 ADD SMK4 SYMBOLIC ADDRESS F5D02840 06260 0074 00 4 06346 TSX SK,4 F5D02850 06261 0500 00 2 04046 CLA VSTAG,2 F5D02860 BINARY CARD NO. 9F290017 06262 0074 00 4 06346 TSX SK,4 PUT S-TAG ON TAPE F5D02870 06263 0774 00 1 00000 SI21 AXT SET,1 F5D02880 06264 1 77777 1 06265 SI1 TXI SI1+1,1,-1 F5D02890 06265 2 00001 2 06244 TIX SI2,2,1 COUNT TO 3, FORM N+1 F5D02900 06266 0534 00 1 06233 LXA SI0,1 F5D02910 06267 0500 00 1 05060 CLA SXST,1 F5D02920 06270 -0734 00 2 00000 PDX 0,2 F5D02930 06271 -3 00000 2 06300 TXL SI3,2,0 IS THE LXD CASE 0 F5D02940 06272 -3 00000 1 06304 TXL SI4,1,0 NO, IS THIS THE ST POSITION F5D02950 06273 3 77757 1 06313 TXH SI6,1,-16-1 IS THIS ASSOCIATED WITH A LIST F5D02960 06274 0771 00 0 00022 SI5 ARS 18 NO F5D02970 06275 0074 00 4 06364 TSX SL,4 COMPILE A TRA TO LXD CASE F5D02980 06276 0534 00 4 06313 LXA SI6,4 F5D02990 06277 0020 00 4 00003 TRA 3,4 RETURN TO LOC. OF TSX + 3 F5D03000 06300 0502 00 0 04002 SI3 CLS ONEA RECORD THAT THERE IS F5D03010 06301 0601 00 0 04475 STO SLV3 A HANGING TRA TO 0 CASE F5D03020 06302 0534 00 4 06313 LXA SI6,4 F5D03030 06303 0020 00 4 00001 TRA 1,4 RETURN TO LOC. OF TSX +1 F5D03040 06304 0601 00 0 04146 SI4 STO SXD0 STORE LXD CASE AS ARG FOR SJ F5D03050 06305 0074 00 4 06315 TSX SJ,4 IS SXD CASE INST POS. ASSOC. WITH LIST F5D03060 06306 0000 00 0 00000 HTR 0 SHOULDENT BE WITH CASE 0 F5D03070 06307 0020 00 0 06313 TRA SI6 YES F5D03080 BINARY CARD NO. 9F290018 06310 0534 00 1 06233 LXA SI0,1 NO F5D03090 06311 0500 00 1 05060 CLA SXST,1 F5D03100 06312 0020 00 0 06274 TRA SI5 GO TO COMPILE TRA TO LXD CASE F5D03110 06313 0774 00 4 00000 SI6 AXT SET,4 RETURN TO 2 FOLLOWING TSX WITH F5D03120 06314 0020 00 4 00002 TRA 2,4 INDEX OF TOP QUANTITY IN 1 AND LIST INDEXF5D03130 DETERMINE IF THE SXD CASE IS ASSOCIATED WITH AN LXD LIST F5D03140 06315 0634 00 4 06342 SJ SXA SJ3,4 F5D03150 06316 0500 00 0 04146 CLA SXD0 F5D03160 06317 -0320 00 0 04015 ANA DECMK F5D03170 06320 0601 00 0 04162 STO SJV1 F5D03180 06321 0100 00 0 06342 TZE SJ3 IS THIS THE 0 LXD CASE F5D03190 06322 0774 00 4 00000 AXT 0,4 NO, SET COUNT TO 3, N TO 1 F5D03200 06323 0774 00 2 00003 AXT 3,2 2 HAS THE COUNTER F5D03210 06324 0500 00 4 05070 SJ2 CLA SXAS1,4 F5D03220 06325 0120 00 0 06336 TPL SJ1 DOES THE LIST ALREADY HAVE SXD F5D03230 06326 0500 00 2 04510 CLA Z2V1+3,2 NO F5D03240 06327 -0734 00 1 00000 PDX 0,1 GET INDEX OF TOP QUANTITY F5D03250 06330 0500 00 1 04511 CLA LIST1,1 F5D03260 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 117 SECTION 5, PART FOUR 06331 0767 00 0 00022 ALS 18 F5D03270 06332 0402 00 0 04162 SUB SJV1 IS THIS CASE SAME AS CASE HEADUNG LIST N F5D03280 06333 -0100 00 0 06336 TNZ SJ1 F5D03290 06334 0534 00 4 06342 LXA SJ3,4 YES F5D03300 06335 0020 00 4 00002 TRA 2,4 RETURN, INDEX OF TOP OF LIST IN 1 F5D03310 BINARY CARD NO. 9F290019 06336 1 77777 4 06337 SJ1 TXI SJ1+1,4,-1 F5D03320 06337 2 00001 2 06324 TIX SJ2,2,1 COUNT TO 3 F5D03330 06340 0534 00 4 06342 LXA SJ3,4 F5D03340 06341 0020 00 4 00003 TRA 3,4 F5D03350 06342 0774 00 4 00000 SJ3 AXT SET,4 F5D03360 06343 0500 00 0 05064 CLA SXAS0 F5D03370 06344 0120 00 4 00003 TPL 3,4 F5D03380 06345 0020 00 4 00001 TRA 1,4 F5D03390 PUT WORD OF COMPILED INST ON TAPE F5D03400 06346 0774 00 1 00310 SK AXT LCLST,1 F5D03410 06347 0601 00 1 04474 STO CLST,1 STORE THE WORD IN CLST F5D03420 06350 2 00001 1 06362 TIX SK1,1,1 COUNT NO OF WORDS IS CLST FULL F5D03430 06351 0774 00 1 00310 AXT LCLST,1 YES F5D03440 06352 0634 00 1 06346 SXA SK,1 RESET THE INDEX F5D03450 06353 0634 00 4 06357 SK2 SXA *+4,4 F5D03460 06354 0074 00 4 73606 TSX (TAPE),4 F5D03470 06355 0 40011 0 06361 SK11,,(WBNC) F5D03480 06356 0 00003 0 03756 CTLBL,,FTAPE3 F5D03490 06357 0774 00 4 00000 AXT SET,4 F5D03500 06360 0020 00 4 00001 TRA 1,4 F5D03510 06361 -1 00310 0 04164 SK11 IOCT CLST-LCLST,,LCLST $F5D03520 06362 0634 00 1 06346 SK1 SXA SK,1 STORE INDEX OF NEXT WORD F5D03530 06363 0020 00 4 00001 TRA 1,4 F5D03540 SUBROUTINE FOR COMPILING TRA TO LXD CASE F5D03550 BINARY CARD NO. 9F290020 06364 -0320 00 0 04115 SL ANA Z2K5 FORM F5D03560 06365 0767 00 0 00013 ALS 11 ALLOW 11 BITS FOR BBNO (32)F5D03570 06366 0400 00 0 04075 ADD SLK2 ADDRESS F5D03580 06367 0601 00 0 04474 STO SLV2 OF F5D03590 06370 0500 00 0 04124 CLA BBNO THE F5D03600 06371 -0320 00 0 04015 ANA DECMK F5D03610 06372 0771 00 0 00022 ARS 18 TRA IN F5D03620 06373 -0602 00 0 04474 ORS SLV2 SLV2 F5D03630 06374 0634 00 4 06405 SXA SL21,4 STORE RETURN F5D03640 06375 0500 00 0 04001 SL2 CLA ZERO PUT 0 LOCATION F5D03650 06376 0074 00 4 06346 TSX SK,4 ON TAPE F5D03660 06377 0500 00 0 04030 CLA LTRA F5D03670 06400 0074 00 4 06346 TSX SK,4 PUT TRA OP. ON TAPE F5D03680 06401 0500 00 0 04474 CLA SLV2 F5D03690 06402 0074 00 4 06346 TSX SK,4 PUT SYMB. ADDR ON TAPE F5D03700 06403 0500 00 0 04001 CLA ZERO F5D03710 06404 0074 00 4 06346 TSX SK,4 ANOTHER 0 F5D03720 06405 0774 00 4 00000 SL21 AXT SET,4 F5D03730 06406 0020 00 4 00001 TRA 1,4 F5D03740 SUBROUTINE FOR PUTTING HANGING TRA 0 ON TAPE F5D03750 06407 0500 00 0 04475 SL1 CLA SLV3 F5D03760 06410 0120 00 4 00001 TPL 1,4 RETURN IF THERE IS NO HANGING TRA0 F5D03770 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 118 SECTION 5, PART FOUR 06411 0634 00 4 06405 SXA SL21,4 OTHERWISE , STORE RETURN AND F5D03780 BINARY CARD NO. 9F290021 06412 0500 00 0 04124 CLA BBNO GET F5D03790 06413 0074 00 4 03745 TSX SE,4 THE F5D03800 06414 0500 00 1 40011 CLA BBB+5,1 SYMBOLIC LOCATION F5D03810 06415 0601 00 0 04474 STO SLV2 OF 1ST INST IN BB AND F5D03820 06416 0500 00 0 04001 CLA ZERO STORE IN SYNBOLIS ADDR WORD F5D03830 06417 0601 00 0 04475 STO SLV3 SET INDICATOR TO SAY NO HANGING TRA F5D03840 06420 0020 00 0 06375 TRA SL2 F5D03850 COMPILE AN LXD LIST F5D03860 06421 0500 00 2 04530 SM CLA LLIND,2 IMMEDIATELY RETURN IF LIST IS F5D03870 06422 0120 00 4 00001 TPL 1,4 ALREADY COMPOLED F5D03880 06423 0602 00 2 04530 SLW LLIND,2 RECORD LIST ALREADY COMPILED F5D03890 06424 0634 00 4 06500 SXA SM9,4 STORE RETURN F5D03900 06425 0500 00 2 04103 CLA Z2K1+3,2 COMPUTE THE F5D03910 06426 0402 00 0 04003 SUB ONED INDEX OF SUB BOTTEM F5D03920 06427 0622 00 0 06434 STD SM1 POSITION OF LIDT F5D03930 06430 0622 00 0 06474 STD SM5 SET END TEST F5D03940 06431 0500 00 1 04511 SM6 CLA LIST1,1 F5D03950 06432 -0120 00 0 06502 TMI SM8 DOES THIS ELEMENT OF LIST REPRESENT AN LXF5D03960 06433 -3 00000 1 06435 TXL SM1+1,1,0 F5D03970 06434 -3 00000 1 06436 SM1 TXL SM10,1,SET YES, IS ELEMENT IN SUB BOTTOM POS. F5D03980 06435 -0400 00 1 04512 SBM LIST1+1,1 NO F5D03990 06436 0601 00 0 04476 SM10 STO SMV2 STORE THE TAG AWAY F5D04000 06437 0500 00 0 04124 CLA BBNO FORN F5D04010 BINARY CARD NO. 9F290022 06440 -0320 00 0 04015 ANA DECMK THE F5D04020 06441 0765 00 0 00035 LRS 29 LOCATION (32)F5D04030 06442 0500 00 1 04511 CLA LIST1,1 F5D04040 06443 0763 00 0 00013 LLS 11 (32)F5D04050 06444 0400 00 0 04075 ADD SMK1 F5D04060 06445 -0634 00 1 04477 SXD SMV3,1 STORE INDEX OF LIST QUANTITY F5D04070 06446 0601 00 0 04500 STO SMV4 F5D04080 06447 0074 00 4 06407 TSX SL1,4 RECORD ANY HANGING TRA0 F5D04090 06450 0500 00 0 04500 CLA SMV4 F5D04100 06451 0074 00 4 06346 TSX SK,4 COMPILE THE LOCATION F5D04110 06452 0500 00 0 04035 CLA SMK2 F5D04120 06453 0074 00 4 06346 TSX SK,4 COMPILE LXD F5D04130 06454 0500 00 0 04124 CLA BBNO F5D04140 06455 0074 00 4 03745 TSX SE,4 FIND INDEX OF BB F5D04150 06456 0500 00 0 04476 CLA SMV2 F5D04160 06457 0340 00 0 04006 SM3 CAS L4 IS THIS THE CORRECT ENT. REQUIREMENT F5D04170 06460 0020 00 0 06462 TRA SM2 F5D04180 06461 0020 00 0 06464 TRA SM4 YES F5D04190 06462 0767 00 0 00001 SM2 ALS 1 NO, SHIFT IT LEFT ONE F5D04200 06463 1 77777 1 06457 TXI SM3,1,-1 AND INDEX TO NEXT ENRR. REQUIREMENT F5D04210 06464 -0500 00 1 40006 SM4 CAL BBB+2,1 FORM F5D04220 06465 0771 00 0 00022 ARS 18 AND COMPILE F5D04230 BINARY CARD NO. 9F290023 06466 0400 00 0 04076 ADD SMK4 THE F5D04240 06467 0074 00 4 06346 TSX SK,4 F5D04250 06470 0500 00 0 04476 CLA SMV2 COMPILE THE TAG F5D04260 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 119 SECTION 5, PART FOUR 06471 0074 00 4 06346 TSX SK,4 F5D04270 06472 -0534 00 1 04477 LXD SMV3,1 IS THE ELEMENT IN SUB BOTTOM POSITION F5D04280 06473 -3 00000 1 06475 TXL SM5+1,1,0 F5D04290 06474 -3 00000 1 06476 SM5 TXL SM7,1,SET F5D04300 06475 1 77777 1 06431 TXI SM6,1,-1 NO, INDEX TO NEXT LIST POS. F5D04310 06476 0502 00 0 04002 SM7 CLS ONEA F5D04320 06477 0601 00 0 04475 STO SLV3 RECORD THAT THERE IS HANGING TRA 0 F5D04330 06500 0774 00 4 00000 SM9 AXT SET,4 F5D04340 06501 0020 00 4 00001 TRA 1,4 RETURN F5D04350 06502 0100 00 0 06476 SM8 TZE SM7 GO TO RECORD HANGING TRA F5D04360 06503 0760 00 0 00003 SSP F5D04370 06504 0074 00 4 06364 TSX SL,4 RECORD A TRA TO LXD CASE F5D04380 06505 0020 00 0 06500 TRA SM9 F5D04390 THE METHODS OF BRINGNNG IN BLOCKS OF COMPILED INST. AND F5D04400 CHECKING FOR ENDINGS IS THE SAME AS IN PASS 2 OF FLOW ANAL. F5D04410 06506 -2 00310 2 06510 FNDAS TNX 2FNDS,2,ZINST IS BLOCK OF INST. ALL USED F5D04420 06507 0074 00 4 07426 TSX RDINS,4 YES, READ IN NEXT BLOCK F5D04430 06510 -0500 00 2 05055 2FNDS CAL INST-3,2 IS THIS INST. TAGGED F5D04440 06511 -0320 00 0 04020 ANA STMSK F5D04450 06512 0100 00 0 07316 TZE CI7A F5D04460 06513 -0534 00 4 04135 CI4 LXD 9CNT,4 YES F5D04470 BINARY CARD NO. 9F290024 06514 2 00001 4 06530 TIX CI5,4,1 COUNT TO 9, IS STAG WORD EXHAUSTED F5D04480 06515 -0634 00 2 04127 SXD BBOX,2 YES, GET ANOTHER F5D04490 06516 0500 00 0 04136 CLA STGWD INCREASE THE NO. OF CURRENT STAG WORD F5D04500 06517 0400 00 0 04002 ADD ONEA F5D04510 06520 0601 00 0 04136 STO STGWD F5D04520 06521 0074 00 4 03741 TSX SE4,4 GET INDEX OF NEXT STAG WORD F5D04530 06522 0500 00 1 12463 CLA STAG,1 F5D04540 06523 0601 00 0 04134 STO STGN2 GET AND STORE F5D04550 06524 0767 00 0 00002 ALS 2 F5D04560 06525 0601 00 0 04133 STO STGN1 THE STAG WORD F5D04570 06526 -0534 00 2 04127 LXD BBOX,2 RESTORE INDEX REGISER 2 F5D04580 06527 0774 00 4 00011 AXT 9,4 RESET COUNT TO 9 F5D04590 06530 -0634 00 4 04135 CI5 SXD 9CNT,4 F5D04600 06531 -0500 00 2 05055 CAL INST-3,2 F5D04610 06532 -0320 00 0 04022 ANA TAGMK EXTRACT THE TAG F5D04620 06533 0601 00 0 04132 STO TAG F5D04630 06534 -0500 00 0 04133 CAL STGN1 F5D04640 06535 -0320 00 0 04011 ANA LD3 EXTRACT THE S-TAG F5D04650 06536 -0734 00 4 00000 PDX 0,4 F5D04660 06537 -0500 00 4 04046 CAL VSTAG,4 CONVERT S-TAG TO 1,2, OR 4 F5D04670 06540 0621 00 2 05055 STA INST-3,2 REPLACE TAU-TAG BY S-TAG F5D04680 06541 0402 00 0 04006 SUB L4 IS THE TAG 4 F5D04690 BINARY CARD NO. 9F290025 06542 -0100 00 0 06545 TNZ CI5A F5D04700 06543 -0760 00 0 00003 SSM F5D04710 06544 0601 00 0 04141 STO CIND YES, RECORD IR 4 NECESSARY F5D04720 06545 -0500 00 0 04134 CI5A CAL STGN2 F5D04730 06546 0767 00 0 00011 ALS 9 F5D04740 06547 -0760 00 0 00001 PBT IS AN LXD NECESSARY F5D04750 06550 0020 00 0 06563 TRA SKLX NO F5D04760 06551 0500 00 0 04001 CLA ZERO YES F5D04770 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 120 SECTION 5, PART FOUR 06552 0074 00 4 06346 TSX SK,4 COMPILE LOCATION OF 0 F5D04780 06553 0500 00 0 04035 CLA SMK2 COMPILE LXD F5D04790 06554 0074 00 4 06346 TSX SK,4 F5D04800 06555 0500 00 0 04132 CLA TAG COMPILE THE SYMB. ADDR. OF THE CELL F5D04810 06556 -0501 00 0 04076 ORA SMK4 F5D04820 06557 0074 00 4 06346 TSX SK,4 F5D04830 06560 0500 00 2 05055 CLA INST-3,2 COMPILE THE S-TAG F5D04840 06561 -0320 00 0 04017 ANA ADDMK F5D04850 06562 0074 00 4 06346 TSX SK,4 F5D04860 06563 -0500 00 2 05057 SKLX CAL INST-1,2 F5D04870 06564 -0320 00 0 04023 ANA LFMSK F5D04880 06565 0602 00 0 04140 SLW TMP10 F5D04890 06566 0500 00 0 04140 CLA TMP10 F5D04900 06567 0340 00 0 04025 CAS LLXP IS THIS AN LXP F5D04910 BINARY CARD NO. 9F290026 06570 0020 00 0 06617 TRA CI1 F5D04920 06571 0020 00 0 06573 TRA SKLY YES F5D04930 06572 0020 00 0 06617 TRA CI1 NO F5D04940 06573 -0500 00 0 04134 SKLY CAL STGN2 IS F5D04950 06574 0767 00 0 00011 ALS 9 LXD F5D04960 06575 -0760 00 0 00001 PBT 0 NECESSARY. F5D04970 06576 0020 00 0 07416 TRA CI3A NO. F5D04980 06577 0500 00 2 05055 CLA INST-3,2 YES. IS S-TAG =4. F5D04990 06600 0602 00 0 04142 SLW CPIND RECORD DONT COMPILE. F5D05000 06601 -0320 00 0 04017 ANA ADDMK F5D05010 06602 0402 00 0 04006 SUB L4 F5D05020 06603 -0100 00 0 06647 TNZ CI6 NOT 4. F5D05030 06604 -0500 00 2 05053 CAL INST-5,2 IS NEXT INSTRUCTION (32)F5D05040 06605 0322 00 0 04035 ERA LLXD LXD (32)F5D05050 06606 -0100 00 0 06647 TNZ CI6 NO (32)F5D05060 06607 -0500 00 2 05052 CAL INST-6,2 YES (32)F5D05070 06610 -0320 00 0 04015 ANA DECMK (32)F5D05080 06611 0402 00 0 04041 SUB GSYM FROM 6) (32)F5D05090 06612 -0100 00 0 06647 TNZ CI6 NO (32)F5D05100 06613 0500 00 2 05051 CLA INST-7,2 YES, (32)F5D05110 06614 0402 00 0 04042 SUB T4SYM IS IT +4,4 (32)F5D05120 06615 -0100 00 0 06647 TNZ CI6 NO (32)F5D05130 BINARY CARD NO. 9F290027 06616 1 00004 2 06647 TXI CI6,2,4 YES, OMIT IT. (32)F5D05140 06617 0340 00 0 04027 CI1 CAS LDED NO F5D05150 06620 0020 00 0 06622 TRA CI2 F5D05160 06621 0020 00 0 07416 TRA CI3A YES F5D05170 06622 0500 00 0 04134 CI2 CLA STGN2 F5D05180 06623 0120 00 0 06647 TPL CI6 IS SXD REQUIRED F5D05190 06624 0500 00 2 05060 CLA INST,2 NEITHER LXP NOR DED, COMPILE THE F5D05200 06625 0074 00 4 06346 TSX SK,4 INST. F5D05210 06626 0500 00 2 05057 CLA INST-1,2 F5D05220 06627 0074 00 4 06346 TSX SK,4 F5D05230 06630 0500 00 2 05056 CLA INST-2,2 F5D05240 06631 0074 00 4 06346 TSX SK,4 F5D05250 06632 0500 00 2 05055 CLA INST-3,2 F5D05260 06633 0074 00 4 06346 TSX SK,4 F5D05270 06634 0500 00 0 04001 CLA ZERO YES, COMPILE AN SXD, ZERO LOCATION F5D05280 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 121 SECTION 5, PART FOUR 06635 0601 00 0 04142 STO CPIND RECORD THAT THIS INST. SHOULDNT BE CONPILF5D05290 06636 0074 00 4 06346 TSX SK,4 F5D05300 06637 0500 00 0 04032 CLA SIK3 SXD IN BCD F5D05310 06640 0074 00 4 06346 TSX SK,4 F5D05320 06641 0500 00 0 04132 CLA TAG SYMB. ADDR. OF TAU-TAG CELL F5D05330 06642 -0501 00 0 04076 ORA SMK4 F5D05340 06643 0074 00 4 06346 TSX SK,4 F5D05350 BINARY CARD NO. 9F290028 06644 0500 00 2 05055 CLA INST-3,2 AND TAG WORD F5D05360 06645 -0320 00 0 04017 ANA ADDMK F5D05370 06646 0074 00 4 06346 TSX SK,4 F5D05380 06647 -0500 00 0 04133 CI6 CAL STGN1 F5D05390 06650 0767 00 0 00002 ALS 2 F5D05400 06651 0602 00 0 04133 SLW STGN1 F5D05410 06652 -0500 00 0 04134 CAL STGN2 F5D05420 06653 0767 00 0 00001 ALS 1 F5D05430 06654 0602 00 0 04134 SLW STGN2 F5D05440 06655 0020 00 0 06660 TRA CKLOC GO TO CHECK FOR ENDINGS F5D05450 06656 -0760 00 0 00003 CI7 SSM F5D05460 06657 0601 00 0 04142 STO CPIND RECODD LATER COMPILING NECESSARY F5D05470 NOW THE END OF BB IS CHECKED FOR F5D05480 06660 0500 00 2 05060 CKLOC CLA INST,2 IF NO LOCATION SYMBOL , THIS CANT BE F5D05490 06661 0100 00 0 06703 TZE TR3S ENSING OTHER THAN CERTAINTY F5D05500 06662 0500 00 2 05054 CLA INST-4,2 IS THIS LAST INST IN BB F5D05510 06663 0402 00 0 04125 SUB NXLOC F5D05520 06664 0100 00 0 06723 TZE ENDBB YES, LOOK FOR TYPE OF ENDING F5D05530 06665 0774 00 4 00010 AXT 8,4 NO, CHECK FOR ENDING OF GROUP OF INST F5D05540 06666 -0500 00 2 05057 CAL INST-1,2 F5D05550 06667 -0320 00 0 04015 ANA DECMK LOOK AT OP CODE F5D05560 06670 0402 00 4 04060 SUBP SUB LNTOP+1,4 COMPARE TO OP CODES OF POSSIBLE F5D05570 06671 0100 00 4 06717 TZE TRTIN+1,4 ENDINGS TRANSFER WHEN FOUND F5D05580 BINARY CARD NO. 9F290029 06672 2 00001 4 06670 TIX SUBP,4,1 TRY NEXT POSSIBILITY F5D05590 06673 -0500 00 2 05057 CAL INST-1,2 NOT FOUND, LOOK FORCONDITIONAL TRANSFER F5D05600 06674 -0320 00 0 04064 6ANA ANA FSTLT F5D05610 06675 0602 00 0 04140 SLW TMP10 F5D05620 06676 0500 00 0 04140 CLA TMP10 F5D05630 06677 0402 00 0 04065 SUB FSTT F5D05640 06700 0100 00 0 07142 TZE TTYPE IS A CONDITIONAL TRANSFER F5D05650 06701 0074 00 4 06151 NOEND TSX SCMI,4 NOT AN END OD BB COMPILE INST F5D05660 06702 1 00004 2 06506 TXI FNDAS,2,4 IF IT NEEDS TO BE F5D05670 06703 0500 00 2 05054 TR3S CLA INST-4,2 IS THIS LAST INST IN BB F5D05680 06704 0402 00 0 04125 SUB NXLOC F5D05690 06705 0100 00 0 07022 TZE SEQTR YES F5D05700 06706 0020 00 0 06701 TRA NOEND NO F5D05710 TRANSFER VECTOR SEE SUBP+1 ABOVE F5D05720 06707 0020 00 0 07026 TRA GOTOV TRA IS OP CODE F5D05730 06710 0020 00 0 07075 TRA IF2PS PSE F5D05740 06711 0020 00 0 07151 TRA IF2CS DCT F5D05750 06712 0020 00 0 07151 TRA IF2CS RTT F5D05760 06713 0020 00 0 07105 TRA MSECS MSE F5D05770 06714 0020 00 0 07206 TRA IF3CS TZE F5D05780 06715 0020 00 0 07304 TRA STPCZ HPR F5D05790 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 122 SECTION 5, PART FOUR 06716 0020 00 0 06701 TRTIN TRA NOEND TSX F5D05800 THE FOLLOWING IS 4 WORD TRANSFER VECTOR, SEE ENDBB BELOW F5D05810 06717 0020 00 0 06732 TRA TRACS TRAIS OP CODE F5D05820 BINARY CARD NO. 9F290030 06720 0020 00 0 07017 TRA DOCS TXL F5D05830 06721 0020 00 0 07022 TRA PAUSE HPR F5D05840 06722 0020 00 0 06735 TRTTR TRA TRAC3 TTR F5D05850 06723 0774 00 4 00004 ENDBB AXT 4,4 THIS INST ENDS A BASIC F5D05860 06724 0500 00 2 05057 CLA INST-1,2 BLOCK LOOKAT OP CODE F5D05870 06725 -0320 00 0 04015 ANA DECMK FOR TYPE OF ENDING F5D05880 06726 0402 00 4 04064 6SUB SUB LTROP+1,4 F5D05890 06727 0100 00 4 06723 TZE TRTTR+1,4 TRANSFER IF IOUND F5D05900 06730 2 00001 4 06726 TIX 6SUB,4,1 TRY NEXT POSSIBILITY F5D05910 06731 0020 00 0 07022 TRA SEQTR F5D05920 06732 -0500 00 2 05056 TRACS CAL INST-2,2 OP CODE IS TRA SEE IF ADDRESS F5D05930 06733 -0320 00 0 04067 ANA PFXMK IS IN PROGRAM UNCONDITITONAL TRANSFER F5D05940 06734 -0100 00 0 06752 TNZ GOTON IF TRANSFER IT IS A GO TO N F5D05950 06735 -0634 00 2 04127 TRAC3 SXD BBOX,2 THIS IS GO TO ALPHA F5D05960 06736 -0500 00 0 04124 CAL BBNO F5D05970 06737 0771 00 0 00022 ARS 18 F5D05980 06740 0601 00 0 04143 STO ARG1 STORE BBNO AS ARGUMENT OF SAD F5D05990 06741 0074 00 4 03746 TSX SE1,4 F5D06000 06742 -0500 00 1 40004 CAL BBB,1 F5D06010 06743 0074 00 4 03740 TSX SE6,4 GET SUCC. TABLE ENTRY F5D06020 06744 -0500 00 1 65274 CAL SUCC,1 F5D06030 06745 0074 00 4 06105 TSX SAD,4 GO TO DETERMINE SYMBOLIC ADDRESS F5D06040 BINARY CARD NO. 9F290031 06746 -0534 00 2 04127 LXD BBOX,2 F5D06050 06747 0602 00 2 05056 SLW INST-2,2 TEPLACE SYMBOLIC ADDR. F5D06060 06750 0074 00 4 06151 TSX SCMI,4 COMPILE THE INSTR F5D06070 06751 1 00004 2 07500 TXI BEGBB,2,4 BEGINNING OF BB, INDEX TO NEXT INSTR F5D06080 06752 -0634 00 2 04127 GOTON SXD BBOX,2 F5D06090 06753 0500 00 0 04124 CLA BBNO F5D06100 06754 0074 00 4 03745 TSX SE,4 F5D06110 06755 0500 00 1 40004 CLA BBB,1 CHECK TO MAKE SURE THIS IS GO TO N F5D06120 06756 0771 00 0 00041 ARS 33 F5D06130 06757 0400 00 0 04002 ADD ONEA F5D06140 06760 0100 00 0 06762 TZE GON1 F5D06150 06761 0074 00 4 03736 TSX DIAG,4 DIAGNOSTIC. THIS ISNT GO N F5D06160 06762 -0500 00 1 40005 GON1 CAL BBB+1,1 F5D06170 06763 0771 00 0 00041 ARS 33 PUT SXD CASE IN TMP10 F5D06180 06764 0602 00 0 04140 SLW TMP10 F5D06190 NOW ANY SXD BEFIR GO TO N ARE COMPILED F5D06200 06765 0774 00 2 00003 AXT 3,2 F5D06210 06766 0500 00 2 04046 GON3 CLA VSTAG,2 DOES THIS THIS IR NEED SXD F5D06220 06767 -0320 00 0 04140 ANA TMP10 F5D06230 06770 0100 00 0 07012 TZE GON2 F5D06240 06771 -0634 00 1 04131 SXD ABOX,1 YES F5D06250 06772 0560 00 0 04001 LDQ ZERO REPLACE LOCATION BY 0 AND F5D06260 06773 -0534 00 4 04127 LXD BBOX,4 PUT LOCATION ON THE F5D06270 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 123 SECTION 5, PART FOUR BINARY CARD NO. 9F290032 06774 0500 00 4 05060 CLA INST,4 SXD INST. F5D06280 06775 -0600 00 4 05060 STQ INST,4 SXDINST F5D06290 06776 0074 00 4 06346 TSX SK,4 F5D06300 06777 0500 00 0 04032 CLA LSXD F5D06310 07000 0074 00 4 06346 TSX SK,4 F5D06320 07001 -0534 00 1 04131 LXD ABOX,1 F5D06330 07002 -0500 00 1 40006 CAL BBB+2,1 F5D06340 07003 -0320 00 0 04022 ANA TAGMK F5D06350 07004 -0501 00 0 04076 ORA IDTAG F5D06360 07005 0074 00 4 06346 TSX SK,4 F5D06370 07006 -0500 00 0 04140 CAL TMP10 F5D06380 07007 -0320 00 2 04046 ANA VSTAG,2 F5D06390 07010 0074 00 4 06346 TSX SK,4 F5D06400 07011 -0534 00 1 04131 LXD ABOX,1 F5D06410 07012 1 77777 1 07013 GON2 TXI GON2+1,1,-1 F5D06420 07013 2 00001 2 06766 TIX GON3,2,1 F5D06430 07014 -0534 00 2 04127 LXD BBOX,2 F5D06440 07015 0074 00 4 06151 TSX SCMI,4 COMPILE THE INST F5D06450 07016 1 00004 2 07500 TXI BEGBB,2,4 F5D06460 07017 -0754 00 0 00000 DOCS PXD 0,0 F5D06470 07020 0601 00 0 05060 STO SXST T RECORD THERE IS SEQUDNTIAL TRANSFERF5D06480 07021 0020 00 0 06735 TRA TRAC3 OTHERWISE DO EXACTLY AS FOR TRA TRANSFER F5D06490 BINARY CARD NO. 9F290033 07022 -0754 00 0 00000 PAUSE PXD 0,0 F5D06500 07022 SEQTR SYN PAUSE F5D06510 07023 0601 00 0 05060 STO SXST RECORD SEQUENTIAL TRANSFER F5D06520 07024 0074 00 4 06151 TSX SCMI,4 F5D06530 07025 1 00004 2 07500 TXI BEGBB,2,4 F5D06540 07026 0074 00 4 06151 GOTOV TSX SCMI,4 COMPILE INST IF NECESSARY F5D06550 07027 0500 00 2 05055 CLA INST-3,2 FIND NO. OF BRANCHES IN VECTOR F5D06560 07030 0402 00 0 04003 SUB LD1 F5D06570 07031 0622 00 0 04144 STD MBOX F5D06580 07032 0500 00 0 04124 CLA BBNO F5D06590 07033 0771 00 0 00022 ARS 18 STORE BBNO FOR SAD ROUTINE F5D06600 07034 0601 00 0 04143 STO ARG1 F5D06610 07035 1 00004 2 07036 GOV4 TXI GOV4+1,2,4 F5D06620 07036 -0634 00 2 04130 SXD BBOX1,2 F5D06630 07037 0074 00 4 03746 TSX SE1,4 F5D06640 07040 0500 00 1 40004 CLA BBB,1 F5D06650 07041 0602 00 0 04145 SLW SUCNO STORE NO OF 1ST SUCCESSOR F5D06660 07042 -0534 00 2 04130 LXD BBOX1,2 F5D06670 07043 -2 00310 2 07045 13TNX TNX GOV1,2,ZINST IS BLOCK OF INST ALL USED F5D06680 07044 0074 00 4 07426 TSX RDINS,4 T READ NEXT BLOCK F5D06690 07045 -0634 00 2 04130 GOV1 SXD BBOX1,2 F5D06700 07046 -0500 00 0 04145 CAL SUCNO F5D06710 07047 0074 00 4 03740 TSX SE6,4 F5D06720 BINARY CARD NO. 9F290034 07050 0500 00 1 65274 CLA SUCC,1 F5D06730 07051 0074 00 4 06105 TSX SAD,4 FINF NEW SYMBOLIC ADDR FOR THIS TRANSFER F5D06740 07052 -0534 00 2 04130 LXD BBOX1,2 F5D06750 07053 0602 00 0 04140 SLW TMP10 STORE SYMBOLIC ADDR. F5D06760 07054 -0534 00 4 04144 LXD MBOX,4 F5D06770 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 124 SECTION 5, PART FOUR 07055 2 00001 4 07061 TIX GOV2,4,1 IS THIS THE LAST TRANSFER F5D06780 07056 0500 00 2 05056 CLA INST-2,2 F5D06790 07057 0402 00 0 04125 SUB NXLOC 1ST INST IN NEXT BB, IS IT F5D06800 07060 0100 00 0 07267 TZE PS3 YES, THIS IS SEQUENTIAL TRANSFER F5D06810 07061 0500 00 0 04140 GOV2 CLA TMP10 NO F5D06820 07062 0601 00 2 05056 STO INST-2,2 F5D06830 07063 0074 00 4 06151 TSX SCMI,4 COMPILE THE INXT F5D06840 07064 1 00004 2 07065 GOV3 TXI GOV3+1,2,4 F5D06850 07065 -0500 00 0 04145 CAL SUCNO F5D06860 07066 0400 00 0 04003 ADD ONED F5D06870 07067 0602 00 0 04145 SLW SUCNO F5D06880 07070 -0534 00 4 04144 LXD MBOX,4 F5D06890 07071 1 77777 4 07072 GOV5 TXI GOV5+1,4,-1 F5D06900 07072 -0634 00 4 04144 SXD MBOX,4 F5D06910 07073 3 00000 4 07043 TXH 13TNX,4,0 IS THIS LAST TRA OF VECTOR F5D06920 07074 0020 00 0 07500 TRA BEGBB YES F5D06930 07075 0500 00 2 05055 IF2PS CLA INST-3,2 THIS IS PSE LOOK AT ADDRESS TO F5D06940 BINARY CARD NO. 9F290035 07076 -0320 00 0 04070 ANA XXPSX SEE IF IT IS 164-6 F5D06950 07077 0402 00 0 04071 SUB XX16X F5D06960 07100 0100 00 0 07105 TZE PSTCS YES, IT IS A TEST F5D06970 07101 0500 00 2 05055 CLA INST-3,2 F5D06980 07102 -0320 00 0 04015 ANA DECMK NO, SEE IF ADDR IS 360 F5D06990 07103 0402 00 0 04072 SUB XX360 F5D07000 07104 -0100 00 0 06701 TNZ NOEND NO, THIS ISNT BB END F5D07010 07105 0074 00 4 06151 PSTCS TSX SCMI,4 THIS IS A PSE TEST INST F5D07020 07105 MSECS SYN PSTCS OR AN MSE INST F5D07030 07106 1 00004 2 07107 PS1 TXI PS1+1,2,4 INEDX TO CONSIEER 1ST TRANSFER F5D07040 07107 -0634 00 2 04130 SXD BBOX1,2 F5D07050 07110 -0500 00 0 04124 CAL BBNO F5D07060 07111 0771 00 0 00022 ARS 18 F5D07070 07112 0601 00 0 04143 STO ARG1 STORE BBNO AS ARGUMENT FOR SAD F5D07080 07113 0074 00 4 03746 TSX SE1,4 F5D07090 07114 -0500 00 1 40004 CAL BBB,1 F5D07100 07115 0601 00 0 04145 STO SUCNO GETNUMBER OF 1ST SUCCESSOR F5D07110 07116 0400 00 0 04003 ADD LD1 F5D07120 07117 0074 00 4 03740 TSX SE6,4 GET THE SECOND SUCC ENTRY F5D07130 07120 0500 00 1 65274 CLA SUCC,1 F5D07140 07121 0074 00 4 06105 TSX SAD,4 F5D07150 07122 -0534 00 2 04130 LXD BBOX1,2 F5D07160 07123 0602 00 2 05056 SLW INST-2,2 REPLACE SYMBOLIC ADDRESS F5D07170 BINARY CARD NO. 9F290036 07124 0074 00 4 06151 TSX SCMI,4 F5D07180 07125 1 00004 2 07126 PS2 TXI PS2+1,2,4 INCREASE INSTR INDEX F5D07190 07126 0500 00 2 05056 CLA INST-2,2 IS THIS A SEQUENTIAL TRANSFER F5D07200 07127 0402 00 0 04125 SUB NXLOC F5D07210 07130 0100 00 0 07267 TZE PS3 YES, SKIP COMPILING THE INST F5D07220 07131 -0634 00 2 04130 SXD BBOX1,2 NO F5D07230 07132 0500 00 0 04145 CLA SUCNO F5D07240 07133 0074 00 4 03740 TSX SE6,4 F5D07250 07134 0500 00 1 65274 CLA SUCC,1 F5D07260 07135 0074 00 4 06105 TSX SAD,4 DETERMINE THE SYMBOLIC ADDRESS F5D07270 07136 -0534 00 2 04130 LXD BBOX1,2 F5D07280 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 125 SECTION 5, PART FOUR 07137 0602 00 2 05056 SLW INST-2,2 REPLACE SYMBOLIC ADDRESS F5D07290 07140 0074 00 4 06151 TSX SCMI,4 COMPILE THE INST. F5D07300 07141 1 00004 2 07500 TXI BEGBB,2,4 F5D07310 07142 0500 00 2 05056 TTYPE CLA INST-2,2 IS THIS TRANSFER TO NEXT INST. F5D07320 07143 0340 00 2 05060 CAS INST,2 F5D07330 07144 0020 00 0 07146 TRA TTYP1 F5D07340 07145 0020 00 0 06701 TRA NOEND YES F5D07350 07146 0402 00 0 04066 TTYP1 SUB PCC F5D07360 07147 0100 00 0 06701 TZE NOEND YES F5D07370 07150 0020 00 0 07153 TRA CNDTR NO, IS CONDITIONAL TRANSFER F5D07380 07151 0074 00 4 06151 IF2CS TSX SCMI,4 THIS IS DCT OR RTT F5D07390 BINARY CARD NO. 9F290037 07152 1 00004 2 07153 RT1 TXI RT1+1,2,4 INDEX TO CONSIDER 1ST TRANSFER F5D07400 07153 -0634 00 2 04130 CNDTR SXD BBOX1,2 STORE BBNO. AS ARGUMENT F5D07410 07154 -0500 00 0 04124 CAL BBNO STORE BBNO AS ARGUMENT F5D07420 07155 0771 00 0 00022 ARS 18 OF SAD F5D07430 07156 0601 00 0 04143 STO ARG1 F5D07440 07157 0074 00 4 03746 TSX SE1,4 F5D07450 07160 -0500 00 1 40004 CAL BBB,1 F5D07460 07161 0601 00 0 04145 STO SUCNO F5D07470 07162 0074 00 4 03740 TSX SE6,4 GET THE 1ST SUCC ENTRY F5D07480 07163 0500 00 1 65274 CLA SUCC,1 F5D07490 07164 0074 00 4 06105 TSX SAD,4 F5D07500 07165 -0534 00 2 04130 LXD BBOX1,2 F5D07510 07166 0602 00 2 05056 SLW INST-2,2 REPLACE SYMBOLIC ADDRESS F5D07520 07167 0074 00 4 06151 TSX SCMI,4 COMPILE THE INST F5D07530 07170 1 00004 2 07171 RT2 TXI RT2+1,2,4 F5D07540 07171 0500 00 2 05056 CLA INST-2,2 IS THIS A SEQUENTIAL TRANSFER F5D07550 07172 0402 00 0 04125 SUB NXLOC F5D07560 07173 0100 00 0 07267 TZE PS3 YES, SKIP COMPILING THE INST F5D07570 07174 -0634 00 2 04130 SXD BBOX1,2 F5D07580 07175 0500 00 0 04145 CLA SUCNO F5D07590 07176 0400 00 0 04003 ADD LD1 F5D07600 07177 0074 00 4 03740 TSX SE6,4 F5D07610 BINARY CARD NO. 9F290038 07200 0500 00 1 65274 CLA SUCC,1 F5D07620 07201 0074 00 4 06105 TSX SAD,4 DETERMINE THE SYMBOLIC ADDR F5D07630 07202 -0534 00 2 04130 LXD BBOX1,2 F5D07640 07203 0602 00 2 05056 SLW INST-2,2 F5D07650 07204 0074 00 4 06151 TSX SCMI,4 COMPILE THE TRANSFER F5D07660 07205 1 00004 2 07500 TXI BEGBB,2,4 F5D07670 07206 -0634 00 2 04130 IF3CS SXD BBOX1,2 THIS IS A TZE INST I. E. AN IF F5D07680 07207 -0500 00 0 04124 CAL BBNO F5D07690 07210 0771 00 0 00022 ARS 18 STORE BB NO. FOR SUBROUTINE F5D07700 07211 0601 00 0 04143 STO ARG1 F5D07710 07212 0074 00 4 03746 TSX SE1,4 ARGUMENT F5D07720 07213 -0500 00 1 40004 CAL BBB,1 F5D07730 07214 0601 00 0 04145 STO SUCNO F5D07740 07215 0400 00 0 04003 ADD LD1 GET THE SUCC ENTRY F5D07750 07216 0074 00 4 03740 TSX SE6,4 FOR THE TZE F5D07760 07217 0500 00 1 65274 CLA SUCC,1 F5D07770 07220 0074 00 4 06105 TSX SAD,4 F5D07780 07221 -0534 00 2 04130 LXD BBOX1,2 F5D07790 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 126 SECTION 5, PART FOUR 07222 0602 00 2 05056 SLW INST-2,2 REPLACE THE SYMBOLIC ADDREAS F5D07800 07223 0074 00 4 06151 TSX SCMI,4 COMPILE THE TZE F5D07810 07224 1 00004 2 07225 IF1 TXI IF1+1,2,4 F5D07820 07225 -0500 00 2 05057 CAL INST-1,2 CHECK NEXT INST TO SEE F5D07830 BINARY CARD NO. 9F290039 07226 -0320 00 0 04023 ANA LFMSK IF IT IS TPL F5D07840 07227 0602 00 0 04140 SLW TMP10 F5D07850 07230 0500 00 0 04140 CLA TMP10 F5D07860 07231 0402 00 0 04024 SUB LTPL F5D07870 07232 0100 00 0 07234 TZE 16CLA F5D07880 07233 0074 00 4 03736 IFHPR TSX DIAG,4 IF NOT, DIAGNOSTIC F5D07890 07234 0500 00 2 05056 16CLA CLA INST-2,2 DOES THIS EXIT GO TO NEXT BB F5D07900 07235 0402 00 0 04125 SUB NXLOC F5D07910 07236 -0100 00 0 07245 TNZ IF2 F5D07920 07237 0500 00 2 05052 CLA INST-6,2 YES, DOES NEXT ONE ALSO F5D07930 07240 0402 00 0 04125 SUB NXLOC F5D07940 07241 -0100 00 0 07245 TNZ IF2 F5D07950 07242 -0754 00 0 00000 PXD 0,0 YES, RECORD SEQUENTIAL TRANSFER F5D07960 07243 0601 00 0 05060 STO SXST F5D07970 07244 1 00010 2 07500 TXI BEGBB,2,8 F5D07980 07245 -0634 00 2 04130 IF2 SXD BBOX1,2 COMPILE THE TPL F5D07990 07246 0500 00 0 04145 CLA SUCNO F5D08000 07247 0074 00 4 03740 TSX SE6,4 F5D08010 07250 0500 00 1 65274 CLA SUCC,1 F5D08020 07251 0074 00 4 06105 TSX SAD,4 FIND AND F5D08030 07252 -0534 00 2 04130 LXD BBOX1,2 REPLACE F5D08040 07253 0602 00 2 05056 SLW INST-2,2 SYMBOLIC ADDRESS F5D08050 BINARY CARD NO. 9F290040 07254 0074 00 4 06151 TSX SCMI,4 F5D08060 07255 1 00004 2 07256 IF3 TXI IF3+1,2,4 F5D08070 07256 -0500 00 2 05057 CAL INST-1,2 IS THIS TRA F5D08080 07257 -0320 00 0 04023 ANA LFMSK F5D08090 07260 0602 00 0 04140 SLW TMP10 F5D08100 07261 0500 00 0 04140 CLA TMP10 F5D08110 07262 0402 00 0 04030 SUB LTRA F5D08120 07263 -0100 00 0 07233 TNZ IFHPR IF NOT , STOP F5D08130 07264 0500 00 2 05056 CLA INST-2,2 YES IT IS IS THIS A F5D08140 07265 0402 00 0 04125 SUB NXLOC SEQUENTIAL TRANSFER F5D08150 07266 -0100 00 0 07272 TNZ IF4 F5D08160 07267 -0754 00 0 00000 PS3 PXD 0,0 YES, RECORD THAT F5D08170 07270 0601 00 0 05060 STO SXST F5D08180 07271 1 00004 2 07500 TXI BEGBB,2,4 F5D08190 07272 -0634 00 2 04130 IF4 SXD BBOX1,2 CONPILE THE TRA F5D08200 07273 0500 00 0 04145 CLA SUCNO F5D08210 07274 0400 00 0 04010 ADD LD2 F5D08220 07275 0074 00 4 03740 TSX SE6,4 F5D08230 07276 0500 00 1 65274 CLA SUCC,1 IF NECESSARY F5D08240 07277 0074 00 4 06105 TSX SAD,4 MODIFY THE F5D08250 07300 -0534 00 2 04130 LXD BBOX1,2 SYMBOLIC F5D08260 07301 0602 00 2 05056 SLW INST-2,2 ADDRESS F5D08270 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 127 SECTION 5, PART FOUR BINARY CARD NO. 9F290041 07302 0074 00 4 06151 TSX SCMI,4 F5D08280 07303 1 00004 2 07500 TXI BEGBB,2,4 F5D08290 07304 0500 00 2 05053 STPCZ CLA INST-5,2 F5D08300 07305 0402 00 0 04030 SUB LTRA F5D08310 07306 -0100 00 0 06701 TNZ NOEND F5D08320 07307 0500 00 2 05060 CLA INST,2 F5D08330 07310 0402 00 2 05052 SUB INST-6,2 F5D08340 07311 -0100 00 0 06701 TNZ NOEND F5D08350 07312 0074 00 4 06151 STPCS TSX SCMI,4 COMPILE THE TWO INXT F5D08360 07313 1 00004 2 07314 STP1 TXI STP1+1,2,4 AND GO TO STAET BB F5D08370 07314 0074 00 4 06151 TSX SCMI,4 F5D08380 07315 1 00004 2 07500 TXI BEGBB,2,4 F5D08390 THIS ROUTINE ELIMINATES EXTRA SXD AND LXD INSERTED AROUND F5D08400 SUBROUTINE CALL SEQUENCES F5D08410 07316 -0500 00 2 05057 CI7A CAL INST-1,2 IS THIS AN SXD INST F5D08420 07317 -0320 00 0 04023 ANA LFMSK F5D08430 07320 0602 00 0 04140 SLW TMP10 F5D08440 07321 0500 00 0 04140 CLA TMP10 F5D08450 07322 0402 00 0 04032 SUB LSXD F5D08460 07323 -0100 00 0 07347 TNZ CI7C F5D08470 07324 -0500 00 2 05055 CAL INST-3,2 YES. DOES IT HAVE TAG 4 ADDRESS +4. F5D08480 07325 0402 00 0 04042 SUB T4SYM F5D08490 07326 -0100 00 0 07347 TNZ CI7C F5D08500 07327 -0500 00 2 05056 CAL INST-2,2 YES. IS IT 6) F5D08510 BINARY CARD NO. 9F290042 07330 -0320 00 0 04015 ANA DECMK F5D08520 07331 0402 00 0 04041 SUB GSYM F5D08530 07332 -0100 00 0 07347 TNZ CI7C F5D08540 07333 0500 00 0 04141 CLA CIND YES, IS IR4 NECESSARY F5D08550 07334 0120 00 0 07336 TPL DLSXD NO. DELETE SXD. F5D08560 07335 0020 00 0 06656 TRA CI7 GO TO COMPILE INSTRUCTION. F5D08570 07336 0500 00 2 05060 DLSXD CLA INST,2 F5D08580 07337 0074 00 4 06346 TSX SK,4 IR4 NOT NECESS. COMPILE BSS 0 F5D08590 07340 0500 00 0 04037 CLA LBSS F5D08600 07341 0074 00 4 06346 TSX SK,4 F5D08610 07342 0500 00 0 04001 CLA ZERO F5D08620 07343 0074 00 4 06346 TSX SK,4 F5D08630 07344 0500 00 0 04001 CLA ZERO F5D08640 07345 0074 00 4 06346 TSX SK,4 F5D08650 07346 1 00004 2 06506 TXI FNDAS,2,4 F5D08660 07347 -0500 00 2 05057 CI7C CAL INST-1,2 IS THIS AN LXD F5D08670 07350 -0320 00 0 04023 ANA LFMSK F5D08680 07351 0602 00 0 04140 SLW TMP10 F5D08690 07352 0500 00 0 04140 CLA TMP10 F5D08700 07353 0402 00 0 04035 SUB LLXD F5D08710 07354 -0100 00 0 06656 TNZ CI7 NO, GO TO COMPILE THE INST F5D08720 07355 -0500 00 2 05055 CAL INST-3,2 IS IT +4,4 F5D08730 BINARY CARD NO. 9F290043 07356 0402 00 0 04042 SUB T4SYM F5D08740 07357 -0100 00 0 06656 TNZ CI7 NO, GO TO COMPILE THE INST. F5D08750 07360 -0500 00 2 05056 CAL INST-2,2 IS IT 6) F5D08760 07361 -0320 00 0 04015 ANA DECMK F5D08770 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 128 SECTION 5, PART FOUR 07362 0402 00 0 04041 SUB GSYM F5D08780 07363 -0100 00 0 06656 TNZ CI7 NO, GO TO COMPILE THE INST. F5D08790 07364 0500 00 0 04141 CLA CIND YES, IS IR4 NECESSARY. F5D08800 07365 0120 00 0 07414 TPL CI7E NO, GO TO REPRESS LATER COMPILING OF INSTF5D08810 07366 -0500 00 2 05053 CAL INST-5,2 YES, IS FOLLOWING INST. AN SXD F5D08820 07367 -0320 00 0 04023 ANA LFMSK F5D08830 07370 0602 00 0 04140 SLW TMP10 F5D08840 07371 0500 00 0 04140 CLA TMP10 F5D08850 07372 0402 00 0 04032 SUB LSXD F5D08860 07373 -0100 00 0 07404 TNZ CI7D F5D08870 07374 -0500 00 2 05051 CAL INST-7,2 YES, IS THE TAG A 4 F5D08880 07375 -0320 00 0 04017 ANA ADDMK F5D08890 07376 0402 00 0 04006 SUB L4 F5D08900 07377 -0100 00 0 07404 TNZ CI7D F5D08910 07400 0500 00 2 05054 CLA INST-4,2 IS SXD FIRST INSTR F5D08920 07401 0402 00 0 04125 SUB NXLOC OF NEXT BB. F5D08930 07402 0100 00 0 07404 TZE CI7D YES, COMPILE LX. F5D08940 07403 1 00004 2 07336 TXI DLSXD,2,4 COMPILE BSS 0 TO SAVE EFN-IFN FOR MAP(21)F5D08950 BINARY CARD NO. 9F290044 07404 0500 00 0 04001 CI7D CLA ZERO CLMPILE THE LXD WITH GARBAGE F5D08960 07405 0074 00 4 06346 TSX SK,4 SYMBOLADDEAA AND TAG 4 F5D08970 07406 0500 00 0 04035 CLA LLXD F5D08980 07407 0074 00 4 06346 TSX SK,4 F5D08990 07410 0500 00 0 04041 CLA GSYM F5D09000 07411 0074 00 4 06346 TSX SK,4 F5D09010 07412 0500 00 0 04042 CLA T4SYM F5D09020 07413 0074 00 4 06346 TSX SK,4 F5D09030 07414 0601 00 0 04142 CI7E STO CPIND SURPRESS LATER COMPILING INST SET + F5D09040 07415 0020 00 0 06660 TRA CKLOC F5D09050 07416 0500 00 2 05055 CI3A CLA INST-3,2 IS THE S-TAG EQUAL TO 4 F5D09060 07417 0602 00 0 04142 SLW CPIND RECORD INST. NOT TO BE COMPILED F5D09070 07420 -0320 00 0 04017 ANA ADDMK F5D09080 07421 0402 00 0 04006 SUB L4 F5D09090 07422 -0100 00 0 06647 TNZ CI6 F5D09100 07423 -0754 00 0 00000 PXD 0,0 YES, RECORD IR4 NOT NECESSARY F5D09110 07424 0601 00 0 04141 STO CIND F5D09120 07425 0020 00 0 06647 TRA CI6 SINCE LXP OR DED, SKIP COMPILING INST. F5D09130 THIS ROUTINE READS ANOTHER BLOCK OF COMPILED INST INTO CS F5D09140 AND SHIFTS THE EXTRA INST TO THE BEGINNING OF BLOCK F5D09150 07426 0634 00 4 07451 RDINS SXA D1XX,4 SAVE RETURN INDEX F5D09160 07427 -0634 00 1 04127 SXD BBOX,1 SAVE INDEX 1 F5D09170 07430 0774 00 4 00014 AXT 12,4 SHIFT EXTRA INST FROM END F5D09180 07431 0500 00 4 04550 D1CLA CLA NDINS,4 OF BLOCK TO BEGINNING F5D09190 BINARY CARD NO. 9F290045 07432 0601 00 4 05060 STO INST,4 F5D09200 07433 2 00001 4 07431 TIX D1CLA,4,1 IS BLOCK SHIFTED F5D09210 07434 0074 00 4 73606 TSX (TAPE),4 F5D09220 07435 0 40014 0 07472 INSRD,,(RBEC) F5D09230 07436 0 00004 0 03757 INSLBL,,FTAPE4 F5D09240 07437 0534 00 1 73676 LXA (SCHU)+FTAPE4,1 F5D09250 07440 -3 00000 1 07457 TXL D2END,1,0 F5D09260 07441 1 67336 1 07442 TXI *+1,1,-CTBUF F5D09270 07442 -3 00307 1 07454 TXL D1END,1,ZINST-1 F5D09280 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 129 SECTION 5, PART FOUR 07443 0774 00 1 00310 MO AXT ZINST,1 F5D09290 07444 0535 00 4 07443 LAC MO,4 F5D09300 07445 0500 00 4 10441 MOVEC CLA CTBUF-1,4 F5D09310 07446 0601 00 1 05044 STO INST-12,1 F5D09320 07447 1 00001 4 07450 TXI *+1,4,1 F5D09330 07450 2 00001 1 07445 TIX MOVEC,1,1 F5D09340 07451 0774 00 4 00000 D1XX AXT SET,4 NO ERROR, RESTORE INDEX REGISTERS F5D09350 07452 -0534 00 1 04127 LXD BBOX,1 F5D09360 07453 0020 00 4 00001 TRA 1,4 RETURN TO MAIN ROUTINE F5D09370 07454 0761 00 0 00000 D1END NOP *F5D09380 07455 0761 00 0 00000 NOP *F5D09390 07456 0761 00 0 00000 NOP *F5D09400 07457 0634 00 1 07443 D2END SXA MO,1 F5D09410 BINARY CARD NO. 9F290046 07460 1 00001 1 07461 TXI *+1,1,1 F5D09420 07461 0500 00 0 04016 CLA ENDMK F5D09430 07462 0601 00 1 05044 STO INST-12,1 F5D09440 07463 1 00010 1 07464 TXI *+1,1,8 F5D09450 07464 -0634 00 1 06506 SXD FNDAS,1 F5D09460 07465 0500 00 0 04047 CLA LCOUT PUT ADDR OF FINAL EXIT INTO MAIN F5D09470 07466 0601 00 0 06507 STO FNDAS+1 ROUTINE F5D09480 07467 0520 00 0 73676 ZET (SCHU)+FTAPE4 F5D09490 07470 0020 00 0 07443 TRA MO F5D09500 07471 0020 00 0 07451 TRA D1XX F5D09510 07472 3 00310 0 10442 INSRD IORT CTBUF,,ZINST F5D09520 ENTRY POINT FOR PART 4 HERE. F5D09530 07473 0774 00 2 00014 PASS2 AXT 12,2 BEGINNING OF PART 4 CYCLING. F5D09540 07474 0074 00 4 73606 TSX (TAPE),4 REWIND TAPE 3. F5D09550 07475 0 20000 0 03765 SEK4,,(SKBP) F5D09560 07476 0 00003 0 00000 ,,FTAPE3 F5D09570 07477 1 00311 2 10753 1TXI TXI SXPC1,2,ZINST+1 (32)F5D09580 INITIALIZE FOR START OF BB F5D09590 07500 -0634 00 2 04130 BEGBB SXD BBOX1,2 STORE INDEX OF POSITION ON INST TAPE F5D09600 07501 0500 00 0 04003 CLA ONED F5D09610 07502 0400 00 0 04124 ADD BBNO F5D09620 07503 0601 00 0 04124 STO BBNO F5D09630 07504 0771 00 0 00022 ARS 18 WAS THIS THE LAST BB F5D09640 07505 0402 00 0 73574 SUB KEYS F5D09650 BINARY CARD NO. 9F290047 07506 0400 00 0 04002 ADD ONEA F5D09660 07507 0100 00 0 10402 NDTST TZE CHEF *F5D09670 07510 0500 00 0 05060 CLA SXST NO F5D09680 07511 -0120 00 0 07514 TMI BEGBY F5D09690 07512 0500 00 0 04017 CLA ADDMK F5D09700 07513 0601 00 0 05060 STO SXST F5D09710 07514 0500 00 0 04124 BEGBY CLA BBNO F5D09720 07515 0074 00 4 03745 TSX SE,4 F5D09730 07516 -0500 00 1 40006 CAL BBB+2,1 GET ENTRANCE REQUIREMENT F5D09740 07517 0771 00 0 00022 ARS 18 FOR IR4 F5D09750 07520 0402 00 0 04020 SUB STMSK STORE + OR - IF IR4 F5D09760 07521 0601 00 0 04141 STO CIND ISNT OR IS NECESSARY F5D09770 07522 0500 00 0 04002 CLA ONEA RECORD THERE ISNT HANGING TRA 0 F5D09780 07523 0601 00 0 04475 STO SLV3 F5D09790 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 130 SECTION 5, PART FOUR 07524 -0500 00 0 04124 CAL BBNO FIND THE 1ST INST IN NEXT F5D09800 07525 0400 00 0 04003 ADD ONED F5D09810 07526 0074 00 4 03745 TSX SE,4 BB F5D09820 07527 0500 00 1 40011 CLA BBB+5,1 F5D09830 07530 0601 00 0 04125 STO NXLOC F5D09840 DETERMINE WHICH LXD CASES EXIST , RESULT IN Z1V5 F5D09850 07531 0560 00 0 04001 Z1 LDQ ZERO INITIALIZE THE EXISTENCE F5D09860 07532 -0600 00 0 04503 STQ Z1V5 INDICATOR WORD F5D09870 07533 0500 00 1 40004 CLA BBB,1 GET AND STORE NO. OF 1ST PRED IN F5D09880 BINARY CARD NO. 9F290048 07534 0621 00 0 04501 STA Z1V2 NEXT BB F5D09890 07535 -0500 00 0 04124 CAL BBNO F5D09900 07536 0074 00 4 03745 TSX SE,4 F5D09910 07537 -0500 00 1 40004 CAL BBB,1 STORE THE NO OF F5D09920 07540 0621 00 0 04502 STA Z1V3 1ST PRED IN F5D09930 07541 0621 00 0 04504 STA Z1V8 THIS BB F5D09940 07542 0500 00 0 04502 CLA Z1V3 F5D09950 07543 0340 00 0 04501 Z15 CAS Z1V2 IS THIS PRED IN SAME BB F5D09960 07544 0020 00 0 07546 TRA Z12 YES F5D09970 07545 0020 00 0 07562 TRA Z2 NO F5D09980 07546 0074 00 4 03741 Z12 TSX SE5,4 F5D09990 07547 0500 00 1 56774 CLA PRED,1 DETERMINE THE F5D10000 07550 -0320 00 0 04014 ANA LT7 LXD CASE F5D10010 07551 0767 00 0 00003 ALS 3 F5D10020 07552 -0734 00 4 00000 PDX 0,4 F5D10030 07553 -0500 00 0 04077 CAL Z1K3 STORE BIT AS INDICATOR F5D10040 07554 0771 00 4 00007 ARS 7,4 FOR THIS F5D10050 07555 -0602 00 0 04503 ORS Z1V5 LXD CASE F5D10060 07556 0500 00 0 04502 CLA Z1V3 F5D10070 07557 0400 00 0 04002 ADD ONEA ARRANGE TO DEAL WITH NEXT F5D10080 07560 0621 00 0 04502 STA Z1V3 PRED F5D10090 07561 0020 00 0 07543 TRA Z15 F5D10100 THIS OPEN S. R. FORMS THE LXD LISTS FROM TNE INFO LEFT IN F5D10110 Z1V5 BY Z1 F5D10120 BINARY CARD NO. 9F290049 07562 0560 00 0 04001 Z2 LDQ ZERO F5D10130 07563 0774 00 1 00003 AXT 3,1 F5D10140 07564 -0600 00 1 04530 Z21 STQ LLIND,1 SET THE 3 INDEXDS TO THE SUB F5D10150 07565 0500 00 1 04103 CLA Z2K1+3,1 BOTTOM POSITIONS F5D10160 07566 0402 00 0 04003 SUB ONED IN THE 3 LISTS AND ALL F5D10170 07567 0601 00 1 04510 STO Z2V1+3,1 INDICATORS TO SAY COMPILED F5D10180 07570 2 00001 1 07564 TIX Z21,1,1 F5D10190 07571 0774 00 1 00014 AXT 12,1 F5D10200 07572 0500 00 0 04077 CLA MZE PLACE -0 S IN THE F5D10210 07573 0601 00 1 04525 Z28 STO LIST1+12,1 LXD LISTS F5D10220 07574 2 00001 1 07573 TIX Z28,1,1 F5D10230 07575 0774 00 1 00007 AXT 7,1 SET TO BEGINNING OF CASE LIST F5D10240 07576 0560 00 0 04503 Z25 LDQ Z1V5 DID F5D10250 07577 0500 00 1 04113 CLA CASE+7,1 THIS F5D10260 07600 0734 00 2 00000 PAX 0,2 CASE F5D10270 07601 -0773 00 2 00007 RQL 7,2 OCCURR F5D10280 07602 0162 00 0 07645 TQP Z26 F5D10290 07603 0500 00 0 04115 CLA Z2K5 YES, SET NO OF ONES IN F5D10300 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 131 SECTION 5, PART FOUR 07604 0601 00 0 04510 STO Z2V2 DIFFERENCE TO HIGH NUMBER F5D10310 07605 0774 00 2 00003 AXT 3,2 INITIALIZE TO 1ST LIST F5D10320 07606 0560 00 0 04001 Z23 LDQ ZERO IS P004 F5D10330 07607 0500 00 2 04510 CLA Z2V1+3,2 F5D10340 BINARY CARD NO. 9F290050 07610 -0734 00 4 00000 R004 PDX 0,4 QUANTITY IN THE LIST F5D10350 07611 0500 00 4 04511 CLA LIST1,4 IS THE TOP F5D10360 07612 -0320 00 1 04113 ANA CASE+7,1 YES, DETERMINE F5D10370 07613 -0400 00 4 04511 SBM LIST1,4 CONTAINED IN THIS F5D10380 07614 -0100 00 0 07632 TNZ Z27 CASE F5D10390 07615 0500 00 1 04113 CLA CASE+7,1 YES, DETERMINE F5D10400 07616 0402 00 4 04511 SUB LIST1,4 THE NO. F5D10410 07617 0765 00 0 00025 LRS 21 OF ONES F5D10420 07620 0200 00 0 04114 MPY Z2K4 IN THE F5D10430 07621 0621 00 0 07623 STA Z22 LOGICAL F5D10440 07622 0500 00 0 04113 CLA Z2K3 DIFFERENCE F5D10450 07623 0771 00 0 00000 Z22 ARS SET F5D10460 07624 -0320 00 0 04115 ANA Z2K5 F5D10470 07625 0340 00 0 04510 CAS Z2V2 IS THE NUMBER OF ONES IN THE F5D10480 07626 0020 00 0 07632 TRA Z27 DIFFERENCE LESS THAN OR EQUAL TO F5D10490 07627 0020 00 0 07632 TRA Z27 THE PREVIOUS MINIMUM. NO F5D10500 07630 0601 00 0 04510 STO Z2V2 YES, STORE NEW MIN F5D10510 07631 0634 00 2 07633 SXA Z271,2 STORE INDEX OF LIST OF GIVING NEW MIN F5D10520 07632 2 00001 2 07606 Z27 TIX Z23,2,1 COUNT TO 3 LISTS ARE WE THRU F5D10530 07633 0774 00 2 00000 Z271 AXT SET,2 YES, GET INDEX OF LIST WITH MIN DIFF F5D10540 07634 0500 00 2 04510 CLA Z2V1+3,2 STIRE F5D10550 07635 -0734 00 4 00000 PDX 0,4 THIS F5D10560 BINARY CARD NO. 9F290051 07636 0500 00 1 04113 CLA CASE+7,1 CASE AT TOP OF F5D10570 07637 1 00001 4 07640 Z24 TXI Z24+1,4,1 THAT LIST F5D10580 07640 0601 00 4 04511 STO LIST1,4 F5D10590 07641 -0754 00 4 00000 PXD 0,4 STORE INDEX OF TOP F5D10600 07642 0601 00 2 04510 STO Z2V1+3,2 POSITION IN THAT LIST F5D10610 07643 0500 00 0 04077 CLA MZE STORE INDICATION THAT THE F5D10620 07644 0601 00 2 04530 STO LLIND,2 LIST IS TO BE COMPILED F5D10630 07645 2 00001 1 07576 Z26 TIX Z25,1,1 COUNT THE 7 CASES F5D10640 EXPAND THE LXD LISTS. F5D10650 07646 0500 00 0 04115 Z3 CLA Z2K5 IS THE F5D10660 07647 -0400 00 0 04513 SBM LIST1+2 BOTTOM ENTRY OF F5D10670 07650 0100 00 0 07737 TZE Z307 LIST1 A CASE 7 F5D10680 07651 0500 00 0 04513 CLA LIST1+2 NO, DO THE BOTTOMS F5D10690 07652 -0320 00 0 04517 ANA LIST2+2 OF LISTS 1 AND 2 HAVE F5D10700 07653 0100 00 0 07722 TZE Z35 A NON ZERO INTERSECTION F5D10710 07654 0340 00 0 04513 CAS LIST1+2 YES, DOES INTERSECTION EQUAL 1 F5D10720 07655 0020 00 0 07657 TRA Z31 F5D10730 07656 0020 00 0 07714 TRA Z33 YES F5D10740 07657 0340 00 0 04517 Z31 CAS LIST2+2 IS IT EQUAL TO BOTTOM OF 2 F5D10750 07660 0020 00 0 07662 TRA Z32 F5D10760 07661 0020 00 0 07717 TRA Z34 YES F5D10770 07662 0601 00 0 04514 Z32 STO LIST1+3 STORE INTERSECTION IN SUB1 F5D10780 07663 -0760 00 0 00003 SSM POSITITON AND -(INTER.) IN F5D10790 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 132 SECTION 5, PART FOUR BINARY CARD NO. 9F290052 07664 0601 00 0 04520 STO LIST2+3 SUB2 POS. F5D10800 07665 0020 00 0 07751 TRA Z306 F5D10810 07666 -0760 00 0 00003 Z38 SSM ENTER -INTER1 AND 3 F5D10820 07667 0601 00 0 04524 STO LIST3+3 IN SUB3 POS. F5D10830 07670 0020 00 0 07751 TRA Z306 F5D10840 07671 -0760 00 0 00003 Z39 SSM ENTER - INTER 1 AND 3 F5D10850 07672 0601 00 0 04514 STO LIST1+3 INSUV1 POS. F5D10860 07673 0020 00 0 07751 TRA Z306 F5D10870 07674 0500 00 0 04517 Z300 CLA LIST2+2 DO BOTTOM ENTRIES F5D10880 07675 -0320 00 0 04523 ANA LIST3+2 OF 2 AND 3 HAVE F5D10890 07676 0100 00 0 07751 TZE Z306 NONZERO INTERSECTION F5D10900 07677 0340 00 0 04517 CAS LIST2+2 YES, IS INTRE 2 AND 3 F5D10910 07700 0020 00 0 07702 TRA Z301 F5D10920 07701 0020 00 0 07711 TRA Z303 YES F5D10930 07702 0340 00 0 04523 Z301 CAS LIST3+2 IS INTERSECTION EQUAL TO BOTTOM OF LIST 3F5D10940 07703 0020 00 0 07705 TRA Z302 F5D10950 07704 0020 00 0 07747 TRA Z304 YES F5D10960 07705 0601 00 0 04524 Z302 STO LIST3+3 STORE INTER 2 AND 3 IN SUB 3 POS. F5D10970 07706 -0760 00 0 00003 SSM AND -INTER IN F5D10980 07707 0601 00 0 04520 STO LIST2+3 SUB 2 POS. F5D10990 07710 0020 00 0 07751 TRA Z306 F5D11000 07711 -0760 00 0 00003 Z303 SSM ENTER -(INTER 2 AND 3 ) F5D11010 BINARY CARD NO. 9F290053 07712 0601 00 0 04524 STO LIST3+3 IN SUB 3 POS. F5D11020 07713 0020 00 0 07751 TRA Z306 F5D11030 07714 -0760 00 0 00003 Z33 SSM ENTER -(INTER 1 AND 2 ) F5D11040 07715 0601 00 0 04520 STO LIST2+3 IN SUB 2 POS. F5D11050 07716 0020 00 0 07751 TRA Z306 F5D11060 07717 -0760 00 0 00003 Z34 SSM STORE -(INTER 1 AND 2 ) F5D11070 07720 0601 00 0 04514 STO LIST1+3 IN SUB 1 POS. F5D11080 07721 0020 00 0 07751 TRA Z306 F5D11090 07722 0500 00 0 04513 Z35 CLA LIST1+2 DO BOTTOM ENTRIES IN F5D11100 07723 -0320 00 0 04523 ANA LIST3+2 1 AND 3 HAVE NONZERO F5D11110 07724 0100 00 0 07674 TZE Z300 INTERSECTION F5D11120 07725 0340 00 0 04513 CAS LIST1+2 YES, IS IT EQUAL TO BOT. 1 F5D11130 07726 0020 00 0 07730 TRA Z36 F5D11140 07727 0020 00 0 07666 TRA Z38 YES F5D11150 07730 0340 00 0 04523 Z36 CAS LIST3+2 TO THE BOTTOM ENTRY IN 3 F5D11160 07731 0020 00 0 07733 TRA Z37 F5D11170 07732 0020 00 0 07671 TRA Z39 YES F5D11180 07733 0601 00 0 04524 Z37 STO LIST3+3 ENTER INTER 1 AND 3 IN SUB F5D11190 07734 -0760 00 0 00003 SSM 3 POS. AND -( INTER ) IN F5D11200 07735 0601 00 0 04514 STO LIST1+3 SUB1 POS. F5D11210 07736 0020 00 0 07751 TRA Z306 F5D11220 07737 -0634 00 0 04505 Z307 SXD Z2V1,0 CREATE THE LIST F5D11230 BINARY CARD NO. 9F290054 07740 0500 00 0 04007 CLA L7 F5D11240 07741 0601 00 0 04511 STO LIST1 F5D11250 07742 0500 00 0 04005 CLA L3 F5D11260 07743 0601 00 0 04512 STO LIST1+1 F5D11270 07744 0500 00 0 04002 CLA ONEA F5D11280 07745 0601 00 0 04513 STO LIST1+2 F5D11290 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 133 SECTION 5, PART FOUR 07746 0020 00 0 10007 TRA Z4 F5D11300 07747 -0760 00 0 00003 Z304 SSM ENTER - INTER 2 AND 3 F5D11310 07750 0601 00 0 04520 Z305 STO LIST2+3 INSUB2 POS. F5D11320 07751 0774 00 2 00003 Z306 AXT 3,2 SET COUNT TO 3 F5D11330 07752 0774 00 1 00000 AXT 0,1 SET TO INSPECT 1ST LIST F5D11340 07753 0500 00 1 04513 Z309 CLA LIST1+2,1 F5D11350 07754 0100 00 0 07765 TZE Z308 IS THE BOTTOM ENTRY ZERO F5D11360 07755 0402 00 0 04002 SUB ONEA NO F5D11370 07756 -0320 00 1 04513 ANA LIST1+2,1 DOES IT HAVE TWO ONES F5D11380 07757 0100 00 0 07765 TZE Z308 F5D11390 07760 0601 00 0 04140 STO TMP10 YES F5D11400 07761 0500 00 1 04514 CLA LIST1+3,1 IS THE SUB BOTTOM F5D11410 07762 -0100 00 0 07765 TNZ Z308 ENTRY ZERO F5D11420 07763 0500 00 0 04140 CLA TMP10 YES F5D11430 07764 0601 00 1 04514 STO LIST1+3,1 F5D11440 07765 1 77774 1 07766 Z308 TXI Z308+1,1,-4 PREPARE FOR NEXT LIST F5D11450 BINARY CARD NO. 9F290055 07766 2 00001 2 07753 TIX Z309,2,1 COUNT TO 3 F5D11460 07767 0500 00 0 04115 CLA Z2K5 F5D11470 07770 -0400 00 0 04512 SBM LIST1+1 F5D11480 07771 -0100 00 0 10007 TNZ Z4 F5D11490 07772 0500 00 0 04513 CLA LIST1+2 F5D11500 07773 0402 00 0 04002 SUB ONEA F5D11510 07774 -0320 00 0 04513 ANA LIST1+2 F5D11520 07775 -0100 00 0 10007 TNZ Z4 F5D11530 07776 0500 00 0 04513 CLA LIST1+2 F5D11540 07777 0601 00 0 04514 STO LIST1+3 F5D11550 10000 0500 00 0 04115 CLA Z2K5 F5D11560 10001 0402 00 0 04513 SUB LIST1+2 F5D11570 10002 0601 00 0 04513 STO LIST1+2 F5D11580 10003 0402 00 0 04002 SUB ONEA F5D11590 10004 0320 00 0 04513 ANS LIST1+2 F5D11600 10005 -0500 00 0 04514 CAL LIST1+3 F5D11610 10006 -0602 00 0 04513 ORS LIST1+2 F5D11620 DETECT AND COMPILE ANY SEQUENTIAL TRANSFER F5D11630 10007 0560 00 0 04077 Z4 LDQ MZE PUT MINUS ZEROS IN F5D11640 10010 -0600 00 0 05104 STQ SXAS THE ASSOXIATED F5D11650 10011 0774 00 4 00023 AXT 19,4 SXDPOSITIONS F5D11660 10012 -0600 00 4 05104 Z411 STQ SXST+20,4 F5D11670 10013 2 00001 4 10012 TIX Z411,4,1 F5D11680 BINARY CARD NO. 9F290056 10014 0500 00 0 05060 CLA SXST F5D11690 10015 -0120 00 0 10074 TMI Z5 IS THERE A SEQUENTIAL TRANSFER F5D11700 10016 -0500 00 0 04124 CAL BBNO YES F5D11710 10017 0771 00 0 00022 ARS 18 F5D11720 10020 0402 00 0 04002 SUB ONEA F5D11730 10021 0601 00 0 04140 STO TMP10 PUT NO OF PREV. BB IN TMP10 F5D11740 10022 0500 00 0 04504 CLA Z1V8 INITIALIZE 1ST PRED NO THIS BB F5D11750 10023 0601 00 0 04502 Z49 STO Z1V3 F5D11760 10024 0074 00 4 03741 TSX SE5,4 F5D11770 10025 -0500 00 1 56774 CAL PRED,1 F5D11780 10026 -0320 00 0 04017 ANA ADDMK IS THIS THE SEQUENTIAL F5D11790 10027 0402 00 0 04140 SUB TMP10 TRANSFERS PRED ENTRY F5D11800 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 134 SECTION 5, PART FOUR 10030 0100 00 0 10034 TZE Z410 F5D11810 10031 -0500 00 0 04502 CAL Z1V3 NO, TRY NEXT ONE F5D11820 10032 0400 00 0 04002 ADD ONEA F5D11830 10033 0020 00 0 10023 TRA Z49 F5D11840 10034 0500 00 0 04502 Z410 CLA Z1V3 GET THE PRED NO F5D11850 10035 0074 00 4 06170 TSX SH,4 FORM THE SXD CASE F5D11860 10036 0500 00 0 04147 CLA SXD1 F5D11870 10037 0400 00 0 04150 ADD SXD2 F5D11880 10040 0400 00 0 04151 ADD SXD3 F5D11890 10041 0100 00 0 10053 TZE Z44 IS THIS A 0 SXD CASE F5D11900 BINARY CARD NO. 9F290057 10042 0774 00 4 00004 AXT 4,4 ISNT 0 SXD CASE F5D11910 10043 0500 00 4 04152 Z41 CLA SXD1+3,4 RECORD SXD CASE F5D11920 10044 0601 00 4 05064 STO SXST+4,4 IN POSITION ASSOCIATED F5D11930 10045 2 00001 4 10043 TIX Z41,4,1 WITH SEQUENTIAL TRANSFER F5D11940 10046 0774 00 1 00000 AXT 0,1 COMPILE THE SXD F5D11950 10047 0074 00 4 06221 TSX SI,4 INST. WITH F5D11960 10050 0020 00 0 10074 TRA Z47 (1) ASSOCIATED SXD WITH 0 LXD CASE F5D11970 10051 0074 00 4 06421 Z42 TSX SM,4 (2)ASSOCIATED WITH AN LXD LIST F5D11980 10052 0020 00 0 10074 TRA Z47 (3) NOT ASSOCIATED ( TRA COMPILED ) F5D11990 10053 -0534 00 4 04146 Z44 LXD SXD0,4 F5D12000 10054 -3 00000 4 10072 TXL Z46,4,0 DOES IT HAVE A 0 LXD CASE F5D12010 10055 -0754 00 4 00000 PXD 0,4 NO F5D12020 10056 0771 00 0 00022 ARS 18 LXD CASE TO AC (ADDR) F5D12030 10057 0601 00 0 04530 STO Z4V1 F5D12040 10060 0774 00 2 00003 AXT 3,2 SET COUNT TO 3 , N=1 F5D12050 10061 0500 00 2 04510 Z45 CLA Z2V1+3,2 GET INDEX F5D12060 10062 -0734 00 1 00000 PDX 0,1 OF TOP QUANTITY IN LIST N F5D12070 10063 0500 00 1 04511 CLA LIST1,1 IS THE LXD CASE OF THIS SXD F5D12080 10064 0402 00 0 04530 SUB Z4V1 CASE THE SAME AS F5D12090 10065 0100 00 0 10051 TZE Z42 THE TOP QUANTITY IN LIST N F5D12100 10066 2 00001 2 10061 TIX Z45,2,1 NO, COUNT TO 3 F5D12110 10067 0500 00 0 04530 CLA Z4V1 COMPILE A F5D12120 BINARY CARD NO. 9F290058 10070 0074 00 4 06364 TSX SL,4 TRA (LXD ) F5D12130 10071 0020 00 0 10074 TRA Z47 F5D12140 10072 0502 00 0 04002 Z46 CLS ONEA RECORD THAT THERE F5D12150 10073 0601 00 0 04475 Z48 STO SLV3 IS A HANGING TRA 0CASE F5D12160 10074 Z47 SYN Z48+1 F5D12170 FORM THE SXD LIST AND THE SYN CARD LIST F5D12180 10074 0500 00 0 04003 Z5 CLA ONED SET INDEX IN SYN TABLE F5D12190 10075 0601 00 0 04531 STO Z5V1 F5D12200 10076 0500 00 0 04504 CLA Z1V8 RESET 1 ST PRED IN BB F5D12210 10077 0601 00 0 04502 Z53 STO Z1V3 F5D12220 10100 0402 00 0 04501 SUB Z1V2 IS THIS PRED IN SAME BB F5D12230 10101 0100 00 0 10217 TZE Z6 NO, ADD FINISHED F5D12240 10102 0500 00 0 05060 CLA SXST YES F5D12250 10103 -0120 00 0 10107 TMI Z51 WAS THERE A SEQUENTIAL TRANSFER F5D12260 10104 -0320 00 0 04017 ANA ADDMK YES, EXTRACT ADDRESS F5D12270 10105 0402 00 0 04502 SUB Z1V3 HAS PRED ALREDY BEEN CONSIDERED F5D12280 10106 0100 00 0 10147 TZE Z55 AS A SEQUENTIAL TRANSFER F5D12290 10107 0500 00 0 04502 Z51 CLA Z1V3 NO F5D12300 10110 0074 00 4 06170 TSX SH,4 GENERATE SXD CASE F5D12310 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 135 SECTION 5, PART FOUR 10111 0500 00 0 04147 CLA SXD1 IS THE F5D12320 10112 0400 00 0 04150 ADD SXD2 SXD CASE F5D12330 10113 0400 00 0 04151 ADD SXD3 ZERO F5D12340 10114 0100 00 0 10147 TZE Z55 F5D12350 10115 0774 00 1 00000 AXT 0,1 NO, PREPARE TO SCAN SXD LIST F5D12360 BINARY CARD NO. 9F290059 10116 0500 00 1 05060 Z503 CLA SXST,1 IS SUBSXD0 F5D12370 10117 -0320 00 0 04015 ANA DECMK F5D12380 10120 0601 00 0 04140 STO TMP10 F5D12390 10121 0500 00 0 04146 CLA SXD0 F5D12400 10122 -0320 00 0 04015 ANA DECMK F5D12410 10123 0402 00 0 04140 SUB TMP10 F5D12420 10124 -0100 00 0 10152 TNZ Z54 F5D12430 10125 0500 00 1 05061 CLA SXST+1,1 THIS SXD CASE F5D12440 10126 0402 00 0 04147 SUB SXD1 F5D12450 10127 -0100 00 0 10152 TNZ Z54 F5D12460 10130 0500 00 1 05062 CLA SXST+2,1 SAME AS F5D12470 10131 0402 00 0 04150 SUB SXD2 F5D12480 10132 -0100 00 0 10152 TNZ Z54 F5D12490 10133 0500 00 1 05063 CLA SXST+3,1 THE ONE ALREADY F5D12500 10134 0402 00 0 04151 SUB SXD3 STORED F5D12510 10135 -0100 00 0 10152 TNZ Z54 F5D12520 10136 0500 00 1 05060 CLA SXST,1 YES, STORE INDICATION F5D12530 10137 0020 00 0 10410 TEST1 TRA PTCH1 TEST FOR ROOM IN THE SYN CARD TABLE $F5D12540 10140 -0320 00 0 04017 ANA ADDMK SYN,2 CARD F5D12550 10141 0601 00 2 06104 STO SYN,2 IN THE F5D12560 10142 0500 00 0 04146 CLA SXD0 SYN F5D12570 10143 0767 00 0 00022 ALS 18 LIST F5D12580 BINARY CARD NO. 9F290060 10144 0622 00 2 06104 STD SYN,2 F5D12590 10145 1 00001 2 10146 Z52 TXI Z52+1,2,1 F5D12600 10146 -0634 00 2 04531 SXD Z5V1,2 F5D12610 10147 0500 00 0 04502 Z55 CLA Z1V3 PREPARE TO DEAL WITH NEXT PRED F5D12620 10150 0400 00 0 04002 ADD ONEA F5D12630 10151 0020 00 0 10077 TRA Z53 F5D12640 10152 0500 00 1 05060 Z54 CLA SXST,1 F5D12650 10153 0120 00 0 10166 TPL Z502 IS THIS SXD POS. EMPTY F5D12660 10154 0020 00 0 10422 TEST2 TRA PTCH2 TEST FOR ROOM IN THE SXD TABLE $F5D12670 10155 -3 00000 1 10166 TXL Z502,1,0 IS THIS ST CASE F5D12680 10156 3 77773 1 10167 TXH Z504,1,-4-1 NO, IS THIS 0 LIST CASE F5D12690 10157 3 77767 1 10176 TXH Z507,1,-8-1 NO 1ST F5D12700 10160 3 77763 1 10175 TXH Z506,1,-12-1 2ED F5D12710 10161 3 77757 1 10174 TXH Z505,1,-16-1 3RD F5D12720 10162 0074 00 4 10206 TSX Z500,4 ENTER THE SXD CASE IN THE LIST F5D12730 10163 0500 00 0 04077 CLA MZE F5D12740 10164 0601 00 1 05064 STO SXST+4,1 STORE END MARK FOR SYN CAEDS F5D12750 10165 0020 00 0 10147 TRA Z55 F5D12760 10166 1 77774 1 10116 Z502 TXI Z503,1,-4 EXAMINE NEXT SXD CASE F5D12770 10167 -0500 00 0 04146 Z504 CAL SXD0 ZERO LIST CASE F5D12780 10170 -0320 00 0 04015 ANA DECMK IS THE LXD CASE 0 F5D12790 10171 -0100 00 0 10166 TNZ Z502 F5D12800 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 136 SECTION 5, PART FOUR BINARY CARD NO. 9F290061 10172 0074 00 4 10206 TSX Z500,4 YES, ENTER SXD CASE IN F5D12810 10173 0020 00 0 10147 TRA Z55 ASSOCIATED POSITION F5D12820 10174 2 00001 2 10175 Z505 TIX Z505+1,2,1 GENERATE INDEX OF LIST F5D12830 10175 2 00001 2 10176 Z506 TIX Z506+1,2,1 F5D12840 10176 -0500 00 2 04510 Z507 CAL Z2V1+3,2 IS F5D12850 10177 -0734 00 4 00000 PDX 0,4 THE F5D12860 10200 0500 00 0 04146 CLA SXD0 LXD F5D12870 10201 0771 00 0 00022 ARS 18 CASE THE F5D12880 10202 0402 00 4 04511 SUB LIST1,4 SAME F5D12890 10203 -0100 00 0 10166 TNZ Z502 F5D12900 10204 0074 00 4 10206 TSX Z500,4 YES F5D12910 10205 0020 00 0 10147 TRA Z55 F5D12920 SUBROUTINE FOR ENTERING SXD CASE IN SXD LIST F5D12930 10206 0500 00 0 04146 Z500 CLA SXD0 F5D12940 10207 0601 00 1 05060 STO SXST,1 F5D12950 10210 0500 00 0 04147 CLA SXD1 F5D12960 10211 0601 00 1 05061 STO SXST+1,1 F5D12970 10212 0500 00 0 04150 CLA SXD2 F5D12980 10213 0601 00 1 05062 STO SXST+2,1 F5D12990 10214 0500 00 0 04151 CLA SXD3 F5D13000 10215 0601 00 1 05063 STO SXST+3,1 F5D13010 10216 0020 00 4 00001 TRA 1,4 F5D13020 COMPILE THE SXD LIST F5D13030 10217 0774 00 1 77754 Z6 AXT -20,1 SET TO START OF SXD LIST F5D13040 BINARY CARD NO. 9F290062 10220 0500 00 1 05060 Z61 CLA SXST,1 F5D13050 10221 -0120 00 0 10230 TMI Z7 IS THIS SXD POSITION EMPTY F5D13060 10222 -0634 00 1 10225 SXD Z6V1,1 NO F5D13070 10223 0074 00 4 06221 TSX SI,4 COMPILE THE SXD CASE WITH F5D13080 10224 0761 00 0 00000 NOP (1) 0 LXD CASE, OR F5D13090 10225 3 00000 0 00000 Z6V1 TXH 0,0,SET (2) THIS RETURN CANT OCCURR F5D13100 10226 -0534 00 1 10225 LXD Z6V1,1 (3) TRA ALREADY CONPILED F5D13110 10227 1 77774 1 10220 TXI Z61,1,-4 F5D13120 COMPILE TNE LXD LISTS AND ASSOCIATED SXD S F5D13130 10230 0774 00 2 00003 Z7 AXT 3,2 SET TO BEGIN SCAN OF LISTS F5D13140 10231 0500 00 2 04103 Z72 CLA Z2K1+3,2 F5D13150 10232 -0734 00 1 00000 PDX 0,1 PUT INDEX OF BOTTOM POSITION IN 1 F5D13160 10233 0500 00 1 04511 CLA LIST1,1 F5D13170 10234 -0120 00 0 10304 TMI Z75 YES, IS IT A TRA(0) CASE F5D13180 10235 0100 00 0 10254 TZE Z73 IS THE LIST FILLED F5D13190 10236 0500 00 1 04512 CLA LIST1+1,1 PERHAPS, IS IT A FOR SURE F5D13200 10237 0100 00 0 10304 TZE Z75 IT IS IF EITHER THE SUB BOTTOM F5D13210 10240 0120 00 0 10304 TPL Z75 ENTRY IS -0 OR POSITIVE F5D13220 10241 0500 00 0 04533 CLA Z7V2 F5D13230 10242 -0120 00 0 10254 TMI Z73 IS THIS 1ST TIME THRU F5D13240 10243 0500 00 2 04124 Z76 CLA Z7K1+3,2 YES F5D13250 10244 -0734 00 1 00000 PDX 0,1 IS THERE ASSOCIATED F5D13260 10245 0500 00 1 05060 CLA SXST,1 SXDLIST F5D13270 BINARY CARD NO. 9F290063 10246 -0634 00 2 04532 SXD Z7V1,2 F5D13280 10247 -0120 00 0 10300 TMI Z74 F5D13290 10250 0074 00 4 06221 TSX SI,4 YES, COMPILE SXD CASE F5D13300 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 137 SECTION 5, PART FOUR 10251 0020 00 0 10253 TRA Z71 F5D13310 10252 0020 00 0 10267 TRA Z77 COMPILE F5D13320 10253 -0534 00 2 04532 Z71 LXD Z7V1,2 F5D13330 10254 2 00001 2 10231 Z73 TIX Z72,2,1 COUNT TO 3 F5D13340 10255 0502 00 0 04533 CLS Z7V2 IS THIS 1ST TIME THRU F5D13350 10256 0601 00 0 04533 STO Z7V2 F5D13360 10257 -0120 00 0 10230 TMI Z7 YES, GO BACK CLASXST F5D13370 10260 0500 00 0 05064 CLA SXAS0 IS THERE A 0 ASSOCIATED SXD CASE F5D13380 10261 -0120 00 0 10307 TMI Z8 F5D13390 10262 0774 00 1 77774 AXT -4,1 YES F5D13400 10263 0074 00 4 06221 TSX SI,4 COMPILE SXD CASE F5D13410 10264 0020 00 0 10307 TRA Z8 F5D13420 10265 0020 00 0 10307 TRA Z8 F5D13430 10266 0020 00 0 10307 TRA Z8 F5D13440 10267 -0534 00 2 04532 Z77 LXD Z7V1,2 F5D13450 10270 0500 00 2 04530 CLA Z4V1,2 F5D13460 10271 -0120 00 0 10300 TMI Z74 F5D13470 10272 0500 00 2 04124 CLA Z7K1+3,2 F5D13480 10273 -0734 00 1 00000 PDX 0,1 F5D13490 BINARY CARD NO. 9F290064 10274 0500 00 1 05060 CLA SXST,1 F5D13500 10275 0771 00 0 00022 ARS 18 F5D13510 10276 0074 00 4 06364 TSX SL,4 F5D13520 10277 0020 00 0 10253 TRA Z71 F5D13530 10300 0500 00 2 04510 Z74 CLA Z2V1+3,2 COMPILE THE LXD LIST F5D13540 10301 -0734 00 1 00000 PDX 0,1 F5D13550 10302 0074 00 4 06421 TSX SM,4 F5D13560 10303 0020 00 0 10253 TRA Z71 F5D13570 10304 0500 00 0 04533 Z75 CLA Z7V2 IS THIS 1ST TIME THRU F5D13580 10305 -0120 00 0 10243 TMI Z76 NO, 2ED TIME F5D13590 10306 0020 00 0 10254 TRA Z73 YES F5D13600 COMPILE ANY SYN CARDS F5D13610 10307 -0500 00 0 04124 Z8 CAL BBNO FORM F5D13620 10310 0771 00 0 00022 ARS 18 AND F5D13630 10311 0601 00 0 04140 STO TMP10 STORE F5D13640 10312 0074 00 4 03746 TSX SE1,4 F5D13650 10313 -0500 00 1 40004 CAL BBB,1 -(IDSXD)-(BBNO)+(1ST PRED)*2**25 F5D13660 10314 -0320 00 0 04017 ANA ADDMK F5D13670 10315 0522 00 0 11030 XEC SXPC6 (32)F5D13680 10316 0402 00 0 04140 SUB TMP10 F5D13690 10317 0402 00 0 04074 SUB IDSXD F5D13700 10320 0601 00 0 04140 STO TMP10 F5D13710 10321 -0534 00 2 04531 LXD Z5V1,2 SET TO START OF SYN LIST F5D13720 BINARY CARD NO. 9F290065 10322 -3 00001 2 10343 Z81 TXL Z83,2,1 ARE WE THRU F5D13730 10323 2 00001 2 10324 Z82 TIX Z82+1,2,1 DECREASE INDEX F5D13740 10324 -0500 00 2 06104 CAL SYN,2 F5D13750 10325 -0320 00 0 04015 ANA DECMK COMPILE THE SYN CARD F5D13760 10326 0771 00 0 00000 Z84 ARS ** INITIALIZED FOR LARGEST BBNO (32)F5D13770 10327 0402 00 0 04140 SUB TMP10 F5D13780 10330 0074 00 4 06346 TSX SK,4 F5D13790 10331 0500 00 0 04026 CLA LSYN F5D13800 10332 0074 00 4 06346 TSX SK,4 F5D13810 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 138 SECTION 5, PART FOUR 10333 -0500 00 2 06104 CAL SYN,2 F5D13820 10334 -0320 00 0 04017 ANA ADDMK F5D13830 10335 0522 00 0 11030 XEC SXPC6 (32)F5D13840 10336 0402 00 0 04140 SUB TMP10 F5D13850 10337 0074 00 4 06346 TSX SK,4 F5D13860 10340 0500 00 0 04001 CLA ZERO F5D13870 10341 0074 00 4 06346 TSX SK,4 F5D13880 10342 0020 00 0 10322 TRA Z81 F5D13890 10343 -0534 00 2 04130 Z83 LXD BBOX1,2 GET INDEX OF COMPILED INDT F5D13900 10344 0500 00 0 04077 CLA MZE RECORD NO SEQUENTIAL TRANSFER F5D13910 10345 0601 00 0 05060 STO SXST F5D13920 10346 0020 00 0 06506 TRA FNDAS F5D13930 WRITE TH E LAST BLOCK OF C.I. T. ON TAPE F5D13940 AFTER PUTTING RELATIVE CONSTANT ROUTINES AT END F5D13950 10347 0774 00 2 77777 LSTBB AXT -1,2 F5D13960 BINARY CARD NO. 9F290066 10350 0074 00 4 73606 TSX (TAPE),4 F5D13970 10351 0 40014 0 10377 EFCW2,,(RBEC) F5D13980 10352 0 00004 0 03760 SBLBL,,FTAPE4 F5D13990 10353 -0520 00 0 73676 NZT (SCHU)+FTAPE4 F5D14000 10354 0020 00 0 10364 TRA EFREW F5D14010 10355 0535 00 1 73676 LAC (SCHU)+FTAPE4,1 F5D14020 10356 1 10752 1 10357 TXI *+1,1,RELSR F5D14030 10357 -0634 00 1 10360 SXD EFTXL,1 F5D14040 10360 -3 00000 2 10347 EFTXL TXL LSTBB,2,SET F5D14050 10361 0500 00 2 10752 CLA RELSR,2 F5D14060 10362 0074 00 4 06346 TSX SK,4 F5D14070 10363 1 77777 2 10360 TXI EFTXL,2,-1 F5D14080 10364 0074 00 4 73606 EFREW TSX (TAPE),4 F5D14090 10365 0 20000 0 10401 RWD,,(SKBP) F5D14100 10366 0 00004 0 03756 CTLBL,,FTAPE4 F5D14110 10367 0535 00 4 06346 LAC SK,4 F5D14120 10370 1 00310 4 10371 TXI *+1,4,LCLST F5D14130 10371 -0634 00 4 10400 SXD LSTCW,4 F5D14140 10372 -2 00000 4 03734 TNX R,4,0 F5D14150 10373 0074 00 4 73606 TSX (TAPE),4 F5D14160 10374 0 40011 0 10400 LSTCW,,(WBNC) F5D14170 10375 0 00003 0 03756 CTLBL,,FTAPE3 F5D14180 BINARY CARD NO. 9F290067 10376 0020 00 0 03734 TRA R F5D14190 10377 3 00310 0 10753 EFCW2 IORT RELSR+1,,ZINST F5D14230 10400 -1 00000 0 04164 LSTCW IOCT CLST-LCLST,,SET $F5D14240 10401 0 77777 0 00000 RWD PZE ,,-1 F5D14250 10402 -0520 00 0 73676 CHEF NZT (SCHU)+FTAPE4 *F5D14251 10403 0020 00 0 10347 TRA LSTBB *F5D14252 10404 0074 00 4 73606 TSX (TAPE),4 *F5D14253 10405 0 20000 0 03763 SK1F,,(SKBP) *F5D14254 10406 0 00004 0 03760 SBLBL,,FTAPE4 *F5D14255 10407 0020 00 0 10347 TRA LSTBB *F5D14256 10410 -0534 00 2 04531 PTCH1 LXD Z5V1,2 ONE MORE THAN THE NO. OF SYN CARDS STORED $F5D14257 10411 -0634 00 2 10416 SXD UP1,2 PREPARE TO ADD TO NO OF SXD ENTRIES $F5D14258 10412 0534 00 4 04120 LXA LNSXD,4 NO. OF SXD POSITIONS IN TABLE $F5D14259 10413 1 00020 4 10414 TXI *+1,4,16 UP TO COMPENSATE FOR RELATIVE ADDRESS $F5D1425A 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 139 SECTION 5, PART FOUR 10414 -0634 00 4 10417 SXD UP2,4 PREPARE TO ADD SXD ENTRIES TO SYN CARDS $F5D1425B 10415 -0534 00 4 10431 LXD TXI,4 PICK UP NO. OF SXD ENTRIES THUS FAR $F5D1425D 10416 1 00000 4 10417 UP1 TXI *+1,4,*-* ADD NO. OF SYN CARD ENTRIES + 1 $F5D1425E 10417 -3 00000 4 10140 UP2 TXL TEST1+1,4,*-* ERROR IF BUFFER IS ALL FILLED $F5D1425F 10420 0074 00 4 10421 TSX TSX ERR58,4 TABLE OVERFLOW, GO TO GENERAL DIAGNOSTIC $F5D1425G 10421 1 77765 0 73603 ERR58 TXI (DIAG),,-11 DECREMENT WILL IDENTIFY THIS ERROR LATER $F5D1425H 10422 0754 00 1 00000 PTCH2 PXA ,1 -NO. OF LOCATIONS USED THUS FAR IN SXD LIST$F5D1425I 10423 0737 00 2 00000 PAC ,2 GET COMPLEMENT OF THIS NUMBER $F5D1425J BINARY CARD NO. 9F290068 10424 -0634 00 2 10431 SXD TXI,2 TO ADD TO NO. OF SYN CARD ENTRIES $F5D1425K 10425 0534 00 2 04120 LXA LNSXD,2 TOTAL CELLS AVAILABLE IN SXD TABLE $F5D1425L 10426 1 00020 2 10427 TXI *+1,2,16 UP TO COMPENSATE FOR RELATIVE ADDRESSING $F5D1425M 10427 -0634 00 2 10432 SXD TXH,2 SET TO COMPARE WITH NO. ALREADY USED $F5D1425N 10430 -0534 00 2 04531 LXD Z5V1,2 ADD NO. OF CELLS USED IN SXD LIST TO $F5D1425O 10431 1 00000 2 10432 TXI TXI *+1,2,*-* ONE PLUS THE NO. USED FOR SYN CARDS $F5D1425P 10432 3 00000 2 10420 TXH TXH TSX,2,*-* ERROR IF TABLE OVERFLOWS ON NEXT SXD ENTRY$F5D1425Q 10433 0774 00 2 00003 AXT 3,2 NO OVERFLOW, $F5D1425R 10434 0020 00 0 10155 TRA TEST2+1 CONTINUE COMPILATION $F5D1425S 10435 BSS PTL4-29 4 CELLS LEFT FOR PATCHING $F5D14260 10442 CTBUF BSS ZINST F5D14270 BINARY CARD NO. 9F290069 10752 0 00000 0 00000 RELSR PZE 0 START OF BUFFER FOR REL SUBROUTINES. F5D14280 10753 0774 00 4 00001 SXPC1 AXT 1,4 (32)F5D14290 10754 0500 00 0 73574 CLA KEYS LAST BBNO (32)F5D14300 10755 -0320 00 0 04017 ANA ADDMK FIND HOW MANY BITS (32)F5D14310 10756 0771 00 0 00001 ARS 1 IT OCCUPIES (32)F5D14320 10757 0100 00 0 10761 TZE *+2 (32)F5D14330 10760 1 00001 4 10756 TXI *-2,4,1 (32)F5D14340 10761 0634 00 4 11030 SXA SXPC6,4 FOR SHIFTS (32)F5D14350 10762 0754 00 4 00000 PXA ,4 (32)F5D14360 10763 0737 00 4 00000 PAC ,4 (32)F5D14370 10764 1 00021 4 10765 TXI *+1,4,17 (32)F5D14380 10765 0634 00 4 10774 SXA SXPC3,4 NO OF BITS PRED NO (32)F5D14390 10766 0634 00 4 10777 SXA SXPC4,4 OCCUPIES (32)F5D14400 10767 1 00001 4 10770 TXI *+1,4,1 (32)F5D14410 10770 0634 00 4 10326 SXA Z84,4 (32)F5D14420 10771 0020 00 0 07500 TRA BEGBB RETURN (32)F5D14430 10772 -0320 00 0 04017 SXPC2 ANA ADDMK (32)F5D14440 10773 0601 00 0 11032 STO SXPC7 (32)F5D14450 10774 -0765 00 0 00000 SXPC3 LGR ** DOES PRED NO OCCUPY MORE THAN (32)F5D14460 10775 0100 00 0 11027 TZE SXPC5 ALLOTTED BITS,TRA IF NOT (32)F5D14470 10776 -0754 00 0 00000 ZAC YES (32)F5D14480 10777 -0763 00 0 00000 SXPC4 LGL ** GET ALLOTTED BITS (32)F5D14490 BINARY CARD NO. 9F290070 11000 0400 00 0 04154 ADD SADV4 (32)F5D14500 11001 0737 00 4 00000 PAC ,4 (32)F5D14510 11002 0500 00 4 56774 CLA PRED,4 WILL THERE BE A DUPLICATE (32)F5D14520 11003 -0320 00 0 04012 ANA LD7 (32)F5D14530 11004 0100 00 0 11027 TZE SXPC5 TRA IF NOT (32)F5D14540 11005 0500 00 4 56774 CLA PRED,4 (32)F5D14550 11006 0734 00 2 00000 PAX ,2 (32)F5D14560 11007 0500 00 2 54266 CLA BBLIST-1,2 (32)F5D14570 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 140 SECTION 5, PART FOUR 11010 0622 00 0 11025 STD PRAM (32)F5D14580 11011 0535 00 4 11032 LAC SXPC7,4 (32)F5D14590 11012 0500 00 4 56774 CLA PRED,4 (32)F5D14600 11013 0734 00 2 00000 PAX ,2 (32)F5D14610 11014 0500 00 2 54266 CLA BBLIST-1,2 (32)F5D14620 11015 0771 00 0 00022 ARS 18 (32)F5D14630 11016 0621 00 0 11025 STA PRAM (32)F5D14640 11017 0500 00 0 04155 CLA SADV5 (32)F5D14650 11020 0734 00 2 00000 PAX ,2 (32)F5D14660 11021 0500 00 2 54267 CLA BBLIST,2 (32)F5D14670 11022 0622 00 0 11026 STD PRAM+1 (32)F5D14680 11023 0074 00 4 11024 TSX *+1,4 PRINT DIAGNOSTIC-TOO (32)F5D14690 11024 1 77773 0 73603 TXI (DIAG),,-5 MANY PATHS OF FLOW TO (32)F5D14700 11025 0 00000 0 00000 PRAM PZE (32)F5D14710 BINARY CARD NO. 9F290071 11026 0 00000 0 00000 PZE (32)F5D14720 11027 0500 00 0 11032 SXPC5 CLA SXPC7 (32)F5D14730 11030 0767 00 0 00000 SXPC6 ALS ** (32)F5D14740 11031 0020 00 0 06135 TRA SAD7+1 (32)F5D14750 11032 0 00000 0 00000 SXPC7 PZE (32)F5D14760 11033 BSS 100 PATCH SPACE (32)F5D14770 11177 END32 SYN * (32)F5D14890 77777 END -1 (32)F5D14900 BINARY CARD NO. TRA77777 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 1 POST PROCESSOR ASSEMBLY DATA 73667 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM REFERENCES TO DEFINED SYMBOLS 7 M 4030, 4031, 4032, 4033, 4034, 4027,40004 10 N 4030, 4031, 4032, 4033, 4034, 4027,40004 3744 T 4107, 4315 3737 D1 4267, 4732, 5113, 4144, 4333 4167 D2 4456, 4523, 4547 4022 D3 4576, 4022 4465 OK 4463 3755 1ST 5066 3757 ARG 4731, 4743, 5000, 5037, 5051, 5074, 5077, 5104, 5126, 5127, 4025 40004 BBB 4632, 4634, 4635, 4636, 4637, 4640,73574 1 IR1 0, 4055, 4057, 4061, 4062, 4063, 4064, 4071, 4073, 4077, 4100, 4101, 4102, 4103, 4104, 4116, 4133 4136, 4137, 4141, 4143, 4150, 4152, 4153, 4156, 4161, 4163, 4164, 4167, 4170, 4171, 4172, 4173, 4200 4203, 4205, 4211, 4213, 4214, 4220, 4222, 4223, 4227, 4233, 4235, 4241, 4243, 4244, 4246, 4247, 4251 4272, 4307, 4314, 4325, 4327, 4332, 4333, 4337, 4347, 4350, 4352, 4354, 4356, 4360, 4361, 4362, 4363 4364, 4365, 4366, 4370, 4373, 4374, 4375, 4376, 4404, 4405, 4406, 4407, 4410, 4413, 4431, 4436, 4440 4441, 4442, 4443, 4444, 4445, 4446, 4447, 4450, 4451, 4453, 4454, 4456, 4457, 4461, 4463, 4465, 4466 4467, 4470, 4472, 4474, 4475, 4476, 4477, 4500, 4501, 4502, 4506, 4507, 4513, 4514, 4522, 4523, 4525 4534, 4537, 4543, 4546, 4552, 4563, 4564, 4572, 4604, 4163, 4165, 4166, 4167, 4171, 4173, 4174, 4205 4206, 4207, 4210, 4216, 4222, 4226, 4232, 4252, 4254, 4276, 4301, 4302, 4306, 4313, 4317, 4330, 4340 4344, 4347, 4354, 4361, 4366, 4405, 4432, 4435, 4440, 4441, 4443, 4446, 4451, 4460, 4461, 4466, 4475 4477, 4500, 4501, 4502, 4507, 4511, 4512, 4521, 4525, 4530, 4533, 4536, 4545, 4551, 4554, 4557, 4560 4565, 4574, 4600, 4603, 4606, 4611, 4612, 4616, 4617, 4623, 4634, 4635, 4645, 4646, 4647, 4651, 4652 4675, 4704, 4712, 4713, 4727, 4734, 4742, 4744, 4747, 5123, 5124, 5134, 5135, 5151, 5154, 5156, 5166 5170, 4065, 4070, 4100, 4121, 4131, 4161, 4230, 4231, 4232, 4235, 4245, 4246, 4247, 4250, 4255, 4272 4300, 4304, 4305, 4312, 4313, 4314, 4315, 4316, 4317, 4325, 4327, 4331, 4336, 4342, 4343, 4344, 4347 4350, 4351, 4353, 4354, 4367, 4370, 4371, 4420, 4421, 4423, 4425, 4453, 4454, 4455, 4456, 4457, 4462 4465, 4477, 4502, 4510, 4533, 4604, 4612, 4627, 4643, 4745, 4756 2 IR2 0, 4051, 4056, 4060, 4065, 4165, 4166, 4174, 4176, 4177, 4250, 4252, 4253, 4261, 4262, 4266, 4267 4277, 4307, 4326, 4330, 4331, 4334, 4340, 4353, 4355, 4357, 4414, 4415, 4416, 4417, 4420, 4422, 4423 4430, 4503, 4510, 4511, 4512, 4515, 4516, 4520, 4521, 4524, 4535, 4542, 4561, 4566, 4600, 4627, 4632 4633, 4634, 4635, 4636, 4640, 4641, 4645, 4646, 4647, 4650, 4651, 4652, 4653, 4654, 4655, 4656, 4657 4661, 4662, 4663, 4666, 4667, 4670, 4671, 4672, 4674, 4675, 4676, 4705, 4706, 4710, 4711, 4712, 4714 4715, 4716, 4771, 4772, 4773, 4774, 4775, 4776, 4777, 4067, 4070, 4107, 4110, 4116, 4117, 4120, 4124 4125, 4126, 4132, 4133, 4134, 4175, 4202, 4204, 4227, 4264, 4265, 4273, 4274, 4277, 4303, 4337, 4353 4356, 4411, 4412, 4414, 4420, 4421, 4424, 4430, 4431, 4455, 4474, 4517, 4535, 4543, 4572, 4622, 4630 4631, 4632, 4633, 4641, 4642, 4672, 4673, 4674, 4701, 4716, 4750, 4755, 4757, 4760, 4761, 4762, 4764 4765, 4771, 4772, 4773, 4774, 4775, 4776, 4777, 5000, 5001, 5002, 5005, 5006, 5007, 5012, 5013, 5014 5015, 5016, 5020, 5021, 5022, 5023, 5112, 5140, 5144, 4071, 4072, 4073, 4077, 4101, 4117, 4123, 4127 4130, 4132, 4134, 4142, 4143, 4145, 4147, 4151, 4155, 4157, 4160, 4163, 4164, 4167, 4173, 4174, 4175 4176, 4200, 4202, 4204, 4211, 4213, 4215, 4216, 4221, 4222, 4252, 4303, 4315, 4326, 4330, 4335, 4337 4341, 4345, 4346, 4352, 4355, 4360, 4361, 4363, 4364, 4366, 4372, 4375, 4377, 4400, 4410, 4411, 4412 4415, 4416, 4417, 4420, 4422, 4424, 4426, 4427, 4430, 4431, 4432, 4452, 4460, 4475, 4476, 4506, 4507 4512, 4513, 4514, 4515, 4516, 4517, 4520, 4521, 4522, 4523, 4524, 4525, 4526, 4530, 4541, 4605, 4606 4611, 4630, 4631, 4633, 4642, 4652, 4654, 4655, 4656, 4657, 4661, 4662, 4670, 4671, 4672, 4673, 4674 4675, 4676, 4700, 4701, 4705, 4715, 4744 4 IR4 0, 4046, 4052, 4066, 4072, 4111, 4113, 4114, 4115, 4126, 4130, 4131, 4132, 4142, 4147, 4151, 4162 4175, 4201, 4202, 4204, 4206, 4207, 4210, 4212, 4221, 4234, 4242, 4245, 4254, 4257, 4263, 4264, 4265 4270, 4271, 4273, 4302, 4312, 4313, 4341, 4342, 4343, 4344, 4345, 4411, 4412, 4432, 4433, 4434, 4517 4526, 4532, 4533, 4554, 4567, 4570, 4571, 4573, 4574, 4576, 4577, 4603, 4607, 4610, 4611, 4612, 4614 4616, 4617, 4621, 4623, 4625, 4630, 4642, 4664, 4665, 4707, 4745, 4765, 5002, 4064, 4074, 4111, 4112 4113, 4144, 4146, 4152, 4157, 4162, 4212, 4214, 4233, 4235, 4236, 4237, 4240, 4241, 4243, 4244, 4245 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 2 POST PROCESSOR ASSEMBLY DATA 4247, 4250, 4251, 4253, 4261, 4262, 4263, 4270, 4271, 4272, 4275, 4305, 4310, 4311, 4312, 4327, 4332 4333, 4334, 4335, 4350, 4351, 4362, 4363, 4364, 4365, 4371, 4373, 4374, 4375, 4376, 4401, 4402, 4403 4404, 4406, 4407, 4410, 4413, 4426, 4444, 4445, 4447, 4450, 4452, 4453, 4457, 4462, 4463, 4464, 4465 4467, 4470, 4471, 4476, 4503, 4504, 4505, 4506, 4510, 4520, 4522, 4524, 4526, 4527, 4531, 4532, 4537 4540, 4544, 4546, 4550, 4552, 4553, 4555, 4556, 4564, 4573, 4575, 4577, 4601, 4602, 4604, 4605, 4607 4610, 4637, 4640, 4644, 4662, 4667, 4670, 4671, 4672, 4702, 4706, 4707, 4710, 4720, 4721, 4723, 4724 4730, 4731, 4736, 4743, 4745, 4751, 4753, 4756, 4766, 5010, 5011, 5033, 5065, 5071, 5072, 5073, 5075 5101, 5102, 5103, 5105, 5106, 5107, 5110, 5111, 5114, 5115, 5116, 5117, 5120, 5121, 5122, 5125, 5131 5132, 5136, 5137, 5142, 5145, 5147, 5150, 5152, 5153, 5165, 5171, 4074, 4076, 4120, 4125, 4135, 4136 4140, 4177, 4207, 4210, 4214, 4220, 4223, 4224, 4225, 4226, 4240, 4261, 4264, 4301, 4302, 4373, 4374 4376, 4401, 4404, 4435, 4436, 4437, 4441, 4446, 4451, 4452, 4470, 4471, 4472, 4473, 4505, 4527, 4531 4532, 4534, 4535, 4536, 4537, 4545, 4553, 4574, 4577, 4600, 4601, 4605, 4607, 4610, 4616, 4621, 4630 4632, 4634, 4635, 4636, 4637, 4640, 4641, 4644, 4646, 4647, 4650, 4653, 4663, 4702, 4703, 4711, 4722 4724, 4725, 4730, 4736, 4737, 4742, 4746, 4754, 4755 5057 LOW 5052 4731 MIH 4142, 4151, 4162, 4175, 4210, 4212, 4221, 4234, 4242, 4245, 4264, 4711 3756 NTH 4734, 4757, 4767, 5042, 4562 3735 ONE 4317, 4323, 4761, 4101, 4164, 4260, 4357, 4370, 4625, 5155, 5160, 4062, 4162, 4206, 4556, 4717 4624 OUT 4023 4043 PSE 4220 32407 SET 4237, 4250, 4262, 4271, 4640, 4644, 5154, 5156, 4073,40004 4014 SIX 4213, 4565 46223 TAG 4051, 4052, 4505, 4527,40004 73577 TOP 40004 3746 TPL 4216, 4562 4013 TRA 4145, 4231, 4237, 4014, 4567, 4614 4623 1TSX 4100, 4101 4625 2TSX 4171, 4172 4267 3ADD 4273 4751 3TSX 4206, 4207 4753 4TSX 4500, 4501 4646 5TSX 4455, 4456 4246 6LXD 4302 4375 8CLA 4404 4732 BUF2 4722 4050 CELL 4575, 4716, 4720 23210 CMTL 4031,40004 4155 COMP 4157 4026 CTRA 4643 4573 DODO 4577 4406 DONE 4377 4034 DORD 4303, 5004 4022 FIVE 4321, 4613 4743 FIX4 4731 4335 FREQ 4311 64163 FRET 4033, 4335, 4341, 4350, 4352, 4354, 4356, 4362, 4363, 4366, 4370, 4373, 4376, 4404, 4415, 4416, 4424 4434, 4436, 4702, 4710, 4721,40004 1 INOP 4510,40004 73574 KEY1 4563, 4604, 4613, 4627,40004 73575 KEY2 4571,40004 73576 KEY3 4566,40004 73577 KEY4 4560,40004 1014 LMAX 4175,40004 4064 LOAD 4673 4774 MOVE 4760, 4766, 4777 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 3 POST PROCESSOR ASSEMBLY DATA 4025 NINE 4551 257 NMAX 5102,40004 4030 NODO 4200 4543 NOIF 4540, 4602 56774 PRED 4422,73574 4715 RLD2 4705 3761 ROOF 4013, 4735, 4736, 4752, 4755, 5043, 5044, 5060, 5063 4011 RWND 4274, 5034, 4712 4006 SK2R 4007 SK4R 4721 4010 SKFL 4723, 4625 4005 SKNR 4145, 4147 4351 SORT 4371 4332 STEP 4315, 4322, 4331 65274 SUCC 4326,73574 4275 TR3S 4211, 4252, 4263 73041 TRAD 4032, 4257,40004 4613 USE5 4607 3734 ZERO 4400, 4733, 4306, 4406 4362 ACCUM 4351, 4367 4052 AD14X 4224 4053 AD16X 4514 4741 ADDPR 4744 4651 AJBF1 4673 4775 AJBF2 4131, 5017 4670 AJBF3 4111 ALLIN 4100 3742 ASPRS 4324, 4657 4021 BBBOX 4631, 4332, 4372, 4410 3774 BBLBL 4620 32407 BBTAG 4475, 4541, 4633,40004 4202 BEGBB 4177, 4340, 4354, 4432, 4460, 4507, 4533, 4557, 4611, 4623 4220 BEGDO 4253 4452 BEGIN 4440 4101 BEGN1 4661, 4675, 4700, 4702 4207 BEGN2 4133, 5005, 5021, 5027, 5031 4456 BEGN3 4700, 4705, 4707, 4710 4012 BSP2F 4622 4533 BUMP1 4464, 4501 2 CITAD 4133, 4137, 4141, 4150, 4156, 4161, 4173, 4205, 4220, 4233, 4241,40004 1 CITOP 4104, 4143, 4214, 4227, 4235,40004 4172 CNTU1 4662, 4676, 4701, 4703 4501 CNTU2 4134, 5006, 5022, 5030, 5032 5003 CONDO 4306 4061 COUNT 4116, 4165, 4170, 4757 4 CTAPE 0, 4054, 4055, 4070, 4275, 4644, 4645, 4125, 4150, 4161, 4770, 4771, 4443, 4444, 4450, 4665, 4666 5335 CTBOT 4004, 4071, 4640, 4647, 4651, 4657, 4670, 4067, 4174, 4764, 4773, 4775, 5014, 4431, 4453, 4661, 4670 4676,40004 3773 CTLBL 4054, 4070, 4275, 4644, 4150, 4154, 4161, 4770, 5035, 4443, 4450, 4665, 4713 4004 CTRD1 4047, 4053, 4056, 4057, 4067, 4633, 4636, 4641, 4643, 4070, 4075, 4104, 4135, 4137, 4153, 4156, 4160 4757, 4762, 4765, 4767, 4432, 4442, 4445, 4447, 4654, 4657, 4662, 4664 44250 CTSP1 3740, 4100, 4171,40004 21760 CTSP2 4015, 4206, 4500, 4455,40004 51605 CTTP1 4077, 4170, 4635, 4656, 4671,40004 27315 CTTP2 4107, 4124, 4205, 4477, 4761, 5002, 5015, 4454, 4656, 4675,40004 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 4 POST PROCESSOR ASSEMBLY DATA 3750 DMASK 4144, 4215, 4230, 4236, 4172, 4217, 4307, 4331, 4367, 4415, 4561, 4566, 4613, 4124, 4511 3767 DOBOX 4201, 4207, 4442, 4504, 4171, 4176, 4171 4405 DOCAS 4342 4171 DODOS 4063 4430 DOLXD 4434 3766 DOSUB 4013, 4422, 4425, 4411, 4416, 4430 33361 DOTAG 3736, 4024, 4034, 4537, 4543, 4546, 4552, 4572, 4604,40004 4506 DOTIX 4505, 4525 3736 DOTOP 4530, 5005 4143 DOWIF 4103 4303 DTEST 4201, 4205 5045 END26 5007 5230 END27 5172 5004 END28 4760 4327 ENDBB 4304 4255 ENDDO 4234 5112 ENTER 4335, 4410 4063 ERR40 4736 4062 ERR41 4662 4035 ERR42 4765 4054 ERR43 4464 4055 ERR44 5065 4056 ERR45 5103 4057 ERR46 5117 4060 ERR47 5152 4061 ERR48 5165 4054 ERR49 4545 3772 ERRM4 4046, 4147, 4517, 4554, 4074, 4144, 4373, 4564, 4553 4023 EXIT1 4677 4023 EXIT2 5026 4032 EXIT3 4706 5171 FENCE 40004 4534 FINAL 4032 4473 FIXAC 4464 4372 FIXBB 4350 5140 FIXDO 5133 3760 FLOOR 4013, 4733, 4737, 4747, 5041, 5045, 5055 5066 FOUND 5053 4033 FRTRD 4722 4247 GOTON 4320 4164 GOTOV 4155 4046 GTNCD 4355, 4360, 4660 4274 HOLD2 4264 5110 HOLD4 5072 4564 IFTSX 4570 0 INLOC 4457,40004 3 INTAG 4462, 4465, 4477, 4502,40004 4470 INTBB 4461 4634 IOAJ1 4063 4760 IOAJ2 4117 4655 IOAJ3 4427 4674 LAST1 4050, 4646 5020 LAST2 4076, 4103, 4110, 4112, 4772, 5025, 4704 4704 LAST3 4436, 4667 57340 LCNTR 4174, 4207, 4214, 4223, 4224, 4225, 4226, 4240, 4261, 4264,40004 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 5 POST PROCESSOR ASSEMBLY DATA 4030 LIMIT 4762 4025 LNLST 4234 4751 LOWER 4744 5044 LUKUP 5056, 5064 4666 MOVE1 4647 5012 MOVE2 4773 4647 MTST1 4666 4773 MTST2 5012 4116 NALIN 4102, 4106 73574 NLIST 4024, 4025, 4027, 4170, 4647, 4651, 4653, 4654, 4655, 4656, 5075, 5105, 5106, 4125, 4754,40004 5075 NLOOP 5101 4244 NOTRA 4240 4130 NTEST 4122, 4127 4047 OPCON 4512, 4514 4512 OPSUB 4515 4116 OTHER 4123, 4135, 4140, 4160, 4226, 4232 4036 PASS1 73666 4066 PASS2 73666 3747 PMASK 4157, 4345, 4676, 4233 4652 PRAJ1 4064, 4660 4776 PRAJ2 4120, 5004 4671 PRAJ3 4430, 4677 4314 PRUNE 4333 4023 RAND1 4152, 4747 4024 RAND2 4153, 4154, 4750, 4751 4745 REST4 4730, 4743 4640 RINT1 4764 RINT2 5003 4661 RINT3 4663 S1IR2 4627, 4704 4664 S1IR4 4630 5007 S2IR2 4755, 5036 5010 S2IR4 4756 4701 S3IR2 4652, 4714 4702 S3IR4 4653 5135 SAVE1 5123 4530 SAVE2 4506 5136 SAVE4 4030, 5114 5123 SETDO 4201 4055 SIMUL 73666 4525 SNSCS 4541 4163 START 4115, 4151 4747 STRND 4755 4746 STSNS 4060 4724 TBLRD 4710 4077 TEST1 4103, 4116, 4152, 4163, 4200, 4213, 4243, 4246, 4624 4170 TEST2 4167, 4626 4205 TEST3 4301, 4317, 4752 4477 TEST4 4511, 4754 4454 TEST5 4533, 4651, 4745 4532 TEST6 4531, 4743 4031 TFGRD 4717 3775 TGLBL 4626, 4727, 4741 60073 TIFGO 4031, 4247, 4251, 4310, 4312, 4314, 4325, 4327,40004 56323 TIFRD 4250, 4252, 4261, 4326, 4330, 4334, 4214, 4241, 4371, 4375,40004 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 6 POST PROCESSOR ASSEMBLY DATA 3751 TMASK 4541, 4544, 4422, 5130, 5141, 4203 4344 TRACS 4341, 4343, 4466 4126 TRANS 4110 4032 TRDRD 4720 4151 TROUT 4113, 4146 3762 TRYME 4741, 4742, 4746, 4751, 4754, 4770, 5001, 5047, 5050, 5054, 5057, 5062, 5067 4020 TSBOX 4203, 4235, 4247, 4253, 4275, 4363, 4413, 4452, 4470, 4520, 4537, 4544, 4573, 5115, 5122, 5124, 5134 4055, 4304, 4373, 4567 4302 TSTTR 4221 4715 WRTAG 4532, 4577, 4600 10 ZONSZ 4667, 4670, 4671, 5013, 5014, 5015,40004 4036 14ONES 4324 4577 15TEST 4574 3743 1STLET 4106, 4314 4462 2NDCMP 4452 4141 2WAYTR 4217, 4222 4005 5 C 4006, 4005, 4006, 4017, 4027, 4066, 4153, 4163, 4005 5656 5 F 7356,10461 10421 5 I 73666 6352 5 L 5776 7 5 M 10563,40004, 4223 10 5 N 10563,40004, 4223 3734 5 R 5711, 4222, 4173,10372,10376 6514 5 X 6351 10164 5 A1 10162 10175 5 A2 10173 10136 5 A3 10204,10206,10220,10222,10236,10244,10246,10262,10264,10276,10322,10330,10332,10372 10207 5 A4 10205 10223 5 A5 10163,10174 10243 5 A6 10241 10245 5 A7 10242 10247 5 A8 10166,10171 10563 5 EP 10563 5531 5 F1 5663, 6013, 6302 5553 5 F2 5551 5564 5 F3 5560 5550 5 F4 5567 5570 5 F5 5531, 5552 5700 5 F6 5670 5662 5 F7 5705 5722 5 F8 5717 5723 5 F9 5713, 5721 10451 5 I1 10447 6374 5 L1 6372 6371 5 L2 6374 4005 5 L3 7742 4006 5 L4 6457, 6541, 6602, 7376, 7421 6443 5 L5 6441 6446 5 L6 6366 4007 5 L7 7740 7443 5 MO 7444, 7457, 7470 4264 5 S1 5001, 6426, 6564 4430 5 S2 4340, 4374 4465 5 S3 4332, 4553, 6365, 6532,10143 4575 5 S4 4415, 4521, 4666, 4667,10457 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 7 POST PROCESSOR ASSEMBLY DATA 4675 5 S5 6456, 7040, 7477 5073 5 S6 4745, 4765, 5010, 5030, 5053, 5063 5100 5 S7 5000, 5021 5115 5 S9 4677, 7365 5152 5 SA 6315, 6460, 7411, 7501,10352,10501 5222 5 SB 6572, 6777, 7111, 7637, 7745,10123,10221,10243,10314,10331,10347,10416,10473 5315 5 SC 6701, 6725, 7422,10016,10052,10245,10275,10370 5407 5 SD 5354, 7420,10366 3745 5 SE 4363, 4515, 4530, 5116, 5241, 5370, 5411, 5415, 5502, 5610, 5617, 5753, 6074, 6654, 6742, 7021, 7043 7340, 7375, 7435, 7503, 7507, 7701,10034,10304,10333, 6413, 6455, 6754, 7515, 7526, 7536 5460 5 SF 6610, 6722 5476 5 SG 7113, 7762 6170 5 SH 10035,10110 6221 5 SI 10047,10223,10250,10263 6315 5 SJ 6305 6346 5 SK 6155, 6157, 6161, 6163, 6251, 6255, 6260, 6262, 6352, 6362, 6376, 6400, 6402, 6404, 6451, 6453, 6467 6471, 6552, 6554, 6557, 6562, 6625, 6627, 6631, 6633, 6636, 6640, 6643, 6646, 6776, 7000, 7005, 7010 7337, 7341, 7343, 7345, 7405, 7407, 7411, 7413,10330,10332,10337,10341,10362,10367 6364 5 SL 6275, 6504,10070,10276 6421 5 SM 10051,10302 10373 5 W0 7572 10401 5 W1 10412 10412 5 W2 7563,10411,10415 10414 5 W3 10404,10410,10522 10420 5 W4 10414,10417 6554 5 X1 6552 6551 5 X2 6554 6532 5 X3 6563, 6636, 7775 6573 5 X4 6571 6577 5 X5 6575, 6716 6712 5 X7 6553 6564 5 X8 6560, 6562 6637 5 X9 6601 7531 5 Z1 7562 5 Z2 7545 7646 5 Z3 10007 5 Z4 7746, 7771, 7775 10074 5 Z5 10015 10217 5 Z6 10101 10230 5 Z7 10221,10257 10307 5 Z8 10261,10264,10265,10266 6433 5 1L3 6373 6365 5 1L4 6406, 6411, 6432, 6436, 6440, 6442, 6445, 6454, 6472 10277 5 A12 10144 10167 5 A20 10165 10172 5 A21 10170 10304 5 A25 10312 5 A26 10315 10315 5 A27 10313 10316 5 A28 10303,10310 10350 5 A30 10344,10346 10341 5 A31 10350 10371 5 A32 10355,10362 10363 5 A33 10360 10354 5 A34 10371 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 8 POST PROCESSOR ASSEMBLY DATA 10333 5 A35 10320 10237 5 A51 10274 4220 5 AC1 5224, 5312, 5315, 5363, 6323, 6327, 6522, 6570, 6614, 6710, 6727, 6775, 7107, 7367, 7561, 7636, 7743 7757,10117,10137,10217,10235,10263,10312,10327,10345,10354,10472 4221 5 AC2 6523,10140 4222 5 AC3 6524,10141 4063 5 AC4 4061 4074 5 AC5 4067 4106 5 AC6 4102 4057 5 AC7 4110 4111 5 AC8 4062 4131 5 AC9 4127 10327 5 AP1 10325,10326 4257 5 AV1 4260 5 AV2 4261 5 AV3 40004 5 BBB 3772, 4367, 4516, 4531, 5117, 5124, 5144, 5157, 5163, 5207, 5242, 5244, 5373, 5405, 5412, 5417, 5434 5443, 5456, 5503, 5536, 5540, 5545, 5611, 5613, 5620, 5733, 5754, 6007, 6075, 6136, 6163, 6655, 6751 6770, 7022, 7032, 7044, 7064, 7065, 7121, 7157, 7164, 7212, 7217, 7260, 7301, 7302, 7313, 7327, 7331 7341, 7376, 7436, 7440, 7504, 7511, 7550, 7551, 7552, 7567, 7615, 7632, 7702, 7704, 7712,10036,10102 10111,10305,10334,10373,10401,10441,10515,40004,73574, 4030, 4033, 4042, 4045, 4050, 4056, 4160, 4166 4177, 4205, 4216, 4024, 4032, 4047, 4054, 4077, 4116, 4123, 4135, 4157, 4160, 4177, 6111, 6113, 6206 6230, 6414, 6464, 6742, 6755, 6762, 7002, 7040, 7114, 7160, 7213, 7516, 7527, 7533, 7537,10313 4043 5 BL2 4043 4024 5 BL3 4213 4011 5 BL5 4064 5 BL7 4062 4073 5 BL8 4105 4060 5 BL9 4112 6617 5 CI1 6570, 6572 6622 5 CI2 6620 6513 5 CI4 6530 5 CI5 6514 6647 5 CI6 6603, 6606, 6612, 6615, 6616, 6623, 7422, 7425 6656 5 CI7 7335, 7354, 7357, 7363 4144 5 EN1 4706, 4743, 5004, 5025, 5037, 5137, 7077, 7532, 7657 4145 5 EN2 4146 5 EN3 4141 5 EN4 4740, 4761, 5076, 5506, 6462, 7056, 7362, 7523, 7530, 7654,10504 4142 5 EN5 4143 5 EN6 4134 5 ENC 4702, 4751, 5057, 5061 4154 5 EX1 5177, 5216, 6320, 6464, 6477, 7575, 7750,10002,10012,10356,10506 4155 5 EX2 5217 4156 5 EX3 5220 5746 5 F11 5730, 5767, 6000, 6041, 6045, 6050, 6247, 6261, 6274, 6306, 6310, 6312 5743 5 F12 5752, 5761, 5763 5766 5 F13 6272 5774 5 F14 5773 5572 5 F15 5774, 6053 5577 5 F16 5576 5600 5 F17 5575 5575 5 F18 5745, 5757, 5770, 6052, 6161, 6166, 6266 5777 5 F19 5746 6030 5 F20 6020 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 9 POST PROCESSOR ASSEMBLY DATA 6013 5 F21 6033, 6035 6036 5 F22 6034 5731 5 F23 6047, 6314 5767 5 F24 5766 5745 5 F25 5744 5573 5 F26 5577 6050 5 F28 6037 6065 5 F29 6060 5604 5 F30 6100, 6207 5623 5 F31 5642 5626 5 F32 5624 5637 5 F33 5633 5643 5 F34 5604, 5625 6100 5 F35 6123 6115 5 F36 6105 6124 5 F37 6121 6154 5 F38 6174 6173 5 F39 6065, 6125, 6133, 6145, 6172, 6176, 6212, 6217, 6240 6172 5 F40 6160, 6170 6175 5 F41 6171 6201 5 F42 6173 5770 5 F43 6200, 6232 6207 5 F44 6071 6132 5 F45 6213 6214 5 F47 6126, 6246 6217 5 F48 6137 6233 5 F49 6231 6234 5 F50 6225, 6233 6227 5 F51 6235 6236 5 F52 6234 6202 5 F53 6064, 6237, 6313 6240 5 F54 6144 6247 5 F55 5741 6051 5 F56 6254, 6307 6255 5 F57 5734 6266 5 F58 6265 6267 5 F59 6262 6274 5 F60 6267 6264 5 F61 6271, 6273 6133 5 F62 6132 6205 5 F63 6201, 6236 6066 5 F64 6206 6045 5 F70 6044 6310 5 F71 6305 6312 5 F72 6311 6062 5 F73 6046 6341 5 F75 6057, 6061, 6204, 6216,10467 6320 5 F76 6330 6330 5 F77 6324 6315 5 F78 6344 6347 5 F79 6350 5645 5 F80 5775, 6341 5646 5 F81 5650 5652 5 F82 5647 5653 5 F83 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 10 POST PROCESSOR ASSEMBLY DATA 5671 5 F85 5666 5706 5 F86 5753 5 F87 5751 6021 5 F88 6016 6072 5 F89 6070 6106 5 F90 6103 6161 5 F91 6157 5561 5 F92 5556 5634 5 F93 5631 6122 5 F94 6120 4041 5 FK1 5720, 5777, 6146 4042 5 FK2 5722, 6241, 6250 4043 5 FK3 5716, 5740, 6143 4044 5 FK4 6055, 7026 1255 5 FP1 5645,10563,11206 4175 5 FV1 5660, 5665, 5671, 5710, 5731, 5764, 6002, 6006, 6015, 6021, 6036, 6073, 6102, 6106, 6124, 6134, 6150 6211, 6220, 6243, 6252, 6255, 6275, 6301, 6304 4176 5 FV2 5673, 5724, 6023, 6040, 6110, 6127 4177 5 FV3 5675, 6025, 6112 4200 5 FV4 5677, 5712, 5737, 5760, 6027, 6114, 6142, 6167, 6223, 6230, 6260, 6270 4201 5 FV5 5661, 5662, 5700, 5702 4202 5 FV7 5541, 5547, 5562, 5564, 5566 4203 5 FV8 5546, 5550 4204 5 FV9 5614, 5622, 5635, 5637, 5641 10441 5 I13 7224 5 IF1 7224 7245 5 IF2 7236, 7241 7255 5 IF3 7255 7272 5 IF4 7266 4136 5 IN1 4712, 4727, 4763, 5045, 5074, 5103, 7075, 7361 4137 5 IN2 4140 5 IN3 4111 5 IN4 4273, 4311, 4312, 4454, 4456 4102 5 IR1 4275, 4434, 4714, 4723, 5013, 5047, 5066, 5101, 5112, 5376, 5440, 6321, 6347, 6356, 6371, 6431, 6444 6470, 6473, 6501, 6505, 6511, 6551, 6567, 6676, 6706, 6737, 6746, 6750, 7100, 7127, 7541, 7564, 7603 7606, 7610, 7641, 7666, 7751, 7767, 7776,10010,10056,10237,10507 4103 5 IR2 4104 5 IR3 4131 5 IR4 5012, 5102 4132 5 IR5 4133 5 IR6 4135 5 IRC 4736, 4773, 5016,10512 4105 5 IRR 4320, 4406, 4450, 5065, 6427, 6565, 6612, 6615, 6632, 6643, 6670, 6712, 6724, 6734 10470 5 IV1 10446,10451 6471 5 L10 6475, 6503 6462 5 L11 6471 6470 5 L13 6466 6452 5 L14 6450 6504 5 L15 6451 6505 5 L16 6513 6426 5 L17 6400, 6402, 6404 6401 5 L18 6377 6356 5 L23 6357 4003 5 LD1 4010, 7030, 7116, 7176, 7215 4010 5 LD2 7274 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 11 POST PROCESSOR ASSEMBLY DATA 4011 5 LD3 6535 4012 5 LD7 6130,11003 4013 5 LD8 4020 5 LK1 4276, 5150, 5213, 5215, 6443, 6474, 6506, 6620, 6702, 7536, 7640, 7663,10007 4021 5 LK2 4022 5 LK3 6453, 7013, 7265 4226 5 LT1 4122 4014 5 LT7 6140, 6214, 7550 4213 5 LV1 6512 4214 5 LV2 4215 5 LV3 4216 5 LV4 6446, 6452, 6455, 6457 4217 5 LV5 4224 5 LX1 6526, 6616, 6621, 6677, 6703, 6705, 6735, 6740, 6744 4225 5 LX2 6527 4226 5 LX3 6530 4077 5 MZE 4100, 7572, 7643,10007,10163,10344 4066 5 PCC 7146 7106 5 PS1 7106 7125 5 PS2 7125 7267 5 PS3 7060, 7130, 7173 12463 5 REG 5121, 5161, 5414, 5510, 5515, 5523, 5526, 5646, 5715, 5736, 5756, 6011, 6077, 6141, 6165, 7042, 7123 7262, 7273, 7343, 7355, 7400, 7506, 7711, 7763, 7765, 7773,10064,10336,10517 7152 5 RT1 7152 7170 5 RT2 7170 10401 5 RWD 10365 4332 5 S11 4342, 4357, 4402, 4427 4420 5 S13 4404 4417 5 S14 4406 5 S15 4423 4407 5 S16 4341, 4375 4405 5 S18 4437 5 S21 4433, 4435 4432 5 S22 4437 4450 5 S23 4462 4441 5 S24 4436 4452 5 S25 4447 4460 5 S26 4455 4461 5 S27 4463 4447 5 S28 4445 4502 5 S31 4501 4506 5 S32 4504 4515 5 S34 4511 4514 5 S35 4505 4561 5 S36 4536, 4537 4544 5 S37 4545 5 S38 4544 4564 5 S39 4324, 4414, 4466, 4550, 6534,10145 4604 5 S41 4577, 4602, 4633 4634 5 S42 4606 4632 5 S43 4643 4644 5 S44 4622 4645 5 S45 4614, 4615 4656 5 S46 4623 5 S47 4621 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 12 POST PROCESSOR ASSEMBLY DATA 4653 5 S49 4671 4702 5 S51 4703,10503 4705 5 S54 4720 4712 5 S55 4710, 4717 4717 5 S56 4713, 4715 4720 5 S57 5062, 5064 5057 5 S58 4711 5063 5 S59 4716 10500 5 S5P 4700 5101 5 S71 5113 5111 5 S72 5104, 5107 5113 5 S73 5110 5141 5 S91 5140 5126 5 S92 5141 5144 5 S93 5135 5137 5 S94 5147, 5151 5166 5 SA1 5204 5207 5 SA2 5175 5204 5 SA3 5203 5177 5 SA4 5212, 5214 5200 5 SA5 6105 5 SAD 6745, 7051, 7121, 7135, 7164, 7201, 7220, 7251, 7277 5275 5 SB1 5225 5254 5 SB2 5252 5245 5 SB4 5256 5257 5 SB5 5253 5310 5 SB6 5274 5241 5 SB7 5237 5267 5 SB8 5265 5271 5 SB9 5266 5342 5 SC2 5340 5347 5 SC3 5345 5336 5 SC4 5360 5361 5 SC5 5341 5366 5 SC6 5346 5357 5 SC7 5367 5370 5 SC8 5335, 5352 5372 5 SC9 5320, 5353, 5361, 5375 5431 5 SD1 5427, 5431 5432 5 SD2 5422 5 SD3 5432 5434 5 SD4 5430 5443 5 SD5 5441, 5457 5450 5 SD6 5446 5416 5 SD7 5451 5452 5 SD8 5410, 5447 5454 5 SD9 5442 3746 5 SE1 5156, 5450, 5535, 5544, 5732, 6004, 6135, 6162, 6767, 7031, 7072, 7116, 7156, 7163, 7211, 7216, 7257 7277, 7311, 7317, 7346, 7557,10440, 4027, 4037, 4214, 4023, 4030, 4046, 4053, 4076, 4115, 4134, 4154 4175, 6110, 6201, 6227, 6741, 7037, 7113, 7157, 7212,10312 3741 5 SE4 3753, 5305, 6603, 6626,10176,10224,10250, 4020, 4126, 6521 3741 5 SE5 3753, 5246, 5553, 6657, 7167, 7442, 7714,10040,10070, 4064, 4063, 4131, 6117, 6176, 7546,10024 3740 5 SE6 5626, 7222, 4042, 6743, 7047, 7117, 7133, 7162, 7177, 7216, 7247, 7275 0 5 SET 4760, 4204, 4205, 4376, 4377, 4416, 4512, 4627, 4640, 4662, 4672, 4771, 5142, 5205, 5313, 5364, 5404 5437, 5452, 5527, 5570, 5575, 5643, 5746, 4103, 4204, 4217, 4220, 6145, 6164, 6217, 6233, 6263, 6313 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 13 POST PROCESSOR ASSEMBLY DATA 6342, 6357, 6405, 6434, 6474, 6500, 7451, 7623, 7633,10225,10360,10400 5464 5 SF1 5462 5470 5 SF4 5463, 5466 5474 5 SF5 5473 5506 5 SG1 5522 6173 5 SH1 6174 6203 5 SH2 6212 6211 5 SH3 6205, 6211 6213 5 SH4 6233 5 SI0 6222, 6266, 6310 6264 5 SI1 6245, 6264 6244 5 SI2 6265 6300 5 SI3 6271 6304 5 SI4 6272 6274 5 SI5 6312 6313 5 SI6 6221, 6273, 6276, 6302, 6307 6336 5 SJ1 6325, 6333, 6336 6324 5 SJ2 6337 6342 5 SJ3 6315, 6321, 6334, 6340 6362 5 SK1 6350 6353 5 SK2 6407 5 SL1 6223, 6447 6375 5 SL2 6420 6434 5 SM1 6427, 6433 6462 5 SM2 6460 6457 5 SM3 6463 6464 5 SM4 6461 6474 5 SM5 6430, 6473 6431 5 SM6 6475 6476 5 SM7 6474, 6502 6502 5 SM8 6432 6500 5 SM9 6424, 6505 2110 5 STL 10563,12463 6104 5 SYN 10141,10144,10324,10333 4132 5 TAG 6533, 6555, 6641 73577 5 TOP 10563,40004,56774 4117 5 TPE 4365, 4441, 4573, 5460, 6375, 6433, 6555, 6573, 6713, 6730,10160 10420 5 TSX 10432 4254 5 TWO 4015 10432 5 TXH 10427 10431 5 TXI 10415,10424 10416 5 UP1 10411 10417 5 UP2 10414 6615 5 X01 6611, 6733 6625 5 X02 6711, 6736, 6741 6656 5 X03 6667 6665 5 X04 6663 6670 5 X05 6664 6755 5 X13 6533 6610 5 X14 6576, 6700 6722 5 X15 6720 6701 5 X16 6644, 6721 6730 5 X17 6723 6734 5 X18 6732 6622 5 X19 6617 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 14 POST PROCESSOR ASSEMBLY DATA 6521 5 X21 6742 5 X22 7005 6747 5 X23 6745 6753 5 X24 6752 6744 5 X25 6753 7006 5 X26 6754, 6756, 7004 7012 5 X31 7010 6525 5 X32 6340, 7017 7476 5 X33 7016 7536 5 X34 7534 7541 5 X35 7537 7544 5 X36 7540, 7542, 7562, 7651,10413,10420 7546 5 X37 7516 5 X38 7546 7557 5 X39 7555 7510 5 X40 7560 7602 5 X41 7535 7545 5 X42 7545, 7600, 7633,10376 7646 5 X44 10521 7652 5 X45 7556 7663 5 X46 7661 7671 5 X47 7667 7713 5 X48 7724 7722 5 X49 7720 7725 5 X50 7721 7735 5 X51 7733 7726 5 X52 7735 7737 5 X53 7734 7760 5 X54 7753,10000,10006,10011 7742 5 X55 7665 7653 5 X56 7761 7040 5 X57 7103 5 X58 7101 7112 5 X59 7110, 7370, 7423 7075 5 X60 7112 7357 5 X61 7036 7360 5 X62 7363 7041 5 X63 7366 7367 5 X64 7102 7111 5 X65 7405, 7414 7406 5 X66 7404 7424 5 X67 7106 7441 5 X68 7452 7450 5 X69 7446 7453 5 X70 7447 7463 5 X71 7461 7454 5 X72 7463 7465 5 X73 7462 7246 5 X74 7234, 7237 7276 5 X75 7305, 7307 7320 5 X76 7306 7323 5 X77 7136 5 X79 7332 7315 5 X80 7253 7352 5 X81 7141, 7314 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 15 POST PROCESSOR ASSEMBLY DATA 7622 5 X82 7620 7627 5 X84 7626 7615 5 X85 7627 7634 5 X86 7602, 7621, 7625 7601 5 X87 7635, 7645 10023 5 X88 7011 7114 5 X89 10054,10142 10046 5 X90 10044 10037 5 X91 10050 10100 5 X92 10045 10126 5 X93 10060,10120,10126 10127 5 X94 10104 5 X95 10127 10117 5 X96 10077,10115 10055 5 X97 10116 10061 5 X98 10057 6644 5 XI1 6640, 6642 4045 5 XK3 4053 4050 5 XK4 4060 4051 5 XK5 4052 5 XK9 5277, 6544,10155 4227 5 XV1 5652, 7300, 7330, 7354,10063 4230 5 XV2 5654, 6624, 7124, 7132, 7266, 7271, 7352, 7473, 7644,10476 4231 5 XV3 6545, 6602, 6625,10156,10175,10223,10247 4232 5 XV4 6546, 6604, 6627,10157,10177,10207,10225,10251 4233 5 XV5 5470, 6543,10154 4234 5 XV6 7604, 7617, 7624 4235 5 XV7 7607, 7630 4236 5 XV8 7047, 7061, 7063, 7514, 7526, 7547, 7650,10035,10100 4237 5 XV9 7045, 7051, 7437, 7454, 7512, 7516, 7703, 7726,10103,10104 7767 5 XY1 7774 7774 5 XY2 7771 10051 5 XY3 10024 10052 5 XY4 10053 7546 5 Z12 7544 7543 5 Z15 7561 7564 5 Z21 7570 7623 5 Z22 7621 7606 5 Z23 7632 7637 5 Z24 7637 7576 5 Z25 7645 7645 5 Z26 7602 7632 5 Z27 7614, 7626, 7627 7573 5 Z28 7574 7657 5 Z31 7655 7662 5 Z32 7660 7714 5 Z33 7656 7717 5 Z34 7661 7722 5 Z35 7653 7730 5 Z36 7726 7733 5 Z37 7731 7666 5 Z38 7727 7671 5 Z39 7732 10043 5 Z41 10045 10051 5 Z42 10065 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 16 POST PROCESSOR ASSEMBLY DATA 10053 5 Z44 10041 10061 5 Z45 10066 10072 5 Z46 10054 10074 5 Z47 10050,10052,10071,10074 10073 5 Z48 10074 10023 5 Z49 10033 10107 5 Z51 10103 10145 5 Z52 10145 10077 5 Z53 10151 10152 5 Z54 10124,10127,10132,10135 10147 5 Z55 10106,10114,10165,10173,10205 10220 5 Z61 10227 10253 5 Z71 10251,10277,10303 10231 5 Z72 10254 10254 5 Z73 10235,10242,10306 10300 5 Z74 10247,10271 10304 5 Z75 10234,10237,10240 10243 5 Z76 10305 10267 5 Z77 10252 10322 5 Z81 10342 10323 5 Z82 10323 10343 5 Z83 10322 10326 5 Z84 10770 6437 5 1L19 6435 4116 5 1TAG 4371, 4430, 4570, 6370, 6430, 6550, 6566,10240 7477 5 1TXI 4256 5 2LD3 4076, 4145, 4175, 4260, 4262 6674 5 6ANA 6726 5 6SUB 6730 4135 5 9CNT 6513, 6530 4007 5 AAC2 4041 5 AAC3 4037 4131 5 ABOX 6771, 7001, 7011 4145 5 AC10 4140 4125 5 AC11 4147 4150 5 AC12 4113, 4121, 4204 4035 5 AC13 4152 4153 5 AC14 4040 4020 5 AC15 4164 4165 5 AC16 4021 4122 5 AC18 4120 4174 5 AC19 4130 4203 5 AC20 4201 4205 5 AC21 4203 4204 5 AC22 4016 4200 5 AC23 4205 4206 5 AC24 4202 4177 5 AC25 4214 4103 5 AC51 4075, 4132, 4141 4141 5 AC91 4227 5 ACK1 4020 4157 5 ACT1 5202, 6322, 7413, 7573, 7752,10020,10361 4230 5 ACV2 4035, 4150 4231 5 ACV3 4026, 4036 4232 5 ACV4 4031, 4071, 4155 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 17 POST PROCESSOR ASSEMBLY DATA 4233 5 ACV5 4234 5 ACV6 4050, 4060, 4126 4235 5 ACV7 4057, 4106, 4125, 4145 4236 5 ACV8 4044, 4052, 4114, 4174, 4211 4237 5 ACV9 4056, 4124 14600 5 ADJL 56774 4222 5 AMSK 4034, 4055, 4065, 4162 4143 5 ARG1 6122, 6740, 7034, 7112, 7156, 7211 16770 5 BBBL 10563,40004 4124 5 BBNO 6224, 6370, 6412, 6437, 6454, 6736, 6753, 7032, 7110, 7154, 7207, 7502, 7503, 7514, 7524, 7535,10016 10307 4127 5 BBOX 6515, 6526, 6735, 6746, 6752, 6773, 7014, 7427, 7452 4113 5 BL01 4063 4141 5 BL02 4116 4114 5 BL03 4156 4157 5 BL04 4114, 4263 4210 5 BL05 4214 5 BL06 4025 4171 5 BL07 4163 4201 5 BL08 4201 4172 5 BL09 4202 4204 5 BL10 4207 4206 5 BL11 4206 4006 5 BL12 73666 4234 5 BLV1 4023, 4036, 4167, 4210, 4212 4235 5 BLV2 4040, 4044 4236 5 BLV3 4016, 4024 4237 5 BLV4 4047, 4157 4240 5 BLV5 4035, 4061 4241 5 BLV6 4032, 4052 4242 5 BLV7 4046, 4073, 4147, 4172 4243 5 BLV8 4070, 4100 4244 5 BLV9 4066, 4071, 4104, 4106 4673 5 BS1R 4636 4104 5 CASE 7577, 7612, 7615, 7636 10402 5 CHEF 7507 7416 5 CI3A 6576, 6621 6545 5 CI5A 6542 7316 5 CI7A 6512 7347 5 CI7C 7323, 7326, 7332 7404 5 CI7D 7373, 7377, 7402 7414 5 CI7E 7365 4141 5 CIND 6544, 7333, 7364, 7424, 7521 4474 5 CLST 6347, 6361,10400 23210 5 CMTL 4015,10563,14574,40004 4223 5 COM1 4012 7451 5 D1XX 7426, 7471 3736 5 DIAG 4323, 4424, 4464, 5270, 5433, 5707, 7464, 7736, 6761, 7233 7017 5 DOCS 6720 4672 5 DS46 4646, 4650, 4660, 4664, 4670 4234 5 EXCO 4200, 4204 5764 5 F100 5762 5712 5 F86A 4065 5 FSTT 6677 4205 5 FV10 5621, 5623 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 18 POST PROCESSOR ASSEMBLY DATA 6762 5 GON1 6760 7012 5 GON2 6770, 7012 6766 5 GON3 7013 7045 5 GOV1 7043 7061 5 GOV2 7055 7064 5 GOV3 7064 7035 5 GOV4 7035 7071 5 GOV5 7071 4041 5 GSYM 6611, 7331, 7362, 7410 4106 5 IND1 4270, 4310, 4316, 4403, 4432, 4453, 4461 4107 5 IND2 4271, 4420 4110 5 IND3 4272 6354 5 INIZ 6425 5060 5 INST 6154, 6156, 6160, 6162, 6510, 6531, 6540, 6560, 6563, 6577, 6604, 6607, 6613, 6624, 6626, 6630, 6632 6644, 6660, 6662, 6666, 6673, 6703, 6724, 6732, 6747, 6774, 6775, 7027, 7056, 7062, 7075, 7101, 7123 7126, 7137, 7142, 7143, 7166, 7171, 7203, 7222, 7225, 7234, 7237, 7253, 7256, 7264, 7301, 7304, 7307 7310, 7316, 7324, 7327, 7336, 7347, 7355, 7360, 7366, 7374, 7400, 7416, 7432, 7446, 7462 73574 5 KEYS 5703,10426,10431,10433,10436,10460,40004, 4014, 7505,10754 4034 5 LAXT 4037 5 LBSS 7340 4027 5 LDED 6617 14600 5 LEFT 10563,56774 4036 5 LEQU 4035 5 LLXD 4076, 6605, 7353, 7406 4025 5 LLXP 6567 4230 5 LMSK 4132 4040 5 LPSE 4033 5 LSXA 4032 5 LSXD 4075, 6777, 7322, 7372 4026 5 LSYN 10331 4024 5 LTPL 7231 4030 5 LTRA 4075, 6377, 7262, 7305 4031 5 LTSX 4225 5 LXDC 4212 4144 5 MBOX 7031, 7054, 7070, 7072 200 5 NSXD 4760, 4120, 5104 4002 5 ONEA 4735, 5060, 5255, 5477, 5543, 5565, 5701, 5704, 6666, 6772, 7155, 7176, 7210, 7353, 7451, 7723,10047 10307,10437,10450, 4026, 4053, 4111, 4135, 4162, 4211, 4022, 4045, 4101, 4107, 4137, 4146, 4151, 6125 6300, 6476, 6517, 6757, 7506, 7522, 7557, 7744, 7755, 7773,10003,10020,10032,10072,10150 4003 5 ONED 4527, 5323, 5336, 5356, 5616, 5640, 6332, 7231, 7756,10273, 4010, 6426, 7066, 7501, 7525, 7566,10074 6473 5 P003 6467 11025 5 PRAM 11010,11016,11022 56774 5 PRED 3773, 5247, 5273, 5554, 6660, 6673, 7170, 7203, 7205, 7443, 7467, 7715, 7741,10041,10075,73574, 4067 4107, 4064, 4070, 4073, 4074, 4104, 4133, 4144, 6120, 6127, 6137, 6177, 7547,10025,11002,11005,11012 4021 5 PRMK 77 5 PTL1 4760,10523 44 5 PTL2 4760, 4264 56 5 PTL3 4760, 4244 42 5 PTL4 4760,10435 7610 5 R004 4006 5 RDIN 73666 4224 5 RMSK 4031, 4051 6405 5 ROT0 6403 6411 5 ROT1 6353, 6410, 6422 6414 5 ROT2 6421 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 19 POST PROCESSOR ASSEMBLY DATA 6416 5 ROT3 6352, 6407, 6412 6420 5 ROT4 6416 6422 5 ROT5 6417 4425 5 S101 4352 4403 5 S102 4346, 4362, 4426 4350 5 S103 4333 4340 5 S104 4336, 4345, 4347 4353 5 S105 4351 4424 5 S107 4421 4422 5 S108 4265 5 S109 4263 4262 5 S111 5022 4327 5 S112 4331 4410 5 S113 4412 4401 5 S114 4400 4367 5 S115 4401 4376 5 S116 4372 4377 5 S117 4373 4416 5 S118 4266 4275 5 S120 4301 4300 5 S122 4314 4306 5 S124 4277 4322 5 S125 4317 4316 5 S126 4322 4324 5 S127 4300 4315 5 S128 4313 4320 5 S129 4307 4323 5 S130 4343 5 S135 4337 4363 5 S136 4361 4360 5 S137 4356 4005 5 S1K2 4006, 4364 4067 5 S1V1 4330, 4334, 4343, 4360, 4410 4077 5 S1V3 4325, 4413 4100 5 S1V5 4265, 4306, 4446 4101 5 S1V6 10255,10271 4006 5 S2K1 7033, 7213, 7220 4007 5 S2K2 5461, 6574, 6731,10161 4556 5 S300 4472 4543 5 S302 4563 4520 5 S303 4560 4540 5 S304 4535 4512 5 S305 4467, 4510, 4551 4477 5 S306 4475 4010 5 S3K1 4350, 4503, 4561, 5236, 5344, 5601, 5771, 6202, 6214, 6415, 6447, 7007, 7137, 7150, 7324,10465 4011 5 S3K2 4354, 4506, 5230, 5332, 5347, 5747, 6066, 6155, 6343, 6646, 6761, 7002, 7115, 7142, 7250, 7333, 7427 7673,10026,10302,10317 4012 5 S3K3 5366, 6325, 6331, 6360, 6514,10130 4013 5 S3K4 4517, 4532, 4567, 5210, 5275, 5374, 5435, 6764,10442 4014 5 S3K5 4571 422 5 S3P1 4012, 4476, 4477, 5227, 5235, 5331, 5343, 5572, 5573, 5574, 5602, 5723, 5726, 5743, 5765, 6001, 6003 6043, 6046, 6131, 6147, 6152, 6153, 6154, 6175, 6177, 6203, 6205, 6215, 6224, 6226, 6227, 6242, 6245 6251, 6253, 6264, 6300, 6313, 6406, 6640, 6645, 6653, 6675, 6756, 6757, 7134, 7136, 7147, 7247, 7323 7372, 7416, 7426, 7434, 7672, 7700,10300,10563,10564 4112 5 S3V1 4327, 4335, 4411, 4520, 4533, 4575, 4604 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 20 POST PROCESSOR ASSEMBLY DATA 4113 5 S3V2 4344, 4465, 4545, 4565, 6337, 6364, 6520, 6541,10135,10152 4114 5 S3V3 4470, 4541, 4562, 6336, 6363, 6517,10133 4115 5 S3V4 4473, 4502, 5324, 5337, 5472, 6333, 6361, 6405, 6515, 6637, 6674, 6755, 7371, 7415, 7425, 7671, 7754 10131,10277 4121 5 S3V5 4353, 4474, 4500, 4513, 4526, 4554, 5501, 6334, 7006, 7012, 7020, 7037, 7364, 7476, 7500, 7502,10316 10351,10365 4122 5 S3V6 4522, 4547 4123 5 S3V7 4525, 4534, 4540, 4542 4124 5 S3V9 4471, 4552 4616 5 S401 4613 4015 5 S4K1 4523, 4557, 4600, 4612, 4644 4016 5 S4K2 4617, 4631, 4642, 4654,10445,10453 4017 5 S4K3 4546, 4647, 6537,10150 4125 5 S4V1 4556, 4576, 4652, 6536,10147,10456 4126 5 S4V2 4605, 4611, 4630, 4632, 4641, 4651, 4653, 4655,10455 4127 5 S4V3 4610,10443 4130 5 S4V4 4607, 4616 4722 5 S510 4750 4727 5 S511 4725 4734 5 S512 10513 4740 5 S513 4726, 4747 4750 5 S514 4730, 4732, 4733, 4737, 4746 4757 5 S515 4752, 4754, 5015, 5034, 5044 4770 5 S516 4762, 4766 4767 5 S517 4764 4763 5 S518 4767 4760 5 S519 4770 4773 5 S520 4755 5004 5 S521 5007 5010 5 S522 5006 5012 5 S525 5014 5016 5 S526 4756 5025 5 S527 5031 5031 5 S528 5027 5011 5 S529 5032, 5071 5033 5 S530 5020 5035 5 S531 4776, 4777, 5033 5037 5 S532 5043 5043 5 S533 5041, 5054, 5056 5045 5 S534 5042, 5055 5055 5 S535 5046, 5052 5000 5 S536 4775 4747 5 S537 4741, 4744,10510 4771 5 S541 4675 5065 5 S595 5003, 5023 4023 5 S5K1 4707, 4724, 5005, 5026, 5040, 5136, 5146, 5176, 5211, 6346, 6355, 6465, 6510, 7126, 7326, 7533, 7570 7660, 7770,10321 4024 5 S5K2 4731, 4742, 5050, 5105, 7103, 7576, 7611, 7777,10013,10113,10357 4025 5 S5K3 4443, 5402, 5454, 5512, 6335, 6362, 6516, 6622, 7471, 7642, 7646, 7707,10061,10132,10474,10502 4026 5 S5K4 4753, 4774, 5017 4147 5 S5V2 4676,10500 4027 5 S7K1 5067, 5111 5142 5 S911 5115 4030 5 S9K1 4031 5 S9K2 5134, 5174 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 21 POST PROCESSOR ASSEMBLY DATA 4034 5 S9K3 5131, 5171, 5263, 5425, 5727, 7054, 7457, 7521, 7731,10107,10215,10233,10260 4150 5 S9V1 5125, 5126 4151 5 S9V4 5122, 5133 5205 5 SA31 5152 6116 5 SAD1 6126 6127 5 SAD2 6123 6137 5 SAD3 6131 6147 5 SAD4 6141 6145 5 SAD5 6105, 6150 6144 5 SAD6 6136 6134 5 SAD7 11031 4035 5 SAK1 5154, 6765 4225 5 SALM 4065 4152 5 SAV1 5164, 5166, 5200 4153 5 SAV3 5162, 5173 5260 5 SB00 5267 5234 5 SB01 5232 5313 5 SB61 5223 4036 5 SBK1 5301 3764 5 SBK2 4037, 5153, 5250, 5444, 5445, 6031, 6032, 6116, 6117, 6221, 6256, 6276, 6535, 6661, 7066, 7067, 7160 7165, 7171, 7224, 7303, 7304, 7444, 7553, 7554, 7716,10042,10146 4037 5 SBK3 5271 4162 5 SBV2 5245, 5254, 5303, 5306, 6656, 6665, 7166, 7175, 7221, 7230, 7441, 7450, 7713, 7722 4163 5 SBV3 5234, 5251, 6652, 6662, 7146, 7172, 7207, 7215, 7433, 7445, 7677, 7717,10032,10043 4164 5 SBV4 5222, 5264, 5311, 7656, 7732, 7742, 7747,10015,10471 4165 5 SBV5 5243, 5260, 7161, 7177, 7214, 7232 5404 5 SC00 5371 5373 5 SC01 5372 5355 5 SC02 5333, 5334, 5377, 5401, 5406 5402 5 SC03 5400 5353 5 SC04 5351 5330 5 SC40 5325 5364 5 SC51 5317 4040 5 SCK1 6151 5 SCMI 6701, 6750, 7015, 7024, 7026, 7063, 7105, 7124, 7140, 7151, 7167, 7204, 7223, 7254, 7302, 7312, 7314 4166 5 SCV3 5321, 5322, 5330, 5342, 5355, 5357 5437 5 SD41 5416 4170 5 SDV2 5407, 5426, 5436 4171 5 SDV3 5420, 5422 3742 5 SE4A 3752 3770 5 SE4F 3771 5 SE4H 3775 5 SE4J 10427,10430,10432,10434 3764 5 SEK2 3741, 3746, 4037 3765 5 SEK4 5524, 6062, 7475 3766 5 SEK5 3742 3767 5 SEV2 4172 5 SFV1 5471, 5474, 6613, 6726 4173 5 SFV2 5527 5 SG11 5476 4174 5 SGV2 5500, 5514, 5521, 5525 6217 5 SH41 6170 4073 5 SHK1 4156 5 SHV2 6200, 6203, 6213 6263 5 SI21 6246 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 22 POST PROCESSOR ASSEMBLY DATA 4074 5 SIK2 4075, 6241 4032 5 SIK3 4075, 6254, 6637 4157 5 SIV3 4160 5 SIV4 6232, 6236 4161 5 SIV6 6247, 6256 4004 5 SIXA 3750 4162 5 SJV1 6320, 6332 4163 5 SJV3 6361 5 SK11 6355 3763 5 SK1F 4007,10405 4674 5 SK1R 4625 4221 5 SK2F 4013 6563 5 SKLX 6550 6573 5 SKLY 6571 6405 5 SL21 6374, 6411 4030 5 SLK1 4075 4075 5 SLK2 4077, 6366 4474 5 SLV2 6226, 6240, 6242, 6250, 6253, 6367, 6373, 6401, 6415 4475 5 SLV3 6301, 6407, 6417, 6477, 7523,10073 6436 5 SM10 6434 4075 5 SMK1 4077, 6444 4035 5 SMK2 4076, 6452, 6553 4023 5 SMK3 4076 4076 5 SMK4 4077, 6257, 6466, 6556, 6642 4476 5 SMV2 6436, 6456, 6470 4477 5 SMV3 6445, 6472 4500 5 SMV4 6446, 6450 12463 5 STAG 3771, 5307, 6607, 6635,10200,10212,10230,10254, 4021, 4122, 4130, 4221, 6522 7313 5 STP1 7313 6670 5 SUBP 6672 65274 5 SUCC 3774, 5627, 7223, 7242, 7244,73574, 4043, 6744, 7050, 7120, 7134, 7163, 7200, 7217, 7250, 7276 5104 5 SXAS 10010 4146 5 SXD0 6173, 6175, 6216, 6304, 6316,10053,10121,10142,10167,10200,10206 4147 5 SXD1 6210,10036,10043,10111,10126,10210 4150 5 SXD2 10037,10112,10131,10212 4151 5 SXD3 10040,10113,10134,10214 5060 5 SXST 6234, 6244, 6267, 6311, 7020, 7023, 7243, 7270, 7510, 7513,10012,10014,10044,10102,10116,10125,10130 10133,10136,10152,10164,10207,10211,10213,10215,10220,10245,10274,10345 4223 5 TMSK 4112, 4143, 4207 6703 5 TR3S 6661 6706 5 X100 6704 7300 5 X101 7110 5 X102 6561 5 X103 6557 6717 5 X104 6715 7310 5 X105 7264 7153 5 X107 7151, 7241 7175 5 X108 7173, 7206 7166 5 X109 7200, 7202 7203 5 X110 7174 7230 5 X111 7226, 7245 7221 5 X112 7233, 7235 7242 5 X113 7227 7236 5 X114 7152 7133 5 X115 7130 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 23 POST PROCESSOR ASSEMBLY DATA 7126 5 X116 7133 6652 5 X117 6650 7020 5 X118 7015 7107 5 X119 7105, 7475 7142 5 X120 7140 7146 5 X121 7144 7254 5 X122 7252 7433 5 X123 7431 7677 5 X124 7675 10032 5 X125 10030 6764 5 X126 6762 7000 5 X127 6776 6775 5 X128 7000 7001 5 X129 6766, 6773 10012 5 X131 7670 10020 5 X132 10014 10015 5 X133 10022 7666 5 X134 7664 7746 5 X135 7744,10017,10021 7752 5 X136 10077 5 X137 10055,10076 7321 5 X140 7321 7630 5 X201 7612 7257 5 X205 7255 7121 5 X206 7117 7124 5 X207 7120 7415 5 X208 7407 7044 5 X209 7073 7051 5 X210 7062 7072 5 X211 7070 7074 5 X212 7071 7037 5 X213 7030 7335 5 X215 7351 7327 5 X216 7336 7333 5 X217 7325 7336 5 X218 7344, 7347 7325 5 X219 7337, 7350 7337 5 X220 7334 7031 5 X221 7027 7207 5 X222 7201 7776 5 X223 7662 10005 5 X224 10003 10002 5 X225 10005 10007 5 X226 10477 7561 5 X430 7543 10514 5 X44A 7574, 7577 4045 5 XK10 4053, 6600 4053 5 XK11 6605,10202,10203 4054 5 XK12 5464,10172 4055 5 XK15 6376, 6434, 6556, 6714,10164 4056 5 XK16 6671, 7465, 7737,10073 4057 5 XK17 7014 4050 5 XK18 4060 4060 5 XK19 4061 5 XK20 7046, 7513 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 24 POST PROCESSOR ASSEMBLY DATA 4062 5 XK21 4442, 6401, 6437, 6561, 6717,10167 4063 5 XK22 7267, 7312, 7764 4064 5 XK23 5517, 7131, 7772 4240 5 XV10 7527, 7544, 7566, 7631 4241 5 XV11 7373, 7401, 7412, 7417, 7421, 7424, 7460, 7470, 7474 4242 5 XV12 7135, 7246, 7320, 7322, 7374, 7402 4243 5 XV13 7510, 7613,10400,10514 4244 5 XV14 7653, 7706, 7746, 7760,10065,10071,10121,10124 4245 5 XV15 10066,10072,10122,10125 4246 5 XV16 10037,10046,10067 4247 5 XV17 7263, 7270, 7274 4250 5 XV18 7154, 7162, 7225 4251 5 XV19 6760, 7001,10301,10337,10341 4252 5 XV20 10363,10364,10367 4253 5 XV21 7565, 7571,10375,10403,10407 4254 5 XV22 7276, 7310, 7316, 7345 4255 5 XV23 7024, 7034, 7041 4256 5 XV24 7023, 7035, 7406 4077 5 Z1K3 4100, 7553 4501 5 Z1V2 7534, 7543,10100 4502 5 Z1V3 7540, 7542, 7556, 7560,10023,10031,10034,10077,10105,10107,10147 4503 5 Z1V5 7532, 7555, 7576 4504 5 Z1V8 7541,10022,10076 7633 5 Z271 7631 4100 5 Z2K1 6425, 7565,10231 4103 5 Z2K2 4113 5 Z2K3 7622 4114 5 Z2K4 7620 4115 5 Z2K5 6364, 7603, 7624, 7646, 7767,10000 4505 5 Z2V1 6326, 7567, 7607, 7634, 7642, 7737,10061,10176,10300 4510 5 Z2V2 7604, 7625, 7630 7674 5 Z300 7724 7702 5 Z301 7700 7705 5 Z302 7703 7711 5 Z303 7701 7747 5 Z304 7704 7750 5 Z305 7751 5 Z306 7665, 7670, 7673, 7676, 7710, 7713, 7716, 7721, 7736 7737 5 Z307 7650 7765 5 Z308 7754, 7757, 7762, 7765 7753 5 Z309 7766 10034 5 Z410 10030 10012 5 Z411 10013 4116 5 Z4K1 4117 5 Z4K2 4530 5 Z4V1 10057,10064,10067,10270 10206 5 Z500 10162,10172,10204 10166 5 Z502 10153,10155,10171,10203 10116 5 Z503 10166 10167 5 Z504 10156 10174 5 Z505 10161,10174 10175 5 Z506 10160,10175 10176 5 Z507 10157 4531 5 Z5V1 10075,10146,10321,10410,10430 10225 5 Z6V1 10222,10226 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 25 POST PROCESSOR ASSEMBLY DATA 4121 5 Z7K1 10243,10272 4532 5 Z7V1 10246,10253,10267 4533 5 Z7V2 10241,10255,10256,10304 4001 5 ZERO 4452, 5310, 5362, 5532, 5605, 5653, 5656, 6005, 6072, 6317, 6521, 6525, 6707, 7272, 7622,10136,10265 10405, 4017, 4123, 6172, 6252, 6375, 6403, 6416, 6551, 6634, 6772, 7342, 7344, 7404, 7531, 7562, 7606 10340 7043 513TNX 7073 7234 516CLA 7232 4255 52AMSK 4034, 4057 6510 52FNDS 6506 4215 53CTL1 4010 4217 53CTL2 4167, 4171 4220 53CTL3 4167 5ACIND 5326, 6531,10134 4240 5ACV10 4051, 4105, 4111, 4142, 4206 4241 5ACV11 4242 5ACV12 4166 4243 5ACV13 4017 5ADDMK 6106, 6114, 6121, 6231, 6235, 6561, 6601, 6645, 7375, 7420, 7512,10026,10104,10140,10314,10334,10755 10772 6300 5ADJLF 56774,65274 16770 5AJBBL 40004 4320 5ASCON 4015, 4165, 4200, 4213, 4215, 4216, 4217, 4220 3755 5ASLBL 4014, 4172 4130 5BBOX1 7036, 7042, 7045, 7052, 7107, 7122, 7131, 7136, 7153, 7165, 7174, 7202, 7206, 7221, 7245, 7252, 7272 7300, 7500,10343 7500 5BEGBB 6751, 7016, 7025, 7074, 7141, 7205, 7244, 7271, 7303, 7315,10771 7514 5BEGBY 7511 4227 5BITMK 4102 4323 5BLIST 4041, 4223 3754 5BLLBL 4010, 4013 4245 5BLV01 4060, 4110 4246 5BLV03 4125, 4134, 4136 4247 5BLV04 4115, 4141 4250 5BLV05 4055, 4113, 4117, 4140 4251 5BLV06 4131, 4142, 4144 4252 5BLV07 4022, 4121, 4124, 4133, 4155, 4217 4253 5BLV08 4120, 4127, 4220 4005 5BLV09 4164, 4170 6660 5CKLOC 6655, 7415 14574 5CMTAG 4017,10423,10424 7153 5CNDTR 7150 4142 5CPIND 6151, 6166, 6600, 6635, 6657, 7414, 7417 10442 5CTBUF 7441, 7445, 7472 3756 5CTLBL 6356,10366,10375 7431 5D1CLA 7433 7454 5D1END 7442 7457 5D2END 7440 4015 5DECMK 6317, 6371, 6440, 6610, 6667, 6725, 7102, 7330, 7361,10117,10122,10170,10325 7336 5DLSXD 7334, 7403 10377 5EFCW2 10351 3761 5EFLBL 10364 5EFREW 10354 10360 5EFTXL 10357,10363 11206 5ELPLT 11206 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 26 POST PROCESSOR ASSEMBLY DATA 4226 5EN2MK 4215 10563 5END29 10423,10563 4324 5END30 4324 4320 5END31 4320 11177 5END32 11177 6723 5ENDBB 6664 4016 5ENDMK 7461 73574 5ENTBL 73574 10421 5ERR58 10420 3737 5ERR59 5651 4126 5ERRBX 6506 5FNDAS 6702, 7346, 7464, 7466,10346 4064 5FSTLT 6674 4206 5FV101 5533, 5555, 5561, 5606, 5630, 5634, 5664, 6014, 6101, 6210, 6303 4207 5FV102 5534, 5542, 5607, 5615, 5672, 6022, 6107 4210 5FV103 5563, 5636, 5674, 6024, 6111 4211 5FV104 5537, 5612, 5676, 6026, 6030, 6113, 6115 6752 5GOTON 6734 7026 5GOTOV 6707 4075 5IDLXD 4077, 6143 4074 5IDSXD 4075, 6135,10317 4076 5IDTAG 4077, 7004 7151 5IF2CS 6711, 6712 7075 5IF2PS 6710 7206 5IF3CS 6714 7233 5IFHPR 7263 7472 5INSRD 7435 4120 5INTAG 4566, 4572, 6577 310 5LCLST 4760, 4164, 6346, 6351, 6361,10370,10400 4047 5LCOUT 7465 4023 5LFMSK 4076, 6564, 7226, 7257, 7317, 7350, 7367 4511 5LIST1 6330, 6431, 6435, 6442, 7573, 7611, 7613, 7616, 7640, 7647, 7651, 7654, 7662, 7672, 7720, 7722, 7725 7735, 7741, 7743, 7745, 7753, 7756, 7761, 7764, 7770, 7772, 7774, 7776, 7777,10001,10002,10004,10005 10006,10063,10202,10233,10236 4515 5LIST2 7652, 7657, 7664, 7674, 7677, 7707, 7715, 7750 4521 5LIST3 7667, 7675, 7702, 7705, 7712, 7723, 7730, 7733 4530 5LLIND 6421, 6423, 7564, 7644 4120 5LNSXD 10412,10425 4057 5LNTOP 6670 4212 5LPIND 4425, 5657, 5772, 6641, 7236,10023,10462 10564 5LPLST 4040, 4477, 5227, 5235, 5240, 5331, 5343, 5573, 5574, 5600, 5602, 5723, 5726, 5743, 5765, 6001, 6003 6043, 6054, 6063, 6131, 6147, 6152, 6154, 6175, 6177, 6203, 6205, 6215, 6224, 6227, 6242, 6245, 6251 6253, 6264, 6300, 6342, 6414, 6420, 6423, 6424, 6645, 6653, 6675, 6757, 7025, 7114, 7136, 7147, 7240 7247, 7323, 7372, 7410, 7416, 7426, 7434, 7672, 7700,10025,10033,10300,10463,10464,10466 10347 5LSTBB 10360,10403,10407 10400 5LSTCW 10371,10374 4063 5LTROP 6726 7445 5MOVEC 7450 7105 5MSECS 6713, 7106 4550 5NDINS 7431 7507 5NDTST 6701 5NOEND 6706, 6716, 7104, 7145, 7147, 7306, 7311 4224 5NTMSK 4072 4125 5NXLOC 6663, 6704, 7057, 7127, 7172, 7235, 7240, 7265, 7401, 7530 6477 5P003A 6502 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 27 POST PROCESSOR ASSEMBLY DATA 6502 5P003B 6500 7473 5PASS2 73666 7022 5PAUSE 6721, 7023 4067 5PFXMK 6733 7105 5PSTCS 7100, 7106 10410 5PTCH1 10137 10422 5PTCH2 10154 4260 5PTCHU 4152 4257 5PTCHW 4261 7426 5RDINS 6507, 7044 10752 5RELSR 10356,10361,10377 10504 5S512P 4734,10511 4152 5SADV2 6112, 6147 4153 5SADV3 6116, 6124, 6132 4154 5SADV4 6115, 6133,11000 4155 5SADV5 6107, 6144,11017 5215 5SAIMP 5155 3760 5SBLBL 10352,10406 6164 5SCMI0 6153 6165 5SCMI1 6152 7022 5SEQTR 6705, 6731, 7023 4133 5STGN1 6525, 6534, 6647, 6651 4134 5STGN2 6523, 6545, 6573, 6622, 6652, 6654 4136 5STGWD 6516, 6520 4020 5STMSK 6511, 7520 7312 5STPCS 7304 5STPCZ 6715 4145 5SUCNO 7041, 7046, 7065, 7067, 7115, 7132, 7161, 7175, 7214, 7246, 7273 5064 5SXAS0 6343,10260 5070 5SXAS1 6324 5074 5SXAS2 5100 5SXAS3 10753 5SXPC1 7477 10772 5SXPC2 6134 10774 5SXPC3 10765 10777 5SXPC4 10766 11027 5SXPC5 10775,11004 11030 5SXPC6 6237,10315,10335,10761 11032 5SXPC7 10773,11011,11027 4042 5T4SYM 6614, 7325, 7356, 7412 4022 5TAGMK 6207, 6532, 7003 63010 5TBLSP 10563 10137 5TEST1 10417 10154 5TEST2 10434 3753 5TGLBL 4626, 4637, 4661 4140 5TMP10 6565, 6566, 6675, 6676, 6764, 6767, 7006, 7053, 7061, 7227, 7230, 7260, 7261, 7320, 7321, 7351, 7352 7370, 7371, 7760, 7763,10021,10027,10120,10123,10311,10316,10320,10327,10336 4137 5TMPD2 6735 5TRAC3 6722, 7021 6732 5TRACS 6717 6716 5TRTIN 6671 6722 5TRTTR 6727 7146 5TTYP1 7144 7142 5TTYPE 6700 4046 5VSTAG 6261, 6537, 6766, 7007 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 28 POST PROCESSOR ASSEMBLY DATA 10471 5X225A 10004 4071 5XX16X 7077 4072 5XX360 7103 4070 5XXPSX 7076 310 5ZINST 4760, 4550, 6506, 7043, 7442, 7443, 7472, 7477,10377,10442 4003 AC3LBL 4510 ADCOMP 4511 4017 ADMASK 4105, 5162, 4166, 4542 3754 ANTEBB 4732, 5040, 4561 3762 ASCLBL 4011 4232 ASNCAS 4215 4273 ASSIGN 4023 3745 ASTRSK 4134, 4436 4401 BBCOMP 4404 54267 BBLIST 3754, 3755, 3756, 4030, 4074, 4076, 4510, 4515, 4227, 4277, 4303, 4460, 4606,40004,11007,11014,11021 4374 BBLOOP 4402 4037 BBMASK 4413 35032 BBTABL 4204, 4337, 4353, 4356, 4431, 4455, 4474, 4517, 4535, 4543, 4572, 4622, 4630, 4642, 4674, 4065, 4070 4100, 4121, 4131, 4231, 4307, 4310, 4337, 4375, 4405, 4407, 4412, 4415, 4416, 4631,40004 4346 BBTEST 4334, 4342, 4345 73600 BOTIOP 10563 3734 BOTTOM 3734 4701 BUMPBB 4666, 4711, 4715, 4726 4706 BUMPFR 4713 4045 CERTCD 4336, 4352 4335 CERTCS 4230, 4300 3 CITAAA 4164, 4223,40004 73040 CITCNT 4041, 4042,40004 0 CITLOC 4073, 4102, 4136, 4203, 4211, 4244,40004 3 CITTAG 4153,40004 4174 CLEARL 4176 4646 CLEARN 4636, 4652 4653 CLEARS 4650 4165 CLRTRA 4167 4366 CMPTST 4356, 4357 4022 CODEMK 4102, 4104, 4106, 4110, 4112, 4114 4631 COMBIN 4643 4435 CONDTR 4316 4406 CONTIN 4374, 4377 4024 CSLITE 4257, 4266 4016 CTINFL 4114, 4433 3740 CTSPC1 4044, 4121 4015 CTSPC2 4072, 4141 4050 D34MSK 4223, 4513 4051 D5MASK 4255 3732 DATEBX 4577 DCRTST 4570, 4574, 4576 4100 DECODE 4072 4376 DIVDND 4375, 4405 4370 DIVFRQ 4365 4347 DNDTST 4342, 4361, 4410 4024 DOBASE 4531 73042 DOCARE 4565, 4567, 4573,40004 4201 DOCASE 4124 4414 DOCOMP 4420 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 29 POST PROCESSOR ASSEMBLY DATA 51645 DOFRET 4353, 4355, 4610, 4616,40004 4607 DOFTST 4423, 4611 56323 DOLIST 4204, 4206, 4445, 4446, 4450, 4453, 4454, 4456, 4457, 4463, 4465, 4466, 4467, 4470, 4476, 4477, 4507 4513, 4514, 4522, 4523, 4542, 4561, 4173, 4414, 4421, 4424, 5131, 5142, 5145, 5153, 4202, 4211, 4213 4215, 4216, 4222, 4252,40004 4352 DOMOVE 4347 4433 DONOIF 4423, 4433 4304 DOSUCC 4172 4360 DOTEST 4343, 4357 4257 DOTRAD 4271 4564 DTGBOX 4533, 4563 4001 DTGLBL 4304, 4730 4426 DWIFCD 4427 4230 ENDBB2 4217, 4254 4042 ENDCON 4332 4332 ENDSUB 4334 4343 ENDVEC 4333 5114 ENTER2 4351, 4402, 4407, 4445, 4450, 4504, 4527, 4532, 4553, 4556, 4602, 4605, 4610 5102 ENTERN 5076 5151 ENTSET 5143, 5146 4002 EOFLB1 4603 4727 EQPROB 4717 3771 ERASE1 4371, 4401, 4472, 4505, 4510, 4737, 4741, 4212, 4230, 4246, 4251 3760 ERASE2 4013, 4547, 4551, 4257, 4260, 4263, 4265, 4266, 4273 3761 ERASE3 4013, 4557, 4562, 4262, 4274 5127 FDLOOP 5147, 5150, 5171 5037 FINDBB 4245, 4350, 4401, 4406, 4444, 4447, 4503, 4526, 4531, 4552, 4555, 4601, 4604, 4607 4703 FINDFQ 4722 2 FINTAP 0 71264 FIXDOS 4635, 5167,40004 4027 FIXLIM 5163 4635 FIXSET 4645 5167 FIXSTO 4624, 5157, 5161 3730 FLAGBX 4160 FLOCNT 4111, 4126, 4133, 4141, 4142, 4150, 4151, 4156 5065 FLOERR 5061 4621 FREAD2 4443, 4564 4436 FRETLP 4421, 4441 3770 FRTBOX 4426, 4432, 4663, 4667 4441 FRTEND 4433, 4440 4714 FRTHRU 4707 4000 FRTLBL 4726, 4727 4707 FRTST1 4670, 4706 4724 FRTST2 4671, 4720, 4723 1 FTAPE1 0 2 FTAPE2 0, 4304, 4305, 4527, 4724, 4725, 4726, 4727, 4730, 5003, 4011, 4014, 4172 3 FTAPE3 0, 4603, 4620, 4623, 4626, 4727, 4741, 4626, 4637, 4661, 4663, 4010, 4013, 6356, 7476,10375 4 FTAPE4 0, 4154, 4155, 5035, 4713, 7436, 7437, 7467,10352,10353,10355,10366,10402,10406 4673 FXTTST 4633, 4701, 4716, 4750 4355 GOTON2 4346, 4377 4117 GOTON3 4115 4461 GOTOV2 4320 4612 HPRCAS 4325 4542 IF2CAS 4322 4512 IF2PSE 4231, 4321 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 30 POST PROCESSOR ASSEMBLY DATA 4560 IF3CAS 4324 4317 IGNORE 4326, 4437, 4442, 4515, 4615, 4620 3763 ILNGTH 4043, 4071, 4122 4757 INSERT 4753 3757 INSLBL 7436 3 INSTAA 4222, 4254, 4461, 4512, 4536,40004 2 INSTAD 4232, 4344, 4347, 4361, 4405, 4435, 4441, 4443, 4446, 4502, 4525, 4530, 4551, 4554, 4600, 4603, 4606 4616,40004 0 INSTLC 4210, 4226, 4276, 4302, 4366, 4440, 4451, 4475, 4521, 4545, 4574, 4617,40004 1 INSTOP 4216, 4306, 4313, 4330, 4560, 4565, 4612,40004 4606 INVERT 4612 4312 ISSUCC 4305 134 .CHEXI 0 ...... 0, 3741, 3757, 3760, 3761, 3762, 3763, 3764, 3765, 3766, 3767, 3770, 3771, 4061, 4101, 4172, 4176 4265, 4266, 4271, 4333, 4347, 4360, 4365, 4406, 4407, 4414, 4420, 4441, 4475, 4506, 4564, 4577, 4607 4634, 4652, 4663, 4664, 4674, 4715, 4774, 4775, 4777, 4020, 4021, 4207, 4212, 4274, 4501, 4627, 4673 4707, 4724, 4745, 4760, 4776, 5007, 5010, 5020, 5110, 5135, 5136, 4050, 4053, 4072, 4130, 4303, 4331 4342, 4346, 4352, 4425, 4456, 4530, 4650, 4655, 4671, 4701, 4702, 4730, 4742, 4744 135 .MODSW 3765 LBSIZE 1 LIBTAP 3731 LINECT 4601 LITEON 4575 4555 LITEST 4615, 4620 4264 LITOFF 4256 4142 LITOUT 4137 4526 LOADDO 4506 4515 LOCCOM 4516 4202 LOOKDO 4303 4736 LOOKUP 4750, 4756 4601 LSTCHK 4033, 4576 7 MBNTAP 10 MCHTAP 5 MINTAP 47223 MIRROR 4053, 4607,40004 6 MLSTAP 4777 MOVTST 4772, 4776 4534 MSECAS 4323 4533 MSECOD 4534 4134 MSECSE 4105 4027 NEGMAX 4346, 4435 4537 NEXTDO 4566, 4600 5107 NFOUND 5100 4123 NLOOP2 4130 4037 NNDCON 4310 4310 NNDSUB 4312 4326 NNDVEC 4311 4717 NOFREQ 4665, 4705, 4714, 4725 4215 NTHRDO 4227 4721 NXTFRT 4724 4444 NXTPAS 4501 4167 NXTTRA 4166, 4177 3766 OPCODE 4013, 4105, 4112, 4127 3764 PAS2RD 4044 PBYCOD 4454, 4473, 4516, 4542, 4571, 4677 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 31 POST PROCESSOR ASSEMBLY DATA 4365 PNDTST 4344, 4364 3753 POSMAX 4075, 4372, 4403, 4746, 5024 4407 PRBTST 4345 4152 PRBYCS 4107 4425 PRDTST 4314, 4424 4421 PREDLP 4425 4337 PRLOOP 4346 4223 PSECAS 4121 4026 PSEMRK 4225 4025 PSEMSK 4224 4627 RDCIT1 4072, 4623, 4625 4755 RDCIT2 4162, 4751, 4753 4652 RDCIT3 4451, 4647 4705 RDTBLS 4051, 4065, 4276, 4277, 4300, 4631, 4632, 4713, 4714 4302 REEDDO 5006 3741 RLNGTH 4062, 4116, 4127, 4130, 4136, 4142, 4426 4422 SAVDOF 4360, 4407 4744 SAVIR2 4573, 4715 73740 SENSLT 4136, 4140,40004 5072 SERCHN 4233, 4362 2567 SETMAX 4236, 4261, 4270, 5151,40004 4253 SETSLT 4225 4072 SETTST 4067, 4077 5152 SETTSX 4236, 4261, 4270 4412 SHFTBB 4411, 4417 3757 SIMBOX 4025, 4057, 4061, 4064 3 SINTAP 0 11 SNPTAP 4442 SORTDO 4336, 4427, 4430 4447 SORTLP 4451, 4461, 4472, 4474 44264 SPAVL1 40004 22236 SPAVL2 40004 4415 SQLOOP 4420 4420 SQTEST 4412, 4417 4411 SQUEEZ 4437 4560 STOKEY 4554 4047 STOPCD 4621 4526 STORCD 4513, 4516, 4517, 4520, 4521, 4522, 4523, 4524, 4525 4475 STORHI 4444, 4447 4505 STOTAG 4467 4441 STREAD 4434 4152 STRTRD 4123 4316 SUCCLP 4331 4331 SUCTST 4313, 4330 122 SYSACC 114 SYSCEM 155 SYSCK1 156 SYSCK2 120 SYSCOR 144 SYSCRD 102 SYSCUR 102 124 SYSCYD 101 SYSDAT 115 SYSDMP 77777 SYSEND 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 32 POST PROCESSOR ASSEMBLY DATA 132 SYSGET 117 SYSIDR 151 SYSIN1 152 SYSIN2 116 SYSIOX 133 SYSJOB 104 SYSKEY 140 SYSLB1 141 SYSLB2 142 SYSLB3 143 SYSLB4 121 SYSLDR 3720 SYSORG 147 SYSOU1 150 SYSOU2 146 SYSPCH 123 SYSPID 106 SYSPOS 153 SYSPP1 154 SYSPP2 145 SYSPRT 103 SYSRET 113 SYSRPT 126 SYSSLD 105 SYSSWS 1 SYSTAP 0 127 SYSTCH 100 SYSTRA 131 SYSTWT 111 SYSUAV 110 SYSUBC 112 SYSUCW 107 SYSUNI 157 SYSUT1 160 SYSUT2 161 SYSUT3 162 SYSUT4 4034 TAGBOX 4474, 4540, 4732, 4734 4031 TAGMAX 4543, 4546 4426 TAGPAS 4311 4030 TAGSIZ 4733 3752 TAMASK 4154, 4316, 4236, 4242, 4243, 4256, 4267, 4270, 4275, 4276, 4466, 4503 4035 TAPMSK 4463, 4500 3776 TFGLBL 4724 400 TGBFSZ 4026, 4027, 4030, 4051, 4052, 4532, 4577, 4600, 4722, 4016, 4665, 4667,40004 4212 TIFBOX 4240, 4244, 4365, 4376, 4403 4333 TIFTST 4272, 4313, 4332 4 TINTAP 0 77677 TOPMEM 4153 TRACAS 4122 4016 TRACON 4130 14612 TRAMAX 4163, 5116,40004 4130 TRASUB 4132 51645 TRATBL 4026, 4165, 4166, 4364, 4426, 4453, 4457, 4471, 4476, 4522, 4524, 4540, 4546, 4550, 4575, 4577, 4704 4712, 4727, 4734, 4742, 4747, 5120, 4117, 4123, 4134, 4143, 4145, 4147, 4155, 4160, 4163, 4164, 4167 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 33 POST PROCESSOR ASSEMBLY DATA 4235, 4245, 4255, 4272, 4300, 4316, 4317, 4325, 4343, 4353, 4354, 4355, 4360, 4361, 4363, 4364, 4367 4370, 4401, 4421,40004 4271 TRATST 4256 4125 TRAVEC 4131 4355 TRCOMP 4366 3777 TRDLBL 4725 4342 TRTEST 4340, 4344 4227 TSTCAS 4117, 4120 4021 TSTCON 4113 4113 TSTSUB 4115 4121 TSTVEC 4114 4214 TZECAS 4125 4616 USEDOF 4612 4603 VARPAR 4545, 4614, 4617 4026 WRDEC1 4735 4027 WRDEC2 4723 4033 WREXIT 4572 4053 WRITBB 4615, 4617 4051 WRITE1 4726 4052 WRITE2 4740 702 (ACTIV 703 (ACTVX 720 (BCD5R 721 (BCD5X 10000 (CHKU) 4527 741 (CHPSW 724 (CHXAC 750 (CHXSP 717 (CKWAT 746 (COMMD 736 (COMMM 722 (CVPRT 73662 (DATE) 716 (DECVA 715 (DECVD 73645 (DGLD) 73603 (DIAG) 3772, 4035, 4054, 4055, 4056, 4057, 4060, 4061, 4062, 4063, 4054, 3736, 3737, 4047,10421,11024 710 (ENBSW 73665 (ENDS) 732 (ETTXI 743 (FDAMT 73660 (FGBX) 747 (IBCDZ 740 (IOXSI 73667 (LBLD) 73652 (LIBT) 73661 (LNCT) 73600 (LOAD) 4621, 4064, 4644, 3734 73666 (LODR) 73666 737 (LTPOS 73644 (MECL) 73664 (MSLN) 704 (NDATA 705 (NDSLX 712 (PAUSE 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 34 POST PROCESSOR ASSEMBLY DATA 711 (PAWSX 3733 (PCBK) 73651 (PGCT) 73614 (PNCH) 73611 (PRNT) 706 (PROUT 707 (PUNCH 40014 (RBEC) 4053, 4303, 7435,10351 40004 (RBEP) 4067, 4643, 4160, 4767, 4447, 4664 40010 (RBNC) 4153, 4442, 4660, 4012, 4010 40000 (RBNP) 4717, 4720, 4722 727 (RCHXI 726 (RCTXI 40016 (RDEC) 40006 (RDEP) 40012 (RDNC) 40002 (RDNP) 73622 (REST) 73672 (SCHU) 4055, 4305, 4645, 5003, 4125, 4155, 4771, 4444, 4666, 4663, 7437, 7467,10353,10355,10402 744 (SDCXI 73643 (SECL) 20010 (SKBC) 20000 (SKBP) 4274, 4721, 4723, 4147, 5034, 4622, 4625, 4712, 4625, 4636, 4007, 4013, 7475,10365,10405 20012 (SKDC) 20002 (SKDP) 1000 (SNAP) 73663 (SNCT) 73617 (STAT) 745 (STCXI 73626 (STDN) 723 (STOPD 713 (STOPX 10003 (SUAV) 10002 (SUNV) 714 (SYMUN 73606 (TAPE) 4052, 4066, 4273, 4302, 4526, 4642, 4707, 4146, 4152, 4157, 4766, 5033, 4441, 4446, 4601, 4616, 4621 4624, 4663, 4711, 4725, 4737, 4657, 4006, 4011, 4007, 4012, 4170, 6354, 7434, 7474,10350,10364,10373 10404 730 (TCOXI 733 (TEFXI 4000 (TPER) 735 (TRAPS 734 (TRAPX 731 (TRCXI 742 (TRPSW 725 (URRXI 40011 (WBNC) 4171, 6355,10374 40001 (WBNP) 4617, 4726, 4740 40013 (WDNC) 40003 (WDNP) 40015 (WEFC) 40005 (WEFP) 4602 40031 (WROW) 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 2/07/05 PAGE 35 POST PROCESSOR ASSEMBLY DATA NO ERROR IN ABOVE ASSEMBLY. * 32K 709/7090 FORTRAN SECTION SIX F6A00000 * FAP F6A00030 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 1 F6A00060 ABS F6A00070 SST FORTRAN $F6A00071 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 2 73577 TOPTAB SYN BOTIOP-1 TOP OF AVAILABLE TABLE BUFFERS F6A00972 00310 CITSIZ SYN 200 LENGTH OF CIT TAPE RECORD F6A00973 00002 TABTAP SYN 2 TABLE TAPE F6A00974 00002 SLSTAP SYN 2 SINGLE COMPILE LISTING TAPE F6A00975 00003 CITTAP SYN 3 CIT INPUT TAPE F6A00976 00003 SBNTAP SYN 3 SINGLE COMPILE BINARY OUTPUT TAPE F6A00977 00004 COTTAP SYN 4 CIT OUTPUT TAPE F6A00978 F6A00990 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 3 COMMON SUBROUTINES AND ERASABLE F6A01010 00102 ORG SYSCUR $F6A01020 BINARY CARD NO. 9F300000 00102 112603000000 BCI 1,9F3000 $F6A01030 73666 ORG (LODR) $F6A01070 BINARY CARD NO. 9F300001 73666 1 00454 0 04341 TXI ASTART,,300 8R ENTRY PT,,RECNO F6A01080 F6A01090 F6A01110 SECTION SIX COMMON SUBROUTINES F6A01120 F6A01130 03734 ORG BOTTOM F6A01140 F6A01150 HEAD X F6A01160 F6A01170 BINARY CARD NO. 9F300002 03734 0 73577 0 14603 MEMRY PZE BOTTAB,,TOPTAB PARAMETER TO DEFINE LIMITS OF TABLES F6A01180 F6A01190 ERROR LIST F6A01200 03735 -3 00000 0 03757 ERR00 TXL DELET,,0 MACHINE ERROR (SEE LISTING FOR DETAILS) F6A01210 03736 1 77776 0 73603 ERR02 TXI (DIAG),,-2 IFN (IN XR2) GREATER THAN 4095 F6A01220 03737 1 77775 0 73603 ERR03 TXI (DIAG),,-3 TAPE TABLES OVERFLOWED AVAILABLE MEMORY F6A01230 03740 1 77774 0 73603 ERR04 TXI (DIAG),,-4 STORAGE ASSIGNMENTS GREATER THAN 32K CORESF6A01240 03741 1 77773 0 73603 ERR05 TXI (DIAG),,-5 LITERAL APPEARANCE OF ARGUMENTS IN OBJECT F6A01250 PROGRAM MORE THAN 8 TIMES NUMBER IN ARG F6A01260 LIST OF SUBPROGRAM DEFINING STATEMENT F6A01270 03742 1 77772 0 73603 ERR06 TXI (DIAG),,-6 MULTIPLY DEFINED SYMBOLS EXIST ON LIST F6A01280 XR1 CONTAINS ORIGIN, XR2 CONTAINS COUNT F6A01290 03743 1 77771 0 73603 ERR07 TXI (DIAG),,-7 MORE THAN 2*CITSIZ 9) TABLE ENTRIES F6A01300 03744 1 77770 0 73603 ERR08 TXI (DIAG),,-8 CORE TABLES OVERFLOWED AVAILABLE MEMORY F6A01310 03745 DUP 1,10 PATCH SPACE FOR ADDITIONAL DIAGNOSTICS F6A01320 03745 0 00000 0 00000 PZE F6A01330 F6A01340 03757 0634 00 4 03770 DELET SXA DELEX,4 SAVE CALLING LINKAGE F6A01350 03760 0500 60 0 73660 CLA* ORGFLG IS THIS SINGLE COMPILE F6A01360 03761 0120 00 0 03770 TPL DELEX YES F6A01370 BINARY CARD NO. 9F300003 03762 0074 00 4 73606 TSX (TAPE),4 *NO, ERASE BINARY CARD IMAGES FROM MON TAPEF6A01380 03763 0 20000 0 03774 PZE CRDCT,,(SKBP) F6A01390 03764 0 00007 0 00000 PZE ,,MBNTAP F6A01400 03765 0074 00 4 73606 TSX (TAPE),4 *BACKSPACE TO PAGE HEADING F6A01410 03766 0 20002 0 03775 SKDP1 PZE LSTCT,,(SKDP) F6A01420 03767 0 00006 0 00000 PZE ,,MLSTAP F6A01430 03770 0774 00 4 00000 DELEX AXT **,4 RELOAD CALLING LINKAGE F6A01440 03771 3 00000 4 73603 TXH (DIAG),4,0 *WAS THIS CORE ERROR F6A01450 03772 0074 00 4 73644 TSX (MECL),4 *CALL MACHINE ERROR RECORD F6A01460 03773 0 00000 0 00000 PZE SPACER FOR POSSIBLE PARAMETERS F6A01470 03774 -0 00000 0 00000 CRDCT MZE ** COUNT OF BINARY CARD IMAGES ON OUTPUT TAPEF6A01480 03775 -0 00000 0 00000 LSTCT MZE ** COUNT OF LINES FOLLOWING PAGE HEADING F6A01490 F6A01500 SORT OUT SYMBOLS, ASSEMBLE INTERNAL SYMBOLS IN TIV FORM F6A01510 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 4 COMMON SUBROUTINES AND ERASABLE 03776 0100 00 4 00001 SORT0 TZE 1,4 IS THERE A SYMBOL F6A01520 03777 0602 00 0 04256 SLW SYMBL YES, SAVE FOR POSSIBLE DIAGNOSTIC CALL F6A01530 04000 -0765 00 0 00036 LGR 30 ISOLATE FIRST CHARACTER F6A01540 04001 0734 00 2 00000 PAX ,2 F6A01550 04002 -3 00020 2 04005 TXL *+3,2,16 F6A01560 04003 -0763 00 0 00036 LGL 30 SYMBOL BEGINS ALPHA F6A01570 04004 0020 00 4 00003 TRA 3,4 F6A01580 04005 0020 00 2 04026 TRA SORT1,2 SYMBOL IS INTERNAL VARIABLE OR IFN F6A01590 04006 0074 00 4 03735 TSX XERR00,4 *SYMBOL BEGINS + F6A01600 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A01610 * THE SYMBOL STORED IN LOCATION SYMBL HAS BEEN FOUND IN A F6A01620 * CIT SYMBOLIC LOCATION FIELD (CITSL) BY ROUTINE PAS15, F6A01630 * CITC2, OR SAP00, OR IN A CIT SYMBOLIC ADDRESS FIELD F6A01640 * (CITSA) BY ROUTINES PAS04, BIN01, OR SAP01. THE FIRST SIXF6A01650 * BITS ARE 010000, WHICH IS AN ILLEGAL COMBINATION IN A F6A01660 * SYMBOL. ( SYMBOL BEGINS + ) F6A01670 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A01680 04007 0020 00 4 00002 TRA 2,4 * PROGRAM COUNTER F6A01690 BINARY CARD NO. 9F300004 04010 1 77777 4 04037 TXI SORT2,4,-1 E)N SXD INSTRUCTION LOCATION F6A01700 04011 1 77777 4 04037 TXI SORT2,4,-1 D)N LXD INSTRUCTION LOCATION F6A01710 04012 0020 00 0 04037 TRA SORT2 C)N INDEX REGISTER ERASABLE F6A01720 04013 1 77777 4 04037 TXI SORT2,4,-1 B) HOLLERITH DATA F6A01730 04014 1 77777 4 04037 TXI SORT2,4,-1 A)N RELCON SUBROUTINE LOCATION F6A01740 04015 1 77777 4 04037 TXI SORT2,4,-1 9) INITIALIZATION ADDEND DATA F6A01750 04016 1 77777 4 04037 TXI SORT2,4,-1 8)N FORMAT SPECIFICATION DATA F6A01760 04017 0020 00 0 04037 TRA SORT2 7)N ARITH STATE FUNCTION XR4 ERASABLE F6A01770 04020 1 77777 4 04037 TXI SORT2,4,-1 6) UNIVERSAL CONSTANTS DATA F6A01780 04021 1 77777 4 04037 TXI SORT2,4,-1 5) ASSIGN TRANSFER CONSTANT DATA F6A01790 04022 0020 00 0 04037 TRA SORT2 4)N ARITH STATE FUNCTION ARG ERASABLE F6A01800 04023 1 77777 4 04037 TXI SORT2,4,-1 3) FLOATING POINT CONSTANT DATA F6A01810 04024 1 77777 4 04037 TXI SORT2,4,-1 2) FIXED POINT CONSTANT DATA F6A01820 04025 0020 00 0 04037 TRA SORT2 1)N ARITHMETIC ERASABLE F6A01830 04026 0534 00 2 04256 SORT1 LXA SYMBL,2 0 INTERNAL OR SUB FORMULA NUMBER F6A01840 04027 3 00000 2 04031 TXH *+2,2,0 IS THIS INTERNAL FORMULA NUMBER F6A01850 04030 0020 00 4 00004 TRA 4,4 YES F6A01860 SYMBOL IS SUBSIDIARY INTERNAL FORMULA NUMBER F6A01870 04031 -3 00370 2 04033 TXL *+2,2,248 IS INCREMENT LEGAL F6A01880 04032 0074 00 4 03735 TSX XERR00,4 *NO, INCREMENT GREATER THAN (37)8 F6A01890 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A01900 * THE SUBSIDIARY INTERNAL FORMULA NUMBER STORED IN LOCATIONF6A01910 * SYMBL (SEE DISCUSSION IMMEDIATELY ABOVE) HAS AN INCREMENTF6A01920 * ASSIGNED BY SECTION 2 GREATER THAN (37)8. ILLEGAL. F6A01930 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A01940 04033 -0763 00 0 00014 LGL 12 YES, ASSEMBLE SUB IFN F6A01950 04034 -0773 00 0 00012 RQL 10 IFN IN BITS 5 - 16 (SIGN IS BIT 1) F6A01960 04035 -0763 00 0 00005 LGL 5 INCREMENT IN BITS 17 - 21 F6A01970 BINARY CARD NO. 9F300005 04036 1 00001 4 04041 TXI SORT2+2,4,1 F6A01980 SYMBOL IS INTERNAL VARIABLE F6A01990 04037 -0773 00 0 00015 SORT2 RQL 13 ASSEMBLE TYPE IN BITS 1-4 (SIGN IS BIT 1) F6A02000 04040 -0763 00 0 00021 LGL 17 1)N, 4)N, 7)N SUBROUT LEVEL IN BITS 14-21 F6A02010 04041 0767 00 0 00017 ALS 15 2), 3), 5), 6), 9), B) ZERO IN BITS 5-21 F6A02020 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 5 COMMON SUBROUTINES AND ERASABLE 5,4 SUB IFN 8)N EXTERNAL FORMULA NUMBER IN BITS 7-21 F6A02030 04042 0020 00 4 00006 TRA 6,4 ERASABLE A)N, C)N I IN BITS 10-12, T IN BITS 13-21 F6A02040 7,4 DATA D)N, E)N I IN BITS 9-11 BB IN BITS 12-21 F6A02050 1)0 MAIN PROGRAM ERASABLE F6A02060 4)0 LIBE SUBROUTINE ERASABLE = 77777 F6A02070 7)0 MAIN PROGRAM XR4 ERASABLE = 6)+4 F6A02080 F6A02090 SEARCH DEV TABLE FOR SYMBOL IN ACCUMULATOR. IF SYMBOL F6A02100 IS IN DEV, RETURN WITH LOCATION ASSIGNED TO SYMBOL. IN F6A02110 ANY CASE, RETURN WITH ORDERED LOCATION IN XR2 FOR SYMBOL.F6A02120 04043 0634 00 1 04163 SRDEV SXA NOTIN,1 SAVE TABLE COUNT F6A02130 04044 0602 00 0 04256 SLW SYMBL SAVE SYMBOL BEING SEARCHED FOR F6A02140 04045 0560 00 0 04060 LDQ DEVTL INITIALIZE BINARY SEARCH FOR DEV TABLE F6A02150 04046 -0600 00 0 04122 STQ BSRCH DOWNWARDS IN MEMORY F6A02160 04047 0534 00 1 04061 LXA DEVTS,1 LOAD HOP COUNT F6A02170 04050 -0534 00 2 04061 LXD DEVTS,2 LOAD COUNT OF MEDIAN ENTRY F6A02180 04051 -0340 60 0 04221 SRDE1 LAS* ORGDEV IS ENTRY IN TABLE SAME AS NEW ENTRY F6A02190 04052 1 77776 1 04165 TXI LOWER,1,-2 NEW ENTRY IS LARGER, LOOK HIGHER IN TABLE F6A02200 04053 0020 00 0 04055 TRA *+2 YES, XR2 CONTAINS ORDERED LOCATION IN DEV F6A02210 04054 1 77776 1 04166 TXI RAISE,1,-2 NEW ENTRY IS SMALLER, LOOK LOWER IN TABLE F6A02220 04055 0500 60 0 04223 CLA* ORGDEA GET LOCATION ASSIGNED THIS SYMBOL F6A02230 04056 0534 00 1 04163 LXA NOTIN,1 RELOAD TABLE COUNT F6A02240 04057 0020 00 4 00003 TRA 3,4 F6A02250 04060 -3 00000 2 04051 DEVTL TXL SRDE1,2,** ,,TABLE LENGTH F6A02260 04061 0 00000 0 00005 DEVTS PZE 5,,0 HOP COUNT,,LOCATION OF MEDIAN ENTRY F6A02270 F6A02280 SEARCH TEV TABLE FOR SYMBOL IN ACCUMULATOR. IF SYMBOL F6A02290 IS IN TEV, RETURN WITH LOCATION ASSIGNED TO SYMBOL. IN F6A02300 ANY CASE, RETURN WITH ORDERED LOCATION IN XR2 FOR SYMBOL.F6A02310 04062 0634 00 1 04163 SRTEV SXA NOTIN,1 SAVE TABLE COUNT F6A02320 04063 0560 00 0 04077 LDQ TEVTL INITIALIZE BINARY SEARCH FOR TABLE F6A02330 BINARY CARD NO. 9F300006 04064 -0600 00 0 04122 STQ BSRCH DOWNWARDS IN MEMORY F6A02340 04065 0534 00 1 04100 LXA TEVTS,1 LOAD HOP COUNT F6A02350 04066 -0534 00 2 04100 LXD TEVTS,2 LOAD COUNT OF MEDIAN ENTRY F6A02360 04067 -0340 60 0 04225 SRTE1 LAS* ORGTEV IS ENTRY IN TABLE SAME AS NEW ENTRY F6A02370 04070 1 77776 1 04165 TXI LOWER,1,-2 NEW ENTRY IS LARGER, LOOK HIGHER IN TABLE F6A02380 04071 0020 00 0 04073 TRA *+2 YES, XR2 CONTAINS ORDERED LOCATION IN TEV F6A02390 04072 1 77776 1 04166 TXI RAISE,1,-2 NEW ENTRY IS SMALLER, LOOK LOWER IN TABLE F6A02400 04073 0754 00 2 00000 PXA ,2 COMPUTE LOCATION FOR VARIABLE F6A02410 04074 0400 00 0 04254 ADD TEVBS POSITION IN TABLE ABOVE BASE LOCATION F6A02420 04075 0534 00 1 04163 LXA NOTIN,1 RELOAD TABLE COUNT F6A02430 04076 0020 00 4 00002 TRA 2,4 F6A02440 04077 -3 00000 2 04067 TEVTL TXL SRTE1,2,** ,,TABLE LENGTH F6A02450 04100 0 00000 0 00005 TEVTS PZE 5,,0 HOP COUNT,, LOCATION OF MEDIAN ENTRY F6A02460 F6A02470 SEARCH TIV TABLE FOR PSEUDOSYMBOL LEFT ADJUSTED IN F6A02480 ACCUMULATOR. IF PSEUDOSYMBOL IS IN TIV, RETURN WITH F6A02490 LOCATION ASSIGNED TO PSEUDOSYMBOL OR LENGTH OF BLOCK F6A02500 RESERVED FOR ERASABLE STORAGE. IN ANY CASE, RETURN WITH F6A02510 ORDERED LOCATION IN XR2 FOR PSEUDOSYMBOL F6A02520 04101 0634 00 1 04163 SRTIV SXA NOTIN,1 SAVE TABLE COUNT F6A02530 04102 0602 00 0 04256 SLW SYMBL SAVE SYMBOL BEING SEARCHED FOR F6A02540 04103 0602 00 0 04257 SLW ERASE F6A02550 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 6 COMMON SUBROUTINES AND ERASABLE 04104 0560 00 0 04120 LDQ TIVTL INITIALIZE BINARY SEARCH FOR TIV TABLE F6A02560 04105 -0600 00 0 04122 STQ BSRCH UPWARDS IN MEMORY F6A02570 04106 0534 00 1 04121 LXA TIVTS,1 LOAD HOP COUNT F6A02580 04107 -0534 00 2 04121 LXD TIVTS,2 LOAD COUNT OF MEDIAN ENTRY F6A02590 04110 -0500 60 0 04230 SRTI1 CAL* ORGTIV GET NEXT ENTRY IN TIV TABLE F6A02600 04111 0621 00 0 04257 STA ERASE EQUALIZE ADDRESSES F6A02610 BINARY CARD NO. 9F300007 04112 -0340 00 0 04257 LAS ERASE IS ENTRY IN TABLE SAME AS NEW ENTRY F6A02620 04113 1 77776 1 04165 TXI LOWER,1,-2 NEW ENTRY IS SMALLER, LOOK HIGHER IN TABLEF6A02630 04114 0020 00 0 04116 TRA *+2 YES, XR2 CONTAINS ORDERED LOCATION IN DEV F6A02640 04115 1 77776 1 04166 TXI RAISE,1,-2 NEW ENTRY IS LARGER, LOOK LOWER IN TABLE F6A02650 04116 0534 00 1 04163 LXA NOTIN,1 RELOAD TABLE COUNT F6A02660 04117 0020 00 4 00002 TRA 2,4 F6A02670 04120 3 77776 2 04110 TIVTL TXH SRTI1,2,-2 ,,TABLE LENGTH F6A02680 04121 0 77777 0 00005 TIVTS PZE 5,,-1 HOP COUNT,,LOCATION OF MEDIAN ENTRY F6A02690 F6A02700 F6A02710 BINARY SEARCH OF TABLE OF MAXIMUM LENGTH 16K-1. THIS, IN F6A02720 EFFECT, IS THE LIMIT TO LENGTH OF DEV, TEV, TIV, OR F6A02730 SYMBOL TABLE. F6A02740 04122 0 00000 0 00000 BSRCH PZE THIS INSTRUCTION IS INITIALIZED FOR F6A02750 04123 0162 00 0 04125 TQP *+2 DIRECTION AND LENGTH OF TABLE SEARCHED F6A02760 04124 1 77776 1 04165 TXI LOWER,1,-2 F6A02770 04125 1 77776 1 04166 TXI RAISE,1,-2 FOR A TABLE WITH N ENTRIES, THE SEARCH IS F6A02780 04126 1 60000 2 04122 TXI BSRCH,2,-8192 COMMENCED AT THE 2**X ENTRY, THIS NUMBER F6A02790 04127 1 20000 2 04122 TXI BSRCH,2,+8192 BEING THE LARGEST POWER OF 2 LESS THAN N. F6A02800 04130 1 70000 2 04122 TXI BSRCH,2,-4096 IF THE NEW ENTRY IS IS NOT LOGICALY (OR F6A02810 04131 1 10000 2 04122 TXI BSRCH,2,+4096 ALGEBRAICALY) EQUAL TO THIS ENTRY, THE F6A02820 04132 1 74000 2 04122 TXI BSRCH,2,-2048 HOP COUNT IS REDUCED OR MULTIPLIED BY F6A02830 04133 1 04000 2 04122 TXI BSRCH,2,+2048 2**(X-1), DEPENDING UPON THE RESULTS OF F6A02840 04134 1 76000 2 04122 TXI BSRCH,2,-1024 THE COMPARISON AND THE DIRECTION OF THE F6A02850 04135 1 02000 2 04122 TXI BSRCH,2,+1024 TABLE. FOR EXAMPLE, THE DEV TABLE GOES F6A02860 04136 1 77000 2 04122 TXI BSRCH,2,-512 DOWNWARDS IN MEMORY WITH ENTRIES IN F6A02870 04137 1 01000 2 04122 TXI BSRCH,2,+512 DESCENDING LOGICAL ORDER (Z AT THE BOTTOM,F6A02880 BINARY CARD NO. 9F300008 04140 1 77400 2 04122 TXI BSRCH,2,-256 A AT THE TOP). IF THE NEW ENTRY IS LESS F6A02890 04141 1 00400 2 04122 TXI BSRCH,2,+256 THAN THE OLD, THE NEXT COMPARISON WILL BE F6A02900 04142 1 77600 2 04122 TXI BSRCH,2,-128 MADE WITH AN ENTRY HALF WAY CLOSER TO F6A02910 04143 1 00200 2 04122 TXI BSRCH,2,+128 THE ORIGIN OF THE TABLE (CLOSER TO A). F6A02920 04144 1 77700 2 04122 TXI BSRCH,2,-64 F6A02930 04145 1 00100 2 04122 TXI BSRCH,2,+64 IF A HOP IS MADE BEYOND THE END OF THE F6A02940 04146 1 77740 2 04122 TXI BSRCH,2,-32 TABLE, THE TXH OR TXL INSTRUCTION F6A02950 04147 1 00040 2 04122 TXI BSRCH,2,+32 INITIALIZED AT BSRCH TRAPS THE HOP AND F6A02960 04150 1 77760 2 04122 TXI BSRCH,2,-16 REDUCES THE HOP COUNT. A COMPARISON WILL F6A02970 04151 1 00020 2 04122 TXI BSRCH,2,+16 BE MADE WITH A VALID TABLE ENTRY ONLY. F6A02980 04152 1 77770 2 04122 TXI BSRCH,2,-8 FOR EXAMPLE, IF THE LENGTH OF THE DEV F6A02990 04153 1 00010 2 04122 TXI BSRCH,2,+8 TABLE IS 600, AND THE COMPARISON IS WITH F6A03000 04154 1 77774 2 04122 TXI BSRCH,2,-4 THE 768 ENTRY, THE TXL SRDE1,2,600 WILL F6A03010 04155 1 00004 2 04122 TXI BSRCH,2,+4 CAUSE THE ENTRY COUNT IN XR2 TO BE F6A03020 04156 1 77776 2 04122 TXI BSRCH,2,-2 REDUCED TO 640, AND THEN TO 576 BEFORE F6A03030 04157 1 00002 2 04122 TXI BSRCH,2,+2 THE NEXT COMPARISON IS MADE F6A03040 04160 1 77777 2 04122 TXI BSRCH,2,-1 F6A03050 04161 1 00001 2 04122 TXI BSRCH,2,+1 HOPS ARE CONTROLLED BY XR1 WHICH CONTAINS F6A03060 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 7 COMMON SUBROUTINES AND ERASABLE 04162 1 77777 2 04163 TXI *+1,2,-1 X+4, WHERE X IS THE POWER OF 2 GREATER F6A03070 04163 0774 00 1 00000 NOTIN AXT **,1 THAN WHICH THE TABLE IS. F6A03080 04164 0020 00 4 00001 TRA 1,4 F6A03090 04165 0020 00 1 04165 LOWER TRA *,1 IF SEARCH IS UNSUCCESSFUL, XR2 CONTAINS F6A03100 BINARY CARD NO. 9F300009 04166 0020 00 1 04166 RAISE TRA *,1 THE ORDERED POSITIN INTO WHICH THE NEW F6A03110 ENTRY IS TO BE INSERTED F6A03120 F6A03130 04167 DUP 1,10 PATCH SPACE FOR COMMON CODING F6A03140 04167 0 00000 0 00000 PZE F6A03150 F6A03160 F6A03170 SENSE SWITCH SIMULATORS F6A03180 04201 0 00000 0 00000 SWCH1 PZE DOWN, NO CARDS ON LINE F6A03190 04202 0 00000 0 00000 SWCH2 PZE DOWN, MACHINE LANGUAGE LISTING PREPARED F6A03200 04203 0 00000 0 00000 SWCH3 PZE DOWN, ONLINE PRINT F6A03210 04204 0 00000 0 00000 SWCH4 PZE DOWN, ONLINE CARDS TO BE COLUMN BINARY F6A03220 04205 0 00000 0 00000 SWCH5 PZE DOWN, PUNCH LIBRARY SUBROUTINES F6A03230 04206 0 00000 0 00000 SWCH6 PZE DOWN, PUNCH SYMBOL TABLE F6A03240 04207 0 00000 0 00000 SWCH7 PZE DOWN, PUNCH OFFLINE CARD LABEL (COL 73-80)F6A03250 04210 0 00000 0 00000 SWCH8 PZE DOWN, PRINT TWO COLUMN EXTENDED LISTING F6A03260 04211 0 00000 0 00000 SWCH9 PZE DOWN, OFFLINE CARDS TO BE ROW BINARY F6A03270 04212 0 00000 0 00000 SWC10 PZE DOWN, BLOCK LISTING TAPE F6A03271 04213 +000000000000 DEC ,,,, EXPANSION SPACE FOR ADDED SS SIMULATORS. F6A03280 BINARY CARD NO. 9F300010 04220 0 00000 0 00000 PZE SKEW SPACE F6A03290 F6A03300 ORIGINS FOR INDIRECT ADDRESSING OF TABLES F6A03310 73660 ORGFLG EQU (FGBX) F6A03320 73661 ORGLCT EQU (LNCT) F6A03330 04221 0 00000 2 00000 ORGDEV PZE **,2 ORIGIN FOR NAMES IN DEV,TAG F6A03340 04222 0 00000 2 00000 PZE **,2,** (FLAG FOR PRESENCE OF FORMAT STATEMENTS) F6A03350 04223 0 00000 2 00000 ORGDEA PZE **,2 ORIGIN FOR LOCATIONS FOR NAMES IN DEV,TAG F6A03360 04224 0 00000 2 00000 PZE **,2 F6A03370 04225 0 00000 2 00000 ORGTEV PZE **,2 ORIGIN FOR NAMES OF SINGLE CELL VARIABLES F6A03380 04226 0 00000 2 00000 PZE **,2 F6A03390 04227 0 00000 2 00000 PZE **,2 F6A03400 04230 0 00000 2 00000 ORGTIV PZE **,2 ORIGIN FOR NAMES, LOCATIONS OF INT VARS F6A03410 04231 0 00000 1 00000 ORGCLO PZE **,1,** ORIGIN FOR SUBPROGRAM NAMES F6A03420 04232 0 00000 2 00000 ORGEIF PZE **,2,** ORIGIN FOR EXT,,INT STATEMENT NUMBERS F6A03430 04233 0 00000 4 00000 ORGIFN PZE **,4,** ORIGIN FOR LOCATIONS FOR INT STATE NUMBERSF6A03440 04234 0 00000 1 00000 ORGSUB PZE **,1,** ORIGIN FOR ARGUMENT NAMES F6A03450 F6A03460 04235 DUP 1,10 PATCH SPACE FOR ORIGINS AND ERASABLE F6A03470 04235 0 00000 0 00000 PZE F6A03480 BINARY CARD NO. 9F300011 F6A03490 ERASABLE STORAGE F6A03500 04247 0 00000 0 00000 PCD8L PZE LENGTH OF TRANSFER VECTOR (DECREMENT) F6A03510 PROGRAM BREAK (ADDRESS) F6A03520 04250 0 00000 0 00000 PCD8R PZE COMMON BREAK (ADDRESS) F6A03530 04251 0 00000 0 00000 PCD7L PZE BCD NAME OF SUBPROGRAM F6A03540 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 8 COMMON SUBROUTINES AND ERASABLE 04252 0 00000 0 00000 PCD7R PZE SUBPROGRAM ENTRY POINT (ADDRESS) F6A03550 04253 0 00000 0 00000 PGBRK PZE FIRST CELL AVAILABLE ABOVE OBJECT PROGRAM F6A03560 04254 0 00000 0 00000 TEVBS PZE ORIGIN FOR TEV STORAGE IN OBJECT PROGRAM F6A03570 04255 0 00000 0 00000 SLINT PZE LOCATION SYMBOL FOR FIRST PROGRAM CIT F6A03580 04256 0 00000 0 00000 SYMBL PZE NAME OF VARIABLE TO BE SEARCHED F6A03590 04257 0 00000 0 00000 ERASE PZE ERASABLE FULL WORD F6A03600 04260 016060606060 PGHED BCI 8,1 F6A03610 BINARY CARD NO. 9F300012 04270 606060606060 BCI 8, F6A03620 04300 604721272560 BCI 2, PAGE 1 F6A03630 04302 0 00000 0 00000 LABEL PZE CARD LABEL F6A03640 04303 LOADP SYN * F6A03650 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 9 CONTROL ROUTINES FOR FIRST CIT PASS F6A03680 READ IN ALL TAPE TABLES REQUIRED BY SECTION 6 F6A03690 COMPILE CIT FOR TAPE TABLE CONSTANTS F6A03700 ENTER NAMES IN TAPE TABLES INTO DEV SYMBOL TABLE F6A03710 PASS OVER CIT TAPE TO DEFINE SYMBOLS, ARGUMENTS F6A03720 CHANGE INTERNAL PSEUDOOPERATIONS TO MACHINE OPCODES F6A03730 F6A03740 04303 ORG XLOADP F6A03750 F6A03760 HEAD A F6A03770 F6A03780 ORIGINS FOR INDIRECT ADDRESSING OF TABLES F6A03790 BINARY CARD NO. 9F300013 04303 0 00000 2 00000 RGCOM PZE **,2,** ORIGIN FOR COMMON VARIABLE NAMES F6A03800 04304 0 00000 1 00000 RGEQU PZE **,1,** ORIGIN FOR EQUIVALENT VARIABLE NAMES F6A03810 04305 0 00000 1 00000 PZE **,1 ORIGIN FOR EQUIVALENT VARIABLE SUBSCRIPTS F6A03820 04306 0 00000 1 00000 RGFOR PZE **,1,** ORIGIN FOR ARITH STATEMENT FUNCTION NAMES F6A03830 04307 0 00000 1 00000 PZE **,1 ORIGIN FOR LEVEL,,INTERNAL STATEMENT NO F6A03840 04310 0 00000 1 00000 RGSIZ PZE **,1,** ORIGIN FOR ARRAY NAMES F6A03850 04311 0 00000 1 00000 PZE **,1 ORIGIN FOR ARRAY LENGTHS F6A03860 04312 0 00000 1 00000 RG9TB PZE **,1,** ORIGIN FOR 9) ADDEND CONSTANTS F6A03870 F6A03880 04313 DUP 1,10 PATCH SPACE FOR ORIGINS AND ERASABLE F6A03890 04313 0 00000 0 00000 PZE F6A03900 F6A03910 ERASEABLE STORAGE F6A03920 04325 0 00000 0 00000 CITSL PZE CIT SYMBOLIC LOCATION F6A03930 04326 0 00000 0 00000 CITOP PZE CIT OPCODE, DECREMENT F6A03940 04327 0 00000 0 00000 CITSA PZE CIT SYMBOLIC ADDRESS F6A03950 04330 0 00000 0 00000 CITRA PZE CIT RELATIVE ADDRESS, TAG F6A03960 BINARY CARD NO. 9F300014 04331 0 00000 0 00000 ADDRS PZE ERASABLE ADDRESS FIELD F6A03970 04332 0 00000 0 00000 ERASE PZE ERASABLE FULL WORD F6A03980 04333 0 00000 0 00000 LOCTR PZE PROGRAM LOCATION COUNTER F6A03990 04334 0 00000 0 77461 UPCTR PZE -207 UPPER STORAGE LOCATION COUNTER F6A04000 04335 -0 00000 0 00000 TIVCL MZE ERASABLE TO COMPUTE LENGTH OF TIV BLOCK F6A04010 04336 0 00000 0 00000 IDENT PZE TABLE IDENTIFICATION NUMBER F6A04020 04337 0 00000 0 00000 TABCT PZE TABLE COUNT FROM TAPE TABLE LABEL F6A04030 04340 0 00000 0 00000 ARGNO PZE ERASABLE USED TO COMPUTE INITIALIZATION F6A04040 F6A04050 F6A04060 04341 0760 00 0 00140 START SLF TURN OFF FLAGS F6A04070 04342 0221 00 0 06655 DVP L(0) TURN ON INDICATOR FOR COMMON AMUSEMENT F6A04080 04343 0761 00 0 00000 NOP PATCH IN SWT FOR DEBUGGING F6A04090 04344 0020 00 0 04346 TRA *+2 F6A04100 04345 0420 00 0 00033 HPR 27 F6A04110 F6A04120 INITIALIZE ORIGINS OF TABLES F6A04130 04346 -0534 00 4 03734 LXD XMEMRY,4 TOP OF MEMORY F6A04140 04347 0534 00 2 03734 LXA XMEMRY,2 BOTTOM OF MEMORY F6A04150 04350 1 00001 2 04351 TXI *+1,2,1 F6A04160 04351 0634 00 4 04221 SXA ORGDEV,4 F6A04170 04352 0634 00 4 04331 SXA ADDRS,4 INITIALIZE LOWER CORE TABLE OVERFLOW TEST F6A04180 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 10 CONTROL ROUTINES FOR FIRST CIT PASS 04353 0754 00 2 00000 PXA ,2 INITIALIZE ORIGINS OF LOWER CORE TABLES F6A04190 04354 0774 00 1 00006 AXT FORLP-ASSLP+1,1 F6A04200 04355 0621 00 1 06076 STA FORLP+1,1 F6A04210 04356 2 00001 1 04355 TIX *-1,1,1 F6A04220 BINARY CARD NO. 9F300015 04357 0634 00 4 04363 SXA CLEAR,4 PREPARE TO CLEAR WORKING MEMORY F6A04230 04360 -0634 00 2 04361 SXD *+1,2 F6A04240 04361 2 00000 4 04363 TIX *+2,4,** F6A04250 04362 0074 00 4 03735 TSX XERR00,4 *TOPMEM BELOW BOTMEM F6A04260 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A04270 * THE LIMITS OF STORAGE IN CELL MEMRY HAVE BEEN ASSIGNED F6A04280 * DURING EDITING OF THIS SYSTEM TAPE. TOPMEM HAS BEEN FOUNDF6A04290 * TO BE BELOW BOTMEM. SECTION 6 REQUIRES MORE ROOM TO PLAY.F6A04300 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A04310 04363 0600 00 4 00000 CLEAR STZ **,4 F6A04320 04364 2 00001 4 04363 TIX *-1,4,1 F6A04330 F6A04340 READ IN TAPE TABLES, COMPILE CIT FOR TAPE TABLE CONSTANT F6A04350 04365 0074 00 4 73606 TSX (TAPE),4 *BACKSPACE TABLE TAPE OVER ASSIGN CONSTANTSF6A04360 04366 0 20000 0 06125 PZE BKSPC,,(SKBP) F6A04370 04367 0 00002 0 06110 PZE ASSLB,,TABTAP F6A04380 04370 -0500 00 0 06732 CAL TRAOP SET CIT OPCODE TO TRA F6A04420 04371 0602 00 0 04326 SLW CITOP F6A04430 04372 0074 00 4 05773 TSX RDTAB,4 *READ ASSIGN TABLE (FILE 9) F6A04440 04373 0074 00 4 06143 TSX CPCIT,4 *COMPILE 5) CITS F6A04450 04374 -0500 00 0 06721 CAL OCTOP SET CIT OPCODE TO OCT F6A04460 04375 0602 00 0 04326 SLW CITOP F6A04470 04376 0074 00 4 05773 TSX RDTAB,4 *READ FIXCON TABLE (FILE 8) F6A04480 04377 0074 00 4 06143 TSX CPCIT,4 *COMPILE 2) CITS F6A04490 04400 0074 00 4 05773 TSX RDTAB,4 *READ HOLARG TABLE (FILE 5 RECORD 4) F6A04500 04401 -3 00000 1 04423 TXL HOLL3+1,1,0 IS HOLARG TABLE EMPTY F6A04510 04402 0621 00 0 04407 STA HOLL1+2 NO, INITIALIZE ORIGIN FOR BCD WORD F6A04520 04403 -0500 00 0 06162 CAL HLSYM SET CIT SYMBOLIC LOCATION TO B) F6A04530 04404 0602 00 0 04325 SLW CITSL F6A04540 BINARY CARD NO. 9F300016 04405 -0500 00 0 06722 HOLL1 CAL BCDOP SET CIT OPCODE TO BCD F6A04550 04406 0602 00 0 04326 SLW CITOP F6A04560 04407 -0500 00 1 00000 CAL **,1 SET CIT SYMBOLIC ADDRESS TO NEXT WORD F6A04570 04410 0602 00 0 04327 SLW CITSA IN HOLARG TABLE F6A04580 04411 0322 00 0 06774 ERA ALONE IS IT END OF ARGUMENT FLAG F6A04590 04412 0100 00 0 04417 TZE HOLL2 YES F6A04600 04413 0074 00 4 06221 TSX TBCIT,4 *NO, WRITE COMPILED CIT F6A04610 04414 0600 00 0 04325 STZ CITSL SET SUBSEQUENT SYMBOLIC LOCATION ZERO F6A04620 04415 2 00001 1 04407 TIX HOLL1+2,1,1 IS TABLE EXHAUSTED F6A04630 04416 0074 00 4 03735 TSX XERR00,4 *YES, END OF SENTENCE FLAG MISSING F6A04640 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A04650 * THE HOLARG TABLE, PREPARED BY SECTION 1 AND 1P, READ FROMF6A04660 * FILE 5 RECORD 4 LOGICAL TAPE 2, MUST HAVE A FLAG OF 36 F6A04670 * BINARY ONES AS THE LAST WORD. IT HAS NOT BEEN RECOGNIZED.F6A04680 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A04690 04417 -0500 00 0 06721 HOLL2 CAL OCTOP SET CIT OPCODE TO OCT F6A04700 04420 0602 00 0 04326 SLW CITOP F6A04710 04421 0074 00 4 06221 TSX TBCIT,4 *WRITE COMPILED CIT F6A04720 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 11 CONTROL ROUTINES FOR FIRST CIT PASS 04422 2 00001 1 04405 HOLL3 TIX HOLL1,1,1 IS TABLE EXHAUSTED F6A04730 04423 0074 00 4 05773 TSX RDTAB,4 *READ FLOCON TABLE (FILE 4 RECORD 1) F6A04740 04424 0074 00 4 06143 TSX CPCIT,4 *COMPILE 3) CITS F6A04750 04425 0774 00 1 07003 AXT SXTAB+6,1 INITIALIZE ORIGIN OF UNIVERSAL CONSTANTS $F6A04760 04426 0754 00 1 00000 PXA ,1 F6A04770 04427 0774 00 1 00006 AXT 6,1 PREPARE TO COMPILE 6 CONSTANTS $F6A04780 04430 0774 00 2 00010 AXT 8,2 SET INITIAL SYMBOLIC LOCATION TO 6) F6A04790 04431 0074 00 4 06143 TSX CPCIT,4 *COMPILE 6) CITS F6A04800 04432 0074 00 4 05773 TSX RDTAB,4 *READ IN FORMAT TABLE (FILE 4 RECORD 2) F6A04810 BINARY CARD NO. 9F300017 04433 -0634 00 1 04222 SXD ORGDEV+1,1 SET SWITCH FOR FORMAT TABLE ENTRIES F6A04820 04434 0074 00 4 06165 TSX CPBCD,4 *COMPILE 8) CITS F6A04830 F6A04840 WRITE OUT CONTENTS OF FINAL PARTIAL BUFFER F6A04850 04435 0535 00 4 06222 LAC TBCIT+1,4 COMPUTE PARTIAL WORD COUNT F6A04860 04436 -0634 00 4 04440 SXD *+2,4 F6A04870 04437 0774 00 4 00314 AXT CITSIZ+4,4 F6A04880 04440 1 00000 4 04441 TXI *+1,4,** F6A04890 04441 -0634 00 4 06237 SXD IOCIT,4 INITIALIZE I/O WORD COUNT F6A04900 04442 0074 00 4 73606 TSX (TAPE),4 *WRITE FINAL PARTIAL BUFFER CONTENTS F6A04910 04443 0 40001 0 06237 PZE IOCIT,,(WBNP) F6A04920 04444 0 00003 0 06105 PZE 3LABL,,CITTAP F6A04930 04445 0074 00 4 73606 TSX (TAPE),4 *MARK END OF CIT FILE F6A04940 04446 0 40005 0 00000 PZE ,,(WEFP) F6A04950 04447 0 00003 0 06105 PZE 3LABL,,CITTAP F6A04960 04450 0074 00 4 73606 TSX (TAPE),4 *PREPARE FOR FIRST PASS F6A04970 04451 0 20000 0 06142 PZE REWND,,(SKBP) F6A04980 04452 0 00003 0 06105 PZE 3LABL,,CITTAP F6A04990 04453 0074 00 4 05773 TSX RDTAB,4 *READ FORSUB TABLE (FILE 3) F6A05000 04454 -0634 00 1 04306 SXD RGFOR,1 SAVE FORSUB TABLE COUNT F6A05010 04455 0621 00 2 06105 STA TAPAR,2 INITIALIZE LOAD POINT FOR SIZ TABLE F6A05020 04456 0621 00 0 04306 STA RGFOR INITIALIZE ORIGIN FOR ARITH STATE NAMES F6A05030 04457 0400 00 0 06656 ADD L(1) F6A05040 04460 0621 00 0 04307 STA RGFOR+1 INITIALIZE ORIGIN FOR LEVEL,,IFN F6A05050 BINARY CARD NO. 9F300018 04461 0074 00 4 05773 TSX RDTAB,4 *READ SIZ TABLE (FILE 4 RECORD 3) F6A05060 04462 -0634 00 1 04310 SXD RGSIZ,1 SAVE SIZE TABLE COUNT F6A05070 04463 0621 00 2 06106 STA TAPAR+1,2 INITIALIZE LOAD POINT FOR SUBDEF TABLE F6A05080 04464 0621 00 0 04310 STA RGSIZ INITIALIZE ORIGIN FOR ARRAY NAME F6A05090 04465 0400 00 0 06656 ADD L(1) F6A05100 04466 0621 00 0 04311 STA RGSIZ+1 INITIALIZE ORIGIN FOR ARRAY LENGTH F6A05110 04467 -0534 00 2 04336 LXD IDENT,2 LOAD HIGHEST+1 IFN USED IN PROGRAM F6A05120 04470 -3 10000 2 04472 TXL *+2,2,4096 IS IFN TOO LARGE F6A05130 04471 0074 00 4 03736 TSX XERR02,4 *YES, IFN LARGER THAN 4095 F6A05140 04472 1 00001 2 04473 TXI *+1,2,1 NO, BUMP BY ONE F6A05150 04473 -0634 00 2 04233 SXD ORGIFN,2 SAVE HIGHEST IFN+2 FOR TABLE LENGTH ALLOC F6A05160 04474 0074 00 4 05773 TSX RDTAB,4 *READ END TABLE (FILE 5 RECORD 1) F6A05170 04475 0074 00 4 05773 TSX RDTAB,4 *READ SUBDEF TABLE (FILE 5 RECORD 2) F6A05180 04476 0621 00 2 06105 STA TAPAR,2 INITIALIZE LOAD POINT FOR COMMON TABLE F6A05190 04477 -3 00000 1 04505 TXL SUBL1+1,1,0 IS SUBDEF TABLE EMPTY F6A05200 04500 0621 00 0 04234 STA ORGSUB NO, INITIALIZE ORIGIN FOR DUMMY ARGUMENTS F6A05210 04501 -0500 60 0 04234 CAL* ORGSUB INSERT BCD SUBPROGRAM NAME F6A05220 04502 0602 00 0 04251 SLW XPCD7L INTO PROGRAM CARD 7L F6A05230 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 12 CONTROL ROUTINES FOR FIRST CIT PASS 04503 1 77777 1 04504 TXI *+1,1,-1 BUMP COUNT PAST SUBPROGRAM NAME F6A05240 04504 -0634 00 1 04234 SUBL1 SXD ORGSUB,1 SAVE COUNT OF ARGUMENTS F6A05250 04505 0074 00 4 05773 TSX RDTAB,4 *READ COMMON TABLE (FILE 5 RECORD 3) F6A05260 04506 -0634 00 1 04303 SXD RGCOM,1 SAVE COMMON TABLE COUNT F6A05270 BINARY CARD NO. 9F300019 04507 0621 00 2 06105 STA TAPAR,2 INITIALIZE LOAD POINT FOR EIF TABLE F6A05280 04510 0621 00 0 06237 STA IOCIT INITIALIZE I/O PARAMETER TO WRITE EIF F6A05290 04511 0621 00 2 06106 STA TAPAR+1,2 INITIALIZE LOAD POINT FOR EQUIV TABLE F6A05300 04512 0621 00 0 04303 STA RGCOM INITIALIZE ORIGIN FOR COMMON VARIABLE NAMEF6A05310 04513 0074 00 4 05773 TSX RDTAB,4 *READ EIF TABLE (FILE 5 RECORD 5) F6A05320 04514 -0634 00 1 04232 SXD ORGEIF,1 SAVE EIF TABLE COUNT F6A05330 04515 -0634 00 1 06237 SXD IOCIT,1 INITIALIZE I/O PARAMETER TO WRITE EIF F6A05340 04516 -3 00000 1 04522 TXL *+4,1,0 IS EIF TABLE EMPTY F6A05350 04517 0074 00 4 73606 TSX (TAPE),4 *NO, WRITE EIF TABLE AS FIRST RECORD TAPE 4F6A05360 04520 0 40011 0 06237 PZE IOCIT,,(WBNC) F6A05370 04521 0 00004 0 06107 PZE ELABL,,COTTAP F6A05380 04522 0074 00 4 05773 TSX RDTAB,4 *READ EQUIV TABLE (FILE 5 RECORD 13) F6A05390 04523 -0634 00 1 04304 SXD RGEQU,1 SAVE EQUIVALENCE TABLE COUNT F6A05400 04524 0621 00 2 06105 STA TAPAR,2 INITIALIZE LOAD POINT FOR CLOSUB TABLE F6A05410 04525 0621 00 0 04304 STA RGEQU INITIALIZE ORIGIN FOR VARIABLE NAME F6A05420 04526 0400 00 0 06656 ADD L(1) F6A05430 04527 0621 00 0 04305 STA RGEQU+1 INITIALIZE ORIGIN FOR SUBSCRIPT F6A05440 04530 0074 00 4 05773 TSX RDTAB,4 *READ CLOSUB TABLE (FILE 5 RECORD 14) F6A05450 04531 -0634 00 1 04247 SXD XPCD8L,1 INSERT VECTOR LENGTH IN PC 8L DECREMENT F6A05460 04532 -0634 00 1 04231 SXD ORGCLO,1 SAVE CLOSUB TABLE COUNT F6A05470 04533 0621 00 0 04231 STA ORGCLO INITIALIZE ORIGIN FOR SUBPROGRAM NAMES F6A05480 F6A05490 INITIALIZE ORIGIN OF DEA TABLE SPLITTING AVAILABLE F6A05500 MEMORY ABOVE CLOSUB TABLE WITH DEV F6A05510 04534 0621 00 0 04331 STA ADDRS SET TOP OF LOWER MEMORY TABLES F6A05520 BINARY CARD NO. 9F300020 04535 0500 00 0 04221 CLA ORGDEV GET ORIGIN OF UPPER TABLES F6A05530 04536 -0320 00 0 06665 ANA ADMSK F6A05540 04537 0400 00 0 06656 ADD L(1) F6A05550 04540 0621 00 0 04222 STA ORGDEV+1 F6A05560 04541 0402 00 0 04331 SUB ADDRS COMPUTE AVAILABLE MEMORY F6A05570 04542 0120 00 0 04544 TPL *+2 DID TAPE TABLES OVERLAP UPPER MEMORY F6A05580 04543 0074 00 4 03737 TSX XERR03,4 *YES F6A05590 04544 0771 00 0 00001 ARS 1 NO, SPLIT AVAILABLE MEMORY F6A05600 04545 0734 00 2 00000 PAX ,2 F6A05610 04546 -3 37777 2 04551 TXL *+3,2,16383 IS THIS LONGER THAN BINARY SEARCH F6A05620 04547 -0534 00 2 04546 LXD *-1,2 YES, SET MAXIMUM TABLE LENGTH F6A05630 04550 0754 00 2 00000 PXA ,2 F6A05640 04551 -0634 00 2 06541 SXD ENDET,2 SET DEV TABLE OVERFLOW TEST F6A05650 04552 -0400 00 0 04221 SBM ORGDEV INITIALIZE ORIGIN FOR DEA TABLE F6A05660 04553 0621 00 0 04223 STA ORGDEA F6A05670 04554 0402 00 0 06656 SUB L(1) F6A05680 04555 0621 00 0 04224 STA ORGDEA+1 F6A05690 04556 0774 00 2 00000 AXT 0,2 F6A05700 04557 0500 00 0 06774 CLA ALONE SET BINARY SEARCH STOP F6A05710 04560 0601 60 0 04221 STO* ORGDEV AT UPPER END OF DEV TABLE F6A05720 F6A05730 ALL TAPE TABLES REQUIRED BY SECTION 6 ARE IN MEMORY. F6A05740 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 13 CONTROL ROUTINES FOR FIRST CIT PASS CONSTRUCT OBJECT PROGRAM STORAGE ALLOCATION TABLE F6A05750 FROM INFORMATION IN TAPE TABLES F6A05760 04561 -0534 00 1 04303 LXD RGCOM,1 LOAD COMMON TABLE COUNT F6A05770 F6A05780 REENTRY TO ASSIGN NEXT SUPERCOMMON STATEMENT F6A05790 04562 -3 00000 1 04635 SPRCM TXL COMS1+1,1,0 IS COMMON TABLE EMPTY F6A05800 BINARY CARD NO. 9F300021 04563 -0634 00 1 04303 SXD RGCOM,1 NO, SAVE COUNT OF REMAINING COMMON VARIABSF6A05810 04564 0500 00 0 06667 CLA T(2) RESET TAG FOR INDIRECT ADDRESS OF F6A05820 04565 0625 00 0 04303 STT RGCOM COMMON TABLE F6A05830 F6A05840 ASSIGN LOCATIONS TO COMMON-EQUIVALENCE VARIABLES F6A05850 04566 -0534 00 1 04304 LXD RGEQU,1 GET EQUIVALENCE TABLE COUNT F6A05860 04567 -3 00000 1 04607 TXL EQCM1+1,1,0 IS EQUIVALENCE TABLE EMPTY F6A05870 04570 0634 00 1 06245 EQCOM SXA SEQAS+1,1 NO, SAVE COUNT OF FIRST SYMBOL THIS SET F6A05880 04571 -0534 00 2 04303 LXD RGCOM,2 GET COMMON TABLE COUNT F6A05890 04572 -0500 60 0 04304 CAL* RGEQU GET NEXT SYMBOL THIS SET F6A05900 04573 -0340 60 0 04303 LAS* RGCOM IS EQUIVALENCE VARIABLE IN COMMON F6A05910 04574 0020 00 0 04576 TRA *+2 NO F6A05920 04575 0074 00 4 06244 TSX SEQAS,4 *YES, ASSIGN THIS SET TO UPPER MEMORY F6A05930 04576 -0500 60 0 04303 CAL* RGCOM GET COMMON VARIABLE F6A05940 04577 0322 00 0 06774 ERA ALONE IS THIS END OF SUPERCOMMON STATEMENT F6A05950 04600 0100 00 0 04602 TZE *+2 YES F6A05960 04601 2 00001 2 04572 TIX EQCOM+2,2,1 NO, IS COMMON TABLE EXHAUSTED F6A05970 04602 0500 60 0 04305 CLA* RGEQU+1 YES, GET SUBSCRIPT F6A05980 04603 -0120 00 0 04606 TMI EQCM1 IS THIS END OF SENTENCE F6A05990 04604 2 00002 1 04571 TIX EQCOM+1,1,2 NO, IS EQUIVALENCE TABLE EXHAUSTED F6A06000 04605 0074 00 4 03735 TSX XERR00,4 *YES, END OF SENTENCE FLAG MISSING F6A06010 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A06020 * THE EQUIVALENCE TABLE PREPARED BY SECTION 1 AND PROCESSEDF6A06030 * BY 1P, READ FROM FILE 5 RECORD 13 LOGICAL TAPE 2, MUST F6A06040 * HAVE A FLAG OF 36 BINARY ONES AS THE LAST WORD. THIS FLAGF6A06050 * HAS NOT BEEN RECOGNIZED. F6A06060 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A06070 04606 2 00002 1 04570 EQCM1 TIX EQCOM,1,2 IS EQUIVALENCE TABLE EXHAUSTED F6A06080 F6A06090 ASSIGN LOCATIONS TO COMMON-DIMENSION VARIABLES F6A06100 04607 -0534 00 1 04303 LXD RGCOM,1 GET COMMON TABLE COUNT F6A06110 04610 0500 00 0 06666 CLA T(1) RESET TAG FOR INDIRECT ADDRESS OF F6A06120 BINARY CARD NO. 9F300022 04611 0625 00 0 04303 STT RGCOM COMMON TABLE F6A06130 04612 0400 00 0 04334 ADD UPCTR SET LOCATION ASSIGNED TO THIS SYMBOL F6A06140 04613 0602 00 0 04331 SLW ADDRS TO CURRENT VALUE OF UPPER LOCATION COUNTERF6A06150 04614 -0500 60 0 04303 COMAS CAL* RGCOM GET NEXT VARIABLE NAME F6A06160 04615 -0340 00 0 06774 LAS ALONE IS THIS END OF SUPERCOMMON STATEMENT FLAG F6A06170 04616 0020 00 0 04620 TRA *+2 NO F6A06180 04617 1 77777 1 04562 TXI SPRCM,1,-1 YES, ASSIGN NEXT SUPERCOMMON STATEMENT F6A06190 04620 0074 00 4 04043 TSX XSRDEV,4 *IS NAME IN AN EQUIVALENCE SENTENCE F6A06200 04621 0074 00 4 06535 TSX ENDEV,4 *NO, ENTER IT INTO DEV F6A06210 04622 0020 00 0 04624 TRA *+2 F6A06220 04623 0020 00 0 04634 TRA COMS1 YES F6A06230 04624 -0500 00 0 04256 CAL XSYMBL GET VARIABLE NAME F6A06240 04625 0074 00 4 06322 TSX SSIZE,4 *GET -LENGTH OF THIS ARRAY F6A06250 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 14 CONTROL ROUTINES FOR FIRST CIT PASS 04626 0400 00 0 04331 ADD ADDRS BUMP LOCATION COUNTER BY ARRAY LENGTH F6A06260 04627 0402 00 0 06666 SUB T(1) DID ASSIGNMENT WRAP AROUND MEMORY F6A06270 04630 0120 00 0 04632 TPL *+2 NO F6A06280 04631 0074 00 4 03740 TSX XERR04,4 *YES F6A06290 04632 0621 00 0 04334 STA UPCTR SAVE NEW VALUE OF UPPER COUNTER F6A06300 04633 0621 00 0 04331 STA ADDRS F6A06310 04634 2 00001 1 04614 COMS1 TIX COMAS,1,1 IS COMMON TABLE EXHAUSTED F6A06320 04635 0500 00 0 04334 CLA UPCTR YES, INSERT COMMON BREAK F6A06330 04636 0621 00 0 04250 STA XPCD8R IN PROGRAM CARD 8R ADDRESS F6A06340 F6A06350 ASSIGN EQUIVALENCE VARIABLES NOT IN COMMON F6A06360 BINARY CARD NO. 9F300023 04637 -0534 00 1 04304 LXD RGEQU,1 GET EQUIVALENCE TABLE COUNT F6A06370 04640 -3 00000 1 04656 TXL EQLO1+1,1,0 IS EQUIVALENCE TABLE EMPTY F6A06380 04641 0634 00 1 06245 EQLOW SXA SEQAS+1,1 NO, SAVE COUNT OF FIRST SYMBOL THIS SET F6A06390 04642 -0500 60 0 04304 CAL* RGEQU GET FIRST SYMBOL THIS SENTENCE F6A06400 04643 0074 00 4 04043 TSX XSRDEV,4 *IS SENTENCE IN COMMON F6A06410 04644 0074 00 4 06244 TSX SEQAS,4 *NO, ASSIGN SENTENCE TO LOWER MEMORY F6A06420 04645 0 00000 0 00000 PZE NOT USED F6A06430 04646 0500 60 0 04305 CLA* RGEQU+1 YES, GET NEXT SUBSCRIPT F6A06440 04647 -0120 00 0 04655 TMI EQLO1 IS THIS END OF SENTENCE F6A06450 04650 2 00002 1 04646 TIX *-2,1,2 NO, IS EQUIVALENCE TABLE EXHAUSTED F6A06460 04651 0074 00 4 03735 TSX XERR00,4 *YES, END OF SENTENCE FLAG MISSING F6A06470 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A06480 * SEE DISCUSSION OF SIMILAR ERROR AT EQCOM. F6A06490 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A06500 04652 0 00000 0 00000 PZE NOT USED F6A06510 04653 0 00000 0 00000 PZE NOT USED F6A06520 04654 0 00000 0 00000 PZE NOT USED F6A06530 04655 2 00002 1 04641 EQLO1 TIX EQLOW,1,2 IS EQUIVALENCE TABLE EXHAUSTED F6A06540 F6A06550 F6A06560 ENTER SUBROUTINE ARGUMENTS INTO DEV F6A06570 04656 -0534 00 1 04234 LXD ORGSUB,1 GET SUBDEF TABLE COUNT F6A06580 04657 -3 00000 1 04677 TXL SBAR1+1,1,0 ARE THERE ANY ARGUMENTS F6A06590 04660 -0500 00 0 06675 CAL P(2) YES, SET ARGUMENT FLAG F6A06600 04661 0400 00 0 06670 ADD T(4) SET SYMBOL TABLE FLAG F6A06610 04662 0400 00 0 06656 SBARG ADD L(1) BUMP ARGUMENT COUNT F6A06620 04663 0601 00 0 04331 STO ADDRS F6A06630 04664 -0500 60 0 04234 CAL* ORGSUB GET ARGUMENT NAME F6A06640 BINARY CARD NO. 9F300024 04665 0074 00 4 04043 TSX XSRDEV,4 *IS ARGUMENT IN COMMON OR EQUIVALENCE F6A06650 04666 0074 00 4 06535 TSX ENDEV,4 *NO, ENTER IT INTO DEV F6A06660 04667 0020 00 0 04676 TRA SBAR1 F6A06670 04670 -0320 00 0 06667 ANA T(2) IS THIS AN EQUIVALENCE VARIABLE F6A06680 04671 0100 00 0 04674 TZE *+3 NO F6A06690 04672 0500 00 0 06656 CLA L(1) YES, GET SUBROUTINE ARGUMENT FLAG F6A06700 04673 0074 00 4 06336 TSX SMDER,4 *ADD THIS NAME TO MULTIPLY DEFINED LIST F6A06710 04674 0500 00 0 04331 CLA ADDRS RESET COMMON STORAGE ASSIGNMENT F6A06720 04675 0601 60 0 04223 STO* ORGDEA TO DELETE FROM MAP F6A06730 04676 2 00001 1 04662 SBAR1 TIX SBARG,1,1 IS ARGUMENT LIST EXHAUSTED F6A06740 F6A06750 ASSIGN LOCATIONS TO DIMENSION VARIABLES F6A06760 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 15 CONTROL ROUTINES FOR FIRST CIT PASS 04677 -0534 00 1 04310 LXD RGSIZ,1 GET SIZ TABLE COUNT F6A06770 04700 -3 00000 1 04721 TXL DIMN1+1,1,0 IS SIZ TABLE EMPTY F6A06780 04701 0500 00 0 06666 CLA T(1) SET SYMBOL TABLE FLAG F6A06790 04702 0400 00 0 04334 ADD UPCTR SET LOCATION OF ARRAY NAME TO CURRENT F6A06800 04703 0601 00 0 04331 STO ADDRS VALUE OF UPPER LOCATION COUNTER F6A06810 04704 -0500 60 0 04310 DIMEN CAL* RGSIZ GET NEXT ARRAY NAME F6A06820 04705 0074 00 4 04043 TSX XSRDEV,4 *IS THIS ARRAY IN COMMON, EQUIV, OR ARG F6A06830 04706 0074 00 4 06535 TSX ENDEV,4 *NO, ENTER IT IN DEV F6A06840 04707 0020 00 0 04711 TRA *+2 F6A06850 04710 0020 00 0 04720 TRA DIMN1 YES, IT IS COMMON, EQUIV, OR ARGUMENT F6A06860 04711 0502 60 0 04311 CLS* RGSIZ+1 REDUCE LOCATION COUNTER BY LENGTH OF F6A06870 04712 0400 00 0 04331 ADD ADDRS ARRAY (STORED BACKWARDS IN MEMORY) F6A06880 BINARY CARD NO. 9F300025 04713 0402 00 0 06666 SUB T(1) DID ASSIGNMENT WRAP AROUND MEMORY F6A06890 04714 0120 00 0 04716 TPL *+2 NO F6A06900 04715 0074 00 4 03740 TSX XERR04,4 *YES F6A06910 04716 0621 00 0 04334 STA UPCTR SAVE NEW VALUE OF UPPER COUNTER F6A06920 04717 0621 00 0 04331 STA ADDRS F6A06930 04720 2 00002 1 04704 DIMN1 TIX DIMEN,1,2 NO, IS SIZ TABLE EXHAUSTED F6A06940 F6A06950 ENTER TRANSFER VECTOR NAMES IN DEV F6A06960 04721 -0500 00 0 06674 CAL P(1) SET TRANSFER VECTOR FLAG F6A06970 04722 0400 00 0 06670 ADD T(4) SET SYMBOL TABLE FLAG F6A06980 04723 0601 00 0 04331 STO ADDRS F6A06990 04724 -0534 00 1 04231 LXD ORGCLO,1 GET COUNT OF TRANSFER VECTOR F6A07000 04725 -3 00000 1 04740 TXL TRVC1+1,1,0 IS TRANSFER VECTOR EMPTY F6A07010 04726 -0500 60 0 04231 TRVEC CAL* ORGCLO NO, GET NEXT NAME IN TRANSFER VECTOR F6A07020 04727 0074 00 4 04043 TSX XSRDEV,4 *IS IT IN DEV F6A07030 04730 0074 00 4 06535 TSX ENDEV,4 *NO, ENTER IT INTO DEV F6A07040 04731 0020 00 0 04734 TRA *+3 F6A07050 04732 0500 00 0 06660 CLA L(3) YES, GET TRANSFER VECTOR FLAG F6A07060 04733 0074 00 4 06336 TSX SMDER,4 *ADD NAME TO MULTIPLY DEFINED ERROR LIST F6A07070 04734 0500 00 0 04331 CLA ADDRS BUMP LOWER LOCATION COUNTER F6A07080 04735 0400 00 0 06656 ADD L(1) F6A07090 04736 0621 00 0 04331 STA ADDRS F6A07100 04737 2 00001 1 04726 TRVC1 TIX TRVEC,1,1 IS TRANSFER VECTOR EXHAUSTED F6A07110 F6A07120 ENTER INITIAL SYMBOLIC LOCATION INTO DEV F6A07130 04740 -0754 00 0 00000 PXD ,0 ERASE TRANSFER VECTOR FLAG IN PREFIX F6A07140 BINARY CARD NO. 9F300026 04741 0630 00 0 04331 STP ADDRS F6A07150 04742 -0500 00 0 06703 CAL L(SD) SET INITIAL SYMBOLIC LOCATION TO $ F6A07160 04743 -0520 00 0 04251 NZT XPCD7L IS THIS A SUBPROGRAM F6A07170 04744 -0500 00 0 06702 CAL L(DD) NO, RESET INITIAL SYMBOLIC LOCATION TO $$ F6A07180 04745 0074 00 4 04043 TSX XSRDEV,4 *IS THIS IN DEV F6A07190 04746 0074 00 4 06535 TSX ENDEV,4 *NO, ENTER IT INTO DEV F6A07200 04747 0020 00 0 04751 TRA *+2 F6A07210 04750 0074 00 4 03735 TSX XERR00,4 *YES, $ OR $$ APPEARS IN DEV PREMATURELY F6A07220 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A07230 * THE DEV TABLE, MADE UP OF BCD NAMES IN COMMON, DIMENSION,F6A07240 * EQUIVALENCE, TRANSFER VECTOR (CLOSUB), ARGUMENT LIST F6A07250 * (SUBDEF) AND ARITHMETIC STATEMENT FUNCTION (FORSUB) NAMESF6A07260 * HAS BEEN SEARCHED AND $ OR $$ (SEE LOC SYMBL) HAS BEEN F6A07270 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 16 CONTROL ROUTINES FOR FIRST CIT PASS * FOUND AT ORGDEV,2. NOONE PUT IT THERE. F6A07280 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A07290 F6A07300 ENTER ARITHMETIC STATEMENT FUNCTION NAMES IN DEV F6A07310 04751 -0534 00 1 04306 LXD RGFOR,1 GET FORSUB TABLE COUNT F6A07320 04752 -3 00000 1 04767 TXL FORS1+1,1,0 IS FORSUB TABLE EMPTY F6A07330 04753 0502 00 0 06670 CLS T(4) NO, SET ARITHMETIC STATEMENT FUNCTION F6A07340 04754 0601 00 0 04331 STO ADDRS FLAG (MINUS), SYMBOL TABLE FLAG (TAG) F6A07350 04755 0500 60 0 04307 FORSB CLA* RGFOR+1 GET LEVEL,,IFN OF THIS FUNCTION F6A07360 04756 0771 00 0 00022 ARS 18 ISOLATE IFN F6A07370 04757 0621 00 0 04331 STA ADDRS FOR DEA ENTRY F6A07380 04760 -0500 60 0 04306 CAL* RGFOR GET NEXT ARITH STATE FUNCTION NAME F6A07390 04761 0074 00 4 04043 TSX XSRDEV,4 *IS IT IN DEV F6A07400 04762 0074 00 4 06535 TSX ENDEV,4 *NO, ENTER IT INTO DEV F6A07410 04763 0020 00 0 04766 TRA *+3 F6A07420 04764 0500 00 0 06657 CLA L(2) YES, GET ARITHMETIC STATEMENT DEF FLAG F6A07430 04765 0074 00 4 06336 TSX SMDER,4 *ADD NAME TO MULTIPLY DEFINED LIST F6A07440 04766 2 00002 1 04755 FORS1 TIX FORSB,1,2 IS FORSUB TABLE EXHAUSTED F6A07450 F6A07460 TO CHECK FOR ILLEGAL USE OF SUBPROGRAM NAME F6A07470 BINARY CARD NO. 9F300027 04767 -0500 00 0 04251 CAL XPCD7L GET NAME OF THIS SUBPROGRAM F6A07480 04770 0074 00 4 04043 TSX XSRDEV,4 *IS IT IN DEV F6A07490 04771 0020 00 0 04777 TRA SBNER+1 NO F6A07500 04772 0 00000 0 00000 PZE NOT USED F6A07510 04773 -0320 00 0 06670 ANA T(4) IS IT FORSUB, TRANSFER VECTOR, OR ARG NAMEF6A07520 04774 0100 00 0 04777 TZE SBNER+1 NO F6A07530 04775 0500 00 0 06661 CLA L(4) YES, GET SUBPROGRAM NAME FLAG F6A07540 04776 0074 00 4 06336 SBNER TSX SMDER,4 *ADD NAME TO MULTIPLY DEFINED LIST F6A07550 F6A07560 DEV TABLE IS COMPLETE. PACK DEA UP IN MEMORY AGAINST DEV F6A07570 04777 0500 00 0 04223 CLA ORGDEA INITIALIZE MOVE LOOP F6A07580 05000 0621 00 0 05010 STA MVDEA F6A07590 05001 -0534 00 4 04060 LXD XDEVTL,4 COMPUTE POSITION OF LAST ENTRY IN DEV F6A07600 05002 0754 00 4 00000 PXA ,4 F6A07610 05003 -0400 00 0 04221 SBM ORGDEV F6A07620 05004 0621 00 0 04223 STA ORGDEA INITIALIZE NEW ORIGIN OF DEA TABLE F6A07630 05005 0621 00 0 04233 STA ORGIFN INITIALIZE ORIGIN OF IFN TABLE F6A07640 IFN WILL OCCUPY DECREMENT, DEA ADDRESS F6A07650 PORTION OF WORDS IN SHARED MEMORY F6A07660 05006 -0634 00 4 05013 SXD MVDEA+3,4 SET END OF MOVE LOOP TEST F6A07670 05007 0774 00 6 00001 AXT 1,6 PREPARE TO MOVE DEA TABLE OFF THE TOP F6A07680 05010 0500 00 2 00000 MVDEA CLA **,2 MOVE NEXT ENTRY IN DEA F6A07690 05011 0601 60 0 04223 STO* ORGDEA UP PACKED AGAINST DEV F6A07700 05012 1 00001 6 05013 TXI *+1,6,1 BUMP TO NEXT WORD IN DEA F6A07710 05013 -3 00000 2 05010 TXL MVDEA,2,** IS DEA EXHAUSTED F6A07720 05014 -0634 00 2 05016 SXD *+2,2 YES, SET TEST FOR ORIGIN OF TEV TABLE F6A07730 BINARY CARD NO. 9F300028 05015 -0534 00 2 04233 LXD ORGIFN,2 GET LENGTH OF REQUIRED IFN TABLE F6A07740 05016 -3 00000 2 05020 TXL *+2,2,** IS DEA LONGER THAN IFN F6A07750 05017 -0534 00 4 04233 LXD ORGIFN,4 NO, GET COUNT OF IFN TABLE INSTEAD F6A07760 05020 0754 00 4 00000 PXA ,4 COMPUTE ORIGIN OF TEV TABLE F6A07770 05021 -0400 00 0 04223 SBM ORGDEA PACKED AGAINST LAST ENTRY IN DEA OR IFN F6A07780 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 17 CONTROL ROUTINES FOR FIRST CIT PASS 05022 0621 00 0 04225 STA ORGTEV F6A07790 05023 0402 00 0 06656 SUB L(1) F6A07800 05024 0621 00 0 04226 STA ORGTEV+1 F6A07810 F6A07820 INITIALIZE PASS OVER CIT TAPE F6A07830 INITIALIZE ORIGIN OF TIV TABLE ALLOWING 8 ENTRIES IN F6A07840 ARGUMENT LIST FOR EACH ARGUMENT IN SOURCE PROGRAM F6A07850 05025 -0534 00 4 04234 LXD ORGSUB,4 LOAD COUNT OF ARGUMENTS F6A07860 05026 0754 00 4 00000 PXA ,4 F6A07870 05027 0767 00 0 00004 ARGTB ALS 4 MULTIPLY BY 16 (2 WORDS FOR EACH ENTRY) F6A07880 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * F6A07890 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * F6A07900 CHANGE SHIFT AT ARGTB TO ALTER LENGTH OF BUFFER F6A07910 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * F6A07920 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * F6A07930 05030 3 00014 4 05032 TXH *+2,4,12 IS TABLE RESERVATION AT LEAST 200 WORDS F6A07932 05031 0500 00 0 06664 CLA L(200 NO, PROVIDE FOR AT LEAST 100 ENTRIES F6A07934 05032 0734 00 1 00000 PAX ,1 F6A07940 05033 -0634 00 1 05233 SXD PAS10,1 INITIALIZE ARGUMENT LIST OVERFLOW TEST F6A07950 05034 -0634 00 1 05036 SXD *+2,1 F6A07960 05035 0534 00 1 03734 LXA XMEMRY,1 F6A07970 05036 1 00000 1 05037 TXI *+1,1,** F6A07980 05037 0634 00 1 04230 SXA ORGTIV,1 F6A07990 05040 1 77777 1 05041 TXI *+1,1,-1 F6A08000 05041 0634 00 1 04227 SXA ORGTIV-1,1 F6A08010 05042 0535 00 2 04230 LAC ORGTIV,2 COMPUTE LENGTH OF TIV AND TEV TABLES F6A08020 BINARY CARD NO. 9F300029 05043 -0634 00 2 05045 SXD *+2,2 FOR TABLE OVERFLOW TEST F6A08030 05044 0534 00 2 04225 LXA ORGTEV,2 F6A08040 05045 1 00000 2 05046 TXI *+1,2,** F6A08050 05046 -0634 00 2 06630 SXD ENTET,2 F6A08060 05047 0754 00 2 00000 PXA ,2 F6A08070 05050 0737 00 2 00000 PAC ,2 F6A08080 05051 -0634 00 2 06573 SXD ENTIT,2 F6A08090 05052 0500 00 0 06774 CLA ALONE F6A08100 05053 0774 00 2 00000 AXT 0,2 SET BINARY SEARCH STOPS F6A08110 05054 0601 60 0 04225 STO* ORGTEV AT UPPER END OF TEV TABLE F6A08120 05055 0601 60 0 04230 STO* ORGTIV AND AT LOWER END OF TIV TABLE F6A08130 05056 1 77777 2 05057 TXI *+1,2,-1 CLEAR FIRST WORD IN TIV F6A08140 05057 0600 60 0 04230 STZ* ORGTIV F6A08150 05060 -3 00000 4 05071 TXL PAS01,4,0 ARE THERE ANY ARGUMENTS F6A08160 05061 0074 00 4 06352 TSX RDCIT,4 *YES, READ FIRST CIT F6A08170 05062 0020 00 0 06431 TRA RDCRR *WAS END OF CIT FILE MISTAKENLY SENSED F6A08180 05063 -0500 00 0 04325 CAL CITSL NO, GET FIRST SYMBOLIC LOCATION F6A08190 05064 -0100 00 0 05067 TNZ *+3 IS A SYMBOLIC LOCATION ASSIGNED F6A08200 05065 -0500 00 0 06663 CAL L(8) NO, SET IT TO A1 F6A08210 05066 0602 00 0 04325 SLW CITSL F6A08220 05067 0602 00 0 04255 SLW XSLINT F6A08230 05070 0020 00 0 05073 TRA PAS01+2 F6A08240 F6A08250 PASS OVER CIT TAPE 3 TO DEFINE VARIABLE NAMES NOT IN DEV F6A08260 AND TO PREPARE INITIALIZATION FOR ARGUMENTS F6A08270 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 18 CONTROL ROUTINES FOR FIRST CIT PASS BINARY CARD NO. 9F300030 05071 0074 00 4 06352 PAS01 TSX RDCIT,4 *GET NEXT CIT F6A08280 05072 0020 00 0 05334 TRA PAS18+2 WAS END OF CIT FILE SENSED F6A08290 05073 0600 00 0 04331 STZ ADDRS NO, RESET LOCATION OF THIS SYMBOL F6A08300 05074 -0500 00 0 04326 CAL CITOP GET CIT OPCODE F6A08310 05075 -0534 00 4 06705 LXD OPLST,4 LOAD COUNT OF SPECIAL OPERATIONS F6A08320 05076 -0340 00 4 06725 LAS OPLST+16,4 IS OPCODE ON LIST F6A08330 05077 0020 00 0 05101 TRA *+2 NO F6A08340 05100 0020 00 4 05122 TRA PAS02+1,4 YES F6A08350 05101 2 00001 4 05076 TIX *-3,4,1 IS SPECIAL OPERATION LIST EXHAUSTED F6A08360 05102 1 00017 4 05142 TXI PAS04,4,15 YES F6A08370 05103 DUP 1,8 EXPANSION SPACE FOR ADDITIONAL PSEUDOOPS F6A08380 05103 0 00000 0 00000 PZE F6A08390 05113 0020 00 0 05140 TRA PAS03+2 OPCODE IS SXQ F6A08400 05114 0020 00 0 05136 TRA PAS03 OPCODE IS QXD F6A08410 05115 0020 00 0 05122 TRA PAS02+1 OPCODE IS QPR F6A08420 05116 0020 00 0 05251 TRA PAS14 OPCODE IS OCT F6A08430 BINARY CARD NO. 9F300031 05117 0020 00 0 05251 TRA PAS14 OPCODE IS BCD F6A08440 05120 0760 00 0 00144 SLN 4 OPCODE IS BSS F6A08450 05121 0020 00 0 05142 PAS02 TRA PAS04 OPCODE IS SYN F6A08460 OPCODE IS QPR F6A08470 05122 0600 00 0 04325 STZ CITSL ERASE IFN FOR THIS INSTRUCTION F6A08480 05123 -0500 00 0 06732 CAL TRAOP REPLACE QPR WITH TRA F6A08490 05124 0520 00 0 04327 ZET CITSA IS IT TERMINAL SUBROUTINE CALL F6A08500 05125 -0500 00 0 06733 CAL TSXOP YES, REPLACE QPR WITH TSX INSTEAD F6A08510 05126 0602 00 0 04326 SLW CITOP F6A08520 05127 0500 00 0 04333 CLA LOCTR BUMP PROGRAM COUNTER F6A08530 05130 0400 00 0 06656 ADD L(1) F6A08540 05131 0601 00 0 04333 STO LOCTR F6A08550 05132 0074 00 4 06443 TSX WRCIT,4 *WRITE CIT ON TAPE 4 F6A08560 05133 0074 00 4 06352 TSX RDCIT,4 *DELETE FOLLOWING CIT F6A08570 05134 0020 00 0 06431 TRA RDCRR *WAS END OF CIT FILE MISTAKENLY SENSED F6A08580 05135 0020 00 0 05071 TRA PAS01 NO F6A08590 OPCODE IS QXD OR SXQ F6A08600 05136 -0500 00 0 06727 PAS03 CAL LXDOP REPLACE QXD WITH LXD F6A08610 05137 0020 00 0 05141 TRA *+2 F6A08620 05140 -0500 00 0 06731 CAL SXDOP REPLACE SXQ WITH SXD F6A08630 05141 0602 00 0 04326 SLW CITOP F6A08640 05142 0634 00 4 05244 PAS04 SXA PAS13,4 SET SPECIAL OPCODE SWITCH F6A08650 05143 -0500 00 0 04327 CAL CITSA GET CIT SYMBOLIC ADDRESS F6A08660 05144 0074 00 4 03776 TSX XSORT0,4 *SORT OUT SYMBOLS F6A08670 BINARY CARD NO. 9F300032 05145 0020 00 0 05244 TRA PAS13 NO SYMBOL ASSIGNED F6A08680 05146 0020 00 0 05242 TRA PAS12 PROGRAM COUNTER, DEFINE SYN F6A08690 05147 0020 00 0 05172 TRA PAS07 EXTERNAL VARIABLE F6A08700 05150 0020 00 0 05244 TRA PAS13 INTERNAL FORMULA NUMBER, DO NOT DEFINE SYNF6A08710 05151 0020 00 0 05167 TRA PAS06 SUBSIDIARY INTERNAL FORMULA NUMBER F6A08720 05152 0020 00 0 05156 TRA PAS05 INTERNAL SYMBOL FOR ERASABLE F6A08730 05153 0074 00 4 04101 TSX XSRTIV,4 *IS INTERNAL SYMBOL FOR LOCATION OF LOAD F6A08740 OR SAVE XR INSTRUCTION IN TIV F6A08750 05154 0020 00 0 05244 TRA PAS13 NO F6A08760 05155 0020 00 0 05243 TRA PAS12+1 YES, DEFINE POSSIBLE SYN F6A08770 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 19 CONTROL ROUTINES FOR FIRST CIT PASS SYMBOLLIC ADDRESS IS INTERNAL SYMBOL FOR ERASABLE CELL F6A08780 05156 0074 00 4 04101 PAS05 TSX XSRTIV,4 *INTERNAL SYMBOL FOR ERASABLE, IS IT IN TIVF6A08790 05157 0074 00 4 06567 TSX ENTIV,4 *NO ENTER IT IN TIV F6A08800 05160 0621 00 0 04335 STA TIVCL YES, GET COUNT OF BLOCK RESERVED F6A08810 05161 0560 00 0 04335 LDQ TIVCL F6A08820 05162 0502 00 0 04330 CLS CITRA GET COUNT OF BLOCK REQUIRED F6A08830 05163 0771 00 0 00022 ARS 18 F6A08840 05164 0040 00 0 05166 TLQ *+2 IS BLOCK LONG ENOUGH F6A08850 05165 0621 60 0 04230 STA* ORGTIV NO, REPLACE WITH NEW BLOCK LENGTH F6A08860 05166 0020 00 0 05244 TRA PAS13 DO NOT DEFINE SYN F6A08870 SYMBOLLIC ADDRESS IS SUBSIDIARY INTERNAL FORMULA NUMBER F6A08880 05167 0074 00 4 04101 PAS06 TSX XSRTIV,4 *IS SUB IFN IN TIV F6A08890 05170 0074 00 4 06567 TSX ENTIV,4 *NO, ENTER IT IN TIV (TO BE DEFINED LATER) F6A08900 05171 0020 00 0 05244 TRA PAS13 DO NOT DEFINE SYN F6A08910 SYMBOLLIC ADDRESS IS EXTERNAL VARIABLE NAME F6A08920 05172 0074 00 4 04043 PAS07 TSX XSRDEV,4 *IS EXTERNAL NAME IN DEV F6A08930 BINARY CARD NO. 9F300033 05173 0020 00 0 05237 TRA PAS11 NO F6A08940 05174 0 00000 0 00000 PZE NOT USED F6A08950 05175 -0120 00 0 05244 TMI PAS13 YES, IS IT FORSUB NAME F6A08960 05176 0044 00 0 00000 PAI NO, PICK UP PREFIX F6A08970 05177 -0054 00 200000 LFT 200000 IS IT ARGUMENT NAME F6A08980 05200 0020 00 0 05224 TRA PAS09 YES F6A08990 05201 -0054 00 100000 LFT 100000 NO, IS IT TRANSFER VECTOR NAME F6A09000 05202 0020 00 0 05206 TRA PAS08 YES F6A09010 05203 -0500 00 0 06676 CAL DEAMK NO, RESET FLAG FOR SYMBOL TABLE F6A09020 05204 0320 60 0 04223 ANS* ORGDEA VARIABLE IS USED IN SOURCE PROGRAM F6A09030 05205 0020 00 0 05244 TRA PAS13 DO NOT DEFINE SYN F6A09040 CHECK FOR USE OF TRANSFER VECTOR NAME AS VARIABLE F6A09050 05206 -0500 00 0 04326 PAS08 CAL CITOP LOAD OPCODE F6A09060 05207 0322 00 0 06734 ERA OPCD1 IS IT PZE F6A09070 05210 0100 00 0 05244 TZE PAS13 YES F6A09072 05211 0322 00 0 06735 ERA OPCD1+1 NO, IS IT TSX F6A09074 05212 0100 00 0 05244 TZE PAS13 YES F6A09080 05213 -0500 00 0 04327 CAL CITSA NO, LOAD SYMBOLIC ADDRESS F6A09090 05214 -0534 00 2 06757 LXD TVTBL,2 LOAD LENGTH OF INTERNAL SUBROUTINE LIST F6A09092 05215 -0340 00 2 06757 LAS TVTBL,2 IS SUBROUTINE NAME ON LIST F6A09094 05216 0020 00 0 05220 TRA *+2 NO F6A09096 05217 0020 00 0 05244 TRA PAS13 YES F6A09100 05220 2 00001 2 05215 TIX *-3,2,1 IS LIST EXHAUSTED F6A09110 BINARY CARD NO. 9F300034 05221 0500 00 0 06662 CLA L(5) YES, GET VECTOR NAME USED AS VARIABLE FLAGF6A09120 05222 0074 00 4 06336 TSX SMDER,4 *ADD NAME TO MULTIPLY DEFINED LIST F6A09130 05223 0020 00 0 05251 TRA PAS14 F6A09140 SYMBOLIC ADDRESS IS AN ARGUMENT WHICH MUST BE INITIALIZEDF6A09150 05224 0767 00 0 00022 PAS09 ALS 18 ISOLATE ARGUMENT NUMBER F6A09160 05225 0400 00 0 04333 ADD LOCTR RELATIVE COUNT,,ARGUMENT NUMBER F6A09170 05226 0560 00 0 04330 LDQ CITRA GET TAG,,RA OF CIT FOR WORD 2 F6A09180 05227 -0534 00 2 04230 LXD ORGTIV,2 LOAD ARGUMENT LIST COUNT F6A09190 05230 1 00002 2 05231 TXI *+1,2,2 BUMP LIST COUNT TO NEXT ENTRY F6A09200 05231 0601 60 0 04227 STO* ORGTIV-1 F6A09210 05232 -0600 60 0 04230 STQ* ORGTIV F6A09220 05233 -3 00000 2 05235 PAS10 TXL *+2,2,** DID LIST OVERFLOW F6A09230 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 20 CONTROL ROUTINES FOR FIRST CIT PASS 05234 0074 00 4 03741 TSX XERR05,4 *YES F6A09240 05235 -0634 00 2 04230 SXD ORGTIV,2 NO, SAVE LIST COUNT F6A09250 05236 0020 00 0 05244 TRA PAS13 DO NOT DEFINE SYN F6A09260 SYMBOLLIC ADDRESS IS SINGLE CELLED ERASABLE VARIABLE F6A09270 05237 0074 00 4 04062 PAS11 TSX XSRTEV,4 *IS VARIABLE NAME IN TEV F6A09280 05240 0074 00 4 06624 TSX ENTEV,4 *NO, ENTER IT IN TEV F6A09290 05241 0020 00 0 05244 TRA PAS13 DO NOT DEFINE SYN F6A09300 SYMBOLLIC ADDRESS IS PROGRAM COUNTER ( * ) F6A09310 05242 0500 00 0 04333 PAS12 CLA LOCTR GET CURRENT CONTENTS OF LOCATION COUNTER F6A09320 05243 0621 00 0 04331 STA ADDRS TO DEFINE POSSIBLE SYN F6A09330 ENTRY POINT TO UNDEFINE POSSIBLE SYN F6A09340 05244 0774 00 4 00000 PAS13 AXT **,4 LOAD SPECIAL OPCODE SWITCH F6A09350 05245 3 00001 4 05251 TXH PAS14,4,1 IS OPCODE SYN F6A09360 05246 -0520 00 0 04331 NZT ADDRS YES, IS SYN DEFINED F6A09370 BINARY CARD NO. 9F300035 05247 0074 00 4 03735 TSX XERR00,4 *NO, SYN TO (CITSA) IS UNDEFINED F6A09380 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A09390 * SECTION 4 HAS WRITTEN THE CIT 'CITSL SYN CITSA', F6A09400 * EXPECTING THAT THE SYMBOL IN CITSA HAS ALREADY APPEARED F6A09410 * IN A CIT SYMBOLIC LOCATION FIELD. IF SECTION 6 FOUND IT, F6A09420 * IT WOULD HAVE PUT IT IN TIV. IT HAS NOT BEEN RECOGNIZED. F6A09430 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A09440 05250 0020 00 0 05264 TRA PAS15 YES F6A09450 OP CODE IS OCT OR BCD PSEUDOOPERATION F6A09460 05251 -0760 00 0 00144 PAS14 SLT 4 IS OPCODE BSS F6A09461 05252 0020 00 0 05260 TRA *+6 NO F6A09462 05253 -0520 00 0 04325 NZT CITSL YES, IS SYMBOLIC LOCATION BLANK F6A09464 05254 0020 00 0 05071 TRA PAS01 YES, DO NOT LIST NOR BUMP LOCATION COUNTERF6A09466 05255 0500 00 0 04333 CLA LOCTR SET LOCATION OF BSS TO RELATIVE COUNT F6A09467 05256 0601 00 0 04331 STO ADDRS F6A09468 05257 0020 00 0 05264 TRA PAS15 SINCE BSS HAS LOCATION SYMBOL, LIST IT. F6A09469 05260 0500 00 0 04333 CLA LOCTR BUMP RELATIVE COUNT F6A09470 05261 0601 00 0 04331 STO ADDRS SET LOCATION OF SYMBOL TO RELATIVE COUNT F6A09480 05262 0400 00 0 06656 ADD L(1) NO, BUMP RELATIVE COUNT F6A09500 05263 0601 00 0 04333 STO LOCTR F6A09510 05264 -0500 00 0 04325 PAS15 CAL CITSL GET CIT SYMBOLIC LOCATION F6A09520 05265 0074 00 4 03776 TSX XSORT0,4 *SORT OUT SYMBOLS F6A09530 05266 0020 00 0 05332 TRA PAS18 NO SYMBOL ASSIGNED F6A09540 05267 0600 00 0 04325 STZ CITSL LOCATION COUNTER ( * ) F6A09550 (SEC 3 FLAG TIFGO ENTRY FOR TRASTO F6A09560 TRANSFER ADDRESS, FOR SEC 4 CONSIDERATION)F6A09570 05270 0020 00 0 05332 TRA PAS18 EXTERNAL VARIABLE F6A09580 05271 0020 00 0 05306 TRA PAS17 INTERNAL FORMULA NUMBER F6A09590 05272 0020 00 0 05301 TRA PAS16 SUBSIDIARY INTERNAL FORMULA NUMBER F6A09600 05273 0074 00 4 03735 TSX XERR00,4 *INT SYMBOL FOR ERASABLE IN SYMBOLIC LOC F6A09610 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A09620 * THE INTERNAL SYMBOL STORED IN SYMBL FOR AN ERASABLE CELL,F6A09630 * WHICH IS DEFINED BY APPEARING ON THE STORAGE MAP, AND F6A09640 * SHOULD NEVER APPEAR IN A SYMBOLIC LOCATION FIELD OF A CITF6A09650 * HAS BEEN RECOGNIZED IN CITSL. F6A09660 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A09670 05274 0074 00 4 04101 TSX XSRTIV,4 *IS INTERNAL SYMBOL FOR DATA IN TIV F6A09680 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 21 CONTROL ROUTINES FOR FIRST CIT PASS BINARY CARD NO. 9F300036 05275 0020 00 0 05277 TRA *+2 NO F6A09690 05276 0074 00 4 03735 TSX XERR00,4 *INT SYMBOL FOR DATA TWICE IN SYMBOLIC LOC F6A09700 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A09710 * THE INTERNAL SYMBOL FOR A DATA CELL SHOULD APPEAR ONCE F6A09720 * AND ONCE ONLY IN THE SYMBOLIC LOCATION FIELD OF A CIT, F6A09730 * WHICH SECTION 6 HAS COMPILED FROM DATA IN ASSIGN 5), F6A09740 * FIXCON 2), HOLARG B), FLOCON 3), UNIVERSAL CONSTANTS 6), F6A09750 * AND FORMAT 8), IN THE ROUTINES FOLLOWING CLEAR. DURING F6A09760 * THIS PASS, WHEN THIS INTERNAL SYMBOL IS RECOGNIZED IN A F6A09770 * CIT SYMBOLIC LOCATION, SECTION 6 ENTERS IT INTO TIV. THE F6A09780 * INTERNAL SYMBOL STORED IN SYMBL HAS BEEN ENCOUNTERED IN AF6A09790 * CIT SYMBOLIC LOCATION FIELD (CITSL), AND HAS BEEN FOUND F6A09800 * TO BE IN ORGTIV,2 ALREADY. IT SHOULDNT BE THERE F6A09810 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A09820 05277 0074 00 4 06567 TSX ENTIV,4 *ENTER IT INTO TIV F6A09830 05300 0020 00 0 05332 TRA PAS18 F6A09840 05301 0074 00 4 04101 PAS16 TSX XSRTIV,4 *IS SUB INTERNAL FORMULA NUMBER IN TIV F6A09850 05302 0020 00 0 05332 TRA PAS18 NO F6A09860 05303 0500 00 0 04331 CLA ADDRS YES, DEFINE IT F6A09870 05304 0621 60 0 04230 STA* ORGTIV F6A09880 05305 0020 00 0 05332 TRA PAS18 F6A09890 05306 0500 00 0 04331 PAS17 CLA ADDRS GET CURRENT LOCATION FOR MAIN IFN F6A09900 05307 0400 00 0 06656 ADD L(1) DIFERENTIATE FROM NONEXECUTABLE IFNS F6A09910 05310 0767 00 0 00022 ALS 18 F6A09920 05311 -0534 00 4 04325 LXD CITSL,4 LOAD IFN F6A09930 05312 0622 60 0 04233 STD* ORGIFN ENTER CURRENT LOCATION IN IFN TABLE F6A09940 05313 -3 00000 4 05316 TXL *+3,4,** IS THIS INLINE CODING F6A09950 05314 -0634 00 4 05313 SXD *-1,4 YES, UPDATE TEST F6A09960 05315 0020 00 0 05332 TRA PAS18 F6A09970 05316 0754 00 4 00000 PXA ,4 NO, THIS IS FORSUB IFN F6A09980 05317 0601 00 0 04331 STO ADDRS SAVE IFN F6A09990 05320 -0534 00 2 04060 LXD XDEVTL,2 LOAD DEV TABLE COUNT F6A10000 05321 0500 60 0 04223 CLA* ORGDEA LOAD FLAGS F6A10010 05322 0120 00 0 05326 TPL *+4 IS THIS FORSUB NAME F6A10020 BINARY CARD NO. 9F300037 05323 -0320 00 0 06665 ANA ADMSK YES, MASK IN IFN F6A10030 05324 0402 00 0 04331 SUB ADDRS IS IT THIS IFN F6A10040 05325 0100 00 0 05330 TZE *+3 YES F6A10050 05326 2 00001 2 05321 TIX *-5,2,1 NO, IS DEV TABLE EXHAUSTED F6A10060 05327 0020 00 0 05332 TRA PAS18 YES, IFN IS WITHIN BODY OF ARITH STATE F6A10070 05330 -0500 60 0 04221 CAL* ORGDEV PICK UP FORSUB NAME F6A10080 05331 0602 00 0 04325 SLW CITSL REPLACE IFN WITH FORSUB NAME F6A10090 05332 0074 00 4 06443 PAS18 TSX WRCIT,4 *WRITE CIT ON TAPE 4 F6A10100 05333 0020 00 0 05071 TRA PAS01 F6A10110 F6A10120 END OF CIT FILE SENSED F6A10130 05334 0534 00 2 06336 LXA SMDER,2 HAVE THERE BEEN ANY ERRORS F6A10140 05335 -3 00000 2 05340 TXL *+3,2,0 NO F6A10150 05336 0774 00 1 07750 AXT ERLST,1 YES, LOAD ORIGIN OF ERROR LIST F6A10160 05337 0074 00 4 03742 TSX XERR06,4 *COUNT OF ERRORS IS IN XR2 F6A10170 05340 0074 00 4 73606 TSX (TAPE),4 *PREPARE FOR BINARY OUTPUT F6A10180 05341 0 20000 0 06142 PZE REWND,,(SKBP) F6A10190 05342 0 00003 0 06105 PZE 3LABL,,CITTAP F6A10200 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 22 CONTROL ROUTINES FOR FIRST CIT PASS F6A10210 PREPARE PAGE HEADING F6A10220 05343 0500 60 0 73660 HEDR0 CLA* ORGFLG IS THIS SINGLE COMPILE F6A10230 05344 -0120 00 0 05415 TMI CCRD1 NO F6A10240 05345 0760 00 0 00004 ENK YES, PICK UP DATE IN CONSOLE KEYS F6A10250 05346 -0600 00 0 04332 STQ ERASE F6A10260 05347 -0500 00 0 04332 CAL ERASE F6A10270 05350 0100 00 0 05366 TZE CCARD HAS A DATE BEEN SPECIFIED F6A10280 BINARY CARD NO. 9F300038 05351 -0320 00 0 06704 ANA BLNKS YES, MASK IN ZONE BITS F6A10290 05352 -0100 00 0 05366 TNZ CCARD IS IT AN APPARENTLY PROPER DATE F6A10300 05353 -0763 00 0 00014 LGL 12 YES, LEFT ADJUST BCD MONTH F6A10310 05354 0767 00 0 00006 ALS 6 F6A10320 05355 -0501 00 0 06701 ORA SLASH FOLLOWED BY SLASH F6A10330 05356 -0763 00 0 00014 LGL 12 RIGHT ADJUST BCD DAY F6A10340 05357 0767 00 0 00006 ALS 6 F6A10350 05360 -0501 00 0 06701 ORA SLASH FOLLOWED BY SLASH F6A10360 05361 0602 00 0 04276 SLW XPGHED+14 IN WORD 15 OF PAGE HEADING F6A10370 05362 -0763 00 0 00014 LGL 12 LEFT ADJUST BCD YEAR F6A10380 05363 0560 00 0 06704 LDQ BLNKS FOLLOWED BY BLANKS F6A10390 05364 -0763 00 0 00030 LGL 24 F6A10400 05365 0602 00 0 04277 SLW XPGHED+15 IN WORD 16 OF PAGE HEADING F6A10410 05366 -0500 00 0 03766 CCARD CAL XSKDP1 RESET SKIP TO DECIMAL $F6A10411 05367 0622 00 0 05421 STD SKDP2 F6A10412 05370 0074 00 4 73606 TSX (TAPE),4 *READ FIRST SOURCE CARD $F6A10420 05371 0 40012 0 05374 PZE *+3,,(RDNC) F6A10430 05372 0 00002 0 00000 PZE ,,SLSTAP F6A10440 05373 0 00000 0 05407 PZE HEDRR F6A10450 05374 3 00014 0 04261 IORT XPGHED+1,,12 (NOP) F6A10460 05375 -0754 00 0 00000 PXD ,0 F6A10470 05376 0560 00 0 04261 LDQ XPGHED+1 GET FIRST WORD F6A10480 BINARY CARD NO. 9F300039 05377 -0600 00 0 04302 STQ XLABEL SAVE COMMENTS CHARACTER F6A10490 05400 -0763 00 0 00006 LGL 6 FIRST CHARACTER F6A10500 05401 0340 00 0 06677 CAS L(C) IS IT COMMENTS CARD F6A10510 05402 0020 00 0 05404 TRA *+2 NO F6A10520 05403 -0500 00 0 06700 CAL BLANK YES, DELETE C FROM HEADING F6A10530 05404 -0765 00 0 00006 LGR 6 F6A10540 05405 -0600 00 0 04261 STQ XPGHED+1 F6A10550 05406 0020 00 0 05415 TRA CCRD1 F6A10560 05407 0774 00 4 00014 HEDRR AXT 12,4 DELETE HEADING F6A10570 05410 -0500 00 0 06704 CAL BLNKS F6A10580 05411 0602 00 4 04275 SLW XPGHED+13,4 F6A10590 05412 2 00001 4 05411 TIX *-1,4,1 F6A10600 05413 0074 00 4 73611 TSX (PRNT),4 *PRINT HEADING DELETED MESSAGE F6A10610 05414 0 00007 0 06760 PZE HEDRM,,7 F6A10620 05415 0774 00 2 06142 CCRD1 AXT REWND,2 PREPARE TO PRINT FIRST FILE F6A10630 05416 0520 00 0 04203 ZET XSWCH3 IS ONLINE PRINT REQUESTED F6A10640 05417 0634 00 2 05421 SXA *+2,2 YES, RESET SKIP INSTRUCTION TO REWIND F6A10650 05420 0074 00 4 73606 TSX (TAPE),4 *SPACE TO PROPER END OF SOURCE PROGRAM F6A10660 05421 0 20000 0 06672 SKDP2 PZE D(1),,(SKBP) (RESET TO (SKDP) IF SINGLE COMPILE) F6A10670 05422 0 00002 0 00000 PZE ,,SLSTAP F6A10680 F6A10690 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 23 CONTROL ROUTINES FOR FIRST CIT PASS COMPUTE ADDENDS REQUIRED FOR INITIALIZATION F6A10700 05423 -0534 00 2 04230 LXD ORGTIV,2 LOAD COUNT OF ARGUMENT LIST F6A10710 05424 -3 00000 2 05520 TXL ARG06+1,2,0 IS ARGUMENT LIST EMPTY F6A10720 BINARY CARD NO. 9F300040 05425 0500 00 0 06515 CLA WRCBF-1 NO, INITIALIZE ORIGIN OF 9) TABLE F6A10730 05426 0621 00 0 04312 STA RG9TB IN CIT INPUT BUFFER F6A10740 05427 -0534 00 4 04234 LXD ORGSUB,4 LOAD COUNT OF ARGUMENTS F6A10750 05430 -0634 00 4 05614 SXD INITT,4 INITIALIZE END OF COMPILE LOOP F6A10760 05431 -0634 00 4 04340 ARG01 SXD ARGNO,4 SET CURRENT ARGUMENT NUMBER F6A10770 05432 -0534 00 2 04230 LXD ORGTIV,2 LOAD ARGUMENT LIST COUNT F6A10780 05433 0600 00 0 04331 STZ ADDRS RESET RUNNING ADDEND F6A10790 05434 0500 60 0 04227 ARG02 CLA* ORGTIV-1 GET NEXT RELATIVE COUNT,,ARGUMENT NUMBER F6A10800 05435 -0320 00 0 06673 ANA DECMK ISOLATE ARGUMENT NUMBER F6A10810 05436 0402 00 0 04340 SUB ARGNO IS IT THIS ARGUMENT F6A10820 05437 -0100 00 0 05465 TNZ ARG04+2 NO F6A10830 05440 0500 60 0 04230 CLA* ORGTIV YES, GET ,,RA OF CIT TO BE INITIALIZED F6A10840 05441 0771 00 0 00022 ARS 18 F6A10850 05442 0601 00 0 04332 STO ERASE F6A10860 05443 0402 00 0 04331 SUB ADDRS REDUCE BY INITIALIZATION TO DATE F6A10870 05444 0560 00 0 04332 LDQ ERASE UPDATE RUNNING ADDEND (CURRENT RA) F6A10880 05445 -0600 00 0 04331 STQ ADDRS F6A10890 05446 0100 00 0 05464 TZE ARG04+1 IS THERE AN ADDEND F6A10900 05447 -0534 00 1 04312 LXD RG9TB,1 YES, PICK UP COUNT OF 9)TABLE F6A10910 05450 -3 00000 1 05456 TXL ARG03,1,0 IS 9) TABLE EMPTY F6A10920 05451 0340 60 0 04312 CAS* RG9TB NO, IS THIS ADDEND IN 9)TABLE F6A10930 05452 0020 00 0 05454 TRA *+2 NO F6A10940 BINARY CARD NO. 9F300041 05453 0020 00 0 05463 TRA ARG04 YES F6A10950 05454 2 00001 1 05451 TIX *-3,1,1 IS 9) TABLE EXHAUSTED F6A10960 05455 -0534 00 1 04312 LXD RG9TB,1 YES, BUMP 9) TABLE COUNT F6A10970 05456 1 00001 1 05457 ARG03 TXI *+1,1,1 F6A10980 05457 -3 00620 1 05461 TXL *+2,1,2*CITSIZ DID 9)TABLE OVERFLOW F6A10990 05460 0074 00 4 03743 TSX XERR07,4 *YES F6A11000 05461 -0634 00 1 04312 SXD RG9TB,1 NO, SAVE NEW 9) TABLE COUNT F6A11010 05462 0601 60 0 04312 STO* RG9TB INSERT CONSTANT IN 9) TABLE F6A11020 05463 0754 00 1 00000 ARG04 PXA ,1 INSERT POSITION+1 OF CONSTANT IN 9) TABLE F6A11030 05464 0601 60 0 04230 STO* ORGTIV AS NEW WORD 2 IN ARGUMENT LIST F6A11040 05465 2 00002 2 05434 TIX ARG02,2,2 IS ARGUMENT LIST EXHAUSTED F6A11050 05466 2 00001 4 05431 TIX ARG01,4,1 YES, ARE ARGUMENTS EXHAUSTED F6A11060 05467 -0534 00 1 04312 LXD RG9TB,1 GET COUNT OF 9) TABLE F6A11070 05470 -3 00000 1 05520 TXL ARG06+1,1,0 IS 9) TABLE EMPTY F6A11080 05471 -0634 00 1 05507 SXD ARG05,1 NO, SET END OF 9) TABLE COMPILE LOOP TEST F6A11090 05472 0600 00 0 04330 STZ CITRA RESET RA,,TAG F6A11100 05473 -0500 00 0 06721 CAL OCTOP SET CIT OPCODE TO OCT F6A11110 05474 0602 00 0 04326 SLW CITOP F6A11120 05475 0500 00 0 04333 CLA LOCTR SET LOCATION OF SYMBOL TO CURRENT CONTENTSF6A11130 05476 0601 00 0 04331 STO ADDRS OF PROGRAM COUNTER F6A11140 05477 -0500 00 0 06157 CAL 9)SYM SET FIRST CIT SYMBOLIC LOCATION TO 9) F6A11150 05500 0602 00 0 04325 SLW CITSL F6A11160 BINARY CARD NO. 9F300042 05501 0767 00 0 00002 ALS 2 CONVERT TO TIV FORM F6A11170 05502 0074 00 4 04101 TSX XSRTIV,4 *IS 9) SYMBOL IN TIV F6A11180 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 24 CONTROL ROUTINES FOR FIRST CIT PASS 05503 0020 00 0 05505 TRA *+2 NO F6A11190 05504 0074 00 4 03735 TSX XERR00,4 *YES, INT SYM FOR DATA 9) TWICE IN SYM LOC F6A11200 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A11210 * THE INTERNAL SYMBOL FOR ARGUMENT ADDEND CONSTANTS 9), F6A11220 * WHICH HAS JUST BEEN COMPILED, HAS BEEN FOUND AT ORGTIV,2.F6A11230 * IT SHOULD NOT HAVE APPEARED IN A SYMBOLIC LOCATION FIELD F6A11240 * OF ANY CIT, AND SHOULD NOT HAVE BEEN ENTERED INTO TIV. F6A11250 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A11260 05505 0074 00 4 06567 TSX ENTIV,4 *ENTER IT F6A11270 05506 0774 00 1 00001 AXT 1,1 START AT TOP OF LIST F6A11280 05507 3 00000 1 05520 ARG05 TXH ARG06+1,1,** IS 9) TABLE EXHAUSTED F6A11290 05510 -0500 60 0 04312 CAL* RG9TB NO, SET CIT SYMBOLIC ADDRESS F6A11300 05511 0602 00 0 04327 SLW CITSA TO NEXT CONSTANT IN 9) TABLE F6A11310 05512 0074 00 4 06443 TSX WRCIT,4 *WRITE CIT F6A11320 05513 0600 00 0 04325 STZ CITSL RESET SUBSEQUENT CIT SYMBOLIC LOCATION F6A11330 05514 0500 00 0 04333 CLA LOCTR BUMP PROGRAM COUNTER F6A11340 05515 0400 00 0 06656 ADD L(1) F6A11350 05516 0601 00 0 04333 STO LOCTR F6A11360 05517 1 00001 1 05507 ARG06 TXI ARG05,1,1 BUMP 9) TABLE COUNT TO NEXT ENTRY F6A11370 F6A11380 WRITE OUT AND CHECK FINAL PARTIAL CIT BUFFER F6A11390 05520 0535 00 4 06444 LAC WRCIT+1,4 COMPUTE PARTIAL WORD COUNT F6A11400 05521 -0634 00 4 05523 SXD *+2,4 F6A11410 05522 0774 00 4 00314 AXT CITSIZ+4,4 F6A11420 05523 1 00000 4 05524 TXI *+1,4,** F6A11430 05524 -0634 00 4 06237 SXD IOCIT,4 INITIALIZE I/O COMMAND WORD COUNT F6A11440 05525 0534 00 4 06474 LXA WRCI2+1,4 COMPUTE LOAD ADDRESS F6A11450 05526 1 77470 4 05527 TXI *+1,4,-CITSIZ F6A11460 BINARY CARD NO. 9F300043 05527 0634 00 4 06237 SXA IOCIT,4 INITIALIZE I/O COMMAND LOAD POINT F6A11470 05530 0074 00 4 73606 TSX (TAPE),4 *WRITE FINAL PARTIAL BUFFER CONTENTS F6A11480 05531 0 40001 0 06237 PZE IOCIT,,(WBNP) F6A11490 05532 0 00004 0 06106 PZE CLABL,,COTTAP F6A11500 05533 0074 00 4 73606 TSX (TAPE),4 *MARK END OF CIT FILE F6A11510 05534 0 40005 0 00000 PZE ,,(WEFP) F6A11520 05535 0 00004 0 06106 PZE CLABL,,COTTAP F6A11530 05536 0074 00 4 73606 TSX (TAPE),4 *PREPARE FOR SECOND PASS F6A11540 05537 0 20000 0 06142 PZE REWND,,(SKBP) F6A11550 05540 0 00004 0 06106 PZE CLABL,,COTTAP F6A11560 05541 0500 00 0 04333 CLA LOCTR SAVE CURRENT CONTENTS OF LOCATION COUNTER F6A11570 05542 0601 00 0 04253 STO XPGBRK (NUMBER OF INSTRUCTIONS IN MAIN PROGRAM) F6A11580 05543 -0534 00 3 04247 LXD XPCD8L,3 LOAD COUNT OF TRANSFER VECTOR F6A11590 05544 0634 00 2 04252 SXA XPCD7R,2 SET TENTATIVE ENTRY POINT IN PC 7R ADDRESSF6A11600 F6A11610 TRANSFER VECTOR, PROLOG AND INITIALIZATION RETAINED IN F6A11620 TABULAR FORM, AND DO NOT APPEAR ON THE CIT TAPE 4 F6A11630 05545 0634 00 2 04333 SXA LOCTR,2 INITIALIZE PROGRAM COUNTER F6A11640 TO INSTRUCTION FOLLOWING TRANSFER VECTOR F6A11650 05546 -0535 00 1 04077 LDC XTEVTL,1 LOAD TEV TABLE LENGTH F6A11660 05547 0754 00 1 00000 PXA ,1 COMPUTE ORIGIN FOR ARGUMENT LIST F6A11670 05550 0401 00 0 04225 ADM ORGTEV F6A11680 05551 0621 00 0 04234 STA ORGSUB F6A11690 05552 -0520 00 0 04251 NZT XPCD7L IS THIS A SUBPROGRAM F6A11700 05553 0020 00 0 05622 TRA INIT5 NO F6A11710 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 25 CONTROL ROUTINES FOR FIRST CIT PASS 05554 1 00004 2 05555 TXI *+1,2,4 YES, UPDATE ENTRY POINT PAST F6A11720 BINARY CARD NO. 9F300044 05555 0634 00 2 04252 SXA XPCD7R,2 NAME AND THREE XR STORAGE CELLS F6A11730 05556 1 00003 2 05557 TXI *+1,2,3 UPDATE PROGRAM COUNTER PAST F6A11740 05557 0634 00 2 04333 SXA LOCTR,2 THREE SAVE XR INSTRUCTIONS F6A11750 05560 -0534 00 4 04230 LXD ORGTIV,4 ARE THERE ANY ARGUMENTS F6A11760 05561 -3 00000 4 05616 TXL INIT3+5,4,0 NO F6A11770 05562 -0634 00 1 05564 SXD *+2,1 YES, INITIALIZE ARG TABLE OVERFLOW TEST F6A11780 05563 -0534 00 4 06630 LXD ENTEV+4,4 F6A11790 05564 1 00000 4 05565 TXI *+1,4,** F6A11800 05565 -0634 00 4 06530 SXD ENART,4 F6A11810 05566 -0534 00 2 04230 INIT1 LXD ORGTIV,2 LOAD ARGUMENT LIST COUNT F6A11820 05567 0074 00 4 06517 TSX GETRG,4 *GET NEXT ARGUMENT LIST ENTRY F6A11830 05570 0020 00 0 05611 TRA INIT3 LIST EXHAUSTED F6A11840 THIS ARGUMENT IS USED IN SOURCE PROGRAM F6A11850 05571 0771 00 0 00022 ARS 18 CONSTRUCT INITIALIZATION TABLE ENTRY F6A11860 05572 0361 00 0 06726 ACL CLAOP CLA L F6A11870 05573 0074 00 4 06526 TSX ENARG,4 *ENTER INTO INITIALIZATION TABLE F6A11880 05574 0500 60 0 04230 INIT2 CLA* ORGTIV GET POSITION+1 OF ADDEND IN 9) TABLE F6A11890 05575 0100 00 0 05601 TZE *+4 IS THERE AN ADDEND F6A11900 05576 0402 00 0 06656 SUB L(1) YES, COMPUTE POSITION IN 9) TABLE F6A11910 05577 0361 00 0 06725 ACL ADDOP CONSTRUCT TABLE ENTRY ADD M F6A11920 05600 0074 00 4 06526 TSX ENARG,4 *ENTER INTO INITIALIZATION TABLE F6A11930 05601 0500 60 0 04227 CLA* ORGTIV-1 GET LOCATION,,ARGUMENT NUMBER F6A11940 05602 -0320 00 0 06665 ANA ADMSK CONSTRUCT INITIALIZATION TABLE ENTRY F6A11950 BINARY CARD NO. 9F300045 05603 0361 00 0 06730 ACL STAOP STA N F6A11960 05604 0074 00 4 06526 TSX ENARG,4 *ENTER INTO INITIALIZATION TABLE F6A11970 05605 -2 00002 2 05611 TNX INIT3,2,2 IS ARGUMENT LIST EXHAUSTED F6A11980 05606 0074 00 4 06517 TSX GETRG,4 *NO, GET NEXT ARGUMENT LIST ENTRY F6A11990 05607 0020 00 0 05611 TRA INIT3 INITIALIZATION LIST EXHAUSTED F6A12000 05610 0020 00 0 05574 TRA INIT2 NEXT ENTRY IS FOR THIS ARGUMENT NUMBER F6A12010 INITIALIZATION LIST EXHAUSTED. PREPARE TO SCAN FOR F6A12020 NEXT ARGUMENT NUMBER F6A12030 05611 -0534 00 4 04340 INIT3 LXD ARGNO,4 BUMP TO NEXT ARGUMENT NUMBER F6A12040 05612 1 00001 4 05613 TXI *+1,4,1 F6A12050 05613 -0634 00 4 04340 SXD ARGNO,4 F6A12060 05614 -3 00000 4 05566 INITT TXL INIT1,4,** IS ARGUMENT NUMBER EXHAUSTED F6A12070 05615 0534 00 4 06526 LXA ENARG,4 YES, COMPUTE TOTAL LENGTH OF F6A12080 05616 -0634 00 4 04234 SXD ORGSUB,4 TRANSFER VECTOR, PROLOG, INITIALIZATION F6A12090 05617 -0634 00 4 05621 INIT4 SXD *+2,4 F6A12100 05620 0534 00 2 04333 LXA LOCTR,2 BUMP PROGRAM COUNTER BY LENGTH OF F6A12110 05621 1 00000 2 05622 TXI *+1,2,** INITIALIZATION F6A12120 F6A12130 RELOCATE INTERNAL STATEMENT NUMBER, SUB INTERNAL F6A12140 STATEMENT NUMBER, UP BY LENGTH OF VECTOR, PROLOG, INIT F6A12150 05622 0754 00 2 00000 INIT5 PXA ,2 COMPUTE INCREMENT F6A12160 05623 0621 00 0 04331 STA ADDRS FOR TIV LOCATIONS IN LOWER MEMORY F6A12170 05624 0402 00 0 06656 SUB L(1) CORRECT FOR NONEXECUTABLE STATEMNTS F6A12180 05625 0767 00 0 00022 ALS 18 F6A12190 05626 0601 00 0 04332 STO ERASE FOR IFN LOCATIONS F6A12200 05627 0754 00 2 00000 PXA ,2 UPDATE LOWER PROGRAM COUNTER F6A12210 05630 0400 00 0 04253 ADD XPGBRK F6A12220 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 26 CONTROL ROUTINES FOR FIRST CIT PASS BINARY CARD NO. 9F300046 05631 0601 00 0 04333 STO LOCTR FOR TIV ERASABLE STORAGE ASSIGNMENTS F6A12230 05632 -0534 00 4 04233 LXD ORGIFN,4 LOAD COUNT OF IFN TABLE F6A12240 05633 1 77777 4 05634 TXI *+1,4,-1 FORGET IFNMAX+1 F6A12250 05634 -0500 60 0 04233 CAL* ORGIFN PICK UP LOCATION FOR IFN F6A12260 05635 -0320 00 0 06673 ANA DECMK MASK IN LOCATION FOR IFN F6A12270 05636 0100 00 0 05641 TZE *+3 IS IFN FOR NONEXECUTABLE STATEMENT F6A12280 05637 0400 00 0 04332 ADD ERASE NO, INCREMENT BY LENGTH OF VECTOR, PROLOG F6A12290 05640 0622 60 0 04233 STD* ORGIFN AND INITIALIZATION F6A12300 05641 2 00001 4 05634 TIX *-5,4,1 IS IFN TABLE EXHAUSTED F6A12310 05642 0600 00 0 04332 STZ ERASE YES F6A12320 05643 -0500 00 0 04230 CAL ORGTIV GET PRESENT ORIGIN OF TIV TABLE F6A12330 05644 0621 00 0 05663 STA REL01 INITIALIZE COPY LOOP F6A12340 05645 -0500 00 0 04234 CAL ORGSUB GET ORIGIN OF ARGUMENT TABLE F6A12350 05646 -0534 00 2 04234 LXD ORGSUB,2 GET LENGTH OF ARGUMENT TABLE F6A12360 05647 0634 00 2 04332 SXA ERASE,2 F6A12370 05650 0402 00 0 04332 SUB ERASE RESERVE LAST UPPER TABLE STORAGE F6A12380 05651 -0534 00 2 04120 LXD XTIVTL,2 LOAD COUNT OF TIV TABLE F6A12390 05652 0634 00 2 04332 SXA ERASE,2 F6A12400 05653 0400 00 0 04332 ADD ERASE RESERVE TIV STORAGE F6A12410 05654 0621 00 0 05727 STA REL05 F6A12420 05655 0402 00 0 06656 SUB L(1) F6A12430 05656 0621 00 0 04230 STA ORGTIV F6A12440 BINARY CARD NO. 9F300047 05657 1 00001 2 05660 TXI *+1,2,1 BUMP TO LAST WORD IN TIV F6A12450 05660 0500 00 0 06666 CLA T(1) ENTER A1 IN TIV F6A12460 05661 0400 00 0 04331 ADD ADDRS WHICH MAY BE SLINT F6A12470 05662 1 00001 2 05727 TXI REL05,2,1 F6A12480 05663 -0500 00 2 00000 REL01 CAL **,2 GET NEXT ENTRY IN TIV F6A12490 05664 0621 00 0 04332 STA ERASE SAVE BLOCK LENGTH F6A12500 05665 0771 00 0 00016 ARS 14 SHIFT OUT ADDRESS F6A12510 05666 -0734 00 1 00000 PDX ,1 GET FIRST CHARACTER F6A12520 05667 0734 00 4 00000 PAX ,4 GET INCREMENT F6A12530 05670 -0500 60 0 05663 CAL* REL01 GET SYMBOL AGAIN F6A12540 05671 0020 00 1 05711 TRA REL02,1 SORT OUT SYMBOLS F6A12550 05672 0074 00 4 03735 TSX XERR00,4 *PROGRAM COUNTER (*) IN TIV TABLE F6A12560 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A12570 * THE INTERNAL SYMBOL FOR PROGRAM COUNTER (17)8 HAS BEEN F6A12580 * RECOGNIZED IN THE FIRST FOUR BITS AT ORGTIV,2. SECTION 6 F6A12590 * SHOULD NOT HAVE PUT IT THERE. F6A12600 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A12610 05673 0020 00 0 05713 TRA REL02+2 E)N F6A12620 05674 0020 00 0 05713 TRA REL02+2 D)N F6A12630 05675 0020 00 0 05720 TRA REL04 C)N F6A12640 05676 0020 00 0 05711 TRA REL02 B) F6A12650 05677 0020 00 0 05711 TRA REL02 A)N F6A12660 05700 0020 00 0 05711 TRA REL02 9) F6A12670 05701 0020 00 0 05711 TRA REL02 8)N F6A12680 05702 0020 00 0 05720 TRA REL04 7)N+M F6A12690 05703 0020 00 0 05711 TRA REL02 6) F6A12700 05704 0020 00 0 05711 TRA REL02 5) F6A12710 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 27 CONTROL ROUTINES FOR FIRST CIT PASS BINARY CARD NO. 9F300048 05705 0020 00 0 05715 TRA REL03 4)N+M F6A12720 05706 0020 00 0 05711 TRA REL02 3) F6A12730 05707 0020 00 0 05711 TRA REL02 2) F6A12740 05710 0020 00 0 05720 TRA REL04 1)N+M F6A12750 05711 0621 00 0 04335 REL02 STA TIVCL NAM, SAVE LOCATION OF SYMBOL IN CIT FILE F6A12760 05712 0520 00 0 04335 ZET TIVCL IS SYMBOL UNDEFINED F6A12770 05713 0400 00 0 04331 ADD ADDRS NO, RELOCATE SYMBOL IN CIT FILE LENGTH OF F6A12780 05714 1 00001 2 05727 TXI REL05,2,1 TRANSFER VECTOR PROLOG AND INITIALIZATION F6A12790 05715 3 00000 4 05720 REL03 TXH REL04,4,0 IS SYMBOL 4)N F6A12800 05716 -0501 00 0 06665 ORA ADMSK NO, IT IS 4). SET ADDRESS TO TOP OF F6A12810 05717 1 00001 2 05727 TXI REL05,2,1 MEMORY F6A12820 05720 0602 60 0 04230 REL04 SLW* ORGTIV PACK IT AGAINST UPPER TABLES F6A12830 05721 0500 00 0 04333 CLA LOCTR SET LOCATION OF ERASABLE TO CURRENT F6A12840 05722 0621 60 0 04230 STA* ORGTIV CONTENTS OF PROGRAM COUNTER F6A12850 05723 0400 00 0 04332 ADD ERASE BUMP PROGRAM COUNTER BY LENGTH OF F6A12860 05724 0400 00 0 06656 ADD L(1) BLOCK RESERVED F6A12870 05725 0601 00 0 04333 STO LOCTR F6A12880 05726 1 00001 2 05730 TXI REL05+1,2,1 F6A12890 05727 0602 00 2 00000 REL05 SLW **,2 RESET INCREMENTED LOCATION F6A12900 05730 3 00000 2 05663 TXH REL01,2,0 IS TIV EXHAUSTED F6A12910 05731 0500 00 0 04333 CLA LOCTR YES, SET ORIGIN OF TEV TO F6A12920 05732 0402 00 0 06656 SUB L(1) TO LAST ASSIGNMENT MADE TO TIV F6A12930 BINARY CARD NO. 9F300049 05733 0601 00 0 04254 STO XTEVBS F6A12940 05734 -0534 00 1 04077 LXD XTEVTL,1 BUMP PROGRAM COUNTER BY LENGTH OF TEV F6A12950 05735 0754 00 1 00000 PXA ,1 F6A12960 05736 0400 00 0 04333 ADD LOCTR F6A12970 05737 0601 00 0 04333 STO LOCTR F6A12980 F6A12990 RELOCATE NON-COMMON STORAGE DOWN BELOW PROGRAM BREAK F6A13000 05740 0500 00 0 04334 CLA UPCTR GET CELL BELOW LAST ASSIGNMENT MADE F6A13010 IN UPPER MEMORY F6A13020 05741 0400 00 0 06656 ADD L(1) F6A13030 05742 0601 00 0 04332 STO ERASE THIS IS LOCATION OF LOWEST STORAGE CELL F6A13040 05743 0402 00 0 04333 SUB LOCTR GET CELL ABOVE LAST CELL ON STORAGE MAP F6A13050 05744 0601 00 0 04331 STO ADDRS THIS IS LENGTH OF RELOCATION F6A13060 05745 0120 00 0 05747 TPL *+2 DID ASSIGNMENT WRAP AROUND MEMORY F6A13070 05746 0074 00 4 03740 TSX XERR04,4 *YES F6A13080 05747 0500 00 0 04250 CLA XPCD8R NO, GET COMMON BREAK F6A13090 05750 0402 00 0 04334 SUB UPCTR GET NUMBER OF VARIABLES TO BE RELOCATED F6A13100 05751 0400 00 0 04333 ADD LOCTR ADD TO FIRST CELL INTO WHICH RELOCATED F6A13110 05752 0621 00 0 04247 STA XPCD8L INSERT PROGRAM BREAK IN PC 8L ADDRESS F6A13120 05753 0402 00 0 06656 SUB L(1) F6A13130 05754 0601 00 0 04253 STO XPGBRK THIS IS TOP OF LOWER STORAGE F6A13140 05755 -0534 00 2 04060 LXD XDEVTL,2 GET COUNT OF DEV TABLE F6A13150 05756 0441 60 0 04223 RLDEA LDI* ORGDEA GET NEXT ADDRESS IN DEA F6A13160 05757 0054 00 400000 RFT 400000 IS IT FORSUB, CLUSUB, ARGUMENT NAME OR $ F6A13170 05760 0020 00 0 05770 TRA RLDE1 YES F6A13180 BINARY CARD NO. 9F300050 05761 -0046 00 0 00000 PIA NO F6A13190 05762 -0320 00 0 06665 ANA ADMSK ISOLATE ADDRESS F6A13200 05763 0340 00 0 04250 CAS XPCD8R IS IT BELOW COMMON F6A13210 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 28 CONTROL ROUTINES FOR FIRST CIT PASS 05764 0020 00 0 05770 TRA RLDE1 NO F6A13220 05765 0761 00 0 00000 NOP YES F6A13230 05766 0402 00 0 04331 SUB ADDRS YES, RELOCATE DOWNWARDS F6A13240 05767 0621 60 0 04223 STA* ORGDEA F6A13250 05770 2 00001 2 05756 RLDE1 TIX RLDEA,2,1 IS DEV TABLE EXHAUSTED F6A13260 05771 0074 00 4 73600 TSX (LOAD),4 *CALL RECORD 31 F6A13270 05772 0 00000 0 00000 PZE NOT USED F6A13280 F6A13290 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 29 SUBROUTINES RELEVANT TO FIRST CIT PASS READ TAPE TABLE INTO LOWER MEMORY F6A13310 PARAMETER IS PRE ADDRS,TAG,DECREM F6A13320 WHERE PREFIX IS 4 IF NO TABLE IDENTIFICATION NUMBER F6A13330 2 IF NO WORD COUNT F6A13340 1 IF WORD COUNT IS IN ADDRESS F6A13350 0 IF WORD COUNT IS IN DECREMENT F6A13360 DECREM IS TABLE IDENTIFICATION NUMBER (IF ANY) F6A13370 TAG IS NUMBER OF WORDS PRECEDING TABLE F6A13380 ADDRSS IS LOAD ADDRESS F6A13390 05773 0634 00 4 06057 RDTAB SXA RDTBX,4 SAVE CALLING LINKAGE F6A13400 05774 0774 00 2 00015 AXT TLABL-ASSLB,2 LOAD CURRENT TABLE INDEX F6A13410 05775 -0500 00 2 06105 CAL TAPAR,2 GET LOAD ADDRESS,,TABLE ID NUMBER F6A13420 05776 0621 00 0 04332 STA ERASE INITIALIZE OVERFLOW TEST F6A13430 05777 0621 00 0 06067 STA IOTAB+1 INITIALIZE TABLE LOAD ADDRESS F6A13440 06000 -0320 00 0 06671 ANA T(7) MASK IN PRETABLE WORD COUNT F6A13450 06001 0767 00 0 00003 ALS 3 F6A13460 06002 0622 00 0 06066 STD IOTAB INITIALIZE PRETABLE WORD COUNT F6A13470 06003 -0737 00 4 00000 PDC ,4 COMPUTE PRETABLE LOAD ADDRESS F6A13480 06004 1 04340 4 06005 TXI *+1,4,IDENT+2 F6A13490 06005 0634 00 4 06066 SXA IOTAB,4 INITIALIZE PRETABLE LOAD ADDRESS F6A13500 06006 0074 00 4 73606 TSX (TAPE),4 *READ IN TAPE TABLE F6A13510 BINARY CARD NO. 9F300051 06007 0 40000 0 06066 PZE IOTAB,,(RBNP) F6A13520 06010 0 00002 2 06125 PZE TLABL,2,TABTAP F6A13530 06011 3 00001 2 06014 TXH *+3,2,1 IS THIS FINAL REPOSITION F6A13540 06012 0621 00 0 06016 STA *+4 YES, DELETE LABEL F6A13550 06013 0625 00 0 06016 STT *+3 F6A13560 06014 0074 00 4 73606 TSX (TAPE),4 *SKIP TO NEXT TABLE F6A13570 06015 0 20000 2 06143 PZE SKLST,2,(SKBP) F6A13580 06016 0 00002 2 06126 PZE TLABL+1,2,TABTAP F6A13590 06017 0500 00 2 06105 CLA TAPAR,2 GET TABLE NUMBER F6A13600 06020 -0120 00 0 06027 TMI RDTB1 SHOULD TABLE NUMBER BE CHECKED F6A13610 06021 -0734 00 1 00000 PDX ,1 YES, PUT TABLE NUMBER IN ADDRESS F6A13620 06022 0754 00 1 00000 PXA ,1 F6A13630 06023 0402 00 0 04336 SUB IDENT IS TABLE NUMBER CORRECT F6A13640 06024 0100 00 0 06027 TZE RDTB1 YES F6A13650 06025 0774 00 1 77777 AXT -1,1 NO, LOAD TABLE LABEL FLAG F6A13660 06026 0020 00 0 06061 TRA RDTRR F6A13670 06027 0535 00 1 06067 RDTB1 LAC IOTAB+1,1 COMPUTE LENGTH OF TABLE F6A13680 06030 -0634 00 1 06032 SXD *+2,1 F6A13690 06031 0534 00 1 73674 LXA (SCHU)+TABTAP,1 PICK UP TABLE LAST ADDRESS+1 F6A13700 06032 1 00000 1 06033 TXI *+1,1,** REDUCE BY TABLE LOAD ADDRESS F6A13710 06033 0441 00 2 06105 LDI TAPAR,2 LOAD WORD COUNT FLAG F6A13720 06034 -0054 00 200000 LFT 200000 SHOULD WORD COUNT BE CHECKED F6A13730 BINARY CARD NO. 9F300052 06035 0020 00 0 06045 TRA RDTB2 NO F6A13740 06036 -0754 00 1 00000 PXD ,1 YES, PUT WORD COUNT IN DECREMENT F6A13750 06037 -0054 00 100000 LFT 100000 IS WORD COUNT IN ADDRESS F6A13760 06040 0754 00 1 00000 PXA ,1 YES, PUT WORD COUNT IN ADDRESS INSTEAD F6A13770 06041 0402 00 0 04337 SUB TABCT IS WORD COUNT CORRECT F6A13780 06042 0100 00 0 06045 TZE RDTB2 YES F6A13790 06043 0774 00 1 77776 AXT -2,1 NO, LOAD TABLE COUNT FLAG F6A13800 06044 0020 00 0 06061 TRA RDTRR F6A13810 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 30 SUBROUTINES RELEVANT TO FIRST CIT PASS 06045 0500 00 0 73674 RDTB2 CLA (SCHU)+TABTAP GET ORIGIN AT END OF TABLE F6A13820 06046 -0320 00 0 06665 ANA ADMSK MASK IN ADDRESS F6A13830 06047 0340 00 0 04331 CAS ADDRS DID TABLE OVERFLOW BUFFER SPACE F6A13840 06050 0074 00 4 03737 TSX XERR03,4 *YES F6A13850 06051 0761 00 0 00000 NOP MAYBE NOT F6A13860 06052 0340 00 0 04332 CAS ERASE DID TABLE WRAP AROUND MEMORY F6A13870 06053 0761 00 0 00000 NOP NO F6A13880 06054 1 77777 2 06056 TXI *+2,2,-1 BUMP TABLE INDEX TO NEXT TABLE F6A13890 06055 0074 00 4 03737 TSX XERR03,4 *YES F6A13900 06056 0634 00 2 05774 SXA RDTAB+1,2 SAVE NEXT TABLE INDEX F6A13910 06057 0774 00 4 00000 RDTBX AXT **,4 RELOAD CALLING LINKAGE F6A13920 06060 0020 00 4 00001 TRA 1,4 F6A13930 ERROR ON TABLE TAPE F6A13940 06061 0074 00 4 73606 RDTRR TSX (TAPE),4 *PRINT ERROR MESSAGE F6A13950 06062 0 04000 1 06063 PZE *+1,1,(TPER) F6A13960 BINARY CARD NO. 9F300053 06063 0 00002 2 06125 PZE TLABL,2,TABTAP F6A13970 06064 432122254360 BCI 1,LABEL F6A13980 06065 234664456360 BCI 1,COUNT F6A13990 F6A14000 06066 -0 00000 0 00000 IOTAB IOCP **,,** F6A14010 06067 3 13561 0 00000 IORT **,,6001 F6A14020 F6A14030 06070 -0 00101 1 00000 ASSLP MZE **,1,65 ASSIGN F6A14040 06071 -1 00102 1 00000 MON **,1,66 FIXCON F6A14050 06072 0 00015 2 00000 PZE **,2,13 HOLARG F6A14060 06073 -1 00103 1 00000 MON **,1,67 FLOCON F6A14070 06074 0 00012 2 00000 PZE **,2,10 FORMAT F6A14080 06075 -2 00104 1 00000 FORLP MTW **,1,68 FORSUB F6A14090 06076 -1 00105 2 00000 MON **,2,69 SIZ F6A14100 06077 -2 00106 0 04201 MTW XSWCH1,0,70 END F6A14110 06100 0 00013 2 00000 PZE **,2,11 SUBDEF F6A14120 06101 0 00014 2 00000 PZE **,2,12 COMMON F6A14130 06102 0 00000 2 00000 PZE **,2,0 EIF F6A14140 06103 0 00010 2 00000 PZE **,2,8 EQUIV F6A14150 06104 0 00011 2 00000 PZE **,2,9 CLOSUB F6A14160 06105 TAPAR SYN * F6A14170 F6A14180 06105 233163620005 3LABL BCI 1,CITS05 F6A14190 06106 233163620006 CLABL BCI 1,CITS06 F6A14200 06107 632531264506 ELABL BCI 1,TEIFN6 F6A14210 06110 216223464505 ASSLB BCI 1,ASCON5 F6A14220 BINARY CARD NO. 9F300054 06111 263167234503 BCI 1,FIXCN3 F6A14230 06112 304643215127 BCI 1,HOLARG F6A14240 06113 264346234645 BCI 1,FLOCON F6A14250 06114 264651442163 BCI 1,FORMAT F6A14260 06115 264651626422 BCI 1,FORSUB F6A14270 06116 623171606060 BCI 1,SIZ F6A14280 06117 254524606060 BCI 1,END F6A14290 06120 626422242526 BCI 1,SUBDEF F6A14300 06121 234644444645 BCI 1,COMMON F6A14310 06122 632531264546 BCI 1,TEIFNO F6A14320 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 31 SUBROUTINES RELEVANT TO FIRST CIT PASS 06123 255064316360 BCI 1,EQUIT F6A14330 06124 234346626422 BCI 1,CLOSUB F6A14340 06125 TLABL SYN * F6A14350 F6A14360 06125 -0 00000 0 00001 BKSPC MZE 1,,0 F6A14370 06126 -0 00001 0 00001 MZE 1,,1 TO FIXCON (FILE 8 RECORD 1) F6A14380 06127 -0 00003 0 00013 MZE 11,,3 TO HOLARG (FILE 5 RECORD 4) F6A14390 06130 -0 00001 0 00003 MZE 3,,1 TO FLOCON (FILE 4 RECORD 1) F6A14400 06131 0 00000 0 00000 PZE 0,,0 TO FORMAT (FILE 4 RECORD 2) F6A14410 06132 -0 00001 0 00001 MZE 1,,1 TO FORSUB (FILE 3 RECORD 1) F6A14420 06133 0 00001 0 00002 PZE 2,,1 TO SIZ (FILE 4 RECORD 3) F6A14430 06134 0 00001 0 00000 PZE 0,,1 TO END (FILE 5 RECORD 1) F6A14440 06135 0 00000 0 00000 PZE 0,,0 TO SUBDEF (FILE 5 RECORD 2) F6A14450 06136 0 00000 0 00000 PZE 0,,0 TO COMMON (FILE 5 RECORD 3) F6A14460 BINARY CARD NO. 9F300055 06137 0 00000 0 00001 PZE 1,,0 TO EIF (FILE 5 RECORD 5) F6A14470 06140 0 00000 0 00007 PZE 7,,0 TO EQUIV (FILE 5 RECORD 13) F6A14480 06141 0 00000 0 00000 PZE 0,,0 TO CLOSUB (FILE 5 RECORD 14) F6A14490 06142 0 77777 0 00000 REWND PZE ,,-1 TO SOURCE (FILE 1 RECORD 1) F6A14500 06143 SKLST SYN * F6A14510 F6A14520 COMPILE CIT FOR FORTRAN CONSTANTS AND PROGRAM DATA F6A14530 06143 -3 00000 1 06156 CPCIT TXL CPCIX+1,1,0 IS TABLE EMPTY F6A14540 06144 0634 00 4 06155 SXA CPCIX,4 NO, SAVE CALLING LINKAGE F6A14550 06145 0621 00 0 06150 STA CPCI1 INITIALIZE ORIGIN AT END OF TABLE F6A14560 06146 -0500 00 2 06174 CAL TBSYM+8,2 SET INITIAL CIT SYMBOLIC LOCATION F6A14570 06147 0602 00 0 04325 SLW CITSL F6A14580 06150 0500 00 1 00000 CPCI1 CLA **,1 GET NEXT CONSTANT F6A14590 06151 0601 00 0 04327 STO CITSA F6A14600 06152 0074 00 4 06221 TSX TBCIT,4 *WRITE OUT COMPILED CIT F6A14610 06153 0600 00 0 04325 STZ CITSL RESET SUBSEQUENT SYMBOLIC LOCATION F6A14620 06154 2 00001 1 06150 TIX CPCI1,1,1 IS TABLE EXHAUSTED F6A14630 06155 0774 00 4 00000 CPCIX AXT **,4 YES, RELOAD CALLING LINKAGE F6A14640 06156 0020 00 4 00001 TRA 1,4 F6A14650 F6A14660 06157 110000000000 9)SYM BCI 1,900000 F6A14670 06160 050000000000 BCI 1,500000 F6A14680 06161 020000000000 BCI 1,200000 F6A14690 06162 130000000000 HLSYM BCI 1,=00000 F6A14700 06163 030000000000 BCI 1,300000 F6A14710 06164 060000000000 TBSYM BCI 1,600000 F6A14720 F6A14730 COMPILE CIT FOR BCD PROGRAM DATA F6A14740 BINARY CARD NO. 9F300056 06165 -3 00000 1 06220 CPBCD TXL CPBCX+1,1,0 IS TABLE EMPTY F6A14750 06166 0634 00 4 06217 SXA CPBCX,4 NO, SAVE CALLING LINKAGE F6A14760 06167 -0634 00 1 06216 SXD CPBC2,1 SET END OF COMPILE LOOP TEST F6A14770 06170 0402 00 0 06656 SUB L(1) F6A14780 06171 0621 00 0 06204 STA CPBC1+1 INITIALIZE ORIGIN FOR BCD WORD F6A14790 06172 0402 00 0 06656 SUB L(1) F6A14800 06173 0621 00 0 06211 STA CPBC1+6 INITIALIZE ORIGIN FOR SYMBOL F6A14810 06174 0402 00 0 06656 SUB L(1) F6A14820 06175 0621 00 0 06206 STA CPBC1+3 INITIALIZE ORIGIN FOR FLAG F6A14830 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 32 SUBROUTINES RELEVANT TO FIRST CIT PASS 06176 -0500 00 0 06722 CAL BCDOP SET CIT OP CODE TO BCD F6A14840 06177 0602 00 0 04326 SLW CITOP F6A14850 06200 -0500 00 0 06774 CAL ALONE SET STOP PRECEDING TABLE F6A14860 06201 0602 60 0 06204 SLW* CPBC1+1 F6A14870 06202 0774 00 1 00001 AXT 1,1 START WITH LAST WORD IN TABLE F6A14880 06203 0600 00 0 04325 CPBC1 STZ CITSL RESET CIT SYMBOLIC LOCATION F6A14890 06204 -0500 00 1 00000 CAL **,1 MOVE BCD WORD INTO SYMBOLIC ADDRESS F6A14900 06205 0602 00 0 04327 SLW CITSA F6A14910 06206 -0500 00 1 00000 CAL **,1 IS THIS BEGIN STATEMENT FLAG F6A14920 06207 0322 00 0 06774 ERA ALONE F6A14930 06210 -0100 00 0 06214 TNZ *+4 NO F6A14940 06211 -0500 00 1 00000 CAL **,1 YES, SET SYMBOLIC LOCATION TO M)N SYMBOL F6A14950 06212 0602 00 0 04325 SLW CITSL F6A14960 BINARY CARD NO. 9F300057 06213 1 00002 1 06214 TXI *+1,1,2 BUMP WORD COUNT PAST FLAG AND SYMBOL F6A14970 06214 0074 00 4 06221 TSX TBCIT,4 *WRITE COMPILED CIT F6A14980 06215 1 00001 1 06216 TXI *+1,1,1 BUMP WORD COUNT TO NEXT PRECEDING WORD F6A14990 06216 -3 00000 1 06203 CPBC2 TXL CPBC1,1,** IS TABLE EXHAUSTED F6A15000 06217 0774 00 4 00000 CPBCX AXT **,4 YES, RELOAD CALLING LINKAGE F6A15010 06220 0020 00 4 00001 TRA 1,4 F6A15020 F6A15030 MOVE 4-WORD CIT GENERATED BY TAPE TABLE CONSTANT INTO F6A15040 CIT BUFFER. WHEN BUFFER IS FILLED, WRITE OUT ON TAPE 3 F6A15050 AND CHECK FOR TAPE ERROR. THIS SUBROUTINE IS NOT DOUBLE F6A15060 BUFFERED F6A15070 06221 0634 00 4 06235 TBCIT SXA TBCIX,4 SAVE CALLING LINKAGE F6A15080 06222 0774 00 4 00314 AXT CITSIZ+4,4 LOAD BUFFER COUNT F6A15090 06223 2 00004 4 06230 TIX TBCI3,4,4 IS BUFFER FILLED F6A15100 06224 0074 00 4 73606 TSX (TAPE),4 *YES, WRITE BUFFER CONTENTS F6A15110 06225 0 40011 0 06237 PZE IOCIT,,(WBNC) F6A15120 06226 0 00003 0 06105 PZE 3LABL,,CITTAP F6A15130 06227 0774 00 4 00310 AXT CITSIZ,4 RESET BUFFER COUNT F6A15140 06230 0774 00 2 00004 TBCI3 AXT 4,2 PREPARE TO MOVE 4-WORD CIT F6A15150 06231 -0500 00 2 04331 CAL CITRA+1,2 MOVE NEXT WORD F6A15160 06232 0602 60 2 06244 SLW* CITBF+1,2 TO OUTPUT BUFFER F6A15170 06233 2 00001 2 06231 TIX *-2,2,1 HAVE ALL 4 WORDS BEEN MOVED F6A15180 06234 0634 00 4 06222 SXA TBCIT+1,4 YES, SAVE BUFFER COUNT F6A15190 06235 0774 00 4 00000 TBCIX AXT **,4 RELOAD CALLING LINKAGE F6A15200 06236 0020 00 4 00001 TRA 1,4 F6A15210 F6A15220 06237 3 00310 0 07750 IOCIT IORT BUFF3,,CITSIZ F6A15230 06240 0 00000 4 10260 PZE BUFF3+CITSIZ,4 F6A15240 BINARY CARD NO. 9F300058 06241 0 00000 4 10261 PZE BUFF3+CITSIZ+1,4 F6A15250 06242 0 00000 4 10262 PZE BUFF3+CITSIZ+2,4 F6A15260 06243 0 00000 4 10263 CITBF PZE BUFF3+CITSIZ+3,4 F6A15270 F6A15280 ASSIGN STORAGE FOR EQUIVALENCE SENTENCE F6A15290 06244 0634 00 4 06320 SEQAS SXA SEQSX,4 SAVE CALLING LINKAGE F6A15300 06245 0774 00 1 00000 AXT **,1 GET COUNT OF FIRST SYMBOL THIS SET F6A15310 06246 0600 00 0 04332 STZ ERASE CLEAR WORKING CELL FOR MAXIMUM OVERHANG F6A15320 06247 0502 60 0 04305 CLS* RGEQU+1 GET FIRST SUBSCRIPT THIS SENTENCE F6A15330 06250 0131 00 0 00000 XCA F6A15340 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 33 SUBROUTINES RELEVANT TO FIRST CIT PASS 06251 -0500 60 0 04304 SEQS1 CAL* RGEQU GET NEXT SYMBOL THIS SENTENCE F6A15350 06252 0074 00 4 06322 TSX SSIZE,4 *GET -LENGTH OF THIS ARRAY F6A15360 06253 0401 60 0 04305 ADM* RGEQU+1 GET ARRAY LENGTH OVER SUBSCRIPT F6A15370 06254 0340 00 0 04332 CAS ERASE IS THIS OVERHANG GREATER F6A15380 06255 0020 00 0 06260 TRA *+3 NO F6A15390 06256 0020 00 0 06260 TRA *+2 NO F6A15400 06257 0601 00 0 04332 STO ERASE YES, SAVE THIS OVERHANG INSTEAD F6A15410 06260 0502 60 0 04305 CLS* RGEQU+1 GET CORRESPONDING SUBSCRIPT F6A15420 06261 0120 00 0 06266 TPL SEQS2 IS THIS END OF SENTENCE F6A15430 06262 0040 00 0 06264 TLQ *+2 NO, IS THIS SUBSCRIPT GREATER F6A15440 06263 0131 00 0 00000 XCA YES, SAVE THIS SUBSCRIPT INSTEAD F6A15450 06264 2 00002 1 06251 TIX SEQS1,1,2 IS EQUIVALENCE TABLE EXHAUSTED F6A15460 06265 0074 00 4 03735 TSX XERR00,4 *YES, END OF SENTENCE FLAG MISSING F6A15470 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A15480 * SEE DISCUSSION OF SIMILAR ERROR AT EQCOM. F6A15490 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A15500 06266 -0760 00 0 00003 SEQS2 SSM CHANGE SIGN OF LAST SUBSCRIPT F6A15510 BINARY CARD NO. 9F300059 06267 0040 00 0 06271 TLQ *+2 IS THIS SUBSCRIPT GREATER F6A15520 06270 0020 00 0 06272 TRA *+2 YES F6A15530 06271 0131 00 0 00000 XCA NO, GET LARGEST SUBSCRIPT F6A15540 AT END OF SCAN OF EQUIVALENCE SENTENCE, -GREATEST F6A15550 SUBSCRIPT IN SENTENCE IS IN AC. IF VARIABLE WITH LARGEST F6A15560 SUBSCRIPT IS ASSIGNED LOCATION OF UPPER COUNTER, ALL F6A15570 OTHER VARIABLES IN SENTENCE NEED BE ASSIGNED LOCATIONS F6A15580 LENGTH OF THEIR SUBSCRIPT ABOVE THIS BASE (AC). LARGEST F6A15590 OVERHANG OF ARRAY LENGTH OVER SUBSCRIPT (ABOVE BASE) IS F6A15600 IN ERASE. TOTAL STORAGE REQUIRED FOR THIS SENTENCE IS F6A15610 LARGEST SUBSCRIPT + LARGEST OVERHANG. F6A15620 06272 0400 00 0 04334 ADD UPCTR REDUCE LOCATION COUNTER BY GREATEST F6A15630 06273 0601 00 0 04334 STO UPCTR SUBSCRIPT AS BASE FOR ASSIGNING ADDRESS F6A15640 06274 0120 00 0 06276 TPL *+2 DID ASSIGNMENT WRAP AROUND MEMORY F6A15650 06275 0074 00 4 03740 TSX XERR04,4 *YES F6A15660 06276 -0634 00 1 06311 SXD SEQS4,1 NO, SAVE COUNT OF LAST SYMBOL THIS SET F6A15670 06277 0534 00 1 06245 LXA SEQAS+1,1 GET COUNT OF FIRST SYMBOL THIS SENTENCE F6A15680 06300 0500 00 0 04334 SEQS3 CLA UPCTR SET LOCATION ASSIGNED TO THIS SYMBOL F6A15690 06301 0401 60 0 04305 ADM* RGEQU+1 LENGTH OF SUBSCRIPT ABOVE BASE (ARRAY F6A15700 06302 0400 00 0 06667 ADD T(2) STORED BACKWARDS IN MEMORY) FLAGGED AS F6A15710 06303 0601 00 0 04331 STO ADDRS ALLOWABLE IN SYMBOL TABLE F6A15720 06304 -0500 60 0 04304 CAL* RGEQU GET CORRESPONDING SYMBOL F6A15730 06305 0074 00 4 04043 TSX XSRDEV,4 *IS SYMBOL IN DEV F6A15740 06306 0074 00 4 06535 TSX ENDEV,4 *NO, ENTER IT INTO DEV F6A15750 06307 0020 00 0 06311 TRA *+2 F6A15760 06310 0074 00 4 03735 TSX XERR00,4 *YES, EQUIV NAME TWICE IN EQUIV TABLE F6A15770 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A15780 * THE EQUIVALENCE TABLE HAS BEEN PREPARED BY SECTION 1 AND F6A15790 * ALL REDUNDANCIES REMOVED BY SECTION 1P. SECTION 6 READ ITF6A15800 * FROM FILE 5 RECORD 13 LOGICAL TAPE 2, AND HAS ENTERED F6A15810 * INTO DEV THE COMPLETE SENTENCE IN WHICH THE SYMBOL STOREDF6A15820 * IN LOCATION SYMBL APPEARED. SECTION 6 HAS DETERMINED THATF6A15830 * THIS SENTENCE IS NOT IN DEV, AS THE FIRST SYMBOL IN THE F6A15840 * SENTENCE WAS NOT RECOGNIZED IN DEV. NO SUBSEQUENT SYMBOL F6A15850 * IN THE ENTIRE SENTENCE SHOULD BE RECOGNIZED IN DEV. THE F6A15860 * EQUIVALENCE VARIABLE NAME IN RGEQU,1 IS A MAVERICK. F6A15870 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 34 SUBROUTINES RELEVANT TO FIRST CIT PASS * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A15880 06311 -3 00000 1 06313 SEQS4 TXL *+2,1,** IS SENTENCE EXHAUSTED F6A15890 06312 1 77776 1 06300 TXI SEQS3,1,-2 NO, BUMP TO NEXT SYMBOL F6A15900 06313 0500 00 0 04334 CLA UPCTR REDUCE UPPER LOCATION COUNTER BY GREATEST F6A15910 06314 -0400 00 0 04332 SBM ERASE OVERHANG, RESERVING TOTAL BLOCK OF F6A15920 BINARY CARD NO. 9F300060 06315 0601 00 0 04334 STO UPCTR STORAGE REQUIRED BY THIS SENTENCE F6A15930 06316 0120 00 0 06320 TPL *+2 DID ASSIGNMENT WRAP AROUND MEMORY F6A15940 06317 0074 00 4 03744 TSX XERR08,4 *YES F6A15950 06320 0774 00 4 00000 SEQSX AXT **,4 RELOAD CALLING LINKAGE F6A15960 06321 0020 00 4 00011 TRA 9,4 F6A15970 F6A15980 FIND LENGTH OF ARRAY FOR VARIABLE NAME F6A15990 06322 0634 00 1 06334 SSIZE SXA SSIZX,1 SAVE TABLE COUNT F6A16000 06323 -0534 00 1 04310 LXD RGSIZ,1 GET SIZ TABLE COUNT F6A16010 06324 -3 00000 1 06331 TXL *+5,1,0 IS SIZ TABLE EMPTY F6A16020 06325 -0340 60 0 04310 LAS* RGSIZ NO, IS VARIABLE NAME OF AN ARRAY F6A16030 06326 0020 00 0 06330 TRA *+2 NO F6A16040 06327 0020 00 0 06333 TRA *+4 YES F6A16050 06330 2 00002 1 06325 TIX *-3,1,2 IS SIZ TABLE EXHAUSTED F6A16060 06331 0502 00 0 06656 CLS L(1) YES, SET ARRAY LENGTH TO 1 F6A16070 06332 0020 00 0 06334 TRA SSIZX F6A16080 06333 0502 60 0 04311 CLS* RGSIZ+1 GET -ARRAY LENGTH F6A16090 06334 0774 00 1 00000 SSIZX AXT **,1 RELOAD TABLE COUNT F6A16100 06335 0020 00 4 00001 TRA 1,4 F6A16110 F6A16120 ADD SYMBOL NAME AND FLAG TO MULTIPLY DEFINED ERROR LIST F6A16130 FLAG ERROR F6A16140 1 ARGUMENT F6A16150 2 ARITHMETIC STATEMENT FUNCTION F6A16160 3 TRANSFER VECTOR (SUBSCR VAR NOT IN DIM) F6A16170 4 SUBROUTINE NAME F6A16180 5 TRANSFER VECTOR NAME USED AS VARIABLE F6A16190 06336 0774 00 2 00000 SMDER AXT **,2 LOAD ERROR LIST COUNT F6A16200 06337 0601 00 2 07751 STO ERLST+1,2 INSERT FLAG IN SECOND WORD F6A16210 06340 -0500 00 0 04256 CAL XSYMBL GET MULTIPLY DEFINED SYMBOL NAME F6A16220 06341 0602 00 2 07750 SLW ERLST,2 INSERT SYMBOL IN FIRST WORD F6A16230 06342 1 77776 2 06343 TXI *+1,2,-2 BUMP ERROR LIST COUNT F6A16240 BINARY CARD NO. 9F300061 06343 3 77160 2 06346 TXH *+3,2,-2*CITSIZ WILL ERROR LIST OVERFLOW BUFFER F6A16250 06344 0774 00 1 07750 AXT ERLST,1 YES, LOAD ORIGIN OF ERROR LIST F6A16260 06345 0074 00 4 03742 TSX XERR06,4 *COUNT OF ERRORS IS IN XR2 F6A16270 06346 0634 00 2 06336 SXA SMDER,2 NO, SAVE ERROR LIST COUNT F6A16280 06347 0500 00 0 06505 CLA WRCIX+1 BYPASS CIT OUTPUTROUTINE F6A16290 06350 0601 00 0 06443 STO WRCIT TO PRESERVE ERROR LIST F6A16300 06351 0020 00 4 00001 TRA 1,4 F6A16310 F6A16320 MOVE 4-WORD CIT FROM TAPE 3 BUFFER TO WORKING AREA. F6A16330 INITIALLY, BUFFER 1 IS FILLED, CHECKED FOR TAPE ERROR, F6A16340 AND BUFFER 2 FILLED WITH NEXT RECORD. ERROR ON OR END F6A16350 FILE ON SUCCESSIVE BUFFERS ARE NOT TESTED UNTIL PRIOR F6A16360 BUFFER IS EXHAUSTED. F6A16370 06352 0634 00 4 06425 RDCIT SXA RDCIX,4 SAVE CALLING LINKAGE F6A16380 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 35 SUBROUTINES RELEVANT TO FIRST CIT PASS 06353 0774 00 4 00000 AXT **,4 GET CIT COUNT F6A16390 06354 2 00004 4 06414 TIX RDCI2,4,4 IS BUFFER EXHAUSTED F6A16400 06355 0774 00 2 00001 AXT 1,2 YES, SET BUFFER 1 SWITCH F6A16410 06356 -3 00000 0 06360 TXL *+2,,0 IS BUFFER 1 NEXT F6A16420 06357 0774 00 2 00002 AXT 2,2 NO, SET BUFFER 2 SWITCH INSTEAD F6A16430 06360 0502 00 0 06356 CLS *-2 RESET BUFFER SWITCH F6A16440 06361 0601 00 0 06356 STO *-3 F6A16450 06362 3 00000 4 06367 TXH *+5,4,0 IS THIS FIRST RECORD F6A16460 06363 0074 00 4 73606 TSX (TAPE),4 *YES, READ FIRST CIT RECORD F6A16470 06364 0 40004 2 06442 PZE RDCBF,2,(RBEP) F6A16480 06365 0 00003 0 06105 PZE 3LABL,,CITTAP F6A16490 06366 0 00000 0 06506 PZE CITRR F6A16500 06367 0074 00 4 73606 TSX (TAPE),4 *READ NEXT CIT RECORD F6A16510 06370 0 40004 2 06443 PZE RDCBF+1,2,(RBEP) F6A16520 BINARY CARD NO. 9F300062 06371 0 00003 0 06105 PZE 3LABL,,CITTAP F6A16530 06372 0 00000 0 06506 PZE CITRR F6A16540 COMPUTE WORD COUNT AND INITIALIZE BUFFERS F6A16550 06373 0500 00 2 06442 CLA RDCBF,2 INITIALIZE WORD COUNT COMPUTATION F6A16560 06374 0737 00 4 00000 PAC ,4 F6A16570 06375 -0634 00 4 06410 SXD RDCI1,4 F6A16580 06376 0534 00 4 73675 LXA (SCHU)+CITTAP,4 GET LOCATION OF LAST+1 WORD IN CIT BLOCK F6A16590 06377 -3 00000 4 06427 TXL RDCI3,4,0 WAS END FILE SENSED F6A16600 06400 0634 00 4 06414 SXA RDCI2,4 NO, INITIALIZE MOVE LOOP F6A16610 06401 1 00001 4 06402 TXI *+1,4,1 F6A16620 06402 0634 00 4 06416 SXA RDCI2+2,4 F6A16630 06403 1 00001 4 06404 TXI *+1,4,1 F6A16640 06404 0634 00 4 06420 SXA RDCI2+4,4 F6A16650 06405 1 00001 4 06406 TXI *+1,4,1 F6A16660 06406 0634 00 4 06422 SXA RDCI2+6,4 F6A16670 06407 1 77775 4 06410 TXI *+1,4,-3 F6A16680 06410 1 00000 4 06411 RDCI1 TXI *+1,4,** F6A16690 06411 -3 00310 4 06414 TXL RDCI2,4,CITSIZ IS RECORD TOO LONG F6A16700 06412 0774 00 2 77777 AXT -1,2 YES, SET CIT COUNT SWITCH F6A16710 06413 0020 00 0 06432 TRA RDCRR+1 F6A16720 MOVE CIT FROM CIT BUFFER TO WORKING BUFFER F6A16730 06414 -0500 00 4 00000 RDCI2 CAL **,4 F6A16740 06415 0602 00 0 04325 SLW CITSL F6A16750 06416 -0500 00 4 00000 CAL **,4 F6A16760 BINARY CARD NO. 9F300063 06417 0602 00 0 04326 SLW CITOP F6A16770 06420 -0500 00 4 00000 CAL **,4 F6A16780 06421 0602 00 0 04327 SLW CITSA F6A16790 06422 -0500 00 4 00000 CAL **,4 F6A16800 06423 0602 00 0 04330 SLW CITRA F6A16810 06424 0634 00 4 06353 SXA RDCIT+1,4 SAVE CIT INPUT BUFFER COUNT F6A16820 06425 0774 00 4 00000 RDCIX AXT **,4 RELOAD CALLING LINKAGE F6A16830 06426 0020 00 4 00002 TRA 2,4 F6A16840 END OF CIT FILE SENSED F6A16850 06427 0534 00 4 06425 RDCI3 LXA RDCIX,4 RELOAD CALLING LINKAGE F6A16860 06430 0020 00 4 00001 TRA 1,4 F6A16870 ERROR ON CIT INPUT TAPE F6A16880 06431 0774 00 2 77776 RDCRR AXT -2,2 SET IMPROPER END OF FILE SWITCH F6A16890 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 36 SUBROUTINES RELEVANT TO FIRST CIT PASS 06432 0074 00 4 73606 TSX (TAPE),4 *PRINT ERROR MESSAGE F6A16900 06433 0 04000 2 06435 PZE *+2,2,(TPER) F6A16910 06434 -0 00003 0 06105 MZE 3LABL,,CITTAP F6A16920 06435 0020 00 0 06506 TRA CITRR F6A16922 06436 234664456360 BCI 1,COUNT F6A16930 06437 254524263143 BCI 1,ENDFIL F6A16940 F6A16950 06440 3 00311 0 07440 IORT BUFF2,,CITSIZ+1 F6A16960 06441 3 00311 0 07130 IORT BUFF1,,CITSIZ+1 F6A16970 06442 3 00311 0 07440 RDCBF IORT BUFF2,,CITSIZ+1 F6A16980 F6A16990 MOVE 4-WORD CIT FROM WORKING AREA TO TAPE 4 BUFFER F6A17000 IF BUFFER IS FILLED, WRITE OUT BUFFER CONTENTS ON TAPE F6A17010 THIS ROUTINE IS DOUBLE BUFFERED. TAPE ERROR IS NOT F6A17020 CHECKED UNTIL NEXT BUFFER IS FILLED. F6A17030 06443 0634 00 4 06504 WRCIT SXA WRCIX,4 SAVE CALLING LINKAGE F6A17040 06444 0774 00 4 00000 AXT **,4 GET CIT COUNT F6A17050 BINARY CARD NO. 9F300064 06445 2 00004 4 06473 TIX WRCI2,4,4 IS BUFFER FILLED F6A17060 06446 0774 00 2 00001 AXT 1,2 YES, SET BUFFER 1 SWITCH F6A17070 06447 -3 00000 0 06451 TXL *+2,,0 IS BUFFER 1 NEXT F6A17080 06450 0774 00 2 00002 AXT 2,2 NO, SET BUFFER 2 SWITCH INSTEAD F6A17090 06451 0502 00 0 06447 CLS *-2 RESET BUFFER SWITCH F6A17100 06452 0601 00 0 06447 STO *-3 F6A17110 06453 -3 00000 4 06460 TXL *+5,4,0 IS THIS INITIAL ENTRY F6A17120 06454 0074 00 4 73606 TSX (TAPE),4 *NO, WRITE NEXT CIT RECORD F6A17130 06455 0 40001 2 06517 PZE WRCBF+1,2,(WBNP) F6A17140 06456 0 00004 0 06106 PZE CLABL,,COTTAP F6A17150 06457 0 00000 0 06506 PZE CITRR F6A17160 06460 0500 00 2 06516 CLA WRCBF,2 INITIALIZE BUFFER ORIGINS F6A17170 06461 0734 00 4 00000 PAX ,4 F6A17180 06462 1 00310 4 06463 TXI *+1,4,CITSIZ F6A17190 06463 0634 00 4 06474 SXA WRCI2+1,4 F6A17200 06464 1 00001 4 06465 TXI *+1,4,1 F6A17210 06465 0634 00 4 06476 SXA WRCI2+3,4 F6A17220 06466 1 00001 4 06467 TXI *+1,4,1 F6A17230 06467 0634 00 4 06500 SXA WRCI2+5,4 F6A17240 06470 1 00001 4 06471 TXI *+1,4,1 F6A17250 06471 0634 00 4 06502 SXA WRCI2+7,4 F6A17260 06472 0774 00 4 00310 AXT CITSIZ,4 RESET BUFFER COUNT F6A17270 MOVE CIT FROM WORKING BUFFER TO OUTPUT BUFFER F6A17280 BINARY CARD NO. 9F300065 06473 -0500 00 0 04325 WRCI2 CAL CITSL F6A17290 06474 0602 00 4 00000 SLW **,4 F6A17300 06475 -0500 00 0 04326 CAL CITOP F6A17310 06476 0602 00 4 00000 SLW **,4 F6A17320 06477 -0500 00 0 04327 CAL CITSA F6A17330 06500 0602 00 4 00000 SLW **,4 F6A17340 06501 -0500 00 0 04330 CAL CITRA F6A17350 06502 0602 00 4 00000 SLW **,4 F6A17360 06503 0634 00 4 06444 SXA WRCIT+1,4 SAVE CIT OUTPUT BUFFER COUNT F6A17370 06504 0774 00 4 00000 WRCIX AXT **,4 RELOAD CALLING LINKAGE F6A17380 06505 0020 00 4 00001 TRA 1,4 F6A17390 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 37 SUBROUTINES RELEVANT TO FIRST CIT PASS ERROR ON READING/WRITING CIT TAPE F6A17400 06506 0534 00 2 06336 CITRR LXA SMDER,2 HAVE THERE BEEN ANY ERRORS F6A17410 06507 -3 00000 2 06512 TXL *+3,2,0 NO F6A17420 06510 0774 00 1 07750 AXT ERLST,1 YES, LOAD ORIGIN OF ERROR LIST F6A17430 06511 0074 00 4 03742 TSX XERR06,4 *COUNT OF ERRORS IS IN XR2 F6A17440 06512 0074 00 4 73644 TSX (MECL),4 *CALL MACHINE ERROR RECORD F6A17450 06513 0 00000 0 00000 PZE SPACER FOR POSSIBLE PARAMETER F6A17460 F6A17470 06514 -1 00310 0 10260 IOCT BUFF4,,CITSIZ $F6A17480 06515 -1 00310 0 07750 IOCT BUFF3,,CITSIZ $F6A17490 06516 -1 00310 0 10260 WRCBF IOCT BUFF4,,CITSIZ $F6A17500 F6A17510 FIND NEXT USE OF ARGUMENT F6A17520 06517 0500 60 0 04227 GETRG CLA* ORGTIV-1 GET NEXT LOCATION,,ARGUMENT NUMBER F6A17530 06520 -0320 00 0 06673 ANA DECMK MASK IN ARGUMENT NUMBER F6A17540 BINARY CARD NO. 9F300066 06521 0340 00 0 04340 CAS ARGNO DO ARGUMENTS MATCH F6A17550 06522 0020 00 0 06524 TRA *+2 NO F6A17560 06523 0020 00 4 00002 TRA 2,4 YES F6A17570 06524 2 00002 2 06517 TIX *-5,2,2 IS ARGUMENT LIST EXHAUSTED F6A17580 06525 0020 00 4 00001 TRA 1,4 YES F6A17590 F6A17600 ADD ENTRY TO ARGUMENT LIST F6A17610 06526 0774 00 1 00000 ENARG AXT **,1 LOAD CURRENT INITIALIZATION TABLE COUNT F6A17620 06527 1 00001 1 06530 TXI *+1,1,1 BUMP ARGUMENT LIST COUNT F6A17630 06530 -3 00000 2 06532 ENART TXL *+2,2,** DID ARGUMENT LIST OVERFLOW F6A17640 06531 0074 00 4 03744 TSX XERR08,4 *YES F6A17650 06532 0634 00 1 06526 SXA ENARG,1 NO F6A17660 06533 0602 60 0 04234 SLW* ORGSUB INSERT NEXT ENTRY IN INITIALIZATION TABLE F6A17670 06534 0020 00 4 00001 TRA 1,4 F6A17680 F6A17690 ENTER VARIABLE NAME IN DEV, LOCATION (AND SYMBOL TABLE F6A17700 FLAG) IN DEA. BINARY SEARCH OF DEV HAS SET XR2 TO F6A17710 RELATIVE POSITION IN DEV INTO WHICH NEW ENTRY IS TO BE F6A17720 INSERTED. F6A17730 TABLE ENTRIES IN DEA ARE FLAGGED AS FOLLOWS F6A17740 TABLE PREFIX DECREM TAG ADDRESS F6A17750 COMMON 0 (IFN) 1 LOCATION F6A17760 SIZ 0 (IFN) 1 LOCATION F6A17770 EQUIV 0 (IFN) 2 LOCATION F6A17780 $ OR $$ 0 (IFN) 4 LOCATION F6A17790 CLOSUB 1 (IFN) 4 LOCATION F6A17800 SUBDEF (ARG) 2 (IFN) 4 ARGNO F6A17810 FORSUB 4 (IFN) 4 IFN F6A17820 BCD NAME OF VARIABLE OR SYMBOL IN DEV F6A17830 06535 1 00001 2 06536 ENDEV TXI *+1,2,1 BUMP TABLE COUNT TO LOCATION BELOW NEW F6A17840 06536 -0634 00 2 06553 SXD ENDE2,2 ENTRY FOR END OF MOVE LOOP TEST F6A17850 06537 -0534 00 2 04060 LXD XDEVTL,2 GET OLD TABLE LENGTH F6A17860 06540 1 00001 2 06541 TXI *+1,2,1 BUMP FOR NEW ENTRY F6A17870 06541 -3 00000 2 06543 ENDET TXL *+2,2,** DID TABLE OVERFLOW F6A17880 06542 0074 00 4 03744 TSX XERR08,4 *YES F6A17890 06543 -0634 00 2 04060 SXD XDEVTL,2 NO, SAVE NEW TABLE LENGTH F6A17900 06544 -3 00000 2 06553 ENDE1 TXL ENDE2,2,** DOES NEW TABLE LENGTH REQUIRE LARGER HOP F6A17910 06545 0500 00 0 04061 CLA XDEVTS YES, SET THIS SYMBOL AS FIRST TO BE F6A17920 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 38 SUBROUTINES RELEVANT TO FIRST CIT PASS 06546 0400 00 0 06566 ADD DEVTA SCANNED IN NEXT SEARCH (MEDIAN ENTRY) F6A17930 BINARY CARD NO. 9F300067 06547 0601 00 0 04061 STO XDEVTS SET HOP COUNT FOR NEW TABLE DOUBLE LENGTH F6A17940 06550 0622 00 0 06566 STD DEVTA OF OLD TABLE F6A17950 06551 0400 00 0 06566 ADD DEVTA UPDATE BUMPER TO NEXT POWER OF TWO F6A17960 06552 0622 00 0 06544 STD ENDE1 SET UPDATE TEST FOR TABLE DOUBLE SIZE F6A17970 06553 -3 00000 2 06561 ENDE2 TXL ENDE3,2,** IS THIS ORDERED POSITION OF NEW ENTRY F6A17980 06554 -0500 60 0 04222 CAL* ORGDEV+1 NO, MOVE THIS ENTRY DOWN ONE SPACE TO MAKEF6A17990 06555 0602 60 0 04221 SLW* ORGDEV ROOM FOR NEW ENTRY ABOVE IT IN MEMORY F6A18000 06556 0500 60 0 04224 CLA* ORGDEA+1 F6A18010 06557 0601 60 0 04223 STO* ORGDEA F6A18020 06560 1 77777 2 06553 TXI ENDE2,2,-1 BUMP TO NEXT HIGHER ENTRY F6A18030 06561 -0500 00 0 04256 ENDE3 CAL XSYMBL ENTER SYMBOL NAME IN DEV F6A18040 06562 0602 60 0 04221 SLW* ORGDEV F6A18050 06563 0500 00 0 04331 CLA ADDRS ENTER LOCATION AND FLAG IN DEA F6A18060 06564 0601 60 0 04223 STO* ORGDEA F6A18070 06565 0020 00 4 00001 TRA 1,4 F6A18080 06566 0 00001 0 00002 DEVTA PZE 2,,1 HOP COUNT BUMPER,,POWER OF 2 BUMPER F6A18090 F6A18100 ENTER INTERNAL SYMBOL IN TIV. BINARY SEARCH OF TIV HAS F6A18110 SET XR2 TO RELATIVE POSITION IN TIV INTO WHICH NEW ENTRY F6A18120 IS TO BE INSERTED. SYMBOL CONSISTS OF F6A18130 BITS 1 THRU 4 SYMBOL F6A18140 BITS 5 THRU 21 INCREMENT F6A18150 BITS 22 THRU 36 LOCATION (INITIALLY LENGTH OF BLOCK) F6A18160 06567 1 77777 2 06570 ENTIV TXI *+1,2,-1 BUMP TABLE COUNT TO LOCATION ABOVE NEW F6A18170 06570 -0634 00 2 06606 SXD ENTI2,2 ENTRY FOR END OF MOVE LOOP TEST F6A18180 06571 -0534 00 2 04120 LXD XTIVTL,2 GET OLD TABLE LENGTH F6A18190 06572 1 77777 2 06573 TXI *+1,2,-1 BUMP FOR NEW ENTRY F6A18200 06573 3 00000 2 06575 ENTIT TXH *+2,2,** DID TABLE OVERFLOW F6A18210 06574 0074 00 4 03744 TSX XERR08,4 *YES F6A18220 BINARY CARD NO. 9F300068 06575 -0634 00 2 04120 SXD XTIVTL,2 NO, SAVE NEW TABLE LENGTH F6A18230 06576 1 00001 2 06577 TXI *+1,2,1 F6A18240 06577 3 77776 2 06606 ENTI1 TXH ENTI2,2,-2 DOES NEW TABLE LENGTH REQUIRE LARGER HOP F6A18250 06600 0500 00 0 04121 CLA XTIVTS YES, SET THIS SYMBOL AS FIRST TO BE F6A18260 06601 0400 00 0 06623 ADD TIVTA SCANNED IN NEXT SEARCH (MEDIAN ENTRY) F6A18270 06602 0601 00 0 04121 STO XTIVTS SET HOP COUNT FOR NEW TABLE DOUBLE LENGTH F6A18280 06603 0622 00 0 06623 STD TIVTA OF OLD TABLE F6A18290 06604 0400 00 0 06623 ADD TIVTA UPDATE BUMPER TO NEXT POWER OF TWO F6A18300 06605 0622 00 0 06577 STD ENTI1 SET UPDATE TEST FOR TABLE DOUBLE SIZE F6A18310 06606 3 00000 2 06612 ENTI2 TXH ENTI3,2,** IS THIS ORDERED POSITION OF NEW ENTRY F6A18320 06607 -0500 60 0 04227 CAL* ORGTIV-1 NO, MOVE THIS ENTRY UP ONE SPACE TO MAKE F6A18330 06610 0602 60 0 04230 SLW* ORGTIV ROOM FOR NEW ENTRY BELOW IT IN MEMORY F6A18340 06611 1 00001 2 06606 TXI ENTI2,2,1 BUMP TO NEXT HIGHER ENTRY F6A18350 06612 -0500 00 0 04256 ENTI3 CAL XSYMBL ENTER SYMBOL NAME IN TIV F6A18360 06613 0400 00 0 04331 ADD ADDRS WITH LOCATION OR LENGTH OF BLOCK ASSIGNED F6A18370 06614 0602 60 0 04230 SLW* ORGTIV F6A18380 06615 0634 00 2 06621 SXA *+4,2 SAVE POSITION IN TIV TABLE F6A18390 06616 -0534 00 2 06630 LXD ENTET,2 RESET TEV OVERFLOW TEST F6A18400 06617 1 77777 2 06620 TXI *+1,2,-1 F6A18410 06620 -0634 00 2 06630 SXD ENTET,2 F6A18420 06621 0774 00 2 00000 AXT **,2 RELOAD POSITION IN TIV TABLE F6A18430 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 39 SUBROUTINES RELEVANT TO FIRST CIT PASS 06622 0020 00 4 00001 TRA 1,4 F6A18440 BINARY CARD NO. 9F300069 06623 0 77777 0 00002 TIVTA PZE 2,,-1 HOP COUNT BUMPER,,POWER OF TWO BUMPER F6A18450 F6A18460 ENTER VARIABLE NAME IN TEV. BINARY SEARCH OF TEV HAS SET F6A18470 XR2 TO RELATIVE POSITION IN TEV INTO WHICH NEW ENTRY IS F6A18480 TO BE INSERTED. STORAGE LOCATION DEFINED BY RELATIVE F6A18490 POSITION ABOVE BASE LOCATION. F6A18500 06624 1 00001 2 06625 ENTEV TXI *+1,2,1 BUMP TABLE COUNT TO LOCATION BELOW NEW F6A18510 06625 -0634 00 2 06642 SXD ENTE2,2 ENTRY FOR END OF MOVE LOOP TEST F6A18520 06626 -0534 00 2 04077 LXD XTEVTL,2 GET OLD TABLE LENGTH F6A18530 06627 1 00001 2 06630 TXI *+1,2,1 BUMP FOR NEW ENTRY F6A18540 06630 -3 00000 2 06632 ENTET TXL *+2,2,** DID TABLE OVERFLOW F6A18550 06631 0074 00 4 03744 TSX XERR08,4 *YES F6A18560 06632 -0634 00 2 04077 SXD XTEVTL,2 NO, SAVE NEW TABLE LENGTH F6A18570 06633 -3 00000 2 06642 ENTE1 TXL ENTE2,2,** DOES NEW TABLE LENGTH REQUIRE LARGER HOP F6A18580 06634 0500 00 0 04100 CLA XTEVTS YES, SET THIS SYMBOL AS FIRST TO BE F6A18590 06635 0400 00 0 06654 ADD TEVTA SCANNED IN NEXT SEARCH (MEDIAN ENTRY) F6A18600 06636 0601 00 0 04100 STO XTEVTS SET HOP COUNT FOR NEW TABLE DOUBLE LENGTH F6A18610 06637 0622 00 0 06654 STD TEVTA OF OLD TABLE F6A18620 06640 0400 00 0 06654 ADD TEVTA UPDATE BUMPER TO NEXT POWER OF TWO F6A18630 06641 0622 00 0 06633 STD ENTE1 SET UPDATE TEST FOR TABLE DOUBLE SIZE F6A18640 06642 -3 00000 2 06646 ENTE2 TXL ENTE3,2,** IS THIS ORDERED LOCATION OF NEW ENTRY F6A18650 06643 -0500 60 0 04226 CAL* ORGTEV+1 NO, MOVE THIS ENTRY DOWN ONE SPACE TO MAKEF6A18660 06644 0602 60 0 04225 SLW* ORGTEV ROOM FOR NEW ENTRY ABOVE IT IN MEMORY F6A18670 06645 1 77777 2 06642 TXI ENTE2,2,-1 BUMP TO NEXT HIGHER ENTRY F6A18680 06646 -0500 00 0 04256 ENTE3 CAL XSYMBL ENTER SYMBOL NAME IN TEV F6A18690 06647 0602 60 0 04225 SLW* ORGTEV F6A18700 06650 -0534 00 2 06573 LXD ENTIT,2 RESET TIV OVERFLOW TEST F6A18710 BINARY CARD NO. 9F300070 06651 1 00001 2 06652 TXI *+1,2,1 F6A18720 06652 -0634 00 2 06573 SXD ENTIT,2 F6A18730 06653 0020 00 4 00001 TRA 1,4 F6A18740 06654 0 00001 0 00002 TEVTA PZE 2,,1 HOP COUNT BUMPER,,POWER OF TWO BUMPER F6A18750 F6A18760 F6A18770 CONSTANTS F6A18780 06655 0 00000 0 00000 L(0) PZE 0 F6A18790 06656 0 00000 0 00001 L(1) PZE 1 F6A18800 06657 0 00000 0 00002 L(2) PZE 2 F6A18810 06660 0 00000 0 00003 L(3) PZE 3 F6A18820 06661 0 00000 0 00004 L(4) PZE 4 F6A18830 06662 0 00000 0 00005 L(5) PZE 5 F6A18840 06663 0 00000 0 00010 L(8) PZE 8 F6A18850 06664 0 00000 0 00310 L(200 PZE 200 F6A18860 06665 0 00000 0 77777 ADMSK PZE -1 MASK TO ISOLATE 15-BIT ADDRESS FIELD F6A18870 06666 0 00000 1 00000 T(1) PZE ,1 FLAG FOR SYMBOL TABLE ENTRY F6A18880 06667 0 00000 2 00000 T(2) PZE ,2 FLAG FOR EQUIVALENCE VARIABLE F6A18890 06670 0 00000 4 00000 T(4) PZE ,4 FLAG FOR NO SYMBOL TABLE ENTRY F6A18900 06671 0 00000 7 00000 T(7) PZE ,7 F6A18910 06672 0 00001 0 00000 D(1) PZE ,,1 F6A18920 06673 0 77777 0 00000 DECMK PZE ,,-1 F6A18930 06674 1 00000 0 00000 P(1) PON FLAG FOR TRANSFER VECTOR NAME F6A18940 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 40 SUBROUTINES RELEVANT TO FIRST CIT PASS 06675 2 00000 0 00000 P(2) PTW FLAG FOR SUBROUTINE ARGUMENT F6A18950 06676 -3 77777 4 77777 DEAMK SVN -1,4,-1 MASK TO RESET FLAG FOR SYMBOL USED IN CIT F6A18960 BINARY CARD NO. 9F300071 06677 000000000023 L(C) BCI 1,00000C F6A18970 06700 000000000060 BLANK BCI 1,00000 F6A18980 06701 000000000061 SLASH BCI 1,00000/ F6A18990 06702 535360606060 L(DD) BCI 1,$$ F6A19000 06703 536060606060 L(SD) BCI 1,$ F6A19010 06704 606060606060 BLNKS BCI 1, F6A19020 F6A19030 06705 0 00007 0 00000 OPLST PZE ,,7 F6A19040 06706 DUP 1,8 EXPANSION SPACE FOR ADDITIONAL PSEUDOOPS F6A19050 06706 000000000000 BCI 1,000000 F6A19060 06716 626750000000 BCI 1,SXQ000 F6A19070 06717 506724000000 BCI 1,QXD000 F6A19080 06720 504751000000 BCI 1,QPR000 F6A19090 06721 462363000000 OCTOP BCI 1,OCT000 F6A19100 06722 222324000000 BCDOP BCI 1,BCD000 F6A19110 06723 226262000000 BCI 1,BSS000 F6A19120 06724 627045000000 BCI 1,SYN000 F6A19130 F6A19140 BINARY CARD NO. 9F300072 06725 212424000000 ADDOP BCI 1,ADD000 F6A19150 06726 234321000000 CLAOP BCI 1,CLA000 F6A19160 06727 436724000000 LXDOP BCI 1,LXD000 F6A19170 06730 626321000000 STAOP BCI 1,STA000 F6A19180 06731 626724000000 SXDOP BCI 1,SXD000 F6A19190 06732 635121000000 TRAOP BCI 1,TRA000 F6A19200 06733 636267000000 TSXOP BCI 1,TSX000 F6A19210 F6A19212 06734 477125000000 OPCD1 BCI 1,PZE000 (PZE) F6A19213 06735 241342000000 BCI 1,D=K000 (TSX ERA PZE) F6A19214 F6A19215 06736 +000000000000 DEC ,,,,,,,,, PATCH SPACE FOR ADDITIONAL VECTOR NAMES F6A19216 06750 742647633460 BCI 1,(FPT) F6A19218 06751 742426212434 BCI 1,(DFAD) F6A19219 06752 742426622234 BCI 1,(DFSB) F6A19220 BINARY CARD NO. 9F300073 06753 742426444734 BCI 1,(DFMP) F6A19221 06754 742426244734 BCI 1,(DFDP) F6A19222 06755 743126444734 BCI 1,(IFMP) F6A19223 06756 743126244734 BCI 1,(IFDP) F6A19224 06757 0 00007 0 00000 TVTBL PZE ,,7 F6A19225 F6A19226 06760 006060606060 HEDRM BCI 7,0 HEADING DELETED DUE TO TAPE ERROR F6A19230 06767 +000000000000 OCT 0,0,0,0,0 AREA NOT USED $F6A19240 06774 -377777777777 ALONE OCT 777777777777 END OF TABLE FENCE F6A19250 F6A19260 06775 33PCH BSS 0 PATCH SPACE F6A19270 06775 +233000000000 SXTAB OCT 233000000000,377777,0,1000000,0,0 $F6A19271 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 41 SUBROUTINES RELEVANT TO FIRST CIT PASS BINARY CARD NO. 9F300074 F6A19280 07130 FINIS ORG 33PCH/8*8+96 F6A19290 F6A19300 07130 BUFF1 BSS CITSIZ INPUT BUFFER 1 F6A19310 07440 BUFF2 BSS CITSIZ INPUT PUFFER 2 F6A19320 07750 ERLST BSS 0 F6A19330 07750 BUFF3 BSS CITSIZ OUTPUT BUFFER 1 F6A19340 10260 BUFF4 BSS CITSIZ OUTPUT BUFFER 2 F6A19350 BINARY CARD NO. TRA77777 77777 TCD -1 $F6A19360 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 42 F6B00010 PREPARE STORAGE MAP F6B00020 PREPARE SYMBOL TABLE F6B00030 PASS OVER LIBRARY FILE F6B00040 CREATE BINARY MACHINE WORDS FOR CIT F6B00050 PREPARE BINARY OUTPUT TAPE, PUNCH ON LINE F6B00060 PREPARE BCD MACHINE LANGUAGE LISTING, PRINT ON LINE F6B00070 F6B00080 00102 ORG SYSCUR $F6B00090 BINARY CARD NO. 9F310000 00102 112603010000 BCI 1,9F3100 $F6B00100 73666 ORG (LODR) $F6B00130 BINARY CARD NO. 9F310001 73666 1 00466 0 04441 TXI BSTART,,310 8R ENTRY PT,,RECNO F6B00150 F6B00160 ABS F6B00170 F6B00180 04303 ORG XLOADP F6B00190 F6B00200 HEAD B F6B00210 F6B00220 ORIGIN FOR INDIRECT ADDRESSING OF TABLES F6B00230 BINARY CARD NO. 9F310002 04303 0 00000 1 00000 RGSLS PZE **,1 ORIGIN FOR LIBRARY SECONDARY LOST LIST F6B00240 04304 0 00000 1 00000 PZE **,1 F6B00250 04305 0 00000 1 00000 RGSFD PZE **,1 ORIGIN FOR LIBRARY SECONDARY FOUND LIST F6B00260 04306 0 00000 2 00000 RGCRD PZE **,2,** ORIGIN FOR LIBRARY PROGRAM OR DATA CARD F6B00270 04307 0 00000 2 00000 PZE **,2 F6B00280 04310 0 00000 2 00000 PZE **,2 F6B00290 04311 0 00000 2 00000 RGSTL PZE **,2 ORIGIN FOR BCD VARIABLE NAMES F6B00300 04312 0 00000 2 00000 PZE **,2 F6B00310 04313 0 00000 2 00000 RGSTR PZE **,2 ORIGIN FOR BINARY LOCATIONS, FLAGS F6B00320 04314 0 00000 0 00000 RGSAP PZE ORIGIN FOR WORD IN MACHINE LANGUAGE FORM F6B00330 F6B00340 04315 DUP 1,10 PATCH SPACE FOR ORIGINS AND ERASABLE F6B00350 04315 0 00000 0 00000 PZE F6B00360 F6B00370 ERASEABLE STORAGE F6B00380 04327 0 00000 0 00000 CITSL PZE CIT SYMBOLIC LOCATION F6B00390 04330 0 00000 0 00000 CITOP PZE CIT OPCOD, DECREMENT F6B00400 BINARY CARD NO. 9F310003 04331 0 00000 0 00000 CITSA PZE CIT SYMBOLIC ADDRESS F6B00410 04332 0 00000 0 00000 CITRA PZE CIT RELATIVE ADDRESS, TAG F6B00420 04333 0 00000 0 00000 ADDRS PZE ERASABLE ADDRESS FIELD F6B00430 04334 0 00000 0 00000 BILOC PZE ERASABLE ADDRESS FIELD F6B00440 04335 0 00000 0 00000 EFADD PZE EFFECTIVE ADDRESS FOR OBJECT PROGRAM F6B00450 04336 0 00000 0 00000 ERASE PZE ERASABLE FULL WORD F6B00460 04337 0 00000 0 00000 ERAS1 PZE ERASABLE FULL WORD F6B00470 04340 0 00000 0 00000 ERAS2 PZE ERASABLE FULL WORD F6B00480 04341 0 00000 0 00000 ERAS3 PZE ERASABLE FULL WORD F6B00490 04342 0 00000 0 00000 LOCTR PZE PROGRAM LOCATION COUNTER F6B00500 04343 0 00000 0 00000 RLBIT PZE BINARY RELOCATION BITS F6B00510 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 43 04344 0 00000 0 00000 IDBUF PZE F6B00520 04345 0 00000 0 00000 PZE F6B00530 04346 0 00000 0 00000 PZE F6B00540 04347 TBUFF DUP 1,24 $F6B00541 04347 0 00000 0 00000 PZE $F6B00542 BINARY CARD NO. 9F310004 04377 0 00000 0 00000 PCH9L PZE F6B00550 04400 0 00000 0 00000 PCH9R PZE F6B00560 04401 0 00000 0 00000 PCH8L PZE F6B00570 04402 0 00000 0 00000 PCH8R PZE F6B00580 04403 DUP 1,20 F6B00590 04403 0 00000 0 00000 PZE F6B00600 BINARY CARD NO. 9F310005 04427 LINEB SYN * THIS BUFFER USED FOR MAPPING. F6B00610 04452 PBUFF SYN LINEB+19 NOT AVAILABLE AFTER LISTING BEGINS F6B00620 F6B00630 04427 0 00000 0 00000 WORD1 PZE MACHINE LANGUAGE LINE IMAGE F6B00640 04430 0 00000 0 00000 WORD2 PZE F6B00650 04431 0 00000 0 00000 WORD3 PZE F6B00660 04432 0 00000 0 00000 WORD4 PZE F6B00670 BINARY CARD NO. 9F310006 04433 0 00000 0 00000 WORD5 PZE F6B00680 04434 0 00000 0 00000 WORD6 PZE F6B00690 04435 0 00000 0 00000 WORD7 PZE F6B00700 04436 0 00000 0 00000 WORD8 PZE F6B00710 04437 0 00000 0 00000 WORD9 PZE F6B00720 04440 0 00000 0 00000 WORD0 PZE F6B00730 F6B00740 04441 SAPBF SYN * BCD OUTPUT BUFFER, OVERWRITES DEAD CODING F6B00750 06465 ENDSB SYN SAPBF+1044 ALLOW FOR MAX OF 58 LINES + PAGE HEADING F6B00760 F6B00770 06465 PBUF1 SYN ENDSB STACKED BINARY OUTPUT BUFFER 1 F6B00772 06520 PBUF2 SYN PBUF1+27 STACKED BINARY OUTPUT BUFFER 2 F6B00774 06553 PBUF3 SYN PBUF2+27 PUNCH BINARY OUTPUT BUFFER 1 F6B00776 06603 PBUF4 SYN PBUF3+24 PUNCH BINARY OUTPUT BUFFER 2 F6B00778 06633 ENDBF SYN PBUF4+24 END OF PASS 2 BUFFERS F6B00780 F6B00782 F6B00784 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 44 INITIALIZATION 04441 0761 00 0 00000 START NOP PATCH IN SWT FOR DEBUGGING F6B00790 04442 0020 00 0 04444 TRA *+2 F6B00800 04443 0420 00 0 00034 HPR 28 F6B00810 04444 0500 60 0 73660 CLA* ORGFLG LOAD MONITOR FLAGS F6B00820 04445 0120 00 0 04450 TPL *+3 IS THIS SINGLE COMPILE F6B00822 04446 -0634 00 0 11112 ZSD PNCH3 NO, SET SWITCH FOR BINARY STACK TAPE. F6B00824 04447 -0520 00 0 04201 NZT XSWCH1 ARE ONLINE CARDS REQUESTED F6B00830 04450 -0634 00 0 11200 ZSD PNCH8 YES, SET SWITCH FOR BINARY PUNCH TAPE. F6B00840 04451 -0120 00 0 04470 TMI PINIT IS THIS SINGLE COMPILE F6B00850 04452 0774 00 4 00002 AXT SLSTAP,4 YES, RESET LISTING TAPE TO SINGLE COMPILE F6B00860 04453 -0634 00 4 10740 SXD WRITT,4 F6B00870 04454 -0500 00 0 11453 CAL D(2) RESET PARAMETERS FOR DECIMAL SOURCE FILE. F6B00872 04455 -0602 00 0 04661 ORS RDNP1 F6B00874 04456 -0602 00 0 07033 ORS RDNP2 F6B00875 04457 -0602 00 0 04673 ORS LSTRR+1 F6B00876 04460 -0602 00 0 04701 ORS FFIL0+1 F6B00878 BINARY CARD NO. 9F310007 04461 0600 00 0 11532 STZ FINPT DELETE REFERENCE TO SOURCE PROGRAM LABEL F6B00879 04462 -0754 00 0 00000 ZAC F6B00880 04463 0560 00 0 04302 LDQ XLABEL PICK UP FIRST WORD OF FIRST CARD F6B00890 04464 -0763 00 0 00006 LGL 6 ISOLATE FIRST CHARACTER F6B00900 04465 0402 00 0 11513 SUB L(C) IS IT COMMENTS CARD F6B00910 04466 -0100 00 0 04514 TNZ LINT1 NO F6B00920 04467 0020 00 0 04507 TRA LINIT YES F6B00930 F6B00940 INITIALIZE PAGE HEADING F6B00950 04470 0074 00 4 73606 PINIT TSX (TAPE),4 *BACKSPACE OVER PAGE HEADING F6B00960 04471 0 20002 0 11032 PZE BKSPC,,(SKDP) F6B00970 04472 0 00006 0 00000 PZE ,,MLSTAP F6B00980 04473 0074 00 4 73606 TSX (TAPE),4 *READ PAGE HEADING F6B00990 04474 0 40012 0 04476 PZE *+2,,(RDNC) F6B01000 04475 0 00006 0 00000 PZE ,,MLSTAP F6B01010 04476 3 00022 0 04260 IORT XPGHED,,18 (NOP) F6B01020 04477 0074 00 4 73606 TSX (TAPE),4 *BACKSPACE OVER PAGE HEADING F6B01030 04500 0 20002 0 11032 PZE BKSPC,,(SKDP) F6B01040 04501 0 00006 0 00000 PZE ,,MLSTAP F6B01050 04502 0502 00 0 11425 CLS L(1) SET POSITION OF LIST TAPE FOLLOWING HDG $F6B01060 04503 0601 00 0 03775 STO XLSTCT F6B01070 04504 0441 60 0 73661 LDI* ORGLCT LOAD MONITOR COMMENTS FLAG F6B01080 04505 -0056 00 100000 LNT 100000 WAS FIRST CARD COMMENTS CARD F6B01090 04506 0020 00 0 04514 TRA LINT1 NO F6B01100 F6B01110 INITIALIZE CARD LABEL F6B01120 BINARY CARD NO. 9F310008 04507 -0500 00 0 04261 LINIT CAL XPGHED+1 LOAD POSSIBLE LABEL F6B01130 04510 0560 00 0 04262 LDQ XPGHED+2 F6B01140 04511 -0763 00 0 00006 LGL 6 F6B01150 04512 -0340 00 0 11522 LAS BLNKS WAS A LABEL ASSIGNED F6B01160 04513 0020 00 0 04515 TRA *+2 YES F6B01170 04514 -0500 00 0 04251 LINT1 CAL XPCD7L NO, PICK UP NAME OF SUBPROGRAM, IF ANY F6B01180 04515 0602 00 0 04302 SLW XLABEL THIS IS CARD LABEL F6B01190 F6B01200 INITIALIZE SENSE SWITCH OPTIONS F6B01210 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 45 INITIALIZATION 04516 0520 00 0 04207 ZET XSWCH7 IS CARD LABEL REQUESTED F6B01212 04517 0020 00 0 04522 TRA *+3 YES F6B01214 04520 -0634 00 0 11346 ZSD BOTIO NO, RESET I/O COMMANDS F6B01216 04521 -0634 00 0 11350 ZSD BOTIO+2 TO OMIT WRITTING CARD LABELS. F6B01219 04522 -0520 00 0 04211 NZT XSWCH9 ARE OFFLINE ROW BINARY CARDS REQUESTED F6B01220 04523 0020 00 0 04533 TRA *+8 NO. F6B01222 04524 0774 00 4 40031 AXT (WROW),4 YES, RESET PARAMETER TO OFFLINE ROW BINARYF6B01224 04525 -0634 00 4 11164 SXD PNCH6,4 F6B01226 04526 -0634 00 4 11172 SXD PNCH7+1,4 F6B01228 04527 0600 00 0 11361 STZ OFLCB DELETE OFFLINE COLUMN BINARY BITS F6B01230 04530 0520 00 0 04251 ZET XPCD7L IS THIS A MAIN PROGRAM F6B01231 04531 0020 00 0 04533 TRA *+2 NO F6B01232 04532 0074 00 4 11261 TSX BSSCD,4 YES, WRITE BSS LOADER OF LINE ROW BINARY. F6B01233 04533 -0520 00 0 04212 NZT XSWC10 IS BLOCKED LISTING TAPE REQUESTED F6B01234 04534 0020 00 0 04537 TRA *+3 NO F6B01235 BINARY CARD NO. 9F310009 04535 -0634 00 0 10704 ZSD BLKQT YES, SET TESTS F6B01236 04536 0020 00 0 04541 TRA *+3 F6B01237 04537 0500 00 0 10720 CLA LINES+3 NO, SET TEST. F6B01238 04540 0602 00 0 10720 SLW LINES+3 F6B01239 04541 -0520 00 0 04201 NZT XSWCH1 ARE ONLINE CARDS REQUESTED F6B01240 04542 0520 00 0 04204 ZET XSWCH4 YES, ARE ONLINE ROW BINARY CARDS REQUESTEDF6B01250 04543 0020 00 0 04555 TRA STRT1 NO F6B01260 04544 0500 00 0 07064 CLA EOF04 YES, RESET PARAMETER TO ONLINE ROW BINARY F6B01270 04545 0602 00 0 07064 SLW EOF04 F6B01280 04546 0600 00 0 11367 STZ BITBF DELETE ONLINE COLUMN BINARY BITS F6B01290 04547 0520 00 0 04251 ZET XPCD7L IS THIS A SUBPROGRAM F6B01300 04550 0020 00 0 04555 TRA STRT1 YES F6B01310 04551 0074 00 4 73614 TSX (PNCH),4 *NO, PUNCH BINARY LOADER F6B01320 04552 0 00330 0 12647 PZE LOADR,,ENDLD-LOADR F6B01330 04553 0074 00 4 73614 TSX (PNCH),4 DELAY WHILE WRITING BSS LOADER F6B01332 04554 0 00000 0 00000 PZE TO PREVENT OVERWRITE OF BUFFER. F6B01333 04555 0500 00 0 73651 STRT1 CLA (PGCT) LOAD MAXIMUM NUMBER OF LINES ON PAGE F6B01340 04556 -0734 00 4 00000 PDX ,4 INITIALIZE PAGE HEADING ROUTINE F6B01350 04557 0634 00 4 10660 SXA HDPCT,4 F6B01360 04560 0622 00 0 06757 STD EOF00+3 INITIALIZE FINAL PAGE LENGTH COMPUTATIONS F6B01370 04561 0622 00 0 06763 STD EOF01 F6B01380 04562 0622 00 0 06770 STD REMAN+1 F6B01390 BINARY CARD NO. 9F310010 04563 0767 00 0 00001 ALS 1 F6B01400 04564 0622 00 0 06754 STD EOF00 INITIALIZE TWO COLUMNS FULL TEST F6B01410 04565 -0520 00 0 04210 NZT XSWCH8 IS BINARY WORD REQUESTED F6B01420 04566 0020 00 0 04572 TRA *+4 NO F6B01430 04567 0774 00 2 00011 AXT 9,2 YES, RESET I/O PARAMETERS TO WRITE F6B01440 04570 -0634 00 2 06772 SXD LOC02,2 EXTENDED LISTING F6B01450 04571 -0634 00 2 07003 SXD EOF02+1,2 F6B01480 04572 0500 00 0 73651 CLA (PGCT) LOAD MAXIMUM NUMBER OF LINES ON PAGE F6B01490 04573 0622 00 0 10307 STD COLFL+1 INITIALIZE COLUMN ONE TEST F6B01500 04574 0767 00 0 00001 ALS 1 INITIALIZE COLUMN TWO TEST. F6B01510 04575 0622 00 0 10310 STD COLFL+2 F6B01520 04576 0622 00 0 06752 STD LSTHD INITIALIZE LAST PAGE HEADING TEST $F6B01530 04577 0400 00 0 11452 ADD D(1) $F6B01540 04600 0622 00 0 10312 STD COLFL+4 INITIALIZE COLUMN THREE TEST $F6B01541 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 46 INITIALIZATION 04601 0500 00 0 73651 CLA (PGCT) F6B01550 04602 0402 00 0 11452 SUB D(1) F6B01560 04603 0622 00 0 10306 STD COLFL INITIALIZE COLUMN FULL TEST F6B01570 04604 0402 00 0 11452 SUB D(1) F6B01580 04605 0622 00 0 10326 STD ONEFL-1 INITIALIZE FULL COLUMN RESET. F6B01590 04606 0767 00 0 00001 ALS 1 F6B01600 04607 0400 00 0 11453 ADD D(2) F6B01601 04610 0622 00 0 10330 STD ONEFL+1 INITIALIZE COLUMN FULL TEST INCREMENT. F6B01610 BINARY CARD NO. 9F310011 04611 0400 00 0 73651 ADD (PGCT) F6B01620 04612 0400 00 0 11452 ADD D(1) F6B01621 04613 0622 00 0 10321 STD WRTIO+4 INITIALIZE FULL PAGE TEST. F6B01622 04614 0534 00 4 73651 LXA (PGCT),4 LOAD RESTRICTED PAGE WIDTH FLAG F6B01630 04615 -0520 00 0 04210 NZT XSWCH8 IS BINARY WORD REQUESTED F6B01640 04616 -3 00000 4 04647 TXL INITW,4,0 NO, IS PAGE WIDTH RESTRICTED F6B01641 04617 -0634 00 0 10310 ZSD COLFL+2 YES, RESET F6B01650 04620 -0634 00 0 10330 ZSD ONEFL+1 FULL PAGE F6B01651 04621 0500 00 0 73651 CLA (PGCT) TESTS F6B01652 04622 0622 00 0 06752 STD LSTHD INITIALIZE LAST PAGE HEADING TEST $F6B01653 04623 0400 00 0 11452 ADD D(1) $F6B01654 04624 0622 00 0 10312 STD COLFL+4 $F6B01655 04625 0400 00 0 11452 ADD D(1) $F6B01657 04626 0400 00 0 73651 ADD (PGCT) TWO F6B01658 04627 0402 00 0 11454 SUB D(3) F6B01659 04630 0622 00 0 10321 STD WRTIO+4 COLUMNS. F6B01660 04631 -0520 00 0 04210 NZT XSWCH8 IS BINARY WORD REQUESTED F6B01670 (XR2 CONTAINS ONE EXTENDED COLUMN COUNT) F6B01680 04632 0774 00 2 00014 AXT 12,2 NO, LOAD TWO STANDARD COLUMN WORD COUNT F6B01690 04633 -3 00000 4 04647 TXL INITW,4,0 IS PAGE WIDTH RESTRICTED F6B01700 04634 -0634 00 2 10315 SXD WRTIO,2 YES, RESET PARAMETER TO PRINT NARROW PAGE.F6B01710 04635 -0520 00 0 04210 NZT XSWCH8 IS BINARY WORD REQUESTED ON NARROW PAGE $F6B01712 04636 0020 00 0 04641 TRA *+3 NO $F6B01720 BINARY CARD NO. 9F310012 04637 -0634 00 0 10307 ZSD COLFL+1 YES, CHANGE COL. ONE TEST $F6B01730 04640 0020 00 0 13206 TRA CCCCC $F6B01731 04641 0774 00 2 00014 AXT 12,2 RESET MAPPING TO THREE TETRADS PER LINE $F6B01740 04642 -0634 00 2 10673 SXD WRCT1,2 $F6B01750 04643 -0634 00 2 10554 SXD IOLIN,2 RESET MAPPING PARAMETER F6B01760 04644 1 77754 2 04645 TXI *+1,2,-20 F6B01770 04645 0754 00 2 00000 PXA ,2 (20)F6B01780 04646 0020 00 0 13234 TRA GGGGG GO TO PATCH (20)F6B01790 04647 0774 00 2 77767 INITW AXT -9,2 LOAD COLUMN COUNTER FOR BINARY WORD F6B01810 04650 0520 00 0 04210 ZET XSWCH8 IS BINARY WORD REQUESTED F6B01820 04651 0634 00 2 10327 SXA ONEFL,2 YES, RESET COLUMN COUNTER. F6B01830 04652 -0520 00 0 04203 NZT XSWCH3 IS ON LINE PRINT REQUESTED F6B01840 04653 0020 00 0 04723 TRA FFIL2+3 NO F6B01850 F6B01860 PRINT FIRST FILE ON LINE F6B01870 04654 0774 00 2 00001 AXT 1,2 INITIALIZE BUFFER INDEX TO FIRST BUFFER. $F6B01880 04655 0774 00 1 00001 AXT 1,1 $F6B01885 04656 -0754 00 1 00000 PXD ,1 RESET PAGE COUNT TO 1 F6B01890 04657 0622 60 0 73661 STD* ORGLCT F6B01900 04660 0074 00 4 73606 TSX (TAPE),4 *READ IN FIRST CARD F6B01910 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 47 INITIALIZATION 04661 0 40000 2 11476 RDNP1 PZE FFILI,2,(RBNP) F6B01920 04662 0 00002 0 11532 PZE FINPT,,TABTAP F6B01930 04663 0 00000 0 04672 PZE LSTRR F6B01940 04664 -0500 00 0 11522 CAL BLNKS SET FIRST WORD OF EACH BUFFER BLANK F6B01950 BINARY CARD NO. 9F310013 04665 0602 60 0 07536 SLW* RDCBF-1 F6B01960 04666 0602 60 0 07535 SLW* RDCBF-2 F6B01970 04667 -0500 00 0 11521 CAL EJECT F6B01980 04670 0602 00 0 04301 SLW XPGHED+17 F6B01990 04671 0020 00 0 04700 TRA FFIL0 F6B02000 ERROR ON LISTING TAPE F6B02010 04672 0074 00 4 73606 LSTRR TSX (TAPE),4 *SKIP BAD RECORD F6B02020 04673 0 20000 0 11425 PZE L(1),,(SKBP) F6B02030 04674 0 00002 0 00000 PZE ,,TABTAP F6B02040 04675 -0 00000 0 04676 MZE *+1 F6B02041 04676 0074 00 4 73611 TSX (PRNT),4 *WRITE 'LINE DELETED' ONLINE F6B02050 04677 0 00004 0 06311 PZE LSTRM,,4 F6B02060 REENTRY TO FILL NEXT BUFFER F6B02070 04700 0074 00 4 73606 FFIL0 TSX (TAPE),4 *READ IN NEXT CARD F6B02080 04701 0 40004 2 11477 PZE FFILI+1,2,(RBEP) F6B02090 04702 0 00002 0 11532 PZE FINPT,,TABTAP F6B02100 04703 0 00000 0 04672 PZE LSTRR F6B02110 04704 -0500 00 2 11476 CAL FFILI,2 PICK UP LOAD POINT FOR NEXT CARD F6B02120 04705 0402 00 0 11425 SUB L(1) INCLUDE WORD OF BLANKS F6B02130 04706 0621 00 0 04720 STA FFIL2 INITIALIZE WRITEOUT PARAMETER F6B02140 04707 0737 00 4 00000 PAC ,4 PREPARE FOR WORD COUNT COMPUTATION F6B02150 04710 -0634 00 4 04713 SXD FFIL1,4 F6B02160 04711 0534 00 4 73674 LXA (SCHU)+TABTAP,4 LOAD LAST+1 WORD READ F6B02170 04712 -3 00000 4 04723 TXL FFIL2+3,4,0 WAS END OF FILE SENSED F6B02180 BINARY CARD NO. 9F310014 04713 1 00000 4 04714 FFIL1 TXI *+1,4,** NO, COMPUTE WORD COUNT F6B02190 04714 -0634 00 4 04720 SXD FFIL2,4 INITIALIZE WRITEOUT PARAMETER F6B02200 04715 2 00001 1 04717 TIX *+2,1,1 IS PAGE FULL F6B02210 04716 0074 00 4 10631 TSX HEDPG,4 *YES, PRINT PAGE HEADING F6B02220 04717 0074 00 4 73611 TSX (PRNT),4 *PRINT THIS LINE F6B02230 04720 0 00000 0 00000 FFIL2 PZE **,,** F6B02240 04721 2 00001 2 04700 TIX FFIL0,2,1 IS FIRST BUFFER DONE F6B02250 04722 1 00001 2 04700 TXI FFIL0,2,1 YES, BUMP TO SECOND BUFFER F6B02260 04723 -0634 00 0 10702 ZSD WRIT3 RESET FIRST FILE SWITCH. F6B02270 F6B02280 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 48 CONTROL ROUTINES FOR MAPPING MAP STORAGE NOT USED BY PROGRAM F6B02290 04724 0074 00 4 10557 TSX WRITE,4 *WRITE STORAGE NOT USED TITLE F6B02300 04725 -1 00015 0 06454 IOCT SNTIT,,13 $F6B02310 04726 0074 00 4 10557 TSX WRITE,4 *WRITE SHORT DEC-OCT HEADING F6B02320 04727 -1 00010 0 06157 IOCT DOHED,,8 $F6B02330 04730 0560 00 0 11522 LDQ BLNKS SET SECOND WORD BLANK F6B02340 04731 0500 00 0 04247 CLA XPCD8L GET PROGRAM BREAK F6B02350 04732 0074 00 4 10521 TSX LINE1,4 *CONVERT IT TO LINE IMAGE ENTRY F6B02360 04733 0560 00 0 11522 LDQ BLNKS SET SECOND WORD BLANK F6B02370 04734 0500 00 0 04250 CLA XPCD8R GET COMMON BREAK F6B02380 04735 0074 00 4 10521 TSX LINE1,4 *CONVERT IT TO LINE IMAGE ENTRY F6B02390 04736 0074 00 2 10603 TSX WRIPL,2 *WRITE PARTIAL LINE F6B02400 F6B02410 MAP STORAGE FOR VARIABLES IN COMMON F6B02420 04737 -0534 00 2 04060 LXD XDEVTL,2 GET DEV TABLE COUNT F6B02430 04740 0441 60 0 04223 MAPC1 LDI* ORGDEA PICK UP FLAGS F6B02440 BINARY CARD NO. 9F310015 04741 0054 00 400000 RFT 400000 IS THIS FORSUB, CLOSUB, ARGUMENT NAME OR $F6B02450 04742 0020 00 0 04762 TRA MAPC3 YES F6B02460 04743 0500 60 0 04223 CLA* ORGDEA NO, GET NEXT ADDRESS IN DEA F6B02470 04744 -0320 00 0 11446 ANA ADMSK MASK OUT FLAGS F6B02480 04745 0340 00 0 04250 CAS XPCD8R IS VARIABLE IN COMMON F6B02490 04746 0020 00 0 04751 TRA *+3 YES F6B02500 04747 0020 00 0 04762 TRA MAPC3 NO F6B02510 04750 0020 00 0 04762 TRA MAPC3 NO F6B02520 04751 3 77777 2 04760 TXH MAPC2,2,-1 YES, HAS TITLE BEEN WRITTEN F6B02530 04752 -0634 00 0 04751 ZSD *-1 NO, RESET SWITCH. F6B02540 04753 0074 00 4 10557 TSX WRITE,4 *WRITE COMMON TITLE F6B02550 04754 -1 00020 0 06471 IOCT CMTIT,,16 $F6B02560 04755 0074 00 4 10557 TSX WRITE,4 *WRITE DEC-OCT HEADING F6B02570 04756 -1 00024 0 06157 IOCT DOHED,,20 $F6B02580 04757 0500 60 0 04223 CLA* ORGDEA GET ADDRESS AGAIN F6B02590 04760 0560 60 0 04221 MAPC2 LDQ* ORGDEV GET VARIABLE NAME F6B02600 04761 0074 00 4 10521 TSX LINE1,4 *CONVERT TO LINE IMAGE ENTRY F6B02610 04762 2 00001 2 04740 MAPC3 TIX MAPC1,2,1 IS DEV TABLE EXHAUSTED F6B02620 04763 0074 00 2 10603 TSX WRIPL,2 *YES, WRITE OFF LAST PARTIAL LINE F6B02630 F6B02640 MAP VARIABLES IN DIMENSION AND EQUIVALENCE F6B02650 04764 -0534 00 2 04060 LXD XDEVTL,2 GET DEV TABLE COUNT F6B02660 04765 0441 60 0 04223 MAPD1 LDI* ORGDEA PICK UP FLAGS F6B02670 04766 0054 00 400000 RFT 400000 IS THIS FORSUB, CLOSUB, ARGUMENT NAME OR $F6B02680 BINARY CARD NO. 9F310016 04767 0020 00 0 05006 TRA MAPD3 YES F6B02690 04770 0500 60 0 04223 CLA* ORGDEA NO, GET NEXT ADDRESS IN DEA F6B02700 04771 -0320 00 0 11446 ANA ADMSK MASK OUT FLAGS F6B02710 04772 0340 00 0 04250 CAS XPCD8R IS VARIABLE IN COMMON F6B02720 04773 0020 00 0 05006 TRA MAPD3 NO F6B02730 04774 0020 00 0 04775 TRA *+1 YES F6B02740 04775 3 77777 2 05004 TXH MAPD2,2,-1 YES, HAS TITLE BEEN WRITTEN F6B02750 04776 -0634 00 0 04775 ZSD *-1 NO, RESET SWITCH F6B02760 04777 0074 00 4 10557 TSX WRITE,4 *WRITE DIMENSION EQUIVALENCE TITLE F6B02770 05000 -1 00022 0 06511 IOCT DETIT,,18 $F6B02780 05001 0074 00 4 10557 TSX WRITE,4 *WRITE DEC-OCT HEADING F6B02790 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 49 CONTROL ROUTINES FOR MAPPING 05002 -1 00024 0 06157 IOCT DOHED,,20 $F6B02800 05003 0500 60 0 04223 CLA* ORGDEA GET ADDRESS AGAIN F6B02810 05004 0560 60 0 04221 MAPD2 LDQ* ORGDEV GET VARIABLE SYMBOL F6B02820 05005 0074 00 4 10521 TSX LINE1,4 *CONVERT TO LINE IMAGE ENTRY F6B02830 05006 2 00001 2 04765 MAPD3 TIX MAPD1,2,1 IS DEV TABLE EXHAUSTED F6B02840 05007 0074 00 2 10603 TSX WRIPL,2 *YES, WRITE OFF LAST PARTIAL LINE F6B02850 F6B02860 MAP VARIABLES NOT IN COMMON OR DIMENSION F6B02870 05010 -0534 00 2 04077 LXD XTEVTL,2 GET TEV TABLE COUNT F6B02880 05011 -3 00000 2 05024 TXL MAPT2+2,2,0 IS TEV TABLE EMPTY F6B02890 05012 0074 00 4 10557 TSX WRITE,4 *NO, WRITE OTHER VARIABLES TITLE F6B02900 05013 -1 00022 0 06533 IOCT TETIT,,18 $F6B02910 05014 0074 00 4 10557 TSX WRITE,4 *WRITE DEC-OCT HEADING F6B02920 BINARY CARD NO. 9F310017 05015 -1 00024 0 06157 IOCT DOHED,,20 $F6B02930 05016 0754 00 2 00000 MAPT1 PXA ,2 COMPUTE ADDRESS OF TEV ENTRY F6B02940 05017 0400 00 0 04254 ADD XTEVBS F6B02950 05020 0560 60 0 04225 LDQ* ORGTEV GET VARIABLE SYMBOL F6B02960 05021 0074 00 4 10521 TSX LINE1,4 *CONVERT TO LINE IMAGE ENTRY F6B02970 05022 2 00001 2 05016 MAPT2 TIX MAPT1,2,1 IS TEV TABLE EXHAUSTED F6B02980 05023 0074 00 2 10603 TSX WRIPL,2 *YES, WRITE OFF LAST PARTIAL LINE F6B02990 F6B03000 MAP FORMAT STATEMENT NUMBERS F6B03010 05024 -0534 00 4 04222 LXD ORGDEV+1,4 ARE THERE ANY FORMAT STATEMENTS F6B03020 05025 -3 00000 4 05060 TXL MAPM3+5,4,0 NO F6B03030 05026 0074 00 4 10557 TSX WRITE,4 *WRITE FORMAT TITLE F6B03040 05027 -1 00020 0 06556 IOCT FMTIT,,16 $F6B03050 05030 0074 00 4 10557 TSX WRITE,4 *WRITE EFN-LOC HEADING F6B03060 05031 -1 00024 0 06203 IOCT ELHED,,20 $F6B03070 05032 0500 00 0 05050 CLA MAPM2 RESET LINE ROUTINE FOR OCTAL LOCATION F6B03080 05033 0621 00 0 10542 STA LINE4 F6B03090 05034 -0534 00 2 04120 LXD XTIVTL,2 GET TIV TABLE COUNT F6B03100 05035 1 00002 2 05036 TXI *+1,2,2 F6B03110 05036 0560 60 0 04230 MAPM1 LDQ* ORGTIV GET NEXT TIV ENTRY F6B03120 05037 -0754 00 0 00000 ZAC F6B03130 05040 -0763 00 0 00004 LGL 4 ISOLATE FIRST CHARACTER F6B03140 05041 0340 00 0 11430 CAS L(8) IS IT FORMAT SYMBOL F6B03150 05042 0020 00 0 05053 TRA MAPM3 NO F6B03160 BINARY CARD NO. 9F310018 05043 0020 00 0 05045 TRA *+2 YES F6B03170 05044 0020 00 0 05053 TRA MAPM3 NO F6B03180 05045 0074 00 4 10362 TSX TIVSM+1,4 *CONVERT TO PSEUDOSYMBOL F6B03190 05046 -0130 00 0 00000 XCL F6B03200 05047 0500 60 0 04230 CLA* ORGTIV GET ADDRESS OF PSEUDOSYMBOL F6B03210 05050 0621 00 0 04334 MAPM2 STA BILOC SAVE ADDRESS F6B03220 05051 0771 00 0 00017 ARS 15 GET EFN F6B03230 05052 0074 00 4 10521 TSX LINE1,4 *CONVERT TO LINE IMAGE ENTRY F6B03240 05053 1 00001 2 05054 MAPM3 TXI *+1,2,1 BUMP TABLE COUNT F6B03250 05054 3 00000 2 05036 TXH MAPM1,2,0 IS TABLE EXHAUSTED F6B03260 05055 0074 00 2 10603 TSX WRIPL,2 *YES, WRITE OFF LAST PARTIAL LINE F6B03270 05056 0500 00 0 10522 CLA LINE1+1 RESET LINE ROUTINE FOR OCTAL LOCATION F6B03280 05057 0621 00 0 10542 STA LINE4 F6B03290 F6B03300 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 50 CONTROL ROUTINES FOR MAPPING MAP INTERNAL SYMBOLS F6B03310 05060 0074 00 4 10557 TSX WRITE,4 *WRITE INTERNAL SYMBOL TITLE F6B03320 05061 -1 00020 0 06576 IOCT TITIT,,16 $F6B03330 05062 0074 00 4 10557 TSX WRITE,4 *WRITE DEC-OCT HEADING F6B03340 05063 -1 00024 0 06157 IOCT DOHED,,20 $F6B03350 05064 -0534 00 2 04120 LXD XTIVTL,2 GET TIV TABLE COUNT F6B03360 05065 1 00002 2 05066 TXI *+1,2,2 F6B03370 05066 0560 60 0 04230 MAPI1 LDQ* ORGTIV GET NEXT TIV ENTRY F6B03380 05067 -0754 00 0 00000 ZAC F6B03390 05070 -0763 00 0 00004 LGL 4 ISOLATE FIRST CHARACTER F6B03400 BINARY CARD NO. 9F310019 05071 0100 00 0 05101 TZE MAPI2 IS THIS SUBIFN F6B03410 05072 0340 00 0 11430 CAS L(8) NO, IS IT FORMAT SYMBOL F6B03420 05073 0020 00 0 05075 TRA *+2 NO F6B03430 05074 0020 00 0 05101 TRA MAPI2 YES F6B03440 05075 0074 00 4 10362 TSX TIVSM+1,4 *CONVERT TO PSEUDOSYMBOL F6B03450 05076 -0130 00 0 00000 XCL F6B03460 05077 0500 60 0 04230 CLA* ORGTIV GET ADDRESS OF PSEUDOSYMBOL F6B03470 05100 0074 00 4 10521 TSX LINE1,4 *CONVERT TO LINE IMAGE ENTRY F6B03480 05101 1 00001 2 05102 MAPI2 TXI *+1,2,1 BUMP TABLE COUNT F6B03490 05102 3 00000 2 05066 TXH MAPI1,2,0 IS TABLE EXHAUSTED F6B03500 05103 0074 00 2 10603 TSX WRIPL,2 *YES, WRITE OFF LAST PARTIAL LINE F6B03510 F6B03520 MAP TRANSFER VECTOR F6B03530 RECONSTRUCT CLOSUB TABLE FROM SEARCH OF DEV F6B03540 05104 -0534 00 2 04247 LXD XPCD8L,2 LOAD TRANSFER VECTOR COUNT F6B03550 05105 -3 00000 2 05136 TXL MAPV3+2,2,0 IS TRANSFER VECTOR EMPTY F6B03560 05106 -0634 00 2 05111 SXD *+3,2 F6B03570 05107 0534 00 2 03734 LXA XMEMRY,2 INITIALIZE ORIGIN AT END OF CLOSUB TABLE F6B03580 05110 0634 00 2 05132 SXA MAPV2,2 F6B03590 05111 1 00000 2 05112 TXI *+1,2,** F6B03600 05112 0634 00 2 04231 SXA ORGCLO,2 F6B03610 05113 -0634 00 2 05115 SXD *+2,2 CHECK FOR TABLE OVERLAP F6B03620 05114 0534 00 2 04230 LXA ORGTIV,2 F6B03630 05115 3 00000 2 05117 TXH *+2,2,** DID TABLES OVERLAP F6B03640 05116 0074 00 4 03744 TSX XERR08,4 *YES F6B03650 BINARY CARD NO. 9F310020 05117 0074 00 4 10557 TSX WRITE,4 *WRITE TRANSFER VECTOR TITLE F6B03660 05120 -1 00016 0 06616 IOCT TVTIT,,14 $F6B03670 05121 0074 00 4 10557 TSX WRITE,4 *WRITE DEC-OCT HEADING F6B03680 05122 -1 00024 0 06157 IOCT DOHED,,20 $F6B03690 05123 -0534 00 2 04060 LXD XDEVTL,2 GET DEV TABLE COUNT F6B03700 05124 0441 60 0 04223 MAPV1 LDI* ORGDEA PICK UP FLAGS F6B03710 05125 -0056 00 100000 LNT 100000 IS THIS TRANSFER VECTOR NAME F6B03720 05126 0020 00 0 05134 TRA MAPV3 NO F6B03730 05127 0500 60 0 04223 CLA* ORGDEA YES, GET NEXT ADDRESS IN DEA F6B03740 05130 0560 60 0 04221 LDQ* ORGDEV GET ENTRY POINT NAME F6B03750 05131 0737 00 4 00000 PAC ,4 COMPUTE POSITION IN CLOSUB TABLE F6B03760 05132 -0600 00 4 00000 MAPV2 STQ **,4 INSERT IN PROPER POSITION F6B03770 05133 0074 00 4 10521 TSX LINE1,4 *CONVERT TO LINE IMAGE ENTRY F6B03780 05134 2 00001 2 05124 MAPV3 TIX MAPV1,2,1 IS DEV TABLE EXHAUSTED F6B03790 05135 0074 00 2 10603 TSX WRIPL,2 *YES, WRITE OFF LAST PARTIAL LINE F6B03800 F6B03810 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 51 CONTROL ROUTINES FOR LIBRARY SEARCH AND MAPPING SEARCH LIBRARY FILE FOR NAMES OF SUBPROGRAMS IN F6B03820 SOURCE PROGRAM TRANSFER VECTOR F6B03830 A PASS IS MADE OVER THE LIBRARY FILE TO EXAMINE LIBRARY F6B03840 SUBROUTINE PROGRAM CARDS AND TRANSFER VECTORS. IF A F6B03850 LIBRARY SUBROUTINE IS FOUND TO BE REQUIRED, IT IS ADDED F6B03860 TO THE BINARY OUTPUT, AND ITS TRANSFER VECTOR IS ADDED F6B03870 TO A SECONDARY LOOKFOR LIST. ADDITIONAL PASSES ARE MADE F6B03880 UNTIL ONE OF THE FOLLOWING CONDITIONS IS MET F6B03890 1) DURING A PASS, THE SOURCE PROGRAM TRANSFER VECTOR AND F6B03900 THE SECONDARY LOOKFOR LISTS ARE SATISFIED F6B03910 2) AT THE END OF A PASS (END OF LIBRARY FILE) THE F6B03920 SECONDARY LOOKFOR LIST IS SATISFIED OR NO NAMES WERE F6B03930 ADDED TO THE SECONDARY LOOKFOR LIST DURING THE PASS F6B03940 DURING A PASS, THE NAMES OF PRIMARY ENTRY POINTS TO EACH F6B03950 LIBRARY SUBROUTINE ARE CHECKED AGAINST THE SOURCE PROGRAMF6B03960 TRANSFER VECTOR AND SECONDARY LOOKFOR LISTS. IF THE F6B03970 SUBROUTINE IS SO REQUIRED, ALL ENTRY POINTS (PRIMARY AND F6B03980 SECONDARY) WHICH ARE ON THE SOURCE PROGRAM TRANSFER F6B03990 VECTOR ARE DELETED FROM THE TRANSFER VECTOR AND ADDED TO F6B04000 THE FOUND LIST. ALL ENTRY POINTS WHICH ARE ON THE F6B04010 SECONDARY LOOKFOR LIST ARE DELETED AND ADDED TO THE F6B04020 SECONDARY FOUND LIST. ALL ENTRY POINTS NOT ON ANY LOOKFORF6B04030 LIST (NOT YET REQUIRED) OR ON ANY FOUND LIST (NOT YET IN F6B04040 THE DECK) ARE ADDED TO THE SECONDARY FOUND LIST. NAMES ONF6B04050 THE SECONDARY FOUND LIST DO NOT APPEAR ON THE STORAGE MAPF6B04060 NAMES ON THE SUBROUTINE TRANSFER VECTOR ARE CHECKED F6B04070 AGAINST THE FOUND LISTS AND LOOKFOR LISTS. IF A NAME IS F6B04080 NOT ALREADY IN THE DECK, OR IS NOT A PRIOR REQUIREMENT, F6B04090 IT IS ADDED TO THE SECONDARY LOOKFOR LIST. NAMES OF ALL F6B04100 SUBROUTINES OUTPUT, AND ENTRY POINTS REQUIRED IN THE F6B04110 SOURCE PROGRAM TRANSFER VECTOR WILL APPEAR ON THE STORAGEF6B04120 MAP. NAMES OF ENTRY POINTS NOT OUTPUT FROM THE LIBRARY, F6B04130 ON THE SOURCE PROGRAM TRANSFER VECTOR, OR ON THE F6B04140 SECONDARY LOOKFOR LIST, WILL APPEAR ON THE STORAGE MAP. F6B04150 THE SOURCE PROGRAM TRANSFER VECTOR IS FOUND FLAGGED IN F6B04160 DEV/DEA. TO DELETE A NAME, THE FLAG IS RESET. F6B04170 THE CONSOLIDATED LIBRARY PROGRAM CARD IS CONSTRUCTED IN F6B04180 CIT INPUT BUFFERS, AND MAY NOT EXCEED TWICE CITSIZ. F6B04190 THE SECONDARY LOOKFOR LIST EXTENDS DOWN FROM TIV. THE F6B04200 PRIMARY FOUND LIST EXTENDS UP FROM CLOSUB, WITH LENGTH F6B04210 RESERVED EQUAL TO FOUR TIMES THE LENGTH OF CLOSUB (ALLOW F6B04220 FOR NAMES OF SECONDARY SUBROUTINES). THE SECONDARY FOUND F6B04230 FOUND LIST EXTENDS UP FROM THE PRIMARY FOUND LIST. IF F6B04240 IF THE PRIMARY, SECONDARY FOUND LISTS OR SECONDARY LOST F6B04250 LIST OVERLAP EACH OTHER, OR CONSOLIDATED PROGRAM CARD IS F6B04260 LONGER THAN BUFFER SPACE AVAILABLE, OR IN CASE OF LIBRARYF6B04270 TAPE ERROR, THE LIBRARY SEARCH HAS FAILED, THE LAST F6B04280 (POSSIBLY INCOMPLETE) LIBRARY SUBROUTINE IS ERASED, AND F6B04290 NO ADDITIONAL SUBROUTINES WILL BE OUTPUT. F6B04300 05136 -0534 00 2 04231 LXD ORGCLO,2 LOAD TRANSFER VECTOR LENGTH F6B04310 05137 -3 00000 2 05530 TXL MAPL2+2,2,0 IS TRANSFER VECTOR EMPTY F6B04320 05140 0634 00 2 07226 SXA LSRLS,2 NO, INITIALIZE LENGTH OF LOST LIST F6B04330 05141 0774 00 1 00000 AXT 0,1 RESET LENGTH OF SECONDARY LOST LIST F6B04340 05142 -0520 00 0 04205 NZT XSWCH5 IS LIBRARY SEARCH REQUIRED F6B04350 05143 0020 00 0 05477 TRA MAPS1+2 NO, GO MAP SUBROUTINES LOST F6B04360 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 52 CONTROL ROUTINES FOR LIBRARY SEARCH AND MAPPING 05144 0754 00 2 00000 PXA ,2 YES, GET TRANSFER VECTOR COUNT F6B04370 BINARY CARD NO. 9F310021 05145 0767 00 0 00002 ALS 2 MULTIPLY BY FOUR F6B04380 05146 3 00031 2 05150 TXH *+2,2,25 ARE AT LEAST 100 SPACES RESERVED F6B04390 05147 0500 00 0 11445 CLA L(100 NO, SET LENGTH TO AT LEAST 100 F6B04400 05150 0737 00 2 00000 PAC ,2 INITIALIZE OVERFLOW TEST F6B04410 05151 -0634 00 2 07332 SXD LNFDT,2 F6B04420 05152 0401 00 0 04231 ADM ORGCLO INITIALIZE ORIGIN FOR SECONDARY FOUND LISTF6B04430 05153 0621 00 0 04305 STA RGSFD F6B04440 05154 -0500 00 0 04230 CAL ORGTIV INTIALIZE ORIGIN FOR SECONDARY LOOKFOR F6B04450 05155 0621 00 0 04303 STA RGSLS LIST F6B04460 05156 0400 00 0 11425 ADD L(1) F6B04470 05157 0621 00 0 04304 STA RGSLS+1 F6B04480 05160 0402 00 0 04305 SUB RGSFD INITIALIZE OVERLAP TESTS F6B04490 05161 0734 00 2 00000 PAX ,2 F6B04500 05162 -0634 00 2 07351 SXD LNSLT,2 F6B04510 05163 0737 00 2 00000 PAC ,2 F6B04520 05164 -0634 00 2 07340 SXD LNSFT,2 F6B04530 05165 -0534 00 4 73652 LXD (LIBT),4 LOAD LIBRARY TAPE NUMBER F6B04540 05166 -0634 00 4 05436 SXD LIBTP,4 INITIALIZE LIBRARY TAPE F6B04550 05167 -0634 00 4 05171 SXD *+2,4 INITIALIZE (SCHU) COMPUTATION F6B04560 05170 0774 00 2 73672 AXT (SCHU),2 F6B04570 05171 1 00000 2 05172 TXI *+1,2,** COMPUTE (SCHU) CELL F6B04580 05172 0634 00 2 07213 SXA RDLB1,2 INITIALIZE END FILE TEST F6B04590 BINARY CARD NO. 9F310022 05173 3 00001 4 05200 TXH LIBS0,4,SYSTAP IS LIBRARY ON SYSTEM TAPE (31)F6B04600 05174 -3 00000 4 05200 TXL LIBS0,4,SYSTAP-1 (31)F6B04610 05175 0074 00 4 11020 TSX SYSPS,4 YES, SPACE SYSTEM TAPE OVER END OF FILE 2.F6B04620 05176 0 00000 0 11452 PZE D(1) F6B04630 05177 -0634 00 0 05420 ZSD LIB14 SET LIBRARY ON SYSTEM TAPE SWITCH. F6B04650 05200 -0520 00 0 04207 LIBS0 NZT XSWCH7 IS CARD LABEL REQUESTED (31)F6B04652 05201 0020 00 0 05210 TRA LIBS1 NO F6B04654 05202 0560 00 0 04302 LDQ XLABEL YES, LOAD LABEL FOR PROGRAM BEING COMPILEDF6B04660 05203 0074 00 4 10776 TSX IDENT,4 *CREATE CARD LABEL F6B04670 05204 0774 00 4 00030 AXT 24,4 CLEAR PUNCH BUFFER F6B04680 05205 0600 00 4 04427 STZ PCH9L+24,4 F6B04690 05206 2 00001 4 05205 TIX *-1,4,1 F6B04692 05207 0074 00 4 11075 TSX PCHLD,4 *PUNCH LABELED BLANK CARD F6B04700 REENTRY AT END OF LIBRARY FILE F6B04710 05210 -0634 00 0 05410 LIBS1 SXD LIBFG,0 RESET FLAG FOR ENTRY POINT ADDED THIS PASSF6B04720 05211 0774 00 4 13330 AXT BUFFR,4 SET LOAD POINT FOR $F6B04721 05212 0634 00 4 73667 SXA (LBLD),4 POSSIBLE DISK LIBRARY $F6B04722 05213 0774 00 0 00000 AXT ,0 $F6B04723 REENTRY TO FIND NEXT PROGRAM CARD F6B04730 05214 0634 00 0 03774 SXA XCRDCT,0 RESET CARD COUNT F6B04740 05215 0074 00 4 07141 TSX RDLBC,4 *READ NEXT CARD F6B04750 05216 0020 00 0 05404 TRA LIB12 WAS END OF LIBRARY FILE SENSED F6B04760 05217 0120 00 0 05215 TPL *-2 NO, IS THIS PROGRAM CARD F6B04770 REENTRY TO FIND CONTINUATION PROGRAM CARDS F6B04780 05220 0634 00 2 04306 LIBS2 SXA RGCRD,2 SAVE LOAD POINT OF NEXT CARD F6B04790 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 53 CONTROL ROUTINES FOR LIBRARY SEARCH AND MAPPING BINARY CARD NO. 9F310023 05221 -0340 00 0 11456 LAS D(22) IS PROGRAM CARD COMPLETE F6B04800 05222 0020 00 0 05246 TRA LIBS3 YES (CONSOLIDATED PROGRAM CARD) F6B04810 05223 0020 00 0 05225 TRA *+2 MAYBE F6B04820 05224 0020 00 0 05246 TRA LIBS3 YES (SINGLE PROGRAM CARD) F6B04830 05225 0074 00 4 07145 TSX RDLCC,4 *READ POSSIBLE CONTINUATION PROGRAM CARD F6B04840 05226 0020 00 0 05424 TRA LIBEF *WAS END FILE MISTAKENLY SENSED F6B04850 05227 -0120 00 0 05220 TMI LIBS2 NO, IS THIS CONTINUATION PROGRAM CARD F6B04860 05230 0774 00 4 07216 AXT MFTBF,4 NO. SKIP READ NEXT TIME $F6B04870 05231 0634 00 4 07152 SXA LCTRA,4 $F6B04871 05232 0500 00 0 04377 CLA PCH9L MOVE PRESENT RECORD TO TEMPORARY BUFFER $F6B04872 05233 0601 00 0 04347 STO TBUFF $F6B04873 05234 0500 00 0 04400 CLA PCH9L+1 $F6B04880 05235 0601 00 0 04350 STO TBUFF+1 $F6B04881 05236 0774 00 4 00026 AXT 22,4 $F6B04882 05237 0500 00 0 07166 CLA STINB+1 $F6B04883 05240 0621 00 0 05241 STA *+1 $F6B04890 05241 0500 00 4 00000 CLA **,4 $F6B04891 05242 0601 00 4 04377 STO TBUFF+2+22,4 $F6B04892 05243 2 00001 4 05241 TIX *-2,4,1 $F6B04893 05244 -0500 00 0 11462 CAL P(4) RESET 9L PREFIX FOR PROGRAM CARD F6B04900 05245 0602 00 0 04377 SLW PCH9L F6B04910 PROGRAM CARD IS COMPLETE F6B04920 05246 -0634 00 0 07151 LIBS3 ZSD RDLCT RESET OVERFLOW SWITCH. F6B04930 BINARY CARD NO. 9F310024 05247 0534 00 2 04306 LXA RGCRD,2 INTITALIZE ORIGIN AT END OF CARD F6B04940 05250 1 00001 2 05251 TXI *+1,2,1 F6B04950 05251 0634 00 2 04307 SXA RGCRD+1,2 F6B04960 05252 1 73374 2 05253 TXI *+1,2,-PCH8R-2 COMPUTE LENGTH OF CONSOLID PROGRAM CARD F6B04970 05253 -0634 00 2 04306 SXD RGCRD,2 F6B04980 05254 0441 00 0 11424 LDI L(0) SET NO ENTRY FLAG F6B04990 REENTRY TO SCAN NEXT NAME ON PROGRAM CARD F6B05000 05255 0500 60 0 04307 CLA* RGCRD+1 GET NEXT ENTRY POINT F6B05010 05256 -0120 00 0 05261 TMI *+3 IS THIS ENTRY POINT F6B05020 05257 -0500 60 0 04306 CAL* RGCRD YES, GET ENTRY POINT NAME F6B05030 05260 0074 00 4 07226 TSX LSRLS,4 *IS ENTRY POINT REQUIRED F6B05040 05261 2 00002 2 05255 TIX *-4,2,2 NO, IS THIS END OF PROGRAM CARD F6B05050 05262 0020 00 0 05214 TRA LIBS1+4 YES, THIS SUBROUTINE NOT REQUIRED $F6B05060 THIS SUBROUTINE IS REQUIRED F6B05070 INSERT SUROUTINE NAME ON FOUND LIST F6B05080 05263 -0534 00 2 04306 LXD RGCRD,2 LOAD COUNT OF FIRST NAME ON PROGRAM CARD F6B05090 05264 0560 60 0 04306 LDQ* RGCRD PICK UP SUBROUTINE NAME F6B05100 05265 -0754 00 0 00000 ZAC F6B05110 05266 -0763 00 0 00006 LGL 6 ISOLATE FIRST CHARACTER F6B05120 05267 0340 00 0 11517 CAS OPARN IS IT ( FOR I/O SUBROUTINE F6B05130 05270 0020 00 0 05272 TRA *+2 NO F6B05140 05271 0020 00 0 05273 TRA *+2 YES F6B05150 05272 -0765 00 0 00006 LGR 6 RESTORE FIRST CHARACTER F6B05160 05273 -0500 00 0 11530 CAL L9LBL PICK UP 9 LABEL F6B05170 05274 0774 00 4 00000 AXT 0,4 SET CHARACTER COUNT TO RIGHTMOST CHARACTERF6B05180 BINARY CARD NO. 9F310025 05275 0602 00 0 04337 LIBS4 SLW ERAS1 SAVE PARTIALLY CONVERTED SYMBOL F6B05190 05276 -0763 00 0 00006 LGL 6 SHIFT IN NEXT CHARACTER F6B05200 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 54 CONTROL ROUTINES FOR LIBRARY SEARCH AND MAPPING 05277 0602 00 0 04336 SLW ERASE SAVE F6B05210 05300 -0320 00 0 11444 ANA CHMSK ISOLATE LAST CHARACTER F6B05220 05301 0322 00 0 11514 ERA PAREN IS IT ) F6B05230 05302 0100 00 0 05307 TZE *+5 YES, SYMBOL IS COMPLETE F6B05240 05303 -0500 00 0 04336 CAL ERASE NO, PICK UP PARTIALLY CONVERTED SYMBOL F6B05250 05304 1 00006 4 05305 TXI *+1,4,6 BUMP CHARACTER COUNT LEFT ONE CHARACTER F6B05260 05305 -3 00030 4 05275 TXL LIBS4,4,24 IS SYMBOL LEFT ADJUSTED F6B05270 05306 0020 00 0 05312 TRA *+4 YES F6B05280 05307 -0500 00 0 04337 CAL ERAS1 PICK UP SYMBOL STRIPPED OF PARENS F6B05290 05310 0560 00 0 11522 LDQ BLNKS AND FOLLOWING BLANKS F6B05300 05311 -0763 00 4 00036 LGL 30,4 LEFT ADJUST F6B05310 05312 0602 00 0 04256 SLW XSYMBL SAVE LIBRARY SUBROUTINE LABEL F6B05320 05313 0602 00 0 06315 SLW LIBLB SAVE IT FOR POSSIBLE DIAGNOSTIC F6B05330 05314 0074 00 4 07327 TSX LENFD,4 *ADD IT TO FOUND LIST F6B05340 05315 0 00000 0 00000 PZE NOT USED F6B05350 05316 0 00000 0 00000 PZE NOT USED F6B05360 05317 0560 00 0 04256 LDQ XSYMBL PICK UP NAME OF LIBRARY SUBROUTINE F6B05370 05320 0074 00 4 10776 TSX IDENT,4 *CREATE CARD LABEL F6B05380 ADD NAMES ON PROGRAM CARD TO FOUND OR SECONDARY LIST F6B05390 05321 0441 00 0 11464 LDI OPMSK SET ENTRY FLAG F6B05400 05322 -0534 00 2 04306 LXD RGCRD,2 RELOAD COUNT OF FIRST NAME ON PROGRAM CARDF6B05410 BINARY CARD NO. 9F310026 05323 -0500 60 0 04306 CAL* RGCRD GET NEXT ENTRY POINT NAME F6B05420 05324 0074 00 4 07226 TSX LSRLS,4 *IS ENTRY POINT REQUIRED F6B05430 05325 0074 00 4 07312 TSX LSRFD,4 *NO, IS ENTRY POINT IN DECK F6B05440 05326 0074 00 4 07335 TSX LENSF,4 *NO, ADD NAME TO SECONDARY FOUND LIST F6B05450 05327 2 00002 2 05323 TIX *-4,2,2 IS THIS END OF PROGRAM CARD F6B05460 05330 -0534 00 2 04401 LXD PCH8L,2 YES, SAVE SUBROUTINE TRANSFER VECTOR F6B05470 05331 0634 00 2 05357 SXA LIBS8,2 LENGTH F6B05480 PUNCH FIRST PROGRAM CARD FOR REQUIRED SUBROUTINE F6B05490 05332 -0534 00 2 04306 LXD RGCRD,2 LOAD CONSOLIDATED PROGRAM CARD COUNT F6B05500 05333 2 00024 2 05335 TIX *+2,2,20 IS PROGRAM CARD LONGER THAN ONE CARD F6B05510 05334 1 00002 2 05353 TXI LIBS7,2,2 NO, BUMP WORD COUNT TO INCLUDE 8 ROW F6B05520 PUNCH SUBSEQUENT PROGRAM CARD F6B05530 05335 -0634 00 2 04306 LIBS5 SXD RGCRD,2 SAVE COUNT ON REMAINING CARDS F6B05540 05336 0774 00 2 00026 AXT 22,2 SET CARD WORD COUNT TO FULL CARD F6B05550 05337 0074 00 4 11064 TSX PCHPC,4 *PUNCH CARD F6B05560 05340 0634 00 0 04377 SXA PCH9L,0 RESET 9L ADDRESS F6B05570 05341 -0534 00 2 04306 LXD RGCRD,2 LOAD REMAINING PROGRAM CARD COUNT F6B05580 05342 0774 00 1 00026 AXT 22,1 SET CARD COUNT TO FULL CARD F6B05590 05343 0500 60 0 04306 CLA* RGCRD MOVE NEXT WORD F6B05600 05344 0601 00 1 04427 STO PCH9L+24,1 INTO PUNCH BUFFER F6B05610 05345 -2 00001 2 05350 TNX LIBS6,2,1 IS CONSOLIDATED PROGRAM CARD EXHAUSTED F6B05620 05346 2 00001 1 05343 TIX *-3,1,1 NO, IS CARD FULL F6B05630 05347 0020 00 0 05335 TRA LIBS5 YES F6B05640 PUNCH LAST PROGRAM CARD FOR REQUIRED SUBROUTINE F6B05650 05350 -0634 00 1 05352 LIBS6 SXD *+2,1 COMPUTE LENGTH OF LAST CARD F6B05660 BINARY CARD NO. 9F310027 05351 0774 00 2 00027 AXT 23,2 F6B05670 05352 2 00000 2 05353 TIX *+1,2,** F6B05680 05353 0074 00 4 11064 LIBS7 TSX PCHPC,4 *PUNCH LAST CARD F6B05690 SCAN LIBRARY DATA CARDS FOR SUBROUTINE TRANSFER VECTOR F6B05700 05354 0074 00 4 07141 TSX RDLBC,4 *READ NEXT DATA CARD F6B05710 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 55 CONTROL ROUTINES FOR LIBRARY SEARCH AND MAPPING 05355 0020 00 0 05424 TRA LIBEF *WAS END FILE MISTAKENLY SENSED F6B05720 05356 -0120 00 0 05433 TMI LIBOR *NO, IS THIS PROGRAM CARD F6B05730 05357 0774 00 2 00000 LIBS8 AXT **,2 NO, LOAD SUBROUTINE TRANSFER VECTOR COUNT F6B05740 05360 -3 00000 2 05377 TXL LIB11,2,0 IS SUBROUTINE TRANSFER VECTOR EMPTY F6B05750 05361 0441 00 0 11424 LDI L(0) NO, SET NO ENTRY FLAG F6B05760 05362 0774 00 1 00024 AXT 20,1 SET RELOCATABLE CARD LENGTH F6B05770 05363 0634 00 1 05372 LIBS9 SXA LIB10,1 SAVE CURRENT CARD COUNT F6B05780 05364 -0500 00 1 04427 CAL PCH9L+24,1 GET NEXT NAME ON SUBROUTINE VECTOR F6B05790 05365 0074 00 4 07265 XMTST TSX EXEMQ,4 CHECK FOR EXEM SUBSTITUTION F6B05795 05366 0074 00 4 07226 TSX LSRLS,4 *IS ENTRY POINT REQUIRED F6B05800 05367 0074 00 4 07312 TSX LSRFD,4 *NO, IS ENTRY POINT IN DECK F6B05810 05370 0074 00 4 07346 TSX LENSL,4 *NO, ADD NAME TO SECONDARY LOOKFOR LIST F6B05820 05371 -2 00001 2 05377 TNX LIB11,2,1 IS TRANSFER VECTOR EXHAUSTED F6B05830 05372 0774 00 1 00000 LIB10 AXT **,1 NO, RELOAD CURRENT CARD COUNT F6B05840 05373 2 00001 1 05363 TIX LIBS9,1,1 IS CARD EXHAUSTED F6B05850 05374 0634 00 2 05357 SXA LIBS8,2 YES, SAVE SUBROUTINE TRANSFER VECTOR COUNTF6B05860 05375 0074 00 4 11075 TSX PCHLD,4 *PUNCH CARD F6B05870 05376 0020 00 0 05354 TRA LIBS7+1 F6B05880 SUBROUTINE TRANSFER VECTOR IS PROCESSED F6B05890 PUNCH REMAINDER OF SUBROUTINE F6B05900 BINARY CARD NO. 9F310028 05377 0074 00 4 11075 LIB11 TSX PCHLD,4 *PUNCH CARD F6B05910 05400 0074 00 4 07141 TSX RDLBC,4 *READ NEXT CARD F6B05920 05401 0020 00 0 05404 TRA LIB12 WAS END OF LIBRARY FILE SENSED F6B05930 05402 0120 00 0 05377 TPL LIB11 NO, IS THIS DATA CARD F6B05940 05403 0020 00 0 05412 TRA LIB13 NO F6B05950 END OF LIBRARY FILE SENSED F6B05960 05404 0074 00 4 73606 LIB12 TSX (TAPE),4 *BACKSPACE LIBRARY TAPE OVER F6B05970 05405 0 20000 0 11034 PZE BKS2F,,(SKBP) END LIBE FILE AND LIBE FILE F6B05980 05406 0 77777 0 73652 PZE (LIBT),,-1 F6B05990 05407 0760 00 0 00144 SLN 4 SET END OF LIBRARY SEARCH FLAG F6B06000 05410 3 00000 2 05453 LIBFG TXH LIBEX,2,** WERE ANY ENTRY POINTS ADDED TO F6B06010 SECONDARY LOOKFOR LIST THIS PASS F6B06020 05411 0020 00 0 05414 TRA LIB13+2 YES F6B06030 REENTRY AFTER PROCESSING SUBROUTINE F6B06040 05412 0534 00 1 07226 LIB13 LXA LSRLS,1 LOAD SOURCE PROGRAM VECTOR COUNT F6B06050 05413 3 00000 1 05416 TXH *+3,1,0 IS OBJECT PROGRAM VECTOR SATISFIED F6B06060 05414 0534 00 1 07346 LXA LENSL,1 YES, LOAD SECONDARY LOOKFOR LIST COUNT F6B06070 05415 -3 00000 1 05453 TXL LIBEX,1,0 IS SECONDARY LOOKFOR LIST SATISFIED F6B06080 05416 -0760 00 0 00144 SLT 4 NO, IS THIS END OF LIBRARY FILE F6B06090 05417 0020 00 0 05220 TRA LIBS2 NO F6B06100 05420 -3 77777 4 05423 LIB14 TXL *+3,4,-1 YES, IS LIBRARY ON SYSTEM TAPE F6B06110 05421 0074 00 4 11020 TSX SYSPS,4 YES, SPACE SYSTEM TAPE OVER END OF FILE 2.F6B06120 05422 0 00000 0 11452 PZE D(1) F6B06130 05423 0020 00 0 05210 TRA LIBS1 F6B06150 LIBRARY SEARCH FAILED DUE TO TABLE OVERLAP, F6B06160 LIBRARY FILE OUT OF ORDER, OR TAPE ERROR F6B06170 05424 0074 00 4 73606 LIBEF TSX (TAPE),4 *BACKSPACE OVER END FILE MISTAKENLY SENSED F6B06180 BINARY CARD NO. 9F310029 05425 0 20000 0 11032 PZE BKSPC,,(SKBP) F6B06190 05426 0 77777 0 73652 PZE (LIBT),,-1 F6B06200 05427 0774 00 2 00000 AXT 0,2 SET ENDFIL ERROR F6B06210 05430 0020 00 0 05434 TRA LIBOR+1 F6B06220 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 56 CONTROL ROUTINES FOR LIBRARY SEARCH AND MAPPING 05431 0774 00 2 77777 LIBOV AXT -1,2 SET OVERFLO ERROR F6B06230 05432 0020 00 0 05434 TRA LIBOR+1 F6B06240 05433 0774 00 2 77776 LIBOR AXT -2,2 SET ORDER ERROR F6B06250 05434 0074 00 4 73606 TSX (TAPE),4 *WRITE ERROR MESSAGE F6B06260 05435 0 04000 2 06316 PZE LIBER,2,(TPER) F6B06270 05436 -0 00000 0 06315 LIBTP MZE LIBLB,,** F6B06280 05437 0074 00 4 10557 LIBRR TSX WRITE,4 *WRITE LIBRARY SEARCH DISCONTINUED F6B06290 05440 0 00006 0 06321 PZE LIBRM,,6 F6B06300 05441 -0534 00 4 11112 LXD PNCH3,4 LOAD MONITOR OUTPUT SWITCH F6B06310 05442 3 00000 4 05446 TXH *+4,4,0 IS MONITOR OUTPUT REQUESTED F6B06320 05443 0074 00 4 73606 TSX (TAPE),4 *YES, DELETE LAST SUBROUTINE OUTPUT F6B06330 05444 0 20000 0 03774 PZE XCRDCT,,(SKBP) F6B06340 05445 0 00007 0 00000 PZE ,,MBNTAP F6B06350 05446 -0534 00 4 11200 LXD PNCH8,4 LOAD ONLINE PUNCH SWITCH F6B06360 05447 3 00000 4 05453 TXH *+4,4,0 IS ONLINE PUNCH REQUESTED F6B06370 05450 0074 00 4 73606 TSX (TAPE),4 *YES, DELETE LAST SUBROUTINE OUTPUT F6B06380 05451 0 20000 0 03774 PZE XCRDCT,,(SKBP) F6B06390 05452 0 00003 0 00000 PZE ,,SBNTAP F6B06391 END OF LIBRARY SEARCH F6B06400 BINARY CARD NO. 9F310030 05453 0774 00 1 00001 LIBEX AXT 1,1 PREPARE TO BACKSPACE ONE FILE F6B06410 05454 -0760 00 0 00144 SLT 4 WAS END OF LIBE FILE SENSED F6B06420 05455 -0634 00 1 11030 SXD REPS1,1 NO, RESET PARAMETER TO BACKSPACE FILE F6B06430 05456 0074 00 4 73606 TSX (TAPE),4 *REPOSITION SYSTEM TAPE TO END OF F6B06440 05457 0 20000 0 11030 PZE REPS1,,(SKBP) RECORD 31 (IF LIBRARY IS ON SYSTEM TAPE) F6B06450 05460 0 77777 0 73652 PZE (LIBT),,-1 F6B06460 05461 0634 00 0 03774 SXA XCRDCT,0 RESET CARD COUNT F6B06470 F6B06480 MAP SUBROUTINES FOUND F6B06490 05462 0535 00 2 07327 LAC LENFD,2 LOAD COUNT OF FOUND LIST F6B06500 05463 -3 00000 2 05477 TXL MAPS1+2,2,0 IS FOUND LIST EMPTY F6B06510 05464 0074 00 4 10557 TSX WRITE,4 *NO, WRITE SUBROUTINES OUTPUT TITLE F6B06520 05465 -1 00020 0 06373 IOCT FDTIT,,16 $F6B06530 05466 0074 00 4 10557 TSX WRITE,4 *WRITE BLANK LINE F6B06540 05467 -1 00004 0 06374 IOCT FDTIT+1,,4 $F6B06550 05470 0754 00 2 00000 PXA ,2 COMPUTE ORIGIN AT END OF LIST F6B06560 05471 0401 00 0 04231 ADM ORGCLO F6B06570 05472 0621 00 0 05473 STA *+1 F6B06580 05473 0560 00 2 00000 LDQ **,2 GET NEXT ENTRY POINT NAME F6B06590 05474 0074 00 4 10510 TSX LINE0,4 *CONVERT TO LINE IMAGE ENTRY F6B06600 05475 2 00001 2 05473 MAPS1 TIX *-2,2,1 IS FOUND LIST EXHAUSTED F6B06610 05476 0074 00 2 10603 TSX WRIPL,2 *YES, WRITE OFF FINAL PARTIAL LINE F6B06620 F6B06630 MAP SUBROUTINES LOST F6B06640 05477 0534 00 2 07346 LXA LENSL,2 LOAD SECONDARY LOST LIST COUNT F6B06650 05500 3 00000 2 05503 TXH *+3,2,0 IS SECONDARY LOST LIST EMPTY F6B06660 BINARY CARD NO. 9F310031 05501 0534 00 2 07226 LXA LSRLS,2 YES, LOAD PRIMARY LOST LIST COUNT F6B06670 05502 -3 00000 2 05530 TXL MAPL2+2,2,0 IS PRIMARY LOST LIST EMPTY F6B06680 05503 0074 00 4 10557 TSX WRITE,4 *NO, WRITE SUBROUTINES NOT OUTPUT TITLE F6B06690 05504 -1 00017 0 06253 IOCT LSTIT,,15 $F6B06700 05505 0074 00 4 10557 TSX WRITE,4 *WRITE BLANK LINE F6B06710 05506 -1 00004 0 06254 IOCT LSTIT+1,,4 $F6B06720 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 57 CONTROL ROUTINES FOR LIBRARY SEARCH AND MAPPING 05507 0534 00 2 07226 LXA LSRLS,2 RELOAD PRIMARY LOST LIST COUNT F6B06730 05510 -3 00000 2 05520 TXL MAPL1+1,2,0 IS PRIMARY LOST LIST EMPTY F6B06740 05511 -0534 00 2 04060 LXD XDEVTL,2 NO, LOAD DEV TABLE COUNT F6B06750 05512 0500 60 0 04223 CLA* ORGDEA GET NEXT LOCATION FROM DEA F6B06760 05513 -0320 00 0 11460 ANA P(1) MASK IN TRANSFER VECTOR FLAG F6B06770 05514 0100 00 0 05517 TZE MAPL1 IS THIS LOST TRANSFER VECTOR NAME F6B06780 05515 0560 60 0 04221 LDQ* ORGDEV YES, PICK UP NAME F6B06790 05516 0074 00 4 10510 TSX LINE0,4 *CONVERT TO LINE IMAGE ENTRY F6B06800 05517 2 00001 2 05512 MAPL1 TIX *-5,2,1 IS PRIMARY LOST LIST EXHAUSTED F6B06810 05520 0534 00 2 07346 LXA LENSL,2 YES, LOAD SECONDARY LOST LIST COUNT F6B06820 05521 -3 00000 2 05527 TXL MAPL2+1,2,0 IS SECONDARY LOST LIST EMPTY F6B06830 05522 0500 00 0 11450 CLA T(2) NO, RESET TAG ON INDIRECT ADDRESS OF F6B06840 05523 0625 00 0 04303 STT RGSLS SECONDARY LOST LIST F6B06850 05524 0560 60 0 04303 LDQ* RGSLS PICK UP NEXT LOST NAME F6B06860 05525 0074 00 4 10510 TSX LINE0,4 *CONVERT TO LINE IMAGE ENTRY F6B06870 05526 2 00001 2 05524 MAPL2 TIX *-2,2,1 IS LIST EXHAUSTED F6B06880 BINARY CARD NO. 9F310032 05527 0074 00 2 10603 TSX WRIPL,2 *YES, WRITE OFF FINAL PARTIAL LINE F6B06890 F6B06900 DEFINE AND MAP LOCATIONS OF ARITH STATEMENT FUNCTIONS F6B06910 05530 -0534 00 2 04060 LXD XDEVTL,2 LOAD DEV TABLE COUNT F6B06920 05531 0500 60 0 04223 MAPF1 CLA* ORGDEA GET NEXT ADDRESS IN DEA F6B06930 05532 0120 00 0 05550 TPL MAPF3 IS IT FORSUB INTERNAL STATEMENT NUMBER F6B06940 05533 0734 00 4 00000 PAX ,4 F6B06950 05534 0500 60 0 04233 CLA* ORGIFN GET LOCATION OF IFN F6B06960 05535 0771 00 0 00022 ARS 18 F6B06970 05536 0621 60 0 04223 STA* ORGDEA INSERT IN DEA TABLE F6B06980 05537 3 77777 2 05546 TXH MAPF2,2,-1 HAS TITLE BEEN WRITTEM F6B06990 05540 -0634 00 0 05537 SXD *-1,0 NO, RESET SWITCH F6B07000 05541 0074 00 4 10557 TSX WRITE,4 *WRITE ARITHMETIC STATEMENT TITLE F6B07010 05542 -1 00017 0 06413 IOCT FOTIT,,15 $F6B07020 05543 0074 00 4 10557 TSX WRITE,4 *WRITE DEC-OCT COLUMN HEADINGS F6B07030 05544 -1 00024 0 06157 IOCT DOHED,,20 $F6B07040 05545 0500 60 0 04223 CLA* ORGDEA GET ADDRESS AGAIN F6B07050 05546 0560 60 0 04221 MAPF2 LDQ* ORGDEV GET FORSUB NAME F6B07060 05547 0074 00 4 10521 TSX LINE1,4 *CONVERT TO LINE IMAGE ENTRY F6B07070 05550 2 00001 2 05531 MAPF3 TIX MAPF1,2,1 IS FORSUB TABLE EXHAUSTED F6B07080 05551 0074 00 2 10603 TSX WRIPL,2 *YES, WRITE OFF LAST PARTIAL LINE F6B07090 F6B07100 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 58 CONTROL ROUTINES FOR MAPPING MAP EXTERNAL-INTERNAL STATEMENT NUMBERS F6B07110 05552 -0534 00 2 04232 LXD ORGEIF,2 LOAD EIF TABLE COUNT F6B07120 05553 -0634 00 2 11476 SXD FFILI,2 SET I/O COMMAND WORD COUNT F6B07130 05554 0500 00 0 04231 CLA ORGCLO INITIALIZE I/O COMMAND TO READ IN EIF F6B07140 BINARY CARD NO. 9F310033 05555 0621 00 0 11476 STA FFILI EIF TABLE FOLLOWING CLOSUB TABLE F6B07150 05556 0754 00 2 00000 PXA ,2 INITIALIZE ORIGIN AT END OF TABLE F6B07160 05557 0401 00 0 11476 ADM FFILI F6B07170 05560 0621 00 0 04232 STA ORGEIF F6B07180 05561 -3 00000 2 05643 TXL MAPE4+2,2,0 IS EIF TABLE EMPTY F6B07190 05562 0621 00 0 04333 STA ADDRS NO, PREPARE TO CHECK FOR TABLE OVERLAP F6B07200 05563 -0500 00 0 04230 CAL ORGTIV F6B07210 05564 -0320 00 0 11446 ANA ADMSK F6B07220 05565 0402 00 0 04333 SUB ADDRS WILL EIF OVERLAP UPPER CORE TABLES F6B07230 05566 0120 00 0 05575 TPL MAPE0 NO F6B07240 05567 0074 00 4 73606 EIFRR TSX (TAPE),4 *YES, SPACE OVER EIF TABLE F6B07250 05570 0 20000 0 11425 PZE L(1),,(SKBP) F6B07260 05571 0 00004 0 07534 PZE CLABL,,COTTAP F6B07270 05572 0074 00 4 10557 TSX WRITE,4 *WRITE TABLE OUT MESSAGE F6B07280 05573 -1 00024 0 06327 IOCT EIFOT,,20 $F6B07290 05574 0020 00 0 06115 TRA PST05+2 F6B07300 05575 0074 00 4 73606 MAPE0 TSX (TAPE),4 *READ EIF TABLE F6B07310 05576 0 40010 0 11476 PZE FFILI,,(RBNC) F6B07320 05577 0 00004 0 11531 PZE ELABL,,COTTAP F6B07330 05600 0 00000 0 05567 PZE EIFRR F6B07340 05601 0500 00 0 73676 CLA (SCHU)+COTTAP LOAD LAST+1 WORD READ F6B07350 05602 -0320 00 0 11446 ANA ADMSK F6B07360 BINARY CARD NO. 9F310034 05603 0402 00 0 04333 SUB ADDRS IS IT SKEW F6B07370 05604 -0100 00 0 05572 TNZ EIFRR+3 YES F6B07380 05605 0600 00 0 04341 STZ ERAS3 RESET PRIOR EFN FOR REDUNDANCY TEST F6B07390 05606 0500 00 0 05627 CLA MAPE2 RESET LINE ROUTINE FOR OCTAL LOCATION F6B07400 05607 0621 00 0 10542 STA LINE4 F6B07410 05610 -0500 60 0 04232 MAPE1 CAL* ORGEIF GET NEXT EFN,,IFN F6B07420 05611 -0320 00 0 11446 ANA ADMSK MASK IN EFN F6B07430 05612 0074 00 4 10445 TSX DECCV,4 *CONVERT EFN TO DECIMAL F6B07440 05613 -0340 00 0 04341 LAS ERAS3 IS EFN REDUNDANT F6B07450 05614 0020 00 0 05616 TRA *+2 NO F6B07460 05615 0600 60 0 04232 STZ* ORGEIF YES F6B07470 05616 0602 00 0 04341 SLW ERAS3 SAVE NEW EFN F6B07480 05617 -0500 60 0 04232 CAL* ORGEIF GET SAME EFN,,IFN F6B07490 05620 0100 00 0 05641 TZE MAPE4 IS EFN REDUNDANT F6B07500 05621 -0734 00 4 00000 PDX ,4 NO, PICK UP IFN F6B07510 05622 0560 60 0 04233 LDQ* ORGIFN GET LOCATION ASSIGNED TO IFN F6B07520 05623 -0620 60 0 04232 SLQ* ORGEIF REPLACE IFN WITN LOCATION ( EFN,,LOC ) F6B07530 05624 -0763 00 0 00022 LGL 18 F6B07540 05625 -0320 00 0 11446 ANA ADMSK MASK OUT FLAGS F6B07550 05626 0100 00 0 05641 TZE MAPE4 IS THIS NONEXECUTABLE STATEMENT NUMBER F6B07560 05627 0621 00 0 04334 MAPE2 STA BILOC NO F6B07570 05630 0634 00 4 04333 SXA ADDRS,4 GET IFN F6B07580 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 59 CONTROL ROUTINES FOR MAPPING BINARY CARD NO. 9F310035 05631 3 77777 2 05637 TXH MAPE3,2,-1 HAS TITLE BEEN WRITTEN F6B07590 05632 -0634 00 0 05631 SXD *-1,0 NO, RESET SWITCH F6B07600 05633 0074 00 4 10557 TSX WRITE,4 *WRITE EIF TITLE F6B07610 05634 -1 00022 0 06432 IOCT EITIT,,18 $F6B07620 05635 0074 00 4 10557 TSX WRITE,4 *WRITE EIF COLUMN HEADINGS F6B07630 05636 -1 00024 0 06227 IOCT EIHED,,20 $F6B07640 05637 0560 00 0 04341 MAPE3 LDQ ERAS3 GET EFN CONVERTED TO DECIMAL F6B07650 05640 0074 00 4 10511 TSX LINE0+1,4 *CONVERT TO LINE IMAGE ENTRY F6B07660 05641 2 00001 2 05610 MAPE4 TIX MAPE1,2,1 IS EIF TABLE EXHAUSTED F6B07670 05642 0074 00 2 10603 TSX WRIPL,2 *YES, WRITE OFF LAST PARTIAL LINE F6B07680 05643 0500 00 0 10522 CLA LINE1+1 RESET LINE ROUTINE FOR OCTAL LOCATION F6B07690 05644 0621 00 0 10542 STA LINE4 F6B07700 05645 -0520 00 0 04202 NZT XSWCH2 IS LISTING REQUESTED F6B07701 05646 -0520 00 0 04212 NZT XSWC10 NO, IS BLOCKING REQUESTED F6B07702 05647 0020 00 0 05651 TRA *+2 NO F6B07703 05650 0074 00 4 10755 TSX WFBLK,4 YES, WRITE FINAL BLOCK F6B07704 F6B07710 REPOSITION SYSTEM TAPE F6B07720 05651 0441 60 0 73660 LDI* ORGFLG LOAD MONITOR FLAGS F6B07730 05652 0054 00 100000 RFT 100000 IS THIS JOB READY TO EXECUTE... F6B07740 05653 0020 00 0 05656 TRA *+3 YES, LEAVE THE SYSTEM TAPE AT DEBUG F6B07750 05654 0074 00 4 11020 TSX SYSPS,4 NO, BACKSPACE OVER FIRST FILE. F6B07760 05655 0 00000 0 11031 PZE REPS2 F6B07770 F6B07800 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 60 CONTROL ROUTINES FOR SYMBOL TABLE PREPARE SYMBOL TABLE F6B07810 SYMBOL TABLE TO BE OF FOLLOWING FORM F6B07820 9L PREFIX 6 F6B07830 DECREMENT CARD WORD COUNT F6B07840 ADDRESS ZERO F6B07850 9R CHECKSUM F6B07860 8L SUBPROGRAM NAME PACKED TO LEFT AND FILLED F6B07870 WITH BLANKS F6B07880 8R PREFIX ZERO F6B07890 DECREMENT TABLE WORD COUNT F6B07900 ADDRESS LOWEST LOCATION OF SOURCE PROGRAM DATA(20)F6B07910 7L SOURCE PROGRAM VARIABLE NAME F6B07920 INTERNAL SYMBOL FOR ERASABLE DATA F6B07930 EFN F6B07940 PACKED TO LEFT AND FILLED WITH BLANKS F6B07950 7R PREFIX RELOCATION BITS 010 F6B07960 DECREMENT 0 DATA IN COMMON F6B07970 2 OTHER SOURCE PROGRAM DATA F6B07980 3 ERASABLE DATA 1)N, 4)N, 6), 7)N, C)N F6B07990 PROGRAM DATA 2), 3), 8)N, B) F6B08000 4 EFN F6B08010 ADDRESS NOMINAL LOCATION, DESCENDING ORDER SORT F6B08020 F6B08030 05656 -0520 00 0 04206 NZT XSWCH6 IS SYMBOL TABLE REQUESTED F6B08040 BINARY CARD NO. 9F310036 05657 0020 00 0 06115 TRA PST05+2 NO F6B08050 05660 -0500 00 0 04232 CAL ORGEIF INITIALIZE SYMBOL TABLE TO FOLLOW EIF F6B08060 05661 0621 00 0 05715 STA EFN01 INITIALIZE ORIGIN OF EIF TABLE F6B08070 05662 0621 00 0 04310 STA RGSTL-1 F6B08080 05663 0400 00 0 11425 ADD L(1) F6B08090 05664 0621 00 0 04311 STA RGSTL F6B08100 05665 -0535 00 2 04120 LDC XTIVTL,2 GET LENGTH OF TIV TABLE F6B08110 05666 1 77776 2 05667 TXI *+1,2,-2 F6B08120 05667 0754 00 2 00000 PXA ,2 F6B08130 05670 -0534 00 1 04077 LXD XTEVTL,1 ADD LENGTH OF TEV TABLE F6B08140 05671 0634 00 1 04334 SXA BILOC,1 F6B08150 05672 0400 00 0 04334 ADD BILOC F6B08160 05673 -0534 00 1 04060 LXD XDEVTL,1 ADD LENGTH OF DEV TABLE F6B08170 05674 0634 00 1 04334 SXA BILOC,1 F6B08180 05675 0400 00 0 04334 ADD BILOC F6B08190 05676 -0534 00 1 04232 LXD ORGEIF,1 ADD LENGTH OF EIF TABLE F6B08200 05677 0634 00 1 04334 SXA BILOC,1 F6B08210 05700 0400 00 0 04334 ADD BILOC F6B08220 05701 0401 00 0 04311 ADM RGSTL INITIALIZE ORIGIN OF RIGHT BUFFER F6B08230 05702 0621 00 0 04313 STA RGSTR F6B08240 05703 0402 00 0 11425 SUB L(1) F6B08250 05704 0621 00 0 04312 STA RGSTR-1 F6B08260 BINARY CARD NO. 9F310037 05705 -0500 00 0 11464 CAL OPMSK F6B08270 05706 0774 00 2 00000 AXT 0,2 SET BINARY SEARCH STOP F6B08280 05707 0602 60 0 04313 SLW* RGSTR AT LOWER END OF RIGHT BUFFER F6B08290 05710 1 77777 2 05711 TXI *+1,2,-1 CLEAR FIRST WORD OF RIGHT BUFFER F6B08300 05711 0600 60 0 04313 STZ* RGSTR F6B08310 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 61 CONTROL ROUTINES FOR SYMBOL TABLE 05712 -0500 00 0 04230 CAL ORGTIV INITIALIZE TEST FOR TABLE OVERLAP F6B08320 05713 0621 00 0 04334 STA BILOC F6B08330 05714 -3 00000 1 05734 TXL EFN02+1,1,0 IS EIF TABLE EMPTY F6B08340 05715 0560 00 1 00000 EFN01 LDQ **,1 GET NEXT EFN,,LOC FROM EIF TABLE F6B08350 05716 -0763 00 0 00022 LGL 18 F6B08360 05717 0621 00 0 04333 STA ADDRS SAVE BINARY LOCATION F6B08370 05720 -0754 00 0 00000 ZAC F6B08380 05721 -0763 00 0 00022 LGL 18 GET BINARY EFN F6B08390 05722 0560 00 0 11522 LDQ BLNKS PICK UP FOLLOWING BLANKS F6B08400 05723 0074 00 4 10443 TSX SAPDC,4 *CONVERT TO DECIMAL F6B08410 05724 -0130 00 0 00000 XCL F6B08420 05725 0602 00 0 04256 SLW XSYMBL SAVE BCD EFN F6B08430 05726 0500 00 0 04333 CLA ADDRS GET LOCATION OF EFN F6B08440 05727 0100 00 0 05733 TZE EFN02 IS THIS NONEXECUTABLE STATEMENT NUMBER F6B08450 05730 0400 00 0 11455 ADD D(4) NO, SET DECREMENT 4 (EFN) F6B08460 05731 0074 00 4 07376 TSX SRSYM,4 *ENTER INTO SYMBOL TABLE F6B08470 05732 1 77777 2 07412 TXI ENSYM,2,-1 *NOT FOUND, CONTINUE F6B08480 BINARY CARD NO. 9F310038 05733 2 00001 1 05715 EFN02 TIX EFN01,1,1 IS EIF TABLE EXHAUSTED F6B08490 05734 -0535 00 1 04120 LDC XTIVTL,1 YES, GET TIV TABLE COUNT F6B08500 05735 1 77777 1 05736 TXI *+1,1,-1 F6B08510 05736 0074 00 4 07360 TSX TOVLP,4 *CHECK FOR TABLE OVERLAP F6B08520 05737 0754 00 1 00000 PXA ,1 INITIALIZE ORIGIN AT TOP OF TIV TABLE F6B08530 05740 0401 00 0 04230 ADM ORGTIV F6B08540 05741 0621 00 0 05743 STA TIV01 F6B08550 05742 1 77777 1 05743 TXI *+1,1,-1 F6B08560 05743 0560 00 1 00000 TIV01 LDQ **,1 GET NEXT TIV ENTRY F6B08570 05744 -0754 00 0 00000 ZAC F6B08580 05745 -0763 00 0 00004 LGL 4 GET INTERNAL SYMBOL NAME F6B08590 05746 0734 00 4 00000 PAX ,4 F6B08600 05747 0020 00 4 05767 TRA TIV02,4 F6B08610 05750 0020 00 0 07373 TRA TOVL1 *SYMBOL IS PROGRAM COUNTER F6B08620 05751 0020 00 0 06004 TRA TIV03 E) F6B08630 05752 0020 00 0 06004 TRA TIV03 D) F6B08640 05753 0020 00 0 05770 TRA TIV02+1 C)N INDEX REGISTER ERASABLE F6B08650 05754 0020 00 0 05770 TRA TIV02+1 B) HOLLERITH ARGUMENT F6B08660 05755 0020 00 0 06004 TRA TIV03 A) F6B08670 05756 0020 00 0 06004 TRA TIV03 9) F6B08680 05757 0020 00 0 05770 TRA TIV02+1 8)N FORMAT F6B08690 05760 0020 00 0 05770 TRA TIV02+1 7)N SUBROUTINE INDEX REGISTER ERASABLE F6B08700 BINARY CARD NO. 9F310039 05761 0020 00 0 05770 TRA TIV02+1 6) F6B08710 05762 0020 00 0 06004 TRA TIV03 5) F6B08720 05763 0020 00 0 05770 TRA TIV02+1 4)N SUBROUTINE ARGUMENT ERASABLE F6B08730 05764 0020 00 0 05770 TRA TIV02+1 3) FLOATING POINT CONSTANT F6B08740 05765 0020 00 0 05770 TRA TIV02+1 2) FIXED POINT CONSTANT F6B08750 05766 0020 00 0 05770 TRA TIV02+1 1)N ARITHMETIC ERASABLE F6B08760 05767 0020 00 0 06004 TIV02 TRA TIV03 0) F6B08770 05770 0074 00 4 10362 TSX TIVSM+1,4 *CONVERT TO PSEUDOSYMBOL F6B08780 05771 -0130 00 0 00000 XCL F6B08790 05772 -0600 00 0 04256 STQ XSYMBL SAVE BCD LISTING SYMBOL F6B08800 05773 0500 60 0 05743 CLA* TIV01 GET LOCATION OF SYMBOL F6B08810 05774 0621 00 0 04333 STA ADDRS SAVE BINARY LOCATION F6B08820 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 62 CONTROL ROUTINES FOR SYMBOL TABLE 05775 0500 00 0 04333 CLA ADDRS F6B08830 05776 0340 00 0 11446 CAS ADMSK IS THIS 4) F6B08832 05777 0074 00 4 03735 TSX XERR00,4 *IMPOSSIBLE PATH OF FLOW F6B08834 06000 0020 00 0 06004 TRA TIV03 YES, IGNORE IT F6B08836 06001 0400 00 0 11454 ADD D(3) SET DECREMENT 3 (INTERNAL VARIABLE) F6B08840 06002 0074 00 4 07376 TSX SRSYM,4 *ENTER INTO SYMBOL TABLE F6B08850 06003 1 77777 2 07412 TXI ENSYM,2,-1 *NOT FOUND, CONTINUE F6B08860 06004 2 00001 1 05743 TIV03 TIX TIV01,1,1 IS TIV TABLE EXHAUSTED F6B08870 06005 -0534 00 1 04077 LXD XTEVTL,1 YES, GET TEV TABLE COUNT F6B08880 06006 -3 00000 1 06024 TXL TEV02+1,1,0 IS TEV TABLE EMPTY F6B08890 BINARY CARD NO. 9F310040 06007 0074 00 4 07360 TSX TOVLP,4 *CHECK FOR TABLE OVERLAP F6B08900 06010 0500 00 0 04225 CLA ORGTEV INITIALIZE ORIGIN FOR TEV TABLE F6B08910 06011 0621 00 0 06012 STA TEV01 F6B08920 06012 0560 00 1 00000 TEV01 LDQ **,1 GET NEXT ENTRY IN TEV F6B08930 06013 -0600 00 0 04256 STQ XSYMBL SAVE BCD VARIABLE NAME F6B08940 06014 0754 00 1 00000 PXA ,1 GET RELATIVE LOCATION IN TEV F6B08950 06015 0400 00 0 04254 ADD XTEVBS ADD LOCATION OF BEGINNING OF VARIABLES F6B08960 06016 0621 00 0 04333 STA ADDRS SAVE BINARY LOCATION F6B08970 06017 0500 00 0 04333 CLA ADDRS F6B08980 06020 0400 00 0 11453 ADD D(2) SET DECREMENT 2 (EXTERNAL VARIABLE) F6B08990 06021 0074 00 4 07376 TSX SRSYM,4 *ENTER INTO SYMBOL TABLE F6B09000 06022 1 77777 2 07412 TXI ENSYM,2,-1 *NOT FOUND, CONTINUE F6B09010 06023 2 00001 1 06012 TEV02 TIX TEV01,1,1 IS TEV TABLE EXHAUSTED F6B09020 06024 -0534 00 1 04060 LXD XDEVTL,1 YES, GET DEV TABLE COUNT F6B09030 06025 0074 00 4 07360 TSX TOVLP,4 *CHECK FOR TABLE OVERLAP F6B09040 06026 0500 00 0 04223 CLA ORGDEA INITIALIZE ORIGINS FOR DEA AND DEV TABLES F6B09050 06027 0621 00 0 06034 STA DEV01+2 F6B09060 06030 0500 00 0 04221 CLA ORGDEV F6B09070 06031 0621 00 0 06032 STA DEV01 F6B09080 06032 -0500 00 1 00000 DEV01 CAL **,1 GET NEXT DEV ENTRY F6B09090 06033 0602 00 0 04256 SLW XSYMBL SAVE BCD VARIABLE NAME F6B09100 06034 0500 00 1 00000 CLA **,1 GET NEXT DEA ENTRY F6B09110 BINARY CARD NO. 9F310041 06035 0621 00 0 04333 STA ADDRS SAVE BINARY LOCATION F6B09120 06036 -0320 00 0 11451 ANA T(7) ISOLATE FLAG F6B09130 06037 -0100 00 0 06047 TNZ DEV02 IS VARIABLE USED IN SOURCE PROGRAM F6B09140 06040 0500 00 0 04333 CLA ADDRS YES, GET LOCATION OF VARIABLE F6B09150 06041 0340 00 0 04250 CAS XPCD8R IS VARIABLE IN COMMON F6B09160 06042 0020 00 0 06045 TRA *+3 YES, DECREMENT IS 0 (COMMON VARIABLE) F6B09170 06043 0020 00 0 06044 TRA *+1 NO F6B09180 06044 0400 00 0 11453 ADD D(2) NO, SET DECREMENT 2 (UNCOMMON VARIABLE) F6B09190 06045 0074 00 4 07376 TSX SRSYM,4 *ENTER INTO SYMBOL TABLE F6B09200 06046 1 77777 2 07412 TXI ENSYM,2,-1 *NOT FOUND, CONTINUE F6B09210 06047 2 00001 1 06032 DEV02 TIX DEV01,1,1 IS DEV TABLE EXHAUSTED F6B09220 F6B09230 PUNCH OUT SYMBOL TABLE F6B09240 06050 -0500 00 0 11463 CAL P(6) SET SYMBOL TABLE FLAG IN 9L PREFIX F6B09250 06051 0602 00 0 04377 SLW PCH9L F6B09260 06052 0560 00 0 04251 LDQ XPCD7L PICK UP SUBPROGRAM NAME F6B09270 06053 -0600 00 0 04401 STQ PCH8L INSERT IN 8L F6B09280 06054 0560 00 0 04302 LDQ XLABEL PICK UP CARD LABEL F6B09290 06055 -0620 00 0 11511 SLQ STLBL INSERT THREE CHARACTERS OF PROGRAM NAME F6B09300 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 63 CONTROL ROUTINES FOR SYMBOL TABLE 06056 0560 00 0 11511 LDQ STLBL WITH THREE CHARACTERS SYM F6B09310 06057 0074 00 4 10776 TSX IDENT,4 *CREATE CARD LABEL F6B09320 06060 -0535 00 1 07445 LDC SYMTL,1 LOAD SYMBOL TABLE COUNT F6B09330 06061 1 77777 1 06062 TXI *+1,1,-1 F6B09340 06062 0754 00 1 00000 PXA ,1 COMPUTE ORIGIN AT END OF LEFT BUFFER F6B09350 BINARY CARD NO. 9F310042 06063 0401 00 0 04311 ADM RGSTL F6B09360 06064 0621 00 0 06073 STA PST01 F6B09370 06065 0754 00 1 00000 PXA ,1 COMPUTE ORIGIN AT END OF RIGHT BUFFER F6B09380 06066 0401 00 0 04313 ADM RGSTR F6B09390 06067 0621 00 0 06075 STA PST01+2 F6B09400 06070 1 77777 1 13231 TXI FFFFF,1,-1 (20)F6B09410 06071 -0634 00 1 04402 SXD PCH8R,1 SET 8R DECREMENT TO TABLE LENGTH F6B09420 06072 0774 00 2 00024 AXT 20,2 SET FIRST CARD COUNT TO 10 SYMBOLS F6B09430 06073 -0500 00 1 00000 PST01 CAL **,1 MOVE NEXT LEFT INTO PUNCH BUFFER F6B09440 06074 0602 00 2 04427 SLW PCH9L+24,2 F6B09450 06075 0500 00 1 00000 CLA **,1 MOVE NEXT RIGHT INTO PUNCH BUFFER F6B09460 06076 0602 00 2 04430 SLW PCH9L+25,2 F6B09470 06077 -2 00001 1 06107 TNX PST02,1,1 IS SYMBOL TABLE EXHAUSTED F6B09480 06100 2 00002 2 06073 TIX PST01,2,2 NO, IS CARD FULL F6B09490 06101 0774 00 2 00026 AXT 22,2 YES, SET CARD WORD COUNT TO 22 F6B09500 06102 0634 00 1 06105 SXA *+3,1 SAVE SYMBOL TABLE COUNT F6B09510 06103 0074 00 4 11064 TSX PCHPC,4 *PUNCH OUT THIS CARD F6B09520 06104 0634 00 0 04377 SXA PCH9L,0 RESET 9L ADDRESS TO ZERO F6B09530 06105 0774 00 1 00000 AXT **,1 RELOAD SYMBOL TABLE COUNT F6B09540 06106 1 00002 2 06073 TXI PST01,2,2 BUMP CARD WORD COUNT TO ELEVEN SYMBOLS F6B09550 06107 -0634 00 2 06111 PST02 SXD *+2,2 COMPUTE PARTIAL CARD WORD COUNT F6B09560 06110 0774 00 2 00030 AXT 24,2 F6B09570 BINARY CARD NO. 9F310043 06111 2 00000 2 06112 TIX *+1,2,** F6B09580 06112 0074 00 4 11064 TSX PCHPC,4 *PUNCH OUT PARTIAL CARD F6B09590 06113 0074 00 4 10557 PST05 TSX WRITE,4 *WRITE TABLE IN MESSAGE F6B09600 06114 -1 00017 0 06272 IOCT TABIN,,15 $F6B09610 F6B09620 PUNCH OUT PROGRAM CARD F6B09630 06115 0560 00 0 04302 LDQ XLABEL PICK UP CARD LABEL F6B09640 06116 0074 00 4 10776 TSX IDENT,4 *CREATE CARD LABEL F6B09650 06117 -0500 00 0 11462 CAL P(4) SET PROGRAM CARD FLAG IN 9L PREFIX F6B09660 06120 0602 00 0 04377 SLW PCH9L F6B09670 06121 0774 00 3 00004 AXT 4,3 PREPARE TO MOVE PROGRAM CARD TO F6B09680 06122 -0500 00 1 04253 CAL XPCD7R+1,1 PUNCH BUFFER F6B09690 06123 0602 00 1 04405 SLW PCH9L+6,1 F6B09700 06124 2 00001 1 06122 TIX *-2,1,1 IS CARD COMPLETE F6B09710 06125 0074 00 4 11064 TSX PCHPC,4 *YES, PUNCH OUT PROGRAM CARD F6B09720 06126 0020 00 0 06634 TRA PROL0 F6B09730 F6B09740 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 64 F6B09750 I/O DATA (NOT REQUIRED DURING OR AFTER PASS OVER CITS) F6B09760 F6B09770 06127 ZEROB DUP 1,24 F6B09780 06127 0 00000 0 00000 PZE F6B09790 BINARY CARD NO. 9F310044 06157 006060606060 DOHED BCI 2,0 F6B09800 06161 606024252360 BCI 2, DEC OCT F6B09810 06163 DUP 2,4 F6B09820 06163 606060606060 BCI 2, F6B09830 BINARY CARD NO. 9F310045 06165 606024252360 BCI 2, DEC OCT F6B09840 06203 006060606060 ELHED BCI 2,0 F6B09850 06205 606025264560 BCI 2, EFN LOC F6B09860 06207 DUP 2,4 F6B09870 06207 606060606060 BCI 2, F6B09880 06211 606025264560 BCI 2, EFN LOC F6B09890 BINARY CARD NO. 9F310046 06227 006060606060 EIHED BCI 1,0 F6B09900 06230 606025264560 BCI 3, EFN IFN LOC F6B09910 06233 DUP 2,4 F6B09920 06233 606060606060 BCI 1, F6B09930 06234 606025264560 BCI 3, EFN IFN LOC F6B09940 BINARY CARD NO. 9F310047 06253 006060606060 LSTIT BCI 6,0 F6B09941 06261 602545635170 BCI 9, ENTRY POINTS TO SUBROUTINES NOT OUTPUT FROM LIBRARY F6B09941 BINARY CARD NO. 9F310048 06272 006060606060 TABIN BCI 6,0 F6B09941 06300 606062704422 BCI 9, SYMBOL TABLE PRECEDES PROGRAM CARD IN BINARY DECK F6B09941 06311 006060606060 LSTRM BCI 4,0 ***LINE OMITTED*** F6B09941 BINARY CARD NO. 9F310049 06315 433122256060 LIBLB BCI 1,LIBE F6B09941 06316 254524263143 LIBER BCI 3,ENDFILOVRFLOORDER F6B09941 06321 006060606060 LIBRM BCI 6,0 LIBRARY SEARCH DISCONTINUED. F6B09941 06327 006060606060 EIFOT BCI 1,0 F6B09941 06330 606044214747 BCI 9, MAPPING OF EXTERNAL FORMULA NUMBERS (AND SYMBOL TABL F6B09941 06341 256031266051 BCI 9,E IF REQUESTED) DELETED DUE TO CORE OVERFLOW OR TAPE E F6B09941 BINARY CARD NO. 9F310050 06352 515146513360 BCI 1,RROR. F6B09941 06353 006060606060 TABOT BCI 5,0 F6B09941 06360 606060606062 BCI 9, SYMBOL TABLE DELETED DUE TO CORE OVERFLOW OR MACH F6B09941 BINARY CARD NO. 9F310051 06371 314525602551 BCI 2,INE ERROR F6B09941 06373 006060606060 FDTIT BCI 5,0 F6B0994K 06400 606060452144 BCI 9, NAMES OF AND ENTRY POINTS TO SUBROUTINES OUTPUT FRO F6B0994M 06411 446043312251 BCI 2,M LIBRARY F6B0994O 06413 006060606060 FOTIT BCI 6,0 F6B0994P 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 65 BINARY CARD NO. 9F310052 06421 452144256260 BCI 9,NAMES AND LOCATIONS OF ARITHMETIC STATEMENT FUNCTIONS F6B0994Q 06432 006060606060 EITIT BCI 3,0 F6B0994R 06435 602567632551 BCI 9, EXTERNAL FORMULA NUMBERS WITH CORRESPONDING INTERNAL F6B0994S BINARY CARD NO. 9F310053 06446 264651446443 BCI 6,FORMULA NUMBERS AND OCTAL LOCATIONS F6B0994T 06454 006060606060 SNTIT BCI 8,0 F6B09950 06464 606263465121 BCI 5, STORAGE NOT USED BY PROGRAM F6B09960 06471 006060606060 CMTIT BCI 5,0 F6B09970 BINARY CARD NO. 9F310054 06476 606062634651 BCI 9, STORAGE LOCATIONS FOR VARIABLES APPEARING IN COMMON F6B09980 06507 626321632544 BCI 2,STATEMENTS F6B09990 06511 006060606060 DETIT BCI 3,0 F6B10000 06514 606060606263 BCI 9, STORAGE LOCATIONS FOR VARIABLES APPEARING IN DIMEN F6B10010 BINARY CARD NO. 9F310055 06525 623146456021 BCI 6,SION AND EQUIVALENCE STATEMENTS F6B10020 06533 006060606060 TETIT BCI 2,0 F6B10030 06535 606060606263 BCI 9, STORAGE LOCATIONS FOR VARIABLES NOT APPEARING IN C F6B10040 06546 464444464573 BCI 8,OMMON, DIMENSION, OR EQUIVALENCE STATEMENTS F6B10050 BINARY CARD NO. 9F310056 06556 006060606060 FMTIT BCI 5,0 F6B10060 06563 606060606270 BCI 9, SYMBOLS AND LOCATIONS FOR SOURCE PROGRAM FORMAT ST F6B10070 06574 216325442545 BCI 2,ATEMENTS F6B10080 BINARY CARD NO. 9F310057 06576 006060606060 TITIT BCI 5,0 F6B10090 06603 606060434623 BCI 9, LOCATIONS FOR OTHER SYMBOLS NOT APPEARING IN SOURCE F6B10100 06614 604751462751 BCI 2, PROGRAM F6B10110 06616 006060606060 TVTIT BCI 7,0 F6B10120 BINARY CARD NO. 9F310058 06625 606043462321 BCI 7, LOCATIONS OF NAMES IN TRANSFER VECTOR F6B10130 06634 PROLO MAX *,ENDBF F6B10371 F6B10400 END OF BCD LISTING OUTPUT BUFFER F6B10410 F6B10420 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 66 CONTROL ROUTINES FOR SECOND CIT PASS F6B10430 TRANSFER VECTOR, PROLOG AND INITIALIZATION DO NOT APPEAR F6B10440 ON TAPE 4. FOR CUSTOMER PATCHES, THE SL, OP, SA AND RA F6B10450 CAN BE OBTAINED FROM THE CORRESPONDING CIT CELLS AT THE F6B10460 PATCH SPACE RESERVED FOR CUSTOMERS IN SAPCV ROUTINE, Q.V.F6B10470 F6B10480 CREATE TRANSFER VECTOR, PROLOG AND INITIALIZATION F6B10490 06634 ORG PROLO F6B10491 BINARY CARD NO. 9F310059 06634 -0500 00 0 11461 PROL0 CAL P(2) SET RELOCATABLE CARD FLAG IN 9L PREFIX F6B10500 06635 0020 00 0 13202 TRA BBBBB GO TO PATCH *F6B10510 06636 -0534 00 1 04231 LXD ORGCLO,1 LOAD COUNT OF NAMES IN TRANSFER VECTOR F6B10520 06637 -3 00000 1 06647 TXL PROL3+1,1,0 IS TRANSFER VECTOR EMPTY F6B10530 06640 -0500 00 0 11421 CAL BCDOP SET CIT OPCODE TO BCD F6B10540 06641 0602 00 0 04330 SLW CITOP F6B10550 06642 -0500 60 0 04231 PROL2 CAL* ORGCLO GET NEXT NAME IN CLOSUB F6B10560 06643 0602 00 0 04327 SLW CITSL IN CIT SYMBOLIC LOCATION F6B10570 06644 0602 00 0 04331 SLW CITSA IN CIT SYMBOLIC ADDRESS F6B10580 06645 0074 00 4 07540 TSX CITCV,4 *COMPILE NAME BCD 1NAME F6B10590 06646 2 00001 1 06642 PROL3 TIX PROL2,1,1 IS TRANSFER VECTOR EXHAUSTED F6B10600 06647 -0520 00 0 04251 NZT XPCD7L YES, IS THIS SUBPROGRAM F6B10610 06650 0020 00 0 06732 TRA PROL5+1 NO F6B10620 06651 -0500 00 0 11525 CAL L(SD) YES, SET FIRST PROLOG F6B10630 06652 0602 00 0 04327 SLW CITSL SYMBOLIC LOCATION TO $ F6B10640 06653 -0500 00 0 11533 CAL PZEOP SET CIT OPCODE TO PZE F6B10650 06654 0602 00 0 04330 SLW CITOP F6B10660 06655 0600 00 0 04331 STZ CITSA RESET CIT SYMBOLIC ADDRESS F6B10670 06656 0074 00 4 07540 TSX CITCV,4 *COMPILE $ PZE F6B10680 06657 0600 00 0 04327 STZ CITSL RESET SUBSEQUENT SYMBOLIC LOCATION F6B10690 06660 0074 00 4 07540 TSX CITCV,4 *COMPILE PZE F6B10700 06661 0074 00 4 07540 TSX CITCV,4 *COMPILE PZE F6B10710 BINARY CARD NO. 9F310060 06662 -0500 00 0 11421 CAL BCDOP SET CIT OPCODE TO BCD F6B10720 06663 0602 00 0 04330 SLW CITOP F6B10730 06664 -0500 00 0 04251 CAL XPCD7L SET CIT SYMBOLIC ADDRESS F6B10740 06665 0602 00 0 04331 SLW CITSA TO SUBPROGRAM NAME F6B10750 06666 0074 00 4 07540 TSX CITCV,4 *COMPILE BCD 1NAME F6B10760 06667 -0500 00 0 11534 CAL SXDOP SET CIT OPCODE TO SXD F6B10770 06670 0602 00 0 04330 SLW CITOP F6B10780 06671 -0500 00 0 11525 CAL L(SD) SET CIT SYMBOLIC ADDRESS TO $ F6B10790 06672 0602 00 0 04331 SLW CITSA F6B10800 06673 0774 00 1 00003 AXT 3,1 PREPARE TO WRITE 3 INSTRUCTIONS F6B10810 06674 -0500 00 1 11470 CAL PADTG+1,1 GET PROPER TAG,,RA F6B10820 06675 0602 00 0 04332 SLW CITRA F6B10830 06676 0074 00 4 07540 TSX CITCV,4 *COMPILE SXD $+N,T F6B10840 06677 2 00001 1 06674 TIX *-3,1,1 ARE THREE INSTRUCTIONS COMPILED F6B10850 06700 -0534 00 1 04234 LXD ORGSUB,1 YES, LOAD COUNT OF INITIALIZATION TABLE F6B10860 06701 -3 00000 1 06732 TXL PROL5+1,1,0 IS INITIALIZATION TABLE EMPTY F6B10870 06702 -0634 00 1 06731 SXD PROL5,1 NO, SET END OF COMPILE LOOP TEST F6B10880 06703 -0500 00 0 04255 CAL XSLINT SET INITIAL SYMBOLIC LOCATION F6B10890 06704 0602 00 0 11542 SLW PROSM F6B10900 06705 0774 00 1 00001 AXT 1,1 F6B10910 06706 -0500 60 0 04234 PROL4 CAL* ORGSUB GET NEXT INITIALIZATION INSTRUCTION F6B10920 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 67 CONTROL ROUTINES FOR SECOND CIT PASS 06707 0621 00 0 04333 STA ADDRS SAVE N F6B10930 BINARY CARD NO. 9F310061 06710 -0320 00 0 11464 ANA OPMSK MASK IN OPCODE F6B10940 06711 0602 00 0 04330 SLW CITOP INSERT IN CIT OPCODE F6B10950 06712 0774 00 4 00003 AXT 3,4 PREPARE TO TEST OPCODE F6B10960 06713 -0340 00 4 11540 LAS PROOP+1,4 IS OPCODE CLA, ADD, OR STA F6B10970 06714 0020 00 0 06716 TRA *+2 NO F6B10980 06715 0020 00 0 06720 TRA *+3 YES F6B10990 06716 2 00001 4 06713 TIX *-3,4,1 IS LIST EXHAUSTED F6B11000 06717 0074 00 4 03735 TSX XERR00,4 *YES, OPCODE NOT CLA, ADD, OR STA F6B11010 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B11020 * SECTION 6 HAS MADE UP A TABLE OF ARGUMENT INITIALIZATION F6B11030 * INFORMATION AT ROUTINE INIT1, OF THE FORM CLA L, ADD M, F6B11040 * STA N. THE FIRST 18 BITS OF THE ENTRY AT ORGSUB,2 IS NOT F6B11050 * OF THE FORM OF BCD CHARACTERS CLA, ADD, OR STA. F6B11060 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B11070 06720 0500 00 0 04333 CLA ADDRS PICK UP N F6B11080 06721 0767 00 0 00022 ALS 18 FOR RA F6B11090 06722 -3 00002 4 06724 TXL *+2,4,2 IS OPCODE CLA F6B11100 06723 0400 00 0 11427 ADD L(4) YES, APPEND TAG F6B11110 06724 0601 00 0 04332 STO CITRA F6B11120 06725 0500 00 4 11543 CLA PROSM+1,4 GET PROPER SYMBOL ( 0, 9), A1 ) F6B11130 06726 0602 00 0 04331 SLW CITSA FOR CIT SYMBOLIC ADDRESS F6B11140 06727 0074 00 4 07540 TSX CITCV,4 *COMPILE CLA N,4 , ADD 9)+N , STA A1+N F6B11150 06730 1 00001 1 06731 TXI *+1,1,1 BUMP INITIALIZATION TABLE COUNT F6B11160 06731 -3 00000 1 06706 PROL5 TXL PROL4,1,** IS INITIALIZATION TABLE EXHAUSTED F6B11170 F6B11180 PASS OVER CIT FILE F6B11190 06732 -0754 00 0 00000 ZAC NOP THE PAGE LINE F6B11191 06733 0625 00 0 10660 STT HDPCT COUNT RESET FOR MACHINE LANGUAGE LISTING. F6B11192 06734 0074 00 4 07446 TSX RDCIT,4 *GET NEXT CIT F6B11200 06735 0020 00 0 06740 TRA *+3 WAS END OF FILE SENSED F6B11210 BINARY CARD NO. 9F310062 06736 0074 00 4 07540 TSX CITCV,4 *NO, COMPILE NEXT INSTRUCTION F6B11220 06737 0020 00 0 06734 TRA *-3 F6B11230 F6B11240 END OF CIT FILE SENSED F6B11250 06740 0074 00 4 73606 TSX (TAPE),4 *REWIND SCRATCH TAPE F6B11260 06741 0 20000 0 11457 PZE REWND,,(SKBP) F6B11270 06742 0 00004 0 07534 PZE CLABL,,COTTAP F6B11280 06743 0534 00 1 10304 LXA SAP14,1 LOAD PAGE IMAGE ENTRY COUNT F6B11290 06744 -3 00000 1 07004 TXL EOF0X,1,0 IS BUFFER EMPTY $F6B11300 06745 -0500 00 0 10315 CAL WRTIO SET INITIAL ADDRESS OF PAGE IMAGE REMAINS F6B11302 06746 0621 00 0 06761 STA LOC01 F6B11303 06747 0621 00 0 06772 STA LOC02 F6B11304 06750 0621 00 0 06776 STA REGUL+2 F6B11304 06751 0621 00 0 07003 STA EOF02+1 F6B11305 06752 3 00000 1 06754 LSTHD TXH *+2,1,** HAS PAGE HEADING ALREADY BEEN WRITTEN F6B11306 06753 0074 00 4 10631 TSX HEDPG,4 *NO, PRINT PAGE HEADING F6B11310 06754 -2 00000 1 06763 EOF00 TNX EOF01,1,** ARE TWO COLUMNS FULL F6B11312 06755 0634 00 1 06756 SXA *+1,1 COMPUTE NUMBER F6B11313 06756 -0774 00 1 00000 AXC **,1 OF LINES F6B11313 06757 1 00000 1 06760 TXI *+1,1,** REMAINING F6B11313 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 68 CONTROL ROUTINES FOR SECOND CIT PASS 06760 0074 00 4 10616 TSX LISTG,4 *WRITE TWOS REMAINING. F6B11314 06761 -1 00014 0 00000 LOC01 IOCT **,,12 $F6B11316 06762 0020 00 0 07004 TRA EOF0X F6B11317 06763 -2 00000 1 13217 EOF01 TNX DDDDD,1,** MORE THAN TWO COLUMNS FILLED $F6B11318 BINARY CARD NO. 9F310063 06764 -0520 00 0 04210 NZT XSWCH8 IS EXTENDED LISTING REQUESTED $F6B11320 06765 0020 00 0 13224 TRA EEEEE NO, SEE IF NARROW PAGE REQUESTED $F6B11330 06766 0634 00 1 06767 SXA *+1,1 $F6B11340 06767 -0774 00 1 00000 REMAN AXC **,1 $F6B11350 06770 1 00000 1 13227 TXI EEEEE+3,1,** SEE IF LAST PAGE ALREADY PRINTED $F6B11360 06771 0074 00 4 10616 TSX LISTG,4 $F6B11370 06772 -1 00006 0 00000 LOC02 IOCT **,,6 $F6B11380 06773 0020 00 0 07004 TRA EOF0X $F6B11390 06774 0634 00 1 06767 REGUL SXA REMAN,1 $F6B11400 06775 0074 00 4 10616 TSX LISTG,4 $F6B11410 06776 -1 00014 0 00000 IOCT **,,12 $F6B11420 06777 -0500 00 0 10622 CAL LIST0+2 $F6B11430 07000 0621 00 0 06772 STA LOC02 $F6B11440 07001 0020 00 0 06767 TRA REMAN $F6B11450 07002 0074 00 4 10616 EOF02 TSX LISTG,4 WRITE PARTIAL COLUMN $F6B11460 07003 -1 00006 0 00000 IOCT **,,6 $F6B11470 07004 0074 00 4 10755 EOF0X TSX WFBLK,4 WRITE FINAL BLOCK OF LISTING $F6B11480 07005 -0520 00 0 04203 NZT XSWCH3 IS ONLINE PRINT REQUESTED F6B11580 07006 0020 00 0 07011 TRA *+3 NO F6B11590 07007 0074 00 4 73611 TSX (PRNT),4 *YES, EJECT PAGE ON LINE F6B11600 07010 0 00003 0 11521 EJCIO IOCD EJECT,,3 F6B11610 07011 0534 00 2 11040 LXA PUNCH+2,2 GET PARTIAL WORD COUNT F6B11620 BINARY CARD NO. 9F310064 07012 -0634 00 2 07014 SXD *+2,2 COMPUTE WORD COUNT FOR FINAL CARD F6B11630 07013 0774 00 2 00024 AXT 20,2 F6B11640 07014 -2 00000 2 07016 TNX *+2,2,** IS BUFFER EMPTY F6B11650 07015 0074 00 4 11057 TSX PCHLC,4 *NO, PUNCH OUT FINAL CARD F6B11660 07016 -0520 00 0 04251 NZT XPCD7L IS THIS A MAIN PROGRAM F6B11661 07017 -0520 00 0 04211 NZT XSWCH9 YES, ARE OFF-LINE CARDS ROW BINARY F6B11662 07020 0020 00 0 07022 TRA *+2 EITHER NOT A MAIN PROGRAM OR NOT ROW BIN. F6B11664 07021 0074 00 4 11313 TSX PCHTC,4 *ROW BINARY MAIN PROGRAM, PUNCH TRANSFER CDF6B11666 07022 0074 00 4 73606 TSX (TAPE),4 *WRITE END OF SINGLE COMP MACHINE LANG LISTF6B11770 07023 0 40005 0 00000 PZE ,,(WEFP) F6B11780 07024 0 00002 0 00000 PZE ,,SLSTAP F6B11790 07025 -0 00000 0 07026 MZE *+1 F6B11800 07026 0074 00 4 73606 TSX (TAPE),4 *WRITE END OF SINGLE COMPILE BINARY TAPE F6B11810 07027 0 40005 0 00000 PZE ,,(WEFP) F6B11820 07030 0 00003 0 00000 PZE ,,SBNTAP F6B11830 07031 -0 00000 0 07032 MZE *+1 F6B11840 07032 0074 00 4 73606 TSX (TAPE),4 *REWIND SINGLE COMPILE LISTING TAPE F6B11850 07033 0 20000 0 11457 RDNP2 PZE REWND,,(SKBP) F6B11860 07034 0 00002 0 00000 PZE ,,SLSTAP F6B11870 07035 0074 00 4 73606 TSX (TAPE),4 *REWIND SINGLE COMPILE BINARY TAPE F6B11880 07036 0 20000 0 11457 PZE REWND,,(SKBP) F6B11890 07037 0 00003 0 00000 PZE ,,SBNTAP F6B11900 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 69 CONTROL ROUTINES FOR SECOND CIT PASS BINARY CARD NO. 9F310065 07040 0520 00 0 04201 ZET XSWCH1 ARE ONLINE CARDS REQUESTED F6B11901 07041 0020 00 0 07105 TRA EOF05+3 NO F6B11902 07042 -0625 60 0 07067 STL* EOF04+3 YES, DELETE POSSIBLE HANGING END FILE F6B11903 OUTPUT CARDS ON LINE F6B11904 07043 0774 00 2 14553 EOF03 AXT BOTTAB-24,2 RESET ORIGIN OF OUTPUT BUFFER F6B11905 07044 1 00030 2 07045 TXI *+1,2,24 BUMP TO ORIGIN OF NEXT CARD F6B11906 07045 0634 00 2 07052 SXA *+5,2 F6B11907 07046 0074 00 4 73606 TSX (TAPE),4 *READ PUNCH TAPE BINARY CARD IMAGE F6B11908 07047 0 40004 0 07052 PZE *+3,,(RBEP) F6B11909 07050 0 00003 0 00000 PZE ,,SBNTAP F6B11910 07051 0 00000 0 07102 PZE EOF05 ALL DONE IN CASE OF ERROR F6B11911 07052 3 00030 0 00000 IORT **,,24 (NOP) F6B11912 07053 -0520 60 0 07067 NZT* EOF04+3 IS THIS END OF INTERMEDIATE TAPE F6B11913 07054 1 77720 2 07060 TXI *+4,2,-48 YES, BUMP COUNT TO NUMBER OF CARDS READ F6B11914 07055 -3 73546 2 07044 TXL EOF03+1,2,TOPTAB-25 NO, IS BUFFER FULL F6B11915 07056 0074 00 4 73606 TSX (TAPE),4 *YES, CHECK LAST CARD READ F6B11916 07057 0 10000 0 00003 PZE SBNTAP,,(CHKU) F6B11917 07060 -0634 00 2 07066 SXD EOF04+2,2 SET END OF BUFFER TEST F6B11918 07061 0774 00 2 14603 AXT BOTTAB,2 RESET ORIGIN OF OUTPUT BUFFER F6B11919 07062 0634 00 2 07064 SXA *+2,2 TO BOTTOM OF TABLE SPACE F6B11920 07063 0074 00 4 73614 TSX (PNCH),4 *PUNCH CARD F6B11921 07064 -0 00030 0 00000 EOF04 MZE **,,24 (RESET TO PZE FOR ROW BINARY) F6B11922 07065 1 00030 2 07066 TXI *+1,2,24 BUMP TO ORIGIN OF NEXT CARD F6B11923 BINARY CARD NO. 9F310066 07066 -3 00000 2 07062 TXL *-4,2,** IS BUFFER EXHAUSTED F6B11924 07067 0520 00 0 73675 ZET (SCHU)+SBNTAP YES, WAS END OF PUNCH TAPE SENSED F6B11926 07070 0020 00 0 07043 TRA EOF03 NO F6B11927 END OF BINARY INTERMEDIATE TAPE SENSED F6B11928 07071 -0520 00 0 04204 NZT XSWCH4 IS ROW BINARY REQUESTED F6B11929 07072 0520 00 0 04251 ZET XPCD7L YES, IS THIS A MAIN PROGRAM F6B11930 07073 0020 00 0 07076 TRA *+3 NO F6B11931 07074 0074 00 4 73614 TSX (PNCH),4 *YES, PUNCH ROW BINARY TRANSFER CARD F6B11932 07075 0 00001 0 11462 PZE P(4),,1 F6B11933 07076 0074 00 4 73614 TSX (PNCH),4 *PUNCH TWO BLANK CARDS F6B11934 07077 0 00001 0 11424 PZE L(0),,1 F6B11935 07100 0074 00 4 73614 TSX (PNCH),4 * F6B11936 07101 0 00001 0 11424 PZE L(0),,1 F6B11937 07102 0074 00 4 73606 EOF05 TSX (TAPE),4 *REWIND SINGLE COMPILE BINARY TAPE F6B11938 07103 0 20000 0 11457 PZE REWND,,(SKBP) F6B11939 07104 0 00003 0 00000 PZE ,,SBNTAP F6B11940 07105 0760 00 0 00012 DCT TURN OFF INDICATOR, WE ARE ALL DULY AMUSEDF6B11941 07106 0020 00 0 07107 TRA *+1 F6B11942 07107 0441 60 0 73660 LDI* ORGFLG LOAD FLAGS $F6B12030 07110 0054 00 100000 RFT 100000 IS THIS JOB READY TO EXECUTE F6B12040 07111 0020 00 0 07117 TRA *+6 YES $F6B12050 07112 0500 00 0 07140 CLA SCLBL SET EXIT TO SCAN. $F6B12053 07113 0601 00 0 07136 STO EXLBL $F6B12057 BINARY CARD NO. 9F310067 07114 0074 00 4 11020 TSX SYSPS,4 *NO, BACKSPACE TO SCAN F6B12060 07115 0 00000 0 11033 PZE SCNBS F6B12070 07116 0020 00 0 07124 TRA *+6 $F6B12090 07117 0500 00 0 07137 CLA DBGLB SET EXIT TO DEBUG. $F6B12093 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 70 CONTROL ROUTINES FOR SECOND CIT PASS 07120 0601 00 0 07136 STO EXLBL $F6B12097 07121 0074 00 4 73606 TSX (TAPE),4 *EJECT PAGE OFF LINE F6B12100 07122 0 40003 0 11510 PZE EJTIO,,(WDNP) $F6B12110 07123 0 00006 0 00000 PZE ,,MLSTAP F6B12120 07124 -3 77777 4 07130 EOF07 TXL *+4,4,-1 IS EXECUTION DELETED F6B12130 07125 0074 00 4 73606 TSX (TAPE),4 *YES, WRITE MESSAGE OFF LINE F6B12140 07126 0 40003 0 07130 PZE *+2,,(WDNP) F6B12150 07127 0 00006 0 00000 PZE ,,MLSTAP F6B12160 07130 3 00004 0 11614 IORT DLXEM+5,,4 (NOP) F6B12170 07131 0074 00 4 73606 TSX (TAPE),4 *CLOSE OUT MONITOR BINARY TAPE F6B12180 07132 0 10000 0 00007 PZE MBNTAP,,(CHKU) F6B12190 07133 0074 00 4 73606 TSX (TAPE),4 *CLOSE OUT MONITOR LISTING TAPE F6B12200 07134 0 10000 0 00006 PZE MLSTAP,,(CHKU) F6B12210 D 07135 0074 01 4 73600 TSX (LOAD),4,1 *CALL DEBUG OR SCAN. $F6B12220 07136 0 00000 0 00000 EXLBL PZE SET WITH LABEL NEEDED FOR DISKS. $F6B12230 07137 112600070000 DBGLB BCI 1,9F0700 $F6B12231 07140 112600060000 SCLBL BCI 1,9F0600 $F6B12232 F6B12233 END OF CONTROL ROUTINES F6B12234 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 71 SUBROUTINES RELEVANT TO LIBRARY SEARCH F6B12240 F6B12250 READ NEXT LIBRARY CARD F6B12260 07141 0774 00 2 00026 RDLBC AXT 22,2 PREPARE TO CLEAR CARD BUFFER F6B12270 BINARY CARD NO. 9F310068 07142 0600 00 2 04427 STZ PCH8L+22,2 F6B12280 07143 2 00001 2 07142 TIX *-1,2,1 F6B12290 07144 0774 00 2 04401 AXT PCH8L,2 SET LOAD POINT TO COPY 8 ROW F6B12300 ENTRY POINT FOR CONTINUATION PROGRAM CARD F6B12310 07145 0634 00 4 07200 RDLCC SXA RDLBX,4 SAVE CALLING LINKAGE F6B12320 07146 0634 00 2 07172 SXA CTCLD,2 SAVE CARD LOAD POINT $F6B12330 07147 1 00026 2 07150 TXI *+1,2,22 INITIALIZE FOR LOAD POINT $F6B12331 07150 0634 00 2 07166 SXA STINB+1,2 $F6B12332 07151 -3 00000 2 05431 RDLCT TXL LIBOV,2,** *WILL NEXT CARD OVERLAP CODING $F6B12333 07152 0020 00 0 07153 LCTRA TRA *+1 IF RECORD READ PREVIOUSLY, GO TO MFTBF $F6B12334 07153 0774 00 2 00000 CTCLA AXT **,2 WORDS REMAINING IN INPUT BUFFER $F6B12340 07154 -3 00000 2 07205 TXL READ,2,0 IF NO WORDS LEFT, READ NEXT RECORD $F6B12341 07155 0774 00 4 00026 MOVRC AXT 22,4 MOVE A RECORD FROM BLOCK $F6B12342 07156 -0500 00 2 13770 CAL BUFFR+BLFAC*24,2 $F6B12343 07157 -0320 00 0 07225 ANA MASK7 MASK OUT COLUMN BINARY BITS $F6B12344 07160 0602 00 0 04377 SLW PCH9L $F6B12350 07161 1 77777 2 07162 TXI *+1,2,-1 $F6B12351 07162 0500 00 2 13770 CLA BUFFR+BLFAC*24,2 $F6B12352 07163 0601 00 0 04400 STO PCH9L+1 $F6B12353 07164 1 77777 2 07165 TXI *+1,2,-1 $F6B12354 $F6B12360 07165 0500 00 2 13770 STINB CLA BUFFR+BLFAC*24,2 $F6B12361 07166 0601 00 4 00000 STO **,4 $F6B12362 07167 2 00001 4 07164 TIX STINB-1,4,1 $F6B12363 BINARY CARD NO. 9F310069 07170 1 77777 2 07171 TXI *+1,2,-1 TO NEXT CARD $F6B12364 07171 0634 00 2 07153 SXA CTCLA,2 SAVE INPUT WORD COUNT (31)F6B12370 07172 0774 00 2 00000 CTCLD AXT **,2 LOAD POINT FOR NEXT CARD (31)F6B12371 07173 0774 00 4 07153 CLPNC AXT LCTRA+1,4 RESTORE TRA *+1 AT LCTRA (31)F6B12372 07174 0634 00 4 07152 SXA LCTRA,4 (31)F6B12380 07175 -0534 00 4 04377 LXD PCH9L,4 COMPUTE LOAD POINT FOR NEXT CARD (31)F6B12390 07176 -0634 00 4 07177 SXD *+1,4 F6B12400 07177 1 00000 2 07200 TXI *+1,2,** F6B12410 07200 0774 00 4 00000 RDLBX AXT **,4 RELOAD CALLING LINKAGE F6B12420 07201 -3 05160 2 07203 TXL *+2,2,LIBS1-24 WILL NEXT CARD OVERLAP UPPER MEMORY $F6B12450 07202 -0634 00 4 07151 SXD RDLCT,4 YES, SET SWITCH F6B12460 07203 0500 00 0 04377 CLA PCH9L PICK UP 9 LEFT F6B12470 07204 0020 00 4 00002 TRA 2,4 $F6B12471 $F6B12472 07205 0074 00 4 73606 READ TSX (TAPE),4 READ IN BLOCKED RECORD $F6B12473 07206 0 40014 0 07223 PZE RDBLK,,(RBEC) $F6B12474 07207 0 77777 0 73652 PZE (LIBT),,-1 $F6B12475 07210 0 00000 0 05437 PZE LIBRR $F6B12476 07211 0522 00 0 07200 XEC RDLBX $F6B12477 07212 0774 00 2 00440 AXT BLFAC*24,2 RE-INITIALIZE BLOCK WORD COUNT $F6B12478 07213 -0520 00 0 00000 RDLB1 NZT ** WAS END OF FILE SENSED $F6B12479 07214 0020 00 4 00001 TRA 1,4 YES $F6B1247A 07215 0020 00 0 07155 TRA MOVRC $F6B12480 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 72 SUBROUTINES RELEVANT TO LIBRARY SEARCH BINARY CARD NO. 9F310070 07216 0774 00 4 00030 MFTBF AXT 24,4 $F6B12481 07217 0500 00 4 04377 CLA TBUFF+24,4 $F6B12482 07220 0601 00 4 04427 STO PCH9L+24,4 $F6B12483 07221 2 00001 4 07217 TIX *-2,4,1 $F6B12484 07222 0020 00 0 07173 TRA CLPNC $F6B12485 00014 BLFAC EQU 12 LIBRARY BLOCKING FACTOR $F6B12486 07223 -0 00003 2 07223 RDBLK IOCPN *,,3 $F6B12487 07224 -1 00440 0 13330 IOCT BUFFR,,BLFAC*24 $F6B12488 07225 -377277777777 MASK7 OCT 777277777777 $F6B12489 F6B12490 SEARCH LOST LISTS FOR ENTRY POINT NAME F6B12500 07226 0774 00 1 00000 LSRLS AXT **,1 LOAD CURRENT TRANSFER VECTOR COUNT F6B12510 07227 -3 00000 1 07255 TXL LSRL1+3,1,0 IS TRANSFER VECTOR EMPTY F6B12520 07230 0634 00 4 07245 SXA LSRLX+1,4 NO, SAVE CALLING LINKAGE F6B12530 07231 0634 00 2 07244 SXA LSRLX,2 SAVE CARD COUNT F6B12540 07232 0074 00 4 04043 TSX XSRDEV,4 *IS ENTRY POINT NAME IN DEV F6B12550 07233 0020 00 0 07253 TRA LSRL1+1 NO F6B12560 07234 0 00000 0 00000 PZE NOT USED F6B12570 07235 -0320 00 0 11460 ANA P(1) YES, IS IT REQUIRED BY SOURCE PROGRAM F6B12580 07236 0100 00 0 07252 TZE LSRL1 NO F6B12590 07237 0046 00 0 07244 TIF *+5 YES, SHOULD NAME BE DELETED F6B12600 07240 -0754 00 0 00000 PXD ,0 YES, RESET TRANSFER VECTOR FLAG F6B12610 07241 0630 60 0 04223 STP* ORGDEA F6B12620 07242 1 77777 1 07243 TXI *+1,1,-1 BUMP TRANSFER VECTOR COUNT F6B12630 07243 0634 00 1 07226 SXA LSRLS,1 F6B12640 BINARY CARD NO. 9F310071 07244 0774 00 2 00000 LSRLX AXT **,2 RELOAD CARD COUNT F6B12650 07245 0774 00 4 00000 AXT **,4 RELOAD CALLING LINKAGE F6B12660 07246 -0056 00 000001 LNT 1 SHOULD NAME BE ADDED TO FOUND LIST F6B12670 07247 0020 00 4 00003 TRA 3,4 NO F6B12680 07250 -0500 00 0 04256 CAL XSYMBL YES, PICK UP NAME AGAIN F6B12690 07251 0020 00 0 07327 TRA LENFD F6B12700 07252 -0500 00 0 04256 LSRL1 CAL XSYMBL PICK UP NAME AGAIN F6B12710 07253 0534 00 2 07244 LXA LSRLX,2 RELOAD CARD COUNT F6B12720 07254 0534 00 4 07245 LXA LSRLX+1,4 RELOAD CALLING LINKAGE F6B12730 07255 0534 00 1 07346 LXA LENSL,1 LOAD SECONDARY LOOKFOR LIST COUNT F6B12740 07256 -3 00000 1 07264 TXL LSRL2,1,0 IS SECONDARY LOOKFOR LIST EMPTY F6B12750 07257 -0634 00 1 07277 SXD LSRL3+2,1 NO, SET END OF MOVE LOOP TEST F6B12760 07260 -0340 60 0 04303 LAS* RGSLS IS ENTRY POINT ON SECONDARY LOOKFOR LIST F6B12770 07261 0020 00 0 07263 TRA *+2 NO F6B12780 07262 1 00001 1 07275 TXI LSRL3,1,1 YES, GO DELETE NAME F6B12790 07263 2 00001 1 07260 TIX *-3,1,1 IS SECONDARY LOOKFOR LIST EXHAUSTED F6B12800 07264 0020 00 4 00001 LSRL2 TRA 1,4 YES F6B12810 OPTIONAL SUBROUTINE TO SUBSTITUTE EXEM FOR EXE F6B12811 07265 -0340 00 0 11505 EXEMQ LAS EXENM IS NAME EXE F6B12811 07266 0020 00 4 00001 TRA 1,4 NO F6B12812 07267 0520 00 0 04211 ZET XSWCH9 YES, IS OFF LINE OUTPUT COLUMN BINARY F6B12813 07270 0020 00 4 00001 TRA 1,4 NO F6B12814 07271 -0520 00 0 04201 NZT XSWCH1 ARE ON-LINE CARDS REQUESTED F6B12815 BINARY CARD NO. 9F310072 07272 0520 00 0 04204 ZET XSWCH4 YES, ARE THEY ROW BINARY F6B12816 07273 -0500 00 0 11506 CAL EXEMN NO, SUBSTITUTE EXEM FOR EXE F6B12817 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 73 SUBROUTINES RELEVANT TO LIBRARY SEARCH 07274 0020 00 4 00001 TRA 1,4 RETURN F6B12818 DELETE NAME FROM SECONDARY LOOKFOR LIST F6B12820 07275 0046 00 4 00003 LSRL3 TIF 3,4 SHOULD NAME BE DELETED F6B12830 07276 0602 00 0 04256 SLW XSYMBL YES, SAVE NAME TO BE DELETED F6B12840 07277 3 00000 1 07303 TXH *+4,1,** IS THIS FINAL NAME ON LOOKFOR LIST F6B12850 07300 -0500 60 0 04303 CAL* RGSLS NO, MOVE NEXT NAME UP (OFF THE TOP) F6B12860 07301 0602 60 0 04304 SLW* RGSLS+1 F6B12870 07302 1 00001 1 07277 TXI *-3,1,1 BUMP TO NEXT NAME F6B12880 07303 1 77776 1 07304 TXI *+1,1,-2 BUMP SECONDARY LOOKFOR LIST COUNT DOWN ONEF6B12890 07304 0634 00 1 07346 SXA LENSL,1 F6B12900 07305 -0534 00 1 07340 LXD LNSFT,1 BUMP SECONDARY FOUND LIST OVERFLOW TEST F6B12910 07306 1 77777 1 07307 TXI *+1,1,-1 F6B12920 07307 -0634 00 1 07340 SXD LNSFT,1 F6B12930 07310 -0500 00 0 04256 CAL XSYMBL PICK UP DELETED NAME AGAIN F6B12940 07311 0020 00 4 00002 TRA 2,4 GO ADD NAME TO SECONDARY FOUND LIST F6B12950 F6B12960 SEARCH FOUND LISTS FOR ENTRY POINT NAME F6B12970 07312 0534 00 1 07335 LSRFD LXA LENSF,1 LOAD SECONDARY FOUND LIST COUNT F6B12980 07313 -3 00000 1 07320 TXL LSRF1,1,0 IS SECONDARY FOUND LIST EXHAUSTED F6B12990 07314 -0340 60 0 04305 LAS* RGSFD NO, IS ENTRY POINT ON SECONDARY FOUND LISTF6B13000 07315 0020 00 0 07317 TRA *+2 NO F6B13010 07316 0020 00 4 00002 TRA 2,4 YES F6B13020 07317 1 00001 1 07313 TXI *-4,1,1 BUMP SECONDARY FOUND LIST COUNT F6B13030 BINARY CARD NO. 9F310073 07320 0534 00 1 07327 LSRF1 LXA LENFD,1 LOAD FOUND LIST COUNT F6B13040 07321 -3 00000 1 07326 TXL LSRF2,1,0 IS FOUND LIST EXHAUSTED F6B13050 07322 -0340 60 0 04231 LAS* ORGCLO NO, IS ENTRY POINT ON FOUND LIST F6B13060 07323 0020 00 0 07325 TRA *+2 NO F6B13070 07324 0020 00 4 00002 TRA 2,4 YES F6B13080 07325 1 00001 1 07321 TXI *-4,1,1 BUMP LIST COUNT TO NEXT NAME F6B13090 07326 0020 00 4 00001 LSRF2 TRA 1,4 NOT FOUND F6B13100 F6B13110 ADD NAME TO FOUND LIST F6B13120 07327 0774 00 1 00000 LENFD AXT **,1 LOAD CURRENT FOUND COUNT F6B13130 07330 0602 60 0 04231 SLW* ORGCLO ADD THIS NAME TO FOUND LIST F6B13140 07331 1 77777 1 07332 TXI *+1,1,-1 BUMP FOUND COUNT F6B13150 07332 -3 00000 1 05431 LNFDT TXL LIBOV,1,** *DID PRIMARY FOUND LIST OVERLAP SEC FOUND F6B13160 07333 0634 00 1 07327 SXA LENFD,1 NO F6B13170 07334 0020 00 4 00003 TRA 3,4 F6B13180 F6B13190 ADD NAMES ON SUBROUTINE PROGRAM CARD NOT REQUIRED BY F6B13200 OBJECT PROGRAM TO SECONDARY FOUND LIST F6B13210 07335 0774 00 1 00000 LENSF AXT **,1 LOAD CURRENT SECONDARY FOUND LIST COUNT F6B13220 07336 0602 60 0 04305 SLW* RGSFD ADD THIS NAME TO SECONDARY FOUND LIST F6B13230 07337 1 77777 1 07340 TXI *+1,1,-1 BUMP SECONDARY FOUND LIST COUNT F6B13240 07340 -3 00000 1 05431 LNSFT TXL LIBOV,1,** *DID SECONDARY FOUND LIST OVERLAP LOST LISTF6B13250 07341 0634 00 1 07335 SXA LENSF,1 NO F6B13260 07342 -0534 00 1 07351 LXD LNSLT,1 BUMP SECONDARY LOST LIST OVERFLOW TEST F6B13270 07343 1 77777 1 07344 TXI *+1,1,-1 F6B13280 07344 -0634 00 1 07351 SXD LNSLT,1 F6B13290 07345 0020 00 4 00001 TRA 1,4 F6B13300 F6B13310 ADD NAMES ON SUBROUTINE TRANSFER VECTOR NOT ALREADY IN F6B13320 DECK TO SECONDARY LOOKFOR LIST F6B13330 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 74 SUBROUTINES RELEVANT TO LIBRARY SEARCH BINARY CARD NO. 9F310074 07346 0774 00 1 00000 LENSL AXT **,1 LOAD CURRENT SECONDARY LOOKFOR LIST COUNT F6B13340 07347 1 00001 1 07350 TXI *+1,1,1 BUMP SECONDARY LOOKFOR LIST COUNT F6B13350 07350 0602 60 0 04303 SLW* RGSLS ADD THIS NAME TO SECONDARY LOOKFOR LIST F6B13360 07351 3 00000 1 05431 LNSLT TXH LIBOV,1,** *DID SECONDARY LOST LIST OVERLAP FOUND LISTF6B13370 07352 0634 00 1 07346 SXA LENSL,1 NO F6B13380 07353 -0534 00 1 07340 LXD LNSFT,1 BUMP SECONDARY FOUND LIST OVERFLOW TEST F6B13390 07354 1 00001 1 07355 TXI *+1,1,1 F6B13400 07355 -0634 00 1 07340 SXD LNSFT,1 F6B13410 07356 -0634 00 4 05410 SXD LIBFG,4 SET FLAG FOR ENTRY POINT ADDED THIS PASS F6B13420 07357 0020 00 4 00001 TRA 1,4 F6B13430 F6B13440 CHECK FOR TABLE OVERLAP F6B13450 XR1 HAS COUNT OF TABLE TO BE ADDED F6B13460 07360 -0634 00 1 07362 TOVLP SXD *+2,1 COMPUTE LENGTH OF SYMBOL TABLE F6B13470 07361 -0535 00 2 07445 LDC SYMTL,2 INCLUDING NUMBER OF ENTRIES MADE F6B13480 07362 1 00000 2 07363 TXI *+1,2,** AND LENGTH OF TABLE TO BE ADDED F6B13490 07363 0634 00 2 04333 SXA ADDRS,2 F6B13500 07364 -0500 00 0 04313 CAL RGSTR F6B13510 07365 -0320 00 0 11446 ANA ADMSK F6B13520 07366 0400 00 0 04333 ADD ADDRS F6B13530 07367 0340 00 0 04334 CAS BILOC WILL IT OVERLAP UPPER TABLES F6B13540 07370 0761 00 0 00000 NOP YES F6B13550 07371 0020 00 0 07373 TRA *+2 YES F6B13560 07372 0020 00 4 00001 TRA 1,4 NO F6B13570 07373 0074 00 4 10557 TOVL1 TSX WRITE,4 *YES, WRITE TABLE OUT MESSAGE F6B13580 BINARY CARD NO. 9F310075 07374 -1 00020 0 06353 IOCT TABOT,,16 $F6B13590 07375 0020 00 0 06115 TRA PST05+2 F6B13600 F6B13610 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 75 SUBROUTINE RELEVANT TO SYMBOL TABLE FIND ORDERED POSITION FOR NEW ENTRY INTO SYMBOL TABLE F6B13620 07376 0634 00 1 07441 SRSYM SXA ENSYX,1 SAVE TABLE COUNT F6B13630 07377 0602 00 0 04336 SLW ERASE SAVE RIGHT ENTRY F6B13640 07400 0560 00 0 07445 LDQ SYMTL INITIALIZE BINARY SEARCH FOR SYMBOL TABLE F6B13650 07401 -0600 00 0 04122 STQ XBSRCH F6B13660 07402 0534 00 1 07444 LXA SYMTS,1 LOAD HOP COUNT F6B13670 07403 -0534 00 2 07444 LXD SYMTS,2 LOAD BUFFER LENGTH F6B13680 07404 0500 60 0 04313 SRSY1 CLA* RGSTR GET NEXT RIGHT ENTRY F6B13690 07405 -0320 00 0 11446 ANA ADMSK MASK IN LOCATION F6B13700 07406 0340 00 0 04333 CAS ADDRS IS IT SAME AS NEW ENTRY F6B13710 07407 1 77776 1 04165 TXI XLOWER,1,-2 NO, BUMP HOP COUNT TO HALF TABLE LENGTH F6B13720 07410 1 77777 2 07412 TXI ENSYM,2,-1 YES, GO MAKE ENTRY F6B13730 07411 1 77776 1 04166 TXI XRAISE,1,-2 NO, BUMP HOP COUNT TO HALF TABLE LENGTH F6B13740 INSERT NEXT ENTRY INTO ORDERED POSITION IN SYMBOL TABLE F6B13750 07412 -0634 00 2 07426 ENSYM SXD ENSY2,2 SET END OF MOVE LOOP TO THIS POSITION F6B13760 07413 -0534 00 2 07445 LXD SYMTL,2 GET CURRENT BUFFER LENGTH F6B13770 07414 1 77777 2 07415 TXI *+1,2,-1 BUMP FOR NEW ENTRY F6B13780 07415 -0634 00 2 07445 SXD SYMTL,2 AND SAVE F6B13790 07416 1 00001 2 07417 TXI ENSY1,2,1 BUMP BACK FOR PARAMETER UPDATE TEST F6B13800 07417 3 77776 2 07426 ENSY1 TXH ENSY2,2,-2 DOES LENGTH OF TABLE REQUIRE A LARGER HOP F6B13810 07420 -0500 00 0 07444 CAL SYMTS YES, GET OLD PARAMETER F6B13820 07421 0400 00 0 07443 ADD SYMTA UPDATE TO NEXT LARGER INITIAL HOP F6B13830 BINARY CARD NO. 9F310076 07422 0602 00 0 07444 SLW SYMTS AND SAVE F6B13840 07423 0622 00 0 07443 STD SYMTA UPDATE BUMPER FOR NEXT LARGER HOP F6B13850 07424 0400 00 0 07443 ADD SYMTA UPDATE PARAMETER UPDATE TEST F6B13860 07425 0622 00 0 07417 STD ENSY1 AND SAVE F6B13870 07426 3 00000 2 07434 ENSY2 TXH ENSY3,2,** IS THIS ORDERED LOCATION OF NEW ENTRY F6B13880 07427 -0500 60 0 04310 CAL* RGSTL-1 NO, MOVE THIS ENTRY UP ONE SPACE F6B13890 07430 0602 60 0 04311 SLW* RGSTL TO MAKE ROOM FOR NEW ENTRY WHICH SHALL F6B13900 07431 0500 60 0 04312 CLA* RGSTR-1 PRECEDE IT F6B13910 07432 0601 60 0 04313 STO* RGSTR F6B13920 07433 1 00001 2 07426 TXI ENSY2,2,1 BUMP TO NEXT LOWER ENTRY, AND GO MOVE MOREF6B13930 07434 -0500 00 0 04256 ENSY3 CAL XSYMBL INSERT BCD SYMBOL F6B13940 07435 0602 60 0 04311 SLW* RGSTL IN LEFT BUFFER F6B13950 07436 0500 00 0 04336 CLA ERASE INSERT LOCATION (ADDRESS), FLAG (DECR) F6B13960 07437 -0501 00 0 11461 ORA P(2) AND RELOCATION BITS 010 (PREFIX) F6B13970 07440 0601 60 0 04313 STO* RGSTR IN RIGHT BUFFER F6B13980 07441 0774 00 1 00000 ENSYX AXT **,1 RELOAD TABLE COUNT F6B13990 07442 0020 00 4 00002 TRA 2,4 F6B14000 07443 0 77777 0 00002 SYMTA PZE 2,,-1 F6B14010 07444 0 77777 0 00005 SYMTS PZE 5,,-1 F6B14020 07445 3 77776 2 07404 SYMTL TXH SRSY1,2,-2 F6B14030 F6B14040 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 76 SUBROUTINES RELEVANT TO SECOND CIT PASS MOVE 4-WORD CIT FROM TAPE 4 BUFFER TO WORKING AREA. F6B14050 ON THE FIRST CALL TO THIS SUBROUTINE BUFFER 1 IS FILLED, F6B14060 CHECKED FOR TAPE ERROR, AND BUFFER 2 FILLED WITH NEXT F6B14070 RECORD. ERROR ON OR END OF FILE ON SUCCESSIVE BUFFERS F6B14080 ARE NOT TESTED UNTIL PRIOR BUFFER IS EXHAUSTED. F6B14090 07446 0634 00 4 07521 RDCIT SXA RDCIX,4 SAVE CALLING LINKAGE F6B14100 07447 0774 00 4 00000 AXT **,4 GET CIT COUNT F6B14110 BINARY CARD NO. 9F310077 07450 2 00004 4 07510 TIX RDCI2,4,4 IS BUFFER EXHAUSTED F6B14120 07451 0774 00 2 00001 AXT 1,2 YES, SET BUFFER 1 SWITCH F6B14130 07452 -3 00000 0 07454 TXL *+2,,0 IS BUFFER 1 NEXT F6B14140 07453 0774 00 2 00002 AXT 2,2 NO, SET BUFFER 2 SWITCH INSTEAD F6B14150 07454 0502 00 0 07452 CLS *-2 RESET BUFFER SWITCH F6B14160 07455 0601 00 0 07452 STO *-3 F6B14170 07456 3 00000 4 07463 TXH *+5,4,0 IS THIS FIRST RECORD F6B14180 07457 0074 00 4 73606 TSX (TAPE),4 *YES, READ FIRST CIT RECORD F6B14190 07460 0 40004 2 07537 PZE RDCBF,2,(RBEP) F6B14200 07461 0 00004 0 07534 PZE CLABL,,COTTAP F6B14210 07462 0 00000 0 03760 PZE XDELET+1 F6B14220 07463 0074 00 4 73606 TSX (TAPE),4 *READ NEXT CIT RECORD F6B14230 07464 0 40004 2 07540 PZE RDCBF+1,2,(RBEP) F6B14240 07465 0 00004 0 07534 PZE CLABL,,COTTAP F6B14250 07466 0 00000 0 03760 PZE XDELET+1 F6B14260 COMPUTE WORD COUNT AND INITIALIZE BUFFERS F6B14270 07467 0500 00 2 07537 CLA RDCBF,2 INITIALIZE WORD COUNT COMPUTATION F6B14280 07470 0737 00 4 00000 PAC ,4 F6B14290 07471 -0634 00 4 07504 SXD RDCI1,4 F6B14300 07472 0534 00 4 73676 LXA (SCHU)+COTTAP,4 GET LOCATION OF LAST+1 WORD IN CIT BLOCK F6B14310 07473 -3 00000 4 07523 TXL RDCI3,4,0 WAS END FILE SENSED F6B14320 07474 0634 00 4 07510 SXA RDCI2,4 NO, INITIALIZE MOVE LOOP F6B14330 07475 1 00001 4 07476 TXI *+1,4,1 F6B14340 BINARY CARD NO. 9F310078 07476 0634 00 4 07512 SXA RDCI2+2,4 F6B14350 07477 1 00001 4 07500 TXI *+1,4,1 F6B14360 07500 0634 00 4 07514 SXA RDCI2+4,4 F6B14370 07501 1 00001 4 07502 TXI *+1,4,1 F6B14380 07502 0634 00 4 07516 SXA RDCI2+6,4 F6B14390 07503 1 77775 4 07504 TXI *+1,4,-3 F6B14400 07504 1 00000 4 07505 RDCI1 TXI *+1,4,** F6B14410 07505 -3 00310 4 07510 TXL RDCI2,4,CITSIZ IS RECORD TOO LONG F6B14420 07506 0774 00 2 77777 AXT -1,2 YES, SET CIT COUNT SWITCH F6B14430 07507 0020 00 0 07526 TRA RDCRR+1 F6B14440 MOVE CIT FROM BUFFER TO WORKING AREA F6B14450 07510 -0500 00 4 00000 RDCI2 CAL **,4 F6B14460 07511 0602 00 0 04327 SLW CITSL F6B14470 07512 -0500 00 4 00000 CAL **,4 F6B14480 07513 0602 00 0 04330 SLW CITOP F6B14490 07514 -0500 00 4 00000 CAL **,4 F6B14500 07515 0602 00 0 04331 SLW CITSA F6B14510 07516 -0500 00 4 00000 CAL **,4 F6B14520 07517 0602 00 0 04332 SLW CITRA F6B14530 07520 0634 00 4 07447 SXA RDCIT+1,4 SAVE CIT COUNT F6B14540 07521 0774 00 4 00000 RDCIX AXT **,4 RELOAD CALLING LINKAGE F6B14550 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 77 SUBROUTINES RELEVANT TO SECOND CIT PASS 07522 0020 00 4 00002 TRA 2,4 F6B14560 END OF CIT FILE SENSED F6B14570 07523 0534 00 4 07521 RDCI3 LXA RDCIX,4 RELOAD CALLING LINKAGE F6B14580 BINARY CARD NO. 9F310079 07524 0020 00 4 00001 TRA 1,4 F6B14590 ERROR ON CIT OUTPUT TAPE F6B14600 07525 0774 00 2 77776 RDCRR AXT -2,2 SET IMPROPER END OF FILE SWITCH F6B14610 07526 0074 00 4 73606 TSX (TAPE),4 *PRINT ERROR MESSAGE F6B14620 07527 0 04000 2 07532 PZE *+3,2,(TPER) F6B14630 07530 -0 00004 0 07534 MZE CLABL,,COTTAP F6B14640 07531 0020 00 0 03760 TRA XDELET+1 F6B14650 07532 234664456360 BCI 1,COUNT F6B14660 07533 254524263143 BCI 1,ENDFIL F6B14670 07534 233163620006 CLABL BCI 1,CITS06 F6B14680 F6B14690 07535 3 00311 0 14273 IORT BUFF2,,CITSIZ+1 F6B14700 07536 3 00311 0 13763 IORT BUFF1,,CITSIZ+1 F6B14710 07537 3 00311 0 14273 RDCBF IORT BUFF2,,CITSIZ+1 F6B14720 F6B14730 CONTROL CONVERSION OF FOUR WORD CIT F6B14740 07540 0634 00 4 07634 CITCV SXA CITCX,4 SAVE CALLING LINKAGE F6B14750 07541 0634 00 1 07635 SXA CITCX+1,1 SAVE TABLE COUNT F6B14760 07542 -0500 00 0 04330 CAL CITOP GET OPCODE F6B14770 07543 -0320 00 0 11464 ANA OPMSK F6B14780 07544 -0534 00 2 11412 LXD OPLST,2 PREPARE TO TEST FOR PSEUDOOPERATION F6B14790 07545 -0340 00 2 11424 LAS OPLST+10,2 IS IT PSEUDOOP F6B14800 07546 0020 00 0 07550 TRA *+2 NO F6B14810 07547 0020 00 0 07552 TRA *+3 YES F6B14820 07550 2 00001 2 07545 TIX *-3,2,1 IS LIST EXHAUSTED F6B14830 07551 1 77777 2 07552 TXI *+1,2,-1 YES, OP IS MACHINE OP F6B14840 BINARY CARD NO. 9F310080 07552 0634 00 2 07555 SXA POPSW,2 SET PSEUDOOPERATION SWITCH F6B14850 07553 0074 00 4 07637 TSX BINCV,4 *CONVERT CIT TO BINARY INSTRUCTION F6B14860 07554 0074 00 4 07774 TSX SAPCV,4 *CONVERT CIT TO MACHINE LANGUAGE LISTING F6B14870 07555 0774 00 4 00000 POPSW AXT **,4 PICK UP PSEUDOOP SWITCH F6B14880 07556 0020 00 4 07570 TRA CITC1,4 SORT OUT OPCODES F6B14890 07557 DUP 1,5 EXPANSION SPACE FOR ADDITIONAL PSEUDOOPS F6B14900 07557 0 00000 0 00000 PZE F6B14910 07564 0020 00 0 07570 TRA CITC1 OPCODE IS OCT F6B14920 07565 0020 00 0 07570 TRA CITC1 OPCODE IS BCD F6B14930 07566 0020 00 0 07575 TRA CITC2 OPCODE IS BSS F6B14940 07567 0020 00 0 07577 TRA CITC2+2 OPCODE IS SYN F6B14950 07570 0500 00 0 04342 CITC1 CLA LOCTR UPDATE PROGRAM COUNTER F6B14960 07571 0621 00 0 04333 STA ADDRS SAVE TO CHECK DEFINITION OF SYMBOLIC LOC F6B14970 07572 0400 00 0 11425 ADD L(1) F6B14980 07573 0621 00 0 04342 STA LOCTR F6B14990 07574 0020 00 0 07577 TRA CITC2+2 F6B15000 07575 0500 00 0 04342 CITC2 CLA LOCTR OPCODE IS BSS, CHECK SYMBOLIC LOCATION F6B15010 07576 0621 00 0 04333 STA ADDRS LENGTH OF BLOCK RESERVED IS ZERO F6B15020 07577 -0500 00 0 04327 CAL CITSL GET SYMBOLIC LOCATION F6B15030 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 78 SUBROUTINES RELEVANT TO SECOND CIT PASS BINARY CARD NO. 9F310081 07600 0074 00 4 03776 TSX XSORT0,4 *SORT OUT SYMBOLS F6B15040 07601 0020 00 0 07634 TRA CITCX NO SYMBOLIC LOCATION F6B15050 07602 0074 00 4 03735 TSX XERR00,4 *PROGRAM COUNTER (*) IN SYMBOLIC LOC F6B15060 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B15070 * THE INTERNAL SYMBOL FOR PROGRAM COUNTER (17)8 HAS BEEN F6B15080 * FOUND IN THE FIRST SIX BITS IN THE SYMBOLIC LOCATION F6B15090 * LOCATION FIELD OF A CIT (CITSL). SECTION 3 PUT IT THERE, F6B15100 * BUT SECTION 6 SHOULD HAVE DELETED IT AT ROUTINE PAS15. F6B15110 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B15120 07603 0020 00 0 07625 TRA CITC5 EXTERNAL VARIABLE F6B15130 07604 0020 00 0 07621 TRA CITC4 INTERNAL FORMULA NUMBER F6B15140 07605 0020 00 0 07612 TRA CITC3 SUB INTERNAL FORMULA NUMBER F6B15150 07606 0074 00 4 03735 TSX XERR00,4 *INT SYMBOL FOR ERASABLE IN SYMBOLIC LOC F6B15160 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B15170 * SEE DISCUSSION OF SIMILAR ERROR AT PAS15. F6B15180 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B15190 07607 0074 00 4 04101 TSX XSRTIV,4 *IS INTERNAL SYMBOL IN TIV F6B15200 07610 0074 00 4 03735 TSX XERR00,4 *NO, UNDEFINED INTERNAL SYMBOL F6B15210 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B15220 * THE INTERNAL SYMBOL STORED IN LOCATION SYMBL HAS BEEN F6B15230 * RECOGNIZED IN THE SYMBOLIC LOCATION FIELD OF A CIT F6B15240 * (CITSL). SECTION 6 SHOULD HAVE ENTERED IT IN TIV AT F6B15250 * ROUTINE PAS15. IT HAS NOT BEEN RECOGNIZED IN TIV. F6B15260 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B15270 07611 0020 00 0 07630 TRA CITC6 YES F6B15280 07612 0074 00 4 04101 CITC3 TSX XSRTIV,4 *IS SUB IFN IN TIV F6B15290 07613 0020 00 0 07634 TRA CITCX NO, NOT REQUIRED BY ANY SYMBOLIC ADDRESS F6B15300 07614 -0320 00 0 11446 ANA ADMSK YES, MASK IN LOCATION F6B15310 07615 -0100 00 0 07631 TNZ CITC6+1 IS SYMBOL DEFINED F6B15320 07616 0500 00 0 04333 CLA ADDRS NO, DEFINE IT IN THIS PASS F6B15330 07617 0621 60 0 04230 STA* ORGTIV F6B15340 07620 0020 00 0 07634 TRA CITCX F6B15350 07621 -0534 00 4 04327 CITC4 LXD CITSL,4 GET LOCATION FROM IFN TABLE F6B15360 07622 0500 60 0 04233 CLA* ORGIFN F6B15370 07623 0771 00 0 00022 ARS 18 F6B15380 07624 0020 00 0 07630 TRA CITC6 F6B15390 07625 0074 00 4 04043 CITC5 TSX XSRDEV,4 *IS TRANSFER VECTOR OR FORSUB NAME IN DEV F6B15400 BINARY CARD NO. 9F310082 07626 0074 00 4 03735 TSX XERR00,4 *NO, UNDEFINED EXTERNAL SYMBOL F6B15410 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B15420 * THE EXTERNAL SYMBOL FOR A TRANSFER VECTOR OR ARITHMETIC F6B15430 * STATEMENT FUNCTION NAME STORED IN LOCATION SYMBL HAS BEENF6B15440 * ENCOUNTERED IN THE SYMBOLIC LOCATION FIELD OF A CIT F6B15450 * (CITSL). SECTION 6 SHOULD HAVE ENTERED IT INTO DEV AT F6B15460 * ROUTINE TRVEC OR FORSB. IT HAS NOT BEEN RECOGNIZED IN DEVF6B15470 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B15480 07627 0 00000 0 00000 PZE NOT USED F6B15490 07630 -0320 00 0 11446 CITC6 ANA ADMSK MASK IN ADDRESS F6B15500 07631 0402 00 0 04333 SUB ADDRS DO ASSIGNMENTS AGREE FIRST PASS VS SECOND F6B15510 07632 0100 00 0 07634 TZE *+2 YES F6B15520 07633 0074 00 4 03735 TSX XERR00,4 *NO, STORAGE ASSIGNMENTS DIFFER PASS1 VS 2 F6B15530 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B15540 * THE LOCATION ASSIGNED TO THE SYMBOL STORED IN LOCATION F6B15550 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 79 SUBROUTINES RELEVANT TO SECOND CIT PASS * SYMBL HAS BEEN DEFINED BY SECTION 6 AT ROUTINE PAS14. THEF6B15560 * LOCATION COMPUTED HERE DOES NOT QUITE AGREE. F6B15570 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B15580 07634 0774 00 4 00000 CITCX AXT **,4 RELOAD CALLING LINKAGE F6B15590 07635 0774 00 1 00000 AXT **,1 RELOAD TABLE COUNT F6B15600 07636 0020 00 4 00001 TRA 1,4 F6B15610 F6B15620 CONVERT CIT TO BINARY MACHINE OP CODE F6B15630 07637 0634 00 4 07755 BINCV SXA BINCX,4 SAVE CALLING LINKAGE F6B15640 07640 0600 00 0 04333 STZ ADDRS RESET EFFECTIVE ADDRESS F6B15650 07641 0600 00 0 04343 STZ RLBIT RESET RELOCATION BITS F6B15660 07642 0774 00 1 00000 AXT 0,1 F6B15670 07643 0020 00 2 07655 TRA BIN01,2 SORT OUT OPCODES F6B15680 07644 DUP 1,5 EXPANSION SPACE FOR ADDITIONAL PSEUDOOPS F6B15690 07644 0 00000 0 00000 PZE F6B15700 07651 0020 00 0 07752 TRA BIN07 OPCODE IS OCT F6B15710 07652 0020 00 0 07752 TRA BIN07 OPCODE IS BCD F6B15720 07653 0020 00 4 00001 TRA 1,4 OPCODE IS BSS F6B15730 BINARY CARD NO. 9F310083 07654 0761 00 0 00000 NOP OPCODE IS SYN F6B15740 07655 -0500 00 0 04331 BIN01 CAL CITSA GET SYMBOLIC ADDRESS F6B15750 07656 0074 00 4 03776 TSX XSORT0,4 *SORT OUT SYMBOLS F6B15760 07657 0020 00 0 07720 TRA BIN05 NO SYMBOLIC ADDRESS F6B15770 07660 0020 00 0 07713 TRA BIN04 PROGRAM COUNTER F6B15780 07661 0020 00 0 07700 TRA BIN03 EXTERNAL VARIABLE F6B15790 07662 0020 00 0 07672 TRA BIN02 INTERNAL FORMULA NUMBER F6B15800 07663 0020 00 0 07665 TRA *+2 SUB INTERNAL FORMULA NUMBER F6B15810 07664 0020 00 0 07665 TRA *+1 INTERNAL SYMBOL FOR ERASABLE F6B15820 07665 0074 00 4 04101 TSX XSRTIV,4 *INTERNAL SYMBOL FOR DATA, IS IT IN TIV F6B15830 07666 0074 00 4 03735 TSX XERR00,4 *NO, UNDEFINED INTERNAL SYMBOL F6B15840 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B15850 * THE INTERNAL SYMBOL STORED IN LOCATION SYMBL HAS BEEN F6B15860 * ENCOUNTERED IN A CIT SYMBOLIC ADDRESS FIELD, BUT IS NOT F6B15870 * IN TIV. SECTION 6 SHOULD HAVE ENTERED IT IN TIV AT F6B15880 * ROUTINE PAS05 IF IT IS AN ERASABLE CELL, PAS06 IF IT IS AF6B15890 * SUBSIDIARY INTERNAL FORMULA NUMBER, PAS15 IF IT IS A DATAF6B15900 * CELL, OR JUST ABOVE REL01 IF IT IS 0A1. IT IS LOST. F6B15910 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B15920 07667 -0320 00 0 11446 ANA ADMSK YES, GET LOCATION ASSIGNED F6B15930 07670 -0100 00 0 07714 TNZ BIN04+1 WAS THIS SYMBOL DEFINED F6B15940 07671 0074 00 4 03735 TSX XERR00,4 *NO, UNDEFINED INTERNAL SYMBOL F6B15950 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B15960 * THE INTERNAL SYMBOL STORED IN LOCATION SYMBL HAS BEEN F6B15970 * ENCOUNTERED IN A CIT SYMBOLIC ADDRESS FIELD, AND HAS BEENF6B15980 * ENTERED IN TIV AT PAS04, EXPECTING THAT IT WOULD BE F6B15990 * DEFINED AT CITC3 WHEN IT APPEARED IN A CIT SYMBOLIC F6B16000 * LOCATION FIELD. IT HAS NOT BEEN SO RECOGNIZED, AND IS F6B16010 * UNDEFINED. DID A PRIOR SECTION OMIT ANY CITS. F6B16020 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B16030 07672 -0534 00 4 04331 BIN02 LXD CITSA,4 GET LOCATION FROM IFN TABLE F6B16040 07673 0500 60 0 04233 CLA* ORGIFN F6B16050 07674 0771 00 0 00022 ARS 18 F6B16060 07675 -0320 00 0 11446 ANA ADMSK YES, IS IT DEFINED F6B16070 07676 -0100 00 0 07714 TNZ BIN04+1 YES F6B16080 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 80 SUBROUTINES RELEVANT TO SECOND CIT PASS 07677 0074 00 4 03735 TSX XERR00,4 *NO, UNDEFINED INTERNAL STATEMENT NUMBER F6B16090 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B16100 * THE INTERNAL STATEMENT NUMBER STORED IN LOCATION SYMBL F6B16110 * HAS BEEN ENCOUNTERED IN A CIT SYMBOLIC ADDRESS FIELD, BUTF6B16120 * IT HAS NO LOCATION ASSIGNED TO IT IN IFN TABLE. WHEN IT F6B16130 * APPEARED IN A CIT SYMBOLIC LOCATION FIELD, SECTION 6 F6B16140 * SHOULD HAVE DEFINED IT AT PAS17. ARE ANY CITS MISSING. F6B16150 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B16160 07700 0074 00 4 04043 BIN03 TSX XSRDEV,4 *EXTERNAL VARIABLE, IS IT IN DEV F6B16170 07701 0074 00 4 04062 TSX XSRTEV,4 *NO, IS IT IN TEV F6B16180 BINARY CARD NO. 9F310084 07702 0074 00 4 03735 TSX XERR00,4 *NO, UNDEFINED EXTERNAL SYMBOL F6B16190 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B16200 * THE EXTERNAL SYMBOL STORED IN LOCATION SYMBL HAS BEEN F6B16210 * ENCOUNTERED IN A CIT SYMBOLIC ADDRESS FIELD, BUT IS NOT F6B16220 * IN DEV OR TEV. SECTION 6 SHOULD HAVE ENTERED IT IN DEV ATF6B16230 * ROUTINE AFTER TRVC1 IF IT IS $ OR $$, FROM SPRCM TO FORS1F6B16240 * IF IT APPEARED IN A TAPE TABLE, OR IN TEV AT PAS11 IF IT F6B16250 * IS A SINGLE CELLED ERASABLE VARIABLE NAME. F6B16260 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B16270 07703 0044 00 0 00000 PAI YES F6B16280 07704 -0056 00 200000 LNT 200000 IS IT AN ARGUMENT F6B16290 07705 0020 00 0 07714 TRA BIN04+1 NO F6B16300 07706 -0500 00 0 04330 CAL CITOP YES, GET OPCODE F6B16310 07707 0074 00 4 07757 TSX SROPT,4 *FIND CORRESPONDING BINARY MACHINE OP F6B16320 07710 0074 00 4 03735 TSX XERR00,4 *NOT FOUND, ILLEGAL OPCODE F6B16330 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B16340 * THE OPCODE IN THE ACCUMULATOR HAS NOT BEEN RECOGNIZED IN F6B16350 * THE LIST OF VALID MACHINE OPERATION CODES. F6B16360 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B16370 07711 -0754 00 0 00000 PXD ,0 RESET ADDRESS F6B16380 07712 0020 00 0 07743 TRA BIN06 F6B16390 07713 0500 00 0 04342 BIN04 CLA LOCTR GET CURRENT CONTENTS OF PROGRAM COUNTER F6B16400 07714 0621 00 0 04333 STA ADDRS SAVE LOCATION ASSIGNED TO SYMBOL F6B16410 07715 0500 00 0 11426 CLA L(2) SET ADDRESS DIRECTLY RELOCATABLE 010 F6B16420 07716 0601 00 0 04343 STO RLBIT F6B16430 07717 0774 00 1 00003 AXT 3,1 PREPARE TO RESET RELOCATION BIT F6B16440 07720 0534 00 4 07555 BIN05 LXA POPSW,4 PICK UP PSEUDOOPERATION SWITCH F6B16450 07721 3 00000 4 07755 TXH BINCX,4,0 IS OPCODE SYN F6B16460 07722 -0500 00 0 04330 CAL CITOP NO, GET BCD OPCODE F6B16470 07723 0074 00 4 07757 TSX SROPT,4 *FIND CORRESPONDING BINARY MACHINE OP F6B16480 07724 0074 00 4 03735 TSX XERR00,4 *NOT FOUND, ILLEGAL OPCODE F6B16490 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B16500 * SEE DISCUSSION OF SIMILAR ERROR IMMEDIATELY ABOVE. F6B16510 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B16520 07725 0500 00 0 04332 CLA CITRA GET CIT RELATIVE ADDRESS F6B16530 07726 0771 00 0 00022 ARS 18 F6B16540 07727 0400 00 0 04333 ADD ADDRS COMPUTE EFFECTIVE ADDRESS F6B16550 BINARY CARD NO. 9F310085 07730 0400 00 0 11447 ADD T(1) COMPLEMENT IF NECESSARY F6B16560 07731 0621 00 0 04335 STA EFADD AND SAVE F6B16570 07732 0560 00 0 04253 LDQ XPGBRK GET PROGRAM BREAK F6B16580 07733 0500 00 0 04333 CLA ADDRS GET LOCATION OF BASE SYMBOL F6B16590 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 81 SUBROUTINES RELEVANT TO SECOND CIT PASS 07734 0040 00 0 07740 TLQ *+4 IS SYMBOL IN COMMON F6B16600 07735 0500 00 0 04335 CLA EFADD NO, GET EFFECTIVE ADDRESS F6B16610 07736 0040 00 0 07742 TLQ *+4 IS IT IN COMMON F6B16620 07737 0020 00 0 07743 TRA *+4 NO F6B16630 07740 0500 00 0 04335 CLA EFADD GET EFFECTIVE ADDRESS FOR COMMON VARIABLE F6B16640 07741 0040 00 0 07743 TLQ *+2 IS IT BELOW COMMON F6B16650 07742 0634 00 1 04343 SXA RLBIT,1 YES, SET BITS COMPLEMENT RELOCATABLE 011 F6B16660 07743 0765 00 0 00017 BIN06 LRS 15 COMBINE EFFECTIVE ADDRESS F6B16670 07744 -0500 00 0 04332 CAL CITRA WITH TAG F6B16680 07745 0765 00 0 00003 LRS 3 F6B16690 07746 -0500 00 0 04330 CAL CITOP DECREMENT F6B16700 07747 0763 00 0 00022 LLS 18 F6B16710 07750 -0501 60 0 11646 ORA* RGABS AND BINARY OPCODE F6B16720 07751 0020 00 0 07753 TRA BIN07+1 F6B16730 07752 -0500 00 0 04331 BIN07 CAL CITSA GET BINARY WORD (PSEUDOOPERATION) F6B16740 07753 0602 00 0 04340 SLW ERAS2 SAVE BINARY INSTRUCTION FOR LISTING F6B16750 07754 0074 00 4 11036 TSX PUNCH,4 *PUNCH OUT INSTRUCTION F6B16760 07755 0774 00 4 00000 BINCX AXT **,4 RELOAD CALLING LINKAGE F6B16770 BINARY CARD NO. 9F310086 07756 0020 00 4 00001 TRA 1,4 F6B16780 F6B16790 SEARCH DICTIONARY OF OP CODES F6B16800 07757 0634 00 1 07772 SROPT SXA SOPRX,1 SAVE RELOCATION BITS F6B16810 07760 0560 00 0 11647 LDQ OPRTL INITIALIZE BINARY SEARCH FOR DICTIONARY F6B16820 07761 -0600 00 0 04122 STQ XBSRCH F6B16830 07762 0774 00 1 00023 AXT 19,1 SET SEARCH FOR TABLE BETWEEN 128 AND 255 F6B16840 07763 0774 00 2 00200 AXT 128,2 OPERATIONS F6B16850 07764 -0320 00 0 11464 ANA OPMSK MASK IN OPCODE F6B16860 07765 0602 00 0 04256 SLW XSYMBL SAVE FOR POSSIBLE DIAGNOSTIC CALL F6B16870 07766 -0340 60 0 11645 SOPR1 LAS* RGOPS IS THIS OPCODE F6B16880 07767 1 77776 1 04165 TXI XLOWER,1,-2 NO, CONTINUE F6B16890 07770 0020 00 0 07772 TRA SOPRX YES, FOUND F6B16900 07771 1 77776 1 04166 TXI XRAISE,1,-2 NO, CONTINUE F6B16910 07772 0774 00 1 00000 SOPRX AXT **,1 RELOAD RELOCATION BITS F6B16920 07773 0020 00 4 00002 TRA 2,4 F6B16930 F6B16940 PREPARE MACHINE LANGUAGE LISTING F6B16950 07774 -0520 00 0 04202 SAPCV NZT XSWCH2 IS MACHINE LANGUAGE LISTING REQUIRED F6B16960 07775 0020 00 4 00001 TRA 1,4 NO F6B16970 07776 0634 00 4 10336 SXA SAPCX,4 YES, SAVE CALLING LINKAGE F6B16980 07777 0774 00 4 04430 AXT WORD2,4 RESET BUFFER ORIGIN F6B16990 10000 0634 00 4 04314 SXA RGSAP,4 F6B17000 10001 0534 00 4 07555 LXA POPSW,4 GET PSEUDOOPERATION SWITCH F6B17010 10002 -3 00000 4 10004 TXL *+2,4,0 IS OP CODE MACHINE OP F6B17020 10003 -3 00002 4 10043 TXL SAPC2,4,2 NO, IS IT BSS OR SYN PSEUDOOP F6B17030 BINARY CARD NO. 9F310087 10004 0500 00 0 04342 CLA LOCTR NO, OP REQUIRES OCTAL COUNTER F6B17040 10005 -0765 00 0 00017 LGR 15 CONVERT RELATIVE COUNT TO BCD F6B17050 10006 -0500 00 0 11515 CAL BLANK PICK UP LEADING BLANK F6B17060 10007 -0140 00 0 10010 TNO *+1 TURN OFF TRIGGER F6B17070 10010 0767 00 0 00003 ALS 3 CREATE ZONE F6B17080 10011 -0763 00 0 00003 LGL 3 SHIFT IN DIGIT F6B17090 10012 -0140 00 0 10010 TNO *-2 IS COUNTER CONVERTED F6B17100 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 82 SUBROUTINES RELEVANT TO SECOND CIT PASS 10013 0767 00 0 00006 ALS 6 YES, LEFT ADJUST OCTAL COUNT F6B17110 10014 -0501 00 0 11515 ORA BLANK ADD FOLLOWING BLANK F6B17120 10015 0602 00 0 04427 SAPC1 SLW WORD1 F6B17130 10016 -0520 00 0 04210 NZT XSWCH8 IS BINARY OPCODE REQUESTED F6B17140 10017 0020 00 0 10052 TRA SAP00 NO F6B17150 CONVERT BINARY MACHINE OP CODE AND RELOCATION BITS F6B17160 TO THREE WORD LISTING FORM F6B17170 10020 0560 00 0 04340 LDQ ERAS2 PICK UP BINARY MACHINE OP F6B17180 10021 0074 00 4 10473 TSX OCTCV,4 *CONVERT BINARY OP TO OCTAL F6B17190 10022 -0500 00 0 04336 CAL ERASE PICK UP SIGN F6B17200 10023 0560 00 0 04337 LDQ ERAS1 AND FIRST HALF OF WORD F6B17210 10024 -0763 00 0 00036 LGL 30 LEFT ADJUST F6B17220 10025 0602 60 0 04314 SLW* RGSAP INSERT IN WORD 2 F6B17230 10026 0074 00 2 10354 TSX SAPBP,2 *BUMP ORIGIN TO NEXT WORD F6B17240 10027 -0763 00 0 00006 LGL 6 LEFT ADJUST SECOND HALF F6B17250 10030 0560 00 0 04340 LDQ ERAS2 F6B17260 10031 -0763 00 0 00036 LGL 30 F6B17270 BINARY CARD NO. 9F310088 10032 0602 60 0 04314 SLW* RGSAP INSERT IN WORD 3 F6B17280 10033 0074 00 2 10354 TSX SAPBP,2 *BUMP ORIGIN TO NEXT WORD F6B17290 10034 -0130 00 0 00000 XCL SHIFT LAST CHARACTER TO LEADING POSITION F6B17300 10035 0534 00 4 04343 LXA RLBIT,4 CONVERT RELOCATION BITS TO BCD F6B17310 10036 -0501 00 4 11546 ORA SPBIT,4 F6B17320 10037 0602 60 0 04314 SLW* RGSAP INSERT IN WORD 4 F6B17330 10040 0074 00 2 10354 TSX SAPBP,2 *BUMP ORIGIN TO NEXT WORD F6B17340 10041 0774 00 4 00004 AXT 4,4 F6B17350 10042 0020 00 0 10053 TRA SAP00+1 MACHINE LISTING WILL BE IN WORDS 5 THRU 8 F6B17360 OP CODE IS BSS OR SYN SET WORDS 1 THRU 10 BLANK F6B17370 10043 -0520 00 0 04210 SAPC2 NZT XSWCH8 IS BINARY OPCODE REQUESTED F6B17380 10044 0020 00 0 10050 TRA *+4 NO F6B17390 10045 0074 00 2 10354 TSX SAPBP,2 *BUMP ORIGIN TO NEXT WORD F6B17400 10046 0074 00 2 10354 TSX SAPBP,2 *BUMP ORIGIN TO NEXT WORD F6B17410 10047 0074 00 2 10354 TSX SAPBP,2 *BUMP ORIGIN TO NEXT WORD F6B17420 10050 0774 00 4 00012 AXT 10,4 F6B17430 10051 0020 00 0 10053 TRA SAP00+1 F6B17440 BINARY OPCODE NOT REQUESTED, SET WORDS 4 THRU 10 BLANK F6B17450 10052 0774 00 4 00007 SAP00 AXT 7,4 F6B17460 BINARY OPCODE REQUESTED, SET WORDS 7 THRU 10 BLANK F6B17470 10053 0560 00 0 11522 LDQ BLNKS SET VARIABLE FIELD BLANK F6B17480 10054 -0600 00 4 04441 STQ WORD0+1,4 F6B17490 10055 2 00001 4 10054 TIX *-1,4,1 F6B17500 CONVERT FOUR WORD CIT TO STANDARD MACHINE LANGUAGE FORM F6B17510 10056 -0500 00 0 04327 CAL CITSL GET SYMBOLIC LOCATION F6B17520 10057 0074 00 4 03776 TSX XSORT0,4 *SORT OUT SYMBOLS F6B17530 BINARY CARD NO. 9F310089 10060 0020 00 0 10071 TRA SAP01+1 NO SYMBOLIC ADDRESS F6B17540 10061 -0500 00 0 11526 CAL HASHS PROGRAM COUNTER F6B17550 10062 0020 00 0 10072 TRA SAP01+2 EXTERNAL VARIABLE F6B17560 10063 -0763 00 0 00040 LGL 32 INTERNAL FORMULA NUMBER F6B17570 10064 0020 00 0 10070 TRA SAP01 SUB INTERNAL FORMULA NUMBER F6B17580 10065 0020 00 0 10061 TRA *-4 INTERNAL SYMBOL FOR ERASABLE F6B17590 10066 0074 00 4 10361 TSX TIVSM,4 *CONVERT INTERNAL SYMBOL TO LISTING SYMBOL F6B17600 10067 0020 00 0 10072 TRA SAP01+2 F6B17610 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 83 SUBROUTINES RELEVANT TO SECOND CIT PASS 10070 0074 00 4 10422 SAP01 TSX TIVNF,4 *CONVERT SUB OR MAIN IFN TO LISTING SYMBOL F6B17620 10071 -0763 00 0 00044 LGL 36 SHIFT IN BLANKS, MAIN OR SUBIFN F6B17630 10072 0602 60 0 04314 SLW* RGSAP INSERT IN LISTING LOCATION FIELD F6B17640 10073 0074 00 2 10354 TSX SAPBP,2 *BUMP ORIGIN TO NEXT WORD F6B17650 10074 0560 00 0 04330 LDQ CITOP GET OPCODE F6B17660 10075 -0500 00 0 11515 CAL BLANK AND LEADING BLANK F6B17670 10076 -0763 00 0 00022 LGL 18 F6B17680 10077 -0600 00 0 04341 STQ ERAS3 SAVE DECREMENT F6B17690 10100 0560 00 0 11522 LDQ BLNKS ADD FOLLOWING BLANK F6B17700 10101 -0763 00 0 00006 LGL 6 F6B17710 10102 0767 00 0 00006 ALS 6 LEFT ADJUST AND INSERT IN FIRST FIVE F6B17720 10103 0602 60 0 04314 SLW* RGSAP CHARACTERS OF OPERATION FIELD WORD F6B17730 10104 0534 00 4 07555 LXA POPSW,4 GET PSEUDOOP SWITCH F6B17740 10105 0020 00 4 10117 TRA *+10,4 SORT OUT OP CODES F6B17750 10106 DUP 1,5 EXPANSION SPACE FOR ADDITIONAL PSEUDOOPS F6B17760 BINARY CARD NO. 9F310090 10106 0 00000 0 00000 PZE F6B17770 10113 0020 00 0 10235 TRA SAP11 OPCODE IS OCT F6B17780 10114 0020 00 0 10227 TRA SAP10 OPCODE IS BCD F6B17790 10115 0020 00 0 10175 TRA SAP06+2 OPCODE IS BSS F6B17800 10116 0761 00 0 00000 NOP OPCODE IS SYN F6B17810 10117 -0500 00 0 04331 CAL CITSA GET SYMBOLIC ADDRESS F6B17820 10120 0074 00 4 03776 TSX XSORT0,4 *SORT OUT SYMBOLS F6B17830 10121 0020 00 0 10156 TRA SAP05 NO SYMBOLIC ADDRESS F6B17840 10122 -0500 00 0 11527 CAL PROCT PROGRAM COUNTER F6B17850 10123 0020 00 0 10130 TRA SAP02 EXTERNAL VARIABLE F6B17860 10124 -0763 00 0 00040 LGL 32 INTERNAL FORMULA NUMBER F6B17870 10125 0020 00 0 10132 TRA SAP03 SUB INTERNAL FORMULA NUMBER F6B17880 10126 0761 00 0 00000 NOP INTERNAL SYMBOL FOR ERASABLE F6B17890 10127 0074 00 4 10361 TSX TIVSM,4 *CONVERT INTERNAL SYMBOL TO LISTING SYMBOL F6B17900 10130 -0765 00 0 00036 SAP02 LGR 30 SHIFT OUT FOLLOWING 5 CHARACTERS F6B17910 10131 0020 00 0 10134 TRA SAP04 F6B17920 10132 0074 00 4 10422 SAP03 TSX TIVNF,4 *CONVERT SUB OR MAIN IFN TO LISTING SYMBOL F6B17930 10133 -0763 00 0 00006 LGL 6 SHIFT IN FIRST CHARACTER F6B17940 BINARY CARD NO. 9F310091 10134 -0602 60 0 04314 SAP04 ORS* RGSAP FILL OPFIELD WORD WITH FIRST CHARACTER F6B17950 10135 -0600 00 0 04336 STQ ERASE SAVE FOLLOWING CHARACTERS F6B17960 10136 -0500 00 0 11515 CAL BLANK MARK END OF SYMBOL F6B17970 10137 -0602 00 0 04336 ORS ERASE F6B17980 10140 0560 00 0 04336 LDQ ERASE PICK UP SYMBOL F6B17990 10141 0074 00 4 10344 TSX SAPF0,4 *INSERT CHARACTERS IN FOLLOWING WORD F6B18000 10142 0500 00 0 04332 CLA CITRA GET TAG,,RELATIVE ADDRESS F6B18010 10143 0771 00 0 00022 ARS 18 ISOLATE RELATIVE ADDRESS F6B18020 10144 0100 00 0 10201 TZE SAP08 IS RELATIVE ADDRESS EMPTY F6B18030 10145 0560 00 0 11522 LDQ BLNKS NO, PICK UP FOLLOWING BLANKS F6B18040 10146 0074 00 4 10443 TSX SAPDC,4 *CONVERT TO DECIMAL F6B18050 10147 0500 00 0 04332 CLA CITRA GET RELATIVE ADDRESS AGAIN F6B18060 10150 0120 00 0 10153 TPL *+3 IS IT POSITIVE F6B18070 10151 -0500 00 0 11432 CAL MINUS NO, GET BCD MINUS F6B18080 10152 0020 00 0 10154 TRA *+2 F6B18090 10153 -0500 00 0 11431 CAL PLUSS YES, GET BCD PLUS F6B18100 10154 0074 00 4 10340 TSX SAPFL,4 *INSERT IN NEXT FOLLOWING POSITIONS F6B18110 10155 0020 00 0 10201 TRA SAP08 F6B18120 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 84 SUBROUTINES RELEVANT TO SECOND CIT PASS NO SYMBOLIC ADDRESS F6B18130 10156 0500 00 0 04332 SAP05 CLA CITRA GET TAG,,RELATIVE ADDRESS F6B18140 10157 0100 00 0 10173 TZE SAP06 ARE RELATIVE ADDRESS AND TAG EMPTY F6B18150 10160 0771 00 0 00022 ARS 18 NO, ISOLATE RELATIVE ADDRESS F6B18160 10161 0100 00 0 10200 TZE SAP07 IS RELATIVE ADDRESS EMPTY F6B18170 BINARY CARD NO. 9F310092 10162 0074 00 4 10443 TSX SAPDC,4 *NO, CONVERT TO DECIMAL F6B18180 10163 0500 00 0 04332 CLA CITRA GET RELATIVE ADDRESS AGAIN F6B18190 10164 0120 00 0 10167 TPL *+3 IS IT POSITIVE F6B18200 10165 -0500 00 0 11432 CAL MINUS NO, GET BCD MINUS F6B18210 10166 0020 00 0 10171 TRA *+3 F6B18220 10167 -0754 00 0 00000 PXD ,0 YES, OMIT SIGN F6B18230 10170 -0763 00 0 00006 LGL 6 F6B18240 10171 -0602 60 0 04314 ORS* RGSAP FILL OPFIELD WORD WITH FIRST CHARACTER F6B18250 10172 0020 00 0 10200 TRA SAP07 F6B18260 NO SYMBOLIC ADDRESS, TAG, OR RELATIVE ADDRESS F6B18270 10173 0500 00 0 04341 SAP06 CLA ERAS3 GET DECREMENT F6B18280 10174 -0100 00 0 10200 TNZ SAP07 IS DECREMENT EMPTY F6B18290 10175 -0500 00 0 11515 CAL BLANK YES, FILL OPFIELD WORD WITH BLANK F6B18300 10176 -0602 60 0 04314 ORS* RGSAP F6B18310 10177 0020 00 0 10247 TRA SAP12 F6B18320 10200 0074 00 4 10344 SAP07 TSX SAPF0,4 *INSERT CHARACTERS IN FOLLOWING WORD F6B18330 SYMBOLIC ADDRESS AND/OR RELATIVE ADDRESS ASSEMBLED F6B18340 IF BLANK, TAG AND/OR DECREMENT EXIST F6B18350 PROCESS TAG AND DECREMENT F6B18360 10201 0560 00 0 11522 SAP08 LDQ BLNKS PICK UP FOLLOWING BLANKS F6B18370 10202 0500 00 0 04332 CLA CITRA GET TAG,,RELATIVE ADDRESS F6B18380 10203 -0320 00 0 11446 ANA ADMSK ISOLATE TAG F6B18390 10204 0100 00 0 10207 TZE *+3 IS TAG EMPTY F6B18400 10205 -0765 00 0 00006 LGR 6 NO, SHIFT IN BCD TAG F6B18410 10206 0020 00 0 10212 TRA *+4 F6B18420 10207 0500 00 0 04341 CLA ERAS3 TAG IS EMPTY, PICK UP DECREMENT F6B18430 BINARY CARD NO. 9F310093 10210 0100 00 0 10222 TZE SAP09 IS DECREMENT EMPTY F6B18440 10211 0560 00 0 11520 LDQ SPACE NO, PICK UP ZERO TAG F6B18450 10212 0500 00 0 11516 CLA COMMA PICK UP COMMA BEFORE TAG F6B18460 10213 0074 00 4 10340 TSX SAPFL,4 *INSERT CHARACTERS IN FOLLOWING WORD F6B18470 10214 0500 00 0 04330 CLA CITOP PICK UP DECREMENT F6B18480 10215 -0320 00 0 11446 ANA ADMSK ISOLATE DECREMENT F6B18490 10216 0100 00 0 10222 TZE SAP09 IS DECREMENT EMPTY F6B18500 10217 0074 00 4 10443 TSX SAPDC,4 *NO, CONVERT TO DECIMAL F6B18510 10220 0500 00 0 11516 CLA COMMA PICK UP LEADING COMMA F6B18520 10221 0074 00 4 10340 TSX SAPFL,4 *INSERT CHARACTERS IN FOLLOWING WORD F6B18530 10222 -0754 00 0 00000 SAP09 PXD ,0 FILL IN LAST WORD WITH BLANKS F6B18540 10223 0560 00 0 11522 LDQ BLNKS F6B18550 10224 -0763 00 2 00044 LGL 36,2 F6B18560 10225 -0602 60 0 04314 ORS* RGSAP F6B18570 10226 0020 00 0 10247 TRA SAP12 F6B18580 OPCODE IS BCD F6B18590 10227 -0500 00 0 11425 SAP10 CAL L(1) INSERT 1 AS LAST CHARACTER IN OPFIELD F6B18600 10230 -0602 60 0 04314 ORS* RGSAP F6B18610 10231 0074 00 2 10354 TSX SAPBP,2 BUMP ORIGIN TO NEXT WORD F6B18620 10232 -0500 00 0 04331 CAL CITSA INSERT BCD WORD IN NEXT WORD F6B18630 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 85 SUBROUTINES RELEVANT TO SECOND CIT PASS 10233 0602 60 0 04314 SLW* RGSAP F6B18640 10234 0020 00 0 10247 TRA SAP12 F6B18650 OPCODE IS OCT F6B18660 10235 0560 00 0 04331 SAP11 LDQ CITSA GET BINARY CONSTANT F6B18670 BINARY CARD NO. 9F310094 10236 0074 00 4 10473 TSX OCTCV,4 *CONVERT BINARY CONSTANT TO OCTAL F6B18680 10237 -0500 00 0 04336 CAL ERASE PICK UP SIGN F6B18690 10240 -0602 60 0 04314 ORS* RGSAP INSERT AS LAST CHARACTER IN OPFIELD WORD F6B18700 10241 0074 00 2 10354 TSX SAPBP,2 *BUMP ORIGIN TO NEXT WORD F6B18710 10242 -0500 00 0 04337 CAL ERAS1 INSERT FIRST HALF INTO NEXT WORD F6B18720 10243 0602 60 0 04314 SLW* RGSAP F6B18730 10244 0074 00 2 10354 TSX SAPBP,2 *BUMP ORIGIN TO NEXT WORD F6B18740 10245 -0500 00 0 04340 CAL ERAS2 F6B18750 10246 0602 60 0 04314 SLW* RGSAP INSERT SECOND HALF INTO NEXT WORD F6B18760 CIT HAS BEEN CONVERTED TO MACHINE LANGUAGE LISTING FORM F6B18770 WORD 1 IS OCTAL COUNTER F6B18780 IF BINARY WORD IS REQUESTED, BINARY WORD AND RELOCATION F6B18790 BITS ARE IN WORDS 2, 3, 4, SL IN WORD 5, OP IN WORD 6, F6B18800 AND VARIABLE FIELD BEGINS IN WORD 6 CHARACTER 6 F6B18810 EXTENDING TO A MAXIMUM LENGTH INTO WORD 10 F6B18820 IF BINARY WORD IS NOT REQUESTED, SL IS IN WORD 2, AND F6B18830 VARIABLE FIELD EXTENDS INTO WORD 7 F6B18840 SL, OP, SA AND RA CAN BE FOUND IN CORRESPONDING CIT CELLSF6B18850 10247 0020 00 0 10260 SAP12 TRA SAP13 PATCH SPACE FOR CUSTOMERS TO MESS AROUND F6B18860 10250 0 00000 0 00000 PZE WITH SAP LISTING F6B18870 10251 0 00000 0 00000 PZE NOT USED F6B18880 10252 0 00000 0 00000 PZE NOT USED F6B18890 10253 0 00000 0 00000 PZE NOT USED F6B18900 10254 0 00000 0 00000 PZE NOT USED F6B18910 10255 0 00000 0 00000 PZE NOT USED F6B18920 10256 0 00000 0 00000 PZE NOT USED F6B18930 10257 0 00000 0 00000 PZE NOT USED F6B18940 MOVE MACHINE LANGUAGE LISTING INTO PAGE BUFFER F6B18950 IF BINARY WORD REQUESTED, TWO 9 WORD COLUMNS PER PAGE F6B18960 IF NOT REQUESTED, THREE 6 WORD COLUMNS PER PAGE F6B18970 10260 0774 00 4 00000 SAP13 AXT **,4 LOAD WORD COUNT F6B18980 10261 -0500 00 0 11522 CAL BLNKS SET WORD 0 BLANK F6B18990 10262 0602 00 4 04441 SLW SAPBF,4 F6B19000 10263 0774 00 2 00005 AXT 5,2 PREPARE TO MOVE 5 WORDS INTO BUFFER F6B19010 BINARY CARD NO. 9F310095 10264 0520 00 0 04210 ZET XSWCH8 DO BINARY WORDS EXIST F6B19020 10265 1 00003 2 10266 TXI *+1,2,3 YES, PREPARE TO MOVE 8 WORDS INTO BUFFER F6B19030 10266 -0500 00 0 10262 CAL SAP13+2 COMPUTE ORIGIN AT END OF BUFFER ENTRY F6B19040 10267 0400 00 0 11425 ADD L(1) F6B19050 10270 0634 00 4 04336 SXA ERASE,4 F6B19060 10271 -0400 00 0 04336 SBM ERASE F6B19070 10272 0634 00 2 04336 SXA ERASE,2 F6B19080 10273 0401 00 0 04336 ADM ERASE F6B19090 10274 0621 00 0 10301 STA *+5 F6B19100 10275 -0500 00 0 10015 CAL SAPC1 COMPUTE ORIGIN AT END OF LISTING BUFFER F6B19110 10276 0401 00 0 04336 ADM ERASE F6B19120 10277 0621 00 0 10300 STA *+1 F6B19130 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 86 SUBROUTINES RELEVANT TO SECOND CIT PASS 10300 -0500 00 2 00000 CAL **,2 MOVE NEXT WORD IN MACHINE LANGUAGE LISTINGF6B19140 10301 0602 00 2 00000 SLW **,2 TO PAGE IMAGE F6B19150 10302 2 00001 2 10300 TIX *-2,2,1 IS BUFFER MOVED F6B19160 10303 1 77756 4 10304 TXI *+1,4,-18 YES, BUMP WORD COUNT TO NEXT LINE F6B19170 10304 0774 00 1 00000 SAP14 AXT **,1 LOAD ENTRY COUNT F6B19180 10305 1 00001 1 10306 TXI *+1,1,1 BUMP ENTRY COUNT TO NEXT ENTRY THIS PAGE F6B19190 10306 -3 00000 1 10334 COLFL TXL SAP17+1,1,** IS A COLUMN FULL YET... F6B19200 10307 -3 00000 1 10327 TXL ONEFL,1,** YES, IS IT COLUMN ONE... F6B19220 10310 -3 00000 1 10331 TXL TWOFL,1,** ONE IS DONE, IS COLUMN TWO FULL YET... F6B19230 10311 0634 00 4 10260 SXA SAP13,4 F6B19231 BINARY CARD NO. 9F310096 10312 3 00000 1 10314 TXH SKPTL,1,** TWO IS DONE, HOW IS THREE COMING... F6B19240 10313 0074 00 4 10631 TSX HEDPG,4 THREE IS BEING FILLED, WRITE HEADING. F6B19250 10314 0074 00 4 10663 SKPTL TSX WRIT2,4 WRITE PAGE LINE F6B19260 10315 -1 00022 0 04441 WRTIO IOCT SAPBF,,18 $F6B19270 10316 0534 00 4 10315 LXA *-1,4 RESET ORIGIN OF I/O COMMAND. F6B19280 10317 1 00022 4 10320 TXI *+1,4,18 BY BUMPING F6B19290 10320 0634 00 4 10315 SXA WRTIO,4 LOCATION OF LINE ORIGIN BY WORD COUNT. F6B19300 10321 -3 00000 1 10335 TXL SAPCX-1,1,** IS PAGE COMPLETELY FIILED YET F6B19330 10322 0534 00 1 10262 LXA SAP13+2,1 YES, RESET INITAL ADDRESS OF PAGE IMAGE F6B19334 10323 0634 00 1 10315 SXA WRTIO,1 F6B19336 10324 0774 00 1 00000 AXT 0,1 INITIALIZE COLUMN ENTRY COUNT F6B19340 10325 0774 00 4 00000 AXT 0,4 INITIALIZE PAGE WORD COUNT F6B19350 10326 1 00000 2 10333 TXI SAP17,2,** INITIALIZE COLUMN FULL TEST F6B19355 10327 0774 00 4 77772 ONEFL AXT -6,4 COLUMN ONE JUST FILLED, SET F6B19360 10330 1 00000 2 10333 TXI SAP17,2,** WORD COUNT TO AT LEAST ONE COL. F6B19365 10331 0774 00 4 77764 TWOFL AXT -12,4 COLUMN TWO JUST FILLED, SET F6B19366 10332 0020 00 0 10334 TRA SAP17+1 F6B19367 10333 -0634 00 2 10306 SAP17 SXD COLFL,2 RESET COLUMN-FULL TEST TO NEXT LINE. F6B19368 10334 0634 00 4 10260 SXA SAP13,4 RESET WORD COUNT... F6B19369 10335 0634 00 1 10304 SXA SAP14,1 RESET COLUMN ENTRY COUNT F6B19370 10336 0774 00 4 00000 SAPCX AXT **,4 RETURN F6B19375 10337 0020 00 4 00001 TRA 1,4 TO CALLER. F6B19380 F6B19390 INSERT CHARACTERS MARKED BY BLANK INTO NEXT WORD F6B19400 BINARY CARD NO. 9F310097 10340 0767 00 2 00036 SAPFL ALS 30,2 POSITION CHARACTER F6B19410 10341 -0602 60 0 04314 ORS* RGSAP INSERT IN WORD F6B19420 10342 1 00006 2 10343 TXI *+1,2,6 BUMP CHARACTER COUNT RIGHT ONE POSITION F6B19430 10343 -3 00036 2 10346 TXL *+3,2,30 IS WORD FULL F6B19440 ENTRY POINT TO START NEW WORD F6B19450 10344 0074 00 2 10354 SAPF0 TSX SAPBP,2 *BUMP ORIGIN TO NEXT WORD F6B19460 10345 0774 00 2 00000 AXT 0,2 RESET CHARACTER COUNT TO LEFT POSITION F6B19470 10346 -0754 00 0 00000 ZAC F6B19480 10347 -0763 00 0 00006 LGL 6 SHIFT IN NEXT CHARACTER F6B19490 10350 -0340 00 0 11515 LAS BLANK IS CHARACTER BLANK F6B19500 10351 0020 00 0 10340 TRA SAPFL NO F6B19510 10352 0020 00 4 00001 TRA 1,4 YES F6B19520 10353 0020 00 0 10340 TRA SAPFL F6B19530 F6B19540 BUMP ORIGIN OF SAP BUFFER TO NEXT WORD F6B19550 10354 -0500 00 0 04314 SAPBP CAL RGSAP F6B19560 10355 0400 00 0 11425 ADD L(1) F6B19570 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 87 SUBROUTINES RELEVANT TO SECOND CIT PASS 10356 0621 00 0 04314 STA RGSAP F6B19580 10357 0600 60 0 04314 STZ* RGSAP CLEAR NEXT WORD F6B19590 10360 0020 00 2 00001 TRA 1,2 F6B19600 F6B19610 CONVERT INTERNAL VARIABLE TO LISTING SYMBOL F6B19620 FIRST SIX BITS OF SYMBOL (NON ZERO) ARE IN AC F6B19630 REMAINDER OF SYMBOL IS IN MQ F6B19640 LISTING SYMBOL WILL BE LEFT ADJUSTED IN AC F6B19650 10361 -0765 00 0 00040 TIVSM LGR 32 ISOLATE TABLE LABEL F6B19660 10362 0634 00 4 10420 SXA TIVSX+2,4 SAVE CALLING LINKAGE F6B19670 10363 0634 00 2 10417 SXA TIVSX+1,2 SAVE TIV TABLE COUNT F6B19680 10364 0634 00 1 10416 SXA TIVSX,1 SAVE LINE COUNT F6B19690 10365 0734 00 4 00000 PAX ,4 GET FIRST BCD CHARACTER F6B19700 BINARY CARD NO. 9F310098 10366 -0500 00 4 11606 CAL CHART,4 GET CORRESPONDING BCD CHARACTER F6B19710 10367 0767 00 0 00006 ALS 6 FOR FIRST CHARACTER F6B19720 10370 -0501 00 0 11514 ORA PAREN FOLLOWED BY ) F6B19730 10371 0767 00 0 00030 ALS 24 LEFT ADJUST F6B19740 10372 0602 00 0 04336 SLW ERASE SAVE PARTIAL PSEUDOSYMBOL F6B19750 10373 0774 00 3 00004 AXT 4,3 PREPARE TO EXAMINE 17 BIT SUBSYMBOL F6B19760 10374 -0754 00 0 00000 PXD ,0 F6B19770 10375 -0763 00 0 00002 LGL 2 GET FIRST CHARACTER OF 17 BIT SUBADDRESS F6B19780 10376 -0100 00 0 10402 TNZ TIVS1 DOES IT EXIST F6B19790 10377 -2 00001 1 10412 TNX TIVS2,1,1 MAYBE, IS ENTIRE FIELD SCANNED F6B19800 10400 -0763 00 0 00005 LGL 5 NO, IS THERE A SUBCHARACTER F6B19810 10401 0100 00 0 10377 TZE *-2 NOT YET F6B19820 10402 0734 00 4 00000 TIVS1 PAX ,4 YES F6B19830 10403 -0500 00 4 11606 CAL CHART,4 GET APPROPRIATE SUBCHARACTER F6B19840 10404 -2 00001 1 10413 TNX TIVS2+1,1,1 IS ENTIRE SUBFIELD SCANNED F6B19850 10405 0767 00 2 00026 ALS 22,2 NO, POSITION CHARACTER F6B19860 10406 -0602 00 0 04336 ORS ERASE AND ADD TO PARTIAL PSEUDOSYMBOL F6B19870 10407 -0754 00 0 00000 PXD ,0 F6B19880 10410 -0763 00 0 00005 LGL 5 GET NEXT CHARACTER F6B19890 10411 1 00006 2 10402 TXI TIVS1,2,6 BUMP POSITION COUNT TO NEXT CHARACTER F6B19900 10412 -0500 00 0 11515 TIVS2 CAL BLANK GET FOLLOWING BLANKS F6B19910 10413 0560 00 0 11522 LDQ BLNKS F6B19920 BINARY CARD NO. 9F310099 10414 -0763 00 2 00026 LGL 22,2 POSITION F6B19930 10415 -0501 00 0 04336 ORA ERASE AND ADD TO SYMBOL F6B19940 10416 0774 00 1 00000 TIVSX AXT **,1 RELOAD LINE COUNT F6B19950 10417 0774 00 2 00000 AXT **,2 RELOAD TIV TABLE COUNT F6B19960 10420 0774 00 4 00000 AXT **,4 RELOAD CALLING LINKAGE F6B19970 10421 0020 00 4 00001 TRA 1,4 F6B19980 F6B19990 CONVERT SUB OR MAIN IFN TO LISTING SYMBOL F6B20000 FIRST SIX BITS OF SYMBOL (ZERO) HAVE BEEN DISCARDED F6B20010 REMAINDER OF SYMBOL IS IN MQ F6B20020 LISTING SYMBOL WILL BE LEFT ADJUSTED IN MQ F6B20030 10422 0634 00 4 10471 TIVNF SXA DECCX,4 SAVE CALLING LINKAGE F6B20040 10423 -0765 00 0 00024 LGR 20 SHIFT IN 12 BIT INTERNAL FORMULA NUMBER F6B20050 10424 0601 00 0 04336 STO ERASE AND SAVE F6B20060 10425 -0754 00 0 00000 PXD ,0 F6B20070 10426 -0765 00 0 00037 LGR 31 RIGHT ADJUST INCREMENT F6B20080 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 88 SUBROUTINES RELEVANT TO SECOND CIT PASS 10427 0221 00 0 11442 DVP L(10) CONVERT INCREMENT TO DECIMAL F6B20090 10430 -0100 00 0 10432 TNZ *+2 IS INCREMENT ZERO F6B20100 10431 -0500 00 0 11515 CAL BLANK YES, REPLACE DIGIT WITH BLANK F6B20110 10432 0602 00 0 04340 SLW ERAS2 AND SAVE F6B20120 10433 -0763 00 0 00044 LGL 36 GET REMAINDER F6B20130 10434 0734 00 2 00000 PAX ,2 F6B20140 10435 -0500 00 2 11574 CAL ALPHA,2 PICK UP LEADING ALPHABETIC CHARACTER F6B20150 10436 0767 00 0 00006 ALS 6 POSITION LEADING CHARACTER F6B20160 10437 -0501 00 0 04340 ORA ERAS2 GET FOLLOWING DIGIT F6B20170 10440 0560 00 0 11522 LDQ BLNKS PICK UP FOLLOWING BLANKS F6B20180 10441 -0765 00 0 00014 LGR 12 LEFT ADJUST IN MQ F6B20190 BINARY CARD NO. 9F310100 10442 0500 00 0 04336 CLA ERASE PICK UP INTERNAL FORMULA NUMBER F6B20200 F6B20210 CONVERT BINARY NUMBER TO DECIMAL F6B20220 BINARY NUMBER IS RIGHT ADJUSTED IN AC F6B20230 DECIMAL NUMBER WILL BE LEFT ADJUSTED IN MQ F6B20240 10443 -0600 00 0 04340 SAPDC STQ ERAS2 SAVE FOLLOWING CHARACTERS F6B20250 10444 0760 00 0 00144 SLN 4 SET MQ FLAG F6B20260 DECIMAL NUMBER WILL BE RIGHT ADJUSTED IN AC F6B20270 10445 0634 00 4 10471 DECCV SXA DECCX,4 SAVE CALLING LINKAGE F6B20280 10446 0131 00 0 00000 XCA GET BINARY NUMBER IN MQ F6B20290 10447 0600 00 0 04337 STZ ERAS1 CLEAR WORKING STORAGE F6B20300 10450 0774 00 4 00000 AXT 0,4 SET CHARACTER COUNT TO LEAST SIGNIF DIGIT F6B20310 10451 -0754 00 0 00000 DECC1 PXD ,0 F6B20320 10452 0221 00 0 11442 DVP L(10) DIVIDE BY TEN F6B20330 10453 0767 00 4 00000 ALS 0,4 ADJUST POSITION OF REMAINDER F6B20340 10454 -0602 00 0 04337 ORS ERAS1 INSERT IN DECIMAL NUMBER F6B20350 10455 0500 00 0 11425 CLA L(1) IS REMAINDER ZERO F6B20360 10456 0040 00 0 10460 TLQ *+2 YES, CONVERSION IS COMPLETE F6B20370 10457 1 77772 4 10451 TXI DECC1,4,-6 NO, BUMP CHARACTER COUNT LEFT ONE DIGIT F6B20380 BINARY NUMBER IS CONVERTED F6B20390 10460 -0760 00 0 00144 SLT 4 IS MQ FLAG ON F6B20400 10461 0020 00 0 10466 TRA *+5 NO F6B20410 10462 -0500 00 0 04337 CAL ERAS1 YES, PICK UP DECIMAL NUMBER F6B20420 10463 0560 00 0 04340 LDQ ERAS2 AND FOLLOWING CHARACTERS F6B20430 10464 -0765 00 4 00006 LGR 6,4 LEFT ADJUST IN MQ F6B20440 10465 0020 00 0 10471 TRA DECCX F6B20450 10466 -0500 00 0 11522 CAL BLNKS INSERT LEADING BLANKS F6B20460 10467 0767 00 4 00006 ALS 6,4 F6B20470 BINARY CARD NO. 9F310101 10470 -0501 00 0 04337 ORA ERAS1 PICK UP DECIMAL NUMBER F6B20480 10471 0774 00 4 00000 DECCX AXT **,4 RELOAD CALLING LINKAGE F6B20490 10472 0020 00 4 00001 TRA 1,4 F6B20500 F6B20510 CONVERT BINARY WORD TO TWO OCTAL WORDS F6B20520 BINARY WORD IS IN MQ F6B20530 SIGN WILL BE IN ERASE, FIRST IN ERAS1, SECOND IN ERAS2 F6B20540 10473 -0500 00 0 11431 OCTCV CAL PLUSS SET SIGN PLUS (TENTATIVELY) F6B20550 10474 0162 00 0 10477 TQP *+3 IS BINARY WORD POSITIVE F6B20560 10475 -0500 00 0 11432 CAL MINUS NO, RESET SIGN MINUS F6B20570 10476 0765 00 0 00000 LRS 0 DELETE SIGN FROM BINARY WORD F6B20580 10477 0602 00 0 04336 SLW ERASE SAVE SIGN F6B20590 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 89 SUBROUTINES RELEVANT TO SECOND CIT PASS 10500 0774 00 2 00002 AXT 2,2 PREPARE TO CONVERT OPCODE TO TWO BCD WORDSF6B20600 10501 0774 00 1 00006 OCTC1 AXT 6,1 PREPARE TO GENERATE 6 BCD CHARACTERS F6B20610 10502 0767 00 0 00003 ALS 3 CREATE ZONE F6B20620 10503 -0763 00 0 00003 LGL 3 SHIFT IN DIGIT F6B20630 10504 2 00001 1 10502 TIX *-2,1,1 IS WORD COMPLETE F6B20640 10505 0602 00 2 04341 SLW ERAS3,2 YES SAVE IT F6B20650 10506 2 00001 2 10501 TIX OCTC1,2,1 IS BINARY WORD EXHAUSTED F6B20660 10507 0020 00 4 00001 TRA 1,4 YES F6B20670 F6B20680 F6B20690 PREPARE A TWO WORD STORAGE MAP ENTRY F6B20700 BLANK WORD, BCD NAME F6B20710 NAME IS IN MQ F6B20720 10510 0760 00 0 00144 LINE0 SLN 4 SET ENTRY POINT NAME FLAG F6B20730 10511 0634 00 4 10555 SXA LINEX,4 SAVE CALLING LINKAGE F6B20740 10512 -0500 00 0 11522 CAL BLNKS SET WORD 1 BLANK F6B20750 10513 0602 00 1 04453 SLW PBUFF+1,1 F6B20760 10514 -0600 00 1 04454 STQ PBUFF+2,1 INSERT SYMBOL IN WORD 2 F6B20770 10515 -0760 00 0 00144 SLT 4 IS THIS EIF TABLE ENTRY F6B20780 BINARY CARD NO. 9F310102 10516 0020 00 0 10537 TRA LINE3 YES F6B20790 10517 2 00002 1 10555 TIX LINEX,1,2 NO, IS LINE FULL F6B20800 10520 0020 00 0 10553 TRA LINE5 YES F6B20810 PREPARE A FOUR WORD STORAGE MAP ENTRY F6B20820 BLANK WORD, BCD NAME, DECIMAL LOCATION, OCTAL LOCATION F6B20830 NAME IS IN MQ, BINARY LOCATION IN AC ADDRESS F6B20840 10521 0634 00 4 10555 LINE1 SXA LINEX,4 SAVE CALLING LINKAGE F6B20850 10522 0621 00 0 04333 STA ADDRS SAVE BINARY LOCATION F6B20860 10523 -0500 00 0 11522 CAL BLNKS PICK UP BLANKS TO RIGHT ADJUST SYMBOL F6B20870 10524 0602 00 1 04453 SLW PBUFF+1,1 INSERT IN FIRST WORD F6B20880 10525 0602 00 1 04454 SLW PBUFF+2,1 AND (TENTATIVELY) IN SECOND WORD F6B20890 10526 0774 00 4 00006 AXT 6,4 PREPARE TO RIGHT ADJUST 6 CHARACTERS F6B20900 10527 -0763 00 0 00006 LINE2 LGL 6 SHIFT IN NEXT CHARACTER F6B20910 10530 0602 00 0 04336 SLW ERASE SAVE PARTIALLY ADUSTED SYMBOL F6B20920 10531 -0320 00 0 11444 ANA CHMSK MASK IN LAST CHARACTER F6B20930 10532 0322 00 0 11515 ERA BLANK IS IT BLANK F6B20940 10533 0100 00 0 10537 TZE *+4 YES F6B20950 10534 -0500 00 0 04336 CAL ERASE NO, INSERT PARTIALLY ADJUSTED SYMBOL F6B20960 10535 0602 00 1 04454 SLW PBUFF+2,1 IN SECOND WORD F6B20970 10536 2 00001 4 10527 TIX LINE2,4,1 HAVE SIX CHARACTERS BEEN ADJUSTED F6B20980 10537 0500 00 0 04333 LINE3 CLA ADDRS PICK UP BINARY LOCATION F6B20990 10540 0074 00 4 10445 TSX DECCV,4 *CONVERT TO BCD DECIMAL F6B21000 10541 0602 00 1 04455 SLW PBUFF+3,1 IN THIRD WORD F6B21010 10542 0500 00 0 04333 LINE4 CLA ADDRS PICK UP BINARY LOCATION F6B21020 10543 0765 00 0 00017 LRS 15 LEFT ADJUSTED IN MQ F6B21030 BINARY CARD NO. 9F310103 10544 0500 00 0 11515 CLA BLANK PICK UP MARKER F6B21040 10545 -0140 00 0 10546 TNO *+1 TURN OFF TRIGGER F6B21050 10546 0767 00 0 00003 ALS 3 CREATE ZONE F6B21060 10547 0763 00 0 00003 LLS 3 SHIFT IN OCTAL DIGIT F6B21070 10550 -0140 00 0 10545 TNO *-3 IS MARKER LEFT ADJUSTED F6B21080 10551 0602 00 1 04456 SLW PBUFF+4,1 YES, INSERT OCTAL LOCATION IN FOURTH WORD F6B21090 10552 2 00004 1 10555 TIX LINEX,1,4 IS LINE FULL F6B21100 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 90 SUBROUTINES RELEVANT TO SECOND CIT PASS 10553 0074 00 4 10561 LINE5 TSX WRITS,4 *WRITE OFF THIS LINE F6B21110 10554 -1 00024 0 04427 IOLIN IOCT LINEB,,20 $F6B21120 10555 0774 00 4 00000 LINEX AXT **,4 RELOAD CALLING LINKAGE F6B21130 10556 0020 00 4 00001 TRA 1,4 F6B21140 F6B21150 WRITE LINE ON STORAGE MAP F6B21160 10557 0760 00 0 00143 WRITE SLN 3 ENTRY FOR TITLE F6B21162 10560 0020 00 0 10562 TRA *+2 F6B21164 10561 0760 00 0 00144 WRITS SLN 4 ENTRY POINT TO SUPPRESS SPACE SKIP F6B21170 10562 0500 00 4 00001 CLA 1,4 INITIALIZE I/O COMMAND F6B21180 10563 0601 00 0 10600 STO WRIT1 F6B21190 10564 0634 00 4 10601 SXA WRITX,4 SAVE CALLING LINKAGE F6B21200 10565 0774 00 1 00000 PGLCT AXT **,1 LOAD PAGE LINE COUNT F6B21210 10566 -0760 00 0 00144 SLT 4 IS THIS SINGLE SPACE F6B21220 10567 2 00001 1 10570 TIX *+1,1,1 NO, BUMP LINE COUNT FOR SPACE F6B21230 10570 -0760 00 0 00143 SLT 3 IS THIS A TITLE CALL F6B21232 10571 0020 00 0 10573 TRA *+2 NO F6B21234 BINARY CARD NO. 9F310104 10572 -3 00004 1 10574 TXL *+2,1,4 PREVENT LONELY TITLE F6B21236 10573 2 00001 1 10575 TIX *+2,1,1 IS PAGE FULL F6B21240 10574 0074 00 4 10631 TSX HEDPG,4 *YES, PRINT PAGE HEADING F6B21250 10575 0634 00 1 10565 SXA WRITE+6,1 SAVE PAGE LINE COUNT F6B21260 10576 -0534 00 1 10673 LXD WRCT1,1 RESET LINE WORD COUNT F6B21270 10577 0074 00 4 10663 TSX WRIT2,4 *WRITE OFF THIS LINE F6B21280 10600 0 00000 0 00000 WRIT1 PZE F6B21290 10601 0774 00 4 00000 WRITX AXT **,4 RELOAD CALLING LINKAGE F6B21300 10602 0020 00 4 00002 TRA 2,4 F6B21310 F6B21320 WRITE OFF FINAL PARTIAL LINE F6B21330 10603 3 00023 1 10615 WRIPL TXH WRIPX,1,19 DOES PARTIAL LINE EXIST F6B21340 10604 -0754 00 1 00000 PXD ,1 YES, COMPUTE LENGTH OF PARTIAL LINE F6B21350 10605 -0400 00 0 10554 SBM IOLIN F6B21360 10606 0602 00 0 10610 SLW *+2 INITIALIZE I/O COMMAND F6B21370 10607 0074 00 4 10663 TSX WRIT2,4 *WRITE OFF PARTIAL LINE F6B21380 10610 -1 00000 0 00000 IOCT **,,** $F6B21390 10611 0534 00 1 10565 LXA PGLCT,1 BUMP LINE COUNT BUT DO NOT CREATE F6B21400 10612 2 00001 1 10613 TIX *+1,1,1 PRINTERS WIDOW F6B21410 10613 0634 00 1 10565 SXA PGLCT,1 F6B21420 10614 -0534 00 1 10673 LXD WRCT1,1 $F6B21430 10615 0020 00 2 00001 WRIPX TRA 1,2 F6B21440 F6B21450 WRITE MACHINE LANGUAGE LISTING, FINAL PAGE. F6B21460 10616 0500 00 4 00001 LISTG CLA 1,4 INITIALIZE I/O COMMAND F6B21470 10617 0601 00 0 10622 STO LIST0+2 F6B21480 BINARY CARD NO. 9F310105 10620 0634 00 4 10627 LIST0 SXA LISTX,4 SAVE CALLING LINKAGE F6B21490 10621 0074 00 4 10663 TSX WRIT2,4 *WRITE OFF NEXT LINE F6B21500 10622 -1 00000 0 00000 IOCT **,,** $F6B21510 10623 0534 00 4 10622 LXA LIST0+2,4 BUMP PARAMETER FOR NEXT LINE F6B21520 10624 1 00022 4 10625 TXI *+1,4,18 F6B21530 10625 0634 00 4 10622 SXA LIST0+2,4 F6B21540 10626 2 00001 1 10621 TIX LIST0+1,1,1 IS PAGE EXHAUSTED F6B21550 10627 0774 00 4 00000 LISTX AXT **,4 YES, RELOAD CALLING LINKAGE F6B21560 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 91 SUBROUTINES RELEVANT TO SECOND CIT PASS 10630 0020 00 4 00002 TRA 2,4 F6B21570 F6B21580 WRITE PAGE HEADING F6B21590 10631 0634 00 4 10661 HEDPG SXA HEDPX,4 SAVE CALLING LINKAGE F6B21600 10632 0074 00 4 10663 TSX WRIT2,4 *WRITE PAGE HEADING F6B21610 10633 -1 00022 0 04260 IOCT XPGHED,,18 $F6B21620 10634 0634 00 0 03775 ZSA XLSTCT RESET POSITION OF LISTING TAPE $F6B21630 10635 0074 00 4 10663 TSX WRIT2,4 *WRITE BLANK LINE F6B21640 10636 -1 00003 0 11522 IOCT BLNKS,,3 $F6B21650 10637 -0500 60 0 73661 CAL* ORGLCT BUMP PAGE NUMBER F6B21660 10640 0400 00 0 11452 ADD D(1) F6B21670 10641 0622 60 0 73661 STD* ORGLCT F6B21680 10642 -0320 00 0 11457 ANA REWND MASK IN PAGE NUMBER F6B21690 10643 0560 00 0 11424 LDQ L(0) PREPARE TO CONVERT PAGE NUMBER TO DECIMAL F6B21700 10644 0765 00 0 00026 LRS 22 HUNDREDS F6B21710 10645 0225 04 0 11445 VDP L(100,,4 F6B21720 BINARY CARD NO. 9F310106 10646 -0773 00 0 00006 RQL 6 F6B21730 10647 0765 00 0 00004 LRS 4 TENS F6B21740 10650 0225 04 0 11442 VDP L(10),,4 F6B21750 10651 -0773 00 0 00006 RQL 6 F6B21760 10652 -0600 00 0 04301 STQ XPGHED+17 F6B21770 10653 -0501 00 0 04301 ORA XPGHED+17 COMBINE WITH ONES F6B21780 10654 0560 00 0 11522 LDQ BLNKS LEFT ADJUST F6B21790 10655 -0765 00 0 00006 LGR 6 F6B21800 10656 -0100 00 0 10655 TNZ *-1 F6B21810 10657 -0600 00 0 04301 STQ XPGHED+17 INSERT IN PAGE HEADING F6B21820 10660 0774 00 1 00070 HDPCT AXT 56,1 RESET LINE COUNT TO EMPTY PAGE F6B21830 10661 0774 00 4 00000 HEDPX AXT **,4 RELOAD CALLING LINKAGE F6B21840 10662 0020 00 4 00001 TRA 1,4 F6B21850 F6B21860 WRITE LINE ON AND OFF LINE F6B21870 10663 0634 00 4 10726 WRIT2 SXA WRT2X,4 SAVE CALLING LINKAGE F6B21880 10664 0634 00 1 10727 SXA WRT2X+1,1 F6B21881 10665 0634 00 2 10730 SXA WRT2X+2,2 F6B21882 10666 0500 00 4 00001 CLA 1,4 INITIALIZE I/O COMMAND. $F6B21888 10667 0760 00 0 00003 SSP AVOID DIFFICULTIES WHEN ADDING. $F6B21890 10670 0622 00 0 10725 STD PRINT+1 SET ON LINE PARAMETER. $F6B21910 10671 0621 00 0 10725 STA PRINT+1 $F6B21911 10672 -0734 00 4 00000 PDX 0,4 $F6B21920 10673 -2 00024 4 10675 WRCT1 TNX *+2,4,20 IS LINE LONGER THAN PERMITTED $F6B21930 BINARY CARD NO. 9F310107 10674 0774 00 4 00014 AXT 12,4 YES, TRUNCATE IT AND $F6B21931 10675 -0634 00 4 10725 SXD PRINT+1,4 SET WORD COUNT $F6B21932 10676 0634 00 4 04336 SXA ERASE,4 SET UP MOVE F6B21933 10677 0401 00 0 04336 ADM ERASE LOOP. F6B21934 10700 0621 00 0 10710 STA MOVER F6B21935 10701 0535 00 2 10741 LAC WRITT+1,2 PICK UP FLIPPER. F6B21936 10702 -3 77777 4 10724 WRIT3 TXL PRINT,4,-1 IS THIS THE FIRST FILE. F6B21950 10703 0774 00 1 00000 BLKWD AXT **,1 LOAD BLOCK WORD COUNT. F6B21980 10704 -3 77777 1 10710 BLKQT TXL MOVER,1,-1 (IF BLOCKED LISTING DECREMENT = 0) F6B22000 10705 -0500 00 0 11503 CAL RECMK NOT YET, PLACE RECORD MARK F6B22010 10706 0602 60 2 11501 SLW* WRTCM+1,2 AS LAST WORD OF PREVIOUS LINE. F6B22020 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 92 SUBROUTINES RELEVANT TO SECOND CIT PASS 10707 1 77777 1 10710 TXI *+1,1,-1 BUMP WORD COUNT PICK UP. F6B22040 10710 -0500 00 4 00000 MOVER CAL **,4 MOVE GIVEN LINE TO ONE F6B22070 10711 0602 60 2 11501 SLW* WRTCM+1,2 OR THE OTHER BUBBLE DUFFER. F6B22080 10712 1 77777 1 10713 TXI *+1,1,-1 BUMP WORD COUNT OF BLOCK. F6B22082 10713 2 00001 4 10710 TIX *-3,4,1 ANY MORE WORDS... F6B22083 10714 0634 00 1 10703 SXA BLKWD,1 SAVE BLOCK WORD COUNT. F6B22084 10715 0774 00 4 00000 LINES AXT **,4 BUMP F6B22085 10716 1 00001 4 10717 TXI *+1,4,1 BLOCK F6B22086 10717 0634 00 4 10715 SXA *-2,4 LINE COUNT. F6B22090 10720 -3 00004 4 10722 TXL NOWRT,4,4 IS BLOCK READY TO BE WRITTEN F6B22093 10721 0074 00 4 10732 TSX WRBLK,4 WRITE BLOCK F6B22100 BINARY CARD NO. 9F310108 10722 -0520 00 0 04203 NOWRT NZT XSWCH3 IS ON-LINE PRINT REQUESTED... F6B22107 10723 0020 00 0 10726 TRA *+3 F6B22108 10724 0074 00 4 73611 PRINT TSX (PRNT),4 *PRINT LINE ON-LINE F6B22109 10725 0 00000 0 00000 PZE **,,** F6B22110 10726 0774 00 4 00000 WRT2X AXT **,4 F6B22111 10727 0774 00 1 00000 AXT **,1 RELOAD WORD COUNT THUS FAR. F6B22112 10730 0774 00 2 00000 AXT **,2 F6B22113 10731 0020 00 4 00002 TRA 2,4 F6B22114 F6B22114 ROUTINE TO WRITE BLOCK F6B22114 10732 0634 00 4 10753 WRBLK SXA WRBLX,4 SAVE CALLING LINKAGE F6B22114 10733 0535 00 1 10703 LAC BLKWD,1 SET F6B22115 10734 -0754 00 1 00000 PXD ,1 UP F6B22116 10735 0622 00 2 11500 STD WRTCM,2 I/O COMMAND WORD COUNT. F6B22117 10736 0074 00 4 73606 TSX (TAPE),4 WRITE OFF LINE OR BLOCK. F6B2211A 10737 0 40003 2 11500 PZE WRTCM,2,(WDNP) I/O COMMAND INDEXED,DOUBLE BUFFER. F6B2211B 10740 0 00006 0 00000 WRITT PZE ,,MLSTAP F6B2211C 10741 -0774 00 2 00001 AXC 1,2 FLIP BUFFER INDEX F6B2211D 10742 0634 00 2 10741 SXA *-1,2 F6B2211E 10743 -0500 60 0 73661 CAL* ORGLCT BUMP LINE COUNT. F6B2211I 10744 0401 00 0 10715 ADM LINES F6B2211J 10745 0621 60 0 73661 STA* ORGLCT F6B2211K 10746 0500 00 0 03775 CLA XLSTCT BUMP LISTING TAPE POSITION $F6B2211L 10747 -0400 00 0 10715 SBM LINES COUNTER. F6B2211M BINARY CARD NO. 9F310109 10750 0621 00 0 03775 STA XLSTCT F6B2211N 10751 0634 00 0 10703 ZSA BLKWD RESET BLOCK WORD COUNT. F6B2211O 10752 0634 00 0 10715 ZSA LINES RESET BLOCK LINE COUNT. F6B2211P 10753 0774 00 4 00000 WRBLX AXT **,4 F6B2211Q 10754 0020 00 4 00001 TRA 1,4 F6B2211R ROUTINE TO WRITE FINAL BLOCK F6B2211R 10755 0634 00 4 10766 WFBLK SXA WFBLX,4 SAVE CALLING LINKAGE F6B22120 10756 0534 00 1 10703 LXA BLKWD,1 LOAD BLOCK WORD COUNT F6B2212A 10757 -3 00000 1 10766 TXL WFBLX,1,0 IS BLOCK EMPTY F6B2212C 10760 0535 00 2 10741 LAC WRITT+1,2 NO, PICK UP FLIPPER F6B2212E 10761 -0500 00 0 11504 CAL FRCMK PLACE FINAL RECORD MARK AFTER F6B2212G 10762 0602 60 2 11501 SLW* WRTCM+1,2 LAST LINE OF LISTING F6B2212J 10763 1 77777 1 10764 TXI *+1,1,-1 BUMP BLOCK LINE COUNT F6B2212L 10764 0634 00 1 10703 SXA BLKWD,1 AND SAVE IT F6B2212N 10765 0074 00 4 10732 TSX WRBLK,4 WRITE BLOCK F6B2212P 10766 0774 00 4 00000 WFBLX AXT **,4 RETURN F6B2212R 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 93 SUBROUTINES RELEVANT TO SECOND CIT PASS 10767 0020 00 4 00001 TRA 1,4 F6B2212T F6B2212X SPACE PAGE ON LINE F6B2212Z 10770 0074 00 4 73611 SPACP TSX (PRNT),4 *SPACE PAGE UP TWO LINES F6B22130 10771 0 00001 0 11520 PZE SPACE,,1 F6B22140 10772 0074 00 4 73611 TSX (PRNT),4 *SPACE PAGE UP TWO MORE LINES F6B22150 10773 0 00001 0 11520 PZE SPACE,,1 F6B22160 10774 0420 00 0 00000 HPR F6B22162 10775 0020 00 2 00001 TRA 1,2 F6B22170 F6B22180 GENERATE COLUMN BCD CARD SERIALIZATION (CC 73 - 80) F6B22190 TWO WORDS (SIX CHAR) NAME, ONE WORD (TWO DIGIT) SERIAL F6B22200 THIS SUBROUTINE IS LIMITED TO ALPHANUMERIC CHARACTERS F6B22210 BLANKS WILL BE CONVERTED TO ZERO (OCT 12 WILL BE BLANK) F6B22220 BINARY CARD NO. 9F310110 10776 0634 00 4 11016 IDENT SXA IDENX,4 SAVE CALLING LINKAGE F6B22230 10777 0774 00 4 00001 AXT 1,4 SET CHARACTER COUNT TO LEFTMOST CHARACTER F6B22240 11000 -0754 00 0 00000 ZAC F6B22250 11001 -0763 00 0 00002 LGL 2 GET ZONE F6B22260 11002 0734 00 2 00000 PAX ,2 INTO XR2 F6B22270 11003 -0754 00 0 00000 ZAC F6B22280 11004 -0763 00 0 00004 LGL 4 GET DIGITS F6B22290 11005 0734 00 1 00000 PAX ,1 INTO XR1 F6B22300 11006 -0500 00 2 11430 CAL ZONER,2 PICK UP ZONE BITS (12, 11, 0) F6B22310 11007 -0320 00 0 11440 ANA L(7) MASK IN NO ZONE F6B22320 11010 0767 00 0 00011 ALS 9 POSITION ZONE BITS F6B22330 11011 -0501 00 1 11436 ORA DIGIT,1 PICK UP DIGIT BITS (0,1,2,3,4,5,6,7,8,9) F6B22340 11012 0602 00 4 11345 SLW BMPBF+9,4 INSERT NEXT CHARACTER F6B22350 11013 1 00001 4 11014 TXI *+1,4,1 BUMP CHARACTER COUNT RIGHT ONE CHARACTER F6B22360 11014 -3 00010 4 11000 TXL IDENT+2,4,8 HAVE 8 CHARACTERS BEEN CREATED (CC 73-80) F6B22370 11015 0074 00 4 11375 TSX PAKID,4 *YES, INSERT THEM IN LABEL F6B22380 11016 0774 00 4 00000 IDENX AXT **,4 RELOAD CALLING LINKAGE F6B22390 11017 0020 00 4 00001 TRA 1,4 F6B22400 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 94 SUBROUTINES RELEVANT TO SECOND CIT PASS F6B22410 F6B22411 ROUTINE TO POSITION THE SYSTEM TAPE**********************F6B22412 11020 0634 00 4 11026 SYSPS SXA SYSPX,4 SAVE CALLING LINK. F6B22413 11021 -0500 00 4 00001 CAL 1,4 PICK UP PARAMETER FOR TAPE POSITIONING F6B22414 11022 0621 00 0 11024 STA *+2 F6B22415 11023 0074 00 4 73606 TSX (TAPE),4 *REPOSITION SYSTEM TAPE. F6B22416 BINARY CARD NO. 9F310111 11024 0 20000 0 00000 PZE **,,(SKBP) F6B22417 11025 0 00001 0 00000 PZE ,,SYSTAP F6B22418 11026 0774 00 4 00000 SYSPX AXT **,4 RETURN TO CALLER. F6B22419 11027 0020 00 4 00002 TRA 2,4 F6B2241A F6B2241B CONSTANTS TO POSITION THE SYSTEM TAPE F6B2241C 11030 -0 00000 0 00003 REPS1 MZE 3,,** REPOSITION LIBE TAPE AT END OF RECORD 31 F6B2241D 11031 -0 00001 0 00000 REPS2 MZE 0,,1 BACKSPACE SYSTEM TAPE OVER SECOND FILE F6B2241E 11032 -0 00000 0 00001 BKSPC MZE 1,,0 F6B2241H 11033 -0 00000 0 00007 SCNBS MZE 7,,0 REPOSITION SYSTEM TAPE TO MONITOR SCAN F6B2241I (BACKSPACE OVER 9A, SPERR 9, MERR8, LIBE SEARCH 7A, F6B2241J BSS CONTROL 7, DEBUG 6A, SCAN 6. F6B2241K 11034 -0 00002 0 00000 BKS2F MZE ,,2 F6B2241M 11035 -0 77777 0 00000 UNLOD MZE ,,-1 F6B2241O CHANGE REPS2 TO PZE 0,,-1 TO REWIND SYSTEM TAPE. CHANGE F6B2241P SCNBS TO PZE 6,,0 TO SPACE FORWARD OVER 1TOCS (IOP), F6B2241Q CTSM, SIGN-ON, DUMP, FAP 4-5. F6B2241R F6B2241S F6B2241T 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 95 SUBROUTINES RELEVANT TO SECOND CIT PASS INSERT BINARY WORD INTO CARD IMAGE BUFFER AND WRITE OFF F6B22420 FULL CARDS ON BINARY TAPE 3. PUNCH ON LINE IF REQUIRED F6B22430 11036 0634 00 4 11257 PUNCH SXA PNCHX,4 SAVE CALLING LINKAGE F6B22440 11037 0774 00 4 00000 AXT **,4 LOAD RELOCATION BIT COUNT F6B22450 11040 0774 00 2 00000 AXT **,2 LOAD CARD WORD COUNT F6B22460 11041 0602 00 2 04427 SLW PCH9L+24,2 INSERT WORD IN PUNCH BUFFER F6B22470 11042 1 00002 4 11043 TXI *+1,4,2 SET DECR, ADDR, NOT RELOCAT (BITS = 00) F6B22480 11043 0560 00 0 04343 LDQ RLBIT GET RELOCATION BITS F6B22490 11044 0500 00 0 11425 CLA L(1) IS ADDRESS RELOCATABLE F6B22500 11045 0040 00 0 11054 TLQ PNCH1 NO F6B22510 11046 1 00001 4 11047 TXI *+1,4,1 YES, BUMP BIT COUNT FOR RELOCATION BITS F6B22520 11047 -0754 00 0 00000 ZAC (BITS = 010 OR 011) F6B22530 11050 -0763 00 4 00110 LGL 72,4 POSITION BITS IN LEFT WORD F6B22540 11051 -0602 00 0 04401 ORS PCH8L IF BIT COUNT IS LESS THAN 36 F6B22550 BINARY CARD NO. 9F310112 11052 -0763 00 0 00044 LGL 36 POSITION BITS IN RIGHT WORD F6B22560 11053 -0602 00 0 04402 ORS PCH8R IF BIT COUNT IS GREATER THAN 36 F6B22570 11054 0634 00 4 11037 PNCH1 SXA PUNCH+1,4 SAVE RELOCATION BIT COUNT F6B22580 11055 2 00001 2 11256 TIX BMPI2,2,1 IS CARD IMAGE FULL F6B22590 11056 1 00023 2 11060 TXI PCHLC+1,2,19 YES, SET WORD COUNT TO 20 F6B22600 PUNCH LAST CARD F6B22610 11057 0634 00 4 11257 PCHLC SXA PNCHX,4 SAVE CALLING LINKAGE F6B22620 11060 -0634 00 2 04377 SXD PCH9L,2 INSERT CARD WORD COUNT IN 9L DECREMENT F6B22630 11061 -0534 00 4 04377 LXD PCH9L,4 F6B22640 11062 1 00002 4 11063 TXI *+1,4,2 BUMP CARD WORD COUNT TO FULL CARD $F6B22650 11063 1 00002 2 11067 TXI PCHPC+3,2,2 $F6B22651 PUNCH NON RELOCATABLE CARD F6B22660 11064 0634 00 4 11257 PCHPC SXA PNCHX,4 SAVE CALLING LINKAGE F6B22670 11065 -0634 00 2 04377 SXD PCH9L,2 SET CARD WORD COUNT IN 9L DECREMENT F6B22680 11066 -0534 00 4 04377 LXD PCH9L,4 F6B22690 11067 1 04401 2 11070 TXI *+1,2,PCH8L GET ORIGIN AT END OF CARD F6B22700 11070 0634 00 2 11072 SXA *+2,2 INITIALIZE CHECKSUM COMPUTATION F6B22710 11071 -0500 00 0 04377 CAL PCH9L PICK UP 9 LEFT F6B22720 11072 0361 00 4 00000 ACL **,4 ADD IN REST OF CARD F6B22730 11073 2 00001 4 11072 TIX *-1,4,1 IS CHECKSUM COMPLETE F6B22740 11074 0020 00 0 13200 TRA AAAAA GO TO PATCH *F6B22750 PUNCH LIBRARY DATA CARD F6B22810 11075 0634 00 4 11257 PCHLD SXA PNCHX,4 SAVE CALLING LINKAGE F6B22820 11076 -0625 00 0 11125 STL CBSWT $F6B22821 11077 -0774 00 1 00001 PNCH2 AXC 1,1 LOAD BUFFER INDEX F6B22830 BINARY CARD NO. 9F310113 11100 0634 00 1 11077 SXA *-1,1 FLIP BUFFER INDEX F6B22836 11101 0774 00 4 00030 AXT 24,4 LOAD BUFFER LENGTH F6B22838 11102 -0500 00 4 04427 CAL PCH9L+24,4 MOVE CARD IMAGE F6B22840 11103 0602 60 1 11352 SLW* BOTBF,1 INTO MONITOR OUTPUT BUFFER F6B22842 11104 0602 60 1 11367 SLW* BITBF,1 AND INTERMEDIATE OUTPUT BUFFER F6B22844 11105 2 00001 4 11102 TIX *-3,4,1 F6B22848 11106 0774 00 4 00003 AXT 3,4 LOAD ID LENGTH F6B22850 11107 -0500 00 4 04347 CAL IDBUF+3,4 MOVE ID F6B22852 11110 0602 60 1 11353 SLW* BOTBF+1,1 INTO MONITOR OUTPUT BUFFER F6B22854 11111 2 00001 4 11107 TIX *-2,4,1 F6B22856 11112 -3 77777 4 11200 PNCH3 TXL PNCH8,4,-1 IS MONITOR OUTPUT REQUIRED F6B22858 11113 -0500 00 0 11361 CAL OFLCB YES, INSERT COLUMN BINARY BITS F6B22860 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 96 SUBROUTINES RELEVANT TO SECOND CIT PASS 11114 -0602 60 1 11356 ORS* BOTCB,1 INTO 9L F6B22862 11115 -0520 00 0 11125 NZT CBSWT ARE BITS IN CHECKSUM $F6B22863 11116 0020 00 0 11121 TRA *+3 NO $F6B22864 11117 0600 00 0 11125 STZ CBSWT YES $F6B22865 11120 0020 00 0 11171 TRA PNCH7 $F6B22866 11121 0361 60 1 11357 ACL* BOTCB+1,1 ADD INTO CHECKSUM $F6B22867 11122 0520 60 1 11357 ZET* BOTCB+1,1 IS THERE A CHECKSUM $F6B22868 11123 0602 60 1 11357 SLW* BOTCB+1,1 YES, INSERT INTO 9R $F6B22869 11124 0020 00 0 11171 TRA PNCH7 F6B22870 11125 0 00000 0 00000 CBSWT PZE NONZERO IF COL BIN BITS ALREADY IN CKSUM $F6B22871 ERROR ON MONITOR BINARY OUTPUT TAPE F6B22872 BINARY CARD NO. 9F310114 11126 0074 00 4 73606 PNCH4 TSX (TAPE),4 *WRITE END FILE ON STACK TAPE F6B22874 11127 0 40005 0 00000 PZE ,,(WEFP) F6B22876 11130 0 00007 0 00000 PZE ,,MBNTAP F6B22878 11131 -0 00000 0 11132 MZE *+1 F6B22880 11132 0074 00 4 73606 TSX (TAPE),4 *WRITE ANOTHER F6B22882 11133 0 40005 0 00000 PZE ,,(WEFP) F6B22884 11134 0 00007 0 00000 PZE ,,MBNTAP F6B22886 11135 -0 00000 0 11136 MZE *+1 F6B22888 11136 0074 00 4 73606 TSX (TAPE),4 *UNLOAD STACK TAPE F6B22900 11137 0 20000 0 11035 PZE UNLOD,,(SKBP) F6B22902 11140 0 00007 0 00000 PZE ,,MBNTAP F6B22904 11141 0441 60 0 73660 LDI* ORGFLG LOAD MONITOR FLAGS F6B22906 11142 0774 00 4 00005 AXT 5,4 PREPARE TO PRINT 'CHANGE TAPE' F6B22908 11143 0056 00 000200 RNT 000200 IS EXECUTION REQUESTED F6B22910 11144 0020 00 0 11156 TRA PNCH5+2 NO F6B22912 11145 0057 00 000200 RIR 000200 YES, RESET EXECUTION FLAG F6B22914 11146 -0634 00 0 07124 SXD EOF07,0 SET EXECUTION DELETED SWITCH F6B22916 11147 0056 00 100000 RNT 100000 DOES EXECUTION FOLLOW THIS COMPILE F6B22918 11150 0020 00 0 11154 TRA PNCH5 NO F6B22920 11151 0057 00 100000 RIR 100000 YES, RESET FLAG F6B22922 11152 0074 00 4 11020 TSX SYSPS,4 *REPOSITION SYSTEM TAPE F6B22924 11153 0 00000 0 11031 PZE REPS2 BEFORE FIRST FILE. F6B22926 BINARY CARD NO. 9F310115 11154 0604 60 0 73660 PNCH5 STI* ORGFLG RESET FLAGS F6B22930 11155 0774 00 4 00011 AXT 9,4 APPEND 'EXECUTION DELETED' F6B22932 REENTRY FOR NO EXECUTION F6B22934 11156 -0634 00 4 11160 SXD *+2,4 INITIALIZE I/O PARAMETER WORD COUNT F6B22936 11157 0074 00 4 73611 TSX (PRNT),4 *PRINT 'CHAHGE TAPE/EXECUTION DELETED' F6B22938 11160 0 00000 0 11607 PZE DLXEM,,** F6B22940 11161 0074 00 2 10770 TSX SPACP,2 *SPACE PAGE F6B22942 11162 0535 00 2 11077 LAC PNCH2,2 LOAD INDEX OF BUFFER IN ERROR F6B22944 11163 0074 00 4 73606 TSX (TAPE),4 *REWRITE ERROR RECORD F6B22946 11164 0 40001 2 11346 PNCH6 PZE BOTIO,2,(WBNP) (RESET TO WROW FOR ROW BINARY) F6B22948 11165 0 00007 0 00000 PZE ,,MBNTAP F6B22950 11166 0 00000 0 11126 PZE PNCH4 F6B22952 11167 0500 00 0 11425 CLA L(1) RESET COUNT OF BINARY CARDS OUTPUT F6B22954 11170 0621 00 0 03774 STA XCRDCT F6B22956 STACK BINARY OUTPUT F6B22958 11171 0074 00 4 73606 PNCH7 TSX (TAPE),4 *WRITE MONITOR BINARY OUTPUT TAPE F6B22960 11172 0 40001 1 11346 PZE BOTIO,1,(WBNP) (RESET TO WROW FOR ROW BINARY) F6B22962 11173 0 00007 0 00000 PZE ,,MBNTAP F6B22964 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 97 SUBROUTINES RELEVANT TO SECOND CIT PASS 11174 0 00000 0 11126 PZE PNCH4 F6B22966 11175 -0500 00 0 03774 CAL XCRDCT BUMP MONITOR BINARY OUTPUT RECORD COUNT F6B22968 11176 0400 00 0 11425 ADD L(1) F6B22970 11177 0621 00 0 03774 STA XCRDCT F6B22972 WRITE SINGLE COMPILE/PUNCH INTERMEDIATE TAPE F6B22974 11200 -3 77777 4 11224 PNCH8 TXL PNCH9,4,-1 IS SINGLE COMPILE/ONLINE PUNCH REQUESTED F6B22976 11201 -0500 00 0 11367 CAL BITBF YES, INSERT COLUMN BINARY BITS F6B22978 BINARY CARD NO. 9F310116 11202 -0602 60 1 11372 ORS* BITCB,1 INTO 9L F6B22980 11203 0361 60 1 11373 ACL* BITCB+1,1 AND INTO CHECKSUM F6B22982 11204 0520 60 1 11373 ZET* BITCB+1,1 IS THERE A CHECKSUM F6B22984 11205 0602 60 1 11373 SLW* BITCB+1,1 YES, INSERT INTO 9R F6B22986 11206 0074 00 4 73606 TSX (TAPE),4 *WRITE BINARY INTERMEDIATE TAPE F6B22988 11207 0 40001 1 11363 PZE BITIO,1,(WBNP) F6B22990 11210 0 00003 0 00000 PZE ,,SBNTAP F6B22992 11211 0 00000 0 11213 PZE *+2 F6B22994 11212 0020 00 0 11224 TRA PNCH9 F6B22996 ERROR ON BINARY INTERMEDIATE TAPE F6B22998 11213 0074 00 4 73606 TSX (TAPE),4 *REWIND INTERMEDIATE TAPE F6B23000 11214 0 20000 0 11457 PZE REWND,,(SKBP) F6B23002 11215 0 00003 0 00000 PZE ,,SBNTAP F6B23004 11216 0074 00 4 73611 TSX (PRNT),4 *PRINT 'ONLINE CARDS DELETED' F6B23006 11217 0 00016 0 11620 PZE DELOL,,14 F6B23008 11220 0074 00 2 10770 TSX SPACP,2 *SPACE PAGE F6B23010 11221 0774 00 2 77777 AXT -1,2 RESET SWITCH F6B23012 11222 -0634 00 2 11200 SXD PNCH8,2 F6B23014 11223 0634 00 2 04201 SXA XSWCH1,2 RESET ONLINE CARDS SWITCH SETTING F6B23016 REENTRY FOR NO SINGLE COMPILE/PUNCH INTERMEDIATE TAPE F6B23018 11224 0634 00 0 11037 PNCH9 SXA PUNCH+1,0 RESET RELOCATION BIT COUNT F6B23020 11225 0500 00 0 04377 CLA PCH9L BUMP LOAD POINT FOR NEXT CARD F6B23030 11226 0400 00 0 11443 ADD L(20) F6B23040 11227 0621 00 0 04377 STA PCH9L F6B23050 BINARY CARD NO. 9F310117 11230 0774 00 4 00027 AXT 23,4 CLEAR PUNCH BUFFER 9R, 8-12 ROWS F6B23060 11231 0600 00 4 04427 STZ PCH9L+24,4 F6B23070 11232 2 00001 4 11231 TIX *-1,4,1 F6B23080 11233 0774 00 4 00010 AXT 8,4 PREPARE TO BUMP 8 DIGITS (CC 73-80) F6B23090 11234 -0500 00 4 11345 BMPI0 CAL BMPBF+9,4 LOAD NEXT MORE SIGNIFICANT CHARACTER F6B23100 11235 0044 00 0 00000 PAI F6B23110 11236 0054 00 006000 RFT 6000 IS IT NONNUMERIC F6B23120 11237 0020 00 0 11254 TRA BMPI1+2 YES F6B23130 11240 0056 00 001000 RNT 1000 MAYBE, IS THERE A ZERO PUNCH F6B23140 11241 0020 00 0 11244 TRA *+3 NO F6B23150 11242 0054 00 000777 RFT 0777 YES, ARE THERE ANY DIGIT PUNCHES F6B23160 11243 0020 00 0 11254 TRA BMPI1+2 YES F6B23170 11244 0056 00 000001 RNT 0001 NO, IS THE DIGIT 9 F6B23180 11245 0020 00 0 11252 TRA BMPI1 NO F6B23190 11246 -0500 00 0 11436 CAL DIGIT YES, PICK UP ZERO F6B23200 11247 0602 00 4 11345 SLW BMPBF+9,4 RESET THIS ORDER DIGIT F6B23210 11250 2 00001 4 11234 TIX BMPI0,4,1 HAVE ALL DIGITS BEEN RESET F6B23220 11251 0020 00 0 11254 TRA BMPI1+2 YES F6B23230 11252 0771 00 0 00001 BMPI1 ARS 1 BUMP LAST DIGIT BY ONE F6B23240 11253 0602 00 4 11345 SLW BMPBF+9,4 F6B23250 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 98 SUBROUTINES RELEVANT TO SECOND CIT PASS 11254 0074 00 4 11375 TSX PAKID,4 *INSERT NEW SERIALS IN LABEL F6B23260 11255 0774 00 2 00024 AXT 20,2 RESET WORD COUNT TO 20 INSTRUCTIONS F6B23270 BINARY CARD NO. 9F310118 11256 0634 00 2 11040 BMPI2 SXA PUNCH+2,2 SAVE CARD WORD COUNT F6B23280 11257 0774 00 4 00000 PNCHX AXT **,4 RELOAD CALLING LINKAGE F6B23290 11260 0020 00 4 00001 TRA 1,4 F6B23292 F6B23296 ROUTINE TO WRITE OFF-LINE ROW BINARY BSS LOADER F6B23300 11261 0634 00 4 11307 BSSCD SXA BSSCX,4 SAVE CALLING LINK F6B23301 11262 0560 00 0 11507 LDQ BSSNM PREPARE F6B23302 11263 0074 00 4 10776 PCBSS TSX IDENT,4 LABEL. F6B23304 11264 0074 00 4 73606 TSX (TAPE),4 WRITE CARD FOR ROW BINARY BSS LOADER. F6B23306 11265 -0 40031 0 11311 MZE LODIO,,(WROW) F6B23308 11266 0 00007 0 00000 PZE ,,MBNTAP F6B2330A 11267 0 00000 0 11270 PZE *+1 IGNORE ERROR IN WRITING BSS LOADER OFFLINEF6B2330B 11270 0534 00 4 11311 LXA LODIO,4 BUMP ADDRESS OF F6B2330C 11271 1 00030 4 11272 TXI *+1,4,24 I/O COMMAND F6B2330E 11272 0634 00 4 11311 SXA LODIO,4 UP THROUGH BSS CODING. F6B2330F 11273 0500 00 0 04346 CLA IDBUF+2 F6B2330G 11274 0322 00 0 11460 ERA P(1) BUMP SERIAL F6B2330G 11275 0771 00 0 00001 ARS 1 OF F6B2330H 11276 0622 00 0 04346 STD IDBUF+2 THE F6B2330H 11277 0625 00 0 04346 STT IDBUF+2 9 CARD F6B2330H 11300 0621 00 0 04346 STA IDBUF+2 BSS LOADER. F6B2330I 11301 -2 13146 4 11264 TNX PCBSS+1,4,ENDLD-25 IS END OF BSS REACHED.. F6B2330J 11302 -0634 00 4 11311 SXD LODIO,4 ALMOST, RESET WORD COUNT, F6B2330K 11303 -3 00030 4 11264 TXL PCBSS+1,4,24 DROP THROUGH AFTER LAST CARD. F6B2330L BINARY CARD NO. 9F310119 11304 0500 00 0 03774 CLA XCRDCT BUMP MONITOR BINARY OUTPUT F6B2330N 11305 0400 00 0 11441 ADD L(9) RECORD COUNT F6B2330N 11306 0601 00 0 03774 STO XCRDCT F6B2330N 11307 0774 00 4 00000 BSSCX AXT **,4 RETURN F6B2330O 11310 0020 00 4 00001 TRA 1,4 F6B2330R 11311 -0 00030 0 12647 LODIO IOCP LOADR,,24 I/O COMMAND FOR LOADER AND F6B2330T 11312 -1 00003 0 04344 IOCT IDBUF,,3 LABEL. $F6B2330V F6B23310 ROUTINE TO PUNCH OFF-LINE ROW BINARY TRANSFER CARD F6B23311 11313 0634 00 4 11330 PCHTC SXA PCTCX,4 F6B23312 11314 0774 00 4 00027 AXT 23,4 CLEAR F6B23313 11315 0600 00 4 04426 STZ PCH9L+23,4 BUFFER FOR F6B23314 11316 2 00001 4 11315 TIX *-1,4,1 TRANSFER CARD. F6B23315 11317 -0500 00 0 11462 CAL P(4) SET 4 PREFIX IN 9L F6B23316 11320 0602 00 0 04377 SLW PCH9L F6B23317 11321 -0500 00 0 11512 CAL ZLABL SET UP ZZZZZZZZ LABEL F6B23318 11322 0602 00 0 04427 SLW PCH9L+24 FOR F6B23319 11323 0602 00 0 04430 SLW PCH9L+25 SORT F6B2331A 11324 0602 00 0 04431 SLW PCH9L+26 ORDERING. F6B2331C 11325 0074 00 4 73606 TSX (TAPE),4 WRITE LABELED TRANSFER CARD F6B2331E 11326 -0 40031 0 11332 MZE TCCOM,,(WROW) OFF-LINE F6B2331G 11327 0 00007 0 00000 PZE ,,MBNTAP F6B2331H 11330 0774 00 4 00000 PCTCX AXT **,4 RETURN F6B2331L 11331 0020 00 4 00001 TRA 1,4 F6B2331N 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 99 SUBROUTINES RELEVANT TO SECOND CIT PASS BINARY CARD NO. 9F310120 11332 -0 00030 0 04377 TCCOM IOCP PCH9L,,24 I/O COMMANDS FOR TRANSFER CARD F6B2331O 11333 -1 00003 0 04427 IOCT PCH9L+24,,3 AND LABEL. $F6B2331P F6B2331Q 11334 +000000000000 BMPBF DEC ,,,,,,,, F6B23320 F6B23330 11345 -0 00030 0 06465 IOCP PBUF1,,24 I/O COMMAND TO WRITE STACKED BINARY OUTPUTF6B23340 11346 -1 00003 0 06515 BOTIO IOCT PBUF1+24,,3 I/O COMMAND TO WRITE STACKED BINARY ID $F6B23350 11347 -0 00030 0 06520 IOCP PBUF2,,24 F6B23360 11350 -1 00003 0 06550 IOCT PBUF2+24,,3 $F6B23370 F6B23380 11351 0 00000 4 06515 PZE PBUF1+24,4 ORIGIN OF STACKED BINARY OUTPUT BUFFER F6B23390 11352 0 00000 4 06520 BOTBF PZE PBUF1+27,4 ORIGIN OF STACKED BINARY ID BUFFER F6B23400 11353 0 00000 4 06550 PZE PBUF2+24,4 F6B23410 11354 0 00000 4 06553 PZE PBUF2+27,4 F6B23420 F6B23430 11355 0 00000 0 06465 PZE PBUF1 STACKED BINARY 9L F6B23440 11356 0 00000 0 06466 BOTCB PZE PBUF1+1 STACKED BINARY 9R F6B23450 11357 0 00000 0 06520 PZE PBUF2 F6B23460 BINARY CARD NO. 9F310121 11360 0 00000 0 06521 PZE PBUF2+1 F6B23470 F6B23480 11361 0 00500 0 00000 OFLCB PZE ,,320 STACKED BINARY CB BITS F6B23490 F6B23500 11362 -0 00030 0 06553 IOCP PBUF3,,24 I/O COMMAND TO WRITE PUNCH BINARY OUTPUT F6B23510 11363 1 00000 0 11346 BITIO TCH BOTIO I/O COMMAND TO WRITE PUNCH BINARY ID F6B23520 11364 -0 00030 0 06603 IOCP PBUF4,,24 F6B23530 11365 1 00000 0 11350 TCH BOTIO+2 F6B23540 F6B23550 11366 0 00000 4 06603 PZE PBUF3+24,4 ORIGIN OF PUNCH BINARY OUTPUT BUFFER F6B23560 11367 0 00500 0 00000 BITBF PZE ,,320 PUNCH COLUMN BINARY BITS F6B23570 11370 0 00000 4 06633 PZE PBUF4+24,4 F6B23580 F6B23590 11371 0 00000 0 06553 PZE PBUF3 PUNCH BINARY 9L F6B23600 11372 0 00000 0 06554 BITCB PZE PBUF3+1 PUNCH BINARY 9R F6B23610 11373 0 00000 0 06603 PZE PBUF4 F6B23620 11374 0 00000 0 06604 PZE PBUF4+1 F6B23630 F6B23640 F6B23710 INSERT NEW SERIALS IN LABEL F6B23720 11375 0634 00 4 11410 PAKID SXA PAKIX,4 SAVE CALLING LINKAGE F6B23730 11376 0774 00 4 00003 AXT 3,4 PREPARE TO GENERATE 3 ID WORDS F6B23740 11377 0774 00 2 00000 AXT 0,2 PREPARE TO PACK 3 CHARACTERS IN EACH WORD F6B23750 11400 -0500 00 2 11344 CAL BMPBF+8,2 PACK LEFTMOST CHARACTER F6B23760 11401 0767 00 0 00014 ALS 12 F6B23770 11402 0361 00 2 11343 ACL BMPBF+7,2 CENTERMOST CHARACTER F6B23780 11403 0767 00 0 00014 ALS 12 F6B23790 11404 0361 00 2 11342 ACL BMPBF+6,2 RIGHTMOST CHARACTER F6B23800 11405 0602 00 4 04347 SLW IDBUF+3,4 IN NEXT WORD F6B23810 BINARY CARD NO. 9F310122 11406 1 00003 2 11407 TXI *+1,2,3 BUMP CHARACTER COUNT RIGHT 3 CHARACTERS F6B23820 11407 2 00001 4 11400 TIX PAKID+3,4,1 HAVE THREE WORDS BEEN PACKED F6B23830 11410 0774 00 4 00000 PAKIX AXT **,4 YES, RELOAD CALLING LINKAGE F6B23840 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 100 SUBROUTINES RELEVANT TO SECOND CIT PASS 11411 0020 00 4 00001 TRA 1,4 F6B23850 F6B23860 F6B23870 CONSTANTS F6B23880 F6B23890 11412 0 00004 0 00000 OPLST PZE ,,4 F6B23900 11413 DUP 1,5 EXPANSION SPACE FOR ADDITIONAL PSEUDOOPS F6B23910 11413 000000000000 BCI 1,000000 F6B23920 11420 462363000000 BCI 1,OCT000 F6B23930 11421 222324000000 BCDOP BCI 1,BCD000 F6B23940 11422 226262000000 BCI 1,BSS000 F6B23950 11423 627045000000 BCI 1,SYN000 F6B23960 F6B23970 BIT GENERATORS TO CREATE COLUMN BCD F6B23980 11424 0 00000 0 00000 L(0) PZE 0 F6B23990 11425 0 00000 0 00001 L(1) PZE 1 9 BIT 0 ZONE F6B24000 11426 0 00000 0 00002 L(2) PZE 2 8 BIT 11 ZONE F6B24010 11427 0 00000 0 00004 L(4) PZE 4 7 BIT 12 ZONE F6B24020 11430 ZONER SYN * F6B24030 11430 0 00000 0 00010 L(8) PZE 8 6 BIT NO ZONE F6B24040 11431 PLUSS SYN * F6B24050 11431 0 00000 0 00020 L(16) PZE 16 5 BIT F6B24060 11432 MINUS SYN * F6B24070 11432 0 00000 0 00040 PZE 32 4 BIT F6B24080 11433 0 00000 0 00100 PZE 64 3 BIT F6B24090 BINARY CARD NO. 9F310123 11434 0 00000 0 00200 PZE 128 2 BIT F6B24100 11435 0 00000 0 00400 PZE 256 1 BIT F6B24110 11436 0 00000 0 01000 DIGIT PZE 512 0 BIT F6B24120 F6B24130 11437 0 00000 0 00003 L(3) PZE 3 F6B24140 11440 0 00000 0 00007 L(7) PZE 7 F6B24150 11441 0 00000 0 00011 L(9) PZE 9 F6B24155 11442 0 00000 0 00012 L(10) PZE 10 F6B24160 11443 0 00000 0 00024 L(20) PZE 20 F6B24170 11444 0 00000 0 00077 CHMSK PZE 63 MASK TO ISOLATE SIX BIT CHARACTER F6B24180 11445 0 00000 0 00144 L(100 PZE 100 F6B24190 11446 0 00000 0 77777 ADMSK PZE -1 F6B24200 11447 0 00000 1 00000 T(1) PZE ,1 F6B24210 11450 0 00000 2 00000 T(2) PZE ,2 F6B24220 11451 0 00000 7 00000 T(7) PZE ,7 F6B24230 11452 0 00001 0 00000 D(1) PZE ,,1 F6B24240 11453 0 00002 0 00000 D(2) PZE ,,2 F6B24250 11454 0 00003 0 00000 D(3) PZE ,,3 F6B24260 11455 0 00004 0 00000 D(4) PZE ,,4 F6B24270 11456 0 00026 0 00000 D(22) PZE ,,22 F6B24280 11457 0 77777 0 00000 REWND PZE ,,-1 F6B24290 11460 1 00000 0 00000 P(1) PON F6B24300 11461 2 00000 0 00000 P(2) PTW F6B24310 BINARY CARD NO. 9F310124 11462 -0 00000 0 00000 P(4) FOR F6B24320 11463 -2 00000 0 00000 P(6) SIX F6B24330 11464 -3 77777 0 00000 OPMSK SVN ,,-1 F6B24340 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 101 SUBROUTINES RELEVANT TO SECOND CIT PASS 11465 0 00000 0 00001 PZE 1,,0 F6B24350 11466 0 00001 0 00002 PZE 2,,1 F6B24360 11467 0 00002 0 00004 PADTG PZE 4,,2 F6B24370 F6B24380 11470 -0 00030 0 06127 FCARD IOCP ZEROB,,24 F6B24670 11471 -1 00003 0 04344 IOCT IDBUF,,3 F6B24680 11472 -0 00002 0 04377 LIBIO IOCP PCH9L,,2 F6B24690 11473 3 00605 0 00000 IORT **,,LIBS1-PCH8L-2 F6B24700 11474 3 00016 0 14274 IORT BUFF2+1,,14 F6B24710 11475 3 00016 0 13764 IORT BUFF1+1,,14 F6B24720 11476 3 00016 0 14274 FFILI IORT BUFF2+1,,14 F6B24730 11477 -1 00000 0 12647 IOCT BLKBF,,** I/O COMMANDS $F6B24737 11500 0 00000 1 12647 WRTCM PZE BLKBF,1 AND BUFFERS TAGGED FOR F6B24738 11501 -1 00000 0 13017 IOCT BLKBF+104,,** DOUBLE BUFFERING $F6B24739 11502 0 00000 1 13017 PZE BLKBF+104,1 OF LISTING TAPE F6B24740 11503 -206060606072 RECMK OCT 606060606072 RECORD MARK FOR BLOCKED RECORDS. F6B24741 11504 -206060607260 FRCMK OCT 606060607260 FINAL RECORD MARK FOR BLOCKED RECORDS. F6B24742 11505 742567253460 EXENM BCI 1,(EXE) F6B24743 11506 742567254434 EXEMN BCI 1,(EXEM) F6B24744 11507 +122262620000 BSSNM OCT 122262620000 LABEL FOR OFF-LINE BSS LOADER F6B24745 BINARY CARD NO. 9F310125 11510 -1 00003 0 11521 EJTIO IOCT EJECT,,3 $F6B24746 11511 +000000126263 STLBL OCT 000000126263 LABEL TO PUNCH ABC ST00 IN SYMBOL TABLE F6B24750 11512 +100110011001 ZLABL OCT 100110011001 LABEL TO PUNCH ZZZZZZZZ IN TRANSFER CARD F6B24760 11513 000000000023 L(C) BCI 1,00000C F6B24770 11514 000000000034 PAREN BCI 1,00000) F6B24780 11515 000000000060 BLANK BCI 1,00000 F6B24790 11516 000000000073 COMMA BCI 1,00000, F6B24800 11517 000000000074 OPARN BCI 1,00000( F6B24810 11520 006060606060 SPACE BCI 1,0 F6B24820 11521 016060606060 EJECT BCI 1,1 F6B24830 11522 606060606060 BLNKS BCI 3, F6B24840 11525 536060606060 L(SD) BCI 1,$ F6B24850 11526 545454545454 HASHS BCI 1,****** F6B24860 11527 546060606060 PROCT BCI 1,* F6B24870 11530 606060606011 L9LBL BCI 1, 9 F6B24880 11531 632531264506 ELABL BCI 1,TEIFN6 F6B24890 11532 263145476463 FINPT BCI 1,FINPUT LABEL FOR SOURCE PROGRAM (MONITOR MODE) F6B24895 11533 477125000000 PZEOP BCI 1,PZE000 F6B24900 11534 626724000000 SXDOP BCI 1,SXD000 F6B24910 11535 234321000000 BCI 1,CLA000 F6B24920 BINARY CARD NO. 9F310126 11536 212424000000 BCI 1,ADD000 F6B24930 11537 626321000000 PROOP BCI 1,STA000 F6B24940 11540 000000000000 BCI 1,000000 F6B24950 11541 110000000000 BCI 1,900000 F6B24960 11542 000000000000 PROSM BCI 1,000000 F6B24970 11543 006000010160 BCI 1,0 011 F6B24980 11544 006000010060 BCI 1,0 010 F6B24990 11545 006000000160 BCI 1,0 001 F6B25000 11546 006000006060 SPBIT BCI 1,0 00 F6B25010 11547 000000000065 BCI 9,00000V00000U00000T00000S00000R00000Q00000P00000O00000N F6B25020 11560 000000000044 BCI 9,00000M00000L00000K00000J00000I00000H00000G00000F00000E F6B25030 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 102 SUBROUTINES RELEVANT TO SECOND CIT PASS BINARY CARD NO. 9F310127 11571 000000000024 BCI 3,00000D00000C00000B F6B25040 11574 000000000021 ALPHA BCI 1,00000A F6B25050 11575 000000000011 BCI 9,000009000008000007000006000005000004000003000002000001 F6B25060 11606 000000000000 CHART BCI 1,000000 F6B25070 11607 006060606060 DLXEM BCI 9,0 CHANGE BINARY OUTPUT TAPE. EXECUTION DELETED F6B25072 BINARY CARD NO. 9F310128 11620 006060606062 DELOL BCI 9,0 SINGLE COMPILE BINARY OUTPUT TAPE/ONLINE CARDS DE F6B25074 11631 432563252433 BCI 5,LETED. PUSH START TO CONTINUE. F6B25076 11636 006060606060 ENDMS BCI 7,0 END SINGLE COMPILE, READY CARD READER F6B25078 BINARY CARD NO. 9F310129 F6B25080 DICTIONARY OF MACHINE OPERATION CODES F6B25090 11645 0 00000 2 12121 RGOPS PZE SYMOP,2 F6B25100 11646 0 00000 2 12372 RGABS PZE ABSOP,2 F6B25110 11647 -3 00251 2 07766 OPRTL TXL SOPR1,2,ABSOP-SYMOP F6B25120 11650 212343000000 BCI 1,ACL000 F6B25130 11651 212424000000 BCI 1,ADD000 F6B25140 11652 212444000000 BCI 1,ADM000 F6B25150 11653 214362000000 BCI 1,ALS000 F6B25160 11654 214521000000 BCI 1,ANA000 F6B25170 11655 214562000000 BCI 1,ANS000 F6B25180 11656 215162000000 BCI 1,ARS000 F6B25190 11657 216723000000 BCI 1,AXC000 F6B25200 11660 216763000000 BCI 1,AXT000 F6B25210 11661 232124000000 BCI 1,CAD000 F6B25220 11662 232143000000 BCI 1,CAL000 F6B25230 11663 232150000000 BCI 1,CAQ000 F6B25240 11664 232162000000 BCI 1,CAS000 F6B25250 11665 232626000000 BCI 1,CFF000 F6B25260 BINARY CARD NO. 9F310130 11666 233062000000 BCI 1,CHS000 F6B25270 11667 234321000000 BCI 1,CLA000 F6B25280 11670 234344000000 BCI 1,CLM000 F6B25290 11671 234362000000 BCI 1,CLS000 F6B25300 11672 234644000000 BCI 1,COM000 F6B25310 11673 234770000000 BCI 1,CPY000 F6B25320 11674 235150000000 BCI 1,CRQ000 F6B25330 11675 236551000000 BCI 1,CVR000 F6B25340 11676 242363000000 BCI 1,DCT000 F6B25350 11677 246530000000 BCI 1,DVH000 F6B25360 11700 246547000000 BCI 1,DVP000 F6B25370 11701 254522000000 BCI 1,ENB000 F6B25380 11702 254542000000 BCI 1,ENK000 F6B25390 11703 255121000000 BCI 1,ERA000 F6B25400 11704 256344000000 BCI 1,ETM000 F6B25410 11705 262124000000 BCI 1,FAD000 F6B25420 11706 262144000000 BCI 1,FAM000 F6B25430 11707 262430000000 BCI 1,FDH000 F6B25440 11710 262447000000 BCI 1,FDP000 F6B25450 11711 264447000000 BCI 1,FMP000 F6B25460 11712 264651000000 BCI 1,FOR000 F6B25470 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 103 SUBROUTINES RELEVANT TO SECOND CIT PASS 11713 265145000000 BCI 1,FRN000 F6B25480 BINARY CARD NO. 9F310131 11714 266222000000 BCI 1,FSB000 F6B25490 11715 266244000000 BCI 1,FSM000 F6B25500 11716 266525000000 BCI 1,FVE000 F6B25510 11717 304751000000 BCI 1,HPR000 F6B25520 11720 306351000000 BCI 1,HTR000 F6B25530 11721 313121000000 BCI 1,IIA000 F6B25540 11722 313143000000 BCI 1,IIL000 F6B25550 11723 313151000000 BCI 1,IIR000 F6B25560 11724 313162000000 BCI 1,IIS000 F6B25570 11725 314663000000 BCI 1,IOT000 F6B25580 11726 432123000000 BCI 1,LAC000 F6B25590 11727 432162000000 BCI 1,LAS000 F6B25600 11730 432263000000 BCI 1,LBT000 F6B25610 11731 432321000000 BCI 1,LCA000 F6B25620 11732 432421000000 BCI 1,LDA000 F6B25630 11733 432423000000 BCI 1,LDC000 F6B25640 11734 432431000000 BCI 1,LDI000 F6B25650 11735 432450000000 BCI 1,LDQ000 F6B25660 11736 432663000000 BCI 1,LFT000 F6B25670 11737 432743000000 BCI 1,LGL000 F6B25680 11740 432751000000 BCI 1,LGR000 F6B25690 11741 434362000000 BCI 1,LLS000 F6B25700 BINARY CARD NO. 9F310132 11742 434563000000 BCI 1,LNT000 F6B25710 11743 435162000000 BCI 1,LRS000 F6B25720 11744 436344000000 BCI 1,LTM000 F6B25730 11745 436721000000 BCI 1,LXA000 F6B25740 11746 436724000000 BCI 1,LXD000 F6B25750 11747 444645000000 BCI 1,MON000 F6B25760 11750 444751000000 BCI 1,MPR000 F6B25770 11751 444770000000 BCI 1,MPY000 F6B25780 11752 446225000000 BCI 1,MSE000 F6B25790 11753 446330000000 BCI 1,MTH000 F6B25800 11754 446366000000 BCI 1,MTW000 F6B25810 11755 447125000000 BCI 1,MZE000 F6B25820 11756 454647000000 BCI 1,NOP000 F6B25830 11757 456351000000 BCI 1,NTR000 F6B25840 11760 457163000000 BCI 1,NZT000 F6B25850 11761 462131000000 BCI 1,OAI000 F6B25860 11762 462663000000 BCI 1,OFT000 F6B25870 11763 464563000000 BCI 1,ONT000 F6B25880 11764 465121000000 BCI 1,ORA000 F6B25890 11765 465162000000 BCI 1,ORS000 F6B25900 11766 466231000000 BCI 1,OSI000 F6B25910 11767 472123000000 BCI 1,PAC000 F6B25920 BINARY CARD NO. 9F310133 11770 472131000000 BCI 1,PAI000 F6B25930 11771 472167000000 BCI 1,PAX000 F6B25940 11772 472263000000 BCI 1,PBT000 F6B25950 11773 472423000000 BCI 1,PDC000 F6B25960 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 104 SUBROUTINES RELEVANT TO SECOND CIT PASS 11774 472467000000 BCI 1,PDX000 F6B25970 11775 473121000000 BCI 1,PIA000 F6B25980 11776 474645000000 BCI 1,PON000 F6B25990 11777 476225000000 BCI 1,PSE000 F6B26000 12000 476330000000 BCI 1,PTH000 F6B26010 12001 476366000000 BCI 1,PTW000 F6B26020 12002 476721000000 BCI 1,PXA000 F6B26030 12003 476724000000 BCI 1,PXD000 F6B26040 12004 477125000000 BCI 1,PZE000 F6B26050 12005 512324000000 BCI 1,RCD000 F6B26060 12006 512451000000 BCI 1,RDR000 F6B26070 12007 512462000000 BCI 1,RDS000 F6B26080 12010 512663000000 BCI 1,RFT000 F6B26090 12011 513121000000 BCI 1,RIA000 F6B26100 12012 513143000000 BCI 1,RIL000 F6B26110 12013 513151000000 BCI 1,RIR000 F6B26120 12014 513162000000 BCI 1,RIS000 F6B26130 12015 514321000000 BCI 1,RLA000 F6B26140 BINARY CARD NO. 9F310134 12016 514524000000 BCI 1,RND000 F6B26150 12017 514563000000 BCI 1,RNT000 F6B26160 12020 515043000000 BCI 1,RQL000 F6B26170 12021 606060000000 BCI 1, 000 F6B26180 12022 622244000000 BCI 1,SBM000 F6B26190 12023 623143000000 BCI 1,SIL000 F6B26200 12024 623151000000 BCI 1,SIR000 F6B26210 12025 623167000000 BCI 1,SIX000 F6B26220 12026 624326000000 BCI 1,SLF000 F6B26230 12027 624345000000 BCI 1,SLN000 F6B26240 12030 624350000000 BCI 1,SLQ000 F6B26250 12031 624363000000 BCI 1,SLT000 F6B26260 12032 624366000000 BCI 1,SLW000 F6B26270 12033 626244000000 BCI 1,SSM000 F6B26280 12034 626247000000 BCI 1,SSP000 F6B26290 12035 626321000000 BCI 1,STA000 F6B26300 12036 626324000000 BCI 1,STD000 F6B26310 12037 626331000000 BCI 1,STI000 F6B26320 12040 626343000000 BCI 1,STL000 F6B26330 12041 626346000000 BCI 1,STO000 F6B26340 12042 626347000000 BCI 1,STP000 F6B26350 12043 626350000000 BCI 1,STQ000 F6B26360 BINARY CARD NO. 9F310135 12044 626351000000 BCI 1,STR000 F6B26370 12045 626363000000 BCI 1,STT000 F6B26380 12046 626371000000 BCI 1,STZ000 F6B26390 12047 626422000000 BCI 1,SUB000 F6B26400 12050 626545000000 BCI 1,SVN000 F6B26410 12051 626663000000 BCI 1,SWT000 F6B26420 12052 626721000000 BCI 1,SXA000 F6B26430 12053 626724000000 BCI 1,SXD000 F6B26440 12054 632126000000 BCI 1,TAF000 F6B26450 12055 632330000000 BCI 1,TCH000 F6B26460 12056 633126000000 BCI 1,TIF000 F6B26470 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 105 SUBROUTINES RELEVANT TO SECOND CIT PASS 12057 633146000000 BCI 1,TIO000 F6B26480 12060 633167000000 BCI 1,TIX000 F6B26490 12061 634350000000 BCI 1,TLQ000 F6B26500 12062 634431000000 BCI 1,TMI000 F6B26510 12063 634546000000 BCI 1,TNO000 F6B26520 12064 634567000000 BCI 1,TNX000 F6B26530 12065 634571000000 BCI 1,TNZ000 F6B26540 12066 634665000000 BCI 1,TOV000 F6B26550 12067 634743000000 BCI 1,TPL000 F6B26560 12070 635046000000 BCI 1,TQO000 F6B26570 12071 635047000000 BCI 1,TQP000 F6B26580 BINARY CARD NO. 9F310136 12072 635121000000 BCI 1,TRA000 F6B26590 12073 636267000000 BCI 1,TSX000 F6B26600 12074 636351000000 BCI 1,TTR000 F6B26610 12075 636730000000 BCI 1,TXH000 F6B26620 12076 636731000000 BCI 1,TXI000 F6B26630 12077 636743000000 BCI 1,TXL000 F6B26640 12100 637125000000 BCI 1,TZE000 F6B26650 12101 642144000000 BCI 1,UAM000 F6B26660 12102 642621000000 BCI 1,UFA000 F6B26670 12103 642644000000 BCI 1,UFM000 F6B26680 12104 642662000000 BCI 1,UFS000 F6B26690 12105 646244000000 BCI 1,USM000 F6B26700 12106 652430000000 BCI 1,VDH000 F6B26710 12107 652447000000 BCI 1,VDP000 F6B26720 12110 654344000000 BCI 1,VLM000 F6B26730 12111 662451000000 BCI 1,WDR000 F6B26740 12112 665162000000 BCI 1,WRS000 F6B26750 12113 666365000000 BCI 1,WTV000 F6B26760 12114 672321000000 BCI 1,XCA000 F6B26770 12115 672343000000 BCI 1,XCL000 F6B26780 12116 672523000000 BCI 1,XEC000 F6B26790 12117 673163000000 BCI 1,XIT000 F6B26800 BINARY CARD NO. 9F310137 12120 712563000000 BCI 1,ZET000 F6B26810 12121 SYMOP SYN * F6B26820 A 12121 0361 00 0 00000 ACL F6B26830 A 12122 0400 00 0 00000 ADD F6B26840 A 12123 0401 00 0 00000 ADM F6B26850 A 12124 0767 00 0 00000 ALS F6B26860 A 12125 -0320 00 0 00000 ANA F6B26870 A 12126 0320 00 0 00000 ANS F6B26880 A 12127 0771 00 0 00000 ARS F6B26890 AT 12130 -0774 00 0 00000 AXC F6B26900 AT 12131 0774 00 0 00000 AXT F6B26910 4A 12132 -0700 00 0 00000 CAD F6B26920 A 12133 -0500 00 0 00000 CAL F6B26930 AD 12134 -0114 00 0 00000 CAQ F6B26940 A 12135 0340 00 0 00000 CAS F6B26950 12136 0760 00 0 00030 CFF F6B26960 12137 0760 00 0 00002 CHS F6B26970 A 12140 0500 00 0 00000 CLA F6B26980 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 106 SUBROUTINES RELEVANT TO SECOND CIT PASS 12141 0760 00 0 00000 CLM F6B26990 A 12142 0502 00 0 00000 CLS F6B27000 12143 0760 00 0 00006 COM F6B27010 4A 12144 0700 00 0 00000 CPY F6B27020 AD 12145 -0154 00 0 00000 CRQ F6B27030 BINARY CARD NO. 9F310138 AD 12146 0114 00 0 00000 CVR F6B27040 12147 0760 00 0 00012 DCT F6B27050 A 12150 0220 00 0 00000 DVH F6B27060 A 12151 0221 00 0 00000 DVP F6B27070 A 12152 0564 00 0 00000 ENB F6B27080 12153 0760 00 0 00004 ENK F6B27090 A 12154 0322 00 0 00000 ERA F6B27100 12155 0760 00 0 00007 ETM F6B27110 A 12156 0300 00 0 00000 FAD F6B27120 A 12157 0304 00 0 00000 FAM F6B27130 A 12160 0240 00 0 00000 FDH F6B27140 A 12161 0241 00 0 00000 FDP F6B27150 A 12162 0260 00 0 00000 FMP F6B27160 12163 -0 00000 0 00000 FOR F6B27170 12164 0760 00 0 00011 FRN F6B27180 A 12165 0302 00 0 00000 FSB F6B27190 A 12166 0306 00 0 00000 FSM F6B27200 12167 -1 00000 0 00000 FVE F6B27210 12170 0420 00 0 00000 HPR F6B27220 A 12171 0000 00 0 00000 HTR F6B27230 12172 0041 00 0 00000 IIA F6B27240 A 12173 -0051 00 000000 IIL F6B27250 BINARY CARD NO. 9F310139 A 12174 0051 00 000000 IIR F6B27260 A 12175 0440 00 0 00000 IIS F6B27270 12176 0760 00 0 00005 IOT F6B27280 AT 12177 0535 00 0 00000 LAC F6B27290 A 12200 -0340 00 0 00000 LAS F6B27300 12201 0760 00 0 00001 LBT F6B27310 A 12202 0544 00 0 00000 LCHA (LCA) F6B27320 4A 12203 0460 00 0 00000 LDA F6B27330 AT 12204 -0535 00 0 00000 LDC F6B27340 A 12205 0441 00 0 00000 LDI F6B27350 A 12206 0560 00 0 00000 LDQ F6B27360 A 12207 -0054 00 000000 LFT F6B27370 A 12210 -0763 00 0 00000 LGL F6B27380 A 12211 -0765 00 0 00000 LGR F6B27390 A 12212 0763 00 0 00000 LLS F6B27400 A 12213 -0056 00 000000 LNT F6B27410 A 12214 0765 00 0 00000 LRS F6B27420 12215 -0760 00 0 00007 LTM F6B27430 AT 12216 0534 00 0 00000 LXA F6B27440 AT 12217 -0534 00 0 00000 LXD F6B27450 12220 -1 00000 0 00000 MON F6B27460 A 12221 -0200 00 0 00000 MPR F6B27470 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 107 SUBROUTINES RELEVANT TO SECOND CIT PASS BINARY CARD NO. 9F310140 A 12222 0200 00 0 00000 MPY F6B27480 A 12223 -0760 00 0 00000 MSE F6B27490 12224 -3 00000 0 00000 MTH F6B27500 12225 -2 00000 0 00000 MTW F6B27510 12226 -0 00000 0 00000 MZE F6B27520 12227 0761 00 0 00000 NOP F6B27530 A 12230 1 00000 0 00000 NTR (TXI) F6B27540 A 12231 -0520 00 0 00000 NZT F6B27550 12232 0043 00 0 00000 OAI F6B27560 A 12233 0444 00 0 00000 OFT F6B27570 A 12234 0446 00 0 00000 ONT F6B27580 A 12235 -0501 00 0 00000 ORA F6B27590 A 12236 -0602 00 0 00000 ORS F6B27600 A 12237 0442 00 0 00000 OSI F6B27610 T 12240 0737 00 0 00000 PAC F6B27620 12241 0044 00 0 00000 PAI F6B27630 T 12242 0734 00 0 00000 PAX F6B27640 12243 -0760 00 0 00001 PBT F6B27650 T 12244 -0737 00 0 00000 PDC F6B27660 T 12245 -0734 00 0 00000 PDX F6B27670 12246 -0046 00 0 00000 PIA F6B27680 12247 1 00000 0 00000 PON F6B27690 BINARY CARD NO. 9F310141 A 12250 0760 00 0 00000 PSE F6B27700 12251 3 00000 0 00000 PTH F6B27710 12252 2 00000 0 00000 PTW F6B27720 T 12253 0754 00 0 00000 PXA F6B27730 T 12254 -0754 00 0 00000 PXD F6B27740 12255 0 00000 0 00000 PZE F6B27750 12256 0762 00 0 01321 RCDA (RCD) F6B27760 4A 12257 0762 00 0 00300 RDR F6B27770 A 12260 0762 00 0 00000 RDS F6B27780 A 12261 0054 00 000000 RFT F6B27790 12262 -0042 00 0 00000 RIA F6B27800 A 12263 -0057 00 000000 RIL F6B27810 A 12264 0057 00 000000 RIR F6B27820 A 12265 0445 00 0 00000 RIS F6B27830 A 12266 0540 00 0 00000 RCHA (RLA) F6B27840 12267 0760 00 0 00010 RND F6B27850 A 12270 0056 00 000000 RNT F6B27860 A 12271 -0773 00 0 00000 RQL F6B27870 12272 0 00000 0 00000 (BLANK) F6B27880 A 12273 -0400 00 0 00000 SBM F6B27890 A 12274 -0055 00 000000 SIL F6B27900 A 12275 0055 00 000000 SIR F6B27910 BINARY CARD NO. 9F310142 12276 -2 00000 0 00000 SIX F6B27920 12277 0760 00 0 00140 SLF F6B27930 A 12300 0760 00 0 00140 SLN F6B27940 A 12301 -0620 00 0 00000 SLQ F6B27950 A 12302 -0760 00 0 00140 SLT F6B27960 A 12303 0602 00 0 00000 SLW F6B27970 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 108 SUBROUTINES RELEVANT TO SECOND CIT PASS 12304 -0760 00 0 00003 SSM F6B27980 12305 0760 00 0 00003 SSP F6B27990 A 12306 0621 00 0 00000 STA F6B28000 A 12307 0622 00 0 00000 STD F6B28010 A 12310 0604 00 0 00000 STI F6B28020 A 12311 -0625 00 0 00000 STL F6B28030 A 12312 0601 00 0 00000 STO F6B28040 A 12313 0630 00 0 00000 STP F6B28050 A 12314 -0600 00 0 00000 STQ F6B28060 12315 -1 00000 0 00000 STR F6B28070 A 12316 0625 00 0 00000 STT F6B28080 A 12317 0600 00 0 00000 STZ F6B28090 A 12320 0402 00 0 00000 SUB F6B28100 12321 -3 00000 0 00000 SVN F6B28110 A 12322 0760 00 0 00160 SWT F6B28120 AT 12323 0634 00 0 00000 SXA F6B28130 BINARY CARD NO. 9F310143 AT 12324 -0634 00 0 00000 SXD F6B28140 A 12325 0030 00 0 00000 TEFA (TAF) F6B28150 A 12326 1 00000 0 00000 TCH F6B28160 A 12327 0046 00 0 00000 TIF F6B28170 A 12330 0042 00 0 00000 TIO F6B28180 ATD 12331 2 00000 0 00000 TIX F6B28190 A 12332 0040 00 0 00000 TLQ F6B28200 A 12333 -0120 00 0 00000 TMI F6B28210 A 12334 -0140 00 0 00000 TNO F6B28220 ATD 12335 -2 00000 0 00000 TNX F6B28230 A 12336 -0100 00 0 00000 TNZ F6B28240 A 12337 0140 00 0 00000 TOV F6B28250 A 12340 0120 00 0 00000 TPL F6B28260 A 12341 0161 00 0 00000 TQO F6B28270 A 12342 0162 00 0 00000 TQP F6B28280 A 12343 0020 00 0 00000 TRA F6B28290 AT 12344 0074 00 0 00000 TSX F6B28300 A 12345 0021 00 0 00000 TTR F6B28310 ATD 12346 3 00000 0 00000 TXH F6B28320 ATD 12347 1 00000 0 00000 TXI F6B28330 ATD 12350 -3 00000 0 00000 TXL F6B28340 A 12351 0100 00 0 00000 TZE F6B28350 BINARY CARD NO. 9F310144 A 12352 -0304 00 0 00000 UAM F6B28360 A 12353 -0300 00 0 00000 UFA F6B28370 A 12354 -0260 00 0 00000 UFM F6B28380 A 12355 -0302 00 0 00000 UFS F6B28390 A 12356 -0306 00 0 00000 USM F6B28400 AD 12357 0224 00 0 00000 VDH F6B28410 AD 12360 0225 00 0 00000 VDP F6B28420 AD 12361 0204 00 0 00000 VLM F6B28430 4A 12362 0766 00 0 00300 WDR F6B28440 A 12363 0766 00 0 00000 WRS F6B28450 12364 0766 00 0 00030 WTV F6B28460 12365 0131 00 0 00000 XCA F6B28470 12366 -0130 00 0 00000 XCL F6B28480 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 109 SUBROUTINES RELEVANT TO SECOND CIT PASS A 12367 0522 00 0 00000 XEC F6B28490 A 12370 0021 00 0 00000 XIT (TTR) F6B28500 A 12371 0520 00 0 00000 ZET F6B28510 12372 ABSOP SYN * F6B28520 F6B28530 PATCH SPACE TO ALLOW UP TO 256 OPCODES F6B28540 12647 ORG OPRTL+512 F6B28550 F6B28560 BINARY LOADER F6B28570 12647 LOADR SYN * F6B28580 12647 BLKBF SYN * DOUBLE BUFFERING OVERWRITES DEAD CODING. F6B28581 UNLIST BOOLS TO DEFINE BSS LOADER VARIABLE FIELD F6B28590 00000 CD9LO SYN 0 F6B29090 00001 CD9RO SYN 1 F6B29100 00002 CD8LO SYN 2 F6B29110 00143 WDIOF SYN 99 F6B29120 F6B29130 THE FOLLOWING THREE INSTRUCTIONS ARE READ INTO 0, 1, 2 F6B29140 F6B29150 BINARY CARD NO. 9F310145 12647 -1 00325 0 77453 IOCT STRTO,,-STRTO $F6B29160 12650 0060 00 0 00001 TCOA 1 F6B29170 12651 0021 00 0 77453 TTR STRTO F6B29180 F6B29190 77430 EPLST SYN STRTO-19 F6B29200 77432 OVRLP SYN STRTO-17 F6B29210 77456 TVLST SYN STRTO+3 F6B29220 F6B29230 12652 -0760 00 0 00007 STRT0 LTM RESET INDICATORS F6B29240 12653 0760 00 0 00140 SLF F6B29250 12654 0030 00 0 77456 TEFA STRTO+3 F6B29260 12655 0774 00 4 77777 AXT -1,4 INITIALIZE MACHINE CORE SIZE F6B29270 12656 0634 00 4 77672 CD8R0 SXA ADMKO,4 USED AS ERASABLE CELL FOR C(8R) F6B29280 F6B29290 REENTRY IF SUBROUTINES MISSING AFTER TRANSFER CARD F6B29300 12657 0600 00 0 77432 STZ OVRLP RESET MISSING SUBROUTINE FLAG F6B29310 F6B29320 REENTRY TO GET NEXT CARD F6B29330 12660 0762 00 0 01321 RDCD0 RCDA READ NEXT CARD F6B29340 12661 0540 00 0 77756 RCHA IO9LO READ 9L F6B29350 12662 0544 00 0 77473 LCHA IO9RO DELAY UNTIL 9L IS IN AND READ 9R F6B29360 12663 0500 00 0 00000 CLA CD9LO GET 9L (PREFIX, WORD COUNT, LOAD ADDRESS) F6B29370 12664 -0734 00 1 00000 PDX ,1 LOAD CARD WORD COUNT F6B29380 12665 0622 00 0 77761 STD IOCDO SET WORD COUNT OF I/O COMMAND F6B29390 12666 -3 00037 1 77504 TXL STCDO,1,31 *IS THIS DATA, TRANSFER, OR PROGRAM CARD F6B29400 12667 -3 00040 1 77474 TXL CNCDO,1,32 *NO, IS CARD CONTROL CARD F6B29410 12670 0544 00 0 77755 LCHA IT8LO NO, MUST BE SELF LOADER. READ 8L INTO 2 F6B29420 12671 0544 00 0 00000 LCHA CD9LO SIMULATE MACHINE LOAD CHANNEL FROM 0 F6B29430 12672 -3 00001 0 00001 IO9R0 TXL CD9RO,,1 *TRANSFER TO 1 (ALSO USED AS IOST COMMAND) F6B29440 F6B29450 CARD IS CONTROL CARD F6B29460 12673 0400 00 0 77763 CNCD0 ADD LCTRO BUMP LOWER STORAGE COUNTER F6B29470 12674 0621 00 0 77763 STA LCTRO BY LENGTH OF BLOCK RESERVED (9L ADDRESS) F6B29480 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 110 SUBROUTINES RELEVANT TO SECOND CIT PASS BINARY CARD NO. 9F310146 12675 0544 00 0 77672 LCHA ADMKO DELAY UNTIL 9R READ IN F6B29490 12676 0500 00 0 00001 CLA CD9RO SET COMMON ORIGIN TO F6B29500 12677 0621 00 0 77505 STA CMRGO 9R ADDRESS F6B29510 12700 0760 00 0 00005 IOTS0 IOT IS I/O CHECK LIGHT ON F6B29520 12701 0020 00 0 77614 TRA IOONO *YES F6B29530 12702 0020 00 0 77461 TRA RDCDO *NO, GET NEXT CARD F6B29540 F6B29550 SORT CARDS ON 9L PREFIX F6B29560 12703 0771 00 0 00017 STCD0 ARS 15 GET 9L PREFIX F6B29570 12704 -0734 00 4 00000 CMRG0 PDX **,4 (ADDRESS FIELD USED AS COMMON DECREMENT) F6B29580 12705 -0120 00 0 77617 TMI PRCDO *IS CARD INSTRUCTION OR DATA CARD F6B29590 F6B29600 CARD IS DATA OR TRANSFER CARD (PREFIX 0, 1, 2, 3) F6B29610 12706 -0500 00 0 00000 CAL CD9LO GET 9L F6B29620 12707 0100 00 0 77501 TZE IOTSO *IS CARD BLANK F6B29630 12710 -3 00001 4 77514 TXL SETIO,4,1 NO, IS THIS RELOCATABLE BINARY CARD F6B29640 12711 0544 00 0 77757 LCHA IO8LO YES, CARD IS DATA OR TRANSFER (PREFIX 2,3)F6B29650 12712 0074 00 2 77551 TSX RELLO,2 $RELOCATE LOAD OR TRANSFER ADDRESS F6B29660 12713 0621 00 0 77761 SETI0 STA IOCDO SET LOAD ADDRESS OF I/O COMMAND F6B29670 12714 0544 00 0 77761 LCHA IOCDO READ 8L (PREFIX 0, 1) OR 7L (PREFIX 2, 3) F6B29680 USING IOST TO DISCONTINUE AT END OF CARD F6B29690 12715 -3 00000 1 77761 TXL IOCDO,1,0 *IS THIS ABSOLUTE OR RELOCATABLE TRANSFER F6B29700 CARD (PREFIX 0, 1, 2, 3, WORD COUNT 0) F6B29710 12716 0754 00 1 00000 ADDR0 PXA **,1 NO, COMPUTE LAST ADDRESS+1 OF CARD F6B29720 12717 0402 00 0 77761 SUB IOCDO FOR CHECKSUM LOOP F6B29730 12720 0760 00 0 00140 SLF RESET SWITCHES F6B29740 12721 0074 00 2 77573 TSX CKSMO,2 $COMPUTE CHECKSUM F6B29750 12722 -3 00001 4 77461 TXL RDCDO,4,1 IS CARD ABSOLUTE BINARY (PREFIX 0, 1) F6B29760 BINARY CARD NO. 9F310147 12723 0560 00 0 77457 LDQ CD8RO NO, LOAD RIGHT HALF RELOCATION BITS F6B29770 F6B29780 REENTRY TO RELOCATE NEXT DATA WORD F6B29790 12724 0074 00 4 77567 RELD0 TSX RELBO,4 $GET NEXT RELOCATION BIT F6B29800 12725 0120 00 0 77534 TPL RELAO IS DECREMENT RELOCATABLE F6B29810 12726 0500 60 0 77605 CLA* RGCDO YES, GET DECREMENT PORTION OF WORD F6B29820 12727 0771 00 0 00022 ARS 18 F6B29830 12730 0074 00 2 77543 TSX RELTO,2 $RELOCATE DECREMENT F6B29840 12731 0767 00 0 00022 ALS 18 F6B29850 12732 0622 60 0 77605 STD* RGCDO INSERT RELOCATED DECREMENT F6B29860 12733 0074 00 4 77567 RELA0 TSX RELBO,4 $GET NEXT RELOCATION BIT F6B29870 12734 0120 00 0 77541 TPL RELXO IS ADDRESS RELOCATABLE F6B29880 12735 0500 60 0 77605 CLA* RGCDO YES, GET ADDRESS PORTION OF WORD F6B29890 12736 0074 00 2 77543 TSX RELTO,2 $RELOCATE ADDRESS F6B29900 12737 0621 60 0 77605 STA* RGCDO INSERT RELOCATED ADDRESS F6B29910 12740 2 00001 1 77525 RELX0 TIX RELDO,1,1 IS CARD EXHAUSTED F6B29920 12741 0020 00 0 77461 TRA RDCDO YES, GET NEXT CARD F6B29930 F6B29940 CLOSED SUBROUTINES TO RELOCATE DATA F6B29950 F6B29960 ENTRY POINT FOR DATA F6B29970 12742 0621 00 0 77517 RELT0 STA ADDRO SAVE LOCATION TO BE RELOCATED F6B29980 12743 0074 00 4 77567 TSX RELBO,4 $GET NEXT RELOCATION BIT F6B29990 12744 0120 00 0 77547 TPL RELTO+4 IS LOCATION DIRECTLY RELOCATABLE F6B30000 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 111 SUBROUTINES RELEVANT TO SECOND CIT PASS 12745 0760 00 0 00141 SLN 1 NO, SET COMPLEMENT RELOCATABLE FLAG F6B30010 12746 0760 00 0 00142 SLN 2 SET DATA FLAG F6B30020 12747 -0500 00 0 77517 CAL ADDRO GET LOCATION TO BE RELOCATED F6B30030 F6B30040 ENTRY POINT FOR LOAD OR TRANSFER ADDRESS F6B30050 12750 -0320 00 0 77672 RELL0 ANA ADMKO COMPUTE DIFFERENCE BETWEEN LOCATION AND F6B30060 BINARY CARD NO. 9F310148 12751 0402 00 0 77615 SUB PGBKO OBJECT PROGRAM BREAK F6B30070 12752 -0760 00 0 00142 SLT 2 IS THIS DATA F6B30080 12753 0020 00 0 77565 TRA RELCO+2 NO, THIS IS LOAD OR TRANSFER ADDRESS F6B30090 12754 0120 00 0 77563 TPL RELCO YES, IS LOCATION ABOVE PROGRAM BREAK F6B30100 12755 -0760 00 0 00141 SLT 1 NO, IS DATA LOCATION COMPLEMENT RELOC,BLE F6B30110 12756 0020 00 0 77565 TRA RELCO+2 NO, GO RELOCATE NORMAL DATA UPWARDS F6B30120 F6B30130 RELOCATE COMMON STORAGE DOWNWARDS F6B30140 12757 -0500 00 0 77517 CAL ADDRO GET LOCATION TO BE RELOCATED F6B30150 12760 0401 00 0 77505 ADM CMRGO ADD COMMON REASSIGNMENT F6B30160 12761 0020 00 2 00001 TRA 1,2 F6B30170 F6B30180 REENTRY FOR LOCATIONS ABOVE PROGRAM BREAK F6B30190 12762 -0760 00 0 00141 RELC0 SLT 1 IS COMMON LOCATION COMPLEMENT RELOCATABLE F6B30200 12763 0020 00 0 77560 TRA RELCO-3 NO, GO RELOCATE DOWNWARDS F6B30210 F6B30220 RELOCATE PROGRAM DATA UPWARDS F6B30230 12764 0400 00 0 77763 ADD LCTRO ADD RELOCATED PROGRAM BREAK TO DIFFERENCE F6B30240 12765 0020 00 2 00001 TRA 1,2 BETWEEN LOCATION AND OBJECT PROGRAM BREAK F6B30250 F6B30260 CLOSED SUBROUTINE TO GET NEXT RELOCATION BIT F6B30270 12766 0500 00 0 00002 RELB0 CLA CD8LO GET CURRENT RELOCATION BITS F6B30280 12767 -0763 00 0 00001 LGL 1 SHIFT IN NEXT BIT F6B30290 12770 0602 00 0 00002 SLW CD8LO SAVE RESIDUE F6B30300 12771 0020 00 4 00001 TRA 1,4 F6B30310 F6B30320 CLOSED SUBROUTINE TO COMPUTE CHECKSUM F6B30330 12772 0621 00 0 77605 CKSM0 STA RGCDO INITIALIZE LAST ADDRESS+1 ON CARD F6B30340 12773 -0500 00 0 00000 CAL CD9LO PICK UP 9L F6B30350 12774 0060 00 0 77575 TCOA CKSMO+2 DELAY UNTIL CARD READ IN F6B30360 12775 0760 00 0 00005 IOT IS I/O CHECK LIGHT ON F6B30370 12776 0020 00 0 77614 TRA IOONO *YES F6B30380 BINARY CARD NO. 9F310149 12777 -3 00000 4 77605 TXL RGCDO,4,0 NO, IS CARD NONRELOCATABLE (PREFIX 0, 4) F6B30390 13000 -3 00001 4 77612 TXL NOCKO,4,1 NO, IS CHECKSUM IGNORED (PREFIX 1, 5) F6B30400 13001 3 00002 4 77612 TXH NOCKO,4,2 NO, IS CHECKSUM IGNORED (PREFIX 3) F6B30410 13002 0361 00 0 00002 ACL CD8LO NO, CARD IS RELOCATABLE WITH CHECKSUM F6B30420 13003 0361 00 0 77457 ACL CD8RO (PREFIX 2), ADD IN DISJOINT 8L AND 8R F6B30430 13004 0361 00 1 00000 RGCD0 ACL **,1 CHECKSUM CARD F6B30440 13005 2 00001 1 77605 TIX RGCDO,1,1 F6B30450 13006 -0534 00 1 77761 LXD IOCDO,1 RELOAD CARD WORD COUNT F6B30460 13007 -0340 00 0 00001 LAS CD9RO DO CHECKSUMS AGREE F6B30470 13010 -0520 00 0 00001 NZT CD9RO NO, IS 9R ZERO F6B30480 13011 0020 00 2 00001 NOCK0 TRA 1,2 *YES, CHECKSUM IS ACCEPTABLE F6B30490 13012 0000 00 2 00001 HTR 1,2 *NO, PAUSE AND THEN ACCEPT F6B30500 13013 0030 00 0 77616 IOON0 TEFA IOONO+2 WAS I/O CHECK CAUSED BY END FILE F6B30510 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 112 SUBROUTINES RELEVANT TO SECOND CIT PASS 13014 0 00000 0 00000 PGBK0 PZE ** NO, LOADING CANNOT CONTINUE F6B30520 (ADDRESS IS OBJECT PROGRAM BREAK) F6B30530 13015 0000 00 0 77461 HTR RDCDO *YES, PAUSE AND PROCEDE F6B30540 F6B30550 CARD IS FORTRAN PROGRAM CARD (PREFIX 4, 5) F6B30560 FORTRAN TRANSFER CARD (PREFIX 4, WORD COUNT 0) F6B30570 SYMBOL TABLE CARD (PREFIX 6,7) F6B30580 13016 3 00001 4 77461 PRCD0 TXH RDCDO,4,1 *IS CARD NONLOADABLE (PREFIX 6 OR 7) F6B30590 13017 0754 00 1 00000 PXA ,1 NO, GET WORD COUNT AND COMPUTE F6B30600 13020 -0400 00 0 77660 SBM EPRGO LOAD ADDRESS FOR ENTRY POINT LIST F6B30610 13021 0621 00 0 77761 STA IOCDO SET LOAD ADDRESS OF I/O COMMAND F6B30620 13022 0544 00 0 77761 LCHA IOCDO READ CARD INTO ENTRY POINT LIST F6B30630 13023 -3 00000 1 77673 TXL FTRAO,1,0 *IS CARD FORTRAN TRANSFER CARD F6B30640 (PREFIX 4, WORD COUNT 0) F6B30650 13024 0500 00 0 77660 CLA EPRGO NO, INITIALIZE CHECKSUM COMPUTATION F6B30660 BINARY CARD NO. 9F310150 13025 0074 00 2 77573 TSX CKSMO,2 $COMPUTE CHECKSUM F6B30670 13026 -0760 00 0 00143 SLT 3 IS THIS FIRST PROGRAM CARD F6B30680 13027 1 77777 1 77632 TXI PRC1O,1,-1 YES F6B30690 13030 1 77777 1 77660 TXI EPRGO,1,-1 NO, PROGRAM CARD IMMEDIATELY PRECEDED F6B30700 13031 0500 60 0 77761 PRC10 CLA* IOCDO GET 8L F6B30710 13032 -0734 00 4 00000 PDX ,4 LOAD LENGTH OF TRANSFER VECTOR F6B30720 13033 0560 00 0 77763 LDQ LCTRO SAVE LOAD POINT FOR THIS PROGRAM F6B30730 13034 0621 00 0 77615 STA PGBKO SET OBJECT PROGRAM BREAK F6B30740 13035 0400 00 0 77763 ADD LCTRO BUMP RELOCATED PROGRAM BREAK BY LENGTH OF F6B30750 13036 0621 00 0 77763 STA LCTRO THIS PROGRAM F6B30760 13037 -0754 00 4 00000 PXD ,4 GET LENGTH OF TRANSFER VECTOR F6B30770 13040 -0100 00 0 77643 TNZ PRC2O IS TRANSFER VECTOR EMPTY F6B30780 13041 0500 00 0 77762 CLA PFLGO YES, GET VECTOR EMPTY FLAG F6B30790 13042 0601 60 0 77761 PRC20 STO* IOCDO INSERT IN ENTRY POINT LIST NAME CELL F6B30800 13043 0500 60 0 77660 CLA* EPRGO GET 8R F6B30810 13044 0361 00 0 77505 ACL CMRGO COMPUTE REASSIGNED COMMON BREAK $F6B30820 13045 -0320 00 0 77672 ANA ADMKO REDUCE TO CORE SIZE F6B30830 13046 0100 00 0 77651 TZE PRC3O IS COMMON REASSIGNMENT ZERO F6B30840 13047 0340 00 0 77764 CAS CMBKO NO, IS THIS COMMON BREAK LOWER F6B30850 13050 0500 00 0 77764 PRC30 CLA CMBKO NO, GET OLD COMMON BREAK F6B30860 13051 0761 00 0 00000 NOP F6B30870 13052 0601 00 0 77764 STO CMBKO RESET COMMON BREAK F6B30880 BINARY CARD NO. 9F310151 13053 0402 00 0 77763 SUB LCTRO IS THIS LOWER THAN TOP OF DATA F6B30890 13054 -0120 00 0 77432 TMI OVRLP *YES, GO TO STOP F6B30900 13055 -0600 60 0 77660 STQ* EPRGO NO, INSERT LOAD POINT FOR THIS PROGRAM F6B30910 13056 1 77776 1 77660 TXI EPRGO,1,-2 IN ENTRY POINT ADDRESS CELL F6B30920 13057 0500 00 1 77430 EPRG0 CLA EPLST,1 GET NEXT ENTRY POINT ON LIST F6B30930 13060 0074 00 2 77551 TSX RELLO,2 $RELOCATE F6B30940 13061 0621 60 0 77660 STA* EPRGO INSERT RELOCATED ENTRY POINT IN LIST F6B30950 13062 2 00002 1 77660 TIX EPRGO,1,2 IS CARD EXHAUSTED F6B30960 13063 0500 00 0 77761 CLA IOCDO YES, RESET ORIGIN FOR NEXT CARD F6B30970 13064 0621 00 0 77660 STA EPRGO F6B30980 13065 -0320 00 0 77672 ANA ADMKO REDUCE TO CORE SIZE F6B30990 13066 0760 00 0 00143 SLN 3 SET PROGRAM CARD FLAG F6B31000 13067 0402 00 0 77763 SUB LCTRO DOES ENTRY POINT LIST OVERLAP LOADED DATA F6B31010 13070 0120 00 0 77461 TPL RDCDO *NO, READ NEXT CARD F6B31020 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 113 SUBROUTINES RELEVANT TO SECOND CIT PASS 13071 0 00000 0 77777 ADMK0 PZE -1 YES, LOADING CANNOT CONTINUE F6B31030 F6B31040 CARD IS FORTRAN TRANSFER CARD (PREFIX 4, WORD COUNT 0) F6B31050 13072 0535 00 2 77660 FTRA0 LAC EPRGO,2 COMPUTE LENGTH OF ENTRY POINT LIST F6B31060 13073 1 77430 2 77675 TXI FTRAO+2,2,EPLST F6B31070 13074 0634 00 2 77713 SXA EPCTO,2 SAVE COUNT F6B31080 13075 1 00002 2 77744 TXI NTSTO+1,2,2 *BUMP TO TEST BEFORE USING DATA F6B31090 F6B31100 REENTRY AFTER ONE OBJECT PROGRAM TRANSFER VECTOR IS F6B31110 COMPLETE TO INITIALIZE TRANSFER VECTOR IN NEXT PROGRAM F6B31120 13076 -0500 00 2 77430 INIT0 CAL EPLST,2 GET NEXT NAME ON ENTRY POINT LIST F6B31130 13077 -0100 00 0 77704 TNZ INITO+5 IS THIS MAIN PROGRAM (BLANK NAME) F6B31140 13100 0500 00 2 77431 CLA EPLST+1,2 YES, GET ENTRY POINT TO MAIN PROGRAM F6B31150 BINARY CARD NO. 9F310152 13101 0621 00 0 77777 STA TRADO INITIALIZE TRANSFER ADDRESS F6B31160 13102 0020 00 0 77744 TRA NTSTO+1 *TEST FOR END OF ENTRY POINT LIST F6B31170 13103 -0320 00 0 77762 ANA PFLGO IS THIS TRANSFER VECTOR EMPTY FLAG, F6B31180 13104 -0100 00 0 77744 TNZ NTSTO+1 *OR NAME OF ENTRY POINT F6B31190 13105 0500 00 2 77430 CLA EPLST,2 NO, GET TRANSFER VECTOR COUNT F6B31200 13106 -0734 00 4 00000 PDX ,4 F6B31210 13107 0754 00 4 00000 PXA ,4 F6B31220 13110 0400 00 2 77431 ADD EPLST+1,2 COMPUTE ORIGIN AT TOP OF TRANSFER VECTOR F6B31230 13111 0621 00 0 77714 STA RGVCO INITIALIZE COPY LOOP F6B31240 F6B31250 REENTRY TO INITIALIZE NEXT VECTOR NAME IN OBJECT PROGRAM F6B31260 13112 0774 00 1 00000 EPCT0 AXT **,1 LOAD ENTRY POINT LIST COUNT F6B31270 13113 -0500 00 4 00000 RGVC0 CAL **,4 GET NEXT NAME ON OBJECT PROGRAM VECTOR F6B31280 13114 -0320 00 0 77762 ANA PFLGO HAS THIS NAME BEEN INITIALIZED F6B31290 13115 0100 00 0 77743 TZE NTSTO *YES F6B31300 13116 -0500 60 0 77714 CAL* RGVCO NO, GET NAME AGAIN F6B31310 13117 -0340 00 1 77430 SRVC0 LAS EPLST,1 IS NAME ON ENTRY POINT LIST F6B31320 13120 0020 00 0 77723 TRA SRVCO+3 NO F6B31330 13121 0020 00 0 77737 TRA INIVO *YES F6B31340 13122 2 00002 1 77720 TIX SRVCO,1,2 IS ENTRY POINT LIST EXHAUSTED F6B31350 13123 0774 00 1 00024 AXT 20,1 YES, GET COUNT OF MISSING LIST BUFFER F6B31360 13124 -0520 00 1 77456 SRV10 NZT TVLST,1 IS THIS CELL EMPTY F6B31370 13125 0020 00 0 77734 TRA ADNMO *YES, ADD THIS NAME TO LIST F6B31380 13126 -0340 00 1 77456 LAS TVLST,1 NO, IS THIS NAME ALREADY ON LIST F6B31390 BINARY CARD NO. 9F310153 13127 0020 00 0 77732 TRA SRV1O+5 NO F6B31400 13130 0020 00 0 77743 TRA NTSTO *YES, IGNORE THIS NAME F6B31410 13131 2 00001 1 77725 TIX SRV1O,1,1 IS MISSING LIST EXHAUSTED F6B31420 13132 0000 00 0 77460 HTR RDCDO-1 *YES, PAUSE ON MORE THAN 20 MISSING NAMES F6B31430 F6B31440 ADD NAME TO MISSING TRANSFER VECTOR LIST F6B31450 13133 0602 00 1 77456 ADNM0 SLW TVLST,1 ADD NAME TO MISSING LIST F6B31460 13134 0600 00 1 77457 STZ TVLST+1,1 CLEAR NEXT CELL TO SET SEARCH STOP F6B31470 13135 0021 00 0 77743 TTR NTSTO *GO TEST FOR END OF TRANSFER VECTOR F6B31480 F6B31490 TRANSFER VECTOR NAME HAS BEEN FOUND F6B31500 13136 -0500 00 0 77736 INIV0 CAL ADNMO+2 GET TTR COMMAND F6B31510 13137 0602 60 0 77714 SLW* RGVCO INSERT IN TRANSFER VECTOR F6B31520 13140 0500 00 1 77431 CLA EPLST+1,1 GET ENTRY POINT AND F6B31530 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 114 SUBROUTINES RELEVANT TO SECOND CIT PASS 13141 0621 60 0 77714 STA* RGVCO INITIALIZE TRANSFER VECTOR F6B31540 F6B31550 REENTRY FOR NAME ALREADY INITIALIZED, OR NAME LOST F6B31560 13142 2 00001 4 77713 NTST0 TIX EPCTO,4,1 IS TRANSFER VECTOR EXHAUSTED F6B31570 F6B31580 REENTRY FOR TRANSFER CARD, OR PROGRAM WITH BLANK VECTOR F6B31590 13143 2 00002 2 77677 TIX INITO,2,2 IS ENTRY POINT LIST EXHAUSTED F6B31600 13144 0520 00 0 77432 ZET OVRLP YES, ARE ANY ENTRY POINTS MISSING F6B31610 13145 0000 00 0 77460 HTR RDCDO-1 *YES, PAUSE AND GET NEXT CARD F6B31620 13146 0534 00 4 77763 LXA LCTRO,4 NO, SET PARAMETERS FOR WD I/O PACKAGE F6B31630 13147 -0754 00 4 00000 PXD ,4 PLACE HIGHEST LOCATION IN LOWER CORES F6B31640 13150 -0501 00 0 77764 ORA CMBKO LOWEST LOCATION IN COMMON F6B31650 13151 0601 00 0 00143 STO WDIOF IN DECREMENT AND ADDRESS OF PARAMETER F6B31660 13152 0534 00 2 77713 LXA EPCTO,2 COMPUTE LENGTH OF LOADER AND EPLST F6B31670 13153 1 00344 2 77765 TXI FINIO,2,CLERO-EPLST F6B31680 F6B31690 I/O DATA F6B31700 13154 -1 00001 0 00002 IT8L0 IOCT CD8LO,,1 F6B31710 BINARY CARD NO. 9F310154 13155 -1 00001 0 00000 IO9L0 IOCT CD9LO,,1 F6B31720 13156 -0 00001 0 00002 IO8L0 IOCP CD8LO,,1 F6B31730 13157 -1 00001 0 77457 IO8R0 IOCT CD8RO,,1 F6B31740 13160 -3 00000 0 00000 IOCD0 IOST **,,** (ALSO USED AS TXL TO ENTRY POINT WHEN F6B31750 NON-FORTRAN TRANSFER CARD ENCOUNTERED) F6B31760 CONSTANTS F6B31770 13161 -3 00000 0 00000 PFLG0 SVN FLAG FOR EMPTY TRANSFER VECTOR F6B31780 13162 0 00000 0 00144 LCTR0 PZE 100 RELOCATED PROGRAM BREAK LAST PROG LOADED F6B31790 13163 0 00000 0 77777 CMBK0 PZE -1 LOWEST COMMON BREAK LOADED F6B31800 F6B31810 AFTER SUCCESSFUL LOAD RESTORE MACHINE TO PRISTINE STATE F6B31820 13164 0140 00 0 77766 FINI0 TOV FINIO+1 TURN OFF TRIGGERS F6B31830 13165 0760 00 0 00140 SLF F6B31840 13166 0161 00 0 77770 TQO FINIO+3 F6B31850 13167 -0760 00 0 00002 EFTM ENTER FLOATING POINT TRAP MODE F6B31860 13170 0600 00 0 00000 STZ CD9LO CLEAR 0,1,2 F6B31870 13171 0600 00 0 00001 STZ CD9RO F6B31880 13172 0600 00 0 00002 STZ CD8LO F6B31890 13173 0600 00 2 77774 CLER0 STZ CLERO,2 CLEAR LOADER, TVLST, EPLST F6B31900 13174 2 00001 2 77774 TIX CLERO,2,1 F6B31910 13175 0774 00 7 00000 AXT 0,7 CLEAR INDEX REGISTERS F6B31920 13176 0020 00 0 00000 TRAD0 TRA ** AND GO F6B31930 13177 ENDLD SYN * F6B31940 13177 34PCH BSS 0 PATCH SPACE F6B31949 13177 0 00000 0 00000 PZE (NOT USED) F6B31950 13200 0602 00 0 04400 AAAAA SLW PCH9R YES, INSERT CHKSM INTO 9R (RESTORE CODE) *F6B31951 13201 0020 00 0 11077 TRA PNCH2 RETURN TO CODING. *F6B31952 13202 0602 00 0 04377 BBBBB SLW PCH9L (RESTORE INSTRUCTION) *F6B31953 BINARY CARD NO. 9F310155 13203 -0754 00 0 00000 ZAC NOP PAGE LINE COUNT RESET *F6B31954 13204 0625 00 0 10660 STT HDPCT FOR MACHINE LANGUAGE LISTING. *F6B31955 13205 0020 00 0 06636 TRA PROL0+2 RETURN TO CODING *F6B31956 13206 0500 00 0 10306 CCCCC CLA COLFL BINARY IS REQUESTED ON NARROW PAGE $F6B31957 13207 0622 00 0 10321 STD WRTIO+4 CHANGE FULL PAGE TEST $F6B31958 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 115 SUBROUTINES RELEVANT TO SECOND CIT PASS 13210 -0634 00 0 10306 ZSD COLFL CHANGE COLUMN FULL TEST $F6B31959 13211 0774 00 2 77777 AXT -1,2 $F6B31960 13212 -0634 00 2 10326 SXD ONEFL-1,2 CHANGE FULL COLUMN RESET $F6B31961 13213 0774 00 2 00001 AXT 1,2 $F6B31962 13214 -0634 00 2 06752 SXD LSTHD,2 CHANGE LAST PAGE TEST $F6B31963 13215 -0634 00 2 10312 SXD COLFL+4,2 CHANGE COLUMN THREE TEST $F6B31964 13216 0020 00 0 04641 TRA INITW-6 $F6B31965 13217 -0520 00 0 04210 DDDDD NZT XSWCH8 IF BINARY IS REQUESTED ON NARROW PAGE $F6B31966 13220 0020 00 0 07002 TRA EOF02 IT IS NOT $F6B31967 13221 0534 00 4 73651 LXA (PGCT),4 IT IS, WRITE FINAL BLOCK $F6B31968 13222 -3 00000 4 07002 TXL EOF02,4,0 WHICH IS ALREADY IN $F6B31969 13223 0020 00 0 07004 TRA EOF0X THE BUFFER $F6B31970 13224 0534 00 4 73651 EEEEE LXA (PGCT),4 $F6B31971 13225 -3 00000 4 06774 TXL REGUL,4,0 $F6B31972 13226 0020 00 0 06766 TRA REMAN-1 $F6B31973 13227 -3 00000 1 07004 TXL EOF0X,1,0 $F6B31974 13230 0020 00 0 06771 TRA LOC02-1 $F6B31975 BINARY CARD NO. 9F310156 13231 0500 00 0 04254 FFFFF CLA XTEVBS STORE LOWEST LOCATION OF (20)F6B31976 13232 0621 00 0 04402 STA PCH8R PROGRAM DATA IN 8R ADDRESS (20)F6B31977 13233 0020 00 0 06071 TRA PST01-2 (20)F6B31978 13234 -0400 00 0 10554 GGGGG SBM IOLIN REDUCE NUMBER OF STORAGE (20)F6B31979 13235 0621 00 0 10554 STA IOLIN MAP COLUMNS FROM 5 TO 3 (20)F6B31980 13236 0020 00 0 04647 TRA INITW (20)F6B31981 13330 FINIS ORG 34PCH/8*8+96 $F6B31988 13330 BUFFR BSS 10*28+2+1 BUFFER SIZE FOR OLD LIBRARY FORMAT $F6B31989 FOLLOWING LOCATIONS ARE NOW TREATED AS AN $F6B3198A EXTENSION OF BUFFR TO ALLOW A LARGER LIBRARY RECORD $F6B3198B 13763 BUFF1 BSS CITSIZ F6B31990 14273 BUFF2 BSS CITSIZ F6B32000 14603 BOTTAB BSS 0 BOTTOM OF ALLOWABLE MEMORY FOR TABLES F6B32010 77777 END -1 F6B99999 BINARY CARD NO. TRA77777 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 1 POST PROCESSOR ASSEMBLY DATA 73667 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM REFERENCES TO DEFINED SYMBOLS 6672 A D(1) 5421 6655 A L(0) 4342 6656 A L(1) 4457, 4465, 4526, 4537, 4554, 4662, 4672, 4735, 5023, 5130, 5262, 5307, 5515, 5576, 5624, 5655, 5724 5732, 5741, 5753, 6170, 6172, 6174, 6331 6657 A L(2) 4764 6660 A L(3) 4732 6661 A L(4) 4775 6662 A L(5) 5221 6663 A L(8) 5065 6677 A L(C) 5401 6674 A P(1) 4721 6675 A P(2) 4660 6666 A T(1) 4610, 4627, 4701, 4713, 5660 6667 A T(2) 4564, 4670, 6302 6670 A T(4) 4661, 4722, 4753, 4773 6671 A T(7) 6000 6775 A33PCH 7130 6105 A3LABL 4444, 4447, 4452, 5342, 6226, 6365, 6371, 6434 6157 A9)SYM 5477 6725 AADDOP 5577 4331 AADDRS 4352, 4534, 4541, 4613, 4626, 4633, 4663, 4674, 4703, 4712, 4717, 4723, 4734, 4736, 4741, 4754, 4757 5073, 5243, 5246, 5256, 5261, 5303, 5306, 5317, 5324, 5433, 5443, 5445, 5476, 5623, 5661, 5713, 5744 5766, 6047, 6303, 6563, 6613 6665 AADMSK 4536, 5323, 5602, 5716, 5762, 6046 6774 AALONE 4411, 4557, 4577, 4615, 5052, 6200, 6207 5431 AARG01 5466 5434 AARG02 5465 5456 AARG03 5450 5463 AARG04 5437, 5446, 5453 5507 AARG05 5471, 5517 5517 AARG06 5424, 5470, 5507 4340 AARGNO 5431, 5436, 5611, 5613, 6521 5027 AARGTB 6110 AASSLB 4367, 5774 6070 AASSLP 4354 6722 ABCDOP 4405, 6176 6125 ABKSPC 4366 6700 ABLANK 5403 6704 ABLNKS 5351, 5363, 5410 7130 ABUFF1 6441 7440 ABUFF2 6440, 6442 7750 ABUFF3 6237, 6240, 6241, 6242, 6243, 6515 10260 ABUFF4 6514, 6516 5366 ACCARD 5350, 5352 5415 ACCRD1 5344, 5406 6243 ACITBF 6232 4326 ACITOP 4371, 4375, 4406, 4420, 5074, 5126, 5141, 5206, 5474, 6177, 6417, 6475 4330 ACITRA 5162, 5226, 5472, 6231, 6423, 6501 6506 ACITRR 6366, 6372, 6435, 6457 4327 ACITSA 4410, 5124, 5143, 5213, 5511, 6151, 6205, 6421, 6477 4325 ACITSL 4404, 4414, 5063, 5066, 5122, 5253, 5264, 5267, 5311, 5331, 5500, 5513, 6147, 6153, 6203, 6212, 6415 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 2 POST PROCESSOR ASSEMBLY DATA 6473 6106 ACLABL 5532, 5535, 5540, 6456 6726 ACLAOP 5572 4363 ACLEAR 4357 4614 ACOMAS 4634 4634 ACOMS1 4562, 4623 6203 ACPBC1 6171, 6173, 6175, 6201, 6216 6216 ACPBC2 6167 6165 ACPBCD 4434 6217 ACPBCX 6165, 6166 6150 ACPCI1 6145, 6154 6143 ACPCIT 4373, 4377, 4424, 4431 6155 ACPCIX 6143, 6144 6676 ADEAMK 5203 6673 ADECMK 5435, 5635, 6520 6566 ADEVTA 6546, 6550, 6551 4704 ADIMEN 4720 4720 ADIMN1 4700, 4710 6107 AELABL 4521 6526 AENARG 5573, 5600, 5604, 5615, 6532 6530 AENART 5565 6544 AENDE1 6552 6553 AENDE2 6536, 6544, 6560 6561 AENDE3 6553 6541 AENDET 4551 6535 AENDEV 4621, 4666, 4706, 4730, 4746, 4762, 6306 6633 AENTE1 6641 6642 AENTE2 6625, 6633, 6645 6646 AENTE3 6642 6630 AENTET 5046, 6616, 6620 6624 AENTEV 5240, 5563 6577 AENTI1 6605 6606 AENTI2 6570, 6577, 6611 6612 AENTI3 6606 6573 AENTIT 5051, 6650, 6652 6567 AENTIV 5157, 5170, 5277, 5505 4606 AEQCM1 4567, 4603 4570 AEQCOM 4601, 4604, 4606 4655 AEQLO1 4640, 4647 4641 AEQLOW 4655 4332 AERASE 5346, 5347, 5442, 5444, 5626, 5637, 5642, 5647, 5650, 5652, 5653, 5664, 5723, 5742, 5776, 6052, 6246 6254, 6257, 6314 7750 AERLST 5336, 6337, 6341, 6344, 6510 7130 AFINIS 6075 AFORLP 4354, 4355 4766 AFORS1 4752 4755 AFORSB 4766 6517 AGETRG 5567, 5606 5343 AHEDR0 6760 AHEDRM 5414 5407 AHEDRR 5373 6162 AHLSYM 4403 4405 AHOLL1 4402, 4415, 4422 4417 AHOLL2 4412 4422 AHOLL3 4401 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 3 POST PROCESSOR ASSEMBLY DATA 4336 AIDENT 4467, 6004, 6023 5566 AINIT1 5614 5574 AINIT2 5610 5611 AINIT3 5561, 5570, 5605, 5607 5617 AINIT4 5622 AINIT5 5553 5614 AINITT 5430 6237 AIOCIT 4441, 4443, 4510, 4515, 4520, 5524, 5527, 5531, 6225 6066 AIOTAB 5777, 6002, 6005, 6007, 6027 4333 ALOCTR 5127, 5131, 5225, 5242, 5255, 5260, 5263, 5475, 5514, 5516, 5541, 5545, 5557, 5620, 5631, 5721, 5725 5731, 5736, 5737, 5743, 5751 6727 ALXDOP 5136 6664 AL(200 5031 6702 AL(DD) 4744 6703 AL(SD) 4742 5010 AMVDEA 5000, 5006, 5013 6721 AOCTOP 4374, 4417, 5473 6734 AOPCD1 5207, 5211 6705 AOPLST 5075, 5076 5071 APAS01 5060, 5070, 5135, 5254, 5333 5121 APAS02 5100, 5115 5136 APAS03 5113, 5114 5142 APAS04 5102, 5121 5156 APAS05 5152 5167 APAS06 5151 5172 APAS07 5147 5206 APAS08 5202 5224 APAS09 5200 5233 APAS10 5033 5237 APAS11 5173 5242 APAS12 5146, 5155 5244 APAS13 5142, 5145, 5150, 5154, 5166, 5171, 5175, 5205, 5210, 5212, 5217, 5236, 5241 5251 APAS14 5116, 5117, 5223, 5245 5264 APAS15 5250, 5257 5301 APAS16 5272 5306 APAS17 5271 5332 APAS18 5072, 5266, 5270, 5300, 5302, 5305, 5315, 5327 6442 ARDCBF 6364, 6370, 6373 6410 ARDCI1 6375 6414 ARDCI2 6354, 6400, 6402, 6404, 6406, 6411 6427 ARDCI3 6377 6352 ARDCIT 5061, 5071, 5133, 6424 6425 ARDCIX 6352, 6427 6431 ARDCRR 5062, 5134, 6413 5773 ARDTAB 4372, 4376, 4400, 4423, 4432, 4453, 4461, 4474, 4475, 4505, 4513, 4522, 4530, 6056 6027 ARDTB1 6020, 6024 6045 ARDTB2 6035, 6042 6057 ARDTBX 5773 6061 ARDTRR 6026, 6044 5663 AREL01 5644, 5670, 5730 5711 AREL02 5671, 5673, 5674, 5676, 5677, 5700, 5701, 5703, 5704, 5706, 5707 5715 AREL03 5705 5720 AREL04 5675, 5702, 5710, 5715 5727 AREL05 5654, 5662, 5714, 5717, 5726 6142 AREWND 4451, 5341, 5415, 5537 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 4 POST PROCESSOR ASSEMBLY DATA 4312 ARG9TB 5426, 5447, 5451, 5455, 5461, 5462, 5467, 5510 4303 ARGCOM 4506, 4512, 4561, 4563, 4565, 4571, 4573, 4576, 4607, 4611, 4614 4304 ARGEQU 4523, 4525, 4527, 4566, 4572, 4602, 4637, 4642, 4646, 6247, 6251, 6253, 6260, 6301, 6304 4306 ARGFOR 4454, 4456, 4460, 4751, 4755, 4760 4310 ARGSIZ 4462, 4464, 4466, 4677, 4704, 4711, 6323, 6325, 6333 5770 ARLDE1 5760, 5764 5756 ARLDEA 5770 4676 ASBAR1 4657, 4667 4662 ASBARG 4676 4776 ASBNER 4771, 4774 6244 ASEQAS 4570, 4575, 4641, 4644, 6277 6251 ASEQS1 6264 6266 ASEQS2 6261 6300 ASEQS3 6312 6311 ASEQS4 6276 6320 ASEQSX 6244 5421 ASKDP2 5367 6143 ASKLST 6015, 6143 6701 ASLASH 5355, 5360 6336 ASMDER 4673, 4733, 4765, 4776, 5222, 5334, 6346, 6506 4562 ASPRCM 4617 6322 ASSIZE 4625, 6252 6334 ASSIZX 6322, 6332 6730 ASTAOP 5603 4341 ASTART 73666 4504 ASUBL1 4477 6731 ASXDOP 5140 6775 ASXTAB 4425 4337 ATABCT 6041 6105 ATAPAR 4455, 4463, 4476, 4507, 4511, 4524, 5775, 6017, 6033, 6105 6230 ATBCI3 6223 6221 ATBCIT 4413, 4421, 4435, 6152, 6214, 6234 6235 ATBCIX 6221 6164 ATBSYM 6146 6654 ATEVTA 6635, 6637, 6640 4335 ATIVCL 5160, 5161, 5711, 5712 6623 ATIVTA 6601, 6603, 6604 6125 ATLABL 5774, 6010, 6016, 6063, 6125 6732 ATRAOP 4370, 5123 4737 ATRVC1 4725 4726 ATRVEC 4737 6733 ATSXOP 5125 6757 ATVTBL 5214, 5215 4334 AUPCTR 4612, 4632, 4635, 4702, 4716, 5740, 5750, 6272, 6273, 6300, 6313, 6315 6516 AWRCBF 5425, 6455, 6460 6473 AWRCI2 5525, 6445, 6463, 6465, 6467, 6471 6443 AWRCIT 5132, 5332, 5512, 5520, 6350, 6503 6504 AWRCIX 6347, 6443 11452 B D(1) 4577, 4602, 4604, 4612, 4623, 4625, 5176, 5422,10640 11453 B D(2) 4454, 4607, 6020, 6044 11454 B D(3) 4627, 6001 11455 B D(4) 5730 11424 B L(0) 5254, 5361, 7077, 7101,10643 11425 B L(1) 4502, 4673, 4705, 5156, 5570, 5663, 5703, 7572,10227,10267,10355,10455,11044,11167,11176 11426 B L(2) 7715 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 5 POST PROCESSOR ASSEMBLY DATA 11437 B L(3) 11427 B L(4) 6723 11440 B L(7) 11007 11430 B L(8) 5041, 5072 11441 B L(9) 11305 11513 B L(C) 4465 11460 B P(1) 5513, 7235,11274 11461 B P(2) 6634, 7437 11462 B P(4) 5244, 6117, 7075,11317 11463 B P(6) 6050 7205 B READ 7154 11447 B T(1) 7730 11450 B T(2) 5522 11451 B T(7) 6036 13177 B34PCH 13330 13200 BAAAAA 11074 12372 BABSOP 11646,11647,12372 12716 BADDR0 77517 BADDRO 12647,12742,12747,12757 4333 BADDRS 5562, 5565, 5603, 5630, 5717, 5726, 5774, 5775, 6016, 6017, 6035, 6040, 6707, 6720, 7363, 7366, 7406 7571, 7576, 7616, 7631, 7640, 7714, 7727, 7733,10522,10537,10542 13071 BADMK0 77672 BADMKO 12647,12656,12675,12750,13045,13065 11446 BADMSK 4744, 4771, 5564, 5602, 5611, 5625, 5776, 7365, 7405, 7614, 7630, 7667, 7675,10203,10215 13133 BADNM0 77734 BADNMO 12647,13125,13136 11574 BALPHA 10435 13202 BBBBBB 6635 11421 BBCDOP 6640, 6662 4334 BBILOC 5050, 5627, 5671, 5672, 5674, 5675, 5677, 5700, 5713, 7367 7655 BBIN01 7643 7672 BBIN02 7662 7700 BBIN03 7661 7713 BBIN04 7660, 7670, 7676, 7705 7720 BBIN05 7657 7743 BBIN06 7712 7752 BBIN07 7651, 7652, 7751 7637 BBINCV 7553 7755 BBINCX 7637, 7721 11367 BBITBF 4546,11104,11201 11372 BBITCB 11202,11203,11204,11205 11363 BBITIO 11207 11034 BBKS2F 5405 11032 BBKSPC 4471, 4500, 5425 11515 BBLANK 10006,10014,10075,10136,10175,10350,10412,10431,10532,10544 14 BBLFAC 7156, 7162, 7165, 7212, 7223, 7224 12647 BBLKBF 11477,11500,11501,11502,12647 10704 BBLKQT 4535 10703 BBLKWD 10714,10733,10751,10756,10764 11522 BBLNKS 4512, 4664, 4730, 4733, 5310, 5722,10053,10100,10145,10201,10223,10261,10413,10440,10466,10512,10523 10636,10654 11334 BBMPBF 11012,11234,11247,11253,11400,11402,11404 11234 BBMPI0 11250 11252 BBMPI1 11237,11243,11245,11251 11256 BBMPI2 11055 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 6 POST PROCESSOR ASSEMBLY DATA 11352 BBOTBF 11103,11110 11356 BBOTCB 11114,11121,11122,11123 11346 BBOTIO 4520, 4521,11164,11172,11363,11365 11261 BBSSCD 4532 11307 BBSSCX 11261 11507 BBSSNM 11262 13763 BBUFF1 7536,11475 14273 BBUFF2 7535, 7537,11474,11476 13330 BBUFFR 5211, 7156, 7162, 7165, 7224 11125 BCBSWT 11076,11115,11117 13206 BCCCCC 4640 2 BCD8LO 12647,12766,12770,13002,13154,13156,13172 12656 BCD8R0 77457 BCD8RO 12647,12723,13003,13157 0 BCD9LO 12647,12663,12671,12706,12773,13155,13170 1 BCD9RO 12647,12672,12676,13007,13010,13171 11606 BCHART 10366,10403 11444 BCHMSK 5300,10531 7570 BCITC1 7556, 7564, 7565 7575 BCITC2 7566, 7567, 7574 7612 BCITC3 7605 7621 BCITC4 7604 7625 BCITC5 7603 7630 BCITC6 7611, 7615, 7624 7540 BCITCV 6645, 6656, 6660, 6661, 6666, 6676, 6727, 6736 7634 BCITCX 7540, 7541, 7601, 7613, 7620 4330 BCITOP 6641, 6654, 6663, 6670, 6711, 7513, 7542, 7706, 7722, 7746,10074,10214 4332 BCITRA 6675, 6724, 7517, 7725, 7744,10142,10147,10156,10163,10202 4331 BCITSA 6644, 6655, 6665, 6672, 6726, 7515, 7655, 7672, 7752,10117,10232,10235 4327 BCITSL 6643, 6652, 6657, 7511, 7577, 7621,10056 12772 BCKSM0 77573 BCKSMO 12647,12721,12774,13025 7534 BCLABL 5571, 6742, 7461, 7465, 7530 13173 BCLER0 77774 BCLERO 12647,13153,13173,13174 7173 BCLPNC 7222 13163 BCMBK0 77764 BCMBKO 12647,13047,13050,13052,13150 12704 BCMRG0 77505 BCMRGO 12647,12677,12760,13044 6471 BCMTIT 4754 12673 BCNCD0 77474 BCNCDO 12647,12667 10306 BCOLFL 4573, 4575, 4600, 4603, 4617, 4624, 4637,10333,13206,13210,13215 11516 BCOMMA 10212,10220 7153 BCTCLA 7171 7172 BCTCLD 7146 7137 BDBGLB 7117 13217 BDDDDD 6763 10451 BDECC1 10457 10445 BDECCV 5612,10540 10471 BDECCX 10422,10445,10465 11620 BDELOL 11217 6511 BDETIT 5000 6032 BDEV01 6027, 6031, 6047 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 7 POST PROCESSOR ASSEMBLY DATA 6047 BDEV02 6037 11436 BDIGIT 11011,11246 11607 BDLXEM 7130,11160 6157 BDOHED 4727, 4756, 5002, 5015, 5063, 5122, 5544 11456 BD(22) 5221 13224 BEEEEE 6765, 6770 4335 BEFADD 7731, 7735, 7740 5715 BEFN01 5661, 5733 5733 BEFN02 5714, 5727 6327 BEIFOT 5573 5567 BEIFRR 5600, 5604 6227 BEIHED 5636 6432 BEITIT 5634 7010 BEJCIO 11521 BEJECT 4667, 7010,11510 11510 BEJTIO 7122 11531 BELABL 5577 6203 BELHED 5031 6633 BENDBF 4441, 6634 13177 BENDLD 4552,11301,13177 11636 BENDMS 6465 BENDSB 4441 7417 BENSY1 7416, 7425 7426 BENSY2 7412, 7417, 7433 7434 BENSY3 7426 7412 BENSYM 5732, 6003, 6022, 6046, 7410 7441 BENSYX 7376 6754 BEOF00 4560, 4564 6763 BEOF01 4561, 6754 7002 BEOF02 4571, 6751,13220,13222 7043 BEOF03 7055, 7070 7064 BEOF04 4544, 4545, 7042, 7053, 7060 7102 BEOF05 7041, 7051 7124 BEOF07 11146 7004 BEOF0X 6744, 6762, 6773,13223,13227 13112 BEPCT0 77713 BEPCTO 12647,13074,13142,13152 77430 BEPLST 12652,13057,13073,13076,13100,13105,13110,13117,13140,13153 13057 BEPRG0 77660 BEPRGO 12647,13020,13024,13030,13043,13055,13056,13061,13062,13064,13072 4337 BERAS1 5275, 5307,10023,10242,10447,10454,10462,10470 4340 BERAS2 7753,10020,10030,10245,10432,10437,10443,10463 4341 BERAS3 5605, 5613, 5616, 5637,10077,10173,10207,10505 4336 BERASE 5277, 5303, 7377, 7436,10022,10135,10137,10140,10237,10270,10271,10272,10273,10276,10372,10406,10415 10424,10442,10477,10530,10534,10676,10677 11506 BEXEMN 7273 7265 BEXEMQ 5365 11505 BEXENM 7265 7136 BEXLBL 7113, 7120 11470 BFCARD 6373 BFDTIT 5465, 5467 13231 BFFFFF 6070 4700 BFFIL0 4460, 4671, 4721, 4722 4713 BFFIL1 4710 4720 BFFIL2 4653, 4706, 4712, 4714 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 8 POST PROCESSOR ASSEMBLY DATA 11476 BFFILI 4661, 4701, 4704, 5553, 5555, 5557, 5576 13164 BFINI0 77765 BFINIO 12647,13153,13164,13166 13330 BFINIS 11532 BFINPT 4461, 4662, 4702 6556 BFMTIT 5027 6413 BFOTIT 5542 11504 BFRCMK 10761 13072 BFTRA0 77673 BFTRAO 12647,13023,13073 13234 BGGGGG 4646 11526 BHASHS 10061 10660 BHDPCT 4557, 6733,13204 10631 BHEDPG 4716, 6753,10313,10574 10661 BHEDPX 10631 4344 BIDBUF 11107,11273,11276,11277,11300,11312,11405,11471 10776 BIDENT 5203, 5320, 6057, 6116,11014,11263 11016 BIDENX 10776 13076 BINIT0 77677 BINITO 12647,13077,13143 4647 BINITW 4616, 4633,13216,13236 13136 BINIV0 77737 BINIVO 12647,13121 13156 BIO8L0 77757 BIO8LO 12647,12711 13157 BIO8R0 77760 BIO8RO 12647 13155 BIO9L0 77756 BIO9LO 12647,12661 12672 BIO9R0 77473 BIO9RO 12647,12662 13160 BIOCD0 77761 BIOCDO 12647,12665,12713,12714,12715,12717,13006,13021,13022,13031,13042,13063 10554 BIOLIN 4643,10605,13234,13235 13013 BIOON0 77614 BIOONO 12647,12701,12776,13013 12700 BIOTS0 77501 BIOTSO 12647,12707 13154 BIT8L0 77755 BIT8LO 12647,12670 11530 BL9LBL 5273 13162 BLCTR0 7152 BLCTRA 5231, 7173, 7174 77763 BLCTRO 12647,12673,12674,12764,13033,13035,13036,13053,13067,13146 7327 BLENFD 5314, 5462, 7251, 7320, 7333 7335 BLENSF 5326, 7312, 7341 7346 BLENSL 5370, 5414, 5477, 5520, 7255, 7304, 7352 5372 BLIB10 5363 5377 BLIB11 5360, 5371, 5402 5404 BLIB12 5216, 5401 5412 BLIB13 5403, 5411 5420 BLIB14 5177 5424 BLIBEF 5226, 5355 6316 BLIBER 5435 5453 BLIBEX 5410, 5415 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 9 POST PROCESSOR ASSEMBLY DATA 5410 BLIBFG 5210, 7356 11472 BLIBIO 6315 BLIBLB 5313, 5436 5433 BLIBOR 5356, 5430, 5432 5431 BLIBOV 7151, 7332, 7340, 7351 6321 BLIBRM 5440 5437 BLIBRR 7210 5200 BLIBS0 5173, 5174 5210 BLIBS1 5201, 5262, 5423, 7201,11473 5220 BLIBS2 5227, 5417 5246 BLIBS3 5222, 5224 5275 BLIBS4 5305 5335 BLIBS5 5347 5350 BLIBS6 5345 5353 BLIBS7 5334, 5376 5357 BLIBS8 5331, 5374 5363 BLIBS9 5373 5436 BLIBTP 5166 10510 BLINE0 5474, 5516, 5525, 5640 10521 BLINE1 4732, 4735, 4761, 5005, 5021, 5052, 5056, 5100, 5133, 5547, 5643 10527 BLINE2 10536 10537 BLINE3 10516 10542 BLINE4 5033, 5057, 5607, 5644 10553 BLINE5 10520 4427 BLINEB 4427,10554 10715 BLINES 4537, 4540,10744,10747,10752 10555 BLINEX 10511,10517,10521,10552 4507 BLINIT 4467 4514 BLINT1 4466, 4506 10620 BLIST0 6777,10617,10623,10625,10626 10616 BLISTG 6760, 6771, 6775, 7002 10627 BLISTX 10620 7332 BLNFDT 5151 7340 BLNSFT 5164, 7305, 7307, 7353, 7355 7351 BLNSLT 5162, 7342, 7344 12647 BLOADR 4552,11311,12647 6761 BLOC01 6746 6772 BLOC02 4570, 6747, 7000,13230 4342 BLOCTR 7570, 7573, 7575, 7713,10004 11311 BLODIO 11265,11270,11272,11302 7320 BLSRF1 7313 7326 BLSRF2 7321 7312 BLSRFD 5325, 5367 7252 BLSRL1 7227, 7233, 7236 7264 BLSRL2 7256 7275 BLSRL3 7257, 7262 7226 BLSRLS 5140, 5260, 5324, 5366, 5412, 5501, 5507, 7243 7244 BLSRLX 7230, 7231, 7253, 7254 6752 BLSTHD 4576, 4622,13214 6253 BLSTIT 5504, 5506 6311 BLSTRM 4677 4672 BLSTRR 4457, 4663, 4703 11445 BL(100 5147,10645 11442 BL(10) 10427,10452,10650 11431 BL(16) 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 10 POST PROCESSOR ASSEMBLY DATA 11443 BL(20) 11226 11525 BL(SD) 6651, 6671 4740 BMAPC1 4762 4760 BMAPC2 4751 4762 BMAPC3 4742, 4747, 4750 4765 BMAPD1 5006 5004 BMAPD2 4775 5006 BMAPD3 4767, 4773 5575 BMAPE0 5566 5610 BMAPE1 5641 5627 BMAPE2 5606 5637 BMAPE3 5631 5641 BMAPE4 5561, 5620, 5626 5531 BMAPF1 5550 5546 BMAPF2 5537 5550 BMAPF3 5532 5066 BMAPI1 5102 5101 BMAPI2 5071, 5074 5517 BMAPL1 5510, 5514 5526 BMAPL2 5137, 5502, 5521 5036 BMAPM1 5054 5050 BMAPM2 5032 5053 BMAPM3 5025, 5042, 5044 5475 BMAPS1 5143, 5463 5016 BMAPT1 5022 5022 BMAPT2 5011 5124 BMAPV1 5134 5132 BMAPV2 5110 5134 BMAPV3 5105, 5126 7225 BMASK7 7157 7216 BMFTBF 5230 11432 BMINUS 10151,10165,10475,11432 10710 BMOVER 10700,10704 7155 BMOVRC 7215 13011 BNOCK0 77612 BNOCKO 12647,13000,13001 10722 BNOWRT 10720 13142 BNTST0 77743 BNTSTO 12647,13075,13102,13104,13115,13130,13135 10501 BOCTC1 10506 10473 BOCTCV 10021,10236 11361 BOFLCB 4527,11113 10327 BONEFL 4605, 4610, 4620, 4651,10307,13212 11517 BOPARN 5267 11412 BOPLST 7544, 7545 11464 BOPMSK 5321, 5705, 6710, 7543, 7764 11647 BOPRTL 7760,12647 73600 BOTIOP 0 14603 BOTTAB 3734, 7043, 7061 3734 BOTTOM 3734 77432 BOVRLP 12652,12657,13054,13144 11467 BPADTG 6674 11375 BPAKID 11015,11254,11407 11410 BPAKIX 11375 11514 BPAREN 5301,10370 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 11 POST PROCESSOR ASSEMBLY DATA 6465 BPBUF1 4441,11345,11346,11351,11352,11355,11356 6520 BPBUF2 4441,11347,11350,11353,11354,11357,11360 6553 BPBUF3 4441,11362,11366,11371,11372 6603 BPBUF4 4441,11364,11370,11373,11374 4452 BPBUFF 4427,10513,10514,10524,10525,10535,10541,10551 11263 BPCBSS 11301,11303 4401 BPCH8L 5330, 6053, 7142, 7144,11051,11067,11473 4402 BPCH8R 5252, 6071,11053,13232 4377 BPCH9L 5205, 5232, 5234, 5245, 5340, 5344, 5364, 6051, 6074, 6076, 6104, 6120, 6123, 7160, 7163, 7175, 7203 7220,11041,11060,11061,11065,11066,11071,11102,11225,11227,11231,11315,11320,11322,11323,11324,11332 11333,11472,13202 4400 BPCH9R 13200 11057 BPCHLC 7015,11056 11075 BPCHLD 5207, 5375, 5377 11064 BPCHPC 5337, 5353, 6103, 6112, 6125,11063 11313 BPCHTC 7021 11330 BPCTCX 11313 13161 BPFLG0 77762 BPFLGO 12647,13041,13103,13114 13014 BPGBK0 77615 BPGBKO 12647,12751,13034 10565 BPGLCT 10611,10613 4470 BPINIT 4451 11431 BPLUSS 10153,10473,11431 11054 BPNCH1 11045 11077 BPNCH2 11162,13201 11112 BPNCH3 4446, 5441 11126 BPNCH4 11166,11174 11154 BPNCH5 11144,11150 11164 BPNCH6 4525 11171 BPNCH7 4526,11120,11124 11200 BPNCH8 4450, 5446,11112,11222 11224 BPNCH9 11200,11212 11257 BPNCHX 11036,11057,11064,11075 7555 BPOPSW 7552, 7720,10001,10104 13031 BPRC10 77632 BPRC1O 12647,13027 13042 BPRC20 77643 BPRC2O 12647,13040 13050 BPRC30 77651 BPRC3O 12647,13046 13016 BPRCD0 77617 BPRCDO 12647,12705 10724 BPRINT 10670,10671,10675,10702 11527 BPROCT 10122 6634 BPROL0 6126,13205 6642 BPROL2 6646 6646 BPROL3 6637 6706 BPROL4 6731 6731 BPROL5 6650, 6701, 6702 6634 BPROLO 6634 11537 BPROOP 6713 11542 BPROSM 6704, 6725 6073 BPST01 6064, 6067, 6100, 6106,13233 6107 BPST02 6077 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 12 POST PROCESSOR ASSEMBLY DATA 6113 BPST05 5574, 5657, 7375 11036 BPUNCH 7011, 7754,11054,11224,11256 11533 BPZEOP 6653 7223 BRDBLK 7206 7537 BRDCBF 4665, 4666, 7460, 7464, 7467 12660 BRDCD0 77461 BRDCDO 12647,12702,12722,12741,13015,13016,13070,13132,13145 7504 BRDCI1 7471 7510 BRDCI2 7450, 7474, 7476, 7500, 7502, 7505 7523 BRDCI3 7473 7446 BRDCIT 6734, 7520 7521 BRDCIX 7446, 7523 7525 BRDCRR 7507 7213 BRDLB1 5172 7141 BRDLBC 5215, 5354, 5400 7200 BRDLBX 7145, 7211 7145 BRDLCC 5225 7151 BRDLCT 5246, 7202 4661 BRDNP1 4455 7033 BRDNP2 4456 11503 BRECMK 10705 6774 BREGUL 6750,13225 12733 BRELA0 77534 BRELAO 12647,12725 12766 BRELB0 77567 BRELBO 12647,12724,12733,12743 12762 BRELC0 77563 BRELCO 12647,12753,12754,12756,12763 12724 BRELD0 77525 BRELDO 12647,12740 12750 BRELL0 77551 BRELLO 12647,12712,13060 12742 BRELT0 77543 BRELTO 12647,12730,12736,12744 12740 BRELX0 77541 BRELXO 12647,12734 6767 BREMAN 4562, 6774, 7001,13226 11030 BREPS1 5455, 5457 11031 BREPS2 5655,11153 11457 BREWND 6741, 7033, 7036, 7103,10642,11214 11646 BRGABS 7750 13004 BRGCD0 77605 BRGCDO 12647,12726,12732,12735,12737,12772,12777,13005 4306 BRGCRD 5220, 5247, 5251, 5253, 5255, 5257, 5263, 5264, 5322, 5323, 5332, 5335, 5341, 5343 11645 BRGOPS 7766 4314 BRGSAP 10000,10025,10032,10037,10072,10103,10134,10171,10176,10225,10230,10233,10240,10243,10246,10341,10354 10356,10357 4305 BRGSFD 5153, 5160, 7314, 7336 4303 BRGSLS 5155, 5157, 5523, 5524, 7260, 7300, 7301, 7350 4311 BRGSTL 5662, 5664, 5701, 6063, 7427, 7430, 7435 4313 BRGSTR 5702, 5704, 5707, 5711, 6066, 7364, 7404, 7431, 7432, 7440 13113 BRGVC0 77714 BRGVCO 12647,13111,13116,13137,13141 4343 BRLBIT 7641, 7716, 7742,10035,11043 10052 BSAP00 10017,10042,10051 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 13 POST PROCESSOR ASSEMBLY DATA 10070 BSAP01 10060,10062,10064,10067 10130 BSAP02 10123 10132 BSAP03 10125 10134 BSAP04 10131 10156 BSAP05 10121 10173 BSAP06 10115,10157 10200 BSAP07 10161,10172,10174 10201 BSAP08 10144,10155 10222 BSAP09 10210,10216 10227 BSAP10 10114 10235 BSAP11 10113 10247 BSAP12 10177,10226,10234 10260 BSAP13 10247,10266,10311,10322,10334 10304 BSAP14 6743,10335 10333 BSAP17 10306,10326,10330,10332 4441 BSAPBF 4441,10262,10315 10354 BSAPBP 10026,10033,10040,10045,10046,10047,10073,10231,10241,10244,10344 10015 BSAPC1 10275 10043 BSAPC2 10003 7774 BSAPCV 7554 10336 BSAPCX 7776,10321 10443 BSAPDC 5723,10146,10162,10217 10344 BSAPF0 10141,10200 10340 BSAPFL 10154,10213,10221,10351,10353 7140 BSCLBL 7112 11033 BSCNBS 7115 12713 BSETI0 77514 BSETIO 12647,12710 10314 BSKPTL 10312 6454 BSNTIT 4725 7766 BSOPR1 11647 7772 BSOPRX 7757, 7770 11520 BSPACE 10211,10771,10773 10770 BSPACP 11161,11220 11546 BSPBIT 10036 7757 BSROPT 7707, 7723 7404 BSRSY1 7445 7376 BSRSYM 5731, 6002, 6021, 6045 13124 BSRV10 77725 BSRV1O 12647,13127,13131 13117 BSRVC0 77720 BSRVCO 12647,13120,13122 4441 BSTART 73666 12703 BSTCD0 77504 BSTCDO 12647,12666 7165 BSTINB 5237, 7150, 7167 11511 BSTLBL 6055, 6056 12652 BSTRT0 4555 BSTRT1 4543, 4550 77453 BSTRTO 12647,12651,12652,12654 11534 BSXDOP 6667 12121 BSYMOP 11645,11647,12121 7443 BSYMTA 7421, 7423, 7424 7445 BSYMTL 6060, 7361, 7400, 7413, 7415 7444 BSYMTS 7402, 7403, 7420, 7422 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 14 POST PROCESSOR ASSEMBLY DATA 11020 BSYSPS 5175, 5421, 5654, 7114,11152 11026 BSYSPX 11020 6272 BTABIN 6114 6353 BTABOT 7374 4347 BTBUFF 5233, 5235, 5242, 7217 11332 BTCCOM 11326 6533 BTETIT 5013 6012 BTEV01 6011, 6023 6023 BTEV02 6006 6576 BTITIT 5061 5743 BTIV01 5741, 5773, 6004 5767 BTIV02 5747, 5753, 5754, 5757, 5760, 5761, 5763, 5764, 5765, 5766 6004 BTIV03 5751, 5752, 5755, 5756, 5762, 5767, 6000 10422 BTIVNF 10070,10132 10402 BTIVS1 10376,10411 10412 BTIVS2 10377,10404 10361 BTIVSM 5045, 5075, 5770,10066,10127 10416 BTIVSX 10362,10363,10364 7373 BTOVL1 5750 7360 BTOVLP 5736, 6007, 6025 13176 BTRAD0 77777 BTRADO 12647,13101 77456 BTVLST 12652,13124,13126,13133,13134 6616 BTVTIT 5120 10331 BTWOFL 10310 11035 BUNLOD 11137 143 BWDIOF 12647,13151 10755 BWFBLK 5650, 7004 10766 BWFBLX 10755,10757 4440 BWORD0 10054 4427 BWORD1 10015 4430 BWORD2 7777 4431 BWORD3 4432 BWORD4 4433 BWORD5 4434 BWORD6 4435 BWORD7 4436 BWORD8 4437 BWORD9 10732 BWRBLK 10721,10765 10753 BWRBLX 10732 10673 BWRCT1 4642,10576,10614 10603 BWRIPL 4736, 4763, 5007, 5023, 5055, 5103, 5135, 5476, 5527, 5551, 5642 10615 BWRIPX 10603 10600 BWRIT1 10563 10663 BWRIT2 10314,10577,10607,10621,10632,10635 10702 BWRIT3 4723 10557 BWRITE 4724, 4726, 4753, 4755, 4777, 5001, 5012, 5014, 5026, 5030, 5060, 5062, 5117, 5121, 5437, 5464, 5466 5503, 5505, 5541, 5543, 5572, 5633, 5635, 6113, 7373,10575 10561 BWRITS 10553 10740 BWRITT 4453,10701,10760 10601 BWRITX 10564 10726 BWRT2X 10663,10664,10665 11500 BWRTCM 10706,10711,10735,10737,10762 10315 BWRTIO 4613, 4630, 4634, 6745,10320,10323,13207 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 15 POST PROCESSOR ASSEMBLY DATA 5365 BXMTST 6127 BZEROB 11470 11512 BZLABL 11321 11430 BZONER 11006,11430 310 CITSIZ 0, 4437, 5457, 5522, 5526, 6222, 6227, 6237, 6240, 6241, 6242, 6243, 6343, 6411, 6440, 6441, 6442 6462, 6472, 6514, 6515, 6516, 7130, 7440, 7750,10260, 7505, 7535, 7536, 7537,13763,14273 3 CITTAP 0, 4444, 4447, 4452, 5342, 6226, 6365, 6371, 6376, 6434 4 COTTAP 0, 4521, 5532, 5535, 5540, 6456, 5571, 5577, 5601, 6742, 7461, 7465, 7472, 7530 3732 DATEBX 2 FINTAP 3730 FLAGBX 134 .CHEXI 135 .MODSW 1 LIBTAP 3731 LINECT 7 MBNTAP 3764, 5445, 7132,11130,11134,11140,11165,11173,11266,11327 10 MCHTAP 5 MINTAP 6 MLSTAP 3767, 4472, 4475, 4501, 7123, 7127, 7134,10740 4231 ORGCLO 4532, 4533, 4724, 4726, 5112, 5136, 5152, 5471, 5554, 6636, 6642, 7322, 7330 4223 ORGDEA 4055, 4553, 4555, 4675, 4777, 5004, 5011, 5021, 5204, 5321, 5756, 5767, 6556, 6557, 6564, 4740, 4743 4757, 4765, 4770, 5003, 5124, 5127, 5512, 5531, 5536, 5545, 6026, 7241 4221 ORGDEV 4051, 4351, 4433, 4535, 4540, 4552, 4560, 5003, 5330, 6554, 6555, 6562, 4760, 5004, 5024, 5130, 5515 5546, 6030 4232 ORGEIF 4514, 5552, 5560, 5610, 5615, 5617, 5623, 5660, 5676 73660 ORGFLG 3760, 4221, 5343, 4444, 5651, 7107,11141,11154 4233 ORGIFN 4473, 5005, 5015, 5017, 5312, 5632, 5634, 5640, 5534, 5622, 7622, 7673 73661 ORGLCT 4221, 4504, 4657,10637,10641,10743,10745 4234 ORGSUB 4500, 4501, 4504, 4656, 4664, 5025, 5427, 5551, 5616, 5645, 5646, 6533, 6700, 6706 4225 ORGTEV 4067, 5022, 5024, 5044, 5054, 5550, 6643, 6644, 6647, 5020, 6010 4230 ORGTIV 4110, 5037, 5041, 5042, 5055, 5057, 5165, 5227, 5231, 5232, 5235, 5304, 5423, 5432, 5434, 5440, 5464 5560, 5566, 5574, 5601, 5643, 5656, 5720, 5722, 6517, 6607, 6610, 6614, 5036, 5047, 5066, 5077, 5114 5154, 5563, 5712, 5740, 7617 3 SBNTAP 0, 5452, 7030, 7037, 7050, 7057, 7067, 7104,11210,11215 3 SINTAP 2 SLSTAP 0, 5372, 5422, 4452, 7024, 7034 11 SNPTAP 122 SYSACC 114 SYSCEM 155 SYSCK1 156 SYSCK2 120 SYSCOR 144 SYSCRD 102 SYSCUR 102 124 SYSCYD 101 SYSDAT 115 SYSDMP 77777 SYSEND 132 SYSGET 117 SYSIDR 151 SYSIN1 152 SYSIN2 116 SYSIOX 133 SYSJOB 104 SYSKEY 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 16 POST PROCESSOR ASSEMBLY DATA 140 SYSLB1 141 SYSLB2 142 SYSLB3 143 SYSLB4 121 SYSLDR 3720 SYSORG 147 SYSOU1 150 SYSOU2 146 SYSPCH 123 SYSPID 106 SYSPOS 153 SYSPP1 154 SYSPP2 145 SYSPRT 103 SYSRET 113 SYSRPT 126 SYSSLD 105 SYSSWS 1 SYSTAP 5173, 5174,11025 127 SYSTCH 100 SYSTRA 131 SYSTWT 111 SYSUAV 110 SYSUBC 112 SYSUCW 107 SYSUNI 157 SYSUT1 160 SYSUT2 161 SYSUT3 162 SYSUT4 2 TABTAP 0, 4367, 6010, 6016, 6031, 6045, 6063, 4662, 4674, 4702, 4711 4 TINTAP 77677 TOPMEM 73577 TOPTAB 0, 3734, 7055 4122 XBSRCH 4046, 4064, 4105, 4126, 4127, 4130, 4131, 4132, 4133, 4134, 4135, 4136, 4137, 4140, 4141, 4142, 4143 4144, 4145, 4146, 4147, 4150, 4151, 4152, 4153, 4154, 4155, 4156, 4157, 4160, 4161, 7401, 7761 3774 XCRDCT 3763, 5214, 5444, 5451, 5461,11170,11175,11177,11304,11306 3757 XDELET 3735, 7462, 7466, 7531 3770 XDELEX 3757, 3761 4060 XDEVTL 4045, 5001, 5320, 5755, 6537, 6543, 4737, 4764, 5123, 5511, 5530, 5673, 6024 4061 XDEVTS 4047, 4050, 6545, 6547 4257 XERASE 4103, 4111, 4112 3735 XERR00 4006, 4032, 4362, 4416, 4605, 4651, 4750, 5247, 5273, 5276, 5504, 5672, 6265, 6310, 5777, 6717, 7602 7606, 7610, 7626, 7633, 7666, 7671, 7677, 7702, 7710, 7724 3736 XERR02 4471 3737 XERR03 4543, 6050, 6055 3740 XERR04 4631, 4715, 5746, 6275 3741 XERR05 5234 3742 XERR06 5337, 6345, 6511 3743 XERR07 5460 3744 XERR08 6317, 6531, 6542, 6574, 6631, 5116 4302 XLABEL 5377, 4463, 4515, 5202, 6054, 6115 4303 XLOADP 4303 4165 XLOWER 4052, 4070, 4113, 4124, 7407, 7767 3775 XLSTCT 3766, 4503,10634,10746,10750 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 17 POST PROCESSOR ASSEMBLY DATA 3734 XMEMRY 4346, 4347, 5035, 5107 4163 XNOTIN 4043, 4056, 4062, 4075, 4101, 4116 4251 XPCD7L 4502, 4743, 4767, 5552, 4514, 4530, 4547, 6052, 6647, 6664, 7016, 7072 4252 XPCD7R 5544, 5555, 6122 4247 XPCD8L 4531, 5543, 5752, 4731, 5104 4250 XPCD8R 4636, 5747, 5763, 4734, 4745, 4772, 6041 4253 XPGBRK 5542, 5630, 5754, 7732 4260 XPGHED 5361, 5365, 5374, 5376, 5405, 5411, 4476, 4507, 4510, 4670,10633,10652,10653,10657 4166 XRAISE 4054, 4072, 4115, 4125, 7411, 7771 3766 XSKDP1 5366 4255 XSLINT 5067, 6703 3776 XSORT0 5144, 5265, 7600, 7656,10057,10120 4026 XSORT1 4005 4037 XSORT2 4010, 4011, 4012, 4013, 4014, 4015, 4016, 4017, 4020, 4021, 4022, 4023, 4024, 4025, 4036 4051 XSRDE1 4060 4043 XSRDEV 4620, 4643, 4665, 4705, 4727, 4745, 4761, 4770, 5172, 6305, 7232, 7625, 7700 4067 XSRTE1 4077 4062 XSRTEV 5237, 7701 4110 XSRTI1 4120 4101 XSRTIV 5153, 5156, 5167, 5274, 5301, 5502, 7607, 7612, 7665 4212 XSWC10 4533, 5646 4201 XSWCH1 6077, 4447, 4541, 7040, 7271,11223 4202 XSWCH2 5645, 7774 4203 XSWCH3 5416, 4652, 7005,10722 4204 XSWCH4 4542, 7071, 7272 4205 XSWCH5 5142 4206 XSWCH6 5656 4207 XSWCH7 4516, 5200 4210 XSWCH8 4565, 4615, 4631, 4635, 4650, 6764,10016,10043,10264,13217 4211 XSWCH9 4522, 7017, 7267 4256 XSYMBL 3777, 4026, 4044, 4102, 4624, 6340, 6561, 6612, 6646, 5312, 5317, 5725, 5772, 6013, 6033, 7250, 7252 7276, 7310, 7434, 7765 4254 XTEVBS 4074, 5733, 5017, 6015,13231 4077 XTEVTL 4063, 5546, 5734, 6626, 6632, 5010, 5670, 6005 4100 XTEVTS 4065, 4066, 6634, 6636 4120 XTIVTL 4104, 5651, 6571, 6575, 5034, 5064, 5665, 5734 4121 XTIVTS 4106, 4107, 6600, 6602 702 (ACTIV 703 (ACTVX 720 (BCD5R 721 (BCD5X 10000 (CHKU) 7057, 7132, 7134 741 (CHPSW 724 (CHXAC 750 (CHXSP 717 (CKWAT 746 (COMMD 736 (COMMM 722 (CVPRT 73662 (DATE) 716 (DECVA 715 (DECVD 73645 (DGLD) 73603 (DIAG) 3736, 3737, 3740, 3741, 3742, 3743, 3744, 3771 710 (ENBSW 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 18 POST PROCESSOR ASSEMBLY DATA 73665 (ENDS) 732 (ETTXI 743 (FDAMT 73660 (FGBX) 4221 747 (IBCDZ 740 (IOXSI 73667 (LBLD) 5212 73652 (LIBT) 5165, 5406, 5426, 5460, 7207 73661 (LNCT) 4221 73600 (LOAD) 5771, 7135 73666 (LODR) 73666 737 (LTPOS 73644 (MECL) 3772, 6512 73664 (MSLN) 704 (NDATA 705 (NDSLX 712 (PAUSE 711 (PAWSX 3733 (PCBK) 73651 (PGCT) 4555, 4572, 4601, 4611, 4614, 4621, 4626,13221,13224 73614 (PNCH) 4551, 4553, 7063, 7074, 7076, 7100 73611 (PRNT) 5413, 4676, 4717, 7007,10724,10770,10772,11157,11216 706 (PROUT 707 (PUNCH 40014 (RBEC) 7206 40004 (RBEP) 6364, 6370, 4701, 7047, 7460, 7464 40010 (RBNC) 5576 40000 (RBNP) 6007, 4661 727 (RCHXI 726 (RCTXI 40016 (RDEC) 40006 (RDEP) 40012 (RDNC) 5371, 4474 40002 (RDNP) 73622 (REST) 73672 (SCHU) 6031, 6045, 6376, 4711, 5170, 5601, 7067, 7472 744 (SDCXI 73643 (SECL) 20010 (SKBC) 20000 (SKBP) 3763, 4366, 4451, 5341, 5421, 5537, 6015, 4673, 5405, 5425, 5444, 5451, 5457, 5570, 6741, 7033, 7036 7103,11024,11137,11214 20012 (SKDC) 20002 (SKDP) 3766, 4471, 4500 1000 (SNAP) 73663 (SNCT) 73617 (STAT) 745 (STCXI 73626 (STDN) 723 (STOPD 713 (STOPX 10003 (SUAV) 10002 (SUNV) 714 (SYMUN 73606 (TAPE) 3762, 3765, 4365, 4442, 4445, 4450, 4517, 5340, 5370, 5420, 5530, 5533, 5536, 6006, 6014, 6061, 6224 6363, 6367, 6432, 6454, 4470, 4473, 4477, 4660, 4672, 4700, 5404, 5424, 5434, 5443, 5450, 5456, 5567 32K 709/7090 FORTRAN SECTION SIX 2/07/05 PAGE 19 POST PROCESSOR ASSEMBLY DATA 5575, 6740, 7022, 7026, 7032, 7035, 7046, 7056, 7102, 7121, 7125, 7131, 7133, 7205, 7457, 7463, 7526 10736,11023,11126,11132,11136,11163,11171,11206,11213,11264,11325 730 (TCOXI 733 (TEFXI 4000 (TPER) 6062, 6433, 5435, 7527 735 (TRAPS 734 (TRAPX 731 (TRCXI 742 (TRPSW 725 (URRXI 40011 (WBNC) 4520, 6225 40001 (WBNP) 4443, 5531, 6455,11164,11172,11207 40013 (WDNC) 40003 (WDNP) 7122, 7126,10737 40015 (WEFC) 40005 (WEFP) 4446, 5534, 7023, 7027,11127,11133 40031 (WROW) 4524,11265,11326 NO ERROR IN ABOVE ASSEMBLY. LOGICAL MACHINE TOTAL TOTAL NOISE RECORDS TOTAL REDUNDANCIES POSITIONING TAPE TAPE WRITES READS WRITING READING WRITING READING ERRORS 2 A 6 1776 1776 0 0 0 0 0 3 A 9 1989 2130 0 0 0 0 0 5 A 3 0 24431 0 0 0 0 0 6 A 4 16143 0 0 0 0 0 0 7 A 8 2507 0 0 0 0 0 0 14903 LINES OUTPUT THIS JOB. FORTRAN MONITOR RETURNING TO IBSYS $* * * * * * * FOLLOWING STOP IS FOR CHANGE OF LISTING TAPES. * * * *$F6Z00001 $STOP * * * * * * READY EMPTY CARD READER AND CONTINUE. * * * * * *$F6Z00002 PERIPHERAL UNIT POSITIONS AT END OF JOBS SYSPP1 IS A8 REC.+02507, FILE+00000 SYSOU1 IS A4 REC.+16156, FILE+00000 SYSIN1 IS A3 REC.+24405, FILE+00000 END OF JOBS EOF END OF OUTPUT