github.com/rcornwell.ctss
1
0
Fork 0
mirror of https://github.com/rcornwell/ctss.git synced 2026-01-12 00:02:48 +00:00
Code Issues Projects Releases Wiki Activity
rcornwell.ctss/original/lib1
Richard Cornwell c610c1cfe3 Added start of IBSYS build system. 
Added original listing files for reference.
2016-09-27 22:42:50 -04:00

9089 lines
446 KiB
Plaintext
Raw Permalink Blame History

1300 BCD 05/04/68 2234.5 1082 00000
1 FAP PAGE 1
*.01300 EXPONENTIATION SUBROUTINE FLOATING TO FLOATING
* AUGUST 22,1962
* MIT ASSEMBLY DATE... APRIL 27, 1961
BINARY CARD NO. 13000000
00007 ENTRY .01300
TRANSFER VECTOR
BINARY CARD NO. 13000001
00000 625051636060 SQRT
00001 434627606060 LOG
00002 256747606060 EXP
00003 255151465160 ERROR
00004 432464444760 LDUMP
LINKAGE DIRECTOR
00005 000000000000
00006 330001030000
00007 0634 00 4 00042 .01300 SXA AX4,4
00010 0131 00 0 00000 XCA
00011 -0100 00 0 00014 TNZ *+3
00012 0500 00 0 00112 CLA =1.
00013 0020 00 4 00001 TRA 1,4
00014 0131 00 0 00000 XCA
00015 0100 00 4 00001 TZE 1,4
00016 -0600 00 0 00107 STQ EX
00017 0601 00 0 00110 STO BASE
00020 0120 00 0 00031 TPL HER
00021 0500 00 0 00107 CLA EX
00022 -0300 00 0 00071 UFA PWR
00023 0601 00 0 00070 STO PWX
BINARY CARD NO. 13000002
00024 0300 00 0 00071 FAD PWR
00025 0340 00 0 00107 CAS EX
TD 00026 -3 00000 0 00030 TXL TXL *+2
TD 00027 -3 00000 0 00061 TXL INTE
00030 -3 00012 0 00063 DZ10 TXL ER,0,10
00031 -0500 00 0 00026 HER CAL TXL
00032 0630 00 0 00052 BK STP SW
00033 0500 00 0 00110 CLA BASE
00034 0602 00 0 00110 SLW BASE
00035 0500 00 0 00107 CLA EX
00036 0302 00 0 00111 FSB C1
00037 -0100 00 0 00044 TNZ A1
00040 0500 00 0 00110 CLA BASE
00041 0074 00 4 00000 TSX $SQRT,4
00042 0774 00 4 00000 AX4 AXT **,4
00043 0020 00 4 00001 TRA 1,4
00044 0500 00 0 00110 A1 CLA BASE
1 FAP PAGE 2
00045 0074 00 4 00001 TSX $LOG,4
00046 0131 00 0 00000 XCA
00047 0260 00 0 00107 FMP EX
BINARY CARD NO. 13000003
00050 0074 00 4 00002 TSX $EXP,4
00051 0601 00 0 00110 STO BASE
00052 0761 00 0 00057 SW NOP OUT
00053 0500 00 0 00070 CLA PWX
00054 -0765 00 0 00001 LGR 1
00055 0500 00 0 00110 CLA BASE
00056 0763 00 0 00000 LLS 0
00057 0534 00 4 00042 OUT LXA AX4,4
00060 0020 00 4 00001 TRA 1,4
00061 -0754 00 0 00000 INTE PXD 0,0
TD 00062 -3 00000 0 00032 TXL BK
00063 0074 00 4 00003 ER TSX $ERROR,4
00064 0 00000 0 00072 PZE CM
00065 0074 00 4 00004 TSX $LDUMP,4
00066 0 00000 0 00007 PZE .01300
00067 -0 00000 0 00000 MZE MZE
00070 0 00000 0 00000 PWX PZE
00071 +233000000000 PWR OCT 233000000000
00072 012567474645 CM BCD 1EXPONENTIATION ERROR, NEGATIVE BASE, NON-INTEGRAL EXPONENT
00073 254563312163
BINARY CARD NO. 13000004
00074 314645602551
00075 514651736045
00076 252721633165
00077 256022216225
00100 736045464540
00101 314563252751
00102 214360256747
00103 464525456360
00104 -377777777777 OCT 777777777777
00105 0534 00 4 00042 E1 LXA AX4,4
00106 0020 00 4 00001 TRA 1,4
00107 EX BSS 1
00110 BASE BSS 1
BINARY CARD NO. 13000005
00111 +200400000000 C1 DEC .5
00112 END SYN *
END
LITERALS
00112 201400000000
1 FAP PAGE 1
POST PROCESSOR ASSEMBLY DATA
113 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
44 A1 37
32 BK 62
111 C1 36
72 CM 64
105 E1
63 ER 30
107 EX 16, 21, 25, 35, 47
52 SW 32
42 AX4 7, 57, 105
112 END 112
2 EXP 50
31 HER 20
1 LOG 45
67 MZE
57 OUT 52
71 PWR 22, 24
70 PWX 23, 53
26 TXL 31
110 BASE 17, 33, 34, 40, 44, 51, 55
30 DZ10
61 INTE 27
0 SQRT 41
3 ERROR 63
4 LDUMP 65
7 . 1300 0, 66
0 NO ERROR IN ABOVE ASSEMBLY.
1301 BCD 05/28/67 2247.1 671 00000
1 FAP PAGE 1
*.01301 EXPONENTIATION SUBROUTINE FLOATING TO FIXED
* AUGUST 22,1962
AC=BASE (FLOATING)
MQ=EXPONENT (INTEGER)
BINARY CARD NO. 13010000
00002 ENTRY .01301
LINKAGE DIRECTOR
BINARY CARD NO. 13010001
00000 000000000000
00001 330001030001
00002 0131 00 0 00000 .01301 XCA GET EXPONENT INTO AC
00003 -0100 00 0 00006 TNZ *+3
00004 0500 00 0 00044 CLA =1.
00005 0020 00 4 00001 TRA 1,4
00006 0131 00 0 00000 XCA GET BASE INTO AC
00007 0100 00 4 00001 TZE 1,4
00010 0601 00 0 00043 STO BASE
00011 -0600 00 0 00041 STQ EXP
00012 0131 00 0 00000 XCA
00013 0120 00 0 00017 TPL EF3
00014 0500 00 0 00044 CLA =1. IF NEGATIVE EXPONENT
00015 0241 00 0 00043 FDP BASE TAKE RECIPROCAL OF BASE.
00016 -0600 00 0 00043 STQ BASE
00017 0500 00 0 00044 EF3 CLA =1.
00020 0601 00 0 00042 STO PX
00021 0500 00 0 00041 EF1 CLA EXP
00022 0760 00 0 00001 LBT
TD 00023 -3 00000 0 00030 TXL ZERO
BINARY CARD NO. 13010002
00024 0560 00 0 00042 LDQ PX
00025 0260 00 0 00043 FMP BASE
00026 0601 00 0 00042 STO PX
00027 0500 00 0 00041 CLA EXP
00030 0771 00 0 00001 ZERO ARS 1
00031 0601 00 0 00041 STO EXP
00032 0100 00 0 00037 TZE EXIT
00033 0560 00 0 00043 LDQ BASE
00034 0260 00 0 00043 FMP BASE
00035 0601 00 0 00043 STO BASE
TD 00036 -3 00000 0 00021 TXL EF1
00037 0500 00 0 00042 EXIT CLA PX
00040 0020 00 4 00001 TRA 1,4
00041 EXP BSS 1
00042 PX BSS 1
00043 BASE BSS 1
00044 END SYN *
END
1 FAP PAGE 2
LITERALS
BINARY CARD NO. 13010003
00044 201400000000
1 FAP PAGE 1
POST PROCESSOR ASSEMBLY DATA
45 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
42 PX 20, 24, 26, 37
21 EF1 36
17 EF3 13
44 END 44
41 EXP 11, 21, 27, 31
43 BASE 10, 15, 16, 25, 33, 34, 35
37 EXIT 32
30 ZERO 23
2 . 1301 0
0 NO ERROR IN ABOVE ASSEMBLY.
1311 BCD 05/28/67 2247.1 666 00000
1 FAP PAGE 1
*.01311 EXPONENTIATION SUBROUTINE FIXED TO FIXED
* AUGUST 22,1962
AC=BASE
MQ=POWER
BINARY CARD NO. 13110000
00002 ENTRY .01311
LINKAGE DIRECTOR
BINARY CARD NO. 13110001
00000 000000000000
00001 330001030101
00002 0131 00 0 00000 .01311 XCA
00003 -0100 00 0 00006 TNZ *+3
00004 0500 00 0 00043 CLA AZ1
00005 0020 00 4 00001 TRA 1,4
00006 0131 00 0 00000 XCA
00007 0100 00 4 00001 TZE 1,4 RETURN 0 FOR 0 BASE
00010 0601 00 0 00046 STO BASE
00011 0131 00 0 00000 XCA
00012 -0100 00 0 00015 TNZ *+3
00013 0500 00 0 00043 CLA AZ1 RETURN 1 FOR
00014 0020 00 4 00001 TRA 1,4 ZERO EXPONENT
00015 0120 00 0 00020 TPL *+3
00016 -0754 00 0 00000 PXD 0,0
00017 0020 00 4 00001 TRA 1,4 NEGATIVE EXPONENT
00020 0601 00 0 00044 STO EXP
00021 0500 00 0 00043 CLA AZ1
00022 0601 00 0 00045 STO PX
00023 0500 00 0 00044 EF1 CLA EXP
BINARY CARD NO. 13110002
00024 0760 00 0 00001 LBT
TD 00025 -3 00000 0 00032 TXL ZERO
00026 0560 00 0 00045 LDQ PX
00027 0200 00 0 00046 MPY BASE
00030 -0600 00 0 00045 STQ PX
00031 0500 00 0 00044 CLA EXP
00032 0771 00 0 00001 ZERO ARS 1
00033 0601 00 0 00044 STO EXP
00034 0100 00 0 00041 TZE EXIT
00035 0560 00 0 00046 LDQ BASE
00036 0200 00 0 00046 MPY BASE
00037 -0600 00 0 00046 STQ BASE
TD 00040 -3 00000 0 00023 TXL EF1
00041 0500 00 0 00045 EXIT CLA PX
00042 0020 00 4 00001 TRA 1,4
00043 0 00000 0 00001 AZ1 PZE 1
00044 EXP BSS 1
00045 PX BSS 1
1 FAP PAGE 2
00046 BASE BSS 1
00047 END SYN *
END
1 FAP PAGE 1
POST PROCESSOR ASSEMBLY DATA
47 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
45 PX 22, 26, 30, 41
43 AZ1 4, 13, 21
23 EF1 40
47 END 47
44 EXP 20, 23, 31, 33
46 BASE 10, 27, 35, 36, 37
41 EXIT 34
32 ZERO 25
2 . 1311 0
0 NO ERROR IN ABOVE ASSEMBLY.
3310 BCD 06/25/69 2033.1 491 00000
1 FAP PAGE 1
*.03311---2-DIMENSIONAL MATRIX SUBSCRIPTION ROUTINE
* AUGUST 22,1962
FOR 2-D SUBSCRIPTS,A(I,J)
CALLING SEQUENCE..
CLA I
LDQ J
TSX (03311,4
TXH A,0,D
A IS THE BASE ADDRESS
BINARY CARD NO. 33100000
00002 ENTRY .03310
00002 ENTRY .03311
LINKAGE DIRECTOR
BINARY CARD NO. 33100001
00000 000000000000
00001 330003030100
00002 -0600 00 0 00016 .03311 STQ J
00002 .03310 SYN .03311
00003 0402 00 0 00015 SUB AZ1 I-1
00004 0131 00 0 00000 XCA
00005 -0500 00 4 00001 CAL 1,4 GET DIM. VECTOR ADDRESS
00006 -0737 00 1 00000 PDC 0,1 X1 = -D
00007 0204 17 1 77776 VLM -2,1,15 (I-1)*N
00010 0763 00 0 00017 LLS 15
00011 0400 00 1 77777 ADD -1,1 (I-1)*N+B
00012 0402 00 0 00015 SUB AZ1 (I-1)*N+B-1
00013 0400 00 0 00016 ADD J (I-1)*N+B+J-1
00014 0020 00 4 00002 TRA 2,4 RETURN
00015 0 00000 0 00001 AZ1 PZE 1
00016 J BSS 1
00017 END SYN *
END
1 FAP PAGE 1
POST PROCESSOR ASSEMBLY DATA
17 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
16 J 2, 13
15 AZ1 3, 12
17 END 17
2 . 3310 0, 3
2 . 3311 0, 3
0 NO ERROR IN ABOVE ASSEMBLY.
ACOR BCD 06/25/69 2033.1 2329 00000
1 XLIBE ROUTINE TO RETURN THE ADDRESS OF A GIVEN ENTRY IN CORE-A 06/21/69 1838.8 PAGE 1
JIM BIXBY 8/03/67
THIS ROUTINE, ON THE FIRST CALL, READS THE
LOAD FILE FROM M1416 CMFL02 INTO CORE, COMPRESSES
IT, AND SETS UP FOR OTHER CALLS. THEN IT PERFORMS THE
REQUESTED LOOKUP. ON SUBSEQUENT CALLS, IT JUST PERFORMS
THE LOOUP ON THE COMPACTED TABLE
00011 ENTRY ACORE
EXTERN TSSFIL,USRFIL,FSTATE,GETMEM,SETMEM
EXTERN OPEN,RDWAIT,CLOSE,WRFLX
TRANSFER VECTOR
00000 636262263143 TSSFIL
00001 646251263143 USRFIL
00002 266263216325 FSTATE
00003 272563442544 GETMEM
00004 622563442544 SETMEM
00005 464725456060 OPEN
00006 512466213163 RDWAIT
00007 234346622560 CLOSE
00010 665126436760 WRFLX
00011 0634 00 4 00160 ACORE SXA XR4,4 SAME 'EM
00012 0634 00 1 00161 SXA XR1,1 ..
THE NEXT INSTRUCTION IS CHANGED TO A TRA MAIN
AFTER THE INITIALIZATION TAKES PLACE
00013 0020 00 0 00014 GATE TRA *+1
00014 0760 00 0 00016 LMTM
FROM HERE TO MAIN, WE LOAD THE FILE AND COMPRESS IT
00015 0634 00 6 00125 SXA XR6,6 SAVE MORE REGISTERS
00016 0634 00 7 00126 SXA XR7,7
00017 0634 00 2 00124 SXA XR2,2
00020 0634 00 4 00123 SXA SXR4,4
00021 0074 00 4 00000 TSX TSSFIL,4 GO TO THE SYSTEM FILES
00022 0074 00 4 00002 TSX FSTATE,4 AND GET THE SIZE OF THE LOAD FILE
00023 3 00000 0 00167 PTH LOAD
00024 3 00000 0 00170 PTH FILE
00025 3 00001 0 00163 PTH SIZE,,1
00026 0534 00 4 00163 LXA SIZE,4 PUT THE SIZE INTO THE READ COMM.
00027 -0634 00 4 00052 SXD BUFF,4 ..
00030 0074 00 4 00003 TSX GETMEM,4 GET CURRENT MEM BOUNT
00031 0621 00 0 00164 STA OLDTOP AND STORE AROUND
00032 0621 00 0 00101 STA STRLP
00033 0621 00 0 00102 STA STRLP+1
00034 0621 00 0 00133 STA CMPARE
00035 0621 00 0 00154 STA GETRES
00036 0621 00 0 00064 STA CONTRL
00037 0621 00 0 00052 STA BUFF
00040 0361 00 0 00163 ACL SIZE EXTEND BY NEEDED SIZE
1 XLIBE ROUTINE TO RETURN THE ADDRESS OF A GIVEN ENTRY IN CORE-A 06/21/69 1838.8 PAGE 2
00041 0074 00 4 00004 TSX SETMEM,4 ..
00042 0074 00 4 00005 TSX OPEN,4 OPEN THE LOAD FILE
00043 3 00000 0 00171 PTH R
00044 3 00000 0 00167 PTH LOAD
00045 3 00000 0 00170 PTH FILE
00046 0074 00 4 00006 TSX RDWAIT,4 READ IT INTO CORE
00047 3 00000 0 00167 PTH LOAD
00050 3 00000 0 00170 PTH FILE
00051 3 00000 0 00175 PTH =0
00052 3 00000 0 00000 BUFF PTH **,,**
00053 3 00000 0 00055 PTH *+2 ON END OF FILE
00054 3 00000 0 00163 PTH SIZE WORDS TRANSMITTED
00055 0074 00 4 00007 TSX CLOSE,4 CLOSE THE FILE
00056 3 00000 0 00167 PTH LOAD
00057 3 00000 0 00170 PTH FILE
00060 0534 00 2 00163 LXA SIZE,2 GET WORDS IN FILE
00061 -0636 00 2 00114 SCD LOOPCK,2 FOR CHECK ON COMPRESS LOOP
00062 -0774 00 1 00012 AXC 10,1 SKIP THE FIRST TEN WORDS
00063 0774 00 2 00000 AXT 0,2 STORE POINTER
00064 -0500 00 1 00000 CONTRL CAL **,1 GET THE CONTROL WORD
00065 0100 00 0 00115 TZE DONE IF THIS WORD IS ZERO,WE'VE FINISHED
00066 0734 00 6 00000 PAX ,6 NUMBER OF DATA WORDS
00067 -0734 00 7 00000 PDX ,7 NUMBER OF WORDS IN THIS BLOCK
00070 -0636 00 6 00071 SCD *+1,6
00071 1 00000 7 00072 TXI *+1,7,** X7=BLOCK SIZE-DATA AREA SIZE
00072 1 77777 7 00073 TXI *+1,7,-1 FUDGE BACK ONE
00073 -0636 00 7 00113 SCD SKIP,7 TO GET NUMBER OF JUNK WORDS
00074 1 77776 1 00075 TXI *+1,1,-2 MOVE TO PERTINENT AREA
00075 -0500 60 0 00101 CAL* STRLP PICK UP PROGRAM ORIGIN WORD
00076 0622 00 0 00166 STD ORIGIN SAVE IT ***** GAZABE *****
00077 1 77777 1 00100 TXI *+1,1,-1 NOW SKIP THIS WORD TOO.
00100 1 77776 6 00101 TXI *+1,6,-2 AND SKIP FIRST TWO DATA WORDS
00101 -0500 00 1 00000 STRLP CAL **,1 GET DATA WORD
00102 0602 00 2 00000 SLW **,2 STORE IN COMPRESSED TABLE
00103 1 77777 1 00104 TXI *+1,1,-1 NEXT WORD IS ENTRY POINT
00104 1 77777 2 00105 TXI *+1,2,-1 ..
00105 -0500 60 0 00101 CAL* STRLP PICK UP ENTRY (IN ADDRESS)
00106 -0501 00 0 00166 ORA ORIGIN OR IN ORIGIN (IN DECREMENT)
00107 0602 60 0 00102 SLW* STRLP+1 SAVE THAT IN TABLE TOO
00110 1 77777 1 00111 TXI *+1,1,-1 MOVE READ POINTER
00111 1 77777 2 00112 TXI *+1,2,-1 AND WRITE POINTER
00112 2 00002 6 00101 TIX STRLP,6,2 DO ALL DATA WORDS THIS BLOCK BY 2'S
00113 1 00000 1 00114 SKIP TXI *+1,1,** SKIP THE NEXT JUNK WORDS
00114 3 00000 1 00064 LOOPCK TXH CONTRL,1,** AND DO WHOLE FILE
00115 0636 00 2 00163 DONE SCA SIZE,2 GET COMPACTED SIZE OF FILE
00116 -0634 00 2 00137 SXD LOPCHK,2 STORE LOOKUP LOOP LIMIT
00117 0500 00 0 00164 CLA OLDTOP GET OLD MEM BOUND
00120 0400 00 0 00163 ADD SIZE ADD NEW TABLE SIZE
00121 0074 00 4 00004 TSX SETMEM,4 AND SET NEW MEM BOUND
00122 0074 00 4 00001 TSX USRFIL,4 GO HOME
00123 0774 00 4 00000 SXR4 AXT **,4 RESTORE SOME INDEX REGISTERS
00124 0774 00 2 00000 XR2 AXT **,2
00125 0774 00 6 00000 XR6 AXT **,6
00126 0774 00 7 00000 XR7 AXT **,7
00127 -0625 00 0 00013 STL GATE AND SHUT THE GATE
1 XLIBE ROUTINE TO RETURN THE ADDRESS OF A GIVEN ENTRY IN CORE-A 06/21/69 1838.8 PAGE 3
THE NEXT SECTION DOES THE ACTUAL LOOKUP AND WAS
INITIALIZED ON THE FIRST CALL TO ACORE BY THE ABOVE
00130 -0500 60 4 00001 MAIN CAL* 1,4 GET THE DESIRED BCD ENTRY
00131 0602 00 0 00172 SLW ENTRY WE MAY NEED THIS
00132 0774 00 1 00000 AXT 0,1 START READING AT TOP OF TABLE
00133 -0340 00 1 00000 CMPARE LAS **,1 CHECK AGAINST NEXT TABLE ENTRY
00134 0020 00 0 00136 TRA DOWN NOPE
00135 0020 00 0 00153 TRA OUT YUP
00136 1 77776 1 00137 DOWN TXI *+1,1,-2 MOVE TO NEXT NEXT TABLE PAIR
00137 3 00000 1 00133 LOPCHK TXH CMPARE,1,** DO WHOLE TABLE
HERE IF ENTRY NOT FOUND
00140 0534 00 4 00160 LXA XR4,4
00141 -0500 00 4 00002 CAL 2,4
00142 -0320 00 0 00177 ANA =O777777700000 TEST FOR THE OPTIONAL ERROR RETURN
00143 0322 00 0 00176 ERA =O300000000000 WHICH IS A PTH WITH NO TAG OR DECREMENT
00144 -0100 00 0 00147 TNZ *+3 NO ERROR RETURN, PRINT MESSAGE
00145 0534 00 1 00161 LXA XR1,1
00146 0021 60 4 00002 XIT* 2,4 AND GO TO THE ERROR RETURN
00147 0074 00 4 00010 TSX WRFLX,4 WRITE THE NOT FOUND MESSAGE
00150 0 00003 0 00172 PZE ENTRY,,3
00151 0600 00 0 00165 STZ RESULT PREPARE TO RETURN ZEROS
00152 0020 00 0 00157 TRA RETURN
00153 1 77777 1 00154 OUT TXI *+1,1,-1 MOVE TO GET LOCATION
00154 0560 00 1 00000 GETRES LDQ **,1
00155 -0773 00 0 00022 RQL 18 PUT IT IN PROPER FORMAT
00156 -0600 00 0 00165 STQ RESULT AND STORE
00157 -0500 00 0 00165 RETURN CAL RESULT GET FINAL RESULT
00160 0774 00 4 00000 XR4 AXT **,4 RESTORE THE FINAL XRS
00161 0774 00 1 00000 XR1 AXT **,1
00162 0020 00 4 00002 TRA 2,4 AND RETURN
* * * * * * * * * * * * *
* STORAGE AND CONSTANTS *
* * * * * * * * * * * * *
00163 SIZE BSS 1
00164 OLDTOP BSS 1
00165 RESULT BSS 1
00166 ORIGIN BSS 1 HAVE TO PUT IT SOMEWHERE
* * BCI' * *
00167 607443462124 LOAD BCI 1, (LOAD
00170 602631432534 FILE BCI 1, FILE)
00171 516060606060 R BCI 1,R
00172 000000000000 ENTRY BCI 3,000000 NOT FOUND.
00173 604546636026
00174 466445243360
1 XLIBE ROUTINE TO RETURN THE ADDRESS OF A GIVEN ENTRY IN CORE-A 06/21/69 1838.8 PAGE 4
END
LITERALS
00175 000000000000
00176 300000000000
00177 777777700000
1 XLIBE ROUTINE TO RETURN THE ADDRESS OF A GIVEN ENTRY IN CORE-A 06/21/69 1838.8 PAGE 1
POST PROCESSOR ASSEMBLY DATA
200 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
171 R 43
153 OUT 135
161 XR1 12, 145
124 XR2 17
160 XR4 11, 140
125 XR6 15
126 XR7 16
52 BUFF 27, 37
115 DONE 65
136 DOWN 134
170 FILE 24, 45, 50, 57
13 GATE 127
167 LOAD 23, 44, 47, 56
130 MAIN
5 OPEN 42
163 SIZE 25, 26, 40, 54, 60, 115, 120
113 SKIP 73
123 SXR4 20
11 ACORE 0
7 CLOSE 55
172 ENTRY 131, 150
101 STRLP 32, 33, 75, 105, 107, 112
10 WRFLX 147
133 CMPARE 34, 137
64 CONTRL 36, 114
2 FSTATE 22
3 GETMEM 30
154 GETRES 35
114 LOOPCK 61
137 LOPCHK 116
164 OLDTOP 31, 117
166 ORIGIN 76, 106
6 RDWAIT 46
165 RESULT 151, 156, 157
157 RETURN 152
4 SETMEM 41, 121
0 TSSFIL 21
1 USRFIL 122
0 NO ERROR IN ABOVE ASSEMBLY.
ACOS BCD 10/12/70 1341.1 2566 00000
1 FAP PAGE 1
*ACSN 709 FORTRAN LIBRARY / FLOATING POINT ARCSINE, ARCCOSINE ROUTINE
* THIS ROUTINE HAS BEEN REVISED TO ACCOMODATE MAD / MAY 1960
* AUGUST 22,1962
* THE CALLING SEQUENCE IS
* CALL ASIN (ACOS) TSX $ASIN,4 ($ACOS)
* N=ARG IN THE AC TXH N
* TXH ERROR
* FOR FORTRAN FOR MAD
* ERROR RETURNS
* IF N IS GREATER THAN 1.0, GOES TO ERROR
* THE MAD ERROR RETURN IS OPTIONAL. IF THE PROGRAMMER DOES NOT
* SPECIFY HIS OWN, THE FORTRAN ERROR ROUTINES WILL BE USED.
BINARY CARD NO. ACOS0000
00005 ENTRY ACOS
00026 ENTRY ASIN
TRANSFER VECTOR
BINARY CARD NO. ACOS0001
00000 255151465160 ERROR
00001 432464444760 LDUMP
LINKAGE DIRECTOR
00002 000000000000
00003 212346626060
00004 0 00000 0 00002 PZE ACOS-3
00005 0634 00 4 00017 ACOS SXA I4,4
00006 -0634 00 4 00002 SXD ACOS-3,4 NEEDED FOR ERROR ROUTINE
00007 0601 00 0 77776 STO COMMON+2 MODE TEST--MAD OR FORTRAN
00010 0500 00 0 00246 CLA TXH .
00011 0560 00 4 00001 LDQ 1,4 .
00012 0040 00 0 00015 TLQ *+3 . FORTRAN
00013 0500 60 4 00001 CLA* 1,4 . GET MAD ARGUMENT
00014 0601 00 0 77776 STO COMMON+2 .
00015 0500 00 0 00004 CLA ACOS-1
00016 0074 00 4 00036 TSX ASIN+8,4
00017 0774 00 4 00000 I4 AXT **,4
00020 0760 00 0 00002 CHS
00021 0300 00 0 00237 FAD PI
00022 0020 00 4 00001 TRA 1,4
00023 0 00000 0 00024 PZE INDX
BINARY CARD NO. ACOS0002
00024 0 00000 0 00000 INDX PZE 0,0,**
00025 216231456060 BCI 1,ASIN
00026 -0634 00 4 00024 ASIN SXD INDX,4 NEEDED FOR ERROR ROUTINE
00027 0601 00 0 77776 STO COMMON+2 MODE TEST--MAD OR FORTRAN
1 FAP PAGE 2
00030 0500 00 0 00246 CLA TXH .
00031 0560 00 4 00001 LDQ 1,4 .
00032 0040 00 0 00035 TLQ *+3 . FORTRAN
00033 0500 60 4 00001 CLA* 1,4 . GET MAD ARGUMENT
00034 0601 00 0 77776 STO COMMON+2 .
00035 0500 00 0 00023 CLA ASIN-3
00036 0621 00 0 00200 STA XL1+3
00037 0621 00 0 00211 STA REPT
00040 0621 00 0 00213 STA OUT
00041 0500 00 0 77776 CLA COMMON+2
00042 0760 00 0 00003 SSP
00043 0560 00 0 00225 LDQ TEST
00044 0040 00 0 00051 TLQ ELLEN
00045 0560 00 0 00226 LDQ SMTST
00046 0040 00 0 00063 TLQ NORM
00047 0500 00 0 77776 CLA COMMON+2 RETURN WITH ARGUMENT FOR X SMALLER
BINARY CARD NO. ACOS0003
00050 0020 00 4 00001 TRA 1,4 THAN 2 TO THE -9
00051 0560 00 0 00234 ELLEN LDQ SN3P8
00052 -0634 00 4 00122 SXD SAVE,4
00053 0774 00 4 00000 AXT 0,4
00054 0040 00 0 00114 TLQ JANE
00055 0560 00 0 77776 LDQ COMMON+2
00056 -0600 00 0 77777 STQ COMMON+3
00057 0260 00 0 77776 FMP COMMON+2
00060 0361 00 0 00235 ACL X2
00061 0302 00 0 00236 FSB FONE
00062 0601 00 0 77776 STO COMMON+2
00063 0560 00 0 77776 NORM LDQ COMMON+2
00064 0260 00 0 77776 FMP COMMON+2
00065 0302 00 0 00227 FSB A
00066 0601 00 0 77774 STO COMMON
00067 0500 00 0 00230 CLA B
00070 0241 00 0 77774 FDP COMMON
00071 0131 00 0 00000 XCA
00072 0302 00 0 77774 FSB COMMON
00073 0300 00 0 00231 FAD C
BINARY CARD NO. ACOS0004
00074 0601 00 0 77774 STO COMMON
00075 0500 00 0 00232 CLA D
00076 0241 00 0 77774 FDP COMMON
00077 0131 00 0 00000 XCA
00100 0300 00 0 00233 FAD E
00101 0131 00 0 00000 XCA
00102 0260 00 0 77776 FMP COMMON+2
00103 -3 00000 4 00105 TXL TWO,4,0
00104 0020 00 4 00001 TRA 1,4
00105 0760 00 0 00003 TWO SSP
00106 0300 00 0 00237 FAD PI
00107 0402 00 0 00235 SUB X2 DIVIDE BY TWO
00110 0560 00 0 77777 LDQ COMMON+3
00111 0763 00 0 00000 LLS 0
00112 -0534 00 4 00122 FINI LXD SAVE,4
00113 0020 00 4 00001 TRA 1,4
1 FAP PAGE 3
00114 0302 00 0 00236 JANE FSB FONE
00115 0120 00 0 00166 TPL XLRAR
00116 0760 00 0 00003 SSP
00117 0765 00 0 00033 LRS 27
BINARY CARD NO. ACOS0005
00120 0400 00 0 00223 ADD CHPRM S+256+1, X-1 OVER 2
00121 0760 00 0 00001 LBT
00122 -3 00000 0 00164 SAVE TXL T1,,**
00123 0771 00 0 00001 ARS 1
00124 0767 00 0 00033 T2 ALS 27
00125 0601 00 0 77774 STO COMMON
00126 -0600 00 0 77775 STQ COMMON+1 X, B0
00127 0560 00 4 00243 LDQ AS,4
00130 0204 06 0 77775 VLM COMMON+1,0,6
00131 0400 00 4 00245 ADD BS,4 AX + B, B 0
00132 0601 00 0 77777 STO COMMON+3
00133 0500 00 0 77775 CLA COMMON+1 X
00134 0225 16 0 77777 VDP COMMON+3,0,14
00135 0763 00 0 00025 LLS 21
00136 0131 00 0 00000 XCA
00137 0400 00 0 77777 ADD COMMON+3
00140 0765 00 0 00001 LRS 1
00141 -0501 00 0 00224 ORA MASK
00142 0601 00 0 77777 STO COMMON+3
00143 0500 00 0 77775 CLA COMMON+1
BINARY CARD NO. ACOS0006
00144 0221 00 0 77777 DVP COMMON+3
00145 0131 00 0 00000 XCA
00146 0400 00 0 77777 ADD COMMON+3
00147 0765 00 0 00011 LRS 9
00150 0400 00 0 77774 ADD COMMON
00151 0601 00 0 77775 STO COMMON+1 SORT OF X-1 OVER 2
00152 0560 00 0 77776 LDQ COMMON+2 X
00153 0260 00 0 00241 FMP 2B
00154 0760 00 0 00003 SSP
00155 0300 00 0 00240 FAD 2A
00156 0131 00 0 00000 XCA
00157 0260 00 0 77775 FMP COMMON+1 NEG.
00160 0300 00 0 00237 FAD PI
00161 0560 00 0 77776 LDQ COMMON+2
00162 0763 00 0 00000 LLS 0
00163 0020 00 0 00112 TRA FINI
00164 0765 00 0 00001 T1 LRS 1 IF ODD SHIFT ONE BIT
00165 1 00001 4 00124 TXI T2,4,1
00166 0500 00 0 00213 XLRAR CLA OUT ERROR EXIT--TEST FOR MAD ERROR RETURN
00167 0621 00 0 00170 STA *+1 .
BINARY CARD NO. ACOS0007
00170 -0534 00 4 00000 LXD **,4 .
00171 0500 00 0 00246 CLA TXH .
00172 0560 00 4 00002 LDQ 2,4 .
00173 0040 00 0 00175 TLQ *+2 . NONE SPECIFIED, USE FORTRAN
00174 0020 60 4 00002 TRA* 2,4 .
00175 0074 00 4 00000 XL1 TSX $ERROR,4 FORTRAN ERROR ROUTINE
1 FAP PAGE 4
00176 0 00000 0 00215 PZE ARLRG
00177 1 00000 0 00201 TXI *+2,,0
00200 0 00000 0 00000 PZE **,,0
00201 0500 00 0 00200 CLA *-1
00202 0400 00 0 00247 ADD =1
00203 0621 00 0 00206 STA *+3
00204 0500 00 0 77776 CLA COMMON+2 ARGUMENT IN AC
00205 0074 00 4 00001 TSX $LDUMP,4
00206 0 00000 0 00000 PZE ** BCI NAME OF ROUTINE
00207 0020 00 0 00211 TRA REPT
00210 0020 00 0 00213 TRA OUT
00211 -0534 00 4 00000 REPT LXD **,4
00212 0020 00 4 00000 TRA 0,4 REPEAT MATH ROUTINE
00213 -0534 00 4 00000 OUT LXD **,4
BINARY CARD NO. ACOS0008
00214 0020 00 4 00001 TRA 1,4 LEAVE MATH ROUTINE
00215 602151276444 ARLRG BCI 5, ARGUMENT GREATER THAN 1.0
00216 254563602751
00217 252163255160
00220 633021456001
00221 330060606060
00222 -377777777777 OCT 777777777777
* CONSTANTS
00223 +000000000200 CHPRM DEC 128
00224 +000007777777 MASK OCT 000007777777
00225 +200552023631 TEST DEC .70710678118
00226 +166400000000 SMTST OCT 166400000000
00227 +201552325267 A DEC 1.4156902913
00230 +177524102606 B DEC .3321585891
00231 +202422111244 C DEC 2.1417437970
00232 +201624034437 D DEC 1.578342904
00233 +200414631020 E DEC .5249978317
00234 +200731015363 SN3P8 DEC .92387953
00235 +001000000000 X2 OCT 001000000000
00236 +201400000001 FONE OCT 201400000001
00237 +201622077325 PI DEC 1.5707963268
BINARY CARD NO. ACOS0009
00240 -202425634611 2A DEC -2.170360842
00241 -176535032322 2B DEC -.1704353432
00242 +000000000064 DEC .8125B29
00243 +000000000045 AS DEC .578125B29
00244 +115377746653 DEC .302734B0
00245 +154000000000 BS DEC .421875B0
ATD 00246 3 00000 0 00000 TXH TXH CONSTANT FOR MAD-FORTRAN TEST
* ERASABLES
1 FAP PAGE 5
77774 COMMON -206+3
77774 COMMON COMMON 1
END
LITERALS
00247 000000000001
1 FAP PAGE 1
POST PROCESSOR ASSEMBLY DATA
77773 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
250 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
227 A 65
230 B 67
231 C 73
232 D 75
233 E 100
240 2A 155
241 2B 153
243 AS 127
245 BS 131
17 I4 5
237 PI 21, 106, 160
164 T1 122
124 T2 165
235 X2 60, 107
213 OUT 40, 166, 210
105 TWO 103
246 TXH 10, 30, 171
175 XL1 36
5 ACOS 0, 4, 6, 15
26 ASIN 0, 16, 35
112 FINI 163
236 FONE 61, 114
24 INDX 23, 26
114 JANE 54
224 MASK 141
63 NORM 46
211 REPT 37, 207
122 SAVE 52, 112
225 TEST 43
215 ARLRG 176
223 CHPRM 120
51 ELLEN 44
0 ERROR 175
1 LDUMP 205
226 SMTST 45
234 SN3P8 51
166 XLRAR 115
77774 COMMON 7, 14, 27, 34, 41, 47, 55, 56, 57, 62, 63, 64, 66, 70, 72, 74, 76
102, 110, 125, 126, 130, 132, 133, 134, 137, 142, 143, 144, 146, 150, 151, 152, 157
161, 204, 247
0 NO ERROR IN ABOVE ASSEMBLY.
ADJ0 BCD 10/12/70 1341.1 599 00000
1 M1416 3845 PETER R. BOS .... ADJ, LJ, RJ .. LEFT/RIGHT JUSTIFY .... 03/04/70 1119.7 PAGE 1
PCC ON
00002 ENTRY ADJ ARBITRARY JUSTIFICATION
00017 ENTRY LJ LEFT JUSTIFY WITHIN BLANKS
00025 ENTRY RJ RIGHT JUSTIFY WITHIN BLANKS
LBL ADJ00000
PCC OFF
LINKAGE DIRECTOR
00000 000000000000
00001 212441606060
00002 0322 60 4 00001 ADJ ERA* 1,4 MAKE LEADING FIELD ZERO
00003 0560 00 0 00033 LDQ =0 CLEAR MQ
00004 -0520 60 4 00002 ADJ0 NZT* 2,4 LEFT OR RIGHT.Q
00005 0020 00 0 00012 TRA ADJ1 LEFT, SKIP
00006 -0130 00 0 00000 XCL ..
00007 -0763 00 0 00006 LGL 6 SHIFT ONE CHAR
00010 -0130 00 0 00000 XCL ..
00011 0020 00 0 00013 TRA *+2 SKIP
00012 -0765 00 0 00006 ADJ1 LGR 6 SHIFT ONE CHAR
00013 -0100 00 0 00004 TNZ ADJ0 REPEAT IF NOT DONE
00014 -0130 00 0 00000 XCL RESULT TO LAC
00015 0322 60 4 00001 ERA* 1,4 RESTORE PROER CODES
00016 0020 00 4 00003 TRA 3,4 RETURN
00017 0634 00 4 00023 LJ SXA LJX4,4 LEFT ADJUST, SAVE LINKAGE
00020 0074 00 4 00002 TSX ADJ,4 CALL ADJUSTER
00021 3 00000 0 00034 PAR =H ..
00022 3 00000 0 00033 PAR =0 ..
00023 0774 00 4 00000 LJX4 AXT -,4 RESTORE LINKAGE
00024 0020 00 4 00001 TRA 1,4 RETURN
00025 0634 00 4 00031 RJ SXA RJX4,4 RIGHT ADJUST, SAVE LINKAGE
00026 0074 00 4 00002 TSX ADJ,4 CALL ADJUSTER
00027 3 00000 0 00034 PAR =H ..
00030 3 00000 0 00030 PAR * ..
00031 0774 00 4 00000 RJX4 AXT -,4 RESTORE LINKAGE
00032 0020 00 4 00001 TRA 1,4 RETURN
END
LITERALS
00033 000000000000
00034 606060606060
1 M1416 3845 PETER R. BOS .... ADJ, LJ, RJ .. LEFT/RIGHT JUSTIFY .... 03/04/70 1119.7 PAGE 1
POST PROCESSOR ASSEMBLY DATA
35 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
17 LJ 0
25 RJ 0
2 ADJ 0, 20, 26
4 ADJ0 13
12 ADJ1 5
23 LJX4 17
31 RJX4 25
0 NO ERROR IN ABOVE ASSEMBLY.
AKNO BCD 05/28/67 2247.1 228 00000
1 FAP PAGE 1
* TSSENTRIES * FOREGROUND LIB * L.P. - JULY 63 *
SUBROUTINIZED ENTRIES TO TSS ROUTINES
00000 ENTRY SETBRK
00002 ENTRY SAVBRK
00004 ENTRY GETBRK
00000 0101 00 0 00001 SETBRK TIA *+1
00001 622563225142 BCI 1,SETBRK
00002 0101 00 0 00003 SAVBRK TIA *+1
00003 622165225142 BCI 1,SAVBRK
00004 0101 00 0 00005 GETBRK TIA *+1
00005 272563225142 BCI 1,GETBRK
END
1 FAP PAGE 1
POST PROCESSOR ASSEMBLY DATA
6 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
4 GETBRK 0
2 SAVBRK 0
0 SETBRK 0
0 NO ERROR IN ABOVE ASSEMBLY.
APPE BCD 05/28/67 2247.1 3920 00000
1 FAP PAGE 1
* OPEN AND CLOSE DISK FILES FOR READING AND WRITING.
MODIFIED FOR NEW FILE SYSTEM JUNE 65 EMK
BINARY CARD NO. SEEK0000
00032 ENTRY SEEK
00025 ENTRY ASSIGN
00022 ENTRY APPEND
00241 ENTRY ENDRD
00260 ENTRY FILE
TRANSFER VECTOR
BINARY CARD NO. SEEK0001
00000 274521446060 GNAM
00001 234643636060 COLT
00002 625123306060 SRCH
00003 266263216325 FSTATE
00004 242543263143 DELFIL
00005 624521476060 SNAP
00006 224342606060 BLK
00007 264342606060 FLK
00010 222646472545 BFOPEN
00011 464725456060 OPEN
00012 226426262551 BUFFER
00013 222623434662 BFCLOS
00014 254524266060 ENDF
00015 234346622560 CLOSE
00016 665126436760 WRFLX
00017 512523466447 RECOUP
LINKAGE DIRECTOR
00020 000000000000
00021 622525426060
00660 BUFSIZ EQU 432
00020 X4 SYN *-2
00022 0500 00 0 00434 APPEND CLA =-0
00023 0601 00 0 00407 STO MODE
BINARY CARD NO. SEEK0002
00024 0020 00 0 00026 TRA ASSIGN+1
00025 ASSIGN SYN *
00025 0600 00 0 00407 STZ MODE
00026 -0625 00 0 00414 STL WR
00027 0500 00 0 00433 CLA =O077777000001 SET FOR WRITING.
00030 0560 00 0 00436 LDQ =HW MARK STATUS FOR WRITING.
00031 0020 00 0 00037 TRA SEEK+5
00032 SEEK SYN *
00032 0600 00 0 00414 STZ WR
00033 0500 00 0 00434 CLA =-0
00034 0601 00 0 00407 STO MODE
00035 0500 00 0 00432 CLA =O077776000002 SET FOR READING.
00036 0560 00 0 00435 LDQ =HR MARK STATUS FOR READING.
1 FAP PAGE 2
00037 -0634 00 4 00020 SXD X4,4
00040 -0600 00 0 00406 STQ STATUS
00041 0622 00 0 00077 STD CS
00042 0621 00 0 00200 STA FL1
00043 0621 00 0 00221 STA FL3
00044 0774 00 4 00434 AXT =-0,4
00045 0634 00 4 00210 SXA ASCALL+1,4
00046 0634 00 4 00211 SXA ASCALL+2,4
00047 0600 00 0 00404 INIT STZ MADSW RESET MAD AND FORTRAN SWITCHES
BINARY CARD NO. SEEK0003
00050 0600 00 0 00405 STZ FTNSW
00051 0634 00 2 00214 SXA X2,2 SAVE XRS
00052 0634 00 1 00215 SXA X1,1
00053 0074 00 4 00000 TSX $GNAM,4 GET FILE NAME
00054 0 00000 0 00020 PZE X4
00055 0 00000 0 00425 PZE FILNAM
00056 0100 00 0 00067 TZE FAP AC HAS CODE FOR CALLING PROGRAM TYPE
00057 0402 00 0 00427 SUB =1 1=FAP
00060 0100 00 0 00067 TZE FAP
00061 0402 00 0 00427 SUB =1 2=FORTRAN
00062 0100 00 0 00065 TZE FRTRN
00063 0601 00 0 00404 STO MADSW 3=MAD, SET MAD SWITCH
00064 0020 00 0 00067 TRA FAP
00065 0500 00 0 00427 FRTRN CLA =1 SET FORTRAN SWITCH
00066 0601 00 0 00405 STO FTNSW
00067 0074 00 4 00001 FAP TSX $COLT,4 COUNT ARGUMENTS
00070 0 00000 0 00020 PZE X4
00071 -0734 00 2 00000 PDX ,2
00072 0636 00 4 00216 SCA IOEXT,4
00073 0074 00 4 00002 TSX $SRCH,4 SEARCH ACTIVE FILE DIRECTORY
BINARY CARD NO. SEEK0004
00074 0 00000 0 00425 PZE FILNAM FOR FILE
00075 0020 00 0 00101 TRA ASSET FILE NOT FOUND
00076 0734 00 1 00000 PAX ,1
00077 1 00000 1 00100 CS TXI *+1,1,** IS FILE READ OR WRITE STATUS
00100 -3 00000 1 00213 TXL IOEXT-3,1,0 YES...RETURN
T 00101 -0634 00 0 00200 ASSET SXD FL1
00102 0600 00 0 00201 STZ FL2
00103 0500 00 0 00407 CLA MODE
00104 -0120 00 0 00116 TMI NOTAGN NOW CHECK ONLY IF ASSIGN CALLED.
00105 0074 00 4 00003 TSX $FSTATE,4
00106 3 00000 0 00425 PTH FILNAM
00107 3 00000 0 00426 PTH FILNAM+1
00110 3 00010 0 00415 PTH ARRAY,,8
00111 3 00000 0 00116 PTH NOTAGN ERROR RET. FILE DOES NOT EXIST. GO AHEAD.
00112 0074 00 4 00004 TSX $DELFIL,4 FILE DOES EXIST. DELETE IT.
00113 3 00000 0 00425 PTH FILNAM
00114 3 00000 0 00426 PTH FILNAM+1
00115 3 00000 0 00005 PTH $SNAP ERROR RET.
00116 -3 00001 2 00164 NOTAGN TXL CONST,2,1 ONLY ONE ARGUMENT. NO BUFFER SPECIFIED.
00117 -0534 00 4 00020 LXD X4,4
1 FAP PAGE 3
BINARY CARD NO. SEEK0005
00120 0500 00 4 00002 CLA 2,4
00121 0734 00 1 00000 PAX ,1 XR1= ADDR. OF FIRST BUFFER
00122 0520 00 0 00404 ZET MADSW IF CALLING PROGRAM
00123 0020 00 0 00126 TRA *+3 MAD
00124 -0520 00 0 00405 NZT FTNSW OR FORTRAN
00125 0020 00 0 00130 TRA *+3
00126 2 00657 1 00130 TIX *+2,1,BUFSIZ-1
00127 0020 00 0 00356 TRA NOBUF
00130 0634 00 1 00207 SXA ASCALL,1
00131 0634 00 1 00236 SXA ASCL1,1
00132 3 00002 2 00136 TXH *+4,2,2 MORE THAN ONE BUFFER.
00133 0520 00 0 00414 ZET WR IF R, GO AHEAD, IF W USE DIRECT CALL
00134 0020 00 0 00217 TRA DIRCAL IF W. USE DIRECT CALL. NO BUFFERING.
00135 0020 00 0 00176 TRA ASN1
00136 0500 00 4 00003 CLA 3,4
00137 0734 00 1 00000 PAX ,1 XR1= ADD. OF SECOND BUFFER
00140 0520 00 0 00404 ZET MADSW
00141 0020 00 0 00144 TRA *+3
00142 -0520 00 0 00405 NZT FTNSW
00143 0020 00 0 00146 TRA *+3
BINARY CARD NO. SEEK0006
00144 2 00657 1 00146 TIX *+2,1,BUFSIZ-1
00145 0020 00 0 00356 TRA NOBUF
00146 0634 00 1 00210 SXA ASCALL+1,1
00147 -0520 00 0 00414 NZT WR
00150 0020 00 0 00176 TRA ASN1 IF STATUS READ, OPEN NOW.
00151 -3 00003 2 00176 TXL ASN1,2,3 IF WRITE, IS THERE ANOTHER BUFFER.
00152 0500 00 4 00004 CLA 4,4 YES.
00153 0734 00 1 00000 PAX ,1
00154 0520 00 0 00404 ZET MADSW
00155 0020 00 0 00160 TRA *+3
00156 -0520 00 0 00405 NZT FTNSW
00157 0020 00 0 00162 TRA *+3
00160 2 00657 1 00162 TIX *+2,1,BUFSIZ-1
00161 0020 00 0 00356 TRA NOBUF
00162 0634 00 1 00211 SXA ASCALL+2,1
00163 0020 00 0 00176 TRA ASN1 OPEN FILE NOW.
00164 0074 00 4 00006 CONST TSX $BLK,4 ASK FOR ASSIGNED BUFFER
00165 0020 00 0 00331 TRA NOROOM NO FREE BUFFERS
00166 0622 00 0 00200 STD FL1 STORE POINTER
00167 0621 00 0 00207 STA ASCALL STORE BUFFER ADDRESS
BINARY CARD NO. SEEK0007
00170 -0520 00 0 00414 NZT WR IS STATUS READ
00171 0020 00 0 00176 TRA ASN1 IF SO, OPEN NOW.
00172 0074 00 4 00006 TSX $BLK,4 ELSE GET SECOND BUFFER.
00173 0020 00 0 00331 TRA NOROOM
00174 0622 00 0 00201 STD FL2 STORE POINTER
00175 0621 00 0 00210 STA ASCALL+1 STORE BUFFER ADDRESS
00176 0074 00 4 00007 ASN1 TSX $FLK,4 SET UP FILE IN ACTIVE FILE DIRECTORY
00177 0 00000 0 00425 PZE FILNAM
00200 0 00000 0 00000 FL1 PZE **,,** STATUS (READ OR WRITE),,BUFFNO
00201 0 00000 0 00000 FL2 PZE 0,,** 0,,BUFFNO.
00202 0020 00 0 00301 TRA ASNER1 NO ROOM IN FILE TABLE
1 FAP PAGE 4
00203 0074 00 4 00010 TSX $BFOPEN,4 BUFFERED OPEN PROGRAM.
00204 3 00000 0 00406 PTH STATUS
00205 3 00000 0 00425 PTH FILNAM
00206 3 00000 0 00426 PTH FILNAM+1
00207 3 00000 0 00000 ASCALL PTH ** BUFFER ADDRESS.
00210 3 00000 0 00000 PTH ** SECOND BUFFER
00211 3 00000 0 00000 PTH ** THIRD BUFFER
00212 3 00000 0 00005 PTH $SNAP
00213 -0534 00 4 00020 LXD X4,4
BINARY CARD NO. SEEK0008
00214 0774 00 2 00000 X2 AXT **,2
00215 0774 00 1 00000 X1 AXT **,1
00216 0020 00 0 00000 IOEXT TRA **
00217 0074 00 4 00007 DIRCAL TSX $FLK,4 SET UP FILE IN ACTIVE FILE DIRECTORY
00220 0 00000 0 00425 PZE FILNAM
00221 -3 00000 0 00001 FL3 SVN 1 STATUS(WRITE) PFX SHOWS DIRECT CALL NEEDED
00222 0 00000 0 00000 PZE NO SECOND BUFFER.
00223 0020 00 0 00301 TRA ASNER1 NO ROOM.
00224 0074 00 4 00011 TSX $OPEN,4 OPEN FILE NOW
00225 3 00000 0 00406 PTH STATUS
00226 3 00000 0 00425 PTH FILNAM
00227 3 00000 0 00426 PTH FILNAM+1
00230 3 00000 0 00407 PTH MODE
00231 3 00000 0 00410 PTH DEVICE
00232 3 00000 0 00005 PTH $SNAP ERROR RETURN
00233 0074 00 4 00012 TSX $BUFFER,4 ASSIGN BUFFER IN SUPERVISOR.
00234 3 00000 0 00425 PTH FILNAM
00235 3 00000 0 00426 PTH FILNAM+1
00236 3 00660 0 00000 ASCL1 PTH **,,BUFSIZ BUFFER ADDRESS,SIZE
00237 3 00000 0 00005 PTH $SNAP ERROR RETURN
BINARY CARD NO. SEEK0009
00240 0020 00 0 00213 TRA X2-1 RETURN TO END
00241 -0634 00 4 00020 ENDRD SXD X4,4
00242 0074 00 4 00000 TSX $GNAM,4 GET FILE NAME
00243 0 00000 0 00020 PZE X4
00244 0 00000 0 00425 PZE FILNAM
00245 0074 00 4 00002 TSX $SRCH,4 IS FILE ACTIVE
00246 0 00000 0 00425 PZE FILNAM
00247 0020 00 0 00256 TRA END1+2 NO. RETURN NOW
00250 0074 00 4 00013 TSX $BFCLOS,4
00251 3 00000 0 00425 PTH FILNAM
00252 3 00000 0 00426 PTH FILNAM+1
00253 3 00000 0 00254 PTH *+1
00254 0074 00 4 00014 END1 TSX $ENDF,4
00255 0 00000 0 00425 PZE FILNAM
00256 -0534 00 4 00020 LXD X4,4
00257 0020 00 4 00002 TRA 2,4 RETURN
00260 -0634 00 4 00020 FILE SXD X4,4
00261 0074 00 4 00000 TSX $GNAM,4
00262 0 00000 0 00020 PZE X4
00263 0 00000 0 00425 PZE FILNAM
1 FAP PAGE 5
BINARY CARD NO. SEEK0010
00264 0074 00 4 00002 TSX $SRCH,4 IS FILE ACTIVE.
00265 0 00000 0 00425 PZE FILNAM
00266 0020 00 0 00256 TRA END1+2 NO. RETURN NOW.
00267 0120 00 0 00274 TPL INDCL2 IF POSITIVE, USE BUFFERED CLOSE.
00270 0074 00 4 00015 TSX $CLOSE,4
00271 3 00000 0 00425 PTH FILNAM
00272 3 00000 0 00426 PTH FILNAM+1
00273 0020 00 0 00254 TRA END1
00274 0074 00 4 00013 INDCL2 TSX $BFCLOS,4
00275 3 00000 0 00425 PTH FILNAM
00276 3 00000 0 00426 PTH FILNAM+1
00277 3 00000 0 00005 PTH $SNAP ERROR RETURN.
00300 0020 00 0 00254 TRA END1
00301 0500 00 0 00430 ASNER1 CLA =4
00302 0601 00 0 00411 STO CODE
00303 0636 00 4 00412 SCA RET,4
00304 0500 00 0 00425 CLA FILNAM
00305 0601 00 0 00327 STO MESS1+7
00306 0500 00 0 00426 CLA FILNAM+1
00307 0601 00 0 00330 STO MESS1+8
BINARY CARD NO. SEEK0011
00310 0074 00 4 00016 TSX $WRFLX,4
00311 0 00011 0 00320 PZE MESS1,,9
00312 0604 00 0 00413 ERR STI IND
00313 0441 00 0 00412 LDI RET
00314 0074 00 4 00017 TSX $RECOUP,4
00315 0 00000 0 00430 PZE =4
00316 0 00000 0 00020 PZE X4
00317 0 00000 0 00413 PZE IND
00320 606346466044 MESS1 BCI 9, TOO MANY ACTIVE FILES. ERROR OPENING FILE
00321 214570602123
00322 633165256026
00323 314325623360
00324 255151465160
00325 464725453145
00326 276026314325
00327 606060606060
00330 606060606060
00331 0636 00 4 00412 NOROOM SCA RET,4
00332 0600 00 0 00411 STZ CODE
00333 -0500 00 0 00425 CAL FILNAM
BINARY CARD NO. SEEK0012
00334 0602 00 0 00354 SLW MESS2+10
00335 -0500 00 0 00426 CAL FILNAM+1
00336 0602 00 0 00355 SLW MESS2+11
00337 0074 00 4 00016 TSX $WRFLX,4
00340 0 00014 0 00342 MESS2,,12
00341 0020 00 0 00312 TRA ERR
00342 604546604446 MESS2 BCI 6, NO MORE FREE BUFFER SPACE AVAILABLE
1 FAP PAGE 6
00343 512560265125
00344 256022642626
00345 255160624721
00346 232560216521
00347 314321224325
00350 336025515146 BCI 6,. ERROR IN OPENING FILE
00351 516031456046
00352 472545314527
00353 602631432560
00354 606060606060
00355 606060606060
00356 0636 00 4 00412 NOBUF SCA RET,4
00357 0500 00 0 00431 CLA =5
BINARY CARD NO. SEEK0013
00360 0601 00 0 00411 STO CODE
00361 -0500 00 0 00425 CAL FILNAM
00362 0602 00 0 00402 SLW MESS3+10
00363 -0500 00 0 00426 CAL FILNAM+1
00364 0602 00 0 00403 SLW MESS3+11
00365 0074 00 4 00016 TSX $WRFLX,4
00366 0 00014 0 00370 MESS3,,12
00367 0020 00 0 00312 TRA ERR
00370 736022642626 MESS3 BCI 6,, BUFFER NOT DIMENSIONED PROPERLY
00371 255160454663
00372 602431442545
00373 623146452524
00374 604751464725
00375 514370606060
00376 733360255151 BCI 6,,. ERROR IN OPENING FILE
00377 465160314560
00400 464725453145
00401 276026314325
00402 606060606060
00403 606060606060
BINARY CARD NO. SEEK0014
00404 0 00000 0 00000 MADSW PZE 0
00405 0 00000 0 00000 FTNSW PZE 0
00406 0 00000 0 00000 STATUS PZE
00407 0 00000 0 00000 MODE PZE
00410 0 00000 0 00002 DEVICE PZE 2 DEVICE IS ALWAYS DISK.
00411 0 00000 0 00000 CODE PZE
00412 0020 00 0 00000 RET TRA **
00413 0 00000 0 00000 IND PZE
00414 0 00000 0 00000 WR PZE
00415 ARRAY BSS 8
00425 FILNAM BSS 2
END
LITERALS
BINARY CARD NO. SEEK0015
00427 000000000001
00430 000000000004
00431 000000000005
1 FAP PAGE 7
00432 077776000002
00433 077777000001
00434 400000000000
00435 516060606060
00436 666060606060
1 FAP PAGE 1
POST PROCESSOR ASSEMBLY DATA
437 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
77 CS 41
414 WR 26, 32, 133, 147, 170
215 X1 52
214 X2 51, 240
20 X4 22, 37, 54, 70, 117, 213, 241, 243, 256, 260, 262, 316
6 BLK 164, 172
312 ERR 341, 367
67 FAP 56, 60, 64
200 FL1 42, 101, 166
201 FL2 102, 174
221 FL3 43
7 FLK 176, 217
413 IND 312, 317
412 RET 303, 313, 331, 356
176 ASN1 135, 150, 151, 163, 171
411 CODE 302, 332, 360
1 COLT 67
254 END1 247, 266, 273, 300
14 ENDF 254
260 FILE 0
0 GNAM 53, 242, 261
47 INIT
407 MODE 23, 25, 34, 103, 230
11 OPEN 224
32 SEEK 0, 31, 32
5 SNAP 115, 212, 232, 237, 277
2 SRCH 73, 245, 264
415 ARRAY 110
236 ASCL1 131
101 ASSET 75
15 CLOSE 270
164 CONST 116
241 ENDRD 0
65 FRTRN 62
405 FTNSW 50, 66, 124, 142, 156
216 IOEXT 72, 100
404 MADSW 47, 63, 122, 140, 154
320 MESS1 305, 307, 311
342 MESS2 334, 336, 340
370 MESS3 362, 364, 366
356 NOBUF 127, 145, 161
16 WRFLX 310, 337, 365
22 APPEND 0
207 ASCALL 45, 46, 130, 146, 162, 167, 175
301 ASNER1 202, 223
25 ASSIGN 0, 24, 25
13 BFCLOS 250, 274
10 BFOPEN 203
12 BUFFER 233
660 BUFSIZ 22, 126, 144, 160, 236
4 DELFIL 112
1 FAP PAGE 2
POST PROCESSOR ASSEMBLY DATA
410 DEVICE 231
217 DIRCAL 134
425 FILNAM 55, 74, 106, 107, 113, 114, 177, 205, 206, 220, 226, 227, 234, 235, 244, 246, 251
252, 255, 263, 265, 271, 272, 275, 276, 304, 306, 333, 335, 361, 363
3 FSTATE 105
274 INDCL2 267
331 NOROOM 165, 173
116 NOTAGN 104, 111
17 RECOUP 314
406 STATUS 40, 204, 225
0 NO ERROR IN ABOVE ASSEMBLY.
ATAN BCD 05/28/67 2247.1 1572 00000
1 FAP PAGE 1
*ATAN 709 FORTRAN LIBRARY / FLOATING POINT ARCTANGENT ROUTINE / 9ATN
* AUGUST 22,1962
* THIS ROUTINE HAS BEEN REVISED TO ACCOMODATE MAD / MAY 1960
* THE CALLING SEQUENCE IS
* CALL ATAN TSX $ATAN,4
* N=ARG IN THE AC TXH N
* FOR FORTRAN FOR MAD
BINARY CARD NO. ATAN0000
00002 ENTRY ATAN
00002 ENTRY ATN
LINKAGE DIRECTOR
BINARY CARD NO. ATAN0001
00000 000000000000
00001 216321456060
00002 ATN EQU *
00002 0634 00 1 00066 ATAN SXA I1,1 SAVE INDEX REGISTER ONE
00003 0601 00 0 77775 STO X MODE TEST--MAD OR FORTRAN
00004 0500 00 0 00126 CLA TXH .
00005 0560 00 4 00001 LDQ 1,4 .
00006 0040 00 0 00011 TLQ *+3 . FORTRAN
00007 0500 60 4 00001 CLA* 1,4 . GET MAD ARGUMENT
00010 0601 00 0 77775 STO X .
00011 0500 00 0 77775 CLA X
00012 -0120 00 0 00070 TMI T100 SET ARGUMENT POSITIVE
00013 0601 00 0 77775 T30 STO X STORE ARGUMENT
00014 0402 00 0 00077 SUB MAX TEST IF OUT OF RANGE
00015 -0120 00 0 00020 TMI T21
00016 0500 00 0 00125 CLA PI0V2 IF TOO LARGE, RETURN WITH PI/2
00017 0020 00 4 00001 TRA 1,4
00020 0400 00 0 00076 T21 ADD MIN
00021 0120 00 0 00024 TPL T22
00022 0500 00 0 77775 CLA X
00023 0020 00 4 00001 TRA 1,4 IF TOO SMALL, RETURN WITH ARGUMENT
BINARY CARD NO. ATAN0002
00024 0774 00 1 00000 T22 AXT 0,1
00025 0500 00 0 77775 T17 CLA X TEST FOR INTERVAL CONTAINING X
00026 0402 00 1 00103 SUB A,1
00027 -0120 00 0 00031 TMI T1
00030 1 00001 1 00025 TXI T17,1,1
00031 3 00000 1 00035 T1 TXH T2,1,0 IF IN INTERVAL ONE LET Z=9X/55
1 FAP PAGE 2
00032 0560 00 0 77775 LDQ X
00033 0260 00 0 00124 FMP L
00034 0020 00 0 00046 TRA T11
00035 0754 00 1 00000 T2 PXA 0,1 REARRANGE INDEXING
00036 0737 00 1 00000 PAC 0,1 TAKE NEGATIVE OF INDEX REGISTER ONE
00037 0500 00 0 77775 T3 CLA X COMPUTE Z=A-B/C+X FOR PROPER INTERVAL
00040 0300 00 1 00077 FAD MAX,1
00041 0601 00 0 77776 STO T
00042 0502 00 1 00107 CLS B,1
00043 0241 00 0 77776 FDP T
00044 0131 00 0 00000 XCA
00045 0300 00 1 00103 FAD A,1
00046 0601 00 0 77775 T11 STO X
00047 0131 00 0 00000 XCA
BINARY CARD NO. ATAN0003
00050 0260 00 0 77775 FMP X COMPUTE Z SQUARED
00051 0601 00 0 77777 STO SQ COMPUTE CONTINUED FRACTION
00052 0300 00 0 00121 FAD C1
00053 0601 00 0 77776 STO T
00054 0502 00 0 00122 CLS C2
00055 0241 00 0 77776 FDP T
00056 0131 00 0 00000 XCA
00057 0300 00 0 00123 FAD C3
00060 0300 00 0 77777 FAD SQ
00061 0601 00 0 77776 STO T
00062 0500 00 0 77775 CLA X
00063 0241 00 0 77776 FDP T
00064 0131 00 0 00000 XCA
00065 0300 00 1 00114 FAD N,1 ADD INTERVAL CONSTANT
00066 0774 00 1 00000 I1 AXT 0,1
00067 0020 00 4 00001 TRA 1,4 RETURN
00070 0634 00 4 00073 T100 SXA I4,4 IF ARGUMENT NEGATIVE, CHANGE SIGN
00071 0760 00 0 00003 SSP
00072 0074 00 4 00013 TSX T30,4 ARRANGE TO SET RETURN NEGATIVE
00073 0774 00 4 00000 I4 AXT 0,4
BINARY CARD NO. ATAN0004
00074 -0760 00 0 00003 SSM
00075 0020 00 4 00001 TRA 1,4
* CONSTANTS
00076 +070000000000 MIN OCT 070000000000
00077 +233000000000 MAX OCT 233000000000
00100 +202537532534 DEC 2.7474774195
00101 +201461055415 DEC 1.1917535926
00102 +200447464721 DEC .57735026919
00103 +176551074172 A DEC .17632698071
00104 +177714301134 DEC .44958721409
00105 +176617307170 DEC .19501422424
00106 +175602761366 DEC .94475498595E-1
00107 +173730570600 B DEC .288535059E-1
1 FAP PAGE 3
00110 +201546070234 DEC 1.398867082
00111 +177625431617 DEC .39604526598
00112 +176676654157 DEC .21818181818
00113 +176531427747 DEC .1687240152
00114 +000000000000 N DEC 0
00115 +177545343022 DEC .3490658504
00116 +200545343022 DEC .6981317008
00117 +201414052216 DEC 1.047197551
BINARY CARD NO. ATAN0005
00120 +201545343022 DEC 1.396263402
00121 +174642612432 C1 DEC .051119459
00122 +170543147755 C2 DEC .00270998425
00123 +176673545053 C3 DEC .21664913599
00124 +176517101123 L DEC .16363636363
00125 +201622077325 PI0V2 DEC 1.57079633
ATD 00126 3 00000 0 00000 TXH TXH CONSTANT FOR MAD-FORTRAN TEST
* ERASABLES
77777 COMMON -206
77777 SQ COMMON 1
77776 T COMMON 1
77775 X COMMON 1
END
1 FAP PAGE 1
POST PROCESSOR ASSEMBLY DATA
77774 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
127 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
103 A 26, 45
107 B 42
124 L 33
114 N 65
77776 T 41, 43, 53, 55, 61, 63, 127
77775 X 3, 10, 11, 13, 22, 25, 32, 37, 46, 50, 62, 127
121 C1 52
122 C2 54
123 C3 57
66 I1 2
73 I4 70
77777 SQ 51, 60, 127
31 T1 27
35 T2 31
37 T3
2 ATN 0, 2
77 MAX 14, 40
76 MIN 20
46 T11 34
25 T17 30
20 T21 15
24 T22 21
13 T30 72
126 TXH 4
2 ATAN 0
70 T100 12
125 PI0V2 16
0 NO ERROR IN ABOVE ASSEMBLY.
ATCN BCD 05/28/67 2247.1 388 00000
1 SLAVE ENTRIES TO THE CTSS SUPERVISOR. PAGE 1
00000 ENTRY ATTCON
00002 ENTRY RELEAS
00004 ENTRY SNDLIN
00006 ENTRY SNDLNA
00010 ENTRY REDLIN
00012 ENTRY SLAVE
00014 ENTRY SET6
00016 ENTRY SET12
00000 0101 00 0 00001 ATTCON TIA *+1
00001 216363234645 BCI 1,ATTCON
00002 0101 00 0 00003 RELEAS TIA *+1
00003 512543252162 BCI 1,RELEAS
00004 0101 00 0 00005 SNDLIN TIA *+1
00005 624524433145 BCI 1,SNDLIN
00006 0101 00 0 00007 SNDLNA TIA *+1
00007 624524434521 BCI 1,SNDLNA
00010 0101 00 0 00011 REDLIN TIA *+1
00011 512524433145 BCI 1,REDLIN
00012 0101 00 0 00013 SLAVE TIA *+1
00013 624321652560 BCI 1,SLAVE
00014 0101 00 0 00015 SET6 TIA *+1
00015 622563066060 BCI 1,SET6
00016 0101 00 0 00017 SET12 TIA *+1
00017 622563010260 BCI 1,SET12
END
1 SLAVE ENTRIES TO THE CTSS SUPERVISOR. PAGE 1
POST PROCESSOR ASSEMBLY DATA
20 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
14 SET6 0
16 SET12 0
12 SLAVE 0
0 ATTCON 0
10 REDLIN 0
2 RELEAS 0
4 SNDLIN 0
6 SNDLNA 0
0 NO ERROR IN ABOVE ASSEMBLY.
ATTN BCD 05/28/67 2247.1 135 00000
1 PAGE 1
00000 ENTRY ATTNAM
00000 0101 00 0 00001 ATTNAM TIA =HATTNAM
END
LITERALS
00001 216363452144
1 PAGE 1
POST PROCESSOR ASSEMBLY DATA
2 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
0 ATTNAM 0
0 NO ERROR IN ABOVE ASSEMBLY.
BBLD BCD 06/25/69 2039.0 6829 00000
1 BUFFERED INPUT-OUTPUT PACKAGE. C. A. CUSHING 06/25/69 1713.1 PAGE 1
*
00012 ENTRY BFOPEN
00156 ENTRY BFREAD
00161 ENTRY BFWRIT
00416 ENTRY BFCODE
00422 ENTRY -BFCLOS
EXTERN OPEN
EXTERN BUFFER
EXTERN FWAIT
TRANSFER VECTOR
00000 464725456060 OPEN
00001 226426262551 BUFFER
00002 266621316360 FWAIT
00003 512426314325 RDFILE
00004 665126314325 WRFILE
00005 512466213163 RDWAIT
00006 665166213163 WRWAIT
00007 234346622560 CLOSE
LINKAGE DIRECTOR
00010 000000000000
00011 222646472545
00012 BEGIN SYN *
*
*
*
*BFOPEN.(STATUS,NAME1,NAME2,BUFF1(N),-BUFF2(N)-,-BUFF3(N)-,ERR)
*
*
*
*
00012 0634 00 1 00130 BFOPEN SXA XR1,1 OPEN FILE.
00013 0634 00 2 00131 SXA XR2,2 ..
00014 0634 00 4 00132 SXA XR4,4 ..
00015 0500 00 4 00007 CLA 7,4 GET ERROR RETURN
00016 0621 00 0 00543 STA ERRET AND SET UP, JUST IN CASE.
00017 0534 00 1 00572 LXA TSPACE,1 TSPACE POINTS TO HOLE IN TABLE
00020 0774 00 2 00001 AXT 1,2 ERRCOD 1 IF NONE LEFT
00021 -3 00000 1 00537 TXL (ERR0,1,0 ERR= NO MORE ROOM IN TABLE
00022 0500 60 4 00001 CLA* 1,4 GET 'STATUS'
00023 0601 00 0 00154 STO STATUS AND SAVE FOR OPEN CALL.
00024 0402 00 0 00663 SUB =HW READ SWITCH IS -0 IF WRITING.
00025 0601 00 0 00567 STO READ OTHERWISE, IS +NONZERO.
00026 0100 00 0 00030 TZE INIT IF WRITING WE HAVE -0 IN AC NOW
00027 0500 00 0 00655 CLA =0 WE ARE READING. INSURE +0 IN AC BUT
..IF STATUS NOT 'W', ASSUME READ. ALLOWS 'RW' USES.
1 BUFFERED INPUT-OUTPUT PACKAGE. C. A. CUSHING 06/25/69 1713.1 PAGE 2
00030 0601 00 1 00657 INIT STO TABLE+TABSIZ+3,1 TABLE ENTRIES FOR READ(WRITE) FILE
00031 0601 00 1 00660 STO TABLE+TABSIZ+4,1 ARE PREFIXED BY +(-)
00032 0601 00 1 00661 STO TABLE+TABSIZ+5,1 ..
00033 0500 60 4 00002 CLA* 2,4 GET NAME 1 OF FILE
00034 0601 00 0 00570 STO NAME1 ..
00035 0560 60 4 00003 LDQ* 3,4 AND NAME 2
00036 -0600 00 0 00571 STQ NAME2 ..
00037 0074 00 4 00544 TSX GETFIL,4 LOOK FOR FILE IN TABLE
00040 0020 00 0 00041 TRA *+1 NOT-FOUND RETURN. GOOD.
* IF FILE ALREADY OPEN, LET FILE SYSTEM COMPLAIN
00041 0601 00 1 00655 STO TABLE+TABSIZ+1,1 NAME 1 OF FILE
00042 -0600 00 1 00656 STQ TABLE+TABSIZ+2,1 NAME 2
00043 0534 00 4 00132 LXA XR4,4 LOOK AT BUFFER ARGUEMENTS
00044 0774 00 2 00002 AXT 2,2 ERRCOD 2 IF NOT ENOUGH BUFFERS GIVEN
00045 0500 60 4 00004 CLA* 4,4
00046 0120 00 0 00050 TPL ARG4
00047 0100 00 0 00537 TZE (ERR0 ERR=NO BUFFERS SPECIFIED
00050 0500 00 4 00004 ARG4 CLA 4,4 FIRST BUFFER
00051 0621 00 1 00657 STA TABLE+TABSIZ+3,1
00052 0500 60 4 00005 CLA* 5,4 IS SECOND BUFFER GIVEN
00053 0120 00 0 00060 TPL ARG5
00054 -0100 00 0 00060 TNZ ARG5
00055 -0520 00 0 00567 NZT READ NO. ONLY ONE BUFFER GIVEN
00056 0020 00 0 00537 TRA (ERR0 ERR=NEED MORE BUFFS FOR WRITE FILE
00057 0020 00 0 00076 TRA OPN OPEN SINGLE BUFFERED READ FILE
00060 0500 00 4 00005 ARG5 CLA 5,4 SECOND BUFFER
00061 -0520 00 0 00567 NZT READ YES. TWO BUFFERS GIVEN
00062 0020 00 0 00065 TRA ARG6 CHECK IF THIRD BUFFER GIVEN FOR WRITE FILE
00063 0621 00 1 00660 STA TABLE+TABSIZ+4,1
00064 0020 00 0 00076 TRA OPN OPEN DOUBLE BUFFERED READ FILE
00065 0500 60 4 00006 ARG6 CLA* 6,4
00066 0120 00 0 00072 TPL ARG7
00067 -0100 00 0 00072 TNZ ARG7
00070 0500 00 4 00005 CLA 5,4 SECOND WRITE BUFFER FOR FILE SYSTEM
00071 0020 00 0 00075 TRA OPN-1 OPEN SINGLE BUFFERED WRITE FILE
00072 0500 00 4 00005 ARG7 CLA 5,4 THREE BUFFERS GIVEN
00073 0621 00 1 00660 STA TABLE+TABSIZ+4,1 OPEN DOUBLE BUFFERED WRITE FILE
00074 0500 00 4 00006 CLA 6,4
00075 0621 00 0 00124 STA SYSBUF EXTRA WRITE BUFFER NEEDED BY FILE SYSTEM
00076 0074 00 4 00000 OPN TSX OPEN,4
TD 00077 3 00000 0 00154 TXH STATUS
TD 00100 3 00000 0 00570 TXH NAME1
TD 00101 3 00000 0 00571 TXH NAME2
TD 00102 3 00000 0 00655 TXH =0
TD 00103 3 00000 0 00661 TXH =-0
TD 00104 3 00000 0 00540 TXH (ERR
00105 -0520 00 0 00567 NZT READ FILE NOW OPEN, SEE WHAT TO DO.
00106 0020 00 0 00121 TRA ASGNBF
*
00107 0774 00 4 00134 FILLBF AXT (EOF,4 READ FILE-
1 BUFFERED INPUT-OUTPUT PACKAGE. C. A. CUSHING 06/25/69 1713.1 PAGE 3
00110 0634 00 4 00532 SXA EOFRET,4
00111 0600 00 0 00565 STZ BUFPTR FILL BUFFER 1
00112 0500 00 1 00657 FILL1 CLA TABLE+TABSIZ+3,1
00113 0074 00 4 00514 TSX SYSIO,4
00114 0500 00 1 00660 FILL2 CLA TABLE+TABSIZ+4,1 SECOND BUF-ENTRY, IF ANY
00115 0100 00 0 00126 TZE OPNRET IF NONE, QUIT NOW.
00116 -0625 00 0 00565 STL BUFPTR FILL BUFFER 2
00117 0074 00 4 00514 TSX SYSIO,4
00120 0020 00 0 00126 TRA OPNRET
*
00121 0074 00 4 00001 ASGNBF TSX BUFFER,4 WRITE FILE-
TD 00122 3 00000 0 00570 TXH NAME1
TD 00123 3 00000 0 00571 TXH NAME2
00124 3 00660 0 00000 SYSBUF TXH **,,BUFSIZ ASSIGN EXTRA BUFFER TO FILE SYSTEM
TD 00125 3 00000 0 00540 TXH (ERR
00126 1 77773 1 00127 OPNRET TXI *+1,1,-5 NOTE 5 LESS LOCATIONS LEFT IN TABLE
00127 0634 00 1 00572 CMNXIT SXA TSPACE,1
00130 0774 00 1 00000 XR1 AXT **,1
00131 0774 00 2 00000 XR2 AXT **,2
00132 0774 00 4 00000 XR4 AXT **,4
00133 0020 00 4 00001 TRA 1,4
*
*
00134 0500 00 0 00566 (EOF CLA EOFCT IF EOFCT IS 0 THEN FILE EMPTY
00135 -0100 00 0 00144 TNZ (EOF1 OR HAS ONLY 1 RECORD(BUFFER)
00136 0774 00 4 00660 AXT BUFSIZ,4
00137 -0754 00 4 00000 PXD 0,4
00140 -0520 00 0 00565 NZT BUFPTR IF FILE EMPTY - POINT TO
00141 0622 00 1 00657 STD TABLE+TABSIZ+3,1 LAST WORD IN BUFFER 1
00142 0771 00 0 00022 ARS 18 AND, IN EITHER CASE, MARK EOF
00143 0020 00 0 00146 TRA (EOF1+2 AT LAST WORD IN BUFFER 1
00144 0520 00 0 00565 (EOF1 ZET BUFPTR NOTE EOFCT IN
00145 0767 00 0 00022 ALS 18 DECR FOR BUFFER 2
00146 0601 00 1 00661 STO TABLE+TABSIZ+5,1 ADDR FOR BUFFER 1
00147 0074 00 4 00002 TSX FWAIT,4 AND WAIT UNTIL TRANSMISSION COMPLETED
TD 00150 3 00000 0 00570 TXH NAME1
TD 00151 3 00000 0 00571 TXH NAME2
TD 00152 3 00000 0 00540 TXH (ERR
00153 0020 00 0 00126 TRA OPNRET NOW GO HOME
00154 STATUS BSS 1
00155 +000000000660 BSIZ DEC 432 SIZE OF RECORD AND BUFFER, THIS IMPL.
1 BUFFERED INPUT-OUTPUT PACKAGE. C. A. CUSHING 06/25/69 1713.1 PAGE 4
*
*
*
*BFREAD.(NAME1,NAME2,BLOCK(N)...N,EOF,EOFCT,ERR)
*BFWRIT.(NAME1,NAME2,BLOCK(N)...N,ERR)
*
*
*
EXTERN RDFILE 1
EXTERN WRFILE 2
EXTERN RDWAIT 3
EXTERN WRWAIT 4 THESE MUST BE IN ORDER
*
00156 -0625 00 0 00567 BFREAD STL READ READ FROM BUFFER(S)
00157 0500 00 4 00006 CLA 6,4
00160 0020 00 0 00163 TRA SAVXRS
*
00161 0600 00 0 00567 BFWRIT STZ READ WRITE INTO BUFFER(S)
00162 0500 00 4 00004 CLA 4,4
*
00163 0634 00 1 00130 SAVXRS SXA XR1,1
00164 0634 00 2 00131 SXA XR2,2
00165 0634 00 4 00132 SXA XR4,4
00166 0621 00 0 00543 STA ERRET
00167 0500 60 4 00001 CLA* 1,4
00170 0601 00 0 00570 STO NAME1
00171 0560 60 4 00002 LDQ* 2,4
00172 -0600 00 0 00571 STQ NAME2
00173 0774 00 2 00003 AXT 3,2 ERRCOD 3 IF FILE NOT OPEN
00174 0074 00 4 00544 TSX GETFIL,4 LOOK FOR FILE IN TABLE
00175 0020 00 0 00537 TRA (ERR0 ERR= FILE N1 N2 NOT OPEN
00176 0500 00 1 00660 CLA TABLE+TABSIZ+4,1 LOOK AT COUNTER FOR BUFFER 2
00177 -0737 00 2 00000 PDC 0,2 IF NON-0 PROCESS BUFFER 2 (BUFPTR=NON-0)
00200 0634 00 2 00565 SXA BUFPTR,2
00201 3 00000 2 00204 TXH *+3,2,0
00202 0500 00 1 00657 CLA TABLE+TABSIZ+3,1 IF 0 PROCESS BUFFER 1 (BUFPTR=0)
00203 -0737 00 2 00000 PDC 0,2
00204 0636 00 2 00415 SCA BUFFCT,2
00205 0534 00 4 00132 LXA XR4,4
00206 0774 00 2 00004 AXT 4,2 ERRCODE 4 IF
00207 -0520 00 0 00567 NZT READ
00210 0020 00 0 00222 TRA TESTWR
* IF A WRITE FILE, LET FILE SYSTEM COMPLAIN
00211 -0120 00 0 00537 TESTRD TMI (ERR0 ERR=TRYING TO READ A WRITE FILE
00212 0621 00 0 00265 STA (TAKE SETUP TO TAKE FROM BUFFER AT WORD
00213 0500 00 0 00132 CLA XR4 POINTED TO BY XR4
00214 0625 00 0 00265 STT (TAKE
00215 0500 00 0 00131 CLA XR2
00216 0625 00 0 00266 STT GIVE AND GIVE TO CALLER NO. OF WORDS
00217 0500 00 4 00003 CLA 3,4 COUNTED IN XR2
00220 0621 00 0 00266 STA GIVE
00221 0020 00 0 00232 TRA TESTWC
*
1 BUFFERED INPUT-OUTPUT PACKAGE. C. A. CUSHING 06/25/69 1713.1 PAGE 5
* IF A READ FILE, LET FILE SYSTEM COMPLAIN
00222 0120 00 0 00537 TESTWR TPL (ERR0 ERR=TRYING TO WRITE A READ FILE
00223 0621 00 0 00266 STA GIVE SETUP TO GIVE TO BUFFER AT WORD
00224 0500 00 0 00132 CLA XR4 POINTED TO BY XR4
00225 0625 00 0 00266 STT GIVE
00226 0500 00 0 00131 CLA XR2
00227 0625 00 0 00265 STT (TAKE AND TAKE FROM CALLER NO. OF WORDS
00230 0500 00 4 00003 CLA 3,4 COUNTED IN XR2
00231 0621 00 0 00265 STA (TAKE
*
00232 -0737 00 2 00000 TESTWC PDC 0,2 GET WORD COUNT
00233 -0320 00 0 00657 ANA =O100000000000
00234 -0100 00 0 00237 TNZ *+3 FAP CALL - HAVE IT
00235 0500 00 2 00000 CLA 0,2 MAD CALL - HAVE ITS ADDRESS
00236 0737 00 2 00000 PAC 0,2
00237 -3 00000 2 00406 TXL RSTXRS,2,0 NO TRANSMISSION IF WC=0
00240 0535 00 4 00415 LAC BUFFCT,4
00241 0600 00 0 00566 STZ EOFCT
00242 0500 00 1 00661 CLA TABLE+TABSIZ+5,1 IF THERE IS AN EOFCT
00243 0520 00 0 00565 ZET BUFPTR FOR THIS BUFFER
00244 0771 00 0 00022 ARS 18
00245 -0320 00 0 00656 ANA =O77777
00246 0100 00 0 00261 TZE XCHNGE (THERE ISN'T. EOFCT=0)
00247 -0400 00 0 00415 SBM BUFFCT THEN ARE THERE ENOUGH WORDS LEFT
00250 0131 00 0 00000 XCA (EOFCT-BUFCT)
00251 0756 00 2 00000 PCA 0,2 TO SATISFY THE CALLER (WORDCT)
00252 0040 00 0 00254 TSTEOF TLQ MRKEOF
00253 0020 00 0 00261 TRA XCHNGE YES.
00254 -0600 00 0 00566 MRKEOF STQ EOFCT NO. PREPARE EOF RETURN AND GIVE
00255 0535 00 2 00566 LAC EOFCT,2 CALLER WHAT IS LEFT
00256 3 00000 2 00261 TXH XCHNGE,2,0
00257 -0634 00 1 00566 SXD EOFCT,1 NOTHING LEFT BEC AT END OF FILE
00260 0020 00 0 00401 TRA RETURN (EOFCT=BUFCT)
00261 -0634 00 2 00271 XCHNGE SXD GIVE+3,2
00262 0774 00 2 00000 AXT 0,2
00263 -3 00000 4 00265 TXL *+2,4,0
00264 -3 77120 4 00273 TXL CHNGBF,4,-BUFSIZ AT END OF BUFF-USE OTHER /REUSE THIS
00265 0500 00 0 00000 (TAKE CLA **,0 BUFFER,4 (READ) USRBLK,2 (WRITE)
00266 0601 00 0 00000 GIVE STO **,0 USRBLK,2 BUFFER,4
00267 1 77777 4 00270 TXI *+1,4,-1 EXCHANGE BETWEEN BUFFER
00270 1 77777 2 00271 TXI *+1,2,-1 AND USER'S BLOCK
00271 -3 00000 2 00401 TXL RETURN,2,** UNTIL WORDCT=0 -DONE-
00272 3 77120 4 00265 TXH (TAKE,4,-BUFSIZ OR BUFCT=BUFSIZ -BUFFER DONE-
00273 0500 00 1 00657 CHNGBF CLA TABLE+TABSIZ+3,1
00274 -0520 00 1 00660 NZT TABLE+TABSIZ+4,1
00275 0020 00 0 00312 TRA BUFFIO 1 BUFFER-EMPTY(FILL) IT FOR REUSE
00276 -0520 00 0 00565 NZT BUFPTR 2 BUFFERS-EMPYT(FILL) THIS ONE
00277 0500 00 1 00660 CLA TABLE+TABSIZ+4,1 WHILE USING OTHER
00300 0520 00 0 00567 ZET READ
00301 0621 00 0 00265 STA (TAKE READ FROM NEW BUFF
1 BUFFERED INPUT-OUTPUT PACKAGE. C. A. CUSHING 06/25/69 1713.1 PAGE 6
00302 -0520 00 0 00567 NZT READ
00303 0621 00 0 00266 STA GIVE WRITE INTO NEW BUFF
00304 0500 00 1 00657 CLA TABLE+TABSIZ+3,1
00305 -0520 00 0 00565 NZT BUFPTR
00306 0020 00 0 00311 TRA *+3
00307 0500 00 1 00660 CLA TABLE+TABSIZ+4,1
00310 0774 00 4 00000 AXT 0,4
00311 0634 00 4 00565 SXA BUFPTR,4 POINT TO OTHER BUFFER
00312 0520 00 1 00661 BUFFIO ZET TABLE+TABSIZ+5,1 IF EOF HIT PREVIOUSLY
00313 0020 00 0 00324 TRA HELP SEE IF HAVE ENOUGH WORDS LEFT
00314 0774 00 4 00344 AXT EOF1,4
00315 0634 00 4 00532 SXA EOFRET,4
00316 0074 00 4 00514 TSX SYSIO,4 ELSE EMPTY(FILL) THE BUFFER
00317 0774 00 4 00000 CHGBCT AXT 0,4
00320 -0754 00 0 00000 PXD 0,0
00321 0622 00 1 00657 STD TABLE+TABSIZ+3,1
00322 0622 00 1 00660 STD TABLE+TABSIZ+4,1
00323 0020 00 0 00265 TRA (TAKE AND CONTINUE THE EXCHANGE
*
00324 0636 00 2 00415 HELP SCA WORDCT,2
00325 0500 00 1 00661 CLA TABLE+TABSIZ+5,1
00326 0520 00 0 00565 ZET BUFPTR IF THIS BUFFER IS FULL
00327 0771 00 0 00022 ARS 18
00330 -0320 00 0 00656 ANA =O77777
00331 0100 00 0 00317 TZE CHGBCT (EOFCT=0), THEN WORRY LATER
00332 0400 00 0 00415 ADD WORDCT ELSE ARE NO. OF WORDS LEFT + NO. OF WORDS
00333 0131 00 0 00000 XCA ALREADY EXCHANGED (EOFCT+WORDCT)
00334 -0535 00 4 00271 LDC GIVE+3,4
00335 0754 00 4 00000 PXA 0,4 ENOUGH TO SATISFY CALLER
00336 0040 00 0 00340 TLQ *+2
00337 0020 00 0 00317 TRA CHGBCT YES.
00340 -0600 00 0 00566 STQ EOFCT NO. PREPARE EOF RETURN
00341 0534 00 4 00566 LXA EOFCT,4
00342 -0636 00 4 00271 SCD GIVE+3,4
00343 0020 00 0 00317 TRA CHGBCT AND EXCHANGE WHAT IS LEFT
*
*
00344 0500 00 0 00566 EOF1 CLA EOFCT
00345 -0100 00 0 00363 TNZ EOF2
00346 0520 00 1 00660 ZET TABLE+TABSIZ+4,1 AT END OF FILE - EOFCT=0
00347 0020 00 0 00352 TRA EOF01 ***FIX 4/13
00350 -0634 00 1 00566 SXD EOFCT,1 ..FUDGE IN CASE WDS GIVEN (X2) IS 0
00351 0636 00 2 00566 SCA EOFCT,2 1 BUFFER - NO MORE TRANSMISSION
00352 0774 00 4 00660 EOF01 AXT BUFSIZ,4 2 BUFFERS- ONLY THIS ONE LEFT
00353 0754 00 4 00000 PXA 0,4
00354 0737 00 4 00000 PAC 0,4 RECOMPLEMENT X4, TOO
00355 0520 00 0 00565 ZET BUFPTR
00356 0767 00 0 00022 ALS 18
00357 0601 00 1 00661 STO TABLE+TABSIZ+5,1
00360 -0520 00 1 00660 NZT TABLE+TABSIZ+4,1
00361 0020 00 0 00401 TRA RETURN 1 BUFFER-AT END OF FILE-NOMORE TRANSMISSION
00362 0020 00 0 00324 TRA HELP 2 BUFFERS-AT EOF-SEE IF ENOUGH IN OTHER BUF
1 BUFFERED INPUT-OUTPUT PACKAGE. C. A. CUSHING 06/25/69 1713.1 PAGE 7
00363 0074 00 4 00002 EOF2 TSX FWAIT,4
TD 00364 3 00000 0 00570 TXH NAME1
TD 00365 3 00000 0 00571 TXH NAME2
TD 00366 3 00000 0 00540 TXH (ERR
00367 0500 00 0 00566 EOF3 CLA EOFCT
00370 0600 00 0 00566 STZ EOFCT
00371 -0520 00 1 00660 NZT TABLE+TABSIZ+4,1
00372 0020 00 0 00375 TRA *+3
00373 -0520 00 0 00565 NZT BUFPTR 2 BUFFERS-EOF HIT WHILE TRANSM IN OTHER BUF
00374 0767 00 0 00022 ALS 18
00375 0601 00 1 00661 STO TABLE+TABSIZ+5,1
00376 -0520 00 1 00660 NZT TABLE+TABSIZ+4,1
00377 0020 00 0 00324 TRA HELP
00400 0020 00 0 00317 TRA CHGBCT
*
*
00401 -0756 00 4 00000 RETURN PCD 0,4
00402 0520 00 0 00565 ZET BUFPTR
00403 0622 00 1 00660 STD TABLE+TABSIZ+4,1
00404 -0520 00 0 00565 NZT BUFPTR
00405 0622 00 1 00657 STD TABLE+TABSIZ+3,1
00406 0534 00 1 00130 RSTXRS LXA XR1,1
00407 0534 00 2 00131 LXA XR2,2
00410 0534 00 4 00132 LXA XR4,4
00411 0500 00 0 00566 CLA EOFCT
00412 0100 00 4 00001 TZE 1,4
00413 0621 60 4 00005 STA* 5,4
00414 0020 60 4 00004 TRA* 4,4
*
00415 WORDCT BSS 0
00415 0 00000 0 00000 BUFFCT PZE 0 PTR TO LAST WORD USED IN BUFFER
1 BUFFERED INPUT-OUTPUT PACKAGE. C. A. CUSHING 06/25/69 1713.1 PAGE 8
*
*
*ERRCOD = BFCODE.(0)
*
*
00416 0500 00 0 00421 BFCODE CLA ERRCOD
00417 0600 00 0 00421 STZ ERRCOD
00420 0020 00 4 00001 TRA 1,4
00421 0 00000 0 00000 ERRCOD PZE 0
1 BUFFERED INPUT-OUTPUT PACKAGE. C. A. CUSHING 06/25/69 1713.1 PAGE 9
*
*
*BFCLOS.(NAME1,NAME2,ERR)
*
*
*
EXTERN CLOSE
00422 0634 00 1 00130 BFCLOS SXA XR1,1
00423 0634 00 2 00131 SXA XR2,2
00424 0634 00 4 00132 SXA XR4,4
00425 0500 00 4 00003 CLA 3,4
00426 0621 00 0 00543 STA ERRET
00427 0600 00 0 00567 STZ READ
00430 0500 60 4 00001 CLA* 1,4
00431 0560 60 4 00002 LDQ* 2,4
00432 -0625 00 0 00154 STL ALL SWITCH=NON-0 TO CLOSE 1 FILE
00433 0340 00 0 00662 CAS =H ALL
00434 0020 00 0 00436 TRA *+2
00435 0020 00 0 00502 TRA CLOSAL WE'LL CHECK FURTHER
00436 0340 00 0 00660 CAS =HALL
00437 0020 00 0 00441 TRA *+2
00440 0020 00 0 00502 TRA CLOSAL ..
00441 0074 00 4 00544 CLOS1 TSX GETFIL,4
00442 0020 00 0 00443 TRA *+1 IF ALREADY CLOSED, LET FILE SYSTEM COMPLAIN
00443 0601 00 0 00570 N1 STO NAME1
00444 -0600 00 0 00571 N2 STQ NAME2
00445 0774 00 4 00540 FLUSH1 AXT (ERR,4
00446 0634 00 4 00532 SXA EOFRET,4
00447 0500 00 1 00657 CLA TABLE+TABSIZ+3,1 IF WRITE FILE-EMPTY REMAINING BUFFER
00450 0120 00 0 00462 TPL CLOSIT
00451 -0734 00 4 00000 PDX 0,4 PICK UP COUNT FOR THIS BUFFER
00452 -3 00000 4 00455 TXL FLUSH2,4,0 IF 0 THEN NOTHING TO TRANSMIT-ELSE
00453 -0634 00 4 00531 SXD BUFADR,4 TRANSMIT ONLY BUFFCT WORDS
00454 0074 00 4 00514 TSX SYSIO,4 WRITE BUFF 1
00455 0500 00 1 00660 FLUSH2 CLA TABLE+TABSIZ+4,1
00456 -0734 00 4 00000 PDX 0,4
00457 -3 00000 4 00462 TXL CLOSIT,4,0
00460 -0634 00 4 00531 SXD BUFADR,4 TRANSMIT ONLY BUFFCT WORDS
00461 0074 00 4 00514 TSX SYSIO,4 WRITE BUFF 2
00462 0074 00 4 00007 CLOSIT TSX CLOSE,4
TD 00463 3 00000 0 00570 TXH NAME1
TD 00464 3 00000 0 00571 TXH NAME2
TD 00465 3 00000 0 00540 TXH (ERR
00466 -0520 00 0 00154 NZT ALL
00467 0020 00 0 00507 TRA GETNXT
00470 0534 00 4 00572 LXA TSPACE,4 REMOVE HOLE IN OUR TABLE
00471 1 00005 4 00472 TXI *+1,4,5
00472 -0634 00 4 00473 SXD *+1,4
00473 -3 00000 1 00477 MOVEUP TXL FINI,1,**
00474 0500 00 1 00662 CLA TABLE+TABSIZ+5+1,1
00475 0601 00 1 00655 STO TABLE+TABSIZ+1,1
00476 1 77777 1 00473 TXI MOVEUP,1,-1
1 BUFFERED INPUT-OUTPUT PACKAGE. C. A. CUSHING 06/25/69 1713.1 PAGE 10
00477 0774 00 4 00660 FINI AXT BUFSIZ,4
00500 -0634 00 4 00531 SXD BUFADR,4
00501 0020 00 0 00127 TRA CMNXIT
*
00502 0162 00 0 00441 CLOSAL TQP CLOS1
00503 0520 60 4 00002 ZET* 2,4
00504 0020 00 0 00441 TRA CLOS1
00505 0600 00 0 00154 STZ ALL SWITCH=0 TO CLOSE ALL FILES
00506 0534 00 1 00572 LXA TSPACE,1
00507 3 00061 1 00477 GETNXT TXH FINI,1,TABSIZ-1
00510 1 00005 1 00511 TXI *+1,1,5
00511 0500 00 1 00655 CLA TABLE+TABSIZ+1,1
00512 0560 00 1 00656 LDQ TABLE+TABSIZ+2,1
00513 0020 00 0 00443 TRA N1
*
00154 ALL EQU STATUS
1 BUFFERED INPUT-OUTPUT PACKAGE. C. A. CUSHING 06/25/69 1713.1 PAGE 11
INTERNAL SUBROUTINES
*
*
* TSX SYSIO,4 READ=0 FOR READ NON-0 FOR WRITE
* EOFRET MUST BE SET
* BUFFER ADDR MUST BE IN ADDR OF AC
*
00514 0634 00 4 00535 SYSIO SXA IORTN,4
00515 0621 00 0 00531 STA BUFADR
00516 -0774 00 4 00000 AXC 0,4 IF DOUBLE BUFFERED ONLY
00517 -0520 00 1 00660 NZT TABLE+TABSIZ+4,1 START I/O - RD(WR)FILE
00520 -0774 00 4 00002 AXC 2,4 ELSE WAIT FOR IT TO FINISH - RD(WR)WAIT
00521 0500 00 4 00003 CLA RDFILE,4
00522 -0520 00 0 00567 NZT READ
00523 0500 00 4 00004 CLA WRFILE,4
00524 0621 00 0 00525 STA *+1
00525 0074 00 4 00000 IOSUBR TSX **,4
TD 00526 3 00000 0 00570 TXH NAME1
TD 00527 3 00000 0 00571 TXH NAME2
TD 00530 3 00000 0 00655 TXH =0
00531 3 00660 0 00000 BUFADR TXH **,,BUFSIZ
TD 00532 3 00000 0 00000 EOFRET TXH **
TD 00533 3 00000 0 00566 TXH EOFCT
TD 00534 3 00000 0 00540 TXH (ERR
00535 0774 00 4 00000 IORTN AXT **,4
00536 0020 00 4 00001 TRA 1,4
*
00537 0634 00 2 00421 (ERR0 SXA ERRCOD,2
00540 0534 00 1 00130 (ERR LXA XR1,1
00541 0534 00 2 00131 LXA XR2,2
00542 0534 00 4 00132 LXA XR4,4
00543 0020 00 0 00000 ERRET TRA **
1 BUFFERED INPUT-OUTPUT PACKAGE. C. A. CUSHING 06/25/69 1713.1 PAGE 12
INTERNAL SUBROUTINES
*
*
* TSX GETFIL,4 N1 N2 MUST BE IN ARITHMETIC AC AND MQ
* TRA 1,4 N1 N2 NOT IN TABLE
* TRA 2,4 N1 N2 IN TABLE
* C(XR1)-TABSIZ=PTR TO N1 N2 OR NEXT EMPTY
* LOC IN TABLE
*
00544 0534 00 1 00572 GETFIL LXA TSPACE,1
00545 -0634 00 1 00547 SXD FINDN1,1
00546 0774 00 1 00062 AXT TABSIZ,1
00547 -3 00000 1 00554 FINDN1 TXL RTN2,1,** IF MORE ENTRIES IN TABLE
00550 0340 00 1 00655 CAS TABLE+TABSIZ+1,1 TRY TO FIND N1
00551 0020 00 0 00553 TRA *+2
00552 0020 00 0 00555 TRA FINDN2
00553 2 00005 1 00547 TIX FINDN1,1,5
00554 0020 00 4 00001 RTN2 TRA 1,4 N1 N2 NOT FOUND
00555 0131 00 0 00000 FINDN2 XCA
00556 0340 00 1 00656 CAS TABLE+TABSIZ+2,1
00557 0020 00 0 00561 TRA *+2
00560 0020 00 0 00563 TRA RTN1
00561 0131 00 0 00000 XCA
00562 0020 00 0 00553 TRA RTN2-1
00563 0131 00 0 00000 RTN1 XCA
00564 0020 00 4 00002 TRA 2,4 N1 N2 FOUND
1 BUFFERED INPUT-OUTPUT PACKAGE. C. A. CUSHING 06/25/69 1713.1 PAGE 13
TABLES, CONSTANTS, ETC
*
*
00062 TABSIZ EQU 5*10 10 ENTRIES ALLOWED-5 WDS OF INFO FOR EACH
* 1. N A M E 1
* 2. N A M E 2
* 3.+/-PTR BUFF1 +=READ FILE -=WRITE FILE
* 4.+/-PTR BUFF2 PTR=LAST WD USED IN BUFF
* 5.+/- EOFCT IN ADDR/DECR FOR BUFF1/BUFF2
*
00660 BUFSIZ EQU 432
*
00565 0 00000 0 00000 BUFPTR PZE 0 =0 (=NON-0) WHEN USING BUFF1 (BUFF2)
00566 0 00000 0 00000 EOFCT PZE 0
00567 0 00000 0 00000 READ PZE 0 =0 (=NON-0) FOR WRITING (READING)
00570 NAME1 BSS 1
00571 NAME2 BSS 1
*
00572 TSPACE BSS 0 NO. OF LOCS LEFT IN TABLE
00572 0 00000 0 00062 TABLE PZE TABSIZ
00573 BSS TABSIZ
END
LITERALS
00655 000000000000
00656 000000077777
00657 100000000000
00660 214343606060
00661 400000000000
00662 606060214343
00663 666060606060
1 BUFFERED INPUT-OUTPUT PACKAGE. C. A. CUSHING 06/25/69 1713.1 PAGE 1
POST PROCESSOR ASSEMBLY DATA
664 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
443 N1 513
444 N2
154 ALL 432, 466, 505, 514
76 OPN 57, 64, 71
130 XR1 12, 163, 406, 422, 540
131 XR2 13, 164, 215, 226, 407, 423, 541
132 XR4 14, 43, 165, 205, 213, 224, 410, 424, 542
50 ARG4 46
60 ARG5 53, 54
65 ARG6 62
72 ARG7 66, 67
155 BSIZ
344 EOF1 314
363 EOF2 345
367 EOF3
477 FINI 473, 507
266 GIVE 216, 220, 223, 225, 261, 303, 334, 342
324 HELP 313, 362, 377
30 INIT 26
0 OPEN 76
567 READ 25, 55, 61, 105, 156, 161, 207, 300, 302, 427, 522
563 RTN1 560
554 RTN2 547, 562
134 (EOF 107
540 (ERR 104, 125, 152, 366, 445, 465, 534
12 BEGIN 12
441 CLOS1 502, 504
7 CLOSE 462
352 EOF01 347
566 EOFCT 134, 241, 254, 255, 257, 340, 341, 344, 350, 351, 367, 370, 411, 533
543 ERRET 16, 166, 426
112 FILL1
114 FILL2
2 FWAIT 147, 363
535 IORTN 514
570 NAME1 34, 100, 122, 150, 170, 364, 443, 463, 526
571 NAME2 36, 101, 123, 151, 172, 365, 444, 464, 527
514 SYSIO 113, 117, 316, 454, 461
572 TABLE 30, 31, 32, 41, 42, 51, 63, 73, 112, 114, 141, 146, 176, 202, 242, 273, 274
277, 304, 307, 312, 321, 322, 325, 346, 357, 360, 371, 375, 376, 403, 405, 447, 455
474, 475, 511, 512, 517, 550, 556
144 (EOF1 135, 143
537 (ERR0 21, 47, 56, 175, 211, 222
265 (TAKE 212, 214, 227, 231, 272, 301, 323
121 ASGNBF 106
422 BFCLOS 0
416 BFCODE 0
12 BFOPEN 0
156 BFREAD 0
161 BFWRIT 0
531 BUFADR 453, 460, 500, 515
1 BUFFERED INPUT-OUTPUT PACKAGE. C. A. CUSHING 06/25/69 1713.1 PAGE 2
POST PROCESSOR ASSEMBLY DATA
415 BUFFCT 204, 240, 247
1 BUFFER 121
312 BUFFIO 275
565 BUFPTR 111, 116, 140, 144, 200, 243, 276, 305, 311, 326, 355, 373, 402, 404
660 BUFSIZ 124, 136, 264, 272, 352, 477, 531, 565
317 CHGBCT 331, 337, 343, 400
273 CHNGBF 264
502 CLOSAL 435, 440
462 CLOSIT 450, 457
127 CMNXIT 501
532 EOFRET 110, 315, 446
421 ERRCOD 416, 417, 537
107 FILLBF
547 FINDN1 545, 553
555 FINDN2 552
445 FLUSH1
455 FLUSH2 452
544 GETFIL 37, 174, 441
507 GETNXT 467
525 IOSUBR
473 MOVEUP 476
254 MRKEOF 252
126 OPNRET 115, 120, 153
3 RDFILE 521
5 RDWAIT
401 RETURN 260, 271, 361
406 RSTXRS 237
163 SAVXRS 160
154 STATUS 23, 77, 514
124 SYSBUF 75
62 TABSIZ 30, 31, 32, 41, 42, 51, 63, 73, 112, 114, 141, 146, 176, 202, 242, 273, 274
277, 304, 307, 312, 321, 322, 325, 346, 357, 360, 371, 375, 376, 403, 405, 447, 455
474, 475, 507, 511, 512, 517, 546, 550, 556, 565, 572, 573
211 TESTRD
232 TESTWC 221
222 TESTWR 210
572 TSPACE 17, 127, 470, 506, 544
252 TSTEOF
415 WORDCT 324, 332
4 WRFILE 523
6 WRWAIT
261 XCHNGE 246, 253, 256
0 NO ERROR IN ABOVE ASSEMBLY.
BCDC BCD 05/28/67 2247.1 559 00000
1 FAP PAGE 1
* BCDEC BCD TO DECIMAL INTEGER
* CONVERTS A BCD DECIMAL NUMBER INTO RIGHT JUSTIFIED INTEGE
* ARG1= BCD NUMBER, RESULT IN SAC
* CALLING SEQUENCE
* FAP TSX BCDEC,4
* PZE BCD WORD LOCATION
* STO BINARY INTEGER RIGHT JUSTIFIED
* MAD A=BCDEC.(BCD WORD)
* FORTRAN, NO CALL
* LEADING BLANKS ARE ALLOWED IN THE BCD WORD.
* COMPUTATION CENTER LOUIS POUZIN
* OCTOBER 63
BINARY CARD NO. BCDEC000
00002 ENTRY BCDEC
LINKAGE DIRECTOR
BINARY CARD NO. BCDEC001
00000 000000000000
00001 222324252360
00000 X4 SYN *-2
00002 -0634 00 4 00000 BCDEC SXD X4,4
00003 0560 60 4 00001 LDQ* 1,4
00004 0600 00 0 00022 STZ A
00005 0774 00 4 00006 AXT 6,4
T 00006 0754 00 0 00000 B PXA
00007 -0763 00 0 00003 LGL 3 BITS 8, 16, 32 IN AC
00010 -0320 00 0 00023 ANA =1 ERASE BLANKS IF ANY
00011 0401 00 0 00022 ADM A ADD PREVIOUS TERM
00012 -0763 00 0 00003 LGL 3 8 TIMES + BITS 4, 2, 1
00013 0401 00 0 00022 ADM A +1 TIME
00014 0401 00 0 00022 ADM A +1 TIME = 10 TIMES PREVIOUS RESULT
00015 0602 00 0 00022 SLW A INTERMEDIATE RESULT
00016 2 00001 4 00006 TIX B,4,1
00017 -0534 00 4 00000 LXD X4,4
00020 0500 00 0 00022 CLA A
00021 0020 00 4 00002 TRA 2,4
00022 0 00000 0 00000 A PZE
END
LITERALS
00023 000000000001
1 FAP PAGE 1
POST PROCESSOR ASSEMBLY DATA
24 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
22 A 4, 11, 13, 14, 15, 20
6 B 16
0 X4 2, 17
2 BCDEC 0
0 NO ERROR IN ABOVE ASSEMBLY.
BCOC BCD 05/28/67 2247.1 419 00000
1 FAP PAGE 1
* BCOCT CONVERTS A BCD OCTAL NUMBER INTO RIGHT JUSTIFIED INTEGER
* ARG1= BCD NUMBER. RETURNS RESULT IN SAC
* CALLING SEQUENCE
* FAP TSX BCOCT,4
* PZE BCD WORD, WITH POSSIBLE LEADING BLANKS
* STO BINARY INTEGER RIGHT JUSTIFIED
* MAD A=BCOCT.(BCD WORD)
*FORTRAN, NO CALL.
* COMPUTATION CENTER LOUIS POUZIN
* OCTOBER 63
BINARY CARD NO. BCOCT000
00002 ENTRY BCOCT
LINKAGE DIRECTOR
BINARY CARD NO. BCOCT001
00000 000000000000
00001 222346236360
00000 X4 SYN *-2
00002 -0634 00 4 00000 BCOCT SXD X4,4
00003 -0500 60 4 00001 CAL* 1,4
00004 0774 00 4 00006 AXT 6,4
00005 -0765 00 0 00003 A LGR 3
00006 0771 00 0 00003 ARS 3
00007 2 00001 4 00005 TIX A,4,1
00010 -0765 00 0 00022 LGR 18
00011 0131 00 0 00000 XCA
00012 -0534 00 4 00000 LXD X4,4
00013 0020 00 4 00002 TRA 2,4
END
1 FAP PAGE 1
POST PROCESSOR ASSEMBLY DATA
14 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
5 A 7
0 X4 2, 12
2 BCOCT 0
0 NO ERROR IN ABOVE ASSEMBLY.
BFCL BCD 05/28/67 2247.1 146 00000
1 PAGE 1
00002 ENTRY BFCLOS
LINKAGE DIRECTOR
00000 000000000000
00001 222623434662
00002 0020 00 4 00001 BFCLOS TRA 1,4
END
1 PAGE 1
POST PROCESSOR ASSEMBLY DATA
3 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
2 BFCLOS 0
0 NO ERROR IN ABOVE ASSEMBLY.
BREA BCD 05/28/67 2249.8 2486 00000
1 FAP PAGE 1
* BREAD. READ BINARY DISK FILES.
MODIFIED FOR NEW FILE SYSTEM JUNE 65 EMK
BINARY CARD NO. BREA0000
00013 ENTRY BREAD
TRANSFER VECTOR
BINARY CARD NO. BREA0001
00000 274521446060 GNAM
00001 234643636060 COLT
00002 222651252124 BFREAD
00003 624521476060 SNAP
00004 254524266060 ENDF
00005 222623434662 BFCLOS
00006 254626673163 EOFXIT
00007 665126436760 WRFLX
00010 256731636060 EXIT
LINKAGE DIRECTOR
00011 000000000000
00012 225125212460
00144 BISZ EQU 100
00011 XR4 SYN *-2
00013 BREAD SYN *
00013 -0634 00 4 00011 SXD XR4,4
00014 0600 00 0 00234 INIT STZ MADSW RESET MAD AND FORTRAN SWITCHES
00015 0600 00 0 00235 STZ FTNSW
00016 0634 00 2 00174 SXA X4+1,2 SAVE XRS
00017 0634 00 1 00175 SXA X4+2,1
00020 0074 00 4 00000 TSX $GNAM,4 GET FILE NAME
00021 0 00000 0 00011 PZE XR4
00022 0 00000 0 00241 PZE FILNAM
00023 0100 00 0 00034 TZE FAP AC HAS CODE FOR CALLING PROGRAM TYPE
BINARY CARD NO. BREA0002
00024 0402 00 0 00243 SUB =1 1=FAP
00025 0100 00 0 00034 TZE FAP
00026 0402 00 0 00243 SUB =1 2=FORTRAN
00027 0100 00 0 00032 TZE FRTRN
00030 0601 00 0 00234 STO MADSW 3=MAD, SET MAD SWITCH
00031 0020 00 0 00034 TRA FAP
00032 0500 00 0 00243 FRTRN CLA =1 SET FORTRAN SWITCH
00033 0601 00 0 00235 STO FTNSW
00034 0074 00 4 00001 FAP TSX $COLT,4 COUNT ARGUMENTS
00035 0 00000 0 00011 PZE XR4
00036 0636 00 4 00176 SCA IOEXT,4
00037 0636 00 4 00055 SCA BGET,4
00040 0636 00 4 00124 SCA BIB1,4
00041 -0734 00 2 00000 PDX ,2
00042 -3 00000 2 00222 TXL CERR,2,0
00043 -3 00001 2 00173 TXL X4,2,1 RETURN IF ONE OR LESS ARGUMENTS
00044 1 77777 2 00045 TXI *+1,2,-1
00045 0634 00 2 00120 SXA BIB,2
1 FAP PAGE 2
00046 -0500 60 0 00001 CAL* $COLT SET UP TO USE UTILITY ROUTINES
00047 0621 00 0 00236 STA SELAR SELAR AND MDL
BINARY CARD NO. BREA0003
00050 0771 00 0 00022 ARS 18
00051 0621 00 0 00237 STA MDL
00052 0600 00 0 00232 STZ EOF CLEAR EOF SWITCH
T 00053 -0634 00 0 00114 SXD G CLEAR WORD COUNT
00054 0774 00 1 00000 AXT ,1
00055 -0500 00 2 00000 BGET CAL **,2 COUNT NUMBER OF WORDS TO BE READ
00056 -0520 00 0 00234 NZT MADSW
00057 1 00001 1 00072 TXI BGET1+1,1,1
00060 -0634 00 1 00071 SXD BGET1,1
00061 0774 00 1 00063 AXT *+2,1
00062 0020 60 0 00236 TRA* SELAR
00063 -3 00003 1 00070 TXL BGET1-1,1,3
00064 -0500 60 0 00055 CAL* BGET
00065 0074 00 1 00237 TSX MDL,1 COUNT NO. WORDS IN LIST ARGUMENTS
00066 0734 00 1 00000 PAX ,1
00067 0020 00 0 00071 TRA *+2
00070 0774 00 1 00001 AXT 1,1
00071 1 00000 1 00072 BGET1 TXI *+1,1,**
00072 2 00001 2 00055 BGET2 TIX BGET,2,1
00073 0600 00 0 00240 STZ LSTFIN
BINARY CARD NO. BREA0004
00074 0634 00 0 00161 ZSA N
00075 -2 00144 1 00100 BIBLE TNX BIBLE1,1,BISZ
00076 0634 00 1 00161 SXA N,1
00077 0774 00 1 00144 AXT BISZ,1
00100 -0634 00 1 00106 BIBLE1 SXD WCNT,1
00101 -0636 00 1 00154 SCD HEDLIS+2,1
00102 0634 00 0 00150 ZSA BX
00103 0074 00 4 00002 TSX $BFREAD,4 READ CORRECT NO. OF WORDS
00104 3 00000 0 00241 PTH FILNAM
00105 3 00000 0 00242 PTH FILNAM+1
00106 3 00000 0 77632 WCNT PTH BUFF,,**
00107 3 00000 0 00177 PTH C
00110 3 00000 0 00233 PTH EOFCT
00111 3 00000 0 00003 PTH $SNAP ERROR RETURN
00112 -0535 00 4 00154 LDC N1,4
D 00113 -3 00000 4 00155 TXL EF,4 SKIP IF WORD COUNT = ZERO
00114 1 00000 4 00115 G TXI *+1,4,** UPDATE WORD COUNT
00115 -0634 00 4 00114 SXD *-1,4
00116 0520 00 0 00240 ZET LSTFIN
00117 0020 00 0 00164 TRA SV1
BINARY CARD NO. BREA0005
00120 0774 00 2 00000 BIB AXT **,2
00121 -0634 00 0 00167 ZSD TXI
00122 0500 00 0 00231 CLA TXHZ
00123 0601 00 0 00170 STO TXHL
00124 -0500 00 2 00000 BIB1 CAL **,2 MOVE WORDS FROM BUFFER TO ARG LIST
00125 0621 00 0 00152 STA HEDLIS
00126 -0520 00 0 00234 NZT MADSW
00127 0020 00 0 00147 TRA SINGAR
1 FAP PAGE 3
00130 0774 00 1 00132 AXT *+2,1
00131 0020 60 0 00236 TRA* SELAR
00132 -3 00003 1 00147 TXL SINGAR,1,3
00133 -0500 60 0 00124 CAL* BIB1
00134 0074 00 1 00237 TSX MDL,1
00135 0734 00 1 00000 PAX ,1
D 00136 -3 00000 1 00147 TXL SINGAR,1
00137 0630 00 0 00170 STP TXHL
00140 0120 00 0 00144 TPL FORDR
00141 1 77777 1 00142 TXI *+1,1,-1
00142 -0634 00 1 00170 SXD TXHL,1
00143 0020 00 0 00145 TRA *+2
BINARY CARD NO. BREA0006
00144 -0636 00 1 00170 FORDR SCD TXHL,1
00145 -0734 00 1 00000 PDX ,1
00146 -0634 00 1 00167 SXD TXI,1
00147 0774 00 1 00000 SINGAR AXT ,1
00150 0774 00 4 00000 BX AXT **,4
00151 -0500 00 4 77632 CAL BUFF,4
00152 0602 00 1 00000 HEDLIS SLW **,1
00153 1 77777 4 00154 TXI *+1,4,-1
00154 3 00000 4 00167 N1 TXH TXI,4,**
00155 0520 00 0 00232 EF ZET EOF SKIP IF NOT EOF
00156 0020 00 0 00214 TRA E
00157 -0625 00 0 00240 STL LSTFIN
00160 0634 00 1 00164 SXA SV1,1
00161 0774 00 1 00000 N AXT **,1
D 00162 3 00000 1 00074 TXH BIBLE-1,1
00163 0020 00 0 00173 TRA RSETM
00164 0774 00 1 00000 SV1 AXT ,1
00165 0774 00 4 00000 AXT 0,4
00166 0600 00 0 00240 STZ LSTFIN
00167 1 00000 1 00170 TXI TXI *+1,1,**
BINARY CARD NO. BREA0007
00170 3 00000 1 00151 TXHL TXH HEDLIS-1,1,**
00171 0634 00 4 00150 SAVX4 SXA BX,4
00172 2 00001 2 00121 TERM TIX BIB+1,2,1
00173 RSETM SYN *
00173 -0534 00 4 00011 X4 LXD XR4,4
00174 0774 00 2 00000 AXT **,2
00175 0774 00 1 00000 AXT **,1
00176 0020 00 0 00000 IOEXT TRA **
00177 0534 00 4 00233 C LXA EOFCT,4 1X4=NO. WORDS READ BEFORE EOF
00200 -0625 00 0 00232 STL EOF SET EOF SWITCH
00201 -0636 00 4 00154 SCD N1,4
00202 0634 00 4 00211 SXA AXT,4
00203 0074 00 4 00004 TSX $ENDF,4 GO TO DROPPING FROM (FTB)
00204 0 00000 0 00241 PZE FILNAM
00205 0074 00 4 00005 TSX $BFCLOS,4
00206 3 00000 0 00241 PTH FILNAM
00207 3 00000 0 00242 PTH FILNAM+1
00210 3 00000 0 00211 PTH *+1
1 FAP PAGE 4
00211 0774 00 4 00000 AXT AXT **,4
00212 -3 00000 4 00214 TXL E,4,0 IF COUNT =0, GO ON AS USUAL.
00213 0020 00 0 00114 TRA G
BINARY CARD NO. BREA0008
00214 -0534 00 4 00114 E LXD G,4
00215 0754 00 4 00000 PXA ,4 SET WORD COUNT IN AC (20-35)
00216 0534 00 2 00174 ENDFIL LXA X4+1,2
00217 0534 00 1 00175 LXA X4+2,1
00220 0074 00 4 00006 TSX $EOFXIT,4
00221 0 00000 0 00241 PZE FILNAM
00222 0074 00 4 00007 CERR TSX $WRFLX,4
00223 0 00004 0 00225 MES,,4
00224 0074 00 4 00010 TSX $EXIT,4
00225 603143432527 MES BCI 4, ILLEGAL CALL TO BREAD
00226 214360232143
00227 436063466022
00230 512521246060
D 00231 3 00000 1 00151 TXHZ TXH HEDLIS-1,1
00232 0 00000 0 00000 EOF PZE NOT ZERO IF EOF.
00233 0 00000 0 00000 EOFCT PZE EOF WORD COUNT.
00234 0 00000 0 00000 MADSW PZE
00235 0 00000 0 00000 FTNSW PZE
00236 0 00000 0 00000 SELAR PZE
00237 0020 00 0 00000 MDL TRA 0
BINARY CARD NO. BREA0009
00240 0 00000 0 00000 LSTFIN PZE
00241 FILNAM BSS 2
77632 COMMON -105
77632 BUFF COMMON 1
END
LITERALS
BINARY CARD NO. BREA0010
00243 000000000001
1 FAP PAGE 1
POST PROCESSOR ASSEMBLY DATA
77631 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
244 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
177 C 107
214 E 156, 212
114 G 53, 213, 214
161 N 74, 76
150 BX 102, 171
155 EF 113
154 N1 112, 201
173 X4 16, 17, 43, 216, 217
211 AXT 202
120 BIB 45, 172
232 EOF 52, 155, 200
34 FAP 23, 25, 31
237 MDL 51, 65, 134
225 MES 223
164 SV1 117, 160
167 TXI 121, 146, 154
11 XR4 13, 21, 35, 173
55 BGET 37, 64, 72
124 BIB1 40, 133
144 BISZ 13, 75, 77
77632 BUFF 106, 151, 243
222 CERR 42
1 COLT 34, 46
4 ENDF 203
10 EXIT 224
0 GNAM 20
14 INIT
3 SNAP 111
172 TERM
170 TXHL 123, 137, 142, 144
231 TXHZ 122
106 WCNT 100
71 BGET1 57, 60, 63
72 BGET2
75 BIBLE 162
13 BREAD 0, 13
233 EOFCT 110, 177
144 FORDR 140
32 FRTRN 27
235 FTNSW 15, 33
176 IOEXT 36
234 MADSW 14, 30, 56, 126
173 RSETM 163, 173
171 SAVX4
236 SELAR 47, 62, 131
7 WRFLX 222
5 BFCLOS 205
2 BFREAD 103
100 BIBLE1 75
216 ENDFIL
1 FAP PAGE 2
POST PROCESSOR ASSEMBLY DATA
6 EOFXIT 220
241 FILNAM 22, 104, 105, 204, 206, 207, 221
152 HEDLIS 101, 125, 170, 231
240 LSTFIN 73, 116, 157, 166
147 SINGAR 127, 132, 136
0 NO ERROR IN ABOVE ASSEMBLY.
BSF0 BCD 05/28/67 2249.8 372 00000
1 FAP PAGE 1
*TPMOV FOR TIME-SHARING MOD XI FOREGROUND LIBRARY JDH DEC 62
00005 ENTRY .BSF
00005 ENTRY .BSR
00006 ENTRY .EFT
00011 ENTRY .RWT
TRANSFER VECTOR
00000 742262633460 (BST)
00001 742526633460 (EFT)
00002 745166633460 (RWT)
LINKAGE DIRECTOR
00003 000000000000
00004 332262266060
00005 1 77777 4 00000 .BSF TXI $(BST),4,-1
00005 .BSR SYN .BSF
00006 -0500 60 4 00001 .EFT CAL* 1,4 ENTRY TO END FILE TAPE N
00007 0767 00 0 00022 ALS 18 TAPE NO. INTO DECREMENT
00010 1 77777 4 00001 TXI $(EFT),4,-1 GO TO FORTRAN ROUTINE (EFT)
00011 -0500 60 4 00001 .RWT CAL* 1,4 ENTRY TO REWIND TAPE N
00012 0767 00 0 00022 ALS 18 TAPE NO. INTO DECREMENT
00013 1 77777 4 00002 TXI $(RWT),4,-1 GO TO FORTRAN ROUTINE (RWT)
END
1 FAP PAGE 1
POST PROCESSOR ASSEMBLY DATA
14 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
5 .BSF 0, 6
5 .BSR 0, 6
6 .EFT 0
11 .RWT 0
0 (BST) 5
1 (EFT) 10
2 (RWT) 13
0 NO ERROR IN ABOVE ASSEMBLY.
BST0 BCD 10/12/70 1341.2 872 00000
1 FAP PAGE 1
*BST FOR TIME-SHARING MOD XI FOREGROUND LIBRARY JDH DEC 62
MODIFIED FOR NEW FILE SYSTEM JUNE 65 EMK
BINARY CARD NO. BST00000
00040 ENTRY (RWT)
00021 ENTRY (EFT)
00010 ENTRY (BST)
TRANSFER VECTOR
BINARY CARD NO. BST00001
00000 665126436760 WRFLX
00001 242526222360 DEFBC
00002 227125436060 BZEL
00003 263143256060 FILE
00004 625123306060 SRCH
00005 254524512460 ENDRD
LINKAGE DIRECTOR
00006 000000000000
00007 745166633460
00006 X4 SYN *-2
00010 -0634 00 4 00006 (BST) SXD X4,4
00011 0074 00 4 00000 TSX $WRFLX,4
00012 0 00004 0 00015 NOTE,,4
00013 -0534 00 4 00006 LXD X4,4
00014 0020 00 4 00001 TRA 1,4
00015 222123426247 NOTE BCI 4,BACKSPACE TAPE IGNORED.
00016 212325606321
00017 472560312745
00020 465125243360
00021 -0634 00 4 00006 (EFT) SXD X4,4 SAVE RETURN INDEX
00022 -0765 00 0 00022 LGR 18
00023 0601 00 0 00037 STO FILNAM+1
BINARY CARD NO. BST00002
00024 0074 00 4 00001 TSX $DEFBC,4
00025 0 00000 0 00037 PZE FILNAM+1
00026 0601 00 0 00037 STO FILNAM+1
00027 0074 00 4 00002 TSX $BZEL,4
00030 0 00000 0 00037 PZE FILNAM+1
00031 0601 00 0 00037 STO FILNAM+1
00032 0074 00 4 00003 WR TSX $FILE,4 GO CLOSE OUT
00033 0 00000 0 00036 FILNAM FILE.
00034 -0534 00 4 00006 LXD X4,4
00035 0020 00 4 00001 TRA 1,4 RETURN.
00036 336321472533 FILNAM BCI 1,.TAPE.
00037 0 00000 0 00000 PZE
1 FAP PAGE 2
00040 -0634 00 4 00006 (RWT) SXD X4,4
00041 0634 00 1 00063 SXA IR1,1
00042 -0765 00 0 00022 LGR 18
00043 0601 00 0 00037 STO FILNAM+1
00044 0074 00 4 00001 TSX $DEFBC,4
00045 0 00000 0 00037 PZE FILNAM+1
00046 0601 00 0 00037 STO FILNAM+1
00047 0074 00 4 00002 TSX $BZEL,4
BINARY CARD NO. BST00003
00050 0 00000 0 00037 PZE FILNAM+1
00051 0601 00 0 00037 STO FILNAM+1
00052 0074 00 4 00004 TSX $SRCH,4
00053 0 00000 0 00036 PZE FILNAM
00054 0020 00 0 00062 TRA RWTX
00055 0100 00 0 00062 TZE RWTX
00056 0734 00 1 00000 PAX ,1
00057 -3 00001 1 00032 TXL WR,1,1 STATUS 2 FOR READ.
00060 0074 00 4 00005 TSX $ENDRD,4
00061 0 00000 0 00036 PZE FILNAM
00062 -0534 00 4 00006 RWTX LXD X4,4
00063 0774 00 1 00000 IR1 AXT **,1
00064 0020 00 4 00001 TRA 1,4 RETURN.
END
1 FAP PAGE 1
POST PROCESSOR ASSEMBLY DATA
65 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
32 WR 57
6 X4 10, 13, 21, 34, 40, 62
63 IR1 41
2 BZEL 27, 47
3 FILE 32
15 NOTE 12
62 RWTX 54, 55
4 SRCH 52
1 DEFBC 24, 44
5 ENDRD 60
0 WRFLX 11
10 (BST) 0
21 (EFT) 0
40 (RWT) 0
36 FILNAM 23, 25, 26, 30, 31, 33, 43, 45, 46, 50, 51, 53, 61
0 NO ERROR IN ABOVE ASSEMBLY.
BTOC BCD 10/12/70 1341.2 910 00000
1 J. W. PODUSKA ... CONV - UTILITY CONVERSION ROUTINES. 12/15/69 1524.3 PAGE 1
00000 ENTRY DTBC DECIMAL-TO-BINARY CONVERSION.
00016 ENTRY BTDC BINARY-TO-DECIMAL CONVERSION.
00027 ENTRY OTBC OCTAL-TO-BINARY CONVERSION.
00035 ENTRY BTOC BINARY-TO-OCTAL CONVERSION.
DTBC - CONVERT 6 BCD DIGITS TO BINARY INTEGER.
00000 0634 00 4 00013 DTBC SXA DTBCX4,4 SAVE LINKAGE
00001 -0754 00 0 00000 ZAC CLEAR AC (ARG IN MQ),
00002 0774 00 4 00006 AXT 6,4 AND SET FOR 6 ITERATIONS.
00003 0601 00 0 00015 DTBCLP STO TNUM SAVE PARTIAL CONVERSION.
00004 -0773 00 0 00002 RQL 2 N+D/16.
00005 -0763 00 0 00001 LGL 1 2*N+D/8.
00006 0402 00 0 00015 SUB TNUM N+D/8.
00007 -0763 00 0 00002 LGL 2 4*N+D/2.
00010 0400 00 0 00015 ADD TNUM 5*N+D/2.
00011 -0763 00 0 00001 LGL 1 10*N+D.
00012 2 00001 4 00003 TIX DTBCLP,4,1 LOOP 6 TIMES.
00013 0774 00 4 00000 DTBCX4 AXT -,4 RESTORE LINKAGE
00014 0020 00 4 00001 TRA 1,4 AND RETURN WITH RESULT IN AC.
00015 0 00000 0 00000 TNUM PZE TEMP USED BY DTBC.
BTDC - CONVERT BINARY INTEGER TO 6 BCD DIGITS.
00016 -0754 00 0 00000 BTDC ZAC CLEAR AC, ARG IN MQ.
00017 0225 36 0 00044 VDP =1E5B40,,30 FORM HUNDRED THOUSANDS DIGIT.
00020 0225 06 0 00045 VDP =1E4B34,,6 FORM TEN THOUSANDS DIGIT.
00021 0225 06 0 00046 VDP =1E3B28,,6 FORM THOUSANDS DIGIT.
00022 0225 06 0 00050 VDP =1E2B22,,6 FORM HUNDREDS DIGIT.
00023 0225 06 0 00051 VDP =1E1B16,,6 FORM TENS DIGIT.
00024 0225 06 0 00052 VDP =1E0B10,,6 FORM UNITS DIGIT.
00025 -0130 00 0 00000 XCL MOVE RESULT TO AC,
00026 0020 00 4 00001 TRA 1,4 AND RETURN TO CALLER.
OTBC - CONVERT 6 OCTAL BCD DIGITS TO BINARY.
00027 -0500 00 0 00047 OTBC CAL =1B16 GET BIT FOR SETTING OVERFLOW
00030 0140 00 0 00031 TOV *+1 TURN OFF OVERFLOW
00031 -0773 00 0 00003 RQL 3 SKIP THREE BITS AND
00032 -0763 00 0 00003 LGL 3 SHIFT IN THREE BITS.
00033 -0140 00 0 00031 TNO *-2 CONTINUE UNTIL OVERFLOW SET.
00034 0020 00 4 00001 TRA 1,4 RETURN WITH ANSWER IN LAC.
BTOC - CONVERT BINARY TO OCTAL BCD.
00035 -0500 00 0 00043 BTOC CAL =1B34 GET BIT FOR SETTING OVERFLOW.
00036 0140 00 0 00037 TOV *+1 TURN OFF OVERFLOW
00037 0767 00 0 00003 ALS 3 PULL IN THREE ZERO BITS.
1 J. W. PODUSKA ... CONV - UTILITY CONVERSION ROUTINES. 12/15/69 1524.3 PAGE 2
00040 -0763 00 0 00003 LGL 3 SHIFT IN THE DIGIT.
00041 -0140 00 0 00037 TNO *-2 CONTINUE UNTIL OVERFLOW SET.
00042 0020 00 4 00001 TRA 1,4 RETURN WITH ANSWER IN LAC.
END
LITERALS
00043 000000000002
00044 000000006065
00045 000000047040
00046 000000372000
00047 000002000000
00050 000003100000
00051 000024000000
00052 000200000000
1 J. W. PODUSKA ... CONV - UTILITY CONVERSION ROUTINES. 12/15/69 1524.3 PAGE 1
POST PROCESSOR ASSEMBLY DATA
53 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
16 BTDC 0
35 BTOC 0
0 DTBC 0
27 OTBC 0
15 TNUM 3, 6, 10
3 DTBCLP 12
13 DTBCX4 0
0 NO ERROR IN ABOVE ASSEMBLY.
BWRT BCD 05/28/67 2249.8 2149 00000
1 FAP PAGE 1
* BWRITE WRITES BINARY DISK FILES.
MODIFIED FOR NEW FILE SYSTEM JUNE 65 EMK
BINARY CARD NO. BWRT0000
00012 ENTRY BWRITE
TRANSFER VECTOR
BINARY CARD NO. BWRT0001
00000 274521446060 GNAM
00001 234643636060 COLT
00002 625123306060 SRCH
00003 665166213163 WRWAIT
00004 624521476060 SNAP
00005 222666513163 BFWRIT
00006 665126436760 WRFLX
00007 256731636060 EXIT
LINKAGE DIRECTOR
00010 000000000000
00011 226651316325
00144 BISZ EQU 100 BINARY BUFFER SIZE
00010 XR4 SYN *-2
00012 BWRITE SYN *
00012 -0634 00 4 00010 SXD XR4,4
00013 0600 00 0 00205 INIT STZ MADSW RESET MAD AND FORTRAN SWITCHES
00014 0600 00 0 00206 STZ FTNSW
00015 0634 00 2 00154 SXA X4+1,2 SAVE XRS
00016 0634 00 1 00155 SXA X4+2,1
00017 0074 00 4 00000 TSX $GNAM,4 GET FILE NAME
00020 0 00000 0 00010 PZE XR4
00021 0 00000 0 00211 PZE FILNAM
00022 0100 00 0 00033 TZE FAP AC HAS CODE FOR CALLING PROGRAM TYPE
00023 0402 00 0 00214 SUB =1 1=FAP
BINARY CARD NO. BWRT0002
00024 0100 00 0 00033 TZE FAP
00025 0402 00 0 00214 SUB =1 2=FORTRAN
00026 0100 00 0 00031 TZE FRTRN
00027 0601 00 0 00205 STO MADSW 3=MAD, SET MAD SWITCH
00030 0020 00 0 00033 TRA FAP
00031 0500 00 0 00214 FRTRN CLA =1 SET FORTRAN SWITCH
00032 0601 00 0 00206 STO FTNSW
00033 0074 00 4 00001 FAP TSX $COLT,4 COUNT ARGUMENTS
00034 0 00000 0 00010 PZE XR4
00035 0636 00 4 00156 SCA IOEXT,4
00036 0636 00 4 00061 SCA BGEW,4
00037 -0734 00 2 00000 PDX ,2
00040 -3 00000 2 00173 TXL CERR,2,0
00041 -3 00001 2 00153 TXL X4,2,1
00042 1 77777 2 00043 TXI *+1,2,-1
00043 -0500 60 0 00001 CAL* $COLT
00044 0621 00 0 00204 STA SELAR
00045 0771 00 0 00022 ARS 18
1 FAP PAGE 2
00046 0621 00 0 00203 STA MDL
00047 0600 00 0 00207 STZ BF
BINARY CARD NO. BWRT0003
00050 0074 00 4 00002 TSX $SRCH,4
00051 0 00000 0 00211 PZE FILNAM
00052 0020 00 0 00054 TRA *+2 NOT FOUND. USE DIRECT CALL.
00053 0120 00 0 00055 TPL *+2 NEG. IF NEED DIRECT CALLS
00054 -0625 00 0 00207 STL BF
00055 0774 00 1 00144 AXT 100,1
00056 0634 00 1 00104 BLST1 SXA NOL1,1
00057 0500 00 0 00202 CLA TXHLBZ
00060 0601 00 0 00112 STO TXHLB
00061 -0500 00 2 00000 BGEW CAL **,2
00062 0621 00 0 00106 STA IOARG
00063 0774 00 4 00000 AXT ,4
00064 -0520 00 0 00205 NZT MADSW
00065 0020 00 0 00103 TRA NOLSTB
00066 0774 00 1 00070 AXT *+2,1
00067 0020 60 0 00204 TRA* SELAR
00070 -3 00003 1 00103 TXL NOLSTB,1,3
00071 -0500 60 0 00061 CAL* BGEW
00072 0074 00 1 00203 TSX MDL,1
00073 0734 00 4 00000 PAX ,4
BINARY CARD NO. BWRT0004
00074 0630 00 0 00112 STP TXHLB
00075 0120 00 0 00101 TPL BFORD
00076 1 77777 4 00077 TXI *+1,4,-1
00077 -0634 00 4 00112 SXD TXHLB,4
00100 0020 00 0 00102 TRA *+2
00101 -0636 00 4 00112 BFORD SCD TXHLB,4
00102 -0734 00 4 00000 PDX ,4
00103 -0634 00 4 00111 NOLSTB SXD TXIB,4
00104 0774 00 1 00000 NOL1 AXT **,1
00105 0774 00 4 00000 AXT 0,4 INITIALIZE TO COUNT VARIABLES.
00106 0500 00 4 00000 IOARG CLA **,4 MOVE DATA
00107 0601 00 1 77776 STO BUFF+BISZ,1 MOVE TO BUFFER
00110 -2 00001 1 00115 TNX BWROUT,1,1 READ OR WRITE 100 WORDS AT A TIME.
00111 1 00000 4 00112 TXIB TXI *+1,4,** GO BACK IF DOT NOTATION
00112 3 00000 4 00106 TXHLB TXH IOARG,4,**
00113 2 00001 2 00056 TERM1 TIX BLST1,2,1 GO ON TO NEXT
00114 0020 00 0 00134 TRA THRU READ OR WRITE LAST BLOCK.
00115 0634 00 4 00133 BWROUT SXA X41,4
00116 -0520 00 0 00207 NZT BF TRANSFER FOR BUFFERED CALL.
00117 0020 00 0 00157 TRA INDCL1
BINARY CARD NO. BWRT0005
00120 0074 00 4 00003 TSX $WRWAIT,4
00121 3 00000 0 00211 PTH FILNAM
00122 3 00000 0 00212 PTH FILNAM+1
00123 3 00000 0 00213 PTH =0
00124 3 00144 0 77632 BW1 PTH BUFF,,100
00125 3 00000 0 00004 PTH $SNAP ERROR RETURN
00126 3 00000 0 00210 PTH EOFCT
1 FAP PAGE 3
00127 3 00000 0 00004 PTH $SNAP
00130 0534 00 4 00133 RET1 LXA X41,4
00131 0774 00 1 00144 AXT 100,1
00132 0020 00 0 00111 TRA TXIB
00133 0 00000 0 00000 X41 PZE 0
00134 0754 00 1 00000 THRU PXA ,1
00135 0737 00 1 00000 PAC ,1
00136 1 00144 1 00137 TXI *+1,1,100
00137 -0634 00 1 00147 SXD TH1,1
00140 -0634 00 1 00170 SXD TH2,1
00141 -0520 00 0 00207 NZT BF
00142 0020 00 0 00165 TRA INDCL2 TRANSFER FOR BUFFERED CALL.
00143 0074 00 4 00003 TSX $WRWAIT,4
BINARY CARD NO. BWRT0006
00144 3 00000 0 00211 PTH FILNAM
00145 3 00000 0 00212 PTH FILNAM+1
00146 3 00000 0 00213 PTH =0
00147 3 00000 0 77632 TH1 PTH BUFF,,**
00150 3 00000 0 00004 PTH $SNAP
00151 3 00000 0 00210 PTH EOFCT
00152 3 00000 0 00004 PTH $SNAP
00153 RET2 SYN *
00153 -0534 00 4 00010 X4 LXD XR4,4
00154 0774 00 2 00000 AXT ,2
00155 0774 00 1 00000 AXT ,1
00156 0020 00 0 00000 IOEXT TRA **
00157 0074 00 4 00005 INDCL1 TSX $BFWRIT,4
00160 3 00000 0 00211 PTH FILNAM
00161 3 00000 0 00212 PTH FILNAM+1
00162 3 00144 0 77632 BW2 PTH BUFF,,100
00163 3 00000 0 00004 PTH $SNAP
00164 0020 00 0 00130 TRA RET1
00165 0074 00 4 00005 INDCL2 TSX $BFWRIT,4
00166 3 00000 0 00211 PTH FILNAM
00167 3 00000 0 00212 PTH FILNAM+1
BINARY CARD NO. BWRT0007
00170 3 00000 0 77632 TH2 PTH BUFF,,**
00171 3 00000 0 00004 PTH $SNAP
00172 0020 00 0 00153 TRA RET2
00173 0074 00 4 00006 CERR TSX $WRFLX,4
00174 0 00004 0 00176 MES,,4
00175 0074 00 4 00007 TSX $EXIT,4
00176 603143432527 MES BCI 4, ILLEGAL CALL TO BWRITE
00177 214360232143
00200 436063466022
00201 665131632560
D 00202 3 00000 4 00106 TXHLBZ TXH IOARG,4
00203 0020 00 0 00000 MDL TRA 0
00204 0 00000 0 00000 SELAR PZE
00205 0 00000 0 00000 MADSW PZE
1 FAP PAGE 4
00206 0 00000 0 00000 FTNSW PZE
00207 0 00000 0 00000 BF PZE
00210 0 00000 0 00000 EOFCT PZE
00211 FILNAM BSS 2
77632 COMMON -105
77632 BUFF COMMON 1
END
LITERALS
BINARY CARD NO. BWRT0008
00213 000000000000
00214 000000000001
1 FAP PAGE 1
POST PROCESSOR ASSEMBLY DATA
77631 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
215 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
207 BF 47, 54, 116, 141
153 X4 15, 16, 41
124 BW1
162 BW2
33 FAP 22, 24, 30
203 MDL 46, 72
176 MES 174
147 TH1 137
170 TH2 140
133 X41 115, 130
10 XR4 12, 20, 34, 153
61 BGEW 36, 71
144 BISZ 12, 107
77632 BUFF 107, 124, 147, 162, 170, 213
173 CERR 40
1 COLT 33, 43
7 EXIT 175
0 GNAM 17
13 INIT
104 NOL1 56
130 RET1 164
153 RET2 153, 172
4 SNAP 125, 127, 150, 152, 163, 171
2 SRCH 50
134 THRU 114
111 TXIB 103, 132
101 BFORD 75
56 BLST1 113
210 EOFCT 126, 151
31 FRTRN 26
206 FTNSW 14, 32
106 IOARG 62, 112, 202
156 IOEXT 35
205 MADSW 13, 27, 64
204 SELAR 44, 67
113 TERM1
112 TXHLB 60, 74, 77, 101
6 WRFLX 173
5 BFWRIT 157, 165
12 BWRITE 0, 12
115 BWROUT 110
211 FILNAM 21, 51, 121, 122, 144, 145, 160, 161, 166, 167
157 INDCL1 117
165 INDCL2 142
103 NOLSTB 65, 70
202 TXHLBZ 57
3 WRWAIT 120, 143
1 FAP PAGE 2
POST PROCESSOR ASSEMBLY DATA
0 NO ERROR IN ABOVE ASSEMBLY.
BZ57 BCD 06/25/69 2033.1 437 00000
1 BZ57 RECONSTRUCTED FROM THE BINARY BY ROGER ROACH 8-01-67 03/13/69 1220.4 PAGE 1
*
* PROGRAM TO PLACE LEADING NULL CHARACTERS IN PLACE OF ZEROS OR
* BLANKS IN A WORD.
*
* CALLING SEQUENCE -
* NEWWD = BZ57.(WORD)
*
00000 ENTRY BZ57
00000 0634 00 4 00021 BZ57 SXA XR4,4
00001 0560 60 4 00001 LDQ* 1,4
00002 0774 00 4 00000 AXT 0,4
00003 -0754 00 0 00000 ZAC
00004 -0763 00 0 00006 LOOP LGL 6
00005 -0340 00 0 00025 LAS =H00000 TEST FOR A BLANK
00006 -0100 00 0 00017 TNZ NBLANK NOT A BLANK
00007 0020 00 0 00011 TRA *+2 A BLANK, REPLACE BY A NULL
00010 -0100 00 0 00017 TNZ NBLANK NOT A BLANK NOR A ZERO
00011 -0500 00 0 00024 CAL =O57 A BLANK OR ZERO GETS REPLACED BY A NULL
00012 -0765 00 0 00006 LGR 6
00013 -0773 00 0 00006 RQL 6
00014 1 00006 4 00015 TXI *+1,4,6
00015 -3 00030 4 00004 TXL LOOP,4,24
00016 0020 00 0 00020 TRA NBLANK+1 TESTED ALL OF THE WORD
00017 -0765 00 0 00006 NBLANK LGR 6
00020 -0773 00 4 00044 RQL 36,4
00021 0774 00 4 00000 XR4 AXT **,4
00022 0131 00 0 00000 XCA
00023 0020 00 4 00002 TRA 2,4
END
LITERALS
00024 000000000057
00025 000000000060
1 BZ57 RECONSTRUCTED FROM THE BINARY BY ROGER ROACH 8-01-67 03/13/69 1220.4 PAGE 1
POST PROCESSOR ASSEMBLY DATA
26 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
21 XR4 0
0 BZ57 0
4 LOOP 15
17 NBLANK 6, 10, 16
0 NO ERROR IN ABOVE ASSEMBLY.
BZEL BCD 06/25/69 2033.1 454 00000
1 FAP PAGE 1
* BZEL BLANKS OUT LEADING ZEROS. YIELDS ZERO IF ALL ZEROS
* CALLING SEQUENCE
* FAP TSX BZEL,4
* PZE WORD LOCATION
* STO RESULT
* MAD A=BZEL.(WORD)
* FORTRAN M=BZEL(WORD)
* COMPUTATION CENTER LOUIS POUZIN
* FEBRUARY 64
BINARY CARD NO. BZEL0000
00002 ENTRY BZEL
LINKAGE DIRECTOR
BINARY CARD NO. BZEL0001
00000 000000000000
00001 227125436060
00002 BZEL SYN *
00000 X4 SYN *-2
00002 -0634 00 4 00000 SXD X4,4
00003 0560 60 4 00001 LDQ* 1,4
00004 0774 00 4 00044 AXT 36,4
00005 -0754 00 0 00000 A ZAC
00006 -0763 00 0 00006 LGL 6
00007 0100 00 0 00012 TZE B
00010 -0340 00 0 00020 LAS =H00000
00011 0020 00 0 00013 TRA *+2
00012 2 00006 4 00005 B TIX A,4,6
00013 -0501 00 0 00021 ORA =H 0
00014 -0765 00 4 00052 LGR 42,4
00015 0131 00 0 00000 XCA
00016 -0534 00 4 00000 LXD X4,4
00017 0020 00 4 00002 TRA 2,4
END
LITERALS
00020 000000000060
00021 606060606000
1 FAP PAGE 1
POST PROCESSOR ASSEMBLY DATA
22 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
5 A 12
12 B 7
0 X4 2, 16
2 BZEL 0, 2
0 NO ERROR IN ABOVE ASSEMBLY.
CHFL BCD 05/28/67 2256.8 166 00000
1 PAGE 1
00000 ENTRY CHFILE
00001 ENTRY DELFIL
00000 0101 00 0 00002 CHFILE TIA =HCHFILE
00001 0101 00 0 00003 DELFIL TIA =HDELFIL
END
LITERALS
00002 233026314325
00003 242543263143
1 PAGE 1
POST PROCESSOR ASSEMBLY DATA
4 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
0 CHFILE 0
1 DELFIL 0
0 NO ERROR IN ABOVE ASSEMBLY.
CHMD BCD 05/28/67 2256.8 820 00000
1 FAP PAGE 1
* FOR TIME SHARING MODULAR VERSION. LP FEB 64
ALTERED TO CALL NEW FILE SYSTEM. EMK AUG 65
CALLING SEQUENCE
EXECUTE CHMODE.(FILNAM, (0, 1, 2, OR 3))
X = CHMODE.(...), X=0 WHEN SUCCESS, X=ERROR CODE IF FAIL
NAMES SET BY VECTOR VALUES, OR BY 'SETNAM'.
VECTOR VALUES NAMES=$ ALFA BETA$
CALL SETNAM (NAMES, 12H ALFA BETA)
BINARY CARD NO. CHMOD000
00004 ENTRY CHMODE
TRANSFER VECTOR
BINARY CARD NO. CHMOD001
00000 274521446060 GNAM
00001 233026314325 CHFILE
LINKAGE DIRECTOR
00002 000000000000
00003 233044462425
00002 X4 SYN *-2
00004 CHMODE SYN *
00004 -0634 00 4 00002 SXD X4,4
00005 -0500 60 4 00002 CAL* 2,4
00006 0602 00 0 00043 SLW MODE
00007 0074 00 4 00000 TSX $GNAM,4
00010 0 00000 0 00002 PZE X4
00011 0 00000 0 00044 PZE FILNAM
00012 0560 00 0 00043 LDQ MODE
00013 0402 00 0 00046 SUB =2
00014 0100 00 0 00016 TZE *+2 SKIP IF FORTRAN
00015 -0773 00 0 00022 RQL 18
00016 -0763 00 0 00022 LGL 18
00017 0734 00 4 00000 PAX 0,4
00020 0500 00 4 00042 CLA MODES,4 GET MODE CORRESPONDING TO OLD ONE.
00021 0601 00 0 00043 STO MODE
00022 0074 00 4 00001 TSX $CHFILE,4 CHANGE MODE WITH CALL TO SYSTEM.
00023 3 00000 0 00044 PTH FILNAM
BINARY CARD NO. CHMOD002
00024 3 00000 0 00045 PTH FILNAM+1
00025 3 00000 0 00043 PTH MODE
00026 3 00000 0 00047 PTH =-0
00027 3 00000 0 00047 PTH =-0
00030 3 00000 0 00034 PTH ZZZ
00031 -0754 00 0 00000 ZAC
00032 A SYN *
00032 -0534 00 4 00002 LXD X4,4
00033 0020 00 4 00003 TRA 3,4
1 FAP PAGE 2
00034 -0130 00 0 00000 ZZZ XCL
00035 0131 00 0 00000 XCA
00036 0020 00 0 00032 TRA A
00037 +000000000104 OCT 104 OLD R2 MODE
00040 +000000000104 OCT 104 OLD R1 MODE
00041 0 00000 0 00000 PZE 0 OLD P MODE
00042 0 00000 0 00001 MODES PZE 1 OLD T MODE
TABLE OF OLD-NEW MODE EQUIVALENCES.
00043 0 00000 0 00000 MODE PZE
00044 FILNAM BSS 2
END
LITERALS
BINARY CARD NO. CHMOD003
00046 000000000002
00047 400000000000
1 FAP PAGE 1
POST PROCESSOR ASSEMBLY DATA
50 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
32 A 32, 36
2 X4 4, 10, 32
34 ZZZ 30
0 GNAM 7
43 MODE 6, 12, 21, 25
42 MODES 20
1 CHFILE 22
4 CHMODE 0, 4
44 FILNAM 11, 23, 24
0 NO ERROR IN ABOVE ASSEMBLY.
CHNC BCD 05/28/67 2256.8 736 00000
1 FAP PAGE 1
* CHNCOM
*FAP TSX CHNCOM,4
* PZE K
*MAD EXECUTE CHNCOM.(K)
*FORTRAN CALL CHNCOM.(K)
* IF NO COMMAND IS SET IN THE CHAIN LIST, USER'S STATUS WILL
* BE DEAD FOR K=0, DORMANT FOR K=1.
* AUGUST 64 LOUIS POUZIN
*
BINARY CARD NO. CHNCOM00
00003 ENTRY CHNCOM
00032 ENTRY DEAD
00033 ENTRY DORMNT
TRANSFER VECTOR
BINARY CARD NO. CHNCOM01
00000 274521446060 GNAM
LINKAGE DIRECTOR
00001 000000000000
00002 233045234644
00001 X4 SYN *-2
00003 -0634 00 4 00001 CHNCOM SXD X4,4
00004 0634 00 1 00014 SXA X1,1
00005 0602 00 0 00031 SLW LAC
00006 0074 00 4 00000 TSX $GNAM,4 CHECKS TYPE OF ARGUMENT
00007 0 00000 0 00001 PZE X4
00010 -0534 00 4 00001 LXD X4,4
00011 0734 00 1 00000 PAX ,1
00012 0522 00 1 00025 XEC A,1
00013 0621 00 0 00017 STA C
00014 0774 00 1 00000 X1 AXT **,1
00015 -0774 00 4 00016 AXC *+1,4
00016 0101 00 0 00034 TIA =HCHNCOM
TD 00017 3 00000 0 00000 C TXH ** ARGUMENT FOR CORE IMAGE
00020 SYN * POSSIBLE RETURN
00020 -0534 00 4 00001 LXD X4,4
00021 0020 00 4 00002 TRA 2,4 ALWAYS RETURN 2,4, ANY CALL.
00022 -0500 60 4 00001 CAL* 1,4 MAD CALL
00023 0074 00 1 00026 TSX B,1 FORTRAN CALL
BINARY CARD NO. CHNCOM02
00024 -0500 00 4 00001 CAL 1,4 FAP CALL
00025 -0500 00 0 00031 A CAL LAC OLD CHNCOM CALL
00026 -0500 60 4 00001 B CAL* 1,4
00027 0771 00 0 00022 ARS 18 SHIFT INTO ADDRESS
00030 0020 00 1 00001 TRA 1,1
1 FAP PAGE 2
00031 0 00000 0 00000 LAC PZE TEMP. FOR LAC CONTENT
00032 0101 00 0 00035 DEAD TIA =HDEAD
00033 0101 00 0 00036 DORMNT TIA =HDORMNT
END
LITERALS
00034 233045234644
00035 242521246060
00036 244651444563
1 FAP PAGE 1
POST PROCESSOR ASSEMBLY DATA
37 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
25 A 12
26 B 23
17 C 13
14 X1 4
1 X4 3, 7, 10, 20
31 LAC 5, 25
32 DEAD 0
0 GNAM 6
3 CHNCOM 0
33 DORMNT 0
0 NO ERROR IN ABOVE ASSEMBLY.
CLER BCD 10/12/70 1344.4 2756 00000
1 FAP 12/15/69 1622.7 PAGE 1
* .CLEAR CORE-B WRITE-AROUND FOR OLD SUP. ENTRY .CLEAR CG
00012 ENTRY .CLEAR
EXTERN OPEN,BUFFER,WRFILE,DELFIL,CLOSE
EXTERN FREE,FRET,IODIAG
MADARG MACRO X
IRP X
PTH X
IRP
MADARG END
OPEN MACRO STATUS,F1,F2,MODE,DEVICE
TSX OPEN,4
MADARG (STATUS,F1,F2,MODE,DEVICE)
OPEN END
WRFILE MACRO F1,F2,L,E
TSX WRFILE,4
MADARG (F1,F2,L)
TIX E
WRFILE END
BUFFER MACRO F1,F2,ARRAY
TSX BUFFER,4
MADARG (F1,F2)
TIX ARRAY
BUFFER END
CLOSE MACRO F1,F2
TSX CLOSE,4
MADARG (F1,F2)
CLOSE END
DELFIL MACRO F1,F2
TSX DELFIL,4
MADARG (F1,F2)
DELFIL END
TRANSFER VECTOR
00000 464725456060 OPEN
00001 226426262551 BUFFER
00002 665126314325 WRFILE
00003 242543263143 DELFIL
00004 234346622560 CLOSE
00005 265125256060 FREE
00006 265125636060 FRET
00007 314624312127 IODIAG
LINKAGE DIRECTOR
00010 000000000000
00011 332343252151
1 FAP 12/15/69 1622.7 PAGE 2
00012 0634 00 4 00114 .CLEAR SXA IR4,4
00013 0074 00 4 00172 TSX CKDISK,4 USER SUBROUTINE TO RESERVE DISK SPACE
00014 0441 00 0 00220 LDI 2C4 GET ERROR RETURN IF ANY
00015 0074 00 4 00120 TSX CKERTN,4 ..
00016 -0620 00 0 00046 SLQ CLR1
00017 -0620 00 0 00053 SLQ CLR2
00020 -0620 00 0 00071 SLQ CLR3
00021 -0620 00 0 00076 SLQ CLR4
00022 0074 00 4 00005 TSX FREE,4 GET BUFFER-STORAGE AREA
00023 0 00000 0 00232 PZE BUFFL ..
00024 0621 00 0 00052 STA CLR5+3
00025 0621 00 0 00066 STA (CLRB+4
00026 0601 00 0 00241 STO TEMP .. SAVE FOR RETURN
00027 0361 00 0 00232 ACL BUFFL
00030 0621 00 0 00032 STA CLR6
00031 0774 00 4 00660 AXT NWDSPT,4
00032 0600 00 4 00000 CLR6 STZ **,4
00033 2 00001 4 00032 TIX *-1,4,1
00034 DELFIL FILNAM,FILNAM+1 DELETE ANY OLD COPIES OF FILE
00037 MADARG *+1 .. IGNORE ERROR RETURN
00040 OPEN W,FILNAM,FILNAM+1,MODE,=2 OPEN FILE FOR WRITING
00046 CLR1 MADARG DERTN .. POSSIBLE ERROR RETURN
00047 CLR5 BUFFER FILNAM,FILNAM+1,(**,,BUFFL) ASSIGN BUFFER
00053 CLR2 MADARG DERTN .. POSSIBLE ERROR RETURN
00054 -0534 00 2 00217 LXD 1C4,2 LENGTH OF FILE TO BE ZEROED
00055 0774 00 4 00660 AXT NWDSPT,4 INITIALIZE L
00056 0634 00 4 00237 SXA L,4 ..
00057 2 00660 2 00062 (CLR1 TIX (CLRB,2,NWDSPT DECREASE COUNT BY NWDSPT
00060 0634 00 2 00237 SXA L,2 ZERO REST OF WORDS IN LAST TRACK
00061 0774 00 2 00000 AXT 0,2 INDICATE LAST WRITE
00062 (CLRB WRFILE FILNAM,FILNAM+1,Q0,(**,,L) WRITE ZEROES
00067 MADARG (OMIT,OMIT) .. POSSIBLE ERROR RETURN
00071 CLR3 MADARG DERTN ..
00072 3 00000 2 00057 TXH (CLR1,2,0 ANY MORE TRACKS TO WRITE
00073 CLOSE FILNAM,FILNAM+1 FILE AWAY FILE
00076 CLR4 MADARG DERTN .. POSSIBLE ERROR RETURN
00077 0074 00 4 00006 TSX FRET,4 RETURN BUFFER AREA
00100 0 00000 0 00232 PZE BUFFL *** FIX - RAR 12/15/69
00101 0 00000 0 00241 PZE TEMP
00102 -0774 00 2 00003 AXC 3,2 RETURN 2 OR 3,4
00103 0441 00 2 00215 LDI 1C4-2,2 GET POSSIBLE ERROR RETURN
00104 -0054 00 377777 LFT 377777 IS IT
00105 1 00001 2 00106 TXI *+1,2,1 NO..ADJUST RETURN POINTER
00106 0636 00 2 00117 SCA RET,2 SET UP RETURN
00107 0600 00 0 00235 STZ ILC .. INDICATE NOT ALREADY SET UP
00110 -0500 00 0 00234 RETRNX CAL LAC RESTORE MACHINE CONDITIONS
00111 0441 00 0 00233 LDI IND ..
00112 0774 00 1 00000 IR1 AXT **,1 ..
00113 0774 00 2 00000 IR2 AXT **,2 ..
00114 0774 00 4 00000 IR4 AXT **,4 ..
00115 0520 00 0 00235 ZET ILC AND RETURN TO CALLER
00116 0020 60 0 00235 TRA* ILC
00117 0020 00 4 00000 RET TRA **,4
1 FAP 12/15/69 1622.7 PAGE 3
CKERTN ..... CHECK FOR POSSIBLE ERROR RETURN IN DISK CALL
00120 0600 00 0 00147 CKERTN STZ ERRET IN CASE OF NO ERROR RETURN
00121 0560 00 0 00130 LDQ NOP
00122 -0054 00 377777 LFT 377777 HAS AN ERROR RETURN BEEN PROVIDED
00123 0020 00 4 00001 TRA 1,4 NO, RETURN
00124 0560 00 0 00127 LDQ PTH YES
00125 0604 00 0 00147 STI ERRET SET UP FOR POSSIBLE ERROR
00126 0020 00 4 00001 TRA 1,4 RETURN
00127 PTH MADARG 0
00130 0761 00 0 00000 NOP NOP
00131 DERTN EQU *
00131 0074 00 4 00007 TSX IODIAG,4 OTHERWISE, GET IO DIAGNOSTIC
00132 3 00003 0 00221 PTH FILNAM,,3 ..
00133 -0500 00 0 00222 CAL FILNAM+1 GET NAME OF DISK CALL
00134 0534 00 2 00223 LXA FILNAM+2,2 GET ERROR CODE
00135 0774 00 4 00006 AXT DERTC2-DERTC1,4
00136 -0340 00 4 00156 LAS DERTC2,4 CHECK FOR SPECIAL ERROR RETURNS
00137 0020 00 0 00141 TRA *+2 ..
00140 0020 00 4 00157 TRA DERTC2+1,4 .. FOUND
00141 2 00002 4 00136 TIX *-3,4,2 ..
00142 -0500 00 0 00242 DERTB1 CAL =1 IF NOT SPECIAL ERROR, GIVE STANDARD
00143 0602 00 0 00234 DERTB2 SLW LAC INVALID CALLING SEQUENCE CODE
00144 0500 00 0 00147 CLA ERRET SET UP RETURN TO USER ERROR RETRUN
00145 0621 00 0 00235 STA ILC ..
00146 0020 00 0 00110 TRA RETRNX
00147 ERRET BSS 1
00150 464725456060 DERTC1 BCI 1,OPEN
00151 1 77774 2 00156 TXI DERTD1,2,-4
00152 665126314325 BCI 1,WRFILE
00153 1 77772 2 00164 TXI DERTD2,2,-6
00154 242543263143 BCI 1,DELFIL
00155 1 77775 2 00167 TXI DERTD3,2,-3
00156 DERTC2 BSS 0 END OF SPECIAL ERROR TABLE
00156 -0500 00 0 00243 DERTD1 CAL =2 TOO MANY ACTIVE FILES
00157 -3 00000 2 00143 TXL DERTB2,2,0
00160 -0500 00 0 00244 CAL =5 FILE NOT FOUND CODE
00161 1 77770 2 00162 TXI *+1,2,-8 .. IS NEW CODE 12 FOR OPEN
00162 -3 00000 2 00143 TXL DERTB2,2,0
00163 1 77775 2 00164 TXI *+1,2,-3
00164 3 00000 2 00142 DERTD2 TXH DERTB1,2,0 NOT A SPECIAL ERROR
00165 -0500 00 0 00245 CAL =6 TRACK QUOTA EXHAUSTED CODE
00166 0020 00 0 00143 TRA DERTB2
00167 3 00000 2 00142 DERTD3 TXH DERTB1,2,0 NOT A SPECIAL ERROR
00170 -0500 00 0 00244 CAL =5 FILE NOT FOUND CODE
00171 0020 00 0 00143 TRA DERTB2
00172 0634 00 4 00215 CKDISK SXA CKDX4,4 SET UP FOR AND CHECK DISK ROUTINE CALL
00173 0634 00 1 00112 SXA IR1,1 .. SAVE MACHINE CONDITIONS
00174 0634 00 2 00113 SXA IR2,2 ..
00175 0604 00 0 00233 STI IND ..
1 FAP 12/15/69 1622.7 PAGE 4
00176 0534 00 4 00114 LXA IR4,4
00177 -0500 00 4 00001 CAL 1,4 .. AND PICK UP ARGUMENTS
00200 0602 00 0 00217 SLW 1C4
00201 -0500 00 4 00002 CAL 2,4 ..
00202 0602 00 0 00220 SLW 2C4
00203 0535 00 4 00217 LAC 1C4,4 PICK UP FILE NAMES
00204 -0500 00 4 00000 CAL 0,4 ..
00205 0560 00 4 00001 LDQ 1,4 ..
00206 0602 00 0 00221 SLW FILNAM SAVE FILE NAMES IF ANY
00207 -0600 00 0 00222 STQ FILNAM+1 ..
00210 0500 00 0 00217 CLA 1C4 CONVERT MODE
00211 0771 00 0 00017 ARS 15 ..
00212 -0734 00 4 00000 PDX 0,4 ..
00213 0500 00 4 00227 CLA MODES,4 ..
00214 0601 00 0 00230 STO MODE
00215 0774 00 4 00000 CKDX4 AXT **,4 DISK CALL OK, RESTORE IR4
00216 0020 00 4 00001 TRA 1,4 AND RETURN
00217 0 00000 0 00000 1C4 PZE 0 SYSTEM SUBROUTINE ARGUMENT TABLE
00220 0 00000 0 00000 2C4 PZE 0 ..
00221 FILNAM BSS 3
00224 +000000000104 OCT 104 OLD R2 MODE
00225 +000000000104 OCT 104 OLD R1 MODE
00226 0 00000 0 00000 PZE 0 OLD P MODE
00227 0 00000 0 00001 MODES PZE 1 OLD T MODE
TABLE OF OLD-NEW MODE EQUIVALENCES
00230 MODE BSS 1
00231 -0 00000 0 00000 OMIT MZE 0 CODE FOR OMITTED ARGUMENTS IN DISK CALLS
00660 NWDSPT EQU 432
00232 0 00000 0 00660 BUFFL PZE NWDSPT
00233 0 00000 0 00000 IND
00234 0 00000 0 00000 LAC
00235 0 00000 0 00000 ILC
00236 666060606060 W BCI 1,W
00237 0 00000 0 00000 L PZE 0
00240 0 00000 0 00000 Q0 PZE 0
00241 TEMP BSS 1
END
LITERALS
00242 000000000001
00243 000000000002
00244 000000000005
00245 000000000006
1 FAP 12/15/69 1622.7 PAGE 1
POST PROCESSOR ASSEMBLY DATA
246 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
237 L 56, 60, 66
236 W 41
240 Q0 65
217 1C4 54, 103, 200, 203, 210
220 2C4 14, 202
235 ILC 107, 115, 116, 145
233 IND 111, 175
112 IR1 173
113 IR2 174
114 IR4 12, 176
234 LAC 110, 143
130 NOP 121
127 PTH 124
117 RET 106
46 CLR1 16
53 CLR2 17
71 CLR3 20
76 CLR4 21
47 CLR5 24
32 CLR6 30
5 FREE 22
6 FRET 77
230 MODE 44, 214
231 OMIT 67, 70
0 OPEN 40
241 TEMP 26, 101
232 BUFFL 23, 27, 52, 100
215 CKDX4 172
4 CLOSE 73
131 DERTN 46, 53, 71, 76, 131
147 ERRET 120, 125, 144
227 MODES 213
57 (CLR1 72
62 (CLRB 25, 57
1 BUFFER 47
172 CKDISK 13
120 CKERTN 15
3 DELFIL 34
142 DERTB1 164, 167
143 DERTB2 157, 162, 166, 171
150 DERTC1 135
156 DERTC2 135, 136, 140
156 DERTD1 151
164 DERTD2 153
167 DERTD3 155
221 FILNAM 35, 36, 42, 43, 50, 51, 63, 64, 74, 75, 132, 133, 134, 206, 207
7 IODIAG 131
12 .CLEAR 0
660 NWDSPT 31, 55, 57, 232
110 RETRNX 146
2 WRFILE 62
1 FAP 12/15/69 1622.7 PAGE 2
POST PROCESSOR ASSEMBLY DATA
0 NO ERROR IN ABOVE ASSEMBLY.
CLOC BCD 05/28/67 2256.8 166 00000
1 PAGE 1
00000 ENTRY CLOCON
00001 ENTRY CLOCOF
00000 0101 00 0 00003 CLOCON TIA =HCLOCON
00001 0101 00 0 00002 CLOCOF TIA =HCLOCOF
END
LITERALS
00002 234346234626
00003 234346234645
1 PAGE 1
POST PROCESSOR ASSEMBLY DATA
4 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
1 CLOCOF 0
0 CLOCON 0
0 NO ERROR IN ABOVE ASSEMBLY.
CMFL BCD 06/25/69 2034.0 586 00000
1 FAP PAGE 1
* COMFL SWITCHES COMMON FILES
* EXECUTE COMFL.(N) WHERE N = 0-9,P
* CALL COMFL(N) WHERE N = 0,1,2,3,4, 6H00000P
* IF COMMON FILE IS BUSY, RETURNS GUY'S NUMBER IN AC(S,1-35)
* OTHERWISE RETURNS ZERO
* COMPUTATION CENTER LOUIS POUZIN
* MARCH 63
REVISED FOR NEW FILE SYSTEM NOV. 1966
D.R. WIDRIG
BINARY CARD NO. COMFL000
00004 ENTRY COMFL
TRANSFER VECTOR
BINARY CARD NO. COMFL001
00000 274521446060 GNAM
00001 234644263143 COMFIL
LINKAGE DIRECTOR
00002 000000000000
00003 234644264360
00002 X4 SYN *-2
00004 COMFL SYN *
00004 -0634 00 4 00002 SXD X4,4
00005 0074 00 4 00000 TSX $GNAM,4
00006 0 00000 0 00002 PZE X4
00007 -0534 00 4 00002 LXD X4,4
00010 0560 60 4 00001 LDQ* 1,4
00011 0402 00 0 00027 SUB =2
00012 -0100 00 0 00021 TNZ A SKIP IF NOT FORTRAN CALL
00013 -0130 00 0 00000 XCL
00014 -0340 00 0 00030 LAS =H00000P
00015 0020 00 0 00017 TRA *+2
00016 0020 00 0 00022 TRA A+1 PUBLIC POOL
00017 0771 00 0 00022 ARS 18
00020 0020 00 0 00022 TRA A+1
00021 -0130 00 0 00000 A XCL
00022 0074 00 4 00001 TSX $COMFIL,4
TD 00023 3 00000 0 00024 TXH *+1 SHOULD NEVER GET HERE
BINARY CARD NO. COMFL002
00024 -0754 00 0 00000 ZAC PRETEND NOBODY IN COMMON FILE
00025 -0534 00 4 00002 LXD X4,4
00026 0020 00 4 00002 TRA 2,4
END
LITERALS
00027 000000000002
00030 000000000047
1 FAP PAGE 1
POST PROCESSOR ASSEMBLY DATA
31 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
21 A 12, 16, 20
2 X4 4, 6, 7, 25
0 GNAM 5
4 COMFL 0, 4
1 COMFIL 22
0 NO ERROR IN ABOVE ASSEMBLY.
CMLC BCD 06/25/69 2034.0 1703 00000
1 COMLOC - GET CTSS COMMON LOCATION. 06/21/69 1849.0 PAGE 1
7/18/65 - NOEL I. MORRIS
00015 ENTRY COMLOC
EXTERN FSTATE,OPEN,RDFILE,CLOSE,WRFLX
EXTERN TSSFIL,USRFIL,GETMEM,SETMEM,WHOAMI
UNLIST
1 COMLOC - GET CTSS COMMON LOCATION. 06/21/69 1849.0 PAGE 2
FIND SYMBOL VALUE IN SYMBOL TABLE.
00015 0634 00 4 00045 COMLOC SXA XR4,4 SAVE XR4
00016 -0520 00 0 00151 NZT SUBSQ CHECK FOR FIRST ENTRY
00017 0020 00 0 00051 TRA READIN FIRST TIME, GO READ IN SYMBOL TABLE
00020 -0500 60 4 00001 GET CAL* 1,4 GET SYMBOL
00021 0100 00 0 00047 TZE GETNAM ARGUMENT ZERO - GET SYSTEM ANME
00022 -0774 00 4 00000 SC AXC **,4 SYMBOL TABLE COUNT
00023 -0340 00 4 00000 LAS LAS **,4 SEARCH FOR SYMBOL
00024 0020 00 0 00026 TRA *+2 ..
00025 1 00001 4 00041 TXI FOUND,4,1 FOUND, GO GET IT
00026 2 00002 4 00023 TIX *-3,4,2 ..
00027 0602 00 0 00152 SLW NOTFND NOT FOUND, PRINT COMMENT
00030 0534 00 4 00045 LXA XR4,4 BUT FIRST TEST FOR AN ERROR RETURN
00031 -0500 00 4 00002 CAL 2,4 IN THE NEXT ARGUMENT
00032 -0320 00 0 00165 ANA =O777777700000 GET PREFIX,TAG AND DECREMENT
00033 0322 00 0 00163 ERA =O300000000000 MAKE SURE ITS A PTH
00034 0100 60 4 00002 TZE* 2,4 RETURN WITH ZERO AC TO ERROR LOC
00035 TYPE (/****** NOT FOUND IN SYMBOL TABLE./),NOTFND
00037 -0754 00 0 00000 ZAC SET VALUE TO ZERO
00040 0020 00 0 00045 TRA XR4 AND RETURN
00041 -0500 60 0 00023 FOUND CAL* LAS GET VALUE IN BCD OCTAL
00042 0602 00 0 00147 SLW TEM TEMPORARY FOR BCOCT
00043 CALL $BCOCT(TEM) CONVERT TO BINARY
00045 0774 00 4 00000 XR4 AXT **,4 RESTORE XR4
00046 0020 00 4 00002 TRA 2,4 RETURN
00047 0500 00 0 00150 GETNAM CLA SYSNAM GET NAME OF CTSS IN USE
00050 0020 00 0 00045 TRA XR4 RETURN
1 COMLOC - GET CTSS COMMON LOCATION. 06/21/69 1849.0 PAGE 3
READ IN (LOAD FILE) AND SYMTB FILE.
00051 -0625 00 0 00151 READIN STL SUBSQ SET SUBSEQUENT ENTRY INDIC.
00052 0634 00 1 00140 SXA XR1,1 SAVE XRS
00053 0634 00 2 00141 SXA XR2,2 ..
00054 CALL WHOAMI((BUFF,,4)) GET NAME OF SYSTEM
00056 CALL TSSFIL SWITCH INTO CTSS FILES
00057 -0500 00 0 00150 CAL SYSNAM GET SYSTEM NAME
00060 -0320 00 0 00162 ANA =O770000 NUMBER FOR SYMTB FILE
00061 -0602 00 0 00144 ORS SFL ..
00062 CALL FSTATE(SFL,SFL+1(LTH,,1)) FIND LENGTH OF SYMTB FILE
00066 0534 00 4 00146 LXA LTH,4 SET UP WORDCOUNT IN RDFILE
00067 -0634 00 4 00111 SXD RSF+4,4 ..
00070 CALL GETMEM GET CURRENT MEMORY BOUND
00071 0621 00 0 00111 STA RSF+4 STORE FOR RDFILE
00072 0737 00 2 00000 PAC ,2 POINTERS TO BUFFER ORG
00073 0737 00 1 00000 PAC ,1 ..
00074 0361 00 0 00146 ACL LTH INCREASE MEMBND TO FIT FILE
00075 0734 00 4 00000 PAX ,4 STORE FOR REFORMAT CHECK
00076 1 77776 4 00077 TXI *+1,4,-2 ..
00077 -0636 00 4 00127 SCD TXL,4 ..
00100 CALL SETMEM RESET MEMORY BOUND
00101 CALL OPEN(=HR,SFL,SFL+1) READ SYMTB FILE
00105 RSF CALL RDFILE(SFL,SFL+1,=0(**,,**))
00112 CALL CLOSE(SFL,SFL+1) ..
00115 CALL USRFIL RETURN TO USER'S FILE DIRECTORY
1 COMLOC - GET CTSS COMMON LOCATION. 06/21/69 1849.0 PAGE 4
REFORMAT SYMBOL TABLE FOR FAST LOOKUP.
00116 0774 00 4 00004 AXT 4,4 FOUR ENTRIES PER CARD
00117 -0500 00 1 00000 LOOP CAL ,1 GET VALUE IN OCTAL BCD
00120 0602 00 2 00000 SLW ,2 STORE IN COMPACTED TABLE
00121 -0500 00 1 00001 CAL 1,1 SYMBOL IN BCD
00122 0560 00 1 00002 LDQ 2,1 ..
00123 -0763 00 0 00022 LGL 18 SHIFT INTO AC
00124 0602 00 2 00001 SLW 1,2 STORE
00125 1 77775 1 00126 TXI *+1,1,-3 NEXT SYMBOL
00126 1 77776 2 00127 TXI *+1,2,-2 ..
00127 -3 00000 1 00132 TXL TXL END,1,** CHECK FOR END
00130 2 00001 4 00117 TIX LOOP,4,1 NEXT ENTRY
00131 1 77776 1 00116 TXI LOOP-1,1,-2 SET PICKUP FOR NEXT CARD
00132 0756 00 2 00000 END PCA ,2 FIRST LOC'N NOT USED BY TABLE
00133 0621 00 0 00023 STA LAS STORE FOR LOOKUP
00134 CALL SETMEM AND RESET MEMORY BOUND
00135 0402 00 0 00111 SUB RSF+4 CALCULATE LENGTH OF TABLE
00136 0361 00 0 00161 ACL =1 ..
00137 0621 00 0 00022 STA SC ..
00140 0774 00 1 00000 XR1 AXT **,1 RESTORE XRS
00141 0774 00 2 00000 XR2 AXT **,2 ..
00142 0534 00 4 00045 LXA XR4,4 ..
00143 0020 00 0 00020 TRA GET NOW GO GET SYMBOL VALUE
1 COMLOC - GET CTSS COMMON LOCATION. 06/21/69 1849.0 PAGE 5
STORAGE AND CONSTANTS.
00144 234644000000 SFL BCI 2,COM000 SYMTB
00145 606270446322
00146 BUFF SYN *
00146 0 00000 0 00000 LTH PZE
00147 0 00000 0 00000 TEM PZE
00150 0 00000 0 00000 SYSNAM PZE
00151 0 00000 0 00000 SUBSQ PZE
END
REMOTE SEQUENCES
1 COMLOC - GET CTSS COMMON LOCATION. 06/21/69 1849.0 PAGE 1
POST PROCESSOR ASSEMBLY DATA
166 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
22 SC 137
132 END 127
20 GET 143
23 LAS 41, 133
146 LTH 65, 66, 74
105 RSF 67, 71, 135
144 SFL 61, 63, 64, 103, 104, 106, 107, 113, 114
147 TEM 42, 44
127 TXL 77
140 XR1 52
141 XR2 53
45 XR4 15, 30, 40, 50, 142
146 BUFF 55, 146
117 LOOP 130, 131
1 OPEN 101
12 BCOCT 43
3 CLOSE 112
41 FOUND 25
6 ..001 36, 160
151 SUBSQ 16, 51
4 WRFLX 35
15 COMLOC 0
0 FSTATE 62
7 GETMEM 70
47 GETNAM 21
152 NOTFND 27, 36, 160
2 RDFILE 105
51 READIN 17
10 SETMEM 100, 134
150 SYSNAM 47, 57
5 TSSFIL 56
6 USRFIL 115
11 WHOAMI 54
0 NO ERROR IN ABOVE ASSEMBLY.
COLT BCD 05/28/67 2256.8 1804 00000
1 FAP PAGE 1
* COLT SCANS A CALLING SEQUENCE
* RETURNS NUMBER OF ARGUMENTS, AND TYPE OF CALLING
* COMPUTATION CENTER LOUIS POUZIN
* MARCH 64
* CALLING SEQUENCE
* THE CALLING PROGRAM HAS IR4 STORED IN X4, AND WANTS TO
* KNOW WHAT TYPE OF ARGUMENTS ARE TO BE PROCESSED
* TSX $COLT,4
* PZE X4
* STA CALL TYPE 0= UNKNOWN
* 1= FAP
* 2= FORTRAN
* 3= MAD
* STD NUMBER OF ARGUMENTS
* IX4 CONTAINS THE CORRECT RETURN TO THE CALLING PROGRAM
* I.E. WITH TRA 0,4, OR SCA RET,4 RET TRA **
*
* ALSO COLT PROVIDES UTILITY ROUTINES WHICH MAY BE USED
* BY A SUBROUTINE DURING THE PROCESS OF ARGUMENTS
* CAL* $COLT
* STA SELAR
* ARS 18
* STA MDL
* THEN THE SUBROUTINE MAY CALL SELAR OR MDL WITHOUT USING IR4
*
* CAL ARGUMENT TO EXAMINE
* AXT *+2,1
* TRA* SELAR
* AC CONTAINS THE RELEVANT PART OF THE PREFIX (TXH, TSX,...)
* IX1 IS =0 UNKNOWN
* =1 FAP
* =2 FORTRAN
* =3 MAD, SINGLE
* =4 MAD, LIST, TIX
* =5 MAD, LIST, STR
*
* CAL ARGUMENT TO EXAMINE
* TSX MDL,1
* STA NUMBER OF WORDS IN THE LIST
* STD INCREMENT FOR INDEX (1 OR 77777)
* SIGN IS + IF FORWARD, - IF BACKWARD
* PREFIX IS TXH IF FORWARD, TXL IF BACKWARD
BINARY CARD NO. COLT0000
00002 ENTRY COLT
LINKAGE DIRECTOR
BINARY CARD NO. COLT0001
00000 000000000000
00001 234643636060
1 FAP PAGE 2
00002 3 00062 0 00035 COLT TXH SELAR,,MDL
00003 0600 00 0 00075 STZ ART
00004 -0500 60 4 00001 CAL* 1,4
00005 1 77776 4 00006 TXI *+1,4,-2
00006 0636 00 4 00034 SCA X4,4 SET RETURN ADDRESS
00007 0634 00 1 00032 SXA X1,1
00010 -0734 00 4 00000 PDX ,4 IX4 OF CALL TO EXAMINE
00011 -0636 00 4 00027 SCD B,4
00012 0622 00 0 00034 STD X4 SAVE X4 IN CALLER'S CALLER
00013 -0500 00 4 00001 A CAL 1,4
00014 0774 00 1 00016 AXT C,1
00015 0020 00 0 00035 TRA SELAR
00016 -3 00003 1 00020 C TXL D,1,3
00017 0774 00 1 00003 AXT 3,1 HERE FOR MAD LIST ARG
D 00020 -3 00000 1 00027 D TXL B,1 SKIP IF UNKNOWN TYPE
00021 -0520 00 0 00075 NZT ART
00022 0634 00 1 00075 SXA ART,1 STORE CODE ON 1ST TIME
00023 0754 00 1 00000 PXA ,1
BINARY CARD NO. COLT0002
00024 0402 00 0 00075 SUB ART
00025 -0100 00 0 00027 TNZ B SKIP WHEN NOT SAME TYPE
00026 1 77777 4 00013 TXI A,4,-1 NEXT ARGUMENT
00027 1 00000 4 00030 B TXI *+1,4,** LAST IX4 - FIRST
00030 -0756 00 4 00000 PCD ,4 ARGUMENT COUNT
00031 0400 00 0 00075 ADD ART CALL TYPE
00032 0774 00 1 00000 X1 AXT **,1
00033 1 77777 4 00034 TXI *+1,4,-1
00034 1 00000 4 00000 X4 TXI **,4,** RETURN WITH IX4 SETTING
* SELAR RETURNS IN IX1 A CODE SPECIFYING THE TYPE OF ARGUMENT.
* LAC CONTAINS TYPICAL PATTERN OF THE PREFIX
* I.E. TSX 0,0 TXH 0,0,0 TIX 0,0,0 STR 0,0,0 PZE
*CALL AXT LOC,1
* TRA SELAR
*LOC *** F.EX. XEC INS,1
00035 -0320 00 0 00056 SELAR ANA PRFX-1 ERASE ADDRESS
00036 0634 00 1 00052 SXA R,1 SAVE RETURN
00037 0774 00 1 00004 AXT 4,1
00040 -0340 00 1 00057 L LAS PRFX,1
00041 0020 00 0 00043 TRA *+2
00042 0020 00 0 00052 TRA R
00043 2 00001 1 00040 TIX L,1,1
00044 -0320 00 0 00061 ANA PRFX1-1 TRY LIST ARGUMENT
00045 0774 00 1 00003 AXT 3,1
00046 -0340 00 1 00062 M LAS PRFX1,1
00047 0020 00 0 00051 TRA *+2
BINARY CARD NO. COLT0003
00050 1 00003 1 00052 TXI R,1,3
00051 2 00001 1 00046 TIX M,1,1
00052 1 77777 1 00000 R TXI **,1,-1
1 FAP PAGE 3
ATD 00053 3 00000 0 00000 TXH IX1=3, MAD SINGLE ARG
AT 00054 0074 00 0 00000 TSX IX1=2, FORTRAN ARG
00055 0 00000 0 00000 PZE IX1=1, FAP ARG
00056 -3 77777 7 00000 SVN ,7,-1 IX1=0, UNKNOWN ARG TYPE
00057 PRFX SYN *
00057 -1 00000 0 00000 STR IX1=5, MAD LIST ARG
ATD 00060 2 00000 0 00000 TIX IX1=4, MAD LIST ARG
00061 -3 00000 7 00000 SVN ,7
00062 PRFX1 SYN *
* MDL HANDLES LIST ARGUMENTS
* CAL ARGUMENT
* TSX MDL,1
* STA WORD COUNT
* STD INCREMENT FOR INDEX
* S+ IF FORWARD, S- IF BACKWARD.
* PREFIX IS TXH IF FORWARD, TXL IF BACKWARD
00062 0621 00 0 00074 MDL STA AA FIRST WORD ADDRESS
00063 -0320 00 0 00077 ANA =O77777000000 KEEP DECREMENT
00064 0771 00 0 00022 ARS 18 LAST WORD ADDRESS
00065 0402 00 0 00074 SUB AA LAST - FIRST
00066 0361 00 0 00076 ACL =1
00067 -0120 00 0 00072 TMI E
00070 -0501 00 0 00100 ORA =O377777000000 INCREMENT FORWARD
00071 0020 00 1 00001 TRA 1,1
00072 -0501 00 0 00101 E ORA =O700001000000 INCREMENT BACKWARD
00073 0020 00 1 00001 TRA 1,1
BINARY CARD NO. COLT0004
00074 0 00000 0 00000 AA PZE
00075 0 00000 0 00000 ART PZE TYPE OF CALLING SEQUENCE
END
LITERALS
00076 000000000001
00077 077777000000
00100 377777000000
00101 700001000000
1 FAP PAGE 1
POST PROCESSOR ASSEMBLY DATA
102 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
13 A 26
27 B 11, 20, 25
16 C 14
20 D 16
72 E 67
40 L 43
46 M 51
52 R 36, 42, 50
74 AA 62, 65
32 X1 7
34 X4 6, 12
75 ART 3, 21, 22, 24, 31
62 MDL 2
2 COLT 0
57 PRFX 35, 40, 57
62 PRFX1 44, 46, 62
35 SELAR 2, 15
0 NO ERROR IN ABOVE ASSEMBLY.
COM0 BCD 05/28/67 2256.8 289 00000
1 FAP PAGE 1
* PERFORMS THE OPERATIONS COM, ANA, AND ORA FOR MAD PROGRAMS
00002 ENTRY COM
00005 ENTRY ORA
00010 ENTRY ANA
LINKAGE DIRECTOR
00000 000000000000
00001 234644606060
00002 -0500 60 4 00001 COM CAL* 1,4
00003 0760 00 0 00006 COM
00004 1 00001 4 00012 TXI ANA+2,4,1 INCREASE COMPLEMENT OF RETURN ADDRESS BY 1
00005 -0500 60 4 00001 ORA CAL* 1,4
00006 -0501 60 4 00002 ORA* 2,4
00007 0020 00 0 00012 TRA ANA+2
00010 -0500 60 4 00001 ANA CAL* 1,4
00011 -0320 60 4 00002 ANA* 2,4
00012 -0130 00 0 00000 XCL
00013 0131 00 0 00000 XCA
00014 0020 00 4 00003 TRA 3,4
END
1 FAP PAGE 1
POST PROCESSOR ASSEMBLY DATA
15 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
10 ANA 0, 4, 7
2 COM 0
5 ORA 0
0 NO ERROR IN ABOVE ASSEMBLY.
COMA BCD 05/28/67 2256.8 708 00000
1 FAP PAGE 1
* COMARG
* GET SPECIFIED ARGUMENT FROM COMMAND BUFFER, RIGHT JUSTIFIED
* CALLING SEQUENCE
*FAP TSX COMARG,4
* PZE =N N.TH ARG.
* (PZE ARG ARGUMENT)
* STO ARG ARGUMENT
* MAD EXECUTE COMARG.(N, ARG)
* ARG=COMARG.(N, ARG1) ARG1 OPTIONAL
*FORTR CALL COMARG(N, NARG)
* K=COMARG(N, L) L OPTIONAL
* COMPUTATION CENTER LOUIS POUZIN
* JUNE 64
BINARY CARD NO. COMARG00
00004 ENTRY COMARG
TRANSFER VECTOR
BINARY CARD NO. COMARG01
00000 274521446060 GNAM
00001 272563234644 GETCOM
LINKAGE DIRECTOR
00002 000000000000
00003 234644215127
00002 X4 SYN *-2
00004 COMARG SYN *
00004 -0634 00 4 00002 SXD X4,4
00005 1 77777 4 00006 TXI *+1,4,-1
00006 -0634 00 4 00023 SXD C,4
00007 0074 00 4 00000 TSX $GNAM,4
00010 0 00000 0 00002 PZE X4
00011 -0534 00 4 00002 LXD X4,4
00012 0560 60 4 00001 LDQ* 1,4
00013 0402 00 0 00033 SUB =2
00014 -0100 00 0 00016 TNZ A SKIP IF NOT FORTRAN CALL
00015 -0773 00 0 00022 RQL 18 N IN ADDRESS
00016 -0600 00 0 00020 A STQ B
00017 0074 00 4 00001 TSX $GETCOM,4
00020 0 00000 0 00000 B PZE ** N.TH ARGUMENT
00021 0602 00 0 00020 SLW B TEMPORARY
00022 0074 00 4 00000 TSX $GNAM,4
00023 0 00000 0 00023 C PZE *,,** IX4-1 ON CALLING
BINARY CARD NO. COMARG02
00024 0560 00 0 00020 LDQ B
00025 -0534 00 4 00002 LXD X4,4
00026 0100 00 0 00031 TZE D SKIP IF SINGLE ARGUMENT
00027 -0600 60 4 00002 STQ* 2,4
1 FAP PAGE 2
00030 1 77777 4 00031 TXI *+1,4,-1 FOR RETURN IN 3,4
00031 0131 00 0 00000 D XCA
00032 0020 00 4 00002 TRA 2,4
END
LITERALS
00033 000000000002
1 FAP PAGE 1
POST PROCESSOR ASSEMBLY DATA
34 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
16 A 14
20 B 16, 21, 24
23 C 6
31 D 26
2 X4 4, 10, 11, 25
0 GNAM 7, 22
4 COMARG 0, 4
1 GETCOM 17
0 NO ERROR IN ABOVE ASSEMBLY.
COMF BCD 06/25/69 2033.2 152 00000
1 FAP PAGE 1
* SUBROUTINIZED ENTRIES TO CTSS SUPERVISOR - LP - DEC 63
00000 ENTRY COMFIL
00000 0101 00 0 00001 COMFIL TIA =HCOMFIL
END
LITERALS
00001 234644263143
1 FAP PAGE 1
POST PROCESSOR ASSEMBLY DATA
2 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
0 COMFIL 0
0 NO ERROR IN ABOVE ASSEMBLY.
COPY BCD 06/25/69 2033.2 2193 00000
1 COPY - COPY ONE FILE INTO ANOTHER. 03/18/69 1519.4 PAGE 1
1/18/66 - NOEL I. MORRIS
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*
* CALLING SEQUENCE -
*
* COPY. (IN1, IN2, OUT1, OUT2, BUFF1, BUFF2, BUFF3, NWDSPR, ERRET)
*
* IN1 = PRIMARY NAME OF INPUT FILE.
* IN2 = SECONDARY NAME OF INPUT FILE.
* OUT1 = PRIMARY NAME OF OUTPUT FILE.
* OUT2 = SECONDARY NAME OF OUTPUT FILE.
* BUFF1, BUFF2, AND BUFF3 ARE DISK BUFFERS.
* NWDSPR = LENGTH OF THE DISK BUFFERS.
* ERRET = FILE SYSTEM ERROR RETURN.
*
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
00005 ENTRY COPY
EXTERN FERRTN,FSTATE,RDFILE,WRFILE,FWAIT
UNLIST PRB'S MACRO PACKAGE 2-4-69
M CALL MACRON NAME,LIST SUBROUTINE CALL MACRO
M SAVE MACRO ID,LIST SAVE BASIC MACHINE CONDITIONS
00005 0634 00 1 00114 COPY SXA X1,1 SAVE XRS
00006 0634 00 2 00115 SXA X2,2 ..
00007 0634 00 4 00116 SXA X4,4 ..
00010 -0500 60 4 00001 CAL* 1,4 GET IN1
00011 0602 00 0 00175 SLW IN1 ..
00012 -0500 60 4 00002 CAL* 2,4 GET IN2
00013 0602 00 0 00176 SLW IN2 ..
00014 -0500 60 4 00003 CAL* 3,4 GET OUT1
00015 0602 00 0 00177 SLW OUT1 ..
00016 -0500 60 4 00004 CAL* 4,4 GET OUT2
00017 0602 00 0 00200 SLW OUT2 ..
00020 -0500 00 4 00005 CAL 5,4 GET BUFFER ADDRESSES
00021 0621 00 0 00156 STA BUFF1 ..
00022 -0500 00 4 00006 CAL 6,4 ..
00023 0621 00 0 00157 STA BUFF2 ..
00024 -0500 00 4 00007 CAL 7,4 ..
00025 0621 00 0 00160 STA BUFF3 ..
00026 -0500 60 4 00010 CAL* 8,4 GET RECORD COUNT
00027 0602 00 0 00161 SLW EOFCT ..
00030 0602 00 0 00162 SLW EOFCT+1 ..
00031 0602 00 0 00163 SLW EOFCT+2 ..
00032 CALL FERRTN SET UP FILE SYSTEM ERROR RETURN
00033 0 00000 0 00146 PZE ERR ..
00034 0621 00 0 00113 STA RETERR SAVE OLD ERROR RETURN
1 COPY - COPY ONE FILE INTO ANOTHER. 03/18/69 1519.4 PAGE 2
00035 0600 00 0 00173 STZ TEOF RESET EOF INDIC.
00036 -0625 00 0 00172 STL FIRST SET FIRST TIME INDIC.
00037 CALL FSTATE(IN1,IN2(STAT,,5)) PICK UP INPUT FILE STATUS
00043 -0774 00 1 00000 AXC 0,1 INITIALIZE INPUT BUFFER INDEX
00044 -0774 00 2 00000 AXC 0,2 INITIALIZE OUTPUT BUFFER INDEX
00045 LOOP SYN *
00045 0520 00 0 00173 ZET TEOF CHECK FOR PREVIOUS EOF
00046 0020 00 0 00072 TRA CONTIN SKIP READ IF SO
00047 -0500 00 1 00156 CAL BUFLOC,1 SET BUFFER FOR READ
00050 0602 00 0 00055 SLW RD+4 ..
00051 RD CALL RDFILE(IN1,IN2,=0(**,...,**)EOF,COUNT) READ
00060 0500 00 0 00170 CLA R.PTR STEP THE READ POINTER
00061 0400 00 0 00161 ADD EOFCT BY BUFFER LENGTH
00062 0602 00 0 00170 SLW R.PTR ..
00063 1 77777 1 00064 TXI *+1,1,-1 STEP READ BUFFER INDEX
00064 3 77775 1 00066 TXH *+2,1,-3 ..
00065 -0774 00 1 00000 AXC 0,1 ..
00066 -0520 00 0 00172 NZT FIRST IF NOT FIRST TIME,
00067 0020 00 0 00072 TRA CONTIN KEEP GOING
00070 0600 00 0 00172 STZ FIRST OTHERWISE,
00071 0020 00 0 00045 TRA LOOP GO READ ANOTHER RECORD
00072 -0500 00 2 00156 CONTIN CAL BUFLOC,2 SET BUFFER FOR WRITE
00073 0602 00 0 00100 SLW WR+4 ..
00074 WR CALL WRFILE(OUT1,OUT2,=0(**,...,**)) WRITE
00101 -0520 00 0 00173 NZT TEOF IF EOF,
00102 0020 00 0 00106 TRA WINCR ..
00103 0756 00 2 00000 PCA ,2 CHECK FOR HAVING WRITTEN LAST RECORD
00104 0402 00 0 00174 SUB EOFX ..
00105 0100 00 0 00112 TZE FINISH ..
00106 1 77777 2 00107 WINCR TXI *+1,2,-1 STEP WRITE BUFFER INDEX
00107 3 77775 2 00111 TXH *+2,2,-3 ..
00110 -0774 00 2 00000 AXC 0,2 ..
00111 0020 00 0 00045 TRA LOOP CONTINUE COPYING
00112 FINISH SYN *
00112 CALL FERRTN RESTORE OLD ERROR RETURN
00113 0 00000 0 00000 RETERR PZE ** ..
00114 0774 00 1 00000 X1 AXT **,1 RESTORE XRS
00115 0774 00 2 00000 X2 AXT **,2 ..
00116 0774 00 4 00000 X4 AXT **,4 ..
1 COPY - COPY ONE FILE INTO ANOTHER. 03/18/69 1519.4 PAGE 3
00117 0020 00 4 00012 TRA 10,4 RETURN
00120 -0625 00 0 00173 EOF STL TEOF SET EOF INDIC.
00121 CALL FSTATE(IN1,IN2(STAT,,1)) FIND LENGTH NOW
00125 0500 00 0 00164 CLA STAT LENGTH + 1 - POINTER
00126 0400 00 0 00202 ADD =1 ..
00127 0402 00 0 00170 SUB R.PTR ..
00130 0402 00 0 00171 SUB COUNT SHOULD EQUAL EOF COUNT
00131 0100 00 0 00137 TZE EOF.OK IF SO, NOTHING TO CORRECT
00132 0400 00 0 00161 ADD EOFCT LENGTH + 1 - POINTER + BUFFER LENGTH
00133 0601 00 0 00171 STO COUNT IS THE CORRECT EOF COUNT
00134 3 00000 1 00136 TXH *+2,1,0 DECREASE THE READ BUFFER INDEX
00135 -0774 00 1 00003 AXC 3,1 ..
00136 1 00001 1 00137 TXI *+1,1,1 TO CORRECT FOR MISSED EOF
00137 -0500 00 0 00171 EOF.OK CAL COUNT SET EOF COUNT
00140 0602 00 1 00161 SLW EOFCT,1 ..
00141 0636 00 1 00174 SCA EOFX,1 SAVE READ BUFFER INDEX
00142 CALL FWAIT(IN1,IN2) WAIT FOR I/O
00145 0020 00 0 00072 TRA CONTIN NOW, FINISH UP
00146 -0500 00 0 00113 ERR CAL RETERR RESTORE OLD ERROR RETURN
00147 0621 00 0 00151 STA *+2 ..
00150 CALL FERRTN ..
00151 0 00000 0 00000 PZE ** ..
00152 0522 00 0 00114 XEC X1 RESTORE XRS
00153 0522 00 0 00115 XEC X2 ..
00154 0522 00 0 00116 XEC X4 ..
00155 0020 60 4 00011 TRA* 9,4 AND TAKE ERROR RETURN
00156 BUFLOC SYN *
00156 2 00161 0 00000 BUFF1 PTW **,,EOFCT
00157 2 00162 0 00000 BUFF2 PTW **,,EOFCT+1
00160 2 00163 0 00000 BUFF3 PTW **,,EOFCT+2
00161 EOFCT BSS 3
00164 STAT BSS 5
00170 R.PTR SYN STAT+4
00171 0 00000 0 00000 COUNT PZE
00172 0 00000 0 00000 FIRST PZE
00173 0 00000 0 00000 TEOF PZE
00174 0 00000 0 00000 EOFX PZE
00175 0 00000 0 00000 IN1 PZE
00176 0 00000 0 00000 IN2 PZE
00177 0 00000 0 00000 OUT1 PZE
00200 0 00000 0 00000 OUT2 PZE
1 COPY - COPY ONE FILE INTO ANOTHER. 03/18/69 1519.4 PAGE 4
00201 RMT * REMOTE SEQUENCES.
END
LITERALS
00201 000000000000
00202 000000000001
1 COPY - COPY ONE FILE INTO ANOTHER. 03/18/69 1519.4 PAGE 1
POST PROCESSOR ASSEMBLY DATA
203 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
51 RD 50
74 WR 73
114 X1 5, 152
115 X2 6, 153
116 X4 7, 154
120 EOF 56
146 ERR 33
175 IN1 11, 40, 52, 122, 143
176 IN2 13, 41, 53, 123, 144
5 COPY 0
174 EOFX 104, 141
45 LOOP 45, 71, 111
177 OUT1 15, 75
200 OUT2 17, 76
164 STAT 42, 124, 125, 171
173 TEOF 35, 45, 101, 120
156 BUFF1 21
157 BUFF2 23
160 BUFF3 25
171 COUNT 57, 130, 133, 137
161 EOFCT 27, 30, 31, 61, 132, 140, 156, 157, 160
172 FIRST 36, 66, 70
4 FWAIT 142
170 R.PTR 60, 62, 127, 171
106 WINCR 102
156 BUFLOC 47, 72, 156
72 CONTIN 46, 67, 145
137 EOF.OK 131
0 FERRTN 32, 112, 150
112 FINISH 105, 112
1 FSTATE 37, 121
2 RDFILE 51
113 RETERR 34, 146
3 WRFILE 74
0 NO ERROR IN ABOVE ASSEMBLY.
COS0 BCD 05/28/67 2256.8 2244 00000
1 FAP PAGE 1
*SCN 709 FORTRAN LIBRARY / FLOATING POINT SINE-COSINE ROUTINE / 9SCN
* AUGUST 22,1962
* MIT ASSEMBLY DATE... JUNE 14, 1961
* THIS ROUTINE HAS BEEN REVISED TO ACCOMODATE MAD / MAY 1960
* THE CALLING SEQUENCE IS
* CALL SIN (COS) TSX $SIN,4 ($COS)
* N=ARG IN THE AC TXH N
* FOR FORTRAN FOR MAD
BINARY CARD NO. COS00000
00002 ENTRY COS
00013 ENTRY SIN
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
LINKAGE DIRECTOR
BINARY CARD NO. COS00001
00000 000000000000
00001 234662606060
00002 0601 00 0 77774 COS STO SPMLT MODE TEST--MAD OR FORTRAN
00003 0500 00 0 00171 CLA TXH .
00004 0560 00 4 00001 LDQ 1,4 .
00005 0040 00 0 00010 TLQ *+3 . FORTRAN
00006 0500 60 4 00001 CLA* 1,4 . GET MAD ARGUMENT
00007 0601 00 0 77774 STO SPMLT .
00010 0500 00 0 77774 CLA SPMLT
00011 0300 00 0 00170 FAD FPHLF COS THETA EQU. SIN THETA+PIHLF
00012 0020 00 0 00020 TRA SIN+5
00013 0601 00 0 77774 SIN STO SPMLT MODE TEST--MAD OR FORTRAN
00014 0500 00 0 00171 CLA TXH .
00015 0560 00 4 00001 LDQ 1,4 .
00016 0040 00 0 00021 TLQ *+3 . FORTRAN
00017 0500 60 4 00001 CLA* 1,4 . GET MAD ARGUMENT
00020 0601 00 0 77774 STO SPMLT . SAVE ARGUMENT
00021 0500 00 0 77774 CLA SPMLT
00022 0560 00 0 00152 LDQ ZERO
00023 0765 00 0 00011 LRS 9 CHARACTERISTIC TO X.R. 1
BINARY CARD NO. COS00002
00024 -0634 00 1 00041 SXD SAVE,1
00025 -0734 00 1 00000 PDX 0,1 X.R. 1 TO DETERMINE LENGTH OF SHIFTS
00026 -0140 00 0 00143 OVTST TNO NOVFL PRESERVE AC OVERFLOW STATUS
00027 -0634 00 4 00145 SXD INDIC,4 SET INDICATOR TO NON ZERO
00030 0763 00 0 00023 LLS 19 FIRST TWO BITS OF FRACTION TO P, Q
00031 -3 00176 1 00046 TXL SPEC,1,126 S SMALLER THAN -1, ANGLE SMALLER TH. .25
00032 3 00205 1 00057 TXH LNGDV,1,133 S LARGER THAN 5, ANGLE LARGER TH. 32 RAD.
00033 0765 00 1 00211 LRS 137,1 B7
00034 0224 04 0 00153 VARDV VDH PI,0,4 PI B3, BQ 35, BR 3
1 FAP PAGE 2
00035 -0773 00 0 00043 RQL 35 TEST LAST BIT OF NO. OF PIS IN THETA
00036 0162 00 0 00063 TQP FRLAR 0...+SIN
00037 0760 00 0 00002 CHS 1...-SIN
00040 0601 00 0 77774 STO SPMLT
00041 -3 00000 0 00063 SAVE TXL FRLAR,0,
00042 0020 00 0 00137 ERR TRA FINI-1 PREPARE ERROR RETURN
00043 0402 00 0 00154 EQUA SUB PIHLF SIN THETA COMPUTED AS COS PIHLF-THETA
00044 0602 00 0 77775 SLW REDA
00045 1 00002 1 00101 SX TXI COMCA,1,2 COSC...X.R. CONTAINS 4
00046 -3 00170 1 00053 SPEC TXL LOW,1,120 SIN REPLACED BY ARGUMENT FOR ANGLES SMALL
00047 0765 00 1 00205 LRS 133,1
BINARY CARD NO. COS00003
00050 0602 00 0 77775 SLW REDA
00051 -0534 00 1 00045 LXD SX,1 2 TO X.R. 1 TO INDICATE USE OF SIN FORMULA
00052 0020 00 0 00101 TRA COMCA
00053 0760 00 0 00006 LOW COM
00054 0767 00 0 00001 ALS 1
00055 0500 00 0 77774 CLA SPMLT RETURN WITH ARGUMENT.
00056 0020 00 0 00137 TRA FINI-1
00057 3 00244 1 00042 LNGDV TXH ERR,1,164 S LARGER THAN 36
00060 0765 00 1 00250 LRS 168,1
00061 0220 00 0 00153 DVH PI
00062 0020 00 0 00035 TRA VARDV+1 RETURN TO MAIN CALCULATION
00063 0760 00 0 00003 FRLAR SSP
00064 -0534 00 1 00045 LXD SX,1 X.R. TO INDICATE USE OF SIN FORMULA
00065 0340 00 0 00154 CAS PIHLF REDUCE TO FIRST QUADRANT
00066 0402 00 0 00153 SUB PI
00067 0760 00 0 00003 SSP
00070 0560 00 0 00155 LDQ TEST REDUCE TO FIRST OCTANT
00071 0040 00 0 00043 TLQ EQUA
00072 0601 00 0 77775 STO REDA
00073 0765 00 0 00004 FLOAT LRS 4 COMPUTE FLOATING Z FOR SIN FORMULA
BINARY CARD NO. COS00004
00074 0400 00 0 00156 ADD CHAR
00075 0300 00 0 00157 FAD CHAR+1
00076 0560 00 0 77774 LDQ SPMLT SET FINAL SIGN
00077 0763 00 0 00000 LLS 0
00100 0601 00 0 77774 STO SPMLT
* COMMON CALCULATION FOR SIN AND COS
00101 0560 00 0 77775 COMCA LDQ Z B3
00102 -0200 00 0 77775 MPR Z
00103 0601 00 0 77777 STO ZSQ B6
00104 0400 00 1 00164 ADD CONST+4,1 24.1B6, 50. B6
00105 0601 00 0 77776 STO SOR
00106 0500 00 1 00165 CLA CONST+5,1 2287B13, 1042B11
00107 0220 00 0 77776 DVH SOR
00110 0131 00 0 00000 XCA
00111 0400 00 1 00170 ADD CONST+8,1 82.5B7, -19.B5
00112 0767 00 0 00001 ALS 1 B6, BITS IN P,Q
00113 0400 00 0 77777 ADD ZSQ
00114 0771 00 1 00006 ARS 6,1 B8 FOR SIN AND COS
00115 -3 00002 1 00146 TXL S,1,2 TRA TO CALCULATE SIN Z
00116 0601 00 0 77776 STO SOR CALCULATE COS Z
00117 0500 00 0 77777 CLA ZSQ
1 FAP PAGE 3
BINARY CARD NO. COS00005
00120 0765 00 0 00002 LRS 2
00121 0400 00 0 77777 ADD ZSQ
00122 0763 00 0 00001 LLS 1
00123 0400 00 0 00165 ADD CONST+5 -3276B13
00124 0220 00 0 77776 DVH SOR
00125 0131 00 0 00000 XCA
00126 0400 00 0 00167 ADD CONST+7 19.477B5
00127 0765 00 0 00002 LRS 2
00130 0402 00 0 77777 SUB ZSQ
00131 0560 00 0 77774 LDQ SPMLT SET FINAL SIGN
00132 0763 00 0 00010 LLS 8
00133 -0760 00 0 00001 PBT
00134 1 00001 1 00135 TXI RTSH,1,1 XR)..5 FOR COS
00135 0771 00 1 00015 RTSH ARS 13,1 9 OR 8
00136 0361 00 1 00163 ACL CHAR+5,1 127 OR 128
00137 -0534 00 1 00041 LXD SAVE,1
00140 -0520 00 0 00145 FINI NZT INDIC
00141 0140 00 0 00142 TOV FINI+2 TURN OFF OVFL. INDIC.
00142 0020 00 4 00001 TRA 1,4
00143 0600 00 0 00145 NOVFL STZ INDIC
BINARY CARD NO. COS00006
00144 0020 00 0 00030 TRA OVTST+2
00145 0 00000 0 00000 INDIC IF ZERO...TURN OFF, IF NOT ... LEAVE ON
00146 0400 00 0 00157 S ADD CHAR+1 128
00147 0131 00 0 00000 XCA
00150 0260 00 0 77774 FMP SPMLT
00151 0020 00 0 00137 TRA FINI-1
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
* CONSTANTS
00152 0 00000 0 00000 ZERO PZE 0
00153 +144417665210 PI DEC 3.14159265359B3
00154 +062207732503 PIHLF DEC 1.57079632679B3
00155 +011463146314 TEST DEC .3B3
00156 +177000000000 CHAR OCT 177000000000
00157 +200000000000 OCT 200000000000
00160 +140450575062 CONST DEC 24.1448946943B6,2287.443195687B13,50.0302454854B6
00161 +107367056521
00162 +310075742536
00163 +202273236275 DEC 1042.9267081438B11,82.58030199563B7,-3276.33995164B13
00164 +245122165275
00165 -146305340704
00166 -236610717605 DEC -19.8459242632B5,19.477149451B5
00167 +233642316731
BINARY CARD NO. COS00007
00170 +201622077325 FPHLF DEC 1.57079632679
ATD 00171 3 00000 0 00000 TXH TXH CONSTANT FOR MAD-FORTRAN TEST
1 FAP PAGE 4
* ERASABLE STORAGE
77777 COMMON -206
77777 ZSQ COMMON 1
77776 SOR COMMON 1
77775 Z COMMON 1
77775 REDA SYN Z
77774 SPMLT COMMON 1
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
END
1 FAP PAGE 1
POST PROCESSOR ASSEMBLY DATA
77773 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
172 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
146 S 115
77775 Z 101, 102, 172
153 PI 34, 61, 66
45 SX 51, 64
2 COS 0
42 ERR 57
53 LOW 46
13 SIN 0, 12
77776 SOR 105, 107, 116, 124, 172
171 TXH 3, 14
77777 ZSQ 103, 113, 117, 121, 130, 172
156 CHAR 74, 75, 136, 146
43 EQUA 71
140 FINI 42, 56, 141, 151
77775 REDA 44, 50, 72, 172
135 RTSH 134
41 SAVE 24, 137
46 SPEC 31
155 TEST 70
152 ZERO 22
101 COMCA 45, 52
160 CONST 104, 106, 111, 123, 126
73 FLOAT
170 FPHLF 11
63 FRLAR 36, 41
145 INDIC 27, 140, 143
57 LNGDV 32
143 NOVFL 26
26 OVTST 144
154 PIHLF 43, 65
77774 SPMLT 2, 7, 10, 13, 20, 21, 40, 55, 76, 100, 131, 150, 172
34 VARDV 62
0 NO ERROR IN ABOVE ASSEMBLY.
COT0 BCD 05/28/67 2256.8 2830 00000
1 FAP PAGE 1
*TNCT 709 FORTRAN LIBRARY/FLOATING POINT TANGENT-COTANGENT ROUTINE/9TCT
* THIS ROUTINE HAS BEEN REVISED TO ACCOMODATE MAD / MAY 1960
* AUGUST 22,1962
* THE CALLING SEQUENCE IS
* CALL TAN (COT) TSX $TAN,4 ($COT)
* N=ARG IN THE AC TXH N
* TXH ERROR
* FOR FORTRAN FOR MAD
* ERROR RETURNS
* IF ARGUMENT GREATER THAN OR EQUAL TO 2**35 FOR TAN, GOES TO ERROR
* IF ARGUMENT LESS THAN 2**-126 FOR COT, GOES TO ERROR
* THE MAD ERROR RETURN IS OPTIONAL. IF THE PROGRAMMER DOES NOT
* SPECIFY HIS OWN, THE FORTRAN ERROR ROUTINES WILL BE USED.
BINARY CARD NO. COT00000
00006 ENTRY TAN
00026 ENTRY COT
TRANSFER VECTOR
BINARY CARD NO. COT00001
00000 255151465160 ERROR
00001 432464444760 LDUMP
LINKAGE DIRECTOR
00002 000000000000
00003 632145606060
00004 0 00000 0 00211 PZE ARGTN
00005 0 00000 0 00002 PZE TAN-4
00006 0600 00 0 77777 TAN STZ ZTAG TAN REQUESTED
00007 0601 00 0 77774 STO SPMLT MODE TEST--MAD OR FORTRAN
00010 0500 00 0 00242 CLA TXH .
00011 0560 00 4 00001 LDQ 1,4 .
00012 0040 00 0 00015 TLQ *+3 . FORTRAN
00013 0500 60 4 00001 CLA* 1,4 . GET MAD ARGUMENT
00014 0601 00 0 77774 STO SPMLT .
00015 -0634 00 4 00002 SXD TAN-4,4 NEEDED FOR ERROR ROUTINE
00016 0500 00 0 00004 CLA TAN-2
00017 0621 00 0 00172 STA EXIT+1
00020 0500 00 0 00005 CLA TAN-1
00021 0020 00 0 00041 TRA ACOFT-3
00022 0 00000 0 00217 PZE ARGCT
00023 0 00000 0 00024 PZE INX4
BINARY CARD NO. COT00002
00024 0 00000 0 00000 INX4 PZE 0,0,**
00025 234663606060 BCI 1,COT
1 FAP PAGE 2
00026 0601 00 0 77774 COT STO SPMLT MODE TEST--MAD OR FORTRAN
00027 0500 00 0 00242 CLA TXH .
00030 0560 00 4 00001 LDQ 1,4 .
00031 0040 00 0 00034 TLQ *+3 . FORTRAN
00032 0500 60 4 00001 CLA* 1,4 . GET MAD ARGUMENT
00033 0601 00 0 77774 STO SPMLT .
00034 -0634 00 4 77777 SXD ZTAG,4 COT REQUESTED, NON ZERO NUMBER IN ZTAG
00035 -0634 00 4 00024 SXD INX4,4 NEEDED FOR ERROR ROUTINE
00036 0500 00 0 00022 CLA COT-4
00037 0621 00 0 00172 STA EXIT+1
00040 0500 00 0 00023 CLA COT-3
00041 0621 00 0 00174 STA EXIT+3
00042 0621 00 0 00205 STA REPT
00043 0621 00 0 00207 STA OUT
00044 -0140 00 0 00156 ACOFT TNO NOFL PRESERVE AC OVERFLOW STATUS
00045 -0634 00 4 00225 SXD AINDC,4 SET INDICATOR TO NON ZERO
00046 0500 00 0 77774 CLA SPMLT
00047 0765 00 0 00011 LRS 9
BINARY CARD NO. COT00003
00050 -0634 00 1 00152 SXD SAVE,1 CHARACTERISTIC TO I.X.1
00051 -0734 00 1 00000 PDX 0,1
00052 0763 00 0 00023 LLS 19 FIRST TWO BITS OF FRACTION TO P,Q
00053 0760 00 0 00003 SSP
00054 -3 00177 1 00137 TXL SPEC,1,127 S SMALLER THAN 0, ANGLE SMALLER TH. .5
00055 3 00205 1 00147 TXH LNGDV,1,133 ANGLE LARGER THAN 16 PI
00056 0765 00 1 00210 LRS 136,1 B6
00057 0224 04 0 00227 VARDV VDH PI,0,4 B2
00060 0402 00 0 00230 FRLAR SUB PIHLF TAN THETA+PIHLF=-COT THETA
00061 0602 00 0 77775 SLW REDA IF NEG. ANGLE ... + COT THETA
00062 -0120 00 0 00065 TMI FRSTQ
00063 0502 00 0 77774 CLS SPMLT CHANGE SIGN
00064 0601 00 0 77774 STO SPMLT
00065 0500 00 0 77775 FRSTQ CLA REDA
00066 0402 00 0 00231 SUB PIQU REDUCE TO FIRST OCTANT
00067 0120 00 0 00153 TPL EQUA
00070 -0534 00 1 00237 LXD CHAR,1 COT...XR...0
00071 0500 00 0 77775 FLOAT CLA Z
00072 0765 00 0 00006 LRS 6
00073 0361 00 0 00237 ACL CHAR
BINARY CARD NO. COT00004
00074 0300 00 0 00237 FAD CHAR TO NORMALIZE
00075 0560 00 0 77774 LDQ SPMLT SET FINAL SIGN
00076 0763 00 0 00000 LLS 0
00077 0601 00 0 77774 STO SPMLT
00100 0560 00 0 77775 COMCA LDQ Z COMPUTE Z SQUARE B4
00101 -0200 00 0 77775 MPR Z
00102 0601 00 0 77775 STO ZSQ
00103 0400 00 0 00232 ADD CONST -10.4B4
00104 0601 00 0 77776 STO SOR
00105 0500 00 0 00233 CLA CONST+1 25.2B6
00106 0220 00 0 77776 DVH SOR
00107 -0600 00 0 77776 STQ SOR
00110 0560 00 0 00241 LDQ VLMER MULTIPLY WITH .10156 25000
00111 0204 05 0 77775 VLM ZSQ,0,5
1 FAP PAGE 3
00112 0400 00 0 00234 ADD CONST+2 3.14B2
00113 0400 00 0 77776 ADD SOR
00114 0340 00 0 00235 CAS TEST
00115 0761 00 0 00000 NOP
00116 0400 00 0 00240 ADD MODC ADDITION OF CORRECTION TERM FOR SMALL Z
00117 0765 00 0 00006 LRS 6
BINARY CARD NO. COT00005
00120 0361 00 0 00237 ACL CHAR
00121 0240 00 0 77774 FDH SPMLT COT READY IN MQ
00122 0520 00 0 77777 ZET ZTAG
00123 0020 00 0 00135 TRA HANS COT REQUESTED
00124 -3 00000 1 00130 TXL FINI-2,1,0 COT
00125 -0600 00 0 77775 STQ ZSQ INVERT TO GIVE TAN
00126 0500 00 0 00236 CLA FONE
00127 0240 00 0 77775 FDH ZSQ
00130 0131 00 0 00000 XCA
00131 -0534 00 1 00152 LXD SAVE,1
00132 -0520 00 0 00225 FINI NZT AINDC
00133 0140 00 0 00134 TOV *+1 TURNS OFF OVERFLOW LIGHT
00134 0020 00 4 00001 TRA 1,4
00135 3 00000 1 00130 HANS TXH FINI-2,1,0 COT
00136 0020 00 0 00125 TRA FINI-5 GIVE TAN
00137 -3 00001 1 00143 SPEC TXL LOW,1,1 AVOID OVERFLOW
00140 0765 00 1 00204 LRS 132,1
00141 0602 00 0 77775 SLW REDA
00142 0020 00 0 00100 TRA COMCA
00143 0520 00 0 77777 LOW ZET ZTAG
BINARY CARD NO. COT00006
00144 0020 00 0 00160 TRA ERR COT CAN NOT BE COMPUTED
00145 0500 00 0 77774 CLA SPMLT
00146 0020 00 0 00131 TRA FINI-1 RETURN WITH ARGUMENT
00147 3 00243 1 00160 LNGDV TXH ERR,1,163
00150 0765 00 1 00247 LRS 167,1
00151 0220 00 0 00227 DVH PI B2
00152 -3 00000 0 00060 SAVE TXL FRLAR,0,
00153 0402 00 0 00231 EQUA SUB PIQU TAN THETA-PIHLF=COT THETA
00154 0602 00 0 77775 SLW REDA
00155 0020 00 0 00072 TRA FLOAT+1
00156 0600 00 0 00225 NOFL STZ AINDC
00157 0020 00 0 00046 TRA ACOFT+2
00160 -0520 00 0 00225 ERR NZT AINDC RESET AC OVERFLOW STATUS
00161 0140 00 0 00162 TOV *+1 TURNS OFF OVERFLOW LIGHT
00162 0500 00 0 00207 CLA OUT TEST FOR MAD ERROR EXIT
00163 0621 00 0 00164 STA *+1 .
00164 -0534 00 4 00000 LXD **,4 .
00165 0500 00 0 00242 CLA TXH .
00166 0560 00 4 00002 LDQ 2,4 .
00167 0040 00 0 00171 TLQ *+2 . NONE SPECIFIED, USE FORTRAN
1 FAP PAGE 4
BINARY CARD NO. COT00007
00170 0020 60 4 00002 TRA* 2,4 .
00171 0074 00 4 00000 EXIT TSX $ERROR,4
00172 0 00000 0 00000 PZE **
00173 1 00000 0 00175 TXI *+2,,0
00174 0 00000 0 00000 PZE **,,0
00175 0500 00 0 00174 CLA *-1
00176 0400 00 0 00243 ADD =1
00177 0621 00 0 00202 STA *+3
00200 0500 00 0 77774 CLA SPMLT ARGUMENT IN AC
00201 0074 00 4 00001 TSX $LDUMP,4
00202 0 00000 0 00000 PZE **
00203 0020 00 0 00205 TRA REPT
00204 0020 00 0 00207 TRA OUT
00205 -0534 00 4 00000 REPT LXD **,4
00206 0020 00 4 00000 TRA 0,4 REPEAT MATH ROUTINE
00207 -0534 00 4 00000 OUT LXD **,4
00210 0020 00 4 00001 TRA 1,4 LEAVE MATH ROUTINE
CONSTANTS, ETC
00211 602151276444 ARGTN BCI 5, ARGUMENT GREATER THAN 2**35-1
00212 254563602751
00213 252163255160
BINARY CARD NO. COT00008
00214 633021456002
00215 545403054001
00216 -377777777777 OCT 777777777777
00217 602151276444 ARGCT BCI 5, ARGUMENT LESS THAN 2**-126
00220 254563604325
00221 626260633021
00222 456002545440
00223 010206606060
00224 -377777777777 OCT 777777777777
00225 0 00000 0 00000 AINDC IF ZERO...TURN OFF, IF NOT...LEAVE ON
* CONSTANTS
00226 +201622077325 FPHLF DEC 1.57079632679
00227 +311037552421 PI DEC 3.1415926536B2
00230 +144417665210 PIHLF DEC 1.5707963268B2
00231 +062207732504 PIQU DEC .7853981634B2
00232 -246731005174 CONST DEC -10.43274050825B4,25.2265398966B6,3.4180166678B2
00233 +144717750230
00234 +332601443732
00235 +077411676105 TEST DEC .99248875B2
00236 +201400000000 FONE OCT 201400000000
1 FAP PAGE 5
00237 +200000000000 CHAR OCT 200000000000
BINARY CARD NO. COT00009
00240 -000000000703 MODC DEC -.0000000526B2
00241 -000000000015 VLMER OCT 400000000015
ATD 00242 3 00000 0 00000 TXH TXH CONSTANT FOR MAD-FORTRAN TEST
* ERASABLES
77777 COMMON -206
77777 ZTAG COMMON 1
77776 SOR COMMON 1
77775 REDA COMMON 1
77774 SPMLT COMMON 1
77775 Z SYN REDA
77775 ZSQ SYN REDA
END
LITERALS
00243 000000000001
1 FAP PAGE 1
POST PROCESSOR ASSEMBLY DATA
77773 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
244 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
77775 Z 71, 100, 101, 243
227 PI 57, 151
26 COT 0, 36, 40
160 ERR 144, 147
143 LOW 137
207 OUT 43, 162, 204
77776 SOR 104, 106, 107, 113, 243
6 TAN 0, 5, 15, 16, 20
242 TXH 10, 27, 165
77775 ZSQ 102, 111, 125, 127, 243
237 CHAR 70, 73, 74, 120
153 EQUA 67
171 EXIT 17, 37, 41
132 FINI 124, 135, 136, 146
236 FONE 126
135 HANS 123
24 INX4 23, 35
240 MODC 116
156 NOFL 44
231 PIQU 66, 153
77775 REDA 61, 65, 141, 154, 243
205 REPT 42, 203
152 SAVE 50, 131
137 SPEC 54
235 TEST 114
77777 ZTAG 6, 34, 122, 143, 243
44 ACOFT 21, 157
225 AINDC 45, 132, 156, 160
217 ARGCT 22
211 ARGTN 4
100 COMCA 142
232 CONST 103, 105, 112
0 ERROR 171
71 FLOAT 155
226 FPHLF
60 FRLAR 152
65 FRSTQ 62
1 LDUMP 201
147 LNGDV 55
230 PIHLF 60
77774 SPMLT 7, 14, 26, 33, 46, 63, 64, 75, 77, 121, 145, 200, 243
57 VARDV
241 VLMER 110
0 NO ERROR IN ABOVE ASSEMBLY.
CSH0 BCD 05/28/67 2257.8 2028 00000
1 FAP PAGE 1
* (CSH), .READ, .LOOK, .SCRDS FOR FOREGROUND. MODIFIED FOR MICHIGAN IO
* APRIL 8, 1964
* CSH READS 14 WORDS FROM CONSOLE
BINARY CARD NO. CSH00000
00004 ENTRY (CSH)
00034 ENTRY .READ
00034 ENTRY .READL
00132 ENTRY .LOOK
00104 ENTRY .SCRDS
TRANSFER VECTOR
BINARY CARD NO. CSH00001
00000 743146303460 (IOH)
00001 512426436760 RDFLX
LINKAGE DIRECTOR
00002 000000000000
00003 742362303460
00004 (CSH) SYN *
00004 -0500 00 4 00001 CAL 1,4
00005 0560 00 0 00147 LDQ FORT
00006 0634 00 4 00023 SXA JN21,4
00007 -0634 00 4 77740 SXD RTN,4
00010 0600 00 0 00000 STZ 0
00011 1 77776 4 00012 TXI *+1,4,-2
00012 0636 00 4 00000 SCA 0,4
00013 -0734 00 4 00000 PDX 0,4 IS DECREMENT ZERO
00014 -3 00000 4 00023 TXL JN21,4,0 FORTRAN, BACKWARDS
00015 -0600 00 0 00154 STQ TEMP
00016 -0130 00 0 00000 XCL
00017 -0500 00 0 00151 CAL UMAP -1 IN DECR. SET FOR FORWARDS
00020 0622 00 0 00154 STD TEMP
00021 -0130 00 0 00000 XCL
00022 0560 00 0 00154 LDQ TEMP
00023 0774 00 4 00000 JN21 AXT **,4
BINARY CARD NO. CSH00002
00024 -0600 00 0 77737 STQ FMT
00025 0621 00 0 77740 STA RTN
00026 -0500 00 0 00152 CAL MAD
00027 0630 00 0 77740 STP RTN
00030 -0500 00 0 00150 CAL TPCNT
00031 0602 00 0 77741 SLW COL
00032 0600 00 0 00157 STZ LOOKSW
00033 0020 60 0 00000 TRA* $(IOH)
*
00034 .READ SYN *
00034 .READL SYN .READ
00034 0600 00 0 00157 STZ LOOKSW
00035 -0500 00 0 00002 CAL 2
00036 0602 00 0 00153 SLW 2SAVE
00037 0560 00 0 00043 LDQ T1 SET RETURN FOR
1 FAP PAGE 2
00040 -0600 00 0 00002 STQ 2
00041 -0634 00 4 77740 SXD RTN,4 SAVE CALLER LOC. IN RTN
00042 0020 00 4 00001 TRA 1,4
*
* GET FORMAT PARAMETERS AD GO TO IOH
*
00043 0020 00 0 00044 T1 TRA *+1
00044 0634 00 4 00054 SXA T4,4
00045 0535 00 4 00000 LAC 0,4 GET FORMAT
00046 -0500 00 4 77777 CAL -1,4 PARAMETER.
00047 -0734 00 4 00000 PDX 0,4 IS FORMAT BACKWARD
BINARY CARD NO. CSH00003
00050 0560 00 0 00152 LDQ MAD (D .NE. 0)
00051 3 00000 4 00053 TXH *+2,4,0 OR
00052 0560 00 0 00151 LDQ UMAP FORWARD (D .E. 0)
00053 3 00001 4 00072 TXH SYT,4,1
00054 0774 00 4 00000 T4 AXT **,4
00055 -0600 00 0 00154 STQ TEMP
00056 -0130 00 0 00000 XCL
00057 -0500 00 0 00147 CAL FORT
00060 0621 00 0 00154 STA TEMP
00061 -0130 00 0 00000 XCL
00062 0560 00 0 00154 LDQ TEMP
00063 -0600 00 0 77737 STQ FMT
00064 0621 00 0 77740 STA RTN
00065 -0500 00 0 00152 CAL MAD
00066 0630 00 0 77740 STP RTN
00067 -0500 00 0 00150 CAL TPCNT
00070 0602 00 0 77741 SLW COL
00071 0020 60 0 00000 TRA* $(IOH)
*
* TEST FOR SYMBOL TABLE
00072 0560 00 0 00152 SYT LDQ MAD
00073 0625 00 0 00155 STT TGTMP
BINARY CARD NO. CSH00004
00074 -0520 00 0 00155 NZT TGTMP
00075 0560 00 0 00151 LDQ UMAP
00076 0734 00 4 00000 PAX 0,4
00077 0600 00 0 77771 STZ STLOC
00100 0634 00 4 77771 SXA STLOC,4
00101 -0734 00 4 00000 PDX 0,4
00102 0754 00 4 00000 PXA 0,4
00103 0020 00 0 00054 TRA T4
*
* .SCRDS READ RECORD FROM CONSOLE
*
00104 .SCRDS SYN *
00104 -0500 00 4 00001 CAL 1,4
00105 1 77777 4 00106 TXI *+1,4,-1 PREPARE FOR 2,4 RETURN
00106 0634 00 4 00130 SXA CSHX,4
00107 0600 00 0 00157 STZ LOOKSW
00110 0020 00 0 00113 TRA CSH1
00111 0634 00 4 00130 CSH SXA CSHX,4
00112 -0500 00 0 00156 CAL AREC
1 FAP PAGE 3
00113 0621 00 0 00117 CSH1 STA CSH2
00114 -0520 00 0 00160 NZT COPYSW IS COPY ZERO
00115 0020 00 0 00123 TRA RDFL YES. READ FROM CONSOLE AGAIN
00116 0074 00 4 00134 TSX COPY,4 NO. COPY WHAT IS ALREADY IN BUFFER
00117 0 00016 0 00000 CSH2 PZE **,,BUFSIZ
BINARY CARD NO. CSH00005
00120 -0520 00 0 00157 NZT LOOKSW
00121 0600 00 0 00160 STZ COPYSW
00122 0020 00 0 00130 TRA CSHX
00123 RDFL SYN *
00123 0074 00 4 00001 TSX $RDFLX,4
00124 0 00016 0 00161 BUFF,,BUFSIZ
00125 0520 00 0 00157 ZET LOOKSW
00126 -0625 00 0 00160 STL COPYSW
00127 0020 00 0 00116 TRA CSH2-1
00130 0774 00 4 00000 CSHX AXT **,4
00131 0020 00 4 00001 TRA 1,4
*
* .LOOK LOOK AT FORMAT IN MAD
*
00132 .LOOK SYN *
00132 -0625 00 0 00157 STL LOOKSW
00133 0020 00 0 00035 TRA .READ+1
*
*
00134 0634 00 4 00145 COPY SXA CPY1,4
00135 -0500 00 4 00001 CAL 1,4
00136 0771 00 0 00022 ARS 18
00137 0400 00 4 00001 ADD 1,4
00140 0621 00 0 00143 STA CPY2
00141 0774 00 4 00016 AXT BUFSIZ,4
00142 -0500 00 4 00177 CAL BUFF+BUFSIZ,4
00143 0602 00 4 00000 CPY2 SLW **,4
BINARY CARD NO. CSH00006
00144 2 00001 4 00142 TIX *-2,4,1
00145 0774 00 4 00000 CPY1 AXT **,4
00146 0020 00 4 00002 TRA 2,4
*
00147 -3 00001 0 00111 FORT TXL CSH,,1
00150 3 00124 0 00000 TPCNT TXH ,,84
00151 3 77777 0 00000 UMAP TXH **,,-1
00152 3 00001 0 00000 MAD TXH **,,1
00026 RECLEN EQU 22
00153 0 00000 0 00000 2SAVE
00154 0 00000 0 00000 TEMP
00155 0 00000 0 00000 TGTMP
00156 0 00000 0 77742 AREC PZE REC
00157 0 00000 0 00000 LOOKSW
00160 0 00000 0 00000 COPYSW
00016 BUFSIZ EQU 14
00161 BUFF BSS BUFSIZ
*
*
77771 COMMON -200
1 FAP PAGE 4
77771 STLOC COMMON 1
77742 COMMON RECLEN
77742 REC COMMON 1
77741 COL COMMON 1
77740 RTN COMMON 1
77737 FMT COMMON 1
END
1 FAP PAGE 1
POST PROCESSOR ASSEMBLY DATA
77736 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
177 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
43 T1 37
54 T4 44, 103
77741 COL 31, 70, 177
111 CSH 147
77737 FMT 24, 63, 177
152 MAD 26, 50, 65, 72
77742 REC 156, 177
77740 RTN 7, 25, 27, 41, 64, 66, 177
72 SYT 53
156 AREC 112
161 BUFF 124, 142
134 COPY 116
145 CPY1 134
143 CPY2 140
113 CSH1 110
117 CSH2 113, 127
130 CSHX 106, 111, 122
147 FORT 5, 57
23 JN21 6, 14
123 RDFL 115, 123
154 TEMP 15, 20, 22, 55, 60, 62
151 UMAP 17, 52, 75
153 2SAVE 36
132 .LOOK 0, 132
34 .READ 0, 34, 133
1 RDFLX 123
77771 STLOC 77, 100, 177
155 TGTMP 73, 74
150 TPCNT 30, 67
4 (CSH) 0, 4
0 (IOH) 33, 71
16 BUFSIZ 117, 124, 141, 142, 161
160 COPYSW 114, 121, 126
34 .READL 0, 34
104 .SCRDS 0, 104
157 LOOKSW 32, 34, 107, 120, 125, 132
26 RECLEN 153, 177
0 NO ERROR IN ABOVE ASSEMBLY.
DEFB BCD 09/20/68 0006.2 651 00000
1 FAP PAGE 1
* DEFBC CONVERTS BINARY INTEGER TO BCD FORM
*COMPUTATION CENTER LOUIS POUZIN
* JUNE 64
* CALLING SEQUENCE
*FAP TSX DEFBC,4 DEFBC USES FULL WORD
* PZE DATA DERBC USES RIGHT HALF ONLY
* STO RESULT DELBC USES LEFT HALF ONLY
*MAD R=DERBC.(DATA)
*FORTR R=DELBC(DATA)
BINARY CARD NO. DEBC0000
00010 ENTRY DEFBC
00002 ENTRY DELBC
00005 ENTRY DERBC
LINKAGE DIRECTOR
BINARY CARD NO. DEBC0001
00000 000000000000
00001 242526222360
00000 X4 SYN *-2
00002 DELBC SYN *
00002 -0500 60 4 00001 CAL* 1,4
00003 0771 00 0 00022 ARS 18
00004 0020 00 0 00006 TRA A
00005 DERBC SYN *
00005 -0500 60 4 00001 CAL* 1,4
00006 -0320 00 0 00027 A ANA =O777777
00007 0020 00 0 00011 TRA B
00010 DEFBC SYN *
00010 -0500 60 4 00001 CAL* 1,4
00011 0131 00 0 00000 B XCA
00012 -0634 00 4 00000 SXD X4,4
00013 0774 00 4 00044 AXT 36,4
00014 0600 00 0 00025 STZ D
00015 -0754 00 0 00000 C ZAC
00016 0221 00 0 00026 DVP =10 SUCCESSIVE DIGITS FROM RIGHT TO LEFT
00017 0767 00 4 00044 ALS 36,4 SHIFT TO PROPER RANK
00020 -0602 00 0 00025 ORS D
00021 2 00006 4 00015 TIX C,4,6
00022 -0534 00 4 00000 LXD X4,4
00023 0500 00 0 00025 CLA D
BINARY CARD NO. DEBC0002
00024 0020 00 4 00002 TRA 2,4
1 FAP PAGE 2
00025 0 00000 0 00000 D PZE TEMPORARY RESULT
END
LITERALS
00026 000000000012
00027 000000777777
1 FAP PAGE 1
POST PROCESSOR ASSEMBLY DATA
30 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
6 A 4
11 B 7
15 C 21
25 D 14, 20, 23
0 X4 2, 12, 22
10 DEFBC 0, 10
2 DELBC 0, 2
5 DERBC 0, 5
0 NO ERROR IN ABOVE ASSEMBLY.
DELE BCD 05/28/67 2257.8 1447 00000
1 FAP PAGE 1
* FOR TIME SHARING MODULAR VERSION. LP FEB 64
CALL DELETE(NH NAME1NAME2) FORTRAN
CALL DELETE(NAM) WHERE NAM SET BY CALL SETNAM
EXECUTE DELETE.(NAMES) MAD
EXECUTE ERASE.(FILNAM)
NAMES SET BY VECTOR VALUES, OR BY 'SETNAM'.
VECTOR VALUES NAMES=$ ALFA BETA$
CALL SETNAM (NAMES, 12H ALFA BETA)
BINARY CARD NO. DELET000
00012 ENTRY DELETE
00012 ENTRY ERASE
TRANSFER VECTOR
BINARY CARD NO. DELET001
00000 274521446060 GNAM
00001 266263216325 FSTATE
00002 462351222360 OCRBC
00003 233026314325 CHFILE
00004 242543263143 DELFIL
00005 665126436721 WRFLXA
00006 512426436760 RDFLX
00007 434164626360 LJUST
LINKAGE DIRECTOR
00010 000000000000
00011 242543256325
00010 X4 SYN *-2
00012 DELETE SYN *
00012 ERASE SYN *
00012 -0634 00 4 00010 SXD X4,4
00013 0074 00 4 00000 TSX $GNAM,4
00014 0 00000 0 00010 PZE X4
00015 0 00000 0 00101 PZE FILNAM
00016 0600 00 0 00113 STZ FAIL
00017 J SYN *
00017 0074 00 4 00001 TSX $FSTATE,4
00020 3 00000 0 00101 PTH FILNAM
00021 3 00000 0 00102 PTH FILNAM+1
00022 3 00002 0 00120 PTH E,,2
00023 3 00000 0 00060 PTH IR4
BINARY CARD NO. DELET002
00024 0500 00 0 00121 CLA E+1 IS FILE LINKED
00025 0120 00 0 00032 TPL P
00026 0500 00 0 00116 CLA LINKM YES. WRITE MESSAGE
00027 0601 00 0 00103 STO MES+2
1 FAP PAGE 2
00030 0074 00 4 00066 TSX WMESS,4
00031 0500 00 0 00121 CLA E+1
00032 -0320 00 0 00123 P ANA =O134 IS FILE PROT. PRIVT. READ- OR WRITE ONLY
00033 0100 00 0 00053 TZE B
00034 0500 00 0 00121 CLA E+1
00035 0601 00 0 00117 STO MO
00036 0074 00 4 00002 TSX $OCRBC,4
00037 0 00000 0 00117 MO
00040 -0501 00 0 00112 ORA BL
00041 0602 00 0 00103 SLW MES+2
00042 0074 00 4 00066 TSX WMESS,4 WRITE MESSAGE
00043 0074 00 4 00003 TSX $CHFILE,4 CHANGE MODE
00044 3 00000 0 00101 PTH FILNAM
00045 3 00000 0 00102 PTH FILNAM+1
00046 3 00000 0 00122 K PTH =1 TO TEMPORARY
00047 3 00000 0 00124 PTH =-0
BINARY CARD NO. DELET003
00050 3 00000 0 00124 PTH =-0
00051 3 00000 0 00063 PTH A
00052 3 00000 0 00115 PTH ER
00053 0074 00 4 00004 B TSX $DELFIL,4
00054 3 00000 0 00101 PTH FILNAM
00055 3 00000 0 00102 PTH FILNAM+1
00056 3 00000 0 00063 PTH A
00057 3 00000 0 00115 PTH ER
00060 -0534 00 4 00010 IR4 LXD X4,4
00061 0500 00 0 00113 CLA FAIL ERROR CODE OR ZERO
00062 0020 00 4 00002 TRA 2,4
00063 A SYN *
00063 0500 00 0 00115 CLA ER ERROR CODE FROM I/O
00064 0602 00 0 00113 A1 SLW FAIL
00065 0020 00 0 00060 TRA IR4
00066 0634 00 4 00076 WMESS SXA WX4,4
00067 0074 00 4 00005 TSX $WRFLXA,4 ASK QUESTION
00070 0 00011 0 00101 PZE MES,,9
00071 0074 00 4 00006 TSX $RDFLX,4 ANSWER
00072 0 00001 0 00114 PZE MES1,,1
00073 0074 00 4 00007 TSX $LJUST,4 JUSTIFY ANSWER
BINARY CARD NO. DELET004
00074 0 00000 0 00114 PZE MES1
00075 0402 00 0 00125 SUB =HYES
00076 0774 00 4 00000 WX4 AXT **,4
00077 -0100 00 0 00064 TNZ A1 DELETE FAILS
00100 0020 00 4 00001 TRA 1,4 RETURN
00101 606060606060 MES BCI 2,
00102 606060606060
00103 545454545454 BCI 7,****** MODE. DO YOU WANT TO DELETE IT,
00104 604446242533
00105 602446607046
00106 646066214563
00107 606346602425
1 FAP PAGE 3
00110 432563256031
00111 637360606060
00112 606060000000 BL BCI 1, 000
00113 0 00000 0 00000 FAIL PZE NON ZERO IF ROUTINE FAILED
00101 FILNAM SYN MES
00114 0 00000 0 00000 MES1 PZE
00115 0 00000 0 00000 ER PZE 0
00116 433145422524 LINKM BCI 1,LINKED
00117 0 00000 0 00000 MO PZE
00120 E BSS 2
END
LITERALS
BINARY CARD NO. DELET005
00122 000000000001
00123 000000000134
00124 400000000000
00125 702562606060
1 FAP PAGE 1
POST PROCESSOR ASSEMBLY DATA
126 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
63 A 51, 56, 63
53 B 33
120 E 22, 24, 31, 34
17 J 17
46 K
32 P 25
64 A1 77
112 BL 40
115 ER 52, 57, 63
117 MO 35, 37
10 X4 12, 14, 60
60 IR4 23, 65
101 MES 27, 41, 70, 114
76 WX4 66
113 FAIL 16, 61, 64
0 GNAM 13
114 MES1 72, 74
12 ERASE 0, 12
116 LINKM 26
7 LJUST 73
2 OCRBC 36
6 RDFLX 71
66 WMESS 30, 42
3 CHFILE 43
12 DELETE 0, 12
4 DELFIL 53
101 FILNAM 15, 20, 21, 44, 45, 54, 55, 114
1 FSTATE 17
5 WRFLXA 67
0 NO ERROR IN ABOVE ASSEMBLY.
DETC BCD 05/28/67 2257.8 371 00000
1 FAP PAGE 1
* GENERATE CALLING SEQUENCE FOR XDETRM
00003 ENTRY DETCS
TRANSFER VECTOR
00000 672425635144 XDETRM
LINKAGE DIRECTOR
00001 000000000000
00002 242563236260
00003 0634 00 4 00022 DETCS SXA XR4,4
00004 0500 00 4 00003 CLA 3,4
00005 0402 00 0 00025 SUB =1
00006 0621 00 0 00014 STA ARG3
00007 0500 00 4 00004 CLA 4,4
00010 0621 00 0 00016 STA ARG4
00011 0500 60 4 00001 CLA* 1,4
00012 0560 60 4 00002 LDQ* 2,4
00013 0020 00 0 00021 TRA CALL
00014 0 00000 0 00000 ARG3 PZE **
00015 0420 00 0 00000 HPR
00016 0 00000 0 00000 ARG4 PZE **
00017 0420 00 0 00000 HPR
00020 0420 00 0 00000 HPR
00021 0074 00 4 00000 CALL TSX $XDETRM,4
00022 0774 00 4 00000 XR4 AXT **,4
00023 0601 60 4 00005 STO* 5,4
00024 0020 00 4 00006 TRA 6,4
END
LITERALS
00025 000000000001
1 FAP PAGE 1
POST PROCESSOR ASSEMBLY DATA
26 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
22 XR4 3
14 ARG3 6
16 ARG4 10
21 CALL 13
3 DETCS 0
0 XDETRM 21
0 NO ERROR IN ABOVE ASSEMBLY.
DFAD BCD 05/28/67 2257.8 2423 00000
1 FAP PAGE 1
* DPFA MICH. DOUBLE-PRECISION ARITHMETIC PACKAGE. DAGGETT FEB. 18,1964
PCC
LBL DPFA,X
COUNT 200 MI
* THE UNIVERSITY OF MICHIGAN COMPUTING CENTER
* NUMERICAL ANALYSIS SUBROUTINES
*
* DOUBLE-PRECISION FLOATING-POINT ARITHMATIC
*
* ....... DOUBLE-PRECISION FLOATING POINT OPERATIONS ON NUMBERS
* STORED IN CONSECUTIVE STORAGE LOCATIONS. OPERATIONS FAD
* FSB,FMP, AND FDP ARE PROVIDED. ALSO AVAILABLE IS A FDP
* WHEN THE DIVISOR IS SINGLE-PRECISION. THE ARGUMENTS ARE
* THE HIGH ORDER WORDS OF EACH OPERAND. THE LOW ORDER WORDS
* ARE ASSUMED TO OCCUPY LOCATION Y + 1, IF THE HIGH ORDER
* WORD IS IN LOCATION Y. THIS IS THE STANDARD STORAGE
* ALLOCATION FOR IBM 7094 HARDWARE DOUBLE-PRECISION OPER-
* ATION EXCEPT THAT THESE ROUTINES DO NOT REQUIRE THAT THE
* HIGH ORDER WORD BE IN AN EVEN LOCATION.
* ....... CALLING SEQUENCE
* TSX DF**,4
* *** B,TB ADDEND,SUBTRAHEND,MULTIPLICAND,DIVIDEND
* *** C,TC AUGEND,MINUEND,MULTIPLIER,DIVISOR
* *** A,TA SUM,DIFFERENCE,PRODUCT,QUOTIENT
* RETURN
* ....... RESTRICTIONS
* (1) THE TAGS ON THE OPERANDS MAY NOT BE 4.
* (2) THE OPERANDS MAY HAVE A TAG, BUT MAY NOT BE
* INDIRECTLY ADDRESSED.
* (3) THE *** IN THE OPERATION FIELD IS USED TO SHOW
* THAT THESE OPERATIONS ARE ARBITRARY.
* (4) IF DIVISION BY ZERO IS ATTEMPTED AND DCEXIT HAS
* NEVER BEEN CALLED, THEN A TRANSFER TO ERROR WILL
* OCCUR. DCEXIT MAY BE CALLED ANY NUMBER OF TIMES,
* THE LAST CALL ALWAYS BEING THE ONE IN CONTROL.
* (5) NOTE THAT NO ERASABLE STORAGE IS USED.
* (6) THE FLOATING ROUNDS THAT HAVE BEEN INCORPORATED
* REPRESENT THE RESULT OF EXTENSIVE TESTING. IT WAS
* DESIRED THAT THEY ACHIEVE A NORMAL DISTRIBUTION
* ABOUT THE EXACT ANSWER. IT IS NOT POSSIBLE, HOWEVER
* , TO CLAIM THAT
* FL ( X'Y ) = ( X'Y ) * ( 1+E )
* WHERE /E/ .L. 2**-54. AT BEST IT MAY BE CLAIMED
* THAT /E/ .LE. 2**-52.
1 TITLE NUMERICAL ANALYSIS LIBRARY - JULY 1,1963
BINARY CARD NO. DPFA0000
00003 ENTRY DFAD 73-109 CYCLES
00020 ENTRY DFSB 73-109 CYCLES
00035 ENTRY DFMP 84-144 CYCLES
SPACE 1
00143 ENTRY DCEXIT
00067 ENTRY DFDP 91-164 CYCLES
00063 ENTRY SFDP 65-100 CYCLES
* DOUBLE-PRECISION FLOATING POINT ADDITION
1 FAP PAGE 2
BINARY CARD NO. DPFA0001
00000 254524414622 ENDJOB
00003 -0625 00 0 00146 DFAD STL RLOC
00004 0020 00 0 00116 TRA OPRAND
00005 0500 60 4 00001 CLA* 1,4
00006 0300 60 4 00002 FAD* 2,4
00007 0601 00 0 00146 STO RLOC
00010 0131 00 0 00000 XCA
00011 0300 60 0 00147 FAD* LOWA
00012 0760 00 0 00011 FRN
00013 0300 60 0 00150 FAD* LOWB
00014 0300 00 0 00146 FAD RLOC
00015 0601 60 4 00003 STO* 3,4
00016 -0600 60 0 00151 STQ* LOWC
00017 0020 00 4 00004 TRA 4,4
* DOUBLE-PRECISION FLOATING POINT SUBTRACTION
00020 -0625 00 0 00146 DFSB STL RLOC
00021 0020 00 0 00116 TRA OPRAND
00022 0500 60 4 00001 CLA* 1,4
00023 0302 60 4 00002 FSB* 2,4
BINARY CARD NO. DPFA0002
00024 0601 00 0 00146 STO RLOC
00025 0131 00 0 00000 XCA
00026 0300 60 0 00147 FAD* LOWA
00027 0760 00 0 00011 FRN
00030 0302 60 0 00150 FSB* LOWB
00031 0300 00 0 00146 FAD RLOC
00032 0601 60 4 00003 STO* 3,4
00033 -0600 60 0 00151 STQ* LOWC
00034 0020 00 4 00004 TRA 4,4
* DOUBLE-PRECISION FLOATING POINT MULTIPLICATION
00035 -0625 00 0 00146 DFMP STL RLOC
00036 0020 00 0 00116 TRA OPRAND
00037 0560 60 0 00147 LDQ* LOWA
00040 0260 60 4 00002 FMP* 2,4
00041 0760 00 0 00011 FRN
00042 0601 00 0 00146 STO RLOC
00043 0560 60 0 00150 LDQ* LOWB
00044 0260 60 4 00001 FMP* 1,4
00045 0760 00 0 00011 FRN
00046 0300 00 0 00146 FAD RLOC
00047 0760 00 0 00011 FRN
BINARY CARD NO. DPFA0003
00050 0601 00 0 00146 STO RLOC
00051 0560 60 4 00001 LDQ* 1,4
00052 0260 60 4 00002 FMP* 2,4
00053 0601 00 0 00147 STO LOWA
00054 0131 00 0 00000 XCA
00055 0300 00 0 00146 FAD RLOC
00056 0760 00 0 00011 FRN
1 FAP PAGE 3
00057 0300 00 0 00147 FAD LOWA
00060 0601 60 4 00003 STO* 3,4
00061 -0600 60 0 00151 STQ* LOWC
00062 0020 00 4 00004 TRA 4,4
* DOUBLE-PRECISION FLOATING POINT DIVISION
00063 -0754 00 0 00000 SFDP ZAC
00064 0625 00 0 00102 STT DSWT
00065 0601 00 0 00146 STO RLOC
00066 0020 00 0 00116 TRA OPRAND
00067 0500 00 0 00116 DFDP CLA OPRAND
00070 0625 00 0 00102 STT DSWT
00071 0600 00 0 00146 STZ RLOC
00072 0020 00 0 00116 TRA OPRAND
00073 0500 60 4 00001 DIV CLA* 1,4 DIVIDE THE DOUBLE-PRECISION DIVIDEND
BINARY CARD NO. DPFA0004
00074 0241 00 0 00146 FDP RLOC BY THE HIGH ORDER WORD OF THE DIVISOR.
00075 -0600 60 4 00003 STQ* 3,4 A CORRECTION TERM WILL BE NEEDED IF
00076 -0300 60 0 00147 UFA* LOWA
00077 0241 00 0 00146 FDP RLOC
00100 0131 00 0 00000 XCA
00101 0300 60 4 00003 FAD* 3,4 RESULT OF SFDP IN (AC,MQ).
00102 -3 00000 0 00113 DSWT TXL DRET,0,0
00103 0601 60 4 00003 STO* 3,4 DIVISOR IS DOUBLE-PRECISION, COMPUTE
00104 -0600 00 0 00147 STQ LOWA THE CORRECTION TERM TO THE ABOVE
00105 0502 60 0 00150 CLS* LOWB PARTIAL QUOTIENT.
00106 0241 00 0 00146 FDP RLOC
00107 0260 60 4 00003 FMP* 3,4 QUOTIENT*(1 - LOWB/HIGHB).
00110 0300 00 0 00147 FAD LOWA
00111 0760 00 0 00011 FRN
00112 0300 60 4 00003 FAD* 3,4
00113 0601 60 4 00003 DRET STO* 3,4
00114 -0600 60 0 00151 STQ* LOWC
00115 0020 00 4 00004 TRA 4,4
SPACE 1
* INTERNAL SUBROUTINE TO LOCATE LOW ORDER OPERANDS FOR
* INDIRECT ADDRESSING TO LOWA,LOWB AND LOWC.
00116 -0500 00 4 00001 OPRAND CAL 1,4
00117 0361 00 0 00152 ACL =1
BINARY CARD NO. DPFA0005
00120 0601 00 0 00147 STO LOWA
00121 -0500 00 4 00002 CAL 2,4
00122 0361 00 0 00152 ACL =1
00123 0601 00 0 00150 STO LOWB
00124 -0500 00 4 00003 CAL 3,4
00125 0361 00 0 00152 ACL =1
00126 0601 00 0 00151 STO LOWC
00127 -0500 00 0 00146 CAL RLOC
00130 0100 00 0 00134 TZE FDP
00131 0361 00 0 00152 ACL =1 COMPUTE RETURN LOCATION FOR ADD,SUB AND
00132 0621 00 0 00133 STA *+1 MPY.
00133 0020 00 0 00000 TRA **
00134 0300 60 4 00002 FDP FAD* 2,4 NORMALIZATION OF DIVISOR SO THAT DIVISION
00135 0601 00 0 00146 STO RLOC WILL ALWAYS TAKE PLACE.
1 FAP PAGE 4
00136 -0100 00 0 00073 TNZ DIV
00137 0020 00 0 00140 EXIT TRA *+1 ZERO DIVISOR EXIT SET BY DCEXIT.
00140 0074 00 4 00000 CALL ENDJOB NO CALL TO DCEXIT MI
SPACE 1
00143 0500 00 4 00001 DCEXIT CLA 1,4 SET DIVIDE CHECK EXIT TRANSFER TO ADDRESS
BINARY CARD NO. DPFA0006
00144 0621 00 0 00137 STA EXIT OF ARGUMENT OF DCEXIT.
00145 0020 00 4 00002 TRA 2,4
SPACE 1
PROGRAM STORAGE
00146 0 00000 0 00000 RLOC PZE OPRAND RETURN AND SCRATCH.
00147 0 00000 0 00000 LOWA PZE LOCATIONS FOR INDIRECT ADDRESSING OF LOW
00150 0 00000 0 00000 LOWB PZE ORDER WORDS OF THE OPERANDS.
00151 0 00000 0 00000 LOWC PZE
SPACE 1
END
1 FAP PAGE 1
POST PROCESSOR ASSEMBLY DATA
153 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
73 DIV 136
134 FDP 130
3 DFAD 0
67 DFDP 0
35 DFMP 0
20 DFSB 0
113 DRET 102
102 DSWT 64, 70
137 EXIT 144
147 LOWA 11, 26, 37, 53, 57, 76, 104, 110, 120
150 LOWB 13, 30, 43, 105, 123
151 LOWC 16, 33, 61, 114, 126
146 RLOC 3, 7, 14, 20, 24, 31, 35, 42, 46, 50, 55, 65, 71, 74, 77, 106, 127
135
63 SFDP 0
143 DCEXIT 0
0 ENDJOB 140
116 OPRAND 4, 21, 36, 66, 67, 72
0 NO ERROR IN ABOVE ASSEMBLY.
DIM0 BCD 05/28/67 2257.8 272 00000
1 FAP PAGE 1
*DIM POSITIVE DIFFERENCE,,,FOR USE WITH MAD PROGRAMS
* FLOATING POINT ARGU(MENT AND FLOATING POINT FUNCTION
* SMALLEST POSITIVE DIFFERENCE IS ZERO
00002 ENTRY DIM
* CALLING SEQUENCE EXECUTE DIM.(ARG1,ARG2)
* WHERE 1,4 HAS A TXL IN THE OP CODE FIELD
* RESULT IN ARITHMETIC ACCUMULATOR
LINKAGE DIRECTOR
00000 000000000000
00001 243144606060
00002 0500 60 4 00001 DIM CLA* 1,4
00003 0302 60 4 00002 FSB* 2,4
00004 0120 00 0 00006 TPL *+2
T 00005 -0754 00 0 00000 PXD
00006 0020 00 4 00003 TRA 3,4
END
1 FAP PAGE 1
POST PROCESSOR ASSEMBLY DATA
7 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
2 DIM 0
0 NO ERROR IN ABOVE ASSEMBLY.
DPNV BCD 05/28/67 2257.8 2726 00000
1 FAP PAGE 1
*GLAIDE
* AUGUST 22,1962
* M.I.T.VERSION OF GLAIDE, AUTOMATIC INTEGRATION OF DIFFERENTIAL
* EQUATIONS SD 413 AND 827
* AIDE IS A LIBRARY FUNCTION OF FORTRAN
* X = INDVF ( X,H) INCREMENTS THE INDEPENDENT VARIABLE
* Y = DPNVF (Y,DY) INCREMENTS Y USING ADAMS FOUR POINT FORMULA
BINARY CARD NO. DPNV0000
00005 ENTRY INDV
00017 ENTRY DPNV
TRANSFER VECTOR
BINARY CARD NO. DPNV0001
00000 255151465160 ERROR
00001 432464444760 LDUMP
LINKAGE DIRECTOR
00002 000000000000
00003 314524656060
00062 NUMBER EQU 50
00004 0 00000 0 00002 PZE INDV-3
00005 -0634 00 4 00002 INDV SXD INDV-3,4 FOR ERROR SUBPROGRAM
00006 -0634 00 4 00030 SXD ENTRT,4
00007 -0634 00 1 00127 SXD IR1,1
00010 -0634 00 2 00132 SXD IR2,2
00011 0601 00 0 00303 STO TEMP1
00012 0500 00 0 00004 CLA INDV-1
00013 0020 00 0 00024 TRA DPNV+5
00014 0 00000 0 00015 PZE DPNV-2
00015 0 00000 0 00000 PZE ORDER OF FORTRAN FUNCTION, SO ENTRY POINT
00016 244745656060 BCI 1,DPNV CAN BE FOUND BY (FPT)
00017 -0634 00 4 00015 DPNV SXD DPNV-2,4 FOR ERROR SUBPROGRAM
00020 -0634 00 1 00127 SXD IR1,1
00021 -0634 00 2 00132 SXD IR2,2
00022 0601 00 0 00303 STO TEMP1
00023 0500 00 0 00014 CLA DPNV-3
BINARY CARD NO. DPNV0002
00024 0621 00 0 00211 STA ERPRN+3
00025 0621 00 0 00223 STA REPT
00026 0621 00 0 00225 STA OUT
00027 -0600 00 0 00304 STQ TEMP1+1
00030 -3 00000 4 00071 ENTRT TXL INDV1,4,**
00031 -0534 00 1 00112 LXD COUNT,1
00032 0560 00 1 00624 LDQ TEMP2+5+4*NUMBER,1
00033 0260 00 0 00312 FMP TEMP2+3
00034 0601 00 0 00305 STO TEMP1+2
00035 0560 00 1 00542 LDQ TEMP2+5+3*NUMBER,1
00036 3 00000 4 00040 TXH1 TXH *+2,4,**
00037 -0600 00 1 00624 STQ TEMP2+5+4*NUMBER,1
00040 0260 00 0 00311 FMP TEMP2+2
00041 0300 00 0 00305 FAD TEMP1+2
00042 0601 00 0 00305 STO TEMP1+2
1 FAP PAGE 2
00043 0560 00 1 00460 LDQ TEMP2+5+2*NUMBER,1
00044 3 00000 4 00046 TXH2 TXH *+2,4,**
00045 -0600 00 1 00542 STQ TEMP2+5+3*NUMBER,1
00046 0260 00 0 00310 FMP TEMP2+1
00047 0300 00 0 00305 FAD TEMP1+2
BINARY CARD NO. DPNV0003
00050 0601 00 0 00305 STO TEMP1+2
00051 0560 00 0 00304 LDQ TEMP1+1
00052 3 00000 4 00054 TXH3 TXH *+2,4,**
00053 -0600 00 1 00460 STQ TEMP2+5+2*NUMBER,1
00054 0260 00 0 00307 FMP TEMP2
00055 0300 00 0 00305 FAD TEMP1+2
00056 0765 00 0 00043 LRS 35
00057 0260 00 0 00306 FMP TEMP1+3
00060 0300 00 1 00375 FAD TEMP2+4+NUMBER,1
00061 0300 00 0 00303 FAD TEMP1
00062 -0600 00 1 00375 STQ TEMP2+4+NUMBER,1
00063 1 00001 1 00064 TXI *+1,1,1
00064 3 00062 1 00204 TXH ERR2,1,NUMBER
00065 -0634 00 1 00112 OUT1 SXD COUNT,1
00066 -0534 00 1 00127 LXD IR1,1
00067 -0534 00 2 00132 LXD IR2,2
00070 0020 00 4 00001 TRA 1,4
00071 -0600 00 0 00306 INDV1 STQ TEMP1+3
00072 -0760 00 0 00141 SLT 1
00073 0020 00 0 00201 TRA ERR1
BINARY CARD NO. DPNV0004
00074 -0534 00 2 00302 LXD TXLS+7,2
00075 0600 00 2 00376 STZ TEMP2+5+NUMBER,2
00076 2 00001 2 00075 TIX *-1,2,1
00077 0074 00 2 00113 TSX COUNT+1,2
00100 0560 00 0 00273 LDQ TXLS
00101 0500 00 0 00254 CLA DECD+1
00102 0601 00 0 00307 STO TEMP2
00103 -0600 00 0 00073 STQ INDV1+2
00104 0500 00 0 00375 TXL8 CLA TEMP2+4+NUMBER
00105 0300 00 0 00306 FAD TEMP1+3
00106 0300 00 0 00303 FAD TEMP1
00107 -0600 00 0 00375 STQ TEMP2+4+NUMBER
00110 0774 00 1 00001 AXT 1,1
00111 -0634 00 1 00030 SXD ENTRT,1
00112 -3 00000 0 00065 COUNT TXL OUT1,,**
00113 0774 00 1 77777 AXT -1,1
00114 -0634 00 1 00036 SXD TXH1,1
00115 -0634 00 1 00044 SXD TXH2,1
00116 -0634 00 1 00052 SXD TXH3,1
00117 0020 00 2 00001 TRA 1,2
BINARY CARD NO. DPNV0005
00120 0560 00 0 00274 TXL1 LDQ TXLS+1
00121 0500 00 0 00255 CLA DECD+2
00122 0601 00 0 00307 STO TEMP2
00123 0760 00 0 00002 CHS
00124 0601 00 0 00310 STO TEMP2+1
1 FAP PAGE 3
00125 -0600 00 0 00073 STQ INDV1+2
00126 0500 00 0 00303 CLA TEMP1
00127 -3 00000 0 00110 IR1 TXL COUNT-2,,**
00130 0560 00 0 00275 TXL2 LDQ TXLS+2
00131 0500 00 0 00256 CLA DECD+3
00132 -3 00000 0 00122 IR2 TXL COUNT+8,,**
00133 -0534 00 2 00064 TXL3 LXD OUT1-1,2
00134 0500 00 2 00624 CLA TEMP2+5+4*NUMBER,2
00135 0601 00 2 00460 STO TEMP2+5+2*NUMBER,2
00136 2 00001 2 00134 TIX *-2,2,1
00137 0500 00 0 00253 CLA DECD
00140 0601 00 0 00307 STO TEMP2
00141 0502 00 0 00255 CLS DECD+2
00142 0601 00 0 00310 STO TEMP2+1
00143 0560 00 0 00276 LDQ TXLS+3
BINARY CARD NO. DPNV0006
00144 0020 00 0 00103 TRA COUNT-7
00145 0774 00 2 00003 TXL4 AXT 3,2
00146 0500 00 2 00273 CLA TXLS,2
00147 0601 00 2 00312 STO TEMP2+3,2
00150 2 00001 2 00146 TIX *-2,2,1
00151 0560 00 0 00277 LDQ TXLS+4
00152 0774 00 1 00000 TR1 AXT 0,1
00153 0074 00 2 00114 TSX COUNT+2,2
00154 0020 00 0 00125 TRA IR1-2
00155 0774 00 2 00003 TXL5 AXT 3,2
00156 0500 00 2 00271 CLA DECD+14,2
00157 0601 00 2 00312 STO TEMP2+3,2
00160 2 00001 2 00156 TIX *-2,2,1
00161 0074 00 2 00113 TSX COUNT+1,2
00162 0560 00 0 00300 LDQ TXLS+5
00163 0020 00 0 00103 TRA COUNT-7
00164 0774 00 2 00004 TXL6 AXT 4,2
00165 0502 00 2 00266 CLS DECD+11,2
00166 0601 00 2 00313 STO TEMP2+4,2
00167 2 00001 2 00165 TIX *-2,2,1
BINARY CARD NO. DPNV0007
00170 0560 00 0 00301 LDQ TXLS+6
00171 0020 00 0 00152 TRA TR1
00172 0774 00 2 00004 TXL7 AXT 4,2
00173 0500 00 2 00263 CLA DECD+8,2
00174 0601 00 2 00313 STO TEMP2+4,2
00175 2 00001 2 00173 TIX *-2,2,1
00176 0074 00 2 00113 TSX COUNT+1,2
00177 0560 00 0 00302 LDQ TXLS+7
00200 0020 00 0 00103 TRA COUNT-7
00201 0500 00 0 00227 ERR1 CLA LARG1
00202 0621 00 0 00207 STA ERPRN+1
00203 0020 00 0 00206 TRA ERPRN
00204 0500 00 0 00230 ERR2 CLA LARG2
00205 0621 00 0 00207 STA ERPRN+1
00206 0074 00 4 00000 ERPRN TSX $ERROR,4
00207 0 00000 0 00000 PZE **
00210 1 00000 0 00212 TXI *+2,,0
1 FAP PAGE 4
00211 0 00000 0 00000 PZE **,,0
00212 0500 00 0 00211 CLA *-1
00213 0400 00 0 00625 ADD =1
BINARY CARD NO. DPNV0008
00214 0621 00 0 00220 STA LDMP+1 ADDRESS OF BCI NAME
00215 0500 00 0 00303 CLA TEMP1 ARGUMENTS IN AC AND MQ
00216 0560 00 0 00304 LDQ TEMP1+1
00217 0074 00 4 00001 LDMP TSX $LDUMP,4
00220 0 00000 0 00000 PZE **
00221 0020 00 0 00223 TRA REPT
00222 0020 00 0 00225 TRA OUT
00223 -0534 00 4 00000 REPT LXD **,4
00224 0020 00 4 00000 TRA 0,4
00225 -0534 00 4 00000 OUT LXD **,4
00226 0020 00 4 00001 TRA 1,4
00227 0 00000 0 00231 LARG1 PZE ARG1
00230 0 00000 0 00241 LARG2 PZE ARG2
00231 606225456225 ARG1 BCI 7, SENSE LIGHT 1 NOT ON UPON FIRST ENTRY
00232 604331273063
00233 600160454663
00234 604645606447
00235 464560263151
00236 626360254563
00237 517060606060
BINARY CARD NO. DPNV0009
00240 -377777777777 OCT 777777777777
00241 604564442225 ARG2 BCI 9, NUMBER OF DEPENDENT VARIABLE STATEMENTS EXCEEDED 50
00242 516046266024
00243 254725452425
00244 456360652151
00245 312122432560
00246 626321632544
00247 254563626025
00250 672325252425
00251 246005006060
00252 -377777777777 OCT 777777777777
00253 +201600000000 DECD DEC 1.5
00254 +201400000000 DEC 1.
00255 +200400000000 DEC .5
00256 +177525252525 DEC .333333333
00257 +202445252525 DEC 2.291666667
00260 -202472525252 DEC -2.458333333
00261 +201612525252 DEC 1.541666667
00262 -177600000000 DEC -.375
00263 +201440000000 DEC 1.125
BINARY CARD NO. DPNV0010
00264 -201440000000 DEC -1.125
00265 +177600000000 DEC .375
00266 +201752525252 DEC 1.916666667
00267 -201525252525 DEC -1.333333333
00270 +177652525252 DEC .416666667
00271 -200652525252 DEC -.833333333
00272 +177652525252 DEC .416666667
1 FAP PAGE 5
TD 00273 -3 00000 0 00120 TXLS TXL TXL1
TD 00274 -3 00000 0 00130 TXL TXL2
TD 00275 -3 00000 0 00133 TXL TXL3
TD 00276 -3 00000 0 00145 TXL TXL4
TD 00277 -3 00000 0 00155 TXL TXL5
TD 00300 -3 00000 0 00164 TXL TXL6
TD 00301 -3 00000 0 00172 TXL TXL7
00302 -3 00066 0 00104 TXL TXL8,,NUMBER+4
00303 TEMP1 BSS 4
00307 TEMP2 BSS 4*NUMBER+6
END
LITERALS
BINARY CARD NO. DPNV0011
00625 000000000001
1 FAP PAGE 1
POST PROCESSOR ASSEMBLY DATA
626 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
127 IR1 7, 20, 66, 154
132 IR2 10, 21, 67
225 OUT 26, 222
152 TR1 171
231 ARG1 227
241 ARG2 230
253 DECD 101, 121, 131, 137, 141, 156, 165, 173
17 DPNV 0, 13, 14, 17, 23
201 ERR1 73
204 ERR2 64
5 INDV 0, 4, 5, 12
217 LDMP 214
65 OUT1 112, 133
223 REPT 25, 221
36 TXH1 114
44 TXH2 115
52 TXH3 116
120 TXL1 273
130 TXL2 274
133 TXL3 275
145 TXL4 276
155 TXL5 277
164 TXL6 300
172 TXL7 301
104 TXL8 302
273 TXLS 74, 100, 120, 130, 143, 146, 151, 162, 170, 177
112 COUNT 31, 65, 77, 127, 132, 144, 153, 161, 163, 176, 200
30 ENTRT 6, 111
206 ERPRN 24, 202, 203, 205
0 ERROR 206
71 INDV1 30, 103, 125
227 LARG1 201
230 LARG2 204
1 LDUMP 217
303 TEMP1 11, 22, 27, 34, 41, 42, 47, 50, 51, 55, 57, 61, 71, 105, 106, 126, 215
216
307 TEMP2 32, 33, 35, 37, 40, 43, 45, 46, 53, 54, 60, 62, 75, 102, 104, 107, 122
124, 134, 135, 140, 142, 147, 157, 166, 174
62 NUMBER 4, 32, 35, 37, 43, 45, 53, 60, 62, 64, 75, 104, 107, 134, 135, 302, 307
0 NO ERROR IN ABOVE ASSEMBLY.
DREA BCD 05/28/67 2257.8 3144 00000
1 FAP PAGE 1
* DREAD READS DISK FILES WITH A FORMAT.
MODIFIED FOR NEW FILE SYSTEM JUNE 65 EMK
BINARY CARD NO. DREA0000
00014 ENTRY DREAD
TRANSFER VECTOR
BINARY CARD NO. DREA0001
00000 274521446060 GNAM
00001 234643636060 COLT
00002 745163453460 (RTN)
00003 743146303460 (IOH)
00004 222651252124 BFREAD
00005 624521476060 SNAP
00006 222623434662 BFCLOS
00007 254524266060 ENDF
00010 254626673163 EOFXIT
00011 665126436760 WRFLX
LINKAGE DIRECTOR
00012 000000000000
00013 245125212460
00026 BUFSIZ EQU 22
00012 XR4 SYN *-2
00014 DREAD SYN *
00014 0600 00 0 00307 IODEC STZ MADSW ZERO FOTRAN AND MAD SWITCHES
00015 0600 00 0 00310 STZ FTNSW
00016 0600 00 0 00311 STZ NDFLCT
00017 0634 00 2 00104 SXA X2,2
00020 0634 00 1 00105 SXA X1,1 SAVE XRS
00021 -0634 00 4 00012 SXD XR4,4
00022 0074 00 4 00000 TSX $GNAM,4 GET FILE NAME
00023 0 00000 0 00012 PZE XR4
BINARY CARD NO. DREA0002
00024 0 00000 0 00314 PZE FILNAM
00025 0100 00 0 00036 TZE FAP AC CONTAINS CODE FOR CALLING PROGRAM TYPE
00026 0402 00 0 00316 SUB =1
00027 0100 00 0 00036 TZE FAP
00030 0402 00 0 00316 SUB =1
00031 0100 00 0 00034 TZE FRTRN 2=FORTRAN
00032 0601 00 0 00307 STO MADSW 3=MAD, SET MAD SWITCH
00033 0020 00 0 00036 TRA FAP
00034 0500 00 0 00316 FRTRN CLA =1
00035 0601 00 0 00310 STO FTNSW SET FORTRAN SWITCH
00036 0074 00 4 00001 FAP TSX $COLT,4 COUNTS ARGUMENTS
00037 0 00000 0 00012 PZE XR4
00040 -0734 00 2 00000 PDX ,2
00041 0636 00 4 00106 SCA IOEXT,4
00042 0636 00 4 00064 SCA RCLA,4
00043 0636 00 4 00071 SCA RSTQ,4
00044 0600 00 0 00312 STZ WC ZERO WORD COUNT
00045 -3 00001 2 00103 TXL X4,2,1
1 FAP PAGE 2
00046 -0534 00 4 00012 LXD XR4,4
00047 0560 00 4 00002 LDQ 2,4
BINARY CARD NO. DREA0003
00050 -0500 60 4 00002 CAL* 2,4
00051 0604 00 0 00313 FLAG STI IND IS FMT SET
00052 0044 00 0 00000 PAI
00053 -0320 00 0 00321 ANA =O777700777777 ERASE FLAG
00054 -0056 00 000077 LNT 77 TEST IF POINTER FLAG
00055 -0130 00 0 00000 XCL
00056 0441 00 0 00313 LDI IND
00057 0602 00 0 00061 SLW FMTR STORE FORMAT FOR (IOH)
00060 0074 00 4 00107 TSX (DSH),4 PROGRAM TO CALL (IOH)
00061 0 00000 0 00000 FMTR *** **
00062 1 77776 2 00063 TXI *+1,2,-2
00063 -3 00000 2 00073 TXL CTPAR+1,2,0
00064 0500 00 2 00000 RCLA CLA **,2 STORE ARGUMENT IN STR
00065 0621 00 0 00067 STA *+2
00066 0622 00 0 00067 STD *+1
00067 -1 00000 0 00000 STR IF MAD, (IOH) STORES INTO LIST
00070 0520 00 0 00310 ZET FTNSW IF FORTRAN
00071 -0600 60 2 00000 RSTQ STQ* **,2 CONVERTED WORD IN MQ
00072 2 00001 2 00064 CTPAR TIX RCLA,2,1 IS THIS LAST AEGUMENT
00073 0520 00 0 00310 ZET FTNSW YES. CLOSE OUT
BINARY CARD NO. DREA0004
00074 0020 00 0 00077 TRA *+3
00075 -1 00000 0 00000 STR
00076 0020 00 0 00100 TRA IOR
00077 0074 00 4 00002 TSX $(RTN),4
00100 0500 00 0 00312 IOR CLA WC RETURN WORD COUNT IN AC
00101 0520 00 0 00310 ZET FTNSW
00102 0767 00 0 00022 ALS 18 IF FORTRAN, IN DECREMENT
00103 -0534 00 4 00012 X4 LXD XR4,4
00104 0774 00 2 00000 X2 AXT ,2
00105 0774 00 1 00000 X1 AXT ,1
00106 0020 00 0 00000 IOEXT TRA **
00107 (DSH) SYN *
00107 -0500 00 0 00245 CAL MODE1
00110 0602 00 0 00150 SLW BRNCH1
00111 -0500 00 0 00246 CAL MODE2
00112 0602 00 0 00151 SLW BRNCH2
00113 -0500 00 0 00137 CAL TPCNT
00114 0602 00 0 77741 SLW COL COL=TXH,0,,MAXIMUM COL. WIDTH
00115 0630 00 0 77740 FT STP RTN
00116 -0634 00 4 77740 SXD RTN,4
00117 -0500 00 4 00001 CAL 1,4
BINARY CARD NO. DREA0005
00120 0621 00 0 77740 STA RTN RTN=TXH,FORMAT LOC,,XR4 ON ENTRY TO (DSH)
00121 -0520 00 0 00307 NZT MADSW IS CALLING PROG. FORTRAN
00122 0020 00 0 00131 TRA FTCK YES
00123 -0500 00 0 00140 CAL MAD MO. MAD. PREFIX OF FMT IS TXH
00124 0602 00 0 77737 SLW FMT FMT=TSH,,1(FORWRD) OR -1(BCKWRD)
00125 0600 00 0 00000 SETZ STZ 0
1 FAP PAGE 3
00126 1 77776 4 00127 TXI *+1,4,-2 SET UP LOC 0 TO RETURN FROM (IOH)
00127 0636 00 4 00000 SCA 0,4 TO CALLING PROGRAM
00130 0020 00 0 00003 TRA $(IOH)
00131 -0520 00 0 00310 FTCK NZT FTNSW
00132 0020 00 0 00135 TRA *+3
00133 -0500 00 0 00142 CAL FORB
00134 0020 00 0 00124 TRA SETZ-1
00135 -0500 00 0 00141 CAL FORF NO. FORMAT FORWARD
00136 0020 00 0 00124 TRA SETZ-1
00137 3 00204 0 00000 TPCNT TXH ,,132
00140 3 00001 0 00143 MAD TXH TSH,,1
00141 3 77777 0 00143 FORF TXH TSH,,-1
00142 -3 00001 0 00143 FORB TXL TSH,,1
*
*
00143 0634 00 4 00203 TSH SXA TSHX,4
BINARY CARD NO. DREA0006
00144 0774 00 4 00026 AXT 22,4 BLANKS OUT INPUT BUFFER
00145 -0500 00 0 00320 CAL =H ..
00146 0602 00 4 77770 SLW REC+22,4
00147 2 00001 4 00146 TIX *-1,4,1
TD 00150 3 00000 0 00234 BRNCH1 TXH VARLIN
TD 00151 3 00000 0 00205 BRNCH2 TXH FIXLIN
00152 0074 00 4 00004 TSX $BFREAD,4
00153 3 00000 0 00314 PTH FILNAM
00154 3 00000 0 00315 PTH FILNAM+1
00155 3 00001 0 00244 PTH CNTRL,,1
00156 3 00000 0 00247 PTH NDFILA
00157 3 00000 0 00311 PTH NDFLCT
00160 3 00000 0 00005 PTH $SNAP
00161 -0500 00 0 00244 CAL CNTRL
00162 -0765 00 0 00022 LGR 18
00163 0322 00 0 00317 ERA =O777777
00164 0100 00 0 00215 TZE NORMAL
00165 -0500 00 0 00244 CAL CNTRL
00166 0602 00 0 77742 SLW REC
00167 0074 00 4 00004 TSX $BFREAD,4
BINARY CARD NO. DREA0007
00170 3 00000 0 00314 PTH FILNAM
00171 3 00000 0 00315 PTH FILNAM+1
00172 3 00015 0 77743 PTH REC+1,,13
00173 3 00000 0 00247 PTH NDFILA
00174 3 00000 0 00311 PTH NDFLCT
00175 3 00000 0 00005 PTH $SNAP
00176 0502 00 0 00151 CLS BRNCH2
00177 0601 00 0 00151 STO BRNCH2
00200 B SYN *
00200 0534 00 4 00312 LXA WC,4
00201 1 00016 4 00202 TXI *+1,4,14
00202 0634 00 4 00312 SXA WC,4
00203 0774 00 4 00000 TSHX AXT **,4
00204 0020 00 4 00001 TRA 1,4
*
00205 0074 00 4 00004 FIXLIN TSX $BFREAD,4
1 FAP PAGE 4
00206 3 00000 0 00314 PTH FILNAM
00207 3 00000 0 00315 PTH FILNAM+1
00210 3 00016 0 77742 PTH REC,,14
00211 3 00000 0 00247 PTH NDFILA
00212 3 00000 0 00311 PTH NDFLCT
00213 3 00000 0 00005 PTH $SNAP
BINARY CARD NO. DREA0008
00214 0020 00 0 00200 TRA B
*
00215 0502 00 0 00150 NORMAL CLS BRNCH1
00216 0601 00 0 00150 STO BRNCH1
00217 0534 00 4 00244 VAR1 LXA CNTRL,4
00220 -0634 00 4 00224 SXD CT,4
00221 0074 00 4 00004 READ TSX $BFREAD,4
00222 3 00000 0 00314 PTH FILNAM
00223 3 00000 0 00315 PTH FILNAM+1
00224 3 00000 0 77742 CT PTH REC,,**
00225 3 00000 0 00247 PTH NDFILA
00226 3 00000 0 00311 PTH NDFLCT
00227 3 00000 0 00005 PTH $SNAP
00230 -0500 00 0 00244 CAL CNTRL
00231 0401 00 0 00312 ADM WC
00232 0621 00 0 00312 STA WC
00233 0020 00 0 00203 TRA TSHX
00234 0074 00 4 00004 VARLIN TSX $BFREAD,4
00235 3 00000 0 00314 PTH FILNAM
00236 3 00000 0 00315 PTH FILNAM+1
00237 3 00001 0 00244 PTH CNTRL,,1
BINARY CARD NO. DREA0009
00240 3 00000 0 00247 PTH NDFILA
00241 3 00000 0 00311 PTH NDFLCT
00242 3 00000 0 00005 PTH $SNAP
00243 0020 00 0 00217 TRA VAR1
00244 0 00000 0 00000 CNTRL
TD 00245 3 00000 0 00234 MODE1 TXH VARLIN
TD 00246 3 00000 0 00205 MODE2 TXH FIXLIN
00247 NDFILA SYN *
00247 0520 00 0 00311 ZET NDFLCT
00250 0020 00 0 00266 TRA FEROR
00251 0074 00 4 00006 TSX $BFCLOS,4
00252 3 00000 0 00314 PTH FILNAM
00253 3 00000 0 00315 PTH FILNAM+1
00254 3 00000 0 00255 PTH *+1
00255 0074 00 4 00007 TSX $ENDF,4
00256 0 00000 0 00314 PZE FILNAM
00257 ENDFIL SYN *
00257 0500 00 0 00312 CLA WC
00260 0520 00 0 00310 ZET FTNSW
00261 0767 00 0 00022 ALS 18
00262 0534 00 1 00105 LXA X1,1
00263 0534 00 2 00104 LXA X2,2
1 FAP PAGE 5
BINARY CARD NO. DREA0010
00264 0074 00 4 00010 TSX $EOFXIT,4 PRINT COMMENT AND EXIT
00265 0 00000 0 00314 FILNAM
00266 0560 00 0 00314 FEROR LDQ FILNAM
00267 -0600 00 0 00305 STQ MESS3+5
00270 0560 00 0 00315 LDQ FILNAM+1
00271 -0600 00 0 00306 STQ MESS3+6
00272 0074 00 4 00011 TSX $WRFLX,4
00273 0 00007 0 00300 MESS3,,7
00274 0500 00 0 00311 CLA NDFLCT
00275 -0760 00 0 00003 SSM
00276 0601 00 0 00312 STO WC
00277 0020 00 0 00251 TRA NDFILA+2
00300 603145234651 MESS3 BCI 7, INCORRECT FORMAT IN BCD FILE
00301 512523636026
00302 465144216360
00303 314560222324
00304 602631432560
00305 606060606060
00306 606060606060
00307 +000000000000 MADSW DEC 0
BINARY CARD NO. DREA0011
00310 +000000000000 FTNSW DEC 0
00311 0 00000 0 00000 NDFLCT PZE
00312 +000000000000 WC DEC 0
00313 +000000000000 IND DEC 0
00314 FILNAM BSS 2
77771 COMMON -200
77771 STLOC COMMON 1
77742 COMMON BUFSIZ
77742 REC COMMON 1
77741 COL COMMON 1
77740 RTN COMMON 1
77737 FMT COMMON 1
END
LITERALS
BINARY CARD NO. DREA0012
00316 000000000001
00317 000000777777
00320 606060606060
00321 777700777777
1 FAP PAGE 1
POST PROCESSOR ASSEMBLY DATA
77736 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
322 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
200 B 200, 214
224 CT 220
115 FT
312 WC 44, 100, 200, 202, 231, 232, 257, 276
105 X1 20, 262
104 X2 17, 263
103 X4 45
77741 COL 114, 316
36 FAP 25, 27, 33
77737 FMT 124, 316
313 IND 51, 56
100 IOR 76
140 MAD 123
77742 REC 146, 166, 172, 210, 224, 316
77740 RTN 115, 116, 120, 316
143 TSH 140, 141, 142
12 XR4 14, 21, 23, 37, 46, 103
1 COLT 36
7 ENDF 255
51 FLAG
61 FMTR 57
142 FORB 133
141 FORF 135
131 FTCK 122
0 GNAM 22
64 RCLA 42, 72
221 READ
71 RSTQ 43
125 SETZ 134, 136
5 SNAP 160, 175, 213, 227, 242
203 TSHX 143, 233
217 VAR1 243
244 CNTRL 155, 161, 165, 217, 230, 237
72 CTPAR 63
14 DREAD 0, 14
266 FEROR 250
34 FRTRN 31
310 FTNSW 15, 35, 70, 73, 101, 131, 260
14 IODEC
106 IOEXT 41
307 MADSW 14, 32, 121
300 MESS3 267, 271, 273
245 MODE1 107
246 MODE2 111
77771 STLOC 316
137 TPCNT 113
11 WRFLX 272
107 (DSH) 60, 107
3 (IOH) 130
2 (RTN) 77
1 FAP PAGE 2
POST PROCESSOR ASSEMBLY DATA
6 BFCLOS 251
4 BFREAD 152, 167, 205, 221, 234
150 BRNCH1 110, 215, 216
151 BRNCH2 112, 176, 177
26 BUFSIZ 14, 316
257 ENDFIL 257
10 EOFXIT 264
314 FILNAM 24, 153, 154, 170, 171, 206, 207, 222, 223, 235, 236, 252, 253, 256, 265, 266, 270
205 FIXLIN 151, 246
247 NDFILA 156, 173, 211, 225, 240, 247, 277
311 NDFLCT 16, 157, 174, 212, 226, 241, 247, 274
215 NORMAL 164
234 VARLIN 150, 245
0 NO ERROR IN ABOVE ASSEMBLY.
DSKD BCD 06/25/69 2034.5 1624 00000
1 FOR TIME SHARING MODULAR VERSION. LP FEB 64 PAGE 1
EXECUTE DSKDMP.(NAMES,FIRST,N)
EXECUTE DSKLOD.(NAMES,FIRST,N)
P = DSKLOD.(...), WHERE P IS THE NUMBER OF WORDS LOADED
DUMP(LOAD) FIRST-N+1 TO FIRST.
WHERE FIRST IS HIGH CORE LOCATION.
NAMES SET BY VECTOR VALUES, OR BY 'SETNAM'.
VECTOR VALUES NAMES=$ ALFA BETA$
CALL SETNAM (NAMES, 12H ALFA BETA)
BINARY CARD NO. DSDMP000
00011 ENTRY DSKDMP
00047 ENTRY DSKLOD
TRANSFER VECTOR
BINARY CARD NO. DSDMP001
00000 464725456060 OPEN
00001 635126314325 TRFILE
00002 665126314325 WRFILE
00003 234346622560 CLOSE
00004 512426314325 RDFILE
00005 274521446060 GNAM
00006 624521476060 SNAP
LINKAGE DIRECTOR
00007 000000000000
00010 246242244447
00007 X4 SYN *-2
00011 DSKDMP SYN *
00011 -0634 00 4 00007 SXD X4,4
00012 0074 00 4 00102 TSX SET2,4 CALCULATE ADDR. + NO OF WORDS TO BE WRITTEN
00013 0500 00 0 00133 CLA CALL
00014 0601 00 0 00035 STO WR
00015 0074 00 4 00000 TSX $OPEN,4 OPEN FILE FOR WRITING ON DISK
00016 3 00000 0 00145 PTH =HW
00017 3 00000 0 00136 PTH FILNAM
00020 3 00000 0 00137 PTH FILNAM+1
00021 3 00000 0 00141 PTH =0
00022 3 00000 0 00142 PTH =2
00023 3 00000 0 00130 PTH ERET
BINARY CARD NO. DSDMP002
00024 0074 00 4 00001 TSX $TRFILE,4 TRUNCATE FILE
00025 3 00000 0 00136 PTH FILNAM
00026 3 00000 0 00137 PTH FILNAM+1
00027 3 00000 0 00141 PTH =0
00030 3 00000 0 00130 PTH ERET
00031 0074 00 4 00002 TSX $WRFILE,4
00032 3 00000 0 00136 PTH FILNAM
00033 3 00000 0 00137 PTH FILNAM+1
00034 3 00000 0 00141 PTH =0
1 FOR TIME SHARING MODULAR VERSION. LP FEB 64 PAGE 2
00035 3 00000 0 00000 WR PTH **,,** LOCATION AND NO. OF WORDS TO BE TRANSFERED
00036 3 00000 0 00143 PTH =-0
00037 3 00000 0 00143 PTH =-0
00040 3 00000 0 00130 PTH ERET
00041 0074 00 4 00003 TSX $CLOSE,4
00042 3 00000 0 00136 PTH FILNAM
00043 3 00000 0 00137 PTH FILNAM+1
00044 3 00000 0 00130 PTH ERET
00045 -0534 00 4 00007 H LXD X4,4
00046 0020 00 4 00004 TRA 4,4
00047 DSKLOD SYN *
00047 -0634 00 4 00007 SXD X4,4
BINARY CARD NO. DSDMP003
00050 0074 00 4 00102 TSX SET2,4 CALCULATE ADDR + NO OF WORDS TO BE READ
00051 0500 00 0 00133 CLA CALL
00052 0601 00 0 00066 STO RR
00053 0074 00 4 00000 TSX $OPEN,4 OPEN FILE FOR READING
00054 3 00000 0 00144 PTH =HR
00055 3 00000 0 00136 PTH FILNAM
00056 3 00000 0 00137 PTH FILNAM+1
00057 3 00000 0 00141 PTH =0
00060 3 00000 0 00142 PTH =2
00061 3 00000 0 00130 PTH ERET
00062 0074 00 4 00004 TSX $RDFILE,4 READ 'N' WORDS FROM FILE
00063 3 00000 0 00136 PTH FILNAM
00064 3 00000 0 00137 PTH FILNAM+1
00065 3 00000 0 00141 PTH =0
00066 3 00000 0 00000 RR PTH **,,**
00067 3 00000 0 00131 PTH EOF
00070 3 00000 0 00134 PTH EOFCT
00071 3 00000 0 00130 PTH ERET
00072 0500 00 0 00140 CLA WDCNT AC = 'N'
00073 0074 00 4 00003 PH TSX $CLOSE,4 CLOSE FILE
BINARY CARD NO. DSDMP004
00074 3 00000 0 00136 PTH FILNAM
00075 3 00000 0 00137 PTH FILNAM+1 CONTINUE TO
00076 3 00000 0 00130 PTH ERET . .
00077 -0520 00 0 00135 NZT FTNSW TEST FOR FORTRAN INTEGER
00100 0767 00 0 00022 ALS 18
00101 0020 00 0 00045 TRA H
00102 SET2 SYN *
00102 0634 00 4 00126 SXA RSET2,4
00103 0634 00 2 00125 SXA IR2,2
00104 0074 00 4 00005 TSX $GNAM,4
00105 0 00000 0 00007 PZE X4
00106 0 00000 0 00136 PZE FILNAM
00107 0402 00 0 00142 SUB =2
00110 0601 00 0 00135 STO FTNSW
00111 -0534 00 4 00007 LXD X4,4
00112 0500 60 4 00003 CLA* 3,4 GET WORD COUNT
00113 -0520 00 0 00135 NZT FTNSW IF NOT IN ADDRESS,
1 FOR TIME SHARING MODULAR VERSION. LP FEB 64 PAGE 3
00114 0771 00 0 00022 ARS 18 MOVE IT THERE.
00115 0621 00 0 00140 STA WDCNT
00116 0737 00 2 00000 PAC ,2
00117 1 00001 2 00120 TXI *+1,2,1
BINARY CARD NO. DSDMP005
00120 0500 00 4 00002 CLA 2,4 FIRST
00121 -0634 00 2 00123 SXD *+2,2
00122 0734 00 2 00000 PAX ,2
00123 1 00000 2 00124 TXI *+1,2,** FIRST -N+1
00124 0634 00 2 00133 SXA CALL,2
00125 0774 00 2 00000 IR2 AXT **,2
00126 0774 00 4 00000 RSET2 AXT **,4
00127 0020 00 4 00001 TRA 1,4 +RETURN TO C.P.
00130 0020 60 0 00006 ERET TRA* $SNAP
00131 0500 00 0 00134 EOF CLA EOFCT
00132 0020 00 0 00073 TRA PH
00133 2 00140 0 00000 CALL PTW **,,WDCNT
00134 0 00000 0 00000 EOFCT PZE
00135 0 00000 0 00135 FTNSW PZE * =0 IF FORTRAN CALL
00136 FILNAM BSS 2
BINARY CARD NO. DSDMP006
00140 0 00000 0 00000 WDCNT PZE
END
LITERALS
00141 000000000000
00142 000000000002
00143 400000000000
00144 516060606060
00145 666060606060
1 FOR TIME SHARING MODULAR VERSION. LP FEB 64 PAGE 1
POST PROCESSOR ASSEMBLY DATA
146 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
45 H 101
73 PH 132
66 RR 52
35 WR 14
7 X4 11, 45, 47, 105, 111
131 EOF 67
125 IR2 103
133 CALL 13, 51, 124
130 ERET 23, 30, 40, 44, 61, 71, 76
5 GNAM 104
0 OPEN 15, 53
102 SET2 12, 50, 102
6 SNAP 130
3 CLOSE 41, 73
134 EOFCT 70, 131
135 FTNSW 77, 110, 113
126 RSET2 102
140 WDCNT 72, 115, 133
11 DSKDMP 0, 11
47 DSKLOD 0, 47
136 FILNAM 17, 20, 25, 26, 32, 33, 42, 43, 55, 56, 63, 64, 74, 75, 106
4 RDFILE 62
1 TRFILE 24
2 WRFILE 31
0 NO ERROR IN ABOVE ASSEMBLY.
DSKR BCD 06/25/69 2034.5 216 00000
1 DISK ERROR SUBROUTINE - CALLS PRNTER VIA NEXCOM. 06/21/69 1837.2 PAGE 1
REVISED 9/14/65 - NOEL I. MORRIS
00001 ENTRY DSKER
TRANSFER VECTOR
00000 452567234644 NEXCOM
00001 -0500 00 0 00005 DSKER CAL =HPRNTER
00002 0560 00 0 00004 LDQ =O-71
00003 0074 00 4 00000 TSX $NEXCOM,4
END
LITERALS
00004 400000000071
00005 475145632551
1 DISK ERROR SUBROUTINE - CALLS PRNTER VIA NEXCOM. 06/21/69 1837.2 PAGE 1
POST PROCESSOR ASSEMBLY DATA
6 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
1 DSKER 0
0 NEXCOM 3
0 NO ERROR IN ABOVE ASSEMBLY.
DWRT BCD 05/28/67 2257.8 2369 00000
1 FAP PAGE 1
* DWRITE. WRITE DISK FILE USING A FORMAT
MODIFIED FOR NEW FILE SYSTEM JUNE 65 EMK
BINARY CARD NO. DWRT0000
00012 ENTRY DWRITE
TRANSFER VECTOR
BINARY CARD NO. DWRT0001
00000 274521446060 GNAM
00001 234643636060 COLT
00002 625123306060 SRCH
00003 742631433460 (FIL)
00004 743146303460 (IOH)
00005 665166213163 WRWAIT
00006 624521476060 SNAP
00007 222666513163 BFWRIT
LINKAGE DIRECTOR
00010 000000000000
00011 246651316325
00010 XR4 SYN *-2
00026 BUFSIZ EQU 22
00012 DWRITE SYN *
00012 0600 00 0 00205 IODEC STZ MADSW ZERO FOTRAN AND MAD SWITCHES
00013 0600 00 0 00206 STZ FTNSW
00014 0634 00 2 00102 SXA X2,2
00015 0634 00 1 00103 SXA X1,1 SAVE XRS
00016 -0634 00 4 00010 SXD XR4,4
00017 0074 00 4 00000 TSX $GNAM,4 GET FILE NAME
00020 0 00000 0 00010 PZE XR4
00021 0 00000 0 00241 PZE FILNAM
00022 0100 00 0 00033 TZE FAP AC CONTAINS CODE FOR CALLING PROGRAM TYPE
00023 0402 00 0 00244 SUB =1
BINARY CARD NO. DWRT0002
00024 0100 00 0 00033 TZE FAP
00025 0402 00 0 00244 SUB =1
00026 0100 00 0 00031 TZE FRTRN 2=FORTRAN
00027 0601 00 0 00205 STO MADSW 3=MAD, SET MAD SWITCH
00030 0020 00 0 00033 TRA FAP
00031 0500 00 0 00244 FRTRN CLA =1
00032 0601 00 0 00206 STO FTNSW SET FORTRAN SWITCH
00033 0074 00 4 00001 FAP TSX $COLT,4 COUNTS ARGUMENTS
00034 0 00000 0 00010 PZE XR4
00035 -0734 00 2 00000 PDX ,2
00036 0636 00 4 00066 SCA WCLA,4
00037 0636 00 4 00071 SCA WLDQ,4
00040 0636 00 4 00104 SCA IOEXT,4
00041 -3 00001 2 00101 TXL X4,2,1 ONLY ONE ARGUMENT. RETURN
00042 0600 00 0 00211 STZ BF
00043 0074 00 4 00002 TSX $SRCH,4 IS DIRECT CALL REQUIRED.
00044 0 00000 0 00241 PZE FILNAM
00045 0020 00 0 00047 TRA *+2 FILE NOT FOUND. TRY DIRECT CALL.
1 FAP PAGE 2
00046 0120 00 0 00050 TPL *+2 BUFFERED CALL IS CORRECT.
00047 -0625 00 0 00211 STL BF USE DIRECT CALL.
BINARY CARD NO. DWRT0003
00050 -0534 00 4 00010 LXD XR4,4
00051 0560 00 4 00002 LDQ 2,4
00052 -0500 60 4 00002 CAL* 2,4
00053 0604 00 0 00207 FLAG STI IND IS FMT SET
00054 0044 00 0 00000 PAI
00055 -0320 00 0 00246 ANA =O777700777777 ERASE FLAG
00056 -0056 00 000077 LNT 77 TEST IF POINTER FLAG
00057 -0130 00 0 00000 XCL
00060 0441 00 0 00207 LDI IND
00061 0602 00 0 00063 WRT SLW FMTW STORE FORMAT FOR (IOH)
00062 0074 00 4 00105 TSX (SDH),4
00063 0 00000 0 00000 FMTW *** **
00064 1 77776 2 00065 TXI *+1,2,-2
00065 -3 00000 2 00074 TXL CTPAW+1,2,0
00066 0500 00 2 00000 WCLA CLA **,2 STORE ARGUMENT IN STR
00067 0621 00 0 00072 STA *+3 FOR (IOH)
00070 0622 00 0 00072 STD *+2 IF MAD (IOH) GETS ARG FROM STR
00071 0560 60 2 00000 WLDQ LDQ* **,2 IF FORTRAN, (IOH) GETS ARGUMENT FROM MQ
00072 -1 00000 0 00000 STR
00073 2 00001 2 00066 CTPAW TIX WCLA,2,1 IS THIS LAST ARGUMENT
BINARY CARD NO. DWRT0004
00074 0520 00 0 00206 ZET FTNSW YES. CLOSE OUT
00075 0020 00 0 00100 TRA *+3
00076 -1 00000 0 00000 STR
00077 0020 00 0 00101 TRA X4
00100 0074 00 4 00003 TSX $(FIL),4
00101 -0534 00 4 00010 X4 LXD XR4,4
00102 0774 00 2 00000 X2 AXT **,2
00103 0774 00 1 00000 X1 AXT **,1
00104 0020 00 0 00000 IOEXT TRA **
00105 (SDH) SYN *
00105 0500 00 0 00131 CLA TPCNT
00106 0601 00 0 77741 STO COL COL=0,,MAXIMUM COL. WIDTH
00107 0630 00 0 77740 FT STP RTN
00110 -0634 00 4 77740 SXD RTN,4
00111 -0500 00 4 00001 CAL 1,4
00112 0621 00 0 77740 STA RTN RTN=TXH,FORMAT LOC,,XR4 ON ENTRY TO (DSH)
00113 -0520 00 0 00205 NZT MADSW IS CALLING PROG. FORTRAN
00114 0020 00 0 00123 TRA FTCK YES
00115 -0500 00 0 00132 CAL MAD MO. MAD. PREFIX OF FMT IS TXH
00116 0602 00 0 77737 SLW FMT FMT=WDSK,,1(FORWRD) OR -1(BCKWRD)
00117 0600 00 0 00000 SETZ STZ 0
BINARY CARD NO. DWRT0005
00120 1 77776 4 00121 TXI *+1,4,-2 SET UP LOC 0 TO RETURN FROM (IOH)
00121 0636 00 4 00000 SCA 0,4 TO CALLING PROGRAM
00122 0020 00 0 00004 TRA $(IOH)
00123 -0520 00 0 00206 FTCK NZT FTNSW
00124 0020 00 0 00127 TRA *+3
00125 -0500 00 0 00134 CAL FORB
1 FAP PAGE 3
00126 0020 00 0 00116 TRA SETZ-1
00127 -0500 00 0 00133 CAL FORF NO. FORMAT FORWARD
00130 0020 00 0 00116 TRA SETZ-1
00131 -3 00204 0 00000 TPCNT TXL ,,132
00132 3 00001 0 00135 MAD TXH WDSK,,1
00133 3 77777 0 00135 FORF TXH WDSK,,-1
00134 -3 00001 0 00135 FORB TXL WDSK,,1
*
00135 0634 00 4 00175 WDSK SXA STHX,4 SAVE IOH RETURN
00136 0634 00 2 00162 A1 SXA WRTX2,2
00137 0774 00 2 00026 AXT 22,2 BLANK
00140 -0500 00 0 00245 CAL =H OUT
00141 0602 00 2 00241 SLW OUTPUT+22,2 OUTPUT
00142 2 00001 2 00141 TIX *-1,2,1 BUFFER.
00143 -0500 00 4 00001 CAL 1,4 IOH CONTROL WORD.
BINARY CARD NO. DWRT0006
00144 0771 00 0 00022 ARS 18 MOVE WORDS
00145 0400 00 4 00001 ADD 1,4 FROM
00146 -0734 00 2 00000 PDX ,2
00147 -0734 00 4 00000 PDX ,4 IOH
00150 0621 00 0 00157 STA MOVE BUFFER
00151 0634 00 4 00212 SXA CNTRL1,4
00152 1 00001 4 00153 TXI *+1,4,1
00153 -0634 00 4 00171 SXD STHC,4
00154 -0634 00 4 00202 SXD STHD,4
00155 1 00212 4 00156 TXI *+1,4,OUTPUT-1
00156 0634 00 4 00160 SXA MOVE+1,4 STH
00157 -0500 00 2 00000 MOVE CAL **,2 BUFFER
00160 0602 00 2 00000 SLW **,2 ...
00161 2 00001 2 00157 TIX MOVE,2,1 ...
00162 0774 00 2 00000 WRTX2 AXT **,2
00163 -0520 00 0 00211 NZT BF
00164 0020 00 0 00177 TRA BUFCAL
00165 0074 00 4 00005 TSX $WRWAIT,4
00166 3 00000 0 00241 PTH FILNAM
00167 3 00000 0 00242 PTH FILNAM+1
BINARY CARD NO. DWRT0007
00170 3 00000 0 00243 PTH =0
00171 3 00000 0 00212 STHC PTH CNTRL1,,**
00172 3 00000 0 00006 PTH $SNAP
00173 3 00000 0 00210 PTH EOFCT
00174 3 00000 0 00006 PTH $SNAP
00175 0774 00 4 00000 STHX AXT **,4
00176 0020 00 4 00002 TRA 2,4 RETURN TO IOH.
00177 0074 00 4 00007 BUFCAL TSX $BFWRIT,4 BUFFERED WRITE.
00200 3 00000 0 00241 PTH FILNAM
00201 3 00000 0 00242 PTH FILNAM+1
00202 3 00000 0 00212 STHD PTH CNTRL1,,**
00203 3 00000 0 00006 PTH $SNAP
00204 0020 00 0 00175 TRA STHX RETURN TO MAIN FLOW
1 FAP PAGE 4
00205 +000000000000 MADSW DEC 0
00206 +000000000000 FTNSW DEC 0
00207 +000000000000 IND DEC 0
00210 0 00000 0 00000 EOFCT PZE
00211 0 00000 0 00000 BF PZE
00212 -377777000000 CNTRL1 OCT 777777000000
00213 OUTPUT BSS 22
00241 FILNAM BSS 2
77771 COMMON -200
77771 STLOC COMMON 1
77742 COMMON BUFSIZ
77742 REC COMMON 1
77741 COL COMMON 1
77740 RTN COMMON 1
77737 FMT COMMON 1
END
LITERALS
BINARY CARD NO. DWRT0008
00243 000000000000
00244 000000000001
00245 606060606060
00246 777700777777
1 FAP PAGE 1
POST PROCESSOR ASSEMBLY DATA
77736 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
247 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
136 A1
211 BF 42, 47, 163
107 FT
103 X1 15
102 X2 14
101 X4 41, 77
77741 COL 106, 243
33 FAP 22, 24, 30
77737 FMT 116, 243
207 IND 53, 60
132 MAD 115
77742 REC 243
77740 RTN 107, 110, 112, 243
61 WRT
10 XR4 12, 16, 20, 34, 50, 101
1 COLT 33
53 FLAG
63 FMTW 61
134 FORB 125
133 FORF 127
123 FTCK 114
0 GNAM 17
157 MOVE 150, 156, 161
117 SETZ 126, 130
6 SNAP 172, 174, 203
2 SRCH 43
171 STHC 153
202 STHD 154
175 STHX 135, 204
66 WCLA 36, 73
135 WDSK 132, 133, 134
71 WLDQ 37
73 CTPAW 65
210 EOFCT 173
31 FRTRN 26
206 FTNSW 13, 32, 74, 123
12 IODEC
104 IOEXT 40
205 MADSW 12, 27, 113
77771 STLOC 243
131 TPCNT 105
162 WRTX2 136
3 (FIL) 100
4 (IOH) 122
105 (SDH) 62, 105
7 BFWRIT 177
177 BUFCAL 164
26 BUFSIZ 12, 243
212 CNTRL1 151, 171, 202
12 DWRITE 0, 12
1 FAP PAGE 2
POST PROCESSOR ASSEMBLY DATA
241 FILNAM 21, 44, 166, 167, 200, 201
213 OUTPUT 141, 155
5 WRWAIT 165
0 NO ERROR IN ABOVE ASSEMBLY.
EFTM BCD 05/28/67 2257.8 166 00000
1 PAGE 1
00000 ENTRY (EFTM)
00001 ENTRY (LFTM)
00000 0101 00 0 00002 (EFTM) TIA =H(EFTM)
00001 0101 00 0 00003 (LFTM) TIA =H(LFTM)
END
LITERALS
00002 742526634434
00003 744326634434
1 PAGE 1
POST PROCESSOR ASSEMBLY DATA
4 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
0 (EFTM) 0
1 (LFTM) 0
0 NO ERROR IN ABOVE ASSEMBLY.
ENCO BCD 05/28/67 2257.8 3022 00000
1 PAGE 1
00006 ENTRY ENCODE
00162 ENTRY DECODE
TRANSFER VECTOR
00000 234643636060 COLT
00001 742631433460 (FIL)
00002 743146303460 (IOH)
00003 745163453460 (RTN)
LINKAGE DIRECTOR
00004 000000000000
00005 254523462425
00006 -0500 00 0 00276 ENCODE CAL BINBCD
00007 0602 00 0 77741 SLW COL
00010 0600 00 0 00305 STZ DEC SET DEC ZERO FOR ENCODE
00011 -0634 00 4 00272 SXD XD4,4
00012 -0500 00 0 00301 CAL ENO
00013 0621 00 0 00273 STA FAFMT
00014 0621 00 0 00274 STA FPFMT SET ADDR FOR 'OUTPUT' ROUTINE
00015 0621 00 0 00275 STA MPFMT
00016 0634 00 1 00102 AA SXA XA1,1 STORE INDEXES
00017 0634 00 2 00101 SXA XA2,2
00020 0600 00 0 00302 STZ ANS SET FINAL WORD CNT=0
00021 0074 00 4 00000 AB TSX $COLT,4
00022 0 00000 0 00272 PZE XD4
00023 -0734 00 2 00000 PDX ,2
00024 0634 00 4 00073 SXA EXITA,4 SET FINAL RETURN ADDR.
00025 0636 00 4 00067 SCA FLA,4 FAP . ADDR OF LAST
00026 0636 00 4 00146 SCA MLA,4 MAD . ARG + 1
00027 0636 00 4 00250 SCA DLA,4
00030 -3 00002 2 00073 TXL EXITA,2,2
00031 1 77776 2 00032 TXI *+1,2,-2 SUB 2 FROM NO. OF ARGS
00032 0634 00 2 00066 SXA ARG,2 STORE NO. OF ARGS
00033 0734 00 2 00000 PAX ,2 X2= 1 FAP, 2 FORTRAN, 3 MAD
00034 0634 00 2 00304 SXA TYPE,2 STORE LANGUAGE TYPE
00035 -3 00000 2 00073 TXL EXITA,2,0
00036 -0534 00 4 00272 LXD XD4,4 RESET X4
00037 -0500 00 4 00002 CAL 2,4
00040 0621 00 0 00303 STA TAD STORE ADDR OF TEXT
00041 -0500 00 4 00001 AF CAL 1,4 CHECK IF FORMAT IS POINTER
00042 0737 00 1 00000 PAC ,1
00043 -0500 00 1 00000 CAL ,1
00044 0322 00 0 00310 ERA =O77000000 REVERSE FLAG BITS
00045 -0320 00 0 00310 ANA =O77000000 COPY FLAG POSNS
00046 -0100 00 0 00051 TNZ AE TRANSFER IF NOT POINTER
00047 -0500 60 4 00001 CAL* 1,4
00050 0737 00 1 00000 PAC ,1 X1=-(ADDR OF FORMAT)
00051 0636 00 1 00065 AE SCA FORM,1 LOCN OF FORMAT - FORTRAN
00052 0636 00 1 00144 SCA MMT,1 LOCN OF FORMAT - FAP,MAD
00053 0636 00 1 00272 SCA XD4,1
00054 3 00002 2 00135 TXH MD,2,2 TRA FOR MAD
00055 -3 00001 2 00131 TXL MF,2,1
00056 0560 00 0 00274 LDQ FPFMT
00057 -0600 00 0 77737 STQ FMT
00060 0520 00 0 00305 ZET DEC SKIP NEXT INSTR IF ZERO
1 PAGE 2
00061 0020 00 0 00240 TRA DEF TRA IF DECODE
00062 0774 00 4 00066 AXT *+4,4 .. HERE FOR ENCODE
00063 0634 00 4 00000 SXA 0,4 SET INITIAL RETURN FROM (IOH)
00064 0074 00 4 00157 TSX DSTH,4
00065 0 00000 0 00000 FORM PZE **,,0
00066 0774 00 1 00000 ARG AXT **,1 X1=NO. OF ARGS
00067 0560 60 1 00000 FLA LDQ* **,1
00070 -1 00000 0 00000 STR
00071 2 00001 1 00067 TIX FLA,1,1
00072 0074 00 4 00001 TSX $(FIL),4 END OF ARGS
00073 0774 00 4 00000 EXITA AXT **,4
00074 0500 00 0 00302 CLA ANS AC=NO. OF WORDS IN TEXT
00075 0534 00 2 00304 LXA TYPE,2
00076 3 00002 2 00101 TXH XA2,2,2
00077 -3 00001 2 00101 TXL XA2,2,1
00100 0767 00 0 00022 ALS 18
00101 0774 00 2 00000 XA2 AXT **,2
00102 0774 00 1 00000 XA1 AXT **,1
00103 0020 00 4 00000 TRA 0,4
*
00104 0534 00 2 00304 OUT LXA TYPE,2 PICK UP LANGUAGE TYPE
00105 0774 00 1 00001 AXT 1,1
00106 -0634 00 1 00123 SXD FM,1 MAD/FORTRAN
00107 3 00001 2 00111 TXH *+2,2,1
00110 -0636 00 1 00123 SCD FM,1 FAP
00111 0535 00 1 00303 LAC TAD,1 .. FAP STORE TO TEXT
00112 -0500 00 4 00001 CAL 1,4 X1=-(NEXT LOCN ON TEXT)
00113 -0734 00 2 00000 PDX ,2 X2= (NO. OF WORDS IN LINE)
00114 0634 00 4 00127 SXA OP,4
00115 0774 00 4 77777 AXT -1,4
00116 0765 00 0 00022 LRS 18
00117 0400 00 0 00302 ADD ANS
00120 0601 00 0 00302 STO ANS INCR FINAL WORD CNT
00121 -0500 00 4 77741 PFSA CAL REC-1,4
00122 0602 00 1 00000 SLW 0,1
00123 1 00000 1 00124 FM TXI *+1,1,** INCR/DECR EFFECTIVE TEXT LOCN
00124 1 77777 4 00125 TXI *+1,4,-1
00125 2 00001 2 00121 TIX PFSA,2,1
00126 0636 00 1 00303 SCA TAD,1 STORE ADDR NEXT LOCN IN TEXT
00127 0774 00 4 00000 OP AXT **,4 RESTORE X4
00130 0020 00 4 00002 TRA 2,4
*
00131 0560 00 0 00273 MF LDQ FAFMT
00132 -0600 00 0 77737 STQ FMT
00133 0774 00 4 00000 AXT 0,4
00134 0020 00 0 00140 TRA MC
*
00135 0560 00 0 00275 MD LDQ MPFMT .. MAD FORMAT BACKWARDS
00136 -0600 00 0 77737 STQ FMT
00137 0774 00 4 00001 AXT 1,4
00140 -0634 00 4 00144 MC SXD MMT,4
00141 0774 00 4 00145 AXT *+4,4
00142 0634 00 4 00000 SXA 0,4 SET INITIAL RETURN
00143 0074 00 4 00157 TSX DSTH,4
00144 -1 00000 0 00000 MMT STR **,,**
00145 0534 00 1 00066 LXA ARG,1 X1=NO. OF ARGS
1 PAGE 3
00146 -0500 00 1 00000 MLA CAL **,1
00147 0621 00 0 00151 STA MTRAP
00150 0622 00 0 00151 STD MTRAP
00151 -1 00000 0 00000 MTRAP STR 0,,0
00152 2 00001 1 00146 TIX MLA,1,1
00153 0520 00 0 00305 ZET DEC IS THIS ENCODE
00154 0020 00 0 00252 TRA DL
00155 -1 00000 0 00000 MT STR 0 END OF MAD LIST
00156 0020 00 0 00073 TRA EXITA
*
00157 -0500 00 0 00272 DSTH CAL XD4
00160 0602 00 0 77740 SLW RTN
00161 0020 00 0 00002 TRA $(IOH)
*
00162 -0500 00 0 00277 DECODE CAL BCDBIN
00163 0602 00 0 77741 SLW COL
00164 0602 00 0 00305 SLW DEC SET DEC NON-ZERO FOR DECODE
00165 -0634 00 4 00272 SXD XD4,4
00166 -0534 00 1 00301 LXD ENO,1
00167 0634 00 1 00273 SXA FAFMT,1
00170 0634 00 1 00274 SXA FPFMT,1 SET ADDR OF 'INPUT' ROUTINE
00171 0634 00 1 00275 SXA MPFMT,1
00172 0020 00 0 00016 TRA AA
*
00173 0634 00 4 00234 IN SXA INA,4
00174 0534 00 4 00304 LXA TYPE,4
00175 0520 00 0 00302 ZET ANS IS THIS FIRST CALL TO 'IN'
00176 0020 00 0 00206 TRA DA NO
00177 0774 00 1 00001 AXT 1,1
00200 -0634 00 1 00232 SXD DD,1
00201 3 00001 4 00203 TXH *+2,4,1
00202 -0636 00 1 00232 SCD DD,1
00203 0600 00 0 00300 STZ CNT
00204 0634 00 4 00302 SXA ANS,4 SET INDIC FOR 2ND CALL TO 'IN'
00205 0020 00 0 00226 TRA DB
*
00206 -0520 00 0 00300 DA NZT CNT IS THIS FIRST CALL TO 'IN'
00207 0600 00 0 00302 STZ ANS YES
00210 0500 00 0 77504 CLA LPOINT
00211 0774 00 1 00000 AXT 0,1
00212 0402 00 0 00306 SUB =2
00213 1 00001 1 00214 TXI *+1,1,1
00214 0402 00 0 00307 SUB =6
00215 0120 00 0 00213 TPL *-2
00216 0634 00 1 00300 SXA CNT,1 STORE NO OF WORDS IN GROUP
00217 0500 00 0 00303 CLA TAD
00220 3 00001 4 00236 TXH DE,4,1 X4 = FAP,FORTRAN OR MAD
00221 0400 00 0 00300 ADD CNT FAP
00222 0601 00 0 00303 DAA STO TAD
00223 0500 00 0 00300 CLA CNT
00224 0400 00 0 00302 ADD ANS
00225 0601 00 0 00302 STO ANS
00226 0535 00 1 00303 DB LAC TAD,1 X1=-(LOCN NEXT WORD IN TEXT)
00227 0774 00 2 00026 AXT 22,2
00230 -0500 00 1 00000 DC CAL 0,1 STORE NEXT GROUP OF WORDS FROM TEXT
00231 0602 00 2 77770 SLW REC+22,2
1 PAGE 4
00232 1 00000 1 00233 DD TXI *+1,1,**
00233 2 00001 2 00230 TIX DC,2,1
00234 0774 00 4 00000 INA AXT **,4
00235 0020 00 4 00001 TRA 1,4
00236 0402 00 0 00300 DE SUB CNT MAD/FORTRAN
00237 0020 00 0 00222 TRA DAA
*
00240 -0500 00 0 00065 DEF CAL FORM
00241 0602 00 0 00245 SLW DORM
00242 0774 00 4 00246 AXT *+4,4
00243 0634 00 4 00000 SXA 0,4 SET RETURN ADDR TO DORM+1
00244 0074 00 4 00157 TSX DSTH,4
00245 0 00000 0 00000 DORM
00246 0534 00 1 00066 LXA ARG,1
00247 -1 00000 0 00000 DUF STR CALL (IOH)
00250 -0600 60 1 00000 DLA STQ* **,1
00251 2 00001 1 00247 TIX DUF,1,1
00252 -0520 00 0 00300 DL NZT CNT IS CNT = 0
00253 0600 00 0 00302 STZ ANS YES, EXIT AFTER ONE CALL TO 'IN'
00254 0500 00 0 77504 CLA LPOINT EXIT AFTER ONE CALL TO 'IN'
00255 0774 00 1 00000 AXT 0,1
00256 0402 00 0 00306 SUB =2
00257 1 00001 1 00260 TXI *+1,1,1
00260 0402 00 0 00307 SUB =6
00261 0120 00 0 00257 TPL *-2
00262 0754 00 1 00000 PXA ,1
00263 0400 00 0 00302 ADD ANS
00264 0601 00 0 00302 STO ANS
00265 0534 00 4 00304 DM LXA TYPE,4
00266 3 00002 4 00155 TXH MT,4,2 TRA IF MAD
00267 -3 00001 4 00155 TXL MT,4,1 TRA IF FAP
00270 0074 00 4 00003 TSX $(RTN),4
00271 0020 00 0 00073 TRA EXITA
00272 3 00000 0 00000 XD4 TXH 0,,0
00273 3 77777 0 00000 FAFMT TXH 0,,-1
00274 -3 00001 0 00000 FPFMT TXL 0,,1 FORTRAN FORMAT BACKWARDS
00275 3 00001 0 00000 MPFMT TXH 0,,1 MAD FORMAT BACKWARDS
00276 -3 00204 0 00000 BINBCD TXL ,,132
00277 3 00204 0 00000 BCDBIN TXH ,,132
00300 0 00000 0 00000 CNT PZE
00301 0 00173 0 00104 ENO PZE OUT,,IN
00302 0 00000 0 00000 ANS PZE
00303 0 00000 0 00000 TAD PZE TEXT ADDRESS
00304 0 00000 0 00000 TYPE PZE TYPE-CODE IN ADDRESS
00305 0 00000 0 00000 DEC PZE
00026 BUFSIZ EQU 22
77771 COMMON -200
77771 STLOC COMMON 1
77742 COMMON BUFSIZ
77742 REC COMMON 1
77741 COL COMMON 1
77740 RTN COMMON 1
77737 FMT COMMON 1
77504 COMMON 154
77504 LPOINT COMMON 1
END
1 PAGE 5
LITERALS
00306 000000000002
00307 000000000006
00310 000077000000
1 PAGE 1
POST PROCESSOR ASSEMBLY DATA
77503 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
311 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
16 AA 172
21 AB
51 AE 46
41 AF
206 DA 176
226 DB 205
230 DC 233
232 DD 200, 202
236 DE 220
252 DL 154
265 DM
123 FM 106, 110
173 IN 301
140 MC 134
135 MD 54
131 MF 55
155 MT 266, 267
127 OP 114
302 ANS 20, 74, 117, 120, 175, 204, 207, 224, 225, 253, 263, 264
66 ARG 32, 145, 246
300 CNT 203, 206, 216, 221, 223, 236, 252
77741 COL 7, 163, 306
222 DAA 237
305 DEC 10, 60, 153, 164
240 DEF 61
250 DLA 27
247 DUF 251
301 ENO 12, 166
67 FLA 25, 71
77737 FMT 57, 132, 136, 306
234 INA 173
146 MLA 26, 152
144 MMT 52, 140
104 OUT 301
77742 REC 121, 231, 306
77740 RTN 160, 306
303 TAD 40, 111, 126, 217, 222, 226
102 XA1 16
101 XA2 17, 76, 77
272 XD4 11, 22, 36, 53, 157, 165
0 COLT 21
245 DORM 241
157 DSTH 64, 143, 244
65 FORM 51, 240
121 PFSA 125
304 TYPE 34, 75, 104, 174, 265
73 EXITA 24, 30, 35, 156, 271
273 FAFMT 13, 131, 167
274 FPFMT 14, 56, 170
275 MPFMT 15, 135, 171
1 PAGE 2
POST PROCESSOR ASSEMBLY DATA
151 MTRAP 147, 150
77771 STLOC 306
1 (FIL) 72
2 (IOH) 161
3 (RTN) 270
277 BCDBIN 162
276 BINBCD 6
26 BUFSIZ 306
162 DECODE 0
6 ENCODE 0
77504 LPOINT 210, 254, 306
0 NO ERROR IN ABOVE ASSEMBLY.
EOFX BCD 05/28/67 2257.8 1942 00000
1 FAP PAGE 1
* EOFXIT, SETEOF, WRDCNT. LIBRARY END OF FILE ROUTINES.
* CALL OR EXECUTE
* SETEOF(LABEL,NAM1,NAM2)
* SETEOF(LABEL,T)
* SETEOF(LABEL)
* SETEOF
*
* CONTROL WILL BE TRANSFERRED TO LABEL IF END OF FILE IS
* ENCOUNTERED ON READING A DISK FILE BY A LIBRARY ROUTINE
* NAM1 AND NAM2 WILL BE FILLED WITH FILE NAMES
* T WILL BE FILLED WITH TAPE NUMBER
* NO ARGUMENT RESTORE RETURN TO EOFXIT
* CALL WRDCNT(N) WILL RETURN THE COUNT OF WORDS READ FROM
* THE BEGINNING OF THE CURRENT CALL TO READ
MODIFIED FOR NEW FILE SYSTEM JUNE 65 EMK
BINARY CARD NO. EOFX0000
00027 ENTRY EOFXIT
00012 ENTRY SETEOF
00104 ENTRY WRDCNT
TRANSFER VECTOR
BINARY CARD NO. EOFX0001
00000 234643636060 COLT
00001 234346622560 CLOSE
00002 625123306060 SRCH
00003 222623434662 BFCLOS
00004 254524266060 ENDF
00005 222324252360 BCDEC
00006 665126436760 WRFLX
00007 256731636060 EXIT
LINKAGE DIRECTOR
00010 000000000000
00011 254626673163
00010 X4 SYN *-2
(1,4) CONTAINS NAME OF FILE WHERE EOF ENCOUNTERED.
CALLS EXIT FOREVER
00012 SETEOF SYN *
00012 -0634 00 4 00010 SXD X4,4 SAXE XR4
00013 0074 00 4 00000 TSX $COLT,4 COUNT ARGUMENTS
00014 0 00000 0 00010 PZE X4
00015 0601 00 0 00124 STO ARGCT PROG.TYPE,,NO.ARGUMENTS
00016 0636 00 4 00026 SCA IOEXT,4 XR4=ADDRESS OF FIRST INSTRUCTION
00017 0636 00 4 00022 SCA GTARG,4 AFTER ARGUMENTS
00020 -3 00000 4 00025 TXL XR,4,0 NO ARGUMENTS. RETURN
00021 -0734 00 4 00000 PDX ,4 DECREMENT=NO.ARGUMENTS
00022 -0500 00 4 00000 GTARG CAL **,4 STO ARGUMENTS IN
00023 0621 00 4 00130 STA ARG,4 ARG LIST
1 FAP PAGE 2
BINARY CARD NO. EOFX0002
00024 2 00001 4 00022 TIX *-2,4,1
00025 -0534 00 4 00010 XR LXD X4,4 RESTORE XR4
00026 0020 00 0 00000 IOEXT TRA ** AND RETURN
00027 EOFXIT SYN *
00027 0601 00 0 00131 STO COUNT SAVE WORD COUNT
00030 0634 00 2 00102 SXA X2,2 SAVE XRS
00031 -0634 00 4 00010 SXD X4,4
00032 0500 60 4 00001 CLA* 1,4
00033 0601 00 0 00141 STO FILNAM GET PRIMARY FILE NAME
00034 0500 00 4 00001 CLA 1,4
00035 0400 00 0 00143 ADD =1
00036 0621 00 0 00037 STA *+1
00037 0500 00 0 00000 CLA **
00040 0601 00 0 00142 STO FILNAM+1 GET SECONDARY FILE NAME
00041 0774 00 2 00001 AXT $CLOSE,2
00042 0074 00 4 00002 TSX $SRCH,4 IS BUFFERED CALL REQUIRED.
00043 0 00000 0 00141 PZE FILNAM
00044 0020 00 0 00050 TRA *+4 NOT FOUND. TRY DIRECT CALL.
00045 0100 00 0 00050 TZE *+3 NO LONGER ACTIVE. TRY DIRECT CALL.
00046 -0120 00 0 00050 TMI *+2 NEEDS DIRECT CALL.
00047 0774 00 2 00003 AXT $BFCLOS,2 USE BUFFERED CALL.
BINARY CARD NO. EOFX0003
00050 0634 00 2 00053 SXA CLOS,2
00051 0074 00 4 00004 TSX $ENDF,4 REMOVE FILE FROM ACTIVE
00052 0 00000 0 00141 PZE FILNAM FILE TABLE
00053 0074 00 4 00001 CLOS TSX $CLOSE,4 BUFFERED OR DIRECT CALL
00054 3 00000 0 00141 PTH FILNAM
00055 3 00000 0 00142 PTH FILNAM+1
00056 3 00000 0 00057 PTH *+1
00057 -0534 00 2 00124 LXD ARGCT,2 GET NO.ARGUMENTS TO SETEOF
00060 -3 00000 2 00132 TXL CEXIT,2,0 ZERO ARGUMENTS. GO TO EXIT
00061 -3 00001 2 00077 TXL RET,2,1 ONE ARGUMENT. RETURN
00062 3 00002 2 00073 TXH FNM,2,2
00063 0074 00 4 00005 TSX $BCDEC,4 TWO ARGUMENTS
00064 0 00000 0 00142 PZE FILNAM+1 CONVERT BCD TAPE NO. TO BINARY
00065 0534 00 4 00124 LXA ARGCT,4 GET CALLING PROGRAM TYPE
00066 3 00002 4 00071 TXH *+3,4,2 MAD
00067 -3 00001 4 00071 TXL *+2,4,1 FAP
00070 0767 00 0 00022 ALS 18 FORTRAN. PUT INTEGER IN DECREMENT
00071 0601 60 0 00127 STO* ARG-1 STORE TAPE NO. IN ARGUMENT
00072 0020 00 0 00077 TRA RET
00073 0500 00 0 00141 FNM CLA FILNAM THREE ARGUMENTS TO SETEOF
BINARY CARD NO. EOFX0004
00074 0601 60 0 00126 STO* ARG-2 STORE PRIMARY NAME IN ARGUMENT
00075 0500 00 0 00142 CLA FILNAM+1 GET SECONDARY FILE NAME
00076 0601 60 0 00127 STO* ARG-1 STORE IN ARGUMENT
00077 -0534 00 4 00010 RET LXD X4,4 RESTORE XR4
00100 0500 00 2 00130 CLA ARG,2 GET RETURN
00101 0621 00 0 00103 STA *+2
00102 0774 00 2 00000 X2 AXT ,2 RESTORE XR2
1 FAP PAGE 3
00103 0020 00 0 00000 TRA ** RETURN
00104 WRDCNT SYN *
00104 -0634 00 4 00010 SXD X4,4 SAVE XR4
00105 0074 00 4 00000 TSX $COLT,4 GET CALLING PROGRAM TYPE
00106 0 00000 0 00010 PZE X4
00107 0734 00 4 00000 PAX ,4 ADDRESS=CODE FOR PROGRAM TYPE
00110 0500 00 0 00131 CLA COUNT GET WORD COUNT
00111 0522 00 4 00117 XEC X,4
00112 -0534 00 4 00010 R1 LXD X4,4 RESTORE XR4
00113 0020 00 4 00001 TRA 1,4 RETURN
00114 0020 00 0 00121 TRA MD MAD PROGRAM
00115 0020 00 0 00120 TRA FT FORTRAN
00116 0020 00 0 00121 TRA MD FAP
00117 0020 00 0 00112 X TRA R1 NO ARGUMENT
BINARY CARD NO. EOFX0005
00120 0767 00 0 00022 FT ALS 18 PUT INTEGER IN DECREMENT FOR FORTRAN
00121 -0534 00 4 00010 MD LXD X4,4 RESTORE XR4
00122 0601 60 4 00001 STO* 1,4 STORE WORD COUNT IN ARGUMENT
00123 0020 00 4 00002 TRA 2,4 RETURN
00124 0 00000 0 00000 ARGCT PZE 0
00125 0 00000 0 00000 PZE 0
00126 0 00000 0 00000 PZE 0
00127 0 00000 0 00000 PZE 0
00130 0 00000 0 00000 ARG PZE 0 ARGUMENT LIST FOR SETEOF
00131 0 00000 0 00000 COUNT PZE 0 WORD COUNT
00132 0074 00 4 00006 CEXIT TSX $WRFLX,4 NO RETURN TO MAIN PROGRAM
00133 0 00006 0 00135 MESS,,6
00134 0074 00 4 00007 TSX $EXIT,4
00135 606025452460 MESS BCI 6, END OF FILE READING
00136 462660263143
00137 256051252124
00140 314527606060
00141 606060606060
00142 606060606060
00141 FILNAM SYN MESS+4
END
LITERALS
00143 000000000001
1 FAP PAGE 1
POST PROCESSOR ASSEMBLY DATA
144 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
117 X 111
120 FT 115
121 MD 114, 116
112 R1 117
102 X2 30
10 X4 12, 14, 25, 31, 77, 104, 106, 112, 121
25 XR 20
130 ARG 23, 71, 74, 76, 100
73 FNM 62
77 RET 61, 72
53 CLOS 50
0 COLT 13, 105
4 ENDF 51
7 EXIT 134
135 MESS 133, 143
2 SRCH 42
124 ARGCT 15, 57, 65
5 BCDEC 63
132 CEXIT 60
1 CLOSE 41, 53
131 COUNT 27, 110
22 GTARG 17
26 IOEXT 16
6 WRFLX 132
3 BFCLOS 47
27 EOFXIT 0, 27
141 FILNAM 33, 40, 43, 52, 54, 55, 64, 73, 75, 143
12 SETEOF 0, 12
104 WRDCNT 0, 104
0 NO ERROR IN ABOVE ASSEMBLY.
ERRO BCD 05/28/67 2258.5 2570 00000
1 FAP PAGE 1
BINARY CARD NO. ERRO0000
00006 ENTRY ERROR
TRANSFER VECTOR
BINARY CARD NO. ERRO0001
00000 234643636060 COLT
00001 475145634760 PRNTP
00002 444665312534 MOVIE)
00003 665126436760 WRFLX
LINKAGE DIRECTOR
00004 000000000000
00005 255151465160
00006 0634 00 1 00244 ERROR SXA IR1,1
00007 0634 00 2 00245 SXA IR2,2
00010 0634 00 4 00246 SXA IR4,4
00011 -0634 00 4 00264 SXD SX4,4
00012 0636 00 4 00021 SCA ER2,4
00013 0600 00 0 00272 STZ PR2
00014 0074 00 4 00000 TSX $COLT,4
00015 0 00000 0 00264 SX4
00016 0734 00 1 00000 PAX ,1
00017 -3 00000 1 00075 TXL ER50,1,0
00020 0774 00 2 77777 AXT -1,2
00021 -0500 00 2 00000 ER2 CAL **,2
00022 0602 00 0 00024 SLW PR
00023 0074 00 4 00001 TSX $PRNTP,4 PRINT ARGUMENT MESSAGE
BINARY CARD NO. ERRO0002
00024 0 00000 0 00000 PR PZE
00025 -0500 00 0 00300 CAL =HERROR
00026 0602 00 0 00271 SLW PR1
00027 -0500 60 0 00002 ER6 CAL* $MOVIE)
00030 0771 00 0 00022 ARS 18
00031 0361 60 0 00002 ACL* $MOVIE)
00032 0621 00 0 00057 STA ER41
00033 -0400 00 0 00274 SBM =2
00034 0621 00 0 00045 STA ER10
00035 0361 00 0 00273 ACL =1
00036 0621 00 0 00053 STA ER30
00037 0621 00 0 00134 STA ER70
00040 -0400 00 0 00275 SBM =3
00041 0621 00 0 00050 STA ER20
00042 0774 00 2 00002 ER7 AXT 2,2
00043 -0534 00 4 00264 LXD SX4,4 STORE VALUE OF X4 TO PARAM
00044 1 00002 2 00045 TXI *+1,2,2
00045 -0500 00 2 00000 ER10 CAL **,2 T.V. (INIT MAIN)
00046 0734 00 1 00000 PAX ,1
00047 2 00000 1 00044 TIX *-3,1,0
1 FAP PAGE 2
BINARY CARD NO. ERRO0003
00050 -0500 00 2 00000 ER20 CAL **,2 BCD NAME
00051 -0120 00 0 00075 TMI ER50
00052 0756 00 4 00000 PCA ,4
00053 -0340 00 2 00000 ER30 LAS **,2 ORIGIN
00054 1 00004 2 00045 TXI ER10,2,4
ATD 00055 3 00000 0 00000 TXH
00056 -3 00004 2 00075 ER40 TXL ER50,2,4
00057 -0500 00 2 00000 ER41 CAL **,2 NAME OF SUBPR
00060 0100 00 0 00113 TZE ER60
00061 0634 00 2 00264 SXA SX4,2
00062 -0500 00 0 00272 CAL PR2
00063 0100 00 0 00134 TZE ER70
00064 -0500 00 0 00271 CAL PR1
00065 0602 00 0 00251 SLW DER1
00066 -0500 00 0 00272 CAL PR2
00067 0602 00 0 00254 SLW DER2
00070 0074 00 4 00003 TSX $WRFLX,4 PRINT ERROR CALL MESSAGE
00071 0 00005 0 00250 DER,,5
00072 -0500 00 0 00272 CAL PR2
00073 0602 00 0 00271 SLW PR1
BINARY CARD NO. ERRO0004
00074 0020 00 0 00134 TRA ER70
00075 -0500 00 0 00272 ER50 CAL PR2
00076 0100 00 0 00102 TZE ER51
00077 0534 00 2 00264 LXA SX4,2
00100 0522 00 0 00057 XEC ER41
00101 0020 00 0 00107 TRA ER52
00102 -0500 00 0 00300 ER51 CAL =HERROR TRACE FAILURE
00103 0602 00 0 00251 SLW DER1
00104 0074 00 4 00003 TSX $WRFLX,4
00105 0 00004 0 00250 DER,,4
00106 -0500 00 0 00277 CAL =HCALL
00107 0602 00 0 00260 ER52 SLW TF+3
00110 0074 00 4 00003 TSX $WRFLX,4
00111 0 00004 0 00255 TF,,4
00112 0020 00 0 00242 TRA FIN
00113 -0500 00 0 00272 ER60 CAL PR2
00114 0100 00 0 00123 TZE ER61
00115 -0500 00 0 00271 CAL PR1
00116 0602 00 0 00251 SLW DER1
00117 -0500 00 0 00272 CAL PR2
BINARY CARD NO. ERRO0005
00120 0602 00 0 00254 SLW DER2
00121 0074 00 4 00003 TSX $WRFLX,4
00122 0 00005 0 00250 DER,,5
00123 -0500 00 0 00301 ER61 CAL =H(MAIN)
00124 0602 00 0 00254 SLW DER2 END OF TRACE
00125 -0500 00 0 00272 CAL PR2
00126 -0100 00 0 00130 TNZ ER62
00127 -0500 00 0 00300 CAL =HERROR
00130 0602 00 0 00251 ER62 SLW DER1
00131 0074 00 4 00003 TSX $WRFLX,4
00132 0 00005 0 00250 DER,,5
1 FAP PAGE 3
00133 0020 00 0 00242 TRA FIN
00134 -0500 00 2 00000 ER70 CAL **,2
00135 0602 00 0 00266 SLW END
00136 1 77776 2 00137 ER100 TXI *+1,2,-2
00137 0522 00 0 00045 XEC ER10
00140 0734 00 1 00000 PAX ,1
00141 2 00000 1 00136 TIX ER100,1,0
00142 0522 00 0 00134 XEC ER70
00143 0602 00 0 00265 SLW ORG STORE PROG ORIGIN
BINARY CARD NO. ERRO0006
00144 0074 00 4 00000 TSX $COLT,4
00145 0 00000 0 00264 SX4
00146 0734 00 2 00000 PAX ,2 LANGUAGE CODE
00147 0522 00 2 00153 XEC ER110,2
00150 0020 00 0 00225 TRA MAD
00151 0020 00 0 00155 TRA FAP
00152 0020 00 0 00155 TRA FAP
00153 0020 00 0 00075 ER110 TRA ER50
00154 0 00000 0 00000
00155 FAP SYN *
00155 0500 00 0 00266 CLA END
00156 0402 00 0 00265 SUB ORG
00157 -0340 00 0 00276 LAS =20
00160 0500 00 0 00276 CLA =20
ATD 00161 3 00000 0 00000 TXH
00162 0734 00 1 00000 PAX ,1 SET X1 = COUNT
00163 0400 00 0 00265 ADD ORG
00164 0621 00 0 00165 STA *+1 STORE ADDT
00165 0500 00 1 00000 ER120 CLA **,1
00166 0621 00 0 00267 STA INST
00167 -0340 00 0 00267 LAS INST
BINARY CARD NO. ERRO0007
00170 2 00001 1 00165 TIX ER120,1,1
00171 0020 00 0 00174 TRA ER121
00172 2 00001 1 00165 TIX ER120,1,1
00173 0020 00 0 00075 TRA ER50
00174 0734 00 2 00000 ER121 PAX ,2
00175 -0120 00 0 00201 TMI *+4
00176 0634 00 2 00177 SXA LXA,2
00177 0534 00 4 00000 LXA LXA **,4
00200 0020 00 0 00203 TRA *+3
00201 0634 00 2 00202 SXA LXD,2
00202 -0534 00 4 00000 LXD LXD **,4
00203 -0634 00 4 00264 SXD SX4,4
00204 0534 00 2 00264 ER135 LXA SX4,2 RESTORE X2 TO MOVIE MOD
00205 -0500 00 4 00000 CAL 0,4
00206 0621 00 0 00207 STA *+1
00207 -0500 00 0 00000 CAL **
00210 0734 00 1 00000 PAX ,1
00211 0754 00 1 00000 PXA ,1 SET ENTRY ADDT IN AC
00212 1 77776 2 00213 TXI *+1,2,-2 SET X2 TO PICK UP BCD
00213 0522 00 0 00053 XEC ER30
1 FAP PAGE 4
BINARY CARD NO. ERRO0008
00214 0020 00 0 00212 TRA *-2
00215 1 77776 2 00217 TXI *+2,2,-2
00216 0020 00 0 00212 TRA *-4
00217 0522 00 0 00050 XEC ER20
00220 0602 00 0 00272 ER136 SLW PR2
00221 -0100 00 0 00042 TNZ ER7
00222 -0500 00 0 00273 CAL =1
00223 0602 00 0 00272 SLW PR2
00224 0020 00 0 00075 TRA ER50
00225 MAD SYN *
00225 -0500 00 0 00265 CAL ORG
00226 0737 00 1 00000 PAC ,1
00227 -0500 00 1 00000 ER140 CAL 0,1
00230 0621 00 0 00270 STA TSX2
00231 -0340 00 0 00270 LAS TSX2
00232 0020 00 0 00234 TRA *+2
00233 0020 00 0 00236 TRA ER150 LOCATE TSX PROLOG,2
00234 2 00001 1 00227 TIX ER140,1,1
00235 0020 00 0 00075 TRA ER50
00236 0400 00 0 00274 ER150 ADD =2
00237 0621 00 0 00240 STA *+1
BINARY CARD NO. ERRO0009
00240 -0500 00 0 00000 CAL **
00241 0020 00 0 00174 TRA ER121
00242 FIN SYN *
00242 0074 00 4 00003 TSX $WRFLX,4
00243 0 00003 0 00261 EXER,,3
00244 0774 00 1 00000 IR1 AXT **,1
00245 0774 00 2 00000 IR2 AXT **,2
00246 0774 00 4 00000 IR4 AXT **,4
00247 0020 00 4 00002 TRA 2,4
00250 254563517060 DER BCI 5,ENTRY NUTS CALLED BY
00251 604564636260
00252 606023214343
00253 252460227060
00254 606060606060
00255 635121232560 TF BCI 4,TRACE FAILURE IN
00256 262131436451
00257 256031456060
00260 606060606060
00261 256731636026 EXER BCI 3,EXIT FROM ERROR
00262 514644602551
00263 514651606060
BINARY CARD NO. ERRO0010
00264 0 00000 0 00000 SX4 PZE
00265 0 00000 0 00000 ORG PZE
00266 0 00000 0 00000 END PZE
00267 0634 00 4 00000 INST SXA 0,4
00270 0074 00 2 00000 TSX2 TSX 0,2
00271 0 00000 0 00000 PR1 PZE
00272 0 00000 0 00000 PR2 PZE
00251 DER1 SYN DER+1
00254 DER2 SYN DER+4
1 FAP PAGE 5
END
LITERALS
00273 000000000001
00274 000000000002
00275 000000000003
00276 000000000024
00277 232143436060
00300 255151465160
00301 744421314534
1 FAP PAGE 1
POST PROCESSOR ASSEMBLY DATA
302 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
24 PR 22
255 TF 107, 111
250 DER 71, 105, 122, 132, 273
266 END 135, 155
21 ER2 12
27 ER6
42 ER7 221
155 FAP 151, 152, 155
242 FIN 112, 133, 242
244 IR1 6
245 IR2 7
246 IR4 10
177 LXA 176
202 LXD 201
225 MAD 150, 225
265 ORG 143, 156, 163, 225
271 PR1 26, 64, 73, 115
272 PR2 13, 62, 66, 72, 75, 113, 117, 125, 220, 223
264 SX4 11, 15, 43, 61, 77, 145, 203, 204
0 COLT 14, 144
251 DER1 65, 103, 116, 130, 273
254 DER2 67, 120, 124, 273
45 ER10 34, 54, 137
50 ER20 41, 217
53 ER30 36, 213
56 ER40
57 ER41 32, 100
75 ER50 17, 51, 56, 153, 173, 224, 235
102 ER51 76
107 ER52 101
113 ER60 60
123 ER61 114
130 ER62 126
134 ER70 37, 63, 74, 142
261 EXER 243
267 INST 166, 167
270 TSX2 230, 231
136 ER100 141
153 ER110 147
165 ER120 170, 172
174 ER121 171, 241
204 ER135
220 ER136
227 ER140 234
236 ER150 233
6 ERROR 0
1 PRNTP 23
3 WRFLX 70, 104, 110, 121, 131, 242
2 MOVIE) 27, 31
1 FAP PAGE 2
POST PROCESSOR ASSEMBLY DATA
0 NO ERROR IN ABOVE ASSEMBLY.
EXIT BCD 05/28/67 2258.5 1123 00000
1 FAP PAGE 1
* FAP
*EXIT FOR TIME SHARING MOD XI FOREGROUND LIBRARY JDH
SAVES MACHINE CONDITIONS
CLOSES OUT ACTIVE FILES IN (FTB) DIRECTORY
CLOSES OUT OTHER ACTIVE FILES
00010 ENTRY EXIT
00010 ENTRY CLKOUT
00053 ENTRY DUMP
00010 ENTRY ENDJOB
00056 ENTRY EXITM
00050 ENTRY PDUMP
TRANSFER VECTOR
00000 665126436760 WRFLX
00001 222623434662 BFCLOS
00002 234346622560 CLOSE
00003 244651444563 DORMNT
00004 233045234644 CHNCOM
00005 242521246060 DEAD
LINKAGE DIRECTOR
00006 000000000000
00007 256731636060
00010 -0600 00 0 00061 EXIT STQ MQ
00011 0560 00 0 00073 LDQ EXNAM
00012 0634 00 4 00043 GO SXA EX4,4
00013 0634 00 2 00042 SXA EX2,2
00014 0634 00 1 00041 SXA EX1,1
00015 -0600 00 0 00065 STQ MESS
00016 0602 00 0 00062 SLW AC
00017 0771 00 0 00002 ARS 2
00020 0601 00 0 00063 STO ACSQ
00021 0604 00 0 00064 STI SVSI
00022 0074 00 4 00000 TSX $WRFLX,4
00023 0 00006 0 00065 PZE MESS,,6
00024 0074 00 4 00001 TSX $BFCLOS,4 CLOSE ACTIVE FILES FROM (FTB) TABLE
00025 3 00000 0 00107 PTH =H ALL
00026 3 00000 0 00106 PTH =-0
00027 3 00000 0 00030 PTH *+1
00030 0074 00 4 00002 TSX $CLOSE,4
00031 3 00000 0 00107 PTH =H ALL CLOSE ANY OTHER ACTIVE FILES
00032 3 00000 0 00106 PTH =-0
00033 3 00000 0 00034 PTH *+1
00034 0560 00 0 00061 LDQ MQ
00035 0500 00 0 00063 CLA ACSQ
00036 0767 00 0 00002 ALS 2
00037 -0501 00 0 00062 ORA AC
00040 0441 00 0 00064 LDI SVSI
00041 0774 00 1 00000 EX1 AXT **,1
00042 0774 00 2 00000 EX2 AXT **,2
00043 0774 00 4 00000 EX4 AXT **,4
00044 0074 00 4 00003 TSX $DORMNT,4
1 FAP PAGE 2
00045 -0754 00 0 00000 ZAC
00046 0074 00 4 00004 TSX $CHNCOM,4
TD 00047 3 00000 0 00105 TXH =0
00010 CLKOUT SYN EXIT
00010 ENDJOB SYN EXIT
00050 -0600 00 0 00061 PDUMP STQ MQ
00051 0560 00 0 00075 LDQ PDNAM
00052 0020 00 0 00012 TRA GO
00053 -0600 00 0 00061 DUMP STQ MQ
00054 0560 00 0 00076 LDQ DPNAM
00055 0020 00 0 00012 TRA GO
00056 0074 00 4 00000 EXITM TSX $WRFLX,4
00057 0 00004 0 00077 PZE EXMMES,,4
00060 0074 00 4 00005 TSX $DEAD,4
00061 0 00000 0 00000 MQ PZE
00062 0 00000 0 00000 AC PZE
00063 0 00000 0 00000 ACSQ PZE
00064 0 00000 0 00000 SVSI PZE
00065 606060606060 MESS BCI 6, CALLED. PM MAY BE TAKEN.
00066 602321434325
00067 243360474460
00070 442170602225
00071 606321422545
00072 336060606060
00073 606025673163 EXNAM BCI 1, EXIT
00074 602551514651 ERNAM BCI 1, ERROR
00075 604724644447 PDNAM BCI 1, PDUMP
00076 606024644447 DPNAM BCI 1, DUMP
00077 256731634460 EXMMES BCI 4,EXITM CALLED. GOODBYE.
00100 232143432524
00101 336027464624
00102 227025336060
00103 FILNAM BSS 2
END
LITERALS
00105 000000000000
00106 400000000000
00107 606060214343
1 FAP PAGE 1
POST PROCESSOR ASSEMBLY DATA
110 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
62 AC 16, 37
12 GO 52, 55
61 MQ 10, 34, 50, 53
41 EX1 14
42 EX2 13
43 EX4 12
63 ACSQ 20, 35
5 DEAD 60
53 DUMP 0
10 EXIT 0, 50
65 MESS 15, 23
64 SVSI 21, 40
2 CLOSE 30
76 DPNAM 54
74 ERNAM
56 EXITM 0
73 EXNAM 11
75 PDNAM 51
50 PDUMP 0
0 WRFLX 22, 56
1 BFCLOS 24
4 CHNCOM 46
10 CLKOUT 0, 50
3 DORMNT 44
10 ENDJOB 0, 50
77 EXMMES 57
103 FILNAM
0 NO ERROR IN ABOVE ASSEMBLY.
EXME BCD 05/28/67 2258.5 739 00000
1 FAP PAGE 1
00004 ENTRY EXMEM
EXTERN GETMEM,SETMEM
TRANSFER VECTOR
00000 272563442544 GETMEM
00001 622563442544 SETMEM
LINKAGE DIRECTOR
00002 000000000000
00003 256744254460
00002 N SYN *-2
00004 EXMEM SYN *
00004 0600 00 0 00055 STZ NA
00005 0634 00 4 00002 SXA N,4
00006 -0634 00 2 00002 SXD N,2
00007 -0500 00 4 00001 CAL 1,4
00010 -0320 00 0 00056 ANA =O777777700000
00011 0774 00 2 00004 AXT 4,2
00012 -0340 00 2 00054 LAS TYPE,2
00013 2 00001 2 00012 TIX *-1,2,1 SELECT COMPILER LANGUAGE
00014 0020 00 0 00016 TRA *+2
00015 2 00001 2 00012 TIX *-3,2,1
00016 -3 00001 2 00042 TXL NX,2,1 EXIT FOR INVALIDITY
00017 -0500 60 4 00001 CAL* 1,4
00020 -0734 00 4 00000 PDX ,4 PLACE 'INCR' IN XR4-FORTRAN
00021 -3 00002 2 00023 TXL *+2,2,2
00022 0734 00 4 00000 PAX ,4
00023 0634 00 4 00054 SXA W,4 PLACE 'INCR' IN XR4-FAP,MAD
00024 0074 00 4 00000 TSX GETMEM,4
00025 0400 00 0 00054 ADD W
00026 0621 00 0 00040 STA LOOP
00027 0401 00 0 00056 ADM =O777777700000
00030 -0760 00 0 00001 PBT TEST IF NEW MEMORY BOUND
00031 0020 00 0 00033 TRA NX4 WITHIN CORE LIMITS
00032 0020 00 0 00042 TRA NX
00033 0734 00 4 00000 NX4 PAX ,4
00034 -3 00002 2 00046 TXL NX2,2,2
00035 0634 00 4 00055 SXA NA,4
00036 0074 00 4 00001 NX3 TSX SETMEM,4
00037 0534 00 4 00054 LXA W,4
00040 0600 00 4 00000 LOOP STZ **,4
00041 2 00001 4 00040 TIX LOOP,4,1
00042 0500 00 0 00055 NX CLA NA
00043 0534 00 4 00002 LXA N,4
00044 -0534 00 2 00002 LXD N,2
00045 0020 00 4 00002 TRA 2,4
00046 -0634 00 4 00055 NX2 SXD NA,4
00047 0020 00 0 00036 TRA NX3
00050 0 00000 0 00000 PZE
ATD 00051 3 00000 0 00000 TXH
AT 00052 0074 00 0 00000 TSX
00053 0 00000 0 00000 PZE
00054 TYPE SYN *
00054 0 00000 0 00000 W PZE 'INCR' IN ADDR
00055 0 00000 0 00000 NA PZE 'NMB' IN INTEGER FORM
1 FAP PAGE 2
END
LITERALS
00056 777777700000
1 FAP PAGE 1
POST PROCESSOR ASSEMBLY DATA
57 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
2 N 4, 5, 6, 43, 44
54 W 23, 25, 37
55 NA 4, 35, 42, 46
42 NX 16, 32
46 NX2 34
36 NX3 47
33 NX4 31
40 LOOP 26, 41
54 TYPE 12, 54
4 EXMEM 0, 4
0 GETMEM 24
1 SETMEM 36
0 NO ERROR IN ABOVE ASSEMBLY.
EXP0 BCD 05/28/67 2258.5 1640 00000
1 FAP PAGE 1
* REASSEMBLE MIT EXP 7/27/62
*EXP
* 709 FORTRAN LIBRARY/FLOATING POINT EXPONENTIAL FUNCTION/9XPF
* REVISED TO ACCOMODATE MAD / MAY, 1961
* MIT ASSEMBLY DATE... JUNE 8, 1961
*
* THE CALLING SEQUENCE IS
*
* CALL EXP TSX $EXP,4
* ARG= N IN THE AC TXH N
* TXH ERROR
* FOR FORTRAN FOR MAD
*
*
* ERROR RETURNS
* IF N IS GREATER THAN 88.028, EXP GOES TO ERROR
* THE MAD ERROR RETURN IS OPTIONAL. IF THE PROGRAMMER DOES NOT
* SPECIFY HIS OWN, THE FORTRAN ERROR RETURNS WILL BE USED.
BINARY CARD NO. EXP00000
00004 ENTRY EXP
TRANSFER VECTOR
BINARY CARD NO. EXP00001
00000 255151465160 ERROR
00001 432464444760 LDUMP
LINKAGE DIRECTOR
00002 000000000000
00003 256747606060
00004 0601 00 0 77774 EXP STO M STORE ARGUMENT
00005 0500 00 0 00123 CLA TXH MODE TEST--MAD OR FORTRAN
00006 0560 00 4 00001 LDQ 1,4 .
00007 0040 00 0 00012 TLQ *+3 . FORTRAN MODE
00010 0500 60 4 00001 CLA* 1,4 . GET MAD ARGUMENT
00011 0601 00 0 77774 STO M .
00012 0500 00 0 77774 CLA M .
00013 0340 00 0 00112 CAS MAX
00014 0020 00 0 00062 TRA LRGAR ARGUMENT GREATER THAN 88.028, GO TO ERROR
00015 0761 00 0 00000 NOP
00016 0760 00 0 00002 CHS
00017 0560 00 0 00112 LDQ MAX TEST IF OUT OF RANGE
00020 0040 00 0 00060 TLQ T1 IF TOO SMALL RETURN WITH ZERO
00021 0560 00 0 00114 LDQ CHAR
00022 0765 00 0 00033 LRS 27
00023 -0760 00 0 00003 SSM
BINARY CARD NO. EXP00002
00024 0400 00 0 00114 ADD CHAR CONVERT TO FIXED POINT
00025 0621 00 0 00027 STA SH1
00026 0200 00 0 00113 MPY LOGE X TIMES LOG E BASE 2
A 00027 0765 00 0 00000 SH1 LRS SEPARATE INTEGER AND FRACTION
1 FAP PAGE 2
00030 0767 00 0 00033 ALS 27
00031 0601 00 0 77774 STO M
00032 0765 00 0 00004 LRS 4
00033 -0600 00 0 77775 STQ F
00034 0200 00 0 77775 MPY F COMPUTE FRACTION SQUARED
00035 0601 00 0 77776 STO SQ COMPUTE CONTINUED FRACTION
00036 0400 00 0 00117 ADD A 8,27 SCALING
00037 0601 00 0 77777 STO T 8,27
00040 0500 00 0 00120 CLA B 12,23
00041 0221 00 0 77777 DVP T 8,27 4,31
00042 -0600 00 0 77777 STQ T 4,31
00043 0560 00 0 77776 LDQ SQ 8,27
00044 0200 00 0 00121 MPY C 0,35 8,27
00045 0763 00 0 00004 LLS 4 4,31
00046 0402 00 0 77777 SUB T 4,31
00047 0400 00 0 00122 ADD D 4,31
BINARY CARD NO. EXP00003
00050 0402 00 0 77775 SUB F 4,31
00051 0601 00 0 77777 STO T 4,31
00052 0500 00 0 77775 CLA F 5,31 NUMERATOR EQUALS 2F
00053 0560 00 0 00115 LDQ CH
00054 0225 33 0 77777 VDP T,0,27
00055 0131 00 0 00000 XCA
00056 -0501 00 0 00116 ORA CH1 INSERT CHARACTERISTIC IN 2 TO THE F-1
00057 0300 00 0 00115 FAD CH
00060 0400 00 0 77774 T1 ADD M
00061 0020 00 4 00001 TRA 1,4
00062 -0634 00 4 00002 LRGAR SXD EXP-2,4
00063 0500 00 0 00123 CLA TXH IS THERE A MAD ERROR RETURN
00064 0560 00 4 00002 LDQ 2,4 ..
00065 0040 00 0 00067 TLQ *+2 .. NO--USE FORTRAN ERROR RETURN
00066 0020 60 4 00002 TRA* 2,4 . YES
00067 0074 00 4 00000 TSX $ERROR,4
00070 0 00000 0 00104 PZE EXLAR
00071 1 00000 0 00073 TXI *+2,,0
00072 0 00000 0 00002 PZE EXP-2,,0
00073 0500 00 0 77774 CLA M ARGUMENT IN AC
BINARY CARD NO. EXP00004
00074 0074 00 4 00001 TSX $LDUMP,4
00075 0 00000 0 00003 PZE EXP-1
00076 0020 00 0 00100 TRA REPT
00077 0020 00 0 00102 TRA OUT
00100 -0534 00 4 00002 REPT LXD EXP-2,4
00101 0020 00 4 00000 TRA 0,4 REPEAT MATH ROUTINE
00102 -0534 00 4 00002 OUT LXD EXP-2,4
00103 0020 00 4 00001 TRA 1,4 LEAVE MATH ROUTINE
1 FAP PAGE 3
00104 602151276444 EXLAR BCI 5, ARGUMENT GREATER THAN 88.028
00105 254563602751
00106 252163255160
00107 633021456010
00110 103300021060
00111 -377777777777 OCT 777777777777
* CONSTANTS
00112 +207540071260 MAX DEC 88.028
00113 -270524354513 LOGE DEC -1.4426950409B1
00114 +000000000242 CHAR OCT 242
00115 +201400000000 CH OCT 201400000000
00116 +201000000000 CH1 OCT 201000000000
00117 +127325604305 A DEC 87.417497202B8
BINARY CARD NO. EXP00005
00120 +046477071523 B DEC 617.9722695B12
00121 +010676467774 C DEC .03465735903B0
00122 +237214030720 D DEC 9.9545957821B4
ATD 00123 3 00000 0 00000 TXH TXH CONSTANT FOR MAD-FORTRAN TEST
* ERASABLES
77777 COMMON -206
77777 T COMMON 1
77776 SQ COMMON 1
77775 F COMMON 1
77774 M COMMON 1
END
1 FAP PAGE 1
POST PROCESSOR ASSEMBLY DATA
77773 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
124 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
117 A 36
120 B 40
121 C 44
122 D 47
77775 F 33, 34, 50, 52, 124
77774 M 4, 11, 12, 31, 60, 73, 124
77777 T 37, 41, 42, 46, 51, 54, 124
115 CH 53, 57
77776 SQ 35, 43, 124
60 T1 20
116 CH1 56
4 EXP 0, 62, 72, 75, 100, 102
112 MAX 13, 17
102 OUT 77
27 SH1 25
123 TXH 5, 63
114 CHAR 21, 24
113 LOGE 26
100 REPT 76
0 ERROR 67
104 EXLAR 70
1 LDUMP 74
62 LRGAR 14
0 NO ERROR IN ABOVE ASSEMBLY.
EXP1 BCD 05/28/67 2258.5 795 00000
1 FAP PAGE 1
*EXP(1
* 709 FORTRAN LIBRARY / EXPONENTIAL ROUTINE - FXPT BASE-FXPT EXP / 9XP1.
* IBM / APPLIED PROGRAMMING / JANUARY 1960.
* AUGUST 27,1962
*
BINARY CARD NO. EXP10000
00002 ENTRY EXP(1
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
LINKAGE DIRECTOR
BINARY CARD NO. EXP10001
00000 000000000000
00001 256747740160
00002 0100 00 4 00001 EXP(1 TZE 1,4 EXIT FOR ZERO BASE
00003 0771 00 0 00022 ARS 18
00004 0601 00 0 77777 STO POWER SAVE NON-ZERO BASE
00005 0763 00 0 00021 LLS 17 OBTAIN EXPONENT
00006 0621 00 0 00044 STA EXP SAVE EXPONENT
00007 -0520 00 0 00044 NZT EXP TEST FOR ZERO EXPONENT
00010 0020 00 0 00040 TRA OUT EXIT FOR ZERO EXPONENT
00011 0500 00 0 00042 CLA FIXONE
00012 -0400 00 0 77777 SBM POWER
00013 0100 00 0 00016 TZE N
00014 0162 00 0 00016 TQP N
00015 0020 00 0 00036 TRA EXIT
00016 0500 00 0 00042 N CLA FIXONE
00017 0601 00 0 77776 STO FACTOR
00020 0500 00 0 00044 CLA1 CLA EXP IS POWER
00021 0760 00 0 00001 LBT A FACTOR
00022 0020 00 0 00026 TRA CLA2 NO
00023 0560 00 0 77777 LDQ POWER YES
BINARY CARD NO. EXP10002
00024 0200 00 0 77776 MPY FACTOR
00025 -0600 00 0 77776 STQ FACTOR
00026 0500 00 0 00044 CLA2 CLA EXP
00027 0771 00 0 00001 ARS 1
00030 0601 00 0 00044 STO EXP
00031 0100 00 0 00036 TZE EXIT
00032 0560 00 0 77777 LDQ POWER COMPUTE
00033 0200 00 0 77777 MPY POWER NEXT
00034 -0600 00 0 77777 STQ POWER POWER
00035 0020 00 0 00020 TRA CLA1
00036 0763 00 0 00065 EXIT LLS 53
00037 0020 00 4 00001 TRA 1,4
00040 0500 00 0 00043 OUT CLA ONE
00041 0020 00 4 00001 TRA 1,4
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
00042 +000000000001 FIXONE DEC 1
00043 0 00001 0 00000 ONE PZE 0,0,1
00044 0 00000 0 00000 EXP PZE 0
WORKING STORAGE
77777 COMMON -206
1 FAP PAGE 2
77777 POWER COMMON 1
77776 FACTOR COMMON 1
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
END
1 FAP PAGE 1
POST PROCESSOR ASSEMBLY DATA
77775 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
45 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
16 N 13, 14
44 EXP 6, 7, 20, 26, 30
43 ONE 40
40 OUT 10
20 CLA1 35
26 CLA2 22
36 EXIT 15, 31
2 EXP(1 0
77777 POWER 4, 12, 23, 32, 33, 34, 45
77776 FACTOR 17, 24, 25, 45
42 FIXONE 11, 16
0 NO ERROR IN ABOVE ASSEMBLY.
EXP2 BCD 05/28/67 2258.5 1796 00000
1 FAP PAGE 1
* 32K 709/7090 FORTRAN LIBRARY 9XP2
* 32K 709/7090 FORTRAN LIBRARY
1 FAP PAGE 2
EXPONENTIAL ROUTINE - FLPT BASE AND FXPT EXPONENT / 9XP2
* AUGUST 22,1962
BINARY CARD NO. EXP20000
00004 ENTRY EXP(2
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
TRANSFER VECTOR
BINARY CARD NO. EXP20001
00000 255151465160 ERROR
00001 432464444760 LDUMP
LINKAGE DIRECTOR
00002 000000000000
00003 256747740260
00004 0100 00 4 00001 EXP(2 TZE 1,4 EXIT FOR ZERO BASE
00005 0600 00 0 00112 STZ DCTL MI
00006 0760 00 0 00012 DCT MI
00007 -0625 00 0 00112 STL DCTL MI
00010 -0634 00 4 00002 SXD EXP(2-2,4 SAVE XR4 MI
00011 -0634 00 2 00032 SXD SAVEX,2
00012 0162 00 0 00015 TQP MQPOS
00013 -0534 00 2 00014 LXD NEGONE,2 SET NEGATIVE MQ INDICATOR
00014 -3 77777 0 00016 NEGONE TXL MQPOS+1,0,-1
00015 -0534 00 2 00047 MQPOS LXD TXL,2 SET POSITIVE MQ INDICATOR
00016 0601 00 0 77777 STO POWER INITIALIZATION
00017 0601 00 0 77775 STO ARGAC SAVE ARG IN AC FOR LDUMP MI
00020 -0600 00 0 77774 STQ ARGMQ MI
00021 -0754 00 0 00000 ZAC
00022 0763 00 0 00021 LLS 17 X
00023 0621 00 0 00132 STA EXP X
BINARY CARD NO. EXP20002
00024 0500 00 0 00111 CLA FLOONE
00025 -0520 00 0 00132 NZT EXP
00026 0020 00 0 00064 TRA EXIT
00027 0601 00 0 77776 STO FACTOR X
00030 0500 00 0 00132 CLA1 CLA EXP IS POWER
00031 0760 00 0 00001 LBT A FACTOR
00032 -3 00000 0 00036 SAVEX TXL CLA2,0,0 NO
00033 0560 00 0 77777 LDQ POWER YES
00034 0260 00 0 77776 FMP FACTOR
00035 0601 00 0 77776 STO FACTOR
00036 0500 00 0 00132 CLA2 CLA EXP
00037 0771 00 0 00001 ARS 1
00040 0601 00 0 00132 STO EXP
00041 0100 00 0 00046 TZE TXL-1
00042 0560 00 0 77777 LDQ POWER
00043 0260 00 0 77777 FMP POWER
00044 0601 00 0 77777 STO POWER
00045 0020 00 0 00030 TRA CLA1
00046 0500 00 0 77776 CLA FACTOR
00047 -3 00000 2 00064 TXL TXL EXIT,2,0
1 FAP PAGE 3
EXPONENTIAL ROUTINE - FLPT BASE AND FXPT EXPONENT / 9XP2
BINARY CARD NO. EXP20003
00050 0500 00 0 00111 CLA FLOONE
00051 0241 00 0 77776 FDP FACTOR MI
00052 0760 00 0 00012 DCT MI
00053 0020 00 0 00070 TRA ERROR1 MI
00054 -0754 00 0 00000 ZAC
00055 0763 00 0 00043 LLS 35
00056 0601 00 0 00131 EXT STO ANS KEEP THE ANSWER 0MI
00057 0500 00 0 00111 CLA FLOONE TURN ON DIVIDE CHECK LIGHT MI
00060 0241 00 0 00133 FDP =0 MI
00061 -0520 00 0 00112 NZT DCTL MI
00062 0760 00 0 00012 DCT MI
00063 0500 00 0 00131 CLA ANS MI
00064 -0534 00 2 00032 EXIT LXD SAVEX,2
00065 0020 00 4 00001 TRA 1,4
00066 -0534 00 4 00002 OUT LXD EXP(2-2,4 MI
00067 0020 00 0 00056 TRA EXT MI
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
00070 0074 00 4 00000 ERROR1 TSX $ERROR,4 MI
00071 0 00000 0 00113 PZE A MI
00072 1 00000 0 00074 TXI *+2,,0 MI
00073 0 00000 0 00002 PZE EXP(2-2,,0 MI
BINARY CARD NO. EXP20004
00074 0500 00 0 00111 CLA FLOONE TURN ON DIVIDE CHECK LIGHT BEFORE GOING 1MI
00075 0241 00 0 00133 FDP =0 TO LDUMP 2MI
00076 -0520 00 0 00112 NZT DCTL 3MI
00077 0760 00 0 00012 DCT 4MI
00100 0500 00 0 77775 CLA ARGAC MI
00101 0560 00 0 77774 LDQ ARGMQ MI
00102 0074 00 4 00001 TSX $LDUMP,4 MI
00103 0 00000 0 00003 PZE EXP(2-1 MI
00104 0020 00 0 00106 TRA REPT REPEAT TRA 2,4 MI
00105 0020 00 0 00066 TRA OUT 3,4 TO GO OUT 1MI
00106 -0534 00 4 00002 REPT LXD EXP(2-2,4 2MI
00107 -0534 00 2 00032 LXD SAVEX,2 4MI
00110 0020 00 4 00000 TRA 0,4 3MI
00111 +201400000000 FLOONE DEC 1.0
00112 0 00000 0 00000 DCTL PZE MI
00113 002431653124 A BCI ,0DIVIDE CHECK IN EXP(2 DUE TO SMALL BASE AND LARGE NEGATIVE
00114 256023302523
00115 426031456025
00116 674774026024
00117 642560634660
BINARY CARD NO. EXP20005
00120 624421434360
00121 222162256021
00122 452460432151
00123 272560452527
00124 216331652560
00125 256747464525 BCI 3,EXPONENT.
00126 456333606060
00127 606060606060
00130 -377777777777 OCT 777777777777 MI
1 FAP PAGE 4
EXPONENTIAL ROUTINE - FLPT BASE AND FXPT EXPONENT / 9XP2
00131 0 00000 0 00000 ANS 0MI
00132 0 00000 0 00000 EXP PZE 0
WORKING STORAGE
77777 COMMON -206
77777 POWER COMMON 1
77776 FACTOR COMMON 1
77775 ARGAC COMMON 1 BASE MI
77774 ARGMQ COMMON 1 POWER MI
END
LITERALS
00133 000000000000
1 FAP PAGE 1
POST PROCESSOR ASSEMBLY DATA
77773 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
134 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
113 A 71
131 ANS 56, 63
132 EXP 23, 25, 30, 36, 40
56 EXT 67
66 OUT 105
47 TXL 15, 41
30 CLA1 45
36 CLA2 32
112 DCTL 5, 7, 61, 76
64 EXIT 26, 47
106 REPT 104
77775 ARGAC 17, 100, 133
77774 ARGMQ 20, 101, 133
0 ERROR 70
4 EXP(2 0, 10, 66, 73, 103, 106
1 LDUMP 102
15 MQPOS 12, 14
77777 POWER 16, 33, 42, 43, 44, 133
32 SAVEX 11, 64, 107
70 ERROR1 53
77776 FACTOR 27, 34, 35, 46, 51, 133
111 FLOONE 24, 50, 57, 74
14 NEGONE 13
0 NO ERROR IN ABOVE ASSEMBLY.
EXP3 BCD 05/28/67 2258.5 2400 00000
1 FAP PAGE 1
*EXP(3 MIT LIBRARY VERSION FLOATING POINT EXPONENTIAL ROUTINE
* DECEMBER 6, 1962
* 709 FORTRAN LIBRARY / EXPONENTIAL ROUTINE - FLPT BASE-FLPT EXP / 9XP3.
* IBM / APPLIED PROGRAMMING / JANUARY 1960.
*
BINARY CARD NO. EXP30000
00004 ENTRY EXP(3
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
TRANSFER VECTOR
BINARY CARD NO. EXP30001
00000 255151465160 ERROR
00001 432464444760 LDUMP
LINKAGE DIRECTOR
00002 000000000000
00003 256747740360
00004 0100 00 4 00001 EXP(3 TZE 1,4 BASE ZERO
00005 -0634 00 4 00002 SXD EXP(3-2,4
00006 -0600 00 0 77772 STQ EXP1
00007 0120 00 0 00055 TPL HER
00010 0601 00 0 77771 STO BASE
00011 0500 00 0 77772 CLA EXP1
00012 -0300 00 0 00235 UFA =O233000000000
00013 0300 00 0 00235 FAD =O233000000000
*
* THE EXPONENT HAS BEEN TRUNCATED
* IF = , RESULT IS A FLOATING POINT INTEGRAL
00014 0340 00 0 77772 CAS EXP1
00015 0020 00 0 00017 TRA ERR
00016 0020 00 0 00046 TRA CHECK
00017 0074 00 4 00000 ERR TSX $ERROR,4
00020 0 00000 0 00033 PZE CM
00021 1 00000 0 00023 TXI *+2,,0
00022 0 00000 0 00002 PZE EXP(3-2,,0
00023 0560 00 0 77772 LDQ EXP1
BINARY CARD NO. EXP30002
00024 0500 00 0 77771 CLA BASE
00025 0074 00 4 00001 TSX $LDUMP,4
00026 0 00000 0 00003 PZE EXP(3-1
00027 0020 00 0 00031 TRA REPEAT
00030 0020 00 0 00061 TRA LXD
00031 -0534 00 4 00002 REPEAT LXD EXP(3-2,4
00032 0020 00 4 00000 TRA 0,4
00033 602567474645 CM BCI , EXPONENTIATION ERROR, NEGATIVE BASE, NON-INTEGRAL EXPONENT
00034 254563312163
00035 314645602551
00036 514651736045
00037 252721633165
00040 256022216225
00041 736045464540
00042 314563252751
1 FAP PAGE 2
00043 214360256747
00044 464525456360
00045 -377777777777 OCT 777777777777
*
* THE FLOATING POINT INTEGRAL IS NOW FIXED IN AC ADDRESS
*
00046 -0300 00 0 00235 CHECK UFA =O233000000000
00047 -0625 00 0 00234 STL FLAG
BINARY CARD NO. EXP30003
00050 0760 00 0 00001 LBT
00051 0600 00 0 00234 STZ FLAG =0 EVEN NUMBER
* =1 OFF NUMBER
00052 0020 00 0 00053 TRA NHER
00053 0500 00 0 77771 NHER CLA BASE
00054 0560 00 0 77772 LDQ EXP1
00055 HER SYN *
00055 0074 00 4 00165 TSX LOG,4
00056 0765 00 0 00043 LRS 35
00057 0260 00 0 77772 FMP EXP1
00060 0074 00 4 00066 TSX EXP,4
00061 -0534 00 4 00002 LXD LXD EXP(3-2,4
00062 0520 00 0 00234 ZET FLAG
00063 -0760 00 0 00003 SSM
00064 0600 00 0 00234 STZ FLAG
00065 0020 00 4 00001 TRA 1,4
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
LAS816 EXPONENTIAL SUBROUTINE
00066 0601 00 0 77773 S816EX STO COMMON
00066 EXP SYN S816EX
00067 0760 00 0 00003 SSP
00070 0402 00 0 00155 SUB S816EX+55
00071 0765 00 0 00000 LRS 0
T 00072 -0754 00 0 00000 PXD
00073 0162 00 0 00151 TQP S816EX+51
BINARY CARD NO. EXP30004
00074 0401 00 0 77773 ADM COMMON
00075 0560 00 0 00164 LDQ S816EX+62
00076 0402 00 0 00163 SUB S816EX+61
00077 -0120 00 0 00107 TMI S816EX+17
00100 0765 00 0 00033 LRS 27
00101 0621 00 0 00103 STA S816EX+13
T 00102 -0754 00 0 00000 PXD
00103 0763 00 0 00000 LLS 0
00104 0220 00 0 00156 DVH S816EX+56
00105 0771 00 0 00010 ARS 8
00106 -0773 00 0 00033 RQL 27
00107 0400 00 0 00163 ADD S816EX+61
00110 -0600 00 0 77774 STQ COMMON+1
00111 0300 00 0 00163 FAD S816EX+61
00112 0601 00 0 77775 STO COMMON+2
00113 0560 00 0 77775 LDQ COMMON+2
00114 0260 00 0 77775 FMP COMMON+2
00115 0601 00 0 77776 STO COMMON+3
00116 0300 00 0 00157 FAD S816EX+57
1 FAP PAGE 3
00117 0601 00 0 77777 STO COMMON+4
BINARY CARD NO. EXP30005
00120 0500 00 0 00160 CLA S816EX+58
00121 0240 00 0 77777 FDH COMMON+4
00122 -0600 00 0 77777 STQ COMMON+4
00123 0500 00 0 00161 CLA S816EX+59
00124 0300 00 0 77777 FAD COMMON+4
00125 0601 00 0 77777 STO COMMON+4
00126 0560 00 0 77777 LDQ COMMON+4
00127 0260 00 0 77776 FMP COMMON+3
00130 0300 00 0 00162 FAD S816EX+60
00131 0601 00 0 77776 STO COMMON+3
00132 0302 00 0 77775 FSB COMMON+2
00133 0601 00 0 77777 STO COMMON+4
00134 0500 00 0 77776 CLA COMMON+3
00135 0300 00 0 77775 FAD COMMON+2
00136 0400 00 0 77774 ADD COMMON+1
00137 0601 00 0 77776 STO COMMON+3
00140 0560 00 0 77773 LDQ COMMON
00141 0162 00 0 00145 TQP S816EX+47
00142 0500 00 0 77777 CLA COMMON+4
00143 0560 00 0 77776 LDQ COMMON+3
BINARY CARD NO. EXP30006
00144 -0600 00 0 77777 STQ COMMON+4
00145 0240 00 0 77777 FDH COMMON+4
00146 -0600 00 0 77773 STQ COMMON
00147 0500 00 0 77773 CLA COMMON
00150 0020 00 4 00001 TRA 1,4
00151 0560 00 0 77773 LDQ COMMON
00152 0040 00 4 00001 TLQ 1,4
00153 0760 00 0 00006 COM
00154 0020 00 4 00001 TRA 1,4
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
00155 +207535146314 DEC 8.73E1
00156 +261344137676 OCT 261344137676
00157 +206520000000 DEC 4.2E1
00160 +203471463146 DEC 4.9
00161 +174631463146 DEC 5.0E-2
00162 +202400000000 DEC 2.0
00163 +200000000000 OCT 200000000000
00164 +000000000000 OCT 0
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
LA S820 NATURAL LOGARITHM SUBROUTINE
00165 0100 00 4 00001 LAS820 TZE 1,4
00165 LOG SYN LAS820
00166 0760 00 0 00003 SSP
00167 0765 00 0 00033 LRS 27
BINARY CARD NO. EXP30007
00170 -0600 00 0 77773 STQ COMMON
00171 0767 00 0 00023 ALS 19
00172 -0501 00 0 00223 ORA LAS820+30
00173 0302 00 0 00224 FSB LAS820+31
00174 0601 00 0 77774 STO COMMON+1
1 FAP PAGE 4
00175 0500 00 0 77773 CLA COMMON
00176 0765 00 0 00010 LRS 8
00177 -0501 00 0 00225 ORA LAS820+32
00200 0300 00 0 00226 FAD LAS820+33
00201 0601 00 0 77773 STO COMMON
00202 0302 00 0 00227 FSB LAS820+34
00203 0240 00 0 77773 FDH COMMON
00204 -0600 00 0 77773 STQ COMMON
00205 0260 00 0 77773 FMP COMMON
00206 0601 00 0 77775 STO COMMON+2
00207 0560 00 0 00232 LDQ LAS820+37
00210 0260 00 0 77775 FMP COMMON+2
00211 0300 00 0 00231 FAD LAS820+36
00212 0765 00 0 00043 LRS 35
00213 0260 00 0 77775 FMP COMMON+2
BINARY CARD NO. EXP30008
00214 0300 00 0 00230 FAD LAS820+35
00215 0765 00 0 00043 LRS 35
00216 0260 00 0 77773 FMP COMMON
00217 0300 00 0 77774 FAD COMMON+1
00220 0765 00 0 00043 LRS 35
00221 0260 00 0 00233 FMP LAS820+38
00222 0020 00 4 00001 TRA 1,4
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
00223 +210000000000 OCT 210000000000
00224 +210401000000 DEC 1.285E2
00225 +200000000000 OCT 200000000000
00226 +200552023631 DEC 7.07106781187E-1
00227 +201552023631 DEC 1.41421356237
00230 +202561251001 DEC 2.88539129030
00231 +200754213603 DEC 9.614706323E-1
00232 +200462532521 DEC 5.989786496E-1
00233 +200542710277 DEC 6.9314718056E-1
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
WORKING STORAGE
77773 COMMON -206+4
77773 COMMON COMMON 1
77772 EXP1 COMMON 1
77771 BASE COMMON 1
77770 TXL COMMON 1
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
00234 0 00000 0 00000 FLAG PZE 0
END
LITERALS
00235 233000000000
1 FAP PAGE 1
POST PROCESSOR ASSEMBLY DATA
77767 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
236 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
33 CM 20
17 ERR 15
66 EXP 60, 67
55 HER 7, 55
165 LOG 55, 166
61 LXD 30
77770 TXL 234
77771 BASE 10, 24, 53, 234
77772 EXP1 6, 11, 14, 23, 54, 57, 234
234 FLAG 47, 51, 62, 64
53 NHER 52
46 CHECK 16
0 ERROR 17
4 EXP(3 0, 5, 22, 26, 31, 61
1 LDUMP 25
77773 COMMON 66, 74, 110, 112, 113, 114, 115, 117, 121, 122, 124, 125, 126, 127, 131, 132, 133
134, 135, 136, 137, 140, 142, 143, 144, 145, 146, 147, 151, 170, 174, 175, 201, 203
204, 205, 206, 210, 213, 216, 217, 234
165 LAS820 166, 172, 173, 177, 200, 202, 207, 211, 214, 221
31 REPEAT 27
66 S816EX 67, 70, 73, 75, 76, 77, 101, 104, 107, 111, 116, 120, 123, 130, 141
0 NO ERROR IN ABOVE ASSEMBLY.
FINT BCD 05/28/67 2258.5 526 00000
1 FAP PAGE 1
* CONVERT BETWEEN MAD AND FORTRAN INTEGERS
00003 ENTRY FINT
00027 ENTRY MINT
FINT CONVERTS MAD INTEGERS TO FORTRAN INTEGERS
TRANSFER VECTOR
00000 665126436760 WRFLX
LINKAGE DIRECTOR
00001 000000000000
00002 263145636060
00003 0500 60 4 00001 FINT CLA* 1,4 GET ARGUMENT
00004 0560 00 0 00032 LDQ =0
00005 0765 00 0 00017 LRS 15 THIS SHOULD BE ENTIRE INTEGER
00006 -0100 00 0 00011 TNZ *+3
00007 0763 00 0 00041 LLS 33 PUT INTEGER IN DECR. OF AC
00010 0020 00 4 00002 TRA 2,4
INTEGER TOO LARGE FOR DECREMENT. TRUNCATE AND WRITE
ERROR MESSAGE BEFORE RETURN.
00011 -0600 00 0 00021 STQ MQ SAVE RIGHTMOST 15 BITS.
00012 0634 00 4 00015 SXA XR4,4
00013 0074 00 4 00000 TSX $WRFLX,4
00014 0 00005 0 00022 PZE MSG1,,5
00015 0774 00 4 00000 XR4 AXT **,4
00016 0500 00 0 00021 CLA MQ INTEGER RETURNED IS RIGHTMOST 15 BITS
00017 0771 00 0 00002 ARS 2 OF ORIGINAL INTEGER BUT IN DECREMENT.
00020 0020 00 4 00002 TRA 2,4
00021 0 00000 0 00000 MQ PZE
00022 442124603145 MSG1 BCI 5,MAD INTEGER EXCEEDS 32767.
00023 632527255160
00024 256723252524
00025 626003020706
00026 073360606060
MINT CONVERTS FORTRAN INTEGERS TO MAD INTEGERS
00027 0500 60 4 00001 MINT CLA* 1,4
00030 0771 00 0 00022 ARS 18
00031 0020 00 4 00002 TRA 2,4
END
LITERALS
00032 000000000000
1 FAP PAGE 1
POST PROCESSOR ASSEMBLY DATA
33 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
21 MQ 11, 16
15 XR4 12
3 FINT 0
27 MINT 0
22 MSG1 14
0 WRFLX 13
0 NO ERROR IN ABOVE ASSEMBLY.
Reference in New Issue View Git Blame Copy Permalink