␣␣␣␣9L = 271
  1. Definition
    00417 0 00000 0 00000 2509L
  2. References (7)
    00253−0 70000 0 00417 150CAD9L
    00257 0 50000 0 00417 154CLA9L
    00264 0 50000 0 00417 159CLA9L
    00316 0 50000 0 00417 185CLA9L
    00340 0 36100 0 00417 203CHSTST ACL9L
    00354 0 70000 0 00417 215CPY9L
    00400 0 50000 0 00417 235CLA9L
␣␣␣␣9R = 272
  1. Definition
    00420 0 00000 0 00000 2519R
  2. References (6)
    00256 0 70000 0 00420 153CPY9R CPY9R
    00323 0 50000 0 00420 190CLA9R
    00330 0 60200 0 00420 195NORM SLW9R
    00331−0 50000 0 00420 196CAL9R
    00344 0 50000 0 00420 207CLA9R
    00356 0 70000 0 00420 217CPY9R
␣␣␣␣XR = 246
  1. Definition
    00366−0 63400 4 00357 225XR SXDRETURN,4
  2. Reference
    D00357−3 00000 0 00366 218RETURN TXLXR,0
␣␣␣9LB = 273
  1. Definition
    00421 0 00000 0 00000 2529LB
  2. References (4)
    00305 0 60000 0 00421 176STZ9LB,0,STZ
    00317 0 40000 0 00421 186ADD9LB
    00320 0 60100 0 00421 187STO9LB
    00362 0 70000 0 00421 221CPY9LB
␣␣␣9RB = 274
  1. Definition
    00422 0 00000 0 00000 2539RB
  2. References (4)
    00306 0 60000 0 00422 177STZ9RB,0,STZ
    00332 0 36100 0 00422 197ACL9RB
    00333 0 60200 0 00422 198SLW9RB
    00365 0 70000 0 00422 224CPY9RB
␣␣␣CHS = 268
  1. Definition
    00414 0 00000 0 00000 247CHS
  2. References (2)
    00341 0 60200 0 00414 204SLWCHS
    00345 0 34000 0 00414 208CASCHS
␣␣␣CPY = 248
  1. Definition
    00370 0 70000 4 00370 227CPY CPY*,4
  2. References (6)
    00352 0 62100 0 00370 213STACPY
    00353−0 63400 2 00372 214SXDCPY+2,2
    00361 0 62100 0 00370 220STACPY
    00363−0 63400 1 00372 222SXDCPY+2,1
    00371 1 77777 4 00372 228TXICPY+2,4,−1
    00372 3 00372 4 00370 229TXHCPY,4,*
␣␣␣RCD = 170
  1. Definition
    00252 0 76200 0 00321 149RCD RCD
  2. References (2)
    00307 0 02000 0 00252 178TRARCD
    00334 0 02000 0 00252 199TRARCD
␣␣␣STZ = 24576
  1. Definition
    60000 285STZ EQU24576
  2. References (2)
    00305 0 60000 0 00421 176STZ9LB,0,STZ
    00306 0 60000 0 00422 177STZ9RB,0,STZ
␣␣CHER = 221
  1. Definition
    00335 0 50000 0 00424 200CHER CLAL(1)
  2. Reference
    00322 0 10000 0 00335 189TZECHER
␣␣EXIT = 262
  1. Definition
    00406 0 76200 0 00321 241EXIT RCD PULL IN FNDE2
  2. References (2)
    00255 0 02000 0 00406 152TRAEXIT EOF
    00260 0 10000 0 00406 155TZEEXIT
␣␣HOLD = 278
  1. Definition
    00426 0 00000 0 00000 257HOLD
  2. References (2)
    00377 0 60200 0 00426 234RELBIN SLWHOLD
    00404−0 50000 0 00426 239CALHOLD
␣␣L(0) = 269
  1. Definition
    00415 0 00000 0 00000 248L(0)
  2. References (4)
    00250 0 53400 3 00415 147EXIT1 LXAL(0),3
    00355 0 53400 2 00415 216LXAL(0),2
    00364 0 53400 1 00415 223LXAL(0),1
    00367 0 53400 4 00415 226LXAL(0),4
␣␣L(1) = 276
  1. Definition
    00424+377777777777 255L(1) OCT377777777777
  2. References (2)
    00325 0 36100 0 00424 192ACLL(1)
    00335 0 50000 0 00424 200CHER CLAL(1)
␣␣NAME = 270
  1. Definition
    00416 256747740360 249NAME BCD1EXP(3␣
  2. Reference
    00243 0 40200 0 00416 142SUBNAME
␣␣NORM = 216
  1. Definition
    00330 0 60200 0 00420 195NORM SLW9R
  2. References (2)
    00326 0 02000 0 00330 193TRANORM
    00337 0 02000 0 00331 202TRANORM+1
␣␣TRAN = 277
  1. Definition
    00425 0 02000 0 00377 256TRAN TRARELBIN
  2. Reference
    00245−0 50000 0 00425 144CALTRAN
␣CPY9R = 174
  1. Definition
    00256 0 70000 0 00420 153CPY9R CPY9R
  2. References (2)
    00254 0 02000 0 00256 151TRACPY9R
    00263 1 00001 4 00264 158TXICPY9R+6,4,1
␣DUMMY = 299
  1. Definition
    00453 289DUMMY SYN299
  2. References (6)
    00054 0 70000 0 00453 23DUP040 CPYDUMMY
    00061 0 34000 0 00453 28CASDUMMY
    00126 0 70000 0 00453 65DUP130 CPYDUMMY
    00133 0 34000 0 00453 70CASDUMMY
    00225 0 70000 0 00453 128DUP240 CPYDUMMY
    00232 0 34000 0 00453 133CASDUMMY
␣ERASE = 275
  1. Definition
    00423 0 00000 0 00000 254ERASE HTR0
  2. References (4)
    00251 0 60000 0 00423 148STZERASE
    00273 0 60000 0 00423 166STZERASE
    00321 0 50000 0 00423 188CLAERASE
    00336 0 60100 0 00423 201STOERASE
␣EXIT1 = 168
  1. Definition
    00250 0 53400 3 00415 147EXIT1 LXAL(0),3
  2. Reference
    00403 0 02000 0 00250 238TRAEXIT1 RECORD IS THE 1ST CONTROL CARD OF GEN. LIB.
␣WRBIN = 240
  1. Definition
    00360 0 50000 0 00412 219WRBIN CLAL(BIN)
  2. Reference
    00302 0 07400 4 00360 173TSXWRBIN,4
␣WRREL = 233
  1. Definition
    00351 0 50000 0 00413 212WRREL CLAL(REL)
  2. References (2)
    00304 0 07400 4 00351 175TSXREL TSXWRREL,4
    00350 0 02000 0 00346 211TRAWRREL−3
BINARY = 200
  1. Definition
    T00310−0 75400 0 00000 179BINARY PXD
  2. Reference
    00267 0 02000 0 00310 162TRABINARY CARD
BINREG = 326
  1. Definition
    00506 284BINREG BSS1
  2. References (2)
    00311−0 70000 1 00506 180CPABIN CADBINREG,1
    00412 0 00000 0 00506 245L(BIN) BINREG
CHSIGN = 215
  1. Definition
    00327 0 76000 0 00003 194CHSIGN SSP
  2. Reference
    00324−0 12000 0 00327 191TMICHSIGN
CHSTST = 224
  1. Definition
    00340 0 36100 0 00417 203CHSTST ACL9L
  2. References (2)
    00277 0 07400 4 00340 170TSXCHSTST,4
    00315 0 07400 4 00340 184TSXCHSTST,4
CPABIN = 201
  1. Definition
    00311−0 70000 1 00506 180CPABIN CADBINREG,1
  2. Reference
    00314 3 00000 4 00311 183TXHBIN TXHCPABIN,4,0
CPAREL = 188
  1. Definition
    00274−0 70000 2 00460 167CPAREL CADRELREG,2
  2. References (2)
    00270 1 77776 4 00272 163TXICPAREL−2,4,−2
    00276 3 00276 2 00274 169TXHREL TXHCPAREL,2,*
DUP000 = 24
  1. Definition
    00030 0 77200 0 00225 3DUP000 REWSOURCE GENERAL LIBRARIAN
  2. References (5)
    00043 0 00000 0 00030 14HTRDUP000 RTT ERROR-- TRY AGAIN
    00062 0 00000 0 00030 29HTRDUP000 WORD COMP. FAILS-READING
    00064 0 00000 0 00030 31HTRDUP000 FROM OBJECT
    00070 0 00000 0 00030 35HTRDUP000 RTT ERROR READING BACK OBJECT 1-CS
    00427 0 00000 0 00030 258DUP280 HTRDUP000
DUP010 = 30
  1. Definition
    00036 0 70000 1 00507 9DUP010 CPYRECORD+27,1
  2. Reference
    00037 1 77777 1 00036 10TXIDUP010,1,−1
DUP020 = 32
  1. Definition
    00040 0 00033 0 00000 11DUP020 HTR0,0,27 MACHINE ERROR
  2. Reference
    00034−0 53400 7 00040 7LXDDUP020,7 INITIALIZE INDEX REGISTERS TO 27
DUP030 = 37
  1. Definition
    00045 0 70000 2 00507 16DUP030 CPYRECORD+27,2
  2. Reference
    00046 2 00001 2 00045 17TIXDUP030,2,1
DUP031 = 41
  1. Definition
    00051 3 00000 0 00156 20DUP031 TXHDUP170,0,0
  2. References (5)
    00071−0 53400 7 00051 36DUP070 LXDDUP031,7 INITIALIZE INDEX REG TO 0
    00153 0 50000 0 00051 86CLADUP031
    00165−0 53400 7 00051 96DUP180 LXDDUP031,7 INITIALIZE INDEX REG TO 0
    00434−0 53400 4 00051 263DUP310 LXDDUP031,4
    00452−0 53400 4 00051 277DUP360 LXDDUP031,4
DUP040 = 44
  1. Definition
    00054 0 70000 0 00453 23DUP040 CPYDUMMY
  2. Reference
    00063 1 77777 4 00054 30TXIDUP040,4,−1
DUP050 = 48
  1. Definition
    00060 0 50000 4 00507 27DUP050 CLARECORD+27,4
  2. Reference
    00055 0 02000 0 00060 24TRADUP050
DUP060 = 53
  1. Definition
    00065 3 00000 4 00427 32DUP060 TXHDUP280,4,0 ERROR-INCOMPLETE OBJECT RECORD
  2. Reference
    00057 0 02000 0 00065 26TRADUP060 EOR
DUP070 = 57
  1. Definition
    00071−0 53400 7 00051 36DUP070 LXDDUP031,7 INITIALIZE INDEX REG TO 0
  2. References (4)
    00143 0 02000 0 00071 78TRADUP070
    00155 0 02000 0 00071 88TRADUP070
    00433 0 02000 0 00071 262TRADUP070
    00443 0 02000 0 00071 270TRADUP070
DUP071 = 59
  1. Definition
    00073 0 76200 0 00225 38DUP071 RDSSOURCE READ SOURCE 1ST/2ND FILE RECORD -
  2. Reference
    00447 0 02000 0 00073 274TRADUP071
DUP080 = 62
  1. Definition
    00076 0 02000 0 00144 41DUP080 TRADUP160 EOF
  2. Reference
    00154 0 62100 0 00076 87STADUP080
DUP090 = 64
  1. Definition
    00100−0 70000 1 00454 43DUP090 CADRECORD,1
  2. References (2)
    00075 1 77777 1 00100 40TXIDUP090,1,−1
    00101 1 77777 1 00100 44TXIDUP090,1,−1
DUP100 = 72
  1. Definition
    00110 0 76600 0 00333 51DUP100 IOD
  2. Reference
    00106 0 10000 0 00110 49TZEDUP100
DUP110 = 78
  1. Definition
    00116 0 70000 2 00454 57DUP110 CPYRECORD,2
  2. Reference
    00120 3 00000 2 00116 59DUP120 TXHDUP110,2,**
DUP120 = 80
  1. Definition
    00120 3 00000 2 00116 59DUP120 TXHDUP110,2,**
  2. References (2)
    00113−0 63400 1 00120 54SXDDUP120,1
    00117 1 77777 2 00120 58TXIDUP120,2,−1
DUP121 = 81
  1. Definition
    00121 0 76600 0 00333 60DUP121 IOD
  2. Reference
    00435 0 02000 0 00121 264TRADUP121
DUP130 = 86
  1. Definition
    00126 0 70000 0 00453 65DUP130 CPYDUMMY
  2. Reference
    00135 1 77777 4 00126 72TXIDUP130,4,−1
DUP140 = 90
  1. Definition
    00132 0 50000 4 00454 69DUP140 CLARECORD,4
  2. Reference
    00127 0 02000 0 00132 66TRADUP140
DUP150 = 95
  1. Definition
    00137 3 00000 4 00436 74DUP150 TXHDUP320,4,** ERROR-INCOMPLETE OBJECT RECORD
  2. References (2)
    00114−0 63400 1 00137 55SXDDUP150,1
    00131 0 02000 0 00137 68TRADUP150 EOR
DUP160 = 100
  1. Definition
    00144 0 76600 0 00333 79DUP160 IOD
  2. Reference
    00076 0 02000 0 00144 41DUP080 TRADUP160 EOF
DUP170 = 110
  1. Definition
    00156 0 76600 0 00333 89DUP170 IOD
  2. Reference
    00051 3 00000 0 00156 20DUP031 TXHDUP170,0,0
DUP171 = 114
  1. Definition
    00162 0 76600 0 00333 93DUP171 IOD
  2. References (2)
    00451 0 02000 0 00162 276TRADUP171
    00457 0 02000 0 00162 282TRADUP171
DUP180 = 117
  1. Definition
    00165−0 53400 7 00051 96DUP180 LXDDUP031,7 INITIALIZE INDEX REG TO 0
  2. References (2)
    00244−0 10000 0 00165 143TNZDUP180
    00247 0 02000 0 00165 146TRADUP180
DUP181 = 119
  1. Definition
    00167 0 76200 0 00225 98DUP181 RDSSOURCE READ SOURCE 3RD FILE RECORD
DUP190 = 124
  1. Definition
    00174 0 70000 1 00454 103DUP190 CPYRECORD,1 CPY CKSM INTO RECORD+1
  2. Reference
    00171 1 77777 1 00174 100TXIDUP190,1,−1
DUP200 = 126
  1. Definition
    00176−0 70000 1 00454 105DUP200 CADRECORD,1
  2. References (2)
    00175 1 77777 1 00176 104TXIDUP200,1,−1
    00177 1 77777 1 00176 106TXIDUP200,1,−1
DUP210 = 135
  1. Definition
    00207 0 76600 0 00333 114DUP210 IOD
  2. Reference
    00205 0 10000 0 00207 112TZEDUP210
DUP220 = 141
  1. Definition
    00215 0 70000 2 00454 120DUP220 CPYRECORD,2
  2. Reference
    00217 3 00000 2 00215 122DUP230 TXHDUP220,2,**
DUP230 = 143
  1. Definition
    00217 3 00000 2 00215 122DUP230 TXHDUP220,2,**
  2. References (2)
    00212−0 63400 1 00217 117SXDDUP230,1
    00216 1 77777 2 00217 121TXIDUP230,2,−1
DUP231 = 144
  1. Definition
    00220 0 76600 0 00333 123DUP231 IOD
  2. Reference
    00453 0 02000 0 00220 278TRADUP231
DUP240 = 149
  1. Definition
    00225 0 70000 0 00453 128DUP240 CPYDUMMY
  2. Reference
    00234 1 77777 4 00225 135TXIDUP240,4,−1
DUP250 = 153
  1. Definition
    00231 0 50000 4 00454 132DUP250 CLARECORD,4
  2. Reference
    00226 0 02000 0 00231 129TRADUP250
DUP260 = 158
  1. Definition
    D00236 3 00000 4 00454 137DUP260 TXHDUP370,4
  2. References (2)
    00213−0 63400 1 00236 118SXDDUP260,1
    00230 0 02000 0 00236 131TRADUP260 EOR
DUP280 = 279
  1. Definition
    00427 0 00000 0 00030 258DUP280 HTRDUP000
  2. Reference
    00065 3 00000 4 00427 32DUP060 TXHDUP280,4,0 ERROR-INCOMPLETE OBJECT RECORD
DUP290 = 280
  1. Definition
    00430−0 76000 0 00012 259DUP290 RTT
  2. Reference
    00107 0 00000 0 00430 50HTRDUP290 CKSM FAILS READING SOURCE 1ST/2ND FILE
DUP300 = 282
  1. Definition
    00432 0 76400 0 00225 261DUP300 BSTSOURCE
  2. Reference
    00112 0 00000 0 00432 53HTRDUP300 RTT ERROR-BST AND TRY AGAIN
DUP310 = 284
  1. Definition
    00434−0 53400 4 00051 263DUP310 LXDDUP031,4
  2. References (3)
    00134 0 00000 0 00434 71HTRDUP310 COMP. ERROR ON 1ST/2ND FILE RECORD
    00136 0 00000 0 00434 73HTRDUP310 COMP. ERROR ON 1ST/2ND FILE RECORD.
    00142 0 00000 0 00434 77HTRDUP310 RTT ERROR-BST AN0 TRY AGAIN
DUP320 = 286
  1. Definition
    00436 0 00000 0 00437 265DUP320 HTRDUP330
  2. Reference
    00137 3 00000 4 00436 74DUP150 TXHDUP320,4,** ERROR-INCOMPLETE OBJECT RECORD
DUP330 = 287
  1. Definition
    00437−0 76000 0 00012 266DUP330 RTT
  2. Reference
    00436 0 00000 0 00437 265DUP320 HTRDUP330
DUP340 = 292
  1. Definition
    00444 0 76400 0 00225 271DUP340 BSTSOURCE
  2. References (2)
    00146 0 00000 0 00444 81HTRDUP340 RTT ERROR - BST TWICE ON SOURCE
    00160 0 00000 0 00444 91HTRDUP340 RTT ERROR- BST TWICE ON SOURCE
DUP350 = 296
  1. Definition
    00450 0 76400 0 00225 275DUP350 BSTSOURCE
  2. References (2)
    00206 0 00000 0 00450 113HTRDUP350 CKSM FAILS READING SOURCE 3RD FILE
    00211 0 00000 0 00450 116HTRDUP350 RTT ERROR-BST
DUP360 = 298
  1. Definition
    00452−0 53400 4 00051 277DUP360 LXDDUP031,4
  2. References (3)
    00233 0 00000 0 00452 134HTRDUP360 COMP. ERROR ON 3RD FILE
    00235 0 00000 0 00452 136HTRDUP360 ERROR- INCOMPLETE OBJECT RECORD
    00241 0 00000 0 00452 140HTRDUP360
DUP370 = 300
  1. Definition
    00454 0 00000 0 00455 279DUP370 HTRDUP380
  2. Reference
    D00236 3 00000 4 00454 137DUP260 TXHDUP370,4
DUP380 = 301
  1. Definition
    00455 0 76400 0 00225 280DUP380 BSTSOURCE
  2. Reference
    00454 0 00000 0 00455 279DUP370 HTRDUP380
L(BIN) = 266
  1. Definition
    00412 0 00000 0 00506 245L(BIN) BINREG
  2. Reference
    00360 0 50000 0 00412 219WRBIN CLAL(BIN)
L(REL) = 267
  1. Definition
    00413 0 00000 0 00460 246L(REL) RELREG
  2. Reference
    00351 0 50000 0 00413 212WRREL CLAL(REL)
OBJECT = 145
  1. Definition
    00221 287OBJECT SYN145
  2. References (14)
    00031 0 77200 0 00221 4REWOBJECT
    00044 0 76600 0 00221 15WRSOBJECT WRITE 1-CS ONT0 OBJECT
    00052 0 76400 0 00221 21BSTOBJECT
    00053 0 76200 0 00221 22RDSOBJECT READ BACK 1-CS FROM OBJECT
    00115 0 76600 0 00221 56WRSOBJECT WRITE OBJECT 1ST/2ND FILE RECORD
    00124 0 76400 0 00221 63BSTOBJECT
    00125 0 76200 0 00221 64RDSOBJECT READ BACK OBJECT 1ST/2ND FILE RECORD
    00147 0 77000 0 00221 82WEFOBJECT WRITE 1ST EOF
    00161 0 77000 0 00221 92WEFOBJECT WRITE 2ND EOF
    00214 0 76600 0 00221 119WRSOBJECT WRITE OBJECT 3RD FILE RECORD
    00223 0 76400 0 00221 126BSTOBJECT
    00224 0 76200 0 00221 127RDSOBJECT READ BACK OBJECT 3RD FILE RECORD
    00442 0 76400 0 00221 269BSTOBJECT
    00456 0 76400 0 00221 281BSTOBJECT
RECORD = 300
  1. Definition
    00454 288RECORD SYN300
  2. References (15)
    00036 0 70000 1 00507 9DUP010 CPYRECORD+27,1
    00045 0 70000 2 00507 16DUP030 CPYRECORD+27,2
    00060 0 50000 4 00507 27DUP050 CLARECORD+27,4
    00074 0 70000 1 00454 39CPYRECORD,1
    00100−0 70000 1 00454 43DUP090 CADRECORD,1
    00104 0 36100 0 00454 47ACLRECORD
    00116 0 70000 2 00454 57DUP110 CPYRECORD,2
    00132 0 50000 4 00454 69DUP140 CLARECORD,4
    00170−0 70000 1 00454 99CADRECORD,1
    00174 0 70000 1 00454 103DUP190 CPYRECORD,1 CPY CKSM INTO RECORD+1
    00176−0 70000 1 00454 105DUP200 CADRECORD,1
    00203 0 36100 0 00455 110ACLRECORD+1
    00215 0 70000 2 00454 120DUP220 CPYRECORD,2
    00231 0 50000 4 00454 132DUP250 CLARECORD,4
    00242−0 50000 0 00460 141CALRECORD+4
RELBIN = 255
  1. Definition
    00377 0 60200 0 00426 234RELBIN SLWHOLD
  2. Reference
    00425 0 02000 0 00377 256TRAN TRARELBIN
RELREG = 304
  1. Definition
    00460 283RELREG BSS22
  2. References (2)
    00274−0 70000 2 00460 167CPAREL CADRELREG,2
    00413 0 00000 0 00460 246L(REL) RELREG
RETURN = 239
  1. Definition
    D00357−3 00000 0 00366 218RETURN TXLXR,0
  2. References (2)
    00366−0 63400 4 00357 225XR SXDRETURN,4
    00373−0 53400 4 00357 230LXDRETURN,4
SOURCE = 149
  1. Definition
    00225 286SOURCE SYN149
  2. References (11)
    00030 0 77200 0 00225 3DUP000 REWSOURCE GENERAL LIBRARIAN
    00035 0 76200 0 00225 8RDSSOURCE READ 1-CS FROM SOURCE
    00073 0 76200 0 00225 38DUP071 RDSSOURCE READ SOURCE 1ST/2ND FILE RECORD -
    00167 0 76200 0 00225 98DUP181 RDSSOURCE READ SOURCE 3RD FILE RECORD
    00432 0 76400 0 00225 261DUP300 BSTSOURCE
    00441 0 76400 0 00225 268BSTSOURCE
    00444 0 76400 0 00225 271DUP340 BSTSOURCE
    00445 0 76400 0 00225 272BSTSOURCE
    00446 0 76200 0 00225 273RDSSOURCE
    00450 0 76400 0 00225 275DUP350 BSTSOURCE
    00455 0 76400 0 00225 280DUP380 BSTSOURCE
SWITCH = 129
  1. Definition
    00201 0 76100 0 00000 108SWITCH NOP
  2. References (2)
    00246 0 60200 0 00201 145SLWSWITCH
    00405 0 02000 0 00202 240TRASWITCH+1 RETURN TO READING PERMANENT LIB.
TSXREL = 196
  1. Definition
    00304 0 07400 4 00351 175TSXREL TSXWRREL,4
  2. Reference
    00301−3 00000 1 00304 172TXLTSXREL,1,0
TXHBIN = 204
  1. Definition
    00314 3 00000 4 00311 183TXHBIN TXHCPABIN,4,0
  2. References (2)
    00312 1 77777 1 00313 181TXITXHBIN−1,1,−1
    00313 1 00001 4 00314 182TXITXHBIN,4,1
TXHREL = 190
  1. Definition
    00276 3 00276 2 00274 169TXHREL TXHCPAREL,2,*
  2. References (2)
    00271−0 63400 4 00276 164SXDTXHREL,4
    00275 1 77777 2 00276 168TXITXHREL,2,−1