AARCHV BCD 10/04/70 1545.9 42312 00000
1 MAD PROGRAM LISTING ... ... ... FILE ARCHV MAD 02/27/70 1738.3
-
LM00001
ARCHIV COMMAND--DON WAGNER 9 SEPT 1965 LM00002
MODIFIED BY R. ROACH 9/27/68 LM00003
LM00004
LM00005
LOADING-- 'ARCHV MAD' HAS TWO INSERTS, LM00006
'ASUBS MAD' AND 'AFORM MAD'. LM00007
MAD ARCHV LM00008
LAED NCLOAD ARCHV (SRCH) XLIBE LM00009
SAVE ARCHIV LM00010
RENAME ARCHIV SAVED ARCHIV TSSDC. LM00011
LM00012
INITIALIZATION LM00013
LM00014
WHENEVER COMARG.(1).A.77K.E.77K *001 LM00015
PRMESS.( $ARCHIV KEY NM1 NM2 FL1 FL2 ...$) *002 LM00016
PRMESS.($WHERE KEY = COMBIN, TABLE, PRINT, DELETE, REPLAC$) *003 LM00017
PRMESS.($XTRACT, OR UPDATE$) *004 LM00018
PRMESS.($ALL KEYS MAY BE ABBREVIATED BY FIRST LETTER.$) *005 LM00019
OUT CHNCOM.(0) *006 LM00020
END OF CONDITIONAL *007 LM00021
KEY=COMARG.(1) *008 LM00022
WHENEVER KEY .E. $ TOFF$ *009 LM00023
TOFF = 1B *010 LM00024
BOOLEAN TOFF *011 LM00025
VECTOR VALUES TOFF = 0B *012 LM00026
KEY = $ T$ *013 LM00027
END OF CONDITIONAL *014 LM00028
WHENEVER KEY .E. $ TON$ *015 LM00029
TON = 1B *016 LM00030
KEY = $ T$ *017 LM00031
BOOLEAN TON *018 LM00032
VECTOR VALUES TON = 0B *019 LM00033
END OF CONDITIONAL *020 LM00034
NM1=COMARG.(2) *021 LM00035
NM2=COMARG.(3) *022 LM00036
SETBRK.(OUT) *023 LM00037
LM00038
GETTM.(DATE,TIME) *024 LM00039
DIMENSION ANAM(2) *025 LM00040
EQUIVALENCE (NM1,ANAM(0)), (NM2,ANAM(1)) *026 LM00041
WHENEVER NM1.A.77K.E.77K .OR. NM2.A.77K.E.77K *027 LM00042
PRMESS.($NOT ENOUGH ARGUMENTS$) *028 LM00043
CHNCOM.(0) *029 LM00044
END OF CONDITIONAL *030 LM00045
LM00046
FILTAB IS A TABLE OF SPECIFIED FILES. LM00047
FILTAB(0) CONTAINS COUNT. LM00048
LM00049
WHENEVER NM2.E.$SOURCE$.OR.NM2.E.$ARCHIV$ *031 LM00050
NAMTYP=1B *032 LM00051
THROUGH IN00, FOR FILTAB=0,2,COMARG.(FILTAB+4).A.77K.E.77K *033 LM00052
1 .OR.FILTAB.E.FILTBZ *033 LM00053
FILTAB(FILTAB+1)=COMARG.(FILTAB+4) *034 LM00054
WHENEVER COMARG.(FILTAB+5).A.77K.E.77K *035 LM00055
PRMESS.( $LAST ARGUMENT INCOMPLETE, RETYPE REQUEST$) *036 LM00056
CHNCOM.(0) *037 LM00057
OTHERWISE *038 LM00058
FILTAB(FILTAB+2)=COMARG.(FILTAB+5) *039 LM00059
END OF CONDITIONAL *040 LM00060
IN00 CONTINUE *041 LM00061
OTHERWISE *042 LM00062
NAMTYP=0B *043 LM00063
THROUGH IN01, FOR FILTAB=0,1,COMARG.(FILTAB+4).A.77K.E.77K *044 LM00064
1 .OR. FILTAB.E.FILTBZ *044 LM00065
IN01 FILTAB(FILTAB+1)=COMARG.(FILTAB+4) *045 LM00066
END OF CONDITIONAL *046 LM00067
LM00068
TEMPORARY FILE NAME IS PROB PROG LM00069
LM00070
WHOAMI.(WHBUF(8)...8) *047 LM00071
DIMENSION WHBUF(8) *048 LM00072
DIMENSION TFIL(2) *049 LM00073
TM1=WHBUF(8) *050 LM00074
TM2=WHBUF(7) *051 LM00075
EQUIVALENCE (TM1,TFIL(0)), (TM2,TFIL(1)) *052 LM00076
LM00077
COMBIN--MAKE ORIGINAL ARCHIV LM00078
LM00079
WHENEVER KEY.E.$COMBIN$ .OR. KEY.E.$ C$ *053 LM00080
FSTATE.(NM1,NM2,FSBUF(8)...8,CM01) *054 LM00081
WHENEVER NAMTYP *055 LM00082
THROUGH CMP1A, FOR I=1,2,I.G.FILTAB *056 LM00083
CMP1A WHENEVER FILTAB(I).E.NM1.AND.FILTAB(I+1).E.NM2, TRANSFER TO CM01 *057 LM00084
OTHERWISE *058 LM00085
THROUGH CMP1B, FOR I = 1,1,I.G.FILTAB *059 LM00086
CMP1B WHENEVER FILTAB(I).E.NM1, TRANSFER TO CM01 *060 LM00087
END OF CONDITIONAL *061 LM00088
PRMESS.($ YOU HAVE NOT INCLUDED THE OLD$,NM1,NM2,$.$) *062 LM00089
PRMESA.($ IS THIS OK,$) *063 LM00090
WHENEVER .NOT. YES.(0), TRANSFER TO FORGET *064 LM00091
CM01 CONTINUE *065 LM00092
WHENEVER NAMTYP *066 LM00093
THROUGH CM03A, FOR FILTBP=1,2,FILTBP.G.FILTAB *067 LM00094
WHENEVER .NOT.CPFIL.(FILTAB(FILTBP),FILTAB(FILTBP+1)), *068 LM00095
1 PRNTER.(61K) *068 LM00096
CM03A CONTINUE *069 LM00097
OTHERWISE *070 LM00098
THROUGH CM03, FOR FILTBP=1,1,FILTBP.G.FILTAB *071 LM00099
WHENEVER .NOT. CPFIL.(FILTAB(FILTBP),NM2), *072 LM00100
1 PRNTER.(61K) *072 LM00101
CM03 CONTINUE *073 LM00102
END OF CONDITIONAL *074 LM00103
WHENEVER TMOPSW, CLS.(NM1,NM2) *075 LM00104
TRANSFER TO EXT *076 LM00105
FORGET PRMESS.($NOTHING DONE.$) *077 LM00106
CHNCOM.(0) *078 LM00107
LM00108
TABLE--PRINT TABLE OF CONTENTS. LM00109
LM00110
OR WHENEVER KEY.E.$ TABLE$ .OR. KEY.E.$ T$ *079 LM00111
COPYSW=0B *080 LM00112
PRSSW=0B *081 LM00113
VECTOR VALUES BL = 605757575757K *082 LM00114
VECTOR VALUES CR = 555757575757K *083 LM00115
TB01 WHENEVER FILTAB.E.0 *084 LM00116
GNEXT.(TFNF) *085 LM00117
WHENEVER FIRST *086 LM00118
FIRST = 0B *087 LM00119
WHENEVER TOFF, OFF.($ARCHIV$,$OUTPUT$) *088 LM00120
WHENEVER TON, OFFON.($ARCHIV$,$OUTPUT$) *089 LM00121
PRMESS. *090 LM00122
PRMESS.($ ***$,NM1,BL,NM2,BL,BL,DATE,BL,TIME) *091 LM00123
PRMESS. *092 LM00124
END OF CONDITIONAL *093 LM00125
BOOLEAN FIRST *094 LM00126
VECTOR VALUES FIRST = 1B *095 LM00127
OTHERWISE *096 LM00128
SEARCH.(TFNF) *097 LM00129
WHENEVER FIRST *098 LM00130
FIRST = 0B *099 LM00131
WHENEVER TOFF, OFF.($ARCHIV$,$OUTPUT$) *100 LM00132
WHENEVER TON, OFFON.($ARCHIV$,$OUTPUT$) *101 LM00133
END OF CONDITIONAL *102 LM00134
END OF CONDITIONAL *103 LM00135
PTLNMK. *104 LM00136
TRANSFER TO TB01 *105 LM00137
LM00138
TFNF PRMESS. *106 LM00139
TRANSFER TO FNF *107 LM00140
LM00141
DELETE--REMOVE ENTRIES LM00142
LM00143
OR WHENEVER KEY.E.$DELETE$ .OR. KEY.E.$ D$ *108 LM00144
DL01 COPYSW=1B *109 LM00145
PRSSW=1B *110 LM00146
WMRKSW=1B *111 LM00147
SEARCH.(REN) *112 LM00148
COPYSW=0B *113 LM00149
GNEXT.(REN) *114 LM00150
TRANSFER TO DL01 *115 LM00151
LM00152
XTRACT- LM00153
LM00154
OR WHENEVER KEY.E.$XTRACT$ .OR. KEY.E.$ X$ .OR. KEY.E.$ XT$ *116 LM00155
XT01 COPYSW=0B *117 LM00156
PRSSW=1B *118 LM00157
WHENEVER FILTAB.NE.0 *119 LM00158
SEARCH.(FNF) *120 LM00159
OTHERWISE *121 LM00160
WHENEVER .NOT. GOTNXT, GNEXT.(FNF) *122 LM00161
END OF CONDITIONAL *123 LM00162
NW1=FLN1.(PRLNMK) *124 LM00163
NW2=FLN2.(PRLNMK) *125 LM00164
COPYSW=1B *126 LM00165
WMRKSW=0B *127 LM00166
GNEXT.(XT02) *128 LM00167
GOTNXT=1B *129 LM00168
TRANSFER TO XT03 *130 LM00169
XT02 NAMO=1B *131 LM00170
XT03 WHENEVER CLS.(NW1,NW2) *132 LM00171
WHENEVER KEY.E.$ XT$, CHFILE.(NW1,NW2,001K,-0,-0) *133 LM00172
END OF CONDITIONAL *134 LM00173
WHENEVER NAMO,TRANSFER TO FNF *135 LM00174
TRANSFER TO XT01 *136 LM00175
LM00176
REPLAC LM00177
LM00178
OR WHENEVER KEY.E.$REPLAC$ .OR. KEY.E.$ R$ .OR. KEY.E.$ RD$ *137 LM00179
RP01 COPYSW=1B *138 LM00180
PRSSW=1B *139 LM00181
WMRKSW=1B *140 LM00182
WHENEVER FILTAB.NE.0 *141 LM00183
SEARCH.(RP02) *142 LM00184
OTHERWISE *143 LM00185
WHENEVER .NOT. GOTNXT, GNEXT.(RP02) *144 LM00186
END OF CONDITIONAL *145 LM00187
GOTNXT=0B *146 LM00188
WHENEVER .NOT. CPFIL.(FLN1.(PRLNMK),FLN2.(PRLNMK)) *147 LM00189
PRNTER.(61K) *148 LM00190
COPYSW=1B *149 LM00191
OTHERWISE *150 LM00192
WHENEVER DELST.L.DELSTZ *151 LM00193
DELST=DELST+1 *152 LM00194
DELST1(DELST)=FLN1.(PRLNMK) *153 LM00195
DELST2(DELST)=FLN2.(PRLNMK) *154 LM00196
END OF CONDITIONAL *155 LM00197
COPYSW=0B *156 LM00198
END OF CONDITIONAL *157 LM00199
GNEXT.(RP02) *158 LM00200
GOTNXT=1B *159 LM00201
TRANSFER TO RP01 *160 LM00202
RP02 WHENEVER NAMTYP *161 LM00203
TYP=1 *162 LM00204
OTHERWISE *163 LM00205
TYP=0 *164 LM00206
END OF CONDITIONAL *165 LM00207
THROUGH RP03, FOR JI=1,1,JI+TYP*(JI-1).G.FILTAB *166 LM00208
WHENEVER NAMTYP *167 LM00209
JJ=2*JI-1 *168 LM00210
CNM2=FILTAB(JJ+1) *169 LM00211
OTHERWISE *170 LM00212
JJ=JI *171 LM00213
CNM2=NM2 *172 LM00214
END OF CONDITIONAL *173 LM00215
WHENEVER .NOT. FILFND(JI) *174 LM00216
PRMESS.(FILTAB(JJ),BL,CNM2,$ ADDED$,606346605757K,NM1,BL,NM2) *175 LM00217
WHENEVER .NOT. CPFIL.(FILTAB(JJ),CNM2) *176 LM00218
PRNTER.(61K) *177 LM00219
OTHERWISE *178 LM00220
FILFND(JI)=1B *179 LM00221
WHENEVER DELST.L.DELSTZ *180 LM00222
DELST=DELST+1 *181 LM00223
DELST1(DELST)=FILTAB(JJ) *182 LM00224
DELST2(DELST)=CNM2 *183 LM00225
END OF CONDITIONAL *184 LM00226
END OF CONDITIONAL *185 LM00227
RP03 END OF CONDITIONAL *186 LM00228
WHENEVER CLS.(NM1,NM2) *187 LM00229
WHENEVER KEY.E.$ RD$ *188 LM00230
THROUGH RPD01, FOR I=1,1,I.G.DELST *189 LM00231
RPD01 DELT.(DELST1(I),DELST2(I)) *190 LM00232
END OF CONDITIONAL *191 LM00233
END OF CONDITIONAL *192 LM00234
TRANSFER TO EXT *193 LM00235
BOOLEAN GOTNXT *194 LM00236
DIMENSION DELST1(100), DELST2(100) *195 LM00237
VECTOR VALUES DELSTZ=100 *196 LM00238
LM00239
UPDATE--CONDITIONAL REPLAC LM00240
LM00241
OR WHENEVER KEY.E.$UPDATE$ .OR. KEY.E.$ U$ *197 LM00242
UP01 COPYSW=1B *198 LM00243
PRSSW=1B *199 LM00244
WMRKSW=1B *200 LM00245
WHENEVER FILTAB.NE.0 *201 LM00246
SEARCH.(REN) *202 LM00247
OTHERWISE *203 LM00248
WHENEVER .NOT. GOTNXT, GNEXT.(REN) *204 LM00249
END OF CONDITIONAL *205 LM00250
FSTATE.(FLN1.(PRLNMK),FLN2.(PRLNMK),FSBUF(8)...8,UP02) *206 LM00251
WHENEVER FSBUF(2).A.377777777777K.G.DATTM.(PRLNMK).A.377777777777K *207 LM00252
PTLNMK. *208 LM00253
COPYSW=0B *209 LM00254
WHENEVER .NOT. CPFIL.(FLN1.(PRLNMK),FLN2.(PRLNMK)), COPYSW=1B *210 LM00255
OTHERWISE *211 LM00256
UP02 COPYSW=1B *212 LM00257
END OF CONDITIONAL *213 LM00258
GNEXT.(REN) *214 LM00259
GOTNXT=1B *215 LM00260
TRANSFER TO UP01 *216 LM00261
LM00262
ERROR LM00263
LM00264
OTHERWISE *217 LM00265
PRMESS.(KEY,$ -- NOT A VALID ARGUMENT.$) *218 LM00266
CHNCOM.(0) *219 LM00267
END OF CONDITIONAL *220 LM00268
LM00269
GRACEFUL EXIT LM00270
LM00271
SPC PRMESS. *221 LM00272
TRANSFER TO FNF *222 LM00273
REN CLS.(NM1,NM2) *223 LM00274
FNF WHENEVER NAMTYP *224 LM00275
THROUGH FN01A, FOR I = 1,1,I.G.FILTAB/2 *225 LM00276
WHENEVER .NOT.FILFND(I) *226 LM00277
PRMESS.(FILTAB(2*I-1),BL,FILTAB(2*I),$ NOT FOUND I$, *227 LM00278
1 456057575757K,NM1,BL,NM2) *227 LM00279
FN01A END OF CONDITIONAL *228 LM00280
OTHERWISE *229 LM00281
THROUGH FNO1B, FOR I=1,1,I.G.FILTAB *230 LM00282
WHENEVER .NOT.FILFND(I) *231 LM00283
PRMESS.(FILTAB(I),BL,NM2,$ NOT FOUND I$,456057575757K, *232 LM00284
1 NM1,BL,NM2) *232 LM00285
FNO1B END OF CONDITIONAL *233 LM00286
END OF CONDITIONAL *234 LM00287
EXT CHNCOM.(0) *235 LM00288
PRMESS.($FRAM$) *236 LM00289
PRMESS.($NOTIFY SYSTEMS STAFF$) *237 LM00290
DORMNT. *238 LM00291
LM00292
ASUBS CONTAINS INTERNAL FUNCTIONS SEARCH., GNEXT., CPFIL., LM00293
CLS., YES. LM00294
AFORM CONTAINS INTERNAL FUNCTIONS MKLNMK., BDLNMK., DATTM., LM00295
FLN1., FLN2., CNT. LM00296
AFORM CONTAINS ALL INFORMATION ON THE ACTUAL LINE MARK FORMA LM00297
LM00298
INSERT FILE ASUBS *239 LM00299
SEARCH. FINDS THE NEXT 'SUPER LINE MARK' WHOSE *239 LM00001
NAME IS IN THE TABLE FILTAB SET UP DURING *239 LM00002
INITIALIZATION. *239 LM00003
*239 LM00004
THE SEARCH WILL INCLUDE PRLNMK, THE PRESENT LINE MARK, *239 LM00005
IFF PRSSW.E.1B *239 LM00006
*239 LM00007
INTERNAL FUNCTION (EOFXT) *240 LM00008
STATEMENT LABEL EOFXT *241 LM00009
ENTRY TO SEARCH. *242 LM00010
WHENEVER NAMTYP *243 LM00011
WHENEVER .NOT. COPYSW *244 LM00012
THROUGH SR00A, FOR I=1,1,I.G.FILTAB *245 LM00013
SR00A WHENEVER .NOT. FILFND(I), TRANSFER TO SRP0A *246 LM00014
BFCLOS.(NM1,NM2,GERR) *247 LM00015
AROPSW=0B *248 LM00016
TRANSFER TO EOFXT *249 LM00017
END OF CONDITIONAL *250 LM00018
SRP0A CONTINUE *251 LM00019
WHENEVER PRSSW.AND.AROPSW, TRANSFER TO SR02A *252 LM00020
SR01A GNEXT.(EOFXT) *253 LM00021
SR02A THROUGH SR03A, FOR FILTBP=1,2,FILTBP.G.FILTAB *254 LM00022
PNTR=(FILTBP+1)/2 *255 LM00023
WHENEVER FLN1.(PRLNMK).E.FILTAB(FILTBP) *256 LM00024
1 .AND.FLN2.(PRLNMK).E.FILTAB(FILTBP+1) *256 LM00025
2 .AND..NOT.FILFND(PNTR) *256 LM00026
FILFND(PNTR)=1B *257 LM00027
FUNCTION RETURN *258 LM00028
SR03A END OF CONDITIONAL *259 LM00029
TRANSFER TO SR01A *260 LM00030
OTHERWISE *261 LM00031
WHENEVER .NOT.COPYSW *262 LM00032
THROUGH SR00, FOR I=1,1,I.G.FILTAB *263 LM00033
SR00 WHENEVER .NOT.FILFND(I), TRANSFER TO SRP0 *264 LM00034
BFCLOS.(NM1,NM2,GERR) *265 LM00035
AROPSW=0B *266 LM00036
TRANSFER TO EOFXT *267 LM00037
END OF CONDITIONAL *268 LM00038
SRP0 CONTINUE *269 LM00039
WHENEVER PRSSW.AND.AROPSW, TRANSFER TO SR02 *270 LM00040
SR01 GNEXT.(EOFXT) *271 LM00041
SR02 WHENEVER FLN2.(PRLNMK).NE.NM2 *272 LM00042
TRANSFER TO SR01 *273 LM00043
OTHERWISE *274 LM00044
THROUGH SR03, FOR FILTBP=1,1,FILTBP.G.FILTAB *275 LM00045
WHENEVER FLN1.(PRLNMK).E.FILTAB(FILTBP) *276 LM00046
1 .AND..NOT.FILFND(FILTBP) *276 LM00047
FILFND(FILTBP)=1B *277 LM00048
FUNCTION RETURN *278 LM00049
SR03 END OF CONDITIONAL *279 LM00050
TRANSFER TO SR01 *280 LM00051
END OF CONDITIONAL *281 LM00052
END OF CONDITIONAL *282 LM00053
END OF FUNCTION *283 LM00054
LM00055
GNEXT. FINDS THE NEXT 'SUPER LINE MARK,' READING LM00056
SERIALLY THROUGH THE ARCHIV FILE AND COPYING IT LM00057
INTO THE TEMPORARY FILE IFF COPYSW.E.1B. LM00058
PRLNMK, THE PRESENT LINE MARK, IS COPIED IFF WMRKSW.E.1B LM00059
LM00060
INTERNAL FUNCTION (EOFXT) *284 LM00061
STATEMENT LABEL EOFXT *285 LM00062
ENTRY TO GNEXT. *286 LM00063
WHENEVER .NOT. AROPSW *287 LM00064
BFOPEN.($R$,NM1,NM2,BUF1(BUFZ),BUF2(BUFZ),-0,GERR) *288 LM00065
BFREAD.(NM1,NM2,PRLNMK(LMKZ)...LMKZ,FRMER,EOFCT,GERR) *289 LM00066
WHENEVER BDLNMK.(PRLNMK) *290 LM00067
TRANSFER TO FRMER *291 LM00068
END OF CONDITIONAL *292 LM00069
AROPSW=1B *293 LM00070
FUNCTION RETURN *294 LM00071
END OF CONDITIONAL *295 LM00072
WHENEVER COPYSW .AND. .NOT. TMOPSW *296 LM00073
DELETE.(TM1,TM2,0,OUT) *297 LM00074
BFOPEN.($W$,TM1,TM2,BUF3(BUFZ),BUF4(BUFZ),BUF5(BUFZ), *298 LM00075
1 GERR) *298 LM00076
TMOPSW=1B *299 LM00077
END OF CONDITIONAL *300 LM00078
WHENEVER COPYSW .AND. WMRKSW *301 LM00079
BFWRIT.(TM1,TM2,PRLNMK(LMKZ)...LMKZ,GERR) *302 LM00080
END OF CONDITIONAL *303 LM00081
WHENEVER .NOT. ADJSW *304 LM00082
AFZ=CNT.(PRLNMK) *305 LM00083
THROUGH COPY, FOR I=CPBUFZ,CPBUFZ,I.GE.AFZ *306 LM00084
BFREAD.(NM1,NM2,CPBUF(CPBUFZ)...CPBUFZ, *307 LM00085
1 FRMER,EOFCT,GERR) *307 LM00086
WHENEVER COPYSW *308 LM00087
BFWRIT.(TM1,TM2,CPBUF(CPBUFZ)...CPBUFZ,GERR) *309 LM00088
END OF CONDITIONAL *310 LM00089
COPY CONTINUE *311 LM00090
REMN=CPBUFZ-(I-AFZ) *312 LM00091
BFREAD.(NM1,NM2,CPBUF(REMN)...REMN, *313 LM00092
1 FRMER,EOFCT,GERR) *313 LM00093
WHENEVER COPYSW *314 LM00094
WHENEVER .NOT. WMRKSW *315 LM00095
THROUGH FXT, FOR I = 27, -9, I.L.0 *316 LM00096
WHENEVER ((CPBUF (1) .RS. I) .A. 777K) .E. 000K *317 LM00097
CPBUF (1) = CPBUF (1) .V. 003K .LS. I *318 LM00098
TRANSFER TO EFXT *319 LM00099
FXT END OF CONDITIONAL *320 LM00100
EFXT END OF CONDITIONAL *321 LM00101
BFWRIT.(TM1,TM2,CPBUF(REMN)...REMN,GERR) *322 LM00102
END OF CONDITIONAL *323 LM00103
END OF CONDITIONAL *324 LM00104
BFREAD.(NM1,NM2,PRLNMK(LMKZ)...LMKZ,EOF,EOFCT,GERR) *325 LM00105
WHENEVER BDLNMK.(PRLNMK),TRANSFER TO FRMER *326 LM00106
ADJSW=0B *327 LM00107
FUNCTION RETURN *328 LM00108
EOF BFCLOS.(NM1,NM2,GERR) *329 LM00109
AROPSW=0B *330 LM00110
TRANSFER TO EOFXT *331 LM00111
FRMER PRMESS.($ARCHIV FORMAT ERROR IN$,NM1,BL,NM2) *332 LM00112
BFCLOS.($ ALL$,-0,GERR) *333 LM00113
CHNCOM.(1) *334 LM00114
GERR PRNTER.(61K) *335 LM00115
CHNCOM.(1) *336 LM00116
END OF FUNCTION *337 LM00117
LM00118
CPFIL.(A,B) COPIES FILE A B INTO THE TEMPORARY FILE. LM00119
CPFIL. ALWAYS MAKES THE LINE MARK NWLNMK AND WRITES LM00120
IT AT THE BEGINNING OF THE ENTRY UNLESS THE FILE IS AN LM00121
ARCHIV FILE ALREADY. LM00122
LM00123
RETURNS 1B IFF SUCCESSFUL LM00124
LM00125
BOOLEAN CPFIL. *338 LM00126
INTERNAL FUNCTION(A,B) *339 LM00127
ENTRY TO CPFIL. *340 LM00128
WHENEVER .NOT. MKLNMK.(A,B,CT) *341 LM00129
FUNCTION RETURN 0B *342 LM00130
OTHERWISE *343 LM00131
WHENEVER .NOT. TMOPSW *344 LM00132
DELETE.(TM1,TM2,0,OUT) *345 LM00133
BFOPEN.($W$,TM1,TM2,BUF3(BUFZ),BUF4(BUFZ), *346 LM00134
1 BUF5(BUFZ),GERR) *346 LM00135
TMOPSW=1B *347 LM00136
END OF CONDITIONAL *348 LM00137
BFOPEN.($R$,A,B,BUF6(BUFZ),BUF7(BUFZ),-0,GERR) *349 LM00138
FRSTSW=1B *350 LM00139
THROUGH CPF01, FOR I=CPBUFZ,CPBUFZ,I.G.CT *351 LM00140
BFREAD.(A,B,CPBUF(CPBUFZ)...CPBUFZ, *352 LM00141
1 CPFEF,EOFCT,GERR) *352 LM00142
WHENEVER BDLNMK.(CPBUF(CPBUFZ-LMKZ)) .AND. FRSTSW *353 LM00143
BFWRIT.(TM1,TM2,NWLNMK(LMKZ)...LMKZ,GERR) *354 LM00144
END OF CONDITIONAL *355 LM00145
FRSTSW=0B *356 LM00146
CPF01 BFWRIT.(TM1,TM2,CPBUF(CPBUFZ)...CPBUFZ,GERR) *357 LM00147
REMN=CPBUFZ-(I-CT) *358 LM00148
BFREAD.(A,B,CPBUF(REMN)...REMN,CPFEF,EOFCT,GERR) *359 LM00149
WHENEVER BDLNMK.(CPBUF(REMN-LMKZ)) .AND. FRSTSW *360 LM00150
BFWRIT.(TM1,TM2,NWLNMK(LMKZ)...LMKZ,GERR) *361 LM00151
END OF CONDITIONAL *362 LM00152
LM00153
ERASE '003' CHARACTER AT END LM00154
LM00155
THROUGH FDLOOP, FOR I = 27,-9,(I.L.0) *363 LM00156
WHENEVER ((CPBUF(1).RS.I).A.777K).E.003K, *364 LM00157
1 CPBUF(1) = CPBUF(1) .EX. (3K.LS.I) *364 LM00158
FDLOOP CONTINUE *365 LM00159
BFWRIT.(TM1,TM2,CPBUF(REMN)...REMN,GERR) *366 LM00160
BFCLOS.(A,B,GERR) *367 LM00161
FUNCTION RETURN 1B *368 LM00162
END OF CONDITIONAL *369 LM00163
CPFEF PRINT COMMENT $ERROR IN FSTATE.--NOTIFY SYSTEMS STAFF.$ *370 LM00164
PRINT COMMENT $DORMNT CALLED$ *371 LM00165
DORMNT. *372 LM00166
END OF FUNCTION *373 LM00167
NORMAL MODE IS INTEGER *374 LM00168
BOOLEAN COPYSW, PRSSW, WMRKSW, AROPSW, TMOPSW, FRSTSW *375 LM00169
BOOLEAN NAMO, ADJSW, NAMTYP *376 LM00170
VECTOR VALUES BUFZ=432 *377 LM00171
DIMENSION BUF1(432), BUF2(432), BUF3(432), BUF4(432), BUF5(432), *378 LM00172
1 BUF6(432), BUF7(432) *378 LM00173
DIMENSION CPBUF(432) *379 LM00174
VECTOR VALUES CPBUFZ=432 *380 LM00175
VECTOR VALUES FILTBZ=16 *381 LM00176
DIMENSION FILTAB(16) *382 LM00177
BOOLEAN FILFND *383 LM00178
DIMENSION FILFND(16) *384 LM00179
LM00180
CLS.(A,B) CLOSES THE TEMPORARY FILE AND RENAMES IT A B LM00181
LM00182
BOOLEAN CLS. *385 LM00183
INTERNAL FUNCTION (A,B) *386 LM00184
ENTRY TO CLS. *387 LM00185
WHENEVER TMOPSW *388 LM00186
BFCLOS.(TM1,TM2,GERR) *389 LM00187
TMOPSW=0B *390 LM00188
DIMENSION FNM(2) *391 LM00189
FNM(0)=A *392 LM00190
FNM(1)=B *393 LM00191
FSTATE.(A,B,FSBUF(8)...8,NFND) *394 LM00192
EQUIVALENCE (MODE,FSBUF(7)) *395 LM00193
MODE=MODE.A.134K *396 LM00194
CL01 DELETE.(A,B,0,NDEL1) *397 LM00195
CHFILE.(TM1,TM2,-0,A,B) *398 LM00196
WHENEVER MODE.NE.000K .AND. KEY.NE.$ XT$ *399 LM00197
CHFILE.(A,B,MODE,-0,-0) *400 LM00198
MODEP = (OCRBC.(MODE).A.777777K).V.575757K6 *401 LM00199
PRMESS.(A,BL,B,BL,$CREATED IN '$,MODEP,$' MODE.$) *402 LM00200
END OF CONDITIONAL *403 LM00201
FUNCTION RETURN 1B *404 LM00202
NDEL1 FUNCTION RETURN 0B *405 LM00203
OTHERWISE *406 LM00204
FUNCTION RETURN 0B *407 LM00205
END OF CONDITIONAL *408 LM00206
NFND MODE=000K *409 LM00207
TRANSFER TO CL01 *410 LM00208
END OF FUNCTION *411 LM00209
LM00210
LM00211
YES. READS A LINE AND RETURNS 1B IFF IT IS 'YES' LM00212
LM00213
BOOLEAN YES. *412 LM00214
INTERNAL FUNCTION *413 LM00215
ENTRY TO YES. *414 LM00216
RDFLXC.(YESNO,6) *415 LM00217
WHENEVER YESNO.E.$YES $ *416 LM00218
FUNCTION RETURN 1B *417 LM00219
OTHERWISE *418 LM00220
FUNCTION RETURN 0B *419 LM00221
END OF CONDITIONAL *420 LM00222
END OF FUNCTION *421 LM00223
LM00224
DELT. DELETES A FILE AND TELLS YOU ABOUT IT. LM00225
RETURNS 1B IFF SUCCESSFUL. LM00226
LM00227
BOOLEAN DELT. *422 LM00228
INTERNAL FUNCTION (A,B) *423 LM00229
ENTRY TO DELT. *424 LM00230
FNM(0)=A *425 LM00231
FNM(1)=B *426 LM00232
DELETE.(A,B,0,NOTDEL) *427 LM00233
PRMESS.(A,BL,B,$ DELETED.$) *428 LM00234
FUNCTION RETURN 1B *429 LM00235
NOTDEL PRMESS.(A,BL,B,$ NOT DELETED.$) *430 LM00236
FUNCTION RETURN 0B *431 LM00237
END OF FUNCTION *432 LM00238
INSERT FILE AFORM *433 LM00300
*433 LM00001
THE FORMAT OF 'SUPER LINE MARK' IN ASCII ARCHIV FILES *433 LM00002
IS DEFINED AS FOLLOWS: *433 LM00003
FF NL NL NL DEL DEL DEL DEL *433 LM00004
NAME1 SP SP NAME2 SP SP MM/DD/YY SP SP *433 LM00005
HHMM.M SP SP ZZZZZZ DEL DEL DEL DEL NL NL NL NL *433 LM00006
TOTALLING 14 WORDS. ZZZZZZ IS THE WORD COUNT. *433 LM00007
THE FOLLOWING INTERNAL FUNCTIONS DIDDLE *433 LM00008
WITH THIS INFO AND ARE CALLED BY THE REST OF THE *433 LM00009
ARCHIV ROUTINES. *433 LM00010
D.R. WIDRIG APRIL 1967 *433 LM00011
*433 LM00012
MKLNMK.(A,B,CT) MAKES A 'SUPER LINE MARK' FOR 'A B' *433 LM00013
IN NWLNMK AND SET 'CT' = FILE SIZE. THE ROUTINE *433 LM00014
RETURNS 1B IF OK, 0B IF FILE DOES NOT EXIST. *433 LM00015
*433 LM00016
INTERNAL FUNCTION (A,B,CT) *434 LM00017
ENTRY TO MKLNMK. *435 LM00018
BOOLEAN MKLNMK. *436 LM00019
FSTATE.(A,B,CT...1,NTFND) *437 LM00020
RCONV.(BZEL.(DEFBC.(CT)),NWLNMK(4),NWLNMK(3)) *438 LM00021
LM00022
PREPARE LINE MARK LM00023
LM00024
VECTOR VALUES NWLNMK(13) = 177 177 011 011K, 014 012 012 012K *439 LM00025
VECTOR VALUES NWLNMK(1) = 012 012 012 012K, 177 177 177 177K *440 LM00026
LCONV.(A,NWLNMK(12),NWLNMK(11)) *441 LM00027
LCONV.(B,NWLNMK(10),NWLNMK(9)) *442 LM00028
LM00029
GET TIME OF CREATION, IF NOT ALREADY DONE LM00030
LM00031
VECTOR VALUES GOTTM = 0B *443 LM00032
WHENEVER .NOT. GOTTM *444 LM00033
GOTTM = 1B *445 LM00034
GETTIM.(PDATE,PTIME) *446 LM00035
RCONV.(PTIME,NWLNMK(6),NWLNMK(5)) *447 LM00036
TEMP1 = (PDATE.A.7777K8) .V. $00/00/$ .V. *448 LM00037
1 ((PDATE.RS.6).A.7777K2) *448 LM00038
LCONV.(TEMP1,NWLNMK(8),NWLNMK(7)) *449 LM00039
NWLNMK(7) = (NWLNMK(7).A.777777K6) .V. *450 LM00040
1 TSSASC.((PDATE.RS.6).A.77K).LS.9 .V. *450 LM00041
2 TSSASC.(PDATE.A.77K) *450 LM00042
END OF CONDITIONAL *451 LM00043
FUNCTION RETURN 1B *452 LM00044
LM00045
NTFND FUNCTION RETURN 0B *453 LM00046
END OF FUNCTION *454 LM00047
LM00048
BDLNMK.(LMK) RETURNS 1B IF LMK(LMKZ)...LMKZ LM00049
IS NOT A 'SUPER LINE MARK', 0B IF IT IS. LM00050
LM00051
BOOLEAN BDLNMK. *455 LM00052
INTERNAL FUNCTION BDLNMK.(LMK)=(LMK(14) .NE. NWLNMK(14)) .OR. *456 LM00053
1 (LMK(13) .NE. NWLNMK(13)) .OR. (LMK(2) .NE. NWLNMK(2)) *456 LM00054
2 .OR. (LMK(1) .NE. NWLNMK(1)) *456 LM00055
LM00056
DATTM.(LMK) RETURNS THE DATE AND TIME OF ARCHIVING LM00057
OF THE FILE HEADED BY LMK(LMKZ)...LMKZ IN FILE SYSTEM LM00058
FORMAT. LM00059
LM00060
INTERNAL FUNCTION (LMK) *457 LM00061
ENTRY TO DATTM. *458 LM00062
TEMP1 = CONVL.(LMK(8),LMK(7)) *459 LM00063
TEMP1 = (TEMP1.A.7777K8) .V. ((TEMP1.LS.6).A.7777K4) *460 LM00064
TEMP1 = TEMP1 .V. (CONVR.(LMK(8),LMK(7)).A.7777K) *461 LM00065
TEMP2 = CONVR.(LMK(6),LMK(5)) *462 LM00066
LM00067
NOW, CONVERT IBM BCD INTO FILE SYSTEM FORMAT LM00068
LM00069
FUNCTION RETURN (BCDEC.(TEMP1.A.7777K).LS. 27) .V. *463 LM00070
1 (BCDEC.((TEMP1.RS.12).A.7777K).LS.18) .V. *463 LM00071
2 (BCDEC.(TEMP1.RS.24).LS.23) .V. *463 LM00072
3 (BCDEC.(TEMP2.RS.24)*3600 + *463 LM00073
4 BCDEC.((TEMP2.RS.12).A.7777K)*60 + *463 LM00074
5 BCDEC.(TEMP2.A.77K)*6) *463 LM00075
END OF FUNCTION *464 LM00076
LM00077
INTERNAL FUNCTIONS TO GET NAMES AND COUNTS LM00078
LM00079
INTERNAL FUNCTION CNT.(LMK) = BCDEC.(CONVR.(LMK(4),LMK(3))) *465 LM00080
INTERNAL FUNCTION FLN1.(LMK) = CONVL.(LMK(12),LMK(11)) *466 LM00081
INTERNAL FUNCTION FLN2.(LMK) = CONVL.(LMK(10),LMK(9)) *467 LM00082
LM00083
PTLNMK. PRINTS OUT THE CURRENT 'SUPER LINE MARK' LM00084
LM00085
INTERNAL FUNCTION *468 LM00086
ENTRY TO PTLNMK. *469 LM00087
PRMESS. (CONVL.(PRLNMK(12),PRLNMK(11)), BL, *470 LM00088
1 CONVL.(PRLNMK(10),PRLNMK(9)), BL, *470 LM00089
2 CONVL.(PRLNMK(8),PRLNMK(7)), *470 LM00090
3 CONVR.(PRLNMK(8),PRLNMK(7)) .LS. 24 .V. 60575757K, *470 LM00091
4 CONVR.(PRLNMK(6),PRLNMK(5)), BL, *470 LM00092
5 CONVR.(PRLNMK(4),PRLNMK(3)) ) *470 LM00093
FUNCTION RETURN *471 LM00094
END OF FUNCTION *472 LM00095
LM00096
DIMENSION PRLNMK(14),NWLNMK(14) *473 LM00097
VECTOR VALUES LMKZ = 14 *474 LM00098
DIMENSION FSBUF (432) *475 LM00099
LM00100
UTILITY ROUTINES FOR ASCII-BCD AND BCD-ASCII LM00101
NOT VERY PLEASANT BUT WIDRIG GETS LAZY SOMETIMES LM00102
LM00103
LM00104
THIS ROUTINE CONVERTS 6 BCD CHARS TO 8 ASCII LM00105
RIGHT-ADJUSTED WITH LEADING BLANKS LM00106
LM00107
INTERNAL FUNCTION (ARG1,ARG2,ARG3) *476 LM00108
ENTRY TO RCONV. *477 LM00109
ARG2 = 040 040K6 .V. (TSSASC.(ARG1.RS.30).LS.9) .V. *478 LM00110
1 TSSASC.((ARG1.RS.24).A.77K) *478 LM00111
ARG3 = (TSSASC.((ARG1.RS.18).A.77K).LS.27) *479 LM00112
1 .V. (TSSASC.((ARG1.RS.12).A.77K).LS.18) *479 LM00113
2 .V. (TSSASC.((ARG1.RS.6).A.77K) .LS. 9) *479 LM00114
3 .V. TSSASC.(ARG1.A.77K) *479 LM00115
FUNCTION RETURN *480 LM00116
END OF FUNCTION *481 LM00117
LM00118
THIS ROUTINE CONVERTS 6 BCD CHARS TO 8 ASCII LM00119
LEFT-ADJUSTED WITH TRAILING BLANKS LM00120
LM00121
INTERNAL FUNCTION (ARG1,ARG2,ARG3) *482 LM00122
ENTRY TO LCONV. *483 LM00123
ARG2 = (TSSASC.((ARG1.RS.30)).LS.27) *484 LM00124
1 .V. (TSSASC.((ARG1.RS.24).A.77K).LS.18) *484 LM00125
2 .V. (TSSASC.((ARG1.RS.18).A.77K).LS.9) *484 LM00126
3 .V. TSSASC.((ARG1.RS.12).A.77K) *484 LM00127
ARG3 = 040 040K .V. (TSSASC.((ARG1.RS.6).A.77K).LS.27) .V. *485 LM00128
1 (TSSASC.(ARG1.A.77K).LS.18) *485 LM00129
FUNCTION RETURN *486 LM00130
END OF FUNCTION *487 LM00131
LM00132
THIS ROUTINE CONVERTS THE RIGHT 6 ASCII CHARS LM00133
INTO 6 BCD CHARS LM00134
LM00135
INTERNAL FUNCTION (ARG2,ARG3) *488 LM00136
ENTRY TO CONVR. *489 LM00137
FUNCTION RETURN (ASCTSS.(ARG2.RS.9).LS.30) .V. (ASCTSS.(ARG2).LS.24) .V. *490 LM00138
1 (ASCTSS.(ARG3.RS.27).LS.18) .V. *490 LM00139
2 (ASCTSS.(ARG3.RS.18).LS.12) .V. *490 LM00140
3 (ASCTSS.(ARG3.RS.9).LS.6) .V. ASCTSS.(ARG3) *490 LM00141
END OF FUNCTION *491 LM00142
LM00143
THIS ROUTINE CONVERTS THE RIGHT 6 ASCII CHARS LM00144
INTO 6 BCD CHARS LM00145
LM00146
INTERNAL FUNCTION (ARG2,ARG3) *492 LM00147
ENTRY TO CONVL. *493 LM00148
FUNCTION RETURN (ASCTSS.(ARG2.RS.27).LS.30).V.(ASCTSS.(ARG2.RS.18).LS.24) *494 LM00149
1 .V. (ASCTSS.(ARG2.RS.9).LS.18) *494 LM00150
2 .V. (ASCTSS.(ARG2) .LS. 12) *494 LM00151
3 .V. (ASCTSS.(ARG3.RS.27).LS.6) *494 LM00152
4 .V. (ASCTSS.(ARG3.RS.18)) *494 LM00153
END OF FUNCTION *495 LM00154
END OF PROGRAM *496 LM00301
THE FOLLOWING NAMES HAVE OCCURRED ONLY ONCE IN THIS PROGRAM.
THEY WILL ALL BE ASSIGNED TO THE SAME LOCATION, AND
COMPILATION WILL CONTINUE.
SPC
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 15356 TRANSFER VECTOR LENGTH 00035 PROGRAM BEGINS 10512
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
ADJSW 01006 2 CPF01 00056 4 FORGET 00756 4 NTFND 00764 4 SR03 00056 4
AFZ 01007 1 CPFEF 00750 4 FRMER 00757 4 NW1 10231 1 SRP0A 00775 4
ANAM 00061 A 1 CR 07626 A 1 FRSTSW 10216 2 NW2 10232 1 SRP0 00776 4
AROPSW 01010 2 CT 07627 1 FSBUF 00745 A 1 NWLNMK 10251 A 1 TB01 00777 4
BL 01011 A 1 DATE 07630 1 FXT 00056 4 OUT 00765 4 TEMP1 10276 1
BUF1 01672 A 1 DELST1 07775 A 1 GERR 00760 4 PDATE 10252 1 TEMP2 10277 1
BUF2 02553 A 1 DELST2 10142 A 1 GOTNXT 10217 2 PNTR 10253 1 TFIL 00064 A 1
BUF3 03434 A 1 DELST 10143 1 GOTTM 10220 A 2 PRLNMK 10272 A 1 TFNF 01000 4
BUF4 04315 A 1 DELSTZ 10144 A 1 IN00 00056 4 PRSSW 10273 2 TIME 10300 1
BUF5 05176 A 1 DL01 00751 4 IN01 00056 4 PTIME 10274 1 TM1 00064 1
BUF6 06057 A 1 EFXT 00752 4 I 10221 1 REMN 10275 1 TM2 00063 1
BUF7 06740 A 1 EOFCT 10145 1 JI 10222 1 REN 00766 4 TMOPSW 10301 2
BUFZ 06741 A 1 EOF 00753 4 JJ 10223 1 RP01 00767 4 TOFF 10302 A 2
CL01 00746 4 EXT 00754 4 KEY 10224 1 RP02 00770 4 TON 10303 A 2
CM01 00747 4 FDLOOP 00056 4 LMKZ 10225 A 1 RP03 00056 4 TYP 10304 1
CM03A 00056 4 FILFND 10166 A 2 MODEP 10226 1 RPD01 00056 4 UP01 01001 4
CM03 00056 4 FILTAB 10207 A 1 MODE 00736 1 SPC 00056 4 UP02 01002 4
CMP1A 00056 4 FILTBP 10210 1 NAMO 10227 2 SR00A 00056 4 WHBUF 10315 A 1
CMP1B 00056 4 FILTBZ 10211 A 1 NAMTYP 10230 2 SR00 00056 4 WMRKSW 10316 2
CNM2 06742 1 FIRST 10212 A 2 NDEL1 00761 4 SR01A 00771 4 XT01 01003 4
COPY 00056 4 FN01A 00056 4 NFND 00762 4 SR01 00772 4 XT02 01004 4
COPYSW 06743 2 FNF 00755 4 NM1 00061 1 SR02A 00773 4 XT03 01005 4
CPBUF 07624 A 1 FNM 10215 A 1 NM2 00060 1 SR02 00774 4 YESNO 10317 1
CPBUFZ 07625 A 1 FNO1B 00056 4 NOTDEL 00763 4 SR03A 00056 4
0FUNCTION DICTIONARY
ASCTSS 00000 1 BCDEC 00001 1 BFCLOS 00002 1 BFOPEN 00003 1 BFREAD 00004 1
BFWRIT 00005 1 BZEL 00006 1 CHFILE 00007 1 CHNCOM 00010 1 COMARG 00011 1
DEFBC 00012 1 DELETE 00013 1 DORMNT 00014 1 EXIT 00015 1 FSTATE 00016 1
GETTIM 00017 1 GETTM 00020 1 .PCOMT 00021 1 .SETUP 00022 1 OCRBC 00023 1
OFFON 00024 1 OFF 00025 1 PRMESA 00026 1 PRMESS 00027 1 PRNTER 00030 1
RDFLXC 00031 1 SETBRK 00032 1 TSSASC 00033 1 WHOAMI 00034 1 BDLNMK 00035 2
CLS 00036 2 CNT 00037 1 CONVL 00040 1 CONVR 00041 1 CPFIL 00042 2
DATTM 00043 1 DELT 00044 2 FLN1 00045 1 FLN2 00046 1 GNEXT 00047 1
LCONV 00050 1 MKLNMK 00051 2 PTLNMK 00052 1 RCONV 00053 1 SEARCH 00054 1
YES 00055 2
0ABSOLUTE CONSTANTS
10346 +000000040040 10354 +040040000000 10336 +000000000036 10351 +000060575757 10332 +000000000022
10333 +000000000027 10344 +000000007020 10334 +000000000030 10340 +000000000074 10331 +000000000014
10345 +000000007777 10353 +000077770000 10511 -377777000000 10352 +000061000061 10510 -377700000000
10347 +000000777700 10370 +254325632524 10444 -204546636024 10367 +252433606060 10434 -202425432563
10503 -302562606060 10326 +000000000006 10355 +146044462425 10366 +246031456014 10364 +235125216325
10431 -175757000000 10350 +000000777777 10342 +000000000134 10447 -206060214343 10427 -116031456060
10471 -236025515146 10437 -202646514421 10343 +000000000777 10330 +000000000011 10335 +000000000033
10501 -266060606060 10430 -116060606060 10372 +262660606060 10411 -046260626321 10462 -206270626325
10413 -054663312670 10373 +265121446060 10415 -056057575757 10420 -066445246031 10445 -204546636026
10375 +276444254563 10406 -033124602151 10470 -236021606521 10441 -204040604546 10401 +377777777777
10477 -244724216325 10455 -206060606064 10464 -206346605757 10432 -202124242524 10453 -206060606051
10450 -206060605124 10456 -206060606067 10457 -206060606763 10365 +242543256325 10452 -206060606024
10446 -205454546060 10421 -066463476463 10463 -206321224325 10374 +276024464525 10412 -054663303145
10337 +000000000061 10377 +316260464273 10440 -203162606330 10400 +336060606060 10376 +302560464324
10475 -242425246063 10472 -236031452343 10360 +216525604546 10465 -207046646030 10451 -206060606023
10327 +000000000010 10476 -242562636060 10423 -072560512550 10506 -336051256370 10410 -044743256325
10473 -236031452346 10404 -032162636021 10325 +000000000005 10324 +000000000004 10466 -224664512325
10474 -236260606060 10425 -112764442545 10417 -066427306021 10414 -054663602545 10323 +000000000003
10322 +000000000002 10460 -206060634645 10454 -206060606063 10461 -206063462626 10320 +000000000000
10426 -113360606060 10443 -204325636325 10435 -202631516263 10467 -232524602270 10361 +225125653121
10433 -202225602122 10504 -306260442170 10356 +214343604225 10422 -072421632560 10505 -336046516064
10502 -276351212363 10424 -112547432123 10405 -032563257360 10416 -056373602425 10371 +257360475131
10507 -336063212243 10363 +234644223145 10402 -022570601360 10500 -263025512560 10403 -030260333333
10436 -202643016026 10407 -040160454402 10442 -204225706045 10357 +215123303165 10341 +000000000077
10321 +000000000001 10362 +233000000000
0STATEMENT DICTIONARY
00746 TXL -313406013401 00747 TXL -311132011132 00750 TXL -313315013304 00751 TXL -311340011336
00752 TXL -312705012705 00753 TXL -312744012740 00754 TXL -312173012171 00755 TXL -312062012060
00756 TXL -311226011222 00757 TXL -312757012747 00760 TXL -312771012767 00761 TXL -313463013461
00762 TXL -313470013466 00763 TXL -313606013577 00764 TXL -313755013753 00765 TXL -310562010560
00766 TXL -312060012055 00767 TXL -311465011463 00770 TXL -311554011552 00771 TXL -312250012246
00772 TXL -312355012353 00773 TXL -312262012250 00774 TXL -312361012355 00775 TXL -312241012241
00776 TXL -312346012346 00777 TXL -311246011243 01000 TXL -311326011325 01001 TXL -311744011742
01002 TXL -312034012032 01003 TXL -311367011365 01004 TXL -311424011422 01005 TXL -311430011424
0PROGRAM
W'R COMARG.(1).A.77K.E.77K 001 LM00015
10512 TSX +0 07400 4 00022 10513 TSX +0 07400 4 00011 10514 TXH +3 00000 0 10321 10515 STO +0 60100 0 15352
10516 CAL -0 50000 0 15352 10517 ANA -0 32000 0 10341 10520 SLW +0 60200 0 15352 10521 CLA +0 50000 0 15352
10522 SUB +0 40200 0 10341 10523 TNZ -0 10000 0 10562
PRMESS.( $ARCHIV KEY NM1 NM2 FL1 FL2 ...$) 002 LM00016
10524 TSX +0 07400 4 00027 10525 TXH +3 00000 0 10357 10526 TXH +3 00000 0 10442 10527 TXH +3 00000 0 10407
10530 TXH +3 00000 0 10436 10531 TXH +3 00000 0 10403
PRMESS.($WHERE KEY = COMBIN, TABLE, PRINT, DELETE, REPLAC$) 003 LM00017
10532 TSX +0 07400 4 00027 10533 TXH +3 00000 0 10500 10534 TXH +3 00000 0 10402 10535 TXH +3 00000 0 10363
10536 TXH +3 00000 0 10507 10537 TXH +3 00000 0 10371 10540 TXH +3 00000 0 10416 10541 TXH +3 00000 0 10405
10542 TXH +3 00000 0 10424
PRMESS.($XTRACT, OR UPDATE$) 004 LM00018
10543 TSX +0 07400 4 00027 10544 TXH +3 00000 0 10502 10545 TXH +3 00000 0 10505 10546 TXH +3 00000 0 10422
PRMESS.($ALL KEYS MAY BE ABBREVIATED BY FIRST LETTER.$) 005 LM00019
10547 TSX +0 07400 4 00027 10550 TXH +3 00000 0 10356 10551 TXH +3 00000 0 10504 10552 TXH +3 00000 0 10433
10553 TXH +3 00000 0 10361 10554 TXH +3 00000 0 10467 10555 TXH +3 00000 0 10435 10556 TXH +3 00000 0 10443
10557 TXH +3 00000 0 10426
OUT CHNCOM.(0) 006 LM00020
10560 TSX +0 07400 4 00010 10561 TXH +3 00000 0 10320
E'L 007 LM00021
KEY=COMARG.(1) 008 LM00022
10562 TSX +0 07400 4 00011 10563 TXH +3 00000 0 10321 10564 STO +0 60100 0 10224
W'R KEY .E. $ TOFF$ 009 LM00023
10565 CLA +0 50000 0 10224 10566 SUB +0 40200 0 10461 10567 TNZ -0 10000 0 10574
TOFF = 1B 010 LM00024
10570 CLA +0 50000 0 10321 10571 STO +0 60100 0 10302
BOOLEAN TOFF 011 LM00025
V'S TOFF = 0B 012 LM00026
10302 +0 00000 0 00000
KEY = $ T$ 013 LM00027
10572 CLA +0 50000 0 10454 10573 STO +0 60100 0 10224
E'L 014 LM00028
W'R KEY .E. $ TON$ 015 LM00029
10574 CLA +0 50000 0 10224 10575 SUB +0 40200 0 10460 10576 TNZ -0 10000 0 10603
TON = 1B 016 LM00030
10577 CLA +0 50000 0 10321 10600 STO +0 60100 0 10303
KEY = $ T$ 017 LM00031
10601 CLA +0 50000 0 10454 10602 STO +0 60100 0 10224
BOOLEAN TON 018 LM00032
V'S TON = 0B 019 LM00033
10303 +0 00000 0 00000
E'L 020 LM00034
NM1=COMARG.(2) 021 LM00035
10603 TSX +0 07400 4 00011 10604 TXH +3 00000 0 10322 10605 STO +0 60100 0 00061
NM2=COMARG.(3) 022 LM00036
10606 TSX +0 07400 4 00011 10607 TXH +3 00000 0 10323 10610 STO +0 60100 0 00060
SETBRK.(OUT) 023 LM00037
10611 TSX +0 07400 4 00032 10612 TXH +3 00000 0 00765
GETTM.(DATE,TIME) 024 LM00039
10613 TSX +0 07400 4 00020 10614 TXH +3 00000 0 07630 10615 TXH +3 00000 0 10300
D'N ANAM(2) 025 LM00040
EQUIVALENCE (NM1,ANAM(0)), (NM2,ANAM(1)) 026 LM00041
W'R NM1.A.77K.E.77K .OR. NM2.A.77K.E.77K 027 LM00042
10616 CAL -0 50000 0 00060 10617 ANA -0 32000 0 10341 10620 SLW +0 60200 0 15352 10621 CLA +0 50000 0 15352
10622 SUB +0 40200 0 10341 10623 TZE +0 10000 0 10632 10624 CAL -0 50000 0 00061 10625 ANA -0 32000 0 10341
10626 SLW +0 60200 0 15352 10627 CLA +0 50000 0 15352 10630 SUB +0 40200 0 10341 10631 TNZ -0 10000 0 10641
PRMESS.($NOT ENOUGH ARGUMENTS$) 028 LM00043
10632 TSX +0 07400 4 00027 10633 TXH +3 00000 0 10414 10634 TXH +3 00000 0 10417 10635 TXH +3 00000 0 10425
10636 TXH +3 00000 0 10474
CHNCOM.(0) 029 LM00044
10637 TSX +0 07400 4 00010 10640 TXH +3 00000 0 10320
E'L 030 LM00045
W'R NM2.E.$SOURCE$.OR.NM2.E.$ARCHIV$ 031 LM00050
10641 CLA +0 50000 0 00060 10642 SUB +0 40200 0 10357 10643 TZE +0 10000 0 10647 10644 CLA +0 50000 0 00060
10645 SUB +0 40200 0 10466 10646 TNZ -0 10000 0 10755
NAMTYP=1B 032 LM00051
10647 CLA +0 50000 0 10321 10650 STO +0 60100 0 10230
T'H IN00, FOR FILTAB=0,2,COMARG.(FILTAB+4).A.77K.E.77K 033 LM00052
1 .OR.FILTAB.E.FILTBZ 033 LM00053
10651 CLA +0 50000 0 10320 10652 STO +0 60100 0 10207 10653 TRA +0 02000 0 10657 10654 CLA +0 50000 0 10207
10655 ADD +0 40000 0 10322 10656 STO +0 60100 0 10207 10657 CLA +0 50000 0 10207 10660 SUB +0 40200 0 10211
10661 TZE +0 10000 0 10754 10662 CLA +0 50000 0 10207 10663 ADD +0 40000 0 10324 10664 STO +0 60100 0 15352
10665 TSX +0 07400 4 00011 10666 TXH +3 00000 0 15352 10667 STO +0 60100 0 15352 10670 CAL -0 50000 0 15352
10671 ANA -0 32000 0 10341 10672 SLW +0 60200 0 15352 10673 CLA +0 50000 0 15352 10674 SUB +0 40200 0 10341
10675 TZE +0 10000 0 10754
FILTAB(FILTAB+1)=COMARG.(FILTAB+4) 034 LM00054
10676 CLA +0 50000 0 10207 10677 ADD +0 40000 0 10324 10700 STO +0 60100 0 15352 10701 TSX +0 07400 4 00011
10702 TXH +3 00000 0 15352 10703 STO +0 60100 0 15352 10704 CLA +0 50000 0 10207 10705 ADD +0 40000 0 10321
10706 PAX +0 73400 1 00000 10707 CLA +0 50000 0 15352 10710 STO +0 60100 1 10207
W'R COMARG.(FILTAB+5).A.77K.E.77K 035 LM00055
10711 CLA +0 50000 0 10207 10712 ADD +0 40000 0 10325 10713 STO +0 60100 0 15352 10714 TSX +0 07400 4 00011
10715 TXH +3 00000 0 15352 10716 STO +0 60100 0 15352 10717 CAL -0 50000 0 15352 10720 ANA -0 32000 0 10341
10721 SLW +0 60200 0 15352 10722 CLA +0 50000 0 15352 10723 SUB +0 40200 0 10341 10724 TNZ -0 10000 0 10740
PRMESS.( $LAST ARGUMENT INCOMPLETE, RETYPE REQUEST$) 036 LM00056
10725 TSX +0 07400 4 00027 10726 TXH +3 00000 0 10404 10727 TXH +3 00000 0 10425 10730 TXH +3 00000 0 10473
10731 TXH +3 00000 0 10410 10732 TXH +3 00000 0 10506 10733 TXH +3 00000 0 10423 10734 TXH +3 00000 0 10476
CHNCOM.(0) 037 LM00057
10735 TSX +0 07400 4 00010 10736 TXH +3 00000 0 10320
O'E 038 LM00058
10737 TRA +0 02000 0 10753
FILTAB(FILTAB+2)=COMARG.(FILTAB+5) 039 LM00059
10740 CLA +0 50000 0 10207 10741 ADD +0 40000 0 10325 10742 STO +0 60100 0 15352 10743 TSX +0 07400 4 00011
10744 TXH +3 00000 0 15352 10745 STO +0 60100 0 15352 10746 CLA +0 50000 0 10207 10747 ADD +0 40000 0 10322
10750 PAX +0 73400 1 00000 10751 CLA +0 50000 0 15352 10752 STO +0 60100 1 10207
E'L 040 LM00060
IN00 CONTINUE 041 LM00061
10753 TRA +0 02000 0 10654
O'E 042 LM00062
10754 TRA +0 02000 0 11020
NAMTYP=0B 043 LM00063
10755 CLA +0 50000 0 10320 10756 STO +0 60100 0 10230
T'H IN01, FOR FILTAB=0,1,COMARG.(FILTAB+4).A.77K.E.77K 044 LM00064
1 .OR. FILTAB.E.FILTBZ 044 LM00065
10757 CLA +0 50000 0 10320 10760 STO +0 60100 0 10207 10761 TRA +0 02000 0 10765 10762 CLA +0 50000 0 10207
10763 ADD +0 40000 0 10321 10764 STO +0 60100 0 10207 10765 CLA +0 50000 0 10207 10766 SUB +0 40200 0 10211
10767 TZE +0 10000 0 11020 10770 CLA +0 50000 0 10207 10771 ADD +0 40000 0 10324 10772 STO +0 60100 0 15352
10773 TSX +0 07400 4 00011 10774 TXH +3 00000 0 15352 10775 STO +0 60100 0 15352 10776 CAL -0 50000 0 15352
10777 ANA -0 32000 0 10341 11000 SLW +0 60200 0 15352 11001 CLA +0 50000 0 15352 11002 SUB +0 40200 0 10341
11003 TZE +0 10000 0 11020
IN01 FILTAB(FILTAB+1)=COMARG.(FILTAB+4) 045 LM00066
11004 CLA +0 50000 0 10207 11005 ADD +0 40000 0 10324 11006 STO +0 60100 0 15352 11007 TSX +0 07400 4 00011
11010 TXH +3 00000 0 15352 11011 STO +0 60100 0 15352 11012 CLA +0 50000 0 10207 11013 ADD +0 40000 0 10321
11014 PAX +0 73400 1 00000 11015 CLA +0 50000 0 15352 11016 STO +0 60100 1 10207 11017 TRA +0 02000 0 10762
E'L 046 LM00067
WHOAMI.(WHBUF(8)...8) 047 LM00071
11020 TSX +0 07400 4 00034 11021 TIX +2 10327 0 10305
D'N WHBUF(8) 048 LM00072
D'N TFIL(2) 049 LM00073
TM1=WHBUF(8) 050 LM00074
11022 CLA +0 50000 0 10305 11023 STO +0 60100 0 00064
TM2=WHBUF(7) 051 LM00075
11024 CLA +0 50000 0 10306 11025 STO +0 60100 0 00063
EQUIVALENCE (TM1,TFIL(0)), (TM2,TFIL(1)) 052 LM00076
W'R KEY.E.$COMBIN$ .OR. KEY.E.$ C$ 053 LM00080
11026 CLA +0 50000 0 10224 11027 SUB +0 40200 0 10451 11030 TZE +0 10000 0 11034 11031 CLA +0 50000 0 10224
11032 SUB +0 40200 0 10363 11033 TNZ -0 10000 0 11231
FSTATE.(NM1,NM2,FSBUF(8)...8,CM01) 054 LM00081
11034 TSX +0 07400 4 00016 11035 TXH +3 00000 0 00061 11036 TXH +3 00000 0 00060 11037 TIX +2 10327 0 00735
11040 TXH +3 00000 0 00747
W'R NAMTYP 055 LM00082
11041 NZT -0 52000 0 10230 11042 TRA +0 02000 0 11072
T'H CMP1A, FOR I=1,2,I.G.FILTAB 056 LM00083
11043 CLA +0 50000 0 10321 11044 STO +0 60100 0 10221 11045 TRA +0 02000 0 11051 11046 CLA +0 50000 0 10221
11047 ADD +0 40000 0 10322 11050 STO +0 60100 0 10221 11051 CLA +0 50000 0 10221 11052 SUB +0 40200 0 10207
11053 TZE +0 10000 0 11055 11054 TPL +0 12000 0 11071
CMP1A W'R FILTAB(I).E.NM1.AND.FILTAB(I+1).E.NM2, T'O CM01 057 LM00084
11055 CLA +0 50000 0 10221 11056 ADD +0 40000 0 10321 11057 PAX +0 73400 1 00000 11060 CLA +0 50000 1 10207
11061 SUB +0 40200 0 00060 11062 TNZ -0 10000 0 11070 11063 LXA +0 53400 1 10221 11064 CLA +0 50000 1 10207
11065 SUB +0 40200 0 00061 11066 TNZ -0 10000 0 11070 11067 TRA +0 02000 0 00747 11070 TRA +0 02000 0 11046
O'E 058 LM00085
11071 TRA +0 02000 0 11112
T'H CMP1B, FOR I = 1,1,I.G.FILTAB 059 LM00086
11072 CLA +0 50000 0 10321 11073 STO +0 60100 0 10221 11074 TRA +0 02000 0 11100 11075 CLA +0 50000 0 10221
11076 ADD +0 40000 0 10321 11077 STO +0 60100 0 10221 11100 CLA +0 50000 0 10221 11101 SUB +0 40200 0 10207
11102 TZE +0 10000 0 11104 11103 TPL +0 12000 0 11112
CMP1B W'R FILTAB(I).E.NM1, T'O CM01 060 LM00087
11104 LXA +0 53400 1 10221 11105 CLA +0 50000 1 10207 11106 SUB +0 40200 0 00061 11107 TNZ -0 10000 0 11111
11110 TRA +0 02000 0 00747 11111 TRA +0 02000 0 11075
E'L 061 LM00088
PRMESS.($ YOU HAVE NOT INCLUDED THE OLD$,NM1,NM2,$.$) 062 LM00089
11112 TSX +0 07400 4 00027 11113 TXH +3 00000 0 10465 11114 TXH +3 00000 0 10360 11115 TXH +3 00000 0 10472
11116 TXH +3 00000 0 10475 11117 TXH +3 00000 0 10376 11120 TXH +3 00000 0 00061 11121 TXH +3 00000 0 00060
11122 TXH +3 00000 0 10400
PRMESA.($ IS THIS OK,$) 063 LM00090
11123 TSX +0 07400 4 00026 11124 TXH +3 00000 0 10440 11125 TXH +3 00000 0 10377
W'R .NOT. YES.(0), T'O FORGET 064 LM00091
11126 TSX +0 07400 4 00055 11127 TXH +3 00000 0 10320 11130 TNZ -0 10000 0 11132 11131 TRA +0 02000 0 00756
CM01 CONTINUE 065 LM00092
W'R NAMTYP 066 LM00093
11132 NZT -0 52000 0 10230 11133 TRA +0 02000 0 11167
T'H CM03A, FOR FILTBP=1,2,FILTBP.G.FILTAB 067 LM00094
11134 CLA +0 50000 0 10321 11135 STO +0 60100 0 10210 11136 TRA +0 02000 0 11142 11137 CLA +0 50000 0 10210
11140 ADD +0 40000 0 10322 11141 STO +0 60100 0 10210 11142 CLA +0 50000 0 10210 11143 SUB +0 40200 0 10207
11144 TZE +0 10000 0 11146 11145 TPL +0 12000 0 11166
W'R .NOT.CPFIL.(FILTAB(FILTBP),FILTAB(FILTBP+1)), 068 LM00095
1 PRNTER.(61K) 068 LM00096
11146 CLA +0 50000 0 10210 11147 ADD +0 40000 0 10321 11150 SUB +0 40200 0 11151 11151 TXH +3 00000 0 10207
11152 STA +0 62100 0 11161 11153 CLA +0 50000 0 10210 11154 SUB +0 40200 0 11155 11155 TXH +3 00000 0 10207
11156 STA +0 62100 0 11160 11157 TSX +0 07400 4 00042 11160 TXH +3 00000 0 00000 11161 TXH +3 00000 0 00000
11162 TNZ -0 10000 0 11165 11163 TSX +0 07400 4 00030 11164 TXH +3 00000 0 10337
CM03A CONTINUE 069 LM00097
11165 TRA +0 02000 0 11137
O'E 070 LM00098
11166 TRA +0 02000 0 11214
T'H CM03, FOR FILTBP=1,1,FILTBP.G.FILTAB 071 LM00099
11167 CLA +0 50000 0 10321 11170 STO +0 60100 0 10210 11171 TRA +0 02000 0 11175 11172 CLA +0 50000 0 10210
11173 ADD +0 40000 0 10321 11174 STO +0 60100 0 10210 11175 CLA +0 50000 0 10210 11176 SUB +0 40200 0 10207
11177 TZE +0 10000 0 11201 11200 TPL +0 12000 0 11214
W'R .NOT. CPFIL.(FILTAB(FILTBP),NM2), 072 LM00100
1 PRNTER.(61K) 072 LM00101
11201 CLA +0 50000 0 10210 11202 SUB +0 40200 0 11203 11203 TXH +3 00000 0 10207 11204 STA +0 62100 0 11206
11205 TSX +0 07400 4 00042 11206 TXH +3 00000 0 00000 11207 TXH +3 00000 0 00060 11210 TNZ -0 10000 0 11213
11211 TSX +0 07400 4 00030 11212 TXH +3 00000 0 10337
CM03 CONTINUE 073 LM00102
11213 TRA +0 02000 0 11172
E'L 074 LM00103
W'R TMOPSW, CLS.(NM1,NM2) 075 LM00104
11214 NZT -0 52000 0 10301 11215 TRA +0 02000 0 11221 11216 TSX +0 07400 4 00036 11217 TXH +3 00000 0 00061
11220 TXH +3 00000 0 00060
T'O EXT 076 LM00105
11221 TRA +0 02000 0 00754
FORGET PRMESS.($NOTHING DONE.$) 077 LM00106
11222 TSX +0 07400 4 00027 11223 TXH +3 00000 0 10412 11224 TXH +3 00000 0 10374 11225 TXH +3 00000 0 10400
CHNCOM.(0) 078 LM00107
11226 TSX +0 07400 4 00010 11227 TXH +3 00000 0 10320
O'R KEY.E.$ TABLE$ .OR. KEY.E.$ T$ 079 LM00111
11230 TRA +0 02000 0 12053 11231 CLA +0 50000 0 10224 11232 SUB +0 40200 0 10454 11233 TZE +0 10000 0 11237
11234 CLA +0 50000 0 10224 11235 SUB +0 40200 0 10463 11236 TNZ -0 10000 0 11330
COPYSW=0B 080 LM00112
11237 CLA +0 50000 0 10320 11240 STO +0 60100 0 06743
PRSSW=0B 081 LM00113
11241 CLA +0 50000 0 10320 11242 STO +0 60100 0 10273
V'S BL = 605757575757K 082 LM00114
01011 -2 05757 5 75757
V'S CR = 555757575757K 083 LM00115
07626 -1 55757 5 75757
TB01 W'R FILTAB.E.0 084 LM00116
11243 CLA +0 50000 0 10207 11244 SUB +0 40200 0 10320 11245 TNZ -0 10000 0 11303
GNEXT.(TFNF) 085 LM00117
11246 TSX +0 07400 4 00047 11247 TXH +3 00000 0 01000
W'R FIRST 086 LM00118
11250 NZT -0 52000 0 10212 11251 TRA +0 02000 0 11302
FIRST = 0B 087 LM00119
11252 CLA +0 50000 0 10320 11253 STO +0 60100 0 10212
W'R TOFF, OFF.($ARCHIV$,$OUTPUT$) 088 LM00120
11254 NZT -0 52000 0 10302 11255 TRA +0 02000 0 11261 11256 TSX +0 07400 4 00025 11257 TXH +3 00000 0 10357
11260 TXH +3 00000 0 10421
W'R TON, OFFON.($ARCHIV$,$OUTPUT$) 089 LM00121
11261 NZT -0 52000 0 10303 11262 TRA +0 02000 0 11266 11263 TSX +0 07400 4 00024 11264 TXH +3 00000 0 10357
11265 TXH +3 00000 0 10421
PRMESS. 090 LM00122
11266 TSX +0 07400 4 00027
PRMESS.($ ***$,NM1,BL,NM2,BL,BL,DATE,BL,TIME) 091 LM00123
11267 TSX +0 07400 4 00027 11270 TXH +3 00000 0 10446 11271 TXH +3 00000 0 00061 11272 TXH +3 00000 0 01011
11273 TXH +3 00000 0 00060 11274 TXH +3 00000 0 01011 11275 TXH +3 00000 0 01011 11276 TXH +3 00000 0 07630
11277 TXH +3 00000 0 01011 11300 TXH +3 00000 0 10300
PRMESS. 092 LM00124
11301 TSX +0 07400 4 00027
E'L 093 LM00125
BOOLEAN FIRST 094 LM00126
V'S FIRST = 1B 095 LM00127
10212 +0 00000 0 00001
O'E 096 LM00128
11302 TRA +0 02000 0 11323
SEARCH.(TFNF) 097 LM00129
11303 TSX +0 07400 4 00054 11304 TXH +3 00000 0 01000
W'R FIRST 098 LM00130
11305 NZT -0 52000 0 10212 11306 TRA +0 02000 0 11323
FIRST = 0B 099 LM00131
11307 CLA +0 50000 0 10320 11310 STO +0 60100 0 10212
W'R TOFF, OFF.($ARCHIV$,$OUTPUT$) 100 LM00132
11311 NZT -0 52000 0 10302 11312 TRA +0 02000 0 11316 11313 TSX +0 07400 4 00025 11314 TXH +3 00000 0 10357
11315 TXH +3 00000 0 10421
W'R TON, OFFON.($ARCHIV$,$OUTPUT$) 101 LM00133
11316 NZT -0 52000 0 10303 11317 TRA +0 02000 0 11323 11320 TSX +0 07400 4 00024 11321 TXH +3 00000 0 10357
11322 TXH +3 00000 0 10421
E'L 102 LM00134
E'L 103 LM00135
PTLNMK. 104 LM00136
11323 TSX +0 07400 4 00052
T'O TB01 105 LM00137
11324 TRA +0 02000 0 00777
TFNF PRMESS. 106 LM00139
11325 TSX +0 07400 4 00027
T'O FNF 107 LM00140
11326 TRA +0 02000 0 00755
O'R KEY.E.$DELETE$ .OR. KEY.E.$ D$ 108 LM00144
11327 TRA +0 02000 0 12053 11330 CLA +0 50000 0 10224 11331 SUB +0 40200 0 10452 11332 TZE +0 10000 0 11336
11333 CLA +0 50000 0 10224 11334 SUB +0 40200 0 10365 11335 TNZ -0 10000 0 11354
DL01 COPYSW=1B 109 LM00145
11336 CLA +0 50000 0 10321 11337 STO +0 60100 0 06743
PRSSW=1B 110 LM00146
11340 CLA +0 50000 0 10321 11341 STO +0 60100 0 10273
WMRKSW=1B 111 LM00147
11342 CLA +0 50000 0 10321 11343 STO +0 60100 0 10316
SEARCH.(REN) 112 LM00148
11344 TSX +0 07400 4 00054 11345 TXH +3 00000 0 00766
COPYSW=0B 113 LM00149
11346 CLA +0 50000 0 10320 11347 STO +0 60100 0 06743
GNEXT.(REN) 114 LM00150
11350 TSX +0 07400 4 00047 11351 TXH +3 00000 0 00766
T'O DL01 115 LM00151
11352 TRA +0 02000 0 00751
O'R KEY.E.$XTRACT$ .OR. KEY.E.$ X$ .OR. KEY.E.$ XT$ 116 LM00155
11353 TRA +0 02000 0 12053 11354 CLA +0 50000 0 10224 11355 SUB +0 40200 0 10457 11356 TZE +0 10000 0 11365
11357 CLA +0 50000 0 10224 11360 SUB +0 40200 0 10456 11361 TZE +0 10000 0 11365 11362 CLA +0 50000 0 10224
11363 SUB +0 40200 0 10502 11364 TNZ -0 10000 0 11452
XT01 COPYSW=0B 117 LM00156
11365 CLA +0 50000 0 10320 11366 STO +0 60100 0 06743
PRSSW=1B 118 LM00157
11367 CLA +0 50000 0 10321 11370 STO +0 60100 0 10273
W'R FILTAB.NE.0 119 LM00158
11371 CLA +0 50000 0 10207 11372 SUB +0 40200 0 10320 11373 TZE +0 10000 0 11377
SEARCH.(FNF) 120 LM00159
11374 TSX +0 07400 4 00054 11375 TXH +3 00000 0 00755
O'E 121 LM00160
11376 TRA +0 02000 0 11403
W'R .NOT. GOTNXT, GNEXT.(FNF) 122 LM00161
11377 ZET +0 52000 0 10217 11400 TRA +0 02000 0 11403 11401 TSX +0 07400 4 00047 11402 TXH +3 00000 0 00755
E'L 123 LM00162
NW1=FLN1.(PRLNMK) 124 LM00163
11403 TSX +0 07400 4 00045 11404 TXH +3 00000 0 10272 11405 STO +0 60100 0 10231
NW2=FLN2.(PRLNMK) 125 LM00164
11406 TSX +0 07400 4 00046 11407 TXH +3 00000 0 10272 11410 STO +0 60100 0 10232
COPYSW=1B 126 LM00165
11411 CLA +0 50000 0 10321 11412 STO +0 60100 0 06743
WMRKSW=0B 127 LM00166
11413 CLA +0 50000 0 10320 11414 STO +0 60100 0 10316
GNEXT.(XT02) 128 LM00167
11415 TSX +0 07400 4 00047 11416 TXH +3 00000 0 01004
GOTNXT=1B 129 LM00168
11417 CLA +0 50000 0 10321 11420 STO +0 60100 0 10217
T'O XT03 130 LM00169
11421 TRA +0 02000 0 01005
XT02 NAMO=1B 131 LM00170
11422 CLA +0 50000 0 10321 11423 STO +0 60100 0 10227
XT03 W'R CLS.(NW1,NW2) 132 LM00171
11424 TSX +0 07400 4 00036 11425 TXH +3 00000 0 10231 11426 TXH +3 00000 0 10232 11427 TZE +0 10000 0 11445
W'R KEY.E.$ XT$, CHFILE.(NW1,NW2,001K,-0,-0) 133 LM00172
11430 CLA +0 50000 0 10224 11431 SUB +0 40200 0 10457 11432 TNZ -0 10000 0 11445 11433 CLS +0 50200 0 10320
11434 STO +0 60100 0 15352 11435 CLS +0 50200 0 10320 11436 STO +0 60100 0 15353 11437 TSX +0 07400 4 00007
11440 TXH +3 00000 0 10231 11441 TXH +3 00000 0 10232 11442 TXH +3 00000 0 10321 11443 TXH +3 00000 0 15353
11444 TXH +3 00000 0 15352
E'L 134 LM00173
W'R NAMO,T'O FNF 135 LM00174
11445 NZT -0 52000 0 10227 11446 TRA +0 02000 0 11450 11447 TRA +0 02000 0 00755
T'O XT01 136 LM00175
11450 TRA +0 02000 0 01003
O'R KEY.E.$REPLAC$ .OR. KEY.E.$ R$ .OR. KEY.E.$ RD$ 137 LM00179
11451 TRA +0 02000 0 12053 11452 CLA +0 50000 0 10224 11453 SUB +0 40200 0 10450 11454 TZE +0 10000 0 11463
11455 CLA +0 50000 0 10224 11456 SUB +0 40200 0 10453 11457 TZE +0 10000 0 11463 11460 CLA +0 50000 0 10224
11461 SUB +0 40200 0 10424 11462 TNZ -0 10000 0 11734
RP01 COPYSW=1B 138 LM00180
11463 CLA +0 50000 0 10321 11464 STO +0 60100 0 06743
PRSSW=1B 139 LM00181
11465 CLA +0 50000 0 10321 11466 STO +0 60100 0 10273
WMRKSW=1B 140 LM00182
11467 CLA +0 50000 0 10321 11470 STO +0 60100 0 10316
W'R FILTAB.NE.0 141 LM00183
11471 CLA +0 50000 0 10207 11472 SUB +0 40200 0 10320 11473 TZE +0 10000 0 11477
SEARCH.(RP02) 142 LM00184
11474 TSX +0 07400 4 00054 11475 TXH +3 00000 0 00770
O'E 143 LM00185
11476 TRA +0 02000 0 11503
W'R .NOT. GOTNXT, GNEXT.(RP02) 144 LM00186
11477 ZET +0 52000 0 10217 11500 TRA +0 02000 0 11503 11501 TSX +0 07400 4 00047 11502 TXH +3 00000 0 00770
E'L 145 LM00187
GOTNXT=0B 146 LM00188
11503 CLA +0 50000 0 10320 11504 STO +0 60100 0 10217
W'R .NOT. CPFIL.(FLN1.(PRLNMK),FLN2.(PRLNMK)) 147 LM00189
11505 TSX +0 07400 4 00046 11506 TXH +3 00000 0 10272 11507 STO +0 60100 0 15353 11510 TSX +0 07400 4 00045
11511 TXH +3 00000 0 10272 11512 STO +0 60100 0 15352 11513 TSX +0 07400 4 00042 11514 TXH +3 00000 0 15352
11515 TXH +3 00000 0 15353 11516 TNZ -0 10000 0 11524
PRNTER.(61K) 148 LM00190
11517 TSX +0 07400 4 00030 11520 TXH +3 00000 0 10337
COPYSW=1B 149 LM00191
11521 CLA +0 50000 0 10321 11522 STO +0 60100 0 06743
O'E 150 LM00192
11523 TRA +0 02000 0 11545
W'R DELST.L.DELSTZ 151 LM00193
11524 CLA +0 50000 0 10143 11525 SUB +0 40200 0 10144 11526 TZE +0 10000 0 11543 11527 TPL +0 12000 0 11543
DELST=DELST+1 152 LM00194
11530 CLA +0 50000 0 10143 11531 ADD +0 40000 0 10321 11532 STO +0 60100 0 10143
DELST1(DELST)=FLN1.(PRLNMK) 153 LM00195
11533 TSX +0 07400 4 00045 11534 TXH +3 00000 0 10272 11535 LXA +0 53400 1 10143 11536 STO +0 60100 1 07775
DELST2(DELST)=FLN2.(PRLNMK) 154 LM00196
11537 TSX +0 07400 4 00046 11540 TXH +3 00000 0 10272 11541 LXA +0 53400 1 10143 11542 STO +0 60100 1 10142
E'L 155 LM00197
COPYSW=0B 156 LM00198
11543 CLA +0 50000 0 10320 11544 STO +0 60100 0 06743
E'L 157 LM00199
GNEXT.(RP02) 158 LM00200
11545 TSX +0 07400 4 00047 11546 TXH +3 00000 0 00770
GOTNXT=1B 159 LM00201
11547 CLA +0 50000 0 10321 11550 STO +0 60100 0 10217
T'O RP01 160 LM00202
11551 TRA +0 02000 0 00767
RP02 W'R NAMTYP 161 LM00203
11552 NZT -0 52000 0 10230 11553 TRA +0 02000 0 11557
TYP=1 162 LM00204
11554 CLA +0 50000 0 10321 11555 STO +0 60100 0 10304
O'E 163 LM00205
11556 TRA +0 02000 0 11561
TYP=0 164 LM00206
11557 CLA +0 50000 0 10320 11560 STO +0 60100 0 10304
E'L 165 LM00207
T'H RP03, FOR JI=1,1,JI+TYP*(JI-1).G.FILTAB 166 LM00208
11561 CLA +0 50000 0 10321 11562 STO +0 60100 0 10222 11563 TRA +0 02000 0 11567 11564 CLA +0 50000 0 10222
11565 ADD +0 40000 0 10321 11566 STO +0 60100 0 10222 11567 CLA +0 50000 0 10222 11570 SUB +0 40200 0 10321
11571 XCA +0 13100 0 00000 11572 MPY +0 20000 0 10304 11573 XCA +0 13100 0 00000 11574 ADD +0 40000 0 10222
11575 SUB +0 40200 0 10207 11576 TZE +0 10000 0 11600 11577 TPL +0 12000 0 11675
W'R NAMTYP 167 LM00209
11600 NZT -0 52000 0 10230 11601 TRA +0 02000 0 11615
JJ=2*JI-1 168 LM00210
11602 LDQ +0 56000 0 10322 11603 MPY +0 20000 0 10222 11604 XCA +0 13100 0 00000 11605 SUB +0 40200 0 10321
11606 STO +0 60100 0 10223
CNM2=FILTAB(JJ+1) 169 LM00211
11607 CLA +0 50000 0 10223 11610 ADD +0 40000 0 10321 11611 PAX +0 73400 2 00000 11612 CLA +0 50000 2 10207
11613 STO +0 60100 0 06742
O'E 170 LM00212
11614 TRA +0 02000 0 11621
JJ=JI 171 LM00213
11615 CLA +0 50000 0 10222 11616 STO +0 60100 0 10223
CNM2=NM2 172 LM00214
11617 CLA +0 50000 0 00060 11620 STO +0 60100 0 06742
E'L 173 LM00215
W'R .NOT. FILFND(JI) 174 LM00216
11621 LXA +0 53400 1 10222 11622 ZET +0 52000 1 10166 11623 TRA +0 02000 0 11674
PRMESS.(FILTAB(JJ),BL,CNM2,$ ADDED$,606346605757K,NM1,BL,NM2) 175 LM00217
11624 CLA +0 50000 0 10223 11625 SUB +0 40200 0 11626 11626 TXH +3 00000 0 10207 11627 STA +0 62100 0 11631
11630 TSX +0 07400 4 00027 11631 TXH +3 00000 0 00000 11632 TXH +3 00000 0 01011 11633 TXH +3 00000 0 06742
11634 TXH +3 00000 0 10432 11635 TXH +3 00000 0 10464 11636 TXH +3 00000 0 00061 11637 TXH +3 00000 0 01011
11640 TXH +3 00000 0 00060
W'R .NOT. CPFIL.(FILTAB(JJ),CNM2) 176 LM00218
11641 CLA +0 50000 0 10223 11642 SUB +0 40200 0 11643 11643 TXH +3 00000 0 10207 11644 STA +0 62100 0 11646
11645 TSX +0 07400 4 00042 11646 TXH +3 00000 0 00000 11647 TXH +3 00000 0 06742 11650 TNZ -0 10000 0 11654
PRNTER.(61K) 177 LM00219
11651 TSX +0 07400 4 00030 11652 TXH +3 00000 0 10337
O'E 178 LM00220
11653 TRA +0 02000 0 11674
FILFND(JI)=1B 179 LM00221
11654 LXA +0 53400 1 10222 11655 CLA +0 50000 0 10321 11656 STO +0 60100 1 10166
W'R DELST.L.DELSTZ 180 LM00222
11657 CLA +0 50000 0 10143 11660 SUB +0 40200 0 10144 11661 TZE +0 10000 0 11674 11662 TPL +0 12000 0 11674
DELST=DELST+1 181 LM00223
11663 CLA +0 50000 0 10143 11664 ADD +0 40000 0 10321 11665 STO +0 60100 0 10143
DELST1(DELST)=FILTAB(JJ) 182 LM00224
11666 LXA +0 53400 1 10143 11667 LXA +0 53400 2 10223 11670 CLA +0 50000 2 10207 11671 STO +0 60100 1 07775
DELST2(DELST)=CNM2 183 LM00225
11672 CLA +0 50000 0 06742 11673 STO +0 60100 1 10142
E'L 184 LM00226
E'L 185 LM00227
RP03 E'L 186 LM00228
11674 TRA +0 02000 0 11564
W'R CLS.(NM1,NM2) 187 LM00229
11675 TSX +0 07400 4 00036 11676 TXH +3 00000 0 00061 11677 TXH +3 00000 0 00060 11700 TZE +0 10000 0 11732
W'R KEY.E.$ RD$ 188 LM00230
11701 CLA +0 50000 0 10224 11702 SUB +0 40200 0 10450 11703 TNZ -0 10000 0 11732
T'H RPD01, FOR I=1,1,I.G.DELST 189 LM00231
11704 CLA +0 50000 0 10321 11705 STO +0 60100 0 10221 11706 TRA +0 02000 0 11712 11707 CLA +0 50000 0 10221
11710 ADD +0 40000 0 10321 11711 STO +0 60100 0 10221 11712 CLA +0 50000 0 10221 11713 SUB +0 40200 0 10143
11714 TZE +0 10000 0 11716 11715 TPL +0 12000 0 11732
RPD01 DELT.(DELST1(I),DELST2(I)) 190 LM00232
11716 CLA +0 50000 0 10221 11717 SUB +0 40200 0 11720 11720 TXH +3 00000 0 10142 11721 STA +0 62100 0 11730
11722 CLA +0 50000 0 10221 11723 SUB +0 40200 0 11724 11724 TXH +3 00000 0 07775 11725 STA +0 62100 0 11727
11726 TSX +0 07400 4 00044 11727 TXH +3 00000 0 00000 11730 TXH +3 00000 0 00000 11731 TRA +0 02000 0 11707
E'L 191 LM00233
E'L 192 LM00234
T'O EXT 193 LM00235
11732 TRA +0 02000 0 00754
BOOLEAN GOTNXT 194 LM00236
D'N DELST1(100), DELST2(100) 195 LM00237
V'S DELSTZ=100 196 LM00238
10144 +0 00000 0 00144
O'R KEY.E.$UPDATE$ .OR. KEY.E.$ U$ 197 LM00242
11733 TRA +0 02000 0 12053 11734 CLA +0 50000 0 10224 11735 SUB +0 40200 0 10455 11736 TZE +0 10000 0 11742
11737 CLA +0 50000 0 10224 11740 SUB +0 40200 0 10477 11741 TNZ -0 10000 0 12042
UP01 COPYSW=1B 198 LM00243
11742 CLA +0 50000 0 10321 11743 STO +0 60100 0 06743
PRSSW=1B 199 LM00244
11744 CLA +0 50000 0 10321 11745 STO +0 60100 0 10273
WMRKSW=1B 200 LM00245
11746 CLA +0 50000 0 10321 11747 STO +0 60100 0 10316
W'R FILTAB.NE.0 201 LM00246
11750 CLA +0 50000 0 10207 11751 SUB +0 40200 0 10320 11752 TZE +0 10000 0 11756
SEARCH.(REN) 202 LM00247
11753 TSX +0 07400 4 00054 11754 TXH +3 00000 0 00766
O'E 203 LM00248
11755 TRA +0 02000 0 11762
W'R .NOT. GOTNXT, GNEXT.(REN) 204 LM00249
11756 ZET +0 52000 0 10217 11757 TRA +0 02000 0 11762 11760 TSX +0 07400 4 00047 11761 TXH +3 00000 0 00766
E'L 205 LM00250
FSTATE.(FLN1.(PRLNMK),FLN2.(PRLNMK),FSBUF(8)...8,UP02) 206 LM00251
11762 TSX +0 07400 4 00046 11763 TXH +3 00000 0 10272 11764 STO +0 60100 0 15353 11765 TSX +0 07400 4 00045
11766 TXH +3 00000 0 10272 11767 STO +0 60100 0 15352 11770 TSX +0 07400 4 00016 11771 TXH +3 00000 0 15352
11772 TXH +3 00000 0 15353 11773 TIX +2 10327 0 00735 11774 TXH +3 00000 0 01002
W'R FSBUF(2).A.377777777777K.G.DATTM.(PRLNMK).A.377777777777K 207 LM00252
11775 TSX +0 07400 4 00043 11776 TXH +3 00000 0 10272 11777 STO +0 60100 0 15353 12000 CAL -0 50000 0 15353
12001 ANA -0 32000 0 10401 12002 SLW +0 60200 0 15353 12003 CAL -0 50000 0 00743 12004 ANA -0 32000 0 10401
12005 SLW +0 60200 0 15352 12006 CLA +0 50000 0 15352 12007 SUB +0 40200 0 15353 12010 TZE +0 10000 0 12032
12011 TMI -0 12000 0 12032
PTLNMK. 208 LM00253
12012 TSX +0 07400 4 00052
COPYSW=0B 209 LM00254
12013 CLA +0 50000 0 10320 12014 STO +0 60100 0 06743
W'R .NOT. CPFIL.(FLN1.(PRLNMK),FLN2.(PRLNMK)), COPYSW=1B 210 LM00255
12015 TSX +0 07400 4 00046 12016 TXH +3 00000 0 10272 12017 STO +0 60100 0 15353 12020 TSX +0 07400 4 00045
12021 TXH +3 00000 0 10272 12022 STO +0 60100 0 15352 12023 TSX +0 07400 4 00042 12024 TXH +3 00000 0 15352
12025 TXH +3 00000 0 15353 12026 TNZ -0 10000 0 12031 12027 CLA +0 50000 0 10321 12030 STO +0 60100 0 06743
O'E 211 LM00256
12031 TRA +0 02000 0 12034
UP02 COPYSW=1B 212 LM00257
12032 CLA +0 50000 0 10321 12033 STO +0 60100 0 06743
E'L 213 LM00258
GNEXT.(REN) 214 LM00259
12034 TSX +0 07400 4 00047 12035 TXH +3 00000 0 00766
GOTNXT=1B 215 LM00260
12036 CLA +0 50000 0 10321 12037 STO +0 60100 0 10217
T'O UP01 216 LM00261
12040 TRA +0 02000 0 01001
O'E 217 LM00265
12041 TRA +0 02000 0 12053
PRMESS.(KEY,$ -- NOT A VALID ARGUMENT.$) 218 LM00266
12042 TSX +0 07400 4 00027 12043 TXH +3 00000 0 10224 12044 TXH +3 00000 0 10441 12045 TXH +3 00000 0 10470
12046 TXH +3 00000 0 10406 12047 TXH +3 00000 0 10375 12050 TXH +3 00000 0 10400
CHNCOM.(0) 219 LM00267
12051 TSX +0 07400 4 00010 12052 TXH +3 00000 0 10320
E'L 220 LM00268
SPC PRMESS. 221 LM00272
12053 TSX +0 07400 4 00027
T'O FNF 222 LM00273
12054 TRA +0 02000 0 00755
REN CLS.(NM1,NM2) 223 LM00274
12055 TSX +0 07400 4 00036 12056 TXH +3 00000 0 00061 12057 TXH +3 00000 0 00060
FNF W'R NAMTYP 224 LM00275
12060 NZT -0 52000 0 10230 12061 TRA +0 02000 0 12135
T'H FN01A, FOR I = 1,1,I.G.FILTAB/2 225 LM00276
12062 CLA +0 50000 0 10321 12063 STO +0 60100 0 10221 12064 TRA +0 02000 0 12070 12065 CLA +0 50000 0 10221
12066 ADD +0 40000 0 10321 12067 STO +0 60100 0 10221 12070 LDQ +0 56000 0 10207 12071 PXD -0 75400 0 00000
12072 LLS +0 76300 0 00000 12073 DVP +0 22100 0 10322 12074 XCA +0 13100 0 00000 12075 CHS +0 76000 0 00002
12076 ADD +0 40000 0 10221 12077 TZE +0 10000 0 12101 12100 TPL +0 12000 0 12134
W'R .NOT.FILFND(I) 226 LM00277
12101 LXA +0 53400 1 10221 12102 ZET +0 52000 1 10166 12103 TRA +0 02000 0 12133
PRMESS.(FILTAB(2*I-1),BL,FILTAB(2*I),$ NOT FOUND I$, 227 LM00278
1 456057575757K,NM1,BL,NM2) 227 LM00279
12104 LDQ +0 56000 0 10322 12105 MPY +0 20000 0 10221 12106 XCA +0 13100 0 00000 12107 SUB +0 40200 0 12110
12110 TXH +3 00000 0 10207 12111 STA +0 62100 0 12124 12112 LDQ +0 56000 0 10322 12113 MPY +0 20000 0 10221
12114 XCA +0 13100 0 00000 12115 SUB +0 40200 0 10321 12116 SUB +0 40200 0 12117 12117 TXH +3 00000 0 10207
12120 STA +0 62100 0 12122 12121 TSX +0 07400 4 00027 12122 TXH +3 00000 0 00000 12123 TXH +3 00000 0 01011
12124 TXH +3 00000 0 00000 12125 TXH +3 00000 0 10445 12126 TXH +3 00000 0 10420 12127 TXH +3 00000 0 10415
12130 TXH +3 00000 0 00061 12131 TXH +3 00000 0 01011 12132 TXH +3 00000 0 00060
FN01A E'L 228 LM00280
12133 TRA +0 02000 0 12065
O'E 229 LM00281
12134 TRA +0 02000 0 12171
T'H FNO1B, FOR I=1,1,I.G.FILTAB 230 LM00282
12135 CLA +0 50000 0 10321 12136 STO +0 60100 0 10221 12137 TRA +0 02000 0 12143 12140 CLA +0 50000 0 10221
12141 ADD +0 40000 0 10321 12142 STO +0 60100 0 10221 12143 CLA +0 50000 0 10221 12144 SUB +0 40200 0 10207
12145 TZE +0 10000 0 12147 12146 TPL +0 12000 0 12171
W'R .NOT.FILFND(I) 231 LM00283
12147 LXA +0 53400 1 10221 12150 ZET +0 52000 1 10166 12151 TRA +0 02000 0 12170
PRMESS.(FILTAB(I),BL,NM2,$ NOT FOUND I$,456057575757K, 232 LM00284
1 NM1,BL,NM2) 232 LM00285
12152 CLA +0 50000 0 10221 12153 SUB +0 40200 0 12154 12154 TXH +3 00000 0 10207 12155 STA +0 62100 0 12157
12156 TSX +0 07400 4 00027 12157 TXH +3 00000 0 00000 12160 TXH +3 00000 0 01011 12161 TXH +3 00000 0 00060
12162 TXH +3 00000 0 10445 12163 TXH +3 00000 0 10420 12164 TXH +3 00000 0 10415 12165 TXH +3 00000 0 00061
12166 TXH +3 00000 0 01011 12167 TXH +3 00000 0 00060
FNO1B E'L 233 LM00286
12170 TRA +0 02000 0 12140
E'L 234 LM00287
EXT CHNCOM.(0) 235 LM00288
12171 TSX +0 07400 4 00010 12172 TXH +3 00000 0 10320
PRMESS.($FRAM$) 236 LM00289
12173 TSX +0 07400 4 00027 12174 TXH +3 00000 0 10373
PRMESS.($NOTIFY SYSTEMS STAFF$) 237 LM00290
12175 TSX +0 07400 4 00027 12176 TXH +3 00000 0 10413 12177 TXH +3 00000 0 10462 12200 TXH +3 00000 0 10411
12201 TXH +3 00000 0 10372
DORMNT. 238 LM00291
12202 TSX +0 07400 4 00014
INSERT FILE ASUBS 239 LM00299
INTERNAL FUNCTION (EOFXT) 240 LM00008
12203 TRA +0 02000 0 12432
STATEMENT LABEL EOFXT 241 LM00009
E'O SEARCH. 242 LM00010
12204 TRA +0 02000 0 12207 00054 TTR +0 02100 0 12205 12205 SXA +0 63400 2 12414 12206 TSX +0 07400 2 12414
W'R NAMTYP 243 LM00011
12207 NZT -0 52000 0 10230 12210 TRA +0 02000 0 12316
W'R .NOT. COPYSW 244 LM00012
12211 ZET +0 52000 0 06743 12212 TRA +0 02000 0 12241
T'H SR00A, FOR I=1,1,I.G.FILTAB 245 LM00013
12213 CLA +0 50000 0 10321 12214 STO +0 60100 0 10221 12215 TRA +0 02000 0 12221 12216 CLA +0 50000 0 10221
12217 ADD +0 40000 0 10321 12220 STO +0 60100 0 10221 12221 CLA +0 50000 0 10221 12222 SUB +0 40200 0 10207
12223 TZE +0 10000 0 12225 12224 TPL +0 12000 0 12232
SR00A W'R .NOT. FILFND(I), T'O SRP0A 246 LM00014
12225 LXA +0 53400 1 10221 12226 ZET +0 52000 1 10166 12227 TRA +0 02000 0 12231 12230 TRA +0 02000 0 00775
12231 TRA +0 02000 0 12216
BFCLOS.(NM1,NM2,GERR) 247 LM00015
12232 TSX +0 07400 4 00002 12233 TXH +3 00000 0 00061 12234 TXH +3 00000 0 00060 12235 TXH +3 00000 0 00760
AROPSW=0B 248 LM00016
12236 CLA +0 50000 0 10320 12237 STO +0 60100 0 01010
T'O EOFXT 249 LM00017
12240 TRA +0 02000 0 00024
E'L 250 LM00018
SRP0A CONTINUE 251 LM00019
W'R PRSSW.AND.AROPSW, T'O SR02A 252 LM00020
12241 NZT -0 52000 0 01010 12242 TRA +0 02000 0 12246 12243 NZT -0 52000 0 10273 12244 TRA +0 02000 0 12246
12245 TRA +0 02000 0 00773
SR01A GNEXT.(EOFXT) 253 LM00021
12246 TSX +0 07400 4 00047 12247 TXH +3 00000 0 00024
SR02A T'H SR03A, FOR FILTBP=1,2,FILTBP.G.FILTAB 254 LM00022
12250 CLA +0 50000 0 10321 12251 STO +0 60100 0 10210 12252 TRA +0 02000 0 12256 12253 CLA +0 50000 0 10210
12254 ADD +0 40000 0 10322 12255 STO +0 60100 0 10210 12256 CLA +0 50000 0 10210 12257 SUB +0 40200 0 10207
12260 TZE +0 10000 0 12262 12261 TPL +0 12000 0 12314
PNTR=(FILTBP+1)/2 255 LM00023
12262 CLA +0 50000 0 10210 12263 ADD +0 40000 0 10321 12264 LRS +0 76500 0 00043 12265 DVP +0 22100 0 10322
12266 STQ -0 60000 0 10253
W'R FLN1.(PRLNMK).E.FILTAB(FILTBP) 256 LM00024
1 .AND.FLN2.(PRLNMK).E.FILTAB(FILTBP+1) 256 LM00025
2 .AND..NOT.FILFND(PNTR) 256 LM00026
12267 LXA +0 53400 1 10253 12270 ZET +0 52000 1 10166 12271 TRA +0 02000 0 12313 12272 CLA +0 50000 0 10210
12273 ADD +0 40000 0 10321 12274 STO +0 60100 0 12431 12275 TSX +0 07400 4 00046 12276 TXH +3 00000 0 10272
12277 LXA +0 53400 2 12431 12300 SUB +0 40200 2 10207 12301 TNZ -0 10000 0 12313 12302 TSX +0 07400 4 00045
12303 TXH +3 00000 0 10272 12304 LXA +0 53400 2 10210 12305 SUB +0 40200 2 10207 12306 TNZ -0 10000 0 12313
FILFND(PNTR)=1B 257 LM00027
12307 LXA +0 53400 1 10253 12310 CLA +0 50000 0 10321 12311 STO +0 60100 1 10166
F'N 258 LM00028
12312 TRA +0 02000 0 12425
SR03A E'L 259 LM00029
12313 TRA +0 02000 0 12253
T'O SR01A 260 LM00030
12314 TRA +0 02000 0 00771
O'E 261 LM00031
12315 TRA +0 02000 0 12413
W'R .NOT.COPYSW 262 LM00032
12316 ZET +0 52000 0 06743 12317 TRA +0 02000 0 12346
T'H SR00, FOR I=1,1,I.G.FILTAB 263 LM00033
12320 CLA +0 50000 0 10321 12321 STO +0 60100 0 10221 12322 TRA +0 02000 0 12326 12323 CLA +0 50000 0 10221
12324 ADD +0 40000 0 10321 12325 STO +0 60100 0 10221 12326 CLA +0 50000 0 10221 12327 SUB +0 40200 0 10207
12330 TZE +0 10000 0 12332 12331 TPL +0 12000 0 12337
SR00 W'R .NOT.FILFND(I), T'O SRP0 264 LM00034
12332 LXA +0 53400 1 10221 12333 ZET +0 52000 1 10166 12334 TRA +0 02000 0 12336 12335 TRA +0 02000 0 00776
12336 TRA +0 02000 0 12323
BFCLOS.(NM1,NM2,GERR) 265 LM00035
12337 TSX +0 07400 4 00002 12340 TXH +3 00000 0 00061 12341 TXH +3 00000 0 00060 12342 TXH +3 00000 0 00760
AROPSW=0B 266 LM00036
12343 CLA +0 50000 0 10320 12344 STO +0 60100 0 01010
T'O EOFXT 267 LM00037
12345 TRA +0 02000 0 00024
E'L 268 LM00038
SRP0 CONTINUE 269 LM00039
W'R PRSSW.AND.AROPSW, T'O SR02 270 LM00040
12346 NZT -0 52000 0 01010 12347 TRA +0 02000 0 12353 12350 NZT -0 52000 0 10273 12351 TRA +0 02000 0 12353
12352 TRA +0 02000 0 00774
SR01 GNEXT.(EOFXT) 271 LM00041
12353 TSX +0 07400 4 00047 12354 TXH +3 00000 0 00024
SR02 W'R FLN2.(PRLNMK).NE.NM2 272 LM00042
12355 TSX +0 07400 4 00046 12356 TXH +3 00000 0 10272 12357 SUB +0 40200 0 00060 12360 TZE +0 10000 0 12363
T'O SR01 273 LM00043
12361 TRA +0 02000 0 00772
O'E 274 LM00044
12362 TRA +0 02000 0 12413
T'H SR03, FOR FILTBP=1,1,FILTBP.G.FILTAB 275 LM00045
12363 CLA +0 50000 0 10321 12364 STO +0 60100 0 10210 12365 TRA +0 02000 0 12371 12366 CLA +0 50000 0 10210
12367 ADD +0 40000 0 10321 12370 STO +0 60100 0 10210 12371 CLA +0 50000 0 10210 12372 SUB +0 40200 0 10207
12373 TZE +0 10000 0 12375 12374 TPL +0 12000 0 12412
W'R FLN1.(PRLNMK).E.FILTAB(FILTBP) 276 LM00046
1 .AND..NOT.FILFND(FILTBP) 276 LM00047
12375 LXA +0 53400 1 10210 12376 ZET +0 52000 1 10166 12377 TRA +0 02000 0 12411 12400 TSX +0 07400 4 00045
12401 TXH +3 00000 0 10272 12402 LXA +0 53400 2 10210 12403 SUB +0 40200 2 10207 12404 TNZ -0 10000 0 12411
FILFND(FILTBP)=1B 277 LM00048
12405 LXA +0 53400 1 10210 12406 CLA +0 50000 0 10321 12407 STO +0 60100 1 10166
FUNCTION RETURN 278 LM00049
12410 TRA +0 02000 0 12425
SR03 E'L 279 LM00050
12411 TRA +0 02000 0 12366
T'O SR01 280 LM00051
12412 TRA +0 02000 0 00772
E'L 281 LM00052
E'L 282 LM00053
END OF FUNCTION 283 LM00054
12413 TSX +0 07400 4 00015 12414 TXH +3 00000 0 00000 12415 SXD -0 63400 1 12414 12416 SXA +0 63400 4 12425
12417 CLA +0 50000 4 00001 12420 STA +0 62100 0 12240 12421 STO +0 60100 0 12247 12422 STA +0 62100 0 12345
12423 STO +0 60100 0 12354 12424 TRA +0 02000 2 00001 12425 AXT +0 77400 4 00000 12426 LXA +0 53400 2 12414
12427 LXD -0 53400 1 12414 12430 TRA +0 02000 4 00001
INTERNAL FUNCTION (EOFXT) 284 LM00061
12432 TRA +0 02000 0 13007
STATEMENT LABEL EOFXT 285 LM00062
E'O GNEXT. 286 LM00063
12433 TRA +0 02000 0 12436 00047 TTR +0 02100 0 12434 12434 SXA +0 63400 2 12774 12435 TSX +0 07400 2 12774
W'R .NOT. AROPSW 287 LM00064
12436 ZET +0 52000 0 01010 12437 TRA +0 02000 0 12504
BFOPEN.($R$,NM1,NM2,BUF1(BUFZ),BUF2(BUFZ),-0,GERR) 288 LM00065
12440 CLS +0 50200 0 10320 12441 STO +0 60100 0 13006 12442 CLA +0 50000 0 06741 12443 SUB +0 40200 0 12444
12444 TXH +3 00000 0 02553 12445 STA +0 62100 0 12457 12446 CLA +0 50000 0 06741 12447 SUB +0 40200 0 12450
12450 TXH +3 00000 0 01672 12451 STA +0 62100 0 12456 12452 TSX +0 07400 4 00003 12453 TXH +3 00000 0 10430
12454 TXH +3 00000 0 00061 12455 TXH +3 00000 0 00060 12456 TXH +3 00000 0 00000 12457 TXH +3 00000 0 00000
12460 TXH +3 00000 0 13006 12461 TXH +3 00000 0 00760
BFREAD.(NM1,NM2,PRLNMK(LMKZ)...LMKZ,FRMER,EOFCT,GERR) 289 LM00066
12462 CLA +0 50000 0 10225 12463 SUB +0 40200 0 12464 12464 TXH +3 00000 0 10272 12465 STA +0 62100 0 12471
12466 TSX +0 07400 4 00004 12467 TXH +3 00000 0 00061 12470 TXH +3 00000 0 00060 12471 TIX +2 10225 0 00000
12472 TXH +3 00000 0 00757 12473 TXH +3 00000 0 10145 12474 TXH +3 00000 0 00760
W'R BDLNMK.(PRLNMK) 290 LM00067
12475 TSX +0 07400 4 00035 12476 TXH +3 00000 0 10272 12477 TZE +0 10000 0 12501
T'O FRMER 291 LM00068
12500 TRA +0 02000 0 00757
E'L 292 LM00069
AROPSW=1B 293 LM00070
12501 CLA +0 50000 0 10321 12502 STO +0 60100 0 01010
FUNCTION RETURN 294 LM00071
12503 TRA +0 02000 0 13002
E'L 295 LM00072
W'R COPYSW .AND. .NOT. TMOPSW 296 LM00073
12504 ZET +0 52000 0 10301 12505 TRA +0 02000 0 12543 12506 NZT -0 52000 0 06743 12507 TRA +0 02000 0 12543
DELETE.(TM1,TM2,0,OUT) 297 LM00074
12510 TSX +0 07400 4 00013 12511 TXH +3 00000 0 00064 12512 TXH +3 00000 0 00063 12513 TXH +3 00000 0 10320
12514 TXH +3 00000 0 00765
BFOPEN.($W$,TM1,TM2,BUF3(BUFZ),BUF4(BUFZ),BUF5(BUFZ), 298 LM00075
1 GERR) 298 LM00076
12515 CLA +0 50000 0 06741 12516 SUB +0 40200 0 12517 12517 TXH +3 00000 0 05176 12520 STA +0 62100 0 12537
12521 CLA +0 50000 0 06741 12522 SUB +0 40200 0 12523 12523 TXH +3 00000 0 04315 12524 STA +0 62100 0 12536
12525 CLA +0 50000 0 06741 12526 SUB +0 40200 0 12527 12527 TXH +3 00000 0 03434 12530 STA +0 62100 0 12535
12531 TSX +0 07400 4 00003 12532 TXH +3 00000 0 10501 12533 TXH +3 00000 0 00064 12534 TXH +3 00000 0 00063
12535 TXH +3 00000 0 00000 12536 TXH +3 00000 0 00000 12537 TXH +3 00000 0 00000 12540 TXH +3 00000 0 00760
TMOPSW=1B 299 LM00077
12541 CLA +0 50000 0 10321 12542 STO +0 60100 0 10301
E'L 300 LM00078
W'R COPYSW .AND. WMRKSW 301 LM00079
12543 NZT -0 52000 0 10316 12544 TRA +0 02000 0 12560 12545 NZT -0 52000 0 06743 12546 TRA +0 02000 0 12560
BFWRIT.(TM1,TM2,PRLNMK(LMKZ)...LMKZ,GERR) 302 LM00080
12547 CLA +0 50000 0 10225 12550 SUB +0 40200 0 12551 12551 TXH +3 00000 0 10272 12552 STA +0 62100 0 12556
12553 TSX +0 07400 4 00005 12554 TXH +3 00000 0 00064 12555 TXH +3 00000 0 00063 12556 TIX +2 10225 0 00000
12557 TXH +3 00000 0 00760
E'L 303 LM00081
W'R .NOT. ADJSW 304 LM00082
12560 ZET +0 52000 0 01006 12561 TRA +0 02000 0 12716
AFZ=CNT.(PRLNMK) 305 LM00083
12562 TSX +0 07400 4 00037 12563 TXH +3 00000 0 10272 12564 STO +0 60100 0 01007
T'H COPY, FOR I=CPBUFZ,CPBUFZ,I.GE.AFZ 306 LM00084
12565 CLA +0 50000 0 07625 12566 STO +0 60100 0 10221 12567 TRA +0 02000 0 12573 12570 CLA +0 50000 0 10221
12571 ADD +0 40000 0 07625 12572 STO +0 60100 0 10221 12573 CLA +0 50000 0 10221 12574 SUB +0 40200 0 01007
12575 TZE +0 10000 0 12626 12576 TPL +0 12000 0 12626
BFREAD.(NM1,NM2,CPBUF(CPBUFZ)...CPBUFZ, 307 LM00085
1 FRMER,EOFCT,GERR) 307 LM00086
12577 CLA +0 50000 0 07625 12600 SUB +0 40200 0 12601 12601 TXH +3 00000 0 07624 12602 STA +0 62100 0 12606
12603 TSX +0 07400 4 00004 12604 TXH +3 00000 0 00061 12605 TXH +3 00000 0 00060 12606 TIX +2 07625 0 00000
12607 TXH +3 00000 0 00757 12610 TXH +3 00000 0 10145 12611 TXH +3 00000 0 00760
W'R COPYSW 308 LM00087
12612 NZT -0 52000 0 06743 12613 TRA +0 02000 0 12625
BFWRIT.(TM1,TM2,CPBUF(CPBUFZ)...CPBUFZ,GERR) 309 LM00088
12614 CLA +0 50000 0 07625 12615 SUB +0 40200 0 12616 12616 TXH +3 00000 0 07624 12617 STA +0 62100 0 12623
12620 TSX +0 07400 4 00005 12621 TXH +3 00000 0 00064 12622 TXH +3 00000 0 00063 12623 TIX +2 07625 0 00000
12624 TXH +3 00000 0 00760
E'L 310 LM00089
COPY CONTINUE 311 LM00090
12625 TRA +0 02000 0 12570
REMN=CPBUFZ-(I-AFZ) 312 LM00091
12626 CLA +0 50000 0 10221 12627 SUB +0 40200 0 01007 12630 CHS +0 76000 0 00002 12631 ADD +0 40000 0 07625
12632 STO +0 60100 0 10275
BFREAD.(NM1,NM2,CPBUF(REMN)...REMN, 313 LM00092
1 FRMER,EOFCT,GERR) 313 LM00093
12633 CLA +0 50000 0 10275 12634 SUB +0 40200 0 12635 12635 TXH +3 00000 0 07624 12636 STA +0 62100 0 12642
12637 TSX +0 07400 4 00004 12640 TXH +3 00000 0 00061 12641 TXH +3 00000 0 00060 12642 TIX +2 10275 0 00000
12643 TXH +3 00000 0 00757 12644 TXH +3 00000 0 10145 12645 TXH +3 00000 0 00760
W'R COPYSW 314 LM00094
12646 NZT -0 52000 0 06743 12647 TRA +0 02000 0 12716
W'R .NOT. WMRKSW 315 LM00095
12650 ZET +0 52000 0 10316 12651 TRA +0 02000 0 12705
T'H FXT, FOR I = 27, -9, I.L.0 316 LM00096
12652 CLA +0 50000 0 10335 12653 STO +0 60100 0 10221 12654 TRA +0 02000 0 12660 12655 CLS +0 50200 0 10330
12656 ADD +0 40000 0 10221 12657 STO +0 60100 0 10221 12660 CLA +0 50000 0 10221 12661 SUB +0 40200 0 10320
12662 TZE +0 10000 0 12664 12663 TMI -0 12000 0 12705
W'R ((CPBUF (1) .RS. I) .A. 777K) .E. 000K 317 LM00097
12664 CAL -0 50000 0 10221 12665 STA +0 62100 0 12667 12666 CAL -0 50000 0 07623 12667 LGR -0 76500 0 00000
12670 ANA -0 32000 0 10343 12671 SLW +0 60200 0 13006 12672 CLA +0 50000 0 13006 12673 SUB +0 40200 0 10320
12674 TNZ -0 10000 0 12704
CPBUF (1) = CPBUF (1) .V. 003K .LS. I 318 LM00098
12675 CAL -0 50000 0 10221 12676 STA +0 62100 0 12700 12677 CAL -0 50000 0 10323 12700 ALS +0 76700 0 00000
12701 ORA -0 50100 0 07623 12702 SLW +0 60200 0 07623
T'O EFXT 319 LM00099
12703 TRA +0 02000 0 00752
FXT E'L 320 LM00100
12704 TRA +0 02000 0 12655
EFXT E'L 321 LM00101
BFWRIT.(TM1,TM2,CPBUF(REMN)...REMN,GERR) 322 LM00102
12705 CLA +0 50000 0 10275 12706 SUB +0 40200 0 12707 12707 TXH +3 00000 0 07624 12710 STA +0 62100 0 12714
12711 TSX +0 07400 4 00005 12712 TXH +3 00000 0 00064 12713 TXH +3 00000 0 00063 12714 TIX +2 10275 0 00000
12715 TXH +3 00000 0 00760
E'L 323 LM00103
E'L 324 LM00104
BFREAD.(NM1,NM2,PRLNMK(LMKZ)...LMKZ,EOF,EOFCT,GERR) 325 LM00105
12716 CLA +0 50000 0 10225 12717 SUB +0 40200 0 12720 12720 TXH +3 00000 0 10272 12721 STA +0 62100 0 12725
12722 TSX +0 07400 4 00004 12723 TXH +3 00000 0 00061 12724 TXH +3 00000 0 00060 12725 TIX +2 10225 0 00000
12726 TXH +3 00000 0 00753 12727 TXH +3 00000 0 10145 12730 TXH +3 00000 0 00760
W'R BDLNMK.(PRLNMK),T'O FRMER 326 LM00106
12731 TSX +0 07400 4 00035 12732 TXH +3 00000 0 10272 12733 TZE +0 10000 0 12735 12734 TRA +0 02000 0 00757
ADJSW=0B 327 LM00107
12735 CLA +0 50000 0 10320 12736 STO +0 60100 0 01006
F'N 328 LM00108
12737 TRA +0 02000 0 13002
EOF BFCLOS.(NM1,NM2,GERR) 329 LM00109
12740 TSX +0 07400 4 00002 12741 TXH +3 00000 0 00061 12742 TXH +3 00000 0 00060 12743 TXH +3 00000 0 00760
AROPSW=0B 330 LM00110
12744 CLA +0 50000 0 10320 12745 STO +0 60100 0 01010
T'O EOFXT 331 LM00111
12746 TRA +0 02000 0 00024
FRMER PRMESS.($ARCHIV FORMAT ERROR IN$,NM1,BL,NM2) 332 LM00112
12747 TSX +0 07400 4 00027 12750 TXH +3 00000 0 10357 12751 TXH +3 00000 0 10437 12752 TXH +3 00000 0 10471
12753 TXH +3 00000 0 10427 12754 TXH +3 00000 0 00061 12755 TXH +3 00000 0 01011 12756 TXH +3 00000 0 00060
BFCLOS.($ ALL$,-0,GERR) 333 LM00113
12757 CLS +0 50200 0 10320 12760 STO +0 60100 0 13006 12761 TSX +0 07400 4 00002 12762 TXH +3 00000 0 10447
12763 TXH +3 00000 0 13006 12764 TXH +3 00000 0 00760
CHNCOM.(1) 334 LM00114
12765 TSX +0 07400 4 00010 12766 TXH +3 00000 0 10321
GERR PRNTER.(61K) 335 LM00115
12767 TSX +0 07400 4 00030 12770 TXH +3 00000 0 10337
CHNCOM.(1) 336 LM00116
12771 TSX +0 07400 4 00010 12772 TXH +3 00000 0 10321
END OF FUNCTION 337 LM00117
12773 TSX +0 07400 4 00015 12774 TXH +3 00000 0 00000 12775 SXD -0 63400 1 12774 12776 SXA +0 63400 4 13002
12777 CLA +0 50000 4 00001 13000 STA +0 62100 0 12746 13001 TRA +0 02000 2 00001 13002 AXT +0 77400 4 00000
13003 LXA +0 53400 2 12774 13004 LXD -0 53400 1 12774 13005 TRA +0 02000 4 00001
BOOLEAN CPFIL. 338 LM00126
INTERNAL FUNCTION(A,B) 339 LM00127
13007 TRA +0 02000 0 13351
E'O CPFIL. 340 LM00128
13010 TRA +0 02000 0 13013 00042 TTR +0 02100 0 13011 13011 SXA +0 63400 2 13324 13012 TSX +0 07400 2 13324
W'R .NOT. MKLNMK.(A,B,CT) 341 LM00129
13013 TSX +0 07400 4 00051 13014 TXH +3 00000 0 00024 13015 TXH +3 00000 0 00024 13016 TXH +3 00000 0 07627
13017 TNZ -0 10000 0 13023
F'N 0B 342 LM00130
13020 CLA +0 50000 0 10320 13021 TRA +0 02000 0 13344
O'E 343 LM00131
13022 TRA +0 02000 0 13304
W'R .NOT. TMOPSW 344 LM00132
13023 ZET +0 52000 0 10301 13024 TRA +0 02000 0 13060
DELETE.(TM1,TM2,0,OUT) 345 LM00133
13025 TSX +0 07400 4 00013 13026 TXH +3 00000 0 00064 13027 TXH +3 00000 0 00063 13030 TXH +3 00000 0 10320
13031 TXH +3 00000 0 00765
BFOPEN.($W$,TM1,TM2,BUF3(BUFZ),BUF4(BUFZ), 346 LM00134
1 BUF5(BUFZ),GERR) 346 LM00135
13032 CLA +0 50000 0 06741 13033 SUB +0 40200 0 13034 13034 TXH +3 00000 0 05176 13035 STA +0 62100 0 13054
13036 CLA +0 50000 0 06741 13037 SUB +0 40200 0 13040 13040 TXH +3 00000 0 04315 13041 STA +0 62100 0 13053
13042 CLA +0 50000 0 06741 13043 SUB +0 40200 0 13044 13044 TXH +3 00000 0 03434 13045 STA +0 62100 0 13052
13046 TSX +0 07400 4 00003 13047 TXH +3 00000 0 10501 13050 TXH +3 00000 0 00064 13051 TXH +3 00000 0 00063
13052 TXH +3 00000 0 00000 13053 TXH +3 00000 0 00000 13054 TXH +3 00000 0 00000 13055 TXH +3 00000 0 00760
TMOPSW=1B 347 LM00136
13056 CLA +0 50000 0 10321 13057 STO +0 60100 0 10301
E'L 348 LM00137
BFOPEN.($R$,A,B,BUF6(BUFZ),BUF7(BUFZ),-0,GERR) 349 LM00138
13060 CLS +0 50200 0 10320 13061 STO +0 60100 0 13350 13062 CLA +0 50000 0 06741 13063 SUB +0 40200 0 13064
13064 TXH +3 00000 0 06740 13065 STA +0 62100 0 13077 13066 CLA +0 50000 0 06741 13067 SUB +0 40200 0 13070
13070 TXH +3 00000 0 06057 13071 STA +0 62100 0 13076 13072 TSX +0 07400 4 00003 13073 TXH +3 00000 0 10430
13074 TXH +3 00000 0 00024 13075 TXH +3 00000 0 00024 13076 TXH +3 00000 0 00000 13077 TXH +3 00000 0 00000
13100 TXH +3 00000 0 13350 13101 TXH +3 00000 0 00760
FRSTSW=1B 350 LM00139
13102 CLA +0 50000 0 10321 13103 STO +0 60100 0 10216
T'H CPF01, FOR I=CPBUFZ,CPBUFZ,I.G.CT 351 LM00140
13104 CLA +0 50000 0 07625 13105 STO +0 60100 0 10221 13106 TRA +0 02000 0 13112 13107 CLA +0 50000 0 10221
13110 ADD +0 40000 0 07625 13111 STO +0 60100 0 10221 13112 CLA +0 50000 0 10221 13113 SUB +0 40200 0 07627
13114 TZE +0 10000 0 13116 13115 TPL +0 12000 0 13170
BFREAD.(A,B,CPBUF(CPBUFZ)...CPBUFZ, 352 LM00141
1 CPFEF,EOFCT,GERR) 352 LM00142
13116 CLA +0 50000 0 07625 13117 SUB +0 40200 0 13120 13120 TXH +3 00000 0 07624 13121 STA +0 62100 0 13125
13122 TSX +0 07400 4 00004 13123 TXH +3 00000 0 00024 13124 TXH +3 00000 0 00024 13125 TIX +2 07625 0 00000
13126 TXH +3 00000 0 00750 13127 TXH +3 00000 0 10145 13130 TXH +3 00000 0 00760
W'R BDLNMK.(CPBUF(CPBUFZ-LMKZ)) .AND. FRSTSW 353 LM00143
13131 NZT -0 52000 0 10216 13132 TRA +0 02000 0 13154 13133 CLA +0 50000 0 07625 13134 SUB +0 40200 0 10225
13135 SUB +0 40200 0 13136 13136 TXH +3 00000 0 07624 13137 STA +0 62100 0 13141 13140 TSX +0 07400 4 00035
13141 TXH +3 00000 0 00000 13142 TZE +0 10000 0 13154
BFWRIT.(TM1,TM2,NWLNMK(LMKZ)...LMKZ,GERR) 354 LM00144
13143 CLA +0 50000 0 10225 13144 SUB +0 40200 0 13145 13145 TXH +3 00000 0 10251 13146 STA +0 62100 0 13152
13147 TSX +0 07400 4 00005 13150 TXH +3 00000 0 00064 13151 TXH +3 00000 0 00063 13152 TIX +2 10225 0 00000
13153 TXH +3 00000 0 00760
E'L 355 LM00145
FRSTSW=0B 356 LM00146
13154 CLA +0 50000 0 10320 13155 STO +0 60100 0 10216
CPF01 BFWRIT.(TM1,TM2,CPBUF(CPBUFZ)...CPBUFZ,GERR) 357 LM00147
13156 CLA +0 50000 0 07625 13157 SUB +0 40200 0 13160 13160 TXH +3 00000 0 07624 13161 STA +0 62100 0 13165
13162 TSX +0 07400 4 00005 13163 TXH +3 00000 0 00064 13164 TXH +3 00000 0 00063 13165 TIX +2 07625 0 00000
13166 TXH +3 00000 0 00760 13167 TRA +0 02000 0 13107
REMN=CPBUFZ-(I-CT) 358 LM00148
13170 CLA +0 50000 0 10221 13171 SUB +0 40200 0 07627 13172 CHS +0 76000 0 00002 13173 ADD +0 40000 0 07625
13174 STO +0 60100 0 10275
BFREAD.(A,B,CPBUF(REMN)...REMN,CPFEF,EOFCT,GERR) 359 LM00149
13175 CLA +0 50000 0 10275 13176 SUB +0 40200 0 13177 13177 TXH +3 00000 0 07624 13200 STA +0 62100 0 13204
13201 TSX +0 07400 4 00004 13202 TXH +3 00000 0 00024 13203 TXH +3 00000 0 00024 13204 TIX +2 10275 0 00000
13205 TXH +3 00000 0 00750 13206 TXH +3 00000 0 10145 13207 TXH +3 00000 0 00760
W'R BDLNMK.(CPBUF(REMN-LMKZ)) .AND. FRSTSW 360 LM00150
13210 NZT -0 52000 0 10216 13211 TRA +0 02000 0 13233 13212 CLA +0 50000 0 10275 13213 SUB +0 40200 0 10225
13214 SUB +0 40200 0 13215 13215 TXH +3 00000 0 07624 13216 STA +0 62100 0 13220 13217 TSX +0 07400 4 00035
13220 TXH +3 00000 0 00000 13221 TZE +0 10000 0 13233
BFWRIT.(TM1,TM2,NWLNMK(LMKZ)...LMKZ,GERR) 361 LM00151
13222 CLA +0 50000 0 10225 13223 SUB +0 40200 0 13224 13224 TXH +3 00000 0 10251 13225 STA +0 62100 0 13231
13226 TSX +0 07400 4 00005 13227 TXH +3 00000 0 00064 13230 TXH +3 00000 0 00063 13231 TIX +2 10225 0 00000
13232 TXH +3 00000 0 00760
E'L 362 LM00152
T'H FDLOOP, FOR I = 27,-9,(I.L.0) 363 LM00156
13233 CLA +0 50000 0 10335 13234 STO +0 60100 0 10221 13235 TRA +0 02000 0 13241 13236 CLS +0 50200 0 10330
13237 ADD +0 40000 0 10221 13240 STO +0 60100 0 10221 13241 CLA +0 50000 0 10221 13242 SUB +0 40200 0 10320
13243 TZE +0 10000 0 13245 13244 TMI -0 12000 0 13265
W'R ((CPBUF(1).RS.I).A.777K).E.003K, 364 LM00157
1 CPBUF(1) = CPBUF(1) .EX. (3K.LS.I) 364 LM00158
13245 CAL -0 50000 0 10221 13246 STA +0 62100 0 13250 13247 CAL -0 50000 0 07623 13250 LGR -0 76500 0 00000
13251 ANA -0 32000 0 10343 13252 SLW +0 60200 0 13350 13253 CLA +0 50000 0 13350 13254 SUB +0 40200 0 10323
13255 TNZ -0 10000 0 13264 13256 CAL -0 50000 0 10221 13257 STA +0 62100 0 13261 13260 CAL -0 50000 0 10323
13261 ALS +0 76700 0 00000 13262 ERA +0 32200 0 07623 13263 SLW +0 60200 0 07623
FDLOOP C'E 365 LM00159
13264 TRA +0 02000 0 13236
BFWRIT.(TM1,TM2,CPBUF(REMN)...REMN,GERR) 366 LM00160
13265 CLA +0 50000 0 10275 13266 SUB +0 40200 0 13267 13267 TXH +3 00000 0 07624 13270 STA +0 62100 0 13274
13271 TSX +0 07400 4 00005 13272 TXH +3 00000 0 00064 13273 TXH +3 00000 0 00063 13274 TIX +2 10275 0 00000
13275 TXH +3 00000 0 00760
BFCLOS.(A,B,GERR) 367 LM00161
13276 TSX +0 07400 4 00002 13277 TXH +3 00000 0 00024 13300 TXH +3 00000 0 00024 13301 TXH +3 00000 0 00760
F'N 1B 368 LM00162
13302 CLA +0 50000 0 10321 13303 TRA +0 02000 0 13344
E'L 369 LM00163
CPFEF PRINT COMMENT $ERROR IN FSTATE.--NOTIFY SYSTEMS STAFF.$ 370 LM00164
13304 TSX +0 07400 4 00021 13305 +0 00000 0 00007 13306 +2 55151 4 65160 13307 +3 14560 2 66263
13310 +2 16325 3 34040 13311 -0 54663 3 12670 13312 -2 06270 6 26325 13313 -0 46260 6 26321
13314 +2 62633 6 06060
PRINT COMMENT $DORMNT CALLED$ 371 LM00165
13315 TSX +0 07400 4 00021 13316 +0 00000 0 00003 13317 +2 44651 4 44563 13320 -2 02321 4 34325
13321 +2 46060 6 06060
DORMNT. 372 LM00166
13322 TSX +0 07400 4 00014
END OF FUNCTION 373 LM00167
13323 TSX +0 07400 4 00015 13324 TXH +3 00000 0 00000 13325 SXD -0 63400 1 13324 13326 SXA +0 63400 4 13344
13327 CLA +0 50000 4 00001 13330 STO +0 60100 0 13014 13331 STO +0 60100 0 13074 13332 STO +0 60100 0 13123
13333 STO +0 60100 0 13202 13334 STO +0 60100 0 13277 13335 CLA +0 50000 4 00002 13336 STO +0 60100 0 13015
13337 STO +0 60100 0 13075 13340 STO +0 60100 0 13124 13341 STO +0 60100 0 13203 13342 STO +0 60100 0 13300
13343 TRA +0 02000 2 00001 13344 AXT +0 77400 4 00000 13345 LXA +0 53400 2 13324 13346 LXD -0 53400 1 13324
13347 TRA +0 02000 4 00001
NORMAL MODE IS INTEGER 374 LM00168
BOOLEAN COPYSW, PRSSW, WMRKSW, AROPSW, TMOPSW, FRSTSW 375 LM00169
BOOLEAN NAMO, ADJSW, NAMTYP 376 LM00170
V'S BUFZ=432 377 LM00171
06741 +0 00000 0 00660
D'N BUF1(432), BUF2(432), BUF3(432), BUF4(432), BUF5(432), 378 LM00172
1 BUF6(432), BUF7(432) 378 LM00173
D'N CPBUF(432) 379 LM00174
V'S CPBUFZ=432 380 LM00175
07625 +0 00000 0 00660
V'S FILTBZ=16 381 LM00176
10211 +0 00000 0 00020
D'N FILTAB(16) 382 LM00177
BOOLEAN FILFND 383 LM00178
D'N FILFND(16) 384 LM00179
BOOLEAN CLS. 385 LM00183
INTERNAL FUNCTION (A,B) 386 LM00184
13351 TRA +0 02000 0 13522
E'O CLS. 387 LM00185
13352 TRA +0 02000 0 13355 00036 TTR +0 02100 0 13353 13353 SXA +0 63400 2 13472 13354 TSX +0 07400 2 13472
W'R TMOPSW 388 LM00186
13355 NZT -0 52000 0 10301 13356 TRA +0 02000 0 13464
BFCLOS.(TM1,TM2,GERR) 389 LM00187
13357 TSX +0 07400 4 00002 13360 TXH +3 00000 0 00064 13361 TXH +3 00000 0 00063 13362 TXH +3 00000 0 00760
TMOPSW=0B 390 LM00188
13363 CLA +0 50000 0 10320 13364 STO +0 60100 0 10301
D'N FNM(2) 391 LM00189
FNM(0)=A 392 LM00190
13365 CLA +0 50000 0 00024 13366 STO +0 60100 0 10215
FNM(1)=B 393 LM00191
13367 CLA +0 50000 0 00024 13370 STO +0 60100 0 10214
FSTATE.(A,B,FSBUF(8)...8,NFND) 394 LM00192
13371 TSX +0 07400 4 00016 13372 TXH +3 00000 0 00024 13373 TXH +3 00000 0 00024 13374 TIX +2 10327 0 00735
13375 TXH +3 00000 0 00762
EQUIVALENCE (MODE,FSBUF(7)) 395 LM00193
MODE=MODE.A.134K 396 LM00194
13376 CAL -0 50000 0 00736 13377 ANA -0 32000 0 10342 13400 SLW +0 60200 0 00736
CL01 DELETE.(A,B,0,NDEL1) 397 LM00195
13401 TSX +0 07400 4 00013 13402 TXH +3 00000 0 00024 13403 TXH +3 00000 0 00024 13404 TXH +3 00000 0 10320
13405 TXH +3 00000 0 00761
CHFILE.(TM1,TM2,-0,A,B) 398 LM00196
13406 CLS +0 50200 0 10320 13407 STO +0 60100 0 13520 13410 TSX +0 07400 4 00007 13411 TXH +3 00000 0 00064
13412 TXH +3 00000 0 00063 13413 TXH +3 00000 0 13520 13414 TXH +3 00000 0 00024 13415 TXH +3 00000 0 00024
W'R MODE.NE.000K .AND. KEY.NE.$ XT$ 399 LM00197
13416 CLA +0 50000 0 10224 13417 SUB +0 40200 0 10457 13420 TZE +0 10000 0 13457 13421 CLA +0 50000 0 00736
13422 SUB +0 40200 0 10320 13423 TZE +0 10000 0 13457
CHFILE.(A,B,MODE,-0,-0) 400 LM00198
13424 CLS +0 50200 0 10320 13425 STO +0 60100 0 13520 13426 CLS +0 50200 0 10320 13427 STO +0 60100 0 13521
13430 TSX +0 07400 4 00007 13431 TXH +3 00000 0 00024 13432 TXH +3 00000 0 00024 13433 TXH +3 00000 0 00736
13434 TXH +3 00000 0 13521 13435 TXH +3 00000 0 13520
MODEP = (OCRBC.(MODE).A.777777K).V.575757K6 401 LM00199
13436 TSX +0 07400 4 00023 13437 TXH +3 00000 0 00736 13440 STO +0 60100 0 13521 13441 CAL -0 50000 0 13521
13442 ANA -0 32000 0 10350 13443 ORA -0 50100 0 10431 13444 SLW +0 60200 0 10226
PRMESS.(A,BL,B,BL,$CREATED IN '$,MODEP,$' MODE.$) 402 LM00200
13445 TSX +0 07400 4 00027 13446 TXH +3 00000 0 00024 13447 TXH +3 00000 0 01011 13450 TXH +3 00000 0 00024
13451 TXH +3 00000 0 01011 13452 TXH +3 00000 0 10364 13453 TXH +3 00000 0 10366 13454 TXH +3 00000 0 10226
13455 TXH +3 00000 0 10355 13456 TXH +3 00000 0 10400
E'L 403 LM00201
F'N 1B 404 LM00202
13457 CLA +0 50000 0 10321 13460 TRA +0 02000 0 13514
NDEL1 F'N 0B 405 LM00203
13461 CLA +0 50000 0 10320 13462 TRA +0 02000 0 13514
O'E 406 LM00204
13463 TRA +0 02000 0 13466
F'N 0B 407 LM00205
13464 CLA +0 50000 0 10320 13465 TRA +0 02000 0 13514
E'L 408 LM00206
NFND MODE=000K 409 LM00207
13466 CLA +0 50000 0 10320 13467 STO +0 60100 0 00736
T'O CL01 410 LM00208
13470 TRA +0 02000 0 00746
END OF FUNCTION 411 LM00209
13471 TSX +0 07400 4 00015 13472 TXH +3 00000 0 00000 13473 SXD -0 63400 1 13472 13474 SXA +0 63400 4 13514
13475 CLA +0 50000 4 00001 13476 STA +0 62100 0 13365 13477 STO +0 60100 0 13372 13500 STO +0 60100 0 13402
13501 STO +0 60100 0 13414 13502 STO +0 60100 0 13431 13503 STO +0 60100 0 13446 13504 CLA +0 50000 4 00002
13505 STA +0 62100 0 13367 13506 STO +0 60100 0 13373 13507 STO +0 60100 0 13403 13510 STO +0 60100 0 13415
13511 STO +0 60100 0 13432 13512 STO +0 60100 0 13450 13513 TRA +0 02000 2 00001 13514 AXT +0 77400 4 00000
13515 LXA +0 53400 2 13472 13516 LXD -0 53400 1 13472 13517 TRA +0 02000 4 00001
BOOLEAN YES. 412 LM00214
INTERNAL FUNCTION 413 LM00215
13522 TRA +0 02000 0 13552
E'O YES. 414 LM00216
13523 TRA +0 02000 0 13526 00055 TTR +0 02100 0 13524 13524 SXA +0 63400 2 13542 13525 TSX +0 07400 2 13542
RDFLXC.(YESNO,6) 415 LM00217
13526 TSX +0 07400 4 00031 13527 TXH +3 00000 0 10317 13530 TXH +3 00000 0 10326
W'R YESNO.E.$YES $ 416 LM00218
13531 CLA +0 50000 0 10317 13532 SUB +0 40200 0 10503 13533 TNZ -0 10000 0 13537
F'N 1B 417 LM00219
13534 CLA +0 50000 0 10321 13535 TRA +0 02000 0 13546
O'E 418 LM00220
13536 TRA +0 02000 0 13541
F'N 0B 419 LM00221
13537 CLA +0 50000 0 10320 13540 TRA +0 02000 0 13546
E'L 420 LM00222
END OF FUNCTION 421 LM00223
13541 TSX +0 07400 4 00015 13542 TXH +3 00000 0 00000 13543 SXD -0 63400 1 13542 13544 SXA +0 63400 4 13546
13545 TRA +0 02000 2 00001 13546 AXT +0 77400 4 00000 13547 LXA +0 53400 2 13542 13550 LXD -0 53400 1 13542
13551 TRA +0 02000 4 00001
BOOLEAN DELT. 422 LM00228
INTERNAL FUNCTION (A,B) 423 LM00229
13552 TRA +0 02000 0 13633
E'O DELT. 424 LM00230
13553 TRA +0 02000 0 13556 00044 TTR +0 02100 0 13554 13554 SXA +0 63400 2 13611 13555 TSX +0 07400 2 13611
FNM(0)=A 425 LM00231
13556 CLA +0 50000 0 00024 13557 STO +0 60100 0 10215
FNM(1)=B 426 LM00232
13560 CLA +0 50000 0 00024 13561 STO +0 60100 0 10214
DELETE.(A,B,0,NOTDEL) 427 LM00233
13562 TSX +0 07400 4 00013 13563 TXH +3 00000 0 00024 13564 TXH +3 00000 0 00024 13565 TXH +3 00000 0 10320
13566 TXH +3 00000 0 00763
PRMESS.(A,BL,B,$ DELETED.$) 428 LM00234
13567 TSX +0 07400 4 00027 13570 TXH +3 00000 0 00024 13571 TXH +3 00000 0 01011 13572 TXH +3 00000 0 00024
13573 TXH +3 00000 0 10434 13574 TXH +3 00000 0 10367
F'N 1B 429 LM00235
13575 CLA +0 50000 0 10321 13576 TRA +0 02000 0 13627
NOTDEL PRMESS.(A,BL,B,$ NOT DELETED.$) 430 LM00236
13577 TSX +0 07400 4 00027 13600 TXH +3 00000 0 00024 13601 TXH +3 00000 0 01011 13602 TXH +3 00000 0 00024
13603 TXH +3 00000 0 10444 13604 TXH +3 00000 0 10370 13605 TXH +3 00000 0 10400
F'N 0B 431 LM00237
13606 CLA +0 50000 0 10320 13607 TRA +0 02000 0 13627
E'N 432 LM00238
13610 TSX +0 07400 4 00015 13611 TXH +3 00000 0 00000 13612 SXD -0 63400 1 13611 13613 SXA +0 63400 4 13627
13614 CLA +0 50000 4 00001 13615 STA +0 62100 0 13556 13616 STO +0 60100 0 13563 13617 STO +0 60100 0 13570
13620 STO +0 60100 0 13600 13621 CLA +0 50000 4 00002 13622 STA +0 62100 0 13560 13623 STO +0 60100 0 13564
13624 STO +0 60100 0 13572 13625 STO +0 60100 0 13602 13626 TRA +0 02000 2 00001 13627 AXT +0 77400 4 00000
13630 LXA +0 53400 2 13611 13631 LXD -0 53400 1 13611 13632 TRA +0 02000 4 00001
INSERT FILE AFORM 433 LM00300
INTERNAL FUNCTION (A,B,CT) 434 LM00017
13633 TRA +0 02000 0 14001
E'O MKLNMK. 435 LM00018
13634 TRA +0 02000 0 13637 00051 TTR +0 02100 0 13635 13635 SXA +0 63400 2 13756 13636 TSX +0 07400 2 13756
B'N MKLNMK. 436 LM00019
FSTATE.(A,B,CT...1,NTFND) 437 LM00020
13637 TSX +0 07400 4 00016 13640 TXH +3 00000 0 00024 13641 TXH +3 00000 0 00024 13642 TIX +2 10321 0 00024
13643 TXH +3 00000 0 00764
RCONV.(BZEL.(DEFBC.(CT)),NWLNMK(4),NWLNMK(3)) 438 LM00021
13644 TSX +0 07400 4 00012 13645 TXH +3 00000 0 00024 13646 STO +0 60100 0 13777 13647 TSX +0 07400 4 00006
13650 TXH +3 00000 0 13777 13651 STO +0 60100 0 13777 13652 TSX +0 07400 4 00053 13653 TXH +3 00000 0 13777
13654 TXH +3 00000 0 10245 13655 TXH +3 00000 0 10246
V'S NWLNMK(13) = 177 177 011 011K, 014 012 012 012K 439 LM00025
10233 +0 14012 0 12012 10234 +1 77177 0 11011
V'S NWLNMK(1) = 012 012 012 012K, 177 177 177 177K 440 LM00026
10247 +1 77177 1 77177 10250 +0 12012 0 12012
LCONV.(A,NWLNMK(12),NWLNMK(11)) 441 LM00027
13656 TSX +0 07400 4 00050 13657 TXH +3 00000 0 00024 13660 TXH +3 00000 0 10235 13661 TXH +3 00000 0 10236
LCONV.(B,NWLNMK(10),NWLNMK(9)) 442 LM00028
13662 TSX +0 07400 4 00050 13663 TXH +3 00000 0 00024 13664 TXH +3 00000 0 10237 13665 TXH +3 00000 0 10240
V'S GOTTM = 0B 443 LM00032
10220 +0 00000 0 00000
W'R .NOT. GOTTM 444 LM00033
13666 ZET +0 52000 0 10220 13667 TRA +0 02000 0 13751
GOTTM = 1B 445 LM00034
13670 CLA +0 50000 0 10321 13671 STO +0 60100 0 10220
GETTIM.(PDATE,PTIME) 446 LM00035
13672 TSX +0 07400 4 00017 13673 TXH +3 00000 0 10252 13674 TXH +3 00000 0 10274
RCONV.(PTIME,NWLNMK(6),NWLNMK(5)) 447 LM00036
13675 TSX +0 07400 4 00053 13676 TXH +3 00000 0 10274 13677 TXH +3 00000 0 10243 13700 TXH +3 00000 0 10244
TEMP1 = (PDATE.A.7777K8) .V. $00/00/$ .V. 448 LM00037
1 ((PDATE.RS.6).A.7777K2) 448 LM00038
13701 CAL -0 50000 0 10326 13702 STA +0 62100 0 13704 13703 CAL -0 50000 0 10252 13704 LGR -0 76500 0 00000
13705 ANA -0 32000 0 10347 13706 SLW +0 60200 0 13777 13707 CAL -0 50000 0 10252 13710 ANA -0 32000 0 10510
13711 ORA -0 50100 0 10352 13712 ORA -0 50100 0 13777 13713 SLW +0 60200 0 10276
LCONV.(TEMP1,NWLNMK(8),NWLNMK(7)) 449 LM00039
13714 TSX +0 07400 4 00050 13715 TXH +3 00000 0 10276 13716 TXH +3 00000 0 10241 13717 TXH +3 00000 0 10242
NWLNMK(7) = (NWLNMK(7).A.777777K6) .V. 450 LM00040
1 TSSASC.((PDATE.RS.6).A.77K).LS.9 .V. 450 LM00041
2 TSSASC.(PDATE.A.77K) 450 LM00042
13720 CAL -0 50000 0 10252 13721 ANA -0 32000 0 10341 13722 SLW +0 60200 0 13777 13723 TSX +0 07400 4 00033
13724 TXH +3 00000 0 13777 13725 STO +0 60100 0 13777 13726 CAL -0 50000 0 10326 13727 STA +0 62100 0 13731
13730 CAL -0 50000 0 10252 13731 LGR -0 76500 0 00000 13732 ANA -0 32000 0 10341 13733 SLW +0 60200 0 14000
13734 TSX +0 07400 4 00033 13735 TXH +3 00000 0 14000 13736 STO +0 60100 0 14000 13737 CAL -0 50000 0 10330
13740 STA +0 62100 0 13742 13741 CAL -0 50000 0 14000 13742 ALS +0 76700 0 00000 13743 SLW +0 60200 0 14000
13744 CAL -0 50000 0 10242 13745 ANA -0 32000 0 10511 13746 ORA -0 50100 0 14000 13747 ORA -0 50100 0 13777
13750 SLW +0 60200 0 10242
E'L 451 LM00043
F'N 1B 452 LM00044
13751 CLA +0 50000 0 10321 13752 TRA +0 02000 0 13773
NTFND F'N 0B 453 LM00046
13753 CLA +0 50000 0 10320 13754 TRA +0 02000 0 13773
E'N 454 LM00047
13755 TSX +0 07400 4 00015 13756 TXH +3 00000 0 00000 13757 SXD -0 63400 1 13756 13760 SXA +0 63400 4 13773
13761 CLA +0 50000 4 00001 13762 STO +0 60100 0 13640 13763 STO +0 60100 0 13657 13764 CLA +0 50000 4 00002
13765 STO +0 60100 0 13641 13766 STO +0 60100 0 13663 13767 CLA +0 50000 4 00003 13770 STA +0 62100 0 13642
13771 STO +0 60100 0 13645 13772 TRA +0 02000 2 00001 13773 AXT +0 77400 4 00000 13774 LXA +0 53400 2 13756
13775 LXD -0 53400 1 13756 13776 TRA +0 02000 4 00001
B'N BDLNMK. 455 LM00052
INTERNAL FUNCTION BDLNMK.(LMK)=(LMK(14) .NE. NWLNMK(14)) .OR. 456 LM00053
1 (LMK(13) .NE. NWLNMK(13)) .OR. (LMK(2) .NE. NWLNMK(2)) 456 LM00054
2 .OR. (LMK(1) .NE. NWLNMK(1)) 456 LM00055
14001 TRA +0 02000 0 14047 00035 TTR +0 02100 0 14002 14002 SXA +0 63400 2 14026 14003 TSX +0 07400 2 14026
14004 CLA +0 50000 0 00023 14005 SUB +0 40200 0 10250 14006 TNZ -0 10000 0 14022 14007 CLA +0 50000 0 00022
14010 SUB +0 40200 0 10247 14011 TNZ -0 10000 0 14022 14012 CLA +0 50000 0 00007 14013 SUB +0 40200 0 10234
14014 TNZ -0 10000 0 14022 14015 CLA +0 50000 0 00006 14016 SUB +0 40200 0 10233 14017 TNZ -0 10000 0 14022
14020 PXD -0 75400 0 00000 14021 TRA +0 02000 0 14023 14022 CLA +0 50000 0 10321 14023 TRA +0 02000 0 14043
14024 PZE +0 00000 0 00001 14025 PZE +0 00000 0 00013 14026 TXH +3 00000 0 00000 14027 SXD -0 63400 1 14026
14030 SXA +0 63400 4 14043 14031 CLA +0 50000 4 00001 14032 SUB +0 40200 0 14024 14033 STA +0 62100 0 14004
14034 SUB +0 40200 0 14024 14035 STA +0 62100 0 14007 14036 SUB +0 40200 0 14025 14037 STA +0 62100 0 14012
14040 SUB +0 40200 0 14024 14041 STA +0 62100 0 14015 14042 TRA +0 02000 2 00001 14043 AXT +0 77400 4 00000
14044 LXA +0 53400 2 14026 14045 LXD -0 53400 1 14026 14046 TRA +0 02000 4 00001
INTERNAL FUNCTION (LMK) 457 LM00061
14047 TRA +0 02000 0 14253
E'O DATTM. 458 LM00062
14050 TRA +0 02000 0 14053 00043 TTR +0 02100 0 14051 14051 SXA +0 63400 2 14224 14052 TSX +0 07400 2 14224
TEMP1 = CONVL.(LMK(8),LMK(7)) 459 LM00063
14053 TSX +0 07400 4 00040 14054 TXH +3 00000 0 00014 14055 TXH +3 00000 0 00015 14056 STO +0 60100 0 10276
TEMP1 = (TEMP1.A.7777K8) .V. ((TEMP1.LS.6).A.7777K4) 460 LM00064
14057 CAL -0 50000 0 10326 14060 STA +0 62100 0 14062 14061 CAL -0 50000 0 10276 14062 ALS +0 76700 0 00000
14063 ANA -0 32000 0 10353 14064 SLW +0 60200 0 14247 14065 CAL -0 50000 0 10276 14066 ANA -0 32000 0 10510
14067 ORA -0 50100 0 14247 14070 SLW +0 60200 0 10276
TEMP1 = TEMP1 .V. (CONVR.(LMK(8),LMK(7)).A.7777K) 461 LM00065
14071 TSX +0 07400 4 00041 14072 TXH +3 00000 0 00014 14073 TXH +3 00000 0 00015 14074 STO +0 60100 0 14247
14075 CAL -0 50000 0 14247 14076 ANA -0 32000 0 10345 14077 ORA -0 50100 0 10276 14100 SLW +0 60200 0 10276
TEMP2 = CONVR.(LMK(6),LMK(5)) 462 LM00066
14101 TSX +0 07400 4 00041 14102 TXH +3 00000 0 00016 14103 TXH +3 00000 0 00017 14104 STO +0 60100 0 10277
F'N (BCDEC.(TEMP1.A.7777K).LS. 27) .V. 463 LM00070
1 (BCDEC.((TEMP1.RS.12).A.7777K).LS.18) .V. 463 LM00071
2 (BCDEC.(TEMP1.RS.24).LS.23) .V. 463 LM00072
3 (BCDEC.(TEMP2.RS.24)*3600 + 463 LM00073
4 BCDEC.((TEMP2.RS.12).A.7777K)*60 + 463 LM00074
5 BCDEC.(TEMP2.A.77K)*6) 463 LM00075
14105 CAL -0 50000 0 10277 14106 ANA -0 32000 0 10341 14107 SLW +0 60200 0 14247 14110 TSX +0 07400 4 00001
14111 TXH +3 00000 0 14247 14112 XCA +0 13100 0 00000 14113 MPY +0 20000 0 10326 14114 STQ -0 60000 0 14247
14115 CAL -0 50000 0 10331 14116 STA +0 62100 0 14120 14117 CAL -0 50000 0 10277 14120 LGR -0 76500 0 00000
14121 ANA -0 32000 0 10345 14122 SLW +0 60200 0 14250 14123 TSX +0 07400 4 00001 14124 TXH +3 00000 0 14250
14125 XCA +0 13100 0 00000 14126 MPY +0 20000 0 10340 14127 STQ -0 60000 0 14250 14130 CAL -0 50000 0 10334
14131 STA +0 62100 0 14133 14132 CAL -0 50000 0 10277 14133 LGR -0 76500 0 00000 14134 SLW +0 60200 0 14251
14135 TSX +0 07400 4 00001 14136 TXH +3 00000 0 14251 14137 XCA +0 13100 0 00000 14140 MPY +0 20000 0 10344
14141 XCA +0 13100 0 00000 14142 ADD +0 40000 0 14250 14143 ADD +0 40000 0 14247 14144 STO +0 60100 0 14251
14145 CAL -0 50000 0 10334 14146 STA +0 62100 0 14150 14147 CAL -0 50000 0 10276 14150 LGR -0 76500 0 00000
14151 SLW +0 60200 0 14250 14152 TSX +0 07400 4 00001 14153 TXH +3 00000 0 14250 14154 STO +0 60100 0 14250
14155 CAL -0 50000 0 10333 14156 STA +0 62100 0 14160 14157 CAL -0 50000 0 14250 14160 ALS +0 76700 0 00000
14161 SLW +0 60200 0 14250 14162 CAL -0 50000 0 10331 14163 STA +0 62100 0 14165 14164 CAL -0 50000 0 10276
14165 LGR -0 76500 0 00000 14166 ANA -0 32000 0 10345 14167 SLW +0 60200 0 14247 14170 TSX +0 07400 4 00001
14171 TXH +3 00000 0 14247 14172 STO +0 60100 0 14247 14173 CAL -0 50000 0 10332 14174 STA +0 62100 0 14176
14175 CAL -0 50000 0 14247 14176 ALS +0 76700 0 00000 14177 SLW +0 60200 0 14247 14200 CAL -0 50000 0 10276
14201 ANA -0 32000 0 10345 14202 SLW +0 60200 0 14252 14203 TSX +0 07400 4 00001 14204 TXH +3 00000 0 14252
14205 STO +0 60100 0 14252 14206 CAL -0 50000 0 10335 14207 STA +0 62100 0 14211 14210 CAL -0 50000 0 14252
14211 ALS +0 76700 0 00000 14212 ORA -0 50100 0 14247 14213 ORA -0 50100 0 14250 14214 ORA -0 50100 0 14251
14215 SLW +0 60200 0 14252 14216 CLA +0 50000 0 14252 14217 TRA +0 02000 0 14243
E'N 464 LM00076
14220 TSX +0 07400 4 00015 14221 PZE +0 00000 0 00001 14222 PZE +0 00000 0 00013 14223 PZE +0 00000 0 00005
14224 TXH +3 00000 0 00000 14225 SXD -0 63400 1 14224 14226 SXA +0 63400 4 14243 14227 CLA +0 50000 4 00001
14230 SUB +0 40200 0 14223 14231 STO +0 60100 0 14103 14232 SUB +0 40200 0 14221 14233 STO +0 60100 0 14102
14234 SUB +0 40200 0 14221 14235 STO +0 60100 0 14055 14236 STO +0 60100 0 14073 14237 SUB +0 40200 0 14221
14240 STO +0 60100 0 14054 14241 STO +0 60100 0 14072 14242 TRA +0 02000 2 00001 14243 AXT +0 77400 4 00000
14244 LXA +0 53400 2 14224 14245 LXD -0 53400 1 14224 14246 TRA +0 02000 4 00001
INTERNAL FUNCTION CNT.(LMK) = BCDEC.(CONVR.(LMK(4),LMK(3))) 465 LM00080
14253 TRA +0 02000 0 14307 00037 TTR +0 02100 0 14254 14254 SXA +0 63400 2 14271 14255 TSX +0 07400 2 14271
14256 TSX +0 07400 4 00041 14257 TXH +3 00000 0 00020 14260 TXH +3 00000 0 00021 14261 STO +0 60100 0 14306
14262 TSX +0 07400 4 00001 14263 TXH +3 00000 0 14306 14264 TRA +0 02000 0 14302 14265 PZE +0 00000 0 00001
14266 PZE +0 00000 0 00013 14267 PZE +0 00000 0 00005 14270 PZE +0 00000 0 00003 14271 TXH +3 00000 0 00000
14272 SXD -0 63400 1 14271 14273 SXA +0 63400 4 14302 14274 CLA +0 50000 4 00001 14275 SUB +0 40200 0 14270
14276 STO +0 60100 0 14260 14277 SUB +0 40200 0 14265 14300 STO +0 60100 0 14257 14301 TRA +0 02000 2 00001
14302 AXT +0 77400 4 00000 14303 LXA +0 53400 2 14271 14304 LXD -0 53400 1 14271 14305 TRA +0 02000 4 00001
INTERNAL FUNCTION FLN1.(LMK) = CONVL.(LMK(12),LMK(11)) 466 LM00081
14307 TRA +0 02000 0 14337 00045 TTR +0 02100 0 14310 14310 SXA +0 63400 2 14322 14311 TSX +0 07400 2 14322
14312 TSX +0 07400 4 00040 14313 TXH +3 00000 0 00010 14314 TXH +3 00000 0 00011 14315 TRA +0 02000 0 14333
14316 PZE +0 00000 0 00001 14317 PZE +0 00000 0 00013 14320 PZE +0 00000 0 00005 14321 PZE +0 00000 0 00003
14322 TXH +3 00000 0 00000 14323 SXD -0 63400 1 14322 14324 SXA +0 63400 4 14333 14325 CLA +0 50000 4 00001
14326 SUB +0 40200 0 14317 14327 STO +0 60100 0 14314 14330 SUB +0 40200 0 14316 14331 STO +0 60100 0 14313
14332 TRA +0 02000 2 00001 14333 AXT +0 77400 4 00000 14334 LXA +0 53400 2 14322 14335 LXD -0 53400 1 14322
14336 TRA +0 02000 4 00001
INTERNAL FUNCTION FLN2.(LMK) = CONVL.(LMK(10),LMK(9)) 467 LM00082
14337 TRA +0 02000 0 14370 00046 TTR +0 02100 0 14340 14340 SXA +0 63400 2 14353 14341 TSX +0 07400 2 14353
14342 TSX +0 07400 4 00040 14343 TXH +3 00000 0 00012 14344 TXH +3 00000 0 00013 14345 TRA +0 02000 0 14364
14346 PZE +0 00000 0 00001 14347 PZE +0 00000 0 00013 14350 PZE +0 00000 0 00005 14351 PZE +0 00000 0 00003
14352 PZE +0 00000 0 00011 14353 TXH +3 00000 0 00000 14354 SXD -0 63400 1 14353 14355 SXA +0 63400 4 14364
14356 CLA +0 50000 4 00001 14357 SUB +0 40200 0 14352 14360 STO +0 60100 0 14344 14361 SUB +0 40200 0 14346
14362 STO +0 60100 0 14343 14363 TRA +0 02000 2 00001 14364 AXT +0 77400 4 00000 14365 LXA +0 53400 2 14353
14366 LXD -0 53400 1 14353 14367 TRA +0 02000 4 00001
INTERNAL FUNCTION 468 LM00086
14370 TRA +0 02000 0 14471
E'O PTLNMK. 469 LM00087
14371 TRA +0 02000 0 14374 00052 TTR +0 02100 0 14372 14372 SXA +0 63400 2 14453 14373 TSX +0 07400 2 14453
PRMESS. (CONVL.(PRLNMK(12),PRLNMK(11)), BL, 470 LM00088
1 CONVL.(PRLNMK(10),PRLNMK(9)), BL, 470 LM00089
2 CONVL.(PRLNMK(8),PRLNMK(7)), 470 LM00090
3 CONVR.(PRLNMK(8),PRLNMK(7)) .LS. 24 .V. 60575757K, 470 LM00091
4 CONVR.(PRLNMK(6),PRLNMK(5)), BL, 470 LM00092
5 CONVR.(PRLNMK(4),PRLNMK(3)) ) 470 LM00093
14374 TSX +0 07400 4 00041 14375 TXH +3 00000 0 10266 14376 TXH +3 00000 0 10267 14377 STO +0 60100 0 14463
14400 TSX +0 07400 4 00041 14401 TXH +3 00000 0 10264 14402 TXH +3 00000 0 10265 14403 STO +0 60100 0 14464
14404 TSX +0 07400 4 00041 14405 TXH +3 00000 0 10262 14406 TXH +3 00000 0 10263 14407 STO +0 60100 0 14465
14410 CAL -0 50000 0 10334 14411 STA +0 62100 0 14413 14412 CAL -0 50000 0 14465 14413 ALS +0 76700 0 00000
14414 ORA -0 50100 0 10351 14415 SLW +0 60200 0 14465 14416 TSX +0 07400 4 00040 14417 TXH +3 00000 0 10262
14420 TXH +3 00000 0 10263 14421 STO +0 60100 0 14466 14422 TSX +0 07400 4 00040 14423 TXH +3 00000 0 10260
14424 TXH +3 00000 0 10261 14425 STO +0 60100 0 14467 14426 TSX +0 07400 4 00040 14427 TXH +3 00000 0 10256
14430 TXH +3 00000 0 10257 14431 STO +0 60100 0 14470 14432 TSX +0 07400 4 00027 14433 TXH +3 00000 0 14470
14434 TXH +3 00000 0 01011 14435 TXH +3 00000 0 14467 14436 TXH +3 00000 0 01011 14437 TXH +3 00000 0 14466
14440 TXH +3 00000 0 14465 14441 TXH +3 00000 0 14464 14442 TXH +3 00000 0 01011 14443 TXH +3 00000 0 14463
F'N 471 LM00094
14444 TRA +0 02000 0 14457
E'N 472 LM00095
14445 TSX +0 07400 4 00015 14446 PZE +0 00000 0 00001 14447 PZE +0 00000 0 00013 14450 PZE +0 00000 0 00005
14451 PZE +0 00000 0 00003 14452 PZE +0 00000 0 00011 14453 TXH +3 00000 0 00000 14454 SXD -0 63400 1 14453
14455 SXA +0 63400 4 14457 14456 TRA +0 02000 2 00001 14457 AXT +0 77400 4 00000 14460 LXA +0 53400 2 14453
14461 LXD -0 53400 1 14453 14462 TRA +0 02000 4 00001
D'N PRLNMK(14),NWLNMK(14) 473 LM00097
V'S LMKZ = 14 474 LM00098
10225 +0 00000 0 00016
D'N FSBUF (432) 475 LM00099
INTERNAL FUNCTION (ARG1,ARG2,ARG3) 476 LM00108
14471 TRA +0 02000 0 14646
E'O RCONV. 477 LM00109
14472 TRA +0 02000 0 14475 00053 TTR +0 02100 0 14473 14473 SXA +0 63400 2 14617 14474 TSX +0 07400 2 14617
ARG2 = 040 040K6 .V. (TSSASC.(ARG1.RS.30).LS.9) .V. 478 LM00110
1 TSSASC.((ARG1.RS.24).A.77K) 478 LM00111
14475 CAL -0 50000 0 10334 14476 STA +0 62100 0 14500 14477 CAL -0 50000 0 00024 14500 LGR -0 76500 0 00000
14501 ANA -0 32000 0 10341 14502 SLW +0 60200 0 14642 14503 TSX +0 07400 4 00033 14504 TXH +3 00000 0 14642
14505 STO +0 60100 0 14642 14506 CAL -0 50000 0 10336 14507 STA +0 62100 0 14511 14510 CAL -0 50000 0 00024
14511 LGR -0 76500 0 00000 14512 SLW +0 60200 0 14643 14513 TSX +0 07400 4 00033 14514 TXH +3 00000 0 14643
14515 STO +0 60100 0 14643 14516 CAL -0 50000 0 10330 14517 STA +0 62100 0 14521 14520 CAL -0 50000 0 14643
14521 ALS +0 76700 0 00000 14522 ORA -0 50100 0 10354 14523 ORA -0 50100 0 14642 14524 SLW +0 60200 0 00024
ARG3 = (TSSASC.((ARG1.RS.18).A.77K).LS.27) 479 LM00112
1 .V. (TSSASC.((ARG1.RS.12).A.77K).LS.18) 479 LM00113
2 .V. (TSSASC.((ARG1.RS.6).A.77K) .LS. 9) 479 LM00114
3 .V. TSSASC.(ARG1.A.77K) 479 LM00115
14525 CAL -0 50000 0 00024 14526 ANA -0 32000 0 10341 14527 SLW +0 60200 0 14643 14530 TSX +0 07400 4 00033
14531 TXH +3 00000 0 14643 14532 STO +0 60100 0 14643 14533 CAL -0 50000 0 10326 14534 STA +0 62100 0 14536
14535 CAL -0 50000 0 00024 14536 LGR -0 76500 0 00000 14537 ANA -0 32000 0 10341 14540 SLW +0 60200 0 14642
14541 TSX +0 07400 4 00033 14542 TXH +3 00000 0 14642 14543 STO +0 60100 0 14642 14544 CAL -0 50000 0 10330
14545 STA +0 62100 0 14547 14546 CAL -0 50000 0 14642 14547 ALS +0 76700 0 00000 14550 SLW +0 60200 0 14642
14551 CAL -0 50000 0 10331 14552 STA +0 62100 0 14554 14553 CAL -0 50000 0 00024 14554 LGR -0 76500 0 00000
14555 ANA -0 32000 0 10341 14556 SLW +0 60200 0 14644 14557 TSX +0 07400 4 00033 14560 TXH +3 00000 0 14644
14561 STO +0 60100 0 14644 14562 CAL -0 50000 0 10332 14563 STA +0 62100 0 14565 14564 CAL -0 50000 0 14644
14565 ALS +0 76700 0 00000 14566 SLW +0 60200 0 14644 14567 CAL -0 50000 0 10332 14570 STA +0 62100 0 14572
14571 CAL -0 50000 0 00024 14572 LGR -0 76500 0 00000 14573 ANA -0 32000 0 10341 14574 SLW +0 60200 0 14645
14575 TSX +0 07400 4 00033 14576 TXH +3 00000 0 14645 14577 STO +0 60100 0 14645 14600 CAL -0 50000 0 10335
14601 STA +0 62100 0 14603 14602 CAL -0 50000 0 14645 14603 ALS +0 76700 0 00000 14604 ORA -0 50100 0 14644
14605 ORA -0 50100 0 14642 14606 ORA -0 50100 0 14643 14607 SLW +0 60200 0 00024
F'N 480 LM00116
14610 TRA +0 02000 0 14636
E'N 481 LM00117
14611 TSX +0 07400 4 00015 14612 PZE +0 00000 0 00001 14613 PZE +0 00000 0 00013 14614 PZE +0 00000 0 00005
14615 PZE +0 00000 0 00003 14616 PZE +0 00000 0 00011 14617 TXH +3 00000 0 00000 14620 SXD -0 63400 1 14617
14621 SXA +0 63400 4 14636 14622 CLA +0 50000 4 00001 14623 STA +0 62100 0 14477 14624 STA +0 62100 0 14510
14625 STA +0 62100 0 14525 14626 STA +0 62100 0 14535 14627 STA +0 62100 0 14553 14630 STA +0 62100 0 14571
14631 CLA +0 50000 4 00002 14632 STA +0 62100 0 14524 14633 CLA +0 50000 4 00003 14634 STA +0 62100 0 14607
14635 TRA +0 02000 2 00001 14636 AXT +0 77400 4 00000 14637 LXA +0 53400 2 14617 14640 LXD -0 53400 1 14617
14641 TRA +0 02000 4 00001
INTERNAL FUNCTION (ARG1,ARG2,ARG3) 482 LM00122
14646 TRA +0 02000 0 15030
E'O LCONV. 483 LM00123
14647 TRA +0 02000 0 14652 00050 TTR +0 02100 0 14650 14650 SXA +0 63400 2 15001 14651 TSX +0 07400 2 15001
ARG2 = (TSSASC.((ARG1.RS.30)).LS.27) 484 LM00124
1 .V. (TSSASC.((ARG1.RS.24).A.77K).LS.18) 484 LM00125
2 .V. (TSSASC.((ARG1.RS.18).A.77K).LS.9) 484 LM00126
3 .V. TSSASC.((ARG1.RS.12).A.77K) 484 LM00127
14652 CAL -0 50000 0 10331 14653 STA +0 62100 0 14655 14654 CAL -0 50000 0 00024 14655 LGR -0 76500 0 00000
14656 ANA -0 32000 0 10341 14657 SLW +0 60200 0 15024 14660 TSX +0 07400 4 00033 14661 TXH +3 00000 0 15024
14662 STO +0 60100 0 15024 14663 CAL -0 50000 0 10332 14664 STA +0 62100 0 14666 14665 CAL -0 50000 0 00024
14666 LGR -0 76500 0 00000 14667 ANA -0 32000 0 10341 14670 SLW +0 60200 0 15025 14671 TSX +0 07400 4 00033
14672 TXH +3 00000 0 15025 14673 STO +0 60100 0 15025 14674 CAL -0 50000 0 10330 14675 STA +0 62100 0 14677
14676 CAL -0 50000 0 15025 14677 ALS +0 76700 0 00000 14700 SLW +0 60200 0 15025 14701 CAL -0 50000 0 10334
14702 STA +0 62100 0 14704 14703 CAL -0 50000 0 00024 14704 LGR -0 76500 0 00000 14705 ANA -0 32000 0 10341
14706 SLW +0 60200 0 15026 14707 TSX +0 07400 4 00033 14710 TXH +3 00000 0 15026 14711 STO +0 60100 0 15026
14712 CAL -0 50000 0 10332 14713 STA +0 62100 0 14715 14714 CAL -0 50000 0 15026 14715 ALS +0 76700 0 00000
14716 SLW +0 60200 0 15026 14717 CAL -0 50000 0 10336 14720 STA +0 62100 0 14722 14721 CAL -0 50000 0 00024
14722 LGR -0 76500 0 00000 14723 SLW +0 60200 0 15027 14724 TSX +0 07400 4 00033 14725 TXH +3 00000 0 15027
14726 STO +0 60100 0 15027 14727 CAL -0 50000 0 10335 14730 STA +0 62100 0 14732 14731 CAL -0 50000 0 15027
14732 ALS +0 76700 0 00000 14733 ORA -0 50100 0 15026 14734 ORA -0 50100 0 15025 14735 ORA -0 50100 0 15024
14736 SLW +0 60200 0 00024
ARG3 = 040 040K .V. (TSSASC.((ARG1.RS.6).A.77K).LS.27) .V. 485 LM00128
1 (TSSASC.(ARG1.A.77K).LS.18) 485 LM00129
14737 CAL -0 50000 0 00024 14740 ANA -0 32000 0 10341 14741 SLW +0 60200 0 15027 14742 TSX +0 07400 4 00033
14743 TXH +3 00000 0 15027 14744 STO +0 60100 0 15027 14745 CAL -0 50000 0 10332 14746 STA +0 62100 0 14750
14747 CAL -0 50000 0 15027 14750 ALS +0 76700 0 00000 14751 SLW +0 60200 0 15027 14752 CAL -0 50000 0 10326
14753 STA +0 62100 0 14755 14754 CAL -0 50000 0 00024 14755 LGR -0 76500 0 00000 14756 ANA -0 32000 0 10341
14757 SLW +0 60200 0 15026 14760 TSX +0 07400 4 00033 14761 TXH +3 00000 0 15026 14762 STO +0 60100 0 15026
14763 CAL -0 50000 0 10335 14764 STA +0 62100 0 14766 14765 CAL -0 50000 0 15026 14766 ALS +0 76700 0 00000
14767 ORA -0 50100 0 10346 14770 ORA -0 50100 0 15027 14771 SLW +0 60200 0 00024
F'N 486 LM00130
14772 TRA +0 02000 0 15020
E'N 487 LM00131
14773 TSX +0 07400 4 00015 14774 PZE +0 00000 0 00001 14775 PZE +0 00000 0 00013 14776 PZE +0 00000 0 00005
14777 PZE +0 00000 0 00003 15000 PZE +0 00000 0 00011 15001 TXH +3 00000 0 00000 15002 SXD -0 63400 1 15001
15003 SXA +0 63400 4 15020 15004 CLA +0 50000 4 00001 15005 STA +0 62100 0 14654 15006 STA +0 62100 0 14665
15007 STA +0 62100 0 14703 15010 STA +0 62100 0 14721 15011 STA +0 62100 0 14737 15012 STA +0 62100 0 14754
15013 CLA +0 50000 4 00002 15014 STA +0 62100 0 14736 15015 CLA +0 50000 4 00003 15016 STA +0 62100 0 14771
15017 TRA +0 02000 2 00001 15020 AXT +0 77400 4 00000 15021 LXA +0 53400 2 15001 15022 LXD -0 53400 1 15001
15023 TRA +0 02000 4 00001
INTERNAL FUNCTION (ARG2,ARG3) 488 LM00136
15030 TRA +0 02000 0 15176
E'O CONVR. 489 LM00137
15031 TRA +0 02000 0 15034 00041 TTR +0 02100 0 15032 15032 SXA +0 63400 2 15150 15033 TSX +0 07400 2 15150
F'N (ASCTSS.(ARG2.RS.9).LS.30) .V. (ASCTSS.(ARG2).LS.24) .V. 490 LM00138
1 (ASCTSS.(ARG3.RS.27).LS.18) .V. 490 LM00139
2 (ASCTSS.(ARG3.RS.18).LS.12) .V. 490 LM00140
3 (ASCTSS.(ARG3.RS.9).LS.6) .V. ASCTSS.(ARG3) 490 LM00141
15034 TSX +0 07400 4 00000 15035 TXH +3 00000 0 00024 15036 STO +0 60100 0 15170 15037 CAL -0 50000 0 10330
15040 STA +0 62100 0 15042 15041 CAL -0 50000 0 00024 15042 LGR -0 76500 0 00000 15043 SLW +0 60200 0 15171
15044 TSX +0 07400 4 00000 15045 TXH +3 00000 0 15171 15046 STO +0 60100 0 15171 15047 CAL -0 50000 0 10326
15050 STA +0 62100 0 15052 15051 CAL -0 50000 0 15171 15052 ALS +0 76700 0 00000 15053 SLW +0 60200 0 15171
15054 CAL -0 50000 0 10332 15055 STA +0 62100 0 15057 15056 CAL -0 50000 0 00024 15057 LGR -0 76500 0 00000
15060 SLW +0 60200 0 15172 15061 TSX +0 07400 4 00000 15062 TXH +3 00000 0 15172 15063 STO +0 60100 0 15172
15064 CAL -0 50000 0 10331 15065 STA +0 62100 0 15067 15066 CAL -0 50000 0 15172 15067 ALS +0 76700 0 00000
15070 SLW +0 60200 0 15172 15071 CAL -0 50000 0 10335 15072 STA +0 62100 0 15074 15073 CAL -0 50000 0 00024
15074 LGR -0 76500 0 00000 15075 SLW +0 60200 0 15173 15076 TSX +0 07400 4 00000 15077 TXH +3 00000 0 15173
15100 STO +0 60100 0 15173 15101 CAL -0 50000 0 10332 15102 STA +0 62100 0 15104 15103 CAL -0 50000 0 15173
15104 ALS +0 76700 0 00000 15105 SLW +0 60200 0 15173 15106 TSX +0 07400 4 00000 15107 TXH +3 00000 0 00024
15110 STO +0 60100 0 15174 15111 CAL -0 50000 0 10334 15112 STA +0 62100 0 15114 15113 CAL -0 50000 0 15174
15114 ALS +0 76700 0 00000 15115 SLW +0 60200 0 15174 15116 CAL -0 50000 0 10330 15117 STA +0 62100 0 15121
15120 CAL -0 50000 0 00024 15121 LGR -0 76500 0 00000 15122 SLW +0 60200 0 15175 15123 TSX +0 07400 4 00000
15124 TXH +3 00000 0 15175 15125 STO +0 60100 0 15175 15126 CAL -0 50000 0 10336 15127 STA +0 62100 0 15131
15130 CAL -0 50000 0 15175 15131 ALS +0 76700 0 00000 15132 ORA -0 50100 0 15174 15133 ORA -0 50100 0 15173
15134 ORA -0 50100 0 15172 15135 ORA -0 50100 0 15171 15136 ORA -0 50100 0 15170 15137 SLW +0 60200 0 15175
15140 CLA +0 50000 0 15175 15141 TRA +0 02000 0 15164
E'N 491 LM00142
15142 TSX +0 07400 4 00015 15143 PZE +0 00000 0 00001 15144 PZE +0 00000 0 00013 15145 PZE +0 00000 0 00005
15146 PZE +0 00000 0 00003 15147 PZE +0 00000 0 00011 15150 TXH +3 00000 0 00000 15151 SXD -0 63400 1 15150
15152 SXA +0 63400 4 15164 15153 CLA +0 50000 4 00001 15154 STO +0 60100 0 15107 15155 STA +0 62100 0 15120
15156 CLA +0 50000 4 00002 15157 STO +0 60100 0 15035 15160 STA +0 62100 0 15041 15161 STA +0 62100 0 15056
15162 STA +0 62100 0 15073 15163 TRA +0 02000 2 00001 15164 AXT +0 77400 4 00000 15165 LXA +0 53400 2 15150
15166 LXD -0 53400 1 15150 15167 TRA +0 02000 4 00001
INTERNAL FUNCTION (ARG2,ARG3) 492 LM00147
15176 TRA +0 02000 0 15351
E'O CONVL. 493 LM00148
15177 TRA +0 02000 0 15202 00040 TTR +0 02100 0 15200 15200 SXA +0 63400 2 15323 15201 TSX +0 07400 2 15323
F'N (ASCTSS.(ARG2.RS.27).LS.30).V.(ASCTSS.(ARG2.RS.18).LS.24) 494 LM00149
1 .V. (ASCTSS.(ARG2.RS.9).LS.18) 494 LM00150
2 .V. (ASCTSS.(ARG2) .LS. 12) 494 LM00151
3 .V. (ASCTSS.(ARG3.RS.27).LS.6) 494 LM00152
4 .V. (ASCTSS.(ARG3.RS.18)) 494 LM00153
15202 CAL -0 50000 0 10332 15203 STA +0 62100 0 15205 15204 CAL -0 50000 0 00024 15205 LGR -0 76500 0 00000
15206 SLW +0 60200 0 15343 15207 TSX +0 07400 4 00000 15210 TXH +3 00000 0 15343 15211 STO +0 60100 0 15343
15212 CAL -0 50000 0 10335 15213 STA +0 62100 0 15215 15214 CAL -0 50000 0 00024 15215 LGR -0 76500 0 00000
15216 SLW +0 60200 0 15344 15217 TSX +0 07400 4 00000 15220 TXH +3 00000 0 15344 15221 STO +0 60100 0 15344
15222 CAL -0 50000 0 10326 15223 STA +0 62100 0 15225 15224 CAL -0 50000 0 15344 15225 ALS +0 76700 0 00000
15226 SLW +0 60200 0 15344 15227 TSX +0 07400 4 00000 15230 TXH +3 00000 0 00024 15231 STO +0 60100 0 15345
15232 CAL -0 50000 0 10331 15233 STA +0 62100 0 15235 15234 CAL -0 50000 0 15345 15235 ALS +0 76700 0 00000
15236 SLW +0 60200 0 15345 15237 CAL -0 50000 0 10330 15240 STA +0 62100 0 15242 15241 CAL -0 50000 0 00024
15242 LGR -0 76500 0 00000 15243 SLW +0 60200 0 15346 15244 TSX +0 07400 4 00000 15245 TXH +3 00000 0 15346
15246 STO +0 60100 0 15346 15247 CAL -0 50000 0 10332 15250 STA +0 62100 0 15252 15251 CAL -0 50000 0 15346
15252 ALS +0 76700 0 00000 15253 SLW +0 60200 0 15346 15254 CAL -0 50000 0 10332 15255 STA +0 62100 0 15257
15256 CAL -0 50000 0 00024 15257 LGR -0 76500 0 00000 15260 SLW +0 60200 0 15347 15261 TSX +0 07400 4 00000
15262 TXH +3 00000 0 15347 15263 STO +0 60100 0 15347 15264 CAL -0 50000 0 10334 15265 STA +0 62100 0 15267
15266 CAL -0 50000 0 15347 15267 ALS +0 76700 0 00000 15270 SLW +0 60200 0 15347 15271 CAL -0 50000 0 10335
15272 STA +0 62100 0 15274 15273 CAL -0 50000 0 00024 15274 LGR -0 76500 0 00000 15275 SLW +0 60200 0 15350
15276 TSX +0 07400 4 00000 15277 TXH +3 00000 0 15350 15300 STO +0 60100 0 15350 15301 CAL -0 50000 0 10336
15302 STA +0 62100 0 15304 15303 CAL -0 50000 0 15350 15304 ALS +0 76700 0 00000 15305 ORA -0 50100 0 15347
15306 ORA -0 50100 0 15346 15307 ORA -0 50100 0 15345 15310 ORA -0 50100 0 15344 15311 ORA -0 50100 0 15343
15312 SLW +0 60200 0 15350 15313 CLA +0 50000 0 15350 15314 TRA +0 02000 0 15337
E'N 495 LM00154
15315 TSX +0 07400 4 00015 15316 PZE +0 00000 0 00001 15317 PZE +0 00000 0 00013 15320 PZE +0 00000 0 00005
15321 PZE +0 00000 0 00003 15322 PZE +0 00000 0 00011 15323 TXH +3 00000 0 00000 15324 SXD -0 63400 1 15323
15325 SXA +0 63400 4 15337 15326 CLA +0 50000 4 00001 15327 STO +0 60100 0 15230 15330 STA +0 62100 0 15241
15331 STA +0 62100 0 15256 15332 STA +0 62100 0 15273 15333 CLA +0 50000 4 00002 15334 STA +0 62100 0 15204
15335 STA +0 62100 0 15214 15336 TRA +0 02000 2 00001 15337 AXT +0 77400 4 00000 15340 LXA +0 53400 2 15323
15341 LXD -0 53400 1 15323 15342 TRA +0 02000 4 00001
END OF PROGRAM 496 LM00301
15351 TSX +0 07400 4 00015
1 ARCHV MAP
1PAGE 1 NUMERIC STORAGE MAP OF ARCHV
NAME ORIGIN ENTRY NAME ORIGIN ENTRY NAME ORIGIN ENTRY NAME ORIGIN ENTRY
(MAIN) 00030 10542 TSSASC 15406 15410 ASCTSS 15406 15412 PRMESA 15627 15635
PRMESS 15627 15633 .SETUP 15751 15773 ENDJOB 15751 15757 EXITM 15751 15757
EXIT 15751 15754 DELETE 16006 16007 OFFON 16162 16421 OFF 16162 16423
ON 16162 16406 SLEEP 16162 16342 DEAD 16162 16337 DORMNT 16162 16334
NEXCOM 16162 16326 CHNCOM 16162 16323 WRFLXA 16162 16173 WRFLX 16162 16167
SSPRNT 16162 16456 FSTATE 17446 17446 UPDATE 17450 17455 CLOSE 17450 17454
BUFFER 17450 17453 FWAIT 17450 17452 FCHECK 17450 17451 OPEN 17450 17450
WHOAMI 17464 17464 WRWAIT 17466 17467 WRFILE 17466 17466 .PCOMT 17472 17476
BFCLOS 17526 20150 BFCODE 17526 20144 BFWRIT 17526 17707 BFREAD 17526 17704
BFOPEN 17526 17540 COMARG 20412 20416 RDFLXC 20446 20453 RDFLXB 20446 20452
GETTM 20631 20634 GETTIM 20631 20632 PRNTER 20717 20722 GNAM 22231 22233
DERBC 22351 22356 DELBC 22351 22353 DEFBC 22351 22361 OCLBC 22401 22413
OCRBC 22401 22416 OCDBC 22401 22403 OCABC 22401 22406 BCDEC 22437 22441
BZEL 22463 22465 COLT 22505 22507 RDWAIT 22607 22610 RDFILE 22607 22607
DELFIL 22613 22614 CHFILE 22613 22613 IODIAG 22617 22617 SAVBRK 22621 22623
SETBRK 22621 22622 GETBRK 22621 22621 GETCOM 22627 22627 GETIME 22631 22631
RDFLXA 22633 22633
1PAGE 2 ALPHABETIC STORAGE MAP OF ARCHV
NAME ORIGIN ENTRY NAME ORIGIN ENTRY NAME ORIGIN ENTRY NAME ORIGIN ENTRY
ON 16162 16406 OFF 16162 16423 BZEL 22463 22465 COLT 22505 22507
DEAD 16162 16337 EXIT 15751 15754 GNAM 22231 22233 OPEN 17450 17450
BCDEC 22437 22441 CLOSE 17450 17454 DEFBC 22351 22361 DELBC 22351 22353
DERBC 22351 22356 EXITM 15751 15757 FWAIT 17450 17452 GETTM 20631 20634
OCABC 22401 22406 OCDBC 22401 22403 OCLBC 22401 22413 OCRBC 22401 22416
OFFON 16162 16421 SLEEP 16162 16342 WRFLX 16162 16167 ASCTSS 15406 15412
BFCLOS 17526 20150 BFCODE 17526 20144 BFOPEN 17526 17540 BFREAD 17526 17704
BFWRIT 17526 17707 BUFFER 17450 17453 CHFILE 22613 22613 CHNCOM 16162 16323
COMARG 20412 20416 DELETE 16006 16007 DELFIL 22613 22614 DORMNT 16162 16334
ENDJOB 15751 15757 FCHECK 17450 17451 FSTATE 17446 17446 GETBRK 22621 22621
GETCOM 22627 22627 GETIME 22631 22631 GETTIM 20631 20632 IODIAG 22617 22617
.PCOMT 17472 17476 .SETUP 15751 15773 NEXCOM 16162 16326 PRMESA 15627 15635
PRMESS 15627 15633 PRNTER 20717 20722 RDFILE 22607 22607 RDFLXA 22633 22633
RDFLXB 20446 20452 RDFLXC 20446 20453 RDWAIT 22607 22610 SAVBRK 22621 22623
SETBRK 22621 22622 SSPRNT 16162 16456 TSSASC 15406 15410 UPDATE 17450 17455
WHOAMI 17464 17464 WRFILE 17466 17466 WRFLXA 16162 16173 WRWAIT 17466 17467
22401 00030 10542
MEMORY BOUND IS 22635
ADMIN BCD 05/12/69 2008.5 83791 00000
1 MAD PROGRAM LISTING ... ... ... FILE ADMIN MAD 04/27/69 0852.4
-
ADMIN * ADMINISTRATIVE PRIVLEGED COMMANDS LM00001
* LM00002
* WRITTEN BY R. A. ROACH MARCH 1969 LM00003
* LM00004
* ONLY M1416 USERS WITH EITHER PATCH PRIVILEGES OR LM00005
* 16 PRIVILEGES MAY HAVE ACCESS TO ADMIN'S FUNCTIONS. LM00006
* (EXCEPT THE OPERATOR (C33 960) MAY USE HELLO.) LM00007
* LM00008
* FOR A LIST OF THE AVAILABLE FUNCTIONS: LM00009
* ADMIN (HELP) LM00010
* LM00011
* FOR THE CORRECT USAGE OF A FUNCTION: LM00012
* ADMIN FUNCT (HELP) LM00013
* LM00014
* WHEN 'USER' IS A POSSIBLE ARGUMENT, IT MAY LM00015
* BE SPECIFIED IN ANY OF THREE DIFFERENT WAYS: LM00016
* 1. NONE - ASSUMES CURRENT USER LM00017
* 2. PROB PROG LM00018
* 3. LINE NO. LM00019
* LM00020
* LM00021
* LOADING INSTRUCTIONS: LM00022
* LAED NCLOAD ADMIN ADUTIL DELTEM (SRCH) XLIBE LM00023
* LM00024
* LM00025
* CONSTANTS AND STORAGE DECLARATIONS LM00026
* LM00027
DIMENSION B1(0), B2(0), B3(0), B4(0), B5(0) *001 LM00028
DIMENSION WHO(3), ME(1), PROB(1), COMBUF(20) *002 LM00029
DIMENSION PROBN(0), PROGN(0), TUCARD(27) *003 LM00030
DIMENSION TEMP(7) *004 LM00031
* LM00032
EQUIVALENCE (PROG,PROB(1)), (SLPCMD,FENCE) *005 LM00033
EQUIVALENCE (T0,TEMP(0)), (T1,TEMP(1)), (T2,TEMP(2)), (T3,TEMP(3)) *006 LM00034
EQUIVALENCE (T4,TEMP(4)), (T5,TEMP(5)), (T6,TEMP(6)), (T7,TEMP(7)) *007 LM00035
* LM00036
VECTOR VALUES STAR = $ *$ *008 LM00037
VECTOR VALUES M0 = -0 *009 LM00038
VECTOR VALUES M1 = -1 *010 LM00039
VECTOR VALUES M2 = -2 *011 LM00040
VECTOR VALUES M = 0 *012 LM00041
VECTOR VALUES TEMP(0)...TEMP(7) = 0 *013 LM00042
* LM00043
VECTOR VALUES MFD = $M.F.D.$ *014 LM00044
VECTOR VALUES FILE = $(FILE)$ *015 LM00045
VECTOR VALUES M1416 = $ M1416$ *016 LM00046
VECTOR VALUES CMFL02 = $CMFL02$ *017 LM00047
VECTOR VALUES TU = $TIMUSD$ *018 LM00048
VECTOR VALUES TA = $TIMACC$ *019 LM00049
VECTOR VALUES R = $R$ *020 LM00050
VECTOR VALUES W = $W$ *021 LM00051
VECTOR VALUES N = $N$ *022 LM00052
VECTOR VALUES ALL = $ALL $ *023 LM00053
VECTOR VALUES USER = $USER $ *024 LM00054
VECTOR VALUES COMMND = $COMMND$ *025 LM00055
VECTOR VALUES PROBN = $PROBN $ *026 LM00056
VECTOR VALUES PROGN = $PROGN $ *027 LM00057
VECTOR VALUES UNAME = $UNAME $ *028 LM00058
VECTOR VALUES USROPT = $USROPT$ *029 LM00059
VECTOR VALUES URCODE = $URCODE$ *030 LM00060
VECTOR VALUES RCODE = $RCODE $ *031 LM00061
VECTOR VALUES NINTBT = $NINTBT$ *032 LM00062
VECTOR VALUES RCALBT = $RCALBT$ *033 LM00063
VECTOR VALUES RPROBT = $RPROBT$ *034 LM00064
VECTOR VALUES RPRVBT = $RPRVBT$ *035 LM00065
VECTOR VALUES RPATBT = $RPATBT$ *036 LM00066
VECTOR VALUES STRTIM = $STRTIM$ *037 LM00067
VECTOR VALUES WRKTIM = $WRKTIM$ *038 LM00068
VECTOR VALUES TIMNOW = $TIMNOW$ *039 LM00069
VECTOR VALUES UNITID = $UNITID$ *040 LM00070
VECTOR VALUES TAU1 = $TAU1 $ *041 LM00071
VECTOR VALUES TAU5 = $TAU5 $ *042 LM00072
VECTOR VALUES ADOPT = $ADOPT $ *043 LM00073
VECTOR VALUES MESGPT = $MESGPT$ *044 LM00074
VECTOR VALUES SYSMSG = $SYSMSG$ *045 LM00075
VECTOR VALUES FSTST = $FS.TST$ *046 LM00076
VECTOR VALUES SAVING = $SAVING$ *047 LM00077
* LM00078
* LM00079
VECTOR VALUES HELP = $(HELP)$ *048 LM00080
VECTOR VALUES X = $'X$ *049 LM00081
VECTOR VALUES ADMIN = $ 'UADMIN '8$ *050 LM00082
VECTOR VALUES RED = $'R'8$ *051 LM00083
VECTOR VALUES BLACK = $'B'8$ *052 LM00084
VECTOR VALUES ON = $ ON 'X$ *053 LM00085
VECTOR VALUES BL = $ '8$ *054 LM00086
VECTOR VALUES KEY22 = 000000K *055 LM00087
* ... CHANGE TO 20000K TO MAKE EFFECTIVE ... LM00088
VECTOR VALUES NULLS = 575757575757K *056 LM00089
* LM00090
VECTOR VALUES SLPCMD = 777777777777K, $YES$, $.$ *057 LM00091
* LM00092
* LM00093
* LM00094
* INITIALIZATION LM00095
* LM00096
NORMAL MODE IS INTEGER *058 LM00097
WHOAMI.(WHO(3)...4) *059 LM00098
ATTNAM.(ME(1)...2) *060 LM00099
GETTM.(DATE,TIME) *061 LM00100
FERRTN.(IOERR) *062 LM00101
SETBRK.(OUT) *063 LM00102
PCTL.(1) *064 LM00103
* LM00104
USER = GLOC.(COMMON.(USER)) *065 LM00105
* LM00106
* SET COMMAND NAME TO ZERO TO HIDE IT - LM00107
SLOC.(0,COMMON.(COMMND)+USER) *066 LM00108
* LM00109
RCODE = GLOC.(COMMON.(RCODE)+USER) *067 LM00110
RPATBT = COMMON.(RPATBT) *068 LM00111
RCALBT = COMMON.(RCALBT) *069 LM00112
RPROBT = COMMON.(RPROBT) *070 LM00113
RPRVBT = COMMON.(RPRVBT) *071 LM00114
* LM00115
NINTBT = COMMON.(NINTBT).LS.18 *072 LM00116
USROPT = COMMON.(USROPT)+USER *073 LM00117
N = COMMON.(N) *074 LM00118
* LM00119
GCLS.(COMBUF,0) *075 LM00120
WHENEVER COMBUF.E.$ ADMIN$, M = 1 *076 LM00121
* LM00122
* TEST FOR OK USER LM00123
* LM00124
WHENEVER COMBUF(M).E.$ HELLO$ .AND. WHO(3).E.$ C0033$ .AND. *077 LM00125
1 WHO(2) .E. $ 960$, TRANSFER TO USEROK *077 LM00126
BITS = RCALBT.V.RPROBT.V.RPRVBT *078 LM00127
WHENEVER WHO(3).E.M1416 .AND. (RCODE.A.BITS.E.BITS .OR. RCODE.A. *079 LM00128
1 RPATBT.E.RPATBT), TRANSFER TO USEROK *079 LM00129
* LM00130
* OTHERWISE, PRETEND THAT ADMIN DOESN'T EXIST LM00131
TSK. *080 LM00132
* LM00133
USEROK WHENEVER COMBUF(M).E.HELP .OR. COMBUF(M).E.FENCE *081 LM00134
PRFULL.($'* 'R'1CORRECT USAGE IS:'B'*'*'8$, *082 LM00135
1 $ '5ADMIN FUNCTION ARGS'*'*'8$, *082 LM00136
2 $WHERE THE FUNCTION MAY BE ANY OF THE FOLLOWING:'*'8$) *082 LM00137
* LM00138
PRFULL.(FMT1...100,FMT2...100) *083 LM00139
* LM00140
VECTOR VALUES FMT1 = *084 LM00141
1 $'6CNDRLA - CLEARS ALL PRESENT USERS TAU VECTORS (36)'*'8$, *084 LM00142
2 $'4COPY - COPY ACCOUNTING FILES FROM '4CMFL02 (10)'*'8$, *084 LM00143
3 $'6DELALL - DELETES ALL FILES FROM A DIRECTORY'*'8$, *084 LM00144
4 $'6DELTEM - DELETES TEMPORARY FILES FROM A DIRECTORY'*'8$, *084 LM00145
5 $'5ERASE - ELIMINATES A FILE DIRECTORY'*'8$, *084 LM00146
6 $'5HELLO - MODIFIES DIALUP MESSAGE'*'8$, *084 LM00147
7 $'5INPUT - ENTER A LINE INTO A USER''S INPUT BUFFER'*'8$, *084 LM00148
8 $'4KILL - LOGS A USER OUT'*'8$, *084 LM00149
9 $'5MONTH - UPDATE AND RESET TIMUSD (36)'*'8$,777777777777K *084 LM00150
* LM00151
VECTOR VALUES FMT2 = *085 LM00152
1 $'5PATCH - PATCHES CORE '1A (20)'*'8$, *085 LM00153
2 $'2PB - ASSIGNS A PERCENTAGE TO A USER'*'8$, *085 LM00154
3 $'6PRNTON - PRINT MESSAGE ONLINE'*'8$, *085 LM00155
4 $'6RDTIMU - PRINT TIME USED BY A USER'*'8$, *085 LM00156
5 $'6SETTAU - RESET A '3TAU VECTOR OF A USER'*'8$, *085 LM00157
6 $'3SPY - SPY ON A USER'*'8$, *085 LM00158
7 $'6SQZUFD - COMPACT A 'UU.F.D.'L'*'8$, *085 LM00159
8 $'6UPATCH - PATCH ARRAY ENTRY OF PRESENT USER (20)'*'8$, *085 LM00160
9 $'6UPDATE - UPDATE '4CMFL02 WITH ACCOUNTING FILES(10)'*'8$, *085 LM00161
0 $'5WRITE - WRITE A MESSAGE AT A USER'*'8$,777777777777K *085 LM00162
* LM00163
PRFULL.($'1FOR THE CORRECT USAGE OF A FUNCTION:'*'*'8$, *086 LM00164
1 $ '5ADMIN FUNCT 'U(HELP)$) *086 LM00165
* LM00166
* LM00167
* LM00168
* LM00169
* ********************************************************** LM00170
* ********************************************************** LM00171
* ********************************************************** LM00172
* LM00173
* CNDRLA LM00174
* LM00175
* ********************************************************** LM00176
* ********************************************************** LM00177
* ********************************************************** LM00178
* LM00179
CNDRLA * RESET THE TAU VECTORS(USED) OF ALL USERS LOGGED IN. LM00180
* LM00181
* USAGE: ADMIN CNDRLA LM00182
* LM00183
EQUIVALENCE (T0,MAXI), (T6,TAULOC) *087 LM00184
* LM00185
OR WHENEVER COMBUF(M) .E. $CNDRLA$ *088 LM00186
M = M+1 *089 LM00187
WHENEVER COMBUF(M) .E. HELP *090 LM00188
PRFULL.(ADMIN...2,CURCOM.(0)) *091 LM00189
OTHERWISE *092 LM00190
WHENEVER COMBUF(M).NE.FENCE, TRANSFER TO ERR1 *093 LM00191
CHKPRV.(BITS.V.RPATBT) *094 LM00192
MAXI = 5 * (N+1) *095 LM00193
TAULOC = COMMON.(TAU5) *096 LM00194
* LM00195
PCTL.(3) *097 LM00196
PRFULL.(X,WHO(3)...M2,$ RESETTING TIMUSD.$) *098 LM00197
PCTL.(1) *099 LM00198
* LM00199
* M1416 4301 RESETTING TIMUSD. LM00200
* LM00201
NONINT. *100 LM00202
THROUGH CND1, FOR I = 0,1,I.G.MAXI *101 LM00203
CND1 SLOC.(GLOC.(TAULOC+I).A.77776K7,TAULOC+I) *102 LM00204
INT. *103 LM00205
END OF CONDITIONAL *104 LM00206
* LM00207
* LM00208
* LM00209
* ********************************************************** LM00210
* ********************************************************** LM00211
* ********************************************************** LM00212
* LM00213
* COPY LM00214
* LM00215
* ********************************************************** LM00216
* ********************************************************** LM00217
* ********************************************************** LM00218
* LM00219
COPY * COPY AN ACCOUNTING FILE FROM M1416 CMFL02 LM00220
* LM00221
* USAGE: ADMIN COPY N1 -N2- -N3- -N4- LM00222
* LM00223
EQUIVALENCE (T0,N1), (T1,N2), (T2,N3), (T3,N4), (T7,MODE) *105 LM00224
* LM00225
OR WHENEVER COMBUF(M) .E. $ COPY$ *106 LM00226
M = M+1 *107 LM00227
WHENEVER COMBUF(M) .E. HELP *108 LM00228
PRFULL.(ADMIN...2,CURCOM.(0),$ N1 -N2- -N3- -N4-$) *109 LM00229
OTHERWISE *110 LM00230
N1 = COMBUF(M) *111 LM00231
N2 = COMBUF(M+1) *112 LM00232
N3 = COMBUF(M+2) *113 LM00233
N4 = COMBUF(M+3) *114 LM00234
WHENEVER N2 .E. FENCE *115 LM00235
N2 = TA *116 LM00236
N3 = N1 *117 LM00237
N4 = N2 *118 LM00238
OR WHENEVER N3 .E. FENCE *119 LM00239
N3 = N1 *120 LM00240
N4 = N2 *121 LM00241
OR WHENEVER N4 .E. FENCE *122 LM00242
N4 = N2 *123 LM00243
OR WHENEVER N1 .E. FENCE *124 LM00244
TRANSFER TO ERR2 *125 LM00245
OR WHENEVER COMBUF(M+4).NE. FENCE *126 LM00246
M = M+4 *127 LM00247
TRANSFER TO ERR1 *128 LM00248
END OF CONDITIONAL *129 LM00249
M = M+4 *130 LM00250
WHENEVER ME(1).E.M1416 .AND. ME.E.CMFL02 .AND. *131 LM00251
1 N3.E.N1 .AND. N4.E.N2, TRANSFER TO ERR0 *131 LM00252
CHKPRV.(RPRVBT) *132 LM00253
* LM00254
... GET RID OF PREVIOUS DATE TIME LM00255
UNLINK.(DATE,TIME,NULL.) *133 LM00256
CHFILE.(DATE,TIME,1,M0,M0,NULL.) *134 LM00257
DELFIL.(DATE,TIME,NULL.) *135 LM00258
OPEN.(W,DATE,TIME,120K) *136 LM00259
GETBUF.(B1,432) *137 LM00260
GETBUF.(B2,432) *138 LM00261
GETBUF.(B3,432) *139 LM00262
GETBUF.(B4,432) *140 LM00263
BUFFER.(DATE,TIME,B4(B4+432)...432) *141 LM00264
ATTACH.(M1416,CMFL02) *142 LM00265
NONINT. *143 LM00266
OPEN.(R,N1,N2) *144 LM00267
COPY.(N1,N2,DATE,TIME,B1(B1+432),B2(B2+432),B3(B3+432), *145 LM00268
1 432,IOERR) *145 LM00269
CLOSE.(N1,N2) *146 LM00270
INT. *147 LM00271
CLOSE.(DATE,TIME) *148 LM00272
ATTACH.(ME(1),ME) *149 LM00273
MODE = 124K *150 LM00274
FSTATE.(N3,N4,TUCARD(1)...2,CPY1) *151 LM00275
MODE = TUCARD.A.777K *152 LM00276
CPY1 UNLINK.(N3,N4,NULL.) *153 LM00277
CHFILE.(N3,N4,1,M0,M0,NULL.) *154 LM00278
DELFIL.(N3,N4,NULL.) *155 LM00279
CHFILE.(DATE,TIME,MODE,N3,N4) *156 LM00280
END OF CONDITIONAL *157 LM00281
* LM00282
* LM00283
* ********************************************************** LM00284
* ********************************************************** LM00285
* ********************************************************** LM00286
* LM00287
* DELALL LM00288
* LM00289
* ********************************************************** LM00290
* ********************************************************** LM00291
* ********************************************************** LM00292
* LM00293
DELALL * DELETE ALL OF A USER'S FILES AND HIS UFD. LM00294
* LM00295
* USAGE: ADMIN DELALL USER LM00296
* LM00297
OR WHENEVER COMBUF(M) .E. $DELALL$ *158 LM00298
M = M+1 *159 LM00299
WHENEVER COMBUF(M) .E. HELP *160 LM00300
PRFULL.(ADMIN...2,CURCOM.(0),$ 'LUSER$) *161 LM00301
OTHERWISE *162 LM00302
GETUSR.(ERR3,DEL0,ERR5) *163 LM00303
DEL0 ATTACH.(PROB,PROG) *164 LM00304
DELALL. *165 LM00305
TRANSFER TO ERASE0 *166 LM00306
END OF CONDITIONAL *167 LM00307
* LM00308
* LM00309
* LM00310
* ********************************************************** LM00311
* ********************************************************** LM00312
* ********************************************************** LM00313
* LM00314
* DELTEM LM00315
* LM00316
* ********************************************************** LM00317
* ********************************************************** LM00318
* ********************************************************** LM00319
* LM00320
DELTEM * DELETE TEMPORARY FILES OF A USER LM00321
* LM00322
* USAGE: ADMIN DELTEM USER LM00323
* LM00324
OR WHENEVER COMBUF(M) .E. $DELTEM$ *168 LM00325
M = M+1 *169 LM00326
WHENEVER COMBUF(M) .E. HELP *170 LM00327
PRFULL.(ADMIN...2,CURCOM.(0),$ 'LUSER$) *171 LM00328
OTHERWISE *172 LM00329
GETUSR.(ERR3,DEL1,ERR5) *173 LM00330
DEL1 ATTACH.(PROB,PROG) *174 LM00331
DELTEM. *175 LM00332
END OF CONDITIONAL *176 LM00333
* LM00334
* LM00335
* LM00336
* ********************************************************** LM00337
* ********************************************************** LM00338
* ********************************************************** LM00339
* LM00340
* ERASE LM00341
* LM00342
* ********************************************************** LM00343
* ********************************************************** LM00344
* ********************************************************** LM00345
* LM00346
ERASE * ERASE A UFD FROM THE SYSTEM LM00347
* LM00348
* USAGE: ADMIN ERASE USER LM00349
* LM00350
OR WHENEVER COMBUF(M) .E. $ ERASE$ *177 LM00351
M = M+1 *178 LM00352
WHENEVER COMBUF(M) .E. HELP *179 LM00353
PRFULL.(ADMIN...2,CURCOM.(0),$ 'LUSER$) *180 LM00354
OTHERWISE *181 LM00355
GETUSR.(ERR3,ERASE0,ERR5) *182 LM00356
ERASE0 ATTACH.(PROB,PROG) *183 LM00357
ALLOT.(1,0,0) *184 LM00358
ALLOT.(2,0,0) *185 LM00359
ALLOT.(3,0,0) *186 LM00360
DELMFD.(PROB,PROG) *187 LM00361
END OF CONDITIONAL *188 LM00362
* LM00363
* LM00364
* LM00365
* ********************************************************** LM00366
* ********************************************************** LM00367
* ********************************************************** LM00368
* LM00369
* HELLO LM00370
* LM00371
* ********************************************************** LM00372
* ********************************************************** LM00373
* ********************************************************** LM00374
* LM00375
HELLO * UPDATE/RESET THE DIALUP MESSAGE LM00376
* LM00377
* USAGE: ADMIN HELLO ARG LM00378
* LM00379
* WHERE ARG MAY BE: LM00380
* 1. NOTHING - SETS NEXT COMEDOWN MESSAGE LM00381
* 2. 'NEWMES' - ALLOWS NEW MESSAGE TO BE TYPED IN LM00382
* 3. 'RESET' - RESETS MESSAGE SWITCH TO KEEP IT FROM BEING LM00383
* PRINTED UPON A DIALUP. LM00384
* LM00385
EQUIVALENCE (HELMES(13),TUCARD(13)) *189 LM00386
VECTOR VALUES HELMES = $NEXT COMEDOW$ *190 LM00387
VECTOR VALUES HELMES(2) = 453560575757K *191 LM00388
* LM00389
OR WHENEVER COMBUF(M) .E. $ HELLO$ *192 LM00390
M = M+1 *193 LM00391
WHENEVER COMBUF(M) .E. HELP *194 LM00392
PRFULL.(FMT4...100) *195 LM00393
VECTOR VALUES FMT4 = $ 'UADMIN HELLO 'LARG'*'8$, *196 LM00394
1 $WHERE '=ARG'= MAY BE:'*'8$, *196 LM00395
2 $ 1. NONE - SETS 'U'=NEXT COMDOWN:'='L MESSAGE'*'8$, *196 LM00396
3 $ 2. '='6NEWMES'= - ALLOWS COMPLETELY NEW MESSAGE'*'8$, *196 LM00397
4 $ 3. '='5RESET'= - RESETS MESSAGE SWITCH$,777777777777K *196 LM00398
* LM00399
OTHERWISE *197 LM00400
MESGPT = COMMON.(MESGPT) *198 LM00401
SYSMSG = COMMON.(SYSMSG) *199 LM00402
WHENEVER COMBUF(M) .E. $NEWMES$ *200 LM00403
PRFULA.($'R'1TYPE: 'B'8$) *201 LM00404
RDFLXC.(HELMES,84) *202 LM00405
OR WHENEVER COMBUF(M) .E. $ RESET$ *203 LM00406
SLOC.(0,MESGPT) *204 LM00407
TRANSFER TO OUT *205 LM00408
OR WHENEVER COMBUF(M) .E. FENCE *206 LM00409
PRFULA.($'R'X$,HELMES...3,$'B'8$) *207 LM00410
RDFLXC.(HELMES(3),66) *208 LM00411
OTHERWISE *209 LM00412
TRANSFER TO ERR1 *210 LM00413
END OF CONDITIONAL *211 LM00414
THROUGH HEL1, FOR I = 0,1,I.G.13 *212 LM00415
HEL1 SLOC.(HELMES(I),SYSMSG+I) *213 LM00416
SLOC.(16K6.V.SYSMSG,MESGPT) *214 LM00417
END OF CONDITIONAL *215 LM00418
* LM00419
* LM00420
* LM00421
* ********************************************************** LM00422
* ********************************************************** LM00423
* ********************************************************** LM00424
* LM00425
* INPUT LM00426
* LM00427
* ********************************************************** LM00428
* ********************************************************** LM00429
* ********************************************************** LM00430
* LM00431
INPUT * INPUT A LINE TO A USER'S INPUT BUFFER LM00432
* LM00433
* USAGE: ADMIN INPUT USER -(DRMT)- LM00434
* LM00435
DIMENSION INPMES(14) *216 LM00436
EQUIVALENCE (INPMES,TACARD), (DRMTSW,T0) *217 LM00437
BOOLEAN DRMTSW *218 LM00438
* LM00439
OR WHENEVER COMBUF(M) .E. $ INPUT$ *219 LM00440
M = M+1 *220 LM00441
WHENEVER COMBUF(M) .E. HELP *221 LM00442
PRFULL.(ADMIN...2,CURCOM.(0),$ '4USER -(DRMT)-$) *222 LM00443
OTHERWISE *223 LM00444
GETUSR.(ERR3,ERR4,INP1) *224 LM00445
INP1 WHENEVER COMBUF(M) .E. $(DRMT)$ *225 LM00446
DRMTSW = 1B *226 LM00447
OR WHENEVER COMBUF(M) .E. FENCE *227 LM00448
DRMTSW = 0B *228 LM00449
OTHERWISE *229 LM00450
TRANSFER TO ERR1 *230 LM00451
END OF CONDITIONAL *231 LM00452
PRFULA.($'R'1TYPE: 'B'8$) *232 LM00453
RDFLXA.(INPMES(14)...14) *233 LM00454
NONINT. *234 LM00455
WHENEVER DRMTSW *235 LM00456
RSSWB.(USR) *236 LM00457
SCHEDL.(2,USR,1) *237 LM00458
END OF CONDITIONAL *238 LM00459
ENTLIN.(INPMES(14)...14,USR,ERR7) *239 LM00460
INT. *240 LM00461
END OF CONDITIONAL *241 LM00462
* LM00463
* LM00464
* LM00465
* ********************************************************** LM00466
* ********************************************************** LM00467
* ********************************************************** LM00468
* LM00469
* KILL LM00470
* LM00471
* ********************************************************** LM00472
* ********************************************************** LM00473
* ********************************************************** LM00474
* LM00475
KILL * LOG A USER OUT LM00476
* LM00477
* USAGE: ADMIN KILL USER LM00478
* LM00479
OR WHENEVER COMBUF(M) .E. $ KILL$ *242 LM00480
M = M+1 *243 LM00481
WHENEVER COMBUF(M) .E. HELP *244 LM00482
PRFULL.(ADMIN...2,CURCOM.(0),$ 'LUSER$) *245 LM00483
OTHERWISE *246 LM00484
GETUSR.(ERR3,ERR4,ERR5) *247 LM00485
WHENEVER COMBUF(M).NE.FENCE, TRANSFER TO ERR1 *248 LM00486
PCTL.(3) *249 LM00487
PRFULL.(X,WHO(3)...M2,ON,WHO,$ KILLING'X$, *250 LM00488
1 PROB...2,$.$) *250 LM00489
PCTL.(1) *251 LM00490
* LM00491
* M1416 4301 0N 800251 KILLING M1416 9324. LM00492
* LM00493
KILL.(USR) *252 LM00494
END OF CONDITIONAL *253 LM00495
* LM00496
* LM00497
* LM00498
* ********************************************************** LM00499
* ********************************************************** LM00500
* ********************************************************** LM00501
* LM00502
* MONTH LM00503
* LM00504
* ********************************************************** LM00505
* ********************************************************** LM00506
* ********************************************************** LM00507
* LM00508
MONTH * UPDATE TIMUSD AND RESET TAU VECTORS LM00509
* LM00510
* USAGE: ADMIN MONTH -NAME1- -NAME2- LM00511
* LM00512
* E'E (T0,N1), (T1,N2), (TUCARD(8),LENGTH), (T6,TAULOC) LM00513
EQUIVALENCE (T7,LEN) *254 LM00514
EQUIVALENCE (TUCARD(2),DAYTIM), (TUCARD(1),DATELU) *255 LM00515
* LM00516
OR WHENEVER COMBUF(M) .E. $ MONTH$ *256 LM00517
M = M+1 *257 LM00518
WHENEVER COMBUF(M) .E. HELP *258 LM00519
PRFULL.($ 'UADMIN MONTH 'L-NAME1- -NAME2-$) *259 LM00520
OTHERWISE *260 LM00521
CHKPRV.(BITS.V.RPATBT) *261 LM00522
N1 = COMBUF(M) *262 LM00523
N2 = COMBUF(M+1) *263 LM00524
WHENEVER N1 .E. FENCE *264 LM00525
N1 = TU *265 LM00526
N2 = TA *266 LM00527
OR WHENEVER N2 .E. FENCE *267 LM00528
N2 = TA *268 LM00529
OR WHENEVER COMBUF(M+2) .NE. FENCE *269 LM00530
TRANSFER TO ERR1 *270 LM00531
END OF CONDITIONAL *271 LM00532
LEN = 5*(N+1) *272 LM00533
TAULOC = COMMON.(TAU5) *273 LM00534
GETBUF.(B5,LEN) *274 LM00535
ATTACH.(M1416,CMFL02) *275 LM00536
FSTATE.(TU,TA,LENGTH...8) *276 LM00537
* LM00538
PCTL.(3) *277 LM00539
PRFULL.(X,WHO(3)...M2,ON,WHO,$ RESETTING TIMUSD AT 'X$, *278 LM00540
1 DATE,X,TIME,$.$) *278 LM00541
PCTL.(1) *279 LM00542
* LM00543
* M1416 4301 ON 800251 RESETTING TIMUSD AT 12/31 2359.1. LM00544
* LM00545
* LM00546
* GO NON-INTERRUPTABLE, RENAME PRESENT TIMUSD TIMACC TO LM00547
* DATE-TIME, SETFIL A NEW ONE, MOVFIL THE OLD ONE TO MY LM00548
* DIRECTORY, GET ALL TAU VECTORS AND PROBNO-PROGNO'S. LM00549
* LM00550
NONINT. *280 LM00551
DATE = RJUST.(DATE) *281 LM00552
CHFILE.(TU,TA,20K,DATE,TIME) *282 LM00553
SETFIL.(TU,TA,DAYTIM,DATELU,120K,2) *283 LM00554
MOVFIL.(DATE,TIME,ME(1),ME) *284 LM00555
GETARY.(TAULOC,B5(B5+LEN)...LEN) *285 LM00556
GETPRB. *286 LM00557
* LM00558
* RESET ALL TIME USED IN CORE A TO ZERO LM00559
* LM00560
THROUGH MON1, FOR I = 0,1,I.G.LEN *287 LM00561
MON1 SLOC.(GLOC.(TAULOC+I).A.77776K7,TAULOC+I) *288 LM00562
INT. *289 LM00563
* LM00564
* LM00565
ATTACH.(ME(1),ME) *290 LM00566
LEN = N+1 *291 LM00567
TU = DATE *292 LM00568
TA = TIME *293 LM00569
STATUS = $RW$ *294 LM00570
MON2 READTU.(PROBN(PROBN),PROGN(PROGN),N,MONEOF) *295 LM00571
UPSHFT. *296 LM00572
WRWAIT.(TU,TA,RELLOC,TUCARD(27)...28) *297 LM00573
TRANSFER TO MON2 *298 LM00574
* LM00575
* ALL USERS WHICH WERE FOUND IN TIMUSD HAVE BEEN UPDATED, LM00576
* NOW CREATE ADDITIONAL CARDS FOR THOSE NOT FOUND. LM00577
* LM00578
MONEOF THROUGH MON3, FOR J = 0,1,J.G.27 *299 LM00579
MON3 TUCARD(J) = $$ *300 LM00580
BFOPEN.(W,TU,TA,B1(B1+432),B2(B2+432),B3(B3+432),IOERR) *301 LM00581
THROUGH MON4, FOR I = 0,1,I.G.N *302 LM00582
WHENEVER PROBN(PROBN+I) .NE. 0 *303 LM00583
TUCARD(27) = PROBN(PROBN+I) *304 LM00584
TUCARD(26) = PROGN(PROGN+I) *305 LM00585
TUCARD(13) = DATE *306 LM00586
TUCARD(12) = TIME *307 LM00587
UPSHFT. *308 LM00588
BFWRIT.(TU,TA,TUCARD(27)...28,IOERR) *309 LM00589
END OF CONDITIONAL *310 LM00590
MON4 CONTINUE *311 LM00591
BFCLOS.(TU,TA,IOERR) *312 LM00592
UNLINK.(N1,N2,NULL.) *313 LM00593
CHFILE.(N1,N2,1,M0,M0,NULL.) *314 LM00594
DELFIL.(N1,N2,NULL.) *315 LM00595
CHFILE.(TU,TA,124K,N1,N2) *316 LM00596
END OF CONDITIONAL *317 LM00597
* LM00598
* LM00599
* LM00600
* ********************************************************** LM00601
* ********************************************************** LM00602
* ********************************************************** LM00603
* LM00604
* PATCH LM00605
* LM00606
* ********************************************************** LM00607
* ********************************************************** LM00608
* ********************************************************** LM00609
* LM00610
PATCH * PATCH CORE A LM00611
* LM00612
* USAGE: ADMIN PATCH LOC -DELTA- LHALF RHALF LM00613
* WHERE 'LOC' IS EITHER AN OCTAL LOCATION, COMMON VARIABLE, LM00614
* OR ENTRY POINT. DELTA MAY BE ' '+' OR '-' LENGTH'. LM00615
* (IF LENGTH ENDS WITH A '.', IT IS ASSUMED TO BE LM00616
* DECIMAL, OTHERWISE, OCTAL.) LM00617
* LM00618
EQUIVALENCE (T0,UPATSW), (T1,NAMESW), (T2,DELTA), (T3,LOC) *318 LM00619
EQUIVALENCE (T4,LHALF), (T5,RHALF), (T6,TEST), (T7,KEYS) *319 LM00620
EQUIVALENCE (TUCARD,PATMES) *320 LM00621
DIMENSION PATMES(2) *321 LM00622
BOOLEAN UPATSW,NAMESW *322 LM00623
* LM00624
DEFINE UNARY OPERATOR .ENK., PRECEDENCE HIGHER THAN .LS. *323 LM00625
MODE STRUCTURE .ENK. 1 TO 1 *324 LM00626
XEC =76000000004K *325 LM00627
STQ B *326 LM00628
OUT MQ *327 LM00629
END *328 LM00630
* LM00631
OR WHENEVER COMBUF(M) .E. $ PATCH$ *329 LM00632
M = M+1 *330 LM00633
WHENEVER COMBUF(M) .E. HELP *331 LM00634
PRFULL.(FMT3...100) *332 LM00635
VECTOR VALUES FMT3 =$ 'UADMIN PATCH 'LLOC -DELTA- LHALF RHALF$, *333 LM00636
1 $'* WHERE '=LOC'= IS EITHER AN OCTAL LOCATION, COMMON V$, *333 LM00637
2 $ARIABLE, '* OR AN ENTRY POINT. '1 DELTA MAY BE '=+'= $, *333 LM00638
3 $OR '=-'= LENGTH.'* ('1IF LENGTH ENDS WITH A '=.'=, IT $, *333 LM00639
4 $IS ASSUMED DECIMAL, OTHERWISE, OCTAL.)$,777777777777K *333 LM00640
OTHERWISE *334 LM00641
PAT1 WHENEVER COMBUF(M) .E. FENCE, TRANSFER TO ERR2 *335 LM00642
WHENEVER ZEL.(COMBUF(M)).A.$YYYYYY$ .E. 0 *336 LM00643
NAMESW = 0B *337 LM00644
LOC = BCOCT.(COMBUF(M)) *338 LM00645
OTHERWISE *339 LM00646
NAMESW = 1B *340 LM00647
PATMES = BZ57.(COMBUF(M)) *341 LM00648
WHENEVER .NOT.UPATSW, PATMES(1) = NULLS *342 LM00649
PATMES(2) = NULLS *343 LM00650
LOC = COMLOC.(LJUST.(COMBUF(M)),PAT2) *344 LM00651
TRANSFER TO PAT3 *345 LM00652
PAT2 LOC = ENTRY.(COMBUF(M)) *346 LM00653
END OF CONDITIONAL *347 LM00654
PAT3 M = M+1 *348 LM00655
* LM00656
* TEST FOR THE DELTA OPTION (ON PATCH ONLY) LM00657
* LM00658
WHENEVER UPATSW, TRANSFER TO PAT4 *349 LM00659
WHENEVER (COMBUF(M).E.$ +$ .OR. COMBUF(M).E.$ -$) *350 LM00660
1 .AND. ZEL.(COMBUF(M+1)).A.$ 0$.E.0 *350 LM00661
WHENEVER COMBUF(M+1).A.77K .E. $00000.$ *351 LM00662
DELTA = BCDEC.(COMBUF(M+1).RS.6) *352 LM00663
OR WHENEVER ZEL.(COMBUF(M+1)).A.$YYYYYY$ .NE. 0 *353 LM00664
DELTA = BCDEC.(COMBUF(M+1)) *354 LM00665
OTHERWISE *355 LM00666
DELTA = BCOCT.(COMBUF(M+1)) *356 LM00667
END OF CONDITIONAL *357 LM00668
WHENEVER COMBUF(M).E.$ -$, DELTA = -DELTA *358 LM00669
LOC = LOC + DELTA *359 LM00670
PATMES(1) = (COMBUF(M).LS.24).V.60575757K *360 LM00671
PATMES(2) = BZ57.(COMBUF(M+1)) *361 LM00672
M = M+2 *362 LM00673
END OF CONDITIONAL *363 LM00674
PAT4 WHENEVER UPATSW, LOC = LOC + USER *364 LM00675
WHENEVER .NOT. NAMESW *365 LM00676
PATMES = BZ57.(OCABC.(LOC)) *366 LM00677
PATMES(1) = NULLS *367 LM00678
PATMES(2) = NULLS *368 LM00679
END OF CONDITIONAL *369 LM00680
LHALF = COMBUF(M) *370 LM00681
RHALF = COMBUF(M+1) *371 LM00682
M = M+2 *372 LM00683
WHENEVER LHALF.V.RHALF .E. FENCE, TRANSFER TO ERR2 *373 LM00684
WHENEVER COMBUF(M).NE.FENCE, TRANSFER TO ERR1 *374 LM00685
TEST = GLOC.(LOC) *375 LM00686
WHENEVER LHALF.E.STAR, LHALF = OCLBC.(TEST) *376 LM00687
WHENEVER RHALF.E.STAR, RHALF = OCRBC.(TEST) *377 LM00688
LHALF = ZEL.(LHALF) *378 LM00689
RHALF = ZEL.(RHALF) *379 LM00690
WHENEVER (LHALF.V.RHALF).A.$YYYYYY$.NE.0, TRANSFER TO ERR6 *380 LM00691
PATTST WHENEVER .ENK.KEYS.A.KEY22 .NE. KEY22 .AND. WHO.NE.$(FIB)$ *381 LM00692
GETTM.(DATE,TIME) *382 LM00693
PRFULL.($'R'1KEY 22 NOT SET AT 'X$,TIME,BLACK) *383 LM00694
SNOOZE.(10,SLPCMD(2)) *384 LM00695
TRANSFER TO PATTST *385 LM00696
END OF CONDITIONAL *386 LM00697
PCTL.(3) *387 LM00698
PRFULL.(X,WHO(3)...M2,ON,WHO,$ PATCHING 'X$,PATMES...3, *388 LM00699
1 $'L FROM '8$,OCLBC.(TEST),OCRBC.(TEST),$ TO '8$, *388 LM00700
2 LHALF,RHALF,$.$) *388 LM00701
PCTL.(1) *389 LM00702
* LM00703
* M1416 4301 ON 800280 PATCHING RCODE(USER) FROM X TO Y LM00704
* M1416 4301 ON 800280 PATCHING QUANTM FROM X TO Y LM00705
* M1416 4301 ON 800280 PATCHING SLPTIM + 15. FROM X TO Y LM00706
* M1416 4301 ON 800280 PATCHING 76125 FROM X TO Y LM00707
* LM00708
SLOC.((BCOCT.(LHALF).LS.18).V.BCOCT.(RHALF),LOC) *390 LM00709
END OF CONDITIONAL *391 LM00710
* LM00711
* LM00712
* LM00713
* ********************************************************** LM00714
* ********************************************************** LM00715
* ********************************************************** LM00716
* LM00717
* PB LM00718
* LM00719
* ********************************************************** LM00720
* ********************************************************** LM00721
* ********************************************************** LM00722
* LM00723
PB * ASSIGN A PERCENTAGE OF THE CPU TIME TO A USER LM00724
* LM00725
* USAGE: ADMIN PB N USER (N = THE PERCENTAGE) LM00726
* LM00727
EQUIVALENCE (T0,PB) *392 LM00728
* LM00729
OR WHENEVER COMBUF(M) .E. $ PB$ *393 LM00730
M = M+1 *394 LM00731
PB = BCDEC.(COMBUF(M)) *395 LM00732
WHENEVER COMBUF(M) .E. HELP *396 LM00733
PRFULL.(ADMIN...2,CURCOM.(0),$ 'LN USER$) *397 LM00734
OR WHENEVER ZEL.(COMBUF(M)).A.$$ .NE. 0 .OR. PB.G.100 *398 LM00735
TRANSFER TO ERR0 *399 LM00736
OTHERWISE *400 LM00737
M = M+1 *401 LM00738
GETUSR.(PB0,ERR4,ERR5) *402 LM00739
PB0 PCTL.(3) *403 LM00740
PRFULL.(X,WHO(3)...M2,ON,WHO,$ SETTING PERCENTAGE OF 'X$, *404 LM00741
1 PROB...2,$ TO 'X$,BZ57.(DEFBC.(PB)),$.$) *404 LM00742
PCTL.(1) *405 LM00743
* LM00744
* M1416 4301 ON 800251 SETTING PERCENTAGE OF LM00745
* M1416 9324 TO 15. LM00746
* LM00747
SLOC.(PB,COMMON.($PB$)+USR) *406 LM00748
SLOC.(GLOC.(COMMON.(TIMNOW)),COMMON.(STRTIM)+USR) *407 LM00749
SLOC.(0,COMMON.(WRKTIM)+USR) *408 LM00750
END OF CONDITIONAL *409 LM00751
* LM00752
* LM00753
* LM00754
* ********************************************************** LM00755
* ********************************************************** LM00756
* ********************************************************** LM00757
* LM00758
* PRNTON LM00759
* LM00760
* ********************************************************** LM00761
* ********************************************************** LM00762
* ********************************************************** LM00763
* LM00764
PRNTON * PRINT A MESSAGE (OR FILE) ONLINE LM00765
* LM00766
* USAGE: ADMIN PRNTON -NAME1 NAME2- LM00767
* LM00768
OR WHENEVER COMBUF(M) .E. $PRNTON$ *410 LM00769
M = M+1 *411 LM00770
WHENEVER COMBUF(M) .E. HELP *412 LM00771
PRFULL.(ADMIN...2,CURCOM.(0),$ 'L-NAME1 NAME2-$) *413 LM00772
OTHERWISE *414 LM00773
PRNTON.(COMBUF(M),COMBUF(M+1)) *415 LM00774
END OF CONDITIONAL *416 LM00775
* LM00776
* LM00777
* LM00778
* ********************************************************** LM00779
* ********************************************************** LM00780
* ********************************************************** LM00781
* LM00782
* RDTIMU LM00783
* LM00784
* ********************************************************** LM00785
* ********************************************************** LM00786
* ********************************************************** LM00787
* LM00788
RDTIMU * FIND THE TIME USED BY A USER LM00789
* LM00790
* USAGE: ADMIN RDTIMU USER -NAME1- -NAME2- LM00791
* LM00792
* E'E (T0,N1), (T1,N2) (T6,TAULOC) LM00793
EQUIVALENCE (T2,NOTLIN), (T3,FOUND), (T4,SHFT), (T5,TAU) *417 LM00794
EQUIVALENCE (TUCARD(27),USED(5)), (TUCARD(21),ALTD(5)) *418 LM00795
DIMENSION ALTD(0),USED(0) *419 LM00796
BOOLEAN NOTLIN, FOUND *420 LM00797
* LM00798
OR WHENEVER COMBUF(M) .E. $RDTIMU$ *421 LM00799
M = M+1 *422 LM00800
WHENEVER COMBUF(M) .E. HELP *423 LM00801
PRFULL.(ADMIN...2,CURCOM.(0),$ '4USER -NAME1- -NAME2-$) *424 LM00802
OTHERWISE *425 LM00803
NOTLIN = 1B *426 LM00804
GETUSR.(RTU0,RTU1,ERR5) *427 LM00805
RTU0 NOTLIN = 0B *428 LM00806
RTU1 WHENEVER COMBUF(M) .E. FENCE *429 LM00807
NONINT. *430 LM00808
ATTACH.(M1416,CMFL02) *431 LM00809
TRANSFER TO RTU2 *432 LM00810
END OF CONDITIONAL *433 LM00811
TU = COMBUF(M) *434 LM00812
M = M+1 *435 LM00813
WHENEVER COMBUF(M) .NE. FENCE *436 LM00814
TA = COMBUF(M) *437 LM00815
M = M+1 *438 LM00816
END OF CONDITIONAL *439 LM00817
WHENEVER COMBUF(M) .NE. FENCE, TRANSFER TO ERR1 *440 LM00818
* LM00819
RTU2 STATUS = R *441 LM00820
READTU.(PROB,PROG,1,RTU3) *442 LM00821
NAME = TUCARD(25) *443 LM00822
FOUND = 1B *444 LM00823
BFCLOS.(TU,TA,RTU3) *445 LM00824
* LM00825
RTU3 INT. *446 LM00826
WHENEVER NOTLIN .AND. .NOT.FOUND *447 LM00827
PRFULL.($'1NEVER HEARD OF 'X$,PROB...2) *448 LM00828
TRANSFER TO OUT *449 LM00829
OR WHENEVER NOTLIN *450 LM00830
THROUGH RTU4, FOR I = 1,1,I.G.5 *451 LM00831
ALTD(I) = 0 *452 LM00832
USED(I) = BCDEC.(TUCARD(10-I))*60 *453 LM00833
RTU4 CONTINUE *454 LM00834
OTHERWISE *455 LM00835
TAULOC = COMMON.(TAU5) *456 LM00836
THROUGH RTU5, FOR I = 4,-1,I.L.0 *457 LM00837
TAU = GLOC.(TAULOC+I*(N+1)+USR) *458 LM00838
USED(5-I) = TAU.A.17777777K *459 LM00839
ALTD(5-I) = TAU.RS.14 *460 LM00840
WHENEVER ALTD(5-I).NE.0, ALTD(5-I)=ALTD(5-I).V.377K *461 LM00841
RTU5 CONTINUE *462 LM00842
END OF CONDITIONAL *463 LM00843
PRFULL.(X,NAME,X,PROB...2) *464 LM00844
THROUGH RTU6, FOR I = 1,1,I.G.5 *465 LM00845
WHENEVER ALTD(I).V.USED(I) .NE. 0 *466 LM00846
SHFT = DEFBC.(I).LS.12.V.$0000 $ *467 LM00847
PRFULL.(BZEL.(SHFT),BZEL.(MINS.(ALTD(I))), *468 LM00848
1 BZEL.(MINS.(USED(I)))) *468 LM00849
END OF CONDITIONAL *469 LM00850
RTU6 CONTINUE *470 LM00851
WHENEVER FOUND, PRFULL.($'1LAST LOGOUT 'X$, *471 LM00852
1 TUCARD(13).A.7777K8.V.$00/00$.V.(TUCARD(13).RS.6.A.7777K2), *471 LM00853
2 TUCARD(12),$ FROM $,X,TUCARD(11),$.$) *471 LM00854
* LM00855
* LAST LOGOUT 12/31 1832.1 FROM 800251. LM00856
* LM00857
WHENEVER .NOT.NOTLIN, PRFULL.($'1NOW ON UNIT 'X$, *472 LM00858
1 GLOC.(COMMON.(UNITID)+USR),$ LINE $,BZ57.(DEFBC.(USR))) *472 LM00859
* LM00860
* NOW ON UNIT 800251 LINE 31 LM00861
* LM00862
END OF CONDITIONAL *473 LM00863
* LM00864
* LM00865
* LM00866
* ********************************************************** LM00867
* ********************************************************** LM00868
* ********************************************************** LM00869
* LM00870
* SETTAU LM00871
* LM00872
* ********************************************************** LM00873
* ********************************************************** LM00874
* ********************************************************** LM00875
* LM00876
SETTAU * SET/RESET TAU VECTORS IN CORE A FOR A USER LM00877
* LM00878
* USAGE: ADMIN SETTAU SHFT ALTD USED USER LM00879
* LM00880
* E'E (T4,SHFT), (T5,TAU), (T6,TAULOC) LM00881
* E'E (TUCARD(27),USED(5)), (TUCARD(21),ALTD(5)) LM00882
EQUIVALENCE (OUSED,USED(1)), (OALTD,ALTD(1)) *474 LM00883
EQUIVALENCE (NUSED,USED(2)), (NALTD,ALTD(2)) *475 LM00884
* LM00885
OR WHENEVER COMBUF(M) .E. $SETTAU$ *476 LM00886
M = M+1 *477 LM00887
WHENEVER COMBUF(M) .E. HELP *478 LM00888
PRFULL.(ADMIN...2,CURCOM.(0),$ 'LSHIFT ALTD USED USER$) *479 LM00889
OTHERWISE *480 LM00890
SHFT = COMBUF(M) *481 LM00891
ALTD = COMBUF(M+1) *482 LM00892
USED = COMBUF(M+2) *483 LM00893
M = M+3 *484 LM00894
WHENEVER SHFT.V.ALTD.V.USED .E. FENCE, TRANSFER TO ERR2 *485 LM00895
SHFT = BCDEC.(SHFT) *486 LM00896
WHENEVER SHFT.E.0 .OR. SHFT.G.5, TRANSFER TO ERR0 *487 LM00897
GETUSR.(SET0,ERR4,ERR5) *488 LM00898
SET0 TAULOC = COMMON.(TAU1) - (SHFT-1)*(N+1) + USR *489 LM00899
TAU = GLOC.(TAULOC) *490 LM00900
OUSED = TAU.A.17777777K *491 LM00901
OALTD = TAU.RS.14.V.377K *492 LM00902
* LM00903
WHENEVER USED .E. STAR *493 LM00904
NUSED = OUSED *494 LM00905
OTHERWISE *495 LM00906
WHENEVER ZEL.(USED).A.$$.NE.0, TRANSFER TO ERR0 *496 LM00907
NUSED = BCDEC.(USED) * 3600 *497 LM00908
END OF CONDITIONAL *498 LM00909
* LM00910
WHENEVER ALTD .E. STAR *499 LM00911
NALTD = OALTD *500 LM00912
OTHERWISE *501 LM00913
WHENEVER ZEL.(ALTD).A.$$ .NE. 0, TRANSFER TO ERR0 *502 LM00914
NALTD = BCDEC.(ALTD) * 3600 *503 LM00915
END OF CONDITIONAL *504 LM00916
* LM00917
PCTL.(3) *505 LM00918
PRFULL.(X,WHO(3)...M2,ON,WHO,$ SETTING '3TAU'X$, *506 LM00919
1 BZ57.(DEFBC.(SHFT)),$ OF'X$,PROB...2,$ FROM $, *506 LM00920
2 BZ57.(DEFBC.(OALTD/3600)),BL,BZ57.(DEFBC.(OUSED/3600)), *506 LM00921
3 $ TO '8$,BZ57.(DEFBC.(NALTD/3600)),BL, *506 LM00922
4 BZ57.(DEFBC.(NUSED/3600)),$.$) *506 LM00923
PCTL.(1) *507 LM00924
* LM00925
* M1416 3579 ON 800251 SETTING TAU1 OF M1416 4301 LM00926
* FROM 600 10 TO 300 30. LM00927
* LM00928
SLOC.(NALTD.LS.14.A.77776K7.V.NUSED.A.17777777K,TAULOC) *508 LM00929
* LM00930
END OF CONDITIONAL *509 LM00931
* LM00932
* LM00933
* LM00934
* ********************************************************** LM00935
* ********************************************************** LM00936
* ********************************************************** LM00937
* LM00938
* SPY LM00939
* LM00940
* ********************************************************** LM00941
* ********************************************************** LM00942
* ********************************************************** LM00943
* LM00944
SPY * SPY ON ANOTHER USER LM00945
* LM00946
* USAGE: ADMIN SPY USER LM00947
* LM00948
EQUIVALENCE (OLDM,T0) *510 LM00949
* LM00950
OR WHENEVER COMBUF(M) .E. $ SPY$ *511 LM00951
M = M+1 *512 LM00952
WHENEVER COMBUF(M) .E. HELP *513 LM00953
PRFULL.($'UADMIN SPY 'LUSER$) *514 LM00954
OTHERWISE *515 LM00955
OLDM = M *516 LM00956
SPY1 GETUSR.(ERR3,SPY3,ERR5) *517 LM00957
PRFULL.($'1USER FOUND:'X$,PROB...2,$ LINE $, *518 LM00958
1 BZ57.(DEFBC.(USR))) *518 LM00959
ADOPT = COMMON.(ADOPT) *519 LM00960
SLOC.(3K5.V.USR,ADOPT+USER) *520 LM00961
SLOC.(GLOC.(ADOPT+USR).V.7000003K5,ADOPT+USR) *521 LM00962
SPY2 SNOOZE.(1800,SLPCMD(2)) *522 LM00963
* ... SLEEP FOR 30 MINUTES, THEN CALL SLEEP AGAIN. LM00964
TRANSFER TO SPY2 *523 LM00965
* LM00966
SPY3 GETTM.(DATE,TIME) *524 LM00967
PRFULL.(X,PROB...2,$ IS NOT LOGGED IN - 'X$,TIME) *525 LM00968
SNOOZE.(15,SLPCMD(2)) *526 LM00969
M = OLDM *527 LM00970
TRANSFER TO SPY1 *528 LM00971
END OF CONDITIONAL *529 LM00972
* LM00973
* LM00974
* LM00975
* ********************************************************** LM00976
* ********************************************************** LM00977
* ********************************************************** LM00978
* LM00979
* SQZUFD LM00980
* LM00981
* ********************************************************** LM00982
* ********************************************************** LM00983
* ********************************************************** LM00984
* LM00985
SQZUFD * COMPACT A USER U.F.D ELIMINATING HOLES LM00986
* LM00987
* USAGE: ADMIN SQZUFD USER1 USER2 ... LM00988
* ANY USER MAY BE FOLLOWED BY '(DRUM)' OR '(DISK)' TO LM00989
* INDICATE WHERE THE FINAL UFD IS TO RESIDE. LM00990
* LM00991
EQUIVALENCE (T0,N1), (T1,N2), (T2,NSTICK), (T3,STICKY) *530 LM00992
EQUIVALENCE (TUCARD(8),LENGTH), (TUCARD(5),DEV), (TUCARD(27),BUFF) *531 LM00993
DIMENSION BUFF(0) *532 LM00994
* LM00995
OR WHENEVER COMBUF(M) .E. $SQZUFD$ *533 LM00996
M = M+1 *534 LM00997
WHENEVER COMBUF(M) .E. HELP *535 LM00998
PRFULL.(FMT5...100) *536 LM00999
VECTOR VALUES FMT5 = $ 'UADMIN SQZUFD 'LUSER1 USER2 ... $, *537 LM01000
1 $'* USER MAY BE FOLLOWED BY '='4(DISK)'= OR '='4(DRUM)'=$, *537 LM01001
2 $'* TO INDICATE WHERE THE FINAL UFD IS TO RESIDE.$, *537 LM01002
3 777777777777K *537 LM01003
OTHERWISE *538 LM01004
GETBUF.(B1,432) *539 LM01005
GETBUF.(B2,432) *540 LM01006
GETBUF.(B3,432) *541 LM01007
GETBUF.(B4,432) *542 LM01008
GETBUF.(B5,432) *543 LM01009
FSTST = ENTRY.(FSTST) *544 LM01010
NSTICK = ENTRY.(SAVING) + 1 *545 LM01011
STICKY = NSTICK + 6 *546 LM01012
NSTICK = GLOC.(NSTICK)*13 *547 LM01013
ATTACH.(MFD,FILE) *548 LM01014
FERRTN.(SQZERR) *549 LM01015
* LM01016
SQZ1 GETUSR.(ERR3,SQZ2,ERR5) *550 LM01017
SQZ2 NONINT. *551 LM01018
FSTATE.(PROB,PROG,LENGTH...8,NOUFD) *552 LM01019
TRANSFER TO SQZUFD *553 LM01020
NOUFD PRFULL.($'R'X$,PROB...2,$ NOT FOUND.'B$) *554 LM01021
TRANSFER TO SQZOUT *555 LM01022
* LM01023
SQZUFD WHENEVER COMBUF(M) .E. $(DRUM)$ *556 LM01024
DEV = 1 *557 LM01025
M = M+1 *558 LM01026
OR WHENEVER COMBUF(M) .E. $(DISK)$ *559 LM01027
DEV = 2 *560 LM01028
M = M+1 *561 LM01029
END OF CONDITIONAL *562 LM01030
THROUGH SQZ3, FOR I = 0,13,I.G.NSTICK *563 LM01031
N1 = GLOC.(STICKY+I) *564 LM01032
N2 = GLOC.(STICKY+I+1) *565 LM01033
WHENEVER N1 .E. PROB .AND. N2 .E. PROG *566 LM01034
INT. *567 LM01035
PRFULL.(RED,X,PROB...2, *568 LM01036
1 $ HAS INFORMATION IN THE STICKIES.'B$) *568 LM01037
TRANSFER TO SQZOUT *569 LM01038
END OF CONDITIONAL *570 LM01039
SQZ3 CONTINUE *571 LM01040
SLOC.(FENCE,FSTST) *572 LM01041
* LM01042
* OPEN PROB PROG, DELETE PREVIOUS PROG PROB IF ANY, LM01043
* COPY PROB PROG INTO PROG PROB GETTING RID OF 0 ENTRIES. LM01044
* LM01045
ALLOT.(2,32767) *573 LM01046
ALLOT.(1,32767) *574 LM01047
BFOPEN.(R,PROB,PROG,B1(B1+432),B2(B2+432),M0,SQZERR) *575 LM01048
CHFILE.(PROG,PROB,1,M0,M0,NULL.) *576 LM01049
DELFIL.(PROG,PROB,NULL.) *577 LM01050
BFOPEN.(W,PROG,PROB,B3(B3+432),B4(B4+432),B5(B5+432), *578 LM01051
1 SQZERR) *578 LM01052
BFREAD.(PROB,PROG,BUFF...3,SQZEOF,M0,SQZERR) *579 LM01053
BFWRIT.(PROG,PROB,BUFF...3,SQZERR) *580 LM01054
SQZ5 BFREAD.(PROB,PROG,BUFF...7,SQZEOF,M0,SQZERR) *581 LM01055
WHENEVER BUFF.V.BUFF(M1).NE.0, *582 LM01056
1 BFWRIT.(PROG,PROB,BUFF...7,SQZERR) *582 LM01057
TRANSFER TO SQZ5 *583 LM01058
* LM01059
SQZEOF BFCLOS.(PROB,PROG,SQZERR) *584 LM01060
BFCLOS.(PROG,PROB,SQZERR) *585 LM01061
SQZ6 CHFILE.(PROB,PROG,1) *586 LM01062
DELFIL.(PROB,PROG) *587 LM01063
CHFILE.(PROG,PROB,104K,PROB,PROG) *588 LM01064
* LM01065
* IF UFD IS TO BE ON THE DRUM, USE THE COPY ROUTINE LM01066
* TO TRANSFER IT. LM01067
* LM01068
WHENEVER DEV .E. 1 *589 LM01069
DEV = 2 *590 LM01070
OPEN.(R,PROB,PROG) *591 LM01071
OPEN.(W,PROG,PROB,0,1) *592 LM01072
BUFFER.(PROG,PROB,B4(B4+432)...432) *593 LM01073
COPY.(PROB,PROG,PROG,PROB,B1(B1+432),B2(B2+432), *594 LM01074
1 B3(B3+432),432,SQZERR) *594 LM01075
CLOSE.(PROB,PROG) *595 LM01076
CLOSE.(PROG,PROB) *596 LM01077
TRANSFER TO SQZ6 *597 LM01078
END OF CONDITIONAL *598 LM01079
* LM01080
SQZOUT RESETF. *599 LM01081
SLOC.(0,FSTST) *600 LM01082
INT. *601 LM01083
WHENEVER COMBUF(M).NE. FENCE, TRANSFER TO SQZ1 *602 LM01084
TRANSFER TO OUT *603 LM01085
* LM01086
SQZERR PRDIAG. *604 LM01087
TRANSFER TO SQZOUT *605 LM01088
END OF CONDITIONAL *606 LM01089
* LM01090
* LM01091
* LM01092
* ********************************************************** LM01093
* ********************************************************** LM01094
* ********************************************************** LM01095
* LM01096
* UPATCH LM01097
* LM01098
* ********************************************************** LM01099
* ********************************************************** LM01100
* ********************************************************** LM01101
* LM01102
UPATCH * PATCH PRESENT USERS ARRAY ENTRY IN CORE A LM01103
* LM01104
* USAGE: ADMIN UPATCH LOC LHALF RHALF LM01105
* LM01106
* E'E (T0,UPATSW), (TUCARD,PATMES) LM01107
* LM01108
OR WHENEVER COMBUF(M) .E. $UPATCH$ *607 LM01109
M = M+1 *608 LM01110
WHENEVER COMBUF(M) .E. HELP *609 LM01111
PRFULL.(ADMIN...2,CURCOM.(0),$ 'LLOC LHALF RHALF$) *610 LM01112
OTHERWISE *611 LM01113
UPATSW = 1B *612 LM01114
PATMES(1) = $(USER)$ *613 LM01115
TRANSFER TO PAT1 *614 LM01116
END OF CONDITIONAL *615 LM01117
* LM01118
* LM01119
* LM01120
* LM01121
* LM01122
* LM01123
* ********************************************************** LM01124
* ********************************************************** LM01125
* ********************************************************** LM01126
* LM01127
* UPDATE LM01128
* LM01129
* LM01130
* LM01131
* ********************************************************** LM01132
* ********************************************************** LM01133
* ********************************************************** LM01134
* LM01135
* LM01136
UPDATE * UPDATE CMFL02 WITH ACCOUNTING FILES LM01137
* LM01138
* USAGE: ADMIN UPDATE N1 -N2- -N3- -N4- LM01139
* LM01140
E'E (T0,N1), (T1,N2), (T2,N3), (T3,N4), (T7,MODE) LM01141
LM01142
OR WHENEVER COMBUF(M) .E. $UPDATE$ *616 LM01143
M = M+1 *617 LM01144
WHENEVER COMBUF(M) .E. HELP *618 LM01145
PRFULL.(ADMIN...2,CURCOM.(0),$ N1 -N2- -N3- -N4-$) *619 LM01146
OTHERWISE *620 LM01147
N1 = COMBUF(M) *621 LM01148
N2 = COMBUF(M+1) *622 LM01149
N3 = COMBUF(M+2) *623 LM01150
N4 = COMBUF(M+3) *624 LM01151
WHENEVER N2 .E. FENCE *625 LM01152
N2 = TA *626 LM01153
N3 = N1 *627 LM01154
N4 = N2 *628 LM01155
OR WHENEVER N3 .E. FENCE *629 LM01156
N3 = N1 *630 LM01157
N4 = N2 *631 LM01158
OR WHENEVER N4 .E. FENCE *632 LM01159
N4 = N2 *633 LM01160
OR WHENEVER N1 .E. FENCE *634 LM01161
TRANSFER TO ERR2 *635 LM01162
OR WHENEVER COMBUF(M+4).NE.FENCE *636 LM01163
M = M+4 *637 LM01164
TRANSFER TO ERR1 *638 LM01165
END OF CONDITIONAL *639 LM01166
* LM01167
WHENEVER ME(1).E.M1416 .AND. ME.E.CMFL02 .AND. *640 LM01168
1 N3.E.N1 .AND. N4.E.N2, TRANSFER TO ERR0 *640 LM01169
CHKPRV.(RPRVBT) *641 LM01170
* LM01171
GETBUF.(B1,432) *642 LM01172
GETBUF.(B2,432) *643 LM01173
GETBUF.(B3,432) *644 LM01174
GETBUF.(B4,432) *645 LM01175
OPEN.(R,N1,N2) *646 LM01176
ATTACH.(M1416,CMFL02) *647 LM01177
NONINT. *648 LM01178
CHFILE.(DATE,TIME,1,M0,M0,NULL.) *649 LM01179
DELFIL.(DATE,TIME,NULL.) *650 LM01180
OPEN.(W,DATE,TIME,120K) *651 LM01181
BUFFER.(DATE,TIME,B4(B4+432)...432) *652 LM01182
COPY.(N1,N2,DATE,TIME,B1(B1+432),B2(B2+432),B3(B3+432), *653 LM01183
1 432,IOERR) *653 LM01184
CLOSE.(DATE,TIME) *654 LM01185
CLOSE.(N1,N2) *655 LM01186
MODE = 120K *656 LM01187
FSTATE.(N3,N4,TUCARD(1)...2,UPD1) *657 LM01188
MODE = TUCARD.A.777K *658 LM01189
UPD1 CHFILE.(N3,N4,1,M0,M0,NULL.) *659 LM01190
DELFIL.(N3,N4,NULL.) *660 LM01191
CHFILE.(DATE,TIME,MODE,N3,N4) *661 LM01192
INT. *662 LM01193
END OF CONDITIONAL *663 LM01194
* LM01195
* LM01196
* LM01197
* ********************************************************** LM01198
* ********************************************************** LM01199
* ********************************************************** LM01200
* LM01201
* WRITE LM01202
* LM01203
* ********************************************************** LM01204
* ********************************************************** LM01205
* ********************************************************** LM01206
* LM01207
WRITE * WRITE A MESSAGE AT A USER LM01208
* LM01209
* USAGE: ADMIN WRITE USER LM01210
* LM01211
OR WHENEVER COMBUF(M) .E. $ WRITE$ *664 LM01212
M = M+1 *665 LM01213
WHENEVER COMBUF(M) .E. HELP *666 LM01214
PRFULL.(ADMIN...2,CURCOM.(0),$ 'LUSER$) *667 LM01215
OTHERWISE *668 LM01216
GETUSR.(ERR3,ERR4,ERR5) *669 LM01217
SETFUL. *670 LM01218
WRITE.(USR) *671 LM01219
SETBCD. *672 LM01220
END OF CONDITIONAL *673 LM01221
* LM01222
* LM01223
* LM01224
OTHERWISE *674 LM01225
WHENEVER M.E.0 *675 LM01226
M = 1 *676 LM01227
TRANSFER TO USEROK *677 LM01228
OTHERWISE *678 LM01229
PRFULL.($'R'X$,COMBUF(M),$ IS NOT A VALID FUNCTION.'B$) *679 LM01230
END OF CONDITIONAL *680 LM01231
END OF CONDITIONAL *681 LM01232
OUT RESETF. *682 LM01233
ATTACH.(ME(1),ME,EXITM.) *683 LM01234
EXITM. *684 LM01235
* LM01236
* ********************************************************** LM01237
* ********************************************************** LM01238
* ********************************************************** LM01239
* LM01240
* ERROR PROCESSOR LM01241
* LM01242
* ********************************************************** LM01243
* ********************************************************** LM01244
* ********************************************************** LM01245
* LM01246
* LM01247
* LM01248
IOERR PRFULA.(RED) *685 LM01249
PRDIAG. *686 LM01250
PRFULA.(BLACK) *687 LM01251
TRANSFER TO OUT *688 LM01252
* LM01253
ERR0 PRFULL.($'R'1ILLEGAL USAGE.'B$) *689 LM01254
TRANSFER TO OUT *690 LM01255
* LM01256
ERR1 PRFULL.($'R'1ILLEGAL ARGUMENT: 'X$,COMBUF(M),BLACK) *691 LM01257
TRANSFER TO OUT *692 LM01258
* LM01259
ERR2 PRFULL.($'R'1MISSING ARGUMENT(S)'B$) *693 LM01260
TRANSFER TO OUT *694 LM01261
* LM01262
ERR3 PRFULL.($'R'1MISSING OR ILLEGAL USER SPECIFICATION.'B$) *695 LM01263
TRANSFER TO OUT *696 LM01264
* LM01265
ERR5 PRFULL.($'R'1LINE '8$,BZ57.(DEFBC.(USR)),$ IS EMPTY.'B$) *697 LM01266
TRANSFER TO OUT *698 LM01267
* LM01268
ERR4 PRFULL.(RED,X,PROB...2,$ IS NOT LOGGED IN.'B$) *699 LM01269
TRANSFER TO OUT *700 LM01270
* LM01271
ERR6 PRFULL.(RED,LHALF,RHALF,$ NOT OCTAL.'B$) *701 LM01272
TRANSFER TO OUT *702 LM01273
* LM01274
ERR7 PRFULL.($'R'1SYSTEM ERROR: FULL RETURN FROM '6ENTLIN.'B$) *703 LM01275
TRANSFER TO OUT *704 LM01276
* LM01277
* LM01278
* LM01279
* ********************************************************** LM01280
* ********************************************************** LM01281
* ********************************************************** LM01282
* LM01283
* INTERNAL FUNCTIONS LM01284
* LM01285
* ********************************************************** LM01286
* ********************************************************** LM01287
* ********************************************************** LM01288
* LM01289
* LM01290
* LM01291
CHKPRV * CHECK FOR NECESSARY PRIVILEGES. LM01292
* LM01293
* USAGE: CHKPRV.(CODE) LM01294
* LM01295
INTERNAL FUNCTION (CODE) *705 LM01296
ENTRY TO CHKPRV. *706 LM01297
WHENEVER RCODE.A.CODE.E.CODE, FUNCTION RETURN *707 LM01298
PRFULL.($'R'1INSUFFICIENT PRIVILEGES. '1NEED AT LEAST '8$, *708 LM01299
1 BZ57.(OCRBC.(CODE)),BLACK) *708 LM01300
TRANSFER TO OUT *709 LM01301
END OF FUNCTION *710 LM01302
* LM01303
* LM01304
* LM01305
COMMON * RETURN THE VALUE (OR LOCATION) OF A COMMON VARIABLE LM01306
* LM01307
* USAGE: COMMON.(SYMBOL) LM01308
* LM01309
INTERNAL FUNCTION (SYMBOL) *711 LM01310
ENTRY TO COMMON. *712 LM01311
FUNCTION RETURN COMLOC.(LJUST.(SYMBOL),COMERR) *713 LM01312
* LM01313
COMERR PRFULL.($'R'X$,BZ57.(RJUST.(SYMBOL)),$ WAS NOT FOUND.'B$) *714 LM01314
TRANSFER TO OUT *715 LM01315
* LM01316
* LM01317
* LM01318
ENTRY * RETURN THE LOCATION OF A CORE A ENTRY LM01319
* LM01320
* USAGE: ENTRY.(SYMBOL) LM01321
* LM01322
ENTRY TO ENTRY. *716 LM01323
FUNCTION RETURN ACORE.(LJUST.(SYMBOL),COMERR).RS.18 *717 LM01324
END OF FUNCTION *718 LM01325
* LM01326
* LM01327
* LM01328
CURCOM * GET THE NAME OF THE CURRENT FUNCTION LM01329
* WITH LEADING BLANKS STIRPPED OFF. LM01330
* LM01331
INTERNAL FUNCTION CURCOM.(X) = BZ57.(COMBUF(M-1)) *719 LM01332
* LM01333
* LM01334
* LM01335
INT * RESET THE NON INTERUPT BIT LM01336
* LM01337
INTERNAL FUNCTION *720 LM01338
ENTRY TO INT. *721 LM01339
SLOC.(GLOC.(USROPT).A..N.NINTBT,USROPT) *722 LM01340
FUNCTION RETURN *723 LM01341
* LM01342
* LM01343
* LM01344
NONINT * SET THE NON-INTERUPT BIT LM01345
* LM01346
ENTRY TO NONINT. *724 LM01347
SLOC.(GLOC.(USROPT).V.NINTBT,USROPT) *725 LM01348
FUNCTION RETURN *726 LM01349
END OF FUNCTION *727 LM01350
* LM01351
* LM01352
* LM01353
GETUSR * GET A USER NUMBER, PROBNO, PROGNO AND NAME FROM LM01354
* THE 'USER' SPECIFICATION. LM01355
* WRITTEN BY D.A. ANDERSON LM01356
* LM01357
* USAGE: GETUSR.(NONE,NOTIN,LNMTY) LM01358
* WHERE NONE = LOC TO TRANSFER IF NO USER SPECIFIED LM01359
* NOTIN = LOC TO TRANSFER IF PROB-PROG GIVEN BUT NOT IN LM01360
* LNMTY = LOC TO TRANSFER IF USER NO. GIVEN BUT NOT IN LM01361
* LM01362
INTERNAL FUNCTION (NONE,NOTIN,LNMTY) *728 LM01363
STATEMENT LABEL NONE,NOTIN,LNMTY *729 LM01364
ENTRY TO GETUSR. *730 LM01365
* LM01366
WHENEVER COMBUF(M).E.FENCE *731 LM01367
USR = USER *732 LM01368
GTUSR.(LNMTY) *733 LM01369
TRANSFER TO NONE *734 LM01370
OR WHENEVER ZEL.(COMBUF(M)).A.$$.E.0 *735 LM01371
USR = BCDEC.(COMBUF(M)) *736 LM01372
WHENEVER USR.G.N, TRANSFER TO ERR3 *737 LM01373
WHENEVER USR.E.0 *738 LM01374
PROB = $ BACKG$ *739 LM01375
PROG = $ROUND$ *740 LM01376
NAME = $$ *741 LM01377
OTHERWISE *742 LM01378
GTUSR.(LNMTY) *743 LM01379
END OF CONDITIONAL *744 LM01380
M = M+1 *745 LM01381
OR WHENEVER COMBUF(M) .E. STAR *746 LM01382
USR = USER *747 LM01383
GTUSR.(LNMTY) *748 LM01384
M = M+1 *749 LM01385
OTHERWISE *750 LM01386
PROB = REPROB.(COMBUF(M)) *751 LM01387
M = M+1 *752 LM01388
WHENEVER COMBUF(M).E.FENCE, TRANSFER TO ERR3 *753 LM01389
PROG = COMBUF(M) *754 LM01390
M = M+1 *755 LM01391
GETPRB. *756 LM01392
GTUSR1 THROUGH GTUSR1, FOR USR = 1,1,USR.G.N .OR. *757 LM01393
1 (PROB.E.PROBN(PROBN+N-USR+1).AND. *757 LM01394
2 PROG.E.PROGN(PROGN+N-USR+1)) *757 LM01395
WHENEVER USR.G.N *758 LM01396
USR = 0 *759 LM01397
NAME = $$ *760 LM01398
TRANSFER TO NOTIN *761 LM01399
END OF CONDITIONAL *762 LM01400
NAME = GLOC.(COMMON.(UNAME)+USR) *763 LM01401
END OF CONDITIONAL *764 LM01402
FUNCTION RETURN *765 LM01403
END OF FUNCTION *766 LM01404
* LM01405
* LM01406
* LM01407
* LM01408
GTUSR * GIVEN A LINE NO., SETUP PROB,PROG AND NAME LM01409
* LM01410
* USAGE GTUSR. LM01411
* LM01412
INTERNAL FUNCTION (LNMTY) *767 LM01413
ENTRY TO GTUSR. *768 LM01414
* LM01415
PROB = GLOC.(COMMON.($PROBN$)+USR) *769 LM01416
WHENEVER PROB.E.0 *770 LM01417
M = M+1 *771 LM01418
TRANSFER TO LNMTY *772 LM01419
END OF CONDITIONAL *773 LM01420
PROG = GLOC.(COMMON.($PROGN$)+USR) *774 LM01421
NAME = GLOC.(COMMON.(UNAME)+USR) *775 LM01422
FUNCTION RETURN *776 LM01423
END OF FUNCTION *777 LM01424
* LM01425
* LM01426
* LM01427
* LM01428
GETPRB * ROUTINE TO SNATCH THE PROBN AND PROGN ARRAYS LM01429
* LM01430
* USAGE: GETPRB. LM01431
* LM01432
BOOLEAN PRBSW *778 LM01433
VECTOR VALUES PRBSW = 1B *779 LM01434
INTERNAL FUNCTION *780 LM01435
ENTRY TO GETPRB. *781 LM01436
* LM01437
WHENEVER PRBSW *782 LM01438
PRBSW = 0B *783 LM01439
GETBUF.(PROBN,N) *784 LM01440
GETBUF.(PROGN,N) *785 LM01441
END OF CONDITIONAL *786 LM01442
GETARY.(COMMON.($PROBN$)+1,PROBN(PROBN+N)...N) *787 LM01443
GETARY.(COMMON.($PROGN$)+1,PROGN(PROGN+N)...N) *788 LM01444
FUNCTION RETURN *789 LM01445
END OF FUNCTION *790 LM01446
* LM01447
* LM01448
* LM01449
READTU * ROUTINE TO READ TIMUSD TIMACC LOOKING FOR PROB(S)/PROG(S) LM01450
* LM01451
* USAGE: READTU.(PROB(0),PROG(0),COUNT,EOF) LM01452
* LM01453
BOOLEAN FRSTSW *791 LM01454
VECTOR VALUES FRSTSW = 1B *792 LM01455
INTERNAL FUNCTION (PRB,PRG,COUNT,EOF) *793 LM01456
STATEMENT LABEL EOF *794 LM01457
ENTRY TO READTU. *795 LM01458
WHENEVER FRSTSW *796 LM01459
FRSTSW = 0B *797 LM01460
GETBUF.(B1,432) *798 LM01461
GETBUF.(B2,432) *799 LM01462
GETBUF.(B3,432) *800 LM01463
BFOPEN.(STATUS,TU,TA,B1(B1+432),B2(B2+432),M0,IOERR) *801 LM01464
BUFFER.(TU,TA,B3(B3+432)...432) *802 LM01465
RELLOC = 1 *803 LM01466
OTHERWISE *804 LM01467
RDTU1 RELLOC = RELLOC + 28 *805 LM01468
END OF CONDITIONAL *806 LM01469
BFREAD.(TU,TA,TUCARD(27)...28,BEOF,M0,IOERR) *807 LM01470
THROUGH RDTU2, FOR I = 0,1,I.G.COUNT *808 LM01471
RDTU2 WHENEVER PRB(I).E.TUCARD(27) .AND. PRG(I).E.TUCARD(26), FUNCTION RETURN *809 LM01472
TRANSFER TO RDTU1 *810 LM01473
* LM01474
BEOF BFCLOS.(TU,TA,IOERR) *811 LM01475
TRANSFER TO EOF *812 LM01476
* LM01477
END OF FUNCTION *813 LM01478
* LM01479
* LM01480
* LM01481
UPSHFT * UPDATE TUCARD WITH TIME USED FROM B5 TAU VECTORS LM01482
* LM01483
* USAGE: UPSHFT. LM01484
* LM01485
INTERNAL FUNCTION *814 LM01486
ENTRY TO UPSHFT. *815 LM01487
THROUGH UPS1, FOR J = 0,1,J.G.4 *816 LM01488
WHENEVER TUCARD(27).NE.$ C0056$, TUCARD(9-J) = 0 *817 LM01489
TUCARD(9-J) = DEFBC.( B5(B5+J*LEN+I).A.17777777K/60 + *818 LM01490
1 BCDEC.(TUCARD(9-J))) *818 LM01491
UPS1 CONTINUE *819 LM01492
PROBN(PROBN+I) = 0 *820 LM01493
FUNCTION RETURN *821 LM01494
END OF FUNCTION *822 LM01495
* LM01496
* LM01497
* LM01498
END OF PROGRAM *823 LM01499
MODE STRUCTURE .ENK. 1 TO 1 324 LM00626
(THE NUMERIC FORM OF THE OPERATOR-MODE ARGUMENT IS 11101 )
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 07741 TRANSFER VECTOR LENGTH 00102 PROGRAM BEGINS 01402
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
ADMIN 00264 A 1 FENCE 00122 1 MON4 00115 4 RDTU1 00240 4 SYSMSG 00770 A 1
ADOPT 00265 A 1 FILE 00327 A 1 MONEOF 00227 4 RDTU2 00115 4 T0 00132 1
ALL 00266 A 1 FMT1 00444 A 1 M 00743 A 1 RED 00756 A 1 T1 00131 1
ALTD 00146 A 1 FMT2 00555 A 1 N1 00132 1 RELLOC 00757 1 T2 00130 1
B1 00267 A 1 FMT3 00627 A 1 N2 00131 1 RHALF 00125 1 T3 00127 1
B2 00270 A 1 FMT4 00672 A 1 N3 00130 1 RPATBT 00760 A 1 T4 00126 1
B3 00271 A 1 FMT5 00724 A 1 N4 00127 1 RPROBT 00761 A 1 T5 00125 1
B4 00272 A 1 FOUND 00127 2 NALTD 00144 1 RPRVBT 00762 A 1 T6 00124 1
B5 00273 A 1 FRSTSW 00725 A 2 NAME 00744 1 R 00763 A 1 T7 00123 1
BEOF 00206 4 FSTST 00726 A 1 NAMESW 00131 2 RTU0 00241 4 TACARD 00205 1
BITS 00274 1 GTUSR1 00115 4 NINTBT 00745 A 1 RTU1 00242 4 TA 00771 A 1
BLACK 00275 A 1 HEL1 00115 4 NOTLIN 00130 2 RTU2 00243 4 TAU1 00772 A 1
BL 00276 A 1 HELMES 00166 A 1 NOUFD 00230 4 RTU3 00244 4 TAU5 00773 A 1
BUFF 00133 A 1 HELP 00727 A 1 N 00746 A 1 RTU4 00115 4 TAULOC 00124 1
CMFL02 00277 A 1 INP1 00224 4 NSTICK 00130 1 RTU5 00115 4 TAU 00125 1
CND1 00115 4 INPMES 00205 A 1 NULLS 00747 A 1 RTU6 00115 4 TEMP 00132 A 1
COMBUF 00324 A 1 IOERR 00225 4 NUSED 00136 1 SAVING 00764 A 1 TEST 00124 1
COMERR 00207 4 I 00730 1 OALTD 00145 1 SET0 00245 4 TIME 00774 1
COMMND 00325 A 1 J 00731 1 OLDM 00132 1 SHFT 00126 1 TIMNOW 00775 A 1
CPY1 00210 4 KEY22 00732 A 1 ON 00750 A 1 SLPCMD 00122 A 1 TUCARD 00166 A 1
DATELU 00165 1 KEYS 00123 1 OUSED 00137 1 SPY1 00246 4 TU 00776 A 1
DATE 00326 1 LENGTH 00156 1 OUT 00231 4 SPY2 00247 4 UNAME 00777 A 1
DAYTIM 00164 1 LEN 00123 1 PAT1 00232 4 SPY3 00250 4 UNITID 01000 A 1
DEL0 00211 4 LHALF 00126 1 PAT2 00233 4 SQZ1 00251 4 UPATSW 00132 2
DEL1 00212 4 LOC 00127 1 PAT3 00234 4 SQZ2 00252 4 UPD1 00261 4
DELTA 00130 1 M0 00733 A 1 PAT4 00235 4 SQZ3 00115 4 UPS1 00115 4
DEV 00161 1 M1416 00734 A 1 PATMES 00166 A 1 SQZ5 00253 4 URCODE 01001 A 1
DRMTSW 00132 2 M1 00735 A 1 PATTST 00236 4 SQZ6 00254 4 USED 00140 A 1
ERASE0 00213 4 M2 00736 A 1 PB0 00237 4 SQZEOF 00255 4 USEROK 00262 4
ERR0 00214 4 MAXI 00132 1 PB 00132 1 SQZERR 00256 4 USER 01002 A 1
ERR1 00215 4 ME 00740 A 1 PRBSW 00751 A 2 SQZOUT 00257 4 USROPT 01003 A 1
ERR2 00216 4 MESGPT 00741 A 1 PROBN 00752 A 1 SQZUFD 00260 4 USR 01004 1
ERR3 00217 4 MFD 00742 A 1 PROB 00117 A 1 STAR 00765 A 1 WHO 01010 A 1
ERR4 00220 4 MODE 00123 1 PROGN 00753 A 1 STATUS 00766 1 WRKTIM 01011 A 1
ERR5 00221 4 MON1 00115 4 PROG 00116 1 STICKY 00127 1 W 01012 A 1
ERR6 00222 4 MON2 00226 4 RCALBT 00754 A 1 STRTIM 00767 A 1 X 01013 A 1
ERR7 00223 4 MON3 00115 4 RCODE 00755 A 1
0FUNCTION DICTIONARY
ACORE 00000 1 ALLOT 00001 1 ATTACH 00002 1 ATTNAM 00003 1 BCDEC 00004 1
BCOCT 00005 1 BFCLOS 00006 1 BFOPEN 00007 1 BFREAD 00010 1 BFWRIT 00011 1
BUFFER 00012 1 BZ57 00013 1 BZEL 00014 1 CHFILE 00015 1 CLOSE 00016 1
COMLOC 00017 1 COPY 00020 1 DEFBC 00021 1 DELALL 00022 1 DELFIL 00023 1
DELMFD 00024 1 DELTEM 00025 1 ENTLIN 00026 1 EXITM 00027 1 EXIT 00030 1
FERRTN 00031 1 FSTATE 00032 1 GCLS 00033 1 GETARY 00034 1 GETBUF 00035 1
GETTM 00036 1 GLOC 00037 1 .SETUP 00040 1 KILL 00041 1 LJUST 00042 1
MINS 00043 1 MOVFIL 00044 1 NULL 00045 1 OCABC 00046 1 OCLBC 00047 1
OCRBC 00050 1 OPEN 00051 1 PCTL 00052 1 PRDIAG 00053 1 PRFULA 00054 1
PRFULL 00055 1 PRNTON 00056 1 RDFLXA 00057 1 RDFLXC 00060 1 REPROB 00061 1
RESETF 00062 1 RJUST 00063 1 RSSWB 00064 1 SCHEDL 00065 1 SETBCD 00066 1
SETBRK 00067 1 SETFIL 00070 1 SETFUL 00071 1 SLOC 00072 1 SNOOZE 00073 1
TSK 00074 1 UNLINK 00075 1 WHOAMI 00076 1 WRITE 00077 1 WRWAIT 00100 1
ZEL 00101 1 CHKPRV 00102 1 COMMON 00103 1 CURCOM 00104 1 ENTRY 00105 1
GETPRB 00106 1 GETUSR 00107 1 GTUSR 00110 1 INT 00111 1 NONINT 00112 1
READTU 00113 1 UPSHFT 00114 1
0ABSOLUTE CONSTANTS
01025 +000000000011 01266 -202300000506 01232 -075146274560 01231 -075146224560 01236 -114664452460
01264 -202221234227 01202 -052433142260 01223 -066360264664 01336 -206621626045 01122 +216263601410
01263 -202163604325 01074 +140145252524 01155 +272562336060 01235 -113165314325 01156 +312545636047
01347 -226426263123 01107 +145114013145 01211 -053314226060 01070 +062545634331 01151 +265146446014
01150 +256364514560 01153 +266443436051 01240 -115146513560 01345 -226325446025 01113 +145114016270
01132 +236321433314 01312 -204546636046 01142 +252460314533 01233 -076370331422 01277 -203162602544
01203 -052560141060 01111 +145114014331 01123 +216331464533 01141 +252331263123 01341 -222551606247
01144 +252721436064 01222 -065160314343 01216 -056374623414 01344 -226231452760 01112 +145114014431
01215 -056335601467 01121 +215127644425 01103 +142260606060 01363 -246221272533 01170 -032527214360
01106 +145114013143 01163 +331422606060 01171 -033124602664 01356 -236021606521 01337 -206651316325
01362 -244724216325 01377 -346462255134 01316 -205130214326 01303 -204330214326 01252 -201443434623
01361 -244721632330 01043 +000000000104 01023 +000000000007 01055 +000000077777 01147 +256233142260
01346 -226331234231 01214 -056063302560 01354 -233146456031 01205 -052646514421 01274 -203021626031
01373 -342431624234 01375 -342451644434 01126 +226060606060 01225 -066445243314 01311 -204546636026
01343 -225071642624 01032 +000000000017 01166 -006014676060 01143 +252460314560 01357 -236043462727
01300 -203162604546 01052 +000000003410 01370 -300000300000 01056 +000000300000 01165 +351467606060
01271 -202646644524 01077 +140164622551 01105 +144364622551 01213 -056062477060 01117 +146421244431
01331 -206060624770 01313 -204626146760 01125 +216414676060 01207 -052760140363 01054 +000000007020
01335 -206462255160 01137 +246064622524 01152 +266360214363 01254 -201443623031 01342 -222563632164
01304 -204331452560 01221 -064560644531 01076 +140145466660 01272 -202651464460 01355 -236014676060
01305 -204346274664 01073 +140143216263 01063 +000061000060 01400 -377700000000 01057 +000000777700
01053 +000000006060 01027 +000000000014 01047 +000000000377 01061 +000017777777 01040 +000000000074
01136 +246046266014 01241 -116030252151 01075 +140145256525 01120 +214425024060 01140 +250140604045
01242 -116040452144 01234 -112463314464 01174 -042502406060 01173 -042501604521 01251 -201443404521
01230 -075145634645 01226 -072260606060 01334 -206346601467 01367 -276060606060 01146 +256046266014
01127 +232545632127 01210 -052760472551 01332 -206225636331 01340 -222551606060 01253 -201443456064
01323 -206060604722 01333 -206346601410 01176 -046014106060 01104 +144360265146 01161 +314527601467
01026 +000000000012 01262 -202163601467 01224 -066360622563 01371 -306002026045 01110 +145114014225
01376 -342631223460 01062 +000060575757 01035 +000000000030 01022 +000000000006 01041 +000000000077
01326 -206060606020 01327 -206060606040 01324 -206060606000 01372 -307070707070 01314 -204721632330
01071 +076000000004 01330 -206060606060 01036 +000000000033 01037 +000000000034 01245 -116660606060
01033 +000000000020 01124 +216360146760 01160 +314464622460 01024 +000000000010 01066 +024060606060
01301 -204045214425 01200 -052144250140 01352 -233060144340 01162 +314560444645 01256 -201464212444
01307 -204446456330 01164 +336060606060 01206 -052714676060 01302 -204231434331 01321 -206042314343
01031 +000000000016 01374 -342451446334 01177 -046334406060 01243 -116040742451 01250 -201404646225
01276 -203145476463 01060 +000016000000 01030 +000000000015 01042 +000000000102 01101 +142214106060
01115 +145114676060 01227 -072535601422 01114 +145114016370 01204 -052566442562 01267 -202551216225
01135 +242543632544 01244 -116060606060 01255 -201443646225 01134 +242543214343 01051 +000000000777
01045 +000000000124 01050 +000000000660 01044 +000000000120 01167 -006040450440 01065 +024060404503
01310 -204501604045 01320 -206023464770 01401 -377760000000 01157 +314464622433 01353 -233145276063
01315 -205125622563 01017 +000000000003 01021 +000000000005 01131 +234524514321 01172 -034734606060
01257 -201464743025 01273 -202664452363 01067 +052124443145 01325 -206060606014 01212 -053514541454
01360 -244523633146 01217 -062660216026 01364 -246221272560 01237 -115125236360 01350 -233025602346
01072 +140126465160 01046 +000000000144 01246 -141410606060 01366 -263145273514 01270 -202646434346
01220 -062660633025 01145 +256021457060 01306 -204421706022 01351 -233025602664 01365 -263025512560
01247 -141454141060 01261 -202151276214 01201 -052363314645 01175 -043145602664 01317 -206014052124
01100 +141060606060 01102 +142214541454 01154 +272560316235 01133 +236360646221 01064 +012346515125
01116 +145460145114 01275 -203025434346 01265 -202300000303 01322 -206060110600 01260 -202124443145
01034 +000000000022 01014 +000000000000 01016 +000000000002 01020 +000000000004 01015 +000000000001
01130 +233000000000
0STATEMENT DICTIONARY
00206 TXL -307577007573 00207 TXL -306735006721 00210 TXL -302242002236 00211 TXL -302317002314
00212 TXL -302355002352 00213 TXL -302412002407 00214 TXL -306525006520 00215 TXL -306541006526
00216 TXL -306550006542 00217 TXL -306562006551 00220 TXL -306610006600 00221 TXL -306577006563
00222 TXL -306620006611 00223 TXL -306632006621 00224 TXL -302611002605 00225 TXL -306514006512
00226 TXL -303201003164 00227 TXL -303222003210 00230 TXL -305475005467 00231 TXL -306505006504
00232 TXL -303377003372 00233 TXL -303470003461 00234 TXL -303473003470 00235 TXL -303647003642
00236 TXL -303762003747 00237 TXL -304141004137 00240 TXL -307540007535 00241 TXL -304323004321
00242 TXL -304327004323 00243 TXL -304363004361 00244 TXL -304401004400 00245 TXL -305031005014
00246 TXL -305275005271 00247 TXL -305350005345 00250 TXL -305354005351 00251 TXL -305460005454
00252 TXL -305461005460 00253 TXL -305713005704 00254 TXL -305744005740 00255 TXL -305734005730
00256 TXL -306061006060 00257 TXL -306046006045 00260 TXL -305502005476 00261 TXL -306410006401
00262 TXL -301556001547
0PROGRAM
D'N B1(0), B2(0), B3(0), B4(0), B5(0) 001 LM00028
D'N WHO(3), ME(1), PROB(1), COMBUF(20) 002 LM00029
D'N PROBN(0), PROGN(0), TUCARD(27) 003 LM00030
D'N TEMP(7) 004 LM00031
E'E (PROG,PROB(1)), (SLPCMD,FENCE) 005 LM00033
E'E (T0,TEMP(0)), (T1,TEMP(1)), (T2,TEMP(2)), (T3,TEMP(3)) 006 LM00034
E'E (T4,TEMP(4)), (T5,TEMP(5)), (T6,TEMP(6)), (T7,TEMP(7)) 007 LM00035
V'S STAR = $ *$ 008 LM00037
01402 TSX +0 07400 4 00040 00765 -2 06060 6 06054
V'S M0 = -0 009 LM00038
00733 -0 00000 0 00000
V'S M1 = -1 010 LM00039
00735 -0 00000 0 00001
V'S M2 = -2 011 LM00040
00736 -0 00000 0 00002
V'S M = 0 012 LM00041
00743 +0 00000 0 00000
V'S TEMP(0)...TEMP(7) = 0 013 LM00042
00123 +0 00000 0 00000 00124 +0 00000 0 00000 00125 +0 00000 0 00000 00126 +0 00000 0 00000
00127 +0 00000 0 00000 00130 +0 00000 0 00000 00131 +0 00000 0 00000 00132 +0 00000 0 00000
V'S MFD = $M.F.D.$ 014 LM00044
00742 -0 43326 3 32433
V'S FILE = $(FILE)$ 015 LM00045
00327 -3 42631 4 32534
V'S M1416 = $ M1416$ 016 LM00046
00734 -2 04401 0 40106
V'S CMFL02 = $CMFL02$ 017 LM00047
00277 +2 34426 4 30002
V'S TU = $TIMUSD$ 018 LM00048
00776 -2 33144 6 46224
V'S TA = $TIMACC$ 019 LM00049
00771 -2 33144 2 12323
V'S R = $R$ 020 LM00050
00763 -1 16060 6 06060
V'S W = $W$ 021 LM00051
01012 -2 66060 6 06060
V'S N = $N$ 022 LM00052
00746 -0 56060 6 06060
V'S ALL = $ALL $ 023 LM00053
00266 +2 14343 6 06060
V'S USER = $USER $ 024 LM00054
01002 -2 46225 5 16060
V'S COMMND = $COMMND$ 025 LM00055
00325 +2 34644 4 44524
V'S PROBN = $PROBN $ 026 LM00056
00752 -0 75146 2 24560
V'S PROGN = $PROGN $ 027 LM00057
00753 -0 75146 2 74560
V'S UNAME = $UNAME $ 028 LM00058
00777 -2 44521 4 42560
V'S USROPT = $USROPT$ 029 LM00059
01003 -2 46251 4 64763
V'S URCODE = $URCODE$ 030 LM00060
01001 -2 45123 4 62425
V'S RCODE = $RCODE $ 031 LM00061
00755 -1 12346 2 42560
V'S NINTBT = $NINTBT$ 032 LM00062
00745 -0 53145 6 32263
V'S RCALBT = $RCALBT$ 033 LM00063
00754 -1 12321 4 32263
V'S RPROBT = $RPROBT$ 034 LM00064
00761 -1 14751 4 62263
V'S RPRVBT = $RPRVBT$ 035 LM00065
00762 -1 14751 6 52263
V'S RPATBT = $RPATBT$ 036 LM00066
00760 -1 14721 6 32263
V'S STRTIM = $STRTIM$ 037 LM00067
00767 -2 26351 6 33144
V'S WRKTIM = $WRKTIM$ 038 LM00068
01011 -2 65142 6 33144
V'S TIMNOW = $TIMNOW$ 039 LM00069
00775 -2 33144 4 54666
V'S UNITID = $UNITID$ 040 LM00070
01000 -2 44531 6 33124
V'S TAU1 = $TAU1 $ 041 LM00071
00772 -2 32164 0 16060
V'S TAU5 = $TAU5 $ 042 LM00072
00773 -2 32164 0 56060
V'S ADOPT = $ADOPT $ 043 LM00073
00265 +2 12446 4 76360
V'S MESGPT = $MESGPT$ 044 LM00074
00741 -0 42562 2 74763
V'S SYSMSG = $SYSMSG$ 045 LM00075
00770 -2 27062 4 46227
V'S FSTST = $FS.TST$ 046 LM00076
00726 +2 66233 6 36263
V'S SAVING = $SAVING$ 047 LM00077
00764 -2 22165 3 14527
V'S HELP = $(HELP)$ 048 LM00080
00727 -3 43025 4 34734
V'S X = $'X$ 049 LM00081
01013 +1 46760 6 06060
V'S ADMIN = $ 'UADMIN '8$ 050 LM00082
00263 +3 14560 1 41060 00264 -2 01464 2 12444
V'S RED = $'R'8$ 051 LM00083
00756 +1 45114 1 06060
V'S BLACK = $'B'8$ 052 LM00084
00275 +1 42214 1 06060
V'S ON = $ ON 'X$ 053 LM00085
00750 -2 04645 6 01467
V'S BL = $ '8$ 054 LM00086
00276 -2 01410 6 06060
V'S KEY22 = 000000K 055 LM00087
00732 +0 00000 0 00000
V'S NULLS = 575757575757K 056 LM00089
00747 -1 75757 5 75757
V'S SLPCMD = 777777777777K, $YES$, $.$ 057 LM00091
00120 +3 36060 6 06060 00121 -3 02562 6 06060 00122 -3 77777 7 77777
N'R 058 LM00097
WHOAMI.(WHO(3)...4) 059 LM00098
01403 TSX +0 07400 4 00076 01404 TIX +2 01020 0 01005
ATTNAM.(ME(1)...2) 060 LM00099
01405 TSX +0 07400 4 00003 01406 TIX +2 01016 0 00737
GETTM.(DATE,TIME) 061 LM00100
01407 TSX +0 07400 4 00036 01410 TXH +3 00000 0 00326 01411 TXH +3 00000 0 00774
FERRTN.(IOERR) 062 LM00101
01412 TSX +0 07400 4 00031 01413 TXH +3 00000 0 00225
SETBRK.(OUT) 063 LM00102
01414 TSX +0 07400 4 00067 01415 TXH +3 00000 0 00231
PCTL.(1) 064 LM00103
01416 TSX +0 07400 4 00052 01417 TXH +3 00000 0 01015
USER = GLOC.(COMMON.(USER)) 065 LM00105
01420 TSX +0 07400 4 00103 01421 TXH +3 00000 0 01002 01422 STO +0 60100 0 07732 01423 TSX +0 07400 4 00037
01424 TXH +3 00000 0 07732 01425 STO +0 60100 0 01002
SLOC.(0,COMMON.(COMMND)+USER) 066 LM00108
01426 TSX +0 07400 4 00103 01427 TXH +3 00000 0 00325 01430 ADD +0 40000 0 01002 01431 STO +0 60100 0 07732
01432 TSX +0 07400 4 00072 01433 TXH +3 00000 0 01014 01434 TXH +3 00000 0 07732
RCODE = GLOC.(COMMON.(RCODE)+USER) 067 LM00110
01435 TSX +0 07400 4 00103 01436 TXH +3 00000 0 00755 01437 ADD +0 40000 0 01002 01440 STO +0 60100 0 07732
01441 TSX +0 07400 4 00037 01442 TXH +3 00000 0 07732 01443 STO +0 60100 0 00755
RPATBT = COMMON.(RPATBT) 068 LM00111
01444 TSX +0 07400 4 00103 01445 TXH +3 00000 0 00760 01446 STO +0 60100 0 00760
RCALBT = COMMON.(RCALBT) 069 LM00112
01447 TSX +0 07400 4 00103 01450 TXH +3 00000 0 00754 01451 STO +0 60100 0 00754
RPROBT = COMMON.(RPROBT) 070 LM00113
01452 TSX +0 07400 4 00103 01453 TXH +3 00000 0 00761 01454 STO +0 60100 0 00761
RPRVBT = COMMON.(RPRVBT) 071 LM00114
01455 TSX +0 07400 4 00103 01456 TXH +3 00000 0 00762 01457 STO +0 60100 0 00762
NINTBT = COMMON.(NINTBT).LS.18 072 LM00116
01460 TSX +0 07400 4 00103 01461 TXH +3 00000 0 00745 01462 STO +0 60100 0 07732 01463 CAL -0 50000 0 01034
01464 STA +0 62100 0 01466 01465 CAL -0 50000 0 07732 01466 ALS +0 76700 0 00000 01467 SLW +0 60200 0 00745
USROPT = COMMON.(USROPT)+USER 073 LM00117
01470 TSX +0 07400 4 00103 01471 TXH +3 00000 0 01003 01472 ADD +0 40000 0 01002 01473 STO +0 60100 0 01003
N = COMMON.(N) 074 LM00118
01474 TSX +0 07400 4 00103 01475 TXH +3 00000 0 00746 01476 STO +0 60100 0 00746
GCLS.(COMBUF,0) 075 LM00120
01477 TSX +0 07400 4 00033 01500 TXH +3 00000 0 00324 01501 TXH +3 00000 0 01014
W'R COMBUF.E.$ ADMIN$, M = 1 076 LM00121
01502 CLA +0 50000 0 00324 01503 SUB +0 40200 0 01260 01504 TNZ -0 10000 0 01507 01505 CLA +0 50000 0 01015
01506 STO +0 60100 0 00743
W'R COMBUF(M).E.$ HELLO$ .AND. WHO(3).E.$ C0033$ .AND. 077 LM00125
1 WHO(2) .E. $ 960$, T'O USEROK 077 LM00126
01507 CLA +0 50000 0 01006 01510 SUB +0 40200 0 01322 01511 TNZ -0 10000 0 01522 01512 CLA +0 50000 0 01005
01513 SUB +0 40200 0 01265 01514 TNZ -0 10000 0 01522 01515 LXA +0 53400 1 00743 01516 CLA +0 50000 1 00324
01517 SUB +0 40200 0 01275 01520 TNZ -0 10000 0 01522 01521 TRA +0 02000 0 00262
BITS = RCALBT.V.RPROBT.V.RPRVBT 078 LM00127
01522 CAL -0 50000 0 00754 01523 ORA -0 50100 0 00761 01524 ORA -0 50100 0 00762 01525 SLW +0 60200 0 00274
W'R WHO(3).E.M1416 .AND. (RCODE.A.BITS.E.BITS .OR. RCODE.A. 079 LM00128
1 RPATBT.E.RPATBT), T'O USEROK 079 LM00129
01526 CAL -0 50000 0 00755 01527 ANA -0 32000 0 00760 01530 SLW +0 60200 0 07732 01531 CLA +0 50000 0 07732
01532 SUB +0 40200 0 00760 01533 TZE +0 10000 0 01542 01534 CAL -0 50000 0 00755 01535 ANA -0 32000 0 00274
01536 SLW +0 60200 0 07732 01537 CLA +0 50000 0 07732 01540 SUB +0 40200 0 00274 01541 TNZ -0 10000 0 01546
01542 CLA +0 50000 0 01005 01543 SUB +0 40200 0 00734 01544 TNZ -0 10000 0 01546 01545 TRA +0 02000 0 00262
TSK. 080 LM00132
01546 TSX +0 07400 4 00074
USEROK W'R COMBUF(M).E.HELP .OR. COMBUF(M).E.FENCE 081 LM00134
01547 LXA +0 53400 1 00743 01550 CLA +0 50000 1 00324 01551 SUB +0 40200 0 00122 01552 TZE +0 10000 0 01556
01553 CLA +0 50000 1 00324 01554 SUB +0 40200 0 00727 01555 TNZ -0 10000 0 01625
PRFULL.($'* 'R'1CORRECT USAGE IS:'B'*'*'8$, 082 LM00135
1 $ '5ADMIN FUNCTION ARGS'*'*'8$, 082 LM00136
2 $WHERE THE FUNCTION MAY BE ANY OF THE FOLLOWING:'*'8$) 082 LM00137
01556 TSX +0 07400 4 00055 01557 TXH +3 00000 0 01116 01560 TXH +3 00000 0 01064 01561 TXH +3 00000 0 01133
01562 TXH +3 00000 0 01154 01563 TXH +3 00000 0 01102 01564 TXH +3 00000 0 01100 01565 TXH +3 00000 0 01317
01566 TXH +3 00000 0 01175 01567 TXH +3 00000 0 01201 01570 TXH +3 00000 0 01261 01571 TXH +3 00000 0 01247
01572 TXH +3 00000 0 01365 01573 TXH +3 00000 0 01351 01574 TXH +3 00000 0 01201 01575 TXH +3 00000 0 01306
01576 TXH +3 00000 0 01145 01577 TXH +3 00000 0 01220 01600 TXH +3 00000 0 01270 01601 TXH +3 00000 0 01366
01602 TXH +3 00000 0 01246
PRFULL.(FMT1...100,FMT2...100) 083 LM00139
01603 TSX +0 07400 4 00055 01604 TIX +2 01046 0 00444 01605 TIX +2 01046 0 00555
V'S FMT1 = 084 LM00141
1 $'6CNDRLA - CLEARS ALL PRESENT USERS TAU VECTORS (36)'*'8$, 084 LM00142
2 $'4COPY - COPY ACCOUNTING FILES FROM '4CMFL02 (10)'*'8$, 084 LM00143
3 $'6DELALL - DELETES ALL FILES FROM A DIRECTORY'*'8$, 084 LM00144
4 $'6DELTEM - DELETES TEMPORARY FILES FROM A DIRECTORY'*'8$, 084 LM00145
5 $'5ERASE - ELIMINATES A FILE DIRECTORY'*'8$, 084 LM00146
6 $'5HELLO - MODIFIES DIALUP MESSAGE'*'8$, 084 LM00147
7 $'5INPUT - ENTER A LINE INTO A USER''S INPUT BUFFER'*'8$, 084 LM00148
8 $'4KILL - LOGS A USER OUT'*'8$, 084 LM00149
9 $'5MONTH - UPDATE AND RESET TIMUSD (36)'*'8$,777777777777K 084 LM00150
00330 -3 77777 7 77777 00331 +1 06060 6 06060 00332 +0 30634 1 45414 00333 -0 46462 2 46074
00334 -2 22563 6 06331 00335 +2 14524 6 05125 00336 -0 72421 6 32560 00337 +3 06060 4 06064
00340 +1 40544 4 64563 00341 -2 46314 5 41410 00342 -2 46225 5 16046 00343 -0 62762 6 02160
00344 -2 06060 4 06043 00345 +1 40442 3 14343 00346 +1 06060 6 06060 00347 +2 62551 1 45414
00350 -2 46360 2 26426 00351 +1 46260 3 14547 00352 -2 06462 2 55114 00353 +3 14563 4 66021
00354 -2 04331 4 52560 00355 -0 56325 5 16021 00356 -2 36060 4 06025 00357 +1 40531 4 54764
00360 +1 41060 6 06060 00361 -2 22127 2 51454 00362 -2 44760 4 42562 00363 -2 26024 3 12143
00364 -0 62431 2 63125 00365 -0 66060 4 06044 00366 +1 40530 2 54343 00367 -1 17014 5 41410
00370 +3 15125 2 36346 00371 +2 63143 2 56024 00372 -2 32562 6 02160 00373 -0 33144 3 14521
00374 +2 56060 4 06025 00375 +1 40525 5 12162 00376 +1 06060 6 06060 00377 -0 65170 1 45414
00400 +2 43151 2 52363 00401 -1 14644 6 02160 00402 +3 14325 6 26026 00403 -1 12151 7 06026
00404 -2 06325 4 44746 00405 +2 54325 6 32562 00406 +2 54460 4 06024 00407 +1 40624 2 54363
00410 +1 06060 6 06060 00411 -0 65170 1 45414 00412 +2 43151 2 52363 00413 -1 14644 6 02160
00414 +3 14325 6 26026 00415 -2 02143 4 36026 00416 +2 54325 6 32562 00417 -0 34360 4 06024
00420 +1 40624 2 54321 00421 +1 06060 6 06060 00422 +0 10034 1 45414 00423 +2 64300 0 26074
00424 -0 46014 0 42344 00425 +2 56260 2 65146 00426 -0 52760 2 63143 00427 +2 34664 4 56331
00430 -0 64770 6 02123 00431 -2 06060 4 06023 00432 +1 40423 4 64770 00433 +1 41060 6 06060
00434 -3 40306 3 41454 00435 +2 36346 5 16260 00436 -2 32164 6 06525 00437 -2 46225 5 16260
00440 +2 56225 4 56360 00441 +2 14343 6 04751 00442 -0 32521 5 16260 00443 -0 32160 4 06023
00444 +1 40623 4 52451
V'S FMT2 = 085 LM00152
1 $'5PATCH - PATCHES CORE '1A (20)'*'8$, 085 LM00153
2 $'2PB - ASSIGNS A PERCENTAGE TO A USER'*'8$, 085 LM00154
3 $'6PRNTON - PRINT MESSAGE ONLINE'*'8$, 085 LM00155
4 $'6RDTIMU - PRINT TIME USED BY A USER'*'8$, 085 LM00156
5 $'6SETTAU - RESET A '3TAU VECTOR OF A USER'*'8$, 085 LM00157
6 $'3SPY - SPY ON A USER'*'8$, 085 LM00158
7 $'6SQZUFD - COMPACT A 'UU.F.D.'L'*'8$, 085 LM00159
8 $'6UPATCH - PATCH ARRAY ENTRY OF PRESENT USER (20)'*'8$, 085 LM00160
9 $'6UPDATE - UPDATE '4CMFL02 WITH ACCOUNTING FILES(10)'*'8$, 085 LM00161
0 $'5WRITE - WRITE A MESSAGE AT A USER'*'8$,777777777777K 085 LM00162
00445 -3 77777 7 77777 00446 +1 45414 1 06060 00447 +2 16064 6 22551 00450 +2 72560 2 16360
00451 -2 04425 6 26221 00452 -1 13163 2 56021 00453 +2 56060 4 06066 00454 +1 40566 5 13163
00455 +1 41060 6 06060 00456 -3 40100 3 41454 00457 -2 02631 4 32562 00460 -2 44563 3 14527
00461 +3 06021 2 32346 00462 +0 00260 6 63163 00463 +1 40423 4 42643 00464 -0 72421 6 32560
00465 -2 32560 4 06064 00466 +1 40664 4 72421 00467 +3 41454 1 41060 00470 +2 55160 7 40200
00471 +2 54563 6 06462 00472 +2 66047 5 12562 00473 -0 56351 7 06046 00474 -1 15121 7 06025
00475 +2 16323 3 06021 00476 +2 33060 4 06047 00477 +1 40664 4 72163 00500 -0 31454 1 41060
00501 +3 32633 2 43314 00502 -2 02160 1 46464 00503 -0 64447 2 12363 00504 +2 62460 4 06023
00505 +1 40662 5 07164 00506 +1 45414 1 06060 00507 +2 16064 6 22551 00510 -0 77060 4 64560
00511 -2 06060 4 06062 00512 +1 40362 4 77060 00513 -1 41410 6 06060 00514 -2 06462 2 55114
00515 -1 16046 2 66021 00516 -2 06525 2 36346 00517 -2 01403 6 32164 00520 +2 56225 6 36021
00521 +2 16460 4 06051 00522 +1 40662 2 56363 00523 +1 45414 1 06060 00524 +2 16064 6 22551
00525 +2 52460 2 27060 00526 +3 14425 6 06462 00527 -1 13145 6 36063 00530 -0 46460 4 06047
00531 +1 40651 2 46331 00532 +2 51454 1 41060 00533 -2 04645 4 33145 00534 +2 56262 2 12725
00535 -1 13145 6 36044 00536 -0 64560 4 06047 00537 +1 40647 5 14563 00540 -1 41410 6 06060
00541 -2 06462 2 55114 00542 +2 56063 4 66021 00543 +2 32545 6 32127 00544 -2 02160 4 72551
00545 -2 26231 2 74562 00546 -2 06060 4 06021 00547 +1 40247 2 26060 00550 +0 03414 5 41410
00551 +1 40121 6 07402 00552 -2 02346 5 12560 00553 +2 16323 3 02562 00554 +3 06060 4 06047
00555 +1 40547 2 16323
PRFULL.($'1FOR THE CORRECT USAGE OF A FUNCTION:'*'*'8$, 086 LM00164
1 $ '5ADMIN FUNCT 'U(HELP)$) 086 LM00165
01606 TSX +0 07400 4 00055 01607 TXH +3 00000 0 01072 01610 TXH +3 00000 0 01350 01611 TXH +3 00000 0 01237
01612 TXH +3 00000 0 01364 01613 TXH +3 00000 0 01217 01614 TXH +3 00000 0 01360 01615 TXH +3 00000 0 01212
01616 TXH +3 00000 0 01100 01617 TXH +3 00000 0 01325 01620 TXH +3 00000 0 01067 01621 TXH +3 00000 0 01273
01622 TXH +3 00000 0 01257 01623 TXH +3 00000 0 01172
E'E (T0,MAXI), (T6,TAULOC) 087 LM00184
O'R COMBUF(M) .E. $CNDRLA$ 088 LM00186
01624 TRA +0 02000 0 06504 01625 LXA +0 53400 1 00743 01626 CLA +0 50000 1 00324 01627 SUB +0 40200 0 01131
01630 TNZ -0 10000 0 01740
M = M+1 089 LM00187
01631 CLA +0 50000 0 00743 01632 ADD +0 40000 0 01015 01633 STO +0 60100 0 00743
W'R COMBUF(M) .E. HELP 090 LM00188
01634 LXA +0 53400 1 00743 01635 CLA +0 50000 1 00324 01636 SUB +0 40200 0 00727 01637 TNZ -0 10000 0 01647
PRFULL.(ADMIN...2,CURCOM.(0)) 091 LM00189
01640 TSX +0 07400 4 00104 01641 TXH +3 00000 0 01014 01642 STO +0 60100 0 07732 01643 TSX +0 07400 4 00055
01644 TIX +2 01016 0 00264 01645 TXH +3 00000 0 07732
O'E 092 LM00190
01646 TRA +0 02000 0 01737
W'R COMBUF(M).NE.FENCE, T'O ERR1 093 LM00191
01647 LXA +0 53400 1 00743 01650 CLA +0 50000 1 00324 01651 SUB +0 40200 0 00122 01652 TZE +0 10000 0 01654
01653 TRA +0 02000 0 00215
CHKPRV.(BITS.V.RPATBT) 094 LM00192
01654 CAL -0 50000 0 00274 01655 ORA -0 50100 0 00760 01656 SLW +0 60200 0 07732 01657 TSX +0 07400 4 00102
01660 TXH +3 00000 0 07732
MAXI = 5 * (N+1) 095 LM00193
01661 CLA +0 50000 0 00746 01662 ADD +0 40000 0 01015 01663 XCA +0 13100 0 00000 01664 MPY +0 20000 0 01021
01665 STQ -0 60000 0 00132
TAULOC = COMMON.(TAU5) 096 LM00194
01666 TSX +0 07400 4 00103 01667 TXH +3 00000 0 00773 01670 STO +0 60100 0 00124
PCTL.(3) 097 LM00196
01671 TSX +0 07400 4 00052 01672 TXH +3 00000 0 01017
PRFULL.(X,WHO(3)...M2,$ RESETTING TIMUSD.$) 098 LM00197
01673 TSX +0 07400 4 00055 01674 TXH +3 00000 0 01013 01675 TIX +2 00736 0 01005 01676 TXH +3 00000 0 01315
01677 TXH +3 00000 0 01353 01700 TXH +3 00000 0 01157
PCTL.(1) 099 LM00198
01701 TSX +0 07400 4 00052 01702 TXH +3 00000 0 01015
NONINT. 100 LM00202
01703 TSX +0 07400 4 00112
T'H CND1, FOR I = 0,1,I.G.MAXI 101 LM00203
01704 CLA +0 50000 0 01014 01705 STO +0 60100 0 00730 01706 TRA +0 02000 0 01712 01707 CLA +0 50000 0 00730
01710 ADD +0 40000 0 01015 01711 STO +0 60100 0 00730 01712 CLA +0 50000 0 00730 01713 SUB +0 40200 0 00132
01714 TZE +0 10000 0 01716 01715 TPL +0 12000 0 01736
CND1 SLOC.(GLOC.(TAULOC+I).A.77776K7,TAULOC+I) 102 LM00204
01716 CLA +0 50000 0 00124 01717 ADD +0 40000 0 00730 01720 STO +0 60100 0 07732 01721 CLA +0 50000 0 00124
01722 ADD +0 40000 0 00730 01723 STO +0 60100 0 07733 01724 TSX +0 07400 4 00037 01725 TXH +3 00000 0 07733
01726 STO +0 60100 0 07733 01727 CAL -0 50000 0 07733 01730 ANA -0 32000 0 01401 01731 SLW +0 60200 0 07733
01732 TSX +0 07400 4 00072 01733 TXH +3 00000 0 07733 01734 TXH +3 00000 0 07732 01735 TRA +0 02000 0 01707
INT. 103 LM00205
01736 TSX +0 07400 4 00111
E'L 104 LM00206
E'E (T0,N1), (T1,N2), (T2,N3), (T3,N4), (T7,MODE) 105 LM00224
O'R COMBUF(M) .E. $ COPY$ 106 LM00226
01737 TRA +0 02000 0 06504 01740 LXA +0 53400 1 00743 01741 CLA +0 50000 1 00324 01742 SUB +0 40200 0 01320
01743 TNZ -0 10000 0 02264
M = M+1 107 LM00227
01744 CLA +0 50000 0 00743 01745 ADD +0 40000 0 01015 01746 STO +0 60100 0 00743
W'R COMBUF(M) .E. HELP 108 LM00228
01747 LXA +0 53400 1 00743 01750 CLA +0 50000 1 00324 01751 SUB +0 40200 0 00727 01752 TNZ -0 10000 0 01765
PRFULL.(ADMIN...2,CURCOM.(0),$ N1 -N2- -N3- -N4-$) 109 LM00229
01753 TSX +0 07400 4 00104 01754 TXH +3 00000 0 01014 01755 STO +0 60100 0 07733 01756 TSX +0 07400 4 00055
01757 TIX +2 01016 0 00264 01760 TXH +3 00000 0 07733 01761 TXH +3 00000 0 01310 01762 TXH +3 00000 0 01065
01763 TXH +3 00000 0 01167
O'E 110 LM00230
01764 TRA +0 02000 0 02263
N1 = COMBUF(M) 111 LM00231
01765 LXA +0 53400 2 00743 01766 CLA +0 50000 2 00324 01767 STO +0 60100 0 00132
N2 = COMBUF(M+1) 112 LM00232
01770 CLA +0 50000 0 00743 01771 ADD +0 40000 0 01015 01772 PAX +0 73400 2 00000 01773 CLA +0 50000 2 00324
01774 STO +0 60100 0 00131
N3 = COMBUF(M+2) 113 LM00233
01775 CLA +0 50000 0 00743 01776 ADD +0 40000 0 01016 01777 PAX +0 73400 2 00000 02000 CLA +0 50000 2 00324
02001 STO +0 60100 0 00130
N4 = COMBUF(M+3) 114 LM00234
02002 CLA +0 50000 0 00743 02003 ADD +0 40000 0 01017 02004 PAX +0 73400 2 00000 02005 CLA +0 50000 2 00324
02006 STO +0 60100 0 00127
W'R N2 .E. FENCE 115 LM00235
02007 CLA +0 50000 0 00131 02010 SUB +0 40200 0 00122 02011 TNZ -0 10000 0 02021
N2 = TA 116 LM00236
02012 CLA +0 50000 0 00771 02013 STO +0 60100 0 00131
N3 = N1 117 LM00237
02014 CLA +0 50000 0 00132 02015 STO +0 60100 0 00130
N4 = N2 118 LM00238
02016 CLA +0 50000 0 00131 02017 STO +0 60100 0 00127
O'R N3 .E. FENCE 119 LM00239
02020 TRA +0 02000 0 02056 02021 CLA +0 50000 0 00130 02022 SUB +0 40200 0 00122 02023 TNZ -0 10000 0 02031
N3 = N1 120 LM00240
02024 CLA +0 50000 0 00132 02025 STO +0 60100 0 00130
N4 = N2 121 LM00241
02026 CLA +0 50000 0 00131 02027 STO +0 60100 0 00127
O'R N4 .E. FENCE 122 LM00242
02030 TRA +0 02000 0 02056 02031 CLA +0 50000 0 00127 02032 SUB +0 40200 0 00122 02033 TNZ -0 10000 0 02037
N4 = N2 123 LM00243
02034 CLA +0 50000 0 00131 02035 STO +0 60100 0 00127
O'R N1 .E. FENCE 124 LM00244
02036 TRA +0 02000 0 02056 02037 CLA +0 50000 0 00132 02040 SUB +0 40200 0 00122 02041 TNZ -0 10000 0 02044
T'O ERR2 125 LM00245
02042 TRA +0 02000 0 00216
O'R COMBUF(M+4).NE. FENCE 126 LM00246
02043 TRA +0 02000 0 02056 02044 CLA +0 50000 0 00743 02045 ADD +0 40000 0 01020 02046 PAX +0 73400 1 00000
02047 CLA +0 50000 1 00324 02050 SUB +0 40200 0 00122 02051 TZE +0 10000 0 02056
M = M+4 127 LM00247
02052 CLA +0 50000 0 00743 02053 ADD +0 40000 0 01020 02054 STO +0 60100 0 00743
T'O ERR1 128 LM00248
02055 TRA +0 02000 0 00215
E'L 129 LM00249
M = M+4 130 LM00250
02056 CLA +0 50000 0 00743 02057 ADD +0 40000 0 01020 02060 STO +0 60100 0 00743
W'R ME(1).E.M1416 .AND. ME.E.CMFL02 .AND. 131 LM00251
1 N3.E.N1 .AND. N4.E.N2, T'O ERR0 131 LM00252
02061 CLA +0 50000 0 00127 02062 SUB +0 40200 0 00131 02063 TNZ -0 10000 0 02076 02064 CLA +0 50000 0 00130
02065 SUB +0 40200 0 00132 02066 TNZ -0 10000 0 02076 02067 CLA +0 50000 0 00740 02070 SUB +0 40200 0 00277
02071 TNZ -0 10000 0 02076 02072 CLA +0 50000 0 00737 02073 SUB +0 40200 0 00734 02074 TNZ -0 10000 0 02076
02075 TRA +0 02000 0 00214
CHKPRV.(RPRVBT) 132 LM00253
02076 TSX +0 07400 4 00102 02077 TXH +3 00000 0 00762
UNLINK.(DATE,TIME,NULL.) 133 LM00256
02100 TSX +0 07400 4 00075 02101 TXH +3 00000 0 00326 02102 TXH +3 00000 0 00774 02103 TXH +3 00000 0 00045
CHFILE.(DATE,TIME,1,M0,M0,NULL.) 134 LM00257
02104 TSX +0 07400 4 00015 02105 TXH +3 00000 0 00326 02106 TXH +3 00000 0 00774 02107 TXH +3 00000 0 01015
02110 TXH +3 00000 0 00733 02111 TXH +3 00000 0 00733 02112 TXH +3 00000 0 00045
DELFIL.(DATE,TIME,NULL.) 135 LM00258
02113 TSX +0 07400 4 00023 02114 TXH +3 00000 0 00326 02115 TXH +3 00000 0 00774 02116 TXH +3 00000 0 00045
OPEN.(W,DATE,TIME,120K) 136 LM00259
02117 TSX +0 07400 4 00051 02120 TXH +3 00000 0 01012 02121 TXH +3 00000 0 00326 02122 TXH +3 00000 0 00774
02123 TXH +3 00000 0 01044
GETBUF.(B1,432) 137 LM00260
02124 TSX +0 07400 4 00035 02125 TXH +3 00000 0 00267 02126 TXH +3 00000 0 01050
GETBUF.(B2,432) 138 LM00261
02127 TSX +0 07400 4 00035 02130 TXH +3 00000 0 00270 02131 TXH +3 00000 0 01050
GETBUF.(B3,432) 139 LM00262
02132 TSX +0 07400 4 00035 02133 TXH +3 00000 0 00271 02134 TXH +3 00000 0 01050
GETBUF.(B4,432) 140 LM00263
02135 TSX +0 07400 4 00035 02136 TXH +3 00000 0 00272 02137 TXH +3 00000 0 01050
BUFFER.(DATE,TIME,B4(B4+432)...432) 141 LM00264
02140 CLA +0 50000 0 00272 02141 ADD +0 40000 0 01050 02142 SUB +0 40200 0 02143 02143 TXH +3 00000 0 00272
02144 STA +0 62100 0 02150 02145 TSX +0 07400 4 00012 02146 TXH +3 00000 0 00326 02147 TXH +3 00000 0 00774
02150 TIX +2 01050 0 00000
ATTACH.(M1416,CMFL02) 142 LM00265
02151 TSX +0 07400 4 00002 02152 TXH +3 00000 0 00734 02153 TXH +3 00000 0 00277
NONINT. 143 LM00266
02154 TSX +0 07400 4 00112
OPEN.(R,N1,N2) 144 LM00267
02155 TSX +0 07400 4 00051 02156 TXH +3 00000 0 00763 02157 TXH +3 00000 0 00132 02160 TXH +3 00000 0 00131
COPY.(N1,N2,DATE,TIME,B1(B1+432),B2(B2+432),B3(B3+432), 145 LM00268
1 432,IOERR) 145 LM00269
02161 CLA +0 50000 0 00271 02162 ADD +0 40000 0 01050 02163 SUB +0 40200 0 02164 02164 TXH +3 00000 0 00271
02165 STA +0 62100 0 02207 02166 CLA +0 50000 0 00270 02167 ADD +0 40000 0 01050 02170 SUB +0 40200 0 02171
02171 TXH +3 00000 0 00270 02172 STA +0 62100 0 02206 02173 CLA +0 50000 0 00267 02174 ADD +0 40000 0 01050
02175 SUB +0 40200 0 02176 02176 TXH +3 00000 0 00267 02177 STA +0 62100 0 02205 02200 TSX +0 07400 4 00020
02201 TXH +3 00000 0 00132 02202 TXH +3 00000 0 00131 02203 TXH +3 00000 0 00326 02204 TXH +3 00000 0 00774
02205 TXH +3 00000 0 00000 02206 TXH +3 00000 0 00000 02207 TXH +3 00000 0 00000 02210 TXH +3 00000 0 01050
02211 TXH +3 00000 0 00225
CLOSE.(N1,N2) 146 LM00270
02212 TSX +0 07400 4 00016 02213 TXH +3 00000 0 00132 02214 TXH +3 00000 0 00131
INT. 147 LM00271
02215 TSX +0 07400 4 00111
CLOSE.(DATE,TIME) 148 LM00272
02216 TSX +0 07400 4 00016 02217 TXH +3 00000 0 00326 02220 TXH +3 00000 0 00774
ATTACH.(ME(1),ME) 149 LM00273
02221 TSX +0 07400 4 00002 02222 TXH +3 00000 0 00737 02223 TXH +3 00000 0 00740
MODE = 124K 150 LM00274
02224 CLA +0 50000 0 01045 02225 STO +0 60100 0 00123
FSTATE.(N3,N4,TUCARD(1)...2,CPY1) 151 LM00275
02226 TSX +0 07400 4 00032 02227 TXH +3 00000 0 00130 02230 TXH +3 00000 0 00127 02231 TIX +2 01016 0 00165
02232 TXH +3 00000 0 00210
MODE = TUCARD.A.777K 152 LM00276
02233 CAL -0 50000 0 00166 02234 ANA -0 32000 0 01051 02235 SLW +0 60200 0 00123
CPY1 UNLINK.(N3,N4,NULL.) 153 LM00277
02236 TSX +0 07400 4 00075 02237 TXH +3 00000 0 00130 02240 TXH +3 00000 0 00127 02241 TXH +3 00000 0 00045
CHFILE.(N3,N4,1,M0,M0,NULL.) 154 LM00278
02242 TSX +0 07400 4 00015 02243 TXH +3 00000 0 00130 02244 TXH +3 00000 0 00127 02245 TXH +3 00000 0 01015
02246 TXH +3 00000 0 00733 02247 TXH +3 00000 0 00733 02250 TXH +3 00000 0 00045
DELFIL.(N3,N4,NULL.) 155 LM00279
02251 TSX +0 07400 4 00023 02252 TXH +3 00000 0 00130 02253 TXH +3 00000 0 00127 02254 TXH +3 00000 0 00045
CHFILE.(DATE,TIME,MODE,N3,N4) 156 LM00280
02255 TSX +0 07400 4 00015 02256 TXH +3 00000 0 00326 02257 TXH +3 00000 0 00774 02260 TXH +3 00000 0 00123
02261 TXH +3 00000 0 00130 02262 TXH +3 00000 0 00127
E'L 157 LM00281
O'R COMBUF(M) .E. $DELALL$ 158 LM00298
02263 TRA +0 02000 0 06504 02264 LXA +0 53400 1 00743 02265 CLA +0 50000 1 00324 02266 SUB +0 40200 0 01134
02267 TNZ -0 10000 0 02322
M = M+1 159 LM00299
02270 CLA +0 50000 0 00743 02271 ADD +0 40000 0 01015 02272 STO +0 60100 0 00743
W'R COMBUF(M) .E. HELP 160 LM00300
02273 LXA +0 53400 1 00743 02274 CLA +0 50000 1 00324 02275 SUB +0 40200 0 00727 02276 TNZ -0 10000 0 02310
PRFULL.(ADMIN...2,CURCOM.(0),$ 'LUSER$) 161 LM00301
02277 TSX +0 07400 4 00104 02300 TXH +3 00000 0 01014 02301 STO +0 60100 0 07733 02302 TSX +0 07400 4 00055
02303 TIX +2 01016 0 00264 02304 TXH +3 00000 0 07733 02305 TXH +3 00000 0 01255 02306 TXH +3 00000 0 01244
O'E 162 LM00302
02307 TRA +0 02000 0 02321
GETUSR.(ERR3,DEL0,ERR5) 163 LM00303
02310 TSX +0 07400 4 00107 02311 TXH +3 00000 0 00217 02312 TXH +3 00000 0 00211 02313 TXH +3 00000 0 00221
DEL0 ATTACH.(PROB,PROG) 164 LM00304
02314 TSX +0 07400 4 00002 02315 TXH +3 00000 0 00117 02316 TXH +3 00000 0 00116
DELALL. 165 LM00305
02317 TSX +0 07400 4 00022
T'O ERASE0 166 LM00306
02320 TRA +0 02000 0 00213
E'L 167 LM00307
O'R COMBUF(M) .E. $DELTEM$ 168 LM00325
02321 TRA +0 02000 0 06504 02322 LXA +0 53400 1 00743 02323 CLA +0 50000 1 00324 02324 SUB +0 40200 0 01135
02325 TNZ -0 10000 0 02357
M = M+1 169 LM00326
02326 CLA +0 50000 0 00743 02327 ADD +0 40000 0 01015 02330 STO +0 60100 0 00743
W'R COMBUF(M) .E. HELP 170 LM00327
02331 LXA +0 53400 1 00743 02332 CLA +0 50000 1 00324 02333 SUB +0 40200 0 00727 02334 TNZ -0 10000 0 02346
PRFULL.(ADMIN...2,CURCOM.(0),$ 'LUSER$) 171 LM00328
02335 TSX +0 07400 4 00104 02336 TXH +3 00000 0 01014 02337 STO +0 60100 0 07733 02340 TSX +0 07400 4 00055
02341 TIX +2 01016 0 00264 02342 TXH +3 00000 0 07733 02343 TXH +3 00000 0 01255 02344 TXH +3 00000 0 01244
O'E 172 LM00329
02345 TRA +0 02000 0 02356
GETUSR.(ERR3,DEL1,ERR5) 173 LM00330
02346 TSX +0 07400 4 00107 02347 TXH +3 00000 0 00217 02350 TXH +3 00000 0 00212 02351 TXH +3 00000 0 00221
DEL1 ATTACH.(PROB,PROG) 174 LM00331
02352 TSX +0 07400 4 00002 02353 TXH +3 00000 0 00117 02354 TXH +3 00000 0 00116
DELTEM. 175 LM00332
02355 TSX +0 07400 4 00025
E'L 176 LM00333
O'R COMBUF(M) .E. $ ERASE$ 177 LM00351
02356 TRA +0 02000 0 06504 02357 LXA +0 53400 1 00743 02360 CLA +0 50000 1 00324 02361 SUB +0 40200 0 01267
02362 TNZ -0 10000 0 02432
M = M+1 178 LM00352
02363 CLA +0 50000 0 00743 02364 ADD +0 40000 0 01015 02365 STO +0 60100 0 00743
W'R COMBUF(M) .E. HELP 179 LM00353
02366 LXA +0 53400 1 00743 02367 CLA +0 50000 1 00324 02370 SUB +0 40200 0 00727 02371 TNZ -0 10000 0 02403
PRFULL.(ADMIN...2,CURCOM.(0),$ 'LUSER$) 180 LM00354
02372 TSX +0 07400 4 00104 02373 TXH +3 00000 0 01014 02374 STO +0 60100 0 07733 02375 TSX +0 07400 4 00055
02376 TIX +2 01016 0 00264 02377 TXH +3 00000 0 07733 02400 TXH +3 00000 0 01255 02401 TXH +3 00000 0 01244
O'E 181 LM00355
02402 TRA +0 02000 0 02431
GETUSR.(ERR3,ERASE0,ERR5) 182 LM00356
02403 TSX +0 07400 4 00107 02404 TXH +3 00000 0 00217 02405 TXH +3 00000 0 00213 02406 TXH +3 00000 0 00221
ERASE0 ATTACH.(PROB,PROG) 183 LM00357
02407 TSX +0 07400 4 00002 02410 TXH +3 00000 0 00117 02411 TXH +3 00000 0 00116
ALLOT.(1,0,0) 184 LM00358
02412 TSX +0 07400 4 00001 02413 TXH +3 00000 0 01015 02414 TXH +3 00000 0 01014 02415 TXH +3 00000 0 01014
ALLOT.(2,0,0) 185 LM00359
02416 TSX +0 07400 4 00001 02417 TXH +3 00000 0 01016 02420 TXH +3 00000 0 01014 02421 TXH +3 00000 0 01014
ALLOT.(3,0,0) 186 LM00360
02422 TSX +0 07400 4 00001 02423 TXH +3 00000 0 01017 02424 TXH +3 00000 0 01014 02425 TXH +3 00000 0 01014
DELMFD.(PROB,PROG) 187 LM00361
02426 TSX +0 07400 4 00024 02427 TXH +3 00000 0 00117 02430 TXH +3 00000 0 00116
E'L 188 LM00362
E'E (HELMES(13),TUCARD(13)) 189 LM00386
V'S HELMES = $NEXT COMEDOW$ 190 LM00387
00165 -0 64425 2 44666 00166 -0 52567 6 36023
V'S HELMES(2) = 453560575757K 191 LM00388
00164 -0 53560 5 75757
O'R COMBUF(M) .E. $ HELLO$ 192 LM00390
02431 TRA +0 02000 0 06504 02432 LXA +0 53400 1 00743 02433 CLA +0 50000 1 00324 02434 SUB +0 40200 0 01275
02435 TNZ -0 10000 0 02554
M = M+1 193 LM00391
02436 CLA +0 50000 0 00743 02437 ADD +0 40000 0 01015 02440 STO +0 60100 0 00743
W'R COMBUF(M) .E. HELP 194 LM00392
02441 LXA +0 53400 1 00743 02442 CLA +0 50000 1 00324 02443 SUB +0 40200 0 00727 02444 TNZ -0 10000 0 02450
PRFULL.(FMT4...100) 195 LM00393
02445 TSX +0 07400 4 00055 02446 TIX +2 01046 0 00672
V'S FMT4 = $ 'UADMIN HELLO 'LARG'*'8$, 196 LM00394
1 $WHERE '=ARG'= MAY BE:'*'8$, 196 LM00395
2 $ 1. NONE - SETS 'U'=NEXT COMDOWN:'='L MESSAGE'*'8$, 196 LM00396
3 $ 2. '='6NEWMES'= - ALLOWS COMPLETELY NEW MESSAGE'*'8$, 196 LM00397
4 $ 3. '='5RESET'= - RESETS MESSAGE SWITCH$,777777777777K 196 LM00398
00630 -3 77777 7 77777 00631 -2 63163 2 33060 00632 -2 22127 2 56062 00633 -2 36260 4 42562
00634 -0 06051 2 56225 00635 +2 56314 1 36060 00636 +1 31405 5 12562 00637 -2 06003 3 36014
00640 +2 51454 1 41060 00641 -0 42562 6 22127 00642 -3 06045 2 56660 00643 -0 74325 6 32543
00644 -2 66260 2 34644 00645 -0 06021 4 34346 00646 -0 42562 1 41360 00647 +1 31406 4 52566
00650 -2 06002 3 36014 00651 +2 72514 5 41410 00652 -2 04425 6 26221 00653 -0 53514 1 31443
00654 +2 34644 2 44666 00655 +1 34525 6 76360 00656 -2 36260 1 46414 00657 -2 06040 6 06225
00660 -2 04546 4 52560 00661 -2 06001 3 36060 00662 +1 06060 6 06060 00663 +2 22535 1 45414
00664 +1 36044 2 17060 00665 +1 41321 5 12714 00666 -2 63025 5 12560 00667 -1 12714 5 41410
00670 -0 34660 1 44321 00671 +3 14560 3 02543 00672 -2 01464 2 12444
O'E 197 LM00400
02447 TRA +0 02000 0 02553
MESGPT = COMMON.(MESGPT) 198 LM00401
02450 TSX +0 07400 4 00103 02451 TXH +3 00000 0 00741 02452 STO +0 60100 0 00741
SYSMSG = COMMON.(SYSMSG) 199 LM00402
02453 TSX +0 07400 4 00103 02454 TXH +3 00000 0 00770 02455 STO +0 60100 0 00770
W'R COMBUF(M) .E. $NEWMES$ 200 LM00403
02456 LXA +0 53400 1 00743 02457 CLA +0 50000 1 00324 02460 SUB +0 40200 0 01204 02461 TNZ -0 10000 0 02472
PRFULA.($'R'1TYPE: 'B'8$) 201 LM00404
02462 TSX +0 07400 4 00054 02463 TXH +3 00000 0 01114 02464 TXH +3 00000 0 01227 02465 TXH +3 00000 0 01100
RDFLXC.(HELMES,84) 202 LM00405
02466 TSX +0 07400 4 00060 02467 TXH +3 00000 0 00166 02470 TXH +3 00000 0 01045
O'R COMBUF(M) .E. $ RESET$ 203 LM00406
02471 TRA +0 02000 0 02520 02472 LXA +0 53400 1 00743 02473 CLA +0 50000 1 00324 02474 SUB +0 40200 0 01315
02475 TNZ -0 10000 0 02503
SLOC.(0,MESGPT) 204 LM00407
02476 TSX +0 07400 4 00072 02477 TXH +3 00000 0 01014 02500 TXH +3 00000 0 00741
T'O OUT 205 LM00408
02501 TRA +0 02000 0 00231
O'R COMBUF(M) .E. FENCE 206 LM00409
02502 TRA +0 02000 0 02520 02503 LXA +0 53400 1 00743 02504 CLA +0 50000 1 00324 02505 SUB +0 40200 0 00122
02506 TNZ -0 10000 0 02517
PRFULA.($'R'X$,HELMES...3,$'B'8$) 207 LM00410
02507 TSX +0 07400 4 00054 02510 TXH +3 00000 0 01115 02511 TIX +2 01017 0 00166 02512 TXH +3 00000 0 01101
RDFLXC.(HELMES(3),66) 208 LM00411
02513 TSX +0 07400 4 00060 02514 TXH +3 00000 0 00163 02515 TXH +3 00000 0 01042
O'E 209 LM00412
02516 TRA +0 02000 0 02520
T'O ERR1 210 LM00413
02517 TRA +0 02000 0 00215
E'L 211 LM00414
T'H HEL1, FOR I = 0,1,I.G.13 212 LM00415
02520 CLA +0 50000 0 01014 02521 STO +0 60100 0 00730 02522 TRA +0 02000 0 02526 02523 CLA +0 50000 0 00730
02524 ADD +0 40000 0 01015 02525 STO +0 60100 0 00730 02526 CLA +0 50000 0 00730 02527 SUB +0 40200 0 01030
02530 TZE +0 10000 0 02532 02531 TPL +0 12000 0 02545
HEL1 SLOC.(HELMES(I),SYSMSG+I) 213 LM00416
02532 CLA +0 50000 0 00770 02533 ADD +0 40000 0 00730 02534 STO +0 60100 0 07733 02535 CLA +0 50000 0 00730
02536 SUB +0 40200 0 02537 02537 TXH +3 00000 0 00166 02540 STA +0 62100 0 02542 02541 TSX +0 07400 4 00072
02542 TXH +3 00000 0 00000 02543 TXH +3 00000 0 07733 02544 TRA +0 02000 0 02523
SLOC.(16K6.V.SYSMSG,MESGPT) 214 LM00417
02545 CAL -0 50000 0 01060 02546 ORA -0 50100 0 00770 02547 SLW +0 60200 0 07733 02550 TSX +0 07400 4 00072
02551 TXH +3 00000 0 07733 02552 TXH +3 00000 0 00741
E'L 215 LM00418
D'N INPMES(14) 216 LM00436
E'E (INPMES,TACARD), (DRMTSW,T0) 217 LM00437
BOOLEAN DRMTSW 218 LM00438
O'R COMBUF(M) .E. $ INPUT$ 219 LM00440
02553 TRA +0 02000 0 06504 02554 LXA +0 53400 1 00743 02555 CLA +0 50000 1 00324 02556 SUB +0 40200 0 01276
02557 TNZ -0 10000 0 02651
M = M+1 220 LM00441
02560 CLA +0 50000 0 00743 02561 ADD +0 40000 0 01015 02562 STO +0 60100 0 00743
W'R COMBUF(M) .E. HELP 221 LM00442
02563 LXA +0 53400 1 00743 02564 CLA +0 50000 1 00324 02565 SUB +0 40200 0 00727 02566 TNZ -0 10000 0 02601
PRFULL.(ADMIN...2,CURCOM.(0),$ '4USER -(DRMT)-$) 222 LM00443
02567 TSX +0 07400 4 00104 02570 TXH +3 00000 0 01014 02571 STO +0 60100 0 07733 02572 TSX +0 07400 4 00055
02573 TIX +2 01016 0 00264 02574 TXH +3 00000 0 07733 02575 TXH +3 00000 0 01250 02576 TXH +3 00000 0 01243
02577 TXH +3 00000 0 01177
O'E 223 LM00444
02600 TRA +0 02000 0 02650
GETUSR.(ERR3,ERR4,INP1) 224 LM00445
02601 TSX +0 07400 4 00107 02602 TXH +3 00000 0 00217 02603 TXH +3 00000 0 00220 02604 TXH +3 00000 0 00224
INP1 W'R COMBUF(M) .E. $(DRMT)$ 225 LM00446
02605 LXA +0 53400 1 00743 02606 CLA +0 50000 1 00324 02607 SUB +0 40200 0 01374 02610 TNZ -0 10000 0 02614
DRMTSW = 1B 226 LM00447
02611 CLA +0 50000 0 01015 02612 STO +0 60100 0 00132
O'R COMBUF(M) .E. FENCE 227 LM00448
02613 TRA +0 02000 0 02624 02614 LXA +0 53400 1 00743 02615 CLA +0 50000 1 00324 02616 SUB +0 40200 0 00122
02617 TNZ -0 10000 0 02623
DRMTSW = 0B 228 LM00449
02620 CLA +0 50000 0 01014 02621 STO +0 60100 0 00132
O'E 229 LM00450
02622 TRA +0 02000 0 02624
T'O ERR1 230 LM00451
02623 TRA +0 02000 0 00215
E'L 231 LM00452
PRFULA.($'R'1TYPE: 'B'8$) 232 LM00453
02624 TSX +0 07400 4 00054 02625 TXH +3 00000 0 01114 02626 TXH +3 00000 0 01227 02627 TXH +3 00000 0 01100
RDFLXA.(INPMES(14)...14) 233 LM00454
02630 TSX +0 07400 4 00057 02631 TIX +2 01031 0 00167
NONINT. 234 LM00455
02632 TSX +0 07400 4 00112
W'R DRMTSW 235 LM00456
02633 NZT -0 52000 0 00132 02634 TRA +0 02000 0 02643
RSSWB.(USR) 236 LM00457
02635 TSX +0 07400 4 00064 02636 TXH +3 00000 0 01004
SCHEDL.(2,USR,1) 237 LM00458
02637 TSX +0 07400 4 00065 02640 TXH +3 00000 0 01016 02641 TXH +3 00000 0 01004 02642 TXH +3 00000 0 01015
E'L 238 LM00459
ENTLIN.(INPMES(14)...14,USR,ERR7) 239 LM00460
02643 TSX +0 07400 4 00026 02644 TIX +2 01031 0 00167 02645 TXH +3 00000 0 01004 02646 TXH +3 00000 0 00223
INT. 240 LM00461
02647 TSX +0 07400 4 00111
E'L 241 LM00462
O'R COMBUF(M) .E. $ KILL$ 242 LM00480
02650 TRA +0 02000 0 06504 02651 LXA +0 53400 1 00743 02652 CLA +0 50000 1 00324 02653 SUB +0 40200 0 01321
02654 TNZ -0 10000 0 02726
M = M+1 243 LM00481
02655 CLA +0 50000 0 00743 02656 ADD +0 40000 0 01015 02657 STO +0 60100 0 00743
W'R COMBUF(M) .E. HELP 244 LM00482
02660 LXA +0 53400 1 00743 02661 CLA +0 50000 1 00324 02662 SUB +0 40200 0 00727 02663 TNZ -0 10000 0 02675
PRFULL.(ADMIN...2,CURCOM.(0),$ 'LUSER$) 245 LM00483
02664 TSX +0 07400 4 00104 02665 TXH +3 00000 0 01014 02666 STO +0 60100 0 07733 02667 TSX +0 07400 4 00055
02670 TIX +2 01016 0 00264 02671 TXH +3 00000 0 07733 02672 TXH +3 00000 0 01255 02673 TXH +3 00000 0 01244
O'E 246 LM00484
02674 TRA +0 02000 0 02725
GETUSR.(ERR3,ERR4,ERR5) 247 LM00485
02675 TSX +0 07400 4 00107 02676 TXH +3 00000 0 00217 02677 TXH +3 00000 0 00220 02700 TXH +3 00000 0 00221
W'R COMBUF(M).NE.FENCE, T'O ERR1 248 LM00486
02701 LXA +0 53400 1 00743 02702 CLA +0 50000 1 00324 02703 SUB +0 40200 0 00122 02704 TZE +0 10000 0 02706
02705 TRA +0 02000 0 00215
PCTL.(3) 249 LM00487
02706 TSX +0 07400 4 00052 02707 TXH +3 00000 0 01017
PRFULL.(X,WHO(3)...M2,ON,WHO,$ KILLING'X$, 250 LM00488
1 PROB...2,$.$) 250 LM00489
02710 TSX +0 07400 4 00055 02711 TXH +3 00000 0 01013 02712 TIX +2 00736 0 01005 02713 TXH +3 00000 0 00750
02714 TXH +3 00000 0 01010 02715 TXH +3 00000 0 01302 02716 TXH +3 00000 0 01206 02717 TIX +2 01016 0 00117
02720 TXH +3 00000 0 01164
PCTL.(1) 251 LM00490
02721 TSX +0 07400 4 00052 02722 TXH +3 00000 0 01015
KILL.(USR) 252 LM00494
02723 TSX +0 07400 4 00041 02724 TXH +3 00000 0 01004
E'L 253 LM00495
E'E (T7,LEN) 254 LM00514
E'E (TUCARD(2),DAYTIM), (TUCARD(1),DATELU) 255 LM00515
O'R COMBUF(M) .E. $ MONTH$ 256 LM00517
02725 TRA +0 02000 0 06504 02726 LXA +0 53400 1 00743 02727 CLA +0 50000 1 00324 02730 SUB +0 40200 0 01307
02731 TNZ -0 10000 0 03354
M = M+1 257 LM00518
02732 CLA +0 50000 0 00743 02733 ADD +0 40000 0 01015 02734 STO +0 60100 0 00743
W'R COMBUF(M) .E. HELP 258 LM00519
02735 LXA +0 53400 1 00743 02736 CLA +0 50000 1 00324 02737 SUB +0 40200 0 00727 02740 TNZ -0 10000 0 02751
PRFULL.($ 'UADMIN MONTH 'L-NAME1- -NAME2-$) 259 LM00520
02741 TSX +0 07400 4 00055 02742 TXH +3 00000 0 01256 02743 TXH +3 00000 0 01162 02744 TXH +3 00000 0 01352
02745 TXH +3 00000 0 01200 02746 TXH +3 00000 0 01301 02747 TXH +3 00000 0 01066
O'E 260 LM00521
02750 TRA +0 02000 0 03353
CHKPRV.(BITS.V.RPATBT) 261 LM00522
02751 CAL -0 50000 0 00274 02752 ORA -0 50100 0 00760 02753 SLW +0 60200 0 07733 02754 TSX +0 07400 4 00102
02755 TXH +3 00000 0 07733
N1 = COMBUF(M) 262 LM00523
02756 LXA +0 53400 2 00743 02757 CLA +0 50000 2 00324 02760 STO +0 60100 0 00132
N2 = COMBUF(M+1) 263 LM00524
02761 CLA +0 50000 0 00743 02762 ADD +0 40000 0 01015 02763 PAX +0 73400 2 00000 02764 CLA +0 50000 2 00324
02765 STO +0 60100 0 00131
W'R N1 .E. FENCE 264 LM00525
02766 CLA +0 50000 0 00132 02767 SUB +0 40200 0 00122 02770 TNZ -0 10000 0 02776
N1 = TU 265 LM00526
02771 CLA +0 50000 0 00776 02772 STO +0 60100 0 00132
N2 = TA 266 LM00527
02773 CLA +0 50000 0 00771 02774 STO +0 60100 0 00131
O'R N2 .E. FENCE 267 LM00528
02775 TRA +0 02000 0 03013 02776 CLA +0 50000 0 00131 02777 SUB +0 40200 0 00122 03000 TNZ -0 10000 0 03004
N2 = TA 268 LM00529
03001 CLA +0 50000 0 00771 03002 STO +0 60100 0 00131
O'R COMBUF(M+2) .NE. FENCE 269 LM00530
03003 TRA +0 02000 0 03013 03004 CLA +0 50000 0 00743 03005 ADD +0 40000 0 01016 03006 PAX +0 73400 1 00000
03007 CLA +0 50000 1 00324 03010 SUB +0 40200 0 00122 03011 TZE +0 10000 0 03013
T'O ERR1 270 LM00531
03012 TRA +0 02000 0 00215
E'L 271 LM00532
LEN = 5*(N+1) 272 LM00533
03013 CLA +0 50000 0 00746 03014 ADD +0 40000 0 01015 03015 XCA +0 13100 0 00000 03016 MPY +0 20000 0 01021
03017 STQ -0 60000 0 00123
TAULOC = COMMON.(TAU5) 273 LM00534
03020 TSX +0 07400 4 00103 03021 TXH +3 00000 0 00773 03022 STO +0 60100 0 00124
GETBUF.(B5,LEN) 274 LM00535
03023 TSX +0 07400 4 00035 03024 TXH +3 00000 0 00273 03025 TXH +3 00000 0 00123
ATTACH.(M1416,CMFL02) 275 LM00536
03026 TSX +0 07400 4 00002 03027 TXH +3 00000 0 00734 03030 TXH +3 00000 0 00277
FSTATE.(TU,TA,LENGTH...8) 276 LM00537
03031 TSX +0 07400 4 00032 03032 TXH +3 00000 0 00776 03033 TXH +3 00000 0 00771 03034 TIX +2 01024 0 00156
PCTL.(3) 277 LM00539
03035 TSX +0 07400 4 00052 03036 TXH +3 00000 0 01017
PRFULL.(X,WHO(3)...M2,ON,WHO,$ RESETTING TIMUSD AT 'X$, 278 LM00540
1 DATE,X,TIME,$.$) 278 LM00541
03037 TSX +0 07400 4 00055 03040 TXH +3 00000 0 01013 03041 TIX +2 00736 0 01005 03042 TXH +3 00000 0 00750
03043 TXH +3 00000 0 01010 03044 TXH +3 00000 0 01315 03045 TXH +3 00000 0 01353 03046 TXH +3 00000 0 01160
03047 TXH +3 00000 0 01124 03050 TXH +3 00000 0 00326 03051 TXH +3 00000 0 01013 03052 TXH +3 00000 0 00774
03053 TXH +3 00000 0 01164
PCTL.(1) 279 LM00542
03054 TSX +0 07400 4 00052 03055 TXH +3 00000 0 01015
NONINT. 280 LM00551
03056 TSX +0 07400 4 00112
DATE = RJUST.(DATE) 281 LM00552
03057 TSX +0 07400 4 00063 03060 TXH +3 00000 0 00326 03061 STO +0 60100 0 00326
CHFILE.(TU,TA,20K,DATE,TIME) 282 LM00553
03062 TSX +0 07400 4 00015 03063 TXH +3 00000 0 00776 03064 TXH +3 00000 0 00771 03065 TXH +3 00000 0 01033
03066 TXH +3 00000 0 00326 03067 TXH +3 00000 0 00774
SETFIL.(TU,TA,DAYTIM,DATELU,120K,2) 283 LM00554
03070 TSX +0 07400 4 00070 03071 TXH +3 00000 0 00776 03072 TXH +3 00000 0 00771 03073 TXH +3 00000 0 00164
03074 TXH +3 00000 0 00165 03075 TXH +3 00000 0 01044 03076 TXH +3 00000 0 01016
MOVFIL.(DATE,TIME,ME(1),ME) 284 LM00555
03077 TSX +0 07400 4 00044 03100 TXH +3 00000 0 00326 03101 TXH +3 00000 0 00774 03102 TXH +3 00000 0 00737
03103 TXH +3 00000 0 00740
GETARY.(TAULOC,B5(B5+LEN)...LEN) 285 LM00556
03104 CLA +0 50000 0 00273 03105 ADD +0 40000 0 00123 03106 SUB +0 40200 0 03107 03107 TXH +3 00000 0 00273
03110 STA +0 62100 0 03113 03111 TSX +0 07400 4 00034 03112 TXH +3 00000 0 00124 03113 TIX +2 00123 0 00000
GETPRB. 286 LM00557
03114 TSX +0 07400 4 00106
T'H MON1, FOR I = 0,1,I.G.LEN 287 LM00561
03115 CLA +0 50000 0 01014 03116 STO +0 60100 0 00730 03117 TRA +0 02000 0 03123 03120 CLA +0 50000 0 00730
03121 ADD +0 40000 0 01015 03122 STO +0 60100 0 00730 03123 CLA +0 50000 0 00730 03124 SUB +0 40200 0 00123
03125 TZE +0 10000 0 03127 03126 TPL +0 12000 0 03147
MON1 SLOC.(GLOC.(TAULOC+I).A.77776K7,TAULOC+I) 288 LM00562
03127 CLA +0 50000 0 00124 03130 ADD +0 40000 0 00730 03131 STO +0 60100 0 07733 03132 CLA +0 50000 0 00124
03133 ADD +0 40000 0 00730 03134 STO +0 60100 0 07732 03135 TSX +0 07400 4 00037 03136 TXH +3 00000 0 07732
03137 STO +0 60100 0 07732 03140 CAL -0 50000 0 07732 03141 ANA -0 32000 0 01401 03142 SLW +0 60200 0 07732
03143 TSX +0 07400 4 00072 03144 TXH +3 00000 0 07732 03145 TXH +3 00000 0 07733 03146 TRA +0 02000 0 03120
INT. 289 LM00563
03147 TSX +0 07400 4 00111
ATTACH.(ME(1),ME) 290 LM00566
03150 TSX +0 07400 4 00002 03151 TXH +3 00000 0 00737 03152 TXH +3 00000 0 00740
LEN = N+1 291 LM00567
03153 CLA +0 50000 0 00746 03154 ADD +0 40000 0 01015 03155 STO +0 60100 0 00123
TU = DATE 292 LM00568
03156 CLA +0 50000 0 00326 03157 STO +0 60100 0 00776
TA = TIME 293 LM00569
03160 CLA +0 50000 0 00774 03161 STO +0 60100 0 00771
STATUS = $RW$ 294 LM00570
03162 CLA +0 50000 0 01245 03163 STO +0 60100 0 00766
MON2 READTU.(PROBN(PROBN),PROGN(PROGN),N,MONEOF) 295 LM00571
03164 CLA +0 50000 0 00753 03165 SUB +0 40200 0 03166 03166 TXH +3 00000 0 00753 03167 STA +0 62100 0 03176
03170 CLA +0 50000 0 00752 03171 SUB +0 40200 0 03172 03172 TXH +3 00000 0 00752 03173 STA +0 62100 0 03175
03174 TSX +0 07400 4 00113 03175 TXH +3 00000 0 00000 03176 TXH +3 00000 0 00000 03177 TXH +3 00000 0 00746
03200 TXH +3 00000 0 00227
UPSHFT. 296 LM00572
03201 TSX +0 07400 4 00114
WRWAIT.(TU,TA,RELLOC,TUCARD(27)...28) 297 LM00573
03202 TSX +0 07400 4 00100 03203 TXH +3 00000 0 00776 03204 TXH +3 00000 0 00771 03205 TXH +3 00000 0 00757
03206 TIX +2 01037 0 00133
T'O MON2 298 LM00574
03207 TRA +0 02000 0 00226
MONEOF T'H MON3, FOR J = 0,1,J.G.27 299 LM00579
03210 CLA +0 50000 0 01014 03211 STO +0 60100 0 00731 03212 TRA +0 02000 0 03216 03213 CLA +0 50000 0 00731
03214 ADD +0 40000 0 01015 03215 STO +0 60100 0 00731 03216 CLA +0 50000 0 00731 03217 SUB +0 40200 0 01036
03220 TZE +0 10000 0 03222 03221 TPL +0 12000 0 03226
MON3 TUCARD(J) = $$ 300 LM00580
03222 LXA +0 53400 1 00731 03223 CLA +0 50000 0 01330 03224 STO +0 60100 1 00166 03225 TRA +0 02000 0 03213
BFOPEN.(W,TU,TA,B1(B1+432),B2(B2+432),B3(B3+432),IOERR) 301 LM00581
03226 CLA +0 50000 0 00271 03227 ADD +0 40000 0 01050 03230 SUB +0 40200 0 03231 03231 TXH +3 00000 0 00271
03232 STA +0 62100 0 03253 03233 CLA +0 50000 0 00270 03234 ADD +0 40000 0 01050 03235 SUB +0 40200 0 03236
03236 TXH +3 00000 0 00270 03237 STA +0 62100 0 03252 03240 CLA +0 50000 0 00267 03241 ADD +0 40000 0 01050
03242 SUB +0 40200 0 03243 03243 TXH +3 00000 0 00267 03244 STA +0 62100 0 03251 03245 TSX +0 07400 4 00007
03246 TXH +3 00000 0 01012 03247 TXH +3 00000 0 00776 03250 TXH +3 00000 0 00771 03251 TXH +3 00000 0 00000
03252 TXH +3 00000 0 00000 03253 TXH +3 00000 0 00000 03254 TXH +3 00000 0 00225
T'H MON4, FOR I = 0,1,I.G.N 302 LM00582
03255 CLA +0 50000 0 01014 03256 STO +0 60100 0 00730 03257 TRA +0 02000 0 03263 03260 CLA +0 50000 0 00730
03261 ADD +0 40000 0 01015 03262 STO +0 60100 0 00730 03263 CLA +0 50000 0 00730 03264 SUB +0 40200 0 00746
03265 TZE +0 10000 0 03267 03266 TPL +0 12000 0 03322
W'R PROBN(PROBN+I) .NE. 0 303 LM00583
03267 CLA +0 50000 0 00752 03270 ADD +0 40000 0 00730 03271 PAX +0 73400 1 00000 03272 CLA +0 50000 1 00752
03273 SUB +0 40200 0 01014 03274 TZE +0 10000 0 03321
TUCARD(27) = PROBN(PROBN+I) 304 LM00584
03275 CLA +0 50000 0 00752 03276 ADD +0 40000 0 00730 03277 PAX +0 73400 2 00000 03300 CLA +0 50000 2 00752
03301 STO +0 60100 0 00133
TUCARD(26) = PROGN(PROGN+I) 305 LM00585
03302 CLA +0 50000 0 00753 03303 ADD +0 40000 0 00730 03304 PAX +0 73400 2 00000 03305 CLA +0 50000 2 00753
03306 STO +0 60100 0 00134
TUCARD(13) = DATE 306 LM00586
03307 CLA +0 50000 0 00326 03310 STO +0 60100 0 00151
TUCARD(12) = TIME 307 LM00587
03311 CLA +0 50000 0 00774 03312 STO +0 60100 0 00152
UPSHFT. 308 LM00588
03313 TSX +0 07400 4 00114
BFWRIT.(TU,TA,TUCARD(27)...28,IOERR) 309 LM00589
03314 TSX +0 07400 4 00011 03315 TXH +3 00000 0 00776 03316 TXH +3 00000 0 00771 03317 TIX +2 01037 0 00133
03320 TXH +3 00000 0 00225
E'L 310 LM00590
MON4 C'E 311 LM00591
03321 TRA +0 02000 0 03260
BFCLOS.(TU,TA,IOERR) 312 LM00592
03322 TSX +0 07400 4 00006 03323 TXH +3 00000 0 00776 03324 TXH +3 00000 0 00771 03325 TXH +3 00000 0 00225
UNLINK.(N1,N2,NULL.) 313 LM00593
03326 TSX +0 07400 4 00075 03327 TXH +3 00000 0 00132 03330 TXH +3 00000 0 00131 03331 TXH +3 00000 0 00045
CHFILE.(N1,N2,1,M0,M0,NULL.) 314 LM00594
03332 TSX +0 07400 4 00015 03333 TXH +3 00000 0 00132 03334 TXH +3 00000 0 00131 03335 TXH +3 00000 0 01015
03336 TXH +3 00000 0 00733 03337 TXH +3 00000 0 00733 03340 TXH +3 00000 0 00045
DELFIL.(N1,N2,NULL.) 315 LM00595
03341 TSX +0 07400 4 00023 03342 TXH +3 00000 0 00132 03343 TXH +3 00000 0 00131 03344 TXH +3 00000 0 00045
CHFILE.(TU,TA,124K,N1,N2) 316 LM00596
03345 TSX +0 07400 4 00015 03346 TXH +3 00000 0 00776 03347 TXH +3 00000 0 00771 03350 TXH +3 00000 0 01045
03351 TXH +3 00000 0 00132 03352 TXH +3 00000 0 00131
E'L 317 LM00597
E'E (T0,UPATSW), (T1,NAMESW), (T2,DELTA), (T3,LOC) 318 LM00619
E'E (T4,LHALF), (T5,RHALF), (T6,TEST), (T7,KEYS) 319 LM00620
E'E (TUCARD,PATMES) 320 LM00621
D'N PATMES(2) 321 LM00622
BOOLEAN UPATSW,NAMESW 322 LM00623
DEFINE UNARY OPERATOR .ENK., PRECEDENCE HIGHER THAN .LS. 323 LM00625
MODE STRUCTURE .ENK. 1 TO 1 324 LM00626
O'R COMBUF(M) .E. $ PATCH$ 329 LM00632
03353 TRA +0 02000 0 06504 03354 LXA +0 53400 1 00743 03355 CLA +0 50000 1 00324 03356 SUB +0 40200 0 01314
03357 TNZ -0 10000 0 04052
M = M+1 330 LM00633
03360 CLA +0 50000 0 00743 03361 ADD +0 40000 0 01015 03362 STO +0 60100 0 00743
W'R COMBUF(M) .E. HELP 331 LM00634
03363 LXA +0 53400 1 00743 03364 CLA +0 50000 1 00324 03365 SUB +0 40200 0 00727 03366 TNZ -0 10000 0 03372
PRFULL.(FMT3...100) 332 LM00635
03367 TSX +0 07400 4 00055 03370 TIX +2 01046 0 00627
V'S FMT3 =$ 'UADMIN PATCH 'LLOC -DELTA- LHALF RHALF$, 333 LM00636
1 $'* WHERE '=LOC'= IS EITHER AN OCTAL LOCATION, COMMON V$, 333 LM00637
2 $ARIABLE, '* OR AN ENTRY POINT. '1 DELTA MAY BE '=+'= $, 333 LM00638
3 $OR '=-'= LENGTH.'* ('1IF LENGTH ENDS WITH A '=.'=, IT $, 333 LM00639
4 $IS ASSUMED DECIMAL, OTHERWISE, OCTAL.)$,777777777777K 333 LM00640
00556 -3 77777 7 77777 00557 +3 33460 6 06060 00560 -2 04623 6 32143 00561 -1 16631 6 22573
00562 -3 36046 6 33025 00563 +2 52331 4 42143 00564 -2 44425 2 46024 00565 +3 16260 2 16262
00566 +1 37360 3 16360 00567 +2 16014 1 33314 00570 -2 06631 6 33060 00571 +3 06025 4 52462
00572 -2 04325 4 52763 00573 -2 07414 0 13126 00574 +2 76330 3 31454 00575 +1 41360 4 32545
00576 -0 65160 1 41340 00577 +1 41320 1 41360 00600 +2 17060 2 22560 00601 +2 54363 2 16044
00602 -2 06014 0 16024 00603 -0 74631 4 56333 00604 +2 54563 5 17060 00605 -0 65160 2 14560
00606 +2 57360 1 45460 00607 +2 15131 2 12243 00610 -0 44446 4 56065 00611 -0 64573 6 02346
00612 -0 34623 2 16331 00613 -0 62363 2 14360 00614 +2 55160 2 14560 00615 -2 26025 3 16330
00616 -0 62314 1 36031 00617 -1 12560 1 41343 00620 +1 45460 6 63025 00621 +3 02143 2 66060
00622 +3 02143 2 66051 00623 -0 36321 4 06043 00624 -0 62360 4 02425 00625 +2 33060 1 44343
00626 +3 14560 4 72163 00627 -2 01464 2 12444
O'E 334 LM00641
03371 TRA +0 02000 0 04051
PAT1 W'R COMBUF(M) .E. FENCE, T'O ERR2 335 LM00642
03372 LXA +0 53400 1 00743 03373 CLA +0 50000 1 00324 03374 SUB +0 40200 0 00122 03375 TNZ -0 10000 0 03377
03376 TRA +0 02000 0 00216
W'R ZEL.(COMBUF(M)).A.$YYYYYY$ .E. 0 336 LM00643
03377 CLA +0 50000 0 00743 03400 SUB +0 40200 0 03401 03401 TXH +3 00000 0 00324 03402 STA +0 62100 0 03404
03403 TSX +0 07400 4 00101 03404 TXH +3 00000 0 00000 03405 STO +0 60100 0 07733 03406 CAL -0 50000 0 07733
03407 ANA -0 32000 0 01372 03410 SLW +0 60200 0 07733 03411 CLA +0 50000 0 07733 03412 SUB +0 40200 0 01014
03413 TNZ -0 10000 0 03426
NAMESW = 0B 337 LM00644
03414 CLA +0 50000 0 01014 03415 STO +0 60100 0 00131
LOC = BCOCT.(COMBUF(M)) 338 LM00645
03416 CLA +0 50000 0 00743 03417 SUB +0 40200 0 03420 03420 TXH +3 00000 0 00324 03421 STA +0 62100 0 03423
03422 TSX +0 07400 4 00005 03423 TXH +3 00000 0 00000 03424 STO +0 60100 0 00127
O'E 339 LM00646
03425 TRA +0 02000 0 03470
NAMESW = 1B 340 LM00647
03426 CLA +0 50000 0 01015 03427 STO +0 60100 0 00131
PATMES = BZ57.(COMBUF(M)) 341 LM00648
03430 CLA +0 50000 0 00743 03431 SUB +0 40200 0 03432 03432 TXH +3 00000 0 00324 03433 STA +0 62100 0 03435
03434 TSX +0 07400 4 00013 03435 TXH +3 00000 0 00000 03436 STO +0 60100 0 00166
W'R .NOT.UPATSW, PATMES(1) = NULLS 342 LM00649
03437 ZET +0 52000 0 00132 03440 TRA +0 02000 0 03443 03441 CLA +0 50000 0 00747 03442 STO +0 60100 0 00165
PATMES(2) = NULLS 343 LM00650
03443 CLA +0 50000 0 00747 03444 STO +0 60100 0 00164
LOC = COMLOC.(LJUST.(COMBUF(M)),PAT2) 344 LM00651
03445 CLA +0 50000 0 00743 03446 SUB +0 40200 0 03447 03447 TXH +3 00000 0 00324 03450 STA +0 62100 0 03452
03451 TSX +0 07400 4 00042 03452 TXH +3 00000 0 00000 03453 STO +0 60100 0 07733 03454 TSX +0 07400 4 00017
03455 TXH +3 00000 0 07733 03456 TXH +3 00000 0 00233 03457 STO +0 60100 0 00127
T'O PAT3 345 LM00652
03460 TRA +0 02000 0 00234
PAT2 LOC = ENTRY.(COMBUF(M)) 346 LM00653
03461 CLA +0 50000 0 00743 03462 SUB +0 40200 0 03463 03463 TXH +3 00000 0 00324 03464 STA +0 62100 0 03466
03465 TSX +0 07400 4 00105 03466 TXH +3 00000 0 00000 03467 STO +0 60100 0 00127
E'L 347 LM00654
PAT3 M = M+1 348 LM00655
03470 CLA +0 50000 0 00743 03471 ADD +0 40000 0 01015 03472 STO +0 60100 0 00743
W'R UPATSW, T'O PAT4 349 LM00659
03473 NZT -0 52000 0 00132 03474 TRA +0 02000 0 03476 03475 TRA +0 02000 0 00235
W'R (COMBUF(M).E.$ +$ .OR. COMBUF(M).E.$ -$) 350 LM00660
1 .AND. ZEL.(COMBUF(M+1)).A.$ 0$.E.0 350 LM00661
03476 CLA +0 50000 0 00743 03477 ADD +0 40000 0 01015 03500 SUB +0 40200 0 03501 03501 TXH +3 00000 0 00324
03502 STA +0 62100 0 03504 03503 TSX +0 07400 4 00101 03504 TXH +3 00000 0 00000 03505 STO +0 60100 0 07733
03506 CAL -0 50000 0 07733 03507 ANA -0 32000 0 01324 03510 SLW +0 60200 0 07733 03511 CLA +0 50000 0 07733
03512 SUB +0 40200 0 01014 03513 TNZ -0 10000 0 03642 03514 LXA +0 53400 1 00743 03515 CLA +0 50000 1 00324
03516 SUB +0 40200 0 01327 03517 TZE +0 10000 0 03523 03520 CLA +0 50000 1 00324 03521 SUB +0 40200 0 01326
03522 TNZ -0 10000 0 03642
W'R COMBUF(M+1).A.77K .E. $00000.$ 351 LM00662
03523 CLA +0 50000 0 00743 03524 ADD +0 40000 0 01015 03525 PAX +0 73400 1 00000 03526 CAL -0 50000 1 00324
03527 ANA -0 32000 0 01041 03530 SLW +0 60200 0 07733 03531 CLA +0 50000 0 07733 03532 SUB +0 40200 0 01036
03533 TNZ -0 10000 0 03550
DELTA = BCDEC.(COMBUF(M+1).RS.6) 352 LM00663
03534 CLA +0 50000 0 00743 03535 ADD +0 40000 0 01015 03536 PAX +0 73400 1 00000 03537 CAL -0 50000 0 01022
03540 STA +0 62100 0 03542 03541 CAL -0 50000 1 00324 03542 LGR -0 76500 0 00000 03543 SLW +0 60200 0 07733
03544 TSX +0 07400 4 00004 03545 TXH +3 00000 0 07733 03546 STO +0 60100 0 00130
O'R ZEL.(COMBUF(M+1)).A.$YYYYYY$ .NE. 0 353 LM00664
03547 TRA +0 02000 0 03607 03550 CLA +0 50000 0 00743 03551 ADD +0 40000 0 01015 03552 SUB +0 40200 0 03553
03553 TXH +3 00000 0 00324 03554 STA +0 62100 0 03556 03555 TSX +0 07400 4 00101 03556 TXH +3 00000 0 00000
03557 STO +0 60100 0 07733 03560 CAL -0 50000 0 07733 03561 ANA -0 32000 0 01372 03562 SLW +0 60200 0 07733
03563 CLA +0 50000 0 07733 03564 SUB +0 40200 0 01014 03565 TZE +0 10000 0 03577
DELTA = BCDEC.(COMBUF(M+1)) 354 LM00665
03566 CLA +0 50000 0 00743 03567 ADD +0 40000 0 01015 03570 SUB +0 40200 0 03571 03571 TXH +3 00000 0 00324
03572 STA +0 62100 0 03574 03573 TSX +0 07400 4 00004 03574 TXH +3 00000 0 00000 03575 STO +0 60100 0 00130
O'E 355 LM00666
03576 TRA +0 02000 0 03607
DELTA = BCOCT.(COMBUF(M+1)) 356 LM00667
03577 CLA +0 50000 0 00743 03600 ADD +0 40000 0 01015 03601 SUB +0 40200 0 03602 03602 TXH +3 00000 0 00324
03603 STA +0 62100 0 03605 03604 TSX +0 07400 4 00005 03605 TXH +3 00000 0 00000 03606 STO +0 60100 0 00130
E'L 357 LM00668
W'R COMBUF(M).E.$ -$, DELTA = -DELTA 358 LM00669
03607 LXA +0 53400 1 00743 03610 CLA +0 50000 1 00324 03611 SUB +0 40200 0 01327 03612 TNZ -0 10000 0 03615
03613 CLS +0 50200 0 00130 03614 STO +0 60100 0 00130
LOC = LOC + DELTA 359 LM00670
03615 CLA +0 50000 0 00127 03616 ADD +0 40000 0 00130 03617 STO +0 60100 0 00127
PATMES(1) = (COMBUF(M).LS.24).V.60575757K 360 LM00671
03620 LXA +0 53400 1 00743 03621 CAL -0 50000 0 01035 03622 STA +0 62100 0 03624 03623 CAL -0 50000 1 00324
03624 ALS +0 76700 0 00000 03625 ORA -0 50100 0 01062 03626 SLW +0 60200 0 00165
PATMES(2) = BZ57.(COMBUF(M+1)) 361 LM00672
03627 CLA +0 50000 0 00743 03630 ADD +0 40000 0 01015 03631 SUB +0 40200 0 03632 03632 TXH +3 00000 0 00324
03633 STA +0 62100 0 03635 03634 TSX +0 07400 4 00013 03635 TXH +3 00000 0 00000 03636 STO +0 60100 0 00164
M = M+2 362 LM00673
03637 CLA +0 50000 0 00743 03640 ADD +0 40000 0 01016 03641 STO +0 60100 0 00743
E'L 363 LM00674
PAT4 W'R UPATSW, LOC = LOC + USER 364 LM00675
03642 NZT -0 52000 0 00132 03643 TRA +0 02000 0 03647 03644 CLA +0 50000 0 00127 03645 ADD +0 40000 0 01002
03646 STO +0 60100 0 00127
W'R .NOT. NAMESW 365 LM00676
03647 ZET +0 52000 0 00131 03650 TRA +0 02000 0 03663
PATMES = BZ57.(OCABC.(LOC)) 366 LM00677
03651 TSX +0 07400 4 00046 03652 TXH +3 00000 0 00127 03653 STO +0 60100 0 07733 03654 TSX +0 07400 4 00013
03655 TXH +3 00000 0 07733 03656 STO +0 60100 0 00166
PATMES(1) = NULLS 367 LM00678
03657 CLA +0 50000 0 00747 03660 STO +0 60100 0 00165
PATMES(2) = NULLS 368 LM00679
03661 CLA +0 50000 0 00747 03662 STO +0 60100 0 00164
E'L 369 LM00680
LHALF = COMBUF(M) 370 LM00681
03663 LXA +0 53400 2 00743 03664 CLA +0 50000 2 00324 03665 STO +0 60100 0 00126
RHALF = COMBUF(M+1) 371 LM00682
03666 CLA +0 50000 0 00743 03667 ADD +0 40000 0 01015 03670 PAX +0 73400 2 00000 03671 CLA +0 50000 2 00324
03672 STO +0 60100 0 00125
M = M+2 372 LM00683
03673 CLA +0 50000 0 00743 03674 ADD +0 40000 0 01016 03675 STO +0 60100 0 00743
W'R LHALF.V.RHALF .E. FENCE, T'O ERR2 373 LM00684
03676 CAL -0 50000 0 00126 03677 ORA -0 50100 0 00125 03700 SLW +0 60200 0 07733 03701 CLA +0 50000 0 07733
03702 SUB +0 40200 0 00122 03703 TNZ -0 10000 0 03705 03704 TRA +0 02000 0 00216
W'R COMBUF(M).NE.FENCE, T'O ERR1 374 LM00685
03705 LXA +0 53400 1 00743 03706 CLA +0 50000 1 00324 03707 SUB +0 40200 0 00122 03710 TZE +0 10000 0 03712
03711 TRA +0 02000 0 00215
TEST = GLOC.(LOC) 375 LM00686
03712 TSX +0 07400 4 00037 03713 TXH +3 00000 0 00127 03714 STO +0 60100 0 00124
W'R LHALF.E.STAR, LHALF = OCLBC.(TEST) 376 LM00687
03715 CLA +0 50000 0 00126 03716 SUB +0 40200 0 00765 03717 TNZ -0 10000 0 03723 03720 TSX +0 07400 4 00047
03721 TXH +3 00000 0 00124 03722 STO +0 60100 0 00126
W'R RHALF.E.STAR, RHALF = OCRBC.(TEST) 377 LM00688
03723 CLA +0 50000 0 00125 03724 SUB +0 40200 0 00765 03725 TNZ -0 10000 0 03731 03726 TSX +0 07400 4 00050
03727 TXH +3 00000 0 00124 03730 STO +0 60100 0 00125
LHALF = ZEL.(LHALF) 378 LM00689
03731 TSX +0 07400 4 00101 03732 TXH +3 00000 0 00126 03733 STO +0 60100 0 00126
RHALF = ZEL.(RHALF) 379 LM00690
03734 TSX +0 07400 4 00101 03735 TXH +3 00000 0 00125 03736 STO +0 60100 0 00125
W'R (LHALF.V.RHALF).A.$YYYYYY$.NE.0, T'O ERR6 380 LM00691
03737 CAL -0 50000 0 00126 03740 ORA -0 50100 0 00125 03741 ANA -0 32000 0 01372 03742 SLW +0 60200 0 07733
03743 CLA +0 50000 0 07733 03744 SUB +0 40200 0 01014 03745 TZE +0 10000 0 03747 03746 TRA +0 02000 0 00222
PATTST W'R .ENK.KEYS.A.KEY22 .NE. KEY22 .AND. WHO.NE.$(FIB)$ 381 LM00692
03747 CLA +0 50000 0 01010 03750 SUB +0 40200 0 01376 03751 TZE +0 10000 0 04000 03752 XEC +0 52200 0 01071
03753 STQ -0 60000 0 00123 03754 XCL -0 13000 0 00000 03755 ANA -0 32000 0 00732 03756 SLW +0 60200 0 07733
03757 CLA +0 50000 0 07733 03760 SUB +0 40200 0 00732 03761 TZE +0 10000 0 04000
GETTM.(DATE,TIME) 382 LM00693
03762 TSX +0 07400 4 00036 03763 TXH +3 00000 0 00326 03764 TXH +3 00000 0 00774
PRFULL.($'R'1KEY 22 NOT SET AT 'X$,TIME,BLACK) 383 LM00694
03765 TSX +0 07400 4 00055 03766 TXH +3 00000 0 01110 03767 TXH +3 00000 0 01371 03770 TXH +3 00000 0 01224
03771 TXH +3 00000 0 01262 03772 TXH +3 00000 0 00774 03773 TXH +3 00000 0 00275
SNOOZE.(10,SLPCMD(2)) 384 LM00695
03774 TSX +0 07400 4 00073 03775 TXH +3 00000 0 01026 03776 TXH +3 00000 0 00120
T'O PATTST 385 LM00696
03777 TRA +0 02000 0 00236
E'L 386 LM00697
PCTL.(3) 387 LM00698
04000 TSX +0 07400 4 00052 04001 TXH +3 00000 0 01017
PRFULL.(X,WHO(3)...M2,ON,WHO,$ PATCHING 'X$,PATMES...3, 388 LM00699
1 $'L FROM '8$,OCLBC.(TEST),OCRBC.(TEST),$ TO '8$, 388 LM00700
2 LHALF,RHALF,$.$) 388 LM00701
04002 TSX +0 07400 4 00050 04003 TXH +3 00000 0 00124 04004 STO +0 60100 0 07733 04005 TSX +0 07400 4 00047
04006 TXH +3 00000 0 00124 04007 STO +0 60100 0 07732 04010 TSX +0 07400 4 00055 04011 TXH +3 00000 0 01013
04012 TIX +2 00736 0 01005 04013 TXH +3 00000 0 00750 04014 TXH +3 00000 0 01010 04015 TXH +3 00000 0 01314
04016 TXH +3 00000 0 01161 04017 TIX +2 01017 0 00166 04020 TXH +3 00000 0 01104 04021 TXH +3 00000 0 01176
04022 TXH +3 00000 0 07732 04023 TXH +3 00000 0 07733 04024 TXH +3 00000 0 01333 04025 TXH +3 00000 0 00126
04026 TXH +3 00000 0 00125 04027 TXH +3 00000 0 01164
PCTL.(1) 389 LM00702
04030 TSX +0 07400 4 00052 04031 TXH +3 00000 0 01015
SLOC.((BCOCT.(LHALF).LS.18).V.BCOCT.(RHALF),LOC) 390 LM00709
04032 TSX +0 07400 4 00005 04033 TXH +3 00000 0 00125 04034 STO +0 60100 0 07733 04035 TSX +0 07400 4 00005
04036 TXH +3 00000 0 00126 04037 STO +0 60100 0 07732 04040 CAL -0 50000 0 01034 04041 STA +0 62100 0 04043
04042 CAL -0 50000 0 07732 04043 ALS +0 76700 0 00000 04044 ORA -0 50100 0 07733 04045 SLW +0 60200 0 07733
04046 TSX +0 07400 4 00072 04047 TXH +3 00000 0 07733 04050 TXH +3 00000 0 00127
E'L 391 LM00710
E'E (T0,PB) 392 LM00728
O'R COMBUF(M) .E. $ PB$ 393 LM00730
04051 TRA +0 02000 0 06504 04052 LXA +0 53400 1 00743 04053 CLA +0 50000 1 00324 04054 SUB +0 40200 0 01323
04055 TNZ -0 10000 0 04223
M = M+1 394 LM00731
04056 CLA +0 50000 0 00743 04057 ADD +0 40000 0 01015 04060 STO +0 60100 0 00743
PB = BCDEC.(COMBUF(M)) 395 LM00732
04061 CLA +0 50000 0 00743 04062 SUB +0 40200 0 04063 04063 TXH +3 00000 0 00324 04064 STA +0 62100 0 04066
04065 TSX +0 07400 4 00004 04066 TXH +3 00000 0 00000 04067 STO +0 60100 0 00132
W'R COMBUF(M) .E. HELP 396 LM00733
04070 LXA +0 53400 1 00743 04071 CLA +0 50000 1 00324 04072 SUB +0 40200 0 00727 04073 TNZ -0 10000 0 04105
PRFULL.(ADMIN...2,CURCOM.(0),$ 'LN USER$) 397 LM00734
04074 TSX +0 07400 4 00104 04075 TXH +3 00000 0 01014 04076 STO +0 60100 0 07733 04077 TSX +0 07400 4 00055
04100 TIX +2 01016 0 00264 04101 TXH +3 00000 0 07733 04102 TXH +3 00000 0 01253 04103 TXH +3 00000 0 01340
O'R ZEL.(COMBUF(M)).A.$$ .NE. 0 .OR. PB.G.100 398 LM00735
04104 TRA +0 02000 0 04222 04105 CLA +0 50000 0 00132 04106 SUB +0 40200 0 01046 04107 TZE +0 10000 0 04111
04110 TPL +0 12000 0 04126 04111 CLA +0 50000 0 00743 04112 SUB +0 40200 0 04113 04113 TXH +3 00000 0 00324
04114 STA +0 62100 0 04116 04115 TSX +0 07400 4 00101 04116 TXH +3 00000 0 00000 04117 STO +0 60100 0 07733
04120 CAL -0 50000 0 07733 04121 ANA -0 32000 0 01330 04122 SLW +0 60200 0 07733 04123 CLA +0 50000 0 07733
04124 SUB +0 40200 0 01014 04125 TZE +0 10000 0 04130
T'O ERR0 399 LM00736
04126 TRA +0 02000 0 00214
O'E 400 LM00737
04127 TRA +0 02000 0 04222
M = M+1 401 LM00738
04130 CLA +0 50000 0 00743 04131 ADD +0 40000 0 01015 04132 STO +0 60100 0 00743
GETUSR.(PB0,ERR4,ERR5) 402 LM00739
04133 TSX +0 07400 4 00107 04134 TXH +3 00000 0 00237 04135 TXH +3 00000 0 00220 04136 TXH +3 00000 0 00221
PB0 PCTL.(3) 403 LM00740
04137 TSX +0 07400 4 00052 04140 TXH +3 00000 0 01017
PRFULL.(X,WHO(3)...M2,ON,WHO,$ SETTING PERCENTAGE OF 'X$, 404 LM00741
1 PROB...2,$ TO 'X$,BZ57.(DEFBC.(PB)),$.$) 404 LM00742
04141 TSX +0 07400 4 00021 04142 TXH +3 00000 0 00132 04143 STO +0 60100 0 07733 04144 TSX +0 07400 4 00013
04145 TXH +3 00000 0 07733 04146 STO +0 60100 0 07733 04147 TSX +0 07400 4 00055 04150 TXH +3 00000 0 01013
04151 TIX +2 00736 0 01005 04152 TXH +3 00000 0 00750 04153 TXH +3 00000 0 01010 04154 TXH +3 00000 0 01332
04155 TXH +3 00000 0 01210 04156 TXH +3 00000 0 01127 04157 TXH +3 00000 0 01146 04160 TXH +3 00000 0 01367
04161 TIX +2 01016 0 00117 04162 TXH +3 00000 0 01334 04163 TXH +3 00000 0 07733 04164 TXH +3 00000 0 01164
PCTL.(1) 405 LM00743
04165 TSX +0 07400 4 00052 04166 TXH +3 00000 0 01015
SLOC.(PB,COMMON.($PB$)+USR) 406 LM00748
04167 TSX +0 07400 4 00103 04170 TXH +3 00000 0 01226 04171 ADD +0 40000 0 01004 04172 STO +0 60100 0 07733
04173 TSX +0 07400 4 00072 04174 TXH +3 00000 0 00132 04175 TXH +3 00000 0 07733
SLOC.(GLOC.(COMMON.(TIMNOW)),COMMON.(STRTIM)+USR) 407 LM00749
04176 TSX +0 07400 4 00103 04177 TXH +3 00000 0 00767 04200 ADD +0 40000 0 01004 04201 STO +0 60100 0 07733
04202 TSX +0 07400 4 00103 04203 TXH +3 00000 0 00775 04204 STO +0 60100 0 07732 04205 TSX +0 07400 4 00037
04206 TXH +3 00000 0 07732 04207 STO +0 60100 0 07732 04210 TSX +0 07400 4 00072 04211 TXH +3 00000 0 07732
04212 TXH +3 00000 0 07733
SLOC.(0,COMMON.(WRKTIM)+USR) 408 LM00750
04213 TSX +0 07400 4 00103 04214 TXH +3 00000 0 01011 04215 ADD +0 40000 0 01004 04216 STO +0 60100 0 07733
04217 TSX +0 07400 4 00072 04220 TXH +3 00000 0 01014 04221 TXH +3 00000 0 07733
E'L 409 LM00751
O'R COMBUF(M) .E. $PRNTON$ 410 LM00769
04222 TRA +0 02000 0 06504 04223 LXA +0 53400 1 00743 04224 CLA +0 50000 1 00324 04225 SUB +0 40200 0 01230
04226 TNZ -0 10000 0 04265
M = M+1 411 LM00770
04227 CLA +0 50000 0 00743 04230 ADD +0 40000 0 01015 04231 STO +0 60100 0 00743
W'R COMBUF(M) .E. HELP 412 LM00771
04232 LXA +0 53400 1 00743 04233 CLA +0 50000 1 00324 04234 SUB +0 40200 0 00727 04235 TNZ -0 10000 0 04250
PRFULL.(ADMIN...2,CURCOM.(0),$ 'L-NAME1 NAME2-$) 413 LM00772
04236 TSX +0 07400 4 00104 04237 TXH +3 00000 0 01014 04240 STO +0 60100 0 07733 04241 TSX +0 07400 4 00055
04242 TIX +2 01016 0 00264 04243 TXH +3 00000 0 07733 04244 TXH +3 00000 0 01251 04245 TXH +3 00000 0 01173
04246 TXH +3 00000 0 01174
O'E 414 LM00773
04247 TRA +0 02000 0 04264
PRNTON.(COMBUF(M),COMBUF(M+1)) 415 LM00774
04250 CLA +0 50000 0 00743 04251 ADD +0 40000 0 01015 04252 SUB +0 40200 0 04253 04253 TXH +3 00000 0 00324
04254 STA +0 62100 0 04263 04255 CLA +0 50000 0 00743 04256 SUB +0 40200 0 04257 04257 TXH +3 00000 0 00324
04260 STA +0 62100 0 04262 04261 TSX +0 07400 4 00056 04262 TXH +3 00000 0 00000 04263 TXH +3 00000 0 00000
E'L 416 LM00775
E'E (T2,NOTLIN), (T3,FOUND), (T4,SHFT), (T5,TAU) 417 LM00794
E'E (TUCARD(27),USED(5)), (TUCARD(21),ALTD(5)) 418 LM00795
D'N ALTD(0),USED(0) 419 LM00796
BOOLEAN NOTLIN, FOUND 420 LM00797
O'R COMBUF(M) .E. $RDTIMU$ 421 LM00799
04264 TRA +0 02000 0 06504 04265 LXA +0 53400 1 00743 04266 CLA +0 50000 1 00324 04267 SUB +0 40200 0 01234
04270 TNZ -0 10000 0 04717
M = M+1 422 LM00800
04271 CLA +0 50000 0 00743 04272 ADD +0 40000 0 01015 04273 STO +0 60100 0 00743
W'R COMBUF(M) .E. HELP 423 LM00801
04274 LXA +0 53400 1 00743 04275 CLA +0 50000 1 00324 04276 SUB +0 40200 0 00727 04277 TNZ -0 10000 0 04313
PRFULL.(ADMIN...2,CURCOM.(0),$ '4USER -NAME1- -NAME2-$) 424 LM00802
04300 TSX +0 07400 4 00104 04301 TXH +3 00000 0 01014 04302 STO +0 60100 0 07733 04303 TSX +0 07400 4 00055
04304 TIX +2 01016 0 00264 04305 TXH +3 00000 0 07733 04306 TXH +3 00000 0 01250 04307 TXH +3 00000 0 01242
04310 TXH +3 00000 0 01140 04311 TXH +3 00000 0 01120
O'E 425 LM00803
04312 TRA +0 02000 0 04716
NOTLIN = 1B 426 LM00804
04313 CLA +0 50000 0 01015 04314 STO +0 60100 0 00130
GETUSR.(RTU0,RTU1,ERR5) 427 LM00805
04315 TSX +0 07400 4 00107 04316 TXH +3 00000 0 00241 04317 TXH +3 00000 0 00242 04320 TXH +3 00000 0 00221
RTU0 NOTLIN = 0B 428 LM00806
04321 CLA +0 50000 0 01014 04322 STO +0 60100 0 00130
RTU1 W'R COMBUF(M) .E. FENCE 429 LM00807
04323 LXA +0 53400 1 00743 04324 CLA +0 50000 1 00324 04325 SUB +0 40200 0 00122 04326 TNZ -0 10000 0 04334
NONINT. 430 LM00808
04327 TSX +0 07400 4 00112
ATTACH.(M1416,CMFL02) 431 LM00809
04330 TSX +0 07400 4 00002 04331 TXH +3 00000 0 00734 04332 TXH +3 00000 0 00277
T'O RTU2 432 LM00810
04333 TRA +0 02000 0 00243
E'L 433 LM00811
TU = COMBUF(M) 434 LM00812
04334 LXA +0 53400 2 00743 04335 CLA +0 50000 2 00324 04336 STO +0 60100 0 00776
M = M+1 435 LM00813
04337 CLA +0 50000 0 00743 04340 ADD +0 40000 0 01015 04341 STO +0 60100 0 00743
W'R COMBUF(M) .NE. FENCE 436 LM00814
04342 LXA +0 53400 1 00743 04343 CLA +0 50000 1 00324 04344 SUB +0 40200 0 00122 04345 TZE +0 10000 0 04354
TA = COMBUF(M) 437 LM00815
04346 LXA +0 53400 2 00743 04347 CLA +0 50000 2 00324 04350 STO +0 60100 0 00771
M = M+1 438 LM00816
04351 CLA +0 50000 0 00743 04352 ADD +0 40000 0 01015 04353 STO +0 60100 0 00743
E'L 439 LM00817
W'R COMBUF(M) .NE. FENCE, T'O ERR1 440 LM00818
04354 LXA +0 53400 1 00743 04355 CLA +0 50000 1 00324 04356 SUB +0 40200 0 00122 04357 TZE +0 10000 0 04361
04360 TRA +0 02000 0 00215
RTU2 STATUS = R 441 LM00820
04361 CLA +0 50000 0 00763 04362 STO +0 60100 0 00766
READTU.(PROB,PROG,1,RTU3) 442 LM00821
04363 TSX +0 07400 4 00113 04364 TXH +3 00000 0 00117 04365 TXH +3 00000 0 00116 04366 TXH +3 00000 0 01015
04367 TXH +3 00000 0 00244
NAME = TUCARD(25) 443 LM00822
04370 CLA +0 50000 0 00135 04371 STO +0 60100 0 00744
FOUND = 1B 444 LM00823
04372 CLA +0 50000 0 01015 04373 STO +0 60100 0 00127
BFCLOS.(TU,TA,RTU3) 445 LM00824
04374 TSX +0 07400 4 00006 04375 TXH +3 00000 0 00776 04376 TXH +3 00000 0 00771 04377 TXH +3 00000 0 00244
RTU3 INT. 446 LM00826
04400 TSX +0 07400 4 00111
W'R NOTLIN .AND. .NOT.FOUND 447 LM00827
04401 ZET +0 52000 0 00127 04402 TRA +0 02000 0 04415 04403 NZT -0 52000 0 00130 04404 TRA +0 02000 0 04415
PRFULL.($'1NEVER HEARD OF 'X$,PROB...2) 448 LM00828
04405 TSX +0 07400 4 00055 04406 TXH +3 00000 0 01075 04407 TXH +3 00000 0 01241 04410 TXH +3 00000 0 01136
04411 TXH +3 00000 0 01367 04412 TIX +2 01016 0 00117
T'O OUT 449 LM00829
04413 TRA +0 02000 0 00231
O'R NOTLIN 450 LM00830
04414 TRA +0 02000 0 04545 04415 NZT -0 52000 0 00130 04416 TRA +0 02000 0 04451
T'H RTU4, FOR I = 1,1,I.G.5 451 LM00831
04417 CLA +0 50000 0 01015 04420 STO +0 60100 0 00730 04421 TRA +0 02000 0 04425 04422 CLA +0 50000 0 00730
04423 ADD +0 40000 0 01015 04424 STO +0 60100 0 00730 04425 CLA +0 50000 0 00730 04426 SUB +0 40200 0 01021
04427 TZE +0 10000 0 04431 04430 TPL +0 12000 0 04450
ALTD(I) = 0 452 LM00832
04431 LXA +0 53400 1 00730 04432 CLA +0 50000 0 01014 04433 STO +0 60100 1 00146
USED(I) = BCDEC.(TUCARD(10-I))*60 453 LM00833
04434 CLA +0 50000 0 01026 04435 SUB +0 40200 0 00730 04436 SUB +0 40200 0 04437 04437 TXH +3 00000 0 00166
04440 STA +0 62100 0 04442 04441 TSX +0 07400 4 00004 04442 TXH +3 00000 0 00000 04443 XCA +0 13100 0 00000
04444 MPY +0 20000 0 01040 04445 LXA +0 53400 1 00730 04446 STQ -0 60000 1 00140
RTU4 C'E 454 LM00834
04447 TRA +0 02000 0 04422
O'E 455 LM00835
04450 TRA +0 02000 0 04545
TAULOC = COMMON.(TAU5) 456 LM00836
04451 TSX +0 07400 4 00103 04452 TXH +3 00000 0 00773 04453 STO +0 60100 0 00124
T'H RTU5, FOR I = 4,-1,I.L.0 457 LM00837
04454 CLA +0 50000 0 01020 04455 STO +0 60100 0 00730 04456 TRA +0 02000 0 04462 04457 CLS +0 50200 0 01015
04460 ADD +0 40000 0 00730 04461 STO +0 60100 0 00730 04462 CLA +0 50000 0 00730 04463 SUB +0 40200 0 01014
04464 TZE +0 10000 0 04466 04465 TMI -0 12000 0 04545
TAU = GLOC.(TAULOC+I*(N+1)+USR) 458 LM00838
04466 CLA +0 50000 0 00746 04467 ADD +0 40000 0 01015 04470 XCA +0 13100 0 00000 04471 MPY +0 20000 0 00730
04472 XCA +0 13100 0 00000 04473 ADD +0 40000 0 00124 04474 ADD +0 40000 0 01004 04475 STO +0 60100 0 07733
04476 TSX +0 07400 4 00037 04477 TXH +3 00000 0 07733 04500 STO +0 60100 0 00125
USED(5-I) = TAU.A.17777777K 459 LM00839
04501 CAL -0 50000 0 00125 04502 ANA -0 32000 0 01061 04503 SLW +0 60200 0 07733 04504 CLA +0 50000 0 01021
04505 SUB +0 40200 0 00730 04506 PAX +0 73400 1 00000 04507 CLA +0 50000 0 07733 04510 STO +0 60100 1 00140
ALTD(5-I) = TAU.RS.14 460 LM00840
04511 CAL -0 50000 0 01031 04512 STA +0 62100 0 04514 04513 CAL -0 50000 0 00125 04514 LGR -0 76500 0 00000
04515 SLW +0 60200 0 07733 04516 CLA +0 50000 0 01021 04517 SUB +0 40200 0 00730 04520 PAX +0 73400 1 00000
04521 CLA +0 50000 0 07733 04522 STO +0 60100 1 00146
W'R ALTD(5-I).NE.0, ALTD(5-I)=ALTD(5-I).V.377K 461 LM00841
04523 CLA +0 50000 0 01021 04524 SUB +0 40200 0 00730 04525 PAX +0 73400 1 00000 04526 CLA +0 50000 1 00146
04527 SUB +0 40200 0 01014 04530 TZE +0 10000 0 04544 04531 CLA +0 50000 0 01021 04532 SUB +0 40200 0 00730
04533 PAX +0 73400 1 00000 04534 CAL -0 50000 1 00146 04535 ORA -0 50100 0 01047 04536 SLW +0 60200 0 07733
04537 CLA +0 50000 0 01021 04540 SUB +0 40200 0 00730 04541 PAX +0 73400 1 00000 04542 CLA +0 50000 0 07733
04543 STO +0 60100 1 00146
RTU5 C'E 462 LM00842
04544 TRA +0 02000 0 04457
E'L 463 LM00843
PRFULL.(X,NAME,X,PROB...2) 464 LM00844
04545 TSX +0 07400 4 00055 04546 TXH +3 00000 0 01013 04547 TXH +3 00000 0 00744 04550 TXH +3 00000 0 01013
04551 TIX +2 01016 0 00117
T'H RTU6, FOR I = 1,1,I.G.5 465 LM00845
04552 CLA +0 50000 0 01015 04553 STO +0 60100 0 00730 04554 TRA +0 02000 0 04560 04555 CLA +0 50000 0 00730
04556 ADD +0 40000 0 01015 04557 STO +0 60100 0 00730 04560 CLA +0 50000 0 00730 04561 SUB +0 40200 0 01021
04562 TZE +0 10000 0 04564 04563 TPL +0 12000 0 04641
W'R ALTD(I).V.USED(I) .NE. 0 466 LM00846
04564 LXA +0 53400 1 00730 04565 LXA +0 53400 2 00730 04566 CAL -0 50000 1 00146 04567 ORA -0 50100 2 00140
04570 SLW +0 60200 0 07733 04571 CLA +0 50000 0 07733 04572 SUB +0 40200 0 01014 04573 TZE +0 10000 0 04640
SHFT = DEFBC.(I).LS.12.V.$0000 $ 467 LM00847
04574 TSX +0 07400 4 00021 04575 TXH +3 00000 0 00730 04576 STO +0 60100 0 07733 04577 CAL -0 50000 0 01027
04600 STA +0 62100 0 04602 04601 CAL -0 50000 0 07733 04602 ALS +0 76700 0 00000 04603 ORA -0 50100 0 01053
04604 SLW +0 60200 0 00126
PRFULL.(BZEL.(SHFT),BZEL.(MINS.(ALTD(I))), 468 LM00848
1 BZEL.(MINS.(USED(I)))) 468 LM00849
04605 CLA +0 50000 0 00730 04606 SUB +0 40200 0 04607 04607 TXH +3 00000 0 00140 04610 STA +0 62100 0 04612
04611 TSX +0 07400 4 00043 04612 TXH +3 00000 0 00000 04613 STO +0 60100 0 07733 04614 TSX +0 07400 4 00014
04615 TXH +3 00000 0 07733 04616 STO +0 60100 0 07733 04617 CLA +0 50000 0 00730 04620 SUB +0 40200 0 04621
04621 TXH +3 00000 0 00146 04622 STA +0 62100 0 04624 04623 TSX +0 07400 4 00043 04624 TXH +3 00000 0 00000
04625 STO +0 60100 0 07732 04626 TSX +0 07400 4 00014 04627 TXH +3 00000 0 07732 04630 STO +0 60100 0 07732
04631 TSX +0 07400 4 00014 04632 TXH +3 00000 0 00126 04633 STO +0 60100 0 07734 04634 TSX +0 07400 4 00055
04635 TXH +3 00000 0 07734 04636 TXH +3 00000 0 07732 04637 TXH +3 00000 0 07733
E'L 469 LM00850
RTU6 C'E 470 LM00851
04640 TRA +0 02000 0 04555
W'R FOUND, PRFULL.($'1LAST LOGOUT 'X$, 471 LM00852
1 TUCARD(13).A.7777K8.V.$00/00$.V.(TUCARD(13).RS.6.A.7777K2), 471 LM00853
2 TUCARD(12),$ FROM $,X,TUCARD(11),$.$) 471 LM00854
04641 NZT -0 52000 0 00127 04642 TRA +0 02000 0 04670 04643 CAL -0 50000 0 01022 04644 STA +0 62100 0 04646
04645 CAL -0 50000 0 00151 04646 LGR -0 76500 0 00000 04647 ANA -0 32000 0 01057 04650 SLW +0 60200 0 07734
04651 CAL -0 50000 0 00151 04652 ANA -0 32000 0 01400 04653 ORA -0 50100 0 01063 04654 ORA -0 50100 0 07734
04655 SLW +0 60200 0 07734 04656 TSX +0 07400 4 00055 04657 TXH +3 00000 0 01073 04660 TXH +3 00000 0 01305
04661 TXH +3 00000 0 01355 04662 TXH +3 00000 0 07734 04663 TXH +3 00000 0 00152 04664 TXH +3 00000 0 01272
04665 TXH +3 00000 0 01013 04666 TXH +3 00000 0 00153 04667 TXH +3 00000 0 01164
W'R .NOT.NOTLIN, PRFULL.($'1NOW ON UNIT 'X$, 472 LM00858
1 GLOC.(COMMON.(UNITID)+USR),$ LINE $,BZ57.(DEFBC.(USR))) 472 LM00859
04670 ZET +0 52000 0 00130 04671 TRA +0 02000 0 04716 04672 TSX +0 07400 4 00021 04673 TXH +3 00000 0 01004
04674 STO +0 60100 0 07734 04675 TSX +0 07400 4 00013 04676 TXH +3 00000 0 07734 04677 STO +0 60100 0 07734
04700 TSX +0 07400 4 00103 04701 TXH +3 00000 0 01000 04702 ADD +0 40000 0 01004 04703 STO +0 60100 0 07733
04704 TSX +0 07400 4 00037 04705 TXH +3 00000 0 07733 04706 STO +0 60100 0 07733 04707 TSX +0 07400 4 00055
04710 TXH +3 00000 0 01076 04711 TXH +3 00000 0 01221 04712 TXH +3 00000 0 01355 04713 TXH +3 00000 0 07733
04714 TXH +3 00000 0 01304 04715 TXH +3 00000 0 07734
E'L 473 LM00863
E'E (OUSED,USED(1)), (OALTD,ALTD(1)) 474 LM00883
E'E (NUSED,USED(2)), (NALTD,ALTD(2)) 475 LM00884
O'R COMBUF(M) .E. $SETTAU$ 476 LM00886
04716 TRA +0 02000 0 06504 04717 LXA +0 53400 1 00743 04720 CLA +0 50000 1 00324 04721 SUB +0 40200 0 01342
04722 TNZ -0 10000 0 05247
M = M+1 477 LM00887
04723 CLA +0 50000 0 00743 04724 ADD +0 40000 0 01015 04725 STO +0 60100 0 00743
W'R COMBUF(M) .E. HELP 478 LM00888
04726 LXA +0 53400 1 00743 04727 CLA +0 50000 1 00324 04730 SUB +0 40200 0 00727 04731 TNZ -0 10000 0 04745
PRFULL.(ADMIN...2,CURCOM.(0),$ 'LSHIFT ALTD USED USER$) 479 LM00889
04732 TSX +0 07400 4 00104 04733 TXH +3 00000 0 01014 04734 STO +0 60100 0 07734 04735 TSX +0 07400 4 00055
04736 TIX +2 01016 0 00264 04737 TXH +3 00000 0 07734 04740 TXH +3 00000 0 01254 04741 TXH +3 00000 0 01152
04742 TXH +3 00000 0 01137 04743 TXH +3 00000 0 01335
O'E 480 LM00890
04744 TRA +0 02000 0 05246
SHFT = COMBUF(M) 481 LM00891
04745 LXA +0 53400 2 00743 04746 CLA +0 50000 2 00324 04747 STO +0 60100 0 00126
ALTD = COMBUF(M+1) 482 LM00892
04750 CLA +0 50000 0 00743 04751 ADD +0 40000 0 01015 04752 PAX +0 73400 2 00000 04753 CLA +0 50000 2 00324
04754 STO +0 60100 0 00146
USED = COMBUF(M+2) 483 LM00893
04755 CLA +0 50000 0 00743 04756 ADD +0 40000 0 01016 04757 PAX +0 73400 2 00000 04760 CLA +0 50000 2 00324
04761 STO +0 60100 0 00140
M = M+3 484 LM00894
04762 CLA +0 50000 0 00743 04763 ADD +0 40000 0 01017 04764 STO +0 60100 0 00743
W'R SHFT.V.ALTD.V.USED .E. FENCE, T'O ERR2 485 LM00895
04765 CAL -0 50000 0 00126 04766 ORA -0 50100 0 00146 04767 ORA -0 50100 0 00140 04770 SLW +0 60200 0 07734
04771 CLA +0 50000 0 07734 04772 SUB +0 40200 0 00122 04773 TNZ -0 10000 0 04775 04774 TRA +0 02000 0 00216
SHFT = BCDEC.(SHFT) 486 LM00896
04775 TSX +0 07400 4 00004 04776 TXH +3 00000 0 00126 04777 STO +0 60100 0 00126
W'R SHFT.E.0 .OR. SHFT.G.5, T'O ERR0 487 LM00897
05000 CLA +0 50000 0 00126 05001 SUB +0 40200 0 01021 05002 TZE +0 10000 0 05004 05003 TPL +0 12000 0 05007
05004 CLA +0 50000 0 00126 05005 SUB +0 40200 0 01014 05006 TNZ -0 10000 0 05010 05007 TRA +0 02000 0 00214
GETUSR.(SET0,ERR4,ERR5) 488 LM00898
05010 TSX +0 07400 4 00107 05011 TXH +3 00000 0 00245 05012 TXH +3 00000 0 00220 05013 TXH +3 00000 0 00221
SET0 TAULOC = COMMON.(TAU1) - (SHFT-1)*(N+1) + USR 489 LM00899
05014 CLA +0 50000 0 00746 05015 ADD +0 40000 0 01015 05016 STO +0 60100 0 07734 05017 CLA +0 50000 0 00126
05020 SUB +0 40200 0 01015 05021 XCA +0 13100 0 00000 05022 MPY +0 20000 0 07734 05023 STQ -0 60000 0 07734
05024 TSX +0 07400 4 00103 05025 TXH +3 00000 0 00772 05026 SUB +0 40200 0 07734 05027 ADD +0 40000 0 01004
05030 STO +0 60100 0 00124
TAU = GLOC.(TAULOC) 490 LM00900
05031 TSX +0 07400 4 00037 05032 TXH +3 00000 0 00124 05033 STO +0 60100 0 00125
OUSED = TAU.A.17777777K 491 LM00901
05034 CAL -0 50000 0 00125 05035 ANA -0 32000 0 01061 05036 SLW +0 60200 0 00137
OALTD = TAU.RS.14.V.377K 492 LM00902
05037 CAL -0 50000 0 01031 05040 STA +0 62100 0 05042 05041 CAL -0 50000 0 00125 05042 LGR -0 76500 0 00000
05043 ORA -0 50100 0 01047 05044 SLW +0 60200 0 00145
W'R USED .E. STAR 493 LM00904
05045 CLA +0 50000 0 00140 05046 SUB +0 40200 0 00765 05047 TNZ -0 10000 0 05053
NUSED = OUSED 494 LM00905
05050 CLA +0 50000 0 00137 05051 STO +0 60100 0 00136
O'E 495 LM00906
05052 TRA +0 02000 0 05072
W'R ZEL.(USED).A.$$.NE.0, T'O ERR0 496 LM00907
05053 TSX +0 07400 4 00101 05054 TXH +3 00000 0 00140 05055 STO +0 60100 0 07734 05056 CAL -0 50000 0 07734
05057 ANA -0 32000 0 01330 05060 SLW +0 60200 0 07734 05061 CLA +0 50000 0 07734 05062 SUB +0 40200 0 01014
05063 TZE +0 10000 0 05065 05064 TRA +0 02000 0 00214
NUSED = BCDEC.(USED) * 3600 497 LM00908
05065 TSX +0 07400 4 00004 05066 TXH +3 00000 0 00140 05067 XCA +0 13100 0 00000 05070 MPY +0 20000 0 01054
05071 STQ -0 60000 0 00136
E'L 498 LM00909
W'R ALTD .E. STAR 499 LM00911
05072 CLA +0 50000 0 00146 05073 SUB +0 40200 0 00765 05074 TNZ -0 10000 0 05100
NALTD = OALTD 500 LM00912
05075 CLA +0 50000 0 00145 05076 STO +0 60100 0 00144
O'E 501 LM00913
05077 TRA +0 02000 0 05117
W'R ZEL.(ALTD).A.$$ .NE. 0, T'O ERR0 502 LM00914
05100 TSX +0 07400 4 00101 05101 TXH +3 00000 0 00146 05102 STO +0 60100 0 07734 05103 CAL -0 50000 0 07734
05104 ANA -0 32000 0 01330 05105 SLW +0 60200 0 07734 05106 CLA +0 50000 0 07734 05107 SUB +0 40200 0 01014
05110 TZE +0 10000 0 05112 05111 TRA +0 02000 0 00214
NALTD = BCDEC.(ALTD) * 3600 503 LM00915
05112 TSX +0 07400 4 00004 05113 TXH +3 00000 0 00146 05114 XCA +0 13100 0 00000 05115 MPY +0 20000 0 01054
05116 STQ -0 60000 0 00144
E'L 504 LM00916
PCTL.(3) 505 LM00918
05117 TSX +0 07400 4 00052 05120 TXH +3 00000 0 01017
PRFULL.(X,WHO(3)...M2,ON,WHO,$ SETTING '3TAU'X$, 506 LM00919
1 BZ57.(DEFBC.(SHFT)),$ OF'X$,PROB...2,$ FROM $, 506 LM00920
2 BZ57.(DEFBC.(OALTD/3600)),BL,BZ57.(DEFBC.(OUSED/3600)), 506 LM00921
3 $ TO '8$,BZ57.(DEFBC.(NALTD/3600)),BL, 506 LM00922
4 BZ57.(DEFBC.(NUSED/3600)),$.$) 506 LM00923
05121 LDQ +0 56000 0 00136 05122 PXD -0 75400 0 00000 05123 LLS +0 76300 0 00000 05124 DVP +0 22100 0 01054
05125 STQ -0 60000 0 07734 05126 TSX +0 07400 4 00021 05127 TXH +3 00000 0 07734 05130 STO +0 60100 0 07734
05131 TSX +0 07400 4 00013 05132 TXH +3 00000 0 07734 05133 STO +0 60100 0 07734 05134 LDQ +0 56000 0 00144
05135 PXD -0 75400 0 00000 05136 LLS +0 76300 0 00000 05137 DVP +0 22100 0 01054 05140 STQ -0 60000 0 07733
05141 TSX +0 07400 4 00021 05142 TXH +3 00000 0 07733 05143 STO +0 60100 0 07733 05144 TSX +0 07400 4 00013
05145 TXH +3 00000 0 07733 05146 STO +0 60100 0 07733 05147 LDQ +0 56000 0 00137 05150 PXD -0 75400 0 00000
05151 LLS +0 76300 0 00000 05152 DVP +0 22100 0 01054 05153 STQ -0 60000 0 07732 05154 TSX +0 07400 4 00021
05155 TXH +3 00000 0 07732 05156 STO +0 60100 0 07732 05157 TSX +0 07400 4 00013 05160 TXH +3 00000 0 07732
05161 STO +0 60100 0 07732 05162 LDQ +0 56000 0 00145 05163 PXD -0 75400 0 00000 05164 LLS +0 76300 0 00000
05165 DVP +0 22100 0 01054 05166 STQ -0 60000 0 07735 05167 TSX +0 07400 4 00021 05170 TXH +3 00000 0 07735
05171 STO +0 60100 0 07735 05172 TSX +0 07400 4 00013 05173 TXH +3 00000 0 07735 05174 STO +0 60100 0 07735
05175 TSX +0 07400 4 00021 05176 TXH +3 00000 0 00126 05177 STO +0 60100 0 07736 05200 TSX +0 07400 4 00013
05201 TXH +3 00000 0 07736 05202 STO +0 60100 0 07736 05203 TSX +0 07400 4 00055 05204 TXH +3 00000 0 01013
05205 TIX +2 00736 0 01005 05206 TXH +3 00000 0 00750 05207 TXH +3 00000 0 01010 05210 TXH +3 00000 0 01332
05211 TXH +3 00000 0 01207 05212 TXH +3 00000 0 01125 05213 TXH +3 00000 0 07736 05214 TXH +3 00000 0 01313
05215 TIX +2 01016 0 00117 05216 TXH +3 00000 0 01272 05217 TXH +3 00000 0 07735 05220 TXH +3 00000 0 00276
05221 TXH +3 00000 0 07732 05222 TXH +3 00000 0 01333 05223 TXH +3 00000 0 07733 05224 TXH +3 00000 0 00276
05225 TXH +3 00000 0 07734 05226 TXH +3 00000 0 01164
PCTL.(1) 507 LM00924
05227 TSX +0 07400 4 00052 05230 TXH +3 00000 0 01015
SLOC.(NALTD.LS.14.A.77776K7.V.NUSED.A.17777777K,TAULOC) 508 LM00929
05231 CAL -0 50000 0 00136 05232 ANA -0 32000 0 01061 05233 SLW +0 60200 0 07736 05234 CAL -0 50000 0 01031
05235 STA +0 62100 0 05237 05236 CAL -0 50000 0 00144 05237 ALS +0 76700 0 00000 05240 ANA -0 32000 0 01401
05241 ORA -0 50100 0 07736 05242 SLW +0 60200 0 07736 05243 TSX +0 07400 4 00072 05244 TXH +3 00000 0 07736
05245 TXH +3 00000 0 00124
E'L 509 LM00931
E'E (OLDM,T0) 510 LM00949
O'R COMBUF(M) .E. $ SPY$ 511 LM00951
05246 TRA +0 02000 0 06504 05247 LXA +0 53400 1 00743 05250 CLA +0 50000 1 00324 05251 SUB +0 40200 0 01331
05252 TNZ -0 10000 0 05373
M = M+1 512 LM00952
05253 CLA +0 50000 0 00743 05254 ADD +0 40000 0 01015 05255 STO +0 60100 0 00743
W'R COMBUF(M) .E. HELP 513 LM00953
05256 LXA +0 53400 1 00743 05257 CLA +0 50000 1 00324 05260 SUB +0 40200 0 00727 05261 TNZ -0 10000 0 05267
PRFULL.($'UADMIN SPY 'LUSER$) 514 LM00954
05262 TSX +0 07400 4 00055 05263 TXH +3 00000 0 01117 05264 TXH +3 00000 0 01213 05265 TXH +3 00000 0 01105
O'E 515 LM00955
05266 TRA +0 02000 0 05372
OLDM = M 516 LM00956
05267 CLA +0 50000 0 00743 05270 STO +0 60100 0 00132
SPY1 GETUSR.(ERR3,SPY3,ERR5) 517 LM00957
05271 TSX +0 07400 4 00107 05272 TXH +3 00000 0 00217 05273 TXH +3 00000 0 00250 05274 TXH +3 00000 0 00221
PRFULL.($'1USER FOUND:'X$,PROB...2,$ LINE $, 518 LM00958
1 BZ57.(DEFBC.(USR))) 518 LM00959
05275 TSX +0 07400 4 00021 05276 TXH +3 00000 0 01004 05277 STO +0 60100 0 07736 05300 TSX +0 07400 4 00013
05301 TXH +3 00000 0 07736 05302 STO +0 60100 0 07736 05303 TSX +0 07400 4 00055 05304 TXH +3 00000 0 01077
05305 TXH +3 00000 0 01271 05306 TXH +3 00000 0 01165 05307 TIX +2 01016 0 00117 05310 TXH +3 00000 0 01304
05311 TXH +3 00000 0 07736
ADOPT = COMMON.(ADOPT) 519 LM00960
05312 TSX +0 07400 4 00103 05313 TXH +3 00000 0 00265 05314 STO +0 60100 0 00265
SLOC.(3K5.V.USR,ADOPT+USER) 520 LM00961
05315 CLA +0 50000 0 00265 05316 ADD +0 40000 0 01002 05317 STO +0 60100 0 07736 05320 CAL -0 50000 0 01056
05321 ORA -0 50100 0 01004 05322 SLW +0 60200 0 07735 05323 TSX +0 07400 4 00072 05324 TXH +3 00000 0 07735
05325 TXH +3 00000 0 07736
SLOC.(GLOC.(ADOPT+USR).V.7000003K5,ADOPT+USR) 521 LM00962
05326 CLA +0 50000 0 00265 05327 ADD +0 40000 0 01004 05330 STO +0 60100 0 07736 05331 CLA +0 50000 0 00265
05332 ADD +0 40000 0 01004 05333 STO +0 60100 0 07735 05334 TSX +0 07400 4 00037 05335 TXH +3 00000 0 07735
05336 STO +0 60100 0 07735 05337 CAL -0 50000 0 07735 05340 ORA -0 50100 0 01370 05341 SLW +0 60200 0 07735
05342 TSX +0 07400 4 00072 05343 TXH +3 00000 0 07735 05344 TXH +3 00000 0 07736
SPY2 SNOOZE.(1800,SLPCMD(2)) 522 LM00963
05345 TSX +0 07400 4 00073 05346 TXH +3 00000 0 01052 05347 TXH +3 00000 0 00120
T'O SPY2 523 LM00965
05350 TRA +0 02000 0 00247
SPY3 GETTM.(DATE,TIME) 524 LM00967
05351 TSX +0 07400 4 00036 05352 TXH +3 00000 0 00326 05353 TXH +3 00000 0 00774
PRFULL.(X,PROB...2,$ IS NOT LOGGED IN - 'X$,TIME) 525 LM00968
05354 TSX +0 07400 4 00055 05355 TXH +3 00000 0 01013 05356 TIX +2 01016 0 00117 05357 TXH +3 00000 0 01300
05360 TXH +3 00000 0 01357 05361 TXH +3 00000 0 01143 05362 TXH +3 00000 0 01166 05363 TXH +3 00000 0 00774
SNOOZE.(15,SLPCMD(2)) 526 LM00969
05364 TSX +0 07400 4 00073 05365 TXH +3 00000 0 01032 05366 TXH +3 00000 0 00120
M = OLDM 527 LM00970
05367 CLA +0 50000 0 00132 05370 STO +0 60100 0 00743
T'O SPY1 528 LM00971
05371 TRA +0 02000 0 00246
E'L 529 LM00972
E'E (T0,N1), (T1,N2), (T2,NSTICK), (T3,STICKY) 530 LM00992
E'E (TUCARD(8),LENGTH), (TUCARD(5),DEV), (TUCARD(27),BUFF) 531 LM00993
D'N BUFF(0) 532 LM00994
O'R COMBUF(M) .E. $SQZUFD$ 533 LM00996
05372 TRA +0 02000 0 06504 05373 LXA +0 53400 1 00743 05374 CLA +0 50000 1 00324 05375 SUB +0 40200 0 01343
05376 TNZ -0 10000 0 06063
M = M+1 534 LM00997
05377 CLA +0 50000 0 00743 05400 ADD +0 40000 0 01015 05401 STO +0 60100 0 00743
W'R COMBUF(M) .E. HELP 535 LM00998
05402 LXA +0 53400 1 00743 05403 CLA +0 50000 1 00324 05404 SUB +0 40200 0 00727 05405 TNZ -0 10000 0 05411
PRFULL.(FMT5...100) 536 LM00999
05406 TSX +0 07400 4 00055 05407 TIX +2 01046 0 00724
V'S FMT5 = $ 'UADMIN SQZUFD 'LUSER1 USER2 ... $, 537 LM01000
1 $'* USER MAY BE FOLLOWED BY '='4(DISK)'= OR '='4(DRUM)'=$, 537 LM01001
2 $'* TO INDICATE WHERE THE FINAL UFD IS TO RESIDE.$, 537 LM01002
3 777777777777K 537 LM01003
00673 -3 77777 7 77777 00674 +3 36060 6 06060 00675 -1 12562 3 12425 00676 +3 16260 6 34660
00677 -0 36064 2 62460 00700 +2 56026 3 14521 00701 +2 55125 6 06330 00702 +2 16325 6 06630
00703 -2 03145 2 43123 00704 +1 45460 6 06346 00705 +1 41360 6 06060 00706 -3 42451 6 44434
00707 -1 16014 1 31404 00710 -0 23414 1 36046 00711 +1 40474 2 43162 00712 -2 02270 6 01413
00713 -0 34346 6 62524 00714 -2 02225 6 02646 00715 +2 55160 4 42170 00716 +1 45460 6 06462
00717 +3 33333 6 06060 00720 -2 46225 5 10260 00721 -2 46225 5 10160 00722 -2 42624 6 01443
00723 +3 14560 6 25071 00724 -2 01464 2 12444
O'E 538 LM01004
05410 TRA +0 02000 0 06062
GETBUF.(B1,432) 539 LM01005
05411 TSX +0 07400 4 00035 05412 TXH +3 00000 0 00267 05413 TXH +3 00000 0 01050
GETBUF.(B2,432) 540 LM01006
05414 TSX +0 07400 4 00035 05415 TXH +3 00000 0 00270 05416 TXH +3 00000 0 01050
GETBUF.(B3,432) 541 LM01007
05417 TSX +0 07400 4 00035 05420 TXH +3 00000 0 00271 05421 TXH +3 00000 0 01050
GETBUF.(B4,432) 542 LM01008
05422 TSX +0 07400 4 00035 05423 TXH +3 00000 0 00272 05424 TXH +3 00000 0 01050
GETBUF.(B5,432) 543 LM01009
05425 TSX +0 07400 4 00035 05426 TXH +3 00000 0 00273 05427 TXH +3 00000 0 01050
FSTST = ENTRY.(FSTST) 544 LM01010
05430 TSX +0 07400 4 00105 05431 TXH +3 00000 0 00726 05432 STO +0 60100 0 00726
NSTICK = ENTRY.(SAVING) + 1 545 LM01011
05433 TSX +0 07400 4 00105 05434 TXH +3 00000 0 00764 05435 ADD +0 40000 0 01015 05436 STO +0 60100 0 00130
STICKY = NSTICK + 6 546 LM01012
05437 CLA +0 50000 0 00130 05440 ADD +0 40000 0 01022 05441 STO +0 60100 0 00127
NSTICK = GLOC.(NSTICK)*13 547 LM01013
05442 TSX +0 07400 4 00037 05443 TXH +3 00000 0 00130 05444 XCA +0 13100 0 00000 05445 MPY +0 20000 0 01030
05446 STQ -0 60000 0 00130
ATTACH.(MFD,FILE) 548 LM01014
05447 TSX +0 07400 4 00002 05450 TXH +3 00000 0 00742 05451 TXH +3 00000 0 00327
FERRTN.(SQZERR) 549 LM01015
05452 TSX +0 07400 4 00031 05453 TXH +3 00000 0 00256
SQZ1 GETUSR.(ERR3,SQZ2,ERR5) 550 LM01017
05454 TSX +0 07400 4 00107 05455 TXH +3 00000 0 00217 05456 TXH +3 00000 0 00252 05457 TXH +3 00000 0 00221
SQZ2 NONINT. 551 LM01018
05460 TSX +0 07400 4 00112
FSTATE.(PROB,PROG,LENGTH...8,NOUFD) 552 LM01019
05461 TSX +0 07400 4 00032 05462 TXH +3 00000 0 00117 05463 TXH +3 00000 0 00116 05464 TIX +2 01024 0 00156
05465 TXH +3 00000 0 00230
T'O SQZUFD 553 LM01020
05466 TRA +0 02000 0 00260
NOUFD PRFULL.($'R'X$,PROB...2,$ NOT FOUND.'B$) 554 LM01021
05467 TSX +0 07400 4 00055 05470 TXH +3 00000 0 01115 05471 TIX +2 01016 0 00117 05472 TXH +3 00000 0 01311
05473 TXH +3 00000 0 01225 05474 TXH +3 00000 0 01126
T'O SQZOUT 555 LM01022
05475 TRA +0 02000 0 00257
SQZUFD W'R COMBUF(M) .E. $(DRUM)$ 556 LM01024
05476 LXA +0 53400 1 00743 05477 CLA +0 50000 1 00324 05500 SUB +0 40200 0 01375 05501 TNZ -0 10000 0 05510
DEV = 1 557 LM01025
05502 CLA +0 50000 0 01015 05503 STO +0 60100 0 00161
M = M+1 558 LM01026
05504 CLA +0 50000 0 00743 05505 ADD +0 40000 0 01015 05506 STO +0 60100 0 00743
O'R COMBUF(M) .E. $(DISK)$ 559 LM01027
05507 TRA +0 02000 0 05521 05510 LXA +0 53400 1 00743 05511 CLA +0 50000 1 00324 05512 SUB +0 40200 0 01373
05513 TNZ -0 10000 0 05521
DEV = 2 560 LM01028
05514 CLA +0 50000 0 01016 05515 STO +0 60100 0 00161
M = M+1 561 LM01029
05516 CLA +0 50000 0 00743 05517 ADD +0 40000 0 01015 05520 STO +0 60100 0 00743
E'L 562 LM01030
T'H SQZ3, FOR I = 0,13,I.G.NSTICK 563 LM01031
05521 CLA +0 50000 0 01014 05522 STO +0 60100 0 00730 05523 TRA +0 02000 0 05527 05524 CLA +0 50000 0 00730
05525 ADD +0 40000 0 01030 05526 STO +0 60100 0 00730 05527 CLA +0 50000 0 00730 05530 SUB +0 40200 0 00130
05531 TZE +0 10000 0 05533 05532 TPL +0 12000 0 05573
N1 = GLOC.(STICKY+I) 564 LM01032
05533 CLA +0 50000 0 00127 05534 ADD +0 40000 0 00730 05535 STO +0 60100 0 07736 05536 TSX +0 07400 4 00037
05537 TXH +3 00000 0 07736 05540 STO +0 60100 0 00132
N2 = GLOC.(STICKY+I+1) 565 LM01033
05541 CLA +0 50000 0 00127 05542 ADD +0 40000 0 00730 05543 ADD +0 40000 0 01015 05544 STO +0 60100 0 07736
05545 TSX +0 07400 4 00037 05546 TXH +3 00000 0 07736 05547 STO +0 60100 0 00131
W'R N1 .E. PROB .AND. N2 .E. PROG 566 LM01034
05550 CLA +0 50000 0 00131 05551 SUB +0 40200 0 00116 05552 TNZ -0 10000 0 05572 05553 CLA +0 50000 0 00132
05554 SUB +0 40200 0 00117 05555 TNZ -0 10000 0 05572
INT. 567 LM01035
05556 TSX +0 07400 4 00111
PRFULL.(RED,X,PROB...2, 568 LM01036
1 $ HAS INFORMATION IN THE STICKIES.'B$) 568 LM01037
05557 TSX +0 07400 4 00055 05560 TXH +3 00000 0 00756 05561 TXH +3 00000 0 01013 05562 TIX +2 01016 0 00117
05563 TXH +3 00000 0 01274 05564 TXH +3 00000 0 01205 05565 TXH +3 00000 0 01354 05566 TXH +3 00000 0 01214
05567 TXH +3 00000 0 01346 05570 TXH +3 00000 0 01147
T'O SQZOUT 569 LM01038
05571 TRA +0 02000 0 00257
E'L 570 LM01039
SQZ3 C'E 571 LM01040
05572 TRA +0 02000 0 05524
SLOC.(FENCE,FSTST) 572 LM01041
05573 TSX +0 07400 4 00072 05574 TXH +3 00000 0 00122 05575 TXH +3 00000 0 00726
ALLOT.(2,32767) 573 LM01046
05576 TSX +0 07400 4 00001 05577 TXH +3 00000 0 01016 05600 TXH +3 00000 0 01055
ALLOT.(1,32767) 574 LM01047
05601 TSX +0 07400 4 00001 05602 TXH +3 00000 0 01015 05603 TXH +3 00000 0 01055
BFOPEN.(R,PROB,PROG,B1(B1+432),B2(B2+432),M0,SQZERR) 575 LM01048
05604 CLA +0 50000 0 00270 05605 ADD +0 40000 0 01050 05606 SUB +0 40200 0 05607 05607 TXH +3 00000 0 00270
05610 STA +0 62100 0 05623 05611 CLA +0 50000 0 00267 05612 ADD +0 40000 0 01050 05613 SUB +0 40200 0 05614
05614 TXH +3 00000 0 00267 05615 STA +0 62100 0 05622 05616 TSX +0 07400 4 00007 05617 TXH +3 00000 0 00763
05620 TXH +3 00000 0 00117 05621 TXH +3 00000 0 00116 05622 TXH +3 00000 0 00000 05623 TXH +3 00000 0 00000
05624 TXH +3 00000 0 00733 05625 TXH +3 00000 0 00256
CHFILE.(PROG,PROB,1,M0,M0,NULL.) 576 LM01049
05626 TSX +0 07400 4 00015 05627 TXH +3 00000 0 00116 05630 TXH +3 00000 0 00117 05631 TXH +3 00000 0 01015
05632 TXH +3 00000 0 00733 05633 TXH +3 00000 0 00733 05634 TXH +3 00000 0 00045
DELFIL.(PROG,PROB,NULL.) 577 LM01050
05635 TSX +0 07400 4 00023 05636 TXH +3 00000 0 00116 05637 TXH +3 00000 0 00117 05640 TXH +3 00000 0 00045
BFOPEN.(W,PROG,PROB,B3(B3+432),B4(B4+432),B5(B5+432), 578 LM01051
1 SQZERR) 578 LM01052
05641 CLA +0 50000 0 00273 05642 ADD +0 40000 0 01050 05643 SUB +0 40200 0 05644 05644 TXH +3 00000 0 00273
05645 STA +0 62100 0 05666 05646 CLA +0 50000 0 00272 05647 ADD +0 40000 0 01050 05650 SUB +0 40200 0 05651
05651 TXH +3 00000 0 00272 05652 STA +0 62100 0 05665 05653 CLA +0 50000 0 00271 05654 ADD +0 40000 0 01050
05655 SUB +0 40200 0 05656 05656 TXH +3 00000 0 00271 05657 STA +0 62100 0 05664 05660 TSX +0 07400 4 00007
05661 TXH +3 00000 0 01012 05662 TXH +3 00000 0 00116 05663 TXH +3 00000 0 00117 05664 TXH +3 00000 0 00000
05665 TXH +3 00000 0 00000 05666 TXH +3 00000 0 00000 05667 TXH +3 00000 0 00256
BFREAD.(PROB,PROG,BUFF...3,SQZEOF,M0,SQZERR) 579 LM01053
05670 TSX +0 07400 4 00010 05671 TXH +3 00000 0 00117 05672 TXH +3 00000 0 00116 05673 TIX +2 01017 0 00133
05674 TXH +3 00000 0 00255 05675 TXH +3 00000 0 00733 05676 TXH +3 00000 0 00256
BFWRIT.(PROG,PROB,BUFF...3,SQZERR) 580 LM01054
05677 TSX +0 07400 4 00011 05700 TXH +3 00000 0 00116 05701 TXH +3 00000 0 00117 05702 TIX +2 01017 0 00133
05703 TXH +3 00000 0 00256
SQZ5 BFREAD.(PROB,PROG,BUFF...7,SQZEOF,M0,SQZERR) 581 LM01055
05704 TSX +0 07400 4 00010 05705 TXH +3 00000 0 00117 05706 TXH +3 00000 0 00116 05707 TIX +2 01023 0 00133
05710 TXH +3 00000 0 00255 05711 TXH +3 00000 0 00733 05712 TXH +3 00000 0 00256
W'R BUFF.V.BUFF(M1).NE.0, 582 LM01056
1 BFWRIT.(PROG,PROB,BUFF...7,SQZERR) 582 LM01057
05713 LXA +0 53400 2 00735 05714 CAL -0 50000 0 00133 05715 ORA -0 50100 2 00133 05716 SLW +0 60200 0 07736
05717 CLA +0 50000 0 07736 05720 SUB +0 40200 0 01014 05721 TZE +0 10000 0 05727 05722 TSX +0 07400 4 00011
05723 TXH +3 00000 0 00116 05724 TXH +3 00000 0 00117 05725 TIX +2 01023 0 00133 05726 TXH +3 00000 0 00256
T'O SQZ5 583 LM01058
05727 TRA +0 02000 0 00253
SQZEOF BFCLOS.(PROB,PROG,SQZERR) 584 LM01060
05730 TSX +0 07400 4 00006 05731 TXH +3 00000 0 00117 05732 TXH +3 00000 0 00116 05733 TXH +3 00000 0 00256
BFCLOS.(PROG,PROB,SQZERR) 585 LM01061
05734 TSX +0 07400 4 00006 05735 TXH +3 00000 0 00116 05736 TXH +3 00000 0 00117 05737 TXH +3 00000 0 00256
SQZ6 CHFILE.(PROB,PROG,1) 586 LM01062
05740 TSX +0 07400 4 00015 05741 TXH +3 00000 0 00117 05742 TXH +3 00000 0 00116 05743 TXH +3 00000 0 01015
DELFIL.(PROB,PROG) 587 LM01063
05744 TSX +0 07400 4 00023 05745 TXH +3 00000 0 00117 05746 TXH +3 00000 0 00116
CHFILE.(PROG,PROB,104K,PROB,PROG) 588 LM01064
05747 TSX +0 07400 4 00015 05750 TXH +3 00000 0 00116 05751 TXH +3 00000 0 00117 05752 TXH +3 00000 0 01043
05753 TXH +3 00000 0 00117 05754 TXH +3 00000 0 00116
W'R DEV .E. 1 589 LM01069
05755 CLA +0 50000 0 00161 05756 SUB +0 40200 0 01015 05757 TNZ -0 10000 0 06045
DEV = 2 590 LM01070
05760 CLA +0 50000 0 01016 05761 STO +0 60100 0 00161
OPEN.(R,PROB,PROG) 591 LM01071
05762 TSX +0 07400 4 00051 05763 TXH +3 00000 0 00763 05764 TXH +3 00000 0 00117 05765 TXH +3 00000 0 00116
OPEN.(W,PROG,PROB,0,1) 592 LM01072
05766 TSX +0 07400 4 00051 05767 TXH +3 00000 0 01012 05770 TXH +3 00000 0 00116 05771 TXH +3 00000 0 00117
05772 TXH +3 00000 0 01014 05773 TXH +3 00000 0 01015
BUFFER.(PROG,PROB,B4(B4+432)...432) 593 LM01073
05774 CLA +0 50000 0 00272 05775 ADD +0 40000 0 01050 05776 SUB +0 40200 0 05777 05777 TXH +3 00000 0 00272
06000 STA +0 62100 0 06004 06001 TSX +0 07400 4 00012 06002 TXH +3 00000 0 00116 06003 TXH +3 00000 0 00117
06004 TIX +2 01050 0 00000
COPY.(PROB,PROG,PROG,PROB,B1(B1+432),B2(B2+432), 594 LM01074
1 B3(B3+432),432,SQZERR) 594 LM01075
06005 CLA +0 50000 0 00271 06006 ADD +0 40000 0 01050 06007 SUB +0 40200 0 06010 06010 TXH +3 00000 0 00271
06011 STA +0 62100 0 06033 06012 CLA +0 50000 0 00270 06013 ADD +0 40000 0 01050 06014 SUB +0 40200 0 06015
06015 TXH +3 00000 0 00270 06016 STA +0 62100 0 06032 06017 CLA +0 50000 0 00267 06020 ADD +0 40000 0 01050
06021 SUB +0 40200 0 06022 06022 TXH +3 00000 0 00267 06023 STA +0 62100 0 06031 06024 TSX +0 07400 4 00020
06025 TXH +3 00000 0 00117 06026 TXH +3 00000 0 00116 06027 TXH +3 00000 0 00116 06030 TXH +3 00000 0 00117
06031 TXH +3 00000 0 00000 06032 TXH +3 00000 0 00000 06033 TXH +3 00000 0 00000 06034 TXH +3 00000 0 01050
06035 TXH +3 00000 0 00256
CLOSE.(PROB,PROG) 595 LM01076
06036 TSX +0 07400 4 00016 06037 TXH +3 00000 0 00117 06040 TXH +3 00000 0 00116
CLOSE.(PROG,PROB) 596 LM01077
06041 TSX +0 07400 4 00016 06042 TXH +3 00000 0 00116 06043 TXH +3 00000 0 00117
T'O SQZ6 597 LM01078
06044 TRA +0 02000 0 00254
E'L 598 LM01079
SQZOUT RESETF. 599 LM01081
06045 TSX +0 07400 4 00062
SLOC.(0,FSTST) 600 LM01082
06046 TSX +0 07400 4 00072 06047 TXH +3 00000 0 01014 06050 TXH +3 00000 0 00726
INT. 601 LM01083
06051 TSX +0 07400 4 00111
W'R COMBUF(M).NE. FENCE, T'O SQZ1 602 LM01084
06052 LXA +0 53400 1 00743 06053 CLA +0 50000 1 00324 06054 SUB +0 40200 0 00122 06055 TZE +0 10000 0 06057
06056 TRA +0 02000 0 00251
T'O OUT 603 LM01085
06057 TRA +0 02000 0 00231
SQZERR PRDIAG. 604 LM01087
06060 TSX +0 07400 4 00053
T'O SQZOUT 605 LM01088
06061 TRA +0 02000 0 00257
E'L 606 LM01089
O'R COMBUF(M) .E. $UPATCH$ 607 LM01109
06062 TRA +0 02000 0 06504 06063 LXA +0 53400 1 00743 06064 CLA +0 50000 1 00324 06065 SUB +0 40200 0 01361
06066 TNZ -0 10000 0 06116
M = M+1 608 LM01110
06067 CLA +0 50000 0 00743 06070 ADD +0 40000 0 01015 06071 STO +0 60100 0 00743
W'R COMBUF(M) .E. HELP 609 LM01111
06072 LXA +0 53400 1 00743 06073 CLA +0 50000 1 00324 06074 SUB +0 40200 0 00727 06075 TNZ -0 10000 0 06110
PRFULL.(ADMIN...2,CURCOM.(0),$ 'LLOC LHALF RHALF$) 610 LM01112
06076 TSX +0 07400 4 00104 06077 TXH +3 00000 0 01014 06100 STO +0 60100 0 07736 06101 TSX +0 07400 4 00055
06102 TIX +2 01016 0 00264 06103 TXH +3 00000 0 07736 06104 TXH +3 00000 0 01252 06105 TXH +3 00000 0 01303
06106 TXH +3 00000 0 01316
O'E 611 LM01113
06107 TRA +0 02000 0 06115
UPATSW = 1B 612 LM01114
06110 CLA +0 50000 0 01015 06111 STO +0 60100 0 00132
PATMES(1) = $(USER)$ 613 LM01115
06112 CLA +0 50000 0 01377 06113 STO +0 60100 0 00165
T'O PAT1 614 LM01116
06114 TRA +0 02000 0 00232
E'L 615 LM01117
O'R COMBUF(M) .E. $UPDATE$ 616 LM01143
06115 TRA +0 02000 0 06504 06116 LXA +0 53400 1 00743 06117 CLA +0 50000 1 00324 06120 SUB +0 40200 0 01362
06121 TNZ -0 10000 0 06424
M = M+1 617 LM01144
06122 CLA +0 50000 0 00743 06123 ADD +0 40000 0 01015 06124 STO +0 60100 0 00743
W'R COMBUF(M) .E. HELP 618 LM01145
06125 LXA +0 53400 1 00743 06126 CLA +0 50000 1 00324 06127 SUB +0 40200 0 00727 06130 TNZ -0 10000 0 06143
PRFULL.(ADMIN...2,CURCOM.(0),$ N1 -N2- -N3- -N4-$) 619 LM01146
06131 TSX +0 07400 4 00104 06132 TXH +3 00000 0 01014 06133 STO +0 60100 0 07736 06134 TSX +0 07400 4 00055
06135 TIX +2 01016 0 00264 06136 TXH +3 00000 0 07736 06137 TXH +3 00000 0 01310 06140 TXH +3 00000 0 01065
06141 TXH +3 00000 0 01167
O'E 620 LM01147
06142 TRA +0 02000 0 06423
N1 = COMBUF(M) 621 LM01148
06143 LXA +0 53400 2 00743 06144 CLA +0 50000 2 00324 06145 STO +0 60100 0 00132
N2 = COMBUF(M+1) 622 LM01149
06146 CLA +0 50000 0 00743 06147 ADD +0 40000 0 01015 06150 PAX +0 73400 2 00000 06151 CLA +0 50000 2 00324
06152 STO +0 60100 0 00131
N3 = COMBUF(M+2) 623 LM01150
06153 CLA +0 50000 0 00743 06154 ADD +0 40000 0 01016 06155 PAX +0 73400 2 00000 06156 CLA +0 50000 2 00324
06157 STO +0 60100 0 00130
N4 = COMBUF(M+3) 624 LM01151
06160 CLA +0 50000 0 00743 06161 ADD +0 40000 0 01017 06162 PAX +0 73400 2 00000 06163 CLA +0 50000 2 00324
06164 STO +0 60100 0 00127
W'R N2 .E. FENCE 625 LM01152
06165 CLA +0 50000 0 00131 06166 SUB +0 40200 0 00122 06167 TNZ -0 10000 0 06177
N2 = TA 626 LM01153
06170 CLA +0 50000 0 00771 06171 STO +0 60100 0 00131
N3 = N1 627 LM01154
06172 CLA +0 50000 0 00132 06173 STO +0 60100 0 00130
N4 = N2 628 LM01155
06174 CLA +0 50000 0 00131 06175 STO +0 60100 0 00127
O'R N3 .E. FENCE 629 LM01156
06176 TRA +0 02000 0 06234 06177 CLA +0 50000 0 00130 06200 SUB +0 40200 0 00122 06201 TNZ -0 10000 0 06207
N3 = N1 630 LM01157
06202 CLA +0 50000 0 00132 06203 STO +0 60100 0 00130
N4 = N2 631 LM01158
06204 CLA +0 50000 0 00131 06205 STO +0 60100 0 00127
O'R N4 .E. FENCE 632 LM01159
06206 TRA +0 02000 0 06234 06207 CLA +0 50000 0 00127 06210 SUB +0 40200 0 00122 06211 TNZ -0 10000 0 06215
N4 = N2 633 LM01160
06212 CLA +0 50000 0 00131 06213 STO +0 60100 0 00127
O'R N1 .E. FENCE 634 LM01161
06214 TRA +0 02000 0 06234 06215 CLA +0 50000 0 00132 06216 SUB +0 40200 0 00122 06217 TNZ -0 10000 0 06222
T'O ERR2 635 LM01162
06220 TRA +0 02000 0 00216
O'R COMBUF(M+4).NE.FENCE 636 LM01163
06221 TRA +0 02000 0 06234 06222 CLA +0 50000 0 00743 06223 ADD +0 40000 0 01020 06224 PAX +0 73400 1 00000
06225 CLA +0 50000 1 00324 06226 SUB +0 40200 0 00122 06227 TZE +0 10000 0 06234
M = M+4 637 LM01164
06230 CLA +0 50000 0 00743 06231 ADD +0 40000 0 01020 06232 STO +0 60100 0 00743
T'O ERR1 638 LM01165
06233 TRA +0 02000 0 00215
E'L 639 LM01166
W'R ME(1).E.M1416 .AND. ME.E.CMFL02 .AND. 640 LM01168
1 N3.E.N1 .AND. N4.E.N2, T'O ERR0 640 LM01169
06234 CLA +0 50000 0 00127 06235 SUB +0 40200 0 00131 06236 TNZ -0 10000 0 06251 06237 CLA +0 50000 0 00130
06240 SUB +0 40200 0 00132 06241 TNZ -0 10000 0 06251 06242 CLA +0 50000 0 00740 06243 SUB +0 40200 0 00277
06244 TNZ -0 10000 0 06251 06245 CLA +0 50000 0 00737 06246 SUB +0 40200 0 00734 06247 TNZ -0 10000 0 06251
06250 TRA +0 02000 0 00214
CHKPRV.(RPRVBT) 641 LM01170
06251 TSX +0 07400 4 00102 06252 TXH +3 00000 0 00762
GETBUF.(B1,432) 642 LM01172
06253 TSX +0 07400 4 00035 06254 TXH +3 00000 0 00267 06255 TXH +3 00000 0 01050
GETBUF.(B2,432) 643 LM01173
06256 TSX +0 07400 4 00035 06257 TXH +3 00000 0 00270 06260 TXH +3 00000 0 01050
GETBUF.(B3,432) 644 LM01174
06261 TSX +0 07400 4 00035 06262 TXH +3 00000 0 00271 06263 TXH +3 00000 0 01050
GETBUF.(B4,432) 645 LM01175
06264 TSX +0 07400 4 00035 06265 TXH +3 00000 0 00272 06266 TXH +3 00000 0 01050
OPEN.(R,N1,N2) 646 LM01176
06267 TSX +0 07400 4 00051 06270 TXH +3 00000 0 00763 06271 TXH +3 00000 0 00132 06272 TXH +3 00000 0 00131
ATTACH.(M1416,CMFL02) 647 LM01177
06273 TSX +0 07400 4 00002 06274 TXH +3 00000 0 00734 06275 TXH +3 00000 0 00277
NONINT. 648 LM01178
06276 TSX +0 07400 4 00112
CHFILE.(DATE,TIME,1,M0,M0,NULL.) 649 LM01179
06277 TSX +0 07400 4 00015 06300 TXH +3 00000 0 00326 06301 TXH +3 00000 0 00774 06302 TXH +3 00000 0 01015
06303 TXH +3 00000 0 00733 06304 TXH +3 00000 0 00733 06305 TXH +3 00000 0 00045
DELFIL.(DATE,TIME,NULL.) 650 LM01180
06306 TSX +0 07400 4 00023 06307 TXH +3 00000 0 00326 06310 TXH +3 00000 0 00774 06311 TXH +3 00000 0 00045
OPEN.(W,DATE,TIME,120K) 651 LM01181
06312 TSX +0 07400 4 00051 06313 TXH +3 00000 0 01012 06314 TXH +3 00000 0 00326 06315 TXH +3 00000 0 00774
06316 TXH +3 00000 0 01044
BUFFER.(DATE,TIME,B4(B4+432)...432) 652 LM01182
06317 CLA +0 50000 0 00272 06320 ADD +0 40000 0 01050 06321 SUB +0 40200 0 06322 06322 TXH +3 00000 0 00272
06323 STA +0 62100 0 06327 06324 TSX +0 07400 4 00012 06325 TXH +3 00000 0 00326 06326 TXH +3 00000 0 00774
06327 TIX +2 01050 0 00000
COPY.(N1,N2,DATE,TIME,B1(B1+432),B2(B2+432),B3(B3+432), 653 LM01183
1 432,IOERR) 653 LM01184
06330 CLA +0 50000 0 00271 06331 ADD +0 40000 0 01050 06332 SUB +0 40200 0 06333 06333 TXH +3 00000 0 00271
06334 STA +0 62100 0 06356 06335 CLA +0 50000 0 00270 06336 ADD +0 40000 0 01050 06337 SUB +0 40200 0 06340
06340 TXH +3 00000 0 00270 06341 STA +0 62100 0 06355 06342 CLA +0 50000 0 00267 06343 ADD +0 40000 0 01050
06344 SUB +0 40200 0 06345 06345 TXH +3 00000 0 00267 06346 STA +0 62100 0 06354 06347 TSX +0 07400 4 00020
06350 TXH +3 00000 0 00132 06351 TXH +3 00000 0 00131 06352 TXH +3 00000 0 00326 06353 TXH +3 00000 0 00774
06354 TXH +3 00000 0 00000 06355 TXH +3 00000 0 00000 06356 TXH +3 00000 0 00000 06357 TXH +3 00000 0 01050
06360 TXH +3 00000 0 00225
CLOSE.(DATE,TIME) 654 LM01185
06361 TSX +0 07400 4 00016 06362 TXH +3 00000 0 00326 06363 TXH +3 00000 0 00774
CLOSE.(N1,N2) 655 LM01186
06364 TSX +0 07400 4 00016 06365 TXH +3 00000 0 00132 06366 TXH +3 00000 0 00131
MODE = 120K 656 LM01187
06367 CLA +0 50000 0 01044 06370 STO +0 60100 0 00123
FSTATE.(N3,N4,TUCARD(1)...2,UPD1) 657 LM01188
06371 TSX +0 07400 4 00032 06372 TXH +3 00000 0 00130 06373 TXH +3 00000 0 00127 06374 TIX +2 01016 0 00165
06375 TXH +3 00000 0 00261
MODE = TUCARD.A.777K 658 LM01189
06376 CAL -0 50000 0 00166 06377 ANA -0 32000 0 01051 06400 SLW +0 60200 0 00123
UPD1 CHFILE.(N3,N4,1,M0,M0,NULL.) 659 LM01190
06401 TSX +0 07400 4 00015 06402 TXH +3 00000 0 00130 06403 TXH +3 00000 0 00127 06404 TXH +3 00000 0 01015
06405 TXH +3 00000 0 00733 06406 TXH +3 00000 0 00733 06407 TXH +3 00000 0 00045
DELFIL.(N3,N4,NULL.) 660 LM01191
06410 TSX +0 07400 4 00023 06411 TXH +3 00000 0 00130 06412 TXH +3 00000 0 00127 06413 TXH +3 00000 0 00045
CHFILE.(DATE,TIME,MODE,N3,N4) 661 LM01192
06414 TSX +0 07400 4 00015 06415 TXH +3 00000 0 00326 06416 TXH +3 00000 0 00774 06417 TXH +3 00000 0 00123
06420 TXH +3 00000 0 00130 06421 TXH +3 00000 0 00127
INT. 662 LM01193
06422 TSX +0 07400 4 00111
E'L 663 LM01194
O'R COMBUF(M) .E. $ WRITE$ 664 LM01212
06423 TRA +0 02000 0 06504 06424 LXA +0 53400 1 00743 06425 CLA +0 50000 1 00324 06426 SUB +0 40200 0 01337
06427 TNZ -0 10000 0 06461
M = M+1 665 LM01213
06430 CLA +0 50000 0 00743 06431 ADD +0 40000 0 01015 06432 STO +0 60100 0 00743
W'R COMBUF(M) .E. HELP 666 LM01214
06433 LXA +0 53400 1 00743 06434 CLA +0 50000 1 00324 06435 SUB +0 40200 0 00727 06436 TNZ -0 10000 0 06450
PRFULL.(ADMIN...2,CURCOM.(0),$ 'LUSER$) 667 LM01215
06437 TSX +0 07400 4 00104 06440 TXH +3 00000 0 01014 06441 STO +0 60100 0 07736 06442 TSX +0 07400 4 00055
06443 TIX +2 01016 0 00264 06444 TXH +3 00000 0 07736 06445 TXH +3 00000 0 01255 06446 TXH +3 00000 0 01244
O'E 668 LM01216
06447 TRA +0 02000 0 06460
GETUSR.(ERR3,ERR4,ERR5) 669 LM01217
06450 TSX +0 07400 4 00107 06451 TXH +3 00000 0 00217 06452 TXH +3 00000 0 00220 06453 TXH +3 00000 0 00221
SETFUL. 670 LM01218
06454 TSX +0 07400 4 00071
WRITE.(USR) 671 LM01219
06455 TSX +0 07400 4 00077 06456 TXH +3 00000 0 01004
SETBCD. 672 LM01220
06457 TSX +0 07400 4 00066
E'L 673 LM01221
O'E 674 LM01225
06460 TRA +0 02000 0 06504
W'R M.E.0 675 LM01226
06461 CLA +0 50000 0 00743 06462 SUB +0 40200 0 01014 06463 TNZ -0 10000 0 06470
M = 1 676 LM01227
06464 CLA +0 50000 0 01015 06465 STO +0 60100 0 00743
T'O USEROK 677 LM01228
06466 TRA +0 02000 0 00262
O'E 678 LM01229
06467 TRA +0 02000 0 06504
PRFULL.($'R'X$,COMBUF(M),$ IS NOT A VALID FUNCTION.'B$) 679 LM01230
06470 CLA +0 50000 0 00743 06471 SUB +0 40200 0 06472 06472 TXH +3 00000 0 00324 06473 STA +0 62100 0 06476
06474 TSX +0 07400 4 00055 06475 TXH +3 00000 0 01115 06476 TXH +3 00000 0 00000 06477 TXH +3 00000 0 01300
06500 TXH +3 00000 0 01356 06501 TXH +3 00000 0 01171 06502 TXH +3 00000 0 01201 06503 TXH +3 00000 0 01163
E'L 680 LM01231
E'L 681 LM01232
OUT RESETF. 682 LM01233
06504 TSX +0 07400 4 00062
ATTACH.(ME(1),ME,EXITM.) 683 LM01234
06505 TSX +0 07400 4 00002 06506 TXH +3 00000 0 00737 06507 TXH +3 00000 0 00740 06510 TXH +3 00000 0 00027
EXITM. 684 LM01235
06511 TSX +0 07400 4 00027
IOERR PRFULA.(RED) 685 LM01249
06512 TSX +0 07400 4 00054 06513 TXH +3 00000 0 00756
PRDIAG. 686 LM01250
06514 TSX +0 07400 4 00053
PRFULA.(BLACK) 687 LM01251
06515 TSX +0 07400 4 00054 06516 TXH +3 00000 0 00275
T'O OUT 688 LM01252
06517 TRA +0 02000 0 00231
ERR0 PRFULL.($'R'1ILLEGAL USAGE.'B$) 689 LM01254
06520 TSX +0 07400 4 00055 06521 TXH +3 00000 0 01106 06522 TXH +3 00000 0 01170 06523 TXH +3 00000 0 01363
06524 TXH +3 00000 0 01103
T'O OUT 690 LM01255
06525 TRA +0 02000 0 00231
ERR1 PRFULL.($'R'1ILLEGAL ARGUMENT: 'X$,COMBUF(M),BLACK) 691 LM01257
06526 CLA +0 50000 0 00743 06527 SUB +0 40200 0 06530 06530 TXH +3 00000 0 00324 06531 STA +0 62100 0 06537
06532 TSX +0 07400 4 00055 06533 TXH +3 00000 0 01106 06534 TXH +3 00000 0 01170 06535 TXH +3 00000 0 01121
06536 TXH +3 00000 0 01215 06537 TXH +3 00000 0 00000 06540 TXH +3 00000 0 00275
T'O OUT 692 LM01258
06541 TRA +0 02000 0 00231
ERR2 PRFULL.($'R'1MISSING ARGUMENT(S)'B$) 693 LM01260
06542 TSX +0 07400 4 00055 06543 TXH +3 00000 0 01112 06544 TXH +3 00000 0 01344 06545 TXH +3 00000 0 01121
06546 TXH +3 00000 0 01216 06547 TXH +3 00000 0 01126
T'O OUT 694 LM01261
06550 TRA +0 02000 0 00231
ERR3 PRFULL.($'R'1MISSING OR ILLEGAL USER SPECIFICATION.'B$) 695 LM01263
06551 TSX +0 07400 4 00055 06552 TXH +3 00000 0 01112 06553 TXH +3 00000 0 01344 06554 TXH +3 00000 0 01222
06555 TXH +3 00000 0 01144 06556 TXH +3 00000 0 01341 06557 TXH +3 00000 0 01141 06560 TXH +3 00000 0 01123
06561 TXH +3 00000 0 01103
T'O OUT 696 LM01264
06562 TRA +0 02000 0 00231
ERR5 PRFULL.($'R'1LINE '8$,BZ57.(DEFBC.(USR)),$ IS EMPTY.'B$) 697 LM01266
06563 TSX +0 07400 4 00021 06564 TXH +3 00000 0 01004 06565 STO +0 60100 0 07736 06566 TSX +0 07400 4 00013
06567 TXH +3 00000 0 07736 06570 STO +0 60100 0 07736 06571 TSX +0 07400 4 00055 06572 TXH +3 00000 0 01111
06573 TXH +3 00000 0 01203 06574 TXH +3 00000 0 07736 06575 TXH +3 00000 0 01277 06576 TXH +3 00000 0 01233
T'O OUT 698 LM01267
06577 TRA +0 02000 0 00231
ERR4 PRFULL.(RED,X,PROB...2,$ IS NOT LOGGED IN.'B$) 699 LM01269
06600 TSX +0 07400 4 00055 06601 TXH +3 00000 0 00756 06602 TXH +3 00000 0 01013 06603 TIX +2 01016 0 00117
06604 TXH +3 00000 0 01300 06605 TXH +3 00000 0 01357 06606 TXH +3 00000 0 01142 06607 TXH +3 00000 0 01103
T'O OUT 700 LM01270
06610 TRA +0 02000 0 00231
ERR6 PRFULL.(RED,LHALF,RHALF,$ NOT OCTAL.'B$) 701 LM01272
06611 TSX +0 07400 4 00055 06612 TXH +3 00000 0 00756 06613 TXH +3 00000 0 00126 06614 TXH +3 00000 0 00125
06615 TXH +3 00000 0 01312 06616 TXH +3 00000 0 01132 06617 TXH +3 00000 0 01126
T'O OUT 702 LM01273
06620 TRA +0 02000 0 00231
ERR7 PRFULL.($'R'1SYSTEM ERROR: FULL RETURN FROM '6ENTLIN.'B$) 703 LM01275
06621 TSX +0 07400 4 00055 06622 TXH +3 00000 0 01113 06623 TXH +3 00000 0 01345 06624 TXH +3 00000 0 01240
06625 TXH +3 00000 0 01153 06626 TXH +3 00000 0 01150 06627 TXH +3 00000 0 01151 06630 TXH +3 00000 0 01070
06631 TXH +3 00000 0 01211
T'O OUT 704 LM01276
06632 TRA +0 02000 0 00231
I'N (CODE) 705 LM01296
06633 TRA +0 02000 0 06706
E'O CHKPRV. 706 LM01297
06634 TRA +0 02000 0 06637 00102 TTR +0 02100 0 06635 06635 SXA +0 63400 2 06671 06636 TSX +0 07400 2 06671
W'R RCODE.A.CODE.E.CODE, F'N 707 LM01298
06637 CAL -0 50000 0 00755 06640 ANA -0 32000 0 00024 06641 SLW +0 60200 0 06705 06642 CLA +0 50000 0 06705
06643 SUB +0 40200 0 00024 06644 TNZ -0 10000 0 06646 06645 TRA +0 02000 0 06701
PRFULL.($'R'1INSUFFICIENT PRIVILEGES. '1NEED AT LEAST '8$, 708 LM01299
1 BZ57.(OCRBC.(CODE)),BLACK) 708 LM01300
06646 TSX +0 07400 4 00050 06647 TXH +3 00000 0 00024 06650 STO +0 60100 0 06705 06651 TSX +0 07400 4 00013
06652 TXH +3 00000 0 06705 06653 STO +0 60100 0 06705 06654 TSX +0 07400 4 00055 06655 TXH +3 00000 0 01107
06656 TXH +3 00000 0 01347 06657 TXH +3 00000 0 01156 06660 TXH +3 00000 0 01235 06661 TXH +3 00000 0 01155
06662 TXH +3 00000 0 01074 06663 TXH +3 00000 0 01263 06664 TXH +3 00000 0 01122 06665 TXH +3 00000 0 06705
06666 TXH +3 00000 0 00275
T'O OUT 709 LM01301
06667 TRA +0 02000 0 00231
E'N 710 LM01302
06670 TSX +0 07400 4 00030 06671 TXH +3 00000 0 00000 06672 SXD -0 63400 1 06671 06673 SXA +0 63400 4 06701
06674 CLA +0 50000 4 00001 06675 STA +0 62100 0 06640 06676 STA +0 62100 0 06643 06677 STO +0 60100 0 06647
06700 TRA +0 02000 2 00001 06701 AXT +0 77400 4 00000 06702 LXA +0 53400 2 06671 06703 LXD -0 53400 1 06671
06704 TRA +0 02000 4 00001
I'N (SYMBOL) 711 LM01310
06706 TRA +0 02000 0 06775
E'O COMMON. 712 LM01311
06707 TRA +0 02000 0 06712 00103 TTR +0 02100 0 06710 06710 SXA +0 63400 2 06760 06711 TSX +0 07400 2 06760
F'N COMLOC.(LJUST.(SYMBOL),COMERR) 713 LM01312
06712 TSX +0 07400 4 00042 06713 TXH +3 00000 0 00024 06714 STO +0 60100 0 06774 06715 TSX +0 07400 4 00017
06716 TXH +3 00000 0 06774 06717 TXH +3 00000 0 00207 06720 TRA +0 02000 0 06770
COMERR PRFULL.($'R'X$,BZ57.(RJUST.(SYMBOL)),$ WAS NOT FOUND.'B$) 714 LM01314
06721 TSX +0 07400 4 00063 06722 TXH +3 00000 0 00024 06723 STO +0 60100 0 06774 06724 TSX +0 07400 4 00013
06725 TXH +3 00000 0 06774 06726 STO +0 60100 0 06774 06727 TSX +0 07400 4 00055 06730 TXH +3 00000 0 01115
06731 TXH +3 00000 0 06774 06732 TXH +3 00000 0 01336 06733 TXH +3 00000 0 01223 06734 TXH +3 00000 0 01202
T'O OUT 715 LM01315
06735 TRA +0 02000 0 00231
E'O ENTRY. 716 LM01323
06736 TRA +0 02000 0 06741 00105 TTR +0 02100 0 06737 06737 SXA +0 63400 2 06760 06740 TSX +0 07400 2 06760
F'N ACORE.(LJUST.(SYMBOL),COMERR).RS.18 717 LM01324
06741 TSX +0 07400 4 00042 06742 TXH +3 00000 0 00024 06743 STO +0 60100 0 06774 06744 TSX +0 07400 4 00000
06745 TXH +3 00000 0 06774 06746 TXH +3 00000 0 00207 06747 STO +0 60100 0 06774 06750 CAL -0 50000 0 01034
06751 STA +0 62100 0 06753 06752 CAL -0 50000 0 06774 06753 LGR -0 76500 0 00000 06754 SLW +0 60200 0 06774
06755 CLA +0 50000 0 06774 06756 TRA +0 02000 0 06770
E'N 718 LM01325
06757 TSX +0 07400 4 00030 06760 TXH +3 00000 0 00000 06761 SXD -0 63400 1 06760 06762 SXA +0 63400 4 06770
06763 CLA +0 50000 4 00001 06764 STO +0 60100 0 06713 06765 STO +0 60100 0 06722 06766 STO +0 60100 0 06742
06767 TRA +0 02000 2 00001 06770 AXT +0 77400 4 00000 06771 LXA +0 53400 2 06760 06772 LXD -0 53400 1 06760
06773 TRA +0 02000 4 00001
I'N CURCOM.(X) = BZ57.(COMBUF(M-1)) 719 LM01332
06775 TRA +0 02000 0 07020 00104 TTR +0 02100 0 06776 06776 SXA +0 63400 2 07010 06777 TSX +0 07400 2 07010
07000 CLA +0 50000 0 00743 07001 SUB +0 40200 0 01015 07002 SUB +0 40200 0 07003 07003 TXH +3 00000 0 00324
07004 STA +0 62100 0 07006 07005 TSX +0 07400 4 00013 07006 TXH +3 00000 0 00000 07007 TRA +0 02000 0 07014
07010 TXH +3 00000 0 00000 07011 SXD -0 63400 1 07010 07012 SXA +0 63400 4 07014 07013 TRA +0 02000 2 00001
07014 AXT +0 77400 4 00000 07015 LXA +0 53400 2 07010 07016 LXD -0 53400 1 07010 07017 TRA +0 02000 4 00001
I'N 720 LM01338
07020 TRA +0 02000 0 07071
E'O INT. 721 LM01339
07021 TRA +0 02000 0 07024 00111 TTR +0 02100 0 07022 07022 SXA +0 63400 2 07057 07023 TSX +0 07400 2 07057
SLOC.(GLOC.(USROPT).A..N.NINTBT,USROPT) 722 LM01340
07024 CAL -0 50000 0 00745 07025 COM +0 76000 0 00006 07026 SLW +0 60200 0 07067 07027 TSX +0 07400 4 00037
07030 TXH +3 00000 0 01003 07031 STO +0 60100 0 07070 07032 CAL -0 50000 0 07070 07033 ANA -0 32000 0 07067
07034 SLW +0 60200 0 07070 07035 TSX +0 07400 4 00072 07036 TXH +3 00000 0 07070 07037 TXH +3 00000 0 01003
F'N 723 LM01341
07040 TRA +0 02000 0 07063
E'O NONINT. 724 LM01347
07041 TRA +0 02000 0 07044 00112 TTR +0 02100 0 07042 07042 SXA +0 63400 2 07057 07043 TSX +0 07400 2 07057
SLOC.(GLOC.(USROPT).V.NINTBT,USROPT) 725 LM01348
07044 TSX +0 07400 4 00037 07045 TXH +3 00000 0 01003 07046 STO +0 60100 0 07070 07047 CAL -0 50000 0 07070
07050 ORA -0 50100 0 00745 07051 SLW +0 60200 0 07070 07052 TSX +0 07400 4 00072 07053 TXH +3 00000 0 07070
07054 TXH +3 00000 0 01003
F'N 726 LM01349
07055 TRA +0 02000 0 07063
E'N 727 LM01350
07056 TSX +0 07400 4 00030 07057 TXH +3 00000 0 00000 07060 SXD -0 63400 1 07057 07061 SXA +0 63400 4 07063
07062 TRA +0 02000 2 00001 07063 AXT +0 77400 4 00000 07064 LXA +0 53400 2 07057 07065 LXD -0 53400 1 07057
07066 TRA +0 02000 4 00001
I'N (NONE,NOTIN,LNMTY) 728 LM01363
07071 TRA +0 02000 0 07320
S'L NONE,NOTIN,LNMTY 729 LM01364
E'O GETUSR. 730 LM01365
07072 TRA +0 02000 0 07075 00107 TTR +0 02100 0 07073 07073 SXA +0 63400 2 07277 07074 TSX +0 07400 2 07277
W'R COMBUF(M).E.FENCE 731 LM01367
07075 LXA +0 53400 1 00743 07076 CLA +0 50000 1 00324 07077 SUB +0 40200 0 00122 07100 TNZ -0 10000 0 07107
USR = USER 732 LM01368
07101 CLA +0 50000 0 01002 07102 STO +0 60100 0 01004
GTUSR.(LNMTY) 733 LM01369
07103 TSX +0 07400 4 00110 07104 TXH +3 00000 0 00024
T'O NONE 734 LM01370
07105 TRA +0 02000 0 00024
O'R ZEL.(COMBUF(M)).A.$$.E.0 735 LM01371
07106 TRA +0 02000 0 07275 07107 CLA +0 50000 0 00743 07110 SUB +0 40200 0 07111 07111 TXH +3 00000 0 00324
07112 STA +0 62100 0 07114 07113 TSX +0 07400 4 00101 07114 TXH +3 00000 0 00000 07115 STO +0 60100 0 07317
07116 CAL -0 50000 0 07317 07117 ANA -0 32000 0 01330 07120 SLW +0 60200 0 07317 07121 CLA +0 50000 0 07317
07122 SUB +0 40200 0 01014 07123 TNZ -0 10000 0 07160
USR = BCDEC.(COMBUF(M)) 736 LM01372
07124 CLA +0 50000 0 00743 07125 SUB +0 40200 0 07126 07126 TXH +3 00000 0 00324 07127 STA +0 62100 0 07131
07130 TSX +0 07400 4 00004 07131 TXH +3 00000 0 00000 07132 STO +0 60100 0 01004
W'R USR.G.N, T'O ERR3 737 LM01373
07133 CLA +0 50000 0 01004 07134 SUB +0 40200 0 00746 07135 TZE +0 10000 0 07140 07136 TMI -0 12000 0 07140
07137 TRA +0 02000 0 00217
W'R USR.E.0 738 LM01374
07140 CLA +0 50000 0 01004 07141 SUB +0 40200 0 01014 07142 TNZ -0 10000 0 07152
PROB = $ BACKG$ 739 LM01375
07143 CLA +0 50000 0 01264 07144 STO +0 60100 0 00117
PROG = $ROUND$ 740 LM01376
07145 CLA +0 50000 0 01236 07146 STO +0 60100 0 00116
NAME = $$ 741 LM01377
07147 CLA +0 50000 0 01330 07150 STO +0 60100 0 00744
O'E 742 LM01378
07151 TRA +0 02000 0 07154
GTUSR.(LNMTY) 743 LM01379
07152 TSX +0 07400 4 00110 07153 TXH +3 00000 0 00024
E'L 744 LM01380
M = M+1 745 LM01381
07154 CLA +0 50000 0 00743 07155 ADD +0 40000 0 01015 07156 STO +0 60100 0 00743
O'R COMBUF(M) .E. STAR 746 LM01382
07157 TRA +0 02000 0 07275 07160 LXA +0 53400 1 00743 07161 CLA +0 50000 1 00324 07162 SUB +0 40200 0 00765
07163 TNZ -0 10000 0 07174
USR = USER 747 LM01383
07164 CLA +0 50000 0 01002 07165 STO +0 60100 0 01004
GTUSR.(LNMTY) 748 LM01384
07166 TSX +0 07400 4 00110 07167 TXH +3 00000 0 00024
M = M+1 749 LM01385
07170 CLA +0 50000 0 00743 07171 ADD +0 40000 0 01015 07172 STO +0 60100 0 00743
O'E 750 LM01386
07173 TRA +0 02000 0 07275
PROB = REPROB.(COMBUF(M)) 751 LM01387
07174 CLA +0 50000 0 00743 07175 SUB +0 40200 0 07176 07176 TXH +3 00000 0 00324 07177 STA +0 62100 0 07201
07200 TSX +0 07400 4 00061 07201 TXH +3 00000 0 00000 07202 STO +0 60100 0 00117
M = M+1 752 LM01388
07203 CLA +0 50000 0 00743 07204 ADD +0 40000 0 01015 07205 STO +0 60100 0 00743
W'R COMBUF(M).E.FENCE, T'O ERR3 753 LM01389
07206 LXA +0 53400 1 00743 07207 CLA +0 50000 1 00324 07210 SUB +0 40200 0 00122 07211 TNZ -0 10000 0 07213
07212 TRA +0 02000 0 00217
PROG = COMBUF(M) 754 LM01390
07213 LXA +0 53400 2 00743 07214 CLA +0 50000 2 00324 07215 STO +0 60100 0 00116
M = M+1 755 LM01391
07216 CLA +0 50000 0 00743 07217 ADD +0 40000 0 01015 07220 STO +0 60100 0 00743
GETPRB. 756 LM01392
07221 TSX +0 07400 4 00106
GTUSR1 T'H GTUSR1, FOR USR = 1,1,USR.G.N .OR. 757 LM01393
1 (PROB.E.PROBN(PROBN+N-USR+1).AND. 757 LM01394
2 PROG.E.PROGN(PROGN+N-USR+1)) 757 LM01395
07222 CLA +0 50000 0 01015 07223 STO +0 60100 0 01004 07224 TRA +0 02000 0 07230 07225 CLA +0 50000 0 01004
07226 ADD +0 40000 0 01015 07227 STO +0 60100 0 01004 07230 CLA +0 50000 0 00753 07231 ADD +0 40000 0 00746
07232 SUB +0 40200 0 01004 07233 ADD +0 40000 0 01015 07234 PAX +0 73400 2 00000 07235 CLA +0 50000 0 00116
07236 SUB +0 40200 2 00753 07237 TNZ -0 10000 0 07250 07240 CLA +0 50000 0 00752 07241 ADD +0 40000 0 00746
07242 SUB +0 40200 0 01004 07243 ADD +0 40000 0 01015 07244 PAX +0 73400 2 00000 07245 CLA +0 50000 0 00117
07246 SUB +0 40200 2 00752 07247 TZE +0 10000 0 07255 07250 CLA +0 50000 0 01004 07251 SUB +0 40200 0 00746
07252 TZE +0 10000 0 07254 07253 TPL +0 12000 0 07255 07254 TRA +0 02000 0 07225
W'R USR.G.N 758 LM01396
07255 CLA +0 50000 0 01004 07256 SUB +0 40200 0 00746 07257 TZE +0 10000 0 07266 07260 TMI -0 12000 0 07266
USR = 0 759 LM01397
07261 CLA +0 50000 0 01014 07262 STO +0 60100 0 01004
NAME = $$ 760 LM01398
07263 CLA +0 50000 0 01330 07264 STO +0 60100 0 00744
T'O NOTIN 761 LM01399
07265 TRA +0 02000 0 00024
E'L 762 LM01400
NAME = GLOC.(COMMON.(UNAME)+USR) 763 LM01401
07266 TSX +0 07400 4 00103 07267 TXH +3 00000 0 00777 07270 ADD +0 40000 0 01004 07271 STO +0 60100 0 07317
07272 TSX +0 07400 4 00037 07273 TXH +3 00000 0 07317 07274 STO +0 60100 0 00744
E'L 764 LM01402
F'N 765 LM01403
07275 TRA +0 02000 0 07313
E'N 766 LM01404
07276 TSX +0 07400 4 00030 07277 TXH +3 00000 0 00000 07300 SXD -0 63400 1 07277 07301 SXA +0 63400 4 07313
07302 CLA +0 50000 4 00001 07303 STA +0 62100 0 07105 07304 CLA +0 50000 4 00002 07305 STA +0 62100 0 07265
07306 CLA +0 50000 4 00003 07307 STO +0 60100 0 07104 07310 STO +0 60100 0 07153 07311 STO +0 60100 0 07167
07312 TRA +0 02000 2 00001 07313 AXT +0 77400 4 00000 07314 LXA +0 53400 2 07277 07315 LXD -0 53400 1 07277
07316 TRA +0 02000 4 00001
I'N (LNMTY) 767 LM01413
07320 TRA +0 02000 0 07375
E'O GTUSR. 768 LM01414
07321 TRA +0 02000 0 07324 00110 TTR +0 02100 0 07322 07322 SXA +0 63400 2 07362 07323 TSX +0 07400 2 07362
PROB = GLOC.(COMMON.($PROBN$)+USR) 769 LM01416
07324 TSX +0 07400 4 00103 07325 TXH +3 00000 0 01231 07326 ADD +0 40000 0 01004 07327 STO +0 60100 0 07374
07330 TSX +0 07400 4 00037 07331 TXH +3 00000 0 07374 07332 STO +0 60100 0 00117
W'R PROB.E.0 770 LM01417
07333 CLA +0 50000 0 00117 07334 SUB +0 40200 0 01014 07335 TNZ -0 10000 0 07342
M = M+1 771 LM01418
07336 CLA +0 50000 0 00743 07337 ADD +0 40000 0 01015 07340 STO +0 60100 0 00743
T'O LNMTY 772 LM01419
07341 TRA +0 02000 0 00024
E'L 773 LM01420
PROG = GLOC.(COMMON.($PROGN$)+USR) 774 LM01421
07342 TSX +0 07400 4 00103 07343 TXH +3 00000 0 01232 07344 ADD +0 40000 0 01004 07345 STO +0 60100 0 07374
07346 TSX +0 07400 4 00037 07347 TXH +3 00000 0 07374 07350 STO +0 60100 0 00116
NAME = GLOC.(COMMON.(UNAME)+USR) 775 LM01422
07351 TSX +0 07400 4 00103 07352 TXH +3 00000 0 00777 07353 ADD +0 40000 0 01004 07354 STO +0 60100 0 07374
07355 TSX +0 07400 4 00037 07356 TXH +3 00000 0 07374 07357 STO +0 60100 0 00744
F'N 776 LM01423
07360 TRA +0 02000 0 07370
E'N 777 LM01424
07361 TSX +0 07400 4 00030 07362 TXH +3 00000 0 00000 07363 SXD -0 63400 1 07362 07364 SXA +0 63400 4 07370
07365 CLA +0 50000 4 00001 07366 STA +0 62100 0 07341 07367 TRA +0 02000 2 00001 07370 AXT +0 77400 4 00000
07371 LXA +0 53400 2 07362 07372 LXD -0 53400 1 07362 07373 TRA +0 02000 4 00001
BOOLEAN PRBSW 778 LM01433
V'S PRBSW = 1B 779 LM01434
00751 +0 00000 0 00001
I'N 780 LM01435
07375 TRA +0 02000 0 07456
E'O GETPRB. 781 LM01436
07376 TRA +0 02000 0 07401 00106 TTR +0 02100 0 07377 07377 SXA +0 63400 2 07445 07400 TSX +0 07400 2 07445
W'R PRBSW 782 LM01438
07401 NZT -0 52000 0 00751 07402 TRA +0 02000 0 07413
PRBSW = 0B 783 LM01439
07403 CLA +0 50000 0 01014 07404 STO +0 60100 0 00751
GETBUF.(PROBN,N) 784 LM01440
07405 TSX +0 07400 4 00035 07406 TXH +3 00000 0 00752 07407 TXH +3 00000 0 00746
GETBUF.(PROGN,N) 785 LM01441
07410 TSX +0 07400 4 00035 07411 TXH +3 00000 0 00753 07412 TXH +3 00000 0 00746
E'L 786 LM01442
GETARY.(COMMON.($PROBN$)+1,PROBN(PROBN+N)...N) 787 LM01443
07413 CLA +0 50000 0 00752 07414 ADD +0 40000 0 00746 07415 SUB +0 40200 0 07416 07416 TXH +3 00000 0 00752
07417 STA +0 62100 0 07426 07420 TSX +0 07400 4 00103 07421 TXH +3 00000 0 01231 07422 ADD +0 40000 0 01015
07423 STO +0 60100 0 07455 07424 TSX +0 07400 4 00034 07425 TXH +3 00000 0 07455 07426 TIX +2 00746 0 00000
GETARY.(COMMON.($PROGN$)+1,PROGN(PROGN+N)...N) 788 LM01444
07427 CLA +0 50000 0 00753 07430 ADD +0 40000 0 00746 07431 SUB +0 40200 0 07432 07432 TXH +3 00000 0 00753
07433 STA +0 62100 0 07442 07434 TSX +0 07400 4 00103 07435 TXH +3 00000 0 01232 07436 ADD +0 40000 0 01015
07437 STO +0 60100 0 07455 07440 TSX +0 07400 4 00034 07441 TXH +3 00000 0 07455 07442 TIX +2 00746 0 00000
F'N 789 LM01445
07443 TRA +0 02000 0 07451
E'N 790 LM01446
07444 TSX +0 07400 4 00030 07445 TXH +3 00000 0 00000 07446 SXD -0 63400 1 07445 07447 SXA +0 63400 4 07451
07450 TRA +0 02000 2 00001 07451 AXT +0 77400 4 00000 07452 LXA +0 53400 2 07445 07453 LXD -0 53400 1 07445
07454 TRA +0 02000 4 00001
BOOLEAN FRSTSW 791 LM01454
V'S FRSTSW = 1B 792 LM01455
00725 +0 00000 0 00001
I'N (PRB,PRG,COUNT,EOF) 793 LM01456
07456 TRA +0 02000 0 07621
S'L EOF 794 LM01457
E'O READTU. 795 LM01458
07457 TRA +0 02000 0 07462 00113 TTR +0 02100 0 07460 07460 SXA +0 63400 2 07601 07461 TSX +0 07400 2 07601
W'R FRSTSW 796 LM01459
07462 NZT -0 52000 0 00725 07463 TRA +0 02000 0 07535
FRSTSW = 0B 797 LM01460
07464 CLA +0 50000 0 01014 07465 STO +0 60100 0 00725
GETBUF.(B1,432) 798 LM01461
07466 TSX +0 07400 4 00035 07467 TXH +3 00000 0 00267 07470 TXH +3 00000 0 01050
GETBUF.(B2,432) 799 LM01462
07471 TSX +0 07400 4 00035 07472 TXH +3 00000 0 00270 07473 TXH +3 00000 0 01050
GETBUF.(B3,432) 800 LM01463
07474 TSX +0 07400 4 00035 07475 TXH +3 00000 0 00271 07476 TXH +3 00000 0 01050
BFOPEN.(STATUS,TU,TA,B1(B1+432),B2(B2+432),M0,IOERR) 801 LM01464
07477 CLA +0 50000 0 00270 07500 ADD +0 40000 0 01050 07501 SUB +0 40200 0 07502 07502 TXH +3 00000 0 00270
07503 STA +0 62100 0 07516 07504 CLA +0 50000 0 00267 07505 ADD +0 40000 0 01050 07506 SUB +0 40200 0 07507
07507 TXH +3 00000 0 00267 07510 STA +0 62100 0 07515 07511 TSX +0 07400 4 00007 07512 TXH +3 00000 0 00766
07513 TXH +3 00000 0 00776 07514 TXH +3 00000 0 00771 07515 TXH +3 00000 0 00000 07516 TXH +3 00000 0 00000
07517 TXH +3 00000 0 00733 07520 TXH +3 00000 0 00225
BUFFER.(TU,TA,B3(B3+432)...432) 802 LM01465
07521 CLA +0 50000 0 00271 07522 ADD +0 40000 0 01050 07523 SUB +0 40200 0 07524 07524 TXH +3 00000 0 00271
07525 STA +0 62100 0 07531 07526 TSX +0 07400 4 00012 07527 TXH +3 00000 0 00776 07530 TXH +3 00000 0 00771
07531 TIX +2 01050 0 00000
RELLOC = 1 803 LM01466
07532 CLA +0 50000 0 01015 07533 STO +0 60100 0 00757
O'E 804 LM01467
07534 TRA +0 02000 0 07540
RDTU1 RELLOC = RELLOC + 28 805 LM01468
07535 CLA +0 50000 0 00757 07536 ADD +0 40000 0 01037 07537 STO +0 60100 0 00757
E'L 806 LM01469
BFREAD.(TU,TA,TUCARD(27)...28,BEOF,M0,IOERR) 807 LM01470
07540 TSX +0 07400 4 00010 07541 TXH +3 00000 0 00776 07542 TXH +3 00000 0 00771 07543 TIX +2 01037 0 00133
07544 TXH +3 00000 0 00206 07545 TXH +3 00000 0 00733 07546 TXH +3 00000 0 00225
T'H RDTU2, FOR I = 0,1,I.G.COUNT 808 LM01471
07547 CLA +0 50000 0 01014 07550 STO +0 60100 0 00730 07551 TRA +0 02000 0 07555 07552 CLA +0 50000 0 00730
07553 ADD +0 40000 0 01015 07554 STO +0 60100 0 00730 07555 CLA +0 50000 0 00730 07556 SUB +0 40200 0 00024
07557 TZE +0 10000 0 07561 07560 TPL +0 12000 0 07572
RDTU2 W'R PRB(I).E.TUCARD(27) .AND. PRG(I).E.TUCARD(26), F'N 809 LM01472
07561 LXA +0 53400 1 00730 07562 CLA +0 50000 1 00024 07563 SUB +0 40200 0 00134 07564 TNZ -0 10000 0 07571
07565 CLA +0 50000 1 00024 07566 SUB +0 40200 0 00133 07567 TNZ -0 10000 0 07571 07570 TRA +0 02000 0 07615
07571 TRA +0 02000 0 07552
T'O RDTU1 810 LM01473
07572 TRA +0 02000 0 00240
BEOF BFCLOS.(TU,TA,IOERR) 811 LM01475
07573 TSX +0 07400 4 00006 07574 TXH +3 00000 0 00776 07575 TXH +3 00000 0 00771 07576 TXH +3 00000 0 00225
T'O EOF 812 LM01476
07577 TRA +0 02000 0 00024
E'N 813 LM01478
07600 TSX +0 07400 4 00030 07601 TXH +3 00000 0 00000 07602 SXD -0 63400 1 07601 07603 SXA +0 63400 4 07615
07604 CLA +0 50000 4 00001 07605 STA +0 62100 0 07565 07606 CLA +0 50000 4 00002 07607 STA +0 62100 0 07562
07610 CLA +0 50000 4 00003 07611 STA +0 62100 0 07556 07612 CLA +0 50000 4 00004 07613 STA +0 62100 0 07577
07614 TRA +0 02000 2 00001 07615 AXT +0 77400 4 00000 07616 LXA +0 53400 2 07601 07617 LXD -0 53400 1 07601
07620 TRA +0 02000 4 00001
I'N 814 LM01486
07621 TRA +0 02000 0 07731
E'O UPSHFT. 815 LM01487
07622 TRA +0 02000 0 07625 00114 TTR +0 02100 0 07623 07623 SXA +0 63400 2 07717 07624 TSX +0 07400 2 07717
T'H UPS1, FOR J = 0,1,J.G.4 816 LM01488
07625 CLA +0 50000 0 01014 07626 STO +0 60100 0 00731 07627 TRA +0 02000 0 07633 07630 CLA +0 50000 0 00731
07631 ADD +0 40000 0 01015 07632 STO +0 60100 0 00731 07633 CLA +0 50000 0 00731 07634 SUB +0 40200 0 01020
07635 TZE +0 10000 0 07637 07636 TPL +0 12000 0 07710
W'R TUCARD(27).NE.$ C0056$, TUCARD(9-J) = 0 817 LM01489
07637 CLA +0 50000 0 00133 07640 SUB +0 40200 0 01266 07641 TZE +0 10000 0 07647 07642 CLA +0 50000 0 01025
07643 SUB +0 40200 0 00731 07644 PAX +0 73400 1 00000 07645 CLA +0 50000 0 01014 07646 STO +0 60100 1 00166
TUCARD(9-J) = DEFBC.( B5(B5+J*LEN+I).A.17777777K/60 + 818 LM01490
1 BCDEC.(TUCARD(9-J))) 818 LM01491
07647 CLA +0 50000 0 01025 07650 SUB +0 40200 0 00731 07651 SUB +0 40200 0 07652 07652 TXH +3 00000 0 00166
07653 STA +0 62100 0 07655 07654 TSX +0 07400 4 00004 07655 TXH +3 00000 0 00000 07656 STO +0 60100 0 07727
07657 LDQ +0 56000 0 00731 07660 MPY +0 20000 0 00123 07661 XCA +0 13100 0 00000 07662 ADD +0 40000 0 00273
07663 ADD +0 40000 0 00730 07664 PAX +0 73400 1 00000 07665 CAL -0 50000 1 00273 07666 ANA -0 32000 0 01061
07667 SLW +0 60200 0 07730 07670 LDQ +0 56000 0 07730 07671 PXD -0 75400 0 00000 07672 LLS +0 76300 0 00000
07673 DVP +0 22100 0 01040 07674 XCA +0 13100 0 00000 07675 ADD +0 40000 0 07727 07676 STO +0 60100 0 07730
07677 TSX +0 07400 4 00021 07700 TXH +3 00000 0 07730 07701 STO +0 60100 0 07730 07702 CLA +0 50000 0 01025
07703 SUB +0 40200 0 00731 07704 PAX +0 73400 1 00000 07705 CLA +0 50000 0 07730 07706 STO +0 60100 1 00166
UPS1 C'E 819 LM01492
07707 TRA +0 02000 0 07630
PROBN(PROBN+I) = 0 820 LM01493
07710 CLA +0 50000 0 00752 07711 ADD +0 40000 0 00730 07712 PAX +0 73400 1 00000 07713 CLA +0 50000 0 01014
07714 STO +0 60100 1 00752
F'N 821 LM01494
07715 TRA +0 02000 0 07723
E'N 822 LM01495
07716 TSX +0 07400 4 00030 07717 TXH +3 00000 0 00000 07720 SXD -0 63400 1 07717 07721 SXA +0 63400 4 07723
07722 TRA +0 02000 2 00001 07723 AXT +0 77400 4 00000 07724 LXA +0 53400 2 07717 07725 LXD -0 53400 1 07717
07726 TRA +0 02000 4 00001
E'M 823 LM01499
07731 TSX +0 07400 4 00030
1 ADMIN UTILITY PACKAGE D.A. ANDERSON 04/26/69 04/26/69 2215.2 PAGE 1
00016 ENTRY WRITE TO WRITE AT A USER
00063 ENTRY PCTL SET CONSOLE OUTPUT DESTINATION
00107 ENTRY SETBCD KEEP TRACK OF CONSOLE MODE
00111 ENTRY SETFUL DITTO
00113 ENTRY WRFLX DIVERT CONSOLE OUTPUT
00121 ENTRY WRFLXA DITTO
00164 ENTRY PRNTON PRINT A MESSAGE ONLINE
EXTERN COMLOC,SETLOC,RSSWB,RDFLXA
EXTERN FSTATE,GETMEM,SETMEM,OPEN,RDFILE,CLOSE,WHOAMI,PRINT
M CALL MACRO NAME,LIST
TSX NAME,4
IRP LIST
PAR LIST
IRP
CALL END
1 ADMIN UTILITY PACKAGE D.A. ANDERSON 04/26/69 04/26/69 2215.2 PAGE 2
WRITE
TRANSFER VECTOR
00000 234644434623 COMLOC
00001 622563434623 SETLOC
00002 516262662260 RSSWB
00003 512426436721 RDFLXA
00004 266263216325 FSTATE
00005 272563442544 GETMEM
00006 622563442544 SETMEM
00007 464725456060 OPEN
00010 512426314325 RDFILE
00011 234346622560 CLOSE
00012 663046214431 WHOAMI
00013 475131456360 PRINT
LINKAGE DIRECTOR
00014 000000000000
00015 665131632560
00016 0634 00 4 00053 WRITE SXA WX4,4 WRITE AT A USER
00017 -0500 60 4 00001 CAL* 1,4 WHO IS HE
00020 0602 00 0 01031 SLW USER
00021 0074 00 4 00124 TSX .WRFXA,4 ASK FOR A MESSAGE
00022 -1 00004 0 00055 MON TYPE,,TYPEL (FORCE 12-BIT MODE)
00023 -0500 00 0 00061 CAL MZE FORCE OUTPUT IN SIX-BIT MODE
00024 0520 00 0 01032 ZET FULL UNLESS WE READ IT IN FULL MODE
00025 -0500 00 0 00062 CAL MON ..
00026 0630 00 0 00040 STP WRTIT ..
00027 0074 00 4 00756 TSX RDFLXX,4 WAIT AND READ MESSAGE
00030 0 00016 0 01033 PZE BUFF,,14 ..
00031 -0320 00 0 01130 ANA =O40000 BIT ON IF NOT DONE
00032 0602 00 0 01051 SLW DONE SAVE FOR END TEST
00033 0074 00 4 00002 TSX RSSWB,4 FLUSH ANY BUFFERED OUTPUT
00034 3 00000 0 01031 PAR USER FOR TARGET USER
00035 -0520 00 0 01051 WRLP NZT DONE IS THIS THE LAST
00036 0020 00 0 00046 TRA WRLST YES.
00037 0074 00 4 00124 TSX .WRFXA,4 WRITE AT HIM
00040 0 00016 0 01033 WRTIT *** BUFF,,14 ..
00041 0 00000 0 01031 PZE USER ..
00042 0074 00 4 00756 TSX RDFLXX,4 READ NEXT INSTALLMENT
00043 0 00016 0 01033 BUFF,,14 ..
00044 -0320 00 0 01130 ANA =O40000 ..
00045 -0100 00 0 00035 TNZ WRLP LOOP UNTIL DONE
00046 -0500 00 0 00040 WRLST CAL WRTIT GET OUTPUT MODE
00047 0630 00 0 00051 STP *+2 INTO THIS CALL
00050 0074 00 4 00116 TSX .WRFX,4 WRITE LAST CHUNK
00051 0 00016 0 01033 *** BUFF,,14 ..
00052 0 00000 0 01031 PZE USER ..
00053 0774 00 4 00000 WX4 AXT **,4 RESTORE
00054 0020 00 4 00002 TRA 2,4 AND RETURN
1 ADMIN UTILITY PACKAGE D.A. ANDERSON 04/26/69 04/26/69 2215.2 PAGE 3
WRITE
00055 +013300570057 TYPE OCT 013300570057 RED SHIFT
00056 006301700147 12BIT /*TYPE: /
00057 012500350060
00060 +013200570057 OCT 013200570057 BLACK SHIFT
00004 TYPEL EQU *-TYPE
00061 -0 00000 0 00000 MZE MZE
00062 -1 00000 0 00000 MON MON
1 ADMIN UTILITY PACKAGE D.A. ANDERSON 04/26/69 04/26/69 2215.2 PAGE 4
PCTL - PRINT CONTROL
00063 0634 00 4 00105 PCTL SXA LX4,4 SET CONSOLE OUTPUT DESTINATION
00064 -0500 60 4 00001 CAL* 1,4 GET NEW FLAG
00065 -0625 00 0 01052 STL CON ASSUME ON FOR CONCOLE
00066 -0625 00 0 01053 STL PRT AND PRINTER
00067 0760 00 0 00001 LBT CHECK ASSUMPTIONS
00070 0600 00 0 01052 STZ CON FLUSH CONSOLE
00071 0771 00 0 00001 ARS 1 GET ON-LINE BIT
00072 0760 00 0 00001 LBT ..
00073 0600 00 0 01053 STZ PRT THAT NEITHER
00074 0520 00 0 01053 ZET PRT IS THE PRINTER ON
00075 0020 00 0 00105 TRA LX4 YES, EXIT
00076 0534 00 4 00712 LXA OUTLEN,4 NO, CLOSE ANY PARTIAL LINE
00077 -3 00000 4 00105 TXL LX4,4,0 WEREN'T NONE
00100 0074 00 4 00717 TSX SAVE,4 SAVE REGISTERS
00101 0074 00 7 00710 TSX RST,7 RESTORE POINTERS
00102 0074 00 7 00650 TSX PR,7 PRINT LINE
00103 0074 00 7 00714 TSX SAV,7 SAVE NEW POINTERS
00104 0074 00 4 00737 TSX RESTOR,4 RESTORE REGISTERS
00105 0774 00 4 00000 LX4 AXT **,4 ..
00106 0020 00 4 00002 TRA 2,4 RETURN
00107 0600 00 0 01032 SETBCD STZ FULL KEEP TRACK
00110 0101 00 0 01140 TIA =HSETBCD ..
00111 -0625 00 0 01032 SETFUL STL FULL DITTO
00112 0101 00 0 01141 TIA =HSETFUL ..
1 ADMIN UTILITY PACKAGE D.A. ANDERSON 04/26/69 04/26/69 2215.2 PAGE 5
WRFLX AND WRFLXA WRITE AROUNDS
00113 -0520 00 0 01053 WRFLX NZT PRT IF PRINTING ONLY
00114 -0520 00 0 01052 NZT CON ON THE USER'S CONSOLE,
00115 0020 00 0 00117 TRA *+2 ..
00116 0101 00 0 01143 .WRFX TIA =HWRFLX DO IT RIGHT AWAY
00117 -0625 00 0 01054 STL EXTRA REMEMBER THE CR
00120 0020 00 0 00126 TRA JOIN ..
00121 -0520 00 0 01053 WRFLXA NZT PRT SAME HERE
00122 -0520 00 0 01052 NZT CON ..
00123 0020 00 0 00125 TRA *+2 ..
00124 0101 00 0 01142 .WRFXA TIA =HWRFLXA ..
00125 0600 00 0 01054 STZ EXTRA NO CR
00126 -0520 00 0 01053 JOIN NZT PRT SHOULD WE PRINT ON-LINE
00127 0020 00 0 00146 TRA CON.Q NO, CHECK FOR CONSOLE
00130 0634 00 4 00145 SXA JX4,4 SAVE RETURN
00131 0560 00 0 01032 LDQ FULL LINE IS 12-BIT IF FULL .NE. 0
00132 0500 00 4 00001 CLA 1,4 UNLESS 1,4 IS NEGATIVE
00133 0602 00 0 00144 SLW JP ..
00134 0120 00 0 00142 TPL *+6 ..
00135 0771 00 0 00017 ARS 15 GET PREFIX
00136 -0734 00 4 00000 PDX ,4 ..
00137 3 00001 4 00142 TXH *+3,4,1 IS IT MEANINGFUL
00140 0754 00 4 00000 PXA ,4 YES, USE IT FOR FLAG
00141 0131 00 0 00000 XCA ..
00142 -0600 00 0 01055 STQ 12BIT ..
00143 0074 00 4 00463 TSX PRNT,4 PRINT THE LINE
00144 0 00000 0 00000 JP **,,** ..
00145 0774 00 4 00000 JX4 AXT **,4 RESTORE RETURN
00146 -0520 00 0 01052 CON.Q NZT CON PRINT ON THE CONSOLE
00147 0020 00 0 00153 TRA SKIPCS NO, SKIP OVER CALLING SEQ.
00150 -0520 00 0 01054 NZT EXTRA YES, WHICH CALL WAS THIS
00151 0101 00 0 01142 TIA =HWRFLXA ..
00152 0101 00 0 01143 TIA =HWRFLX ..
00153 0604 00 0 01056 SKIPCS STI SI SAVE TEMPS
00154 0441 00 4 00002 LDI 2,4 IS 'USER' SPECIFIED
00155 -0625 00 0 01054 STL EXTRA ASSUME YES
00156 0444 00 0 01134 OFT =O477777700000 ..
00157 0600 00 0 01054 STZ EXTRA NOPE
00160 0441 00 0 01056 LDI SI RESTORE
00161 -0520 00 0 01054 NZT EXTRA RETURN AFTER CALLING SEQ.
00162 0020 00 4 00002 TRA 2,4 ..
00163 0020 00 4 00003 TRA 3,4 ..
1 ADMIN UTILITY PACKAGE D.A. ANDERSON 04/26/69 04/26/69 2215.2 PAGE 6
PRNTON - PRINT ONLINE
************************************************************************
****************** FROM M1416 5886 ON 800280 *****************
************************************************************************
00164 0634 00 4 00427 PRNTON SXA PRT4,4 PRINT ON THE ON-LINE PRINTER
00165 0634 00 1 00426 SXA PRT1,1 ..
00166 -0500 60 4 00001 CAL* 1,4 GET POSSIBLE NAME1 OF FILE
00167 0602 00 0 01061 SLW N1 ..
00170 0322 00 0 01063 ERA FENCE CHECK FOR END OF ARGUMENT STRING
00171 0602 00 0 01064 SLW CONFL ..
00172 0100 00 0 00254 TZE CONIN INPUT FROM CONSOLE IF NO NAME
00173 -0500 60 4 00002 CAL* 2,4 ..
00174 0602 00 0 01062 SLW N2 GRAB NAME2
00175 CALL FSTATE(N1,N2(TEMP,,1)) GET FILE LENGTH
00201 -0520 00 0 01030 NZT TEMP IF LENGTH ZERO,
00202 0020 00 0 00431 TRA NOMESS NO INPUT.
00203 0074 00 4 00005 TSX GETMEM,4 GET BEGINNING OF BUFFER
00204 0621 00 0 00372 STA INPUT SAVE FOR LATER
00205 0621 00 0 00224 STA R AND FOR FILE READ
00206 0400 00 0 01030 ADD TEMP EXTEND AS NECESSARY
00207 0737 00 4 00000 PAC ,4 ..
00210 -0634 00 4 00240 SXD END.Q,4 INSERT IN END TESTS
00211 -0634 00 4 00374 SXD FINISQ,4 ..
00212 0400 00 0 01124 ADD =14 JUST IN CASE
00213 0074 00 4 00006 TSX SETMEM,4 SET NEW MEMORY BOUND
00214 CALL OPEN(=HR,N1,N2)
00220 CALL RDFILE(N1,N2,=0) GULP
00224 2 01030 0 00000 R BLK **,,TEMP ..
00225 CALL CLOSE(N1,N2)
00230 0535 00 1 00372 LAC INPUT,1 CHECK FOR AND REFORMAT CARD IMAGE RECORDS
00231 0441 00 1 00000 FL LDI 0,1 CHECK FIRST WORD OF EACH RECORD
00232 -0056 00 777777 LNT / IS IT A LINEMARK
00233 0020 00 0 00242 TRA CARD NO, MUST BE CARDIMAGE RECORD
00234 0756 00 1 00000 PCA ,1 YES
00235 0401 00 1 00000 ADM 0,1 MOVE TO NEXT RECORD
00236 0737 00 1 00000 PAC ,1 ..
00237 1 77777 1 00240 TXI *+1,1,-1 SKIP LINEMARK TOO
00240 3 00000 1 00231 END.Q TXH FL,1,** LOOP UNTIL OUT OF INPUT
00241 0020 00 0 00323 TRA PHEAD THEN GO PRINT
00242 0774 00 4 00014 CARD AXT 12,4 CARD-IMAGE, PRINT 12 WORDS
00243 -0500 00 0 01123 CAL =13 SET RECORD LENGTH TO 13
00244 0560 00 1 00000 LDQ 0,1 MOVE RECORD DOWN
00245 0601 00 1 00000 STO 0,1 TO MAKE ROOM FOR CONTROL WORD
00246 0131 00 0 00000 XCA ..
00247 1 77777 1 00250 TXI *+1,1,-1 ..
00250 2 00001 4 00244 TIX *-4,4,1 LOOP FOR 12 WORDS
00251 0560 00 0 01137 LDQ =H BLANK OUT LAST WORD
00252 -0603 00 1 00000 DST 0,1 ..
00253 1 77776 1 00240 TXI END.Q,1,-2 LOOK AT NEXT
1 ADMIN UTILITY PACKAGE D.A. ANDERSON 04/26/69 04/26/69 2215.2 PAGE 7
PRNTON - PRINT ONLINE
00254 0074 00 4 00005 CONIN TSX GETMEM,4 GET BASE ADDRESS FOR INPUT
00255 0621 00 0 00372 STA INPUT SAVE FOR PRINTING
00256 0737 00 1 00000 PAC ,1 REMEMBER FOR READING
00257 0400 00 0 01127 ADD =100 MAKE SOME ROOM
00260 0737 00 4 00000 PAC ,4 ..
00261 -0634 00 4 00270 SXD XTND.Q,4 INSERT IN END TEST
00262 0074 00 4 00006 TSX SETMEM,4 SET IT
00263 0074 00 4 00124 INL TSX .WRFXA,4 ASK FOR INPUT
00264 -1 00004 0 00055 MON TYPE,,TYPEL ..
00265 1 77777 1 00266 TXI *+1,1,-1 BUMP POINTER
00266 0636 00 1 00272 SCA CONPTR,1 AND INSERT IN CALL
00267 1 77727 1 00270 TXI *+1,1,-41 TEST FOR POSSIBLE P.M.V.
00270 -3 00000 1 00312 XTND.Q TXL XTND,1,** YES, EXTEND MEMORY BOUND
00271 0074 00 4 00756 XTND.R TSX RDFLXX,4 READ NEXT LINE
00272 0 00051 0 00000 CONPTR **,,41 ..
00273 0734 00 4 00000 PAX ,4 PLAY WITH COUNT
00274 -3 00000 4 00320 TXL CONEND,4,0 DONE IF JUST CR
00275 3 37777 4 00277 TXH *+2,4,16383 IGNORE PARTIAL FLAG
00276 1 00005 4 00300 TXI *+2,4,5 MAKE DIVIDE WORK
00277 0774 00 4 00366 AXT 6*41,4 ..
00300 0754 00 4 00000 PXA ,4 ..
00301 -0130 00 0 00000 XCL ..
00302 -0754 00 0 00000 ZAC GET NUMBER OF FULL WORDS
00303 0221 00 0 01121 DVP =6 ..
00304 -0130 00 0 00000 XCL ..
00305 0535 00 1 00272 LAC CONPTR,1 GET CONTROL WORD LOC'N
00306 0602 00 1 77777 SLW -1,1 ..
00307 0401 00 0 00272 ADM CONPTR GET NEW NEXT LOCATION
00310 0737 00 1 00000 PAC ,1 ..
00311 0020 00 0 00263 TRA INL GO FOR NEXT LINE
00312 0074 00 4 00005 XTND TSX GETMEM,4 EXTEND MEMORY BOUND
00313 0400 00 0 01127 ADD =100
00314 0737 00 4 00000 PAC ,4
00315 -0634 00 4 00270 SXD XTND.Q,4
00316 0074 00 4 00006 TSX SETMEM,4
00317 0020 00 0 00271 TRA XTND.R
00320 0535 00 1 00272 CONEND LAC CONPTR,1 GET LAST LOCATION USED
00321 1 00001 1 00322 TXI *+1,1,1 ..
00322 -0634 00 1 00374 SXD FINISQ,1 AND SAVE FOR END TEST
00323 -0534 00 4 00374 PHEAD LXD FINISQ,4 HAVE WE ANY INPUT
00324 0756 00 4 00000 PCA ,4 ..
00325 0322 00 0 00372 ERA INPUT NOT IF BEGINNING AND
00326 -0320 00 0 01131 ANA =O77777 END ARE THE SAME
00327 0100 00 0 00431 TZE NOMESS ..
00330 CALL WHOAMI((ME,,4)) SET UP HEADER
00332 -0500 00 0 01136 CAL =H ON
00333 0602 00 0 00455 SLW ME+2
00334 -0500 00 0 00456 CAL ME+3
00335 0560 00 0 00457 LDQ ME+4
00336 -0765 00 0 00022 LGR 18
1 ADMIN UTILITY PACKAGE D.A. ANDERSON 04/26/69 04/26/69 2215.2 PAGE 8
PRNTON - PRINT ONLINE
00337 -0600 00 0 00457 STQ ME+4
00340 -0500 00 0 00455 CAL ME+2
00341 0560 00 0 00456 LDQ ME+3
00342 -0765 00 0 00022 LGR 18
00343 -0600 00 0 00456 STQ ME+3
00344 -0500 00 0 00454 CAL ME+1
00345 0560 00 0 00455 LDQ ME+2
00346 -0765 00 0 00022 LGR 18
00347 -0600 00 0 00455 STQ ME+2
00350 -0500 00 0 00453 CAL ME
00351 0560 00 0 00454 LDQ ME+1
00352 -0765 00 0 00022 LGR 18
00353 -0600 00 0 00454 STQ ME+1
00354 -0501 00 0 01133 ORA =HOM 000
00355 0602 00 0 00453 SLW ME
00356 0074 00 4 00013 TSX PRINT,4 AND PRINT IT
00357 2 00014 0 00436 PTW STARS,,12
00360 0074 00 4 00013 TSX PRINT,4
00361 0 00014 0 00447 ID,,12
00362 0074 00 4 00013 TSX PRINT,4
00363 0 00014 0 00436 STARS,,12
00364 0074 00 4 00013 TSX PRINT,4
00365 0 00001 0 01137 =H ,,1
00366 0520 00 0 01064 ZET CONFL IS THIS FROM THE CONSOLE
00367 0020 00 0 00372 TRA *+3 NO
00370 -0500 00 0 01032 CAL FULL YES, 12-BIT IF
00371 0602 00 0 01055 SLW 12BIT FULL IS SET
00372 -0774 00 1 00000 INPUT AXC **,1 SET STARTING LOCATION
00373 -0625 00 0 01054 STL EXTRA APPEND CR'S
00374 -3 00000 1 00424 FINISQ TXL OUT,1,** ARE WE DONE YET
00375 -0500 00 1 00000 CAL 0,1 GET NEXT CONTROL WORD
00376 1 77777 1 00377 TXI *+1,1,-1 AND SET START LOC'N OF LINE
00377 0636 00 1 00416 SCA PRTL,1 ..
00400 0767 00 0 00022 ALS 18 SET LINE LENGTH FROM CONTROL WORD
00401 0622 00 0 00416 STD PRTL ..
00402 -0520 00 0 01064 NZT CONFL IS MODE KNOWN
00403 0020 00 0 00415 TRA PRNTIT YES, SKIP
00404 -0734 00 4 00000 PDX ,4 NO, DEFINE
00405 -0754 00 0 00000 ZAC ..
00406 -0501 00 1 00000 ORA 0,1 COMBINE ALL WORDS OF LINE
00407 1 77777 1 00410 TXI *+1,1,-1 ..
00410 2 00001 4 00406 TIX *-2,4,1 ..
00411 0044 00 0 00000 PAI ..
00412 -0625 00 0 01055 STL 12BIT ASSUME FULL-MODE
00413 0444 00 0 01144 OFT =O720072007200 IF ALL OFF,
00414 0600 00 0 01055 STZ 12BIT MUST HAVE BEEN SIXBIT
00415 0074 00 4 00463 PRNTIT TSX PRNT,4 CALL HAIRY PRINT ROUTINE
00416 0 00000 0 00000 PRTL **,,** ..
00417 -0500 00 0 00416 CAL PRTL COMPUTE LOCATION OF NEXT LINE
00420 0771 00 0 00022 ARS 18 ..
1 ADMIN UTILITY PACKAGE D.A. ANDERSON 04/26/69 04/26/69 2215.2 PAGE 9
PRNTON - PRINT ONLINE
00421 0401 00 0 00416 ADM PRTL ..
00422 0737 00 1 00000 PAC ,1 ..
00423 0020 00 0 00374 TRA FINISQ CHECK FOR DONE
00424 0074 00 4 00013 OUT TSX PRINT,4 ALL DONE, SIGN OFF.
00425 2 00002 0 00434 PTW THANKS,,2 ..
00426 0774 00 1 00000 PRT1 AXT **,1 RESTORE
00427 0774 00 4 00000 PRT4 AXT **,4 ..
00430 0020 00 4 00003 TRA 3,4 ..
00431 0074 00 4 00116 NOMESS TSX .WRFX,4 NO INPUT, GRIPE.
00432 -0 00003 0 01065 MZE NOINP,,NOINPL ..
00433 0020 00 0 00426 TRA PRT1
00434 606330214542 THANKS BCI / THANK YOU./
00435 607046643357
00436 STARS DUP 1,9
00436 545454545454 BCI /******/
00437 545454545454
00440 545454545454
00441 545454545454
00442 545454545454
00443 545454545454
00444 545454545454
00445 545454545454
00446 545454545454
00447 ID DUP 1,3
00447 545454545454 BCI /******/
00450 545454545454
00451 545454545454
00452 606060602651 BCI 1, FROM
00453 606060604401 ME BCI 4, M1416 5886 ON 800280
00454 040106606005
00455 101006606046
00456 456060100000
00457 606060606060 BCI 4, *****************
00460 605454545454
00461 545454545454
00462 545454545454
1 ADMIN UTILITY PACKAGE D.A. ANDERSON 04/26/69 04/26/69 2215.2 PAGE 10
PRNT - PRINT ONLINE INTERNAL SUBROUTINE
00463 0634 00 4 00706 PRNT SXA PX4,4 PRINT ONLINE
00464 -0500 00 4 00001 CAL 1,4 FIND LINE
00465 0771 00 0 00022 ARS 18 ..
00466 0621 00 0 00501 STA INLEN SAVE LENGTH
00467 0401 00 4 00001 ADM 1,4 ..
00470 0621 00 0 00566 STA INPLOC AND LOCATION
00471 0074 00 4 00717 TSX SAVE,4 SAVE THE WORLD
00472 -0500 00 0 01070 CAL SIXCON GET CONSTANTS FOR 6-BIT MODE
00473 0520 00 0 01055 ZET 12BIT UNLESS MODE IS FULL
00474 -0500 00 0 01071 CAL FULCON ..
00475 0621 00 0 00567 STA INNO SET NUMBER CHARS PER WORD
00476 0771 00 0 00022 ARS 18 ..
00477 0621 00 0 00571 STA SFT AND NUMBER BITS PER CHAR
00500 0074 00 7 00710 TSX RST,7 RESTORE OUTPUT POINTERS
00501 0774 00 1 00000 INLEN AXT **,1 RECALL LENGTH
00502 0522 00 0 00567 XEC INNO SET UP
00503 1 00001 4 00504 TXI *+1,4,1 ..
00504 0560 60 0 00566 LDQ* INPLOC ..
00505 0074 00 7 00564 PL TSX GTC,7 GET NEXT CHARACTER
00506 0054 00 000200 RFT 200 SHOULD IT BE IGNORED
00507 0020 00 0 00505 TRA PL YES
00510 0054 00 000100 RFT 100 IS IT CONTROL
00511 0020 00 0 00515 TRA CONTRL YES
00512 -0520 00 0 01072 NZT FILLED IS OUTPUT LINE FULL
00513 0074 00 7 00550 TSX STC,7 NO, STORE CHARACTER
00514 0020 00 0 00505 TRA PL LOOP
00515 -0320 00 0 01126 CONTRL ANA =O77 REMOVE CONTROL BIT
00516 0737 00 3 00000 PAC ,3 ..
00517 0020 60 3 00520 TRA* *+1,3 GO TO FUNCTION
00520 0 00000 0 00524 CR
00521 0 00000 0 00530 TAB
00522 0 00000 0 00526 BS
00523 0 00000 0 00540 LF
00524 0074 00 7 00650 CR TSX PR,7 CARRIAGE RETURN, PRINT LINE
00525 0020 00 0 00505 TRA PL
00526 0074 00 7 00564 BS TSX GTC,7 BACKSPACE, IGNORE NEXT CHAR
00527 0020 00 0 00505 TRA PL ..
00530 0754 00 6 00000 TAB PXA ,6 TAB, GET LINE LENGTH
00531 0734 00 3 00000 PAX ,3
00532 2 00012 3 00532 TIX *,3,10
00533 3 00011 3 00544 TXH SKIP,3,9
00534 1 77766 3 00535 TXI *+1,3,-10
00535 0756 00 3 00000 PCA ,3
00536 0734 00 3 00000 PAX ,3
00537 0020 00 0 00544 TRA SKIP
00540 0634 00 6 00542 LF SXA *+2,6 LINE FEED, SAVE CURRENT POSITION
00541 0074 00 7 00650 TSX PR,7 PRINT LINE
00542 0774 00 3 00000 AXT **,3 THEN SPACE OUT TO OLD POSITION
00543 -3 00000 3 00505 TXL PL,3,0 ..
1 ADMIN UTILITY PACKAGE D.A. ANDERSON 04/26/69 04/26/69 2215.2 PAGE 11
PRNT - PRINT ONLINE INTERNAL SUBROUTINE
00544 -0500 00 0 01125 SKIP CAL =O60 INSERT SPACES
00545 0074 00 7 00550 TSX STC,7 ..
00546 2 00001 3 00544 TIX SKIP,3,1 ..
00547 0020 00 0 00505 TRA PL ..
00550 -0765 00 0 00006 STC LGR 6 STORE CHAR IN OUTPUT
00551 -0500 00 2 01117 CAL OUTWRD+20,2 ..
00552 -0763 00 0 00006 LGL 6 APPEND TO WORD
00553 0602 00 2 01117 SLW OUTWRD+20,2
00554 1 00001 6 00555 TXI *+1,6,1 BUMP CHAR. COUNT
00555 -0140 00 7 00001 TNO 1,7 EXIT IF NOT FULL
00556 2 00001 2 00561 TIX *+3,2,1 MOVE TO NEXT WORD OTHERWISE
00557 -0625 00 0 01072 STL FILLED LINE IS FULL
00560 0020 00 7 00001 TRA 1,7
00561 -0500 00 0 01122 CAL =7 SET OVERFLOW BITS
00562 0602 00 2 01117 SLW OUTWRD+20,2 IN NEW WORD
00563 0020 00 7 00001 TRA 1,7
00564 2 00001 4 00570 GTC TIX GTC1,4,1 GET NEXT INPUT CHARACTER
00565 -2 00001 1 00702 TNX INPDON,1,1 EXIT IF NONE LEFT
00566 0560 00 1 00000 INPLOC LDQ **,1 GRAB NEXT WORD
00567 0774 00 4 00000 INNO AXT **,4 SET NUMBER CHARS LEFT IN THIS WORD
00570 -0754 00 0 00000 GTC1 ZAC FLUSH GARBAGE
00571 -0763 00 0 00000 SFT LGL ** GET HI-ORDER N-2 BITS OF CHAR
00572 0734 00 3 00000 PAX ,3 CHECK FOR GOOD CHAR
00573 -3 00077 3 00575 TXL *+2,3,63 IF 'IGNORE IN SIXBIT' FLAG IS ON,
00574 1 77700 3 00575 TXI *+1,3,-64 RESET IT.
00575 3 00037 3 00564 TXH GTC,3,31 TRY NEXT IF TOO LARGE
00576 -0754 00 0 00000 ZAC COMPUTE POSITION IN TABLE WORD
00577 -0763 00 0 00002 LGL 2 OF TRANSLATION FOR THIS CHAR
00600 0602 00 0 01030 SLW TEMP ..
00601 0767 00 0 00003 ALS 3 ..
00602 0400 00 0 01030 ADD TEMP ..
00603 0737 00 5 00000 PAC ,5 ..
00604 -0500 00 3 00647 CAL CVTBL,3 GET TRANSLATION
00605 0771 00 5 00000 ARS ,5 ..
00606 0044 00 0 00000 PAI IN SI AND LAC
00607 0020 00 7 00001 TRA 1,7
00610 +200200200200 OCT 200200200200
00611 +200200071070 OCT 200200071070
00612 +067066065064 OCT 067066065064
00613 +063062200200 OCT 063062200200
00614 +200200200200 OCT 200200200200
00615 +200200051050 OCT 200200051050
00616 +047046045044 OCT 047046045044
00617 +043042041200 OCT 043042041200
00620 +200100102200 OCT 200100102200
00621 +200200031030 OCT 200200031030
00622 +027026025024 OCT 027026025024
00623 +023022021020 OCT 023022021020
00624 +200200200200 OCT 200200200200
00625 +200200200200 OCT 200200200200
00626 +103200200200 OCT 103200200200
00627 +073200200200 OCT 073200200200
1 ADMIN UTILITY PACKAGE D.A. ANDERSON 04/26/69 04/26/69 2215.2 PAGE 12
PRNT - PRINT ONLINE INTERNAL SUBROUTINE
00630 +200200200074 OCT 200200200074
00631 +073101071070 OCT 073101071070
00632 +067066065064 OCT 067066065064
00633 +063062061060 OCT 063062061060
00634 +200200100054 OCT 200200100054
00635 +053200051050 OCT 053200051050
00636 +047046045044 OCT 047046045044
00637 +043042041040 OCT 043042041040
00640 +200200033034 OCT 200200033034
00641 +033200031030 OCT 033200031030
00642 +027026025024 OCT 027026025024
00643 +023022021020 OCT 023022021020
00644 +200200200014 OCT 200200200014
00645 +013200011010 OCT 013200011010
00646 +007006005004 OCT 007006005004
00647 +003002001000 CVTBL OCT 003002001000
00650 0634 00 7 00700 PR SXA PR7,7 PRINT THIS LINE
00651 0634 00 4 00677 SXA PR4,4 ..
00652 0754 00 6 00000 PXA ,6 GET LINE LENGTH
00653 0131 00 0 00000 XCA ..
00654 -0754 00 0 00000 ZAC ..
00655 0221 00 0 01121 DVP =6 COMPUTE NUMBER HOLES IN CURRENT OUTPUT WORD
00656 0100 00 0 00664 TZE *+6 DON'T FILL IF ZERO
00657 0402 00 0 01121 SUB =6 ..
00660 0734 00 3 00000 PAX ,3 ..
00661 -0500 00 0 01125 CAL =O60 PAD WITH SPACES
00662 0074 00 7 00550 TSX STC,7 ..
00663 2 00001 3 00661 TIX *-2,3,1 ..
00664 -0520 00 0 01072 NZT FILLED COMPUTE LENGTH OF OUTPUT LINE
00665 1 77754 2 00667 TXI *+2,2,-20 ..
00666 1 77753 2 00667 TXI *+1,2,-21 ..
00667 -0636 00 2 00671 SCD *+2,2 SET IN CALL
00670 0074 00 4 00013 TSX PRINT,4 PRINT THE LINE
00671 0 00000 0 01073 OUTWRD,,** ..
00672 0774 00 6 00000 AXT 0,6 RESET LINE LENGTH
00673 0774 00 2 00024 AXT 20,2 AND WORD POINTER
00674 -0500 00 0 01122 CAL =7 SET OVERFLOW BITS
00675 0602 00 0 01073 SLW OUTWRD ..
00676 0600 00 0 01072 STZ FILLED ..
00677 0774 00 4 00000 PR4 AXT **,4 ..
00700 0774 00 7 00000 PR7 AXT **,7 RESTORE AND
00701 0020 00 7 00001 TRA 1,7 RETURN
00702 0520 00 0 01054 INPDON ZET EXTRA INPUT DONE, IF EXTRA CR,
00703 0074 00 7 00650 TSX PR,7 PRINT LAST LINE
00704 0074 00 7 00714 TSX SAV,7 SAVE OUTPUT POINTERS
00705 0074 00 4 00737 TSX RESTOR,4 RESTORE REGISTERS
00706 0774 00 4 00000 PX4 AXT **,4 ..
00707 0020 00 4 00002 TRA 2,4 RETURN
00710 0140 00 0 00711 RST TOV *+1 RESTORE OUTPUT POINTERS
00711 0774 00 2 00024 OUTSIZ AXT 20,2 ..
00712 0774 00 6 00000 OUTLEN AXT 0,6 ..
00713 0020 00 7 00001 TRA 1,7
1 ADMIN UTILITY PACKAGE D.A. ANDERSON 04/26/69 04/26/69 2215.2 PAGE 13
PRNT - PRINT ONLINE INTERNAL SUBROUTINE
00714 0634 00 2 00711 SAV SXA OUTSIZ,2 SAVE OUTPUT POINTERS
00715 0634 00 6 00712 SXA OUTLEN,6 ..
00716 0020 00 7 00001 TRA 1,7 ..
1 ADMIN UTILITY PACKAGE D.A. ANDERSON 04/26/69 04/26/69 2215.2 PAGE 14
SAVE AND RESTOR
00717 0604 00 0 01056 SAVE STI SI SAVE REGISTERS
00720 -0600 00 0 01057 STQ MQ ..
00721 0602 00 0 01060 SLW LAC (LIKE UNTO PMTI)
00722 0634 00 1 00754 SXA SX1,1
00723 0634 00 2 00753 SXA SX2,2
00724 0634 00 3 00750 SXA SX3,3
00725 0774 00 1 00000 AXT 0,1
00726 0774 00 3 77777 AXT -1,3
00727 0634 00 1 01117 SXA MTM,1
00730 0760 00 0 00016 LMTM
00731 0520 00 0 01117 ZET MTM
00732 0634 00 3 00750 SXA SX3,3
00733 0634 00 5 00747 SXA SX5,5
00734 0634 00 6 00746 SXA SX6,6
00735 0634 00 7 00745 SXA SX7,7
00736 0020 00 4 00001 TRA 1,4
00737 0441 00 0 01056 RESTOR LDI SI RESTORE REGISTERS
00740 0560 00 0 01057 LDQ MQ
00741 -0500 00 0 01060 CAL LAC
00742 -0760 00 0 00003 SSM
00743 -0760 00 0 00001 PBT
00744 0760 00 0 00002 CHS
00745 0774 00 7 00000 SX7 AXT **,7
00746 0774 00 6 00000 SX6 AXT **,6
00747 0774 00 5 00000 SX5 AXT **,5
00750 0774 00 3 00000 SX3 AXT **,3
00751 0520 00 0 01117 ZET MTM
00752 -0760 00 0 00016 EMTM BLEUGH
00753 0774 00 2 00000 SX2 AXT **,2
00754 0774 00 1 00000 SX1 AXT **,1
00755 0020 00 4 00001 TRA 1,4
1 ADMIN UTILITY PACKAGE D.A. ANDERSON 04/26/69 04/26/69 2215.2 PAGE 15
RDFLXX
00756 0634 00 4 01026 RDFLXX SXA RD4,4 READ A LINE, REMOVE CARRIAGE RETURN
00757 0634 00 1 01025 SXA RD1,1 ..
00760 -0500 00 4 00001 CAL 1,4 FIND BUFFER AND COUNT
00761 0602 00 0 00765 SLW RPTR ..
00762 0737 00 4 00000 PAC ,4 REMEMBER LOCATION
00763 -0634 00 4 01005 SXD RADJ,4 ..
00764 0074 00 4 00003 TSX RDFLXA,4 READ THE LINE
00765 0 00000 0 00000 RPTR **,,** ..
00766 0602 00 0 01051 SLW DONE SAVE COUNT
00767 0734 00 4 00000 PAX ,4 IS THERE
00770 3 37777 4 01025 TXH RD1,4,16383 A CARRIAGE RETURN
00771 -0520 00 0 01032 NZT FULL IS THIS 12-BIT
00772 1 77777 4 00774 TXI *+2,4,-1 DECREMENT COUNT
00773 1 77776 4 00774 TXI *+1,4,-2 (FULL)
00774 0634 00 4 01051 SXA DONE,4 ..
00775 0131 00 0 00000 XCA LOCATE CR TO REMOVE
00776 -0754 00 0 00000 ZAC ..
00777 0221 00 0 01121 DVP =6 ..
01000 0734 00 4 00000 PAX ,4 ..
01001 0131 00 0 00000 XCA ..
01002 0737 00 1 00000 PAC ,1 COMPUTE WORD LOCATION
01003 -3 00000 4 01005 TXL *+2,4,0 ..
01004 1 77777 1 01005 TXI *+1,1,-1 ..
01005 1 00000 1 01006 RADJ TXI *+1,1,** ..
01006 0200 00 0 01121 MPY =6 AND POSITION WITHIN WORD
01007 0131 00 0 00000 XCA ..
01010 0734 00 4 00000 PAX ,4 ..
01011 3 00000 4 01013 TXH *+2,4,0 ..
01012 0774 00 4 00044 AXT 36,4 ..
01013 0520 00 0 01032 ZET FULL IF FULL,
01014 1 77772 4 01015 TXI *+1,4,-6 RE-POSITION
01015 -0500 00 1 77777 CAL -1,1 PICK UP WORD
01016 0771 00 4 00052 ARS 42,4 REMOVE CR
01017 0560 00 0 01137 LDQ =H ..
01020 0520 00 0 01032 ZET FULL IF FULL,
01021 0560 00 0 01132 LDQ =H0 0 0 USE FULL-MODE BLANKS
01022 -0763 00 4 00052 LGL 42,4 AND REPLACE WITH BLANKS
01023 0602 00 1 77777 SLW -1,1 ..
01024 -0500 00 0 01051 CAL DONE RECALL COUNT
01025 0774 00 1 00000 RD1 AXT **,1 ..
01026 0774 00 4 00000 RD4 AXT **,4 ..
01027 0020 00 4 00002 TRA 2,4 ..
1 ADMIN UTILITY PACKAGE D.A. ANDERSON 04/26/69 04/26/69 2215.2 PAGE 16
STORAGE LOCATIONS
01030 0 00000 0 00000 TEMP
01031 0 00000 0 00000 USER
01032 0 00000 0 00000 FULL
01033 BUFF BSS 14
01051 0 00000 0 00000 DONE
01052 0 00000 0 00000 CON
01053 0 00000 0 00000 PRT
01054 0 00000 0 00000 EXTRA
01055 0 00000 0 00000 12BIT
01056 0 00000 0 00000 SI
01057 0 00000 0 00000 MQ
01060 0 00000 0 00000 LAC
01061 0 00000 0 00000 N1
01062 0 00000 0 00000 N2
01063 -377777777777 FENCE OCT 777777777777
01064 0 00000 0 00000 CONFL
01065 454660314547 NOINP BCI /NO INPUT GIVEN./
01066 646360273165
01067 254533575757
00003 NOINPL EQU *-NOINP
01070 000004000006 SIXCON VFD 18/4,18/6
01071 000012000003 FULCON VFD 18/10,18/3
01072 0 00000 0 00000 FILLED
01073 +000000000007 OUTWRD OCT 7
01074 BSS 19
01117 0 00000 0 00000 MTM
1 ADMIN UTILITY PACKAGE D.A. ANDERSON 04/26/69 04/26/69 2215.2 PAGE 17
STORAGE LOCATIONS
END
LITERALS
01120 000000000000
01121 000000000006
01122 000000000007
01123 000000000015
01124 000000000016
01125 000000000060
01126 000000000077
01127 000000000144
01130 000000040000
01131 000000077777
01132 006000600060
01133 464460000000
01134 477777700000
01135 516060606060
01136 606046456060
01137 606060606060
01140 622563222324
01141 622563266443
01142 665126436721
01143 665126436760
01144 720072007200
1 ADMIN UTILITY PACKAGE D.A. ANDERSON 04/26/69 04/26/69 2215.2 PAGE 1
POST PROCESSOR ASSEMBLY DATA
1145 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
224 R 205
526 BS 522
524 CR 520
231 FL 240
447 ID 361
144 JP 133
540 LF 523
453 ME 331, 333, 334, 335, 337, 340, 341, 343, 344, 345, 347, 350, 351, 353, 355
1057 MQ 720, 740
1061 N1 167, 176, 216, 221, 226
1062 N2 174, 177, 217, 222, 227
505 PL 507, 514, 525, 527, 543, 547
650 PR 102, 524, 541, 703
1056 SI 153, 160, 717, 737
1052 CON 65, 70, 114, 122, 146
564 GTC 505, 526, 575
263 INL 311
145 JX4 130
1060 LAC 721, 741
105 LX4 63, 75, 77
62 MON 25
1117 MTM 727, 731, 751
61 MZE 23
424 OUT 374
677 PR4 651
700 PR7 650
1053 PRT 66, 73, 74, 113, 121, 126
706 PX4 463
1025 RD1 757, 770
1026 RD4 756
710 RST 101, 500
714 SAV 103, 704
571 SFT 477
550 STC 513, 545, 662
754 SX1 722
753 SX2 723
750 SX3 724, 732
747 SX5 733
746 SX6 734
745 SX7 735
530 TAB 521
53 WX4 16
1033 BUFF 30, 40, 43, 51
242 CARD 233
1051 DONE 32, 35, 766, 774, 1024
1032 FULL 24, 107, 111, 131, 370, 771, 1013, 1020
570 GTC1 564
567 INNO 475, 502
126 JOIN 120
7 OPEN 214
63 PCTL 0
1 ADMIN UTILITY PACKAGE D.A. ANDERSON 04/26/69 04/26/69 2215.2 PAGE 2
POST PROCESSOR ASSEMBLY DATA
463 PRNT 143, 415
426 PRT1 165, 433
427 PRT4 164
416 PRTL 377, 401, 417, 421
1005 RADJ 763
765 RPTR 761
717 SAVE 100, 471
544 SKIP 533, 537, 546
1030 TEMP 200, 201, 206, 224, 600, 602
55 TYPE 22, 61, 264
1031 USER 20, 34, 41, 52
35 WRLP 45
312 XTND 270
1055 12BIT 142, 371, 412, 414, 473
11 CLOSE 225
1064 CONFL 171, 366, 402
254 CONIN 172
146 CON.Q 127
647 CVTBL 604
240 END.Q 210, 253
1054 EXTRA 117, 125, 150, 155, 157, 161, 373, 702
1063 FENCE 170
501 INLEN 466
372 INPUT 204, 230, 255, 325
116 .WRFX 50, 431
1065 NOINP 432, 1070
323 PHEAD 241
13 PRINT 356, 360, 362, 364, 424, 670
2 RSSWB 33
436 STARS 357, 363
4 TYPEL 22, 61, 264
113 WRFLX 0
16 WRITE 0
46 WRLST 36
40 WRTIT 26, 46
0 COMLOC
320 CONEND 274
272 CONPTR 266, 305, 307, 320
515 CONTRL 511
1072 FILLED 512, 557, 664, 676
374 FINISQ 211, 322, 323, 423
4 FSTATE 175
1071 FULCON 474
5 GETMEM 203, 254, 312
702 INPDON 565
566 INPLOC 470, 504
124 .WRFXA 21, 37, 263
3 NOINPL 432, 1070
431 NOMESS 202, 327
712 OUTLEN 76, 715
711 OUTSIZ 714
1073 OUTWRD 551, 553, 562, 671, 675
415 PRNTIT 403
164 PRNTON 0
10 RDFILE 220
1 ADMIN UTILITY PACKAGE D.A. ANDERSON 04/26/69 04/26/69 2215.2 PAGE 3
POST PROCESSOR ASSEMBLY DATA
3 RDFLXA 764
756 RDFLXX 27, 42, 271
737 RESTOR 104, 705
107 SETBCD 0
111 SETFUL 0
1 SETLOC
6 SETMEM 213, 262, 316
1070 SIXCON 472
153 SKIPCS 147
434 THANKS 425
12 WHOAMI 330
121 WRFLXA 0
270 XTND.Q 261, 315
271 XTND.R 317
0 NO ERROR IN ABOVE ASSEMBLY.
1 DELTEM, DTEMLG, DELALL - DELETE FILES FROM U.F.D. 03/20/69 1946.0 PAGE 1
2/3/66 - NOEL I. MORRIS
00013 ENTRY DELTEM DELETE ALL TEMPS.
00016 ENTRY DTEMLG DELETE TEMPS THIS AUTHOR
00021 ENTRY DELALL DELETE ALL FILES
UNLIST
M CALL MACRON NAME,LIST SUBROUTINE CALL MACRO
M SAVE MACRO ID,LIST SAVE BASIC MACHINE CONDITIONS
EXTERN ATTNAM,FERRTN,TILOCK,FSTATE,GETMEM,SETMEM,OPEN
EXTERN RDFILE,CLOSE,CHFILE,DELFIL
00013 0600 00 0 00157 DELTEM STZ AUTHSW NO AUTH. RESTRICTION
00014 -0625 00 0 00160 STL TEMSW TEMPORARIES ONLY
00015 0020 00 0 00023 TRA GO
00016 -0625 00 0 00157 DTEMLG STL AUTHSW TEMPS OF CURRENT AUTHOR ONLY (LOGOUT)
00017 -0625 00 0 00160 STL TEMSW ..
00020 0020 00 0 00023 TRA GO
00021 0600 00 0 00157 DELALL STZ AUTHSW EVERYBODY GOES ...
00022 0600 00 0 00160 STZ TEMSW ..
00023 0634 00 4 00144 GO SXA X4,4 SAVE LINKAGE
00024 0520 00 0 00157 ZET AUTHSW DO WE NEED AUTHOR NO. (MACRO BELOW)
00025 CALL ATTNAM((FNAME,,3)) YES, GET AUTHOR NO. (3RD WORD)
00027 0074 00 4 00001 TSX FERRTN,4 SET UP FILE SYSTEM ERROR RETURN
00030 0 00000 0 00140 PZE RSILK ..
00031 0621 00 0 00143 STA RSERR+1 SAVE OLD RETURN
00032 0074 00 4 00002 TSX TILOCK,4 SET INTERLOCK RETURN
00033 0 00000 0 00133 PZE INC ..
00034 0621 00 0 00141 STA RSILK+1 SAVE OLD INTERLOCK RETURN
00035 CALL FSTATE(U,F(LTH,,1)) GET LENGTH OF U.F.D.
00041 0500 00 0 00151 CLA LTH DECREASE BY 3
00042 0402 00 0 00162 SUB =3 ..
00043 0601 00 0 00151 STO LTH ..
00044 0074 00 4 00004 TSX GETMEM,4 GET MEMBND
00045 0621 00 0 00150 STA MB SAVE IT
00046 0621 00 0 00062 STA RD+4 ..
00047 0361 00 0 00151 ACL LTH INCREASE BY LENGTH OF U.F.D.
00050 0621 00 0 00153 STA TOP ..
00051 0074 00 4 00005 TSX SETMEM,4 RESET MEMORY BOUND
00052 CALL OPEN(=HR,U,F) OPEN THE U.F.D.
00056 RD CALL RDFILE(U,F,=4(**,...,LTH)) READ IT IN
00063 CALL CLOSE(U,F) AND CLOSE IT
1 DELTEM, DTEMLG, DELALL - DELETE FILES FROM U.F.D. 03/20/69 1946.0 PAGE 2
00066 -0500 00 0 00150 CAL MB GET BEGINNING LOC'N FOR U.F.D.
00067 -0340 00 0 00153 DLP LAS TOP COMPARE TO TOP
00070 0020 00 0 00136 TRA ENDEL ..
00071 0020 00 0 00136 TRA ENDEL ..
00072 0621 00 0 00152 STA POINTR SAVE U.F.D. POINTER
00073 0737 00 4 00000 PAC ,4 POINTER IN XR4
00074 0520 00 4 00000 ZET 0,4 IS PRIMARY NAME ZERO .Q.
00075 0020 00 0 00100 TRA *+3 NO, CONTINUE
00076 -0520 00 4 00001 NZT 1,4 IS SECONDARY NAME ZERO .Q.
00077 0020 00 0 00133 TRA INC YES, SKIP THIS ENTRY
00100 0441 00 4 00004 LDI 4,4 GET MODE, ILOCK, ETC.
00101 0054 00 700000 RFT 700000 IS FILE LINKED (DEVICE = 0) .Q.
00102 0020 00 0 00104 TRA *+2 NO, SKIP
00103 0020 00 0 00133 TRA INC YES, IGNORE LINKED FILE
00104 -0056 00 002000 LNT 002000 IS FILE TEMPORARY .Q.
00105 -0520 00 0 00160 NZT TEMSW OR ARE WE AFTER ALL FILES .Q.
00106 0020 00 0 00110 TRA *+2 YES, SKIP
00107 0020 00 0 00133 TRA INC NO, IGNORE FILE
00110 -0500 00 4 00003 CAL 3,4 GET AUTHOR OF FILE
00111 -0320 00 0 00165 ANA =O777777 ..
00112 0322 00 0 00156 ERA AUTHNO IS AUTHOR THIS USER .Q.
00113 0520 00 0 00157 ZET AUTHSW OR DON'T WE CARE .Q.
00114 -0100 00 0 00133 TNZ INC IF NOT, IGNORE FILE
00115 0500 00 4 00000 CLA 0,4 GET PRIMARY NAME
00116 0560 00 4 00001 LDQ 1,4 AND SECONDARY NAME
00117 -0603 00 0 00154 DST FNAME ..
00120 CALL CHFILE(FNAME,FNAME+1,=1,=-0,=-0,*+1) MAKE IT '001' MODE
00127 CALL DELFIL(FNAME,FNAME+1,*+1) DELETE IT
00133 -0500 00 0 00152 INC CAL POINTR GET U.F.D. POINTER
00134 0361 00 0 00164 ACL =7 STEP BY SEVEN
00135 0020 00 0 00067 TRA DLP CONTINUE LOOP
00136 -0500 00 0 00150 ENDEL CAL MB GET OLD MEMBND
00137 0074 00 4 00005 TSX SETMEM,4 RESET MEMORY BOUND
00140 0074 00 4 00002 RSILK TSX TILOCK,4 RESET INTERLOCK RETURN
00141 0 00000 0 00000 PZE ** MUST BE A 'PZE' ******
00142 0074 00 4 00001 RSERR TSX FERRTN,4 RESET OLD ERROR RETURN
00143 0 00000 0 00000 PZE ** MUST BE A 'PZE' ******
00144 0774 00 4 00000 X4 AXT **,4 RESTORE XR4
00145 0020 00 4 00001 TRA 1,4 RETURN
00146 643326332433 U BCI 1,U.F.D.
00147 742631432534 F BCI 1,(FILE)
00150 0 00000 0 00000 MB PZE
00151 0 00000 0 00000 LTH PZE
00152 0 00000 0 00000 POINTR PZE
1 DELTEM, DTEMLG, DELALL - DELETE FILES FROM U.F.D. 03/20/69 1946.0 PAGE 3
00153 0 00000 0 00000 TOP PZE
00154 FNAME BSS 2
00156 0 00000 0 00000 AUTHNO PZE AUTHOR NUMBER
00157 0 00000 0 00000 AUTHSW PZE SWITCH TO DELETE AUTHOR'S FILES ONLY
00160 0 00000 0 00000 TEMSW PZE SWITCH TO DELETE TEMP FILES ONLY
00161 RMT * REMOTE SEQUENCES.
END
LITERALS
00161 000000000001
00162 000000000003
00163 000000000004
00164 000000000007
00165 000000777777
00166 400000000000
00167 516060606060
1 DELTEM, DTEMLG, DELALL - DELETE FILES FROM U.F.D. 03/20/69 1946.0 PAGE 1
POST PROCESSOR ASSEMBLY DATA
170 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
147 F 37, 55, 60, 65
146 U 36, 54, 57, 64
23 GO 15, 20
150 MB 45, 66, 136
56 RD 46
144 X4 23
67 DLP 135
133 INC 33, 77, 103, 107, 114
151 LTH 40, 41, 43, 47, 62
153 TOP 50, 67
6 OPEN 52
10 CLOSE 63
136 ENDEL 70, 71
154 FNAME 26, 117, 121, 122, 130, 131
142 RSERR 31
140 RSILK 30, 34
160 TEMSW 14, 17, 22, 105
0 ATTNAM 25
156 AUTHNO 112
157 AUTHSW 13, 16, 21, 24, 113
11 CHFILE 120
21 DELALL 0
12 DELFIL 127
13 DELTEM 0
16 DTEMLG 0
1 FERRTN 27, 142
3 FSTATE 35
4 GETMEM 44
152 POINTR 72, 133
7 RDFILE 56
5 SETMEM 51, 137
2 TILOCK 32, 140
0 NO ERROR IN ABOVE ASSEMBLY.
APENDA BCD 09/20/68 1803.6 8315 00000
1 MAD PROGRAM LISTING ... ... ... FILE APENDA MAD 09/20/68 1746.2
-
M1416-3845 PETER R. BOS 1/4/67 -- APEND/APENDA SAVED LM00001
LM00002
USAGE ... LM00003
'APEND' OR 'APENDA' NAME1 NAME2 -'*'- ARGS ... LM00004
LM00005
IF '*' IS SPECIFIED, ARGS ARE ASSUMED AS SINGLE LM00006
FIRST NAMES OF FILES, NAME2 BEING USED AS GENERIC LM00007
SECONDARY NAME. LM00008
IF '*' IS NOT SPECIFIED, ARGS ARE ASSUMED AS LM00009
NAME1-NAME2 PAIRS. LM00010
LM00011
FILE SYSTEM ERRORS ON SUB-FILES ARE NOT DETECTED LM00012
UNTIL PREVIOUS FILES HAVE BEEN PROCESSED. ERROR LM00013
RETURN IS TO PRNTER VIA NEXCOM. LM00014
LM00015
'APENDA' WILL APPEND FILES TO NAME1 NAME2 WITH LM00016
ARCHIV FORMAT HEADERS INSERTED. LM00017
'APEND' WILL APPEND FILES WITHOUT THE HEADERS. LM00018
EXECUTING THE PROGRAM UNDER A DIFFERENT NAME WILL LM00019
CAUSE AN ERROR COMMENT, AND NO EXECUTION. LM00020
LM00021
NORMAL MODE IS INTEGER *001 LM00022
FUNCTION NAME EXTFN *002 LM00023
DIMENSION CBUF(20), WBUF(432) *003 LM00024
EQUIVALENCE (N1,CBUF(1)), (N2,CBUF(2)) *004 LM00025
BOOLEAN TN2 *005 LM00026
LM00027
FERRTN.(IOERR.) *006 LM00028
GCLS.(CBUF,0) *007 LM00029
WHENEVER CBUF(0).E.$ APEND$ *008 LM00030
EXTFN=APPEND. *009 LM00031
OTHERWISE *010 LM00032
EXTFN=ARCHA. *011 LM00033
END OF CONDITIONAL *012 LM00034
WHENEVER CBUF(1).E.FNS.OR.CBUF(2).E.FNS *013 LM00035
PRINT COMMENT $ARGUMENTS NAME1 NAME2 -'*'- ARGS$ *014 LM00036
CHNCOM.(0) *015 LM00037
END OF CONDITIONAL *016 LM00038
WHENEVER CBUF(3).E.$ *$ *017 LM00039
TN2=0B *018 LM00040
K=4 *019 LM00041
Q=1 *020 LM00042
OTHERWISE *021 LM00043
TN2=1B *022 LM00044
K=3 *023 LM00045
Q=2 *024 LM00046
END OF CONDITIONAL *025 LM00047
OPEN.($W$,N1,N2) *026 LM00048
BUFFER.(N1,N2,WBUF(432)...432) *027 LM00049
LM00050
THROUGH WRLOOP, FOR I=K,Q,CBUF(I).E.FNS *028 LM00051
FIL1=CBUF(I) *029 LM00052
WHENEVER TN2 *030 LM00053
FIL2=CBUF(I+1) *031 LM00054
WHENEVER FIL2.E.FNS *032 LM00055
FIL2=N2 *033 LM00056
I=I-1 *034 LM00057
END OF CONDITIONAL *035 LM00058
OTHERWISE *036 LM00059
FIL2=N2 *037 LM00060
END OF CONDITIONAL *038 LM00061
EXTFN(0).(N1,N2,FIL1,FIL2) *039 LM00062
WRLOOP CONTINUE *040 LM00063
LM00064
CLOSE.($ALL$,-0) *041 LM00065
CHNCOM.(0) *042 LM00066
LM00067
VECTOR VALUES FNS=777777777777K *043 LM00068
LM00069
END OF PROGRAM *044 LM00070
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 01114 TRANSFER VECTOR LENGTH 00014 PROGRAM BEGINS 00746
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
CBUF 00041 A 1 FIL2 00044 1 K 00047 1 Q 00050 1 WBUF 00732 A 1
EXTFN 00042 3 FNS 00045 A 1 N1 00040 1 TN2 00051 2 WRLOOP 00014 4
FIL1 00043 1 I 00046 1 N2 00037 1
0FUNCTION DICTIONARY
APPEND 00000 1 ARCHA 00001 1 BUFFER 00002 1 CHNCOM 00003 1 CLOSE 00004 1
EXIT 00005 1 FERRTN 00006 1 GCLS 00007 1 IOERR 00010 1 .PCOMT 00011 1
.SETUP 00012 1 OPEN 00013 1
0ABSOLUTE CONSTANTS
00741 +214343606060 00740 +000000000660 00745 -266060606060 00735 +000000000002 00736 +000000000003
00737 +000000000004 00744 -206060606054 00743 -202147254524 00733 +000000000000 00734 +000000000001
00742 +233000000000
0PROGRAM
N'S INTEGER 001 LM00022
FUNCTION NAME EXTFN 002 LM00023
D'N CBUF(20), WBUF(432) 003 LM00024
EQUIVALENCE (N1,CBUF(1)), (N2,CBUF(2)) 004 LM00025
BOOLEAN TN2 005 LM00026
FERRTN.(IOERR.) 006 LM00028
00746 TSX +0 07400 4 00012 00747 TSX +0 07400 4 00006 00750 TXH +3 00000 0 00010
GCLS.(CBUF,0) 007 LM00029
00751 TSX +0 07400 4 00007 00752 TXH +3 00000 0 00041 00753 TXH +3 00000 0 00733
W'R CBUF(0).E.$ APEND$ 008 LM00030
00754 CLA +0 50000 0 00041 00755 SUB +0 40200 0 00743 00756 TNZ -0 10000 0 00762
EXTFN=APPEND. 009 LM00031
00757 CLA +0 50000 0 00000 00760 STO +0 60100 0 00042
O'E 010 LM00032
00761 TRA +0 02000 0 00764
EXTFN=ARCHA. 011 LM00033
00762 CLA +0 50000 0 00001 00763 STO +0 60100 0 00042
E'L 012 LM00034
W'R CBUF(1).E.FNS.OR.CBUF(2).E.FNS 013 LM00035
00764 CLA +0 50000 0 00037 00765 SUB +0 40200 0 00045 00766 TZE +0 10000 0 00772 00767 CLA +0 50000 0 00040
00770 SUB +0 40200 0 00045 00771 TNZ -0 10000 0 01004
PRINT COMMENT $ARGUMENTS NAME1 NAME2 -'*'- ARGS$ 014 LM00036
00772 TSX +0 07400 4 00011 00773 +0 00000 0 00006 00774 +2 15127 6 44425 00775 -0 56362 6 04521
00776 -0 42501 6 04521 00777 -0 42502 6 04014 01000 -1 41440 6 02151 01001 +2 76260 6 06060
CHNCOM.(0) 015 LM00037
01002 TSX +0 07400 4 00003 01003 TXH +3 00000 0 00733
E'L 016 LM00038
W'R CBUF(3).E.$ *$ 017 LM00039
01004 CLA +0 50000 0 00036 01005 SUB +0 40200 0 00744 01006 TNZ -0 10000 0 01016
TN2=0B 018 LM00040
01007 CLA +0 50000 0 00733 01010 STO +0 60100 0 00051
K=4 019 LM00041
01011 CLA +0 50000 0 00737 01012 STO +0 60100 0 00047
Q=1 020 LM00042
01013 CLA +0 50000 0 00734 01014 STO +0 60100 0 00050
O'E 021 LM00043
01015 TRA +0 02000 0 01024
TN2=1B 022 LM00044
01016 CLA +0 50000 0 00734 01017 STO +0 60100 0 00051
K=3 023 LM00045
01020 CLA +0 50000 0 00736 01021 STO +0 60100 0 00047
Q=2 024 LM00046
01022 CLA +0 50000 0 00735 01023 STO +0 60100 0 00050
E'L 025 LM00047
OPEN.($W$,N1,N2) 026 LM00048
01024 TSX +0 07400 4 00013 01025 TXH +3 00000 0 00745 01026 TXH +3 00000 0 00040 01027 TXH +3 00000 0 00037
BUFFER.(N1,N2,WBUF(432)...432) 027 LM00049
01030 TSX +0 07400 4 00002 01031 TXH +3 00000 0 00040 01032 TXH +3 00000 0 00037 01033 TIX +2 00740 0 00052
T'H WRLOOP, FOR I=K,Q,CBUF(I).E.FNS 028 LM00051
01034 CLA +0 50000 0 00047 01035 STO +0 60100 0 00046 01036 TRA +0 02000 0 01042 01037 CLA +0 50000 0 00046
01040 ADD +0 40000 0 00050 01041 STO +0 60100 0 00046 01042 LXA +0 53400 1 00046 01043 CLA +0 50000 1 00041
01044 SUB +0 40200 0 00045 01045 TZE +0 10000 0 01101
FIL1=CBUF(I) 029 LM00052
01046 LXA +0 53400 2 00046 01047 CLA +0 50000 2 00041 01050 STO +0 60100 0 00043
W'R TN2 030 LM00053
01051 NZT -0 52000 0 00051 01052 TRA +0 02000 0 01071
FIL2=CBUF(I+1) 031 LM00054
01053 CLA +0 50000 0 00046 01054 ADD +0 40000 0 00734 01055 PAX +0 73400 2 00000 01056 CLA +0 50000 2 00041
01057 STO +0 60100 0 00044
W'R FIL2.E.FNS 032 LM00055
01060 CLA +0 50000 0 00044 01061 SUB +0 40200 0 00045 01062 TNZ -0 10000 0 01070
FIL2=N2 033 LM00056
01063 CLA +0 50000 0 00037 01064 STO +0 60100 0 00044
I=I-1 034 LM00057
01065 CLA +0 50000 0 00046 01066 SUB +0 40200 0 00734 01067 STO +0 60100 0 00046
E'L 035 LM00058
O'E 036 LM00059
01070 TRA +0 02000 0 01073
FIL2=N2 037 LM00060
01071 CLA +0 50000 0 00037 01072 STO +0 60100 0 00044
E'L 038 LM00061
EXTFN(0).(N1,N2,FIL1,FIL2) 039 LM00062
01073 TSX +0 07400 4 00042 01074 TXH +3 00000 0 00040 01075 TXH +3 00000 0 00037 01076 TXH +3 00000 0 00043
01077 TXH +3 00000 0 00044
WRLOOP CONTINUE 040 LM00063
01100 TRA +0 02000 0 01037
CLOSE.($ALL$,-0) 041 LM00065
01101 CLS +0 50200 0 00733 01102 STO +0 60100 0 01111 01103 TSX +0 07400 4 00004 01104 TXH +3 00000 0 00741
01105 TXH +3 00000 0 01111
CHNCOM.(0) 042 LM00066
01106 TSX +0 07400 4 00003 01107 TXH +3 00000 0 00733
V'S FNS=777777777777K 043 LM00068
00045 -3 77777 7 77777
END OF PROGRAM 044 LM00070
01110 TSX +0 07400 4 00005
1 MAD PROGRAM LISTING ... ... ... FILE ARCHA MAD 09/20/68 1746.4
-
ARCHA. - ARCHIV APPEND FUNCTION. LM00001
LM00002
CALLING SEQUENCE IS LM00003
ARCHA.(NAME1,NAME2,NAME3,NAME4) LM00004
LM00005
ARCHA WILL APPEND NAME3 NAME4 TO FILE NAME1 NAME2, LM00006
WITH ARCHIV FORMAT HEADER INSERTED. LM00007
LM00008
EXTERNAL FUNCTION (N1,N2,N3,N4) *001 LM00009
NORMAL MODE IS INTEGER *002 LM00010
LM00011
ENTRY TO ARCHA. *003 LM00012
FSTATE.(N3,N4,LTH...1) *004 LM00013
DAYTIM.(DATE,TIME) *005 LM00014
MM=DATE.A.777700000000K *006 LM00015
DD=DATE.A.77770000K *007 LM00016
YY=DATE.A.7777K *008 LM00017
HDR(8)=N4 *009 LM00018
HDR(9)=N3 *010 LM00019
HDR(7)=$ 00000$.V.(MM.RS.6).V.$000/00$.V.(DD.RS.12) *011 LM00020
HDR(6)=$/00000$.V.(YY.LS.18).V.$000 00$.V.(TIME.RS.24) *012 LM00021
HDR(5)=(TIME.LS.12).V.$0000 $ *013 LM00022
HDR(4)=BZEL.(DEFBC.(LTH)) *014 LM00023
WRWAIT.(N1,N2,0,HDR(14)...14,-0,-0) *015 LM00024
APPEND.(N1,N2,N3,N4) *016 LM00025
FUNCTION RETURN *017 LM00026
LM00027
VECTOR VALUES HDR(14)=777777000000K *018 LM00028
VECTOR VALUES HDR(13)=777777000000K *019 LM00029
VECTOR VALUES HDR(12)=777777000000K *020 LM00030
VECTOR VALUES HDR(11)=777777000000K *021 LM00031
VECTOR VALUES HDR(10)=777777000011K *022 LM00032
VECTOR VALUES HDR(9)=$NAME1$ *023 LM00033
VECTOR VALUES HDR(8)=$NAME2$ *024 LM00034
VECTOR VALUES HDR(7)=$ MM/DD$ *025 LM00035
VECTOR VALUES HDR(6)=$/YY HH$ *026 LM00036
VECTOR VALUES HDR(5)=$MM.M $ *027 LM00037
VECTOR VALUES HDR(4)=$NNNNNN$ *028 LM00038
VECTOR VALUES HDR(3)=$ $ *029 LM00039
VECTOR VALUES HDR(2)=$ 000$ *030 LM00040
VECTOR VALUES HDR(1)=$00 $ *031 LM00041
LM00042
END OF FUNCTION *032 LM00043
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00226 TRANSFER VECTOR LENGTH 00007 PROGRAM BEGINS 00055
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
ARCHA 00056 0
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
DATE 00010 1 HDR 00030 A 1 MM 00032 1 TIME 00033 1 YY 00034 1
DD 00011 1 LTH 00031 1
0FUNCTION DICTIONARY
APPEND 00000 1 BZEL 00001 1 DAYTIM 00002 1 DEFBC 00003 1 EXIT 00004 1
FSTATE 00005 1 WRWAIT 00006 1
0ABSOLUTE CONSTANTS
00041 +000000000016 00035 +000000000000 00044 +000000006060 00046 +000000600000 00053 -210000000000
00042 +000000000022 00043 +000000000030 00047 +000000610000 00052 -200000000000 00037 +000000000006
00040 +000000000014 00045 +000000007777 00050 +000077770000 00054 -377700000000 00036 +000000000001
00051 +233000000000
0PROGRAM
EXTERNAL FUNCTION (N1,N2,N3,N4) 001 LM00009
N'S INTEGER 002 LM00010
ENTRY TO ARCHA. 003 LM00012
00055 TRA +0 02000 0 00060 00056 SXA +0 63400 2 00174 00057 TSX +0 07400 2 00174
FSTATE.(N3,N4,LTH...1) 004 LM00013
00060 TSX +0 07400 4 00005 00061 TXH +3 00000 0 00024 00062 TXH +3 00000 0 00024 00063 TIX +2 00036 0 00031
DAYTIM.(DATE,TIME) 005 LM00014
00064 TSX +0 07400 4 00002 00065 TXH +3 00000 0 00010 00066 TXH +3 00000 0 00033
MM=DATE.A.777700000000K 006 LM00015
00067 CAL -0 50000 0 00010 00070 ANA -0 32000 0 00054 00071 SLW +0 60200 0 00032
DD=DATE.A.77770000K 007 LM00016
00072 CAL -0 50000 0 00010 00073 ANA -0 32000 0 00050 00074 SLW +0 60200 0 00011
YY=DATE.A.7777K 008 LM00017
00075 CAL -0 50000 0 00010 00076 ANA -0 32000 0 00045 00077 SLW +0 60200 0 00034
HDR(8)=N4 009 LM00018
00100 CLA +0 50000 0 00024 00101 STO +0 60100 0 00020
HDR(9)=N3 010 LM00019
00102 CLA +0 50000 0 00024 00103 STO +0 60100 0 00017
HDR(7)=$ 00000$.V.(MM.RS.6).V.$000/00$.V.(DD.RS.12) 011 LM00020
00104 CAL -0 50000 0 00040 00105 STA +0 62100 0 00107 00106 CAL -0 50000 0 00011 00107 LGR -0 76500 0 00000
00110 SLW +0 60200 0 00222 00111 CAL -0 50000 0 00037 00112 STA +0 62100 0 00114 00113 CAL -0 50000 0 00032
00114 LGR -0 76500 0 00000 00115 ORA -0 50100 0 00052 00116 ORA -0 50100 0 00047 00117 ORA -0 50100 0 00222
00120 SLW +0 60200 0 00021
HDR(6)=$/00000$.V.(YY.LS.18).V.$000 00$.V.(TIME.RS.24) 012 LM00021
00121 CAL -0 50000 0 00043 00122 STA +0 62100 0 00124 00123 CAL -0 50000 0 00033 00124 LGR -0 76500 0 00000
00125 SLW +0 60200 0 00222 00126 CAL -0 50000 0 00042 00127 STA +0 62100 0 00131 00130 CAL -0 50000 0 00034
00131 ALS +0 76700 0 00000 00132 ORA -0 50100 0 00053 00133 ORA -0 50100 0 00046 00134 ORA -0 50100 0 00222
00135 SLW +0 60200 0 00022
HDR(5)=(TIME.LS.12).V.$0000 $ 013 LM00022
00136 CAL -0 50000 0 00040 00137 STA +0 62100 0 00141 00140 CAL -0 50000 0 00033 00141 ALS +0 76700 0 00000
00142 ORA -0 50100 0 00044 00143 SLW +0 60200 0 00023
HDR(4)=BZEL.(DEFBC.(LTH)) 014 LM00023
00144 TSX +0 07400 4 00003 00145 TXH +3 00000 0 00031 00146 STO +0 60100 0 00222 00147 TSX +0 07400 4 00001
00150 TXH +3 00000 0 00222 00151 STO +0 60100 0 00024
WRWAIT.(N1,N2,0,HDR(14)...14,-0,-0) 015 LM00024
00152 CLS +0 50200 0 00035 00153 STO +0 60100 0 00222 00154 CLS +0 50200 0 00035 00155 STO +0 60100 0 00223
00156 TSX +0 07400 4 00006 00157 TXH +3 00000 0 00024 00160 TXH +3 00000 0 00024 00161 TXH +3 00000 0 00035
00162 TIX +2 00041 0 00012 00163 TXH +3 00000 0 00223 00164 TXH +3 00000 0 00222
APPEND.(N1,N2,N3,N4) 016 LM00025
00165 TSX +0 07400 4 00000 00166 TXH +3 00000 0 00024 00167 TXH +3 00000 0 00024 00170 TXH +3 00000 0 00024
00171 TXH +3 00000 0 00024
FUNCTION RETURN 017 LM00026
00172 TRA +0 02000 0 00216
V'S HDR(14)=777777000000K 018 LM00028
00012 -3 77777 0 00000
V'S HDR(13)=777777000000K 019 LM00029
00013 -3 77777 0 00000
V'S HDR(12)=777777000000K 020 LM00030
00014 -3 77777 0 00000
V'S HDR(11)=777777000000K 021 LM00031
00015 -3 77777 0 00000
V'S HDR(10)=777777000011K 022 LM00032
00016 -3 77777 0 00011
V'S HDR(9)=$NAME1$ 023 LM00033
00017 -0 52144 2 50160
V'S HDR(8)=$NAME2$ 024 LM00034
00020 -0 52144 2 50260
V'S HDR(7)=$ MM/DD$ 025 LM00035
00021 -2 04444 6 12424
V'S HDR(6)=$/YY HH$ 026 LM00036
00022 -2 17070 6 03030
V'S HDR(5)=$MM.M $ 027 LM00037
00023 -0 44433 4 46060
V'S HDR(4)=$NNNNNN$ 028 LM00038
00024 -0 54545 4 54545
V'S HDR(3)=$ $ 029 LM00039
00025 -2 06060 6 06060
V'S HDR(2)=$ 000$ 030 LM00040
00026 -2 06060 0 00000
V'S HDR(1)=$00 $ 031 LM00041
00027 +0 00060 6 06060
END OF FUNCTION 032 LM00043
00173 TSX +0 07400 4 00004 00174 TXH +3 00000 0 00000 00175 SXD -0 63400 1 00174 00176 SXA +0 63400 4 00216
00177 CLA +0 50000 4 00001 00200 STO +0 60100 0 00157 00201 STO +0 60100 0 00166 00202 CLA +0 50000 4 00002
00203 STO +0 60100 0 00160 00204 STO +0 60100 0 00167 00205 CLA +0 50000 4 00003 00206 STO +0 60100 0 00061
00207 STA +0 62100 0 00102 00210 STO +0 60100 0 00170 00211 CLA +0 50000 4 00004 00212 STO +0 60100 0 00062
00213 STA +0 62100 0 00100 00214 STO +0 60100 0 00171 00215 TRA +0 02000 2 00001 00216 AXT +0 77400 4 00000
00217 LXA +0 53400 2 00174 00220 LXD -0 53400 1 00174 00221 TRA +0 02000 4 00001
1 MAD PROGRAM LISTING ... ... ... FILE APPEND MAD 09/20/68 1746.7
-
APPEND. - APPEND FILE. LM00001
LM00002
CALLING SEQUENCE IS LM00003
APPEND.(NAME1,NAME2,NAME3,NAME4) LM00004
LM00005
APPENDS NAME3 NAME4 TO FILE NAME1 NAME2. LM00006
NAME1 NAME2 IS ASSUMED OPEN FOR WRITING LM00007
AND BUFFERED. LM00008
LM00009
EXTERNAL FUNCTION (N1,N2,N3,N4) *001 LM00010
NORMAL MODE IS INTEGER *002 LM00011
DIMENSION BUF(864) *003 LM00012
LM00013
ENTRY TO APPEND. *004 LM00014
OPEN.($R$,N3,N4,-0,-0) *005 LM00015
RD RDWAIT.(N3,N4,0,BUF(864)...864,EOF,CT) *006 LM00016
WRWAIT.(N1,N2,0,BUF(864)...864,-0,-0) *007 LM00017
TRANSFER TO RD *008 LM00018
EOF WHENEVER CT.NE.0, WRWAIT.(N1,N2,0,BUF(864)...CT,-0,-0) *009 LM00019
CLOSE.(N3,N4) *010 LM00020
FUNCTION RETURN *011 LM00021
LM00022
END OF FUNCTION *012 LM00023
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 01674 TRANSFER VECTOR LENGTH 00005 PROGRAM BEGINS 01557
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
APPEND 01560 0
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
BUF 01550 A 1 CT 01551 1 EOF 00006 4 RD 00007 4
0FUNCTION DICTIONARY
CLOSE 00000 1 EXIT 00001 1 OPEN 00002 1 RDWAIT 00003 1 WRWAIT 00004 1
0ABSOLUTE CONSTANTS
01554 +000000001540 01556 -116060606060 01552 +000000000000 01553 +000000000001 01555 +233000000000
0STATEMENT DICTIONARY
00006 TXL -301635001617 00007 TXL -301603001574
0PROGRAM
EXTERNAL FUNCTION (N1,N2,N3,N4) 001 LM00010
N'S INTEGER 002 LM00011
D'N BUF(864) 003 LM00012
ENTRY TO APPEND. 004 LM00014
01557 TRA +0 02000 0 01562 01560 SXA +0 63400 2 01642 01561 TSX +0 07400 2 01642
OPEN.($R$,N3,N4,-0,-0) 005 LM00015
01562 CLS +0 50200 0 01552 01563 STO +0 60100 0 01670 01564 CLS +0 50200 0 01552 01565 STO +0 60100 0 01671
01566 TSX +0 07400 4 00002 01567 TXH +3 00000 0 01556 01570 TXH +3 00000 0 00024 01571 TXH +3 00000 0 00024
01572 TXH +3 00000 0 01671 01573 TXH +3 00000 0 01670
RD RDWAIT.(N3,N4,0,BUF(864)...864,EOF,CT) 006 LM00016
01574 TSX +0 07400 4 00003 01575 TXH +3 00000 0 00024 01576 TXH +3 00000 0 00024 01577 TXH +3 00000 0 01552
01600 TIX +2 01554 0 00010 01601 TXH +3 00000 0 00006 01602 TXH +3 00000 0 01551
WRWAIT.(N1,N2,0,BUF(864)...864,-0,-0) 007 LM00017
01603 CLS +0 50200 0 01552 01604 STO +0 60100 0 01671 01605 CLS +0 50200 0 01552 01606 STO +0 60100 0 01670
01607 TSX +0 07400 4 00004 01610 TXH +3 00000 0 00024 01611 TXH +3 00000 0 00024 01612 TXH +3 00000 0 01552
01613 TIX +2 01554 0 00010 01614 TXH +3 00000 0 01670 01615 TXH +3 00000 0 01671
T'O RD 008 LM00018
01616 TRA +0 02000 0 00007
EOF W'R CT.NE.0, WRWAIT.(N1,N2,0,BUF(864)...CT,-0,-0) 009 LM00019
01617 CLA +0 50000 0 01551 01620 SUB +0 40200 0 01552 01621 TZE +0 10000 0 01635 01622 CLS +0 50200 0 01552
01623 STO +0 60100 0 01671 01624 CLS +0 50200 0 01552 01625 STO +0 60100 0 01670 01626 TSX +0 07400 4 00004
01627 TXH +3 00000 0 00024 01630 TXH +3 00000 0 00024 01631 TXH +3 00000 0 01552 01632 TIX +2 01551 0 00010
01633 TXH +3 00000 0 01670 01634 TXH +3 00000 0 01671
CLOSE.(N3,N4) 010 LM00020
01635 TSX +0 07400 4 00000 01636 TXH +3 00000 0 00024 01637 TXH +3 00000 0 00024
FUNCTION RETURN 011 LM00021
01640 TRA +0 02000 0 01664
END OF FUNCTION 012 LM00023
01641 TSX +0 07400 4 00001 01642 TXH +3 00000 0 00000 01643 SXD -0 63400 1 01642 01644 SXA +0 63400 4 01664
01645 CLA +0 50000 4 00001 01646 STO +0 60100 0 01610 01647 STO +0 60100 0 01627 01650 CLA +0 50000 4 00002
01651 STO +0 60100 0 01611 01652 STO +0 60100 0 01630 01653 CLA +0 50000 4 00003 01654 STO +0 60100 0 01570
01655 STO +0 60100 0 01575 01656 STO +0 60100 0 01636 01657 CLA +0 50000 4 00004 01660 STO +0 60100 0 01571
01661 STO +0 60100 0 01576 01662 STO +0 60100 0 01637 01663 TRA +0 02000 2 00001 01664 AXT +0 77400 4 00000
01665 LXA +0 53400 2 01642 01666 LXD -0 53400 1 01642 01667 TRA +0 02000 4 00001
1 DUMMY I/O ERROR RETURN - EXITS VIA PRNTER. PAGE 1
PCC ON
NOLNK
00000 ENTRY IOERR
LBL IOCHN
PCC OFF
*
* ERROR RETURN MAY BE SET BY 'FERRTN.(IOERR.)'
*
00000 0074 00 4 00006 IOERR TSX CLOSE,4 CLOSE ALL FILES.
TD 00001 3 00000 0 00007 TXH =HALL
TD 00002 3 00000 0 00011 TXH =-0
00003 -0500 00 0 00014 CAL =HPRNTER
00004 0560 00 0 00012 LDQ =O-71 DON'T WASTE WORDS.
00005 0101 00 0 00013 TIA =HNEXCOM GO AWAY QUIETLY.
00006 0101 00 0 00010 CLOSE TIA =HCLOSE
END
LITERALS
00007 214343606060
00010 234346622560
00011 400000000000
00012 400000000071
00013 452567234644
00014 475145632551
1 DUMMY I/O ERROR RETURN - EXITS VIA PRNTER. PAGE 1
POST PROCESSOR ASSEMBLY DATA
15 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
6 CLOSE 0
0 IOERR 0
0 NO ERROR IN ABOVE ASSEMBLY.
1 DAYTIM. - GIVE DATE AND TIME MMDDYY HHMM.M PAGE 1
PCC ON
NOLNK
00000 ENTRY DAYTIM
LBL TIME
PCC OFF
*
* CALLING SEQUENCE IS
* TSX DAYTIM,4
* TXH DATE
* TXH TIME
*
00000 0636 00 4 00036 DAYTIM SCA TX4,4 SAVE XR4.
00001 0074 00 4 00043 TSX GETIME,4 GET DATE AND TIME.
00002 0602 00 0 00042 SLW TIME ..
00003 0535 00 4 00036 LAC TX4,4 RESTORE XR4.
00004 -0600 60 4 00001 STQ* 1,4 RETURN DATE.
00005 0560 00 0 00042 LDQ TIME CONVERT TIME.
00006 -0754 00 0 00000 ZAC ..
00007 0221 00 0 00047 DVP =360 GET RID OF SMALL FRACTIONS.
00010 -0754 00 0 00000 ZAC ..
00011 0221 00 0 00045 DVP =10 GET 1/10 MIN.
00012 -0501 00 0 00050 ORA =O3300 ..
00013 0602 00 0 00041 SLW HHMM.M ..
00014 -0754 00 0 00000 ZAC ..
00015 0221 00 0 00045 DVP =10 GET SINGLE MIN.
00016 0767 00 0 00014 ALS 12 SHIFT TO POSITION.
00017 -0602 00 0 00041 ORS HHMM.M ..
00020 -0754 00 0 00000 ZAC ..
00021 0221 00 0 00044 DVP =6 GET 10'S MIN.
00022 0767 00 0 00022 ALS 18 SHIFT.
00023 -0602 00 0 00041 ORS HHMM.M ..
00024 -0754 00 0 00000 ZAC ..
00025 0221 00 0 00046 DVP =24 ONLY 24 HRS.
00026 0131 00 0 00000 XCA ..
00027 -0754 00 0 00000 ZAC ..
00030 0221 00 0 00045 DVP =10 GET SINGLE HRS.
00031 0767 00 0 00030 ALS 24 SHIFT.
00032 -0602 00 0 00041 ORS HHMM.M ..
00033 0131 00 0 00000 XCA 10'S OF HRS ARE LEFT.
00034 0767 00 0 00036 ALS 30 SHIFT.
00035 -0501 00 0 00041 ORA HHMM.M OR IN REST OF TIME.
00036 -0774 00 4 00000 TX4 AXC -,4 ..
00037 0602 60 4 00002 SLW* 2,4 ..
00040 0020 00 4 00003 TRA 3,4 RETURN.
00041 0 00000 0 00000 HHMM.M PZE
00042 0 00000 0 00000 TIME PZE
00043 0101 00 0 00051 GETIME TIA =HGETIME
END
1 DAYTIM. - GIVE DATE AND TIME MMDDYY HHMM.M PAGE 2
LITERALS
00044 000000000006
00045 000000000012
00046 000000000030
00047 000000000550
00050 000000003300
00051 272563314425
1 DAYTIM. - GIVE DATE AND TIME MMDDYY HHMM.M PAGE 1
POST PROCESSOR ASSEMBLY DATA
52 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
36 TX4 0, 3
42 TIME 2, 5
0 DAYTIM 0
43 GETIME 1
41 HHMM.M 13, 17, 23, 32, 35
0 NO ERROR IN ABOVE ASSEMBLY.
ARCHIV BCD 02/08/69 2405.0 40680 00000
1 MAD PROGRAM LISTING ... ... ... FILE ARCHV MAD 11/25/68 2032.6
-
LM00001
ARCHIV COMMAND--DON WAGNER 9 SEPT 1965 LM00002
MODIFIED BY R. ROACH 9/27/68 LM00003
LM00004
LM00005
LOADING-- 'ARCHV MAD' HAS TWO INSERTS, LM00006
'ASUBS MAD' AND 'AFORM MAD'. LM00007
MAD ARCHV LM00008
LAED NCLOAD ARCHV (SRCH) XLIBE LM00009
SAVE ARCHIV LM00010
RENAME ARCHIV SAVED ARCHIV TSSDC. LM00011
LM00012
INITIALIZATION LM00013
LM00014
WHENEVER COMARG.(1).A.77K.E.77K *001 LM00015
PRMESS.( $ARCHIV KEY NM1 NM2 FL1 FL2 ...$) *002 LM00016
PRMESS.($WHERE KEY = COMBIN, TABLE, PRINT, DELETE, REPLAC$) *003 LM00017
PRMESS.($XTRACT, OR UPDATE$) *004 LM00018
PRMESS.($ALL KEYS MAY BE ABBREVIATED BY FIRST LETTER.$) *005 LM00019
OUT CHNCOM.(0) *006 LM00020
END OF CONDITIONAL *007 LM00021
KEY=COMARG.(1) *008 LM00022
WHENEVER KEY .E. $ TOFF$ *009 LM00023
TOFF = 1B *010 LM00024
BOOLEAN TOFF *011 LM00025
VECTOR VALUES TOFF = 0B *012 LM00026
KEY = $ T$ *013 LM00027
END OF CONDITIONAL *014 LM00028
WHENEVER KEY .E. $ TON$ *015 LM00029
TON = 1B *016 LM00030
KEY = $ T$ *017 LM00031
BOOLEAN TON *018 LM00032
VECTOR VALUES TON = 0B *019 LM00033
END OF CONDITIONAL *020 LM00034
NM1=COMARG.(2) *021 LM00035
NM2=COMARG.(3) *022 LM00036
SETBRK.(OUT) *023 LM00037
LM00038
GETTM.(DATE,TIME) *024 LM00039
DIMENSION ANAM(2) *025 LM00040
EQUIVALENCE (NM1,ANAM(0)), (NM2,ANAM(1)) *026 LM00041
WHENEVER NM1.A.77K.E.77K .OR. NM2.A.77K.E.77K *027 LM00042
PRMESS.($NOT ENOUGH ARGUMENTS$) *028 LM00043
CHNCOM.(0) *029 LM00044
END OF CONDITIONAL *030 LM00045
LM00046
FILTAB IS A TABLE OF SPECIFIED FILES. LM00047
FILTAB(0) CONTAINS COUNT. LM00048
LM00049
WHENEVER NM2.E.$SOURCE$.OR.NM2.E.$ARCHIV$ *031 LM00050
NAMTYP=1B *032 LM00051
THROUGH IN00, FOR FILTAB=0,2,COMARG.(FILTAB+4).A.77K.E.77K *033 LM00052
1 .OR.FILTAB.E.FILTBZ *033 LM00053
FILTAB(FILTAB+1)=COMARG.(FILTAB+4) *034 LM00054
WHENEVER COMARG.(FILTAB+5).A.77K.E.77K *035 LM00055
PRMESS.( $LAST ARGUMENT INCOMPLETE, RETYPE REQUEST$) *036 LM00056
CHNCOM.(0) *037 LM00057
OTHERWISE *038 LM00058
FILTAB(FILTAB+2)=COMARG.(FILTAB+5) *039 LM00059
END OF CONDITIONAL *040 LM00060
IN00 CONTINUE *041 LM00061
OTHERWISE *042 LM00062
NAMTYP=0B *043 LM00063
THROUGH IN01, FOR FILTAB=0,1,COMARG.(FILTAB+4).A.77K.E.77K *044 LM00064
1 .OR. FILTAB.E.FILTBZ *044 LM00065
IN01 FILTAB(FILTAB+1)=COMARG.(FILTAB+4) *045 LM00066
END OF CONDITIONAL *046 LM00067
LM00068
TEMPORARY FILE NAME IS PROB PROG LM00069
LM00070
WHOAMI.(WHBUF(8)...8) *047 LM00071
DIMENSION WHBUF(8) *048 LM00072
DIMENSION TFIL(2) *049 LM00073
TM1=WHBUF(8) *050 LM00074
TM2=WHBUF(7) *051 LM00075
EQUIVALENCE (TM1,TFIL(0)), (TM2,TFIL(1)) *052 LM00076
LM00077
COMBIN--MAKE ORIGINAL ARCHIV LM00078
LM00079
WHENEVER KEY.E.$COMBIN$ .OR. KEY.E.$ C$ *053 LM00080
FSTATE.(NM1,NM2,FSBUF(8)...8,CM01) *054 LM00081
WHENEVER NAMTYP *055 LM00082
THROUGH CMP1A, FOR I=1,2,I.G.FILTAB *056 LM00083
CMP1A WHENEVER FILTAB(I).E.NM1.AND.FILTAB(I+1).E.NM2, TRANSFER TO CM01 *057 LM00084
OTHERWISE *058 LM00085
THROUGH CMP1B, FOR I = 1,1,I.G.FILTAB *059 LM00086
CMP1B WHENEVER FILTAB(I).E.NM1, TRANSFER TO CM01 *060 LM00087
END OF CONDITIONAL *061 LM00088
PRMESS.($ YOU HAVE NOT INCLUDED THE OLD$,NM1,NM2,$.$) *062 LM00089
PRMESA.($ IS THIS OK,$) *063 LM00090
WHENEVER .NOT. YES.(0), TRANSFER TO FORGET *064 LM00091
CM01 CONTINUE *065 LM00092
WHENEVER NAMTYP *066 LM00093
THROUGH CM03A, FOR FILTBP=1,2,FILTBP.G.FILTAB *067 LM00094
WHENEVER .NOT.CPFIL.(FILTAB(FILTBP),FILTAB(FILTBP+1)), *068 LM00095
1 PRNTER.(61K) *068 LM00096
CM03A CONTINUE *069 LM00097
OTHERWISE *070 LM00098
THROUGH CM03, FOR FILTBP=1,1,FILTBP.G.FILTAB *071 LM00099
WHENEVER .NOT. CPFIL.(FILTAB(FILTBP),NM2), *072 LM00100
1 PRNTER.(61K) *072 LM00101
CM03 CONTINUE *073 LM00102
END OF CONDITIONAL *074 LM00103
WHENEVER TMOPSW, CLS.(NM1,NM2) *075 LM00104
TRANSFER TO EXT *076 LM00105
FORGET PRMESS.($NOTHING DONE.$) *077 LM00106
CHNCOM.(0) *078 LM00107
LM00108
TABLE--PRINT TABLE OF CONTENTS. LM00109
LM00110
OR WHENEVER KEY.E.$ TABLE$ .OR. KEY.E.$ T$ *079 LM00111
COPYSW=0B *080 LM00112
PRSSW=0B *081 LM00113
VECTOR VALUES BL = 605757575757K *082 LM00114
VECTOR VALUES CR = 555757575757K *083 LM00115
TB01 WHENEVER FILTAB.E.0 *084 LM00116
GNEXT.(TFNF) *085 LM00117
WHENEVER FIRST *086 LM00118
FIRST = 0B *087 LM00119
WHENEVER TOFF, OFF.($ARCHIV$,$OUTPUT$) *088 LM00120
WHENEVER TON, OFFON.($ARCHIV$,$OUTPUT$) *089 LM00121
PRMESS. *090 LM00122
PRMESS.($ ***$,NM1,BL,NM2,BL,BL,DATE,BL,TIME) *091 LM00123
PRMESS. *092 LM00124
END OF CONDITIONAL *093 LM00125
BOOLEAN FIRST *094 LM00126
VECTOR VALUES FIRST = 1B *095 LM00127
OTHERWISE *096 LM00128
SEARCH.(TFNF) *097 LM00129
WHENEVER FIRST *098 LM00130
FIRST = 0B *099 LM00131
WHENEVER TOFF, OFF.($ARCHIV$,$OUTPUT$) *100 LM00132
WHENEVER TON, OFFON.($ARCHIV$,$OUTPUT$) *101 LM00133
END OF CONDITIONAL *102 LM00134
END OF CONDITIONAL *103 LM00135
TEMP = INF2-INF1 *104 LM00136
PRMESS.(BL,PRLNMK(INF1),BL,PRLNMK(INF1-1)...TEMP) *105 LM00137
TRANSFER TO TB01 *106 LM00138
LM00139
TFNF PRMESS. *107 LM00140
TRANSFER TO FNF *108 LM00141
LM00142
DELETE--REMOVE ENTRIES LM00143
LM00144
OR WHENEVER KEY.E.$DELETE$ .OR. KEY.E.$ D$ *109 LM00145
DL01 COPYSW=1B *110 LM00146
PRSSW=1B *111 LM00147
WMRKSW=1B *112 LM00148
SEARCH.(REN) *113 LM00149
COPYSW=0B *114 LM00150
GNEXT.(REN) *115 LM00151
TRANSFER TO DL01 *116 LM00152
LM00153
XTRACT- LM00154
LM00155
OR WHENEVER KEY.E.$XTRACT$ .OR. KEY.E.$ X$ .OR. KEY.E.$ XT$ *117 LM00156
XT01 COPYSW=0B *118 LM00157
PRSSW=1B *119 LM00158
WHENEVER FILTAB.NE.0 *120 LM00159
SEARCH.(FNF) *121 LM00160
OTHERWISE *122 LM00161
WHENEVER .NOT. GOTNXT, GNEXT.(FNF) *123 LM00162
END OF CONDITIONAL *124 LM00163
NW1=FLN1.(PRLNMK) *125 LM00164
NW2=FLN2.(PRLNMK) *126 LM00165
COPYSW=1B *127 LM00166
WMRKSW=0B *128 LM00167
GNEXT.(XT02) *129 LM00168
GOTNXT=1B *130 LM00169
TRANSFER TO XT03 *131 LM00170
XT02 NAMO=1B *132 LM00171
XT03 WHENEVER CLS.(NW1,NW2) *133 LM00172
WHENEVER KEY.E.$ XT$, CHFILE.(NW1,NW2,001K,-0,-0) *134 LM00173
END OF CONDITIONAL *135 LM00174
WHENEVER NAMO,TRANSFER TO FNF *136 LM00175
TRANSFER TO XT01 *137 LM00176
LM00177
REPLAC LM00178
LM00179
OR WHENEVER KEY.E.$REPLAC$ .OR. KEY.E.$ R$ .OR. KEY.E.$ RD$ *138 LM00180
RP01 COPYSW=1B *139 LM00181
PRSSW=1B *140 LM00182
WMRKSW=1B *141 LM00183
WHENEVER FILTAB.NE.0 *142 LM00184
SEARCH.(RP02) *143 LM00185
OTHERWISE *144 LM00186
WHENEVER .NOT. GOTNXT, GNEXT.(RP02) *145 LM00187
END OF CONDITIONAL *146 LM00188
GOTNXT=0B *147 LM00189
WHENEVER .NOT. CPFIL.(FLN1.(PRLNMK),FLN2.(PRLNMK)) *148 LM00190
PRNTER.(61K) *149 LM00191
COPYSW=1B *150 LM00192
OTHERWISE *151 LM00193
WHENEVER DELST.L.DELSTZ *152 LM00194
DELST=DELST+1 *153 LM00195
DELST1(DELST)=FLN1.(PRLNMK) *154 LM00196
DELST2(DELST)=FLN2.(PRLNMK) *155 LM00197
END OF CONDITIONAL *156 LM00198
COPYSW=0B *157 LM00199
END OF CONDITIONAL *158 LM00200
GNEXT.(RP02) *159 LM00201
GOTNXT=1B *160 LM00202
TRANSFER TO RP01 *161 LM00203
RP02 WHENEVER NAMTYP *162 LM00204
TYP=1 *163 LM00205
OTHERWISE *164 LM00206
TYP=0 *165 LM00207
END OF CONDITIONAL *166 LM00208
THROUGH RP03, FOR JI=1,1,JI+TYP*(JI-1).G.FILTAB *167 LM00209
WHENEVER NAMTYP *168 LM00210
JJ=2*JI-1 *169 LM00211
CNM2=FILTAB(JJ+1) *170 LM00212
OTHERWISE *171 LM00213
JJ=JI *172 LM00214
CNM2=NM2 *173 LM00215
END OF CONDITIONAL *174 LM00216
WHENEVER .NOT. FILFND(JI) *175 LM00217
PRMESS.(FILTAB(JJ),BL,CNM2,$ ADDED$,606346605757K,NM1,BL,NM2) *176 LM00218
WHENEVER .NOT. CPFIL.(FILTAB(JJ),CNM2) *177 LM00219
PRNTER.(61K) *178 LM00220
OTHERWISE *179 LM00221
FILFND(JI)=1B *180 LM00222
WHENEVER DELST.L.DELSTZ *181 LM00223
DELST=DELST+1 *182 LM00224
DELST1(DELST)=FILTAB(JJ) *183 LM00225
DELST2(DELST)=CNM2 *184 LM00226
END OF CONDITIONAL *185 LM00227
END OF CONDITIONAL *186 LM00228
RP03 END OF CONDITIONAL *187 LM00229
WHENEVER CLS.(NM1,NM2) *188 LM00230
WHENEVER KEY.E.$ RD$ *189 LM00231
THROUGH RPD01, FOR I=1,1,I.G.DELST *190 LM00232
RPD01 DELT.(DELST1(I),DELST2(I)) *191 LM00233
END OF CONDITIONAL *192 LM00234
END OF CONDITIONAL *193 LM00235
TRANSFER TO EXT *194 LM00236
BOOLEAN GOTNXT *195 LM00237
DIMENSION DELST1(100), DELST2(100) *196 LM00238
VECTOR VALUES DELSTZ=100 *197 LM00239
LM00240
UPDATE--CONDITIONAL REPLAC LM00241
LM00242
OR WHENEVER KEY.E.$UPDATE$ .OR. KEY.E.$ U$ *198 LM00243
UP01 COPYSW=1B *199 LM00244
PRSSW=1B *200 LM00245
WMRKSW=1B *201 LM00246
WHENEVER FILTAB.NE.0 *202 LM00247
SEARCH.(REN) *203 LM00248
OTHERWISE *204 LM00249
WHENEVER .NOT. GOTNXT, GNEXT.(REN) *205 LM00250
END OF CONDITIONAL *206 LM00251
FSTATE.(FLN1.(PRLNMK),FLN2.(PRLNMK),FSBUF(8)...8,UP02) *207 LM00252
WHENEVER FSBUF(2).A.377777777777K.G.DATTM.(PRLNMK).A.377777777777K *208 LM00253
TEMP = INF2-INF1 *209 LM00254
PRMESS.(PRLNMK(INF1),BL,PRLNMK(INF1-1)...TEMP) *210 LM00255
COPYSW=0B *211 LM00256
WHENEVER .NOT. CPFIL.(FLN1.(PRLNMK),FLN2.(PRLNMK)), COPYSW=1B *212 LM00257
OTHERWISE *213 LM00258
UP02 COPYSW=1B *214 LM00259
END OF CONDITIONAL *215 LM00260
GNEXT.(REN) *216 LM00261
GOTNXT=1B *217 LM00262
TRANSFER TO UP01 *218 LM00263
LM00264
PRINT LM00265
LM00266
OR WHENEVER KEY .E.$ PRINT$ .OR. KEY.E.$ P$ *219 LM00267
SAVBRK. *220 LM00268
SETBRK.(EXT) *221 LM00269
PRP1 COPYSW=0B *222 LM00270
PRSSW=0B *223 LM00271
WHENEVER FILTAB.NE.0 *224 LM00272
SEARCH.(SPC) *225 LM00273
OTHERWISE *226 LM00274
GNEXT.(SPC) *227 LM00275
END OF CONDITIONAL *228 LM00276
PRMESS. *229 LM00277
TEMP = INF2-INF1 - 1 *230 LM00278
PRMESS.(PRLNMK(INF1)...TEMP) *231 LM00279
PRMESS. *232 LM00280
CT=CNT.(PRLNMK) *233 LM00281
THROUGH PR02, FOR I=0,0,I.GE.CT *234 LM00282
BFREAD.(NM1,NM2,PRTBUF(PRTZ)...1, *235 LM00283
1 FRMER,EOFCT,GERR) *235 LM00284
I=I+1 *236 LM00285
WHENEVER PRTBUF(PRTZ).A.777777K6 .E. 777777K6 *237 LM00286
WCT=PRTBUF(PRTZ).A.777777K *238 LM00287
WHENEVER WCT.E.0,PRMESS. *239 LM00288
THROUGH PR01, FOR J=PRTZ,PRTZ,J.G.WCT *240 LM00289
BFREAD.(NM1,NM2,PRTBUF(PRTZ)...PRTZ, *241 LM00290
1 FRMER,EOFCT,GERR) *241 LM00291
TEMP = -PRTZ *242 LM00292
PR01 PRMESS.(PRTBUF(PRTZ)...TEMP) *243 LM00293
RMNT=PRTZ-(J-WCT) *244 LM00294
WHENEVER RMNT.NE.0 *245 LM00295
BFREAD.(NM1,NM2,PRTBUF(RMNT)...RMNT, *246 LM00296
1 FRMER,EOFCT,GERR) *246 LM00297
TEMP = -RMNT *247 LM00298
PRMESS.(PRTBUF(RMNT)...TEMP) *248 LM00299
END OF CONDITIONAL *249 LM00300
I=I+WCT *250 LM00301
OTHERWISE *251 LM00302
BFREAD.(NM1,NM2,PRTBUF(PRTZ-1)...13, *252 LM00303
1 FRMER,EOFCT,GERR) *252 LM00304
I=I+13 *253 LM00305
TEMP1 = (PRTBUF(PRTZ-13).A.7777K8).V.60575757K *254 LM00306
TEMP = -11 *255 LM00307
PRMESS.(PRTBUF(PRTZ-12),TEMP1,PRTBUF(PRTZ)...TEMP) *256 LM00308
PR02 END OF CONDITIONAL *257 LM00309
ADJSW=1B *258 LM00310
TRANSFER TO PRP1 *259 LM00311
DIMENSION PRTBUF(22) *260 LM00312
VECTOR VALUES PRTZ=22 *261 LM00313
LM00314
ERROR LM00315
LM00316
OTHERWISE *262 LM00317
PRMESS.(KEY,$ -- NOT A VALID ARGUMENT.$) *263 LM00318
CHNCOM.(0) *264 LM00319
END OF CONDITIONAL *265 LM00320
LM00321
GRACEFUL EXIT LM00322
LM00323
SPC PRMESS. *266 LM00324
TRANSFER TO FNF *267 LM00325
REN CLS.(NM1,NM2) *268 LM00326
FNF WHENEVER NAMTYP *269 LM00327
THROUGH FN01A, FOR I = 1,1,I.G.FILTAB/2 *270 LM00328
WHENEVER .NOT.FILFND(I) *271 LM00329
PRMESS.(FILTAB(2*I-1),BL,FILTAB(2*I),$ NOT FOUND I$, *272 LM00330
1 456057575757K,NM1,BL,NM2) *272 LM00331
FN01A END OF CONDITIONAL *273 LM00332
OTHERWISE *274 LM00333
THROUGH FNO1B, FOR I=1,1,I.G.FILTAB *275 LM00334
WHENEVER .NOT.FILFND(I) *276 LM00335
PRMESS.(FILTAB(I),BL,NM2,$ NOT FOUND I$,456057575757K, *277 LM00336
1 NM1,BL,NM2) *277 LM00337
FNO1B END OF CONDITIONAL *278 LM00338
END OF CONDITIONAL *279 LM00339
EXT CHNCOM.(0) *280 LM00340
PRMESS.($FRAM$) *281 LM00341
PRMESS.($NOTIFY SYSTEMS STAFF$) *282 LM00342
DORMNT. *283 LM00343
LM00344
ASUBS CONTAINS INTERNAL FUNCTIONS SEARCH., GNEXT., CPFIL., LM00345
CLS., YES. LM00346
AFORM CONTAINS INTERNAL FUNCTIONS MKLNMK., BDLNMK., DATTM., LM00347
FLN1., FLN2., CNT. LM00348
AFORM CONTAINS ALL INFORMATION ON THE ACTUAL LINE MARK FORMA LM00349
LM00350
INSERT FILE ASUBS *284 LM00351
SEARCH. FINDS THE NEXT 'SUPER LINE MARK' WHOSE *284 LM00001
NAME IS IN THE TABLE FILTAB SET UP DURING *284 LM00002
INITIALIZATION. *284 LM00003
*284 LM00004
THE SEARCH WILL INCLUDE PRLNMK, THE PRESENT LINE MARK, *284 LM00005
IFF PRSSW.E.1B *284 LM00006
*284 LM00007
INTERNAL FUNCTION (EOFXT) *285 LM00008
STATEMENT LABEL EOFXT *286 LM00009
ENTRY TO SEARCH. *287 LM00010
WHENEVER NAMTYP *288 LM00011
WHENEVER .NOT. COPYSW *289 LM00012
THROUGH SR00A, FOR I=1,1,I.G.FILTAB *290 LM00013
SR00A WHENEVER .NOT. FILFND(I), TRANSFER TO SRP0A *291 LM00014
BFCLOS.(NM1,NM2,GERR) *292 LM00015
AROPSW=0B *293 LM00016
TRANSFER TO EOFXT *294 LM00017
END OF CONDITIONAL *295 LM00018
SRP0A CONTINUE *296 LM00019
WHENEVER PRSSW.AND.AROPSW, TRANSFER TO SR02A *297 LM00020
SR01A GNEXT.(EOFXT) *298 LM00021
SR02A THROUGH SR03A, FOR FILTBP=1,2,FILTBP.G.FILTAB *299 LM00022
PNTR=(FILTBP+1)/2 *300 LM00023
WHENEVER FLN1.(PRLNMK).E.FILTAB(FILTBP) *301 LM00024
1 .AND.FLN2.(PRLNMK).E.FILTAB(FILTBP+1) *301 LM00025
2 .AND..NOT.FILFND(PNTR) *301 LM00026
FILFND(PNTR)=1B *302 LM00027
FUNCTION RETURN *303 LM00028
SR03A END OF CONDITIONAL *304 LM00029
TRANSFER TO SR01A *305 LM00030
OTHERWISE *306 LM00031
WHENEVER .NOT.COPYSW *307 LM00032
THROUGH SR00, FOR I=1,1,I.G.FILTAB *308 LM00033
SR00 WHENEVER .NOT.FILFND(I), TRANSFER TO SRP0 *309 LM00034
BFCLOS.(NM1,NM2,GERR) *310 LM00035
AROPSW=0B *311 LM00036
TRANSFER TO EOFXT *312 LM00037
END OF CONDITIONAL *313 LM00038
SRP0 CONTINUE *314 LM00039
WHENEVER PRSSW.AND.AROPSW, TRANSFER TO SR02 *315 LM00040
SR01 GNEXT.(EOFXT) *316 LM00041
SR02 WHENEVER FLN2.(PRLNMK).NE.NM2 *317 LM00042
TRANSFER TO SR01 *318 LM00043
OTHERWISE *319 LM00044
THROUGH SR03, FOR FILTBP=1,1,FILTBP.G.FILTAB *320 LM00045
WHENEVER FLN1.(PRLNMK).E.FILTAB(FILTBP) *321 LM00046
1 .AND..NOT.FILFND(FILTBP) *321 LM00047
FILFND(FILTBP)=1B *322 LM00048
FUNCTION RETURN *323 LM00049
SR03 END OF CONDITIONAL *324 LM00050
TRANSFER TO SR01 *325 LM00051
END OF CONDITIONAL *326 LM00052
END OF CONDITIONAL *327 LM00053
END OF FUNCTION *328 LM00054
LM00055
GNEXT. FINDS THE NEXT 'SUPER LINE MARK,' READING LM00056
SERIALLY THROUGH THE ARCHIV FILE AND COPYING IT LM00057
INTO THE TEMPORARY FILE IFF COPYSW.E.1B. LM00058
PRLNMK, THE PRESENT LINE MARK, IS COPIED IFF WMRKSW.E.1B LM00059
LM00060
INTERNAL FUNCTION (EOFXT) *329 LM00061
STATEMENT LABEL EOFXT *330 LM00062
ENTRY TO GNEXT. *331 LM00063
WHENEVER .NOT. AROPSW *332 LM00064
BFOPEN.($R$,NM1,NM2,BUF1(BUFZ),BUF2(BUFZ),-0,GERR) *333 LM00065
BFREAD.(NM1,NM2,PRLNMK(LMKZ)...LMKZ,FRMER,EOFCT,GERR) *334 LM00066
WHENEVER BDLNMK.(PRLNMK) *335 LM00067
WHENEVER PRLNMK(LMKZ).E.555555555555K *336 LM00068
PRINT COMMENT $ARCHIV FILE HAS OLD FORMAT.$ *337 LM00069
PRINT COMMENT $USE NWARCH SAVED IN PUBLIC FILE TO R *338 LM00070
1 EFORMAT.$ *338 LM00071
PRINT COMMENT $LINK NWARCH SAVED M1416 CMFL04$ *339 LM00072
PRINT COMMENT $RESUME NWARCH$ *340 LM00073
PRINT COMMENT $FOR INSTRUCTIONS.$ *341 LM00074
CHNCOM.(0) *342 LM00075
OTHERWISE *343 LM00076
TRANSFER TO FRMER *344 LM00077
END OF CONDITIONAL *345 LM00078
END OF CONDITIONAL *346 LM00079
AROPSW=1B *347 LM00080
FUNCTION RETURN *348 LM00081
END OF CONDITIONAL *349 LM00082
WHENEVER COPYSW .AND. .NOT. TMOPSW *350 LM00083
DELETE.(TM1,TM2,0,OUT) *351 LM00084
BFOPEN.($W$,TM1,TM2,BUF3(BUFZ),BUF4(BUFZ),BUF5(BUFZ), *352 LM00085
1 GERR) *352 LM00086
TMOPSW=1B *353 LM00087
END OF CONDITIONAL *354 LM00088
WHENEVER COPYSW .AND. WMRKSW *355 LM00089
BFWRIT.(TM1,TM2,PRLNMK(LMKZ)...LMKZ,GERR) *356 LM00090
END OF CONDITIONAL *357 LM00091
WHENEVER .NOT. ADJSW *358 LM00092
AFZ=CNT.(PRLNMK) *359 LM00093
THROUGH COPY, FOR I=CPBUFZ,CPBUFZ,I.G.AFZ *360 LM00094
BFREAD.(NM1,NM2,CPBUF(CPBUFZ)...CPBUFZ, *361 LM00095
1 FRMER,EOFCT,GERR) *361 LM00096
WHENEVER COPYSW *362 LM00097
BFWRIT.(TM1,TM2,CPBUF(CPBUFZ)...CPBUFZ,GERR) *363 LM00098
END OF CONDITIONAL *364 LM00099
COPY CONTINUE *365 LM00100
REMN=CPBUFZ-(I-AFZ) *366 LM00101
WHENEVER REMN.NE.0 *367 LM00102
BFREAD.(NM1,NM2,CPBUF(REMN)...REMN, *368 LM00103
1 FRMER,EOFCT,GERR) *368 LM00104
WHENEVER COPYSW *369 LM00105
BFWRIT.(TM1,TM2,CPBUF(REMN)...REMN,GERR) *370 LM00106
END OF CONDITIONAL *371 LM00107
END OF CONDITIONAL *372 LM00108
END OF CONDITIONAL *373 LM00109
BFREAD.(NM1,NM2,PRLNMK(LMKZ)...LMKZ,EOF,EOFCT,GERR) *374 LM00110
WHENEVER BDLNMK.(PRLNMK),TRANSFER TO FRMER *375 LM00111
ADJSW=0B *376 LM00112
FUNCTION RETURN *377 LM00113
EOF BFCLOS.(NM1,NM2,GERR) *378 LM00114
AROPSW=0B *379 LM00115
TRANSFER TO EOFXT *380 LM00116
FRMER PRMESS.($ARCHIV FORMAT ERROR IN$,NM1,BL,NM2) *381 LM00117
BFCLOS.($ ALL$,-0,GERR) *382 LM00118
CHNCOM.(1) *383 LM00119
GERR PRNTER.(61K) *384 LM00120
CHNCOM.(1) *385 LM00121
END OF FUNCTION *386 LM00122
LM00123
CPFIL.(A,B) COPIES FILE A B INTO THE TEMPORARY FILE. LM00124
CPFIL. ALWAYS MAKES THE LINE MARK NWLNMK AND WRITES LM00125
IT AT THE BEGINNING OF THE ENTRY UNLESS THE FILE IS AN LM00126
ARCHIV FILE ALREADY. LM00127
LM00128
RETURNS 1B IFF SUCCESSFUL LM00129
LM00130
BOOLEAN CPFIL. *387 LM00131
INTERNAL FUNCTION(A,B) *388 LM00132
ENTRY TO CPFIL. *389 LM00133
WHENEVER .NOT. MKLNMK.(A,B,CT) *390 LM00134
FUNCTION RETURN 0B *391 LM00135
OTHERWISE *392 LM00136
WHENEVER .NOT. TMOPSW *393 LM00137
DELETE.(TM1,TM2,0,OUT) *394 LM00138
BFOPEN.($W$,TM1,TM2,BUF3(BUFZ),BUF4(BUFZ), *395 LM00139
1 BUF5(BUFZ),GERR) *395 LM00140
TMOPSW=1B *396 LM00141
END OF CONDITIONAL *397 LM00142
BFOPEN.($R$,A,B,BUF6(BUFZ),BUF7(BUFZ),-0,GERR) *398 LM00143
FRSTSW=1B *399 LM00144
THROUGH CPF01, FOR I=CPBUFZ,CPBUFZ,I.G.CT *400 LM00145
BFREAD.(A,B,CPBUF(CPBUFZ)...CPBUFZ, *401 LM00146
1 CPFEF,EOFCT,GERR) *401 LM00147
WHENEVER BDLNMK.(CPBUF(CPBUFZ-LMKZ)) .AND. FRSTSW *402 LM00148
BFWRIT.(TM1,TM2,NWLNMK(LMKZ)...LMKZ,GERR) *403 LM00149
END OF CONDITIONAL *404 LM00150
FRSTSW=0B *405 LM00151
CPF01 BFWRIT.(TM1,TM2,CPBUF(CPBUFZ)...CPBUFZ,GERR) *406 LM00152
REMN=CPBUFZ-(I-CT) *407 LM00153
BFREAD.(A,B,CPBUF(REMN)...REMN,CPFEF,EOFCT,GERR) *408 LM00154
WHENEVER BDLNMK.(CPBUF(REMN-LMKZ)) .AND. FRSTSW *409 LM00155
BFWRIT.(TM1,TM2,NWLNMK(LMKZ)...LMKZ,GERR) *410 LM00156
END OF CONDITIONAL *411 LM00157
BFWRIT.(TM1,TM2,CPBUF(REMN)...REMN,GERR) *412 LM00158
BFCLOS.(A,B,GERR) *413 LM00159
FUNCTION RETURN 1B *414 LM00160
END OF CONDITIONAL *415 LM00161
CPFEF PRINT COMMENT $ERROR IN FSTATE.--NOTIFY SYSTEMS STAFF.$ *416 LM00162
PRINT COMMENT $DORMNT CALLED$ *417 LM00163
DORMNT. *418 LM00164
END OF FUNCTION *419 LM00165
NORMAL MODE IS INTEGER *420 LM00166
BOOLEAN COPYSW, PRSSW, WMRKSW, AROPSW, TMOPSW, FRSTSW *421 LM00167
BOOLEAN NAMO, ADJSW, NAMTYP *422 LM00168
VECTOR VALUES BUFZ=432 *423 LM00169
DIMENSION BUF1(432), BUF2(432), BUF3(432), BUF4(432), BUF5(432), *424 LM00170
1 BUF6(432), BUF7(432) *424 LM00171
DIMENSION CPBUF(432) *425 LM00172
VECTOR VALUES CPBUFZ=432 *426 LM00173
VECTOR VALUES FILTBZ=16 *427 LM00174
DIMENSION FILTAB(16) *428 LM00175
BOOLEAN FILFND *429 LM00176
DIMENSION FILFND(16) *430 LM00177
LM00178
CLS.(A,B) CLOSES THE TEMPORARY FILE AND RENAMES IT A B LM00179
LM00180
BOOLEAN CLS. *431 LM00181
INTERNAL FUNCTION (A,B) *432 LM00182
ENTRY TO CLS. *433 LM00183
WHENEVER TMOPSW *434 LM00184
BFCLOS.(TM1,TM2,GERR) *435 LM00185
TMOPSW=0B *436 LM00186
DIMENSION FNM(2) *437 LM00187
FNM(0)=A *438 LM00188
FNM(1)=B *439 LM00189
FSTATE.(A,B,FSBUF(8)...8,NFND) *440 LM00190
EQUIVALENCE (MODE,FSBUF(7)) *441 LM00191
MODE=MODE.A.134K *442 LM00192
CL01 DELETE.(A,B,0,NDEL1) *443 LM00193
CHFILE.(TM1,TM2,-0,A,B) *444 LM00194
WHENEVER MODE.NE.000K .AND. KEY.NE.$ XT$ *445 LM00195
CHFILE.(A,B,MODE,-0,-0) *446 LM00196
MODEP = (OCRBC.(MODE).A.777777K).V.575757K6 *447 LM00197
PRMESS.(A,BL,B,BL,$CREATED IN '$,MODEP,$' MODE.$) *448 LM00198
END OF CONDITIONAL *449 LM00199
FUNCTION RETURN 1B *450 LM00200
NDEL1 FUNCTION RETURN 0B *451 LM00201
OTHERWISE *452 LM00202
FUNCTION RETURN 0B *453 LM00203
END OF CONDITIONAL *454 LM00204
NFND MODE=000K *455 LM00205
TRANSFER TO CL01 *456 LM00206
END OF FUNCTION *457 LM00207
LM00208
LM00209
YES. READS A LINE AND RETURNS 1B IFF IT IS 'YES' LM00210
LM00211
BOOLEAN YES. *458 LM00212
INTERNAL FUNCTION *459 LM00213
ENTRY TO YES. *460 LM00214
RDFLXC.(YESNO,6) *461 LM00215
WHENEVER YESNO.E.$YES $ *462 LM00216
FUNCTION RETURN 1B *463 LM00217
OTHERWISE *464 LM00218
FUNCTION RETURN 0B *465 LM00219
END OF CONDITIONAL *466 LM00220
END OF FUNCTION *467 LM00221
LM00222
DELT. DELETES A FILE AND TELLS YOU ABOUT IT. LM00223
RETURNS 1B IFF SUCCESSFUL. LM00224
LM00225
BOOLEAN DELT. *468 LM00226
INTERNAL FUNCTION (A,B) *469 LM00227
ENTRY TO DELT. *470 LM00228
FNM(0)=A *471 LM00229
FNM(1)=B *472 LM00230
DELETE.(A,B,0,NOTDEL) *473 LM00231
PRMESS.(A,BL,B,$ DELETED.$) *474 LM00232
FUNCTION RETURN 1B *475 LM00233
NOTDEL PRMESS.(A,BL,B,$ NOT DELETED.$) *476 LM00234
FUNCTION RETURN 0B *477 LM00235
END OF FUNCTION *478 LM00236
INSERT FILE AFORM *479 LM00352
THE FORMAT OF THE 'SUPER LINE MARK' IN ARCHIV FILES *479 LM00001
IS: *479 LM00002
777777000000K,..,..,..,777777000011K,FLN1,FLN2, *479 LM00003
$ MM/DD/YY HHMM.M $, *479 LM00004
$ZZZZZZ$,$$,$ 000$,$00 $ *479 LM00005
TOTALLING 14 WORDS, WHERE ZZZZZZ IS FILE WORD COUNT. *479 LM00006
THIS INFORMATION SHLD NOT BE KNOWN ANYWHERE IN THE PROGRAM *479 LM00007
EXCEPT IN THE FLLWING INTERNAL FUNCTIONS AND V'S STATEMENTS. *479 LM00008
*479 LM00009
MKLNMK.(A,B,CT) MAKS A LINE MARK FOR A B IN NWLNMK AND SETS *479 LM00010
CT=FILE SIZE IN WORDS. MKLNMK CALLS FSTATE. *479 LM00011
*479 LM00012
MKLNMK. RETURNS 1B IFF FILE EXISTS. *479 LM00013
*479 LM00014
BOOLEAN MKLNMK. *480 LM00015
INTERNAL FUNCTION (A,B,CT) *481 LM00016
ENTRY TO MKLNMK. *482 LM00017
OLDERR=FERRTN.(NTFND) *483 LM00018
FSTATE.(A,B,FSBUF(8)...8) *484 LM00019
FERRTN.(OLDERR) *485 LM00020
CT=FSBUF(8) *486 LM00021
VECTOR VALUES NWLNMK(11)...NWLNMK(14)=777777000000K *487 LM00022
VECTOR VALUES NWLNMK(10)=777777000011K *488 LM00023
NWLNMK(9)=A *489 LM00024
NWLNMK(8)=B *490 LM00025
WHENEVER .NOT. GOTTM *491 LM00026
BOOLEAN GOTTM *492 LM00027
GETTM.(PDATE,PTIME) *493 LM00028
NWLNMK(7)=(PDATE.RS.6).V.$ 00000$ *494 LM00029
NWLNMK(6) = (DEFBC.(GTDYTM.(0).RS.27).LS.18) *495 LM00030
1 .V.(PTIME.RS.24) *495 LM00031
2 .V.$/00 00$ *495 LM00032
LM00033
NWLNMK(5)=(PTIME.LS.12).V.$0000 $ *496 LM00034
GOTTM=1B *497 LM00035
END OF CONDITIONAL *498 LM00036
NWLNMK(4)=BZEL.(DEFBC.(FSBUF(8))) *499 LM00037
VECTOR VALUES NWLNMK(3)=$ $ *500 LM00038
VECTOR VALUES NWLNMK(2)=$ 000$ *501 LM00039
VECTOR VALUES NWLNMK(1)=$00 $ *502 LM00040
FUNCTION RETURN 1B *503 LM00041
NTFND FERRTN.(OLDERR) *504 LM00042
FUNCTION RETURN 0B *505 LM00043
END OF FUNCTION *506 LM00044
LM00045
BDLNMK.(LMK) RETURNS 1B IF LMK(LMKZ)...LMKZ IS 'BAD,' LM00046
THAT IS, NOT A VALID LINE MARK. LM00047
LM00048
BOOLEAN BDLNMK. *507 LM00049
INTERNAL FUNCTION(LMK) *508 LM00050
ENTRY TO BDLNMK. *509 LM00051
WHENEVER (LMK(14).NE.777777000000K .AND. LMK(14).NE.0) *510 LM00052
1 .OR.LMK(13).NE.777777000000K *510 LM00053
2 .OR.LMK(12).NE.777777000000K *510 LM00054
3 .OR.LMK(11).NE.777777000000K *510 LM00055
4 .OR.LMK(10).NE.777777000011K *510 LM00056
5 .OR.LMK(7).A.776060776060K .NE. $ 00/00$ *510 LM00057
6 .OR.LMK(6).A.776060776060K .NE. $/00 00$ *510 LM00058
7 .OR.LMK(5).A.606077607777K .NE. $00.0 $ *510 LM00059
8 .OR.LMK(4).A.60K.NE.0 *510 LM00060
FUNCTION RETURN 1B *511 LM00061
OTHERWISE *512 LM00062
FUNCTION RETURN 0B *513 LM00063
END OF CONDITIONAL *514 LM00064
END OF FUNCTION *515 LM00065
LM00066
THE FOLLOWING DINK ROUTINES GET VARIOUS PIECES LM00067
OF INFORMATION OUT OF A LINE MARK. LM00068
LM00069
DATTM.(LMK) GETS DATE AND TIME IN FSTATE. FORMAT. LM00070
LM00071
INTERNAL FUNCTION DATTM.(LMK)= *516 LM00072
1 (BCDEC.((LMK(6).RS.18).A.7777K).LS.27).A.777K9 *516 LM00073
2 .V.(BCDEC.((LMK(7).RS.18).A.7777K).LS.23).A.74K7 *516 LM00074
3 .V.(BCDEC.(LMK(7).A.7777K).LS.18).A.37K6 *516 LM00075
4 .V.(BCDEC.(LMK(6).A.7777K)*3600 *516 LM00076
6 +BCDEC.(LMK(5).RS.24)*60 *516 LM00077
5 +BCDEC.((LMK(5).RS.12).A.77K)*6) *516 LM00078
LM00079
CNT.(LMK) GETS FILE WORD COUNT LM00080
FLN1.(LMK) AND FLN2.(LMK) GET RESPECTIVE FILE NAMES LM00081
LM00082
INTERNAL FUNCTION CNT.(LMK)=BCDEC.(LMK(4)) *517 LM00083
INTERNAL FUNCTION FLN1.(LMK)=LMK(9) *518 LM00084
INTERNAL FUNCTION FLN2.(LMK)=LMK(8) *519 LM00085
LM00086
INF1 AND INF2 ARE LIMITS OF INTEREST FOR PRINT AND TABLE. LM00087
LMKZ IS LINE MARK SIZE LM00088
PRLNMK IS 'PRESENT LINE MARK,' READ FROM ARCHIV FILE. LM00089
NWLNMK IS 'NEW LINE MARK,' GENERATED BY MKLNMK. LM00090
LM00091
VECTOR VALUES INF1=9 *520 LM00092
VECTOR VALUES INF2=4 *521 LM00093
DIMENSION PRLNMK(14), NWLNMK(14) *522 LM00094
VECTOR VALUES LMKZ=14 *523 LM00095
DIMENSION FSBUF(432) *524 LM00096
END OF PROGRAM *525 LM00353
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 14745 TRANSFER VECTOR LENGTH 00035 PROGRAM BEGINS 10555
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
ADJSW 01002 2 CR 07622 A 1 GOTTM 10214 2 OUT 00757 4 SR03A 00051 4
AFZ 01003 1 CT 07623 1 IN00 00051 4 PDATE 10252 1 SR03 00051 4
ANAM 00054 A 1 DATE 07624 1 IN01 00051 4 PNTR 10253 1 SRP0A 00771 4
AROPSW 01004 2 DELST1 07771 A 1 INF1 10215 A 1 PR01 00051 4 SRP0 00772 4
BL 01005 A 1 DELST2 10136 A 1 INF2 10216 A 1 PR02 00051 4 TB01 00773 4
BUF1 01666 A 1 DELST 10137 1 I 10217 1 PRLNMK 10272 A 1 TEMP1 10327 1
BUF2 02547 A 1 DELSTZ 10140 A 1 JI 10220 1 PRP1 00760 4 TEMP 10330 1
BUF3 03430 A 1 DL01 00744 4 JJ 10221 1 PRSSW 10273 2 TFIL 00057 A 1
BUF4 04311 A 1 EOFCT 10141 1 J 10222 1 PRTBUF 10322 A 1 TFNF 00774 4
BUF5 05172 A 1 EOF 00745 4 KEY 10223 1 PRTZ 10323 A 1 TIME 10331 1
BUF6 06053 A 1 EXT 00746 4 LMKZ 10224 A 1 PTIME 10324 1 TM1 00057 1
BUF7 06734 A 1 FILFND 10162 A 2 MODEP 10225 1 REMN 10325 1 TM2 00056 1
BUFZ 06735 A 1 FILTAB 10203 A 1 MODE 00731 1 REN 00761 4 TMOPSW 10332 2
CL01 00741 4 FILTBP 10204 1 NAMO 10226 2 RMNT 10326 1 TOFF 10333 A 2
CM01 00742 4 FILTBZ 10205 A 1 NAMTYP 10227 2 RP01 00762 4 TON 10334 A 2
CM03A 00051 4 FIRST 10206 A 2 NDEL1 00753 4 RP02 00763 4 TYP 10335 1
CM03 00051 4 FN01A 00051 4 NFND 00754 4 RP03 00051 4 UP01 00775 4
CMP1A 00051 4 FNF 00747 4 NM1 00054 1 RPD01 00051 4 UP02 00776 4
CMP1B 00051 4 FNM 10211 A 1 NM2 00053 1 SPC 00764 4 WCT 10336 1
CNM2 06736 1 FNO1B 00051 4 NOTDEL 00755 4 SR00A 00051 4 WHBUF 10347 A 1
COPY 00051 4 FORGET 00750 4 NTFND 00756 4 SR00 00051 4 WMRKSW 10350 2
COPYSW 06737 2 FRMER 00751 4 NW1 10230 1 SR01A 00765 4 XT01 00777 4
CPBUF 07620 A 1 FRSTSW 10212 2 NW2 10231 1 SR01 00766 4 XT02 01000 4
CPBUFZ 07621 A 1 FSBUF 00740 A 1 NWLNMK 10250 A 1 SR02A 00767 4 XT03 01001 4
CPF01 00051 4 GERR 00752 4 OLDERR 10251 1 SR02 00770 4 YESNO 10351 1
CPFEF 00743 4 GOTNXT 10213 2
0FUNCTION DICTIONARY
BCDEC 00000 1 BFCLOS 00001 1 BFOPEN 00002 1 BFREAD 00003 1 BFWRIT 00004 1
BZEL 00005 1 CHFILE 00006 1 CHNCOM 00007 1 COMARG 00010 1 DEFBC 00011 1
DELETE 00012 1 DORMNT 00013 1 EXIT 00014 1 FERRTN 00015 1 FSTATE 00016 1
GETTM 00017 1 GTDYTM 00020 1 .PCOMT 00021 1 .SETUP 00022 1 OCRBC 00023 1
OFFON 00024 1 OFF 00025 1 PRMESA 00026 1 PRMESS 00027 1 PRNTER 00030 1
RDFLXC 00031 1 SAVBRK 00032 1 SETBRK 00033 1 WHOAMI 00034 1 BDLNMK 00035 2
CLS 00036 2 CNT 00037 1 CPFIL 00040 2 DATTM 00041 1 DELT 00042 2
FLN1 00043 1 FLN2 00044 1 GNEXT 00045 1 MKLNMK 00046 2 SEARCH 00047 1
YES 00050 2
0ABSOLUTE CONSTANTS
10551 -377000000000 10405 +000740000000 10366 +000000000027 10403 +000037000000 10377 +000000007020
10400 +000000007777 10373 +000000000074 10554 -377777000011 10465 -200000610000 10550 -376060776060
10402 +000033006060 10520 -206077607777 10371 +000000000060 10376 +000000006060 10525 -210000600000
10365 +000000000022 10370 +000000000033 10367 +000000000030 10464 -200000000000 10421 +254325632524
10500 -204546636024 10420 +252433606060 10470 -202425432563 10543 -302562606060 10360 +000000000006
10406 +146044462425 10417 +246031456014 10415 +235125216325 10463 -175757000000 10375 +000000000134
10504 -206060214343 10460 -116031456060 10531 -236025515146 10473 -202646514421 10541 -266060606060
10462 -155555555555 10461 -116060606060 10423 +262660606060 10442 -046260626321 10521 -206270626325
10444 -054663312670 10424 +265121446060 10446 -056057575757 10451 -066445246031 10501 -204546636026
10426 +276444254563 10437 -033124602151 10530 -236021606521 10475 -204040604546 10363 +000000000014
10362 +000000000013 10404 +000060575757 10552 -377700000000 10364 +000000000015 10401 +000000777777
10553 -377777000000 10502 -204751314563 10510 -206060606047 10432 +377777777777 10537 -244724216325
10513 -206060606064 10523 -206346605757 10466 -202124242524 10511 -206060606051 10505 -206060605124
10514 -206060606067 10515 -206060606763 10416 +242543256325 10507 -206060606024 10503 -205454546060
10452 -066463476463 10522 -206321224325 10425 +276024464525 10443 -054663303145 10372 +000000000061
10430 +316260464273 10474 -203162606330 10431 +336060606060 10427 +302560464324 10535 -242425246063
10532 -236031452343 10411 +216525604546 10524 -207046646030 10506 -206060606023 10361 +000000000010
10536 -242562636060 10454 -072560512550 10546 -336051256370 10441 -044743256325 10533 -236031452346
10435 -032162636021 10357 +000000000005 10356 +000000000004 10526 -224664512325 10534 -236260606060
10456 -112764442545 10450 -066427306021 10445 -054663602545 10355 +000000000003 10354 +000000000002
10516 -206060634645 10512 -206060606063 10517 -206063462626 10352 +000000000000 10457 -113360606060
10477 -204325636325 10471 -202631516263 10527 -232524602270 10412 +225125653121 10467 -202225602122
10544 -306260442170 10407 +214343604225 10453 -072421632560 10545 -336046516064 10542 -276351212363
10455 -112547432123 10436 -032563257360 10447 -056373602425 10422 +257360475131 10547 -336063212243
10414 +234644223145 10433 -022570601360 10540 -263025512560 10434 -030260333333 10472 -202643016026
10440 -040160454402 10476 -204225706045 10410 +215123303165 10374 +000000000077 10353 +000000000001
10413 +233000000000
0STATEMENT DICTIONARY
00741 TXL -313756013751 00742 TXL -311175011175 00743 TXL -313665013654 00744 TXL -311423011421
00745 TXL -313346013342 00746 TXL -312556012554 00747 TXL -312445012443 00750 TXL -311271011265
00751 TXL -313361013351 00752 TXL -313373013371 00753 TXL -314033014031 00754 TXL -314040014036
00755 TXL -314156014147 00756 TXL -314312014310 00757 TXL -310625010623 00760 TXL -312157012155
00761 TXL -312443012440 00762 TXL -311550011546 00763 TXL -311637011635 00764 TXL -312437012436
00765 TXL -312633012631 00766 TXL -312740012736 00767 TXL -312645012633 00770 TXL -312744012740
00771 TXL -312624012624 00772 TXL -312731012731 00773 TXL -311311011306 00774 TXL -311411011410
00775 TXL -312027012025 00776 TXL -312136012134 00777 TXL -311452011450 01000 TXL -311507011505
01001 TXL -311513011507
0PROGRAM
W'R COMARG.(1).A.77K.E.77K 001 LM00015
10555 TSX +0 07400 4 00022 10556 TSX +0 07400 4 00010 10557 TXH +3 00000 0 10353 10560 STO +0 60100 0 14741
10561 CAL -0 50000 0 14741 10562 ANA -0 32000 0 10374 10563 SLW +0 60200 0 14741 10564 CLA +0 50000 0 14741
10565 SUB +0 40200 0 10374 10566 TNZ -0 10000 0 10625
PRMESS.( $ARCHIV KEY NM1 NM2 FL1 FL2 ...$) 002 LM00016
10567 TSX +0 07400 4 00027 10570 TXH +3 00000 0 10410 10571 TXH +3 00000 0 10476 10572 TXH +3 00000 0 10440
10573 TXH +3 00000 0 10472 10574 TXH +3 00000 0 10434
PRMESS.($WHERE KEY = COMBIN, TABLE, PRINT, DELETE, REPLAC$) 003 LM00017
10575 TSX +0 07400 4 00027 10576 TXH +3 00000 0 10540 10577 TXH +3 00000 0 10433 10600 TXH +3 00000 0 10414
10601 TXH +3 00000 0 10547 10602 TXH +3 00000 0 10422 10603 TXH +3 00000 0 10447 10604 TXH +3 00000 0 10436
10605 TXH +3 00000 0 10455
PRMESS.($XTRACT, OR UPDATE$) 004 LM00018
10606 TSX +0 07400 4 00027 10607 TXH +3 00000 0 10542 10610 TXH +3 00000 0 10545 10611 TXH +3 00000 0 10453
PRMESS.($ALL KEYS MAY BE ABBREVIATED BY FIRST LETTER.$) 005 LM00019
10612 TSX +0 07400 4 00027 10613 TXH +3 00000 0 10407 10614 TXH +3 00000 0 10544 10615 TXH +3 00000 0 10467
10616 TXH +3 00000 0 10412 10617 TXH +3 00000 0 10527 10620 TXH +3 00000 0 10471 10621 TXH +3 00000 0 10477
10622 TXH +3 00000 0 10457
OUT CHNCOM.(0) 006 LM00020
10623 TSX +0 07400 4 00007 10624 TXH +3 00000 0 10352
E'L 007 LM00021
KEY=COMARG.(1) 008 LM00022
10625 TSX +0 07400 4 00010 10626 TXH +3 00000 0 10353 10627 STO +0 60100 0 10223
W'R KEY .E. $ TOFF$ 009 LM00023
10630 CLA +0 50000 0 10223 10631 SUB +0 40200 0 10517 10632 TNZ -0 10000 0 10637
TOFF = 1B 010 LM00024
10633 CLA +0 50000 0 10353 10634 STO +0 60100 0 10333
BOOLEAN TOFF 011 LM00025
V'S TOFF = 0B 012 LM00026
10333 +0 00000 0 00000
KEY = $ T$ 013 LM00027
10635 CLA +0 50000 0 10512 10636 STO +0 60100 0 10223
E'L 014 LM00028
W'R KEY .E. $ TON$ 015 LM00029
10637 CLA +0 50000 0 10223 10640 SUB +0 40200 0 10516 10641 TNZ -0 10000 0 10646
TON = 1B 016 LM00030
10642 CLA +0 50000 0 10353 10643 STO +0 60100 0 10334
KEY = $ T$ 017 LM00031
10644 CLA +0 50000 0 10512 10645 STO +0 60100 0 10223
BOOLEAN TON 018 LM00032
V'S TON = 0B 019 LM00033
10334 +0 00000 0 00000
E'L 020 LM00034
NM1=COMARG.(2) 021 LM00035
10646 TSX +0 07400 4 00010 10647 TXH +3 00000 0 10354 10650 STO +0 60100 0 00054
NM2=COMARG.(3) 022 LM00036
10651 TSX +0 07400 4 00010 10652 TXH +3 00000 0 10355 10653 STO +0 60100 0 00053
SETBRK.(OUT) 023 LM00037
10654 TSX +0 07400 4 00033 10655 TXH +3 00000 0 00757
GETTM.(DATE,TIME) 024 LM00039
10656 TSX +0 07400 4 00017 10657 TXH +3 00000 0 07624 10660 TXH +3 00000 0 10331
D'N ANAM(2) 025 LM00040
EQUIVALENCE (NM1,ANAM(0)), (NM2,ANAM(1)) 026 LM00041
W'R NM1.A.77K.E.77K .OR. NM2.A.77K.E.77K 027 LM00042
10661 CAL -0 50000 0 00053 10662 ANA -0 32000 0 10374 10663 SLW +0 60200 0 14741 10664 CLA +0 50000 0 14741
10665 SUB +0 40200 0 10374 10666 TZE +0 10000 0 10675 10667 CAL -0 50000 0 00054 10670 ANA -0 32000 0 10374
10671 SLW +0 60200 0 14741 10672 CLA +0 50000 0 14741 10673 SUB +0 40200 0 10374 10674 TNZ -0 10000 0 10704
PRMESS.($NOT ENOUGH ARGUMENTS$) 028 LM00043
10675 TSX +0 07400 4 00027 10676 TXH +3 00000 0 10445 10677 TXH +3 00000 0 10450 10700 TXH +3 00000 0 10456
10701 TXH +3 00000 0 10534
CHNCOM.(0) 029 LM00044
10702 TSX +0 07400 4 00007 10703 TXH +3 00000 0 10352
E'L 030 LM00045
W'R NM2.E.$SOURCE$.OR.NM2.E.$ARCHIV$ 031 LM00050
10704 CLA +0 50000 0 00053 10705 SUB +0 40200 0 10410 10706 TZE +0 10000 0 10712 10707 CLA +0 50000 0 00053
10710 SUB +0 40200 0 10526 10711 TNZ -0 10000 0 11020
NAMTYP=1B 032 LM00051
10712 CLA +0 50000 0 10353 10713 STO +0 60100 0 10227
T'H IN00, FOR FILTAB=0,2,COMARG.(FILTAB+4).A.77K.E.77K 033 LM00052
1 .OR.FILTAB.E.FILTBZ 033 LM00053
10714 CLA +0 50000 0 10352 10715 STO +0 60100 0 10203 10716 TRA +0 02000 0 10722 10717 CLA +0 50000 0 10203
10720 ADD +0 40000 0 10354 10721 STO +0 60100 0 10203 10722 CLA +0 50000 0 10203 10723 SUB +0 40200 0 10205
10724 TZE +0 10000 0 11017 10725 CLA +0 50000 0 10203 10726 ADD +0 40000 0 10356 10727 STO +0 60100 0 14741
10730 TSX +0 07400 4 00010 10731 TXH +3 00000 0 14741 10732 STO +0 60100 0 14741 10733 CAL -0 50000 0 14741
10734 ANA -0 32000 0 10374 10735 SLW +0 60200 0 14741 10736 CLA +0 50000 0 14741 10737 SUB +0 40200 0 10374
10740 TZE +0 10000 0 11017
FILTAB(FILTAB+1)=COMARG.(FILTAB+4) 034 LM00054
10741 CLA +0 50000 0 10203 10742 ADD +0 40000 0 10356 10743 STO +0 60100 0 14741 10744 TSX +0 07400 4 00010
10745 TXH +3 00000 0 14741 10746 STO +0 60100 0 14741 10747 CLA +0 50000 0 10203 10750 ADD +0 40000 0 10353
10751 PAX +0 73400 1 00000 10752 CLA +0 50000 0 14741 10753 STO +0 60100 1 10203
W'R COMARG.(FILTAB+5).A.77K.E.77K 035 LM00055
10754 CLA +0 50000 0 10203 10755 ADD +0 40000 0 10357 10756 STO +0 60100 0 14741 10757 TSX +0 07400 4 00010
10760 TXH +3 00000 0 14741 10761 STO +0 60100 0 14741 10762 CAL -0 50000 0 14741 10763 ANA -0 32000 0 10374
10764 SLW +0 60200 0 14741 10765 CLA +0 50000 0 14741 10766 SUB +0 40200 0 10374 10767 TNZ -0 10000 0 11003
PRMESS.( $LAST ARGUMENT INCOMPLETE, RETYPE REQUEST$) 036 LM00056
10770 TSX +0 07400 4 00027 10771 TXH +3 00000 0 10435 10772 TXH +3 00000 0 10456 10773 TXH +3 00000 0 10533
10774 TXH +3 00000 0 10441 10775 TXH +3 00000 0 10546 10776 TXH +3 00000 0 10454 10777 TXH +3 00000 0 10536
CHNCOM.(0) 037 LM00057
11000 TSX +0 07400 4 00007 11001 TXH +3 00000 0 10352
O'E 038 LM00058
11002 TRA +0 02000 0 11016
FILTAB(FILTAB+2)=COMARG.(FILTAB+5) 039 LM00059
11003 CLA +0 50000 0 10203 11004 ADD +0 40000 0 10357 11005 STO +0 60100 0 14741 11006 TSX +0 07400 4 00010
11007 TXH +3 00000 0 14741 11010 STO +0 60100 0 14741 11011 CLA +0 50000 0 10203 11012 ADD +0 40000 0 10354
11013 PAX +0 73400 1 00000 11014 CLA +0 50000 0 14741 11015 STO +0 60100 1 10203
E'L 040 LM00060
IN00 CONTINUE 041 LM00061
11016 TRA +0 02000 0 10717
O'E 042 LM00062
11017 TRA +0 02000 0 11063
NAMTYP=0B 043 LM00063
11020 CLA +0 50000 0 10352 11021 STO +0 60100 0 10227
T'H IN01, FOR FILTAB=0,1,COMARG.(FILTAB+4).A.77K.E.77K 044 LM00064
1 .OR. FILTAB.E.FILTBZ 044 LM00065
11022 CLA +0 50000 0 10352 11023 STO +0 60100 0 10203 11024 TRA +0 02000 0 11030 11025 CLA +0 50000 0 10203
11026 ADD +0 40000 0 10353 11027 STO +0 60100 0 10203 11030 CLA +0 50000 0 10203 11031 SUB +0 40200 0 10205
11032 TZE +0 10000 0 11063 11033 CLA +0 50000 0 10203 11034 ADD +0 40000 0 10356 11035 STO +0 60100 0 14741
11036 TSX +0 07400 4 00010 11037 TXH +3 00000 0 14741 11040 STO +0 60100 0 14741 11041 CAL -0 50000 0 14741
11042 ANA -0 32000 0 10374 11043 SLW +0 60200 0 14741 11044 CLA +0 50000 0 14741 11045 SUB +0 40200 0 10374
11046 TZE +0 10000 0 11063
IN01 FILTAB(FILTAB+1)=COMARG.(FILTAB+4) 045 LM00066
11047 CLA +0 50000 0 10203 11050 ADD +0 40000 0 10356 11051 STO +0 60100 0 14741 11052 TSX +0 07400 4 00010
11053 TXH +3 00000 0 14741 11054 STO +0 60100 0 14741 11055 CLA +0 50000 0 10203 11056 ADD +0 40000 0 10353
11057 PAX +0 73400 1 00000 11060 CLA +0 50000 0 14741 11061 STO +0 60100 1 10203 11062 TRA +0 02000 0 11025
E'L 046 LM00067
WHOAMI.(WHBUF(8)...8) 047 LM00071
11063 TSX +0 07400 4 00034 11064 TIX +2 10361 0 10337
D'N WHBUF(8) 048 LM00072
D'N TFIL(2) 049 LM00073
TM1=WHBUF(8) 050 LM00074
11065 CLA +0 50000 0 10337 11066 STO +0 60100 0 00057
TM2=WHBUF(7) 051 LM00075
11067 CLA +0 50000 0 10340 11070 STO +0 60100 0 00056
EQUIVALENCE (TM1,TFIL(0)), (TM2,TFIL(1)) 052 LM00076
W'R KEY.E.$COMBIN$ .OR. KEY.E.$ C$ 053 LM00080
11071 CLA +0 50000 0 10223 11072 SUB +0 40200 0 10506 11073 TZE +0 10000 0 11077 11074 CLA +0 50000 0 10223
11075 SUB +0 40200 0 10414 11076 TNZ -0 10000 0 11274
FSTATE.(NM1,NM2,FSBUF(8)...8,CM01) 054 LM00081
11077 TSX +0 07400 4 00016 11100 TXH +3 00000 0 00054 11101 TXH +3 00000 0 00053 11102 TIX +2 10361 0 00730
11103 TXH +3 00000 0 00742
W'R NAMTYP 055 LM00082
11104 NZT -0 52000 0 10227 11105 TRA +0 02000 0 11135
T'H CMP1A, FOR I=1,2,I.G.FILTAB 056 LM00083
11106 CLA +0 50000 0 10353 11107 STO +0 60100 0 10217 11110 TRA +0 02000 0 11114 11111 CLA +0 50000 0 10217
11112 ADD +0 40000 0 10354 11113 STO +0 60100 0 10217 11114 CLA +0 50000 0 10217 11115 SUB +0 40200 0 10203
11116 TZE +0 10000 0 11120 11117 TPL +0 12000 0 11134
CMP1A W'R FILTAB(I).E.NM1.AND.FILTAB(I+1).E.NM2, T'O CM01 057 LM00084
11120 CLA +0 50000 0 10217 11121 ADD +0 40000 0 10353 11122 PAX +0 73400 1 00000 11123 CLA +0 50000 1 10203
11124 SUB +0 40200 0 00053 11125 TNZ -0 10000 0 11133 11126 LXA +0 53400 1 10217 11127 CLA +0 50000 1 10203
11130 SUB +0 40200 0 00054 11131 TNZ -0 10000 0 11133 11132 TRA +0 02000 0 00742 11133 TRA +0 02000 0 11111
O'E 058 LM00085
11134 TRA +0 02000 0 11155
T'H CMP1B, FOR I = 1,1,I.G.FILTAB 059 LM00086
11135 CLA +0 50000 0 10353 11136 STO +0 60100 0 10217 11137 TRA +0 02000 0 11143 11140 CLA +0 50000 0 10217
11141 ADD +0 40000 0 10353 11142 STO +0 60100 0 10217 11143 CLA +0 50000 0 10217 11144 SUB +0 40200 0 10203
11145 TZE +0 10000 0 11147 11146 TPL +0 12000 0 11155
CMP1B W'R FILTAB(I).E.NM1, T'O CM01 060 LM00087
11147 LXA +0 53400 1 10217 11150 CLA +0 50000 1 10203 11151 SUB +0 40200 0 00054 11152 TNZ -0 10000 0 11154
11153 TRA +0 02000 0 00742 11154 TRA +0 02000 0 11140
E'L 061 LM00088
PRMESS.($ YOU HAVE NOT INCLUDED THE OLD$,NM1,NM2,$.$) 062 LM00089
11155 TSX +0 07400 4 00027 11156 TXH +3 00000 0 10524 11157 TXH +3 00000 0 10411 11160 TXH +3 00000 0 10532
11161 TXH +3 00000 0 10535 11162 TXH +3 00000 0 10427 11163 TXH +3 00000 0 00054 11164 TXH +3 00000 0 00053
11165 TXH +3 00000 0 10431
PRMESA.($ IS THIS OK,$) 063 LM00090
11166 TSX +0 07400 4 00026 11167 TXH +3 00000 0 10474 11170 TXH +3 00000 0 10430
W'R .NOT. YES.(0), T'O FORGET 064 LM00091
11171 TSX +0 07400 4 00050 11172 TXH +3 00000 0 10352 11173 TNZ -0 10000 0 11175 11174 TRA +0 02000 0 00750
CM01 CONTINUE 065 LM00092
W'R NAMTYP 066 LM00093
11175 NZT -0 52000 0 10227 11176 TRA +0 02000 0 11232
T'H CM03A, FOR FILTBP=1,2,FILTBP.G.FILTAB 067 LM00094
11177 CLA +0 50000 0 10353 11200 STO +0 60100 0 10204 11201 TRA +0 02000 0 11205 11202 CLA +0 50000 0 10204
11203 ADD +0 40000 0 10354 11204 STO +0 60100 0 10204 11205 CLA +0 50000 0 10204 11206 SUB +0 40200 0 10203
11207 TZE +0 10000 0 11211 11210 TPL +0 12000 0 11231
W'R .NOT.CPFIL.(FILTAB(FILTBP),FILTAB(FILTBP+1)), 068 LM00095
1 PRNTER.(61K) 068 LM00096
11211 CLA +0 50000 0 10204 11212 ADD +0 40000 0 10353 11213 SUB +0 40200 0 11214 11214 TXH +3 00000 0 10203
11215 STA +0 62100 0 11224 11216 CLA +0 50000 0 10204 11217 SUB +0 40200 0 11220 11220 TXH +3 00000 0 10203
11221 STA +0 62100 0 11223 11222 TSX +0 07400 4 00040 11223 TXH +3 00000 0 00000 11224 TXH +3 00000 0 00000
11225 TNZ -0 10000 0 11230 11226 TSX +0 07400 4 00030 11227 TXH +3 00000 0 10372
CM03A CONTINUE 069 LM00097
11230 TRA +0 02000 0 11202
O'E 070 LM00098
11231 TRA +0 02000 0 11257
T'H CM03, FOR FILTBP=1,1,FILTBP.G.FILTAB 071 LM00099
11232 CLA +0 50000 0 10353 11233 STO +0 60100 0 10204 11234 TRA +0 02000 0 11240 11235 CLA +0 50000 0 10204
11236 ADD +0 40000 0 10353 11237 STO +0 60100 0 10204 11240 CLA +0 50000 0 10204 11241 SUB +0 40200 0 10203
11242 TZE +0 10000 0 11244 11243 TPL +0 12000 0 11257
W'R .NOT. CPFIL.(FILTAB(FILTBP),NM2), 072 LM00100
1 PRNTER.(61K) 072 LM00101
11244 CLA +0 50000 0 10204 11245 SUB +0 40200 0 11246 11246 TXH +3 00000 0 10203 11247 STA +0 62100 0 11251
11250 TSX +0 07400 4 00040 11251 TXH +3 00000 0 00000 11252 TXH +3 00000 0 00053 11253 TNZ -0 10000 0 11256
11254 TSX +0 07400 4 00030 11255 TXH +3 00000 0 10372
CM03 CONTINUE 073 LM00102
11256 TRA +0 02000 0 11235
E'L 074 LM00103
W'R TMOPSW, CLS.(NM1,NM2) 075 LM00104
11257 NZT -0 52000 0 10332 11260 TRA +0 02000 0 11264 11261 TSX +0 07400 4 00036 11262 TXH +3 00000 0 00054
11263 TXH +3 00000 0 00053
T'O EXT 076 LM00105
11264 TRA +0 02000 0 00746
FORGET PRMESS.($NOTHING DONE.$) 077 LM00106
11265 TSX +0 07400 4 00027 11266 TXH +3 00000 0 10443 11267 TXH +3 00000 0 10425 11270 TXH +3 00000 0 10431
CHNCOM.(0) 078 LM00107
11271 TSX +0 07400 4 00007 11272 TXH +3 00000 0 10352
O'R KEY.E.$ TABLE$ .OR. KEY.E.$ T$ 079 LM00111
11273 TRA +0 02000 0 12436 11274 CLA +0 50000 0 10223 11275 SUB +0 40200 0 10512 11276 TZE +0 10000 0 11302
11277 CLA +0 50000 0 10223 11300 SUB +0 40200 0 10522 11301 TNZ -0 10000 0 11413
COPYSW=0B 080 LM00112
11302 CLA +0 50000 0 10352 11303 STO +0 60100 0 06737
PRSSW=0B 081 LM00113
11304 CLA +0 50000 0 10352 11305 STO +0 60100 0 10273
V'S BL = 605757575757K 082 LM00114
01005 -2 05757 5 75757
V'S CR = 555757575757K 083 LM00115
07622 -1 55757 5 75757
TB01 W'R FILTAB.E.0 084 LM00116
11306 CLA +0 50000 0 10203 11307 SUB +0 40200 0 10352 11310 TNZ -0 10000 0 11346
GNEXT.(TFNF) 085 LM00117
11311 TSX +0 07400 4 00045 11312 TXH +3 00000 0 00774
W'R FIRST 086 LM00118
11313 NZT -0 52000 0 10206 11314 TRA +0 02000 0 11345
FIRST = 0B 087 LM00119
11315 CLA +0 50000 0 10352 11316 STO +0 60100 0 10206
W'R TOFF, OFF.($ARCHIV$,$OUTPUT$) 088 LM00120
11317 NZT -0 52000 0 10333 11320 TRA +0 02000 0 11324 11321 TSX +0 07400 4 00025 11322 TXH +3 00000 0 10410
11323 TXH +3 00000 0 10452
W'R TON, OFFON.($ARCHIV$,$OUTPUT$) 089 LM00121
11324 NZT -0 52000 0 10334 11325 TRA +0 02000 0 11331 11326 TSX +0 07400 4 00024 11327 TXH +3 00000 0 10410
11330 TXH +3 00000 0 10452
PRMESS. 090 LM00122
11331 TSX +0 07400 4 00027
PRMESS.($ ***$,NM1,BL,NM2,BL,BL,DATE,BL,TIME) 091 LM00123
11332 TSX +0 07400 4 00027 11333 TXH +3 00000 0 10503 11334 TXH +3 00000 0 00054 11335 TXH +3 00000 0 01005
11336 TXH +3 00000 0 00053 11337 TXH +3 00000 0 01005 11340 TXH +3 00000 0 01005 11341 TXH +3 00000 0 07624
11342 TXH +3 00000 0 01005 11343 TXH +3 00000 0 10331
PRMESS. 092 LM00124
11344 TSX +0 07400 4 00027
E'L 093 LM00125
BOOLEAN FIRST 094 LM00126
V'S FIRST = 1B 095 LM00127
10206 +0 00000 0 00001
O'E 096 LM00128
11345 TRA +0 02000 0 11366
SEARCH.(TFNF) 097 LM00129
11346 TSX +0 07400 4 00047 11347 TXH +3 00000 0 00774
W'R FIRST 098 LM00130
11350 NZT -0 52000 0 10206 11351 TRA +0 02000 0 11366
FIRST = 0B 099 LM00131
11352 CLA +0 50000 0 10352 11353 STO +0 60100 0 10206
W'R TOFF, OFF.($ARCHIV$,$OUTPUT$) 100 LM00132
11354 NZT -0 52000 0 10333 11355 TRA +0 02000 0 11361 11356 TSX +0 07400 4 00025 11357 TXH +3 00000 0 10410
11360 TXH +3 00000 0 10452
W'R TON, OFFON.($ARCHIV$,$OUTPUT$) 101 LM00133
11361 NZT -0 52000 0 10334 11362 TRA +0 02000 0 11366 11363 TSX +0 07400 4 00024 11364 TXH +3 00000 0 10410
11365 TXH +3 00000 0 10452
E'L 102 LM00134
E'L 103 LM00135
TEMP = INF2-INF1 104 LM00136
11366 CLA +0 50000 0 10216 11367 SUB +0 40200 0 10215 11370 STO +0 60100 0 10330
PRMESS.(BL,PRLNMK(INF1),BL,PRLNMK(INF1-1)...TEMP) 105 LM00137
11371 CLA +0 50000 0 10215 11372 SUB +0 40200 0 10353 11373 SUB +0 40200 0 11374 11374 TXH +3 00000 0 10272
11375 STA +0 62100 0 11406 11376 CLA +0 50000 0 10215 11377 SUB +0 40200 0 11400 11400 TXH +3 00000 0 10272
11401 STA +0 62100 0 11404 11402 TSX +0 07400 4 00027 11403 TXH +3 00000 0 01005 11404 TXH +3 00000 0 00000
11405 TXH +3 00000 0 01005 11406 TIX +2 10330 0 00000
T'O TB01 106 LM00138
11407 TRA +0 02000 0 00773
TFNF PRMESS. 107 LM00140
11410 TSX +0 07400 4 00027
T'O FNF 108 LM00141
11411 TRA +0 02000 0 00747
O'R KEY.E.$DELETE$ .OR. KEY.E.$ D$ 109 LM00145
11412 TRA +0 02000 0 12436 11413 CLA +0 50000 0 10223 11414 SUB +0 40200 0 10507 11415 TZE +0 10000 0 11421
11416 CLA +0 50000 0 10223 11417 SUB +0 40200 0 10416 11420 TNZ -0 10000 0 11437
DL01 COPYSW=1B 110 LM00146
11421 CLA +0 50000 0 10353 11422 STO +0 60100 0 06737
PRSSW=1B 111 LM00147
11423 CLA +0 50000 0 10353 11424 STO +0 60100 0 10273
WMRKSW=1B 112 LM00148
11425 CLA +0 50000 0 10353 11426 STO +0 60100 0 10350
SEARCH.(REN) 113 LM00149
11427 TSX +0 07400 4 00047 11430 TXH +3 00000 0 00761
COPYSW=0B 114 LM00150
11431 CLA +0 50000 0 10352 11432 STO +0 60100 0 06737
GNEXT.(REN) 115 LM00151
11433 TSX +0 07400 4 00045 11434 TXH +3 00000 0 00761
T'O DL01 116 LM00152
11435 TRA +0 02000 0 00744
O'R KEY.E.$XTRACT$ .OR. KEY.E.$ X$ .OR. KEY.E.$ XT$ 117 LM00156
11436 TRA +0 02000 0 12436 11437 CLA +0 50000 0 10223 11440 SUB +0 40200 0 10515 11441 TZE +0 10000 0 11450
11442 CLA +0 50000 0 10223 11443 SUB +0 40200 0 10514 11444 TZE +0 10000 0 11450 11445 CLA +0 50000 0 10223
11446 SUB +0 40200 0 10542 11447 TNZ -0 10000 0 11535
XT01 COPYSW=0B 118 LM00157
11450 CLA +0 50000 0 10352 11451 STO +0 60100 0 06737
PRSSW=1B 119 LM00158
11452 CLA +0 50000 0 10353 11453 STO +0 60100 0 10273
W'R FILTAB.NE.0 120 LM00159
11454 CLA +0 50000 0 10203 11455 SUB +0 40200 0 10352 11456 TZE +0 10000 0 11462
SEARCH.(FNF) 121 LM00160
11457 TSX +0 07400 4 00047 11460 TXH +3 00000 0 00747
O'E 122 LM00161
11461 TRA +0 02000 0 11466
W'R .NOT. GOTNXT, GNEXT.(FNF) 123 LM00162
11462 ZET +0 52000 0 10213 11463 TRA +0 02000 0 11466 11464 TSX +0 07400 4 00045 11465 TXH +3 00000 0 00747
E'L 124 LM00163
NW1=FLN1.(PRLNMK) 125 LM00164
11466 TSX +0 07400 4 00043 11467 TXH +3 00000 0 10272 11470 STO +0 60100 0 10230
NW2=FLN2.(PRLNMK) 126 LM00165
11471 TSX +0 07400 4 00044 11472 TXH +3 00000 0 10272 11473 STO +0 60100 0 10231
COPYSW=1B 127 LM00166
11474 CLA +0 50000 0 10353 11475 STO +0 60100 0 06737
WMRKSW=0B 128 LM00167
11476 CLA +0 50000 0 10352 11477 STO +0 60100 0 10350
GNEXT.(XT02) 129 LM00168
11500 TSX +0 07400 4 00045 11501 TXH +3 00000 0 01000
GOTNXT=1B 130 LM00169
11502 CLA +0 50000 0 10353 11503 STO +0 60100 0 10213
T'O XT03 131 LM00170
11504 TRA +0 02000 0 01001
XT02 NAMO=1B 132 LM00171
11505 CLA +0 50000 0 10353 11506 STO +0 60100 0 10226
XT03 W'R CLS.(NW1,NW2) 133 LM00172
11507 TSX +0 07400 4 00036 11510 TXH +3 00000 0 10230 11511 TXH +3 00000 0 10231 11512 TZE +0 10000 0 11530
W'R KEY.E.$ XT$, CHFILE.(NW1,NW2,001K,-0,-0) 134 LM00173
11513 CLA +0 50000 0 10223 11514 SUB +0 40200 0 10515 11515 TNZ -0 10000 0 11530 11516 CLS +0 50200 0 10352
11517 STO +0 60100 0 14741 11520 CLS +0 50200 0 10352 11521 STO +0 60100 0 14742 11522 TSX +0 07400 4 00006
11523 TXH +3 00000 0 10230 11524 TXH +3 00000 0 10231 11525 TXH +3 00000 0 10353 11526 TXH +3 00000 0 14742
11527 TXH +3 00000 0 14741
E'L 135 LM00174
W'R NAMO,T'O FNF 136 LM00175
11530 NZT -0 52000 0 10226 11531 TRA +0 02000 0 11533 11532 TRA +0 02000 0 00747
T'O XT01 137 LM00176
11533 TRA +0 02000 0 00777
O'R KEY.E.$REPLAC$ .OR. KEY.E.$ R$ .OR. KEY.E.$ RD$ 138 LM00180
11534 TRA +0 02000 0 12436 11535 CLA +0 50000 0 10223 11536 SUB +0 40200 0 10505 11537 TZE +0 10000 0 11546
11540 CLA +0 50000 0 10223 11541 SUB +0 40200 0 10511 11542 TZE +0 10000 0 11546 11543 CLA +0 50000 0 10223
11544 SUB +0 40200 0 10455 11545 TNZ -0 10000 0 12017
RP01 COPYSW=1B 139 LM00181
11546 CLA +0 50000 0 10353 11547 STO +0 60100 0 06737
PRSSW=1B 140 LM00182
11550 CLA +0 50000 0 10353 11551 STO +0 60100 0 10273
WMRKSW=1B 141 LM00183
11552 CLA +0 50000 0 10353 11553 STO +0 60100 0 10350
W'R FILTAB.NE.0 142 LM00184
11554 CLA +0 50000 0 10203 11555 SUB +0 40200 0 10352 11556 TZE +0 10000 0 11562
SEARCH.(RP02) 143 LM00185
11557 TSX +0 07400 4 00047 11560 TXH +3 00000 0 00763
O'E 144 LM00186
11561 TRA +0 02000 0 11566
W'R .NOT. GOTNXT, GNEXT.(RP02) 145 LM00187
11562 ZET +0 52000 0 10213 11563 TRA +0 02000 0 11566 11564 TSX +0 07400 4 00045 11565 TXH +3 00000 0 00763
E'L 146 LM00188
GOTNXT=0B 147 LM00189
11566 CLA +0 50000 0 10352 11567 STO +0 60100 0 10213
W'R .NOT. CPFIL.(FLN1.(PRLNMK),FLN2.(PRLNMK)) 148 LM00190
11570 TSX +0 07400 4 00044 11571 TXH +3 00000 0 10272 11572 STO +0 60100 0 14742 11573 TSX +0 07400 4 00043
11574 TXH +3 00000 0 10272 11575 STO +0 60100 0 14741 11576 TSX +0 07400 4 00040 11577 TXH +3 00000 0 14741
11600 TXH +3 00000 0 14742 11601 TNZ -0 10000 0 11607
PRNTER.(61K) 149 LM00191
11602 TSX +0 07400 4 00030 11603 TXH +3 00000 0 10372
COPYSW=1B 150 LM00192
11604 CLA +0 50000 0 10353 11605 STO +0 60100 0 06737
O'E 151 LM00193
11606 TRA +0 02000 0 11630
W'R DELST.L.DELSTZ 152 LM00194
11607 CLA +0 50000 0 10137 11610 SUB +0 40200 0 10140 11611 TZE +0 10000 0 11626 11612 TPL +0 12000 0 11626
DELST=DELST+1 153 LM00195
11613 CLA +0 50000 0 10137 11614 ADD +0 40000 0 10353 11615 STO +0 60100 0 10137
DELST1(DELST)=FLN1.(PRLNMK) 154 LM00196
11616 TSX +0 07400 4 00043 11617 TXH +3 00000 0 10272 11620 LXA +0 53400 1 10137 11621 STO +0 60100 1 07771
DELST2(DELST)=FLN2.(PRLNMK) 155 LM00197
11622 TSX +0 07400 4 00044 11623 TXH +3 00000 0 10272 11624 LXA +0 53400 1 10137 11625 STO +0 60100 1 10136
E'L 156 LM00198
COPYSW=0B 157 LM00199
11626 CLA +0 50000 0 10352 11627 STO +0 60100 0 06737
E'L 158 LM00200
GNEXT.(RP02) 159 LM00201
11630 TSX +0 07400 4 00045 11631 TXH +3 00000 0 00763
GOTNXT=1B 160 LM00202
11632 CLA +0 50000 0 10353 11633 STO +0 60100 0 10213
T'O RP01 161 LM00203
11634 TRA +0 02000 0 00762
RP02 W'R NAMTYP 162 LM00204
11635 NZT -0 52000 0 10227 11636 TRA +0 02000 0 11642
TYP=1 163 LM00205
11637 CLA +0 50000 0 10353 11640 STO +0 60100 0 10335
O'E 164 LM00206
11641 TRA +0 02000 0 11644
TYP=0 165 LM00207
11642 CLA +0 50000 0 10352 11643 STO +0 60100 0 10335
E'L 166 LM00208
T'H RP03, FOR JI=1,1,JI+TYP*(JI-1).G.FILTAB 167 LM00209
11644 CLA +0 50000 0 10353 11645 STO +0 60100 0 10220 11646 TRA +0 02000 0 11652 11647 CLA +0 50000 0 10220
11650 ADD +0 40000 0 10353 11651 STO +0 60100 0 10220 11652 CLA +0 50000 0 10220 11653 SUB +0 40200 0 10353
11654 XCA +0 13100 0 00000 11655 MPY +0 20000 0 10335 11656 XCA +0 13100 0 00000 11657 ADD +0 40000 0 10220
11660 SUB +0 40200 0 10203 11661 TZE +0 10000 0 11663 11662 TPL +0 12000 0 11760
W'R NAMTYP 168 LM00210
11663 NZT -0 52000 0 10227 11664 TRA +0 02000 0 11700
JJ=2*JI-1 169 LM00211
11665 LDQ +0 56000 0 10354 11666 MPY +0 20000 0 10220 11667 XCA +0 13100 0 00000 11670 SUB +0 40200 0 10353
11671 STO +0 60100 0 10221
CNM2=FILTAB(JJ+1) 170 LM00212
11672 CLA +0 50000 0 10221 11673 ADD +0 40000 0 10353 11674 PAX +0 73400 2 00000 11675 CLA +0 50000 2 10203
11676 STO +0 60100 0 06736
O'E 171 LM00213
11677 TRA +0 02000 0 11704
JJ=JI 172 LM00214
11700 CLA +0 50000 0 10220 11701 STO +0 60100 0 10221
CNM2=NM2 173 LM00215
11702 CLA +0 50000 0 00053 11703 STO +0 60100 0 06736
E'L 174 LM00216
W'R .NOT. FILFND(JI) 175 LM00217
11704 LXA +0 53400 1 10220 11705 ZET +0 52000 1 10162 11706 TRA +0 02000 0 11757
PRMESS.(FILTAB(JJ),BL,CNM2,$ ADDED$,606346605757K,NM1,BL,NM2) 176 LM00218
11707 CLA +0 50000 0 10221 11710 SUB +0 40200 0 11711 11711 TXH +3 00000 0 10203 11712 STA +0 62100 0 11714
11713 TSX +0 07400 4 00027 11714 TXH +3 00000 0 00000 11715 TXH +3 00000 0 01005 11716 TXH +3 00000 0 06736
11717 TXH +3 00000 0 10466 11720 TXH +3 00000 0 10523 11721 TXH +3 00000 0 00054 11722 TXH +3 00000 0 01005
11723 TXH +3 00000 0 00053
W'R .NOT. CPFIL.(FILTAB(JJ),CNM2) 177 LM00219
11724 CLA +0 50000 0 10221 11725 SUB +0 40200 0 11726 11726 TXH +3 00000 0 10203 11727 STA +0 62100 0 11731
11730 TSX +0 07400 4 00040 11731 TXH +3 00000 0 00000 11732 TXH +3 00000 0 06736 11733 TNZ -0 10000 0 11737
PRNTER.(61K) 178 LM00220
11734 TSX +0 07400 4 00030 11735 TXH +3 00000 0 10372
O'E 179 LM00221
11736 TRA +0 02000 0 11757
FILFND(JI)=1B 180 LM00222
11737 LXA +0 53400 1 10220 11740 CLA +0 50000 0 10353 11741 STO +0 60100 1 10162
W'R DELST.L.DELSTZ 181 LM00223
11742 CLA +0 50000 0 10137 11743 SUB +0 40200 0 10140 11744 TZE +0 10000 0 11757 11745 TPL +0 12000 0 11757
DELST=DELST+1 182 LM00224
11746 CLA +0 50000 0 10137 11747 ADD +0 40000 0 10353 11750 STO +0 60100 0 10137
DELST1(DELST)=FILTAB(JJ) 183 LM00225
11751 LXA +0 53400 1 10137 11752 LXA +0 53400 2 10221 11753 CLA +0 50000 2 10203 11754 STO +0 60100 1 07771
DELST2(DELST)=CNM2 184 LM00226
11755 CLA +0 50000 0 06736 11756 STO +0 60100 1 10136
E'L 185 LM00227
E'L 186 LM00228
RP03 E'L 187 LM00229
11757 TRA +0 02000 0 11647
W'R CLS.(NM1,NM2) 188 LM00230
11760 TSX +0 07400 4 00036 11761 TXH +3 00000 0 00054 11762 TXH +3 00000 0 00053 11763 TZE +0 10000 0 12015
W'R KEY.E.$ RD$ 189 LM00231
11764 CLA +0 50000 0 10223 11765 SUB +0 40200 0 10505 11766 TNZ -0 10000 0 12015
T'H RPD01, FOR I=1,1,I.G.DELST 190 LM00232
11767 CLA +0 50000 0 10353 11770 STO +0 60100 0 10217 11771 TRA +0 02000 0 11775 11772 CLA +0 50000 0 10217
11773 ADD +0 40000 0 10353 11774 STO +0 60100 0 10217 11775 CLA +0 50000 0 10217 11776 SUB +0 40200 0 10137
11777 TZE +0 10000 0 12001 12000 TPL +0 12000 0 12015
RPD01 DELT.(DELST1(I),DELST2(I)) 191 LM00233
12001 CLA +0 50000 0 10217 12002 SUB +0 40200 0 12003 12003 TXH +3 00000 0 10136 12004 STA +0 62100 0 12013
12005 CLA +0 50000 0 10217 12006 SUB +0 40200 0 12007 12007 TXH +3 00000 0 07771 12010 STA +0 62100 0 12012
12011 TSX +0 07400 4 00042 12012 TXH +3 00000 0 00000 12013 TXH +3 00000 0 00000 12014 TRA +0 02000 0 11772
E'L 192 LM00234
E'L 193 LM00235
T'O EXT 194 LM00236
12015 TRA +0 02000 0 00746
BOOLEAN GOTNXT 195 LM00237
D'N DELST1(100), DELST2(100) 196 LM00238
V'S DELSTZ=100 197 LM00239
10140 +0 00000 0 00144
O'R KEY.E.$UPDATE$ .OR. KEY.E.$ U$ 198 LM00243
12016 TRA +0 02000 0 12436 12017 CLA +0 50000 0 10223 12020 SUB +0 40200 0 10513 12021 TZE +0 10000 0 12025
12022 CLA +0 50000 0 10223 12023 SUB +0 40200 0 10537 12024 TNZ -0 10000 0 12144
UP01 COPYSW=1B 199 LM00244
12025 CLA +0 50000 0 10353 12026 STO +0 60100 0 06737
PRSSW=1B 200 LM00245
12027 CLA +0 50000 0 10353 12030 STO +0 60100 0 10273
WMRKSW=1B 201 LM00246
12031 CLA +0 50000 0 10353 12032 STO +0 60100 0 10350
W'R FILTAB.NE.0 202 LM00247
12033 CLA +0 50000 0 10203 12034 SUB +0 40200 0 10352 12035 TZE +0 10000 0 12041
SEARCH.(REN) 203 LM00248
12036 TSX +0 07400 4 00047 12037 TXH +3 00000 0 00761
O'E 204 LM00249
12040 TRA +0 02000 0 12045
W'R .NOT. GOTNXT, GNEXT.(REN) 205 LM00250
12041 ZET +0 52000 0 10213 12042 TRA +0 02000 0 12045 12043 TSX +0 07400 4 00045 12044 TXH +3 00000 0 00761
E'L 206 LM00251
FSTATE.(FLN1.(PRLNMK),FLN2.(PRLNMK),FSBUF(8)...8,UP02) 207 LM00252
12045 TSX +0 07400 4 00044 12046 TXH +3 00000 0 10272 12047 STO +0 60100 0 14742 12050 TSX +0 07400 4 00043
12051 TXH +3 00000 0 10272 12052 STO +0 60100 0 14741 12053 TSX +0 07400 4 00016 12054 TXH +3 00000 0 14741
12055 TXH +3 00000 0 14742 12056 TIX +2 10361 0 00730 12057 TXH +3 00000 0 00776
W'R FSBUF(2).A.377777777777K.G.DATTM.(PRLNMK).A.377777777777K 208 LM00253
12060 TSX +0 07400 4 00041 12061 TXH +3 00000 0 10272 12062 STO +0 60100 0 14742 12063 CAL -0 50000 0 14742
12064 ANA -0 32000 0 10432 12065 SLW +0 60200 0 14742 12066 CAL -0 50000 0 00736 12067 ANA -0 32000 0 10432
12070 SLW +0 60200 0 14741 12071 CLA +0 50000 0 14741 12072 SUB +0 40200 0 14742 12073 TZE +0 10000 0 12134
12074 TMI -0 12000 0 12134
TEMP = INF2-INF1 209 LM00254
12075 CLA +0 50000 0 10216 12076 SUB +0 40200 0 10215 12077 STO +0 60100 0 10330
PRMESS.(PRLNMK(INF1),BL,PRLNMK(INF1-1)...TEMP) 210 LM00255
12100 CLA +0 50000 0 10215 12101 SUB +0 40200 0 10353 12102 SUB +0 40200 0 12103 12103 TXH +3 00000 0 10272
12104 STA +0 62100 0 12114 12105 CLA +0 50000 0 10215 12106 SUB +0 40200 0 12107 12107 TXH +3 00000 0 10272
12110 STA +0 62100 0 12112 12111 TSX +0 07400 4 00027 12112 TXH +3 00000 0 00000 12113 TXH +3 00000 0 01005
12114 TIX +2 10330 0 00000
COPYSW=0B 211 LM00256
12115 CLA +0 50000 0 10352 12116 STO +0 60100 0 06737
W'R .NOT. CPFIL.(FLN1.(PRLNMK),FLN2.(PRLNMK)), COPYSW=1B 212 LM00257
12117 TSX +0 07400 4 00044 12120 TXH +3 00000 0 10272 12121 STO +0 60100 0 14742 12122 TSX +0 07400 4 00043
12123 TXH +3 00000 0 10272 12124 STO +0 60100 0 14741 12125 TSX +0 07400 4 00040 12126 TXH +3 00000 0 14741
12127 TXH +3 00000 0 14742 12130 TNZ -0 10000 0 12133 12131 CLA +0 50000 0 10353 12132 STO +0 60100 0 06737
O'E 213 LM00258
12133 TRA +0 02000 0 12136
UP02 COPYSW=1B 214 LM00259
12134 CLA +0 50000 0 10353 12135 STO +0 60100 0 06737
E'L 215 LM00260
GNEXT.(REN) 216 LM00261
12136 TSX +0 07400 4 00045 12137 TXH +3 00000 0 00761
GOTNXT=1B 217 LM00262
12140 CLA +0 50000 0 10353 12141 STO +0 60100 0 10213
T'O UP01 218 LM00263
12142 TRA +0 02000 0 00775
O'R KEY .E.$ PRINT$ .OR. KEY.E.$ P$ 219 LM00267
12143 TRA +0 02000 0 12436 12144 CLA +0 50000 0 10223 12145 SUB +0 40200 0 10510 12146 TZE +0 10000 0 12152
12147 CLA +0 50000 0 10223 12150 SUB +0 40200 0 10502 12151 TNZ -0 10000 0 12425
SAVBRK. 220 LM00268
12152 TSX +0 07400 4 00032
SETBRK.(EXT) 221 LM00269
12153 TSX +0 07400 4 00033 12154 TXH +3 00000 0 00746
PRP1 COPYSW=0B 222 LM00270
12155 CLA +0 50000 0 10352 12156 STO +0 60100 0 06737
PRSSW=0B 223 LM00271
12157 CLA +0 50000 0 10352 12160 STO +0 60100 0 10273
W'R FILTAB.NE.0 224 LM00272
12161 CLA +0 50000 0 10203 12162 SUB +0 40200 0 10352 12163 TZE +0 10000 0 12167
SEARCH.(SPC) 225 LM00273
12164 TSX +0 07400 4 00047 12165 TXH +3 00000 0 00764
O'E 226 LM00274
12166 TRA +0 02000 0 12171
GNEXT.(SPC) 227 LM00275
12167 TSX +0 07400 4 00045 12170 TXH +3 00000 0 00764
E'L 228 LM00276
PRMESS. 229 LM00277
12171 TSX +0 07400 4 00027
TEMP = INF2-INF1 - 1 230 LM00278
12172 CLA +0 50000 0 10216 12173 SUB +0 40200 0 10215 12174 SUB +0 40200 0 10353 12175 STO +0 60100 0 10330
PRMESS.(PRLNMK(INF1)...TEMP) 231 LM00279
12176 CLA +0 50000 0 10215 12177 SUB +0 40200 0 12200 12200 TXH +3 00000 0 10272 12201 STA +0 62100 0 12203
12202 TSX +0 07400 4 00027 12203 TIX +2 10330 0 00000
PRMESS. 232 LM00280
12204 TSX +0 07400 4 00027
CT=CNT.(PRLNMK) 233 LM00281
12205 TSX +0 07400 4 00037 12206 TXH +3 00000 0 10272 12207 STO +0 60100 0 07623
T'H PR02, FOR I=0,0,I.GE.CT 234 LM00282
12210 CLA +0 50000 0 10352 12211 STO +0 60100 0 10217 12212 TRA +0 02000 0 12216 12213 CLA +0 50000 0 10217
12214 ADD +0 40000 0 10352 12215 STO +0 60100 0 10217 12216 CLA +0 50000 0 10217 12217 SUB +0 40200 0 07623
12220 TZE +0 10000 0 12421 12221 TPL +0 12000 0 12421
BFREAD.(NM1,NM2,PRTBUF(PRTZ)...1, 235 LM00283
1 FRMER,EOFCT,GERR) 235 LM00284
12222 CLA +0 50000 0 10323 12223 SUB +0 40200 0 12224 12224 TXH +3 00000 0 10322 12225 STA +0 62100 0 12231
12226 TSX +0 07400 4 00003 12227 TXH +3 00000 0 00054 12230 TXH +3 00000 0 00053 12231 TIX +2 10353 0 00000
12232 TXH +3 00000 0 00751 12233 TXH +3 00000 0 10141 12234 TXH +3 00000 0 00752
I=I+1 236 LM00285
12235 CLA +0 50000 0 10217 12236 ADD +0 40000 0 10353 12237 STO +0 60100 0 10217
W'R PRTBUF(PRTZ).A.777777K6 .E. 777777K6 237 LM00286
12240 LXA +0 53400 1 10323 12241 CAL -0 50000 1 10322 12242 ANA -0 32000 0 10553 12243 SLW +0 60200 0 14742
12244 CLA +0 50000 0 14742 12245 SUB +0 40200 0 10553 12246 TNZ -0 10000 0 12353
WCT=PRTBUF(PRTZ).A.777777K 238 LM00287
12247 CAL -0 50000 1 10322 12250 ANA -0 32000 0 10401 12251 SLW +0 60200 0 10336
W'R WCT.E.0,PRMESS. 239 LM00288
12252 CLA +0 50000 0 10336 12253 SUB +0 40200 0 10352 12254 TNZ -0 10000 0 12256 12255 TSX +0 07400 4 00027
T'H PR01, FOR J=PRTZ,PRTZ,J.G.WCT 240 LM00289
12256 CLA +0 50000 0 10323 12257 STO +0 60100 0 10222 12260 TRA +0 02000 0 12264 12261 CLA +0 50000 0 10222
12262 ADD +0 40000 0 10323 12263 STO +0 60100 0 10222 12264 CLA +0 50000 0 10222 12265 SUB +0 40200 0 10336
12266 TZE +0 10000 0 12270 12267 TPL +0 12000 0 12314
BFREAD.(NM1,NM2,PRTBUF(PRTZ)...PRTZ, 241 LM00290
1 FRMER,EOFCT,GERR) 241 LM00291
12270 CLA +0 50000 0 10323 12271 SUB +0 40200 0 12272 12272 TXH +3 00000 0 10322 12273 STA +0 62100 0 12277
12274 TSX +0 07400 4 00003 12275 TXH +3 00000 0 00054 12276 TXH +3 00000 0 00053 12277 TIX +2 10323 0 00000
12300 TXH +3 00000 0 00751 12301 TXH +3 00000 0 10141 12302 TXH +3 00000 0 00752
TEMP = -PRTZ 242 LM00292
12303 CLS +0 50200 0 10323 12304 STO +0 60100 0 10330
PR01 PRMESS.(PRTBUF(PRTZ)...TEMP) 243 LM00293
12305 CLA +0 50000 0 10323 12306 SUB +0 40200 0 12307 12307 TXH +3 00000 0 10322 12310 STA +0 62100 0 12312
12311 TSX +0 07400 4 00027 12312 TIX +2 10330 0 00000 12313 TRA +0 02000 0 12261
RMNT=PRTZ-(J-WCT) 244 LM00294
12314 CLA +0 50000 0 10222 12315 SUB +0 40200 0 10336 12316 CHS +0 76000 0 00002 12317 ADD +0 40000 0 10323
12320 STO +0 60100 0 10326
W'R RMNT.NE.0 245 LM00295
12321 CLA +0 50000 0 10326 12322 SUB +0 40200 0 10352 12323 TZE +0 10000 0 12347
BFREAD.(NM1,NM2,PRTBUF(RMNT)...RMNT, 246 LM00296
1 FRMER,EOFCT,GERR) 246 LM00297
12324 CLA +0 50000 0 10326 12325 SUB +0 40200 0 12326 12326 TXH +3 00000 0 10322 12327 STA +0 62100 0 12333
12330 TSX +0 07400 4 00003 12331 TXH +3 00000 0 00054 12332 TXH +3 00000 0 00053 12333 TIX +2 10326 0 00000
12334 TXH +3 00000 0 00751 12335 TXH +3 00000 0 10141 12336 TXH +3 00000 0 00752
TEMP = -RMNT 247 LM00298
12337 CLS +0 50200 0 10326 12340 STO +0 60100 0 10330
PRMESS.(PRTBUF(RMNT)...TEMP) 248 LM00299
12341 CLA +0 50000 0 10326 12342 SUB +0 40200 0 12343 12343 TXH +3 00000 0 10322 12344 STA +0 62100 0 12346
12345 TSX +0 07400 4 00027 12346 TIX +2 10330 0 00000
E'L 249 LM00300
I=I+WCT 250 LM00301
12347 CLA +0 50000 0 10217 12350 ADD +0 40000 0 10336 12351 STO +0 60100 0 10217
O'E 251 LM00302
12352 TRA +0 02000 0 12420
BFREAD.(NM1,NM2,PRTBUF(PRTZ-1)...13, 252 LM00303
1 FRMER,EOFCT,GERR) 252 LM00304
12353 CLA +0 50000 0 10323 12354 SUB +0 40200 0 10353 12355 SUB +0 40200 0 12356 12356 TXH +3 00000 0 10322
12357 STA +0 62100 0 12363 12360 TSX +0 07400 4 00003 12361 TXH +3 00000 0 00054 12362 TXH +3 00000 0 00053
12363 TIX +2 10364 0 00000 12364 TXH +3 00000 0 00751 12365 TXH +3 00000 0 10141 12366 TXH +3 00000 0 00752
I=I+13 253 LM00305
12367 CLA +0 50000 0 10217 12370 ADD +0 40000 0 10364 12371 STO +0 60100 0 10217
TEMP1 = (PRTBUF(PRTZ-13).A.7777K8).V.60575757K 254 LM00306
12372 CLA +0 50000 0 10323 12373 SUB +0 40200 0 10364 12374 PAX +0 73400 1 00000 12375 CAL -0 50000 1 10322
12376 ANA -0 32000 0 10552 12377 ORA -0 50100 0 10404 12400 SLW +0 60200 0 10327
TEMP = -11 255 LM00307
12401 CLS +0 50200 0 10362 12402 STO +0 60100 0 10330
PRMESS.(PRTBUF(PRTZ-12),TEMP1,PRTBUF(PRTZ)...TEMP) 256 LM00308
12403 CLA +0 50000 0 10323 12404 SUB +0 40200 0 12405 12405 TXH +3 00000 0 10322 12406 STA +0 62100 0 12417
12407 CLA +0 50000 0 10323 12410 SUB +0 40200 0 10363 12411 SUB +0 40200 0 12412 12412 TXH +3 00000 0 10322
12413 STA +0 62100 0 12415 12414 TSX +0 07400 4 00027 12415 TXH +3 00000 0 00000 12416 TXH +3 00000 0 10327
12417 TIX +2 10330 0 00000
PR02 E'L 257 LM00309
12420 TRA +0 02000 0 12213
ADJSW=1B 258 LM00310
12421 CLA +0 50000 0 10353 12422 STO +0 60100 0 01002
T'O PRP1 259 LM00311
12423 TRA +0 02000 0 00760
D'N PRTBUF(22) 260 LM00312
V'S PRTZ=22 261 LM00313
10323 +0 00000 0 00026
O'E 262 LM00317
12424 TRA +0 02000 0 12436
PRMESS.(KEY,$ -- NOT A VALID ARGUMENT.$) 263 LM00318
12425 TSX +0 07400 4 00027 12426 TXH +3 00000 0 10223 12427 TXH +3 00000 0 10475 12430 TXH +3 00000 0 10530
12431 TXH +3 00000 0 10437 12432 TXH +3 00000 0 10426 12433 TXH +3 00000 0 10431
CHNCOM.(0) 264 LM00319
12434 TSX +0 07400 4 00007 12435 TXH +3 00000 0 10352
E'L 265 LM00320
SPC PRMESS. 266 LM00324
12436 TSX +0 07400 4 00027
T'O FNF 267 LM00325
12437 TRA +0 02000 0 00747
REN CLS.(NM1,NM2) 268 LM00326
12440 TSX +0 07400 4 00036 12441 TXH +3 00000 0 00054 12442 TXH +3 00000 0 00053
FNF W'R NAMTYP 269 LM00327
12443 NZT -0 52000 0 10227 12444 TRA +0 02000 0 12520
T'H FN01A, FOR I = 1,1,I.G.FILTAB/2 270 LM00328
12445 CLA +0 50000 0 10353 12446 STO +0 60100 0 10217 12447 TRA +0 02000 0 12453 12450 CLA +0 50000 0 10217
12451 ADD +0 40000 0 10353 12452 STO +0 60100 0 10217 12453 LDQ +0 56000 0 10203 12454 PXD -0 75400 0 00000
12455 LLS +0 76300 0 00000 12456 DVP +0 22100 0 10354 12457 XCA +0 13100 0 00000 12460 CHS +0 76000 0 00002
12461 ADD +0 40000 0 10217 12462 TZE +0 10000 0 12464 12463 TPL +0 12000 0 12517
W'R .NOT.FILFND(I) 271 LM00329
12464 LXA +0 53400 1 10217 12465 ZET +0 52000 1 10162 12466 TRA +0 02000 0 12516
PRMESS.(FILTAB(2*I-1),BL,FILTAB(2*I),$ NOT FOUND I$, 272 LM00330
1 456057575757K,NM1,BL,NM2) 272 LM00331
12467 LDQ +0 56000 0 10354 12470 MPY +0 20000 0 10217 12471 XCA +0 13100 0 00000 12472 SUB +0 40200 0 12473
12473 TXH +3 00000 0 10203 12474 STA +0 62100 0 12507 12475 LDQ +0 56000 0 10354 12476 MPY +0 20000 0 10217
12477 XCA +0 13100 0 00000 12500 SUB +0 40200 0 10353 12501 SUB +0 40200 0 12502 12502 TXH +3 00000 0 10203
12503 STA +0 62100 0 12505 12504 TSX +0 07400 4 00027 12505 TXH +3 00000 0 00000 12506 TXH +3 00000 0 01005
12507 TXH +3 00000 0 00000 12510 TXH +3 00000 0 10501 12511 TXH +3 00000 0 10451 12512 TXH +3 00000 0 10446
12513 TXH +3 00000 0 00054 12514 TXH +3 00000 0 01005 12515 TXH +3 00000 0 00053
FN01A E'L 273 LM00332
12516 TRA +0 02000 0 12450
O'E 274 LM00333
12517 TRA +0 02000 0 12554
T'H FNO1B, FOR I=1,1,I.G.FILTAB 275 LM00334
12520 CLA +0 50000 0 10353 12521 STO +0 60100 0 10217 12522 TRA +0 02000 0 12526 12523 CLA +0 50000 0 10217
12524 ADD +0 40000 0 10353 12525 STO +0 60100 0 10217 12526 CLA +0 50000 0 10217 12527 SUB +0 40200 0 10203
12530 TZE +0 10000 0 12532 12531 TPL +0 12000 0 12554
W'R .NOT.FILFND(I) 276 LM00335
12532 LXA +0 53400 1 10217 12533 ZET +0 52000 1 10162 12534 TRA +0 02000 0 12553
PRMESS.(FILTAB(I),BL,NM2,$ NOT FOUND I$,456057575757K, 277 LM00336
1 NM1,BL,NM2) 277 LM00337
12535 CLA +0 50000 0 10217 12536 SUB +0 40200 0 12537 12537 TXH +3 00000 0 10203 12540 STA +0 62100 0 12542
12541 TSX +0 07400 4 00027 12542 TXH +3 00000 0 00000 12543 TXH +3 00000 0 01005 12544 TXH +3 00000 0 00053
12545 TXH +3 00000 0 10501 12546 TXH +3 00000 0 10451 12547 TXH +3 00000 0 10446 12550 TXH +3 00000 0 00054
12551 TXH +3 00000 0 01005 12552 TXH +3 00000 0 00053
FNO1B E'L 278 LM00338
12553 TRA +0 02000 0 12523
E'L 279 LM00339
EXT CHNCOM.(0) 280 LM00340
12554 TSX +0 07400 4 00007 12555 TXH +3 00000 0 10352
PRMESS.($FRAM$) 281 LM00341
12556 TSX +0 07400 4 00027 12557 TXH +3 00000 0 10424
PRMESS.($NOTIFY SYSTEMS STAFF$) 282 LM00342
12560 TSX +0 07400 4 00027 12561 TXH +3 00000 0 10444 12562 TXH +3 00000 0 10521 12563 TXH +3 00000 0 10442
12564 TXH +3 00000 0 10423
DORMNT. 283 LM00343
12565 TSX +0 07400 4 00013
INSERT FILE ASUBS 284 LM00351
INTERNAL FUNCTION (EOFXT) 285 LM00008
12566 TRA +0 02000 0 13015
STATEMENT LABEL EOFXT 286 LM00009
E'O SEARCH. 287 LM00010
12567 TRA +0 02000 0 12572 00047 TTR +0 02100 0 12570 12570 SXA +0 63400 2 12777 12571 TSX +0 07400 2 12777
W'R NAMTYP 288 LM00011
12572 NZT -0 52000 0 10227 12573 TRA +0 02000 0 12701
W'R .NOT. COPYSW 289 LM00012
12574 ZET +0 52000 0 06737 12575 TRA +0 02000 0 12624
T'H SR00A, FOR I=1,1,I.G.FILTAB 290 LM00013
12576 CLA +0 50000 0 10353 12577 STO +0 60100 0 10217 12600 TRA +0 02000 0 12604 12601 CLA +0 50000 0 10217
12602 ADD +0 40000 0 10353 12603 STO +0 60100 0 10217 12604 CLA +0 50000 0 10217 12605 SUB +0 40200 0 10203
12606 TZE +0 10000 0 12610 12607 TPL +0 12000 0 12615
SR00A W'R .NOT. FILFND(I), T'O SRP0A 291 LM00014
12610 LXA +0 53400 1 10217 12611 ZET +0 52000 1 10162 12612 TRA +0 02000 0 12614 12613 TRA +0 02000 0 00771
12614 TRA +0 02000 0 12601
BFCLOS.(NM1,NM2,GERR) 292 LM00015
12615 TSX +0 07400 4 00001 12616 TXH +3 00000 0 00054 12617 TXH +3 00000 0 00053 12620 TXH +3 00000 0 00752
AROPSW=0B 293 LM00016
12621 CLA +0 50000 0 10352 12622 STO +0 60100 0 01004
T'O EOFXT 294 LM00017
12623 TRA +0 02000 0 00024
E'L 295 LM00018
SRP0A CONTINUE 296 LM00019
W'R PRSSW.AND.AROPSW, T'O SR02A 297 LM00020
12624 NZT -0 52000 0 01004 12625 TRA +0 02000 0 12631 12626 NZT -0 52000 0 10273 12627 TRA +0 02000 0 12631
12630 TRA +0 02000 0 00767
SR01A GNEXT.(EOFXT) 298 LM00021
12631 TSX +0 07400 4 00045 12632 TXH +3 00000 0 00024
SR02A T'H SR03A, FOR FILTBP=1,2,FILTBP.G.FILTAB 299 LM00022
12633 CLA +0 50000 0 10353 12634 STO +0 60100 0 10204 12635 TRA +0 02000 0 12641 12636 CLA +0 50000 0 10204
12637 ADD +0 40000 0 10354 12640 STO +0 60100 0 10204 12641 CLA +0 50000 0 10204 12642 SUB +0 40200 0 10203
12643 TZE +0 10000 0 12645 12644 TPL +0 12000 0 12677
PNTR=(FILTBP+1)/2 300 LM00023
12645 CLA +0 50000 0 10204 12646 ADD +0 40000 0 10353 12647 LRS +0 76500 0 00043 12650 DVP +0 22100 0 10354
12651 STQ -0 60000 0 10253
W'R FLN1.(PRLNMK).E.FILTAB(FILTBP) 301 LM00024
1 .AND.FLN2.(PRLNMK).E.FILTAB(FILTBP+1) 301 LM00025
2 .AND..NOT.FILFND(PNTR) 301 LM00026
12652 LXA +0 53400 1 10253 12653 ZET +0 52000 1 10162 12654 TRA +0 02000 0 12676 12655 CLA +0 50000 0 10204
12656 ADD +0 40000 0 10353 12657 STO +0 60100 0 13014 12660 TSX +0 07400 4 00044 12661 TXH +3 00000 0 10272
12662 LXA +0 53400 2 13014 12663 SUB +0 40200 2 10203 12664 TNZ -0 10000 0 12676 12665 TSX +0 07400 4 00043
12666 TXH +3 00000 0 10272 12667 LXA +0 53400 2 10204 12670 SUB +0 40200 2 10203 12671 TNZ -0 10000 0 12676
FILFND(PNTR)=1B 302 LM00027
12672 LXA +0 53400 1 10253 12673 CLA +0 50000 0 10353 12674 STO +0 60100 1 10162
F'N 303 LM00028
12675 TRA +0 02000 0 13010
SR03A E'L 304 LM00029
12676 TRA +0 02000 0 12636
T'O SR01A 305 LM00030
12677 TRA +0 02000 0 00765
O'E 306 LM00031
12700 TRA +0 02000 0 12776
W'R .NOT.COPYSW 307 LM00032
12701 ZET +0 52000 0 06737 12702 TRA +0 02000 0 12731
T'H SR00, FOR I=1,1,I.G.FILTAB 308 LM00033
12703 CLA +0 50000 0 10353 12704 STO +0 60100 0 10217 12705 TRA +0 02000 0 12711 12706 CLA +0 50000 0 10217
12707 ADD +0 40000 0 10353 12710 STO +0 60100 0 10217 12711 CLA +0 50000 0 10217 12712 SUB +0 40200 0 10203
12713 TZE +0 10000 0 12715 12714 TPL +0 12000 0 12722
SR00 W'R .NOT.FILFND(I), T'O SRP0 309 LM00034
12715 LXA +0 53400 1 10217 12716 ZET +0 52000 1 10162 12717 TRA +0 02000 0 12721 12720 TRA +0 02000 0 00772
12721 TRA +0 02000 0 12706
BFCLOS.(NM1,NM2,GERR) 310 LM00035
12722 TSX +0 07400 4 00001 12723 TXH +3 00000 0 00054 12724 TXH +3 00000 0 00053 12725 TXH +3 00000 0 00752
AROPSW=0B 311 LM00036
12726 CLA +0 50000 0 10352 12727 STO +0 60100 0 01004
T'O EOFXT 312 LM00037
12730 TRA +0 02000 0 00024
E'L 313 LM00038
SRP0 CONTINUE 314 LM00039
W'R PRSSW.AND.AROPSW, T'O SR02 315 LM00040
12731 NZT -0 52000 0 01004 12732 TRA +0 02000 0 12736 12733 NZT -0 52000 0 10273 12734 TRA +0 02000 0 12736
12735 TRA +0 02000 0 00770
SR01 GNEXT.(EOFXT) 316 LM00041
12736 TSX +0 07400 4 00045 12737 TXH +3 00000 0 00024
SR02 W'R FLN2.(PRLNMK).NE.NM2 317 LM00042
12740 TSX +0 07400 4 00044 12741 TXH +3 00000 0 10272 12742 SUB +0 40200 0 00053 12743 TZE +0 10000 0 12746
T'O SR01 318 LM00043
12744 TRA +0 02000 0 00766
O'E 319 LM00044
12745 TRA +0 02000 0 12776
T'H SR03, FOR FILTBP=1,1,FILTBP.G.FILTAB 320 LM00045
12746 CLA +0 50000 0 10353 12747 STO +0 60100 0 10204 12750 TRA +0 02000 0 12754 12751 CLA +0 50000 0 10204
12752 ADD +0 40000 0 10353 12753 STO +0 60100 0 10204 12754 CLA +0 50000 0 10204 12755 SUB +0 40200 0 10203
12756 TZE +0 10000 0 12760 12757 TPL +0 12000 0 12775
W'R FLN1.(PRLNMK).E.FILTAB(FILTBP) 321 LM00046
1 .AND..NOT.FILFND(FILTBP) 321 LM00047
12760 LXA +0 53400 1 10204 12761 ZET +0 52000 1 10162 12762 TRA +0 02000 0 12774 12763 TSX +0 07400 4 00043
12764 TXH +3 00000 0 10272 12765 LXA +0 53400 2 10204 12766 SUB +0 40200 2 10203 12767 TNZ -0 10000 0 12774
FILFND(FILTBP)=1B 322 LM00048
12770 LXA +0 53400 1 10204 12771 CLA +0 50000 0 10353 12772 STO +0 60100 1 10162
FUNCTION RETURN 323 LM00049
12773 TRA +0 02000 0 13010
SR03 E'L 324 LM00050
12774 TRA +0 02000 0 12751
T'O SR01 325 LM00051
12775 TRA +0 02000 0 00766
E'L 326 LM00052
E'L 327 LM00053
END OF FUNCTION 328 LM00054
12776 TSX +0 07400 4 00014 12777 TXH +3 00000 0 00000 13000 SXD -0 63400 1 12777 13001 SXA +0 63400 4 13010
13002 CLA +0 50000 4 00001 13003 STA +0 62100 0 12623 13004 STO +0 60100 0 12632 13005 STA +0 62100 0 12730
13006 STO +0 60100 0 12737 13007 TRA +0 02000 2 00001 13010 AXT +0 77400 4 00000 13011 LXA +0 53400 2 12777
13012 LXD -0 53400 1 12777 13013 TRA +0 02000 4 00001
INTERNAL FUNCTION (EOFXT) 329 LM00061
13015 TRA +0 02000 0 13411
STATEMENT LABEL EOFXT 330 LM00062
E'O GNEXT. 331 LM00063
13016 TRA +0 02000 0 13021 00045 TTR +0 02100 0 13017 13017 SXA +0 63400 2 13376 13020 TSX +0 07400 2 13376
W'R .NOT. AROPSW 332 LM00064
13021 ZET +0 52000 0 01004 13022 TRA +0 02000 0 13140
BFOPEN.($R$,NM1,NM2,BUF1(BUFZ),BUF2(BUFZ),-0,GERR) 333 LM00065
13023 CLS +0 50200 0 10352 13024 STO +0 60100 0 13410 13025 CLA +0 50000 0 06735 13026 SUB +0 40200 0 13027
13027 TXH +3 00000 0 02547 13030 STA +0 62100 0 13042 13031 CLA +0 50000 0 06735 13032 SUB +0 40200 0 13033
13033 TXH +3 00000 0 01666 13034 STA +0 62100 0 13041 13035 TSX +0 07400 4 00002 13036 TXH +3 00000 0 10461
13037 TXH +3 00000 0 00054 13040 TXH +3 00000 0 00053 13041 TXH +3 00000 0 00000 13042 TXH +3 00000 0 00000
13043 TXH +3 00000 0 13410 13044 TXH +3 00000 0 00752
BFREAD.(NM1,NM2,PRLNMK(LMKZ)...LMKZ,FRMER,EOFCT,GERR) 334 LM00066
13045 CLA +0 50000 0 10224 13046 SUB +0 40200 0 13047 13047 TXH +3 00000 0 10272 13050 STA +0 62100 0 13054
13051 TSX +0 07400 4 00003 13052 TXH +3 00000 0 00054 13053 TXH +3 00000 0 00053 13054 TIX +2 10224 0 00000
13055 TXH +3 00000 0 00751 13056 TXH +3 00000 0 10141 13057 TXH +3 00000 0 00752
W'R BDLNMK.(PRLNMK) 335 LM00067
13060 TSX +0 07400 4 00035 13061 TXH +3 00000 0 10272 13062 TZE +0 10000 0 13135
W'R PRLNMK(LMKZ).E.555555555555K 336 LM00068
13063 LXA +0 53400 1 10224 13064 CLA +0 50000 1 10272 13065 SUB +0 40200 0 10462 13066 TNZ -0 10000 0 13134
PRINT COMMENT $ARCHIV FILE HAS OLD FORMAT.$ 337 LM00069
13067 TSX +0 07400 4 00021 13070 +0 00000 0 00005 13071 +2 15123 3 03165 13072 -2 02631 4 32560
13073 +3 02162 6 04643 13074 +2 46026 4 65144 13075 +2 16333 6 06060
PRINT COMMENT $USE NWARCH SAVED IN PUBLIC FILE TO R 338 LM00070
1EFORMAT.$ 338 LM00071
13076 TSX +0 07400 4 00021 13077 +0 00000 0 00010 13100 -2 46225 6 04566 13101 +2 15123 3 06062
13102 +2 16525 2 46031 13103 -0 56047 6 42243 13104 +3 12360 2 63143 13105 +2 56063 4 66051
13106 +2 52646 5 14421 13107 -2 33360 6 06060
PRINT COMMENT $LINK NWARCH SAVED M1416 CMFL04$ 339 LM00072
13110 TSX +0 07400 4 00021 13111 +0 00000 0 00005 13112 -0 33145 4 26045 13113 -2 62151 2 33060
13114 -2 22165 2 52460 13115 -0 40104 0 10660 13116 +2 34426 4 30004
PRINT COMMENT $RESUME NWARCH$ 340 LM00073
13117 TSX +0 07400 4 00021 13120 +0 00000 0 00003 13121 -1 12562 6 44425 13122 -2 04566 2 15123
13123 +3 06060 6 06060
PRINT COMMENT $FOR INSTRUCTIONS.$ 341 LM00074
13124 TSX +0 07400 4 00021 13125 +0 00000 0 00003 13126 +2 64651 6 03145 13127 -2 26351 6 42363
13130 +3 14645 6 23360
CHNCOM.(0) 342 LM00075
13131 TSX +0 07400 4 00007 13132 TXH +3 00000 0 10352
O'E 343 LM00076
13133 TRA +0 02000 0 13135
T'O FRMER 344 LM00077
13134 TRA +0 02000 0 00751
E'L 345 LM00078
E'L 346 LM00079
AROPSW=1B 347 LM00080
13135 CLA +0 50000 0 10353 13136 STO +0 60100 0 01004
FUNCTION RETURN 348 LM00081
13137 TRA +0 02000 0 13404
E'L 349 LM00082
W'R COPYSW .AND. .NOT. TMOPSW 350 LM00083
13140 ZET +0 52000 0 10332 13141 TRA +0 02000 0 13177 13142 NZT -0 52000 0 06737 13143 TRA +0 02000 0 13177
DELETE.(TM1,TM2,0,OUT) 351 LM00084
13144 TSX +0 07400 4 00012 13145 TXH +3 00000 0 00057 13146 TXH +3 00000 0 00056 13147 TXH +3 00000 0 10352
13150 TXH +3 00000 0 00757
BFOPEN.($W$,TM1,TM2,BUF3(BUFZ),BUF4(BUFZ),BUF5(BUFZ), 352 LM00085
1 GERR) 352 LM00086
13151 CLA +0 50000 0 06735 13152 SUB +0 40200 0 13153 13153 TXH +3 00000 0 05172 13154 STA +0 62100 0 13173
13155 CLA +0 50000 0 06735 13156 SUB +0 40200 0 13157 13157 TXH +3 00000 0 04311 13160 STA +0 62100 0 13172
13161 CLA +0 50000 0 06735 13162 SUB +0 40200 0 13163 13163 TXH +3 00000 0 03430 13164 STA +0 62100 0 13171
13165 TSX +0 07400 4 00002 13166 TXH +3 00000 0 10541 13167 TXH +3 00000 0 00057 13170 TXH +3 00000 0 00056
13171 TXH +3 00000 0 00000 13172 TXH +3 00000 0 00000 13173 TXH +3 00000 0 00000 13174 TXH +3 00000 0 00752
TMOPSW=1B 353 LM00087
13175 CLA +0 50000 0 10353 13176 STO +0 60100 0 10332
E'L 354 LM00088
W'R COPYSW .AND. WMRKSW 355 LM00089
13177 NZT -0 52000 0 10350 13200 TRA +0 02000 0 13214 13201 NZT -0 52000 0 06737 13202 TRA +0 02000 0 13214
BFWRIT.(TM1,TM2,PRLNMK(LMKZ)...LMKZ,GERR) 356 LM00090
13203 CLA +0 50000 0 10224 13204 SUB +0 40200 0 13205 13205 TXH +3 00000 0 10272 13206 STA +0 62100 0 13212
13207 TSX +0 07400 4 00004 13210 TXH +3 00000 0 00057 13211 TXH +3 00000 0 00056 13212 TIX +2 10224 0 00000
13213 TXH +3 00000 0 00752
E'L 357 LM00091
W'R .NOT. ADJSW 358 LM00092
13214 ZET +0 52000 0 01002 13215 TRA +0 02000 0 13320
AFZ=CNT.(PRLNMK) 359 LM00093
13216 TSX +0 07400 4 00037 13217 TXH +3 00000 0 10272 13220 STO +0 60100 0 01003
T'H COPY, FOR I=CPBUFZ,CPBUFZ,I.G.AFZ 360 LM00094
13221 CLA +0 50000 0 07621 13222 STO +0 60100 0 10217 13223 TRA +0 02000 0 13227 13224 CLA +0 50000 0 10217
13225 ADD +0 40000 0 07621 13226 STO +0 60100 0 10217 13227 CLA +0 50000 0 10217 13230 SUB +0 40200 0 01003
13231 TZE +0 10000 0 13233 13232 TPL +0 12000 0 13262
BFREAD.(NM1,NM2,CPBUF(CPBUFZ)...CPBUFZ, 361 LM00095
1 FRMER,EOFCT,GERR) 361 LM00096
13233 CLA +0 50000 0 07621 13234 SUB +0 40200 0 13235 13235 TXH +3 00000 0 07620 13236 STA +0 62100 0 13242
13237 TSX +0 07400 4 00003 13240 TXH +3 00000 0 00054 13241 TXH +3 00000 0 00053 13242 TIX +2 07621 0 00000
13243 TXH +3 00000 0 00751 13244 TXH +3 00000 0 10141 13245 TXH +3 00000 0 00752
W'R COPYSW 362 LM00097
13246 NZT -0 52000 0 06737 13247 TRA +0 02000 0 13261
BFWRIT.(TM1,TM2,CPBUF(CPBUFZ)...CPBUFZ,GERR) 363 LM00098
13250 CLA +0 50000 0 07621 13251 SUB +0 40200 0 13252 13252 TXH +3 00000 0 07620 13253 STA +0 62100 0 13257
13254 TSX +0 07400 4 00004 13255 TXH +3 00000 0 00057 13256 TXH +3 00000 0 00056 13257 TIX +2 07621 0 00000
13260 TXH +3 00000 0 00752
E'L 364 LM00099
COPY CONTINUE 365 LM00100
13261 TRA +0 02000 0 13224
REMN=CPBUFZ-(I-AFZ) 366 LM00101
13262 CLA +0 50000 0 10217 13263 SUB +0 40200 0 01003 13264 CHS +0 76000 0 00002 13265 ADD +0 40000 0 07621
13266 STO +0 60100 0 10325
W'R REMN.NE.0 367 LM00102
13267 CLA +0 50000 0 10325 13270 SUB +0 40200 0 10352 13271 TZE +0 10000 0 13320
BFREAD.(NM1,NM2,CPBUF(REMN)...REMN, 368 LM00103
1 FRMER,EOFCT,GERR) 368 LM00104
13272 CLA +0 50000 0 10325 13273 SUB +0 40200 0 13274 13274 TXH +3 00000 0 07620 13275 STA +0 62100 0 13301
13276 TSX +0 07400 4 00003 13277 TXH +3 00000 0 00054 13300 TXH +3 00000 0 00053 13301 TIX +2 10325 0 00000
13302 TXH +3 00000 0 00751 13303 TXH +3 00000 0 10141 13304 TXH +3 00000 0 00752
W'R COPYSW 369 LM00105
13305 NZT -0 52000 0 06737 13306 TRA +0 02000 0 13320
BFWRIT.(TM1,TM2,CPBUF(REMN)...REMN,GERR) 370 LM00106
13307 CLA +0 50000 0 10325 13310 SUB +0 40200 0 13311 13311 TXH +3 00000 0 07620 13312 STA +0 62100 0 13316
13313 TSX +0 07400 4 00004 13314 TXH +3 00000 0 00057 13315 TXH +3 00000 0 00056 13316 TIX +2 10325 0 00000
13317 TXH +3 00000 0 00752
E'L 371 LM00107
E'L 372 LM00108
E'L 373 LM00109
BFREAD.(NM1,NM2,PRLNMK(LMKZ)...LMKZ,EOF,EOFCT,GERR) 374 LM00110
13320 CLA +0 50000 0 10224 13321 SUB +0 40200 0 13322 13322 TXH +3 00000 0 10272 13323 STA +0 62100 0 13327
13324 TSX +0 07400 4 00003 13325 TXH +3 00000 0 00054 13326 TXH +3 00000 0 00053 13327 TIX +2 10224 0 00000
13330 TXH +3 00000 0 00745 13331 TXH +3 00000 0 10141 13332 TXH +3 00000 0 00752
W'R BDLNMK.(PRLNMK),T'O FRMER 375 LM00111
13333 TSX +0 07400 4 00035 13334 TXH +3 00000 0 10272 13335 TZE +0 10000 0 13337 13336 TRA +0 02000 0 00751
ADJSW=0B 376 LM00112
13337 CLA +0 50000 0 10352 13340 STO +0 60100 0 01002
F'N 377 LM00113
13341 TRA +0 02000 0 13404
EOF BFCLOS.(NM1,NM2,GERR) 378 LM00114
13342 TSX +0 07400 4 00001 13343 TXH +3 00000 0 00054 13344 TXH +3 00000 0 00053 13345 TXH +3 00000 0 00752
AROPSW=0B 379 LM00115
13346 CLA +0 50000 0 10352 13347 STO +0 60100 0 01004
T'O EOFXT 380 LM00116
13350 TRA +0 02000 0 00024
FRMER PRMESS.($ARCHIV FORMAT ERROR IN$,NM1,BL,NM2) 381 LM00117
13351 TSX +0 07400 4 00027 13352 TXH +3 00000 0 10410 13353 TXH +3 00000 0 10473 13354 TXH +3 00000 0 10531
13355 TXH +3 00000 0 10460 13356 TXH +3 00000 0 00054 13357 TXH +3 00000 0 01005 13360 TXH +3 00000 0 00053
BFCLOS.($ ALL$,-0,GERR) 382 LM00118
13361 CLS +0 50200 0 10352 13362 STO +0 60100 0 13410 13363 TSX +0 07400 4 00001 13364 TXH +3 00000 0 10504
13365 TXH +3 00000 0 13410 13366 TXH +3 00000 0 00752
CHNCOM.(1) 383 LM00119
13367 TSX +0 07400 4 00007 13370 TXH +3 00000 0 10353
GERR PRNTER.(61K) 384 LM00120
13371 TSX +0 07400 4 00030 13372 TXH +3 00000 0 10372
CHNCOM.(1) 385 LM00121
13373 TSX +0 07400 4 00007 13374 TXH +3 00000 0 10353
END OF FUNCTION 386 LM00122
13375 TSX +0 07400 4 00014 13376 TXH +3 00000 0 00000 13377 SXD -0 63400 1 13376 13400 SXA +0 63400 4 13404
13401 CLA +0 50000 4 00001 13402 STA +0 62100 0 13350 13403 TRA +0 02000 2 00001 13404 AXT +0 77400 4 00000
13405 LXA +0 53400 2 13376 13406 LXD -0 53400 1 13376 13407 TRA +0 02000 4 00001
BOOLEAN CPFIL. 387 LM00131
INTERNAL FUNCTION(A,B) 388 LM00132
13411 TRA +0 02000 0 13721
E'O CPFIL. 389 LM00133
13412 TRA +0 02000 0 13415 00040 TTR +0 02100 0 13413 13413 SXA +0 63400 2 13674 13414 TSX +0 07400 2 13674
W'R .NOT. MKLNMK.(A,B,CT) 390 LM00134
13415 TSX +0 07400 4 00046 13416 TXH +3 00000 0 00024 13417 TXH +3 00000 0 00024 13420 TXH +3 00000 0 07623
13421 TNZ -0 10000 0 13425
F'N 0B 391 LM00135
13422 CLA +0 50000 0 10352 13423 TRA +0 02000 0 13714
O'E 392 LM00136
13424 TRA +0 02000 0 13654
W'R .NOT. TMOPSW 393 LM00137
13425 ZET +0 52000 0 10332 13426 TRA +0 02000 0 13462
DELETE.(TM1,TM2,0,OUT) 394 LM00138
13427 TSX +0 07400 4 00012 13430 TXH +3 00000 0 00057 13431 TXH +3 00000 0 00056 13432 TXH +3 00000 0 10352
13433 TXH +3 00000 0 00757
BFOPEN.($W$,TM1,TM2,BUF3(BUFZ),BUF4(BUFZ), 395 LM00139
1 BUF5(BUFZ),GERR) 395 LM00140
13434 CLA +0 50000 0 06735 13435 SUB +0 40200 0 13436 13436 TXH +3 00000 0 05172 13437 STA +0 62100 0 13456
13440 CLA +0 50000 0 06735 13441 SUB +0 40200 0 13442 13442 TXH +3 00000 0 04311 13443 STA +0 62100 0 13455
13444 CLA +0 50000 0 06735 13445 SUB +0 40200 0 13446 13446 TXH +3 00000 0 03430 13447 STA +0 62100 0 13454
13450 TSX +0 07400 4 00002 13451 TXH +3 00000 0 10541 13452 TXH +3 00000 0 00057 13453 TXH +3 00000 0 00056
13454 TXH +3 00000 0 00000 13455 TXH +3 00000 0 00000 13456 TXH +3 00000 0 00000 13457 TXH +3 00000 0 00752
TMOPSW=1B 396 LM00141
13460 CLA +0 50000 0 10353 13461 STO +0 60100 0 10332
E'L 397 LM00142
BFOPEN.($R$,A,B,BUF6(BUFZ),BUF7(BUFZ),-0,GERR) 398 LM00143
13462 CLS +0 50200 0 10352 13463 STO +0 60100 0 13720 13464 CLA +0 50000 0 06735 13465 SUB +0 40200 0 13466
13466 TXH +3 00000 0 06734 13467 STA +0 62100 0 13501 13470 CLA +0 50000 0 06735 13471 SUB +0 40200 0 13472
13472 TXH +3 00000 0 06053 13473 STA +0 62100 0 13500 13474 TSX +0 07400 4 00002 13475 TXH +3 00000 0 10461
13476 TXH +3 00000 0 00024 13477 TXH +3 00000 0 00024 13500 TXH +3 00000 0 00000 13501 TXH +3 00000 0 00000
13502 TXH +3 00000 0 13720 13503 TXH +3 00000 0 00752
FRSTSW=1B 399 LM00144
13504 CLA +0 50000 0 10353 13505 STO +0 60100 0 10212
T'H CPF01, FOR I=CPBUFZ,CPBUFZ,I.G.CT 400 LM00145
13506 CLA +0 50000 0 07621 13507 STO +0 60100 0 10217 13510 TRA +0 02000 0 13514 13511 CLA +0 50000 0 10217
13512 ADD +0 40000 0 07621 13513 STO +0 60100 0 10217 13514 CLA +0 50000 0 10217 13515 SUB +0 40200 0 07623
13516 TZE +0 10000 0 13520 13517 TPL +0 12000 0 13572
BFREAD.(A,B,CPBUF(CPBUFZ)...CPBUFZ, 401 LM00146
1 CPFEF,EOFCT,GERR) 401 LM00147
13520 CLA +0 50000 0 07621 13521 SUB +0 40200 0 13522 13522 TXH +3 00000 0 07620 13523 STA +0 62100 0 13527
13524 TSX +0 07400 4 00003 13525 TXH +3 00000 0 00024 13526 TXH +3 00000 0 00024 13527 TIX +2 07621 0 00000
13530 TXH +3 00000 0 00743 13531 TXH +3 00000 0 10141 13532 TXH +3 00000 0 00752
W'R BDLNMK.(CPBUF(CPBUFZ-LMKZ)) .AND. FRSTSW 402 LM00148
13533 NZT -0 52000 0 10212 13534 TRA +0 02000 0 13556 13535 CLA +0 50000 0 07621 13536 SUB +0 40200 0 10224
13537 SUB +0 40200 0 13540 13540 TXH +3 00000 0 07620 13541 STA +0 62100 0 13543 13542 TSX +0 07400 4 00035
13543 TXH +3 00000 0 00000 13544 TZE +0 10000 0 13556
BFWRIT.(TM1,TM2,NWLNMK(LMKZ)...LMKZ,GERR) 403 LM00149
13545 CLA +0 50000 0 10224 13546 SUB +0 40200 0 13547 13547 TXH +3 00000 0 10250 13550 STA +0 62100 0 13554
13551 TSX +0 07400 4 00004 13552 TXH +3 00000 0 00057 13553 TXH +3 00000 0 00056 13554 TIX +2 10224 0 00000
13555 TXH +3 00000 0 00752
E'L 404 LM00150
FRSTSW=0B 405 LM00151
13556 CLA +0 50000 0 10352 13557 STO +0 60100 0 10212
CPF01 BFWRIT.(TM1,TM2,CPBUF(CPBUFZ)...CPBUFZ,GERR) 406 LM00152
13560 CLA +0 50000 0 07621 13561 SUB +0 40200 0 13562 13562 TXH +3 00000 0 07620 13563 STA +0 62100 0 13567
13564 TSX +0 07400 4 00004 13565 TXH +3 00000 0 00057 13566 TXH +3 00000 0 00056 13567 TIX +2 07621 0 00000
13570 TXH +3 00000 0 00752 13571 TRA +0 02000 0 13511
REMN=CPBUFZ-(I-CT) 407 LM00153
13572 CLA +0 50000 0 10217 13573 SUB +0 40200 0 07623 13574 CHS +0 76000 0 00002 13575 ADD +0 40000 0 07621
13576 STO +0 60100 0 10325
BFREAD.(A,B,CPBUF(REMN)...REMN,CPFEF,EOFCT,GERR) 408 LM00154
13577 CLA +0 50000 0 10325 13600 SUB +0 40200 0 13601 13601 TXH +3 00000 0 07620 13602 STA +0 62100 0 13606
13603 TSX +0 07400 4 00003 13604 TXH +3 00000 0 00024 13605 TXH +3 00000 0 00024 13606 TIX +2 10325 0 00000
13607 TXH +3 00000 0 00743 13610 TXH +3 00000 0 10141 13611 TXH +3 00000 0 00752
W'R BDLNMK.(CPBUF(REMN-LMKZ)) .AND. FRSTSW 409 LM00155
13612 NZT -0 52000 0 10212 13613 TRA +0 02000 0 13635 13614 CLA +0 50000 0 10325 13615 SUB +0 40200 0 10224
13616 SUB +0 40200 0 13617 13617 TXH +3 00000 0 07620 13620 STA +0 62100 0 13622 13621 TSX +0 07400 4 00035
13622 TXH +3 00000 0 00000 13623 TZE +0 10000 0 13635
BFWRIT.(TM1,TM2,NWLNMK(LMKZ)...LMKZ,GERR) 410 LM00156
13624 CLA +0 50000 0 10224 13625 SUB +0 40200 0 13626 13626 TXH +3 00000 0 10250 13627 STA +0 62100 0 13633
13630 TSX +0 07400 4 00004 13631 TXH +3 00000 0 00057 13632 TXH +3 00000 0 00056 13633 TIX +2 10224 0 00000
13634 TXH +3 00000 0 00752
E'L 411 LM00157
BFWRIT.(TM1,TM2,CPBUF(REMN)...REMN,GERR) 412 LM00158
13635 CLA +0 50000 0 10325 13636 SUB +0 40200 0 13637 13637 TXH +3 00000 0 07620 13640 STA +0 62100 0 13644
13641 TSX +0 07400 4 00004 13642 TXH +3 00000 0 00057 13643 TXH +3 00000 0 00056 13644 TIX +2 10325 0 00000
13645 TXH +3 00000 0 00752
BFCLOS.(A,B,GERR) 413 LM00159
13646 TSX +0 07400 4 00001 13647 TXH +3 00000 0 00024 13650 TXH +3 00000 0 00024 13651 TXH +3 00000 0 00752
F'N 1B 414 LM00160
13652 CLA +0 50000 0 10353 13653 TRA +0 02000 0 13714
E'L 415 LM00161
CPFEF PRINT COMMENT $ERROR IN FSTATE.--NOTIFY SYSTEMS STAFF.$ 416 LM00162
13654 TSX +0 07400 4 00021 13655 +0 00000 0 00007 13656 +2 55151 4 65160 13657 +3 14560 2 66263
13660 +2 16325 3 34040 13661 -0 54663 3 12670 13662 -2 06270 6 26325 13663 -0 46260 6 26321
13664 +2 62633 6 06060
PRINT COMMENT $DORMNT CALLED$ 417 LM00163
13665 TSX +0 07400 4 00021 13666 +0 00000 0 00003 13667 +2 44651 4 44563 13670 -2 02321 4 34325
13671 +2 46060 6 06060
DORMNT. 418 LM00164
13672 TSX +0 07400 4 00013
END OF FUNCTION 419 LM00165
13673 TSX +0 07400 4 00014 13674 TXH +3 00000 0 00000 13675 SXD -0 63400 1 13674 13676 SXA +0 63400 4 13714
13677 CLA +0 50000 4 00001 13700 STO +0 60100 0 13416 13701 STO +0 60100 0 13476 13702 STO +0 60100 0 13525
13703 STO +0 60100 0 13604 13704 STO +0 60100 0 13647 13705 CLA +0 50000 4 00002 13706 STO +0 60100 0 13417
13707 STO +0 60100 0 13477 13710 STO +0 60100 0 13526 13711 STO +0 60100 0 13605 13712 STO +0 60100 0 13650
13713 TRA +0 02000 2 00001 13714 AXT +0 77400 4 00000 13715 LXA +0 53400 2 13674 13716 LXD -0 53400 1 13674
13717 TRA +0 02000 4 00001
NORMAL MODE IS INTEGER 420 LM00166
BOOLEAN COPYSW, PRSSW, WMRKSW, AROPSW, TMOPSW, FRSTSW 421 LM00167
BOOLEAN NAMO, ADJSW, NAMTYP 422 LM00168
V'S BUFZ=432 423 LM00169
06735 +0 00000 0 00660
D'N BUF1(432), BUF2(432), BUF3(432), BUF4(432), BUF5(432), 424 LM00170
1 BUF6(432), BUF7(432) 424 LM00171
D'N CPBUF(432) 425 LM00172
V'S CPBUFZ=432 426 LM00173
07621 +0 00000 0 00660
V'S FILTBZ=16 427 LM00174
10205 +0 00000 0 00020
D'N FILTAB(16) 428 LM00175
BOOLEAN FILFND 429 LM00176
D'N FILFND(16) 430 LM00177
BOOLEAN CLS. 431 LM00181
INTERNAL FUNCTION (A,B) 432 LM00182
13721 TRA +0 02000 0 14072
E'O CLS. 433 LM00183
13722 TRA +0 02000 0 13725 00036 TTR +0 02100 0 13723 13723 SXA +0 63400 2 14042 13724 TSX +0 07400 2 14042
W'R TMOPSW 434 LM00184
13725 NZT -0 52000 0 10332 13726 TRA +0 02000 0 14034
BFCLOS.(TM1,TM2,GERR) 435 LM00185
13727 TSX +0 07400 4 00001 13730 TXH +3 00000 0 00057 13731 TXH +3 00000 0 00056 13732 TXH +3 00000 0 00752
TMOPSW=0B 436 LM00186
13733 CLA +0 50000 0 10352 13734 STO +0 60100 0 10332
D'N FNM(2) 437 LM00187
FNM(0)=A 438 LM00188
13735 CLA +0 50000 0 00024 13736 STO +0 60100 0 10211
FNM(1)=B 439 LM00189
13737 CLA +0 50000 0 00024 13740 STO +0 60100 0 10210
FSTATE.(A,B,FSBUF(8)...8,NFND) 440 LM00190
13741 TSX +0 07400 4 00016 13742 TXH +3 00000 0 00024 13743 TXH +3 00000 0 00024 13744 TIX +2 10361 0 00730
13745 TXH +3 00000 0 00754
EQUIVALENCE (MODE,FSBUF(7)) 441 LM00191
MODE=MODE.A.134K 442 LM00192
13746 CAL -0 50000 0 00731 13747 ANA -0 32000 0 10375 13750 SLW +0 60200 0 00731
CL01 DELETE.(A,B,0,NDEL1) 443 LM00193
13751 TSX +0 07400 4 00012 13752 TXH +3 00000 0 00024 13753 TXH +3 00000 0 00024 13754 TXH +3 00000 0 10352
13755 TXH +3 00000 0 00753
CHFILE.(TM1,TM2,-0,A,B) 444 LM00194
13756 CLS +0 50200 0 10352 13757 STO +0 60100 0 14070 13760 TSX +0 07400 4 00006 13761 TXH +3 00000 0 00057
13762 TXH +3 00000 0 00056 13763 TXH +3 00000 0 14070 13764 TXH +3 00000 0 00024 13765 TXH +3 00000 0 00024
W'R MODE.NE.000K .AND. KEY.NE.$ XT$ 445 LM00195
13766 CLA +0 50000 0 10223 13767 SUB +0 40200 0 10515 13770 TZE +0 10000 0 14027 13771 CLA +0 50000 0 00731
13772 SUB +0 40200 0 10352 13773 TZE +0 10000 0 14027
CHFILE.(A,B,MODE,-0,-0) 446 LM00196
13774 CLS +0 50200 0 10352 13775 STO +0 60100 0 14070 13776 CLS +0 50200 0 10352 13777 STO +0 60100 0 14071
14000 TSX +0 07400 4 00006 14001 TXH +3 00000 0 00024 14002 TXH +3 00000 0 00024 14003 TXH +3 00000 0 00731
14004 TXH +3 00000 0 14071 14005 TXH +3 00000 0 14070
MODEP = (OCRBC.(MODE).A.777777K).V.575757K6 447 LM00197
14006 TSX +0 07400 4 00023 14007 TXH +3 00000 0 00731 14010 STO +0 60100 0 14071 14011 CAL -0 50000 0 14071
14012 ANA -0 32000 0 10401 14013 ORA -0 50100 0 10463 14014 SLW +0 60200 0 10225
PRMESS.(A,BL,B,BL,$CREATED IN '$,MODEP,$' MODE.$) 448 LM00198
14015 TSX +0 07400 4 00027 14016 TXH +3 00000 0 00024 14017 TXH +3 00000 0 01005 14020 TXH +3 00000 0 00024
14021 TXH +3 00000 0 01005 14022 TXH +3 00000 0 10415 14023 TXH +3 00000 0 10417 14024 TXH +3 00000 0 10225
14025 TXH +3 00000 0 10406 14026 TXH +3 00000 0 10431
E'L 449 LM00199
F'N 1B 450 LM00200
14027 CLA +0 50000 0 10353 14030 TRA +0 02000 0 14064
NDEL1 F'N 0B 451 LM00201
14031 CLA +0 50000 0 10352 14032 TRA +0 02000 0 14064
O'E 452 LM00202
14033 TRA +0 02000 0 14036
F'N 0B 453 LM00203
14034 CLA +0 50000 0 10352 14035 TRA +0 02000 0 14064
E'L 454 LM00204
NFND MODE=000K 455 LM00205
14036 CLA +0 50000 0 10352 14037 STO +0 60100 0 00731
T'O CL01 456 LM00206
14040 TRA +0 02000 0 00741
END OF FUNCTION 457 LM00207
14041 TSX +0 07400 4 00014 14042 TXH +3 00000 0 00000 14043 SXD -0 63400 1 14042 14044 SXA +0 63400 4 14064
14045 CLA +0 50000 4 00001 14046 STA +0 62100 0 13735 14047 STO +0 60100 0 13742 14050 STO +0 60100 0 13752
14051 STO +0 60100 0 13764 14052 STO +0 60100 0 14001 14053 STO +0 60100 0 14016 14054 CLA +0 50000 4 00002
14055 STA +0 62100 0 13737 14056 STO +0 60100 0 13743 14057 STO +0 60100 0 13753 14060 STO +0 60100 0 13765
14061 STO +0 60100 0 14002 14062 STO +0 60100 0 14020 14063 TRA +0 02000 2 00001 14064 AXT +0 77400 4 00000
14065 LXA +0 53400 2 14042 14066 LXD -0 53400 1 14042 14067 TRA +0 02000 4 00001
BOOLEAN YES. 458 LM00212
INTERNAL FUNCTION 459 LM00213
14072 TRA +0 02000 0 14122
E'O YES. 460 LM00214
14073 TRA +0 02000 0 14076 00050 TTR +0 02100 0 14074 14074 SXA +0 63400 2 14112 14075 TSX +0 07400 2 14112
RDFLXC.(YESNO,6) 461 LM00215
14076 TSX +0 07400 4 00031 14077 TXH +3 00000 0 10351 14100 TXH +3 00000 0 10360
W'R YESNO.E.$YES $ 462 LM00216
14101 CLA +0 50000 0 10351 14102 SUB +0 40200 0 10543 14103 TNZ -0 10000 0 14107
F'N 1B 463 LM00217
14104 CLA +0 50000 0 10353 14105 TRA +0 02000 0 14116
O'E 464 LM00218
14106 TRA +0 02000 0 14111
F'N 0B 465 LM00219
14107 CLA +0 50000 0 10352 14110 TRA +0 02000 0 14116
E'L 466 LM00220
END OF FUNCTION 467 LM00221
14111 TSX +0 07400 4 00014 14112 TXH +3 00000 0 00000 14113 SXD -0 63400 1 14112 14114 SXA +0 63400 4 14116
14115 TRA +0 02000 2 00001 14116 AXT +0 77400 4 00000 14117 LXA +0 53400 2 14112 14120 LXD -0 53400 1 14112
14121 TRA +0 02000 4 00001
BOOLEAN DELT. 468 LM00226
INTERNAL FUNCTION (A,B) 469 LM00227
14122 TRA +0 02000 0 14203
E'O DELT. 470 LM00228
14123 TRA +0 02000 0 14126 00042 TTR +0 02100 0 14124 14124 SXA +0 63400 2 14161 14125 TSX +0 07400 2 14161
FNM(0)=A 471 LM00229
14126 CLA +0 50000 0 00024 14127 STO +0 60100 0 10211
FNM(1)=B 472 LM00230
14130 CLA +0 50000 0 00024 14131 STO +0 60100 0 10210
DELETE.(A,B,0,NOTDEL) 473 LM00231
14132 TSX +0 07400 4 00012 14133 TXH +3 00000 0 00024 14134 TXH +3 00000 0 00024 14135 TXH +3 00000 0 10352
14136 TXH +3 00000 0 00755
PRMESS.(A,BL,B,$ DELETED.$) 474 LM00232
14137 TSX +0 07400 4 00027 14140 TXH +3 00000 0 00024 14141 TXH +3 00000 0 01005 14142 TXH +3 00000 0 00024
14143 TXH +3 00000 0 10470 14144 TXH +3 00000 0 10420
F'N 1B 475 LM00233
14145 CLA +0 50000 0 10353 14146 TRA +0 02000 0 14177
NOTDEL PRMESS.(A,BL,B,$ NOT DELETED.$) 476 LM00234
14147 TSX +0 07400 4 00027 14150 TXH +3 00000 0 00024 14151 TXH +3 00000 0 01005 14152 TXH +3 00000 0 00024
14153 TXH +3 00000 0 10500 14154 TXH +3 00000 0 10421 14155 TXH +3 00000 0 10431
F'N 0B 477 LM00235
14156 CLA +0 50000 0 10352 14157 TRA +0 02000 0 14177
E'N 478 LM00236
14160 TSX +0 07400 4 00014 14161 TXH +3 00000 0 00000 14162 SXD -0 63400 1 14161 14163 SXA +0 63400 4 14177
14164 CLA +0 50000 4 00001 14165 STA +0 62100 0 14126 14166 STO +0 60100 0 14133 14167 STO +0 60100 0 14140
14170 STO +0 60100 0 14150 14171 CLA +0 50000 4 00002 14172 STA +0 62100 0 14130 14173 STO +0 60100 0 14134
14174 STO +0 60100 0 14142 14175 STO +0 60100 0 14152 14176 TRA +0 02000 2 00001 14177 AXT +0 77400 4 00000
14200 LXA +0 53400 2 14161 14201 LXD -0 53400 1 14161 14202 TRA +0 02000 4 00001
INSERT FILE AFORM 479 LM00352
BOOLEAN MKLNMK. 480 LM00015
INTERNAL FUNCTION (A,B,CT) 481 LM00016
14203 TRA +0 02000 0 14337
E'O MKLNMK. 482 LM00017
14204 TRA +0 02000 0 14207 00046 TTR +0 02100 0 14205 14205 SXA +0 63400 2 14315 14206 TSX +0 07400 2 14315
OLDERR=FERRTN.(NTFND) 483 LM00018
14207 TSX +0 07400 4 00015 14210 TXH +3 00000 0 00756 14211 STO +0 60100 0 10251
FSTATE.(A,B,FSBUF(8)...8) 484 LM00019
14212 TSX +0 07400 4 00016 14213 TXH +3 00000 0 00024 14214 TXH +3 00000 0 00024 14215 TIX +2 10361 0 00730
FERRTN.(OLDERR) 485 LM00020
14216 TSX +0 07400 4 00015 14217 TXH +3 00000 0 10251
CT=FSBUF(8) 486 LM00021
14220 CLA +0 50000 0 00730 14221 STO +0 60100 0 00024
V'S NWLNMK(11)...NWLNMK(14)=777777000000K 487 LM00022
10232 -3 77777 0 00000 10233 -3 77777 0 00000 10234 -3 77777 0 00000 10235 -3 77777 0 00000
V'S NWLNMK(10)=777777000011K 488 LM00023
10236 -3 77777 0 00011
NWLNMK(9)=A 489 LM00024
14222 CLA +0 50000 0 00024 14223 STO +0 60100 0 10237
NWLNMK(8)=B 490 LM00025
14224 CLA +0 50000 0 00024 14225 STO +0 60100 0 10240
W'R .NOT. GOTTM 491 LM00026
14226 ZET +0 52000 0 10214 14227 TRA +0 02000 0 14300
BOOLEAN GOTTM 492 LM00027
GETTM.(PDATE,PTIME) 493 LM00028
14230 TSX +0 07400 4 00017 14231 TXH +3 00000 0 10252 14232 TXH +3 00000 0 10324
NWLNMK(7)=(PDATE.RS.6).V.$ 00000$ 494 LM00029
14233 CAL -0 50000 0 10360 14234 STA +0 62100 0 14236 14235 CAL -0 50000 0 10252 14236 LGR -0 76500 0 00000
14237 ORA -0 50100 0 10464 14240 SLW +0 60200 0 10241
NWLNMK(6) = (DEFBC.(GTDYTM.(0).RS.27).LS.18) 495 LM00030
1 .V.(PTIME.RS.24) 495 LM00031
2 .V.$/00 00$ 495 LM00032
14241 CAL -0 50000 0 10367 14242 STA +0 62100 0 14244 14243 CAL -0 50000 0 10324 14244 LGR -0 76500 0 00000
14245 SLW +0 60200 0 14335 14246 TSX +0 07400 4 00020 14247 TXH +3 00000 0 10352 14250 STO +0 60100 0 14336
14251 CAL -0 50000 0 10370 14252 STA +0 62100 0 14254 14253 CAL -0 50000 0 14336 14254 LGR -0 76500 0 00000
14255 SLW +0 60200 0 14336 14256 TSX +0 07400 4 00011 14257 TXH +3 00000 0 14336 14260 STO +0 60100 0 14336
14261 CAL -0 50000 0 10365 14262 STA +0 62100 0 14264 14263 CAL -0 50000 0 14336 14264 ALS +0 76700 0 00000
14265 ORA -0 50100 0 14335 14266 ORA -0 50100 0 10525 14267 SLW +0 60200 0 10242
NWLNMK(5)=(PTIME.LS.12).V.$0000 $ 496 LM00034
14270 CAL -0 50000 0 10363 14271 STA +0 62100 0 14273 14272 CAL -0 50000 0 10324 14273 ALS +0 76700 0 00000
14274 ORA -0 50100 0 10376 14275 SLW +0 60200 0 10243
GOTTM=1B 497 LM00035
14276 CLA +0 50000 0 10353 14277 STO +0 60100 0 10214
E'L 498 LM00036
NWLNMK(4)=BZEL.(DEFBC.(FSBUF(8))) 499 LM00037
14300 TSX +0 07400 4 00011 14301 TXH +3 00000 0 00730 14302 STO +0 60100 0 14336 14303 TSX +0 07400 4 00005
14304 TXH +3 00000 0 14336 14305 STO +0 60100 0 10244
V'S NWLNMK(3)=$ $ 500 LM00038
10245 -2 06060 6 06060
V'S NWLNMK(2)=$ 000$ 501 LM00039
10246 -2 06060 0 00000
V'S NWLNMK(1)=$00 $ 502 LM00040
10247 +0 00060 6 06060
F'N 1B 503 LM00041
14306 CLA +0 50000 0 10353 14307 TRA +0 02000 0 14331
NTFND FERRTN.(OLDERR) 504 LM00042
14310 TSX +0 07400 4 00015 14311 TXH +3 00000 0 10251
F'N 0B 505 LM00043
14312 CLA +0 50000 0 10352 14313 TRA +0 02000 0 14331
END OF FUNCTION 506 LM00044
14314 TSX +0 07400 4 00014 14315 TXH +3 00000 0 00000 14316 SXD -0 63400 1 14315 14317 SXA +0 63400 4 14331
14320 CLA +0 50000 4 00001 14321 STO +0 60100 0 14213 14322 STA +0 62100 0 14222 14323 CLA +0 50000 4 00002
14324 STO +0 60100 0 14214 14325 STA +0 62100 0 14224 14326 CLA +0 50000 4 00003 14327 STA +0 62100 0 14221
14330 TRA +0 02000 2 00001 14331 AXT +0 77400 4 00000 14332 LXA +0 53400 2 14315 14333 LXD -0 53400 1 14315
14334 TRA +0 02000 4 00001
BOOLEAN BDLNMK. 507 LM00049
INTERNAL FUNCTION(LMK) 508 LM00050
14337 TRA +0 02000 0 14464
E'O BDLNMK. 509 LM00051
14340 TRA +0 02000 0 14343 00035 TTR +0 02100 0 14341 14341 SXA +0 63400 2 14427 14342 TSX +0 07400 2 14427
W'R (LMK(14).NE.777777000000K .AND. LMK(14).NE.0) 510 LM00052
1.OR.LMK(13).NE.777777000000K 510 LM00053
2.OR.LMK(12).NE.777777000000K 510 LM00054
3.OR.LMK(11).NE.777777000000K 510 LM00055
4.OR.LMK(10).NE.777777000011K 510 LM00056
5.OR.LMK(7).A.776060776060K .NE. $ 00/00$ 510 LM00057
6.OR.LMK(6).A.776060776060K .NE. $/00 00$ 510 LM00058
7.OR.LMK(5).A.606077607777K .NE. $00.0 $ 510 LM00059
8.OR.LMK(4).A.60K.NE.0 510 LM00060
14343 CAL -0 50000 0 00020 14344 ANA -0 32000 0 10371 14345 SLW +0 60200 0 14463 14346 CLA +0 50000 0 14463
14347 SUB +0 40200 0 10352 14350 TNZ -0 10000 0 14416 14351 CAL -0 50000 0 00017 14352 ANA -0 32000 0 10520
14353 SLW +0 60200 0 14463 14354 CLA +0 50000 0 14463 14355 SUB +0 40200 0 10402 14356 TNZ -0 10000 0 14416
14357 CAL -0 50000 0 00016 14360 ANA -0 32000 0 10550 14361 SLW +0 60200 0 14463 14362 CLA +0 50000 0 14463
14363 SUB +0 40200 0 10525 14364 TNZ -0 10000 0 14416 14365 CAL -0 50000 0 00015 14366 ANA -0 32000 0 10550
14367 SLW +0 60200 0 14463 14370 CLA +0 50000 0 14463 14371 SUB +0 40200 0 10465 14372 TNZ -0 10000 0 14416
14373 CLA +0 50000 0 00012 14374 SUB +0 40200 0 10554 14375 TNZ -0 10000 0 14416 14376 CLA +0 50000 0 00011
14377 SUB +0 40200 0 10553 14400 TNZ -0 10000 0 14416 14401 CLA +0 50000 0 00010 14402 SUB +0 40200 0 10553
14403 TNZ -0 10000 0 14416 14404 CLA +0 50000 0 00007 14405 SUB +0 40200 0 10553 14406 TNZ -0 10000 0 14416
14407 CLA +0 50000 0 00006 14410 SUB +0 40200 0 10352 14411 TZE +0 10000 0 14415 14412 CLA +0 50000 0 00006
14413 SUB +0 40200 0 10553 14414 TNZ -0 10000 0 14416 14415 TRA +0 02000 0 14421
F'N 1B 511 LM00061
14416 CLA +0 50000 0 10353 14417 TRA +0 02000 0 14457
O'E 512 LM00062
14420 TRA +0 02000 0 14423
F'N 0B 513 LM00063
14421 CLA +0 50000 0 10352 14422 TRA +0 02000 0 14457
E'L 514 LM00064
END OF FUNCTION 515 LM00065
14423 TSX +0 07400 4 00014 14424 PZE +0 00000 0 00004 14425 PZE +0 00000 0 00001 14426 PZE +0 00000 0 00003
14427 TXH +3 00000 0 00000 14430 SXD -0 63400 1 14427 14431 SXA +0 63400 4 14457 14432 CLA +0 50000 4 00001
14433 SUB +0 40200 0 14424 14434 STA +0 62100 0 14343 14435 SUB +0 40200 0 14425 14436 STA +0 62100 0 14351
14437 SUB +0 40200 0 14425 14440 STA +0 62100 0 14357 14441 SUB +0 40200 0 14425 14442 STA +0 62100 0 14365
14443 SUB +0 40200 0 14426 14444 STA +0 62100 0 14373 14445 SUB +0 40200 0 14425 14446 STA +0 62100 0 14376
14447 SUB +0 40200 0 14425 14450 STA +0 62100 0 14401 14451 SUB +0 40200 0 14425 14452 STA +0 62100 0 14404
14453 SUB +0 40200 0 14425 14454 STA +0 62100 0 14407 14455 STA +0 62100 0 14412 14456 TRA +0 02000 2 00001
14457 AXT +0 77400 4 00000 14460 LXA +0 53400 2 14427 14461 LXD -0 53400 1 14427 14462 TRA +0 02000 4 00001
INTERNAL FUNCTION DATTM.(LMK)= 516 LM00072
1 (BCDEC.((LMK(6).RS.18).A.7777K).LS.27).A.777K9 516 LM00073
2 .V.(BCDEC.((LMK(7).RS.18).A.7777K).LS.23).A.74K7 516 LM00074
3 .V.(BCDEC.(LMK(7).A.7777K).LS.18).A.37K6 516 LM00075
4 .V.(BCDEC.(LMK(6).A.7777K)*3600 516 LM00076
6 +BCDEC.(LMK(5).RS.24)*60 516 LM00077
5 +BCDEC.((LMK(5).RS.12).A.77K)*6) 516 LM00078
14464 TRA +0 02000 0 14640 00041 TTR +0 02100 0 14465 14465 SXA +0 63400 2 14612 14466 TSX +0 07400 2 14612
14467 CAL -0 50000 0 10363 14470 STA +0 62100 0 14472 14471 CAL -0 50000 0 00017 14472 LGR -0 76500 0 00000
14473 ANA -0 32000 0 10374 14474 SLW +0 60200 0 14634 14475 TSX +0 07400 4 00000 14476 TXH +3 00000 0 14634
14477 XCA +0 13100 0 00000 14500 MPY +0 20000 0 10360 14501 STQ -0 60000 0 14634 14502 CAL -0 50000 0 10367
14503 STA +0 62100 0 14505 14504 CAL -0 50000 0 00017 14505 LGR -0 76500 0 00000 14506 SLW +0 60200 0 14635
14507 TSX +0 07400 4 00000 14510 TXH +3 00000 0 14635 14511 XCA +0 13100 0 00000 14512 MPY +0 20000 0 10373
14513 STQ -0 60000 0 14635 14514 CAL -0 50000 0 00016 14515 ANA -0 32000 0 10400 14516 SLW +0 60200 0 14636
14517 TSX +0 07400 4 00000 14520 TXH +3 00000 0 14636 14521 XCA +0 13100 0 00000 14522 MPY +0 20000 0 10377
14523 XCA +0 13100 0 00000 14524 ADD +0 40000 0 14635 14525 ADD +0 40000 0 14634 14526 STO +0 60100 0 14636
14527 CAL -0 50000 0 00015 14530 ANA -0 32000 0 10400 14531 SLW +0 60200 0 14635 14532 TSX +0 07400 4 00000
14533 TXH +3 00000 0 14635 14534 STO +0 60100 0 14635 14535 CAL -0 50000 0 10365 14536 STA +0 62100 0 14540
14537 CAL -0 50000 0 14635 14540 ALS +0 76700 0 00000 14541 ANA -0 32000 0 10403 14542 SLW +0 60200 0 14635
14543 CAL -0 50000 0 10365 14544 STA +0 62100 0 14546 14545 CAL -0 50000 0 00015 14546 LGR -0 76500 0 00000
14547 ANA -0 32000 0 10400 14550 SLW +0 60200 0 14634 14551 TSX +0 07400 4 00000 14552 TXH +3 00000 0 14634
14553 STO +0 60100 0 14634 14554 CAL -0 50000 0 10366 14555 STA +0 62100 0 14557 14556 CAL -0 50000 0 14634
14557 ALS +0 76700 0 00000 14560 ANA -0 32000 0 10405 14561 SLW +0 60200 0 14634 14562 CAL -0 50000 0 10365
14563 STA +0 62100 0 14565 14564 CAL -0 50000 0 00016 14565 LGR -0 76500 0 00000 14566 ANA -0 32000 0 10400
14567 SLW +0 60200 0 14637 14570 TSX +0 07400 4 00000 14571 TXH +3 00000 0 14637 14572 STO +0 60100 0 14637
14573 CAL -0 50000 0 10370 14574 STA +0 62100 0 14576 14575 CAL -0 50000 0 14637 14576 ALS +0 76700 0 00000
14577 ANA -0 32000 0 10551 14600 ORA -0 50100 0 14634 14601 ORA -0 50100 0 14635 14602 ORA -0 50100 0 14636
14603 SLW +0 60200 0 14637 14604 CLA +0 50000 0 14637 14605 TRA +0 02000 0 14630 14606 PZE +0 00000 0 00004
14607 PZE +0 00000 0 00001 14610 PZE +0 00000 0 00003 14611 PZE +0 00000 0 00005 14612 TXH +3 00000 0 00000
14613 SXD -0 63400 1 14612 14614 SXA +0 63400 4 14630 14615 CLA +0 50000 4 00001 14616 SUB +0 40200 0 14611
14617 STA +0 62100 0 14471 14620 STA +0 62100 0 14504 14621 SUB +0 40200 0 14607 14622 STA +0 62100 0 14514
14623 STA +0 62100 0 14564 14624 SUB +0 40200 0 14607 14625 STA +0 62100 0 14527 14626 STA +0 62100 0 14545
14627 TRA +0 02000 2 00001 14630 AXT +0 77400 4 00000 14631 LXA +0 53400 2 14612 14632 LXD -0 53400 1 14612
14633 TRA +0 02000 4 00001
INTERNAL FUNCTION CNT.(LMK)=BCDEC.(LMK(4)) 517 LM00083
14640 TRA +0 02000 0 14665 00037 TTR +0 02100 0 14641 14641 SXA +0 63400 2 14652 14642 TSX +0 07400 2 14652
14643 TSX +0 07400 4 00000 14644 TXH +3 00000 0 00020 14645 TRA +0 02000 0 14661 14646 PZE +0 00000 0 00004
14647 PZE +0 00000 0 00001 14650 PZE +0 00000 0 00003 14651 PZE +0 00000 0 00005 14652 TXH +3 00000 0 00000
14653 SXD -0 63400 1 14652 14654 SXA +0 63400 4 14661 14655 CLA +0 50000 4 00001 14656 SUB +0 40200 0 14646
14657 STO +0 60100 0 14644 14660 TRA +0 02000 2 00001 14661 AXT +0 77400 4 00000 14662 LXA +0 53400 2 14652
14663 LXD -0 53400 1 14652 14664 TRA +0 02000 4 00001
INTERNAL FUNCTION FLN1.(LMK)=LMK(9) 518 LM00084
14665 TRA +0 02000 0 14712 00043 TTR +0 02100 0 14666 14666 SXA +0 63400 2 14677 14667 TSX +0 07400 2 14677
14670 CLA +0 50000 0 00013 14671 TRA +0 02000 0 14706 14672 PZE +0 00000 0 00004 14673 PZE +0 00000 0 00001
14674 PZE +0 00000 0 00003 14675 PZE +0 00000 0 00005 14676 PZE +0 00000 0 00011 14677 TXH +3 00000 0 00000
14700 SXD -0 63400 1 14677 14701 SXA +0 63400 4 14706 14702 CLA +0 50000 4 00001 14703 SUB +0 40200 0 14676
14704 STA +0 62100 0 14670 14705 TRA +0 02000 2 00001 14706 AXT +0 77400 4 00000 14707 LXA +0 53400 2 14677
14710 LXD -0 53400 1 14677 14711 TRA +0 02000 4 00001
INTERNAL FUNCTION FLN2.(LMK)=LMK(8) 519 LM00085
14712 TRA +0 02000 0 14740 00044 TTR +0 02100 0 14713 14713 SXA +0 63400 2 14725 14714 TSX +0 07400 2 14725
14715 CLA +0 50000 0 00014 14716 TRA +0 02000 0 14734 14717 PZE +0 00000 0 00004 14720 PZE +0 00000 0 00001
14721 PZE +0 00000 0 00003 14722 PZE +0 00000 0 00005 14723 PZE +0 00000 0 00011 14724 PZE +0 00000 0 00010
14725 TXH +3 00000 0 00000 14726 SXD -0 63400 1 14725 14727 SXA +0 63400 4 14734 14730 CLA +0 50000 4 00001
14731 SUB +0 40200 0 14724 14732 STA +0 62100 0 14715 14733 TRA +0 02000 2 00001 14734 AXT +0 77400 4 00000
14735 LXA +0 53400 2 14725 14736 LXD -0 53400 1 14725 14737 TRA +0 02000 4 00001
V'S INF1=9 520 LM00092
10215 +0 00000 0 00011
V'S INF2=4 521 LM00093
10216 +0 00000 0 00004
D'N PRLNMK(14), NWLNMK(14) 522 LM00094
V'S LMKZ=14 523 LM00095
10224 +0 00000 0 00016
D'N FSBUF(432) 524 LM00096
END OF PROGRAM 525 LM00353
14740 TSX +0 07400 4 00014
BLIP BCD 10/04/70 1548.6 905 00000
1 M1416 3845 PETER R. BOS ....... SET BLIP SEQUENCE OPTION ......... 05/30/69 1958.3 PAGE 1
PCC ON
LBL BLIP
PCC OFF
EXTERN SETBRK,GETCOM,BCDEC,SETFUL,WRFLXA,RDFLXA
EXTERN SETBLP,SETBCD,WRFLX,CHNCOM
TRANSFER VECTOR
00000 622563225142 SETBRK
00001 272563234644 GETCOM
00002 222324252360 BCDEC
00003 622563266443 SETFUL
00004 665126436721 WRFLXA
00005 512426436721 RDFLXA
00006 622563224347 SETBLP
00007 622563222324 SETBCD
00010 665126436760 WRFLX
00011 233045234644 CHNCOM
00012 0074 00 4 00000 TSX SETBRK,4 SET INTERRUPT
00013 3 00000 0 00050 PAR CHN .. EXIT
00014 0074 00 4 00001 TSX GETCOM,4 GET ARG, NO. SECONDS INTERVAL
00015 0 00000 0 00001 PZE 1 ..
00016 -0340 00 0 00017 LAS *+1 CHECK FOR FENCE
00017 -377777777777 OCT 777777777777 ..
00020 -0500 00 0 00063 CAL =H 2 YES, USE DEFAULT VALUE
00021 0602 00 0 00062 SLW T ..
00022 0074 00 4 00002 TSX BCDEC,4 CONVERT TO BINARY
00023 3 00000 0 00062 PAR T ..
00024 0602 00 0 00062 SLW T ..
00025 0100 00 0 00043 TZE RESET T=0 TURNS OFF BLIP
00026 0074 00 4 00003 TSX SETFUL,4 SET 12-BIT MODE
00027 0074 00 4 00004 TSX WRFLXA,4 ASK FOR INPUT
00030 0 00003 0 00052 PZE TYPE,,3 ..
00031 0074 00 4 00005 TSX RDFLXA,4 READ IT
00032 0 00001 0 00061 PZE WD,,1 ..
00033 0044 00 0 00000 PAI RETURN CODE FROM RDLINE
00034 0054 00 040000 RFT 40000 WAS LINE INCOMPLETE
00035 0020 00 0 00043 TRA RESET YES, SKIP (USE ALL 3 CHARS)
00036 0771 00 0 00001 ARS 1 12-BIT CHAR COUNT
00037 0734 00 1 00000 PAX ,1 ..
00040 -0500 00 0 00061 CAL WD REMOVE C.R. FROM CHAR
00041 0322 00 1 00061 ERA CVT,1 ..
00042 0602 00 0 00061 SLW WD ..
00043 0074 00 4 00006 RESET TSX SETBLP,4 SET BLIP OPTION
00044 3 00000 0 00061 PAR WD ..
00045 3 00000 0 00062 PAR T ..
00046 0074 00 4 00010 TSX WRFLX,4 ..
00047 0 00001 0 00055 PZE STAR,,1 ..
00050 0074 00 4 00011 CHN TSX CHNCOM,4 AND EXIT
00051 0 00000 0 00000 PZE 0 ..
1 M1416 3845 PETER R. BOS ....... SET BLIP SEQUENCE OPTION ......... 05/30/69 1958.3 PAGE 2
00052 +013300630170 TYPE OCT 013300630170,014701250035,006001320057
00053 +014701250035
00054 +006001320057
00055 545757575757 STAR BCI /*/
00056 +000000000002 OCT 000000000002,000000020037,000200370037
00057 +000000020037
00060 +000200370037
00061 CVT SYN * ..
00061 0 00000 0 00000 WD PZE BLIP CHAR
00062 0 00000 0 00000 T PZE TIME INTERVAL
END
LITERALS
00063 606060606002
1 M1416 3845 PETER R. BOS ....... SET BLIP SEQUENCE OPTION ......... 05/30/69 1958.3 PAGE 1
POST PROCESSOR ASSEMBLY DATA
64 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
62 T 21, 23, 24, 45
61 WD 32, 40, 42, 44
50 CHN 13
61 CVT 41, 61
55 STAR 47
52 TYPE 30
2 BCDEC 22
43 RESET 25, 35
10 WRFLX 46
11 CHNCOM 50
1 GETCOM 14
5 RDFLXA 31
7 SETBCD
6 SETBLP 43
0 SETBRK 12
3 SETFUL 26
4 WRFLXA 27
0 NO ERROR IN ABOVE ASSEMBLY.
CALL BCD 10/04/70 1548.6 25034 00000
1 MAD PROGRAM LISTING ... ... ... FILE CALL0 MAD 02/08/68 1708.9
-
CALL COMMAND FOR FILE SYSTEM EXERCISING LM00001
LM00002
LOADING INSTRUCTIONS ... LM00003
LM00004
MAD CALL0 (LIST) LM00005
MAD CALL1 (LIST) LM00006
FAP CALL2 (LIST) LM00007
FAP CALL3 (LIST) LM00008
LAED NCLOAD CALL0 CALL1 CALL2 LM00009
CALL3 (SQZ) (SRCH) (CFL5) XLIBE LM00010
SAVE CALL LM00011
LM00012
D.R. WIDRIG DEC. 1965 LM00013
LM00014
MAJOR REVISION MAY 1966 D.R. WIDRIG LM00015
LM00016
NORMAL MODE IS INTEGER *001 LM00017
BOOLEAN STOP,FIRST *002 LM00018
LM00019
DIMENSION A(9),ARRY(9),SN(9),BUFF(432),MESSAG(20),ARG(20) *003 LM00020
VECTOR VALUES COMNDS=$UPDMFD$,1,$DELMFD$,2,$ATTACH$,3,$MOVFIL$,4, *004 LM00021
1 $SETFIL$,5,$ LINK$,6,$ ALLOT$,7,$UPDATE$,8,$RSFILE$,40 *004 LM00022
2 ,$ OPEN$,10,$BUFFER$,11,$RDFILE$,12,$RDWAIT$,13, *004 LM00023
3 $WRFILE$,14,$WRWAIT$,15,$TRFILE$,16,$FCHECK$,17, *004 LM00024
4 $ CLOSE$,18,$ FWAIT$,19, *004 LM00025
5 $SETPRI$,20,$RESETF$,21,$CHFILE$,22,$DELFIL$,23, *004 LM00026
6 $FSTATE$,24,$UNLINK$,25,$STORGE$,26,$ATTNAM$,27, *004 LM00027
7 $ MOUNT$,30,$UMOUNT$,31,$VERIFY$,32,$ LABEL$,33, *004 LM00028
8 $TAPFIL$,34,$BVERFY$,35,$BLABEL$,36,$IODIAG$,28, *004 LM00029
9 $PRNTER$,39,$ EXIT$,41,777777777777K,40 *004 LM00030
VECTOR VALUES TABENT = 2 *005 LM00031
LM00032
VECTOR VALUES FSTAT = 0,$ INACT$,575757576051K,575757576066K, *006 LM00033
1 575757605166K *006 LM00034
VECTOR VALUES FDEV = 0,$ DRUM $,$ DISK $,$ TAPE $ *007 LM00035
VECTOR VALUES FENCE = 777777777777K *008 LM00036
VECTOR VALUES NULLS = 575757575757K *009 LM00037
VECTOR VALUES SP = 575757575760K *010 LM00038
VECTOR VALUES B3 = 575760K6 *011 LM00039
VECTOR VALUES MZE = 4K11 *012 LM00040
VECTOR VALUES ALL = $ ALL$ *013 LM00041
VECTOR VALUES NOSTOP = $ (GO)$ *014 LM00042
VECTOR VALUES FNS = $ (FNS)$ *015 LM00043
VECTOR VALUES STAR = $(STAR)$ *016 LM00044
LM00045
VECTOR VALUES MXARG = 9 *017 LM00046
VECTOR VALUES CHNARG = 0 *018 LM00047
VECTOR VALUES LMAX = 20 *019 LM00048
VECTOR VALUES CMAX = 72 *020 LM00049
LM00050
VECTOR VALUES STOP = 1B *021 LM00051
VECTOR VALUES FIRST = 1B *022 LM00052
LM00053
SET STANDARD ERROR RETURN LM00054
LM00055
FERRTN.(S(39)) *023 LM00056
LM00057
CLEAR DATA AREAS AND LM00058
FIGURE OUT HOW TO GET ARGUMENTS LM00059
LM00060
START THROUGH PRIME1, FOR I = 0,1,(I.G.MXARG) *024 LM00061
ARRY(I) = MZE *025 LM00062
SN(I) = - 1 *026 LM00063
PRIME1 CONTINUE *027 LM00064
LM00065
WHENEVER FIRST *028 LM00066
GCLS.(ARG,0) *029 LM00067
OTHERWISE *030 LM00068
PRMESA.($CALL $) *031 LM00069
GTWDBI. *032 LM00070
LM00071
SECOND GO-AROUND, READ INPUT LINE AND FORMAT IT LM00072
LM00073
THROUGH LOOP1, FOR I = 1,1,(I.G.LMAX) *033 LM00074
ARG(I) = FENCE *034 LM00075
GTWDB.(ARG(I),EMPTY) *035 LM00076
LOOP1 CONTINUE *036 LM00077
END OF CONDITIONAL *037 LM00078
EMPTY J = 1 *038 LM00079
LM00080
GET ALL THE PERTINENT ARGUMENTS PROCESSED LM00081
LM00082
THROUGH IN, FOR I = 0,1,(I.G.MXARG) *039 LM00083
ARRY(I) = ARG(J) *040 LM00084
SN(I) = 1 *041 LM00085
WHENEVER (ARRY(I) .E. $ *$) *042 LM00086
ARRY(I) = MZE *043 LM00087
SN(I) = - 1 *044 LM00088
OR WHENEVER (ARRY(I) .E. NOSTOP) *045 LM00089
STOP = 0B *046 LM00090
I = I - 1 *047 LM00091
OR WHENEVER (ARRY(I) .E. FENCE) *048 LM00092
ARRY(I) = MZE *049 LM00093
SN(I) = -1 *050 LM00094
TRANSFER TO SELECT *051 LM00095
OR WHENEVER (ARRY(I) .E. FNS) *052 LM00096
ARRY(I) = FENCE *053 LM00097
OR WHENEVER (ARRY(I) .E. STAR) *054 LM00098
ARRY(I) = $ *$ *055 LM00099
END OF CONDITIONAL *056 LM00100
J = J + 1 *057 LM00101
LM00102
IN CONTINUE *058 LM00103
LM00104
SELECT THE PROPER ROUTINE AND BRANCH LM00105
LM00106
SELECT THROUGH SELECT, FOR I = 0,TABENT,(COMNDS(I).E.ARRY).OR. *059 LM00107
1 (COMNDS(I).E.FENCE) *059 LM00108
SUBNAM.(LJUST.(ARRY)) *060 LM00109
TRANSFER TO S(COMNDS(I+1)) *061 LM00110
LM00111
PRIVILEGED COMMANDS LM00112
LM00113
S(1) CALL.(PROBN.(ARRY(1)),PROGN.(ARRY(2))) *062 LM00114
TRANSFER TO KAPUT *063 LM00115
LM00116
S(2) CALL.(PROBN.(ARRY(1)),PROGN.(ARRY(2))) *064 LM00117
TRANSFER TO KAPUT *065 LM00118
LM00119
S(3) CALL.(PROBN.(ARRY(1)),PROGN.(ARRY(2))) *066 LM00120
TRANSFER TO KAPUT *067 LM00121
LM00122
S(4) CALL.(ARRY(1),ARRY(2),PROBN.(ARRY(3)),PROGN.(ARRY(4))) *068 LM00123
TRANSFER TO KAPUT *069 LM00124
LM00125
S(5) CALL.(ARRY(1),ARRY(2),DATECV.(ARRY(3),S(40)).V. *070 LM00126
1 TIMECV.(ARRY(4),S(40)), *070 LM00127
2 DATECV.(ARRY(5),S(40)).V.BCDEC.(ARRY(6)), *070 LM00128
3 SN(7)*BCOCT.(ARRY(7)),SN(8)*BCDEC.(ARRY(8))) *070 LM00129
TRANSFER TO KAPUT *071 LM00130
LM00131
S(6) CALL.(ARRY(1),ARRY(2),PROBN.(ARRY(3)),PROGN.(ARRY(4)), *072 LM00132
1 ARRY(5),ARRY(6),SN(7)*BCOCT.(ARRY(7))) *072 LM00133
TRANSFER TO KAPUT *073 LM00134
LM00135
S(7) CALL.(BCDEC.(ARRY(1)),SN(2)*BCDEC.(ARRY(2)), *074 LM00136
1 SN(3)*BCDEC.(ARRY(3))) *074 LM00137
TRANSFER TO KAPUT *075 LM00138
LM00139
S(8) CALL. *076 LM00140
TRANSFER TO KAPUT *077 LM00141
LM00142
S(9) RSFILE.(ARRY(1),ARRY(2)) LM00143
T'O KAPUT LM00144
LM00145
FILE READING AND WRITING, ETC. LM00146
LM00147
S(10) CALL.(ARRY(1),ARRY(2),ARRY(3),SN(4)*BCOCT.(ARRY(4)), *078 LM00148
1 SN(5)*BCDEC.(ARRY(5))) *078 LM00149
CHNARG = 1 *079 LM00150
TRANSFER TO KAPUT *080 LM00151
LM00152
S(11) FLINE = BCDEC.(ARRY(3)) *081 LM00153
CALL.(ARRY(1),ARRY(2),BUFF(432)...FLINE) *082 LM00154
TRANSFER TO KAPUT *083 LM00155
LM00156
S(12) *084 LM00157
LM00158
S(13) WHENEVER SN(4) .L. 0 *085 LM00159
COUNT = 1 *086 LM00160
OTHERWISE *087 LM00161
COUNT = BCDEC.(ARRY(4)) *088 LM00162
WHENEVER COUNT .G. 20, COUNT = 20 *089 LM00163
END OF CONDITIONAL *090 LM00164
CALL.(ARRY(1),ARRY(2),BCDEC.(ARRY(3)),ARG(20)...COUNT, *091 LM00165
1 EOF1,COUNT) *091 LM00166
TRANSFER TO PWORD *092 LM00167
LM00168
EOF1 PRMESS.($EOF$) *093 LM00169
LM00170
PWORD COUNT = 20 - COUNT *094 LM00171
THROUGH LOOP13, FOR I = 20,-1,(I.LE.COUNT) *095 LM00172
PRMESS.(OCLBC.(ARG(I)),OCRBC.(ARG(I))) *096 LM00173
LOOP13 CONTINUE *097 LM00174
TRANSFER TO KAPUT *098 LM00175
LM00176
S(14) *099 LM00177
LM00178
S(15) FLINE = (BCOCT.(ARRY(4)).LS.18) .V. BCOCT.(ARRY(5)) *100 LM00179
CALL.(ARRY(1),ARRY(2),BCDEC.(ARRY(3)),FLINE...1,EOF2) *101 LM00180
TRANSFER TO KAPUT *102 LM00181
LM00182
EOF2 PRMESS.($EOF$) *103 LM00183
TRANSFER TO KAPUT *104 LM00184
LM00185
SINCE 'TRFILE' IS SUCH A HANDY WAY TO MAKE DUMMY LM00186
FILES, THIS ENTRY WORKS IN TWO WAYS, DEPENDING ON LM00187
WHETHER OR NOT THIS IS THE FIRST FUNCTION REQUESTED LM00188
OF 'CALL'. LM00189
LM00190
S(16) WHENEVER FIRST *105 LM00191
OPEN.($W$,ARRY(1),ARRY(2)) *106 LM00192
BUFFER.(ARRY(1),ARRY(2),BUFF(432)...432) *107 LM00193
TRFILE.(ARRY(1),ARRY(2),BCDEC.(ARRY(3))) *108 LM00194
CLOSE.(ARRY(1),ARRY(2)) *109 LM00195
OTHERWISE *110 LM00196
CALL.(ARRY(1),ARRY(2),BCDEC.(ARRY(3))) *111 LM00197
END OF CONDITIONAL *112 LM00198
TRANSFER TO KAPUT *113 LM00199
LM00200
S(17) CALL.(ARRY(1),ARRY(2),FINISH) *114 LM00201
TRANSFER TO KAPUT *115 LM00202
LM00203
FINISH PRMESS.($FINISH$) *116 LM00204
TRANSFER TO KAPUT *117 LM00205
LM00206
S(18) CALL.(ARRY(1),ARRY(2)) *118 LM00207
TRANSFER TO KAPUT *119 LM00208
LM00209
S(19) CALL.(ARRY(1),ARRY(2)) *120 LM00210
TRANSFER TO KAPUT *121 LM00211
LM00212
MISCELLANEOUS FILE MANIPULATIONS LM00213
LM00214
S(20) CALL.(ARRY(1).A.7K) *122 LM00215
TRANSFER TO KAPUT *123 LM00216
LM00217
S(21) CALL. *124 LM00218
TRANSFER TO KAPUT *125 LM00219
LM00220
S(22) CALL.(ARRY(1),ARRY(2),SN(3)*BCOCT.(ARRY(3)), *126 LM00221
1 ARRY(4),ARRY(5)) *126 LM00222
TRANSFER TO KAPUT *127 LM00223
LM00224
S(23) CALL.(ARRY(1),ARRY(2)) *128 LM00225
TRANSFER TO KAPUT *129 LM00226
LM00227
S(24) CALL.(ARRY(1),ARRY(2),A(8)...8) *130 LM00228
WHENEVER (A(7) .RS. 35) .E. 1 *131 LM00229
LBIT = 575757604360K *132 LM00230
OTHERWISE *133 LM00231
LBIT = NULLS *134 LM00232
END OF CONDITIONAL *135 LM00233
PRMESS.(BZEL.(DEFBC.(A(8))),LBIT,OCRBC.(A(7)).V.B3, *136 LM00234
1 FSTAT(A(6)),FDEV(A(5)),BZEL.(DEFBC.(A(4))),SP, *136 LM00235
2 BZEL.(DEFBC.(A(3))),SP,CVDATE.(A(2)),CVTIME.(A(2)), *136 LM00236
3 SP,CVDATE.(A(1)),BZEL.(DERBC.(A(1)))) *136 LM00237
TRANSFER TO KAPUT *137 LM00238
LM00239
S(25) CALL.(ARRY(1),ARRY(2)) *138 LM00240
TRANSFER TO KAPUT *139 LM00241
LM00242
S(26) CALL.(BCOCT.(ARRY(1)),ALLOTD,USED) *140 LM00243
PRMESS.(BZEL.(DEFBC.(ALLOTD)),BZEL.(DEFBC.(USED))) *141 LM00244
TRANSFER TO KAPUT *142 LM00245
LM00246
S(27) CALL.(A(4)...4) *143 LM00247
PRMESS.(A(4),SP,A(3),BZEL.(DERBC.(A(2))), *144 LM00248
1 A(1) .V. 575757576000K) *144 LM00249
TRANSFER TO KAPUT *145 LM00250
LM00251
S(28) CALL.(A(7)...7) *146 LM00252
WHENEVER (A(7) .A. 1K6) .NE. 0 *147 LM00253
LBIT = 575740214060K *148 LM00254
OTHERWISE *149 LM00255
LBIT = NULLS *150 LM00256
END OF CONDITIONAL *151 LM00257
PRMESS.(LBIT,(OCABC.(A(7)).LS.6).V.$00000 $,A(6), *152 LM00258
1 DEFBC.(A(5)).V.B3,(DEFBC.(A(4)).LS.6).V. *152 LM00259
2 575757600060K,A(3),SP,A(2),OCABC.(A(1))) *152 LM00260
TRANSFER TO KAPUT *153 LM00261
LM00262
LM00263
TAPE HANDLING COMMANDS LM00264
LM00265
S(30) PRMESS.($ TYPE MESSAGE$) *154 LM00266
RDFLXC.(MESSAG(1),CMAX) *155 LM00267
CALL.(SN(1)*BCDEC.(ARRY(1)),BCDEC.(ARRY(2)), *156 LM00268
1 MESSAG(20)...LMAX) *156 LM00269
TRANSFER TO KAPUT *157 LM00270
LM00271
S(31) PRMESS.($ TYPE MESSAGE$) *158 LM00272
RDFLXC.(MESSAG(1),CMAX) *159 LM00273
WHENEVER ARRY(1).E.ALL *160 LM00274
ARRY(1) = $ALL$ *161 LM00275
OTHERWISE *162 LM00276
ARRY(1) = BCDEC.(ARRY(1)) *163 LM00277
END OF CONDITIONAL *164 LM00278
CALL.(ARRY(1),MESSAG(20)...LMAX) *165 LM00279
TRANSFER TO KAPUT *166 LM00280
LM00281
S(32) PRMESS.($ TYPE BCD LABEL$) *167 LM00282
RDFLXC.(MESSAG(1),24) *168 LM00283
CALL.(BCDEC.(ARRY(1)),MESSAG(4)...4) *169 LM00284
TRANSFER TO KAPUT *170 LM00285
LM00286
S(33) PRMESS.($ TYPE BCD LABEL$) *171 LM00287
RDFLXC.(MESSAG(1),24) *172 LM00288
CALL.(BCDEC.(ARRY(1)),MESSAG(4)...4) *173 LM00289
TRANSFER TO KAPUT *174 LM00290
LM00291
S(34) CALL.(ARRY(1),ARRY(2),BCDEC.(ARRY(3)), *175 LM00292
1 SN(4)*BCDEC.(ARRY(4))) *175 LM00293
TRANSFER TO KAPUT *176 LM00294
LM00295
S(35) PRMESS.($ TYPE OCTAL LABEL$) *177 LM00296
RDFLXC.(MESSAG(1),24) *178 LM00297
THROUGH LOOP35, FOR I=1,1,I.G.4 *179 LM00298
MESSAG(21-I) = BCOCT.(MESSAG(I)) *180 LM00299
LOOP35 CONTINUE *181 LM00300
VERIFY.(BCDEC.(ARRY(1)),MESSAG(20)...4) *182 LM00301
TRANSFER TO KAPUT *183 LM00302
LM00303
S(36) PRMESS.($ TYPE OCTAL LABEL$) *184 LM00304
RDFLXC.(MESSAG(1),24) *185 LM00305
THROUGH LOOP36, FOR I=1,1,I.G.4 *186 LM00306
MESSAG(21-I) = BCOCT.(MESSAG(I)) *187 LM00307
LOOP36 CONTINUE *188 LM00308
LABEL.(BCDEC.(ARRY(1)),MESSAG(20)...4) *189 LM00309
TRANSFER TO KAPUT *190 LM00310
LM00311
ERROR COMMENT AND EXIT LM00312
LM00313
S(39) PRNTER. *191 LM00314
TRANSFER TO KAPUT *192 LM00315
LM00316
S(40) PRMESS.($ FILE CALL $,ARRY,$ NOT UNDERSTOOD$) *193 LM00317
KAPUT WHENEVER .NOT. STOP *194 LM00318
FIRST = 0B *195 LM00319
TRANSFER TO START *196 LM00320
OTHERWISE *197 LM00321
S(41) EXIT.(CHNARG) *198 LM00322
END OF CONDITIONAL *199 LM00323
LM00324
END OF PROGRAM *200 LM00325
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 02775 TRANSFER VECTOR LENGTH 00041 PROGRAM BEGINS 01335
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
ALLOTD 00124 1 COUNT 01177 1 FSTAT 01214 A 1 LOOP35 00041 4 SELECT 00050 4
ALL 00125 A 1 EMPTY 00042 4 IN 00041 4 LOOP36 00041 4 SN 01263 A 1
ARG 00152 A 1 EOF1 00043 4 I 01215 1 MESSAG 01245 A 1 SP 01264 A 1
ARRY 00164 A 1 EOF2 00044 4 J 01216 1 MXARG 01246 A 1 S 00122 A 4
A 00176 A 1 FDEV 01203 A 1 KAPUT 00046 4 MZE 01247 A 1 STAR 01265 A 1
B3 00177 A 1 FENCE 01204 A 1 LBIT 01217 1 NOSTOP 01250 A 1 START 00123 4
BUFF 01060 A 1 FINISH 00045 4 LMAX 01220 A 1 NULLS 01251 A 1 STOP 01266 A 2
CHNARG 01061 A 1 FIRST 01205 A 2 LOOP13 00041 4 PRIME1 00041 4 TABENT 01267 A 1
CMAX 01062 A 1 FLINE 01206 1 LOOP1 00041 4 PWORD 00047 4 USED 01270 1
COMNDS 01176 A 1 FNS 01207 A 1
0FUNCTION DICTIONARY
BCDEC 00000 1 BCOCT 00001 1 BUFFER 00002 1 BZEL 00003 1 CALL 00004 1
CLOSE 00005 1 CVDATE 00006 1 CVTIME 00007 1 DATECV 00010 1 DEFBC 00011 1
DERBC 00012 1 EXIT 00013 1 FERRTN 00014 1 GCLS 00015 1 GTWDBI 00016 1
GTWDB 00017 1 .SETUP 00020 1 LABEL 00021 1 LJUST 00022 1 OCABC 00023 1
OCLBC 00024 1 OCRBC 00025 1 OPEN 00026 1 PRMESA 00027 1 PRMESS 00030 1
PRNTER 00031 1 PROBN 00032 1 PROGN 00033 1 RDFLXC 00034 1 SUBNAM 00035 1
TIMECV 00036 1 TRFILE 00037 1 VERIFY 00040 1
0ABSOLUTE CONSTANTS
01323 -064624606060 01321 -052425516263 01331 -204546636064 01330 -202631432560 01301 +000000000025
01317 -032122254360 01322 -062363214360 01302 +000000000030 01311 +222543606060 01310 +222324604321
01307 +214343606060 01315 +256060606060 01320 -042562622127 01333 -206370472560 01304 +000000000060
01326 -175757600060 01274 +000000000006 01324 -175740214060 01306 +000001000000 01325 -175757576000
01273 +000000000004 01327 -175757604360 01303 +000000000043 01276 +000000000010 01275 +000000000007
01316 +263145316230 01305 +000000000660 01334 -266060606060 01277 +000000000022 01314 +254626606060
01300 +000000000024 01332 -206060606054 01312 +232143436060 01271 +000000000000 01272 +000000000001
01313 +233000000000
0STATEMENT DICTIONARY
00042 TXL -301420001416 00043 TXL -302027002025 00044 TXL -302117002115 00045 TXL -302164002162
00046 TXL -302754002752 00047 TXL -302032002027 00050 TXL -301533001515 00051 TXL -302762002760
00052 TXL -302752002743 00053 TXL -302742002741 00056 TXL -302700002674 00057 TXL -302633002627
00060 TXL -302626002611 00061 TXL -302577002573 00062 TXL -302561002555 00063 TXL -302535002531
00064 TXL -302511002505 00066 TXL -302424002422 00067 TXL -302402002400 00070 TXL -302360002351
00071 TXL -302350002345 00072 TXL -302231002225 00073 TXL -302224002221 00074 TXL -302220002205
00075 TXL -302204002203 00076 TXL -302202002175 00077 TXL -302174002171 00100 TXL -302170002165
00101 TXL -302161002155 00102 TXL -302122002120 00103 TXL -302103002067 00104 TXL -302067002067
00105 TXL -301776001772 00106 TXL -301772001772 00107 TXL -301765001762 00110 TXL -301757001737
00112 TXL -301736001735 00113 TXL -301734001713 00114 TXL -301712001667 00115 TXL -301666001620
00116 TXL -301617001604 00117 TXL -301603001572 00120 TXL -301571001560 00121 TXL -301557001546
00123 TXL -301352001340
0PROGRAM
N'R 001 LM00017
B'N STOP,FIRST 002 LM00018
D'N A(9),ARRY(9),SN(9),BUFF(432),MESSAG(20),ARG(20) 003 LM00020
V'S COMNDS=$UPDMFD$,1,$DELMFD$,2,$ATTACH$,3,$MOVFIL$,4, 004 LM00021
1 $SETFIL$,5,$ LINK$,6,$ ALLOT$,7,$UPDATE$,8,$RSFILE$,40 004 LM00022
2 ,$ OPEN$,10,$BUFFER$,11,$RDFILE$,12,$RDWAIT$,13, 004 LM00023
3 $WRFILE$,14,$WRWAIT$,15,$TRFILE$,16,$FCHECK$,17, 004 LM00024
4 $ CLOSE$,18,$ FWAIT$,19, 004 LM00025
5 $SETPRI$,20,$RESETF$,21,$CHFILE$,22,$DELFIL$,23, 004 LM00026
6 $FSTATE$,24,$UNLINK$,25,$STORGE$,26,$ATTNAM$,27, 004 LM00027
7 $ MOUNT$,30,$UMOUNT$,31,$VERIFY$,32,$ LABEL$,33, 004 LM00028
8 $TAPFIL$,34,$BVERFY$,35,$BLABEL$,36,$IODIAG$,28, 004 LM00029
9 $PRNTER$,39,$ EXIT$,41,777777777777K,40 004 LM00030
01335 TSX +0 07400 4 00020 01063 +0 00000 0 00050 01064 -3 77777 7 77777 01065 +0 00000 0 00051
01066 -2 06025 6 73163 01067 +0 00000 0 00047 01070 -0 75145 6 32551 01071 +0 00000 0 00034
01072 +3 14624 3 12127 01073 +0 00000 0 00044 01074 +2 24321 2 22543 01075 +0 00000 0 00043
01076 +2 26525 5 12670 01077 +0 00000 0 00042 01100 -2 32147 2 63143 01101 +0 00000 0 00041
01102 -2 04321 2 22543 01103 +0 00000 0 00040 01104 -2 52551 3 12670 01105 +0 00000 0 00037
01106 -2 44446 6 44563 01107 +0 00000 0 00036 01110 -2 04446 6 44563 01111 +0 00000 0 00033
01112 +2 16363 4 52144 01113 +0 00000 0 00032 01114 -2 26346 5 12725 01115 +0 00000 0 00031
01116 -2 44543 3 14542 01117 +0 00000 0 00030 01120 +2 66263 2 16325 01121 +0 00000 0 00027
01122 +2 42543 2 63143 01123 +0 00000 0 00026 01124 +2 33026 3 14325 01125 +0 00000 0 00025
01126 -1 12562 2 56326 01127 +0 00000 0 00024 01130 -2 22563 4 75131 01131 +0 00000 0 00023
01132 -2 02666 2 13163 01133 +0 00000 0 00022 01134 -2 02343 4 66225 01135 +0 00000 0 00021
01136 +2 62330 2 52342 01137 +0 00000 0 00020 01140 -2 35126 3 14325 01141 +0 00000 0 00017
01142 -2 65166 2 13163 01143 +0 00000 0 00016 01144 -2 65126 3 14325 01145 +0 00000 0 00015
01146 -1 12466 2 13163 01147 +0 00000 0 00014 01150 -1 12426 3 14325 01151 +0 00000 0 00013
01152 +2 26426 2 62551 01153 +0 00000 0 00012 01154 -2 06046 4 72545 01155 +0 00000 0 00050
01156 -1 16226 3 14325 01157 +0 00000 0 00010 01160 -2 44724 2 16325 01161 +0 00000 0 00007
01162 -2 02143 4 34663 01163 +0 00000 0 00006 01164 -2 06043 3 14542 01165 +0 00000 0 00005
01166 -2 22563 2 63143 01167 +0 00000 0 00004 01170 -0 44665 2 63143 01171 +0 00000 0 00003
01172 +2 16363 2 12330 01173 +0 00000 0 00002 01174 +2 42543 4 42624 01175 +0 00000 0 00001
01176 -2 44724 4 42624
V'S TABENT = 2 005 LM00031
01267 +0 00000 0 00002
V'S FSTAT = 0,$ INACT$,575757576051K,575757576066K, 006 LM00033
1 575757605166K 006 LM00034
01210 -1 75757 6 05166 01211 -1 75757 5 76066 01212 -1 75757 5 76051 01213 -2 03145 2 12363
01214 +0 00000 0 00000
V'S FDEV = 0,$ DRUM $,$ DISK $,$ TAPE $ 007 LM00035
01200 -2 06321 4 72560 01201 -2 02431 6 24260 01202 -2 02451 6 44460 01203 +0 00000 0 00000
V'S FENCE = 777777777777K 008 LM00036
01204 -3 77777 7 77777
V'S NULLS = 575757575757K 009 LM00037
01251 -1 75757 5 75757
V'S SP = 575757575760K 010 LM00038
01264 -1 75757 5 75760
V'S B3 = 575760K6 011 LM00039
00177 -1 75760 0 00000
V'S MZE = 4K11 012 LM00040
01247 -0 00000 0 00000
V'S ALL = $ ALL$ 013 LM00041
00125 -2 06060 2 14343
V'S NOSTOP = $ (GO)$ 014 LM00042
01250 -2 06074 2 74634
V'S FNS = $ (FNS)$ 015 LM00043
01207 -2 07426 4 56234
V'S STAR = $(STAR)$ 016 LM00044
01265 -3 46263 2 15134
V'S MXARG = 9 017 LM00046
01246 +0 00000 0 00011
V'S CHNARG = 0 018 LM00047
01061 +0 00000 0 00000
V'S LMAX = 20 019 LM00048
01220 +0 00000 0 00024
V'S CMAX = 72 020 LM00049
01062 +0 00000 0 00110
V'S STOP = 1B 021 LM00051
01266 +0 00000 0 00001
V'S FIRST = 1B 022 LM00052
01205 +0 00000 0 00001
FERRTN.(S(39)) 023 LM00056
01336 TSX +0 07400 4 00014 01337 TXH +3 00000 0 00053
START T'H PRIME1, FOR I = 0,1,(I.G.MXARG) 024 LM00061
01340 CLA +0 50000 0 01271 01341 STO +0 60100 0 01215 01342 TRA +0 02000 0 01346 01343 CLA +0 50000 0 01215
01344 ADD +0 40000 0 01272 01345 STO +0 60100 0 01215 01346 CLA +0 50000 0 01215 01347 SUB +0 40200 0 01246
01350 TZE +0 10000 0 01352 01351 TPL +0 12000 0 01360
ARRY(I) = MZE 025 LM00062
01352 LXA +0 53400 1 01215 01353 CLA +0 50000 0 01247 01354 STO +0 60100 1 00164
SN(I) = - 1 026 LM00063
01355 CLS +0 50200 0 01272 01356 STO +0 60100 1 01263
PRIME1 C'E 027 LM00064
01357 TRA +0 02000 0 01343
W'R FIRST 028 LM00066
01360 NZT -0 52000 0 01205 01361 TRA +0 02000 0 01366
GCLS.(ARG,0) 029 LM00067
01362 TSX +0 07400 4 00015 01363 TXH +3 00000 0 00152 01364 TXH +3 00000 0 01271
O'E 030 LM00068
01365 TRA +0 02000 0 01416
PRMESA.($CALL $) 031 LM00069
01366 TSX +0 07400 4 00027 01367 TXH +3 00000 0 01312
GTWDBI. 032 LM00070
01370 TSX +0 07400 4 00016
T'H LOOP1, FOR I = 1,1,(I.G.LMAX) 033 LM00074
01371 CLA +0 50000 0 01272 01372 STO +0 60100 0 01215 01373 TRA +0 02000 0 01377 01374 CLA +0 50000 0 01215
01375 ADD +0 40000 0 01272 01376 STO +0 60100 0 01215 01377 CLA +0 50000 0 01215 01400 SUB +0 40200 0 01220
01401 TZE +0 10000 0 01403 01402 TPL +0 12000 0 01416
ARG(I) = FENCE 034 LM00075
01403 LXA +0 53400 1 01215 01404 CLA +0 50000 0 01204 01405 STO +0 60100 1 00152
GTWDB.(ARG(I),EMPTY) 035 LM00076
01406 CLA +0 50000 0 01215 01407 SUB +0 40200 0 01410 01410 TXH +3 00000 0 00152 01411 STA +0 62100 0 01413
01412 TSX +0 07400 4 00017 01413 TXH +3 00000 0 00000 01414 TXH +3 00000 0 00042
LOOP1 C'E 036 LM00077
01415 TRA +0 02000 0 01374
E'L 037 LM00078
EMPTY J = 1 038 LM00079
01416 CLA +0 50000 0 01272 01417 STO +0 60100 0 01216
T'H IN, FOR I = 0,1,(I.G.MXARG) 039 LM00083
01420 CLA +0 50000 0 01271 01421 STO +0 60100 0 01215 01422 TRA +0 02000 0 01426 01423 CLA +0 50000 0 01215
01424 ADD +0 40000 0 01272 01425 STO +0 60100 0 01215 01426 CLA +0 50000 0 01215 01427 SUB +0 40200 0 01246
01430 TZE +0 10000 0 01432 01431 TPL +0 12000 0 01515
ARRY(I) = ARG(J) 040 LM00084
01432 LXA +0 53400 1 01215 01433 LXA +0 53400 2 01216 01434 CLA +0 50000 2 00152 01435 STO +0 60100 1 00164
SN(I) = 1 041 LM00085
01436 CLA +0 50000 0 01272 01437 STO +0 60100 1 01263
W'R (ARRY(I) .E. $ *$) 042 LM00086
01440 CLA +0 50000 1 00164 01441 SUB +0 40200 0 01332 01442 TNZ -0 10000 0 01450
ARRY(I) = MZE 043 LM00087
01443 CLA +0 50000 0 01247 01444 STO +0 60100 1 00164
SN(I) = - 1 044 LM00088
01445 CLS +0 50200 0 01272 01446 STO +0 60100 1 01263
O'R (ARRY(I) .E. NOSTOP) 045 LM00089
01447 TRA +0 02000 0 01511 01450 LXA +0 53400 1 01215 01451 CLA +0 50000 1 00164 01452 SUB +0 40200 0 01250
01453 TNZ -0 10000 0 01462
STOP = 0B 046 LM00090
01454 CLA +0 50000 0 01271 01455 STO +0 60100 0 01266
I = I - 1 047 LM00091
01456 CLA +0 50000 0 01215 01457 SUB +0 40200 0 01272 01460 STO +0 60100 0 01215
O'R (ARRY(I) .E. FENCE) 048 LM00092
01461 TRA +0 02000 0 01511 01462 LXA +0 53400 1 01215 01463 CLA +0 50000 1 00164 01464 SUB +0 40200 0 01204
01465 TNZ -0 10000 0 01474
ARRY(I) = MZE 049 LM00093
01466 CLA +0 50000 0 01247 01467 STO +0 60100 1 00164
SN(I) = -1 050 LM00094
01470 CLS +0 50200 0 01272 01471 STO +0 60100 1 01263
T'O SELECT 051 LM00095
01472 TRA +0 02000 0 00050
O'R (ARRY(I) .E. FNS) 052 LM00096
01473 TRA +0 02000 0 01511 01474 LXA +0 53400 1 01215 01475 CLA +0 50000 1 00164 01476 SUB +0 40200 0 01207
01477 TNZ -0 10000 0 01503
ARRY(I) = FENCE 053 LM00097
01500 CLA +0 50000 0 01204 01501 STO +0 60100 1 00164
O'R (ARRY(I) .E. STAR) 054 LM00098
01502 TRA +0 02000 0 01511 01503 LXA +0 53400 1 01215 01504 CLA +0 50000 1 00164 01505 SUB +0 40200 0 01265
01506 TNZ -0 10000 0 01511
ARRY(I) = $ *$ 055 LM00099
01507 CLA +0 50000 0 01332 01510 STO +0 60100 1 00164
E'L 056 LM00100
J = J + 1 057 LM00101
01511 CLA +0 50000 0 01216 01512 ADD +0 40000 0 01272 01513 STO +0 60100 0 01216
IN C'E 058 LM00103
01514 TRA +0 02000 0 01423
SELECT T'H SELECT, FOR I = 0,TABENT,(COMNDS(I).E.ARRY).OR. 059 LM00107
1 (COMNDS(I).E.FENCE) 059 LM00108
01515 CLA +0 50000 0 01271 01516 STO +0 60100 0 01215 01517 TRA +0 02000 0 01523 01520 CLA +0 50000 0 01215
01521 ADD +0 40000 0 01267 01522 STO +0 60100 0 01215 01523 LXA +0 53400 1 01215 01524 CLA +0 50000 1 01176
01525 SUB +0 40200 0 01204 01526 TZE +0 10000 0 01533 01527 CLA +0 50000 1 01176 01530 SUB +0 40200 0 00164
01531 TZE +0 10000 0 01533 01532 TRA +0 02000 0 01520
SUBNAM.(LJUST.(ARRY)) 060 LM00109
01533 TSX +0 07400 4 00022 01534 TXH +3 00000 0 00164 01535 STO +0 60100 0 02763 01536 TSX +0 07400 4 00035
01537 TXH +3 00000 0 02763
T'O S(COMNDS(I+1)) 061 LM00110
01540 CLA +0 50000 0 01215 01541 ADD +0 40000 0 01272 01542 PAX +0 73400 1 00000 01543 CLA +0 50000 1 01176
01544 PAX +0 73400 2 00000 01545 TRA +0 02000 2 00122
S(1) CALL.(PROBN.(ARRY(1)),PROGN.(ARRY(2))) 062 LM00114
01546 TSX +0 07400 4 00033 01547 TXH +3 00000 0 00162 01550 STO +0 60100 0 02763 01551 TSX +0 07400 4 00032
01552 TXH +3 00000 0 00163 01553 STO +0 60100 0 02764 01554 TSX +0 07400 4 00004 01555 TXH +3 00000 0 02764
01556 TXH +3 00000 0 02763
T'O KAPUT 063 LM00115
01557 TRA +0 02000 0 00046
S(2) CALL.(PROBN.(ARRY(1)),PROGN.(ARRY(2))) 064 LM00117
01560 TSX +0 07400 4 00033 01561 TXH +3 00000 0 00162 01562 STO +0 60100 0 02764 01563 TSX +0 07400 4 00032
01564 TXH +3 00000 0 00163 01565 STO +0 60100 0 02763 01566 TSX +0 07400 4 00004 01567 TXH +3 00000 0 02763
01570 TXH +3 00000 0 02764
T'O KAPUT 065 LM00118
01571 TRA +0 02000 0 00046
S(3) CALL.(PROBN.(ARRY(1)),PROGN.(ARRY(2))) 066 LM00120
01572 TSX +0 07400 4 00033 01573 TXH +3 00000 0 00162 01574 STO +0 60100 0 02764 01575 TSX +0 07400 4 00032
01576 TXH +3 00000 0 00163 01577 STO +0 60100 0 02763 01600 TSX +0 07400 4 00004 01601 TXH +3 00000 0 02763
01602 TXH +3 00000 0 02764
T'O KAPUT 067 LM00121
01603 TRA +0 02000 0 00046
S(4) CALL.(ARRY(1),ARRY(2),PROBN.(ARRY(3)),PROGN.(ARRY(4))) 068 LM00123
01604 TSX +0 07400 4 00033 01605 TXH +3 00000 0 00160 01606 STO +0 60100 0 02764 01607 TSX +0 07400 4 00032
01610 TXH +3 00000 0 00161 01611 STO +0 60100 0 02763 01612 TSX +0 07400 4 00004 01613 TXH +3 00000 0 00163
01614 TXH +3 00000 0 00162 01615 TXH +3 00000 0 02763 01616 TXH +3 00000 0 02764
T'O KAPUT 069 LM00124
01617 TRA +0 02000 0 00046
S(5) CALL.(ARRY(1),ARRY(2),DATECV.(ARRY(3),S(40)).V. 070 LM00126
1 TIMECV.(ARRY(4),S(40)), 070 LM00127
2 DATECV.(ARRY(5),S(40)).V.BCDEC.(ARRY(6)), 070 LM00128
3 SN(7)*BCOCT.(ARRY(7)),SN(8)*BCDEC.(ARRY(8))) 070 LM00129
01620 TSX +0 07400 4 00000 01621 TXH +3 00000 0 00154 01622 XCA +0 13100 0 00000 01623 MPY +0 20000 0 01253
01624 STQ -0 60000 0 02764 01625 TSX +0 07400 4 00001 01626 TXH +3 00000 0 00155 01627 XCA +0 13100 0 00000
01630 MPY +0 20000 0 01254 01631 STQ -0 60000 0 02763 01632 TSX +0 07400 4 00000 01633 TXH +3 00000 0 00156
01634 STO +0 60100 0 02765 01635 TSX +0 07400 4 00010 01636 TXH +3 00000 0 00157 01637 TXH +3 00000 0 00052
01640 STO +0 60100 0 02766 01641 CAL -0 50000 0 02766 01642 ORA -0 50100 0 02765 01643 SLW +0 60200 0 02766
01644 TSX +0 07400 4 00036 01645 TXH +3 00000 0 00160 01646 TXH +3 00000 0 00052 01647 STO +0 60100 0 02765
01650 TSX +0 07400 4 00010 01651 TXH +3 00000 0 00161 01652 TXH +3 00000 0 00052 01653 STO +0 60100 0 02767
01654 CAL -0 50000 0 02767 01655 ORA -0 50100 0 02765 01656 SLW +0 60200 0 02767 01657 TSX +0 07400 4 00004
01660 TXH +3 00000 0 00163 01661 TXH +3 00000 0 00162 01662 TXH +3 00000 0 02767 01663 TXH +3 00000 0 02766
01664 TXH +3 00000 0 02763 01665 TXH +3 00000 0 02764
T'O KAPUT 071 LM00130
01666 TRA +0 02000 0 00046
S(6) CALL.(ARRY(1),ARRY(2),PROBN.(ARRY(3)),PROGN.(ARRY(4)), 072 LM00132
1 ARRY(5),ARRY(6),SN(7)*BCOCT.(ARRY(7))) 072 LM00133
01667 TSX +0 07400 4 00001 01670 TXH +3 00000 0 00155 01671 XCA +0 13100 0 00000 01672 MPY +0 20000 0 01254
01673 STQ -0 60000 0 02767 01674 TSX +0 07400 4 00033 01675 TXH +3 00000 0 00160 01676 STO +0 60100 0 02766
01677 TSX +0 07400 4 00032 01700 TXH +3 00000 0 00161 01701 STO +0 60100 0 02765 01702 TSX +0 07400 4 00004
01703 TXH +3 00000 0 00163 01704 TXH +3 00000 0 00162 01705 TXH +3 00000 0 02765 01706 TXH +3 00000 0 02766
01707 TXH +3 00000 0 00157 01710 TXH +3 00000 0 00156 01711 TXH +3 00000 0 02767
T'O KAPUT 073 LM00134
01712 TRA +0 02000 0 00046
S(7) CALL.(BCDEC.(ARRY(1)),SN(2)*BCDEC.(ARRY(2)), 074 LM00136
1 SN(3)*BCDEC.(ARRY(3))) 074 LM00137
01713 TSX +0 07400 4 00000 01714 TXH +3 00000 0 00161 01715 XCA +0 13100 0 00000 01716 MPY +0 20000 0 01260
01717 STQ -0 60000 0 02767 01720 TSX +0 07400 4 00000 01721 TXH +3 00000 0 00162 01722 XCA +0 13100 0 00000
01723 MPY +0 20000 0 01261 01724 STQ -0 60000 0 02766 01725 TSX +0 07400 4 00000 01726 TXH +3 00000 0 00163
01727 STO +0 60100 0 02765 01730 TSX +0 07400 4 00004 01731 TXH +3 00000 0 02765 01732 TXH +3 00000 0 02766
01733 TXH +3 00000 0 02767
T'O KAPUT 075 LM00138
01734 TRA +0 02000 0 00046
S(8) CALL. 076 LM00140
01735 TSX +0 07400 4 00004
T'O KAPUT 077 LM00141
01736 TRA +0 02000 0 00046
S(10) CALL.(ARRY(1),ARRY(2),ARRY(3),SN(4)*BCOCT.(ARRY(4)), 078 LM00148
1 SN(5)*BCDEC.(ARRY(5))) 078 LM00149
01737 TSX +0 07400 4 00000 01740 TXH +3 00000 0 00157 01741 XCA +0 13100 0 00000 01742 MPY +0 20000 0 01256
01743 STQ -0 60000 0 02767 01744 TSX +0 07400 4 00001 01745 TXH +3 00000 0 00160 01746 XCA +0 13100 0 00000
01747 MPY +0 20000 0 01257 01750 STQ -0 60000 0 02766 01751 TSX +0 07400 4 00004 01752 TXH +3 00000 0 00163
01753 TXH +3 00000 0 00162 01754 TXH +3 00000 0 00161 01755 TXH +3 00000 0 02766 01756 TXH +3 00000 0 02767
CHNARG = 1 079 LM00150
01757 CLA +0 50000 0 01272 01760 STO +0 60100 0 01061
T'O KAPUT 080 LM00151
01761 TRA +0 02000 0 00046
S(11) FLINE = BCDEC.(ARRY(3)) 081 LM00153
01762 TSX +0 07400 4 00000 01763 TXH +3 00000 0 00161 01764 STO +0 60100 0 01206
CALL.(ARRY(1),ARRY(2),BUFF(432)...FLINE) 082 LM00154
01765 TSX +0 07400 4 00004 01766 TXH +3 00000 0 00163 01767 TXH +3 00000 0 00162 01770 TIX +2 01206 0 00200
T'O KAPUT 083 LM00155
01771 TRA +0 02000 0 00046
S(12) 084 LM00157
S(13) W'R SN(4) .L. 0 085 LM00159
01772 CLA +0 50000 0 01257 01773 SUB +0 40200 0 01271 01774 TZE +0 10000 0 02001 01775 TPL +0 12000 0 02001
COUNT = 1 086 LM00160
01776 CLA +0 50000 0 01272 01777 STO +0 60100 0 01177
O'E 087 LM00161
02000 TRA +0 02000 0 02012
COUNT = BCDEC.(ARRY(4)) 088 LM00162
02001 TSX +0 07400 4 00000 02002 TXH +3 00000 0 00160 02003 STO +0 60100 0 01177
W'R COUNT .G. 20, COUNT = 20 089 LM00163
02004 CLA +0 50000 0 01177 02005 SUB +0 40200 0 01300 02006 TZE +0 10000 0 02012 02007 TMI -0 12000 0 02012
02010 CLA +0 50000 0 01300 02011 STO +0 60100 0 01177
E'L 090 LM00164
CALL.(ARRY(1),ARRY(2),BCDEC.(ARRY(3)),ARG(20)...COUNT, 091 LM00165
1 EOF1,COUNT) 091 LM00166
02012 TSX +0 07400 4 00000 02013 TXH +3 00000 0 00161 02014 STO +0 60100 0 02767 02015 TSX +0 07400 4 00004
02016 TXH +3 00000 0 00163 02017 TXH +3 00000 0 00162 02020 TXH +3 00000 0 02767 02021 TIX +2 01177 0 00126
02022 TXH +3 00000 0 00043 02023 TXH +3 00000 0 01177
T'O PWORD 092 LM00167
02024 TRA +0 02000 0 00047
EOF1 PRMESS.($EOF$) 093 LM00169
02025 TSX +0 07400 4 00030 02026 TXH +3 00000 0 01314
PWORD COUNT = 20 - COUNT 094 LM00171
02027 CLA +0 50000 0 01300 02030 SUB +0 40200 0 01177 02031 STO +0 60100 0 01177
T'H LOOP13, FOR I = 20,-1,(I.LE.COUNT) 095 LM00172
02032 CLA +0 50000 0 01300 02033 STO +0 60100 0 01215 02034 TRA +0 02000 0 02040 02035 CLS +0 50200 0 01272
02036 ADD +0 40000 0 01215 02037 STO +0 60100 0 01215 02040 CLA +0 50000 0 01215 02041 SUB +0 40200 0 01177
02042 TZE +0 10000 0 02066 02043 TMI -0 12000 0 02066
PRMESS.(OCLBC.(ARG(I)),OCRBC.(ARG(I))) 096 LM00173
02044 CLA +0 50000 0 01215 02045 SUB +0 40200 0 02046 02046 TXH +3 00000 0 00152 02047 STA +0 62100 0 02051
02050 TSX +0 07400 4 00025 02051 TXH +3 00000 0 00000 02052 STO +0 60100 0 02767 02053 CLA +0 50000 0 01215
02054 SUB +0 40200 0 02055 02055 TXH +3 00000 0 00152 02056 STA +0 62100 0 02060 02057 TSX +0 07400 4 00024
02060 TXH +3 00000 0 00000 02061 STO +0 60100 0 02766 02062 TSX +0 07400 4 00030 02063 TXH +3 00000 0 02766
02064 TXH +3 00000 0 02767
LOOP13 C'E 097 LM00174
02065 TRA +0 02000 0 02035
T'O KAPUT 098 LM00175
02066 TRA +0 02000 0 00046
S(14) 099 LM00177
S(15) FLINE = (BCOCT.(ARRY(4)).LS.18) .V. BCOCT.(ARRY(5)) 100 LM00179
02067 TSX +0 07400 4 00001 02070 TXH +3 00000 0 00157 02071 STO +0 60100 0 02767 02072 TSX +0 07400 4 00001
02073 TXH +3 00000 0 00160 02074 STO +0 60100 0 02766 02075 CAL -0 50000 0 01277 02076 STA +0 62100 0 02100
02077 CAL -0 50000 0 02766 02100 ALS +0 76700 0 00000 02101 ORA -0 50100 0 02767 02102 SLW +0 60200 0 01206
CALL.(ARRY(1),ARRY(2),BCDEC.(ARRY(3)),FLINE...1,EOF2) 101 LM00180
02103 TSX +0 07400 4 00000 02104 TXH +3 00000 0 00161 02105 STO +0 60100 0 02767 02106 TSX +0 07400 4 00004
02107 TXH +3 00000 0 00163 02110 TXH +3 00000 0 00162 02111 TXH +3 00000 0 02767 02112 TIX +2 01272 0 01206
02113 TXH +3 00000 0 00044
T'O KAPUT 102 LM00181
02114 TRA +0 02000 0 00046
EOF2 PRMESS.($EOF$) 103 LM00183
02115 TSX +0 07400 4 00030 02116 TXH +3 00000 0 01314
T'O KAPUT 104 LM00184
02117 TRA +0 02000 0 00046
S(16) W'R FIRST 105 LM00191
02120 NZT -0 52000 0 01205 02121 TRA +0 02000 0 02145
OPEN.($W$,ARRY(1),ARRY(2)) 106 LM00192
02122 TSX +0 07400 4 00026 02123 TXH +3 00000 0 01334 02124 TXH +3 00000 0 00163 02125 TXH +3 00000 0 00162
BUFFER.(ARRY(1),ARRY(2),BUFF(432)...432) 107 LM00193
02126 TSX +0 07400 4 00002 02127 TXH +3 00000 0 00163 02130 TXH +3 00000 0 00162 02131 TIX +2 01305 0 00200
TRFILE.(ARRY(1),ARRY(2),BCDEC.(ARRY(3))) 108 LM00194
02132 TSX +0 07400 4 00000 02133 TXH +3 00000 0 00161 02134 STO +0 60100 0 02767 02135 TSX +0 07400 4 00037
02136 TXH +3 00000 0 00163 02137 TXH +3 00000 0 00162 02140 TXH +3 00000 0 02767
CLOSE.(ARRY(1),ARRY(2)) 109 LM00195
02141 TSX +0 07400 4 00005 02142 TXH +3 00000 0 00163 02143 TXH +3 00000 0 00162
O'E 110 LM00196
02144 TRA +0 02000 0 02154
CALL.(ARRY(1),ARRY(2),BCDEC.(ARRY(3))) 111 LM00197
02145 TSX +0 07400 4 00000 02146 TXH +3 00000 0 00161 02147 STO +0 60100 0 02767 02150 TSX +0 07400 4 00004
02151 TXH +3 00000 0 00163 02152 TXH +3 00000 0 00162 02153 TXH +3 00000 0 02767
E'L 112 LM00198
T'O KAPUT 113 LM00199
02154 TRA +0 02000 0 00046
S(17) CALL.(ARRY(1),ARRY(2),FINISH) 114 LM00201
02155 TSX +0 07400 4 00004 02156 TXH +3 00000 0 00163 02157 TXH +3 00000 0 00162 02160 TXH +3 00000 0 00045
T'O KAPUT 115 LM00202
02161 TRA +0 02000 0 00046
FINISH PRMESS.($FINISH$) 116 LM00204
02162 TSX +0 07400 4 00030 02163 TXH +3 00000 0 01316
T'O KAPUT 117 LM00205
02164 TRA +0 02000 0 00046
S(18) CALL.(ARRY(1),ARRY(2)) 118 LM00207
02165 TSX +0 07400 4 00004 02166 TXH +3 00000 0 00163 02167 TXH +3 00000 0 00162
T'O KAPUT 119 LM00208
02170 TRA +0 02000 0 00046
S(19) CALL.(ARRY(1),ARRY(2)) 120 LM00210
02171 TSX +0 07400 4 00004 02172 TXH +3 00000 0 00163 02173 TXH +3 00000 0 00162
T'O KAPUT 121 LM00211
02174 TRA +0 02000 0 00046
S(20) CALL.(ARRY(1).A.7K) 122 LM00215
02175 CAL -0 50000 0 00163 02176 ANA -0 32000 0 01275 02177 SLW +0 60200 0 02767 02200 TSX +0 07400 4 00004
02201 TXH +3 00000 0 02767
T'O KAPUT 123 LM00216
02202 TRA +0 02000 0 00046
S(21) CALL. 124 LM00218
02203 TSX +0 07400 4 00004
T'O KAPUT 125 LM00219
02204 TRA +0 02000 0 00046
S(22) CALL.(ARRY(1),ARRY(2),SN(3)*BCOCT.(ARRY(3)), 126 LM00221
1 ARRY(4),ARRY(5)) 126 LM00222
02205 TSX +0 07400 4 00001 02206 TXH +3 00000 0 00161 02207 XCA +0 13100 0 00000 02210 MPY +0 20000 0 01260
02211 STQ -0 60000 0 02767 02212 TSX +0 07400 4 00004 02213 TXH +3 00000 0 00163 02214 TXH +3 00000 0 00162
02215 TXH +3 00000 0 02767 02216 TXH +3 00000 0 00160 02217 TXH +3 00000 0 00157
T'O KAPUT 127 LM00223
02220 TRA +0 02000 0 00046
S(23) CALL.(ARRY(1),ARRY(2)) 128 LM00225
02221 TSX +0 07400 4 00004 02222 TXH +3 00000 0 00163 02223 TXH +3 00000 0 00162
T'O KAPUT 129 LM00226
02224 TRA +0 02000 0 00046
S(24) CALL.(ARRY(1),ARRY(2),A(8)...8) 130 LM00228
02225 TSX +0 07400 4 00004 02226 TXH +3 00000 0 00163 02227 TXH +3 00000 0 00162 02230 TIX +2 01276 0 00166
W'R (A(7) .RS. 35) .E. 1 131 LM00229
02231 CAL -0 50000 0 01303 02232 STA +0 62100 0 02234 02233 CAL -0 50000 0 00167 02234 LGR -0 76500 0 00000
02235 SLW +0 60200 0 02767 02236 CLA +0 50000 0 02767 02237 SUB +0 40200 0 01272 02240 TNZ -0 10000 0 02244
LBIT = 575757604360K 132 LM00230
02241 CLA +0 50000 0 01327 02242 STO +0 60100 0 01217
O'E 133 LM00231
02243 TRA +0 02000 0 02246
LBIT = NULLS 134 LM00232
02244 CLA +0 50000 0 01251 02245 STO +0 60100 0 01217
E'L 135 LM00233
PRMESS.(BZEL.(DEFBC.(A(8))),LBIT,OCRBC.(A(7)).V.B3, 136 LM00234
1 FSTAT(A(6)),FDEV(A(5)),BZEL.(DEFBC.(A(4))),SP, 136 LM00235
2 BZEL.(DEFBC.(A(3))),SP,CVDATE.(A(2)),CVTIME.(A(2)), 136 LM00236
3 SP,CVDATE.(A(1)),BZEL.(DERBC.(A(1)))) 136 LM00237
02246 TSX +0 07400 4 00012 02247 TXH +3 00000 0 00175 02250 STO +0 60100 0 02767 02251 TSX +0 07400 4 00003
02252 TXH +3 00000 0 02767 02253 STO +0 60100 0 02767 02254 TSX +0 07400 4 00006 02255 TXH +3 00000 0 00175
02256 STO +0 60100 0 02766 02257 TSX +0 07400 4 00007 02260 TXH +3 00000 0 00174 02261 STO +0 60100 0 02765
02262 TSX +0 07400 4 00006 02263 TXH +3 00000 0 00174 02264 STO +0 60100 0 02764 02265 TSX +0 07400 4 00011
02266 TXH +3 00000 0 00173 02267 STO +0 60100 0 02763 02270 TSX +0 07400 4 00003 02271 TXH +3 00000 0 02763
02272 STO +0 60100 0 02763 02273 TSX +0 07400 4 00011 02274 TXH +3 00000 0 00172 02275 STO +0 60100 0 02770
02276 TSX +0 07400 4 00003 02277 TXH +3 00000 0 02770 02300 STO +0 60100 0 02770 02301 CLA +0 50000 0 00171
02302 SUB +0 40200 0 02303 02303 TXH +3 00000 0 01203 02304 STA +0 62100 0 02332 02305 CLA +0 50000 0 00170
02306 SUB +0 40200 0 02307 02307 TXH +3 00000 0 01214 02310 STA +0 62100 0 02331 02311 TSX +0 07400 4 00025
02312 TXH +3 00000 0 00167 02313 STO +0 60100 0 02771 02314 CAL -0 50000 0 02771 02315 ORA -0 50100 0 00177
02316 SLW +0 60200 0 02771 02317 TSX +0 07400 4 00011 02320 TXH +3 00000 0 00166 02321 STO +0 60100 0 02772
02322 TSX +0 07400 4 00003 02323 TXH +3 00000 0 02772 02324 STO +0 60100 0 02772 02325 TSX +0 07400 4 00030
02326 TXH +3 00000 0 02772 02327 TXH +3 00000 0 01217 02330 TXH +3 00000 0 02771 02331 TXH +3 00000 0 00000
02332 TXH +3 00000 0 00000 02333 TXH +3 00000 0 02770 02334 TXH +3 00000 0 01264 02335 TXH +3 00000 0 02763
02336 TXH +3 00000 0 01264 02337 TXH +3 00000 0 02764 02340 TXH +3 00000 0 02765 02341 TXH +3 00000 0 01264
02342 TXH +3 00000 0 02766 02343 TXH +3 00000 0 02767
T'O KAPUT 137 LM00238
02344 TRA +0 02000 0 00046
S(25) CALL.(ARRY(1),ARRY(2)) 138 LM00240
02345 TSX +0 07400 4 00004 02346 TXH +3 00000 0 00163 02347 TXH +3 00000 0 00162
T'O KAPUT 139 LM00241
02350 TRA +0 02000 0 00046
S(26) CALL.(BCOCT.(ARRY(1)),ALLOTD,USED) 140 LM00243
02351 TSX +0 07400 4 00001 02352 TXH +3 00000 0 00163 02353 STO +0 60100 0 02772 02354 TSX +0 07400 4 00004
02355 TXH +3 00000 0 02772 02356 TXH +3 00000 0 00124 02357 TXH +3 00000 0 01270
PRMESS.(BZEL.(DEFBC.(ALLOTD)),BZEL.(DEFBC.(USED))) 141 LM00244
02360 TSX +0 07400 4 00011 02361 TXH +3 00000 0 01270 02362 STO +0 60100 0 02772 02363 TSX +0 07400 4 00003
02364 TXH +3 00000 0 02772 02365 STO +0 60100 0 02772 02366 TSX +0 07400 4 00011 02367 TXH +3 00000 0 00124
02370 STO +0 60100 0 02771 02371 TSX +0 07400 4 00003 02372 TXH +3 00000 0 02771 02373 STO +0 60100 0 02771
02374 TSX +0 07400 4 00030 02375 TXH +3 00000 0 02771 02376 TXH +3 00000 0 02772
T'O KAPUT 142 LM00245
02377 TRA +0 02000 0 00046
S(27) CALL.(A(4)...4) 143 LM00247
02400 TSX +0 07400 4 00004 02401 TIX +2 01273 0 00172
PRMESS.(A(4),SP,A(3),BZEL.(DERBC.(A(2))), 144 LM00248
1 A(1) .V. 575757576000K) 144 LM00249
02402 CAL -0 50000 0 00175 02403 ORA -0 50100 0 01325 02404 SLW +0 60200 0 02772 02405 TSX +0 07400 4 00012
02406 TXH +3 00000 0 00174 02407 STO +0 60100 0 02771 02410 TSX +0 07400 4 00003 02411 TXH +3 00000 0 02771
02412 STO +0 60100 0 02771 02413 TSX +0 07400 4 00030 02414 TXH +3 00000 0 00172 02415 TXH +3 00000 0 01264
02416 TXH +3 00000 0 00173 02417 TXH +3 00000 0 02771 02420 TXH +3 00000 0 02772
T'O KAPUT 145 LM00250
02421 TRA +0 02000 0 00046
S(28) CALL.(A(7)...7) 146 LM00252
02422 TSX +0 07400 4 00004 02423 TIX +2 01275 0 00167
W'R (A(7) .A. 1K6) .NE. 0 147 LM00253
02424 CAL -0 50000 0 00167 02425 ANA -0 32000 0 01306 02426 SLW +0 60200 0 02772 02427 CLA +0 50000 0 02772
02430 SUB +0 40200 0 01271 02431 TZE +0 10000 0 02435
LBIT = 575740214060K 148 LM00254
02432 CLA +0 50000 0 01324 02433 STO +0 60100 0 01217
O'E 149 LM00255
02434 TRA +0 02000 0 02437
LBIT = NULLS 150 LM00256
02435 CLA +0 50000 0 01251 02436 STO +0 60100 0 01217
E'L 151 LM00257
PRMESS.(LBIT,(OCABC.(A(7)).LS.6).V.$00000 $,A(6), 152 LM00258
1 DEFBC.(A(5)).V.B3,(DEFBC.(A(4)).LS.6).V. 152 LM00259
2 575757600060K,A(3),SP,A(2),OCABC.(A(1))) 152 LM00260
02437 TSX +0 07400 4 00023 02440 TXH +3 00000 0 00175 02441 STO +0 60100 0 02772 02442 TSX +0 07400 4 00011
02443 TXH +3 00000 0 00172 02444 STO +0 60100 0 02771 02445 CAL -0 50000 0 01274 02446 STA +0 62100 0 02450
02447 CAL -0 50000 0 02771 02450 ALS +0 76700 0 00000 02451 ORA -0 50100 0 01326 02452 SLW +0 60200 0 02771
02453 TSX +0 07400 4 00011 02454 TXH +3 00000 0 00171 02455 STO +0 60100 0 02770 02456 CAL -0 50000 0 02770
02457 ORA -0 50100 0 00177 02460 SLW +0 60200 0 02770 02461 TSX +0 07400 4 00023 02462 TXH +3 00000 0 00167
02463 STO +0 60100 0 02767 02464 CAL -0 50000 0 01274 02465 STA +0 62100 0 02467 02466 CAL -0 50000 0 02767
02467 ALS +0 76700 0 00000 02470 ORA -0 50100 0 01304 02471 SLW +0 60200 0 02767 02472 TSX +0 07400 4 00030
02473 TXH +3 00000 0 01217 02474 TXH +3 00000 0 02767 02475 TXH +3 00000 0 00170 02476 TXH +3 00000 0 02770
02477 TXH +3 00000 0 02771 02500 TXH +3 00000 0 00173 02501 TXH +3 00000 0 01264 02502 TXH +3 00000 0 00174
02503 TXH +3 00000 0 02772
T'O KAPUT 153 LM00261
02504 TRA +0 02000 0 00046
S(30) PRMESS.($ TYPE MESSAGE$) 154 LM00266
02505 TSX +0 07400 4 00030 02506 TXH +3 00000 0 01333 02507 TXH +3 00000 0 01320 02510 TXH +3 00000 0 01315
RDFLXC.(MESSAG(1),CMAX) 155 LM00267
02511 TSX +0 07400 4 00034 02512 TXH +3 00000 0 01244 02513 TXH +3 00000 0 01062
CALL.(SN(1)*BCDEC.(ARRY(1)),BCDEC.(ARRY(2)), 156 LM00268
1 MESSAG(20)...LMAX) 156 LM00269
02514 TSX +0 07400 4 00000 02515 TXH +3 00000 0 00162 02516 STO +0 60100 0 02772 02517 TSX +0 07400 4 00000
02520 TXH +3 00000 0 00163 02521 XCA +0 13100 0 00000 02522 MPY +0 20000 0 01262 02523 STQ -0 60000 0 02771
02524 TSX +0 07400 4 00004 02525 TXH +3 00000 0 02771 02526 TXH +3 00000 0 02772 02527 TIX +2 01220 0 01221
T'O KAPUT 157 LM00270
02530 TRA +0 02000 0 00046
S(31) PRMESS.($ TYPE MESSAGE$) 158 LM00272
02531 TSX +0 07400 4 00030 02532 TXH +3 00000 0 01333 02533 TXH +3 00000 0 01320 02534 TXH +3 00000 0 01315
RDFLXC.(MESSAG(1),CMAX) 159 LM00273
02535 TSX +0 07400 4 00034 02536 TXH +3 00000 0 01244 02537 TXH +3 00000 0 01062
W'R ARRY(1).E.ALL 160 LM00274
02540 CLA +0 50000 0 00163 02541 SUB +0 40200 0 00125 02542 TNZ -0 10000 0 02546
ARRY(1) = $ALL$ 161 LM00275
02543 CLA +0 50000 0 01307 02544 STO +0 60100 0 00163
O'E 162 LM00276
02545 TRA +0 02000 0 02551
ARRY(1) = BCDEC.(ARRY(1)) 163 LM00277
02546 TSX +0 07400 4 00000 02547 TXH +3 00000 0 00163 02550 STO +0 60100 0 00163
E'L 164 LM00278
CALL.(ARRY(1),MESSAG(20)...LMAX) 165 LM00279
02551 TSX +0 07400 4 00004 02552 TXH +3 00000 0 00163 02553 TIX +2 01220 0 01221
T'O KAPUT 166 LM00280
02554 TRA +0 02000 0 00046
S(32) PRMESS.($ TYPE BCD LABEL$) 167 LM00282
02555 TSX +0 07400 4 00030 02556 TXH +3 00000 0 01333 02557 TXH +3 00000 0 01310 02560 TXH +3 00000 0 01311
RDFLXC.(MESSAG(1),24) 168 LM00283
02561 TSX +0 07400 4 00034 02562 TXH +3 00000 0 01244 02563 TXH +3 00000 0 01302
CALL.(BCDEC.(ARRY(1)),MESSAG(4)...4) 169 LM00284
02564 TSX +0 07400 4 00000 02565 TXH +3 00000 0 00163 02566 STO +0 60100 0 02772 02567 TSX +0 07400 4 00004
02570 TXH +3 00000 0 02772 02571 TIX +2 01273 0 01241
T'O KAPUT 170 LM00285
02572 TRA +0 02000 0 00046
S(33) PRMESS.($ TYPE BCD LABEL$) 171 LM00287
02573 TSX +0 07400 4 00030 02574 TXH +3 00000 0 01333 02575 TXH +3 00000 0 01310 02576 TXH +3 00000 0 01311
RDFLXC.(MESSAG(1),24) 172 LM00288
02577 TSX +0 07400 4 00034 02600 TXH +3 00000 0 01244 02601 TXH +3 00000 0 01302
CALL.(BCDEC.(ARRY(1)),MESSAG(4)...4) 173 LM00289
02602 TSX +0 07400 4 00000 02603 TXH +3 00000 0 00163 02604 STO +0 60100 0 02772 02605 TSX +0 07400 4 00004
02606 TXH +3 00000 0 02772 02607 TIX +2 01273 0 01241
T'O KAPUT 174 LM00290
02610 TRA +0 02000 0 00046
S(34) CALL.(ARRY(1),ARRY(2),BCDEC.(ARRY(3)), 175 LM00292
1 SN(4)*BCDEC.(ARRY(4))) 175 LM00293
02611 TSX +0 07400 4 00000 02612 TXH +3 00000 0 00160 02613 XCA +0 13100 0 00000 02614 MPY +0 20000 0 01257
02615 STQ -0 60000 0 02772 02616 TSX +0 07400 4 00000 02617 TXH +3 00000 0 00161 02620 STO +0 60100 0 02771
02621 TSX +0 07400 4 00004 02622 TXH +3 00000 0 00163 02623 TXH +3 00000 0 00162 02624 TXH +3 00000 0 02771
02625 TXH +3 00000 0 02772
T'O KAPUT 176 LM00294
02626 TRA +0 02000 0 00046
S(35) PRMESS.($ TYPE OCTAL LABEL$) 177 LM00296
02627 TSX +0 07400 4 00030 02630 TXH +3 00000 0 01333 02631 TXH +3 00000 0 01322 02632 TXH +3 00000 0 01317
RDFLXC.(MESSAG(1),24) 178 LM00297
02633 TSX +0 07400 4 00034 02634 TXH +3 00000 0 01244 02635 TXH +3 00000 0 01302
T'H LOOP35, FOR I=1,1,I.G.4 179 LM00298
02636 CLA +0 50000 0 01272 02637 STO +0 60100 0 01215 02640 TRA +0 02000 0 02644 02641 CLA +0 50000 0 01215
02642 ADD +0 40000 0 01272 02643 STO +0 60100 0 01215 02644 CLA +0 50000 0 01215 02645 SUB +0 40200 0 01273
02646 TZE +0 10000 0 02650 02647 TPL +0 12000 0 02665
MESSAG(21-I) = BCOCT.(MESSAG(I)) 180 LM00299
02650 CLA +0 50000 0 01215 02651 SUB +0 40200 0 02652 02652 TXH +3 00000 0 01245 02653 STA +0 62100 0 02655
02654 TSX +0 07400 4 00001 02655 TXH +3 00000 0 00000 02656 STO +0 60100 0 02772 02657 CLA +0 50000 0 01301
02660 SUB +0 40200 0 01215 02661 PAX +0 73400 1 00000 02662 CLA +0 50000 0 02772 02663 STO +0 60100 1 01245
LOOP35 C'E 181 LM00300
02664 TRA +0 02000 0 02641
VERIFY.(BCDEC.(ARRY(1)),MESSAG(20)...4) 182 LM00301
02665 TSX +0 07400 4 00000 02666 TXH +3 00000 0 00163 02667 STO +0 60100 0 02772 02670 TSX +0 07400 4 00040
02671 TXH +3 00000 0 02772 02672 TIX +2 01273 0 01221
T'O KAPUT 183 LM00302
02673 TRA +0 02000 0 00046
S(36) PRMESS.($ TYPE OCTAL LABEL$) 184 LM00304
02674 TSX +0 07400 4 00030 02675 TXH +3 00000 0 01333 02676 TXH +3 00000 0 01322 02677 TXH +3 00000 0 01317
RDFLXC.(MESSAG(1),24) 185 LM00305
02700 TSX +0 07400 4 00034 02701 TXH +3 00000 0 01244 02702 TXH +3 00000 0 01302
T'H LOOP36, FOR I=1,1,I.G.4 186 LM00306
02703 CLA +0 50000 0 01272 02704 STO +0 60100 0 01215 02705 TRA +0 02000 0 02711 02706 CLA +0 50000 0 01215
02707 ADD +0 40000 0 01272 02710 STO +0 60100 0 01215 02711 CLA +0 50000 0 01215 02712 SUB +0 40200 0 01273
02713 TZE +0 10000 0 02715 02714 TPL +0 12000 0 02732
MESSAG(21-I) = BCOCT.(MESSAG(I)) 187 LM00307
02715 CLA +0 50000 0 01215 02716 SUB +0 40200 0 02717 02717 TXH +3 00000 0 01245 02720 STA +0 62100 0 02722
02721 TSX +0 07400 4 00001 02722 TXH +3 00000 0 00000 02723 STO +0 60100 0 02772 02724 CLA +0 50000 0 01301
02725 SUB +0 40200 0 01215 02726 PAX +0 73400 1 00000 02727 CLA +0 50000 0 02772 02730 STO +0 60100 1 01245
LOOP36 C'E 188 LM00308
02731 TRA +0 02000 0 02706
LABEL.(BCDEC.(ARRY(1)),MESSAG(20)...4) 189 LM00309
02732 TSX +0 07400 4 00000 02733 TXH +3 00000 0 00163 02734 STO +0 60100 0 02772 02735 TSX +0 07400 4 00021
02736 TXH +3 00000 0 02772 02737 TIX +2 01273 0 01221
T'O KAPUT 190 LM00310
02740 TRA +0 02000 0 00046
S(39) PRNTER. 191 LM00314
02741 TSX +0 07400 4 00031
T'O KAPUT 192 LM00315
02742 TRA +0 02000 0 00046
S(40) PRMESS.($ FILE CALL $,ARRY,$ NOT UNDERSTOOD$) 193 LM00317
02743 TSX +0 07400 4 00030 02744 TXH +3 00000 0 01330 02745 TXH +3 00000 0 01312 02746 TXH +3 00000 0 00164
02747 TXH +3 00000 0 01331 02750 TXH +3 00000 0 01321 02751 TXH +3 00000 0 01323
KAPUT W'R .NOT. STOP 194 LM00318
02752 ZET +0 52000 0 01266 02753 TRA +0 02000 0 02760
FIRST = 0B 195 LM00319
02754 CLA +0 50000 0 01271 02755 STO +0 60100 0 01205
T'O START 196 LM00320
02756 TRA +0 02000 0 00123
O'E 197 LM00321
02757 TRA +0 02000 0 02762
S(41) EXIT.(CHNARG) 198 LM00322
02760 TSX +0 07400 4 00013 02761 TXH +3 00000 0 01061
E'L 199 LM00323
E'M 200 LM00325
02762 TSX +0 07400 4 00013
1 MAD PROGRAM LISTING ... ... ... FILE CALL1 MAD 02/08/68 1708.5
-
TIME/DATE CONVERTERS, ALSO PROBNO/PROGNO CONVERTERS LM00001
THIS PROGRAM MUST BE EDITED AND RE-COMPILED WHEN LM00002
THE NEW 'LOGIN' (PSN 50) TAKES EFFECT LM00003
D.R. WIDRIG DEC. 1965 LM00004
LM00005
REVISED TO RELAX ERROR CHECKING MAY 1966 LM00006
D.R. WIDRIG MAY 1966 LM00007
LM00008
EXTERNAL FUNCTION (X1,Y) *001 LM00009
NORMAL MODE IS INTEGER *002 LM00010
STATEMENT LABEL Y *003 LM00011
LM00012
VECTOR VALUES MESS1 = $ILLEGA******.....$,0,777777777777K *004 LM00013
LM00014
VECTOR VALUES DMASK = 766074607160K *005 LM00015
VECTOR VALUES TMASK = 777774607060K *006 LM00016
VECTOR VALUES PMASK = 776060606060K *007 LM00017
LM00018
CONVERT BCD DATE TO I/O FORMAT LM00019
LM00020
ENTRY TO DATECV. *008 LM00021
MESS1(1) = $L DATE$ *009 LM00022
X = ZEL.(X1) *010 LM00023
WHENEVER (X.A.DMASK) .NE. 0, TRANSFER TO BAD *011 LM00024
MM = BCDEC.(X.RS.24) *012 LM00025
DD = BCDEC.((X.RS.12).A.7777K) *013 LM00026
YY = BCDEC.(X.A.7777K) *014 LM00027
FUNCTION RETURN (YY.LS.27).V.(MM.LS.23).V.(DD.LS.18) *015 LM00028
LM00029
BAD MESS1(3) = X *016 LM00030
PRNTP.(MESS1) *017 LM00031
TRANSFER TO Y *018 LM00032
LM00033
CONVERT I/O DATE TO BCD LM00034
LM00035
ENTRY TO CVDATE. *019 LM00036
D = X1.RS.18 *020 LM00037
FUNCTION RETURN (DERBC.(D.A.37K).LS.12).V.(DERBC.((D.RS.5).A.17K) *021 LM00038
1 .LS.24).V.(DERBC.((D.RS.9).A.377K)) *021 LM00039
LM00040
CONVERT TIME TO I/O FORMAT LM00041
LM00042
ENTRY TO TIMECV. *022 LM00043
MESS1(1) = $L TIME$ *023 LM00044
X = ZEL.(X1) *024 LM00045
WHENEVER (X.A.TMASK) .NE. 0, TRANSFER TO BAD *025 LM00046
HH = BCDEC.((X.RS.12).A.7777K) *026 LM00047
MM = BCDEC.(X.A.7777K) *027 LM00048
WHENEVER (HH.G.23).OR.(MM.G.59), TRANSFER TO BAD *028 LM00049
FUNCTION RETURN HH*3600+MM*60 *029 LM00050
LM00051
CONVERT I/O TIME TO BCD LM00052
LM00053
ENTRY TO CVTIME. *030 LM00054
D = X1.A.777777K *031 LM00055
HH = D/3600 *032 LM00056
FUNCTION RETURN ((DERBC.(HH).LS.12).V. *033 LM00057
1 (DERBC.((D-HH*3600)/60)).V.$ 0000$) *033 LM00058
LM00059
CHECK VALIDITY OF PROGNO LM00060
LM00061
ENTRY TO PROGN. *034 LM00062
MESS1(1) = $L PRGN$ *035 LM00063
X = X1 *036 LM00064
WHENEVER (X.E.$(FILE)$).OR.(X.E.$.FILE.$), FUNCTION RETURN X *037 LM00065
WHENEVER (ZEL.(X).A.PMASK) .E. 0, FUNCTION RETURN X *038 LM00066
WHENEVER (X.A.777777776060K).E. $CMFL00$, FUNCTION RETURN X *039 LM00067
LM00068
BAD1 MESS1(3) = X *040 LM00069
PRNTP.(MESS1) *041 LM00070
FUNCTION RETURN X *042 LM00071
LM00072
REDUCE PROBNO TO STANDARD FORM LM00073
LM00074
ENTRY TO PROBN. *043 LM00075
MESS1(1) = $L PRBN$ *044 LM00076
X = X1 *045 LM00077
WHENEVER (X.A.60K).NE.0, FUNCTION RETURN X *046 LM00078
THROUGH LOOP1, FOR I=6,6,I.E.30 *047 LM00079
WHENEVER (((X.RS.I).A.60K).NE.0), *048 LM00080
1 FUNCTION RETURN BZEL.((((X.RS.I).A.77K).LS.24).V. *048 LM00081
2 ((77777777K.RS.(24-I)).A.X)) *048 LM00082
LOOP1 CONTINUE *049 LM00083
TRANSFER TO BAD1 *050 LM00084
LM00085
END OF FUNCTION *051 LM00086
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00555 TRANSFER VECTOR LENGTH 00006 PROGRAM BEGINS 00070
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
PROBN 00436 0 PROGN 00366 0 CVTIME 00324 0 TIMECV 00245 0 CVDATE 00167 0
DATECV 00071 0
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
BAD1 00007 4 DMASK 00012 A 1 I 00015 1 MM 00023 1 X 00026 1
BAD 00010 4 D 00013 1 LOOP1 00006 4 PMASK 00024 A 1 YY 00027 1
DD 00011 1 HH 00014 1 MESS1 00022 A 1 TMASK 00025 A 1
0FUNCTION DICTIONARY
BCDEC 00000 1 BZEL 00001 1 DERBC 00002 1 EXIT 00003 1 PRNTP 00004 1
ZEL 00005 1
0ABSOLUTE CONSTANTS
00050 +000000000077 00055 +000077777777 00043 +000000000036 00033 +000000000006 00045 +000000000060
00062 -036047512245 00057 +234426430000 00067 -377777776060 00066 -342631432534 00060 +332631432533
00063 -036047512745 00065 -206000000000 00054 +000000777777 00052 +000000007020 00047 +000000000074
00046 +000000000073 00064 -036063314425 00044 +000000000037 00036 +000000000017 00032 +000000000005
00051 +000000000377 00034 +000000000011 00042 +000000000033 00040 +000000000027 00037 +000000000022
00053 +000000007777 00035 +000000000014 00041 +000000000030 00030 +000000000000 00061 -036024216325
00031 +000000000001 00056 +233000000000
0STATEMENT DICTIONARY
00007 TXL -300431000427 00010 TXL -300163000161
0PROGRAM
EXTERNAL FUNCTION (X1,Y) 001 LM00009
N'R 002 LM00010
S'L Y 003 LM00011
V'S MESS1 = $ILLEGA******.....$,0,777777777777K 004 LM00013
00016 -3 77777 7 77777 00017 +0 00000 0 00000 00020 +3 33333 3 33360 00021 -1 45454 5 45454
00022 +3 14343 2 52721
V'S DMASK = 766074607160K 005 LM00015
00012 -3 66074 6 07160
V'S TMASK = 777774607060K 006 LM00016
00025 -3 77774 6 07060
V'S PMASK = 776060606060K 007 LM00017
00024 -3 76060 6 06060
E'O DATECV. 008 LM00021
00070 TRA +0 02000 0 00073 00071 SXA +0 63400 2 00527 00072 TSX +0 07400 2 00527
MESS1(1) = $L DATE$ 009 LM00022
00073 CLA +0 50000 0 00061 00074 STO +0 60100 0 00021
X = ZEL.(X1) 010 LM00023
00075 TSX +0 07400 4 00005 00076 TXH +3 00000 0 00024 00077 STO +0 60100 0 00026
W'R (X.A.DMASK) .NE. 0, T'O BAD 011 LM00024
00100 CAL -0 50000 0 00026 00101 ANA -0 32000 0 00012 00102 SLW +0 60200 0 00550 00103 CLA +0 50000 0 00550
00104 SUB +0 40200 0 00030 00105 TZE +0 10000 0 00107 00106 TRA +0 02000 0 00010
MM = BCDEC.(X.RS.24) 012 LM00025
00107 CAL -0 50000 0 00041 00110 STA +0 62100 0 00112 00111 CAL -0 50000 0 00026 00112 LGR -0 76500 0 00000
00113 SLW +0 60200 0 00550 00114 TSX +0 07400 4 00000 00115 TXH +3 00000 0 00550 00116 STO +0 60100 0 00023
DD = BCDEC.((X.RS.12).A.7777K) 013 LM00026
00117 CAL -0 50000 0 00035 00120 STA +0 62100 0 00122 00121 CAL -0 50000 0 00026 00122 LGR -0 76500 0 00000
00123 ANA -0 32000 0 00053 00124 SLW +0 60200 0 00550 00125 TSX +0 07400 4 00000 00126 TXH +3 00000 0 00550
00127 STO +0 60100 0 00011
YY = BCDEC.(X.A.7777K) 014 LM00027
00130 CAL -0 50000 0 00026 00131 ANA -0 32000 0 00053 00132 SLW +0 60200 0 00550 00133 TSX +0 07400 4 00000
00134 TXH +3 00000 0 00550 00135 STO +0 60100 0 00027
F'N (YY.LS.27).V.(MM.LS.23).V.(DD.LS.18) 015 LM00028
00136 CAL -0 50000 0 00037 00137 STA +0 62100 0 00141 00140 CAL -0 50000 0 00011 00141 ALS +0 76700 0 00000
00142 SLW +0 60200 0 00550 00143 CAL -0 50000 0 00040 00144 STA +0 62100 0 00146 00145 CAL -0 50000 0 00023
00146 ALS +0 76700 0 00000 00147 SLW +0 60200 0 00551 00150 CAL -0 50000 0 00042 00151 STA +0 62100 0 00153
00152 CAL -0 50000 0 00027 00153 ALS +0 76700 0 00000 00154 ORA -0 50100 0 00551 00155 ORA -0 50100 0 00550
00156 SLW +0 60200 0 00551 00157 CLA +0 50000 0 00551 00160 TRA +0 02000 0 00544
BAD MESS1(3) = X 016 LM00030
00161 CLA +0 50000 0 00026 00162 STO +0 60100 0 00017
PRNTP.(MESS1) 017 LM00031
00163 TSX +0 07400 4 00004 00164 TXH +3 00000 0 00022
T'O Y 018 LM00032
00165 TRA +0 02000 0 00024
E'O CVDATE. 019 LM00036
00166 TRA +0 02000 0 00171 00167 SXA +0 63400 2 00527 00170 TSX +0 07400 2 00527
D = X1.RS.18 020 LM00037
00171 CAL -0 50000 0 00037 00172 STA +0 62100 0 00174 00173 CAL -0 50000 0 00024 00174 LGR -0 76500 0 00000
00175 SLW +0 60200 0 00013
F'N (DERBC.(D.A.37K).LS.12).V.(DERBC.((D.RS.5).A.17K) 021 LM00038
1 .LS.24).V.(DERBC.((D.RS.9).A.377K)) 021 LM00039
00176 CAL -0 50000 0 00034 00177 STA +0 62100 0 00201 00200 CAL -0 50000 0 00013 00201 LGR -0 76500 0 00000
00202 ANA -0 32000 0 00051 00203 SLW +0 60200 0 00551 00204 TSX +0 07400 4 00002 00205 TXH +3 00000 0 00551
00206 STO +0 60100 0 00551 00207 CAL -0 50000 0 00032 00210 STA +0 62100 0 00212 00211 CAL -0 50000 0 00013
00212 LGR -0 76500 0 00000 00213 ANA -0 32000 0 00036 00214 SLW +0 60200 0 00550 00215 TSX +0 07400 4 00002
00216 TXH +3 00000 0 00550 00217 STO +0 60100 0 00550 00220 CAL -0 50000 0 00041 00221 STA +0 62100 0 00223
00222 CAL -0 50000 0 00550 00223 ALS +0 76700 0 00000 00224 SLW +0 60200 0 00550 00225 CAL -0 50000 0 00013
00226 ANA -0 32000 0 00044 00227 SLW +0 60200 0 00552 00230 TSX +0 07400 4 00002 00231 TXH +3 00000 0 00552
00232 STO +0 60100 0 00552 00233 CAL -0 50000 0 00035 00234 STA +0 62100 0 00236 00235 CAL -0 50000 0 00552
00236 ALS +0 76700 0 00000 00237 ORA -0 50100 0 00550 00240 ORA -0 50100 0 00551 00241 SLW +0 60200 0 00552
00242 CLA +0 50000 0 00552 00243 TRA +0 02000 0 00544
E'O TIMECV. 022 LM00043
00244 TRA +0 02000 0 00247 00245 SXA +0 63400 2 00527 00246 TSX +0 07400 2 00527
MESS1(1) = $L TIME$ 023 LM00044
00247 CLA +0 50000 0 00064 00250 STO +0 60100 0 00021
X = ZEL.(X1) 024 LM00045
00251 TSX +0 07400 4 00005 00252 TXH +3 00000 0 00024 00253 STO +0 60100 0 00026
W'R (X.A.TMASK) .NE. 0, T'O BAD 025 LM00046
00254 CAL -0 50000 0 00026 00255 ANA -0 32000 0 00025 00256 SLW +0 60200 0 00552 00257 CLA +0 50000 0 00552
00260 SUB +0 40200 0 00030 00261 TZE +0 10000 0 00263 00262 TRA +0 02000 0 00010
HH = BCDEC.((X.RS.12).A.7777K) 026 LM00047
00263 CAL -0 50000 0 00035 00264 STA +0 62100 0 00266 00265 CAL -0 50000 0 00026 00266 LGR -0 76500 0 00000
00267 ANA -0 32000 0 00053 00270 SLW +0 60200 0 00552 00271 TSX +0 07400 4 00000 00272 TXH +3 00000 0 00552
00273 STO +0 60100 0 00014
MM = BCDEC.(X.A.7777K) 027 LM00048
00274 CAL -0 50000 0 00026 00275 ANA -0 32000 0 00053 00276 SLW +0 60200 0 00552 00277 TSX +0 07400 4 00000
00300 TXH +3 00000 0 00552 00301 STO +0 60100 0 00023
W'R (HH.G.23).OR.(MM.G.59), T'O BAD 028 LM00049
00302 CLA +0 50000 0 00023 00303 SUB +0 40200 0 00046 00304 TZE +0 10000 0 00306 00305 TPL +0 12000 0 00312
00306 CLA +0 50000 0 00014 00307 SUB +0 40200 0 00040 00310 TZE +0 10000 0 00313 00311 TMI -0 12000 0 00313
00312 TRA +0 02000 0 00010
F'N HH*3600+MM*60 029 LM00050
00313 LDQ +0 56000 0 00023 00314 MPY +0 20000 0 00047 00315 STQ -0 60000 0 00552 00316 LDQ +0 56000 0 00014
00317 MPY +0 20000 0 00052 00320 XCA +0 13100 0 00000 00321 ADD +0 40000 0 00552 00322 TRA +0 02000 0 00544
E'O CVTIME. 030 LM00054
00323 TRA +0 02000 0 00326 00324 SXA +0 63400 2 00527 00325 TSX +0 07400 2 00527
D = X1.A.777777K 031 LM00055
00326 CAL -0 50000 0 00024 00327 ANA -0 32000 0 00054 00330 SLW +0 60200 0 00013
HH = D/3600 032 LM00056
00331 LDQ +0 56000 0 00013 00332 PXD -0 75400 0 00000 00333 LLS +0 76300 0 00000 00334 DVP +0 22100 0 00052
00335 STQ -0 60000 0 00014
F'N ((DERBC.(HH).LS.12).V. 033 LM00057
1 (DERBC.((D-HH*3600)/60)).V.$ 0000$) 033 LM00058
00336 LDQ +0 56000 0 00014 00337 MPY +0 20000 0 00052 00340 XCA +0 13100 0 00000 00341 CHS +0 76000 0 00002
00342 ADD +0 40000 0 00013 00343 LRS +0 76500 0 00043 00344 DVP +0 22100 0 00047 00345 STQ -0 60000 0 00552
00346 TSX +0 07400 4 00002 00347 TXH +3 00000 0 00552 00350 STO +0 60100 0 00552 00351 TSX +0 07400 4 00002
00352 TXH +3 00000 0 00014 00353 STO +0 60100 0 00551 00354 CAL -0 50000 0 00035 00355 STA +0 62100 0 00357
00356 CAL -0 50000 0 00551 00357 ALS +0 76700 0 00000 00360 ORA -0 50100 0 00552 00361 ORA -0 50100 0 00065
00362 SLW +0 60200 0 00552 00363 CLA +0 50000 0 00552 00364 TRA +0 02000 0 00544
E'O PROGN. 034 LM00062
00365 TRA +0 02000 0 00370 00366 SXA +0 63400 2 00527 00367 TSX +0 07400 2 00527
MESS1(1) = $L PRGN$ 035 LM00063
00370 CLA +0 50000 0 00063 00371 STO +0 60100 0 00021
X = X1 036 LM00064
00372 CLA +0 50000 0 00024 00373 STO +0 60100 0 00026
W'R (X.E.$(FILE)$).OR.(X.E.$.FILE.$), F'N X 037 LM00065
00374 CLA +0 50000 0 00026 00375 SUB +0 40200 0 00060 00376 TZE +0 10000 0 00402 00377 CLA +0 50000 0 00026
00400 SUB +0 40200 0 00066 00401 TNZ -0 10000 0 00404 00402 CLA +0 50000 0 00026 00403 TRA +0 02000 0 00544
W'R (ZEL.(X).A.PMASK) .E. 0, F'N X 038 LM00066
00404 TSX +0 07400 4 00005 00405 TXH +3 00000 0 00026 00406 STO +0 60100 0 00552 00407 CAL -0 50000 0 00552
00410 ANA -0 32000 0 00024 00411 SLW +0 60200 0 00552 00412 CLA +0 50000 0 00552 00413 SUB +0 40200 0 00030
00414 TNZ -0 10000 0 00417 00415 CLA +0 50000 0 00026 00416 TRA +0 02000 0 00544
W'R (X.A.777777776060K).E. $CMFL00$, F'N X 039 LM00067
00417 CAL -0 50000 0 00026 00420 ANA -0 32000 0 00067 00421 SLW +0 60200 0 00552 00422 CLA +0 50000 0 00552
00423 SUB +0 40200 0 00057 00424 TNZ -0 10000 0 00427 00425 CLA +0 50000 0 00026 00426 TRA +0 02000 0 00544
BAD1 MESS1(3) = X 040 LM00069
00427 CLA +0 50000 0 00026 00430 STO +0 60100 0 00017
PRNTP.(MESS1) 041 LM00070
00431 TSX +0 07400 4 00004 00432 TXH +3 00000 0 00022
F'N X 042 LM00071
00433 CLA +0 50000 0 00026 00434 TRA +0 02000 0 00544
E'O PROBN. 043 LM00075
00435 TRA +0 02000 0 00440 00436 SXA +0 63400 2 00527 00437 TSX +0 07400 2 00527
MESS1(1) = $L PRBN$ 044 LM00076
00440 CLA +0 50000 0 00062 00441 STO +0 60100 0 00021
X = X1 045 LM00077
00442 CLA +0 50000 0 00024 00443 STO +0 60100 0 00026
W'R (X.A.60K).NE.0, F'N X 046 LM00078
00444 CAL -0 50000 0 00026 00445 ANA -0 32000 0 00045 00446 SLW +0 60200 0 00552 00447 CLA +0 50000 0 00552
00450 SUB +0 40200 0 00030 00451 TZE +0 10000 0 00454 00452 CLA +0 50000 0 00026 00453 TRA +0 02000 0 00544
T'H LOOP1, FOR I=6,6,I.E.30 047 LM00079
00454 CLA +0 50000 0 00033 00455 STO +0 60100 0 00015 00456 TRA +0 02000 0 00462 00457 CLA +0 50000 0 00015
00460 ADD +0 40000 0 00033 00461 STO +0 60100 0 00015 00462 CLA +0 50000 0 00015 00463 SUB +0 40200 0 00043
00464 TZE +0 10000 0 00525
W'R (((X.RS.I).A.60K).NE.0), 048 LM00080
1 F'N BZEL.((((X.RS.I).A.77K).LS.24).V. 048 LM00081
2 ((77777777K.RS.(24-I)).A.X)) 048 LM00082
00465 CAL -0 50000 0 00015 00466 STA +0 62100 0 00470 00467 CAL -0 50000 0 00026 00470 LGR -0 76500 0 00000
00471 ANA -0 32000 0 00045 00472 SLW +0 60200 0 00552 00473 CLA +0 50000 0 00552 00474 SUB +0 40200 0 00030
00475 TZE +0 10000 0 00524 00476 CLA +0 50000 0 00041 00477 SUB +0 40200 0 00015 00500 STA +0 62100 0 00502
00501 CAL -0 50000 0 00055 00502 LGR -0 76500 0 00000 00503 ANA -0 32000 0 00026 00504 SLW +0 60200 0 00552
00505 CAL -0 50000 0 00015 00506 STA +0 62100 0 00510 00507 CAL -0 50000 0 00026 00510 LGR -0 76500 0 00000
00511 ANA -0 32000 0 00050 00512 SLW +0 60200 0 00551 00513 CAL -0 50000 0 00041 00514 STA +0 62100 0 00516
00515 CAL -0 50000 0 00551 00516 ALS +0 76700 0 00000 00517 ORA -0 50100 0 00552 00520 SLW +0 60200 0 00552
00521 TSX +0 07400 4 00001 00522 TXH +3 00000 0 00552 00523 TRA +0 02000 0 00544
LOOP1 C'E 049 LM00083
00524 TRA +0 02000 0 00457
T'O BAD1 050 LM00084
00525 TRA +0 02000 0 00007
E'N 051 LM00086
00526 TSX +0 07400 4 00003 00527 TXH +3 00000 0 00000 00530 SXD -0 63400 1 00527 00531 SXA +0 63400 4 00544
00532 CLA +0 50000 4 00001 00533 STO +0 60100 0 00076 00534 STA +0 62100 0 00173 00535 STO +0 60100 0 00252
00536 STA +0 62100 0 00326 00537 STA +0 62100 0 00372 00540 STA +0 62100 0 00442 00541 CLA +0 50000 4 00002
00542 STA +0 62100 0 00165 00543 TRA +0 02000 2 00001 00544 AXT +0 77400 4 00000 00545 LXA +0 53400 2 00527
00546 LXD -0 53400 1 00527 00547 TRA +0 02000 4 00001
1 FUNCTION DISPATCHER FOR 'CALL' COMMAND PAGE 1
D.R. WIDRIG MAY 1966
00042 ENTRY SUBNAM TO SET NAME AND CALL
00057 ENTRY CALL TO CALL SUBROUTINE
00161 ENTRY GCLS SHORT FORM TO REPLACE LIBRARY KLUDGE
SUBS MACRO NAME MACRO TO GENERATE TABLE OF CALLS
BCI 1,'NAME
TTR $'NAME
SUBS END
TRANSFER VECTOR
00000 644724442624 UPDMFD
00001 242543442624 DELMFD
00002 216363212330 ATTACH
00003 444665263143 MOVFIL
00004 622563263143 SETFIL
00005 433145426060 LINK
00006 214343466360 ALLOT
00007 644724216325 UPDATE
00010 464725456060 OPEN
00011 226426262551 BUFFER
00012 512426314325 RDFILE
00013 512466213163 RDWAIT
00014 665126314325 WRFILE
00015 665166213163 WRWAIT
00016 635126314325 TRFILE
00017 262330252342 FCHECK
00020 234346622560 CLOSE
00021 266621316360 FWAIT
00022 622563475131 SETPRI
00023 512562256326 RESETF
00024 233026314325 CHFILE
00025 242543263143 DELFIL
00026 266263216325 FSTATE
00027 644543314542 UNLINK
00030 626346512725 STORGE
00031 216363452144 ATTNAM
00032 314624312127 IODIAG
00033 444664456360 MOUNT
00034 644446644563 UMOUNT
00035 652551312670 VERIFY
00036 432122254360 LABEL
00037 632147263143 TAPFIL
LINKAGE DIRECTOR
00040 000000000000
00041 626422452144
00042 0636 00 4 00055 SUBNAM SCA SUBX4,4 SAVE LINKAGE
00043 -0500 60 4 00001 CAL* 1,4 GET LEFT-JUSTIFIED TEST WORD
00044 0774 00 4 00100 AXT NCALLS,4 INITIALIZE LOOP COUNTER
1 FUNCTION DISPATCHER FOR 'CALL' COMMAND PAGE 2
D.R. WIDRIG MAY 1966
00045 -0340 00 4 00161 LAS CALLS+NCALLS,4 TEST WORD AGAINST TABLE
00046 0020 00 0 00050 TRA *+2 NOPE, TRY SOME MORE
00047 0020 00 0 00053 TRA NAMFND AHH.. SET UP TRANSFER
00050 2 00002 4 00045 TIX *-3,4,2 LOOP
00051 0500 00 0 00060 CLA RET NOT FOUND, SET 1,4 RETURN
00052 0020 00 0 00054 TRA NAMFND+1 ..
00053 0500 60 4 00162 NAMFND CLA* CALLS+NCALLS+1,4 PICK UP TRANSFER VECTOR
00054 0601 00 0 00057 STO CALL AND PLANT TRANFER LOCATION
00055 -0774 00 4 00000 SUBX4 AXC **,4 RESTORE LINKAGE
00056 0020 00 4 00002 TRA 2,4 AND RETURN TO MAIN PROGRAM
00057 0 00000 0 00000 CALL *** ** LINKAGE TO FUNCTION SELECTED
00060 0020 00 4 00001 RET TRA 1,4 DUMMY RETURN
1 FUNCTION DISPATCHER FOR 'CALL' COMMAND PAGE 3
D.R. WIDRIG MAY 1966
TABLE OF ALLOWABLE CALLS
00061 CALLS SUBS UPDMFD
00063 SUBS DELMFD
00065 SUBS ATTACH
00067 SUBS MOVFIL
00071 SUBS SETFIL
00073 SUBS LINK
00075 SUBS ALLOT
00077 SUBS UPDATE
00101 SUBS OPEN
00103 SUBS BUFFER
00105 SUBS RDFILE
00107 SUBS RDWAIT
00111 SUBS WRFILE
00113 SUBS WRWAIT
00115 SUBS TRFILE
00117 SUBS FCHECK
00121 SUBS CLOSE
00123 SUBS FWAIT
00125 SUBS SETPRI
00127 SUBS RESETF
00131 SUBS CHFILE
00133 SUBS DELFIL
00135 SUBS FSTATE
00137 SUBS UNLINK
00141 SUBS STORGE
00143 SUBS ATTNAM
00145 SUBS IODIAG
00147 SUBS MOUNT
00151 SUBS UMOUNT
00153 SUBS VERIFY
00155 SUBS LABEL
00157 SUBS TAPFIL
00100 NCALLS EQU *-CALLS
1 FUNCTION DISPATCHER FOR 'CALL' COMMAND PAGE 4
D.R. WIDRIG MAY 1966
SHORT 'GCLS' TO REPLACE ABOMINATION IN LIBRARY
00161 0636 00 4 00177 GCLS SCA GCLX4,4 SAVE LINKAGE
00162 0636 00 2 00176 SCA GCLX2,2 AND IR2
00163 0500 00 4 00001 CLA 1,4 GET POINTER TO BUFFER
00164 0621 00 0 00172 STA INTO SET UP RETURN OPERATION
00165 0074 00 4 00201 TSX GETCLS,4 CALL UP SUPERVISOR
00166 0 00000 0 00202 PZE BUFF,,0 CURRENT COMMAND BUFFER
00167 0774 00 4 00000 AXT 0,4 NOW MOVE WORDS TO 'CALL'
00170 0774 00 2 00000 AXT 0,2 IR2 IS THE 'FROM' POINTER
00171 -0500 00 2 00202 STORE CAL BUFF,2 GET SUPERVISOR WORD
00172 0602 00 4 00000 INTO SLW **,4 GIVE TO 'CALL' MAIN PROGRAM
00173 1 77777 2 00174 TXI *+1,2,-1 MOVE 'FROM' POINTER UP ONE
00174 1 00001 4 00175 TXI *+1,4,1 MOVE 'TO' POINTER DOWN ONE
00175 -3 00023 4 00171 TXL STORE,4,19 LOOP
00176 -0774 00 2 00000 GCLX2 AXC **,2 DONE, RESTORE THE SCENE
00177 -0774 00 4 00000 GCLX4 AXC **,4 AND THE LINKAGE
00200 0020 00 4 00003 TRA 3,4 AND GO HOME
00201 0101 00 0 00226 GETCLS TIA =HGETCLS SUPERVISOR CALL
00202 BUFF BSS 20 TEMPORARY STORAGE FOR RETURN GOODIES
END
LITERALS
00226 272563234362
1 FUNCTION DISPATCHER FOR 'CALL' COMMAND PAGE 1
POST PROCESSOR ASSEMBLY DATA
227 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
60 RET 51
202 BUFF 166, 171
57 CALL 0, 54
161 GCLS 0
172 INTO 164
5 LINK 74
10 OPEN 102
6 ALLOT 76
61 CALLS 45, 53, 161
20 CLOSE 122
21 FWAIT 124
176 GCLX2 162
177 GCLX4 161
36 LABEL 156
33 MOUNT 150
171 STORE 175
55 SUBX4 42
2 ATTACH 66
31 ATTNAM 144
11 BUFFER 104
24 CHFILE 132
25 DELFIL 134
1 DELMFD 64
17 FCHECK 120
26 FSTATE 136
201 GETCLS 165
32 IODIAG 146
3 MOVFIL 70
53 NAMFND 47, 52
100 NCALLS 44, 45, 53, 161
12 RDFILE 106
13 RDWAIT 110
23 RESETF 130
4 SETFIL 72
22 SETPRI 126
30 STORGE 142
42 SUBNAM 0
37 TAPFIL 160
16 TRFILE 116
34 UMOUNT 152
27 UNLINK 140
7 UPDATE 100
0 UPDMFD 62
35 VERIFY 154
14 WRFILE 112
15 WRWAIT 114
0 NO ERROR IN ABOVE ASSEMBLY.
1 SUBROUTINES TO REPLACE CRUD IN LIBRARY PAGE 1
D.R. WIDRIG AUGUST 1966
00002 ENTRY .SETUP CALLED BY MAD MAIN PROGS
00003 ENTRY EXIT CALLED BY MAD PROGS
LINKAGE DIRECTOR
00000 000000000000
00001 336225636447
00002 0020 00 4 00001 .SETUP TRA 1,4 RETURN
00003 0101 00 0 00004 EXIT TIA =HCHNCOM THAT'S ALL
END
LITERALS
00004 233045234644
1 SUBROUTINES TO REPLACE CRUD IN LIBRARY PAGE 1
POST PROCESSOR ASSEMBLY DATA
5 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
3 EXIT 0
2 .SETUP 0
0 NO ERROR IN ABOVE ASSEMBLY.
CHBALL BCD 09/18/68 2206.0 2588 00000
1 MAD PROGRAM LISTING ... ... ... FILE CHBALL MAD 02/08/68 1717.7
-
CHBALL COMMAND - REVISED 11/08/67 PETER R. BOS LM00001
LM00002
'CHBALL' -BALL- LM00003
WHERE BALL MAY BE '938', '963', OR NOT LM00004
GIVEN, IN WHICH CASE THE OPPOSITE TYPE LM00005
FROM THAT CURRENTLY IN USE WILL BE ASSUMED. LM00006
LM00007
NORMAL MODE IS INTEGER *001 LM00008
UIDLOC=COMLOC.($UNITID$)+GLOC.(COMLOC.($USER$)) *002 LM00009
OLDID=GLOC.(UIDLOC) *003 LM00010
OLDTYP=OLDID.RS.24 *004 LM00011
OLDID=OLDID.A.77777777K *005 LM00012
LM00013
BALL=COMARG.(1) *006 LM00014
LM00015
WHENEVER BALL.E.$ 963$ *007 LM00016
WHENEVER OLDTYP.RS.6.E.$000008$, CHNCOM.(0) *008 LM00017
TRANSFER TO CHBALL *009 LM00018
OR WHENEVER BALL.E.$ 938$ *010 LM00019
WHENEVER OLDTYP.RS.6.E.$000002$, CHNCOM.(0) *011 LM00020
TRANSFER TO CHBALL *012 LM00021
OR WHENEVER BALL.E.777777777777K *013 LM00022
CHBALL WHENEVER OLDTYP.E.$000020$ *014 LM00023
NEWID=OLDID.V.$820000$ *015 LM00024
TRANSFER TO SET *016 LM00025
OR WHENEVER OLDTYP.E.$000082$ *017 LM00026
NEWID=OLDID.V.$200000$ *018 LM00027
TRANSFER TO SET *019 LM00028
OR WHENEVER OLDTYP.E.$000080$ *020 LM00029
NEWID=OLDID.V.$280000$ *021 LM00030
TRANSFER TO SET *022 LM00031
OR WHENEVER OLDTYP.E.$000028$ *023 LM00032
NEWID=OLDID.V.$800000$ *024 LM00033
SET SLOC.(NEWID,UIDLOC) *025 LM00034
OTHERWISE *026 LM00035
PRMESS.($THIS COMMAND FOR 1050'S AND 2741'S ONLY$) *027 LM00036
END OF CONDITIONAL *028 LM00037
OTHERWISE *029 LM00038
PRMESS.($'CHBALL 963' OR 'CHBALL 938'$) *030 LM00039
END OF CONDITIONAL *031 LM00040
LM00041
CHNCOM.(0) *032 LM00042
LM00043
END OF PROGRAM *033 LM00044
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00242 TRANSFER VECTOR LENGTH 00010 PROGRAM BEGINS 00061
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
BALL 00013 1 NEWID 00014 1 OLDTYP 00016 1 SET 00012 4 UIDLOC 00017 1
CHBALL 00011 4 OLDID 00015 1
0FUNCTION DICTIONARY
CHNCOM 00000 1 COMARG 00001 1 COMLOC 00002 1 EXIT 00003 1 GLOC 00004 1
.SETUP 00005 1 PRMESS 00006 1 SLOC 00007 1
0ABSOLUTE CONSTANTS
00041 +110310146060 00045 +302221434360 00052 -204651601423 00046 -036011060314 00042 +142330222143
00047 -054370606060 00036 +040114626046 00043 +214524600207 00033 +000500146260 00051 -202646516001
00050 -064444214524 00055 -233031626023 00037 +100000000000 00027 +000000000210 00035 +021000000000
00030 +000000001000 00034 +020000000000 00031 +000000001002 00040 +100200000000 00026 +000000000200
00060 -377777777777 00022 +000000000002 00053 -206060110310 00020 +000000000000 00024 +000000000010
00023 +000000000006 00054 -206060110603 00032 +000077777777 00025 +000000000030 00056 -244531633124
00057 -246225516060 00021 +000000000001 00044 +233000000000
0STATEMENT DICTIONARY
00011 TXL -300156000153 00012 TXL -300214000211
0PROGRAM
N'S INTEGER 001 LM00008
UIDLOC=COMLOC.($UNITID$)+GLOC.(COMLOC.($USER$)) 002 LM00009
00061 TSX +0 07400 4 00005 00062 TSX +0 07400 4 00002 00063 TXH +3 00000 0 00057 00064 STO +0 60100 0 00237
00065 TSX +0 07400 4 00004 00066 TXH +3 00000 0 00237 00067 STO +0 60100 0 00237 00070 TSX +0 07400 4 00002
00071 TXH +3 00000 0 00056 00072 ADD +0 40000 0 00237 00073 STO +0 60100 0 00017
OLDID=GLOC.(UIDLOC) 003 LM00010
00074 TSX +0 07400 4 00004 00075 TXH +3 00000 0 00017 00076 STO +0 60100 0 00015
OLDTYP=OLDID.RS.24 004 LM00011
00077 CAL -0 50000 0 00025 00100 STA +0 62100 0 00102 00101 CAL -0 50000 0 00015 00102 LGR -0 76500 0 00000
00103 SLW +0 60200 0 00016
OLDID=OLDID.A.77777777K 005 LM00012
00104 CAL -0 50000 0 00015 00105 ANA -0 32000 0 00032 00106 SLW +0 60200 0 00015
BALL=COMARG.(1) 006 LM00014
00107 TSX +0 07400 4 00001 00110 TXH +3 00000 0 00021 00111 STO +0 60100 0 00013
W'R BALL.E.$ 963$ 007 LM00016
00112 CLA +0 50000 0 00013 00113 SUB +0 40200 0 00054 00114 TNZ -0 10000 0 00131
W'R OLDTYP.RS.6.E.$000008$, CHNCOM.(0) 008 LM00017
00115 CAL -0 50000 0 00023 00116 STA +0 62100 0 00120 00117 CAL -0 50000 0 00016 00120 LGR -0 76500 0 00000
00121 SLW +0 60200 0 00237 00122 CLA +0 50000 0 00237 00123 SUB +0 40200 0 00024 00124 TNZ -0 10000 0 00127
00125 TSX +0 07400 4 00000 00126 TXH +3 00000 0 00020
T'O CHBALL 009 LM00018
00127 TRA +0 02000 0 00011
O'R BALL.E.$ 938$ 010 LM00019
00130 TRA +0 02000 0 00234 00131 CLA +0 50000 0 00013 00132 SUB +0 40200 0 00053 00133 TNZ -0 10000 0 00150
W'R OLDTYP.RS.6.E.$000002$, CHNCOM.(0) 011 LM00020
00134 CAL -0 50000 0 00023 00135 STA +0 62100 0 00137 00136 CAL -0 50000 0 00016 00137 LGR -0 76500 0 00000
00140 SLW +0 60200 0 00237 00141 CLA +0 50000 0 00237 00142 SUB +0 40200 0 00022 00143 TNZ -0 10000 0 00146
00144 TSX +0 07400 4 00000 00145 TXH +3 00000 0 00020
T'O CHBALL 012 LM00021
00146 TRA +0 02000 0 00011
O'R BALL.E.777777777777K 013 LM00022
00147 TRA +0 02000 0 00234 00150 CLA +0 50000 0 00013 00151 SUB +0 40200 0 00060 00152 TNZ -0 10000 0 00226
CHBALL W'R OLDTYP.E.$000020$ 014 LM00023
00153 CLA +0 50000 0 00016 00154 SUB +0 40200 0 00026 00155 TNZ -0 10000 0 00163
NEWID=OLDID.V.$820000$ 015 LM00024
00156 CAL -0 50000 0 00015 00157 ORA -0 50100 0 00040 00160 SLW +0 60200 0 00014
T'O SET 016 LM00025
00161 TRA +0 02000 0 00012
O'R OLDTYP.E.$000082$ 017 LM00026
00162 TRA +0 02000 0 00225 00163 CLA +0 50000 0 00016 00164 SUB +0 40200 0 00031 00165 TNZ -0 10000 0 00173
NEWID=OLDID.V.$200000$ 018 LM00027
00166 CAL -0 50000 0 00015 00167 ORA -0 50100 0 00034 00170 SLW +0 60200 0 00014
T'O SET 019 LM00028
00171 TRA +0 02000 0 00012
O'R OLDTYP.E.$000080$ 020 LM00029
00172 TRA +0 02000 0 00225 00173 CLA +0 50000 0 00016 00174 SUB +0 40200 0 00030 00175 TNZ -0 10000 0 00203
NEWID=OLDID.V.$280000$ 021 LM00030
00176 CAL -0 50000 0 00015 00177 ORA -0 50100 0 00035 00200 SLW +0 60200 0 00014
T'O SET 022 LM00031
00201 TRA +0 02000 0 00012
O'R OLDTYP.E.$000028$ 023 LM00032
00202 TRA +0 02000 0 00225 00203 CLA +0 50000 0 00016 00204 SUB +0 40200 0 00027 00205 TNZ -0 10000 0 00215
NEWID=OLDID.V.$800000$ 024 LM00033
00206 CAL -0 50000 0 00015 00207 ORA -0 50100 0 00037 00210 SLW +0 60200 0 00014
SET SLOC.(NEWID,UIDLOC) 025 LM00034
00211 TSX +0 07400 4 00007 00212 TXH +3 00000 0 00014 00213 TXH +3 00000 0 00017
O'E 026 LM00035
00214 TRA +0 02000 0 00225
PRMESS.($THIS COMMAND FOR 1050'S AND 2741'S ONLY$) 027 LM00036
00215 TSX +0 07400 4 00006 00216 TXH +3 00000 0 00055 00217 TXH +3 00000 0 00050 00220 TXH +3 00000 0 00051
00221 TXH +3 00000 0 00033 00222 TXH +3 00000 0 00043 00223 TXH +3 00000 0 00036 00224 TXH +3 00000 0 00047
E'L 028 LM00037
O'E 029 LM00038
00225 TRA +0 02000 0 00234
PRMESS.($'CHBALL 963' OR 'CHBALL 938'$) 030 LM00039
00226 TSX +0 07400 4 00006 00227 TXH +3 00000 0 00042 00230 TXH +3 00000 0 00046 00231 TXH +3 00000 0 00052
00232 TXH +3 00000 0 00045 00233 TXH +3 00000 0 00041
E'L 031 LM00040
CHNCOM.(0) 032 LM00042
00234 TSX +0 07400 4 00000 00235 TXH +3 00000 0 00020
END OF PROGRAM 033 LM00044
00236 TSX +0 07400 4 00003
CHMODE BCD 09/18/68 2206.0 11391 00000
1 MAD PROGRAM LISTING ... ... ... FILE CHMDE MAD 02/08/68 1720.8
-
DELET ..DELETE, CHMODE, AND RENAME COMMANDS. LM00001
LM00002
..DELETE A(1) B(1) A(2) B(2) ... A(N) B(N) LM00003
..DELETES ALL VERSIONS OF FILES A(I) B(I), IF POSSIBLE LM00004
..IF NOT, PRINTS COMMENT. LM00005
..IF B(I) = '*', ANY FILE WITH PRIMARY NAME A(I) LM00006
..WILL BE DELETED LM00007
..IF A(I) = '*', ANY FILE WITH SECONDARY NAME B(I) WILL LM00008
..BE DELETED LM00009
LM00010
..CHMODE A(1) B(1) M(1) A(2) B(2) M(2) ... A(N) B(N) M(N) LM00011
..WHERE M(I) IS 0, 1, 2, 3, T, P, R1, OR R2 LM00012
LM00013
..IF NOT, PRINTS COMMENT LM00014
..A(I) OR B(I) MAY BE '*', SAME CONVENTIONS AS ABOVE LM00015
LM00016
..RENAME A(1) B(1) C(1) D(1) ... A(N) B(N) C(N) D(N) LM00017
..FILES A(I) B(I) ARE RENAMED TO C(I) D(I) ONLY IF MODE LM00018
..ALLOWS IT, AND IF ALL PREVIOUS COPIES OF C(I) D(I) ARE LM00019
..DELETED. IF NOT, PRINTS COMMENT LM00020
..IF C(I) = '*', THEN A(I) MUST BE '*', AND ONLY SECONDARY LM00021
..NAME IS CHANGED LM00022
..IF D(I) = '*', THEN B(I) MUST BE '*', OR MISSING, AND LM00023
..ONLY PRIMARY NAME IS CHANGED, FOR ALL A(I) LM00024
..THE LAST D(N) MISSING IS ASSUMED B(N) LM00025
LM00026
DELT FDR=0 *001 LM00027
LM00028
WHENEVER COMARG.(0,COM).E.$DELETE$ *002 LM00029
CM=1 *003 LM00030
OR WHENEVER COM.E.$CHMODE$ *004 LM00031
CM=2 *005 LM00032
OR WHENEVER COM.E.$RENAME$ *006 LM00033
CM=3 *007 LM00034
END OF CONDITIONAL *008 LM00035
LM00036
ARG THROUGH ARG, FOR A=1,1,A.E.19.OR.COMARG.(A,A(A)).E.FENCE *009 LM00037
A(A)=$$ *010 LM00038
THROUGH ARGCK, FOR I=1,2,I.G.A-1 *011 LM00039
MODF=0 *012 LM00040
MODG=0 *013 LM00041
LM00042
WHENEVER I+CM.G.A-1 *014 LM00043
TRANSFER TO ER(CM) *015 LM00044
ER(1) MES5=$$ *016 LM00045
MES5(1)=A(I) *017 LM00046
ERA EXECUTE PRNTP.(MES5) *018 LM00047
EXECUTE CHNCOM.(0) *019 LM00048
ER(2) MES5=A(I) *020 LM00049
MES5(1)=A(I+1) *021 LM00050
TRANSFER TO ERA *022 LM00051
ER(3) WHENEVER I+CM-1.G.A-1, TRANSFER TO ER(2) *023 LM00052
A(I+3)=A(I+1) *024 LM00053
END OF CONDITIONAL *025 LM00054
LM00055
WHENEVER A(I).E.0.AND.A(I+1).E.0 *026 LM00056
EXECUTE PRNTP.(MES6) *027 LM00057
TRANSFER TO ARGCK *028 LM00058
OR WHENEVER A(I).E.ASTRSK *029 LM00059
WHENEVER CM.E.3.AND.A(I+2).NE.ASTRSK, TRANSFER TO ARGC *030 LM00060
E1=4 *031 LM00061
TRANSFER TO STAR *032 LM00062
OR WHENEVER A(I+1).E.ASTRSK *033 LM00063
WHENEVER CM.E.3.AND.A(I+3).NE.ASTRSK, TRANSFER TO ARGC *034 LM00064
E1=3 *035 LM00065
TRANSFER TO STAR *036 LM00066
OR WHENEVER CM.E.3.AND.A(I+2).E.ASTRSK *037 LM00067
TRANSFER TO ASTER *038 LM00068
OR WHENEVER CM.E.3.AND.A(I+3).E.ASTRSK *039 LM00069
TRANSFER TO ASTER *040 LM00070
END OF CONDITIONAL *041 LM00071
LM00072
ARGC EXECUTE FSTATE.(A(I),A(I+1),FV(1)...1,NOFIL) *042 LM00073
LM00074
EXECUTE EXEC. *043 LM00075
ARGCK I=I+CM-1 *044 LM00076
EXECUTE CHNCOM.(0) *045 LM00077
LM00078
NOFIL MES2(1)=A(I) *046 LM00079
MES2(2)=A(I+1) *047 LM00080
EXECUTE PRNTP.(MES2) *048 LM00081
TRANSFER TO ARGCK *049 LM00082
LM00083
ASTER EXECUTE PRNTP.(MES10) *050 LM00084
TRANSFER TO ARGCK *051 LM00085
LM00086
STAR WHENEVER FDR.E.1, TRANSFER TO SCA *052 LM00087
WHENEVER FDR.E.2, TRANSFER TO STR *053 LM00088
EXECUTE UPDATE. *054 LM00089
EXECUTE LDFIL.($U.F.D.$,$(FILE)$,SCAN.) *055 LM00090
EXECUTE PRNTP.(MES4) *056 LM00091
STR MES11=A(I) *057 LM00092
MES11(1)=A(I+1) *058 LM00093
EXECUTE PRNTP.(MES11) *059 LM00094
FDR=2 *060 LM00095
TRANSFER TO ARGCK *061 LM00096
LM00097
LM00098
INTERNAL FUNCTION(LODAD) *062 LM00099
ENTRY TO SCAN. *063 LM00100
FDR=1 *064 LM00101
SCA AVJ=I+E1-3 *065 LM00102
THROUGH SC, FOR J=E1+1,7,J.GE.(LODAD) *066 LM00103
WHENEVER LODAD(1K5-J).E.A(AVJ), TRANSFER TO GRARG *067 LM00104
SC1 P=(LODAD(1K5-J-8+E1).LS.18).RS.33 *068 LM00105
F=(LODAD(1K5-J-7+E1).LS.18).RS.33 *069 LM00106
WHENEVER F.NE.0, J=J+P-1 *070 LM00107
SC CONTINUE *071 LM00108
WHENEVER A(I+4-E1).E.ASTRSK.AND.MODG.E.0,TRANSFERTOERK(5-E1) *072 LM00109
TRANSFER TO ARGCK *073 LM00110
LM00111
ERK(1) MES12(3)=$SECOND$ *074 LM00112
TRANSFER TO ERKA *075 LM00113
ERK(2) MES12(3)=$ FIRST$ *076 LM00114
ERKA MES12(5)=A(I+E1-3) *077 LM00115
EXECUTE PRNTP.(MES12) *078 LM00116
TRANSFER TO ARGCK *079 LM00117
LM00118
GRARG A(I+4-E1)=LODAD(1K5-J-7+2*E1) *080 LM00119
WHENEVER CM.E.3,A(I+6-E1)=A(I+4-E1) *081 LM00120
WHENEVER A(I+4-E1).E.ASTRSK, MODG=1 *082 LM00121
EXECUTE EXEC. *083 LM00122
TRANSFER TO SC1 *084 LM00123
END OF FUNCTION *085 LM00124
LM00125
LM00126
INTERNAL FUNCTION *086 LM00127
ENTRY TO EXEC. *087 LM00128
TRANSFER TO FUN(CM) *088 LM00129
LM00130
FUN(1) WHENEVER DELETE.(A(I)).E.0, TRANSFER TO FUNA *089 LM00131
MES3(1)=A(I) *090 LM00132
MES3(2)=A(I+1) *091 LM00133
EXECUTE PRNTP.(MES3) *092 LM00134
FUNA FUNCTION RETURN *093 LM00135
LM00136
FUN(2) WHENEVER MODF .E. 1, TRANSFER TO FUNB *094 LM00137
GETMOD.(A(I+2),FUNB1) *095 LM00138
EXECUTE PRNTP.(MES7) *096 LM00139
TRANSFER TO ARGCK *097 LM00140
FUNB1 MODF = 1 *098 LM00141
FUNB CHFILE. (A(I),A(I+1),A(I+2),-0,-0,FUNB2) *099 LM00142
TRANSFER TO FUNA *100 LM00143
FUNB2 MES8(1)=A(I) *101 LM00144
MES8(2)=A(I+1) *102 LM00145
EXECUTE PRNTP.(MES8) *103 LM00146
FUNCTION RETURN *104 LM00147
LM00148
FUN(3) WHENEVER RENAME.(A(I),A(I+2)).E.0, TRANSFER TO FUNA *105 LM00149
MES9(1)=A(I) *106 LM00150
MES9(2)=A(I+1) *107 LM00151
EXECUTE PRNTP.(MES9) *108 LM00152
FUNCTION RETURN *109 LM00153
END OF FUNCTION *110 LM00154
LM00155
LM00156
VECTOR VALUES MES2=$ FILE$,0,0,$ NOT FOUND$,777777777777K *111 LM00157
VECTOR VALUES MES3=$ FILE$,0,0,$ NOT DELETED$,777777777777K *112 LM00158
VECTOR VALUES MES4=$ ERROR IN READING FILE DIRECTORY$, *113 LM00159
1 777777777777K *113 LM00160
VECTOR VALUES MES5(2)=$ INCOMPLETE SET OF ARGUMENTS$, *114 LM00161
1 777777777777K *114 LM00162
VECTOR VALUES MES6=$ FILE NAME ILLEGAL$,777777777777K *115 LM00163
VECTOR VALUES MES7=$ ILLEGAL MODE DEFINITION$,777777777777K *116 LM00164
VECTOR VALUES MES8=$ FILE$,0,0,$ MODE NOT CHANGED$, *117 LM00165
1 777777777777K *117 LM00166
VECTOR VALUES MES9=$ FILE$,0,0,$ NOT RENAMED$,777777777777K *118 LM00167
VECTOR VALUES MES10=$ ILLEGAL USE OF ASTERISK$,777777777777K *119 LM00168
VECTOR VALUES MES11(2)=$ IGNORED$,777777777777K *120 LM00169
VECTOR VALUES MES12=$ NO FILE WITH $,0,$ NAME $,0,$ FOUND$, *121 LM00170
1 777777777777K *121 LM00171
LM00172
VECTOR VALUES ASTRSK=$ *$ *122 LM00173
VECTOR VALUES FENCE=777777777777K *123 LM00174
NORMAL MODE IS INTEGER *124 LM00175
DIMENSION A(19),FV(1) *125 LM00176
END OF PROGRAM *126 LM00177
THE FOLLOWING NAMES HAVE OCCURRED ONLY ONCE IN THIS PROGRAM.
THEY WILL ALL BE ASSIGNED TO THE SAME LOCATION, AND
COMPILATION WILL CONTINUE.
DELT
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 01252 TRANSFER VECTOR LENGTH 00014 PROGRAM BEGINS 00245
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
ARGCK 00017 4 E1 00101 1 FUNB2 00035 4 MES12 00132 A 1 MODF 00214 1
ARGC 00020 4 ERA 00022 4 FUNB 00036 4 MES2 00140 A 1 MODG 00215 1
ARG 00016 4 ERKA 00023 4 FUN 00042 A 4 MES3 00146 A 1 NOFIL 00044 4
A 00074 A 1 ERK 00026 A 4 FV 00106 A 1 MES4 00155 A 1 P 00216 1
ASTER 00021 4 ER 00032 A 4 GRARG 00043 4 MES5 00165 A 1 SC1 00045 4
ASTRSK 00075 A 1 FDR 00102 1 I 00107 1 MES6 00171 A 1 SCA 00046 4
AVJ 00076 1 FENCE 00103 A 1 J 00110 1 MES7 00176 A 1 SC 00016 4
CM 00077 1 F 00104 1 MES10 00115 A 1 MES8 00205 A 1 STAR 00047 4
COM 00100 1 FUNA 00033 4 MES11 00122 A 1 MES9 00213 A 1 STR 00050 4
DELT 00016 4 FUNB1 00034 4
0FUNCTION DICTIONARY
CHFILE 00000 1 CHNCOM 00001 1 COMARG 00002 1 DELETE 00003 1 EXIT 00004 1
FSTATE 00005 1 GETMOD 00006 1 .SETUP 00007 1 LDFIL 00010 1 PRNTP 00011 1
RENAME 00012 1 UPDATE 00013 1 EXEC 00014 1 SCAN 00015 1
0ABSOLUTE CONSTANTS
00225 +000000000006 00240 -202631516263 00242 -222523464524 00224 +000000000005 00232 +000000000041
00230 +000000000022 00227 +000000000010 00233 +000000100000 00226 +000000000007 00244 -342631432534
00243 -243326332433 00223 +000000000004 00241 -206060606060 00231 +000000000023 00222 +000000000003
00237 -112545214425 00221 +000000000002 00235 +233044462425 00236 +242543256325 00217 +000000000000
00220 +000000000001 00234 +233000000000
0STATEMENT DICTIONARY
00017 TXL -300555000550 00020 TXL -300547000531 00021 TXL -300574000572 00022 TXL -300362000360
00023 TXL -300766000760 00024 TXL -300760000756 00025 TXL -300755000753 00027 TXL -300407000375
00030 TXL -300367000364 00031 TXL -300355000353 00033 TXL -301113001112 00034 TXL -301134001132
00035 TXL -301171001166 00036 TXL -301165001134 00037 TXL -301220001201 00040 TXL -301117001113
00041 TXL -301100001067 00043 TXL -301010000771 00044 TXL -300562000557 00045 TXL -300705000666
00046 TXL -300643000637 00047 TXL -300601000575 00050 TXL -300617000614
0PROGRAM
DELT FDR=0 001 LM00027
00245 TSX +0 07400 4 00007 00246 CLA +0 50000 0 00217 00247 STO +0 60100 0 00102
WHENEVER COMARG.(0,COM).E.$DELETE$ 002 LM00029
00250 TSX +0 07400 4 00002 00251 TXH +3 00000 0 00217 00252 TXH +3 00000 0 00100 00253 SUB +0 40200 0 00236
00254 TNZ -0 10000 0 00260
CM=1 003 LM00030
00255 CLA +0 50000 0 00220 00256 STO +0 60100 0 00077
OR WHENEVER COM.E.$CHMODE$ 004 LM00031
00257 TRA +0 02000 0 00273 00260 CLA +0 50000 0 00100 00261 SUB +0 40200 0 00235 00262 TNZ -0 10000 0 00266
CM=2 005 LM00032
00263 CLA +0 50000 0 00221 00264 STO +0 60100 0 00077
OR WHENEVER COM.E.$RENAME$ 006 LM00033
00265 TRA +0 02000 0 00273 00266 CLA +0 50000 0 00100 00267 SUB +0 40200 0 00237 00270 TNZ -0 10000 0 00273
CM=3 007 LM00034
00271 CLA +0 50000 0 00222 00272 STO +0 60100 0 00077
END OF CONDITIONAL 008 LM00035
ARG THROUGH ARG, FOR A=1,1,A.E.19.OR.COMARG.(A,A(A)).E.FENCE 009 LM00037
00273 CLA +0 50000 0 00220 00274 STO +0 60100 0 00074 00275 TRA +0 02000 0 00301 00276 CLA +0 50000 0 00074
00277 ADD +0 40000 0 00220 00300 STO +0 60100 0 00074 00301 CLA +0 50000 0 00074 00302 SUB +0 40200 0 00303
00303 TXH +3 00000 0 00074 00304 STA +0 62100 0 00307 00305 TSX +0 07400 4 00002 00306 TXH +3 00000 0 00074
00307 TXH +3 00000 0 00000 00310 SUB +0 40200 0 00103 00311 TZE +0 10000 0 00316 00312 CLA +0 50000 0 00074
00313 SUB +0 40200 0 00231 00314 TZE +0 10000 0 00316 00315 TRA +0 02000 0 00276
A(A)=$$ 010 LM00038
00316 LXA +0 53400 1 00074 00317 CLA +0 50000 0 00241 00320 STO +0 60100 1 00074
THROUGH ARGCK, FOR I=1,2,I.G.A-1 011 LM00039
00321 CLA +0 50000 0 00220 00322 STO +0 60100 0 00107 00323 TRA +0 02000 0 00327 00324 CLA +0 50000 0 00107
00325 ADD +0 40000 0 00221 00326 STO +0 60100 0 00107 00327 CLA +0 50000 0 00074 00330 SUB +0 40200 0 00220
00331 CHS +0 76000 0 00002 00332 ADD +0 40000 0 00107 00333 TZE +0 10000 0 00335 00334 TPL +0 12000 0 00555
MODF=0 012 LM00040
00335 CLA +0 50000 0 00217 00336 STO +0 60100 0 00214
MODG=0 013 LM00041
00337 CLA +0 50000 0 00217 00340 STO +0 60100 0 00215
WHENEVER I+CM.G.A-1 014 LM00043
00341 CLA +0 50000 0 00074 00342 SUB +0 40200 0 00220 00343 STO +0 60100 0 01247 00344 CLA +0 50000 0 00107
00345 ADD +0 40000 0 00077 00346 SUB +0 40200 0 01247 00347 TZE +0 10000 0 00420 00350 TMI -0 12000 0 00420
TRANSFER TO ER(CM) 015 LM00044
00351 LXA +0 53400 2 00077 00352 TRA +0 02000 2 00032
ER(1) MES5=$$ 016 LM00045
00353 CLA +0 50000 0 00241 00354 STO +0 60100 0 00165
MES5(1)=A(I) 017 LM00046
00355 LXA +0 53400 2 00107 00356 CLA +0 50000 2 00074 00357 STO +0 60100 0 00164
ERA EXECUTE PRNTP.(MES5) 018 LM00047
00360 TSX +0 07400 4 00011 00361 TXH +3 00000 0 00165
EXECUTE CHNCOM.(0) 019 LM00048
00362 TSX +0 07400 4 00001 00363 TXH +3 00000 0 00217
ER(2) MES5=A(I) 020 LM00049
00364 LXA +0 53400 2 00107 00365 CLA +0 50000 2 00074 00366 STO +0 60100 0 00165
MES5(1)=A(I+1) 021 LM00050
00367 CLA +0 50000 0 00107 00370 ADD +0 40000 0 00220 00371 PAX +0 73400 2 00000 00372 CLA +0 50000 2 00074
00373 STO +0 60100 0 00164
TRANSFER TO ERA 022 LM00051
00374 TRA +0 02000 0 00022
ER(3) WHENEVER I+CM-1.G.A-1, TRANSFER TO ER(2) 023 LM00052
00375 CLA +0 50000 0 00074 00376 SUB +0 40200 0 00220 00377 STO +0 60100 0 01247 00400 CLA +0 50000 0 00107
00401 ADD +0 40000 0 00077 00402 SUB +0 40200 0 00220 00403 SUB +0 40200 0 01247 00404 TZE +0 10000 0 00407
00405 TMI -0 12000 0 00407 00406 TRA +0 02000 0 00030
A(I+3)=A(I+1) 024 LM00053
00407 CLA +0 50000 0 00107 00410 ADD +0 40000 0 00220 00411 STO +0 60100 0 01247 00412 CLA +0 50000 0 00107
00413 ADD +0 40000 0 00222 00414 PAX +0 73400 1 00000 00415 LXA +0 53400 2 01247 00416 CLA +0 50000 2 00074
00417 STO +0 60100 1 00074
END OF CONDITIONAL 025 LM00054
WHENEVER A(I).E.0.AND.A(I+1).E.0 026 LM00056
00420 CLA +0 50000 0 00107 00421 ADD +0 40000 0 00220 00422 PAX +0 73400 1 00000 00423 CLA +0 50000 1 00074
00424 SUB +0 40200 0 00217 00425 TNZ -0 10000 0 00436 00426 LXA +0 53400 1 00107 00427 CLA +0 50000 1 00074
00430 SUB +0 40200 0 00217 00431 TNZ -0 10000 0 00436
EXECUTE PRNTP.(MES6) 027 LM00057
00432 TSX +0 07400 4 00011 00433 TXH +3 00000 0 00171
TRANSFER TO ARGCK 028 LM00058
00434 TRA +0 02000 0 00017
OR WHENEVER A(I).E.ASTRSK 029 LM00059
00435 TRA +0 02000 0 00531 00436 LXA +0 53400 1 00107 00437 CLA +0 50000 1 00074 00440 SUB +0 40200 0 00075
00441 TNZ -0 10000 0 00460
WHENEVER CM.E.3.AND.A(I+2).NE.ASTRSK, TRANSFER TO ARGC 030 LM00060
00442 CLA +0 50000 0 00107 00443 ADD +0 40000 0 00221 00444 PAX +0 73400 1 00000 00445 CLA +0 50000 1 00074
00446 SUB +0 40200 0 00075 00447 TZE +0 10000 0 00454 00450 CLA +0 50000 0 00077 00451 SUB +0 40200 0 00222
00452 TNZ -0 10000 0 00454 00453 TRA +0 02000 0 00020
E1=4 031 LM00061
00454 CLA +0 50000 0 00223 00455 STO +0 60100 0 00101
TRANSFER TO STAR 032 LM00062
00456 TRA +0 02000 0 00047
OR WHENEVER A(I+1).E.ASTRSK 033 LM00063
00457 TRA +0 02000 0 00531 00460 CLA +0 50000 0 00107 00461 ADD +0 40000 0 00220 00462 PAX +0 73400 1 00000
00463 CLA +0 50000 1 00074 00464 SUB +0 40200 0 00075 00465 TNZ -0 10000 0 00504
WHENEVER CM.E.3.AND.A(I+3).NE.ASTRSK, TRANSFER TO ARGC 034 LM00064
00466 CLA +0 50000 0 00107 00467 ADD +0 40000 0 00222 00470 PAX +0 73400 1 00000 00471 CLA +0 50000 1 00074
00472 SUB +0 40200 0 00075 00473 TZE +0 10000 0 00500 00474 CLA +0 50000 0 00077 00475 SUB +0 40200 0 00222
00476 TNZ -0 10000 0 00500 00477 TRA +0 02000 0 00020
E1=3 035 LM00065
00500 CLA +0 50000 0 00222 00501 STO +0 60100 0 00101
TRANSFER TO STAR 036 LM00066
00502 TRA +0 02000 0 00047
OR WHENEVER CM.E.3.AND.A(I+2).E.ASTRSK 037 LM00067
00503 TRA +0 02000 0 00531 00504 CLA +0 50000 0 00107 00505 ADD +0 40000 0 00221 00506 PAX +0 73400 1 00000
00507 CLA +0 50000 1 00074 00510 SUB +0 40200 0 00075 00511 TNZ -0 10000 0 00517 00512 CLA +0 50000 0 00077
00513 SUB +0 40200 0 00222 00514 TNZ -0 10000 0 00517
TRANSFER TO ASTER 038 LM00068
00515 TRA +0 02000 0 00021
OR WHENEVER CM.E.3.AND.A(I+3).E.ASTRSK 039 LM00069
00516 TRA +0 02000 0 00531 00517 CLA +0 50000 0 00107 00520 ADD +0 40000 0 00222 00521 PAX +0 73400 1 00000
00522 CLA +0 50000 1 00074 00523 SUB +0 40200 0 00075 00524 TNZ -0 10000 0 00531 00525 CLA +0 50000 0 00077
00526 SUB +0 40200 0 00222 00527 TNZ -0 10000 0 00531
TRANSFER TO ASTER 040 LM00070
00530 TRA +0 02000 0 00021
END OF CONDITIONAL 041 LM00071
ARGC EXECUTE FSTATE.(A(I),A(I+1),FV(1)...1,NOFIL) 042 LM00073
00531 CLA +0 50000 0 00107 00532 ADD +0 40000 0 00220 00533 SUB +0 40200 0 00534 00534 TXH +3 00000 0 00074
00535 STA +0 62100 0 00544 00536 CLA +0 50000 0 00107 00537 SUB +0 40200 0 00540 00540 TXH +3 00000 0 00074
00541 STA +0 62100 0 00543 00542 TSX +0 07400 4 00005 00543 TXH +3 00000 0 00000 00544 TXH +3 00000 0 00000
00545 TIX +2 00220 0 00105 00546 TXH +3 00000 0 00044
EXECUTE EXEC. 043 LM00075
00547 TSX +0 07400 4 00014
ARGCK I=I+CM-1 044 LM00076
00550 CLA +0 50000 0 00107 00551 ADD +0 40000 0 00077 00552 SUB +0 40200 0 00220 00553 STO +0 60100 0 00107
00554 TRA +0 02000 0 00324
EXECUTE CHNCOM.(0) 045 LM00077
00555 TSX +0 07400 4 00001 00556 TXH +3 00000 0 00217
NOFIL MES2(1)=A(I) 046 LM00079
00557 LXA +0 53400 2 00107 00560 CLA +0 50000 2 00074 00561 STO +0 60100 0 00137
MES2(2)=A(I+1) 047 LM00080
00562 CLA +0 50000 0 00107 00563 ADD +0 40000 0 00220 00564 PAX +0 73400 2 00000 00565 CLA +0 50000 2 00074
00566 STO +0 60100 0 00136
EXECUTE PRNTP.(MES2) 048 LM00081
00567 TSX +0 07400 4 00011 00570 TXH +3 00000 0 00140
TRANSFER TO ARGCK 049 LM00082
00571 TRA +0 02000 0 00017
ASTER EXECUTE PRNTP.(MES10) 050 LM00084
00572 TSX +0 07400 4 00011 00573 TXH +3 00000 0 00115
TRANSFER TO ARGCK 051 LM00085
00574 TRA +0 02000 0 00017
STAR WHENEVER FDR.E.1, TRANSFER TO SCA 052 LM00087
00575 CLA +0 50000 0 00102 00576 SUB +0 40200 0 00220 00577 TNZ -0 10000 0 00601 00600 TRA +0 02000 0 00046
WHENEVER FDR.E.2, TRANSFER TO STR 053 LM00088
00601 CLA +0 50000 0 00102 00602 SUB +0 40200 0 00221 00603 TNZ -0 10000 0 00605 00604 TRA +0 02000 0 00050
EXECUTE UPDATE. 054 LM00089
00605 TSX +0 07400 4 00013
EXECUTE LDFIL.($U.F.D.$,$(FILE)$,SCAN.) 055 LM00090
00606 TSX +0 07400 4 00010 00607 TXH +3 00000 0 00243 00610 TXH +3 00000 0 00244 00611 TXH +3 00000 0 00015
EXECUTE PRNTP.(MES4) 056 LM00091
00612 TSX +0 07400 4 00011 00613 TXH +3 00000 0 00155
STR MES11=A(I) 057 LM00092
00614 LXA +0 53400 2 00107 00615 CLA +0 50000 2 00074 00616 STO +0 60100 0 00122
MES11(1)=A(I+1) 058 LM00093
00617 CLA +0 50000 0 00107 00620 ADD +0 40000 0 00220 00621 PAX +0 73400 2 00000 00622 CLA +0 50000 2 00074
00623 STO +0 60100 0 00121
EXECUTE PRNTP.(MES11) 059 LM00094
00624 TSX +0 07400 4 00011 00625 TXH +3 00000 0 00122
FDR=2 060 LM00095
00626 CLA +0 50000 0 00221 00627 STO +0 60100 0 00102
TRANSFER TO ARGCK 061 LM00096
00630 TRA +0 02000 0 00017
INTERNAL FUNCTION(LODAD) 062 LM00099
00631 TRA +0 02000 0 01061
ENTRY TO SCAN. 063 LM00100
00632 TRA +0 02000 0 00635 00015 TTR +0 02100 0 00633 00633 SXA +0 63400 2 01042 00634 TSX +0 07400 2 01042
FDR=1 064 LM00101
00635 CLA +0 50000 0 00220 00636 STO +0 60100 0 00102
SCA AVJ=I+E1-3 065 LM00102
00637 CLA +0 50000 0 00107 00640 ADD +0 40000 0 00101 00641 SUB +0 40200 0 00222 00642 STO +0 60100 0 00076
THROUGH SC, FOR J=E1+1,7,J.GE.(LODAD) 066 LM00103
00643 CLA +0 50000 0 00101 00644 ADD +0 40000 0 00220 00645 STO +0 60100 0 00110 00646 TRA +0 02000 0 00652
00647 CLA +0 50000 0 00110 00650 ADD +0 40000 0 00226 00651 STO +0 60100 0 00110 00652 CLA +0 50000 0 00110
00653 SUB +0 40200 0 00024 00654 TZE +0 10000 0 00734 00655 TPL +0 12000 0 00734
WHENEVER LODAD(1K5-J).E.A(AVJ), TRANSFER TO GRARG 067 LM00104
00656 CLA +0 50000 0 00233 00657 SUB +0 40200 0 00110 00660 PAX +0 73400 1 00000 00661 LXA +0 53400 2 00076
00662 CLA +0 50000 1 00024 00663 SUB +0 40200 2 00074 00664 TNZ -0 10000 0 00666 00665 TRA +0 02000 0 00043
SC1 P=(LODAD(1K5-J-8+E1).LS.18).RS.33 068 LM00105
00666 CLA +0 50000 0 00233 00667 SUB +0 40200 0 00110 00670 SUB +0 40200 0 00227 00671 ADD +0 40000 0 00101
00672 PAX +0 73400 1 00000 00673 CAL -0 50000 0 00230 00674 STA +0 62100 0 00676 00675 CAL -0 50000 1 00024
00676 ALS +0 76700 0 00000 00677 SLW +0 60200 0 01060 00700 CAL -0 50000 0 00232 00701 STA +0 62100 0 00703
00702 CAL -0 50000 0 01060 00703 LGR -0 76500 0 00000 00704 SLW +0 60200 0 00216
F=(LODAD(1K5-J-7+E1).LS.18).RS.33 069 LM00106
00705 CLA +0 50000 0 00233 00706 SUB +0 40200 0 00110 00707 SUB +0 40200 0 00226 00710 ADD +0 40000 0 00101
00711 PAX +0 73400 1 00000 00712 CAL -0 50000 0 00230 00713 STA +0 62100 0 00715 00714 CAL -0 50000 1 00024
00715 ALS +0 76700 0 00000 00716 SLW +0 60200 0 01060 00717 CAL -0 50000 0 00232 00720 STA +0 62100 0 00722
00721 CAL -0 50000 0 01060 00722 LGR -0 76500 0 00000 00723 SLW +0 60200 0 00104
WHENEVER F.NE.0, J=J+P-1 070 LM00107
00724 CLA +0 50000 0 00104 00725 SUB +0 40200 0 00217 00726 TZE +0 10000 0 00733 00727 CLA +0 50000 0 00110
00730 ADD +0 40000 0 00216 00731 SUB +0 40200 0 00220 00732 STO +0 60100 0 00110
SC CONTINUE 071 LM00108
00733 TRA +0 02000 0 00647
WHENEVER A(I+4-E1).E.ASTRSK.AND.MODG.E.0,TRANSFERTOERK(5-E1) 072 LM00109
00734 CLA +0 50000 0 00215 00735 SUB +0 40200 0 00217 00736 TNZ -0 10000 0 00752 00737 CLA +0 50000 0 00107
00740 ADD +0 40000 0 00223 00741 SUB +0 40200 0 00101 00742 PAX +0 73400 1 00000 00743 CLA +0 50000 1 00074
00744 SUB +0 40200 0 00075 00745 TNZ -0 10000 0 00752 00746 CLA +0 50000 0 00224 00747 SUB +0 40200 0 00101
00750 PAX +0 73400 2 00000 00751 TRA +0 02000 2 00026
TRANSFER TO ARGCK 073 LM00110
00752 TRA +0 02000 0 00017
ERK(1) MES12(3)=$SECOND$ 074 LM00112
00753 CLA +0 50000 0 00242 00754 STO +0 60100 0 00127
TRANSFER TO ERKA 075 LM00113
00755 TRA +0 02000 0 00023
ERK(2) MES12(3)=$ FIRST$ 076 LM00114
00756 CLA +0 50000 0 00240 00757 STO +0 60100 0 00127
ERKA MES12(5)=A(I+E1-3) 077 LM00115
00760 CLA +0 50000 0 00107 00761 ADD +0 40000 0 00101 00762 SUB +0 40200 0 00222 00763 PAX +0 73400 2 00000
00764 CLA +0 50000 2 00074 00765 STO +0 60100 0 00125
EXECUTE PRNTP.(MES12) 078 LM00116
00766 TSX +0 07400 4 00011 00767 TXH +3 00000 0 00132
TRANSFER TO ARGCK 079 LM00117
00770 TRA +0 02000 0 00017
GRARG A(I+4-E1)=LODAD(1K5-J-7+2*E1) 080 LM00119
00771 LDQ +0 56000 0 00221 00772 MPY +0 20000 0 00101 00773 STQ -0 60000 0 01060 00774 CLA +0 50000 0 00233
00775 SUB +0 40200 0 00110 00776 SUB +0 40200 0 00226 00777 ADD +0 40000 0 01060 01000 STO +0 60100 0 01060
01001 CLA +0 50000 0 00107 01002 ADD +0 40000 0 00223 01003 SUB +0 40200 0 00101 01004 PAX +0 73400 1 00000
01005 LXA +0 53400 2 01060 01006 CLA +0 50000 2 00024 01007 STO +0 60100 1 00074
WHENEVER CM.E.3,A(I+6-E1)=A(I+4-E1) 081 LM00120
01010 CLA +0 50000 0 00077 01011 SUB +0 40200 0 00222 01012 TNZ -0 10000 0 01026 01013 CLA +0 50000 0 00107
01014 ADD +0 40000 0 00223 01015 SUB +0 40200 0 00101 01016 STO +0 60100 0 01060 01017 CLA +0 50000 0 00107
01020 ADD +0 40000 0 00225 01021 SUB +0 40200 0 00101 01022 PAX +0 73400 1 00000 01023 LXA +0 53400 2 01060
01024 CLA +0 50000 2 00074 01025 STO +0 60100 1 00074
WHENEVER A(I+4-E1).E.ASTRSK, MODG=1 082 LM00121
01026 CLA +0 50000 0 00107 01027 ADD +0 40000 0 00223 01030 SUB +0 40200 0 00101 01031 PAX +0 73400 1 00000
01032 CLA +0 50000 1 00074 01033 SUB +0 40200 0 00075 01034 TNZ -0 10000 0 01037 01035 CLA +0 50000 0 00220
01036 STO +0 60100 0 00215
EXECUTE EXEC. 083 LM00122
01037 TSX +0 07400 4 00014
TRANSFER TO SC1 084 LM00123
01040 TRA +0 02000 0 00045
END OF FUNCTION 085 LM00124
01041 TSX +0 07400 4 00004 01042 TXH +3 00000 0 00000 01043 SXD -0 63400 1 01042 01044 SXA +0 63400 4 01054
01045 CLA +0 50000 4 00001 01046 STA +0 62100 0 00653 01047 STA +0 62100 0 00662 01050 STA +0 62100 0 00675
01051 STA +0 62100 0 00714 01052 STA +0 62100 0 01006 01053 TRA +0 02000 2 00001 01054 AXT +0 77400 4 00000
01055 LXA +0 53400 2 01042 01056 LXD -0 53400 1 01042 01057 TRA +0 02000 4 00001
INTERNAL FUNCTION 086 LM00127
01061 TRA +0 02000 0 01246
ENTRY TO EXEC. 087 LM00128
01062 TRA +0 02000 0 01065 00014 TTR +0 02100 0 01063 01063 SXA +0 63400 2 01234 01064 TSX +0 07400 2 01234
TRANSFER TO FUN(CM) 088 LM00129
01065 LXA +0 53400 2 00077 01066 TRA +0 02000 2 00042
FUN(1) WHENEVER DELETE.(A(I)).E.0, TRANSFER TO FUNA 089 LM00131
01067 CLA +0 50000 0 00107 01070 SUB +0 40200 0 01071 01071 TXH +3 00000 0 00074 01072 STA +0 62100 0 01074
01073 TSX +0 07400 4 00003 01074 TXH +3 00000 0 00000 01075 SUB +0 40200 0 00217 01076 TNZ -0 10000 0 01100
01077 TRA +0 02000 0 00033
MES3(1)=A(I) 090 LM00132
01100 LXA +0 53400 2 00107 01101 CLA +0 50000 2 00074 01102 STO +0 60100 0 00145
MES3(2)=A(I+1) 091 LM00133
01103 CLA +0 50000 0 00107 01104 ADD +0 40000 0 00220 01105 PAX +0 73400 2 00000 01106 CLA +0 50000 2 00074
01107 STO +0 60100 0 00144
EXECUTE PRNTP.(MES3) 092 LM00134
01110 TSX +0 07400 4 00011 01111 TXH +3 00000 0 00146
FUNA FUNCTION RETURN 093 LM00135
01112 TRA +0 02000 0 01240
FUN(2) WHENEVER MODF .E. 1, TRANSFER TO FUNB 094 LM00137
01113 CLA +0 50000 0 00214 01114 SUB +0 40200 0 00220 01115 TNZ -0 10000 0 01117 01116 TRA +0 02000 0 00036
GETMOD.(A(I+2),FUNB1) 095 LM00138
01117 CLA +0 50000 0 00107 01120 ADD +0 40000 0 00221 01121 SUB +0 40200 0 01122 01122 TXH +3 00000 0 00074
01123 STA +0 62100 0 01125 01124 TSX +0 07400 4 00006 01125 TXH +3 00000 0 00000 01126 TXH +3 00000 0 00034
EXECUTE PRNTP.(MES7) 096 LM00139
01127 TSX +0 07400 4 00011 01130 TXH +3 00000 0 00176
TRANSFER TO ARGCK 097 LM00140
01131 TRA +0 02000 0 00017
FUNB1 MODF = 1 098 LM00141
01132 CLA +0 50000 0 00220 01133 STO +0 60100 0 00214
FUNB CHFILE. (A(I),A(I+1),A(I+2),-0,-0,FUNB2) 099 LM00142
01134 CLS +0 50200 0 00217 01135 STO +0 60100 0 01244 01136 CLS +0 50200 0 00217 01137 STO +0 60100 0 01245
01140 CLA +0 50000 0 00107 01141 ADD +0 40000 0 00221 01142 SUB +0 40200 0 01143 01143 TXH +3 00000 0 00074
01144 STA +0 62100 0 01161 01145 CLA +0 50000 0 00107 01146 ADD +0 40000 0 00220 01147 SUB +0 40200 0 01150
01150 TXH +3 00000 0 00074 01151 STA +0 62100 0 01160 01152 CLA +0 50000 0 00107 01153 SUB +0 40200 0 01154
01154 TXH +3 00000 0 00074 01155 STA +0 62100 0 01157 01156 TSX +0 07400 4 00000 01157 TXH +3 00000 0 00000
01160 TXH +3 00000 0 00000 01161 TXH +3 00000 0 00000 01162 TXH +3 00000 0 01245 01163 TXH +3 00000 0 01244
01164 TXH +3 00000 0 00035
TRANSFER TO FUNA 100 LM00143
01165 TRA +0 02000 0 00033
FUNB2 MES8(1)=A(I) 101 LM00144
01166 LXA +0 53400 2 00107 01167 CLA +0 50000 2 00074 01170 STO +0 60100 0 00204
MES8(2)=A(I+1) 102 LM00145
01171 CLA +0 50000 0 00107 01172 ADD +0 40000 0 00220 01173 PAX +0 73400 2 00000 01174 CLA +0 50000 2 00074
01175 STO +0 60100 0 00203
EXECUTE PRNTP.(MES8) 103 LM00146
01176 TSX +0 07400 4 00011 01177 TXH +3 00000 0 00205
FUNCTION RETURN 104 LM00147
01200 TRA +0 02000 0 01240
FUN(3) WHENEVER RENAME.(A(I),A(I+2)).E.0, TRANSFER TO FUNA 105 LM00149
01201 CLA +0 50000 0 00107 01202 ADD +0 40000 0 00221 01203 SUB +0 40200 0 01204 01204 TXH +3 00000 0 00074
01205 STA +0 62100 0 01214 01206 CLA +0 50000 0 00107 01207 SUB +0 40200 0 01210 01210 TXH +3 00000 0 00074
01211 STA +0 62100 0 01213 01212 TSX +0 07400 4 00012 01213 TXH +3 00000 0 00000 01214 TXH +3 00000 0 00000
01215 SUB +0 40200 0 00217 01216 TNZ -0 10000 0 01220 01217 TRA +0 02000 0 00033
MES9(1)=A(I) 106 LM00150
01220 LXA +0 53400 2 00107 01221 CLA +0 50000 2 00074 01222 STO +0 60100 0 00212
MES9(2)=A(I+1) 107 LM00151
01223 CLA +0 50000 0 00107 01224 ADD +0 40000 0 00220 01225 PAX +0 73400 2 00000 01226 CLA +0 50000 2 00074
01227 STO +0 60100 0 00211
EXECUTE PRNTP.(MES9) 108 LM00152
01230 TSX +0 07400 4 00011 01231 TXH +3 00000 0 00213
FUNCTION RETURN 109 LM00153
01232 TRA +0 02000 0 01240
END OF FUNCTION 110 LM00154
01233 TSX +0 07400 4 00004 01234 TXH +3 00000 0 00000 01235 SXD -0 63400 1 01234 01236 SXA +0 63400 4 01240
01237 TRA +0 02000 2 00001 01240 AXT +0 77400 4 00000 01241 LXA +0 53400 2 01234 01242 LXD -0 53400 1 01234
01243 TRA +0 02000 4 00001
VECTOR VALUES MES2=$ FILE$,0,0,$ NOT FOUND$,777777777777K 111 LM00157
00133 -3 77777 7 77777 00134 -0 66445 2 46060 00135 -2 04546 6 36026 00136 +0 00000 0 00000
00137 +0 00000 0 00000 00140 -2 02631 4 32560
VECTOR VALUES MES3=$ FILE$,0,0,$ NOT DELETED$,777777777777K 112 LM00158
00141 -3 77777 7 77777 00142 +2 54325 6 32524 00143 -2 04546 6 36024 00144 +0 00000 0 00000
00145 +0 00000 0 00000 00146 -2 02631 4 32560
VECTOR VALUES MES4=$ ERROR IN READING FILE DIRECTORY$, 113 LM00159
1777777777777K 113 LM00160
00147 -3 77777 7 77777 00150 -1 17060 6 06060 00151 +3 15125 2 36346 00152 +2 63143 2 56024
00153 +2 12431 4 52760 00154 -2 03145 6 05125 00155 -2 02551 5 14651
VECTOR VALUES MES5(2)=$ INCOMPLETE SET OF ARGUMENTS$, 114 LM00161
1777777777777K 114 LM00162
00156 -3 77777 7 77777 00157 +2 54563 6 26060 00160 -2 02151 2 76444 00161 -2 22563 6 04626
00162 -0 74325 6 32560 00163 -2 03145 2 34644
VECTOR VALUES MES6=$ FILE NAME ILLEGAL$,777777777777K 115 LM00163
00166 -3 77777 7 77777 00167 -0 34325 2 72143 00170 -0 52144 2 56031 00171 -2 02631 4 32560
VECTOR VALUES MES7=$ ILLEGAL MODE DEFINITION$,777777777777K 116 LM00164
00172 -3 77777 7 77777 00173 -0 53163 3 14645 00174 +2 56024 2 52631 00175 +2 14360 4 44624
00176 -2 03143 4 32527
VECTOR VALUES MES8=$ FILE$,0,0,$ MODE NOT CHANGED$, 117 LM00165
1777777777777K 117 LM00166
00177 -3 77777 7 77777 00200 +2 14527 2 52460 00201 -0 54663 6 02330 00202 -2 04446 2 42560
00203 +0 00000 0 00000 00204 +0 00000 0 00000 00205 -2 02631 4 32560
VECTOR VALUES MES9=$ FILE$,0,0,$ NOT RENAMED$,777777777777K 118 LM00167
00206 -3 77777 7 77777 00207 +2 54521 4 42524 00210 -2 04546 6 36051 00211 +0 00000 0 00000
00212 +0 00000 0 00000 00213 -2 02631 4 32560
VECTOR VALUES MES10=$ ILLEGAL USE OF ASTERISK$,777777777777K 119 LM00168
00111 -3 77777 7 77777 00112 -2 32551 3 16242 00113 -2 04626 6 02162 00114 +2 14360 6 46225
00115 -2 03143 4 32527
VECTOR VALUES MES11(2)=$ IGNORED$,777777777777K 120 LM00169
00116 -3 77777 7 77777 00117 +2 52460 6 06060 00120 -2 03127 4 54651
VECTOR VALUES MES12=$ NO FILE WITH $,0,$ NAME $,0,$ FOUND$, 121 LM00170
1777777777777K 121 LM00171
00123 -3 77777 7 77777 00124 -2 02646 6 44524 00125 +0 00000 0 00000 00126 -2 04521 4 42560
00127 +0 00000 0 00000 00130 +3 06060 6 06060 00131 -0 32560 6 63163 00132 -2 04546 6 02631
VECTOR VALUES ASTRSK=$ *$ 122 LM00173
00075 -2 06060 6 06054
VECTOR VALUES FENCE=777777777777K 123 LM00174
00103 -3 77777 7 77777
NORMAL MODE IS INTEGER 124 LM00175
DIMENSION A(19),FV(1) 125 LM00176
END OF PROGRAM 126 LM00177
01246 TSX +0 07400 4 00004
1 PAGE 1
FILE NAME -- GETMD FAP
ROUTINE TO CHANGE NMEMONICS FOR MODE TO
OCTAL EQUIVALENTS.
G. SCHROEDER JUNE,1965
00002 ENTRY GETMOD
SAVXR MACRO
SXA X1,1
SXA X2,2
SXA X4,4
SAVXR END
RSTXR MACRO
LXA X1,1
LXA X2,2
LXA X4,4
RSTXR END
LINKAGE DIRECTOR
00000 000000000000
00001 272563444624
00002 GETMOD SAVXR
00005 0774 00 2 00006 AXT 6,2
00006 0600 00 0 00040 STZ MODE
00007 0560 60 4 00001 LDQ* 1,4
00010 -0754 00 0 00000 NEXT ZAC
00011 -0763 00 0 00006 LGL 6
00012 0100 00 0 00031 TZE DECR
00013 -0340 00 0 00041 LAS BLANK
00014 0020 00 0 00016 TRA *+2
00015 0020 00 0 00031 TRA DECR
00016 0774 00 1 00005 AXT 5,1
00017 -0340 00 1 00054 CCR LAS TABLE+5,1
00020 0020 00 0 00022 TRA *+2
00021 0020 00 0 00027 TRA GCHAR
00022 2 00001 1 00017 TIX CCR,1,1
00023 RSTXR
00026 0020 00 4 00003 TRA 3,4
00027 -0500 00 1 00047 GCHAR CAL CHAR+5,1
00030 -0602 00 0 00040 ORS MODE
00031 2 00001 2 00010 DECR TIX NEXT,2,1
00032 RSTXR
00035 0500 00 0 00040 CLA MODE
00036 0601 60 4 00001 STO* 1,4
00037 0020 60 4 00002 TRA* 2,4
00040 0 00000 0 00000 MODE PZE 0
00041 +000000000060 BLANK OCT 60
00042 +000000000001 CHAR OCT 1
00043 +000000000004 OCT 4
00044 +000000000010 OCT 10
00045 +000000000020 OCT 20
00046 +000000000100 OCT 100
00047 000000000063 TABLE BCI 1,00000T TEMPORARY
00050 000000000051 BCI 1,00000R READ-ONLY
00051 000000000066 BCI 1,00000W WRITE-ONLY
00052 000000000065 BCI 1,00000V PRIVATE
00053 000000000047 BCI 1,00000P PROTECTED
1 PAGE 2
FILE NAME -- GETMD FAP
00054 0 00000 0 00000 X1 PZE 0
00055 0 00000 0 00000 X2 PZE 0
00056 0 00000 0 00000 X4 PZE 0
END
1 PAGE 1
POST PROCESSOR ASSEMBLY DATA
57 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
54 X1 2, 23, 32
55 X2 3, 24, 33
56 X4 4, 25, 34
17 CCR 22
42 CHAR 27
31 DECR 12, 15
40 MODE 6, 30, 35
10 NEXT 31
41 BLANK 13
27 GCHAR 21
47 TABLE 17
2 GETMOD 0
0 NO ERROR IN ABOVE ASSEMBLY.
COMFIL BCD 09/18/68 2206.0 403 00000
1 PAGE 1
FILE NAME -- COMFL FAP
COMFIL --- SWITCH USER TO SPECIFIED COMMON FILE
00000 0074 00 4 00013 TSX GETCOM,4 GET PARAMETER
00001 0 00000 0 00001 PZE 1 FIRST ARGUMENT
00002 -0320 00 0 00017 ANA =O77 REMOVE ALL BUT FIRST CHARACTER
00003 0602 00 0 00016 SLW TEMP ..
00004 0402 00 0 00017 SUB =O77 CHECK FOR FENCE
00005 0100 00 0 00007 TZE *+2 FENCE = 0
00006 -0500 00 0 00016 CAL TEMP ..
00007 0074 00 4 00014 TSX COMFIL,4 SWITCH DIRECTORY
00010 0000 00 0 00010 HTR * (1,4) RETURN NOT USED CURRENTLY
00011 0074 00 4 00015 TSX CHNCOM,4 END OF COMMAND
00012 0 00000 0 00000 PZE ..
00013 0101 00 0 00022 GETCOM TIA =HGETCOM ..
00014 0101 00 0 00021 COMFIL TIA =HCOMFIL ..
00015 0101 00 0 00020 CHNCOM TIA =HCHNCOM ..
00016 0 00000 0 00000 TEMP PZE ..
END
LITERALS
00017 000000000077
00020 233045234644
00021 234644263143
00022 272563234644
1 PAGE 1
POST PROCESSOR ASSEMBLY DATA
23 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
16 TEMP 3, 6
15 CHNCOM 11
14 COMFIL 7
13 GETCOM 0
0 NO ERROR IN ABOVE ASSEMBLY.
DELFIB BCD 10/04/70 1548.8 3996 00000
1 MAD PROGRAM LISTING ... ... ... FILE DELFIB MAD 05/04/69 1507.9
-
DELFIB DELETE A FIB JOB. LM00001
LM00002
3/9/66 - NOEL I. MORRIS LM00003
LM00004
LM00005
NORMAL MODE IS INTEGER *001 LM00006
DIMENSION CARD (13), BUFF1 (431), BUFF2 (431) *002 LM00007
LM00008
PRESET DECLARATIONS. LM00009
LM00010
VECTOR VALUES FIBJOB = $FIBJOB$ *003 LM00011
VECTOR VALUES FILE = $ FILE$ *004 LM00012
VECTOR VALUES C0056 = $ C0056$ *005 LM00013
VECTOR VALUES FIBMON = $ 99995$ *006 LM00014
VECTOR VALUES RW = $RW$ *007 LM00015
VECTOR VALUES RELLOC = 1 *008 LM00016
VECTOR VALUES FENCE = 777777777777K *009 LM00017
VECTOR VALUES MZE = -0 *010 LM00018
LM00019
EQUIVALENCE (PROBN, NOJOB (5)), (PROGN, NOJOB (6)), *011 LM00020
1 (JOBNAM, NOJOB (1)) *011 LM00021
LM00022
LM00023
PICK UP JOB NAME AND SET UP. LM00024
LM00025
JOBNAM = COMARG. (1) *012 LM00026
WHENEVER JOBNAM .E. FENCE *013 LM00027
PRNTP. (USAGE) *014 LM00028
VECTOR VALUES USAGE = $ USAGE IS 'DELFIB JOBNAM' .$, *015 LM00029
1 777777777777K *015 LM00030
TRANSFER TO CHN *016 LM00031
END OF CONDITIONAL *017 LM00032
LM00033
WHOAMI. (CARD (1) ... 2) *018 LM00034
PROBN = CARD (1) *019 LM00035
PROGN = CARD *020 LM00036
LM00037
FERRTN. (ERROR) *021 LM00038
LM00039
LM00040
LINK TO FIBJOB FILE AND SEARCH FOR USER'S JOB. LM00041
LM00042
LINK. (FIBJOB, FILE, C0056, FIBMON, MZE, MZE, 120K, ERR1) *022 LM00043
BFOPEN. (RW, FIBJOB, FILE, BUFF1 (431), MZE, MZE, ERR1) *023 LM00044
UNLINK. (FIBJOB, FILE) *024 LM00045
LM00046
READ BFREAD. (FIBJOB, FILE, CARD (13) ... 14, NOTFND, CT, ERROR) *025 LM00047
RELLOC = RELLOC + 14 *026 LM00048
LM00049
WHENEVER CARD (13) .NE. PROBN .OR. *027 LM00050
1 CARD (11) .NE. PROGN .OR. *027 LM00051
2 CARD (10) .NE. JOBNAM, *027 LM00052
3 TRANSFER TO READ *027 LM00053
LM00054
LM00055
CARD FOUND. REWRITE FILE DELETING IT. LM00056
LM00057
BUFFER. (FIBJOB, FILE, BUFF2 (431) ... 432) *028 LM00058
LM00059
RWLOOP BFREAD. (FIBJOB, FILE, CARD (13) ... 14, RWFIN, CT, ERROR) *029 LM00060
WRWAIT. (FIBJOB, FILE, RELLOC - 14, CARD (13) ... 14) *030 LM00061
LM00062
RELLOC = RELLOC + 14 *031 LM00063
TRANSFER TO RWLOOP *032 LM00064
LM00065
RWFIN TRFILE. (FIBJOB, FILE, RELLOC - 14, TRERR) *033 LM00066
LM00067
TRERR CONTINUE *034 LM00068
CLOS BFCLOS. (FIBJOB, FILE, ERROR) *035 LM00069
CHN CHNCOM. (0) *036 LM00070
LM00071
LM00072
FILE SYSTEM ERROR ENCOUNTERED. LM00073
LM00074
ERR1 UNLINK. (FIBJOB, FILE) *037 LM00075
ERROR DSKER. *038 LM00076
LM00077
LM00078
FIB JOB NOT FOUND. LM00079
LM00080
NOTFND PRNTP. (NOJOB) *039 LM00081
VECTOR VALUES NOJOB = $ JOB 000000 NOT FOUND FOR 000000000000.$, *040 LM00082
1 777777777777K *040 LM00083
TRANSFER TO CLOS *041 LM00084
LM00085
LM00086
LM00087
END OF PROGRAM *042 LM00088
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 02021 TRANSFER VECTOR LENGTH 00020 PROGRAM BEGINS 01647
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
BUFF1 00722 A 1 CT 01622 1 FIBMON 01625 A 1 NOTFND 00036 4 RWFIN 00040 4
BUFF2 01602 A 1 ERR1 00034 4 FILE 01626 A 1 PROBN 00024 1 RWLOOP 00041 4
C0056 01603 A 1 ERROR 00035 4 JOBNAM 00030 1 PROGN 00023 1 RW 01631 A 1
CARD 01621 A 1 FENCE 01623 A 1 MZE 01627 A 1 READ 00037 4 TRERR 00042 4
CHN 00032 4 FIBJOB 01624 A 1 NOJOB 00031 A 1 RELLOC 01630 A 1 USAGE 01637 A 1
CLOS 00033 4
0FUNCTION DICTIONARY
BFCLOS 00000 1 BFOPEN 00001 1 BFREAD 00002 1 BUFFER 00003 1 CHNCOM 00004 1
COMARG 00005 1 DSKER 00006 1 EXIT 00007 1 FERRTN 00010 1 .SETUP 00011 1
LINK 00012 1 PRNTP 00013 1 TRFILE 00014 1 UNLINK 00015 1 WHOAMI 00016 1
WRWAIT 00017 1
0ABSOLUTE CONSTANTS
01640 +000000000000 01645 +000000000660 01643 +000000000016 01644 +000000000120 01642 +000000000002
01641 +000000000001 01646 +233000000000
0STATEMENT DICTIONARY
00032 TXL -302006002004 00033 TXL -302004002000 00034 TXL -302011002006 00035 TXL -302012002011
00036 TXL -302014002012 00037 TXL -301724001715 00040 TXL -302000001770 00041 TXL -301754001745
00042 TXL -302000002000
0PROGRAM
N'R 001 LM00006
D'N CARD (13), BUFF1 (431), BUFF2 (431) 002 LM00007
V'S FIBJOB = $FIBJOB$ 003 LM00011
01647 TSX +0 07400 4 00011 01624 +2 63122 4 14622
V'S FILE = $ FILE$ 004 LM00012
01626 -2 06026 3 14325
V'S C0056 = $ C0056$ 005 LM00013
01603 -2 02300 0 00506
V'S FIBMON = $ 99995$ 006 LM00014
01625 -2 01111 1 11105
V'S RW = $RW$ 007 LM00015
01631 -1 16660 6 06060
V'S RELLOC = 1 008 LM00016
01630 +0 00000 0 00001
V'S FENCE = 777777777777K 009 LM00017
01623 -3 77777 7 77777
V'S MZE = -0 010 LM00018
01627 -0 00000 0 00000
E'E (PROBN, NOJOB (5)), (PROGN, NOJOB (6)), 011 LM00020
1 (JOBNAM, NOJOB (1)) 011 LM00021
JOBNAM = COMARG. (1) 012 LM00026
01650 TSX +0 07400 4 00005 01651 TXH +3 00000 0 01641 01652 STO +0 60100 0 00030
W'R JOBNAM .E. FENCE 013 LM00027
01653 CLA +0 50000 0 00030 01654 SUB +0 40200 0 01623 01655 TNZ -0 10000 0 01661
PRNTP. (USAGE) 014 LM00028
01656 TSX +0 07400 4 00013 01657 TXH +3 00000 0 01637
V'S USAGE = $ USAGE IS 'DELFIB JOBNAM' .$, 015 LM00029
1 777777777777K 015 LM00030
01632 -3 77777 7 77777 01633 -0 41460 3 36060 01634 -2 04146 2 24521 01635 +2 54326 3 12260
01636 -2 03162 6 01424 01637 -2 06462 2 12725
T'O CHN 016 LM00031
01660 TRA +0 02000 0 00032
E'L 017 LM00032
WHOAMI. (CARD (1) ... 2) 018 LM00034
01661 TSX +0 07400 4 00016 01662 TIX +2 01642 0 01620
PROBN = CARD (1) 019 LM00035
01663 CLA +0 50000 0 01620 01664 STO +0 60100 0 00024
PROGN = CARD 020 LM00036
01665 CLA +0 50000 0 01621 01666 STO +0 60100 0 00023
FERRTN. (ERROR) 021 LM00038
01667 TSX +0 07400 4 00010 01670 TXH +3 00000 0 00035
LINK. (FIBJOB, FILE, C0056, FIBMON, MZE, MZE, 120K, ERR1) 022 LM00043
01671 TSX +0 07400 4 00012 01672 TXH +3 00000 0 01624 01673 TXH +3 00000 0 01626 01674 TXH +3 00000 0 01603
01675 TXH +3 00000 0 01625 01676 TXH +3 00000 0 01627 01677 TXH +3 00000 0 01627 01700 TXH +3 00000 0 01644
01701 TXH +3 00000 0 00034
BFOPEN. (RW, FIBJOB, FILE, BUFF1 (431), MZE, MZE, ERR1) 023 LM00044
01702 TSX +0 07400 4 00001 01703 TXH +3 00000 0 01631 01704 TXH +3 00000 0 01624 01705 TXH +3 00000 0 01626
01706 TXH +3 00000 0 00043 01707 TXH +3 00000 0 01627 01710 TXH +3 00000 0 01627 01711 TXH +3 00000 0 00034
UNLINK. (FIBJOB, FILE) 024 LM00045
01712 TSX +0 07400 4 00015 01713 TXH +3 00000 0 01624 01714 TXH +3 00000 0 01626
READ BFREAD. (FIBJOB, FILE, CARD (13) ... 14, NOTFND, CT, ERROR) 025 LM00047
01715 TSX +0 07400 4 00002 01716 TXH +3 00000 0 01624 01717 TXH +3 00000 0 01626 01720 TIX +2 01643 0 01604
01721 TXH +3 00000 0 00036 01722 TXH +3 00000 0 01622 01723 TXH +3 00000 0 00035
RELLOC = RELLOC + 14 026 LM00048
01724 CLA +0 50000 0 01630 01725 ADD +0 40000 0 01643 01726 STO +0 60100 0 01630
W'R CARD (13) .NE. PROBN .OR. 027 LM00050
1 CARD (11) .NE. PROGN .OR. 027 LM00051
2 CARD (10) .NE. JOBNAM, 027 LM00052
3 T'O READ 027 LM00053
01727 CLA +0 50000 0 01607 01730 SUB +0 40200 0 00030 01731 TNZ -0 10000 0 01740 01732 CLA +0 50000 0 01606
01733 SUB +0 40200 0 00023 01734 TNZ -0 10000 0 01740 01735 CLA +0 50000 0 01604 01736 SUB +0 40200 0 00024
01737 TZE +0 10000 0 01741 01740 TRA +0 02000 0 00037
BUFFER. (FIBJOB, FILE, BUFF2 (431) ... 432) 028 LM00058
01741 TSX +0 07400 4 00003 01742 TXH +3 00000 0 01624 01743 TXH +3 00000 0 01626 01744 TIX +2 01645 0 00723
RWLOOP BFREAD. (FIBJOB, FILE, CARD (13) ... 14, RWFIN, CT, ERROR) 029 LM00060
01745 TSX +0 07400 4 00002 01746 TXH +3 00000 0 01624 01747 TXH +3 00000 0 01626 01750 TIX +2 01643 0 01604
01751 TXH +3 00000 0 00040 01752 TXH +3 00000 0 01622 01753 TXH +3 00000 0 00035
WRWAIT. (FIBJOB, FILE, RELLOC - 14, CARD (13) ... 14) 030 LM00061
01754 CLA +0 50000 0 01630 01755 SUB +0 40200 0 01643 01756 STO +0 60100 0 02016 01757 TSX +0 07400 4 00017
01760 TXH +3 00000 0 01624 01761 TXH +3 00000 0 01626 01762 TXH +3 00000 0 02016 01763 TIX +2 01643 0 01604
RELLOC = RELLOC + 14 031 LM00063
01764 CLA +0 50000 0 01630 01765 ADD +0 40000 0 01643 01766 STO +0 60100 0 01630
T'O RWLOOP 032 LM00064
01767 TRA +0 02000 0 00041
RWFIN TRFILE. (FIBJOB, FILE, RELLOC - 14, TRERR) 033 LM00066
01770 CLA +0 50000 0 01630 01771 SUB +0 40200 0 01643 01772 STO +0 60100 0 02016 01773 TSX +0 07400 4 00014
01774 TXH +3 00000 0 01624 01775 TXH +3 00000 0 01626 01776 TXH +3 00000 0 02016 01777 TXH +3 00000 0 00042
TRERR C'E 034 LM00068
CLOS BFCLOS. (FIBJOB, FILE, ERROR) 035 LM00069
02000 TSX +0 07400 4 00000 02001 TXH +3 00000 0 01624 02002 TXH +3 00000 0 01626 02003 TXH +3 00000 0 00035
CHN CHNCOM. (0) 036 LM00070
02004 TSX +0 07400 4 00004 02005 TXH +3 00000 0 01640
ERR1 UNLINK. (FIBJOB, FILE) 037 LM00075
02006 TSX +0 07400 4 00015 02007 TXH +3 00000 0 01624 02010 TXH +3 00000 0 01626
ERROR DSKER. 038 LM00076
02011 TSX +0 07400 4 00006
NOTFND PRNTP. (NOJOB) 039 LM00081
02012 TSX +0 07400 4 00013 02013 TXH +3 00000 0 00031
V'S NOJOB = $ JOB 000000 NOT FOUND FOR 000000000000.$, 040 LM00082
1 777777777777K 040 LM00083
00021 -3 77777 7 77777 00022 +3 36060 6 06060 00023 +0 00000 0 00000 00024 +0 00000 0 00000
00025 +2 64651 6 06060 00026 +2 64664 4 52460 00027 -2 06045 4 66360 00030 +0 00000 0 00000
00031 -2 04146 2 26060
T'O CLOS 041 LM00084
02014 TRA +0 02000 0 00033
E'M 042 LM00088
02015 TSX +0 07400 4 00007
DIAL BCD 10/04/70 1548.8 3056 00000
1 M1416 3845 PETER R. BOS .... DIAL COMMAND FOR ATTACHED CONSOLES .... 01/12/70 1033.1 PAGE 1
PCC ON
NOLNK
00007 ENTRY 0
00007 ENTRY DIAL
00007 ENTRY TEST00
LBL DIAL
PCC OFF
EXTERN DEAD,GETA,GETCOM,GTPROB,ISIN,SCHEDL,WRFLX
UNLIST
00007 TEST00 SYN * ENTRY FOR DEBUGGING PROG.
00007 0760 00 0 00016 DIAL LMTM 7-TAG MODE FOR XEC.A
00010 CALL GETCOM(1) GET PROBLEM NO. OF ADDRESSEE
00012 0602 00 0 00066 SLW PROB ..
00013 0322 00 0 00070 ERA FENCE. CHECK IF GIVEN
00014 0100 00 0 00063 TZE DIALER ERROR IF NO PROBLEM NUMBER
00015 CALL GTPROB(PROB,DIALER) REFORMAT PROBLEM NO.
00020 CALL GETCOM(2) PROGRAMMER NO.
00022 0602 00 0 00067 SLW PROG ..
00023 0322 00 0 00070 ERA FENCE. INSURE PROG. SPECIFIED
00024 0100 00 0 00063 TZE DIALER .. ERROR IF NOT
00025 CALL ISIN(PROB,PROG) SEE IF DESIRED USER LOGGED IN
00030 0737 00 2 00000 PAC ,2 .. USER NO. OR 0
00031 -3 00000 2 00050 TXL NOTIN,2,0 SKIP TO ERROR SECTION IF NOT LOGGED IN
00032 NZTBIT USROPT,2,,DIALBT IS THIS USER ACCEPTING ADOPTEES
00035 0020 00 0 00056 TRA NODIAL .. NO, ERROR
00036 XEC.A LAC(USER,1) USER NO. OF DIALER
00040 0636 00 1 00071 SCA USR,1 .. SAVE
00041 0756 00 2 00000 PCA ,2 SET UP ADOPT WORD
00042 XEC.A SLW(ADOPT,1) .. PUT AWAY
00044 SCHEDL =2,USR,=0 TELL SCHEDL USER NOW DEAD
00050 0500 00 0 00066 NOTIN CLA PROB HERE IF USER NOT LOGGED IN
00051 0560 00 0 00067 LDQ PROG ..
00052 -0603 00 0 00072 DST NOTCM PROB-PROG TO COMMENT
00053 TYPE (/ T0000 0000 IS NOT LOGGED IN/),NOTCM
00055 0020 00 0 00063 TRA DIALER SKIP
00056 0500 00 0 00066 NODIAL CLA PROB HERE IF USER NOT ACCEPTING ADOPTEES
00057 0560 00 0 00067 LDQ PROG ..
00060 -0603 00 0 00077 DST NDLCM ..
00061 TYPE (/ T0000 0000 NOT DIALABLE/),NDLCM
00063 DIALER TYPE (/ DIAL COMMAND INCORRECT/)
00065 0074 00 4 00000 TSX DEAD,4 .. AND DIE
00066 0 00000 0 00000 PROB PZE PROB-PROG OF DIALEE
00067 0 00000 0 00000 PROG PZE ..
00070 -377777777777 FENCE. OCT 777777777777
00071 0 00000 0 00000 USR PZE ..
1 M1416 3845 PETER R. BOS .... DIAL COMMAND FOR ATTACHED CONSOLES .... 01/12/70 1033.1 PAGE 2
00072 RMT *
00072 606300000000 NOTCM BCI / T0000 0000 IS NOT LOGGED IN/ .001
00077 606300000000 NDLCM BCI / T0000 0000 NOT DIALABLE/ .001
00104 602431214360 ..249 BCI / DIAL COMMAND INCORRECT/ .001
END
LITERALS
00110 000000000000
00111 000000000002
1 M1416 3845 PETER R. BOS .... DIAL COMMAND FOR ATTACHED CONSOLES .... 01/12/70 1033.1 PAGE 1
POST PROCESSOR ASSEMBLY DATA
112 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
1 A
2 B
72127 C 7
50 N
4 P
74653 LA
74652 LB
74654 M0
72175 MQ
72177 OV
74672 PB
74671 Q0
74670 Q1
74667 Q2
74666 Q3
74665 Q4
74664 Q5
74663 Q6
74662 Q7
74661 Q8
74660 Q9
72176 SI
72174 SQ
72162 ILC
75402 IOD
72171 IR1
72170 IR2
72167 IR3
72166 IR4
72165 IR5
72164 IR6
72163 IR7
1 .F.
0 .I.
72173 LAC
74657 Q10
74656 Q11
74655 Q12
0 TMP
71 USR 40, 46
0 BASE
74501 DATE
0 DEAD 65
7 DIAL 0
72203 DVCK
72201 FLMD
1 GETA 32, 36, 42
72202 IOCK
4 ISIN 25
1 .ATR
4000 .CLC
1 M1416 3845 PETER R. BOS .... DIAL COMMAND FOR ATTACHED CONSOLES .... 01/12/70 1033.1 PAGE 2
POST PROCESSOR ASSEMBLY DATA
10 .CPY
2 .DSK
100 .LGN
200 .LGT
400 .LOG
20 .MEM
2000 .SAV
10000 .SUB
4 .SYS
1000 .UFL
40 .USR
72200 MTMD
66 PROB 12, 16, 26, 50, 56
67 PROG 22, 27, 51, 57
73315 Q1U1
72627 Q1U2
73315 Q3U1
72556 Q3U2
74602 QLEN
74557 QMAX
74556 QMIN
72204 SLTS
74616 SWAP
77137 TAU1
77066 TAU2
77015 TAU3
76744 TAU4
76673 TAU5
74502 USER 37
74516 (MQ)
74520 (OV)
74517 (SI)
74515 (SQ)
75065 ADOPT 43
74651 AMASK
72205 ASTAT
75207 AWAKE
72206 BSTAT
74474 COMSW
73442 DBUF1
20 D.COM
4 D.DIR
1 D.DSK
2 D.OPT
40 D.SAV
10 D.TSF
74647 DMASK
74473 DSKSW
74443 DUSER
74526 ENBSW
77777 ENBWD
74641 FENCE
72434 FSBCT
72435 FSBLK
76551 ITIME
1 M1416 3845 PETER R. BOS .... DIAL COMMAND FOR ATTACHED CONSOLES .... 01/12/70 1033.1 PAGE 3
POST PROCESSOR ASSEMBLY DATA
77461 ..001
75717 ..028
74357 ..180
72216 ..211
72215 ..212
72207 ..218
5 ..247 54, 77
5 ..248 62, 104
104 ..249 64, 110
4 ..250 64, 110
24 LCBUF
77604 LEVEL
20 L.COM
40 L.CPU
4 L.DIR
1 L.DSK
100 L.MEM
2 L.OPT
10 L.TSF
74644 LMASK
12 MAXLV
77 NDLCM 60, 62, 104
72 NOTCM 52, 54, 77
50 NOTIN 31
74643 NULLS
74322 PBUFF
74646 PMASK
72157 PRIND
76500 PROBN
76427 PROGN
72172 PTIRS
0 Q.CUR
1 Q.MAX
2 Q.MIN
11 Q.TBL
74555 QKILL
77254 QLIST
3 QUITL
76041 RCODE
72160 RLIND
74645 RMASK
74636 SAVED
74604 SHIFT
74533 STNBY
74475 SWPSW
74650 TMASK
76305 UFDNM
2 UFLBT
76356 UNAME
76622 UTIME
6 WRFLX 53, 61, 63
74503 (ILC)
74513 (IR0)
74512 (IR1)
74511 (IR2)
1 M1416 3845 PETER R. BOS .... DIAL COMMAND FOR ATTACHED CONSOLES .... 01/12/70 1033.1 PAGE 4
POST PROCESSOR ASSEMBLY DATA
74510 (IR3)
74507 (IR4)
74506 (IR5)
74505 (IR6)
74504 (IR7)
74514 (LAC)
12 ACTFIL
60 AFS1LN
366 AFS2LN
32 AFSCON
26 AFSENL
73362 AFSTU1
72727 AFSTU2
74442 ATLOST
72212 ATRILC
72231 AUTHOR
74454 AUTOND
74603 AVQLEN
74447 BASEAD
74622 BEGTIM
74445 BKGATT
74444 BKGKEY
74470 BKGPCT
74471 BKGTIM
74634 BKRPRV
74642 BLANKS
72230 BLIPCH
72227 BLIPDT
72226 BLIPTM
72221 BREAKL
72222 BRKILC
72213 BTRILC
5 CDEPTH
72432 CHNPTR
100 CLKBIT
74453 CLKTIM
24 CLNGTH
74640 CMFL00
74415 COMBUF
72241 COMCTR
72240 COMFSW
75575 COMMND
74460 COMPCT
74441 COMPTR
77462 COMRLC
74461 COMTIM
74631 CTSSID
74630 CURUSR
74500 DATEYR
74446 DEMKEY
200 DIALBT 34
63 DIALER 14, 17, 24, 55
74457 DISKSW
74464 DSKPCT
74465 DSKTIM
1 M1416 3845 PETER R. BOS .... DIAL COMMAND FOR ATTACHED CONSOLES .... 01/12/70 1033.1 PAGE 5
POST PROCESSOR ASSEMBLY DATA
74545 DUMMY0
74544 DUMMY1
74543 DUMMY2
74542 DUMMY3
74541 DUMMY4
74540 DUMMY5
74537 DUMMY6
74536 DUMMY7
74535 DUMMY8
74534 DUMMY9
72555 EMCOND
74612 EMPLVL
10 ENBBIT
74527 ESTTIM
70 FENCE. 13, 23
74530 FIBPTR
74531 FIBRUN
74635 FORCOD
10 FSBENL
120 FSBLKL
1 FULBIT
74611 FULLEN
74613 FULLVL
2 GETCOM 10, 20
10 GPHBIT
43 GROUPS
76112 GRPNO.
77210 GRPTBL
3 GTPROB 15
74605 HANGUP
2 HUNGBT
74606 INACTV
20 INHBIT
20 INPBIT
2000 INTBIT
74554 KILLDT
74551 KILLSW
74553 KILLTM
77655 LENGTH
74607 LEVINC
74617 LEVTIM
10000 LOGTBT
72127 LOWCOM
72156 MACOND
74615 MAXLVL
74621 MAXTIM
72161 MEMBND
4 MESGBT
74614 MINLVL
74571 MXUSRS
1000 NBACBT
4 NBKBIT
2 NCVBIT
10000 NDEMBT
77777 NEWTOP
1 M1416 3845 PETER R. BOS .... DIAL COMMAND FOR ATTACHED CONSOLES .... 01/12/70 1033.1 PAGE 6
POST PROCESSOR ASSEMBLY DATA
74626 NEWUSR
4000 NFIBBT
2000 NFORBT
400 NINTBT
1000 NKILBT
56 NODIAL 35
1 NOTIME
20000 NPRCBT
200 NQTBIT
700000 NTIMCD
74532 NUSERS
660 NWDSPT
74451 NWORDS
75014 OKPROB
74743 OKPROG
72214 OLDILC
77461 OLDTOP
74627 OLDUSR
74620 PAYTIM
74625 PAYUSR
74462 PRMPCT
74463 PRMTIM
45 Q1U1LN
100 Q1U2LN
0 Q3U1LN
51 Q3U2LN
4 Q.DNDT
6 Q.DNTM
10 Q.DNVR
3 Q.UPDT
5 Q.UPTM
7 Q.UPVR
74550 QLOSER
74610 QNTWAT
74560 QUANTM
100 R636BT
2 RCALBT
74452 RCLKDT
1 RCOMBT
200 RDSKBT
40 RKLDBT
2000 ROPRBT
20 RPATBT
4 RPROBT
10 RPRVBT
4 RSTFBT
1000 RSYSBT
400 RTSSBT
100 SAVEBT
72225 SAVEM1
4 SB.CHN
1 SB.CMD
10 SB.ERR
2 SB.TSX
5 SCHEDL 44
1 M1416 3845 PETER R. BOS .... DIAL COMMAND FOR ATTACHED CONSOLES .... 01/12/70 1033.1 PAGE 7
POST PROCESSOR ASSEMBLY DATA
77726 STATUS
74450 STOPSW
77411 STRTIM
72266 SUBCOM
76234 SUBNAM
76163 SUBSWS
74547 SWPMAX
74546 SWPMIN
74466 SWPPCT
74467 SWPTIM
74455 SWPWAT
40 SYSBIT
74623 SYSDAT
74477 SYSNAM
74624 SYSTIM
7 TEST00 0, 7
75136 TIMINC
77533 TIMLEV
74476 TIMNOW
72210 TINHIB
74472 TOTTIM
77 TPWRSW
74633 TSRCOD
74637 TSSDC.
72130 TSSFID
72234 TSSFIL
72233 TSSFSW
24 TSSMAX
72132 TSSTBL
75453 UARRAY
1 UBACBT
1000 UCBFBT
75260 UCHARG
200 UCHNBT
75331 UCLOCK
400 UCMLBT
72242 UCOMBF
100 UCOMBT
74414 UCOMND
74413 UCOMSW
10 UDEMBT
72211 UENBWD
72223 UFERTN
4 UFIBBT
1 UFLBIT
2 UFORBT
72224 UILOCK
75646 UNITID
20 UPRCBT
72232 URCODE
10 USRBIT
72236 USRFIL
75770 USROPT 33
74456 USRWAT
75524 USWICH
1 M1416 3845 PETER R. BOS .... DIAL COMMAND FOR ATTACHED CONSOLES .... 01/12/70 1033.1 PAGE 8
POST PROCESSOR ASSEMBLY DATA
72433 WATCOM
77462 WATTIM
16 WDSLIN
77340 WRKTIM
2000 XEQBIT
74524 (DVCK)
74522 (FLMD)
74523 (IOCK)
74521 (MTMD)
74525 (SLTS)
0 NO ERROR IN ABOVE ASSEMBLY.
ED BCD 09/18/68 2044.6 32730 00000
BEGIN 00010___
COMMENT .. CONTEXT EDITOR FOR CARD IMAGE PROGRAMS .. $, 00020___
INTEGER BLANK,TAB,STAR,FENCE,TNAME,ENAME,TCLASS,OLDNAM,CLASS,L 00030 **** LINE TRUNCATED
,LINENO,LINCR,HILINE,COUNT,EDCT,NEWNAM,K,I,N,Q,J,PRC,OP,PRCT, 00040___
STR1,TLP,STR2,ESTR,XXWORD,PRINAM,TLINI,SAVCT,BLANKS,STR2M1, 00050___
STR2P1,STRDIF,STR1P1,EDWD,INPWD $, 00060___
INTEGER PROCEDURE LS,NUM,GET,COMARG $, 00070___
INTEGER ARRAY FAP,MAD,MADTRN,ALGOL,GPSS,XXXCWD,CCT $, 00080___
INTEGER ARRAY LINE(85),EDLIN,TLIN,WHOAM(2) $, 00090___
BOOLEAN OK,MODIFY,GLOBAL,VERMOD,NDCHAR,TRNCSW $, 00100___
BOOLEAN PROCEDURE UNTAB $, 00110___
PROCEDURE RED,DELETE,WRFLEX,SETTAB,DASIGN,DSEEK,RDTYPE,BLACK, 00120___
PRCARD,WRLINE,MOVETO,VERPRN,RDCARD,CLOSE,SETCOL,SETBCD,DFILE, 00130___
RENAME,CHFILE,UPDATE,CHNCOM,FLIP,RESET,WRCARD,WHOAMI $, 00140___
TNAME .BCD. '(INPT1' $, 00150___
ENAME .BCD. '(INPUT' $, 00160___
BLANKS .BCD. ' ' $, 00170___
PRESET 00180___
BEGIN 00190___
FENCE = 777777777777C $, 00200___
BLANK = 60C $, 00210___
TAB = 72C $, 00220___
STAR = 545757575757C $, 00230___
END $, 00240___
COMMENT .......... TAB SETTINGS .......... $, 00250___
PRESET 00260___
BEGIN 00270___
FAP = 3,8,16,30 $, 00280___
MAD = 12,12,17,22,27,32,37,42,47,52,57,62,67 $, 00290___
MADTRN = 12,7,12,17,22,27,32,37,42,47,52,57,62 $, 00300___
ALGOL = 12,11,16,21,26,31,36,41,46,51,56,61,66 $, 00310___
GPSS = 11,2,7,19,25,31,37,43,49,55,61,67 $, 00320___
END $, 00330___
PRESET 00340___
BEGIN 00350___
LENGTH = 0 $, 00360___
LINENO = 0 $, 00370___
HILINE = 0 $, 00380___
LINCR = 10 $, 00390___
VERMOD = 0B $, 00400___
TRNCSW = 1B $, 00410___
OK = 0B $, 00420___
END $, 00430___
SWITCH RQUEST = APPEND,BLKOUT,BOTTOM,BRIEF,CHANGE,CLIP,COLON, 00440___
DELLIN,FILE,FIND,INSERT,KILL,LOCATE,MERGE,NEXLIN,OVRLAY, 00450___
XPRINT,QUIT,RETYPE,SERIAL,TABSET,TOP,VERIFY,WRITE $, 00460___
XXXCWD .BCD. '000000APPEND BLANKBOTTOM BRIEFCHANGE CLIP COLON 00470___
DELETE FILE FINDINSERT KILLLOCATE MERGE NEXTOVRLAY PRINT QUITRETYPE 00480___
SERIALTABSET TOPVERIFY WRITE' $, 00490___
XXWORD .BCD. '000000 A BL B BR C CL CO 00500___
D FL F I K L M N O P Q R 00510___
S TA T VE W' $, 00520___
PRESET CCT = 24 $, 00530___
COMMENT .......... START OF MAIN PROGRAM .......... $, 00540___
WHOAMI(WHOAM TO 2) $, 00550___
TCLASS = WHOAM(1) $, 00560___
RED() $, 00570___
DELETE(TNAME,TCLASS,0,ERROR) $, 00580___
DELETE(ENAME,TCLASS,0,ERROR) $, 00590___
EDWD = .BCI. 'EDIT:' $, 00600___
INPWD = .BCI. 'INPUT:' $, 00610___
OLDNAM = COMARG(1) $, 00620___
CLASS = COMARG(2) $, 00630___
NEWNAM = COMARG(3) $, 00640___
IF OLDNAM EQL FENCE 00650___
THEN BEGIN 00660___
WRFLEX(.BCI. 'NO FILE OR CLASS NAME GIVEN.' ,0) $, 00670___
GOTO ERROR $, 00680___
END 00690___
ELSE IF CLASS EQL FENCE 00700___
THEN BEGIN 00710___
CLASS = OLDNAM $, 00720___
NEWNAM = OLDNAM = FENCE $, 00730___
END $, 00740___
IF CLASS EQL .BCD. ' FAP' OR CLASS EQL .BCD. ' PEST' 00750___
THEN BEGIN 00760___
SETTAB(FAP) $, 00770___
TRNCSW = FALSE $, 00780___
END 00790___
ELSE IF CLASS EQL .BCD. 'MADTRN' OR CLASS EQL .BCD. 'FORTRN' 00800___
THEN SETTAB(MADTRN) 00810___
ELSE IF CLASS EQL .BCD. ' MAD' 00820___
THEN SETTAB(MAD) 00830___
ELSE IF CLASS EQL .BCD. ' ALGOL' 00840___
THEN SETTAB(ALGOL) 00850___
ELSE IF CLASS EQL .BCD. ' GPSS' 00860___
THEN SETTAB(GPSS) 00870___
ELSE IF CLASS NEQ .BCD. ' COMIT' 00880___
THEN WRFLEX(.BCI. 'TABS NOT SET' ,0) 00890___
$, 00900___
DASIGN(ENAME,TCLASS,ERROR) $, 00910___
IF OLDNAM EQL FENCE 00920___
THEN GOTO PINPUT $, 00930___
DSEEK(OLDNAM,CLASS,PINPUT) $, 00940___
OK = TRUE $, 00950___
IF NEWNAM NEQ FENCE 00960___
THEN OLDNAM = NEWNAM $, 00970___
COMMENT .......... CONTROL WORD DISPATCHER .......... $, 00980___
PEDIT $ RED() $, 00990___
WRFLEX(EDWD,0) $, 01000___
NEXT $ RDTYPE(EDLIN,COUNT) $, 01010___
IF COUNT EQL 0 01020___
THEN GOTO PINPUT $, 01030___
EDCT = 0 $, 01040___
XXXCWD = GET() $, 01050___
FOR I = 1 STEP 1 UNTIL CCT 01060___
DO IF XXXCWD EQL XXWORD(I) OR XXXCWD EQL XXXCWD(I) 01070___
THEN GOTO RQUEST(I) $, 01080___
COMMENT .......... NOT A REQUEST .......... $, 01090___
WRFLEX(.BCI. 'NOT A REQUEST:' ,0) $, 01100___
PCARD $ BLACK() $, 01110___
PRCARD(EDLIN,COUNT) $, 01120___
RED() $, 01130___
GOTO NEXT $, 01140___
COMMENT .......... INSERT,INPUT MODE .......... $, 01150___
PINPUT $ WRFLEX(INPWD,0) $, 01160___
BLACK() $, 01170___
INPUT $ RDTYPE(EDLIN,COUNT) $, 01180___
IF COUNT EQL 0 01190___
THEN GOTO PEDIT $, 01200___
IF UNTAB(EDLIN) AND TRNCSW 01210___
THEN BEGIN 01220___
RED() $, 01230___
WRFLEX(.BCI. 'TRUNCATED:' ,0) $, 01240___
PRCARD(EDLIN,72) $, 01250___
BLACK() $, 01260___
END $, 01270___
WRLINE() $, 01280___
LINENO = 0 $, 01290___
FOR I = 1 STEP 1 UNTIL 72 01300___
DO LINE(I) = EDLIN(I) $, 01310___
LENGTH = EDLIN $, 01320___
GOTO INPUT $, 01330___
OVRLAY $ MOVETO(TLIN) $, 01340___
FOR I = 1 STEP 1 UNTIL TLIN 01350___
DO IF TLIN(I) NEQ BLANK 01360___
THEN LINE(I) = TLIN(I) $, 01370___
IF TLIN GRT LENGTH 01380___
THEN LENGTH = TLIN $, 01390___
VERPRN() $, 01400___
GOTO NEXT $, 01410___
BLKOUT $ MOVETO(TLIN) $, 01420___
FOR I = 1 STEP 1 UNTIL TLIN 01430___
DO IF TLIN(I) NEQ BLANK 01440___
THEN LINE(I) = BLANK $, 01450___
VERPRN() $, 01460___
GOTO NEXT $, 01470___
COMMENT .......... DELETE LINE OR CARDS .......... $, 01480___
DELLIN $ IF (N = NUM()) EQL 0 01490___
THEN N = 1 $, 01500___
FOR I = 2 STEP 1 UNTIL N 01510___
DO BEGIN 01520___
IF NOT OK 01530___
THEN GOTO EOF $, 01540___
RDCARD(LINE,LENGTH,LINENO,EOF) $, 01550___
END $, 01560___
LENGTH = LINENO = 0 $, 01570___
GOTO NEXT $, 01580___
COMMENT .......... RETYPE CURRENT CARD .......... $, 01590___
INSERT $ IF EDCT GEQ COUNT 01600___
THEN GOTO PINPUT $, 01610___
WRLINE() $, 01620___
RETYPE $ MOVETO(LINE) $, 01630___
LENGTH = LINE $, 01640___
GOTO NEXT $, 01650___
COMMENT .......... NEXT CARD .......... $, 01660___
NEXLIN $ IF (N = NUM()) EQL 0 01670___
THEN N = 1 $, 01680___
FOR I = 1 STEP 1 UNTIL N 01690___
DO BEGIN 01700___
WRLINE() $, 01710___
IF NOT OK 01720___
THEN CLOSE() $, 01730___
RDCARD(LINE,LENGTH,LINENO,EOF) $, 01740___
END $, 01750___
VERPRN() $, 01760___
GOTO NEXT $, 01770___
COMMENT ......... FIND MATCHING CARD .......... $, 01780___
FIND $ MOVETO(TLIN) $, 01790___
FIND2 $ WRLINE() $, 01800___
IF NOT OK 01810___
THEN CLOSE() $, 01820___
RDCARD(LINE,LENGTH,LINENO,EOF) $, 01830___
FOR I = 1 STEP 1 UNTIL TLIN 01840___
DO IF TLIN(I) NEQ BLANK AND TLIN(I) NEQ LINE(I) 01850___
THEN GOTO FIND2 $, 01860___
VERPRN() $, 01870___
GOTO NEXT $, 01880___
COMMENT .......... LOCATE LINE WITH CHAR. STRING ... $, 01890___
LOCATE $ WRLINE() $, 01900___
IF NOT OK 01910___
THEN CLOSE() $, 01920___
RDCARD(LINE,LENGTH,LINENO,EOF) $, 01930___
FOR I = 1 STEP 1 UNTIL 84 01940___
DO BEGIN 01950___
J = I $, 01960___
FOR K = EDCT+1 STEP 1 UNTIL COUNT 01970___
DO BEGIN 01980___
IF J GRT 84 01990___
THEN GOTO LOCATE $, 02000___
IF EDLIN(K) NEQ LINE(J) 02010___
THEN GOTO LOC2 $, 02020___
J = J+1 $, 02030___
END $, 02040___
VERPRN() $, 02050___
GOTO NEXT $, 02060___
LOC2 $ END $, 02070___
GOTO LOCATE $, 02080___
COMMENT .......... PRINT CARD OR CARDS .......... $, 02090___
XPRINT $ N = NUM() $, 02100___
BLACK() $, 02110___
PRC = 72 $, 02120___
IF (OP = GET()) EQL .BCD. 'LINENO' OR OP EQL .BCD. ' L' 02130___
THEN PRC = 80 $, 02140___
PRINT1 $ PRCT = LENGTH $, 02150___
IF PRCT GRT PRC 02160___
THEN PRCT = PRC $, 02170___
PRCARD(LINE,PRCT) $, 02180___
IF (N = N-1) LEQ 0 02190___
THEN GOTO EPRINT $, 02200___
WRLINE() $, 02210___
IF NOT OK 02220___
THEN GOTO EOF $, 02230___
RDCARD(LINE,LENGTH,LINENO,EOF) $, 02240___
GOTO PRINT1 $, 02250___
EPRINT $ RED() $, 02260___
GOTO NEXT $, 02270___
COMMENT .......... TOP,GO TO TOP OF CARD FILE .......... $, 02280___
TOP $ WRLINE() $, 02290___
IF OK 02300___
THEN BEGIN 02310___
RDCARD(LINE,LENGTH,LINENO,ENDTOP) $, 02320___
GOTO TOP $, 02330___
END $, 02340___
ENDTOP $ CLOSE() $, 02350___
GOTO NEXT $, 02360___
COMMENT .. BOTTOM,GOTO BOTTOM OF CARD FILE .. $, 02370___
BOTTOM $ WRLINE() $, 02380___
IF OK 02390___
THEN BEGIN 02400___
RDCARD(LINE,LENGTH,LINENO,ENDBOT) $, 02410___
GOTO BOTTOM $, 02420___
END $, 02430___
ENDBOT $ LENGTH = 0 $, 02440___
OK = FALSE $, 02450___
GOTO PINPUT $, 02460___
COMMENT .. CHANGE,REPLACE CHARACTER STRING .. $, 02470___
CHANGE $ Q = EDLIN(STR1 = EDCT = EDCT+1) $, 02480___
STR1P1 = STR1+1 $, 02490___
FOR EDCT = EDCT+1 STEP 1 WHILE EDLIN(EDCT) NEQ Q AND EDCT LEQ 02500___
COUNT 02510___
DO BEGIN 02520___
END $, 02530___
STRDIF = (STR2M1 = (STR2P1 = (STR2 = EDCT)+1)-2)-STR1 $, 02540___
FOR EDCT = EDCT+1 STEP 1 WHILE EDLIN(EDCT) NEQ Q AND EDCT LEQ 02550___
COUNT 02560___
DO BEGIN 02570___
END $, 02580___
EDCT = (ESTR = EDCT)+1 $, 02590___
IF (N = NUM()) EQL 0 02600___
THEN N = 1 $, 02610___
GLOBAL = ((OP = GET()) EQL .BCD. ' G' OR OP EQL .BCD. 'GLO 02620___
BAL' ) $, 02630___
REPEAT $ IF LENGTH LEQ 0 02640___
THEN GOTO ECHNG2 $, 02650___
MODIFY = FALSE $, 02660___
IF N LEQ 1 02670___
THEN MODIFY = TRUE $, 02680___
FOR I = 1 STEP 1 UNTIL 72 02690___
DO TLIN(I) = LINE(I) $, 02700___
LENGTH = TLP = 1 $, 02710___
FNDSTR $ FOR TLP = TLP STEP 1 UNTIL 72 02720___
DO BEGIN 02730___
J = TLP $, 02740___
FOR I = STR1P1 STEP 1 UNTIL STR2M1 02750___
DO BEGIN 02760___
IF EDLIN(I) NEQ TLIN(J) OR J GRT 72 02770___
THEN GOTO FNDS2 $, 02780___
J = J+1 $, 02790___
END $, 02800___
GOTO FOUND $, 02810___
FNDS2 $ LINE(LENGTH) = TLIN(TLP) $, 02820___
IF LENGTH GRT 72 02830___
THEN GOTO ECHNG $, 02840___
LENGTH = LENGTH+1 $, 02850___
END $, 02860___
LINE(LENGTH) = BLANK $, 02870___
GOTO ECHNG $, 02880___
FOUND $ TLP = TLP+STRDIF $, 02890___
MODIFY = TRUE $, 02900___
FOR I = STR2P1 STEP 1 WHILE I LES ESTR 02910___
DO BEGIN 02920___
LINE(LENGTH) = EDLIN(I) $, 02930___
IF LENGTH GEQ 72 02940___
THEN GOTO ECHNG $, 02950___
LENGTH = LENGTH+1 $, 02960___
END $, 02970___
IF GLOBAL 02980___
THEN GOTO FNDSTR $, 02990___
FOR TLP = TLP STEP 1 UNTIL 72 03000___
DO BEGIN 03010___
LINE(LENGTH) = TLIN(TLP) $, 03020___
IF LENGTH GEQ 72 03030___
THEN GOTO ECHNG $, 03040___
LENGTH = LENGTH+1 $, 03050___
END $, 03060___
LINE(LENGTH) = BLANK $, 03070___
ECHNG $ FOR LENGTH = LENGTH+1 STEP 1 UNTIL 84 03080___
DO LINE(LENGTH) = BLANK $, 03090___
LENGTH = 84 $, 03100___
IF MODIFY 03110___
THEN VERPRN() $, 03120___
ECHNG2 $ IF (N = N-1) LEQ 0 03130___
THEN GOTO NEXT $, 03140___
WRLINE() $, 03150___
IF NOT OK 03160___
THEN GOTO EOF $, 03170___
RDCARD(LINE,LENGTH,LINENO,EOF) $, 03180___
GOTO REPEAT $, 03190___
COMMENT .......... SERIAL,SET LINE INCREMENT .......... $, 03200___
SERIAL $ IF (LINCR = NUM()) EQL 0 03210___
THEN LINCR = 10 $, 03220___
GOTO NEXT $, 03230___
COMMENT .......... TABSET,SET CONSOLE TABS .......... $, 03240___
TABSET $ TLIN = 0 $, 03250___
FOR I = 1 STEP 1 UNTIL 30 03260___
DO BEGIN 03270___
IF (TLIN(I) = TLINI = NUM()) EQL 0 03280___
THEN BEGIN 03290___
SETTAB(TLIN) $, 03300___
GOTO NEXT $, 03310___
END $, 03320___
IF I GRT 1 AND TLINI LEQ TLIN(I-1) OR TLINI GRT 84 03330___
THEN BEGIN 03340___
TABERR $ WRFLEX(.BCI. 'ILLEGAL TAB SETTING IGNORED:' ,0) $, 03350___
GOTO PCARD $, 03360___
END $, 03370___
TLIN = I $, 03380___
END $, 03390___
COMMENT .. CONTROL SHOULD NEVER GET HERE, BUT .... $, 03400___
GOTO TABERR $, 03410___
COMMENT .......... VERIFY MODE .......... $, 03420___
VERIFY $ VERMOD = TRUE $, 03430___
EDWD = .BCI. 'EDIT:' $, 03440___
INPWD = .BCI. 'INPUT:' $, 03450___
GOTO NEXT $, 03460___
COMMENT .......... BRIEF MODE .......... $, 03470___
BRIEF $ VERMOD = FALSE $, 03480___
EDWD = .BCI. 'E:' $, 03490___
INPWD = .BCI. 'I:' $, 03500___
GOTO NEXT $, 03510___
COLON $ IF (OP = GET()) EQL .BCD. ' TEXT' OR OP EQL .BCD. ' T' 03520___
THEN SETCOL(0) 03530___
ELSE IF OP EQL .BCD. 'BACKSP' OR OP EQL .BCD. ' B' 03540___
THEN SETCOL(1) 03550___
ELSE BEGIN 03560___
WRFLEX(.BCI. 'ILLEGAL ARGUMENT OF COLON REQUEST:' ,0 03570___
) $, 03580___
GOTO PCARD $, 03590___
END $, 03600___
GOTO NEXT $, 03610___
CLIP $ IF (OP = GET()) EQL .BCD. ' ON' 03620___
THEN TRNCSW = TRUE 03630___
ELSE IF OP EQL .BCD. ' OFF' 03640___
THEN TRNCSW = FALSE 03650___
ELSE BEGIN 03660___
WRFLEX(.BCI. 'ILLEGAL ARGUMENT OF CLIP REQUEST:' ,0) 03670___
$, 03680___
GOTO PCARD $, 03690___
END $, 03700___
GOTO NEXT $, 03710___
KILL $ 03720___
MERGE $ 03730___
APPEND $ 03740___
WRITE $ 03750___
NULL $ WRFLEX(.BCI. 'THIS FUNCTION NOT YET CODED:' ,0) $, 03760___
GOTO PCARD $, 03770___
COMMENT .......... FILE,END OF EDITING .......... $, 03780___
FILE $ IF (PRINAM = GET()) EQL BLANKS 03790___
THEN BEGIN 03800___
IF (PRINAM = OLDNAM) EQL FENCE 03810___
THEN BEGIN 03820___
SETBCD() $, 03830___
WRFLEX(.BCI. 'NO FILE NAME GIVEN' ,0) $, 03840___
GOTO NEXT $, 03850___
END $, 03860___
END $, 03870___
FILE1 $ WRLINE() $, 03880___
IF OK 03890___
THEN BEGIN 03900___
RDCARD(LINE,LENGTH,LINENO,XEND) $, 03910___
GOTO FILE1 $, 03920___
END $, 03930___
XEND $ DFILE(NOFILE) $, 03940___
RENAME(ENAME,TCLASS,PRINAM,CLASS,NODEL) $, 03950___
L3 $ CHFILE(TNAME,TCLASS,1,-0,-0,L4) $, 03960___
DELETE(TNAME,TCLASS,0,L4) $, 03970___
L4 $ UPDATE() $, 03980___
ERROR $ BLACK() $, 03990___
WRFLEX(STAR,1) $, 04000___
CHNCOM(0) $, 04010___
NODEL $ FLIP() $, 04020___
GOTO PEDIT $, 04030___
COMMENT ............. QUIT, DELETE TEMP. FILES, LEAVE ....... $, 04040___
QUIT $ RESET() $, 04050___
CHFILE(ENAME,TCLASS,1,-0,-0,L3) $, 04060___
DELETE(ENAME,TCLASS,0,L3) $, 04070___
GOTO L3 $, 04080___
COMMENT .......... END OF FILE READING EDIT FILE .......... $, 04090___
EOF $ RED() $, 04100___
WRFLEX(.BCI. 'END OF FILE REACHED BY:' ,0) $, 04110___
LENGTH = 0 $, 04120___
OK = FALSE $, 04130___
GOTO PCARD $, 04140___
COMMENT .......... HERE FOR DISK FILE ERROR .......... $, 04150___
NOFILE $ WRFLEX(.BCI. 'NOTHING IN FILE' ,0) $, 04160___
OK = FALSE $, 04170___
LENGTH = LINENO = HILINE = 0 $, 04180___
DASIGN(ENAME,TCLASS,ERROR) $, 04190___
GOTO PINPUT $, 04200___
COMMENT .... ATTEMPT TO TERMINATE, THEN REVERSE FILES ..... $, 04210___
04220___
DEFINE PROCEDURE CLOSE TOBE 04230___
BEGIN 04240___
DFILE(NOFILE) $, 04250___
FLIP() $, 04260___
END $, 04270___
04280___
COMMENT ..... REVERSE AND RE-OPEN FILES $, 04290___
04300___
DEFINE PROCEDURE FLIP TOBE 04310___
BEGIN 04320___
CHFILE(TNAME,TCLASS,1,-0,-0,IGNERR) $, 04330___
IGNERR $ DELETE(TNAME,TCLASS,0,ERROR) $, 04340___
CHFILE(ENAME,TCLASS,16,TNAME,TCLASS,ERROR) $, 04350___
UPDATE() $, 04360___
DSEEK(TNAME,TCLASS,NOFILE) $, 04370___
OK = TRUE $, 04380___
DASIGN(ENAME,TCLASS,ERROR) $, 04390___
LENGTH = LINENO = HILINE = 0 $, 04400___
END $, 04410___
04420___
COMMENT .......... PROCEDURE TO SET UP LINENO,ETC. ..... $, 04430___
04440___
DEFINE PROCEDURE WRLINE TOBE 04450___
BEGIN 04460___
IF LENGTH NEQ 0 04470___
THEN BEGIN 04480___
IF LINENO LEQ HILINE 04490___
THEN LINENO = HILINE+LINCR $, 04500___
WRCARD(LINE,LENGTH,LINENO,ERROR) $, 04510___
IF LINENO GRT HILINE 04520___
THEN HILINE = LINENO $, 04530___
END $, 04540___
END $, 04550___
04560___
COMMENT ..... PROCEDURE TO VERIFY LINE ........ $, 04570___
04580___
DEFINE PROCEDURE VERPRN TOBE 04590___
BEGIN 04600___
IF VERMOD 04610___
THEN BEGIN 04620___
BLACK() $, 04630___
PRCARD(LINE,72) $, 04640___
RED() $, 04650___
END $, 04660___
END $, 04670___
04680___
COMMENT ....... PROCEDURES GET AND NUM(UTILITY)... $, 04690___
04700___
DEFINE INTEGER PROCEDURE GET TOBE 04710___
BEGIN 04720___
SAVCT = EDCT $, 04730___
NDCHAR = TRUE $, 04740___
XXWORD = BLANKS $, 04750___
FOR EDCT = EDCT+1 WHILE (NDCHAR OR (EDLIN(EDCT) NEQ BLANK 04760___
AND EDLIN(EDCT) NEQ TAB)) AND EDCT LEQ COUNT 04770___
DO IF EDLIN(EDCT) NEQ TAB AND EDLIN(EDCT) NEQ BLANK 04780___
THEN BEGIN 04790___
XXWORD = LS(XXWORD,6) .V. EDLIN(EDCT) $, 04800___
NDCHAR = FALSE $, 04810___
END $, 04820___
XXWORD = XXWORD $, 04830___
END $, 04840___
04850___
DEFINE INTEGER PROCEDURE NUM TOBE 04860___
BEGIN 04870___
SAVCT = EDCT $, 04880___
NDCHAR = TRUE $, 04890___
XXWORD = 0 $, 04900___
FOR EDCT = EDCT+1 WHILE (NDCHAR OR (EDLIN(EDCT) NEQ BLANK 04910___
AND EDLIN(EDCT) NEQ TAB)) AND EDCT LEQ COUNT 04920___
DO IF EDLIN(EDCT) LES 10 04930___
THEN BEGIN 04940___
XXWORD = XXWORD*10+EDLIN(EDCT) $, 04950___
NDCHAR = FALSE $, 04960___
END $, 04970___
XXWORD = XXWORD $, 04980___
END $, 04990___
05000___
COMMENT ... PROCEDURE TO MOVE AND UN-TAB 'EDLIN' $, 05010___
05020___
DEFINE PROCEDURE MOVETO(LIN) WHERE INTEGER ARRAY LIN TOBE 05030___
BEGIN 05040___
IF EDLIN(EDCT) NEQ BLANK 05050___
THEN EDCT = EDCT-1 $, 05060___
I = 0 $, 05070___
FOR I = I+1 WHILE I LEQ 84 AND EDCT LES 84 05080___
DO LIN(I) = EDLIN(EDCT = EDCT+1) $, 05090___
IF UNTAB(LIN) AND TRNCSW 05100___
THEN BEGIN 05110___
BLACK() $, 05120___
WRFLEX(.BCI. 'TRUNCATED:' ,0) $, 05130___
PRCARD(LIN,72) $, 05140___
RED() $, 05150___
END $, 05160___
END $, 05170___
05180___
END FINI 05190___
1PAGE 1 COMPILATION LISTING
00030 PSE 16
00031 TRA (L000
(L001
00032 RQUEST TRA APPEND
00033 TRA BLKOUT
00034 TRA BOTTOM
00035 TRA BRIEF
00036 TRA CHANGE
00037 TRA CLIP
00040 TRA COLON
00041 TRA DELLIN
00042 TRA FILE
00043 TRA FIND
00044 TRA INSERT
00045 TRA KILL
00046 TRA LOCATE
00047 TRA MERGE
00050 TRA NEXLIN
00051 TRA OVRLAY
00052 TRA XPRINT
00053 TRA QUIT
00054 TRA RETYPE
00055 TRA SERIAL
00056 TRA TABSET
00057 TRA TOP
00060 TRA VERIFY
00061 TRA WRITE
00062 (L000 TSX WHOAMI,4
00063 TXH WHOAM,,2
00064 LAC 1,1
00065 CLA WHOAM,1
00066 STO TCLASS
00067 TSX RED,4
00070 TSX DELETE,4
00071 TXH TNAME
00072 TXH TCLASS
00073 TXH 0
00074 TXH ERROR
00075 TSX DELETE,4
00076 TXH ENAME
00077 TXH TCLASS
00100 TXH 0
00101 TXH ERROR
00102 CLA )S001
00103 STO EDWD
00104 CLA )S002
00105 STO INPWD
00106 TSX COMARG,4
00107 TXH 1
00110 STO OLDNAM
00111 TSX COMARG,4
1PAGE 2 COMPILATION LISTING
00112 TXH 2
00113 STO CLASS
00114 TSX COMARG,4
00115 TXH 3
00116 STO NEWNAM
00117 CLA OLDNAM
00120 SUB FENCE
00121 TNZ (L002
00122 TSX WRFLEX,4
00123 TXH )S003
00124 TXH 0
00125 TRA ERROR
00126 TRA (L003
00127 (L002 CLA CLASS
00130 SUB FENCE
00131 TNZ (L004
00132 CLA OLDNAM
00133 STO CLASS
00134 CLA FENCE
00135 STO OLDNAM
00136 STO NEWNAM
(L004
00137 (L003 CLA CLASS
00140 SUB )S004
00141 TZE (L005
00142 CLA CLASS
00143 SUB )S005
00144 TNZ (L006
00145 (L005 TSX SETTAB,4
00146 TXH FAP
00147 CAL FALSE
00150 SLW TRNCSW
00151 TRA (L007
00152 (L006 CLA CLASS
00153 SUB )S006
00154 TZE (L010
00155 CLA CLASS
00156 SUB )S007
00157 TNZ (L011
00160 (L010 TSX SETTAB,4
00161 TXH MADTRN
00162 TRA (L012
00163 (L011 CLA CLASS
00164 SUB )S010
00165 TNZ (L013
00166 TSX SETTAB,4
00167 TXH MAD
00170 TRA (L014
00171 (L013 CLA CLASS
00172 SUB )S011
00173 TNZ (L015
1PAGE 3 COMPILATION LISTING
00174 TSX SETTAB,4
00175 TXH ALGOL
00176 TRA (L016
00177 (L015 CLA CLASS
00200 SUB )S012
00201 TNZ (L017
00202 TSX SETTAB,4
00203 TXH GPSS
00204 TRA (L020
00205 (L017 CLA CLASS
00206 SUB )S013
00207 TZE (L021
00210 TSX WRFLEX,4
00211 TXH )S014
00212 TXH 0
(L021
(L020
(L016
(L014
(L012
00213 (L007 TSX DASIGN,4
00214 TXH ENAME
00215 TXH TCLASS
00216 TXH ERROR
00217 CLA OLDNAM
00220 SUB FENCE
00221 TNZ (L022
00222 TRA PINPUT
00223 (L022 TSX DSEEK,4
00224 TXH OLDNAM
00225 TXH CLASS
00226 TXH PINPUT
00227 CAL TRUE
00230 SLW OK
00231 CLA NEWNAM
00232 SUB FENCE
00233 TZE (L023
00234 CLA NEWNAM
00235 STO OLDNAM
(L023
00236 PEDIT TSX RED,4
00237 TSX WRFLEX,4
00240 TXH EDWD
00241 TXH 0
00242 NEXT TSX RDTYPE,4
00243 TXH EDLIN
00244 TXH COUNT
00245 CLA COUNT
00246 TNZ (L024
00247 TRA PINPUT
00250 (L024 CLA 0
1PAGE 4 COMPILATION LISTING
00251 STO EDCT
00252 TSX GET,4
00253 STO XXXCWD
00254 (L025 CLA 1
00255 STO I
00256 (L026 LXA CCT,4
00257 SXD (L027,4
00260 LXA I,4
00261 (L027 TXH (L030,4
00262 LAC I,1
00263 CLA XXXCWD
00264 SUB XXWORD,1
00265 TZE (L031
00266 CLA XXXCWD
00267 SUB XXXCWD,1
00270 TNZ (L032
00271 (L031 LAC I,1
00272 TRA RQUEST,1
00273 (L032 LXA I,4
00274 TXI *+1,4,1
00275 SXA I,4
00276 TRA (L026
00277 (L030 TSX WRFLEX,4
00300 TXH )S015
00301 TXH 0
00302 PCARD TSX BLACK,4
00303 TSX PRCARD,4
00304 TXH EDLIN
00305 TXH COUNT
00306 TSX RED,4
00307 TRA NEXT
00310 PINPUT TSX WRFLEX,4
00311 TXH INPWD
00312 TXH 0
00313 TSX BLACK,4
00314 INPUT TSX RDTYPE,4
00315 TXH EDLIN
00316 TXH COUNT
00317 CLA COUNT
00320 TNZ (L033
00321 TRA PEDIT
00322 (L033 TSX UNTAB,4
00323 TXH EDLIN
00324 TZE (L034
00325 CAL TRNCSW
00326 TZE (L034
00327 TSX RED,4
00330 TSX WRFLEX,4
00331 TXH )S016
00332 TXH 0
00333 TSX PRCARD,4
1PAGE 5 COMPILATION LISTING
00334 TXH EDLIN
00335 TXH 110
00336 TSX BLACK,4
00337 (L034 TSX WRLINE,4
00340 CLA 0
00341 STO LINENO
00342 (L035 CLA 1
00343 STO I
00344 LXA I,4
00345 (L036 TXH (L037,4,110
00346 LAC I,1
00347 CLA EDLIN,1
00350 STO LINE,1
00351 LXA I,4
00352 TXI *+1,4,1
00353 SXA I,4
00354 TRA (L036
00355 (L037 CLA EDLIN
00356 STO LENGTH
00357 TRA INPUT
00360 OVRLAY TSX MOVETO,4
00361 TXH TLIN
00362 (L040 CLA 1
00363 STO I
00364 (L041 LXA TLIN,4
00365 SXD (L042,4
00366 LXA I,4
00367 (L042 TXH (L043,4
00370 LAC I,1
00371 CLA TLIN,1
00372 SUB BLANK
00373 TZE (L044
00374 CLA TLIN,1
00375 STO LINE,1
00376 (L044 LXA I,4
00377 TXI *+1,4,1
00400 SXA I,4
00401 TRA (L041
00402 (L043 CLA TLIN
00403 SUB LENGTH
00404 TMI (L045
00405 TZE (L045
00406 CLA TLIN
00407 STO LENGTH
00410 (L045 TSX VERPRN,4
00411 TRA NEXT
00412 BLKOUT TSX MOVETO,4
00413 TXH TLIN
00414 (L046 CLA 1
00415 STO I
00416 (L047 LXA TLIN,4
1PAGE 6 COMPILATION LISTING
00417 SXD (L050,4
00420 LXA I,4
00421 (L050 TXH (L051,4
00422 LAC I,1
00423 CLA TLIN,1
00424 SUB BLANK
00425 TZE (L052
00426 CLA BLANK
00427 STO LINE,1
00430 (L052 LXA I,4
00431 TXI *+1,4,1
00432 SXA I,4
00433 TRA (L047
00434 (L051 TSX VERPRN,4
00435 TRA NEXT
00436 DELLIN TSX NUM,4
00437 STO N
00440 TNZ (L053
00441 CLA 1
00442 STO N
(L053
00443 (L054 CLA 2
00444 STO I
00445 (L055 LXA N,4
00446 SXD (L056,4
00447 LXA I,4
00450 (L056 TXH (L057,4
00451 CAL OK
00452 TNZ (L060
00453 TRA EOF
00454 (L060 TSX RDCARD,4
00455 TXH LINE
00456 TXH LENGTH
00457 TXH LINENO
00460 TXH EOF
00461 LXA I,4
00462 TXI *+1,4,1
00463 SXA I,4
00464 TRA (L055
00465 (L057 CLA 0
00466 STO LINENO
00467 STO LENGTH
00470 TRA NEXT
00471 INSERT CLA EDCT
00472 SUB COUNT
00473 TZE *+2
00474 TMI (L061
00475 TRA PINPUT
00476 (L061 TSX WRLINE,4
00477 RETYPE TSX MOVETO,4
00500 TXH LINE
1PAGE 7 COMPILATION LISTING
00501 CLA LINE
00502 STO LENGTH
00503 TRA NEXT
00504 NEXLIN TSX NUM,4
00505 STO N
00506 TNZ (L062
00507 CLA 1
00510 STO N
(L062
00511 (L063 CLA 1
00512 STO I
00513 (L064 LXA N,4
00514 SXD (L065,4
00515 LXA I,4
00516 (L065 TXH (L066,4
00517 TSX WRLINE,4
00520 CAL OK
00521 TNZ (L067
00522 TSX CLOSE,4
00523 (L067 TSX RDCARD,4
00524 TXH LINE
00525 TXH LENGTH
00526 TXH LINENO
00527 TXH EOF
00530 LXA I,4
00531 TXI *+1,4,1
00532 SXA I,4
00533 TRA (L064
00534 (L066 TSX VERPRN,4
00535 TRA NEXT
00536 FIND TSX MOVETO,4
00537 TXH TLIN
00540 FIND2 TSX WRLINE,4
00541 CAL OK
00542 TNZ (L070
00543 TSX CLOSE,4
00544 (L070 TSX RDCARD,4
00545 TXH LINE
00546 TXH LENGTH
00547 TXH LINENO
00550 TXH EOF
00551 (L071 CLA 1
00552 STO I
00553 (L072 LXA TLIN,4
00554 SXD (L073,4
00555 LXA I,4
00556 (L073 TXH (L074,4
00557 LAC I,1
00560 CLA TLIN,1
00561 SUB BLANK
00562 TZE (L075
1PAGE 8 COMPILATION LISTING
00563 CLA TLIN,1
00564 SUB LINE,1
00565 TZE (L075
00566 TRA FIND2
00567 (L075 LXA I,4
00570 TXI *+1,4,1
00571 SXA I,4
00572 TRA (L072
00573 (L074 TSX VERPRN,4
00574 TRA NEXT
00575 LOCATE TSX WRLINE,4
00576 CAL OK
00577 TNZ (L076
00600 TSX CLOSE,4
00601 (L076 TSX RDCARD,4
00602 TXH LINE
00603 TXH LENGTH
00604 TXH LINENO
00605 TXH EOF
00606 (L077 CLA 1
00607 STO I
00610 LXA I,4
00611 (L100 TXH (L101,4,124
00612 CLA I
00613 STO J
00614 (L102 CLA EDCT
00615 ADD 1
00616 STO K
00617 (L103 LXA COUNT,4
00620 SXD (L104,4
00621 LXA K,4
00622 (L104 TXH (L105,4
00623 CLA J
00624 SUB 124
00625 TMI (L106
00626 TZE (L106
00627 TRA LOCATE
00630 (L106 LAC J,1
00631 LAC K,2
00632 CLA EDLIN,2
00633 SUB LINE,1
00634 TZE (L107
00635 TRA LOC2
00636 (L107 CLA J
00637 ADD 1
00640 STO J
00641 LXA K,4
00642 TXI *+1,4,1
00643 SXA K,4
00644 TRA (L103
00645 (L105 TSX VERPRN,4
1PAGE 9 COMPILATION LISTING
00646 TRA NEXT
00647 LOC2 LXA I,4
00650 TXI *+1,4,1
00651 SXA I,4
00652 TRA (L100
00653 (L101 TRA LOCATE
00654 XPRINT TSX NUM,4
00655 STO N
00656 TSX BLACK,4
00657 CLA 110
00660 STO PRC
00661 TSX GET,4
00662 STO OP
00663 SUB )S017
00664 TZE (L110
00665 CLA OP
00666 SUB )S020
00667 TNZ (L111
00670 (L110 CLA 120
00671 STO PRC
(L111
00672 PRINT1 CLA LENGTH
00673 STO PRCT
00674 CLA PRCT
00675 SUB PRC
00676 TMI (L112
00677 TZE (L112
00700 CLA PRC
00701 STO PRCT
00702 (L112 TSX PRCARD,4
00703 TXH LINE
00704 TXH PRCT
00705 CLA N
00706 SUB 1
00707 STO N
00710 TZE *+2
00711 TPL (L113
00712 TRA EPRINT
00713 (L113 TSX WRLINE,4
00714 CAL OK
00715 TNZ (L114
00716 TRA EOF
00717 (L114 TSX RDCARD,4
00720 TXH LINE
00721 TXH LENGTH
00722 TXH LINENO
00723 TXH EOF
00724 TRA PRINT1
00725 EPRINT TSX RED,4
00726 TRA NEXT
00727 TOP TSX WRLINE,4
1PAGE 10 COMPILATION LISTING
00730 CAL OK
00731 TZE (L115
00732 TSX RDCARD,4
00733 TXH LINE
00734 TXH LENGTH
00735 TXH LINENO
00736 TXH ENDTOP
00737 TRA TOP
(L115
00740 ENDTOP TSX CLOSE,4
00741 TRA NEXT
00742 BOTTOM TSX WRLINE,4
00743 CAL OK
00744 TZE (L116
00745 TSX RDCARD,4
00746 TXH LINE
00747 TXH LENGTH
00750 TXH LINENO
00751 TXH ENDBOT
00752 TRA BOTTOM
(L116
00753 ENDBOT CLA 0
00754 STO LENGTH
00755 CAL FALSE
00756 SLW OK
00757 TRA PINPUT
00760 CHANGE CLA EDCT
00761 ADD 1
00762 STO EDCT
00763 STO STR1
00764 PAC 0,4
00765 CLA EDLIN,4
00766 STO Q
00767 CLA STR1
00770 ADD 1
00771 STO STR1P1
00772 (L117 CLA EDCT
00773 ADD 1
00774 STO EDCT
00775 (L120 LAC EDCT,1
00776 CLA EDLIN,1
00777 SUB Q
01000 TZE (L121
01001 CLA EDCT
01002 SUB COUNT
01003 TZE *+2
01004 TPL (L121
01005 LXA EDCT,4
01006 TXI *+1,4,1
01007 SXA EDCT,4
01010 TRA (L120
1PAGE 11 COMPILATION LISTING
01011 (L121 CLA EDCT
01012 STO STR2
01013 ADD 1
01014 STO STR2P1
01015 SUB 2
01016 STO STR2M1
01017 SUB STR1
01020 STO STRDIF
01021 (L122 CLA EDCT
01022 ADD 1
01023 STO EDCT
01024 (L123 LAC EDCT,1
01025 CLA EDLIN,1
01026 SUB Q
01027 TZE (L124
01030 CLA EDCT
01031 SUB COUNT
01032 TZE *+2
01033 TPL (L124
01034 LXA EDCT,4
01035 TXI *+1,4,1
01036 SXA EDCT,4
01037 TRA (L123
01040 (L124 CLA EDCT
01041 STO ESTR
01042 ADD 1
01043 STO EDCT
01044 TSX NUM,4
01045 STO N
01046 TNZ (L125
01047 CLA 1
01050 STO N
01051 (L125 TSX GET,4
01052 STO OP
01053 SUB )S021
01054 TZE (L126
01055 CLA OP
01056 SUB )S022
01057 TNZ (L127
01060 (L126 CAL TRUE
01061 TRA *+2
01062 (L127 CAL FALSE
01063 SLW GLOBAL
01064 REPEAT CLA LENGTH
01065 TZE *+2
01066 TPL (L130
01067 TRA ECHNG2
01070 (L130 CAL FALSE
01071 SLW MODIFY
01072 CLA N
01073 SUB 1
1PAGE 12 COMPILATION LISTING
01074 TZE *+2
01075 TPL (L131
01076 CAL TRUE
01077 SLW MODIFY
(L131
01100 (L132 CLA 1
01101 STO I
01102 LXA I,4
01103 (L133 TXH (L134,4,110
01104 LAC I,1
01105 CLA LINE,1
01106 STO TLIN,1
01107 LXA I,4
01110 TXI *+1,4,1
01111 SXA I,4
01112 TRA (L133
01113 (L134 CLA 1
01114 STO TLP
01115 STO LENGTH
FNDSTR
01116 (L135 CLA TLP
01117 STO TLP
01120 LXA TLP,4
01121 (L136 TXH (L137,4,110
01122 CLA TLP
01123 STO J
01124 (L140 CLA STR1P1
01125 STO I
01126 (L141 LXA STR2M1,4
01127 SXD (L142,4
01130 LXA I,4
01131 (L142 TXH (L143,4
01132 LAC J,1
01133 LAC I,2
01134 CLA EDLIN,2
01135 SUB TLIN,1
01136 TNZ (L144
01137 CLA J
01140 SUB 110
01141 TMI (L145
01142 TZE (L145
01143 (L144 TRA FNDS2
01144 (L145 CLA J
01145 ADD 1
01146 STO J
01147 LXA I,4
01150 TXI *+1,4,1
01151 SXA I,4
01152 TRA (L141
01153 (L143 TRA FOUND
01154 FNDS2 LAC LENGTH,1
1PAGE 13 COMPILATION LISTING
01155 LAC TLP,2
01156 CLA TLIN,2
01157 STO LINE,1
01160 CLA LENGTH
01161 SUB 110
01162 TMI (L146
01163 TZE (L146
01164 TRA ECHNG
01165 (L146 CLA LENGTH
01166 ADD 1
01167 STO LENGTH
01170 LXA TLP,4
01171 TXI *+1,4,1
01172 SXA TLP,4
01173 TRA (L136
01174 (L137 LAC LENGTH,1
01175 CLA BLANK
01176 STO LINE,1
01177 TRA ECHNG
01200 FOUND CLA TLP
01201 ADD STRDIF
01202 STO TLP
01203 CAL TRUE
01204 SLW MODIFY
01205 (L147 CLA STR2P1
01206 STO I
01207 (L150 CLA I
01210 SUB ESTR
01211 TZE (L151
01212 TPL (L151
01213 LAC LENGTH,1
01214 LAC I,2
01215 CLA EDLIN,2
01216 STO LINE,1
01217 CLA LENGTH
01220 SUB 110
01221 TZE *+2
01222 TMI (L152
01223 TRA ECHNG
01224 (L152 CLA LENGTH
01225 ADD 1
01226 STO LENGTH
01227 LXA I,4
01230 TXI *+1,4,1
01231 SXA I,4
01232 TRA (L150
01233 (L151 CAL GLOBAL
01234 TZE (L153
01235 TRA FNDSTR
(L153
01236 (L154 CLA TLP
1PAGE 14 COMPILATION LISTING
01237 STO TLP
01240 LXA TLP,4
01241 (L155 TXH (L156,4,110
01242 LAC LENGTH,1
01243 LAC TLP,2
01244 CLA TLIN,2
01245 STO LINE,1
01246 CLA LENGTH
01247 SUB 110
01250 TZE *+2
01251 TMI (L157
01252 TRA ECHNG
01253 (L157 CLA LENGTH
01254 ADD 1
01255 STO LENGTH
01256 LXA TLP,4
01257 TXI *+1,4,1
01260 SXA TLP,4
01261 TRA (L155
01262 (L156 LAC LENGTH,1
01263 CLA BLANK
01264 STO LINE,1
ECHNG
01265 (L160 CLA LENGTH
01266 ADD 1
01267 STO LENGTH
01270 LXA LENGTH,4
01271 (L161 TXH (L162,4,124
01272 LAC LENGTH,1
01273 CLA BLANK
01274 STO LINE,1
01275 LXA LENGTH,4
01276 TXI *+1,4,1
01277 SXA LENGTH,4
01300 TRA (L161
01301 (L162 CLA 124
01302 STO LENGTH
01303 CAL MODIFY
01304 TZE (L163
01305 TSX VERPRN,4
(L163
01306 ECHNG2 CLA N
01307 SUB 1
01310 STO N
01311 TZE *+2
01312 TPL (L164
01313 TRA NEXT
01314 (L164 TSX WRLINE,4
01315 CAL OK
01316 TNZ (L165
01317 TRA EOF
1PAGE 15 COMPILATION LISTING
01320 (L165 TSX RDCARD,4
01321 TXH LINE
01322 TXH LENGTH
01323 TXH LINENO
01324 TXH EOF
01325 TRA REPEAT
01326 SERIAL TSX NUM,4
01327 STO LINCR
01330 TNZ (L166
01331 CLA 12
01332 STO LINCR
01333 (L166 TRA NEXT
01334 TABSET CLA 0
01335 STO TLIN
01336 (L167 CLA 1
01337 STO I
01340 LXA I,4
01341 (L170 TXH (L171,4,36
01342 TSX NUM,4
01343 STO TLINI
01344 LAC I,1
01345 STO TLIN,1
01346 TNZ (L172
01347 TSX SETTAB,4
01350 TXH TLIN
01351 TRA NEXT
01352 (L172 CLA I
01353 SUB 1
01354 TMI (L173
01355 TZE (L173
01356 CLA I
01357 SUB 1
01360 PAC 0,4
01361 CLA TLINI
01362 SUB TLIN,4
01363 TMI (L174
01364 TZE (L174
01365 (L173 CLA TLINI
01366 SUB 124
01367 TMI (L175
01370 TZE (L175
(L174
01371 TABERR TSX WRFLEX,4
01372 TXH )S023
01373 TXH 0
01374 TRA PCARD
01375 (L175 CLA I
01376 STO TLIN
01377 LXA I,4
01400 TXI *+1,4,1
01401 SXA I,4
1PAGE 16 COMPILATION LISTING
01402 TRA (L170
01403 (L171 TRA TABERR
01404 VERIFY CAL TRUE
01405 SLW VERMOD
01406 CLA )S001
01407 STO EDWD
01410 CLA )S002
01411 STO INPWD
01412 TRA NEXT
01413 BRIEF CAL FALSE
01414 SLW VERMOD
01415 CLA )S024
01416 STO EDWD
01417 CLA )S025
01420 STO INPWD
01421 TRA NEXT
01422 COLON TSX GET,4
01423 STO OP
01424 SUB )S026
01425 TZE (L176
01426 CLA OP
01427 SUB )S027
01430 TNZ (L177
01431 (L176 TSX SETCOL,4
01432 TXH 0
01433 TRA (L200
01434 (L177 CLA OP
01435 SUB )S030
01436 TZE (L201
01437 CLA OP
01440 SUB )S031
01441 TNZ (L202
01442 (L201 TSX SETCOL,4
01443 TXH 1
01444 TRA (L203
01445 (L202 TSX WRFLEX,4
01446 TXH )S032
01447 TXH 0
01450 TRA PCARD
(L203
01451 (L200 TRA NEXT
01452 CLIP TSX GET,4
01453 STO OP
01454 SUB )S033
01455 TNZ (L204
01456 CAL TRUE
01457 SLW TRNCSW
01460 TRA (L205
01461 (L204 CLA OP
01462 SUB )S034
01463 TNZ (L206
1PAGE 17 COMPILATION LISTING
01464 CAL FALSE
01465 SLW TRNCSW
01466 TRA (L207
01467 (L206 TSX WRFLEX,4
01470 TXH )S035
01471 TXH 0
01472 TRA PCARD
(L207
01473 (L205 TRA NEXT
KILL
MERGE
APPEND
WRITE
01474 NULL TSX WRFLEX,4
01475 TXH )S036
01476 TXH 0
01477 TRA PCARD
01500 FILE TSX GET,4
01501 STO PRINAM
01502 SUB BLANKS
01503 TNZ (L210
01504 CLA OLDNAM
01505 STO PRINAM
01506 SUB FENCE
01507 TNZ (L211
01510 TSX SETBCD,4
01511 TSX WRFLEX,4
01512 TXH )S037
01513 TXH 0
01514 TRA NEXT
(L211
(L210
01515 FILE1 TSX WRLINE,4
01516 CAL OK
01517 TZE (L212
01520 TSX RDCARD,4
01521 TXH LINE
01522 TXH LENGTH
01523 TXH LINENO
01524 TXH XEND
01525 TRA FILE1
(L212
01526 XEND TSX DFILE,4
01527 TXH NOFILE
01530 TSX RENAME,4
01531 TXH ENAME
01532 TXH TCLASS
01533 TXH PRINAM
01534 TXH CLASS
01535 TXH NODEL
01536 L3 CLS 0
1PAGE 18 COMPILATION LISTING
01537 STO (C002
01540 CLS 0
01541 STO (C003
01542 TSX CHFILE,4
01543 TXH TNAME
01544 TXH TCLASS
01545 TXH 1
01546 TXH (C002
01547 TXH (C003
01550 TXH L4
01551 TSX DELETE,4
01552 TXH TNAME
01553 TXH TCLASS
01554 TXH 0
01555 TXH L4
01556 L4 TSX UPDATE,4
01557 ERROR TSX BLACK,4
01560 TSX WRFLEX,4
01561 TXH STAR
01562 TXH 1
01563 TSX CHNCOM,4
01564 TXH 0
01565 NODEL TSX FLIP,4
01566 TRA PEDIT
01567 QUIT TSX RESET,4
01570 CLS 0
01571 STO (C002
01572 CLS 0
01573 STO (C003
01574 TSX CHFILE,4
01575 TXH ENAME
01576 TXH TCLASS
01577 TXH 1
01600 TXH (C002
01601 TXH (C003
01602 TXH L3
01603 TSX DELETE,4
01604 TXH ENAME
01605 TXH TCLASS
01606 TXH 0
01607 TXH L3
01610 TRA L3
01611 EOF TSX RED,4
01612 TSX WRFLEX,4
01613 TXH )S040
01614 TXH 0
01615 CLA 0
01616 STO LENGTH
01617 CAL FALSE
01620 SLW OK
01621 TRA PCARD
1PAGE 19 COMPILATION LISTING
01622 NOFILE TSX WRFLEX,4
01623 TXH )S041
01624 TXH 0
01625 CAL FALSE
01626 SLW OK
01627 CLA 0
01630 STO HILINE
01631 STO LINENO
01632 STO LENGTH
01633 TSX DASIGN,4
01634 TXH ENAME
01635 TXH TCLASS
01636 TXH ERROR
01637 TRA PINPUT
01640 TRA (L213
01641 CLOSE TRA (L214
01642 (L215 TSX DFILE,4
01643 TXH NOFILE
01644 TSX FLIP,4
01645 RETURN AXT **,4
01646 TRA 1,4
01647 (L214 SXA RETURN,4
01650 TRA (L215
01651 (L213 TRA (L216
01652 FLIP TRA (L217
01653 (L220 CLS 0
01654 STO (C011
01655 CLS 0
01656 STO (C012
01657 TSX CHFILE,4
01660 TXH TNAME
01661 TXH TCLASS
01662 TXH 1
01663 TXH (C011
01664 TXH (C012
01665 TXH IGNERR
01666 IGNERR TSX DELETE,4
01667 TXH TNAME
01670 TXH TCLASS
01671 TXH 0
01672 TXH ERROR
01673 TSX CHFILE,4
01674 TXH ENAME
01675 TXH TCLASS
01676 TXH 20
01677 TXH TNAME
01700 TXH TCLASS
01701 TXH ERROR
01702 TSX UPDATE,4
01703 TSX DSEEK,4
01704 TXH TNAME
1PAGE 20 COMPILATION LISTING
01705 TXH TCLASS
01706 TXH NOFILE
01707 CAL TRUE
01710 SLW OK
01711 TSX DASIGN,4
01712 TXH ENAME
01713 TXH TCLASS
01714 TXH ERROR
01715 CLA 0
01716 STO HILINE
01717 STO LINENO
01720 STO LENGTH
01721 RETURN AXT **,4
01722 TRA 1,4
01723 (L217 SXA RETURN,4
01724 TRA (L220
01725 (L216 TRA (L221
01726 WRLINE TRA (L222
01727 (L223 CLA LENGTH
01730 TZE (L224
01731 CLA LINENO
01732 SUB HILINE
01733 TZE *+2
01734 TPL (L225
01735 CLA HILINE
01736 ADD LINCR
01737 STO LINENO
01740 (L225 TSX WRCARD,4
01741 TXH LINE
01742 TXH LENGTH
01743 TXH LINENO
01744 TXH ERROR
01745 CLA LINENO
01746 SUB HILINE
01747 TMI (L226
01750 TZE (L226
01751 CLA LINENO
01752 STO HILINE
(L226
(L224
01753 RETURN AXT **,4
01754 TRA 1,4
01755 (L222 SXA RETURN,4
01756 TRA (L223
01757 (L221 TRA (L227
01760 VERPRN TRA (L230
01761 (L231 CAL VERMOD
01762 TZE (L232
01763 TSX BLACK,4
01764 TSX PRCARD,4
01765 TXH LINE
1PAGE 21 COMPILATION LISTING
01766 TXH 110
01767 TSX RED,4
(L232
01770 RETURN AXT **,4
01771 TRA 1,4
01772 (L230 SXA RETURN,4
01773 TRA (L231
01774 (L227 TRA (L233
01775 GET TRA (L234
01776 (L235 CLA EDCT
01777 STO SAVCT
02000 CAL TRUE
02001 SLW NDCHAR
02002 CLA BLANKS
02003 STO XXWORD
02004 (L236 CLA EDCT
02005 ADD 1
02006 STO EDCT
02007 CAL NDCHAR
02010 TNZ (L237
02011 LAC EDCT,1
02012 CLA EDLIN,1
02013 SUB BLANK
02014 TZE (L240
02015 CLA EDLIN,1
02016 SUB TAB
02017 TZE (L240
02020 (L237 CLA EDCT
02021 SUB COUNT
02022 TZE *+2
02023 TPL (L240
02024 LAC EDCT,1
02025 CLA EDLIN,1
02026 SUB TAB
02027 TZE (L241
02030 CLA EDLIN,1
02031 SUB BLANK
02032 TZE (L241
02033 TSX LS,4
02034 TXH XXWORD
02035 TXH 6
02036 LAC EDCT,1
02037 ORA EDLIN,1
02040 STO XXWORD
02041 CAL FALSE
02042 SLW NDCHAR
02043 (L241 TRA (L236
02044 (L240 CLA XXWORD
02045 STO XXWORD
02046 RETURN AXT **,4
02047 TRA 1,4
1PAGE 22 COMPILATION LISTING
02050 (L234 SXA RETURN,4
02051 TRA (L235
02052 (L233 TRA (L242
02053 NUM TRA (L243
02054 (L244 CLA EDCT
02055 STO SAVCT
02056 CAL TRUE
02057 SLW NDCHAR
02060 CLA 0
02061 STO XXWORD
02062 (L245 CLA EDCT
02063 ADD 1
02064 STO EDCT
02065 CAL NDCHAR
02066 TNZ (L246
02067 LAC EDCT,1
02070 CLA EDLIN,1
02071 SUB BLANK
02072 TZE (L247
02073 CLA EDLIN,1
02074 SUB TAB
02075 TZE (L247
02076 (L246 CLA EDCT
02077 SUB COUNT
02100 TZE *+2
02101 TPL (L247
02102 LAC EDCT,1
02103 CLA EDLIN,1
02104 SUB 12
02105 TZE (L250
02106 TPL (L250
02107 LDQ XXWORD
02110 MPY 12
02111 XCA
02112 ADD EDLIN,1
02113 STO XXWORD
02114 CAL FALSE
02115 SLW NDCHAR
02116 (L250 TRA (L245
02117 (L247 CLA XXWORD
02120 STO XXWORD
02121 RETURN AXT **,4
02122 TRA 1,4
02123 (L243 SXA RETURN,4
02124 TRA (L244
02125 (L242 TRA (L251
02126 MOVETO TRA (L252
02127 (L253 LAC EDCT,1
02130 CLA EDLIN,1
02131 SUB BLANK
02132 TZE (L254
1PAGE 23 COMPILATION LISTING
02133 CLA EDCT
02134 SUB 1
02135 STO EDCT
02136 (L254 CLA 0
02137 STO I
02140 (L255 CLA I
02141 ADD 1
02142 STO I
02143 CLA I
02144 SUB 124
02145 TZE *+2
02146 TPL (L256
02147 CLA EDCT
02150 SUB 124
02151 TZE (L256
02152 TPL (L256
02153 CLA EDCT
02154 ADD 1
02155 STO EDCT
02156 LAC I,1
02157 PAC 0,4
02160 CLA EDLIN,4
02161 STO LIN,1
02162 TRA (L255
02163 (L256 TSX UNTAB,4
02164 TXH LIN
02165 TZE (L257
02166 CAL TRNCSW
02167 TZE (L257
02170 TSX BLACK,4
02171 TSX WRFLEX,4
02172 TXH )S016
02173 TXH 0
02174 TSX PRCARD,4
02175 TXH LIN
02176 TXH 110
02177 TSX RED,4
(L257
02200 RETURN AXT **,4
02201 TRA 1,4
02202 (L252 SXA RETURN,4
02203 CLA 1,4
02204 STA 2161
02205 STA 2164
02206 STA 2175
02207 TRA (L253
BEGIN 00010___
COMMENT ..... GENERAL ROUTINE TO INTERPRET TABS ..... $, 00020___
INTEGER ARRAY TABS(30),TCARD(84) $, 00030___
INTEGER I,COL,TAB $, 00040___
BOOLEAN PRVTB,THSTB,COLVAL,VAL $, 00050___
PRESET TABS = 0 $, 00060___
PRESET COLVAL = 1B $, 00070___
COMMENT ..... ENTRY TO SET UP TAB SETTINGS ..... $, 00080___
00090___
DEFINE PROCEDURE SETTAB(CARD) WHERE INTEGER ARRAY CARD TOBE 00100___
BEGIN 00110___
FOR I = 0 STEP 1 UNTIL CARD 00120___
DO TABS(I) = CARD(I) $, 00130___
END $, 00140___
00150___
COMMENT .... ENTRY TO SET INTERPRETATION OF COLON CHAR. ... $, 00160___
00170___
DEFINE PROCEDURE SETCOL(WORD) WHERE BOOLEAN WORD TOBE 00180___
COLVAL = WORD $, 00190___
00200___
COMMENT ..... ENTRY TO UNPACK CARD WITH TABS ..... $, 00210___
00220___
DEFINE BOOLEAN PROCEDURE UNTAB(CARD) WHERE INTEGER ARRAY CARD 00230___
TOBE 00240___
BEGIN 00250___
FOR I = 1 STEP 1 UNTIL 84 00260___
DO BEGIN 00270___
TCARD(I) = CARD(I) $, 00280___
CARD(I) = .BCD. '00000 ' $, 00290___
END $, 00300___
CARD = COL = TAB = 1 $, 00310___
PRVTB = COLVAL $, 00320___
FOR I = 1 STEP 1 UNTIL 84 00330___
DO BEGIN 00340___
IF (TCARD = TCARD(I)) EQL 55C 00350___
THEN BEGIN 00360___
VAL = FALSE $, 00370___
GOTO RETURN $, 00380___
END $, 00390___
IF COL GRT 72 00400___
THEN BEGIN 00410___
IF TCARD NEQ 60C 00420___
THEN BEGIN 00430___
VAL = TRUE $, 00440___
GOTO RETURN $, 00450___
END $, 00460___
END 00470___
ELSE BEGIN 00480___
THSTB = COLVAL $, 00490___
IF TCARD EQL 72C 00500___
THEN BEGIN 00510___
THSTB = TRUE $, 00520___
TABSET $ IF TAB GRT TABS 00530___
THEN COL = COL+2 00540___
ELSE IF TABS(TAB) LEQ COL 00550___
THEN BEGIN 00560___
TAB = TAB+1 $, 00570___
GOTO TABSET $, 00580___
END 00590___
ELSE COL = TABS(TAB) $, 00600___
END 00610___
ELSE IF PRVTB AND TCARD EQL 35C 00620___
THEN BEGIN 00630___
IF COL GRT 1 00640___
THEN BEGIN 00650___
COL = COL-1 $, 00660___
UNSET $ IF TAB GRT 1 AND TABS(TAB) GRT 00670___
COL 00680___
THEN BEGIN 00690___
TAB = TAB-1 $, 00700___
GOTO UNSET $, 00710___
END $, 00720___
END $, 00730___
END 00740___
ELSE BEGIN 00750___
IF (CARD(COL) = TCARD) NEQ .BCD. '000 00760___
00 ' AND COL GRT CARD THEN CARD = COL $, 00770___
COL = COL+1 $, 00780___
END $, 00790___
PRVTB = THSTB $, 00800___
END $, 00810___
END $, 00820___
VAL = FALSE $, 00830___
END $, 00840___
00850___
END FINI 00860___
1PAGE 1 COMPILATION LISTING
00001 SETTAB TRA (L000
(L001
00002 (L002 CLA 0
00003 STO I
00004 (L003 LXA CARD,4
00005 SXD (L004,4
00006 LXA I,4
00007 (L004 TXH (L005,4
00010 LAC I,1
00011 CLA CARD,1
00012 STO TABS,1
00013 LXA I,4
00014 TXI *+1,4,1
00015 SXA I,4
00016 TRA (L003
(L005
00017 RETURN AXT **,4
00020 TRA 1,4
00021 (L000 SXA RETURN,4
00022 CLA 1,4
00023 STA 4
00024 STA 11
00025 TRA (L001
00026 SETCOL TRA (L006
00027 (L007 CAL WORD
00030 SLW COLVAL
00031 RETURN AXT **,4
00032 TRA 1,4
00033 (L006 SXA RETURN,4
00034 CLA 1,4
00035 STA 27
00036 TRA (L007
00037 UNTAB TRA (L010
(L011
00040 (L012 CLA 1
00041 STO I
00042 LXA I,4
00043 (L013 TXH (L014,4,124
00044 LAC I,1
00045 CLA CARD,1
00046 STO TCARD,1
00047 CLA )S001
00050 STO CARD,1
00051 LXA I,4
00052 TXI *+1,4,1
00053 SXA I,4
00054 TRA (L013
00055 (L014 CLA 1
00056 STO TAB
00057 STO COL
00060 STO CARD
1PAGE 2 COMPILATION LISTING
00061 CAL COLVAL
00062 SLW PRVTB
00063 (L015 CLA 1
00064 STO I
00065 LXA I,4
00066 (L016 TXH (L017,4,124
00067 LAC I,1
00070 CLA TCARD,1
00071 STO TCARD
00072 SUB 55
00073 TNZ (L020
00074 CAL FALSE
00075 SLW VAL
00076 TRA RETURN
00077 (L020 CLA COL
00100 SUB 110
00101 TMI (L021
00102 TZE (L021
00103 CLA TCARD
00104 SUB 60
00105 TZE (L022
00106 CAL TRUE
00107 SLW VAL
00110 TRA RETURN
00111 (L022 TRA (L023
00112 (L021 CAL COLVAL
00113 SLW THSTB
00114 CLA TCARD
00115 SUB 72
00116 TNZ (L024
00117 CAL TRUE
00120 SLW THSTB
00121 TABSET CLA TAB
00122 SUB TABS
00123 TMI (L025
00124 TZE (L025
00125 CLA COL
00126 ADD 2
00127 STO COL
00130 TRA (L026
00131 (L025 LAC TAB,1
00132 CLA TABS,1
00133 SUB COL
00134 TZE *+2
00135 TPL (L027
00136 CLA TAB
00137 ADD 1
00140 STO TAB
00141 TRA TABSET
00142 TRA (L030
00143 (L027 LAC TAB,1
1PAGE 3 COMPILATION LISTING
00144 CLA TABS,1
00145 STO COL
(L030
00146 (L026 TRA (L031
00147 (L024 CAL PRVTB
00150 TZE (L032
00151 CLA TCARD
00152 SUB 35
00153 TNZ (L032
00154 CLA COL
00155 SUB 1
00156 TMI (L033
00157 TZE (L033
00160 CLA COL
00161 SUB 1
00162 STO COL
00163 UNSET CLA TAB
00164 SUB 1
00165 TMI (L034
00166 TZE (L034
00167 LAC TAB,1
00170 CLA TABS,1
00171 SUB COL
00172 TMI (L034
00173 TZE (L034
00174 CLA TAB
00175 SUB 1
00176 STO TAB
00177 TRA UNSET
(L034
00200 (L033 TRA (L035
00201 (L032 LAC COL,1
00202 CLA TCARD
00203 STO CARD,1
00204 SUB )S001
00205 TZE (L036
00206 CLA COL
00207 SUB CARD
00210 TMI (L036
00211 TZE (L036
00212 CLA COL
00213 STO CARD
00214 (L036 CLA COL
00215 ADD 1
00216 STO COL
(L035
00217 (L031 CAL THSTB
00220 SLW PRVTB
00221 (L023 LXA I,4
00222 TXI *+1,4,1
00223 SXA I,4
1PAGE 4 COMPILATION LISTING
00224 TRA (L016
00225 (L017 CAL FALSE
00226 SLW VAL
00227 RETURN AXT **,4
00230 TRA 1,4
00231 (L010 SXA RETURN,4
00232 CLA 1,4
00233 STA 45
00234 STA 50
00235 STA 60
00236 STA 203
00237 STA 207
00240 STA 213
00241 TRA (L011
1 PAGE 1
NCLIB --- SUBROUTINE ENTRIES TO AVOID LOADING LIBRARY
PCC ON
PMC ON
00002 ENTRY CHNCOM EXIT TO CTSS
00031 ENTRY COMARG GET PARAMETER FROM COMMAND LIST
00007 ENTRY SETBCD SET CONSOLE IN 6-BIT MODE
00010 ENTRY SETFUL SET CONSOLE IN 12-BIT MODE
00011 ENTRY SETBRK SET CONSOLE INTERRUPT PROCEDURE
00012 ENTRY WHOAMI DETERMINE THE USER
00013 ENTRY RED CHANGE CONSOLE TO RED
00022 ENTRY BLACK CHANGE CONSOLE TO BLACK
TSSX MACRO A CALL CORE A
AXC *+1,4 .
TIA =H'A ..
TSSX END ..
LINKAGE DIRECTOR
00000 000000000000
00001 233045234644
00002 -0500 60 4 00001 EXIT CAL* 1,4 EXIT TO CTSS
00003 0621 00 0 00006 STA CHNARG
00004 -0774 00 4 00005 AXC *+1,4 EXIT TO NEXT COMMAND
00005 0101 00 0 00045 TIA =HCHNCOM .. OR GO DEAD OR DORMANT
00006 0 00000 0 00000 CHNARG PZE ** ..
00002 CHNCOM SYN EXIT CHNCOM SAME AS EXIT
00007 0101 00 0 00047 SETBCD TIA =HSETBCD SET CONSOLE IN 6-BIT MODE
00010 0101 00 0 00051 SETFUL TIA =HSETFUL SET CONSOLE IN 12-BIT MODE
00011 0101 00 0 00050 SETBRK TIA =HSETBRK SET CONSOLE INTERRUPT PROCEDURE
00012 0101 00 0 00052 WHOAMI TIA =HWHOAMI DETERMINE THE USER
00013 0634 00 4 00041 RED SXA X4,4 COLOR SHIFT TO RED
00014 0074 00 4 00010 TSX SETFUL,4 SET CONSOLE IN 12-BIT MODE
00015 TSSX WRFLXA GIVE RED COLOR SHIFT
00015 -0774 00 4 00016 AXC *+1,4 .001
00016 0101 00 0 00053 TIA =HWRFLXA .. .001
00017 0 00001 0 00043 REDS,,1 ..
00020 0074 00 4 00007 TSX SETBCD,4 RETURN CONSOLE TO 6-BIT MODE
00021 0020 00 0 00041 TRA X4 RETURN
00022 0634 00 4 00041 BLACK SXA X4,4 COLOR SHIFT TO BLACK
00023 0074 00 4 00010 TSX SETFUL,4 SET CONSOLE IN 12-BIT MODE
00024 TSSX WRFLXA GIVE BLACK COLOR SHIFT
00024 -0774 00 4 00025 AXC *+1,4 .001
00025 0101 00 0 00053 TIA =HWRFLXA .. .001
00026 0 00001 0 00044 BLACKS,,1 ..
1 PAGE 2
NCLIB --- SUBROUTINE ENTRIES TO AVOID LOADING LIBRARY
00027 0074 00 4 00007 TSX SETBCD,4 RETURN CONSOLE TO 6-BIT MODE
00030 0020 00 0 00041 TRA X4 RETURN
00031 0634 00 4 00041 COMARG SXA X4,4 GET PARAMETER FROM COMMAND LIST
00032 -0500 60 4 00001 CAL* 1,4 NUMBER OF DESIRED PARAMETER
00033 0602 00 0 00036 SLW CARGNO ..
00034 TSSX GETCOM PICK UP ARGUMENT
00034 -0774 00 4 00035 AXC *+1,4 .001
00035 0101 00 0 00046 TIA =HGETCOM .. .001
00036 0 00000 0 00000 CARGNO PZE ** ..
00037 -0130 00 0 00000 XCL LOGICAL AC TO MQ
00040 0131 00 0 00000 XCA RETURN TO ARITH. AC
00041 0774 00 4 00000 X4 AXT **,4 RETURN TO PROGRAM
00042 0020 00 4 00001 TRA 1,4 ..
00043 +013300570057 REDS OCT 013300570057 COLOR SHIFT(RED), NULL, NULL
00044 +013200570057 BLACKS OCT 013200570057 COLOR SHIFT(BLACK), NULL, NULL
1 PAGE 3
LITERALS AND CROSS-REFERENCE LISTING FOR NCLIB
TTL LITERALS AND CROSS-REFERENCE LISTING FOR NCLIB
END
LITERALS
00045 233045234644
00046 272563234644
00047 622563222324
00050 622563225142
00051 622563266443
00052 663046214431
00053 665126436721
1 PAGE 1
POST PROCESSOR ASSEMBLY DATA
54 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
41 X4 13, 21, 22, 30, 31
13 RED 0
2 EXIT 7
43 REDS 17
22 BLACK 0
44 BLACKS 26
36 CARGNO 33
6 CHNARG 3
2 CHNCOM 0, 7
31 COMARG 0
7 SETBCD 0, 20, 27
11 SETBRK 0
10 SETFUL 0, 14, 23
12 WHOAMI 0
0 NO ERROR IN ABOVE ASSEMBLY.
1 PAGE 1
EDUTL --- UTILITY ROUTINES FOR 'ED' IN ALGOL
00004 ENTRY WRFLEX OUTPUT ON TYPEWRITER
00007 ENTRY WFLEXA OUTPUT ON TYPEWRITER W/O C/R
00032 ENTRY LS
LINKAGE DIRECTOR
00000 000000000000
00001 665126432567
00002 0101 00 0 00042 WRFLXA TIA =HWRFLXA
00003 0101 00 0 00043 WRFLX TIA =HWRFLX
00004 0634 00 1 00027 WRFLEX SXA XR1,1 OUTPUT ON TYPEWRITER
00005 0774 00 1 00003 AXT WRFLX,1 ..
00006 0020 00 0 00011 TRA WRITE ..
00007 0634 00 1 00027 WFLEXA SXA XR1,1 ..
00010 0774 00 1 00002 AXT WRFLXA,1 ..
00011 0634 00 1 00025 WRITE SXA WR.2,1 SAVE ROUTINE TO CALL
00012 0634 00 4 00030 SXA XR4,4
00013 -0500 60 4 00002 CAL* 2,4 GET COUNT
00014 -0100 00 0 00021 TNZ WR.1 BCD OR BCI
00015 -0500 60 4 00001 CAL* 1,4 BCI
00016 0622 00 0 00026 STD WR.2+1 ..
00017 0621 00 0 00026 STA WR.2+1 ..
00020 0020 00 0 00025 TRA WR.2 ..
00021 0767 00 0 00022 WR.1 ALS 18 ..
00022 0622 00 0 00026 STD WR.2+1 ..
00023 -0500 00 4 00001 CAL 1,4 .
00024 0621 00 0 00026 STA WR.2+1 ..
00025 0074 00 4 00000 WR.2 TSX **,4 ..
00026 0 00000 0 00000 *** **,,** ..
00027 0774 00 1 00000 XR1 AXT **,1 ..
00030 0774 00 4 00000 XR4 AXT **,4 ..
00031 0020 00 4 00001 TRA 1,4
00032 0634 00 1 00040 LS SXA LSX1,1 SAVE INDEX 1
00033 -0500 60 4 00002 CAL* 2,4 GET SHIFT
00034 0737 00 1 00000 PAC ,1 ..
00035 0560 60 4 00001 LDQ* 1,4 GET WORD
00036 -0763 00 1 00000 LGL 0,1 SHIFT IT
00037 0131 00 0 00000 XCA AND LEAVE IN ARITHMETIC AC
00040 0774 00 1 00000 LSX1 AXT **,1 ..
00041 0020 00 4 00001 TRA 1,4 ..
END
LITERALS
00042 665126436721
00043 665126436760
1 PAGE 1
POST PROCESSOR ASSEMBLY DATA
44 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
32 LS 0
27 XR1 4, 7
30 XR4 12
40 LSX1 32
21 WR.1 14
25 WR.2 11, 16, 17, 20, 22, 24
3 WRFLX 5
11 WRITE 6
7 WFLEXA 0
4 WRFLEX 0
2 WRFLXA 10
0 NO ERROR IN ABOVE ASSEMBLY.
1PAGE 1 EDIOP --- I/O SUBROUTINES FOR 'ED', ALGOL VERSION 17 HR 42 MN 9 SEC 3/01/68
SUBROUTINE ENTRY POINTS
00003 DSEEK
00044 RDCARD
00224 DASIGN
00264 WRCARD
00404 DFILE
00436 RENAME
00714 UPDATE
00717 CHFILE
00713 RESET
00720 IODIAG
00734 WRFLX
00735 WRFLXA
00573 RDTYPE
00633 PRCARD
TRANSFER VECTOR
00000 475145632551 PRNTER
00001 622563222324 SETBCD
00002 242543256325 DELETE
* PMC ON
ENTRY DSEEK TO OPEN CARD FILE FOR READING
ENTRY RDCARD TO READ A CARD FROM CARD FILE
ENTRY DASIGN TO OPEN CARD FILE FOR WRITING
ENTRY WRCARD TO WRITE A CARD INTO FILE
ENTRY DFILE TO CLOSE OUT THE WRITE FILE
ENTRY RENAME TO RENAME A FILE
ENTRY UPDATE TO UPDATE USER UFD
ENTRY CHFILE TO CHANGE THE NAME/MODE OF A FILE
ENTRY RESET TO RESET USER FILE STATUS
ENTRY IODIAG
ENTRY WRFLX
ENTRY WRFLXA
ENTRY RDTYPE TO READ A LINE FROM CONSOLE
ENTRY PRCARD TO PRINT A LINE ON CONSOLE
EXTERN PRNTER,SETBCD,DELETE
MACRO
LOC 0 N(A)
IFF 0,/CRS/LOC
LOC SYN *
TSX N,4
ARG (A)
0 END
1PAGE 2 EDIOP --- I/O SUBROUTINES FOR 'ED', ALGOL VERSION 17 HR 42 MN 9 SEC 3/01/68
ARG MACRO PARS
IRP PARS
PAR PARS
IRP
ARG END
SYSENT MACRO NAME
REM
IRP NAME
NAME TIA =H'NAME
IRP
SYSENT END
PAR OPSYN PTH
BLK OPSYN TIX FLAG NON-DECR. BLKS
00660 BUFLN EQU 432 CURRENT LENGTH OF DISK/DRUM RECORDS
00016 CRDLN EQU 14
00003 SWN EQU 3
00676 RDLN EQU BUFLN+CRDLN
00220 SMBLN EQU BUFLN/SWN
00236 WBLN EQU SMBLN+CRDLN
02014 BUFSUM EQU BUFLN+RDLN+WBLN SUM OF BUFFERS TAKEN FROM MEM-BOUND
1PAGE 3 CARD-IMAGE INPUT FROM DISK 17 HR 42 MN 9 SEC 3/01/68
00003 0634 00 4 00652 DSEEK SXA X4,4 OPEN A FILE FOR READING
00004 0500 60 4 00001 CLA* 1,4 GET FIRST NAME
00005 0560 60 4 00002 LDQ* 2,4 GET SECOND NAME
00006 -0603 00 0 01010 DST RD SAVE FOR READING
00007 -0500 00 4 00003 CAL 3,4 POSSIBLE ERROR RETURN
00010 0621 00 0 00162 STA ERRTN ..
00011 -0500 00 0 01026 CAL RB. FIND LOCATION OF READ BUFFER
00012 0020 00 0 00013 GETRB TRA *+1 ONE-SHOT SWITCH
GETBUF(RDBF)
00015 0621 00 0 01026 STA RB.
00016 -0625 00 0 00012 STL GETRB CLOSE THIS PATH
00017 0621 00 0 01030 STA RE.
00020 0621 00 0 01027 STA R.
00021 0600 00 0 00002 STZ NXTEOF
OPEN(=HR,RD,RD+1,M,M,ERSEEK,ERRCOD)
RPRIME()
00033 -0520 00 0 01025 NZT EOFCT
00034 -0625 00 0 00002 STL NXTEOF
00035 0020 00 0 00652 TRA X4 RETURN
00036 -0500 00 0 01024 ERSEEK CAL ERRCOD
00037 0402 00 0 01040 SUB =12 IS IT FILE NOT FOUND
00040 -0100 00 0 00475 TNZ ERRTRA NO, FAKE 'FERRTN'
WRFLX((RD,,4))
00043 0020 00 0 00162 TRA ERRTN
00044 0634 00 4 00652 RDCARD SXA X4,4 READ A CARD FROM FILE
00045 -0500 00 4 00001 CAL 1,4 LINE ARRAY
00046 0621 00 0 00117 STA RDLIN ..
00047 -0500 00 4 00002 CAL 2,4 LENGTH
00050 0621 00 0 00123 STA LENGTH ..
00051 -0500 00 4 00003 CAL 3,4 LINENO
00052 0621 00 0 00147 STA RDLNO ..
00053 -0500 00 4 00004 CAL 4,4 POSSIBLE ERROR RETURN
00054 0621 00 0 00162 STA ERRTN ..
00055 0520 00 0 00002 ZET NXTEOF
00056 0020 00 0 00157 TRA RCLOS
00057 0520 00 0 01025 ZET RWAIT
FWAIT(RD,RD+1)
00063 0600 00 0 01025 STZ RWAIT
00064 0774 00 4 00016 AXT CRDLN,4
00065 0535 00 1 01027 LAC R.,1
00066 -0500 00 1 00000 CAL 0,1
00067 0602 00 4 00021 SLW BUF+CRDLN,4
00070 1 77777 1 00071 TXI *+1,1,-1
00071 2 00001 4 00066 TIX *-3,4,1
00072 -0500 00 0 01027 CAL R.
00073 0361 00 0 01000 ACL CRDF
00074 0621 00 0 01027 STA R.
00075 0361 00 0 01000 ACL CRDF
00076 -0340 00 0 01030 LAS RE.
00077 0020 00 0 00151 TRA RDREC
00100 0774 00 0 00000 AXT 0,0
00101 RDUNP SYN *
1PAGE 4 CARD-IMAGE INPUT FROM DISK 17 HR 42 MN 9 SEC 3/01/68
00101 0020 00 0 00102 CHARSW TRA *+1 ONE-SHOT SWITCH
00102 -0500 00 0 00017 CAL BUF+12 GET CHARACTERS FROM ID FIELD
00103 -0320 00 0 01101 ANA =O777777000000 ..
00104 0602 00 0 01006 SLW SEQCHR 3 CHARS IN SEQUENCE FIELD
00105 -0320 00 0 01100 ANA =O777700000000 ..
00106 0602 00 0 01007 SLW SQCHR1 2 CHARS IN SEQUENCE FIELD
00107 -0625 00 0 00101 STL CHARSW DON'T GO THROUGH THIS SEQUENCE AGAIN
00110 0774 00 1 00000 AXT 0,1 ..
00111 0774 00 2 00016 AXT 14,2 ..
00112 0560 00 2 00021 RDC1 LDQ BUF+14,2 UNPACK CARD
00113 0774 00 4 00006 AXT 6,4 ..
00114 -0754 00 0 00000 RDC2 ZAC ..
00115 -0763 00 0 00006 LGL 6 ..
00116 1 77777 1 00117 TXI *+1,1,-1 .. COUNTS CHARACTERS
00117 0602 00 1 00000 RDLIN SLW **,1 ..
00120 2 00001 4 00114 TIX RDC2,4,1 ..
00121 2 00001 2 00112 TIX RDC1,2,1 ..
00122 0756 00 1 00000 PCA 0,1 CHARACTER COUNT
00123 0602 00 0 00000 LENGTH SLW ** .. SAVE IT
00124 -0500 00 0 00017 CAL BUF+12 COLUMNS 73-78
00125 0560 00 0 00020 LDQ BUF+13 COLUMNS 79-84
00126 -0763 00 0 00014 LGL 12 COLUMNS 75-80 TO AC
00127 0602 00 0 00001 SLW TNUM
00130 -0320 00 0 01067 ANA =H
00131 0771 00 0 00004 ARS 4
00132 0114 06 0 00773 CVR TB4,,6
00133 -0320 00 0 00001 ANA TNUM
00134 -0130 00 0 00000 XCL
00135 0600 00 0 00001 STZ TNUM ..
00136 0774 00 4 00006 AXT 6,4 ..
00137 -0754 00 0 00000 RDDTBC ZAC CONVERT LINE NUMBER TO BINARY
00140 -0763 00 0 00003 LGL 3 ..
00141 0401 00 0 00001 ADM TNUM ..
00142 -0763 00 0 00003 LGL 3 ..
00143 0401 00 0 00001 ADM TNUM ..
00144 0361 00 0 00001 ACL TNUM ..
00145 0602 00 0 00001 SLW TNUM ..
00146 2 00001 4 00137 TIX RDDTBC,4,1 ..
00147 0602 00 0 00000 RDLNO SLW ** SAVE BINARY LINE NUMBER
00150 0020 00 0 00652 TRA X4 RETURN
00151 0520 00 0 00000 RDREC ZET EOFSW
00152 0020 00 0 00155 TRA RDEOF1
RPRIME()
00154 0020 00 0 00101 TRA RDUNP
00155 -0625 00 0 00002 RDEOF1 STL NXTEOF
00156 0020 00 0 00101 TRA RDUNP
RCLOS CLOSE(RD,RD+1)
00162 0020 00 0 00000 ERRTN TRA **
00163 0634 00 4 00222 RPRIME SXA RPRX,4
00164 -0500 00 0 01030 CAL RE.
1PAGE 5 CARD-IMAGE INPUT FROM DISK 17 HR 42 MN 9 SEC 3/01/68
00165 0402 00 0 01027 SUB R.
00166 0100 00 0 00177 TZE NOMOVE
00167 0734 00 4 00000 PAX ,4
00170 0535 00 1 01027 LAC R.,1
00171 0535 00 2 01026 LAC RB.,2
00172 0560 00 1 00000 LDQ 0,1
00173 -0600 00 2 00000 STQ 0,2
00174 1 77777 1 00175 TXI *+1,1,-1
00175 1 77777 2 00176 TXI *+1,2,-1
00176 2 00001 4 00172 TIX *-4,4,1
00177 0361 00 0 01026 NOMOVE ACL RB.
00200 0621 00 0 00213 STA RDLOC
00201 0621 00 0 01030 STA RE.
00202 -0500 00 0 01026 CAL RB.
00203 0621 00 0 01027 STA R.
00204 0774 00 4 00660 AXT BUFLN,4
00205 0634 00 4 01025 SXA EOFCT,4
00206 -0625 00 0 00000 STL EOFSW
RDFILE(RD,RD+1,=0)
00213 RDLOC ARG ((**,,BUFLN)EOFRD,EOFCT)
00216 0600 00 0 00000 STZ EOFSW
00217 -0500 00 0 01030 EOFRD CAL RE.
00220 0361 00 0 01025 ACL EOFCT
00221 0621 00 0 01030 STA RE.
00222 0774 00 4 00000 RPRX AXT **,4
00223 0020 00 4 00001 TRA 1,4
1PAGE 6 CARD-IMAGE OUTPUT TO DISK 17 HR 42 MN 9 SEC 3/01/68
00224 0634 00 4 00652 DASIGN SXA X4,4 OPEN FILE FOR WRITING
00225 0500 60 4 00001 CLA* 1,4 GET FIRST NAME
00226 0560 60 4 00002 LDQ* 2,4 SECOND NAME
00227 -0603 00 0 01014 DST WR SAVE WRITE NAMES
00230 -0500 00 4 00003 CAL 3,4 GET LOCATION OF ERR. RETURN
00231 0621 00 0 00162 STA ERRTN ..
00232 -0500 00 0 01031 CAL WB.
00233 0020 00 0 00234 GETWB TRA *+1 ONE-SHOT SWITCH
GETBUF(BUFCON)
00236 0621 00 0 00262 STA WBUFFS ..
GETBUF(WRBF)
00241 0621 00 0 01031 STA WB.
00242 0621 00 0 00402 STA WRLOC
00243 -0625 00 0 00233 STL GETWB CLOSE THIS PATH
00244 0621 00 0 01032 STA W.
00245 0361 00 0 01004 ACL SMBF
00246 0621 00 0 01033 STA WE.
00247 0774 00 4 00003 AXT SWN,4
00250 0634 00 4 01034 SXA WRCT,4
00251 0600 00 0 01035 STZ WRSW
OPEN(=HW,WR,WR+1,=O20)
BUFFER(WR,WR+1)
00262 WBUFFS ARG ((**,,BUFLN))
00263 0020 00 0 00652 TRA X4 RETURN
00264 -0520 60 4 00002 WRCARD NZT* 2,4 WRITE A CARD INTO FILE
00265 0020 00 4 00005 TRA 5,4 SKIP IF NOTHING TO WRITE
00266 0634 00 4 00652 SXA X4,4 ..
00267 -0500 00 4 00001 CAL 1,4 MOVE PARAMETERS (BASE)
00270 0621 00 0 00276 STA WRC1+1 ..
00271 -0500 00 4 00002 CAL 2,4 .. (LENGTH)
00272 0621 00 0 00277 STA WRC1+2 ..
00273 0500 00 4 00004 CLA 4,4 POSSIBLE ERROR RETURN
00274 0621 00 0 00162 STA ERRTN ..
WRC1 PACK(**,**) PACK CHARACTERS INTO CARD IMAGE
00300 0522 00 0 00652 XEC X4
00301 0560 60 4 00003 LDQ* 3,4
00302 -0754 00 0 00000 PXD ,0
00303 0221 00 0 01047 DVP =1000000
00304 0560 00 0 01036 LDQ =0
00305 0765 00 0 00002 LRS 2
00306 0774 00 1 00006 AXT 6,1
00307 0225 06 1 00773 VDP DTAB,1,6
00310 2 00001 1 00307 TIX *-1,1,1
00311 -0130 00 0 00000 XCL
00312 0560 00 0 01067 LDQ =H BLANKS TO MQ
00313 -0765 00 0 00014 LGR 12 SHIFT LINE NUMBER TO COLUMN 75-80
00314 0044 00 0 00000 PAI PREPARE TO TEST FOR NUMBER W/ 6 DIGITS
00315 -0501 00 0 01007 ORA SQCHR1 ..
00316 -0054 00 000017 LFT 17 TEST FOR NUMBER .GE. 100000
00317 0020 00 0 00321 TRA *+2 NON-ZERO, LEAVE 2-CHAR. ID
00320 -0501 00 0 01006 ORA SEQCHR 'OR' IN 3 CHARS OF ID
00321 0602 00 0 00017 SLW BUF+12 PLACE LINE NUMBER INTO CARD IMAGE
00322 -0600 00 0 00020 STQ BUF+13 ..
1PAGE 7 CARD-IMAGE OUTPUT TO DISK 17 HR 42 MN 9 SEC 3/01/68
00323 -0520 00 0 01035 NZT WRSW
00324 0020 00 0 00354 TRA WRCX
00325 0600 00 0 01035 STZ WRSW
00326 0520 00 0 01034 ZET WWAIT
00327 0020 00 0 00335 TRA WRCY
FWAIT(WR,WR+1)
00333 -0500 00 0 01005 CAL WB1
00334 0020 00 0 00337 TRA *+3
00335 -0500 00 0 01034 WRCY CAL WRCT
00336 0402 00 0 01037 SUB =1
00337 0621 00 0 01034 STA WRCT
00340 -0500 00 0 01032 CAL W.
00341 0402 00 0 01033 SUB WE.
00342 0100 00 0 00351 TZE WRCZ
00343 0734 00 4 00000 PAX ,4
00344 0535 00 2 01031 LAC WB.,2
00345 0560 00 2 00220 LDQ SMBLN,2
00346 -0600 00 2 00000 STQ 0,2
00347 1 77777 2 00350 TXI *+1,2,-1
00350 2 00001 4 00345 TIX *-3,4,1
00351 0361 00 0 01031 WRCZ ACL WB.
00352 0621 00 0 01032 STA W.
00353 0020 00 0 00355 TRA *+2
00354 -0500 00 0 01032 WRCX CAL W.
00355 0737 00 2 00000 PAC ,2
00356 0361 00 0 01000 ACL CRDF
00357 -0340 00 0 01033 LAS WE.
00360 0774 00 0 00000 AXT 0,0
00361 -0625 00 0 01035 STL WRSW
00362 0602 00 0 01032 SLW W.
00363 0774 00 4 00016 AXT CRDLN,4
00364 0560 00 4 00021 LDQ BUF+CRDLN,4
00365 -0600 00 2 00000 STQ 0,2
00366 1 77777 2 00367 TXI *+1,2,-1
00367 2 00001 4 00364 TIX *-3,4,1
00370 -0520 00 0 01035 NZT WRSW
00371 0020 00 0 00652 TRA X4
00372 -0774 00 1 00725 AXC WRWAIT,1
00373 -0520 00 0 01034 NZT WRCT
00374 -0774 00 1 00724 AXC WRFILE,1
00375 -0774 00 4 00376 AXC *+1,4
00376 0020 00 1 00000 TRA 0,1
00377 ARG (WR,WR+1,=0)
00402 WRLOC ARG ((**,,SMBLN))
00403 0020 00 0 00652 TRA X4 RETURN
00404 0634 00 4 00652 DFILE SXA X4,4 CLOSE OUT WRITE FILE
00405 -0500 00 4 00001 CAL 1,4
00406 0621 00 0 00162 STA ERRTN
00407 -0500 00 0 01031 CAL WB.
00410 -0520 00 0 01035 NZT WRSW
00411 0020 00 0 00417 TRA WCLOS
00412 -0520 00 0 01034 NZT WWAIT
FWAIT(WR,WR+1)
1PAGE 8 CARD-IMAGE OUTPUT TO DISK 17 HR 42 MN 9 SEC 3/01/68
00416 -0500 00 0 01033 CAL WE.
00417 0602 00 0 00001 WCLOS SLW TNUM
00420 0621 00 0 00431 STA WRLC1
00421 -0500 00 0 01032 CAL W.
00422 0402 00 0 00001 SUB TNUM
00423 0100 00 0 00432 TZE WCL1
00424 0602 00 0 00001 SLW TNUM
WRWAIT(WR,WR+1,=0)
00431 2 00001 0 00000 WRLC1 BLK **,,TNUM
WCL1 CLOSE(WR,WR+1)
00435 0020 00 0 00652 TRA X4 RETURN
1PAGE 9 UTILITY DISK SUBROUTINES 17 HR 42 MN 9 SEC 3/01/68
00436 0634 00 4 00652 RENAME SXA X4,4 RENAME A FILE
00437 0500 60 4 00001 CLA* 1,4 OLD 1
00440 0560 60 4 00002 LDQ* 2,4 OLD 2
00441 -0603 00 0 01020 DST OLD ..
00442 0500 60 4 00003 CLA* 3,4 NEW 1
00443 0560 60 4 00004 LDQ* 4,4 NEW 2
00444 -0603 00 0 01016 DST NEW ..
00445 -0500 00 4 00005 CAL 5,4 ERROR RETURN
00446 0621 00 0 00162 STA ERRTN ..
00447 0600 00 0 00023 STZ ARY+1 SET MODE TO ZERO, IN CASE NO FILE
FSTATE(NEW,NEW+1(ARY,,2)*)
00455 -0500 00 0 00023 CAL ARY+1
00456 -0320 00 0 01044 ANA =O176
00457 0602 00 0 00021 SLW MODES
DELETE(NEW,NEW+1,=0,ERRTN)
CHFILE(OLD,OLD+1,MODES,NEW,NEW+1,ERRTN)
00474 0020 00 0 00652 TRA X4 RETURN
1PAGE 10 ERROR TRAPS FOR DISK I/O 17 HR 42 MN 9 SEC 3/01/68
00475 -3 00513 0 00476 ERRTRA TXL *+1,,ERX4+2 MAKE IT LOOK LIKE MAD STMT LABEL
00476 0634 00 4 00511 SXA ERX4,4
SETBCD()
PRNTER()
WRFLXA((DOYOU,,4))
RDYES(*+2)
00505 0020 00 0 00162 TRA ERRTN
WRFLX((TRYMSG,,6))
DORMNT()
00511 0774 00 4 00000 ERX4 AXT **,4
00512 0020 00 4 00000 TRA 0,4
00513 -3 00543 0 00514 TIRRTN TXL *+1,,TIRX4+2 AS AT 'ERRTRA'
00514 0634 00 4 00541 SXA TIRX4,4
00515 -0500 00 4 00000 CAL 0,4
00516 0737 00 2 00000 PAC ,2 GET S/R LOCATION
00517 0560 60 2 00000 LDQ* 0,2 GET S/R NAME (ASSUME TSX-TIA-BCD)
00520 -0600 00 0 00746 STQ LOCKMS+6 SAVE FOR PRINTING
00521 -0320 00 0 01045 ANA =O77777
00522 0402 00 0 00777 SUB OPNC
00523 -0100 00 0 00525 TNZ *+2
00524 1 77777 4 00525 TXI *+1,4,-1
00525 0500 60 4 00001 CLA* 1,4
00526 0560 60 4 00002 LDQ* 2,4
00527 -0603 00 0 00740 DST LOCKMS PUT FILE-NAME IN MESSAGE
SETBCD()
WRFLXA((LOCKMS,,10))
WRFLXA((LOCKM1,,2))
RDYES(ERRTN)
TILOCK(=0)
00541 0774 00 4 00000 TIRX4 AXT **,4
00542 0020 00 4 00000 TRA 0,4
1PAGE 11 OBTAIN I/O BUFFERS FROM USER'S MEMORY BOUND 17 HR 42 MN 9 SEC 3/01/68
00543 0634 00 4 00553 GETBUF SXA GETBX4,4 SAVE
00544 0600 00 0 00003 STZ BUF RESET WORD
GETMEM() FIND CURRENT MEMORY BOUND
00546 0621 00 0 00003 STA BUF (=FIRST LOCATION FOR RETURNED BUFFER)
00547 0522 00 0 00553 XEC GETBX4 RESTOR X4
00550 0361 60 4 00001 ACL* 1,4 ADD CALLER'S DESIRED BUFFER LENGTH
SETMEM() EXTEND MEMORY TO CONTAIN NEW BUFFER
00552 -0500 00 0 00003 CAL BUF RETURN ADDRESS OF NEW BUFFER IN AC
00553 0774 00 4 00000 GETBX4 AXT **,4 ..
00554 0020 00 4 00002 TRA 2,4 RETURN
1PAGE 12 CONSOLE INPUT-OUTPUT 17 HR 42 MN 9 SEC 3/01/68
00555 0634 00 4 00570 RDYES SXA RDX4,4 SKELETON READ-LEFT-JUSTIFIED ROUTINE
RDJ1 RDFLXA((BUF,,1)) READ ONE WORD FROM CONSOLE
00560 0560 00 0 00003 LDQ BUF ..
00561 -0754 00 0 00000 PXD ,0 ..
00562 -0763 00 0 00006 LGL 6 ..
00563 0402 00 0 01043 SUB =O77 CHECK FOR INPUT FROM 'WRMESS'
00564 0100 00 0 00556 TZE RDJ1 IGNORE INTER-CONSOLE COMMUNICATIONS
00565 -0500 00 0 00003 CAL BUF
00566 0771 00 0 00022 ARS 18
00567 0402 00 0 01046 SUB =H000YES
00570 0774 00 4 00000 RDX4 AXT **,4 ..
00571 -0100 60 4 00001 TNZ* 1,4
00572 0020 00 4 00002 TRA 2,4 RETURN TO CALLER
00573 0634 00 4 00652 RDTYPE SXA X4,4 READ A LINE FROM USER CONSOLE
00574 -0500 00 4 00001 CAL 1,4 GET ARRAY BASE FOR LINE
00575 0621 00 0 00624 STA RLIN ..
00576 -0500 00 4 00002 CAL 2,4 GET BASE OF LOCATION LENGTH
00577 0621 00 0 00614 STA RLEN ..
RDT3 RDFLXA(BUF) READ LINE FROM CONSOLE
00602 0734 00 4 00000 PAX 0,4 CHAR. COUNT TO IR4
00603 0560 00 0 00003 LDQ BUF GET 1ST WORD FROM INPUT BUFFER
00604 -0754 00 0 00000 PXD ,0 ..
00605 -0763 00 0 00006 LGL 6 ..
00606 0402 00 0 01043 SUB =O77 IS IT INTER-CONSOLE COMMUNICATIONS BUF.
00607 0100 00 0 00600 TZE RDT3 YES, IGNORE LINE
00610 -3 00124 4 00612 TXL *+2,4,84 SKIP IF COUNT.LE.84
00611 0774 00 4 00125 AXT 85,4 OTHERWISE SET COUNT= 85
00612 1 77777 4 00613 TXI *+1,4,-1 REDUCE COUNT BY ONE
00613 0754 00 4 00000 PXA 0,4 COUNT TO AC
00614 0602 00 0 00000 RLEN SLW ** RETURN COUNT TO CALLER
00615 0774 00 1 00000 AXT 0,1 ..
00616 0774 00 2 00016 AXT 14,2 ..
00617 0560 00 2 00021 RDT1 LDQ BUF+14,2 MOVE CHARACTERS TO CALLER ARRAY
00620 0774 00 4 00006 AXT 6,4 ..
00621 -0754 00 0 00000 RDT2 ZAC ..
00622 -0763 00 0 00006 LGL 6 ..
00623 1 77777 1 00624 TXI *+1,1,-1 ..
00624 0602 00 1 00000 RLIN SLW **,1 ..
00625 2 00001 4 00621 TIX RDT2,4,1 ..
00626 2 00001 2 00617 TIX RDT1,2,1 ..
00627 -0774 00 1 00125 AXC 85,1 PLACE RETURN CHARACTER AT END OF STRING
00630 -0500 00 0 01042 CAL =O55 ..
00631 0602 60 0 00624 SLW* RLIN ..
00632 0020 00 0 00652 TRA X4 RETURN
00633 0634 00 4 00652 PRCARD SXA X4,4 PRINT CARD ON USER CONSOLE
00634 0520 60 4 00002 ZET* 2,4 IS LENGTH= 0
00635 0020 00 0 00641 TRA PRC1 NO, SKIP
WRFLX(*) YES, TYPE RETURN ONLY
00640 0020 00 0 00652 TRA X4 AND RETURN
00641 -0500 00 4 00001 PRC1 CAL 1,4 MOVE PARAMETERS (ARRAY BASE ADDRESS)
00642 0621 00 0 00646 STA PRC2+1 ..
00643 -0500 00 4 00002 CAL 2,4 .. (LOCATION OF LENGTH)
1PAGE 13 CONSOLE INPUT-OUTPUT 17 HR 42 MN 9 SEC 3/01/68
00644 0621 00 0 00647 STA PRC2+2 ..
PRC2 PACK(**,**) PACK CHARACTERS INTO CARD IMAGE
WRFLX((BUF,,14)) TYPE LINE TO USER'S CONSOLE
00652 0774 00 4 00000 X4 AXT **,4 RETURN
00653 0020 00 4 00001 TRA 1,4 ..
1PAGE 14 FORM CARD IMAGE BUFFER FROM UNPACKED INPUT ARRAY 17 HR 42 MN 9 SEC 3/01/68
00654 0634 00 4 00711 PACK SXA PKX4,4 UTILITY ROUTINE TO PACK CHARACTER STRING
00655 -0500 00 4 00001 CAL 1,4 GET LOCATION OF CHARACTER STRING
00656 0621 00 0 00667 STA PKLIN ..
00657 -0500 60 4 00002 CAL* 2,4 GET LENGTH OF STRING
00660 0737 00 4 00000 PAC ,4 LENGTH TO XR.
00661 1 77777 4 00662 TXI *+1,4,-1 ..
00662 -0634 00 4 00674 SXD PKLEN,4 ..
00663 -0774 00 1 00001 AXC 1,1 FOR ALGOL
00664 0774 00 2 00016 AXT 14,2 ..
00665 0560 00 0 01067 PK1 LDQ =H PACK CHARACTERS INTO CARD IMAGE
00666 0774 00 4 00006 AXT 6,4 ..
00667 -0500 00 1 00000 PKLIN CAL **,1 ..
00670 -0773 00 0 00006 RQL 6 ..
00671 -0765 00 0 00006 LGR 6 ..
00672 -0773 00 0 00006 RQL 6 ..
00673 1 77777 1 00674 TXI *+1,1,-1 MOVE FORWD. IN STORAGE
00674 -3 00000 1 00701 PKLEN TXL PKEND,1,** .. SKIP IF NO MORE CHARACTERS
00675 2 00001 4 00667 TIX PKLIN,4,1 ..
00676 -0600 00 2 00021 STQ BUF+14,2 ..
00677 2 00001 2 00665 TIX PK1,2,1 ..
00700 0020 00 0 00711 TRA PKX4 AND RETURN
00701 -2 00001 4 00704 PKEND TNX *+3,4,1 FILL OUT REST OF WORD WITH BLANKS
00702 -0773 00 0 00006 RQL 6 ..
00703 0020 00 0 00701 TRA PKEND ..
00704 -0600 00 2 00021 STQ BUF+14,2 SAVE LAST NON-BLANK WORD
00705 0560 00 0 01067 LDQ =H ..
00706 -2 00001 2 00711 PKBLK TNX PKX4,2,1 FILL OUT REST OF LINE WITH BLANK WORDS
00707 -0600 00 2 00021 STQ BUF+14,2 ..
00710 0020 00 0 00706 TRA PKBLK ..
00711 0774 00 4 00000 PKX4 AXT **,4 HERE FOR RETURN
00712 0020 00 4 00003 TRA 3,4 ..
1PAGE 15 SYSTEM SUBROUTINE ENTRIES 17 HR 42 MN 9 SEC 3/01/68
DIRECT CALLS PROVIDED AS ENTRY POINTS
00713 0101 00 0 01065 RESET TIA =HRESETF DIFFERENT NAMES FOR SAME FUNCTION
00714 SYSENT (UPDATE,FSTATE,DELFIL,CHFILE,IODIAG)
CALLS FOR DISK I/O
00721 SYSENT (OPEN,BUFFER,RDFILE,WRFILE,WRWAIT,FWAIT,CLOSE)
SYSTEM ERROR TRAPS
00730 SYSENT (FERRTN,TILOCK)
OTHER CALLS TO CTSS SUPERVISOR
00732 SYSENT (GETMEM,SETMEM,WRFLX,WRFLXA,RDFLXA,DORMNT)
1PAGE 16 VARIABLES AND CONSTANTS FOR EDIOP 17 HR 42 MN 9 SEC 3/01/68
00740 606060606060 LOCKMS BCI 2,
00742 603162601443 BCI 5, IS 'LOCKED' ON CALL TO 'NAME'
00747 333333575757 VFD H18/...,O18/575757
00750 244660704664 DOYOU BCI 4,DO YOU WISH TO PROCEED,
00754 634660662131 LOCKM1 BCI 1,TO WAI
00755 637360575757 VFD H6/T,O30/7360575757
00756 637047256014 TRYMSG BCI 6,TYPE 'START' TO REPEAT LAST CALL
00764 -0 00000 0 00000 M MZE ..
00765 +000006065000 DEC 1E5B31,1E4B25,1E3B19,1E2B13,1E1B7,1E0B1
00773 DTAB SYN *
00773 170000000773 TB4 VFD O6/17,30/*
DUP 1,3
VFD O6/,30/TB4
00777 0 00000 0 00721 OPNC PZE OPEN CHECK ON TILOCK RETURN
01000 0 00000 0 00016 CRDF PZE CRDLN
01001 0 00000 0 00660 BUFCON PZE BUFLN
01002 0 00000 0 00676 RDBF PZE RDLN
01003 0 00000 0 00236 WRBF PZE WBLN
01004 0 00000 0 00220 SMBF PZE SMBLN
01005 0 00000 0 00002 WB1 PZE SWN-1
01006 606060000000 SEQCHR BCI 1, 000 COL 73-75
01007 606000000000 SQCHR1 BCI 1, 0000 COL 73-74
01010 545454545454 RD BCI 2,************
01012 604546636026 BCI 2, NOT FOUND.
01014 535353535353 WR BCI 2,$$$$$$$$$$$$
01016 141414141414 NEW BCI 2,''''''''''''
01020 131313131313 OLD BCI 2,============
01022 404040404040 FILNAM BCI 2,------------
01022 FN SYN FILNAM
01024 0 00000 0 00000 ERRCOD PZE ** ..
01025 0 00000 0 00000 EOFCT PZE **
01025 RWAIT EQU EOFCT
01026 0 00000 0 00000 RB. PZE **
01027 0 00000 0 00000 R. PZE **
01030 0 00000 0 00000 RE. PZE **
1PAGE 17 VARIABLES AND CONSTANTS FOR EDIOP 17 HR 42 MN 9 SEC 3/01/68
01031 0 00000 0 00000 WB. PZE **
01032 0 00000 0 00000 W. PZE **
01033 0 00000 0 00000 WE. PZE **
01034 0 00000 0 00000 WRCT PZE **
01034 WWAIT SYN WRCT
01035 0 00000 0 00000 WRSW PZE **
00000 EOFSW EQU 0 USE LOWER CORE FOR TEMPORARIES
00001 TNUM EQU 1 ..
00002 NXTEOF EQU 2 ..
00003 BUF EQU 3 (BSS 14, 14-WORD LINE-BUFFER)
00021 MODES EQU 17 ..
00022 ARY EQU 18 (BSS 2, READ BUFFER FOR 'FSTATE')
00022 TEMP SYN ARY
1PAGE 18 LITERALS AND CROSS-REFERENCE LISTING FOR EDIOP 17 HR 42 MN 9 SEC 3/01/68
01036 END
LITERALS
01036 000000000000
01037 000000000001
01040 000000000014
01041 000000000020
01042 000000000055
01043 000000000077
01044 000000000176
01045 000000077777
01046 000000702562
01047 000003641100
01050 226426262551
01051 233026314325
01052 234346622560
01053 242543263143
01054 244651444563
01055 262551516345
01056 266263216325
01057 266621316360
01060 272563442544
01061 314624312127
01062 464725456060
01063 512426314325
01064 512426436721
01065 512562256326
01066 516060606060
01067 606060606060
01070 622563442544
01071 633143462342
01072 644724216325
01073 665126314325
01074 665126436721
01075 665126436760
01076 665166213163
01077 666060606060
01100 777700000000
01101 777777000000
01102 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
NO ERROR IN ABOVE ASSEMBLY
1PAGE 19 LITERALS AND CROSS-REFERENCE LISTING FOR EDIOP 17 HR 42 MN 9 SEC 3/01/68
DEFINITION SYMBOL REFERENCES
764 M 26, 27, 764
1022 FN 1024
1010 RD 6, 24, 25, 42, 61, 62, 160, 161, 210, 211, 1010
1027 R. 20, 65, 72, 74, 165, 170, 203, 1027
1032 W. 244, 340, 352, 354, 362, 421, 1032
1014 WR 227, 254, 255, 260, 261, 331, 332, 377, 400, 414, 415, 426, 427, 433, 434, 1014
652 X4 3, 35, 44, 150, 224, 263, 266, 300, 371, 403, 404, 435, 436, 474, 573, 632, 633
640, 652
22 ARY 447, 453, 455, 1036, 1036
3 BUF 67, 102, 112, 124, 125, 321, 322, 364, 544, 546, 552, 557, 560, 565, 601, 603, 617
651, 676, 704, 707, 1036
1016 NEW 444, 451, 452, 461, 462, 471, 472, 1016
1020 OLD 441, 466, 467, 1020
665 PK1 665, 677
1026 RB. 11, 15, 171, 177, 202, 1026
1030 RE. 17, 76, 164, 201, 217, 221, 1030
3 SWN 3, 3, 247, 1005
773 TB4 132, 773, 774, 775, 776
1005 WB1 333, 1005
1031 WB. 232, 241, 344, 351, 407, 1031
1033 WE. 246, 341, 357, 416, 1033
1000 CRDF 73, 75, 356, 1000
773 DTAB 307, 773
511 ERX4 475, 476, 511
721 OPEN 22, 252, 721, 777
777 OPNC 522, 777
654 PACK 275, 645, 654
711 PKX4 654, 700, 706, 711
641 PRC1 635, 641
645 PRC2 642, 644, 645
1002 RDBF 14, 1002
112 RDC1 112, 121
114 RDC2 114, 120
556 RDJ1 556, 564
676 RDLN 3, 3, 1002
617 RDT1 617, 626
621 RDT2 621, 625
600 RDT3 600, 607
570 RDX4 555, 570
614 RLEN 577, 614
624 RLIN 575, 624, 631
222 RPRX 163, 222
1004 SMBF 245, 1004
22 TEMP 1036
1 TNUM 127, 133, 135, 141, 143, 144, 145, 417, 422, 424, 431, 1036
236 WBLN 3, 3, 1003
432 WCL1 423, 432
1003 WRBF 240, 1003
275 WRC1 270, 272, 275
1034 WRCT 250, 335, 337, 373, 1034, 1035
354 WRCX 324, 354
335 WRCY 327, 335
351 WRCZ 342, 351
1PAGE 20 LITERALS AND CROSS-REFERENCE LISTING FOR EDIOP 17 HR 42 MN 9 SEC 3/01/68
1035 WRSW 251, 323, 325, 361, 370, 410, 1035
660 BUFLN 3, 3, 3, 3, 204, 213, 262, 1001
727 CLOSE 157, 432, 727
16 CRDLN 3, 3, 3, 64, 67, 363, 364, 1000
404 DFILE 3, 3, 404
750 DOYOU 502, 750
3 DSEEK 3, 3, 3
1025 EOFCT 33, 205, 215, 220, 1025, 1026
217 EOFRD 214, 217
0 EOFSW 151, 206, 216, 1036
162 ERRTN 10, 43, 54, 162, 231, 274, 406, 446, 464, 473, 505, 536
726 FWAIT 60, 330, 413, 726
12 GETRB 12, 16
233 GETWB 233, 243
21 MODES 457, 470, 1036
706 PKBLK 706, 710
701 PKEND 674, 701, 703
674 PKLEN 662, 674
667 PKLIN 656, 667, 675
157 RCLOS 56, 157
117 RDLIN 46, 117
147 RDLNO 52, 147
213 RDLOC 200, 213
151 RDREC 77, 151
101 RDUNP 101, 154, 156
555 RDYES 503, 535, 555
713 RESET 3, 3, 713
1025 RWAIT 57, 63, 1026
220 SMBLN 3, 3, 345, 402, 1004
541 TIRX4 513, 514, 541
417 WCLOS 411, 417
734 WRFLX 3, 3, 41, 506, 636, 650, 734
431 WRLC1 420, 431
402 WRLOC 242, 402
1034 WWAIT 326, 412, 1035
1001 BUFCON 235, 1001
722 BUFFER 257, 722
2014 BUFSUM 3
101 CHARSW 101, 107
717 CHFILE 3, 3, 465, 717
224 DASIGN 3, 3, 224
2 DELETE 460
716 DELFIL 716
737 DORMNT 510, 737
1024 ERRCOD 31, 36, 1024
475 ERRTRA 40, 475
36 ERSEEK 30, 36
730 FERRTN 730
1022 FILNAM 1022, 1024
715 FSTATE 450, 715
543 GETBUF 13, 234, 237, 543
553 GETBX4 543, 547, 553
732 GETMEM 545, 732
720 IODIAG 3, 3, 720
1PAGE 21 LITERALS AND CROSS-REFERENCE LISTING FOR EDIOP 17 HR 42 MN 9 SEC 3/01/68
123 LENGTH 50, 123
754 LOCKM1 534, 754
740 LOCKMS 520, 527, 532, 740
177 NOMOVE 166, 177
2 NXTEOF 21, 34, 55, 155, 1036
633 PRCARD 3, 3, 633
0 PRNTER 500
44 RDCARD 3, 3, 44
137 RDDTBC 137, 146
155 RDEOF1 152, 155
723 RDFILE 207, 723
736 RDFLXA 556, 600, 736
573 RDTYPE 3, 3, 573
436 RENAME 3, 3, 436
163 RPRIME 32, 153, 163
1006 SEQCHR 104, 320, 1006
1 SETBCD 477, 530
733 SETMEM 551, 733
1007 SQCHR1 106, 315, 1007
731 TILOCK 537, 731
513 TIRRTN 513
756 TRYMSG 507, 756
714 UPDATE 3, 3, 714
262 WBUFFS 236, 262
264 WRCARD 3, 3, 264
724 WRFILE 374, 724
735 WRFLXA 3, 3, 501, 531, 533, 735
725 WRWAIT 372, 425, 725
1 PRNTER - (DUMMY MODULE FOR THE ED COMMAND) PAGE 1
* (CALLS PRNTER VIA NEXCOM.)
00000 ENTRY PRNTER
00000 -0500 00 0 00005 PRNTER CAL =HPRNTER
00001 0560 00 0 00003 LDQ =O-71
00002 0101 00 0 00004 TIA =HNEXCOM
END
LITERALS
00003 400000000071
00004 452567234644
00005 475145632551
1 PRNTER - (DUMMY MODULE FOR THE ED COMMAND) PAGE 1
POST PROCESSOR ASSEMBLY DATA
6 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
0 PRNTER 0
0 NO ERROR IN ABOVE ASSEMBLY.
EDA BCD 05/10/69 1840.2 32929 00000
1 MAD PROGRAM LISTING ... ... ... FILE EDITOR MAD 04/23/69 1348.3
-
.. EDIT BY CONTEXT PROGRAM. LM00001
LM00002
.. J. H. SALTZER, NOVEMBER, 1964. LM00003
.. LAST MODIFICATION, APRIL, 1967. LM00004
.. MODIFIED OCTOBER, 1967 BY PETER R. BOS LM00005
.. TO ALLOW SETTING BREAK CHARACTER 'MCHNG' LM00006
LM00007
.. DECLARATIONS. LM00008
LM00009
VECTOR VALUES FENCE = 777777777777K *001 LM00010
VECTOR VALUES RETURN = 55K *002 LM00011
VECTOR VALUES IN = $(INPUT$ *003 LM00012
VECTOR VALUES IN1 = $(INPT1$ *004 LM00013
VECTOR VALUES BRIEF = 0B *005 LM00014
VECTOR VALUES OK = 0B *006 LM00015
VECTOR VALUES BUFSIZ = 360 *007 LM00016
DIMENSION LINE(361), EDLIN(361) *008 LM00017
DIMENSION REDS(1), BLACKS(1) *009 LM00018
DIMENSION ATNAM(2) *010 LM00019
NORMAL MODE IS INTEGER *011 LM00020
BOOLEAN OK, GLOBAL, FSTPAS *012 LM00021
BOOLEAN CHNG, CLRSW, BRIEF *013 LM00022
LM00023
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LM00024
LM00025
.. INITIALIZATION. LM00026
LM00027
SECOND NAME OF INTERMEDIATE FILES NOW PROGNO LM00028
LM00029
WHOAMI.(ATNAM(2)...2) *014 LM00030
FI = ATNAM(1) *015 LM00031
GETVAL.(BLANK, TAB, DEFALT, MCHNG, REDS(1), BLACKS(1)) *016 LM00032
CLRNAM.(IN, FI, CHN, 1B) *017 LM00033
CLRNAM.(IN1, FI, CHN, 1B) *018 LM00034
ASSIGN.(IN, FI) *019 LM00035
OLDNAM = COMARG.(1) *020 LM00036
OLDSEC = DEFALT *021 LM00037
WHENEVER OLDNAM .E. FENCE, TRANSFER TO INSERT *022 LM00038
OLDSEC = COMARG.(2) *023 LM00039
WHENEVER OLDSEC .E. FENCE, OLDSEC = DEFALT *024 LM00040
SEEK.(OLDNAM, OLDSEC, INSERT) *025 LM00041
FSTPAS = 1B *026 LM00042
OK = 1B *027 LM00043
LM00044
.. ENTER EDIT MODE. LM00045
LM00046
EDIT WHENEVER .NOT. BRIEF, PRINT COMMENT $0E1D1I1T$ *028 LM00047
LM00048
.. OBTAIN NEXT REQUEST. LM00049
LM00050
NXRQ COUNT = TYPEIN.(EDLIN, BUFSIZ) *029 LM00051
WHENEVER EDLIN(1) .E. MCHNG .AND. COUNT .L. 3 *030 LM00052
1 , TRANSFER TO INSERT *030 LM00053
WHENEVER COUNT .L. 2, TRANSFER TO NXRQ *031 LM00054
EDCT = 0 *032 LM00055
CWD = GET.(0) *033 LM00056
LM00057
WHENEVER CWD .E. $DELETE$ .OR. CWD .E. $ D$ *034 LM00058
N = BIN.(GET.(0)) *035 LM00059
THROUGH DREAD, FOR I = 1, 1, I .GE. N *036 LM00060
DREAD LENGTH = READ.(LINE, BUFSIZ, EOF) *037 LM00061
LENGTH = 0 *038 LM00062
LM00063
OR WHENEVER CWD .E. $ NEXT$ .OR. CWD .E. $ N$ *039 LM00064
N = BIN.(GET.(0)) *040 LM00065
WHENEVER N .E. 0, N = 1 *041 LM00066
THROUGH NXT, FOR I = 1, 1, I .G. N *042 LM00067
WRITE.(LINE, LENGTH) *043 LM00068
WHENEVER .NOT. OK, CLSOUT. *044 LM00069
LENGTH = READ.(LINE, BUFSIZ, EOF) *045 LM00070
NXT CONTINUE *046 LM00071
LM00072
OR WHENEVER CWD .E. $INSERT$ .OR. CWD .E. $ I$ *047 LM00073
WRITE.(LINE, LENGTH) *048 LM00074
TRANSFER TO RETYPE *049 LM00075
LM00076
INSERT WHENEVER .NOT. BRIEF, PRINT COMMENT $0I1N1P1U1T$ *050 LM00077
INPUT COUNT = TYPEIN.(EDLIN, BUFSIZ) *051 LM00078
WHENEVER COUNT .L. 3 .AND. EDLIN(1) .E. MCHNG *052 LM00079
1 , TRANSFER TO EDIT *052 LM00080
WRITE.(LINE, LENGTH) *053 LM00081
THROUGH MVLP, FOR I = 1, 1, I .G. COUNT *054 LM00082
MVLP LINE(I) = EDLIN(I) *055 LM00083
LENGTH = COUNT *056 LM00084
TRANSFER TO INPUT *057 LM00085
LM00086
OR WHENEVER CWD .E. $BOTTOM$ .OR. CWD .E. $ B$ *058 LM00087
WRITE.(LINE, LENGTH) *059 LM00088
LENGTH = 0 *060 LM00089
WHENEVER OK, BOTTOM. *061 LM00090
TRANSFER TO INSERT *062 LM00091
LM00092
OR WHENEVER CWD .E. $APPEND$ .OR. CWD .E. $ A$ *063 LM00093
WHENEVER LENGTH .G. 0, LENGTH = LENGTH - 1 *064 LM00094
TRANSFER TO APPEND *065 LM00095
LM00096
OR WHENEVER CWD .E. $RETYPE$ .OR. CWD .E. $ R$ *066 LM00097
RETYPE LENGTH = 0 *067 LM00098
APPEND THROUGH RPLC, FOR EDCT = EDCT + 1, 1, EDCT .G. COUNT *068 LM00099
LENGTH = LENGTH + 1 *069 LM00100
RPLC LINE(LENGTH) = EDLIN(EDCT) *070 LM00101
LM00102
OR WHENEVER CWD .E. $ ERASE$ .OR. CWD .E. $ E$ *071 LM00103
WHENEVER EDLIN(EDCT+1) .NE. BLANK, SETERS.(EDLIN(EDCT+1)) *072 LM00104
LM00105
OR WHENEVER CWD .E. $ KILL$ .OR. CWD .E. $ K$ *073 LM00106
WHENEVER EDLIN(EDCT+1) .NE. BLANK, SETKIL.(EDLIN(EDCT+1)) *074 LM00107
LM00108
.. MODIFICATION ALLOWS SETTING 'MCHNG'. PRB. LM00109
LM00110
OR WHENEVER CWD .E. $ BREAK$ .OR. CWD .E. $ BR$ *075 LM00111
WHENEVER EDLIN(EDCT) .E. RETURN *076 LM00112
MCHNG = RETURN *077 LM00113
OR WHENEVER EDLIN(EDCT+1) .NE. BLANK *078 LM00114
MCHNG = EDLIN(EDCT+1) *079 LM00115
END OF CONDITIONAL *080 LM00116
LM00117
OR WHENEVER CWD .E. $VERIFY$ .OR. CWD .E. $ V$ *081 LM00118
CWD = GET.(0) *082 LM00119
WHENEVER CWD .E. $ ON$ *083 LM00120
BRIEF = 0B *084 LM00121
OR WHENEVER CWD .E. $ OFF$ *085 LM00122
BRIEF = 1B *086 LM00123
END OF CONDITIONAL *087 LM00124
LM00125
OR WHENEVER CWD .E. $LOCATE$ .OR. CWD .E. $ L$ *088 LM00126
LOCATE = 1 *089 LM00127
TRANSFER TO FIND *090 LM00128
LM00129
OR WHENEVER CWD .E. $ FIND$ .OR. CWD .E. $ F$ *091 LM00130
LOCATE = 0 *092 LM00131
FIND WHENEVER EDCT+1 .GE. COUNT *093 LM00132
COUNT = OCOUNT *094 LM00133
EDCT = EDCT + 1 *095 LM00134
END OF CONDITIONAL *096 LM00135
OCOUNT = COUNT *097 LM00136
NTFND WRITE.(LINE, LENGTH) *098 LM00137
WHENEVER .NOT. OK, CLSOUT. *099 LM00138
LENGTH = READ.(LINE, BUFSIZ, EOF) *100 LM00139
THROUGH LOCSCN, FOR K=0, 1,K.G.LOCATE*(LENGTH-COUNT+EDCT) *101 LM00140
J = K *102 LM00141
THROUGH LOOK, FOR I = EDCT+1, 1, I .GE. COUNT *103 LM00142
J = J + 1 *104 LM00143
TAGN WHENEVER LINE(J) .E. EDLIN(I), TRANSFER TO LOOK *105 LM00144
WHENEVER (LINE(J).E. TAB) .AND. (EDLIN(I) .E. BLANK) *106 LM00145
1 , TRANSFER TO LOOK *106 LM00146
WHENEVER EDLIN(I-1) .NE. BLANK .OR. I .E. EDCT + 1 *107 LM00147
1 , TRANSFER TO LOCSCN *107 LM00148
WHENEVER LINE(J) .NE. BLANK .AND. LINE(J) .NE. TAB *108 LM00149
1 , TRANSFER TO LOCSCN *108 LM00150
J = J + 1 *109 LM00151
TRANSFER TO TAGN *110 LM00152
LOOK WHENEVER I .E. EDCT+1, FNDST = J *111 LM00153
FNDND = J *112 LM00154
WHENEVER .NOT. BRIEF, PRNT.(FNDST, FNDND) *113 LM00155
TRANSFER TO NXRQ *114 LM00156
LOCSCN CONTINUE *115 LM00157
TRANSFER TO NTFND *116 LM00158
LM00159
OR WHENEVER CWD .E. $ PRINT$ .OR. CWD .E. $ P$ *117 LM00160
NPRNT = BIN.(GET.(0)) *118 LM00161
PNTLP WHENEVER LENGTH .E. 0 *119 LM00162
PRINT COMMENT $0N1O0 1C1U1R1R1E1N1T0 1L1I1N1E0.$ *120 LM00163
OTHERWISE *121 LM00164
TYPOUT.(LINE, LENGTH) *122 LM00165
END OF CONDITIONAL *123 LM00166
NPRNT = NPRNT - 1 *124 LM00167
WHENEVER NPRNT .G. 0 *125 LM00168
WRITE.(LINE, LENGTH) *126 LM00169
LENGTH = READ.(LINE, BUFSIZ, EOF) *127 LM00170
TRANSFER TO PNTLP *128 LM00171
END OF CONDITIONAL *129 LM00172
LM00173
OR WHENEVER CWD .E. $ TOP$ .OR. CWD .E. $ T$ *130 LM00174
TOPLP WRITE.(LINE, LENGTH) *131 LM00175
WHENEVER OK, BOTTOM. *132 LM00176
CLSOUT. *133 LM00177
LM00178
OR WHENEVER CWD .E. $CHANGE$ .OR. CWD .E. $ C$ *134 LM00179
LM00180
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LM00181
LM00182
.. DELINEATE QUOTED STRINGS. LM00183
LM00184
EDCT = EDCT+1 *135 LM00185
QUOTE = EDLIN(EDCT) *136 LM00186
STR1 = EDCT *137 LM00187
QLOOP THROUGH QLOOP, FOR EDCT = EDCT+1, 1, *138 LM00188
1 (EDLIN(EDCT) .E. QUOTE) .OR. (EDCT .GE. COUNT) *138 LM00189
STR2 = EDCT *139 LM00190
QLOOP1 THROUGH QLOOP1, FOR EDCT = EDCT+1, 1, *140 LM00191
1 (EDLIN(EDCT) .E. QUOTE) .OR. (EDCT .GE. COUNT) *140 LM00192
EST2 = EDCT *141 LM00193
LM00194
.. CHECK FOR ITERATION COUNT AND GLOBAL REQUEST. LM00195
LM00196
EDCT = EDCT + 1 *142 LM00197
TEM = 1 *143 LM00198
GLOBAL = 0B *144 LM00199
ARGLP CWD = GET.(0) *145 LM00200
WHENEVER CWD .E. $ $ *146 LM00201
TRANSFER TO SHIFT *147 LM00202
OR WHENEVER CWD .E. $ G$ *148 LM00203
WHENEVER STR2 .NE. STR1+1, GLOBAL = 1B *149 LM00204
OTHERWISE *150 LM00205
TEM = BIN.(CWD) *151 LM00206
END OF CONDITIONAL *152 LM00207
TRANSFER TO ARGLP *153 LM00208
LM00209
.. SHIFT LINE TO BOTTOM OF BUFFER. LM00210
LM00211
SHIFT THROUGH MVDWN, FOR I = LENGTH, -1, I .L. 1 *154 LM00212
MVDWN LINE(BUFSIZ+I-LENGTH) = LINE(I) *155 LM00213
DOWN = BUFSIZ-LENGTH+1 *156 LM00214
UP = 0 *157 LM00215
CHNG = 0B *158 LM00216
CHST = LENGTH + 1 *159 LM00217
CHEND = LENGTH *160 LM00218
LM00219
.. SEARCH FOR PRESENCE OF FIRST STRING. LM00220
LM00221
SRCHLP UP = UP + 1 *161 LM00222
SRTST WHENEVER DOWN .G. BUFSIZ, TRANSFER TO GIVUP *162 LM00223
J = DOWN *163 LM00224
THROUGH COMPAR, FOR I = STR1+1, 1, I .GE. STR2 *164 LM00225
WHENEVER J .GE. BUFSIZ, TRANSFER TO GIVUP *165 LM00226
WHENEVER EDLIN(I) .NE. LINE(J), TRANSFER TO NOCOMP *166 LM00227
COMPAR J = J + 1 *167 LM00228
TRANSFER TO STFND *168 LM00229
LM00230
NOCOMP LINE(UP) = LINE(DOWN) *169 LM00231
DOWN = DOWN + 1 *170 LM00232
TRANSFER TO SRCHLP *171 LM00233
LM00234
.. STRING FOUND, REPLACE WITH SECOND STRING. LM00235
LM00236
STFND CHNG = 1B *172 LM00237
DOWN = DOWN + (STR2-STR1-1) *173 LM00238
CHST = UP *174 LM00239
THROUGH REPLAC, FOR I = STR2 + 1, 1, I .GE. EST2 *175 LM00240
LINE(UP) = EDLIN(I) *176 LM00241
UP = UP + 1 *177 LM00242
REPLAC WHENEVER UP .G. DOWN, TRANSFER TO GIVUP *178 LM00243
CHEND = UP - 1 *179 LM00244
WHENEVER GLOBAL, TRANSFER TO SRTST *180 LM00245
LM00246
.. MOVE REST OF LINE BACK UP. LM00247
LM00248
GIVUP THROUGH FILOUT, FOR UP = UP, 1, DOWN .G. BUFSIZ *181 LM00249
LINE(UP) = LINE(DOWN) *182 LM00250
FILOUT DOWN = DOWN + 1 *183 LM00251
LENGTH = UP - 1 *184 LM00252
TEM = TEM - 1 *185 LM00253
WHENEVER .NOT. BRIEF .AND. (TEM .G. 0 .THEN. CHNG) *186 LM00254
1 , PRNT.(CHST, CHEND) *186 LM00255
CANON.(LINE, LENGTH, BUFSIZ) *187 LM00256
WHENEVER TEM .G. 0 *188 LM00257
WRITE.(LINE, LENGTH) *189 LM00258
LENGTH = READ.(LINE, BUFSIZ, EOF) *190 LM00259
TRANSFER TO SHIFT *191 LM00260
END OF CONDITIONAL *192 LM00261
LM00262
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LM00263
LM00264
OR WHENEVER CWD .E. $ SPLIT$ .OR. CWD .E. $ S$ *193 LM00265
TOPNAM = GET.(0) *194 LM00266
WHENEVER TOPNAM .E. $ $, TRANSFER TO NONAME *195 LM00267
WHENEVER TOPNAM .E. OLDNAM .AND. FSTPAS *196 LM00268
NEWNM PRINT COMMENT $0P1L1E1A1S1E0 1U1S1E0 1A1N1O1T1H1E1R0 1N1A *197 LM00269
1 1M1E0.$ *197 LM00270
TRANSFER TO NXRQ *198 LM00271
END OF CONDITIONAL *199 LM00272
SECNAM = GET.(0) *200 LM00273
WHENEVER SECNAM .E. $ $, SECNAM = OLDSEC *201 LM00274
CLRNAM.(TOPNAM, SECNAM, NEWNM, 1B) *202 LM00275
CLOSEW. *203 LM00276
RENAME.(IN, FI, TOPNAM, SECNAM) *204 LM00277
ASSIGN.(IN, FI) *205 LM00278
OLDNAM = FENCE *206 LM00279
TRANSFER TO TOPLP *207 LM00280
LM00281
OR WHENEVER CWD .E. $ QUIT$ .OR. CWD .E. $ Q$ *208 LM00282
ENDRD. *209 LM00283
CLOSEW. *210 LM00284
DELFIL.(IN1, FI, DLQ1) *211 LM00285
DLQ1 DELFIL.(IN, FI, DLQ2) *212 LM00286
DLQ2 TRANSFER TO CHN *213 LM00287
LM00288
OR WHENEVER CWD .E. $ FILE$ *214 LM00289
PRINAM = GET.(0) *215 LM00290
CLRSW = 1B *216 LM00291
WHENEVER PRINAM .E. $ $ *217 LM00292
PRINAM = OLDNAM *218 LM00293
SECNAM = OLDSEC *219 LM00294
CLRSW = 0B *220 LM00295
OTHERWISE *221 LM00296
SECNAM = GET.(0) *222 LM00297
WHENEVER SECNAM .E. $ $ *223 LM00298
SECNAM = OLDSEC *224 LM00299
END OF CONDITIONAL *225 LM00300
END OF CONDITIONAL *226 LM00301
WHENEVER PRINAM .E. FENCE *227 LM00302
NONAME PRINT COMMENT $0N1O0 1F1I1L1E0 1N1A1M1E0 1G1I1V1E1N0.$ *228 LM00303
TRANSFER TO NXRQ *229 LM00304
END OF CONDITIONAL *230 LM00305
WRITE.(LINE, LENGTH) *231 LM00306
LENGTH = 0 *232 LM00307
WHENEVER OK, BOTTOM. *233 LM00308
CLRNAM.(PRINAM, SECNAM, NEWNM, CLRSW) *234 LM00309
CLOSEW. *235 LM00310
DELFIL.(IN1, FI, DL1) *236 LM00311
DL1 RENAME.(IN, FI, PRINAM, SECNAM) *237 LM00312
CHN EXIT. *238 LM00313
LM00314
OTHERWISE *239 LM00315
PRINT COMMENT $0N1O1T0 1A0 1R1E1Q1U1E1S1T0:$ *240 LM00316
TYPOUT.(EDLIN, COUNT) *241 LM00317
LM00318
END OF CONDITIONAL *242 LM00319
TRANSFER TO NXRQ *243 LM00320
LM00321
EOF PRINTCOMMENT $0E1N1D0 1O1F0 1F1I1L1E0 1R1E1A1C1H1E1D0 1B1Y0:$ *244 LM00322
TYPOUT.(EDLIN, COUNT) *245 LM00323
LENGTH = 0 *246 LM00324
OK = 0B *247 LM00325
TRANSFER TO NXRQ *248 LM00326
LM00327
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LM00328
LM00329
.. SUBROUTINES. LM00330
LM00331
CLSOUT. .. FUNCTION TO MOVE POINTER BACK TO TOP OF FILE. LM00332
LM00333
INTERNAL FUNCTION *249 LM00334
ENTRY TO CLSOUT. *250 LM00335
CLOSEW. *251 LM00336
DELFIL.(IN1, FI, DL2) *252 LM00337
DL2 CHFILE.(IN, FI, -0, IN1) *253 LM00338
SEEK.(IN1, FI, CHN) *254 LM00339
ASSIGN.(IN, FI) *255 LM00340
OK = 1B *256 LM00341
LENGTH = 0 *257 LM00342
FSTPAS = 0B *258 LM00343
FUNCTION RETURN *259 LM00344
END OF FUNCTION *260 LM00345
LM00346
GET. .. FUNCTION TO OBTAIN ARGUMENT WORD IN HOLLERITH. LM00347
LM00348
INTERNAL FUNCTION *261 LM00349
ENTRY TO GET. *262 LM00350
WORD = $ $ *263 LM00351
SCANLP THROUGH SCANLP, FOR EDCT = EDCT, 1, *264 LM00352
1 (EDLIN(EDCT+1).NE.BLANK) .OR. (EDCT+1.GE.COUNT) *264 LM00353
GTLP EDCT = EDCT + 1 *265 LM00354
WHENEVER EDLIN(EDCT) .E. BLANK, FUNCTION RETURN WORD *266 LM00355
WHENEVER EDLIN(EDCT) .E. TAB .OR. EDCT .GE. COUNT *267 LM00356
EDCT = EDCT - 1 *268 LM00357
FUNCTION RETURN WORD *269 LM00358
END OF CONDITIONAL *270 LM00359
WORD = (WORD .LS. 6) .V. HOL.(EDLIN(EDCT)) *271 LM00360
TRANSFER TO GTLP *272 LM00361
END OF FUNCTION *273 LM00362
LM00363
PRNT. .. FUNCTION TO PRINT A LINE WITH COLOR SHIFTS. LM00364
LM00365
INTERNAL FUNCTION(STAR, EN) *274 LM00366
ENTRY TO PRNT. *275 LM00367
TYPOUT.(LINE, STAR-1) *276 LM00368
TYPOUT.(REDS, 1) *277 LM00369
TYPOUT.(LINE(STAR-1), EN-STAR+1) *278 LM00370
TYPOUT.(BLACKS, 1) *279 LM00371
TYPOUT.(LINE(EN), LENGTH-EN) *280 LM00372
FUNCTION RETURN *281 LM00373
END OF FUNCTION *282 LM00374
LM00375
END OF PROGRAM *283 LM00376
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 03713 TRANSFER VECTOR LENGTH 00030 PROGRAM BEGINS 01555
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
APPEND 00034 4 DLQ1 00041 4 GTLP 00047 4 NONAME 00056 4 RETYPE 00062 4
ARGLP 00035 4 DLQ2 00042 4 IN1 00673 A 1 NPRNT 01455 1 RPLC 00033 4
ATNAM 00073 A 1 DOWN 00110 1 INPUT 00050 4 N 01456 1 SCANLP 00033 4
BLACKS 00075 A 1 DREAD 00033 4 IN 00674 A 1 NTFND 00057 4 SECNAM 01470 1
BLANK 00076 1 EDCT 00111 1 INSERT 00051 4 NXRQ 00060 4 SHIFT 00063 4
BRIEF 00077 A 2 EDIT 00043 4 I 00675 1 NXT 00033 4 SRCHLP 00064 4
BUFSIZ 00100 A 1 EDLIN 00663 A 1 J 00676 1 OCOUNT 01457 1 SRTST 00065 4
CHEND 00101 1 EOF 00044 4 K 00677 1 OK 01460 A 2 STFND 00066 4
CHNG 00102 2 EST2 00664 1 LENGTH 00700 1 OLDNAM 01461 1 STR1 01471 1
CHN 00036 4 FENCE 00665 A 1 LINE 01452 A 1 OLDSEC 01462 1 STR2 01472 1
CHST 00103 1 FILOUT 00033 4 LOCATE 01453 1 PNTLP 00061 4 TAB 01473 1
CLRSW 00104 2 FIND 00045 4 LOCSCN 00052 4 PRINAM 01463 1 TAGN 00067 4
COMPAR 00033 4 FI 00666 1 LOOK 00053 4 QLOOP1 00033 4 TEM 01474 1
COUNT 00105 1 FNDND 00667 1 MCHNG 01454 1 QLOOP 00033 4 TOPLP 00070 4
CWD 00106 1 FNDST 00670 1 MVDWN 00033 4 QUOTE 01464 1 TOPNAM 01475 1
DEFALT 00107 1 FSTPAS 00671 2 MVLP 00033 4 REDS 01466 A 1 UP 01476 1
DL1 00037 4 GIVUP 00046 4 NEWNM 00054 4 REPLAC 00033 4 WORD 01477 1
DL2 00040 4 GLOBAL 00672 2 NOCOMP 00055 4 RETURN 01467 A 1
0FUNCTION DICTIONARY
ASSIGN 00000 1 BIN 00001 1 BOTTOM 00002 1 CANON 00003 1 CHFILE 00004 1
CLOSEW 00005 1 CLRNAM 00006 1 COMARG 00007 1 DELFIL 00010 1 ENDRD 00011 1
EXIT 00012 1 GETVAL 00013 1 HOL 00014 1 .PCOMT 00015 1 .SETUP 00016 1
READ 00017 1 RENAME 00020 1 SEEK 00021 1 SETERS 00022 1 SETKIL 00023 1
TYPEIN 00024 1 TYPOUT 00025 1 WHOAMI 00026 1 WRITE 00027 1 CLSOUT 00030 1
GET 00031 1 PRNT 00032 1
0ABSOLUTE CONSTANTS
01504 +000000000006 01520 -206026314325 01524 -206050643163 01544 -206060606050 01553 -206247433163
01547 -206060606062 01536 -206060606027 01546 -206060606060 01510 +233021452725 01532 -206060606023
01552 -206060634647 01550 -206060606063 01517 -204751314563 01543 -206060606047 01521 -206026314524
01535 -206060606026 01513 -034623216325 01541 -206060606043 01525 -206060462626 01527 -206060604645
01554 -252551312670 01551 -206060606065 01515 -202251252142 01526 -206060602251 01522 -206042314343
01540 -206060606042 01516 -202551216225 01534 -206060606025 01514 -112563704725 01545 -206060606051
01505 +214747254524 01530 -206060606021 01506 +224663634644 01531 -206060606022 01512 +314562255163
01537 -206060606031 01523 -206045256763 01542 -206060606045 01511 +242543256325 01533 -206060606024
01500 +000000000000 01503 +000000000003 01502 +000000000002 01501 +000000000001 01507 +233000000000
0STATEMENT DICTIONARY
00034 TXL -302146002133 00035 TXL -302676002673 00036 TXL -303402003401 00037 TXL -303401003374
00040 TXL -303460003451 00041 TXL -303301003275 00042 TXL -303302003301 00043 TXL -301645001637
00044 TXL -303430003416 00045 TXL -302334002327 00046 TXL -303117003105 00047 TXL -303543003540
00050 TXL -302026002022 00051 TXL -302022002014 00052 TXL -302506002505 00053 TXL -302475002465
00054 TXL -303226003214 00055 TXL -303032003026 00056 TXL -303351003340 00057 TXL -302346002343
00060 TXL -301651001645 00061 TXL -302527002524 00062 TXL -302133002131 00063 TXL -302734002722
00064 TXL -302764002761 00065 TXL -302771002764 00066 TXL -303040003036 00067 TXL -302424002416
00070 TXL -302575002572
0PROGRAM
VECTOR VALUES FENCE = 777777777777K 001 LM00010
01555 TSX +0 07400 4 00016 00665 -3 77777 7 77777
VECTOR VALUES RETURN = 55K 002 LM00011
01467 +0 00000 0 00055
VECTOR VALUES IN = $(INPUT$ 003 LM00012
00674 -3 43145 4 76463
VECTOR VALUES IN1 = $(INPT1$ 004 LM00013
00673 -3 43145 4 76301
VECTOR VALUES BRIEF = 0B 005 LM00014
00077 +0 00000 0 00000
VECTOR VALUES OK = 0B 006 LM00015
01460 +0 00000 0 00000
VECTOR VALUES BUFSIZ = 360 007 LM00016
00100 +0 00000 0 00550
DIMENSION LINE(361), EDLIN(361) 008 LM00017
DIMENSION REDS(1), BLACKS(1) 009 LM00018
D'N ATNAM(2) 010 LM00019
NORMAL MODE IS INTEGER 011 LM00020
BOOLEAN OK, GLOBAL, FSTPAS 012 LM00021
BOOLEAN CHNG, CLRSW, BRIEF 013 LM00022
WHOAMI.(ATNAM(2)...2) 014 LM00030
01556 TSX +0 07400 4 00026 01557 TIX +2 01502 0 00071
FI = ATNAM(1) 015 LM00031
01560 CLA +0 50000 0 00072 01561 STO +0 60100 0 00666
GETVAL.(BLANK, TAB, DEFALT, MCHNG, REDS(1), BLACKS(1)) 016 LM00032
01562 TSX +0 07400 4 00013 01563 TXH +3 00000 0 00076 01564 TXH +3 00000 0 01473 01565 TXH +3 00000 0 00107
01566 TXH +3 00000 0 01454 01567 TXH +3 00000 0 01465 01570 TXH +3 00000 0 00074
CLRNAM.(IN, FI, CHN, 1B) 017 LM00033
01571 TSX +0 07400 4 00006 01572 TXH +3 00000 0 00674 01573 TXH +3 00000 0 00666 01574 TXH +3 00000 0 00036
01575 TXH +3 00000 0 01501
CLRNAM.(IN1, FI, CHN, 1B) 018 LM00034
01576 TSX +0 07400 4 00006 01577 TXH +3 00000 0 00673 01600 TXH +3 00000 0 00666 01601 TXH +3 00000 0 00036
01602 TXH +3 00000 0 01501
ASSIGN.(IN, FI) 019 LM00035
01603 TSX +0 07400 4 00000 01604 TXH +3 00000 0 00674 01605 TXH +3 00000 0 00666
OLDNAM = COMARG.(1) 020 LM00036
01606 TSX +0 07400 4 00007 01607 TXH +3 00000 0 01501 01610 STO +0 60100 0 01461
OLDSEC = DEFALT 021 LM00037
01611 CLA +0 50000 0 00107 01612 STO +0 60100 0 01462
WHENEVER OLDNAM .E. FENCE, TRANSFER TO INSERT 022 LM00038
01613 CLA +0 50000 0 01461 01614 SUB +0 40200 0 00665 01615 TNZ -0 10000 0 01617 01616 TRA +0 02000 0 00051
OLDSEC = COMARG.(2) 023 LM00039
01617 TSX +0 07400 4 00007 01620 TXH +3 00000 0 01502 01621 STO +0 60100 0 01462
WHENEVER OLDSEC .E. FENCE, OLDSEC = DEFALT 024 LM00040
01622 CLA +0 50000 0 01462 01623 SUB +0 40200 0 00665 01624 TNZ -0 10000 0 01627 01625 CLA +0 50000 0 00107
01626 STO +0 60100 0 01462
SEEK.(OLDNAM, OLDSEC, INSERT) 025 LM00041
01627 TSX +0 07400 4 00021 01630 TXH +3 00000 0 01461 01631 TXH +3 00000 0 01462 01632 TXH +3 00000 0 00051
FSTPAS = 1B 026 LM00042
01633 CLA +0 50000 0 01501 01634 STO +0 60100 0 00671
OK = 1B 027 LM00043
01635 CLA +0 50000 0 01501 01636 STO +0 60100 0 01460
EDIT WHENEVER .NOT. BRIEF, PRINT COMMENT $0E1D1I1T$ 028 LM00047
01637 ZET +0 52000 0 00077 01640 TRA +0 02000 0 01645 01641 TSX +0 07400 4 00015 01642 +0 00000 0 00002
01643 +0 02501 2 40131 01644 +0 16360 6 06060
NXRQ COUNT = TYPEIN.(EDLIN, BUFSIZ) 029 LM00051
01645 TSX +0 07400 4 00024 01646 TXH +3 00000 0 00663 01647 TXH +3 00000 0 00100 01650 STO +0 60100 0 00105
WHENEVER EDLIN(1) .E. MCHNG .AND. COUNT .L. 3 030 LM00052
1 , TRANSFER TO INSERT 030 LM00053
01651 CLA +0 50000 0 00105 01652 SUB +0 40200 0 01503 01653 TZE +0 10000 0 01661 01654 TPL +0 12000 0 01661
01655 CLA +0 50000 0 00662 01656 SUB +0 40200 0 01454 01657 TNZ -0 10000 0 01661 01660 TRA +0 02000 0 00051
WHENEVER COUNT .L. 2, TRANSFER TO NXRQ 031 LM00054
01661 CLA +0 50000 0 00105 01662 SUB +0 40200 0 01502 01663 TZE +0 10000 0 01666 01664 TPL +0 12000 0 01666
01665 TRA +0 02000 0 00060
EDCT = 0 032 LM00055
01666 CLA +0 50000 0 01500 01667 STO +0 60100 0 00111
CWD = GET.(0) 033 LM00056
01670 TSX +0 07400 4 00031 01671 TXH +3 00000 0 01500 01672 STO +0 60100 0 00106
WHENEVER CWD .E. $DELETE$ .OR. CWD .E. $ D$ 034 LM00058
01673 CLA +0 50000 0 00106 01674 SUB +0 40200 0 01533 01675 TZE +0 10000 0 01701 01676 CLA +0 50000 0 00106
01677 SUB +0 40200 0 01511 01700 TNZ -0 10000 0 01732
N = BIN.(GET.(0)) 035 LM00059
01701 TSX +0 07400 4 00031 01702 TXH +3 00000 0 01500 01703 STO +0 60100 0 03710 01704 TSX +0 07400 4 00001
01705 TXH +3 00000 0 03710 01706 STO +0 60100 0 01456
THROUGH DREAD, FOR I = 1, 1, I .GE. N 036 LM00060
01707 CLA +0 50000 0 01501 01710 STO +0 60100 0 00675 01711 TRA +0 02000 0 01715 01712 CLA +0 50000 0 00675
01713 ADD +0 40000 0 01501 01714 STO +0 60100 0 00675 01715 CLA +0 50000 0 00675 01716 SUB +0 40200 0 01456
01717 TZE +0 10000 0 01727 01720 TPL +0 12000 0 01727
DREAD LENGTH = READ.(LINE, BUFSIZ, EOF) 037 LM00061
01721 TSX +0 07400 4 00017 01722 TXH +3 00000 0 01452 01723 TXH +3 00000 0 00100 01724 TXH +3 00000 0 00044
01725 STO +0 60100 0 00700 01726 TRA +0 02000 0 01712
LENGTH = 0 038 LM00062
01727 CLA +0 50000 0 01500 01730 STO +0 60100 0 00700
OR WHENEVER CWD .E. $ NEXT$ .OR. CWD .E. $ N$ 039 LM00064
01731 TRA +0 02000 0 03415 01732 CLA +0 50000 0 00106 01733 SUB +0 40200 0 01542 01734 TZE +0 10000 0 01740
01735 CLA +0 50000 0 00106 01736 SUB +0 40200 0 01523 01737 TNZ -0 10000 0 02002
N = BIN.(GET.(0)) 040 LM00065
01740 TSX +0 07400 4 00031 01741 TXH +3 00000 0 01500 01742 STO +0 60100 0 03710 01743 TSX +0 07400 4 00001
01744 TXH +3 00000 0 03710 01745 STO +0 60100 0 01456
WHENEVER N .E. 0, N = 1 041 LM00066
01746 CLA +0 50000 0 01456 01747 SUB +0 40200 0 01500 01750 TNZ -0 10000 0 01753 01751 CLA +0 50000 0 01501
01752 STO +0 60100 0 01456
THROUGH NXT, FOR I = 1, 1, I .G. N 042 LM00067
01753 CLA +0 50000 0 01501 01754 STO +0 60100 0 00675 01755 TRA +0 02000 0 01761 01756 CLA +0 50000 0 00675
01757 ADD +0 40000 0 01501 01760 STO +0 60100 0 00675 01761 CLA +0 50000 0 00675 01762 SUB +0 40200 0 01456
01763 TZE +0 10000 0 01765 01764 TPL +0 12000 0 02001
WRITE.(LINE, LENGTH) 043 LM00068
01765 TSX +0 07400 4 00027 01766 TXH +3 00000 0 01452 01767 TXH +3 00000 0 00700
WHENEVER .NOT. OK, CLSOUT. 044 LM00069
01770 ZET +0 52000 0 01460 01771 TRA +0 02000 0 01773 01772 TSX +0 07400 4 00030
LENGTH = READ.(LINE, BUFSIZ, EOF) 045 LM00070
01773 TSX +0 07400 4 00017 01774 TXH +3 00000 0 01452 01775 TXH +3 00000 0 00100 01776 TXH +3 00000 0 00044
01777 STO +0 60100 0 00700
NXT CONTINUE 046 LM00071
02000 TRA +0 02000 0 01756
OR WHENEVER CWD .E. $INSERT$ .OR. CWD .E. $ I$ 047 LM00073
02001 TRA +0 02000 0 03415 02002 CLA +0 50000 0 00106 02003 SUB +0 40200 0 01537 02004 TZE +0 10000 0 02010
02005 CLA +0 50000 0 00106 02006 SUB +0 40200 0 01512 02007 TNZ -0 10000 0 02064
WRITE.(LINE, LENGTH) 048 LM00074
02010 TSX +0 07400 4 00027 02011 TXH +3 00000 0 01452 02012 TXH +3 00000 0 00700
TRANSFER TO RETYPE 049 LM00075
02013 TRA +0 02000 0 00062
INSERT WHENEVER .NOT. BRIEF, PRINT COMMENT $0I1N1P1U1T$ 050 LM00077
02014 ZET +0 52000 0 00077 02015 TRA +0 02000 0 02022 02016 TSX +0 07400 4 00015 02017 +0 00000 0 00002
02020 +0 03101 4 50147 02021 +0 16401 6 36060
INPUT COUNT = TYPEIN.(EDLIN, BUFSIZ) 051 LM00078
02022 TSX +0 07400 4 00024 02023 TXH +3 00000 0 00663 02024 TXH +3 00000 0 00100 02025 STO +0 60100 0 00105
WHENEVER COUNT .L. 3 .AND. EDLIN(1) .E. MCHNG 052 LM00079
1 , TRANSFER TO EDIT 052 LM00080
02026 CLA +0 50000 0 00662 02027 SUB +0 40200 0 01454 02030 TNZ -0 10000 0 02036 02031 CLA +0 50000 0 00105
02032 SUB +0 40200 0 01503 02033 TZE +0 10000 0 02036 02034 TPL +0 12000 0 02036 02035 TRA +0 02000 0 00043
WRITE.(LINE, LENGTH) 053 LM00081
02036 TSX +0 07400 4 00027 02037 TXH +3 00000 0 01452 02040 TXH +3 00000 0 00700
THROUGH MVLP, FOR I = 1, 1, I .G. COUNT 054 LM00082
02041 CLA +0 50000 0 01501 02042 STO +0 60100 0 00675 02043 TRA +0 02000 0 02047 02044 CLA +0 50000 0 00675
02045 ADD +0 40000 0 01501 02046 STO +0 60100 0 00675 02047 CLA +0 50000 0 00675 02050 SUB +0 40200 0 00105
02051 TZE +0 10000 0 02053 02052 TPL +0 12000 0 02060
MVLP LINE(I) = EDLIN(I) 055 LM00083
02053 LXA +0 53400 1 00675 02054 LXA +0 53400 2 00675 02055 CLA +0 50000 2 00663 02056 STO +0 60100 1 01452
02057 TRA +0 02000 0 02044
LENGTH = COUNT 056 LM00084
02060 CLA +0 50000 0 00105 02061 STO +0 60100 0 00700
TRANSFER TO INPUT 057 LM00085
02062 TRA +0 02000 0 00050
OR WHENEVER CWD .E. $BOTTOM$ .OR. CWD .E. $ B$ 058 LM00087
02063 TRA +0 02000 0 03415 02064 CLA +0 50000 0 00106 02065 SUB +0 40200 0 01531 02066 TZE +0 10000 0 02072
02067 CLA +0 50000 0 00106 02070 SUB +0 40200 0 01506 02071 TNZ -0 10000 0 02104
WRITE.(LINE, LENGTH) 059 LM00088
02072 TSX +0 07400 4 00027 02073 TXH +3 00000 0 01452 02074 TXH +3 00000 0 00700
LENGTH = 0 060 LM00089
02075 CLA +0 50000 0 01500 02076 STO +0 60100 0 00700
WHENEVER OK, BOTTOM. 061 LM00090
02077 NZT -0 52000 0 01460 02100 TRA +0 02000 0 02102 02101 TSX +0 07400 4 00002
TRANSFER TO INSERT 062 LM00091
02102 TRA +0 02000 0 00051
OR WHENEVER CWD .E. $APPEND$ .OR. CWD .E. $ A$ 063 LM00093
02103 TRA +0 02000 0 03415 02104 CLA +0 50000 0 00106 02105 SUB +0 40200 0 01530 02106 TZE +0 10000 0 02112
02107 CLA +0 50000 0 00106 02110 SUB +0 40200 0 01505 02111 TNZ -0 10000 0 02123
WHENEVER LENGTH .G. 0, LENGTH = LENGTH - 1 064 LM00094
02112 CLA +0 50000 0 00700 02113 SUB +0 40200 0 01500 02114 TZE +0 10000 0 02121 02115 TMI -0 12000 0 02121
02116 CLA +0 50000 0 00700 02117 SUB +0 40200 0 01501 02120 STO +0 60100 0 00700
TRANSFER TO APPEND 065 LM00095
02121 TRA +0 02000 0 00034
OR WHENEVER CWD .E. $RETYPE$ .OR. CWD .E. $ R$ 066 LM00097
02122 TRA +0 02000 0 03415 02123 CLA +0 50000 0 00106 02124 SUB +0 40200 0 01545 02125 TZE +0 10000 0 02131
02126 CLA +0 50000 0 00106 02127 SUB +0 40200 0 01514 02130 TNZ -0 10000 0 02157
RETYPE LENGTH = 0 067 LM00098
02131 CLA +0 50000 0 01500 02132 STO +0 60100 0 00700
APPEND THROUGH RPLC, FOR EDCT = EDCT + 1, 1, EDCT .G. COUNT 068 LM00099
02133 CLA +0 50000 0 00111 02134 ADD +0 40000 0 01501 02135 STO +0 60100 0 00111 02136 TRA +0 02000 0 02142
02137 CLA +0 50000 0 00111 02140 ADD +0 40000 0 01501 02141 STO +0 60100 0 00111 02142 CLA +0 50000 0 00111
02143 SUB +0 40200 0 00105 02144 TZE +0 10000 0 02146 02145 TPL +0 12000 0 02156
LENGTH = LENGTH + 1 069 LM00100
02146 CLA +0 50000 0 00700 02147 ADD +0 40000 0 01501 02150 STO +0 60100 0 00700
RPLC LINE(LENGTH) = EDLIN(EDCT) 070 LM00101
02151 LXA +0 53400 1 00700 02152 LXA +0 53400 2 00111 02153 CLA +0 50000 2 00663 02154 STO +0 60100 1 01452
02155 TRA +0 02000 0 02137
OR WHENEVER CWD .E. $ ERASE$ .OR. CWD .E. $ E$ 071 LM00103
02156 TRA +0 02000 0 03415 02157 CLA +0 50000 0 00106 02160 SUB +0 40200 0 01534 02161 TZE +0 10000 0 02165
02162 CLA +0 50000 0 00106 02163 SUB +0 40200 0 01516 02164 TNZ -0 10000 0 02203
WHENEVER EDLIN(EDCT+1) .NE. BLANK, SETERS.(EDLIN(EDCT+1)) 072 LM00104
02165 CLA +0 50000 0 00111 02166 ADD +0 40000 0 01501 02167 PAX +0 73400 1 00000 02170 CLA +0 50000 1 00663
02171 SUB +0 40200 0 00076 02172 TZE +0 10000 0 02202 02173 CLA +0 50000 0 00111 02174 ADD +0 40000 0 01501
02175 SUB +0 40200 0 02176 02176 TXH +3 00000 0 00663 02177 STA +0 62100 0 02201 02200 TSX +0 07400 4 00022
02201 TXH +3 00000 0 00000
OR WHENEVER CWD .E. $ KILL$ .OR. CWD .E. $ K$ 073 LM00106
02202 TRA +0 02000 0 03415 02203 CLA +0 50000 0 00106 02204 SUB +0 40200 0 01540 02205 TZE +0 10000 0 02211
02206 CLA +0 50000 0 00106 02207 SUB +0 40200 0 01522 02210 TNZ -0 10000 0 02227
WHENEVER EDLIN(EDCT+1) .NE. BLANK, SETKIL.(EDLIN(EDCT+1)) 074 LM00107
02211 CLA +0 50000 0 00111 02212 ADD +0 40000 0 01501 02213 PAX +0 73400 1 00000 02214 CLA +0 50000 1 00663
02215 SUB +0 40200 0 00076 02216 TZE +0 10000 0 02226 02217 CLA +0 50000 0 00111 02220 ADD +0 40000 0 01501
02221 SUB +0 40200 0 02222 02222 TXH +3 00000 0 00663 02223 STA +0 62100 0 02225 02224 TSX +0 07400 4 00023
02225 TXH +3 00000 0 00000
OR WHENEVER CWD .E. $ BREAK$ .OR. CWD .E. $ BR$ 075 LM00111
02226 TRA +0 02000 0 03415 02227 CLA +0 50000 0 00106 02230 SUB +0 40200 0 01526 02231 TZE +0 10000 0 02235
02232 CLA +0 50000 0 00106 02233 SUB +0 40200 0 01515 02234 TNZ -0 10000 0 02260
WHENEVER EDLIN(EDCT) .E. RETURN 076 LM00112
02235 LXA +0 53400 1 00111 02236 CLA +0 50000 1 00663 02237 SUB +0 40200 0 01467 02240 TNZ -0 10000 0 02244
MCHNG = RETURN 077 LM00113
02241 CLA +0 50000 0 01467 02242 STO +0 60100 0 01454
OR WHENEVER EDLIN(EDCT+1) .NE. BLANK 078 LM00114
02243 TRA +0 02000 0 02257 02244 CLA +0 50000 0 00111 02245 ADD +0 40000 0 01501 02246 PAX +0 73400 1 00000
02247 CLA +0 50000 1 00663 02250 SUB +0 40200 0 00076 02251 TZE +0 10000 0 02257
MCHNG = EDLIN(EDCT+1) 079 LM00115
02252 CLA +0 50000 0 00111 02253 ADD +0 40000 0 01501 02254 PAX +0 73400 2 00000 02255 CLA +0 50000 2 00663
02256 STO +0 60100 0 01454
END OF CONDITIONAL 080 LM00116
OR WHENEVER CWD .E. $VERIFY$ .OR. CWD .E. $ V$ 081 LM00118
02257 TRA +0 02000 0 03415 02260 CLA +0 50000 0 00106 02261 SUB +0 40200 0 01551 02262 TZE +0 10000 0 02266
02263 CLA +0 50000 0 00106 02264 SUB +0 40200 0 01554 02265 TNZ -0 10000 0 02305
CWD = GET.(0) 082 LM00119
02266 TSX +0 07400 4 00031 02267 TXH +3 00000 0 01500 02270 STO +0 60100 0 00106
WHENEVER CWD .E. $ ON$ 083 LM00120
02271 CLA +0 50000 0 00106 02272 SUB +0 40200 0 01527 02273 TNZ -0 10000 0 02277
BRIEF = 0B 084 LM00121
02274 CLA +0 50000 0 01500 02275 STO +0 60100 0 00077
OR WHENEVER CWD .E. $ OFF$ 085 LM00122
02276 TRA +0 02000 0 02304 02277 CLA +0 50000 0 00106 02300 SUB +0 40200 0 01525 02301 TNZ -0 10000 0 02304
BRIEF = 1B 086 LM00123
02302 CLA +0 50000 0 01501 02303 STO +0 60100 0 00077
END OF CONDITIONAL 087 LM00124
OR WHENEVER CWD .E. $LOCATE$ .OR. CWD .E. $ L$ 088 LM00126
02304 TRA +0 02000 0 03415 02305 CLA +0 50000 0 00106 02306 SUB +0 40200 0 01541 02307 TZE +0 10000 0 02313
02310 CLA +0 50000 0 00106 02311 SUB +0 40200 0 01513 02312 TNZ -0 10000 0 02317
LOCATE = 1 089 LM00127
02313 CLA +0 50000 0 01501 02314 STO +0 60100 0 01453
TRANSFER TO FIND 090 LM00128
02315 TRA +0 02000 0 00045
OR WHENEVER CWD .E. $ FIND$ .OR. CWD .E. $ F$ 091 LM00130
02316 TRA +0 02000 0 03415 02317 CLA +0 50000 0 00106 02320 SUB +0 40200 0 01535 02321 TZE +0 10000 0 02325
02322 CLA +0 50000 0 00106 02323 SUB +0 40200 0 01521 02324 TNZ -0 10000 0 02510
LOCATE = 0 092 LM00131
02325 CLA +0 50000 0 01500 02326 STO +0 60100 0 01453
FIND WHENEVER EDCT+1 .GE. COUNT 093 LM00132
02327 CLA +0 50000 0 00111 02330 ADD +0 40000 0 01501 02331 SUB +0 40200 0 00105 02332 TZE +0 10000 0 02334
02333 TMI -0 12000 0 02341
COUNT = OCOUNT 094 LM00133
02334 CLA +0 50000 0 01457 02335 STO +0 60100 0 00105
EDCT = EDCT + 1 095 LM00134
02336 CLA +0 50000 0 00111 02337 ADD +0 40000 0 01501 02340 STO +0 60100 0 00111
END OF CONDITIONAL 096 LM00135
OCOUNT = COUNT 097 LM00136
02341 CLA +0 50000 0 00105 02342 STO +0 60100 0 01457
NTFND WRITE.(LINE, LENGTH) 098 LM00137
02343 TSX +0 07400 4 00027 02344 TXH +3 00000 0 01452 02345 TXH +3 00000 0 00700
WHENEVER .NOT. OK, CLSOUT. 099 LM00138
02346 ZET +0 52000 0 01460 02347 TRA +0 02000 0 02351 02350 TSX +0 07400 4 00030
LENGTH = READ.(LINE, BUFSIZ, EOF) 100 LM00139
02351 TSX +0 07400 4 00017 02352 TXH +3 00000 0 01452 02353 TXH +3 00000 0 00100 02354 TXH +3 00000 0 00044
02355 STO +0 60100 0 00700
THROUGH LOCSCN, FOR K=0, 1,K.G.LOCATE*(LENGTH-COUNT+EDCT) 101 LM00140
02356 CLA +0 50000 0 01500 02357 STO +0 60100 0 00677 02360 TRA +0 02000 0 02364 02361 CLA +0 50000 0 00677
02362 ADD +0 40000 0 01501 02363 STO +0 60100 0 00677 02364 CLA +0 50000 0 00700 02365 SUB +0 40200 0 00105
02366 ADD +0 40000 0 00111 02367 XCA +0 13100 0 00000 02370 MPY +0 20000 0 01453 02371 XCA +0 13100 0 00000
02372 CHS +0 76000 0 00002 02373 ADD +0 40000 0 00677 02374 TZE +0 10000 0 02376 02375 TPL +0 12000 0 02506
J = K 102 LM00141
02376 CLA +0 50000 0 00677 02377 STO +0 60100 0 00676
THROUGH LOOK, FOR I = EDCT+1, 1, I .GE. COUNT 103 LM00142
02400 CLA +0 50000 0 00111 02401 ADD +0 40000 0 01501 02402 STO +0 60100 0 00675 02403 TRA +0 02000 0 02407
02404 CLA +0 50000 0 00675 02405 ADD +0 40000 0 01501 02406 STO +0 60100 0 00675 02407 CLA +0 50000 0 00675
02410 SUB +0 40200 0 00105 02411 TZE +0 10000 0 02475 02412 TPL +0 12000 0 02475
J = J + 1 104 LM00143
02413 CLA +0 50000 0 00676 02414 ADD +0 40000 0 01501 02415 STO +0 60100 0 00676
TAGN WHENEVER LINE(J) .E. EDLIN(I), TRANSFER TO LOOK 105 LM00144
02416 LXA +0 53400 1 00676 02417 LXA +0 53400 2 00675 02420 CLA +0 50000 1 01452 02421 SUB +0 40200 2 00663
02422 TNZ -0 10000 0 02424 02423 TRA +0 02000 0 00053
WHENEVER (LINE(J).E. TAB) .AND. (EDLIN(I) .E. BLANK) 106 LM00145
1 , TRANSFER TO LOOK 106 LM00146
02424 LXA +0 53400 1 00675 02425 CLA +0 50000 1 00663 02426 SUB +0 40200 0 00076 02427 TNZ -0 10000 0 02435
02430 LXA +0 53400 1 00676 02431 CLA +0 50000 1 01452 02432 SUB +0 40200 0 01473 02433 TNZ -0 10000 0 02435
02434 TRA +0 02000 0 00053
WHENEVER EDLIN(I-1) .NE. BLANK .OR. I .E. EDCT + 1 107 LM00147
1 , TRANSFER TO LOCSCN 107 LM00148
02435 CLA +0 50000 0 00111 02436 ADD +0 40000 0 01501 02437 CHS +0 76000 0 00002 02440 ADD +0 40000 0 00675
02441 TZE +0 10000 0 02450 02442 CLA +0 50000 0 00675 02443 SUB +0 40200 0 01501 02444 PAX +0 73400 1 00000
02445 CLA +0 50000 1 00663 02446 SUB +0 40200 0 00076 02447 TZE +0 10000 0 02451 02450 TRA +0 02000 0 00052
WHENEVER LINE(J) .NE. BLANK .AND. LINE(J) .NE. TAB 108 LM00149
1 , TRANSFER TO LOCSCN 108 LM00150
02451 LXA +0 53400 1 00676 02452 CLA +0 50000 1 01452 02453 SUB +0 40200 0 01473 02454 TZE +0 10000 0 02461
02455 CLA +0 50000 1 01452 02456 SUB +0 40200 0 00076 02457 TZE +0 10000 0 02461 02460 TRA +0 02000 0 00052
J = J + 1 109 LM00151
02461 CLA +0 50000 0 00676 02462 ADD +0 40000 0 01501 02463 STO +0 60100 0 00676
TRANSFER TO TAGN 110 LM00152
02464 TRA +0 02000 0 00067
LOOK WHENEVER I .E. EDCT+1, FNDST = J 111 LM00153
02465 CLA +0 50000 0 00111 02466 ADD +0 40000 0 01501 02467 CHS +0 76000 0 00002 02470 ADD +0 40000 0 00675
02471 TNZ -0 10000 0 02474 02472 CLA +0 50000 0 00676 02473 STO +0 60100 0 00670 02474 TRA +0 02000 0 02404
FNDND = J 112 LM00154
02475 CLA +0 50000 0 00676 02476 STO +0 60100 0 00667
WHENEVER .NOT. BRIEF, PRNT.(FNDST, FNDND) 113 LM00155
02477 ZET +0 52000 0 00077 02500 TRA +0 02000 0 02504 02501 TSX +0 07400 4 00032 02502 TXH +3 00000 0 00670
02503 TXH +3 00000 0 00667
TRANSFER TO NXRQ 114 LM00156
02504 TRA +0 02000 0 00060
LOCSCN CONTINUE 115 LM00157
02505 TRA +0 02000 0 02361
TRANSFER TO NTFND 116 LM00158
02506 TRA +0 02000 0 00057
OR WHENEVER CWD .E. $ PRINT$ .OR. CWD .E. $ P$ 117 LM00160
02507 TRA +0 02000 0 03415 02510 CLA +0 50000 0 00106 02511 SUB +0 40200 0 01543 02512 TZE +0 10000 0 02516
02513 CLA +0 50000 0 00106 02514 SUB +0 40200 0 01517 02515 TNZ -0 10000 0 02564
NPRNT = BIN.(GET.(0)) 118 LM00161
02516 TSX +0 07400 4 00031 02517 TXH +3 00000 0 01500 02520 STO +0 60100 0 03710 02521 TSX +0 07400 4 00001
02522 TXH +3 00000 0 03710 02523 STO +0 60100 0 01455
PNTLP WHENEVER LENGTH .E. 0 119 LM00162
02524 CLA +0 50000 0 00700 02525 SUB +0 40200 0 01500 02526 TNZ -0 10000 0 02540
PRINT COMMENT $0N1O0 1C1U1R1R1E1N1T0 1L1I1N1E0.$ 120 LM00163
02527 TSX +0 07400 4 00015 02530 +0 00000 0 00006 02531 +0 04501 4 60060 02532 +0 12301 6 40151
02533 +0 15101 2 50145 02534 +0 16300 6 00143 02535 +0 13101 4 50125 02536 +0 03360 6 06060
OTHERWISE 121 LM00164
02537 TRA +0 02000 0 02543
TYPOUT.(LINE, LENGTH) 122 LM00165
02540 TSX +0 07400 4 00025 02541 TXH +3 00000 0 01452 02542 TXH +3 00000 0 00700
END OF CONDITIONAL 123 LM00166
NPRNT = NPRNT - 1 124 LM00167
02543 CLA +0 50000 0 01455 02544 SUB +0 40200 0 01501 02545 STO +0 60100 0 01455
WHENEVER NPRNT .G. 0 125 LM00168
02546 CLA +0 50000 0 01455 02547 SUB +0 40200 0 01500 02550 TZE +0 10000 0 02563 02551 TMI -0 12000 0 02563
WRITE.(LINE, LENGTH) 126 LM00169
02552 TSX +0 07400 4 00027 02553 TXH +3 00000 0 01452 02554 TXH +3 00000 0 00700
LENGTH = READ.(LINE, BUFSIZ, EOF) 127 LM00170
02555 TSX +0 07400 4 00017 02556 TXH +3 00000 0 01452 02557 TXH +3 00000 0 00100 02560 TXH +3 00000 0 00044
02561 STO +0 60100 0 00700
TRANSFER TO PNTLP 128 LM00171
02562 TRA +0 02000 0 00061
END OF CONDITIONAL 129 LM00172
OR WHENEVER CWD .E. $ TOP$ .OR. CWD .E. $ T$ 130 LM00174
02563 TRA +0 02000 0 03415 02564 CLA +0 50000 0 00106 02565 SUB +0 40200 0 01550 02566 TZE +0 10000 0 02572
02567 CLA +0 50000 0 00106 02570 SUB +0 40200 0 01552 02571 TNZ -0 10000 0 02602
TOPLP WRITE.(LINE, LENGTH) 131 LM00175
02572 TSX +0 07400 4 00027 02573 TXH +3 00000 0 01452 02574 TXH +3 00000 0 00700
WHENEVER OK, BOTTOM. 132 LM00176
02575 NZT -0 52000 0 01460 02576 TRA +0 02000 0 02600 02577 TSX +0 07400 4 00002
CLSOUT. 133 LM00177
02600 TSX +0 07400 4 00030
OR WHENEVER CWD .E. $CHANGE$ .OR. CWD .E. $ C$ 134 LM00179
02601 TRA +0 02000 0 03415 02602 CLA +0 50000 0 00106 02603 SUB +0 40200 0 01532 02604 TZE +0 10000 0 02610
02605 CLA +0 50000 0 00106 02606 SUB +0 40200 0 01510 02607 TNZ -0 10000 0 03172
EDCT = EDCT+1 135 LM00185
02610 CLA +0 50000 0 00111 02611 ADD +0 40000 0 01501 02612 STO +0 60100 0 00111
QUOTE = EDLIN(EDCT) 136 LM00186
02613 LXA +0 53400 2 00111 02614 CLA +0 50000 2 00663 02615 STO +0 60100 0 01464
STR1 = EDCT 137 LM00187
02616 CLA +0 50000 0 00111 02617 STO +0 60100 0 01471
QLOOP THROUGH QLOOP, FOR EDCT = EDCT+1, 1, 138 LM00188
1 (EDLIN(EDCT) .E. QUOTE) .OR. (EDCT .GE. COUNT) 138 LM00189
02620 CLA +0 50000 0 00111 02621 ADD +0 40000 0 01501 02622 STO +0 60100 0 00111 02623 TRA +0 02000 0 02627
02624 CLA +0 50000 0 00111 02625 ADD +0 40000 0 01501 02626 STO +0 60100 0 00111 02627 CLA +0 50000 0 00111
02630 SUB +0 40200 0 00105 02631 TZE +0 10000 0 02640 02632 TPL +0 12000 0 02640 02633 LXA +0 53400 1 00111
02634 CLA +0 50000 1 00663 02635 SUB +0 40200 0 01464 02636 TZE +0 10000 0 02640 02637 TRA +0 02000 0 02624
STR2 = EDCT 139 LM00190
02640 CLA +0 50000 0 00111 02641 STO +0 60100 0 01472
QLOOP1 THROUGH QLOOP1, FOR EDCT = EDCT+1, 1, 140 LM00191
1 (EDLIN(EDCT) .E. QUOTE) .OR. (EDCT .GE. COUNT) 140 LM00192
02642 CLA +0 50000 0 00111 02643 ADD +0 40000 0 01501 02644 STO +0 60100 0 00111 02645 TRA +0 02000 0 02651
02646 CLA +0 50000 0 00111 02647 ADD +0 40000 0 01501 02650 STO +0 60100 0 00111 02651 CLA +0 50000 0 00111
02652 SUB +0 40200 0 00105 02653 TZE +0 10000 0 02662 02654 TPL +0 12000 0 02662 02655 LXA +0 53400 1 00111
02656 CLA +0 50000 1 00663 02657 SUB +0 40200 0 01464 02660 TZE +0 10000 0 02662 02661 TRA +0 02000 0 02646
EST2 = EDCT 141 LM00193
02662 CLA +0 50000 0 00111 02663 STO +0 60100 0 00664
EDCT = EDCT + 1 142 LM00197
02664 CLA +0 50000 0 00111 02665 ADD +0 40000 0 01501 02666 STO +0 60100 0 00111
TEM = 1 143 LM00198
02667 CLA +0 50000 0 01501 02670 STO +0 60100 0 01474
GLOBAL = 0B 144 LM00199
02671 CLA +0 50000 0 01500 02672 STO +0 60100 0 00672
ARGLP CWD = GET.(0) 145 LM00200
02673 TSX +0 07400 4 00031 02674 TXH +3 00000 0 01500 02675 STO +0 60100 0 00106
WHENEVER CWD .E. $ $ 146 LM00201
02676 CLA +0 50000 0 00106 02677 SUB +0 40200 0 01546 02700 TNZ -0 10000 0 02703
TRANSFER TO SHIFT 147 LM00202
02701 TRA +0 02000 0 00063
OR WHENEVER CWD .E. $ G$ 148 LM00203
02702 TRA +0 02000 0 02721 02703 CLA +0 50000 0 00106 02704 SUB +0 40200 0 01536 02705 TNZ -0 10000 0 02716
WHENEVER STR2 .NE. STR1+1, GLOBAL = 1B 149 LM00204
02706 CLA +0 50000 0 01471 02707 ADD +0 40000 0 01501 02710 CHS +0 76000 0 00002 02711 ADD +0 40000 0 01472
02712 TZE +0 10000 0 02715 02713 CLA +0 50000 0 01501 02714 STO +0 60100 0 00672
OTHERWISE 150 LM00205
02715 TRA +0 02000 0 02721
TEM = BIN.(CWD) 151 LM00206
02716 TSX +0 07400 4 00001 02717 TXH +3 00000 0 00106 02720 STO +0 60100 0 01474
END OF CONDITIONAL 152 LM00207
TRANSFER TO ARGLP 153 LM00208
02721 TRA +0 02000 0 00035
SHIFT THROUGH MVDWN, FOR I = LENGTH, -1, I .L. 1 154 LM00212
02722 CLA +0 50000 0 00700 02723 STO +0 60100 0 00675 02724 TRA +0 02000 0 02730 02725 CLS +0 50200 0 01501
02726 ADD +0 40000 0 00675 02727 STO +0 60100 0 00675 02730 CLA +0 50000 0 00675 02731 SUB +0 40200 0 01501
02732 TZE +0 10000 0 02734 02733 TMI -0 12000 0 02744
MVDWN LINE(BUFSIZ+I-LENGTH) = LINE(I) 155 LM00213
02734 CLA +0 50000 0 00100 02735 ADD +0 40000 0 00675 02736 SUB +0 40200 0 00700 02737 PAX +0 73400 1 00000
02740 LXA +0 53400 2 00675 02741 CLA +0 50000 2 01452 02742 STO +0 60100 1 01452 02743 TRA +0 02000 0 02725
DOWN = BUFSIZ-LENGTH+1 156 LM00214
02744 CLA +0 50000 0 00100 02745 SUB +0 40200 0 00700 02746 ADD +0 40000 0 01501 02747 STO +0 60100 0 00110
UP = 0 157 LM00215
02750 CLA +0 50000 0 01500 02751 STO +0 60100 0 01476
CHNG = 0B 158 LM00216
02752 CLA +0 50000 0 01500 02753 STO +0 60100 0 00102
CHST = LENGTH + 1 159 LM00217
02754 CLA +0 50000 0 00700 02755 ADD +0 40000 0 01501 02756 STO +0 60100 0 00103
CHEND = LENGTH 160 LM00218
02757 CLA +0 50000 0 00700 02760 STO +0 60100 0 00101
SRCHLP UP = UP + 1 161 LM00222
02761 CLA +0 50000 0 01476 02762 ADD +0 40000 0 01501 02763 STO +0 60100 0 01476
SRTST WHENEVER DOWN .G. BUFSIZ, TRANSFER TO GIVUP 162 LM00223
02764 CLA +0 50000 0 00110 02765 SUB +0 40200 0 00100 02766 TZE +0 10000 0 02771 02767 TMI -0 12000 0 02771
02770 TRA +0 02000 0 00046
J = DOWN 163 LM00224
02771 CLA +0 50000 0 00110 02772 STO +0 60100 0 00676
THROUGH COMPAR, FOR I = STR1+1, 1, I .GE. STR2 164 LM00225
02773 CLA +0 50000 0 01471 02774 ADD +0 40000 0 01501 02775 STO +0 60100 0 00675 02776 TRA +0 02000 0 03002
02777 CLA +0 50000 0 00675 03000 ADD +0 40000 0 01501 03001 STO +0 60100 0 00675 03002 CLA +0 50000 0 00675
03003 SUB +0 40200 0 01472 03004 TZE +0 10000 0 03025 03005 TPL +0 12000 0 03025
WHENEVER J .GE. BUFSIZ, TRANSFER TO GIVUP 165 LM00226
03006 CLA +0 50000 0 00676 03007 SUB +0 40200 0 00100 03010 TZE +0 10000 0 03012 03011 TMI -0 12000 0 03013
03012 TRA +0 02000 0 00046
WHENEVER EDLIN(I) .NE. LINE(J), TRANSFER TO NOCOMP 166 LM00227
03013 LXA +0 53400 1 00675 03014 LXA +0 53400 2 00676 03015 CLA +0 50000 1 00663 03016 SUB +0 40200 2 01452
03017 TZE +0 10000 0 03021 03020 TRA +0 02000 0 00055
COMPAR J = J + 1 167 LM00228
03021 CLA +0 50000 0 00676 03022 ADD +0 40000 0 01501 03023 STO +0 60100 0 00676 03024 TRA +0 02000 0 02777
TRANSFER TO STFND 168 LM00229
03025 TRA +0 02000 0 00066
NOCOMP LINE(UP) = LINE(DOWN) 169 LM00231
03026 LXA +0 53400 1 01476 03027 LXA +0 53400 2 00110 03030 CLA +0 50000 2 01452 03031 STO +0 60100 1 01452
DOWN = DOWN + 1 170 LM00232
03032 CLA +0 50000 0 00110 03033 ADD +0 40000 0 01501 03034 STO +0 60100 0 00110
TRANSFER TO SRCHLP 171 LM00233
03035 TRA +0 02000 0 00064
STFND CHNG = 1B 172 LM00237
03036 CLA +0 50000 0 01501 03037 STO +0 60100 0 00102
DOWN = DOWN + (STR2-STR1-1) 173 LM00238
03040 CLA +0 50000 0 01472 03041 SUB +0 40200 0 01471 03042 SUB +0 40200 0 01501 03043 ADD +0 40000 0 00110
03044 STO +0 60100 0 00110
CHST = UP 174 LM00239
03045 CLA +0 50000 0 01476 03046 STO +0 60100 0 00103
THROUGH REPLAC, FOR I = STR2 + 1, 1, I .GE. EST2 175 LM00240
03047 CLA +0 50000 0 01472 03050 ADD +0 40000 0 01501 03051 STO +0 60100 0 00675 03052 TRA +0 02000 0 03056
03053 CLA +0 50000 0 00675 03054 ADD +0 40000 0 01501 03055 STO +0 60100 0 00675 03056 CLA +0 50000 0 00675
03057 SUB +0 40200 0 00664 03060 TZE +0 10000 0 03077 03061 TPL +0 12000 0 03077
LINE(UP) = EDLIN(I) 176 LM00241
03062 LXA +0 53400 1 01476 03063 LXA +0 53400 2 00675 03064 CLA +0 50000 2 00663 03065 STO +0 60100 1 01452
UP = UP + 1 177 LM00242
03066 CLA +0 50000 0 01476 03067 ADD +0 40000 0 01501 03070 STO +0 60100 0 01476
REPLAC WHENEVER UP .G. DOWN, TRANSFER TO GIVUP 178 LM00243
03071 CLA +0 50000 0 01476 03072 SUB +0 40200 0 00110 03073 TZE +0 10000 0 03076 03074 TMI -0 12000 0 03076
03075 TRA +0 02000 0 00046 03076 TRA +0 02000 0 03053
CHEND = UP - 1 179 LM00244
03077 CLA +0 50000 0 01476 03100 SUB +0 40200 0 01501 03101 STO +0 60100 0 00101
WHENEVER GLOBAL, TRANSFER TO SRTST 180 LM00245
03102 NZT -0 52000 0 00672 03103 TRA +0 02000 0 03105 03104 TRA +0 02000 0 00065
GIVUP THROUGH FILOUT, FOR UP = UP, 1, DOWN .G. BUFSIZ 181 LM00249
03105 CLA +0 50000 0 01476 03106 STO +0 60100 0 01476 03107 TRA +0 02000 0 03113 03110 CLA +0 50000 0 01476
03111 ADD +0 40000 0 01501 03112 STO +0 60100 0 01476 03113 CLA +0 50000 0 00110 03114 SUB +0 40200 0 00100
03115 TZE +0 10000 0 03117 03116 TPL +0 12000 0 03127
LINE(UP) = LINE(DOWN) 182 LM00250
03117 LXA +0 53400 1 01476 03120 LXA +0 53400 2 00110 03121 CLA +0 50000 2 01452 03122 STO +0 60100 1 01452
FILOUT DOWN = DOWN + 1 183 LM00251
03123 CLA +0 50000 0 00110 03124 ADD +0 40000 0 01501 03125 STO +0 60100 0 00110 03126 TRA +0 02000 0 03110
LENGTH = UP - 1 184 LM00252
03127 CLA +0 50000 0 01476 03130 SUB +0 40200 0 01501 03131 STO +0 60100 0 00700
TEM = TEM - 1 185 LM00253
03132 CLA +0 50000 0 01474 03133 SUB +0 40200 0 01501 03134 STO +0 60100 0 01474
WHENEVER .NOT. BRIEF .AND. (TEM .G. 0 .THEN. CHNG) 186 LM00254
1 , PRNT.(CHST, CHEND) 186 LM00255
03135 ZET +0 52000 0 00102 03136 TRA +0 02000 0 03143 03137 CLA +0 50000 0 01474 03140 SUB +0 40200 0 01500
03141 TZE +0 10000 0 03143 03142 TPL +0 12000 0 03150 03143 ZET +0 52000 0 00077 03144 TRA +0 02000 0 03150
03145 TSX +0 07400 4 00032 03146 TXH +3 00000 0 00103 03147 TXH +3 00000 0 00101
CANON.(LINE, LENGTH, BUFSIZ) 187 LM00256
03150 TSX +0 07400 4 00003 03151 TXH +3 00000 0 01452 03152 TXH +3 00000 0 00700 03153 TXH +3 00000 0 00100
WHENEVER TEM .G. 0 188 LM00257
03154 CLA +0 50000 0 01474 03155 SUB +0 40200 0 01500 03156 TZE +0 10000 0 03171 03157 TMI -0 12000 0 03171
WRITE.(LINE, LENGTH) 189 LM00258
03160 TSX +0 07400 4 00027 03161 TXH +3 00000 0 01452 03162 TXH +3 00000 0 00700
LENGTH = READ.(LINE, BUFSIZ, EOF) 190 LM00259
03163 TSX +0 07400 4 00017 03164 TXH +3 00000 0 01452 03165 TXH +3 00000 0 00100 03166 TXH +3 00000 0 00044
03167 STO +0 60100 0 00700
TRANSFER TO SHIFT 191 LM00260
03170 TRA +0 02000 0 00063
END OF CONDITIONAL 192 LM00261
OR WHENEVER CWD .E. $ SPLIT$ .OR. CWD .E. $ S$ 193 LM00265
03171 TRA +0 02000 0 03415 03172 CLA +0 50000 0 00106 03173 SUB +0 40200 0 01547 03174 TZE +0 10000 0 03200
03175 CLA +0 50000 0 00106 03176 SUB +0 40200 0 01553 03177 TNZ -0 10000 0 03261
TOPNAM = GET.(0) 194 LM00266
03200 TSX +0 07400 4 00031 03201 TXH +3 00000 0 01500 03202 STO +0 60100 0 01475
WHENEVER TOPNAM .E. $ $, TRANSFER TO NONAME 195 LM00267
03203 CLA +0 50000 0 01475 03204 SUB +0 40200 0 01546 03205 TNZ -0 10000 0 03207 03206 TRA +0 02000 0 00056
WHENEVER TOPNAM .E. OLDNAM .AND. FSTPAS 196 LM00268
03207 NZT -0 52000 0 00671 03210 TRA +0 02000 0 03227 03211 CLA +0 50000 0 01475 03212 SUB +0 40200 0 01461
03213 TNZ -0 10000 0 03227
NEWNM PRINT COMMENT $0P1L1E1A1S1E0 1U1S1E0 1A1N1O1T1H1E1R0 1N1A 197 LM00269
11M1E0.$ 197 LM00270
03214 TSX +0 07400 4 00015 03215 +0 00000 0 00010 03216 +0 04701 4 30125 03217 +0 12101 6 20125
03220 +0 06001 6 40162 03221 +0 12500 6 00121 03222 +0 14501 4 60163 03223 +0 13001 2 50151
03224 +0 06001 4 50121 03225 +0 14401 2 50033
TRANSFER TO NXRQ 198 LM00271
03226 TRA +0 02000 0 00060
END OF CONDITIONAL 199 LM00272
SECNAM = GET.(0) 200 LM00273
03227 TSX +0 07400 4 00031 03230 TXH +3 00000 0 01500 03231 STO +0 60100 0 01470
WHENEVER SECNAM .E. $ $, SECNAM = OLDSEC 201 LM00274
03232 CLA +0 50000 0 01470 03233 SUB +0 40200 0 01546 03234 TNZ -0 10000 0 03237 03235 CLA +0 50000 0 01462
03236 STO +0 60100 0 01470
CLRNAM.(TOPNAM, SECNAM, NEWNM, 1B) 202 LM00275
03237 TSX +0 07400 4 00006 03240 TXH +3 00000 0 01475 03241 TXH +3 00000 0 01470 03242 TXH +3 00000 0 00054
03243 TXH +3 00000 0 01501
CLOSEW. 203 LM00276
03244 TSX +0 07400 4 00005
RENAME.(IN, FI, TOPNAM, SECNAM) 204 LM00277
03245 TSX +0 07400 4 00020 03246 TXH +3 00000 0 00674 03247 TXH +3 00000 0 00666 03250 TXH +3 00000 0 01475
03251 TXH +3 00000 0 01470
ASSIGN.(IN, FI) 205 LM00278
03252 TSX +0 07400 4 00000 03253 TXH +3 00000 0 00674 03254 TXH +3 00000 0 00666
OLDNAM = FENCE 206 LM00279
03255 CLA +0 50000 0 00665 03256 STO +0 60100 0 01461
TRANSFER TO TOPLP 207 LM00280
03257 TRA +0 02000 0 00070
OR WHENEVER CWD .E. $ QUIT$ .OR. CWD .E. $ Q$ 208 LM00282
03260 TRA +0 02000 0 03415 03261 CLA +0 50000 0 00106 03262 SUB +0 40200 0 01544 03263 TZE +0 10000 0 03267
03264 CLA +0 50000 0 00106 03265 SUB +0 40200 0 01524 03266 TNZ -0 10000 0 03303
ENDRD. 209 LM00283
03267 TSX +0 07400 4 00011
CLOSEW. 210 LM00284
03270 TSX +0 07400 4 00005
DELFIL.(IN1, FI, DLQ1) 211 LM00285
03271 TSX +0 07400 4 00010 03272 TXH +3 00000 0 00673 03273 TXH +3 00000 0 00666 03274 TXH +3 00000 0 00041
DLQ1 DELFIL.(IN, FI, DLQ2) 212 LM00286
03275 TSX +0 07400 4 00010 03276 TXH +3 00000 0 00674 03277 TXH +3 00000 0 00666 03300 TXH +3 00000 0 00042
DLQ2 TRANSFER TO CHN 213 LM00287
03301 TRA +0 02000 0 00036
OR WHENEVER CWD .E. $ FILE$ 214 LM00289
03302 TRA +0 02000 0 03415 03303 CLA +0 50000 0 00106 03304 SUB +0 40200 0 01520 03305 TNZ -0 10000 0 03403
PRINAM = GET.(0) 215 LM00290
03306 TSX +0 07400 4 00031 03307 TXH +3 00000 0 01500 03310 STO +0 60100 0 01463
CLRSW = 1B 216 LM00291
03311 CLA +0 50000 0 01501 03312 STO +0 60100 0 00104
WHENEVER PRINAM .E. $ $ 217 LM00292
03313 CLA +0 50000 0 01463 03314 SUB +0 40200 0 01546 03315 TNZ -0 10000 0 03325
PRINAM = OLDNAM 218 LM00293
03316 CLA +0 50000 0 01461 03317 STO +0 60100 0 01463
SECNAM = OLDSEC 219 LM00294
03320 CLA +0 50000 0 01462 03321 STO +0 60100 0 01470
CLRSW = 0B 220 LM00295
03322 CLA +0 50000 0 01500 03323 STO +0 60100 0 00104
OTHERWISE 221 LM00296
03324 TRA +0 02000 0 03335
SECNAM = GET.(0) 222 LM00297
03325 TSX +0 07400 4 00031 03326 TXH +3 00000 0 01500 03327 STO +0 60100 0 01470
WHENEVER SECNAM .E. $ $ 223 LM00298
03330 CLA +0 50000 0 01470 03331 SUB +0 40200 0 01546 03332 TNZ -0 10000 0 03335
SECNAM = OLDSEC 224 LM00299
03333 CLA +0 50000 0 01462 03334 STO +0 60100 0 01470
END OF CONDITIONAL 225 LM00300
END OF CONDITIONAL 226 LM00301
WHENEVER PRINAM .E. FENCE 227 LM00302
03335 CLA +0 50000 0 01463 03336 SUB +0 40200 0 00665 03337 TNZ -0 10000 0 03352
NONAME PRINT COMMENT $0N1O0 1F1I1L1E0 1N1A1M1E0 1G1I1V1E1N0.$ 228 LM00303
03340 TSX +0 07400 4 00015 03341 +0 00000 0 00007 03342 +0 04501 4 60060 03343 +0 12601 3 10143
03344 +0 12500 6 00145 03345 +0 12101 4 40125 03346 +0 06001 2 70131 03347 +0 16501 2 50145
03350 +0 03360 6 06060
TRANSFER TO NXRQ 229 LM00304
03351 TRA +0 02000 0 00060
END OF CONDITIONAL 230 LM00305
WRITE.(LINE, LENGTH) 231 LM00306
03352 TSX +0 07400 4 00027 03353 TXH +3 00000 0 01452 03354 TXH +3 00000 0 00700
LENGTH = 0 232 LM00307
03355 CLA +0 50000 0 01500 03356 STO +0 60100 0 00700
WHENEVER OK, BOTTOM. 233 LM00308
03357 NZT -0 52000 0 01460 03360 TRA +0 02000 0 03362 03361 TSX +0 07400 4 00002
CLRNAM.(PRINAM, SECNAM, NEWNM, CLRSW) 234 LM00309
03362 TSX +0 07400 4 00006 03363 TXH +3 00000 0 01463 03364 TXH +3 00000 0 01470 03365 TXH +3 00000 0 00054
03366 TXH +3 00000 0 00104
CLOSEW. 235 LM00310
03367 TSX +0 07400 4 00005
DELFIL.(IN1, FI, DL1) 236 LM00311
03370 TSX +0 07400 4 00010 03371 TXH +3 00000 0 00673 03372 TXH +3 00000 0 00666 03373 TXH +3 00000 0 00037
DL1 RENAME.(IN, FI, PRINAM, SECNAM) 237 LM00312
03374 TSX +0 07400 4 00020 03375 TXH +3 00000 0 00674 03376 TXH +3 00000 0 00666 03377 TXH +3 00000 0 01463
03400 TXH +3 00000 0 01470
CHN EXIT. 238 LM00313
03401 TSX +0 07400 4 00012
OTHERWISE 239 LM00315
03402 TRA +0 02000 0 03415
PRINT COMMENT $0N1O1T0 1A0 1R1E1Q1U1E1S1T0:$ 240 LM00316
03403 TSX +0 07400 4 00015 03404 +0 00000 0 00005 03405 +0 04501 4 60163 03406 +0 06001 2 10060
03407 +0 15101 2 50150 03410 +0 16401 2 50162 03411 +0 16300 3 56060
TYPOUT.(EDLIN, COUNT) 241 LM00317
03412 TSX +0 07400 4 00025 03413 TXH +3 00000 0 00663 03414 TXH +3 00000 0 00105
END OF CONDITIONAL 242 LM00319
TRANSFER TO NXRQ 243 LM00320
03415 TRA +0 02000 0 00060
EOF PRINTCOMMENT $0E1N1D0 1O1F0 1F1I1L1E0 1R1E1A1C1H1E1D0 1B1Y0:$ 244 LM00322
03416 TSX +0 07400 4 00015 03417 +0 00000 0 00010 03420 +0 02501 4 50124 03421 +0 06001 4 60126
03422 +0 06001 2 60131 03423 +0 14301 2 50060 03424 +0 15101 2 50121 03425 +0 12301 3 00125
03426 +0 12400 6 00122 03427 +0 17000 3 56060
TYPOUT.(EDLIN, COUNT) 245 LM00323
03430 TSX +0 07400 4 00025 03431 TXH +3 00000 0 00663 03432 TXH +3 00000 0 00105
LENGTH = 0 246 LM00324
03433 CLA +0 50000 0 01500 03434 STO +0 60100 0 00700
OK = 0B 247 LM00325
03435 CLA +0 50000 0 01500 03436 STO +0 60100 0 01460
TRANSFER TO NXRQ 248 LM00326
03437 TRA +0 02000 0 00060
INTERNAL FUNCTION 249 LM00334
03440 TRA +0 02000 0 03510
ENTRY TO CLSOUT. 250 LM00335
03441 TRA +0 02000 0 03444 00030 TTR +0 02100 0 03442 03442 SXA +0 63400 2 03477 03443 TSX +0 07400 2 03477
CLOSEW. 251 LM00336
03444 TSX +0 07400 4 00005
DELFIL.(IN1, FI, DL2) 252 LM00337
03445 TSX +0 07400 4 00010 03446 TXH +3 00000 0 00673 03447 TXH +3 00000 0 00666 03450 TXH +3 00000 0 00040
DL2 CHFILE.(IN, FI, -0, IN1) 253 LM00338
03451 CLS +0 50200 0 01500 03452 STO +0 60100 0 03507 03453 TSX +0 07400 4 00004 03454 TXH +3 00000 0 00674
03455 TXH +3 00000 0 00666 03456 TXH +3 00000 0 03507 03457 TXH +3 00000 0 00673
SEEK.(IN1, FI, CHN) 254 LM00339
03460 TSX +0 07400 4 00021 03461 TXH +3 00000 0 00673 03462 TXH +3 00000 0 00666 03463 TXH +3 00000 0 00036
ASSIGN.(IN, FI) 255 LM00340
03464 TSX +0 07400 4 00000 03465 TXH +3 00000 0 00674 03466 TXH +3 00000 0 00666
OK = 1B 256 LM00341
03467 CLA +0 50000 0 01501 03470 STO +0 60100 0 01460
LENGTH = 0 257 LM00342
03471 CLA +0 50000 0 01500 03472 STO +0 60100 0 00700
FSTPAS = 0B 258 LM00343
03473 CLA +0 50000 0 01500 03474 STO +0 60100 0 00671
FUNCTION RETURN 259 LM00344
03475 TRA +0 02000 0 03503
END OF FUNCTION 260 LM00345
03476 TSX +0 07400 4 00012 03477 TXH +3 00000 0 00000 03500 SXD -0 63400 1 03477 03501 SXA +0 63400 4 03503
03502 TRA +0 02000 2 00001 03503 AXT +0 77400 4 00000 03504 LXA +0 53400 2 03477 03505 LXD -0 53400 1 03477
03506 TRA +0 02000 4 00001
INTERNAL FUNCTION 261 LM00349
03510 TRA +0 02000 0 03616
ENTRY TO GET. 262 LM00350
03511 TRA +0 02000 0 03514 00031 TTR +0 02100 0 03512 03512 SXA +0 63400 2 03605 03513 TSX +0 07400 2 03605
WORD = $ $ 263 LM00351
03514 CLA +0 50000 0 01546 03515 STO +0 60100 0 01477
SCANLP THROUGH SCANLP, FOR EDCT = EDCT, 1, 264 LM00352
1 (EDLIN(EDCT+1).NE.BLANK) .OR. (EDCT+1.GE.COUNT) 264 LM00353
03516 CLA +0 50000 0 00111 03517 STO +0 60100 0 00111 03520 TRA +0 02000 0 03524 03521 CLA +0 50000 0 00111
03522 ADD +0 40000 0 01501 03523 STO +0 60100 0 00111 03524 CLA +0 50000 0 00111 03525 ADD +0 40000 0 01501
03526 SUB +0 40200 0 00105 03527 TZE +0 10000 0 03540 03530 TPL +0 12000 0 03540 03531 CLA +0 50000 0 00111
03532 ADD +0 40000 0 01501 03533 PAX +0 73400 1 00000 03534 CLA +0 50000 1 00663 03535 SUB +0 40200 0 00076
03536 TNZ -0 10000 0 03540 03537 TRA +0 02000 0 03521
GTLP EDCT = EDCT + 1 265 LM00354
03540 CLA +0 50000 0 00111 03541 ADD +0 40000 0 01501 03542 STO +0 60100 0 00111
WHENEVER EDLIN(EDCT) .E. BLANK, FUNCTION RETURN WORD 266 LM00355
03543 LXA +0 53400 1 00111 03544 CLA +0 50000 1 00663 03545 SUB +0 40200 0 00076 03546 TNZ -0 10000 0 03551
03547 CLA +0 50000 0 01477 03550 TRA +0 02000 0 03611
WHENEVER EDLIN(EDCT) .E. TAB .OR. EDCT .GE. COUNT 267 LM00356
03551 CLA +0 50000 0 00111 03552 SUB +0 40200 0 00105 03553 TZE +0 10000 0 03561 03554 TPL +0 12000 0 03561
03555 LXA +0 53400 1 00111 03556 CLA +0 50000 1 00663 03557 SUB +0 40200 0 01473 03560 TNZ -0 10000 0 03566
EDCT = EDCT - 1 268 LM00357
03561 CLA +0 50000 0 00111 03562 SUB +0 40200 0 01501 03563 STO +0 60100 0 00111
FUNCTION RETURN WORD 269 LM00358
03564 CLA +0 50000 0 01477 03565 TRA +0 02000 0 03611
END OF CONDITIONAL 270 LM00359
WORD = (WORD .LS. 6) .V. HOL.(EDLIN(EDCT)) 271 LM00360
03566 CLA +0 50000 0 00111 03567 SUB +0 40200 0 03570 03570 TXH +3 00000 0 00663 03571 STA +0 62100 0 03573
03572 TSX +0 07400 4 00014 03573 TXH +3 00000 0 00000 03574 STO +0 60100 0 03615 03575 CAL -0 50000 0 01504
03576 STA +0 62100 0 03600 03577 CAL -0 50000 0 01477 03600 ALS +0 76700 0 00000 03601 ORA -0 50100 0 03615
03602 SLW +0 60200 0 01477
TRANSFER TO GTLP 272 LM00361
03603 TRA +0 02000 0 00047
END OF FUNCTION 273 LM00362
03604 TSX +0 07400 4 00012 03605 TXH +3 00000 0 00000 03606 SXD -0 63400 1 03605 03607 SXA +0 63400 4 03611
03610 TRA +0 02000 2 00001 03611 AXT +0 77400 4 00000 03612 LXA +0 53400 2 03605 03613 LXD -0 53400 1 03605
03614 TRA +0 02000 4 00001
INTERNAL FUNCTION(STAR, EN) 274 LM00366
03616 TRA +0 02000 0 03707
ENTRY TO PRNT. 275 LM00367
03617 TRA +0 02000 0 03622 00032 TTR +0 02100 0 03620 03620 SXA +0 63400 2 03666 03621 TSX +0 07400 2 03666
TYPOUT.(LINE, STAR-1) 276 LM00368
03622 CLA +0 50000 0 00024 03623 SUB +0 40200 0 01501 03624 STO +0 60100 0 03706 03625 TSX +0 07400 4 00025
03626 TXH +3 00000 0 01452 03627 TXH +3 00000 0 03706
TYPOUT.(REDS, 1) 277 LM00369
03630 TSX +0 07400 4 00025 03631 TXH +3 00000 0 01466 03632 TXH +3 00000 0 01501
TYPOUT.(LINE(STAR-1), EN-STAR+1) 278 LM00370
03633 CLA +0 50000 0 00024 03634 SUB +0 40200 0 00024 03635 ADD +0 40000 0 01501 03636 STO +0 60100 0 03706
03637 CLA +0 50000 0 00024 03640 SUB +0 40200 0 01501 03641 SUB +0 40200 0 03642 03642 TXH +3 00000 0 01452
03643 STA +0 62100 0 03645 03644 TSX +0 07400 4 00025 03645 TXH +3 00000 0 00000 03646 TXH +3 00000 0 03706
TYPOUT.(BLACKS, 1) 279 LM00371
03647 TSX +0 07400 4 00025 03650 TXH +3 00000 0 00075 03651 TXH +3 00000 0 01501
TYPOUT.(LINE(EN), LENGTH-EN) 280 LM00372
03652 CLA +0 50000 0 00700 03653 SUB +0 40200 0 00024 03654 STO +0 60100 0 03706 03655 CLA +0 50000 0 00024
03656 SUB +0 40200 0 03657 03657 TXH +3 00000 0 01452 03660 STA +0 62100 0 03662 03661 TSX +0 07400 4 00025
03662 TXH +3 00000 0 00000 03663 TXH +3 00000 0 03706
FUNCTION RETURN 281 LM00373
03664 TRA +0 02000 0 03702
END OF FUNCTION 282 LM00374
03665 TSX +0 07400 4 00012 03666 TXH +3 00000 0 00000 03667 SXD -0 63400 1 03666 03670 SXA +0 63400 4 03702
03671 CLA +0 50000 4 00001 03672 STA +0 62100 0 03622 03673 STA +0 62100 0 03634 03674 STA +0 62100 0 03637
03675 CLA +0 50000 4 00002 03676 STA +0 62100 0 03633 03677 STA +0 62100 0 03653 03700 STA +0 62100 0 03655
03701 TRA +0 02000 2 00001 03702 AXT +0 77400 4 00000 03703 LXA +0 53400 2 03666 03704 LXD -0 53400 1 03666
03705 TRA +0 02000 4 00001
END OF PROGRAM 283 LM00376
03707 TSX +0 07400 4 00012
1 MAD PROGRAM LISTING ... ... ... FILE EDAVAL MAD 04/23/69 1348.8
-
.. ROUTINE TO RETURN INITIAL VALUES TO EDITOR FOR LM00001
.. EDITING ASCII FILES. LM00002
LM00003
EXTERNAL FUNCTION(BLANK, TAB, DEFALT, MCHNG, RED, BLACK) *001 LM00004
NORMAL MODE IS INTEGER *002 LM00005
ENTRY TO GETVAL. *003 LM00006
BLANK = 040K *004 LM00007
TAB = 011K *005 LM00008
DEFALT = $ ASCII$ *006 LM00009
MCHNG = 056K *007 LM00010
RED = 016K *008 LM00011
BLACK = 017K *009 LM00012
FUNCTION RETURN *010 LM00013
END OF FUNCTION *011 LM00014
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00061 TRANSFER VECTOR LENGTH 00001 PROGRAM BEGINS 00012
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
GETVAL 00013 0
0FUNCTION DICTIONARY
EXIT 00000 1
0ABSOLUTE CONSTANTS
00005 +000000000017 00004 +000000000016 00007 +000000000056 00011 -202162233131 00003 +000000000011
00006 +000000000040 00002 +000000000001 00010 +233000000000
0PROGRAM
EXTERNAL FUNCTION(BLANK, TAB, DEFALT, MCHNG, RED, BLACK) 001 LM00004
N'R 002 LM00005
E'O GETVAL. 003 LM00006
00012 TRA +0 02000 0 00015 00013 SXA +0 63400 2 00033 00014 TSX +0 07400 2 00033
BLANK = 040K 004 LM00007
00015 CLA +0 50000 0 00006 00016 STO +0 60100 0 00024
TAB = 011K 005 LM00008
00017 CLA +0 50000 0 00003 00020 STO +0 60100 0 00024
DEFALT = $ ASCII$ 006 LM00009
00021 CLA +0 50000 0 00011 00022 STO +0 60100 0 00024
MCHNG = 056K 007 LM00010
00023 CLA +0 50000 0 00007 00024 STO +0 60100 0 00024
RED = 016K 008 LM00011
00025 CLA +0 50000 0 00004 00026 STO +0 60100 0 00024
BLACK = 017K 009 LM00012
00027 CLA +0 50000 0 00005 00030 STO +0 60100 0 00024
F'N 010 LM00013
00031 TRA +0 02000 0 00053
E'N 011 LM00014
00032 TSX +0 07400 4 00000 00033 TXH +3 00000 0 00000 00034 SXD -0 63400 1 00033 00035 SXA +0 63400 4 00053
00036 CLA +0 50000 4 00001 00037 STA +0 62100 0 00016 00040 CLA +0 50000 4 00002 00041 STA +0 62100 0 00020
00042 CLA +0 50000 4 00003 00043 STA +0 62100 0 00022 00044 CLA +0 50000 4 00004 00045 STA +0 62100 0 00024
00046 CLA +0 50000 4 00005 00047 STA +0 62100 0 00026 00050 CLA +0 50000 4 00006 00051 STA +0 62100 0 00030
00052 TRA +0 02000 2 00001 00053 AXT +0 77400 4 00000 00054 LXA +0 53400 2 00033 00055 LXD -0 53400 1 00033
00056 TRA +0 02000 4 00001
1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. 04/23/69 1349.6 PAGE 1
* NOTE, INDEX REGISTERS SIX AND SEVEN MUST BE PRESERVED
* BY THE CALLING PROGRAM.
* THIS ROUTINE MAKES TYPEWRITER COMMENTS, BUT DOES NOT
* AFFECT THE BCD-FULL MODE SWITCH.
*
* J. H. SALTZER, JANUARY, 1965.
*
00015 ENTRY ASSIGN TO ASSIGN A NAME TO THE WRITE FILE.
00057 ENTRY WRWORD TO ADD A WORD TO THE FILE.
00100 ENTRY FILE TO CLOSE THE FILE.
*
00160 ENTRY SEEK TO OPEN A FILE FOR READING.
00242 ENTRY RDWORD TO GET A WORD FROM FILE.
00275 ENTRY ENDRD TO CLOSE THE FILE.
*
EXTERN GETBUF,SETBCD,SETFUL,WRFLX,WRFLXA
EXTERN OPEN,WRWAIT,RDWAIT,CLOSE,FSTATE,BUFFER
*
* ASSIGN.($NAME1$,$NAME2$)
*
TRANSFER VECTOR
00000 272563226426 GETBUF
00001 622563222324 SETBCD
00002 622563266443 SETFUL
00003 665126436760 WRFLX
00004 665126436721 WRFLXA
00005 464725456060 OPEN
00006 665166213163 WRWAIT
00007 512466213163 RDWAIT
00010 234346622560 CLOSE
00011 266263216325 FSTATE
00012 226426262551 BUFFER
LINKAGE DIRECTOR
00013 000000000000
00014 216262312745
00015 -0500 60 4 00001 ASSIGN CAL* 1,4 OPEN FILE, GET FILE NAME.
00016 0602 00 0 00304 SLW OUTNAM ..
00017 -0500 60 4 00002 CAL* 2,4 ..
00020 0602 00 0 00305 SLW OUTNAM+1 ..
00021 0634 00 4 00041 SXA OPX4,4 SAVE LINKAGE.
00022 0020 00 0 00023 OSW TRA *+1 ENTER ONE-TIME SECTION TO GET BUFFERS.
* *******************
00023 -0500 00 0 00315 CAL WBFSZ GET AN OUTPUT BUFFER FROM SUPERVISOR.
00024 0074 00 4 00000 TSX GETBUF,4 ..
00025 0621 00 0 00071 STA WCALL SAVE LOCATION OF BUFFER.
00026 0621 00 0 00113 STA CLCALL TO CLOSE OUT FILE.
00027 0361 00 0 00315 ACL WBFSZ ADD LENGTH, TO FORM END ADDRESS.
00030 0621 00 0 00060 STA WRNM INSERT IN INSERTER.
00031 -0500 00 0 00313 CAL TRKSZ GET A DISK TRACK BUFFER.
00032 0074 00 4 00000 TSX GETBUF,4 ..
00033 0621 00 0 00055 STA BFCALL SET UP BUFFER CALLER.
00034 -0625 00 0 00022 STL OSW RESET ONE-TIME SWITCH.
* *******************
1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. 04/23/69 1349.6 PAGE 2
00035 0774 00 4 00040 AXT OPOK,4 SET QUOTA EXHAUSTED ERROR RETURN.
00036 0634 00 4 00143 SXA WRTN,4 ..
00037 0074 00 3 00043 TSX OPN,3 OPEN THE FILE.
00040 0774 00 7 00330 OPOK AXT WBFLTH,7 SET UP STORAGE COUNT.
00041 0774 00 4 00000 OPX4 AXT --,4 RESTORE LINKAGE.
00042 0020 00 4 00003 TRA 3,4 RETURN.
*
00043 0074 00 4 00005 OPN TSX OPEN,4 OPEN FILE.
TD 00044 3 00000 0 00324 TXH =HW FOR WRITING.
TD 00045 3 00000 0 00304 TXH OUTNAM ..
TD 00046 3 00000 0 00305 TXH OUTNAM+1 ..
TD 00047 3 00000 0 00156 TXH MODE MAKE IT PERMANENT IF POSSIBLE.
TD 00050 3 00000 0 00320 TXH =2 PUT IT ON THE DISK.
TD 00051 3 00000 0 00127 OPERR TXH OEXH IN CASE NO MORE QUOTA AVAILABLE.
00052 0074 00 4 00012 TSX BUFFER,4 ASSIGN A BUFFER FOR THE FILE.
TD 00053 3 00000 0 00304 TXH OUTNAM ..
TD 00054 3 00000 0 00305 TXH OUTNAM+1 ..
00055 3 00660 0 00000 BFCALL TXH --,,TRKLTH ..
00056 0020 00 3 00001 TRA 1,3 RETURN TO CALLER.
*
*
* ENTRY TO ADD A WORD TO FILE.
* WRWORD.(WORD)
*
00057 -0500 60 4 00001 WRWORD CAL* 1,4 GET WORD TO BE ADDED.
00060 0602 00 7 00000 WRNM SLW --,7 ADD WORD TO OUTPUT BUFFER.
00061 2 00001 7 00077 TIX RETURN,7,1 COUNT AND CHECK FOR FULL BUFFER.
00062 0634 00 4 00076 FULL SXA FULX4,4 BUFFER FULL, WRITE IT OUT.
00063 0774 00 4 00065 AXT WRAGN,4 SET UP EXHAUSTED RETURN ADDRESS.
00064 0634 00 4 00143 SXA WRTN,4 ..
00065 0074 00 4 00006 WRAGN TSX WRWAIT,4 GIVE BUFFER TO SUPERVISOR.
TD 00066 3 00000 0 00304 TXH OUTNAM ..
TD 00067 3 00000 0 00305 TXH OUTNAM+1 ..
TD 00070 3 00000 0 00316 TXH =0 ..
00071 3 00330 0 00000 WCALL TXH --,,WBFLTH ..
TD 00072 3 00000 0 00321 TXH =-0 IGNORE POSSIBLE EOF.
TD 00073 3 00000 0 00321 TXH =-0 ..
TD 00074 3 00000 0 00124 WRERR TXH WEXH ALLOW ERROR RETURN.
00075 0774 00 7 00330 AXT WBFLTH,7 RESET BUFFER POINTER.
00076 0774 00 4 00000 FULX4 AXT --,4 RESTORE LINKAGE.
00077 0020 00 4 00002 RETURN TRA 2,4 RETURN TO CALLER.
*
* FILE. NO ARGUMENTS.
*
00100 0634 00 4 00122 FILE SXA CL4,4 ENTRY TO CLOSE OUT FILE.
00101 -0634 00 7 00103 SXD *+2,7 FORM COUNT OF WORDS SINCE
00102 0774 00 7 00330 AXT WBFLTH,7 LAST BUFFER WAS WRITTEN.
00103 -2 00000 7 00117 TNX NOWR,7,-- IF ZERO, SKIP FINAL WRITE CALL.
00104 -0634 00 7 00113 SXD CLCALL,7 NON-ZERO, SET UP WRITE CALL.
00105 0774 00 4 00107 AXT FWR,4 SET UP RETURN ADDRESS FOR EXHAUSTED CASE.
00106 0634 00 4 00143 SXA WRTN,4 ..
00107 0074 00 4 00006 FWR TSX WRWAIT,4 WRITE OUT PARTIAL BUFFER.
TD 00110 3 00000 0 00304 TXH OUTNAM ..
TD 00111 3 00000 0 00305 TXH OUTNAM+1 ..
TD 00112 3 00000 0 00316 TXH =0 ..
00113 3 00000 0 00000 CLCALL TXH --,,-- ..
1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. 04/23/69 1349.6 PAGE 3
TD 00114 3 00000 0 00321 TXH =-0 IGNORE EOF RETURN.
TD 00115 3 00000 0 00321 TXH =-0 ..
TD 00116 3 00000 0 00124 TXH WEXH ALLOW ERROR RETURN.
00117 0074 00 4 00010 NOWR TSX CLOSE,4 CLOSE OUT THE FILE.
TD 00120 3 00000 0 00304 TXH OUTNAM ..
TD 00121 3 00000 0 00305 TXH OUTNAM+1 ..
00122 0774 00 4 00000 CL4 AXT --,4 RESTORE LINKAGE.
00123 0020 00 4 00001 TRA 1,4 ..
*
00124 0074 00 4 00010 WEXH TSX CLOSE,4 TRACK QUOTA EXHAUSTED, CLOSE FILE.
TD 00125 3 00000 0 00304 TXH OUTNAM ..
TD 00126 3 00000 0 00305 TXH OUTNAM+1 ..
00127 0074 00 4 00001 OEXH TSX SETBCD,4 ENTRY FROM OPEN ERROR, COMMENT.
00130 0601 00 0 00157 STO MODSW SAVE OLD CHARACTER MODE SETTING.
00131 0074 00 4 00003 TSX WRFLX,4 ..
00132 0 00011 0 00144 ERMESS,,9
00133 0520 00 0 00157 ZET MODSW SHOULD 12-BIT INDICATOR BE RESET.
00134 0074 00 4 00002 TSX SETFUL,4 YES, RESET INDICATOR.
00135 -0500 00 0 00317 CAL =1 SWITCH TO TEMPORARY MODE.
00136 0601 00 0 00156 STO MODE ..
00137 -0500 00 0 00155 CAL NOP BLOCK FUTURE ERROR RETURN.
00140 0602 00 0 00051 SLW OPERR ..
00141 0602 00 0 00074 SLW WRERR
00142 0074 00 3 00043 TSX OPN,3 NOW, OPEN IT AGAIN.
00143 0020 00 0 00000 WRTN TRA -- ALL FIXED, RETURN TO MAIN STREAM.
*
00144 635121234260 ERMESS BCI 9,TRACK QUOTA EXHAUSTED, TEMPORARY MODE WILL BE USED.
00145 506446632160
00146 256730216462
00147 632524736063
00150 254447465121
00151 517060444624
00152 256066314343
00153 602225606462
00154 252433606060
00155 0761 00 0 00000 NOP NOP INSTRUCTION TO BLOCK ERROR RETURN.
00156 0 00000 0 00000 MODE 0 START IN PERMANENT MODE.
00157 0 00000 0 00000 MODSW TEMP STORAGE FOR 6-BIT,12-BIT INDICATOR.
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* SEEK.($NAME1$, $NAME2$, ERRET)
* ERROR RETURN MEANS FILE NOT FOUND.
*
00160 -0500 60 4 00001 SEEK CAL* 1,4 GET FILE NAME.
00161 0602 00 0 00306 SLW INNAM ..
00162 -0500 60 4 00002 CAL* 2,4 ..
00163 0602 00 0 00307 SLW INNAM+1 ..
00164 0634 00 4 00222 SXA SKX4,4 SAVE LINKAGE.
00165 0020 00 0 00166 SKSW TRA *+1 ENTER ONE-TIME SECTION TO GET BUFFERS.
* *********************
00166 -0500 00 0 00314 CAL RBFSZ GET A BUFFER FROM SUPERVISOR.
00167 0074 00 4 00000 TSX GETBUF,4 ..
00170 0621 00 0 00257 STA ECALL STORE BUFFER LOCATION.
00171 0621 00 0 00217 STA STCALL ..
00172 -0625 00 0 00165 STL SKSW RESET ONE-TIME SWITCH.
* *********************
1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. 04/23/69 1349.6 PAGE 4
00173 -0500 00 0 00217 CAL STCALL SET UP PICKUP INSTRUCTION FOR INDEXING.
00174 0361 00 0 00314 ACL RBFSZ ..
00175 0621 00 0 00242 STA RDWORD ..
00176 0074 00 4 00011 TSX FSTATE,4 MAKE SURE FILE IS THERE.
TD 00177 3 00000 0 00306 TXH INNAM ..
TD 00200 3 00000 0 00307 TXH INNAM+1 ..
TD 00201 3 00000 0 00321 TXH =-0 DON'T WANT DATA.
TD 00202 3 00000 0 00224 TXH NOTFN ERROR RETURN MEANS FILE NOT THERE.
00203 0074 00 4 00005 TSX OPEN,4 OPEN THE FILE FOR READING.
TD 00204 3 00000 0 00322 TXH =HR ..
TD 00205 3 00000 0 00306 TXH INNAM ..
TD 00206 3 00000 0 00307 TXH INNAM+1 ..
00207 0774 00 6 00660 AXT RBFLTH,6 SET UP BUFFER COUNTER.
00210 0774 00 4 00222 AXT SKX4,4 SET END OF FILE RETURN.
00211 0634 00 4 00274 SXA EOFRTN,4 ..
00212 0600 00 0 00312 STZ EOFR CLEAR END OF FILE SWITCH.
00213 0074 00 4 00007 TSX RDWAIT,4 GET INITIAL BUFFER LOAD.
TD 00214 3 00000 0 00306 TXH INNAM ..
TD 00215 3 00000 0 00307 TXH INNAM+1 ..
TD 00216 3 00000 0 00316 TXH =0 ..
00217 3 00660 0 00000 STCALL TXH --,,RBFLTH ..
TD 00220 3 00000 0 00265 TXH EOF END OF FILE RETURN.
TD 00221 3 00000 0 00311 TXH EOFCT ..
00222 0774 00 4 00000 SKX4 AXT --,4 RESTORE LINKAGE.
00223 0020 00 4 00004 TRA 4,4 RETURN TO CALLER.
*
00224 0074 00 4 00001 NOTFN TSX SETBCD,4 FILE NOT FOUND, COMMENT.
00225 0601 00 0 00157 STO MODSW SAVE OLD CHARACTER MODE SETTING.
00226 0074 00 4 00004 TSX WRFLXA,4 START UP COMMENT.
00227 0 00001 0 00323 =H FILE ,,1 ..
00230 0074 00 4 00004 TSX WRFLXA,4 INSERT FILE NAME.
00231 0 00002 0 00306 INNAM,,2 ..
00232 0074 00 4 00003 TSX WRFLX,4 END OF COMMENT.
00233 0 00002 0 00240 ECM,,2 ..
00234 0520 00 0 00157 ZET MODSW SHOULD 12-BIT INDICATOR BE RESET.
00235 0074 00 4 00002 TSX SETFUL,4 YES, RESET MODE.
00236 0534 00 4 00222 LXA SKX4,4 GIVE ERROR RETURN.
00237 0020 60 4 00003 TRA* 3,4 ..
*
00240 604546636026 ECM BCI 2, NOT FOUND.
00241 466445243360
*
* ENTRY TO OBTAIN WORD FROM FILE.
* WORD = RDWORD.(EOF)
*
00242 0500 00 6 00000 RDWORD CLA --,6 GET WORD FROM INPUT BUFFER.
00243 2 00001 6 00264 TIX GOBACK,6,1 INDEX, AND CHECK FOR EMPTY BUFFER.
00244 0520 00 0 00312 ZET EOFR BUFFER EMPTY, HAS END OF FILE OCCURRED.
00245 0020 60 4 00001 TRA* 1,4 YES, GIVE EOF RETURN.
00246 0601 00 0 00310 STO RTEMP NO, SAVE WORD AND GET SOME MORE DATA.
00247 0634 00 4 00263 SXA EMPX4,4 SAVE LINKAGE, ALSO.
00250 0774 00 6 00660 AXT RBFLTH,6 RESET BUFFER POINTER.
00251 0774 00 4 00262 AXT EMPGT,4 SET END OF FILE RETURN.
00252 0634 00 4 00274 SXA EOFRTN,4 ..
00253 0074 00 4 00007 TSX RDWAIT,4 GET ANOTHER BUFFER LOAD OF DATA.
TD 00254 3 00000 0 00306 TXH INNAM ..
1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. 04/23/69 1349.6 PAGE 5
TD 00255 3 00000 0 00307 TXH INNAM+1 ..
TD 00256 3 00000 0 00316 TXH =0 ..
00257 3 00660 0 00000 ECALL TXH --,,RBFLTH ..
TD 00260 3 00000 0 00265 TXH EOF ..
TD 00261 3 00000 0 00311 TXH EOFCT ..
00262 0500 00 0 00310 EMPGT CLA RTEMP RESTORE WORD FOR THIS CALL.
00263 0774 00 4 00000 EMPX4 AXT --,4 RESTORE LINKAGE.
00264 0020 00 4 00002 GOBACK TRA 2,4 RETURN TO CALLER.
*
00265 -0625 00 0 00312 EOF STL EOFR END OF FILE REACHED, SET SWITCH.
00266 -0500 00 0 00311 CAL EOFCT GET COUNT OF WORDS LEFT.
00267 0361 00 0 00317 ACL =1 BUGGER WORD COUNT.
00270 0734 00 6 00000 PAX 0,6 SET WORD COUNTER.
00271 0361 00 0 00257 ACL ECALL ADJUST PICKUP INSTRUCTION.
00272 0621 00 0 00242 STA RDWORD ..
00273 0074 00 4 00275 TSX ENDRD,4 TURN OFF FILE.
00274 0020 00 0 00000 EOFRTN TRA -- RETURN TO END OF RDFILE CALLING SEQUENCE.
*
* ENTRY TO CLOSE INPUT FILE.
* ENDRD.
*
00275 0634 00 4 00302 ENDRD SXA ENDX4,4 SAVE LINKAGE.
00276 0074 00 4 00010 TSX CLOSE,4 CLOSE FILE.
TD 00277 3 00000 0 00306 TXH INNAM ..
TD 00300 3 00000 0 00307 TXH INNAM+1 ..
TD 00301 3 00000 0 00302 TXH *+1 IGNORE ANY ERROR RETURN.
00302 0774 00 4 00000 ENDX4 AXT --,4 RESTORE LINKAGE.
00303 0020 00 4 00001 TRA 1,4 ..
*
00304 545454545454 OUTNAM BCI 2,************ NAME OF OUTPUT FILE.
00305 545454545454
00306 545454545454 INNAM BCI 2,************ NAME OF INPUT FILE.
00307 545454545454
00310 0 00000 0 00000 RTEMP STORAGE FOR WORD.
00311 0 00000 0 00000 EOFCT STORAGE FOR END OF FILE COUNTER.
00312 0 00000 0 00312 EOFR * SWITCH FOR END OF FILE MET.
*
00660 TRKLTH EQU 432 DISK TRACK LENGTH.
00313 0 00000 0 00660 TRKSZ TRKLTH WORD CONTAINING TRACK LENGTH.
00660 RBFLTH EQU TRKLTH READ BUFFER LENGTH.
00330 WBFLTH EQU TRKLTH/2 WRITE BUFFER LENGTH.
00314 0 00000 0 00660 RBFSZ RBFLTH WORD CONTAINING READ BUFFER SIZE.
00315 0 00000 0 00330 WBFSZ WBFLTH WORD CONTAINING WRITE BUFFER SIZE.
*
END
LITERALS
00316 000000000000
00317 000000000001
00320 000000000002
00321 400000000000
00322 516060606060
00323 602631432560
00324 666060606060
1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. 04/23/69 1349.6 PAGE 1
POST PROCESSOR ASSEMBLY DATA
325 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
122 CL4 100
240 ECM 233
265 EOF 220, 260
107 FWR 105
155 NOP 137
43 OPN 37, 142
22 OSW 34
312 EOFR 212, 244, 265
100 FILE 0
62 FULL
156 MODE 47, 136
117 NOWR 103
127 OEXH 51
5 OPEN 43, 203
40 OPOK 35
41 OPX4 21
160 SEEK 0
165 SKSW 172
222 SKX4 164, 210, 236
124 WEXH 74, 116
60 WRNM 30
143 WRTN 36, 64, 106
10 CLOSE 117, 124, 276
257 ECALL 170, 271
262 EMPGT 251
263 EMPX4 247
275 ENDRD 0, 273
302 ENDX4 275
311 EOFCT 221, 261, 266
76 FULX4 62
306 INNAM 161, 163, 177, 200, 205, 206, 214, 215, 231, 254, 255, 277, 300
157 MODSW 130, 133, 225, 234
224 NOTFN 202
51 OPERR 140
314 RBFSZ 166, 174
310 RTEMP 246, 262
313 TRKSZ 31
315 WBFSZ 23, 27
71 WCALL 25
65 WRAGN 63
74 WRERR 141
3 WRFLX 131, 232
15 ASSIGN 0
55 BFCALL 33
12 BUFFER 52
113 CLCALL 26, 104
274 EOFRTN 211, 252
144 ERMESS 132
11 FSTATE 176
0 GETBUF 24, 32, 167
264 GOBACK 243
1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. 04/23/69 1349.6 PAGE 2
POST PROCESSOR ASSEMBLY DATA
304 OUTNAM 16, 20, 45, 46, 53, 54, 66, 67, 110, 111, 120, 121, 125, 126
660 RBFLTH 207, 217, 250, 257, 314
7 RDWAIT 213, 253
242 RDWORD 0, 175, 272
77 RETURN 61
1 SETBCD 127, 224
2 SETFUL 134, 235
217 STCALL 171, 173
660 TRKLTH 55, 313, 314
330 WBFLTH 40, 71, 75, 102, 314, 315
4 WRFLXA 226, 230
6 WRWAIT 65, 107
57 WRWORD 0
0 NO ERROR IN ABOVE ASSEMBLY.
1 ROUTINE TO MAKE SURE FILE NAME IS USEABLE. 04/23/69 1353.3 PAGE 1
* USAGE: CLRNAM.(NAME1, NAME2, CANT, SW)
* FILE NAME1 NAME2 WILL BE CHECKED FOR AND
* DELETED IF POSSIBLE. IF SW
* IS TRUE, USER WILL BE ASKED BEFORE DELETING
* THE OLD FILE.
*
00012 ENTRY CLRNAM CLEAR FILE NAME.
*
EXTERN SETFUL,SETBCD,WRFLX,WRFLXA,RDFLXA
EXTERN FSTATE,CHFILE,DELFIL
*
TRANSFER VECTOR
00000 622563266443 SETFUL
00001 622563222324 SETBCD
00002 665126436760 WRFLX
00003 665126436721 WRFLXA
00004 512426436721 RDFLXA
00005 266263216325 FSTATE
00006 233026314325 CHFILE
00007 242543263143 DELFIL
LINKAGE DIRECTOR
00010 000000000000
00011 234351452144
00012 -0500 60 4 00001 CLRNAM CAL* 1,4 GET FILE NAME.
00013 0602 00 0 00121 SLW N1 ..
00014 -0500 60 4 00002 CAL* 2,4 SECONDARY NAME.
00015 0602 00 0 00122 SLW N2 ..
00016 0634 00 4 00147 SXA SV4,4 SAVE LINKAGE.
00017 0074 00 4 00005 TSX FSTATE,4 CHECK STATE OF FILE.
TD 00020 3 00000 0 00121 TXH N1 NAME
TD 00021 3 00000 0 00122 TXH N2 NAME
00022 3 00010 0 00156 TXH DATA,,8 FILE STATE
TD 00023 3 00000 0 00112 TXH FSTERR IN CASE OF ERROR
TD 00024 3 00000 0 00155 TXH ERNO GATHER ERROR NUMBER.
00025 0441 00 0 00157 LDI MODE CHECK MODE OF FILE.
00026 -0054 00 400000 LFT 400000 IS MODE NEGATIVE.
00027 0020 00 0 00100 TRA LINKED YES, FILE IS LINKED.
00030 0600 00 0 00154 STZ PROTEC ASSUME NOT PROTECTED.
00031 0056 00 000100 RNT 100 CHECK PROTECTED BIT.
00032 0020 00 0 00035 TRA CKASK NOT PROTECTED, SHOULD WE ASK ANYWAY.
00033 -0625 00 0 00154 STL PROTEC PROTECTED, SET SWITCH FOR LONG COMMENT.
00034 0020 00 0 00040 TRA ASK GO ASK PERMISSION TO DELETE FILE.
00035 0534 00 4 00147 CKASK LXA SV4,4 GET LINKAGE TO ASK SWITCH.
00036 -0520 60 4 00004 NZT* 4,4 SHOULD WE ASK PERMISSION ANYWAY.
00037 0020 00 0 00065 TRA DELETE NO, GO DELETE FILE.
00040 0074 00 4 00000 ASK TSX SETFUL,4 SET CHARACTER MODE SWITCH.
00041 0074 00 4 00003 TSX WRFLXA,4 BEGIN THE COMMENT.
00042 0 00003 0 00116 MI,,3 ..
00043 0074 00 4 00001 TSX SETBCD,4 SWITCH TO BCD FOR FILE NAME.
00044 0074 00 4 00003 TSX WRFLXA,4 WRITE OUT FILE NAME.
00045 0 00002 0 00121 N1,,2
00046 0074 00 4 00000 TSX SETFUL,4 BACK TO FULL MODE.
00047 -0520 00 0 00154 NZT PROTEC SHOULD WE CLAIM IT IS PROTECTED.
1 ROUTINE TO MAKE SURE FILE NAME IS USEABLE. 04/23/69 1353.3 PAGE 2
00050 0020 00 0 00053 TRA SKPPCM NO, SKIP THAT PART.
00051 0074 00 4 00003 TSX WRFLXA,4 YES, ANNOUNC PROTECTED PART.
00052 0 00006 0 00123 ISPTC,,6 ..
00053 0074 00 4 00003 SKPPCM TSX WRFLXA,4 NOW ASK FOR PERMISSION.
00054 0 00012 0 00131 DOYOU,,10 ..
00055 0074 00 4 00001 TSX SETBCD,4 SWITCH SO ERASE WORKS.
00056 0074 00 4 00004 TSX RDFLXA,4
00057 0 00001 0 00150 IN,,1 GET ONE WORD.
00060 0074 00 4 00000 TSX SETFUL,4 RESTORE MODE.
00061 -0500 00 0 00150 CAL IN GET THAT WORD.
00062 0771 00 0 00022 ARS 18 GET FIRST THREE CHARACTERS.
00063 0322 00 0 00170 ERA =H000YES DID HE SAY YES.
00064 -0100 00 0 00076 TNZ ERTN NO, GIVE ERROR RETURN.
00065 0074 00 4 00006 DELETE TSX CHFILE,4 GOODY, WE CAN DELETE IT.
TD 00066 3 00000 0 00121 TXH N1 MAKE SURE IT IS DELETEABLE.
TD 00067 3 00000 0 00122 TXH N2 ..
TD 00070 3 00000 0 00166 TXH =1 BY CHANGING ITS MODE TO TEMPORARY.
00071 0074 00 4 00007 TSX DELFIL,4 DELETE THE SILLY THING.
TD 00072 3 00000 0 00121 TXH N1 ..
TD 00073 3 00000 0 00122 TXH N2 ..
00074 0534 00 4 00147 RTN LXA SV4,4 RESTORE THE LINKAGE.
00075 0020 00 4 00005 TRA 5,4 RETURN TO CALLER.
*
00076 0534 00 4 00147 ERTN LXA SV4,4 ERROR RETURN, FILE CANNOT BE DELETED.
00077 0020 60 4 00003 TRA* 3,4 RETURN THROUGH ERROR RETURN.
*
00100 0074 00 4 00000 LINKED TSX SETFUL,4 FILE IS LINKED, COMMENT AND GIVE UP.
00101 0074 00 4 00003 TSX WRFLXA,4 START THE COMMENT.
00102 0 00003 0 00116 MI,,3 ..
00103 0074 00 4 00001 TSX SETBCD,4 SWITCH MODE FOR FILE NAME.
00104 0074 00 4 00003 TSX WRFLXA,4 TYPE FILE NAME.
00105 0 00002 0 00121 N1,,2 ..
00106 0074 00 4 00000 TSX SETFUL,4 SWITCH FOR REST OF COMMENT.
00107 0074 00 4 00002 TSX WRFLX,4 END THIS PART WITH A C.R.
00110 0 00004 0 00143 ISLNK,,4 ..
00111 0020 00 0 00076 TRA ERTN NOW GIVE AN ERROR RETURN.
*
00112 0500 00 0 00155 FSTERR CLA ERNO ERROR RETURN FROM FSTATE, FIND OUT WHY.
00113 0402 00 0 00167 SUB =3 RETURN 3 MEANS FILE NOT FOUND.
00114 -0100 00 0 00100 TNZ LINKED WRONG ERROR RETURN, ASSUME LINKED.
00115 0020 00 0 00074 TRA RTN FILE NOT FOUND, NAME IS OK.
*
* DATA, COMMENTS, ETC.
*
00116 004601430124 MI BCI 3,0O1L1D0 1F1I1L1E0
00117 006001260131
00120 014301250060
*
00121 0 00000 0 00000 N1 STORAGE FOR FILE NAME.
00122 0 00000 0 00000 N2 SECONDARY NAME.
*
00123 006001310162 ISPTC BCI 1,0 1I1S
00124 +006001330057 OCT 006001330057 BLANK, RED SHIFT, NULL.
00125 004700510046 BCI 3,0P0R0O0T0E0C0T0E0D
00126 006300250023
00127 006300250024
1 ROUTINE TO MAKE SURE FILE NAME IS USEABLE. 04/23/69 1353.3 PAGE 3
00130 +013200330060 OCT 013200330060 BLACK SHIFT, PERIOD, BLANK.
00131 006000400040 DOYOU BCI 9,0 0-0-0D1O0 1Y1O1U0 1W1I1S1H0 1T1O0 1D1E1L1E1T1E0 1I1T
00132 002401460060
00133 017001460164
00134 006001660131
00135 016201300060
00136 016301460060
00137 012401250143
00140 012501630125
00141 006001310163
00142 +015600600060 OCT 015600600060 TERMINAL QUESTION MARK.
*
00143 006001310162 ISLNK BCI 4,0 1I1S0 1L1I1N1K1E1D0.
00144 006001430131
00145 014501420125
00146 012400336060
*
00147 0 00000 0 00000 SV4 STORAGE FOR CALLING LINKAGE.
00150 IN BSS 4 FOR INPUT WORD.
00154 0 00000 0 00000 PROTEC SWITCH FOR PROTECTED FILE.
00155 0 00000 0 00000 ERNO STORAGE FOR ERROR NUMBER.
00156 DATA BSS 8 FOR STATE INFORMATION.
00161 DEVICE EQU DATA+3
00157 MODE EQU DATA+1
*
END
LITERALS
00166 000000000001
00167 000000000003
00170 000000702562
1 ROUTINE TO MAKE SURE FILE NAME IS USEABLE. 04/23/69 1353.3 PAGE 1
POST PROCESSOR ASSEMBLY DATA
171 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
150 IN 57, 61
116 MI 42, 102
121 N1 13, 20, 45, 66, 72, 105
122 N2 15, 21, 67, 73
40 ASK 34
74 RTN 115
147 SV4 16, 35, 74, 76
156 DATA 22, 166
155 ERNO 24, 112
76 ERTN 64, 111
157 MODE 25, 166
35 CKASK 32
131 DOYOU 54
143 ISLNK 110
123 ISPTC 52
2 WRFLX 107
6 CHFILE 65
12 CLRNAM 0
65 DELETE 37
7 DELFIL 71
161 DEVICE 166
5 FSTATE 17
112 FSTERR 23
100 LINKED 27, 114
154 PROTEC 30, 33, 47
4 RDFLXA 56
1 SETBCD 43, 55, 103
0 SETFUL 40, 46, 60, 100, 106
53 SKPPCM 50
3 WRFLXA 41, 44, 51, 53, 101, 104
0 NO ERROR IN ABOVE ASSEMBLY.
1 ROUTINE TO RENAME A FILE, FORCING PERMANENT MODE IS POSSIBLE. 04/23/69 1354.6 PAGE 1
* J. H. SALTZER, MAY, 1965.
*
00004 ENTRY RENAME RENAME FILE.
*
EXTERN CHFILE,WRFLX
*
TRANSFER VECTOR
00000 233026314325 CHFILE
00001 665126436760 WRFLX
LINKAGE DIRECTOR
00002 000000000000
00003 512545214425
00004 0500 60 4 00001 RENAME CLA* 1,4 GET FILE NAMES.
00005 0601 00 0 00071 STO OLD1 ..
00006 0500 60 4 00002 CLA* 2,4 ..
00007 0601 00 0 00072 STO OLD2 ..
00010 0601 00 0 00074 STO NEW2 ASSUME NO CHANGE IN SECONDARY NAMES.
00011 0500 60 4 00003 CLA* 3,4 ..
00012 0601 00 0 00073 STO NEW1 ..
00013 0560 00 4 00004 LDQ 4,4 CHECK FOR TXH
00014 0500 00 0 00076 CLA =O300000000000 ..
00015 0040 00 0 00020 TLQ SKPN2 NO TXH, SECONDARY NAME UNCHANGED.
00016 0500 60 4 00004 CLA* 4,4 TXH, CHANGE SECONDARY NAME.
00017 0601 00 0 00074 STO NEW2 ..
00020 0634 00 4 00036 SKPN2 SXA RETURN,4 SAVE LINKAGE.
00021 0074 00 4 00000 TSX CHFILE,4 CHANGE NAME WITHOUT CHANGING MODE.
TD 00022 3 00000 0 00071 TXH OLD1 ..
TD 00023 3 00000 0 00072 TXH OLD2 ..
TD 00024 3 00000 0 00077 TXH =-0 MODE UNCHANGED.
TD 00025 3 00000 0 00073 TXH NEW1 ..
TD 00026 3 00000 0 00074 TXH NEW2 ..
00027 0074 00 4 00000 TSX CHFILE,4 CHANGE MODE WITHOUT CHANGING NAME.
TD 00030 3 00000 0 00073 TXH NEW1 ..
TD 00031 3 00000 0 00074 TXH NEW2 ..
TD 00032 3 00000 0 00075 TXH =0 PERMANENT MODE.
TD 00033 3 00000 0 00077 TXH =-0 NAME UNCHANGED.
TD 00034 3 00000 0 00077 TXH =-0 ..
TD 00035 3 00000 0 00040 TXH CHERR IN CASE MODE UNCHANGEABLE.
00036 0774 00 4 00000 RETURN AXT --,4 RESTORE LINKAGE.
00037 0020 00 4 00001 TRA 1,4 RETURN TO CALLER.
*
00040 0074 00 4 00001 CHERR TSX WRFLX,4 ASSUME TRACK QUOTA EXHAUSTED, AND COMMENT.
00041 0 00010 0 00045 TRKQUO,,8 ..
00042 0074 00 4 00001 TSX WRFLX,4 MENTION THAT NEW FILE IS TEMP MODE.
00043 0 00013 0 00055 TMPMOD,,11 ....
00044 0020 00 0 00036 TRA RETURN EXIT.
*
* COMMENTS AND STORAGE.
*
00045 006301510121 TRKQUO BCI 8,0T1R1A1C1K0 1Q1U1O1T1A0 0E0X0H0A0U0S0T0E0D0.
00046 012301420060
00047 015001640146
00050 016301210060
1 ROUTINE TO RENAME A FILE, FORCING PERMANENT MODE IS POSSIBLE. 04/23/69 1354.6 PAGE 2
00051 002500670030
00052 002100640062
00053 006300250024
00054 003360606060
*
00055 007001460164 TMPMOD BCI 5,0Y1O1U1R0 1N1E1W0 1F1I1L1E0 1I
00056 015100600145
00057 012501660060
00060 012601310143
00061 012500600131
00062 +016200600133 OCT 016200600133 S, BLANK, RED SHIFT.
00063 006300250044 BCI 3,0T0E0M0P0O0R0A0R0Y
00064 004700460051
00065 002100510070
00066 +013200600144 OCT 013200600144 BLACK SHIFT, BLANK, SMALL M.
00067 014601240125 BCI 2,1O1D1E0.
00070 003360606060
*
00071 0 00000 0 00000 OLD1
00072 0 00000 0 00000 OLD2
00073 0 00000 0 00000 NEW1
00074 0 00000 0 00000 NEW2
*
END
LITERALS
00075 000000000000
00076 300000000000
00077 400000000000
1 ROUTINE TO RENAME A FILE, FORCING PERMANENT MODE IS POSSIBLE. 04/23/69 1354.6 PAGE 1
POST PROCESSOR ASSEMBLY DATA
100 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
73 NEW1 12, 25, 30
74 NEW2 10, 17, 26, 31
71 OLD1 5, 22
72 OLD2 7, 23
40 CHERR 35
20 SKPN2 15
1 WRFLX 40, 42
0 CHFILE 21, 27
4 RENAME 0
36 RETURN 20, 44
55 TMPMOD 43
45 TRKQUO 41
0 NO ERROR IN ABOVE ASSEMBLY.
1 BUFFER CONTROL ROUTINE FOR TYPEWRITER OUTPUT. 04/23/69 1354.9 PAGE 1
*
* J. H. SALTZER, JANUARY, 1965.
*
00004 ENTRY PRWORD ADD A WORD TO PRINT BUFFER.
00021 ENTRY PRBUFF PRINT OUT PARTIAL BUFFER.
00030 ENTRY TYWORD GET NEXT TYPED WORD.
00047 ENTRY TYLINE RESET TO START READING NEXT LINE.
*
EXTERN RDFLXA,WRFLXA
*
TRANSFER VECTOR
00000 512426436721 RDFLXA
00001 665126436721 WRFLXA
LINKAGE DIRECTOR
00002 000000000000
00003 475166465124
00034 BUFLEN EQU 28 TYPEWRITER BUFFER SIZE.
*
* ADD WORD TO PRINT BUFFER.
* PRWORD.(WORD)
*
00004 0634 00 4 00017 PRWORD SXA PRX4,4 SAVE LINKAGE.
00005 -0500 60 4 00001 CAL* 1,4 GET WORD BEING ADDED.
00006 -0734 00 4 00000 PDX 0,4 CHECK FOR DISK CONTROL WORD.
00007 3 77776 4 00017 TXH PRX4,4,-2 DON'T STORE CONTROL WORD.
00010 0774 00 4 00034 PWCNT AXT BUFLEN,4 SET WORD COUNTER (INITIALLY BUFLEN.)
00011 0602 00 4 00105 SLW BUFF+BUFLEN,4 STORE WORD IN BUFFER.
00012 2 00001 4 00016 TIX PSAVE,4,1 COUNT, CHECK FOR OVERFLOW.
00013 0074 00 4 00001 TSX WRFLXA,4 BUFFER FULL, PRINT W/O C.R.
00014 0 00034 0 00051 BUFF,,BUFLEN ..
00015 0774 00 4 00034 PFRESH AXT BUFLEN,4 RESET WORD COUNTER.
00016 0634 00 4 00010 PSAVE SXA PWCNT,4 SAVE WORD COUNTER.
00017 0774 00 4 00000 PRX4 AXT --,4 RESTORE LINKAGE.
00020 0020 00 4 00001 TRA 1,4 RETURN.
*
* PRINT OUT REMAINING BUFFER, RESET COUNTER.
*
00021 0634 00 4 00017 PRBUFF SXA PRX4,4 SAVE LINKAGE.
00022 0535 00 4 00010 LAC PWCNT,4 GET WORD COUNT.
00023 1 00034 4 00024 TXI *+1,4,BUFLEN FORM COMPLEMENT MOD BUFLEN.
00024 -0634 00 4 00026 SXD PRCL,4 SAVE COUNT IN CALLER.
00025 0074 00 4 00001 TSX WRFLXA,4 PRINT REMAINDER.
00026 0 00000 0 00051 PRCL BUFF,,-- ..
00027 0020 00 0 00015 TRA PFRESH GO REFRESH COUNTER, AND RETURN.
*
* GET A WORD FROM INPUT BUFFER.
* WORD = TYWORD.(0)
*
00030 0634 00 4 00045 TYWORD SXA TYX4,4 SAVE LINKAGE.
00031 0774 00 5 00000 TYCNT AXT --,5 GET WORD COUNTER.
00032 0774 00 4 00000 TYPOS AXT --,4 GET BUFFER POINTER.
00033 2 00006 5 00041 TIX TYGET,5,6 CHECK FOR WORDS LEFT.
00034 0074 00 4 00000 TSX RDFLXA,4 NO, GET SOME.
1 BUFFER CONTROL ROUTINE FOR TYPEWRITER OUTPUT. 04/23/69 1354.9 PAGE 2
00035 0 00034 0 00051 TYCALL BUFF,,BUFLEN ..
00036 0734 00 5 00000 PAX 0,5 INSERT 6-BIT CHARACTER COUNT INTO COUNTER.
00037 2 40000 5 00040 TIX *+1,5,16384 REMOVE BIT 21 IF PRESENT.
00040 0774 00 4 00000 AXT 0,4 RESET INPUT BUFFER POINTER.
00041 0500 00 4 00051 TYGET CLA BUFF,4 GET A WORD.
00042 1 77777 4 00043 TXI *+1,4,-1 MOVE POINTER TO NEXT WORD.
00043 0634 00 4 00032 SXA TYPOS,4 SAVE POINTER.
00044 0634 00 5 00031 SXA TYCNT,5 SAVE CHARACTER COUNTER.
00045 0774 00 4 00000 TYX4 AXT --,4 RESTORE LINKAGE.
00046 0020 00 4 00001 TRA 1,4 RETURN.
*
00047 0634 00 0 00031 TYLINE ZSA TYCNT RESET CHARACTER COUNT TO MAKE LINE EMPTY.
00050 0020 00 4 00001 TRA 1,4 RETURN
*
00051 BUFF BSS BUFLEN OUTPUT BUFFER.
*
END
1 BUFFER CONTROL ROUTINE FOR TYPEWRITER OUTPUT. 04/23/69 1354.9 PAGE 1
POST PROCESSOR ASSEMBLY DATA
105 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
51 BUFF 11, 14, 26, 35, 41
26 PRCL 24
17 PRX4 4, 7, 21
45 TYX4 30
16 PSAVE 12
10 PWCNT 16, 22
31 TYCNT 44, 47
41 TYGET 33
32 TYPOS 43
34 BUFLEN 4, 10, 11, 14, 15, 23, 35, 51
15 PFRESH 27
21 PRBUFF 0
4 PRWORD 0
0 RDFLXA 34
35 TYCALL
47 TYLINE 0
30 TYWORD 0
1 WRFLXA 13, 25
0 NO ERROR IN ABOVE ASSEMBLY.
1 SUBROUTINE TO CONVERT BCD NUMBER TO BINARY. 04/23/69 1355.8 PAGE 1
*
* J. H. SALTZER, MAY, 1966.
00002 ENTRY BIN CONVERTER.
LINKAGE DIRECTOR
00000 000000000000
00001 223145606060
00002 0634 00 1 00024 BIN SXA IRR1,1
00003 0600 00 0 00027 STZ INT CLEAR RESULT.
00004 0774 00 1 00006 AXT 6,1
00005 0560 60 4 00001 LDQ* 1,4 GET ARGUMENT.
00006 -0754 00 0 00000 LOP ZAC
00007 -0763 00 0 00006 LGL 6 GET NEXT CHARACTER.
00010 -0340 00 0 00032 LAS =10 SKIP OVER NON-DIGITS.
00011 0020 00 0 00023 TRA TIX
00012 0020 00 0 00023 TRA TIX
00013 0601 00 0 00030 STO DIG NUMBER, SAVE DIGIT.
00014 -0600 00 0 00031 STQ TEM SAVE MQ FOR MULTIPLIACATION.
00015 0560 00 0 00027 LDQ INT GET OLD NUMBER.
00016 0200 00 0 00032 MPY =10 SHIFT.
00017 0131 00 0 00000 XCA
00020 0400 00 0 00030 ADD DIG ADD THIS DIGIT TO RESULT.
00021 0601 00 0 00027 STO INT SAVE, FOR NEXT PASS.
00022 0560 00 0 00031 LDQ TEM RESTORE MQ.
00023 2 00001 1 00006 TIX TIX LOP,1,1
00024 0774 00 1 00000 IRR1 AXT --,1
00025 0500 00 0 00027 CLA INT RESULT IN AC.
00026 0020 00 4 00002 TRA 2,4
*
00027 0 00000 0 00000 INT
00030 0 00000 0 00000 DIG
00031 0 00000 0 00000 TEM
*
END
LITERALS
00032 000000000012
1 SUBROUTINE TO CONVERT BCD NUMBER TO BINARY. 04/23/69 1355.8 PAGE 1
POST PROCESSOR ASSEMBLY DATA
33 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
2 BIN 0
30 DIG 13, 20
27 INT 3, 15, 21, 25
6 LOP 23
31 TEM 14, 22
23 TIX 11, 12
24 IRR1 2
0 NO ERROR IN ABOVE ASSEMBLY.
1 LIBRARY PACKAGE. 04/23/69 1356.0 PAGE 1
00024 ENTRY .PCOMT PRINT COMMENT ROUTINE
00010 ENTRY CHNCOM GO DORMANT.
00005 ENTRY EXIT SAME.
00002 ENTRY .SETUP CALLED BY MAD MAIN PROGRA.
00013 ENTRY COMARG GET COMMAND ARGUMENT.
00106 ENTRY WHOAMI
00066 ENTRY SETBCD
00064 ENTRY SETFUL
00065 ENTRY SETBRK
00061 ENTRY WRFLXA
00063 ENTRY WRFLX
00062 ENTRY RDFLXA
00067 ENTRY UPDATE UPDATE U.F.D.
00070 ENTRY CHFILE
00071 ENTRY DELFIL
00072 ENTRY FSTATE
00073 ENTRY BUFFER
00074 ENTRY OPEN
00075 ENTRY WRWAIT
00076 ENTRY WRFILE
00077 ENTRY RDWAIT
00100 ENTRY RDFILE
00101 ENTRY CLOSE
00043 ENTRY GETBUF OBTAIN BUFFERS FROM SUPERVISOR.
*
LINKAGE DIRECTOR
00000 000000000000
00001 334723464463
00002 0760 00 0 00016 .SETUP LMTM USE SEVEN TAG MODE.
00003 0774 00 6 00000 AXT 0,6 SET UP IR6 TO AVOID EARLY CALL TO READ.
00004 0020 00 0 00064 TRA SETFUL USE FULL MODE. SETFUL RETURNS 1,4.
*
00005 0074 00 4 00066 EXIT TSX SETBCD,4 CLEANUP, RESET MODE.
00006 0074 00 4 00063 TSX WRFLX,4 PUT OUT A STAR FOR RUNCOMS.
00007 0 00001 0 00060 STAR,,1 AND THEN PERFORM CHNCOM SEQUENCE.
00010 0074 00 4 00102 CHNCOM TSX CHN,4 THIS CHNCOM ALWAYS GOES DEAD,
TD 00011 3 00000 0 00107 TXH =0 IF NO CHAIN EXISTS.
00012 0020 00 0 00010 TRA *-2 IN CASE OF RESTART, DON'T.
*
00013 0634 00 4 00022 COMARG SXA CM4,4 GET COMMAND ARGUMENT FOR MAD.
00014 -0500 60 4 00001 CAL* 1,4 GET ARGUMENT NUMBER.
00015 0602 00 0 00017 SLW ARG GIVE ARGUMENT NUMBER.
00016 0074 00 4 00103 TSX GETCOM,4 GET COMMAND ARGUMENT.
00017 0 00000 0 00000 ARG ..
00020 0602 00 0 00017 SLW ARG MOVE TO ARITHMETIC AC.
00021 0500 00 0 00017 CLA ARG ..
00022 0774 00 4 00000 CM4 AXT --,4 RESTORE LINKAGE.
00023 0020 00 4 00002 TRA 2,4 RETURN TO CALLER.
*
00024 -0500 00 4 00001 .PCOMT CAL 1,4 GET WORD COUNT.
00025 0621 00 0 00042 STA RETURN ON RETURN, JUMP BUFFER.
00026 0767 00 0 00022 ALS 18 SETUP COUNT.
00027 0622 00 0 00036 STD PCNT ..
00030 1 77776 4 00031 TXI *+1,4,-2 SETUP UP BUFFER ADDRESS.
1 LIBRARY PACKAGE. 04/23/69 1356.0 PAGE 2
00031 0636 00 4 00036 SCA PCNT,4 SAVE BUFFER ADDRESS, AND LINKAGE.
00032 0074 00 4 00064 TSX SETFUL,4 MAKE SURE MODE SET AND NO LINES COMING IN.
00033 0074 00 4 00061 TSX WRFLXA,4 SWITCH TO RED SHIFT.
00034 0 00001 0 00056 REDS,,1 ..
00035 0074 00 4 00063 TSX WRFLX,4 PRINT LINE.
00036 0 00000 0 00000 PCNT --,,-- ..
00037 0074 00 4 00061 TSX WRFLXA,4 SHIFT BACK TO BLACK.
00040 0 00001 0 00057 BLCKS,,1 ..
00041 0535 00 4 00036 LAC PCNT,4 RESTORE LINKAGE.
00042 0020 00 4 00000 RETURN TRA --,4 RETURN TO CALLER.
*
00043 0634 00 4 00052 GETBUF SXA GX4,4 ENTRY TO GET BUFFERS.
00044 0602 00 0 00055 SLW BUFSIZ SIZE OF BUFFER IN AC.
00045 0074 00 4 00104 TSX GETMEM,4 GET PRESENT BOUND.
00046 0601 00 0 00054 STO START SAVE AS BUFFER START.
00047 0361 00 0 00055 ACL BUFSIZ FORM NEW BOUND.
00050 0074 00 4 00105 TSX SETMEM,4 ASK FOR MORE.
00051 -0500 00 0 00054 CAL START GIVE CALLER LOCATION OF
00052 0774 00 4 00000 GX4 AXT --,4 HIS NEW BUFFER.
00053 0020 00 4 00001 TRA 1,4 RETURN.
*
00054 0 00000 0 00000 START STORAGE FOR BUFFER LOCATION.
00055 0 00000 0 00000 BUFSIZ STORAGE FOR BUFFER SIZE.
*
00056 +013300570057 REDS OCT 013300570057 RED SHIFT AND TWO NULLS.
00057 +013200570057 BLCKS OCT 013200570057 BLACK SHIFT AND TWO NULLS.
00060 -145757575757 STAR OCT 545757575757 ASTERISK AND 5 NULLS.
*
* SUPERVISOR SUBROUTINE CALLERS.
*
00061 0101 00 0 00133 WRFLXA TIA =HWRFLXA
00062 0101 00 0 00122 RDFLXA TIA =HRDFLXA
00063 0101 00 0 00134 WRFLX TIA =HWRFLX
00064 0101 00 0 00126 SETFUL TIA =HSETFUL
00065 0101 00 0 00125 SETBRK TIA =HSETBRK
00066 0101 00 0 00124 SETBCD TIA =HSETBCD
00067 0101 00 0 00130 UPDATE TIA =HUPDATE
00070 0101 00 0 00111 CHFILE TIA =HCHFILE
00071 0101 00 0 00114 DELFIL TIA =HDELFIL
00072 0101 00 0 00115 FSTATE TIA =HFSTATE
00073 0101 00 0 00110 BUFFER TIA =HBUFFER
00074 0101 00 0 00120 OPEN TIA =HOPEN
00075 0101 00 0 00135 WRWAIT TIA =HWRWAIT
00076 0101 00 0 00132 WRFILE TIA =HWRFILE
00077 0101 00 0 00123 RDWAIT TIA =HRDWAIT
00100 0101 00 0 00121 RDFILE TIA =HRDFILE
00101 0101 00 0 00113 CLOSE TIA =HCLOSE
00102 0101 00 0 00112 CHN TIA =HCHNCOM
00103 0101 00 0 00116 GETCOM TIA =HGETCOM
00104 0101 00 0 00117 GETMEM TIA =HGETMEM
00105 0101 00 0 00127 SETMEM TIA =HSETMEM
00106 0101 00 0 00131 WHOAMI TIA =HWHOAMI
*
END
1 LIBRARY PACKAGE. 04/23/69 1356.0 PAGE 3
LITERALS
00107 000000000000
00110 226426262551
00111 233026314325
00112 233045234644
00113 234346622560
00114 242543263143
00115 266263216325
00116 272563234644
00117 272563442544
00120 464725456060
00121 512426314325
00122 512426436721
00123 512466213163
00124 622563222324
00125 622563225142
00126 622563266443
00127 622563442544
00130 644724216325
00131 663046214431
00132 665126314325
00133 665126436721
00134 665126436760
00135 665166213163
1 LIBRARY PACKAGE. 04/23/69 1356.0 PAGE 1
POST PROCESSOR ASSEMBLY DATA
136 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
17 ARG 15, 20, 21
102 CHN 10
22 CM4 13
52 GX4 43
5 EXIT 0
74 OPEN 0
36 PCNT 27, 31, 41
56 REDS 34
60 STAR 7
57 BLCKS 40
101 CLOSE 0
54 START 46, 51
63 WRFLX 0, 6, 35
73 BUFFER 0
55 BUFSIZ 44, 47
70 CHFILE 0
10 CHNCOM 0
13 COMARG 0
71 DELFIL 0
72 FSTATE 0
43 GETBUF 0
103 GETCOM 16
104 GETMEM 45
24 .PCOMT 0
2 .SETUP 0
100 RDFILE 0
62 RDFLXA 0
77 RDWAIT 0
42 RETURN 25
66 SETBCD 0, 5
65 SETBRK 0
64 SETFUL 0, 4, 32
105 SETMEM 50
67 UPDATE 0
106 WHOAMI 0
76 WRFILE 0
61 WRFLXA 0, 33, 37
75 WRWAIT 0
0 NO ERROR IN ABOVE ASSEMBLY.
EDB BCD 09/18/68 2206.2 39586 00000
1 MAD PROGRAM LISTING ... ... ... FILE EDITOR MAD 02/08/68 1745.3
-
.. EDIT BY CONTEXT PROGRAM. LM00001
LM00002
.. J. H. SALTZER, NOVEMBER, 1964. LM00003
.. LAST MODIFICATION, APRIL, 1967. LM00004
.. MODIFIED OCTOBER, 1967 BY PETER R. BOS LM00005
.. TO ALLOW SETTING BREAK CHARACTER 'MCHNG' LM00006
LM00007
.. DECLARATIONS. LM00008
LM00009
VECTOR VALUES FENCE = 777777777777K *001 LM00010
VECTOR VALUES RETURN = 55K *002 LM00011
VECTOR VALUES IN = $(INPUT$ *003 LM00012
VECTOR VALUES IN1 = $(INPT1$ *004 LM00013
VECTOR VALUES BRIEF = 0B *005 LM00014
VECTOR VALUES OK = 0B *006 LM00015
VECTOR VALUES BUFSIZ = 360 *007 LM00016
DIMENSION LINE(361), EDLIN(361) *008 LM00017
DIMENSION REDS(1), BLACKS(1) *009 LM00018
DIMENSION ATNAM(2) *010 LM00019
NORMAL MODE IS INTEGER *011 LM00020
BOOLEAN OK, GLOBAL, FSTPAS *012 LM00021
BOOLEAN CHNG, CLRSW, BRIEF *013 LM00022
LM00023
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LM00024
LM00025
.. INITIALIZATION. LM00026
LM00027
SECOND NAME OF INTERMEDIATE FILES NOW PROGNO LM00028
LM00029
WHOAMI.(ATNAM(2)...2) *014 LM00030
FI = ATNAM(1) *015 LM00031
GETVAL.(BLANK, TAB, DEFALT, MCHNG, REDS(1), BLACKS(1)) *016 LM00032
CLRNAM.(IN, FI, CHN, 1B) *017 LM00033
CLRNAM.(IN1, FI, CHN, 1B) *018 LM00034
ASSIGN.(IN, FI) *019 LM00035
OLDNAM = COMARG.(1) *020 LM00036
OLDSEC = DEFALT *021 LM00037
WHENEVER OLDNAM .E. FENCE, TRANSFER TO INSERT *022 LM00038
OLDSEC = COMARG.(2) *023 LM00039
WHENEVER OLDSEC .E. FENCE, OLDSEC = DEFALT *024 LM00040
SEEK.(OLDNAM, OLDSEC, INSERT) *025 LM00041
FSTPAS = 1B *026 LM00042
OK = 1B *027 LM00043
LM00044
.. ENTER EDIT MODE. LM00045
LM00046
EDIT WHENEVER .NOT. BRIEF, PRINT COMMENT $0E1D1I1T$ *028 LM00047
LM00048
.. OBTAIN NEXT REQUEST. LM00049
LM00050
NXRQ COUNT = TYPEIN.(EDLIN, BUFSIZ) *029 LM00051
WHENEVER EDLIN(1) .E. MCHNG .AND. COUNT .L. 3 *030 LM00052
1 , TRANSFER TO INSERT *030 LM00053
WHENEVER COUNT .L. 2, TRANSFER TO NXRQ *031 LM00054
EDCT = 0 *032 LM00055
CWD = GET.(0) *033 LM00056
LM00057
WHENEVER CWD .E. $DELETE$ .OR. CWD .E. $ D$ *034 LM00058
N = BIN.(GET.(0)) *035 LM00059
THROUGH DREAD, FOR I = 1, 1, I .GE. N *036 LM00060
DREAD LENGTH = READ.(LINE, BUFSIZ, EOF) *037 LM00061
LENGTH = 0 *038 LM00062
LM00063
OR WHENEVER CWD .E. $ NEXT$ .OR. CWD .E. $ N$ *039 LM00064
N = BIN.(GET.(0)) *040 LM00065
WHENEVER N .E. 0, N = 1 *041 LM00066
THROUGH NXT, FOR I = 1, 1, I .G. N *042 LM00067
WRITE.(LINE, LENGTH) *043 LM00068
WHENEVER .NOT. OK, CLSOUT. *044 LM00069
LENGTH = READ.(LINE, BUFSIZ, EOF) *045 LM00070
NXT CONTINUE *046 LM00071
LM00072
OR WHENEVER CWD .E. $INSERT$ .OR. CWD .E. $ I$ *047 LM00073
WRITE.(LINE, LENGTH) *048 LM00074
TRANSFER TO RETYPE *049 LM00075
LM00076
INSERT WHENEVER .NOT. BRIEF, PRINT COMMENT $0I1N1P1U1T$ *050 LM00077
INPUT COUNT = TYPEIN.(EDLIN, BUFSIZ) *051 LM00078
WHENEVER COUNT .L. 3 .AND. EDLIN(1) .E. MCHNG *052 LM00079
1 , TRANSFER TO EDIT *052 LM00080
WRITE.(LINE, LENGTH) *053 LM00081
THROUGH MVLP, FOR I = 1, 1, I .G. COUNT *054 LM00082
MVLP LINE(I) = EDLIN(I) *055 LM00083
LENGTH = COUNT *056 LM00084
TRANSFER TO INPUT *057 LM00085
LM00086
OR WHENEVER CWD .E. $BOTTOM$ .OR. CWD .E. $ B$ *058 LM00087
WRITE.(LINE, LENGTH) *059 LM00088
LENGTH = 0 *060 LM00089
WHENEVER OK, BOTTOM. *061 LM00090
TRANSFER TO INSERT *062 LM00091
LM00092
OR WHENEVER CWD .E. $APPEND$ .OR. CWD .E. $ A$ *063 LM00093
WHENEVER LENGTH .G. 0, LENGTH = LENGTH - 1 *064 LM00094
TRANSFER TO APPEND *065 LM00095
LM00096
OR WHENEVER CWD .E. $RETYPE$ .OR. CWD .E. $ R$ *066 LM00097
RETYPE LENGTH = 0 *067 LM00098
APPEND THROUGH RPLC, FOR EDCT = EDCT + 1, 1, EDCT .G. COUNT *068 LM00099
LENGTH = LENGTH + 1 *069 LM00100
RPLC LINE(LENGTH) = EDLIN(EDCT) *070 LM00101
LM00102
OR WHENEVER CWD .E. $ ERASE$ .OR. CWD .E. $ E$ *071 LM00103
WHENEVER EDLIN(EDCT+1) .NE. BLANK, SETERS.(EDLIN(EDCT+1)) *072 LM00104
LM00105
OR WHENEVER CWD .E. $ KILL$ .OR. CWD .E. $ K$ *073 LM00106
WHENEVER EDLIN(EDCT+1) .NE. BLANK, SETKIL.(EDLIN(EDCT+1)) *074 LM00107
LM00108
.. MODIFICATION ALLOWS SETTING 'MCHNG'. PRB. LM00109
LM00110
OR WHENEVER CWD .E. $ BREAK$ .OR. CWD .E. $ BR$ *075 LM00111
WHENEVER EDLIN(EDCT) .E. RETURN *076 LM00112
MCHNG = RETURN *077 LM00113
OR WHENEVER EDLIN(EDCT+1) .NE. BLANK *078 LM00114
MCHNG = EDLIN(EDCT+1) *079 LM00115
END OF CONDITIONAL *080 LM00116
LM00117
OR WHENEVER CWD .E. $VERIFY$ .OR. CWD .E. $ V$ *081 LM00118
CWD = GET.(0) *082 LM00119
WHENEVER CWD .E. $ ON$ *083 LM00120
BRIEF = 0B *084 LM00121
OR WHENEVER CWD .E. $ OFF$ *085 LM00122
BRIEF = 1B *086 LM00123
END OF CONDITIONAL *087 LM00124
LM00125
OR WHENEVER CWD .E. $LOCATE$ .OR. CWD .E. $ L$ *088 LM00126
LOCATE = 1 *089 LM00127
TRANSFER TO FIND *090 LM00128
LM00129
OR WHENEVER CWD .E. $ FIND$ .OR. CWD .E. $ F$ *091 LM00130
LOCATE = 0 *092 LM00131
FIND WHENEVER EDCT+1 .GE. COUNT *093 LM00132
COUNT = OCOUNT *094 LM00133
EDCT = EDCT + 1 *095 LM00134
END OF CONDITIONAL *096 LM00135
OCOUNT = COUNT *097 LM00136
NTFND WRITE.(LINE, LENGTH) *098 LM00137
WHENEVER .NOT. OK, CLSOUT. *099 LM00138
LENGTH = READ.(LINE, BUFSIZ, EOF) *100 LM00139
THROUGH LOCSCN, FOR K=0, 1,K.G.LOCATE*(LENGTH-COUNT+EDCT) *101 LM00140
J = K *102 LM00141
THROUGH LOOK, FOR I = EDCT+1, 1, I .GE. COUNT *103 LM00142
J = J + 1 *104 LM00143
TAGN WHENEVER LINE(J) .E. EDLIN(I), TRANSFER TO LOOK *105 LM00144
WHENEVER (LINE(J).E. TAB) .AND. (EDLIN(I) .E. BLANK) *106 LM00145
1 , TRANSFER TO LOOK *106 LM00146
WHENEVER EDLIN(I-1) .NE. BLANK .OR. I .E. EDCT + 1 *107 LM00147
1 , TRANSFER TO LOCSCN *107 LM00148
WHENEVER LINE(J) .NE. BLANK .AND. LINE(J) .NE. TAB *108 LM00149
1 , TRANSFER TO LOCSCN *108 LM00150
J = J + 1 *109 LM00151
TRANSFER TO TAGN *110 LM00152
LOOK WHENEVER I .E. EDCT+1, FNDST = J *111 LM00153
FNDND = J *112 LM00154
WHENEVER .NOT. BRIEF, PRNT.(FNDST, FNDND) *113 LM00155
TRANSFER TO NXRQ *114 LM00156
LOCSCN CONTINUE *115 LM00157
TRANSFER TO NTFND *116 LM00158
LM00159
OR WHENEVER CWD .E. $ PRINT$ .OR. CWD .E. $ P$ *117 LM00160
NPRNT = BIN.(GET.(0)) *118 LM00161
PNTLP WHENEVER LENGTH .E. 0 *119 LM00162
PRINT COMMENT $0N1O0 1C1U1R1R1E1N1T0 1L1I1N1E0.$ *120 LM00163
OTHERWISE *121 LM00164
TYPOUT.(LINE, LENGTH) *122 LM00165
END OF CONDITIONAL *123 LM00166
NPRNT = NPRNT - 1 *124 LM00167
WHENEVER NPRNT .G. 0 *125 LM00168
WRITE.(LINE, LENGTH) *126 LM00169
LENGTH = READ.(LINE, BUFSIZ, EOF) *127 LM00170
TRANSFER TO PNTLP *128 LM00171
END OF CONDITIONAL *129 LM00172
LM00173
OR WHENEVER CWD .E. $ TOP$ .OR. CWD .E. $ T$ *130 LM00174
TOPLP WRITE.(LINE, LENGTH) *131 LM00175
WHENEVER OK, BOTTOM. *132 LM00176
CLSOUT. *133 LM00177
LM00178
OR WHENEVER CWD .E. $CHANGE$ .OR. CWD .E. $ C$ *134 LM00179
LM00180
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LM00181
LM00182
.. DELINEATE QUOTED STRINGS. LM00183
LM00184
EDCT = EDCT+1 *135 LM00185
QUOTE = EDLIN(EDCT) *136 LM00186
STR1 = EDCT *137 LM00187
QLOOP THROUGH QLOOP, FOR EDCT = EDCT+1, 1, *138 LM00188
1 (EDLIN(EDCT) .E. QUOTE) .OR. (EDCT .GE. COUNT) *138 LM00189
STR2 = EDCT *139 LM00190
QLOOP1 THROUGH QLOOP1, FOR EDCT = EDCT+1, 1, *140 LM00191
1 (EDLIN(EDCT) .E. QUOTE) .OR. (EDCT .GE. COUNT) *140 LM00192
EST2 = EDCT *141 LM00193
LM00194
.. CHECK FOR ITERATION COUNT AND GLOBAL REQUEST. LM00195
LM00196
EDCT = EDCT + 1 *142 LM00197
TEM = 1 *143 LM00198
GLOBAL = 0B *144 LM00199
ARGLP CWD = GET.(0) *145 LM00200
WHENEVER CWD .E. $ $ *146 LM00201
TRANSFER TO SHIFT *147 LM00202
OR WHENEVER CWD .E. $ G$ *148 LM00203
WHENEVER STR2 .NE. STR1+1, GLOBAL = 1B *149 LM00204
OTHERWISE *150 LM00205
TEM = BIN.(CWD) *151 LM00206
END OF CONDITIONAL *152 LM00207
TRANSFER TO ARGLP *153 LM00208
LM00209
.. SHIFT LINE TO BOTTOM OF BUFFER. LM00210
LM00211
SHIFT THROUGH MVDWN, FOR I = LENGTH, -1, I .L. 1 *154 LM00212
MVDWN LINE(BUFSIZ+I-LENGTH) = LINE(I) *155 LM00213
DOWN = BUFSIZ-LENGTH+1 *156 LM00214
UP = 0 *157 LM00215
CHNG = 0B *158 LM00216
CHST = LENGTH + 1 *159 LM00217
CHEND = LENGTH *160 LM00218
LM00219
.. SEARCH FOR PRESENCE OF FIRST STRING. LM00220
LM00221
SRCHLP UP = UP + 1 *161 LM00222
SRTST WHENEVER DOWN .G. BUFSIZ, TRANSFER TO GIVUP *162 LM00223
J = DOWN *163 LM00224
THROUGH COMPAR, FOR I = STR1+1, 1, I .GE. STR2 *164 LM00225
WHENEVER J .GE. BUFSIZ, TRANSFER TO GIVUP *165 LM00226
WHENEVER EDLIN(I) .NE. LINE(J), TRANSFER TO NOCOMP *166 LM00227
COMPAR J = J + 1 *167 LM00228
TRANSFER TO STFND *168 LM00229
LM00230
NOCOMP LINE(UP) = LINE(DOWN) *169 LM00231
DOWN = DOWN + 1 *170 LM00232
TRANSFER TO SRCHLP *171 LM00233
LM00234
.. STRING FOUND, REPLACE WITH SECOND STRING. LM00235
LM00236
STFND CHNG = 1B *172 LM00237
DOWN = DOWN + (STR2-STR1-1) *173 LM00238
CHST = UP *174 LM00239
THROUGH REPLAC, FOR I = STR2 + 1, 1, I .GE. EST2 *175 LM00240
LINE(UP) = EDLIN(I) *176 LM00241
UP = UP + 1 *177 LM00242
REPLAC WHENEVER UP .G. DOWN, TRANSFER TO GIVUP *178 LM00243
CHEND = UP - 1 *179 LM00244
WHENEVER GLOBAL, TRANSFER TO SRTST *180 LM00245
LM00246
.. MOVE REST OF LINE BACK UP. LM00247
LM00248
GIVUP THROUGH FILOUT, FOR UP = UP, 1, DOWN .G. BUFSIZ *181 LM00249
LINE(UP) = LINE(DOWN) *182 LM00250
FILOUT DOWN = DOWN + 1 *183 LM00251
LENGTH = UP - 1 *184 LM00252
TEM = TEM - 1 *185 LM00253
WHENEVER .NOT. BRIEF .AND. (TEM .G. 0 .THEN. CHNG) *186 LM00254
1 , PRNT.(CHST, CHEND) *186 LM00255
CANON.(LINE, LENGTH, BUFSIZ) *187 LM00256
WHENEVER TEM .G. 0 *188 LM00257
WRITE.(LINE, LENGTH) *189 LM00258
LENGTH = READ.(LINE, BUFSIZ, EOF) *190 LM00259
TRANSFER TO SHIFT *191 LM00260
END OF CONDITIONAL *192 LM00261
LM00262
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LM00263
LM00264
OR WHENEVER CWD .E. $ SPLIT$ .OR. CWD .E. $ S$ *193 LM00265
TOPNAM = GET.(0) *194 LM00266
WHENEVER TOPNAM .E. $ $, TRANSFER TO NONAME *195 LM00267
WHENEVER TOPNAM .E. OLDNAM .AND. FSTPAS *196 LM00268
NEWNM PRINT COMMENT $0P1L1E1A1S1E0 1U1S1E0 1A1N1O1T1H1E1R0 1N1A *197 LM00269
1 1M1E0.$ *197 LM00270
TRANSFER TO NXRQ *198 LM00271
END OF CONDITIONAL *199 LM00272
SECNAM = GET.(0) *200 LM00273
WHENEVER SECNAM .E. $ $, SECNAM = OLDSEC *201 LM00274
CLRNAM.(TOPNAM, SECNAM, NEWNM, 1B) *202 LM00275
CLOSEW. *203 LM00276
RENAME.(IN, FI, TOPNAM, SECNAM) *204 LM00277
ASSIGN.(IN, FI) *205 LM00278
OLDNAM = FENCE *206 LM00279
TRANSFER TO TOPLP *207 LM00280
LM00281
OR WHENEVER CWD .E. $ QUIT$ .OR. CWD .E. $ Q$ *208 LM00282
ENDRD. *209 LM00283
CLOSEW. *210 LM00284
DELFIL.(IN1, FI, DLQ1) *211 LM00285
DLQ1 DELFIL.(IN, FI, DLQ2) *212 LM00286
DLQ2 TRANSFER TO CHN *213 LM00287
LM00288
OR WHENEVER CWD .E. $ FILE$ *214 LM00289
PRINAM = GET.(0) *215 LM00290
CLRSW = 1B *216 LM00291
WHENEVER PRINAM .E. $ $ *217 LM00292
PRINAM = OLDNAM *218 LM00293
SECNAM = OLDSEC *219 LM00294
CLRSW = 0B *220 LM00295
OTHERWISE *221 LM00296
SECNAM = GET.(0) *222 LM00297
WHENEVER SECNAM .E. $ $ *223 LM00298
SECNAM = OLDSEC *224 LM00299
END OF CONDITIONAL *225 LM00300
END OF CONDITIONAL *226 LM00301
WHENEVER PRINAM .E. FENCE *227 LM00302
NONAME PRINT COMMENT $0N1O0 1F1I1L1E0 1N1A1M1E0 1G1I1V1E1N0.$ *228 LM00303
TRANSFER TO NXRQ *229 LM00304
END OF CONDITIONAL *230 LM00305
WRITE.(LINE, LENGTH) *231 LM00306
LENGTH = 0 *232 LM00307
WHENEVER OK, BOTTOM. *233 LM00308
CLRNAM.(PRINAM, SECNAM, NEWNM, CLRSW) *234 LM00309
CLOSEW. *235 LM00310
DELFIL.(IN1, FI, DL1) *236 LM00311
DL1 RENAME.(IN, FI, PRINAM, SECNAM) *237 LM00312
CHN EXIT. *238 LM00313
LM00314
OTHERWISE *239 LM00315
PRINT COMMENT $0N1O1T0 1A0 1R1E1Q1U1E1S1T0:$ *240 LM00316
TYPOUT.(EDLIN, COUNT) *241 LM00317
LM00318
END OF CONDITIONAL *242 LM00319
TRANSFER TO NXRQ *243 LM00320
LM00321
EOF PRINTCOMMENT $0E1N1D0 1O1F0 1F1I1L1E0 1R1E1A1C1H1E1D0 1B1Y0:$ *244 LM00322
TYPOUT.(EDLIN, COUNT) *245 LM00323
LENGTH = 0 *246 LM00324
OK = 0B *247 LM00325
TRANSFER TO NXRQ *248 LM00326
LM00327
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LM00328
LM00329
.. SUBROUTINES. LM00330
LM00331
CLSOUT. .. FUNCTION TO MOVE POINTER BACK TO TOP OF FILE. LM00332
LM00333
INTERNAL FUNCTION *249 LM00334
ENTRY TO CLSOUT. *250 LM00335
CLOSEW. *251 LM00336
DELFIL.(IN1, FI, DL2) *252 LM00337
DL2 CHFILE.(IN, FI, -0, IN1) *253 LM00338
SEEK.(IN1, FI, CHN) *254 LM00339
ASSIGN.(IN, FI) *255 LM00340
OK = 1B *256 LM00341
LENGTH = 0 *257 LM00342
FSTPAS = 0B *258 LM00343
FUNCTION RETURN *259 LM00344
END OF FUNCTION *260 LM00345
LM00346
GET. .. FUNCTION TO OBTAIN ARGUMENT WORD IN HOLLERITH. LM00347
LM00348
INTERNAL FUNCTION *261 LM00349
ENTRY TO GET. *262 LM00350
WORD = $ $ *263 LM00351
SCANLP THROUGH SCANLP, FOR EDCT = EDCT, 1, *264 LM00352
1 (EDLIN(EDCT+1).NE.BLANK) .OR. (EDCT+1.GE.COUNT) *264 LM00353
GTLP EDCT = EDCT + 1 *265 LM00354
WHENEVER EDLIN(EDCT) .E. BLANK, FUNCTION RETURN WORD *266 LM00355
WHENEVER EDLIN(EDCT) .E. TAB .OR. EDCT .GE. COUNT *267 LM00356
EDCT = EDCT - 1 *268 LM00357
FUNCTION RETURN WORD *269 LM00358
END OF CONDITIONAL *270 LM00359
WORD = (WORD .LS. 6) .V. HOL.(EDLIN(EDCT)) *271 LM00360
TRANSFER TO GTLP *272 LM00361
END OF FUNCTION *273 LM00362
LM00363
PRNT. .. FUNCTION TO PRINT A LINE WITH COLOR SHIFTS. LM00364
LM00365
INTERNAL FUNCTION(STAR, EN) *274 LM00366
ENTRY TO PRNT. *275 LM00367
TYPOUT.(LINE, STAR-1) *276 LM00368
TYPOUT.(REDS, 1) *277 LM00369
TYPOUT.(LINE(STAR-1), EN-STAR+1) *278 LM00370
TYPOUT.(BLACKS, 1) *279 LM00371
TYPOUT.(LINE(EN), LENGTH-EN) *280 LM00372
FUNCTION RETURN *281 LM00373
END OF FUNCTION *282 LM00374
LM00375
END OF PROGRAM *283 LM00376
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 03713 TRANSFER VECTOR LENGTH 00030 PROGRAM BEGINS 01555
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
APPEND 00034 4 DLQ1 00041 4 GTLP 00047 4 NONAME 00056 4 RETYPE 00062 4
ARGLP 00035 4 DLQ2 00042 4 IN1 00673 A 1 NPRNT 01455 1 RPLC 00033 4
ATNAM 00073 A 1 DOWN 00110 1 INPUT 00050 4 N 01456 1 SCANLP 00033 4
BLACKS 00075 A 1 DREAD 00033 4 IN 00674 A 1 NTFND 00057 4 SECNAM 01470 1
BLANK 00076 1 EDCT 00111 1 INSERT 00051 4 NXRQ 00060 4 SHIFT 00063 4
BRIEF 00077 A 2 EDIT 00043 4 I 00675 1 NXT 00033 4 SRCHLP 00064 4
BUFSIZ 00100 A 1 EDLIN 00663 A 1 J 00676 1 OCOUNT 01457 1 SRTST 00065 4
CHEND 00101 1 EOF 00044 4 K 00677 1 OK 01460 A 2 STFND 00066 4
CHNG 00102 2 EST2 00664 1 LENGTH 00700 1 OLDNAM 01461 1 STR1 01471 1
CHN 00036 4 FENCE 00665 A 1 LINE 01452 A 1 OLDSEC 01462 1 STR2 01472 1
CHST 00103 1 FILOUT 00033 4 LOCATE 01453 1 PNTLP 00061 4 TAB 01473 1
CLRSW 00104 2 FIND 00045 4 LOCSCN 00052 4 PRINAM 01463 1 TAGN 00067 4
COMPAR 00033 4 FI 00666 1 LOOK 00053 4 QLOOP1 00033 4 TEM 01474 1
COUNT 00105 1 FNDND 00667 1 MCHNG 01454 1 QLOOP 00033 4 TOPLP 00070 4
CWD 00106 1 FNDST 00670 1 MVDWN 00033 4 QUOTE 01464 1 TOPNAM 01475 1
DEFALT 00107 1 FSTPAS 00671 2 MVLP 00033 4 REDS 01466 A 1 UP 01476 1
DL1 00037 4 GIVUP 00046 4 NEWNM 00054 4 REPLAC 00033 4 WORD 01477 1
DL2 00040 4 GLOBAL 00672 2 NOCOMP 00055 4 RETURN 01467 A 1
0FUNCTION DICTIONARY
ASSIGN 00000 1 BIN 00001 1 BOTTOM 00002 1 CANON 00003 1 CHFILE 00004 1
CLOSEW 00005 1 CLRNAM 00006 1 COMARG 00007 1 DELFIL 00010 1 ENDRD 00011 1
EXIT 00012 1 GETVAL 00013 1 HOL 00014 1 .PCOMT 00015 1 .SETUP 00016 1
READ 00017 1 RENAME 00020 1 SEEK 00021 1 SETERS 00022 1 SETKIL 00023 1
TYPEIN 00024 1 TYPOUT 00025 1 WHOAMI 00026 1 WRITE 00027 1 CLSOUT 00030 1
GET 00031 1 PRNT 00032 1
0ABSOLUTE CONSTANTS
01504 +000000000006 01520 -206026314325 01524 -206050643163 01544 -206060606050 01553 -206247433163
01547 -206060606062 01536 -206060606027 01546 -206060606060 01510 +233021452725 01532 -206060606023
01552 -206060634647 01550 -206060606063 01517 -204751314563 01543 -206060606047 01521 -206026314524
01535 -206060606026 01513 -034623216325 01541 -206060606043 01525 -206060462626 01527 -206060604645
01554 -252551312670 01551 -206060606065 01515 -202251252142 01526 -206060602251 01522 -206042314343
01540 -206060606042 01516 -202551216225 01534 -206060606025 01514 -112563704725 01545 -206060606051
01505 +214747254524 01530 -206060606021 01506 +224663634644 01531 -206060606022 01512 +314562255163
01537 -206060606031 01523 -206045256763 01542 -206060606045 01511 +242543256325 01533 -206060606024
01500 +000000000000 01503 +000000000003 01502 +000000000002 01501 +000000000001 01507 +233000000000
0STATEMENT DICTIONARY
00034 TXL -302146002133 00035 TXL -302676002673 00036 TXL -303402003401 00037 TXL -303401003374
00040 TXL -303460003451 00041 TXL -303301003275 00042 TXL -303302003301 00043 TXL -301645001637
00044 TXL -303430003416 00045 TXL -302334002327 00046 TXL -303117003105 00047 TXL -303543003540
00050 TXL -302026002022 00051 TXL -302022002014 00052 TXL -302506002505 00053 TXL -302475002465
00054 TXL -303226003214 00055 TXL -303032003026 00056 TXL -303351003340 00057 TXL -302346002343
00060 TXL -301651001645 00061 TXL -302527002524 00062 TXL -302133002131 00063 TXL -302734002722
00064 TXL -302764002761 00065 TXL -302771002764 00066 TXL -303040003036 00067 TXL -302424002416
00070 TXL -302575002572
0PROGRAM
VECTOR VALUES FENCE = 777777777777K 001 LM00010
01555 TSX +0 07400 4 00016 00665 -3 77777 7 77777
VECTOR VALUES RETURN = 55K 002 LM00011
01467 +0 00000 0 00055
VECTOR VALUES IN = $(INPUT$ 003 LM00012
00674 -3 43145 4 76463
VECTOR VALUES IN1 = $(INPT1$ 004 LM00013
00673 -3 43145 4 76301
VECTOR VALUES BRIEF = 0B 005 LM00014
00077 +0 00000 0 00000
VECTOR VALUES OK = 0B 006 LM00015
01460 +0 00000 0 00000
VECTOR VALUES BUFSIZ = 360 007 LM00016
00100 +0 00000 0 00550
DIMENSION LINE(361), EDLIN(361) 008 LM00017
DIMENSION REDS(1), BLACKS(1) 009 LM00018
D'N ATNAM(2) 010 LM00019
NORMAL MODE IS INTEGER 011 LM00020
BOOLEAN OK, GLOBAL, FSTPAS 012 LM00021
BOOLEAN CHNG, CLRSW, BRIEF 013 LM00022
WHOAMI.(ATNAM(2)...2) 014 LM00030
01556 TSX +0 07400 4 00026 01557 TIX +2 01502 0 00071
FI = ATNAM(1) 015 LM00031
01560 CLA +0 50000 0 00072 01561 STO +0 60100 0 00666
GETVAL.(BLANK, TAB, DEFALT, MCHNG, REDS(1), BLACKS(1)) 016 LM00032
01562 TSX +0 07400 4 00013 01563 TXH +3 00000 0 00076 01564 TXH +3 00000 0 01473 01565 TXH +3 00000 0 00107
01566 TXH +3 00000 0 01454 01567 TXH +3 00000 0 01465 01570 TXH +3 00000 0 00074
CLRNAM.(IN, FI, CHN, 1B) 017 LM00033
01571 TSX +0 07400 4 00006 01572 TXH +3 00000 0 00674 01573 TXH +3 00000 0 00666 01574 TXH +3 00000 0 00036
01575 TXH +3 00000 0 01501
CLRNAM.(IN1, FI, CHN, 1B) 018 LM00034
01576 TSX +0 07400 4 00006 01577 TXH +3 00000 0 00673 01600 TXH +3 00000 0 00666 01601 TXH +3 00000 0 00036
01602 TXH +3 00000 0 01501
ASSIGN.(IN, FI) 019 LM00035
01603 TSX +0 07400 4 00000 01604 TXH +3 00000 0 00674 01605 TXH +3 00000 0 00666
OLDNAM = COMARG.(1) 020 LM00036
01606 TSX +0 07400 4 00007 01607 TXH +3 00000 0 01501 01610 STO +0 60100 0 01461
OLDSEC = DEFALT 021 LM00037
01611 CLA +0 50000 0 00107 01612 STO +0 60100 0 01462
WHENEVER OLDNAM .E. FENCE, TRANSFER TO INSERT 022 LM00038
01613 CLA +0 50000 0 01461 01614 SUB +0 40200 0 00665 01615 TNZ -0 10000 0 01617 01616 TRA +0 02000 0 00051
OLDSEC = COMARG.(2) 023 LM00039
01617 TSX +0 07400 4 00007 01620 TXH +3 00000 0 01502 01621 STO +0 60100 0 01462
WHENEVER OLDSEC .E. FENCE, OLDSEC = DEFALT 024 LM00040
01622 CLA +0 50000 0 01462 01623 SUB +0 40200 0 00665 01624 TNZ -0 10000 0 01627 01625 CLA +0 50000 0 00107
01626 STO +0 60100 0 01462
SEEK.(OLDNAM, OLDSEC, INSERT) 025 LM00041
01627 TSX +0 07400 4 00021 01630 TXH +3 00000 0 01461 01631 TXH +3 00000 0 01462 01632 TXH +3 00000 0 00051
FSTPAS = 1B 026 LM00042
01633 CLA +0 50000 0 01501 01634 STO +0 60100 0 00671
OK = 1B 027 LM00043
01635 CLA +0 50000 0 01501 01636 STO +0 60100 0 01460
EDIT WHENEVER .NOT. BRIEF, PRINT COMMENT $0E1D1I1T$ 028 LM00047
01637 ZET +0 52000 0 00077 01640 TRA +0 02000 0 01645 01641 TSX +0 07400 4 00015 01642 +0 00000 0 00002
01643 +0 02501 2 40131 01644 +0 16360 6 06060
NXRQ COUNT = TYPEIN.(EDLIN, BUFSIZ) 029 LM00051
01645 TSX +0 07400 4 00024 01646 TXH +3 00000 0 00663 01647 TXH +3 00000 0 00100 01650 STO +0 60100 0 00105
WHENEVER EDLIN(1) .E. MCHNG .AND. COUNT .L. 3 030 LM00052
1 , TRANSFER TO INSERT 030 LM00053
01651 CLA +0 50000 0 00105 01652 SUB +0 40200 0 01503 01653 TZE +0 10000 0 01661 01654 TPL +0 12000 0 01661
01655 CLA +0 50000 0 00662 01656 SUB +0 40200 0 01454 01657 TNZ -0 10000 0 01661 01660 TRA +0 02000 0 00051
WHENEVER COUNT .L. 2, TRANSFER TO NXRQ 031 LM00054
01661 CLA +0 50000 0 00105 01662 SUB +0 40200 0 01502 01663 TZE +0 10000 0 01666 01664 TPL +0 12000 0 01666
01665 TRA +0 02000 0 00060
EDCT = 0 032 LM00055
01666 CLA +0 50000 0 01500 01667 STO +0 60100 0 00111
CWD = GET.(0) 033 LM00056
01670 TSX +0 07400 4 00031 01671 TXH +3 00000 0 01500 01672 STO +0 60100 0 00106
WHENEVER CWD .E. $DELETE$ .OR. CWD .E. $ D$ 034 LM00058
01673 CLA +0 50000 0 00106 01674 SUB +0 40200 0 01533 01675 TZE +0 10000 0 01701 01676 CLA +0 50000 0 00106
01677 SUB +0 40200 0 01511 01700 TNZ -0 10000 0 01732
N = BIN.(GET.(0)) 035 LM00059
01701 TSX +0 07400 4 00031 01702 TXH +3 00000 0 01500 01703 STO +0 60100 0 03710 01704 TSX +0 07400 4 00001
01705 TXH +3 00000 0 03710 01706 STO +0 60100 0 01456
THROUGH DREAD, FOR I = 1, 1, I .GE. N 036 LM00060
01707 CLA +0 50000 0 01501 01710 STO +0 60100 0 00675 01711 TRA +0 02000 0 01715 01712 CLA +0 50000 0 00675
01713 ADD +0 40000 0 01501 01714 STO +0 60100 0 00675 01715 CLA +0 50000 0 00675 01716 SUB +0 40200 0 01456
01717 TZE +0 10000 0 01727 01720 TPL +0 12000 0 01727
DREAD LENGTH = READ.(LINE, BUFSIZ, EOF) 037 LM00061
01721 TSX +0 07400 4 00017 01722 TXH +3 00000 0 01452 01723 TXH +3 00000 0 00100 01724 TXH +3 00000 0 00044
01725 STO +0 60100 0 00700 01726 TRA +0 02000 0 01712
LENGTH = 0 038 LM00062
01727 CLA +0 50000 0 01500 01730 STO +0 60100 0 00700
OR WHENEVER CWD .E. $ NEXT$ .OR. CWD .E. $ N$ 039 LM00064
01731 TRA +0 02000 0 03415 01732 CLA +0 50000 0 00106 01733 SUB +0 40200 0 01542 01734 TZE +0 10000 0 01740
01735 CLA +0 50000 0 00106 01736 SUB +0 40200 0 01523 01737 TNZ -0 10000 0 02002
N = BIN.(GET.(0)) 040 LM00065
01740 TSX +0 07400 4 00031 01741 TXH +3 00000 0 01500 01742 STO +0 60100 0 03710 01743 TSX +0 07400 4 00001
01744 TXH +3 00000 0 03710 01745 STO +0 60100 0 01456
WHENEVER N .E. 0, N = 1 041 LM00066
01746 CLA +0 50000 0 01456 01747 SUB +0 40200 0 01500 01750 TNZ -0 10000 0 01753 01751 CLA +0 50000 0 01501
01752 STO +0 60100 0 01456
THROUGH NXT, FOR I = 1, 1, I .G. N 042 LM00067
01753 CLA +0 50000 0 01501 01754 STO +0 60100 0 00675 01755 TRA +0 02000 0 01761 01756 CLA +0 50000 0 00675
01757 ADD +0 40000 0 01501 01760 STO +0 60100 0 00675 01761 CLA +0 50000 0 00675 01762 SUB +0 40200 0 01456
01763 TZE +0 10000 0 01765 01764 TPL +0 12000 0 02001
WRITE.(LINE, LENGTH) 043 LM00068
01765 TSX +0 07400 4 00027 01766 TXH +3 00000 0 01452 01767 TXH +3 00000 0 00700
WHENEVER .NOT. OK, CLSOUT. 044 LM00069
01770 ZET +0 52000 0 01460 01771 TRA +0 02000 0 01773 01772 TSX +0 07400 4 00030
LENGTH = READ.(LINE, BUFSIZ, EOF) 045 LM00070
01773 TSX +0 07400 4 00017 01774 TXH +3 00000 0 01452 01775 TXH +3 00000 0 00100 01776 TXH +3 00000 0 00044
01777 STO +0 60100 0 00700
NXT CONTINUE 046 LM00071
02000 TRA +0 02000 0 01756
OR WHENEVER CWD .E. $INSERT$ .OR. CWD .E. $ I$ 047 LM00073
02001 TRA +0 02000 0 03415 02002 CLA +0 50000 0 00106 02003 SUB +0 40200 0 01537 02004 TZE +0 10000 0 02010
02005 CLA +0 50000 0 00106 02006 SUB +0 40200 0 01512 02007 TNZ -0 10000 0 02064
WRITE.(LINE, LENGTH) 048 LM00074
02010 TSX +0 07400 4 00027 02011 TXH +3 00000 0 01452 02012 TXH +3 00000 0 00700
TRANSFER TO RETYPE 049 LM00075
02013 TRA +0 02000 0 00062
INSERT WHENEVER .NOT. BRIEF, PRINT COMMENT $0I1N1P1U1T$ 050 LM00077
02014 ZET +0 52000 0 00077 02015 TRA +0 02000 0 02022 02016 TSX +0 07400 4 00015 02017 +0 00000 0 00002
02020 +0 03101 4 50147 02021 +0 16401 6 36060
INPUT COUNT = TYPEIN.(EDLIN, BUFSIZ) 051 LM00078
02022 TSX +0 07400 4 00024 02023 TXH +3 00000 0 00663 02024 TXH +3 00000 0 00100 02025 STO +0 60100 0 00105
WHENEVER COUNT .L. 3 .AND. EDLIN(1) .E. MCHNG 052 LM00079
1 , TRANSFER TO EDIT 052 LM00080
02026 CLA +0 50000 0 00662 02027 SUB +0 40200 0 01454 02030 TNZ -0 10000 0 02036 02031 CLA +0 50000 0 00105
02032 SUB +0 40200 0 01503 02033 TZE +0 10000 0 02036 02034 TPL +0 12000 0 02036 02035 TRA +0 02000 0 00043
WRITE.(LINE, LENGTH) 053 LM00081
02036 TSX +0 07400 4 00027 02037 TXH +3 00000 0 01452 02040 TXH +3 00000 0 00700
THROUGH MVLP, FOR I = 1, 1, I .G. COUNT 054 LM00082
02041 CLA +0 50000 0 01501 02042 STO +0 60100 0 00675 02043 TRA +0 02000 0 02047 02044 CLA +0 50000 0 00675
02045 ADD +0 40000 0 01501 02046 STO +0 60100 0 00675 02047 CLA +0 50000 0 00675 02050 SUB +0 40200 0 00105
02051 TZE +0 10000 0 02053 02052 TPL +0 12000 0 02060
MVLP LINE(I) = EDLIN(I) 055 LM00083
02053 LXA +0 53400 1 00675 02054 LXA +0 53400 2 00675 02055 CLA +0 50000 2 00663 02056 STO +0 60100 1 01452
02057 TRA +0 02000 0 02044
LENGTH = COUNT 056 LM00084
02060 CLA +0 50000 0 00105 02061 STO +0 60100 0 00700
TRANSFER TO INPUT 057 LM00085
02062 TRA +0 02000 0 00050
OR WHENEVER CWD .E. $BOTTOM$ .OR. CWD .E. $ B$ 058 LM00087
02063 TRA +0 02000 0 03415 02064 CLA +0 50000 0 00106 02065 SUB +0 40200 0 01531 02066 TZE +0 10000 0 02072
02067 CLA +0 50000 0 00106 02070 SUB +0 40200 0 01506 02071 TNZ -0 10000 0 02104
WRITE.(LINE, LENGTH) 059 LM00088
02072 TSX +0 07400 4 00027 02073 TXH +3 00000 0 01452 02074 TXH +3 00000 0 00700
LENGTH = 0 060 LM00089
02075 CLA +0 50000 0 01500 02076 STO +0 60100 0 00700
WHENEVER OK, BOTTOM. 061 LM00090
02077 NZT -0 52000 0 01460 02100 TRA +0 02000 0 02102 02101 TSX +0 07400 4 00002
TRANSFER TO INSERT 062 LM00091
02102 TRA +0 02000 0 00051
OR WHENEVER CWD .E. $APPEND$ .OR. CWD .E. $ A$ 063 LM00093
02103 TRA +0 02000 0 03415 02104 CLA +0 50000 0 00106 02105 SUB +0 40200 0 01530 02106 TZE +0 10000 0 02112
02107 CLA +0 50000 0 00106 02110 SUB +0 40200 0 01505 02111 TNZ -0 10000 0 02123
WHENEVER LENGTH .G. 0, LENGTH = LENGTH - 1 064 LM00094
02112 CLA +0 50000 0 00700 02113 SUB +0 40200 0 01500 02114 TZE +0 10000 0 02121 02115 TMI -0 12000 0 02121
02116 CLA +0 50000 0 00700 02117 SUB +0 40200 0 01501 02120 STO +0 60100 0 00700
TRANSFER TO APPEND 065 LM00095
02121 TRA +0 02000 0 00034
OR WHENEVER CWD .E. $RETYPE$ .OR. CWD .E. $ R$ 066 LM00097
02122 TRA +0 02000 0 03415 02123 CLA +0 50000 0 00106 02124 SUB +0 40200 0 01545 02125 TZE +0 10000 0 02131
02126 CLA +0 50000 0 00106 02127 SUB +0 40200 0 01514 02130 TNZ -0 10000 0 02157
RETYPE LENGTH = 0 067 LM00098
02131 CLA +0 50000 0 01500 02132 STO +0 60100 0 00700
APPEND THROUGH RPLC, FOR EDCT = EDCT + 1, 1, EDCT .G. COUNT 068 LM00099
02133 CLA +0 50000 0 00111 02134 ADD +0 40000 0 01501 02135 STO +0 60100 0 00111 02136 TRA +0 02000 0 02142
02137 CLA +0 50000 0 00111 02140 ADD +0 40000 0 01501 02141 STO +0 60100 0 00111 02142 CLA +0 50000 0 00111
02143 SUB +0 40200 0 00105 02144 TZE +0 10000 0 02146 02145 TPL +0 12000 0 02156
LENGTH = LENGTH + 1 069 LM00100
02146 CLA +0 50000 0 00700 02147 ADD +0 40000 0 01501 02150 STO +0 60100 0 00700
RPLC LINE(LENGTH) = EDLIN(EDCT) 070 LM00101
02151 LXA +0 53400 1 00700 02152 LXA +0 53400 2 00111 02153 CLA +0 50000 2 00663 02154 STO +0 60100 1 01452
02155 TRA +0 02000 0 02137
OR WHENEVER CWD .E. $ ERASE$ .OR. CWD .E. $ E$ 071 LM00103
02156 TRA +0 02000 0 03415 02157 CLA +0 50000 0 00106 02160 SUB +0 40200 0 01534 02161 TZE +0 10000 0 02165
02162 CLA +0 50000 0 00106 02163 SUB +0 40200 0 01516 02164 TNZ -0 10000 0 02203
WHENEVER EDLIN(EDCT+1) .NE. BLANK, SETERS.(EDLIN(EDCT+1)) 072 LM00104
02165 CLA +0 50000 0 00111 02166 ADD +0 40000 0 01501 02167 PAX +0 73400 1 00000 02170 CLA +0 50000 1 00663
02171 SUB +0 40200 0 00076 02172 TZE +0 10000 0 02202 02173 CLA +0 50000 0 00111 02174 ADD +0 40000 0 01501
02175 SUB +0 40200 0 02176 02176 TXH +3 00000 0 00663 02177 STA +0 62100 0 02201 02200 TSX +0 07400 4 00022
02201 TXH +3 00000 0 00000
OR WHENEVER CWD .E. $ KILL$ .OR. CWD .E. $ K$ 073 LM00106
02202 TRA +0 02000 0 03415 02203 CLA +0 50000 0 00106 02204 SUB +0 40200 0 01540 02205 TZE +0 10000 0 02211
02206 CLA +0 50000 0 00106 02207 SUB +0 40200 0 01522 02210 TNZ -0 10000 0 02227
WHENEVER EDLIN(EDCT+1) .NE. BLANK, SETKIL.(EDLIN(EDCT+1)) 074 LM00107
02211 CLA +0 50000 0 00111 02212 ADD +0 40000 0 01501 02213 PAX +0 73400 1 00000 02214 CLA +0 50000 1 00663
02215 SUB +0 40200 0 00076 02216 TZE +0 10000 0 02226 02217 CLA +0 50000 0 00111 02220 ADD +0 40000 0 01501
02221 SUB +0 40200 0 02222 02222 TXH +3 00000 0 00663 02223 STA +0 62100 0 02225 02224 TSX +0 07400 4 00023
02225 TXH +3 00000 0 00000
OR WHENEVER CWD .E. $ BREAK$ .OR. CWD .E. $ BR$ 075 LM00111
02226 TRA +0 02000 0 03415 02227 CLA +0 50000 0 00106 02230 SUB +0 40200 0 01526 02231 TZE +0 10000 0 02235
02232 CLA +0 50000 0 00106 02233 SUB +0 40200 0 01515 02234 TNZ -0 10000 0 02260
WHENEVER EDLIN(EDCT) .E. RETURN 076 LM00112
02235 LXA +0 53400 1 00111 02236 CLA +0 50000 1 00663 02237 SUB +0 40200 0 01467 02240 TNZ -0 10000 0 02244
MCHNG = RETURN 077 LM00113
02241 CLA +0 50000 0 01467 02242 STO +0 60100 0 01454
OR WHENEVER EDLIN(EDCT+1) .NE. BLANK 078 LM00114
02243 TRA +0 02000 0 02257 02244 CLA +0 50000 0 00111 02245 ADD +0 40000 0 01501 02246 PAX +0 73400 1 00000
02247 CLA +0 50000 1 00663 02250 SUB +0 40200 0 00076 02251 TZE +0 10000 0 02257
MCHNG = EDLIN(EDCT+1) 079 LM00115
02252 CLA +0 50000 0 00111 02253 ADD +0 40000 0 01501 02254 PAX +0 73400 2 00000 02255 CLA +0 50000 2 00663
02256 STO +0 60100 0 01454
END OF CONDITIONAL 080 LM00116
OR WHENEVER CWD .E. $VERIFY$ .OR. CWD .E. $ V$ 081 LM00118
02257 TRA +0 02000 0 03415 02260 CLA +0 50000 0 00106 02261 SUB +0 40200 0 01551 02262 TZE +0 10000 0 02266
02263 CLA +0 50000 0 00106 02264 SUB +0 40200 0 01554 02265 TNZ -0 10000 0 02305
CWD = GET.(0) 082 LM00119
02266 TSX +0 07400 4 00031 02267 TXH +3 00000 0 01500 02270 STO +0 60100 0 00106
WHENEVER CWD .E. $ ON$ 083 LM00120
02271 CLA +0 50000 0 00106 02272 SUB +0 40200 0 01527 02273 TNZ -0 10000 0 02277
BRIEF = 0B 084 LM00121
02274 CLA +0 50000 0 01500 02275 STO +0 60100 0 00077
OR WHENEVER CWD .E. $ OFF$ 085 LM00122
02276 TRA +0 02000 0 02304 02277 CLA +0 50000 0 00106 02300 SUB +0 40200 0 01525 02301 TNZ -0 10000 0 02304
BRIEF = 1B 086 LM00123
02302 CLA +0 50000 0 01501 02303 STO +0 60100 0 00077
END OF CONDITIONAL 087 LM00124
OR WHENEVER CWD .E. $LOCATE$ .OR. CWD .E. $ L$ 088 LM00126
02304 TRA +0 02000 0 03415 02305 CLA +0 50000 0 00106 02306 SUB +0 40200 0 01541 02307 TZE +0 10000 0 02313
02310 CLA +0 50000 0 00106 02311 SUB +0 40200 0 01513 02312 TNZ -0 10000 0 02317
LOCATE = 1 089 LM00127
02313 CLA +0 50000 0 01501 02314 STO +0 60100 0 01453
TRANSFER TO FIND 090 LM00128
02315 TRA +0 02000 0 00045
OR WHENEVER CWD .E. $ FIND$ .OR. CWD .E. $ F$ 091 LM00130
02316 TRA +0 02000 0 03415 02317 CLA +0 50000 0 00106 02320 SUB +0 40200 0 01535 02321 TZE +0 10000 0 02325
02322 CLA +0 50000 0 00106 02323 SUB +0 40200 0 01521 02324 TNZ -0 10000 0 02510
LOCATE = 0 092 LM00131
02325 CLA +0 50000 0 01500 02326 STO +0 60100 0 01453
FIND WHENEVER EDCT+1 .GE. COUNT 093 LM00132
02327 CLA +0 50000 0 00111 02330 ADD +0 40000 0 01501 02331 SUB +0 40200 0 00105 02332 TZE +0 10000 0 02334
02333 TMI -0 12000 0 02341
COUNT = OCOUNT 094 LM00133
02334 CLA +0 50000 0 01457 02335 STO +0 60100 0 00105
EDCT = EDCT + 1 095 LM00134
02336 CLA +0 50000 0 00111 02337 ADD +0 40000 0 01501 02340 STO +0 60100 0 00111
END OF CONDITIONAL 096 LM00135
OCOUNT = COUNT 097 LM00136
02341 CLA +0 50000 0 00105 02342 STO +0 60100 0 01457
NTFND WRITE.(LINE, LENGTH) 098 LM00137
02343 TSX +0 07400 4 00027 02344 TXH +3 00000 0 01452 02345 TXH +3 00000 0 00700
WHENEVER .NOT. OK, CLSOUT. 099 LM00138
02346 ZET +0 52000 0 01460 02347 TRA +0 02000 0 02351 02350 TSX +0 07400 4 00030
LENGTH = READ.(LINE, BUFSIZ, EOF) 100 LM00139
02351 TSX +0 07400 4 00017 02352 TXH +3 00000 0 01452 02353 TXH +3 00000 0 00100 02354 TXH +3 00000 0 00044
02355 STO +0 60100 0 00700
THROUGH LOCSCN, FOR K=0, 1,K.G.LOCATE*(LENGTH-COUNT+EDCT) 101 LM00140
02356 CLA +0 50000 0 01500 02357 STO +0 60100 0 00677 02360 TRA +0 02000 0 02364 02361 CLA +0 50000 0 00677
02362 ADD +0 40000 0 01501 02363 STO +0 60100 0 00677 02364 CLA +0 50000 0 00700 02365 SUB +0 40200 0 00105
02366 ADD +0 40000 0 00111 02367 XCA +0 13100 0 00000 02370 MPY +0 20000 0 01453 02371 XCA +0 13100 0 00000
02372 CHS +0 76000 0 00002 02373 ADD +0 40000 0 00677 02374 TZE +0 10000 0 02376 02375 TPL +0 12000 0 02506
J = K 102 LM00141
02376 CLA +0 50000 0 00677 02377 STO +0 60100 0 00676
THROUGH LOOK, FOR I = EDCT+1, 1, I .GE. COUNT 103 LM00142
02400 CLA +0 50000 0 00111 02401 ADD +0 40000 0 01501 02402 STO +0 60100 0 00675 02403 TRA +0 02000 0 02407
02404 CLA +0 50000 0 00675 02405 ADD +0 40000 0 01501 02406 STO +0 60100 0 00675 02407 CLA +0 50000 0 00675
02410 SUB +0 40200 0 00105 02411 TZE +0 10000 0 02475 02412 TPL +0 12000 0 02475
J = J + 1 104 LM00143
02413 CLA +0 50000 0 00676 02414 ADD +0 40000 0 01501 02415 STO +0 60100 0 00676
TAGN WHENEVER LINE(J) .E. EDLIN(I), TRANSFER TO LOOK 105 LM00144
02416 LXA +0 53400 1 00676 02417 LXA +0 53400 2 00675 02420 CLA +0 50000 1 01452 02421 SUB +0 40200 2 00663
02422 TNZ -0 10000 0 02424 02423 TRA +0 02000 0 00053
WHENEVER (LINE(J).E. TAB) .AND. (EDLIN(I) .E. BLANK) 106 LM00145
1 , TRANSFER TO LOOK 106 LM00146
02424 LXA +0 53400 1 00675 02425 CLA +0 50000 1 00663 02426 SUB +0 40200 0 00076 02427 TNZ -0 10000 0 02435
02430 LXA +0 53400 1 00676 02431 CLA +0 50000 1 01452 02432 SUB +0 40200 0 01473 02433 TNZ -0 10000 0 02435
02434 TRA +0 02000 0 00053
WHENEVER EDLIN(I-1) .NE. BLANK .OR. I .E. EDCT + 1 107 LM00147
1 , TRANSFER TO LOCSCN 107 LM00148
02435 CLA +0 50000 0 00111 02436 ADD +0 40000 0 01501 02437 CHS +0 76000 0 00002 02440 ADD +0 40000 0 00675
02441 TZE +0 10000 0 02450 02442 CLA +0 50000 0 00675 02443 SUB +0 40200 0 01501 02444 PAX +0 73400 1 00000
02445 CLA +0 50000 1 00663 02446 SUB +0 40200 0 00076 02447 TZE +0 10000 0 02451 02450 TRA +0 02000 0 00052
WHENEVER LINE(J) .NE. BLANK .AND. LINE(J) .NE. TAB 108 LM00149
1 , TRANSFER TO LOCSCN 108 LM00150
02451 LXA +0 53400 1 00676 02452 CLA +0 50000 1 01452 02453 SUB +0 40200 0 01473 02454 TZE +0 10000 0 02461
02455 CLA +0 50000 1 01452 02456 SUB +0 40200 0 00076 02457 TZE +0 10000 0 02461 02460 TRA +0 02000 0 00052
J = J + 1 109 LM00151
02461 CLA +0 50000 0 00676 02462 ADD +0 40000 0 01501 02463 STO +0 60100 0 00676
TRANSFER TO TAGN 110 LM00152
02464 TRA +0 02000 0 00067
LOOK WHENEVER I .E. EDCT+1, FNDST = J 111 LM00153
02465 CLA +0 50000 0 00111 02466 ADD +0 40000 0 01501 02467 CHS +0 76000 0 00002 02470 ADD +0 40000 0 00675
02471 TNZ -0 10000 0 02474 02472 CLA +0 50000 0 00676 02473 STO +0 60100 0 00670 02474 TRA +0 02000 0 02404
FNDND = J 112 LM00154
02475 CLA +0 50000 0 00676 02476 STO +0 60100 0 00667
WHENEVER .NOT. BRIEF, PRNT.(FNDST, FNDND) 113 LM00155
02477 ZET +0 52000 0 00077 02500 TRA +0 02000 0 02504 02501 TSX +0 07400 4 00032 02502 TXH +3 00000 0 00670
02503 TXH +3 00000 0 00667
TRANSFER TO NXRQ 114 LM00156
02504 TRA +0 02000 0 00060
LOCSCN CONTINUE 115 LM00157
02505 TRA +0 02000 0 02361
TRANSFER TO NTFND 116 LM00158
02506 TRA +0 02000 0 00057
OR WHENEVER CWD .E. $ PRINT$ .OR. CWD .E. $ P$ 117 LM00160
02507 TRA +0 02000 0 03415 02510 CLA +0 50000 0 00106 02511 SUB +0 40200 0 01543 02512 TZE +0 10000 0 02516
02513 CLA +0 50000 0 00106 02514 SUB +0 40200 0 01517 02515 TNZ -0 10000 0 02564
NPRNT = BIN.(GET.(0)) 118 LM00161
02516 TSX +0 07400 4 00031 02517 TXH +3 00000 0 01500 02520 STO +0 60100 0 03710 02521 TSX +0 07400 4 00001
02522 TXH +3 00000 0 03710 02523 STO +0 60100 0 01455
PNTLP WHENEVER LENGTH .E. 0 119 LM00162
02524 CLA +0 50000 0 00700 02525 SUB +0 40200 0 01500 02526 TNZ -0 10000 0 02540
PRINT COMMENT $0N1O0 1C1U1R1R1E1N1T0 1L1I1N1E0.$ 120 LM00163
02527 TSX +0 07400 4 00015 02530 +0 00000 0 00006 02531 +0 04501 4 60060 02532 +0 12301 6 40151
02533 +0 15101 2 50145 02534 +0 16300 6 00143 02535 +0 13101 4 50125 02536 +0 03360 6 06060
OTHERWISE 121 LM00164
02537 TRA +0 02000 0 02543
TYPOUT.(LINE, LENGTH) 122 LM00165
02540 TSX +0 07400 4 00025 02541 TXH +3 00000 0 01452 02542 TXH +3 00000 0 00700
END OF CONDITIONAL 123 LM00166
NPRNT = NPRNT - 1 124 LM00167
02543 CLA +0 50000 0 01455 02544 SUB +0 40200 0 01501 02545 STO +0 60100 0 01455
WHENEVER NPRNT .G. 0 125 LM00168
02546 CLA +0 50000 0 01455 02547 SUB +0 40200 0 01500 02550 TZE +0 10000 0 02563 02551 TMI -0 12000 0 02563
WRITE.(LINE, LENGTH) 126 LM00169
02552 TSX +0 07400 4 00027 02553 TXH +3 00000 0 01452 02554 TXH +3 00000 0 00700
LENGTH = READ.(LINE, BUFSIZ, EOF) 127 LM00170
02555 TSX +0 07400 4 00017 02556 TXH +3 00000 0 01452 02557 TXH +3 00000 0 00100 02560 TXH +3 00000 0 00044
02561 STO +0 60100 0 00700
TRANSFER TO PNTLP 128 LM00171
02562 TRA +0 02000 0 00061
END OF CONDITIONAL 129 LM00172
OR WHENEVER CWD .E. $ TOP$ .OR. CWD .E. $ T$ 130 LM00174
02563 TRA +0 02000 0 03415 02564 CLA +0 50000 0 00106 02565 SUB +0 40200 0 01550 02566 TZE +0 10000 0 02572
02567 CLA +0 50000 0 00106 02570 SUB +0 40200 0 01552 02571 TNZ -0 10000 0 02602
TOPLP WRITE.(LINE, LENGTH) 131 LM00175
02572 TSX +0 07400 4 00027 02573 TXH +3 00000 0 01452 02574 TXH +3 00000 0 00700
WHENEVER OK, BOTTOM. 132 LM00176
02575 NZT -0 52000 0 01460 02576 TRA +0 02000 0 02600 02577 TSX +0 07400 4 00002
CLSOUT. 133 LM00177
02600 TSX +0 07400 4 00030
OR WHENEVER CWD .E. $CHANGE$ .OR. CWD .E. $ C$ 134 LM00179
02601 TRA +0 02000 0 03415 02602 CLA +0 50000 0 00106 02603 SUB +0 40200 0 01532 02604 TZE +0 10000 0 02610
02605 CLA +0 50000 0 00106 02606 SUB +0 40200 0 01510 02607 TNZ -0 10000 0 03172
EDCT = EDCT+1 135 LM00185
02610 CLA +0 50000 0 00111 02611 ADD +0 40000 0 01501 02612 STO +0 60100 0 00111
QUOTE = EDLIN(EDCT) 136 LM00186
02613 LXA +0 53400 2 00111 02614 CLA +0 50000 2 00663 02615 STO +0 60100 0 01464
STR1 = EDCT 137 LM00187
02616 CLA +0 50000 0 00111 02617 STO +0 60100 0 01471
QLOOP THROUGH QLOOP, FOR EDCT = EDCT+1, 1, 138 LM00188
1 (EDLIN(EDCT) .E. QUOTE) .OR. (EDCT .GE. COUNT) 138 LM00189
02620 CLA +0 50000 0 00111 02621 ADD +0 40000 0 01501 02622 STO +0 60100 0 00111 02623 TRA +0 02000 0 02627
02624 CLA +0 50000 0 00111 02625 ADD +0 40000 0 01501 02626 STO +0 60100 0 00111 02627 CLA +0 50000 0 00111
02630 SUB +0 40200 0 00105 02631 TZE +0 10000 0 02640 02632 TPL +0 12000 0 02640 02633 LXA +0 53400 1 00111
02634 CLA +0 50000 1 00663 02635 SUB +0 40200 0 01464 02636 TZE +0 10000 0 02640 02637 TRA +0 02000 0 02624
STR2 = EDCT 139 LM00190
02640 CLA +0 50000 0 00111 02641 STO +0 60100 0 01472
QLOOP1 THROUGH QLOOP1, FOR EDCT = EDCT+1, 1, 140 LM00191
1 (EDLIN(EDCT) .E. QUOTE) .OR. (EDCT .GE. COUNT) 140 LM00192
02642 CLA +0 50000 0 00111 02643 ADD +0 40000 0 01501 02644 STO +0 60100 0 00111 02645 TRA +0 02000 0 02651
02646 CLA +0 50000 0 00111 02647 ADD +0 40000 0 01501 02650 STO +0 60100 0 00111 02651 CLA +0 50000 0 00111
02652 SUB +0 40200 0 00105 02653 TZE +0 10000 0 02662 02654 TPL +0 12000 0 02662 02655 LXA +0 53400 1 00111
02656 CLA +0 50000 1 00663 02657 SUB +0 40200 0 01464 02660 TZE +0 10000 0 02662 02661 TRA +0 02000 0 02646
EST2 = EDCT 141 LM00193
02662 CLA +0 50000 0 00111 02663 STO +0 60100 0 00664
EDCT = EDCT + 1 142 LM00197
02664 CLA +0 50000 0 00111 02665 ADD +0 40000 0 01501 02666 STO +0 60100 0 00111
TEM = 1 143 LM00198
02667 CLA +0 50000 0 01501 02670 STO +0 60100 0 01474
GLOBAL = 0B 144 LM00199
02671 CLA +0 50000 0 01500 02672 STO +0 60100 0 00672
ARGLP CWD = GET.(0) 145 LM00200
02673 TSX +0 07400 4 00031 02674 TXH +3 00000 0 01500 02675 STO +0 60100 0 00106
WHENEVER CWD .E. $ $ 146 LM00201
02676 CLA +0 50000 0 00106 02677 SUB +0 40200 0 01546 02700 TNZ -0 10000 0 02703
TRANSFER TO SHIFT 147 LM00202
02701 TRA +0 02000 0 00063
OR WHENEVER CWD .E. $ G$ 148 LM00203
02702 TRA +0 02000 0 02721 02703 CLA +0 50000 0 00106 02704 SUB +0 40200 0 01536 02705 TNZ -0 10000 0 02716
WHENEVER STR2 .NE. STR1+1, GLOBAL = 1B 149 LM00204
02706 CLA +0 50000 0 01471 02707 ADD +0 40000 0 01501 02710 CHS +0 76000 0 00002 02711 ADD +0 40000 0 01472
02712 TZE +0 10000 0 02715 02713 CLA +0 50000 0 01501 02714 STO +0 60100 0 00672
OTHERWISE 150 LM00205
02715 TRA +0 02000 0 02721
TEM = BIN.(CWD) 151 LM00206
02716 TSX +0 07400 4 00001 02717 TXH +3 00000 0 00106 02720 STO +0 60100 0 01474
END OF CONDITIONAL 152 LM00207
TRANSFER TO ARGLP 153 LM00208
02721 TRA +0 02000 0 00035
SHIFT THROUGH MVDWN, FOR I = LENGTH, -1, I .L. 1 154 LM00212
02722 CLA +0 50000 0 00700 02723 STO +0 60100 0 00675 02724 TRA +0 02000 0 02730 02725 CLS +0 50200 0 01501
02726 ADD +0 40000 0 00675 02727 STO +0 60100 0 00675 02730 CLA +0 50000 0 00675 02731 SUB +0 40200 0 01501
02732 TZE +0 10000 0 02734 02733 TMI -0 12000 0 02744
MVDWN LINE(BUFSIZ+I-LENGTH) = LINE(I) 155 LM00213
02734 CLA +0 50000 0 00100 02735 ADD +0 40000 0 00675 02736 SUB +0 40200 0 00700 02737 PAX +0 73400 1 00000
02740 LXA +0 53400 2 00675 02741 CLA +0 50000 2 01452 02742 STO +0 60100 1 01452 02743 TRA +0 02000 0 02725
DOWN = BUFSIZ-LENGTH+1 156 LM00214
02744 CLA +0 50000 0 00100 02745 SUB +0 40200 0 00700 02746 ADD +0 40000 0 01501 02747 STO +0 60100 0 00110
UP = 0 157 LM00215
02750 CLA +0 50000 0 01500 02751 STO +0 60100 0 01476
CHNG = 0B 158 LM00216
02752 CLA +0 50000 0 01500 02753 STO +0 60100 0 00102
CHST = LENGTH + 1 159 LM00217
02754 CLA +0 50000 0 00700 02755 ADD +0 40000 0 01501 02756 STO +0 60100 0 00103
CHEND = LENGTH 160 LM00218
02757 CLA +0 50000 0 00700 02760 STO +0 60100 0 00101
SRCHLP UP = UP + 1 161 LM00222
02761 CLA +0 50000 0 01476 02762 ADD +0 40000 0 01501 02763 STO +0 60100 0 01476
SRTST WHENEVER DOWN .G. BUFSIZ, TRANSFER TO GIVUP 162 LM00223
02764 CLA +0 50000 0 00110 02765 SUB +0 40200 0 00100 02766 TZE +0 10000 0 02771 02767 TMI -0 12000 0 02771
02770 TRA +0 02000 0 00046
J = DOWN 163 LM00224
02771 CLA +0 50000 0 00110 02772 STO +0 60100 0 00676
THROUGH COMPAR, FOR I = STR1+1, 1, I .GE. STR2 164 LM00225
02773 CLA +0 50000 0 01471 02774 ADD +0 40000 0 01501 02775 STO +0 60100 0 00675 02776 TRA +0 02000 0 03002
02777 CLA +0 50000 0 00675 03000 ADD +0 40000 0 01501 03001 STO +0 60100 0 00675 03002 CLA +0 50000 0 00675
03003 SUB +0 40200 0 01472 03004 TZE +0 10000 0 03025 03005 TPL +0 12000 0 03025
WHENEVER J .GE. BUFSIZ, TRANSFER TO GIVUP 165 LM00226
03006 CLA +0 50000 0 00676 03007 SUB +0 40200 0 00100 03010 TZE +0 10000 0 03012 03011 TMI -0 12000 0 03013
03012 TRA +0 02000 0 00046
WHENEVER EDLIN(I) .NE. LINE(J), TRANSFER TO NOCOMP 166 LM00227
03013 LXA +0 53400 1 00675 03014 LXA +0 53400 2 00676 03015 CLA +0 50000 1 00663 03016 SUB +0 40200 2 01452
03017 TZE +0 10000 0 03021 03020 TRA +0 02000 0 00055
COMPAR J = J + 1 167 LM00228
03021 CLA +0 50000 0 00676 03022 ADD +0 40000 0 01501 03023 STO +0 60100 0 00676 03024 TRA +0 02000 0 02777
TRANSFER TO STFND 168 LM00229
03025 TRA +0 02000 0 00066
NOCOMP LINE(UP) = LINE(DOWN) 169 LM00231
03026 LXA +0 53400 1 01476 03027 LXA +0 53400 2 00110 03030 CLA +0 50000 2 01452 03031 STO +0 60100 1 01452
DOWN = DOWN + 1 170 LM00232
03032 CLA +0 50000 0 00110 03033 ADD +0 40000 0 01501 03034 STO +0 60100 0 00110
TRANSFER TO SRCHLP 171 LM00233
03035 TRA +0 02000 0 00064
STFND CHNG = 1B 172 LM00237
03036 CLA +0 50000 0 01501 03037 STO +0 60100 0 00102
DOWN = DOWN + (STR2-STR1-1) 173 LM00238
03040 CLA +0 50000 0 01472 03041 SUB +0 40200 0 01471 03042 SUB +0 40200 0 01501 03043 ADD +0 40000 0 00110
03044 STO +0 60100 0 00110
CHST = UP 174 LM00239
03045 CLA +0 50000 0 01476 03046 STO +0 60100 0 00103
THROUGH REPLAC, FOR I = STR2 + 1, 1, I .GE. EST2 175 LM00240
03047 CLA +0 50000 0 01472 03050 ADD +0 40000 0 01501 03051 STO +0 60100 0 00675 03052 TRA +0 02000 0 03056
03053 CLA +0 50000 0 00675 03054 ADD +0 40000 0 01501 03055 STO +0 60100 0 00675 03056 CLA +0 50000 0 00675
03057 SUB +0 40200 0 00664 03060 TZE +0 10000 0 03077 03061 TPL +0 12000 0 03077
LINE(UP) = EDLIN(I) 176 LM00241
03062 LXA +0 53400 1 01476 03063 LXA +0 53400 2 00675 03064 CLA +0 50000 2 00663 03065 STO +0 60100 1 01452
UP = UP + 1 177 LM00242
03066 CLA +0 50000 0 01476 03067 ADD +0 40000 0 01501 03070 STO +0 60100 0 01476
REPLAC WHENEVER UP .G. DOWN, TRANSFER TO GIVUP 178 LM00243
03071 CLA +0 50000 0 01476 03072 SUB +0 40200 0 00110 03073 TZE +0 10000 0 03076 03074 TMI -0 12000 0 03076
03075 TRA +0 02000 0 00046 03076 TRA +0 02000 0 03053
CHEND = UP - 1 179 LM00244
03077 CLA +0 50000 0 01476 03100 SUB +0 40200 0 01501 03101 STO +0 60100 0 00101
WHENEVER GLOBAL, TRANSFER TO SRTST 180 LM00245
03102 NZT -0 52000 0 00672 03103 TRA +0 02000 0 03105 03104 TRA +0 02000 0 00065
GIVUP THROUGH FILOUT, FOR UP = UP, 1, DOWN .G. BUFSIZ 181 LM00249
03105 CLA +0 50000 0 01476 03106 STO +0 60100 0 01476 03107 TRA +0 02000 0 03113 03110 CLA +0 50000 0 01476
03111 ADD +0 40000 0 01501 03112 STO +0 60100 0 01476 03113 CLA +0 50000 0 00110 03114 SUB +0 40200 0 00100
03115 TZE +0 10000 0 03117 03116 TPL +0 12000 0 03127
LINE(UP) = LINE(DOWN) 182 LM00250
03117 LXA +0 53400 1 01476 03120 LXA +0 53400 2 00110 03121 CLA +0 50000 2 01452 03122 STO +0 60100 1 01452
FILOUT DOWN = DOWN + 1 183 LM00251
03123 CLA +0 50000 0 00110 03124 ADD +0 40000 0 01501 03125 STO +0 60100 0 00110 03126 TRA +0 02000 0 03110
LENGTH = UP - 1 184 LM00252
03127 CLA +0 50000 0 01476 03130 SUB +0 40200 0 01501 03131 STO +0 60100 0 00700
TEM = TEM - 1 185 LM00253
03132 CLA +0 50000 0 01474 03133 SUB +0 40200 0 01501 03134 STO +0 60100 0 01474
WHENEVER .NOT. BRIEF .AND. (TEM .G. 0 .THEN. CHNG) 186 LM00254
1 , PRNT.(CHST, CHEND) 186 LM00255
03135 ZET +0 52000 0 00102 03136 TRA +0 02000 0 03143 03137 CLA +0 50000 0 01474 03140 SUB +0 40200 0 01500
03141 TZE +0 10000 0 03143 03142 TPL +0 12000 0 03150 03143 ZET +0 52000 0 00077 03144 TRA +0 02000 0 03150
03145 TSX +0 07400 4 00032 03146 TXH +3 00000 0 00103 03147 TXH +3 00000 0 00101
CANON.(LINE, LENGTH, BUFSIZ) 187 LM00256
03150 TSX +0 07400 4 00003 03151 TXH +3 00000 0 01452 03152 TXH +3 00000 0 00700 03153 TXH +3 00000 0 00100
WHENEVER TEM .G. 0 188 LM00257
03154 CLA +0 50000 0 01474 03155 SUB +0 40200 0 01500 03156 TZE +0 10000 0 03171 03157 TMI -0 12000 0 03171
WRITE.(LINE, LENGTH) 189 LM00258
03160 TSX +0 07400 4 00027 03161 TXH +3 00000 0 01452 03162 TXH +3 00000 0 00700
LENGTH = READ.(LINE, BUFSIZ, EOF) 190 LM00259
03163 TSX +0 07400 4 00017 03164 TXH +3 00000 0 01452 03165 TXH +3 00000 0 00100 03166 TXH +3 00000 0 00044
03167 STO +0 60100 0 00700
TRANSFER TO SHIFT 191 LM00260
03170 TRA +0 02000 0 00063
END OF CONDITIONAL 192 LM00261
OR WHENEVER CWD .E. $ SPLIT$ .OR. CWD .E. $ S$ 193 LM00265
03171 TRA +0 02000 0 03415 03172 CLA +0 50000 0 00106 03173 SUB +0 40200 0 01547 03174 TZE +0 10000 0 03200
03175 CLA +0 50000 0 00106 03176 SUB +0 40200 0 01553 03177 TNZ -0 10000 0 03261
TOPNAM = GET.(0) 194 LM00266
03200 TSX +0 07400 4 00031 03201 TXH +3 00000 0 01500 03202 STO +0 60100 0 01475
WHENEVER TOPNAM .E. $ $, TRANSFER TO NONAME 195 LM00267
03203 CLA +0 50000 0 01475 03204 SUB +0 40200 0 01546 03205 TNZ -0 10000 0 03207 03206 TRA +0 02000 0 00056
WHENEVER TOPNAM .E. OLDNAM .AND. FSTPAS 196 LM00268
03207 NZT -0 52000 0 00671 03210 TRA +0 02000 0 03227 03211 CLA +0 50000 0 01475 03212 SUB +0 40200 0 01461
03213 TNZ -0 10000 0 03227
NEWNM PRINT COMMENT $0P1L1E1A1S1E0 1U1S1E0 1A1N1O1T1H1E1R0 1N1A 197 LM00269
11M1E0.$ 197 LM00270
03214 TSX +0 07400 4 00015 03215 +0 00000 0 00010 03216 +0 04701 4 30125 03217 +0 12101 6 20125
03220 +0 06001 6 40162 03221 +0 12500 6 00121 03222 +0 14501 4 60163 03223 +0 13001 2 50151
03224 +0 06001 4 50121 03225 +0 14401 2 50033
TRANSFER TO NXRQ 198 LM00271
03226 TRA +0 02000 0 00060
END OF CONDITIONAL 199 LM00272
SECNAM = GET.(0) 200 LM00273
03227 TSX +0 07400 4 00031 03230 TXH +3 00000 0 01500 03231 STO +0 60100 0 01470
WHENEVER SECNAM .E. $ $, SECNAM = OLDSEC 201 LM00274
03232 CLA +0 50000 0 01470 03233 SUB +0 40200 0 01546 03234 TNZ -0 10000 0 03237 03235 CLA +0 50000 0 01462
03236 STO +0 60100 0 01470
CLRNAM.(TOPNAM, SECNAM, NEWNM, 1B) 202 LM00275
03237 TSX +0 07400 4 00006 03240 TXH +3 00000 0 01475 03241 TXH +3 00000 0 01470 03242 TXH +3 00000 0 00054
03243 TXH +3 00000 0 01501
CLOSEW. 203 LM00276
03244 TSX +0 07400 4 00005
RENAME.(IN, FI, TOPNAM, SECNAM) 204 LM00277
03245 TSX +0 07400 4 00020 03246 TXH +3 00000 0 00674 03247 TXH +3 00000 0 00666 03250 TXH +3 00000 0 01475
03251 TXH +3 00000 0 01470
ASSIGN.(IN, FI) 205 LM00278
03252 TSX +0 07400 4 00000 03253 TXH +3 00000 0 00674 03254 TXH +3 00000 0 00666
OLDNAM = FENCE 206 LM00279
03255 CLA +0 50000 0 00665 03256 STO +0 60100 0 01461
TRANSFER TO TOPLP 207 LM00280
03257 TRA +0 02000 0 00070
OR WHENEVER CWD .E. $ QUIT$ .OR. CWD .E. $ Q$ 208 LM00282
03260 TRA +0 02000 0 03415 03261 CLA +0 50000 0 00106 03262 SUB +0 40200 0 01544 03263 TZE +0 10000 0 03267
03264 CLA +0 50000 0 00106 03265 SUB +0 40200 0 01524 03266 TNZ -0 10000 0 03303
ENDRD. 209 LM00283
03267 TSX +0 07400 4 00011
CLOSEW. 210 LM00284
03270 TSX +0 07400 4 00005
DELFIL.(IN1, FI, DLQ1) 211 LM00285
03271 TSX +0 07400 4 00010 03272 TXH +3 00000 0 00673 03273 TXH +3 00000 0 00666 03274 TXH +3 00000 0 00041
DLQ1 DELFIL.(IN, FI, DLQ2) 212 LM00286
03275 TSX +0 07400 4 00010 03276 TXH +3 00000 0 00674 03277 TXH +3 00000 0 00666 03300 TXH +3 00000 0 00042
DLQ2 TRANSFER TO CHN 213 LM00287
03301 TRA +0 02000 0 00036
OR WHENEVER CWD .E. $ FILE$ 214 LM00289
03302 TRA +0 02000 0 03415 03303 CLA +0 50000 0 00106 03304 SUB +0 40200 0 01520 03305 TNZ -0 10000 0 03403
PRINAM = GET.(0) 215 LM00290
03306 TSX +0 07400 4 00031 03307 TXH +3 00000 0 01500 03310 STO +0 60100 0 01463
CLRSW = 1B 216 LM00291
03311 CLA +0 50000 0 01501 03312 STO +0 60100 0 00104
WHENEVER PRINAM .E. $ $ 217 LM00292
03313 CLA +0 50000 0 01463 03314 SUB +0 40200 0 01546 03315 TNZ -0 10000 0 03325
PRINAM = OLDNAM 218 LM00293
03316 CLA +0 50000 0 01461 03317 STO +0 60100 0 01463
SECNAM = OLDSEC 219 LM00294
03320 CLA +0 50000 0 01462 03321 STO +0 60100 0 01470
CLRSW = 0B 220 LM00295
03322 CLA +0 50000 0 01500 03323 STO +0 60100 0 00104
OTHERWISE 221 LM00296
03324 TRA +0 02000 0 03335
SECNAM = GET.(0) 222 LM00297
03325 TSX +0 07400 4 00031 03326 TXH +3 00000 0 01500 03327 STO +0 60100 0 01470
WHENEVER SECNAM .E. $ $ 223 LM00298
03330 CLA +0 50000 0 01470 03331 SUB +0 40200 0 01546 03332 TNZ -0 10000 0 03335
SECNAM = OLDSEC 224 LM00299
03333 CLA +0 50000 0 01462 03334 STO +0 60100 0 01470
END OF CONDITIONAL 225 LM00300
END OF CONDITIONAL 226 LM00301
WHENEVER PRINAM .E. FENCE 227 LM00302
03335 CLA +0 50000 0 01463 03336 SUB +0 40200 0 00665 03337 TNZ -0 10000 0 03352
NONAME PRINT COMMENT $0N1O0 1F1I1L1E0 1N1A1M1E0 1G1I1V1E1N0.$ 228 LM00303
03340 TSX +0 07400 4 00015 03341 +0 00000 0 00007 03342 +0 04501 4 60060 03343 +0 12601 3 10143
03344 +0 12500 6 00145 03345 +0 12101 4 40125 03346 +0 06001 2 70131 03347 +0 16501 2 50145
03350 +0 03360 6 06060
TRANSFER TO NXRQ 229 LM00304
03351 TRA +0 02000 0 00060
END OF CONDITIONAL 230 LM00305
WRITE.(LINE, LENGTH) 231 LM00306
03352 TSX +0 07400 4 00027 03353 TXH +3 00000 0 01452 03354 TXH +3 00000 0 00700
LENGTH = 0 232 LM00307
03355 CLA +0 50000 0 01500 03356 STO +0 60100 0 00700
WHENEVER OK, BOTTOM. 233 LM00308
03357 NZT -0 52000 0 01460 03360 TRA +0 02000 0 03362 03361 TSX +0 07400 4 00002
CLRNAM.(PRINAM, SECNAM, NEWNM, CLRSW) 234 LM00309
03362 TSX +0 07400 4 00006 03363 TXH +3 00000 0 01463 03364 TXH +3 00000 0 01470 03365 TXH +3 00000 0 00054
03366 TXH +3 00000 0 00104
CLOSEW. 235 LM00310
03367 TSX +0 07400 4 00005
DELFIL.(IN1, FI, DL1) 236 LM00311
03370 TSX +0 07400 4 00010 03371 TXH +3 00000 0 00673 03372 TXH +3 00000 0 00666 03373 TXH +3 00000 0 00037
DL1 RENAME.(IN, FI, PRINAM, SECNAM) 237 LM00312
03374 TSX +0 07400 4 00020 03375 TXH +3 00000 0 00674 03376 TXH +3 00000 0 00666 03377 TXH +3 00000 0 01463
03400 TXH +3 00000 0 01470
CHN EXIT. 238 LM00313
03401 TSX +0 07400 4 00012
OTHERWISE 239 LM00315
03402 TRA +0 02000 0 03415
PRINT COMMENT $0N1O1T0 1A0 1R1E1Q1U1E1S1T0:$ 240 LM00316
03403 TSX +0 07400 4 00015 03404 +0 00000 0 00005 03405 +0 04501 4 60163 03406 +0 06001 2 10060
03407 +0 15101 2 50150 03410 +0 16401 2 50162 03411 +0 16300 3 56060
TYPOUT.(EDLIN, COUNT) 241 LM00317
03412 TSX +0 07400 4 00025 03413 TXH +3 00000 0 00663 03414 TXH +3 00000 0 00105
END OF CONDITIONAL 242 LM00319
TRANSFER TO NXRQ 243 LM00320
03415 TRA +0 02000 0 00060
EOF PRINTCOMMENT $0E1N1D0 1O1F0 1F1I1L1E0 1R1E1A1C1H1E1D0 1B1Y0:$ 244 LM00322
03416 TSX +0 07400 4 00015 03417 +0 00000 0 00010 03420 +0 02501 4 50124 03421 +0 06001 4 60126
03422 +0 06001 2 60131 03423 +0 14301 2 50060 03424 +0 15101 2 50121 03425 +0 12301 3 00125
03426 +0 12400 6 00122 03427 +0 17000 3 56060
TYPOUT.(EDLIN, COUNT) 245 LM00323
03430 TSX +0 07400 4 00025 03431 TXH +3 00000 0 00663 03432 TXH +3 00000 0 00105
LENGTH = 0 246 LM00324
03433 CLA +0 50000 0 01500 03434 STO +0 60100 0 00700
OK = 0B 247 LM00325
03435 CLA +0 50000 0 01500 03436 STO +0 60100 0 01460
TRANSFER TO NXRQ 248 LM00326
03437 TRA +0 02000 0 00060
INTERNAL FUNCTION 249 LM00334
03440 TRA +0 02000 0 03510
ENTRY TO CLSOUT. 250 LM00335
03441 TRA +0 02000 0 03444 00030 TTR +0 02100 0 03442 03442 SXA +0 63400 2 03477 03443 TSX +0 07400 2 03477
CLOSEW. 251 LM00336
03444 TSX +0 07400 4 00005
DELFIL.(IN1, FI, DL2) 252 LM00337
03445 TSX +0 07400 4 00010 03446 TXH +3 00000 0 00673 03447 TXH +3 00000 0 00666 03450 TXH +3 00000 0 00040
DL2 CHFILE.(IN, FI, -0, IN1) 253 LM00338
03451 CLS +0 50200 0 01500 03452 STO +0 60100 0 03507 03453 TSX +0 07400 4 00004 03454 TXH +3 00000 0 00674
03455 TXH +3 00000 0 00666 03456 TXH +3 00000 0 03507 03457 TXH +3 00000 0 00673
SEEK.(IN1, FI, CHN) 254 LM00339
03460 TSX +0 07400 4 00021 03461 TXH +3 00000 0 00673 03462 TXH +3 00000 0 00666 03463 TXH +3 00000 0 00036
ASSIGN.(IN, FI) 255 LM00340
03464 TSX +0 07400 4 00000 03465 TXH +3 00000 0 00674 03466 TXH +3 00000 0 00666
OK = 1B 256 LM00341
03467 CLA +0 50000 0 01501 03470 STO +0 60100 0 01460
LENGTH = 0 257 LM00342
03471 CLA +0 50000 0 01500 03472 STO +0 60100 0 00700
FSTPAS = 0B 258 LM00343
03473 CLA +0 50000 0 01500 03474 STO +0 60100 0 00671
FUNCTION RETURN 259 LM00344
03475 TRA +0 02000 0 03503
END OF FUNCTION 260 LM00345
03476 TSX +0 07400 4 00012 03477 TXH +3 00000 0 00000 03500 SXD -0 63400 1 03477 03501 SXA +0 63400 4 03503
03502 TRA +0 02000 2 00001 03503 AXT +0 77400 4 00000 03504 LXA +0 53400 2 03477 03505 LXD -0 53400 1 03477
03506 TRA +0 02000 4 00001
INTERNAL FUNCTION 261 LM00349
03510 TRA +0 02000 0 03616
ENTRY TO GET. 262 LM00350
03511 TRA +0 02000 0 03514 00031 TTR +0 02100 0 03512 03512 SXA +0 63400 2 03605 03513 TSX +0 07400 2 03605
WORD = $ $ 263 LM00351
03514 CLA +0 50000 0 01546 03515 STO +0 60100 0 01477
SCANLP THROUGH SCANLP, FOR EDCT = EDCT, 1, 264 LM00352
1 (EDLIN(EDCT+1).NE.BLANK) .OR. (EDCT+1.GE.COUNT) 264 LM00353
03516 CLA +0 50000 0 00111 03517 STO +0 60100 0 00111 03520 TRA +0 02000 0 03524 03521 CLA +0 50000 0 00111
03522 ADD +0 40000 0 01501 03523 STO +0 60100 0 00111 03524 CLA +0 50000 0 00111 03525 ADD +0 40000 0 01501
03526 SUB +0 40200 0 00105 03527 TZE +0 10000 0 03540 03530 TPL +0 12000 0 03540 03531 CLA +0 50000 0 00111
03532 ADD +0 40000 0 01501 03533 PAX +0 73400 1 00000 03534 CLA +0 50000 1 00663 03535 SUB +0 40200 0 00076
03536 TNZ -0 10000 0 03540 03537 TRA +0 02000 0 03521
GTLP EDCT = EDCT + 1 265 LM00354
03540 CLA +0 50000 0 00111 03541 ADD +0 40000 0 01501 03542 STO +0 60100 0 00111
WHENEVER EDLIN(EDCT) .E. BLANK, FUNCTION RETURN WORD 266 LM00355
03543 LXA +0 53400 1 00111 03544 CLA +0 50000 1 00663 03545 SUB +0 40200 0 00076 03546 TNZ -0 10000 0 03551
03547 CLA +0 50000 0 01477 03550 TRA +0 02000 0 03611
WHENEVER EDLIN(EDCT) .E. TAB .OR. EDCT .GE. COUNT 267 LM00356
03551 CLA +0 50000 0 00111 03552 SUB +0 40200 0 00105 03553 TZE +0 10000 0 03561 03554 TPL +0 12000 0 03561
03555 LXA +0 53400 1 00111 03556 CLA +0 50000 1 00663 03557 SUB +0 40200 0 01473 03560 TNZ -0 10000 0 03566
EDCT = EDCT - 1 268 LM00357
03561 CLA +0 50000 0 00111 03562 SUB +0 40200 0 01501 03563 STO +0 60100 0 00111
FUNCTION RETURN WORD 269 LM00358
03564 CLA +0 50000 0 01477 03565 TRA +0 02000 0 03611
END OF CONDITIONAL 270 LM00359
WORD = (WORD .LS. 6) .V. HOL.(EDLIN(EDCT)) 271 LM00360
03566 CLA +0 50000 0 00111 03567 SUB +0 40200 0 03570 03570 TXH +3 00000 0 00663 03571 STA +0 62100 0 03573
03572 TSX +0 07400 4 00014 03573 TXH +3 00000 0 00000 03574 STO +0 60100 0 03615 03575 CAL -0 50000 0 01504
03576 STA +0 62100 0 03600 03577 CAL -0 50000 0 01477 03600 ALS +0 76700 0 00000 03601 ORA -0 50100 0 03615
03602 SLW +0 60200 0 01477
TRANSFER TO GTLP 272 LM00361
03603 TRA +0 02000 0 00047
END OF FUNCTION 273 LM00362
03604 TSX +0 07400 4 00012 03605 TXH +3 00000 0 00000 03606 SXD -0 63400 1 03605 03607 SXA +0 63400 4 03611
03610 TRA +0 02000 2 00001 03611 AXT +0 77400 4 00000 03612 LXA +0 53400 2 03605 03613 LXD -0 53400 1 03605
03614 TRA +0 02000 4 00001
INTERNAL FUNCTION(STAR, EN) 274 LM00366
03616 TRA +0 02000 0 03707
ENTRY TO PRNT. 275 LM00367
03617 TRA +0 02000 0 03622 00032 TTR +0 02100 0 03620 03620 SXA +0 63400 2 03666 03621 TSX +0 07400 2 03666
TYPOUT.(LINE, STAR-1) 276 LM00368
03622 CLA +0 50000 0 00024 03623 SUB +0 40200 0 01501 03624 STO +0 60100 0 03706 03625 TSX +0 07400 4 00025
03626 TXH +3 00000 0 01452 03627 TXH +3 00000 0 03706
TYPOUT.(REDS, 1) 277 LM00369
03630 TSX +0 07400 4 00025 03631 TXH +3 00000 0 01466 03632 TXH +3 00000 0 01501
TYPOUT.(LINE(STAR-1), EN-STAR+1) 278 LM00370
03633 CLA +0 50000 0 00024 03634 SUB +0 40200 0 00024 03635 ADD +0 40000 0 01501 03636 STO +0 60100 0 03706
03637 CLA +0 50000 0 00024 03640 SUB +0 40200 0 01501 03641 SUB +0 40200 0 03642 03642 TXH +3 00000 0 01452
03643 STA +0 62100 0 03645 03644 TSX +0 07400 4 00025 03645 TXH +3 00000 0 00000 03646 TXH +3 00000 0 03706
TYPOUT.(BLACKS, 1) 279 LM00371
03647 TSX +0 07400 4 00025 03650 TXH +3 00000 0 00075 03651 TXH +3 00000 0 01501
TYPOUT.(LINE(EN), LENGTH-EN) 280 LM00372
03652 CLA +0 50000 0 00700 03653 SUB +0 40200 0 00024 03654 STO +0 60100 0 03706 03655 CLA +0 50000 0 00024
03656 SUB +0 40200 0 03657 03657 TXH +3 00000 0 01452 03660 STA +0 62100 0 03662 03661 TSX +0 07400 4 00025
03662 TXH +3 00000 0 00000 03663 TXH +3 00000 0 03706
FUNCTION RETURN 281 LM00373
03664 TRA +0 02000 0 03702
END OF FUNCTION 282 LM00374
03665 TSX +0 07400 4 00012 03666 TXH +3 00000 0 00000 03667 SXD -0 63400 1 03666 03670 SXA +0 63400 4 03702
03671 CLA +0 50000 4 00001 03672 STA +0 62100 0 03622 03673 STA +0 62100 0 03634 03674 STA +0 62100 0 03637
03675 CLA +0 50000 4 00002 03676 STA +0 62100 0 03633 03677 STA +0 62100 0 03653 03700 STA +0 62100 0 03655
03701 TRA +0 02000 2 00001 03702 AXT +0 77400 4 00000 03703 LXA +0 53400 2 03666 03704 LXD -0 53400 1 03666
03705 TRA +0 02000 4 00001
END OF PROGRAM 283 LM00376
03707 TSX +0 07400 4 00012
1 MAD PROGRAM LISTING ... ... ... FILE BINVAL MAD 02/08/68 1747.9
-
.. ROUTINE TO RETURN INITIAL VALUES TO EDITOR FOR LM00001
.. EDITING ASCII FILES. LM00002
LM00003
EXTERNAL FUNCTION(BLANK, TAB, DEFALT, MCHNG, REDS, BLACKS) *001 LM00004
NORMAL MODE IS INTEGER *002 LM00005
ENTRY TO GETVAL. *003 LM00006
BLANK = 060K *004 LM00007
TAB = 072K *005 LM00008
DEFALT = $ SAVED$ *006 LM00009
MCHNG = 055K *007 LM00010
REDS = 133K *008 LM00011
BLACKS = 132K *009 LM00012
FUNCTION RETURN *010 LM00013
END OF FUNCTION *011 LM00014
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00061 TRANSFER VECTOR LENGTH 00001 PROGRAM BEGINS 00012
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
GETVAL 00013 0
0FUNCTION DICTIONARY
EXIT 00000 1
0ABSOLUTE CONSTANTS
00006 +000000000132 00007 +000000000133 00003 +000000000055 00011 -206221652524 00005 +000000000072
00004 +000000000060 00002 +000000000001 00010 +233000000000
0PROGRAM
EXTERNAL FUNCTION(BLANK, TAB, DEFALT, MCHNG, REDS, BLACKS) 001 LM00004
NORMAL MODE IS INTEGER 002 LM00005
ENTRY TO GETVAL. 003 LM00006
00012 TRA +0 02000 0 00015 00013 SXA +0 63400 2 00033 00014 TSX +0 07400 2 00033
BLANK = 060K 004 LM00007
00015 CLA +0 50000 0 00004 00016 STO +0 60100 0 00024
TAB = 072K 005 LM00008
00017 CLA +0 50000 0 00005 00020 STO +0 60100 0 00024
DEFALT = $ SAVED$ 006 LM00009
00021 CLA +0 50000 0 00011 00022 STO +0 60100 0 00024
MCHNG = 055K 007 LM00010
00023 CLA +0 50000 0 00003 00024 STO +0 60100 0 00024
REDS = 133K 008 LM00011
00025 CLA +0 50000 0 00007 00026 STO +0 60100 0 00024
BLACKS = 132K 009 LM00012
00027 CLA +0 50000 0 00006 00030 STO +0 60100 0 00024
FUNCTION RETURN 010 LM00013
00031 TRA +0 02000 0 00053
END OF FUNCTION 011 LM00014
00032 TSX +0 07400 4 00000 00033 TXH +3 00000 0 00000 00034 SXD -0 63400 1 00033 00035 SXA +0 63400 4 00053
00036 CLA +0 50000 4 00001 00037 STA +0 62100 0 00016 00040 CLA +0 50000 4 00002 00041 STA +0 62100 0 00020
00042 CLA +0 50000 4 00003 00043 STA +0 62100 0 00022 00044 CLA +0 50000 4 00004 00045 STA +0 62100 0 00024
00046 CLA +0 50000 4 00005 00047 STA +0 62100 0 00026 00050 CLA +0 50000 4 00006 00051 STA +0 62100 0 00030
00052 TRA +0 02000 2 00001 00053 AXT +0 77400 4 00000 00054 LXA +0 53400 2 00033 00055 LXD -0 53400 1 00033
00056 TRA +0 02000 4 00001
1 MAD PROGRAM LISTING ... ... ... FILE BINCON MAD 02/08/68 1746.6
-
.. CHARACTER PACKING AND UNPACKING ROUTINE FOR BINARY FILES. LM00001
.. J. H. SALTZER, JANUARY, 1966. LM00002
LM00003
EXTERNAL FUNCTION(LINE, BUFSIZ, EOF) *001 LM00004
NORMAL MODE IS INTEGER *002 LM00005
VECTOR VALUES RETURN = 55K *003 LM00006
STATEMENT LABEL EOF *004 LM00007
LM00008
ENTRY TO READ. *005 LM00009
X = RDWORD.(EOF) *006 LM00010
THROUGH GIVE, FOR I = 12, -1, I .L. 1 *007 LM00011
LINE(I) = X.A.7K *008 LM00012
GIVE X = X.RS.3 *009 LM00013
LINE(13) = RETURN *010 LM00014
FUNCTION RETURN 13 *011 LM00015
LM00016
ENTRY TO WRITE. *012 LM00017
WHENEVER BUFSIZ .LE. 1, FUNCTION RETURN *013 LM00018
BUFSIZ = BUFSIZ - 1 *014 LM00019
X = 0 *015 LM00020
THROUGH PACK, FOR I = 1, 1, I .G. BUFSIZ *016 LM00021
PACK X = (X .LS. 3) .V. (LINE(I) .A. 7K) *017 LM00022
WRWORD.(X) *018 LM00023
FUNCTION RETURN *019 LM00024
LM00025
ENTRY TO CLOSEW. *020 LM00026
FILE. *021 LM00027
FUNCTION RETURN *022 LM00028
LM00029
ENTRY TO BOTTOM. *023 LM00030
LP WRWORD.(RDWORD.(DONE)) *024 LM00031
TRANSFER TO LP *025 LM00032
LM00033
DONE FUNCTION RETURN *026 LM00034
LM00035
END OF FUNCTION *027 LM00036
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00174 TRANSFER VECTOR LENGTH 00004 PROGRAM BEGINS 00021
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
BOTTOM 00132 0 CLOSEW 00125 0 WRITE 00060 0 READ 00022 0
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
DONE 00005 4 I 00007 1 PACK 00004 4 RETURN 00010 A 1 X 00011 1
GIVE 00004 4 LP 00006 4
0FUNCTION DICTIONARY
EXIT 00000 1 FILE 00001 1 RDWORD 00002 1 WRWORD 00003 1
0ABSOLUTE CONSTANTS
00012 +000000000000 00017 +000000000015 00014 +000000000003 00015 +000000000007 00016 +000000000014
00013 +000000000001 00020 +233000000000
0STATEMENT DICTIONARY
00005 TXL -300143000142 00006 TXL -300141000134
0PROGRAM
EXTERNAL FUNCTION(LINE, BUFSIZ, EOF) 001 LM00004
NORMAL MODE IS INTEGER 002 LM00005
VECTOR VALUES RETURN = 55K 003 LM00006
00010 +0 00000 0 00055
STATEMENT LABEL EOF 004 LM00007
ENTRY TO READ. 005 LM00009
00021 TRA +0 02000 0 00024 00022 SXA +0 63400 2 00145 00023 TSX +0 07400 2 00145
X = RDWORD.(EOF) 006 LM00010
00024 TSX +0 07400 4 00002 00025 TXH +3 00000 0 00024 00026 STO +0 60100 0 00011
THROUGH GIVE, FOR I = 12, -1, I .L. 1 007 LM00011
00027 CLA +0 50000 0 00016 00030 STO +0 60100 0 00007 00031 TRA +0 02000 0 00035 00032 CLS +0 50200 0 00013
00033 ADD +0 40000 0 00007 00034 STO +0 60100 0 00007 00035 CLA +0 50000 0 00007 00036 SUB +0 40200 0 00013
00037 TZE +0 10000 0 00041 00040 TMI -0 12000 0 00053
LINE(I) = X.A.7K 008 LM00012
00041 CAL -0 50000 0 00011 00042 ANA -0 32000 0 00015 00043 LXA +0 53400 1 00007 00044 SLW +0 60200 1 00024
GIVE X = X.RS.3 009 LM00013
00045 CAL -0 50000 0 00014 00046 STA +0 62100 0 00050 00047 CAL -0 50000 0 00011 00050 LGR -0 76500 0 00000
00051 SLW +0 60200 0 00011 00052 TRA +0 02000 0 00032
LINE(13) = RETURN 010 LM00014
00053 CLA +0 50000 0 00010 00054 STO +0 60100 0 00007
FUNCTION RETURN 13 011 LM00015
00055 CLA +0 50000 0 00017 00056 TRA +0 02000 0 00165
ENTRY TO WRITE. 012 LM00017
00057 TRA +0 02000 0 00062 00060 SXA +0 63400 2 00145 00061 TSX +0 07400 2 00145
WHENEVER BUFSIZ .LE. 1, FUNCTION RETURN 013 LM00018
00062 CLA +0 50000 0 00024 00063 SUB +0 40200 0 00013 00064 TZE +0 10000 0 00066 00065 TPL +0 12000 0 00067
00066 TRA +0 02000 0 00165
BUFSIZ = BUFSIZ - 1 014 LM00019
00067 CLA +0 50000 0 00024 00070 SUB +0 40200 0 00013 00071 STO +0 60100 0 00024
X = 0 015 LM00020
00072 CLA +0 50000 0 00012 00073 STO +0 60100 0 00011
THROUGH PACK, FOR I = 1, 1, I .G. BUFSIZ 016 LM00021
00074 CLA +0 50000 0 00013 00075 STO +0 60100 0 00007 00076 TRA +0 02000 0 00102 00077 CLA +0 50000 0 00007
00100 ADD +0 40000 0 00013 00101 STO +0 60100 0 00007 00102 CLA +0 50000 0 00007 00103 SUB +0 40200 0 00024
00104 TZE +0 10000 0 00106 00105 TPL +0 12000 0 00121
PACK X = (X .LS. 3) .V. (LINE(I) .A. 7K) 017 LM00022
00106 LXA +0 53400 1 00007 00107 CAL -0 50000 1 00024 00110 ANA -0 32000 0 00015 00111 SLW +0 60200 0 00171
00112 CAL -0 50000 0 00014 00113 STA +0 62100 0 00115 00114 CAL -0 50000 0 00011 00115 ALS +0 76700 0 00000
00116 ORA -0 50100 0 00171 00117 SLW +0 60200 0 00011 00120 TRA +0 02000 0 00077
WRWORD.(X) 018 LM00023
00121 TSX +0 07400 4 00003 00122 TXH +3 00000 0 00011
FUNCTION RETURN 019 LM00024
00123 TRA +0 02000 0 00165
ENTRY TO CLOSEW. 020 LM00026
00124 TRA +0 02000 0 00127 00125 SXA +0 63400 2 00145 00126 TSX +0 07400 2 00145
FILE. 021 LM00027
00127 TSX +0 07400 4 00001
FUNCTION RETURN 022 LM00028
00130 TRA +0 02000 0 00165
ENTRY TO BOTTOM. 023 LM00030
00131 TRA +0 02000 0 00134 00132 SXA +0 63400 2 00145 00133 TSX +0 07400 2 00145
LP WRWORD.(RDWORD.(DONE)) 024 LM00031
00134 TSX +0 07400 4 00002 00135 TXH +3 00000 0 00005 00136 STO +0 60100 0 00171 00137 TSX +0 07400 4 00003
00140 TXH +3 00000 0 00171
TRANSFER TO LP 025 LM00032
00141 TRA +0 02000 0 00006
DONE FUNCTION RETURN 026 LM00034
00142 TRA +0 02000 0 00165
END OF FUNCTION 027 LM00036
00143 TSX +0 07400 4 00000 00144 PZE +0 00000 0 00015 00145 TXH +3 00000 0 00000 00146 SXD -0 63400 1 00145
00147 SXA +0 63400 4 00165 00150 CLA +0 50000 4 00001 00151 STA +0 62100 0 00044 00152 STA +0 62100 0 00107
00153 SUB +0 40200 0 00144 00154 STA +0 62100 0 00054 00155 CLA +0 50000 4 00002 00156 STA +0 62100 0 00062
00157 STA +0 62100 0 00067 00160 STA +0 62100 0 00071 00161 STA +0 62100 0 00103 00162 CLA +0 50000 4 00003
00163 STO +0 60100 0 00025 00164 TRA +0 02000 2 00001 00165 AXT +0 77400 4 00000 00166 LXA +0 53400 2 00145
00167 LXD -0 53400 1 00145 00170 TRA +0 02000 4 00001
1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. PAGE 1
* NOTE, INDEX REGISTERS SIX AND SEVEN MUST BE PRESERVED
* BY THE CALLING PROGRAM.
* THIS ROUTINE MAKES TYPEWRITER COMMENTS, BUT DOES NOT
* AFFECT THE BCD-FULL MODE SWITCH.
*
* J. H. SALTZER, JANUARY, 1965.
*
00015 ENTRY ASSIGN TO ASSIGN A NAME TO THE WRITE FILE.
00057 ENTRY WRWORD TO ADD A WORD TO THE FILE.
00100 ENTRY FILE TO CLOSE THE FILE.
*
00160 ENTRY SEEK TO OPEN A FILE FOR READING.
00242 ENTRY RDWORD TO GET A WORD FROM FILE.
00275 ENTRY ENDRD TO CLOSE THE FILE.
*
EXTERN GETBUF,SETBCD,SETFUL,WRFLX,WRFLXA
EXTERN OPEN,WRWAIT,RDWAIT,CLOSE,FSTATE,BUFFER
*
* ASSIGN.($NAME1$,$NAME2$)
*
TRANSFER VECTOR
00000 272563226426 GETBUF
00001 622563222324 SETBCD
00002 622563266443 SETFUL
00003 665126436760 WRFLX
00004 665126436721 WRFLXA
00005 464725456060 OPEN
00006 665166213163 WRWAIT
00007 512466213163 RDWAIT
00010 234346622560 CLOSE
00011 266263216325 FSTATE
00012 226426262551 BUFFER
LINKAGE DIRECTOR
00013 000000000000
00014 216262312745
00015 -0500 60 4 00001 ASSIGN CAL* 1,4 OPEN FILE, GET FILE NAME.
00016 0602 00 0 00304 SLW OUTNAM ..
00017 -0500 60 4 00002 CAL* 2,4 ..
00020 0602 00 0 00305 SLW OUTNAM+1 ..
00021 0634 00 4 00041 SXA OPX4,4 SAVE LINKAGE.
00022 0020 00 0 00023 OSW TRA *+1 ENTER ONE-TIME SECTION TO GET BUFFERS.
* *******************
00023 -0500 00 0 00315 CAL WBFSZ GET AN OUTPUT BUFFER FROM SUPERVISOR.
00024 0074 00 4 00000 TSX GETBUF,4 ..
00025 0621 00 0 00071 STA WCALL SAVE LOCATION OF BUFFER.
00026 0621 00 0 00113 STA CLCALL TO CLOSE OUT FILE.
00027 0361 00 0 00315 ACL WBFSZ ADD LENGTH, TO FORM END ADDRESS.
00030 0621 00 0 00060 STA WRNM INSERT IN INSERTER.
00031 -0500 00 0 00313 CAL TRKSZ GET A DISK TRACK BUFFER.
00032 0074 00 4 00000 TSX GETBUF,4 ..
00033 0621 00 0 00055 STA BFCALL SET UP BUFFER CALLER.
00034 -0625 00 0 00022 STL OSW RESET ONE-TIME SWITCH.
* *******************
1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. PAGE 2
00035 0774 00 4 00040 AXT OPOK,4 SET QUOTA EXHAUSTED ERROR RETURN.
00036 0634 00 4 00143 SXA WRTN,4 ..
00037 0074 00 3 00043 TSX OPN,3 OPEN THE FILE.
00040 0774 00 7 00330 OPOK AXT WBFLTH,7 SET UP STORAGE COUNT.
00041 0774 00 4 00000 OPX4 AXT --,4 RESTORE LINKAGE.
00042 0020 00 4 00003 TRA 3,4 RETURN.
*
00043 0074 00 4 00005 OPN TSX OPEN,4 OPEN FILE.
TD 00044 3 00000 0 00324 TXH =HW FOR WRITING.
TD 00045 3 00000 0 00304 TXH OUTNAM ..
TD 00046 3 00000 0 00305 TXH OUTNAM+1 ..
TD 00047 3 00000 0 00156 TXH MODE MAKE IT PERMANENT IF POSSIBLE.
TD 00050 3 00000 0 00320 TXH =2 PUT IT ON THE DISK.
TD 00051 3 00000 0 00127 OPERR TXH OEXH IN CASE NO MORE QUOTA AVAILABLE.
00052 0074 00 4 00012 TSX BUFFER,4 ASSIGN A BUFFER FOR THE FILE.
TD 00053 3 00000 0 00304 TXH OUTNAM ..
TD 00054 3 00000 0 00305 TXH OUTNAM+1 ..
00055 3 00660 0 00000 BFCALL TXH --,,TRKLTH ..
00056 0020 00 3 00001 TRA 1,3 RETURN TO CALLER.
*
*
* ENTRY TO ADD A WORD TO FILE.
* WRWORD.(WORD)
*
00057 -0500 60 4 00001 WRWORD CAL* 1,4 GET WORD TO BE ADDED.
00060 0602 00 7 00000 WRNM SLW --,7 ADD WORD TO OUTPUT BUFFER.
00061 2 00001 7 00077 TIX RETURN,7,1 COUNT AND CHECK FOR FULL BUFFER.
00062 0634 00 4 00076 FULL SXA FULX4,4 BUFFER FULL, WRITE IT OUT.
00063 0774 00 4 00065 AXT WRAGN,4 SET UP EXHAUSTED RETURN ADDRESS.
00064 0634 00 4 00143 SXA WRTN,4 ..
00065 0074 00 4 00006 WRAGN TSX WRWAIT,4 GIVE BUFFER TO SUPERVISOR.
TD 00066 3 00000 0 00304 TXH OUTNAM ..
TD 00067 3 00000 0 00305 TXH OUTNAM+1 ..
TD 00070 3 00000 0 00316 TXH =0 ..
00071 3 00330 0 00000 WCALL TXH --,,WBFLTH ..
TD 00072 3 00000 0 00321 TXH =-0 IGNORE POSSIBLE EOF.
TD 00073 3 00000 0 00321 TXH =-0 ..
TD 00074 3 00000 0 00124 WRERR TXH WEXH ALLOW ERROR RETURN.
00075 0774 00 7 00330 AXT WBFLTH,7 RESET BUFFER POINTER.
00076 0774 00 4 00000 FULX4 AXT --,4 RESTORE LINKAGE.
00077 0020 00 4 00002 RETURN TRA 2,4 RETURN TO CALLER.
*
* FILE. NO ARGUMENTS.
*
00100 0634 00 4 00122 FILE SXA CL4,4 ENTRY TO CLOSE OUT FILE.
00101 -0634 00 7 00103 SXD *+2,7 FORM COUNT OF WORDS SINCE
00102 0774 00 7 00330 AXT WBFLTH,7 LAST BUFFER WAS WRITTEN.
00103 -2 00000 7 00117 TNX NOWR,7,-- IF ZERO, SKIP FINAL WRITE CALL.
00104 -0634 00 7 00113 SXD CLCALL,7 NON-ZERO, SET UP WRITE CALL.
00105 0774 00 4 00107 AXT FWR,4 SET UP RETURN ADDRESS FOR EXHAUSTED CASE.
00106 0634 00 4 00143 SXA WRTN,4 ..
00107 0074 00 4 00006 FWR TSX WRWAIT,4 WRITE OUT PARTIAL BUFFER.
TD 00110 3 00000 0 00304 TXH OUTNAM ..
TD 00111 3 00000 0 00305 TXH OUTNAM+1 ..
TD 00112 3 00000 0 00316 TXH =0 ..
00113 3 00000 0 00000 CLCALL TXH --,,-- ..
1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. PAGE 3
TD 00114 3 00000 0 00321 TXH =-0 IGNORE EOF RETURN.
TD 00115 3 00000 0 00321 TXH =-0 ..
TD 00116 3 00000 0 00124 TXH WEXH ALLOW ERROR RETURN.
00117 0074 00 4 00010 NOWR TSX CLOSE,4 CLOSE OUT THE FILE.
TD 00120 3 00000 0 00304 TXH OUTNAM ..
TD 00121 3 00000 0 00305 TXH OUTNAM+1 ..
00122 0774 00 4 00000 CL4 AXT --,4 RESTORE LINKAGE.
00123 0020 00 4 00001 TRA 1,4 ..
*
00124 0074 00 4 00010 WEXH TSX CLOSE,4 TRACK QUOTA EXHAUSTED, CLOSE FILE.
TD 00125 3 00000 0 00304 TXH OUTNAM ..
TD 00126 3 00000 0 00305 TXH OUTNAM+1 ..
00127 0074 00 4 00001 OEXH TSX SETBCD,4 ENTRY FROM OPEN ERROR, COMMENT.
00130 0601 00 0 00157 STO MODSW SAVE OLD CHARACTER MODE SETTING.
00131 0074 00 4 00003 TSX WRFLX,4 ..
00132 0 00011 0 00144 ERMESS,,9
00133 0520 00 0 00157 ZET MODSW SHOULD 12-BIT INDICATOR BE RESET.
00134 0074 00 4 00002 TSX SETFUL,4 YES, RESET INDICATOR.
00135 -0500 00 0 00317 CAL =1 SWITCH TO TEMPORARY MODE.
00136 0601 00 0 00156 STO MODE ..
00137 -0500 00 0 00155 CAL NOP BLOCK FUTURE ERROR RETURN.
00140 0602 00 0 00051 SLW OPERR ..
00141 0602 00 0 00074 SLW WRERR
00142 0074 00 3 00043 TSX OPN,3 NOW, OPEN IT AGAIN.
00143 0020 00 0 00000 WRTN TRA -- ALL FIXED, RETURN TO MAIN STREAM.
*
00144 635121234260 ERMESS BCI 9,TRACK QUOTA EXHAUSTED, TEMPORARY MODE WILL BE USED.
00145 506446632160
00146 256730216462
00147 632524736063
00150 254447465121
00151 517060444624
00152 256066314343
00153 602225606462
00154 252433606060
00155 0761 00 0 00000 NOP NOP INSTRUCTION TO BLOCK ERROR RETURN.
00156 0 00000 0 00000 MODE 0 START IN PERMANENT MODE.
00157 0 00000 0 00000 MODSW TEMP STORAGE FOR 6-BIT,12-BIT INDICATOR.
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* SEEK.($NAME1$, $NAME2$, ERRET)
* ERROR RETURN MEANS FILE NOT FOUND.
*
00160 -0500 60 4 00001 SEEK CAL* 1,4 GET FILE NAME.
00161 0602 00 0 00306 SLW INNAM ..
00162 -0500 60 4 00002 CAL* 2,4 ..
00163 0602 00 0 00307 SLW INNAM+1 ..
00164 0634 00 4 00222 SXA SKX4,4 SAVE LINKAGE.
00165 0020 00 0 00166 SKSW TRA *+1 ENTER ONE-TIME SECTION TO GET BUFFERS.
* *********************
00166 -0500 00 0 00314 CAL RBFSZ GET A BUFFER FROM SUPERVISOR.
00167 0074 00 4 00000 TSX GETBUF,4 ..
00170 0621 00 0 00257 STA ECALL STORE BUFFER LOCATION.
00171 0621 00 0 00217 STA STCALL ..
00172 -0625 00 0 00165 STL SKSW RESET ONE-TIME SWITCH.
* *********************
1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. PAGE 4
00173 -0500 00 0 00217 CAL STCALL SET UP PICKUP INSTRUCTION FOR INDEXING.
00174 0361 00 0 00314 ACL RBFSZ ..
00175 0621 00 0 00242 STA RDWORD ..
00176 0074 00 4 00011 TSX FSTATE,4 MAKE SURE FILE IS THERE.
TD 00177 3 00000 0 00306 TXH INNAM ..
TD 00200 3 00000 0 00307 TXH INNAM+1 ..
TD 00201 3 00000 0 00321 TXH =-0 DON'T WANT DATA.
TD 00202 3 00000 0 00224 TXH NOTFN ERROR RETURN MEANS FILE NOT THERE.
00203 0074 00 4 00005 TSX OPEN,4 OPEN THE FILE FOR READING.
TD 00204 3 00000 0 00322 TXH =HR ..
TD 00205 3 00000 0 00306 TXH INNAM ..
TD 00206 3 00000 0 00307 TXH INNAM+1 ..
00207 0774 00 6 00660 AXT RBFLTH,6 SET UP BUFFER COUNTER.
00210 0774 00 4 00222 AXT SKX4,4 SET END OF FILE RETURN.
00211 0634 00 4 00274 SXA EOFRTN,4 ..
00212 0600 00 0 00312 STZ EOFR CLEAR END OF FILE SWITCH.
00213 0074 00 4 00007 TSX RDWAIT,4 GET INITIAL BUFFER LOAD.
TD 00214 3 00000 0 00306 TXH INNAM ..
TD 00215 3 00000 0 00307 TXH INNAM+1 ..
TD 00216 3 00000 0 00316 TXH =0 ..
00217 3 00660 0 00000 STCALL TXH --,,RBFLTH ..
TD 00220 3 00000 0 00265 TXH EOF END OF FILE RETURN.
TD 00221 3 00000 0 00311 TXH EOFCT ..
00222 0774 00 4 00000 SKX4 AXT --,4 RESTORE LINKAGE.
00223 0020 00 4 00004 TRA 4,4 RETURN TO CALLER.
*
00224 0074 00 4 00001 NOTFN TSX SETBCD,4 FILE NOT FOUND, COMMENT.
00225 0601 00 0 00157 STO MODSW SAVE OLD CHARACTER MODE SETTING.
00226 0074 00 4 00004 TSX WRFLXA,4 START UP COMMENT.
00227 0 00001 0 00323 =H FILE ,,1 ..
00230 0074 00 4 00004 TSX WRFLXA,4 INSERT FILE NAME.
00231 0 00002 0 00306 INNAM,,2 ..
00232 0074 00 4 00003 TSX WRFLX,4 END OF COMMENT.
00233 0 00002 0 00240 ECM,,2 ..
00234 0520 00 0 00157 ZET MODSW SHOULD 12-BIT INDICATOR BE RESET.
00235 0074 00 4 00002 TSX SETFUL,4 YES, RESET MODE.
00236 0534 00 4 00222 LXA SKX4,4 GIVE ERROR RETURN.
00237 0020 60 4 00003 TRA* 3,4 ..
*
00240 604546636026 ECM BCI 2, NOT FOUND.
00241 466445243360
*
* ENTRY TO OBTAIN WORD FROM FILE.
* WORD = RDWORD.(EOF)
*
00242 0500 00 6 00000 RDWORD CLA --,6 GET WORD FROM INPUT BUFFER.
00243 2 00001 6 00264 TIX GOBACK,6,1 INDEX, AND CHECK FOR EMPTY BUFFER.
00244 0520 00 0 00312 ZET EOFR BUFFER EMPTY, HAS END OF FILE OCCURRED.
00245 0020 60 4 00001 TRA* 1,4 YES, GIVE EOF RETURN.
00246 0601 00 0 00310 STO RTEMP NO, SAVE WORD AND GET SOME MORE DATA.
00247 0634 00 4 00263 SXA EMPX4,4 SAVE LINKAGE, ALSO.
00250 0774 00 6 00660 AXT RBFLTH,6 RESET BUFFER POINTER.
00251 0774 00 4 00262 AXT EMPGT,4 SET END OF FILE RETURN.
00252 0634 00 4 00274 SXA EOFRTN,4 ..
00253 0074 00 4 00007 TSX RDWAIT,4 GET ANOTHER BUFFER LOAD OF DATA.
TD 00254 3 00000 0 00306 TXH INNAM ..
1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. PAGE 5
TD 00255 3 00000 0 00307 TXH INNAM+1 ..
TD 00256 3 00000 0 00316 TXH =0 ..
00257 3 00660 0 00000 ECALL TXH --,,RBFLTH ..
TD 00260 3 00000 0 00265 TXH EOF ..
TD 00261 3 00000 0 00311 TXH EOFCT ..
00262 0500 00 0 00310 EMPGT CLA RTEMP RESTORE WORD FOR THIS CALL.
00263 0774 00 4 00000 EMPX4 AXT --,4 RESTORE LINKAGE.
00264 0020 00 4 00002 GOBACK TRA 2,4 RETURN TO CALLER.
*
00265 -0625 00 0 00312 EOF STL EOFR END OF FILE REACHED, SET SWITCH.
00266 -0500 00 0 00311 CAL EOFCT GET COUNT OF WORDS LEFT.
00267 0361 00 0 00317 ACL =1 BUGGER WORD COUNT.
00270 0734 00 6 00000 PAX 0,6 SET WORD COUNTER.
00271 0361 00 0 00257 ACL ECALL ADJUST PICKUP INSTRUCTION.
00272 0621 00 0 00242 STA RDWORD ..
00273 0074 00 4 00275 TSX ENDRD,4 TURN OFF FILE.
00274 0020 00 0 00000 EOFRTN TRA -- RETURN TO END OF RDFILE CALLING SEQUENCE.
*
* ENTRY TO CLOSE INPUT FILE.
* ENDRD.
*
00275 0634 00 4 00302 ENDRD SXA ENDX4,4 SAVE LINKAGE.
00276 0074 00 4 00010 TSX CLOSE,4 CLOSE FILE.
TD 00277 3 00000 0 00306 TXH INNAM ..
TD 00300 3 00000 0 00307 TXH INNAM+1 ..
TD 00301 3 00000 0 00302 TXH *+1 IGNORE ANY ERROR RETURN.
00302 0774 00 4 00000 ENDX4 AXT --,4 RESTORE LINKAGE.
00303 0020 00 4 00001 TRA 1,4 ..
*
00304 545454545454 OUTNAM BCI 2,************ NAME OF OUTPUT FILE.
00305 545454545454
00306 545454545454 INNAM BCI 2,************ NAME OF INPUT FILE.
00307 545454545454
00310 0 00000 0 00000 RTEMP STORAGE FOR WORD.
00311 0 00000 0 00000 EOFCT STORAGE FOR END OF FILE COUNTER.
00312 0 00000 0 00312 EOFR * SWITCH FOR END OF FILE MET.
*
00660 TRKLTH EQU 432 DISK TRACK LENGTH.
00313 0 00000 0 00660 TRKSZ TRKLTH WORD CONTAINING TRACK LENGTH.
00660 RBFLTH EQU TRKLTH READ BUFFER LENGTH.
00330 WBFLTH EQU TRKLTH/2 WRITE BUFFER LENGTH.
00314 0 00000 0 00660 RBFSZ RBFLTH WORD CONTAINING READ BUFFER SIZE.
00315 0 00000 0 00330 WBFSZ WBFLTH WORD CONTAINING WRITE BUFFER SIZE.
*
END
LITERALS
00316 000000000000
00317 000000000001
00320 000000000002
00321 400000000000
00322 516060606060
00323 602631432560
00324 666060606060
1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. PAGE 1
POST PROCESSOR ASSEMBLY DATA
325 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
122 CL4 100
240 ECM 233
265 EOF 220, 260
107 FWR 105
155 NOP 137
43 OPN 37, 142
22 OSW 34
312 EOFR 212, 244, 265
100 FILE 0
62 FULL
156 MODE 47, 136
117 NOWR 103
127 OEXH 51
5 OPEN 43, 203
40 OPOK 35
41 OPX4 21
160 SEEK 0
165 SKSW 172
222 SKX4 164, 210, 236
124 WEXH 74, 116
60 WRNM 30
143 WRTN 36, 64, 106
10 CLOSE 117, 124, 276
257 ECALL 170, 271
262 EMPGT 251
263 EMPX4 247
275 ENDRD 0, 273
302 ENDX4 275
311 EOFCT 221, 261, 266
76 FULX4 62
306 INNAM 161, 163, 177, 200, 205, 206, 214, 215, 231, 254, 255, 277, 300
157 MODSW 130, 133, 225, 234
224 NOTFN 202
51 OPERR 140
314 RBFSZ 166, 174
310 RTEMP 246, 262
313 TRKSZ 31
315 WBFSZ 23, 27
71 WCALL 25
65 WRAGN 63
74 WRERR 141
3 WRFLX 131, 232
15 ASSIGN 0
55 BFCALL 33
12 BUFFER 52
113 CLCALL 26, 104
274 EOFRTN 211, 252
144 ERMESS 132
11 FSTATE 176
0 GETBUF 24, 32, 167
264 GOBACK 243
1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. PAGE 2
POST PROCESSOR ASSEMBLY DATA
304 OUTNAM 16, 20, 45, 46, 53, 54, 66, 67, 110, 111, 120, 121, 125, 126
660 RBFLTH 207, 217, 250, 257, 314
7 RDWAIT 213, 253
242 RDWORD 0, 175, 272
77 RETURN 61
1 SETBCD 127, 224
2 SETFUL 134, 235
217 STCALL 171, 173
660 TRKLTH 55, 313, 314
330 WBFLTH 40, 71, 75, 102, 314, 315
4 WRFLXA 226, 230
6 WRWAIT 65, 107
57 WRWORD 0
0 NO ERROR IN ABOVE ASSEMBLY.
1 ROUTINE TO MAKE SURE FILE NAME IS USEABLE. PAGE 1
* USAGE CLRNAM.(NAME1, NAME2, CANT, SW)
* FILE NAME1 NAME2 WILL BE CHECKED FOR AND
* DELETED IF POSSIBLE. IF SW
* IS TRUE, USER WILL BE ASKED BEFORE DELETING
* THE OLD FILE.
*
00012 ENTRY CLRNAM CLEAR FILE NAME.
*
EXTERN SETFUL,SETBCD,WRFLX,WRFLXA,RDFLXA
EXTERN FSTATE,CHFILE,DELFIL
*
TRANSFER VECTOR
00000 622563266443 SETFUL
00001 622563222324 SETBCD
00002 665126436760 WRFLX
00003 665126436721 WRFLXA
00004 512426436721 RDFLXA
00005 266263216325 FSTATE
00006 233026314325 CHFILE
00007 242543263143 DELFIL
LINKAGE DIRECTOR
00010 000000000000
00011 234351452144
00012 -0500 60 4 00001 CLRNAM CAL* 1,4 GET FILE NAME.
00013 0602 00 0 00121 SLW N1 ..
00014 -0500 60 4 00002 CAL* 2,4 SECONDARY NAME.
00015 0602 00 0 00122 SLW N2 ..
00016 0634 00 4 00147 SXA SV4,4 SAVE LINKAGE.
00017 0074 00 4 00005 TSX FSTATE,4 CHECK STATE OF FILE.
TD 00020 3 00000 0 00121 TXH N1 NAME
TD 00021 3 00000 0 00122 TXH N2 NAME
00022 3 00010 0 00156 TXH DATA,,8 FILE STATE
TD 00023 3 00000 0 00112 TXH FSTERR IN CASE OF ERROR
TD 00024 3 00000 0 00155 TXH ERNO GATHER ERROR NUMBER.
00025 0441 00 0 00157 LDI MODE CHECK MODE OF FILE.
00026 -0054 00 400000 LFT 400000 IS MODE NEGATIVE.
00027 0020 00 0 00100 TRA LINKED YES, FILE IS LINKED.
00030 0600 00 0 00154 STZ PROTEC ASSUME NOT PROTECTED.
00031 0056 00 000100 RNT 100 CHECK PROTECTED BIT.
00032 0020 00 0 00035 TRA CKASK NOT PROTECTED, SHOULD WE ASK ANYWAY.
00033 -0625 00 0 00154 STL PROTEC PROTECTED, SET SWITCH FOR LONG COMMENT.
00034 0020 00 0 00040 TRA ASK GO ASK PERMISSION TO DELETE FILE.
00035 0534 00 4 00147 CKASK LXA SV4,4 GET LINKAGE TO ASK SWITCH.
00036 -0520 60 4 00004 NZT* 4,4 SHOULD WE ASK PERMISSION ANYWAY.
00037 0020 00 0 00065 TRA DELETE NO, GO DELETE FILE.
00040 0074 00 4 00000 ASK TSX SETFUL,4 SET CHARACTER MODE SWITCH.
00041 0074 00 4 00003 TSX WRFLXA,4 BEGIN THE COMMENT.
00042 0 00003 0 00116 MI,,3 ..
00043 0074 00 4 00001 TSX SETBCD,4 SWITCH TO BCD FOR FILE NAME.
00044 0074 00 4 00003 TSX WRFLXA,4 WRITE OUT FILE NAME.
00045 0 00002 0 00121 N1,,2
00046 0074 00 4 00000 TSX SETFUL,4 BACK TO FULL MODE.
00047 -0520 00 0 00154 NZT PROTEC SHOULD WE CLAIM IT IS PROTECTED.
1 ROUTINE TO MAKE SURE FILE NAME IS USEABLE. PAGE 2
00050 0020 00 0 00053 TRA SKPPCM NO, SKIP THAT PART.
00051 0074 00 4 00003 TSX WRFLXA,4 YES, ANNOUNC PROTECTED PART.
00052 0 00006 0 00123 ISPTC,,6 ..
00053 0074 00 4 00003 SKPPCM TSX WRFLXA,4 NOW ASK FOR PERMISSION.
00054 0 00012 0 00131 DOYOU,,10 ..
00055 0074 00 4 00001 TSX SETBCD,4 SWITCH SO ERASE WORKS.
00056 0074 00 4 00004 TSX RDFLXA,4
00057 0 00001 0 00150 IN,,1 GET ONE WORD.
00060 0074 00 4 00000 TSX SETFUL,4 RESTORE MODE.
00061 -0500 00 0 00150 CAL IN GET THAT WORD.
00062 0771 00 0 00022 ARS 18 GET FIRST THREE CHARACTERS.
00063 0322 00 0 00170 ERA =H000YES DID HE SAY YES.
00064 -0100 00 0 00076 TNZ ERTN NO, GIVE ERROR RETURN.
00065 0074 00 4 00006 DELETE TSX CHFILE,4 GOODY, WE CAN DELETE IT.
TD 00066 3 00000 0 00121 TXH N1 MAKE SURE IT IS DELETEABLE.
TD 00067 3 00000 0 00122 TXH N2 ..
TD 00070 3 00000 0 00166 TXH =1 BY CHANGING ITS MODE TO TEMPORARY.
00071 0074 00 4 00007 TSX DELFIL,4 DELETE THE SILLY THING.
TD 00072 3 00000 0 00121 TXH N1 ..
TD 00073 3 00000 0 00122 TXH N2 ..
00074 0534 00 4 00147 RTN LXA SV4,4 RESTORE THE LINKAGE.
00075 0020 00 4 00005 TRA 5,4 RETURN TO CALLER.
*
00076 0534 00 4 00147 ERTN LXA SV4,4 ERROR RETURN, FILE CANNOT BE DELETED.
00077 0020 60 4 00003 TRA* 3,4 RETURN THROUGH ERROR RETURN.
*
00100 0074 00 4 00000 LINKED TSX SETFUL,4 FILE IS LINKED, COMMENT AND GIVE UP.
00101 0074 00 4 00003 TSX WRFLXA,4 START THE COMMENT.
00102 0 00003 0 00116 MI,,3 ..
00103 0074 00 4 00001 TSX SETBCD,4 SWITCH MODE FOR FILE NAME.
00104 0074 00 4 00003 TSX WRFLXA,4 TYPE FILE NAME.
00105 0 00002 0 00121 N1,,2 ..
00106 0074 00 4 00000 TSX SETFUL,4 SWITCH FOR REST OF COMMENT.
00107 0074 00 4 00002 TSX WRFLX,4 END THIS PART WITH A C.R.
00110 0 00004 0 00143 ISLNK,,4 ..
00111 0020 00 0 00076 TRA ERTN NOW GIVE AN ERROR RETURN.
*
00112 0500 00 0 00155 FSTERR CLA ERNO ERROR RETURN FROM FSTATE, FIND OUT WHY.
00113 0402 00 0 00167 SUB =3 RETURN 3 MEANS FILE NOT FOUND.
00114 -0100 00 0 00100 TNZ LINKED WRONG ERROR RETURN, ASSUME LINKED.
00115 0020 00 0 00074 TRA RTN FILE NOT FOUND, NAME IS OK.
*
* DATA, COMMENTS, ETC.
*
00116 004601430124 MI BCI 3,0O1L1D0 1F1I1L1E0
00117 006001260131
00120 014301250060
*
00121 0 00000 0 00000 N1 STORAGE FOR FILE NAME.
00122 0 00000 0 00000 N2 SECONDARY NAME.
*
00123 006001310162 ISPTC BCI 1,0 1I1S
00124 +006001330057 OCT 006001330057 BLANK, RED SHIFT, NULL.
00125 004700510046 BCI 3,0P0R0O0T0E0C0T0E0D
00126 006300250023
00127 006300250024
1 ROUTINE TO MAKE SURE FILE NAME IS USEABLE. PAGE 3
00130 +013200330060 OCT 013200330060 BLACK SHIFT, PERIOD, BLANK.
00131 006000400040 DOYOU BCI 9,0 0-0-0D1O0 1Y1O1U0 1W1I1S1H0 1T1O0 1D1E1L1E1T1E0 1I1T
00132 002401460060
00133 017001460164
00134 006001660131
00135 016201300060
00136 016301460060
00137 012401250143
00140 012501630125
00141 006001310163
00142 +015600600060 OCT 015600600060 TERMINAL QUESTION MARK.
*
00143 006001310162 ISLNK BCI 4,0 1I1S0 1L1I1N1K1E1D0.
00144 006001430131
00145 014501420125
00146 012400336060
*
00147 0 00000 0 00000 SV4 STORAGE FOR CALLING LINKAGE.
00150 IN BSS 4 FOR INPUT WORD.
00154 0 00000 0 00000 PROTEC SWITCH FOR PROTECTED FILE.
00155 0 00000 0 00000 ERNO STORAGE FOR ERROR NUMBER.
00156 DATA BSS 8 FOR STATE INFORMATION.
00161 DEVICE EQU DATA+3
00157 MODE EQU DATA+1
*
END
LITERALS
00166 000000000001
00167 000000000003
00170 000000702562
1 ROUTINE TO MAKE SURE FILE NAME IS USEABLE. PAGE 1
POST PROCESSOR ASSEMBLY DATA
171 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
150 IN 57, 61
116 MI 42, 102
121 N1 13, 20, 45, 66, 72, 105
122 N2 15, 21, 67, 73
40 ASK 34
74 RTN 115
147 SV4 16, 35, 74, 76
156 DATA 22, 166
155 ERNO 24, 112
76 ERTN 64, 111
157 MODE 25, 166
35 CKASK 32
131 DOYOU 54
143 ISLNK 110
123 ISPTC 52
2 WRFLX 107
6 CHFILE 65
12 CLRNAM 0
65 DELETE 37
7 DELFIL 71
161 DEVICE 166
5 FSTATE 17
112 FSTERR 23
100 LINKED 27, 114
154 PROTEC 30, 33, 47
4 RDFLXA 56
1 SETBCD 43, 55, 103
0 SETFUL 40, 46, 60, 100, 106
53 SKPPCM 50
3 WRFLXA 41, 44, 51, 53, 101, 104
0 NO ERROR IN ABOVE ASSEMBLY.
1 ROUTINE TO RENAME A FILE, FORCING PERMANENT MODE IS POSSIBLE. PAGE 1
* J. H. SALTZER, MAY, 1965.
*
00004 ENTRY RENAME RENAME FILE.
*
EXTERN CHFILE,WRFLX
*
TRANSFER VECTOR
00000 233026314325 CHFILE
00001 665126436760 WRFLX
LINKAGE DIRECTOR
00002 000000000000
00003 512545214425
00004 0500 60 4 00001 RENAME CLA* 1,4 GET FILE NAMES.
00005 0601 00 0 00071 STO OLD1 ..
00006 0500 60 4 00002 CLA* 2,4 ..
00007 0601 00 0 00072 STO OLD2 ..
00010 0601 00 0 00074 STO NEW2 ASSUME NO CHANGE IN SECONDARY NAMES.
00011 0500 60 4 00003 CLA* 3,4 ..
00012 0601 00 0 00073 STO NEW1 ..
00013 0560 00 4 00004 LDQ 4,4 CHECK FOR TXH
00014 0500 00 0 00076 CLA =O300000000000 ..
00015 0040 00 0 00020 TLQ SKPN2 NO TXH, SECONDARY NAME UNCHANGED.
00016 0500 60 4 00004 CLA* 4,4 TXH, CHANGE SECONDARY NAME.
00017 0601 00 0 00074 STO NEW2 ..
00020 0634 00 4 00036 SKPN2 SXA RETURN,4 SAVE LINKAGE.
00021 0074 00 4 00000 TSX CHFILE,4 CHANGE NAME WITHOUT CHANGING MODE.
TD 00022 3 00000 0 00071 TXH OLD1 ..
TD 00023 3 00000 0 00072 TXH OLD2 ..
TD 00024 3 00000 0 00077 TXH =-0 MODE UNCHANGED.
TD 00025 3 00000 0 00073 TXH NEW1 ..
TD 00026 3 00000 0 00074 TXH NEW2 ..
00027 0074 00 4 00000 TSX CHFILE,4 CHANGE MODE WITHOUT CHANGING NAME.
TD 00030 3 00000 0 00073 TXH NEW1 ..
TD 00031 3 00000 0 00074 TXH NEW2 ..
TD 00032 3 00000 0 00075 TXH =0 PERMANENT MODE.
TD 00033 3 00000 0 00077 TXH =-0 NAME UNCHANGED.
TD 00034 3 00000 0 00077 TXH =-0 ..
TD 00035 3 00000 0 00040 TXH CHERR IN CASE MODE UNCHANGEABLE.
00036 0774 00 4 00000 RETURN AXT --,4 RESTORE LINKAGE.
00037 0020 00 4 00001 TRA 1,4 RETURN TO CALLER.
*
00040 0074 00 4 00001 CHERR TSX WRFLX,4 ASSUME TRACK QUOTA EXHAUSTED, AND COMMENT.
00041 0 00010 0 00045 TRKQUO,,8 ..
00042 0074 00 4 00001 TSX WRFLX,4 MENTION THAT NEW FILE IS TEMP MODE.
00043 0 00013 0 00055 TMPMOD,,11 ....
00044 0020 00 0 00036 TRA RETURN EXIT.
*
* COMMENTS AND STORAGE.
*
00045 006301510121 TRKQUO BCI 8,0T1R1A1C1K0 1Q1U1O1T1A0 0E0X0H0A0U0S0T0E0D0.
00046 012301420060
00047 015001640146
00050 016301210060
1 ROUTINE TO RENAME A FILE, FORCING PERMANENT MODE IS POSSIBLE. PAGE 2
00051 002500670030
00052 002100640062
00053 006300250024
00054 003360606060
*
00055 007001460164 TMPMOD BCI 5,0Y1O1U1R0 1N1E1W0 1F1I1L1E0 1I
00056 015100600145
00057 012501660060
00060 012601310143
00061 012500600131
00062 +016200600133 OCT 016200600133 S, BLANK, RED SHIFT.
00063 006300250044 BCI 3,0T0E0M0P0O0R0A0R0Y
00064 004700460051
00065 002100510070
00066 +013200600144 OCT 013200600144 BLACK SHIFT, BLANK, SMALL M.
00067 014601240125 BCI 2,1O1D1E0.
00070 003360606060
*
00071 0 00000 0 00000 OLD1
00072 0 00000 0 00000 OLD2
00073 0 00000 0 00000 NEW1
00074 0 00000 0 00000 NEW2
*
END
LITERALS
00075 000000000000
00076 300000000000
00077 400000000000
1 ROUTINE TO RENAME A FILE, FORCING PERMANENT MODE IS POSSIBLE. PAGE 1
POST PROCESSOR ASSEMBLY DATA
100 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
73 NEW1 12, 25, 30
74 NEW2 10, 17, 26, 31
71 OLD1 5, 22
72 OLD2 7, 23
40 CHERR 35
20 SKPN2 15
1 WRFLX 40, 42
0 CHFILE 21, 27
4 RENAME 0
36 RETURN 20, 44
55 TMPMOD 43
45 TRKQUO 41
0 NO ERROR IN ABOVE ASSEMBLY.
1 MAD PROGRAM LISTING ... ... ... FILE 6TYP MAD 02/08/68 1745.8
-
.. TYPEWRITER INPUT CHARACTER CONTROL ROUTINE. LM00001
.. USAGE. . . COUNT = TYPEIN.(BUFFER, BUFSIZ, ERASE, KILL) LM00002
J. H. SALTZER, JANUARY, 1965. LM00003
LM00004
EXTERNAL FUNCTION(LINE, BUFSIZ) *001 LM00005
LM00006
NORMAL MODE IS INTEGER *002 LM00007
VECTOR VALUES E1 = 0137K *003 LM00008
VECTOR VALUES K1 = 0156K *004 LM00009
VECTOR VALUES NBITS = 12 *005 LM00010
VECTOR VALUES NULL = 0057K *006 LM00011
VECTOR VALUES ERASE = 0504K *007 LM00012
VECTOR VALUES KILL = 0506K *008 LM00013
VECTOR VALUES RETURN = 0055K *009 LM00014
VECTOR VALUES WRDSIZ = 36 *010 LM00015
VECTOR VALUES CHMASK = 7777K *011 LM00016
LM00017
ENTRY TO SETERS. *012 LM00018
ERASE = LINE *013 LM00019
FUNCTION RETURN *014 LM00020
LM00021
ENTRY TO SETKIL. *015 LM00022
KILL = LINE *016 LM00023
FUNCTION RETURN *017 LM00024
LM00025
ENTRY TO CANON. *018 LM00026
FUNCTION RETURN *019 LM00027
LM00028
ENTRY TO TYPEIN. *020 LM00029
SIZE = 0 *021 LM00030
TYLINE. *022 LM00031
LOOP WORD = TYWORD.(0) *023 LM00032
THROUGH DISECT, FOR I = WRDSIZ-NBITS,-NBITS, I .L. 0 *024 LM00033
CHAR = (WORD.RS.I) .A. CHMASK *025 LM00034
WHENEVER CHAR .E. ERASE .OR. CHAR .E. E1 *026 LM00035
WHENEVER SIZE .G. 0, SIZE = SIZE - 1 *027 LM00036
OR WHENEVER CHAR .E. KILL .OR. CHAR .E. K1 *028 LM00037
SIZE = 0 *029 LM00038
OR WHENEVER CHAR .E. RETURN .OR. CHAR.RS.6 .E. RETURN *030 LM00039
TRANSFER TO UND *031 LM00040
OR WHENEVER CHAR .A. 0400K .E. 0 *032 LM00041
SIZE = SIZE + 1 *033 LM00042
LINE(SIZE) = CHAR.A.77K *034 LM00043
END OF CONDITIONAL *035 LM00044
DISECT WHENEVER SIZE .GE. BUFSIZ, TRANSFER TO UND *036 LM00045
TRANSFER TO LOOP *037 LM00046
UND SIZE = SIZE + 1 *038 LM00047
LINE(SIZE) = RETURN *039 LM00048
FUNCTION RETURN SIZE *040 LM00049
LM00050
.. TYPEWRITER OUTPUT CHARACTER CONTROL ROUTINE. LM00051
.. USAGE. . . TYPOUT.(LINE, LENGTH) LM00052
LM00053
ENTRY TO TYPOUT. *041 LM00054
K = 0 *042 LM00055
SETFUL. *043 LM00056
THROUGH PRLOOP, FOR J = 1, 1, J .G. BUFSIZ *044 LM00057
TWORD = (TWORD .LS. NBITS) .V. LINE(J) *045 LM00058
K = K + 1 *046 LM00059
WHENEVER K .GE. WRDSIZ/NBITS *047 LM00060
K = 0 *048 LM00061
PRWORD.(TWORD) *049 LM00062
PRLOOP END OF CONDITIONAL *050 LM00063
THROUGH NULPK, FOR K = K, 1, K.GE. WRDSIZ/NBITS *051 LM00064
NULPK TWORD = (TWORD.LS.NBITS) .V. NULL *052 LM00065
PRWORD.(TWORD) *053 LM00066
PRBUFF. *054 LM00067
FUNCTION RETURN *055 LM00068
LM00069
ENTRY TO HOL. *056 LM00070
FUNCTION RETURN LINE .A. 77K *057 LM00071
LM00072
END OF FUNCTION *058 LM00073
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00351 TRANSFER VECTOR LENGTH 00006 PROGRAM BEGINS 00037
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
HOL 00314 0 TYPOUT 00212 0 TYPEIN 00060 0 CANON 00054 0 SETKIL 00046 0
SETERS 00040 0
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
CHAR 00011 1 I 00015 1 K 00021 1 NULPK 00006 4 TWORD 00026 1
CHMASK 00012 A 1 J 00016 1 LOOP 00007 4 PRLOOP 00006 4 UND 00010 4
DISECT 00006 4 K1 00017 A 1 NBITS 00022 A 1 RETURN 00024 A 1 WORD 00027 1
E1 00013 A 1 KILL 00020 A 1 NULL 00023 A 1 SIZE 00025 1 WRDSIZ 00030 A 1
ERASE 00014 A 1
0FUNCTION DICTIONARY
EXIT 00000 1 PRBUFF 00001 1 PRWORD 00002 1 SETFUL 00003 1 TYLINE 00004 1
TYWORD 00005 1
0ABSOLUTE CONSTANTS
00034 +000000000077 00035 +000000000400 00033 +000000000006 00031 +000000000000 00032 +000000000001
00036 +233000000000
0STATEMENT DICTIONARY
00007 TXL -300070000065 00010 TXL -300204000201
0PROGRAM
EXTERNAL FUNCTION(LINE, BUFSIZ) 001 LM00005
NORMAL MODE IS INTEGER 002 LM00007
VECTOR VALUES E1 = 0137K 003 LM00008
00013 +0 00000 0 00137
VECTOR VALUES K1 = 0156K 004 LM00009
00017 +0 00000 0 00156
VECTOR VALUES NBITS = 12 005 LM00010
00022 +0 00000 0 00014
VECTOR VALUES NULL = 0057K 006 LM00011
00023 +0 00000 0 00057
VECTOR VALUES ERASE = 0504K 007 LM00012
00014 +0 00000 0 00504
VECTOR VALUES KILL = 0506K 008 LM00013
00020 +0 00000 0 00506
VECTOR VALUES RETURN = 0055K 009 LM00014
00024 +0 00000 0 00055
VECTOR VALUES WRDSIZ = 36 010 LM00015
00030 +0 00000 0 00044
VECTOR VALUES CHMASK = 7777K 011 LM00016
00012 +0 00000 0 07777
ENTRY TO SETERS. 012 LM00018
00037 TRA +0 02000 0 00042 00040 SXA +0 63400 2 00324 00041 TSX +0 07400 2 00324
ERASE = LINE 013 LM00019
00042 CLA +0 50000 0 00024 00043 STO +0 60100 0 00014
FUNCTION RETURN 014 LM00020
00044 TRA +0 02000 0 00342
ENTRY TO SETKIL. 015 LM00022
00045 TRA +0 02000 0 00050 00046 SXA +0 63400 2 00324 00047 TSX +0 07400 2 00324
KILL = LINE 016 LM00023
00050 CLA +0 50000 0 00024 00051 STO +0 60100 0 00020
FUNCTION RETURN 017 LM00024
00052 TRA +0 02000 0 00342
ENTRY TO CANON. 018 LM00026
00053 TRA +0 02000 0 00056 00054 SXA +0 63400 2 00324 00055 TSX +0 07400 2 00324
FUNCTION RETURN 019 LM00027
00056 TRA +0 02000 0 00342
ENTRY TO TYPEIN. 020 LM00029
00057 TRA +0 02000 0 00062 00060 SXA +0 63400 2 00324 00061 TSX +0 07400 2 00324
SIZE = 0 021 LM00030
00062 CLA +0 50000 0 00031 00063 STO +0 60100 0 00025
TYLINE. 022 LM00031
00064 TSX +0 07400 4 00004
LOOP WORD = TYWORD.(0) 023 LM00032
00065 TSX +0 07400 4 00005 00066 TXH +3 00000 0 00031 00067 STO +0 60100 0 00027
THROUGH DISECT, FOR I = WRDSIZ-NBITS,-NBITS, I .L. 0 024 LM00033
00070 CLA +0 50000 0 00030 00071 SUB +0 40200 0 00022 00072 STO +0 60100 0 00015 00073 TRA +0 02000 0 00077
00074 CLS +0 50200 0 00022 00075 ADD +0 40000 0 00015 00076 STO +0 60100 0 00015 00077 CLA +0 50000 0 00015
00100 SUB +0 40200 0 00031 00101 TZE +0 10000 0 00103 00102 TMI -0 12000 0 00200
CHAR = (WORD.RS.I) .A. CHMASK 025 LM00034
00103 CAL -0 50000 0 00015 00104 STA +0 62100 0 00106 00105 CAL -0 50000 0 00027 00106 LGR -0 76500 0 00000
00107 ANA -0 32000 0 00012 00110 SLW +0 60200 0 00011
WHENEVER CHAR .E. ERASE .OR. CHAR .E. E1 026 LM00035
00111 CLA +0 50000 0 00011 00112 SUB +0 40200 0 00013 00113 TZE +0 10000 0 00117 00114 CLA +0 50000 0 00011
00115 SUB +0 40200 0 00014 00116 TNZ -0 10000 0 00127
WHENEVER SIZE .G. 0, SIZE = SIZE - 1 027 LM00036
00117 CLA +0 50000 0 00025 00120 SUB +0 40200 0 00031 00121 TZE +0 10000 0 00126 00122 TMI -0 12000 0 00126
00123 CLA +0 50000 0 00025 00124 SUB +0 40200 0 00032 00125 STO +0 60100 0 00025
OR WHENEVER CHAR .E. KILL .OR. CHAR .E. K1 028 LM00037
00126 TRA +0 02000 0 00172 00127 CLA +0 50000 0 00011 00130 SUB +0 40200 0 00017 00131 TZE +0 10000 0 00135
00132 CLA +0 50000 0 00011 00133 SUB +0 40200 0 00020 00134 TNZ -0 10000 0 00140
SIZE = 0 029 LM00038
00135 CLA +0 50000 0 00031 00136 STO +0 60100 0 00025
O'R CHAR .E. RETURN .OR. CHAR.RS.6 .E. RETURN 030 LM00039
00137 TRA +0 02000 0 00172 00140 CAL -0 50000 0 00033 00141 STA +0 62100 0 00143 00142 CAL -0 50000 0 00011
00143 LGR -0 76500 0 00000 00144 SLW +0 60200 0 00346 00145 CLA +0 50000 0 00346 00146 SUB +0 40200 0 00024
00147 TZE +0 10000 0 00153 00150 CLA +0 50000 0 00011 00151 SUB +0 40200 0 00024 00152 TNZ -0 10000 0 00155
TRANSFER TO UND 031 LM00040
00153 TRA +0 02000 0 00010
O'R CHAR .A. 0400K .E. 0 032 LM00041
00154 TRA +0 02000 0 00172 00155 CAL -0 50000 0 00011 00156 ANA -0 32000 0 00035 00157 SLW +0 60200 0 00346
00160 CLA +0 50000 0 00346 00161 SUB +0 40200 0 00031 00162 TNZ -0 10000 0 00172
SIZE = SIZE + 1 033 LM00042
00163 CLA +0 50000 0 00025 00164 ADD +0 40000 0 00032 00165 STO +0 60100 0 00025
LINE(SIZE) = CHAR.A.77K 034 LM00043
00166 CAL -0 50000 0 00011 00167 ANA -0 32000 0 00034 00170 LXA +0 53400 1 00025 00171 SLW +0 60200 1 00024
END OF CONDITIONAL 035 LM00044
DISECT WHENEVER SIZE .GE. BUFSIZ, TRANSFER TO UND 036 LM00045
00172 CLA +0 50000 0 00025 00173 SUB +0 40200 0 00024 00174 TZE +0 10000 0 00176 00175 TMI -0 12000 0 00177
00176 TRA +0 02000 0 00010 00177 TRA +0 02000 0 00074
TRANSFER TO LOOP 037 LM00046
00200 TRA +0 02000 0 00007
UND SIZE = SIZE + 1 038 LM00047
00201 CLA +0 50000 0 00025 00202 ADD +0 40000 0 00032 00203 STO +0 60100 0 00025
LINE(SIZE) = RETURN 039 LM00048
00204 LXA +0 53400 1 00025 00205 CLA +0 50000 0 00024 00206 STO +0 60100 1 00024
FUNCTION RETURN SIZE 040 LM00049
00207 CLA +0 50000 0 00025 00210 TRA +0 02000 0 00342
ENTRY TO TYPOUT. 041 LM00054
00211 TRA +0 02000 0 00214 00212 SXA +0 63400 2 00324 00213 TSX +0 07400 2 00324
K = 0 042 LM00055
00214 CLA +0 50000 0 00031 00215 STO +0 60100 0 00021
SETFUL. 043 LM00056
00216 TSX +0 07400 4 00003
THROUGH PRLOOP, FOR J = 1, 1, J .G. BUFSIZ 044 LM00057
00217 CLA +0 50000 0 00032 00220 STO +0 60100 0 00016 00221 TRA +0 02000 0 00225 00222 CLA +0 50000 0 00016
00223 ADD +0 40000 0 00032 00224 STO +0 60100 0 00016 00225 CLA +0 50000 0 00016 00226 SUB +0 40200 0 00024
00227 TZE +0 10000 0 00231 00230 TPL +0 12000 0 00261
TWORD = (TWORD .LS. NBITS) .V. LINE(J) 045 LM00058
00231 CAL -0 50000 0 00022 00232 STA +0 62100 0 00234 00233 CAL -0 50000 0 00026 00234 ALS +0 76700 0 00000
00235 LXA +0 53400 2 00016 00236 ORA -0 50100 2 00024 00237 SLW +0 60200 0 00026
K = K + 1 046 LM00059
00240 CLA +0 50000 0 00021 00241 ADD +0 40000 0 00032 00242 STO +0 60100 0 00021
WHENEVER K .GE. WRDSIZ/NBITS 047 LM00060
00243 LDQ +0 56000 0 00030 00244 PXD -0 75400 0 00000 00245 LLS +0 76300 0 00000 00246 DVP +0 22100 0 00022
00247 XCA +0 13100 0 00000 00250 CHS +0 76000 0 00002 00251 ADD +0 40000 0 00021 00252 TZE +0 10000 0 00254
00253 TMI -0 12000 0 00260
K = 0 048 LM00061
00254 CLA +0 50000 0 00031 00255 STO +0 60100 0 00021
PRWORD.(TWORD) 049 LM00062
00256 TSX +0 07400 4 00002 00257 TXH +3 00000 0 00026
PRLOOP END OF CONDITIONAL 050 LM00063
00260 TRA +0 02000 0 00222
THROUGH NULPK, FOR K = K, 1, K.GE. WRDSIZ/NBITS 051 LM00064
00261 CLA +0 50000 0 00021 00262 STO +0 60100 0 00021 00263 TRA +0 02000 0 00267 00264 CLA +0 50000 0 00021
00265 ADD +0 40000 0 00032 00266 STO +0 60100 0 00021 00267 LDQ +0 56000 0 00030 00270 PXD -0 75400 0 00000
00271 LLS +0 76300 0 00000 00272 DVP +0 22100 0 00022 00273 XCA +0 13100 0 00000 00274 CHS +0 76000 0 00002
00275 ADD +0 40000 0 00021 00276 TZE +0 10000 0 00307 00277 TPL +0 12000 0 00307
NULPK TWORD = (TWORD.LS.NBITS) .V. NULL 052 LM00065
00300 CAL -0 50000 0 00022 00301 STA +0 62100 0 00303 00302 CAL -0 50000 0 00026 00303 ALS +0 76700 0 00000
00304 ORA -0 50100 0 00023 00305 SLW +0 60200 0 00026 00306 TRA +0 02000 0 00264
PRWORD.(TWORD) 053 LM00066
00307 TSX +0 07400 4 00002 00310 TXH +3 00000 0 00026
PRBUFF. 054 LM00067
00311 TSX +0 07400 4 00001
FUNCTION RETURN 055 LM00068
00312 TRA +0 02000 0 00342
ENTRY TO HOL. 056 LM00070
00313 TRA +0 02000 0 00316 00314 SXA +0 63400 2 00324 00315 TSX +0 07400 2 00324
FUNCTION RETURN LINE .A. 77K 057 LM00071
00316 CAL -0 50000 0 00024 00317 ANA -0 32000 0 00034 00320 SLW +0 60200 0 00346 00321 CLA +0 50000 0 00346
00322 TRA +0 02000 0 00342
END OF FUNCTION 058 LM00073
00323 TSX +0 07400 4 00000 00324 TXH +3 00000 0 00000 00325 SXD -0 63400 1 00324 00326 SXA +0 63400 4 00342
00327 CLA +0 50000 4 00001 00330 STA +0 62100 0 00042 00331 STA +0 62100 0 00050 00332 STA +0 62100 0 00171
00333 STA +0 62100 0 00206 00334 STA +0 62100 0 00236 00335 STA +0 62100 0 00316 00336 CLA +0 50000 4 00002
00337 STA +0 62100 0 00173 00340 STA +0 62100 0 00226 00341 TRA +0 02000 2 00001 00342 AXT +0 77400 4 00000
00343 LXA +0 53400 2 00324 00344 LXD -0 53400 1 00324 00345 TRA +0 02000 4 00001
1 BUFFER CONTROL ROUTINE FOR TYPEWRITER OUTPUT. PAGE 1
*
* J. H. SALTZER, JANUARY, 1965.
*
00004 ENTRY PRWORD ADD A WORD TO PRINT BUFFER.
00021 ENTRY PRBUFF PRINT OUT PARTIAL BUFFER.
00030 ENTRY TYWORD GET NEXT TYPED WORD.
00047 ENTRY TYLINE RESET TO START READING NEXT LINE.
*
EXTERN RDFLXA,WRFLXA
*
TRANSFER VECTOR
00000 512426436721 RDFLXA
00001 665126436721 WRFLXA
LINKAGE DIRECTOR
00002 000000000000
00003 475166465124
00034 BUFLEN EQU 28 TYPEWRITER BUFFER SIZE.
*
* ADD WORD TO PRINT BUFFER.
* PRWORD.(WORD)
*
00004 0634 00 4 00017 PRWORD SXA PRX4,4 SAVE LINKAGE.
00005 -0500 60 4 00001 CAL* 1,4 GET WORD BEING ADDED.
00006 -0734 00 4 00000 PDX 0,4 CHECK FOR DISK CONTROL WORD.
00007 3 77776 4 00017 TXH PRX4,4,-2 DON'T STORE CONTROL WORD.
00010 0774 00 4 00034 PWCNT AXT BUFLEN,4 SET WORD COUNTER (INITIALLY BUFLEN.)
00011 0602 00 4 00105 SLW BUFF+BUFLEN,4 STORE WORD IN BUFFER.
00012 2 00001 4 00016 TIX PSAVE,4,1 COUNT, CHECK FOR OVERFLOW.
00013 0074 00 4 00001 TSX WRFLXA,4 BUFFER FULL, PRINT W/O C.R.
00014 0 00034 0 00051 BUFF,,BUFLEN ..
00015 0774 00 4 00034 PFRESH AXT BUFLEN,4 RESET WORD COUNTER.
00016 0634 00 4 00010 PSAVE SXA PWCNT,4 SAVE WORD COUNTER.
00017 0774 00 4 00000 PRX4 AXT --,4 RESTORE LINKAGE.
00020 0020 00 4 00001 TRA 1,4 RETURN.
*
* PRINT OUT REMAINING BUFFER, RESET COUNTER.
*
00021 0634 00 4 00017 PRBUFF SXA PRX4,4 SAVE LINKAGE.
00022 0535 00 4 00010 LAC PWCNT,4 GET WORD COUNT.
00023 1 00034 4 00024 TXI *+1,4,BUFLEN FORM COMPLEMENT MOD BUFLEN.
00024 -0634 00 4 00026 SXD PRCL,4 SAVE COUNT IN CALLER.
00025 0074 00 4 00001 TSX WRFLXA,4 PRINT REMAINDER.
00026 0 00000 0 00051 PRCL BUFF,,-- ..
00027 0020 00 0 00015 TRA PFRESH GO REFRESH COUNTER, AND RETURN.
*
* GET A WORD FROM INPUT BUFFER.
* WORD = TYWORD.(0)
*
00030 0634 00 4 00045 TYWORD SXA TYX4,4 SAVE LINKAGE.
00031 0774 00 5 00000 TYCNT AXT --,5 GET WORD COUNTER.
00032 0774 00 4 00000 TYPOS AXT --,4 GET BUFFER POINTER.
00033 2 00006 5 00041 TIX TYGET,5,6 CHECK FOR WORDS LEFT.
00034 0074 00 4 00000 TSX RDFLXA,4 NO, GET SOME.
1 BUFFER CONTROL ROUTINE FOR TYPEWRITER OUTPUT. PAGE 2
00035 0 00034 0 00051 TYCALL BUFF,,BUFLEN ..
00036 0734 00 5 00000 PAX 0,5 INSERT 6-BIT CHARACTER COUNT INTO COUNTER.
00037 2 40000 5 00040 TIX *+1,5,16384 REMOVE BIT 21 IF PRESENT.
00040 0774 00 4 00000 AXT 0,4 RESET INPUT BUFFER POINTER.
00041 0500 00 4 00051 TYGET CLA BUFF,4 GET A WORD.
00042 1 77777 4 00043 TXI *+1,4,-1 MOVE POINTER TO NEXT WORD.
00043 0634 00 4 00032 SXA TYPOS,4 SAVE POINTER.
00044 0634 00 5 00031 SXA TYCNT,5 SAVE CHARACTER COUNTER.
00045 0774 00 4 00000 TYX4 AXT --,4 RESTORE LINKAGE.
00046 0020 00 4 00001 TRA 1,4 RETURN.
*
00047 0634 00 0 00031 TYLINE ZSA TYCNT RESET CHARACTER COUNT TO MAKE LINE EMPTY.
00050 0020 00 4 00001 TRA 1,4 RETURN
*
00051 BUFF BSS BUFLEN OUTPUT BUFFER.
*
END
1 BUFFER CONTROL ROUTINE FOR TYPEWRITER OUTPUT. PAGE 1
POST PROCESSOR ASSEMBLY DATA
105 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
51 BUFF 11, 14, 26, 35, 41
26 PRCL 24
17 PRX4 4, 7, 21
45 TYX4 30
16 PSAVE 12
10 PWCNT 16, 22
31 TYCNT 44, 47
41 TYGET 33
32 TYPOS 43
34 BUFLEN 4, 10, 11, 14, 15, 23, 35, 51
15 PFRESH 27
21 PRBUFF 0
4 PRWORD 0
0 RDFLXA 34
35 TYCALL
47 TYLINE 0
30 TYWORD 0
1 WRFLXA 13, 25
0 NO ERROR IN ABOVE ASSEMBLY.
1 SUBROUTINE TO CONVERT BCD NUMBER TO BINARY. PAGE 1
*
* J. H. SALTZER, MAY, 1966.
00002 ENTRY BIN CONVERTER.
LINKAGE DIRECTOR
00000 000000000000
00001 223145606060
00002 0634 00 1 00024 BIN SXA IRR1,1
00003 0600 00 0 00027 STZ INT CLEAR RESULT.
00004 0774 00 1 00006 AXT 6,1
00005 0560 60 4 00001 LDQ* 1,4 GET ARGUMENT.
00006 -0754 00 0 00000 LOP ZAC
00007 -0763 00 0 00006 LGL 6 GET NEXT CHARACTER.
00010 -0340 00 0 00032 LAS =10 SKIP OVER NON-DIGITS.
00011 0020 00 0 00023 TRA TIX
00012 0020 00 0 00023 TRA TIX
00013 0601 00 0 00030 STO DIG NUMBER, SAVE DIGIT.
00014 -0600 00 0 00031 STQ TEM SAVE MQ FOR MULTIPLIACATION.
00015 0560 00 0 00027 LDQ INT GET OLD NUMBER.
00016 0200 00 0 00032 MPY =10 SHIFT.
00017 0131 00 0 00000 XCA
00020 0400 00 0 00030 ADD DIG ADD THIS DIGIT TO RESULT.
00021 0601 00 0 00027 STO INT SAVE, FOR NEXT PASS.
00022 0560 00 0 00031 LDQ TEM RESTORE MQ.
00023 2 00001 1 00006 TIX TIX LOP,1,1
00024 0774 00 1 00000 IRR1 AXT --,1
00025 0500 00 0 00027 CLA INT RESULT IN AC.
00026 0020 00 4 00002 TRA 2,4
*
00027 0 00000 0 00000 INT
00030 0 00000 0 00000 DIG
00031 0 00000 0 00000 TEM
*
END
LITERALS
00032 000000000012
1 SUBROUTINE TO CONVERT BCD NUMBER TO BINARY. PAGE 1
POST PROCESSOR ASSEMBLY DATA
33 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
2 BIN 0
30 DIG 13, 20
27 INT 3, 15, 21, 25
6 LOP 23
31 TEM 14, 22
23 TIX 11, 12
24 IRR1 2
0 NO ERROR IN ABOVE ASSEMBLY.
1 LIBRARY PACKAGE. PAGE 1
00024 ENTRY .PCOMT PRINT COMMENT ROUTINE
00010 ENTRY CHNCOM GO DORMANT.
00005 ENTRY EXIT SAME.
00002 ENTRY .SETUP CALLED BY MAD MAIN PROGRA.
00013 ENTRY COMARG GET COMMAND ARGUMENT.
00106 ENTRY WHOAMI
00066 ENTRY SETBCD
00064 ENTRY SETFUL
00065 ENTRY SETBRK
00061 ENTRY WRFLXA
00063 ENTRY WRFLX
00062 ENTRY RDFLXA
00067 ENTRY UPDATE UPDATE U.F.D.
00070 ENTRY CHFILE
00071 ENTRY DELFIL
00072 ENTRY FSTATE
00073 ENTRY BUFFER
00074 ENTRY OPEN
00075 ENTRY WRWAIT
00076 ENTRY WRFILE
00077 ENTRY RDWAIT
00100 ENTRY RDFILE
00101 ENTRY CLOSE
00043 ENTRY GETBUF OBTAIN BUFFERS FROM SUPERVISOR.
*
LINKAGE DIRECTOR
00000 000000000000
00001 334723464463
00002 0760 00 0 00016 .SETUP LMTM USE SEVEN TAG MODE.
00003 0774 00 6 00000 AXT 0,6 SET UP IR6 TO AVOID EARLY CALL TO READ.
00004 0020 00 0 00064 TRA SETFUL USE FULL MODE. SETFUL RETURNS 1,4.
*
00005 0074 00 4 00066 EXIT TSX SETBCD,4 CLEANUP, RESET MODE.
00006 0074 00 4 00063 TSX WRFLX,4 PUT OUT A STAR FOR RUNCOMS.
00007 0 00001 0 00060 STAR,,1 AND THEN PERFORM CHNCOM SEQUENCE.
00010 0074 00 4 00102 CHNCOM TSX CHN,4 THIS CHNCOM ALWAYS GOES DEAD,
TD 00011 3 00000 0 00107 TXH =0 IF NO CHAIN EXISTS.
00012 0020 00 0 00010 TRA *-2 IN CASE OF RESTART, DON'T.
*
00013 0634 00 4 00022 COMARG SXA CM4,4 GET COMMAND ARGUMENT FOR MAD.
00014 -0500 60 4 00001 CAL* 1,4 GET ARGUMENT NUMBER.
00015 0602 00 0 00017 SLW ARG GIVE ARGUMENT NUMBER.
00016 0074 00 4 00103 TSX GETCOM,4 GET COMMAND ARGUMENT.
00017 0 00000 0 00000 ARG ..
00020 0602 00 0 00017 SLW ARG MOVE TO ARITHMETIC AC.
00021 0500 00 0 00017 CLA ARG ..
00022 0774 00 4 00000 CM4 AXT --,4 RESTORE LINKAGE.
00023 0020 00 4 00002 TRA 2,4 RETURN TO CALLER.
*
00024 -0500 00 4 00001 .PCOMT CAL 1,4 GET WORD COUNT.
00025 0621 00 0 00042 STA RETURN ON RETURN, JUMP BUFFER.
00026 0767 00 0 00022 ALS 18 SETUP COUNT.
00027 0622 00 0 00036 STD PCNT ..
00030 1 77776 4 00031 TXI *+1,4,-2 SETUP UP BUFFER ADDRESS.
1 LIBRARY PACKAGE. PAGE 2
00031 0636 00 4 00036 SCA PCNT,4 SAVE BUFFER ADDRESS, AND LINKAGE.
00032 0074 00 4 00064 TSX SETFUL,4 MAKE SURE MODE SET AND NO LINES COMING IN.
00033 0074 00 4 00061 TSX WRFLXA,4 SWITCH TO RED SHIFT.
00034 0 00001 0 00056 REDS,,1 ..
00035 0074 00 4 00063 TSX WRFLX,4 PRINT LINE.
00036 0 00000 0 00000 PCNT --,,-- ..
00037 0074 00 4 00061 TSX WRFLXA,4 SHIFT BACK TO BLACK.
00040 0 00001 0 00057 BLCKS,,1 ..
00041 0535 00 4 00036 LAC PCNT,4 RESTORE LINKAGE.
00042 0020 00 4 00000 RETURN TRA --,4 RETURN TO CALLER.
*
00043 0634 00 4 00052 GETBUF SXA GX4,4 ENTRY TO GET BUFFERS.
00044 0602 00 0 00055 SLW BUFSIZ SIZE OF BUFFER IN AC.
00045 0074 00 4 00104 TSX GETMEM,4 GET PRESENT BOUND.
00046 0601 00 0 00054 STO START SAVE AS BUFFER START.
00047 0361 00 0 00055 ACL BUFSIZ FORM NEW BOUND.
00050 0074 00 4 00105 TSX SETMEM,4 ASK FOR MORE.
00051 -0500 00 0 00054 CAL START GIVE CALLER LOCATION OF
00052 0774 00 4 00000 GX4 AXT --,4 HIS NEW BUFFER.
00053 0020 00 4 00001 TRA 1,4 RETURN.
*
00054 0 00000 0 00000 START STORAGE FOR BUFFER LOCATION.
00055 0 00000 0 00000 BUFSIZ STORAGE FOR BUFFER SIZE.
*
00056 +013300570057 REDS OCT 013300570057 RED SHIFT AND TWO NULLS.
00057 +013200570057 BLCKS OCT 013200570057 BLACK SHIFT AND TWO NULLS.
00060 -145757575757 STAR OCT 545757575757 ASTERISK AND 5 NULLS.
*
* SUPERVISOR SUBROUTINE CALLERS.
*
00061 0101 00 0 00133 WRFLXA TIA =HWRFLXA
00062 0101 00 0 00122 RDFLXA TIA =HRDFLXA
00063 0101 00 0 00134 WRFLX TIA =HWRFLX
00064 0101 00 0 00126 SETFUL TIA =HSETFUL
00065 0101 00 0 00125 SETBRK TIA =HSETBRK
00066 0101 00 0 00124 SETBCD TIA =HSETBCD
00067 0101 00 0 00130 UPDATE TIA =HUPDATE
00070 0101 00 0 00111 CHFILE TIA =HCHFILE
00071 0101 00 0 00114 DELFIL TIA =HDELFIL
00072 0101 00 0 00115 FSTATE TIA =HFSTATE
00073 0101 00 0 00110 BUFFER TIA =HBUFFER
00074 0101 00 0 00120 OPEN TIA =HOPEN
00075 0101 00 0 00135 WRWAIT TIA =HWRWAIT
00076 0101 00 0 00132 WRFILE TIA =HWRFILE
00077 0101 00 0 00123 RDWAIT TIA =HRDWAIT
00100 0101 00 0 00121 RDFILE TIA =HRDFILE
00101 0101 00 0 00113 CLOSE TIA =HCLOSE
00102 0101 00 0 00112 CHN TIA =HCHNCOM
00103 0101 00 0 00116 GETCOM TIA =HGETCOM
00104 0101 00 0 00117 GETMEM TIA =HGETMEM
00105 0101 00 0 00127 SETMEM TIA =HSETMEM
00106 0101 00 0 00131 WHOAMI TIA =HWHOAMI
*
END
1 LIBRARY PACKAGE. PAGE 3
LITERALS
00107 000000000000
00110 226426262551
00111 233026314325
00112 233045234644
00113 234346622560
00114 242543263143
00115 266263216325
00116 272563234644
00117 272563442544
00120 464725456060
00121 512426314325
00122 512426436721
00123 512466213163
00124 622563222324
00125 622563225142
00126 622563266443
00127 622563442544
00130 644724216325
00131 663046214431
00132 665126314325
00133 665126436721
00134 665126436760
00135 665166213163
1 LIBRARY PACKAGE. PAGE 1
POST PROCESSOR ASSEMBLY DATA
136 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
17 ARG 15, 20, 21
102 CHN 10
22 CM4 13
52 GX4 43
5 EXIT 0
74 OPEN 0
36 PCNT 27, 31, 41
56 REDS 34
60 STAR 7
57 BLCKS 40
101 CLOSE 0
54 START 46, 51
63 WRFLX 0, 6, 35
73 BUFFER 0
55 BUFSIZ 44, 47
70 CHFILE 0
10 CHNCOM 0
13 COMARG 0
71 DELFIL 0
72 FSTATE 0
43 GETBUF 0
103 GETCOM 16
104 GETMEM 45
24 .PCOMT 0
2 .SETUP 0
100 RDFILE 0
62 RDFLXA 0
77 RDWAIT 0
42 RETURN 25
66 SETBCD 0, 5
65 SETBRK 0
64 SETFUL 0, 4, 32
105 SETMEM 50
67 UPDATE 0
106 WHOAMI 0
76 WRFILE 0
61 WRFLXA 0, 33, 37
75 WRWAIT 0
0 NO ERROR IN ABOVE ASSEMBLY.
EDC BCD 09/18/68 2206.4 57269 00000
1 MAD PROGRAM LISTING ... ... ... FILE EDITCD MAD 09/18/68 0946.1
-
.. EDIT BY CONTEXT PROGRAM. LM00001
LM00002
.. J. H. SALTZER, NOVEMBER, 1964. LM00003
.. LAST MODIFICATION, APRIL, 1967. LM00004
.. MODIFIED SEPTEMBER, 1967 BY PETER R. BOS LM00005
.. TO USE CARD IMAGE CONVERSION PACKAGE. LM00006
LM00007
.. DECLARATIONS. LM00008
LM00009
VECTOR VALUES FENCE = 777777777777K *001 LM00010
VECTOR VALUES IN = $(INPUT$ *002 LM00011
VECTOR VALUES IN1 = $(INPT1$ *003 LM00012
VECTOR VALUES BRIEF = 0B *004 LM00013
VECTOR VALUES OK = 0B *005 LM00014
VECTOR VALUES BUFSIZ = 360 *006 LM00015
DIMENSION LINE(361), EDLIN(361) *007 LM00016
DIMENSION REDS(1), BLACKS(1) *008 LM00017
DIMENSION ATNAM(2) *009 LM00018
NORMAL MODE IS INTEGER *010 LM00019
BOOLEAN OK, GLOBAL, FSTPAS *011 LM00020
BOOLEAN CHNG, CLRSW, BRIEF *012 LM00021
LM00022
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LM00023
LM00024
.. INITIALIZATION. LM00025
LM00026
SECOND NAME OF INTERMEDIATE FILES NOW PROGNO LM00027
LM00028
WHOAMI.(ATNAM(2)...2) *013 LM00029
FI = ATNAM(1) *014 LM00030
GETVAL.(BLANK, TAB, DEFALT, MCHNG, REDS(1), BLACKS(1)) *015 LM00031
CLRNAM.(IN, FI, CHN, 1B) *016 LM00032
CLRNAM.(IN1, FI, CHN, 1B) *017 LM00033
ASSIGN.(IN, FI) *018 LM00034
OLDNAM = COMARG.(1) *019 LM00035
OLDSEC = DEFALT *020 LM00036
WHENEVER OLDNAM .E. FENCE *021 LM00037
CDINIT. *022 LM00038
TRANSFER TO INSERT *023 LM00039
END OF CONDITIONAL *024 LM00040
OLDSEC = COMARG.(2) *025 LM00041
WHENEVER OLDSEC .E. FENCE, OLDSEC = DEFALT *026 LM00042
CDINIT. *027 LM00043
SEEK.(OLDNAM, OLDSEC, INSERT) *028 LM00044
FSTPAS = 1B *029 LM00045
OK = 1B *030 LM00046
LM00047
.. ENTER EDIT MODE. LM00048
LM00049
EDIT WHENEVER .NOT. BRIEF, PRINT COMMENT $0E1D1I1T$ *031 LM00050
LM00051
.. OBTAIN NEXT REQUEST. LM00052
LM00053
NXRQ COUNT = TYPEIN.(EDLIN, BUFSIZ) *032 LM00054
WHENEVER EDLIN(1) .E. MCHNG .AND. COUNT .L. 3 *033 LM00055
1 , TRANSFER TO INSERT *033 LM00056
WHENEVER COUNT .L. 2, TRANSFER TO NXRQ *034 LM00057
EDCT = 0 *035 LM00058
CWD = GET.(0) *036 LM00059
LM00060
WHENEVER CWD .E. $DELETE$ .OR. CWD .E. $ D$ *037 LM00061
N = BIN.(GET.(0)) *038 LM00062
THROUGH DREAD, FOR I = 1, 1, I .GE. N *039 LM00063
DREAD LENGTH = READ.(LINE, BUFSIZ, EOF) *040 LM00064
LENGTH = 0 *041 LM00065
LM00066
OR WHENEVER CWD .E. $ NEXT$ .OR. CWD .E. $ N$ *042 LM00067
N = BIN.(GET.(0)) *043 LM00068
WHENEVER N .E. 0, N = 1 *044 LM00069
THROUGH NXT, FOR I = 1, 1, I .G. N *045 LM00070
WRITE.(LINE, LENGTH) *046 LM00071
WHENEVER .NOT. OK, CLSOUT. *047 LM00072
LENGTH = READ.(LINE, BUFSIZ, EOF) *048 LM00073
NXT CONTINUE *049 LM00074
LM00075
OR WHENEVER CWD .E. $INSERT$ .OR. CWD .E. $ I$ *050 LM00076
WRITE.(LINE, LENGTH) *051 LM00077
TRANSFER TO RETYPE *052 LM00078
LM00079
INSERT WHENEVER .NOT. BRIEF, PRINT COMMENT $0I1N1P1U1T$ *053 LM00080
INPUT COUNT = TYPEIN.(EDLIN, BUFSIZ) *054 LM00081
WHENEVER COUNT .L. 3 .AND. EDLIN(1) .E. MCHNG *055 LM00082
1 , TRANSFER TO EDIT *055 LM00083
WRITE.(LINE, LENGTH) *056 LM00084
THROUGH MVLP, FOR I = 1, 1, I .G. COUNT *057 LM00085
MVLP LINE(I) = EDLIN(I) *058 LM00086
LENGTH = COUNT *059 LM00087
TRANSFER TO INPUT *060 LM00088
LM00089
OR WHENEVER CWD .E. $BOTTOM$ .OR. CWD .E. $ B$ *061 LM00090
WRITE.(LINE, LENGTH) *062 LM00091
LENGTH = 0 *063 LM00092
WHENEVER OK, BOTTOM. *064 LM00093
TRANSFER TO INSERT *065 LM00094
LM00095
OR WHENEVER CWD .E. $APPEND$ .OR. CWD .E. $ A$ *066 LM00096
WHENEVER LENGTH .G. 0, LENGTH = LENGTH - 1 *067 LM00097
TRANSFER TO APPEND *068 LM00098
LM00099
OR WHENEVER CWD .E. $RETYPE$ .OR. CWD .E. $ R$ *069 LM00100
RETYPE LENGTH = 0 *070 LM00101
APPEND THROUGH RPLC, FOR EDCT = EDCT + 1, 1, EDCT .G. COUNT *071 LM00102
LENGTH = LENGTH + 1 *072 LM00103
RPLC LINE(LENGTH) = EDLIN(EDCT) *073 LM00104
LM00105
OR WHENEVER CWD .E. $ ERASE$ .OR. CWD .E. $ E$ *074 LM00106
WHENEVER EDLIN(EDCT+1) .NE. BLANK, SETERS.(EDLIN(EDCT+1)) *075 LM00107
LM00108
OR WHENEVER CWD .E. $ KILL$ .OR. CWD .E. $ K$ *076 LM00109
WHENEVER EDLIN(EDCT+1) .NE. BLANK, SETKIL.(EDLIN(EDCT+1)) *077 LM00110
LM00111
OR WHENEVER CWD .E. $ BKSP$ .OR. CWD .E. $ BK$ *078 LM00112
WHENEVER EDLIN(EDCT+1) .NE. BLANK, SETBK.(EDLIN(EDCT+1)) *079 LM00113
LM00114
OR WHENEVER CWD .E. $VERIFY$ .OR. CWD .E. $ V$ *080 LM00115
CWD = GET.(0) *081 LM00116
WHENEVER CWD .E. $ ON$ *082 LM00117
BRIEF = 0B *083 LM00118
OR WHENEVER CWD .E. $ OFF$ *084 LM00119
BRIEF = 1B *085 LM00120
END OF CONDITIONAL *086 LM00121
LM00122
OR WHENEVER CWD .E. $LOCATE$ .OR. CWD .E. $ L$ *087 LM00123
LOCATE = 1 *088 LM00124
TRANSFER TO FIND *089 LM00125
LM00126
OR WHENEVER CWD .E. $ FIND$ .OR. CWD .E. $ F$ *090 LM00127
LOCATE = 0 *091 LM00128
FIND WHENEVER EDCT+1 .GE. COUNT *092 LM00129
COUNT = OCOUNT *093 LM00130
EDCT = EDCT + 1 *094 LM00131
END OF CONDITIONAL *095 LM00132
OCOUNT = COUNT *096 LM00133
NTFND WRITE.(LINE, LENGTH) *097 LM00134
WHENEVER .NOT. OK, CLSOUT. *098 LM00135
LENGTH = READ.(LINE, BUFSIZ, EOF) *099 LM00136
THROUGH LOCSCN, FOR K=0, 1,K.G.LOCATE*(LENGTH-COUNT+EDCT) *100 LM00137
J = K *101 LM00138
THROUGH LOOK, FOR I = EDCT+1, 1, I .GE. COUNT *102 LM00139
J = J + 1 *103 LM00140
TAGN WHENEVER LINE(J) .E. EDLIN(I), TRANSFER TO LOOK *104 LM00141
WHENEVER (LINE(J).E. TAB) .AND. (EDLIN(I) .E. BLANK) *105 LM00142
1 , TRANSFER TO LOOK *105 LM00143
WHENEVER EDLIN(I-1) .NE. BLANK .OR. I .E. EDCT + 1 *106 LM00144
1 , TRANSFER TO LOCSCN *106 LM00145
WHENEVER LINE(J) .NE. BLANK .AND. LINE(J) .NE. TAB *107 LM00146
1 , TRANSFER TO LOCSCN *107 LM00147
J = J + 1 *108 LM00148
TRANSFER TO TAGN *109 LM00149
LOOK WHENEVER I .E. EDCT+1, FNDST = J *110 LM00150
FNDND = J *111 LM00151
WHENEVER .NOT. BRIEF, PRNT.(FNDST, FNDND) *112 LM00152
TRANSFER TO NXRQ *113 LM00153
LOCSCN CONTINUE *114 LM00154
TRANSFER TO NTFND *115 LM00155
LM00156
OR WHENEVER CWD .E. $ PRINT$ .OR. CWD .E. $ P$ *116 LM00157
NPRNT = BIN.(GET.(0)) *117 LM00158
PNTLP WHENEVER LENGTH .E. 0 *118 LM00159
PRINT COMMENT $0N1O0 1C1U1R1R1E1N1T0 1L1I1N1E0.$ *119 LM00160
OTHERWISE *120 LM00161
TYPOUT.(LINE, LENGTH) *121 LM00162
END OF CONDITIONAL *122 LM00163
NPRNT = NPRNT - 1 *123 LM00164
WHENEVER NPRNT .G. 0 *124 LM00165
WRITE.(LINE, LENGTH) *125 LM00166
LENGTH = READ.(LINE, BUFSIZ, EOF) *126 LM00167
TRANSFER TO PNTLP *127 LM00168
END OF CONDITIONAL *128 LM00169
LM00170
OR WHENEVER CWD .E. $ TOP$ .OR. CWD .E. $ T$ *129 LM00171
TOPLP WRITE.(LINE, LENGTH) *130 LM00172
WHENEVER OK, BOTTOM. *131 LM00173
CLSOUT. *132 LM00174
LM00175
OR WHENEVER CWD .E. $CHANGE$ .OR. CWD .E. $ C$ *133 LM00176
LM00177
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LM00178
LM00179
.. DELINEATE QUOTED STRINGS. LM00180
LM00181
EDCT = EDCT+1 *134 LM00182
QUOTE = EDLIN(EDCT) *135 LM00183
STR1 = EDCT *136 LM00184
QLOOP THROUGH QLOOP, FOR EDCT = EDCT+1, 1, *137 LM00185
1 (EDLIN(EDCT) .E. QUOTE) .OR. (EDCT .GE. COUNT) *137 LM00186
STR2 = EDCT *138 LM00187
QLOOP1 THROUGH QLOOP1, FOR EDCT = EDCT+1, 1, *139 LM00188
1 (EDLIN(EDCT) .E. QUOTE) .OR. (EDCT .GE. COUNT) *139 LM00189
EST2 = EDCT *140 LM00190
LM00191
.. CHECK FOR ITERATION COUNT AND GLOBAL REQUEST. LM00192
LM00193
EDCT = EDCT + 1 *141 LM00194
TEM = 1 *142 LM00195
GLOBAL = 0B *143 LM00196
ARGLP CWD = GET.(0) *144 LM00197
WHENEVER CWD .E. $ $ *145 LM00198
TRANSFER TO SHIFT *146 LM00199
OR WHENEVER CWD .E. $ G$ *147 LM00200
WHENEVER STR2 .NE. STR1+1, GLOBAL = 1B *148 LM00201
OTHERWISE *149 LM00202
TEM = BIN.(CWD) *150 LM00203
END OF CONDITIONAL *151 LM00204
TRANSFER TO ARGLP *152 LM00205
LM00206
.. SHIFT LINE TO BOTTOM OF BUFFER. LM00207
LM00208
SHIFT THROUGH MVDWN, FOR I = LENGTH, -1, I .L. 1 *153 LM00209
MVDWN LINE(BUFSIZ+I-LENGTH) = LINE(I) *154 LM00210
DOWN = BUFSIZ-LENGTH+1 *155 LM00211
UP = 0 *156 LM00212
CHNG = 0B *157 LM00213
CHST = LENGTH + 1 *158 LM00214
CHEND = LENGTH *159 LM00215
LM00216
.. SEARCH FOR PRESENCE OF FIRST STRING. LM00217
LM00218
SRCHLP UP = UP + 1 *160 LM00219
SRTST WHENEVER DOWN .G. BUFSIZ, TRANSFER TO GIVUP *161 LM00220
J = DOWN *162 LM00221
THROUGH COMPAR, FOR I = STR1+1, 1, I .GE. STR2 *163 LM00222
WHENEVER J .GE. BUFSIZ, TRANSFER TO GIVUP *164 LM00223
WHENEVER EDLIN(I) .NE. LINE(J), TRANSFER TO NOCOMP *165 LM00224
COMPAR J = J + 1 *166 LM00225
TRANSFER TO STFND *167 LM00226
LM00227
NOCOMP LINE(UP) = LINE(DOWN) *168 LM00228
DOWN = DOWN + 1 *169 LM00229
TRANSFER TO SRCHLP *170 LM00230
LM00231
.. STRING FOUND, REPLACE WITH SECOND STRING. LM00232
LM00233
STFND CHNG = 1B *171 LM00234
DOWN = DOWN + (STR2-STR1-1) *172 LM00235
CHST = UP *173 LM00236
THROUGH REPLAC, FOR I = STR2 + 1, 1, I .GE. EST2 *174 LM00237
LINE(UP) = EDLIN(I) *175 LM00238
UP = UP + 1 *176 LM00239
REPLAC WHENEVER UP .G. DOWN, TRANSFER TO GIVUP *177 LM00240
CHEND = UP - 1 *178 LM00241
WHENEVER GLOBAL, TRANSFER TO SRTST *179 LM00242
LM00243
.. MOVE REST OF LINE BACK UP. LM00244
LM00245
GIVUP THROUGH FILOUT, FOR UP = UP, 1, DOWN .G. BUFSIZ *180 LM00246
LINE(UP) = LINE(DOWN) *181 LM00247
FILOUT DOWN = DOWN + 1 *182 LM00248
LENGTH = UP - 1 *183 LM00249
TEM = TEM - 1 *184 LM00250
WHENEVER .NOT. BRIEF .AND. (TEM .G. 0 .THEN. CHNG) *185 LM00251
1 , PRNT.(CHST, CHEND) *185 LM00252
CANON.(LINE, LENGTH, BUFSIZ) *186 LM00253
WHENEVER TEM .G. 0 *187 LM00254
WRITE.(LINE, LENGTH) *188 LM00255
LENGTH = READ.(LINE, BUFSIZ, EOF) *189 LM00256
TRANSFER TO SHIFT *190 LM00257
END OF CONDITIONAL *191 LM00258
LM00259
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LM00260
LM00261
OR WHENEVER CWD .E. $ SPLIT$ .OR. CWD .E. $ S$ *192 LM00262
TOPNAM = GET.(0) *193 LM00263
WHENEVER TOPNAM .E. $ $, TRANSFER TO NONAME *194 LM00264
WHENEVER TOPNAM .E. OLDNAM .AND. FSTPAS *195 LM00265
NEWNM PRINT COMMENT $0P1L1E1A1S1E0 1U1S1E0 1A1N1O1T1H1E1R0 1N1A *196 LM00266
1 1M1E0.$ *196 LM00267
TRANSFER TO NXRQ *197 LM00268
END OF CONDITIONAL *198 LM00269
SECNAM = GET.(0) *199 LM00270
WHENEVER SECNAM .E. $ $, SECNAM = OLDSEC *200 LM00271
CLRNAM.(TOPNAM, SECNAM, NEWNM, 1B) *201 LM00272
CLOSEW. *202 LM00273
RENAME.(IN, FI, TOPNAM, SECNAM) *203 LM00274
ASSIGN.(IN, FI) *204 LM00275
OLDNAM = FENCE *205 LM00276
TRANSFER TO TOPLP *206 LM00277
LM00278
OR WHENEVER CWD .E. $ QUIT$ .OR. CWD .E. $ Q$ *207 LM00279
ENDRD. *208 LM00280
CLOSEW. *209 LM00281
DELFIL.(IN1, FI, DLQ1) *210 LM00282
DLQ1 DELFIL.(IN, FI, DLQ2) *211 LM00283
DLQ2 TRANSFER TO CHN *212 LM00284
LM00285
OR WHENEVER CWD .E. $TABSET$ .OR. CWD .E. $ TB$ *213 LM00286
TB = GET.(0) *214 LM00287
WHENEVER TB .E. $ *$ *215 LM00288
TBINIT. *216 LM00289
OTHERWISE *217 LM00290
NEWTBS. *218 LM00291
GTTB WHENEVER TB .E. $ $, TRANSFER TO NXRQ *219 LM00292
TABSET.(BIN.(TB)) *220 LM00293
TB = GET.(0) *221 LM00294
TRANSFER TO GTTB *222 LM00295
END OF CONDITIONAL *223 LM00296
LM00297
OR WHENEVER CWD .E. $ BKSET$ *224 LM00298
BK = GET.(0) *225 LM00299
NEWBKS. *226 LM00300
GTBK WHENEVER BK .E. $ $, TRANSFER TO NXRQ *227 LM00301
BKSET.(BIN.(BK)) *228 LM00302
BK = GET.(0) *229 LM00303
TRANSFER TO GTBK *230 LM00304
LM00305
OR WHENEVER CWD .E. $SERIAL$ .OR. CWD .E. $ SR$ *231 LM00306
FSTNO = GET.(0) *232 LM00307
WHENEVER FSTNO .E. $ OFF$ *233 LM00308
SINHB.(1) *234 LM00309
OR WHENEVER FSTNO .E. $ ON$ *235 LM00310
SINHB.(0) *236 LM00311
OTHERWISE *237 LM00312
WHENEVER FSTNO .E. $ $ *238 LM00313
FSTNO = 10 *239 LM00314
INCR = 10 *240 LM00315
OTHERWISE *241 LM00316
FSTNO = BIN.(FSTNO) *242 LM00317
INCR = GET.(0) *243 LM00318
WHENEVER INCR .E. $ $ *244 LM00319
INCR = 10 *245 LM00320
OTHERWISE *246 LM00321
INCR = BIN.(INCR) *247 LM00322
END OF CONDITIONAL *248 LM00323
END OF CONDITIONAL *249 LM00324
SETSR.(FSTNO,INCR) *250 LM00325
SINHB.(0) *251 LM00326
END OF CONDITIONAL *252 LM00327
LM00328
OR WHENEVER CWD .E. $ NCOLS$ .OR. CWD .E. $ NC$ *253 LM00329
NCOL = GET.(0) *254 LM00330
WHENEVER NCOL .E. $ $ *255 LM00331
SETCOL.(72) *256 LM00332
OTHERWISE *257 LM00333
SETCOL.(BIN.(NCOL)) *258 LM00334
END OF CONDITIONAL *259 LM00335
LM00336
OR WHENEVER CWD .E. $ FILE$ *260 LM00337
PRINAM = GET.(0) *261 LM00338
CLRSW = 1B *262 LM00339
WHENEVER PRINAM .E. $ $ *263 LM00340
PRINAM = OLDNAM *264 LM00341
SECNAM = OLDSEC *265 LM00342
CLRSW = 0B *266 LM00343
OTHERWISE *267 LM00344
SECNAM = GET.(0) *268 LM00345
WHENEVER SECNAM .E. $ $ *269 LM00346
SECNAM = OLDSEC *270 LM00347
END OF CONDITIONAL *271 LM00348
END OF CONDITIONAL *272 LM00349
WHENEVER PRINAM .E. FENCE *273 LM00350
NONAME PRINT COMMENT $0N1O0 1F1I1L1E0 1N1A1M1E0 1G1I1V1E1N0.$ *274 LM00351
TRANSFER TO NXRQ *275 LM00352
END OF CONDITIONAL *276 LM00353
WRITE.(LINE, LENGTH) *277 LM00354
LENGTH = 0 *278 LM00355
WHENEVER OK, BOTTOM. *279 LM00356
CLRNAM.(PRINAM, SECNAM, NEWNM, CLRSW) *280 LM00357
CLOSEW. *281 LM00358
DELFIL.(IN1, FI, DL1) *282 LM00359
DL1 RENAME.(IN, FI, PRINAM, SECNAM) *283 LM00360
CHN EXIT. *284 LM00361
LM00362
OTHERWISE *285 LM00363
PRINT COMMENT $0N1O1T0 1A0 1R1E1Q1U1E1S1T0:$ *286 LM00364
TYPOUT.(EDLIN, COUNT) *287 LM00365
LM00366
END OF CONDITIONAL *288 LM00367
TRANSFER TO NXRQ *289 LM00368
LM00369
EOF PRINTCOMMENT $0E1N1D0 1O1F0 1F1I1L1E0 1R1E1A1C1H1E1D0 1B1Y0:$ *290 LM00370
TYPOUT.(EDLIN, COUNT) *291 LM00371
LENGTH = 0 *292 LM00372
OK = 0B *293 LM00373
TRANSFER TO NXRQ *294 LM00374
LM00375
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LM00376
LM00377
.. SUBROUTINES. LM00378
LM00379
CLSOUT. .. FUNCTION TO MOVE POINTER BACK TO TOP OF FILE. LM00380
LM00381
INTERNAL FUNCTION *295 LM00382
ENTRY TO CLSOUT. *296 LM00383
CLOSEW. *297 LM00384
DELFIL.(IN1, FI, DL2) *298 LM00385
DL2 CHFILE.(IN, FI, -0, IN1) *299 LM00386
SEEK.(IN1, FI, CHN) *300 LM00387
ASSIGN.(IN, FI) *301 LM00388
OK = 1B *302 LM00389
LENGTH = 0 *303 LM00390
FSTPAS = 0B *304 LM00391
FUNCTION RETURN *305 LM00392
END OF FUNCTION *306 LM00393
LM00394
GET. .. FUNCTION TO OBTAIN ARGUMENT WORD IN HOLLERITH. LM00395
LM00396
INTERNAL FUNCTION *307 LM00397
ENTRY TO GET. *308 LM00398
WORD = $ $ *309 LM00399
SCANLP THROUGH SCANLP, FOR EDCT = EDCT, 1, *310 LM00400
1 (EDLIN(EDCT+1).NE.BLANK) .OR. (EDCT+1.GE.COUNT) *310 LM00401
GTLP EDCT = EDCT + 1 *311 LM00402
WHENEVER EDLIN(EDCT) .E. BLANK, FUNCTION RETURN WORD *312 LM00403
WHENEVER EDLIN(EDCT) .E. TAB .OR. EDCT .GE. COUNT *313 LM00404
EDCT = EDCT - 1 *314 LM00405
FUNCTION RETURN WORD *315 LM00406
END OF CONDITIONAL *316 LM00407
WORD = (WORD .LS. 6) .V. HOL.(EDLIN(EDCT)) *317 LM00408
TRANSFER TO GTLP *318 LM00409
END OF FUNCTION *319 LM00410
LM00411
PRNT. .. FUNCTION TO PRINT A LINE WITH COLOR SHIFTS. LM00412
LM00413
INTERNAL FUNCTION(STAR, EN) *320 LM00414
ENTRY TO PRNT. *321 LM00415
TYPOUT.(LINE, STAR-1) *322 LM00416
TYPOUT.(REDS, 1) *323 LM00417
TYPOUT.(LINE(STAR-1), EN-STAR+1) *324 LM00418
TYPOUT.(BLACKS, 1) *325 LM00419
TYPOUT.(LINE(EN), LENGTH-EN) *326 LM00420
FUNCTION RETURN *327 LM00421
END OF FUNCTION *328 LM00422
LM00423
.. FUNCTION TO INITIALIZE CARD IMAGE CONVERTER. LM00424
LM00425
INTERNAL FUNCTION *329 LM00426
ENTRY TO CDINIT. *330 LM00427
TBINIT. *331 LM00428
SETCOL.(72) *332 LM00429
SINHB.(0) *333 LM00430
FUNCTION RETURN *334 LM00431
END OF FUNCTION *335 LM00432
LM00433
.. FUNCTION TO INITIALIZE TAB SETTINGS. LM00434
LM00435
INTERNAL FUNCTION *336 LM00436
ENTRY TO TBINIT. *337 LM00437
NEWTBS. *338 LM00438
NEWBKS. *339 LM00439
WHENEVER OLDSEC .E. $ MAD$ *340 LM00440
THROUGH MTB, FOR VALUES OF TB = 12,17,22,27,32,37,42,47,55 *341 LM00441
MTB TABSET.(TB) *342 LM00442
BKSET.(12) *343 LM00443
OR WHENEVER OLDSEC .E. $ FAP$ *344 LM00444
THROUGH FTB, FOR VALUES OF TB = 8,16,30,34,38,42,46,55 *345 LM00445
FTB TABSET.(TB) *346 LM00446
OR WHENEVER OLDSEC .E. $MADTRN$ *347 LM00447
THROUGH F2TB, FOR VALUES OF TB = 7,12,17,22,27,32,37,42,47,55 *348 LM00448
F2TB TABSET.(TB) *349 LM00449
BKSET.(7) *350 LM00450
OR WHENEVER OLDSEC .E. $ ALGOL$ *351 LM00451
THROUGH ATB, FOR VALUES OF TB = 11,16,21,26,31,36,41,46,51,56, *352 LM00452
1 61,66 *352 LM00453
ATB TABSET.(TB) *353 LM00454
OTHERWISE *354 LM00455
PRINT COMMENT $OT1A1B1S0 1N1O1T0 1S1E1T0.$ *355 LM00456
END OF CONDITIONAL *356 LM00457
FUNCTION RETURN *357 LM00458
END OF FUNCTION *358 LM00459
LM00460
END OF PROGRAM *359 LM00461
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 04661 TRANSFER VECTOR LENGTH 00040 PROGRAM BEGINS 01645
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
APPEND 00046 4 DLQ1 00053 4 GLOBAL 00710 2 MVLP 00045 4 REPLAC 00045 4
ARGLP 00047 4 DLQ2 00054 4 GTBK 00061 4 NCOL 01474 1 RETYPE 00076 4
ATB 00045 4 DOWN 00125 1 GTLP 00062 4 NEWNM 00070 4 RPLC 00045 4
ATNAM 00107 A 1 DREAD 00045 4 GTTB 00063 4 NOCOMP 00071 4 SCANLP 00045 4
BK 00110 1 EDCT 00126 1 IN1 00711 A 1 NONAME 00072 4 SECNAM 01507 1
BLACKS 00112 A 1 EDIT 00055 4 INCR 00712 1 NPRNT 01475 1 SHIFT 00077 4
BLANK 00113 1 EDLIN 00700 A 1 INPUT 00064 4 N 01476 1 SRCHLP 00100 4
BRIEF 00114 A 2 EOF 00056 4 IN 00713 A 1 NTFND 00073 4 SRTST 00101 4
BUFSIZ 00115 A 1 EST2 00701 1 INSERT 00065 4 NXRQ 00074 4 STFND 00102 4
CHEND 00116 1 F2TB 00045 4 I 00714 1 NXT 00045 4 STR1 01510 1
CHNG 00117 2 FENCE 00702 A 1 J 00715 1 OCOUNT 01477 1 STR2 01511 1
CHN 00050 4 FILOUT 00045 4 K 00716 1 OK 01500 A 2 TAB 01512 1
CHST 00120 1 FIND 00057 4 LENGTH 00717 1 OLDNAM 01501 1 TAGN 00103 4
CLRSW 00121 2 FI 00703 1 LINE 01471 A 1 OLDSEC 01502 1 TB 01513 1
COMPAR 00045 4 FNDND 00704 1 LOCATE 01472 1 PNTLP 00075 4 TEM 01514 1
COUNT 00122 1 FNDST 00705 1 LOCSCN 00066 4 PRINAM 01503 1 TOPLP 00104 4
CWD 00123 1 FSTNO 00706 1 LOOK 00067 4 QLOOP1 00045 4 TOPNAM 01515 1
DEFALT 00124 1 FSTPAS 00707 2 MCHNG 01473 1 QLOOP 00045 4 UP 01516 1
DL1 00051 4 FTB 00045 4 MTB 00045 4 QUOTE 01504 1 WORD 01517 1
DL2 00052 4 GIVUP 00060 4 MVDWN 00045 4 REDS 01506 A 1
0FUNCTION DICTIONARY
ASSIGN 00000 1 BIN 00001 1 BKSET 00002 1 BOTTOM 00003 1 CANON 00004 1
CHFILE 00005 1 CLOSEW 00006 1 CLRNAM 00007 1 COMARG 00010 1 DELFIL 00011 1
ENDRD 00012 1 EXIT 00013 1 GETVAL 00014 1 HOL 00015 1 .PCOMT 00016 1
.SETUP 00017 1 NEWBKS 00020 1 NEWTBS 00021 1 READ 00022 1 RENAME 00023 1
SEEK 00024 1 SETBK 00025 1 SETCOL 00026 1 SETERS 00027 1 SETKIL 00030 1
SETSR 00031 1 SINHB 00032 1 TABSET 00033 1 TYPEIN 00034 1 TYPOUT 00035 1
WHOAMI 00036 1 WRITE 00037 1 CDINIT 00040 1 CLSOUT 00041 1 GET 00042 1
PRNT 00043 1 TBINIT 00044 1
0ABSOLUTE CONSTANTS
01557 +000000000102 01556 +000000000075 01555 +000000000070 01553 +000000000063 01547 +000000000051
01544 +000000000044 01541 +000000000037 01536 +000000000032 01534 +000000000025 01530 +000000000013
01572 -202143274643 01525 +000000000007 01570 -042124635145 01551 +000000000056 01546 +000000000046
01543 +000000000042 01540 +000000000036 01532 +000000000020 01526 +000000000010 01605 -206060262147
01554 +000000000067 01552 +000000000057 01550 +000000000052 01545 +000000000045 01542 +000000000040
01537 +000000000033 01535 +000000000026 01533 +000000000021 01531 +000000000014 01606 -206060442124
01524 +000000000006 01600 -206026314325 01560 +000000000110 01575 -204523464362 01611 -206060604523
01527 +000000000012 01642 -222551312143 01636 -206060606251 01573 -202242622563 01631 -206060606054
01643 -232122622563 01637 -206060606322 01604 -206050643163 01627 -206060606050 01641 -206247433163
01633 -206060606062 01621 -206060606027 01632 -206060606060 01564 +233021452725 01615 -206060606023
01640 -206060634647 01634 -206060606063 01576 -204751314563 01626 -206060606047 01601 -206026314524
01620 -206060606026 01567 -034623216325 01624 -206060606043 01607 -206060462626 01612 -206060604645
01644 -252551312670 01635 -206060606065 01577 -206022426247 01610 -206060602242 01602 -206042314343
01623 -206060606042 01574 -202551216225 01617 -206060606025 01571 -112563704725 01630 -206060606051
01561 +214747254524 01613 -206060606021 01562 +224663634644 01614 -206060606022 01566 +314562255163
01622 -206060606031 01603 -206045256763 01625 -206060606045 01565 +242543256325 01616 -206060606024
01520 +000000000000 01523 +000000000003 01522 +000000000002 01521 +000000000001 01563 +233000000000
0STATEMENT DICTIONARY
00046 TXL -302240002225 00047 TXL -302763002760 00050 TXL -303660003657 00051 TXL -303657003652
00052 TXL -303736003727 00053 TXL -303366003362 00054 TXL -303367003366 00055 TXL -301737001731
00056 TXL -303706003674 00057 TXL -302421002414 00060 TXL -303204003172 00061 TXL -303440003434
00062 TXL -304021004016 00063 TXL -303413003407 00064 TXL -302120002114 00065 TXL -302114002106
00066 TXL -302573002572 00067 TXL -302562002552 00070 TXL -303313003301 00071 TXL -303117003113
00072 TXL -303627003616 00073 TXL -302433002430 00074 TXL -301743001737 00075 TXL -302614002611
00076 TXL -302225002223 00077 TXL -303021003007 00100 TXL -303051003046 00101 TXL -303056003051
00102 TXL -303125003123 00103 TXL -302511002503 00104 TXL -302662002657
0PROGRAM
VECTOR VALUES FENCE = 777777777777K 001 LM00010
01645 TSX +0 07400 4 00017 00702 -3 77777 7 77777
VECTOR VALUES IN = $(INPUT$ 002 LM00011
00713 -3 43145 4 76463
VECTOR VALUES IN1 = $(INPT1$ 003 LM00012
00711 -3 43145 4 76301
VECTOR VALUES BRIEF = 0B 004 LM00013
00114 +0 00000 0 00000
VECTOR VALUES OK = 0B 005 LM00014
01500 +0 00000 0 00000
VECTOR VALUES BUFSIZ = 360 006 LM00015
00115 +0 00000 0 00550
DIMENSION LINE(361), EDLIN(361) 007 LM00016
DIMENSION REDS(1), BLACKS(1) 008 LM00017
D'N ATNAM(2) 009 LM00018
NORMAL MODE IS INTEGER 010 LM00019
BOOLEAN OK, GLOBAL, FSTPAS 011 LM00020
BOOLEAN CHNG, CLRSW, BRIEF 012 LM00021
WHOAMI.(ATNAM(2)...2) 013 LM00029
01646 TSX +0 07400 4 00036 01647 TIX +2 01522 0 00105
FI = ATNAM(1) 014 LM00030
01650 CLA +0 50000 0 00106 01651 STO +0 60100 0 00703
GETVAL.(BLANK, TAB, DEFALT, MCHNG, REDS(1), BLACKS(1)) 015 LM00031
01652 TSX +0 07400 4 00014 01653 TXH +3 00000 0 00113 01654 TXH +3 00000 0 01512 01655 TXH +3 00000 0 00124
01656 TXH +3 00000 0 01473 01657 TXH +3 00000 0 01505 01660 TXH +3 00000 0 00111
CLRNAM.(IN, FI, CHN, 1B) 016 LM00032
01661 TSX +0 07400 4 00007 01662 TXH +3 00000 0 00713 01663 TXH +3 00000 0 00703 01664 TXH +3 00000 0 00050
01665 TXH +3 00000 0 01521
CLRNAM.(IN1, FI, CHN, 1B) 017 LM00033
01666 TSX +0 07400 4 00007 01667 TXH +3 00000 0 00711 01670 TXH +3 00000 0 00703 01671 TXH +3 00000 0 00050
01672 TXH +3 00000 0 01521
ASSIGN.(IN, FI) 018 LM00034
01673 TSX +0 07400 4 00000 01674 TXH +3 00000 0 00713 01675 TXH +3 00000 0 00703
OLDNAM = COMARG.(1) 019 LM00035
01676 TSX +0 07400 4 00010 01677 TXH +3 00000 0 01521 01700 STO +0 60100 0 01501
OLDSEC = DEFALT 020 LM00036
01701 CLA +0 50000 0 00124 01702 STO +0 60100 0 01502
W'R OLDNAM .E. FENCE 021 LM00037
01703 CLA +0 50000 0 01501 01704 SUB +0 40200 0 00702 01705 TNZ -0 10000 0 01710
CDINIT. 022 LM00038
01706 TSX +0 07400 4 00040
T'O INSERT 023 LM00039
01707 TRA +0 02000 0 00065
E'L 024 LM00040
OLDSEC = COMARG.(2) 025 LM00041
01710 TSX +0 07400 4 00010 01711 TXH +3 00000 0 01522 01712 STO +0 60100 0 01502
WHENEVER OLDSEC .E. FENCE, OLDSEC = DEFALT 026 LM00042
01713 CLA +0 50000 0 01502 01714 SUB +0 40200 0 00702 01715 TNZ -0 10000 0 01720 01716 CLA +0 50000 0 00124
01717 STO +0 60100 0 01502
CDINIT. 027 LM00043
01720 TSX +0 07400 4 00040
SEEK.(OLDNAM, OLDSEC, INSERT) 028 LM00044
01721 TSX +0 07400 4 00024 01722 TXH +3 00000 0 01501 01723 TXH +3 00000 0 01502 01724 TXH +3 00000 0 00065
FSTPAS = 1B 029 LM00045
01725 CLA +0 50000 0 01521 01726 STO +0 60100 0 00707
OK = 1B 030 LM00046
01727 CLA +0 50000 0 01521 01730 STO +0 60100 0 01500
EDIT WHENEVER .NOT. BRIEF, PRINT COMMENT $0E1D1I1T$ 031 LM00050
01731 ZET +0 52000 0 00114 01732 TRA +0 02000 0 01737 01733 TSX +0 07400 4 00016 01734 +0 00000 0 00002
01735 +0 02501 2 40131 01736 +0 16360 6 06060
NXRQ COUNT = TYPEIN.(EDLIN, BUFSIZ) 032 LM00054
01737 TSX +0 07400 4 00034 01740 TXH +3 00000 0 00700 01741 TXH +3 00000 0 00115 01742 STO +0 60100 0 00122
WHENEVER EDLIN(1) .E. MCHNG .AND. COUNT .L. 3 033 LM00055
1 , TRANSFER TO INSERT 033 LM00056
01743 CLA +0 50000 0 00122 01744 SUB +0 40200 0 01523 01745 TZE +0 10000 0 01753 01746 TPL +0 12000 0 01753
01747 CLA +0 50000 0 00677 01750 SUB +0 40200 0 01473 01751 TNZ -0 10000 0 01753 01752 TRA +0 02000 0 00065
WHENEVER COUNT .L. 2, TRANSFER TO NXRQ 034 LM00057
01753 CLA +0 50000 0 00122 01754 SUB +0 40200 0 01522 01755 TZE +0 10000 0 01760 01756 TPL +0 12000 0 01760
01757 TRA +0 02000 0 00074
EDCT = 0 035 LM00058
01760 CLA +0 50000 0 01520 01761 STO +0 60100 0 00126
CWD = GET.(0) 036 LM00059
01762 TSX +0 07400 4 00042 01763 TXH +3 00000 0 01520 01764 STO +0 60100 0 00123
WHENEVER CWD .E. $DELETE$ .OR. CWD .E. $ D$ 037 LM00061
01765 CLA +0 50000 0 00123 01766 SUB +0 40200 0 01616 01767 TZE +0 10000 0 01773 01770 CLA +0 50000 0 00123
01771 SUB +0 40200 0 01565 01772 TNZ -0 10000 0 02024
N = BIN.(GET.(0)) 038 LM00062
01773 TSX +0 07400 4 00042 01774 TXH +3 00000 0 01520 01775 STO +0 60100 0 04656 01776 TSX +0 07400 4 00001
01777 TXH +3 00000 0 04656 02000 STO +0 60100 0 01476
THROUGH DREAD, FOR I = 1, 1, I .GE. N 039 LM00063
02001 CLA +0 50000 0 01521 02002 STO +0 60100 0 00714 02003 TRA +0 02000 0 02007 02004 CLA +0 50000 0 00714
02005 ADD +0 40000 0 01521 02006 STO +0 60100 0 00714 02007 CLA +0 50000 0 00714 02010 SUB +0 40200 0 01476
02011 TZE +0 10000 0 02021 02012 TPL +0 12000 0 02021
DREAD LENGTH = READ.(LINE, BUFSIZ, EOF) 040 LM00064
02013 TSX +0 07400 4 00022 02014 TXH +3 00000 0 01471 02015 TXH +3 00000 0 00115 02016 TXH +3 00000 0 00056
02017 STO +0 60100 0 00717 02020 TRA +0 02000 0 02004
LENGTH = 0 041 LM00065
02021 CLA +0 50000 0 01520 02022 STO +0 60100 0 00717
OR WHENEVER CWD .E. $ NEXT$ .OR. CWD .E. $ N$ 042 LM00067
02023 TRA +0 02000 0 03673 02024 CLA +0 50000 0 00123 02025 SUB +0 40200 0 01625 02026 TZE +0 10000 0 02032
02027 CLA +0 50000 0 00123 02030 SUB +0 40200 0 01603 02031 TNZ -0 10000 0 02074
N = BIN.(GET.(0)) 043 LM00068
02032 TSX +0 07400 4 00042 02033 TXH +3 00000 0 01520 02034 STO +0 60100 0 04656 02035 TSX +0 07400 4 00001
02036 TXH +3 00000 0 04656 02037 STO +0 60100 0 01476
WHENEVER N .E. 0, N = 1 044 LM00069
02040 CLA +0 50000 0 01476 02041 SUB +0 40200 0 01520 02042 TNZ -0 10000 0 02045 02043 CLA +0 50000 0 01521
02044 STO +0 60100 0 01476
THROUGH NXT, FOR I = 1, 1, I .G. N 045 LM00070
02045 CLA +0 50000 0 01521 02046 STO +0 60100 0 00714 02047 TRA +0 02000 0 02053 02050 CLA +0 50000 0 00714
02051 ADD +0 40000 0 01521 02052 STO +0 60100 0 00714 02053 CLA +0 50000 0 00714 02054 SUB +0 40200 0 01476
02055 TZE +0 10000 0 02057 02056 TPL +0 12000 0 02073
WRITE.(LINE, LENGTH) 046 LM00071
02057 TSX +0 07400 4 00037 02060 TXH +3 00000 0 01471 02061 TXH +3 00000 0 00717
WHENEVER .NOT. OK, CLSOUT. 047 LM00072
02062 ZET +0 52000 0 01500 02063 TRA +0 02000 0 02065 02064 TSX +0 07400 4 00041
LENGTH = READ.(LINE, BUFSIZ, EOF) 048 LM00073
02065 TSX +0 07400 4 00022 02066 TXH +3 00000 0 01471 02067 TXH +3 00000 0 00115 02070 TXH +3 00000 0 00056
02071 STO +0 60100 0 00717
NXT CONTINUE 049 LM00074
02072 TRA +0 02000 0 02050
OR WHENEVER CWD .E. $INSERT$ .OR. CWD .E. $ I$ 050 LM00076
02073 TRA +0 02000 0 03673 02074 CLA +0 50000 0 00123 02075 SUB +0 40200 0 01622 02076 TZE +0 10000 0 02102
02077 CLA +0 50000 0 00123 02100 SUB +0 40200 0 01566 02101 TNZ -0 10000 0 02156
WRITE.(LINE, LENGTH) 051 LM00077
02102 TSX +0 07400 4 00037 02103 TXH +3 00000 0 01471 02104 TXH +3 00000 0 00717
TRANSFER TO RETYPE 052 LM00078
02105 TRA +0 02000 0 00076
INSERT WHENEVER .NOT. BRIEF, PRINT COMMENT $0I1N1P1U1T$ 053 LM00080
02106 ZET +0 52000 0 00114 02107 TRA +0 02000 0 02114 02110 TSX +0 07400 4 00016 02111 +0 00000 0 00002
02112 +0 03101 4 50147 02113 +0 16401 6 36060
INPUT COUNT = TYPEIN.(EDLIN, BUFSIZ) 054 LM00081
02114 TSX +0 07400 4 00034 02115 TXH +3 00000 0 00700 02116 TXH +3 00000 0 00115 02117 STO +0 60100 0 00122
WHENEVER COUNT .L. 3 .AND. EDLIN(1) .E. MCHNG 055 LM00082
1 , TRANSFER TO EDIT 055 LM00083
02120 CLA +0 50000 0 00677 02121 SUB +0 40200 0 01473 02122 TNZ -0 10000 0 02130 02123 CLA +0 50000 0 00122
02124 SUB +0 40200 0 01523 02125 TZE +0 10000 0 02130 02126 TPL +0 12000 0 02130 02127 TRA +0 02000 0 00055
WRITE.(LINE, LENGTH) 056 LM00084
02130 TSX +0 07400 4 00037 02131 TXH +3 00000 0 01471 02132 TXH +3 00000 0 00717
THROUGH MVLP, FOR I = 1, 1, I .G. COUNT 057 LM00085
02133 CLA +0 50000 0 01521 02134 STO +0 60100 0 00714 02135 TRA +0 02000 0 02141 02136 CLA +0 50000 0 00714
02137 ADD +0 40000 0 01521 02140 STO +0 60100 0 00714 02141 CLA +0 50000 0 00714 02142 SUB +0 40200 0 00122
02143 TZE +0 10000 0 02145 02144 TPL +0 12000 0 02152
MVLP LINE(I) = EDLIN(I) 058 LM00086
02145 LXA +0 53400 1 00714 02146 LXA +0 53400 2 00714 02147 CLA +0 50000 2 00700 02150 STO +0 60100 1 01471
02151 TRA +0 02000 0 02136
LENGTH = COUNT 059 LM00087
02152 CLA +0 50000 0 00122 02153 STO +0 60100 0 00717
TRANSFER TO INPUT 060 LM00088
02154 TRA +0 02000 0 00064
OR WHENEVER CWD .E. $BOTTOM$ .OR. CWD .E. $ B$ 061 LM00090
02155 TRA +0 02000 0 03673 02156 CLA +0 50000 0 00123 02157 SUB +0 40200 0 01614 02160 TZE +0 10000 0 02164
02161 CLA +0 50000 0 00123 02162 SUB +0 40200 0 01562 02163 TNZ -0 10000 0 02176
WRITE.(LINE, LENGTH) 062 LM00091
02164 TSX +0 07400 4 00037 02165 TXH +3 00000 0 01471 02166 TXH +3 00000 0 00717
LENGTH = 0 063 LM00092
02167 CLA +0 50000 0 01520 02170 STO +0 60100 0 00717
WHENEVER OK, BOTTOM. 064 LM00093
02171 NZT -0 52000 0 01500 02172 TRA +0 02000 0 02174 02173 TSX +0 07400 4 00003
TRANSFER TO INSERT 065 LM00094
02174 TRA +0 02000 0 00065
OR WHENEVER CWD .E. $APPEND$ .OR. CWD .E. $ A$ 066 LM00096
02175 TRA +0 02000 0 03673 02176 CLA +0 50000 0 00123 02177 SUB +0 40200 0 01613 02200 TZE +0 10000 0 02204
02201 CLA +0 50000 0 00123 02202 SUB +0 40200 0 01561 02203 TNZ -0 10000 0 02215
WHENEVER LENGTH .G. 0, LENGTH = LENGTH - 1 067 LM00097
02204 CLA +0 50000 0 00717 02205 SUB +0 40200 0 01520 02206 TZE +0 10000 0 02213 02207 TMI -0 12000 0 02213
02210 CLA +0 50000 0 00717 02211 SUB +0 40200 0 01521 02212 STO +0 60100 0 00717
TRANSFER TO APPEND 068 LM00098
02213 TRA +0 02000 0 00046
OR WHENEVER CWD .E. $RETYPE$ .OR. CWD .E. $ R$ 069 LM00100
02214 TRA +0 02000 0 03673 02215 CLA +0 50000 0 00123 02216 SUB +0 40200 0 01630 02217 TZE +0 10000 0 02223
02220 CLA +0 50000 0 00123 02221 SUB +0 40200 0 01571 02222 TNZ -0 10000 0 02251
RETYPE LENGTH = 0 070 LM00101
02223 CLA +0 50000 0 01520 02224 STO +0 60100 0 00717
APPEND THROUGH RPLC, FOR EDCT = EDCT + 1, 1, EDCT .G. COUNT 071 LM00102
02225 CLA +0 50000 0 00126 02226 ADD +0 40000 0 01521 02227 STO +0 60100 0 00126 02230 TRA +0 02000 0 02234
02231 CLA +0 50000 0 00126 02232 ADD +0 40000 0 01521 02233 STO +0 60100 0 00126 02234 CLA +0 50000 0 00126
02235 SUB +0 40200 0 00122 02236 TZE +0 10000 0 02240 02237 TPL +0 12000 0 02250
LENGTH = LENGTH + 1 072 LM00103
02240 CLA +0 50000 0 00717 02241 ADD +0 40000 0 01521 02242 STO +0 60100 0 00717
RPLC LINE(LENGTH) = EDLIN(EDCT) 073 LM00104
02243 LXA +0 53400 1 00717 02244 LXA +0 53400 2 00126 02245 CLA +0 50000 2 00700 02246 STO +0 60100 1 01471
02247 TRA +0 02000 0 02231
OR WHENEVER CWD .E. $ ERASE$ .OR. CWD .E. $ E$ 074 LM00106
02250 TRA +0 02000 0 03673 02251 CLA +0 50000 0 00123 02252 SUB +0 40200 0 01617 02253 TZE +0 10000 0 02257
02254 CLA +0 50000 0 00123 02255 SUB +0 40200 0 01574 02256 TNZ -0 10000 0 02275
WHENEVER EDLIN(EDCT+1) .NE. BLANK, SETERS.(EDLIN(EDCT+1)) 075 LM00107
02257 CLA +0 50000 0 00126 02260 ADD +0 40000 0 01521 02261 PAX +0 73400 1 00000 02262 CLA +0 50000 1 00700
02263 SUB +0 40200 0 00113 02264 TZE +0 10000 0 02274 02265 CLA +0 50000 0 00126 02266 ADD +0 40000 0 01521
02267 SUB +0 40200 0 02270 02270 TXH +3 00000 0 00700 02271 STA +0 62100 0 02273 02272 TSX +0 07400 4 00027
02273 TXH +3 00000 0 00000
OR WHENEVER CWD .E. $ KILL$ .OR. CWD .E. $ K$ 076 LM00109
02274 TRA +0 02000 0 03673 02275 CLA +0 50000 0 00123 02276 SUB +0 40200 0 01623 02277 TZE +0 10000 0 02303
02300 CLA +0 50000 0 00123 02301 SUB +0 40200 0 01602 02302 TNZ -0 10000 0 02321
WHENEVER EDLIN(EDCT+1) .NE. BLANK, SETKIL.(EDLIN(EDCT+1)) 077 LM00110
02303 CLA +0 50000 0 00126 02304 ADD +0 40000 0 01521 02305 PAX +0 73400 1 00000 02306 CLA +0 50000 1 00700
02307 SUB +0 40200 0 00113 02310 TZE +0 10000 0 02320 02311 CLA +0 50000 0 00126 02312 ADD +0 40000 0 01521
02313 SUB +0 40200 0 02314 02314 TXH +3 00000 0 00700 02315 STA +0 62100 0 02317 02316 TSX +0 07400 4 00030
02317 TXH +3 00000 0 00000
O'R CWD .E. $ BKSP$ .OR. CWD .E. $ BK$ 078 LM00112
02320 TRA +0 02000 0 03673 02321 CLA +0 50000 0 00123 02322 SUB +0 40200 0 01610 02323 TZE +0 10000 0 02327
02324 CLA +0 50000 0 00123 02325 SUB +0 40200 0 01577 02326 TNZ -0 10000 0 02345
W'R EDLIN(EDCT+1) .NE. BLANK, SETBK.(EDLIN(EDCT+1)) 079 LM00113
02327 CLA +0 50000 0 00126 02330 ADD +0 40000 0 01521 02331 PAX +0 73400 1 00000 02332 CLA +0 50000 1 00700
02333 SUB +0 40200 0 00113 02334 TZE +0 10000 0 02344 02335 CLA +0 50000 0 00126 02336 ADD +0 40000 0 01521
02337 SUB +0 40200 0 02340 02340 TXH +3 00000 0 00700 02341 STA +0 62100 0 02343 02342 TSX +0 07400 4 00025
02343 TXH +3 00000 0 00000
OR WHENEVER CWD .E. $VERIFY$ .OR. CWD .E. $ V$ 080 LM00115
02344 TRA +0 02000 0 03673 02345 CLA +0 50000 0 00123 02346 SUB +0 40200 0 01635 02347 TZE +0 10000 0 02353
02350 CLA +0 50000 0 00123 02351 SUB +0 40200 0 01644 02352 TNZ -0 10000 0 02372
CWD = GET.(0) 081 LM00116
02353 TSX +0 07400 4 00042 02354 TXH +3 00000 0 01520 02355 STO +0 60100 0 00123
WHENEVER CWD .E. $ ON$ 082 LM00117
02356 CLA +0 50000 0 00123 02357 SUB +0 40200 0 01612 02360 TNZ -0 10000 0 02364
BRIEF = 0B 083 LM00118
02361 CLA +0 50000 0 01520 02362 STO +0 60100 0 00114
OR WHENEVER CWD .E. $ OFF$ 084 LM00119
02363 TRA +0 02000 0 02371 02364 CLA +0 50000 0 00123 02365 SUB +0 40200 0 01607 02366 TNZ -0 10000 0 02371
BRIEF = 1B 085 LM00120
02367 CLA +0 50000 0 01521 02370 STO +0 60100 0 00114
END OF CONDITIONAL 086 LM00121
OR WHENEVER CWD .E. $LOCATE$ .OR. CWD .E. $ L$ 087 LM00123
02371 TRA +0 02000 0 03673 02372 CLA +0 50000 0 00123 02373 SUB +0 40200 0 01624 02374 TZE +0 10000 0 02400
02375 CLA +0 50000 0 00123 02376 SUB +0 40200 0 01567 02377 TNZ -0 10000 0 02404
LOCATE = 1 088 LM00124
02400 CLA +0 50000 0 01521 02401 STO +0 60100 0 01472
TRANSFER TO FIND 089 LM00125
02402 TRA +0 02000 0 00057
OR WHENEVER CWD .E. $ FIND$ .OR. CWD .E. $ F$ 090 LM00127
02403 TRA +0 02000 0 03673 02404 CLA +0 50000 0 00123 02405 SUB +0 40200 0 01620 02406 TZE +0 10000 0 02412
02407 CLA +0 50000 0 00123 02410 SUB +0 40200 0 01601 02411 TNZ -0 10000 0 02575
LOCATE = 0 091 LM00128
02412 CLA +0 50000 0 01520 02413 STO +0 60100 0 01472
FIND WHENEVER EDCT+1 .GE. COUNT 092 LM00129
02414 CLA +0 50000 0 00126 02415 ADD +0 40000 0 01521 02416 SUB +0 40200 0 00122 02417 TZE +0 10000 0 02421
02420 TMI -0 12000 0 02426
COUNT = OCOUNT 093 LM00130
02421 CLA +0 50000 0 01477 02422 STO +0 60100 0 00122
EDCT = EDCT + 1 094 LM00131
02423 CLA +0 50000 0 00126 02424 ADD +0 40000 0 01521 02425 STO +0 60100 0 00126
END OF CONDITIONAL 095 LM00132
OCOUNT = COUNT 096 LM00133
02426 CLA +0 50000 0 00122 02427 STO +0 60100 0 01477
NTFND WRITE.(LINE, LENGTH) 097 LM00134
02430 TSX +0 07400 4 00037 02431 TXH +3 00000 0 01471 02432 TXH +3 00000 0 00717
WHENEVER .NOT. OK, CLSOUT. 098 LM00135
02433 ZET +0 52000 0 01500 02434 TRA +0 02000 0 02436 02435 TSX +0 07400 4 00041
LENGTH = READ.(LINE, BUFSIZ, EOF) 099 LM00136
02436 TSX +0 07400 4 00022 02437 TXH +3 00000 0 01471 02440 TXH +3 00000 0 00115 02441 TXH +3 00000 0 00056
02442 STO +0 60100 0 00717
THROUGH LOCSCN, FOR K=0, 1,K.G.LOCATE*(LENGTH-COUNT+EDCT) 100 LM00137
02443 CLA +0 50000 0 01520 02444 STO +0 60100 0 00716 02445 TRA +0 02000 0 02451 02446 CLA +0 50000 0 00716
02447 ADD +0 40000 0 01521 02450 STO +0 60100 0 00716 02451 CLA +0 50000 0 00717 02452 SUB +0 40200 0 00122
02453 ADD +0 40000 0 00126 02454 XCA +0 13100 0 00000 02455 MPY +0 20000 0 01472 02456 XCA +0 13100 0 00000
02457 CHS +0 76000 0 00002 02460 ADD +0 40000 0 00716 02461 TZE +0 10000 0 02463 02462 TPL +0 12000 0 02573
J = K 101 LM00138
02463 CLA +0 50000 0 00716 02464 STO +0 60100 0 00715
THROUGH LOOK, FOR I = EDCT+1, 1, I .GE. COUNT 102 LM00139
02465 CLA +0 50000 0 00126 02466 ADD +0 40000 0 01521 02467 STO +0 60100 0 00714 02470 TRA +0 02000 0 02474
02471 CLA +0 50000 0 00714 02472 ADD +0 40000 0 01521 02473 STO +0 60100 0 00714 02474 CLA +0 50000 0 00714
02475 SUB +0 40200 0 00122 02476 TZE +0 10000 0 02562 02477 TPL +0 12000 0 02562
J = J + 1 103 LM00140
02500 CLA +0 50000 0 00715 02501 ADD +0 40000 0 01521 02502 STO +0 60100 0 00715
TAGN WHENEVER LINE(J) .E. EDLIN(I), TRANSFER TO LOOK 104 LM00141
02503 LXA +0 53400 1 00715 02504 LXA +0 53400 2 00714 02505 CLA +0 50000 1 01471 02506 SUB +0 40200 2 00700
02507 TNZ -0 10000 0 02511 02510 TRA +0 02000 0 00067
WHENEVER (LINE(J).E. TAB) .AND. (EDLIN(I) .E. BLANK) 105 LM00142
1 , TRANSFER TO LOOK 105 LM00143
02511 LXA +0 53400 1 00714 02512 CLA +0 50000 1 00700 02513 SUB +0 40200 0 00113 02514 TNZ -0 10000 0 02522
02515 LXA +0 53400 1 00715 02516 CLA +0 50000 1 01471 02517 SUB +0 40200 0 01512 02520 TNZ -0 10000 0 02522
02521 TRA +0 02000 0 00067
WHENEVER EDLIN(I-1) .NE. BLANK .OR. I .E. EDCT + 1 106 LM00144
1 , TRANSFER TO LOCSCN 106 LM00145
02522 CLA +0 50000 0 00126 02523 ADD +0 40000 0 01521 02524 CHS +0 76000 0 00002 02525 ADD +0 40000 0 00714
02526 TZE +0 10000 0 02535 02527 CLA +0 50000 0 00714 02530 SUB +0 40200 0 01521 02531 PAX +0 73400 1 00000
02532 CLA +0 50000 1 00700 02533 SUB +0 40200 0 00113 02534 TZE +0 10000 0 02536 02535 TRA +0 02000 0 00066
WHENEVER LINE(J) .NE. BLANK .AND. LINE(J) .NE. TAB 107 LM00146
1 , TRANSFER TO LOCSCN 107 LM00147
02536 LXA +0 53400 1 00715 02537 CLA +0 50000 1 01471 02540 SUB +0 40200 0 01512 02541 TZE +0 10000 0 02546
02542 CLA +0 50000 1 01471 02543 SUB +0 40200 0 00113 02544 TZE +0 10000 0 02546 02545 TRA +0 02000 0 00066
J = J + 1 108 LM00148
02546 CLA +0 50000 0 00715 02547 ADD +0 40000 0 01521 02550 STO +0 60100 0 00715
TRANSFER TO TAGN 109 LM00149
02551 TRA +0 02000 0 00103
LOOK WHENEVER I .E. EDCT+1, FNDST = J 110 LM00150
02552 CLA +0 50000 0 00126 02553 ADD +0 40000 0 01521 02554 CHS +0 76000 0 00002 02555 ADD +0 40000 0 00714
02556 TNZ -0 10000 0 02561 02557 CLA +0 50000 0 00715 02560 STO +0 60100 0 00705 02561 TRA +0 02000 0 02471
FNDND = J 111 LM00151
02562 CLA +0 50000 0 00715 02563 STO +0 60100 0 00704
WHENEVER .NOT. BRIEF, PRNT.(FNDST, FNDND) 112 LM00152
02564 ZET +0 52000 0 00114 02565 TRA +0 02000 0 02571 02566 TSX +0 07400 4 00043 02567 TXH +3 00000 0 00705
02570 TXH +3 00000 0 00704
TRANSFER TO NXRQ 113 LM00153
02571 TRA +0 02000 0 00074
LOCSCN CONTINUE 114 LM00154
02572 TRA +0 02000 0 02446
TRANSFER TO NTFND 115 LM00155
02573 TRA +0 02000 0 00073
OR WHENEVER CWD .E. $ PRINT$ .OR. CWD .E. $ P$ 116 LM00157
02574 TRA +0 02000 0 03673 02575 CLA +0 50000 0 00123 02576 SUB +0 40200 0 01626 02577 TZE +0 10000 0 02603
02600 CLA +0 50000 0 00123 02601 SUB +0 40200 0 01576 02602 TNZ -0 10000 0 02651
NPRNT = BIN.(GET.(0)) 117 LM00158
02603 TSX +0 07400 4 00042 02604 TXH +3 00000 0 01520 02605 STO +0 60100 0 04656 02606 TSX +0 07400 4 00001
02607 TXH +3 00000 0 04656 02610 STO +0 60100 0 01475
PNTLP WHENEVER LENGTH .E. 0 118 LM00159
02611 CLA +0 50000 0 00717 02612 SUB +0 40200 0 01520 02613 TNZ -0 10000 0 02625
PRINT COMMENT $0N1O0 1C1U1R1R1E1N1T0 1L1I1N1E0.$ 119 LM00160
02614 TSX +0 07400 4 00016 02615 +0 00000 0 00006 02616 +0 04501 4 60060 02617 +0 12301 6 40151
02620 +0 15101 2 50145 02621 +0 16300 6 00143 02622 +0 13101 4 50125 02623 +0 03360 6 06060
OTHERWISE 120 LM00161
02624 TRA +0 02000 0 02630
TYPOUT.(LINE, LENGTH) 121 LM00162
02625 TSX +0 07400 4 00035 02626 TXH +3 00000 0 01471 02627 TXH +3 00000 0 00717
END OF CONDITIONAL 122 LM00163
NPRNT = NPRNT - 1 123 LM00164
02630 CLA +0 50000 0 01475 02631 SUB +0 40200 0 01521 02632 STO +0 60100 0 01475
WHENEVER NPRNT .G. 0 124 LM00165
02633 CLA +0 50000 0 01475 02634 SUB +0 40200 0 01520 02635 TZE +0 10000 0 02650 02636 TMI -0 12000 0 02650
WRITE.(LINE, LENGTH) 125 LM00166
02637 TSX +0 07400 4 00037 02640 TXH +3 00000 0 01471 02641 TXH +3 00000 0 00717
LENGTH = READ.(LINE, BUFSIZ, EOF) 126 LM00167
02642 TSX +0 07400 4 00022 02643 TXH +3 00000 0 01471 02644 TXH +3 00000 0 00115 02645 TXH +3 00000 0 00056
02646 STO +0 60100 0 00717
TRANSFER TO PNTLP 127 LM00168
02647 TRA +0 02000 0 00075
END OF CONDITIONAL 128 LM00169
OR WHENEVER CWD .E. $ TOP$ .OR. CWD .E. $ T$ 129 LM00171
02650 TRA +0 02000 0 03673 02651 CLA +0 50000 0 00123 02652 SUB +0 40200 0 01634 02653 TZE +0 10000 0 02657
02654 CLA +0 50000 0 00123 02655 SUB +0 40200 0 01640 02656 TNZ -0 10000 0 02667
TOPLP WRITE.(LINE, LENGTH) 130 LM00172
02657 TSX +0 07400 4 00037 02660 TXH +3 00000 0 01471 02661 TXH +3 00000 0 00717
WHENEVER OK, BOTTOM. 131 LM00173
02662 NZT -0 52000 0 01500 02663 TRA +0 02000 0 02665 02664 TSX +0 07400 4 00003
CLSOUT. 132 LM00174
02665 TSX +0 07400 4 00041
OR WHENEVER CWD .E. $CHANGE$ .OR. CWD .E. $ C$ 133 LM00176
02666 TRA +0 02000 0 03673 02667 CLA +0 50000 0 00123 02670 SUB +0 40200 0 01615 02671 TZE +0 10000 0 02675
02672 CLA +0 50000 0 00123 02673 SUB +0 40200 0 01564 02674 TNZ -0 10000 0 03257
EDCT = EDCT+1 134 LM00182
02675 CLA +0 50000 0 00126 02676 ADD +0 40000 0 01521 02677 STO +0 60100 0 00126
QUOTE = EDLIN(EDCT) 135 LM00183
02700 LXA +0 53400 2 00126 02701 CLA +0 50000 2 00700 02702 STO +0 60100 0 01504
STR1 = EDCT 136 LM00184
02703 CLA +0 50000 0 00126 02704 STO +0 60100 0 01510
QLOOP THROUGH QLOOP, FOR EDCT = EDCT+1, 1, 137 LM00185
1 (EDLIN(EDCT) .E. QUOTE) .OR. (EDCT .GE. COUNT) 137 LM00186
02705 CLA +0 50000 0 00126 02706 ADD +0 40000 0 01521 02707 STO +0 60100 0 00126 02710 TRA +0 02000 0 02714
02711 CLA +0 50000 0 00126 02712 ADD +0 40000 0 01521 02713 STO +0 60100 0 00126 02714 CLA +0 50000 0 00126
02715 SUB +0 40200 0 00122 02716 TZE +0 10000 0 02725 02717 TPL +0 12000 0 02725 02720 LXA +0 53400 1 00126
02721 CLA +0 50000 1 00700 02722 SUB +0 40200 0 01504 02723 TZE +0 10000 0 02725 02724 TRA +0 02000 0 02711
STR2 = EDCT 138 LM00187
02725 CLA +0 50000 0 00126 02726 STO +0 60100 0 01511
QLOOP1 THROUGH QLOOP1, FOR EDCT = EDCT+1, 1, 139 LM00188
1 (EDLIN(EDCT) .E. QUOTE) .OR. (EDCT .GE. COUNT) 139 LM00189
02727 CLA +0 50000 0 00126 02730 ADD +0 40000 0 01521 02731 STO +0 60100 0 00126 02732 TRA +0 02000 0 02736
02733 CLA +0 50000 0 00126 02734 ADD +0 40000 0 01521 02735 STO +0 60100 0 00126 02736 CLA +0 50000 0 00126
02737 SUB +0 40200 0 00122 02740 TZE +0 10000 0 02747 02741 TPL +0 12000 0 02747 02742 LXA +0 53400 1 00126
02743 CLA +0 50000 1 00700 02744 SUB +0 40200 0 01504 02745 TZE +0 10000 0 02747 02746 TRA +0 02000 0 02733
EST2 = EDCT 140 LM00190
02747 CLA +0 50000 0 00126 02750 STO +0 60100 0 00701
EDCT = EDCT + 1 141 LM00194
02751 CLA +0 50000 0 00126 02752 ADD +0 40000 0 01521 02753 STO +0 60100 0 00126
TEM = 1 142 LM00195
02754 CLA +0 50000 0 01521 02755 STO +0 60100 0 01514
GLOBAL = 0B 143 LM00196
02756 CLA +0 50000 0 01520 02757 STO +0 60100 0 00710
ARGLP CWD = GET.(0) 144 LM00197
02760 TSX +0 07400 4 00042 02761 TXH +3 00000 0 01520 02762 STO +0 60100 0 00123
WHENEVER CWD .E. $ $ 145 LM00198
02763 CLA +0 50000 0 00123 02764 SUB +0 40200 0 01632 02765 TNZ -0 10000 0 02770
TRANSFER TO SHIFT 146 LM00199
02766 TRA +0 02000 0 00077
OR WHENEVER CWD .E. $ G$ 147 LM00200
02767 TRA +0 02000 0 03006 02770 CLA +0 50000 0 00123 02771 SUB +0 40200 0 01621 02772 TNZ -0 10000 0 03003
WHENEVER STR2 .NE. STR1+1, GLOBAL = 1B 148 LM00201
02773 CLA +0 50000 0 01510 02774 ADD +0 40000 0 01521 02775 CHS +0 76000 0 00002 02776 ADD +0 40000 0 01511
02777 TZE +0 10000 0 03002 03000 CLA +0 50000 0 01521 03001 STO +0 60100 0 00710
OTHERWISE 149 LM00202
03002 TRA +0 02000 0 03006
TEM = BIN.(CWD) 150 LM00203
03003 TSX +0 07400 4 00001 03004 TXH +3 00000 0 00123 03005 STO +0 60100 0 01514
END OF CONDITIONAL 151 LM00204
TRANSFER TO ARGLP 152 LM00205
03006 TRA +0 02000 0 00047
SHIFT THROUGH MVDWN, FOR I = LENGTH, -1, I .L. 1 153 LM00209
03007 CLA +0 50000 0 00717 03010 STO +0 60100 0 00714 03011 TRA +0 02000 0 03015 03012 CLS +0 50200 0 01521
03013 ADD +0 40000 0 00714 03014 STO +0 60100 0 00714 03015 CLA +0 50000 0 00714 03016 SUB +0 40200 0 01521
03017 TZE +0 10000 0 03021 03020 TMI -0 12000 0 03031
MVDWN LINE(BUFSIZ+I-LENGTH) = LINE(I) 154 LM00210
03021 CLA +0 50000 0 00115 03022 ADD +0 40000 0 00714 03023 SUB +0 40200 0 00717 03024 PAX +0 73400 1 00000
03025 LXA +0 53400 2 00714 03026 CLA +0 50000 2 01471 03027 STO +0 60100 1 01471 03030 TRA +0 02000 0 03012
DOWN = BUFSIZ-LENGTH+1 155 LM00211
03031 CLA +0 50000 0 00115 03032 SUB +0 40200 0 00717 03033 ADD +0 40000 0 01521 03034 STO +0 60100 0 00125
UP = 0 156 LM00212
03035 CLA +0 50000 0 01520 03036 STO +0 60100 0 01516
CHNG = 0B 157 LM00213
03037 CLA +0 50000 0 01520 03040 STO +0 60100 0 00117
CHST = LENGTH + 1 158 LM00214
03041 CLA +0 50000 0 00717 03042 ADD +0 40000 0 01521 03043 STO +0 60100 0 00120
CHEND = LENGTH 159 LM00215
03044 CLA +0 50000 0 00717 03045 STO +0 60100 0 00116
SRCHLP UP = UP + 1 160 LM00219
03046 CLA +0 50000 0 01516 03047 ADD +0 40000 0 01521 03050 STO +0 60100 0 01516
SRTST WHENEVER DOWN .G. BUFSIZ, TRANSFER TO GIVUP 161 LM00220
03051 CLA +0 50000 0 00125 03052 SUB +0 40200 0 00115 03053 TZE +0 10000 0 03056 03054 TMI -0 12000 0 03056
03055 TRA +0 02000 0 00060
J = DOWN 162 LM00221
03056 CLA +0 50000 0 00125 03057 STO +0 60100 0 00715
THROUGH COMPAR, FOR I = STR1+1, 1, I .GE. STR2 163 LM00222
03060 CLA +0 50000 0 01510 03061 ADD +0 40000 0 01521 03062 STO +0 60100 0 00714 03063 TRA +0 02000 0 03067
03064 CLA +0 50000 0 00714 03065 ADD +0 40000 0 01521 03066 STO +0 60100 0 00714 03067 CLA +0 50000 0 00714
03070 SUB +0 40200 0 01511 03071 TZE +0 10000 0 03112 03072 TPL +0 12000 0 03112
WHENEVER J .GE. BUFSIZ, TRANSFER TO GIVUP 164 LM00223
03073 CLA +0 50000 0 00715 03074 SUB +0 40200 0 00115 03075 TZE +0 10000 0 03077 03076 TMI -0 12000 0 03100
03077 TRA +0 02000 0 00060
WHENEVER EDLIN(I) .NE. LINE(J), TRANSFER TO NOCOMP 165 LM00224
03100 LXA +0 53400 1 00714 03101 LXA +0 53400 2 00715 03102 CLA +0 50000 1 00700 03103 SUB +0 40200 2 01471
03104 TZE +0 10000 0 03106 03105 TRA +0 02000 0 00071
COMPAR J = J + 1 166 LM00225
03106 CLA +0 50000 0 00715 03107 ADD +0 40000 0 01521 03110 STO +0 60100 0 00715 03111 TRA +0 02000 0 03064
TRANSFER TO STFND 167 LM00226
03112 TRA +0 02000 0 00102
NOCOMP LINE(UP) = LINE(DOWN) 168 LM00228
03113 LXA +0 53400 1 01516 03114 LXA +0 53400 2 00125 03115 CLA +0 50000 2 01471 03116 STO +0 60100 1 01471
DOWN = DOWN + 1 169 LM00229
03117 CLA +0 50000 0 00125 03120 ADD +0 40000 0 01521 03121 STO +0 60100 0 00125
TRANSFER TO SRCHLP 170 LM00230
03122 TRA +0 02000 0 00100
STFND CHNG = 1B 171 LM00234
03123 CLA +0 50000 0 01521 03124 STO +0 60100 0 00117
DOWN = DOWN + (STR2-STR1-1) 172 LM00235
03125 CLA +0 50000 0 01511 03126 SUB +0 40200 0 01510 03127 SUB +0 40200 0 01521 03130 ADD +0 40000 0 00125
03131 STO +0 60100 0 00125
CHST = UP 173 LM00236
03132 CLA +0 50000 0 01516 03133 STO +0 60100 0 00120
THROUGH REPLAC, FOR I = STR2 + 1, 1, I .GE. EST2 174 LM00237
03134 CLA +0 50000 0 01511 03135 ADD +0 40000 0 01521 03136 STO +0 60100 0 00714 03137 TRA +0 02000 0 03143
03140 CLA +0 50000 0 00714 03141 ADD +0 40000 0 01521 03142 STO +0 60100 0 00714 03143 CLA +0 50000 0 00714
03144 SUB +0 40200 0 00701 03145 TZE +0 10000 0 03164 03146 TPL +0 12000 0 03164
LINE(UP) = EDLIN(I) 175 LM00238
03147 LXA +0 53400 1 01516 03150 LXA +0 53400 2 00714 03151 CLA +0 50000 2 00700 03152 STO +0 60100 1 01471
UP = UP + 1 176 LM00239
03153 CLA +0 50000 0 01516 03154 ADD +0 40000 0 01521 03155 STO +0 60100 0 01516
REPLAC WHENEVER UP .G. DOWN, TRANSFER TO GIVUP 177 LM00240
03156 CLA +0 50000 0 01516 03157 SUB +0 40200 0 00125 03160 TZE +0 10000 0 03163 03161 TMI -0 12000 0 03163
03162 TRA +0 02000 0 00060 03163 TRA +0 02000 0 03140
CHEND = UP - 1 178 LM00241
03164 CLA +0 50000 0 01516 03165 SUB +0 40200 0 01521 03166 STO +0 60100 0 00116
WHENEVER GLOBAL, TRANSFER TO SRTST 179 LM00242
03167 NZT -0 52000 0 00710 03170 TRA +0 02000 0 03172 03171 TRA +0 02000 0 00101
GIVUP THROUGH FILOUT, FOR UP = UP, 1, DOWN .G. BUFSIZ 180 LM00246
03172 CLA +0 50000 0 01516 03173 STO +0 60100 0 01516 03174 TRA +0 02000 0 03200 03175 CLA +0 50000 0 01516
03176 ADD +0 40000 0 01521 03177 STO +0 60100 0 01516 03200 CLA +0 50000 0 00125 03201 SUB +0 40200 0 00115
03202 TZE +0 10000 0 03204 03203 TPL +0 12000 0 03214
LINE(UP) = LINE(DOWN) 181 LM00247
03204 LXA +0 53400 1 01516 03205 LXA +0 53400 2 00125 03206 CLA +0 50000 2 01471 03207 STO +0 60100 1 01471
FILOUT DOWN = DOWN + 1 182 LM00248
03210 CLA +0 50000 0 00125 03211 ADD +0 40000 0 01521 03212 STO +0 60100 0 00125 03213 TRA +0 02000 0 03175
LENGTH = UP - 1 183 LM00249
03214 CLA +0 50000 0 01516 03215 SUB +0 40200 0 01521 03216 STO +0 60100 0 00717
TEM = TEM - 1 184 LM00250
03217 CLA +0 50000 0 01514 03220 SUB +0 40200 0 01521 03221 STO +0 60100 0 01514
WHENEVER .NOT. BRIEF .AND. (TEM .G. 0 .THEN. CHNG) 185 LM00251
1 , PRNT.(CHST, CHEND) 185 LM00252
03222 ZET +0 52000 0 00117 03223 TRA +0 02000 0 03230 03224 CLA +0 50000 0 01514 03225 SUB +0 40200 0 01520
03226 TZE +0 10000 0 03230 03227 TPL +0 12000 0 03235 03230 ZET +0 52000 0 00114 03231 TRA +0 02000 0 03235
03232 TSX +0 07400 4 00043 03233 TXH +3 00000 0 00120 03234 TXH +3 00000 0 00116
CANON.(LINE, LENGTH, BUFSIZ) 186 LM00253
03235 TSX +0 07400 4 00004 03236 TXH +3 00000 0 01471 03237 TXH +3 00000 0 00717 03240 TXH +3 00000 0 00115
WHENEVER TEM .G. 0 187 LM00254
03241 CLA +0 50000 0 01514 03242 SUB +0 40200 0 01520 03243 TZE +0 10000 0 03256 03244 TMI -0 12000 0 03256
WRITE.(LINE, LENGTH) 188 LM00255
03245 TSX +0 07400 4 00037 03246 TXH +3 00000 0 01471 03247 TXH +3 00000 0 00717
LENGTH = READ.(LINE, BUFSIZ, EOF) 189 LM00256
03250 TSX +0 07400 4 00022 03251 TXH +3 00000 0 01471 03252 TXH +3 00000 0 00115 03253 TXH +3 00000 0 00056
03254 STO +0 60100 0 00717
TRANSFER TO SHIFT 190 LM00257
03255 TRA +0 02000 0 00077
END OF CONDITIONAL 191 LM00258
OR WHENEVER CWD .E. $ SPLIT$ .OR. CWD .E. $ S$ 192 LM00262
03256 TRA +0 02000 0 03673 03257 CLA +0 50000 0 00123 03260 SUB +0 40200 0 01633 03261 TZE +0 10000 0 03265
03262 CLA +0 50000 0 00123 03263 SUB +0 40200 0 01641 03264 TNZ -0 10000 0 03346
TOPNAM = GET.(0) 193 LM00263
03265 TSX +0 07400 4 00042 03266 TXH +3 00000 0 01520 03267 STO +0 60100 0 01515
WHENEVER TOPNAM .E. $ $, TRANSFER TO NONAME 194 LM00264
03270 CLA +0 50000 0 01515 03271 SUB +0 40200 0 01632 03272 TNZ -0 10000 0 03274 03273 TRA +0 02000 0 00072
WHENEVER TOPNAM .E. OLDNAM .AND. FSTPAS 195 LM00265
03274 NZT -0 52000 0 00707 03275 TRA +0 02000 0 03314 03276 CLA +0 50000 0 01515 03277 SUB +0 40200 0 01501
03300 TNZ -0 10000 0 03314
NEWNM PRINT COMMENT $0P1L1E1A1S1E0 1U1S1E0 1A1N1O1T1H1E1R0 1N1A 196 LM00266
11M1E0.$ 196 LM00267
03301 TSX +0 07400 4 00016 03302 +0 00000 0 00010 03303 +0 04701 4 30125 03304 +0 12101 6 20125
03305 +0 06001 6 40162 03306 +0 12500 6 00121 03307 +0 14501 4 60163 03310 +0 13001 2 50151
03311 +0 06001 4 50121 03312 +0 14401 2 50033
TRANSFER TO NXRQ 197 LM00268
03313 TRA +0 02000 0 00074
END OF CONDITIONAL 198 LM00269
SECNAM = GET.(0) 199 LM00270
03314 TSX +0 07400 4 00042 03315 TXH +3 00000 0 01520 03316 STO +0 60100 0 01507
WHENEVER SECNAM .E. $ $, SECNAM = OLDSEC 200 LM00271
03317 CLA +0 50000 0 01507 03320 SUB +0 40200 0 01632 03321 TNZ -0 10000 0 03324 03322 CLA +0 50000 0 01502
03323 STO +0 60100 0 01507
CLRNAM.(TOPNAM, SECNAM, NEWNM, 1B) 201 LM00272
03324 TSX +0 07400 4 00007 03325 TXH +3 00000 0 01515 03326 TXH +3 00000 0 01507 03327 TXH +3 00000 0 00070
03330 TXH +3 00000 0 01521
CLOSEW. 202 LM00273
03331 TSX +0 07400 4 00006
RENAME.(IN, FI, TOPNAM, SECNAM) 203 LM00274
03332 TSX +0 07400 4 00023 03333 TXH +3 00000 0 00713 03334 TXH +3 00000 0 00703 03335 TXH +3 00000 0 01515
03336 TXH +3 00000 0 01507
ASSIGN.(IN, FI) 204 LM00275
03337 TSX +0 07400 4 00000 03340 TXH +3 00000 0 00713 03341 TXH +3 00000 0 00703
OLDNAM = FENCE 205 LM00276
03342 CLA +0 50000 0 00702 03343 STO +0 60100 0 01501
TRANSFER TO TOPLP 206 LM00277
03344 TRA +0 02000 0 00104
OR WHENEVER CWD .E. $ QUIT$ .OR. CWD .E. $ Q$ 207 LM00279
03345 TRA +0 02000 0 03673 03346 CLA +0 50000 0 00123 03347 SUB +0 40200 0 01627 03350 TZE +0 10000 0 03354
03351 CLA +0 50000 0 00123 03352 SUB +0 40200 0 01604 03353 TNZ -0 10000 0 03370
ENDRD. 208 LM00280
03354 TSX +0 07400 4 00012
CLOSEW. 209 LM00281
03355 TSX +0 07400 4 00006
DELFIL.(IN1, FI, DLQ1) 210 LM00282
03356 TSX +0 07400 4 00011 03357 TXH +3 00000 0 00711 03360 TXH +3 00000 0 00703 03361 TXH +3 00000 0 00053
DLQ1 DELFIL.(IN, FI, DLQ2) 211 LM00283
03362 TSX +0 07400 4 00011 03363 TXH +3 00000 0 00713 03364 TXH +3 00000 0 00703 03365 TXH +3 00000 0 00054
DLQ2 TRANSFER TO CHN 212 LM00284
03366 TRA +0 02000 0 00050
O'R CWD .E. $TABSET$ .OR. CWD .E. $ TB$ 213 LM00286
03367 TRA +0 02000 0 03673 03370 CLA +0 50000 0 00123 03371 SUB +0 40200 0 01637 03372 TZE +0 10000 0 03376
03373 CLA +0 50000 0 00123 03374 SUB +0 40200 0 01643 03375 TNZ -0 10000 0 03425
TB = GET.(0) 214 LM00287
03376 TSX +0 07400 4 00042 03377 TXH +3 00000 0 01520 03400 STO +0 60100 0 01513
W'R TB .E. $ *$ 215 LM00288
03401 CLA +0 50000 0 01513 03402 SUB +0 40200 0 01631 03403 TNZ -0 10000 0 03406
TBINIT. 216 LM00289
03404 TSX +0 07400 4 00044
O'E 217 LM00290
03405 TRA +0 02000 0 03424
NEWTBS. 218 LM00291
03406 TSX +0 07400 4 00021
GTTB W'R TB .E. $ $, T'O NXRQ 219 LM00292
03407 CLA +0 50000 0 01513 03410 SUB +0 40200 0 01632 03411 TNZ -0 10000 0 03413 03412 TRA +0 02000 0 00074
TABSET.(BIN.(TB)) 220 LM00293
03413 TSX +0 07400 4 00001 03414 TXH +3 00000 0 01513 03415 STO +0 60100 0 04656 03416 TSX +0 07400 4 00033
03417 TXH +3 00000 0 04656
TB = GET.(0) 221 LM00294
03420 TSX +0 07400 4 00042 03421 TXH +3 00000 0 01520 03422 STO +0 60100 0 01513
T'O GTTB 222 LM00295
03423 TRA +0 02000 0 00063
E'L 223 LM00296
O'R CWD .E. $ BKSET$ 224 LM00298
03424 TRA +0 02000 0 03673 03425 CLA +0 50000 0 00123 03426 SUB +0 40200 0 01573 03427 TNZ -0 10000 0 03452
BK = GET.(0) 225 LM00299
03430 TSX +0 07400 4 00042 03431 TXH +3 00000 0 01520 03432 STO +0 60100 0 00110
NEWBKS. 226 LM00300
03433 TSX +0 07400 4 00020
GTBK W'R BK .E. $ $, T'O NXRQ 227 LM00301
03434 CLA +0 50000 0 00110 03435 SUB +0 40200 0 01632 03436 TNZ -0 10000 0 03440 03437 TRA +0 02000 0 00074
BKSET.(BIN.(BK)) 228 LM00302
03440 TSX +0 07400 4 00001 03441 TXH +3 00000 0 00110 03442 STO +0 60100 0 04656 03443 TSX +0 07400 4 00002
03444 TXH +3 00000 0 04656
BK = GET.(0) 229 LM00303
03445 TSX +0 07400 4 00042 03446 TXH +3 00000 0 01520 03447 STO +0 60100 0 00110
T'O GTBK 230 LM00304
03450 TRA +0 02000 0 00061
O'R CWD .E. $SERIAL$ .OR. CWD .E. $ SR$ 231 LM00306
03451 TRA +0 02000 0 03673 03452 CLA +0 50000 0 00123 03453 SUB +0 40200 0 01636 03454 TZE +0 10000 0 03460
03455 CLA +0 50000 0 00123 03456 SUB +0 40200 0 01642 03457 TNZ -0 10000 0 03534
FSTNO = GET.(0) 232 LM00307
03460 TSX +0 07400 4 00042 03461 TXH +3 00000 0 01520 03462 STO +0 60100 0 00706
W'R FSTNO .E. $ OFF$ 233 LM00308
03463 CLA +0 50000 0 00706 03464 SUB +0 40200 0 01607 03465 TNZ -0 10000 0 03471
SINHB.(1) 234 LM00309
03466 TSX +0 07400 4 00032 03467 TXH +3 00000 0 01521
O'R FSTNO .E. $ ON$ 235 LM00310
03470 TRA +0 02000 0 03533 03471 CLA +0 50000 0 00706 03472 SUB +0 40200 0 01612 03473 TNZ -0 10000 0 03477
SINHB.(0) 236 LM00311
03474 TSX +0 07400 4 00032 03475 TXH +3 00000 0 01520
O'E 237 LM00312
03476 TRA +0 02000 0 03533
W'R FSTNO .E. $ $ 238 LM00313
03477 CLA +0 50000 0 00706 03500 SUB +0 40200 0 01632 03501 TNZ -0 10000 0 03507
FSTNO = 10 239 LM00314
03502 CLA +0 50000 0 01527 03503 STO +0 60100 0 00706
INCR = 10 240 LM00315
03504 CLA +0 50000 0 01527 03505 STO +0 60100 0 00712
O'E 241 LM00316
03506 TRA +0 02000 0 03526
FSTNO = BIN.(FSTNO) 242 LM00317
03507 TSX +0 07400 4 00001 03510 TXH +3 00000 0 00706 03511 STO +0 60100 0 00706
INCR = GET.(0) 243 LM00318
03512 TSX +0 07400 4 00042 03513 TXH +3 00000 0 01520 03514 STO +0 60100 0 00712
W'R INCR .E. $ $ 244 LM00319
03515 CLA +0 50000 0 00712 03516 SUB +0 40200 0 01632 03517 TNZ -0 10000 0 03523
INCR = 10 245 LM00320
03520 CLA +0 50000 0 01527 03521 STO +0 60100 0 00712
O'E 246 LM00321
03522 TRA +0 02000 0 03526
INCR = BIN.(INCR) 247 LM00322
03523 TSX +0 07400 4 00001 03524 TXH +3 00000 0 00712 03525 STO +0 60100 0 00712
E'L 248 LM00323
E'L 249 LM00324
SETSR.(FSTNO,INCR) 250 LM00325
03526 TSX +0 07400 4 00031 03527 TXH +3 00000 0 00706 03530 TXH +3 00000 0 00712
SINHB.(0) 251 LM00326
03531 TSX +0 07400 4 00032 03532 TXH +3 00000 0 01520
E'L 252 LM00327
O'R CWD .E. $ NCOLS$ .OR. CWD .E. $ NC$ 253 LM00329
03533 TRA +0 02000 0 03673 03534 CLA +0 50000 0 00123 03535 SUB +0 40200 0 01611 03536 TZE +0 10000 0 03542
03537 CLA +0 50000 0 00123 03540 SUB +0 40200 0 01575 03541 TNZ -0 10000 0 03561
NCOL = GET.(0) 254 LM00330
03542 TSX +0 07400 4 00042 03543 TXH +3 00000 0 01520 03544 STO +0 60100 0 01474
W'R NCOL .E. $ $ 255 LM00331
03545 CLA +0 50000 0 01474 03546 SUB +0 40200 0 01632 03547 TNZ -0 10000 0 03553
SETCOL.(72) 256 LM00332
03550 TSX +0 07400 4 00026 03551 TXH +3 00000 0 01560
O'E 257 LM00333
03552 TRA +0 02000 0 03560
SETCOL.(BIN.(NCOL)) 258 LM00334
03553 TSX +0 07400 4 00001 03554 TXH +3 00000 0 01474 03555 STO +0 60100 0 04656 03556 TSX +0 07400 4 00026
03557 TXH +3 00000 0 04656
E'L 259 LM00335
OR WHENEVER CWD .E. $ FILE$ 260 LM00337
03560 TRA +0 02000 0 03673 03561 CLA +0 50000 0 00123 03562 SUB +0 40200 0 01600 03563 TNZ -0 10000 0 03661
PRINAM = GET.(0) 261 LM00338
03564 TSX +0 07400 4 00042 03565 TXH +3 00000 0 01520 03566 STO +0 60100 0 01503
CLRSW = 1B 262 LM00339
03567 CLA +0 50000 0 01521 03570 STO +0 60100 0 00121
WHENEVER PRINAM .E. $ $ 263 LM00340
03571 CLA +0 50000 0 01503 03572 SUB +0 40200 0 01632 03573 TNZ -0 10000 0 03603
PRINAM = OLDNAM 264 LM00341
03574 CLA +0 50000 0 01501 03575 STO +0 60100 0 01503
SECNAM = OLDSEC 265 LM00342
03576 CLA +0 50000 0 01502 03577 STO +0 60100 0 01507
CLRSW = 0B 266 LM00343
03600 CLA +0 50000 0 01520 03601 STO +0 60100 0 00121
OTHERWISE 267 LM00344
03602 TRA +0 02000 0 03613
SECNAM = GET.(0) 268 LM00345
03603 TSX +0 07400 4 00042 03604 TXH +3 00000 0 01520 03605 STO +0 60100 0 01507
WHENEVER SECNAM .E. $ $ 269 LM00346
03606 CLA +0 50000 0 01507 03607 SUB +0 40200 0 01632 03610 TNZ -0 10000 0 03613
SECNAM = OLDSEC 270 LM00347
03611 CLA +0 50000 0 01502 03612 STO +0 60100 0 01507
END OF CONDITIONAL 271 LM00348
END OF CONDITIONAL 272 LM00349
WHENEVER PRINAM .E. FENCE 273 LM00350
03613 CLA +0 50000 0 01503 03614 SUB +0 40200 0 00702 03615 TNZ -0 10000 0 03630
NONAME PRINT COMMENT $0N1O0 1F1I1L1E0 1N1A1M1E0 1G1I1V1E1N0.$ 274 LM00351
03616 TSX +0 07400 4 00016 03617 +0 00000 0 00007 03620 +0 04501 4 60060 03621 +0 12601 3 10143
03622 +0 12500 6 00145 03623 +0 12101 4 40125 03624 +0 06001 2 70131 03625 +0 16501 2 50145
03626 +0 03360 6 06060
TRANSFER TO NXRQ 275 LM00352
03627 TRA +0 02000 0 00074
END OF CONDITIONAL 276 LM00353
WRITE.(LINE, LENGTH) 277 LM00354
03630 TSX +0 07400 4 00037 03631 TXH +3 00000 0 01471 03632 TXH +3 00000 0 00717
LENGTH = 0 278 LM00355
03633 CLA +0 50000 0 01520 03634 STO +0 60100 0 00717
WHENEVER OK, BOTTOM. 279 LM00356
03635 NZT -0 52000 0 01500 03636 TRA +0 02000 0 03640 03637 TSX +0 07400 4 00003
CLRNAM.(PRINAM, SECNAM, NEWNM, CLRSW) 280 LM00357
03640 TSX +0 07400 4 00007 03641 TXH +3 00000 0 01503 03642 TXH +3 00000 0 01507 03643 TXH +3 00000 0 00070
03644 TXH +3 00000 0 00121
CLOSEW. 281 LM00358
03645 TSX +0 07400 4 00006
DELFIL.(IN1, FI, DL1) 282 LM00359
03646 TSX +0 07400 4 00011 03647 TXH +3 00000 0 00711 03650 TXH +3 00000 0 00703 03651 TXH +3 00000 0 00051
DL1 RENAME.(IN, FI, PRINAM, SECNAM) 283 LM00360
03652 TSX +0 07400 4 00023 03653 TXH +3 00000 0 00713 03654 TXH +3 00000 0 00703 03655 TXH +3 00000 0 01503
03656 TXH +3 00000 0 01507
CHN EXIT. 284 LM00361
03657 TSX +0 07400 4 00013
OTHERWISE 285 LM00363
03660 TRA +0 02000 0 03673
PRINT COMMENT $0N1O1T0 1A0 1R1E1Q1U1E1S1T0:$ 286 LM00364
03661 TSX +0 07400 4 00016 03662 +0 00000 0 00005 03663 +0 04501 4 60163 03664 +0 06001 2 10060
03665 +0 15101 2 50150 03666 +0 16401 2 50162 03667 +0 16300 3 56060
TYPOUT.(EDLIN, COUNT) 287 LM00365
03670 TSX +0 07400 4 00035 03671 TXH +3 00000 0 00700 03672 TXH +3 00000 0 00122
END OF CONDITIONAL 288 LM00367
TRANSFER TO NXRQ 289 LM00368
03673 TRA +0 02000 0 00074
EOF PRINTCOMMENT $0E1N1D0 1O1F0 1F1I1L1E0 1R1E1A1C1H1E1D0 1B1Y0:$ 290 LM00370
03674 TSX +0 07400 4 00016 03675 +0 00000 0 00010 03676 +0 02501 4 50124 03677 +0 06001 4 60126
03700 +0 06001 2 60131 03701 +0 14301 2 50060 03702 +0 15101 2 50121 03703 +0 12301 3 00125
03704 +0 12400 6 00122 03705 +0 17000 3 56060
TYPOUT.(EDLIN, COUNT) 291 LM00371
03706 TSX +0 07400 4 00035 03707 TXH +3 00000 0 00700 03710 TXH +3 00000 0 00122
LENGTH = 0 292 LM00372
03711 CLA +0 50000 0 01520 03712 STO +0 60100 0 00717
OK = 0B 293 LM00373
03713 CLA +0 50000 0 01520 03714 STO +0 60100 0 01500
TRANSFER TO NXRQ 294 LM00374
03715 TRA +0 02000 0 00074
INTERNAL FUNCTION 295 LM00382
03716 TRA +0 02000 0 03766
ENTRY TO CLSOUT. 296 LM00383
03717 TRA +0 02000 0 03722 00041 TTR +0 02100 0 03720 03720 SXA +0 63400 2 03755 03721 TSX +0 07400 2 03755
CLOSEW. 297 LM00384
03722 TSX +0 07400 4 00006
DELFIL.(IN1, FI, DL2) 298 LM00385
03723 TSX +0 07400 4 00011 03724 TXH +3 00000 0 00711 03725 TXH +3 00000 0 00703 03726 TXH +3 00000 0 00052
DL2 CHFILE.(IN, FI, -0, IN1) 299 LM00386
03727 CLS +0 50200 0 01520 03730 STO +0 60100 0 03765 03731 TSX +0 07400 4 00005 03732 TXH +3 00000 0 00713
03733 TXH +3 00000 0 00703 03734 TXH +3 00000 0 03765 03735 TXH +3 00000 0 00711
SEEK.(IN1, FI, CHN) 300 LM00387
03736 TSX +0 07400 4 00024 03737 TXH +3 00000 0 00711 03740 TXH +3 00000 0 00703 03741 TXH +3 00000 0 00050
ASSIGN.(IN, FI) 301 LM00388
03742 TSX +0 07400 4 00000 03743 TXH +3 00000 0 00713 03744 TXH +3 00000 0 00703
OK = 1B 302 LM00389
03745 CLA +0 50000 0 01521 03746 STO +0 60100 0 01500
LENGTH = 0 303 LM00390
03747 CLA +0 50000 0 01520 03750 STO +0 60100 0 00717
FSTPAS = 0B 304 LM00391
03751 CLA +0 50000 0 01520 03752 STO +0 60100 0 00707
FUNCTION RETURN 305 LM00392
03753 TRA +0 02000 0 03761
END OF FUNCTION 306 LM00393
03754 TSX +0 07400 4 00013 03755 TXH +3 00000 0 00000 03756 SXD -0 63400 1 03755 03757 SXA +0 63400 4 03761
03760 TRA +0 02000 2 00001 03761 AXT +0 77400 4 00000 03762 LXA +0 53400 2 03755 03763 LXD -0 53400 1 03755
03764 TRA +0 02000 4 00001
INTERNAL FUNCTION 307 LM00397
03766 TRA +0 02000 0 04074
ENTRY TO GET. 308 LM00398
03767 TRA +0 02000 0 03772 00042 TTR +0 02100 0 03770 03770 SXA +0 63400 2 04063 03771 TSX +0 07400 2 04063
WORD = $ $ 309 LM00399
03772 CLA +0 50000 0 01632 03773 STO +0 60100 0 01517
SCANLP THROUGH SCANLP, FOR EDCT = EDCT, 1, 310 LM00400
1 (EDLIN(EDCT+1).NE.BLANK) .OR. (EDCT+1.GE.COUNT) 310 LM00401
03774 CLA +0 50000 0 00126 03775 STO +0 60100 0 00126 03776 TRA +0 02000 0 04002 03777 CLA +0 50000 0 00126
04000 ADD +0 40000 0 01521 04001 STO +0 60100 0 00126 04002 CLA +0 50000 0 00126 04003 ADD +0 40000 0 01521
04004 SUB +0 40200 0 00122 04005 TZE +0 10000 0 04016 04006 TPL +0 12000 0 04016 04007 CLA +0 50000 0 00126
04010 ADD +0 40000 0 01521 04011 PAX +0 73400 1 00000 04012 CLA +0 50000 1 00700 04013 SUB +0 40200 0 00113
04014 TNZ -0 10000 0 04016 04015 TRA +0 02000 0 03777
GTLP EDCT = EDCT + 1 311 LM00402
04016 CLA +0 50000 0 00126 04017 ADD +0 40000 0 01521 04020 STO +0 60100 0 00126
WHENEVER EDLIN(EDCT) .E. BLANK, FUNCTION RETURN WORD 312 LM00403
04021 LXA +0 53400 1 00126 04022 CLA +0 50000 1 00700 04023 SUB +0 40200 0 00113 04024 TNZ -0 10000 0 04027
04025 CLA +0 50000 0 01517 04026 TRA +0 02000 0 04067
WHENEVER EDLIN(EDCT) .E. TAB .OR. EDCT .GE. COUNT 313 LM00404
04027 CLA +0 50000 0 00126 04030 SUB +0 40200 0 00122 04031 TZE +0 10000 0 04037 04032 TPL +0 12000 0 04037
04033 LXA +0 53400 1 00126 04034 CLA +0 50000 1 00700 04035 SUB +0 40200 0 01512 04036 TNZ -0 10000 0 04044
EDCT = EDCT - 1 314 LM00405
04037 CLA +0 50000 0 00126 04040 SUB +0 40200 0 01521 04041 STO +0 60100 0 00126
FUNCTION RETURN WORD 315 LM00406
04042 CLA +0 50000 0 01517 04043 TRA +0 02000 0 04067
END OF CONDITIONAL 316 LM00407
WORD = (WORD .LS. 6) .V. HOL.(EDLIN(EDCT)) 317 LM00408
04044 CLA +0 50000 0 00126 04045 SUB +0 40200 0 04046 04046 TXH +3 00000 0 00700 04047 STA +0 62100 0 04051
04050 TSX +0 07400 4 00015 04051 TXH +3 00000 0 00000 04052 STO +0 60100 0 04073 04053 CAL -0 50000 0 01524
04054 STA +0 62100 0 04056 04055 CAL -0 50000 0 01517 04056 ALS +0 76700 0 00000 04057 ORA -0 50100 0 04073
04060 SLW +0 60200 0 01517
TRANSFER TO GTLP 318 LM00409
04061 TRA +0 02000 0 00062
END OF FUNCTION 319 LM00410
04062 TSX +0 07400 4 00013 04063 TXH +3 00000 0 00000 04064 SXD -0 63400 1 04063 04065 SXA +0 63400 4 04067
04066 TRA +0 02000 2 00001 04067 AXT +0 77400 4 00000 04070 LXA +0 53400 2 04063 04071 LXD -0 53400 1 04063
04072 TRA +0 02000 4 00001
INTERNAL FUNCTION(STAR, EN) 320 LM00414
04074 TRA +0 02000 0 04165
ENTRY TO PRNT. 321 LM00415
04075 TRA +0 02000 0 04100 00043 TTR +0 02100 0 04076 04076 SXA +0 63400 2 04144 04077 TSX +0 07400 2 04144
TYPOUT.(LINE, STAR-1) 322 LM00416
04100 CLA +0 50000 0 00024 04101 SUB +0 40200 0 01521 04102 STO +0 60100 0 04164 04103 TSX +0 07400 4 00035
04104 TXH +3 00000 0 01471 04105 TXH +3 00000 0 04164
TYPOUT.(REDS, 1) 323 LM00417
04106 TSX +0 07400 4 00035 04107 TXH +3 00000 0 01506 04110 TXH +3 00000 0 01521
TYPOUT.(LINE(STAR-1), EN-STAR+1) 324 LM00418
04111 CLA +0 50000 0 00024 04112 SUB +0 40200 0 00024 04113 ADD +0 40000 0 01521 04114 STO +0 60100 0 04164
04115 CLA +0 50000 0 00024 04116 SUB +0 40200 0 01521 04117 SUB +0 40200 0 04120 04120 TXH +3 00000 0 01471
04121 STA +0 62100 0 04123 04122 TSX +0 07400 4 00035 04123 TXH +3 00000 0 00000 04124 TXH +3 00000 0 04164
TYPOUT.(BLACKS, 1) 325 LM00419
04125 TSX +0 07400 4 00035 04126 TXH +3 00000 0 00112 04127 TXH +3 00000 0 01521
TYPOUT.(LINE(EN), LENGTH-EN) 326 LM00420
04130 CLA +0 50000 0 00717 04131 SUB +0 40200 0 00024 04132 STO +0 60100 0 04164 04133 CLA +0 50000 0 00024
04134 SUB +0 40200 0 04135 04135 TXH +3 00000 0 01471 04136 STA +0 62100 0 04140 04137 TSX +0 07400 4 00035
04140 TXH +3 00000 0 00000 04141 TXH +3 00000 0 04164
FUNCTION RETURN 327 LM00421
04142 TRA +0 02000 0 04160
END OF FUNCTION 328 LM00422
04143 TSX +0 07400 4 00013 04144 TXH +3 00000 0 00000 04145 SXD -0 63400 1 04144 04146 SXA +0 63400 4 04160
04147 CLA +0 50000 4 00001 04150 STA +0 62100 0 04100 04151 STA +0 62100 0 04112 04152 STA +0 62100 0 04115
04153 CLA +0 50000 4 00002 04154 STA +0 62100 0 04111 04155 STA +0 62100 0 04131 04156 STA +0 62100 0 04133
04157 TRA +0 02000 2 00001 04160 AXT +0 77400 4 00000 04161 LXA +0 53400 2 04144 04162 LXD -0 53400 1 04144
04163 TRA +0 02000 4 00001
INTERNAL FUNCTION 329 LM00426
04165 TRA +0 02000 0 04210
ENTRY TO CDINIT. 330 LM00427
04166 TRA +0 02000 0 04171 00040 TTR +0 02100 0 04167 04167 SXA +0 63400 2 04200 04170 TSX +0 07400 2 04200
TBINIT. 331 LM00428
04171 TSX +0 07400 4 00044
SETCOL.(72) 332 LM00429
04172 TSX +0 07400 4 00026 04173 TXH +3 00000 0 01560
SINHB.(0) 333 LM00430
04174 TSX +0 07400 4 00032 04175 TXH +3 00000 0 01520
F'N 334 LM00431
04176 TRA +0 02000 0 04204
E'N 335 LM00432
04177 TSX +0 07400 4 00013 04200 TXH +3 00000 0 00000 04201 SXD -0 63400 1 04200 04202 SXA +0 63400 4 04204
04203 TRA +0 02000 2 00001 04204 AXT +0 77400 4 00000 04205 LXA +0 53400 2 04200 04206 LXD -0 53400 1 04200
04207 TRA +0 02000 4 00001
INTERNAL FUNCTION 336 LM00436
04210 TRA +0 02000 0 04655
ENTRY TO TBINIT. 337 LM00437
04211 TRA +0 02000 0 04214 00044 TTR +0 02100 0 04212 04212 SXA +0 63400 2 04645 04213 TSX +0 07400 2 04645
NEWTBS. 338 LM00438
04214 TSX +0 07400 4 00021
NEWBKS. 339 LM00439
04215 TSX +0 07400 4 00020
W'R OLDSEC .E. $ MAD$ 340 LM00440
04216 CLA +0 50000 0 01502 04217 SUB +0 40200 0 01606 04220 TNZ -0 10000 0 04316
T'H MTB, FOR VALUES OF TB = 12,17,22,27,32,37,42,47,55 341 LM00441
04221 CLA +0 50000 0 01531 04222 STO +0 60100 0 01513 04223 CLA +0 50000 0 04226 04224 STO +0 60100 0 04307
04225 TRA +0 02000 0 04310 04226 TRA +0 02000 0 04227 04227 CLA +0 50000 0 01533 04230 STO +0 60100 0 01513
04231 CLA +0 50000 0 04234 04232 STO +0 60100 0 04307 04233 TRA +0 02000 0 04310 04234 TRA +0 02000 0 04235
04235 CLA +0 50000 0 01535 04236 STO +0 60100 0 01513 04237 CLA +0 50000 0 04242 04240 STO +0 60100 0 04307
04241 TRA +0 02000 0 04310 04242 TRA +0 02000 0 04243 04243 CLA +0 50000 0 01537 04244 STO +0 60100 0 01513
04245 CLA +0 50000 0 04250 04246 STO +0 60100 0 04307 04247 TRA +0 02000 0 04310 04250 TRA +0 02000 0 04251
04251 CLA +0 50000 0 01542 04252 STO +0 60100 0 01513 04253 CLA +0 50000 0 04256 04254 STO +0 60100 0 04307
04255 TRA +0 02000 0 04310 04256 TRA +0 02000 0 04257 04257 CLA +0 50000 0 01545 04260 STO +0 60100 0 01513
04261 CLA +0 50000 0 04264 04262 STO +0 60100 0 04307 04263 TRA +0 02000 0 04310 04264 TRA +0 02000 0 04265
04265 CLA +0 50000 0 01550 04266 STO +0 60100 0 01513 04267 CLA +0 50000 0 04272 04270 STO +0 60100 0 04307
04271 TRA +0 02000 0 04310 04272 TRA +0 02000 0 04273 04273 CLA +0 50000 0 01552 04274 STO +0 60100 0 01513
04275 CLA +0 50000 0 04300 04276 STO +0 60100 0 04307 04277 TRA +0 02000 0 04310 04300 TRA +0 02000 0 04301
04301 CLA +0 50000 0 01554 04302 STO +0 60100 0 01513 04303 CLA +0 50000 0 04306 04304 STO +0 60100 0 04307
04305 TRA +0 02000 0 04310 04306 TRA +0 02000 0 04313 04307 TRA +0 02000 0 04307
MTB TABSET.(TB) 342 LM00442
04310 TSX +0 07400 4 00033 04311 TXH +3 00000 0 01513 04312 TRA +0 02000 0 04307
BKSET.(12) 343 LM00443
04313 TSX +0 07400 4 00002 04314 TXH +3 00000 0 01531
O'R OLDSEC .E. $ FAP$ 344 LM00444
04315 TRA +0 02000 0 04643 04316 CLA +0 50000 0 01502 04317 SUB +0 40200 0 01605 04320 TNZ -0 10000 0 04406
T'H FTB, FOR VALUES OF TB = 8,16,30,34,38,42,46,55 345 LM00445
04321 CLA +0 50000 0 01526 04322 STO +0 60100 0 01513 04323 CLA +0 50000 0 04326 04324 STO +0 60100 0 04401
04325 TRA +0 02000 0 04402 04326 TRA +0 02000 0 04327 04327 CLA +0 50000 0 01532 04330 STO +0 60100 0 01513
04331 CLA +0 50000 0 04334 04332 STO +0 60100 0 04401 04333 TRA +0 02000 0 04402 04334 TRA +0 02000 0 04335
04335 CLA +0 50000 0 01540 04336 STO +0 60100 0 01513 04337 CLA +0 50000 0 04342 04340 STO +0 60100 0 04401
04341 TRA +0 02000 0 04402 04342 TRA +0 02000 0 04343 04343 CLA +0 50000 0 01543 04344 STO +0 60100 0 01513
04345 CLA +0 50000 0 04350 04346 STO +0 60100 0 04401 04347 TRA +0 02000 0 04402 04350 TRA +0 02000 0 04351
04351 CLA +0 50000 0 01546 04352 STO +0 60100 0 01513 04353 CLA +0 50000 0 04356 04354 STO +0 60100 0 04401
04355 TRA +0 02000 0 04402 04356 TRA +0 02000 0 04357 04357 CLA +0 50000 0 01550 04360 STO +0 60100 0 01513
04361 CLA +0 50000 0 04364 04362 STO +0 60100 0 04401 04363 TRA +0 02000 0 04402 04364 TRA +0 02000 0 04365
04365 CLA +0 50000 0 01551 04366 STO +0 60100 0 01513 04367 CLA +0 50000 0 04372 04370 STO +0 60100 0 04401
04371 TRA +0 02000 0 04402 04372 TRA +0 02000 0 04373 04373 CLA +0 50000 0 01554 04374 STO +0 60100 0 01513
04375 CLA +0 50000 0 04400 04376 STO +0 60100 0 04401 04377 TRA +0 02000 0 04402 04400 TRA +0 02000 0 04405
04401 TRA +0 02000 0 04401
FTB TABSET.(TB) 346 LM00446
04402 TSX +0 07400 4 00033 04403 TXH +3 00000 0 01513 04404 TRA +0 02000 0 04401
O'R OLDSEC .E. $MADTRN$ 347 LM00447
04405 TRA +0 02000 0 04643 04406 CLA +0 50000 0 01502 04407 SUB +0 40200 0 01570 04410 TNZ -0 10000 0 04514
T'H F2TB, FOR VALUES OF TB = 7,12,17,22,27,32,37,42,47,55 348 LM00448
04411 CLA +0 50000 0 01525 04412 STO +0 60100 0 01513 04413 CLA +0 50000 0 04416 04414 STO +0 60100 0 04505
04415 TRA +0 02000 0 04506 04416 TRA +0 02000 0 04417 04417 CLA +0 50000 0 01531 04420 STO +0 60100 0 01513
04421 CLA +0 50000 0 04424 04422 STO +0 60100 0 04505 04423 TRA +0 02000 0 04506 04424 TRA +0 02000 0 04425
04425 CLA +0 50000 0 01533 04426 STO +0 60100 0 01513 04427 CLA +0 50000 0 04432 04430 STO +0 60100 0 04505
04431 TRA +0 02000 0 04506 04432 TRA +0 02000 0 04433 04433 CLA +0 50000 0 01535 04434 STO +0 60100 0 01513
04435 CLA +0 50000 0 04440 04436 STO +0 60100 0 04505 04437 TRA +0 02000 0 04506 04440 TRA +0 02000 0 04441
04441 CLA +0 50000 0 01537 04442 STO +0 60100 0 01513 04443 CLA +0 50000 0 04446 04444 STO +0 60100 0 04505
04445 TRA +0 02000 0 04506 04446 TRA +0 02000 0 04447 04447 CLA +0 50000 0 01542 04450 STO +0 60100 0 01513
04451 CLA +0 50000 0 04454 04452 STO +0 60100 0 04505 04453 TRA +0 02000 0 04506 04454 TRA +0 02000 0 04455
04455 CLA +0 50000 0 01545 04456 STO +0 60100 0 01513 04457 CLA +0 50000 0 04462 04460 STO +0 60100 0 04505
04461 TRA +0 02000 0 04506 04462 TRA +0 02000 0 04463 04463 CLA +0 50000 0 01550 04464 STO +0 60100 0 01513
04465 CLA +0 50000 0 04470 04466 STO +0 60100 0 04505 04467 TRA +0 02000 0 04506 04470 TRA +0 02000 0 04471
04471 CLA +0 50000 0 01552 04472 STO +0 60100 0 01513 04473 CLA +0 50000 0 04476 04474 STO +0 60100 0 04505
04475 TRA +0 02000 0 04506 04476 TRA +0 02000 0 04477 04477 CLA +0 50000 0 01554 04500 STO +0 60100 0 01513
04501 CLA +0 50000 0 04504 04502 STO +0 60100 0 04505 04503 TRA +0 02000 0 04506 04504 TRA +0 02000 0 04511
04505 TRA +0 02000 0 04505
F2TB TABSET.(TB) 349 LM00449
04506 TSX +0 07400 4 00033 04507 TXH +3 00000 0 01513 04510 TRA +0 02000 0 04505
BKSET.(7) 350 LM00450
04511 TSX +0 07400 4 00002 04512 TXH +3 00000 0 01525
O'R OLDSEC .E. $ ALGOL$ 351 LM00451
04513 TRA +0 02000 0 04643 04514 CLA +0 50000 0 01502 04515 SUB +0 40200 0 01572 04516 TNZ -0 10000 0 04634
T'H ATB, FOR VALUES OF TB = 11,16,21,26,31,36,41,46,51,56, 352 LM00452
1 61,66 352 LM00453
04517 CLA +0 50000 0 01530 04520 STO +0 60100 0 01513 04521 CLA +0 50000 0 04524 04522 STO +0 60100 0 04627
04523 TRA +0 02000 0 04630 04524 TRA +0 02000 0 04525 04525 CLA +0 50000 0 01532 04526 STO +0 60100 0 01513
04527 CLA +0 50000 0 04532 04530 STO +0 60100 0 04627 04531 TRA +0 02000 0 04630 04532 TRA +0 02000 0 04533
04533 CLA +0 50000 0 01534 04534 STO +0 60100 0 01513 04535 CLA +0 50000 0 04540 04536 STO +0 60100 0 04627
04537 TRA +0 02000 0 04630 04540 TRA +0 02000 0 04541 04541 CLA +0 50000 0 01536 04542 STO +0 60100 0 01513
04543 CLA +0 50000 0 04546 04544 STO +0 60100 0 04627 04545 TRA +0 02000 0 04630 04546 TRA +0 02000 0 04547
04547 CLA +0 50000 0 01541 04550 STO +0 60100 0 01513 04551 CLA +0 50000 0 04554 04552 STO +0 60100 0 04627
04553 TRA +0 02000 0 04630 04554 TRA +0 02000 0 04555 04555 CLA +0 50000 0 01544 04556 STO +0 60100 0 01513
04557 CLA +0 50000 0 04562 04560 STO +0 60100 0 04627 04561 TRA +0 02000 0 04630 04562 TRA +0 02000 0 04563
04563 CLA +0 50000 0 01547 04564 STO +0 60100 0 01513 04565 CLA +0 50000 0 04570 04566 STO +0 60100 0 04627
04567 TRA +0 02000 0 04630 04570 TRA +0 02000 0 04571 04571 CLA +0 50000 0 01551 04572 STO +0 60100 0 01513
04573 CLA +0 50000 0 04576 04574 STO +0 60100 0 04627 04575 TRA +0 02000 0 04630 04576 TRA +0 02000 0 04577
04577 CLA +0 50000 0 01553 04600 STO +0 60100 0 01513 04601 CLA +0 50000 0 04604 04602 STO +0 60100 0 04627
04603 TRA +0 02000 0 04630 04604 TRA +0 02000 0 04605 04605 CLA +0 50000 0 01555 04606 STO +0 60100 0 01513
04607 CLA +0 50000 0 04612 04610 STO +0 60100 0 04627 04611 TRA +0 02000 0 04630 04612 TRA +0 02000 0 04613
04613 CLA +0 50000 0 01556 04614 STO +0 60100 0 01513 04615 CLA +0 50000 0 04620 04616 STO +0 60100 0 04627
04617 TRA +0 02000 0 04630 04620 TRA +0 02000 0 04621 04621 CLA +0 50000 0 01557 04622 STO +0 60100 0 01513
04623 CLA +0 50000 0 04626 04624 STO +0 60100 0 04627 04625 TRA +0 02000 0 04630 04626 TRA +0 02000 0 04633
04627 TRA +0 02000 0 04627
ATB TABSET.(TB) 353 LM00454
04630 TSX +0 07400 4 00033 04631 TXH +3 00000 0 01513 04632 TRA +0 02000 0 04627
O'E 354 LM00455
04633 TRA +0 02000 0 04643
PRINT COMMENT $OT1A1B1S0 1N1O1T0 1S1E1T0.$ 355 LM00456
04634 TSX +0 07400 4 00016 04635 +0 00000 0 00005 04636 -0 66301 2 10122 04637 +0 16200 6 00145
04640 +0 14601 6 30060 04641 +0 16201 2 50163 04642 +0 03360 6 06060
E'L 356 LM00457
FUNCTION RETURN 357 LM00458
04643 TRA +0 02000 0 04651
END OF FUNCTION 358 LM00459
04644 TSX +0 07400 4 00013 04645 TXH +3 00000 0 00000 04646 SXD -0 63400 1 04645 04647 SXA +0 63400 4 04651
04650 TRA +0 02000 2 00001 04651 AXT +0 77400 4 00000 04652 LXA +0 53400 2 04645 04653 LXD -0 53400 1 04645
04654 TRA +0 02000 4 00001
END OF PROGRAM 359 LM00461
04655 TSX +0 07400 4 00013
1 MAD PROGRAM LISTING ... ... ... FILE EDLVAL MAD 09/18/68 0946.7
-
.. ROUTINE TO RETURN INITIAL VALUES TO EDITOR FOR LM00001
.. EDITING ASCII FILES. LM00002
LM00003
EXTERNAL FUNCTION(BLANK, TAB, DEFALT, MCHNG, REDS, BLACKS) *001 LM00004
NORMAL MODE IS INTEGER *002 LM00005
ENTRY TO GETVAL. *003 LM00006
BLANK = 060K *004 LM00007
TAB = 072K *005 LM00008
DEFALT = $ MAD$ *006 LM00009
MCHNG = 055K *007 LM00010
REDS = 133K *008 LM00011
BLACKS = 132K *009 LM00012
FUNCTION RETURN *010 LM00013
END OF FUNCTION *011 LM00014
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00061 TRANSFER VECTOR LENGTH 00001 PROGRAM BEGINS 00012
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
GETVAL 00013 0
0FUNCTION DICTIONARY
EXIT 00000 1
0ABSOLUTE CONSTANTS
00006 +000000000132 00007 +000000000133 00003 +000000000055 00011 -206060442124 00005 +000000000072
00004 +000000000060 00002 +000000000001 00010 +233000000000
0PROGRAM
EXTERNAL FUNCTION(BLANK, TAB, DEFALT, MCHNG, REDS, BLACKS) 001 LM00004
NORMAL MODE IS INTEGER 002 LM00005
ENTRY TO GETVAL. 003 LM00006
00012 TRA +0 02000 0 00015 00013 SXA +0 63400 2 00033 00014 TSX +0 07400 2 00033
BLANK = 060K 004 LM00007
00015 CLA +0 50000 0 00004 00016 STO +0 60100 0 00024
TAB = 072K 005 LM00008
00017 CLA +0 50000 0 00005 00020 STO +0 60100 0 00024
DEFALT = $ MAD$ 006 LM00009
00021 CLA +0 50000 0 00011 00022 STO +0 60100 0 00024
MCHNG = 055K 007 LM00010
00023 CLA +0 50000 0 00003 00024 STO +0 60100 0 00024
REDS = 133K 008 LM00011
00025 CLA +0 50000 0 00007 00026 STO +0 60100 0 00024
BLACKS = 132K 009 LM00012
00027 CLA +0 50000 0 00006 00030 STO +0 60100 0 00024
FUNCTION RETURN 010 LM00013
00031 TRA +0 02000 0 00053
END OF FUNCTION 011 LM00014
00032 TSX +0 07400 4 00000 00033 TXH +3 00000 0 00000 00034 SXD -0 63400 1 00033 00035 SXA +0 63400 4 00053
00036 CLA +0 50000 4 00001 00037 STA +0 62100 0 00016 00040 CLA +0 50000 4 00002 00041 STA +0 62100 0 00020
00042 CLA +0 50000 4 00003 00043 STA +0 62100 0 00022 00044 CLA +0 50000 4 00004 00045 STA +0 62100 0 00024
00046 CLA +0 50000 4 00005 00047 STA +0 62100 0 00026 00050 CLA +0 50000 4 00006 00051 STA +0 62100 0 00030
00052 TRA +0 02000 2 00001 00053 AXT +0 77400 4 00000 00054 LXA +0 53400 2 00033 00055 LXD -0 53400 1 00033
00056 TRA +0 02000 4 00001
1 MAD PROGRAM LISTING ... ... ... FILE 6CONCD MAD 09/18/68 0957.6
-
CARD IMAGE I/O MODULE FOR EDL PACKAGE. LM00001
LM00002
PETER R. BOS SEPTEMBER 1967. LM00003
LM00004
THIS MODULE, TOGETHER WITH THE OTHER COMPONENTS LM00005
OF THE EDL COMMAND, IS INTENDED TO PROVIDE AN LM00006
ALTERNATIVE TO THE SYSTEM COMMAND 'ED', GIVING LM00007
SOMEWHAT GREATER CONVENIENCES, AND ALLOWING LM00008
INTERMEDIATE FILES TO BE WRITTEN IN TEMPORARY LM00009
MODE WHEN EXCEEDING RECORD QUOTAS (WHICH ED DOES LM00010
NOT DO). WHEN USED TOGETHER WITH THE MODIFIED LM00011
MAIN PROGRAM 'EDITCD', TAB SETTINGS ARE INTERPRETED, LM00012
AND FILES MAY BE SERIALIZED. LM00013
LM00014
EXTERNAL FUNCTION (LINE, L, EOF) *001 LM00015
NORMAL MODE IS INTEGER *002 LM00016
BOOLEAN SRINHB *003 LM00017
STATEMENT LABEL EOF *004 LM00018
INSERT FILE .MOD. *005 LM00019
DEFINE BINARY OPERATOR .MOD., PRECEDENCE SAME AS / *006 LM00001
MODE STRUCTURE 1 .MOD. 1 TO 1 *007 LM00002
JMP *+1,AT,*+3 *008 LM00003
JMP *+11,AC,*+1 *009 LM00004
JMP *+12,LA,*+6 *010 LM00005
JMP *+13,AC,*+1 *011 LM00006
JMP *+2,MQ,*+1 *012 LM00007
JMP *+13,LA,*+2 *013 LM00008
STQ T *014 LM00009
LDQ A *015 LM00010
PXD *016 LM00011
LLS 0 *017 LM00012
DVP B *018 LM00013
OUT AC *019 LM00014
XCA *020 LM00015
JMP *-5 *021 LM00016
XCL *022 LM00017
JMP *-7 *023 LM00018
STO T *024 LM00019
JMP *-10 *025 LM00020
SLW T *026 LM00021
JMP *-12 *027 LM00022
END *028 LM00023
DIMENSION CARD(14), TB(20), BK(84) *029 LM00020
VECTOR VALUES BK=377777777777K *030 LM00021
VECTOR VALUES NBKS=0 *031 LM00022
VECTOR VALUES MXBKS=83 *032 LM00023
VECTOR VALUES TB=377777777777K *033 LM00024
VECTOR VALUES MXTBS=20 *034 LM00025
VECTOR VALUES NTBS=0 *035 LM00026
VECTOR VALUES FNS3=377777777777K *036 LM00027
VECTOR VALUES FNS7=777777777777K *037 LM00028
VECTOR VALUES FSTNO=10 *038 LM00029
VECTOR VALUES INCR=10 *039 LM00030
VECTOR VALUES NXTNO=10 *040 LM00031
VECTOR VALUES ZLNO=$ 00000$ *041 LM00032
VECTOR VALUES SRINHB=0B *042 LM00033
VECTOR VALUES BLNK=60K *043 LM00034
VECTOR VALUES BLNKS=$ $ *044 LM00035
VECTOR VALUES RETURN=55K *045 LM00036
VECTOR VALUES TAB=72K *046 LM00037
VECTOR VALUES BKSP=35K *047 LM00038
(COLON USED FOR BACKSPACE) LM00039
VECTOR VALUES NCOLS=72 *048 LM00040
VECTOR VALUES MXCOLS=84 *049 LM00041
VECTOR VALUES SRCOL=72 *050 LM00042
VECTOR VALUES NWRDS=14 *051 LM00043
VECTOR VALUES NCLWD=2 *052 LM00044
VECTOR VALUES NCHRS=6 *053 LM00045
VECTOR VALUES BTSCHR=6 *054 LM00046
VECTOR VALUES CHRMSK=77K *055 LM00047
VECTOR VALUES UNMSK=777777777700K *056 LM00048
LM00049
ENTRY TO SETBK. *057 LM00050
BKSP=LINE.A.CHRMSK *058 LM00051
FUNCTION RETURN *059 LM00052
LM00053
ENTRY TO WRITE. *060 LM00054
( WRITE.(LINE,LENGTH) ) LM00055
B=0 *061 LM00056
T=0 *062 LM00057
WHENEVER L.L.1, FUNCTION RETURN *063 LM00058
LTH=L-1 *064 LM00059
J=1 *065 LM00060
THROUGH UNCNV, FOR I=1,1,I.G.LTH *066 LM00061
GTTB THROUGH GTTB, FOR T=0,1,TB(T).G.J *067 LM00062
GTBK THROUGH GTBK, FOR B=0,1,BK(B).GE.J *068 LM00063
CHAR=LINE(I).A.CHRMSK *069 LM00064
WHENEVER CHAR.E.TAB *070 LM00065
WHENEVER TB(T).E.FNS3 *071 LM00066
CHAR=BLNK *072 LM00067
TRANSFER TO ISCHR *073 LM00068
END OF CONDITIONAL *074 LM00069
THROUGH FILLT, FOR J=J,1,J.E.TB(T) *075 LM00070
STCHR.(BLNK,J,EOLW) *076 LM00071
FILLT CONTINUE *077 LM00072
OR WHENEVER CHAR.E.BKSP.AND.J.E.BK(B) *078 LM00073
J=J-1 *079 LM00074
OTHERWISE *080 LM00075
ISCHR STCHR.(CHAR,J,EOLW) *081 LM00076
J=J+1 *082 LM00077
END OF CONDITIONAL *083 LM00078
UNCNV CONTINUE *084 LM00079
EOLW FILLB. *085 LM00080
WHENEVER .NOT.SRINHB, SERIAL. *086 LM00081
WRCARD. *087 LM00082
FUNCTION RETURN *088 LM00083
LM00084
ENTRY TO READ. *089 LM00085
( LENGTH=READ.(LINE,BUFSIZ,EOF) ) LM00086
B=0 *090 LM00087
T=0 *091 LM00088
LTH=L-1 *092 LM00089
J=1 *093 LM00090
LAST=0 *094 LM00091
RDCARD.(EOF) *095 LM00092
THROUGH CNVRT, FOR I=1,1,I.G.LTH *096 LM00093
GTCHR.(CHAR,J,EOLR) *097 LM00094
WHENEVER CHAR.NE.BLNK, LAST=I *098 LM00095
LINE(I)=CHAR *099 LM00096
J=J+1 *100 LM00097
CNVRT CONTINUE *101 LM00098
EOLR LINE(LAST+1)=RETURN *102 LM00099
FUNCTION RETURN LAST+1 *103 LM00100
LM00101
ENTRY TO BOTTOM. *104 LM00102
RD RDCARD.(ENDB) *105 LM00103
J=NCOLS+1 *106 LM00104
FILLB. *107 LM00105
WHENEVER .NOT. SRINHB, SERIAL. *108 LM00106
WRCARD. *109 LM00107
TRANSFER TO RD *110 LM00108
ENDB FUNCTION RETURN *111 LM00109
LM00110
ENTRY TO NEWTBS. *112 LM00111
TB=FNS3 *113 LM00112
NTBS=0 *114 LM00113
FUNCTION RETURN *115 LM00114
LM00115
ENTRY TO NEWBKS. *116 LM00116
BK=FNS3 *117 LM00117
NBKS=0 *118 LM00118
FUNCTION RETURN *119 LM00119
LM00120
ENTRY TO TABSET. *120 LM00121
WHENEVER NTBS.GE.MXTBS, FUNCTION RETURN *121 LM00122
WHENEVER LINE.L.TB(NTBS-1).AND.NTBS.G.0, FUNCTION RETURN *122 LM00123
TB(NTBS)=LINE *123 LM00124
NTBS=NTBS+1 *124 LM00125
TB(NTBS)=FNS3 *125 LM00126
FUNCTION RETURN *126 LM00127
LM00128
ENTRY TO BKSET. *127 LM00129
WHENEVER LINE.G.NCOLS, FUNCTION RETURN *128 LM00130
WHENEVER NBKS.GE.MXBKS, FUNCTION RETURN *129 LM00131
WHENEVER LINE.LE.1, FUNCTION RETURN *130 LM00132
WHENEVER LINE.L.BK(NBKS-1).AND.NBKS.G.0, FUNCTION RETURN *131 LM00133
BK(NBKS)=LINE *132 LM00134
NBKS=NBKS+1 *133 LM00135
BK(NBKS)=FNS3 *134 LM00136
FUNCTION RETURN *135 LM00137
LM00138
ENTRY TO SETSR. *136 LM00139
NXTNO=LINE *137 LM00140
FSTNO=LINE *138 LM00141
INCR=L *139 LM00142
FUNCTION RETURN *140 LM00143
LM00144
ENTRY TO SINHB. *141 LM00145
EQUIVALENCE(INHB,SRINHB) *142 LM00146
INHB=LINE *143 LM00147
FUNCTION RETURN *144 LM00148
LM00149
ENTRY TO SETCOL. *145 LM00150
NCOLS=LINE *146 LM00151
WHENEVER NCOLS.E.0, NCOLS=SRCOL *147 LM00152
WHENEVER NCOLS.NE.SRCOL, SRINHB=1B *148 LM00153
WHENEVER NCOLS.G.MXCOLS, NCOLS=MXCOLS *149 LM00154
FUNCTION RETURN *150 LM00155
LM00156
ENTRY TO CLOSEW. *151 LM00157
NXTNO = FSTNO *152 LM00158
FILE. *153 LM00159
FUNCTION RETURN *154 LM00160
LM00161
LM00162
...INTERNAL SUBROUTINES. LM00163
LM00164
INTERNAL FUNCTION (ENDF) *155 LM00165
STATEMENT LABEL ENDF *156 LM00166
ENTRY TO RDCARD. *157 LM00167
THROUGH RDLP, FOR N=NWRDS,-1,N.L.1 *158 LM00168
CARD(N)=RDWORD.(ENDF) *159 LM00169
RDLP CONTINUE *160 LM00170
FUNCTION RETURN *161 LM00171
LM00172
ENTRY TO WRCARD. *162 LM00173
THROUGH WRLP, FOR N=NWRDS,-1,N.L.1 *163 LM00174
WRWORD.(CARD(N)) *164 LM00175
WRLP CONTINUE *165 LM00176
FUNCTION RETURN *166 LM00177
END OF FUNCTION *167 LM00178
LM00179
INTERNAL FUNCTION (ARG1,ARG2,LOC) *168 LM00180
STATEMENT LABEL LOC *169 LM00181
ENTRY TO GTCHR. *170 LM00182
WHENEVER ARG2.G.NCOLS, TRANSFER TO LOC *171 LM00183
M=BTSCHR*(NCHRS-1-(ARG2-1).MOD.NCHRS) *172 LM00184
N=NWRDS-(ARG2-1)/NCHRS *173 LM00185
ARG1=(CARD(N).RS.M).A.CHRMSK *174 LM00186
FUNCTION RETURN *175 LM00187
LM00188
ENTRY TO STCHR. *176 LM00189
WHENEVER ARG2.G.NCOLS, TRANSFER TO LOC *177 LM00190
M=BTSCHR*(NCHRS-1-(ARG2-1).MOD.NCHRS) *178 LM00191
N=NWRDS-(ARG2-1)/NCHRS *179 LM00192
CARD(N)=(CARD(N).A.UNMSK.LS.M).V.((ARG1.A.CHRMSK).LS.M) *180 LM00193
FUNCTION RETURN *181 LM00194
END OF FUNCTION *182 LM00195
LM00196
INTERNAL FUNCTION (ARG1,ARG2) *183 LM00197
ENTRY TO SERIAL. *184 LM00198
LNO=DERBC.(NXTNO).V.ZLNO *185 LM00199
CARD(2)=(LNO.RS.(BTSCHR*NCLWD)).V. *186 LM00200
1 (BLNKS.LS.(BTSCHR*(NCHRS-NCLWD))) *186 LM00201
CARD(1)=LNO.LS.(BTSCHR*(NCHRS-NCLWD)).V. *187 LM00202
1 (BLNKS.RS.(BTSCHR*NCLWD)) *187 LM00203
NXTNO=NXTNO+INCR *188 LM00204
FUNCTION RETURN *189 LM00205
END OF FUNCTION *190 LM00206
LM00207
INTERNAL FUNCTION *191 LM00208
ENTRY TO FILLB. *192 LM00209
NC=J-1 *193 LM00210
M=BTSCHR*((NC-1).MOD.NCHRS+1) *194 LM00211
N=NWRDS-(NC-1)/NCHRS *195 LM00212
CARD(N)=(CARD(N).A.(FNS7.LS.(BTSCHR*NCHRS-M))).V.(BLNKS.RS.M) *196 LM00213
THROUGH BLANK, FOR N=N-1,-1,N.L.1 *197 LM00214
CARD(N)=BLNKS *198 LM00215
BLANK CONTINUE *199 LM00216
FUNCTION RETURN *200 LM00217
END OF FUNCTION *201 LM00218
LM00219
END OF FUNCTION *202 LM00220
MODE STRUCTURE 1 .MOD. 1 TO 1 007 LM00002
(THE NUMERIC FORM OF THE OPERATOR-MODE ARGUMENT IS 11111 )
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 01443 TRANSFER VECTOR LENGTH 00005 PROGRAM BEGINS 00261
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
CLOSEW 00740 0 SETCOL 00712 0 SINHB 00704 0 SETSR 00672 0 BKSET 00622 0
TABSET 00564 0 NEWBKS 00554 0 NEWTBS 00544 0 BOTTOM 00525 0 READ 00443 0
WRITE 00271 0 SETBK 00262 0
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
BK 00146 A 1 ENDB 00015 4 I 00201 1 NCHRS 00213 A 1 RETURN 00223 A 1
BKSP 00147 A 1 EOLR 00016 4 ISCHR 00020 4 NCLWD 00214 A 1 SRCOL 00224 A 1
BLANK 00013 4 EOLW 00017 4 J 00202 1 NCOLS 00215 A 1 SRINHB 00014 A 2
BLNK 00150 A 1 FILLT 00013 4 LAST 00203 1 NC 00216 1 TAB 00225 A 1
BLNKS 00151 A 1 FNS3 00175 A 1 LNO 00204 1 N 00217 1 TB 00252 A 1
B 00152 1 FNS7 00176 A 1 LTH 00205 1 NTBS 00220 A 1 T 00253 1
BTSCHR 00153 A 1 FSTNO 00177 A 1 M 00206 1 NWRDS 00221 A 1 UNCNV 00013 4
CARD 00172 A 1 GTBK 00013 4 MXBKS 00207 A 1 NXTNO 00222 A 1 UNMSK 00254 A 1
CHAR 00173 1 GTTB 00013 4 MXCOLS 00210 A 1 RDLP 00013 4 WRLP 00013 4
CHRMSK 00174 A 1 INCR 00200 A 1 MXTBS 00211 A 1 RD 00021 4 ZLNO 00255 A 1
CNVRT 00013 4 INHB 00014 1 NBKS 00212 A 1
0FUNCTION DICTIONARY
DERBC 00000 1 EXIT 00001 1 FILE 00002 1 RDWORD 00003 1 WRWORD 00004 1
FILLB 00005 1 GTCHR 00006 1 RDCARD 00007 1 SERIAL 00010 1 STCHR 00011 1
WRCARD 00012 1
0ABSOLUTE CONSTANTS
00256 +000000000000 00257 +000000000001 00260 +233000000000
0STATEMENT DICTIONARY
00015 TXL -300543000542 00016 TXL -300521000514 00017 TXL -300435000434 00020 TXL -300430000424
00021 TXL -300531000527
0PROGRAM
EXTERNAL FUNCTION (LINE, L, EOF) 001 LM00015
NORMAL MODE IS INTEGER 002 LM00016
BOOLEAN SRINHB 003 LM00017
STATEMENT LABEL EOF 004 LM00018
INSERT FILE .MOD. 005 LM00019
DEFINE BINARY OPERATOR .MOD., PRECEDENCE SAME AS / 006 LM00001
MODE STRUCTURE 1 .MOD. 1 TO 1 007 LM00002
D'N CARD(14), TB(20), BK(84) 029 LM00020
V'S BK=377777777777K 030 LM00021
00146 +3 77777 7 77777
V'S NBKS=0 031 LM00022
00212 +0 00000 0 00000
V'S MXBKS=83 032 LM00023
00207 +0 00000 0 00123
V'S TB=377777777777K 033 LM00024
00252 +3 77777 7 77777
V'S MXTBS=20 034 LM00025
00211 +0 00000 0 00024
V'S NTBS=0 035 LM00026
00220 +0 00000 0 00000
V'S FNS3=377777777777K 036 LM00027
00175 +3 77777 7 77777
V'S FNS7=777777777777K 037 LM00028
00176 -3 77777 7 77777
V'S FSTNO=10 038 LM00029
00177 +0 00000 0 00012
V'S INCR=10 039 LM00030
00200 +0 00000 0 00012
V'S NXTNO=10 040 LM00031
00222 +0 00000 0 00012
V'S ZLNO=$ 00000$ 041 LM00032
00255 -2 00000 0 00000
V'S SRINHB=0B 042 LM00033
00014 +0 00000 0 00000
V'S BLNK=60K 043 LM00034
00150 +0 00000 0 00060
V'S BLNKS=$ $ 044 LM00035
00151 -2 06060 6 06060
V'S RETURN=55K 045 LM00036
00223 +0 00000 0 00055
V'S TAB=72K 046 LM00037
00225 +0 00000 0 00072
V'S BKSP=35K 047 LM00038
00147 +0 00000 0 00035
V'S NCOLS=72 048 LM00040
00215 +0 00000 0 00110
V'S MXCOLS=84 049 LM00041
00210 +0 00000 0 00124
V'S SRCOL=72 050 LM00042
00224 +0 00000 0 00110
V'S NWRDS=14 051 LM00043
00221 +0 00000 0 00016
V'S NCLWD=2 052 LM00044
00214 +0 00000 0 00002
V'S NCHRS=6 053 LM00045
00213 +0 00000 0 00006
V'S BTSCHR=6 054 LM00046
00153 +0 00000 0 00006
V'S CHRMSK=77K 055 LM00047
00174 +0 00000 0 00077
V'S UNMSK=777777777700K 056 LM00048
00254 -3 77777 7 77700
ENTRY TO SETBK. 057 LM00050
00261 TRA +0 02000 0 00264 00262 SXA +0 63400 2 01403 00263 TSX +0 07400 2 01403
BKSP=LINE.A.CHRMSK 058 LM00051
00264 CAL -0 50000 0 00024 00265 ANA -0 32000 0 00174 00266 SLW +0 60200 0 00147
F'N 059 LM00052
00267 TRA +0 02000 0 01435
ENTRY TO WRITE. 060 LM00054
00270 TRA +0 02000 0 00273 00271 SXA +0 63400 2 01403 00272 TSX +0 07400 2 01403
B=0 061 LM00056
00273 CLA +0 50000 0 00256 00274 STO +0 60100 0 00152
T=0 062 LM00057
00275 CLA +0 50000 0 00256 00276 STO +0 60100 0 00253
W'R L.L.1, F'N 063 LM00058
00277 CLA +0 50000 0 00024 00300 SUB +0 40200 0 00257 00301 TZE +0 10000 0 00304 00302 TPL +0 12000 0 00304
00303 TRA +0 02000 0 01435
LTH=L-1 064 LM00059
00304 CLA +0 50000 0 00024 00305 SUB +0 40200 0 00257 00306 STO +0 60100 0 00205
J=1 065 LM00060
00307 CLA +0 50000 0 00257 00310 STO +0 60100 0 00202
T'H UNCNV, FOR I=1,1,I.G.LTH 066 LM00061
00311 CLA +0 50000 0 00257 00312 STO +0 60100 0 00201 00313 TRA +0 02000 0 00317 00314 CLA +0 50000 0 00201
00315 ADD +0 40000 0 00257 00316 STO +0 60100 0 00201 00317 CLA +0 50000 0 00201 00320 SUB +0 40200 0 00205
00321 TZE +0 10000 0 00323 00322 TPL +0 12000 0 00434
GTTB T'H GTTB, FOR T=0,1,TB(T).G.J 067 LM00062
00323 CLA +0 50000 0 00256 00324 STO +0 60100 0 00253 00325 TRA +0 02000 0 00331 00326 CLA +0 50000 0 00253
00327 ADD +0 40000 0 00257 00330 STO +0 60100 0 00253 00331 LXA +0 53400 1 00253 00332 CLA +0 50000 1 00252
00333 SUB +0 40200 0 00202 00334 TZE +0 10000 0 00336 00335 TPL +0 12000 0 00337 00336 TRA +0 02000 0 00326
GTBK T'H GTBK, FOR B=0,1,BK(B).GE.J 068 LM00063
00337 CLA +0 50000 0 00256 00340 STO +0 60100 0 00152 00341 TRA +0 02000 0 00345 00342 CLA +0 50000 0 00152
00343 ADD +0 40000 0 00257 00344 STO +0 60100 0 00152 00345 LXA +0 53400 1 00152 00346 CLA +0 50000 1 00146
00347 SUB +0 40200 0 00202 00350 TZE +0 10000 0 00353 00351 TPL +0 12000 0 00353 00352 TRA +0 02000 0 00342
CHAR=LINE(I).A.CHRMSK 069 LM00064
00353 LXA +0 53400 1 00201 00354 CAL -0 50000 1 00024 00355 ANA -0 32000 0 00174 00356 SLW +0 60200 0 00173
W'R CHAR.E.TAB 070 LM00065
00357 CLA +0 50000 0 00173 00360 SUB +0 40200 0 00225 00361 TNZ -0 10000 0 00411
W'R TB(T).E.FNS3 071 LM00066
00362 LXA +0 53400 1 00253 00363 CLA +0 50000 1 00252 00364 SUB +0 40200 0 00175 00365 TNZ -0 10000 0 00371
CHAR=BLNK 072 LM00067
00366 CLA +0 50000 0 00150 00367 STO +0 60100 0 00173
T'O ISCHR 073 LM00068
00370 TRA +0 02000 0 00020
E'L 074 LM00069
T'H FILLT, FOR J=J,1,J.E.TB(T) 075 LM00070
00371 CLA +0 50000 0 00202 00372 STO +0 60100 0 00202 00373 TRA +0 02000 0 00377 00374 CLA +0 50000 0 00202
00375 ADD +0 40000 0 00257 00376 STO +0 60100 0 00202 00377 LXA +0 53400 2 00253 00400 CLA +0 50000 0 00202
00401 SUB +0 40200 2 00252 00402 TZE +0 10000 0 00410
STCHR.(BLNK,J,EOLW) 076 LM00071
00403 TSX +0 07400 4 00011 00404 TXH +3 00000 0 00150 00405 TXH +3 00000 0 00202 00406 TXH +3 00000 0 00017
FILLT CONTINUE 077 LM00072
00407 TRA +0 02000 0 00374
O'R CHAR.E.BKSP.AND.J.E.BK(B) 078 LM00073
00410 TRA +0 02000 0 00433 00411 LXA +0 53400 2 00152 00412 CLA +0 50000 0 00202 00413 SUB +0 40200 2 00146
00414 TNZ -0 10000 0 00424 00415 CLA +0 50000 0 00173 00416 SUB +0 40200 0 00147 00417 TNZ -0 10000 0 00424
J=J-1 079 LM00074
00420 CLA +0 50000 0 00202 00421 SUB +0 40200 0 00257 00422 STO +0 60100 0 00202
O'E 080 LM00075
00423 TRA +0 02000 0 00433
ISCHR STCHR.(CHAR,J,EOLW) 081 LM00076
00424 TSX +0 07400 4 00011 00425 TXH +3 00000 0 00173 00426 TXH +3 00000 0 00202 00427 TXH +3 00000 0 00017
J=J+1 082 LM00077
00430 CLA +0 50000 0 00202 00431 ADD +0 40000 0 00257 00432 STO +0 60100 0 00202
E'L 083 LM00078
UNCNV CONTINUE 084 LM00079
00433 TRA +0 02000 0 00314
EOLW FILLB. 085 LM00080
00434 TSX +0 07400 4 00005
W'R .NOT.SRINHB, SERIAL. 086 LM00081
00435 ZET +0 52000 0 00014 00436 TRA +0 02000 0 00440 00437 TSX +0 07400 4 00010
WRCARD. 087 LM00082
00440 TSX +0 07400 4 00012
F'N 088 LM00083
00441 TRA +0 02000 0 01435
ENTRY TO READ. 089 LM00085
00442 TRA +0 02000 0 00445 00443 SXA +0 63400 2 01403 00444 TSX +0 07400 2 01403
B=0 090 LM00087
00445 CLA +0 50000 0 00256 00446 STO +0 60100 0 00152
T=0 091 LM00088
00447 CLA +0 50000 0 00256 00450 STO +0 60100 0 00253
LTH=L-1 092 LM00089
00451 CLA +0 50000 0 00024 00452 SUB +0 40200 0 00257 00453 STO +0 60100 0 00205
J=1 093 LM00090
00454 CLA +0 50000 0 00257 00455 STO +0 60100 0 00202
LAST=0 094 LM00091
00456 CLA +0 50000 0 00256 00457 STO +0 60100 0 00203
RDCARD.(EOF) 095 LM00092
00460 TSX +0 07400 4 00007 00461 TXH +3 00000 0 00024
T'H CNVRT, FOR I=1,1,I.G.LTH 096 LM00093
00462 CLA +0 50000 0 00257 00463 STO +0 60100 0 00201 00464 TRA +0 02000 0 00470 00465 CLA +0 50000 0 00201
00466 ADD +0 40000 0 00257 00467 STO +0 60100 0 00201 00470 CLA +0 50000 0 00201 00471 SUB +0 40200 0 00205
00472 TZE +0 10000 0 00474 00473 TPL +0 12000 0 00514
GTCHR.(CHAR,J,EOLR) 097 LM00094
00474 TSX +0 07400 4 00006 00475 TXH +3 00000 0 00173 00476 TXH +3 00000 0 00202 00477 TXH +3 00000 0 00016
W'R CHAR.NE.BLNK, LAST=I 098 LM00095
00500 CLA +0 50000 0 00173 00501 SUB +0 40200 0 00150 00502 TZE +0 10000 0 00505 00503 CLA +0 50000 0 00201
00504 STO +0 60100 0 00203
LINE(I)=CHAR 099 LM00096
00505 LXA +0 53400 1 00201 00506 CLA +0 50000 0 00173 00507 STO +0 60100 1 00024
J=J+1 100 LM00097
00510 CLA +0 50000 0 00202 00511 ADD +0 40000 0 00257 00512 STO +0 60100 0 00202
CNVRT CONTINUE 101 LM00098
00513 TRA +0 02000 0 00465
EOLR LINE(LAST+1)=RETURN 102 LM00099
00514 CLA +0 50000 0 00203 00515 ADD +0 40000 0 00257 00516 PAX +0 73400 1 00000 00517 CLA +0 50000 0 00223
00520 STO +0 60100 1 00024
F'N LAST+1 103 LM00100
00521 CLA +0 50000 0 00203 00522 ADD +0 40000 0 00257 00523 TRA +0 02000 0 01435
ENTRY TO BOTTOM. 104 LM00102
00524 TRA +0 02000 0 00527 00525 SXA +0 63400 2 01403 00526 TSX +0 07400 2 01403
RD RDCARD.(ENDB) 105 LM00103
00527 TSX +0 07400 4 00007 00530 TXH +3 00000 0 00015
J=NCOLS+1 106 LM00104
00531 CLA +0 50000 0 00215 00532 ADD +0 40000 0 00257 00533 STO +0 60100 0 00202
FILLB. 107 LM00105
00534 TSX +0 07400 4 00005
W'R .NOT. SRINHB, SERIAL. 108 LM00106
00535 ZET +0 52000 0 00014 00536 TRA +0 02000 0 00540 00537 TSX +0 07400 4 00010
WRCARD. 109 LM00107
00540 TSX +0 07400 4 00012
T'O RD 110 LM00108
00541 TRA +0 02000 0 00021
ENDB F'N 111 LM00109
00542 TRA +0 02000 0 01435
ENTRY TO NEWTBS. 112 LM00111
00543 TRA +0 02000 0 00546 00544 SXA +0 63400 2 01403 00545 TSX +0 07400 2 01403
TB=FNS3 113 LM00112
00546 CLA +0 50000 0 00175 00547 STO +0 60100 0 00252
NTBS=0 114 LM00113
00550 CLA +0 50000 0 00256 00551 STO +0 60100 0 00220
F'N 115 LM00114
00552 TRA +0 02000 0 01435
ENTRY TO NEWBKS. 116 LM00116
00553 TRA +0 02000 0 00556 00554 SXA +0 63400 2 01403 00555 TSX +0 07400 2 01403
BK=FNS3 117 LM00117
00556 CLA +0 50000 0 00175 00557 STO +0 60100 0 00146
NBKS=0 118 LM00118
00560 CLA +0 50000 0 00256 00561 STO +0 60100 0 00212
F'N 119 LM00119
00562 TRA +0 02000 0 01435
ENTRY TO TABSET. 120 LM00121
00563 TRA +0 02000 0 00566 00564 SXA +0 63400 2 01403 00565 TSX +0 07400 2 01403
W'R NTBS.GE.MXTBS, F'N 121 LM00122
00566 CLA +0 50000 0 00220 00567 SUB +0 40200 0 00211 00570 TZE +0 10000 0 00572 00571 TMI -0 12000 0 00573
00572 TRA +0 02000 0 01435
W'R LINE.L.TB(NTBS-1).AND.NTBS.G.0, F'N 122 LM00123
00573 CLA +0 50000 0 00220 00574 SUB +0 40200 0 00256 00575 TZE +0 10000 0 00607 00576 TMI -0 12000 0 00607
00577 CLA +0 50000 0 00220 00600 SUB +0 40200 0 00257 00601 PAX +0 73400 2 00000 00602 CLA +0 50000 0 00024
00603 SUB +0 40200 2 00252 00604 TZE +0 10000 0 00607 00605 TPL +0 12000 0 00607 00606 TRA +0 02000 0 01435
TB(NTBS)=LINE 123 LM00124
00607 LXA +0 53400 1 00220 00610 CLA +0 50000 0 00024 00611 STO +0 60100 1 00252
NTBS=NTBS+1 124 LM00125
00612 CLA +0 50000 0 00220 00613 ADD +0 40000 0 00257 00614 STO +0 60100 0 00220
TB(NTBS)=FNS3 125 LM00126
00615 LXA +0 53400 1 00220 00616 CLA +0 50000 0 00175 00617 STO +0 60100 1 00252
F'N 126 LM00127
00620 TRA +0 02000 0 01435
ENTRY TO BKSET. 127 LM00129
00621 TRA +0 02000 0 00624 00622 SXA +0 63400 2 01403 00623 TSX +0 07400 2 01403
W'R LINE.G.NCOLS, F'N 128 LM00130
00624 CLA +0 50000 0 00024 00625 SUB +0 40200 0 00215 00626 TZE +0 10000 0 00631 00627 TMI -0 12000 0 00631
00630 TRA +0 02000 0 01435
W'R NBKS.GE.MXBKS, F'N 129 LM00131
00631 CLA +0 50000 0 00212 00632 SUB +0 40200 0 00207 00633 TZE +0 10000 0 00635 00634 TMI -0 12000 0 00636
00635 TRA +0 02000 0 01435
W'R LINE.LE.1, F'N 130 LM00132
00636 CLA +0 50000 0 00024 00637 SUB +0 40200 0 00257 00640 TZE +0 10000 0 00642 00641 TPL +0 12000 0 00643
00642 TRA +0 02000 0 01435
W'R LINE.L.BK(NBKS-1).AND.NBKS.G.0, F'N 131 LM00133
00643 CLA +0 50000 0 00212 00644 SUB +0 40200 0 00256 00645 TZE +0 10000 0 00657 00646 TMI -0 12000 0 00657
00647 CLA +0 50000 0 00212 00650 SUB +0 40200 0 00257 00651 PAX +0 73400 2 00000 00652 CLA +0 50000 0 00024
00653 SUB +0 40200 2 00146 00654 TZE +0 10000 0 00657 00655 TPL +0 12000 0 00657 00656 TRA +0 02000 0 01435
BK(NBKS)=LINE 132 LM00134
00657 LXA +0 53400 1 00212 00660 CLA +0 50000 0 00024 00661 STO +0 60100 1 00146
NBKS=NBKS+1 133 LM00135
00662 CLA +0 50000 0 00212 00663 ADD +0 40000 0 00257 00664 STO +0 60100 0 00212
BK(NBKS)=FNS3 134 LM00136
00665 LXA +0 53400 1 00212 00666 CLA +0 50000 0 00175 00667 STO +0 60100 1 00146
F'N 135 LM00137
00670 TRA +0 02000 0 01435
ENTRY TO SETSR. 136 LM00139
00671 TRA +0 02000 0 00674 00672 SXA +0 63400 2 01403 00673 TSX +0 07400 2 01403
NXTNO=LINE 137 LM00140
00674 CLA +0 50000 0 00024 00675 STO +0 60100 0 00222
FSTNO=LINE 138 LM00141
00676 CLA +0 50000 0 00024 00677 STO +0 60100 0 00177
INCR=L 139 LM00142
00700 CLA +0 50000 0 00024 00701 STO +0 60100 0 00200
F'N 140 LM00143
00702 TRA +0 02000 0 01435
ENTRY TO SINHB. 141 LM00145
00703 TRA +0 02000 0 00706 00704 SXA +0 63400 2 01403 00705 TSX +0 07400 2 01403
EQUIVALENCE(INHB,SRINHB) 142 LM00146
INHB=LINE 143 LM00147
00706 CLA +0 50000 0 00024 00707 STO +0 60100 0 00014
F'N 144 LM00148
00710 TRA +0 02000 0 01435
ENTRY TO SETCOL. 145 LM00150
00711 TRA +0 02000 0 00714 00712 SXA +0 63400 2 01403 00713 TSX +0 07400 2 01403
NCOLS=LINE 146 LM00151
00714 CLA +0 50000 0 00024 00715 STO +0 60100 0 00215
W'R NCOLS.E.0, NCOLS=SRCOL 147 LM00152
00716 CLA +0 50000 0 00215 00717 SUB +0 40200 0 00256 00720 TNZ -0 10000 0 00723 00721 CLA +0 50000 0 00224
00722 STO +0 60100 0 00215
W'R NCOLS.NE.SRCOL, SRINHB=1B 148 LM00153
00723 CLA +0 50000 0 00215 00724 SUB +0 40200 0 00224 00725 TZE +0 10000 0 00730 00726 CLA +0 50000 0 00257
00727 STO +0 60100 0 00014
W'R NCOLS.G.MXCOLS, NCOLS=MXCOLS 149 LM00154
00730 CLA +0 50000 0 00215 00731 SUB +0 40200 0 00210 00732 TZE +0 10000 0 00736 00733 TMI -0 12000 0 00736
00734 CLA +0 50000 0 00210 00735 STO +0 60100 0 00215
F'N 150 LM00155
00736 TRA +0 02000 0 01435
ENTRY TO CLOSEW. 151 LM00157
00737 TRA +0 02000 0 00742 00740 SXA +0 63400 2 01403 00741 TSX +0 07400 2 01403
NXTNO = FSTNO 152 LM00158
00742 CLA +0 50000 0 00177 00743 STO +0 60100 0 00222
FILE. 153 LM00159
00744 TSX +0 07400 4 00002
F'N 154 LM00160
00745 TRA +0 02000 0 01435
INTERNAL FUNCTION (ENDF) 155 LM00165
00746 TRA +0 02000 0 01032
STATEMENT LABEL ENDF 156 LM00166
ENTRY TO RDCARD. 157 LM00167
00747 TRA +0 02000 0 00752 00007 TTR +0 02100 0 00750 00750 SXA +0 63400 2 01020 00751 TSX +0 07400 2 01020
T'H RDLP, FOR N=NWRDS,-1,N.L.1 158 LM00168
00752 CLA +0 50000 0 00221 00753 STO +0 60100 0 00217 00754 TRA +0 02000 0 00760 00755 CLS +0 50200 0 00257
00756 ADD +0 40000 0 00217 00757 STO +0 60100 0 00217 00760 CLA +0 50000 0 00217 00761 SUB +0 40200 0 00257
00762 TZE +0 10000 0 00764 00763 TMI -0 12000 0 00771
CARD(N)=RDWORD.(ENDF) 159 LM00169
00764 TSX +0 07400 4 00003 00765 TXH +3 00000 0 00024 00766 LXA +0 53400 1 00217 00767 STO +0 60100 1 00172
RDLP CONTINUE 160 LM00170
00770 TRA +0 02000 0 00755
F'N 161 LM00171
00771 TRA +0 02000 0 01026
ENTRY TO WRCARD. 162 LM00173
00772 TRA +0 02000 0 00775 00012 TTR +0 02100 0 00773 00773 SXA +0 63400 2 01020 00774 TSX +0 07400 2 01020
T'H WRLP, FOR N=NWRDS,-1,N.L.1 163 LM00174
00775 CLA +0 50000 0 00221 00776 STO +0 60100 0 00217 00777 TRA +0 02000 0 01003 01000 CLS +0 50200 0 00257
01001 ADD +0 40000 0 00217 01002 STO +0 60100 0 00217 01003 CLA +0 50000 0 00217 01004 SUB +0 40200 0 00257
01005 TZE +0 10000 0 01007 01006 TMI -0 12000 0 01016
WRWORD.(CARD(N)) 164 LM00175
01007 CLA +0 50000 0 00217 01010 SUB +0 40200 0 01011 01011 TXH +3 00000 0 00172 01012 STA +0 62100 0 01014
01013 TSX +0 07400 4 00004 01014 TXH +3 00000 0 00000
WRLP CONTINUE 165 LM00176
01015 TRA +0 02000 0 01000
F'N 166 LM00177
01016 TRA +0 02000 0 01026
E'N 167 LM00178
01017 TSX +0 07400 4 00001 01020 TXH +3 00000 0 00000 01021 SXD -0 63400 1 01020 01022 SXA +0 63400 4 01026
01023 CLA +0 50000 4 00001 01024 STO +0 60100 0 00765 01025 TRA +0 02000 2 00001 01026 AXT +0 77400 4 00000
01027 LXA +0 53400 2 01020 01030 LXD -0 53400 1 01020 01031 TRA +0 02000 4 00001
INTERNAL FUNCTION (ARG1,ARG2,LOC) 168 LM00180
01032 TRA +0 02000 0 01205
STATEMENT LABEL LOC 169 LM00181
ENTRY TO GTCHR. 170 LM00182
01033 TRA +0 02000 0 01036 00006 TTR +0 02100 0 01034 01034 SXA +0 63400 2 01157 01035 TSX +0 07400 2 01157
W'R ARG2.G.NCOLS, T'O LOC 171 LM00183
01036 CLA +0 50000 0 00024 01037 SUB +0 40200 0 00215 01040 TZE +0 10000 0 01043 01041 TMI -0 12000 0 01043
01042 TRA +0 02000 0 00024
M=BTSCHR*(NCHRS-1-(ARG2-1).MOD.NCHRS) 172 LM00184
01043 CLA +0 50000 0 00024 01044 SUB +0 40200 0 00257 01045 XCA +0 13100 0 00000 01046 PXD -0 75400 0 00000
01047 LLS +0 76300 0 00000 01050 DVP +0 22100 0 00213 01051 STO +0 60100 0 01204 01052 CLA +0 50000 0 00213
01053 SUB +0 40200 0 00257 01054 SUB +0 40200 0 01204 01055 XCA +0 13100 0 00000 01056 MPY +0 20000 0 00153
01057 STQ -0 60000 0 00206
N=NWRDS-(ARG2-1)/NCHRS 173 LM00185
01060 CLA +0 50000 0 00024 01061 SUB +0 40200 0 00257 01062 LRS +0 76500 0 00043 01063 DVP +0 22100 0 00213
01064 XCA +0 13100 0 00000 01065 CHS +0 76000 0 00002 01066 ADD +0 40000 0 00221 01067 STO +0 60100 0 00217
ARG1=(CARD(N).RS.M).A.CHRMSK 174 LM00186
01070 LXA +0 53400 1 00217 01071 CAL -0 50000 0 00206 01072 STA +0 62100 0 01074 01073 CAL -0 50000 1 00172
01074 LGR -0 76500 0 00000 01075 ANA -0 32000 0 00174 01076 SLW +0 60200 0 00024
F'N 175 LM00187
01077 TRA +0 02000 0 01200
ENTRY TO STCHR. 176 LM00189
01100 TRA +0 02000 0 01103 00011 TTR +0 02100 0 01101 01101 SXA +0 63400 2 01157 01102 TSX +0 07400 2 01157
W'R ARG2.G.NCOLS, T'O LOC 177 LM00190
01103 CLA +0 50000 0 00024 01104 SUB +0 40200 0 00215 01105 TZE +0 10000 0 01110 01106 TMI -0 12000 0 01110
01107 TRA +0 02000 0 00024
M=BTSCHR*(NCHRS-1-(ARG2-1).MOD.NCHRS) 178 LM00191
01110 CLA +0 50000 0 00024 01111 SUB +0 40200 0 00257 01112 XCA +0 13100 0 00000 01113 PXD -0 75400 0 00000
01114 LLS +0 76300 0 00000 01115 DVP +0 22100 0 00213 01116 STO +0 60100 0 01204 01117 CLA +0 50000 0 00213
01120 SUB +0 40200 0 00257 01121 SUB +0 40200 0 01204 01122 XCA +0 13100 0 00000 01123 MPY +0 20000 0 00153
01124 STQ -0 60000 0 00206
N=NWRDS-(ARG2-1)/NCHRS 179 LM00192
01125 CLA +0 50000 0 00024 01126 SUB +0 40200 0 00257 01127 LRS +0 76500 0 00043 01130 DVP +0 22100 0 00213
01131 XCA +0 13100 0 00000 01132 CHS +0 76000 0 00002 01133 ADD +0 40000 0 00221 01134 STO +0 60100 0 00217
CARD(N)=(CARD(N).A.UNMSK.LS.M).V.((ARG1.A.CHRMSK).LS.M) 180 LM00193
01135 CAL -0 50000 0 00024 01136 ANA -0 32000 0 00174 01137 SLW +0 60200 0 01204 01140 CAL -0 50000 0 00206
01141 STA +0 62100 0 01143 01142 CAL -0 50000 0 01204 01143 ALS +0 76700 0 00000 01144 SLW +0 60200 0 01204
01145 CAL -0 50000 0 00206 01146 STA +0 62100 0 01150 01147 CAL -0 50000 0 00254 01150 ALS +0 76700 0 00000
01151 LXA +0 53400 1 00217 01152 ANA -0 32000 1 00172 01153 ORA -0 50100 0 01204 01154 SLW +0 60200 1 00172
F'N 181 LM00194
01155 TRA +0 02000 0 01200
E'N 182 LM00195
01156 TSX +0 07400 4 00001 01157 TXH +3 00000 0 00000 01160 SXD -0 63400 1 01157 01161 SXA +0 63400 4 01200
01162 CLA +0 50000 4 00001 01163 STA +0 62100 0 01076 01164 STA +0 62100 0 01135 01165 CLA +0 50000 4 00002
01166 STA +0 62100 0 01036 01167 STA +0 62100 0 01043 01170 STA +0 62100 0 01060 01171 STA +0 62100 0 01103
01172 STA +0 62100 0 01110 01173 STA +0 62100 0 01125 01174 CLA +0 50000 4 00003 01175 STA +0 62100 0 01042
01176 STA +0 62100 0 01107 01177 TRA +0 02000 2 00001 01200 AXT +0 77400 4 00000 01201 LXA +0 53400 2 01157
01202 LXD -0 53400 1 01157 01203 TRA +0 02000 4 00001
INTERNAL FUNCTION (ARG1,ARG2) 183 LM00197
01205 TRA +0 02000 0 01277
ENTRY TO SERIAL. 184 LM00198
01206 TRA +0 02000 0 01211 00010 TTR +0 02100 0 01207 01207 SXA +0 63400 2 01266 01210 TSX +0 07400 2 01266
LNO=DERBC.(NXTNO).V.ZLNO 185 LM00199
01211 TSX +0 07400 4 00000 01212 TXH +3 00000 0 00222 01213 STO +0 60100 0 01276 01214 CAL -0 50000 0 01276
01215 ORA -0 50100 0 00255 01216 SLW +0 60200 0 00204
CARD(2)=(LNO.RS.(BTSCHR*NCLWD)).V. 186 LM00200
1 (BLNKS.LS.(BTSCHR*(NCHRS-NCLWD))) 186 LM00201
01217 CLA +0 50000 0 00213 01220 SUB +0 40200 0 00214 01221 XCA +0 13100 0 00000 01222 MPY +0 20000 0 00153
01223 XCA +0 13100 0 00000 01224 STA +0 62100 0 01226 01225 CAL -0 50000 0 00151 01226 ALS +0 76700 0 00000
01227 SLW +0 60200 0 01276 01230 LDQ +0 56000 0 00153 01231 MPY +0 20000 0 00214 01232 XCA +0 13100 0 00000
01233 STA +0 62100 0 01235 01234 CAL -0 50000 0 00204 01235 LGR -0 76500 0 00000 01236 ORA -0 50100 0 01276
01237 SLW +0 60200 0 00170
CARD(1)=LNO.LS.(BTSCHR*(NCHRS-NCLWD)).V. 187 LM00202
1 (BLNKS.RS.(BTSCHR*NCLWD)) 187 LM00203
01240 LDQ +0 56000 0 00153 01241 MPY +0 20000 0 00214 01242 XCA +0 13100 0 00000 01243 STA +0 62100 0 01245
01244 CAL -0 50000 0 00151 01245 LGR -0 76500 0 00000 01246 SLW +0 60200 0 01276 01247 CLA +0 50000 0 00213
01250 SUB +0 40200 0 00214 01251 XCA +0 13100 0 00000 01252 MPY +0 20000 0 00153 01253 XCA +0 13100 0 00000
01254 STA +0 62100 0 01256 01255 CAL -0 50000 0 00204 01256 ALS +0 76700 0 00000 01257 ORA -0 50100 0 01276
01260 SLW +0 60200 0 00171
NXTNO=NXTNO+INCR 188 LM00204
01261 CLA +0 50000 0 00222 01262 ADD +0 40000 0 00200 01263 STO +0 60100 0 00222
F'N 189 LM00205
01264 TRA +0 02000 0 01272
E'N 190 LM00206
01265 TSX +0 07400 4 00001 01266 TXH +3 00000 0 00000 01267 SXD -0 63400 1 01266 01270 SXA +0 63400 4 01272
01271 TRA +0 02000 2 00001 01272 AXT +0 77400 4 00000 01273 LXA +0 53400 2 01266 01274 LXD -0 53400 1 01266
01275 TRA +0 02000 4 00001
INTERNAL FUNCTION 191 LM00208
01277 TRA +0 02000 0 01402
ENTRY TO FILLB. 192 LM00209
01300 TRA +0 02000 0 01303 00005 TTR +0 02100 0 01301 01301 SXA +0 63400 2 01371 01302 TSX +0 07400 2 01371
NC=J-1 193 LM00210
01303 CLA +0 50000 0 00202 01304 SUB +0 40200 0 00257 01305 STO +0 60100 0 00216
M=BTSCHR*((NC-1).MOD.NCHRS+1) 194 LM00211
01306 CLA +0 50000 0 00216 01307 SUB +0 40200 0 00257 01310 XCA +0 13100 0 00000 01311 PXD -0 75400 0 00000
01312 LLS +0 76300 0 00000 01313 DVP +0 22100 0 00213 01314 ADD +0 40000 0 00257 01315 XCA +0 13100 0 00000
01316 MPY +0 20000 0 00153 01317 STQ -0 60000 0 00206
N=NWRDS-(NC-1)/NCHRS 195 LM00212
01320 CLA +0 50000 0 00216 01321 SUB +0 40200 0 00257 01322 LRS +0 76500 0 00043 01323 DVP +0 22100 0 00213
01324 XCA +0 13100 0 00000 01325 CHS +0 76000 0 00002 01326 ADD +0 40000 0 00221 01327 STO +0 60100 0 00217
CARD(N)=(CARD(N).A.(FNS7.LS.(BTSCHR*NCHRS-M))).V.(BLNKS.RS.M) 196 LM00213
01330 CAL -0 50000 0 00206 01331 STA +0 62100 0 01333 01332 CAL -0 50000 0 00151 01333 LGR -0 76500 0 00000
01334 SLW +0 60200 0 01401 01335 LDQ +0 56000 0 00153 01336 MPY +0 20000 0 00213 01337 XCA +0 13100 0 00000
01340 SUB +0 40200 0 00206 01341 STA +0 62100 0 01343 01342 CAL -0 50000 0 00176 01343 ALS +0 76700 0 00000
01344 LXA +0 53400 1 00217 01345 ANA -0 32000 1 00172 01346 ORA -0 50100 0 01401 01347 SLW +0 60200 1 00172
T'H BLANK, FOR N=N-1,-1,N.L.1 197 LM00214
01350 CLA +0 50000 0 00217 01351 SUB +0 40200 0 00257 01352 STO +0 60100 0 00217 01353 TRA +0 02000 0 01357
01354 CLS +0 50200 0 00257 01355 ADD +0 40000 0 00217 01356 STO +0 60100 0 00217 01357 CLA +0 50000 0 00217
01360 SUB +0 40200 0 00257 01361 TZE +0 10000 0 01363 01362 TMI -0 12000 0 01367
CARD(N)=BLNKS 198 LM00215
01363 LXA +0 53400 1 00217 01364 CLA +0 50000 0 00151 01365 STO +0 60100 1 00172
BLANK CONTINUE 199 LM00216
01366 TRA +0 02000 0 01354
F'N 200 LM00217
01367 TRA +0 02000 0 01375
E'N 201 LM00218
01370 TSX +0 07400 4 00001 01371 TXH +3 00000 0 00000 01372 SXD -0 63400 1 01371 01373 SXA +0 63400 4 01375
01374 TRA +0 02000 2 00001 01375 AXT +0 77400 4 00000 01376 LXA +0 53400 2 01371 01377 LXD -0 53400 1 01371
01400 TRA +0 02000 4 00001
END OF FUNCTION 202 LM00220
01402 TSX +0 07400 4 00001 01403 TXH +3 00000 0 00000 01404 SXD -0 63400 1 01403 01405 SXA +0 63400 4 01435
01406 CLA +0 50000 4 00001 01407 STA +0 62100 0 00264 01410 STA +0 62100 0 00354 01411 STA +0 62100 0 00507
01412 STA +0 62100 0 00520 01413 STA +0 62100 0 00602 01414 STA +0 62100 0 00610 01415 STA +0 62100 0 00624
01416 STA +0 62100 0 00636 01417 STA +0 62100 0 00652 01420 STA +0 62100 0 00660 01421 STA +0 62100 0 00674
01422 STA +0 62100 0 00676 01423 STA +0 62100 0 00706 01424 STA +0 62100 0 00714 01425 CLA +0 50000 4 00002
01426 STA +0 62100 0 00277 01427 STA +0 62100 0 00304 01430 STA +0 62100 0 00451 01431 STA +0 62100 0 00700
01432 CLA +0 50000 4 00003 01433 STO +0 60100 0 00461 01434 TRA +0 02000 2 00001 01435 AXT +0 77400 4 00000
01436 LXA +0 53400 2 01403 01437 LXD -0 53400 1 01403 01440 TRA +0 02000 4 00001
1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. PAGE 1
* NOTE, INDEX REGISTERS SIX AND SEVEN MUST BE PRESERVED
* BY THE CALLING PROGRAM.
* THIS ROUTINE MAKES TYPEWRITER COMMENTS, BUT DOES NOT
* AFFECT THE BCD-FULL MODE SWITCH.
*
* J. H. SALTZER, JANUARY, 1965.
*
00015 ENTRY ASSIGN TO ASSIGN A NAME TO THE WRITE FILE.
00057 ENTRY WRWORD TO ADD A WORD TO THE FILE.
00100 ENTRY FILE TO CLOSE THE FILE.
*
00160 ENTRY SEEK TO OPEN A FILE FOR READING.
00242 ENTRY RDWORD TO GET A WORD FROM FILE.
00275 ENTRY ENDRD TO CLOSE THE FILE.
*
EXTERN GETBUF,SETBCD,SETFUL,WRFLX,WRFLXA
EXTERN OPEN,WRWAIT,RDWAIT,CLOSE,FSTATE,BUFFER
*
* ASSIGN.($NAME1$,$NAME2$)
*
TRANSFER VECTOR
00000 272563226426 GETBUF
00001 622563222324 SETBCD
00002 622563266443 SETFUL
00003 665126436760 WRFLX
00004 665126436721 WRFLXA
00005 464725456060 OPEN
00006 665166213163 WRWAIT
00007 512466213163 RDWAIT
00010 234346622560 CLOSE
00011 266263216325 FSTATE
00012 226426262551 BUFFER
LINKAGE DIRECTOR
00013 000000000000
00014 216262312745
00015 -0500 60 4 00001 ASSIGN CAL* 1,4 OPEN FILE, GET FILE NAME.
00016 0602 00 0 00304 SLW OUTNAM ..
00017 -0500 60 4 00002 CAL* 2,4 ..
00020 0602 00 0 00305 SLW OUTNAM+1 ..
00021 0634 00 4 00041 SXA OPX4,4 SAVE LINKAGE.
00022 0020 00 0 00023 OSW TRA *+1 ENTER ONE-TIME SECTION TO GET BUFFERS.
* *******************
00023 -0500 00 0 00315 CAL WBFSZ GET AN OUTPUT BUFFER FROM SUPERVISOR.
00024 0074 00 4 00000 TSX GETBUF,4 ..
00025 0621 00 0 00071 STA WCALL SAVE LOCATION OF BUFFER.
00026 0621 00 0 00113 STA CLCALL TO CLOSE OUT FILE.
00027 0361 00 0 00315 ACL WBFSZ ADD LENGTH, TO FORM END ADDRESS.
00030 0621 00 0 00060 STA WRNM INSERT IN INSERTER.
00031 -0500 00 0 00313 CAL TRKSZ GET A DISK TRACK BUFFER.
00032 0074 00 4 00000 TSX GETBUF,4 ..
00033 0621 00 0 00055 STA BFCALL SET UP BUFFER CALLER.
00034 -0625 00 0 00022 STL OSW RESET ONE-TIME SWITCH.
* *******************
1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. PAGE 2
00035 0774 00 4 00040 AXT OPOK,4 SET QUOTA EXHAUSTED ERROR RETURN.
00036 0634 00 4 00143 SXA WRTN,4 ..
00037 0074 00 3 00043 TSX OPN,3 OPEN THE FILE.
00040 0774 00 7 00330 OPOK AXT WBFLTH,7 SET UP STORAGE COUNT.
00041 0774 00 4 00000 OPX4 AXT --,4 RESTORE LINKAGE.
00042 0020 00 4 00003 TRA 3,4 RETURN.
*
00043 0074 00 4 00005 OPN TSX OPEN,4 OPEN FILE.
TD 00044 3 00000 0 00324 TXH =HW FOR WRITING.
TD 00045 3 00000 0 00304 TXH OUTNAM ..
TD 00046 3 00000 0 00305 TXH OUTNAM+1 ..
TD 00047 3 00000 0 00156 TXH MODE MAKE IT PERMANENT IF POSSIBLE.
TD 00050 3 00000 0 00320 TXH =2 PUT IT ON THE DISK.
TD 00051 3 00000 0 00127 OPERR TXH OEXH IN CASE NO MORE QUOTA AVAILABLE.
00052 0074 00 4 00012 TSX BUFFER,4 ASSIGN A BUFFER FOR THE FILE.
TD 00053 3 00000 0 00304 TXH OUTNAM ..
TD 00054 3 00000 0 00305 TXH OUTNAM+1 ..
00055 3 00660 0 00000 BFCALL TXH --,,TRKLTH ..
00056 0020 00 3 00001 TRA 1,3 RETURN TO CALLER.
*
*
* ENTRY TO ADD A WORD TO FILE.
* WRWORD.(WORD)
*
00057 -0500 60 4 00001 WRWORD CAL* 1,4 GET WORD TO BE ADDED.
00060 0602 00 7 00000 WRNM SLW --,7 ADD WORD TO OUTPUT BUFFER.
00061 2 00001 7 00077 TIX RETURN,7,1 COUNT AND CHECK FOR FULL BUFFER.
00062 0634 00 4 00076 FULL SXA FULX4,4 BUFFER FULL, WRITE IT OUT.
00063 0774 00 4 00065 AXT WRAGN,4 SET UP EXHAUSTED RETURN ADDRESS.
00064 0634 00 4 00143 SXA WRTN,4 ..
00065 0074 00 4 00006 WRAGN TSX WRWAIT,4 GIVE BUFFER TO SUPERVISOR.
TD 00066 3 00000 0 00304 TXH OUTNAM ..
TD 00067 3 00000 0 00305 TXH OUTNAM+1 ..
TD 00070 3 00000 0 00316 TXH =0 ..
00071 3 00330 0 00000 WCALL TXH --,,WBFLTH ..
TD 00072 3 00000 0 00321 TXH =-0 IGNORE POSSIBLE EOF.
TD 00073 3 00000 0 00321 TXH =-0 ..
TD 00074 3 00000 0 00124 WRERR TXH WEXH ALLOW ERROR RETURN.
00075 0774 00 7 00330 AXT WBFLTH,7 RESET BUFFER POINTER.
00076 0774 00 4 00000 FULX4 AXT --,4 RESTORE LINKAGE.
00077 0020 00 4 00002 RETURN TRA 2,4 RETURN TO CALLER.
*
* FILE. NO ARGUMENTS.
*
00100 0634 00 4 00122 FILE SXA CL4,4 ENTRY TO CLOSE OUT FILE.
00101 -0634 00 7 00103 SXD *+2,7 FORM COUNT OF WORDS SINCE
00102 0774 00 7 00330 AXT WBFLTH,7 LAST BUFFER WAS WRITTEN.
00103 -2 00000 7 00117 TNX NOWR,7,-- IF ZERO, SKIP FINAL WRITE CALL.
00104 -0634 00 7 00113 SXD CLCALL,7 NON-ZERO, SET UP WRITE CALL.
00105 0774 00 4 00107 AXT FWR,4 SET UP RETURN ADDRESS FOR EXHAUSTED CASE.
00106 0634 00 4 00143 SXA WRTN,4 ..
00107 0074 00 4 00006 FWR TSX WRWAIT,4 WRITE OUT PARTIAL BUFFER.
TD 00110 3 00000 0 00304 TXH OUTNAM ..
TD 00111 3 00000 0 00305 TXH OUTNAM+1 ..
TD 00112 3 00000 0 00316 TXH =0 ..
00113 3 00000 0 00000 CLCALL TXH --,,-- ..
1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. PAGE 3
TD 00114 3 00000 0 00321 TXH =-0 IGNORE EOF RETURN.
TD 00115 3 00000 0 00321 TXH =-0 ..
TD 00116 3 00000 0 00124 TXH WEXH ALLOW ERROR RETURN.
00117 0074 00 4 00010 NOWR TSX CLOSE,4 CLOSE OUT THE FILE.
TD 00120 3 00000 0 00304 TXH OUTNAM ..
TD 00121 3 00000 0 00305 TXH OUTNAM+1 ..
00122 0774 00 4 00000 CL4 AXT --,4 RESTORE LINKAGE.
00123 0020 00 4 00001 TRA 1,4 ..
*
00124 0074 00 4 00010 WEXH TSX CLOSE,4 TRACK QUOTA EXHAUSTED, CLOSE FILE.
TD 00125 3 00000 0 00304 TXH OUTNAM ..
TD 00126 3 00000 0 00305 TXH OUTNAM+1 ..
00127 0074 00 4 00001 OEXH TSX SETBCD,4 ENTRY FROM OPEN ERROR, COMMENT.
00130 0601 00 0 00157 STO MODSW SAVE OLD CHARACTER MODE SETTING.
00131 0074 00 4 00003 TSX WRFLX,4 ..
00132 0 00011 0 00144 ERMESS,,9
00133 0520 00 0 00157 ZET MODSW SHOULD 12-BIT INDICATOR BE RESET.
00134 0074 00 4 00002 TSX SETFUL,4 YES, RESET INDICATOR.
00135 -0500 00 0 00317 CAL =1 SWITCH TO TEMPORARY MODE.
00136 0601 00 0 00156 STO MODE ..
00137 -0500 00 0 00155 CAL NOP BLOCK FUTURE ERROR RETURN.
00140 0602 00 0 00051 SLW OPERR ..
00141 0602 00 0 00074 SLW WRERR
00142 0074 00 3 00043 TSX OPN,3 NOW, OPEN IT AGAIN.
00143 0020 00 0 00000 WRTN TRA -- ALL FIXED, RETURN TO MAIN STREAM.
*
00144 635121234260 ERMESS BCI 9,TRACK QUOTA EXHAUSTED, TEMPORARY MODE WILL BE USED.
00145 506446632160
00146 256730216462
00147 632524736063
00150 254447465121
00151 517060444624
00152 256066314343
00153 602225606462
00154 252433606060
00155 0761 00 0 00000 NOP NOP INSTRUCTION TO BLOCK ERROR RETURN.
00156 0 00000 0 00000 MODE 0 START IN PERMANENT MODE.
00157 0 00000 0 00000 MODSW TEMP STORAGE FOR 6-BIT,12-BIT INDICATOR.
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* SEEK.($NAME1$, $NAME2$, ERRET)
* ERROR RETURN MEANS FILE NOT FOUND.
*
00160 -0500 60 4 00001 SEEK CAL* 1,4 GET FILE NAME.
00161 0602 00 0 00306 SLW INNAM ..
00162 -0500 60 4 00002 CAL* 2,4 ..
00163 0602 00 0 00307 SLW INNAM+1 ..
00164 0634 00 4 00222 SXA SKX4,4 SAVE LINKAGE.
00165 0020 00 0 00166 SKSW TRA *+1 ENTER ONE-TIME SECTION TO GET BUFFERS.
* *********************
00166 -0500 00 0 00314 CAL RBFSZ GET A BUFFER FROM SUPERVISOR.
00167 0074 00 4 00000 TSX GETBUF,4 ..
00170 0621 00 0 00257 STA ECALL STORE BUFFER LOCATION.
00171 0621 00 0 00217 STA STCALL ..
00172 -0625 00 0 00165 STL SKSW RESET ONE-TIME SWITCH.
* *********************
1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. PAGE 4
00173 -0500 00 0 00217 CAL STCALL SET UP PICKUP INSTRUCTION FOR INDEXING.
00174 0361 00 0 00314 ACL RBFSZ ..
00175 0621 00 0 00242 STA RDWORD ..
00176 0074 00 4 00011 TSX FSTATE,4 MAKE SURE FILE IS THERE.
TD 00177 3 00000 0 00306 TXH INNAM ..
TD 00200 3 00000 0 00307 TXH INNAM+1 ..
TD 00201 3 00000 0 00321 TXH =-0 DON'T WANT DATA.
TD 00202 3 00000 0 00224 TXH NOTFN ERROR RETURN MEANS FILE NOT THERE.
00203 0074 00 4 00005 TSX OPEN,4 OPEN THE FILE FOR READING.
TD 00204 3 00000 0 00322 TXH =HR ..
TD 00205 3 00000 0 00306 TXH INNAM ..
TD 00206 3 00000 0 00307 TXH INNAM+1 ..
00207 0774 00 6 00660 AXT RBFLTH,6 SET UP BUFFER COUNTER.
00210 0774 00 4 00222 AXT SKX4,4 SET END OF FILE RETURN.
00211 0634 00 4 00274 SXA EOFRTN,4 ..
00212 0600 00 0 00312 STZ EOFR CLEAR END OF FILE SWITCH.
00213 0074 00 4 00007 TSX RDWAIT,4 GET INITIAL BUFFER LOAD.
TD 00214 3 00000 0 00306 TXH INNAM ..
TD 00215 3 00000 0 00307 TXH INNAM+1 ..
TD 00216 3 00000 0 00316 TXH =0 ..
00217 3 00660 0 00000 STCALL TXH --,,RBFLTH ..
TD 00220 3 00000 0 00265 TXH EOF END OF FILE RETURN.
TD 00221 3 00000 0 00311 TXH EOFCT ..
00222 0774 00 4 00000 SKX4 AXT --,4 RESTORE LINKAGE.
00223 0020 00 4 00004 TRA 4,4 RETURN TO CALLER.
*
00224 0074 00 4 00001 NOTFN TSX SETBCD,4 FILE NOT FOUND, COMMENT.
00225 0601 00 0 00157 STO MODSW SAVE OLD CHARACTER MODE SETTING.
00226 0074 00 4 00004 TSX WRFLXA,4 START UP COMMENT.
00227 0 00001 0 00323 =H FILE ,,1 ..
00230 0074 00 4 00004 TSX WRFLXA,4 INSERT FILE NAME.
00231 0 00002 0 00306 INNAM,,2 ..
00232 0074 00 4 00003 TSX WRFLX,4 END OF COMMENT.
00233 0 00002 0 00240 ECM,,2 ..
00234 0520 00 0 00157 ZET MODSW SHOULD 12-BIT INDICATOR BE RESET.
00235 0074 00 4 00002 TSX SETFUL,4 YES, RESET MODE.
00236 0534 00 4 00222 LXA SKX4,4 GIVE ERROR RETURN.
00237 0020 60 4 00003 TRA* 3,4 ..
*
00240 604546636026 ECM BCI 2, NOT FOUND.
00241 466445243360
*
* ENTRY TO OBTAIN WORD FROM FILE.
* WORD = RDWORD.(EOF)
*
00242 0500 00 6 00000 RDWORD CLA --,6 GET WORD FROM INPUT BUFFER.
00243 2 00001 6 00264 TIX GOBACK,6,1 INDEX, AND CHECK FOR EMPTY BUFFER.
00244 0520 00 0 00312 ZET EOFR BUFFER EMPTY, HAS END OF FILE OCCURRED.
00245 0020 60 4 00001 TRA* 1,4 YES, GIVE EOF RETURN.
00246 0601 00 0 00310 STO RTEMP NO, SAVE WORD AND GET SOME MORE DATA.
00247 0634 00 4 00263 SXA EMPX4,4 SAVE LINKAGE, ALSO.
00250 0774 00 6 00660 AXT RBFLTH,6 RESET BUFFER POINTER.
00251 0774 00 4 00262 AXT EMPGT,4 SET END OF FILE RETURN.
00252 0634 00 4 00274 SXA EOFRTN,4 ..
00253 0074 00 4 00007 TSX RDWAIT,4 GET ANOTHER BUFFER LOAD OF DATA.
TD 00254 3 00000 0 00306 TXH INNAM ..
1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. PAGE 5
TD 00255 3 00000 0 00307 TXH INNAM+1 ..
TD 00256 3 00000 0 00316 TXH =0 ..
00257 3 00660 0 00000 ECALL TXH --,,RBFLTH ..
TD 00260 3 00000 0 00265 TXH EOF ..
TD 00261 3 00000 0 00311 TXH EOFCT ..
00262 0500 00 0 00310 EMPGT CLA RTEMP RESTORE WORD FOR THIS CALL.
00263 0774 00 4 00000 EMPX4 AXT --,4 RESTORE LINKAGE.
00264 0020 00 4 00002 GOBACK TRA 2,4 RETURN TO CALLER.
*
00265 -0625 00 0 00312 EOF STL EOFR END OF FILE REACHED, SET SWITCH.
00266 -0500 00 0 00311 CAL EOFCT GET COUNT OF WORDS LEFT.
00267 0361 00 0 00317 ACL =1 BUGGER WORD COUNT.
00270 0734 00 6 00000 PAX 0,6 SET WORD COUNTER.
00271 0361 00 0 00257 ACL ECALL ADJUST PICKUP INSTRUCTION.
00272 0621 00 0 00242 STA RDWORD ..
00273 0074 00 4 00275 TSX ENDRD,4 TURN OFF FILE.
00274 0020 00 0 00000 EOFRTN TRA -- RETURN TO END OF RDFILE CALLING SEQUENCE.
*
* ENTRY TO CLOSE INPUT FILE.
* ENDRD.
*
00275 0634 00 4 00302 ENDRD SXA ENDX4,4 SAVE LINKAGE.
00276 0074 00 4 00010 TSX CLOSE,4 CLOSE FILE.
TD 00277 3 00000 0 00306 TXH INNAM ..
TD 00300 3 00000 0 00307 TXH INNAM+1 ..
TD 00301 3 00000 0 00302 TXH *+1 IGNORE ANY ERROR RETURN.
00302 0774 00 4 00000 ENDX4 AXT --,4 RESTORE LINKAGE.
00303 0020 00 4 00001 TRA 1,4 ..
*
00304 545454545454 OUTNAM BCI 2,************ NAME OF OUTPUT FILE.
00305 545454545454
00306 545454545454 INNAM BCI 2,************ NAME OF INPUT FILE.
00307 545454545454
00310 0 00000 0 00000 RTEMP STORAGE FOR WORD.
00311 0 00000 0 00000 EOFCT STORAGE FOR END OF FILE COUNTER.
00312 0 00000 0 00312 EOFR * SWITCH FOR END OF FILE MET.
*
00660 TRKLTH EQU 432 DISK TRACK LENGTH.
00313 0 00000 0 00660 TRKSZ TRKLTH WORD CONTAINING TRACK LENGTH.
00660 RBFLTH EQU TRKLTH READ BUFFER LENGTH.
00330 WBFLTH EQU TRKLTH/2 WRITE BUFFER LENGTH.
00314 0 00000 0 00660 RBFSZ RBFLTH WORD CONTAINING READ BUFFER SIZE.
00315 0 00000 0 00330 WBFSZ WBFLTH WORD CONTAINING WRITE BUFFER SIZE.
*
END
LITERALS
00316 000000000000
00317 000000000001
00320 000000000002
00321 400000000000
00322 516060606060
00323 602631432560
00324 666060606060
1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. PAGE 1
POST PROCESSOR ASSEMBLY DATA
325 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
122 CL4 100
240 ECM 233
265 EOF 220, 260
107 FWR 105
155 NOP 137
43 OPN 37, 142
22 OSW 34
312 EOFR 212, 244, 265
100 FILE 0
62 FULL
156 MODE 47, 136
117 NOWR 103
127 OEXH 51
5 OPEN 43, 203
40 OPOK 35
41 OPX4 21
160 SEEK 0
165 SKSW 172
222 SKX4 164, 210, 236
124 WEXH 74, 116
60 WRNM 30
143 WRTN 36, 64, 106
10 CLOSE 117, 124, 276
257 ECALL 170, 271
262 EMPGT 251
263 EMPX4 247
275 ENDRD 0, 273
302 ENDX4 275
311 EOFCT 221, 261, 266
76 FULX4 62
306 INNAM 161, 163, 177, 200, 205, 206, 214, 215, 231, 254, 255, 277, 300
157 MODSW 130, 133, 225, 234
224 NOTFN 202
51 OPERR 140
314 RBFSZ 166, 174
310 RTEMP 246, 262
313 TRKSZ 31
315 WBFSZ 23, 27
71 WCALL 25
65 WRAGN 63
74 WRERR 141
3 WRFLX 131, 232
15 ASSIGN 0
55 BFCALL 33
12 BUFFER 52
113 CLCALL 26, 104
274 EOFRTN 211, 252
144 ERMESS 132
11 FSTATE 176
0 GETBUF 24, 32, 167
264 GOBACK 243
1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. PAGE 2
POST PROCESSOR ASSEMBLY DATA
304 OUTNAM 16, 20, 45, 46, 53, 54, 66, 67, 110, 111, 120, 121, 125, 126
660 RBFLTH 207, 217, 250, 257, 314
7 RDWAIT 213, 253
242 RDWORD 0, 175, 272
77 RETURN 61
1 SETBCD 127, 224
2 SETFUL 134, 235
217 STCALL 171, 173
660 TRKLTH 55, 313, 314
330 WBFLTH 40, 71, 75, 102, 314, 315
4 WRFLXA 226, 230
6 WRWAIT 65, 107
57 WRWORD 0
0 NO ERROR IN ABOVE ASSEMBLY.
1 ROUTINE TO MAKE SURE FILE NAME IS USEABLE. PAGE 1
* USAGE CLRNAM.(NAME1, NAME2, CANT, SW)
* FILE NAME1 NAME2 WILL BE CHECKED FOR AND
* DELETED IF POSSIBLE. IF SW
* IS TRUE, USER WILL BE ASKED BEFORE DELETING
* THE OLD FILE.
*
00012 ENTRY CLRNAM CLEAR FILE NAME.
*
EXTERN SETFUL,SETBCD,WRFLX,WRFLXA,RDFLXA
EXTERN FSTATE,CHFILE,DELFIL
*
TRANSFER VECTOR
00000 622563266443 SETFUL
00001 622563222324 SETBCD
00002 665126436760 WRFLX
00003 665126436721 WRFLXA
00004 512426436721 RDFLXA
00005 266263216325 FSTATE
00006 233026314325 CHFILE
00007 242543263143 DELFIL
LINKAGE DIRECTOR
00010 000000000000
00011 234351452144
00012 -0500 60 4 00001 CLRNAM CAL* 1,4 GET FILE NAME.
00013 0602 00 0 00121 SLW N1 ..
00014 -0500 60 4 00002 CAL* 2,4 SECONDARY NAME.
00015 0602 00 0 00122 SLW N2 ..
00016 0634 00 4 00147 SXA SV4,4 SAVE LINKAGE.
00017 0074 00 4 00005 TSX FSTATE,4 CHECK STATE OF FILE.
TD 00020 3 00000 0 00121 TXH N1 NAME
TD 00021 3 00000 0 00122 TXH N2 NAME
00022 3 00010 0 00156 TXH DATA,,8 FILE STATE
TD 00023 3 00000 0 00112 TXH FSTERR IN CASE OF ERROR
TD 00024 3 00000 0 00155 TXH ERNO GATHER ERROR NUMBER.
00025 0441 00 0 00157 LDI MODE CHECK MODE OF FILE.
00026 -0054 00 400000 LFT 400000 IS MODE NEGATIVE.
00027 0020 00 0 00100 TRA LINKED YES, FILE IS LINKED.
00030 0600 00 0 00154 STZ PROTEC ASSUME NOT PROTECTED.
00031 0056 00 000100 RNT 100 CHECK PROTECTED BIT.
00032 0020 00 0 00035 TRA CKASK NOT PROTECTED, SHOULD WE ASK ANYWAY.
00033 -0625 00 0 00154 STL PROTEC PROTECTED, SET SWITCH FOR LONG COMMENT.
00034 0020 00 0 00040 TRA ASK GO ASK PERMISSION TO DELETE FILE.
00035 0534 00 4 00147 CKASK LXA SV4,4 GET LINKAGE TO ASK SWITCH.
00036 -0520 60 4 00004 NZT* 4,4 SHOULD WE ASK PERMISSION ANYWAY.
00037 0020 00 0 00065 TRA DELETE NO, GO DELETE FILE.
00040 0074 00 4 00000 ASK TSX SETFUL,4 SET CHARACTER MODE SWITCH.
00041 0074 00 4 00003 TSX WRFLXA,4 BEGIN THE COMMENT.
00042 0 00003 0 00116 MI,,3 ..
00043 0074 00 4 00001 TSX SETBCD,4 SWITCH TO BCD FOR FILE NAME.
00044 0074 00 4 00003 TSX WRFLXA,4 WRITE OUT FILE NAME.
00045 0 00002 0 00121 N1,,2
00046 0074 00 4 00000 TSX SETFUL,4 BACK TO FULL MODE.
00047 -0520 00 0 00154 NZT PROTEC SHOULD WE CLAIM IT IS PROTECTED.
1 ROUTINE TO MAKE SURE FILE NAME IS USEABLE. PAGE 2
00050 0020 00 0 00053 TRA SKPPCM NO, SKIP THAT PART.
00051 0074 00 4 00003 TSX WRFLXA,4 YES, ANNOUNC PROTECTED PART.
00052 0 00006 0 00123 ISPTC,,6 ..
00053 0074 00 4 00003 SKPPCM TSX WRFLXA,4 NOW ASK FOR PERMISSION.
00054 0 00012 0 00131 DOYOU,,10 ..
00055 0074 00 4 00001 TSX SETBCD,4 SWITCH SO ERASE WORKS.
00056 0074 00 4 00004 TSX RDFLXA,4
00057 0 00001 0 00150 IN,,1 GET ONE WORD.
00060 0074 00 4 00000 TSX SETFUL,4 RESTORE MODE.
00061 -0500 00 0 00150 CAL IN GET THAT WORD.
00062 0771 00 0 00022 ARS 18 GET FIRST THREE CHARACTERS.
00063 0322 00 0 00170 ERA =H000YES DID HE SAY YES.
00064 -0100 00 0 00076 TNZ ERTN NO, GIVE ERROR RETURN.
00065 0074 00 4 00006 DELETE TSX CHFILE,4 GOODY, WE CAN DELETE IT.
TD 00066 3 00000 0 00121 TXH N1 MAKE SURE IT IS DELETEABLE.
TD 00067 3 00000 0 00122 TXH N2 ..
TD 00070 3 00000 0 00166 TXH =1 BY CHANGING ITS MODE TO TEMPORARY.
00071 0074 00 4 00007 TSX DELFIL,4 DELETE THE SILLY THING.
TD 00072 3 00000 0 00121 TXH N1 ..
TD 00073 3 00000 0 00122 TXH N2 ..
00074 0534 00 4 00147 RTN LXA SV4,4 RESTORE THE LINKAGE.
00075 0020 00 4 00005 TRA 5,4 RETURN TO CALLER.
*
00076 0534 00 4 00147 ERTN LXA SV4,4 ERROR RETURN, FILE CANNOT BE DELETED.
00077 0020 60 4 00003 TRA* 3,4 RETURN THROUGH ERROR RETURN.
*
00100 0074 00 4 00000 LINKED TSX SETFUL,4 FILE IS LINKED, COMMENT AND GIVE UP.
00101 0074 00 4 00003 TSX WRFLXA,4 START THE COMMENT.
00102 0 00003 0 00116 MI,,3 ..
00103 0074 00 4 00001 TSX SETBCD,4 SWITCH MODE FOR FILE NAME.
00104 0074 00 4 00003 TSX WRFLXA,4 TYPE FILE NAME.
00105 0 00002 0 00121 N1,,2 ..
00106 0074 00 4 00000 TSX SETFUL,4 SWITCH FOR REST OF COMMENT.
00107 0074 00 4 00002 TSX WRFLX,4 END THIS PART WITH A C.R.
00110 0 00004 0 00143 ISLNK,,4 ..
00111 0020 00 0 00076 TRA ERTN NOW GIVE AN ERROR RETURN.
*
00112 0500 00 0 00155 FSTERR CLA ERNO ERROR RETURN FROM FSTATE, FIND OUT WHY.
00113 0402 00 0 00167 SUB =3 RETURN 3 MEANS FILE NOT FOUND.
00114 -0100 00 0 00100 TNZ LINKED WRONG ERROR RETURN, ASSUME LINKED.
00115 0020 00 0 00074 TRA RTN FILE NOT FOUND, NAME IS OK.
*
* DATA, COMMENTS, ETC.
*
00116 004601430124 MI BCI 3,0O1L1D0 1F1I1L1E0
00117 006001260131
00120 014301250060
*
00121 0 00000 0 00000 N1 STORAGE FOR FILE NAME.
00122 0 00000 0 00000 N2 SECONDARY NAME.
*
00123 006001310162 ISPTC BCI 1,0 1I1S
00124 +006001330057 OCT 006001330057 BLANK, RED SHIFT, NULL.
00125 004700510046 BCI 3,0P0R0O0T0E0C0T0E0D
00126 006300250023
00127 006300250024
1 ROUTINE TO MAKE SURE FILE NAME IS USEABLE. PAGE 3
00130 +013200330060 OCT 013200330060 BLACK SHIFT, PERIOD, BLANK.
00131 006000400040 DOYOU BCI 9,0 0-0-0D1O0 1Y1O1U0 1W1I1S1H0 1T1O0 1D1E1L1E1T1E0 1I1T
00132 002401460060
00133 017001460164
00134 006001660131
00135 016201300060
00136 016301460060
00137 012401250143
00140 012501630125
00141 006001310163
00142 +015600600060 OCT 015600600060 TERMINAL QUESTION MARK.
*
00143 006001310162 ISLNK BCI 4,0 1I1S0 1L1I1N1K1E1D0.
00144 006001430131
00145 014501420125
00146 012400336060
*
00147 0 00000 0 00000 SV4 STORAGE FOR CALLING LINKAGE.
00150 IN BSS 4 FOR INPUT WORD.
00154 0 00000 0 00000 PROTEC SWITCH FOR PROTECTED FILE.
00155 0 00000 0 00000 ERNO STORAGE FOR ERROR NUMBER.
00156 DATA BSS 8 FOR STATE INFORMATION.
00161 DEVICE EQU DATA+3
00157 MODE EQU DATA+1
*
END
LITERALS
00166 000000000001
00167 000000000003
00170 000000702562
1 ROUTINE TO MAKE SURE FILE NAME IS USEABLE. PAGE 1
POST PROCESSOR ASSEMBLY DATA
171 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
150 IN 57, 61
116 MI 42, 102
121 N1 13, 20, 45, 66, 72, 105
122 N2 15, 21, 67, 73
40 ASK 34
74 RTN 115
147 SV4 16, 35, 74, 76
156 DATA 22, 166
155 ERNO 24, 112
76 ERTN 64, 111
157 MODE 25, 166
35 CKASK 32
131 DOYOU 54
143 ISLNK 110
123 ISPTC 52
2 WRFLX 107
6 CHFILE 65
12 CLRNAM 0
65 DELETE 37
7 DELFIL 71
161 DEVICE 166
5 FSTATE 17
112 FSTERR 23
100 LINKED 27, 114
154 PROTEC 30, 33, 47
4 RDFLXA 56
1 SETBCD 43, 55, 103
0 SETFUL 40, 46, 60, 100, 106
53 SKPPCM 50
3 WRFLXA 41, 44, 51, 53, 101, 104
0 NO ERROR IN ABOVE ASSEMBLY.
1 ROUTINE TO RENAME A FILE, FORCING PERMANENT MODE IS POSSIBLE. PAGE 1
* J. H. SALTZER, MAY, 1965.
*
00004 ENTRY RENAME RENAME FILE.
*
EXTERN CHFILE,WRFLX
*
TRANSFER VECTOR
00000 233026314325 CHFILE
00001 665126436760 WRFLX
LINKAGE DIRECTOR
00002 000000000000
00003 512545214425
00004 0500 60 4 00001 RENAME CLA* 1,4 GET FILE NAMES.
00005 0601 00 0 00071 STO OLD1 ..
00006 0500 60 4 00002 CLA* 2,4 ..
00007 0601 00 0 00072 STO OLD2 ..
00010 0601 00 0 00074 STO NEW2 ASSUME NO CHANGE IN SECONDARY NAMES.
00011 0500 60 4 00003 CLA* 3,4 ..
00012 0601 00 0 00073 STO NEW1 ..
00013 0560 00 4 00004 LDQ 4,4 CHECK FOR TXH
00014 0500 00 0 00076 CLA =O300000000000 ..
00015 0040 00 0 00020 TLQ SKPN2 NO TXH, SECONDARY NAME UNCHANGED.
00016 0500 60 4 00004 CLA* 4,4 TXH, CHANGE SECONDARY NAME.
00017 0601 00 0 00074 STO NEW2 ..
00020 0634 00 4 00036 SKPN2 SXA RETURN,4 SAVE LINKAGE.
00021 0074 00 4 00000 TSX CHFILE,4 CHANGE NAME WITHOUT CHANGING MODE.
TD 00022 3 00000 0 00071 TXH OLD1 ..
TD 00023 3 00000 0 00072 TXH OLD2 ..
TD 00024 3 00000 0 00077 TXH =-0 MODE UNCHANGED.
TD 00025 3 00000 0 00073 TXH NEW1 ..
TD 00026 3 00000 0 00074 TXH NEW2 ..
00027 0074 00 4 00000 TSX CHFILE,4 CHANGE MODE WITHOUT CHANGING NAME.
TD 00030 3 00000 0 00073 TXH NEW1 ..
TD 00031 3 00000 0 00074 TXH NEW2 ..
TD 00032 3 00000 0 00075 TXH =0 PERMANENT MODE.
TD 00033 3 00000 0 00077 TXH =-0 NAME UNCHANGED.
TD 00034 3 00000 0 00077 TXH =-0 ..
TD 00035 3 00000 0 00040 TXH CHERR IN CASE MODE UNCHANGEABLE.
00036 0774 00 4 00000 RETURN AXT --,4 RESTORE LINKAGE.
00037 0020 00 4 00001 TRA 1,4 RETURN TO CALLER.
*
00040 0074 00 4 00001 CHERR TSX WRFLX,4 ASSUME TRACK QUOTA EXHAUSTED, AND COMMENT.
00041 0 00010 0 00045 TRKQUO,,8 ..
00042 0074 00 4 00001 TSX WRFLX,4 MENTION THAT NEW FILE IS TEMP MODE.
00043 0 00013 0 00055 TMPMOD,,11 ....
00044 0020 00 0 00036 TRA RETURN EXIT.
*
* COMMENTS AND STORAGE.
*
00045 006301510121 TRKQUO BCI 8,0T1R1A1C1K0 1Q1U1O1T1A0 0E0X0H0A0U0S0T0E0D0.
00046 012301420060
00047 015001640146
00050 016301210060
1 ROUTINE TO RENAME A FILE, FORCING PERMANENT MODE IS POSSIBLE. PAGE 2
00051 002500670030
00052 002100640062
00053 006300250024
00054 003360606060
*
00055 007001460164 TMPMOD BCI 5,0Y1O1U1R0 1N1E1W0 1F1I1L1E0 1I
00056 015100600145
00057 012501660060
00060 012601310143
00061 012500600131
00062 +016200600133 OCT 016200600133 S, BLANK, RED SHIFT.
00063 006300250044 BCI 3,0T0E0M0P0O0R0A0R0Y
00064 004700460051
00065 002100510070
00066 +013200600144 OCT 013200600144 BLACK SHIFT, BLANK, SMALL M.
00067 004601240125 BCI 2,0O1D1E0.
00070 003360606060
*
00071 0 00000 0 00000 OLD1
00072 0 00000 0 00000 OLD2
00073 0 00000 0 00000 NEW1
00074 0 00000 0 00000 NEW2
*
END
LITERALS
00075 000000000000
00076 300000000000
00077 400000000000
1 ROUTINE TO RENAME A FILE, FORCING PERMANENT MODE IS POSSIBLE. PAGE 1
POST PROCESSOR ASSEMBLY DATA
100 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
73 NEW1 12, 25, 30
74 NEW2 10, 17, 26, 31
71 OLD1 5, 22
72 OLD2 7, 23
40 CHERR 35
20 SKPN2 15
1 WRFLX 40, 42
0 CHFILE 21, 27
4 RENAME 0
36 RETURN 20, 44
55 TMPMOD 43
45 TRKQUO 41
0 NO ERROR IN ABOVE ASSEMBLY.
1 MAD PROGRAM LISTING ... ... ... FILE 6TYP MAD 09/18/68 0948.2
-
.. TYPEWRITER INPUT CHARACTER CONTROL ROUTINE. LM00001
.. USAGE. . . COUNT = TYPEIN.(BUFFER, BUFSIZ, ERASE, KILL) LM00002
J. H. SALTZER, JANUARY, 1965. LM00003
LM00004
EXTERNAL FUNCTION(LINE, BUFSIZ) *001 LM00005
LM00006
NORMAL MODE IS INTEGER *002 LM00007
VECTOR VALUES E1 = 0137K *003 LM00008
VECTOR VALUES K1 = 0156K *004 LM00009
VECTOR VALUES NBITS = 12 *005 LM00010
VECTOR VALUES NULL = 0057K *006 LM00011
VECTOR VALUES ERASE = 0504K *007 LM00012
VECTOR VALUES KILL = 0506K *008 LM00013
VECTOR VALUES RETURN = 0055K *009 LM00014
VECTOR VALUES WRDSIZ = 36 *010 LM00015
VECTOR VALUES CHMASK = 7777K *011 LM00016
LM00017
ENTRY TO SETERS. *012 LM00018
ERASE = LINE *013 LM00019
FUNCTION RETURN *014 LM00020
LM00021
ENTRY TO SETKIL. *015 LM00022
KILL = LINE *016 LM00023
FUNCTION RETURN *017 LM00024
LM00025
ENTRY TO CANON. *018 LM00026
FUNCTION RETURN *019 LM00027
LM00028
ENTRY TO TYPEIN. *020 LM00029
SIZE = 0 *021 LM00030
TYLINE. *022 LM00031
LOOP WORD = TYWORD.(0) *023 LM00032
THROUGH DISECT, FOR I = WRDSIZ-NBITS,-NBITS, I .L. 0 *024 LM00033
CHAR = (WORD.RS.I) .A. CHMASK *025 LM00034
WHENEVER CHAR .E. ERASE .OR. CHAR .E. E1 *026 LM00035
WHENEVER SIZE .G. 0, SIZE = SIZE - 1 *027 LM00036
OR WHENEVER CHAR .E. KILL .OR. CHAR .E. K1 *028 LM00037
SIZE = 0 *029 LM00038
OR WHENEVER CHAR .E. RETURN .OR. CHAR.RS.6 .E. RETURN *030 LM00039
TRANSFER TO UND *031 LM00040
OR WHENEVER CHAR .A. 0400K .E. 0 *032 LM00041
SIZE = SIZE + 1 *033 LM00042
LINE(SIZE) = CHAR.A.77K *034 LM00043
END OF CONDITIONAL *035 LM00044
DISECT WHENEVER SIZE .GE. BUFSIZ, TRANSFER TO UND *036 LM00045
TRANSFER TO LOOP *037 LM00046
UND SIZE = SIZE + 1 *038 LM00047
LINE(SIZE) = RETURN *039 LM00048
FUNCTION RETURN SIZE *040 LM00049
LM00050
.. TYPEWRITER OUTPUT CHARACTER CONTROL ROUTINE. LM00051
.. USAGE. . . TYPOUT.(LINE, LENGTH) LM00052
LM00053
ENTRY TO TYPOUT. *041 LM00054
K = 0 *042 LM00055
SETFUL. *043 LM00056
THROUGH PRLOOP, FOR J = 1, 1, J .G. BUFSIZ *044 LM00057
TWORD = (TWORD .LS. NBITS) .V. LINE(J) *045 LM00058
K = K + 1 *046 LM00059
WHENEVER K .GE. WRDSIZ/NBITS *047 LM00060
K = 0 *048 LM00061
PRWORD.(TWORD) *049 LM00062
PRLOOP END OF CONDITIONAL *050 LM00063
THROUGH NULPK, FOR K = K, 1, K.GE. WRDSIZ/NBITS *051 LM00064
NULPK TWORD = (TWORD.LS.NBITS) .V. NULL *052 LM00065
PRWORD.(TWORD) *053 LM00066
PRBUFF. *054 LM00067
FUNCTION RETURN *055 LM00068
LM00069
ENTRY TO HOL. *056 LM00070
FUNCTION RETURN LINE .A. 77K *057 LM00071
LM00072
END OF FUNCTION *058 LM00073
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00351 TRANSFER VECTOR LENGTH 00006 PROGRAM BEGINS 00037
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
HOL 00314 0 TYPOUT 00212 0 TYPEIN 00060 0 CANON 00054 0 SETKIL 00046 0
SETERS 00040 0
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
CHAR 00011 1 I 00015 1 K 00021 1 NULPK 00006 4 TWORD 00026 1
CHMASK 00012 A 1 J 00016 1 LOOP 00007 4 PRLOOP 00006 4 UND 00010 4
DISECT 00006 4 K1 00017 A 1 NBITS 00022 A 1 RETURN 00024 A 1 WORD 00027 1
E1 00013 A 1 KILL 00020 A 1 NULL 00023 A 1 SIZE 00025 1 WRDSIZ 00030 A 1
ERASE 00014 A 1
0FUNCTION DICTIONARY
EXIT 00000 1 PRBUFF 00001 1 PRWORD 00002 1 SETFUL 00003 1 TYLINE 00004 1
TYWORD 00005 1
0ABSOLUTE CONSTANTS
00034 +000000000077 00035 +000000000400 00033 +000000000006 00031 +000000000000 00032 +000000000001
00036 +233000000000
0STATEMENT DICTIONARY
00007 TXL -300070000065 00010 TXL -300204000201
0PROGRAM
EXTERNAL FUNCTION(LINE, BUFSIZ) 001 LM00005
NORMAL MODE IS INTEGER 002 LM00007
VECTOR VALUES E1 = 0137K 003 LM00008
00013 +0 00000 0 00137
VECTOR VALUES K1 = 0156K 004 LM00009
00017 +0 00000 0 00156
VECTOR VALUES NBITS = 12 005 LM00010
00022 +0 00000 0 00014
VECTOR VALUES NULL = 0057K 006 LM00011
00023 +0 00000 0 00057
VECTOR VALUES ERASE = 0504K 007 LM00012
00014 +0 00000 0 00504
VECTOR VALUES KILL = 0506K 008 LM00013
00020 +0 00000 0 00506
VECTOR VALUES RETURN = 0055K 009 LM00014
00024 +0 00000 0 00055
VECTOR VALUES WRDSIZ = 36 010 LM00015
00030 +0 00000 0 00044
VECTOR VALUES CHMASK = 7777K 011 LM00016
00012 +0 00000 0 07777
ENTRY TO SETERS. 012 LM00018
00037 TRA +0 02000 0 00042 00040 SXA +0 63400 2 00324 00041 TSX +0 07400 2 00324
ERASE = LINE 013 LM00019
00042 CLA +0 50000 0 00024 00043 STO +0 60100 0 00014
FUNCTION RETURN 014 LM00020
00044 TRA +0 02000 0 00342
ENTRY TO SETKIL. 015 LM00022
00045 TRA +0 02000 0 00050 00046 SXA +0 63400 2 00324 00047 TSX +0 07400 2 00324
KILL = LINE 016 LM00023
00050 CLA +0 50000 0 00024 00051 STO +0 60100 0 00020
FUNCTION RETURN 017 LM00024
00052 TRA +0 02000 0 00342
ENTRY TO CANON. 018 LM00026
00053 TRA +0 02000 0 00056 00054 SXA +0 63400 2 00324 00055 TSX +0 07400 2 00324
FUNCTION RETURN 019 LM00027
00056 TRA +0 02000 0 00342
ENTRY TO TYPEIN. 020 LM00029
00057 TRA +0 02000 0 00062 00060 SXA +0 63400 2 00324 00061 TSX +0 07400 2 00324
SIZE = 0 021 LM00030
00062 CLA +0 50000 0 00031 00063 STO +0 60100 0 00025
TYLINE. 022 LM00031
00064 TSX +0 07400 4 00004
LOOP WORD = TYWORD.(0) 023 LM00032
00065 TSX +0 07400 4 00005 00066 TXH +3 00000 0 00031 00067 STO +0 60100 0 00027
THROUGH DISECT, FOR I = WRDSIZ-NBITS,-NBITS, I .L. 0 024 LM00033
00070 CLA +0 50000 0 00030 00071 SUB +0 40200 0 00022 00072 STO +0 60100 0 00015 00073 TRA +0 02000 0 00077
00074 CLS +0 50200 0 00022 00075 ADD +0 40000 0 00015 00076 STO +0 60100 0 00015 00077 CLA +0 50000 0 00015
00100 SUB +0 40200 0 00031 00101 TZE +0 10000 0 00103 00102 TMI -0 12000 0 00200
CHAR = (WORD.RS.I) .A. CHMASK 025 LM00034
00103 CAL -0 50000 0 00015 00104 STA +0 62100 0 00106 00105 CAL -0 50000 0 00027 00106 LGR -0 76500 0 00000
00107 ANA -0 32000 0 00012 00110 SLW +0 60200 0 00011
WHENEVER CHAR .E. ERASE .OR. CHAR .E. E1 026 LM00035
00111 CLA +0 50000 0 00011 00112 SUB +0 40200 0 00013 00113 TZE +0 10000 0 00117 00114 CLA +0 50000 0 00011
00115 SUB +0 40200 0 00014 00116 TNZ -0 10000 0 00127
WHENEVER SIZE .G. 0, SIZE = SIZE - 1 027 LM00036
00117 CLA +0 50000 0 00025 00120 SUB +0 40200 0 00031 00121 TZE +0 10000 0 00126 00122 TMI -0 12000 0 00126
00123 CLA +0 50000 0 00025 00124 SUB +0 40200 0 00032 00125 STO +0 60100 0 00025
OR WHENEVER CHAR .E. KILL .OR. CHAR .E. K1 028 LM00037
00126 TRA +0 02000 0 00172 00127 CLA +0 50000 0 00011 00130 SUB +0 40200 0 00017 00131 TZE +0 10000 0 00135
00132 CLA +0 50000 0 00011 00133 SUB +0 40200 0 00020 00134 TNZ -0 10000 0 00140
SIZE = 0 029 LM00038
00135 CLA +0 50000 0 00031 00136 STO +0 60100 0 00025
O'R CHAR .E. RETURN .OR. CHAR.RS.6 .E. RETURN 030 LM00039
00137 TRA +0 02000 0 00172 00140 CAL -0 50000 0 00033 00141 STA +0 62100 0 00143 00142 CAL -0 50000 0 00011
00143 LGR -0 76500 0 00000 00144 SLW +0 60200 0 00346 00145 CLA +0 50000 0 00346 00146 SUB +0 40200 0 00024
00147 TZE +0 10000 0 00153 00150 CLA +0 50000 0 00011 00151 SUB +0 40200 0 00024 00152 TNZ -0 10000 0 00155
TRANSFER TO UND 031 LM00040
00153 TRA +0 02000 0 00010
O'R CHAR .A. 0400K .E. 0 032 LM00041
00154 TRA +0 02000 0 00172 00155 CAL -0 50000 0 00011 00156 ANA -0 32000 0 00035 00157 SLW +0 60200 0 00346
00160 CLA +0 50000 0 00346 00161 SUB +0 40200 0 00031 00162 TNZ -0 10000 0 00172
SIZE = SIZE + 1 033 LM00042
00163 CLA +0 50000 0 00025 00164 ADD +0 40000 0 00032 00165 STO +0 60100 0 00025
LINE(SIZE) = CHAR.A.77K 034 LM00043
00166 CAL -0 50000 0 00011 00167 ANA -0 32000 0 00034 00170 LXA +0 53400 1 00025 00171 SLW +0 60200 1 00024
END OF CONDITIONAL 035 LM00044
DISECT WHENEVER SIZE .GE. BUFSIZ, TRANSFER TO UND 036 LM00045
00172 CLA +0 50000 0 00025 00173 SUB +0 40200 0 00024 00174 TZE +0 10000 0 00176 00175 TMI -0 12000 0 00177
00176 TRA +0 02000 0 00010 00177 TRA +0 02000 0 00074
TRANSFER TO LOOP 037 LM00046
00200 TRA +0 02000 0 00007
UND SIZE = SIZE + 1 038 LM00047
00201 CLA +0 50000 0 00025 00202 ADD +0 40000 0 00032 00203 STO +0 60100 0 00025
LINE(SIZE) = RETURN 039 LM00048
00204 LXA +0 53400 1 00025 00205 CLA +0 50000 0 00024 00206 STO +0 60100 1 00024
FUNCTION RETURN SIZE 040 LM00049
00207 CLA +0 50000 0 00025 00210 TRA +0 02000 0 00342
ENTRY TO TYPOUT. 041 LM00054
00211 TRA +0 02000 0 00214 00212 SXA +0 63400 2 00324 00213 TSX +0 07400 2 00324
K = 0 042 LM00055
00214 CLA +0 50000 0 00031 00215 STO +0 60100 0 00021
SETFUL. 043 LM00056
00216 TSX +0 07400 4 00003
THROUGH PRLOOP, FOR J = 1, 1, J .G. BUFSIZ 044 LM00057
00217 CLA +0 50000 0 00032 00220 STO +0 60100 0 00016 00221 TRA +0 02000 0 00225 00222 CLA +0 50000 0 00016
00223 ADD +0 40000 0 00032 00224 STO +0 60100 0 00016 00225 CLA +0 50000 0 00016 00226 SUB +0 40200 0 00024
00227 TZE +0 10000 0 00231 00230 TPL +0 12000 0 00261
TWORD = (TWORD .LS. NBITS) .V. LINE(J) 045 LM00058
00231 CAL -0 50000 0 00022 00232 STA +0 62100 0 00234 00233 CAL -0 50000 0 00026 00234 ALS +0 76700 0 00000
00235 LXA +0 53400 2 00016 00236 ORA -0 50100 2 00024 00237 SLW +0 60200 0 00026
K = K + 1 046 LM00059
00240 CLA +0 50000 0 00021 00241 ADD +0 40000 0 00032 00242 STO +0 60100 0 00021
WHENEVER K .GE. WRDSIZ/NBITS 047 LM00060
00243 LDQ +0 56000 0 00030 00244 PXD -0 75400 0 00000 00245 LLS +0 76300 0 00000 00246 DVP +0 22100 0 00022
00247 XCA +0 13100 0 00000 00250 CHS +0 76000 0 00002 00251 ADD +0 40000 0 00021 00252 TZE +0 10000 0 00254
00253 TMI -0 12000 0 00260
K = 0 048 LM00061
00254 CLA +0 50000 0 00031 00255 STO +0 60100 0 00021
PRWORD.(TWORD) 049 LM00062
00256 TSX +0 07400 4 00002 00257 TXH +3 00000 0 00026
PRLOOP END OF CONDITIONAL 050 LM00063
00260 TRA +0 02000 0 00222
THROUGH NULPK, FOR K = K, 1, K.GE. WRDSIZ/NBITS 051 LM00064
00261 CLA +0 50000 0 00021 00262 STO +0 60100 0 00021 00263 TRA +0 02000 0 00267 00264 CLA +0 50000 0 00021
00265 ADD +0 40000 0 00032 00266 STO +0 60100 0 00021 00267 LDQ +0 56000 0 00030 00270 PXD -0 75400 0 00000
00271 LLS +0 76300 0 00000 00272 DVP +0 22100 0 00022 00273 XCA +0 13100 0 00000 00274 CHS +0 76000 0 00002
00275 ADD +0 40000 0 00021 00276 TZE +0 10000 0 00307 00277 TPL +0 12000 0 00307
NULPK TWORD = (TWORD.LS.NBITS) .V. NULL 052 LM00065
00300 CAL -0 50000 0 00022 00301 STA +0 62100 0 00303 00302 CAL -0 50000 0 00026 00303 ALS +0 76700 0 00000
00304 ORA -0 50100 0 00023 00305 SLW +0 60200 0 00026 00306 TRA +0 02000 0 00264
PRWORD.(TWORD) 053 LM00066
00307 TSX +0 07400 4 00002 00310 TXH +3 00000 0 00026
PRBUFF. 054 LM00067
00311 TSX +0 07400 4 00001
FUNCTION RETURN 055 LM00068
00312 TRA +0 02000 0 00342
ENTRY TO HOL. 056 LM00070
00313 TRA +0 02000 0 00316 00314 SXA +0 63400 2 00324 00315 TSX +0 07400 2 00324
FUNCTION RETURN LINE .A. 77K 057 LM00071
00316 CAL -0 50000 0 00024 00317 ANA -0 32000 0 00034 00320 SLW +0 60200 0 00346 00321 CLA +0 50000 0 00346
00322 TRA +0 02000 0 00342
END OF FUNCTION 058 LM00073
00323 TSX +0 07400 4 00000 00324 TXH +3 00000 0 00000 00325 SXD -0 63400 1 00324 00326 SXA +0 63400 4 00342
00327 CLA +0 50000 4 00001 00330 STA +0 62100 0 00042 00331 STA +0 62100 0 00050 00332 STA +0 62100 0 00171
00333 STA +0 62100 0 00206 00334 STA +0 62100 0 00236 00335 STA +0 62100 0 00316 00336 CLA +0 50000 4 00002
00337 STA +0 62100 0 00173 00340 STA +0 62100 0 00226 00341 TRA +0 02000 2 00001 00342 AXT +0 77400 4 00000
00343 LXA +0 53400 2 00324 00344 LXD -0 53400 1 00324 00345 TRA +0 02000 4 00001
1 BUFFER CONTROL ROUTINE FOR TYPEWRITER OUTPUT. PAGE 1
*
* J. H. SALTZER, JANUARY, 1965.
*
00004 ENTRY PRWORD ADD A WORD TO PRINT BUFFER.
00021 ENTRY PRBUFF PRINT OUT PARTIAL BUFFER.
00030 ENTRY TYWORD GET NEXT TYPED WORD.
00047 ENTRY TYLINE RESET TO START READING NEXT LINE.
*
EXTERN RDFLXA,WRFLXA
*
TRANSFER VECTOR
00000 512426436721 RDFLXA
00001 665126436721 WRFLXA
LINKAGE DIRECTOR
00002 000000000000
00003 475166465124
00034 BUFLEN EQU 28 TYPEWRITER BUFFER SIZE.
*
* ADD WORD TO PRINT BUFFER.
* PRWORD.(WORD)
*
00004 0634 00 4 00017 PRWORD SXA PRX4,4 SAVE LINKAGE.
00005 -0500 60 4 00001 CAL* 1,4 GET WORD BEING ADDED.
00006 -0734 00 4 00000 PDX 0,4 CHECK FOR DISK CONTROL WORD.
00007 3 77776 4 00017 TXH PRX4,4,-2 DON'T STORE CONTROL WORD.
00010 0774 00 4 00034 PWCNT AXT BUFLEN,4 SET WORD COUNTER (INITIALLY BUFLEN.)
00011 0602 00 4 00105 SLW BUFF+BUFLEN,4 STORE WORD IN BUFFER.
00012 2 00001 4 00016 TIX PSAVE,4,1 COUNT, CHECK FOR OVERFLOW.
00013 0074 00 4 00001 TSX WRFLXA,4 BUFFER FULL, PRINT W/O C.R.
00014 0 00034 0 00051 BUFF,,BUFLEN ..
00015 0774 00 4 00034 PFRESH AXT BUFLEN,4 RESET WORD COUNTER.
00016 0634 00 4 00010 PSAVE SXA PWCNT,4 SAVE WORD COUNTER.
00017 0774 00 4 00000 PRX4 AXT --,4 RESTORE LINKAGE.
00020 0020 00 4 00001 TRA 1,4 RETURN.
*
* PRINT OUT REMAINING BUFFER, RESET COUNTER.
*
00021 0634 00 4 00017 PRBUFF SXA PRX4,4 SAVE LINKAGE.
00022 0535 00 4 00010 LAC PWCNT,4 GET WORD COUNT.
00023 1 00034 4 00024 TXI *+1,4,BUFLEN FORM COMPLEMENT MOD BUFLEN.
00024 -0634 00 4 00026 SXD PRCL,4 SAVE COUNT IN CALLER.
00025 0074 00 4 00001 TSX WRFLXA,4 PRINT REMAINDER.
00026 0 00000 0 00051 PRCL BUFF,,-- ..
00027 0020 00 0 00015 TRA PFRESH GO REFRESH COUNTER, AND RETURN.
*
* GET A WORD FROM INPUT BUFFER.
* WORD = TYWORD.(0)
*
00030 0634 00 4 00045 TYWORD SXA TYX4,4 SAVE LINKAGE.
00031 0774 00 5 00000 TYCNT AXT --,5 GET WORD COUNTER.
00032 0774 00 4 00000 TYPOS AXT --,4 GET BUFFER POINTER.
00033 2 00006 5 00041 TIX TYGET,5,6 CHECK FOR WORDS LEFT.
00034 0074 00 4 00000 TSX RDFLXA,4 NO, GET SOME.
1 BUFFER CONTROL ROUTINE FOR TYPEWRITER OUTPUT. PAGE 2
00035 0 00034 0 00051 TYCALL BUFF,,BUFLEN ..
00036 0734 00 5 00000 PAX 0,5 INSERT 6-BIT CHARACTER COUNT INTO COUNTER.
00037 2 40000 5 00040 TIX *+1,5,16384 REMOVE BIT 21 IF PRESENT.
00040 0774 00 4 00000 AXT 0,4 RESET INPUT BUFFER POINTER.
00041 0500 00 4 00051 TYGET CLA BUFF,4 GET A WORD.
00042 1 77777 4 00043 TXI *+1,4,-1 MOVE POINTER TO NEXT WORD.
00043 0634 00 4 00032 SXA TYPOS,4 SAVE POINTER.
00044 0634 00 5 00031 SXA TYCNT,5 SAVE CHARACTER COUNTER.
00045 0774 00 4 00000 TYX4 AXT --,4 RESTORE LINKAGE.
00046 0020 00 4 00001 TRA 1,4 RETURN.
*
00047 0634 00 0 00031 TYLINE ZSA TYCNT RESET CHARACTER COUNT TO MAKE LINE EMPTY.
00050 0020 00 4 00001 TRA 1,4 RETURN
*
00051 BUFF BSS BUFLEN OUTPUT BUFFER.
*
END
1 BUFFER CONTROL ROUTINE FOR TYPEWRITER OUTPUT. PAGE 1
POST PROCESSOR ASSEMBLY DATA
105 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
51 BUFF 11, 14, 26, 35, 41
26 PRCL 24
17 PRX4 4, 7, 21
45 TYX4 30
16 PSAVE 12
10 PWCNT 16, 22
31 TYCNT 44, 47
41 TYGET 33
32 TYPOS 43
34 BUFLEN 4, 10, 11, 14, 15, 23, 35, 51
15 PFRESH 27
21 PRBUFF 0
4 PRWORD 0
0 RDFLXA 34
35 TYCALL
47 TYLINE 0
30 TYWORD 0
1 WRFLXA 13, 25
0 NO ERROR IN ABOVE ASSEMBLY.
1 SUBROUTINE TO CONVERT BCD NUMBER TO BINARY. PAGE 1
*
* J. H. SALTZER, MAY, 1966.
00002 ENTRY BIN CONVERTER.
LINKAGE DIRECTOR
00000 000000000000
00001 223145606060
00002 0634 00 1 00024 BIN SXA IRR1,1
00003 0600 00 0 00027 STZ INT CLEAR RESULT.
00004 0774 00 1 00006 AXT 6,1
00005 0560 60 4 00001 LDQ* 1,4 GET ARGUMENT.
00006 -0754 00 0 00000 LOP ZAC
00007 -0763 00 0 00006 LGL 6 GET NEXT CHARACTER.
00010 -0340 00 0 00032 LAS =10 SKIP OVER NON-DIGITS.
00011 0020 00 0 00023 TRA TIX
00012 0020 00 0 00023 TRA TIX
00013 0601 00 0 00030 STO DIG NUMBER, SAVE DIGIT.
00014 -0600 00 0 00031 STQ TEM SAVE MQ FOR MULTIPLIACATION.
00015 0560 00 0 00027 LDQ INT GET OLD NUMBER.
00016 0200 00 0 00032 MPY =10 SHIFT.
00017 0131 00 0 00000 XCA
00020 0400 00 0 00030 ADD DIG ADD THIS DIGIT TO RESULT.
00021 0601 00 0 00027 STO INT SAVE, FOR NEXT PASS.
00022 0560 00 0 00031 LDQ TEM RESTORE MQ.
00023 2 00001 1 00006 TIX TIX LOP,1,1
00024 0774 00 1 00000 IRR1 AXT --,1
00025 0500 00 0 00027 CLA INT RESULT IN AC.
00026 0020 00 4 00002 TRA 2,4
*
00027 0 00000 0 00000 INT
00030 0 00000 0 00000 DIG
00031 0 00000 0 00000 TEM
*
END
LITERALS
00032 000000000012
1 SUBROUTINE TO CONVERT BCD NUMBER TO BINARY. PAGE 1
POST PROCESSOR ASSEMBLY DATA
33 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
2 BIN 0
30 DIG 13, 20
27 INT 3, 15, 21, 25
6 LOP 23
31 TEM 14, 22
23 TIX 11, 12
24 IRR1 2
0 NO ERROR IN ABOVE ASSEMBLY.
1 LIBRARY PACKAGE. PAGE 1
00024 ENTRY .PCOMT PRINT COMMENT ROUTINE
00010 ENTRY CHNCOM GO DORMANT.
00005 ENTRY EXIT SAME.
00002 ENTRY .SETUP CALLED BY MAD MAIN PROGRA.
00013 ENTRY COMARG GET COMMAND ARGUMENT.
00106 ENTRY WHOAMI
00066 ENTRY SETBCD
00064 ENTRY SETFUL
00065 ENTRY SETBRK
00061 ENTRY WRFLXA
00063 ENTRY WRFLX
00062 ENTRY RDFLXA
00067 ENTRY UPDATE UPDATE U.F.D.
00070 ENTRY CHFILE
00071 ENTRY DELFIL
00072 ENTRY FSTATE
00073 ENTRY BUFFER
00074 ENTRY OPEN
00075 ENTRY WRWAIT
00076 ENTRY WRFILE
00077 ENTRY RDWAIT
00100 ENTRY RDFILE
00101 ENTRY CLOSE
00043 ENTRY GETBUF OBTAIN BUFFERS FROM SUPERVISOR.
*
LINKAGE DIRECTOR
00000 000000000000
00001 334723464463
00002 0760 00 0 00016 .SETUP LMTM USE SEVEN TAG MODE.
00003 0774 00 6 00000 AXT 0,6 SET UP IR6 TO AVOID EARLY CALL TO READ.
00004 0020 00 0 00064 TRA SETFUL USE FULL MODE. SETFUL RETURNS 1,4.
*
00005 0074 00 4 00066 EXIT TSX SETBCD,4 CLEANUP, RESET MODE.
00006 0074 00 4 00063 TSX WRFLX,4 PUT OUT A STAR FOR RUNCOMS.
00007 0 00001 0 00060 STAR,,1 AND THEN PERFORM CHNCOM SEQUENCE.
00010 0074 00 4 00102 CHNCOM TSX CHN,4 THIS CHNCOM ALWAYS GOES DEAD,
TD 00011 3 00000 0 00107 TXH =0 IF NO CHAIN EXISTS.
00012 0020 00 0 00010 TRA *-2 IN CASE OF RESTART, DON'T.
*
00013 0634 00 4 00022 COMARG SXA CM4,4 GET COMMAND ARGUMENT FOR MAD.
00014 -0500 60 4 00001 CAL* 1,4 GET ARGUMENT NUMBER.
00015 0602 00 0 00017 SLW ARG GIVE ARGUMENT NUMBER.
00016 0074 00 4 00103 TSX GETCOM,4 GET COMMAND ARGUMENT.
00017 0 00000 0 00000 ARG ..
00020 0602 00 0 00017 SLW ARG MOVE TO ARITHMETIC AC.
00021 0500 00 0 00017 CLA ARG ..
00022 0774 00 4 00000 CM4 AXT --,4 RESTORE LINKAGE.
00023 0020 00 4 00002 TRA 2,4 RETURN TO CALLER.
*
00024 -0500 00 4 00001 .PCOMT CAL 1,4 GET WORD COUNT.
00025 0621 00 0 00042 STA RETURN ON RETURN, JUMP BUFFER.
00026 0767 00 0 00022 ALS 18 SETUP COUNT.
00027 0622 00 0 00036 STD PCNT ..
00030 1 77776 4 00031 TXI *+1,4,-2 SETUP UP BUFFER ADDRESS.
1 LIBRARY PACKAGE. PAGE 2
00031 0636 00 4 00036 SCA PCNT,4 SAVE BUFFER ADDRESS, AND LINKAGE.
00032 0074 00 4 00064 TSX SETFUL,4 MAKE SURE MODE SET AND NO LINES COMING IN.
00033 0074 00 4 00061 TSX WRFLXA,4 SWITCH TO RED SHIFT.
00034 0 00001 0 00056 REDS,,1 ..
00035 0074 00 4 00063 TSX WRFLX,4 PRINT LINE.
00036 0 00000 0 00000 PCNT --,,-- ..
00037 0074 00 4 00061 TSX WRFLXA,4 SHIFT BACK TO BLACK.
00040 0 00001 0 00057 BLCKS,,1 ..
00041 0535 00 4 00036 LAC PCNT,4 RESTORE LINKAGE.
00042 0020 00 4 00000 RETURN TRA --,4 RETURN TO CALLER.
*
00043 0634 00 4 00052 GETBUF SXA GX4,4 ENTRY TO GET BUFFERS.
00044 0602 00 0 00055 SLW BUFSIZ SIZE OF BUFFER IN AC.
00045 0074 00 4 00104 TSX GETMEM,4 GET PRESENT BOUND.
00046 0601 00 0 00054 STO START SAVE AS BUFFER START.
00047 0361 00 0 00055 ACL BUFSIZ FORM NEW BOUND.
00050 0074 00 4 00105 TSX SETMEM,4 ASK FOR MORE.
00051 -0500 00 0 00054 CAL START GIVE CALLER LOCATION OF
00052 0774 00 4 00000 GX4 AXT --,4 HIS NEW BUFFER.
00053 0020 00 4 00001 TRA 1,4 RETURN.
*
00054 0 00000 0 00000 START STORAGE FOR BUFFER LOCATION.
00055 0 00000 0 00000 BUFSIZ STORAGE FOR BUFFER SIZE.
*
00056 +013300570057 REDS OCT 013300570057 RED SHIFT AND TWO NULLS.
00057 +013200570057 BLCKS OCT 013200570057 BLACK SHIFT AND TWO NULLS.
00060 -145757575757 STAR OCT 545757575757 ASTERISK AND 5 NULLS.
*
* SUPERVISOR SUBROUTINE CALLERS.
*
00061 0101 00 0 00133 WRFLXA TIA =HWRFLXA
00062 0101 00 0 00122 RDFLXA TIA =HRDFLXA
00063 0101 00 0 00134 WRFLX TIA =HWRFLX
00064 0101 00 0 00126 SETFUL TIA =HSETFUL
00065 0101 00 0 00125 SETBRK TIA =HSETBRK
00066 0101 00 0 00124 SETBCD TIA =HSETBCD
00067 0101 00 0 00130 UPDATE TIA =HUPDATE
00070 0101 00 0 00111 CHFILE TIA =HCHFILE
00071 0101 00 0 00114 DELFIL TIA =HDELFIL
00072 0101 00 0 00115 FSTATE TIA =HFSTATE
00073 0101 00 0 00110 BUFFER TIA =HBUFFER
00074 0101 00 0 00120 OPEN TIA =HOPEN
00075 0101 00 0 00135 WRWAIT TIA =HWRWAIT
00076 0101 00 0 00132 WRFILE TIA =HWRFILE
00077 0101 00 0 00123 RDWAIT TIA =HRDWAIT
00100 0101 00 0 00121 RDFILE TIA =HRDFILE
00101 0101 00 0 00113 CLOSE TIA =HCLOSE
00102 0101 00 0 00112 CHN TIA =HCHNCOM
00103 0101 00 0 00116 GETCOM TIA =HGETCOM
00104 0101 00 0 00117 GETMEM TIA =HGETMEM
00105 0101 00 0 00127 SETMEM TIA =HSETMEM
00106 0101 00 0 00131 WHOAMI TIA =HWHOAMI
*
END
1 LIBRARY PACKAGE. PAGE 3
LITERALS
00107 000000000000
00110 226426262551
00111 233026314325
00112 233045234644
00113 234346622560
00114 242543263143
00115 266263216325
00116 272563234644
00117 272563442544
00120 464725456060
00121 512426314325
00122 512426436721
00123 512466213163
00124 622563222324
00125 622563225142
00126 622563266443
00127 622563442544
00130 644724216325
00131 663046214431
00132 665126314325
00133 665126436721
00134 665126436760
00135 665166213163
1 LIBRARY PACKAGE. PAGE 1
POST PROCESSOR ASSEMBLY DATA
136 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
17 ARG 15, 20, 21
102 CHN 10
22 CM4 13
52 GX4 43
5 EXIT 0
74 OPEN 0
36 PCNT 27, 31, 41
56 REDS 34
60 STAR 7
57 BLCKS 40
101 CLOSE 0
54 START 46, 51
63 WRFLX 0, 6, 35
73 BUFFER 0
55 BUFSIZ 44, 47
70 CHFILE 0
10 CHNCOM 0
13 COMARG 0
71 DELFIL 0
72 FSTATE 0
43 GETBUF 0
103 GETCOM 16
104 GETMEM 45
24 .PCOMT 0
2 .SETUP 0
100 RDFILE 0
62 RDFLXA 0
77 RDWAIT 0
42 RETURN 25
66 SETBCD 0, 5
65 SETBRK 0
64 SETFUL 0, 4, 32
105 SETMEM 50
67 UPDATE 0
106 WHOAMI 0
76 WRFILE 0
61 WRFLXA 0, 33, 37
75 WRWAIT 0
0 NO ERROR IN ABOVE ASSEMBLY.
EDL BCD 09/18/68 2214.4 39787 00000
1 MAD PROGRAM LISTING ... ... ... FILE EDITOR MAD 02/08/68 1745.3
-
.. EDIT BY CONTEXT PROGRAM. LM00001
LM00002
.. J. H. SALTZER, NOVEMBER, 1964. LM00003
.. LAST MODIFICATION, APRIL, 1967. LM00004
.. MODIFIED OCTOBER, 1967 BY PETER R. BOS LM00005
.. TO ALLOW SETTING BREAK CHARACTER 'MCHNG' LM00006
LM00007
.. DECLARATIONS. LM00008
LM00009
VECTOR VALUES FENCE = 777777777777K *001 LM00010
VECTOR VALUES RETURN = 55K *002 LM00011
VECTOR VALUES IN = $(INPUT$ *003 LM00012
VECTOR VALUES IN1 = $(INPT1$ *004 LM00013
VECTOR VALUES BRIEF = 0B *005 LM00014
VECTOR VALUES OK = 0B *006 LM00015
VECTOR VALUES BUFSIZ = 360 *007 LM00016
DIMENSION LINE(361), EDLIN(361) *008 LM00017
DIMENSION REDS(1), BLACKS(1) *009 LM00018
DIMENSION ATNAM(2) *010 LM00019
NORMAL MODE IS INTEGER *011 LM00020
BOOLEAN OK, GLOBAL, FSTPAS *012 LM00021
BOOLEAN CHNG, CLRSW, BRIEF *013 LM00022
LM00023
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LM00024
LM00025
.. INITIALIZATION. LM00026
LM00027
SECOND NAME OF INTERMEDIATE FILES NOW PROGNO LM00028
LM00029
WHOAMI.(ATNAM(2)...2) *014 LM00030
FI = ATNAM(1) *015 LM00031
GETVAL.(BLANK, TAB, DEFALT, MCHNG, REDS(1), BLACKS(1)) *016 LM00032
CLRNAM.(IN, FI, CHN, 1B) *017 LM00033
CLRNAM.(IN1, FI, CHN, 1B) *018 LM00034
ASSIGN.(IN, FI) *019 LM00035
OLDNAM = COMARG.(1) *020 LM00036
OLDSEC = DEFALT *021 LM00037
WHENEVER OLDNAM .E. FENCE, TRANSFER TO INSERT *022 LM00038
OLDSEC = COMARG.(2) *023 LM00039
WHENEVER OLDSEC .E. FENCE, OLDSEC = DEFALT *024 LM00040
SEEK.(OLDNAM, OLDSEC, INSERT) *025 LM00041
FSTPAS = 1B *026 LM00042
OK = 1B *027 LM00043
LM00044
.. ENTER EDIT MODE. LM00045
LM00046
EDIT WHENEVER .NOT. BRIEF, PRINT COMMENT $0E1D1I1T$ *028 LM00047
LM00048
.. OBTAIN NEXT REQUEST. LM00049
LM00050
NXRQ COUNT = TYPEIN.(EDLIN, BUFSIZ) *029 LM00051
WHENEVER EDLIN(1) .E. MCHNG .AND. COUNT .L. 3 *030 LM00052
1 , TRANSFER TO INSERT *030 LM00053
WHENEVER COUNT .L. 2, TRANSFER TO NXRQ *031 LM00054
EDCT = 0 *032 LM00055
CWD = GET.(0) *033 LM00056
LM00057
WHENEVER CWD .E. $DELETE$ .OR. CWD .E. $ D$ *034 LM00058
N = BIN.(GET.(0)) *035 LM00059
THROUGH DREAD, FOR I = 1, 1, I .GE. N *036 LM00060
DREAD LENGTH = READ.(LINE, BUFSIZ, EOF) *037 LM00061
LENGTH = 0 *038 LM00062
LM00063
OR WHENEVER CWD .E. $ NEXT$ .OR. CWD .E. $ N$ *039 LM00064
N = BIN.(GET.(0)) *040 LM00065
WHENEVER N .E. 0, N = 1 *041 LM00066
THROUGH NXT, FOR I = 1, 1, I .G. N *042 LM00067
WRITE.(LINE, LENGTH) *043 LM00068
WHENEVER .NOT. OK, CLSOUT. *044 LM00069
LENGTH = READ.(LINE, BUFSIZ, EOF) *045 LM00070
NXT CONTINUE *046 LM00071
LM00072
OR WHENEVER CWD .E. $INSERT$ .OR. CWD .E. $ I$ *047 LM00073
WRITE.(LINE, LENGTH) *048 LM00074
TRANSFER TO RETYPE *049 LM00075
LM00076
INSERT WHENEVER .NOT. BRIEF, PRINT COMMENT $0I1N1P1U1T$ *050 LM00077
INPUT COUNT = TYPEIN.(EDLIN, BUFSIZ) *051 LM00078
WHENEVER COUNT .L. 3 .AND. EDLIN(1) .E. MCHNG *052 LM00079
1 , TRANSFER TO EDIT *052 LM00080
WRITE.(LINE, LENGTH) *053 LM00081
THROUGH MVLP, FOR I = 1, 1, I .G. COUNT *054 LM00082
MVLP LINE(I) = EDLIN(I) *055 LM00083
LENGTH = COUNT *056 LM00084
TRANSFER TO INPUT *057 LM00085
LM00086
OR WHENEVER CWD .E. $BOTTOM$ .OR. CWD .E. $ B$ *058 LM00087
WRITE.(LINE, LENGTH) *059 LM00088
LENGTH = 0 *060 LM00089
WHENEVER OK, BOTTOM. *061 LM00090
TRANSFER TO INSERT *062 LM00091
LM00092
OR WHENEVER CWD .E. $APPEND$ .OR. CWD .E. $ A$ *063 LM00093
WHENEVER LENGTH .G. 0, LENGTH = LENGTH - 1 *064 LM00094
TRANSFER TO APPEND *065 LM00095
LM00096
OR WHENEVER CWD .E. $RETYPE$ .OR. CWD .E. $ R$ *066 LM00097
RETYPE LENGTH = 0 *067 LM00098
APPEND THROUGH RPLC, FOR EDCT = EDCT + 1, 1, EDCT .G. COUNT *068 LM00099
LENGTH = LENGTH + 1 *069 LM00100
RPLC LINE(LENGTH) = EDLIN(EDCT) *070 LM00101
LM00102
OR WHENEVER CWD .E. $ ERASE$ .OR. CWD .E. $ E$ *071 LM00103
WHENEVER EDLIN(EDCT+1) .NE. BLANK, SETERS.(EDLIN(EDCT+1)) *072 LM00104
LM00105
OR WHENEVER CWD .E. $ KILL$ .OR. CWD .E. $ K$ *073 LM00106
WHENEVER EDLIN(EDCT+1) .NE. BLANK, SETKIL.(EDLIN(EDCT+1)) *074 LM00107
LM00108
.. MODIFICATION ALLOWS SETTING 'MCHNG'. PRB. LM00109
LM00110
OR WHENEVER CWD .E. $ BREAK$ .OR. CWD .E. $ BR$ *075 LM00111
WHENEVER EDLIN(EDCT) .E. RETURN *076 LM00112
MCHNG = RETURN *077 LM00113
OR WHENEVER EDLIN(EDCT+1) .NE. BLANK *078 LM00114
MCHNG = EDLIN(EDCT+1) *079 LM00115
END OF CONDITIONAL *080 LM00116
LM00117
OR WHENEVER CWD .E. $VERIFY$ .OR. CWD .E. $ V$ *081 LM00118
CWD = GET.(0) *082 LM00119
WHENEVER CWD .E. $ ON$ *083 LM00120
BRIEF = 0B *084 LM00121
OR WHENEVER CWD .E. $ OFF$ *085 LM00122
BRIEF = 1B *086 LM00123
END OF CONDITIONAL *087 LM00124
LM00125
OR WHENEVER CWD .E. $LOCATE$ .OR. CWD .E. $ L$ *088 LM00126
LOCATE = 1 *089 LM00127
TRANSFER TO FIND *090 LM00128
LM00129
OR WHENEVER CWD .E. $ FIND$ .OR. CWD .E. $ F$ *091 LM00130
LOCATE = 0 *092 LM00131
FIND WHENEVER EDCT+1 .GE. COUNT *093 LM00132
COUNT = OCOUNT *094 LM00133
EDCT = EDCT + 1 *095 LM00134
END OF CONDITIONAL *096 LM00135
OCOUNT = COUNT *097 LM00136
NTFND WRITE.(LINE, LENGTH) *098 LM00137
WHENEVER .NOT. OK, CLSOUT. *099 LM00138
LENGTH = READ.(LINE, BUFSIZ, EOF) *100 LM00139
THROUGH LOCSCN, FOR K=0, 1,K.G.LOCATE*(LENGTH-COUNT+EDCT) *101 LM00140
J = K *102 LM00141
THROUGH LOOK, FOR I = EDCT+1, 1, I .GE. COUNT *103 LM00142
J = J + 1 *104 LM00143
TAGN WHENEVER LINE(J) .E. EDLIN(I), TRANSFER TO LOOK *105 LM00144
WHENEVER (LINE(J).E. TAB) .AND. (EDLIN(I) .E. BLANK) *106 LM00145
1 , TRANSFER TO LOOK *106 LM00146
WHENEVER EDLIN(I-1) .NE. BLANK .OR. I .E. EDCT + 1 *107 LM00147
1 , TRANSFER TO LOCSCN *107 LM00148
WHENEVER LINE(J) .NE. BLANK .AND. LINE(J) .NE. TAB *108 LM00149
1 , TRANSFER TO LOCSCN *108 LM00150
J = J + 1 *109 LM00151
TRANSFER TO TAGN *110 LM00152
LOOK WHENEVER I .E. EDCT+1, FNDST = J *111 LM00153
FNDND = J *112 LM00154
WHENEVER .NOT. BRIEF, PRNT.(FNDST, FNDND) *113 LM00155
TRANSFER TO NXRQ *114 LM00156
LOCSCN CONTINUE *115 LM00157
TRANSFER TO NTFND *116 LM00158
LM00159
OR WHENEVER CWD .E. $ PRINT$ .OR. CWD .E. $ P$ *117 LM00160
NPRNT = BIN.(GET.(0)) *118 LM00161
PNTLP WHENEVER LENGTH .E. 0 *119 LM00162
PRINT COMMENT $0N1O0 1C1U1R1R1E1N1T0 1L1I1N1E0.$ *120 LM00163
OTHERWISE *121 LM00164
TYPOUT.(LINE, LENGTH) *122 LM00165
END OF CONDITIONAL *123 LM00166
NPRNT = NPRNT - 1 *124 LM00167
WHENEVER NPRNT .G. 0 *125 LM00168
WRITE.(LINE, LENGTH) *126 LM00169
LENGTH = READ.(LINE, BUFSIZ, EOF) *127 LM00170
TRANSFER TO PNTLP *128 LM00171
END OF CONDITIONAL *129 LM00172
LM00173
OR WHENEVER CWD .E. $ TOP$ .OR. CWD .E. $ T$ *130 LM00174
TOPLP WRITE.(LINE, LENGTH) *131 LM00175
WHENEVER OK, BOTTOM. *132 LM00176
CLSOUT. *133 LM00177
LM00178
OR WHENEVER CWD .E. $CHANGE$ .OR. CWD .E. $ C$ *134 LM00179
LM00180
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LM00181
LM00182
.. DELINEATE QUOTED STRINGS. LM00183
LM00184
EDCT = EDCT+1 *135 LM00185
QUOTE = EDLIN(EDCT) *136 LM00186
STR1 = EDCT *137 LM00187
QLOOP THROUGH QLOOP, FOR EDCT = EDCT+1, 1, *138 LM00188
1 (EDLIN(EDCT) .E. QUOTE) .OR. (EDCT .GE. COUNT) *138 LM00189
STR2 = EDCT *139 LM00190
QLOOP1 THROUGH QLOOP1, FOR EDCT = EDCT+1, 1, *140 LM00191
1 (EDLIN(EDCT) .E. QUOTE) .OR. (EDCT .GE. COUNT) *140 LM00192
EST2 = EDCT *141 LM00193
LM00194
.. CHECK FOR ITERATION COUNT AND GLOBAL REQUEST. LM00195
LM00196
EDCT = EDCT + 1 *142 LM00197
TEM = 1 *143 LM00198
GLOBAL = 0B *144 LM00199
ARGLP CWD = GET.(0) *145 LM00200
WHENEVER CWD .E. $ $ *146 LM00201
TRANSFER TO SHIFT *147 LM00202
OR WHENEVER CWD .E. $ G$ *148 LM00203
WHENEVER STR2 .NE. STR1+1, GLOBAL = 1B *149 LM00204
OTHERWISE *150 LM00205
TEM = BIN.(CWD) *151 LM00206
END OF CONDITIONAL *152 LM00207
TRANSFER TO ARGLP *153 LM00208
LM00209
.. SHIFT LINE TO BOTTOM OF BUFFER. LM00210
LM00211
SHIFT THROUGH MVDWN, FOR I = LENGTH, -1, I .L. 1 *154 LM00212
MVDWN LINE(BUFSIZ+I-LENGTH) = LINE(I) *155 LM00213
DOWN = BUFSIZ-LENGTH+1 *156 LM00214
UP = 0 *157 LM00215
CHNG = 0B *158 LM00216
CHST = LENGTH + 1 *159 LM00217
CHEND = LENGTH *160 LM00218
LM00219
.. SEARCH FOR PRESENCE OF FIRST STRING. LM00220
LM00221
SRCHLP UP = UP + 1 *161 LM00222
SRTST WHENEVER DOWN .G. BUFSIZ, TRANSFER TO GIVUP *162 LM00223
J = DOWN *163 LM00224
THROUGH COMPAR, FOR I = STR1+1, 1, I .GE. STR2 *164 LM00225
WHENEVER J .GE. BUFSIZ, TRANSFER TO GIVUP *165 LM00226
WHENEVER EDLIN(I) .NE. LINE(J), TRANSFER TO NOCOMP *166 LM00227
COMPAR J = J + 1 *167 LM00228
TRANSFER TO STFND *168 LM00229
LM00230
NOCOMP LINE(UP) = LINE(DOWN) *169 LM00231
DOWN = DOWN + 1 *170 LM00232
TRANSFER TO SRCHLP *171 LM00233
LM00234
.. STRING FOUND, REPLACE WITH SECOND STRING. LM00235
LM00236
STFND CHNG = 1B *172 LM00237
DOWN = DOWN + (STR2-STR1-1) *173 LM00238
CHST = UP *174 LM00239
THROUGH REPLAC, FOR I = STR2 + 1, 1, I .GE. EST2 *175 LM00240
LINE(UP) = EDLIN(I) *176 LM00241
UP = UP + 1 *177 LM00242
REPLAC WHENEVER UP .G. DOWN, TRANSFER TO GIVUP *178 LM00243
CHEND = UP - 1 *179 LM00244
WHENEVER GLOBAL, TRANSFER TO SRTST *180 LM00245
LM00246
.. MOVE REST OF LINE BACK UP. LM00247
LM00248
GIVUP THROUGH FILOUT, FOR UP = UP, 1, DOWN .G. BUFSIZ *181 LM00249
LINE(UP) = LINE(DOWN) *182 LM00250
FILOUT DOWN = DOWN + 1 *183 LM00251
LENGTH = UP - 1 *184 LM00252
TEM = TEM - 1 *185 LM00253
WHENEVER .NOT. BRIEF .AND. (TEM .G. 0 .THEN. CHNG) *186 LM00254
1 , PRNT.(CHST, CHEND) *186 LM00255
CANON.(LINE, LENGTH, BUFSIZ) *187 LM00256
WHENEVER TEM .G. 0 *188 LM00257
WRITE.(LINE, LENGTH) *189 LM00258
LENGTH = READ.(LINE, BUFSIZ, EOF) *190 LM00259
TRANSFER TO SHIFT *191 LM00260
END OF CONDITIONAL *192 LM00261
LM00262
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LM00263
LM00264
OR WHENEVER CWD .E. $ SPLIT$ .OR. CWD .E. $ S$ *193 LM00265
TOPNAM = GET.(0) *194 LM00266
WHENEVER TOPNAM .E. $ $, TRANSFER TO NONAME *195 LM00267
WHENEVER TOPNAM .E. OLDNAM .AND. FSTPAS *196 LM00268
NEWNM PRINT COMMENT $0P1L1E1A1S1E0 1U1S1E0 1A1N1O1T1H1E1R0 1N1A *197 LM00269
1 1M1E0.$ *197 LM00270
TRANSFER TO NXRQ *198 LM00271
END OF CONDITIONAL *199 LM00272
SECNAM = GET.(0) *200 LM00273
WHENEVER SECNAM .E. $ $, SECNAM = OLDSEC *201 LM00274
CLRNAM.(TOPNAM, SECNAM, NEWNM, 1B) *202 LM00275
CLOSEW. *203 LM00276
RENAME.(IN, FI, TOPNAM, SECNAM) *204 LM00277
ASSIGN.(IN, FI) *205 LM00278
OLDNAM = FENCE *206 LM00279
TRANSFER TO TOPLP *207 LM00280
LM00281
OR WHENEVER CWD .E. $ QUIT$ .OR. CWD .E. $ Q$ *208 LM00282
ENDRD. *209 LM00283
CLOSEW. *210 LM00284
DELFIL.(IN1, FI, DLQ1) *211 LM00285
DLQ1 DELFIL.(IN, FI, DLQ2) *212 LM00286
DLQ2 TRANSFER TO CHN *213 LM00287
LM00288
OR WHENEVER CWD .E. $ FILE$ *214 LM00289
PRINAM = GET.(0) *215 LM00290
CLRSW = 1B *216 LM00291
WHENEVER PRINAM .E. $ $ *217 LM00292
PRINAM = OLDNAM *218 LM00293
SECNAM = OLDSEC *219 LM00294
CLRSW = 0B *220 LM00295
OTHERWISE *221 LM00296
SECNAM = GET.(0) *222 LM00297
WHENEVER SECNAM .E. $ $ *223 LM00298
SECNAM = OLDSEC *224 LM00299
END OF CONDITIONAL *225 LM00300
END OF CONDITIONAL *226 LM00301
WHENEVER PRINAM .E. FENCE *227 LM00302
NONAME PRINT COMMENT $0N1O0 1F1I1L1E0 1N1A1M1E0 1G1I1V1E1N0.$ *228 LM00303
TRANSFER TO NXRQ *229 LM00304
END OF CONDITIONAL *230 LM00305
WRITE.(LINE, LENGTH) *231 LM00306
LENGTH = 0 *232 LM00307
WHENEVER OK, BOTTOM. *233 LM00308
CLRNAM.(PRINAM, SECNAM, NEWNM, CLRSW) *234 LM00309
CLOSEW. *235 LM00310
DELFIL.(IN1, FI, DL1) *236 LM00311
DL1 RENAME.(IN, FI, PRINAM, SECNAM) *237 LM00312
CHN EXIT. *238 LM00313
LM00314
OTHERWISE *239 LM00315
PRINT COMMENT $0N1O1T0 1A0 1R1E1Q1U1E1S1T0:$ *240 LM00316
TYPOUT.(EDLIN, COUNT) *241 LM00317
LM00318
END OF CONDITIONAL *242 LM00319
TRANSFER TO NXRQ *243 LM00320
LM00321
EOF PRINTCOMMENT $0E1N1D0 1O1F0 1F1I1L1E0 1R1E1A1C1H1E1D0 1B1Y0:$ *244 LM00322
TYPOUT.(EDLIN, COUNT) *245 LM00323
LENGTH = 0 *246 LM00324
OK = 0B *247 LM00325
TRANSFER TO NXRQ *248 LM00326
LM00327
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LM00328
LM00329
.. SUBROUTINES. LM00330
LM00331
CLSOUT. .. FUNCTION TO MOVE POINTER BACK TO TOP OF FILE. LM00332
LM00333
INTERNAL FUNCTION *249 LM00334
ENTRY TO CLSOUT. *250 LM00335
CLOSEW. *251 LM00336
DELFIL.(IN1, FI, DL2) *252 LM00337
DL2 CHFILE.(IN, FI, -0, IN1) *253 LM00338
SEEK.(IN1, FI, CHN) *254 LM00339
ASSIGN.(IN, FI) *255 LM00340
OK = 1B *256 LM00341
LENGTH = 0 *257 LM00342
FSTPAS = 0B *258 LM00343
FUNCTION RETURN *259 LM00344
END OF FUNCTION *260 LM00345
LM00346
GET. .. FUNCTION TO OBTAIN ARGUMENT WORD IN HOLLERITH. LM00347
LM00348
INTERNAL FUNCTION *261 LM00349
ENTRY TO GET. *262 LM00350
WORD = $ $ *263 LM00351
SCANLP THROUGH SCANLP, FOR EDCT = EDCT, 1, *264 LM00352
1 (EDLIN(EDCT+1).NE.BLANK) .OR. (EDCT+1.GE.COUNT) *264 LM00353
GTLP EDCT = EDCT + 1 *265 LM00354
WHENEVER EDLIN(EDCT) .E. BLANK, FUNCTION RETURN WORD *266 LM00355
WHENEVER EDLIN(EDCT) .E. TAB .OR. EDCT .GE. COUNT *267 LM00356
EDCT = EDCT - 1 *268 LM00357
FUNCTION RETURN WORD *269 LM00358
END OF CONDITIONAL *270 LM00359
WORD = (WORD .LS. 6) .V. HOL.(EDLIN(EDCT)) *271 LM00360
TRANSFER TO GTLP *272 LM00361
END OF FUNCTION *273 LM00362
LM00363
PRNT. .. FUNCTION TO PRINT A LINE WITH COLOR SHIFTS. LM00364
LM00365
INTERNAL FUNCTION(STAR, EN) *274 LM00366
ENTRY TO PRNT. *275 LM00367
TYPOUT.(LINE, STAR-1) *276 LM00368
TYPOUT.(REDS, 1) *277 LM00369
TYPOUT.(LINE(STAR-1), EN-STAR+1) *278 LM00370
TYPOUT.(BLACKS, 1) *279 LM00371
TYPOUT.(LINE(EN), LENGTH-EN) *280 LM00372
FUNCTION RETURN *281 LM00373
END OF FUNCTION *282 LM00374
LM00375
END OF PROGRAM *283 LM00376
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 03713 TRANSFER VECTOR LENGTH 00030 PROGRAM BEGINS 01555
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
APPEND 00034 4 DLQ1 00041 4 GTLP 00047 4 NONAME 00056 4 RETYPE 00062 4
ARGLP 00035 4 DLQ2 00042 4 IN1 00673 A 1 NPRNT 01455 1 RPLC 00033 4
ATNAM 00073 A 1 DOWN 00110 1 INPUT 00050 4 N 01456 1 SCANLP 00033 4
BLACKS 00075 A 1 DREAD 00033 4 IN 00674 A 1 NTFND 00057 4 SECNAM 01470 1
BLANK 00076 1 EDCT 00111 1 INSERT 00051 4 NXRQ 00060 4 SHIFT 00063 4
BRIEF 00077 A 2 EDIT 00043 4 I 00675 1 NXT 00033 4 SRCHLP 00064 4
BUFSIZ 00100 A 1 EDLIN 00663 A 1 J 00676 1 OCOUNT 01457 1 SRTST 00065 4
CHEND 00101 1 EOF 00044 4 K 00677 1 OK 01460 A 2 STFND 00066 4
CHNG 00102 2 EST2 00664 1 LENGTH 00700 1 OLDNAM 01461 1 STR1 01471 1
CHN 00036 4 FENCE 00665 A 1 LINE 01452 A 1 OLDSEC 01462 1 STR2 01472 1
CHST 00103 1 FILOUT 00033 4 LOCATE 01453 1 PNTLP 00061 4 TAB 01473 1
CLRSW 00104 2 FIND 00045 4 LOCSCN 00052 4 PRINAM 01463 1 TAGN 00067 4
COMPAR 00033 4 FI 00666 1 LOOK 00053 4 QLOOP1 00033 4 TEM 01474 1
COUNT 00105 1 FNDND 00667 1 MCHNG 01454 1 QLOOP 00033 4 TOPLP 00070 4
CWD 00106 1 FNDST 00670 1 MVDWN 00033 4 QUOTE 01464 1 TOPNAM 01475 1
DEFALT 00107 1 FSTPAS 00671 2 MVLP 00033 4 REDS 01466 A 1 UP 01476 1
DL1 00037 4 GIVUP 00046 4 NEWNM 00054 4 REPLAC 00033 4 WORD 01477 1
DL2 00040 4 GLOBAL 00672 2 NOCOMP 00055 4 RETURN 01467 A 1
0FUNCTION DICTIONARY
ASSIGN 00000 1 BIN 00001 1 BOTTOM 00002 1 CANON 00003 1 CHFILE 00004 1
CLOSEW 00005 1 CLRNAM 00006 1 COMARG 00007 1 DELFIL 00010 1 ENDRD 00011 1
EXIT 00012 1 GETVAL 00013 1 HOL 00014 1 .PCOMT 00015 1 .SETUP 00016 1
READ 00017 1 RENAME 00020 1 SEEK 00021 1 SETERS 00022 1 SETKIL 00023 1
TYPEIN 00024 1 TYPOUT 00025 1 WHOAMI 00026 1 WRITE 00027 1 CLSOUT 00030 1
GET 00031 1 PRNT 00032 1
0ABSOLUTE CONSTANTS
01504 +000000000006 01520 -206026314325 01524 -206050643163 01544 -206060606050 01553 -206247433163
01547 -206060606062 01536 -206060606027 01546 -206060606060 01510 +233021452725 01532 -206060606023
01552 -206060634647 01550 -206060606063 01517 -204751314563 01543 -206060606047 01521 -206026314524
01535 -206060606026 01513 -034623216325 01541 -206060606043 01525 -206060462626 01527 -206060604645
01554 -252551312670 01551 -206060606065 01515 -202251252142 01526 -206060602251 01522 -206042314343
01540 -206060606042 01516 -202551216225 01534 -206060606025 01514 -112563704725 01545 -206060606051
01505 +214747254524 01530 -206060606021 01506 +224663634644 01531 -206060606022 01512 +314562255163
01537 -206060606031 01523 -206045256763 01542 -206060606045 01511 +242543256325 01533 -206060606024
01500 +000000000000 01503 +000000000003 01502 +000000000002 01501 +000000000001 01507 +233000000000
0STATEMENT DICTIONARY
00034 TXL -302146002133 00035 TXL -302676002673 00036 TXL -303402003401 00037 TXL -303401003374
00040 TXL -303460003451 00041 TXL -303301003275 00042 TXL -303302003301 00043 TXL -301645001637
00044 TXL -303430003416 00045 TXL -302334002327 00046 TXL -303117003105 00047 TXL -303543003540
00050 TXL -302026002022 00051 TXL -302022002014 00052 TXL -302506002505 00053 TXL -302475002465
00054 TXL -303226003214 00055 TXL -303032003026 00056 TXL -303351003340 00057 TXL -302346002343
00060 TXL -301651001645 00061 TXL -302527002524 00062 TXL -302133002131 00063 TXL -302734002722
00064 TXL -302764002761 00065 TXL -302771002764 00066 TXL -303040003036 00067 TXL -302424002416
00070 TXL -302575002572
0PROGRAM
VECTOR VALUES FENCE = 777777777777K 001 LM00010
01555 TSX +0 07400 4 00016 00665 -3 77777 7 77777
VECTOR VALUES RETURN = 55K 002 LM00011
01467 +0 00000 0 00055
VECTOR VALUES IN = $(INPUT$ 003 LM00012
00674 -3 43145 4 76463
VECTOR VALUES IN1 = $(INPT1$ 004 LM00013
00673 -3 43145 4 76301
VECTOR VALUES BRIEF = 0B 005 LM00014
00077 +0 00000 0 00000
VECTOR VALUES OK = 0B 006 LM00015
01460 +0 00000 0 00000
VECTOR VALUES BUFSIZ = 360 007 LM00016
00100 +0 00000 0 00550
DIMENSION LINE(361), EDLIN(361) 008 LM00017
DIMENSION REDS(1), BLACKS(1) 009 LM00018
D'N ATNAM(2) 010 LM00019
NORMAL MODE IS INTEGER 011 LM00020
BOOLEAN OK, GLOBAL, FSTPAS 012 LM00021
BOOLEAN CHNG, CLRSW, BRIEF 013 LM00022
WHOAMI.(ATNAM(2)...2) 014 LM00030
01556 TSX +0 07400 4 00026 01557 TIX +2 01502 0 00071
FI = ATNAM(1) 015 LM00031
01560 CLA +0 50000 0 00072 01561 STO +0 60100 0 00666
GETVAL.(BLANK, TAB, DEFALT, MCHNG, REDS(1), BLACKS(1)) 016 LM00032
01562 TSX +0 07400 4 00013 01563 TXH +3 00000 0 00076 01564 TXH +3 00000 0 01473 01565 TXH +3 00000 0 00107
01566 TXH +3 00000 0 01454 01567 TXH +3 00000 0 01465 01570 TXH +3 00000 0 00074
CLRNAM.(IN, FI, CHN, 1B) 017 LM00033
01571 TSX +0 07400 4 00006 01572 TXH +3 00000 0 00674 01573 TXH +3 00000 0 00666 01574 TXH +3 00000 0 00036
01575 TXH +3 00000 0 01501
CLRNAM.(IN1, FI, CHN, 1B) 018 LM00034
01576 TSX +0 07400 4 00006 01577 TXH +3 00000 0 00673 01600 TXH +3 00000 0 00666 01601 TXH +3 00000 0 00036
01602 TXH +3 00000 0 01501
ASSIGN.(IN, FI) 019 LM00035
01603 TSX +0 07400 4 00000 01604 TXH +3 00000 0 00674 01605 TXH +3 00000 0 00666
OLDNAM = COMARG.(1) 020 LM00036
01606 TSX +0 07400 4 00007 01607 TXH +3 00000 0 01501 01610 STO +0 60100 0 01461
OLDSEC = DEFALT 021 LM00037
01611 CLA +0 50000 0 00107 01612 STO +0 60100 0 01462
WHENEVER OLDNAM .E. FENCE, TRANSFER TO INSERT 022 LM00038
01613 CLA +0 50000 0 01461 01614 SUB +0 40200 0 00665 01615 TNZ -0 10000 0 01617 01616 TRA +0 02000 0 00051
OLDSEC = COMARG.(2) 023 LM00039
01617 TSX +0 07400 4 00007 01620 TXH +3 00000 0 01502 01621 STO +0 60100 0 01462
WHENEVER OLDSEC .E. FENCE, OLDSEC = DEFALT 024 LM00040
01622 CLA +0 50000 0 01462 01623 SUB +0 40200 0 00665 01624 TNZ -0 10000 0 01627 01625 CLA +0 50000 0 00107
01626 STO +0 60100 0 01462
SEEK.(OLDNAM, OLDSEC, INSERT) 025 LM00041
01627 TSX +0 07400 4 00021 01630 TXH +3 00000 0 01461 01631 TXH +3 00000 0 01462 01632 TXH +3 00000 0 00051
FSTPAS = 1B 026 LM00042
01633 CLA +0 50000 0 01501 01634 STO +0 60100 0 00671
OK = 1B 027 LM00043
01635 CLA +0 50000 0 01501 01636 STO +0 60100 0 01460
EDIT WHENEVER .NOT. BRIEF, PRINT COMMENT $0E1D1I1T$ 028 LM00047
01637 ZET +0 52000 0 00077 01640 TRA +0 02000 0 01645 01641 TSX +0 07400 4 00015 01642 +0 00000 0 00002
01643 +0 02501 2 40131 01644 +0 16360 6 06060
NXRQ COUNT = TYPEIN.(EDLIN, BUFSIZ) 029 LM00051
01645 TSX +0 07400 4 00024 01646 TXH +3 00000 0 00663 01647 TXH +3 00000 0 00100 01650 STO +0 60100 0 00105
WHENEVER EDLIN(1) .E. MCHNG .AND. COUNT .L. 3 030 LM00052
1 , TRANSFER TO INSERT 030 LM00053
01651 CLA +0 50000 0 00105 01652 SUB +0 40200 0 01503 01653 TZE +0 10000 0 01661 01654 TPL +0 12000 0 01661
01655 CLA +0 50000 0 00662 01656 SUB +0 40200 0 01454 01657 TNZ -0 10000 0 01661 01660 TRA +0 02000 0 00051
WHENEVER COUNT .L. 2, TRANSFER TO NXRQ 031 LM00054
01661 CLA +0 50000 0 00105 01662 SUB +0 40200 0 01502 01663 TZE +0 10000 0 01666 01664 TPL +0 12000 0 01666
01665 TRA +0 02000 0 00060
EDCT = 0 032 LM00055
01666 CLA +0 50000 0 01500 01667 STO +0 60100 0 00111
CWD = GET.(0) 033 LM00056
01670 TSX +0 07400 4 00031 01671 TXH +3 00000 0 01500 01672 STO +0 60100 0 00106
WHENEVER CWD .E. $DELETE$ .OR. CWD .E. $ D$ 034 LM00058
01673 CLA +0 50000 0 00106 01674 SUB +0 40200 0 01533 01675 TZE +0 10000 0 01701 01676 CLA +0 50000 0 00106
01677 SUB +0 40200 0 01511 01700 TNZ -0 10000 0 01732
N = BIN.(GET.(0)) 035 LM00059
01701 TSX +0 07400 4 00031 01702 TXH +3 00000 0 01500 01703 STO +0 60100 0 03710 01704 TSX +0 07400 4 00001
01705 TXH +3 00000 0 03710 01706 STO +0 60100 0 01456
THROUGH DREAD, FOR I = 1, 1, I .GE. N 036 LM00060
01707 CLA +0 50000 0 01501 01710 STO +0 60100 0 00675 01711 TRA +0 02000 0 01715 01712 CLA +0 50000 0 00675
01713 ADD +0 40000 0 01501 01714 STO +0 60100 0 00675 01715 CLA +0 50000 0 00675 01716 SUB +0 40200 0 01456
01717 TZE +0 10000 0 01727 01720 TPL +0 12000 0 01727
DREAD LENGTH = READ.(LINE, BUFSIZ, EOF) 037 LM00061
01721 TSX +0 07400 4 00017 01722 TXH +3 00000 0 01452 01723 TXH +3 00000 0 00100 01724 TXH +3 00000 0 00044
01725 STO +0 60100 0 00700 01726 TRA +0 02000 0 01712
LENGTH = 0 038 LM00062
01727 CLA +0 50000 0 01500 01730 STO +0 60100 0 00700
OR WHENEVER CWD .E. $ NEXT$ .OR. CWD .E. $ N$ 039 LM00064
01731 TRA +0 02000 0 03415 01732 CLA +0 50000 0 00106 01733 SUB +0 40200 0 01542 01734 TZE +0 10000 0 01740
01735 CLA +0 50000 0 00106 01736 SUB +0 40200 0 01523 01737 TNZ -0 10000 0 02002
N = BIN.(GET.(0)) 040 LM00065
01740 TSX +0 07400 4 00031 01741 TXH +3 00000 0 01500 01742 STO +0 60100 0 03710 01743 TSX +0 07400 4 00001
01744 TXH +3 00000 0 03710 01745 STO +0 60100 0 01456
WHENEVER N .E. 0, N = 1 041 LM00066
01746 CLA +0 50000 0 01456 01747 SUB +0 40200 0 01500 01750 TNZ -0 10000 0 01753 01751 CLA +0 50000 0 01501
01752 STO +0 60100 0 01456
THROUGH NXT, FOR I = 1, 1, I .G. N 042 LM00067
01753 CLA +0 50000 0 01501 01754 STO +0 60100 0 00675 01755 TRA +0 02000 0 01761 01756 CLA +0 50000 0 00675
01757 ADD +0 40000 0 01501 01760 STO +0 60100 0 00675 01761 CLA +0 50000 0 00675 01762 SUB +0 40200 0 01456
01763 TZE +0 10000 0 01765 01764 TPL +0 12000 0 02001
WRITE.(LINE, LENGTH) 043 LM00068
01765 TSX +0 07400 4 00027 01766 TXH +3 00000 0 01452 01767 TXH +3 00000 0 00700
WHENEVER .NOT. OK, CLSOUT. 044 LM00069
01770 ZET +0 52000 0 01460 01771 TRA +0 02000 0 01773 01772 TSX +0 07400 4 00030
LENGTH = READ.(LINE, BUFSIZ, EOF) 045 LM00070
01773 TSX +0 07400 4 00017 01774 TXH +3 00000 0 01452 01775 TXH +3 00000 0 00100 01776 TXH +3 00000 0 00044
01777 STO +0 60100 0 00700
NXT CONTINUE 046 LM00071
02000 TRA +0 02000 0 01756
OR WHENEVER CWD .E. $INSERT$ .OR. CWD .E. $ I$ 047 LM00073
02001 TRA +0 02000 0 03415 02002 CLA +0 50000 0 00106 02003 SUB +0 40200 0 01537 02004 TZE +0 10000 0 02010
02005 CLA +0 50000 0 00106 02006 SUB +0 40200 0 01512 02007 TNZ -0 10000 0 02064
WRITE.(LINE, LENGTH) 048 LM00074
02010 TSX +0 07400 4 00027 02011 TXH +3 00000 0 01452 02012 TXH +3 00000 0 00700
TRANSFER TO RETYPE 049 LM00075
02013 TRA +0 02000 0 00062
INSERT WHENEVER .NOT. BRIEF, PRINT COMMENT $0I1N1P1U1T$ 050 LM00077
02014 ZET +0 52000 0 00077 02015 TRA +0 02000 0 02022 02016 TSX +0 07400 4 00015 02017 +0 00000 0 00002
02020 +0 03101 4 50147 02021 +0 16401 6 36060
INPUT COUNT = TYPEIN.(EDLIN, BUFSIZ) 051 LM00078
02022 TSX +0 07400 4 00024 02023 TXH +3 00000 0 00663 02024 TXH +3 00000 0 00100 02025 STO +0 60100 0 00105
WHENEVER COUNT .L. 3 .AND. EDLIN(1) .E. MCHNG 052 LM00079
1 , TRANSFER TO EDIT 052 LM00080
02026 CLA +0 50000 0 00662 02027 SUB +0 40200 0 01454 02030 TNZ -0 10000 0 02036 02031 CLA +0 50000 0 00105
02032 SUB +0 40200 0 01503 02033 TZE +0 10000 0 02036 02034 TPL +0 12000 0 02036 02035 TRA +0 02000 0 00043
WRITE.(LINE, LENGTH) 053 LM00081
02036 TSX +0 07400 4 00027 02037 TXH +3 00000 0 01452 02040 TXH +3 00000 0 00700
THROUGH MVLP, FOR I = 1, 1, I .G. COUNT 054 LM00082
02041 CLA +0 50000 0 01501 02042 STO +0 60100 0 00675 02043 TRA +0 02000 0 02047 02044 CLA +0 50000 0 00675
02045 ADD +0 40000 0 01501 02046 STO +0 60100 0 00675 02047 CLA +0 50000 0 00675 02050 SUB +0 40200 0 00105
02051 TZE +0 10000 0 02053 02052 TPL +0 12000 0 02060
MVLP LINE(I) = EDLIN(I) 055 LM00083
02053 LXA +0 53400 1 00675 02054 LXA +0 53400 2 00675 02055 CLA +0 50000 2 00663 02056 STO +0 60100 1 01452
02057 TRA +0 02000 0 02044
LENGTH = COUNT 056 LM00084
02060 CLA +0 50000 0 00105 02061 STO +0 60100 0 00700
TRANSFER TO INPUT 057 LM00085
02062 TRA +0 02000 0 00050
OR WHENEVER CWD .E. $BOTTOM$ .OR. CWD .E. $ B$ 058 LM00087
02063 TRA +0 02000 0 03415 02064 CLA +0 50000 0 00106 02065 SUB +0 40200 0 01531 02066 TZE +0 10000 0 02072
02067 CLA +0 50000 0 00106 02070 SUB +0 40200 0 01506 02071 TNZ -0 10000 0 02104
WRITE.(LINE, LENGTH) 059 LM00088
02072 TSX +0 07400 4 00027 02073 TXH +3 00000 0 01452 02074 TXH +3 00000 0 00700
LENGTH = 0 060 LM00089
02075 CLA +0 50000 0 01500 02076 STO +0 60100 0 00700
WHENEVER OK, BOTTOM. 061 LM00090
02077 NZT -0 52000 0 01460 02100 TRA +0 02000 0 02102 02101 TSX +0 07400 4 00002
TRANSFER TO INSERT 062 LM00091
02102 TRA +0 02000 0 00051
OR WHENEVER CWD .E. $APPEND$ .OR. CWD .E. $ A$ 063 LM00093
02103 TRA +0 02000 0 03415 02104 CLA +0 50000 0 00106 02105 SUB +0 40200 0 01530 02106 TZE +0 10000 0 02112
02107 CLA +0 50000 0 00106 02110 SUB +0 40200 0 01505 02111 TNZ -0 10000 0 02123
WHENEVER LENGTH .G. 0, LENGTH = LENGTH - 1 064 LM00094
02112 CLA +0 50000 0 00700 02113 SUB +0 40200 0 01500 02114 TZE +0 10000 0 02121 02115 TMI -0 12000 0 02121
02116 CLA +0 50000 0 00700 02117 SUB +0 40200 0 01501 02120 STO +0 60100 0 00700
TRANSFER TO APPEND 065 LM00095
02121 TRA +0 02000 0 00034
OR WHENEVER CWD .E. $RETYPE$ .OR. CWD .E. $ R$ 066 LM00097
02122 TRA +0 02000 0 03415 02123 CLA +0 50000 0 00106 02124 SUB +0 40200 0 01545 02125 TZE +0 10000 0 02131
02126 CLA +0 50000 0 00106 02127 SUB +0 40200 0 01514 02130 TNZ -0 10000 0 02157
RETYPE LENGTH = 0 067 LM00098
02131 CLA +0 50000 0 01500 02132 STO +0 60100 0 00700
APPEND THROUGH RPLC, FOR EDCT = EDCT + 1, 1, EDCT .G. COUNT 068 LM00099
02133 CLA +0 50000 0 00111 02134 ADD +0 40000 0 01501 02135 STO +0 60100 0 00111 02136 TRA +0 02000 0 02142
02137 CLA +0 50000 0 00111 02140 ADD +0 40000 0 01501 02141 STO +0 60100 0 00111 02142 CLA +0 50000 0 00111
02143 SUB +0 40200 0 00105 02144 TZE +0 10000 0 02146 02145 TPL +0 12000 0 02156
LENGTH = LENGTH + 1 069 LM00100
02146 CLA +0 50000 0 00700 02147 ADD +0 40000 0 01501 02150 STO +0 60100 0 00700
RPLC LINE(LENGTH) = EDLIN(EDCT) 070 LM00101
02151 LXA +0 53400 1 00700 02152 LXA +0 53400 2 00111 02153 CLA +0 50000 2 00663 02154 STO +0 60100 1 01452
02155 TRA +0 02000 0 02137
OR WHENEVER CWD .E. $ ERASE$ .OR. CWD .E. $ E$ 071 LM00103
02156 TRA +0 02000 0 03415 02157 CLA +0 50000 0 00106 02160 SUB +0 40200 0 01534 02161 TZE +0 10000 0 02165
02162 CLA +0 50000 0 00106 02163 SUB +0 40200 0 01516 02164 TNZ -0 10000 0 02203
WHENEVER EDLIN(EDCT+1) .NE. BLANK, SETERS.(EDLIN(EDCT+1)) 072 LM00104
02165 CLA +0 50000 0 00111 02166 ADD +0 40000 0 01501 02167 PAX +0 73400 1 00000 02170 CLA +0 50000 1 00663
02171 SUB +0 40200 0 00076 02172 TZE +0 10000 0 02202 02173 CLA +0 50000 0 00111 02174 ADD +0 40000 0 01501
02175 SUB +0 40200 0 02176 02176 TXH +3 00000 0 00663 02177 STA +0 62100 0 02201 02200 TSX +0 07400 4 00022
02201 TXH +3 00000 0 00000
OR WHENEVER CWD .E. $ KILL$ .OR. CWD .E. $ K$ 073 LM00106
02202 TRA +0 02000 0 03415 02203 CLA +0 50000 0 00106 02204 SUB +0 40200 0 01540 02205 TZE +0 10000 0 02211
02206 CLA +0 50000 0 00106 02207 SUB +0 40200 0 01522 02210 TNZ -0 10000 0 02227
WHENEVER EDLIN(EDCT+1) .NE. BLANK, SETKIL.(EDLIN(EDCT+1)) 074 LM00107
02211 CLA +0 50000 0 00111 02212 ADD +0 40000 0 01501 02213 PAX +0 73400 1 00000 02214 CLA +0 50000 1 00663
02215 SUB +0 40200 0 00076 02216 TZE +0 10000 0 02226 02217 CLA +0 50000 0 00111 02220 ADD +0 40000 0 01501
02221 SUB +0 40200 0 02222 02222 TXH +3 00000 0 00663 02223 STA +0 62100 0 02225 02224 TSX +0 07400 4 00023
02225 TXH +3 00000 0 00000
OR WHENEVER CWD .E. $ BREAK$ .OR. CWD .E. $ BR$ 075 LM00111
02226 TRA +0 02000 0 03415 02227 CLA +0 50000 0 00106 02230 SUB +0 40200 0 01526 02231 TZE +0 10000 0 02235
02232 CLA +0 50000 0 00106 02233 SUB +0 40200 0 01515 02234 TNZ -0 10000 0 02260
WHENEVER EDLIN(EDCT) .E. RETURN 076 LM00112
02235 LXA +0 53400 1 00111 02236 CLA +0 50000 1 00663 02237 SUB +0 40200 0 01467 02240 TNZ -0 10000 0 02244
MCHNG = RETURN 077 LM00113
02241 CLA +0 50000 0 01467 02242 STO +0 60100 0 01454
OR WHENEVER EDLIN(EDCT+1) .NE. BLANK 078 LM00114
02243 TRA +0 02000 0 02257 02244 CLA +0 50000 0 00111 02245 ADD +0 40000 0 01501 02246 PAX +0 73400 1 00000
02247 CLA +0 50000 1 00663 02250 SUB +0 40200 0 00076 02251 TZE +0 10000 0 02257
MCHNG = EDLIN(EDCT+1) 079 LM00115
02252 CLA +0 50000 0 00111 02253 ADD +0 40000 0 01501 02254 PAX +0 73400 2 00000 02255 CLA +0 50000 2 00663
02256 STO +0 60100 0 01454
END OF CONDITIONAL 080 LM00116
OR WHENEVER CWD .E. $VERIFY$ .OR. CWD .E. $ V$ 081 LM00118
02257 TRA +0 02000 0 03415 02260 CLA +0 50000 0 00106 02261 SUB +0 40200 0 01551 02262 TZE +0 10000 0 02266
02263 CLA +0 50000 0 00106 02264 SUB +0 40200 0 01554 02265 TNZ -0 10000 0 02305
CWD = GET.(0) 082 LM00119
02266 TSX +0 07400 4 00031 02267 TXH +3 00000 0 01500 02270 STO +0 60100 0 00106
WHENEVER CWD .E. $ ON$ 083 LM00120
02271 CLA +0 50000 0 00106 02272 SUB +0 40200 0 01527 02273 TNZ -0 10000 0 02277
BRIEF = 0B 084 LM00121
02274 CLA +0 50000 0 01500 02275 STO +0 60100 0 00077
OR WHENEVER CWD .E. $ OFF$ 085 LM00122
02276 TRA +0 02000 0 02304 02277 CLA +0 50000 0 00106 02300 SUB +0 40200 0 01525 02301 TNZ -0 10000 0 02304
BRIEF = 1B 086 LM00123
02302 CLA +0 50000 0 01501 02303 STO +0 60100 0 00077
END OF CONDITIONAL 087 LM00124
OR WHENEVER CWD .E. $LOCATE$ .OR. CWD .E. $ L$ 088 LM00126
02304 TRA +0 02000 0 03415 02305 CLA +0 50000 0 00106 02306 SUB +0 40200 0 01541 02307 TZE +0 10000 0 02313
02310 CLA +0 50000 0 00106 02311 SUB +0 40200 0 01513 02312 TNZ -0 10000 0 02317
LOCATE = 1 089 LM00127
02313 CLA +0 50000 0 01501 02314 STO +0 60100 0 01453
TRANSFER TO FIND 090 LM00128
02315 TRA +0 02000 0 00045
OR WHENEVER CWD .E. $ FIND$ .OR. CWD .E. $ F$ 091 LM00130
02316 TRA +0 02000 0 03415 02317 CLA +0 50000 0 00106 02320 SUB +0 40200 0 01535 02321 TZE +0 10000 0 02325
02322 CLA +0 50000 0 00106 02323 SUB +0 40200 0 01521 02324 TNZ -0 10000 0 02510
LOCATE = 0 092 LM00131
02325 CLA +0 50000 0 01500 02326 STO +0 60100 0 01453
FIND WHENEVER EDCT+1 .GE. COUNT 093 LM00132
02327 CLA +0 50000 0 00111 02330 ADD +0 40000 0 01501 02331 SUB +0 40200 0 00105 02332 TZE +0 10000 0 02334
02333 TMI -0 12000 0 02341
COUNT = OCOUNT 094 LM00133
02334 CLA +0 50000 0 01457 02335 STO +0 60100 0 00105
EDCT = EDCT + 1 095 LM00134
02336 CLA +0 50000 0 00111 02337 ADD +0 40000 0 01501 02340 STO +0 60100 0 00111
END OF CONDITIONAL 096 LM00135
OCOUNT = COUNT 097 LM00136
02341 CLA +0 50000 0 00105 02342 STO +0 60100 0 01457
NTFND WRITE.(LINE, LENGTH) 098 LM00137
02343 TSX +0 07400 4 00027 02344 TXH +3 00000 0 01452 02345 TXH +3 00000 0 00700
WHENEVER .NOT. OK, CLSOUT. 099 LM00138
02346 ZET +0 52000 0 01460 02347 TRA +0 02000 0 02351 02350 TSX +0 07400 4 00030
LENGTH = READ.(LINE, BUFSIZ, EOF) 100 LM00139
02351 TSX +0 07400 4 00017 02352 TXH +3 00000 0 01452 02353 TXH +3 00000 0 00100 02354 TXH +3 00000 0 00044
02355 STO +0 60100 0 00700
THROUGH LOCSCN, FOR K=0, 1,K.G.LOCATE*(LENGTH-COUNT+EDCT) 101 LM00140
02356 CLA +0 50000 0 01500 02357 STO +0 60100 0 00677 02360 TRA +0 02000 0 02364 02361 CLA +0 50000 0 00677
02362 ADD +0 40000 0 01501 02363 STO +0 60100 0 00677 02364 CLA +0 50000 0 00700 02365 SUB +0 40200 0 00105
02366 ADD +0 40000 0 00111 02367 XCA +0 13100 0 00000 02370 MPY +0 20000 0 01453 02371 XCA +0 13100 0 00000
02372 CHS +0 76000 0 00002 02373 ADD +0 40000 0 00677 02374 TZE +0 10000 0 02376 02375 TPL +0 12000 0 02506
J = K 102 LM00141
02376 CLA +0 50000 0 00677 02377 STO +0 60100 0 00676
THROUGH LOOK, FOR I = EDCT+1, 1, I .GE. COUNT 103 LM00142
02400 CLA +0 50000 0 00111 02401 ADD +0 40000 0 01501 02402 STO +0 60100 0 00675 02403 TRA +0 02000 0 02407
02404 CLA +0 50000 0 00675 02405 ADD +0 40000 0 01501 02406 STO +0 60100 0 00675 02407 CLA +0 50000 0 00675
02410 SUB +0 40200 0 00105 02411 TZE +0 10000 0 02475 02412 TPL +0 12000 0 02475
J = J + 1 104 LM00143
02413 CLA +0 50000 0 00676 02414 ADD +0 40000 0 01501 02415 STO +0 60100 0 00676
TAGN WHENEVER LINE(J) .E. EDLIN(I), TRANSFER TO LOOK 105 LM00144
02416 LXA +0 53400 1 00676 02417 LXA +0 53400 2 00675 02420 CLA +0 50000 1 01452 02421 SUB +0 40200 2 00663
02422 TNZ -0 10000 0 02424 02423 TRA +0 02000 0 00053
WHENEVER (LINE(J).E. TAB) .AND. (EDLIN(I) .E. BLANK) 106 LM00145
1 , TRANSFER TO LOOK 106 LM00146
02424 LXA +0 53400 1 00675 02425 CLA +0 50000 1 00663 02426 SUB +0 40200 0 00076 02427 TNZ -0 10000 0 02435
02430 LXA +0 53400 1 00676 02431 CLA +0 50000 1 01452 02432 SUB +0 40200 0 01473 02433 TNZ -0 10000 0 02435
02434 TRA +0 02000 0 00053
WHENEVER EDLIN(I-1) .NE. BLANK .OR. I .E. EDCT + 1 107 LM00147
1 , TRANSFER TO LOCSCN 107 LM00148
02435 CLA +0 50000 0 00111 02436 ADD +0 40000 0 01501 02437 CHS +0 76000 0 00002 02440 ADD +0 40000 0 00675
02441 TZE +0 10000 0 02450 02442 CLA +0 50000 0 00675 02443 SUB +0 40200 0 01501 02444 PAX +0 73400 1 00000
02445 CLA +0 50000 1 00663 02446 SUB +0 40200 0 00076 02447 TZE +0 10000 0 02451 02450 TRA +0 02000 0 00052
WHENEVER LINE(J) .NE. BLANK .AND. LINE(J) .NE. TAB 108 LM00149
1 , TRANSFER TO LOCSCN 108 LM00150
02451 LXA +0 53400 1 00676 02452 CLA +0 50000 1 01452 02453 SUB +0 40200 0 01473 02454 TZE +0 10000 0 02461
02455 CLA +0 50000 1 01452 02456 SUB +0 40200 0 00076 02457 TZE +0 10000 0 02461 02460 TRA +0 02000 0 00052
J = J + 1 109 LM00151
02461 CLA +0 50000 0 00676 02462 ADD +0 40000 0 01501 02463 STO +0 60100 0 00676
TRANSFER TO TAGN 110 LM00152
02464 TRA +0 02000 0 00067
LOOK WHENEVER I .E. EDCT+1, FNDST = J 111 LM00153
02465 CLA +0 50000 0 00111 02466 ADD +0 40000 0 01501 02467 CHS +0 76000 0 00002 02470 ADD +0 40000 0 00675
02471 TNZ -0 10000 0 02474 02472 CLA +0 50000 0 00676 02473 STO +0 60100 0 00670 02474 TRA +0 02000 0 02404
FNDND = J 112 LM00154
02475 CLA +0 50000 0 00676 02476 STO +0 60100 0 00667
WHENEVER .NOT. BRIEF, PRNT.(FNDST, FNDND) 113 LM00155
02477 ZET +0 52000 0 00077 02500 TRA +0 02000 0 02504 02501 TSX +0 07400 4 00032 02502 TXH +3 00000 0 00670
02503 TXH +3 00000 0 00667
TRANSFER TO NXRQ 114 LM00156
02504 TRA +0 02000 0 00060
LOCSCN CONTINUE 115 LM00157
02505 TRA +0 02000 0 02361
TRANSFER TO NTFND 116 LM00158
02506 TRA +0 02000 0 00057
OR WHENEVER CWD .E. $ PRINT$ .OR. CWD .E. $ P$ 117 LM00160
02507 TRA +0 02000 0 03415 02510 CLA +0 50000 0 00106 02511 SUB +0 40200 0 01543 02512 TZE +0 10000 0 02516
02513 CLA +0 50000 0 00106 02514 SUB +0 40200 0 01517 02515 TNZ -0 10000 0 02564
NPRNT = BIN.(GET.(0)) 118 LM00161
02516 TSX +0 07400 4 00031 02517 TXH +3 00000 0 01500 02520 STO +0 60100 0 03710 02521 TSX +0 07400 4 00001
02522 TXH +3 00000 0 03710 02523 STO +0 60100 0 01455
PNTLP WHENEVER LENGTH .E. 0 119 LM00162
02524 CLA +0 50000 0 00700 02525 SUB +0 40200 0 01500 02526 TNZ -0 10000 0 02540
PRINT COMMENT $0N1O0 1C1U1R1R1E1N1T0 1L1I1N1E0.$ 120 LM00163
02527 TSX +0 07400 4 00015 02530 +0 00000 0 00006 02531 +0 04501 4 60060 02532 +0 12301 6 40151
02533 +0 15101 2 50145 02534 +0 16300 6 00143 02535 +0 13101 4 50125 02536 +0 03360 6 06060
OTHERWISE 121 LM00164
02537 TRA +0 02000 0 02543
TYPOUT.(LINE, LENGTH) 122 LM00165
02540 TSX +0 07400 4 00025 02541 TXH +3 00000 0 01452 02542 TXH +3 00000 0 00700
END OF CONDITIONAL 123 LM00166
NPRNT = NPRNT - 1 124 LM00167
02543 CLA +0 50000 0 01455 02544 SUB +0 40200 0 01501 02545 STO +0 60100 0 01455
WHENEVER NPRNT .G. 0 125 LM00168
02546 CLA +0 50000 0 01455 02547 SUB +0 40200 0 01500 02550 TZE +0 10000 0 02563 02551 TMI -0 12000 0 02563
WRITE.(LINE, LENGTH) 126 LM00169
02552 TSX +0 07400 4 00027 02553 TXH +3 00000 0 01452 02554 TXH +3 00000 0 00700
LENGTH = READ.(LINE, BUFSIZ, EOF) 127 LM00170
02555 TSX +0 07400 4 00017 02556 TXH +3 00000 0 01452 02557 TXH +3 00000 0 00100 02560 TXH +3 00000 0 00044
02561 STO +0 60100 0 00700
TRANSFER TO PNTLP 128 LM00171
02562 TRA +0 02000 0 00061
END OF CONDITIONAL 129 LM00172
OR WHENEVER CWD .E. $ TOP$ .OR. CWD .E. $ T$ 130 LM00174
02563 TRA +0 02000 0 03415 02564 CLA +0 50000 0 00106 02565 SUB +0 40200 0 01550 02566 TZE +0 10000 0 02572
02567 CLA +0 50000 0 00106 02570 SUB +0 40200 0 01552 02571 TNZ -0 10000 0 02602
TOPLP WRITE.(LINE, LENGTH) 131 LM00175
02572 TSX +0 07400 4 00027 02573 TXH +3 00000 0 01452 02574 TXH +3 00000 0 00700
WHENEVER OK, BOTTOM. 132 LM00176
02575 NZT -0 52000 0 01460 02576 TRA +0 02000 0 02600 02577 TSX +0 07400 4 00002
CLSOUT. 133 LM00177
02600 TSX +0 07400 4 00030
OR WHENEVER CWD .E. $CHANGE$ .OR. CWD .E. $ C$ 134 LM00179
02601 TRA +0 02000 0 03415 02602 CLA +0 50000 0 00106 02603 SUB +0 40200 0 01532 02604 TZE +0 10000 0 02610
02605 CLA +0 50000 0 00106 02606 SUB +0 40200 0 01510 02607 TNZ -0 10000 0 03172
EDCT = EDCT+1 135 LM00185
02610 CLA +0 50000 0 00111 02611 ADD +0 40000 0 01501 02612 STO +0 60100 0 00111
QUOTE = EDLIN(EDCT) 136 LM00186
02613 LXA +0 53400 2 00111 02614 CLA +0 50000 2 00663 02615 STO +0 60100 0 01464
STR1 = EDCT 137 LM00187
02616 CLA +0 50000 0 00111 02617 STO +0 60100 0 01471
QLOOP THROUGH QLOOP, FOR EDCT = EDCT+1, 1, 138 LM00188
1 (EDLIN(EDCT) .E. QUOTE) .OR. (EDCT .GE. COUNT) 138 LM00189
02620 CLA +0 50000 0 00111 02621 ADD +0 40000 0 01501 02622 STO +0 60100 0 00111 02623 TRA +0 02000 0 02627
02624 CLA +0 50000 0 00111 02625 ADD +0 40000 0 01501 02626 STO +0 60100 0 00111 02627 CLA +0 50000 0 00111
02630 SUB +0 40200 0 00105 02631 TZE +0 10000 0 02640 02632 TPL +0 12000 0 02640 02633 LXA +0 53400 1 00111
02634 CLA +0 50000 1 00663 02635 SUB +0 40200 0 01464 02636 TZE +0 10000 0 02640 02637 TRA +0 02000 0 02624
STR2 = EDCT 139 LM00190
02640 CLA +0 50000 0 00111 02641 STO +0 60100 0 01472
QLOOP1 THROUGH QLOOP1, FOR EDCT = EDCT+1, 1, 140 LM00191
1 (EDLIN(EDCT) .E. QUOTE) .OR. (EDCT .GE. COUNT) 140 LM00192
02642 CLA +0 50000 0 00111 02643 ADD +0 40000 0 01501 02644 STO +0 60100 0 00111 02645 TRA +0 02000 0 02651
02646 CLA +0 50000 0 00111 02647 ADD +0 40000 0 01501 02650 STO +0 60100 0 00111 02651 CLA +0 50000 0 00111
02652 SUB +0 40200 0 00105 02653 TZE +0 10000 0 02662 02654 TPL +0 12000 0 02662 02655 LXA +0 53400 1 00111
02656 CLA +0 50000 1 00663 02657 SUB +0 40200 0 01464 02660 TZE +0 10000 0 02662 02661 TRA +0 02000 0 02646
EST2 = EDCT 141 LM00193
02662 CLA +0 50000 0 00111 02663 STO +0 60100 0 00664
EDCT = EDCT + 1 142 LM00197
02664 CLA +0 50000 0 00111 02665 ADD +0 40000 0 01501 02666 STO +0 60100 0 00111
TEM = 1 143 LM00198
02667 CLA +0 50000 0 01501 02670 STO +0 60100 0 01474
GLOBAL = 0B 144 LM00199
02671 CLA +0 50000 0 01500 02672 STO +0 60100 0 00672
ARGLP CWD = GET.(0) 145 LM00200
02673 TSX +0 07400 4 00031 02674 TXH +3 00000 0 01500 02675 STO +0 60100 0 00106
WHENEVER CWD .E. $ $ 146 LM00201
02676 CLA +0 50000 0 00106 02677 SUB +0 40200 0 01546 02700 TNZ -0 10000 0 02703
TRANSFER TO SHIFT 147 LM00202
02701 TRA +0 02000 0 00063
OR WHENEVER CWD .E. $ G$ 148 LM00203
02702 TRA +0 02000 0 02721 02703 CLA +0 50000 0 00106 02704 SUB +0 40200 0 01536 02705 TNZ -0 10000 0 02716
WHENEVER STR2 .NE. STR1+1, GLOBAL = 1B 149 LM00204
02706 CLA +0 50000 0 01471 02707 ADD +0 40000 0 01501 02710 CHS +0 76000 0 00002 02711 ADD +0 40000 0 01472
02712 TZE +0 10000 0 02715 02713 CLA +0 50000 0 01501 02714 STO +0 60100 0 00672
OTHERWISE 150 LM00205
02715 TRA +0 02000 0 02721
TEM = BIN.(CWD) 151 LM00206
02716 TSX +0 07400 4 00001 02717 TXH +3 00000 0 00106 02720 STO +0 60100 0 01474
END OF CONDITIONAL 152 LM00207
TRANSFER TO ARGLP 153 LM00208
02721 TRA +0 02000 0 00035
SHIFT THROUGH MVDWN, FOR I = LENGTH, -1, I .L. 1 154 LM00212
02722 CLA +0 50000 0 00700 02723 STO +0 60100 0 00675 02724 TRA +0 02000 0 02730 02725 CLS +0 50200 0 01501
02726 ADD +0 40000 0 00675 02727 STO +0 60100 0 00675 02730 CLA +0 50000 0 00675 02731 SUB +0 40200 0 01501
02732 TZE +0 10000 0 02734 02733 TMI -0 12000 0 02744
MVDWN LINE(BUFSIZ+I-LENGTH) = LINE(I) 155 LM00213
02734 CLA +0 50000 0 00100 02735 ADD +0 40000 0 00675 02736 SUB +0 40200 0 00700 02737 PAX +0 73400 1 00000
02740 LXA +0 53400 2 00675 02741 CLA +0 50000 2 01452 02742 STO +0 60100 1 01452 02743 TRA +0 02000 0 02725
DOWN = BUFSIZ-LENGTH+1 156 LM00214
02744 CLA +0 50000 0 00100 02745 SUB +0 40200 0 00700 02746 ADD +0 40000 0 01501 02747 STO +0 60100 0 00110
UP = 0 157 LM00215
02750 CLA +0 50000 0 01500 02751 STO +0 60100 0 01476
CHNG = 0B 158 LM00216
02752 CLA +0 50000 0 01500 02753 STO +0 60100 0 00102
CHST = LENGTH + 1 159 LM00217
02754 CLA +0 50000 0 00700 02755 ADD +0 40000 0 01501 02756 STO +0 60100 0 00103
CHEND = LENGTH 160 LM00218
02757 CLA +0 50000 0 00700 02760 STO +0 60100 0 00101
SRCHLP UP = UP + 1 161 LM00222
02761 CLA +0 50000 0 01476 02762 ADD +0 40000 0 01501 02763 STO +0 60100 0 01476
SRTST WHENEVER DOWN .G. BUFSIZ, TRANSFER TO GIVUP 162 LM00223
02764 CLA +0 50000 0 00110 02765 SUB +0 40200 0 00100 02766 TZE +0 10000 0 02771 02767 TMI -0 12000 0 02771
02770 TRA +0 02000 0 00046
J = DOWN 163 LM00224
02771 CLA +0 50000 0 00110 02772 STO +0 60100 0 00676
THROUGH COMPAR, FOR I = STR1+1, 1, I .GE. STR2 164 LM00225
02773 CLA +0 50000 0 01471 02774 ADD +0 40000 0 01501 02775 STO +0 60100 0 00675 02776 TRA +0 02000 0 03002
02777 CLA +0 50000 0 00675 03000 ADD +0 40000 0 01501 03001 STO +0 60100 0 00675 03002 CLA +0 50000 0 00675
03003 SUB +0 40200 0 01472 03004 TZE +0 10000 0 03025 03005 TPL +0 12000 0 03025
WHENEVER J .GE. BUFSIZ, TRANSFER TO GIVUP 165 LM00226
03006 CLA +0 50000 0 00676 03007 SUB +0 40200 0 00100 03010 TZE +0 10000 0 03012 03011 TMI -0 12000 0 03013
03012 TRA +0 02000 0 00046
WHENEVER EDLIN(I) .NE. LINE(J), TRANSFER TO NOCOMP 166 LM00227
03013 LXA +0 53400 1 00675 03014 LXA +0 53400 2 00676 03015 CLA +0 50000 1 00663 03016 SUB +0 40200 2 01452
03017 TZE +0 10000 0 03021 03020 TRA +0 02000 0 00055
COMPAR J = J + 1 167 LM00228
03021 CLA +0 50000 0 00676 03022 ADD +0 40000 0 01501 03023 STO +0 60100 0 00676 03024 TRA +0 02000 0 02777
TRANSFER TO STFND 168 LM00229
03025 TRA +0 02000 0 00066
NOCOMP LINE(UP) = LINE(DOWN) 169 LM00231
03026 LXA +0 53400 1 01476 03027 LXA +0 53400 2 00110 03030 CLA +0 50000 2 01452 03031 STO +0 60100 1 01452
DOWN = DOWN + 1 170 LM00232
03032 CLA +0 50000 0 00110 03033 ADD +0 40000 0 01501 03034 STO +0 60100 0 00110
TRANSFER TO SRCHLP 171 LM00233
03035 TRA +0 02000 0 00064
STFND CHNG = 1B 172 LM00237
03036 CLA +0 50000 0 01501 03037 STO +0 60100 0 00102
DOWN = DOWN + (STR2-STR1-1) 173 LM00238
03040 CLA +0 50000 0 01472 03041 SUB +0 40200 0 01471 03042 SUB +0 40200 0 01501 03043 ADD +0 40000 0 00110
03044 STO +0 60100 0 00110
CHST = UP 174 LM00239
03045 CLA +0 50000 0 01476 03046 STO +0 60100 0 00103
THROUGH REPLAC, FOR I = STR2 + 1, 1, I .GE. EST2 175 LM00240
03047 CLA +0 50000 0 01472 03050 ADD +0 40000 0 01501 03051 STO +0 60100 0 00675 03052 TRA +0 02000 0 03056
03053 CLA +0 50000 0 00675 03054 ADD +0 40000 0 01501 03055 STO +0 60100 0 00675 03056 CLA +0 50000 0 00675
03057 SUB +0 40200 0 00664 03060 TZE +0 10000 0 03077 03061 TPL +0 12000 0 03077
LINE(UP) = EDLIN(I) 176 LM00241
03062 LXA +0 53400 1 01476 03063 LXA +0 53400 2 00675 03064 CLA +0 50000 2 00663 03065 STO +0 60100 1 01452
UP = UP + 1 177 LM00242
03066 CLA +0 50000 0 01476 03067 ADD +0 40000 0 01501 03070 STO +0 60100 0 01476
REPLAC WHENEVER UP .G. DOWN, TRANSFER TO GIVUP 178 LM00243
03071 CLA +0 50000 0 01476 03072 SUB +0 40200 0 00110 03073 TZE +0 10000 0 03076 03074 TMI -0 12000 0 03076
03075 TRA +0 02000 0 00046 03076 TRA +0 02000 0 03053
CHEND = UP - 1 179 LM00244
03077 CLA +0 50000 0 01476 03100 SUB +0 40200 0 01501 03101 STO +0 60100 0 00101
WHENEVER GLOBAL, TRANSFER TO SRTST 180 LM00245
03102 NZT -0 52000 0 00672 03103 TRA +0 02000 0 03105 03104 TRA +0 02000 0 00065
GIVUP THROUGH FILOUT, FOR UP = UP, 1, DOWN .G. BUFSIZ 181 LM00249
03105 CLA +0 50000 0 01476 03106 STO +0 60100 0 01476 03107 TRA +0 02000 0 03113 03110 CLA +0 50000 0 01476
03111 ADD +0 40000 0 01501 03112 STO +0 60100 0 01476 03113 CLA +0 50000 0 00110 03114 SUB +0 40200 0 00100
03115 TZE +0 10000 0 03117 03116 TPL +0 12000 0 03127
LINE(UP) = LINE(DOWN) 182 LM00250
03117 LXA +0 53400 1 01476 03120 LXA +0 53400 2 00110 03121 CLA +0 50000 2 01452 03122 STO +0 60100 1 01452
FILOUT DOWN = DOWN + 1 183 LM00251
03123 CLA +0 50000 0 00110 03124 ADD +0 40000 0 01501 03125 STO +0 60100 0 00110 03126 TRA +0 02000 0 03110
LENGTH = UP - 1 184 LM00252
03127 CLA +0 50000 0 01476 03130 SUB +0 40200 0 01501 03131 STO +0 60100 0 00700
TEM = TEM - 1 185 LM00253
03132 CLA +0 50000 0 01474 03133 SUB +0 40200 0 01501 03134 STO +0 60100 0 01474
WHENEVER .NOT. BRIEF .AND. (TEM .G. 0 .THEN. CHNG) 186 LM00254
1 , PRNT.(CHST, CHEND) 186 LM00255
03135 ZET +0 52000 0 00102 03136 TRA +0 02000 0 03143 03137 CLA +0 50000 0 01474 03140 SUB +0 40200 0 01500
03141 TZE +0 10000 0 03143 03142 TPL +0 12000 0 03150 03143 ZET +0 52000 0 00077 03144 TRA +0 02000 0 03150
03145 TSX +0 07400 4 00032 03146 TXH +3 00000 0 00103 03147 TXH +3 00000 0 00101
CANON.(LINE, LENGTH, BUFSIZ) 187 LM00256
03150 TSX +0 07400 4 00003 03151 TXH +3 00000 0 01452 03152 TXH +3 00000 0 00700 03153 TXH +3 00000 0 00100
WHENEVER TEM .G. 0 188 LM00257
03154 CLA +0 50000 0 01474 03155 SUB +0 40200 0 01500 03156 TZE +0 10000 0 03171 03157 TMI -0 12000 0 03171
WRITE.(LINE, LENGTH) 189 LM00258
03160 TSX +0 07400 4 00027 03161 TXH +3 00000 0 01452 03162 TXH +3 00000 0 00700
LENGTH = READ.(LINE, BUFSIZ, EOF) 190 LM00259
03163 TSX +0 07400 4 00017 03164 TXH +3 00000 0 01452 03165 TXH +3 00000 0 00100 03166 TXH +3 00000 0 00044
03167 STO +0 60100 0 00700
TRANSFER TO SHIFT 191 LM00260
03170 TRA +0 02000 0 00063
END OF CONDITIONAL 192 LM00261
OR WHENEVER CWD .E. $ SPLIT$ .OR. CWD .E. $ S$ 193 LM00265
03171 TRA +0 02000 0 03415 03172 CLA +0 50000 0 00106 03173 SUB +0 40200 0 01547 03174 TZE +0 10000 0 03200
03175 CLA +0 50000 0 00106 03176 SUB +0 40200 0 01553 03177 TNZ -0 10000 0 03261
TOPNAM = GET.(0) 194 LM00266
03200 TSX +0 07400 4 00031 03201 TXH +3 00000 0 01500 03202 STO +0 60100 0 01475
WHENEVER TOPNAM .E. $ $, TRANSFER TO NONAME 195 LM00267
03203 CLA +0 50000 0 01475 03204 SUB +0 40200 0 01546 03205 TNZ -0 10000 0 03207 03206 TRA +0 02000 0 00056
WHENEVER TOPNAM .E. OLDNAM .AND. FSTPAS 196 LM00268
03207 NZT -0 52000 0 00671 03210 TRA +0 02000 0 03227 03211 CLA +0 50000 0 01475 03212 SUB +0 40200 0 01461
03213 TNZ -0 10000 0 03227
NEWNM PRINT COMMENT $0P1L1E1A1S1E0 1U1S1E0 1A1N1O1T1H1E1R0 1N1A 197 LM00269
11M1E0.$ 197 LM00270
03214 TSX +0 07400 4 00015 03215 +0 00000 0 00010 03216 +0 04701 4 30125 03217 +0 12101 6 20125
03220 +0 06001 6 40162 03221 +0 12500 6 00121 03222 +0 14501 4 60163 03223 +0 13001 2 50151
03224 +0 06001 4 50121 03225 +0 14401 2 50033
TRANSFER TO NXRQ 198 LM00271
03226 TRA +0 02000 0 00060
END OF CONDITIONAL 199 LM00272
SECNAM = GET.(0) 200 LM00273
03227 TSX +0 07400 4 00031 03230 TXH +3 00000 0 01500 03231 STO +0 60100 0 01470
WHENEVER SECNAM .E. $ $, SECNAM = OLDSEC 201 LM00274
03232 CLA +0 50000 0 01470 03233 SUB +0 40200 0 01546 03234 TNZ -0 10000 0 03237 03235 CLA +0 50000 0 01462
03236 STO +0 60100 0 01470
CLRNAM.(TOPNAM, SECNAM, NEWNM, 1B) 202 LM00275
03237 TSX +0 07400 4 00006 03240 TXH +3 00000 0 01475 03241 TXH +3 00000 0 01470 03242 TXH +3 00000 0 00054
03243 TXH +3 00000 0 01501
CLOSEW. 203 LM00276
03244 TSX +0 07400 4 00005
RENAME.(IN, FI, TOPNAM, SECNAM) 204 LM00277
03245 TSX +0 07400 4 00020 03246 TXH +3 00000 0 00674 03247 TXH +3 00000 0 00666 03250 TXH +3 00000 0 01475
03251 TXH +3 00000 0 01470
ASSIGN.(IN, FI) 205 LM00278
03252 TSX +0 07400 4 00000 03253 TXH +3 00000 0 00674 03254 TXH +3 00000 0 00666
OLDNAM = FENCE 206 LM00279
03255 CLA +0 50000 0 00665 03256 STO +0 60100 0 01461
TRANSFER TO TOPLP 207 LM00280
03257 TRA +0 02000 0 00070
OR WHENEVER CWD .E. $ QUIT$ .OR. CWD .E. $ Q$ 208 LM00282
03260 TRA +0 02000 0 03415 03261 CLA +0 50000 0 00106 03262 SUB +0 40200 0 01544 03263 TZE +0 10000 0 03267
03264 CLA +0 50000 0 00106 03265 SUB +0 40200 0 01524 03266 TNZ -0 10000 0 03303
ENDRD. 209 LM00283
03267 TSX +0 07400 4 00011
CLOSEW. 210 LM00284
03270 TSX +0 07400 4 00005
DELFIL.(IN1, FI, DLQ1) 211 LM00285
03271 TSX +0 07400 4 00010 03272 TXH +3 00000 0 00673 03273 TXH +3 00000 0 00666 03274 TXH +3 00000 0 00041
DLQ1 DELFIL.(IN, FI, DLQ2) 212 LM00286
03275 TSX +0 07400 4 00010 03276 TXH +3 00000 0 00674 03277 TXH +3 00000 0 00666 03300 TXH +3 00000 0 00042
DLQ2 TRANSFER TO CHN 213 LM00287
03301 TRA +0 02000 0 00036
OR WHENEVER CWD .E. $ FILE$ 214 LM00289
03302 TRA +0 02000 0 03415 03303 CLA +0 50000 0 00106 03304 SUB +0 40200 0 01520 03305 TNZ -0 10000 0 03403
PRINAM = GET.(0) 215 LM00290
03306 TSX +0 07400 4 00031 03307 TXH +3 00000 0 01500 03310 STO +0 60100 0 01463
CLRSW = 1B 216 LM00291
03311 CLA +0 50000 0 01501 03312 STO +0 60100 0 00104
WHENEVER PRINAM .E. $ $ 217 LM00292
03313 CLA +0 50000 0 01463 03314 SUB +0 40200 0 01546 03315 TNZ -0 10000 0 03325
PRINAM = OLDNAM 218 LM00293
03316 CLA +0 50000 0 01461 03317 STO +0 60100 0 01463
SECNAM = OLDSEC 219 LM00294
03320 CLA +0 50000 0 01462 03321 STO +0 60100 0 01470
CLRSW = 0B 220 LM00295
03322 CLA +0 50000 0 01500 03323 STO +0 60100 0 00104
OTHERWISE 221 LM00296
03324 TRA +0 02000 0 03335
SECNAM = GET.(0) 222 LM00297
03325 TSX +0 07400 4 00031 03326 TXH +3 00000 0 01500 03327 STO +0 60100 0 01470
WHENEVER SECNAM .E. $ $ 223 LM00298
03330 CLA +0 50000 0 01470 03331 SUB +0 40200 0 01546 03332 TNZ -0 10000 0 03335
SECNAM = OLDSEC 224 LM00299
03333 CLA +0 50000 0 01462 03334 STO +0 60100 0 01470
END OF CONDITIONAL 225 LM00300
END OF CONDITIONAL 226 LM00301
WHENEVER PRINAM .E. FENCE 227 LM00302
03335 CLA +0 50000 0 01463 03336 SUB +0 40200 0 00665 03337 TNZ -0 10000 0 03352
NONAME PRINT COMMENT $0N1O0 1F1I1L1E0 1N1A1M1E0 1G1I1V1E1N0.$ 228 LM00303
03340 TSX +0 07400 4 00015 03341 +0 00000 0 00007 03342 +0 04501 4 60060 03343 +0 12601 3 10143
03344 +0 12500 6 00145 03345 +0 12101 4 40125 03346 +0 06001 2 70131 03347 +0 16501 2 50145
03350 +0 03360 6 06060
TRANSFER TO NXRQ 229 LM00304
03351 TRA +0 02000 0 00060
END OF CONDITIONAL 230 LM00305
WRITE.(LINE, LENGTH) 231 LM00306
03352 TSX +0 07400 4 00027 03353 TXH +3 00000 0 01452 03354 TXH +3 00000 0 00700
LENGTH = 0 232 LM00307
03355 CLA +0 50000 0 01500 03356 STO +0 60100 0 00700
WHENEVER OK, BOTTOM. 233 LM00308
03357 NZT -0 52000 0 01460 03360 TRA +0 02000 0 03362 03361 TSX +0 07400 4 00002
CLRNAM.(PRINAM, SECNAM, NEWNM, CLRSW) 234 LM00309
03362 TSX +0 07400 4 00006 03363 TXH +3 00000 0 01463 03364 TXH +3 00000 0 01470 03365 TXH +3 00000 0 00054
03366 TXH +3 00000 0 00104
CLOSEW. 235 LM00310
03367 TSX +0 07400 4 00005
DELFIL.(IN1, FI, DL1) 236 LM00311
03370 TSX +0 07400 4 00010 03371 TXH +3 00000 0 00673 03372 TXH +3 00000 0 00666 03373 TXH +3 00000 0 00037
DL1 RENAME.(IN, FI, PRINAM, SECNAM) 237 LM00312
03374 TSX +0 07400 4 00020 03375 TXH +3 00000 0 00674 03376 TXH +3 00000 0 00666 03377 TXH +3 00000 0 01463
03400 TXH +3 00000 0 01470
CHN EXIT. 238 LM00313
03401 TSX +0 07400 4 00012
OTHERWISE 239 LM00315
03402 TRA +0 02000 0 03415
PRINT COMMENT $0N1O1T0 1A0 1R1E1Q1U1E1S1T0:$ 240 LM00316
03403 TSX +0 07400 4 00015 03404 +0 00000 0 00005 03405 +0 04501 4 60163 03406 +0 06001 2 10060
03407 +0 15101 2 50150 03410 +0 16401 2 50162 03411 +0 16300 3 56060
TYPOUT.(EDLIN, COUNT) 241 LM00317
03412 TSX +0 07400 4 00025 03413 TXH +3 00000 0 00663 03414 TXH +3 00000 0 00105
END OF CONDITIONAL 242 LM00319
TRANSFER TO NXRQ 243 LM00320
03415 TRA +0 02000 0 00060
EOF PRINTCOMMENT $0E1N1D0 1O1F0 1F1I1L1E0 1R1E1A1C1H1E1D0 1B1Y0:$ 244 LM00322
03416 TSX +0 07400 4 00015 03417 +0 00000 0 00010 03420 +0 02501 4 50124 03421 +0 06001 4 60126
03422 +0 06001 2 60131 03423 +0 14301 2 50060 03424 +0 15101 2 50121 03425 +0 12301 3 00125
03426 +0 12400 6 00122 03427 +0 17000 3 56060
TYPOUT.(EDLIN, COUNT) 245 LM00323
03430 TSX +0 07400 4 00025 03431 TXH +3 00000 0 00663 03432 TXH +3 00000 0 00105
LENGTH = 0 246 LM00324
03433 CLA +0 50000 0 01500 03434 STO +0 60100 0 00700
OK = 0B 247 LM00325
03435 CLA +0 50000 0 01500 03436 STO +0 60100 0 01460
TRANSFER TO NXRQ 248 LM00326
03437 TRA +0 02000 0 00060
INTERNAL FUNCTION 249 LM00334
03440 TRA +0 02000 0 03510
ENTRY TO CLSOUT. 250 LM00335
03441 TRA +0 02000 0 03444 00030 TTR +0 02100 0 03442 03442 SXA +0 63400 2 03477 03443 TSX +0 07400 2 03477
CLOSEW. 251 LM00336
03444 TSX +0 07400 4 00005
DELFIL.(IN1, FI, DL2) 252 LM00337
03445 TSX +0 07400 4 00010 03446 TXH +3 00000 0 00673 03447 TXH +3 00000 0 00666 03450 TXH +3 00000 0 00040
DL2 CHFILE.(IN, FI, -0, IN1) 253 LM00338
03451 CLS +0 50200 0 01500 03452 STO +0 60100 0 03507 03453 TSX +0 07400 4 00004 03454 TXH +3 00000 0 00674
03455 TXH +3 00000 0 00666 03456 TXH +3 00000 0 03507 03457 TXH +3 00000 0 00673
SEEK.(IN1, FI, CHN) 254 LM00339
03460 TSX +0 07400 4 00021 03461 TXH +3 00000 0 00673 03462 TXH +3 00000 0 00666 03463 TXH +3 00000 0 00036
ASSIGN.(IN, FI) 255 LM00340
03464 TSX +0 07400 4 00000 03465 TXH +3 00000 0 00674 03466 TXH +3 00000 0 00666
OK = 1B 256 LM00341
03467 CLA +0 50000 0 01501 03470 STO +0 60100 0 01460
LENGTH = 0 257 LM00342
03471 CLA +0 50000 0 01500 03472 STO +0 60100 0 00700
FSTPAS = 0B 258 LM00343
03473 CLA +0 50000 0 01500 03474 STO +0 60100 0 00671
FUNCTION RETURN 259 LM00344
03475 TRA +0 02000 0 03503
END OF FUNCTION 260 LM00345
03476 TSX +0 07400 4 00012 03477 TXH +3 00000 0 00000 03500 SXD -0 63400 1 03477 03501 SXA +0 63400 4 03503
03502 TRA +0 02000 2 00001 03503 AXT +0 77400 4 00000 03504 LXA +0 53400 2 03477 03505 LXD -0 53400 1 03477
03506 TRA +0 02000 4 00001
INTERNAL FUNCTION 261 LM00349
03510 TRA +0 02000 0 03616
ENTRY TO GET. 262 LM00350
03511 TRA +0 02000 0 03514 00031 TTR +0 02100 0 03512 03512 SXA +0 63400 2 03605 03513 TSX +0 07400 2 03605
WORD = $ $ 263 LM00351
03514 CLA +0 50000 0 01546 03515 STO +0 60100 0 01477
SCANLP THROUGH SCANLP, FOR EDCT = EDCT, 1, 264 LM00352
1 (EDLIN(EDCT+1).NE.BLANK) .OR. (EDCT+1.GE.COUNT) 264 LM00353
03516 CLA +0 50000 0 00111 03517 STO +0 60100 0 00111 03520 TRA +0 02000 0 03524 03521 CLA +0 50000 0 00111
03522 ADD +0 40000 0 01501 03523 STO +0 60100 0 00111 03524 CLA +0 50000 0 00111 03525 ADD +0 40000 0 01501
03526 SUB +0 40200 0 00105 03527 TZE +0 10000 0 03540 03530 TPL +0 12000 0 03540 03531 CLA +0 50000 0 00111
03532 ADD +0 40000 0 01501 03533 PAX +0 73400 1 00000 03534 CLA +0 50000 1 00663 03535 SUB +0 40200 0 00076
03536 TNZ -0 10000 0 03540 03537 TRA +0 02000 0 03521
GTLP EDCT = EDCT + 1 265 LM00354
03540 CLA +0 50000 0 00111 03541 ADD +0 40000 0 01501 03542 STO +0 60100 0 00111
WHENEVER EDLIN(EDCT) .E. BLANK, FUNCTION RETURN WORD 266 LM00355
03543 LXA +0 53400 1 00111 03544 CLA +0 50000 1 00663 03545 SUB +0 40200 0 00076 03546 TNZ -0 10000 0 03551
03547 CLA +0 50000 0 01477 03550 TRA +0 02000 0 03611
WHENEVER EDLIN(EDCT) .E. TAB .OR. EDCT .GE. COUNT 267 LM00356
03551 CLA +0 50000 0 00111 03552 SUB +0 40200 0 00105 03553 TZE +0 10000 0 03561 03554 TPL +0 12000 0 03561
03555 LXA +0 53400 1 00111 03556 CLA +0 50000 1 00663 03557 SUB +0 40200 0 01473 03560 TNZ -0 10000 0 03566
EDCT = EDCT - 1 268 LM00357
03561 CLA +0 50000 0 00111 03562 SUB +0 40200 0 01501 03563 STO +0 60100 0 00111
FUNCTION RETURN WORD 269 LM00358
03564 CLA +0 50000 0 01477 03565 TRA +0 02000 0 03611
END OF CONDITIONAL 270 LM00359
WORD = (WORD .LS. 6) .V. HOL.(EDLIN(EDCT)) 271 LM00360
03566 CLA +0 50000 0 00111 03567 SUB +0 40200 0 03570 03570 TXH +3 00000 0 00663 03571 STA +0 62100 0 03573
03572 TSX +0 07400 4 00014 03573 TXH +3 00000 0 00000 03574 STO +0 60100 0 03615 03575 CAL -0 50000 0 01504
03576 STA +0 62100 0 03600 03577 CAL -0 50000 0 01477 03600 ALS +0 76700 0 00000 03601 ORA -0 50100 0 03615
03602 SLW +0 60200 0 01477
TRANSFER TO GTLP 272 LM00361
03603 TRA +0 02000 0 00047
END OF FUNCTION 273 LM00362
03604 TSX +0 07400 4 00012 03605 TXH +3 00000 0 00000 03606 SXD -0 63400 1 03605 03607 SXA +0 63400 4 03611
03610 TRA +0 02000 2 00001 03611 AXT +0 77400 4 00000 03612 LXA +0 53400 2 03605 03613 LXD -0 53400 1 03605
03614 TRA +0 02000 4 00001
INTERNAL FUNCTION(STAR, EN) 274 LM00366
03616 TRA +0 02000 0 03707
ENTRY TO PRNT. 275 LM00367
03617 TRA +0 02000 0 03622 00032 TTR +0 02100 0 03620 03620 SXA +0 63400 2 03666 03621 TSX +0 07400 2 03666
TYPOUT.(LINE, STAR-1) 276 LM00368
03622 CLA +0 50000 0 00024 03623 SUB +0 40200 0 01501 03624 STO +0 60100 0 03706 03625 TSX +0 07400 4 00025
03626 TXH +3 00000 0 01452 03627 TXH +3 00000 0 03706
TYPOUT.(REDS, 1) 277 LM00369
03630 TSX +0 07400 4 00025 03631 TXH +3 00000 0 01466 03632 TXH +3 00000 0 01501
TYPOUT.(LINE(STAR-1), EN-STAR+1) 278 LM00370
03633 CLA +0 50000 0 00024 03634 SUB +0 40200 0 00024 03635 ADD +0 40000 0 01501 03636 STO +0 60100 0 03706
03637 CLA +0 50000 0 00024 03640 SUB +0 40200 0 01501 03641 SUB +0 40200 0 03642 03642 TXH +3 00000 0 01452
03643 STA +0 62100 0 03645 03644 TSX +0 07400 4 00025 03645 TXH +3 00000 0 00000 03646 TXH +3 00000 0 03706
TYPOUT.(BLACKS, 1) 279 LM00371
03647 TSX +0 07400 4 00025 03650 TXH +3 00000 0 00075 03651 TXH +3 00000 0 01501
TYPOUT.(LINE(EN), LENGTH-EN) 280 LM00372
03652 CLA +0 50000 0 00700 03653 SUB +0 40200 0 00024 03654 STO +0 60100 0 03706 03655 CLA +0 50000 0 00024
03656 SUB +0 40200 0 03657 03657 TXH +3 00000 0 01452 03660 STA +0 62100 0 03662 03661 TSX +0 07400 4 00025
03662 TXH +3 00000 0 00000 03663 TXH +3 00000 0 03706
FUNCTION RETURN 281 LM00373
03664 TRA +0 02000 0 03702
END OF FUNCTION 282 LM00374
03665 TSX +0 07400 4 00012 03666 TXH +3 00000 0 00000 03667 SXD -0 63400 1 03666 03670 SXA +0 63400 4 03702
03671 CLA +0 50000 4 00001 03672 STA +0 62100 0 03622 03673 STA +0 62100 0 03634 03674 STA +0 62100 0 03637
03675 CLA +0 50000 4 00002 03676 STA +0 62100 0 03633 03677 STA +0 62100 0 03653 03700 STA +0 62100 0 03655
03701 TRA +0 02000 2 00001 03702 AXT +0 77400 4 00000 03703 LXA +0 53400 2 03666 03704 LXD -0 53400 1 03666
03705 TRA +0 02000 4 00001
END OF PROGRAM 283 LM00376
03707 TSX +0 07400 4 00012
1 MAD PROGRAM LISTING ... ... ... FILE EDLVAL MAD 02/08/68 1747.7
-
.. ROUTINE TO RETURN INITIAL VALUES TO EDITOR FOR LM00001
.. EDITING ASCII FILES. LM00002
LM00003
EXTERNAL FUNCTION(BLANK, TAB, DEFALT, MCHNG, REDS, BLACKS) *001 LM00004
NORMAL MODE IS INTEGER *002 LM00005
ENTRY TO GETVAL. *003 LM00006
BLANK = 060K *004 LM00007
TAB = 072K *005 LM00008
DEFALT = $ MAD$ *006 LM00009
MCHNG = 055K *007 LM00010
REDS = 133K *008 LM00011
BLACKS = 132K *009 LM00012
FUNCTION RETURN *010 LM00013
END OF FUNCTION *011 LM00014
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00061 TRANSFER VECTOR LENGTH 00001 PROGRAM BEGINS 00012
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
GETVAL 00013 0
0FUNCTION DICTIONARY
EXIT 00000 1
0ABSOLUTE CONSTANTS
00006 +000000000132 00007 +000000000133 00003 +000000000055 00011 -206060442124 00005 +000000000072
00004 +000000000060 00002 +000000000001 00010 +233000000000
0PROGRAM
EXTERNAL FUNCTION(BLANK, TAB, DEFALT, MCHNG, REDS, BLACKS) 001 LM00004
NORMAL MODE IS INTEGER 002 LM00005
ENTRY TO GETVAL. 003 LM00006
00012 TRA +0 02000 0 00015 00013 SXA +0 63400 2 00033 00014 TSX +0 07400 2 00033
BLANK = 060K 004 LM00007
00015 CLA +0 50000 0 00004 00016 STO +0 60100 0 00024
TAB = 072K 005 LM00008
00017 CLA +0 50000 0 00005 00020 STO +0 60100 0 00024
DEFALT = $ MAD$ 006 LM00009
00021 CLA +0 50000 0 00011 00022 STO +0 60100 0 00024
MCHNG = 055K 007 LM00010
00023 CLA +0 50000 0 00003 00024 STO +0 60100 0 00024
REDS = 133K 008 LM00011
00025 CLA +0 50000 0 00007 00026 STO +0 60100 0 00024
BLACKS = 132K 009 LM00012
00027 CLA +0 50000 0 00006 00030 STO +0 60100 0 00024
FUNCTION RETURN 010 LM00013
00031 TRA +0 02000 0 00053
END OF FUNCTION 011 LM00014
00032 TSX +0 07400 4 00000 00033 TXH +3 00000 0 00000 00034 SXD -0 63400 1 00033 00035 SXA +0 63400 4 00053
00036 CLA +0 50000 4 00001 00037 STA +0 62100 0 00016 00040 CLA +0 50000 4 00002 00041 STA +0 62100 0 00020
00042 CLA +0 50000 4 00003 00043 STA +0 62100 0 00022 00044 CLA +0 50000 4 00004 00045 STA +0 62100 0 00024
00046 CLA +0 50000 4 00005 00047 STA +0 62100 0 00026 00050 CLA +0 50000 4 00006 00051 STA +0 62100 0 00030
00052 TRA +0 02000 2 00001 00053 AXT +0 77400 4 00000 00054 LXA +0 53400 2 00033 00055 LXD -0 53400 1 00033
00056 TRA +0 02000 4 00001
1 SUBROUTINES TO CONTROL CHARACTER PACKING AND UNPACKING. PAGE 1
* INPUT AND OUTPUT IS LINE-MARKED FORMAT.
* J. H. SALTZER, JANUARY, 1965
*
00010 ENTRY WRITE WRITE ONE LINE OUT.
00071 ENTRY READ TO READ NEXT LINE.
00167 ENTRY BOTTOM TO RAPIDLY MOVE TO BOTTOM OF FILE.
00062 ENTRY CLOSEW CLOSE OUT WRITE FILE.
*
EXTERN WRFLX,WRWORD,RDWORD,SETBCD,SETFUL,FILE
*
TRANSFER VECTOR
00000 665126436760 WRFLX
00001 665166465124 WRWORD
00002 512466465124 RDWORD
00003 622563222324 SETBCD
00004 622563266443 SETFUL
00005 263143256060 FILE
LINKAGE DIRECTOR
00006 000000000000
00007 665131632560
00006 NBITS EQU 6 COULD BE 6, 9, 12, OR 18.
00006 NCHRS EQU 36/NBITS NO. OF CHARACTERS PER WORD ON 7094.
*
* WRITE.(LINE, LENGTH)
*
00010 0634 00 4 00056 WRITE SXA WX4,4 SAVE LINKAGE AND REGISTERS.
00011 0634 00 2 00057 SXA WX2,2 ..
00012 0634 00 1 00060 SXA WX1,1 ..
00013 -0500 00 4 00001 CAL 1,4 GET LINE ADDRESS.
00014 0621 00 0 00035 STA INLP SET UP LOCATION OF INPUT.
00015 0500 60 4 00002 CLA* 2,4 GET CHARACTER COUNT.
00016 0100 00 4 00003 TZE 3,4 DON'T WORK ON ZERO COUNT.
00017 0402 00 0 00200 SUB =1 DISCARD CARRIAGE RETURN AT END.
00020 0100 00 4 00003 TZE 3,4 ZERO SIZE LINES NOT ALLOWED, EITHER.
00021 0767 00 0 00022 ALS 18 SET UP CHARACTER COUNT.
00022 0622 00 0 00041 STD ENDTST NCHARS = CPW*NWORDS + EXTRAS
00023 0361 00 0 00066 ACL CPWL1 CWP*NWORDS + EXTRAS + CPW - 1
00024 0131 00 0 00000 XCA (CPW*NWORDS + EXTRAS + CWP - 1)/CPW =
00025 -0754 00 0 00000 ZAC NWORDS + (EXTRAS - 1 + CPW)/CPW
00026 0221 00 0 00065 DVP CPW SECOND TERM IS 1 IF EXTRAS .G. 0,
00027 0131 00 0 00000 XCA 0 IF EXTRAS .E. 0
00030 0621 00 0 00067 STA CWD INSERT IN CONTROL WORD.
00031 0074 00 4 00001 TSX WRWORD,4 INSERT THIS WORD IN OUTPUT BUFFER.
TD 00032 3 00000 0 00067 TXH CWD ..
00033 0774 00 2 00001 AXT 1,2
00034 0774 00 1 00006 OUTLP AXT 36/NBITS,1 SET CHARACTER COUNTER.
00035 0560 00 2 00000 INLP LDQ --,2
00036 -0773 00 0 00036 RQL 36-NBITS SHIFT CHARACTER TO POSITION.
00037 -0763 00 0 00006 LGL NBITS AND INTO WORD.
00040 1 00001 2 00041 TXI *+1,2,1 COUNT INPUT CHARACTERS.
00041 3 00000 2 00052 ENDTST TXH DONE,2,-- CHECK FOR END OF INPUT.
00042 2 00001 1 00035 TIX INLP,1,1
00043 0602 00 0 00070 SLW WDOUT SAVE COMPLETED WORD.
1 SUBROUTINES TO CONTROL CHARACTER PACKING AND UNPACKING. PAGE 2
00044 0074 00 4 00001 OUT TSX WRWORD,4 STORE COMPLETED WORD.
TD 00045 3 00000 0 00070 TXH WDOUT ..
00046 0020 00 0 00034 TRA OUTLP GO BACK FOR MORE.
*
00047 0560 00 0 00063 NLLP LDQ NULL FILL IN WORD WITH NULLS.
00050 -0773 00 0 00036 RQL 36-NBITS MOVE NULL TO POSITION.
00051 -0763 00 0 00006 LGL NBITS SHIFT IN A NULL.
00052 2 00001 1 00047 DONE TIX NLLP,1,1 COUNT SPACES LEFT.
00053 0602 00 0 00070 SLW WDOUT STORE THIS WORD.
00054 0074 00 4 00001 TSX WRWORD,4 ADD TO OUTPUT BUFFER.
TD 00055 3 00000 0 00070 TXH WDOUT ..
00056 0774 00 4 00000 WX4 AXT --,4 RESTORE LINKAGE, AND IRS.
00057 0774 00 2 00000 WX2 AXT --,2 ..
00060 0774 00 1 00000 WX1 AXT --,1
00061 0020 00 4 00003 TRA 3,4 ..
*
00062 0020 00 0 00005 CLOSEW TRA FILE REFLECT CLOSE CALL TO BUFFER.
*
*
00063 +000000000057 NULL OCT 0057 NULL CHARACTER.
00064 +000000000055 RETURN OCT 0055 CARRIAGE RETURN CHARACTER.
00065 0 00006 0 00000 CPW ,,NCHRS NUMBER OF CHARACTERS PER WORD.
00066 0 00005 0 00000 CPWL1 ,,NCHRS-1 CHARACTERS PER WORD LESS ONE.
*
00067 -377777000000 CWD OCT 777777000000
00070 0 00000 0 00000 WDOUT STORAGE FOR WORD BEING OUTPUT.
*
* LENGTH = READ.(LINE, BUFSIZ, EOF)
*
00071 0634 00 1 00137 READ SXA RX1,1 READ NEXT LINE.
00072 0634 00 2 00136 SXA RX2,2
00073 0634 00 4 00134 SXA RX4,4
00074 0634 00 3 00135 SXA RX3,3
00075 -0500 00 4 00001 CAL 1,4 GET LOCATION OF BUFFER.
00076 0621 00 0 00124 STA RPUT
00077 -0500 60 4 00002 CAL* 2,4 SET UP END TEST.
00100 0402 00 0 00200 SUB =1
00101 0767 00 0 00022 ALS 18 ..
00102 0622 00 0 00125 STD BUFTST ..
00103 0074 00 4 00002 RDAGN TSX RDWORD,4 GET CONTROL WORD.
00104 0 00000 0 00141 EOF IN CASE WE ARE AT END OF FILE.
00105 -0734 00 1 00000 PDX 0,1 PUT FLAG IN IR1.
00106 0734 00 3 00000 PAX 0,3 PUT COUNT IN IR3.
00107 -2 77776 1 00146 TNX WOOPS,1,-2 CHECK FLAG.
00110 -3 00000 3 00103 TXL RDAGN,3,0 IGNORE ZERO-LENGTH LINE.
00111 0774 00 2 00000 RDON AXT 0,2 SET OUTPUT COUNTER.
00112 0074 00 4 00002 ROUTLP TSX RDWORD,4 READ A WORD.
00113 0 00000 0 00141 EOF ..
00114 0774 00 1 00006 AXT 36/NBITS,1 SET CHARACTER COUNTER.
00115 0131 00 0 00000 XCA WORD TO MQ.
00116 -0754 00 0 00000 RINLP ZAC CLEAR AC.
00117 -0763 00 0 00006 LGL NBITS GET NEXT CHARACTER.
00120 -0340 00 0 00063 LAS NULL IS THIS A NULL CHARACTER.
00121 0020 00 0 00123 TRA *+2 NO.
00122 0020 00 0 00126 TRA RCH YES, SKIP IT.
00123 1 00001 2 00124 TXI *+1,2,1 COUNT STORAGE SPACES.
1 SUBROUTINES TO CONTROL CHARACTER PACKING AND UNPACKING. PAGE 3
00124 0602 00 2 00000 RPUT SLW --,2 STORE CHARACTER IN LINE.
00125 3 00000 2 00133 BUFTST TXH PXA,2,-- TEST FOR FULL BUFFER.
00126 2 00001 1 00116 RCH TIX RINLP,1,1 INDEX, AND COUNT CHARACTERS.
00127 2 00001 3 00112 TIX ROUTLP,3,1 INDEX, AND COUNT WORDS.
00130 -0500 00 0 00064 CAL RETURN PUT RETURN AT END OF LINE.
00131 1 00001 2 00132 TXI *+1,2,1 INCLUDE IN COUNT.
00132 0522 00 0 00124 XEC RPUT INSTALL IT.
00133 0754 00 2 00000 PXA PXA 0,2 GET WORD COUNT.
00134 0774 00 4 00000 RX4 AXT --,4
00135 0774 00 3 00000 RX3 AXT --,3
00136 0774 00 2 00000 RX2 AXT --,2
00137 0774 00 1 00000 RX1 AXT --,1
00140 0020 00 4 00004 TRA 4,4
*
00141 0534 00 4 00134 EOF LXA RX4,4 END OF FILE REACHED, TAKE ERROR
00142 0534 00 3 00135 LXA RX3,3 RETURN.
00143 0534 00 2 00136 LXA RX2,2
00144 0534 00 1 00137 LXA RX1,1
00145 0020 60 4 00003 TRA* 3,4
*
*
00146 0074 00 4 00003 WOOPS TSX SETBCD,4 FILE IS NOT LINE-MARKED PROPERLY, COMPLAIN.
00147 0074 00 4 00000 TSX WRFLX,4
00150 0 00006 0 00161 MESS1,,6
00151 0074 00 4 00004 TSX SETFUL,4 RESTORE INDICATOR.
00152 0074 00 4 00002 LP TSX RDWORD,4 SEARCH FOR NEXT LINE MARK.
00153 0 00000 0 00141 EOF
00154 -0734 00 1 00000 PDX 0,1 CHECK FOR LINE MARK IN THIS WORD.
00155 -2 77776 1 00152 TNX LP,1,-2 ..
00156 0734 00 3 00000 PAX 0,3 LINE MARK OK, CHECK COUNT.
00157 -3 00000 1 00152 TXL LP,1,0 ..
00160 0020 00 0 00111 TRA RDON COUNT NON-ZERO, READ ON.
*
00161 314547646360 MESS1 BCI 6,INPUT FILE HAS IMPROPER FORMAT.
00162 263143256030
00163 216260314447
00164 514647255160
00165 264651442163
00166 336060606060
*
* ROUTINE TO SWING TO BOTTOM OF FILE.
*
00167 0634 00 4 00176 BOTTOM SXA EOFB,4 SAVE LINKAGE.
00170 0074 00 4 00002 LOOP TSX RDWORD,4 GET NEXT INPUT WORD.
00171 0 00000 0 00176 EOFB EXIT ON END OF FILE.
00172 0601 00 0 00070 STO WDOUT SAVE THIS WORD.
00173 0074 00 4 00001 TSX WRWORD,4 WRITE OUT THIS WORD.
TD 00174 3 00000 0 00070 TXH WDOUT ..
00175 0020 00 0 00170 TRA LOOP REPEAT.
*
00176 0774 00 4 00000 EOFB AXT --,4 RESTORE LINKAGE.
00177 0020 00 4 00001 TRA 1,4 RETURN.
*
END
1 SUBROUTINES TO CONTROL CHARACTER PACKING AND UNPACKING. PAGE 4
LITERALS
00200 000000000001
1 SUBROUTINES TO CONTROL CHARACTER PACKING AND UNPACKING. PAGE 1
POST PROCESSOR ASSEMBLY DATA
201 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
152 LP 155, 157
65 CPW 26
67 CWD 30, 32
141 EOF 104, 113, 153
44 OUT
133 PXA 125
126 RCH 122
137 RX1 71, 144
136 RX2 72, 143
135 RX3 74, 142
134 RX4 73, 141
60 WX1 12
57 WX2 11
56 WX4 10
52 DONE 41
176 EOFB 167, 171
5 FILE 62
35 INLP 14, 42
170 LOOP 175
47 NLLP 52
63 NULL 47, 120
111 RDON 160
71 READ 0
124 RPUT 76, 132
66 CPWL1 23
161 MESS1 150
6 NBITS 10, 34, 36, 37, 50, 51, 114, 117
6 NCHRS 10, 65, 66
34 OUTLP 46
103 RDAGN 110
116 RINLP 126
70 WDOUT 43, 45, 53, 55, 172, 174
146 WOOPS 107
0 WRFLX 147
10 WRITE 0
167 BOTTOM 0
125 BUFTST 102
62 CLOSEW 0
41 ENDTST 22
2 RDWORD 103, 112, 152, 170
64 RETURN 130
112 ROUTLP 127
3 SETBCD 146
4 SETFUL 151
1 WRWORD 31, 44, 54, 173
0 NO ERROR IN ABOVE ASSEMBLY.
1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. PAGE 1
* NOTE, INDEX REGISTERS SIX AND SEVEN MUST BE PRESERVED
* BY THE CALLING PROGRAM.
* THIS ROUTINE MAKES TYPEWRITER COMMENTS, BUT DOES NOT
* AFFECT THE BCD-FULL MODE SWITCH.
*
* J. H. SALTZER, JANUARY, 1965.
*
00015 ENTRY ASSIGN TO ASSIGN A NAME TO THE WRITE FILE.
00057 ENTRY WRWORD TO ADD A WORD TO THE FILE.
00100 ENTRY FILE TO CLOSE THE FILE.
*
00160 ENTRY SEEK TO OPEN A FILE FOR READING.
00242 ENTRY RDWORD TO GET A WORD FROM FILE.
00275 ENTRY ENDRD TO CLOSE THE FILE.
*
EXTERN GETBUF,SETBCD,SETFUL,WRFLX,WRFLXA
EXTERN OPEN,WRWAIT,RDWAIT,CLOSE,FSTATE,BUFFER
*
* ASSIGN.($NAME1$,$NAME2$)
*
TRANSFER VECTOR
00000 272563226426 GETBUF
00001 622563222324 SETBCD
00002 622563266443 SETFUL
00003 665126436760 WRFLX
00004 665126436721 WRFLXA
00005 464725456060 OPEN
00006 665166213163 WRWAIT
00007 512466213163 RDWAIT
00010 234346622560 CLOSE
00011 266263216325 FSTATE
00012 226426262551 BUFFER
LINKAGE DIRECTOR
00013 000000000000
00014 216262312745
00015 -0500 60 4 00001 ASSIGN CAL* 1,4 OPEN FILE, GET FILE NAME.
00016 0602 00 0 00304 SLW OUTNAM ..
00017 -0500 60 4 00002 CAL* 2,4 ..
00020 0602 00 0 00305 SLW OUTNAM+1 ..
00021 0634 00 4 00041 SXA OPX4,4 SAVE LINKAGE.
00022 0020 00 0 00023 OSW TRA *+1 ENTER ONE-TIME SECTION TO GET BUFFERS.
* *******************
00023 -0500 00 0 00315 CAL WBFSZ GET AN OUTPUT BUFFER FROM SUPERVISOR.
00024 0074 00 4 00000 TSX GETBUF,4 ..
00025 0621 00 0 00071 STA WCALL SAVE LOCATION OF BUFFER.
00026 0621 00 0 00113 STA CLCALL TO CLOSE OUT FILE.
00027 0361 00 0 00315 ACL WBFSZ ADD LENGTH, TO FORM END ADDRESS.
00030 0621 00 0 00060 STA WRNM INSERT IN INSERTER.
00031 -0500 00 0 00313 CAL TRKSZ GET A DISK TRACK BUFFER.
00032 0074 00 4 00000 TSX GETBUF,4 ..
00033 0621 00 0 00055 STA BFCALL SET UP BUFFER CALLER.
00034 -0625 00 0 00022 STL OSW RESET ONE-TIME SWITCH.
* *******************
1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. PAGE 2
00035 0774 00 4 00040 AXT OPOK,4 SET QUOTA EXHAUSTED ERROR RETURN.
00036 0634 00 4 00143 SXA WRTN,4 ..
00037 0074 00 3 00043 TSX OPN,3 OPEN THE FILE.
00040 0774 00 7 00330 OPOK AXT WBFLTH,7 SET UP STORAGE COUNT.
00041 0774 00 4 00000 OPX4 AXT --,4 RESTORE LINKAGE.
00042 0020 00 4 00003 TRA 3,4 RETURN.
*
00043 0074 00 4 00005 OPN TSX OPEN,4 OPEN FILE.
TD 00044 3 00000 0 00324 TXH =HW FOR WRITING.
TD 00045 3 00000 0 00304 TXH OUTNAM ..
TD 00046 3 00000 0 00305 TXH OUTNAM+1 ..
TD 00047 3 00000 0 00156 TXH MODE MAKE IT PERMANENT IF POSSIBLE.
TD 00050 3 00000 0 00320 TXH =2 PUT IT ON THE DISK.
TD 00051 3 00000 0 00127 OPERR TXH OEXH IN CASE NO MORE QUOTA AVAILABLE.
00052 0074 00 4 00012 TSX BUFFER,4 ASSIGN A BUFFER FOR THE FILE.
TD 00053 3 00000 0 00304 TXH OUTNAM ..
TD 00054 3 00000 0 00305 TXH OUTNAM+1 ..
00055 3 00660 0 00000 BFCALL TXH --,,TRKLTH ..
00056 0020 00 3 00001 TRA 1,3 RETURN TO CALLER.
*
*
* ENTRY TO ADD A WORD TO FILE.
* WRWORD.(WORD)
*
00057 -0500 60 4 00001 WRWORD CAL* 1,4 GET WORD TO BE ADDED.
00060 0602 00 7 00000 WRNM SLW --,7 ADD WORD TO OUTPUT BUFFER.
00061 2 00001 7 00077 TIX RETURN,7,1 COUNT AND CHECK FOR FULL BUFFER.
00062 0634 00 4 00076 FULL SXA FULX4,4 BUFFER FULL, WRITE IT OUT.
00063 0774 00 4 00065 AXT WRAGN,4 SET UP EXHAUSTED RETURN ADDRESS.
00064 0634 00 4 00143 SXA WRTN,4 ..
00065 0074 00 4 00006 WRAGN TSX WRWAIT,4 GIVE BUFFER TO SUPERVISOR.
TD 00066 3 00000 0 00304 TXH OUTNAM ..
TD 00067 3 00000 0 00305 TXH OUTNAM+1 ..
TD 00070 3 00000 0 00316 TXH =0 ..
00071 3 00330 0 00000 WCALL TXH --,,WBFLTH ..
TD 00072 3 00000 0 00321 TXH =-0 IGNORE POSSIBLE EOF.
TD 00073 3 00000 0 00321 TXH =-0 ..
TD 00074 3 00000 0 00124 WRERR TXH WEXH ALLOW ERROR RETURN.
00075 0774 00 7 00330 AXT WBFLTH,7 RESET BUFFER POINTER.
00076 0774 00 4 00000 FULX4 AXT --,4 RESTORE LINKAGE.
00077 0020 00 4 00002 RETURN TRA 2,4 RETURN TO CALLER.
*
* FILE. NO ARGUMENTS.
*
00100 0634 00 4 00122 FILE SXA CL4,4 ENTRY TO CLOSE OUT FILE.
00101 -0634 00 7 00103 SXD *+2,7 FORM COUNT OF WORDS SINCE
00102 0774 00 7 00330 AXT WBFLTH,7 LAST BUFFER WAS WRITTEN.
00103 -2 00000 7 00117 TNX NOWR,7,-- IF ZERO, SKIP FINAL WRITE CALL.
00104 -0634 00 7 00113 SXD CLCALL,7 NON-ZERO, SET UP WRITE CALL.
00105 0774 00 4 00107 AXT FWR,4 SET UP RETURN ADDRESS FOR EXHAUSTED CASE.
00106 0634 00 4 00143 SXA WRTN,4 ..
00107 0074 00 4 00006 FWR TSX WRWAIT,4 WRITE OUT PARTIAL BUFFER.
TD 00110 3 00000 0 00304 TXH OUTNAM ..
TD 00111 3 00000 0 00305 TXH OUTNAM+1 ..
TD 00112 3 00000 0 00316 TXH =0 ..
00113 3 00000 0 00000 CLCALL TXH --,,-- ..
1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. PAGE 3
TD 00114 3 00000 0 00321 TXH =-0 IGNORE EOF RETURN.
TD 00115 3 00000 0 00321 TXH =-0 ..
TD 00116 3 00000 0 00124 TXH WEXH ALLOW ERROR RETURN.
00117 0074 00 4 00010 NOWR TSX CLOSE,4 CLOSE OUT THE FILE.
TD 00120 3 00000 0 00304 TXH OUTNAM ..
TD 00121 3 00000 0 00305 TXH OUTNAM+1 ..
00122 0774 00 4 00000 CL4 AXT --,4 RESTORE LINKAGE.
00123 0020 00 4 00001 TRA 1,4 ..
*
00124 0074 00 4 00010 WEXH TSX CLOSE,4 TRACK QUOTA EXHAUSTED, CLOSE FILE.
TD 00125 3 00000 0 00304 TXH OUTNAM ..
TD 00126 3 00000 0 00305 TXH OUTNAM+1 ..
00127 0074 00 4 00001 OEXH TSX SETBCD,4 ENTRY FROM OPEN ERROR, COMMENT.
00130 0601 00 0 00157 STO MODSW SAVE OLD CHARACTER MODE SETTING.
00131 0074 00 4 00003 TSX WRFLX,4 ..
00132 0 00011 0 00144 ERMESS,,9
00133 0520 00 0 00157 ZET MODSW SHOULD 12-BIT INDICATOR BE RESET.
00134 0074 00 4 00002 TSX SETFUL,4 YES, RESET INDICATOR.
00135 -0500 00 0 00317 CAL =1 SWITCH TO TEMPORARY MODE.
00136 0601 00 0 00156 STO MODE ..
00137 -0500 00 0 00155 CAL NOP BLOCK FUTURE ERROR RETURN.
00140 0602 00 0 00051 SLW OPERR ..
00141 0602 00 0 00074 SLW WRERR
00142 0074 00 3 00043 TSX OPN,3 NOW, OPEN IT AGAIN.
00143 0020 00 0 00000 WRTN TRA -- ALL FIXED, RETURN TO MAIN STREAM.
*
00144 635121234260 ERMESS BCI 9,TRACK QUOTA EXHAUSTED, TEMPORARY MODE WILL BE USED.
00145 506446632160
00146 256730216462
00147 632524736063
00150 254447465121
00151 517060444624
00152 256066314343
00153 602225606462
00154 252433606060
00155 0761 00 0 00000 NOP NOP INSTRUCTION TO BLOCK ERROR RETURN.
00156 0 00000 0 00000 MODE 0 START IN PERMANENT MODE.
00157 0 00000 0 00000 MODSW TEMP STORAGE FOR 6-BIT,12-BIT INDICATOR.
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* SEEK.($NAME1$, $NAME2$, ERRET)
* ERROR RETURN MEANS FILE NOT FOUND.
*
00160 -0500 60 4 00001 SEEK CAL* 1,4 GET FILE NAME.
00161 0602 00 0 00306 SLW INNAM ..
00162 -0500 60 4 00002 CAL* 2,4 ..
00163 0602 00 0 00307 SLW INNAM+1 ..
00164 0634 00 4 00222 SXA SKX4,4 SAVE LINKAGE.
00165 0020 00 0 00166 SKSW TRA *+1 ENTER ONE-TIME SECTION TO GET BUFFERS.
* *********************
00166 -0500 00 0 00314 CAL RBFSZ GET A BUFFER FROM SUPERVISOR.
00167 0074 00 4 00000 TSX GETBUF,4 ..
00170 0621 00 0 00257 STA ECALL STORE BUFFER LOCATION.
00171 0621 00 0 00217 STA STCALL ..
00172 -0625 00 0 00165 STL SKSW RESET ONE-TIME SWITCH.
* *********************
1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. PAGE 4
00173 -0500 00 0 00217 CAL STCALL SET UP PICKUP INSTRUCTION FOR INDEXING.
00174 0361 00 0 00314 ACL RBFSZ ..
00175 0621 00 0 00242 STA RDWORD ..
00176 0074 00 4 00011 TSX FSTATE,4 MAKE SURE FILE IS THERE.
TD 00177 3 00000 0 00306 TXH INNAM ..
TD 00200 3 00000 0 00307 TXH INNAM+1 ..
TD 00201 3 00000 0 00321 TXH =-0 DON'T WANT DATA.
TD 00202 3 00000 0 00224 TXH NOTFN ERROR RETURN MEANS FILE NOT THERE.
00203 0074 00 4 00005 TSX OPEN,4 OPEN THE FILE FOR READING.
TD 00204 3 00000 0 00322 TXH =HR ..
TD 00205 3 00000 0 00306 TXH INNAM ..
TD 00206 3 00000 0 00307 TXH INNAM+1 ..
00207 0774 00 6 00660 AXT RBFLTH,6 SET UP BUFFER COUNTER.
00210 0774 00 4 00222 AXT SKX4,4 SET END OF FILE RETURN.
00211 0634 00 4 00274 SXA EOFRTN,4 ..
00212 0600 00 0 00312 STZ EOFR CLEAR END OF FILE SWITCH.
00213 0074 00 4 00007 TSX RDWAIT,4 GET INITIAL BUFFER LOAD.
TD 00214 3 00000 0 00306 TXH INNAM ..
TD 00215 3 00000 0 00307 TXH INNAM+1 ..
TD 00216 3 00000 0 00316 TXH =0 ..
00217 3 00660 0 00000 STCALL TXH --,,RBFLTH ..
TD 00220 3 00000 0 00265 TXH EOF END OF FILE RETURN.
TD 00221 3 00000 0 00311 TXH EOFCT ..
00222 0774 00 4 00000 SKX4 AXT --,4 RESTORE LINKAGE.
00223 0020 00 4 00004 TRA 4,4 RETURN TO CALLER.
*
00224 0074 00 4 00001 NOTFN TSX SETBCD,4 FILE NOT FOUND, COMMENT.
00225 0601 00 0 00157 STO MODSW SAVE OLD CHARACTER MODE SETTING.
00226 0074 00 4 00004 TSX WRFLXA,4 START UP COMMENT.
00227 0 00001 0 00323 =H FILE ,,1 ..
00230 0074 00 4 00004 TSX WRFLXA,4 INSERT FILE NAME.
00231 0 00002 0 00306 INNAM,,2 ..
00232 0074 00 4 00003 TSX WRFLX,4 END OF COMMENT.
00233 0 00002 0 00240 ECM,,2 ..
00234 0520 00 0 00157 ZET MODSW SHOULD 12-BIT INDICATOR BE RESET.
00235 0074 00 4 00002 TSX SETFUL,4 YES, RESET MODE.
00236 0534 00 4 00222 LXA SKX4,4 GIVE ERROR RETURN.
00237 0020 60 4 00003 TRA* 3,4 ..
*
00240 604546636026 ECM BCI 2, NOT FOUND.
00241 466445243360
*
* ENTRY TO OBTAIN WORD FROM FILE.
* WORD = RDWORD.(EOF)
*
00242 0500 00 6 00000 RDWORD CLA --,6 GET WORD FROM INPUT BUFFER.
00243 2 00001 6 00264 TIX GOBACK,6,1 INDEX, AND CHECK FOR EMPTY BUFFER.
00244 0520 00 0 00312 ZET EOFR BUFFER EMPTY, HAS END OF FILE OCCURRED.
00245 0020 60 4 00001 TRA* 1,4 YES, GIVE EOF RETURN.
00246 0601 00 0 00310 STO RTEMP NO, SAVE WORD AND GET SOME MORE DATA.
00247 0634 00 4 00263 SXA EMPX4,4 SAVE LINKAGE, ALSO.
00250 0774 00 6 00660 AXT RBFLTH,6 RESET BUFFER POINTER.
00251 0774 00 4 00262 AXT EMPGT,4 SET END OF FILE RETURN.
00252 0634 00 4 00274 SXA EOFRTN,4 ..
00253 0074 00 4 00007 TSX RDWAIT,4 GET ANOTHER BUFFER LOAD OF DATA.
TD 00254 3 00000 0 00306 TXH INNAM ..
1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. PAGE 5
TD 00255 3 00000 0 00307 TXH INNAM+1 ..
TD 00256 3 00000 0 00316 TXH =0 ..
00257 3 00660 0 00000 ECALL TXH --,,RBFLTH ..
TD 00260 3 00000 0 00265 TXH EOF ..
TD 00261 3 00000 0 00311 TXH EOFCT ..
00262 0500 00 0 00310 EMPGT CLA RTEMP RESTORE WORD FOR THIS CALL.
00263 0774 00 4 00000 EMPX4 AXT --,4 RESTORE LINKAGE.
00264 0020 00 4 00002 GOBACK TRA 2,4 RETURN TO CALLER.
*
00265 -0625 00 0 00312 EOF STL EOFR END OF FILE REACHED, SET SWITCH.
00266 -0500 00 0 00311 CAL EOFCT GET COUNT OF WORDS LEFT.
00267 0361 00 0 00317 ACL =1 BUGGER WORD COUNT.
00270 0734 00 6 00000 PAX 0,6 SET WORD COUNTER.
00271 0361 00 0 00257 ACL ECALL ADJUST PICKUP INSTRUCTION.
00272 0621 00 0 00242 STA RDWORD ..
00273 0074 00 4 00275 TSX ENDRD,4 TURN OFF FILE.
00274 0020 00 0 00000 EOFRTN TRA -- RETURN TO END OF RDFILE CALLING SEQUENCE.
*
* ENTRY TO CLOSE INPUT FILE.
* ENDRD.
*
00275 0634 00 4 00302 ENDRD SXA ENDX4,4 SAVE LINKAGE.
00276 0074 00 4 00010 TSX CLOSE,4 CLOSE FILE.
TD 00277 3 00000 0 00306 TXH INNAM ..
TD 00300 3 00000 0 00307 TXH INNAM+1 ..
TD 00301 3 00000 0 00302 TXH *+1 IGNORE ANY ERROR RETURN.
00302 0774 00 4 00000 ENDX4 AXT --,4 RESTORE LINKAGE.
00303 0020 00 4 00001 TRA 1,4 ..
*
00304 545454545454 OUTNAM BCI 2,************ NAME OF OUTPUT FILE.
00305 545454545454
00306 545454545454 INNAM BCI 2,************ NAME OF INPUT FILE.
00307 545454545454
00310 0 00000 0 00000 RTEMP STORAGE FOR WORD.
00311 0 00000 0 00000 EOFCT STORAGE FOR END OF FILE COUNTER.
00312 0 00000 0 00312 EOFR * SWITCH FOR END OF FILE MET.
*
00660 TRKLTH EQU 432 DISK TRACK LENGTH.
00313 0 00000 0 00660 TRKSZ TRKLTH WORD CONTAINING TRACK LENGTH.
00660 RBFLTH EQU TRKLTH READ BUFFER LENGTH.
00330 WBFLTH EQU TRKLTH/2 WRITE BUFFER LENGTH.
00314 0 00000 0 00660 RBFSZ RBFLTH WORD CONTAINING READ BUFFER SIZE.
00315 0 00000 0 00330 WBFSZ WBFLTH WORD CONTAINING WRITE BUFFER SIZE.
*
END
LITERALS
00316 000000000000
00317 000000000001
00320 000000000002
00321 400000000000
00322 516060606060
00323 602631432560
00324 666060606060
1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. PAGE 1
POST PROCESSOR ASSEMBLY DATA
325 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
122 CL4 100
240 ECM 233
265 EOF 220, 260
107 FWR 105
155 NOP 137
43 OPN 37, 142
22 OSW 34
312 EOFR 212, 244, 265
100 FILE 0
62 FULL
156 MODE 47, 136
117 NOWR 103
127 OEXH 51
5 OPEN 43, 203
40 OPOK 35
41 OPX4 21
160 SEEK 0
165 SKSW 172
222 SKX4 164, 210, 236
124 WEXH 74, 116
60 WRNM 30
143 WRTN 36, 64, 106
10 CLOSE 117, 124, 276
257 ECALL 170, 271
262 EMPGT 251
263 EMPX4 247
275 ENDRD 0, 273
302 ENDX4 275
311 EOFCT 221, 261, 266
76 FULX4 62
306 INNAM 161, 163, 177, 200, 205, 206, 214, 215, 231, 254, 255, 277, 300
157 MODSW 130, 133, 225, 234
224 NOTFN 202
51 OPERR 140
314 RBFSZ 166, 174
310 RTEMP 246, 262
313 TRKSZ 31
315 WBFSZ 23, 27
71 WCALL 25
65 WRAGN 63
74 WRERR 141
3 WRFLX 131, 232
15 ASSIGN 0
55 BFCALL 33
12 BUFFER 52
113 CLCALL 26, 104
274 EOFRTN 211, 252
144 ERMESS 132
11 FSTATE 176
0 GETBUF 24, 32, 167
264 GOBACK 243
1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. PAGE 2
POST PROCESSOR ASSEMBLY DATA
304 OUTNAM 16, 20, 45, 46, 53, 54, 66, 67, 110, 111, 120, 121, 125, 126
660 RBFLTH 207, 217, 250, 257, 314
7 RDWAIT 213, 253
242 RDWORD 0, 175, 272
77 RETURN 61
1 SETBCD 127, 224
2 SETFUL 134, 235
217 STCALL 171, 173
660 TRKLTH 55, 313, 314
330 WBFLTH 40, 71, 75, 102, 314, 315
4 WRFLXA 226, 230
6 WRWAIT 65, 107
57 WRWORD 0
0 NO ERROR IN ABOVE ASSEMBLY.
1 ROUTINE TO MAKE SURE FILE NAME IS USEABLE. PAGE 1
* USAGE CLRNAM.(NAME1, NAME2, CANT, SW)
* FILE NAME1 NAME2 WILL BE CHECKED FOR AND
* DELETED IF POSSIBLE. IF SW
* IS TRUE, USER WILL BE ASKED BEFORE DELETING
* THE OLD FILE.
*
00012 ENTRY CLRNAM CLEAR FILE NAME.
*
EXTERN SETFUL,SETBCD,WRFLX,WRFLXA,RDFLXA
EXTERN FSTATE,CHFILE,DELFIL
*
TRANSFER VECTOR
00000 622563266443 SETFUL
00001 622563222324 SETBCD
00002 665126436760 WRFLX
00003 665126436721 WRFLXA
00004 512426436721 RDFLXA
00005 266263216325 FSTATE
00006 233026314325 CHFILE
00007 242543263143 DELFIL
LINKAGE DIRECTOR
00010 000000000000
00011 234351452144
00012 -0500 60 4 00001 CLRNAM CAL* 1,4 GET FILE NAME.
00013 0602 00 0 00121 SLW N1 ..
00014 -0500 60 4 00002 CAL* 2,4 SECONDARY NAME.
00015 0602 00 0 00122 SLW N2 ..
00016 0634 00 4 00147 SXA SV4,4 SAVE LINKAGE.
00017 0074 00 4 00005 TSX FSTATE,4 CHECK STATE OF FILE.
TD 00020 3 00000 0 00121 TXH N1 NAME
TD 00021 3 00000 0 00122 TXH N2 NAME
00022 3 00010 0 00156 TXH DATA,,8 FILE STATE
TD 00023 3 00000 0 00112 TXH FSTERR IN CASE OF ERROR
TD 00024 3 00000 0 00155 TXH ERNO GATHER ERROR NUMBER.
00025 0441 00 0 00157 LDI MODE CHECK MODE OF FILE.
00026 -0054 00 400000 LFT 400000 IS MODE NEGATIVE.
00027 0020 00 0 00100 TRA LINKED YES, FILE IS LINKED.
00030 0600 00 0 00154 STZ PROTEC ASSUME NOT PROTECTED.
00031 0056 00 000100 RNT 100 CHECK PROTECTED BIT.
00032 0020 00 0 00035 TRA CKASK NOT PROTECTED, SHOULD WE ASK ANYWAY.
00033 -0625 00 0 00154 STL PROTEC PROTECTED, SET SWITCH FOR LONG COMMENT.
00034 0020 00 0 00040 TRA ASK GO ASK PERMISSION TO DELETE FILE.
00035 0534 00 4 00147 CKASK LXA SV4,4 GET LINKAGE TO ASK SWITCH.
00036 -0520 60 4 00004 NZT* 4,4 SHOULD WE ASK PERMISSION ANYWAY.
00037 0020 00 0 00065 TRA DELETE NO, GO DELETE FILE.
00040 0074 00 4 00000 ASK TSX SETFUL,4 SET CHARACTER MODE SWITCH.
00041 0074 00 4 00003 TSX WRFLXA,4 BEGIN THE COMMENT.
00042 0 00003 0 00116 MI,,3 ..
00043 0074 00 4 00001 TSX SETBCD,4 SWITCH TO BCD FOR FILE NAME.
00044 0074 00 4 00003 TSX WRFLXA,4 WRITE OUT FILE NAME.
00045 0 00002 0 00121 N1,,2
00046 0074 00 4 00000 TSX SETFUL,4 BACK TO FULL MODE.
00047 -0520 00 0 00154 NZT PROTEC SHOULD WE CLAIM IT IS PROTECTED.
1 ROUTINE TO MAKE SURE FILE NAME IS USEABLE. PAGE 2
00050 0020 00 0 00053 TRA SKPPCM NO, SKIP THAT PART.
00051 0074 00 4 00003 TSX WRFLXA,4 YES, ANNOUNC PROTECTED PART.
00052 0 00006 0 00123 ISPTC,,6 ..
00053 0074 00 4 00003 SKPPCM TSX WRFLXA,4 NOW ASK FOR PERMISSION.
00054 0 00012 0 00131 DOYOU,,10 ..
00055 0074 00 4 00001 TSX SETBCD,4 SWITCH SO ERASE WORKS.
00056 0074 00 4 00004 TSX RDFLXA,4
00057 0 00001 0 00150 IN,,1 GET ONE WORD.
00060 0074 00 4 00000 TSX SETFUL,4 RESTORE MODE.
00061 -0500 00 0 00150 CAL IN GET THAT WORD.
00062 0771 00 0 00022 ARS 18 GET FIRST THREE CHARACTERS.
00063 0322 00 0 00170 ERA =H000YES DID HE SAY YES.
00064 -0100 00 0 00076 TNZ ERTN NO, GIVE ERROR RETURN.
00065 0074 00 4 00006 DELETE TSX CHFILE,4 GOODY, WE CAN DELETE IT.
TD 00066 3 00000 0 00121 TXH N1 MAKE SURE IT IS DELETEABLE.
TD 00067 3 00000 0 00122 TXH N2 ..
TD 00070 3 00000 0 00166 TXH =1 BY CHANGING ITS MODE TO TEMPORARY.
00071 0074 00 4 00007 TSX DELFIL,4 DELETE THE SILLY THING.
TD 00072 3 00000 0 00121 TXH N1 ..
TD 00073 3 00000 0 00122 TXH N2 ..
00074 0534 00 4 00147 RTN LXA SV4,4 RESTORE THE LINKAGE.
00075 0020 00 4 00005 TRA 5,4 RETURN TO CALLER.
*
00076 0534 00 4 00147 ERTN LXA SV4,4 ERROR RETURN, FILE CANNOT BE DELETED.
00077 0020 60 4 00003 TRA* 3,4 RETURN THROUGH ERROR RETURN.
*
00100 0074 00 4 00000 LINKED TSX SETFUL,4 FILE IS LINKED, COMMENT AND GIVE UP.
00101 0074 00 4 00003 TSX WRFLXA,4 START THE COMMENT.
00102 0 00003 0 00116 MI,,3 ..
00103 0074 00 4 00001 TSX SETBCD,4 SWITCH MODE FOR FILE NAME.
00104 0074 00 4 00003 TSX WRFLXA,4 TYPE FILE NAME.
00105 0 00002 0 00121 N1,,2 ..
00106 0074 00 4 00000 TSX SETFUL,4 SWITCH FOR REST OF COMMENT.
00107 0074 00 4 00002 TSX WRFLX,4 END THIS PART WITH A C.R.
00110 0 00004 0 00143 ISLNK,,4 ..
00111 0020 00 0 00076 TRA ERTN NOW GIVE AN ERROR RETURN.
*
00112 0500 00 0 00155 FSTERR CLA ERNO ERROR RETURN FROM FSTATE, FIND OUT WHY.
00113 0402 00 0 00167 SUB =3 RETURN 3 MEANS FILE NOT FOUND.
00114 -0100 00 0 00100 TNZ LINKED WRONG ERROR RETURN, ASSUME LINKED.
00115 0020 00 0 00074 TRA RTN FILE NOT FOUND, NAME IS OK.
*
* DATA, COMMENTS, ETC.
*
00116 004601430124 MI BCI 3,0O1L1D0 1F1I1L1E0
00117 006001260131
00120 014301250060
*
00121 0 00000 0 00000 N1 STORAGE FOR FILE NAME.
00122 0 00000 0 00000 N2 SECONDARY NAME.
*
00123 006001310162 ISPTC BCI 1,0 1I1S
00124 +006001330057 OCT 006001330057 BLANK, RED SHIFT, NULL.
00125 004700510046 BCI 3,0P0R0O0T0E0C0T0E0D
00126 006300250023
00127 006300250024
1 ROUTINE TO MAKE SURE FILE NAME IS USEABLE. PAGE 3
00130 +013200330060 OCT 013200330060 BLACK SHIFT, PERIOD, BLANK.
00131 006000400040 DOYOU BCI 9,0 0-0-0D1O0 1Y1O1U0 1W1I1S1H0 1T1O0 1D1E1L1E1T1E0 1I1T
00132 002401460060
00133 017001460164
00134 006001660131
00135 016201300060
00136 016301460060
00137 012401250143
00140 012501630125
00141 006001310163
00142 +015600600060 OCT 015600600060 TERMINAL QUESTION MARK.
*
00143 006001310162 ISLNK BCI 4,0 1I1S0 1L1I1N1K1E1D0.
00144 006001430131
00145 014501420125
00146 012400336060
*
00147 0 00000 0 00000 SV4 STORAGE FOR CALLING LINKAGE.
00150 IN BSS 4 FOR INPUT WORD.
00154 0 00000 0 00000 PROTEC SWITCH FOR PROTECTED FILE.
00155 0 00000 0 00000 ERNO STORAGE FOR ERROR NUMBER.
00156 DATA BSS 8 FOR STATE INFORMATION.
00161 DEVICE EQU DATA+3
00157 MODE EQU DATA+1
*
END
LITERALS
00166 000000000001
00167 000000000003
00170 000000702562
1 ROUTINE TO MAKE SURE FILE NAME IS USEABLE. PAGE 1
POST PROCESSOR ASSEMBLY DATA
171 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
150 IN 57, 61
116 MI 42, 102
121 N1 13, 20, 45, 66, 72, 105
122 N2 15, 21, 67, 73
40 ASK 34
74 RTN 115
147 SV4 16, 35, 74, 76
156 DATA 22, 166
155 ERNO 24, 112
76 ERTN 64, 111
157 MODE 25, 166
35 CKASK 32
131 DOYOU 54
143 ISLNK 110
123 ISPTC 52
2 WRFLX 107
6 CHFILE 65
12 CLRNAM 0
65 DELETE 37
7 DELFIL 71
161 DEVICE 166
5 FSTATE 17
112 FSTERR 23
100 LINKED 27, 114
154 PROTEC 30, 33, 47
4 RDFLXA 56
1 SETBCD 43, 55, 103
0 SETFUL 40, 46, 60, 100, 106
53 SKPPCM 50
3 WRFLXA 41, 44, 51, 53, 101, 104
0 NO ERROR IN ABOVE ASSEMBLY.
1 ROUTINE TO RENAME A FILE, FORCING PERMANENT MODE IS POSSIBLE. PAGE 1
* J. H. SALTZER, MAY, 1965.
*
00004 ENTRY RENAME RENAME FILE.
*
EXTERN CHFILE,WRFLX
*
TRANSFER VECTOR
00000 233026314325 CHFILE
00001 665126436760 WRFLX
LINKAGE DIRECTOR
00002 000000000000
00003 512545214425
00004 0500 60 4 00001 RENAME CLA* 1,4 GET FILE NAMES.
00005 0601 00 0 00071 STO OLD1 ..
00006 0500 60 4 00002 CLA* 2,4 ..
00007 0601 00 0 00072 STO OLD2 ..
00010 0601 00 0 00074 STO NEW2 ASSUME NO CHANGE IN SECONDARY NAMES.
00011 0500 60 4 00003 CLA* 3,4 ..
00012 0601 00 0 00073 STO NEW1 ..
00013 0560 00 4 00004 LDQ 4,4 CHECK FOR TXH
00014 0500 00 0 00076 CLA =O300000000000 ..
00015 0040 00 0 00020 TLQ SKPN2 NO TXH, SECONDARY NAME UNCHANGED.
00016 0500 60 4 00004 CLA* 4,4 TXH, CHANGE SECONDARY NAME.
00017 0601 00 0 00074 STO NEW2 ..
00020 0634 00 4 00036 SKPN2 SXA RETURN,4 SAVE LINKAGE.
00021 0074 00 4 00000 TSX CHFILE,4 CHANGE NAME WITHOUT CHANGING MODE.
TD 00022 3 00000 0 00071 TXH OLD1 ..
TD 00023 3 00000 0 00072 TXH OLD2 ..
TD 00024 3 00000 0 00077 TXH =-0 MODE UNCHANGED.
TD 00025 3 00000 0 00073 TXH NEW1 ..
TD 00026 3 00000 0 00074 TXH NEW2 ..
00027 0074 00 4 00000 TSX CHFILE,4 CHANGE MODE WITHOUT CHANGING NAME.
TD 00030 3 00000 0 00073 TXH NEW1 ..
TD 00031 3 00000 0 00074 TXH NEW2 ..
TD 00032 3 00000 0 00075 TXH =0 PERMANENT MODE.
TD 00033 3 00000 0 00077 TXH =-0 NAME UNCHANGED.
TD 00034 3 00000 0 00077 TXH =-0 ..
TD 00035 3 00000 0 00040 TXH CHERR IN CASE MODE UNCHANGEABLE.
00036 0774 00 4 00000 RETURN AXT --,4 RESTORE LINKAGE.
00037 0020 00 4 00001 TRA 1,4 RETURN TO CALLER.
*
00040 0074 00 4 00001 CHERR TSX WRFLX,4 ASSUME TRACK QUOTA EXHAUSTED, AND COMMENT.
00041 0 00010 0 00045 TRKQUO,,8 ..
00042 0074 00 4 00001 TSX WRFLX,4 MENTION THAT NEW FILE IS TEMP MODE.
00043 0 00013 0 00055 TMPMOD,,11 ....
00044 0020 00 0 00036 TRA RETURN EXIT.
*
* COMMENTS AND STORAGE.
*
00045 006301510121 TRKQUO BCI 8,0T1R1A1C1K0 1Q1U1O1T1A0 0E0X0H0A0U0S0T0E0D0.
00046 012301420060
00047 015001640146
00050 016301210060
1 ROUTINE TO RENAME A FILE, FORCING PERMANENT MODE IS POSSIBLE. PAGE 2
00051 002500670030
00052 002100640062
00053 006300250024
00054 003360606060
*
00055 007001460164 TMPMOD BCI 5,0Y1O1U1R0 1N1E1W0 1F1I1L1E0 1I
00056 015100600145
00057 012501660060
00060 012601310143
00061 012500600131
00062 +016200600133 OCT 016200600133 S, BLANK, RED SHIFT.
00063 006300250044 BCI 3,0T0E0M0P0O0R0A0R0Y
00064 004700460051
00065 002100510070
00066 +013200600144 OCT 013200600144 BLACK SHIFT, BLANK, SMALL M.
00067 014601240125 BCI 2,1O1D1E0.
00070 003360606060
*
00071 0 00000 0 00000 OLD1
00072 0 00000 0 00000 OLD2
00073 0 00000 0 00000 NEW1
00074 0 00000 0 00000 NEW2
*
END
LITERALS
00075 000000000000
00076 300000000000
00077 400000000000
1 ROUTINE TO RENAME A FILE, FORCING PERMANENT MODE IS POSSIBLE. PAGE 1
POST PROCESSOR ASSEMBLY DATA
100 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
73 NEW1 12, 25, 30
74 NEW2 10, 17, 26, 31
71 OLD1 5, 22
72 OLD2 7, 23
40 CHERR 35
20 SKPN2 15
1 WRFLX 40, 42
0 CHFILE 21, 27
4 RENAME 0
36 RETURN 20, 44
55 TMPMOD 43
45 TRKQUO 41
0 NO ERROR IN ABOVE ASSEMBLY.
1 MAD PROGRAM LISTING ... ... ... FILE 6TYP MAD 02/08/68 1745.8
-
.. TYPEWRITER INPUT CHARACTER CONTROL ROUTINE. LM00001
.. USAGE. . . COUNT = TYPEIN.(BUFFER, BUFSIZ, ERASE, KILL) LM00002
J. H. SALTZER, JANUARY, 1965. LM00003
LM00004
EXTERNAL FUNCTION(LINE, BUFSIZ) *001 LM00005
LM00006
NORMAL MODE IS INTEGER *002 LM00007
VECTOR VALUES E1 = 0137K *003 LM00008
VECTOR VALUES K1 = 0156K *004 LM00009
VECTOR VALUES NBITS = 12 *005 LM00010
VECTOR VALUES NULL = 0057K *006 LM00011
VECTOR VALUES ERASE = 0504K *007 LM00012
VECTOR VALUES KILL = 0506K *008 LM00013
VECTOR VALUES RETURN = 0055K *009 LM00014
VECTOR VALUES WRDSIZ = 36 *010 LM00015
VECTOR VALUES CHMASK = 7777K *011 LM00016
LM00017
ENTRY TO SETERS. *012 LM00018
ERASE = LINE *013 LM00019
FUNCTION RETURN *014 LM00020
LM00021
ENTRY TO SETKIL. *015 LM00022
KILL = LINE *016 LM00023
FUNCTION RETURN *017 LM00024
LM00025
ENTRY TO CANON. *018 LM00026
FUNCTION RETURN *019 LM00027
LM00028
ENTRY TO TYPEIN. *020 LM00029
SIZE = 0 *021 LM00030
TYLINE. *022 LM00031
LOOP WORD = TYWORD.(0) *023 LM00032
THROUGH DISECT, FOR I = WRDSIZ-NBITS,-NBITS, I .L. 0 *024 LM00033
CHAR = (WORD.RS.I) .A. CHMASK *025 LM00034
WHENEVER CHAR .E. ERASE .OR. CHAR .E. E1 *026 LM00035
WHENEVER SIZE .G. 0, SIZE = SIZE - 1 *027 LM00036
OR WHENEVER CHAR .E. KILL .OR. CHAR .E. K1 *028 LM00037
SIZE = 0 *029 LM00038
OR WHENEVER CHAR .E. RETURN .OR. CHAR.RS.6 .E. RETURN *030 LM00039
TRANSFER TO UND *031 LM00040
OR WHENEVER CHAR .A. 0400K .E. 0 *032 LM00041
SIZE = SIZE + 1 *033 LM00042
LINE(SIZE) = CHAR.A.77K *034 LM00043
END OF CONDITIONAL *035 LM00044
DISECT WHENEVER SIZE .GE. BUFSIZ, TRANSFER TO UND *036 LM00045
TRANSFER TO LOOP *037 LM00046
UND SIZE = SIZE + 1 *038 LM00047
LINE(SIZE) = RETURN *039 LM00048
FUNCTION RETURN SIZE *040 LM00049
LM00050
.. TYPEWRITER OUTPUT CHARACTER CONTROL ROUTINE. LM00051
.. USAGE. . . TYPOUT.(LINE, LENGTH) LM00052
LM00053
ENTRY TO TYPOUT. *041 LM00054
K = 0 *042 LM00055
SETFUL. *043 LM00056
THROUGH PRLOOP, FOR J = 1, 1, J .G. BUFSIZ *044 LM00057
TWORD = (TWORD .LS. NBITS) .V. LINE(J) *045 LM00058
K = K + 1 *046 LM00059
WHENEVER K .GE. WRDSIZ/NBITS *047 LM00060
K = 0 *048 LM00061
PRWORD.(TWORD) *049 LM00062
PRLOOP END OF CONDITIONAL *050 LM00063
THROUGH NULPK, FOR K = K, 1, K.GE. WRDSIZ/NBITS *051 LM00064
NULPK TWORD = (TWORD.LS.NBITS) .V. NULL *052 LM00065
PRWORD.(TWORD) *053 LM00066
PRBUFF. *054 LM00067
FUNCTION RETURN *055 LM00068
LM00069
ENTRY TO HOL. *056 LM00070
FUNCTION RETURN LINE .A. 77K *057 LM00071
LM00072
END OF FUNCTION *058 LM00073
1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL)
0TOTAL LOCATIONS 00351 TRANSFER VECTOR LENGTH 00006 PROGRAM BEGINS 00037
0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES
HOL 00314 0 TYPOUT 00212 0 TYPEIN 00060 0 CANON 00054 0 SETKIL 00046 0
SETERS 00040 0
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)
CHAR 00011 1 I 00015 1 K 00021 1 NULPK 00006 4 TWORD 00026 1
CHMASK 00012 A 1 J 00016 1 LOOP 00007 4 PRLOOP 00006 4 UND 00010 4
DISECT 00006 4 K1 00017 A 1 NBITS 00022 A 1 RETURN 00024 A 1 WORD 00027 1
E1 00013 A 1 KILL 00020 A 1 NULL 00023 A 1 SIZE 00025 1 WRDSIZ 00030 A 1
ERASE 00014 A 1
0FUNCTION DICTIONARY
EXIT 00000 1 PRBUFF 00001 1 PRWORD 00002 1 SETFUL 00003 1 TYLINE 00004 1
TYWORD 00005 1
0ABSOLUTE CONSTANTS
00034 +000000000077 00035 +000000000400 00033 +000000000006 00031 +000000000000 00032 +000000000001
00036 +233000000000
0STATEMENT DICTIONARY
00007 TXL -300070000065 00010 TXL -300204000201
0PROGRAM
EXTERNAL FUNCTION(LINE, BUFSIZ) 001 LM00005
NORMAL MODE IS INTEGER 002 LM00007
VECTOR VALUES E1 = 0137K 003 LM00008
00013 +0 00000 0 00137
VECTOR VALUES K1 = 0156K 004 LM00009
00017 +0 00000 0 00156
VECTOR VALUES NBITS = 12 005 LM00010
00022 +0 00000 0 00014
VECTOR VALUES NULL = 0057K 006 LM00011
00023 +0 00000 0 00057
VECTOR VALUES ERASE = 0504K 007 LM00012
00014 +0 00000 0 00504
VECTOR VALUES KILL = 0506K 008 LM00013
00020 +0 00000 0 00506
VECTOR VALUES RETURN = 0055K 009 LM00014
00024 +0 00000 0 00055
VECTOR VALUES WRDSIZ = 36 010 LM00015
00030 +0 00000 0 00044
VECTOR VALUES CHMASK = 7777K 011 LM00016
00012 +0 00000 0 07777
ENTRY TO SETERS. 012 LM00018
00037 TRA +0 02000 0 00042 00040 SXA +0 63400 2 00324 00041 TSX +0 07400 2 00324
ERASE = LINE 013 LM00019
00042 CLA +0 50000 0 00024 00043 STO +0 60100 0 00014
FUNCTION RETURN 014 LM00020
00044 TRA +0 02000 0 00342
ENTRY TO SETKIL. 015 LM00022
00045 TRA +0 02000 0 00050 00046 SXA +0 63400 2 00324 00047 TSX +0 07400 2 00324
KILL = LINE 016 LM00023
00050 CLA +0 50000 0 00024 00051 STO +0 60100 0 00020
FUNCTION RETURN 017 LM00024
00052 TRA +0 02000 0 00342
ENTRY TO CANON. 018 LM00026
00053 TRA +0 02000 0 00056 00054 SXA +0 63400 2 00324 00055 TSX +0 07400 2 00324
FUNCTION RETURN 019 LM00027
00056 TRA +0 02000 0 00342
ENTRY TO TYPEIN. 020 LM00029
00057 TRA +0 02000 0 00062 00060 SXA +0 63400 2 00324 00061 TSX +0 07400 2 00324
SIZE = 0 021 LM00030
00062 CLA +0 50000 0 00031 00063 STO +0 60100 0 00025
TYLINE. 022 LM00031
00064 TSX +0 07400 4 00004
LOOP WORD = TYWORD.(0) 023 LM00032
00065 TSX +0 07400 4 00005 00066 TXH +3 00000 0 00031 00067 STO +0 60100 0 00027
THROUGH DISECT, FOR I = WRDSIZ-NBITS,-NBITS, I .L. 0 024 LM00033
00070 CLA +0 50000 0 00030 00071 SUB +0 40200 0 00022 00072 STO +0 60100 0 00015 00073 TRA +0 02000 0 00077
00074 CLS +0 50200 0 00022 00075 ADD +0 40000 0 00015 00076 STO +0 60100 0 00015 00077 CLA +0 50000 0 00015
00100 SUB +0 40200 0 00031 00101 TZE +0 10000 0 00103 00102 TMI -0 12000 0 00200
CHAR = (WORD.RS.I) .A. CHMASK 025 LM00034
00103 CAL -0 50000 0 00015 00104 STA +0 62100 0 00106 00105 CAL -0 50000 0 00027 00106 LGR -0 76500 0 00000
00107 ANA -0 32000 0 00012 00110 SLW +0 60200 0 00011
WHENEVER CHAR .E. ERASE .OR. CHAR .E. E1 026 LM00035
00111 CLA +0 50000 0 00011 00112 SUB +0 40200 0 00013 00113 TZE +0 10000 0 00117 00114 CLA +0 50000 0 00011
00115 SUB +0 40200 0 00014 00116 TNZ -0 10000 0 00127
WHENEVER SIZE .G. 0, SIZE = SIZE - 1 027 LM00036
00117 CLA +0 50000 0 00025 00120 SUB +0 40200 0 00031 00121 TZE +0 10000 0 00126 00122 TMI -0 12000 0 00126
00123 CLA +0 50000 0 00025 00124 SUB +0 40200 0 00032 00125 STO +0 60100 0 00025
OR WHENEVER CHAR .E. KILL .OR. CHAR .E. K1 028 LM00037
00126 TRA +0 02000 0 00172 00127 CLA +0 50000 0 00011 00130 SUB +0 40200 0 00017 00131 TZE +0 10000 0 00135
00132 CLA +0 50000 0 00011 00133 SUB +0 40200 0 00020 00134 TNZ -0 10000 0 00140
SIZE = 0 029 LM00038
00135 CLA +0 50000 0 00031 00136 STO +0 60100 0 00025
O'R CHAR .E. RETURN .OR. CHAR.RS.6 .E. RETURN 030 LM00039
00137 TRA +0 02000 0 00172 00140 CAL -0 50000 0 00033 00141 STA +0 62100 0 00143 00142 CAL -0 50000 0 00011
00143 LGR -0 76500 0 00000 00144 SLW +0 60200 0 00346 00145 CLA +0 50000 0 00346 00146 SUB +0 40200 0 00024
00147 TZE +0 10000 0 00153 00150 CLA +0 50000 0 00011 00151 SUB +0 40200 0 00024 00152 TNZ -0 10000 0 00155
TRANSFER TO UND 031 LM00040
00153 TRA +0 02000 0 00010
O'R CHAR .A. 0400K .E. 0 032 LM00041
00154 TRA +0 02000 0 00172 00155 CAL -0 50000 0 00011 00156 ANA -0 32000 0 00035 00157 SLW +0 60200 0 00346
00160 CLA +0 50000 0 00346 00161 SUB +0 40200 0 00031 00162 TNZ -0 10000 0 00172
SIZE = SIZE + 1 033 LM00042
00163 CLA +0 50000 0 00025 00164 ADD +0 40000 0 00032 00165 STO +0 60100 0 00025
LINE(SIZE) = CHAR.A.77K 034 LM00043
00166 CAL -0 50000 0 00011 00167 ANA -0 32000 0 00034 00170 LXA +0 53400 1 00025 00171 SLW +0 60200 1 00024
END OF CONDITIONAL 035 LM00044
DISECT WHENEVER SIZE .GE. BUFSIZ, TRANSFER TO UND 036 LM00045
00172 CLA +0 50000 0 00025 00173 SUB +0 40200 0 00024 00174 TZE +0 10000 0 00176 00175 TMI -0 12000 0 00177
00176 TRA +0 02000 0 00010 00177 TRA +0 02000 0 00074
TRANSFER TO LOOP 037 LM00046
00200 TRA +0 02000 0 00007
UND SIZE = SIZE + 1 038 LM00047
00201 CLA +0 50000 0 00025 00202 ADD +0 40000 0 00032 00203 STO +0 60100 0 00025
LINE(SIZE) = RETURN 039 LM00048
00204 LXA +0 53400 1 00025 00205 CLA +0 50000 0 00024 00206 STO +0 60100 1 00024
FUNCTION RETURN SIZE 040 LM00049
00207 CLA +0 50000 0 00025 00210 TRA +0 02000 0 00342
ENTRY TO TYPOUT. 041 LM00054
00211 TRA +0 02000 0 00214 00212 SXA +0 63400 2 00324 00213 TSX +0 07400 2 00324
K = 0 042 LM00055
00214 CLA +0 50000 0 00031 00215 STO +0 60100 0 00021
SETFUL. 043 LM00056
00216 TSX +0 07400 4 00003
THROUGH PRLOOP, FOR J = 1, 1, J .G. BUFSIZ 044 LM00057
00217 CLA +0 50000 0 00032 00220 STO +0 60100 0 00016 00221 TRA +0 02000 0 00225 00222 CLA +0 50000 0 00016
00223 ADD +0 40000 0 00032 00224 STO +0 60100 0 00016 00225 CLA +0 50000 0 00016 00226 SUB +0 40200 0 00024
00227 TZE +0 10000 0 00231 00230 TPL +0 12000 0 00261
TWORD = (TWORD .LS. NBITS) .V. LINE(J) 045 LM00058
00231 CAL -0 50000 0 00022 00232 STA +0 62100 0 00234 00233 CAL -0 50000 0 00026 00234 ALS +0 76700 0 00000
00235 LXA +0 53400 2 00016 00236 ORA -0 50100 2 00024 00237 SLW +0 60200 0 00026
K = K + 1 046 LM00059
00240 CLA +0 50000 0 00021 00241 ADD +0 40000 0 00032 00242 STO +0 60100 0 00021
WHENEVER K .GE. WRDSIZ/NBITS 047 LM00060
00243 LDQ +0 56000 0 00030 00244 PXD -0 75400 0 00000 00245 LLS +0 76300 0 00000 00246 DVP +0 22100 0 00022
00247 XCA +0 13100 0 00000 00250 CHS +0 76000 0 00002 00251 ADD +0 40000 0 00021 00252 TZE +0 10000 0 00254
00253 TMI -0 12000 0 00260
K = 0 048 LM00061
00254 CLA +0 50000 0 00031 00255 STO +0 60100 0 00021
PRWORD.(TWORD) 049 LM00062
00256 TSX +0 07400 4 00002 00257 TXH +3 00000 0 00026
PRLOOP END OF CONDITIONAL 050 LM00063
00260 TRA +0 02000 0 00222
THROUGH NULPK, FOR K = K, 1, K.GE. WRDSIZ/NBITS 051 LM00064
00261 CLA +0 50000 0 00021 00262 STO +0 60100 0 00021 00263 TRA +0 02000 0 00267 00264 CLA +0 50000 0 00021
00265 ADD +0 40000 0 00032 00266 STO +0 60100 0 00021 00267 LDQ +0 56000 0 00030 00270 PXD -0 75400 0 00000
00271 LLS +0 76300 0 00000 00272 DVP +0 22100 0 00022 00273 XCA +0 13100 0 00000 00274 CHS +0 76000 0 00002
00275 ADD +0 40000 0 00021 00276 TZE +0 10000 0 00307 00277 TPL +0 12000 0 00307
NULPK TWORD = (TWORD.LS.NBITS) .V. NULL 052 LM00065
00300 CAL -0 50000 0 00022 00301 STA +0 62100 0 00303 00302 CAL -0 50000 0 00026 00303 ALS +0 76700 0 00000
00304 ORA -0 50100 0 00023 00305 SLW +0 60200 0 00026 00306 TRA +0 02000 0 00264
PRWORD.(TWORD) 053 LM00066
00307 TSX +0 07400 4 00002 00310 TXH +3 00000 0 00026
PRBUFF. 054 LM00067
00311 TSX +0 07400 4 00001
FUNCTION RETURN 055 LM00068
00312 TRA +0 02000 0 00342
ENTRY TO HOL. 056 LM00070
00313 TRA +0 02000 0 00316 00314 SXA +0 63400 2 00324 00315 TSX +0 07400 2 00324
FUNCTION RETURN LINE .A. 77K 057 LM00071
00316 CAL -0 50000 0 00024 00317 ANA -0 32000 0 00034 00320 SLW +0 60200 0 00346 00321 CLA +0 50000 0 00346
00322 TRA +0 02000 0 00342
END OF FUNCTION 058 LM00073
00323 TSX +0 07400 4 00000 00324 TXH +3 00000 0 00000 00325 SXD -0 63400 1 00324 00326 SXA +0 63400 4 00342
00327 CLA +0 50000 4 00001 00330 STA +0 62100 0 00042 00331 STA +0 62100 0 00050 00332 STA +0 62100 0 00171
00333 STA +0 62100 0 00206 00334 STA +0 62100 0 00236 00335 STA +0 62100 0 00316 00336 CLA +0 50000 4 00002
00337 STA +0 62100 0 00173 00340 STA +0 62100 0 00226 00341 TRA +0 02000 2 00001 00342 AXT +0 77400 4 00000
00343 LXA +0 53400 2 00324 00344 LXD -0 53400 1 00324 00345 TRA +0 02000 4 00001
1 BUFFER CONTROL ROUTINE FOR TYPEWRITER OUTPUT. PAGE 1
*
* J. H. SALTZER, JANUARY, 1965.
*
00004 ENTRY PRWORD ADD A WORD TO PRINT BUFFER.
00021 ENTRY PRBUFF PRINT OUT PARTIAL BUFFER.
00030 ENTRY TYWORD GET NEXT TYPED WORD.
00047 ENTRY TYLINE RESET TO START READING NEXT LINE.
*
EXTERN RDFLXA,WRFLXA
*
TRANSFER VECTOR
00000 512426436721 RDFLXA
00001 665126436721 WRFLXA
LINKAGE DIRECTOR
00002 000000000000
00003 475166465124
00034 BUFLEN EQU 28 TYPEWRITER BUFFER SIZE.
*
* ADD WORD TO PRINT BUFFER.
* PRWORD.(WORD)
*
00004 0634 00 4 00017 PRWORD SXA PRX4,4 SAVE LINKAGE.
00005 -0500 60 4 00001 CAL* 1,4 GET WORD BEING ADDED.
00006 -0734 00 4 00000 PDX 0,4 CHECK FOR DISK CONTROL WORD.
00007 3 77776 4 00017 TXH PRX4,4,-2 DON'T STORE CONTROL WORD.
00010 0774 00 4 00034 PWCNT AXT BUFLEN,4 SET WORD COUNTER (INITIALLY BUFLEN.)
00011 0602 00 4 00105 SLW BUFF+BUFLEN,4 STORE WORD IN BUFFER.
00012 2 00001 4 00016 TIX PSAVE,4,1 COUNT, CHECK FOR OVERFLOW.
00013 0074 00 4 00001 TSX WRFLXA,4 BUFFER FULL, PRINT W/O C.R.
00014 0 00034 0 00051 BUFF,,BUFLEN ..
00015 0774 00 4 00034 PFRESH AXT BUFLEN,4 RESET WORD COUNTER.
00016 0634 00 4 00010 PSAVE SXA PWCNT,4 SAVE WORD COUNTER.
00017 0774 00 4 00000 PRX4 AXT --,4 RESTORE LINKAGE.
00020 0020 00 4 00001 TRA 1,4 RETURN.
*
* PRINT OUT REMAINING BUFFER, RESET COUNTER.
*
00021 0634 00 4 00017 PRBUFF SXA PRX4,4 SAVE LINKAGE.
00022 0535 00 4 00010 LAC PWCNT,4 GET WORD COUNT.
00023 1 00034 4 00024 TXI *+1,4,BUFLEN FORM COMPLEMENT MOD BUFLEN.
00024 -0634 00 4 00026 SXD PRCL,4 SAVE COUNT IN CALLER.
00025 0074 00 4 00001 TSX WRFLXA,4 PRINT REMAINDER.
00026 0 00000 0 00051 PRCL BUFF,,-- ..
00027 0020 00 0 00015 TRA PFRESH GO REFRESH COUNTER, AND RETURN.
*
* GET A WORD FROM INPUT BUFFER.
* WORD = TYWORD.(0)
*
00030 0634 00 4 00045 TYWORD SXA TYX4,4 SAVE LINKAGE.
00031 0774 00 5 00000 TYCNT AXT --,5 GET WORD COUNTER.
00032 0774 00 4 00000 TYPOS AXT --,4 GET BUFFER POINTER.
00033 2 00006 5 00041 TIX TYGET,5,6 CHECK FOR WORDS LEFT.
00034 0074 00 4 00000 TSX RDFLXA,4 NO, GET SOME.
1 BUFFER CONTROL ROUTINE FOR TYPEWRITER OUTPUT. PAGE 2
00035 0 00034 0 00051 TYCALL BUFF,,BUFLEN ..
00036 0734 00 5 00000 PAX 0,5 INSERT 6-BIT CHARACTER COUNT INTO COUNTER.
00037 2 40000 5 00040 TIX *+1,5,16384 REMOVE BIT 21 IF PRESENT.
00040 0774 00 4 00000 AXT 0,4 RESET INPUT BUFFER POINTER.
00041 0500 00 4 00051 TYGET CLA BUFF,4 GET A WORD.
00042 1 77777 4 00043 TXI *+1,4,-1 MOVE POINTER TO NEXT WORD.
00043 0634 00 4 00032 SXA TYPOS,4 SAVE POINTER.
00044 0634 00 5 00031 SXA TYCNT,5 SAVE CHARACTER COUNTER.
00045 0774 00 4 00000 TYX4 AXT --,4 RESTORE LINKAGE.
00046 0020 00 4 00001 TRA 1,4 RETURN.
*
00047 0634 00 0 00031 TYLINE ZSA TYCNT RESET CHARACTER COUNT TO MAKE LINE EMPTY.
00050 0020 00 4 00001 TRA 1,4 RETURN
*
00051 BUFF BSS BUFLEN OUTPUT BUFFER.
*
END
1 BUFFER CONTROL ROUTINE FOR TYPEWRITER OUTPUT. PAGE 1
POST PROCESSOR ASSEMBLY DATA
105 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
51 BUFF 11, 14, 26, 35, 41
26 PRCL 24
17 PRX4 4, 7, 21
45 TYX4 30
16 PSAVE 12
10 PWCNT 16, 22
31 TYCNT 44, 47
41 TYGET 33
32 TYPOS 43
34 BUFLEN 4, 10, 11, 14, 15, 23, 35, 51
15 PFRESH 27
21 PRBUFF 0
4 PRWORD 0
0 RDFLXA 34
35 TYCALL
47 TYLINE 0
30 TYWORD 0
1 WRFLXA 13, 25
0 NO ERROR IN ABOVE ASSEMBLY.
1 SUBROUTINE TO CONVERT BCD NUMBER TO BINARY. PAGE 1
*
* J. H. SALTZER, MAY, 1966.
00002 ENTRY BIN CONVERTER.
LINKAGE DIRECTOR
00000 000000000000
00001 223145606060
00002 0634 00 1 00024 BIN SXA IRR1,1
00003 0600 00 0 00027 STZ INT CLEAR RESULT.
00004 0774 00 1 00006 AXT 6,1
00005 0560 60 4 00001 LDQ* 1,4 GET ARGUMENT.
00006 -0754 00 0 00000 LOP ZAC
00007 -0763 00 0 00006 LGL 6 GET NEXT CHARACTER.
00010 -0340 00 0 00032 LAS =10 SKIP OVER NON-DIGITS.
00011 0020 00 0 00023 TRA TIX
00012 0020 00 0 00023 TRA TIX
00013 0601 00 0 00030 STO DIG NUMBER, SAVE DIGIT.
00014 -0600 00 0 00031 STQ TEM SAVE MQ FOR MULTIPLIACATION.
00015 0560 00 0 00027 LDQ INT GET OLD NUMBER.
00016 0200 00 0 00032 MPY =10 SHIFT.
00017 0131 00 0 00000 XCA
00020 0400 00 0 00030 ADD DIG ADD THIS DIGIT TO RESULT.
00021 0601 00 0 00027 STO INT SAVE, FOR NEXT PASS.
00022 0560 00 0 00031 LDQ TEM RESTORE MQ.
00023 2 00001 1 00006 TIX TIX LOP,1,1
00024 0774 00 1 00000 IRR1 AXT --,1
00025 0500 00 0 00027 CLA INT RESULT IN AC.
00026 0020 00 4 00002 TRA 2,4
*
00027 0 00000 0 00000 INT
00030 0 00000 0 00000 DIG
00031 0 00000 0 00000 TEM
*
END
LITERALS
00032 000000000012
1 SUBROUTINE TO CONVERT BCD NUMBER TO BINARY. PAGE 1
POST PROCESSOR ASSEMBLY DATA
33 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
2 BIN 0
30 DIG 13, 20
27 INT 3, 15, 21, 25
6 LOP 23
31 TEM 14, 22
23 TIX 11, 12
24 IRR1 2
0 NO ERROR IN ABOVE ASSEMBLY.
1 LIBRARY PACKAGE. PAGE 1
00024 ENTRY .PCOMT PRINT COMMENT ROUTINE
00010 ENTRY CHNCOM GO DORMANT.
00005 ENTRY EXIT SAME.
00002 ENTRY .SETUP CALLED BY MAD MAIN PROGRA.
00013 ENTRY COMARG GET COMMAND ARGUMENT.
00106 ENTRY WHOAMI
00066 ENTRY SETBCD
00064 ENTRY SETFUL
00065 ENTRY SETBRK
00061 ENTRY WRFLXA
00063 ENTRY WRFLX
00062 ENTRY RDFLXA
00067 ENTRY UPDATE UPDATE U.F.D.
00070 ENTRY CHFILE
00071 ENTRY DELFIL
00072 ENTRY FSTATE
00073 ENTRY BUFFER
00074 ENTRY OPEN
00075 ENTRY WRWAIT
00076 ENTRY WRFILE
00077 ENTRY RDWAIT
00100 ENTRY RDFILE
00101 ENTRY CLOSE
00043 ENTRY GETBUF OBTAIN BUFFERS FROM SUPERVISOR.
*
LINKAGE DIRECTOR
00000 000000000000
00001 334723464463
00002 0760 00 0 00016 .SETUP LMTM USE SEVEN TAG MODE.
00003 0774 00 6 00000 AXT 0,6 SET UP IR6 TO AVOID EARLY CALL TO READ.
00004 0020 00 0 00064 TRA SETFUL USE FULL MODE. SETFUL RETURNS 1,4.
*
00005 0074 00 4 00066 EXIT TSX SETBCD,4 CLEANUP, RESET MODE.
00006 0074 00 4 00063 TSX WRFLX,4 PUT OUT A STAR FOR RUNCOMS.
00007 0 00001 0 00060 STAR,,1 AND THEN PERFORM CHNCOM SEQUENCE.
00010 0074 00 4 00102 CHNCOM TSX CHN,4 THIS CHNCOM ALWAYS GOES DEAD,
TD 00011 3 00000 0 00107 TXH =0 IF NO CHAIN EXISTS.
00012 0020 00 0 00010 TRA *-2 IN CASE OF RESTART, DON'T.
*
00013 0634 00 4 00022 COMARG SXA CM4,4 GET COMMAND ARGUMENT FOR MAD.
00014 -0500 60 4 00001 CAL* 1,4 GET ARGUMENT NUMBER.
00015 0602 00 0 00017 SLW ARG GIVE ARGUMENT NUMBER.
00016 0074 00 4 00103 TSX GETCOM,4 GET COMMAND ARGUMENT.
00017 0 00000 0 00000 ARG ..
00020 0602 00 0 00017 SLW ARG MOVE TO ARITHMETIC AC.
00021 0500 00 0 00017 CLA ARG ..
00022 0774 00 4 00000 CM4 AXT --,4 RESTORE LINKAGE.
00023 0020 00 4 00002 TRA 2,4 RETURN TO CALLER.
*
00024 -0500 00 4 00001 .PCOMT CAL 1,4 GET WORD COUNT.
00025 0621 00 0 00042 STA RETURN ON RETURN, JUMP BUFFER.
00026 0767 00 0 00022 ALS 18 SETUP COUNT.
00027 0622 00 0 00036 STD PCNT ..
00030 1 77776 4 00031 TXI *+1,4,-2 SETUP UP BUFFER ADDRESS.
1 LIBRARY PACKAGE. PAGE 2
00031 0636 00 4 00036 SCA PCNT,4 SAVE BUFFER ADDRESS, AND LINKAGE.
00032 0074 00 4 00064 TSX SETFUL,4 MAKE SURE MODE SET AND NO LINES COMING IN.
00033 0074 00 4 00061 TSX WRFLXA,4 SWITCH TO RED SHIFT.
00034 0 00001 0 00056 REDS,,1 ..
00035 0074 00 4 00063 TSX WRFLX,4 PRINT LINE.
00036 0 00000 0 00000 PCNT --,,-- ..
00037 0074 00 4 00061 TSX WRFLXA,4 SHIFT BACK TO BLACK.
00040 0 00001 0 00057 BLCKS,,1 ..
00041 0535 00 4 00036 LAC PCNT,4 RESTORE LINKAGE.
00042 0020 00 4 00000 RETURN TRA --,4 RETURN TO CALLER.
*
00043 0634 00 4 00052 GETBUF SXA GX4,4 ENTRY TO GET BUFFERS.
00044 0602 00 0 00055 SLW BUFSIZ SIZE OF BUFFER IN AC.
00045 0074 00 4 00104 TSX GETMEM,4 GET PRESENT BOUND.
00046 0601 00 0 00054 STO START SAVE AS BUFFER START.
00047 0361 00 0 00055 ACL BUFSIZ FORM NEW BOUND.
00050 0074 00 4 00105 TSX SETMEM,4 ASK FOR MORE.
00051 -0500 00 0 00054 CAL START GIVE CALLER LOCATION OF
00052 0774 00 4 00000 GX4 AXT --,4 HIS NEW BUFFER.
00053 0020 00 4 00001 TRA 1,4 RETURN.
*
00054 0 00000 0 00000 START STORAGE FOR BUFFER LOCATION.
00055 0 00000 0 00000 BUFSIZ STORAGE FOR BUFFER SIZE.
*
00056 +013300570057 REDS OCT 013300570057 RED SHIFT AND TWO NULLS.
00057 +013200570057 BLCKS OCT 013200570057 BLACK SHIFT AND TWO NULLS.
00060 -145757575757 STAR OCT 545757575757 ASTERISK AND 5 NULLS.
*
* SUPERVISOR SUBROUTINE CALLERS.
*
00061 0101 00 0 00133 WRFLXA TIA =HWRFLXA
00062 0101 00 0 00122 RDFLXA TIA =HRDFLXA
00063 0101 00 0 00134 WRFLX TIA =HWRFLX
00064 0101 00 0 00126 SETFUL TIA =HSETFUL
00065 0101 00 0 00125 SETBRK TIA =HSETBRK
00066 0101 00 0 00124 SETBCD TIA =HSETBCD
00067 0101 00 0 00130 UPDATE TIA =HUPDATE
00070 0101 00 0 00111 CHFILE TIA =HCHFILE
00071 0101 00 0 00114 DELFIL TIA =HDELFIL
00072 0101 00 0 00115 FSTATE TIA =HFSTATE
00073 0101 00 0 00110 BUFFER TIA =HBUFFER
00074 0101 00 0 00120 OPEN TIA =HOPEN
00075 0101 00 0 00135 WRWAIT TIA =HWRWAIT
00076 0101 00 0 00132 WRFILE TIA =HWRFILE
00077 0101 00 0 00123 RDWAIT TIA =HRDWAIT
00100 0101 00 0 00121 RDFILE TIA =HRDFILE
00101 0101 00 0 00113 CLOSE TIA =HCLOSE
00102 0101 00 0 00112 CHN TIA =HCHNCOM
00103 0101 00 0 00116 GETCOM TIA =HGETCOM
00104 0101 00 0 00117 GETMEM TIA =HGETMEM
00105 0101 00 0 00127 SETMEM TIA =HSETMEM
00106 0101 00 0 00131 WHOAMI TIA =HWHOAMI
*
END
1 LIBRARY PACKAGE. PAGE 3
LITERALS
00107 000000000000
00110 226426262551
00111 233026314325
00112 233045234644
00113 234346622560
00114 242543263143
00115 266263216325
00116 272563234644
00117 272563442544
00120 464725456060
00121 512426314325
00122 512426436721
00123 512466213163
00124 622563222324
00125 622563225142
00126 622563266443
00127 622563442544
00130 644724216325
00131 663046214431
00132 665126314325
00133 665126436721
00134 665126436760
00135 665166213163
1 LIBRARY PACKAGE. PAGE 1
POST PROCESSOR ASSEMBLY DATA
136 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
17 ARG 15, 20, 21
102 CHN 10
22 CM4 13
52 GX4 43
5 EXIT 0
74 OPEN 0
36 PCNT 27, 31, 41
56 REDS 34
60 STAR 7
57 BLCKS 40
101 CLOSE 0
54 START 46, 51
63 WRFLX 0, 6, 35
73 BUFFER 0
55 BUFSIZ 44, 47
70 CHFILE 0
10 CHNCOM 0
13 COMARG 0
71 DELFIL 0
72 FSTATE 0
43 GETBUF 0
103 GETCOM 16
104 GETMEM 45
24 .PCOMT 0
2 .SETUP 0
100 RDFILE 0
62 RDFLXA 0
77 RDWAIT 0
42 RETURN 25
66 SETBCD 0, 5
65 SETBRK 0
64 SETFUL 0, 4, 32
105 SETMEM 50
67 UPDATE 0
106 WHOAMI 0
76 WRFILE 0
61 WRFLXA 0, 33, 37
75 WRWAIT 0
0 NO ERROR IN ABOVE ASSEMBLY.
EXTBSS BCD 09/18/68 2215.8 12484 00000
1 EXTBSS COMMAND FOR FOREGROUND. PAGE 1
FILE NAME -- ESXTBS FAP
9/14/65 - NOEL I. MORRIS
UNLIST
M CALL MACRO SUBR,LIST
TRANSFER VECTOR
00000 434164626360 LJUST
00001 222646472545 BFOPEN
00002 246242255160 DSKER
00003 512422626260 RDBSS
00004 665122626260 WRBSS
00005 222623434662 BFCLOS
00006 242543256325 DELETE
00007 516225632260 RSETB
00010 626522626260 SVBSS
00011 516222626260 RSBSS
00010 NFILS EQU 8
INITIALIZE ARRAYS.
00012 START CALL SETBRK(BREAK) SET A BREAK LEVEL
00012 0074 00 4 00370 TSX SETBRK,4 .002
00013 3 00000 0 00314 PAR BREAK .004
00014 CALL GETCLS((CARD,,0)) GET COMMAND BUFFER
00014 0074 00 4 00371 TSX GETCLS,4 .002
00015 3 00000 0 77426 PAR CARD,,0 .004
00016 -0774 00 1 00001 AXC 1,1 GETCOM INDEX
00017 -0500 00 1 77426 SQI CAL CARD,1 GET FIRST PARAMETER
00020 -0340 00 0 00021 LAS FENCE CHECK FOR NONE
00021 777777777777 FENCE VFD 36/-1
00022 0020 00 0 00316 TRA PERR NO PARAMETERS GIVEN
00023 0602 00 0 77425 SLW INFILE NAME OF INPUT FILE
00024 0322 00 0 00036 ERA (SQZ) IS IT SQZBSS
00025 -0100 00 0 00032 TNZ NO.SQI IF YES,
00026 -0625 00 0 77424 STL INFILE-1 SET SQZ INDIC.
00027 0560 00 0 00056 LDQ SQZ SECONDARY NAME
00030 -0620 00 0 00336 SLQ IN2 IS SQZBSS
00031 1 77777 1 00017 TXI SQI,1,-1 AND GO GET THE NEXT PARAMETER
00032 1 77777 1 00033 NO.SQI TXI *+1,1,-1 NEXT PARAMETER
00033 -0774 00 2 00000 AXC 0,2 OUTPUT FILE LIST INDEX
1 EXTBSS COMMAND FOR FOREGROUND. PAGE 2
FILE NAME -- ESXTBS FAP
00034 -0500 00 1 77426 PARLP CAL CARD,1 GET PARAMETER
00035 -0340 00 0 00021 LAS FENCE CHECK FOR NONE
00036 607462507134 (SQZ) BCI 1, (SQZ)
00037 0020 00 0 00074 TRA SOUT FINISHED
00040 0602 00 0 00330 SLW TEM SAVE FOR RJUSTING
00041 0602 00 2 00340 SLW LIST+1,2 BOTH FILE NAME AND ENTRY NAME
00042 CALL $LJUST(TEM) ENTRIES ARE LEFT JUSTIFIED
00042 0074 00 4 00000 TSX $LJUST,4 .002
00043 3 00000 0 00330 PAR TEM .004
00044 0601 00 2 00341 STO LIST+2,2 ..
00045 -0500 00 0 00330 CAL TEM NOW CHECK FOR SQZBSS
00046 0322 00 0 00036 ERA (SQZ) ..
00047 -0100 00 0 00053 TNZ NO.SQO IF SO,
00050 0560 00 0 00056 LDQ SQZ SET SECONDARY NAME TO
00051 -0620 00 2 00342 SLQ LIST+3,2 SQZBSS
00052 1 77777 1 00034 TXI PARLP,1,-1 NEXT PARAMETER
00053 1 77777 1 00054 NO.SQO TXI *+1,1,-1 NEXT PARAMETER
00054 -0500 00 1 77426 CAL CARD,1 ..
00055 -0340 00 0 00021 LAS FENCE CHECK FOR NONE
00056 625071606060 SQZ BCI 1,SQZ
00057 1 77775 2 00074 TXI SOUT,2,-3 FINISHED
00060 0602 00 0 00330 SLW TEM SAVE ENTRY NAME
00061 0322 00 0 00437 ERA =H = IS IT EQUAL SIGN
00062 0100 00 0 00066 TZE NEX YES, ENTRY = SECONDARY NAME
00063 CALL $LJUST(TEM) ..
00063 0074 00 4 00000 TSX $LJUST,4 .002
00064 3 00000 0 00330 PAR TEM .004
00065 0601 00 2 00341 STO LIST+2,2 ..
00066 1 77777 1 00067 NEX TXI *+1,1,-1 NEXT PARAMETER
00067 1 77775 2 00070 TXI *+1,2,-3 AND NEXT OUTPUT FILE
00070 3 00030 2 00034 TXH PARLP,2,3*NFILS CHECK FOR FULL LIST
00071 COMENT TOO,5,(TOO MANY FILES REQUESTED.)
00071 0074 00 4 00372 TSX WRFLX,4 .003
00072 3 00005 0 00373 PAR TOO,,5 .005
00073 0021 00 0 00312 XIT CHN EXIT TO CHNCOM
00074 -3 00000 2 00321 SOUT TXL NONE,2,0 CHECK FOR NO FILES
00075 0636 00 2 00337 SCA LIST,2 STORE FILE COUNT
00076 0634 00 2 00222 SXA SRCH,2 ..
00077 0634 00 2 00301 SXA NSRCH,2 ..
00100 -0500 00 0 00444 CAL =H(FILE) SET TEMPORARY FILE
00101 0602 00 0 77423 SLW OUTFIL TO (FILE)
1 EXTBSS COMMAND FOR FOREGROUND. PAGE 3
OPEN AND READ LIBRARY FILE.
00102 CALL GETMEM GET MEMORY BOUND
00102 0074 00 4 00400 TSX GETMEM,4 .002
00103 EXTEND (OPNR+4,OPNR+5,OPNW+4,OPNW+5,OPNW+6)
00103 0621 00 0 00122 STA OPNR+4 .003
00104 0361 00 0 00425 ACL =432 .002
00105 0621 00 0 00123 STA OPNR+5 .003
00106 0361 00 0 00425 ACL =432 .002
00107 0621 00 0 00257 STA OPNW+4 .003
00110 0361 00 0 00425 ACL =432 .002
00111 0621 00 0 00260 STA OPNW+5 .003
00112 0361 00 0 00425 ACL =432 .002
00113 0621 00 0 00261 STA OPNW+6 .003
00114 0361 00 0 00425 ACL =432 .002
00115 0074 00 4 00401 TSX SETMEM,4 .003
ASSIGN DISK BUFFERS
00116 OPNR CALL $BFOPEN(=HR,INFILE,IN2,**,**,=-0,$DSKER)
00116 0074 00 4 00001 TSX $BFOPEN,4 .002
00117 3 00000 0 00435 PAR =HR .004
00120 3 00000 0 77425 PAR INFILE .004
00121 3 00000 0 00336 PAR IN2 .004
00122 3 00000 0 00000 PAR ** .004
00123 3 00000 0 00000 PAR ** .004
00124 3 00000 0 00433 PAR =-0 .004
00125 3 00000 0 00002 PAR $DSKER .004
OPEN LIBRARY FILE FOR READING
00126 NEXCD CALL $RDBSS(EOF) READ A CARD
00126 0074 00 4 00003 TSX $RDBSS,4 .002
00127 3 00000 0 00272 PAR EOF .004
00130 -0054 00 400000 LFT 400000 IF A PROGRAM CARD,
00131 0020 00 0 00136 TRA P.C. GO EXAMINE
00132 -0625 00 0 00324 STL ICSW INSTRUCTION CARD, SET SWITCH
00133 0520 00 0 00325 ZET FOUND ARE WE WRITING A FILE
00134 CALL $WRBSS WRITE THIS CARD OUT
00134 0074 00 4 00004 TSX $WRBSS,4 .002
00135 0020 00 0 00126 TRA NEXCD ON TO THE NEXT
1 EXTBSS COMMAND FOR FOREGROUND. PAGE 4
PROCESS PROGRAM CARDS.
00136 0520 00 0 00325 P.C. ZET FOUND IF NETRY FOUND AND
00137 0520 00 0 00324 ZET ICSW NOT THE FIRST CARD
00140 0020 00 0 00143 TRA NOT ..
00141 WRB CALL $WRBSS WRITE THIS CARD OUT AND
00141 0074 00 4 00004 TSX $WRBSS,4 .002
00142 0020 00 0 00126 TRA NEXCD GO ON TO THE NEXT
00143 -0520 00 0 00324 NOT NZT ICSW IF THIS IS FIRST CARD
00144 0020 00 0 00212 TRA SQCD ..
00145 -0520 00 0 00325 NZT FOUND AND FILE IS OPEN
00146 0020 00 0 00207 TRA FPC ..
00147 CLSOUT CALL $BFCLOS(OUTFIL,OUT2,$DSKER) CLOSE IT
00147 0074 00 4 00005 TSX $BFCLOS,4 .002
00150 3 00000 0 77423 PAR OUTFIL .004
00151 3 00000 0 00333 PAR OUT2 .004
00152 3 00000 0 00002 PAR $DSKER .004
00153 CALL $DELETE(NEWFIL,OUT2,*,NODEL) DELETE ANY OLD FILE
00153 0074 00 4 00006 TSX $DELETE,4 .002
00154 3 00000 0 00331 PAR NEWFIL .004
00155 3 00000 0 00333 PAR OUT2 .004
00156 3 00000 0 00156 PAR * .004
00157 3 00000 0 00173 PAR NODEL .004
00160 0602 00 0 00327 SLW MODE MODE FOR NEW FILE
00161 CALL CHFILE(OUTFIL,OUT2,MODE,NEWFIL,OUT2) AND RENAME
00161 0074 00 4 00402 TSX CHFILE,4 .002
00162 3 00000 0 77423 PAR OUTFIL .004
00163 3 00000 0 00333 PAR OUT2 .004
00164 3 00000 0 00327 PAR MODE .004
00165 3 00000 0 00331 PAR NEWFIL .004
00166 3 00000 0 00333 PAR OUT2 .004
00167 -0520 00 0 00327 NZT MODE ENOUGH PRINTED GARBAGE IF NON-ZERO MODE
00170 CALL WRFLX((NEWFIL,,5)) PRINT CREATED COMMENT
00170 0074 00 4 00372 TSX WRFLX,4 .002
00171 3 00005 0 00331 PAR NEWFIL,,5 .004
00172 0020 00 0 00174 TRA *+2 SKIP NEXT SECTION
00173 NODEL CALL $DELETE(OUTFIL,OUT2,=0,*+1) DELETE OLD TEMPORARY
00173 0074 00 4 00006 TSX $DELETE,4 .002
00174 3 00000 0 77423 PAR OUTFIL .004
00175 3 00000 0 00333 PAR OUT2 .004
00176 3 00000 0 00424 PAR =0 .004
00177 3 00000 0 00200 PAR *+1 .004
00200 0600 00 0 00325 STZ FOUND RESET ENTRY FOUND SWITCH
00201 0534 00 4 00337 LXA LIST,4 DECREASE FILE COUNT
00202 1 77775 4 00203 TXI *+1,4,-3 ..
00203 0634 00 4 00337 SXA LIST,4 ..
00204 -3 00000 4 00272 TXL EOF,4,0 IF ZERO, ALL FILES CREATED
1 EXTBSS COMMAND FOR FOREGROUND. PAGE 5
PROCESS PROGRAM CARDS.
00205 0520 00 0 00326 ZET ENDFIL CHECK FOR AN EOF CLOSE
00206 0020 00 0 00301 TRA NSRCH GO FINISH UP
00207 FPC CALL $RSETB RESET CARD SAVE BUFFERS
00207 0074 00 4 00007 TSX $RSETB,4 .002
00210 -0774 00 4 00002 AXC 2,4 START FIRST P.C. AT SECOND WORD
00211 0020 00 0 00213 TRA GCNT ..
00212 -0774 00 4 00000 SQCD AXC 0,4 CARD WORD INDEX
00213 -0046 00 0 00000 GCNT PIA GET WRDCNT
00214 -0320 00 0 00426 ANA =O37077777 ..
00215 -0734 00 1 00000 PDX ,1 IN XR1
00216 -0636 00 1 00231 SCD ECHK,1 FOR ENTRY PICKUP CHECK
00217 -0500 00 4 77430 ELP CAL CARD+2,4 ENTRY NAME
00220 -0100 00 0 00222 TNZ *+2 IF ZERO,
00221 -0500 00 0 00445 CAL =H(MAIN) IT IS (MAIN)
00222 0774 00 1 00000 SRCH AXT **,1 CHECK LSIT FOR NETRY
00223 -0340 00 1 00336 LAS LIST-1,1 ..
00224 0020 00 0 00226 TRA *+2 ..
00225 0020 00 0 00235 TRA GOT.IT ENTRY FOUND
00226 1 00003 1 00227 TXI *+1,1,3 NEXT ENTRY
00227 3 00000 1 00223 TXH SRCH+1,1,0 LOOP THROUGH TABLE
00230 1 77776 4 00231 TXI *+1,4,-2 NEXT CARD WORD
00231 3 00000 4 00217 ECHK TXH ELP,4,** EXAMINE ENTIRE CARD
00232 CALL $SVBSS SAVE THIS CARD
00232 0074 00 4 00010 TSX $SVBSS,4 .002
00233 0600 00 0 00324 STZ ICSW RESET I.C. SWITCH
00234 0020 00 0 00126 TRA NEXCD AND GO TO NEXT
00235 -0500 00 1 00337 GOT.IT CAL LIST,1 GET SECONDARY NAME
00236 0602 00 0 00333 SLW OUT2 ..
00237 0322 00 0 00436 ERA =H BSS NON ZERO, IF SQZBSS
00240 0602 00 0 77422 SLW OUTFIL-1 ..
00241 -0500 00 1 00335 CAL LIST-2,1 PRIMARY NAME
00242 0602 00 0 00331 SLW NEWFIL ..
00243 -0500 00 0 00021 CAL FENCE NULL OUT ENTRY NAME
00244 0602 00 1 00336 SLW LIST-1,1 ..
00245 -0625 00 0 00325 STL FOUND SET FOUND INDIC.
00246 CALL $DELETE(OUTFIL,OUT2,=0,*+1) DELETE OLD TEMP., IF ANY
00246 0074 00 4 00006 TSX $DELETE,4 .002
00247 3 00000 0 77423 PAR OUTFIL .004
00250 3 00000 0 00333 PAR OUT2 .004
00251 3 00000 0 00424 PAR =0 .004
00252 3 00000 0 00253 PAR *+1 .004
1 EXTBSS COMMAND FOR FOREGROUND. PAGE 6
PROCESS PROGRAM CARDS.
00253 OPNW CALL $BFOPEN(=HW,OUTFIL,OUT2,**,**,**,$DSKER)
00253 0074 00 4 00001 TSX $BFOPEN,4 .002
00254 3 00000 0 00443 PAR =HW .004
00255 3 00000 0 77423 PAR OUTFIL .004
00256 3 00000 0 00333 PAR OUT2 .004
00257 3 00000 0 00000 PAR ** .004
00260 3 00000 0 00000 PAR ** .004
00261 3 00000 0 00000 PAR ** .004
00262 3 00000 0 00002 PAR $DSKER .004
OPEN TEMPORARY FILE FOR WRITING
00263 -0520 00 0 00324 NZT ICSW CHECK FOR FIRST CARD
00264 0020 00 0 00267 TRA *+3 ..
00265 0600 00 0 00324 STZ ICSW IF SO,
00266 0020 00 0 00141 TRA WRB WRITE IT OUT WITHOUT SAVING
00267 CALL $SVBSS OTHERWISE, SAVE IT FIRST
00267 0074 00 4 00010 TSX $SVBSS,4 .002
00270 CALL $RSBSS AND WRITE OUT OTHER SAVED CARDS
00270 0074 00 4 00011 TSX $RSBSS,4 .002
00271 0020 00 0 00126 TRA NEXCD ON TO THE NEXT
1 EXTBSS COMMAND FOR FOREGROUND. PAGE 7
END OF FILE AND ERROR SECTION.
00272 -0625 00 0 00326 EOF STL ENDFIL SET END OF FILE INDIC.
00273 0520 00 0 00325 ZET FOUND CHECK FOR OPEN FILE
00274 0020 00 0 00147 TRA CLSOUT GO CLOSE IT
00275 CALL $BFCLOS(INFILE,IN2,$DSKER) CLOSE THE LIBRARY FILE
00275 0074 00 4 00005 TSX $BFCLOS,4 .002
00276 3 00000 0 77425 PAR INFILE .004
00277 3 00000 0 00336 PAR IN2 .004
00300 3 00000 0 00002 PAR $DSKER .004
00301 0774 00 1 00000 NSRCH AXT **,1 NOW, LOOK FOR NAY UNUSED ENTRIES
00302 -0500 00 1 00336 CAL LIST-1,1 ENTRY SHOULD BE FENCE IF USED
00303 0602 00 0 00404 SLW ENTRY+1 SVAE FOR PRINTING, IF NECESSARY
00304 0322 00 0 00021 ERA FENCE ..
00305 0100 00 0 00310 TZE FOK IF ZERO, ALL IS FINE
00306 COMENT ENTRY,4,(ENTRY NOT FOUND.)
00306 0074 00 4 00372 TSX WRFLX,4 .003
00307 3 00004 0 00403 PAR ENTRY,,4 .005
00310 1 00003 1 00311 FOK TXI *+1,1,3 CHECK ALL ENTRIES IN LIST
00311 3 00000 1 00302 TXH NSRCH+1,1,0 ..
00312 CHN CALL CHNCOM(0) EXIT TO CHNCOM
00312 0074 00 4 00407 TSX CHNCOM,4 .002
00313 3 00000 0 00000 PAR 0 .004
00314 BREAK CALL RESETF RESET ALL ACTIVE FILES
00314 0074 00 4 00410 TSX RESETF,4 .002
00315 0021 00 0 00312 XIT CHN AND EXIT TO CHNCOM
00316 PERR COMENT BADPAR,5,(ILLEGAL PARAMETER SEQUENCE.)
00316 0074 00 4 00372 TSX WRFLX,4 .003
00317 3 00005 0 00411 PAR BADPAR,,5 .005
00320 0021 00 0 00312 XIT CHN ..
00321 NONE COMENT NOFILS,6,(NO FILES SPECIFIED FOR EXTRACTION.)
00321 0074 00 4 00372 TSX WRFLX,4 .003
00322 3 00006 0 00416 PAR NOFILS,,6 .005
00323 0021 00 0 00312 XIT CHN ..
1 EXTBSS COMMAND FOR FOREGROUND. PAGE 8
STORAGE AND CONSTANTS.
00324 0 00000 0 00324 ICSW PZE *
00325 0 00000 0 00000 FOUND PZE
00326 0 00000 0 00000 ENDFIL PZE
00327 0 00000 0 00000 MODE PZE
00330 0 00000 0 00000 TEM PZE
00331 000000000000 NEWFIL VFD 36/0,O36/606057575757
00332 606057575757
00333 606060226262 OUT2 BCI 3, BSS CREATED.
00334 602351252163
00335 252433606060
00336 606060226262 IN2 BCI 1, BSS
00337 0 00000 0 00000 LIST PZE
00340 DUP 1,NFILS
00340 777777777777 VFD 36/-1,36/-1,O18/606060,H18/BSS
00341 777777777777
00342 606060226262
00343 777777777777
00344 777777777777
00345 606060226262
00346 777777777777
00347 777777777777
00350 606060226262
00351 777777777777
00352 777777777777
00353 606060226262
00354 777777777777
00355 777777777777
00356 606060226262
00357 777777777777
00360 777777777777
00361 606060226262
00362 777777777777
00363 777777777777
00364 606060226262
00365 777777777777
00366 777777777777
00367 606060226262
77426 COMMON 27
77426 CARD COMMON 1
77425 INFILE COMMON 2
77423 OUTFIL COMMON 2
00370 RMT * REMOTE SEQUENCES
00370 0101 00 0 00440 SETBRK TIA =HSETBRK .002
00371 0101 00 0 00431 GETCLS TIA =HGETCLS .002
00372 0101 00 0 00442 WRFLX TIA =HWRFLX .002
00373 634646604421 TOO BCI 5,TOO MANY FILES REQUESTED. .002
00374 457060263143
00375 256260512550
00376 642562632524
00377 336060606060
1 EXTBSS COMMAND FOR FOREGROUND. PAGE 9
STORAGE AND CONSTANTS.
00400 0101 00 0 00432 GETMEM TIA =HGETMEM .002
00401 0101 00 0 00441 SETMEM TIA =HSETMEM .002
00402 0101 00 0 00427 CHFILE TIA =HCHFILE .002
00403 254563517060 ENTRY BCI 4,ENTRY NOT FOUND. .002
00404 606060606060
00405 604546636026
00406 466445243360
00407 0101 00 0 00430 CHNCOM TIA =HCHNCOM .002
00410 0101 00 0 00434 RESETF TIA =HRESETF .002
00411 314343252721 BADPAR BCI 5,ILLEGAL PARAMETER SEQUENCE. .002
00412 436047215121
00413 442563255160
00414 622550642545
00415 232533606060
00416 454660263143 NOFILS BCI 6,NO FILES SPECIFIED FOR EXTRACTION. .002
00417 256260624725
00420 233126312524
00421 602646516025
00422 676351212363
00423 314645336060
END
LITERALS
00424 000000000000
00425 000000000660
00426 000037077777
00427 233026314325
00430 233045234644
00431 272563234362
00432 272563442544
00433 400000000000
00434 512562256326
00435 516060606060
00436 606060226262
00437 606060606013
00440 622563225142
00441 622563442544
00442 665126436760
00443 666060606060
00444 742631432534
00445 744421314534
1 EXTBSS COMMAND FOR FOREGROUND. PAGE 1
POST PROCESSOR ASSEMBLY DATA
77421 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
446 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
312 CHN 73, 315, 320, 323
217 ELP 231
272 EOF 127, 204
310 FOK 305
207 FPC 146
336 IN2 30, 121, 277
66 NEX 62
143 NOT 140
17 SQI 31
56 SQZ 27, 50
330 TEM 40, 43, 45, 60, 64
373 TOO 72
141 WRB 266
77426 CARD 15, 17, 34, 54, 217, 370
231 ECHK 216
213 GCNT 211
324 ICSW 132, 137, 143, 233, 263, 265
337 LIST 41, 44, 51, 65, 75, 201, 203, 223, 235, 241, 244, 302
327 MODE 160, 164, 167
321 NONE 74
116 OPNR 103, 105
253 OPNW 107, 111, 113
333 OUT2 151, 155, 163, 166, 175, 236, 250, 256
316 PERR 22
136 P.C. 131
74 SOUT 37, 57
212 SQCD 144
222 SRCH 76, 227
314 BREAK 13
2 DSKER 125, 152, 262, 300
403 ENTRY 303, 307
21 FENCE 20, 35, 55, 243, 304
325 FOUND 133, 136, 145, 200, 245, 273
0 LJUST 42, 63
126 NEXCD 135, 142, 234, 271
10 NFILS 12, 70, 340
173 NODEL 157
301 NSRCH 77, 206, 311
34 PARLP 52, 70
3 RDBSS 126
11 RSBSS 270
7 RSETB 207
12 START
10 SVBSS 232, 267
4 WRBSS 134, 141
372 WRFLX 71, 170, 306, 316, 321
36 (SQZ) 24, 46
411 BADPAR 317
5 BFCLOS 147, 275
1 BFOPEN 116, 253
1 EXTBSS COMMAND FOR FOREGROUND. PAGE 2
POST PROCESSOR ASSEMBLY DATA
402 CHFILE 161
407 CHNCOM 312
147 CLSOUT 274
6 DELETE 153, 173, 246
326 ENDFIL 205, 272
371 GETCLS 14
400 GETMEM 102
235 GOT.IT 225
77425 INFILE 23, 26, 120, 276, 370
331 NEWFIL 154, 165, 171, 242
416 NOFILS 322
32 NO.SQI 25
53 NO.SQO 47
77423 OUTFIL 101, 150, 162, 174, 240, 247, 255, 370
410 RESETF 314
370 SETBRK 12
401 SETMEM 115
0 NO ERROR IN ABOVE ASSEMBLY.
1 WRBSS - WRITE A BSS FILE. PAGE 1
NOEL I. MORRIS - 6/22/65
UNLIST
M CALL MACRO SUBR,LIST
00002 ENTRY WRBSS
TRANSFER VECTOR
00000 222666513163 BFWRIT
00001 246242255160 DSKER
00002 0634 00 4 00030 WRBSS SXA XR4,4 SAVE XRS
00003 0604 00 0 00033 STI SVSI AND SI
00004 0441 00 0 77426 LDI BUFF FIRST WORD IN SI
00005 -0046 00 0 00000 PIA LOOK AT FIRST WORD
00006 -0320 00 0 00035 ANA =O77000000 MASK OFF WORD COUNT
00007 -0734 00 4 00000 PDX ,4 WORD COUNT IN XR4
00010 -3 00000 4 00030 TXL XR4,4,0 DON'T WRITE ANYTHING IF WORD COUNT ZERO
00011 -0520 00 0 77422 NZT FNAM-1 CHECK FOR SQZBSS FILE
00012 0020 00 0 00017 TRA FIX ..
00013 -0500 00 0 00037 CAL =HSQZBSS SECONDARY NAME IS 'SQZBSS'
00014 -0056 00 200000 LNT 200000 CHECK FOR INSTRUCTION CARD
00015 1 00002 4 00021 TXI SLW,4,2 MUST BE PROGRAM CARD
00016 1 00004 4 00021 TXI SLW,4,4 INSTRUCTION CARD
00017 -0500 00 0 00036 FIX CAL =H BSS SECONDARY NAME IS 'BSS'
00020 0774 00 4 00034 AXT 28,4 RECORD LENGTH IS 28
00021 0602 00 0 00034 SLW SLW SNAM STORE SECONDARY NAME
00022 -0634 00 4 00026 SXD WRITE+3,4 STORE WORD COUNT
00023 WRITE CALL $BFWRIT(FNAM,SNAM,(BUFF,,**),$DSKER)
00023 0074 00 4 00000 TSX $BFWRIT,4 .002
00024 3 00000 0 77423 PAR FNAM .004
00025 3 00000 0 00034 PAR SNAM .004
00026 3 00000 0 77426 PAR BUFF,,** .004
00027 3 00000 0 00001 PAR $DSKER .004
00030 0774 00 4 00000 XR4 AXT **,4 RESTORE XRS
00031 0441 00 0 00033 LDI SVSI AND SI
00032 0020 00 4 00001 TRA 1,4 RETURN
00033 0 00000 0 00000 SVSI PZE
00034 0 00000 0 00000 SNAM PZE
77426 COMMON 27
77426 BUFF COMMON 3
77423 FNAM COMMON 2
1 WRBSS - WRITE A BSS FILE. PAGE 2
00035 RMT * REMOTE SEQUENCES
END
LITERALS
00035 000077000000
00036 606060226262
00037 625071226262
1 WRBSS - WRITE A BSS FILE. PAGE 1
POST PROCESSOR ASSEMBLY DATA
77421 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
40 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
17 FIX 12
21 SLW 15, 16
30 XR4 2, 10
77426 BUFF 4, 26, 35
77423 FNAM 11, 24, 35
34 SNAM 21, 25
33 SVSI 3, 31
1 DSKER 27
2 WRBSS 0
23 WRITE 22
0 BFWRIT 23
0 NO ERROR IN ABOVE ASSEMBLY.
1 SVBSS - SAVE AND RESTORE BSS CARD IMAGES. PAGE 1
9/12/65 - NOEL I. MORRIS
UNLIST
M CALL MACRO SUBR,LIST
00001 ENTRY SVBSS
00034 ENTRY RSBSS
00056 ENTRY RSETB
TRANSFER VECTOR
00000 665122626260 WRBSS
00034 CLTH EQU 28
00002 N EQU 2
1 SVBSS - SAVE AND RESTORE BSS CARD IMAGES. PAGE 2
SAVE BSS CARD IMAGES IN EXTENDED MEMORY.
00001 0634 00 4 00032 SVBSS SXA SV4,4 SAVE XR4
00002 0020 00 0 00003 SUBSQ TRA *+1 EXECUTE NEXT SECTION ONLY ONCE
00003 CALL GETMEM GET CURRENT MEMBND
00003 0074 00 4 00064 TSX GETMEM,4 .002
00004 -0765 00 0 00001 LGR 1 ROUND TO NEXT HIGHEST
00005 0760 00 0 00010 RND EVEN NUMBER
00006 0767 00 0 00001 ALS 1 FOR DLD INSTRUCTION
00007 0621 00 0 00016 STA BUFF SAVE CARD BUFFER ADDRESS
00010 0621 00 0 00040 STA RESET ..
00011 0361 00 0 00063 ACL LTH INCREASE TO INITIAL SIZE
00012 0734 00 4 00000 PAX ,4 ..
00013 -0634 00 4 00022 SXD MEMBND,4 SAVE FOR CHECKING
00014 EXTEND AND RESET THE MEMORY BOUND
00014 0074 00 4 00065 TSX SETMEM,4 .003
00015 -0625 00 0 00002 STL SUBSQ SET SWITCH TO SKIP INITIALIZATION
00016 0774 00 4 00000 BUFF AXT **,4 LAST CARD BUFFER ADDRESS
00017 1 00034 4 00020 TXI *+1,4,CLTH INCREASE
00020 0634 00 4 00016 SXA BUFF,4 SAVE NEW BUFFER ADDRESS
00021 0634 00 4 00030 SXA MOVIN,4 ..
00022 -3 00000 4 00026 MEMBND TXL NOXTND,4,** CHECK FOR MEMBND EXCEEDED
00023 -0634 00 4 00022 SXD MEMBND,4 NEED HIGHER MEMBND, SO
00024 0754 00 4 00000 PXA ,4 WE SET IT HIGHER
00025 EXTEND ..
00025 0074 00 4 00065 TSX SETMEM,4 .003
00026 0774 00 4 00034 NOXTND AXT CLTH,4 FAST MOVE LOOP
00027 0443 00 4 77462 DLD CARD+CLTH,4 ONLY 84 CYCLES FOR 1 CARD IMAGE
00030 -0603 00 4 00000 MOVIN DST **,4 ..
00031 2 00002 4 00027 TIX *-2,4,2 ..
00032 0774 00 4 00000 SV4 AXT **,4 RESTORE XR4
00033 0020 00 4 00001 TRA 1,4 AND RETURN
1 SVBSS - SAVE AND RESTORE BSS CARD IMAGES. PAGE 3
RESTORE AND WRITE OUT SAVED BSS CARDS.
00034 0634 00 4 00053 RSBSS SXA RX4,4 SAVE XRS
00035 0634 00 1 00054 SXA RX1,1 ..
00036 0534 00 4 00016 LXA BUFF,4 LAST BUFFER USED
00037 -0634 00 4 00043 SXD TXH,4 SAVE FOR CHECKING
00040 0774 00 1 00000 RESET AXT **,1 NOW RESET THE BUFFER STORE POINTER
00041 0634 00 1 00016 SXA BUFF,1 ..
00042 1 00034 1 00043 LOOP TXI *+1,1,CLTH STEP TO NEXT CARD
00043 3 00000 1 00053 TXH TXH ENDRS,1,** CHECK FOR ALL CARDS DONE
00044 0634 00 1 00046 SXA MOVOUT,1 STORE BUFFER ADDRESS
00045 0774 00 4 00034 AXT CLTH,4 FAST MOVE AGAIN
00046 0443 00 4 00000 MOVOUT DLD **,4 ..
00047 -0603 00 4 77462 DST CARD+CLTH,4 ..
00050 2 00002 4 00046 TIX MOVOUT,4,2 ..
00051 CALL $WRBSS WRITE OUT CARD
00051 0074 00 4 00000 TSX $WRBSS,4 .002
00052 0020 00 0 00042 TRA LOOP AND GO TO NEXT CARD
00053 ENDRS SYN *
00053 0774 00 4 00000 RX4 AXT **,4 RESTORE XRS
00054 0774 00 1 00000 RX1 AXT **,1 ..
00055 0020 00 4 00001 TRA 1,4 AND RETURN
1 SVBSS - SAVE AND RESTORE BSS CARD IMAGES. PAGE 4
RSETB - RESET THE BUFFERS FOR NEXT PROGRAM.
00056 0634 00 4 00061 RSETB SXA RSX4,4 SAVE XR4
00057 0534 00 4 00040 LXA RESET,4 GET RESET ADDRESS FOR BUFFER
00060 0634 00 4 00016 SXA BUFF,4 ..
00061 0774 00 4 00000 RSX4 AXT **,4 RESTORE XR4
00062 0020 00 4 00001 TRA 1,4 AND RETURN
1 SVBSS - SAVE AND RESTORE BSS CARD IMAGES. PAGE 5
STORAGE AND CONSTANTS.
00063 0 00000 0 00070 LTH PZE N*CLTH
77426 COMMON 27
77426 CARD COMMON 1
00064 RMT * REMOTE SEQUENCES.
00064 0101 00 0 00066 GETMEM TIA =HGETMEM .002
00065 0101 00 0 00067 SETMEM TIA =HSETMEM .002
END
LITERALS
00066 272563442544
00067 622563442544
1 SVBSS - SAVE AND RESTORE BSS CARD IMAGES. PAGE 1
POST PROCESSOR ASSEMBLY DATA
77425 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
70 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
2 N 1, 63
63 LTH 11
54 RX1 35
53 RX4 34
32 SV4 1
43 TXH 37
16 BUFF 7, 20, 36, 41, 60
77426 CARD 27, 47, 64
34 CLTH 1, 17, 26, 27, 42, 45, 47, 63
42 LOOP 52
61 RSX4 56
53 ENDRS 43, 53
30 MOVIN 21
40 RESET 10, 57
34 RSBSS 0
56 RSETB 0
2 SUBSQ 15
1 SVBSS 0
0 WRBSS 51
64 GETMEM 3
22 MEMBND 13, 23
46 MOVOUT 44, 50
26 NOXTND 22
65 SETMEM 14, 25
0 NO ERROR IN ABOVE ASSEMBLY.
1 RDBSS - BSS FILE READING ROUTINE. PAGE 1
NOEL I. MORRIS - 6/21/65
UNLIST
M CALL MACRO SUBR,LIST
00003 ENTRY RDBSS
TRANSFER VECTOR
00000 222651252124 BFREAD
00001 246242255160 DSKER
00002 462321222360 OCABC
00003 0634 00 4 00073 RDBSS SXA XR4,4 SAVE XRS
00004 0520 00 0 77424 WZERO ZET FILN-1 CHECK FOR SQZBSS FILE
00005 0020 00 0 00017 TRA SQZ ..
00006 CALL $BFREAD(FILN,BSS(BUFF,,28)EOF,EOFCT,$DSKER)
00006 0074 00 4 00000 TSX $BFREAD,4 .002
00007 3 00000 0 77425 PAR FILN .004
00010 3 00000 0 00114 PAR BSS .004
00011 3 00034 0 77426 PAR BUFF,,28 .004
00012 3 00000 0 00111 PAR EOF .004
00013 3 00000 0 00113 PAR EOFCT .004
00014 3 00000 0 00001 PAR $DSKER .004
00015 0441 00 0 77426 LDI BUFF GET FIRST WORD IN SI
00016 0020 00 0 00050 TRA CHECK GO CHECK CHECKSUM
00017 0774 00 4 00034 SQZ AXT 28,4 ZERO OUT THE READ BUFFER
00020 0600 00 4 77462 STZ BUFF+28,4 ..
00021 2 00001 4 00020 TIX *-1,4,1 ..
00022 CALL $BFREAD(FILN,=HSQZBSS(BUFF,,1)EOF,EOFCT,$DSKER)
00022 0074 00 4 00000 TSX $BFREAD,4 .002
00023 3 00000 0 77425 PAR FILN .004
00024 3 00000 0 00134 PAR =HSQZBSS .004
00025 3 00001 0 77426 PAR BUFF,,1 .004
00026 3 00000 0 00111 PAR EOF .004
00027 3 00000 0 00113 PAR EOFCT .004
00030 3 00000 0 00001 PAR $DSKER .004
00031 0441 00 0 77426 LDI BUFF GET FIRST WORD IN SI
00032 -0046 00 0 00000 PIA IN AC
00033 -0320 00 0 00130 ANA =O77000000 MASK WORDCOUNT
00034 -0734 00 4 00000 PDX ,4 WORDCOUNT IN XR4
00035 -0056 00 200000 LNT 200000 CHECK FOR REL. BIN CARD
00036 1 00001 4 00040 TXI *+2,4,1 MUST BE A PROGRAM CARD
00037 1 00003 4 00040 TXI *+1,4,3 RELOCATABLE INSTRUCTION CARD
00040 -0634 00 4 00044 SXD VRR+3,4 STORE FOR READING REST OF CARD
00041 VRR CALL $BFREAD(FILN,=HSQZBSS(BUFF+1,,**)EOF,EOFCT,$DSKER)
00041 0074 00 4 00000 TSX $BFREAD,4 .002
00042 3 00000 0 77425 PAR FILN .004
00043 3 00000 0 00134 PAR =HSQZBSS .004
1 RDBSS - BSS FILE READING ROUTINE. PAGE 2
00044 3 00000 0 77427 PAR BUFF+1,,** .004
00045 3 00000 0 00111 PAR EOF .004
00046 3 00000 0 00113 PAR EOFCT .004
00047 3 00000 0 00001 PAR $DSKER .004
00050 -0046 00 0 00000 CHECK PIA FIRST WORD IN AC
00051 -0320 00 0 00130 ANA =O77000000 MASK THE WORD COUNT
00052 -0734 00 4 00000 PDX ,4 WORD COUNT IN XR4
00053 -3 00000 4 00004 TXL WZERO,4,0 TRY AGAIN IF WORD COUNT ZERO
00054 -0056 00 400000 LNT 400000 CHECK FOR PROGRAM CARD
00055 0020 00 0 00062 TRA *+5 ..
00056 -0500 00 0 77432 CAL BUFF+4 GET ENTRY NAME
00057 -0100 00 0 00061 TNZ *+2 CHECK FOR MAIN PROGRAM
00060 -0500 00 0 00136 CAL =H(MAIN) SET ENTRY TO '(MAIN)'
00061 0602 00 0 00121 SLW PGN ..
00062 -0056 00 100000 LNT 100000 CHECK FOR IGNORE CHECKSUM PUNCH
00063 -0520 00 0 77427 NZT BUFF+1 ALSO BLANK CHECKSUM
00064 0020 00 0 00073 TRA IGCHK
00065 0774 00 4 00026 AXT 22,4 ADD UP CHECKSUM
00066 -0500 00 0 77426 CAL BUFF ..
00067 0361 00 4 77456 ACL BUFF+24,4 ..
00070 2 00001 4 00067 TIX *-1,4,1 ..
00071 0322 00 0 77427 ERA BUFF+1 XOR IN THE CHECKSUM TO COMPARE
00072 -0100 00 0 00075 TNZ CHKERR NON-ZERO ON ERROR
00073 IGCHK SYN *
00073 0774 00 4 00000 XR4 AXT **,4 RESTORE XRS
00074 0020 00 4 00002 TRA 2,4 RETURN
00075 -0054 00 400000 CHKERR LFT 400000 CHECK FOR PROG. CARD
00076 0020 00 0 00106 TRA P.C. ..
00077 CALL $OCABC(BUFF) CONVERT LOAD ADDRESS TO OCTAL BCD
00077 0074 00 4 00002 TSX $OCABC,4 .002
00100 3 00000 0 77426 PAR BUFF .004
00101 0560 00 0 00133 LDQ =H BLANK OUT SECOND WORD
00102 -0603 00 0 00125 DST DST MSG+8 STORE INTO MESSAGE
00103 CALL WRFLX((MSG,,10)) PRINT ERROR MESSAGE
00103 0074 00 4 00127 TSX WRFLX,4 .002
00104 3 00012 0 00115 PAR MSG,,10 .004
00105 0020 00 0 00073 TRA IGCHK KEEP GOING
00106 0500 00 0 00132 P.C. CLA =HPROGRA SET LOAD ADDRESS TO
00107 0560 00 0 00131 LDQ =HM CARD 'PROGRAM CARD'
00110 0020 00 0 00102 TRA DST ..
00111 EOF SYN *
00111 0522 00 0 00073 XEC XR4 AND XRS
00112 0020 60 4 00001 TRA* 1,4 EOF RETURN
1 RDBSS - BSS FILE READING ROUTINE. PAGE 3
00113 0 00000 0 00000 EOFCT PZE
00114 606060226262 BSS BCI 1, BSS
00115 233025234262 MSG BCI 4,CHECKSUM ERROR IN PROG.
00116 644460255151
00117 465160314560
00120 475146273360
00121 0 00000 0 00000 PGN PZE
00122 736043462124 BCI 2,, LOAD ADDRE
00123 602124245125
00124 626260135757 VFD H12/SS,O6/60,H6/=,O12/5757
00125 BSS 2
77426 COMMON 27
77426 BUFF COMMON 1
77425 FILN COMMON 2
00127 RMT * REMOTE SEQUENCES
00127 0101 00 0 00135 WRFLX TIA =HWRFLX .002
END
LITERALS
00130 000077000000
00131 446023215124
00132 475146275121
00133 606060606060
00134 625071226262
00135 665126436760
00136 744421314534
1 RDBSS - BSS FILE READING ROUTINE. PAGE 1
POST PROCESSOR ASSEMBLY DATA
77423 IS THE LAST LOCATION NOT USED BY THIS PROGRAM
137 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
114 BSS 10
102 DST 110
111 EOF 12, 26, 45, 111
115 MSG 102, 104
121 PGN 61
17 SQZ 5
41 VRR 40
73 XR4 3, 111
77426 BUFF 11, 15, 20, 25, 31, 44, 56, 63, 66, 67, 71, 100, 127
77425 FILN 4, 7, 23, 42, 127
106 P.C. 76
50 CHECK 16
1 DSKER 14, 30, 47
113 EOFCT 13, 27, 46
73 IGCHK 64, 73, 105
2 OCABC 77
3 RDBSS 0
127 WRFLX 103
4 WZERO 53
0 BFREAD 6, 22, 41
75 CHKERR 72
0 NO ERROR IN ABOVE ASSEMBLY.
1 DELETE ALL VERSIONS OF AN OLD FILE. PAGE 1
NOEL I. MORRIS - 6/22/65
UNLIST
M CALL MACRO SUBR,LIST
00001 ENTRY DELETE
00000 462351222360 OCRBC
00001 0634 00 4 00035 DELETE SXA XR4,4 SAVE XRS
00002 0604 00 0 00125 STI SVSI SAVE SI
00003 0600 00 0 00122 STZ MODE SET MODE TO 'P'
00004 -0500 60 4 00001 CAL* 1,4 GET FILE NAME
00005 0602 00 0 00107 SLW FNAM ..
00006 -0500 60 4 00002 CAL* 2,4 ..
00007 0602 00 0 00111 SLW FNAM+2 ..
00010 -0500 60 4 00003 CAL* 3,4 GET DELETION PRINT SWITCH
00011 0602 00 0 00124 SLW PSW ..
00012 CALL FSTATE(FNAM,FNAM+2(BUFF,,2)FSERR,ERCODE)
00012 0074 00 4 00126 TSX FSTATE,4 .002
00013 3 00000 0 00107 PAR FNAM .004
00014 3 00000 0 00111 PAR FNAM+2 .004
00015 3 00002 0 00121 PAR BUFF,,2 .004
00016 3 00000 0 00070 PAR FSERR .004
00017 3 00000 0 00123 PAR ERCODE .004
00020 0441 00 0 00122 LDI MODE GET MODE BITS
00021 -0054 00 400000 LFT 400000 CHECK FOR LINKED FILE
00022 0020 00 0 00073 TRA LINKD IS LINKED, WILL NOT DELETE
00023 0054 00 000134 RFT 134 CHECK FOR READ-ONLY/PROTECTED, ETC.
00024 0020 00 0 00040 TRA ASK PROTECTED, ASK FOR DELETE
00025 DEL CALL DELFIL(FNAM,FNAM+2,NODEL)
00025 0074 00 4 00127 TSX DELFIL,4 .002
00026 3 00000 0 00107 PAR FNAM .004
00027 3 00000 0 00111 PAR FNAM+2 .004
00030 3 00000 0 00075 PAR NODEL .004
00031 0520 00 0 00124 ZET PSW CHECK FOR DELETION PRINT
00032 CALL WRFLX((DTOF,,6)) PRINT DELETION COMMENT
00032 0074 00 4 00130 TSX WRFLX,4 .002
00033 3 00006 0 00104 PAR DTOF,,6 .004
00034 -0500 00 0 00122 GONE CAL MODE GET THE MODE
00035 0774 00 4 00000 XR4 AXT **,4 RESTORE XRS
00036 0441 00 0 00125 LDI SVSI AND THE SI
00037 0020 00 4 00005 TRA 5,4 RETURN
1 DELETE ALL VERSIONS OF AN OLD FILE. PAGE 2
00040 ASK CALL $OCRBC(MODE) CONVERT TO BCD
00040 0074 00 4 00000 TSX $OCRBC,4 .002
00041 3 00000 0 00122 PAR MODE .004
00042 -0501 00 0 00151 ORA =O605757000000 MASK PROPERLY
00043 0602 00 0 00112 SLW BCMODE AND STORE IN COMMENT
00044 CALL WRFLXA((FNAM-1,,11))
00044 0074 00 4 00131 TSX WRFLXA,4 .002
00045 3 00013 0 00106 PAR FNAM-1,,11 .004
00046 CALL RDFLXA((BUFF,,1))
00046 0074 00 4 00132 TSX RDFLXA,4 .002
00047 3 00001 0 00121 PAR BUFF,,1 .004
00050 -0500 00 0 00121 CAL BUFF LOOK AT ANSWER
00051 0771 00 0 00022 ARS 18 ..
00052 0322 00 0 00143 ERA =H000YES CHECK FOR SPECIFIC 'YES'
00053 -0100 00 0 00075 TNZ NODEL NON-ZERO IF 'NO' OR GARBAGE
00054 CALL CHFILE(FNAM,FNAM+2,=1,=-0,=-0,NODEL)
00054 0074 00 4 00133 TSX CHFILE,4 .002
00055 3 00000 0 00107 PAR FNAM .004
00056 3 00000 0 00111 PAR FNAM+2 .004
00057 3 00000 0 00141 PAR =1 .004
00060 3 00000 0 00147 PAR =-0 .004
00061 3 00000 0 00147 PAR =-0 .004
00062 3 00000 0 00075 PAR NODEL .004
00063 CALL DELFIL(FNAM,FNAM+2,NODEL) DELETE IT NOW
00063 0074 00 4 00127 TSX DELFIL,4 .002
00064 3 00000 0 00107 PAR FNAM .004
00065 3 00000 0 00111 PAR FNAM+2 .004
00066 3 00000 0 00075 PAR NODEL .004
00067 0020 00 0 00034 TRA GONE ..
00070 -0500 00 0 00123 FSERR CAL ERCODE GET FSTATE ERROR CODE
00071 0402 00 0 00142 SUB =3 ANYTHING ELSE THAN 3
00072 0100 00 0 00034 TZE GONE IS A LINK ERROR
00073 LINKD COMENT LNKMSG,3,(FILE IS A LINK.),A
00073 0074 00 4 00131 TSX WRFLXA,4 .003
00074 3 00003 0 00134 PAR LNKMSG,,3 .005
DO NOT DELETE A LINK
00075 NODEL CALL WRFLXA((FNAM,,3))
00075 0074 00 4 00131 TSX WRFLXA,4 .002
00076 3 00003 0 00107 PAR FNAM,,3 .004
00077 COMENT NOT,2,( NOT DELETED)
00077 0074 00 4 00130 TSX WRFLX,4 .003
00100 3 00002 0 00137 PAR NOT,,2 .005
00101 0522 00 0 00035 XEC XR4 RESTORE XRS
00102 0441 00 0 00125 LDI SVSI AND SI
00103 0020 60 4 00004 TRA* 4,4 ERROR RETURN
1 DELETE ALL VERSIONS OF AN OLD FILE. PAGE 3
00104 242543256325 DTOF BCI 3,DELETED THE OLDER
00107 000000000000 FNAM VFD 36/0,O36/576057575757,36/0
00112 606060606060 BCMODE BCI 6, MODE. DO YOU WANT TO DELETE I
00120 637360605757 VFD H6/T,O30/7360605757
00121 0 00000 0 00000 BUFF PZE
00122 0 00000 0 00000 MODE PZE
00123 0 00000 0 00000 ERCODE PZE
00124 0 00000 0 00000 PSW PZE
00125 0 00000 0 00000 SVSI PZE
00126 RMT * REMOTE SEQUENCES
00126 0101 00 0 00146 FSTATE TIA =HFSTATE .002
00127 0101 00 0 00145 DELFIL TIA =HDELFIL .002
00130 0101 00 0 00153 WRFLX TIA =HWRFLX .002
00131 0101 00 0 00152 WRFLXA TIA =HWRFLXA .002
00132 0101 00 0 00150 RDFLXA TIA =HRDFLXA .002
00133 0101 00 0 00144 CHFILE TIA =HCHFILE .002
00134 263143256031 LNKMSG BCI 3,FILE IS A LINK. .002
00137 604546636024 NOT BCI 2, NOT DELETED .002
END
LITERALS
00141 000000000001
00142 000000000003
00143 000000702562
00144 233026314325
00145 242543263143
00146 266263216325
00147 400000000000
00150 512426436721
00151 605757000000
00152 665126436721
00153 665126436760
1 DELETE ALL VERSIONS OF AN OLD FILE. PAGE 1
POST PROCESSOR ASSEMBLY DATA
154 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
40 ASK 24
25 DEL
137 NOT 100
124 PSW 11, 31
35 XR4 1, 101
121 BUFF 15, 47, 50
104 DTOF 33
107 FNAM 5, 7, 13, 14, 26, 27, 45, 55, 56, 64, 65, 76
34 GONE 67, 72
122 MODE 3, 20, 34, 41
125 SVSI 2, 36, 102
70 FSERR 16
73 LINKD 22
75 NODEL 30, 53, 62, 66
0 OCRBC 40
130 WRFLX 32, 77
112 BCMODE 43
133 CHFILE 54
1 DELETE 0
127 DELFIL 25, 63
123 ERCODE 17, 70
126 FSTATE 12
134 LNKMSG 74
132 RDFLXA 46
131 WRFLXA 44, 73, 75
0 NO ERROR IN ABOVE ASSEMBLY.
1 DISK ERROR SUBROUTINE - CALLS PRNTER VIA NEXCOM. PAGE 1
REVISED 9/14/65 - NOEL I. MORRIS
UNLIST
M CALL MACRO SUBR,LIST
00000 ENTRY DSKER
00000 -0500 00 0 00006 DSKER CAL =HPRNTER
00001 0560 00 0 00004 LDQ =O-71
00002 CALL NEXCOM
00002 0074 00 4 00003 TSX NEXCOM,4 .002
00003 RMT * REMOTE SEQUENCES
00003 0101 00 0 00005 NEXCOM TIA =HNEXCOM .002
END
LITERALS
00004 400000000071
00005 452567234644
00006 475145632551
1 DISK ERROR SUBROUTINE - CALLS PRNTER VIA NEXCOM. PAGE 1
POST PROCESSOR ASSEMBLY DATA
7 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM
0REFERENCES TO DEFINED SYMBOLS
0 DSKER 0
3 NEXCOM 2
0 NO ERROR IN ABOVE ASSEMBLY.