| 1 $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 $DATE 121563 $00000040 $* $PAUSE PLEASE MOUNT SOURCE TAPE 3 ON UNIT A3 OPER. ACTION PAUSE| 1 ..CONTINUING| 1 $ATTACH A3 $AS SYSCK1 $ATTACH B3 $AS SYSCK2 $REWIND SYSCK1 $REWIND SYSCK2 $REWIND SYSPP1 $EXECUTE UPDATE 1 12/15/63 PAGE 1 | SYMBOLIC UPDATE DATA | 0 | UPDATE 9,10 | 0 SKPFIL 9 0 SKPFIL 9 | 0 SKPFIL 9 | 0 $JOB ASSEMBLY OF MONITOR, COMPILER SECTIONS 1 THROUGH 6 OF $00000010 DELETED | $JOB ASSEMBLY OF MONITOR, COMPILER SECTIONS 1 THROUGH 6 OF $00000010 INSERTED | 0 $* FORTRAN II PROCESSOR, 7090-FO-928 00000020 DELETED $* FORTRAN II PROCESSOR, 7090-FO-928 00000020 INSERTED | 0 $* VERSION 3, MODIFICATION LEVEL 35 (35)00000030 DELETED | $* VERSION 3, MODIFICATION LEVEL 35 (35)00000030 INSERTED | 0 $DATE 121563 $00000040 DELETED | $DATE 121563 $00000040 INSERTED 0 $EXECUTE IBSFAP $00000050 DELETED | $EXECUTE IBSFAP 00000050 INSERTED | 0 END -1 F0F09000 DELETED | END -1 F0F09000 INSERTED | 0 ENDUP 1 12/15/63 PAGE 2 | SYMBOLIC UPDATE DATA | 0 | UPDATE 9,3 | 0 * 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH F0G00000 DELETED * 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH F0G00000 INSERTED | 0 END -1 F0I02630 DELETED | END -1 F0I02630 INSERTED | 0 ENDFIL 3 | 0 REWIND 3 0 ENDUP | 1 12/15/63 PAGE 3 | SYMBOLIC UPDATE DATA | 0 | UPDATE 3,10 0 * 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH F0G00000 DELETED | * 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH F0G00000 INSERTED | 0 END -1 F0I02630 DELETED | END -1 F0I02630 INSERTED | 0 ENDUP 1 12/15/63 PAGE 4 | SYMBOLIC UPDATE DATA | 0 | UPDATE 9,10 | 0 REWIND 3 0 * 32K 709/7090 FORTRAN MONITOR MACHINE ERROR RECORD F0J00010 DELETED | * 32K 709/7090 FORTRAN MONITOR MACHINE ERROR RECORD F0J00010 INSERTED | 0 END -1 F6B99999 DELETED | END -1 F6B99999 INSERTED | 0 ENDUP 1 12/15/63 PAGE 5 | SYMBOLIC UPDATE DATA | 0 | UPDATE 3,10 | 0 * 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH F0G00000 DELETED * 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH F0G00000 INSERTED | 0 WHICH EQU 0 7,8,9 ASSEMBLY $F0G00099 DELETED | WHICH EQU 1 7,8,9 ASSEMBLY $F0G00099 INSERTED | 0 END -1 F0I02630 DELETED | END -1 F0I02630 INSERTED 0 ENDUP | 1 12/15/63 PAGE 6 | SYMBOLIC UPDATE DATA | 0 | UPDATE 9,10 0 INPT EQU SYSIN1 DEFINES INPUT UNIT ZLED0120 DELETED | INPT EQU SYSUT3 DEFINES INPUT UNIT ZLED0120 INSERTED | 0 $IBSYS (END)010 DELETED | $IBSYS (END)010 INSERTED | 0 ENDUP 1 12/15/63 PAGE 7 | SYMBOLIC UPDATE DATA | 0 | UPDATE ,10,U | 0 $ENDFILE SYSPP1 INSERTED 0 $REWIND SYSPP1 INSERTED | 0 $SWITCH SYSPP1,SYSUT2 INSERTED | 0 $IBEDT INSERTED | 0 *EDIT MAP,MODS INSERTED | 0 TAPE *REPLACE IBSFAP INSERTED 0 TAPE *REPLACE FORTRA INSERTED | 0 TAPE *REPLACE 9F0100 INSERTED | 0 TAPE *REPLACE 9F0200 INSERTED | 0 TAPE *REPLACE 9F0300 INSERTED | 0 TAPE *REPLACE 9F0400 INSERTED 0 TAPE *REPLACE 9F0500 INSERTED | 0 TAPE *REPLACE 9F0600 INSERTED | 0 TAPE *REPLACE 9F0700 INSERTED | 0 TAPE *REPLACE 9F0800 INSERTED | 0 TAPE *REPLACE 9F0900 INSERTED 0 TAPE *REPLACE 9F1000 INSERTED | 0 TAPE *REPLACE 9F1100 INSERTED | 0 TAPE *REPLACE 9F1200 INSERTED | 0 TAPE *REPLACE 9F1300 INSERTED | 0 TAPE *REPLACE 9F1400 INSERTED 0 TAPE *REPLACE 9F1500 INSERTED | 0 TAPE *REPLACE 9F1600 INSERTED | 0 TAPE *REPLACE 9F1700 INSERTED | 0 TAPE *REPLACE 9F1800 INSERTED | 0 TAPE *REPLACE 9F1900 INSERTED 1 12/15/63 PAGE 8 | SYMBOLIC UPDATE DATA | 0 | TAPE *REPLACE 9F2000 INSERTED | 0 TAPE *REPLACE 9F2100 INSERTED 0 TAPE *REPLACE 9F2200 INSERTED | 0 TAPE *REPLACE 9F2300 INSERTED | 0 TAPE *REPLACE 9F2400 INSERTED | 0 TAPE *REPLACE 9F2500 INSERTED | 0 TAPE *REPLACE 9F2600 INSERTED 0 TAPE *REPLACE 9F2700 INSERTED | 0 TAPE *REPLACE 9F2800 INSERTED | 0 TAPE *REPLACE 9F2900 INSERTED | 0 TAPE *REPLACE 9F3000 INSERTED | 0 TAPE *REPLACE 9F3100 INSERTED 0 TAPE *REPLACE 9F3200 INSERTED | 0 TAPE *REPLACE 9F3300 INSERTED | 0 TAPE *REPLACE 9F3400 INSERTED | 0 TAPE *REPLACE 9D0000 INSERTED | 0 TAPE *REPLACE 9LEDIT INSERTED 0 ENDFIL 10 | 0 $IBSYS INSERTED | 0 $* FORTRAN II REBUILT INSERTED | 0 $STOP INSERTED | 0 ENDFIL 10 0 REWIND 10 | 0 UNLOAD 9 | 0 ENDUP | 1 12/15/63 PAGE 9 | SYMBOLIC UPDATE DATA 0 | $IBSYS | LOGICAL MACHINE TOTAL TOTAL NOISE RECORDS TOTAL REDUNDANCIES POSITIONING | TAPE TAPE WRITES READS WRITING READING WRITING READING ERRORS | 3 B4 396 792 0 0 0 0 0 | 5 A2 0 25 0 0 0 0 0 | 6 B1 26 0 0 0 0 0 0 | 9 A3 0 4452 0 0 0 0 0 | 10 B3 6515 0 0 0 0 0 0 0 140 LINES OUTPUT. | 1 | $PAUSE PLEASE MOUNT A TAPE FOR NEW SYSTEM ON A3 OPER. ACTION PAUSE| 1 ..CONTINUING| 1 $SWITCH SYSCK2,SYSIN1 | 1 $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 $DATE 121563 $00000040 $EXECUTE IBSFAP 00000050 1 * IBSFAP VERSION 3/FORTRAN IBSFAP MODE LOADER 9IBS0000 * FAP 9IBS0020 1 12/15/63 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 | 1 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | 3722 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES 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 1 12/15/63 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) | 1 12/15/63 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) | | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * FORTRAN COMMON I/O PACKAGE IOEX VERSION F0000000 * FAP F0000020 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 PAGE 1 | | ABS F0000050 | SST IBSYS $F0000070 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 PAGE 2 | | | | | | | | | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 PAGE 1 POST PROCESSOR ASSEMBLY DATA | | 77677 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 1 FORTRAN COMMON I/O PACKAGE IOEX VERSION 12/15/63 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 | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * FORTRAN II MONITOR TAPE POSITIONING RECORD F0A00000 * FAP F0A00020 1 FORTRAN II MONITOR TAPE POSITIONING RECORD 12/15/63 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 | 1 FORTRAN II MONITOR TAPE POSITIONING RECORD 12/15/63 PAGE 1 POST PROCESSOR ASSEMBLY DATA | | 73667 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * FORTRAN II MONITOR DUMP RECORD F0B00000 * FAP F0B00020 1 FORTRAN II MONITOR DUMP RECORD 12/15/63 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 | 1 FORTRAN II MONITOR DUMP RECORD 12/15/63 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 | 1 FORTRAN II MONITOR DUMP RECORD 12/15/63 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 | 1 FORTRAN II MONITOR DUMP RECORD 12/15/63 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 | 1 FORTRAN II MONITOR DUMP RECORD 12/15/63 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 1 FORTRAN II MONITOR DUMP RECORD 12/15/63 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 | 1 FORTRAN II MONITOR DUMP RECORD 12/15/63 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 | 1 FORTRAN II MONITOR DUMP RECORD 12/15/63 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 | 1 FORTRAN II MONITOR DUMP RECORD 12/15/63 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 | 1 FORTRAN II MONITOR DUMP RECORD 12/15/63 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 1 FORTRAN II MONITOR DUMP RECORD 12/15/63 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 | 1 FORTRAN II MONITOR DUMP RECORD 12/15/63 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 | 1 FORTRAN II MONITOR DUMP RECORD 12/15/63 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 | 1 FORTRAN II MONITOR DUMP RECORD 12/15/63 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 1 FORTRAN II MONITOR DUMP RECORD 12/15/63 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 | 1 FORTRAN II MONITOR DUMP RECORD 12/15/63 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 1 FORTRAN II MONITOR DUMP RECORD 12/15/63 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 | 1 FORTRAN II MONITOR DUMP RECORD 12/15/63 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 | 1 FORTRAN II MONITOR DUMP RECORD 12/15/63 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 | 1 FORTRAN II MONITOR DUMP RECORD 12/15/63 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 | 1 FORTRAN II MONITOR DUMP RECORD 12/15/63 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 | 1 FORTRAN II MONITOR DUMP RECORD 12/15/63 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 1 FORTRAN II MONITOR DUMP RECORD 12/15/63 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 | 1 FORTRAN II MONITOR DUMP RECORD 12/15/63 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 1 FORTRAN II MONITOR DUMP RECORD 12/15/63 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 | 1 FORTRAN II MONITOR DUMP RECORD 12/15/63 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 | 1 FORTRAN II MONITOR DUMP RECORD 12/15/63 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 | 1 FORTRAN II MONITOR DUMP RECORD 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | 73667 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES 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 | 1 FORTRAN II MONITOR DUMP RECORD 12/15/63 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 | 1 FORTRAN II MONITOR DUMP RECORD 12/15/63 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 1 FORTRAN II MONITOR DUMP RECORD 12/15/63 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 | 1 FORTRAN II MONITOR DUMP RECORD 12/15/63 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 | 1 FORTRAN II MONITOR DUMP RECORD 12/15/63 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) | 1 FORTRAN II MONITOR DUMP RECORD 12/15/63 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) | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. F0C00000 * FAP F0C00020 1 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 12/15/63 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 1 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 12/15/63 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 1 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 12/15/63 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 1 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 12/15/63 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 1 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | 73667 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES 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 1 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 12/15/63 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 1 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 12/15/63 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) | 1 32K 709/7090 FORTRAN MONITOR - SIGN-ON RECORD. 12/15/63 PAGE 9 | POST PROCESSOR ASSEMBLY DATA | | 0 NO ERROR IN ABOVE ASSEMBLY. 1 * 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP F0D00000 * FAP F0D00010 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | 73667 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 1 32K 709/7090 FORTRAN ASSEMBLY PROGRAM MACRO-FAP 12/15/63 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 | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN MONITOR SCAN F0F00000 * FAP F0F00020 1 32K 709/7090 FORTRAN MONITOR SCAN 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR SCAN 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR SCAN 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR SCAN 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR SCAN 12/15/63 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 1 32K 709/7090 FORTRAN MONITOR SCAN 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR SCAN 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR SCAN 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR SCAN 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR SCAN 12/15/63 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 1 32K 709/7090 FORTRAN MONITOR SCAN 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR SCAN 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR SCAN 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR SCAN 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR SCAN 12/15/63 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 1 32K 709/7090 FORTRAN MONITOR SCAN 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR SCAN 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR SCAN 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR SCAN 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR SCAN 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR SCAN 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | 73667 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES 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 1 32K 709/7090 FORTRAN MONITOR SCAN 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR SCAN 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR SCAN 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR SCAN 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR SCAN 12/15/63 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 1 32K 709/7090 FORTRAN MONITOR SCAN 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR SCAN 12/15/63 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) | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH F0G00000 * FAP F0G00020 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 PAGE 74 RECORD 8 OR 33 BSS CONTROL | | 73577 CURCHN EQU 1STCHN+1 F0H08740 | | BINARY CARD NO. TRA77777 77777 TCD -1 $F0H08741 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | | 73667 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | 0REFERENCES 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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) | | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN MONITOR MACHINE ERROR RECORD F0J00010 * FAP F0J00030 1 32K 709/7090 FORTRAN MONITOR MACHINE ERROR RECORD 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR MACHINE ERROR RECORD 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR MACHINE ERROR RECORD 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR MACHINE ERROR RECORD 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR MACHINE ERROR RECORD 12/15/63 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 1 32K 709/7090 FORTRAN MONITOR MACHINE ERROR RECORD 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR MACHINE ERROR RECORD 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR MACHINE ERROR RECORD 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR MACHINE ERROR RECORD 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR MACHINE ERROR RECORD 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR MACHINE ERROR RECORD 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR MACHINE ERROR RECORD 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | 73667 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES 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 1 32K 709/7090 FORTRAN MONITOR MACHINE ERROR RECORD 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR MACHINE ERROR RECORD 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR MACHINE ERROR RECORD 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR MACHINE ERROR RECORD 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR MACHINE ERROR RECORD 12/15/63 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 | | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN MONITOR SOURCE ERROR RECORD F0K00010 * FAP F0K00030 1 32K 709/7090 FORTRAN MONITOR SOURCE ERROR RECORD 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR SOURCE ERROR RECORD 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR SOURCE ERROR RECORD 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR SOURCE ERROR RECORD 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR SOURCE ERROR RECORD 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR SOURCE ERROR RECORD 12/15/63 PAGE 1 POST PROCESSOR ASSEMBLY DATA | | 73667 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES 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 | 1 32K 709/7090 FORTRAN MONITOR SOURCE ERROR RECORD 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR SOURCE ERROR RECORD 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR SOURCE ERROR RECORD 12/15/63 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) 1 32K 709/7090 FORTRAN MONITOR SOURCE ERROR RECORD 12/15/63 PAGE 5 | POST PROCESSOR ASSEMBLY DATA | | 40031 (WROW) 3753 | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN MONITOR DUMMY RECORD F0L00000 * FAP F0L00020 1 32K 709/7090 FORTRAN MONITOR DUMMY RECORD (RECORD 12) 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DUMMY RECORD (RECORD 12) 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | 73667 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN SECTION ONE F1A00010 * FAP F1A00020 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 PAGE 241 | * SECTION ONE DOUBLE PRIME * RECORD 9F17 * | | 77777 END -1 F1E07351 | BINARY CARD NO. TRA77777 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | | 73667 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | 0REFERENCES 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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 | 1 SECTIONS ONE, ONE PRIME, ONE DOUBLE PRIME (RECORDS 13-17) 12/15/63 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) | | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN SECTION TWO F2A00000 * FAP F2A00020 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | 73667 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION TWO 12/15/63 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) | | 0 NO ERROR IN ABOVE ASSEMBLY. 1 * 32K 709/7090 FORTRAN SECTION THREE F3A00010 * FAP F3A00030 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | 77677 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION THREE 12/15/63 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) | | 0 NO ERROR IN ABOVE ASSEMBLY. 1 * 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE F4A00010 * FAP F4A00030 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 PAGE 1 | | ABS F4A00060 | SST FORTRAN $F4A00061 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 PAGE 32 | SECTION 4, PART TWO | BINARY CARD NO. TRA77777 | 77777 TCD -1 $F4B07625 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 PAGE 1 POST PROCESSOR ASSEMBLY DATA | | 73667 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 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) | 1 32K 709/7090 FORTRAN SECTIONS FOUR AND FIVE 12/15/63 PAGE 35 | POST PROCESSOR ASSEMBLY DATA | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN SECTION SIX F6A00000 * FAP F6A00030 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 PAGE 1 | | F6A00060 | ABS F6A00070 | SST FORTRAN $F6A00071 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | 73667 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES 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 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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) | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | 1 32K 709/7090 FORTRAN SECTION SIX 12/15/63 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 | | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH F0G00000 * FAP F0G00020 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 PAGE 1 | RECORD 7 OR 32 DEBUG | | SST FORTRAN $F0G00060 | ABS $F0G00070 00001 WHICH EQU 1 7,8,9 ASSEMBLY $F0G00099 | 00102 ORG SYSCUR $F0G00100 | | BINARY CARD NO. 9F320000 | 00102 112603020000 BCI 1,9F3200 $F0G00112 73666 ORG (LODR) $F0G00120 | | BINARY CARD NO. 9F320001 | 73666 1 00500 0 60640 TXI ENTER,,320 ENTRY POINT,,RECORD NO. $F0G00132 | 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320002 | 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. 9F320003 | 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 PAGE 3 | RECORD 7 OR 32 DEBUG | BINARY CARD NO. 9F320004 | 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. 9F320005 | 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. 9F320006 | 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320007 | 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. 9F320008 | 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320009 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. 9F320010 | 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320011 | 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. 9F320012 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 PAGE 7 | RECORD 7 OR 32 DEBUG | BINARY CARD NO. 9F320013 | 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. 9F320014 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. 9F320015 | 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 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320016 | 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. 9F320017 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320018 | 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. 9F320019 | 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320020 | 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. 9F320021 | 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 PAGE 11 RECORD 7 OR 32 DEBUG | | 61527 0200 00 0 62452 MPY LC6 NECESSARY TO POSITION WORD OF F0G05030 | | BINARY CARD NO. 9F320022 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. 9F320023 | 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. 9F320024 | 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320025 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. 9F320026 | 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 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320027 | 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. 9F320028 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320029 | 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. 9F320030 | 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 PAGE 15 | RECORD 7 OR 32 DEBUG | BINARY CARD NO. 9F320031 | 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. 9F320032 | 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. 9F320033 | 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320034 | 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. 9F320035 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320036 | 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. 9F320037 | 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. 9F320038 | 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. 9F320039 | 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. 9F320040 | 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. 9F320041 | | BINARY CARD NO. 9F320042 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. 9F320043 | 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320044 | 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. 9F320045 | 62521 -206060606060 BLMSK OCT 606060606060 F0G09240 | 62522 BCD BSS 14 F0G09250 62540 BCDA BSS 11 BLOCK OF NON-BLANK CHAR. F0G09260 | | BINARY CARD NO. 9F320046 | 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. 9F320047 | 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. 9F320048 | 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 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320049 | 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 PAGE 20 | RECORD 7 OR 32 DEBUG | | BINARY CARD NO. 9F320050 | 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. 9F320051 | 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. 9F320052 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320053 | 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320054 | 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. 9F320055 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320056 | 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. 9F320057 | 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 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320058 | 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320059 | 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. 9F320060 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. 9F320061 | 63370 0400 00 0 63130 ADD DOE WITH IMPLICIT EXPONENT, F0G12300 63371 0601 00 0 63130 STO DOE AND SAVE IN DOE. F0G12310 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320062 | 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. 9F320063 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320064 | 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. 9F320065 | 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320066 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. 9F320067 | 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 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320068 | 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. 9F320069 | 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320070 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. 9F320071 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320072 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. 9F320073 | 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320074 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. 9F320075 | 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320076 | 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. 9F320077 | 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 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320078 | 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. 9F320079 | 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 PAGE 35 | RECORD 7 OR 32 DEBUG | 64231 -0534 00 1 77763 LXD -13,1 14 F0G16870 | | BINARY CARD NO. 9F320080 | 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. 9F320081 | 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. 9F320082 | 64306 0 00000 0 00000 SSWT PZE $F0G17340 64307 0 00000 0 00000 SYMSW PZE F0G17350 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320083 | 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. 9F320084 | 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320085 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. 9F320086 | 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320087 | 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. 9F320088 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 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320089 | 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. 9F320090 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320091 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. 9F320092 | 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. 9F320093 | 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320094 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. 9F320095 | 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320096 | 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. 9F320097 | 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320098 | 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. 9F320099 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 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320100 | 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. 9F320101 | 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 PAGE 45 | RECORD 7 OR 32 DEBUG | | BINARY CARD NO. 9F320102 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. 9F320103 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. 9F320104 | 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320105 | 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. 9F320106 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320107 | 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. 9F320108 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 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320109 | 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. 9F320110 | 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320111 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. 9F320112 | 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. 9F320113 | 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320114 | 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. 9F320115 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320116 | 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. 9F320117 | 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320118 | 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. 9F320119 | 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 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320120 | 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. 9F320121 | 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. 9F320122 | 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 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 PAGE 54 | RECORD 7 OR 32 DEBUG | | BINARY CARD NO. 9F320123 | 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. 9F320124 | 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. 9F320125 | 66235 BSS NEFMTT-7 F0G26600 | | BINARY CARD NO. 9F320126 | 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320127 | 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. 9F320128 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F320129 | 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. 9F320130 | * 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 PAGE 57 RECORD 8 OR 33 BSS CONTROL | | ABS $F0H00010 | 00102 ORG SYSCUR $F0H00040 | BINARY CARD NO. 9F330000 | 00102 112603030000 BCI 1,9F3300 $F0H00052 | 73666 ORG (LODR) $F0H00060 | | BINARY CARD NO. 9F330001 73666 1 00512 0 63021 TXI ENTBS,,330 ENTRY POINT,,RECORD NO. $F0H00072 | 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. 9F330002 | 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. 9F330003 | 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F330004 | 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. 9F330005 | 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 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F330006 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. 9F330007 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F330008 | 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. 9F330009 | 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 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 PAGE 61 | RECORD 8 OR 33 BSS CONTROL | | BINARY CARD NO. 9F330010 | 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. 9F330011 | 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. 9F330012 | 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F330013 | 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. 9F330014 | 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F330015 | 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. 9F330016 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F330017 | 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. 9F330018 | 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F330019 | 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. 9F330020 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 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F330021 | 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. 9F330022 | 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. 9F330023 | 72634 2 00001 1 72632 TIX *-2,1,1 F0H05310 | 72635 -0534 00 1 72446 LXD TAG,1 F0H05320 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F330024 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. 9F330025 | 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F330026 | 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. 9F330027 | 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F330028 | 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. 9F330029 | 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F330030 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. 9F330031 | 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 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F330032 | 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. 9F330033 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 PAGE 72 | RECORD 8 OR 33 BSS CONTROL | BINARY CARD NO. 9F330034 | 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. 9F330035 | 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. 9F330036 | 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. 9F330037 | 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. 9F330038 | 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F330039 | 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. 9F330040 | 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. 9F330041 | 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 PAGE 74 RECORD 8 OR 33 BSS CONTROL | | 73577 CURCHN EQU 1STCHN+1 F0H08740 | | BINARY CARD NO. TRA77777 77777 TCD -1 $F0H08741 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 PAGE 75 | RECORD 9 OR 34 LIBRARY SEARCH | | ABS $F0I00010 00102 ORG SYSCUR $F0I00040 | | BINARY CARD NO. 9F340000 | 00102 112603040000 BCI 1,9F3400 $F0I00052 | 73666 ORG (LODR) $F0I00060 | BINARY CARD NO. 9F340001 | 73666 1 00524 0 71224 TXI ENTLS,,340 ENTRY POINT,,RECORD NO. $F0I00072 | 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. 9F340002 | 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. 9F340003 | 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F340004 | 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. 9F340005 | 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F340006 | 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. 9F340007 | 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 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F340008 | 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. 9F340009 | 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. 9F340010 | 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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. 9F340011 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. 9F340012 | 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | | 73667 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | 0REFERENCES 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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 | 1 32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH 12/15/63 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) | | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC XGD00010 * FAP XGD00030 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 1 | | ABS XGD00070 | SST FORTRAN $XGD00080 | *************************************************************XGD00090 XGD00100 | 00002 SLSTAP SYN 2 SINGLE COMPILE LISTING OUTPUT TAPE XGD00110 | 00006 DMPTAP SYN 6 DIAGNOSTIC DUMP TAPE XGD00120 | 05672 TFNSIZ SYN 3002 SIZE OF TEIFNO XGD00130 | 16052 TEIFIN EQU BOTTOM+5198 STORAGE FOR TEIFNO XGD00140 23742 SYMBOL EQU TEIFIN+3000 STORAGE AREA XGD00150 | 24725 TOP EQU SYMBOL+499 HIGHEST LOCATION USED XGD00160 | -0 13450 0 10550 EJECT OPSYN SPACE LET'S REDUCE THE NUMBER $XGD00161 | -0 13450 0 10550 SKP OPSYN SPACE OF SHORT PAGES IN THE LISTING $XGD00162 | XGD00170 *************************************************************XGD00180 | XGD00190 | XGD00200 | .............................................................XGD00210 | XGD00220 ** - DENOTES AN ENTRY TO A LOGICAL BLOCK OF CODING. XGD00230 | * - DENOTES AN EXIT FROM A LOGICAL BLOCK OF CODING. XGD00240 | XGD00250 | .............................................................XGD00260 | XGD00270 00102 ORG SYSCUR $XGD00280 | | BINARY CARD NO. 9D000000 | 00102 112400000000 BCI 1,9D0000 $XGD00290 | 73666 ORG (LODR) $XGD00291 | BINARY CARD NO. 9D000001 | 73666 1 00012 0 03734 PON BOTTOM,,10 XGD00300 | XGD00310 | ABS XGD00320 03734 ORG BOTTOM XGD00330 | | BINARY CARD NO. 9D000002 | 03734 0634 00 1 06255 SXA SAVE1,1 **SAVE INDEX REGISTERS, MQ, AND INDICATORS. XGD00340 | 03735 0634 00 2 06256 SXA SAVE2,2 FOR INFORMATION FROM SECTION CALLING XGD00350 03736 -0634 00 4 06304 SXD SAVE4,4 DIAGNOSTIC. XGD00360 | 03737 -0600 00 0 06305 STQ SAVEMQ XGD00370 | 03740 0604 00 0 06306 STI SAVIND XGD00380 | 03741 0622 00 0 06265 STD ERWORD GET ERROR NUMBER FROM AC DECREMENT. XGD00390 | 03742 0074 00 4 73611 TSX (PRNT),4 PRINT BEGINNING OF DIAGNOSTIC MESSAGE XGD00400 03743 0 00022 0 04152 PZE BG,,18 ON-LINE ONLY. XGD00410 | 03744 0074 00 4 73611 TSX (PRNT),4 SPACE 1 LINE ON PRINTER. XGD00420 | 03745 0 00024 0 06012 PZE 20BLKS,,20 XGD00430 | 03746 0074 00 4 73611 TSX (PRNT),4 SPACE 1 LINE ON PRINTER. XGD00440 | 03747 0 00024 0 06012 PZE 20BLKS,,20 XGD00450 03750 0074 00 4 73611 TSX (PRNT),4 SPACE 1 LINE ON PRINTER. XGD00460 | 03751 0 00024 0 06012 PZE 20BLKS,,20 XGD00470 | 03752 -0500 60 0 73601 CAL* (LOAD)+1 PICK UP NUMBER OF CALLING RECORD. XGD00480 | 03753 -0734 00 4 00000 PDX ,4 XGD00490 | 03754 0634 00 4 06303 SXA FTREC,4 SAVE FORTRAN RECORD NUMBER. XGD00500 03755 0760 00 0 00012 DCT TURN OFF DIVIDE-CHECK INDICATOR. XGD00510 | 03756 0020 00 0 03757 TRA *+1 XGD00520 | 03757 0074 00 4 73606 TSX (TAPE),4 POSITION TAPE AT BEGINNING OF FORTRAN. $XGD00530 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 2 | 03760 -0 20000 0 06315 MZE BS4F,,(SKBP) $XGD00540 | 03761 -0 00001 0 00000 MZE ,,SYSTAP XGD00550 | | BINARY CARD NO. 9D000003 | 03762 0074 00 4 73606 TSX (TAPE),4 $XGD00551 03763 -0 20000 0 06323 MZE SK1DF,,(SKBP) $XGD00552 | 03764 -0 00001 0 00000 MZE ,,SYSTAP $XGD00553 | 03765 0074 00 4 73606 TSX (TAPE),4 REWIND TAPE THAT CONTAINS END AND TEIFNO. XGD00560 | 03766 -0 20000 0 06311 MZE REWIND,,(SKBP) XGD00570 | 03767 -0 00002 0 00000 MZE ,,SLSTAP XGD00580 03770 0500 60 0 73660 CLA* (FGBX) IS IT MONITOR OR SINGLE COMPILE. XGD00590 | 03771 0120 00 0 05354 TPL BCDB2 SINGLE COMPILE. XGD00600 | 03772 0074 00 4 73606 TSX (TAPE),4 MONITOR, SKIP SOURCE PROGRAM FILE. XGD00610 | 03773 -0 20000 0 06323 MZE SK1DF,,(SKBP) XGD00620 | 03774 -0 00002 0 06324 MZE ENDT,,SLSTAP XGD00630 03775 0074 00 4 73606 BFSC TSX (TAPE),4 SKIP THREE FILES. XGD00640 | 03776 -0 20000 0 06325 MZE SK3BF,,(SKBP) XGD00650 | 03777 -0 00002 0 06324 MZE ENDT,,SLSTAP XGD00660 | 04000 0074 00 4 73606 TSX (TAPE),4 READ END TABLE. XGD00670 | 04001 -0 40010 0 06331 MZE ENDTAB,,(RBNC) XGD00680 04002 0 00002 0 06324 PZE ENDT,,SLSTAP XGD00690 | 04003 0 00000 0 05327 PZE IOER03 XGD00700 | 04004 0074 00 4 73606 TSX (TAPE),4 SKIP 3 RECORDS. XGD00710 | 04005 -0 20000 0 06313 MZE SK3R,,(SKBP) XGD00720 | 04006 -0 00002 0 06330 MZE TEIFNO,,SLSTAP XGD00730 04007 0074 00 4 73606 TSX (TAPE),4 READ TEIFNO. XGD00740 | | BINARY CARD NO. 9D000004 | 04010 -0 40010 0 04454 MZE XBRTEI,,(RBNC) XGD00750 | 04011 0 00002 0 06330 PZE TEIFNO,,SLSTAP XGD00760 04012 0 00000 0 05332 PZE IOER04 XGD00770 | 04013 0534 00 4 73674 LXA (SCHU)+SLSTAP,4 INITIALIZE TO LAST ADDRESS+1 OF TEIFNO. XGD00780 | 04014 0634 00 4 04424 SXA XB1,4 STORE ADDRESS+1 IN EXBETA ROUTINE. XGD00790 | 04015 0634 00 4 04435 SXA INTOEX,4 STORE ADDRESS+1 IN EXBETA ROUTINE. XGD00800 | 04016 2 16052 4 04020 TIX *+2,4,TEIFIN COMPUTE WORD COUNT OF TEIFNO. XGD00810 04017 0774 00 4 00001 AXT 1,4 NO TEIFNO. XGD00820 | 04020 0634 00 4 04423 SXA INCOR,4 SAVE TEIFNO WORD COUNT FOR EXBETA ROUTINE. XGD00830 | 04021 0520 00 0 06327 ZET LK4END SEE IF THERE WAS ERROR IN READING END TABLEXGD00840 | 04022 0020 00 0 05360 TRA OFLIMS ERROR, MAKE MESSAGE OFF-LINE ONLY. XGD00850 | 04023 0500 00 0 06334 CONTE CLA ENDPAR+2 SEE IF ON-LINE PRINTING IS REQUESTED. XGD00860 04024 0340 00 0 06302 CAS AD1 COMPARE END SETTING 3 AND THE NUMBER, 1. XGD00870 | 04025 0020 00 0 05346 TRA SSTEST SETTING IS 2- TEST SINGLE COMPILE SENSE SW.XGD00880 | 04026 0020 00 0 05350 TRA ONLINE SETTING IS 1- PRINT ON-LINE. XGD00890 | 04027 0774 00 4 00000 CONT AXT 0,4 SEARCH ERROR LIST. XGD00900 | 04030 0500 00 4 06340 SEARCH CLA ERLIST,4 COMPARE ERROR NUMBER AGAINST ERROR LIST. XGD00910 04031 0340 00 0 06265 CAS ERWORD (SEE DESCRIPTION ABOVE LOCATION ERLIST.) XGD00920 | 04032 0020 00 0 04034 TRA *+2 ERROR NUMBER NOT YET FOUND. XGD00930 | 04033 0020 00 0 04037 TRA HAV *ERROR NUMBER FOUND IN ERROR LIST. XGD00940 | 04034 0322 00 0 06261 ERA ADDMSK TEST FOR END OF ERROR LIST MARK. XGD00950 | 04035 0100 00 0 04366 TZE RDIAG *END OF ERROR LIST, NOT LISTED. XGD00960 | BINARY CARD NO. 9D000005 | 04036 1 77776 4 04030 NXR TXI SEARCH,4,-2 **CONTINUE SEARCH IF NOT END OF LIST. XGD00970 | XGD00980 | 04037 0500 00 4 06341 HAV CLA ERLIST+1,4 **FORTRAN RECORD NO. IN ADDRESS. XGD00990 04040 -0320 00 0 06261 ANA ADDMSK CHECK THE SYSTEM RECORD NUMBER. XGD01000 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 3 | | 04041 0340 00 0 06303 CAS FTREC IS THE RECORD NUMBER CORRECT. XGD01010 | 04042 0020 00 0 04036 TRA NXR *NO, CONTINUE SEARCH. XGD01020 04043 0020 00 0 04045 TRA HV RECORD NUMBER IS CORRECT. XGD01030 | 04044 0020 00 0 04036 TRA NXR *NO, CONTINUE SEARCH. XGD01040 | XGD01050 | 04045 0500 00 4 06341 HV CLA ERLIST+1,4 XGD01060 | 04046 -0734 00 4 00000 PDX 0,4 GET ADDRESS OF APPROPRIATE DIAG. ROUTINE. XGD01070 04047 0634 00 4 04050 SXA MESSGE,4 XGD01080 | 04050 0020 00 0 00000 MESSGE TRA ** *GO TO CODING DEALING WITH SPECIFIC ERROR. XGD01090 | 04051 0 00000 0 00000 XGD01100 | 04052 0 00000 0 00000 XGD01110 | 04053 0 00000 0 00000 XGD01120 04054 0 00000 0 00000 XGD01130 | 04055 0 00000 0 00000 XGD01140 | XGD01150 | *************************************************************XGD01160 | XGD01170 04056 +000000000033 POINT OCT 33 XGD01180 | XGD01190 | 04057 606060606060 TITLE BCD 7 XGD01200 | | BINARY CARD NO. 9D000006 04066 264651635121 BCD 6FORTRAN DIAGNOSTIC RESULTS XGD01210 | 04074 606060606060 RECNB BCD 2 XGD01220 | 04076 622523633146 BCD 1SECTIO XGD01230 | 04077 456060606060 SECNB BCD 1N XGD01240 | 04100 606060606060 BCD XGD01250 | BINARY CARD NO. 9D000007 | 04112 606060606060 BCD 8 XGD01260 | 04122 255151465160 BCD 8ERROR WHILE COMPILING IN FORTRAN RECORD NUMBER XGD01270 | 04132 0000 00 0 00000 FOREC HTR ** XGD01280 04133 606060606060 LOC BCD 2 XGD01290 | 04135 434623216331 BCD 3LOCATION XGD01300 | | BINARY CARD NO. 9D000008 | 04140 456001602446 SEC1DP BCI 3,N 1 DOUBLE PRIME XGD01310 04143 456001604751 SEC1P BCD 2N 1 PRIME XGD01320 | 04145 456002606060 SEC2 BCD 1N 2 XGD01330 | 04146 456003606060 SEC3 BCD 1N 3 XGD01340 | 04147 456004606060 SEC4 BCD 1N 4 XGD01350 | 04150 456005606060 SEC5 BCD 1N 5 XGD01360 04151 456006606060 SEC6 BCD 1N 6 XGD01370 | 04152 606060606060 BG BCI , ***THE GENERAL DIAGNOSTIC RECORD HAS BEEN READ. XGD01380 | 04164 603163604421 BCI 8, IT MAY BE REFERRED TO BELOW AS RECORD 1.*** XGD01390 | | BINARY CARD NO. 9D000009 04174 0 00000 0 00000 XGD01400 | 04175 0 00000 0 00000 XGD01410 | XGD01420 | *************************************************************XGD01430 | XGD01440 04176 -0520 00 0 04455 SPEND NZT PRTEST **RETURN FROM DIAGNOSTIC ROUTINE XGD01450 | 04177 0020 00 0 04206 TRA WPPR FOOTNOTE SHOULD NOT BE PRINTED. XGD01460 | 04200 0074 00 4 05005 TSX PRINT,4 SPACE 1 LINE. XGD01470 | 04201 0 06036 0 06012 PZE 20BLKS,,END20 XGD01480 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 4 | 04202 0074 00 4 05005 TSX PRINT,4 SPACE 1 LINE. XGD01490 | 04203 0 06036 0 06012 PZE 20BLKS,,END20 XGD01500 | 04204 0074 00 4 05005 TSX PRINT,4 PRINT FOOTNOTE ABOUT ASTERISK (WHEN EFN XGD01510 | 04205 0 04345 0 04307 PZE EBX,,NEARBT GIVEN IS CLOSE TO OFFENDING STATEMENT). XGD01520 04206 0074 00 4 05005 WPPR TSX PRINT,4 SPACE 1 LINE. XGD01530 | 04207 0 06036 0 06012 PZE 20BLKS,,END20 XGD01540 | 04210 0074 00 4 05005 TSX PRINT,4 SPACE 1 LINE. XGD01550 | 04211 0 06036 0 06012 PZE 20BLKS,,END20 XGD01560 | 04212 0074 00 4 05005 TSX PRINT,4 PRINT --END OF DIAGNOSTIC PROGRAM RESULTS--XGD01570 04213 0 04307 0 04242 PZE END,,EBX XGD01580 | | BINARY CARD NO. 9D000010 | 04214 0761 00 0 00000 EOFB2 NOP IN SINGLE COMPILE- TSX (TAPE),4 XGD01590 | 04215 0761 00 0 00000 NOP MZE ,,(WEFC) XGD01600 04216 0761 00 0 00000 NOP MZE ,,SLSTAP XGD01610 | 04217 0761 00 0 00000 NOP PZE EFER XGD01620 | 04220 0761 00 0 00000 EFER NOP TSX (PRNT),4 XGD01630 | 04221 0761 00 0 00000 NOP PZE ENSC,,9 XGD01640 | 04222 0074 00 4 73606 TSX (TAPE),4 REWIND SINGLE COMPILE LISTING OUTPUT TAPE. XGD01650 04223 0 20000 0 06311 PZE REWIND,,(SKBP) XGD01660 | 04224 -0 00002 0 00000 MZE ,,SLSTAP XGD01670 | 04225 0074 00 4 05005 TSX PRINT,4 SPACE 1 LINE. XGD01680 | 04226 0 06036 0 06012 PZE 20BLKS,,END20 XGD01690 | 04227 0074 00 4 05005 TSX PRINT,4 SPACE 1 LINE. XGD01700 04230 0 06036 0 06012 PZE 20BLKS,,END20 XGD01710 | 04231 0074 00 4 05005 TSX PRINT,4 SPACE 1 LINE. XGD01720 | 04232 0 06036 0 06012 PZE 20BLKS,,END20 XGD01730 | 04233 0074 00 4 05005 TSX PRINT,4 SPACE 1 LINE. XGD01740 | 04234 0 06036 0 06012 PZE 20BLKS,,END20 XGD01750 04235 0074 00 4 73643 TSX (SECL),4 *READ SOURCE ERROR RECORD. XGD01760 | 04236 0 00000 0 00000 PZE XGD01770 | 04237 0 00000 0 00000 XGD01780 | 04240 0 00000 0 00000 XGD01790 | 04241 0 00000 0 00000 XGD01800 XGD01810 | *************************************************************XGD01820 | XGD01830 | | BINARY CARD NO. 9D000011 04242 606060606060 END BCD 7 XGD01840 | 04251 254524604626 BCD END OF DIAGNOSTIC PROGRAM RESULTS XGD01850 | 04263 606060606060 BCD XGD01860 | | BINARY CARD NO. 9D000012 04275 475146275121 BCD PROGRAM CANNOT BE CONTINUED XGD01870 | 04307 606060606060 EBX BCI , *THIS STATEMENT HAS NO FORMULA NUMBER. THE FORMXGD01880 | | BINARY CARD NO. 9D000013 | 04321 644321604564 BCI ,ULA NUMBER ASSIGNED XGD01890 04333 606060606060 BCI , A NEIGHBORING STATEMENT IS GIVEN. XGD01900 | | BINARY CARD NO. 9D000014 | 04345 606060606060 NEARBT BCD 1 XGD01910 | 04346 0 00000 0 00000 XGD01920 04347 0 00000 0 00000 XGD01930 | 04350 0 00000 0 00000 XGD01940 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 5 | | XGD01950 *************************************************************XGD01960 | XGD01970 | 04351 0500 00 0 04363 OLNT CLA SKSPE **ROUTINE FOR ON-LINE, NO OFF-LINE MESSAGE XGD01980 | 04352 0601 00 0 04777 STO SPERR DO NOT PRINT --SOURCE PROGRAM ERROR--. XGD01990 | 04353 0500 00 0 06335 CLA TSXPRN PRINT ON-LINE. XGD02000 04354 0601 00 0 05036 STO PRINT1 XGD02010 | 04355 0601 00 0 05074 STO PRINT2 XGD02020 | 04356 0500 00 0 04364 CLA DNWT1 DO NOT WRITE MESSAGE ON OUTPUT TAPE. XGD02030 | 04357 0601 00 0 05040 STO PARAM1+1 XGD02040 | 04360 0500 00 0 04365 CLA DNWT2 XGD02050 04361 0601 00 0 05076 STO PARAM2+1 XGD02060 | 04362 0020 00 4 00001 TRA 1,4 *RETURN TO CALLER. XGD02070 | 04363 0020 00 0 05003 SKSPE TRA SVIR4 XGD02080 | 04364 0020 00 0 05044 DNWT1 TRA MLIST1+2 XGD02090 | 04365 0020 00 0 05102 DNWT2 TRA MLIST2+2 XGD02100 XGD02110 | *************************************************************XGD02120 | XGD02130 | 04366 0074 00 4 04351 RDIAG TSX OLNT,4 **ROUTINE TO PRINT MESSAGE ABOUT UNLISTED XGD02140 | 04367 0074 00 4 04650 TSX TITL,4 STOP (NOT WRITTEN ON OUTPUT TAPE) XGD02150 04370 0534 00 1 06255 LXA SAVE1,1 GET CONTENTS OF IR 1 WHEN DIAG. WAS CALLED.XGD02160 | 04371 0754 00 1 00000 PXA 0,1 XGD02170 | | BINARY CARD NO. 9D000015 | 04372 0074 00 4 04635 TSX OCTBCD,4 CONVERT IR1 CONTENTS TO BCD. XGD02180 04373 0602 00 0 05403 SLW IR1 INSERT BCD IN MESSAGE. XGD02190 | 04374 0535 00 1 06255 LAC SAVE1,1 DO SAME FOR COMPLEMENT OF IR1. XGD02200 | 04375 0754 00 1 00000 PXA 0,1 XGD02210 | 04376 0074 00 4 04635 TSX OCTBCD,4 XGD02220 | 04377 0602 00 0 05427 SLW IR1C XGD02230 04400 0534 00 1 06256 LXA SAVE2,1 DO SAME FOR IR2 AS FOR IR1. XGD02240 | 04401 0754 00 1 00000 PXA 0,1 XGD02250 | 04402 0074 00 4 04635 TSX OCTBCD,4 XGD02260 | 04403 0602 00 0 05477 SLW IR2 XGD02270 | 04404 0500 00 0 06265 CLA ERWORD DO SAME FOR AC DECREMENT. XGD02280 04405 0771 00 0 00022 ARS 18 XGD02290 | 04406 0074 00 4 04635 TSX OCTBCD,4 XGD02300 | 04407 0602 00 0 05547 SLW ACDEC XGD02310 | 04410 0074 00 4 05005 TSX PRINT,4 PRINT MESSAGE. XGD02320 | 04411 0 05674 0 05376 PZE PR10,,X4 XGD02330 04412 0500 00 0 06310 DIGRTN CLA L(4) **MACHINE ERROR RETURN XGD02340 | 04413 0601 00 0 73664 STO (MSLN) SIGNAL TO MACHINE ERROR RECORD XGD02350 | 04414 0074 00 4 73644 TSX (MECL),4 *READ MACHINE ERROR RECORD. XGD02360 | 04415 0 00000 0 00000 PZE XGD02370 | XGD02380 *************************************************************XGD02390 | XGD02400 | ENTER WITH INTERNAL FORMULA NUMBER IN ADDRESS OF AC XGD02410 | EXIT WITH EXTERNAL FORMULA NUMBER, OR NEAREST XGD02420 | PRECEEDING, IN BCD. SAVE WITH SLW. XGD02430 NUMBER WILL BE FOLLOWED BY ASTERISK WHEN XGD02440 | EXACT MATCH NOT FOUND. XGD02450 | XGD02460 | 04416 0767 00 0 00022 EXBETA ALS 18 **MOVE IFN INTO DECREMENT FIELD. XGD02470 | 04417 0622 00 0 04452 STD BETAEX XGD02480 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 6 | | BINARY CARD NO. 9D000016 | 04420 0634 00 4 04444 SXA XB4,4 SAVE LOCATION OF THE CALLER. XGD02490 | 04421 0520 00 0 06326 ZET EXER WAS FLAG SET FOR ERROR IN READ-IN XGD02500 04422 0020 00 0 04456 TRA ERPRNT PRINT THAT STATEMENT NOS. MAY BE INCORRECT.XGD02510 | 04423 0774 00 4 00000 INCOR AXT **,4 ADDRESS CONTAINS TEIFNO WORD COUNT. XGD02520 | 04424 0500 00 4 00000 XB1 CLA **,4 SEARCH TEIFNO FOR CORRESPONDING EFN. XGD02530 | 04425 -0320 00 0 06262 ANA DECMSK XGD02540 | 04426 0340 00 0 04452 CAS BETAEX XGD02550 04427 0020 00 0 04432 TRA XB2 XGD02560 | 04430 0020 00 0 04446 TRA XB5 XGD02570 | 04431 2 00001 4 04424 TIX XB1,4,1 XGD02580 | 04432 0500 00 0 06261 XB2 CLA ADDMSK SET TEST TO ADD ASTERISK AT END OF NUMBER XGD02590 | 04433 0601 00 0 04455 STO PRTEST DITTO TO PRINT FOOTNOTE XGD02600 04434 0621 00 0 04440 STA XB3 SET ASTERISK ADDING SWITCH. XGD02610 | 04435 0500 00 4 00000 INTOEX CLA **,4 CONVERT EFN TO BCD. XGD02620 | 04436 -0320 00 0 06261 ANA ADDMSK XGD02630 | 04437 0074 00 4 04601 TSX BINDEC,4 XGD02640 | 04440 0774 00 4 00000 XB3 AXT 0,4 TEST SWITCH FOR ADDING ASTERISK. XGD02650 04441 -3 00000 4 04444 TXL XB4,4,0 XGD02660 | 04442 0560 00 0 04453 LDQ ASTRSK XGD02670 | 04443 -0763 00 0 00006 LGL 6 ADD ASTERISK XGD02680 | 04444 0774 00 4 00000 XB4 AXT 0,4 XGD02690 | 04445 0020 00 4 00001 TRA 1,4 *RETURN TO CALLER. XGD02700 | BINARY CARD NO. 9D000017 | 04446 0634 00 0 04440 XB5 SXA XB3,0 DO NOT PRINT FOOTNOTE, SET ADDRESS TO ZERO.XGD02710 | 04447 0020 00 0 04435 TRA INTOEX XGD02720 | 04450 0 00000 0 00000 XGD02730 04451 0 00000 0 00000 XGD02740 | 04452 0 00000 0 00000 BETAEX PZE XGD02750 | 04453 546060606060 ASTRSK BCD 1* XGD02760 | 04454 3 05672 0 16050 XBRTEI IORT TEIFIN-2,,TFNSIZ XGD02770 | 04455 0 00000 0 00000 PRTEST PZE XGD02780 04456 0074 00 4 05005 ERPRNT TSX PRINT,4 XGD02790 | 04457 0 06060 0 06037 PZE EXBERR,,EXBERR+17 XGD02800 | 04460 0020 00 0 04423 TRA INCOR XGD02810 | XGD02820 | *************************************************************XGD02830 XGD02840 | 04461 -0634 00 4 04503 FX4PR SXD IR4,4 **THIS ROUTINE PRINTS ALPH DO BETA FOR I XGD02850 | 04462 0500 00 0 06257 CLA ALFBET GETS ALPHA, OR NEAREST PRECEDING ALPHA, XGD02860 | 04463 0771 00 0 00022 ARS 18 AND BETA FROM WORD ALFBET, SYMBOL XGD02870 | 04464 -0320 00 0 06261 ANA ADDMSK FROM WORD SYM XGD02880 04465 0074 00 4 04416 TSX EXBETA,4 XGD02890 | 04466 0602 00 0 04510 SLW DOALF BLANKS ARE TO RIGHT OF WORD XGD02900 | 04467 0500 00 0 06257 CLA ALFBET XGD02910 | 04470 -0320 00 0 06261 ANA ADDMSK XGD02920 | 04471 0074 00 4 04416 TSX EXBETA,4 XGD02930 04472 0074 00 4 04565 TSX LAJUST,4 ADJUST FOR TRAILING BLANKS XGD02940 | 04473 0602 00 0 04512 SLW DOBET XGD02950 | | BINARY CARD NO. 9D000018 | 04474 -0500 00 0 06260 CAL SYM XGD02960 04475 0074 00 4 04520 TSX ZEROUT,4 UNPACK WORD XGD02970 | 04476 0602 00 0 04514 SLW DOSYM XGD02980 | 04477 0074 00 4 05005 TSX PRINT,4 XGD02990 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 7 | 04500 0 04515 0 04504 PZE PRDO,,PRDO+9 XGD03000 | 04501 -0534 00 4 04503 LXD IR4,4 XGD03010 | 04502 0020 00 4 00001 TRA 1,4 *RETURN TO CALLER. XGD03020 | 04503 0000 00 0 00000 IR4 HTR ** XGD03030 | 04504 606060606060 PRDO BCD 4 XGD03040 04510 0000 00 0 00000 DOALF HTR ** XGD03050 | 04511 606024466060 BCD 1 DO XGD03060 | 04512 0000 00 0 00000 DOBET HTR ** XGD03070 | 04513 602646516060 BCD 1 FOR XGD03080 | 04514 0000 00 0 00000 DOSYM HTR ** XGD03090 04515 0 00000 0 00000 XGD03100 | 04516 0 00000 0 00000 XGD03110 | 04517 0 00000 0 00000 XGD03120 | XGD03130 | *************************************************************XGD03140 XGD03150 | 04520 -0634 00 4 04540 ZEROUT SXD ZER6,4 **ENTER CAL BCD WORD WHICH FORTRAN HAS STOREDXGD03160 | 04521 -0534 00 4 04541 LXD SIX,4 LEFT ADJUSTED, FOLLOWED BY 1 BLANK AND XGD03170 | | BINARY CARD NO. 9D000019 04522 0602 00 0 04537 ZER1 SLW ZER5 PADDLED OUT WITH ZEROS XGD03180 | 04523 -0320 00 0 06301 ANA CHMASK IE., OCT 000000000077 XGD03190 | 04524 -0100 00 0 04530 TNZ ZER2 XGD03200 | 04525 -0500 00 0 04537 CAL ZER5 LAST CHARACTER WAS ZERO XGD03210 | 04526 0771 00 0 00006 ARS 6 SHIFT OUT OF AC XGD03220 04527 2 00001 4 04522 TIX ZER1,4,1 XGD03230 | 04530 -0500 00 0 04537 ZER2 CAL ZER5 XGD03240 | 04531 0560 00 0 06264 LDQ BLANKS XGD03250 | 04532 3 00005 4 04535 ZER3 TXH ZER4,4,5 XGD03260 | 04533 -0763 00 0 00006 LGL 6 NOW SHIFT IN A BLANK FOR EVERY 0 TAKEN OUT XGD03270 04534 1 00001 4 04532 TXI ZER3,4,1 XGD03280 | 04535 -0534 00 4 04540 ZER4 LXD ZER6,4 LEAVE, BCD AND BLANKS, MUST BE SAVED XGD03290 | 04536 0020 00 4 00001 TRA 1,4 *WITH SLW. RETURN TO CALLER. XGD03300 | 04537 0000 00 0 00000 ZER5 HTR ** XGD03310 | 04540 0000 00 0 00000 ZER6 HTR ** XGD03320 04541 0 00006 0 00000 SIX PZE ,,6 XGD03330 | 04542 0 00000 0 00000 XGD03340 | 04543 0 00000 0 00000 XGD03350 | 04544 0 00000 0 00000 XGD03360 | XGD03370 *************************************************************XGD03380 | XGD03390 | 04545 0602 00 0 04557 RAJUST SLW RAJ1 **ENTER, CAL BCD, LEFT ADJUSTED PLUS BLANKS XGD03400 | 04546 -0320 00 0 06301 ANA CHMASK IE., OCT 000000000077 XGD03410 | 04547 0402 00 0 04560 SUB 01BLNK XGD03420 | BINARY CARD NO. 9D000020 | 04550 -0100 00 0 04555 TNZ RAJ2 XGD03430 | 04551 -0500 00 0 04557 CAL RAJ1 YES, MOVE WORD AND ADD BLANK AT FRONT XGD03440 | 04552 0771 00 0 00006 ARS 6 IS LAST CHARACTER A BLANK XGD03450 04553 0361 00 0 04561 ACL RBLNK XGD03460 | 04554 0020 00 0 04545 TRA RAJUST XGD03470 | 04555 -0500 00 0 04557 RAJ2 CAL RAJ1 LEAVES AC WITH LEADING BLANKS, MUST BE XGD03480 | 04556 0020 00 4 00001 TRA 1,4 *SAVED WITH SLW. RETURN TO CALLER. XGD03490 | 04557 0000 00 0 00000 RAJ1 HTR ** XGD03500 04560 000000000060 01BLNK BCD 100000 XGD03510 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 8 | | 04561 600000000000 RBLNK BCD 1 00000 XGD03520 | 04562 0 00000 0 00000 XGD03530 04563 0 00000 0 00000 XGD03540 | 04564 0 00000 0 00000 XGD03550 | XGD03560 | *************************************************************XGD03570 | XGD03580 04565 0560 00 0 04575 LAJUST LDQ BLNKO **ENTER, CAL BCD NUMBER, LEADING BLANKS XGD03590 | 04566 0140 00 0 04567 LAJ1 TOV LAJ2 TURN OFF INDICATOR XGD03600 | 04567 -0763 00 0 00001 LAJ2 LGL 1 NUMBER HAS ZERO ZONE, BLANK WILL TURN XGD03610 | 04570 -0140 00 0 04573 TNO LAJ3 ON INDICATOR XGD03620 | 04571 -0763 00 0 00005 LGL 5 XGD03630 04572 0020 00 0 04566 TRA LAJ1 XGD03640 | 04573 0771 00 0 00001 LAJ3 ARS 1 FIRST BIT FROM Q BACK TO P XGD03650 | 04574 0020 00 4 00001 TRA 1,4 *EXIT TRAILING BLANKS,MUST BE SAVED WITH SLWXGD03660 | 04575 606060606000 BLNKO BCD 1 0 WILL STOP ROUTINE IF WORD IS ALL BLANKS. XGD03670 | BINARY CARD NO. 9D000021 | 04576 0 00000 0 00000 XGD03680 | 04577 0 00000 0 00000 XGD03690 | 04600 0 00000 0 00000 XGD03700 | XGD03710 *************************************************************XGD03720 | XGD03730 | ENTER, BINARY NUMBER IN ADDRESS AC. EXIT DECIMAL XGD03740 | NUMBER IN BCD IN LOGICAL PORTION OF AC. MUST BE XGD03750 | SAVED WITH SLW XGD03760 04601 0760 00 0 00003 BINDEC SSP **JUST IN CASE, SET AC PLUS. XGD03770 | 04602 0765 00 0 00043 LRS 35 XGD03780 | 04603 -0634 00 4 04622 SXD BINA,4 XGD03790 | 04604 -0534 00 4 04617 LXD BINB,4 XGD03800 | 04605 0500 00 0 04623 CNV CLA TEN IF MQ LESS THAN 10, CONVERSION IS FINISHED XGD03810 04606 0040 00 0 04613 TLQ FIN XGD03820 | 04607 -0754 00 0 00000 PXD 0,0 XGD03830 | 04610 0221 00 0 04623 DVP TEN XGD03840 | 04611 0602 00 4 04632 SLW DIG,4 SAVE REMAINDER IN 1 WORD OF BLOCK XGD03850 | 04612 1 00001 4 04605 TXI CNV,4,1 UP WORD COUNT OF BLOCK XGD03860 04613 -0600 00 4 04632 FIN STQ DIG,4 XGD03870 | 04614 -0500 00 0 06264 CAL BLANKS START WITH BLANKS XGD03880 | 04615 0767 00 0 00006 DEC ALS 6 AND BRING IN REMAINDER FROM ABOVE XGD03890 | 04616 -0501 00 4 04632 ORA DIG,4 XGD03900 | 04617 2 00001 4 04615 BINB TIX DEC,4,1 XGD03910 04620 -0534 00 4 04622 LXD BINA,4 XGD03920 | 04621 0020 00 4 00001 TRA 1,4 *RETURN TO CALLER. XGD03930 | 04622 0000 00 0 00000 BINA HTR ** XGD03940 | 04623 +000000000012 TEN DEC 10 XGD03950 | 04632 DIG BES 6 XGD03960 | BINARY CARD NO. 9D000022 | 04632 0 00000 0 00000 XGD03970 | 04633 0 00000 0 00000 XGD03980 | 04634 0 00000 0 00000 XGD03990 XGD04000 | *************************************************************XGD04010 | XGD04020 | ENTER WITH OCTAL NUMBER IN ADDRESS OF AC. EXIT OCTAL XGD04030 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 9 | CONVERTED TO BCD IN LOGICAL PORTION OF AC. THIS MUST XGD04040 | BE SAVED WITH SLW XGD04050 | 04635 0765 00 0 00017 OCTBCD LRS 15 **ENTER WITH WORD IN ADDRESS OF AC. XGD04060 | 04636 0500 00 0 04644 CLA BLANK AC ZERO EXEPT FOR END BLANK XGD04070 04637 -0140 00 0 04640 TNO OCT TURN OFF INDICATOR XGD04080 | 04640 0767 00 0 00003 OCT ALS 3 XGD04090 | 04641 0763 00 0 00003 LLS 3 XGD04100 | 04642 -0140 00 0 04640 TNO OCT END BLANK WILL TURN ON INDICATOR XGD04110 | 04643 0020 00 4 00001 TRA 1,4 *RETURN TO CALLER. XGD04120 04644 000000000060 BLANK BCD 100000 XGD04130 | 04645 0 00000 0 00000 XGD04140 | 04646 0 00000 0 00000 XGD04150 | 04647 0 00000 0 00000 XGD04160 | XGD04170 *************************************************************XGD04180 | XGD04190 | 04650 0634 00 4 05003 TITL SXA SVIR4,4 **ROUTINE TO PRINT DIAGNOSTIC HEADING XGD04200 | 04651 0534 00 4 06303 LXA FTREC,4 GET FORTRAN RECORD NUMBER. XGD04210 | 04652 -3 00237 4 05367 TXL EROR,4,159 *TAPE MAY BE IMPROPERLY POSITIONED. XGD04220 04653 3 00477 4 05367 TXH EROR,4,319 *TAPE MAY BE IMPROPERLY POSITIONED. XGD04230 | 04654 0500 60 0 73660 CLA* (FGBX) CHECK FOR MONITOR OR SINGLE COMPILE MODE. XGD04240 | 04655 0120 00 0 05211 TPL SINGLE TRANSFER IF SINGLE COMPILE. XGD04250 | 04656 0074 00 4 73606 TSX (TAPE),4 POSITION TAPE IN FRONT OF PAGE TITLE. XGD04260 | 04657 -0 20002 0 06312 MZE BSR,,(SKDP) XGD04270 | BINARY CARD NO. 9D000023 | 04660 -0 00006 0 00000 MZE ,,MLSTAP XGD04280 | 04661 0074 00 4 73606 TSX (TAPE),4 READ PAGE TITLE. XGD04290 | 04662 -0 40012 0 05172 MZE RPT,,(RDNC) XGD04300 04663 -0 00006 0 00000 MZE ,,MLSTAP XGD04310 | 04664 0 00000 0 04665 PZE *+1 XGD04320 | 04665 -0534 00 4 73651 LXD (PGCT),4 GET NO. OF LINES PER PAGE FOR OUTPUT TAPE. XGD04330 | 04666 0634 00 4 06337 SXA NOLINE,4 SAVE NUMBER OF LINES. XGD04340 | 04667 0074 00 4 05005 OLPR TSX PRINT,4 SPACE 1 LINE. XGD04350 04670 0 06036 0 06012 PZE 20BLKS,,END20 XGD04360 | 04671 0074 00 4 05005 TSX PRINT,4 SPACE 1 LINE. XGD04370 | 04672 0 06036 0 06012 PZE 20BLKS,,END20 XGD04380 | 04673 0074 00 4 05005 TSX PRINT,4 PRINT --FORTRAN DIAGNOSTIC RESULTS--. XGD04390 | 04674 0 04074 0 04057 PZE TITLE,,RECNB XGD04400 04675 0074 00 4 05005 TSX PRINT,4 SPACE 1 LINE. XGD04410 | 04676 0 06036 0 06012 PZE 20BLKS,,END20 XGD04420 | 04677 0074 00 4 05005 TSX PRINT,4 SPACE 1 LINE. XGD04430 | 04700 0 06036 0 06012 PZE 20BLKS,,END20 XGD04440 | 04701 0534 00 4 06303 LXA FTREC,4 GET FORTRAN RECORD NUMBER. XGD04450 04702 3 00251 4 04707 TXH FTS1DP,4,169 IS RECORD IN SECTION 1 PRIME. XGD04460 | 04703 0500 00 0 04144 CLA SEC1P+1 YES, SET 1 PRIME IN DIAGNOSTIC HEADING. XGD04470 | 04704 0601 00 0 04100 STO SECNB+1 XGD04480 | 04705 0500 00 0 04143 CLA SEC1P XGD04490 | BINARY CARD NO. 9D000024 | 04706 0020 00 0 04733 TRA SVSEC XGD04500 | 04707 3 00263 4 04716 FTS1DP TXH FTS2,4,179 IS RECORD IN SECTION 1 DOUBLE PRIME. XGD04510 | 04710 0500 00 0 04142 CLA SEC1DP+2 YES, SET 1 DOUBLE PRIME IN DIAG. HEADING XGD04520 | 04711 0601 00 0 04101 STO SECNB+2 XGD04530 04712 0500 00 0 04141 CLA SEC1DP+1 XGD04540 | 04713 0601 00 0 04100 STO SECNB+1 XGD04550 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 10 | | 04714 0500 00 0 04140 CLA SEC1DP XGD04560 04715 0020 00 0 04733 TRA SVSEC XGD04570 | 04716 3 00333 4 04721 FTS2 TXH FTS3,4,219 IS RECORD IN SECTION 2. XGD04580 | 04717 0500 00 0 04145 CLA SEC2 YES, SET SECTION 2 IN DIAGNOSTIC HEADING. XGD04590 | 04720 0020 00 0 04733 TRA SVSEC XGD04600 | 04721 3 00345 4 04724 FTS3 TXH FTS4,4,229 IS RECORD IN SECTION 3. XGD04610 04722 0500 00 0 04146 CLA SEC3 YES, SET SECTION 3 IN DIAGNOSTIC HEADING. XGD04620 | 04723 0020 00 0 04733 TRA SVSEC XGD04630 | 04724 3 00403 4 04727 FTS4 TXH FTS5,4,259 IS RECORD IN SECTION 4. XGD04640 | 04725 0500 00 0 04147 CLA SEC4 YES, SET SECTION 4 IN DIAGNOSTIC HEADING. XGD04650 | 04726 0020 00 0 04733 TRA SVSEC XGD04660 04727 3 00453 4 04732 FTS5 TXH FTS6,4,299 IS RECORD IN SECTION 5. XGD04670 | 04730 0500 00 0 04150 CLA SEC5 YES, SET SECTION 5 IN DIAGNOSTIC HEADING. XGD04680 | 04731 0020 00 0 04733 TRA SVSEC XGD04690 | 04732 0500 00 0 04151 FTS6 CLA SEC6 RECORD IS IN SECTION 6. XGD04700 | 04733 0601 00 0 04077 SVSEC STO SECNB XGD04710 | BINARY CARD NO. 9D000025 | 04734 0500 00 0 06303 CLA FTREC GET FORTRAN RECORD NUMBER. XGD04720 | 04735 0074 00 4 04601 TSX BINDEC,4 CONVERT THIS NUMBER TO BCD DECIMAL NUMBER. XGD04730 | 04736 0044 00 0 00000 PAI XGD04740 04737 0054 00 000077 RFT 77 TEST FOR ZERO FRACTION. XGD04750 | 04740 0020 00 0 04743 TRA .N NON ZERO. XGD04760 | 04741 -0501 00 0 04644 ORA BLANK ZERO FRACTION, ELIMINATE IT. XGD04770 | 04742 0020 00 0 04747 TRA .ZERO XGD04780 | 04743 0765 00 0 00006 .N LRS 6 INSERT DECIMAL POINT. XGD04790 04744 0767 00 0 00006 ALS 6 XGD04800 | 04745 -0501 00 0 04056 ORA POINT XGD04810 | 04746 0763 00 0 00006 LLS 6 XGD04820 | 04747 0074 00 4 04565 .ZERO TSX LAJUST,4 XGD04830 | 04750 0602 00 0 04132 SLW FOREC PUT RECORD NUMBER IN HEADING. XGD04840 04751 0074 00 4 05005 TSX PRINT,4 PRINT SECTION AND RECORD NUMBERS. XGD04850 | 04752 0 04133 0 04074 PZE RECNB,,LOC XGD04860 | 04753 0500 00 0 06304 CLA SAVE4 XGD04870 | 04754 -0737 00 4 00000 PDC ,4 FIND LOCATION OF TSX IN SECTION THAT XGD04880 | 04755 0754 00 4 00000 PXA ,4 CAUGHT ERROR. XGD04890 04756 0074 00 4 04635 TSX OCTBCD,4 CHANGE LOCATION TO BCD AND INSERT IN XGD04900 | 04757 0602 00 0 06274 SLW ERAS DIAGNOSTIC HEADING. XGD04910 | 04760 -0500 00 0 04136 CAL LOC+3 MAKE INSERTION LOOK PRETTY. XGD04920 | 04761 0771 00 0 00030 ARS 24 XGD04930 | BINARY CARD NO. 9D000026 | 04762 0560 00 0 06274 LDQ ERAS XGD04940 | 04763 -0763 00 0 00030 LGL 24 XGD04950 | 04764 0602 00 0 04136 SLW LOC+3 XGD04960 | 04765 -0763 00 0 00014 LGL 12 XGD04970 04766 0560 00 0 06264 LDQ BLANKS XGD04980 | 04767 -0763 00 0 00030 LGL 24 XGD04990 | 04770 0602 00 0 04137 SLW LOC+4 XGD05000 | 04771 0074 00 4 05005 TSX PRINT,4 PRINT LOCATION. XGD05010 | 04772 0 04140 0 04133 PZE LOC,,LOC+5 XGD05020 04773 0074 00 4 05005 TSX PRINT,4 SPACE 1 LINE. XGD05030 | 04774 0 06036 0 06012 PZE 20BLKS,,END20 XGD05040 | 04775 0074 00 4 05005 TSX PRINT,4 SPACE 1 LINE. XGD05050 | 04776 0 06036 0 06012 PZE 20BLKS,,END20 XGD05060 | 04777 0074 00 4 05005 SPERR TSX PRINT,4 PRINT --SOURCE PROGRAM ERROR--. XGD05070 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 11 | | 05000 0 06274 0 06266 PZE SOURCE,,SOURCE+6 XGD05080 | 05001 0074 00 4 05005 TSX PRINT,4 SPACE 1 LINE. XGD05090 | 05002 0 06036 0 06012 PZE 20BLKS,,END20 XGD05100 05003 0774 00 4 00000 SVIR4 AXT **,4 RESTORE IR4. XGD05110 | 05004 0020 00 4 00001 TRA 1,4 *RETURN TO CALLER. XGD05120 | XGD05130 | *************************************************************XGD05140 | XGD05150 05005 0634 00 4 05113 PRINT SXA PRSV4,4 **ENTRY TO PRINT MONITOR XGD05160 | 05006 0634 00 2 05114 SXA PRSV2,2 SAVE IR2. XGD05170 | 05007 0634 00 1 05115 SXA PRSV1,1 SAVE IR1. XGD05180 | | BINARY CARD NO. 9D000027 05010 0500 00 4 00001 CLA 1,4 XGD05190 | 05011 0621 00 0 05204 STA BUFF FIRST LOCATION OF BCD XGD05200 | 05012 0771 00 0 00022 ARS 18 XGD05210 | 05013 0621 00 0 05205 STA BUFF+1 LAST LOCATION PLUS ONE XGD05220 | 05014 0402 00 0 05204 SUB BUFF FIND NUMBER OF BCD WORDS. XGD05230 05015 0621 00 0 05207 STA BUFF+3 NUMBER OF BCD WORDS XGD05240 | 05016 0402 00 0 05175 SUB TWENTY SEE IF LESS THAN 20 WORDS ARE TO BE PRINTEDXGD05250 | 05017 -0120 00 0 05120 TMI LESS20 LESS THAN 20 WORDS. XGD05260 | 05020 0400 00 0 05175 ADD TWENTY 20 OR MORE WORDS, SO RESTORE COUNT. XGD05270 | 05021 0765 00 0 00043 LRS 35 GET READY TO DIVIDE. XGD05280 05022 0221 00 0 05175 DVP TWENTY FIND NO. OF FULL LINES XGD05290 | 05023 0760 00 0 00012 DCT CHECK DIVIDE. XGD05300 | 05024 0074 00 4 05324 TSX ERR01,4 *NO DIVIDE. MAY BE MACHINE ERROR. XGD05310 | 05025 0601 00 0 05206 STO BUFF+2 NO. OF BCD WORDS NOT PART OF FULL LINE. XGD05320 | 05026 0100 00 0 05202 TZE TWN A MULTIPLE OF 20 WORDS IS TO BE PRINTED. XGD05330 05027 0131 00 0 00000 RTTW2 XCA XGD05340 | 05030 0734 00 1 00000 PAX ,1 NO. OF FULL LINES OF BCD XGD05350 | 05031 0500 00 0 05204 CLA BUFF XGD05360 | 05032 0621 00 0 05037 STA PARAM1 PLACE FIRST LOC. IN CALL TO PRINT ROUTINE. XGD05370 | 05033 0621 00 0 05200 STA RITETA PLACE FIRST LOC IN I/O COMMAND FOR TAPE. XGD05380 05034 0500 00 0 05176 CLA 20DECR PUT 20 IN TAPE I/O COMMAND AS WORD COUNT. XGD05390 | 05035 0622 00 0 05200 STD RITETA XGD05400 | | BINARY CARD NO. 9D000028 | 05036 0020 00 0 05040 PRINT1 TRA PARAM1+1 BECOMES TSX (PRNT),4 IF ON-LINE REQUESTED. XGD05410 05037 0 00024 0 00000 PARAM1 PZE **,,20 XGD05420 | 05040 0074 00 4 73606 TSX (TAPE),4 WRITE MESSAGE ON TAPE. IN SINGLE COMPILE, XGD05430 | 05041 0 40013 0 05200 PZE RITETA,,(WDNC) CHANGED TO WRITE ON SINGLE COMPILE XGD05440 | 05042 -0 00006 0 00000 MLIST1 MZE ,,MLSTAP LISTING OUTPUT TAPE. XGD05450 | 05043 0761 00 0 00000 NOP XGD05460 05044 0500 00 0 05037 CLA PARAM1 INCREMENT FIRST LOC. FOR PRINT ROUTINE. XGD05470 | 05045 0400 00 0 05175 ADD TWENTY XGD05480 | 05046 0621 00 0 05037 STA PARAM1 PUT NEW FIRST LOCATION IN CALLING SEQUENCE.XGD05490 | 05047 0621 00 0 05200 STA RITETA DO SAME FOR I/O COMMAND FOR WRITING TAPE. XGD05500 | 05050 0500 60 0 73661 CLA* (LNCT) UPDATE MONITOR LINE COUNT CELL. XGD05510 05051 0400 00 0 06302 ADD AD1 XGD05520 | 05052 0621 60 0 73661 STA* (LNCT) XGD05530 | 05053 0500 00 0 05174 CLA COUNT UPDATE PAGE LINE COUNTER XGD05540 | 05054 0400 00 0 06302 ADD AD1 XGD05550 | 05055 0601 00 0 05174 STO COUNT XGD05560 05056 0402 00 0 06337 SUB NOLINE IS THE PAGE FINISHED YET. XGD05570 | 05057 -0774 00 2 05061 AXC TIXPR,2 XGD05580 | 05060 0100 00 0 05130 RESPGE TZE RESTOR YES, RESTORE PAGE. (NOP IN SINGLE COMPILE)XGD05590 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 12 | 05061 2 00001 1 05036 TIXPR TIX PRINT1,1,1 GO BACK AND PRINT NEXT LINE. XGD05600 | 05062 0500 00 0 05201 CLA TWNFL SEE IF 20 WORDS OR MULTIPLE TO BE PRINTED. XGD05610 | 05063 -0100 00 0 05113 TNZ PRSV4 NO WORDS LEFT TO BE PRINTED. XGD05620 | | BINARY CARD NO. 9D000029 05064 0500 00 0 05205 CLA BUFF+1 FIND LOCATION OF FIRST BCD WORD XGD05630 | 05065 0402 00 0 05206 SUB BUFF+2 NOT PART OF A FULL LINE. XGD05640 | 05066 0621 00 0 05075 STA PARAM2 PUT FIRST LOC. IN CALL TO PRINT ROUTINE. XGD05650 | 05067 0621 00 0 05200 STA RITETA PUT FIRST LOC. IN I/O COMMAND FOR TAPE. XGD05660 | 05070 0500 00 0 05206 CLA BUFF+2 GET NO. OF WORDS NOT PART OF FULL LINE. XGD05670 05071 0767 00 0 00022 ALS 18 XGD05680 | 05072 0622 00 0 05075 STD PARAM2 STORE NO. OF WORDS IN CALLING SEQUENCE. XGD05690 | 05073 0622 00 0 05200 STD RITETA STORE NO. OF WORDS IN I/O COMMAND. XGD05700 | 05074 0020 00 0 05076 PRINT2 TRA PARAM2+1 BECOMES TSX (PRNT),4 IF ON-LINE REQUESTED. XGD05710 | 05075 0 00000 0 00000 PARAM2 PZE **,,** XGD05720 05076 0074 00 4 73606 TSX (TAPE),4 IN SINGLE COMPILE, CHANGED TO WRITE ON XGD05730 | 05077 0 40013 0 05200 PZE RITETA,,(WDNC) SINGLE COMPILE LISTING OUTPUT TAPE. XGD05740 | 05100 -0 00006 0 00000 MLIST2 MZE ,,MLSTAP XGD05750 | 05101 0761 00 0 00000 NOP XGD05760 | 05102 0500 60 0 73661 CLA* (LNCT) UPDATE MONITOR LINE COUNT CELL. XGD05770 05103 0400 00 0 06302 ADD AD1 XGD05780 | 05104 0621 60 0 73661 STA* (LNCT) XGD05790 | 05105 0500 00 0 05174 CLA COUNT UPDATE PAGE LINE COUNTER. XGD05800 | 05106 0400 00 0 06302 ADD AD1 XGD05810 | 05107 0601 00 0 05174 STO COUNT XGD05820 05110 0402 00 0 06337 SUB NOLINE IS PAGE FINISHED YET. XGD05830 | 05111 -0774 00 2 05113 AXC PRSV4,2 XGD05840 | | BINARY CARD NO. 9D000030 | 05112 0100 00 0 05130 RSPG TZE RESTOR YES, RESTORE PAGE. (NOP IN SINGLE COMPILE)XGD05850 05113 0774 00 4 00000 PRSV4 AXT **,4 RESTORE IR4. XGD05860 | 05114 0774 00 2 00000 PRSV2 AXT **,2 RESTORE IR2. XGD05870 | 05115 0774 00 1 00000 PRSV1 AXT **,1 RESTORE IR1. XGD05880 | 05116 0600 00 0 05201 STZ TWNFL XGD05890 | 05117 0020 00 4 00002 TRA 2,4 *RETURN TO CALLER XGD05900 05120 0500 00 0 05207 LESS20 CLA BUFF+3 LESS THAN 20 WORDS TO BE PRINTED. XGD05910 | 05121 0767 00 0 00022 ALS 18 XGD05920 | 05122 0622 00 0 05075 STD PARAM2 PUT NO. OF WORDS IN PRINT CALLING SEQUENCE.XGD05930 | 05123 0622 00 0 05200 STD RITETA PUT NO. OF WORDS IN TAPE I/O COMMAND. XGD05940 | 05124 0500 00 0 05204 CLA BUFF GET LOC. OF FIRST WORD. XGD05950 05125 0621 00 0 05075 STA PARAM2 PUT IN PRINT CALLING SEQUENCE. XGD05960 | 05126 0621 00 0 05200 STA RITETA PUT IN TAPE I/O COMMAND. XGD05970 | 05127 0020 00 0 05074 TRA PRINT2 XGD05980 | XGD05990 | 05130 0500 60 0 73661 RESTOR CLA* (LNCT) **RESTORE PAGE WHEN IT IS FILLED. XGD06000 05131 0400 00 0 06323 ADD SK1DF XGD06010 | 05132 0622 60 0 73661 STD* (LNCT) XGD06020 | 05133 -0734 00 4 00000 PDX ,4 GET PAGE NUMBER. XGD06030 | 05134 0754 00 4 00000 PXA ,4 XGD06040 | 05135 0074 00 4 04601 TSX BINDEC,4 XGD06050 05136 0074 00 4 04565 TSX LAJUST,4 XGD06060 | 05137 0602 00 0 05171 SLW PGNO XGD06070 | | BINARY CARD NO. 9D000031 | 05140 0074 00 4 73606 TSX (TAPE),4 WRITE PAGE HEADING. XGD06080 05141 0 40013 0 05172 PZE RPT,,(WDNC) XGD06090 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 13 | | 05142 -0 00006 0 00000 MZE ,,MLSTAP XGD06100 | 05143 0074 00 4 73606 TSX (TAPE),4 XGD06110 05144 0 40013 0 05173 PZE WPT,,(WDNC) XGD06120 | 05145 -0 00006 0 00000 MZE ,,MLSTAP XGD06130 | 05146 0600 00 0 05174 STZ COUNT INITIALIZE FOR START OF NEW PAGE. XGD06140 | 05147 0020 00 2 00000 TRA ,2 *GO ON TO NEXT PAGE. XGD06150 | 05150 016060606060 PGTITL BCI 8,1 XGD06160 05160 606060606060 BCI 8, XGD06170 | | BINARY CARD NO. 9D000032 | 05170 604721272560 BCI 1, PAGE XGD06180 | 05171 605454606060 PGNO BCI 1, ** XGD06190 05172 3 00022 0 05150 RPT IORT PGTITL,,18 XGD06200 | 05173 3 00005 0 06012 WPT IORT 20BLKS,,5 XGD06210 | 05174 0 00000 0 00000 COUNT PZE ** XGD06220 | 05175 +000000000024 TWENTY DEC 20 XGD06230 | 05176 0 00024 0 00000 20DECR PZE ,,20 XGD06240 05177 0761 00 0 00000 NOP NOP XGD06250 | 05200 3 00000 0 00000 RITETA IORT **,,** $XGD06260 | 05201 0 00000 0 00000 TWNFL PZE ** XGD06270 | 05202 -0625 00 0 05201 TWN STL TWNFL SET FLAG FOR MULTIPLE OF 20 WORDS. XGD06280 | 05203 0020 00 0 05027 TRA RTTW2 XGD06290 05204 DUP 1,5 XGD06300 | 05204 0 00000 0 00000 BUFF PZE ** COMMON STORAGE XGD06310 | XGD06320 | *************************************************************XGD06330 | XGD06340 05211 0074 00 4 73606 SINGLE TSX (TAPE),4 **REWIND SINGLE COMPILE OUTPUT LISTING TAPE. XGD06350 | 05212 -0 20000 0 06311 MZE REWIND,,(SKBP) XGD06360 | 05213 -0 00002 0 00000 MZE ,,SLSTAP XGD06370 | | BINARY CARD NO. 9D000033 05214 0074 00 4 73606 TSX (TAPE),4 SKIP OVER SOURCE PROGRAM FILE. XGD06380 | 05215 -0 20002 0 06323 MZE SK1DF,,(SKDP) XGD06390 | 05216 -0 00002 0 00000 MZE ,,SLSTAP XGD06400 | 05217 0074 00 4 73606 TSX (TAPE),4 POSITION TAPE IN FRONT OF EOF MARK. XGD06410 | 05220 -0 20000 0 06314 MZE BSF,,(SKBP) XGD06420 05221 -0 00002 0 00000 MZE ,,SLSTAP XGD06430 | 05222 0500 00 0 05177 CLA NOP NOP RESTORING OF PAGE ON OFF-LINE PRINTER. XGD06440 | 05223 0601 00 0 05060 STO RESPGE XGD06450 | 05224 0601 00 0 05112 STO RSPG XGD06460 | 05225 0500 00 0 05252 CLA SGLCOM CHANGE ROUTINE TO WRITE ON SINGLE COMPILE XGD06470 05226 0601 00 0 05042 STO MLIST1 OUTPUT LISTING TAPE. XGD06480 | 05227 0601 00 0 05100 STO MLIST2 XGD06490 | 05230 0500 00 0 05256 CLA ERRET XGD06500 | 05231 0601 00 0 05043 STO MLIST1+1 XGD06510 | 05232 0601 00 0 05101 STO MLIST2+1 XGD06520 05233 0500 00 0 05250 CLA WRIEOF ADD WRITE EOF ON SINGLE COMPILE OUTPUT XGD06530 | 05234 0601 00 0 04214 STO EOFB2 LISTING TAPE. XGD06540 | 05235 0500 00 0 05251 CLA WRIEOF+1 XGD06550 | 05236 0601 00 0 04215 STO EOFB2+1 XGD06560 | 05237 0500 00 0 05252 CLA WRIEOF+2 XGD06570 05240 0601 00 0 04216 STO EOFB2+2 XGD06580 | 05241 0500 00 0 05253 CLA WRIEOF+3 XGD06590 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 14 | | BINARY CARD NO. 9D000034 05242 0601 00 0 04217 STO EOFB2+3 XGD06600 | 05243 0500 00 0 05254 CLA PRENDS ADD TSX (PRNT),4 TO PRINT END SNGLE COMPILEXGD06610 | 05244 0601 00 0 04220 STO EOFB2+4 XGD06620 | 05245 0500 00 0 05255 CLA PRENDS+1 XGD06630 | 05246 0601 00 0 04221 STO EOFB2+5 XGD06640 05247 0020 00 0 04667 TRA OLPR *RETURN. XGD06650 | 05250 0074 00 4 73606 WRIEOF TSX (TAPE),4 XGD06660 | 05251 -0 40015 0 00000 MZE ,,(WEFC) XGD06670 | 05252 -0 00002 0 00000 SGLCOM MZE ,,SLSTAP XGD06680 | 05253 0 00000 0 04220 PZE EFER XGD06690 05254 0074 00 4 73611 PRENDS TSX (PRNT),4 XGD06700 | 05255 0 00011 0 05257 PZE ENSC,,9 XGD06710 | 05256 0 00000 0 05340 ERRET PZE IOER06 XGD06720 | 05257 606060606060 ENSC BCI 9, END OF SINGLE COMPILE. READY CARD READER. XGD06730 | XGD06740 *************************************************************XGD06750 | XGD06760 | | BINARY CARD NO. 9D000035 | 05270 0534 00 1 06305 FIND1 LXA SAVEMQ,1 **ENTRY TO ROUTINE TO READ DUMP TAPE. XGD06770 05271 -3 24725 1 05273 TXL TAPE,1,TOP IS INFORMATION BELOW HIGHEST LOC. DUMPED. XGD06780 | 05272 0020 00 4 00003 BACK TRA 3,4 *NO READING OF TAPE NECESSARY. XGD06790 | 05273 -3 03734 1 05272 TAPE TXL BACK,1,BOTTOM IS INFORMATION BELOW LOWEST LOC. DUMPED. XGD06800 | 05274 0754 00 1 00000 PXA ,1 FIRST LOCATION TO BE READ. XGD06810 | 05275 0402 00 0 05323 SUB SKP FIND NO. OF WORDS TO SKIP ON DUMP TAPE. XGD06820 05276 0767 00 0 00022 ALS 18 XGD06830 | 05277 0622 00 0 05320 STD RDN PUT NO. OF WORDS IN I/O COMMAND. XGD06840 | 05300 0634 00 4 05313 SXA INDX4,4 SAVE INDEX REGISTER 4. XGD06850 | 05301 0500 00 4 00001 CLA 1,4 PICKUP NO. OF WORDS TO BE READ IN AND XGD06860 | 05302 0621 00 0 05321 STA RDT FIRST LOCATION OF AREA INTO WHICH DUMP XGD06870 05303 0622 00 0 05321 STD RDT FROM TAPE A3 WILL BE READ. (FIRST LOC. OF XGD06880 | 05304 0074 00 4 73606 TSX (TAPE),4 BUFFER AREA IS IN ADDR. AND NO. OF WDS. TO XGD06890 | 05305 -0 40010 0 05320 MZE RDN,,(RBNC) BE READ IN IS IN DECR.) XGD06900 | 05306 -0 00006 0 00000 MZE ,,MLSTAP XGD06910 | 05307 0 00000 0 05325 PZE IOER02 XGD06920 05310 0074 00 4 73606 TSX (TAPE),4 REPOSITION DUMP TAPE. XGD06930 | 05311 -0 20000 0 06312 MZE BSR,,(SKBP) XGD06940 | 05312 -0 00006 0 00000 MZE ,,MLSTAP XGD06950 | 05313 0774 00 4 00000 INDX4 AXT **,4 RESTORE INDEX REGISTER 4. XGD06960 | 05314 0020 00 4 00004 TRA 4,4 *TAPE HAS BEEN READ. XGD06970 05315 0500 00 0 05322 FIND2 CLA IND **ENTRY TO ROUTINE TO READ DUMP TAPE WHEN XGD06980 | | BINARY CARD NO. 9D000036 | 05316 0621 00 0 05270 STA FIND1 SECOND PARAMETER IN CALLING SECTION HAS XGD06990 | 05317 0020 00 0 05270 TRA FIND1 LOCATION(S) TO BE DUMPED. XGD07000 05320 -0 00000 2 00000 RDN IOCPN 0,,** XGD07010 | 05321 3 00000 0 00000 RDT IORT **,,** $XGD07020 | 05322 0 00000 0 06306 IND PZE SAVIND ADDRESS HAS LOC. WHERE 2ND PARAMETER STOREDXGD07030 | 05323 0 00000 0 03734 SKP PZE BOTTOM ADDRESS HAS ADDRESS OF 1ST LOCATION DUMPED.XGD07040 | XGD07050 *************************************************************XGD07060 | XGD07070 | 05324 1 00000 0 73603 ERR01 TXI (DIAG),,0 MACHINE ERROR- GO TO I/O PACKAGE. XGD07080 | 05325 0534 00 4 05313 IOER02 LXA INDX4,4 ERROR IN READING DUMP TAPE. XGD07090 | 05326 0020 00 4 00002 TRA 2,4 XGD07100 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 15 | | 05327 -0625 00 0 06326 IOER03 STL EXER ERROR IN READING INTERMED. TAPE WITH TEIFNOXGD07110 | 05330 -0625 00 0 06327 STL LK4END AND END BEFORE THESE HAVE BEEN READ. XGD07120 | 05331 0020 00 4 00004 TRA 4,4 SET FLAGS FOR TEIFNO AND END. XGD07130 05332 -0625 00 0 06326 IOER04 STL EXER ERROR IN READING TAPE BEFORE TEIFNO READ. XGD07140 | 05333 0020 00 4 00004 TRA 4,4 SET FLAG FOR TEIFNO. XGD07150 | 05334 0074 00 4 04650 IOER05 TSX TITL,4 ERROR HAS BEEN IGNORED BY FIND ROUTINE, BUTXGD07160 | 05335 0074 00 4 73606 TSX (TAPE),4 SPECIFIC DIAG. ROUT. CANNOT IGNORE. PRINT XGD07170 | 05336 0 04000 0 06316 PZE DUMP,,(TPER) ERROR MESSAGE AGAIN SAYING -CANNOT IGNORE- XGD07180 05337 0 00006 0 06317 PZE DIAG,,DMPTAP AND THEN GO TO MACHINE ERROR RECORD. XGD07190 | 05340 0634 00 4 06322 IOER06 SXA IR4IO,4 TROUBLE WITH SINGLE COMPILE OUTPUT LISTING.XGD07200 | 05341 0074 00 4 04353 TSX OLNT+2,4 PRINT DIAGNOSTIC ON-LINE ONLY. XGD07210 | 05342 0074 00 4 05005 TSX PRINT,4 XGD07220 | 05343 0 06120 0 06060 PZE WRSGOP,,WRSGOP+32 XGD07230 | BINARY CARD NO. 9D000037 | 05344 0534 00 4 06322 LXA IR4IO,4 XGD07240 | 05345 0020 00 4 00004 TRA 4,4 XGD07250 | 05346 0760 00 0 00163 SSTEST SWT 3 XGD07260 05347 0020 00 0 04027 TRA CONT XGD07270 | 05350 0500 00 0 06335 ONLINE CLA TSXPRN SET ROUTINE TO PRINT ON-LINE. XGD07280 | 05351 0601 00 0 05036 STO PRINT1 XGD07290 | 05352 0601 00 0 05074 STO PRINT2 XGD07300 | 05353 0020 00 0 04027 TRA CONT XGD07310 05354 0074 00 4 73606 BCDB2 TSX (TAPE),4 SKIP OVER BCD SOURCE PROGRAM FILE. XGD07320 | 05355 -0 20002 0 06323 MZE SK1DF,,(SKDP) XGD07330 | 05356 -0 00002 0 06324 MZE ENDT,,SLSTAP XGD07340 | 05357 0020 00 0 03775 TRA BFSC XGD07350 | 05360 0074 00 4 73611 OFLIMS TSX (PRNT),4 COULDN'T GET END SETTING, WRITE TAPE ONLY. XGD07360 05361 0 00024 0 06161 PZE WROFF1,,20 XGD07370 | 05362 0074 00 4 73611 TSX (PRNT),4 XGD07380 | 05363 0 00024 0 06205 PZE WROFF2,,20 XGD07390 | 05364 0074 00 4 73611 TSX (PRNT),4 XGD07400 | 05365 0 00024 0 06231 PZE WROFF3,,20 XGD07410 05366 0020 00 0 04023 TRA CONTE XGD07420 | 05367 0074 00 4 73611 EROR TSX (PRNT),4 PRINT MESSAGE ABOUT TAPE POSITIONING ERROR.XGD07430 | 05370 0 00024 0 06130 PZE WRRECD,,20 XGD07440 | 05371 0074 00 4 73611 TSX (PRNT),4 XGD07450 | BINARY CARD NO. 9D000038 | 05372 0 00005 0 06154 PZE WRRECD+20,,5 XGD07460 | 05373 0074 00 4 73606 TSX (TAPE),4 HAVE I/O PACKAGE PRINT ERROR MESSAGE. XGD07470 | 05374 0 04000 0 06321 PZE ONING,,(TPER) XGD07480 | 05375 0 00002 0 06320 PZE POSITI,,SLSTAP XGD07490 05376 606060606060 PR10 BCI 5, INDEX REGISTER 1 XGD07500 | 05403 606060606060 IR1 BCI 7, XGD07510 | 05412 606060606060 BCI , XGD07520 | | BINARY CARD NO. 9D000039 05424 606060602346 BCI 3, COMPLEMENTED XGD07530 | 05427 606060606060 IR1C BCI 7, XGD07540 | 05436 606060606060 BCI , XGD07550 | | BINARY CARD NO. 9D000040 05450 606060606060 BCI , XGD07560 | 05462 606060606060 BCI , XGD07570 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 16 | | BINARY CARD NO. 9D000041 05474 314524256760 BCI 3,INDEX REGISTER 2 XGD07580 | 05477 606060606060 IR2 BCI 7, XGD07590 | 05506 606060606060 BCI , XGD07600 | 05520 606060606060 BCI , XGD07610 | BINARY CARD NO. 9D000042 | 05532 606060606060 BCI , XGD07620 | 05544 212360242523 BCI 3,AC DECREMENT XGD07630 | 05547 606060606060 ACDEC BCI 7, XGD07640 | BINARY CARD NO. 9D000043 | 05556 606060606060 BCI 8, XGD07650 | 05566 606060606060 BCI , XGD07660 | | BINARY CARD NO. 9D000044 05600 606060606060 BCI , XGD07670 | 05612 606060606060 GDCI BCI , THE GENERAL DIAGNOSTIC CANNOT IDENTIFY SPECIFIC XGD07680 | | BINARY CARD NO. 9D000045 | 05624 255151465133 BCI ,ERROR. THIS MAY BE A MACHINE ERROR. IF, ON RERUNNING THIS XGD07690 05636 606060606060 BCI , PROGRAM, YOU GET THE SAME MESSAGE, PLEASE GIVE TXGD07700 | 05650 302560475131 BCI ,HE PRINT-OUT TO YOUR IBM SYSTEMS ENGINEER AND ASK HIM TO XGD07710 | | BINARY CARD NO. 9D000046 | 05662 606060606060 BCI , SUBMIT AN APAR FORM. XGD07720 05674 606060606060 X4 BCI 9, PLEASE ENCLOSE THE SOURCE PROGRAM DECK. XGD07810 | | BINARY CARD NO. 9D000047 | 05705 606060606060 X5 BCI , NOTE- THE APPEARANCE OF THE ABOVE MESSAGE MORE XGD07820 | 05717 633021456046 BCI ,THAN ONCE INDICATES THAT THE DIAGNOSTIC CANNOT IDENTIFY XGD07830 | BINARY CARD NO. 9D000048 | 05731 606060606060 BCI 8, MORE THAN ONE SOURCE PROGRAM ERROR. XGD07840 | 05741 0 00000 0 00000 X6 PZE XGD07850 | 05742 606060606060 ERR1 BCI , THE GENERAL DIAGNOSTIC IS UNABLE TO IDENTIFY THEXGD07860 | BINARY CARD NO. 9D000049 | 05754 606247252331 BCI , SPECIFIC SOURCE PROGRAM ERROR(S) BECAUSE OF A TAPE ERROR. XGD07870 | 05766 606060606060 BCI , THE FOLLOWING MESSAGE (PRINTED HERE WITH INCOMPLXGD07880 | 06000 256325603145 BCI ,ETE INFORMATION) PERTAINS TO THE SOURCE PROGRAM. XGD07890 | BINARY CARD NO. 9D000050 | 06012 606060606060 20BLKS BCI , XGD07900 | 06024 606060606060 BCI , XGD07910 | BINARY CARD NO. 9D000051 | 06036 0 00000 0 00000 END20 PZE XGD07920 | 06037 606060606060 EXBERR BCI , THE STATEMENT NUMBER(S) IN THE FOLLOWING MESSAGEXGD07930 | 06051 604421706022 BCI 7, MAY BE INCORRECT BECAUSE OF A TAPE ERROR. XGD07940 | BINARY CARD NO. 9D000052 | 06060 606060606060 WRSGOP BCI , THE TAPE ERROR WAS ENCOUNTERED DURING POSITIONINXGD07950 | 06072 276046516066 BCI ,G OR WRITING OF THE SINGLE COMPILE LISTING OUTPUT TAPE. XGD07960 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 17 | BINARY CARD NO. 9D000053 | 06104 606060606060 BCI , THEREFORE, THE DIAGNOSTIC MESSAGE WILL BE PRINTEXGD07970 | 06116 246046454043 BCI ,D ON-LINE ONLY. XGD07980 | 06130 606060606060 WRRECD BCI , THE GENERAL DIAGNOSTIC HAS BEEN READ IN AFTER A XGD07990 | BINARY CARD NO. 9D000054 | 06142 512523465124 BCI ,RECORD WHICH IS NOT PART OF THE COMPILER. POSSIBLE TAPE XGD08000 | 06154 606060606060 BCI 5, POSITIONING ERROR. XGD08010 | | BINARY CARD NO. 9D000055 06161 606060606060 WROFF1 BCI , TAPE ERROR ENCOUNTERED WHILE GENERAL DIAGNOSTIC XGD08020 | 06173 662162604746 BCI ,WAS POSITIONING OR READING AN INTERMEDIATE TAPE. THE XGD08030 | 06205 606060606060 WROFF2 BCI , DIAGNOSTIC WAS ATTEMPTING TO READ END CARD PARAMXGD08040 | | BINARY CARD NO. 9D000056 06217 256325516260 BCI ,ETERS TO DETERMINE IF ON-LINE PRINTING WAS REQUESTED. IN XGD08050 | 06231 606060606060 WROFF3 BCI , THE ABSENCE OF END CARD PARAMETERS, DIAGNOSTIC MXGD08060 | | BINARY CARD NO. 9D000057 | 06243 256262212725 BCI ,ESSAGE WILL BE WRITTEN ON THE OUTPUT TAPE ONLY. XGD08070 *************************************************************XGD08080 | XGD08090 | XGD08100 | 06255 0000 00 0 00000 SAVE1 HTR ** CONTENTS OF IR1. XGD08110 | 06256 0000 00 0 00000 SAVE2 HTR ** CONTENTS OF IR2. XGD08120 06257 0 00000 0 00000 ALFBET PZE TEMPORARY STORAGE FOR IFN. XGD08130 | 06260 0 00000 0 00000 SYM PZE TEMPORARY STORAGE FOR TDO SYMBOL. XGD08140 | 06261 +000000077777 ADDMSK OCT 000000077777 XGD08150 | | BINARY CARD NO. 9D000058 06262 +077777000000 DECMSK OCT 077777000000 XGD08160 | 06263 0 00000 0 00000 ZERO PZE XGD08170 | 06264 606060606060 BLANKS BCD 1 XGD08180 | 06265 0 00000 0 00000 ERWORD PZE ERROR NUMBER XGD08190 | 06266 606060606060 SOURCE BCD 2 XGD08200 06270 624664512325 BCD 4SOURCE PROGRAM ERROR XGD08210 | 06274 DUP 1,5 XGD08220 | 06274 0 00000 0 00000 ERAS PZE ** TEMPORARY STORAGE CELLS XGD08230 | 06301 +000000000077 CHMASK OCT 000000000077 XGD08240 | 06302 0000 00 0 00001 AD1 HTR 1 XGD08250 06303 0 00000 0 00000 FTREC PZE ADDRESS HAS FT REC NUMBER XGD08260 | 06304 0000 00 0 00000 SAVE4 HTR ** CONTENTS OF IR4 XGD08270 | 06305 0000 00 0 00000 SAVEMQ HTR ** CONTENTS OF MQ XGD08280 | 06306 0000 00 0 00000 SAVIND HTR ** CONTENTS OF INDICATORS XGD08290 | 06307 +000000000002 L(2) OCT 2 XGD08300 | BINARY CARD NO. 9D000059 | 06310 +000000000004 L(4) OCT 4 XGD08310 | 06311 0 77777 0 00000 REWIND PZE ,,-1 XGD08320 | 06312 -0 00000 0 00001 BSR MZE 1,,0 XGD08330 06313 0 00000 0 00003 SK3R PZE 3,,0 XGD08340 | 06314 -0 00001 0 00000 BSF MZE ,,1 XGD08350 | 06315 -0 00004 0 00000 BS4F MZE ,,4 $XGD08351 | 06316 246444476060 DUMP BCI 1,DUMP XGD08360 | 06317 243121273360 DIAG BCI 1,DIAG. XGD08370 06320 474662316331 POSITI BCI 1,POSITI XGD08380 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 18 | | 06321 464531452760 ONING BCI 1,ONING XGD08390 | 06322 0 00000 0 00000 IR4IO PZE ** SAVE IR4 FOR ERROR RETURNS FROM I/O PKGE. XGD08400 06323 0 00001 0 00000 SK1DF PZE ,,1 XGD08410 | 06324 254524606060 ENDT BCI 1,END XGD08420 | 06325 0 00003 0 00000 SK3BF PZE ,,3 XGD08430 | 06326 0 00000 0 00000 EXER PZE ** FLAG SET IF ERROR IN READ-IN OF TEIFNO. XGD08440 | 06327 0 00000 0 00000 LK4END PZE ** FLAG SET IF ERROR IN READ-IN OF END. XGD08450 06330 632531264546 TEIFNO BCI 1,TEIFNO XGD08460 | 06331 3 00003 0 06332 ENDTAB IORT ENDPAR,,3 $XGD08470 | 06332 ENDPAR BSS 3 XGD08480 | | BINARY CARD NO. 9D000060 06335 0074 00 4 73611 TSXPRN TSX (PRNT),4 XGD08490 | 06336 0 00000 0 23742 (L)SYM PZE SYMBOL XGD08500 | 06337 0 00000 0 00000 NOLINE PZE ** ADDR. HAS NO. OF LINES PER PAGE (FROM IOP) XGD08510 | 00240 REC4 SYN 160 COMPILER REC. NOS. (X10) FOR ERROR LIST. XGD08520 | 00252 REC5 SYN 170 XGD08530 00264 REC6 SYN 180 XGD08540 | 00276 REC7 SYN 190 XGD08550 | 00310 REC8 SYN 200 XGD08560 | 00322 REC9 SYN 210 XGD08570 | 00334 REC10 SYN 220 XGD08580 00346 REC11 SYN 230 XGD08590 | 00360 REC12 SYN 240 XGD08600 | 00372 REC13 SYN 250 XGD08610 | 00404 REC14 SYN 260 XGD08620 | 00442 REC17 SYN 290 RECORD 29 TIMES 10 $XGD08625 00454 REC18 SYN 300 XGD08630 | 00466 REC19 SYN 310 XGD08640 | XGD08650 | *************************************************************XGD08660 | DIAGNOSTIC ERROR LIST. XGD08680 | XGD08690 | XGD08700 | XGD08710 | *************************************************************XGD08720 XGD08730 | THE ERROR LIST BELOW IS FOR THE CALLS FROM SECTION 1 PRIME XGD08740 | THROUGH SECTION 6 TO THE GENERAL DIAGNOSTIC. FOR EACH XGD08750 | TXI (DIAG),,-N IN THESE SECTIONS, THERE ARE TWO PZE'S XGD08760 | BELOW. THE DECREMENT OF THE FIRST WORD HAS -N, THE CONTENTS XGD08770 OF THE DECREMENT OF THE TXI (DIAG),,-N IN THE CALLING XGD08780 | SECTION. THE SECOND WORD CONTAINS THE RECORD NUMBER TIMES XGD08790 | TEN OF THE RECORD FROM WHICH A TSX TRANSFERRED CONTROL TO XGD08800 | THE TXI (DIAG),,-N. IN CASES WHERE THERE IS A TSX TO XGD08810 | ONE PARTICULAR TXI (DIAG),,-N IN MORE THAN ONE RECORD, XGD08820 THERE IS A SET OF TWO WORDS BELOW FOR EACH CALLING RECORD. XGD08830 | THE DECREMENT OF THE SECOND WORD HAS THE ADDRESS OF THE XGD08840 | ROUTINE THAT CONTAINS THE APPROPRIATE DIAGNOSTIC MESSAGE. XGD08850 | XGD08860 | *************************************************************XGD08870 XGD08880 | XGD08890 | XGD08900 | SECTION 1 PRIME DIAGNOSTICS XGD08910 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 19 | XGD08920 | XGD08930 | 06340 0 77777 0 00000 ERLIST PZE ,,-1 XGD08940 | 06341 0 06623 0 00240 PZE REC4,,1P1 XGD08950 XGD08960 | 06342 0 77776 0 00000 PZE ,,-2 XGD08970 | 06343 0 06653 0 00240 PZE REC4,,1P2 XGD08980 | XGD08990 | 06344 0 77774 0 00000 PZE ,,-4 XGD09000 06345 0 06676 0 00240 PZE REC4,,1P3 XGD09010 | XGD09020 | 06346 0 77773 0 00000 PZE ,,-5 XGD09030 | 06347 0 06723 0 00240 PZE REC4,,1P4 XGD09040 | XGD09050 06350 0 77775 0 00000 PZE ,,-3 XGD09060 | 06351 0 06751 0 00240 PZE REC4,,1P5 XGD09070 | XGD09080 | XGD09090 | XGD09100 SECTION 1 DOUBLE PRIME DIAGNOSTICS XGD09110 | XGD09120 | XGD09130 | 06352 0 77777 0 00000 PZE ,,-1 XGD09140 | 06353 0 07016 0 00252 PZE REC5,,ONEDP XGD09150 XGD09160 | XGD09170 | XGD09180 | SECTION 2 DIAGNOSTICS XGD09190 | XGD09200 XGD09210 | 06354 0 75444 0 00000 PZE ,,-1244 XGD09220 | 06355 0 10555 0 00264 PZE REC6,,TWO1 XGD09230 | XGD09240 | 06356 0 77316 0 00000 PZE ,,-306 XGD09250 06357 0 10730 0 00264 PZE REC6,,TWO2 XGD09260 | XGD09270 | 06360 0 77054 0 00000 PZE ,,-468 XGD09280 | 06361 0 11004 0 00264 PZE REC6,,TWO3 XGD09290 | XGD09300 06362 0 77033 0 00000 PZE ,,-485 XGD09310 | | BINARY CARD NO. 9D000061 | 06363 0 11044 0 00264 PZE REC6,,TWO4 XGD09320 | XGD09330 06364 0 76461 0 00000 PZE ,,-719 XGD09340 | 06365 0 11132 0 00264 PZE REC6,,TWO5 XGD09350 | XGD09360 | 06366 0 77154 0 00000 PZE ,,-404 XGD09370 | 06367 0 11161 0 00276 PZE REC7,,TWO6 XGD09380 XGD09390 | 06370 0 76246 0 00000 PZE ,,-858 XGD09400 | 06371 0 11210 0 00276 PZE REC7,,TWO7 XGD09410 | XGD09420 | 06372 0 76246 0 00000 PZE ,,-858 XGD09430 06373 0 11210 0 00310 PZE REC8,,TWO7 XGD09440 | XGD09450 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 20 | | 06374 0 76023 0 00000 PZE ,,-1005 XGD09460 06375 0 11520 0 00276 PZE REC7,,TWO8 XGD09470 | XGD09480 | 06376 0 77771 0 00000 PZE ,,-7 XGD09490 | 06377 0 11520 0 00322 PZE REC9,,TWO8 XGD09500 | XGD09510 06400 0 76742 0 00000 PZE ,,-542 XGD09520 | 06401 0 11655 0 00310 PZE REC8,,TWO9 XGD09530 | XGD09540 | 06402 0 45602 0 00000 PZE ,,-13438 XGD09550 | 06403 0 11727 0 00322 PZE REC9,,TWO10 XGD09560 XGD09570 | 06404 0 45661 0 00000 PZE ,,-13391 XGD09580 | 06405 0 12020 0 00276 PZE REC7,,TWO11 XGD09590 | XGD09600 | 06406 0 45510 0 00000 PZE ,,-13496 XGD09610 06407 0 12075 0 00322 PZE REC9,,TWO12 XGD09620 | XGD09630 | 06410 0 77770 0 00000 PZE ,,-8 XGD09640 | | BINARY CARD NO. 9D000062 06411 0 12204 0 00264 PZE REC6,,TWO13 XGD09650 | XGD09660 | XGD09670 | XGD09680 | SECTION 3 DIAGNOSTICS XGD09690 XGD09700 | XGD09710 | 06412 0 50431 0 00000 PZE ,,-12007 XGD09720 | 06413 0 12227 0 00334 PZE REC10,,THR1 XGD09730 | XGD09740 06414 0 77271 0 00000 PZE ,,-327 XGD09750 | 06415 0 12312 0 00334 PZE REC10,,THR2 XGD09760 | XGD09770 | 06416 0 76657 0 00000 PZE ,,-593 XGD09780 | 06417 0 12433 0 00334 PZE REC10,,THR3 XGD09790 XGD09800 | 06420 0 75443 0 00000 PZE ,,-1245 $XGD09810 | 06421 0 12477 0 00334 PZE REC10,,THR4 $XGD09820 | XGD09830 | 06422 0 75451 0 00000 PZE ,,-1239 $XGD09840 06423 0 12521 0 00334 PZE REC10,,THR5 XGD09850 | XGD09860 | 06424 0 77777 0 00000 PZE ,,-1 XGD09870 | 06425 0 12545 0 00334 PZE REC10,,THR6 XGD09880 | XGD09890 06426 0 77774 0 00000 PZE ,,-4 XGD09900 | 06427 0 12574 0 00334 PZE REC10,,THR7 XGD09910 | XGD09920 | 06430 0 77773 0 00000 PZE ,,-5 XGD09930 | 06431 0 12625 0 00334 PZE REC10,,THR8 XGD09940 XGD09950 | 06432 0 77772 0 00000 PZE ,,-6 XGD09960 | 06433 0 12651 0 00334 PZE REC10,,THR9 XGD09970 | XGD09980 | 06434 0 77771 0 00000 PZE ,,-7 XGD09990 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 21 | | 06435 0 12701 0 00334 PZE REC10,,THR10 XGD10000 | XGD10010 | XGD10020 XGD10030 | SECTION 4 DIAGNOSTICS XGD10040 | XGD10050 | XGD10060 | 06436 0 77777 0 00000 PZE ,,-1 XGD10070 | BINARY CARD NO. 9D000063 | 06437 0 12732 0 00346 PZE REC11,,FOR1 XGD10080 | XGD10090 | 06440 0 77776 0 00000 PZE ,,-2 XGD10100 06441 0 13000 0 00360 PZE REC12,,FOR2 XGD10110 | XGD10120 | 06442 0 77775 0 00000 PZE ,,-3 XGD10130 | 06443 0 13025 0 00360 PZE REC12,,FOR3 XGD10140 | XGD10150 06444 0 77772 0 00000 PZE ,,-6 XGD10160 | 06445 0 13054 0 00360 PZE REC12,,FOR4 XGD10170 | XGD10180 | 06446 0 77774 0 00000 PZE ,,-4 XGD10190 | 06447 0 13103 0 00360 PZE REC12,,FOR5 XGD10200 XGD10210 | 06450 0 77773 0 00000 PZE ,,-5 XGD10220 | 06451 0 13146 0 00360 PZE REC12,,FOR6 XGD10230 | XGD10240 | 06452 0 77771 0 00000 PZE ,,-7 XGD10250 06453 0 13205 0 00360 PZE REC12,,FOR7 XGD10260 | XGD10270 | 06454 0 77770 0 00000 PZE ,,-8 XGD10280 | 06455 0 13236 0 00372 PZE REC13,,FOR8 XGD10290 | XGD10300 06456 0 77766 0 00000 PZE ,,-10 XGD10310 | 06457 0 13304 0 00360 PZE REC12,,FOR9 XGD10320 | XGD10330 | XGD10340 | XGD10350 SECTION 5 DIAGNOSTIC XGD10360 | XGD10370 | XGD10380 | 06460 0 77767 0 00000 PZE ,,-9 XGD10390 | 06461 0 13344 0 00404 PZE REC14,,FIVE1 XGD10400 XGD10410 | 06462 0 77765 0 00000 PZE ,,-11 SECOND DIAGNOSTIC FOR SECTION FIVE $XGD10411 | 06463 0 14661 0 00442 PZE REC17,,FIVE2 SXD OR SYN CARD TABLE OVERFLOW $XGD10412 | XGD10420 | XGD10430 SECTION 6 DIAGNOSTICS XGD10440 | XGD10450 | XGD10460 | 06464 0 77770 0 00000 PZE ,,-8 XGD10470 | BINARY CARD NO. 9D000064 | 06465 0 13374 0 00454 PZE REC18,,SIX1 XGD10480 | XGD10490 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 22 | 06466 0 77770 0 00000 PZE ,,-8 XGD10500 | 06467 0 13374 0 00466 PZE REC19,,SIX1 XGD10510 | XGD10520 | 06470 0 77775 0 00000 PZE ,,-3 XGD10530 | 06471 0 13434 0 00454 PZE REC18,,SIX2 XGD10540 XGD10550 | 06472 0 77774 0 00000 PZE ,,-4 XGD10560 | 06473 0 13474 0 00454 PZE REC18,,SIX3 XGD10570 | XGD10580 | 06474 0 77773 0 00000 PZE ,,-5 XGD10590 06475 0 13562 0 00454 PZE REC18,,SIX4 XGD10600 | XGD10610 | 06476 0 77772 0 00000 PZE ,,-6 XGD10620 | 06477 0 13654 0 00454 PZE REC18,,SIX5 XGD10630 | XGD10640 06500 0 77771 0 00000 PZE ,,-7 XGD10650 | 06501 0 14531 0 00454 PZE REC18,,SIX6 XGD10660 | XGD10670 | 06502 0 77776 0 00000 PZE ,,-2 XGD10680 | 06503 0 14614 0 00454 PZE REC18,,SIX7 XGD10690 XGD10700 | XGD10710 | 06504 0 77014 0 00000 PZE ,,-500 (32)XGD10720 | 06505 0 14727 0 00334 PZE REC10,,THR11 (32)XGD10722 | 06506 0 77773 0 00000 PZE ,,-5 (32)XGD10724 06507 0 14763 0 00442 PZE REC17,,FIVEY (32)XGD10726 | 06510 0 00000 0 77777 PZE -1,,0 END OF ERROR LIST FLAG (32)XGD10730 | 06511 BSS 74 SPACE FOR ADDITIONS TO ERROR LIST. (32)XGD10740 | XGD10750 | *************************************************************XGD10760 | | BINARY CARD NO. 9D000065 | 06623 0074 00 4 04650 1P1 TSX TITL,4 XGD10780 | 06624 0074 00 4 05005 TSX PRINT,4 XGD10790 06625 0 06652 0 06627 PZE PR46,,X46 XGD10800 | 06626 0020 00 0 04176 TRA SPEND XGD10810 | 06627 606060606060 PR46 BCI 2, XGD10820 | 06631 454660314562 BCD NO INSTRUCTIONS WERE COMPILED. CORRECT SOURCE PROGRAM TO HAXGD10830 | 06643 652560216360 BCD 7VE AT LEAST ONE EXECUTABLE STATEMENT. XGD10840 | BINARY CARD NO. 9D000066 | 06652 0 00000 0 00000 X46 PZE XGD10850 | | 06653 0074 00 4 04650 1P2 TSX TITL,4 XGD10870 06654 0074 00 4 05005 TSX PRINT,4 XGD10880 | 06655 0 06675 0 06657 PZE PR49,,X49 XGD10890 | 06656 0020 00 0 04176 TRA SPEND XGD10900 | 06657 606060606060 PR49 BCI 2, XGD10910 | 06661 633025512560 BCD THERE ARE NO STATEMENT NUMBERS IN THE SOURCE PROGRAM. CORREXGD10920 06673 236360475146 BCD 2CT PROGRAM. XGD10930 | 06675 0 00000 0 00000 X49 PZE XGD10940 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 23 | | 06676 -0500 00 0 06305 1P3 CAL SAVEMQ XGD10960 | BINARY CARD NO. 9D000067 | 06677 0602 00 0 06706 SLW PR51 XGD10970 | 06700 0074 00 4 04650 TSX TITL,4 XGD10980 | 06701 0074 00 4 05005 TSX PRINT,4 XGD10990 06702 0 06722 0 06704 PZE PR50,,X50 XGD11000 | 06703 0020 00 0 04176 TRA SPEND XGD11010 | 06704 606060606060 PR50 BCI 2, XGD11020 | 06706 606060606060 PR51 BCI 1, XGD11030 | 06707 606321224325 BCI , TABLE HAS EXCEEDED THE BUFFER SIZE. REWRITE SOURCE PROGRAMXGD11040 06721 336060606060 BCI 1,. XGD11050 | 06722 0 00000 0 00000 X50 PZE XGD11060 | | 06723 0074 00 4 04650 1P4 TSX TITL,4 XGD11080 | 06724 0074 00 4 05005 TSX PRINT,4 XGD11090 | BINARY CARD NO. 9D000068 | 06725 0 06750 0 06727 PZE PR60,,X60 XGD11100 | 06726 0020 00 0 04176 TRA SPEND XGD11110 | 06727 606060606060 PR60 BCI 2, XGD11120 06731 636646604651 BCI ,TWO OR MORE FREQUENCY STATEMENTS REFER TO THE SAME STATEMENTXGD11130 | 06743 336060234651 BCI 5,. CORRECT SOURCE PROGRAM. XGD11140 | 06750 0 00000 0 00000 X60 PZE XGD11150 | | 06751 0074 00 4 04650 1P5 TSX TITL,4 XGD11170 06752 0074 00 4 05005 TSX PRINT,4 XGD11180 | | BINARY CARD NO. 9D000069 | 06753 0 07015 0 06755 PZE PR54,,X54 XGD11190 | 06754 0020 00 0 04176 TRA SPEND XGD11200 06755 606060606060 PR54 BCI 2, XGD11210 | 06757 216026512550 BCI ,A FREQUENCY STATEMENT DOES NOT CONTAIN ANY FREQUENCIES. CORXGD11220 | 06771 512523636062 BCI 8,RECT SOURCE PROGRAM. XGD11230 | | BINARY CARD NO. 9D000070 07001 606060606060 BCI 2, XGD11240 | 07003 454663256040 BCI ,NOTE - THERE IS A POSSIBILITY OF A MACHINE ERROR. XGD11250 | 07015 0 00000 0 00000 X54 PZE XGD11260 | | 07016 0500 00 0 06305 ONEDP CLA SAVEMQ XGD11280 07017 0601 00 0 06277 STO ERAS+3 XGD11290 | 07020 0621 00 0 06275 STA ERAS+1 XGD11300 | 07021 -0534 00 1 06305 LXD SAVEMQ,1 XGD11310 | 07022 0634 00 1 06276 SXA ERAS+2,1 XGD11320 | 07023 -0634 00 1 07031 SXD FDPM,1 XGD11330 07024 0500 00 0 06275 CLA ERAS+1 XGD11340 | 07025 0400 00 0 06302 ADD AD1 XGD11350 | 07026 0402 00 0 06276 SUB ERAS+2 XGD11360 | | BINARY CARD NO. 9D000071 07027 0601 00 0 06305 STO SAVEMQ XGD11370 | 07030 0074 00 4 05270 TSX FIND1,4 XGD11380 | 07031 0 00000 0 23742 FDPM PZE SYMBOL,,** XGD11390 | 07032 0020 00 0 05334 TRA IOER05 XGD11400 | 07033 0020 00 0 07040 TRA CRS7 XGD11410 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 24 | | 07034 0500 00 0 06336 CLA (L)SYM XGD11420 | 07035 0400 00 0 06276 ADD ERAS+2 XGD11430 | 07036 0402 00 0 06302 SUB AD1 XGD11440 07037 0020 00 0 07041 TRA *+2 XGD11450 | 07040 0500 00 0 06277 CRS7 CLA ERAS+3 XGD11460 | 07041 0621 00 0 10474 STA LIST XGD11470 | 07042 0621 00 0 07150 STA FORMAT XGD11480 | 07043 0402 00 0 06302 SUB AD1 XGD11490 07044 0621 00 0 10475 STA LIST1 XGD11500 | 07045 0402 00 0 06302 SUB AD1 XGD11510 | 07046 0621 00 0 10476 STA LIST2 XGD11520 | 07047 0074 00 4 04650 TSX TITL,4 XGD11530 | 07050 -0534 00 1 06277 LXD ERAS+3,1 XGD11540 07051 2 00001 1 07053 TIX A,1,1 MADE BY NON-ARITHMETIC DIAGNOSTIC XGD11550 | 07052 -0534 00 1 06263 LXD ZERO,1 XGD11560 | 07053 -0634 00 1 07074 A SXD NXTER,1 SET END OF ERROR LIST TEST XGD11570 | 07054 -0534 00 1 06263 LXD ZERO,1 XGD11580 | BINARY CARD NO. 9D000072 | 07055 0074 00 4 05005 AB TSX PRINT,4 SPACE 1 LINE. XGD11590 | 07056 0 06036 0 06012 PZE 20BLKS,,END20 XGD11600 | 07057 -0534 00 2 06263 LXD ZERO,2 XGD11610 | 07060 0500 60 0 10474 CLA* LIST XGD11620 07061 -0320 00 0 06262 ANA DECMSK XGD11630 | 07062 0340 00 2 10553 AE CAS ER1PRM,2 2 WORD ENTRIES IN THIS LIST XGD11640 | 07063 0020 00 0 07065 TRA AC XGD11650 | 07064 0020 60 2 10554 TRA* ER1PRM+1,2 XGD11660 | 07065 1 00002 2 07066 AC TXI AD,2,2 XGD11670 07066 -3 00054 2 07062 AD TXL AE,2,ER1PRM-BGERL XGD11680 | 07067 0074 00 4 05005 TSX PRINT,4 CANNOT IDENTIFY. XGD11690 | 07070 0 05674 0 05612 PZE GDCI,,X4 XGD11700 | 07071 0074 00 4 05005 TSX PRINT,4 XGD11710 | 07072 0 05705 0 05674 PZE X4,,X5 XGD11720 07073 0020 00 0 04176 TRA SPEND XGD11730 | 07074 -3 00000 1 07055 NXTER TXL AB,1,** NUMBER OF ERROR ENTRIES MINUS 1. XGD11740 | 07075 0074 00 4 05005 TSX PRINT,4 SPACE 1 LINE. XGD11750 | 07076 0 06036 0 06012 PZE 20BLKS,,END20 XGD11760 | 07077 0020 00 0 04176 TRA SPEND XGD11770 07100 0500 60 0 10474 TEIFN CLA* LIST XGD11780 | 07101 0734 00 2 00000 PAX ,2 XGD11790 | 07102 0074 00 4 05005 TSX PRINT,4 XGD11800 | | BINARY CARD NO. 9D000073 07103 0 07136 0 07115 PZE PRTEIF,,TBETA XGD11810 | 07104 0500 60 0 10475 XTEIF CLA* LIST1 BETA, WHICH IS DUPLICATED IN SOURCE XGD11820 | 07105 -0320 00 0 06261 ANA ADDMSK PROGRAM, IS NOW IN ADDRESS OF AC. XGD11830 | 07106 0074 00 4 04601 TSX BINDEC,4 XGD11840 | 07107 0602 00 0 07147 SLW TBETA+9 XGD11850 07110 0074 00 4 05005 TSX PRINT,4 XGD11860 | 07111 0 07150 0 07136 PZE TBETA,,TBETA+10 XGD11870 | 07112 2 00001 2 07114 TIX *+2,2,1 XGD11880 | 07113 1 00002 1 07074 TXI NXTER,1,2 XGD11890 | 07114 1 00001 1 07104 TXI XTEIF,1,1 XGD11900 07115 606060606060 PRTEIF BCI , THERE IS A DUPLICATION OF THE FOLLOWING FORMULA XGD11910 | 07127 456444222551 BCI 7,NUMBER(S) IN THE SOURCE PROGRAM- XGD11920 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 25 | | BINARY CARD NO. 9D000074 07136 606060606060 TBETA BCI , XGD11930 | 07150 0534 00 2 00000 FORMAT LXA **,2 XGD11940 | 07151 0074 00 4 05005 TSX PRINT,4 XGD11950 | 07152 0 07223 0 07163 PZE PRFOR,,FOONB XGD11960 | 07153 0500 60 0 10475 CLAMAT CLA* LIST1 XGD11970 07154 0074 00 4 04601 TSX BINDEC,4 XGD11980 | 07155 0602 00 0 07234 SLW MATNB XGD11990 | 07156 0074 00 4 05005 TSX PRINT,4 XGD12000 | | BINARY CARD NO. 9D000075 07157 0 07235 0 07223 PZE FOONB,,MATNB+1 XGD12010 | 07160 2 00001 2 07162 TIX *+2,2,1 XGD12020 | 07161 1 00002 1 07074 TXI NXTER,1,2 XGD12030 | 07162 1 00001 1 07153 TXI CLAMAT,1,1 XGD12040 | 07163 606060606060 PRFOR BCD 2 XGD12050 07165 633025602646 BCD THE FOLLOWING FORMAT STATEMENTS, THOUGH REFERRED TO XGD12060 | 07177 606060606060 BCD XGD12070 | | BINARY CARD NO. 9D000076 | 07211 302165256022 BCD HAVE BEEN OMITTED FROM THE SOURCE PROGRAM . . . XGD12080 07223 606060606060 FOONB BCD 9 XGD12090 | | BINARY CARD NO. 9D000077 | 07234 0 00000 0 00000 MATNB XGD12100 | 07235 0500 00 0 07411 MINB1 CLA ADTMI SELECT ADDRESS OF PARTICULAR TIFGO ENTRY XGD12110 07236 0734 00 4 00000 PAX 0,4 FOR PRINT ROUTINE XGD12120 | 07237 0621 00 0 07354 STA WHICHA XGD12130 | 07240 -0500 00 0 07315 CAL N1 AND PICK UP BCD FOR COMMENT XGD12140 | 07241 1 00042 4 07321 TXI BETAPR,4,34 ADD LENGTH OF COMMENT TO ADDRESS XGD12150 | 07242 0500 00 0 07411 MINB2 CLA ADTMI XGD12160 07243 0734 00 4 00000 PAX 0,4 XGD12170 | 07244 0621 00 0 07354 STA WHICHA XGD12180 | 07245 -0500 00 0 07316 CAL N2 XGD12190 | 07246 1 00042 4 07321 TXI BETAPR,4,34 XGD12200 | 07247 0500 00 0 07411 MINB3 CLA ADTMI XGD12210 07250 0734 00 4 00000 PAX 0,4 XGD12220 | 07251 0621 00 0 07354 STA WHICHA XGD12230 | 07252 -0500 00 0 07317 CAL N3 XGD12240 | 07253 1 00042 4 07321 TXI BETAPR,4,34 XGD12250 | 07254 0500 00 0 07412 TSXTFO CLA ADTZR XGD12260 07255 0734 00 4 00000 PAX 0,4 XGD12270 | 07256 0621 00 0 07354 STA WHICHA XGD12280 | 07257 -0500 00 0 07314 CAL N XGD12290 | 07260 1 00042 4 07321 TXI BETAPR,4,34 XGD12300 | BINARY CARD NO. 9D000078 | 07261 0500 00 0 07413 BTIFG1 CLA ADT1 XGD12310 | 07262 0734 00 4 00000 PAX 0,4 XGD12320 | 07263 0621 00 0 07354 STA WHICHA XGD12330 | 07264 -0500 00 0 07313 CAL SOMN XGD12340 07265 1 00042 4 07321 TXI BETAPR,4,34 XGD12350 | 07266 0500 00 0 07414 BTIFG2 CLA ADT2 XGD12360 | 07267 0020 00 0 07262 TRA BTIFG1+1 XGD12370 | 07270 0500 00 0 07415 B1TIF3 CLA ADT3 XGD12380 | 07271 0020 00 0 07236 TRA MINB1+1 XGD12390 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 26 | | 07272 0500 00 0 07415 B2TIF3 CLA ADT3 XGD12400 | 07273 0020 00 0 07243 TRA MINB2+1 XGD12410 | 07274 0500 00 0 07416 B1TIF4 CLA ADT4 XGD12420 07275 0020 00 0 07236 TRA MINB1+1 XGD12430 | 07276 0500 00 0 07416 B2TIF4 CLA ADT4 XGD12440 | 07277 0020 00 0 07243 TRA MINB2+1 XGD12450 | 07300 0500 00 0 07417 B1TIF5 CLA ADT5 XGD12460 | 07301 0020 00 0 07236 TRA MINB1+1 XGD12470 07302 0500 00 0 07417 B2TIF5 CLA ADT5 XGD12480 | 07303 0020 00 0 07243 TRA MINB2+1 XGD12490 | 07304 0500 00 0 07420 TIF6B CLA ADT6 XGD12500 | 07305 0020 00 0 07255 TRA TSXTFO+1 XGD12510 | 07306 0500 00 0 07421 DONOBT CLA ADDO SAME PROCESS AS FOR TIFGO ENTRIES XGD12520 | BINARY CARD NO. 9D000079 | 07307 0734 00 4 00000 PAX 0,4 XGD12530 | 07310 0621 00 0 07354 STA WHICHA XGD12540 | 07311 -0500 00 0 07320 CAL B XGD12550 07312 1 00016 4 07321 TXI BETAPR,4,14 XGD12560 | 07313 624644256045 SOMN BCD 1SOME N XGD12570 | 07314 456060606060 N BCD 1N XGD12580 | 07315 450160606060 N1 BCD 1N1 XGD12590 | 07316 450260606060 N2 BCD 1N2 XGD12600 07317 450360606060 N3 BCD 1N3 XGD12610 | 07320 226060606060 B BCD 1B XGD12620 | 07321 -0634 00 4 07354 BETAPR SXD WHICHA,4 SOME TIFGO, OR DO, STATEMENT REFERS TO XGD12630 | 07322 0602 00 0 07376 SLW BETAWD A NONEXISTANT BETA XGD12640 | 07323 0560 00 0 07376 LDQ BETAWD MOVE WORD INTO COMMENT XGD12650 07324 -0500 00 0 07375 CAL BETAWD-1 XGD12660 | 07325 0771 00 0 00022 ARS 18 XGD12670 | 07326 -0763 00 0 00022 LGL 18 XGD12680 | 07327 0602 00 0 07375 SLW BETAWD-1 XGD12690 | 07330 -0763 00 0 00022 LGL 18 XGD12700 07331 0560 00 0 06264 LDQ BLANKS XGD12710 | 07332 -0763 00 0 00022 LGL 18 XGD12720 | 07333 0602 00 0 07376 SLW BETAWD XGD12730 | 07334 0500 60 0 10474 CLA* LIST XGD12740 | BINARY CARD NO. 9D000080 | 07335 0074 00 4 04416 TSX EXBETA,4 XGD12750 | 07336 0074 00 4 04565 TSX LAJUST,4 XGD12760 | 07337 0602 00 0 07363 SLW FORMNB XGD12770 | 07340 0560 00 0 07363 LDQ FORMNB MOVE EXTERNAL FORMULA NUMBER XGD12780 07341 -0500 00 0 07362 CAL FORMNB-1 INTO COMMENT XGD12790 | 07342 0771 00 0 00006 ARS 6 XGD12800 | 07343 -0763 00 0 00006 LGL 6 XGD12810 | 07344 0602 00 0 07362 SLW FORMNB-1 XGD12820 | 07345 -0763 00 0 00036 LGL 30 XGD12830 07346 0560 00 0 06264 LDQ BLANKS XGD12840 | 07347 -0763 00 0 00006 LGL 6 XGD12850 | 07350 0602 00 0 07363 SLW FORMNB XGD12860 | 07351 0074 00 4 05005 TSX PRINT,4 XGD12870 | 07352 0 07411 0 07356 PZE NOBETA,,NOBETA+27 XGD12880 07353 0074 00 4 05005 TSX PRINT,4 XGD12890 | 07354 0 00000 0 00000 WHICHA XGD12900 | 07355 1 00001 1 07074 TXI NXTER,1,1 1 WORD ENTRY IN ERROR LIST XGD12910 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 27 | 07356 606060606060 NOBETA BCD 2 XGD12920 | 07360 626321632544 BCD 3STATEMENT NUMBER XGD12930 | | BINARY CARD NO. 9D000081 | 07363 0000 00 0 00000 FORMNB HTR ** XGD12940 07364 512526255162 BCD REFERS TO A NON-EXISTENT FORMULA NUMBER CORRESPONDING TO XGD12950 | 07376 606060606060 BETAWD BCD 6 XGD12960 | 07404 314560633025 BCD 5IN THE TYPE OF STATEMENT XGD12970 | | BINARY CARD NO. 9D000082 07411 0000 00 0 07422 ADTMI HTR TISMIN XGD12980 | 07412 0000 00 0 07464 ADTZR HTR TISZRO XGD12990 | 07413 0000 00 0 07526 ADT1 HTR TIS1 XGD13000 | 07414 0000 00 0 07570 ADT2 HTR TIS2 XGD13010 | 07415 0000 00 0 07632 ADT3 HTR TIS3 XGD13020 07416 0000 00 0 07674 ADT4 HTR TIS4 XGD13030 | 07417 0000 00 0 07736 ADT5 HTR TIS5 XGD13040 | 07420 0000 00 0 10000 ADT6 HTR TIS6 XGD13050 | 07421 0000 00 0 10042 ADDO HTR DOS XGD13060 | 07422 606060606060 TISMIN BCD 4 XGD13070 07426 602160603126 BCD A IF ( E ) N1, N2, N3 XGD13080 | | BINARY CARD NO. 9D000083 | 07440 606060606060 BCD XGD13090 | 07452 606060606060 BCD XGD13100 07464 606060606060 TISZRO BCD 4 XGD13110 | | BINARY CARD NO. 9D000084 | 07470 602160602746 BCD A GO TO N XGD13120 | 07502 606060606060 BCD XGD13130 | BINARY CARD NO. 9D000085 | 07514 606060606060 BCD XGD13140 | 07526 606060606060 TIS1 BCD 4 XGD13150 | 07532 606021606027 BCD A GO TO L, ( N1, N2, NM ) XGD13160 | BINARY CARD NO. 9D000086 | 07544 606060606060 BCD XGD13170 | 07556 606060606060 BCD XGD13180 | BINARY CARD NO. 9D000087 | 07570 606060606060 TIS2 BCD 4 XGD13190 | 07574 602160602746 BCD A GO TO ( N1, N2, NM ), J XGD13200 | 07606 606060606060 BCD XGD13210 | BINARY CARD NO. 9D000088 | 07620 606060606060 BCD XGD13220 | 07632 606060606060 TIS3 BCD 4 XGD13230 | 07636 602160603126 BCD A IF ( SENSE SWITCH K ) N1, N2 XGD13240 | BINARY CARD NO. 9D000089 | 07650 606060606060 BCD 9 XGD13250 | 07661 465160606060 BCD 1OR XGD13260 | 07662 602160603126 BCD A IF ( SENSE LIGHT K ) N1, N2 XGD13270 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 28 | BINARY CARD NO. 9D000090 | 07674 606060606060 TIS4 BCD 4 XGD13280 | 07700 602160603126 BCD A IF DIVIDE CHECK N1, N2 XGD13290 | 07712 606060606060 BCD XGD13300 | BINARY CARD NO. 9D000091 | 07724 606060606060 BCD XGD13310 | 07736 606060606060 TIS5 BCD 4 XGD13320 | 07742 602160603126 BCD A IF ACCUMULATOR OVERFLOW N1, N2 XGD13330 | BINARY CARD NO. 9D000092 | 07754 606060606060 BCD 9 XGD13340 | 07765 465160606060 BCD 1OR XGD13350 | 07766 602160603126 BCD A IF QUOTIENT OVERFLOW N1, N2 XGD13360 | BINARY CARD NO. 9D000093 | 10000 606060606060 TIS6 BCD 4 XGD13370 | 10004 602160602162 BCD A ASSIGN K TO N XGD13380 | 10016 606060606060 BCD XGD13390 | BINARY CARD NO. 9D000094 | 10030 606060606060 BCD XGD13400 | 10042 606060606060 DOS BCD 4 XGD13410 | 10046 602160602446 BCD A DO B I = N1, N2, N3 XGD13420 | BINARY CARD NO. 9D000095 | 10060 -0534 00 4 10131 ISNONX LXD XTABLE,4 FIND THE KIND OF TIFGO ENTRY WHICH XGD13430 | 10061 0500 60 0 10474 CLA* LIST IS TRYING TO TURN CONTROL OVER TO A XGD13440 | 10062 0767 00 0 00022 ALS 18 NON-EXECUTABLE STATEMENT XGD13450 10063 -0320 00 0 06262 ANA DECMSK XGD13460 | 10064 0340 00 4 10131 TSHCAS CAS XTABLE,4 XGD13470 | 10065 0020 00 0 10067 TRA TSXH1 XGD13480 | 10066 0020 60 4 10132 TRA* XTABLE+1,4 XGD13490 | 10067 2 00002 4 10064 TSXH1 TIX TSHCAS,4,2 XGD13500 10070 0074 00 4 05005 TSX PRINT,4 CANNOT IDENTIFY. XGD13510 | 10071 0 05674 0 05612 PZE GDCI,,X4 XGD13520 | 10072 0074 00 4 05005 TSX PRINT,4 XGD13530 | 10073 0 05705 0 05674 PZE X4,,X5 XGD13540 | 10074 0074 00 4 05005 TSX PRINT,4 XGD13550 | BINARY CARD NO. 9D000096 | 10075 0 05741 0 05705 PZE X5,,X6 XGD13560 | 10076 1 00002 1 07074 TXI NXTER,1,2 XGD13570 | 10077 +000510000000 OCT 000510000000 TMX1 XGD13580 10100 0000 00 0 10132 HTR SAVEB1 XGD13590 | 10101 +000521000000 OCT 000521000000 TMX2 XGD13600 | 10102 0000 00 0 10134 HTR SAVEB2 XGD13610 | 10103 +000531000000 OCT 000531000000 TMX3 XGD13620 | 10104 0000 00 0 10135 HTR SAVEB3 XGD13630 10105 +000551000000 OCT 000551000000 TZRX XGD13640 | 10106 0000 00 0 10136 HTR TIFOB XGD13650 | 10107 +000573000000 OCT 000573000000 T1X XGD13660 | 10110 0000 00 0 10140 HTR TRADX1 XGD13670 | 10111 +000624000000 OCT 000624000000 T2X XGD13680 10112 0000 00 0 10142 HTR TRADX2 XGD13690 | 10113 +000651000000 OCT 000651000000 T3X1 XGD13700 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 29 | | 10114 0000 00 0 10144 HTR TIF3B1 XGD13710 10115 +000661000000 OCT 000661000000 T3X2 XGD13720 | 10116 0000 00 0 10146 HTR TIF3B2 XGD13730 | 10117 +000700000000 OCT 000700000000 T4X1 XGD13740 | 10120 0000 00 0 10147 HTR TIF4B1 XGD13750 | 10121 +000710000000 OCT 000710000000 T4X2 XGD13760 10122 0000 00 0 10151 HTR TIF4B2 XGD13770 | | BINARY CARD NO. 9D000097 | 10123 +000740000000 OCT 000740000000 T5X1 XGD13780 | 10124 0000 00 0 10152 HTR TIF5B1 XGD13790 10125 +000750000000 OCT 000750000000 T5X2 XGD13800 | 10126 0000 00 0 10153 HTR TIF5B2 XGD13810 | 10127 +000765000000 OCT 000765000000 IN ASSIGN K TO N, K IS NONEXEC. STATEMENT. XGD13820 | 10130 0 00000 0 10155 PZE NEXASG XGD13830 | 10131 0 00032 0 00000 XTABLE PZE ,,26 XGD13840 10132 0500 00 0 07411 SAVEB1 CLA ADTMI XGD13850 | 10133 0020 00 0 10156 TRA NOXBTA XGD13860 | 10134 0020 00 0 10132 SAVEB2 TRA SAVEB1 XGD13870 | 10135 0020 00 0 10132 SAVEB3 TRA SAVEB1 XGD13880 | 10136 0500 00 0 07412 TIFOB CLA ADTZR XGD13890 10137 0020 00 0 10156 TRA NOXBTA XGD13900 | 10140 0500 00 0 07413 TRADX1 CLA ADT1 XGD13910 | 10141 0020 00 0 10156 TRA NOXBTA XGD13920 | 10142 0500 00 0 07414 TRADX2 CLA ADT2 XGD13930 | 10143 0020 00 0 10156 TRA NOXBTA XGD13940 10144 0500 00 0 07415 TIF3B1 CLA ADT3 XGD13950 | 10145 0020 00 0 10156 TRA NOXBTA XGD13960 | 10146 0020 00 0 10144 TIF3B2 TRA TIF3B1 XGD13970 | 10147 0500 00 0 07416 TIF4B1 CLA ADT4 XGD13980 | 10150 0020 00 0 10156 TRA NOXBTA XGD13990 | BINARY CARD NO. 9D000098 | 10151 0020 00 0 10147 TIF4B2 TRA TIF4B1 XGD14000 | 10152 0020 00 0 10153 TIF5B1 TRA TIF5B2 XGD14010 | 10153 0500 00 0 07417 TIF5B2 CLA ADT5 XGD14020 10154 0020 00 0 10156 TRA NOXBTA XGD14030 | 10155 0500 00 0 07420 NEXASG CLA ADT6 XGD14040 | 10156 0621 00 0 10220 NOXBTA STA ADDTD A TIFGO STATEMENT HAS ATTEMPTED TO XGD14050 | 10157 0400 00 0 10256 ADD DEC34 TURN OVER CONTROL OF THE PROGRAM TO A XGD14060 | 10160 0767 00 0 00022 ALS 18 NON EXECUTABLE STATEMENT XGD14070 10161 0622 00 0 10220 STD ADDTD XGD14080 | 10162 0500 60 0 10475 CLA* LIST1 GET EXTERNAL NUMBER OF TIFGO STATEMENT XGD14090 | 10163 0074 00 4 04416 TSX EXBETA,4 XGD14100 | 10164 0074 00 4 04565 TSX LAJUST,4 XGD14110 | 10165 0602 00 0 06274 SLW ERAS XGD14120 10166 -0500 00 0 10241 CAL TIFOR XGD14130 | 10167 0771 00 0 00014 ARS 12 XGD14140 | 10170 0560 00 0 06274 LDQ ERAS XGD14150 | 10171 -0763 00 0 00014 LGL 12 XGD14160 | 10172 0602 00 0 10241 SLW TIFOR XGD14170 10173 -0763 00 0 00030 LGL 24 XGD14180 | 10174 0560 00 0 06264 LDQ BLANKS XGD14190 | 10175 -0763 00 0 00014 LGL 12 XGD14200 | 10176 0602 00 0 10242 SLW TIFOR+1 XGD14210 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 30 | BINARY CARD NO. 9D000099 | 10177 0500 60 0 10475 CLA* LIST1 GET EXTERNAL NUMBER OF STATEMENT XGD14220 | 10200 0771 00 0 00022 ARS 18 WHICH IS NOT EXECUTABLE XGD14230 | 10201 0074 00 4 04416 TSX EXBETA,4 XGD14240 10202 0074 00 4 04565 TSX LAJUST,4 XGD14250 | 10203 0602 00 0 06274 SLW ERAS XGD14260 | 10204 -0500 00 0 10226 CAL NONB-1 XGD14270 | 10205 0560 00 0 06274 LDQ ERAS XGD14280 | 10206 0771 00 0 00006 ARS 6 XGD14290 10207 -0763 00 0 00006 LGL 6 XGD14300 | 10210 0602 00 0 10226 SLW NONB-1 XGD14310 | 10211 -0763 00 0 00036 LGL 30 XGD14320 | 10212 0560 00 0 06264 LDQ BLANKS XGD14330 | 10213 -0763 00 0 00006 LGL 6 XGD14340 10214 0602 00 0 10227 SLW NONB XGD14350 | 10215 0074 00 4 05005 TSX PRINT,4 XGD14360 | 10216 0 10256 0 10222 PZE BTNONX,,BTNONX+28 XGD14370 | 10217 0074 00 4 05005 TSX PRINT,4 XGD14380 | 10220 0000 00 0 00000 ADDTD HTR ** XGD14390 10221 1 00002 1 07074 TXI NXTER,1,2 2WORD ENTRY IN ERROR LIST XGD14400 | 10222 606060606060 BTNONX BCD 2 XGD14410 | 10224 626321632544 BCD 2STATEMENT NU XGD14420 | | BINARY CARD NO. 9D000100 10226 442225516060 BCD 1MBER XGD14430 | 10227 0000 00 0 00000 NONB HTR ** XGD14440 | 10230 316260454663 BCD 9IS NOT EXECUTABLE. IT IS REFERRED TO BY STATEMENT NUM XGD14450 | 10241 222551606060 TIFOR BCD 7BER XGD14460 | 10250 663031233060 BCD 6WHICH IS OF THE FOLLOWING TYPE XGD14470 | BINARY CARD NO. 9D000101 | 10256 0000 00 0 00042 DEC34 HTR 34 XGD14480 | 10257 0500 60 0 10475 DOBTNX CLA* LIST1 BETA IS NOT AN EXECUTABLE STATEMENT XGD14490 | 10260 0601 00 0 06257 STO ALFBET IN ALPHA DO BETA XGD14500 10261 0500 60 0 10476 CLA* LIST2 XGD14510 | 10262 0601 00 0 06260 STO SYM XGD14520 | 10263 0074 00 4 05005 TSX PRINT,4 XGD14530 | 10264 0 10303 0 10267 PZE DOBTX,,DOBTX+12 XGD14540 | 10265 0074 00 4 04461 TSX FX4PR,4 PRINT DO STATEMENT XGD14550 10266 1 00003 1 07074 TXI NXTER,1,3 3 WORD ENTRY IN ERROR LIST XGD14560 | 10267 606060606060 DOBTX BCD 2 XGD14570 | 10271 633025605121 BCD THE RANGE OF THIS DO ENDS WITH A NON-EXECUTABLE STATEMENT XGD14580 | | BINARY CARD NO. 9D000102 10303 0500 60 0 10475 CONBET CLA* LIST1 IN ALPHA DO BETA, BETA IS A CONDITIONAL XGD14590 | 10304 0601 00 0 06257 STO ALFBET TRANSFER, THAT IS, A TIFGO ENTRY XGD14600 | 10305 0500 60 0 10476 CLA* LIST2 XGD14610 | 10306 0601 00 0 06260 STO SYM XGD14620 | 10307 0074 00 4 05005 TSX PRINT,4 XGD14630 10310 0 10330 0 10313 PZE CONBT,,CONBT+13 XGD14640 | 10311 0074 00 4 04461 TSX FX4PR,4 PRINT DO STATEMENT XGD14650 | 10312 1 00003 1 07074 TXI NXTER,1,3 3 WORD ENTRY IN ERROR LIST XGD14660 | 10313 606060606060 CONBT BCD 2 XGD14670 | 10315 633025605121 BCD THE RANGE OF THIS DO ENDS WITH A CONDITIONAL TRANSFER STATEMXGD14680 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 31 | | BINARY CARD NO. 9D000103 | 10327 254563606060 BCD 1ENT XGD14690 | 10330 0500 60 0 10474 NOTRA CLA* LIST ALPHA + 1, INTERNAL FORMULA NUMBER, XGD14700 10331 -0320 00 0 06261 ANA ADDMSK IN ADDRESS OF LIST. THIS IS NUMBER OF AN XGD14710 | 10332 0074 00 4 04416 TSX EXBETA,4 EXECUTABLE STATEMENT WHICH FOLLOWS A XGD14720 | 10333 0074 00 4 04565 TSX LAJUST,4 TIFGO ENTRY OR A STOP, BUT WHICH IS NEVER XGD14730 | 10334 0602 00 0 10361 SLW EXTN1 TRANSFERED TO IN THE FLOW OF THE PROBLEM XGD14740 | 10335 0074 00 4 05005 TSX PRINT,4 XGD14750 10336 0 10362 0 10340 PZE PRNOTR,,PRNOTR+18 XGD14760 | 10337 1 00001 1 07074 TXI NXTER,1,1 1 WORD ENTRY IN ERROR LIST XGD14770 | 10340 606060606060 PRNOTR BCD 2 XGD14780 | 10342 216047215163 BCD A PART OF THE PROGRAM CANNOT BE REACHED. IT IS LOCATED AT OXGD14790 | 10354 516045252151 BCI 5,R NEAR THE STATEMENT NUMBER XGD14800 | BINARY CARD NO. 9D000104 | 10361 0000 00 0 00000 EXTN1 HTR ** XGD14810 | 10362 0500 60 0 10474 FRETIF CLA* LIST INTERNAL FORMULA NUMBER XGD14820 | 10363 0074 00 4 04416 TSX EXBETA,4 IN ADDRESS OF LIST. SECTION 4 WILL STOP XGD14830 10364 0074 00 4 04565 TSX LAJUST,4 WHEN THERE ARE MORE BRANCHES THAN XGD14840 | 10365 0602 00 0 10407 SLW FRALFA NECESSARY FOR A TIFGO ENTRY. XGD14850 | 10366 0074 00 4 05005 TSX PRINT,4 XGD14860 | 10367 0 10410 0 10371 PZE PRFREQ,,PRFREQ+15 XGD14870 | 10370 1 00001 1 07074 TXI NXTER,1,1 1 WORD ENTRY IN ERROR LIST XGD14880 10371 606060606060 PRFREQ BCD 2 XGD14890 | 10373 216026512550 BCD A FREQUENCY STATEMENT CONTAINS TOO MANY BRANCHES FOR THE FORXGD14900 | | BINARY CARD NO. 9D000105 | 10405 446443216045 BCD 2MULA NUMBER XGD14910 10407 0000 00 0 00000 FRALFA HTR ** XGD14920 | 10410 -0500 60 0 10475 NOTEQV CAL* LIST1 THIS IS STILL IN BCD FORM, BUT MAY BE XGD14930 | 10411 0074 00 4 04520 TSX ZEROUT,4 FOLLOWED BY 1 BLANK AND ZEROS. THIS NAME XGD14940 | 10412 0602 00 0 10443 SLW EQWD HAS BEEN ASSIGNED INCONSISTANT VALUES IN XGD14950 | 10413 0560 00 0 10443 LDQ EQWD EQUIVALENCE STATEMENTS XGD14960 10414 -0500 00 0 10442 CAL EQWD-1 XGD14970 | 10415 0771 00 0 00014 ARS 12 MOVE WORD INTO REST OF COMMENT XGD14980 | 10416 -0763 00 0 00014 LGL 12 XGD14990 | 10417 0602 00 0 10442 SLW EQWD-1 XGD15000 | 10420 -0763 00 0 00030 LGL 24 XGD15010 10421 0560 00 0 06264 LDQ BLANKS XGD15020 | 10422 -0763 00 0 00014 LGL 12 XGD15030 | 10423 0602 00 0 10443 SLW EQWD XGD15040 | 10424 0074 00 4 05005 TSX PRINT,4 XGD15050 | 10425 0 10444 0 10427 PZE PREQ,,PREQ+13 XGD15060 10426 1 00002 1 07074 TXI NXTER,1,2 2 WORD ENTRIES IN ERROR LIST XGD15070 | 10427 606060606060 PREQ BCD 2 XGD15080 | | BINARY CARD NO. 9D000106 | 10431 214560314523 BCD AN INCONSISTENT EQUIVALENCE STATEMENT HAS BEEN MADE ABOUT XGD15090 10443 0000 00 0 00000 EQWD HTR ** XGD15100 | 10444 0500 60 0 10474 NEFNF CLA* LIST XGD15110 | 10445 -0320 00 0 06261 ANA ADDMSK XGD15120 | 10446 0074 00 4 04601 TSX BINDEC,4 XGD15130 | 10447 0074 00 4 04565 TSX LAJUST,4 XGD15140 10450 0602 00 0 10471 SLW EXFNO XGD15150 | 10451 0074 00 4 05005 TSX PRINT,4 XGD15160 | 10452 0 10473 0 10454 PZE NEF,,ENNEF XGD15170 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 32 | 10453 1 00001 1 07074 TXI NXTER,1,1 XGD15180 | 10454 606060606060 NEF BCI , A FREQUENCY STATEMENT REFERS TO A NON-EXISTENT SXGD15190 | | BINARY CARD NO. 9D000107 | 10466 632163254425 BCI 3,TATEMENT NUMBER, XGD15200 10471 606060606060 EXFNO BCI 2, . XGD15210 | 10473 0 00000 0 00000 ENNEF PZE XGD15220 | 10474 0 00000 1 00000 LIST PZE **,1 XGD15230 | 10475 0 00000 1 00000 LIST1 PZE **,1 XGD15240 | 10476 0 00000 1 00000 LIST2 PZE **,1 XGD15250 XGD15260 | 10477 +001100000000 BGERL OCT 001100000000 CONBET XGD15270 | 10500 0000 00 0 10303 HTR CONBET XGD15280 | 10501 +000061000000 OCT 000061000000 FORMAT XGD15290 | 10502 0000 00 0 07150 HTR FORMAT XGD15300 10503 +001070000000 OCT 001070000000 DOBX XGD15310 | 10504 0000 00 0 10257 HTR DOBTNX XGD15320 | | BINARY CARD NO. 9D000108 | 10505 +001050000000 OCT 001050000000 DONOB XGD15330 10506 0000 00 0 07306 HTR DONOBT XGD15340 | 10507 +001360000000 OCT 001360000000 ISNONX XGD15350 | 10510 0000 00 0 10060 HTR ISNONX XGD15360 | 10511 +000764000000 OCT 000764000000 T6NO XGD15370 | 10512 0000 00 0 07304 HTR TIF6B XGD15380 10513 +000746000000 OCT 000746000000 T5NO2 XGD15390 | 10514 0000 00 0 07302 HTR B2TIF5 XGD15400 | 10515 +000736000000 OCT 000736000000 T5NO1 XGD15410 | 10516 0000 00 0 07300 HTR B1TIF5 XGD15420 | 10517 +000706000000 OCT 000706000000 T4NO2 XGD15430 10520 0000 00 0 07276 HTR B2TIF4 XGD15440 | 10521 +000676000000 OCT 000676000000 T4NO1 XGD15450 | 10522 0000 00 0 07274 HTR B1TIF4 XGD15460 | 10523 +000657000000 OCT 000657000000 T3NO2 XGD15470 | 10524 0000 00 0 07272 HTR B2TIF3 XGD15480 10525 +000647000000 OCT 000647000000 T3NO1 XGD15490 | 10526 0000 00 0 07270 HTR B1TIF3 XGD15500 | 10527 +000622000000 OCT 000622000000 T2NO XGD15510 | 10530 0000 00 0 07266 HTR BTIFG2 XGD15520 | 10531 +000571000000 OCT 000571000000 T1NO XGD15530 10532 0000 00 0 07261 HTR BTIFG1 XGD15540 | | BINARY CARD NO. 9D000109 | 10533 +000547000000 OCT 000547000000 TZRNO XGD15550 | 10534 0000 00 0 07254 HTR TSXTFO XGD15560 10535 +000527000000 OCT 000527000000 TMNO3 XGD15570 | 10536 0000 00 0 07247 HTR MINB3 XGD15580 | 10537 +000517000000 OCT 000517000000 TMNO2 XGD15590 | 10540 0000 00 0 07242 HTR MINB2 XGD15600 | 10541 +000506000000 OCT 000506000000 TMNO1 XGD15610 10542 0000 00 0 07235 HTR MINB1 XGD15620 | 10543 +001234000000 OCT 001234000000 BADEQU XGD15630 | 10544 0000 00 0 10410 HTR NOTEQV XGD15640 | 10545 +001172000000 OCT 001172000000 TOOFRQ XGD15650 | 10546 0000 00 0 10362 HTR FRETIF XGD15660 10547 +001014000000 OCT 001014000000 NOTRA XGD15670 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 33 | | 10550 0000 00 0 10330 HTR NOTRA XGD15680 | 10551 +000063000000 OCT 000063000000 EFN IN FREQ. STATEMENT DOES NOT EXIST XGD15690 10552 0 00000 0 10444 PZE NEFNF XGD15700 | 10553 +000062000000 ER1PRM OCT 000062000000 ETE DUPLICATE TEIFNO XGD15710 | 10554 0000 00 0 07100 HTR TEIFN IE.,TSXE FROM NON-ARITH DIAP XGD15720 | XGD15730 | 10555 0534 00 4 06256 TWO1 LXA SAVE2,4 XGD15750 | 10556 -0634 00 4 10565 SXD PARM1,4 XGD15760 | 10557 0500 00 0 06305 CLA SAVEMQ XGD15770 | 10560 0601 00 0 06274 STO ERAS XGD15780 | BINARY CARD NO. 9D000110 | 10561 0400 00 0 06302 ADD AD1 XGD15790 | 10562 0402 00 0 06256 SUB SAVE2 XGD15800 | 10563 0601 00 0 06305 STO SAVEMQ XGD15810 | 10564 0074 00 4 05270 TSX FIND1,4 XGD15820 10565 0 00000 0 23742 PARM1 PZE SYMBOL,,** XGD15830 | 10566 0020 00 0 05334 TRA IOER05 XGD15840 | 10567 0020 00 0 10574 TRA CRS1 XGD15850 | 10570 0500 00 0 06336 CLA (L)SYM XGD15860 | 10571 0400 00 0 06256 ADD SAVE2 XGD15870 10572 0402 00 0 06302 SUB AD1 XGD15880 | 10573 0020 00 0 10575 TRA COM1 XGD15890 | 10574 0500 00 0 06274 CRS1 CLA ERAS XGD15900 | 10575 0621 00 0 10614 COM1 STA NXTDO XGD15910 | 10576 0621 00 0 10625 STA DO1 XGD15920 10577 0402 00 0 06302 SUB AD1 XGD15930 | 10600 0621 00 0 10627 STA LST1 XGD15940 | 10601 0621 00 0 10655 STA LIST4 XGD15950 | 10602 0402 00 0 06302 SUB AD1 XGD15960 | 10603 0621 00 0 10632 STA LST2 XGD15970 10604 0621 00 0 10657 STA LIST5 XGD15980 | 10605 0402 00 0 06302 SUB AD1 XGD15990 | 10606 0621 00 0 10634 STA LIST3 XGD16000 | | BINARY CARD NO. 9D000111 10607 0074 00 4 04650 TSX TITL,4 XGD16010 | 10610 0534 00 1 06256 LXA SAVE2,1 SECTION 2 LEAVES ERNBR IN IR 2 XGD16020 | 10611 2 00002 1 10612 TIX DONX1,1,2 XGD16030 | 10612 -0634 00 1 10642 DONX1 SXD DOTST,1 XGD16040 | 10613 -0534 00 1 06263 LXD ZERO,1 XGD16050 10614 0500 00 1 00000 NXTDO CLA **,1 XGD16060 | 10615 0100 00 0 10650 TZE ONEDO XGD16070 | 10616 0500 00 0 10727 CLA MORDOS DO NOT PRINT COMMENT FOR SUCCEEDING XGD16080 | 10617 -0100 00 0 10625 TNZ DO1 ERRORS XGD16090 | 10620 0074 00 4 05005 TSX PRINT,4 XGD16100 10621 0 10700 0 10663 PZE NONEST,,NONEST+13 XGD16110 | 10622 -0634 00 4 10727 SXD MORDOS,4 XGD16120 | 10623 0074 00 4 05005 TSX PRINT,4 SPACE 1 LINE. XGD16130 | 10624 0 06036 0 06012 PZE 20BLKS,,END20 XGD16140 | 10625 0500 00 1 00000 DO1 CLA **,1 XGD16150 10626 0601 00 0 06257 STO ALFBET XGD16160 | 10627 0500 00 1 00000 LST1 CLA **,1 XGD16170 | 10630 0601 00 0 06260 STO SYM XGD16180 | 10631 0074 00 4 04461 TSX FX4PR,4 PRINT 1ST DO XGD16190 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 34 | 10632 0500 00 1 00000 LST2 CLA **,1 AND 2ND. XGD16200 | 10633 0601 00 0 06257 STO ALFBET XGD16210 | 10634 0500 00 1 00000 LIST3 CLA **,1 XGD16220 | BINARY CARD NO. 9D000112 | 10635 0601 00 0 06260 STO SYM XGD16230 | 10636 0074 00 4 04461 TSX FX4PR,4 XGD16240 | 10637 0074 00 4 05005 TSX PRINT,4 SPACE 1 LINE. XGD16250 | 10640 0 06036 0 06012 PZE 20BLKS,,END20 XGD16260 10641 1 00004 1 10642 TXI DOTST,1,4 XGD16270 | 10642 -3 00000 1 10614 DOTST TXL NXTDO,1,0 XGD16280 | 10643 0074 00 4 05005 TSX PRINT,4 SPACE 1 LINE. XGD16290 | 10644 0 06036 0 06012 PZE 20BLKS,,END20 XGD16300 | 10645 0074 00 4 05005 TSX PRINT,4 XGD16310 10646 0 10711 0 10700 PZE ENDNST,,ENDNST+9 XGD16320 | 10647 0020 00 0 04176 TRA SPEND XGD16330 | 10650 0600 00 0 10727 ONEDO STZ MORDOS XGD16340 | 10651 0074 00 4 05005 TSX PRINT,4 SPACE 1 LINE. XGD16350 | 10652 0 06036 0 06012 PZE 20BLKS,,END20 XGD16360 10653 0074 00 4 05005 TSX PRINT,4 XGD16370 | 10654 0 10727 0 10711 PZE DOPR,,DOPR+14 XGD16380 | 10655 0500 00 1 00000 LIST4 CLA **,1 XGD16390 | 10656 0601 00 0 06257 STO ALFBET XGD16400 | 10657 0500 00 1 00000 LIST5 CLA **,1 XGD16410 10660 0601 00 0 06260 STO SYM XGD16420 | 10661 0074 00 4 04461 TSX FX4PR,4 XGD16430 | 10662 1 00003 1 10642 TXI DOTST,1,3 XGD16440 | | BINARY CARD NO. 9D000113 10663 606060606060 NONEST BCD 2 XGD16450 | 10665 633025602446 BCD THE DO STATEMENTS IN THE FOLLOWING LIST ARE NOT CORRECTLY NEXGD16460 | 10677 626325246060 BCD 1STED XGD16470 | 10700 606060606060 ENDNST BCD 2 XGD16480 | 10702 234651512523 BCI 7,CORRECT THE DO NESTING BEFORE RECOMPILING. XGD16490 | BINARY CARD NO. 9D000114 | 10711 606060606060 DOPR BCD 2 XGD16500 | 10713 633025606263 BCD THE STATEMENT NUMBER ENDING A DO IS ABOVE IT IN THE SOURCE PXGD16510 | 10725 514627512144 BCD 2ROGRAM. XGD16520 10727 0000 00 0 00000 MORDOS HTR 0 XGD16530 | | 10730 0500 00 0 06305 TWO2 CLA SAVEMQ XGD16550 | 10731 0601 00 0 06274 STO ERAS XGD16560 | 10732 0402 00 0 06255 SUB SAVE1 XGD16570 10733 0601 00 0 06305 STO SAVEMQ XGD16580 | 10734 0074 00 4 05270 TSX FIND1,4 XGD16590 | 10735 0 00002 0 23742 PZE SYMBOL,,2 XGD16600 | 10736 0020 00 0 10776 TRA ERR5 XGD16610 | BINARY CARD NO. 9D000115 | 10737 0020 00 0 10743 TRA CRS2 XGD16620 | 10740 0600 00 0 06255 STZ SAVE1 XGD16630 | 10741 0500 00 0 06336 CLA (L)SYM XGD16640 | 10742 0020 00 0 10744 TRA COM2 XGD16650 10743 0500 00 0 06274 CRS2 CLA ERAS XGD16660 | 10744 0621 00 0 10751 COM2 STA L13700 XGD16670 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 35 | | 10745 0400 00 0 06302 ADD AD1 XGD16680 10746 0621 00 0 10753 STA SMBL XGD16690 | 10747 0074 00 4 04650 TSX TITL,4 XGD16700 | 10750 0534 00 1 06255 LXA SAVE1,1 XGD16710 | 10751 0500 00 1 00000 L13700 CLA **,1 LOC ENTRY FOR A DO B XGD16720 | 10752 0601 00 0 06257 STO ALFBET XGD16730 10753 0500 00 1 00000 SMBL CLA **,1 AND SYMBOL FOR SAME XGD16740 | 10754 0601 00 0 06260 STO SYM XGD16750 | 10755 0074 00 4 05005 TSX PRINT,4 XGD16760 | 10756 0 10775 0 10761 PZE PR11,,X11 XGD16770 | 10757 0074 00 4 04461 TSX FX4PR,4 XGD16780 10760 0020 00 0 04176 TRA SPEND XGD16790 | 10761 606060606060 PR11 BCI 2, XGD16800 | 10763 314343252721 BCD ILLEGAL DO STATEMENT. THE 3RD PARAMETER MAY NOT EQUAL ZERO.XGD16810 | | BINARY CARD NO. 9D000116 10775 0 00000 0 00000 X11 PZE XGD16820 | 10776 0074 00 4 04650 ERR5 TSX TITL,4 XGD16830 | 10777 0074 00 4 05005 TSX PRINT,4 XGD16840 | 11000 0 06036 0 05742 PZE ERR1,,END20 XGD16850 | 11001 0074 00 4 05005 TSX PRINT,4 XGD16860 11002 0 10775 0 10761 PZE PR11,,X11 XGD16870 | 11003 0020 00 0 04176 TRA SPEND XGD16880 | | 11004 0074 00 4 04650 TWO3 TSX TITL,4 XGD16900 | 11005 0074 00 4 05005 TSX PRINT,4 XGD16910 11006 0 11043 0 11010 PZE PR12,,X12 XGD16920 | 11007 0020 00 0 04176 TRA SPEND XGD16930 | 11010 606060606060 PR12 BCI 2, XGD16940 | 11012 635121456226 BCD TRANSFER ADDRESS LEVEL IS GREATER THAN 20. REPROGRAM TO ELIXGD16950 | BINARY CARD NO. 9D000117 | 11024 443145216325 BCD MINATE TRANSFERS TO DOS XGD16960 | 11036 663163306043 BCD 5WITH LEVELS GREATER THAN 20. XGD16970 | | BINARY CARD NO. 9D000118 11043 0 00000 0 00000 X12 PZE XGD16980 | | 11044 0500 00 0 06305 TWO4 CLA SAVEMQ XGD17000 | 11045 0601 00 0 06274 STO ERAS XGD17010 | 11046 0402 00 0 06255 SUB SAVE1 XGD17020 11047 0601 00 0 06305 STO SAVEMQ XGD17030 | 11050 0074 00 4 05270 TSX FIND1,4 XGD17040 | 11051 0 00001 0 23742 PZE SYMBOL,,1 XGD17050 | 11052 0020 00 0 11124 TRA ERR6 XGD17060 | 11053 0020 00 0 11057 TRA CRS3 XGD17070 11054 0600 00 0 06255 STZ SAVE1 XGD17080 | 11055 0500 00 0 06336 CLA (L)SYM XGD17090 | 11056 0020 00 0 11060 TRA COM3 XGD17100 | 11057 0500 00 0 06274 CRS3 CLA ERAS XGD17110 | 11060 0621 00 0 11063 COM3 STA CLA1 XGD17120 11061 0074 00 4 04650 TSX TITL,4 XGD17130 | 11062 0534 00 1 06255 LXA SAVE1,1 XGD17140 | 11063 0500 00 1 00000 CLA1 CLA **,1 XGD17150 | 11064 0771 00 0 00022 ARS 18 XGD17160 | 11065 0074 00 4 04416 TSX EXBETA,4 XGD17170 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 36 | | 11066 0602 00 0 06274 SLW ERAS XGD17180 | | BINARY CARD NO. 9D000119 11067 0560 00 0 06274 LDQ ERAS XGD17190 | 11070 -0500 00 0 11107 CAL PR14 XGD17200 | 11071 0771 00 0 00006 ARS 6 XGD17210 | 11072 -0763 00 0 00006 LGL 6 XGD17220 | 11073 0602 00 0 11107 SLW PR14 XGD17230 11074 -0763 00 0 00036 LGL 30 XGD17240 | 11075 0560 00 0 06264 LDQ BLANKS XGD17250 | 11076 -0763 00 0 00006 LGL 6 XGD17260 | 11077 0602 00 0 11110 SLW PR15 XGD17270 | 11100 0074 00 4 05005 TSX PRINT,4 XGD17280 11101 0 11123 0 11103 PZE PR13,,X13 XGD17290 | 11102 0020 00 0 04176 TRA SPEND XGD17300 | 11103 606060606060 PR13 BCI 2, XGD17310 | 11105 626321632544 BCD 2STATEMENT NU XGD17320 | 11107 442225516060 PR14 BCI 1,MBER XGD17330 11110 606060606060 PR15 BCI 1, XGD17340 | 11111 635121456226 BCD TRANSFERS INTO THE RANGE OF A DO FROM OUTSIDE ITS RANGE. XGD17350 | | BINARY CARD NO. 9D000120 | 11123 0 00000 0 00000 X13 PZE XGD17360 11124 0074 00 4 04650 ERR6 TSX TITL,4 XGD17370 | 11125 0074 00 4 05005 TSX PRINT,4 XGD17380 | 11126 0 06036 0 05742 PZE ERR1,,END20 XGD17390 | 11127 0074 00 4 05005 TSX PRINT,4 XGD17400 | 11130 0 11123 0 11103 PZE PR13,,X13 XGD17410 11131 0020 00 0 04176 TRA SPEND XGD17420 | | 11132 0074 00 4 04650 TWO5 TSX TITL,4 XGD17440 | 11133 0074 00 4 05005 TSX PRINT,4 XGD17450 | 11134 0 11160 0 11136 PZE PR16,,X16 XGD17460 11135 0020 00 0 04176 TRA SPEND XGD17470 | 11136 606060606060 PR16 BCI 2, XGD17480 | 11140 633025606521 BCD THE VARIABLE PARAMETER OF A DO IS REDEFINED BY THE INDEX SYMXGD17490 | | BINARY CARD NO. 9D000121 11152 224643604626 BCD 6BOL OF A DO STATEMENT WITHIN THE DO. XGD17500 | 11160 0 00000 0 00000 X16 PZE XGD17510 | | 11161 0074 00 4 04650 TWO6 TSX TITL,4 XGD17530 | 11162 0074 00 4 05005 TSX PRINT,4 XGD17540 11163 0 11207 0 11165 PZE PR17,,X17 XGD17550 | 11164 0020 00 0 04176 TRA SPEND XGD17560 | 11165 606060606060 PR17 BCI 2, XGD17570 | 11167 475146275121 BCI ,PROGRAM HAS MORE THAN 200 DO STATEMENTS IN A NEST. REWRITE XGD17580 | BINARY CARD NO. 9D000122 | 11201 475146275121 BCI 6,PROGRAM WITH SIMPLER DO STRUCTURE. XGD17590 | 11207 0 00000 0 00000 X17 PZE XGD17600 | | 11210 0534 00 1 06255 TWO7 LXA SAVE1,1 SECTION 2 LEAVES INDEXING IN IR1. XGD17620 11211 3 00005 1 11517 TXH GTME,1,5 XGD17630 | 11212 0074 00 4 04650 TSX TITL,4 XGD17640 | 11213 -3 00001 1 11421 TXL DRMTAG,1,1 XGD17650 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 37 | 11214 -3 00002 1 11424 TXL NAMKEY,1,2 XGD17660 | 11215 -3 00003 1 11344 TXL TSXCOM,1,3 XGD17670 | 11216 -3 00004 1 11426 TXL TRASTO,1,4 XGD17680 | | BINARY CARD NO. 9D000123 11217 0074 00 4 05005 TSX PRINT,4 XGD17690 | 11220 0 11344 0 11222 PZE PR19,,PR19+82 XGD17700 | 11221 0020 00 0 04176 TRA SPEND XGD17710 | 11222 606060606060 PR19 BCI 2, XGD17720 | 11224 233027632127 BCD CHGTAG TABLE EXCEEDS BUFFER SIZE. AN ENTRY IS MADE IN THIS XGD17730 11236 632122432560 BCD TABLE WHEN THERE ARE AT LEAST TWO XGD17740 | | BINARY CARD NO. 9D000124 | 11250 626422622351 BCD SUBSCRIPT COMBINATIONS WITH THE SAME SYMBOLS, COEFFICIENTS, XGD17750 | 11262 214524604325 BCD AND LEADING DIMENSIONS XGD17760 | BINARY CARD NO. 9D000125 | 11274 663163303145 BCD WITHIN THE SAME NEST WHICH HAS AT LEAST ONE, BUT NOT ALL, COXGD17770 | 11306 456351464343 BCD NTROLLING DOS IN COMMON. XGD17780 | 11320 633025606321 BCD THE TABLE IS CUMULATIVE OVER ALL NESTS IN THE PROBLEM. REWRXGD17790 | BINARY CARD NO. 9D000126 | 11332 316325606246 BCD ITE SOURCE PROGRAM. XGD17800 | 11344 0074 00 4 05005 TSXCOM TSX PRINT,4 XGD17810 | 11345 0 11421 0 11347 PZE PR18,,PR18+42 XGD17820 11346 0020 00 0 04176 TRA SPEND XGD17830 | | BINARY CARD NO. 9D000127 | 11347 606060606060 PR18 BCI 2, XGD17840 | 11351 636267234644 BCD TSXCOM TABLE EXCEEDS BUFFER SIZE. THERE ARE TOO MANY RELATIXGD17850 11363 652560234645 BCD VE CONSTANT DEFINITIONS. XGD17860 | | BINARY CARD NO. 9D000128 | 11375 633025606321 BCD THE TABLE IS CUMULATIVE OVER THE ENTIRE PROBLEM. REWRITE SOXGD17870 | 11407 645123256047 BCD URCE PROGRAM. XGD17880 11421 0500 00 0 11515 DRMTAG CLA DRTG XGD17890 | 11422 0601 00 0 14247 STO PR3 XGD17900 | | BINARY CARD NO. 9D000129 | 11423 0020 00 0 11426 TRA TRASTO XGD17910 11424 0500 00 0 11516 NAMKEY CLA NMKY XGD17920 | 11425 0601 00 0 11433 STO PR21 XGD17930 | 11426 0074 00 4 05005 TRASTO TSX PRINT,4 XGD17940 | 11427 0 11515 0 11431 PZE PR20,,PR20+52 XGD17950 | 11430 0020 00 0 04176 TRA SPEND XGD17960 11431 606060606060 PR20 BCI 2, XGD17970 | 11433 635121626346 PR21 BCI ,TRASTO TABLE EXCEEDS BUFFER SIZE. THE SUBSCRIPT COMBINATIONXGD17980 | 11445 626021452460 BCD S AND FLOW STRUCTURE IS TOO COMPLEX XGD17990 | | BINARY CARD NO. 9D000130 11457 663163303145 BCD WITHIN DO NESTS. THIS TABLE IS CUMULATIVE OVER ALL NESTS. XGD18000 | 11471 512566513163 BCD REWRITE SOURCE PROGRAM AND XGD18010 | | BINARY CARD NO. 9D000131 | 11503 623144474331 BCD SIMPLIFY SUBSCRIPT COMBINATIONS OR DO NEST STRUCTURE. XGD18020 11515 245144632127 DRTG BCD 1DRMTAG XGD18030 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 38 | | 11516 452144422570 NMKY BCD 1NAMKEY XGD18040 | 11517 0074 00 4 05324 GTME TSX ERR01,4 CANNOT IDENTIFY -- MACHINE ERROR. XGD18050 | 11520 0074 00 4 05270 TWO8 TSX FIND1,4 XGD18070 | 11521 0 00001 0 23742 PZE SYMBOL,,1 XGD18080 | 11522 0020 00 0 11643 TRA ERR7 XGD18090 | 11523 0020 00 0 11526 TRA CRS4 XGD18100 11524 0500 00 0 06336 CLA (L)SYM XGD18110 | | BINARY CARD NO. 9D000132 | 11525 0020 00 0 11527 TRA COM4 XGD18120 | 11526 0500 00 0 06305 CRS4 CLA SAVEMQ XGD18130 11527 0621 00 0 11533 COM4 STA CLA2 XGD18140 | 11530 0400 00 0 06302 ADD AD1 XGD18150 | 11531 0621 00 0 11535 STA CLA3 XGD18160 | 11532 0074 00 4 04650 TSX TITL,4 XGD18170 | 11533 0500 00 0 00000 CLA2 CLA ** LOC ENTRY FOR A DO B XGD18180 11534 0601 00 0 06257 STO ALFBET XGD18190 | 11535 0500 00 0 00000 CLA3 CLA ** AND SYMBOL FOR SAME XGD18200 | 11536 0601 00 0 06260 STO SYM XGD18210 | 11537 0074 00 4 05005 TSX PRINT,4 XGD18220 | 11540 0 11605 0 11545 PZE PR22,,PR23 XGD18230 11541 0074 00 4 04461 TSX FX4PR,4 XGD18240 | 11542 0074 00 4 05005 TSX PRINT,4 XGD18250 | 11543 0 11642 0 11605 PZE PR23,,X23 XGD18260 | 11544 0020 00 0 04176 TRA SPEND XGD18270 | 11545 606060606060 PR22 BCI 2, XGD18280 11547 214560314563 BCD AN INTERMEDIATE CORE TABLE IS FULL. THE SUBSCRIPT COMBINATIXGD18290 | | BINARY CARD NO. 9D000133 | 11561 464562602145 BCD ONS AND FLOW STRUCTURE XGD18300 | 11573 215125606346 BCD ARE TOO COMPLEX WITHIN A DO NEST. THE STATEMENT XGD18310 | BINARY CARD NO. 9D000134 | 11605 606060606060 PR23 BCI 2, XGD18320 | 11607 316260633025 BCD IS THE OUTERMOST DO OF THE NEST WHICH HAS CAUSED THE OVERFLOXGD18330 | 11621 663360605125 BCD W. REWRITE NEST AND SIMPLIFY XGD18340 | BINARY CARD NO. 9D000135 | 11633 626422622351 BCD 7SUBSCRIPT COMBINATIONS OR FLOW STRUCTURE. XGD18350 | 11642 0 00000 0 00000 X23 PZE XGD18360 | 11643 0074 00 4 04650 ERR7 TSX TITL,4 XGD18370 11644 0074 00 4 05005 TSX PRINT,4 XGD18380 | 11645 0 06036 0 05742 PZE ERR1,,END20 XGD18390 | 11646 0074 00 4 05005 TSX PRINT,4 XGD18400 | 11647 0 11605 0 11545 PZE PR22,,PR23 XGD18410 | 11650 0074 00 4 05005 TSX PRINT,4 XGD18420 11651 0 06036 0 06012 PZE 20BLKS,,END20 XGD18430 | 11652 0074 00 4 05005 TSX PRINT,4 XGD18440 | 11653 0 11642 0 11605 PZE PR23,,X23 XGD18450 | 11654 0020 00 0 04176 TRA SPEND XGD18460 | | BINARY CARD NO. 9D000136 | 11655 0074 00 4 04650 TWO9 TSX TITL,4 XGD18480 | 11656 0074 00 4 05005 TSX PRINT,4 XGD18490 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 39 | 11657 0 11726 0 11661 PZE PR24,,X24 XGD18500 | 11660 0020 00 0 04176 TRA SPEND XGD18510 | 11661 606060606060 PR24 BCI 2, XGD18520 | 11663 214560314563 BCD AN INTERMEDIATE CORE TABLE IS FULL. REWRITE SOURCE PROGRAM XGD18530 11675 214524604446 BCD AND MODIFY THE NUMBER OF PURE RELATIVE CONSTANT XGD18540 | | BINARY CARD NO. 9D000137 | 11707 626422622351 BCD SUBSCRIPT COMBINATIONS, IE., SUBSCRIPTS, NO SYMBOL OF WHICH XGD18550 | 11721 316260644524 BCD 5IS UNDER CONTROL OF A DO. XGD18560 11726 0 00000 0 00000 X24 PZE XGD18570 | | 11727 0074 00 4 04650 TWO10 TSX TITL,4 XGD18590 | 11730 0074 00 4 05005 TSX PRINT,4 XGD18600 | BINARY CARD NO. 9D000138 | 11731 0 12017 0 11733 PZE PR25,,X25 XGD18610 | 11732 0020 00 0 04176 TRA SPEND XGD18620 | 11733 606060606060 PR25 BCI 2, XGD18630 | 11735 263167234645 BCD FIXCON TABLE HAS OVERFLOWED. FIXED POINT CONSTANTS SPECIFIEXGD18640 11747 246022706063 BCD D BY THE SOURCE PROGRAM AND XGD18650 | | BINARY CARD NO. 9D000139 | 11761 633046622560 BCD THOSE INSERTED BY SECTION 2 FOR COMPUTATION OF SUBSCRIPT VALXGD18660 | 11773 642562736030 BCD UES, HAVE GIVEN RISE XGD18670 | BINARY CARD NO. 9D000140 | 12005 634660444651 BCD TO MORE THAN 300 ENTRIES IN THIS TABLE. REWRITE PROGRAM. XGD18680 | 12017 0 00000 0 00000 X25 PZE XGD18690 | 12020 0074 00 4 04650 TWO11 TSX TITL,4 XGD18710 | 12021 0074 00 4 05005 TSX PRINT,4 XGD18720 | 12022 0 12074 0 12024 PZE PR26,,X27 XGD18730 | 12023 0020 00 0 04176 TRA SPEND XGD18740 | 12024 606060606060 PR26 BCI , THE TAGTAG TABLE IS FULL. TOO MANY TAGS ARE NEEXGD18750 | BINARY CARD NO. 9D000141 | 12036 242524336060 BCI ,DED. XGD18760 | 12050 606060606060 BCI , REWRITE SOURCE PROGRAM REDUCING NUMBER OF SUBSCRXGD18770 | BINARY CARD NO. 9D000142 | 12062 314763602346 BCI ,IPT COMBINATIONS. XGD18780 | 12074 0 00000 0 00000 X27 PZE XGD18790 | | 12075 0074 00 4 05270 TWO12 TSX FIND1,4 XGD18810 12076 0 00001 0 23742 PZE SYMBOL,,1 XGD18820 | 12077 0020 00 0 12176 TRA ERR8 XGD18830 | 12100 0020 00 0 12103 TRA CRS5 XGD18840 | 12101 0500 00 0 06336 CLA (L)SYM XGD18850 | 12102 0020 00 0 12104 TRA COM5 XGD18860 12103 0500 00 0 06305 CRS5 CLA SAVEMQ XGD18870 | 12104 0621 00 0 12106 COM5 STA VCTR XGD18880 | 12105 0074 00 4 04650 TSX TITL,4 XGD18890 | 12106 0500 00 0 00000 VCTR CLA ** XGD18900 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 40 | BINARY CARD NO. 9D000143 | 12107 0771 00 0 00022 ARS 18 XGD18910 | 12110 0074 00 4 04416 TSX EXBETA,4 XGD18920 | 12111 0602 00 0 12135 SLW BETA XGD18930 12112 0560 00 0 12135 LDQ BETA XGD18940 | 12113 -0500 00 0 06264 CAL BLANKS XGD18950 | 12114 -0763 00 0 00036 LGL 30 XGD18960 | 12115 0602 00 0 12135 SLW BETA XGD18970 | 12116 -0763 00 0 00006 LGL 6 XGD18980 12117 0560 00 0 12136 LDQ BETA+1 XGD18990 | 12120 -0763 00 0 00036 LGL 30 XGD19000 | 12121 0602 00 0 12136 SLW BETA+1 XGD19010 | 12122 0074 00 4 05005 TSX PRINT,4 XGD19020 | 12123 0 12175 0 12125 PZE PR28,,X28 XGD19030 12124 0020 00 0 04176 TRA SPEND XGD19040 | 12125 606060606060 PR28 BCI 2, XGD19050 | 12127 634646604421 BCD 6TOO MANY DOS END AT STATEMENT NUMBER XGD19060 | | BINARY CARD NO. 9D000144 12135 606767676767 BETA BCD 1 XXXXX XGD19070 | 12136 606046516060 BCD OR TOO MANY SUB-IFNS CREATED DUE TO VARIABLE SUBSCRIPT DEXGD19080 | 12150 263145252460 BCD 3FINED $XGD19090 | 12153 216360466463 BCD AT OUTER DO. CORRECT WITH CONTINUE STATEMENTS AT DO ENDS OR XGD19100 | BINARY CARD NO. 9D000145 | 12165 442142256064 BCD 8MAKE USE OF A RELCON TO DEFINE THE SUBSCRIPT. $XGD19110 | 12175 0 00000 0 00000 X28 PZE XGD19120 | 12176 0074 00 4 04650 ERR8 TSX TITL,4 XGD19130 | 12177 0074 00 4 05005 TSX PRINT,4 XGD19140 12200 0 06036 0 05742 PZE ERR1,,END20 XGD19150 | 12201 0074 00 4 05005 TSX PRINT,4 XGD19160 | 12202 0 12175 0 12125 PZE PR28,,X28 XGD19170 | 12203 0020 00 0 04176 TRA SPEND XGD19180 | 12204 0074 00 4 04650 TWO13 TSX TITL,4 XGD19200 | 12205 0074 00 4 05005 TSX PRINT,4 XGD19210 | 12206 0 12226 0 12210 PZE PR59,,X59 XGD19220 | 12207 0020 00 0 04176 TRA SPEND XGD19230 | 12210 606060606060 PR59 BCI 2, XGD19240 | BINARY CARD NO. 9D000146 | 12212 634646604421 BCI ,TOO MANY TRANSFERS WITHIN THE RANGE OF DO STATEMENTS. REWRIXGD19250 | 12224 632560475146 BCI 2,TE PROGRAM. XGD19260 | 12226 0 00000 0 00000 X59 PZE XGD19270 | 12227 0074 00 4 04650 THR1 TSX TITL,4 XGD19290 | 12230 0074 00 4 05005 TSX PRINT,4 XGD19300 | 12231 0 12311 0 12233 PZE PR31,,X31 XGD19310 | 12232 0020 00 0 04176 TRA SPEND XGD19320 12233 606060606060 PR31 BCI 2, XGD19330 | 12235 464725456062 BCD OPEN SUBROUTINE NOT IN DICTIONARY USED BY SECTION 3. THIS IXGD19340 | | BINARY CARD NO. 9D000147 | 12247 452431232163 BCD NDICATES THAT THE SYSTEM TAPE XGD19350 12261 662162603144 BCD WAS IMPROPERLY EDITED WHEN ADDITION WAS MADE TO DICTIONARY OXGD19360 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 41 | | BINARY CARD NO. 9D000148 | 12273 266046472545 BCD F OPEN SUBROUTINES USED BY XGD19370 12305 622523633146 BCD 4SECTION 1 AND SECTION 3. XGD19380 | 12311 0 00000 0 00000 X31 PZE XGD19390 | | 12312 0074 00 4 04650 THR2 TSX TITL,4 XGD19410 | BINARY CARD NO. 9D000149 | 12313 0074 00 4 05005 TSX PRINT,4 XGD19420 | 12314 0 12432 0 12316 PZE PR32,,X32 XGD19430 | 12315 0020 00 0 04176 TRA SPEND XGD19440 | 12316 606060606060 PR32 BCI 2, XGD19450 12320 233027632127 BCD CHGTAG TABLE EXCEEDS BUFFER SIZE. AN ENTRY IS MADE IN THIS XGD19460 | 12332 632122432560 BCD TABLE WHEN THERE ARE AT LEAST TWO XGD19470 | | BINARY CARD NO. 9D000150 | 12344 626422622351 BCD SUBSCRIPT COMBINATIONS WITH THE SAME SYMBOLS, COEFFICIENTS, XGD19480 12356 214524604325 BCD AND LEADING DIMENSIONS XGD19490 | | BINARY CARD NO. 9D000151 | 12370 663163303145 BCD WITHIN THE SAME NEST WHICH HAS AT LEAST ONE, BUT NOT ALL, COXGD19500 | 12402 456351464343 BCD NTROLLING DOS IN COMMON. XGD19510 12414 633025606321 BCD THE TABLE IS CUMULATIVE OVER ALL NESTS IN THE PROBLEM. REWRXGD19520 | | BINARY CARD NO. 9D000152 | 12426 316325606246 BCD 4ITE SOURCE PROGRAM. XGD19530 | 12432 0 00000 0 00000 X32 PZE XGD19540 | 12433 0074 00 4 04650 THR3 TSX TITL,4 XGD19560 | 12434 0074 00 4 05005 TSX PRINT,4 XGD19570 | 12435 0 12476 0 12437 PZE PR33,,X33 XGD19580 | 12436 0020 00 0 04176 TRA SPEND XGD19590 12437 606060606060 PR33 BCI 2, XGD19600 | 12441 214560215131 BCD AN ARITHMETIC STATEMENT FUNCTION HAS BEEN DEFINED AT A POINTXGD19610 | | BINARY CARD NO. 9D000153 | 12453 606060606060 BCD XGD19620 12465 314560633025 BCD 9IN THE SOURCE PROGRAM OTHER THAN AT ITS BEGINNING. XGD19630 | | BINARY CARD NO. 9D000154 | 12476 0 00000 0 00000 X33 PZE XGD19640 | 12477 0074 00 4 04650 THR4 TSX TITL,4 XGD19660 | 12500 0074 00 4 05005 TSX PRINT,4 XGD19670 | 12501 0 12520 0 12503 PZE PR34,,X34 XGD19680 | 12502 0020 00 0 04176 TRA SPEND XGD19690 | 12503 606060606060 PR34 BCI 2, XGD19700 12505 216044644363 BCD A MULTIVARIATE OPEN SUBROUTINE HAS ONLY ONE ARGUMENT SPECIFIXGD19710 | | BINARY CARD NO. 9D000155 | 12517 252433606060 BCD 1ED. XGD19720 | 12520 0 00000 0 00000 X34 PZE XGD19730 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 42 | | 12521 0074 00 4 04650 THR5 TSX TITL,4 XGD19750 | 12522 0074 00 4 05005 TSX PRINT,4 XGD19760 | 12523 0 12544 0 12525 PZE PR35,,X35 XGD19770 12524 0020 00 0 04176 TRA SPEND XGD19780 | 12525 606060606060 PR35 BCI 2, XGD19790 | 12527 444651256021 BCD MORE ARGUMENTS HAVE BEEN SUPPLIED THAN ARE REQUIRED BY AN OPXGD19800 | 12541 254560626422 BCD 3EN SUBROUTINE. XGD19810 | 12544 0 00000 0 00000 X35 PZE XGD19820 | | BINARY CARD NO. 9D000156 | 12545 0074 00 4 04650 THR6 TSX TITL,4 XGD19840 | 12546 0074 00 4 05005 TSX PRINT,4 XGD19850 12547 0 12573 0 12551 PZE PR56,,X56 XGD19860 | 12550 0020 00 0 04176 TRA SPEND XGD19870 | 12551 606060606060 PR56 BCI 2, XGD19880 | 12553 622523633146 BCI ,SECTION 3 DOES NOT HAVE ROOM IN CORES FOR ITS CODING AND TABXGD19890 | 12565 432562336060 BCI 6,LES. REDUCE SIZE OF SOURCE PROGRAM. XGD19900 | BINARY CARD NO. 9D000157 | 12573 0 00000 0 00000 X56 PZE XGD19910 | | 12574 0074 00 4 04650 THR7 TSX TITL,4 XGD19930 12575 0074 00 4 05005 TSX PRINT,4 XGD19940 | 12576 0 12624 0 12600 PZE PR57,,X57 XGD19950 | 12577 0020 00 0 04176 TRA SPEND XGD19960 | 12600 606060606060 PR57 BCI 2, XGD19970 | 12602 633025606331 BCI ,THE TIFGO FILE OF COMPILED INSTRUCTIONS HAS OVERFLOWED. REDXGD19980 12614 642325606330 BCI 8,UCE THE NUMBER OF TRANSFERS IN SOURCE PROGRAM. XGD19990 | | BINARY CARD NO. 9D000158 | 12624 0 00000 0 00000 X57 PZE XGD20000 | 12625 0074 00 4 04650 THR8 TSX TITL,4 XGD20020 | 12626 0074 00 4 05005 TSX PRINT,4 XGD20030 | 12627 0 12650 0 12631 PZE PR58,,X58 XGD20040 | 12630 0020 00 0 04176 TRA SPEND XGD20050 | 12631 606060606060 PR58 BCI 2, XGD20060 12633 633025602162 BCI ,THE ASSIGN CONSTANT TABLE HAS OVERFLOWED. REDUCE NUMBER OF XGD20070 | 12645 216262312745 BCI 3,ASSIGN STATEMENTS. XGD20080 | | BINARY CARD NO. 9D000159 | 12650 0 00000 0 00000 X58 PZE XGD20090 | 12651 0074 00 4 04650 THR9 TSX TITL,4 XGD20110 | 12652 0074 00 4 05005 TSX PRINT,4 XGD20120 | 12653 0 12700 0 12655 PZE PR62,,X62 XGD20130 | 12654 0020 00 0 04176 TRA SPEND XGD20140 12655 606060606060 PR62 BCI , THERE ARE 32,768 OR MORE INSTRUCTIONS IN THE COMXGD20150 | 12667 473143252460 BCI 9,PILED PROGRAM. REDUCE THE SIZE OF THE SOURCE PROGRAM. XGD20160 | | BINARY CARD NO. 9D000160 | 12700 0 00000 0 00000 X62 PZE XGD20170 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 43 | | 12701 0074 00 4 04650 THR10 TSX TITL,4 XGD20190 | 12702 0074 00 4 05005 TSX PRINT,4 XGD20200 | 12703 0 12731 0 12705 PZE PR63,,X63 XGD20210 12704 0020 00 0 04176 TRA SPEND XGD20220 | 12705 606060606060 PR63 BCI , TOO MANY ARITHMETIC STATEMENT FUNCTIONS. REDUCEXGD20230 | 12717 606330256045 BCI , THE NUMBER OF ARITHMETIC STATEMENT FUNCTIONS. XGD20240 | | BINARY CARD NO. 9D000161 12731 0 00000 0 00000 X63 PZE XGD20250 | | | 12732 0074 00 4 04650 FOR1 TSX TITL,4 XGD20280 | 12733 0074 00 4 05005 TSX PRINT,4 XGD20290 12734 0 12777 0 12736 PZE PR36,,X36 XGD20300 | 12735 0020 00 0 04176 TRA SPEND XGD20310 | 12736 606060606060 PR36 BCI 2, XGD20320 | 12740 264346666046 BCD FLOW OF PROGRAM IS TOO COMPLEX. NEXT ENTRY CANNOT BE MADE IXGD20330 | BINARY CARD NO. 9D000162 | 12752 456043316263 BCD N LIST OF BASIC BLOCKS. XGD20340 | 12764 512566513163 BCD REWRITE PROGRAM WITH FEWER TRANSFER ADDRESSES, OR DO IN TWO XGD20350 | 12776 472151636233 BCD 1PARTS. XGD20360 | BINARY CARD NO. 9D000163 | 12777 0 00000 0 00000 X36 PZE XGD20370 | | 13000 0074 00 4 04650 FOR2 TSX TITL,4 XGD20390 | 13001 0074 00 4 05005 TSX PRINT,4 XGD20400 13002 0 13024 0 13004 PZE PR37,,X37 XGD20410 | 13003 0020 00 0 04176 TRA SPEND XGD20420 | 13004 606060606060 PR37 BCI 2, XGD20430 | 13006 216047215163 BCD A PART OF THE SOURCE PROGRAM HAS NO POSSIBLE PATH OF FLOW TOXGD20440 | 13020 603163336060 BCD 4 IT. CHECK PROGRAM. XGD20450 13024 0 00000 0 00000 X37 PZE XGD20460 | | | BINARY CARD NO. 9D000164 | 13025 0074 00 4 04650 FOR3 TSX TITL,4 XGD20480 13026 0074 00 4 05005 TSX PRINT,4 XGD20490 | 13027 0 13053 0 13031 PZE PR38,,X38 XGD20500 | 13030 0020 00 0 04176 TRA SPEND XGD20510 | 13031 606060606060 PR38 BCI 2, XGD20520 | 13033 444651256063 BCD MORE THAN 200 DISTINCT SYMBOLS USED IN ASSIGNED GO TO STATEMXGD20530 13045 254563623360 BCD 6ENTS. SIMPLIFY SOURCE PROGRAM. XGD20540 | | BINARY CARD NO. 9D000165 | 13053 0 00000 0 00000 X38 PZE XGD20550 | 13054 0074 00 4 04650 FOR4 TSX TITL,4 XGD20570 | 13055 0074 00 4 05005 TSX PRINT,4 XGD20580 | 13056 0 13102 0 13060 PZE PR41,,X41 XGD20590 | 13057 0020 00 0 04176 TRA SPEND XGD20600 | 13060 606060606060 PR41 BCI 2, XGD20610 13062 263167244662 BCD FIXDOS TABLE IS FULL. THERE ARE TOO MANY TRANSFERS TO DO STXGD20620 | 13074 216325442545 BCD 6ATEMENTS. REWRITE SOURCE PROGRAM. XGD20630 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 44 | | BINARY CARD NO. 9D000166 13102 0 00000 0 00000 X41 PZE XGD20640 | | 13103 0074 00 4 04650 FOR5 TSX TITL,4 XGD20660 | 13104 0074 00 4 05005 TSX PRINT,4 XGD20670 | 13105 0 13145 0 13107 PZE PR39,,X39 XGD20680 13106 0020 00 0 04176 TRA SPEND XGD20690 | 13107 606060606060 PR39 BCI 2, XGD20700 | 13111 264346666046 BCD FLOW OF PROGRAM IS TOO COMPLEX. TRA TABLE HAS TOO MANY ENTRXGD20710 | 13123 312562336060 BCD IES. REWRITE PROGRAM WITH XGD20720 | BINARY CARD NO. 9D000167 | 13135 262566255160 BCD 8FEWER TRANSFER ADDRESSES, OR DO IN TWO PARTS. XGD20730 | 13145 0 00000 0 00000 X39 PZE XGD20740 | | 13146 0074 00 4 04650 FOR6 TSX TITL,4 XGD20760 13147 0074 00 4 05005 TSX PRINT,4 XGD20770 | 13150 0 13204 0 13152 PZE PR40,,X40 XGD20780 | 13151 0020 00 0 04176 TRA SPEND XGD20790 | 13152 606060606060 PR40 BCI 2, XGD20800 | 13154 622563606321 BCD SET TABLE IS FULL. THERE ARE TOO MANY ASSIGN OR SENSE LIGHTXGD20810 | BINARY CARD NO. 9D000168 | 13166 606263216325 BCD STATEMENTS, OR TOO MANY TRANSFERS TO DOS. XGD20820 | 13200 512566513163 BCD 4REWRITE SOURCE PROGRAM. XGD20830 | BINARY CARD NO. 9D000169 | 13204 0 00000 0 00000 X40 PZE XGD20840 | | 13205 0074 00 4 04650 FOR7 TSX TITL,4 XGD20860 | 13206 0074 00 4 05005 TSX PRINT,4 XGD20870 13207 0 13235 0 13211 PZE PR61,,X61 XGD20880 | 13210 0020 00 0 04176 TRA SPEND XGD20890 | 13211 606060606060 PR61 BCI , AN ASSIGNED GO TO STATEMENT HAS BEEN USED IN A PXGD20900 | 13223 514627512144 BCI ,ROGRAM WHICH HAS NO ASSIGN STATEMENT. CORRECT PROGRAM. XGD20910 | BINARY CARD NO. 9D000170 | 13235 0 00000 0 00000 X61 PZE XGD20920 | | 13236 0074 00 4 04650 FOR8 TSX TITL,4 XGD20940 | 13237 0074 00 4 05005 TSX PRINT,4 XGD20950 13240 0 13303 0 13242 PZE PR42,,X42 XGD20960 | 13241 0020 00 0 04176 TRA SPEND XGD20970 | 13242 606060606060 PR42 BCI 2, XGD20980 | 13244 632127433162 BCD TAGLIST TABLE OVERFLOW. TOO MANY TAGGED INSTRUCTIONS HAVE BXGD20990 | 13256 252545602346 BCD EEN COMPILED IN THE OBJECT PROGRAM. XGD21000 | BINARY CARD NO. 9D000171 | 13270 512524642325 BCD REDUCE THE NUMBER OF SUBSCRIPT COMBINATIONS IN THE SOURCE PRXGD21010 | 13302 462751214433 BCD 1OGRAM. XGD21020 | 13303 0 00000 0 00000 X42 PZE XGD21030 | 13304 0074 00 4 04351 FOR9 TSX OLNT,4 PRINT ON-LINE. DON'T WRITE TAPE. XGD21050 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 45 | | BINARY CARD NO. 9D000172 13305 0074 00 4 04650 TSX TITL,4 XGD21060 | 13306 0074 00 4 05005 TSX PRINT,4 XGD21070 | 13307 0 13343 0 13311 PZE PR55,,X55 XGD21080 | 13310 0020 00 0 04412 TRA DIGRTN XGD21090 | 13311 606060606060 PR55 BCI 2, XGD21100 13313 624664512325 BCD SOURCE PROGRAM CONTAINS AN ILLEGAL PATH OF FLOW, OR A MACHINXGD21110 | 13325 256025515146 BCI ,E ERROR HAS OCCURRED. XGD21120 | | BINARY CARD NO. 9D000173 | 13337 233025234260 BCD 4CHECK SOURCE PROGRAM. XGD21130 13343 0 00000 0 00000 X55 PZE XGD21140 | | 13344 0074 00 4 04650 FIVE1 TSX TITL,4 XGD21160 | 13345 0074 00 4 05005 TSX PRINT,4 XGD21170 | 13346 0 13373 0 13350 PZE PR43,,X43 XGD21180 13347 0020 00 0 04176 TRA SPEND XGD21190 | 13350 606060606060 PR43 BCI 2, XGD21200 | 13352 623171256046 BCI ,SIZE OF REGION TABLE EXCEEDS 735 ENTRIES. PROBABLY TOO MANYXGD21210 | | BINARY CARD NO. 9D000174 13364 606225472151 BCD 7 SEPARATE DO NESTS. REPROGRAM PROBLEM. XGD21220 | 13373 0 00000 0 00000 X43 PZE XGD21230 | | 13374 0074 00 4 04650 SIX1 TSX TITL,4 XGD21250 | 13375 0074 00 4 05005 TSX PRINT,4 XGD21260 13376 0 13433 0 13400 PZE PR53,,X53 XGD21270 | 13377 0020 00 0 04176 TRA SPEND XGD21280 | 13400 606060606060 PR53 BCI , CORE TABLES HAVE OVERFLOWED AVAILABLE MEMORY. XGD21290 | | BINARY CARD NO. 9D000175 13412 606060606060 BCI , XGD21300 | 13424 606060606060 BCI 7, MAKE SOURCE PROGRAM SHORTER. XGD21310 | 13433 0 00000 0 00000 X53 PZE XGD21320 | | 13434 0074 00 4 04650 SIX2 TSX TITL,4 XGD21340 | BINARY CARD NO. 9D000176 | 13435 0074 00 4 05005 TSX PRINT,4 XGD21350 | 13436 0 13473 0 13440 PZE PR45,,X45 XGD21360 | 13437 0020 00 0 04176 TRA SPEND XGD21370 13440 606060606060 PR45 BCI , TAPE TABLES HAVE OVERFLOWED AVAILABLE MEMORY. XGD21380 | 13452 606060606060 BCI , XGD21390 | | BINARY CARD NO. 9D000177 | 13464 606060606060 BCI 7, MAKE SOURCE PROGRAM SHORTER. XGD21400 13473 0 00000 0 00000 X45 PZE XGD21410 | | 13474 0074 00 4 04650 SIX3 TSX TITL,4 XGD21430 | 13475 0074 00 4 05005 TSX PRINT,4 XGD21440 | 13476 0 13561 0 13500 PZE PR47,,X47 XGD21450 13477 0020 00 0 04176 TRA SPEND XGD21460 | 13500 606060606060 PR47 BCI , TOTAL STORAGE FOR COMMON, DIMENSION, SINGLE CELLXGD21470 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 46 | | BINARY CARD NO. 9D000178 13512 252460652151 BCI ,ED VARIABLES, FORTRAN GENERATED ERASABLE, XGD21480 | 13524 606060606060 BCI , AND OBJECT PROGRAM EXCEEDS 32K OF CORE STORAGE. XGD21490 | 13536 606060606060 BCI , XGD21500 | | BINARY CARD NO. 9D000179 13550 606060606060 BCI 9, REDUCE THE SIZE OF DIMENSIONED ARRAYS. XGD21510 | 13561 0 00000 0 00000 X47 PZE XGD21520 | | 13562 0074 00 4 04650 SIX4 TSX TITL,4 XGD21540 | 13563 0074 00 4 05005 TSX PRINT,4 XGD21550 13564 0 13653 0 13566 PZE PR48,,X48 XGD21560 | | BINARY CARD NO. 9D000180 | 13565 0020 00 0 04176 TRA SPEND XGD21570 | 13566 606060606060 PR48 BCI , SUBPROGRAM ARGUMENTS APPEAR TOO MANY TIMES IN THXGD21580 13600 256046224125 BCI ,E OBJECT PROGRAM. THE MAXIMUM NUMBER OF TIMES ALL ARGUMENTSXGD21590 | 13612 606060606060 BCI , MAY APPEAR IN THE OBJECT PROGRAM IS EIGHT TIMES XGD21600 | | BINARY CARD NO. 9D000181 | 13624 633025604564 BCI ,THE NUMBER OF ARGUMENTS IN THE FUNCTION OR SUBPROGRAM XGD21610 13636 606060606060 BCI , STATEMENT, OR 100, WHICHEVER IS GREATER. MODIFYXGD21620 | | BINARY CARD NO. 9D000182 | 13650 606246645123 BCI 3, SOURCE PROGRAM. XGD21630 | 13653 0 00000 0 00000 X48 PZE XGD21640 | 13654 0534 00 1 06255 SIX5 LXA SAVE1,1 XGD21660 | 13655 0634 00 1 06305 SXA SAVEMQ,1 PUT IR1 IN SAVEMQ XGD21670 | 13656 -0500 00 0 06256 CAL SAVE2 COMPLEMENT OF NO. OF WORDS IN ERROR LIST. XGD21680 | 13657 0737 00 2 00000 PAC ,2 COMPLEMENT IR2 TO FIND COUNT. XGD21690 13660 -0634 00 2 13662 SXD PARMET,2 PUT COUNT IN CALL USED TO READ TAPE. XGD21700 | 13661 0074 00 4 05270 TSX FIND1,4 XGD21710 | 13662 0 00000 0 23742 PARMET PZE SYMBOL,,** XGD21720 | 13663 0020 00 0 05334 TRA IOER05 ERROR IN READING DUMP. XGD21730 | 13664 0020 00 0 13705 TRA CORE ERROR LIST IS IN CORES. XGD21740 13665 0074 00 4 04650 TAPCOR TSX TITL,4 ERROR LIST HAS BEEN READ FROM DUMP TAPE. XGD21750 | 13666 0500 00 0 06256 CLA SAVE2 XGD21760 | | BINARY CARD NO. 9D000183 | 13667 0737 00 2 00000 PAC ,2 COMPLEMENT IR2 TO FIND COUNT OF XGD21770 13670 0754 00 2 00000 PXA ,2 WORDS IN ERROR LIST. XGD21780 | 13671 0771 00 0 00001 ARS 1 DIVIDE WORD COUNT BY 2 TO GET ERROR COUNT. XGD21790 | 13672 0734 00 2 00000 PAX ,2 XGD21800 | 13673 0774 00 1 00000 AXT 0,1 XGD21810 | 13674 0500 00 1 23743 LOOP CLA SYMBOL+1,1 PICK UP FLAG. XGD21820 13675 0340 00 0 06307 CAS L(2) XGD21830 | 13676 0020 00 0 13701 TRA CHECK XGD21840 | 13677 0020 00 0 13727 TRA FLAG2 XGD21850 | 13700 0020 00 0 13716 TRA FLAG1 XGD21860 | 13701 0340 00 0 06310 CHECK CAS L(4) XGD21870 13702 0020 00 0 13762 TRA FLAG5 XGD21880 | 13703 0020 00 0 13751 TRA FLAG4 XGD21890 | 13704 0020 00 0 13740 TRA FLAG3 XGD21900 | 13705 0500 00 0 06255 CORE CLA SAVE1 ORIGIN XGD21910 | 13706 0621 00 0 13716 STA FLAG1 XGD21920 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 47 | | 13707 0621 00 0 13727 STA FLAG2 XGD21930 | 13710 0621 00 0 13740 STA FLAG3 XGD21940 | 13711 0621 00 0 13751 STA FLAG4 XGD21950 13712 0621 00 0 13762 STA FLAG5 XGD21960 | 13713 0400 00 0 06302 ADD AD1 XGD21970 | 13714 0621 00 0 13674 STA LOOP XGD21980 | | BINARY CARD NO. 9D000184 13715 0020 00 0 13665 TRA TAPCOR XGD21990 | 13716 -0500 00 1 23742 FLAG1 CAL SYMBOL,1 XGD22000 | 13717 0602 00 0 13777 SLW NAME1 XGD22010 | 13720 0074 00 4 05005 TSX PRINT,4 XGD22020 | 13721 0 14051 0 13773 PZE PR1,,PR2 XGD22030 13722 0074 00 4 05005 TSX PRINT,4 SPACE 1 LINE. XGD22040 | 13723 0 06036 0 06012 PZE 20BLKS,,END20 XGD22050 | 13724 1 77776 1 13725 TXI *+1,1,-2 XGD22060 | 13725 2 00001 2 13674 TIX LOOP,2,1 XGD22070 | 13726 0020 00 0 04176 TRA SPEND XGD22080 13727 -0500 00 1 23742 FLAG2 CAL SYMBOL,1 XGD22090 | 13730 0602 00 0 14062 SLW NAME2 XGD22100 | 13731 0074 00 4 05005 TSX PRINT,4 XGD22110 | 13732 0 14247 0 14051 PZE PR2,,PR3 XGD22120 | 13733 0074 00 4 05005 TSX PRINT,4 SPACE 1 LINE. XGD22130 13734 0 06036 0 06012 PZE 20BLKS,,END20 XGD22140 | 13735 1 77776 1 13736 TXI *+1,1,-2 XGD22150 | 13736 2 00001 2 13674 TIX LOOP,2,1 XGD22160 | 13737 0020 00 0 04176 TRA SPEND XGD22170 | 13740 -0500 00 1 23742 FLAG3 CAL SYMBOL,1 XGD22180 13741 0602 00 0 14255 SLW NAME3 XGD22190 | 13742 0074 00 4 05005 TSX PRINT,4 XGD22200 | | BINARY CARD NO. 9D000185 | 13743 0 14325 0 14247 PZE PR3,,PR4 XGD22210 13744 0074 00 4 05005 TSX PRINT,4 SPACE 1 LINE. XGD22220 | 13745 0 06036 0 06012 PZE 20BLKS,,END20 XGD22230 | 13746 1 77776 1 13747 TXI *+1,1,-2 XGD22240 | 13747 2 00001 2 13674 TIX LOOP,2,1 XGD22250 | 13750 0020 00 0 04176 TRA SPEND XGD22260 13751 -0500 00 1 23742 FLAG4 CAL SYMBOL,1 XGD22270 | 13752 0602 00 0 14333 SLW NAME4 XGD22280 | 13753 0074 00 4 05005 TSX PRINT,4 XGD22290 | 13754 0 14453 0 14325 PZE PR4,,PR5 XGD22300 | 13755 0074 00 4 05005 TSX PRINT,4 SPACE 1 LINE. XGD22310 13756 0 06036 0 06012 PZE 20BLKS,,END20 XGD22320 | 13757 1 77776 1 13760 TXI *+1,1,-2 XGD22330 | 13760 2 00001 2 13674 TIX LOOP,2,1 XGD22340 | 13761 0020 00 0 04176 TRA SPEND XGD22350 | 13762 -0500 00 1 23742 FLAG5 CAL SYMBOL,1 XGD22360 13763 0602 00 0 14461 SLW NAME5 XGD22370 | 13764 0074 00 4 05005 TSX PRINT,4 XGD22380 | 13765 0 14531 0 14453 PZE PR5,,PR5+46 XGD22390 | 13766 0074 00 4 05005 TSX PRINT,4 SPACE 1 LINE. XGD22400 | 13767 0 06036 0 06012 PZE 20BLKS,,END20 XGD22410 13770 1 77776 1 13771 TXI *+1,1,-2 XGD22420 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 48 | | BINARY CARD NO. 9D000186 | 13771 2 00001 2 13674 TIX LOOP,2,1 XGD22430 13772 0020 00 0 04176 TRA SPEND XGD22440 | 13773 606060606060 PR1 BCI 4, THE NAME, XGD22450 | 13777 606060606060 NAME1 BCI 1, XGD22460 | 14000 736066303123 BCI ,, WHICH IS IN THE ARGUMENT LIST FOR THIS SUBROUTINE, ALSO APXGD22470 | 14012 472521516260 BCI 5,PEARS IN XGD22480 | BINARY CARD NO. 9D000187 | 14017 606060606060 BCI , AN EQUIVALENCE STATEMENT. XGD22490 | 14031 606060606060 BCI , XGD22500 | 14043 606060606060 BCI 6, CORRECT SOURCE PROGRAM. XGD22510 | BINARY CARD NO. 9D000188 | 14051 606060606060 PR2 BCI 9, THE ARITHMETIC FUNCTION STATEMENT NAME, XGD22520 | 14062 606060606060 NAME2 BCI 1, XGD22530 | 14063 606060606060 BCI , XGD22540 | BINARY CARD NO. 9D000189 | 14075 606060606060 BCI , (1) APPEARS IN A COMMON, EQUIVALENCE, ANXGD22550 | 14107 246146516024 BCI ,D/OR DIMENSION STATEMENT, OR XGD22560 | BINARY CARD NO. 9D000190 | 14121 606060606060 BCI , (2) HAS BEEN USED AS AN ARGUMENT IN THE XGD22570 | 14133 215127644425 BCI ,ARGUMENT LIST FOR THIS SUBROUTINE, OR IN A XGD22580 | 14145 606060606060 BCI , CALL STATEMENT, OR XGD22590 | BINARY CARD NO. 9D000191 | 14157 606060606060 BCI , XGD22600 | 14171 606060606060 BCI , (3) HAS BEEN USED AS A TERM IN A PRECEDIXGD22610 | | BINARY CARD NO. 9D000192 14203 452760215131 BCI ,NG ARITHMETIC STATEMENT FUNCTION BEFORE IT XGD22620 | 14215 606060606060 BCI , HAS BEEN DEFINED AS AN ARITHMETIC FUXGD22630 | | BINARY CARD NO. 9D000193 | 14227 452363314645 BCI ,NCTION. XGD22640 14241 606060606060 BCI 6, CORRECT SOURCE PROGRAM. XGD22650 | 14247 606060606060 PR3 BCI 6, THE SUBROUTINE NAME, XGD22660 | | BINARY CARD NO. 9D000194 | 14255 606060606060 NAME3 BCI 1, XGD22670 14256 736021474725 BCI ,, APPEARS IN A COMMON, EQUIVALENCE AND/OR DIMENSION STATEMENXGD22680 | 14270 637360606060 BCI 3,T, XGD22690 | 14273 606060606060 BCI , OR THE INTENDED ARRAY HAS BEEN OMITTED FROM A DIXGD22700 | | BINARY CARD NO. 9D000195 14305 442545623146 BCI ,MENSION STATEMENT. XGD22710 | 14317 606060606060 BCI 6, CORRECT SOURCE PROGRAM. XGD22720 | | BINARY CARD NO. 9D000196 | 14325 606060606060 PR4 BCI 6, THE SUBROUTINE NAME, XGD22730 14333 606060606060 NAME4 BCI 1, XGD22740 | 14334 736060302162 BCI ,, HAS BEEN USED- XGD22750 | 14346 606060606060 BCI 3, XGD22760 | 14351 606060606060 BCI , (1) IN THE ARGUMENT LIST OF THIS SUBROUTXGD22770 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 49 | BINARY CARD NO. 9D000197 | 14363 314525736046 BCI ,INE, OR XGD22780 | 14375 606060606060 BCI , (2) IN A CALL STATEMENT OR AS THE NAME OXGD22790 | BINARY CARD NO. 9D000198 | 14407 266021602664 BCI ,F A FUNCTION SUBPROGRAM IN THE SUBROUTINE, OR XGD22800 | 14421 606060606060 BCI , (3) AS THE NAME OF AN ARITHMETIC STATEMEXGD22810 | | BINARY CARD NO. 9D000199 14433 456360266445 BCI ,NT FUNCTION WITHIN THE SUBROUTINE. XGD22820 | 14445 606060606060 BCI 6, CORRECT SOURCE PROGRAM. XGD22830 | 14453 606060606060 PR5 BCI 6, THE SUBROUTINE NAME, XGD22840 | | BINARY CARD NO. 9D000200 14461 606060606060 NAME5 BCI 1, XGD22850 | 14462 736066303123 BCI ,, WHICH HAS APPEARED IN A SUBROUTINE REFERENCE HAS BEEN USEDXGD22860 | 14474 606060606060 BCI 3, XGD22870 | 14477 606060606060 BCI , AS AN ORDINARY, NONSUBSCRIPTED VARIABLE OR AS A XGD22880 | BINARY CARD NO. 9D000201 | 14511 626422622351 BCI ,SUBSCRIPTED VARIABLE NOT IN A DIMENSION STATEMENT. XGD22890 | 14523 606060606060 BCI 6, CORRECT SOURCE PROGRAM. XGD22900 | | BINARY CARD NO. 9D000202 | 14531 0074 00 4 04650 SIX6 TSX TITL,4 XGD22920 | 14532 0074 00 4 05005 TSX PRINT,4 XGD22930 | 14533 0 14613 0 14535 PZE PR52,,X52 XGD22940 | 14534 0020 00 0 04176 TRA SPEND XGD22950 14535 606060606060 PR52 BCI , ARGUMENT ADDEND TABLE HAS OVERFLOWED AVAILABLE MXGD22960 | 14547 254446517033 BCI ,EMORY. MORE THAN 400 INITIALIZATION ADDEND CONSTANTS XGD22970 | | BINARY CARD NO. 9D000203 | 14561 606060606060 BCI , (FORTRAN GENERATED DATA APPEARING IN THE 9) AREAXGD22980 14573 346021512560 BCI 7,) ARE REQUIRED BY THE OBJECT PROGRAM. XGD22990 | 14602 606060606060 BCI 3, XGD23000 | | BINARY CARD NO. 9D000204 | 14605 606060606060 BCI 6, REWRITE SOURCE PROGRAM. XGD23010 14613 0 00000 0 00000 X52 PZE XGD23020 | | 14614 0074 00 4 04650 SIX7 TSX TITL,4 XGD23040 | 14615 0534 00 2 06256 LXA SAVE2,2 XGD23050 | 14616 1 77777 2 14617 TXI *+1,2,-1 XGD23060 14617 0754 00 2 00000 PXA ,2 XGD23070 | 14620 0074 00 4 04601 TSX BINDEC,4 XGD23080 | 14621 0602 00 0 14633 SLW IFN XGD23090 | 14622 0074 00 4 05005 TSX PRINT,4 XGD23100 | 14623 0 14660 0 14625 PZE PR44,,X44 XGD23110 14624 0020 00 0 04176 TRA SPEND XGD23120 | 14625 606060606060 PR44 BCI 6, INTERNAL FORMULA NUMBER XGD23130 | | BINARY CARD NO. 9D000205 | 14633 606060606060 IFN BCI 1, XGD23140 14634 216060316260 BCI ,A IS GREATER THAN 4095, THE MAXIMUM PERMISSIBLE INTERNAL FOXGD23150 | 14646 514464432160 BCI 3,RMULA NUMBER. XGD23160 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 50 | | 14651 606060606060 BCI 7, MAKE SOURCE PROGRAM SHORTER. XGD23170 14660 0 00000 0 00000 X44 PZE XGD23180 | | BINARY CARD NO. 9D000206 | 14661 0074 00 4 04650 FIVE2 TSX TITL,4 SET UP DIAGNOSTIC TITLES $XGD23181 | 14662 0074 00 4 05005 TSX PRINT,4 AND IDENTIFICATION OF COMPILER SECTION $XGD23182 14663 0 14726 0 14665 PZE PR64,,X64 WRITE APPROPRIATE ERROR MESSAGE $XGD23183 | 14664 0020 00 0 04176 TRA SPEND CONTINUE AS WITH OTHER COMPILATION ERRORS $XGD23184 | 14665 606060606060 PR64 BCI 2, $XGD23185 | 14667 264346666046 BCI 8,FLOW OF PROGRAM IS TOO COMPLEX. NEXT ENTRY CANN $XGD23186 | 14677 466360222560 BCI 8,OT BE MADE IN THE SXD OR SYN CARD LISTS. $XGD23187 | BINARY CARD NO. 9D000207 | 14707 606060606060 BCI 8, REWRITE PROGRAM WITH FEW $XGD23188 | 14717 255160635121 BCI 7,ER TRANSFER ADDRESSES, OR DO IN TWO PARTS. $XGD23189 | 14726 0 00000 0 00000 X64 PZE $XGD2318A 14727 0074 00 4 04650 THR11 TSX TITL,4 (32)XGD23190 | 14730 0500 00 0 06305 CLA SAVEMQ (32)XGD23200 | 14731 0074 00 4 04417 TSX EXBETA+1,4 (32)XGD23210 | 14732 0074 00 4 04565 TSX LAJUST,4 (32)XGD23220 | 14733 0602 00 0 14746 SLW TWO1Z (32)XGD23230 14734 0074 00 4 05005 TWO1W TSX PRINT,4 (32)XGD23240 | | BINARY CARD NO. 9D000208 | 14735 0 14763 0 14737 PZE PR65,,X65 (32)XGD23250 | 14736 0020 00 0 04176 TRA SPEND (32)XGD23260 14737 606060606060 PR65 BCI 7, COMPUTED GO TO AT STATEMENT (32)XGD23270 | 14746 606060606060 TWO1Z BCI 8, HAS MORE THAN 31 DIFFERENT TRANSFERS OUT (32)XGD23280 | 14756 623124256046 BCI 5,SIDE OF THE RANGE OF A DO. (32)XGD23290 | 14763 X65 BSS 0 (32)XGD23300 | BINARY CARD NO. 9D000209 | 14763 0074 00 4 04650 FIVEY TSX TITL,4 (32)XGD23310 | 14764 0500 00 0 06305 CLA SAVEMQ (32)XGD23320 | 14765 0074 00 4 04417 TSX EXBETA+1,4 (32)XGD23330 | 14766 0074 00 4 04565 TSX LAJUST,4 (32)XGD23340 14767 0602 00 0 15073 SLW FIVEZ (32)XGD23350 | 14770 0500 00 0 06306 CLA SAVIND (32)XGD23360 | 14771 0074 00 4 04417 TSX EXBETA+1,4 (32)XGD23370 | 14772 0074 00 4 04565 TSX LAJUST,4 (32)XGD23380 | 14773 0602 00 0 15027 SLW FIVEU (32)XGD23390 14774 0074 00 4 05005 TSX PRINT,4 (32)XGD23400 | 14775 0 15040 0 15022 PZE PR66,,PR66A (32)XGD23410 | 14776 0074 00 4 05005 TSX PRINT,4 (32)XGD23420 | 14777 0 06036 0 06012 PZE 20BLKS,,END20 (32)XGD23430 | 15000 0074 00 4 05005 TSX PRINT,4 (32)XGD23440 15001 0 15050 0 15040 PZE PR66A,,PR66B (32)XGD23450 | 15002 0074 00 4 05005 TSX PRINT,4 (32)XGD23460 | 15003 0 15060 0 15050 PZE PR66B,,PR66C (32)XGD23470 | 15004 0074 00 4 05005 TSX PRINT,4 (32)XGD23480 | 15005 0 15074 0 15060 PZE PR66C,,X66 (32)XGD23490 15006 -0500 00 0 15021 CAL PR66D (32)XGD23500 | 15007 0602 00 0 15057 SLW PR66B+7 (32)XGD23510 | 15010 0500 00 0 06305 CLA SAVEMQ (32)XGD23520 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 51 | BINARY CARD NO. 9D000210 | 15011 0074 00 4 04416 TSX EXBETA,4 (32)XGD23530 | 15012 0074 00 4 04565 TSX LAJUST,4 (32)XGD23540 | 15013 0602 00 0 15073 SLW FIVEZ (32)XGD23550 | 15014 0074 00 4 05005 TSX PRINT,4 (32)XGD23560 15015 0 15060 0 15050 PZE PR66B,,PR66C (32)XGD23570 | 15016 0074 00 4 05005 TSX PRINT,4 (32)XGD23580 | 15017 0 15074 0 15060 PZE PR66C,,X66 (32)XGD23590 | 15020 0020 00 0 04176 TRA SPEND (32)XGD23600 | 15021 606046516060 PR66D BCI 1, OR (32)XGD23610 15022 606060606060 PR66 BCI 5, STATEMENT NUMBER (32)XGD23620 | 15027 606060606060 FIVEU BCI 7, IS REFERENCED BY TOO MANY DIFFERENT (32)XGD23630 | 15036 626321632544 BCI 2,STATEMENTS. (32)XGD23640 | | BINARY CARD NO. 9D000211 15040 606060606060 PR66A BCI 8, ELIMINATE ALL REFERENCES TO IT IN (32)XGD23650 | 15050 606060606060 PR66B BCI 8, EITHER (32)XGD23660 | 15060 606060606060 PR66C BCI 8, THE STATEMENT IMMEDIATELY PRECEEDING (32)XGD23670 | | BINARY CARD NO. 9D000212 15070 606263216325 BCI 3, STATEMENT NUMBER (32)XGD23680 | 15073 606060606060 FIVEZ BCI 1, (32)XGD23690 | 15074 X66 BSS 0 (32)XGD23700 | 15074 BSS 100 PATCH SPACE. (32)XGD23710 | 15240 Z BSS 0 END OF ASSEMBLY LOCATION. (32)XGD24000 11304 SPACE1 EQU Z-BOTTOM LENGTH OF GENERAL DIAGNOSTIC. (32)XGD24010 | 07470 SPACE2 EQU 8700-SPACE1 UNUSED LOCATIONS. (32)XGD24020 | THIS AREA IS SAVED BY IOP AND PRESENTLY(32)XGD24030 | NOT USED BY GENERAL DIAGNOSTIC. (32)XGD24040 | 77777 END -1 (32)XGD24050 | BINARY CARD NO. TRA77777 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | 73667 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES TO DEFINED SYMBOLS | 7053 A 7051 | 7320 B 7311 7314 N 7257 | 15240 Z 15240 | 7055 AB 7074 | 7065 AC 7063 | 7066 AD 7065 7062 AE 7066 | 4152 BG 3743 | 4045 HV 4043 | 4743 .N 4740 | 7315 N1 7240 7316 N2 7245 | 7317 N3 7252 | 5674 X4 4411, 7070, 7072,10071,10073 | 5705 X5 7072,10073,10075 | 5741 X6 10075 6623 1P1 6341 | 6653 1P2 6343 | 6676 1P3 6345 | 6723 1P4 6347 | 6751 1P5 6351 6302 AD1 4024, 5051, 5054, 5103, 5106, 7025, 7036, 7043, 7045,10561,10572,10577,10602,10605,10745,11530,13713 | 6314 BSF 5220 | 6312 BSR 4657, 5311 | 4605 CNV 4612 | 4615 DEC 4617 4632 DIG 4611, 4613, 4616 | 10625 DO1 10576,10617 | 10042 DOS 7421 | 4307 EBX 4205, 4213 | 4242 END 4213 4613 FIN 4606 | 4037 HAV 4033 | 14633 IFN 14621 | 5322 IND 5315 | 5403 IR1 4373 5477 IR2 4403 | 4503 IR4 4461, 4501 | 4133 LOC 4752, 4760, 4764, 4770, 4772 | 10454 NEF 10452 | 5177 NOP 5222 4036 NXR 4042, 4044 | 4640 OCT 4637, 4642 | 13773 PR1 13721 | 14051 PR2 13721,13732 | 14247 PR3 11422,13732,13743 14325 PR4 13743,13754 | 14453 PR5 13754,13765 | 5320 RDN 5277, 5305 | 5321 RDT 5302, 5303 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 2 POST PROCESSOR ASSEMBLY DATA | | 5172 RPT 4662, 5141 | 4541 SIX 4521 | 5323 SKP 5275 6260 SYM 4474,10262,10306,10630,10635,10660,10754,11536 | 4623 TEN 4605, 4610 | 24725 TOP 0, 5271 | 5202 TWN 5026 | 5173 WPT 5144 10775 X11 10756,11002 | 11043 X12 11006 | 11123 X13 11101,11130 | 11160 X16 11134 | 11207 X17 11163 11642 X23 11543,11653 | 11726 X24 11657 | 12017 X25 11731 | 12074 X27 12022 | 12175 X28 12123,12202 12311 X31 12231 | 12432 X32 12314 | 12476 X33 12435 | 12520 X34 12501 | 12544 X35 12523 12777 X36 12734 | 13024 X37 13002 | 13053 X38 13027 | 13145 X39 13105 | 13204 X40 13150 13102 X41 13056 | 13303 X42 13240 | 13373 X43 13346 | 14660 X44 14623 | 13473 X45 13436 6652 X46 6625 | 13561 X47 13476 | 13653 X48 13564 | 6675 X49 6655 | 6722 X50 6702 14613 X52 14533 | 13433 X53 13376 | 7015 X54 6753 | 13343 X55 13307 | 12573 X56 12547 12624 X57 12576 | 12650 X58 12627 | 12226 X59 12206 | 6750 X60 6725 | 13235 X61 13207 12700 X62 12653 | 12731 X63 12703 | 14726 X64 14663 | 14763 X65 14735 | 15074 X66 15005,15017 4424 XB1 4014, 4431 | 4432 XB2 4427 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 3 | POST PROCESSOR ASSEMBLY DATA | 4440 XB3 4434, 4446 | 4444 XB4 4420, 4441 | 4446 XB5 4430 | 7421 ADDO 7306 | 7413 ADT1 7261,10140 7414 ADT2 7266,10142 | 7415 ADT3 7270, 7272,10144 | 7416 ADT4 7274, 7276,10147 | 7417 ADT5 7300, 7302,10153 | 7420 ADT6 7304,10155 5272 BACK 5273 | 12135 BETA 12111,12112,12115,12117,12121 | 3775 BFSC 5357 | 4622 BINA 4603, 4620 | 4617 BINB 4604 6315 BS4F 3760 | 5204 BUFF 5011, 5013, 5014, 5015, 5025, 5031, 5064, 5065, 5070, 5120, 5124 | 11063 CLA1 11060 | 11533 CLA2 11527 | 11535 CLA3 11531 10575 COM1 10573 | 10744 COM2 10742 | 11060 COM3 11056 | 11527 COM4 11525 | 12104 COM5 12102 4027 CONT 5347, 5353 | 13705 CORE 13664 | 10574 CRS1 10567 | 10743 CRS2 10737 | 11057 CRS3 11053 11526 CRS4 11523 | 12103 CRS5 12100 | 7040 CRS7 7033 | 6317 DIAG 5337 | 10711 DOPR 10654 11515 DRTG 11421 | 6316 DUMP 5336 | 4220 EFER 5253 | 6324 ENDT 3774, 3777, 4002, 5356 | 5257 ENSC 5255 10443 EQWD 10412,10413,10414,10417,10423 | 6274 ERAS 4757, 4762, 7017, 7020, 7022, 7024, 7026, 7035, 7040, 7050,10165,10170,10203,10205,10560,10574,10731 | 10743,11045,11057,11066,11067 | 5367 EROR 4652, 4653 | 5742 ERR1 11000,11126,11645,12200 10776 ERR5 10736 | 11124 ERR6 11052 | 11643 ERR7 11522 | 12176 ERR8 12077 | 6326 EXER 4421, 5327, 5332 7031 FDPM 7023 | 12732 FOR1 6437 | 13000 FOR2 6441 | 13025 FOR3 6443 | 13054 FOR4 6445 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 4 | POST PROCESSOR ASSEMBLY DATA | | 13103 FOR5 6447 | 13146 FOR6 6451 13205 FOR7 6453 | 13236 FOR8 6455 | 13304 FOR9 6457 | 4716 FTS2 4707 | 4721 FTS3 4716 4724 FTS4 4721 | 4727 FTS5 4724 | 4732 FTS6 4727 | 5612 GDCI 7070,10071 | 11517 GTME 11211 5427 IR1C 4377 | 4566 LAJ1 4572 | 4567 LAJ2 4566 | 4573 LAJ3 4570 | 10474 LIST 7041, 7060, 7100, 7334,10061,10330,10362,10444 13674 LOOP 13714,13725,13736,13747,13760,13771 | 10627 LST1 10600 | 10632 LST2 10603 | 6307 L(2) 13675 | 6310 L(4) 4412,13701 11516 NMKY 11424 | 10227 NONB 10204,10210,10214 | 4351 OLNT 4366, 5341,13304 | 4667 OLPR 5247 | 5171 PGNO 5137 5376 PR10 4411 | 10761 PR11 10756,11002 | 11010 PR12 11006 | 11103 PR13 11101,11130 | 11107 PR14 11070,11073 11110 PR15 11077 | 11136 PR16 11134 | 11165 PR17 11163 | 11347 PR18 11345 | 11222 PR19 11220 11431 PR20 11427 | 11433 PR21 11425 | 11545 PR22 11540,11647 | 11605 PR23 11540,11543,11647,11653 | 11661 PR24 11657 11733 PR25 11731 | 12024 PR26 12022 | 12125 PR28 12123,12202 | 12233 PR31 12231 | 12316 PR32 12314 12437 PR33 12435 | 12503 PR34 12501 | 12525 PR35 12523 | 12736 PR36 12734 | 13004 PR37 13002 13031 PR38 13027 | 13107 PR39 13105 | 13152 PR40 13150 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 5 | POST PROCESSOR ASSEMBLY DATA | 13060 PR41 13056 | 13242 PR42 13240 | 13350 PR43 13346 | 14625 PR44 14623 13440 PR45 13436 | 6627 PR46 6625 | 13500 PR47 13476 | 13566 PR48 13564 | 6657 PR49 6655 6704 PR50 6702 | 6706 PR51 6677 | 14535 PR52 14533 | 13400 PR53 13376 | 6755 PR54 6753 13311 PR55 13307 | 12551 PR56 12547 | 12600 PR57 12576 | 12631 PR58 12627 | 12210 PR59 12206 6727 PR60 6725 | 13211 PR61 13207 | 12655 PR62 12653 | 12705 PR63 12703 | 14665 PR64 14663 14737 PR65 14735 | 15022 PR66 14775 | 4504 PRDO 4500 | 10427 PREQ 10425 | 4557 RAJ1 4545, 4551, 4555 4555 RAJ2 4550 | 240 REC4 6340, 6341, 6343, 6345, 6347, 6351 | 252 REC5 6340, 6353 | 264 REC6 6340, 6355, 6357, 6361, 6363, 6365, 6411 | 276 REC7 6340, 6367, 6371, 6375, 6405 310 REC8 6340, 6373, 6401 | 322 REC9 6340, 6377, 6403, 6407 | 5112 RSPG 5224 | 4145 SEC2 4717 | 4146 SEC3 4722 4147 SEC4 4725 | 4150 SEC5 4730 | 4151 SEC6 4732 | 13374 SIX1 6465, 6467 | 13434 SIX2 6471 13474 SIX3 6473 | 13562 SIX4 6475 | 13654 SIX5 6477 | 14531 SIX6 6501 | 14614 SIX7 6503 6313 SK3R 4005 | 10753 SMBL 10746 | 7313 SOMN 7264 | 5273 TAPE 5271 | 12227 THR1 6413 12312 THR2 6415 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 6 | POST PROCESSOR ASSEMBLY DATA | | 12433 THR3 6417 12477 THR4 6421 | 12521 THR5 6423 | 12545 THR6 6425 | 12574 THR7 6427 | 12625 THR8 6431 12651 THR9 6433 | 7526 TIS1 7413 | 7570 TIS2 7414 | 7632 TIS3 7415 | 7674 TIS4 7416 7736 TIS5 7417 | 10000 TIS6 7420 | 4650 TITL 4367, 5334, 6623, 6653, 6700, 6723, 6751, 7047,10607,10747,10776,11004,11061,11124,11132,11161,11212 | 11532,11643,11655,11727,12020,12105,12176,12204,12227,12312,12433,12477,12521,12545,12574,12625,12651 | 12701,12732,13000,13025,13054,13103,13146,13205,13236,13305,13344,13374,13434,13474,13562,13665,14531 14614,14661,14727,14763 | 10555 TWO1 6355 | 10730 TWO2 6357 | 11004 TWO3 6361 | 11044 TWO4 6363 11132 TWO5 6365 | 11161 TWO6 6367 | 11210 TWO7 6371, 6373 | 11520 TWO8 6375, 6377 | 11655 TWO9 6401 12106 VCTR 12104 | 4206 WPPR 4177 | 4522 ZER1 4527 | 4530 ZER2 4524 | 4532 ZER3 4534 4535 ZER4 4532 | 4537 ZER5 4522, 4525, 4530 | 4540 ZER6 4520, 4535 | 6263 ZERO 7052, 7054, 7057,10613 | 4560 1BLNK 4547 5547 ACDEC 4407 | 10220 ADDTD 10156,10161 | 7411 ADTMI 7235, 7242, 7247,10132 | 7412 ADTZR 7254,10136 | 5354 BCDB2 3771 10477 BGERL 7066 | 4644 BLANK 4636, 4741 | 4575 BLNKO 4565 | 13701 CHECK 13676 | 10313 CONBT 10310 4023 CONTE 5366 | 5174 COUNT 5053, 5055, 5105, 5107, 5146 | 10256 DEC34 10157 | 4364 DNWT1 4356 | 4365 DNWT2 4360 4510 DOALF 4466 | 4512 DOBET 4473 | 10267 DOBTX 10264 | 10612 DONX1 10611 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 7 POST PROCESSOR ASSEMBLY DATA | | 4514 DOSYM 4476 | 10642 DOTST 10612,10641,10662 | 6036 END20 4201, 4203, 4207, 4211, 4226, 4230, 4232, 4234, 4670, 4672, 4676, 4700, 4774, 4776, 5002, 7056, 7076 10624,10640,10644,10652,11000,11126,11645,11651,12200,13723,13734,13745,13756,13767,14777 | 10473 ENNEF 10452 | 4214 EOFB2 5234, 5236, 5240, 5242, 5244, 5246 | 5324 ERR01 5024,11517 | 5256 ERRET 5230 10471 EXFNO 10450 | 10361 EXTN1 10334 | 5270 FIND1 5316, 5317, 7030,10564,10734,11050,11520,12075,13661 | 5315 FIND2 | 13344 FIVE1 6461 14661 FIVE2 6463 | 15027 FIVEU 14773 | 14763 FIVEY 6507 | 15073 FIVEZ 14767,15013 | 13716 FLAG1 13700,13706 13727 FLAG2 13677,13707 | 13740 FLAG3 13704,13710 | 13751 FLAG4 13703,13711 | 13762 FLAG5 13702,13712 | 7223 FOONB 7152, 7157 4132 FOREC 4750 | 6303 FTREC 3754, 4041, 4651, 4701, 4734 | 4461 FX4PR 10265,10311,10631,10636,10661,10757,11541 | 4423 INCOR 4020, 4460 | 5313 INDX4 5300, 5325 6322 IR4IO 5340, 5344 | 4747 .ZERO 4742 | 10475 LIST1 7044, 7104, 7153,10162,10177,10257,10303,10410 | 10476 LIST2 7046,10261,10305 | 10634 LIST3 10606 10655 LIST4 10601 | 10657 LIST5 10604 | 7234 MATNB 7155, 7157 | 7235 MINB1 7271, 7275, 7301,10542 | 7242 MINB2 7273, 7277, 7303,10540 7247 MINB3 10536 | 13777 NAME1 13717 | 14062 NAME2 13730 | 14255 NAME3 13741 | 14333 NAME4 13752 14461 NAME5 13763 | 10444 NEFNF 10552 | 10330 NOTRA 10550 | 10614 NXTDO 10575,10642 | 7074 NXTER 7053, 7113, 7161, 7355,10076,10221,10266,10312,10337,10370,10426,10453 10650 ONEDO 10615 | 7016 ONEDP 6353 | 6321 ONING 5374 | 10565 PARM1 10556 | 4056 POINT 4745 15040 PR66A 14775,15001 | 15050 PR66B 15001,15003,15007,15015 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 8 | POST PROCESSOR ASSEMBLY DATA | 15060 PR66C 15003,15005,15015,15017 | 15021 PR66D 15006 | 7163 PRFOR 7152 | 5005 PRINT 4200, 4202, 4204, 4206, 4210, 4212, 4225, 4227, 4231, 4233, 4410, 4456, 4477, 4667, 4671, 4673, 4675 | 4677, 4751, 4771, 4773, 4775, 4777, 5001, 5342, 6624, 6654, 6701, 6724, 6752, 7055, 7067, 7071, 7075 7102, 7110, 7151, 7156, 7351, 7353,10070,10072,10074,10215,10217,10263,10307,10335,10366,10424,10451 | 10620,10623,10637,10643,10645,10651,10653,10755,10777,11001,11005,11100,11125,11127,11133,11162,11217 | 11344,11426,11537,11542,11644,11646,11650,11652,11656,11730,12021,12122,12177,12201,12205,12230,12313 | 12434,12500,12522,12546,12575,12626,12652,12702,12733,13001,13026,13055,13104,13147,13206,13237,13306 | 13345,13375,13435,13475,13563,13720,13722,13731,13733,13742,13744,13753,13755,13764,13766,14532,14622 14662,14734,14774,14776,15000,15002,15004,15014,15016 | 5115 PRSV1 5007 | 5114 PRSV2 5006 | 5113 PRSV4 5005, 5063, 5111 | 4561 RBLNK 4553 4366 RDIAG 4035 | 334 REC10 6340, 6413, 6415, 6417, 6421, 6423, 6425, 6427, 6431, 6433, 6435, 6505 | 346 REC11 6340, 6437 | 360 REC12 6340, 6441, 6443, 6445, 6447, 6451, 6453, 6457 | 372 REC13 6340, 6455 404 REC14 6340, 6461 | 442 REC17 6340, 6463, 6507 | 454 REC18 6340, 6465, 6471, 6473, 6475, 6477, 6501, 6503 | 466 REC19 6340, 6467 | 4074 RECNB 4674, 4752 5027 RTTW2 5203 | 6255 SAVE1 3734, 4370, 4374,10732,10740,10750,11046,11054,11062,11210,13654,13705 | 6256 SAVE2 3735, 4400,10555,10562,10571,10610,13656,13666,14615 | 6304 SAVE4 3736, 4753 | 4143 SEC1P 4703, 4705 4077 SECNB 4704, 4711, 4713, 4733 | 6323 SK1DF 3763, 3773, 5131, 5215, 5355 | 6325 SK3BF 3776 | 4363 SKSPE 4351 | 4176 SPEND 6626, 6656, 6703, 6726, 6754, 7073, 7077,10647,10760,11003,11007,11102,11131,11135,11164,11221,11346 11430,11544,11654,11660,11732,12023,12124,12203,12207,12232,12315,12436,12502,12524,12550,12577,12630 | 12654,12704,12735,13003,13030,13057,13106,13151,13210,13241,13347,13377,13437,13477,13565,13726,13737 | 13750,13761,13772,14534,14624,14664,14736,15020 | 4777 SPERR 4352 | 5003 SVIR4 4363, 4650 4733 SVSEC 4706, 4715, 4720, 4723, 4726, 4731 | 7136 TBETA 7103, 7107, 7111 | 7100 TEIFN 10554 | 12701 THR10 6435 | 14727 THR11 6505 7304 TIF6B 10512 | 10136 TIFOB 10106 | 10241 TIFOR 10166,10172,10176 | 4057 TITLE 4674 | 5061 TIXPR 5057 10067 TSXH1 10065 | 5201 TWNFL 5062, 5116, 5202 | 11727 TWO10 6403 | 12020 TWO11 6405 | 12075 TWO12 6407 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 9 | POST PROCESSOR ASSEMBLY DATA | | 12204 TWO13 6411 | 14734 TWO1W 14746 TWO1Z 14733 | 7104 XTEIF 7114 | 6012 2 BLKS 3745, 3747, 3751, 4201, 4203, 4207, 4211, 4226, 4230, 4232, 4234, 4670, 4672, 4676, 4700, 4774, 4776 | 5002, 5173, 7056, 7076,10624,10640,10644,10652,11651,13723,13734,13745,13756,13767,14777 | 5176 2 DECR 5034 6261 ADDMSK 4034, 4040, 4432, 4436, 4464, 4470, 7105,10331,10445 | 6257 ALFBET 4462, 4467,10260,10304,10626,10633,10656,10752,11534 | 4453 ASTRSK 4442 | 7270 B1TIF3 10526 | 7274 B1TIF4 10522 7300 B1TIF5 10516 | 7272 B2TIF3 10524 | 7276 B2TIF4 10520 | 7302 B2TIF5 10514 | 4452 BETAEX 4417, 4426 7321 BETAPR 7241, 7246, 7253, 7260, 7265, 7312 | 7376 BETAWD 7322, 7323, 7324, 7327, 7333 | 4601 BINDEC 4437, 4735, 5135, 7106, 7154,10446,14620 | 6264 BLANKS 4531, 4614, 4766, 7331, 7346,10174,10212,10421,11075,12113 | 73600 BOTIOP 3734 BOTTOM 0,73666, 3734, 5273, 5323,15240 | 7261 BTIFG1 7267,10532 | 7266 BTIFG2 10530 | 10222 BTNONX 10216 | 6301 CHMASK 4523, 4546 7153 CLAMAT 7162 | 10303 CONBET 10500 | 3732 DATEBX | 6262 DECMSK 4425, 7061,10063 | 4412 DIGRTN 13310 6 DMPTAP 0, 5337 | 10257 DOBTNX 10504 | 7306 DONOBT 10506 | 11421 DRMTAG 11213 | 10700 ENDNST 10646 6332 ENDPAR 4023, 6331 | 6331 ENDTAB 4001 | 10553 ER1PRM 7062, 7064, 7066 | 6340 ERLIST 4030, 4037, 4045 | 4456 ERPRNT 4422 6265 ERWORD 3741, 4031, 4404 | 6037 EXBERR 4457 | 4416 EXBETA 4465, 4471, 7335,10163,10201,10332,10363,11065,12110,14731,14765,14771,15011 | 2 FINTAP | 3730 FLAGBX 7150 FORMAT 7042,10502 | 7363 FORMNB 7337, 7340, 7341, 7344, 7350 | 10407 FRALFA 10365 | 10362 FRETIF 10546 | 4707 FTS1DP 4702 4435 INTOEX 4015, 4447 | 5325 IOER02 5307 | 5327 IOER03 4003 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 10 | POST PROCESSOR ASSEMBLY DATA | 5332 IOER04 4012 | 5334 IOER05 7032,10566,13663 | 5340 IOER06 5256 | 10060 ISNONX 10510 134 .CHEXI | 135 .MODSW | 10751 L13700 10744 | 4565 LAJUST 4472, 4747, 5136, 7336,10164,10202,10333,10364,10447,14732,14766,14772,15012 | 5120 LESS20 5017 1 LIBTAP | 3731 LINECT | 6327 LK4END 4021, 5330 | 7 MBNTAP | 10 MCHTAP 4050 MESSGE 4047 | 5 MINTAP | 5042 MLIST1 4364, 5226, 5231 | 5100 MLIST2 4365, 5227, 5232 | 6 MLSTAP 4660, 4663, 5042, 5100, 5142, 5145, 5306, 5312 10727 MORDOS 10616,10622,10650 | 11424 NAMKEY 11214 | 4345 NEARBT 4205 | 10155 NEXASG 10130 | 7356 NOBETA 7352 6337 NOLINE 4666, 5056, 5110 | 10663 NONEST 10621 | 10410 NOTEQV 10544 | 10156 NOXBTA 10133,10137,10141,10143,10145,10150,10154 | 4635 OCTBCD 4372, 4376, 4402, 4406, 4756 5360 OFLIMS 4022 | 5350 ONLINE 4026 | 5037 PARAM1 4357, 5032, 5036, 5044, 5046 | 5075 PARAM2 4361, 5066, 5072, 5074, 5122, 5125 | 13662 PARMET 13660 5150 PGTITL 5172 | 6320 POSITI 5375 | 5254 PRENDS 5243, 5245 | 10371 PRFREQ 10367 | 5036 PRINT1 4354, 5061, 5351 5074 PRINT2 4355, 5127, 5352 | 10340 PRNOTR 10336 | 7115 PRTEIF 7103 | 4455 PRTEST 4176, 4433 | 4545 RAJUST 4554 5060 RESPGE 5223 | 5130 RESTOR 5060, 5112 | 6311 REWIND 3766, 4223, 5212 | 5200 RITETA 5033, 5035, 5041, 5047, 5067, 5073, 5077, 5123, 5126 | 10132 SAVEB1 10100,10134,10135 10134 SAVEB2 10102 | 10135 SAVEB3 10104 | 6305 SAVEMQ 3737, 5270, 6676, 7016, 7021, 7027,10557,10563,10730,10733,11044,11047,11526,12103,13655,14730,14764 | 15010 | 6306 SAVIND 3740, 5322,14770 4030 SEARCH 4036 | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 11 | POST PROCESSOR ASSEMBLY DATA | | 4140 SEC1DP 4710, 4712, 4714 5252 SGLCOM 5225 | 5211 SINGLE 4655 | 3 SINTAP | 2 SLSTAP 0, 3767, 3774, 3777, 4002, 4006, 4011, 4013, 4224, 5213, 5216, 5221, 5252, 5356, 5375 | 11 SNPTAP 6266 SOURCE 5000 | 11304 SPACE1 15240 | 7470 SPACE2 15240 | 5346 SSTEST 4025 | 23742 SYMBOL 0, 6336, 7031,10565,10735,11051,11521,12076,13662,13674,13716,13727,13740,13751,13762 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 3761, 3764 | 127 SYSTCH | 100 SYSTRA | 131 SYSTWT 111 SYSUAV | 110 SYSUBC | 112 SYSUCW | 107 SYSUNI | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 12 POST PROCESSOR ASSEMBLY DATA | | 157 SYSUT1 | 160 SYSUT2 | 161 SYSUT3 162 SYSUT4 | 13665 TAPCOR 13715 | 16052 TEIFIN 0, 4016, 4454 | 6330 TEIFNO 4006, 4011 | 5672 TFNSIZ 0, 4454 10144 TIF3B1 10114,10146 | 10146 TIF3B2 10116 | 10147 TIF4B1 10120,10151 | 10151 TIF4B2 10122 | 10152 TIF5B1 10124 10153 TIF5B2 10126,10152 | 4 TINTAP | 7422 TISMIN 7411 | 7464 TISZRO 7412 | 77677 TOPMEM 10140 TRADX1 10110 | 10142 TRADX2 10112 | 11426 TRASTO 11216,11423 | 10064 TSHCAS 10067 | 11344 TSXCOM 11215 6335 TSXPRN 4353, 5350 | 7254 TSXTFO 7305,10534 | 5175 TWENTY 5016, 5020, 5022, 5045 | 7354 WHICHA 7237, 7244, 7251, 7256, 7263, 7310, 7321 | 5250 WRIEOF 5233, 5235, 5237, 5241 6161 WROFF1 5361 | 6205 WROFF2 5363 | 6231 WROFF3 5365 | 6130 WRRECD 5370, 5372 | 6060 WRSGOP 5343 4454 XBRTEI 4010 | 10131 XTABLE 10060,10064,10066 | 4520 ZEROUT 4475,10411 | 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) 5324 710 (ENBSW | 73665 (ENDS) | 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 13 | POST PROCESSOR ASSEMBLY DATA | 732 (ETTXI | 743 (FDAMT | 73660 (FGBX) 3770, 4654 | 747 (IBCDZ | 740 (IOXSI 73667 (LBLD) | 73652 (LIBT) | 6336 (L)SYM 7034,10570,10741,11055,11524,12101 | 73661 (LNCT) 5050, 5052, 5102, 5104, 5130, 5132 | 73600 (LOAD) 3752 73666 (LODR) 73666 | 737 (LTPOS | 73644 (MECL) 4414 | 73664 (MSLN) 4413 | 704 (NDATA 705 (NDSLX | 712 (PAUSE | 711 (PAWSX | 3733 (PCBK) | 73651 (PGCT) 4665 73614 (PNCH) | 73611 (PRNT) 3742, 3744, 3746, 3750, 5254, 5360, 5362, 5364, 5367, 5371, 6335 | 706 (PROUT | 707 (PUNCH | 40014 (RBEC) 40004 (RBEP) | 40010 (RBNC) 4001, 4010, 5305 | 40000 (RBNP) | 727 (RCHXI | 726 (RCTXI 40016 (RDEC) | 40006 (RDEP) | 40012 (RDNC) 4662 | 40002 (RDNP) | 73622 (REST) 73672 (SCHU) 4013 | 744 (SDCXI | 73643 (SECL) 4235 | 20010 (SKBC) | 20000 (SKBP) 3760, 3763, 3766, 3773, 3776, 4005, 4223, 5212, 5220, 5311 20012 (SKDC) | 20002 (SKDP) 4657, 5215, 5355 | 1000 (SNAP) | 73663 (SNCT) | 73617 (STAT) 745 (STCXI | 73626 (STDN) | 723 (STOPD | 713 (STOPX | 10003 (SUAV) 10002 (SUNV) | 714 (SYMUN | 73606 (TAPE) 3757, 3762, 3765, 3772, 3775, 4000, 4004, 4007, 4222, 4656, 4661, 5040, 5076, 5140, 5143, 5211, 5214 | 5217, 5250, 5304, 5310, 5335, 5354, 5373 | 730 (TCOXI 1 32K 709/7090 FORTRAN GENERAL DIAGNOSTIC 12/15/63 PAGE 14 | POST PROCESSOR ASSEMBLY DATA | | 733 (TEFXI | 4000 (TPER) 5336, 5374 735 (TRAPS | 734 (TRAPX | 731 (TRCXI | 742 (TRPSW | 725 (URRXI 40011 (WBNC) | 40001 (WBNP) | 40013 (WDNC) 5041, 5077, 5141, 5144 | 40003 (WDNP) | 40015 (WEFC) 5251 40005 (WEFP) | 40031 (WROW) | | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * FORTRAN II LIBRARY EDITOR ZLED0000 * FAP ZLED0020 1 FORTRAN II LIBRARY EDITOR 12/15/63 PAGE 1 | | * LIBRARY BIN CARD BLOCKER FOR FORTRAN ZLED0050 | * PLACES 10 CARDS IN EACH OUTPUT RECORD ZLED0060 | * INPUT UNIT DEFINED BY INPT EQU CARD, OUTPUT BY OUTPT EQU CARD ZLED0070 ABS ZLED0090 | SST FORTRAN $ZLED0100 | 00161 INPT EQU SYSUT3 DEFINES INPUT UNIT ZLED0120 | 00162 OUTPT EQU SYSUT4 DEFINES OUTPUT UNIT ZLED0130 | 00014 BFACTR EQU 12 BLOCKING FACTOR (OUTPUT) $ZLED0141 00030 CDSIZE EQU 24 WORDS PER CARD IMAGE (OUTPUT) $ZLED0142 | 00102 ORG SYSCUR ZLED0150 | | BINARY CARD NO. 9LEDIT00 | 00102 114325243163 BCI 1,9LEDIT ZLED0160 73666 ORG (LODR) ZLED0170 | | BINARY CARD NO. 9LEDIT01 | 73666 1 77777 0 03734 TXI LEDIT,,-1 ZLED0180 | 03734 ORG BOTTOM ZLED0190 | BINARY CARD NO. 9LEDIT02 | 03734 -0500 00 0 00161 LEDIT CAL INPT $ZLED0260 | 03735 0400 00 0 04436 ADD L(1) STORE ADD OF UCB ZLED0270 | 03736 0621 00 0 04111 STA RTTST WD 2 IN COMPLETION TERST ZLED0280 03737 -0520 00 0 00162 NZT OUTPT ZLED0290 | 03740 0020 00 0 04364 TRA O2ERR ZLED0300 | 03741 -0500 00 0 00162 CAL OUTPT ZLED0310 | 03742 0400 00 0 04436 ADD L(1) STORE ADD OF UCB ZLED0320 | 03743 0621 00 0 04136 STA WTTST WD 2 IN COMPLETION TRST ZLED0330 03744 0774 00 2 04466 AXT OUT1+3,2 SET ON FIRST OUTPUT BUFFER $ZLED0340 | 03745 0634 00 2 03774 SXA MOVE,2 ZLED0350 | 03746 -0625 00 0 04435 STL INBUF SET ON BUF 2 TO READ INTO 1 ZLED0360 | 03747 0074 00 4 04110 TSX IOEXRD,4 READ THE FIRST RECORD ZLED0370 | 03750 0522 00 0 04111 XEC RTTST WAIT TILL FINISHED ZLED0380 03751 0020 00 0 03750 TRA *-1 BUF 1 FULL ZLED0390 | 03752 0520 00 0 04430 ZET EOFIN END OF FILE ZLED0400 | 03753 0020 00 0 04357 TRA EFERR YES, ERROR ZLED0410 | 03754 0600 00 0 04435 STZ INBUF SET ON BUF 1 TO ZLED0480 | 03755 0074 00 4 04110 RDIN TSX IOEXRD,4 READ INTO BUF 2 ETC. ZLED0490 03756 0534 00 2 04434 LXA COUNT,2 GET OUTPUT BUF COUNT ZLED0500 | 03757 0774 00 4 00030 AXT CDSIZE,4 WORD COUNT ON CARD $ZLED0510 | 03760 -0774 00 1 05573 AXC BUF1,1 START OF FIRST BUFFER $ZLED0520 | 03761 0520 00 0 04435 ZET INBUF USING IT $ZLED0530 | BINARY CARD NO. 9LEDIT03 | 03762 -0774 00 1 05630 AXC BUF2,1 NO,GET START OF SECOND $ZLED0540 | 03763 0441 00 1 00000 LDI 0,1 GET 9L FOR CHECKSUM $ZLED0550 | 03764 -0056 00 400000 LNT 400000 IS THIS A PROGRAM CARD $ZLED0551 | 03765 0020 00 0 03770 TRA *+3 NO,PROCEED $ZLED0552 03766 0560 00 1 00004 LDQ 4,1 SAVE ENTRY POINT NAME $ZLED0553 | 03767 -0600 00 0 04445 STQ ENTRY FOR POSSIBLE ERROR MESSAGE $ZLED0554 | 03770 -0500 00 1 00001 CAL 1,1 GET CHECKSUM $ZLED0560 | 03771 0602 00 0 04437 SLW CKSUM SAVE IT $ZLED0570 | 03772 0760 00 0 00006 COM COMPLEMENT PLUS THING $ZLED0580 TWICE EQUALS THING $ZLED0590 | 03773 0560 00 1 00000 LOOP LDQ 0,1 GET INPUT WORD $ZLED0600 | 03774 -0600 00 2 00000 MOVE STQ **,2 TO OUTPUT BUFFER $ZLED0610 | 1 FORTRAN II LIBRARY EDITOR 12/15/63 PAGE 2 | 03775 0361 60 0 03774 ACL* MOVE UPDATE CHECKSUM $ZLED0620 | 03776 1 77777 2 03777 TXI *+1,2,-1 NEXT OUTPUT $ZLED0630 | 03777 1 77777 1 04000 TXI *+1,1,-1 NEXT INPUT $ZLED0640 | 04000 2 00001 4 03773 TIX LOOP,4,1 REPEAT FOR NEXT WORD $ZLED0650 | 04001 0602 00 0 05672 SLW COMCK SAVE COMPUTED CHECKSUM (24)ZLED0660 04002 0634 00 2 04434 SXA COUNT,2 UPDATE OUTPUT COUNT (24)ZLED0670 | 04003 0322 00 0 04437 ERA CKSUM COMPARE CHECKSUMS (24)ZLED0671 | 04004 -0056 00 100000 LNT 100000 UNLESS SUPPRESSED (24)ZLED0672 | 04005 -0100 00 0 04033 TNZ CKERR IN USE HENCE SHOULD BE ZERO (24)ZLED0673 | 04006 0520 00 0 04435 CKF ZET INBUF REVERSE (24)ZLED0674 04007 0774 00 1 00000 AXT 0,1 INPUT (24)ZLED0675 | | BINARY CARD NO. 9LEDIT04 | 04010 0634 00 1 04435 SXA INBUF,1 BUFFERS (24)ZLED0676 | 04011 -3 77340 2 04013 TXL OBFUL,2,-BFACTR*CDSIZE (24)ZLED0677 04012 0020 00 0 03755 TRA RDIN OUTPUT NOT FULL, DO ANOTHER (24)ZLED0680 | 04013 0074 00 4 04045 OBFUL TSX GFLIB,4 GENERATE FLIB NO. (24)ZLED0690 | 04014 -0500 00 0 04440 CAL FLIB GET BBLIB (24)ZLED0700 | 04015 -0763 00 0 00014 LGL 12 MOVE NO. OVER (24)ZLED0710 | 04016 0600 00 0 04434 STZ COUNT CLEAR OUTPUT BUF COUNT (24)ZLED0720 04017 0520 00 0 04432 ZET OUTBUF WHICH OUT BUF FULL (24)ZLED0730 | 04020 0020 00 0 04027 TRA TWOF TWO (24)ZLED0740 | 04021 -0625 00 0 04432 STL OUTBUF ONE, SET ON 2 (24)ZLED0750 | 04022 0602 00 0 04464 SLW OUT1+1 STORE FLIB NO. IN OUTBUF 1 (24)ZLED0760 | 04023 0774 00 2 05132 AXT OUT2+3,2 SET MOVE TO SECOND BUFFER (24)ZLED0770 04024 0634 00 2 03774 GOWRT SXA MOVE,2 (24)ZLED0780 | 04025 0074 00 4 04135 TSX IOEXWR,4 WRITE OUTBUF ON SYSOU2 (24)ZLED0790 | 04026 0020 00 0 03755 TRA RDIN GO READ NEXT INPUT REC (24)ZLED0800 | 04027 0600 00 0 04432 TWOF STZ OUTBUF TWO FULL, SET ON 1 (24)ZLED0810 | 04030 0602 00 0 05130 SLW OUT2+1 STORE FLIB NO. (24)ZLED0820 04031 0774 00 2 04466 AXT OUT1+3,2 SET MOVE TO FIRST BUFFER (24)ZLED0830 | 04032 0020 00 0 04024 TRA GOWRT GO WRITE OUTPUT BUF (24)ZLED0835 | 04033 -0500 00 0 04437 CKERR CAL CKSUM CHECKSUM DIDNT MATCH (24)ZLED0836 | 04034 0100 00 0 04006 TZE CKF THEY DIDNT WANT IT TO (24)ZLED0837 | 04035 -0046 00 0 00000 PIA GET 9L FOR LOAD (24)ZLED0838 | BINARY CARD NO. 9LEDIT05 | 04036 -0765 00 0 00017 LGR 15 ADDRESS,CONVERT TO (24)ZLED0839 | 04037 0074 00 4 00721 TSX (BCD5X,4 SPREAD OCTAL (24)ZLED0840 | 04040 0602 00 0 04450 SLW ENTRY+3 STORE IN MESSAGE (24)ZLED0841 04041 0074 00 4 00706 TSX (PROUT,4 PRINT MESSAGE (24)ZLED0842 | 04042 0 00000 0 00001 PZE 1 -CHECKSUM ERROR ENTRY (24)ZLED0843 | 04043 0 00012 0 04441 PZE SERROR,,10 XXX CARD ORIGIN YYY (24)ZLED0844 | 04044 0020 00 0 05665 TRA CKPCH AND DO SO (24)ZLED0845 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ZLED0850 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ZLED0860 | ZLED0870 | ROUTINE USED TO ADD ONE TO FLIB NUMBER ZLED0880 | FLIB IS THE FORT LIBRARY BLOCKED RECORD ZLED0881 | NUMBER, THE 1ST RECORD (DUMMY) IS NUMBERED ZLED0882 9FL000, THE SECOND 9FL001 ETC. ZLED0883 | ZLED0890 | 04045 0634 00 4 04066 GFLIB SXA GFIX4,4 ZLED0900 | 04046 0634 00 2 04065 SXA GFIX2,2 ZLED0910 | 04047 -0754 00 0 00000 PXD 0,0 ZLED0920 04050 0560 00 0 04433 LDQ NO GET THE LAST NO ZLED0930 | 1 FORTRAN II LIBRARY EDITOR 12/15/63 PAGE 3 | | 04051 -0763 00 0 00006 LGL 6 GET HI ORDER DIGIT ZLED0940 | 04052 0734 00 2 00000 PAX 0,2 PLACE IT IN XR2 ZLED0950 04053 -0754 00 0 00000 PXD 0,0 ZLED0960 | 04054 -0763 00 0 00006 LGL 6 GET LOW ORDER DIGIT ZLED0970 | 04055 0734 00 4 00000 PAX 0,4 PLACE IT IN XR4 ZLED0980 | 04056 1 00001 4 04057 TXI *+1,4,1 ADD 1 TO LOW ORDER DIG ZLED0990 | 04057 3 00011 4 04070 TXH HIGH,4,9 LOW ORDER DIG GR. THAN 9 ZLED1000 04060 0754 00 4 00000 GF1 PXA 0,4 NO ZLED1010 | 04061 -0765 00 0 00006 LGR 6 LOW ORDER DIG ZLED1020 | 04062 0754 00 2 00000 PXA 0,2 ZLED1030 | 04063 -0765 00 0 00006 LGR 6 HI ORDER DIG ZLED1040 | BINARY CARD NO. 9LEDIT06 | 04064 -0620 00 0 04433 SLQ NO STORE NEW NO BACK ZLED1050 | 04065 0774 00 2 00000 GFIX2 AXT **,2 ZLED1060 | 04066 0774 00 4 00000 GFIX4 AXT **,4 ZLED1070 | 04067 0020 00 4 00001 TRA 1,4 RETURN WITH NO IN LEFT 2 CHARS OF MQ ZLED1080 04070 1 77766 4 04071 HIGH TXI *+1,4,-10 SET LOW ORDER DIG TO 0 ZLED1090 | 04071 1 00001 2 04072 TXI *+1,2,1 ADD 1 TO HI ORDER DIGIT ZLED1100 | 04072 3 00011 2 04074 TXH *+2,2,9 GREATER THAN 9 ZLED1110 | 04073 0020 00 0 04060 TRA GF1 NO ZLED1120 | 04074 1 77766 2 04075 TXI *+1,2,-10 YES, CLR TENS POS ZLED1130 04075 -0500 00 0 04440 CAL FLIB ADD 1 TO HUNDS POS ZLED1131 | 04076 0400 00 0 04436 ADD L(1) ZLED1132 | 04077 -0340 00 0 04106 LAS FLIB1 GREATER THAN 1000 ZLED1133 | 04100 0020 00 0 04104 TRA *+4 YES ZLED1134 | 04101 0602 00 0 04440 SLW FLIB NO, STORE BACK ZLED1135 04102 0602 00 0 04440 SLW FLIB ZLED1136 | 04103 0020 00 0 04060 TRA GF1 ZLED1137 | 04104 0402 00 0 04107 SUB L(10) CLR TO 9FL000 ZLED1138 | 04105 0020 00 0 04102 TRA *-3 ZLED1139 | 04106 606011264311 FLIB1 BCI 1, 9FL9 ZLED1142 04107 +000000000012 L(10) DEC 10 ZLED1143 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ZLED1145 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .ZLED1150 | ZLED1160 | / SETS UP I/O CMDS AND SEL ADD FOR READING SYSIN1 ZLED1170 ZLED1180 | 04110 0634 00 4 04125 IOEXRD SXA IORDEX,4 SAVE XR4 ZLED1190 | 04111 0520 00 0 00000 RTTST ZET ** SOMEONE USING THIS UNIT ZLED1200 | | BINARY CARD NO. 9LEDIT07 04112 0020 00 0 04111 TRA *-1 ZLED1210 | 04113 0520 00 0 04430 ZET EOFIN END OF FILE ON INPUT ZLED1220 | 04114 0020 00 0 04232 TRA EOFI YES ZLED1230 | 04115 0520 00 0 04431 ZET ERRIN ZLED1240 | 04116 0020 00 0 04333 TRA RERR PERMANENT REDUNDANCY ZLED1250 04117 -0520 00 0 04435 NZT INBUF NO, WHICH BUFFER ZLED1260 | 04120 0020 00 0 04127 TRA B2 0=1 GET I/O CMD ADD FOR 2 ZLED1270 | 04121 0500 00 0 04131 CLA IO1 1=2 GET I/O CMD ADD FOR 1 ZLED1280 | 04122 0601 60 0 04111 STUCB STO* RTTST STORE IT IN UCB WORD 2 ZLED1290 | 04123 0074 00 4 00702 TSX (ACTIV,4 GO ACTIVATE ZLED1300 04124 0 00000 0 00161 PZE INPT ZLED1310 | 04125 0774 00 4 00000 IORDEX AXT **,4 RESTORE XR4 ZLED1320 | 04126 0020 00 4 00001 TRA 1,4 RETURN ZLED1330 | 04127 0500 00 0 04132 B2 CLA IO2 I/O CMD AND SEL FOR 2 ZLED1340 | 1 FORTRAN II LIBRARY EDITOR 12/15/63 PAGE 4 | 04130 0020 00 0 04122 TRA STUCB ZLED1350 | 04131 0 04157 0 04133 IO1 PZE IOR1,,SELR LOC OF SEL AND IO CMD FOR BUF1 ZLED1360 | 04132 0 04157 0 04134 IO2 PZE IOR2,,SELR LOC OF SEL AND IO CMD FOR BUF2 ZLED1370 | 04133 3 00034 0 05573 IOR1 IORT BUF1,,28 IO CMD FOR BUF1, ENDS IN TRAP ZLED1380 04134 3 00034 0 05630 IOR2 IORT BUF2,,28 IO CMD FOR BUF2, ENDS IN TRAP ZLED1390 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .ZLED1400 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .ZLED1410 | ZLED1420 | WRITE ROUTINE WAITS TILL UCB IS CLEAR AND ZLED1430 SETS UP I/O COMMANDS AND SEL LOCS FOR WRITE SELECT ZLED1440 | ZLED1450 | 04135 0634 00 4 04151 IOEXWR SXA WRX,4 ZLED1460 | 04136 0520 00 0 00000 WTTST ZET ** SOMEONE USING THIS UNIT ZLED1470 | 04137 0020 00 0 04136 TRA *-1 YES ZLED1480 | BINARY CARD NO. 9LEDIT08 | 04140 0520 00 0 04427 ZET EOTWD NO, END OF TAPE SENSED ZLED1490 | 04141 0020 00 0 04341 TRA WEOT1 YES ZLED1500 | 04142 0500 00 0 04153 CLA WOUT1 LOC OF I/O FOR BUFFER ONE $ZLED1510 04143 -0520 00 0 04432 NZT OUTBUF IS IT BUFFER ONE $ZLED1520 | 04144 0500 00 0 04154 CLA WOUT2 HO HUM,BUFFER TWO $ZLED1530 | 04145 0601 60 0 04136 SWSEL STO* WTTST STORE - LOC OF I/O,,LOC OF SEL ZLED1540 | 04146 0074 00 4 00702 TSX (ACTIV,4 GO ACTIVATE ZLED1550 | 04147 0 00000 0 00162 PZE OUTPT UNIT ON SYSOU2 ZLED1560 04150 0074 00 4 04264 TSX FSYS,4 BACKSPACE SYSTEM TAPE WHILE WRITING ZLED1562 | 04151 0774 00 4 00000 WRX AXT **,4 ZLED1570 | 04152 0020 00 4 00001 TRA 1,4 ZLED1580 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ZLED1610 | 04153 -0 04206 0 04155 WOUT1 MZE IOW1,,SELW ZLED1620 04154 -0 04206 0 04156 WOUT2 MZE IOW2,,SELW ZLED1630 | 04155 -1 00444 0 04463 IOW1 IOCT OUT1,,OUT2-OUT1 $ZLED1640 | 04156 -1 00444 0 05127 IOW2 IOCT OUT2,,OUT2-OUT1 $ZLED1650 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . ZLED1660 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . ZLED1670 ZLED1680 | SELECT ROUTINE TO READ A RECORD FROM SYSIN1 ZLED1690 | ZLED1700 | 04157 0634 00 4 04204 SELR SXA SELRX,4 ZLED1710 | 04160 0737 00 4 00000 PAC 0,4 LOC OF UCB TO XR4 ZLED1720 04161 -0120 00 0 04173 TMI RPOST SEL', POST TRAP ZLED1730 | 04162 0500 00 4 00000 CLA 0,4 SEL +, GET UCB WD 1 ZLED1740 | 04163 -0734 00 2 00000 PDX 0,2 GET UNIT ADD ZLED1750 | 04164 1 00020 2 04165 TXI *+1,2,16 BUMP TO BINARY MODE ZLED1760 | 04165 0634 00 2 04170 SXA RDS,2 PUTJ UNIT ADD IN RDS INST ZLED1770 | BINARY CARD NO. 9LEDIT09 | 04166 0500 00 4 00001 CLA 1,4 GET UCB WD 2 ZLED1780 | 04167 0621 60 0 00727 STA* (RCHXI PLACE I/O CMD ADD IN RCH INST ZLED1790 | 04170 0762 00 0 00000 RDS RDS ** SELECT TAPE ZLED1800 04171 0522 60 0 00727 XEC* (RCHXI EXECUTE PROPER RCH CMD ZLED1810 | 04172 0020 00 0 04204 TRA SELRX GO TO NORMAL EXIT ZLED1820 | 04173 -0054 00 400000 RPOST LFT 400000 ZLED1830 | 04174 0020 00 0 04177 TRA RP1 ZLED1840 | 04175 0534 00 4 04204 LXA SELRX,4 NOISE RECORD ZLED1850 04176 0020 00 4 00002 TRA 2,4 READ NEXT RECORD ZLED1860 | 04177 -0054 00 200000 RP1 LFT 200000 ZLED1870 | 1 FORTRAN II LIBRARY EDITOR 12/15/63 PAGE 5 | | 04200 -0625 00 0 04430 STL EOFIN SET EOF INDICATOR ZLED1880 04201 -0054 00 100000 LFT 100000 ZLED1890 | 04202 -0625 00 0 04431 STL ERRIN SET REDUNDANCY INDICATOR ZLED1900 | 04203 0600 00 4 00001 STZ 1,4 SET UCB WORD 2 TO ZERO ZLED1910 | 04204 0774 00 4 00000 SELRX AXT **,4 ZLED1920 | 04205 0020 00 4 00001 TRA 1,4 RETURN IOEX ZLED1930 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ZLED1940 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ZLED1950 | ZLED1960 | SELECT ROUTINE TO WRITE ON SYSOU2 ZLED1970 | ZLED1980 04206 0634 00 4 04221 SELW SXA SELWX,4 ZLED1990 | 04207 0737 00 4 00000 PAC 0,4 PLACE ADD OF UCB IN XR4 ZLED2000 | 04210 -0120 00 0 04223 TMI WPOST POST TIME ZLED2010 | 04211 0500 00 4 00000 CLA 0,4 NO, GET UCB WD 1 ZLED2020 | 04212 -0734 00 2 00000 PDX 0,2 BUMP UNIT ADD TO ZLED2030 04213 1 00020 2 04214 TXI *+1,2,16 BINARY ZLED2040 | | BINARY CARD NO. 9LEDIT10 | 04214 0634 00 2 04217 SXA WRS,2 STORE IT IN WRITE SEL INST ZLED2050 | 04215 0500 00 4 00001 CLA 1,4 GET UCB WD 2 ZLED2060 04216 0621 60 0 00727 STA* (RCHXI STORE I/O CMD ADD IN RCH INST ZLED2070 | 04217 0766 00 0 00000 WRS WRS ** SELECT PROPER UNIT ZLED2080 | 04220 0522 60 0 00727 XEC* (RCHXI RESET AND LOAD CHANNEL ZLED2090 | 04221 0774 00 4 00000 SELWX AXT **,4 RETURN ZLED2100 | 04222 0020 00 4 00001 TRA 1,4 TO CALLER ZLED2110 04223 0600 00 4 00001 WPOST STZ 1,4 ZLED2120 | 04224 -0054 00 200000 LFT 200000 ZLED2130 | 04225 -0625 00 0 04427 STL EOTWD SET EOT INDICATOR ZLED2140 | 04226 -0054 00 400000 LFT 400000 ZLED2150 | 04227 0020 00 0 04221 TRA SELWX GO EXIT ZLED2160 04230 0534 00 4 04221 LXA SELWX,4 NOISE RECORD, TAKE RETURN 2 ZLED2170 | 04231 0020 00 4 00002 TRA 2,4 TO PRINT OP NOTE ABOUT NOISE REC ZLED2180 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . ZLED2190 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . ZLED2200 | ZLED2210 THIS IS WHAT HAPPENS WHEN WE HIT AN EOF ON INPUT ZLED2220 | ZLED2230 | 04232 0534 00 2 04434 EOFI LXA COUNT,2 NO OF WDS IN OUTPUT ZLED2240 | 04233 -3 00000 2 04250 TXL WAIT,2,0 BUF, IS IT 0 ZLED2250 | 04234 0600 60 0 03774 STZ* MOVE ZERO REST OF BUFFER $ZLED2270 04235 1 77777 2 04236 TXI *+1,2,-1 BUFFER ZLED2280 | 04236 3 77340 2 04234 TXH *-2,2,-BFACTR*CDSIZE $ZLED2290 | 04237 0074 00 4 04045 TSX GFLIB,4 GENERATE FLIB NO. ZLED2310 | 04240 -0500 00 0 04440 CAL FLIB ZLED2320 | 04241 -0763 00 0 00014 LGL 12 FLIB NO. IN ACC ZLED2330 | BINARY CARD NO. 9LEDIT11 | 04242 0602 00 0 04464 SLW OUT1+1 STORE FLIB NO. ZLED2340 | 04243 0602 00 0 05130 SLW OUT2+1 ZLED2350 | 04244 0520 00 0 04432 ZET OUTBUF WHICH BUFFER ZLED2360 04245 -0754 00 0 00000 ZAC ZLED2370 | 04246 0602 00 0 04432 SLW OUTBUF ZLED2380 | 04247 0074 00 4 04135 TSX IOEXWR,4 WRITE OUT LAST REC ZLED2390 | 04250 0520 60 0 04136 WAIT ZET* WTTST DELAY FOR CURRENT WRITE $ZLED2400 | 04251 0020 00 0 04250 TRA *-1 $ZLED2401 1 FORTRAN II LIBRARY EDITOR 12/15/63 PAGE 6 | | 04252 0500 00 0 04454 CLA FLBL COMMAND FOR TRAILER LABEL $ZLED2402 | 04253 0601 60 0 04136 STO* WTTST TO UCB WORD 2 $ZLED2405 | 04254 0074 00 4 00702 TSX (ACTIV,4 WRITE TRAILER LABEL $ZLED2410 04255 -0 00000 0 00162 MZE OUTPT IMMEDIATE $ZLED2415 | 04256 0520 60 0 04136 ZET* WTTST DELAY FOR TRAILER $ZLED2416 | 04257 0020 00 0 04256 TRA *-1 WRITING $ZLED2417 | 04260 0074 00 4 00704 TSX (NDATA,4 WRITE EOF ON ZLED2420 | 04261 0 00007 0 00162 PZE OUTPT,,7 ZLED2430 04262 0020 00 0 04304 TRA GOFN IGNORE EOT AFTER EOF ZLED2440 | 04263 0020 00 0 04304 TRA GOFN GO TO FORTRAN ZLED2450 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ZLED2460 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ZLED2470 | ZLED2480 FORTRAN SYSTEM POSITIONING ROUTINE ZLED2490 | BACKSPACES 1 FILE AT A TIME ON SYSTEM TO FORTRA ZLED2500 | ZLED2510 | 04264 0441 00 0 03730 FSYS LDI FLAGBX ZLED2520 | 04265 -0054 00 000100 LFT 100 IS SYSTEM ON DISK ZLED2530 04266 0020 00 4 00001 TRA 1,4 YES ZLED2540 | 04267 0500 00 0 04303 CLA FFILE ZLED2550 | | BINARY CARD NO. 9LEDIT12 | 04270 0100 00 4 00001 TZE 1,4 NO MORE TO DO ZLED2560 04271 0402 00 0 04436 SUB L(1) ZLED2570 | 04272 0601 00 0 04303 STO FFILE ZLED2580 | 04273 0634 00 4 04301 SXA FFILQ,4 ZLED2590 | 04274 0020 00 0 05673 TRA SYSTP (31)ZLED2592 | 04275 0520 00 4 00001 ZET 1,4 SYSTAPE IN USE ZLED2594 04276 0020 00 0 04275 TRA *-1 ZLED2596 | 04277 0074 00 4 00704 TSX (NDATA,4 ZLED2600 | 04300 0 00006 0 05677 PZE POINTR,,6 (31)ZLED2610 | 04301 0774 00 4 00000 FFILQ AXT **,4 ZLED2620 | 04302 0020 00 4 00001 TRA 1,4 ZLED2630 04303 0 00000 0 00005 FFILE PZE 5 NUMBER OF FILES BACK TO FORTRAN ZLED2640 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .ZLED2650 | . . . . . . . . . . . . . . . . . . . . .. . . . . . . . . . ZLED2660 | ZLED2670 | RETURN TO FORTRAN ZLED2680 ZLED2690 | 04304 0074 00 4 00706 GOFN TSX (PROUT,4 PRINT COMPLETED MESSAGE ZLED2700 | 04305 0 00000 0 00002 PZE 2 ZLED2701 | 04306 0 00000 0 00000 PZE 0 ZLED2702 | 04307 0 04007 0 04371 PZE COMOK,,7+512*4 ZLED2703 04310 0441 00 0 03730 GOFN1 LDI FLAGBX ZLED2710 | 04311 0055 00 000001 SIR 1 FLAG FOR NO TAPE STATISTICS ZLED2720 | 04312 -0057 00 000070 RIL 70 FLAGS TO GO TO SIGN ON ZLED2730 | 04313 0055 00 100000 SIR 100000 ZLED2740 | 04314 -0520 00 0 04337 NZT ERROR IF ERROR ZLED2750 04315 -0055 00 000020 SIL 20 FLAG TO GO TO MACHINE ERROR RECORD ZLED2760 | | BINARY CARD NO. 9LEDIT13 | 04316 0604 00 0 03730 STI FLAGBX ZLED2770 | 04317 0760 00 0 00140 SLF ZLED2780 04320 0760 00 0 00142 SLN 2 ZLED2790 | 04321 -0054 00 000100 LFT 100 IS SYSTEM ON DISK ZLED2800 | 04322 0020 00 0 04331 TRA FORTRA YES ZLED2810 | 1 FORTRAN II LIBRARY EDITOR 12/15/63 PAGE 7 | 04323 -0520 00 0 04303 NZT FFILE ARE WE FINISHED BACKSPACING ZLED2820 | 04324 0020 00 0 04327 TRA *+3 ZLED2830 | 04325 0074 00 4 04264 TSX FSYS,4 NO, DO SOME MORE ZLED2840 | 04326 0020 00 0 04323 TRA *-3 ZLED2850 | 04327 0500 00 0 04331 CLA FORTRA ZLED2860 04330 0601 00 0 00100 STO SYSTRA MAKE SURE WE GET OVER FILEMARK ZLED2870 | D 04331 0074 01 4 00121 FORTRA TSX SYSLDR,4,1 ZLED2880 | 04332 264651635121 BCI 1,FORTRA ZLED2890 | ZLED2900 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . ZLED2910 . . . . . . . . . . . . . . . . . . . . . . . . . . . . ZLED2920 | ZLED2930 | 04333 0074 00 4 00706 RERR TSX (PROUT,4 GO PRINT PERMANENT REDUNDANCY ZLED2940 | 04334 0 00000 0 00002 PZE 2 MESSAGE ZLED2950 | 04335 0 00000 0 00000 PZE 0 ZLED2960 04336 0 04010 0 04400 PZE COMNT,,8+512*4 ZLED2970 | 04337 0600 00 0 04337 ERROR STZ * ZLED2980 | 04340 0020 00 0 04310 TRA GOFN1 ZLED2981 | ZLED2990 | 04341 0074 00 4 00704 WEOT1 TSX (NDATA,4 END OF TAPE SENSED ZLED3000 04342 0 00007 0 00162 PZE OUTPT,,7 WRITE AN EOF ZLED3010 | 04343 0761 00 0 00000 NOP EOT RETURN ZLED3020 | | BINARY CARD NO. 9LEDIT14 | 04344 0074 00 4 00704 TSX (NDATA,4 REWIND ZLED3030 04345 0 00003 0 00162 PZE OUTPT,,3 ZLED3040 | 04346 0535 00 4 00162 LAC OUTPT,4 ZLED3050 | 04347 0560 00 4 00000 LDQ 0,4 GET UNIT ADD ZLED3060 | 04350 0074 00 4 00714 TSX (SYMUN,4 CONVERT ZLED3070 | 04351 0602 00 0 04413 SLW CMMT+3 AND PUT IN MESSAGE ZLED3080 04352 0074 00 4 00706 TSX (PROUT,4 PRINT EOT ON UNIT ZLED3090 | 04353 0 00000 0 00002 PZE 2 ZLED3100 | 04354 0 00000 0 00000 PZE 0 ZLED3110 | 04355 0 04004 0 04410 PZE CMMT,,4+512*4 ZLED3120 | 04356 0020 00 0 04337 TRA ERROR ZLED3130 ZLED3140 | 04357 0074 00 4 00706 EFERR TSX (PROUT,4 ERROR, PRINT EOF ENCOUNT ZLED3150 | 04360 0 00000 0 00002 PZE 2 ZLED3160 | 04361 0 00000 0 00000 PZE 0 ZLED3170 | 04362 0 04006 0 04414 PZE CMT3,,6+512*4 ZLED3180 04363 0020 00 0 04337 TRA ERROR ZLED3190 | ZLED3200 | 04364 0074 00 4 00706 O2ERR TSX (PROUT,4 ZLED3210 | 04365 0 00000 0 00002 PZE 2 ZLED3220 | 04366 0 00000 0 00000 PZE 0 ZLED3230 04367 0 04005 0 04422 PZE CMTT4,,5+512*4 ZLED3240 | 04370 0020 00 0 04337 TRA ERROR ZLED3250 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ZLED3260 | ZLED3270 | 04371 264651635121 COMOK BCI 7,FORTRAN BLOCKED LIBRARY COMPLETE ON SYSUT4 ZLED3271 | BINARY CARD NO. 9LEDIT15 | 04400 604725514421 COMNT BCI 8, PERMANENT REDUNDANCY ON INPUT, JOB TERMINATED ZLED3280 | 04410 602545246046 CMMT BCI 4, END OF TAPE, UNIT ZLED3290 | 04414 602546266025 CMT3 BCI 6, EOF ENCOUNTERED AS FIRST RECORD ZLED3300 1 FORTRAN II LIBRARY EDITOR 12/15/63 PAGE 8 | | BINARY CARD NO. 9LEDIT16 | 04422 604664634764 CMTT4 BCI 5, OUTPUT UNIT NOT ASSIGNED ZLED3310 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ZLED3320 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ZLED3330 | ZLED3340 | CONSTANTS AND BUFFERS ZLED3350 | ZLED3360 | 04427 0 00000 0 00000 EOTWD PZE 0 WHEN SET, EOT SENSED ON WRITE ZLED3370 04430 0 00000 0 00000 EOFIN PZE 0 WHEN SET, EOF SENSED ON READING INPUT ZLED3380 | 04431 0 00000 0 00000 ERRIN PZE 0 WHEN SET, PERMANENT REDUNDANCY READING ZLED3390 | 04432 0 00000 0 00000 OUTBUF PZE 0 WHICH BUF TO BE FILLED 0=1, 1+=2 ZLED3400 | 04433 0 00000 0 00000 NO PZE 0 STORAGE FOR LAST FLIB NO. ZLED3410 | 04434 0 00000 0 00000 COUNT PZE 0 WHERE ARE ON OUTPUT BUF ZLED3420 04435 0 00000 0 00000 INBUF PZE 0 WHICH IN BUF TO MOVE TO OUT BUF 0=1, ZLED3430 | 04436 0 00000 0 00001 L(1) PZE 1 ZLED3440 | 04437 0 00000 0 00000 CKSUM INPUT CHECKSUM $ZLED3500 | 04440 606011264300 FLIB BCI 1, 9FL0 ZLED3510 | 04441 602330252342 SERROR BCI 4, CHECKSUM ERROR. ENTRY $ZLED3520 04445 676767676767 ENTRY BCI 1,XXXXXX LATEST ENTRY POINT NAME $ZLED3530 | | BINARY CARD NO. 9LEDIT17 | 04446 602321512460 BCI 6, CARD ORIGIN XXXXX. PROCEEDING. $ZLED3540 | 04454 -0 04206 0 04455 FLBL MZE IOW3,,SELW TRAILER LABEL WILL INDICATE $ZLED3550 04455 -1 00005 0 04456 IOW3 IOCT ENDLB,,5 END OF FILE WHEN READ IS FROM A 7909, $ZLED3560 | 04456 -0 00001 0 00102 ENDLB CPYP SYSCUR,,1 AND WILL STILL CAUSE EOF SIGNAL $ZLED3565 | 04457 112643254524 BCI 1,9FLEND WHEN READ IS FROM A 7607, SINCE IT IS $ZLED3570 | 04460 -0 00001 0 73673 CPYP (SCHU)+SYSTAP,,1 A SHORT RECORD READ WITH THE COMMAND $ZLED3575 | 04461 +000000000000 OCT 0 SEQUENCE $ZLED3580 04462 -1 00000 0 00000 CPYD 0,,0 IOCPN,,,3 $ZLED3585 | IOCT,**,,** $ZLED3590 | * DUPLICATE OUTPUT BUFFERS $ZLED3600 | 04463 OUT1 DUP 5,2 $ZLED3610 | 04463 -0 00001 0 00102 CPYP SYSCUR,,1 (IOCP) $ZLED3620 04464 112643676767 BCI 1,9FLXXX $ZLED3630 | 04465 -0 00440 4 73667 CPYP* (LBLD),,BFACTR*CDSIZE $ZLED3640 | 04466 BSS BFACTR*CDSIZE $ZLED3650 | | BINARY CARD NO. 9LEDIT18 05126 -1 00000 0 00000 CPYD 0,,0 (IORT) $ZLED3660 | | BINARY CARD NO. 9LEDIT19 | 05127 OUT2 EQU OUT1+*/2-OUT1/2 $ZLED3670 | * DUPLICATE INPUT BUFFERS $ZLED3680 05573 BUF1 DUP 2,2 $ZLED3690 | 05573 BSS CDSIZE+4 CARD+LABEL $ZLED3700 | 05627 BSS 1 SKEW SPACE $ZLED3710 | 05630 BUF2 EQU BUF1+*/2-BUF1/2 $ZLED3720 | BINARY CARD NO. 9LEDIT20 | 05665 1 00027 2 05666 CKPCH TXI *+1,2,23 MOVE COUNTER TO CHECKSUM (24)ZLED3730 | 05666 0560 00 0 05672 LDQ *+4 COMPUTED CKSUM MOVED (24)ZLED3731 | 05667 -0600 60 0 03774 STQ* MOVE TO OUTPUT BUFFER (24)ZLED3732 | 05670 0534 00 2 04434 LXA COUNT,2 RESTORE COUNT (24)ZLED3733 05671 0020 00 0 04006 TRA CKF RETURN (24)ZLED3734 | 05672 0 00000 0 00000 COMCK PZE 0 (24)ZLED3735 | 05673 -0534 00 4 00121 SYSTP LXD SYSLDR,4 PICK UP LOC OF UCB OF SYSTEM TAPE (31)ZLED3736 | 1 FORTRAN II LIBRARY EDITOR 12/15/63 PAGE 9 | 05674 0634 00 4 05677 SXA POINTR,4 CONTAINING FORTRAN-SAVE FOR BACKSPACE (31)ZLED3738 | 05675 -0535 00 4 00121 LDC SYSLDR,4 (31)ZLED3739 | 05676 0020 00 0 04275 TRA FFILQ-4 RETURN (31)ZLED373A | 05677 0 00000 0 00000 POINTR PZE ** POINTER TO LOC OF UCB OF SYSTEM TAPE (31)ZLED373B | 05700 PATCH EQU * (31)ZLED373C 77777 END -1 ZLED3740 | | BINARY CARD NO. TRA77777 | 1 FORTRAN II LIBRARY EDITOR 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | 73667 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES TO DEFINED SYMBOLS | 4127 B2 4120 4433 NO 4050, 4064 | 4006 CKF 4034, 5671 | 4060 GF1 4073, 4103 | 4131 IO1 4121 | 4132 IO2 4127 4170 RDS 4165 | 4177 RP1 4174 | 4217 WRS 4214 | 4151 WRX 4135 | 5573 BUF1 3760, 4133, 5665 5630 BUF2 3762, 4134, 5665 | 4410 CMMT 4351, 4355 | 4414 CMT3 4362 | 4232 EOFI 4114 | 4454 FLBL 4252 4440 FLIB 4014, 4075, 4101, 4102, 4240 | 4264 FSYS 4150, 4325 | 4304 GOFN 4262, 4263 | 4070 HIGH 4057 | 161 INPT 0, 3734, 4124 4133 IOR1 4131 | 4134 IOR2 4132 | 4155 IOW1 4153 | 4156 IOW2 4154 | 4455 IOW3 4454 3773 LOOP 4000 | 4436 L(1) 3735, 3742, 4076, 4271 | 3774 MOVE 3745, 3775, 4024, 4234, 5667 | 4463 OUT1 3744, 4022, 4031, 4155, 4156, 4242, 5573 | 5127 OUT2 4023, 4030, 4155, 4156, 4243, 5573 3755 RDIN 4012, 4026 | 4333 RERR 4116 | 4157 SELR 4131, 4132 | 4206 SELW 4153, 4154, 4454 | 4027 TWOF 4020 4250 WAIT 4233 | 4033 CKERR 4005 | 5665 CKPCH 4044 | 4437 CKSUM 3771, 4003, 4033 | 4422 CMTT4 4367 5672 COMCK 4001 | 4400 COMNT 4336 | 4371 COMOK 4307 | 4434 COUNT 3756, 4002, 4016, 4232, 5670 | 4357 EFERR 3753 4456 ENDLB 4455 | 4445 ENTRY 3767, 4040 | 4430 EOFIN 3752, 4113, 4200 | 4427 EOTWD 4140, 4225 | 4431 ERRIN 4115, 4202 1 FORTRAN II LIBRARY EDITOR 12/15/63 PAGE 2 | POST PROCESSOR ASSEMBLY DATA | | 4337 ERROR 4314, 4356, 4363, 4370 | 4303 FFILE 4267, 4272, 4323 4301 FFILQ 4273, 5676 | 4106 FLIB1 4077 | 4065 GFIX2 4046 | 4066 GFIX4 4045 | 4045 GFLIB 4013, 4237 4310 GOFN1 4340 | 4024 GOWRT 4032 | 4435 INBUF 3746, 3754, 3761, 4006, 4010, 4117 | 3734 LEDIT 73666 | 4107 L(10) 4104 4364 O2ERR 3740 | 4013 OBFUL 4011 | 162 OUTPT 0, 3737, 3741, 4147, 4255, 4261, 4342, 4345, 4346 | 5700 PATCH 5700 | 4173 RPOST 4161 4111 RTTST 3736, 3750, 4122 | 4204 SELRX 4157, 4172, 4175 | 4221 SELWX 4206, 4227, 4230 | 4122 STUCB 4130 | 4145 SWSEL 5673 SYSTP 4274 | 4341 WEOT1 4141 | 4153 WOUT1 4142 | 4154 WOUT2 4144 | 4223 WPOST 4210 4136 WTTST 3743, 4145, 4250, 4253, 4256 | 14 BFACTR 0, 4011, 4236, 4465, 4466, 5131, 5132 | 73600 BOTIOP | 3734 BOTTOM 3734 | 30 CDSIZE 0, 3757, 4011, 4236, 4465, 4466, 5131, 5132, 5573, 5630 3732 DATEBX | 2 FINTAP | 3730 FLAGBX 4264, 4310, 4316 | 4331 FORTRA 4322, 4327 | 4110 IOEXRD 3747, 3755 4135 IOEXWR 4025, 4247 | 4125 IORDEX 4110 | 134 .CHEXI | 135 .MODSW | 1 LIBTAP 3731 LINECT | 7 MBNTAP | 10 MCHTAP | 5 MINTAP | 6 MLSTAP 4432 OUTBUF 4017, 4021, 4027, 4143, 4244, 4246 | 5677 POINTR 4300, 5674 | 4441 SERROR 4043 | 3 SINTAP | 11 SNPTAP 122 SYSACC | 114 SYSCEM | 155 SYSCK1 | 1 FORTRAN II LIBRARY EDITOR 12/15/63 PAGE 3 | POST PROCESSOR ASSEMBLY DATA | 156 SYSCK2 | 120 SYSCOR | 144 SYSCRD | 102 SYSCUR 102, 4456, 4463, 5127 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 4331, 5673, 5675 | 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 4460 127 SYSTCH | 100 SYSTRA 4330 | 131 SYSTWT | 111 SYSUAV | 110 SYSUBC 112 SYSUCW | 107 SYSUNI | 157 SYSUT1 | 160 SYSUT2 | 161 SYSUT3 0 162 SYSUT4 0 | 4 TINTAP | 77677 TOPMEM | 702 (ACTIV 4123, 4146, 4254 | 703 (ACTVX 720 (BCD5R | 721 (BCD5X 4037 | 10000 (CHKU) | 741 (CHPSW | 724 (CHXAC 750 (CHXSP | 1 FORTRAN II LIBRARY EDITOR 12/15/63 PAGE 4 | POST PROCESSOR ASSEMBLY DATA | | 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) 4465, 5131 | 73652 (LIBT) | 73661 (LNCT) | 73600 (LOAD) | 73666 (LODR) 73666 737 (LTPOS | 73644 (MECL) | 73664 (MSLN) | 704 (NDATA 4260, 4277, 4341, 4344 | 705 (NDSLX 712 (PAUSE | 711 (PAWSX | 3733 (PCBK) | 73651 (PGCT) | 73614 (PNCH) 73611 (PRNT) | 706 (PROUT 4041, 4304, 4333, 4352, 4357, 4364 | 707 (PUNCH | 40014 (RBEC) | 40004 (RBEP) 40010 (RBNC) | 40000 (RBNP) | 727 (RCHXI 4167, 4171, 4216, 4220 | 726 (RCTXI | 40016 (RDEC) 40006 (RDEP) | 40012 (RDNC) | 40002 (RDNP) | 73622 (REST) | 73672 (SCHU) 4460 744 (SDCXI | 73643 (SECL) | 20010 (SKBC) | 20000 (SKBP) | 20012 (SKDC) 20002 (SKDP) | 1000 (SNAP) | 73663 (SNCT) | 73617 (STAT) | 1 FORTRAN II LIBRARY EDITOR 12/15/63 PAGE 5 POST PROCESSOR ASSEMBLY DATA | | 745 (STCXI | 73626 (STDN) | 723 (STOPD 713 (STOPX | 10003 (SUAV) | 10002 (SUNV) | 714 (SYMUN 4350 | 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) | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 1 LOGICAL MACHINE TOTAL TOTAL NOISE RECORDS TOTAL REDUNDANCIES POSITIONING TAPE TAPE WRITES READS WRITING READING WRITING READING ERRORS 2 A 4 2000 2000 0 0 0 0 0 3 B 4 2230 2378 0 0 0 0 0 5 B 3 0 6502 0 0 0 0 0 6 B 1 18136 0 0 0 0 0 0 7 B 2 2932 0 0 0 0 0 0 24823 LINES OUTPUT THIS JOB. 0 FORTRAN MONITOR RETURNING TO IBSYS $ENDFILE SYSPP1 $REWIND SYSPP1 $SWITCH SYSPP1,SYSUT2 $IBEDT 1IBSYS EDITOR 729/1301/7340/7320 12/15/63 PAGE 1 0 NEW IBSYS EDIT WILL BE DONE ON A3 , HIGH DENSITY. 0 FILE 1 0 RECORD 1 5U0002 7 WORDS 0 RECORD 2 IBSYS 5250 WORDS 0 RECORD 3 SYSDMP 2091 WORDS 0 ......FILE MARK...... 0 FILE 2 0 RECORD 1 IBJOB 853 WORDS 0 RECORD 2 JDUMP 739 WORDS 0 RECORD 3 DMPREC 2139 WORDS 0 RECORD 4 IOCSB 1469 WORDS 0 RECORD 5 IBJOBB 3403 WORDS 0 RECORD 6 IBJOBC 1429 WORDS 0 RECORD 7 IBDBLV 10021 WORDS 0 RECORD 8 IBDPPW 2068 WORDS 0 RECORD 9 IBDPPX 3943 WORDS 0 ......FILE MARK...... 0 FILE 3 0 RECORD 1 IBCBCZ 7629 WORDS 0 RECORD 2 IBCBC0 120 WORDS 0 RECORD 3 IBCBC1 1636 WORDS 0 RECORD 4 IBCBC2 3871 WORDS 0 RECORD 5 IBCBC3 2940 WORDS 0 RECORD 6 IBCBC4 3200 WORDS 0 RECORD 7 IBCBC5 2619 WORDS 0 RECORD 8 IBCBC6 2768 WORDS 0 RECORD 9 IBCBC7 1894 WORDS 1IBSYS EDITOR 729/1301/7340/7320 12/15/63 PAGE 2 0 RECORD 10 IBCBC8 8769 WORDS 0 RECORD 11 IBCBC9 5803 WORDS 0 ......FILE MARK...... 0 FILE 4 0 RECORD 1 IBFTCE 16152 WORDS 0 RECORD 2 IBFTCF 11321 WORDS 0 RECORD 3 IBFTCG 4980 WORDS 0 ......FILE MARK...... 0 FILE 5 0 RECORD 1 IBMAPJ 11908 WORDS 0 RECORD 2 IBMAPK 7526 WORDS 0 ......FILE MARK...... 0 FILE 6 0 RECORD 1 IBLDRM 3745 WORDS 0 RECORD 2 IBLDRN 3742 WORDS 0 RECORD 3 IBLDRO 3352 WORDS 0 RECORD 4 CIFSR 5 WORDS 0 RECORD 5 XSRNT 464 WORDS 0 RECORD 6 SRNT 463 WORDS 0 RECORD 7 SRNT 463 WORDS 0 RECORD 8 SRNT 183 WORDS 0 RECORD 9 SRDT 463 WORDS 0 RECORD 10 SRDT 28 WORDS 0 RECORD 11 .IBSYS 461 WORDS 0 RECORD 12 .LOVRY 462 WORDS 0 RECORD 13 FOUT 463 WORDS 0 RECORD 14 FRDD 462 WORDS 1IBSYS EDITOR 729/1301/7340/7320 12/15/63 PAGE 3 0 RECORD 15 FBIN. 464 WORDS 0 RECORD 16 UN07 450 WORDS 0 RECORD 17 FDMP 461 WORDS 0 RECORD 18 FDSQ 445 WORDS 0 RECORD 19 .IOCS 453 WORDS 0 RECORD 20 CMPAK 463 WORDS 0 RECORD 21 CCDTY 455 WORDS 0 RECORD 22 .CDXP1 439 WORDS 0 ......FILE MARK...... 0 FILE 7 0 RECORD 1 IBLDRP 5283 WORDS 0 RECORD 2 IBLDRQ 3995 WORDS 0 RECORD 3 TIFSR 3 WORDS 0 RECORD 4 .IBSYS 445 WORDS 0 RECORD 5 .LXCON 443 WORDS 0 RECORD 6 .IOCSF 463 WORDS 0 RECORD 7 .IOCSF 463 WORDS 0 RECORD 8 .IOCSF 463 WORDS 0 RECORD 9 .IOCSF 463 WORDS 0 RECORD 10 .IOCSF 463 WORDS 0 RECORD 11 .IOCSF 443 WORDS 0 RECORD 12 .LOVRY 455 WORDS 0 RECORD 13 .LXSL 451 WORDS 0 RECORD 14 .IBDBI 463 WORDS 0 RECORD 15 .IBDBI 463 WORDS 0 RECORD 16 .IBDBI 463 WORDS 0 RECORD 17 .IBDBI 452 WORDS 1IBSYS EDITOR 729/1301/7340/7320 12/15/63 PAGE 4 0 RECORD 18 .DSTRN 444 WORDS 0 RECORD 19 FXEM 442 WORDS 0 RECORD 20 FCNV 463 WORDS 0 RECORD 21 FCNV 463 WORDS 0 RECORD 22 FCNV 463 WORDS 0 RECORD 23 FCNV 449 WORDS 0 RECORD 24 FIOB 462 WORDS 0 RECORD 25 FIOS 452 WORDS 0 RECORD 26 FIOH 444 WORDS 0 RECORD 27 FRDB 462 WORDS 0 RECORD 28 FWRO 463 WORDS 0 RECORD 29 FIOS. 462 WORDS 0 RECORD 30 FBST. 451 WORDS 0 RECORD 31 FIOU 463 WORDS 0 RECORD 32 FIOU 463 WORDS 0 RECORD 33 FIOU 463 WORDS 0 RECORD 34 FIOU 461 WORDS 0 RECORD 35 FSQR 443 WORDS 0 RECORD 36 FXP2 451 WORDS 0 RECORD 37 FEFT 457 WORDS 0 RECORD 38 FDMP 457 WORDS 0 RECORD 39 FSLDI 444 WORDS 0 RECORD 40 FCXP 442 WORDS 0 RECORD 41 FCSQ 457 WORDS 0 RECORD 42 FDMD 455 WORDS 0 RECORD 43 FDAT 462 WORDS 0 RECORD 44 FDX2 456 WORDS 1IBSYS EDITOR 729/1301/7340/7320 12/15/63 PAGE 5 0 RECORD 45 FSCH 445 WORDS 0 RECORD 46 FGAM 463 WORDS 0 RECORD 47 FDVCHK 462 WORDS 0 RECORD 48 .IOCS 463 WORDS 0 RECORD 49 .IOCS 463 WORDS 0 RECORD 50 .IOCS 463 WORDS 0 RECORD 51 .IOCS 463 WORDS 0 RECORD 52 .IOCS 463 WORDS 0 RECORD 53 .IOCS 463 WORDS 0 RECORD 54 .IOCS 463 WORDS 0 RECORD 55 .IOCS 463 WORDS 0 RECORD 56 .IOCS 463 WORDS 0 RECORD 57 .IOCS 463 WORDS 0 RECORD 58 .IOCS 463 WORDS 0 RECORD 59 .IOCS 463 WORDS 0 RECORD 60 .IOCS 463 WORDS 0 RECORD 61 .IOCS 462 WORDS 0 RECORD 62 CMPAK 463 WORDS 0 RECORD 63 CMPAK 463 WORDS 0 RECORD 64 CMPAK 463 WORDS 0 RECORD 65 CMPAK 447 WORDS 0 RECORD 66 CEOBP 455 WORDS 0 RECORD 67 CCOMP 451 WORDS 0 RECORD 68 CHBCD 445 WORDS 0 RECORD 69 CAR14 442 WORDS 0 RECORD 70 CFPAK 463 WORDS 0 RECORD 71 CFPAK 463 WORDS 1IBSYS EDITOR 729/1301/7340/7320 12/15/63 PAGE 6 0 RECORD 72 CFPAK 461 WORDS 0 RECORD 73 CBDCV 460 WORDS 0 RECORD 74 .CGOGO 452 WORDS 0 RECORD 75 .CBBLE 447 WORDS 0 RECORD 76 .RAND 463 WORDS 0 RECORD 77 .RAND 463 WORDS 0 RECORD 78 .RAND 463 WORDS 0 RECORD 79 .RAND 162 WORDS 0 ......FILE MARK...... 0 FILE 8 0 RECORD 1 IBLDRS 4534 WORDS 0 ......FILE MARK...... 0 FILE 9 0 TAPE *REPLACE IBSFAP 0 RECORD 1 IBSFAP 8 WORDS 0 ......FILE MARK...... 0 FILE 10 0 TAPE *REPLACE FORTRA 0 RECORD 1 FORTRA 2377 WORDS 0 TAPE *REPLACE 9F0100 0 RECORD 2 9F0100 37 WORDS 0 TAPE *REPLACE 9F0200 0 RECORD 3 9F0200 1509 WORDS 0 TAPE *REPLACE 9F0300 0 RECORD 4 9F0300 1580 WORDS 0 TAPE *REPLACE 9F0400 0 RECORD 5 9F0400 7326 WORDS 1IBSYS EDITOR 729/1301/7340/7320 12/15/63 PAGE 7 0 TAPE *REPLACE 9F0500 0 RECORD 6 9F0500 2770 WORDS 0 TAPE *REPLACE 9F0600 0 RECORD 7 9F0600 1053 WORDS 0 TAPE *REPLACE 9F0700 0 RECORD 8 9F0700 2699 WORDS 0 TAPE *REPLACE 9F0800 0 RECORD 9 9F0800 863 WORDS 0 TAPE *REPLACE 9F0900 0 RECORD 10 9F0900 247 WORDS 0 TAPE *REPLACE 9F1000 0 RECORD 11 9F1000 735 WORDS 0 TAPE *REPLACE 9F1100 0 RECORD 12 9F1100 347 WORDS 0 TAPE *REPLACE 9F1200 0 RECORD 13 9F1200 12 WORDS 0 ......FILE MARK...... 0 FILE 11 0 TAPE *REPLACE 9F1300 0 RECORD 1 9F1300 1822 WORDS 0 TAPE *REPLACE 9F1400 0 RECORD 2 9F1400 5583 WORDS 0 TAPE *REPLACE 9F1500 0 RECORD 3 9F1500 1207 WORDS 0 TAPE *REPLACE 9F1600 0 RECORD 4 9F1600 952 WORDS 0 TAPE *REPLACE 9F1700 1IBSYS EDITOR 729/1301/7340/7320 12/15/63 PAGE 8 0 RECORD 5 9F1700 464 WORDS 0 TAPE *REPLACE 9F1800 0 RECORD 6 9F1800 1038 WORDS 0 TAPE *REPLACE 9F1900 0 RECORD 7 9F1900 2001 WORDS 0 TAPE *REPLACE 9F2000 0 RECORD 8 9F2000 727 WORDS 0 TAPE *REPLACE 9F2100 0 RECORD 9 9F2100 3012 WORDS 0 TAPE *REPLACE 9F2200 0 RECORD 10 9F2200 2839 WORDS 0 TAPE *REPLACE 9F2300 0 RECORD 11 9F2300 561 WORDS 0 TAPE *REPLACE 9F2400 0 RECORD 12 9F2400 628 WORDS 0 TAPE *REPLACE 9F2500 0 RECORD 13 9F2500 484 WORDS 0 TAPE *REPLACE 9F2600 0 RECORD 14 9F2600 2429 WORDS 0 TAPE *REPLACE 9F2700 0 RECORD 15 9F2700 181 WORDS 0 TAPE *REPLACE 9F2800 0 RECORD 16 9F2800 164 WORDS 0 TAPE *REPLACE 9F2900 0 RECORD 17 9F2900 1461 WORDS 0 TAPE *REPLACE 9F3000 0 RECORD 18 9F3000 1581 WORDS 1IBSYS EDITOR 729/1301/7340/7320 12/15/63 PAGE 9 0 TAPE *REPLACE 9F3100 0 RECORD 19 9F3100 3382 WORDS 0 TAPE *REPLACE 9F3200 0 RECORD 20 9F3200 2699 WORDS 0 TAPE *REPLACE 9F3300 0 RECORD 21 9F3300 863 WORDS 0 TAPE *REPLACE 9F3400 0 RECORD 22 9F3400 247 WORDS 0 ......FILE MARK...... 0 FILE 12 0 RECORD 1 9FL001 292 WORDS 0 RECORD 2 9FL002 292 WORDS 0 RECORD 3 9FL003 292 WORDS 0 RECORD 4 9FL004 292 WORDS 0 RECORD 5 9FL005 292 WORDS 0 RECORD 6 9FL006 292 WORDS 0 RECORD 7 9FL007 292 WORDS 0 RECORD 8 9FL008 292 WORDS 0 RECORD 9 9FL009 292 WORDS 0 RECORD 10 9FL010 292 WORDS 0 RECORD 11 9FL011 292 WORDS 0 RECORD 12 9FL012 292 WORDS 0 RECORD 13 9FL013 292 WORDS 0 RECORD 14 9FL014 292 WORDS 0 RECORD 15 9FL015 292 WORDS 0 RECORD 16 9FL016 292 WORDS 0 RECORD 17 9FL017 292 WORDS 1IBSYS EDITOR 729/1301/7340/7320 12/15/63 PAGE 10 0 RECORD 18 9FL018 292 WORDS 0 RECORD 19 9FL019 292 WORDS 0 RECORD 20 9FL020 292 WORDS 0 RECORD 21 9FL021 292 WORDS 0 RECORD 22 9FL022 292 WORDS 0 RECORD 23 9FL023 292 WORDS 0 RECORD 24 9FL024 292 WORDS 0 RECORD 25 9FL025 292 WORDS 0 RECORD 26 9FL026 292 WORDS 0 RECORD 27 9FL027 292 WORDS 0 RECORD 28 9FL028 292 WORDS 0 RECORD 29 9FL029 292 WORDS 0 RECORD 30 9FL030 292 WORDS 0 RECORD 31 9FLEND 5 WORDS 0 ......FILE MARK...... 0 FILE 13 0 TAPE *REPLACE 9D0000 0 RECORD 1 9D0000 4630 WORDS 0 ......FILE MARK...... 0 FILE 14 0 TAPE *REPLACE 9LEDIT 0 RECORD 1 9LEDIT 371 WORDS 0 ......FILE MARK...... 0 FILE 15 0 RECORD 1 IOCS 339 WORDS 0 ......FILE MARK...... 0 FILE 16 1IBSYS EDITOR 729/1301/7340/7320 12/15/63 PAGE 11 0 RECORD 1 POST 38 WORDS 0 RECORD 2 PREP 8460 WORDS 0 RECORD 3 IOBB 28 WORDS 0 RECORD 4 IOBM 61 WORDS 0 RECORD 5 NOBS 51 WORDS 0 ......FILE MARK...... 0 FILE 17 0 RECORD 1 RANDOM 1758 WORDS 0 ......FILE MARK...... 0 FILE 18 0 RECORD 1 SORT 818 WORDS 0 ......FILE MARK...... 0 FILE 19 0 RECORD 1 HYSTAR 294 WORDS 0 RECORD 2 IOPEN 1566 WORDS 0 RECORD 3 LABEL 558 WORDS 0 RECORD 4 BTD 126 WORDS 0 RECORD 5 CALC 2478 WORDS 0 RECORD 6 EP001 5742 WORDS 0 RECORD 7 RB01 246 WORDS 0 RECORD 8 RELEAS 150 WORDS 0 RECORD 9 SK001 534 WORDS 0 RECORD 10 VXS 1110 WORDS 0 RECORD 11 MRGIO 1086 WORDS 0 RECORD 12 BUFRD 654 WORDS 0 RECORD 13 XTRACT 414 WORDS 0 RECORD 14 FXS 1158 WORDS 1IBSYS EDITOR 729/1301/7340/7320 12/15/63 PAGE 12 0 RECORD 15 GET 1062 WORDS 0 RECORD 16 PUT 534 WORDS 0 RECORD 17 READ 966 WORDS 0 RECORD 18 WRITE 558 WORDS 0 RECORD 19 WTFIX 102 WORDS 0 RECORD 20 DEBLK 414 WORDS 0 RECORD 21 FIMRG 2022 WORDS 0 RECORD 22 MERGE 2166 WORDS 0 RECORD 23 POSTP 462 WORDS 0 RECORD 24 CKPT 174 WORDS 0 RECORD 25 DELETE 126 WORDS 0 RECORD 26 HYFIMR 2310 WORDS 0 RECORD 27 MRGHYO 1350 WORDS 0 RECORD 28 HYMERG 2478 WORDS 0 RECORD 29 HYOPEN 1878 WORDS 0 RECORD 30 HYGET 1182 WORDS 0 ......FILE MARK...... 0 FILE 20 0 RECORD 1 DK90UT 929 WORDS 0 RECORD 2 DK90FA 1514 WORDS 0 RECORD 3 DK90D 1006 WORDS 0 RECORD 4 DK90C 624 WORDS 0 RECORD 5 DK90R 678 WORDS 0 RECORD 6 DK90L 1065 WORDS 0 RECORD 7 HT90D 2156 WORDS 0 ......FILE MARK...... 0 FILE 21 1IBSYS EDITOR 729/1301/7340/7320 12/15/63 PAGE 13 0 RECORD 1 RESTAR 1026 WORDS 0 ......FILE MARK...... 0 FILE 22 0 RECORD 1 UPDATE 3374 WORDS 0 ......FILE MARK...... 0 FILE 23 0 RECORD 1 EDITOR 5492 WORDS 0 ......FILE MARK...... 0 FILE 24 0 RECORD 1 *EOT 5 WORDS 0 ......FILE MARK...... 0 SYSTEM NAME TABLE CONTENTS 0 PHYS. FILES INDEX FIRST FILE 0 IBJOB 4 1 2 0 IBLDRM 3 1 6 0 IBSFAP 1 1 9 0 FORTRA 5 1 10 0 IOCS 3 1 15 0 SORT 2 1 18 0 DK90UT 1 1 20 0 RESTAR 1 1 21 0 UPDATE 1 1 22 0 EDITOR 1 1 23 0 IBSYS SYSTEMS EDIT COMPLETED. $* FORTRAN II REBUILT $STOP | 1 PERIPHERAL UNIT POSITIONS AT END OF JOBS | 1 SYSPP1 IS B3 REC. 00003, FILE 00001 SYSOU1 IS B1 REC. 18563, FILE 00000 SYSIN1 IS B3 REC. 00000, FILE 00002| 1 END OF JOBS | 1