2000A_Loader Listing 2000A Loader
2000A_LoaderListing 2000A_LoaderListing
User Manual: 2000A_LoaderListing
Open the PDF directly: View PDF
.
Page Count: 114
PAGE 0001 #01
0001
**
12:13 PM
ASMB,A,B,C,L
TUE., 23
OCT., 1979
2000A TSB LOADER--VERSION F
NO ERRORS PASS#l **RTE ASHB 92067-16011**
12:13 PM. TUE., 23
PAGE 0002 #01
0001
0002*
0003*
0004*
0005 00004
0006
0007 00004 103004
ASMB,A,B,C,L
?OOOA
~SB
OCT., 1979
LOADER--VERSION F
AUGUST 1, 1970
ORG 4
SUP PRESS EXTRA PRINTING
HLT 4,C
LOADER POWER FAIL HALT
PAGE 0003 #01
EQUIPMENT TABLE
0009
0010
0011
0012
0013
0014
0015
0016
0017
0018
00100
00100
00134
00135
00136
00137
00140
00160
00164
00165
12:13 PM
TUE. ,
23
OCT. ,
1979
ORG 1008
000000
000000
000000
000000
000000
000000
000000
OOOOnO
000000
DIREC
BSS 28
IDT..IOC f\SS 1
TDLE~1
SSS 1
ADLOC BSS 1
ADLEN ass 1
TRAX ass 16
DTBL SSS 4
MAGSC SSS 1
PHNSC SS5 1
DIRECTORY TRACK HEADERS
10 TASLE DISC .A.DORESS
ID TABLE LENGTH IN -WORDS
ADT DISC ADDRESS
ADT LENGTH IN -WORDS
AVAILABLE TRACK TABLE
DISC SELECT CODE TABLE
MAG TAPE SELF.CT CODE
PHONES SELECT CODE
PAGE 0004 #01
12:13 PM
rUE., 23
OCT., 1979
LOADER ENTRY POINTS
0020*
0021** NORMAL ENTRY POINT
0022*
0023 02000
ORG 2000B
0024 02000 126001
~MP *+1,1
0025 02001 004000
OCT 4000
*
**
*
0027*
0028** NON-SLEEP RELOAD ENTRY POINT
0029*
0030 03000
ORG 3000B
CLC O,C
0031 03000 107100
0032
03001 127002
JMP *+l,I
0033 03002 004122
DEF LDR6
0035
03003
r.fTRLT EQU
JU~P
TO
[,OADER
*
**
*
*
SYSTEM SEGMENT TABLE BUfFER
[~]
0037*
0038** LOADER-SYSTEM LINKAGE TABLE
0039*
0040*
0041* CONTENTS FILLED IN FROM TSB SYSTEM TAPE ON PAPER TAPE LOADS,
0042* FROM MAG TAPE ON MAG TAPE LOADS.
0043*
0044 04000
ORG 4000B
0045 04000 026030
INITIATE LOADING SEQUENCE
JMP LDR
0046 04001
LSLTB EQU
0047 0400l 000000 LIBRA OCT 0
SYSTEM LIBRARY PROGRAM OR1GIN[E]
0048 04002 000000 COM6 sss 1
ADDRESS OF SYSTEM LIBRARY DISC
0049*
ADDRESSES
0050 04003 000000 INCRF. BSS 1
LENGTH OF TTY TABLE
0051 04004 000000 TTYDA 8SS 1
ADDRESS OF USER DISC ADDRESS
0052 04005 000000 ?MASK BSS 1
ADDRESS OF USER MASK
0053 04006 oooono ?BHED BSS t
=> START OF LOGICAL BUFFER
0054 04007 000000 ?BSTR BSS 1
=> END OF LOGICAL BUFFER
0055 04010 000000 ?BG1N BSS 1
=> START O~ PHYSICAL BUFFER
0056 04011 000000 ?BF.ND BSS 1
=> END OF PHYSICAL BUFFER
0057 04012 000000 ?10
ass 1
ADDRESS OF IO-NAME
0058 04013 oooono SWPIA 855 1
ADDRESS OF USE~-DEPENDENT ITEMS
0059 04014 000000 SWPLN BSS 1
LENGTH OF SWAP AREA
0060 04015 oooono SWPAA 8SS 1
CORE ADDRESS OF SWAP AREA
0061 04016 000000 DATE BSS 1
ADDRESS OF HOUR OF YEAR
0062 04017 000000 TIME 8SS 1
ADDRESS OF TENTHS OF SECONDS
0063 04020 000000 YEAR 8SS 1
A,ODRESS OF YEAR
0064 04021 000000 TSB
BSS 1
SYSTEM STARTING ADDRESS
***
*
*
12:13 PM
PAGE 0005 #01
LOADER ENTRY POINTS
0065
0066
0067
0068
0069
0070
0071
04022
04023
04024
04025
04026
04027
04030
000000
000000
000000
000000
000000
000000
PHINl ass 1
PHIN2 SSS 1
PHIN3 BSS 1
PHIN4 SSS 1
PWRFIJ RSS 1
ULTTA sss 1
LSLTE Ji.:QU
*
rUE., 23
OCT., 1979
ADDRESSES
OF pHONES
CODE
ADDRESS OF pHONE QUANTITY
POWER FAlL INTERRUPT CODE
USER LIBRARY TRACK TABLE ADDRESS
PAGE 0006 #01
TSB LOADER
12:13 PM
TUE. ,
23
OCT. ,
0073*
0074** MAIN LOADING SEQUENCE **
0075*
*
0076*
0077* BEGIN HERE FOR NORM.~L LOADING SEQUENCES.
0078*
0079 04030 107700 LOR
CLC o,e
SET I/O TO NULL STATE
0080 04031 002400
eLA
ZERO
0081
04032 073667
STA SYSLF'
DIRECTORY TRACK
0082 04033 073670
STA SYSLF+1
COUNTERS
0083 04034 063551
LOA .12
ASK
0084 04035 067743
LOB LBRYA
0085 04036 117723
JSB ASR35,I
IF LIBRARY
0086 04037 002400
eLA
0087 040-40 117723
JSB· ASR35, I
EXISTS
0088 04041 117141
JSB GETCA,I
ANSWER GIVEN?
0089 04042 026047
JMP ERRl
NO
0090 04043 053617
CPA y
YES, 'y" ?
0091
04044 026142
YES, ASSUME 'YES"
JMP LDR7
NO, 'N' ?
0092 04045 053613
CPA N
0093 04046 026053
YES, ASSUME 'NO'
JMP LDR1
NO
0094 04047 063561
ERRl [fDA .15
0095 04050 067744
LOB ILINA
TRY
0096 04051 1177?3
JSB ASR35,I
AGAIN
0097 04052 026030
JMP LDR
0098*
0099** SYSTEM GENERATION **
0100*
*
0101*
0102* CREATE NASCENT EQUIPMENT TABLE.
0103*
0104 04053 063544 LDPl
LDA M16
SET DIRECTORY LENGTH
0105 04054 070100
SIA DIREC
FOR TWO DUMMY ENTRIES
0106 04055 063622
LOA EQTLN
ZERO OUT
0107 04056 073660
STA TE"'PO
0108 04057 006400
CLB
THE REST
0109 04060 063575
LDA EQTA
0110 04061 002004 LDR2
rNA
OF THE
04062 174000
0111
STB 0,1
0112 04063 037660
EQUIPMENT TABLE
ISZ TEMPO
0113 04064 026061
JMP LDR2
0114 04065 002400
eLA
SET
0115 04066 073661
STA TEMPi
FOR
0116 04067 063557
LOA 814
DISC
0117 04070 073662
STA TEMP2
0
0118 04071 063571 LOR3 LDA .26
REQUEST
0119 04072 067745
LDB S/TDA
0120 04073 111123
JSB ASR35,I
NUMBER OF
0121
04074 002400
eLA
0122 04075 117723
JSB ASR35,T
SECTORS FOR
0123 04076 117737
JSS SETDA,I
0124 04077 026071
JMP LOR3
DISC 0
0125 04100 063545
I.lDA M12
SET
0126 04101 073660
STA TEMPO
0127 04102 063634
LDA TRAXA
TRACKS
*
*
1979
PAGE 0007 #01
TSB LOADER
12:13 PM
TUE., 23
OCT., 1979
0128 04103 043553
ADA .4
0129 04104 007400
NOT ON
CCB
0130 04105 174000 LOR4 STB O,I
0131 04106 002004
INA
DISC 0
0132 04107 037660
rsz TEMPO
0133 04110 026105
JMP LDR4
'UNAVAILABLE'
0134 04111 077666
STB MTFLG
SET FLAG TO 'SYSGEN' MODE
0135 04112 026171
JMP IJDR8
0136*
0137** INITIATE PAPER TAPE RELOAD
0138*
0139*
0140* PRIMARY USE IS FOR LINKING A NEW SYSTEM (FOR EXAMPLE, A
0141* SYSTEM UPDATE) WITH THE LIBRARY OF A CURRENT SYSTEM.
01-42:*
0143 04113 063557 tORS LOA B14
FAKE DTBL ENTRY
0144 04114 010160
STA DTBL
F'OR DISC DRIVER
0145 04115 063542
LOA M64
READ
0146 04116 173655
STA WORD,I
EQUIPMENT
0147 04117 063553
LOA DEQTA
TABLE
0148 04120 067633
LDB CEaTA
FROM
0149 04121 117724
JSB DISC,I
DISC 0
0150*
0151** BEGIN EMERGENCY LO~OING SEQUENCE
0152*
0153*
0154* ENTRY IS TO HERE WHEN ATTEMPTING TO RELOAD THE SYSTEM
0155* USING THE EQUIpMENT TABLE IN CORE (I.E., SYSTEM WAS
0156* HALTED BY OTHER THAN THE 'SLEEP' ROUTINE).
0157*
0158 04122 002400 LDR6 CLo~
SET FLAG TO
0159 04123 073666
STA MTFLG
'PAPER TAPE RELOAD'
0160 04124 073661
STA SYSLF
ZERO COUNTERS FOR
0161 04125 073670
STA SYSLF+t
DIRECTORY TRACKS
0162 04126 060137
LOA ADLEN
READ
0163 04127 013542
AND M64
0164 04130 173655
STA WORD,I
ADT
0165 04131 067637
LDB ADTBA
0166 04132 047603
ADB SITtS
FROM
0167 04133 060136
LDA ADLOC
0168 04134 117724
JSB DISC,l
DISC
t)169 04135 060137
LDA AOLEN
RECOVER THE
0170 04136 026331
JMP LDR1S
SYSTEM TRACKS
0171*
0172 04137 063561 ERR2 LDA .15
REPORT
0173 04140 067744
LDB ILINA
PROBABLE
0174 04141 117723
JSB ASR35,I
ERROR
0175*
0176** REOUEST MAG TAPE SELECT CODE
0177*
0178*
0179* ANSWER IS THE HIGH PRIORITY SELECT CODE FOR THE MAG TAPE UNIT
0180* OR A CARRIAGE RETURN, THE LATTER INDICATING A PAPFR TAPE RELOAD.
0181*
[F]
0182 04142 117742 LDR7 JSB GTMTA,I
GET MAG TAPE SELECT CODE
*
**
*
***
*
***
*
PAGE 0008 #01
12:13 PM
TUE., 23
OCT., 1979
TSB LOADER
0183 04143 026113
JMP LDR5
PAPER TAPE RELOAD
0184*
*
0185** INITIATE MAG TAPE RELOAD
0186*
0187*
0188 04144 067666
LOB MTFLG
SAVE
0189 04145 074164
STB MAGSC
SELECT CODE
0190 04146 005665
ELB,CLE,ERB
CLEAR RIT15
04147 117726
0191
JSB MTDIA:I
CONFIGURE MAG TAPE DRIVER
0192 04150 117125
JSB MTAPE,I
REttiIND
0193 04151 000003
OCT 3
TAPE
0194 04152 063542
LDA M64
READ
0195 04153 067575
LOB EQTA
EQUIPMENT TABLE
0196 04154 117725
~SB MTAPE,I
FROM
0197 0-4155 0-00-000
OCT ()
MAG TAPE
0198 04156 027420
JMP EOFER
0199 04157 027424
JMP TPERR
0200 04160 067666
{.DB MTFLG
RECORD NEW
0201 04161 074164
STS MAGSC
5ELECT CODE
0202 04162 005665
ELB,CLE,ERB
CLEAR
0203 04163 077666
STB MTFLG
BIT1S
0204 04164 063547
LOA M4
COUNT
0205 04165 073660
STA TEMPO
0206 04166 067576
LDB DIRE6
NUMBER OF
0207 04167 160001
{..IDA 1,I
0208 04170 002002
SZA
DIRECTORY TRACKS
0209 04171 037670
ISZ SYSLF+1
0210 04172 002400
CLA
AND SET ALL
0211 04173 170001
STA 1,1
0212 04174 047555
ADB .7
DISC ADDRESSES
0213 04175 037660
ISZ TEMPO
0214 04176 026167
tJMP *-7
TO ZF.RO
0215*
0216** REQUEST DISC COMMANDS **
0217*
0218*
0219* DISC COMMANDS MAY ADD OR REMOVE DISCS.
DISC 0
0220* MAY ONLY BE REFERENCED ALONG WITH SELECT r.ODE 14 OCT; I.E.,
0221* DISC n MAY NOT BE MOVED OR REMOVED.
DISCS 1-3 MAY NOT HAVE
0222* A SELECT CODE BELOW 14 OCT OR ABOVE 76 OCT.
THE SEQUENCE OF
0223* DISC COMMAND REQUESTS IS TERMINATED BY ANSWERING WITH A
**
*
*
*
0224*
CARRIAGE RETURN.
0225*
0226
0227
0228
0229
04177
04200
04201
04202
002400
JSB ASR35,I
CLA
0230
04203 117723
JSB ASR35,I
0231
0232
0233
0234
0235
0236
04204 117741
JSB
JMP
CPA
JSB
JMP
0237
04212 117141
063566
067146
111723
04205 026264
04206 053610
04207 117741
04210 026216
04211 053611
[,DRS
[,OA .22
LOB OISMA
GETCA,r
LDR14
REQUEST
DISC
COMMANDS
D
ANY?
NO
YES
GETCA,I
ERR3
'D'
CPA I
JSB GETCA,I
'1'
(Fl
[El
[F]
[F]
[F]
[El
[El
[F]
[F]
12:13 PM
PAGE 0009 #01
TSB
0238
0239
0240
0241
0242
0243
0244
0245
0246
0247
0248
0249
0250
0251
0-252
0253
0254
0255
0256
0257
0258
0259
0260
0261
0262
0263
0264
0265
0266
0267
0268
0269
0270
0271
0272
0273
0274
0275
0276
0277
0278
0279*
TUE., 23
OCT., 1979
LOADER
04213
04214
04215
04216
04217
04220
04221
04222
04223
04224
04225
04226
04227
04230
04231
04232
04233
04234
04235
04236
04237
04240
04241
04242
04243
04244
04245
04246
04247
04250
04251
04252
04253
04254
04255
04256
04257
04260
04261
04262
04263
026216
053615
026222
063563
067747
117723
026177
002400
117730
026177
073661
117141
000000
053574
026-257
117736
000063
026177
053604
026243
063561
067750
026220
006400
077662
002400
053661
026252
117737
026177
026177
057557
026247
063567
067751
026220
117741
026242
063565
067752
026220
ERR3
LDR9
JMP ERR3
CPA S
JMP LDR9
LOA .19
LOB RQSTA
JSBASR35,I
JMP LOR8
eLA
JSR GTDNA~I
JMP LDRS
STA TEMPt
JSB GETCA,I
NOP
CPA B60
JM-P LOR13
JSB SELCA,I
OCT 63
JMP LORS
CPA COMMA
JMP
LDA
LOB
JMP
CLB
LOR10
.15
BDLA
ERR3+2
[,DR 1 0 STB TEMP2
eLA
CPA TEMPt
JMP LDR12
LDRl1 JSB SETDA,I
JMP LORS
JMP LOR8
LOR12 CPS B14
JMP LOR11
l,DA .23
LOB DZMBA
JMP ERR3+2
LOR13 JSB GETCA,I
JMP J.JDRI0-1
[,DA .21
LDB ILSCA
JMP ERR3+2
***
*
"5" ?
YES
NO
PRINT
ERROR
PICK UP
DISC '*
NOT FOUND
FOUND, SAVE IT
NEXT
CHARACTER
A ZERO?
¥ES
NO, GET SELECT CODE
IN [14 OCT, 76 OCT]
NOT FOUND
FOUND, COMMA FOLLOWING?
YES
NO,
ERROR
STORE
SEllEer CODE
DISC
o?
YES
NO, SET DISC ENTRY
ASK AGAIN
SELECT CODE 14 OCT?
YES
NO,
ERROR
CARRIAGE RETURN?
YES
NO,
ERROR
0280** BUILD AOT
0281*
0282*
0283* CREATE AN ADT ENTRY OF ZERO SECTORS FOR EACH AVAILABLE TRACK
0284*
(THE TRACK LENGTH WILL BE FILLED IN BELOW). THE ENTRY FOR
0285* TRACK 0, DISC 0 AND A TERMINATING PSUEOO-ENTRY ROUND TH~ ADT.
0286*
0287 04264 063634 LOR14 f.JDA TRAXA
SET POINTER TO
0288 04265 073660
STA TEMPO
AVAILABLE TRACK TABLE
0289 04266 063637
LOA ADTBA
CREATE
0290 04267 006400
CLB
0291 04270 174000
STS 0,1
F"IRST
0292 04271 002004
INA
PAGE 0010 #01
TSB LOADER
0293
0294
0295
0296
0297
0298
0299
0300
0301
0302
0303
0304
0305
0306
030-7
0308
0309
0310
0311
0312
0313
0314
0315
0316
0317
0318
0319
0320
0321
0322
0323
0324*
0325**
0326*
0327*
0328*
0329*
04212
04273
04274
04275
04276
04277
04300
04301
04302
04303
04304
04305
04306
04307
04310
04311
04312
04313
04314
04315
04316
04317
04320
04321
04322
04323
04324
04325
114000
002004
073661
063541
073662
063551
026305
063663
001200
000010
037660
073663
047600
113660
002-002-
12:13 PM
STB O,I
INA
STA TEMPl
LOA M255
STA
LOA
JMP
LOR15 LOA
"RAL
SLA
ISZ TEMPO
LOR16 STA TEMP3
ADB B400
AND TEMPO,!
SZA
026316
JMP LOR17
STB TE"'Pl,I
177661
ISZ TEMPt
STA TEMP!,!
037661
113661
037661
037662
026301
063661
007400
174000
002004
006400
174000
04326 003000
04327 043637
04330 070137
TEMP2
.2
LDR16
TEMP3
ISZ TEMPl
LORi7 ISZ TEMP2
RECOVER TRACKS
JMP f,.lDR15
LOA TEMpl
CCB
TUE., 23
OCT., 1979
ADT
ENTRY
INITIALIZE
TRACK COUNTER
AND MASK
ROTATE
NEXT
ADJUST
WHEN
MASK TO
TRACK POSITION
ATT POINTER
NECESSARY
ADVANCE DISC ADDRESS
AVAILABLE
TRACK?
NO
YES
CREATE
ZERO-LF.NGTH
ADT ENTRY
ALL TRACKS CONSIDERED?
NO
YES
APPEND
STB 0,1
INA
CLB
STa 0,1
CMA
ADAADTBA
STA ADLEN
TERMINAL
PSUEDO-ENTRY
RECORD -It
OF WORDS
IN ADT
***
*
ALL ADT ENTRIES WITH ZERO SECTORS AVAILABLE ARE RECOVERED AS
FULL TRACKS.
THIS PICKS UP ALL SYSTEM TRACKS ON PAPER TAPE
0330* RELOADS, OR ALL UNLOCKED TRACKS ON SYSTEM GENERATION OR
0331* MAG TAPE RELOAD, AND RETURNS THEM TO THE POOL OF TRACKS
0332* AVAILABLE FOR LOCKING AND LOADING BELOW.
0333*
0334 04331 043553 LOR1S ADA .4
SET ENTRY COUNTER
0335 04332 001100
(SKIPPING FIRST
ARS
0336 04333 073660
AND LAST ENTRIES)
STA TEMPO
0337 04334 063637
LOA AOTBA
LOAD ADDRESS
0338 04335 002004
INA
OF SECOND WORD
0339 04336 043551 LDR19 ADA .2
OF ENTRY
0340 04337 164000
LOB o,r
IS LENGTH
0341
04340 006003
5ZB,RSS
o SECTORS?
0342 04341 026345
JMP LOR2t
YES
0343 04342 037660 tDR20 ISZ TEMPO
NO, DONE?
0344 04343 026336
NO
JMP LDR19
0345 04344 026355
JMP T,.IDR22
YES
0346 04345 007400 I..;DR2t ceB
[tOAD
0347 04346 044000
ADB 0
ENTRY"S
PAGE 0011 #01
TUE., 23
12:13 PM
OCT., 1979
TSB LOADER
0348
0349
0350
0351
0352
LOA 1,I
JSB ISOTA,I
04347 1.60001
04350 117733
04351 006004
04352 170001
INS
STA 1,1
LOA t
04353 060001
DISC ADDRESS
GET TRACK LENGTH
IN SECTORS
RESTORE TO
FULL TRACK
0353
04354 026342
JMP LDR20
0354*
0355** PROCESS LOCK/UNLOCK COMMANDS
0356*
0357 04355 063573 IJOR22 LDA .38
LDB LULC,A
0358 04356 067753
0359 04357 117723
JSB ASR35,I
0360 04360 002400
CLA
0361 04361 117723
JSf3 ASR35,I
0362
043-62 11 7741
0363
0364
0365
0366
0367
0368
0369
0370
04363 026402
0371
0372
0373
0374
0375
0376
0377
0378
JSB GE'1'CA,I
JMP ERR4
04364 007400
ceB
04365
04366
04367
04370
CPA U
053616
127722
053612
JMP
CPA
JSB
JMP
CPA
JSB
JMP
117741
04371 026402
04372 053614
04373 1.17741
04374 026402
04375 053606
04316 026406
CHARACTER
A
'Uf' ?
YES, ASSUME 'UNLOCK'
NO, 'L' ?
YES
LKUNA,I
L
GETCA,I
ERR4
NO
GETeA,I
ERR4
YES
NO
a
"0' ?
f'A' ?
04377 006400
04400 053607
CPA C
04401 127722
04402 063561
04403 067744
04404 117723
ERR4
JM'P LKUNA,I
LOA .15
LDB ILINA
JSB ASR35,I
NO
PRINT
ERROR
IJD~22
*
*
CLAIM TRACKS FOR THE SYSTEM AND USER SWAPPING. THE AnT
ENTRIES ARE SET TO LENGTH ZERO RATHER THAN BEING REMOVED.
0389
04406 063543
0390
0391
04407
04410
04411
04412
04413
04414
04415
04416
0393
0394
0395
0396
0397
COMMAND
FIRST
YES, ASSUME 'LOAD'
NO
'e' ?
YES, ASSUME 'LOCK'
0384*
0392
LOCK,
UNLOCK,
OR LOAD
JMP LDR23
CLB
0385*
0386*
REQUEST
CPA A
0379
0380
0381 04405 026355
JMP
0382*
0383** CLAIM DISC TRACKS **
0387*
0388*
*
***
073660
063644
073661
002400
117731
173661
037661
037660
04417 026412
0398
0399
04420 104200
0400
04422 104400
LDR23 LDA M20
STA TEMPO
LOA TRKTA
GET
TWO SYSTEM TRACKS,
STA TEMp,_
T.JDR24 CLA
JSB
STA
ISZ
ISZ
JMP
OLD
DST
TWO SYSTEM LIBRARY TRACKS,
GTTRA,I
TEMP1,I
TEMPt
TEMPO
LDP24
TRKTB
LDRTA,I
AND
16 USER
TRACKS
DISC ADDRESSES OF TSB
SYSTEM TRACKS INTO DISC LOADER
SET
PAGE 0012 #01
12:13 PM
TUE., 23
OCT., 1979
TSB LOADER
0402*
0403** WRITE DISC LOADERS TO DISC
0404*
0405*
0406* THIS SECTION WRITES THE TSB SYSTEM DISC LOADER ONTO SECTOR 1
0407* OF TRACK 0, DISC 0 (110 CHANNEL 14 OCT) AND WRITES THE DISC
0408* BOOTSTRAP LOADER ONTO SECTOR 0, TRACK 0 AFTER CONFIGURING IT
IF THE DISC OPERATING SYSTEM IS NOT PRESENT, THE
0409* FOR TSB.
0410* TSB DISC LOADF.R IS ALSO WRITTEN TO SECTOR 2, TRACK 0 FOR SAFETY.
0411*
0412 04424 063570 LDR25 LDA .24
ASK IF
0413 04425 067754
LOB RDMSA
0414 04426 117723
JSB ASR35,J
DISC MONITOR SYSTEM
0415 04427 002400
eLA
f;l-41-6
044-30 111-7-2-3SSB- A-SR-3-5, I
IS PRESENT
0417 04431 117741
JSB GETCA,I
DEMAND A
0418 04432 026437
JMP LDR26
CHARACTER
'y' ?
0419 04433 053617
CPA Y
0420 04434 026443
JMP LOR27
YES, ASSUME 'YES'
NO, 'N' ?
0421 04435 053613
CPA N
0422 04436 026460
JMP LDR28
YES, ASSUME 'NO'
0423
04437 063561
LOR26 LOA .15
NO
0424 04440 067744
LOS ILINA
TRY
0425 04441 117723
JSB ASR35,I
AGAIN
0426 04442 026424
JMP I,DR25
0427*
04443 063542 LDR27 LDA M64
0428
READ
0429 04444 173655
STA WORD,I
'BOOTSTRAP"
0430 04445 002400
eLA
BOOTSTRAP
0431
04446 067656
LDB BSBSA
T.JOADER
0432 04447 047603
ADS SIT1S
FROM
0433 04 4 50 117724
JSB DISC,l
DISC
0434 04451 060016
t,.OA DSK7
~CCEPTABLE DISC
0435 04452 053624
CPA OTBl5
SELECT CODE?
0436 04453 026476
JMP LDR29
YES
0431 04454 063572
NO
LOA .32
0438 04455 067755
LOB BLDRA
TERMINATE
0439 04456 117723
JSB ASR35,I
LOADING
0440 04457 027427
JMP ERRIN
0441*
0442 04460 063624 LDR28 LOA OTB15
CONfIGURE
0443 04461 070016
STA 051<7
0444 04462 063625
l,OA 5TC14
'BOOTSTRAp'
0445 04463 070031
STA DSK8
0446 04464 063626
TJDA LIA15
BOOTSTRAP
0447 04465 070035
,sTA DSK9
0448
04466 063627
LOA LINKA
0449 04467 070047
STA LINKG
LOADER
0450 04470 063542
LOA M64
0451 04471 173655
STA WORD,!
WRITE
0452 04472 063551
LOA .2
TSR
0453 04473 067657
LDB TS8BA
LOADER
0454
04474 074003
STB OMS
TO 0,2
0455 04475 117724
JSB DISC,I
FOR SAFETY
0456 04476 067657 LDR29 LOB TSBBA
SET TSB LOAD/ENTRY ADDRESS
***
*
PAGE 0013 #01
TSB LOADER
12:13 PM
TUE., 23
OCT., 1979
0457 04477 074002
STB RT/TS
IN LOADER
0458 04500 002404
('LA, INA
WRITE TSB LOADER
0459 04501 117724
JSB DISC,I
TO 0,1
0460 04502 002400
CLA
WRITE
0461 04503 067656
LOB BSB5A
'BOOTSTRAP' BOOTSTRAP
0462 04504 117724
JSB DISC,!
LOADER 0,0
0463*
0464 04505 063666
LDA MTFLG
RELOAD SYSTEM FROM
0465 04506 002003
SZA:RSS
PAPER TAPE?
0466 04507 027013
JMP LDR43
YES
0467*
0468** GET REST OF SYSTEM TSACKS
0469*
0470*
0471*- CLAI-M QNE TRACK FOR THE- I-DT AND AOT.. ClfA-I--M ENOUGH-- DIRECTORY
0472* TRACKS TO HAVE ONE PER DISC, BUT NOT FEWER THAN THE NUMBER PRE0473* EXISTING IF THIS IS A MAG TAPE RELOAD.
0474*
0475 04510 003400
eCA
CLAIM
0476 04511 117731
TRACK FOR
JSB GTTRA,I
0477 04512 070134
STA IOLOC
ADT AND
0478 04513 070136
STA ADLor
10 TABLE
0479 04514 063547
LOA M4
SYSLF PREVIOUSLY
0480 04515 073660
STA TEMPO
0481 04516 067635
LDB OTBLA
SET TO 0
0482 04517 160001 LDR30 LDA 1,1
COUNT
0483 04520 002002
SZA
0484 04521 037667
ISZ SYSLF
NU~BER OF
0485 04522 006004
INS
0486 04523 037660
ISZ TEMPO
DISCS
0487 04524 026517
JMP LOR30
0488 04525 067667
LOB SYSLF
PRESENT
0489 04526 063670
T.lOA SYSLF+1
COMPUTE
0490 04527 003004
CNAtINA
0491 04530 043667
ADA SYSLF
MAXIMUM OF
0492 04531 002020
SSA
0493 04532 067670
LOB SYSLF+l
SYSfL AND SYSfL+l
04Q4 04533 007004
CMB,INR
STORE ITS
0495
04534 077660
STB TEMPO
NEGATION
0496 04535 067576
CLAIM
LDB OIRE6
0497 04536 077661 LDR31 STa TEMP1
0498 04537 003400
eCA
THIS
0499 04540 117731
JSB GTTRA,I
0500 04541 173661
MANy
STA TEMP1,!
0501 04542 067661
LOB TEMPt
0502 04543 047555
ADS .7
DIRECTORY
0503 04544 037660
rsz TEMPO
0504 04545 026536
TRACKS
JMP LDR31.
0505*
0506 04546 063542
LOA "'64
0507 04547 173655
STA WORD,l
WRITE
0508 04550 163576
LDA DIRE6,!
NULL
0509 04551 073664
STA TEMP4
DIRECTORY
0510 04552 067641
TO
LDB DIRBA
0511
04553 117724
JSB DISC,I
DISC
***
*
PAGE 0014 #01
12:13 PM
TUg., 23
OCT., 1979
TSB LOADER
0512
0513
0514
0515
0516
0517
0518
0519
0520
0521
0522
0523
0524
0525
0526-*
04554 063666
LDA MTFLG
04555
04556
04557
04560
04561
04562
04563
04564
04565
04566
04567
04570
04571
002007
027013
060135
067640
117725
000000
INA,SZA,RSS
JMP LDR43
027420
JMP EOFER
JMP TPERR
{JDA IDLEN
STA WORD,I
LOA IDLOC
LDB IDTBA
JSB DISC,!
027424
0601-35
173655
060134
067640
117724
LDA IOLEN
LOB IDTBA
JSB PKTAPE,I
OCT 0
*
*
MAG TAPE
RELOAD?
NO
YES
READ IN
IO TABLE
WRITE
ID TABLE
TO ITS
DISC
TRACK
0527** LOAD USER LIBRARY **
0528*
0529*
0530* THE LIBRARY IS STORED ON MAG TAPE AS ONE RECORD PER TRACK UP
THE
0531* TO 5440 WORDS; LONGER TRACKS ARE STORED AS TWO RECORDS.
0532* TFACK IMAGES ARE PRECEDED BY A TABLE OF LENGTH 255, EACH ENTRY
0533* HOLDING THE 2'5 COMPLEMENT OF THE LENGTH OF THE IMAGE IN WORDS
(TRACK 0, DISC 0 IS KNOWN NOT TO HAVE ANY USEQ FILES). AS EACH
0534*
0535* TRACK IMAGE IS READ AND STORED, ITS ENTRY IN THE TABLE IS
0536* REPLACED WITH (NEW DISC ADDRESS - OLD DISC ADDRESS) FOR USE IN
0537* UPDATING THE DIRECTORY BELOW.
0538*
0539 04572 063541
LOAD
LDA M255
0540 04573 073660
STA TEMPO
0541 04574 067642
LDB ULTTB
USER LIBRARY
0542 04575 077661
STB TEMP1
0543 04576 117725
JSB MTAPE,I
TRACK TABLE
0544 04577 000000
OCT 0
0545
04600 027420
JMP EOFER
0546 04601 027424
JMP TPERR
0547 04602 063600
LOA B400
INITIALIZE TO DISC ADDRESS 0,1,0
0548 04603 167661 LDR32 LDB TEMPI,!
USER LIBRARY
0549 04604 006003
SZB,RSS
TRACK?
0550
04605 026714
NO
JMP LDR37
0551 04606 177655
STS WORD,!
YES, SAVE LENGTH AND
0552 04607 073662
OLD DISC ADDRESS
STA TEMP2
0553 04610 101026
ASR 6
COMPUTE
0554 04611 077665
SECTOR RRQUIREMENT
STB COUNT
0555 04612 064137
LDS .aOLEN
SET
0556 04613 005100
BRS
ADT ENTRY
0557 04614 077663
STB TEMP3
COUNTER
0558 04615 067637
LOB ADTBA
0559 04616 006004
tNB
0560 04617 160001 LOR33 LDA 1,1
ENOUGH
0561 04620 043665
ADA COtJNT
SPACE IN
0562 04621 002021
SSA,RSS
THIS ENTRY?
0563 04622 026640
YES
JMP LDP35
0564 04623 047551
NO
ADS .2
0565 04624 037663
MORE
ENTRIES?
ISZ TEMP3
0566
04625 026617
JMP LOR33
YES
PAGE 0015 #01
TSB LOADER
0567
0568
0569
0570
0571
0572
0573
0574
0575
0576
0577
0578
0579
0580
058-1
0582
0583
0584
0585
0586
0587
0588
0589
0590
0591
0592
0593
0594
0595
0596
0597
0598
0599
0600
0601
0602
0603
0604
0605
0606
0607
0608
0609
0610
0611
0612
0613
0614
0615
0616
0617
0618
0619
0620
0621
04626
04627
04630
04631
04632
04633
04634
04635
04636
04637
04640
04641
04642
04643
04-6-44
04645
04646
04647
04650
04651
04652
04653
04654
04655
04656
04657
04660
04661
04662
04663
04664
04665
04666
04667
04670
04671
04672
04673
04674
04675
04676
04677
04700
04701
04702
04703
04704
04705
04706
04707
04710
04711
04712
04713
04714
063564
067770
117723
027427
160001
073663
047551
060001
117734
026652
170001
047550
002003
026632
160-0{)-1
073663
003004
043665
003004
170001
063662
003004
043663
113661
163655
043602
002021
026702
073665
063537
173655
067640
117725
000000
027420
027424
063663
067640
117724
063665
173655
067663
047577
077663
163655
067640
117725
000000
027420
027424
063663
067640
117724
063662
043600
12:13 PM
ERRS
LOA .20
LOB OOOSA
JSB A.SR35,I
JMP F:RRIN
LDR34 LOA 1,1
STA TEMP3
ADB .2
LDA 1
JSS MOVUl;!
TUE. ,
23
OCT. ,
1979
NO
TERMINATE
LOADING
SAVE
DISC ADDRESS
ELIMINATE
ENTRY
FROM
ADT
JMP LDR36
LDR35 STA 1,1
ADB M1
SZA,RSS
JMP LOR34
bOA. 1,1
STA TEMP3
CMA,INA
ADA COUNT
CMA,INA
STA 1,1
LDR36 LOA TEMP2
CMA,INA
ADA TEMP3
STA TEMPt,I
LOA WORD,I
ADA .5440
SSA,RSS
JMP LORE1
STA COUNT
LOA M5440
5TA WORD,!
LOB tyPRBA
JSB MTAPE,I
OCT
JMP
JMP
LDA
LOB
JSB
LDA
STORE REMAINING SECTOR COUNT
ALL OF
ENTRY USED?
YES
N-O-, SAVE
DISC ADDRESS
CORRECT ENTRY TO
DISC ADDRESS OF
REMAINING
SPACE
COMPUTE
NEW DISC ADDRESS
OOF.S TPACK
EXCEED
5440 WORDS?
NO
YES, SAVE DIFFERENCE
SET FOR
INITIAL SLOCK
READ
5440
WORDS
0
EOFER
TPERR
TEMP3
UPRBA
DISC,!
COUNT
STA WORD,I
T-IDB TEMP3
ADB .85
STB TEMP3
tJDREI LOA W.ORD,1
LOB UPRBA
JSB MTAPE,I
OCT 0
JMP EOF'ER
JMP TPERR
LDA TEMP3
r.,DB UPRBA
JSB DISC,I
LDA TEMP2
LDR37 ADA 8400
-
OLD DISC ADDRESS
SAVE IN TRACK TABLE
WRITE
THEM
TO DISC
SET
FOR
REST
OF TRACK
~DVANCE
DISC
ADDRESS
READ TRACK
FROM TAPE
WRITE TRACK
TO DISC
UPDATE OLD
TRACK ADDRESS
12:13 PM
PAGE 0016 #01
TUE., 23
OCT., 1979
TSB LOADER
0622
0623
0624
04715 037661
04716 037660
04717 026603
rsz
'TEMpt
ISZ TEMpO
JMP LOR32
INCREMENT TABLE POINTER
ALL TRACKS CONSIDERED?
NO
PAGE 0017 #01
TSB LOADER
12:13 PM
TUE., 23
OCT., 1979
0626*
0627** LOAD DIRECTORY **
0628*
0629*
0630* READ IN THE DIRECTORY TRACKS ONE 8Y ONE: AN END-OF-FILE MARK
USING THE TABLE BUILT ABOVE, CORRECT
0631* FOLLOWS THE LAST TRACK.
0632* THE DISC ADDRESS IN EACH ENTRY TO THE NEW DISC ADDRESS OF THE
0633* REFERENCED PROGRAM OR FILE.
0634*
0635 04720 063575
LDA DIREA
INITIALIZE POINTER TO
0636 04721 073660
STA TEPAPO
DIREC TABLE ENTRY
0637 04722 006400
etB
0638 04723 177643
STB ULTM1,I
COMPLETE USERS' LIBRARY TABLE[C)
0639 04724 174000
STS 0,1
SET IJENGTHS
06-4-0 047-2-5 0-43555
ADA .7
0641 04726 174000
STB 0,1
or ALL
0642 04727 043555
ADA .7
0643 04730 174000
STB 0,1
DIRECTORY TRACKS
0644 04731 043555
ADA .7
0645 04732 174000
STa 0,1
TO ZERO
0646 04733 063537 LDR38 LDA M5440
READ A
0647 04734 067640
LOB UPRBA
DIRECTORY
0648 04735 117725
~JSB MTAPE,I
TRACK
0649 04736 000000
OCT o
0650 04737 027011
JMP fJDR42
NO"JE FOUND
0651 04740 027424
JMP TPERR
04741 173655
0652
STA WORD,I
SAVE LENGTH
0653 04742 067664
LDB TEMP4
AVAILABLE
0654 04743 006002 LOR39 SZB
TRACK?
0655 04744 026754
JMP LDR40
YES
0656 04745 067660
NO, MOVE
LDB TEMPO
0657
04746 047555
ADB .7
TO NEXT
0658 04747 077660
5TB TEMPO
DIREC ENTRY
0659 04750 047554
ADB .6
SAVE ITS
0660 04751 164001
LDB 1,1
DISC
0661 04752 077664
STB TEMP4
ADDRESS
0662 04753 026743
JMP LDR39
0663 04754 173660 LDR40 STA TEMPO,!
RECORD LENGTH IN DIREC ENTRY
0664 04755 007400
CCB
SAVE
0665 04756 101.023
COUNT nF
ASR 3
0666 04757 073661
STA TEMPI
ENTRIES
0667 04760 067640
LOB UPRBA
INITIALIZE ENTRY POINTER
0668 04761 047554 LDR41 AOB .6
LOAD ENTRY'S
0669 04762 160001
DISC ADDRESS
LOA 1,1
0670 04763 013540
AND M256
LOAD THE
0671 04764 001727
ALF,ALF
TRACK TABLE
ADA ULTM1.
0672 04765 043643
ENTRY THAT
0673 04766 160000
LDA 0,1
CORRESPONDS
0674 04767 140001
ADA 1,I
CO~PUTE AND RECORD
0675 04770 170001
STA 1,1
"'EW DISC ADDRESS
0676 04771 047551
UPDATE ENTRY pOINTER
A.DB .2
0677 04772 037661
ISZ TEMP1
MORE ENTRIES?
0678 04773 026761
\.lMP LOR41
YES
0679 04774 063664
NO
LOA TEMP4
0680 04775 067640
LOR UPRBA
WRITE DIRECTORY
*
*
PAGE 0018 '01
12:13 PM
TUE., 23
OCT., 1979
TSB LOADER
0681
0682
0683
0684
04776
04777
05000
05001
05002
05003
05004
05005
05006
05007
05010
117724
063547
173655
063664
067660
006004
047603
117724
002400
073664
026133
JSB DISC,I
I,DA M4
STA WORD,I
IJDA TEMP4
TO DISC
READ
FIRST FOUR
WORDS OF
DIRECTORY
INTO
DIREC TABLE
0685
LOB TEMPO
0686
INS
0687
ADB BIT15
0688
JSB DISC,I
0689
eLA
SET TRACK
0690
STA TEMP4
UNAVAILABLE
0691
JMP LDR38
0692*
0693 05011 053572 LDR42 CPA 840
END-Of-FILE?
0694
05012 027420
JMP EOFER
NO
0695-*
0696** WRITE ADT TO DISC
0697*
0698*
0699* IF INSUFFICIENT ROOM EXISTS ON THE rOT/ADT TRACK, ELIMINATE
0700* ENOUGH ADT ENTRIES OF NON-ZERO LENGTHS TO FORCE A FIT.
0701*
0702 05013 060135 LDR43 LOA IDLEN
COMPUTE # OF
0703 05014 013542
AND M64
EX1'RA WORDS
0704 05015 043602
ADA .5440
ON IOT/ADT
0705 05016 040137
ADA ADLEN
TR~CK
0706 05017 002021
SSA,RSS
NEGATIVE?
0707 05020 027037
NO
JMP LDR45
0708 05021 001100
ARS
YES, S~VE COUNT OF
0709 05022 073660
STA TEMPO
EXCESS ADT ENTRIES
LOA ADTBA
0710 05023 063637
{JOAD
0711 05024 002004 LDR44 INA
0712 05025 164000
LOB 0,1
SECTOR LENGTH
0713 05026 002004
INA
OF ADT ENTRY
0714 05027 006003
SZB,RSS
NON-ZERO?
0715 05030 027024
NO
JMP LOR44
0716 05031 073661
YES, SAVE ADT POINTER
STA TEMPt
0717 05032 064000
ELIMINATE
LDB 0
0718 05033 117734
JSB MOVUA,I
ENTRY
0719 05034 063661
LDA TEMP1
RETRIEVE POINTER
0720 05035 037660
!SZ TEMPO
ENOUGH ENTRIES DELETED?
NO
0721 05036 027024
JMP LOR44
0722 05037 064135 LOR45 LOB IDLEN
YES
0723 05040 101026
ASR 6
CQ~PU1'E
0724 05041 007004
CMB,INB
ADT
0725 05042 044134
ADB IDLOC
DISC
0726 05043 060001
LOA 1
ADDRESS
STA ADJ.lOC
0727 05044 070136
RECORD IT
LOB AD LEN
0728 05045 064137
WRITE
0729 05046 177655
STB WORD,I
ADT
0730 05047 067637
LDB ADTBA
TO
0731
05050 117724
JSB DISC,1
DISC
0732*
0733 05051 003400
eCA
INITIALIZE
0734 05052 073667
STA SYSLF
SYSTEM LIBRARY
0715 05053 073670
FLAGS
STA SYSLF+1
***
*
PAGE 0019 #01
12:13 PM
TUE., 23
TSB l,OADER
0136
0737
0738
05054 063666
05055 003026
05056 027146
LOA MTFLG
CMA,SSA,INA,SZA
JMP LDRSO
YES
LOADING FROM
MAG TAPE?
OCT., 1979
PAGE 0020 #01
12:13 PM
rUE., 23
OCT., 1979
TSB LOADER
0740*
0741**
0742*
0743*
0744*
0745*
0746*
0747*
0748*
0749*
0750*
0751*
0752*
0753
0754
0755
0156
0757
0158
0759
0760
0761
0762
0763
0764
0765
0766
0767
0768
0769
0770
0771
0772
0773
0774
0775
0776
0777
0778
0179
0780
0781
0782
0783
0784
0785
0786
0187
0788
0789
0790
0791
0192
0793
0794
LOAD SYSTEM FROM PAPER TAPE
*
**
*
READS THE TSB SYSTEM TAPE, OR TAPES IF MORE THAN ONE (EXECUTING
A HLT 77 ON RECOGNIZING AN END-Of-TAPE CONDITION). THE LAST
RECORD IS IDENTIFIED BY AN ORIGIN OF O. CHECKSUM'S ARE
COMPUTED FOR EACH RECORD: A FAILURE MAY RETRIED BY BACKING UP
TO THE START OF THE RECORD; THE CORE TO BE OCCUpIED BY EACH
RECORD IS CHECKED AGAINST A TABLE OF ADMISSABLE AREAS TO HELp
CATCH ORIGIN MIS-READS BEFORE LOADING A RECORD. RECOVERY
MAY BE ATTEMPTED BY BACKING UP TO THE BEGTNNING OF THE RECORD.
05057
0-5-060
05061
05062
05063
05064
05065
05066
05067
05070
05071
05012
05073
05014
05075
05076
05077
05100
05101
05102
05103
05104
05105
05106
05107
05110
05111
05112
05113
05114
05115
05116
05117
05120
05121
05122
05123
05124
05125
05126
05127
05130
002401
061546
002300
117735
007306
027074
002006
027062
063560
061756
117723
'.02077
027057
017665
007000
077661
117135
117135
006003
027203
060001
077660
077663
057636
027114
117727
064000
047661
117727
052001
011434
000040
117735
040001
177660
037660
037665
027116
000040
117735
054000
027060
LOR46 CLA,RSS
SET FOR START OF TAPE
LOA MI0
SET FOR END-OF-TAPE CHECK
reE
GET RECORD'S
LOR47 JSB READA,I
WORD COUNT
CMB,CCE,tNB,SZB
AS NEGATIVE
JMP LDR4S
INA,SZA
FEED FRAME, END-Of-TAPE?
JMP LDR47
NO
LDA .13
YES
LDB EOTMA
PRINT
JSB ASR35,I
HLT 718
JMP LDR46
LDR48 STB COUNT
eMS
srB TEMPI
JSB READA,I
JSB READA,I
SZB,RSS
JMP LDR54
LDA 1
STa TEMPO
STB TEMP3
CPS LNKAD
JM~ LDR49
JSB ADVLA,I
LDB 0
ADS TEMP1
JSB ADVLA,I
LDR49 CPA LIBRA
JSB SYSLB
CLE
JSB
ADA
STB
ISZ
ISZ
JMP
CLE
JSB
CPS
JMP
READA,I
1
TEMPO,I
TEMPO
COUNT
LDR49+2
READA,I
0
LDR46+1
'END OF TAPE'
WAIT FOR NEXT TAPE
SAVE WORD COUNT
SAVE TRUE
WORD COUNT -1
SKIP FEED FRAME
READ LOAD ORIGIN
ZERO ORIGIN?
YES
NO, INITIALIZE CHECKSUM COUNTER
SAVE
ORIGIN
SYSTEM LINKAGE ADDRESSES?
YES
NO, VALIDATE ORIGIN
COMPUTE LAST ADDRESS
TO BE LOADED
VALIDATE IT
SYSTEM LIBRARY PROGRAM?
YES
READ A
WORD
ADD TO CHECKSUM COUNT~R
STORE WORD
ADVANCE ADDRESS
RECORD ALL READ?
NO
YES
READ CHECKSUM
DO CHECKSU~S AGREE?
YES
PAGE 0021 #01
12:13 PM
TUE., 23
OCT., 1979
TSB LOADER
0795 05131 073661
STA TEMPt
NO, SAVE
0796 05132 077662
STS TEMP2
REGISTERS
0797 05133 007400
CCB
0798 05134 063663
LOA TEr.rP3
FIRST RECORD OF
0799 05135 052001
CPA LIBRA
SYSTEM LIBRARY PROGRAM?
0800 05136 077670
STa SYSLF+1
YES, PROTECT AGAINST SPURIOUS
0801 05137 063562
LDA .17
CALL TO SYSLB
0802 05140 067757
LDB CHKSA
PRINT
0803 05141 117723
JS'B ASR35:!
'CHECKSUM P:RROR'
0804 05142 063661
LOA TEMPt
LOAD RESISTERS
0805 05143 067662
LOB TEMP2
FOR DISPLAY
0806 05144 102066
HLT 66B
WAIT FOR REREAD ATTEMPT
0807 05145 027057
JMP I,DR46
0808*
08-Q-9-*-* Lo-AD S-¥STEM FROM MAG TAPE
0810*
0811*
0812* READ THE TABLE OF SYSTEM RECORDS, THEN READ IN THE RECORDS
NEXT
0813* THEMSELVES (COMPRISING THE CORE-RESIDENT TSB SYSTEM).
0814* READ THE SYSTEM LIBRARY PROGRAMS ONE BY ONE, TERMINATING WITH
0815* AN END-OF-FILE.
0816*
0817 05146 002400 LDRSO eLA
TURN OFF
0818 05147 073670
STA SYSLF+l
PAPER TAPE F'LAG
0819 05150 063540
LOAD
LDA "256
0820 05151 067646
LDB MTRLA
0821 05152 077664
STB TEMP4
TABLE
0822 05153 002001
RSS
0823 05154 037664 LDR51 ISZ TEMP4
0824 05155 117725
JSB MTAPE,I
LOAD
0825 05156 000000
OCT 0
RECORD
0826 05157 027420
JMP EOFER
0827 05160 027424
JMP TPERR
0828 05161 037664
ISZ TEMP4
PREPARE FOR NEXT
0829 05162 104200
DLD TEMP4,I
SYSTEM SEGMENT
0830 05164 137646
I SZ MTRL.A, I
ALL SEGMENTS READ?
0831 05165 027154
JMP LDR51
NO
0832 05166 063540 LORS2 LOA M256
YES
0833 05167 066001
LDB LIBRA
READ
0834 05170 117725
JSB MTAPE,I
SYSTEM LIBRARY
0835 05171 000000
PROGRAM
OCT 0
0836 05172 021176
JMP LOR53
END-OF-FILF./ENO-OF-TAPE
0837 05173 027424
JMP TPERR
0838 05174 017434
JSB SYSLB
WRITE '1'0 DISC
0839 05175 027166
JMP tORS?
0840 05176 053572 LDR53 CPA B40
END-OF-FILE?
0841 05177 027420
JMP EOFER
NO
0842 05200 117725
JSB MTAPE,I
YES, REWIND
0843 05201 000005
OCT 5
AND STANDBY
0844 05202 002001
RSS
0845 05203 017434 LDR54 JSB SYSLB
TRANSFER LAST PAPER TAPE PROGRAM
***
*
PAGE 0022 #01
TSB LOADER
12:13 PM
0847*
TUE., 23
OCT., 1979
***
*
0848** INITIALIZE USER SWAP AREAS
0849*
0850*
0851* FOR EACH USER PORT, INITIALIZE THE SWAPPING PORTION OF THE
0852* LANGUAGE PROCESSOR, WRITE IT TO THE APPROPRIATE SWAP TRACK,
0853* AND INITIALIZE THE TELETYPE TABLE ENTRY CORRESPONDINGLY.
0854*
0879
05204
05205
05206
05207
05210
05211
0521205213
05214
05215
05216
05217
05220
05221
05222
05223
05224
05225
05226
05227
05230
05231
05232
05233
05234
0880
05235
0881
0882
0883
05236
0855
0856
0857
0858
0859
0860
08-61
0862
0863
0864
0865
0866
0867
0868
0869
0870
0811
0872
0873
0874
0875
0876
0877
0878
0884
0885
0886
0887
0888
0889
0890
0891
0892
0893
0894
0895
0896
0897
0898
0899
0900
0901
05237
05240
05241
05242
05243
05244
05245
05246
05247
05250
05251
05252
05253
05254
05255
05256
05257
05260
05261
05262
063544
073660
062004
073661
063645
073662
09-240-0
073663
062013
066005
047663
164001
174000
002004
007000
174000
002004
066006
047663
114000
002004
066001
047663
174000
002004
066010
047663
174000
002004
066011
047663
174000
002004
066012
047663
174000
067663
04600)
077663
163662
037662
173661
067661
046003
077661
066014
177655
{lOA M16
STA TEMPO
LDA TTYDA
STA TEMPt
LDA USTRA
STA TEMP2
CLA
STA TEMP3
IJDR58 {fDA Sf/PIA
LOB ?MASK
ADS TEMP3
LOB 1,1
STB 0,1
INA
eMB
STB 0,1
INA
LDB ?BHED
ADS TEMP3
STa 0,1
INA
LOB ?BSTR
ADB TEMP)
STa 0,1
INA
LDB ?BGIN
ADS TEMP3
STa o,r
INA
LOB ?BEND
ADS TEMP3
STB 0,1
INA
LOB 11D
ADS TEMP3
STS 0,1
LOB TEMP3
ADS INCRE
STa TEMP3
LDA TEMP2,I
ISZ TEMP2
STA TEMP1,I
LDB TEMpt
ADR INeRE
STB TE\tPt
LOB SWT?LN
STB WORD,!
SET FOR
16 USERS
FOR DISC ADDRESS
IN TTYOO
POINTER TO
FIRST USER TRACK ADDRESS
INCREMENT FROM TTYOO
TO CURRENT TTY TABLE
SWAP AREA COMpILER QUANTITIES
LOAD
USER
BIT MASK
RECORD IT
RECORD
COMPLEMENT
MASK
RECORD ADDRESS OF
CHARACTER ADDRESS
OF LOGTCAL BUFFER
RECORD ADDRESS OF ADDRESS OF
LAST CijARACTER +1
OF LOGICAL BUFFER
RECORD ADDRESS OF
CHARACTER ADDRESS
OF PHYSICAL BUFFER
RECORD ADDRESS OF ADDRESS OF
LAST CHARACTER+l
OF PHYSICAL BUFFER
LOAD ADDRESS OF
IO/NAME
RECORD IT
UPDATE
TOTAL
INCREMENT
RECORD
DISC ADDRESS
IN TTY TABLE
UPDATE TTY TABLE
POTNTER TO
DISC ADDRESS
WRITE
SWAP
12:13 PM
PAGE 0023 #01
rUE., 23
OCT., 1979
TSB LOADER
0902 05263 066015
LDB
0903 05264 117724
JSB
0904 05265 037660
ISZ
0905 05266 027214
JMP
0906*
0907** WRITE SYSTEM TO DISC
0908*
0909*
0910*
SWPAA
DISC,I
TEMPO
LDR58
AREA
TO DISC
ALL DONE?
NO
***
*
DUMP THE CORE-RESIDENT TSB SYSTEM TO THE DISC FOR POTENT!AL
0911* BOOTSTRAP LOADING.
0912*
0913 05267 163650
LOA BSYIA,I
WRITE
0914 05270 173655
STA WORD,I
0915 05271 063552
LOA .3
0-9-l-6 Q-5-2-12- O{)-6400
CLBSYSTEM
0917 05273 117124
JSB OISC,I
0918 05274 1636'51
LOA BSY2A,I
0919 05275 173655
STA WORD,I
TO
0920 05276 063676
LOA TRKTB
0921 05277 067653
LOB RSYAl
0922 05300 117124
JSB DISC,!
DISC
0923 05301 163652
LOA, BSY3A,I
0924 05302 173655
STA WORD,I
0925 05303 063677
LDA TRKTB+l
0926 05304 067654
LOB RSYA2
0927 05305 117724
JSB DISC,1
0928*
0929** GET DATE AND TIME
0930*
*
0931*
0932* THE DISC-RESIDENT TSB BOOTSTRAP LOADER TRANSFERS HERE AFTER
0933* LOADING TSB FROM THE DISC. THIS SECTION REQUESTS THE DATE
0934* AND TIME OF DAY FOR THE INTERNAL CLOCKING ROUTINES.
0935*
0936 05306 063556 LDR59 LDA .8
PRINT
0937 05307 067760
LOB DATE A
0938 05310 117723
tJSB ASR 35, I
'DATE?'
0939 05311 002400
eLA
GET
0940 05312 117723
JSB ASR35,I
RESPONSE
0941 05313 117732
JSB INTGA,T
GET DAY OF YEAR
0942 05314 073660
STA TEMpO
SAVE FOLLOWING CHARACTER
0943 05315 006003
SZB,RSS
NON-ZERO?
0944 05316 027332
NO
JMP ERR6
0945 05317 060001
LDA 1
YES
0946 05320 047620
ADS MXDAY
0941 05321 006021
SSB,RSS
< 3b7 ?
0948 05322 027332
JMP ERR6
NO
0949 05323 006400
eLB
YES
0950 05324 100200
MPY .24
CONVERT
0951 05326 172016
STA DATE,!
TO HOURS
0952 05327 063660
LOA TEMPO
'\'
0953 05330 053605
CPA 5LSH
NEXT?
0954 05331 027336
JMP LDR60
YES
0955 05332 063561 ERR6 LOA .15
NO, PRINT
0956 05333 067761
, 1 IlLEGAL
LOB ILOTA
***
PAGE 0024 #01
12:13 PM
TUE., 23
OCT., 1979
TSB LOADER
0957
0958
0959
0960
0961
0962
0963
0964
0965
0966
0967
0968
0969
0970
09-71
0972
0973
05334 117723
05335 027306
05336 117732
05337 053560
05340 002001
05341 027332
05342 176020
05343 047621
05344 006021
05345 027332
05346 063556
05347 067762
05350 117723
05351 002400
0535-2 - 1-171-2--3
05353 117740
05354 177750
05355 077660
05356 117740
05357 177704
05360 060001
05361 006400
05362 100200
05364 043623
05365 1.72017
05366 117741
05367 027374
05370 063561
05371 067763
05372 117723
05373 027346
05374 067660
05375 146016
05376 176016
JSB ASR35,I
JMP LDR59
LDR60 JSB INTGA,I
CPA 815
RSS
JMP ERR6
STB YEAR,I
DATE'
GET YEAR
MORE CHARACTERS'?
NO
YES
RECQRD YEAR
ADB MAXYR
SSB,RSS
JMP ERRb
LDR61 LDA .8
LOB TIMEA
JSB ASR35,I
CLA
J-SS AS R35, I
JSB TWOOA,I
DEC -24
STS TEMPO
JSB TWOOA,T
DEC -60
LOA 1
eLB
MPY .600
ADA MBIAS
STA TIME,I
JSB GETCA,I
JMP LDR62
< 100 ?
NO
YES
REQUEST
TIME OF DAY
GET
RESPONSE
GET TWO-DIG!T
INTEGER < 24
SAVE IT
GET TWO-DIGIT
INTEGER < 60
CONVERT
TO TENTHS
OF SECONDS
SAVE IN SPECIAL
INTERNAL FORM
EXTRANEOUS DIGITS?
NO
YES
PRINT
ERROR
0974
(C]
0975
0976
0977
0978
0979
0980
0981
0982
0983
0984
ERR7 rJOA .15
0985
LDB ILTIA
0986
JSB ASR35,I
0987
JMP TJDR61
0988
LOR62 LOB TEMPO
0989
ADB DATE,I
CORRECT
0990
STS DATE,!
HOUR OF YEAR
0991*
0992** INITIATE TIMESHARING **
0993*
0994*
0995* IF A PHONES BOARD EXISTS, IT IS TURNED ON. POWER FAIL, SET TO
*
*
0996*
0997*
0998*
0999
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
1011
HALT DURING LOADING, IS SET TO THE POWER FAIL ROUTINE IN THE
SYSTEM. FINALLY, CONTROL TRANSFERS TO T5B.
05377
05400
05401
05402
05403
05404
060165
002003
027415
064000
033630
172022
05405 060001
05406
05407
05410
05411
05412
05413
033631
172023
067632
176024
073413
000000
LOA PHNSC
SZA,RSS
JMP IIDR63
LOB 0
lOR PHi
5TA PHlNl,I
LDA 1
lOR PH2
PHONES
BOARD?
NO
YES
CREATE
APPROPRIATE
STA PHIN2,I
LOB RSSA
STS PHIN3,I
STA *+1
NOP
INSTRUCTIONS
EXECUTE
LAST ONE
12:13 PM
PAGE 0025 #01
TUE., 23
OCT., 1979
TSB LOADER
1012
1013
1014
1015
05414
05415
05416
05417
172025
062026
070004
126021
STA PHIN4,I
LDR63 l,DA PWRFL
STA 4
JMP TSR,J
SET UP pHONES STATUS
SET POWER-FAIL
INTERRUPT LINK
RUN
12:13 PM
PAGE 0026 #01
TSB LOADER
1017*
*
1018** TAPE ERRORS
1019*
1020 05420 063573 EOFER LDA .38
[,DB EOFMA
1021 05421 067764
JSB ASR35,I
1022 05422 117723
JMP ERRIN
1023 05423 027427
1024*
1025 05424 06356& TPERR LDA =22
1026 05425 067765
LOB TAPEA
1027 05426 117723
LJSB ASR35,I
1028*
1029 05427 063564 ERRIN LDA .20
LDB LASOA
1030 05430 067766
JSB ASR3-5, I
1031 0543-1 1177-23
1032 05432 102001
HLT 1
JMP *-1
1033 05433 027432
**
*
TUE. ,
23
NO RECORD
WHERE
EXPECTED
TERMINATE LOADING
TIMING
OR PARITY
ERROR
OUTPUT
TERMINATION
M-ESSAGE
IRRECOVERABLE
HALT
OCT. ,
1979
PAGE 0027 #01
12:13 PM
TUE., 23
OCT., 1979
UTILITY ROUTINES
1035*
1036** RECORD SYSTEM LIBRARY PROGRAM
1037*
1038*
1039* UPON FIRST ENTRY SYSLF
-1 AND SYSLF+1
-1 FOR A PAPER TAPE
MAG TAPE LOADS CALL SYSLB AFTER
1040* LOAD OR 0 FOR A MAG TAPE LOAD.
1041* LOADING A SYSTEM LIBRARY PROGRAM TO STORE IT ONTO THE DISC;
1042* PAPER TApE LOADS CALL SYSLB BEFORE LOADING A SYSTEM LIBRAPY
1043* PROGRAM TO STORE THE PRECEDING ONE ONTO THE DISC; HENCE THE
1044* FIRST CALL MUST BE IGNORED. THE FIRST SYSTEM LIBRARY PROGRAM,
1045* A TABLE OF LENGTHS !N WORDS OF THE SYSTEM LIBRARY PROGRAMS,
AS EACH PROGRAM IS STORED
1046* IS COPIED INTO A CORE-RESIDENT TABLE.
1047* ONTO THE DISC, ITS DISC ADDRESS REPLACES ITS LENGTH IN THIS
1048* TABLE, WHICH BECOMES THE LINKAGE BETWEEN TSB AND THE SYSTEM
10-49-* LIBRA-R-Y. W-HILE SWR (15-) IS ,. UP", THE LOA-aSR HALT-S TO ALLOW
1050* PATCHING JUST BEFORE WRITING EACH PROGRAM ONTO THE DISC.
1051*
1052 05434 000000 SYSLB NOP
1053 05435 037670
tSZ SYSLF+l
FIRST CALL FROM PAPER TAPE LOAD?
1054 05436 002001
RSS
NO
1055 05437 127434
JMP SYSLB,I
YES
1056*
1057 05440 106501
I,IB 1
DEBUGGING AID:
1058 05441 006020
SSB
HLT 15B BEFORE SYSLIB PROGRAM
1059 05442 10?015
HLT 158
GOES TO DISC IF SWR(15)
1
1060 05443 002400
eLA
1061 05444 053667
CPA SYSLF
FIRST SYSTEM LIBRARY PROGRAM?
NO
1062 05445 027472
JMP SYSL2
1063*
1064 05446 162001
LOA LIBRA,!
YES
1065 05447 073667
STA SYSLF
SET MOVE COUNTER
1066 05450 066002
lJDB COM6
SET
TABLE POINTER
1067 05451 077675
STe SLOIR
1068 05452 062001
LOA LIBRA
SET POINTER TO
1069 05453 073664
STA TEMP4
ADDRESS TABLE
COpy
1070 05454 163664 SYSL1 LDA TEMP4,I
1071 05455 170001
LENGTH
STA 1,1
1072 05456 037664
TABLE
ISZ TEMP4
1073 05457 006004
INB
INTO
1074 05460 037667
ADDRESS
ISZ SYSLF
1075 05461 027454
TABLE
JMP SYSL1
1076 05462 063700
LDA TRKTB+2
SET DISC ADDRESSES OF
1077 05463 073671
STA SYSTI
1078 05464 117733
JSB ISOTA,I
SYSTEM LIBRARY TRACKS AND
1079 05465 073673
STA SYSS1
1080 05466 063701
# OF SECTORS AVAILABLE
LDA TRKTB+3
1081 05467 073672
STA SYST2
1082 05470 117733
JSB ISOTA,I
ON EACH ONE
1083 05471 073674
STA SYSS2
1084*
1085 05472 067540 SYSL2 LOB "256
SET WORD COUNT
1086 05473 177655
STB WORD,l
FOR DISC TRANSFER
1087 05474 167675
CO~PUTE # OF
LOB SLDIR,I
10B8 05475 101026
SECTORS NEEDED
AS~ 6
1089 05476 063547
ROOM ON
LOA M4
=
***
*
=
=
PAGE 0028 #01
UTILITY ROUTINES
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102*
1103
1104
1105
1106
1107
1108
1109
1110
1111
1112
1113
1114
1115
1116
1117
1118
1119
1120
1121
1122
05477
05500
05501
05502
05503
05504
05505
05506
05507
05510
05511
05512
05513
05514
05515
05516
05517
05520
05521
05522
05523
05524
05525
05526
05527
05530
05531
05532
05533
05534
05535
05536
043673
002020
027517
060001
043673
073673
063671
007004
047671
077671
173675
037675
12:13 PM
ADA SYSSI
SSA
JMP SYSL5
LDA 1
ADA SYSSI
STA SYSS1
LOA SYSTI
CMB,INB
ADS
~YST1
STB SYSTI
SYSL4 STA SLDIR,I
ISZ SLDIR
066001
LOB LIBRA
117-7-2-4
062001
127434
063547
043&74
J-S-B DISC,!
LDA LIBRA
JMP SYSLS,!
SYSL5 LOA M4
ADA SYSS2
'rUE., 23
FIRST
TRACK?
NO
YES, UPDATE
REMAINING
SECTOR COUNT
LO_~D DISC ADDRESS
SAVE
DISC ADDRESS OF
REMAINING SPACE
SAVE DISC ADDRESS
IN LOADER TABLE
WRITE PROGRAM
TO DISC
HANDLE
SECOND
002020
SSA
027533
060001
043674
073674
063672
007004
047672
077672
027511
063571
067767
117723
027427
JMP SYSL6
TJDA 1
ADA SYSS2
STA SYSS2
LOA SYST2
TRACK
CMB,INB
ADS 5YST2
STa
JMP
SYSL6 LOA
LOB
JSB
JMP
OCT., 1979
SY[-;T2
S'tSL4
.26
SYSLA
ASR35,I
OUTPUT
ERRIN
TERMINATE LOADING
OVERFLOW
MESS~GE
PAGE 0029 #01
CONSTANTS, TEMPORARIES, ETC.
1124
1125
1126
1127
1128
1129
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
1142
1143
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
1164
1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
05537
05540
05541
05542
05543
05544
05545
05546
05547
05550
05551
05552
05553
05554
0-5-555
05556
05557
05557
05560
05560
05561
05562
05563
05564
05565
05566
05567
05570
05571
05572
05572
05573
05574
05575
05576
05577
05600
05601
05602
05603
05604
05605
05606
05607
05610
05611
05612
05613
05614
05615
05616
05617
05620
05621
05622
165300
177400
177401
177700
177754
177760
177764
177766
177774
177777
000002
000003
000004
000006
0-00-0-07
000010
000014
000015
23
OCT. , 1979
M5440 DEC -5440
DEC -256
M255 DEC -255
"'64
M20
M16
M12
M10
M4
Ml
.2
.3
DEC
DEC
DEC
DEC
DEC
DEC
DEC
DEC
DEC
-64
-20
-16
-12
-10
-4
-1
2
3
.4
.6
DEC 4
.7
.8
.12
B14
.13
OEC 7
.15
.17
.19
.20
.21
.22
.23
.24
.26
.32
840
000046
000060
000100
000106
000125
000400
001130
012500
100000
000054
000057
000101
000103
000104
000111
00011.4
000116
000117
000123
000125
000131
1,77221
177634
177713
TUE. ,
M256
B15
000017
000021
000023
000024
000025
000026
000027
000030
000032
000040
12:13 PM
.38
860
BI00
DEC 6
DEC 8
DEC 12
EQU .12
DEC 13
EQU .13
DEC 15
DEC 17
DEC 19
DEC 20
DEC 21
DEC 22
DEC
DEC
DEC
DEC
EQU
DEC
23
24
26
32
.32
38
60
100
106
85
400
OCT
OCT
OCT
DEC
OCT
DEC 600
RI06
.85
8400
.600
.5440 DEC 5440
8IT15 OCT 100000
OCT
SLSH OCT
A
OCT
C
PCT
0
nCT
OCT
I
L
OCT
N
OCT
0
OCT
5
OCT
TJ
OCT
y
OCT
MXDAY DEC
MAXYR DEC
EQTLN DEC
COMMA
54
57
101
103
104
111
114
116
117
123
125
131
-367
-100
-53
, ,,
'/'
'A'
'c'
'0'
'I'
'L'
'N'
'0'
'5'
'u'
'I'
,'s
COMPT,EMENT
OF MAXIPIUM DAY
1'S CQMPJ..IEMENT OF MAXIMUM YEAR
LENGTH OF" EQUIPMENT TA13LE
12:13 PM
PAGE 0030 #01
TUE., 23
OCT., 1979
CONSTANTS, TEMPORARIES, ETC.
1179
05623 071540
MBIAS ASS -30000-6000
TENTHS-Of-SECOND COUNTER
12:13 PM
PAGE 0031 #01
Tue., 23
OCT., 1979
CONSTANTS, TEMPORARIES, ETC.
1181
1182
1183
1184
1185*
1186
1187
1188
1189*
1190
1191
1192
1193
1194
1195
1196
1197
1198
1199
1200
1201
1202
1203
1204
1205
1206
1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
1217
1218*
1219
1220
1221
1222
1223
1224
1225
1226
1227
1228
1229
1230
1231
1232
05624
05625
05626
05627
106615
102714
102515
020014
OTAIS OTB 158
STC14 STC 14B
LIlIS LIA 158
LINKA OCT 20014
05630 102600
05631 102500
05632 002001
PH1
PH2
RSSA
OTA 0
05575
05633
05553
05515
05576
05634
05635
05636
25200
05637
12500
05640
EQTA
CEQTA
OEOTA
DIREA
DIRE6
EQU
OCT
EQU
EQU
EQU
100100
000140
000160
004001
012500
05640
05641 005771
05642
05643
05644
05645
05646
05647
05650
05651
05652
05653
05654
012101
012100
005676
005702
003003
002504
002500
002501
002502
014000
026500
002423
05655
05656 000000
05657 00243&
05660
05661
05662
05663
tJI.Z\ 0
000000
000000
000000
000000
05664 000000
05665 000000
05666 000000
05667 000000
05671 000000
05672 000000
05673 000000
05674 000000
05675 000000
05676 000000
SKELETON CODE
FOR PHONES
RSS
BI00
100100
.4
Bloa
EQUIPMENT TABLE ADDRESS
EaT 'DISC READ' CORE ADDRESS
EQ" DISC ADDRESS
DIRECTORY TASLE ADDRESS
8106
AVAILABLE TRACK TABLE ADDRESS
DISC SELECT CODE TABLE AnDRESS
LINKAGE TABLE ADDRESS
37700B-12500B ADT BUFFER
ADTBL
ADT BUFFER ADDRESS
ADTBL-12500B
10 ~ABLE BUFFER
IOTBL
10 TABLE BUfFER ADDRESS
IOTSl
USER PROGRAM BUFFER ADDRESS
DIRBF
ADORESS OF NULL DIRECTORY
12101B
USER LIBRARY TRACK TABLE ADDRESS
121008
TRKTB
SYSTEM TRACK TASLE ADDRESS
TRK'J'B+4
USER TRACK DISC ADDRESSES
MTRLT
BUFFER ADDRESS FOR SEGMENT TABLE
LDRTT
=> DISC LOADER DISC ADDRESSES
ADDRESSES OF
BSYSI
BSYS2
SYSTEM SEGMENT
BSYS3
WORD COUNTS
SYSTEM SEGMENT
14000
CORE ADDRESSES
26500
WORDC
DISC BLOCK wORD COUNT ADDRESS
Bsasa
ADDRESS OF 'BOOTSTRAP' BOOTSTRAP
BstDR
ADDRESS OF TSB BOOTSTRAP LOADER
T-RAXA DEF TR~X
DTBLA DEF DTBL
I.JNKAD DEF LSLTB
AOTS!" EQU
025200
'BOOTSTRAP'
BOOTSTRAP LOADER
INSTRUCTIONS
ADTBA
IOTBL
IDTBA
UPRBA
DIRBA
ULTTB
ULTM1
TRKTA
USTRA
MTRLA
LDRTA
BSYIA
BSY2A
BSY3A
RSYAl
RSYA2
WORD
BSBSA
TSBBA
DEF'
DEF
DEF
OEF
OCT
OCT
OEF
DEF
DEF
TEMPO
TEMp,_
TEMP2
TEMP3
"EMP4
COUNT
MTFLG
SYSLF
SYST1
SYST2
8SS
SSS
BSS
BSS
ASS
8SS
BSS
BSS
BSS
SSS
DEF
EQU
DEF
EQU
DEF
DEF
DEF
DEF
DEF
DEF
1
1
1
1
1
1
1
2
1
1
SYSS1 8SS 1
SYSS2 BSS 1
SLDIR ass 1
TRKTB BSS 20
LOADER MODE FLAG
SYSTEM LIBRARY FLAGS
DISC ADDRESSES OF SPACE
ON SYSTEM LIBRARY TRACKS
SPACE AVAILABLE ON
SYSTEM LIBRARY TRACKS
SYSTEM LIBRARY DIRECTORY POINTER
CLAIMED TRACKS TABLE
PAGE 0032 #01
CONSTANTS, TEMPORARIES, ETC.
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247
12-4-81249
1250
1251*
1252
1253
1254
1255*
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274
05722
05723
05724
05725
05726
05727
05730
05731
05732
05733
05734
05735
05736
05737
0-57-4-0
05741
05742
006362 LKUNA
002010 ASR35
002145 DISC
010356 MTAPE
011457 MTDIA
007112 AOVLA
006625 GTDNA
006755 GTTRA
007021 INTGA
007011 ISOTA
007171 MOVUA
007077 RE.AOA
006563 SELCA
006665 SETDA
(l-{}70-53 'P-WfJD-A
007233 . GETCA
007251 GTMTA
DEF
OEF
DEF
DEF
DEF
DEF
LKUNL
TTY35
DISCO
MTD
MTDIN
DEF
GTONO
GTTRK
INTGR
ISOTL
MOVUP
READ
12:13 PM
TUE., 23
OCT., 1979
LOCK/UNLOCK CODE ADDRESS
TTY DRIVER AORESS
DISC DRIVER ADDRESS
ItfAG TAPE DRIVER ADDRESS
MAG TAPE INITIALIZATION ROUTINE
-AOVAL
DEF
DEF
DEF
DEF
DEF
OEF sEtleD
DEF SETDS
f)-EF- TW-e-OG
DEF GETeR
DEF GETMT
05743 00601-1
05744 011706
05745 006017
LBRYA DEF IJBRY
ILINA DEF lLIN
S/TDA DEF S/TDO
05746
05747
05750
05751
05752
05753
05754
05755
05756
05757
05760
05761
05762
05763
05764
05765
05766
05767
05770
DISMA
RQSTA
BDLA
nZMBA
ILSCA
[FJ
[F]
006050
006063
006075
006105
006121
006134
006157
006173
006213
006222
006233
006237
006247
006253
006263
006306
006321
006333
006350
LUf.JCA
RDMSA
BLDRA
EOTMA
CHKSA
DATEA
ILDTA
TIMEA
ILTIA
EOFMA
TAPEA
LABOA
SYSLA
oonSA
OEF DISMD
DEF
DEF
DEF
DEF
DEF
DEF
DEF
DEF
DEF
DEF
DEF
DEF
DEF
DEF
DEF
DEF
DEP
DEF
RQSTD
RDDL
DZ"4BF
ILSCD
LULe
ROMS
BLDRC
EOTM
CHKSM
DATER
ILDTE
TIMER
ILTIM
EOFM
TAPER
LABOR
SYSL
ODDS?
1276*
1277* NULL DIRECTORY
1278*
1279 05771 000000 DIRBF DEC 0,0,0,0,0,-1,0,0
DIRECTORY
1280 06001 177777
DEC -1,-1,-1,-1,0,-1,0,0
PSUEDO-!NTRIES
PAGE 0033 ,01
CONSTANTS, TEMPORARIES, ETC.
1282
1283
1284
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
1295
12-9-61297
1298
1299
1300
1301
1302
1303
1304
1305
1306
1307
1308
1309
1310
1311
1312
1313
1314
1315
1316
1317
1318
1319
1320
1321
1322
1323
1324
1325
1326
1327
1328
1329
1330
1331
1332
1333
1334
06011
06012
06017
06020
06034
06035
06050
06051
06063
06064
06074
06075
06076
06104
06i-OS
06106
06120
06121
06122
06133
06134
06135
06156
06157
06160
006412
046111
005123
042503
005115
040507
005104
044523
005102
042507
006400
005102
040504
006400
0-05-1-04
044523
006400
005111
046114
006400
006412
043511
006412
005104
044523
06173 005114
06174
06213
06214
06221
06222
06223
06232
06233
06234
06237
06240
06246
06247
06250
06?53
06254
06262
06263
06264
06306
06307
06321
06332
06333
06334
06350
06351
047501
005105
047104
006400
005103
044105
006400
005104
040524
005111
046114
006400
005124
044515
005111
046114
006400
005000
052516
005124
tBRY
TUE., 23
OCT., 1979
OCT 6412
ASC 5, IJIBRARY?
S/TDO OCT 5123
ASC 12,ECTORS/TRACK ON DISC O?
MTSC OCT 5115
ASC 11,AG TAPE SELECT conE?
DISMO OCT 5104
ASC 10,ISC MODIFICATIONS?
RQSTD OCT 5102
ASC 8,EGIN WITH 'DISC'
BDDL
OCT
OCT
ASC
OCT
6400
5102
6 , AD DELIMITER
6400
OZ MB-F o-eT 5-104-
ASC 10,ISC 0 MUST BE IN 14
OCT
ILSCD OCT
ABC
OCT
LULe OCT
Ase
OCT
RDMS OCT
Ase
BLDRC' OCT
Ase
EOTM OCT
Ase
OCT
CHKSM OCT
ASC
OCT
6400
5111
9,LLEGAL SELECT CODE
6400
6412
l',GIVE LOCK, UNLOCK, OR LOAD COMMAND
6412
5104
11,ISC MONITOR PRESENT?
5114
15,OADER NOT CONFIGURED FOR TSB,
5105
S,NO OF TAPE
6400
5103
7,HECKSU~
ERROR
6400
DATER OCT 5104
Ase 3,ATE?
ILDTE OCT 511.1
Ase 6,LLEGAL DATE
OCT 6400
TIMER OCT 5124
ASC 3,TME?
ILTIM OCT 5111
ASC 6,LLEGAL TIME
6400
5000
OCT
[OFM OCT
Ase
TAPER OCT
040520
046117
006412
005123
054523
005117
052524
12:13 PM
18,UNEXPECTED END-OF-FILE/END-OF-TAPE,
5124
ASC 10,APE CANNOT BE
LABOR
R~AD,
9,LOAD/DUMP ABORTED
OCT 6412
5YSL OCT 5123
Ase 12,YSTEM LIBRARY OVERFLOW,
OODSP OCT 5117
ASC 9,UT OF DISC SPACE,
ASC
PAGE 0034 #01
LOCK/UNLOCK EXECUTION
12:13 PM
TUE., 23
OCT., 1979
1336*
1337** INTERPRET REQUEST **
1338*
1339*
1340* UPON ENTRY (8)
0 FOR A 'LOCK' OR -1 FOR AN 'UNLOCK'. SEARCH
1341* THE INPUT RECORD FOR • ,
Source Exif Data:
File Type : PDF
File Type Extension : pdf
MIME Type : application/pdf
PDF Version : 1.3
Linearized : No
XMP Toolkit : Adobe XMP Core 4.2.1-c043 52.372728, 2009/01/18-15:56:37
Create Date : 2003:07:13 18:24:52-07:00
Modify Date : 2009:08:17 08:22:19-07:00
Metadata Date : 2009:08:17 08:22:19-07:00
Producer : Adobe Acrobat 9.13 Paper Capture Plug-in
Format : application/pdf
Document ID : uuid:709ae3c6-73f9-47a7-b59a-93a8b238eb99
Instance ID : uuid:99528f8f-5888-4ade-b51f-f5994ef8ce3b
Page Layout : SinglePage
Page Mode : UseOutlines
Page Count : 114
EXIF Metadata provided by EXIF.tools