mirror of
https://github.com/rcornwell/ctss.git
synced 2026-01-12 00:02:48 +00:00
27537 lines
2.4 MiB
27537 lines
2.4 MiB
|
|
|
|
|
|
|
|
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.
|