2000A_Loader Listing 2000A Loader
2000A_LoaderListing 2000A_LoaderListing
User Manual: 2000A_LoaderListing
Open the PDF directly: View PDF .
Page Count: 114 [warning: Documents this large are best viewed by clicking the View PDF Link!]
- 001
- 002
- 003
- 004
- 005
- 006
- 007
- 008
- 009
- 010
- 011
- 012
- 013
- 014
- 015
- 016
- 017
- 018
- 019
- 020
- 021
- 022
- 023
- 024
- 025
- 026
- 027
- 028
- 029
- 030
- 031
- 032
- 033
- 034
- 035
- 036
- 037
- 038
- 039
- 040
- 041
- 042
- 043
- 044
- 045
- 046
- 047
- 048
- 049
- 050
- 051
- 052
- 053
- 054
- 055
- 056
- 057
- 058
- 059
- 060
- 061
- 062
- 063
- 064
- 065
- 066
- 067
- 068
- 069
- 070
- 071
- 072
- 073
- 074
- 075
- 076
- 077
- 078
- 079
- 080
- 081
- 082
- 083
- 084
- 085
- 086
- 087
- 088
- 089
- 090
- 091
- 092
- 093
- 094
- 095
- 096
- 097
- 098
- 099
- 100
- 101
- 102
- 103
- 104
- 105
- 106
- 107
- 108
- 109
- 110
- 111
- 112
- 113
- 114
![](asset-1.png)
PAGE
0001
#01
12:13
PM
TUE.,
23
OCT.,
1979
0001
ASMB,A,B,C,L
2000A
TSB
LOADER--VERSION F
**
NO
ERRORS
PASS#l **RTE
ASHB
92067-16011**
![](asset-2.png)
PAGE
0002
#01
0001
0002*
0003*
0004*
0005
00004
0006
0007
00004
103004
12:13
PM.
TUE.,
23
OCT.,
1979
ASMB,A,B,C,L
?OOOA
~SB
LOADER--VERSION
F
AUGUST
1,
1970
ORG
4
SUP
PRESS
EXTRA
PRINTING
HLT
4,C
LOADER
POWER
FAIL
HALT
![](asset-3.png)
PAGE
0003
#01
12:13
PM
TUE.
,
23
OCT.
,
1979
EQUIPMENT
TABLE
0009
00100
ORG
1008
0010
00100
000000
DIREC
BSS
28
DIRECTORY
TRACK
HEADERS
0011
00134
000000
IDT..IOC
f\SS
1
10
TASLE
DISC
.A.DORESS
0012
00135
000000
TDLE~1
SSS 1
ID
TABLE
LENGTH
IN
-WORDS
0013
00136
000000
ADLOC
BSS
1 ADT DISC
ADDRESS
0014
00137
000000
ADLEN
ass
1 ADT
LENGTH
IN
-WORDS
0015
00140
000000
TRAX
ass
16
AVAILABLE
TRACK
TABLE
0016
00160
000000
DTBL
SSS 4 DISC
SELECT
CODE
TABLE
0017
00164
OOOOnO
MAGSC
SSS
1
MAG
TAPE
SELF.CT
CODE
0018
00165
000000
PHNSC
SS5
1
PHONES
SELECT
CODE
![](asset-4.png)
PAGE
0004
#01
12:13
PM
rUE.,
23
OCT.,
1979
LOADER
ENTRY
POINTS
0020*
0021**
0022*
0023
0024
0025
0027*
0028**
0029*
0030
0031
0032
0033
NORMAL
ENTRY
POINT
02000
02000
126001
02001
004000
*
**
*
ORG
2000B
~MP
*+1,1
OCT
4000
NON-SLEEP
RELOAD
ENTRY
POINT
03000
03000
107100
03001
127002
03002
004122
ORG
3000B
CLC
O,C
JMP
*+l,I
DEF
LDR6
*
**
*
0035
03003
r.fTRLT
EQU
*
*
LOADER-SYSTEM
LINKAGE
TABLE
**
*
JU~P
TO
[,OADER
SYSTEM
SEGMENT
TABLE
BUfFER
[~]
0037*
0038**
0039*
0040*
0041*
0042*
0043*
0044
0045
0046
0047
0048
0049*
0050
0051
0052
0053
0054
0055
0056
0057
0058
0059
0060
0061
0062
0063
0064
CONTENTS
FILLED
IN
FROM
TSB
SYSTEM
TAPE
ON
PAPER
TAPE
LOADS,
FROM
MAG
TAPE
ON
MAG
TAPE
LOADS.
04000
04000
026030
04001
0400l
000000
04002
000000
04003
000000
04004
000000
04005
000000
04006
oooono
04007
000000
04010
000000
04011
000000
04012
000000
04013
oooono
04014
000000
04015
oooono
04016
000000
04017
000000
04020
000000
04021
000000
ORG
4000B
JMP
LDR
LSLTB
EQU
*
LIBRA
OCT
0
COM6
sss
1
INCRF.
TTYDA
?MASK
?BHED
?BSTR
?BG1N
?BF.ND
?10
SWPIA
SWPLN
SWPAA
DATE
TIME
YEAR
TSB
BSS 1
8SS
1
BSS
1
BSS t
BSS
1
BSS 1
BSS
1
ass
1
855
1
BSS
1
8SS
1
BSS
1
8SS
1
8SS 1
BSS
1
INITIATE
LOADING
SEQUENCE
SYSTEM
LIBRARY
PROGRAM
OR1GIN[E]
ADDRESS
OF
SYSTEM
LIBRARY
DISC
ADDRESSES
LENGTH
OF
TTY
TABLE
ADDRESS
OF
USER DISC
ADDRESS
ADDRESS
OF
USER
MASK
=>
START
OF
LOGICAL
BUFFER
=>
END
OF
LOGICAL
BUFFER
=>
START
O~
PHYSICAL
BUFFER
=>
END
OF
PHYSICAL
BUFFER
ADDRESS
OF
IO-NAME
ADDRESS
OF
USE~-DEPENDENT
ITEMS
LENGTH
OF
SWAP
AREA
CORE
ADDRESS
OF
SWAP
AREA
ADDRESS
OF
HOUR
OF
YEAR
ADDRESS
OF
TENTHS
OF
SECONDS
A,ODRESS
OF
YEAR
SYSTEM
STARTING
ADDRESS
![](asset-5.png)
PAGE
0005
#01
LOADER
ENTRY
POINTS
0065
04022
000000
PHINl
0066
04023
000000
PHIN2
0067
04024
000000
PHIN3
0068
04025
000000
PHIN4
0069
04026
000000
PWRFIJ
0070
04027
000000
ULTTA
0071
04030
LSLTE
ass
1
SSS
1
BSS 1
SSS 1
RSS 1
sss 1
Ji.:QU
*
12:13
PM
rUE.,
23
OCT.,
1979
ADDRESSES
OF
pHONES
CODE
ADDRESS
OF
pHONE
QUANTITY
POWER
FAlL
INTERRUPT
CODE
USER
LIBRARY
TRACK
TABLE
ADDRESS
![](asset-6.png)
PAGE
0006
#01
12:13
PM
TUE.
,
23
OCT.
,
1979
TSB
LOADER
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
JMP
LDR7 YES,
ASSUME
'YES"
0092
04045
053613
CPA
N
NO,
'N'
?
0093
04046
026053
JMP
LDR1
YES,
ASSUME
'NO'
0094
04047
063561
ERRl
[fDA
.15
NO
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
0111
04062
174000
STB
0,1
0112
04063
037660
ISZ
TEMPO
EQUIPMENT
TABLE
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
![](asset-7.png)
PAGE
0007
#01
TSB
LOADER
04103
043553
04104
007400
ADA
.4
CCB
04105
174000
LOR4 STB
O,I
04106
002004
INA
04107
037660
rsz
TEMPO
04110
026105
JMP
LDR4
04111
077666
STB
MTFLG
04112
026171
JMP
IJDR8
INITIATE
PAPER
TAPE
RELOAD
12:13
PM
TUE.,
23
OCT.,
1979
NOT
ON
DISC
0
'UNAVAILABLE'
SET
FLAG
TO
'SYSGEN'
MODE
*
**
*
PRIMARY
USE
IS
FOR
LINKING A
NEW
SYSTEM
(FOR
EXAMPLE,
A
SYSTEM
UPDATE)
WITH
THE
LIBRARY
OF
A
CURRENT
SYSTEM.
04113
063557
tORS
04114
010160
04115
063542
04116
173655
04117
063553
04120
067633
04121
117724
LOA
B14
STA
DTBL
LOA
M64
STA
WORD,I
LOA
DEQTA
LDB
CEaTA
JSB
DISC,I
FAKE
DTBL
ENTRY
F'OR
DISC
DRIVER
READ
EQUIPMENT
TABLE
FROM
DISC
0
*
BEGIN
EMERGENCY
LO~OING
SEQUENCE
**
*
ENTRY
IS
TO
HERE
WHEN
ATTEMPTING
TO
RELOAD
THE
SYSTEM
USING
THE
EQUIpMENT
TABLE
IN
CORE
(I.E.,
SYSTEM
WAS
HALTED
BY
OTHER
THAN
THE
'SLEEP'
ROUTINE).
04122
002400
LDR6
04123
073666
04124
073661
04125
073670
04126
060137
04127
013542
04130
173655
04131
067637
04132
047603
04133
060136
04134
117724
04135
060137
04136
026331
04137
063561
ERR2
04140
067744
04141
117723
CLo~
STA
MTFLG
STA SYSLF
STA
SYSLF+t
LOA
ADLEN
AND
M64
STA
WORD,I
LDB
ADTBA
ADB
SITtS
LDA
ADLOC
JSB
DISC,l
LDA
AOLEN
JMP
LDR1S
LDA
.15
LDB
ILINA
JSB
ASR35,I
*
REOUEST
MAG
TAPE
SELECT
CODE
**
*
SET
FLAG
TO
'PAPER
TAPE
RELOAD'
ZERO
COUNTERS
FOR
DIRECTORY
TRACKS
READ
ADT
FROM
DISC
RECOVER
THE
SYSTEM
TRACKS
REPORT
PROBABLE
ERROR
ANSWER
IS
THE
HIGH
PRIORITY
SELECT
CODE
FOR
THE
MAG
TAPE
UNIT
0128
0129
0130
0131
0132
0133
0134
0135
0136*
0137**
0138*
0139*
0140*
0141*
01-42:*
0143
0144
0145
0146
0147
0148
0149
0150*
0151**
0152*
0153*
0154*
0155*
0156*
0157*
0158
0159
0160
0161
0162
0163
0164
0165
0166
0167
0168
t)169
0170
0171*
0172
0173
0174
0175*
0176**
0177*
0178*
0179*
0180*
0181*
0182
OR
A
CARRIAGE
RETURN,
THE
LATTER
INDICATING
A
PAPFR
TAPE
RELOAD.
04142
117742
LDR7
JSB
GTMTA,I
GET
MAG
TAPE
SELECT
CODE
[F]
![](asset-8.png)
PAGE
0008
#01
TSB
LOADER
12:13
PM
TUE.,
23
OCT.,
1979
0183
0184*
0185**
0186*
0187*
0188
0189
0190
0191
0192
0193
0194
0195
0196
0197
0198
0199
0200
0201
0202
0203
0204
0205
0206
0207
0208
0209
0210
0211
0212
0213
0214
0215*
0216**
0217*
0218*
0219*
0220*
0221*
0222*
0223*
0224*
0225*
0226
0227
0228
0229
0230
0231
0232
0233
0234
0235
0236
0237
04143
026113
JMP
LDR5
*
INITIATE
MAG
TAPE
RELOAD
**
*
LOB
MTFLG
STB
MAGSC
ELB,CLE,ERB
JSB MTDIA:I
JSB
MTAPE,I
OCT
3
LDA
M64
LOB
EQTA
~SB
MTAPE,I
OCT
()
JMP EOFER
JMP
TPERR
{.DB
MTFLG
STS
MAGSC
ELB,CLE,ERB
STB
MTFLG
LOA
M4
STA
TEMPO
LDB
DIRE6
{..IDA
SZA
ISZ
CLA
STA
ADB
ISZ
1,I
SYSLF+1
1,1
.7
TEMPO
tJMP
*-7
*
REQUEST
DISC
COMMANDS
**
04144
04145
04146
04147
04150
04151
04152
04153
04154
0-4155
04156
04157
04160
04161
04162
04163
04164
04165
04166
04167
04170
04171
04172
04173
04174
04175
04176
067666
074164
005665
117726
117125
000003
063542
067575
117725
0-00-000
027420
027424
067666
074164
005665
077666
063547
073660
067576
160001
002002
037670
002400
170001
047555
037660
026167
*
PAPER
TAPE
RELOAD
SAVE
SELECT
CODE
CLEAR
RIT15
CONFIGURE
MAG
TAPE
DRIVER
REttiIND
TAPE
READ
EQUIPMENT
TABLE
FROM
MAG
TAPE
RECORD
NEW
5ELECT
CODE
CLEAR
BIT1S
COUNT
NUMBER
OF
DIRECTORY
TRACKS
AND
SET
ALL
DISC
ADDRESSES
TO
ZF.RO
DISC
COMMANDS
MAY
ADD
OR
REMOVE
DISCS. DISC 0
MAY
ONLY
BE
REFERENCED
ALONG
WITH
SELECT
r.ODE
14
OCT;
I.E.,
DISC
n
MAY
NOT
BE
MOVED
OR
REMOVED.
DISCS
1-3
MAY
NOT
HAVE
A
SELECT
CODE
BELOW
14
OCT
OR
ABOVE
76
OCT.
THE
SEQUENCE
OF
DISC
COMMAND
REQUESTS
IS
TERMINATED
BY
ANSWERING
WITH
A
CARRIAGE
RETURN.
04177
063566
[,DRS
[,OA
.22
REQUEST
04200
067146
LOB
OISMA
04201
111723
JSB
ASR35,I
DISC
04202
002400
CLA
04203
117723
JSB
ASR35,I
COMMANDS
04204
117741
JSB GETCA,r
ANY?
04205
026264
JMP
LDR14
NO
04206
053610
CPA
D
YES
04207
117741
JSB GETCA,I
04210
026216
JMP
ERR3
'D'
04211
053611
CPA
I
04212
117141
JSB GETCA,I
'1'
(Fl
[El
[F]
[F]
[F]
[El
[El
[F]
[F]
![](asset-9.png)
PAGE
0009
#01
TSB
LOADER
12:13
PM
TUE.,
23
OCT.,
1979
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*
0280**
0281*
0282*
0283*
0284*
0285*
0286*
0287
0288
0289
0290
0291
0292
04213
026216
04214
053615
04215
026222
04216
063563
04217
067747
04220
117723
04221
026177
04222
002400
04223
117730
04224
026177
04225
073661
04226
117141
04227
000000
04230
053574
04231
026-257
04232
117736
04233
000063
04234
026177
04235
053604
04236
026243
04237
063561
04240
067750
04241
026220
04242
006400
04243
077662
04244
002400
04245
053661
04246
026252
04247
117737
04250
026177
04251
026177
04252
057557
04253
026247
04254
063567
04255
067751
04256
026220
04257
117741
04260
026242
04261
063565
04262
067752
04263
026220
JMP
ERR3
CPA
S
JMP
LDR9
ERR3
LOA
.19
LOB
RQSTA
JSBASR35,I
JMP
LOR8
LDR9
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
LOR10
LDA
.15
LOB
BDLA
JMP
ERR3+2
CLB
[,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
BUILD
AOT
**
*
YES
NO
"5"
?
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
CREATE
AN
ADT
ENTRY
OF
ZERO
SECTORS
FOR
EACH
AVAILABLE
TRACK
(THE
TRACK
LENGTH
WILL
BE
FILLED
IN
BELOW).
THE
ENTRY
FOR
TRACK
0,
DISC 0
AND
A
TERMINATING
PSUEOO-ENTRY
ROUND
TH~
ADT.
04264
063634
04265
073660
04266
063637
04267
006400
04270
174000
04271
002004
LOR14
f.JDA
TRAXA
STA
TEMPO
LOA
ADTBA
CLB
STS
0,1
INA
SET
POINTER
TO
AVAILABLE
TRACK
TABLE
CREATE
F"IRST
![](asset-a.png)
PAGE
0010
#01
TSB
LOADER
12:13
PM
TUE.,
23
OCT.,
1979
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*
0330*
0331*
0332*
0333*
0334
0335
0336
0337
0338
0339
0340
0341
0342
0343
0344
0345
0346
0347
04212
114000
04273
002004
04274
073661
04275
063541
04276
073662
04277
063551
04300
026305
04301
063663
04302
001200
04303
000010
04304
037660
04305
073663
04306
047600
04307
113660
04310
002-002-
04311
026316
04312
177661
04313
037661
04314
113661
04315
037661
04316
037662
04317
026301
04320
063661
04321
007400
04322
174000
04323
002004
04324
006400
04325
174000
04326
003000
04327
043637
04330
070137
STB
O,I
INA
STA
TEMPl
LOA
M255
STA
TEMP2
LOA
.2
JMP
LDR16
LOR15
LOA
TEMP3
"RAL
SLA
ISZ
TEMPO
LOR16
STA
TEMP3
ADB
B400
AND
TEMPO,!
SZA
JMP
LOR17
STB
TE"'Pl,I
ISZ
TEMPt
STA
TEMP!,!
ISZ
TEMPl
LORi7
ISZ
TEMP2
JMP f,.lDR15
LOA
TEMpl
CCB
*
STB
0,1
INA
CLB
STa
0,1
CMA
ADAADTBA
STA
ADLEN
RECOVER
TRACKS
**
*
ADT
ENTRY
INITIALIZE
TRACK
COUNTER
AND
MASK
ROTATE
MASK
TO
NEXT
TRACK
POSITION
ADJUST
ATT
POINTER
WHEN
NECESSARY
ADVANCE
DISC
ADDRESS
AVAILABLE
TRACK?
NO
YES
CREATE
ZERO-LF.NGTH
ADT
ENTRY
ALL
TRACKS
CONSIDERED?
NO
YES
APPEND
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
RELOADS,
OR
ALL
UNLOCKED
TRACKS
ON
SYSTEM
GENERATION
OR
MAG
TAPE
RELOAD,
AND
RETURNS
THEM
TO
THE
POOL
OF
TRACKS
AVAILABLE
FOR
LOCKING
AND
LOADING
BELOW.
04331
043553
04332
001100
04333
073660
04334
063637
04335
002004
04336
043551
04337
164000
04340
006003
04341
026345
04342
037660
04343
026336
04344
026355
04345
007400
04346
044000
LOR1S
ADA
.4
ARS
STA
TEMPO
LOA
AOTBA
INA
LDR19
ADA
.2
LOB
o,r
5ZB,RSS
JMP
LOR2t
tDR20
ISZ
TEMPO
JMP
LDR19
JMP
T,.IDR22
I..;DR2t
ceB
ADB
0
SET
ENTRY
COUNTER
(SKIPPING FIRST
AND
LAST
ENTRIES)
LOAD
ADDRESS
OF
SECOND
WORD
OF
ENTRY
IS
LENGTH
o
SECTORS?
YES
NO,
DONE?
NO
YES
[tOAD
ENTRY"S
![](asset-b.png)
PAGE
0011
#01
TSB
LOADER
04347
1.60001
04350
117733
04351
006004
04352
170001
04353
060001
04354
026342
LOA
1,I
JSB
ISOTA,I
INS
STA
1,1
LOA
t
JMP
LDR20
PROCESS
LOCK/UNLOCK
COMMANDS
04355
063573
04356
067753
04357
117723
04360
002400
04361
117723
043-62 11
7741
04363
026402
04364
007400
04365
053616
04366
127722
04367
053612
04370
117741
04371
026402
04372
053614
04373
1.17741
04374
026402
04375
053606
04316
026406
04377
006400
04400
053607
04401
127722
04402
063561
04403
067744
04404
117723
04405
026355
IJOR22
LDA
.38
LDB
LULC,A
JSB ASR35,I
CLA
JSf3
ASR35,I
JSB
GE'1'CA,I
JMP
ERR4
ceB
CPA U
JMP
LKUNA,I
CPA
L
JSB GETCA,I
JMP
ERR4
CPA
a
JSB GETeA,I
JMP
ERR4
CPA A
JMP
LDR23
CLB
CPA C
JM'P
LKUNA,I
ERR4
LOA
.15
LDB
ILINA
JSB
ASR35,I
JMP
IJD~22
*
CLAIM
DISC
TRACKS
**
*
12:13
PM
TUE.,
23
OCT.,
1979
*
**
*
DISC
ADDRESS
GET
TRACK
LENGTH
IN
SECTORS
RESTORE
TO
FULL
TRACK
REQUEST
LOCK,
UNLOCK,
OR
LOAD
COMMAND
FIRST
CHARACTER
A
'Uf'
?
YES,
ASSUME
'UNLOCK'
NO,
'L'
?
YES
NO
"0'
?
YES
NO
f'A'
?
YES,
ASSUME
'LOAD'
NO
'e'
?
YES,
ASSUME
'LOCK'
NO
PRINT
ERROR
0348
0349
0350
0351
0352
0353
0354*
0355**
0356*
0357
0358
0359
0360
0361
0362
0363
0364
0365
0366
0367
0368
0369
0370
0371
0372
0373
0374
0375
0376
0377
0378
0379
0380
0381
0382*
0383**
0384*
0385*
0386*
0387*
0388*
0389
0390
0391
0392
0393
0394
0395
0396
0397
0398
0399
0400
CLAIM
TRACKS
FOR
THE
SYSTEM
AND
USER
SWAPPING.
THE
AnT
ENTRIES
ARE
SET
TO
LENGTH
ZERO
RATHER
THAN
BEING
REMOVED.
04406
063543
04407
073660
04410
063644
04411
073661
04412
002400
04413
117731
04414
173661
04415
037661
04416
037660
04417
026412
04420
104200
04422
104400
LDR23
LDA
M20
STA
TEMPO
LOA
TRKTA
STA TEMp,_
T.JDR24
CLA
JSB
GTTRA,I
STA
TEMP1,I
ISZ
TEMPt
ISZ
TEMPO
JMP
LDP24
OLD
TRKTB
DST
LDRTA,I
GET
TWO
SYSTEM
TRACKS,
TWO
SYSTEM
LIBRARY
TRACKS,
AND
16
USER
TRACKS
SET
DISC
ADDRESSES
OF
TSB
SYSTEM
TRACKS
INTO
DISC
LOADER
![](asset-c.png)
PAGE
0012
#01
TSB
LOADER
12:13
PM
TUE.,
23
OCT.,
1979
0402*
0403**
0404*
0405*
0406*
0407*
0408*
0409*
0410*
0411*
0412
0413
0414
0415
f;l-41-6
0417
0418
0419
0420
0421
0422
0423
0424
0425
0426
0427*
0428
0429
0430
0431
0432
0433
0434
0435
0436
0431
0438
0439
0440
0441*
0442
0443
0444
0445
0446
0447
0448
0449
0450
0451
0452
0453
0454
0455
0456
*
WRITE
DISC
LOADERS
TO
DISC
**
*
THIS
SECTION
WRITES
THE
TSB
SYSTEM
DISC
LOADER
ONTO
SECTOR
1
OF
TRACK
0,
DISC 0
(110
CHANNEL
14
OCT)
AND
WRITES
THE
DISC
BOOTSTRAP
LOADER
ONTO
SECTOR
0,
TRACK
0
AFTER
CONFIGURING
IT
FOR
TSB. IF
THE
DISC
OPERATING
SYSTEM
IS
NOT
PRESENT,
THE
TSB
DISC
LOADF.R
IS
ALSO
WRITTEN
TO
SECTOR
2,
TRACK
0
FOR
SAFETY.
04424
063570
04425
067754
04426
117723
04427
002400
044-30
111-7-2-3-
04431
117741
04432
026437
04433
053617
04434
026443
04435
053613
04436
026460
04437
063561
04440
067744
04441
117723
04442
026424
04443
063542
04444
173655
04445
002400
04446
067656
04447
047603
04
4
50
117724
04451
060016
04452
053624
04453
026476
04454
063572
04455
067755
04456
117723
04457
027427
04460
063624
04461
070016
04462
063625
04463
070031
04464
063626
04465
070035
04466
063627
04467
070047
04470
063542
04471
173655
04472
063551
04473
067657
04474
074003
04475
117724
04476
067657
LDR25
LDA
.24
LOB
RDMSA
JSB ASR35,J
eLA
SSB-
A-SR-3-5,
I
JSB GETCA,I
JMP
LDR26
CPA
Y
JMP
LOR27
CPA
N
JMP
LDR28
LOR26
LOA
.15
LOS
ILINA
JSB ASR35,I
JMP I,DR25
LDR27
LDA
M64
STA
WORD,I
eLA
LDB
BSBSA
ADS
SIT1S
JSB
DISC,l
t,.OA
DSK7
CPA
OTBl5
JMP
LDR29
LOA
.32
LOB
BLDRA
JSB
ASR35,I
JMP
ERRIN
LDR28
LOA
OTB15
STA 051<7
l,OA
5TC14
STA
DSK8
TJDA
LIA15
,sTA
DSK9
LOA
LINKA
STA
LINKG
LOA
M64
STA
WORD,!
LOA
.2
LDB
TS8BA
STB
OMS
JSB
DISC,I
LDR29
LOB
TSBBA
ASK
IF
DISC
MONITOR
SYSTEM
IS
PRESENT
DEMAND
A
CHARACTER
'y'
?
YES,
ASSUME
'YES'
NO,
'N'
?
YES,
ASSUME
'NO'
NO
TRY
AGAIN
READ
'BOOTSTRAP"
BOOTSTRAP
T.JOADER
FROM
DISC
~CCEPTABLE
DISC
SELECT
CODE?
YES
NO
TERMINATE
LOADING
CONfIGURE
'BOOTSTRAp'
BOOTSTRAP
LOADER
WRITE
TSR
LOADER
TO
0,2
FOR
SAFETY
SET
TSB
LOAD/ENTRY
ADDRESS
![](asset-d.png)
PAGE
0013
#01
TSB
LOADER
12:13
PM
TUE.,
23
OCT.,
1979
0457
0458
0459
0460
0461
0462
0463*
0464
0465
0466
0467*
0468**
0469*
0470*
0471*-
0472*
0473*
0474*
0475
0476
0477
0478
0479
0480
0481
0482
0483
0484
0485
0486
0487
0488
0489
0490
0491
0492
0493
04Q4
0495
0496
0497
0498
0499
0500
0501
0502
0503
0504
0505*
0506
0507
0508
0509
0510
0511
04477
074002
04500
002404
04501
117724
04502
002400
04503
067656
04504
117724
04505
063666
04506
002003
04507
027013
STB
RT/TS
('LA,
INA
JSB
DISC,I
CLA
LOB
BSB5A
JSB
DISC,!
LDA
MTFLG
SZA:RSS
JMP
LDR43
*
GET
REST
OF
SYSTEM
TSACKS
**
*
IN
LOADER
WRITE
TSB
LOADER
TO
0,1
WRITE
'BOOTSTRAP'
BOOTSTRAP
LOADER
0,0
RELOAD
SYSTEM
FROM
PAPER
TAPE?
YES
CLAI-M
QNE TRACK
FOR
THE-
I-DT
AND AOT..
ClfA-I--M
ENOUGH--
DIRECTORY
TRACKS
TO
HAVE
ONE
PER
DISC,
BUT
NOT
FEWER
THAN
THE
NUMBER
PRE-
EXISTING
IF
THIS
IS
A
MAG
TAPE
RELOAD.
04510
003400
04511
117731
04512
070134
04513
070136
04514
063547
04515
073660
04516
067635
04517
160001
04520
002002
04521
037667
04522
006004
04523
037660
04524
026517
04525
067667
04526
063670
04527
003004
04530
043667
04531
002020
04532
067670
04533
007004
04534
077660
04535
067576
04536
077661
04537
003400
04540
117731
04541
173661
04542
067661
04543
047555
04544
037660
04545
026536
04546
063542
04547
173655
04550
163576
04551
073664
04552
067641
04553
117724
eCA
JSB GTTRA,I
STA
IOLOC
STA
ADLor
LOA
M4
STA
TEMPO
LDB
OTBLA
LDR30
LDA
1,1
SZA
ISZ
SYSLF
INS
ISZ
TEMPO
JMP
LOR30
LOB
SYSLF
T.lOA
SYSLF+1
CNAtINA
ADA
SYSLF
SSA
LOB
SYSLF+l
CMB,INR
STB
TEMPO
LDB
OIRE6
LDR31
STa
TEMP1
eCA
JSB GTTRA,I
STA
TEMP1,!
LOB
TEMPt
ADS
.7
rsz
TEMPO
JMP
LDR31.
LOA
"'64
STA
WORD,l
LDA
DIRE6,!
STA
TEMP4
LDB
DIRBA
JSB
DISC,I
CLAIM
TRACK
FOR
ADT
AND
10
TABLE
SYSLF
PREVIOUSLY
SET
TO
0
COUNT
NU~BER
OF
DISCS
PRESENT
COMPUTE
MAXIMUM
OF
SYSfL
AND
SYSfL+l
STORE
ITS
NEGATION
CLAIM
THIS
MANy
DIRECTORY
TRACKS
WRITE
NULL
DIRECTORY
TO
DISC
![](asset-e.png)
PAGE
0014
#01
TSB
LOADER
12:13
PM
TUg.,
23
OCT.,
1979
0512
0513
0514
0515
0516
0517
0518
0519
0520
0521
0522
0523
0524
0525
0526-*
0527**
0528*
0529*
0530*
0531*
0532*
0533*
0534*
0535*
0536*
0537*
0538*
0539
0540
0541
0542
0543
0544
0545
0546
0547
0548
0549
0550
0551
0552
0553
0554
0555
0556
0557
0558
0559
0560
0561
0562
0563
0564
0565
0566
04554
063666
04555
002007
04556
027013
04557
060135
04560
067640
04561
117725
04562
000000
04563
027420
04564
027424
04565
0601-35
04566
173655
04567
060134
04570
067640
04571
117724
LDA
MTFLG
INA,SZA,RSS
JMP
LDR43
LDA
IOLEN
LOB
IDTBA
JSB
PKTAPE,I
OCT
0
JMP
EOFER
JMP
TPERR
{JDA
IDLEN
STA
WORD,I
LOA
IDLOC
LDB
IDTBA
JSB
DISC,!
*
LOAD
USER
LIBRARY
**
*
MAG
TAPE
RELOAD?
NO
YES
READ
IN
IO
TABLE
WRITE
ID
TABLE
TO
ITS
DISC
TRACK
THE
LIBRARY
IS
STORED
ON
MAG
TAPE
AS
ONE
RECORD
PER
TRACK
UP
TO
5440
WORDS;
LONGER
TRACKS
ARE
STORED
AS
TWO
RECORDS.
THE
TFACK
IMAGES
ARE
PRECEDED
BY
A TABLE
OF
LENGTH
255,
EACH
ENTRY
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
TRACK
IMAGE
IS
READ
AND
STORED,
ITS
ENTRY
IN
THE
TABLE
IS
REPLACED
WITH
(NEW
DISC
ADDRESS
-
OLD
DISC
ADDRESS)
FOR
USE
IN
UPDATING
THE
DIRECTORY
BELOW.
04572
063541
04573
073660
04574
067642
04575
077661
04576
117725
04577
000000
04600
027420
04601
027424
04602
063600
04603
167661
04604
006003
04605
026714
04606
177655
04607
073662
04610
101026
04611
077665
04612
064137
04613
005100
04614
077663
04615
067637
04616
006004
04617
160001
04620
043665
04621
002021
04622
026640
04623
047551
04624
037663
04625
026617
LDA
M255
STA
TEMPO
LDB
ULTTB
STB
TEMP1
JSB MTAPE,I
OCT
0
JMP
EOFER
JMP
TPERR
LOA
B400
LDR32
LDB
TEMPI,!
SZB,RSS
JMP
LDR37
STS
WORD,!
STA TEMP2
ASR
6
STB
COUNT
LDS
.aOLEN
BRS
STB
TEMP3
LOB
ADTBA
tNB
LOR33
LDA
1,1
ADA
COtJNT
SSA,RSS
JMP
LDP35
ADS
.2
ISZ
TEMP3
JMP
LOR33
LOAD
USER
LIBRARY
TRACK
TABLE
INITIALIZE
TO
DISC
ADDRESS
0,1,0
USER
LIBRARY
TRACK?
NO
YES,
SAVE
LENGTH
AND
OLD
DISC
ADDRESS
COMPUTE
SECTOR
RRQUIREMENT
SET
ADT
ENTRY
COUNTER
ENOUGH
SPACE
IN
YES
NO
THIS
ENTRY?
MORE
ENTRIES?
YES
![](asset-f.png)
PAGE
0015
#01
12:13
PM
TUE.
,
23
OCT.
,
1979
TSB
LOADER
0567
04626
063564
ERRS
LOA
.20
NO
0568
04627
067770
LOB
OOOSA
TERMINATE
0569
04630
117723
JSB
A.SR35,I
LOADING
0570
04631
027427
JMP
F:RRIN
0571
04632
160001
LDR34
LOA
1,1
SAVE
0572
04633
073663
STA TEMP3 DISC
ADDRESS
0573
04634
047551
ADB
.2
ELIMINATE
0574
04635
060001
LDA
1
ENTRY
0575
04636
117734
JSS
MOVUl;!
FROM
ADT
0576
04637
026652
JMP
LDR36
0577
04640
170001
LDR35 STA
1,1
STORE
REMAINING
SECTOR
COUNT
0578
04641
047550
ADB
M1
ALL
OF
0579
04642
002003
SZA,RSS ENTRY USED?
0580
04643
026632
JMP
LOR34
YES
058-1 04-6-44 160-0{)-1
bOA.
1,1
N-O-,
SAVE
0582
04645
073663
STA TEMP3 DISC
ADDRESS
0583
04646
003004
CMA,INA CORRECT
ENTRY
TO
0584
04647
043665
ADA
COUNT
DISC
ADDRESS
OF
0585
04650
003004
CMA,INA
REMAINING
0586
04651
170001
STA
1,1
SPACE
0587
04652
063662
LDR36
LOA
TEMP2
COMPUTE
0588
04653
003004
CMA,INA
NEW
DISC
ADDRESS
-
0589
04654
043663
ADA
TEMP3
OLD
DISC ADDRESS
0590
04655
113661
STA
TEMPt,I
SAVE
IN
TRACK
TABLE
0591
04656
163655
LOA
WORD,I
OOF.S
TPACK
0592
04657
043602
ADA
.5440
EXCEED
0593
04660
002021
SSA,RSS
5440
WORDS?
0594
04661
026702
JMP
LORE1
NO
0595
04662
073665
STA
COUNT
YES,
SAVE
DIFFERENCE
0596
04663
063537
LOA
M5440
SET
FOR
0597
04664
173655
5TA
WORD,! INITIAL SLOCK
0598
04665
067640
LOB
tyPRBA
READ
0599
04666
117725
JSB
MTAPE,I
5440
0600
04667
000000
OCT
0
WORDS
0601
04670
027420
JMP
EOFER
0602
04671
027424
JMP
TPERR
0603
04672
063663
LDA
TEMP3
WRITE
0604
04673
067640
LOB
UPRBA
THEM
0605
04674
117724
JSB
DISC,!
TO
DISC
0606
04675
063665
LDA
COUNT
SET
FOR
0607
04676
173655
STA
WORD,I
REST
OF
TRACK
0608
04677
067663
T-IDB
TEMP3
~DVANCE
0609
04700
047577
ADB
.85
DISC
0610
04701
077663
STB
TEMP3
ADDRESS
0611
04702
163655
tJDREI
LOA
W.ORD,1
0612
04703
067640
LOB
UPRBA
READ
TRACK
0613
04704
117725
JSB
MTAPE,I
FROM
TAPE
0614
04705
000000
OCT
0
0615
04706
027420
JMP
EOF'ER
0616
04707
027424
JMP
TPERR
0617
04710
063663
LDA
TEMP3
0618
04711
067640
r.,DB
UPRBA
WRITE
TRACK
0619
04712
117724
JSB
DISC,I
TO
DISC
0620
04713
063662
LDA
TEMP2
UPDATE
OLD
0621
04714
043600
LDR37
ADA
8400
TRACK
ADDRESS
![](asset-10.png)
PAGE
0016
#01
TSB
LOADER
0622
0623
0624
04715
037661
04716
037660
04717
026603
rsz
'TEMpt
ISZ
TEMpO
JMP
LOR32
12:13
PM
TUE.,
23
OCT.,
1979
INCREMENT
TABLE
POINTER
ALL
TRACKS
CONSIDERED?
NO
![](asset-11.png)
PAGE
0017
#01
TSB
LOADER
12:13
PM
TUE.,
23
OCT.,
1979
0626*
0627**
0628*
0629*
0630*
0631*
0632*
0633*
0634*
0635
0636
0637
0638
0639
06-4-0
0641
0642
0643
0644
0645
0646
0647
0648
0649
0650
0651
0652
0653
0654
0655
0656
0657
0658
0659
0660
0661
0662
0663
0664
0665
0666
0667
0668
0669
0670
0671
0672
0673
0674
0675
0676
0677
0678
0679
0680
*
LOAD
DIRECTORY
**
*
READ
IN
THE
DIRECTORY
TRACKS
ONE
8Y
ONE:
AN
END-OF-FILE
MARK
FOLLOWS
THE
LAST
TRACK.
USING
THE
TABLE
BUILT
ABOVE,
CORRECT
THE
DISC
ADDRESS
IN
EACH
ENTRY
TO
THE
NEW
DISC
ADDRESS
OF
THE
REFERENCED
PROGRAM
OR
FILE.
04720
04721
04722
04723
04724
047-2-5
04726
04727
04730
04731
04732
04733
04734
04735
04736
04737
04740
04741
04742
04743
04744
04745
04746
04747
04750
04751
04752
04753
04754
04755
04756
04757
04760
04761
04762
04763
04764
04765
04766
04767
04770
04771
04772
04773
04774
04775
063575
073660
006400
177643
174000
0-43555
174000
043555
174000
043555
174000
063537
067640
117725
000000
027011
027424
173655
067664
006002
026754
067660
047555
077660
047554
164001
077664
026743
173660
007400
101.023
073661
067640
047554
160001
013540
001727
043643
160000
140001
170001
047551
037661
026761
063664
067640
LDR38
LOR39
LDR40
LDR41
LDA
DIREA
STA
TEPAPO
etB
STB
STS
ADA
STB
ADA
STB
ADA
STa
LDA
LOB
~JSB
OCT
JMP
JMP
STA
LDB
SZB
ULTM1,I
0,1
.7
0,1
.7
0,1
.7
0,1
M5440
UPRBA
MTAPE,I
o
fJDR42
TPERR
WORD,I
TEMP4
JMP
LDR40
LDB
TEMPO
ADB
.7
5TB
TEMPO
ADB
.6
LDB
1,1
STB TEMP4
JMP
LDR39
STA
TEMPO,!
CCB
ASR
3
STA
TEMPI
LOB
UPRBA
AOB
.6
LOA
1,1
AND
M256
ALF,ALF
ADA ULTM1.
LDA
0,1
ADA
1,I
STA
1,1
A.DB
.2
ISZ
TEMP1
\.lMP
LOR41
LOA
TEMP4
LOR
UPRBA
INITIALIZE
POINTER
TO
DIREC
TABLE
ENTRY
COMPLETE
USERS'
LIBRARY
TABLE[C)
SET
IJENGTHS
or
ALL
DIRECTORY
TRACKS
TO
ZERO
READ
A
DIRECTORY
TRACK
NO"JE
FOUND
SAVE
LENGTH
AVAILABLE
TRACK?
YES
NO,
MOVE
TO
NEXT
DIREC
ENTRY
SAVE
ITS
DISC
ADDRESS
RECORD
LENGTH
IN
DIREC
ENTRY
SAVE
COUNT
nF
ENTRIES
INITIALIZE
ENTRY
POINTER
LOAD
ENTRY'S
DISC
ADDRESS
LOAD
THE
TRACK
TABLE
ENTRY
THAT
CORRESPONDS
CO~PUTE
AND
RECORD
"'EW
DISC
ADDRESS
UPDATE
ENTRY
pOINTER
MORE
ENTRIES?
YES
NO
WRITE
DIRECTORY
![](asset-12.png)
PAGE
0018
'01
TSB
LOADER
04776
117724
04777
063547
05000
173655
05001
063664
05002
067660
05003
006004
05004
047603
05005
117724
05006
002400
05007
073664
05010
026133
JSB
DISC,I
I,DA
M4
STA
WORD,I
IJDA
TEMP4
LOB
TEMPO
INS
ADB
BIT15
JSB
DISC,I
eLA
STA
TEMP4
JMP
LDR38
05011
053572
LDR42
CPA
840
05012
027420
JMP EOFER
*
WRITE
ADT
TO
DISC
**
*
12:13
PM
TUE.,
23
OCT.,
1979
TO
DISC
READ
FIRST
FOUR
WORDS
OF
DIRECTORY
INTO
DIREC
TABLE
SET
TRACK
UNAVAILABLE
END-Of-FILE?
NO
0681
0682
0683
0684
0685
0686
0687
0688
0689
0690
0691
0692*
0693
0694
0695-*
0696**
0697*
0698*
0699*
0700*
0701*
0702
0703
0704
0705
0706
0707
0708
0709
0710
0711
0712
0713
0714
0715
0716
0717
0718
0719
0720
0721
0722
0723
0724
0725
0726
0727
0728
0729
0730
0731
0732*
0733
0734
0715
IF
INSUFFICIENT
ROOM
EXISTS
ON
THE
rOT/ADT
TRACK,
ELIMINATE
ENOUGH
ADT
ENTRIES
OF
NON-ZERO
LENGTHS
TO
FORCE
A
FIT.
05013
060135
05014
013542
05015
043602
05016
040137
05017
002021
05020
027037
05021
001100
05022
073660
05023
063637
05024
002004
05025
164000
05026
002004
05027
006003
05030
027024
05031
073661
05032
064000
05033
117734
05034
063661
05035
037660
05036
027024
05037
064135
05040
101026
05041
007004
05042
044134
05043
060001
05044
070136
05045
064137
05046
177655
05047
067637
05050
117724
05051
003400
05052
073667
05053
073670
LDR43
LOA
IDLEN
AND
M64
ADA
.5440
ADA
ADLEN
SSA,RSS
JMP
LDR45
ARS
STA
TEMPO
LOA
ADTBA
LDR44
INA
LOB
0,1
INA
SZB,RSS
JMP
LOR44
STA
TEMPt
LDB
0
JSB
MOVUA,I
LDA
TEMP1
!SZ
TEMPO
JMP
LOR44
LOR45
LOB
IDLEN
ASR 6
CMB,INB
ADB
IDLOC
LOA
1
STA
ADJ.lOC
LOB
AD
LEN
STB
WORD,I
LDB
ADTBA
JSB
DISC,1
eCA
STA
SYSLF
STA
SYSLF+1
COMPUTE
#
OF
EX1'RA
WORDS
ON
IOT/ADT
TR~CK
NEGATIVE?
NO
YES,
S~VE
COUNT
OF
EXCESS
ADT
ENTRIES
{JOAD
SECTOR
LENGTH
OF
ADT
ENTRY
NON-ZERO?
NO
YES,
SAVE
ADT
POINTER
ELIMINATE
ENTRY
RETRIEVE
POINTER
ENOUGH
ENTRIES
DELETED?
NO
YES
CQ~PU1'E
ADT
DISC
ADDRESS
RECORD
IT
WRITE
ADT
TO
DISC
INITIALIZE
SYSTEM
LIBRARY
FLAGS
![](asset-13.png)
PAGE
0019
#01
TSB l,OADER
0136
0737
0738
05054
063666
05055
003026
05056
027146
12:13
PM
TUE.,
23
OCT.,
1979
LOA
MTFLG
LOADING
FROM
CMA,SSA,INA,SZA
MAG
TAPE?
JMP
LDRSO
YES
![](asset-14.png)
PAGE
0020
#01
TSB
LOADER
12:13
PM
rUE.,
23
OCT.,
1979
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
002401
0-5-060
061546
05061
002300
05062
117735
05063
007306
05064
027074
05065
002006
05066
027062
05067
063560
05070
061756
05071
117723
05012
'.02077
05073
027057
05014
017665
05075
007000
05076
077661
05077
117135
05100
117135
05101
006003
05102
027203
05103
060001
05104
077660
05105
077663
05106
057636
05107
027114
05110
117727
05111
064000
05112
047661
05113
117727
05114
052001
05115
011434
05116
000040
05117
117735
05120
040001
05121
177660
05122
037660
05123
037665
05124
027116
05125
000040
05126
117735
05127
054000
05130
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
'END
OF
TAPE'
HLT
718
WAIT
FOR
NEXT
TAPE
JMP
LDR46
LDR48
STB
COUNT
SAVE
WORD
COUNT
eMS
SAVE
TRUE
srB
TEMPI
WORD
COUNT
-1
JSB READA,I SKIP
FEED
FRAME
JSB READA,I
READ
LOAD
ORIGIN
SZB,RSS
ZERO
ORIGIN?
JMP
LDR54
YES
LDA
1
NO,
INITIALIZE
CHECKSUM
COUNTER
STa
TEMPO
SAVE
STB
TEMP3 ORIGIN
CPS
LNKAD
SYSTEM
LINKAGE
ADDRESSES?
JM~
LDR49
YES
JSB
ADVLA,I
NO,
VALIDATE
ORIGIN
LDB
0
COMPUTE
LAST
ADDRESS
ADS
TEMP1
TO
BE
LOADED
JSB ADVLA,I
VALIDATE
IT
LDR49
CPA
LIBRA
SYSTEM
LIBRARY
PROGRAM?
JSB
SYSLB
YES
CLE
READ
A
JSB READA,I
WORD
ADA
1
ADD
TO
CHECKSUM
COUNT~R
STB
TEMPO,I
STORE
WORD
ISZ
TEMPO
ADVANCE
ADDRESS
ISZ
COUNT
RECORD
ALL
READ?
JMP
LDR49+2
NO
CLE
YES
JSB READA,I
READ
CHECKSUM
CPS
0
DO
CHECKSU~S
AGREE?
JMP
LDR46+1
YES
![](asset-15.png)
PAGE
0021
#01
TSB
LOADER
12:13
PM
TUE.,
23
OCT.,
1979
0795
0796
0797
0798
0799
0800
0801
0802
0803
0804
0805
0806
0807
0808*
08-Q-9-*-*
0810*
0811*
0812*
0813*
0814*
0815*
0816*
0817
0818
0819
0820
0821
0822
0823
0824
0825
0826
0827
0828
0829
0830
0831
0832
0833
0834
0835
0836
0837
0838
0839
0840
0841
0842
0843
0844
0845
05131
073661
05132
077662
05133
007400
05134
063663
05135
052001
05136
077670
05137
063562
05140
067757
05141
117723
05142
063661
05143
067662
05144
102066
05145
027057
STA
TEMPt
STS
TEMP2
CCB
LOA TEr.rP3
CPA
LIBRA
STa
SYSLF+1
LDA
.17
LDB
CHKSA
JS'B
ASR35:!
LOA
TEMPt
LOB
TEMP2
HLT
66B
JMP
I,DR46 *
Lo-AD S-¥STEM
FROM
MAG
TAPE
**
*
NO,
SAVE
REGISTERS
FIRST
RECORD
OF
SYSTEM
LIBRARY
PROGRAM?
YES,
PROTECT
AGAINST
SPURIOUS
CALL
TO
SYSLB
PRINT
'CHECKSUM
P:RROR'
LOAD
RESISTERS
FOR
DISPLAY
WAIT
FOR
REREAD
ATTEMPT
READ
THE
TABLE
OF
SYSTEM
RECORDS,
THEN
READ
IN
THE
RECORDS
THEMSELVES
(COMPRISING
THE
CORE-RESIDENT
TSB
SYSTEM).
NEXT
READ
THE
SYSTEM
LIBRARY
PROGRAMS
ONE
BY
ONE,
TERMINATING
WITH
AN
END-OF-FILE.
05146
002400
05147
073670
05150
063540
05151
067646
05152
077664
05153
002001
05154
037664
05155
117725
05156
000000
05157
027420
05160
027424
05161
037664
05162
104200
05164
137646
05165
027154
05166
063540
05167
066001
05170
117725
05171
000000
05172
021176
05173
027424
05174
017434
05175
027166
05176
053572
05177
027420
05200
117725
05201
000005
05202
002001
05203
017434
LDRSO
eLA
STA
SYSLF+l
LDA
"256
LDB
MTRLA
STB
TEMP4
RSS
LDR51
ISZ
TEMP4
JSB MTAPE,I
OCT
0
JMP
EOFER
JMP
TPERR
ISZ
TEMP4
DLD
TEMP4,I
I
SZ
MTRL.A,
I
JMP
LDR51
LORS2 LOA M256
LDB
LIBRA
JSB MTAPE,I
OCT
0
JMP
LOR53
JMP
TPERR
JSB
SYSLB
JMP
tORS?
LDR53
CPA
B40
JMP
EOFER
JSB MTAPE,I
OCT
5
RSS
LDR54
JSB
SYSLB
TURN
OFF
PAPER TAPE F'LAG
LOAD
TABLE
LOAD
RECORD
PREPARE
FOR
NEXT
SYSTEM
SEGMENT
ALL
SEGMENTS
READ?
NO
YES
READ
SYSTEM
LIBRARY
PROGRAM
END-OF-FILF./ENO-OF-TAPE
WRITE
'1'0
DISC
END-OF-FILE?
NO
YES,
REWIND
AND
STANDBY
TRANSFER
LAST
PAPER
TAPE
PROGRAM
![](asset-16.png)
PAGE
0022
#01
TSB
LOADER
12:13
PM
TUE.,
23
OCT., 1979
0847*
0848**
0849*
0850*
0851*
0852*
0853*
0854*
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
0879
0880
0881
0882
0883
0884
0885
0886
0887
0888
0889
0890
0891
0892
0893
0894
0895
0896
0897
0898
0899
0900
0901
*
INITIALIZE
USER
SWAP
AREAS
**
*
FOR
EACH
USER
PORT,
INITIALIZE
THE
SWAPPING
PORTION
OF
THE
LANGUAGE
PROCESSOR,
WRITE
IT
TO
THE
APPROPRIATE
SWAP
TRACK,
AND
INITIALIZE
THE
TELETYPE
TABLE
ENTRY
CORRESPONDINGLY.
05204
063544
05205
073660
05206
062004
05207
073661
05210
063645
05211
073662
05212-
09-240-0
05213
073663
05214
062013
05215
066005
05216
047663
05217
164001
05220
174000
05221
002004
05222
007000
05223
174000
05224
002004
05225
066006
05226
047663
05227
114000
05230
002004
05231
066001
05232
047663
05233
174000
05234
002004
05235
066010
05236
047663
05237
174000
05240
002004
05241
066011
05242
047663
05243
174000
05244
002004
05245
066012
05246
047663
05247
174000
05250
067663
05251
04600)
05252
077663
05253
163662
05254
037662
05255
173661
05256
067661
05257
046003
05260
077661
05261
066014
05262
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
![](asset-17.png)
PAGE
0023
#01
TSB
LOADER
12:13
PM
rUE.,
23
OCT.,
1979
0902
0903
0904
0905
0906*
0907**
0908*
0909*
0910*
0911*
0912*
0913
0914
0915
0-9-l-6
0917
0918
0919
0920
0921
0922
0923
0924
0925
0926
0927
0928*
0929**
0930*
0931*
0932*
0933*
0934*
0935*
0936
0937
0938
0939
0940
0941
0942
0943
0944
0945
0946
0941
0948
0949
0950
0951
0952
0953
0954
0955
0956
05263
066015
05264
117724
05265
037660
05266
027214
LDB
SWPAA
JSB
DISC,I
ISZ
TEMPO
JMP
LDR58
*
WRITE
SYSTEM
TO
DISC
**
*
AREA
TO
DISC
ALL
DONE?
NO
DUMP
THE
CORE-RESIDENT
TSB
SYSTEM
TO
THE
DISC
FOR
POTENT!AL
BOOTSTRAP
LOADING.
05267
163650
05270
173655
05271
063552
Q-5-2-12-
O{)-6400
05273
117124
05274
1636'51
05275
173655
05276
063676
05277
067653
05300
117124
05301
163652
05302
173655
05303
063677
05304
067654
05305
117724
LOA
BSYIA,I
STA
WORD,I
LOA
.3
CLB-
JSB
OISC,I
LOA
BSY2A,I
STA
WORD,I
LOA
TRKTB
LOB
RSYAl
JSB
DISC,!
LOA,
BSY3A,I
STA
WORD,I
LDA
TRKTB+l
LOB
RSYA2
JSB DISC,1
*
GET
DATE
AND
TIME
**
*
WRITE
SYSTEM
TO
DISC
THE
DISC-RESIDENT
TSB
BOOTSTRAP
LOADER
TRANSFERS
HERE
AFTER
LOADING
TSB
FROM
THE
DISC. THIS
SECTION
REQUESTS
THE
DATE
AND
TIME
OF
DAY
FOR
THE
INTERNAL
CLOCKING
ROUTINES.
05306
063556
05307
067760
05310
117723
05311
002400
05312
117723
05313
117732
05314
073660
05315
006003
05316
027332
05317
060001
05320
047620
05321
006021
05322
027332
05323
006400
05324
100200
05326
172016
05327
063660
05330
053605
05331
027336
05332
063561
05333
067761
LDR59
LDA
.8
LOB
DATE
A
tJSB
ASR
35,
I
eLA
JSB ASR35,I
JSB INTGA,T
STA
TEMpO
SZB,RSS
JMP
ERR6
LDA
1
ADS
MXDAY
SSB,RSS
JMP
ERR6
eLB
MPY
.24
STA DATE,!
LOA
TEMPO
CPA
5LSH
JMP
LDR60
ERR6
LOA
.15
LOB
ILOTA
PRINT
'DATE?'
GET
RESPONSE
GET
DAY
OF
YEAR
SAVE
FOLLOWING
CHARACTER
NON-ZERO?
NO
YES
<
3b7
?
NO
YES
CONVERT
TO
HOURS
'\'
NEXT?
YES
NO,
PRINT
, 1 IlLEGAL
![](asset-18.png)
PAGE
0024
#01
TSB
LOADER
12:13
PM
TUE.,
23
OCT.,
1979
0957
0958
0959
0960
0961
0962
0963
0964
0965
0966
0967
0968
0969
0970
09-71
0972
0973
0974
0975
0976
0977
0978
0979
0980
0981
0982
0983
0984
0985
0986
0987
0988
0989
0990
0991*
0992**
0993*
0994*
0995*
0996*
0997*
0998*
0999
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
1011
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
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
ERR7
rJOA
.15
LDB
ILTIA
JSB
ASR35,I
JMP
TJDR61
LOR62
LOB
TEMPO
ADB
DATE,I
STS DATE,!
*
INITIATE
TIMESHARING
**
*
DATE'
GET
YEAR
MORE
CHARACTERS'?
NO
YES
RECQRD
YEAR
<
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
CORRECT
HOUR
OF
YEAR
IF
A
PHONES
BOARD
EXISTS,
IT
IS
TURNED
ON.
POWER
FAIL,
SET
TO
HALT
DURING
LOADING,
IS
SET
TO
THE
POWER
FAIL
ROUTINE
IN
THE
SYSTEM.
FINALLY,
CONTROL
TRANSFERS
TO
T5B.
05377
060165
05400
002003
05401
027415
05402
064000
05403
033630
05404
172022
05405
060001
05406
033631
05407
172023
05410
067632
05411
176024
05412
073413
05413
000000
LOA
PHNSC
SZA,RSS
JMP
IIDR63
LOB
0
lOR
PHi
5TA
PHlNl,I
LDA
1
lOR
PH2
STA
PHIN2,I
LOB
RSSA
STS
PHIN3,I
STA
*+1
NOP
PHONES
BOARD?
NO
YES
CREATE
APPROPRIATE
INSTRUCTIONS
EXECUTE
LAST
ONE
(C]
![](asset-19.png)
PAGE
0025
#01
TSB
LOADER
1012
1013
1014
1015
05414
172025
05415
062026
05416
070004
05417
126021
STA
LDR63
l,DA
STA
JMP
PHIN4,I
PWRFL
4
TSR,J
12:13
PM
TUE.,
23
OCT.,
1979
SET
UP
pHONES STATUS
SET
POWER-FAIL
INTERRUPT
LINK
RUN
![](asset-1a.png)
PAGE
0026
#01
12:13
PM
TUE.
,
23
OCT.
,
1979
TSB
LOADER
1017*
*
1018**
TAPE
ERRORS
**
1019*
*
1020
05420
063573
EOFER
LDA
.38
NO
RECORD
1021
05421
067764
[,DB
EOFMA
WHERE
1022
05422
117723
JSB
ASR35,I
EXPECTED
1023
05423
027427
JMP
ERRIN
TERMINATE
LOADING
1024*
1025
05424
06356&
TPERR
LDA
=22 TIMING
1026
05425
067765
LOB
TAPEA
OR
PARITY
1027
05426
117723
LJSB
ASR35,I
ERROR
1028*
1029
05427
063564
ERRIN
LDA
.20
OUTPUT
1030
05430
067766
LDB
LASOA
TERMINATION
1031
0543-1 1177-23 JSB
ASR3-5,
I
M-ESSAGE
1032
05432
102001
HLT
1
IRRECOVERABLE
1033
05433
027432
JMP
*-1
HALT
![](asset-1b.png)
PAGE
0027
#01
UTILITY
ROUTINES
12:13
PM
TUE.,
23
OCT.,
1979
1035*
1036**
1037*
1038*
1039*
1040*
1041*
1042*
1043*
1044*
1045*
1046*
1047*
1048*
10-49-*
1050*
1051*
1052
1053
1054
1055
1056*
1057
1058
1059
1060
1061
1062
1063*
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084*
1085
1086
1087
10B8
1089
*
RECORD
SYSTEM
LIBRARY
PROGRAM
**
*
UPON
FIRST
ENTRY
SYSLF
=
-1
AND
SYSLF+1 =
-1
FOR
A
PAPER
TAPE
LOAD
OR
0
FOR
A
MAG
TAPE
LOAD.
MAG
TAPE
LOADS
CALL
SYSLB
AFTER
LOADING
A
SYSTEM
LIBRARY
PROGRAM
TO
STORE
IT
ONTO
THE
DISC;
PAPER
TApE
LOADS
CALL
SYSLB
BEFORE
LOADING
A
SYSTEM
LIBRAPY
PROGRAM
TO
STORE
THE
PRECEDING
ONE
ONTO
THE
DISC;
HENCE
THE
FIRST
CALL
MUST
BE
IGNORED.
THE
FIRST
SYSTEM
LIBRARY
PROGRAM,
A
TABLE
OF
LENGTHS
!N
WORDS
OF
THE
SYSTEM
LIBRARY
PROGRAMS,
IS
COPIED
INTO
A
CORE-RESIDENT
TABLE.
AS
EACH
PROGRAM
IS
STORED
ONTO
THE
DISC, ITS
DISC
ADDRESS
REPLACES
ITS
LENGTH
IN
THIS
TABLE,
WHICH
BECOMES
THE
LINKAGE
BETWEEN
TSB
AND
THE
SYSTEM
LIBRA-R-Y.
W-HILE
SWR
(15-)
IS
,.
UP", THE
LOA-aSR
HALT-S
TO
ALLOW
PATCHING
JUST
BEFORE
WRITING
EACH
PROGRAM
ONTO
THE
DISC.
05434
000000
05435
037670
05436
002001
05437
127434
05440
106501
05441
006020
05442
10?015
05443
002400
05444
053667
05445
027472
05446
162001
05447
073667
05450
066002
05451
077675
05452
062001
05453
073664
05454
163664
05455
170001
05456
037664
05457
006004
05460
037667
05461
027454
05462
063700
05463
073671
05464
117733
05465
073673
05466
063701
05467
073672
05470
117733
05471
073674
05472
067540
05473
177655
05474
167675
05475
101026
05476
063547
SYSLB
NOP
tSZ
SYSLF+l
RSS
JMP
SYSLB,I
I,IB
1
SSB
HLT
158
eLA
CPA
SYSLF
JMP
SYSL2
LOA
LIBRA,!
STA
SYSLF
lJDB
COM6
STe SLOIR
LOA
LIBRA
STA TEMP4
SYSL1
LDA
TEMP4,I
STA
1,1
ISZ
TEMP4
INB
ISZ
SYSLF
JMP
SYSL1
LDA
TRKTB+2
STA
SYSTI
JSB ISOTA,I
STA SYSS1
LDA
TRKTB+3
STA
SYST2
JSB
ISOTA,I
STA
SYSS2
SYSL2
LOB
"256
STB
WORD,l
LOB
SLDIR,I
AS~
6
LOA
M4
FIRST
CALL
FROM
PAPER
TAPE
LOAD?
NO
YES
DEBUGGING
AID:
HLT
15B
BEFORE
SYSLIB
PROGRAM
GOES
TO
DISC
IF
SWR(15) = 1
FIRST
SYSTEM
LIBRARY
PROGRAM?
NO
YES
SET
MOVE
COUNTER
SET
TABLE
POINTER
SET
POINTER
TO
ADDRESS
TABLE
COpy
LENGTH
TABLE
INTO
ADDRESS
TABLE
SET
DISC
ADDRESSES
OF
SYSTEM
LIBRARY
TRACKS
AND
#
OF
SECTORS
AVAILABLE
ON
EACH
ONE
SET
WORD
COUNT
FOR
DISC
TRANSFER
CO~PUTE
#
OF
SECTORS
NEEDED
ROOM
ON
![](asset-1c.png)
PAGE
0028
#01
12:13
PM
'rUE.,
23
OCT.,
1979
UTILITY
ROUTINES
1090
05477
043673
ADA
SYSSI FIRST
1091
05500
002020
SSA
TRACK?
1092
05501
027517
JMP
SYSL5
NO
1093
05502
060001
LDA
1 YES,
UPDATE
1094
05503
043673
ADA
SYSSI
REMAINING
1095
05504
073673
STA SYSS1
SECTOR
COUNT
1096
05505
063671
LOA
SYSTI
LO_~D
DISC ADDRESS
1097
05506
007004
CMB,INB
SAVE
1098
05507
047671
ADS
~YST1
DISC
ADDRESS
OF
1099
05510
077671
STB
SYSTI
REMAINING
SPACE
1100
05511
173675
SYSL4
STA
SLDIR,I
SAVE
DISC
ADDRESS
1101
05512
037675
ISZ SLDIR
IN
LOADER
TABLE
1102*
1103
05513
066001
LOB
LIBRA
WRITE
PROGRAM
1104
05514
117-7-2-4
J-S-B
DISC,!
TO
DISC
1105
05515
062001
LDA
LIBRA
1106
05516
127434
JMP
SYSLS,!
1107
05517
063547
SYSL5
LOA
M4
HANDLE
1108
05520
043&74
ADA
SYSS2
1109
05521
002020
SSA
SECOND
1110
05522
027533
JMP
SYSL6
1111
05523
060001
TJDA
1 TRACK
1112
05524
043674
ADA
SYSS2
1113
05525
073674
STA SYSS2
1114
05526
063672
LOA
SYST2
1115
05527
007004
CMB,INB
1116
05530
047672
ADS
5YST2
1117
05531
077672
STa
SY[-;T2
1118
05532
027511
JMP
S'tSL4
1119
05533
063571
SYSL6
LOA
.26
OUTPUT
1120
05534
067767
LOB
SYSLA
OVERFLOW
1121
05535
117723
JSB
ASR35,I
MESS~GE
1122
05536
027427
JMP
ERRIN
TERMINATE
LOADING
![](asset-1d.png)
PAGE
0029
#01
12:13
PM
TUE.
,
23
OCT.
,
1979
CONSTANTS,
TEMPORARIES,
ETC.
1124
05537
165300
M5440
DEC
-5440
1125
05540
177400
M256
DEC
-256
1126
05541
177401
M255
DEC
-255
1127
05542
177700
"'64
DEC
-64
1128
05543
177754
M20
DEC
-20
1129
05544
177760
M16
DEC
-16
1130
05545
177764
M12
DEC
-12
1131
05546
177766
M10
DEC
-10
1132
05547
177774
M4
DEC
-4
1133
05550
177777
Ml
DEC
-1
1134
05551
000002
.2
DEC
2
1135
05552
000003
.3
DEC
3
1136
05553
000004
.4
DEC
4
1137
05554
000006
.6
DEC
6
1138
0-5-555
0-00-0-07
.7
OEC
7
1139
05556
000010
.8
DEC
8
1140
05557
000014
.12
DEC
12
1141
05557
B14
EQU
.12
1142
05560
000015
.13
DEC
13
1143
05560
B15
EQU
.13
1144
05561
000017
.15
DEC
15
1145
05562
000021
.17
DEC
17
1146
05563
000023
.19
DEC
19
1147
05564
000024
.20
DEC
20
1148
05565
000025
.21
DEC
21
1149
05566
000026
.22
DEC
22
1150
05567
000027
.23
DEC
23
1151
05570
000030
.24
DEC
24
1152
05571
000032
.26
DEC
26
1153
05572
000040
.32
DEC
32
1154
05572
840
EQU
.32
1155
05573
000046
.38
DEC
38
1156
05574
000060
860
OCT
60
1157
05575
000100
BI00
OCT
100
1158
05576
000106
RI06
OCT
106
1159
05577
000125
.85
DEC
85
1160
05600
000400
8400
OCT
400
1161
05601
001130
.600
DEC
600
1162
05602
012500
.5440
DEC
5440
1163
05603
100000
8IT15
OCT
100000
1164
05604
000054
COMMA
OCT
54
, ,
,
1165
05605
000057
SLSH
OCT
57
'/'
1166
05606
000101
A
OCT
101
'A'
1167
05607
000103
C
PCT
103
'c'
1168
05610
000104
0
nCT
104
'0'
1169
05611
000111
I
OCT
111
'I'
1170
05612
00011.4
L
OCT
114
'L'
1171
05613
000116
N
OCT
116
'N'
1172
05614
000117
0
OCT
117
'0'
1173
05615
000123
5
OCT
123
'5'
1174
05616
000125
TJ
OCT
125
'u'
1175
05617
000131
y
OCT
131
'I'
1176
05620
1,77221
MXDAY
DEC
-367
,'s
COMPT,EMENT
OF
MAXIPIUM
DAY
1177
05621
177634
MAXYR
DEC
-100
1'S
CQMPJ..IEMENT
OF
MAXIMUM
YEAR
1178
05622
177713
EQTLN
DEC
-53
LENGTH
OF"
EQUIPMENT
TA13LE
![](asset-1e.png)
PAGE
0030
#01
12:13
PM
TUE.,
23
OCT.,
1979
CONSTANTS,
TEMPORARIES,
ETC.
1179
05623
071540
MBIAS
ASS
-30000-6000
TENTHS-Of-SECOND
COUNTER
![](asset-1f.png)
PAGE
0031
#01
12:13
PM
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
106615
05625
102714
05626
102515
05627
020014
05630
102600
05631
102500
05632
002001
05575
05633
100100
05553
05515
05576
05634
000140
05635
000160
05636
004001
25200
05637
025200
12500
05640
012500
05640
05641
005771
05642
012101
05643
012100
05644
005676
05645
005702
05646
003003
05647
002504
05650
002500
05651
002501
05652
002502
05653
014000
05654
026500
05655
002423
05656
000000
05657
00243&
05660
000000
05661
000000
05662
000000
05663
000000
05664
000000
05665
000000
05666
000000
05667
000000
05671
000000
05672
000000
05673
000000
05674
000000
05675
000000
05676
000000
OTAIS
OTB
158
STC14
STC
14B
LIlIS
LIA
158
LINKA
OCT
20014
PH1
PH2
RSSA
OTA
0
tJI.Z\
0
RSS
BI00
100100
.4
Bloa
8106
'BOOTSTRAP'
BOOTSTRAP
LOADER
INSTRUCTIONS
SKELETON
CODE
FOR
PHONES
EQUIPMENT
TABLE
ADDRESS
EaT
'DISC
READ'
CORE
ADDRESS
EQ" DISC
ADDRESS
DIRECTORY
TASLE
ADDRESS
EQTA
EQU
CEQTA
OCT
OEOTA
EQU
DIREA
EQU
DIRE6
EQU
T-RAXA
DEF
DTBLA
DEF
I.JNKAD
DEF
AOTS!" EQU
ADTBA
DEF
IOTBL
EQU
IDTBA
DEF
UPRBA
EQU
DIRBA
DEF
ULTTB
DEF
ULTM1
DEF
TRKTA
DEF
USTRA
DEF
MTRLA
DEF
LDRTA
DEF'
BSYIA
DEF
BSY2A
DEF
BSY3A
OEF
RSYAl
OCT
RSYA2
OCT
WORD
OEF
BSBSA
DEF
TSBBA
DEF
TR~X
AVAILABLE
TRACK
TABLE
ADDRESS
DTBL
DISC
SELECT
CODE
TABLE
AnDRESS
LSLTB
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
TRK'J'B+4
MTRLT
LDRTT
BSYSI
BSYS2
BSYS3
14000
26500
WORDC
Bsasa
BstDR
TEMPO
8SS 1
TEMp,_
SSS 1
TEMP2
BSS
1
TEMP3
BSS
1
"EMP4
ASS
1
COUNT
8SS 1
MTFLG
BSS
1
SYSLF
BSS
2
SYST1
BSS
1
SYST2 SSS 1
SYSS1
8SS
1
SYSS2
BSS
1
SLDIR ass 1
TRKTB
BSS
20
SYSTEM
TRACK
TASLE
ADDRESS
USER
TRACK
DISC
ADDRESSES
BUFFER
ADDRESS
FOR
SEGMENT
TABLE
=>
DISC
LOADER
DISC
ADDRESSES
ADDRESSES
OF
SYSTEM
SEGMENT
WORD
COUNTS
SYSTEM
SEGMENT
CORE
ADDRESSES
DISC
BLOCK
wORD
COUNT
ADDRESS
ADDRESS
OF
'BOOTSTRAP'
BOOTSTRAP
ADDRESS
OF
TSB
BOOTSTRAP
LOADER
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
![](asset-20.png)
PAGE
0032
#01
CONSTANTS,
TEMPORARIES,
ETC.
1234
05722
006362
LKUNA
1235
05723
002010
ASR35
1236
05724
002145
DISC
1237
05725
010356
MTAPE
1238
05726
011457
MTDIA
1239
05727
007112
AOVLA
1240
05730
006625
GTDNA
1241
05731
006755
GTTRA
1242
05732
007021
INTGA
1243
05733
007011
ISOTA
1244
05734
007171
MOVUA
1245
05735
007077
RE.AOA
1246
05736
006563
SELCA
1247
05737
006665
SETDA
12-4-8-
0-57-4-0
(l-{}70-53
'P-WfJD-A
1249
05741
007233
.
GETCA
1250
05742
007251
GTMTA
1251*
1252
05743
00601-1
LBRYA
1253
05744
011706
ILINA
1254
05745
006017
S/TDA
1255*
1256
05746
006050
DISMA
1257
05747
006063
RQSTA
1258
05750
006075
BDLA
1259
05751
006105
nZMBA
1260
05752
006121
ILSCA
1261
05753
006134
LUf.JCA
1262
05754
006157
RDMSA
1263
05755
006173
BLDRA
1264
05756
006213
EOTMA
1265
05757
006222
CHKSA
1266
05760
006233
DATEA
1267
05761
006237
ILDTA
1268
05762
006247
TIMEA
1269
05763
006253
ILTIA
1270
05764
006263
EOFMA
1271
05765
006306
TAPEA
1272
05766
006321
LABOA
1273
05767
006333
SYSLA
1274
05770
006350
oonSA
1276*
1277*
NULL
DIRECTORY
1278*
DEF
LKUNL
OEF
TTY35
DEF
DISCO
DEF
MTD
DEF
MTDIN
DEF
-AOVAL
DEF
GTONO
DEF
GTTRK
DEF
INTGR
DEF
ISOTL
DEF
MOVUP
DEF
READ
OEF
sEtleD
DEF
SETDS
f)-EF-
TW-e-OG
DEF
GETeR
DEF
GETMT
DEF
IJBRY
DEF
lLIN
DEF
S/TDO
OEF
DISMD
DEF
RQSTD
DEF
RDDL
DEF
DZ"4BF
DEF
ILSCD
DEF
LULe
DEF
ROMS
DEF
BLDRC
DEF
EOTM
DEF
CHKSM
DEF
DATER
DEF
ILDTE
DEF
TIMER
DEF
ILTIM
DEF
EOFM
DEF
TAPER
DEF
LABOR
DEP
SYSL
DEF
ODDS?
12:13
PM
TUE., 23 OCT.,
LOCK/UNLOCK
CODE
ADDRESS
TTY
DRIVER
AORESS
DISC
DRIVER
ADDRESS
ItfAG
TAPE
DRIVER
ADDRESS
MAG
TAPE
INITIALIZATION
[F]
1279
05771
000000
DIRBF
DEC
0,0,0,0,0,-1,0,0
DIRECTORY
1979
ROUTINE
[FJ
1280
06001
177777
DEC
-1,-1,-1,-1,0,-1,0,0
PSUEDO-!NTRIES
![](asset-21.png)
PAGE
0033
,01
12:13
PM
TUE.,
23
OCT.,
1979
CONSTANTS, TEMPORARIES,
ETC.
1282
1283
1284
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
1295
12-9-6-
1297
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
006412
06012
046111
06017
005123
06020
042503
06034
005115
06035
040507
06050
005104
06051
044523
06063
005102
06064
042507
06074
006400
06075
005102
06076
040504
06104
006400
06i-OS 0-05-1-04
06106
044523
06120
006400
06121
005111
06122
046114
06133
006400
06134
006412
06135
043511
06156
006412
06157
005104
06160
044523
06173
005114
06174
047501
06213
005105
06214
047104
06221
006400
06222
005103
06223
044105
06232
006400
06233
005104
06234
040524
06237
005111
06240
046114
06246
006400
06247
005124
06250
044515
06?53
005111
06254
046114
06262
006400
06263
005000
06264
052516
06306
005124
06307
040520
06321
046117
06332
006412
06333
005123
06334
054523
06350
005117
06351
052524
tBRY
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'
OCT
6400
BDDL
OCT
5102
ASC
6,
AD
DELIMITER
OCT
6400
OZ
MB-F
o-eT 5-104-
ASC
10,ISC
0
MUST
BE
IN
14
OCT
6400
ILSCD
OCT
5111
ABC
9,LLEGAL
SELECT
CODE
OCT
6400
LULe
OCT
6412
Ase
l',GIVE
LOCK,
UNLOCK,
OR
LOAD
COMMAND
OCT
6412
RDMS
OCT
5104
Ase
11,ISC
MONITOR
PRESENT?
BLDRC'
OCT
5114
Ase 15,OADER
NOT
CONFIGURED
FOR
TSB,
EOTM
OCT
5105
Ase S,NO
OF
TAPE
OCT
6400
CHKSM
OCT
5103
ASC
7,HECKSU~
ERROR
OCT
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
OCT
6400
[OFM
OCT
5000
Ase 18,UNEXPECTED END-OF-FILE/END-OF-TAPE,
TAPER
OCT
5124
ASC
10,APE
CANNOT
BE
R~AD,
LABOR
ASC
9,LOAD/DUMP
ABORTED
OCT
6412
5YSL
OCT
5123
Ase 12,YSTEM
LIBRARY
OVERFLOW,
OODSP
OCT
5117
ASC
9,UT
OF
DISC SPACE,
![](asset-22.png)
PAGE
0034
#01
LOCK/UNLOCK
EXECUTION
12:13
PM
TUE.,
23
OCT.,
1979
1336*
1337**
1338*
1339*
1340*
1341*
1342*
1343*
1344*
1345*
1346*
1347
1348
1349
1350
1351
1352
1353
1354
1355
1356
1357
1358
1359
1360
1361
1362
1363
1364
1365
1366
1367
1368
1369
1370
1371
1372
1373
1374
1375
1376
1377
1378
1379
1380
1381
13B2
1383*
1384*
1385*
1386*
1387
1388
1389
1390
*
INTERPRET
REQUEST
**
*
UPON
ENTRY
(8)
= 0
FOR
A 'LOCK'
OR
-1
FOR
AN
'UNLOCK'.
SEARCH
THE
INPUT
RECORD
FOR
• <DISC #>,<TRACK
#>,<TRACK
#>
OR
FOR
-<DISC #>,<TRACK
#>.
INSURE
THAT
<DISC
#>
DOES
NOT
EXCEED
3
AND
CORRESPONDS
TO
AN
EXISTING DISC.
INSURE
THAT
ANy
<TRACK
#>
DOES
NOT
EXCE~D
64
AND
THAT
THE
SECOND
<TRACK
I>:
IF
PRESENT:
IS
AT
LEAST
AS
GREAT
AS
THE
FIRST.
06362
077417
06363
003400
06364
016625
06-3-65 12-740-2-
06366
001020
06367
043373
06370
073411
06371
017021
06372
073413
06373
017145
06374
077412
06375
063410
06376
001323
06377
005127
06400
040001
06401
073414
06402
063413
06403
053331
06404
026414
06405
007400
06406
053321
06407
026425
06410
063322
06411
067424
06412
117377
06413
127402
06414
017021
06415
053321
06416
002001
06417
026410
06420
017145
06421
007000
06422
047412
06423
006021
06424
027152
06425
077413
LKUNL
STB
MFLAG
CCA
JSB
GTONO
J-M-PL2-2A, I
ALS,ALS
ADA
LTRAX
STA
LTMP1
JSB
INTGR
STA
LTMP3
JSB
PARCK
STB
LTMP2
LOA
LTMPO
RAR,RAR
BLF,BLF
ADA
1
5TA
LTMP4
LDA
LTMP3
CPA
LB54
JMP
LKUN2
CCB
CPA
LBts
JMP
LKUN3-1
[,KUN 1 LOA
T,J.
15
LOB
BODLA
JSB
ASRDA,1
JMP
L22A,I
LKUN2
JSB
INTGR
CPA
LB15
RSS
JMP
LKUN1
JSB
PARCK
eMS
ADB
LTMP2
SSB,RSS
JMP
PARC!
STB LTMP3
SAVE
MODE
GET
LEGAL
DISC #
NOT
F-O
U-NO
FOUND,
SAVE
POINTER
TO
ITS
TRAX
TABLE
GET
TRACK
#
SAVE
FOLLOWING
CHARACTER
VALIDATE
AND
SAVE
TRACK
NUMBER
SAVE
DISC
ADDRESS
OF
TRACK
WAS
OELI~ITER
A COMMA?
YES
NO
CARRIAGe;
RETURN?
YES
NO
PRINT
ERROR
GET
SECOND
TRACK *
FOLLOWED
BY
CARRIAGE
RETURN?
YES
NO
VALIDATE
PARAMETER
COMPUTE
#
OF
TRACKS
TO
BE
LOCKED/UNLOCKED
ONE
OR
MORE?
NO
YES,
SAVE
COUNT
FOR
EACH
TRACK
IN TURN, EXTRACT
ITS
STATUS
AND
JUMp
TO
THE
LOCK
OR
UNLOCK
CODE.
06426
063414
06427
001066
06430
006400
06431
100022
LKUN3
LOA
LTMP4
ALS,CLE,ELA
CLB
ASL
2
SET
POINTER
TO
PROPER
WOR.O
OF
![](asset-23.png)
PAGE
0035
#01
LOCK/UNLOCK
EXECUTION
12:13
PM
TUE.,
23
OCT.,
1979
1391
1392
1393
1394
1395
1396
1397
1398
1399
1400
1401*
1402**
1403*
1404*
1-4-0-5*
1406*
1401*
1408*
1409
1410
1411
1412
1413
1414
1415
1416
1417
1418
1419
1420
1421
1422
1423
1424
1425
1426
1427
1428
1429
1430
1431
1432
1433
1434
1435
1436
1437
1438
1439
1440
1441
1442*
1443*
1444*
1445*
06432
047411
06433
077415
06434
001700
06435
043315
06436
160000
06437
073416
06440
113415
06441
067417
06442
006006
06443
026516
*
UNLOCK
A
TRACK
**
*
ADB
LTMPI
STS
LTMP5
ALF
ADA
BMSKA
fJDA
0,1
STA
LTMP6
AND
LTMP5,I
l,DR
MFl,AG
INB,SZB
JMP
LKUN6
TRAX
'rABLE
SAVE
APPROPRIATE
BIT
MASK
EXTRACT
TRACK
STATUS
UNLOCK?
NO
I-FTR--A-C-K
IS
LOCKED,
UNLD-C-K
IT
AN-D
INSERT A
FULL-TRACK
ENTRY
INTO
THE
ADT
(IF
THE
ADT
IS
FULL,
THE
TRACK
IS
LOST
UNTIL
A
SUBSEQUENT
RELOAD).
06444
002003
SZA,RSS
IS
TRACK
LOCKED?
06445
026507
JMP
LKUN5
NO
06446
123415
XOR
LTMP5,I
YES
06447
173415
STA LTMP5,I
UNLOCK
TRACK
06450
064137
LDB
ADIJEN
IS
ADT
06451
057340
cpa
MXADT
FULL?
06452
026501
JMP
IJKUN5 YES, TRACK
LOST
06453
007004
eMB,INB
NO
06454
047372
ADB
ADTBF
SET
POINTER
TO
06455
011415
STB
LTMP5
TJAST
WORD
+1
OF
ADT
06456
064137
LOB
ADLEN
CORRECT
06457
047313
ADB
LM2
ADT
06460
0741~7
STS
AOLEN
LENGTH
06461
017156
JSB
FADTP
FIND POSITION
FOR
NEW
ENTRY
06462
063415
LDA
LTMp5
COMPUTE
06463
003004
CMA,I~A
#
OF
06464
040001
ADA
1
F:NTRIES
06465
001100
ARS
TO
BE
06466
073410
STA
LTMPO
MOVED
06467
063415
LDA
LTMPS
06470
043313
LKUN4
ADA
LM2
SET
06471
073416
STA
LTMP6
SOURCE
ADDRESS
06472
104200
OLD
LTMP6,I
MOVE
06474
104400
DST
LTMP5,I
ENTRY
06476
063416
LOA
LTMP6
UPDATE
TO
NEXT
06477
073415
STA
LTMP5
DESTINATION
ADDRESS
06500
037410
ISZ
LTMPO
ALL
ENTRIES
MOVED?
06501
026470
JMP
LKUN4
NO
06502
063414
LOA
LTMp4
YES
06503
173415
STA
LTMPS,!
SET
ENTRY'S
DISC
ADDRESS
06504
017011
JSB I50TL
SET
06505
037415
ISZ
LTMPS
ENTRY'S
LENGTH
06506
173415
STA
LTMP5,T
IN
SECTOPS
CHECK
IF
UNPROCESSED
TRACKS
REMAIN.
IF
so,
UPDATE
REFERENCE
QUANTITIES
AND
PROCEED
TO
PROCESS
THE
NEXT
ON~;
ELSE
RETURN
TO
THE
LOADER
FOR
FURTHER
INSTRUCTIONS.
![](asset-24.png)
PAGE
0036
#01
LOCK/UNLOCK
EXECUTION
12:13
PM
TUF..,
23
OCT.,
1979
1446*
1447
1448
1449
1450
1451
1452
1453
1454*
1455**
1456*
1457*
1458*
1459*
1-460*
1461*
1462*
1463*
1464
1465
1466
1467
1468
1469
1470
1471
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481*
1482
1483
1484
1485
1486
1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499
06507
063414
06510
043335
06511
073414
06512
037412
06513
037413
06514
026426
06515
127402
LKUN5
LOA
LTMP4
ADA
LB400
STA
LTMP4
ISZ
LTMP2
ISZ
LTMP3
JMP
LKUN3
JMP
L22A,I
*
LOCK
A
TRACK
**
*
COMPUTE
DISC
ADDRESS
OF
NEXT
TRACK
ADVANCE
TRACK
#
ALL
THACKS
CONSIDERED?
NO
YES
IF
THE
TRACK
IS
UNLOCKED
AND
LOCKABLE,
LOCK
IT
AND
REMOVE
ITS
ENTRY
FROM
THE
ADT;
ELSE
PRINT A
MESSAGE
AND
CONTINUE
TO
THE
NEX-T
TRACK. A
'FRACK
IS
LOCKA-BLE
IF
IT
H-'\S
AN
AD-T
EN-TRY
CORRESPONDING
TO
THE
FULL
LENGTH
OF
THE
TRACK:
I.E.,
NO
PART
OF
THE
TRACK
IS
IN
USE.
06516
002002
06517
026507
06520
017156
06521
063414
06522
150001
06523
006005
06524
026537
06525
017011
06526
150001
06527
006005
06530
026537
06531
060001
06532
017171
06533
163415
06534
033416
06535
173415
06536
026501
06537
063324
06540
067432
06541
117377
06542
006400
06543
063412
06544
100400
06546
047332
06547
002003
06550
026553
06551
043332
06552
001727
06553
030001
06554
067344
06555
104400
06557
063316
06560
067376
06561
117377
06562
026507
LKUN6
SZA
JMP
LKUN5
JSB
FADTP
LDA
LTMP4
CPA
1,1
INB,RSS
JMP
LKUN7
JSB ISOTL
CPA
1,1
INB,RSS
JMP
LKUN7
LOA
1
JSB
MOVUP
LDA
LTMP5,I
lOR
LTMP6
STA
LTMPS,I
JMP
LKUN5
LKUN7
LOA
L.20
LDB
TRKNA
JSB ASRDA,I
CLB
LOA
LTMP2
DIV
L.10
ADS
LB6Q
SZA,RSS
JMP
LKUN8
ADA
LB60
ALF,ALF
LKUN8
TOR
1
LDB
86400
DST
EBUFA,I
LOA
L.3
LOB
FBUFA
JSB
ASRDA,I
LTMP
LKUN5
TR~oCK
t..I0CKED?
YES
NO,
FIND
ADT
ENTRY
FON
tRACK
ENTRY
FOUND?
YES
NO
GET
TRACK
LENG1'H
IS
PART
OF
TRACK
IN
USE?
NO
YES
DELETE
lOT
ENTRY
LOCK
TRACK
PRINT
'CANNOT
LOCK
TRACK
#'
COMPUTE
DIGITS
OF
TRACK
#
COMPUTE
ASCII
OF
TRACK
#
PRINT
IT
![](asset-25.png)
PAGE
0037
#01
UTILITY
ROUTINES
12:13
PM
TUE.,
23 OCT.,
1979
1501*
1502**
1503*
1504*
1505*
1506*
1507*
1508*
1509*
1510
1511
1512
1513
1514
1515
1516
1517
1518
1519
1,520
1521
1522
1523
1524
1525
1526
1527
1528
1529
1530
1531
1532
1533
1534
1535
1536
1537
1538
1539
1540
1541
1542
1543
1544*
1545**
1546*
1547*
1548*
1549*
1550*
1551*
1552*
1553
1554
1555
*
GET
SELECT
CODE
**
*
ENTER
WITH
A
CHARACTER
IN
(Al.
FIND
A TWO-DIGIT
OCTAL
INTEGER
IN
£(77
OCT
-
SELCD,I),76
OCTJ.
IF
THIS
CANNOT
BE
DONE,
PRINT
AN
ERROR
AND
EXIT
TO
(P+2),
ELSE
EXIT
TO
(P+3)
WITH
THE
INTEGER
IN
(S)
AND
THE
FOLLOWING
CHARACTER
IN
(A).
065&3
000000
06564
017220
06565
026621
06566
047311
06567
006021
0657-0 02-662-1
06571
001723
06512
013411
06573
017233
06574
026621
06575
017220
06576
026621
06577
047311
06600
006021
06601
026621
06602
043411
06603
073411
06604
017233
06605
000000
06606
067411
06607
047307
06610
006021
06611
026621
06612
146563
06613
006020
06614
026621
06615
067411
06616
036563
06617
036563
06620
126563
06621
063325
06622
067425
06623
117377
06624
026617
SELeD
NOP
JSB
DIGCK
JMP
SELC2
ADB
LM8
SSB,RSS
JM-P
SELC2
ALF,RAR
5T.A LTMP1
JSB
GETCR
JMP
SELC2
JSB
DIGCK
JMP
SELC2
ADS
[1MB
SSB,RSS
JMP
SELC2
ADA
LTMPl
STA
LTMP1
JSB
GETCR
NOP
LDB
LTMP1
ADS
LD77
SSB,RSS
JMP
SELC2
ADS
SEl,CD, I
5SB
JMP
5ELC2
LDB
LTMPI
ISZ SELen
SELC 1 I SZ
SEI,.CD
JMP
SEJ.Jcn, I
SELC2
LDA
L.21
LOB
ILSCL
JSB ASRDA,I
JMP
SEtel
*
GET
DISC
NUMBER
**
*
DIGIT?
NO
YES,
OCTAL
DIGIT?
NO
YES
SAVE
IT
* 9
NEXT
CHARACTER
AN
OCTAL
DIGIT?
NO
YES,
SAVE
SELECT
CODE
SELECT
CODE
WITHIN
NO
YES
LEGAL
RANGE?
REPORT
ERROR
SEARCH
THE
INPUT
RECORD
FOR
A
'-'
FOLLOWED
By
AN
INTEGER
IN
[0,3]
FOLLOWED
B¥
A
COMMA.
THE
REFERENCEO
DISC
EXISTS.
(A)
IF
ABOVE
CONDITIONS
ARE
EXIT
TO
(P+l).
06625
000000
06626
073410
06627
017233
GTDNO
NOP
STA
LTMPO
GTONI
JSB
GETCR
IF
(A)
=
-1
UPON
ENTRY,
CHECK
THAT
EXIT
TO
(P+2)
WITH
THE
INTEGER
IN
MET:
OTHERWISE,
PRINT
AN
ERROR
AND
SAVE
FLAG
![](asset-26.png)
PAGE
0038
'01
UTILITY
ROUTINES
12:13
PM
TUE.,
23
OCT.,
1979
1556
1557
1558
1559
1560
1561
1562
1563
1564
1565
1566
1567
1568
1569
15-7-0-
1571
1572
1573
1574
1575
1576
1577
1578
1579
15BO
1581
1582
1583
1584
1585*
1586**
1587*
1588*
1589*
1590*
1591*
1592*
1593*
1594*
1595*
1596*
1597*
1598
1599
1600
1601
1602
1603
1604
1605
1606
1607
1608
1&09
1610
06630
026637
06631
053343
06632
002001
06633
026627
06634
017021
06635
053331
06636
026643
06637
063322
06640
067424
06641
117377
06642
126625
06643
060001
06644
047312
06645
006020
0-664-6
0266-53
06647
063323
06650
067430
06651
117377
06652
126625
06653
037410
06654
026663
06655
073410
06656
043374
0&657
006400
06660
154000
06661
026647
06662
063410
06663
036625
06664
126625
JMP
GTDN2
CPA
DASH
RSS
JMP
GTDNI
JSB
INTGR
CPA
L854
JMP
GTDN3
GIDN2
LDA
L.1S
TJDB
BDDLA
JSB ASRDA,I
JMP
GTDNO,I
GTDN3
LOA
1
ADB
LM4
SSB
J-M-P-
GT-DN-5-
GTON4
LOA
L.17
L08
BAODA,
JSB ASROA,I
JMP
GTDNO,I
GTONS
ISZ
LTMPO
JMP
GTDN6
STA
LT!'PO
ADA
LDTBT,I
CLB
CPR
0,1
JMP
GTDN4
LDA
LTMPO
GTDN6
ISZ
GTDNO
JMP
GTONO,I
*
SET
DISC
TABLE
ENTRY
**
*
'-'
?
YES
NO
GET
DISC #
FOLLOWED
BY
A
COMMA?
YES
NO
PRINT
ERROR
DISC #
< 4 ?
YES
NO
PRINT
ERROR
CHECK
DISC
TABLE?
NO
YES,
SAVE
DISC #
DOES
NO
DISC
EXIST?
YES,
LOAD
DISC #
UPON
ENTRY
TEMPt
HOLDS
THE
DISC #
AND
TEMP2
HOLDS
THE
DISC'S
SELECT
CODE.
IF
TEMP2
> 0
UPON
ENTRY,
SEARCH
THE
INPUT
BUFFER
FOR
AN
INTEGER
IN
[90,128]
FOLLOWED
BY
A
CARRIAGE
RETURN.
IF
rOUND,
RESET
THE
DISC
TABLE
ENTRY
APPROPRIATELY
AND
UNLOCK
THE
TRACKS
ON
THE
DISC, EXITING
TO
(P+2'.
IF
NO
PROPER
INTEGER
IS
FOUND,
PRINT
AN
ERROR
AND
EXIt
TO
(P+1).
IF
TEMP2
= 0
UPON
ENTRY,
ZERO
THF,
DISC'S
TABLE
ENTRY
AND
LOCK
ITS
TRACKS,
EXITING
TO
(P+2).
06665
000000
06666
167406
06667
047374
06670
163407
06671
002002
06672
026710
06673
170001
06674
067312
06675
077411
06676
16740&
06677
005020
06700
047373
06701
003000
SETDS
NQP
LOB
TMP1A,I
ADB
LDTBT.J
LOA
TMP2A,I
SZA
JMP
SETD3
STA
1,1
SETDI
LOB
LM4
STB
LTMPI
LDB
TM'P1A,I
BLS,BLS
ADS
LTRAX
CMA
COMPUTE
ADDRESS
OF
pROPER
DISC
TABLE
ENTRY
DISC
RE~OVAL?
NO
YES,
REMOVE
OISC
SET
COUNTER
COMPUTE
TR~CK
TABLE
ADDRESS
SET
DISC
AVAILABLE
![](asset-27.png)
PAGE
0039
#01
UTILITY
ROUTINES
12:13
PM
TUE.,
23
OCT.,
1979
1611
1612
1613
1614
1615
1616
1617
1618
1619
1620
1621
1622
1623
1624
1625
1626
1627
1628
1629
1630
1631
1632
1633
1634
1635
1636
1637
1638
1639
1640
1641
1642
1643
1644
1645
1646
1047
1648
1649
1650
1651
1652
1653
1654*
1655**
1656*
1657*
1658*
1659*
1660*
1661*
1662*
1663
1664
1665
06702
170001
06703
006004
06704
037411
06705
026702
06706
036665
06707
126665
06710
077412
06711
017021
06712
053321
06713
026720
06714
063326
06715
067426
06716
117377
06717
126665
0672-0
0600-01
06721
047305
06722
006021
06723
026714
06724
047330
06725
006020
06726
026714
06727
001727
06730
073411
06731
006400
06732
177412
06733
167407
06734
002001
06735
047333
06736
063374
06737
073413
06740
063312
06741
073414
06742
163413
06743
013334
06744
050001
06745
026735
06746
037413
06747
037414
06750
026742
06751
047411
06752
177412
06753
003400
06754
026674
SETD2
STA
1,1
INS
ISZ
LTMPl
JMP
SETD2
ISZ
SETDS
JMP
SETDS,I
SETD3
STB
LTMP2
JSB
INTGR
CP-l\
LBtS
JMP
SETD5
SETD4
LOA
L.23
LOB
ILTRA
JSB ASRDA,I
JMP
SETDS,I
SETO-StrOA-
t-
AOS
LM129
SSB,RSS
JMP
SETD4
ADS
I.,.39
sse
JMP
SETD4
ALF,ALF
STA
LTMP1
CLB
STa LTMP2,I
LDB
TMP2A,I
RSS
SETD6
ADB
LBtoo
LDA
tOTBL
STA
LTMP3
LDA
1"M4
STA
LTMP4
SETD7
LDA
LTMP3,I
AND
LB377
CPA
1
JMP
SETD6
ISZ
LTMP3
ISZ
LTMP4
JMP
SETD7
ADS
LTMPl
STa LTMP2,I
eeA
JMP
SET01
*
GET A
COMPLETE
TRACK
**
*
OR
NOT
AS
APPROPRIATE
SAVE
DTBL
ADDRESS
GET
#
OF
SECTORS
ENO-OFwLINE?
YES
NO
PRINT
ERROR
VERIFY
RESULT
TO
BE
WITHIN
[90,128]
POSITION
AND
SAVE
LENGTH
DELETE
PRIOR
ENTRY
COMPUTE
TRIAL
SELECT
CODE
PART
SET
FOR
TABLE
SEARCH
SELECT
CODE
PART
ALREADY
USED?
YES
NO,
MOPE
TABLE
ENTRIES?
YES
NO,
CREATE
NEW
ENTRY
UNLOCK
TRACKS
SEARCH
ADT
FOR
A
FULL
TRACK.
IF
NONE
FOUND,
TERMINATE
LOADING.
IF
FOUND,
RETURN
WITH
DISC
ADDRESS
IN
(A).
IF
CA)
=
-1
UPON
ENTRY,
DELETE
TRACK'S
AOT
ENTRY,
ELS~
SET
ITS
SECTOR
COUNT
TO
ZERO.
06755
000000
06756
073411
06757
067315
GTTRK
NOP
STA
LTMPl
TJDB
L.
2
SAVE
FLAG
SET
[El
![](asset-28.png)
PAGE
0040
#01
UTILITY
ROUTINES
12:13
PM
TUE.,
23
OCT.,
1979
1666
1667
1668
1669
1670
1671
1672
1673
1674
1675
1676
1677
1678
1679
16-80-
1681
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691*
1692**
1693*
1694*
1695*
1696*
1697*
1698
1699
1700
1701
1702
1703
1704
1705
1706*
1707**
1708*
1709*
1710*
1711*
1712*
1713*
1714
1715
1716
1717
1718
1719
1720
06760
044137
06761
005100
06762
077412
06763
067372
06764
160001
06765
017011
06766
006004
06767
150001
06770
026775
06771
006004
06772
037412
06773
026764
06774
127404
06775
002400
0677-6
17-{)-001
06777
047314
07000
160001
07001
037411
07002
126755
07003
073412
07004
047315
07005
060001
07006
017171
07007
063412
07010
126755
AOS
ADLEN
BRS
STB
LTMP2
LDB
ADTBF
GTTRI
LOA
1,1
JSB ISOTL
INB
CPA
1,1
JMP
GTTR2
INS
TSZ
l,TMP2
JMP
GTTRI
JMP
ERR5A,I
GTTR2
CLA
ST-A
1-, I-
ADB
LNl
tJDA
I,
I
ISZ
LTMPl
JMP
GTTRK,I
STA
LTMP2
ADB
L.2
LOA
1
JSB
MOVUP
LDA
LTMP2
JMP
GTTRt<,I
*
ISOLATE
TRACK
LENGTH
**
*
ENTRY
COUNTER,
[El
SKIPPING
LAST
(El
P5UEDO-ENTRY
(E]
(8)
WILL
HOLD
ENTRY
ADDRESSES
LOAD
ENTRY'S
DISC
ADDRESS
GET
TRACK
LENGTH
IN SECTORS
ALL
OF
TRACK
AVAILABLE?
YES
NO
MORE
AOT
ENTRIES?
YES
NO
CLAIM
TRACK
LOAD
DISC
ADDRESS
REMOVE
ENTRY?
NO
YES
ELIMINATE
ENTRY
RETRIEVE
DISC
ADDRESS
ENTER
WITH
A DISC ADDRESS
IN
CAl.
RETURN
WITH
THE
LENGTH
IN
SECTORS
OF
THE
REFERENCED
TRACK
IN
CA).
07011
000000
07012
001222
07013
013316
07014
043374
07015
160000
07016
001727
07017
013334
07020
127011
150TL
NOP
RAL,RAL
AND
L.3
ADA
LDTBL
LOA
0,1
ALF,ALF
AND
LB377
JMP
ISOTt,I
*
BUILD
AN
INTEGER
**
*
GET
DISC #
LOAD
wORD
FROM
DISC
TABLE
EXTRACT
TRACK
LENGTH
IN
SECTORS
SEARCH
THE
INPUT
STRING
FOR
AN
INTEGER.
IF
FOUND,
RETURN
WITH
IT
IN
(8).
IF
NO
DIGITS
ARE
FOUND
OR
THE
INTEGER
OVERfLOWS
16
BITS,
RETURN
WITH
32767
IN
(8).
07021
000000
07022
003400
07023
073415
07024
002400
07025
073416
07026
017233
07027
027046
INTGR
NOP
CCA
STA.
LTMP5
eLA
INTG1
STA
LTMP6
JSB
GETCR
JMP
INTG2
SET
'NO
DIGITS'
F'LAG
INITIALIZE
TO
ZERO
STORE
PARTIAL
RESULT
MORE
CHARACTERS?
NO
![](asset-29.png)
PAGE
0041
#01
UTILITY
ROUTINES
12:13
PM
TUE.,
23
OCT.,
1979
1121
1122
1123
1724
1125
1726
1727
1728
1729
1730
1731
1732
1733
1734
173-5
1736
1737
1738
1739*
1740**
1741*
1742*
1743*
1744*
1.745*
1746*
1747
1748
1749
1750
1751
1752
1753
1754
1155
1756
1757
1758
1759
1760
1761
1762
1763
1764
1765
1766*
1767**
1768*
1769*
1770*
1771*
1772*
1773*
1774
1775
07030
017220
07031
027046
07032
073415
07033
063416
07034
100200
07036
000040
07037
043415
07040
006043
07041
002020
07042
002001
07043
027025
07044
067336
07045
127021
07046
067416
070-4-7
·037·415
01050
127021
07051
067336
07052
127021
JSB
DIGCK
JMP
INTG2
STA
LTMPS
LOA
LTMP6
MPY
L.I0
CLE
ADA
l.lTMP5
SEZ,SZB,RSS
SSA
RSS
JMP
INTG1
LOB
INF
JMP
INTGR,I
INTG2
LOB
l,TMP6
ISZ
LTtttp5
JMP
INTGR,I
LDB
TNF
JMP
INTGR,I
*
CONVERT
TWO-DIGIT
INTEGER
**
*
YES,
DIGIT?
NO
YES,
SAVE
IT
MULITPL¥
PARTIAL
RESULT
BY
10
ADD
IN
NEW
DIGIT
OVERFLOW?
YES
NO
REPLACE
WITH
MAXI1tfU'"
INTEGER
LOAD
INTEGER
ANY
DIGITS
FOUND?
YES
NO,
LOAD
ILLEGAL
INTEGER
SEARCH
THE
INPUT
RECORD
FOR
A TWO-DIGIT
INTEGRR
NOT
TO
EXCEED
-
(TWODG,
I
UPON
ENTRY).
IF
FOUND,
RETURN
TO
(P+2)
WITH
I
~4TEGER
IN
(8),
ELSE
EXIT
TO
ERROR
ROUTINE.
07053
000000
07054
017233
07055
127405
07056
017220
07057
127405
07060
006400
07061
100200
07063
073411
07064
017233
07065
127405
07066
017220
07067
127405
07070
047411
07071
060001
07072
143053
07073
037053
07074
002020
07075
127053
07076
127405
TWODG
NOP
JSB
GETeR
JMP
ERR1'A,I
JSB
DIeCK
JMP
ERR7A,I
eLB
MPY
L.IO
STA
tJTJ;4Pl
JSB
GETeR
JMP
ERR7A,I
JSB
DIGCK
JMP
ERR7A,I
ADB
LTMPl
LOA
1
ADA
TWODG,I
ISZ
't'WODG
5SA
JMP
TWODG,I
JMP
ERR7A,I
*
READ
FROM
PAPER
TAPE
**
*
FETCH
AND
VERIFy
DI~IT
MULTIPLY
BY
10
AND
SAVE
FETCH
AND
VERIFY
DIGIT
COMBINE
WITH
PRIOR
RESULT
INTEGER
TOO
LARGE?
NO
YES
RETURN
WITH
A
WORD
FROM
PAPER
TAPE
IN
(8).
IF
CEl
= 1
UPON
ENTRY,
READ
ONLY
THE
NEXT
FRAME~
IF
(E)
= 0
UPON
ENTRY,
COMBINE
THE
NEXT
TWO
FRAMES
INTO
A
16-SIr
RPSULT.
07077
000000
READ
NOP
07100
006600
CLB,CME
![](asset-2a.png)
PAGE
0042
#01
UTILITY
ROUTINES
1776
07101
103713
1.777
07102
102313
1778
07103
027102
1779
07104
106713
1780
07105
106413
1781
07106
002041
1782
07107
127077
1783
07110
005767
1784
07111
027101
READ!
STC
13B,C
SFS
138
JMP
*-1
eLC
138
MIS
13B
SEZ,RSS
JMP
READ,!
BLF,CLE,BLF
JMP
READ!
12:13
PM
TUF.., 23
OCT.,
1979
READ
A
CHARACTER
INCLUSIVE
OR
INTO
(8)
SECOND
CHARACTER
TO
BE
READ?
NO
YES,
MOVE
FIRST
CHARACTER
TO
HIGH
PART
OF
(8)
![](asset-2b.png)
PAGE
0043
#01
UTILITY
ROUTINES
12:13
PM
TUE.,
23
OCT.,
1979
1786*
1787**
1788*
1789*
1790*
1791*
1792*
1793*
1794
1795
1796
1797
1798
1799
18-0-0
1801
1802
1803
1804
1805
1806
1807
1808
1809
1810.
1811
1812
1813
1814
1815
1816
1817
1818
1819
1820
1821*
1822**
1823*
1824*
1825*
1826*
1827*
1828*
1829
1830
1831
1832
1833
1834
1835
1836
1837
*
VALIDATE ADDRESS
**
*
ENTER
WITH
AN
ADDRESS
IN
(B).
VERI~Y
THAT
THIS!AODRESS LIES
WITHIN
AN
AREA
OF
CORE
CONTAINING
TSB
SYSTEM
CODE.
IF
THIS
IS
NOT
THE
CASE,
HLT
55
OCT
WITH
THE
OFFENDING
ADDRESS
IN
(A).
07112
07113
07114
07115
07116
07117
0·712·0
07121
07122
07123
07124
07125
07126
07127
07130
07131
07132
07133
07134
07135
07136
07137
07140
07141
07142
07143
07144
000000
077411
000040
047365
002040
027137
0-47366
006021
127112
047367
006021
027137
047370
006021
127112
047371
006021
027137
047317
006021
127112
063323
067427
117377
063411
102055
127403
ADVAL
NOP
STB
LTMP1
CLE
ADB
MAXAD
SEZ
JMP
ADVA1
A 0·8· S·YST A
SSB,RSS
JMP
ADVAL,I
ADB
MAXBA
SSB,RSS
JMP
ADVAI
ADS
BPAGA
SSB,RSS
JMP
ADVAL,I
ADB
INRPA
SSB,RSS
JMP
ADVAl
ADS
LSll
SSB,RSS
JMP
ADVAL,I
ADVA1
LOA
L.17
LOB
BDADA
JSB ASRDA,I
LOA
LTMP1
HLT
55B
JMP
J,.I46
A , I
*
VALIDATE
TRACK
NUMBER
**
*
SAVE
ADDRESS
BELOW
PRO'!'ECTED
LOADER?
NO
YES, IN
MAIN
PART
Of~
SYSTEM?
YES
NO,
BELOW
UNUSED
SWAP
AREA?
NO
YES, IN
BASE
PART
OF
SYSTEM?
YE5
NO,
WITHIN
LEGAL
INTERRUPT
AREA?
NO
YES,
( A)
OR
(B)
?
NO
YES
PRINT
ERROR
DISPLAY
ADORESS
WATT
FOR
REREAD
ATTEMPT
ENTER
WITH
AN
INTEGER
IN
(8).
IF
IT
IS
LESS
THAN
64,
EXIT
WITH
(8)
UNCHANGED;
OTHERWISE,
PRINT
AN
ERROR
~ND
RETURN
TO
LOADER
SEQUENCE.
07145
000000
07146
060001
07147
043306
07150
002020
07151
127145
07152
063321
07153
067431
07154
117377
07155
127402
PARCK
Nap
I~DA
1
ADA
LM64
SSA
JMP
PARCK,I
PARe1
LOA
L.13
LOB
BAOPA
JSB
ASRDA,1
JMP
r~22A,
I
TRACK
#
<
64
?
YE5
""0
PRINT
'BAD
TRACK
#'
![](asset-2c.png)
PAGE
0044
,01
UTILITY
ROUTINES
12:13
PM
TUE.,
23
OCT.,
1979
1839*
1840**
1841*
1842*
1843*
1844*
1845*
1846*
1847
1848
1849
1850
1851
1852
18-53
1854
1855
1856
1857
1858*
1859**
1860*
1861*
1862*
1863*
1864*
1865*
1866
1867
1868
1869
1810
1871
1872
1873
1874
1875
1876
1877
1878
1879
1880
1881
1882
1883
1884
1885
1886
*
FIND
ADT
POSITION **
*
SEARCH
THE
ADT
FOR
THE
FIRST
ENTRY
WHOSE
DISC
ADDRESS
IS
EQUAL
TO
OR
EXCEEDS
THE
DISC
ADDRESS
IN
LTMP4.
RETURN
WITH
A
pOINTER
TO
THIS
ENTRY
IN
(B).
07156
000000
07157
063414
07160
003104
07161
073410
07162
067372
07163
140001
07164
00-26-4-0
07165
127156
07166
063410
07167
047315
07170
027163
FAOTP
NOP
LDA
LTMP4
CMA,CLE,INA
STA
LTMPO
LDB
.ADTSF
FAOTI
ADA
1,1
S-EiZ
JMP
FAOT?,I
LDA
LTMPO
ADS
L.2
JMP
FADTl
*
ELIMINATE
AOT
ENTRY
**
*
2'5
COMPLEMENT
DISC
ADDRESS
SAVE
IT
INITIAL
ADT
POINTER
FIRST
ADT
ENTRY
>=
TRACK DISC
ADDRESS?
YES
NO,
TRY
NEXT
ENTRY
ENTER
WITH
THE
ADDRESS
OF
THE
SCRATCHED
ADT
ENTRY
IN
CA)
AND
(B).
MOVE
THE
TABLE
BELOW
IT
OVER
IT
AND
DECREMENT
THE
ADT
LENGTH
BY
2.
07171
000000
07172
073421
07173
047313
07174
077420
07175
040137
07176
003004
07177
043372
07200
003004
07201
001100
07202
073422
07203
104200
07205
104400
07207
063421
07210
073420
07211
043315
07212
073421
07213
037422
07214
027203
07215
034137
07216
034137
07217
127171
MOVUP
NQP
STA
SOURe
ADB
LM2
STB
DEST
ADA
A.ot.$EN
CMA,INA
ADA
AD'J'BF
CMA,JNA
ARS
STA
MCNT
MOVUl
OLD
SOURC,I
DST
DEST,l
LOA
SQURe
STA
OEST
ADA
L.2
STA
SOURC
ISZ
MeNT
JMP
MOVUl
ISZ
ADLEN
ISZ
ADLEN
JMP
MOVUP,I
SAVE
SOURCE
ADDRESS
SAVE
DESTINATION
ADDRESS
COMPUTE
NUMBER
OF
ENTRIES
TO
BE
MOVE
ENTRY
UPDATE
MOVED
ADDRESSES
DONE?
NO
YES,
REDUCE
TABLE
LENGTH
BY
ONE
ENTRY
![](asset-2d.png)
PAGE
0045
#01
UTILITY
ROUTINES
CHECK
FOR
A DIGIT
12:13
PM
TUE.,
23
OCT.,
1979
*
**
*
ENTER
WITH
A
CHARACTER
IN
(A).
IF
IT
IS
A
DIGIT,
RETURN
TO
(P+2)
WITH
THE
BINARY
DIGIT
IN
CA)
AND
(8).
OTHERWISE,
RETURN
TO
(P+l)
WITH
THE
CHARACTER
IN
(A).
07220
07221
07222
07223
07224
07225
-Ol-2-26
07227
07230
07231
07232
000000
064000
047310
006021
127220
047320
006-0-2-0
127220
060001
037220
127220
DIGCK
NQP
LDB
0
ADB
LD72
SSB,RSS
JMP
DIGCK,I
ADB
LB12
SSB
JMP
DIGCK,I
LOA
1
ISZ
DIGCK
JMP
DIGCK,1
*
FETCH
INPUT
CHARACTER
**
*
ASCII
72
OCT
OR
GREATER?
YES
NO,
ASCII 57
OCT
OR
LES-51
YES
NO
1888*
1889**
1890*
1891*
1892*
1893*
1894*
1895*
1896
1897
1898
1899
1900
1901
1902
1903
1904
1905
1906
1907*
1908**
1909*
1910*
1911*
1912*
1913*
1914*
1915
1916
1911
1918
1919
1920
1921
1922
1923
1924
1925
1926
1927
1928
1929*
1930**
1931*
1932*
1933*
1934*
1935*
1936*
1937*
1938*
1939*
1940
1941
1942
RETURN
TO
(P+2)
WITH
THE
NEXT
NON-BLANK
CHARACTER
FROM
THE
INPUT
RECORD
IN
(A).
IF
A
CARRIAGE
RETURN
IS
FOUND,
RETURN
TO
(P+l)
WITH
IT
IN
(A).
07233
07234
07235
07236
07237
07240
07241
07242
07243
07244
07245
07246
01247
07250
000000
067423
037423
004065
160001
002041
001727
013334
053341
027234
0533'21
127233
037233
127233
GETeR
NOP
LDB
BADOR
ISZ
BAODR
CLE,ERB
LDA
t,I
SEZ,RSS
ALF,ALF
AND
LB377
CPA
BLANK
JMP
GETCR+l
CPA
LB15
JMP
GETeR,I
lSZ
GETeR
JMP
GETeR,I
*
GET
MAG
TAPE
SELECT
CODE
**
*
LOAD
CHARACTER
POINTER
ADVANCE
IT
LOAD
WORD
ADJUST
AS
NECESSARY
MASK
OFF
CHARACTER
BLANK?
YES,
IGNORE
IT
NO,
CARRIAGE
HETURN?
YES, EXIT
TO
(P+l)
NO,
EXIT
TO
(P+2)
REQUEST
MAG
TAPE
SELECT
CODE.
IF
THE
ANSWER
IS
A
CARRIAGE
RETURN,
INDICATING
PAPER
TAPE
RRLOAD,
RETURN
TO
(P+l).
OTHERWISE,
LOOK
FOR
A
SELECT
CODE
IN
[16
OCT,
76 OCTJ. A n*"
FOLLOWING
THE
SELECT
CODE
DESIGNATES
THE
MAG
TAPE
CONTROLLER
AS
A
7970
TYPE. EXIT
TO
(P+2)
AFTER
FINDING A
VALID
SELECT
CODE.
07251
000000
07252
063327
07253
067400
GETMT
NOP
{,IDA
L.24
LOB
MTSCA
ASK
FOR
[F]
[FJ
[F]
[Fl
(F]
[F]
[Fl
[F)
[FJ
(F]
[F"J
(Fl
[F)
![](asset-2e.png)
PAGE
0046
#01
12:13
PM
TUE.,
23
OCT.
,
1979
UTILITY
ROUTINES
1943
07254
117377
JSB
ASRDA,I
MAG
TAPE
[F]
1944
07255
002400
CLA
SELECT
1945
07256
117377
JSB ASRDA,I
CODE
[FJ
1946
07257
017233
JSB
GETeR
EMPTY
INPUT
RECORD?
CF)
1947
07260
127251
JMP
GETMT,I YES,
PAPER
TAPE
RELOAD
[F]
1948
07261
016563
JSB BELen
GET
SELECT
CODE
rFJ
1949
07262
000061
OCT
61
IN
[
16
OCT,
76
OCTl
1950
07263
027252
JMP
GETMT+1
NOT
FOUND
(F)
1951
07264
177401
STB
MTFLA,I
FOUND~
SET
FLAG
TO
'MAG
't'APE'(F]
1952
07265
053321
CPA
LBt5
CARRIAGE
RETURN
FOLLOWS?
[F)
1953
07266
027303
JMP
GTMT3
YES
[F)
1954
07267
053342
CPA STAR
NO,
ASTERISK?
[F]
1955
07270
027275
JMP
GTMT2
YES
(F]
1956
07271
063325
GTMTI
LOA
L.21
NO, OUTPUT
[F]
t95.7
07212
06.7 4-25
L-DB
lLSCL
ERROR-
[F]
1958
07273
117377
JSB
ASRDA,I
t.4ESSAGE
[F]
1959
07274
027252
JMP
GETMT+l
REQUEST
AGAIN
[F)
1960
07275
017233
GTMT2
JSB
GETeR
CARRIAGE
RETURN
FOLLOwS?
[F]
1961
07276
002001
pss
YES
[F)
1962
07277
027271
JMP
GTM1'1
NO
[F']
1963
07300
163401
LDA
MTFLA,t
FLAG
[F)
1964
07301
033337
rOR
SGNBT
AS
[F]
1965
07302
173401
STA
MTF'LA,I
7970
[F]
1966
07303
037251
GTMT3
ISZ
GETMT
[~)
1967
07304
127251
JMP
GETMT,r
[F]
![](asset-2f.png)
PAGE
0047
#01
12:13
PM
TUE.,
23
OCT.,
1979
CONSTANTS, TEMPORARIES,
ETC.
1969
1970
1971
1972
1973
1974
1975
1976
1977
1978
1979
1980
1981
1982
19-83
1984
1985
1986
1987
1988
1989
1990
1991
1992
1993
1994
1995
1996
1997
1998
1999
2000
2001
2002
2003
2004
2005*
2006
2007
2008
2009
2010
2011*
2012
2013
2014
2015
2016
2017
2018
2019
2020
2021
2022
2023
07305
177577
07306
177700
07307
177701
07310
177706
07311
177770
07312
177774
07313
177776
07314
177777
07315
000002
07316
000003
07317
000011
07320
000012
07320
07321
000015
0-73-2-1
07322
000017
07323
000021
07324
000024
07325
000025
07326
000027
07327
000030
07330
000047
07331
000054
07332
000060
07333
000100
07334
000377
07335
000400
07336
077777
07337
100000
07340
165300
07341
000040
07342
000052
07343
000055
07344
006400
07345
000001
07357
002000
07365
140100
07366
023700
07367
012000
07370
001600
07371
000165
07372
025200
07373
000140
07374
000160
01375
007345
07376
011641
07377
002010
07400
006034
07401
005666
07402
004355
07403
005057
07404
004626
07405
005370
LM129
LM64
L071
L072
LHe
LM4
LM2
LMI
L~2
L.3
LSll
L.tO
LB12
IJ
.13
LBtS
T..,.15
L.17
L.20
L.21
L.23
L.24
L.39
LB54
LB60
LBlOO
La317
LB400
INF
SGNBT
MXADT
BLANK
STAR
DASH
B6400
BMASK
DEC
-129
DEC
-64
OCT
-77
OCT
-72
DEC
-8
DEC
-4
DEC
-2
DEC
-1
DEC
,
DEC
3
OCT
11
DEC
10
EQU
L.I0
DEC
13
E-Q-U
L.l3
DEC
15
DEC
17
DEC
20
DEC
21
DEC
23
DEC
24
DEC
39
OCT
54
OCT
60
OCT
100
OCT
377
OCT
400
OCT
77777
OCT
100000
DEC
-5440
OCT
40
OCT
52
'*'
OCT
55
'.'
OCT
6400
CARRIAGE
RETURN
-
NULL
OCT
1,2,4,10,20,40,100,200,400,1000
OCT
2000,4000,10000,20000,40000,100000
MAXAD
OCT
140100
SYSTA
ASS
37700B-14000B
MAXBA
ASS
14000B-2000B
BPAGA
ABS
2000B-200B
rNRPA
ABS
200B-138
ADT
BUFFER
ADDRESS
[F]
(F]
(F]
ADTBF
LTRAX
LDTBL
BMSKA
EBUFA
ASRDA
MTSCA
MTFLA
L22A
L46A
ERR5A
ERR7A
DEF
AOTBL
DEF
TRAX
DEF
DTBL
DEF
BMASK
DEF
EBUF
DEF
TTY35
DEF
MTSC
DEF
MTFLG
DEF LOR22
DEF
LDR46
DEF
ERR5
DEF
ERR7
ADDRESS
OF
AVAILABLE
TRACK
TABLE
DISC
SELECT
COOE
TABL~
ADDRESS
ADDRESS
OF
BIT
MASK
TABLE
ADDRESS
OF
ERROR
BUFFER
ADDRESS
OF
TTY
DRIVER
[F]
[Fl
![](asset-30.png)
PAGE
0048
#01
CONSTANTS,
TEMPORARIES,
ETC.
2024
07406
005661
TMP1A
DEF
TEMP1
2025
07407
005662
TMP2A
DEF
TEMP2
12:13
PM
TUE.,
23
OCT.,
1979
![](asset-31.png)
PAGE
0049
#01
12:13
PM
TUE
..
,
23
OCT.
,
1979
CONSTANTS,
TEMPORARIES,
ETC.
2027
01410
000000
LTMPO
ass 1
2028
01411
000000
I.JTMP1.
sss 1
2029
07412
000000
LTMP2
sss
1
2030
07413
000000
LTMP3
ass 1
2031
07414
000000
LTMP4
SSS 1
2032
07415
000000
LTMP5
ass 1
2033
01416
000000
LTMP6
BSS
1
2034
01417
oonooo
MFLAG
sss
1
LOCK/UNLOCJ<
MODE
FLAG
2035
07420
000000
DEST
ass 1
2036
07421
000000
saURC
sss
1
2031
07422
000000
MCNT
BSS 1
2038
07423
000000
BADDR
BSS 1
POINTER
TO
NEXT
INPUT
CHARACTER
2039*
2040
07424
006075
BDOL"
DEF
aDOL
2041
07425
006121
IbSCL
DEF
ILSCD
2042
07426
007433
ILTRA
DEF
ILTRL
2043
07427
007447
BDADA
DEF
BADAD
2044
07430
007460
BADDA
DEF
BAOD
2045
07431
007471
BADPA
DEl"
BADP
2046
07432
007500
TRKNA
DEF
TRKNL
2047*
2048
07433
005111
ILTRL
OCT
5111
2049
07434
046114
ASC
10,LLEGAL
TRACK
LENGTH
2050
07446
006400
OCT
6400
2051
07447
005111
BADAO
OCT
5111
2052
07450
046114
ASC
7,LLEGAL
ADDRESS
2053
07457
006400
OCT
6400
2054
07460
005102
BADD
OCT
5102
2055
07461
040504
~SC
7,AD DISC
NUMBER
2056
07470
006400
OCT
6400
2057
07471
005102
BADP
OCT
5102
2058
07472
040504
ASC
5,AD TRACK #
2059
07477
006400
OCT
6400
2060
07500
005103
TRKNL
OCT
5103
2061
07501
040516
ASC
9,ANNOT
LOCK
TRACK #
2063*
[F]
![](asset-32.png)
PAGE
0050
#01
MAG
TAPE
DUMP
12:13
PM
TUE.,
23 OCT.,
1979
2065*
2066*
2067*
2068*
2069*
2070
2071
2072
2073
2074
2075
2076*
2071**
2078*
2-0--7-9*-
2080*
2081*
2082*
2083*
2084*
2085
208&
2087
2088
2089
2090
2091
2092
2093
2094
2095
2096
2097
2098
2099
2100
2101
2102
2103
2104
2105
2106
2107
2108
2109
2110*
2111**
2112*
2113
2114
2115
2116
2117
2118
2119
IF
THE
MAG
TAPE
SELECT
CODE
IS
NON-ZERO,
T5B
IS
DUMPED
IN
ITS
ENTIRETY.
ON
MAG
TAPE
FAILURES
(HLT
11
OCT)
THE
DUMP
MAY
BE
RETRIED
BY
CORRECTING
THE
CAUSE
OF
ERROR
AND
PRESSING
'RUN'.
10000
ORG
10000B
MTOMP
[,DB
MAGSe
SZB,RSS
LOAD
MAG
TAPE
SELECT
CODE
NON-ZERO?
NO
10000
064164
10001
006003
10002
026260
10003
005665
10004
017457
~JMP
MTDM8
ELB,CLE,ERB
JSS
MTDIN
CLEAR
8IT15
[F]
YES,
CONFIGURE
MAG
TAPE
ORIVER
*
MOVE
USER
LIBRARY
TRACK
TABLE
**
*
THE
AREA
OCCUPIED
BY
THE
USER
LIBRARY
TRACK
TABLE
IS
OVERWRITTEN
DURING
THE
MAG
TAPE
DUMP.
TO
INSURF
RESTARTIBILITY
OF
THE
DUMp
AFTER
A
MAG
TAPE
FAILURE,
THE
TABLE
IS
MOVED
TO
A
SECTION
OF
CORE
WHICH
IS
OTHERWISE
UNUSED.
10005
063562
10006
073626
10007
063666
10010
013627
10011
167665
10012
160001
10013
173627
10014
006004
10015
037627
10016
037626
10017
026012
10020
10020
067672
10021
002404
10022
10022
072305
t0023
076667
10024
077273
10025
016356
10026
000003
10027
016356
10030
000007
10031
100111
10032
006021
10033
026025
LDA
DM255
STA
DTMPO
LOA
DULTS
STA
DT,MPI
LOB
DULTT,!
MTOMO
LOA
1,I
STA
DTMP1,I
INB
tsZ
OTMPl
ISZ
DT"1PO
JMP
MTT>MO
MTOMl
Eau
*
LDB
MSTOC
CLA,INA
MTVFS
EQU
*
STA
MTVFL
STB
MTVLC
srB
MTVLQ
MTRWD
JSB
MTD
OCT
3
JSB
14TO
OCT
7
RRL
9
SSB,RSS
JMP
MTRwD
*
DUMp
EQUIPMENT
TABLE
**
*
10034
062346
10035
173660
10036
063573
10037
067646
10040
117657
10041
063563
10042
067611
LOA
BPT.EN
STA.
WORDN, I
LOA
BSPGA
LDB
BASPG
JSB
DlseN,I
LOA
OM64
LOB
DOIRA
SET
LENGTH
OF
MOVE
SET
DESTINATION
ADDRESS
LOAD
SOURCE
ADDRESS
MOVE
A
WORD
ADVANCE
POI['4TERS
DO~JE?
NO
B
=>
STA
XWNEC,1
A =
WRITE
REQUEST
CODE
COME
HERE
FOR
VERIFY
START
STORE
REQUEST
CODE
SET
3030
DRIVER
FOR
VERIFY
SET
7970
FOR
VERIFY
REWIND
TAPE
GET
STATUS
START
OF
TAPE?
NO
READ
SYSTEM
BASE
PAGE
INTO
CORE
WRITE
EQUIPMENT
[Fl
(F]
(F]
[Fl
[Fl
[F]
[F]
[F)
[F]
[F]
[F]
[F]
[F]
[F]
[FJ
![](asset-33.png)
PAGE
0051
#01
MAG
TAPE
DUMP
12:13
PM
TUE.,
23
OCT.,
1979
2120
2121*
2122**
2123*
2124
2125
2126
2127
2128
2129
2130
2131
2132*
2133**
2134*
2135
2136
2137
2138
2139
2140*
2141**
2142*
2143*
2144*
2145*
2146*
2147*
2148*
2149
2150
2151
2152
2153
2154
2155
2156
2157
2158
2159
2160
2161
2162
2163
2164
2165
2166
2167
2168
2169
2170
2171
2172
2173
2174
10043
016302
*
DUMP
ID
TABLE
**
10044
064135
10045
171660
10046
060134
10047
067670
10050
117657
10051
060135
10052
067667
10053
016302
*
"lSB
MTWR
LOB
IOLEN
STa
WORDN,I
LDA
IDTJOC
LDB
DTRKR
JSB
DISeN;!
LDA
IDLEN
LDB
DTRK13
JSB
MTWR
*
DUMP
TRACK
TABLE
**
10054
063562
10055
073626
10056
067666
10057
077627
10060
016302
*
LOA
014255
STA
DTMPO
LDB
DULTS
STB
DTMPI
JSB
MTWR
*
DUMP
USER
LIBRARY
TRACKS
**
*
TABLE
TO
TAPE
READ
10
TABLE
FROM
DISC
WRITE
IO
TABLE
10
TABLE
TO
TAPE
WRITE
USER
LIBRARY
TRACK
TABLE
TO
TAPE
NON-ZERO
ENTRIES
IN
THE
USER
LIBRARY
TRACK
TABLE
HOLD
THE
LENGTH
IN
-WORDS
FOR
EACH
DISC TRACK
CONTAINING
USER
LISRARY
PROGRAMS.
EACH
SUCH
TRACK
IS
DUMPED
AS
ONE
RECORD
IF
NO
LONGER
THAN
5440
WORDS,
OTHERWISE
AS
TWO
RECORDS.
10061
063621
10062
167627
10063
006003
10064
026110
10065
177660
10066
073630
10067
067670
10070
117657
10071
067667
10072
163660
10073
043624
10074
002021
10075
026105
10076
073631
10077
063561
10100
016302
10101
063631
10102
067667
10103
047624
10104
002001
10105
163660
10106
016302
10107
063630
10110
043621
10111
037627
10112
037626
t,DA
D8400
MTDM2
LDB
DTMPt,I
SZB,RSS
JMP
MTDM3
STB
WORON,I
STA DTMP2
LOB
OTRKR
JSB
DlseN,I
LOB
DTRKB
LOA
WORON,I
ADA
05440
SSA,RSS
JMP
MTDEI
STA
ceNT
LDA
N5440
JSB
J4TWR
LOA
CC~IT
LDB
DTRKB
AOB
05440
RSS
~TDEl
LOA
WORDN,!
JSB
MTWR
LD~
DTMP2
MTDM3ADA
08400
ISZ
OTMPI
ISZ
DTMPO
LOAD
DISC
ADDRESS
0,1,0
USER
LI
BRAR"Y
TRACK?
NO
YES,
SAVE
LENGTH
AND
DISC
ADDRESS
READ
USER
PROGRAMS
PROM
DISC
LOAD
BUFFER
ADDRESS
WORD
COUNT
GREATER
THAN
5440?
NO
YES,
SAVE
EXCESS
COUNT
WRITE
BLOCK
OF
5440
WORDS
LOAD
WORD
COUNT
COMPUTE
BUFFER
F'OR
REMAINDER
WRITE
TRACK
TO
TAPE
UPDATE
DISC
ADDRESS
TO
NEXT
TRACK
INCRgMENT
TABLE
POINTER
ALL
TRACKS CONSIDERED?
[F]
[F]
£FJ
[F]
[F]
[F]
(F]
[F]
(F]
(F]
(F]
![](asset-34.png)
PAGE
0052
#01
MAG
TAPE
DUMP
12:13
PM
TUE.,
23
OCT.,
1979
2175
2176*
2177**
2178*
2179*
2180*
2181*
2182*
2183
2184
2185
2186
2187
2188
218-9
2190
2191
2192
2193
2194
2195
2196
2197
2198
2199
2200
2201
2202
2203*
2204**
2205*
2206*
2207*
2208*
2209*
2210
2211
2212
2213
2214
2215
2216
2217
2218
2219
2220
2221
2222
2223
2224
2225
2226
2227
2228
2229
10113
026062
JMP
MTDM2
*
DUMP
DIRECTORY
TRACKS
**
*
NO
EACH
DIRECTORY
TRACK
OF
NON-ZERO
LENGTH
IS
DUMPED
AS
ONE
RECORD.
AN
END-OF-FILE
MARK
FOLLOWS
THE
LAST
TRACK
DUMPED.
10114
063566
10115
073626
10116
063611
10117
164000
10120
043574
10121
006003
1 G
12
2 02-61-34
10123
073627
10124
177660
10125
160000
10126
067670
10127
117651
10130
163660
10131
067667
10132
016302
10133
063627
10134
002004
10135
037626
10136
026117
10137
016320
LOA
DM4
STA
DTMPO
l!DA
DDIRA
MTOM4
LDB
O,I
ADA
0.6
5ZB,RSS
J-MP
MT-OM-5-
STA
DTMPl
STB
WORDN,!
{.lOA
0,
I
LDB
DTRKR
JSB
DISCN,I
LOA
WORDN,!
LDB
OTRKR
JSB
MTWR
LOA
DTMPl
MTDM5
INA
*
ISZ
DTMPO
JMP
MTDM4
JSB
MTWF
DUMP
SYSTE~
**
*
SET
COUNTER
FOR
DIRECTORY
TRACKS
LOAD
DIRECTORY
LENGTH
COMPUTE
POINTER
TO
DISC
ADDRESS
EMPTY
DIRECTORY
TRACK?
YES
NO,
SAVE
TABLE
POINTER
READ
[~]
DIRECTORY
TRACK
FROM
DISC
[F]
WRITE
(F)
DIRECTORY
TRACK
TO
TAPE
[F]
UPDATE
TABLE
POINTER
ALL
FOUR
DISCS
CONSIDERED?
NO
YES,
WRITE
EOF
MARK
[F]
THE
SYSTEM
IS
READ
INTO
CORE
IN
ITS ENTIRETY.
IT
IS
DUMPED
IN
SEGMENTS
AS
DEFINED
IN
THE
SYSTEM
SEGMENT
INFORMATION
TABLE.
10140
062355
10141
066354
10142
016302
10143
163647
10144
173660
10145
163650
10146
167651
10147
117657
10150
163652
10151
173660
10152
163653
1.0153
167654
10154
117657
10155
062354
10156
073627
10157
062343
10160
002004
10161
013626
10162
037627
10163
104200
LOA
MTBLN
LOB
MLTBA.
JSB
MTWR
.,
LDA
JSYS2,
t
STA
WORDN,I
LDA
JDRT'T',I
LDB
JSAD2,I
JSB
OlSeN,!
LOA
JSYS3,r
STA
WORDN,J
LDA
JDRT1,I
LOB
JS~D3,r
JSB
DlseN,I
LDA
MLTBA
5TA
DTMPl
LOA
MLTBL
INA
STA
DTMPO
MTDM6
ISZ
DT~P1
OLD
DTMPt,I
WRITE
S¥STE:M
SEGMENT
TABLE
TO
TAPE
LO~D
SYSTEM
FROM
DISC
SET TARLF:
POINTER
SET
SEGMl;;NT
COUNTER
LOAD
TABLE
[F]
[P]
(F)
[F]
(F)
[Fl
[F]
[FJ
[F]
[F]
[P]
![](asset-35.png)
PAGE
0053
tOl
12:13
PM
TUE.
,
23
OCT.,
1979
MAG
TAPE
DUMP
2230
10165
037627
ISZ
OTMPI
ENTRY
2231
10166
016302
JSB
MTWR
WRITE
SEGMENT
TO
TAPE
[F)
2232
10167
037626
ISZ
DTMPO
MORE
SEGMENTS?
2233
10170
026162
JMP
MTDM6
YES
2234*
*
2235**
DUMP
SYSTEM
LIBRARY
**
2236*
*
2237*
2238*
THE
SYSTEM
LIBRARY
IS
DUMPED
ONE
PROGRAM
AT
A
TIME
..
AN
2239*
END-Of-FILE
MARK
FOLLOWS
THE
LAST
ONE.
2240*
2241
10171
163664
LDA
COM6A,I
SET
POINTER
TO
ADDRESS
TABLE
2242
10172
073627
STA
OTMPl
OF
SYSTE~
LIBRARY
PROGRAMS
2243
10173
067563
LOB
tl
M6
4
READ
2-2-44
10-1-7-4
1-77660
S-Ta--
-W-OR-f)N-,
I
[F]
2245
10175
163627
LDA
DTMP1,I
LENGTH
TABLE
2246
10176
067671
LOB
OMTRL
2241
10177
077630
STB
DTMP2
OF
SYSTEM
2248
10200
047625
AOB
BI00K
2249
10201
117657
JSB
OlSeN,!
LIBRARY
PROGRAMS
[FJ
2250
10202
163630
LOA
OTMP2,I
SET
ENTRY
COUNTER
2251
10203
073626
STA
DTMPO
OF
LENGTH
TABLE
2252
10204
163630
MTDM7
LOA
DTMP2,I
READ
2253
10205
173660
STA
WORDN,T
SYSTEM
[F]
2254
10206
163627
LOA
DT~Pl,I
LIBRARY
2255
10207
067670
LDB
DTRKR
PROGRAM
2256
10210
117657
JSB
DlseN,I
FROM
D1SC
[F]
2257
10211
163630
LOA
DTMP2,t
WRITE
2258
10212
067667
LOB
DTRKB
IT
TO
2259
10213
016302
JSB
MTWR
TAPE
[F]
2260
10214
031627
ISZ
OTMPl
ADVANCE
2261
10215
037630
ISZ
DTMP2
POINTERS
2262
10216
037626
ISZ
OTMPO
DONE?
2263
10217
026204
JMP
MTDM7
NO
2264
10220
016320
JSB
MTWF
YES,
WRITE
EOr
MARK
[F]
2265
10221
062305
LDA
MTVFL
WAS
THIS pASS
VERIFY
[F]
2266
10222
002003
SZA,RSS i:FJ
2267
10223
026256
JMP
Ml'OMV
VERIFY
COMPLETJ4.:0
OKAY
[F]
2268
10224
016356
JSB
MTD
REWIND
(F]
2269
10225
000003
OCT
3
[F]
2270
10226
MTESQ
EQU
*
[FJ
2271
10226
063600
LOA
D.I0
[F)
2272
10227
067701
LOB
VRFYA
PRINT "VERIFY"
[F]
2273
10230
117656
JS8
TT35I,I
QUESTION
[F]
2274
10231
002400
CLA
[F)
2275
10232
117656
JSB
TT35I,I
CALL
FOR
INPU;r
[Fl
2276
10233
117655
JSB
MGTCA,I
GET
THE
FIRST
CHARACTt;R
[Fl
2271
10234
026241
JMP MTENR
EMPTY
LINE
IS
ERROR
(F)
2278
10235
053645
CPA
.Y.
OPERATOR
TYPE
"YES"?
(F)
2219
10236
026245
JMP
MTGVT
YES,
GO
VERIFY
TAPE
[F]
2280
10237
053644
CPA
.N
OPERATOR
TYPE
"NO"?
[F]
2281
10240
026250
JMP
MTDMU
MUST
NOT
DESIRE VERIFY
[Fl
2282
10241
MTENR
EQU
*
[F]
2283
10241
063602
LOA
DB17
[F]
2284
10242
067615
LOB
ILINM
"ILLEGAL
INPUT"
(F]
![](asset-36.png)
PAGE
0054
f01
12:13
PM
TUE.
, 23
OCT.
,
1979
MAG
TAPE
DUMP
2285
10243
117656
JSB
TT35I,I
COMPLAIN
ABOUT
QUAI1ITY
OF
[F]
2286
10244
026226
JMP
MTESQ
ANSWER.
[F']
2287
1024:5
MTGVT
EQU
*
[FJ
2288
10245
002400
CLA
CODE
FOR
VERIFY
CFJ
2289
10246
067673
LOB
MCPAC
LOAD
COMPARE
INSTRUCTION
[F]
2290
10247
026022
JMP
MTVFS
REPEAT
SLEEp PROCESS,
[F]
2291*
WITH
MINOR
CHANGES
[F)
2292
10250
002400
MTDMU
CLA
SPACE
ZERO FILES
AND
[F]
2293
10251
006404
CLR:INB
ONE
RECORD
FORWARD
[fO"]
2294
10252
016356
JSB
MTO
[Fl
2295
10253
000004
OCT
4
(F]
2296
10254
026312
JMP
MTDER
[FJ
2297
10255
026312
JMP
MTDER
[F]
2298
10256
MTDMV
EQU
*
[F]
22-9-9
10-25-6
016356
JSB
M-TD
REWIND
AND
2300
10257
000005
OCT
5
STANDBY
2301
10260
162275
MTDM8
LOA
ADD2K,I
SET
2302
10261
172276
STA
ADD3K,T
ALL
2303
10262
066277
LOB
ADD4K
STARTING
2304
10263
062300
LDA
HLT22
SEQUENCES
2305
10264
170001
STA
1,1
TO
PRODUCE
2306
10265
006004
INB
AN
IRRECOVERABLE
2307
10266
062301
LOA
JMPMl
HLT
22B
2308
10267
170001
STA
1,1
2309
10270
063576
LDA
OSlO PRINT
231.0
10271
067674
LDB
DONEA
'DONE'
2311
10272
117656
JSB
TT35I,I
[F]
2312
10273
102077
HLT
77B
ALLOW
NEW
DUMp
[El
2313
10274
026020
JMP
MTDMl
ON
'RUN'
[El
2314*
2315
10275
002000
AOD2K
OCT
2000
UTILITY
WORDS
FOR
2316
10276
003000
AOD3K
OCT
3000
2317
10277
004031
AOD4K
DEF
LDR+l
DISABLING
LOADER
WITHOUT
[F]
2318
10300
102022
HLT22
HLT
228
2319
10301
026000
JMPMl
OCT
26000
RELOADING
TSB
LOADER
TAPE
2320*
[F]
2321
10302
000000
MTWR
NOP
WRITE
OR
VERIFY
RECORD
(F)
2322
10303
072320
STA
MTWF
SAVE
BUFFt:R
LENGTH
[F]
2323
10304
016356
JSB
MTD
(FJ
2324
10305
000001
MTVFL
OCT
1 THIS
WORD
IS
A
ONE
FOR
SLEEP,
[F]
2325*
CHANGED
TO
A
ZERO
FOR
VERIFY
[F]
2326
10306
026312
JMP
MTDER
TAPE
[F]
2327
10307
026312
JMP
MTDER
ERRORS
[F]
2328
10310
052320
CPA
MTWF
CHECK
RECORD
LENGTH
(F]
2329
10311
126302
JMP
MTWR,I
[F"]
2330*
*
2331**
TAPE
ERROR
**
2332*
*
2333
10312
107700
MTDER
CLC
o,e
(F]
2334
10313
063604
LDA
D.24
PRINT
[F]
2335
10314
067676
LOB
TAPMA
TAPE
ERROR
2336
10315
117656
JSB
TT35I,I
MESSA.GE
[F]
2337
10316
102011
HLT
I1B
WAIT
FOR
2338
10317
026020
JMP
MTDM1
RETRY
2339*
[Fl
![](asset-37.png)
PAGE
0055
#01
12:13
PM
TUE.
,
23
OCT., ,
1979
MAG
TAPE
DUMP
2340
2341
2342
2343
2344
2345
2346
2347
2348
2349
2350
2351
2352
2353
23-54
2355
2356
2357
2358
2359
2361*
2362**
2363*
2364*
2365*
2366*
2367*
2368*
2369
2370
2371
2372
2373
2374
2375
2376
2377
2378
2379
2380
10320
000000
MTWF
NOP
TO
wRITE
OR
VERIFY
FILE
MARK
[F)
10321
002400
eLA
[F)
10322
052305
CPA
MTVFL
WRITE
OR
VERIFY?
[F]
10323
026331
JMP
MTWFY
VERIFY
[F]
10324
016356
JSB
MTO
WRITE
AN
EOF
MARK
[F]
10325
000002
OCT
2
[F]
10326
026312
JMP
MTDER
TAPE
[F]
10327
026312
JMP
MTDER
ERRORS
[F]
10330
126320
...
JMP
MTWF,I
(F]
10331
MTWFY
EQU
*
(Fl
10331
063565
LOA
OMS
TRY
TO
READ
A
SHORT
[F]
10332
067667
r
...
OB
DTRKB
RECORD
INTO
BUFFER
[F]
10333
016356
"JS8
MTD
[F]
10334
000000
OCT
0
[F]
10-335 0263-40
JMP
M-TWFZ
[F]
10336
026312
JMP
MTDER
EXPECT
END
OF
FILE
[F]
10337
026312
JMP
MTDER
EXPECT
END
OF
FILE
[Fl
10340
057616
MTWFZ
CPS
08200
EOF
STATUS?
(F]
10341
126320
JMP
MTWF,I
YES, OKAY
CP]
10342
026312
JMP
MTDER
NO
[F]
*
SYSTEM
SEGMENT
INFORMATION
TABLE
**
*
THE
FIRST
WORD
OF
THE
TABLE
GIVES
THE
NUMBER
OF
SEGMENTS.
THE
TWO-WORD
SEGMENT
ENTRIES
ARE
THE
LENGTH
OF
THE
SEGMENT
IN
-WORDS
AND
THE
ABSOLUTE
CORE
ADDRESS.
10343
177773
10344
177767
10345
000002
10346
176200
10347
000200
10350
177751
10351
004001
10352
154500
10353
014000
10354
10354
010343
10355
177767
MLTBL
DEC
-5
SYSTEM
ASS
2-138
OCT
2
SEGMENT
BPLEN
ASS
2008-20008
(F]
OCT
200
TABLE
ASS
[,SLT8-LSLTE
DEF
LSLTB
ASS
14000B-373008
OCT
14000
MLTBE
EQU
*
MLTBA
DEF
MLTBL
SYSTEM
SEGMENT
TABLE
ADDRESS
MTBLN
ASS
MLTBL-MLTBE
SYSTEM
SEGMENT
TABLE
LENGTH
![](asset-38.png)
PAGE
0056 #01
12:13
PM
TUE., 23 OCT., 1979
[Fl
MAG
TAPE
DRIVERS
2382
2383
2384*
2385*
2386*
2387*
2388*
2389*
2390*
2391*
2392*
2393*
2394*
2395*
2--3-96*-
2397*
2398*
2399*
2400*
2401*
2402*
2403*
2404*
2405*
2406*
2407*
2408*
2409*
2410*
2411*
2412*
2413*
2414*
2415*
2416*
2417*
2418*
2419*
2420*
2421*
2422*
2423*
2424*
2425*
2426*
2427*
2428*
2429*
2430*
2431*
2432*
2433*
2434*
2435*
2436*
00000
00000
CMNO
EQU
0
DATA
EQU
0
CALLING
SEQUENCE:
(WRITE/READ)
LOA
<BUFFER
LENGTH>
(>O=CHARS,
<O=WORDS)
LOB
<BUFFER
ADDRESS>
JSB MTAPE,I
OCT
<COMMAND
CODE>
(O=READ,
l=WRITE)
<EOF/EOT
RETURN)
<ERROR
RETURN>
<NORMAL
RETURN>
(A)=RECORD
LENGTH,
(B)=STATUS
READ
AND
WRITE
REQUESTS
OF
0
LENGTH
ARE
RETURNED
BY
THE
DRIVER
TO
THE
NORMAL
RETURN
LOCATION
W
ITH-€J-HT
A-N-Y-
TAP-E
MeV~EM-E-NT.
THE
FIRST
WORD
OF
2
BYTES
WRITTEN
ON
TAPE
IS
THE
USER'S
REQUEST
LENGTH.
THIS
WORD
IS
NOT
STORED
IN
THE
USER'S
BUFFER
BY
A
READ
REQUEST,
BUT
IS
LEFT
IN
THE
A
REGISTER
tN
THE
FORM
WHICH
THE
USER
SPECIFIED
(+CHARACTERS
OR
-WORDS)
AS
THE
TAPE
RECORD
LENGTH
IF
THE
TAPE
RECORD
<
THE
BUFFER
REQUEST
LENGTH.
SINCE
THE
MINIMUM
TAPE
RECORD
LENGTH
WHICH
CAN
BF.
WRITTEN
OR
READ
IS
12
CHARACTERS
OR
6
WORDS,
WRITE
REQUESTS
SMALLER
THAN
5
wORDS
WILL
BE
WRITTEN
AS
AN
EXTENDED
RECORD
OF
6
WORDS
(INCLUDING
THE
RECORD
LENGTH
WORD).
ALL
USER
READ
BUFFERS
SHOULD
HAVE
A
MINUMUM
STORAGE
AREA
OF
5
WORDS
SINCE
THE
SMALLEST
RECORD
THAT
CAN
BE
READ
FROM
THE
TAPE
IS
6
WORDS.
THE
RECORD
LENGTH
WORD
ts
STRIPPED
BY
THE
DRIVER
AND
IS
NOT
STORED
IN
THE USER
BUFFER.
CALLING
SEQUENCE:
(REWIND/REWIND
STANDBY/STATUS)
JSB
MT-APE, I
OCT
<COMMAND
CODE>
(3=REWIND, 7=STATUS,
<NORMAL
RETURN>
5=REWINO
&
STANDBY)
CALLING
SEQUENCE:
(GAP/WRITE
END
OF
FIL~)
JSB MTAPE,I
OCT
<COMMAND
CODE>
(6=GAP,
2=END
OF
FILE)
<EQF/EOT
RETURN>
<ERROR
RETURN>
<NORMAL
RETURN>
(8)
=
STATUS
CALLING
SEQUENCE:
(POSITION)
LOA
<FILE
COUNT>
(+=FORWARD,
-=REVERSE)
LDB
<RECORD
COUNT>
" "
JSB MTAPE,I
OCT
4
![](asset-39.png)
PAGE
0057
,01
12:13
PM
TUE.,
23
OCT.,
1979
[Fl
MAG
TAPE
DRIVERS
2437*
2438*
2439*
2440*
2441*
2442*
2443*
2444*
2445*
2446*
2447*
2448*
2449*
2450*
2-4-51-*
2452*
2453*
2454*
2455*
2456*
2457*
2458*
2459*
2460*
2461*
2462*
2463*
2464*
2465*
2466*
2467*
2468*
2469*
2470*
2471*
2472*
2473*
2474*
2475*
2476*
2477*
2478*
2479*
2480*
2481*
2482*
2483*
2484*
2485*
248b*
2487*
2488*
2489*
2490*
2491*
<EOF/EOT
RETURN>
<ERROR
RETURN>
<NOR~AL
RETURN>
(A)=FILE
COUNT,
(B)=STATUS
A
BACKFILE
LEAVES
THE
TAPE
POSITIONED
ON
THE
SIDE
OF
THE
N-TH
FILE
MARK
(-N
IN
A
FOR
BACKFILE)
AWAY
FROM
LOAD
POINT.
THUS
CAl
=
-2
LEAVES
THE
TAPE
AT
THE
BEGINNING
OF
THE
FILE
PRECEEDING
THE
CURRENT
FILE.
RECORD
OPERATIONS
WILL
MOVE
THE
TAPE
THE
APPROPRIATE
#
OF
RECORDS.
THE
FILE
MARK
IS
COUNTED
AS
1
RECORD.
COMMANDS
TRYING
TO
CROSS
THE
SOT
OR
EOT
MARKERS
WILL
CAUSE
AN
EXIT
TO
THE
END
OF
TAPE
RETURN
POINT.
END
OF
TAPE
ON
READ,
WRITE
OR
GAP
WILL
BE
CHECKED
BEFORE
THE
OPERATION
IS
INITIATED.
TAPE
COMMANDS
-
OCT
0 -
READ
1 -
WRITE
2 -
WRITE
END
OF
FILE
3 -
REWIND
4 - POSITION
5 -
REWIND
AND
STANDBY
6 -
GAP
(3"
BLANK
TAPE)
7 -
STATUS
(RETURNS
STATUS
IN
-8-
)
THE
STATUS
WORD
BIT
ASSIGNMENTS
~OR
THE
3030
ARE:
BIT
MEANING
o BUSY (TAPE
IN
M.OTION
OR
LOCAL
STATUS)
1
PARITY
ERROR
2
WRITE
NOT
ENABLED
OR
TAPE
REWINDING
3 REJECT: 1
MOTION
REQ'D
AND
CONTROLLER
BUSY
2
BACKWARD
MOTION
REQ'D &
AT
LOAD
POINT
3
WRITE
COMMAND
GIVEN
AND
NO
WRITE
RING
4
TIMING
ERROR
5
END
OF
TAPE
6
START
OF
TAPE
7
END
OF
FILE
8
LOCAL
MODE
THE
STATUS
WORD
BIT
ASSIGNMENTS
FOR
THE
7970
ARE:
BIT
MEANING
o
TAPE
UNIT
NOT
ON-LINE
1
PARITY
ANDIOR
TIMING
ERROR
2 FILE
pROTECTED
(NO
WRITE
ENABLE
RING)
3 REJECT: 1
MOTION
REQ'P
ANO
CONTROLLER
BUSY
2
BACKWARD
MOTION
REQ'D
&
AT
LOAD
POINT
3
WRITE
COMMAND
GIVEN
AND
NO
WRITE
RING
[FJ
[Fl
[F]
[FJ
[F]
[F)
[F]
[FJ
[F]
[F]
[~]
[FJ
[F]
![](asset-3a.png)
PAGE
0058
#01
MAG
TAPE
DRIVERS
2492*
4
2493*
5
2494*
6
2495*
7
2496*
8
2497*
9
2498*
10
2499*
11
TIMING
ERROR
END
OF
TAPE
START
OF
TAPE
END
OF
FILE
CONTROLLER
BUSY
TAPE
UNIT
NOT
READY
TAPE
UNIT
REWINDING
ODD
NUMBER
OF
BYTES
READ
12:13
PM
TUE.,
23
OCT.,
1979
(Fl
[F]
[F]
(F"]
[F]
[F]
[Fl
[F]
[F)
![](asset-3b.png)
PAGE
0059
#01
12:13
PM
TUE. ,
23
OCT.
,
1979
3030
MAG
TAPE
DRIVER
2501
10356
000000
MTO
NOP
**
MAG
TAPE
DRIVER
ENTRY
**
2502
10357
073633
STA.
BUFL
SAVE
LENGTH
AND
2503
10360
077632
STB
SUFA
ADDRESS
OF
BUFFER
2504
10361
060164
LOA
MAGSe
[F]
2505
10362
002020
SSA
79701
[F]
2506
10363
027026
JMP
XMTO
YES
[F]
2507
10364
102500
MT.21
LIA
CMND
SET
EOT
FLAG
2508
10365
013607
AND
0840
2509
10366
073636
STA
EOTF
2510
10367
016774
JSB AUTCK
INSURE
TAPE
UNIT
IN
AUTO
[El
2511
10370
063620
MT.52
LOA
08300
ISSUE A
CLEAR
COMMAND
TO
2512
10371
017006
JSB
CHAND
THE
CONTROLLER
AND
WAIT.
2513
10372
162356
LOA
MTD,!
FETCH
OPERATION
CODE
2514
10373
036356
ISZ
MTD
INCREMENT
RETURN
POINT
(P+2)
2-515 103-74-- 0-135-75
AND
D-B7
2516
10375
042377
ADA
TB.ASE
LOOK
UP PHOCE5S0R
IN
TABLE
2517
10376
124000
JMP
0,1
CALL
PROCESSOR
2518*
2519
10377
110400
TBASE
DEF
*+1,1
COMMAND
PROCESSOR
ENTRY
2520
10400
010623
DEF
READT POINT
TABLE
2521
10401
010553
DEF
WRITE
2522
10402
010543
DEF
WEOF
2523
10403
010415
DEF
REW
2524
10404
010424
DEF
POS
2525
10405
010422
DEF
RES
2526
10406
010536
OEF
GAP
2527
10407
010534
DEF
STAT
2528*
2529
10410
016530
EXIT
JSB
STIN
GET
STATUS,
RECORD
COUNT
2530
10411
036356
ISZ
MTD
AND
EXIT
2531
10412
036356
ISZ
MTO
2532
10413
063633
LOA
BUFL
2533
10414
126356
JMP
MTD,I
2534*
2535
10415
063617
REW
LDA
OB201
REWIND
2536
10416
102600
MT.20
OTA
CMNO
2537
10417
002006
INA,SZA
TIME
OUT
FOR
TAPE
UNIT
2538
10420
026417
JMP
*-j,
TO
ACCEPT
COMMAND
2539
10421
126356
JMP
MTD,I
2540*
2541
10422
063612
RES
LDA
OBI01
REWIND
AND
STANDBY
2542
10423
026416
JMP
plT.20
2543*
2544*
TAPE
POSITIONING
ROUl'!HE
2545*
2546*
ENTER
WITH
COMMANDS
STORED
IN
BUFL
AND
BUFA.
2547*
2548
10424
067633
PQS
LDB
BUF'L
GET
FILE
COUNT
2549
10425
016502
JSB
ASS
SET
FLaGS,
COMMANDS
AND
COUNT
2550
10426
026436
JMP
P
.1
# FILES =
0,
DO
RECORDS
2551
10427
063633
LOA
BUFL
2552
10430
002020
SSA
TEST
FWD/REV
2553
10431
026451
JMP
P.2
BACKSPACE
FILES
2554
10432
016515
JSB
SPACE
FORWARD
SPACE
2555
10433
026432
JMP
*-1
REPEAT
UNTIL
FILE
![](asset-3c.png)
PAGE
0060
#01
12:13
PM
TUE.
,
23
OCT.
,
1979
3030
MAG
TAPE
DRIVER
2556
10434
037635
ISZ
eNT
CHECK
FOR
FINISHED
2557
10435
026432
JMP
*-3
NO,
LOOP
2558
10436
067632
P
.1
LDB
SUF'A
PROCESS
RECORDS
2559
10437
016502
JSB
ASS SET
FOR
FWD/REV
RECORD
SPACING
2560
10440
026410
JMP
EXIT
NO
RECORDS,
EXIT
2561
10441
063632
LDA
BUFA
2562
10442
002020
SSA
TEST
FWD/REV
2563
10443
026472
JMP
P.3
BACKSPACE
RECORD
2564
10444
016515
JSR
SPACE
FORwARD
SPACP.:
2565
10445
000000
NOP
COUNT
FILE
MARK
AS
ONE
RECORD
2566
10446
037635
ISZ
eNT
FINISHED?
2567
10447
026444
JMP
*-3
NO
,
LOOP
2568
10450
026410
JMP
EXIT
YES
RETURN
2569*
2570
10-4-5-1
0-16530
P.2
JSB- STIN
GET
TAPE
STATUS
(BACK-FILE)
2571
10452
013611
AND
DBI00
MASK
FOR
SOT
2572
10453
002002
SZA
2573
10454
026461
JMP
P.4
SOT
SET
-EXIT
IF
Cf!4T
> 1
2574
10455
063634
LDA
WeNT
2575
10456
017006
JSB
CMAND
BACKSPACE:
2576
10457
013616
AND
oB200
2577
10460
002003
SZA,RSS
EOF?
2578
10461
026451
JMP
P,,2 NO,
{JOOP
2579
10462
037635
ISZ eNT
DONE?
2580
10463
026451
JMP
P.2
NO,
LOOP
AGAIN
2581
10464
037632
ISZ BurA
BUMp
RECORD
COUNTER
TO
RECROSS
2582
10465
02643.6
JMP
P
.1
LAST
FILE
MARK
AND
DO
RECORDS
2583
10466
026410
JMP
EXIT
NO
RECORDS
NOW,
EXIT
2584*
2585
10467
037635
P.4
ISZ
CNT CNT =
-1?
2586
10470
126356
JMP
MTD,I NO,
TRIED
TO
CROSS
SOT,
ERROR
2587
10471
026436
JMP
P
.1
YES,
DO
RECORD
SPACING
2588*
2589
10472
063634
P.3
LOA
weNT
BACKSPACE
RECORD
2590
10473
017006
JSB
CMAND
2591
10474
013611
AND
OBI00
2592
10475
002002
SZA
SOT?
2593
10476
126356
JMP
MTD,t
YES
-
EDT
EXIT
2594
10477
037635
ISZ
CNT
DONE?
2595
10500
026472
JMP
P.l
NO,
LOOP
2596
10501
026410
JMP
EXIT
2597*
2598
10502
000000
ASS
NOP
SET-UP
ROUTINE
2599
10503
063571
LOA
D.3
FORwARD
SPACE
COMMAND
2600
10504
006020
sse
IF
#
15
< 0 SET
FOR
2601
10505
063610
LDA
0841
BACKSPACf4:
COMMAND
2602
10506
073634
STA
weNT
2603
10507
006021
SSB,RSS
GET
-ABS(I)
FOR
eNT
2604
10510
007004
CMB,INB
2605
10511
077635
STB
CNT
2606
10512
006002
SZB
IF
= 0 EXIT
CALL
+ 1
2607
10513
036502
ISZ
ABS
OTHERWISE
CALL
+ 2
2608
10514
126502
JMP
ASS,!
2609*
2610
10515
000000
SPACE
NQP
SPACE
TAPE
![](asset-3d.png)
PAGE
0061
#01
12:13
PM
TUE.,
23
OCT.,
1979
3030
MAG
TAPE
DRIVER
2611
2612
2613
2614
2615
2616
2617
2618
2619
2620
2621*
2622
2623
2624
26-25-
2626*
2627
2628
2629*
2630*
2631*
2632
2633
2634
2635
2636
2637*
2638*
2639*
2640
2641
2642
2643
2644
2645
2646
2647
2648
2649
2650
2651
2652
2653
2654
2655
2656
2657
2658
2659
2660
2661
2662
2663
2664
2665
10516
016530
10517
013607
10520
002002
10521
126356
10522
063634
10523
017006
10524
013616
10525
002002
10526
036515
10527
126515
10530
000000
10531
102500
10532
106500
1053-3-
1-26530
10534
016530
10535
126356
10536
016761
10537
017014
10540
063577
10541
017006
10542
026410
10543
016161
10544
063606
10545
017006
10546
023616
10547
033636
10550
002002
10551
126)56
10552
026410
10553
017014
10554
016761
10555
016746
10556
006021
10557
063565
10560
043570
10561
073635
10562
073634
10563
067632
10564
047570
10565
063605
10566
102600
10567
063633
10570
001727
10571
102300
10572
026571
10573
103600
10574
006004
JSB
srIN
AND
DB40
SZA
JMP
MTD,I
LDA
weNT
JSB
CHAND
AND
08200
SZA
ISZ
SPACE
JMP
SPACE,I
STIN
NOP
S.1
LIA
CMNO
5.2
LIB
CMND
J-M-P
STI
N, I
STAT
JSB
STTN
JMP
MTD,!
GET
TAPE
STATUS
CHECK
FOR
EDT
EDT
EXIT
SPACE
CHECK
FOR
EOF
RETURN
CALL
+ 1
FOR
EOF
GET
TAPE
STATUS
GET
TAPE
STATUS
EXIT
DRIVER
WRITE
3"
BLANK
TAPE
GAP
JSB
WNEC
JSB
EOTC
LOA
DB11
JSB
CMAND
JMP
EXIT
WRITE
END
OF
FILE
\'IEOF
JSB
WNEC
LOA
0835
JSB
CMAND
XOR
DB200
tOR
EOTF
SZA
JMP
MTD,!
JMP
EXIT
WRITE
JSB
EOTC
JSB
WNEC
JSB
CNTR
SSB,RSS
LDA
OMS
ADA
DM1
STA CNT
RETRY
STA
WeNT
LDB
SUFA
A_DB
OM1
LOA
DB31
MT.l0
OTA
CMND
LOA
BUFL
OUT
ALF,ALF
MT.8
SFS
DATA
JMP
*-1
MT.9
OTA
DATA,C
INB
CHECK
FOR
WRITE
RING
IN
CHECK
FOR
END
OF
TAPE
COMMAND
NORMAL
EXIT
CHECK
FOR
WRITE
RING
IN
WRITE
FILE
MARK
CODE
CHECK
EDT
WRITE
**
CHECK
FOR
WRITE
RING
IN
GET
NEG
#
WORDS
IS
REQUEST
AT
LEAST
5
WORDS?
NO,
PAD
BUFFER
ADD
1
FOR
RECORD
LENGTH
SAVE
WORD
COUNT
GET
BUFFER
ADDRESS
INITIALIZE
BUFFER
POINTER
WRITE
CHARACTERS
CODE
ST~RT
FORWARD
TAPE
MOTION
FIRST
WRITTEN
WORD
IS
BU~L
POSlTION
FIRST
BYTE
WAIT
FOR
DATA
CHANNEL
FLAG
WRITE
FIRST
BYTE
ST~P
BUFFER
POINTER
(F]
![](asset-3e.png)
PAGE
0062
#01
12:13
PM
TUE.
,
23
OCT.
,
1979
3030
MAG
TAPE
DRIVER
2666
10575
001727
ALF,ALF POSITION
SECOND
BYTE
2667
10576
102300
MT.2 SFS DATA
2668
10577
026576
...
IMP
*-1
WAIT
FOR
DATA
FLAG
2669
10600
103600
MT.3
OTA
DATA,C
WRITE
SECOND
BYTE
2670
10601
160001
LOA
1,1
GET
NEXT
WORD
2671
10602
037634
ISZ
weNT
STEP
AND
TEST
WORD
COUNT
2672
10603
026570
JMP
OUT
NOT
END,
LOOP
2673
10604
106700
MT.5
CLC
DATA INITIATE
END
OF
RECORD
SEQUENCE
2674
10605
002400
CLA
WAIT
FOR
CONTROL
FLAG
2675
10606
017006
JSB
CMAND
AND
GET
STATUS
2676
10607
013622
AND
OB733
DISCARD
EDT
BIT
2677
10610
002003
SZA,RSS
TEST
FOR
ERRORS
DURING
WRITE
2678
10611
026410
JMP
EXIT
NORMAL
EXIT
2679
10612
063610
LOA
D841
BACKSPACE
[F]
268-0
10613
Ot70-0-6
J-S-B
CM~A-ND
[£0"]
2681
10614
063577
LDA
OBll
GAP
[F]
2682
10615
017006
JSB
CHAND
[F]
2683
10616
013607
AND
0840
[F)
2684
10617
002002
SZA
EDT?
[F]
2685
10620
027022
JMP
ERR
YES
[P]
2686
10621
063635
LOA
eNT
NO,
[Fl
2687
10622
026562
JMP
RETRY
RETRY
[F]
2688*
2689
10623
017014
READT
JSB
EOTC
READ
2690
10624
063564
LOA
DHI0
2691
10625
073637
STA
EeNT
SET
RETRY
COUNTER
TO
-10
2692
10626
016746
JSB CNTR
GET
NEG
#
OF
WORDS
2693
10627
006021
SSB,RSS
IS
REQUEST
AT
LEAST
5
WORDS?
2694
10630
063565
LOA
OM5
NO,
PAD
BUFFER
,
2695
10631
073635
STA
CNT
2696
10632
067635
RERED
LOB
CNT
NEGATIVE
WORD
COUNT
2697
10633
063632
LDA
BUFA
2698
10634
043570
ADA
OM!
2699
10635
073400
STA
XWNEC
INITIALIZE
BUFFER
POINTER
[F)
2700
10636
063603
LDA
D823
READ
CHARACTERS
CODE
2701
10637
102600
MT.40 OTA
CMND
START
TAPE
MOTION
2702
10640
103700
'4T.41
STC
CMND,C
2703
10641
102300
MT.42
SF'S
DATA
2704
10642
026641
JMP
*·1~
WAIT
FOR
DATA
FLAG
2705
10643
103500
Ml'.43
LIA
DATA,C
READ
TAPE
RECQRD
LENGTH
2706
10644
001727
ALF,ALF
2707
10645
102200
HT.30
SFC
CMND
CHECK
FOR
EOF/EOT
2708
10646
026727
JMP
ENDR
2709
10647
102300
MT.44
SFS
DATA
2710
10650
026645
JMP
*-3
WAIT
FOR
DATA
FLAG
2711
10651
103400
MT.45
MIA
DATA,C
2712
10652
073140
STA
XABS
SAVE
RECORO
IJENGTH
[Fl
2713
10653
102200
LOOP
SFC
CMND
CHECK
FOR
END
Or~
TAPE
2714
10654
026727
JMP
ENDR
2715
10655
102300
MT.46
SFS DATA
OR
NEXT
WORD
2716
10656
026653
,JMP
*-3
2717
10657
103500
HT.47 LIA
DATA,C
READ
FIRST
8YTE
2718
10660
001727
ALF,ALF POSITION
BY;IF.
2719
10661
037400
ISZ
XWNEC
STEP
BUFFER
POINTER
[F]
2720
10662
102200
MT.51
SFC
CMND
![](asset-3f.png)
PAGE
0063
#01
12:13
PM
TUE.
,
23
OCT.,
1979
3030
MAG
TApE
DRIVER
2721
10663
026727
JMP
ENDR
2722
10664
102300
MT.48 SFS DATA
2723
10665
026662
JMP
*-3
2724
10666
103400
MT.49
MIA
DATA,C
READ
AND
MERGE
SECOND
BYTE
2725
10667
173400
MTVLC
STA
XWNEC,I
***
THIS
WORD
CHANGED
***
[F]
2726
10610
006007
INB,SZB,RSS
END
OF
BUFF.'ER?
[F]
2127
10671
002001
RSS
NO
COMPARE
OR
BUFFER
END
[F]
2728
10672
026655
JMP
MT.46
NOT
END,
READ
NEXT
WORD
2729
10673
006002
SZB
SKIP
IF
BUFFER
END
(FJ
2730
10674
026312
JMP
MTDER
NO
COMPARE
ON
VERIFy
[F]
2731
10675
106700
MT.50
CLC
DATA
ST.ART
END
or
RECORD
SEQUENCE
2732
10676
002400
CLA
2733
10677
017006
JSB
CMAND
WIAT
FOR
END
OF
RECORD
2134
10700
013623
AND
DB757
DISCARD
TIMING
ERROR
BIT
2-13-5
107-01-
00
2
Q-O-l
R-SS··
P-R-O-C5-SS
EN-El-
-OF
..
RE-CD-R
f)
2736
10702
016530
READX
JSB STIN
RESTORE
STATUS
2737
10703
013622
AND
DB733
DISCARO
NW
AND
EDT
BITS
2738
10704
002003
SZA,RSS
ANY
F.RRORS?
2739
10705
026410
JMP
EXIT
NO,ODN~
2740
10706
013616
AND
08200
CHECK
FOR
END
OF
FILE
2741
10707
002002
SZA
2742
10710
126356
JMP
MTD,I
EOF
EXIT
2743
10711
074000
5TH 0
~ESTORE
STATUS
2744
10712
037631
ISZ
EeNT
HAVE
fiE
TRIED
10
TJMES?
2745
10713
002001
RSS
NO
2746
10714
026720
JMP
SHORT YES,
CHECK
FOR
SHORT
RECORD
[FJ
2747
10715
06361.0
LDA
DB41
BACKSPACE
2148
10716
017006
JSR
CMAND
2749
10717
026632
JMP
RERED
TRY
AGAIN
2150
10720
063632
SHORT
LOA
BUFA
RECORD
[F]
2751
10721
003004
CMA,INA
(F]
2752
10722
043400
ADA
XWNEC
< 5
[F)
2153
10723
043565
ADA
DMS;
[F]
2754
10724
002020
SSA
WORDS?
[F']
2755
10725
026623
JMP
REAOT
YES
tFl
2756
10726
027022
JMP
ERR
NO
(F]
2757*
RECORD
<
BUFFER
LENGTH,
GET
TAPE
LENGTH
IN
USER'S
BUFFER
2758*
2759
10727
063140
ENDR
LOA
XABS
GET
TAPE
RECORD
LENGTH
[F]
2160
10730
067633
LDB
BUFL
GET
USER
BUFFER
LENGTH
2761
10731
006020
SSB
CHECK
USER'S SPECIFICATIONS:
2762
10732
026740
JMP
*+6
USER
SPECIFIED
WORDS
2763
10733
002021
SSA,RSS
USER
SPECIFIP.D
CHARACT~RS
2764
10734
026744
JMP
ENDRl
BOTH
ARE
WORDS
2765
10735
001000
ALS
DIFFERENT,
CONVERT
'I'D
CHARS
2166
10736
003004
CHA,INA
2767
10737
026744
JMP
ENOR1
2768
10740
002020
SSA
CHECK
TAPE
TYPE
2169
10741
026744
JMP
ENOR1
WORDS,
2770
10742
003004
CMA,INA
CHARACTERS,
MAKE
WORDS
2771
10743
001100
ARB
2772
10744
073633
ENDR1
STA
BUFL
SAVE
TAPE
LENGTH
FOR
USER
2773
10745
026702
JMP
READX
CONTINUE
REAl)
PROCESSING
2774*
2715
10746
000000
CNTR
NOP
GET
NEG
#
WORDS
IN
A
![](asset-40.png)
PAGE
0064
#01
2776
2777
2778
2779
2780
2781
2782
2783
2784
2785
3030
MAG
TAPE
DRIVER
10741
063633
10750
002003
10751
026410
10752
002020
10753
026756
10754
003004
10755
001100
10756
064000
10757
047573
10760
126146
LOA
BUF'L
SZA,RSS
JMP
EXIT
SSA
JMP
*+3
CMA,
INA.
ARS·
LDB 0
ADS
0
..
5
JMP
CNTR,I
12:13
PM
TUE.,
23
OCT.,
1979
USER'S
BUFFER
LENGTH
o
LENGTH,
DON'T
READ
OR
WRITE
WORDS
OR
CHARACTERS?
WORDS,
LEAVE
AS
IS
CHARACTERS,
CONVERT
TO
WORDS
RETURN
WITH
(NEG
•
WORDS
+
5)
IN
B
![](asset-41.png)
PAGE
0065
#01
12:13
PM
TUE.
,
23
OCT.
,
1979
3030
MAG
TAPE
DRIVER
2787
10761
000000
WNEC
NOP
CHECK
FOR
WRITE
RING
2788
10762
102500
MT.12
LIA
CMND
2789
10763
013572
AND
D.4
2790
10764
002003
SZA,RSS
2791
10765
126761
JMP
WNEC,I
EXIT
WITH
WRITE
ENABLED
2792
10766
063603
llDA
D.19
REQUEST
2793
10767
067700
LDB
WNEA
WRITE
2794
10770
117656
JSB
TT35I,I
RING
[F]
2795
10771
102033
HLT
33B
WAIT
2796
10772
016774
JSB AUTCK
INSURE
TAPE
UNIT
IN
AUTO
[El
2797
10773
026762
JMP
MT.12
2798*
.~
[EJ
2799*
CHECK
FOR
TAPE
UNIT
IN
AUTO
[El
2800*
[El
2-8-0-1
1077-4-
O-Q-O
O-G
0
A:UTC-K
HOP
(E-]
2802
10775
102500
MT
.1
LIA
CMND
IS
[El
2803
10776
013621
AND
OB400
STATUS
[E]
2804
10777
002003
SZA,RSS
AUTO?
(El
2805
11000
126774
\.TMP
AUTCK,I
YES
[El
2806
11001
063605
l.!OA
D.25
NO
[El
2807
11002
067677
LDB
MTLMA
REQUEST
[E]
2808
11003
117656
JSB
TT35I,I
AUTO
[Fl
2809
11004
102044
HLT
448
WAIT
[El
2810
11005
026715
JMP
MT.1 (E1
2811*
2812
11006
000000
CHAND
NOP \ ISSUE THE
COMMAND
IN
-A-
2813
11007
102600
MT.14
OTA
CMND
2814
11010
102300
MT.15
SFS
CMND
2815
11011
027010
JMP
*-1
2816
11012
016530
JSB
STIN
GET
TAPE
STATUS
2817
11013
127006
JMP
CMAND,I
2818*
2819
11014
000000
EOTC
NOP
CHECK
FOR
EOT
2820
11015
016530
JSB
STIN
2821
11016
063636
LOA
EOTF
2822
11017
002002
SZA
2823
11020
126356
JMP
MTD,I
2824
11021
121014
JMP
EOTe,!
2825*
2826
11022
016530
ERR
JSB
STIN
ERROR
EXIT
2827
11023
002400
CLA
2828
11024
036356
ISZ
MTD
2829
11025
126356
JMP
MTD,I
![](asset-42.png)
PAGE
0066
.01
12:13
PM
TUE.,
23
OCT.
,
1979
7970
MAG
TAPE
DRIVER
[F]
2831
11026
017165
XNTO
JSB
XSTIN
GET
STATUS
[F]
2832
11027
000010
SLA
CONTROLLER
BUSY?
(F)
2833
11030
027166
JMP
XS.l
YES,
CONTINUE
(F]
2834
11031
106700
XT.13
CLC
DATA
CLEAR
CONTROL
BIT
[F)
2835
11032
106700
XT.16
CLC
CMND
ON
BOTH
CHANNELS
[F]
2836
11033
063116
LDA
SLO
NO
[FJ
2837
11034
102600
XT.l
OTA
CMND
SEt,ECT
UNIT
0
[F]
2838
11035
017432
JSB
XATCK
INSURE
TAPE
UNIT
IN
AUTO
(F]
2839
11036
162356
tlOA
MTD:T
F'ETCH
OpERATION
CODE
[F)
2840
11037
013575
AND
DB7
USE
LOWER
3 BITS
(F']
2841
11040
053575
CPA
DB7
STATUS
REQUEST?
[F]
2842
11041
027123
JMP
ERR.l
YES,
STATUS
IN
(B)
[F]
2843
11042
073140
STA
XABS
NO
[F]
2844
11043
063614
LOA
OS110
ISSUE
CLEAR
[Fl
2845
11044
017415
J5-B
XCM-N-O
COMM-ANT)
[F]
2846
11045
063140
LDA
XABS
[F]
2847
11046
036356
ISZ
MTD
INCREMENT
RETURN
POINT
(P+?)
(F]
2848
11047
043051
ADA
XBASE
LOOK
UP PROCESSOR
IN
TABLE
[F]
2849
11050
124000
JMP
0,1
CALL
PROCESSOR
(F)
2850*
[F]
2851
11051
111052
XBASE
DEF
*+1,1
cor.(MAND
PROCESSOR
ENTRY
[F)
2852
11052
011251
DEF
XREAD
POINT
TABLE
[F]
2853
11053
011212
DEF
XWRTE
[F]
2854
11054
011202
DEF
XWEOF
[F]
2855
11055
011063
DEF
XREW
[Fl
2856
11056
011070
DEF
xpos
[F]
2857
11057
011061
DEF
XRES
[F]
2858
11060
011172
OEF
XGAP
[F]
2860
11061
063613
XRES
LDA.DBI05
REWIND/STANDBY
COMt-fAND
[F]
2861
11062
002301
CCE,RSS
[F]
2862
11063
063612
XREW
LOA
DBI01
REWIND
COMMAND
[F)
2863
11064
002300
CCE
[
F]
2864
11065
017415
JSB
XCMND
INITIATE
COMMAND
EXECUTION
[F]
2865
11066
017165
JSB
XSTIN
GET
STATUS
[F]
2866
11067
027124
JMP
XITl
[F]
2867*
IF]
2868**
TAPE
POSITIONING
ROUTINE
**
[F]
2869*
[F]
2870*
ENTER
WITH
COMMANDS
STORED
IN
BUFA
AND
BUFL
[FJ
2871*
[F]
2872
11070
067633
XPOS
LOB
BUFL
GET
FILE
COUNT
(F)
2873
11071
063616
LOA
08200
[F]
2874
11072
017140
JSB
XABS
SET
FLAGS,
COMMANDS
AND
COUNT(F]
2875
11073
027107
JMP
XP.1
# FILES =
0,
DO
RECORDS
[F]
2876
11074
003741
XP.5 CCA,SEZ,CCE,RSS
BACKWARDS
MOTION?
[F]
2877
11075
017127
JSB
XP.2
YES,
GO
CHECK
FOR
"BOT"
[fJ
2878
11076
017153
JSB
XSPCE
FORWARD
SPACE
(FJ
2879
11077
027014
JMP
XP.5
REPEAT
UNTIL
FILE
[FJ
2880
11100
037370
ISZ
XCNTR
FINISHED?
[F]
2881
11101
027074
JMP
XP.5
NO,
LOOP
[F]
2882
11102
063633
tJDA
BUFL
[F]
2883
11103
001276
RAL,CLE,SLA,ELA
BACKFILE
REQUEST?
[FJ
![](asset-43.png)
PAGE
0067
#01
12:13
PM
TUF.:. ,
23
OCT.
,
1979
7970
MAG
TAPE
DRIVER
(F]
2884
11104
037632
ISZ
aUFA
[F]
28B5
11105
000031
SLA,ARS
SKIP
(F}
2886
11106
027121
JMP
XIT
[F]
2887
11107
067632
XP.l
LOB
BUFA
PROCESS
RECORDS
[FJ
2888
11110
002400
CLA
[FJ
2889
11111
017140
JSB
XABS
SET
FOR
FWD/REV
RECORD
SPACE
[F]
2890
11112
027121
JMP
XIT
NO
RECORDS,
EX!'!'
[F]
2891
11113
003541
xP.o
CCA,SEZ,CLE,RSS
BACKWARDS
MOTION?
[F]
2892
11114
017127
JSB XP.2
YES;
GO
CHECK
FOR
"BOT"
[F]
2893
11115
017153
JSB
XSPCE
FORWARD
SPACE
[F]
2894
11116
001400
SLO
ALR
SELECT
UNIT
0
COMMA~D
[F]
2895
11117
037370
ISZ
XCNTR
FINISHED?
(F]
2896
11120
027113
JMP
XP.o
NO,
l,QOP
[F]
2897*
[F]
2a98- 1112-1
03-6-3-56-
XIT
!-sz
M-'J.!D
[Fl-
2899
11122
017165
JSB
XSTIN
GO
LOAD
THE
MT
STATUS
iF]
2900
11123
036356
ERR.l
!SZ
MTD
[F]
2901
11124
063633
XITl
LOA
BUFL
[F)
2902
11125
106700
XT.4
eLC
CMND
CLEAR
MT
COMMAND
CONTROL
BIT
[F]
2903
11126
126356
JMP
"TO,I
[F]
2905
11127
000000
XP.2
NOP
[F]
2906
11130
017165
JSB
XSTIN
GET
STATUS
[F]
2907
11131
001200
RAI, SHIFT
SOT
BIT
TO
A15.
(FJ
2908
11132
002021
SSA,RSS
MT
UNIT
AT "SOT"?
(F]
2909
11133
127127
JMP
XP.2,I
NO,
RETURN
[F]
2910
11134
002040
SEZ
YES,
FILE SKIPPING?
[F]
2911
11135
037370
ISZ
XCNTR
CNT=-l?
[F]
2912
11136
027124
JMP
XIT1
NO,
TRIED
TO
CROSS SOT
[F]
2913
11137
027107
JMP
XP.l
YES,
DO
RECORD
SPACING
(F]
2915
11140
000000
XABS
NOP
SET
...
UP
ROUTINE
[F]
2916
11141
006021
SSB,RSS
[P]
2917
11142
043571
ADA
D.3
FORWARD
SPACE
COMMA_NO
[F]
2918
11143
006020
5SB
IF
#
IS
< 0 SET
FOR
[F)
2919
11144
043610
ADA
DB41
BACKSPACE
COMMAND
(F]
2920
11145
073400
STA
XWNEC
[F]
2921
11146
006121
CLE,SSB,RSS
GET
-ABS(,)
FOR
CNT
[F]
2922
11147
007306
CMB,CCE,INB,SZB
IS
THE
MT
TO
BE
MOVED?
[F]
2923
11150
037140
ISZ
XABS
YES,
EXIT
TO
(P+2)
[F]
2924
11151
077370
STB
XCNTR
[F]
2925
11152
127140
JMP
XABS,I
[F]
2926
11153
000000
XSPCE
NQP
[FJ
2927
11154
002120
CLE,SSA
IS
TAPE
MOTION
BACKWARDS
[F]
2928
11155
017451
JSB
XEOTC
[FJ
2929
11156
063400
LOA
XWNEC
[F)
2930
11157
017415
JSB
XCMND
SPACE
[Fl
2931
11160
001210
RAL,SLA
EOF
MARK?
[F]
2932
11161
037153
ISZ
XSPCE
YES
[F]
2933
111.62
002320
CCE,SSA
NO,
IS
THE
TAPE
AT
SO'1'?
[F']
2934
11163
027124
JMP
XITl
YES
[FJ
2935
11164
127153
JMP
XSPCE,1
NO
[F'J
![](asset-44.png)
PAGE
0068
#01
7970
MAG
TAPE DRIVER
2937
2938
2939
2940
2941
2942*
2943**
2944*
2945
2946
2947
2948
2949
2950*
29-5-1**-
2952*
2953
2954
2955
2956
2957
2958
2959
2960
2961
2962
2963
2965
2966
2967
2968
2969
2970
2971
2972
2973
2914
2975
2976
2977
2978
2979
2980
2981
2982
2983
2984
2985
2986
2987
2988
2989
2990
11165
000000
11166
102500
11167
064000
11110
001127
11171
127165
XSTIN
NOP
XS.1 LIA
CMND
LOB
0
ALF,ALF
JMP
XSTIN,I
WRITE
4"
BLANK
TAPE
**
11172
01740Q
11173
017451
11174
063601
11175
017415
11176
027121
XGAP
JSB
XWNEC
JSB
XEOTC
LOA
OB15
JSB
XCMND
JMP
XIT
WRITE
END
OF
FILE
**
11177
063610
11200
017415
11201
027204
11202
017400
11203
103100
11204
063615
11205
017415
11206
005332
11201
027177
11210
017451
11211
027121
11212
017400
11213
017451
11214
017310
11215
043570
11216
073400
11211
0&3605
11220
017415
11221
103700
11222
041632
11223
063633
11224
006004
11225
102200
11226
027235
11227
102300
11230
027225
11231
103600
11232
160001
11233
037400
11234
027224
11235
106700
11236
102300
11237
027236
11240
017165
11241
005310
11242
002101
11243
027121
XWEOR
LOA
OB41
JSB
XCMND
JMP
RWFOF
XWEOF
JSB
XWNEC
XT.12 eLF
DATA
RWEOF
LOA
08?15
JSB
XCMNO
RBR,SLB,RBL
JMP
XWFOR
JSB
XEOTC
JMP
XIT
XWRTE
JSB
XWNEC
JSB
XEOTC
JSB
XCNTR
ADA
OM1
STA
XWNEC
LOA
OB31
JSB
XCMND
XT.9
STC
DATA,C
ADB
BUFA
LOA
BUFL
XOUT
INS
XT.20
SFC
CMND
JMP
XT.5
XT.2
SFS
DATA
JMP
XT.20
Xl'.3
OTA
DATA,
C
LOA
1,1
ISZ
XWNEC
JMP
XOUT
XT.5
CLC
DATA
XT.I0
SFS
CMND
JMP
XT.10
JSB
XSTIN
RBR,SLB
CLE,RSS
JMP XI'T'
12:13
PM
TUE.,
23
OCT.,
1979
[F]
GET
TAPE
STATUS
(8)=
STATUS
CA)=
STATUS
SHIFTED 8 BITS
CHECK
FOR
WRITE
RING
CHECK
FOR
END
OF
TAPE
COMMAND
BACKSPACE
RECORD
COMMAND
EXECUTE
COMMAND
CHECK
FOR
WRITE
WRITE
FILE
MARK
CODE
[F]
(F]
[F]
[F]
[F]
[F]
lFJ
[F]
[FJ
[F]
[F]
[F]
[F]
(F)
[--FJ
[F]
[F']
[F]
(FJ
(F]
[F)
[F]
[F]
PARITY
OR
TIMING
ERRDk
YES,
GO
BACKSPACE
OCCUR?[Fl
[F]
[F]
[F]
CHECK
FOR
WRITE
ENABLED
[Fl
CHECK
FOR
END
OF
TAPE
[F]
GET
NEG
#
WORDS
[Fl
ADD
1
FOR
RECORD
LENGTH
[F)
SAVE
WORD
COUNT
(F]
WRITE
RECORD
COMMAND
[Fl
GO
INITIATE
WRITE
SEQUENCE
[F]
INITIALIZE
DATA
CHANNEL
[F)
BUFFER
AODR~SS
- 1
[F)
FIRST
WRITTEN
WORD
IS
BUFL
[F]
STEP
BUFFER
POINTER
[F]
(F)
[F]
WAIT
FOR
[FJ
DATA
FLAG
[F]
WRITE
RECORD
HEADER
WORD
[Fl
GET
NEXT
WORD
[F]
DONE
(Fl
NO,
LOOP
[Fl
INITIATE
END
RECORD
SEQUENC~
[Fl
WRITE
COMPLETE?
[FJ
NO,
CONTINUE
(FJ
YES,
GET
STATUS
[F]
PARITY
OR
TIM)NG
ERROR?
[FJ
YES
[F]
NO
[F]
![](asset-45.png)
PAGE
0069
101
7970
MAG
TAPE
DRIVER
2991
2992
2993
2994
2995
11244
063610
11245
01741.5
11246
063601
11247
017415
11250
027452
11251
11252
11253
11254
11255
11256
11257
11-260
11261
11262
11263
11264
11265
11266
11267
11270
11271
11272
11273
11274
11275
11276
11277
11300
11301
11302
11303
11304
11305
11306
11307
11310
11311
11312
11313
11314
11315
11316
11317
11320
11321
11322
11323
11324
11325
11326
017451
063567
073153
017370
073370
003700
043632
0-73400
002400
073140
063603
017415
103700
067370
017361
073140
017361
037400
173400
006007
002001
027362
006002
026312
106700
102300
027302
017165
002020
027124
005332
002001
027327
037153
002101
027320
063610
017415
027256
063632
003004
043400
043565
002020
027251
027123
LOA
D841
JSB
XCMNO
LDA
DB15
JSB
XCMNO
JMP
XEOTC+1
XREAD
JSB
XEOTC
LOA
DM3
STA
XSPCE
JSB
XCNTR
STA XCNTR
XRERD
CCA,CCE
ADA
BUFA
S-TA-
XW-N
EC
CLA
STA
XABS
tlDA
DB?3
JSB
XCMND
XT.11
STC
DATA,C
LDB
XCNTR
~TSB
XWAIT
STA XABS
JSB
XWAIT
ISZ
XWNEC
MTVLQ
STA
XWNEC,I
INB,SZB,PSS
RSS
JMP
XLOQP
SZB
JMP
XT.50
CLC
XT.8
SFS
JMP
JSB
5S1>,
MTDER
DATA
CMND
XT.8
XSTIN
JMP
XITI
RBR,SLB,RBL
RSS
JMP
XENDR
NOISE
ISZ
XSDCE
CLE,RSS
JMP
XSHRT
T.,DA
OB41
JSB
XCMND
JMP
XRERD
XSHRT
LOA
BUFA
CMA,INA
ADA
XWNEC
ADA
OMS
SSA
JMP
XREAD
JMP
ERR.l
12:13
PM
TUE.,
23
OCT.,
1979
[F]
BACKSPACE
GAP
RETRY
READ
SET
RETRY
COUNTER
TO
-3
GET
NEG
#
OF
WORDS
BUFFER
ADDRESS
-1
[F]
[F]
[F]
(F]
[F]
[F]
[Fl
(F]
[F]
[F]
[F]
[F]
IF-]
INITIALIZE
RECORD
(FJ
LENGTH
COUNTER
(F]
READ
CHARACTERS
CODE
[F]
INITIATE
READ
RECORD
SEQUENCE[F]
INITIALIZE
DATA
CHANNEL
[F]
LOAD
NEG
WORD
COUNT
(F]
WAIT
FOR
1ST
WORD
[F]
SAVE
RECORD
LENGTH
[F]
WAIT
FOR
NEXT
WORD
OR
EOR
[F]
STEP
BUFFER
POINTER
(F)
***
THIS
WORD
CHANGED
***
[F]
END
OF
BUFFER?
[F]
END
OF
BUFFER
OR
NO
COMPARE.
(F]
END
OF
BUFFER
NO,
NO
COMPARE
YES,
START
EOR
SEQUENCE
READ
FUNCTION
COMPLETE?
NO
YES,
RESTORE
STATUS
WAN
AN
"EOF"
READ?
YES,
RETURN
TO
(P+2)
PARITY
OR
TIMING
ERROR
YES
NO
HAVE
WE
TRIED
3 TIMES?
NO
YES
BACKSPACE
TRY
AGAIN
RECORD
< 5
YES
NO
WORDS?
[F]
[F]
[F]
[F]
[F]
[F]
(F]
[F]
[Fl
(F]
[F]
[P]
[F]
[F)
[F]
[F]
(F]
[F]
[F)
[Fl
[Fl
[F]
[FJ
[F)
[Fl
[F]
2997
2998
2999
3000
3001
3002
3003
3004
3005
3006
3007
3008
3009
3010
3011
3012
3013
3014
3015
3016
3017
3018
3019
3020
3021
3022
3023
3024
3025
3026
3027
3028
3029
3030
3031
3032
3033
3034
3035
3036
3037
3038
3039
3040
3041
3042
3043*
3044**
RECORD
<
BUFFER
LENGTH,
GET
TAPE
LENGTH
IN
USER'S
BUFFER
**
[F]
![](asset-46.png)
PAGE
0070
#01
12:13
PM
TUE.
,
23
OCT.,
1979
7970
MAG
TAPE
DRIVER
[FJ
3045*
[F]
3046
11327
063140
XENDR
t,lDA
XABS
GET
TAPE
RECORD
LENGTH
[F]
3047
11330
002003
SZA,RSS
IS
LENGTH
O?
(F]
3048
11331
027312
JMP
NOISE
YES,
ASSUME
TAPE
NOISE
[F']
3049
11332
067633
I..JDB
BUFL
GET
USER
BUFFER
LENGTH
[F]
3050
11333
077632
STB
SUFA
SAVE
USER
REUQEST
[FJ
3051
11334
002020
SSA
[FJ
3052
11335
027341
JMP
XEND2
[F)
3053
11336
006020
ssa
[F]
3054
11337
001100
ARS
[F]
3055
11340
027344
JMP
XENDI
[F)
3056*
[F}
3057
11341
006021
XEND2
SSB,RSS
[FJ
3058
11342
00
t.
000
ALS
(FJ
3.Q5-9-
1134·3- 0-0·3-004 eM-A,·
INA
[-Fl-···
3060
11344
073633
XENDI
STA
BUFL
SAVE
TAPE
LENGTH
FOR
USER
[F)
3061
11345
006021
SSB,RSS
USER
LENGTH
IN
CHARS?
(F)
3062
11346
007004
eMB,INB
YES
[FJ
3063
11347
040001
ADA
1
NO
[F]
3064
11350
007004
CMB,INB
[P]
3065
11351
002021
SSA,RSS
RECORD
LENGTH
>
USER
REQUEST?[F]
3066
11352
077633
5TA
BUFL
YES,
STORE
USER
REQUEST
LENGT[Fl
3067
11353
063633
I.JDA
BUF'L
(F]
306.
11354
067632
LDe
BUFA
GET
ORIGINAL
REQUEST
(FJ
3069
11355
006020
SSB
USER
REQUEST
FOR
WORDS?
[F"]
3070
11356
003004
CMA,INA
YES,
NEGATE
ACTUAL
LENGTH
[F]
3071
11357
073633
BTA
BUFL
NO
[F]
3072
11360
027121
JMP
XIT
CONTINUE
READ
PROCESSING
(F]
3074
11361
000000
XWAIT
NOP
[F)
3075
11362
102200
XLOOP
SFC
CMND
END-Of-RECORD?
[F]
3076
11363
027301
JMP
XT.50
YES
(F]
3077
11364
102300
XT.46
SFS DATA
NO,
NEXT
WORD
READY?
[P]
3078
11365
027362
JMP
XLOQP
NO
[F)
3079
11366
1.03500
XT.43
LIA
DATA,C
YES,
LOAD
DATA
WORD
[F]
3080
11367
127361
JMP
XWAIT,I
[F]
3082
11370
000000
XCNTR
NOP
[F)
3083
11371
063633
LOA
BUFL
USER'S
BUFFER
LENGTH
[F]
3084
11372
002320
CCE,SSA
WORDS?
[F'l
3085
11373
127370
JMP
XCNTR,r
YES
[F]
3086
11374
003007
CMA,INA,SZA,RSS
NO,
CHARACTERS
[P]
3087
11375
027121
JMP
XIT
DONE
IF
REQUEST=O
[F]
3088
11376
001100
ARS
[F]
3089
11377
127370
JMP
XCNTR,I
[F]
3091
11400
000000
XWNEC
NOP
[F]
3092
11401
017165
JSB
XSTIN
GET
STATUS
[F]
3093
11402
001310
RAR,SLA
UNIT
READy?
(FJ
3094
11403
027166
JMP
XS.1
NO
[F]
3095
11404
005363
RBR,CLE,RBR
YES
[F]
3096
11405
006011
SLB,RSS
WRTTf
ENABLED?
[F]
![](asset-47.png)
PAGE
0071
#01
7970
MAG
TAPE
DRIVER
3097
3098
3099
3100
3101
3102
3103
1.1406
127400
11407
063603
11410
067700
11411
117656
11412
102033
11413
017432
11414
027401
11415
000000
11416
102600
11417
106500
11420
005323
11421
005310
11-4-2-2
027-4-4-3
11423
103700
11424
007540
11425
127415
11426
102300
11427
027426
11430
017165
11431
127415
XCMND
XT.14
XS.o
XT.7
XT.15
JMP
XWNEC,I
LOA
D.19
LDB
WNEA
JSB
TT35I,I
HLT
338
JSB
XATCK
JMP
XWNEC+1
NOP
OTA
CMND
LIB
CMND
RBR,RBR
RBR,SLB
J-MP-
R-EJ-€
T
STC
CMND,C
CCB,SEZ,CLE
JMP
XCPlND,I
SF'S
CMND
JMP
XT.15
JSB
XSTIN
JMP
XCMNO,I
12:13
PM
TUE.,
23
OCT.,
1979
[F]
YES
NO
OUTPUT
MESSAGE
HALT
CHECK
FOR
AUTO
OUTPUT
COMMAND
LOAD
STATUS
WORD
REQUEST
REJECTED
YES
NO,
INITIATE
EXECUTION
READ
OR
WRITE?
YES,
RETURN
GET
STATUS
3105
3106
3107
3108
3109
3-11-0
3111
3112
3113
3114
3115
3116
3117
3118*
3119**
3120*
3121
3122
3123
3124
3125
3126
3127
3128
3129
CHECK
FOR
TAPE
UNIT
IN
AUTO
**
3131
3132
3133
3134
3135
3136
3138
3139
3140
3141
3142
3143
11432
000000
11433
017165
11434
006111
11435
127432
11436
063605
11437
067677
11440
117656
11441
102044
11442
027433
11443
11444
11445
11446
11447
11450
067614
106600
103700
102300
027446
027416
11451
000000
11452
017165
11453
001763
11454
000010
11455
027124
11456
127451
XATCK
NOP
REJCT
O.B
XT.6
XT.O
JSB
XSTIN
CLE,SLB,RSS
JMP
XATCK,I
LOA
0.25
LOB
MTLMA
JSB
TT3SI,!
HLT
448
JMP
XATCK+l-
LOB
08110
OTB
CMND
STC
CMND,C
SFS
CMND
JMP
XT.O
JMP
XT.14
XEOTC
NOP
JSB XSTIN
ALF',CLE,RAR
SLA
JMP
XITI
JMP
XEOTC,I
GET
STATUS
UNIT
IN
AUTO?
YES
OUTPUT
MESSAGE
HALT
LOAD
CLEAR
COMMAND
OUTPUT
IT
INITIATE
IT
COMPLETED?
NO
YES
GET
STATUS
SHIFT "EDT"
TO
AO
AT
"EDT"
YES
NO
[F]
[F]
[F]
(F]
[F]
[F]
[F)
[F]
[F]
[F]
[F]
[F]
(-F-]
[FJ
[F)
[F]
(F]
[F]
[F]
[F]
[F]
[F]
[F)
[F]
[P)
[FJ
[F]
[F]
(F)
[F]
[F]
[Fl
(FJ
LFl
[F')
[Fl
[F]
[F]
(F)
(F]
[F]
[Fl
[F]
[F]
![](asset-48.png)
PAGE
0072
#01
12:13
PM
TUE.,
23
OCT.,
1979
[~l
MAG
TAPE
DRIVERS
CONFIGURATOR
3145*
3146*
3147*
3148*
3149*
3150
3151
3152
3153
3154
3155
3156
3157
3158
3-1-59
3160
3161
3162
3163*
3164
3165
3166
3167
3168
3169
3170
3171
3172
3173
3174
3175
3176
3177
3178
3179
3180
3181
3182
3183
3184
3185
3186
3181
3188
3189
3190
3191
3192
3193
3194
3195
3196
3191
3198
3199
ENTER
WITH
THE
LOWER
MAG
TAPE
SELECT
CODE
IN
(8).
ALL
110
INSTRUCTIONS
IN
THE
MAG
TAPE
DRIVER
ARE
MODIFIED
TO
REFERENCE
THE
GIVEN
I/O
PORT.
11457
000000
11460
077640
11461
067661
11462
160001
11463
013563
11464
033640
11465
170001
11466
006004
11467
057662
1141-0
037640
11471
057663
11472
127457
11473
027462
11474
010600
11475
010573
11476
011231
11477
010643
11500
010657
11501
011366
11502
010651
11503
010666
11504
010604
11505
010675
11506
011235
11507
011301
11510
011031
11511
010576
11512
010571
11513
010641
11514
010647
11515
010655
11516
010664
11517
011227
11520
011364
11521
011221
11522
011265
11523
011203
11524
010775
11525
010762
11526
010364
11527
010531
11530
011166
11531
010532
11532
011417
11533
010653
11534
010645
11535
010662
11536
011362
11537
011225
MTOIN
NOP
STB MTSCD
LDB
CONIA
MTDI1
LOA
1,1
AND
DM64
lOR
MTSCO
STA
1,l
INB
CPS
CON2A
IS-Z
MTS-CD
CPS
CON3A
JMP
MTDIN,I
JMP
MTDI1
CONI
DEP
MT.3
DEF
MT.9
DEF
XT.3
DEF
MT.43
DEF
MT.47
DEF
XT.43
DEF
MT.45
DEF
MT.49
DEF
MT.5
DEF
MT.50
DEF
XT.5
DEF
XT.50
DEF
XT.13
OEF
MT.2
OEF
MT.8
DEF
MT.42
DEF
MT.44
OEF
MT.46
DEF MI'.
48
DEF
XT.2
DEF
XT.46
DEF
XT.9
DEF
XT.l1
DEF
XT.12
CON2
DEF
MT.l
DEF
MT.12
DEF
MT.21
DEF
5.1
DEF
XS.l
DEF
5.2
DEF
XS.O
DEF
LOOP
DEP
MT.30
OEF
MT.51
DEF
XLOOP
DEF'
XT.20
SAVE
SELECT
CODE
GET
STARTING
POINTER
GET
INSTRUCTION
MASK
OUT OLD
SELECT
CODE
MERGE
IN
NEW
SELECT
CODE
SAVE
IT
FINISHED
DATA
CHANNEL?
YES,
B-U-M.P
SELECT
COO-E-
FINISHED
COMMAND
CHANNEL?
YES
NO
DATA
CHANNEL
INSTRUCTIONS
COMMAND
CHANNEL
INSTRUCTIONS
[F]
[F)
[Fl
[F]
[F]
[F]
[F)
[F]
[--F-]-
[F)
[F]
[F]
[F]
(F)
[F]
[FJ
[F]
[F]
lFJ
[FJ
(F]
(F]
(F]
[F]
[FJ
[~]
(F']
[F]
[F]
[F]
[Fl
[FJ
[F]
[F]
[F]
[FJ
[F]
[F]
(F]
(F)
[F]
[Fl
[Fl
[F]
[F]
[F]
(Fl
[F]
[F]
![](asset-49.png)
PAGE
0073
#01
12:13
PM
rUE.
,
23
OCT.
,
1979
MAG
TAPE
DRIVERS
CONFIGURATOR
(F]
3200
11540
011010
DEF
MT.15
(F']
3201
11541
011426
DEF
XT.IS
(FJ
3202
11542
011446
DEF
XT.O
[F]
3203
11543
011236
DEF
XT.10
[F]
3204
11544
011302
DEF
XT.8
[F]
3205
11545
01056b
DEF
MT.I0
(F)
3206
11546
011007
DEF MT.14
[Fl
3207
11547
010416
DEF
MT.20
[F)
3208
11550
010637
DEF
MT.40
(F)
3209
11551
Oii41b
DEF
XT.14
[F)
3210
11552
011034
DEF
X'l'.l
(F)
3211
11553
010640
DEF
MT.41
[F]
3212
11554
011423
DEF
XT.7
(F]
3213
11555
011445
DEF
XT.6
[F'l
3214
11556
011444
DEF
O.B
[-FJ-
3215
11557
o
111~t5
DEF
XT.4
[F']
3216
11560
011032
OEF
XT.16
[F)
3217
11561
CON3
EQU
*
[F]
![](asset-4a.png)
PAGE
0074
#01
CONSTANTS,
TEMPORARIES,
ETC.
3219
3220
3221
3222
3223
3224
3225
3226
3227
3228
3229
3230
3231
3232
3-23-3-
3234
3235*
3236
3237*
3238
3239
3240
3241
3242
3243
3244*
3245
3246
3247
3248*
3249
3250
3251
3252*
3253
3254
3255*
3256
3257
3258
3259
3260
3261
3262
3263*
3264
3265*
11561
165300
11562
177401
11563
177700
11564
177766
11565
177773
11566
177774
11567
177775
11570
177777
11571
000003
11572
000004
11573
000005
11574
000006
11575
000007
11576
000010
1157-1-
Q-OOO-l
1
11600
000012
11601
000015
11602
000017
11603
000023
11603
11604
000030
11605
000031
11605
11606
000035
11607
000040
11610
000041
11611
000100
11612
000101
11613
000105
11614
000110
11615
000215
11616
000200
11617
000201
11620
000300
11621
000400
11622
000733
11623
000757
11624
012500
11625
100000
N5440
DM255
01464
DMI0
OM5
DM4
DM3
DMl
0.3
D.4
D.5
D.6
DB7
0810
DB-11
f).10
OB15
DEC
-5440
DEC
-255
DEC
-64
DEC
-10
DEC
-5
DEC
-4
DEC
-3
DEC
-1
OCT
3
DEC
4
DEC
5
DEC
6
OCT
7
OCT
10
OCT
1-1
DEC
10
OCT
15
DB17
OCT
17
DB23
OCT
23
D.19
EQU
D823
D.24
DEC
24
DB31
OCT
31
D.25
EQll
DB31
0'835
OCT
35
DB40
OCT
40
DB41
OCT
41
DBI00
OCT
100
08101
OCT
101
08105
OCT
105
06110
OCT
110
08215
OCT
215
OB200
OCT
200
08201
OCT
201
D8300
OCT
300
OB400
OCT
400
OB733
OCT
733
OB757
OCT
757
05440
DEC
5440
BlOOK
OCT
100000
12:13
PM
TUE.,
23
OCT.,
1979
[F]
[F]
[F]
[FJ
[F]
[F]
[F]
[F)
[Fl
[F]
[FJ
rFJ
(F]
[F]
![](asset-4b.png)
PAGE
0075
#01
12:13
PM
TUE.
,
23
OCT.
,
1979
CONSTANTS,
TEMPORARIES,
ETC.
3267*
[F)
3268
11626
000000
DTMPO
RSS
1
3269
11627
000000
OTMP1
BSS 1
3270
11630
000000
OTMP2
BSS
1
3271*
[F]
3272
11631
OOOO()O
ceNT
BSS
1
TTY
CHARACTER
COUNT
3273*
[FJ
3274
11632
000000
BUFA
BSS 1
14TD
BUFFER
ADDRESS
3275
11633
000000
BUFL
8SS
1
MTD
BUFfER
LENGTH
3276
11634
000000
WeNT
ess
1
MID
WORD
COUNT
3277
11635
000000
CNT
BSS
1
\1TO
RECORD
COUNT
3278
11636
000000
EOTF
8SS
1 END-Of-TAPE
F'LAG
3279
11637
000000
ECNT
BSS 1
MTD
RETRY
COUNTER
3280
11640
000000
MTSCD
8SS
1
[F]
3-2-8-1-
1-1641-
-0-0-0-0-00
~8U-F
sss-
2-
3282
11643
026040
Ase
1 , ,
3283*
3284
11644
000116
.N
OCT
116
[14"]
3285
11645
000131
.Y
OCT
131
[Fl
3286
11573
BSPGA
EQU
0.5
BASE
PAGE
DISC
ADDRESS
3287
11646
100200
BASPG
OCT
100200
BASE
PAGE
CORE
ADDRESS
3288
11647
002501
JSYS2
DEF
BSYS2
[F]
3289
11650
002504
JDRTT
OEF
LDRTT
[F]
3290
11651
002507
JSAD2
OEF
BSAD2
[F]
3291
11652
002502
JSYS3
DEF
B5Y53
[F}
3292
11653
002505
JDRT1
DEF
LDRTT+1
[F]
3293
11654
002510
JSAD3
DEF
BSAD3
[F]
3294
11655
007233
MGTCA
DEF
GETeR
[F]
3295
11656
002010
TT35I
DEF
TTY35
[Fl
3296
11657
002145
OlseN
OEF
DISCD
[Pl
3297
11660
002423
WORDN
DEF
WORDC
[F]
3298
11661
111474
CON1A
DEF
CON1,l
[F]
3299
11662
111524
CON2A
DEF
CON2,I
[F)
3300
11663
111561
CON3A
DEF
CON3,I
[F]
3301
11664
004002'
COM6A
DEF
COM6
3302
11665
004027
OULTT
OEF
ULTTA
=>
USER
LIRARY
TRACK
TABLE
3303
11666
006000
OULTS
DEF
6000B
DUMp
BUFFER
ADDRESS
FOR
ULTTB
3304
11611
DDIRA
EQU
DBI00
3305
11667
012500
OTRKB
DEF
IDTaL
DUMP
TRACK
Burt'FER ADDRESS
3306
11670
112500
DTRKR
ASS
IDTBL+I00000B
DISC
READ
FORM
OF
DTRKB
3307
11671
003003
DMTRL
OEF
MTRLT
=>
SYSTE1'-
LIBRARY
LENGTHS
BUFFER
3308
11672
173400
MSTOC
STA
XW~EC,I
WORD
TO
RESTORE
READ
[Fl
3309
11673
153400
MCPAC
CPA
XWNEC,I
WORD
READ
MATCH
BUFFEk?
(F]
3310*
[F]
3311*
3312
11674
011702
DONEA
OEF
DONEM
3313
11675
011706
lLYN'"
OEF
lLIN
(Fl
3314
11676
011716
TAPMA
DEF
TAPMS
3315*
[F]
3316
11677
011742
MTLMA
DEF
MTLM
3317
11700
011757
WNEA
OEF
WNE
3318
11701
011771
VRFYA
f'EF
VRFY
[F]
3319*
3320
11702
00641.2
DONEM
OCT
6412
3321
11703
042117
ASC
2,DONE
![](asset-4c.png)
PAGE
0076
#01
12:13
PM
TUF.. ,
23
OCT.
,
1979
CONSTANTS,
TEMPORARIES,
ETC.
3322
11705
006412
OCT
6412
3323
11706
005111
ILIN
OCT
5111
3324
11707
046114
ASe
6,LLEGAL
INPUT
3325
11715
006400
OCT
6400
3326
11716
005124
TAPMS
OCT
5124
3321
11717
040520
ASC 10,APE
BAD
OR
TOO
SHORT
3328
11731
006412
OCT
6412
3329
11732
005104
OIser
OCT
5104
3330
11733
044523
ASC
7,ISC
FAILURE:
3331
11742
005103
MTLM
OCT
5103
3332
11743
044101
Ase
11,HANGE
MAG
TAPE
TO
AUTO
3333
11756
006400
OCT
6400
3334
11757
005127
WNE
OCT
5127
[El
3335
117&0
051111
ASC
8,RITE
NOT
ENABLED
3-33-6
11770-
,0-0-640-0
OCT
-6-4{)-O--
3337
11771
005126
VRFY
OCT
5126
[F]
3338
11772
042522
ASC
4,ERIFY ?
[F]
![](asset-4d.png)
PAGE
0077
101
ASR35 DRIVER
12:13
PM
TUE.,
23
OCT.,
1979
3340*
3341*
3342*
3343*
3344*
3345*
3346*
3347*
3348
3349
3350
3351
3352
3353
3354
3355
3356
3357
3358
3359
3360
3361
3362
3363
3364
3365
3366
3367
3368
3369
3370
3371
3372
3373
3374
3375
3376
3377
3378
3379
3380
3381
3382
3383
3384
3385
3386
3387
3388
3389
3390
3391
3392
3393
3394
UPON
ENTRY
(A)
HOLDS
THE
NUMBER
OF
CHARACTERS
TO
BE
OUTPUT
OR
IS
ZERO
TO
REQUEST
INPUT.
FOR
OUTPUT
REQUESTS
(8)
POINTS
TO
THE
FIRST
WORD
OF
THE
BUFFER. A LINE FEED,
RUBOUT,
NULL,
OR
X-OFF 1s
IGNORED
BY
INPUT.
ON
INPUT
A
CARRIAGE
RETURN
ENOS
THE
RECORD,
A _
BACKSPACES
ONE
CHARACTER,
AND
AN
ESCAPE
OR
ALT-MODE
DELETES
THE
INPUT
RECORD.
02010
02010
000000
02011
072351
02012
002003
02013
026120
02014
005000
02(}15
0-76416
02016
003400
02017
072417
02020
062343
02021
102611
02022
062351
02023
002003
02024
126010
02025
042316
02026
072351
02027
066416
02030
036416
02031
004065
02032
160001
02033
002041
02034
001727
02035
012335
02036
032336
02037
102611
02040
103711
02041
102311
02042
026041
02043
062417
02044
002002
02045
026022
02046
102511
02047
012335
02050
052322
02051
026040
02052
052335
02053
026040
02054
002002
02055
052325
02056
026040
02057
052340
02060
026110
02061
007400
02062
052327
02063
026112
02064
052341
02065
026112
ORG
20108
TTY35
NOP
STA CeNTY
SZA,RSS
JMP
TTY6
BLS
STB
BU-FAD
CCA
STA
TFLAG
LOA
Bl'20K
OTA
TTYSC
TTYI
LDA
CCNTY
SZA,RSS
JMP
TTY35,I
ADA
NMl
STA
CeNTY
LOB
BUFAO
ISZ
BUFAD
CLE,ERS
LOA
1,1
SEZ,RSS
ALF,ALF
AND
DB177
lOR
NB200
OTA
TTYSC
TTY2
STC
TTY5C,C
SFS
TTYSC
JMP
*-1
LDA
TFLAG
SZA
JMP
TTYl
LIA
TTYSC
AND
OB177
CPA
OB12
JMP
TTY2
CPA
DB117
JMP T'
l'Y2
SZA
CPA NB23
JMP
TTY2
CPA
BKSPC
JMP
TTY4
CCB
CPA
OB33
JMP
TTYS
CPA
ALTMD
JMP
TTY5
SET
CHARACTER
COUNT
OUTPUT
REQUEST?
NO
YES,
INITIALIZE
CHAR~CTER
P01NTER
SET
FLAG
AS
'OUTPUT'
SEND
BITS
FOR
'PRINT
ONLY'
ALL
CHARACTERS
OUTPUT?
YES
NO,
CORRECT
CHARACTER
CQUI~T
COMPUTE
WORD-CHARACTER
ADDRESS
LOa.D
WORD
POSITION
CHARACTER
EXTRACT
CHARACTER
ADD
IN
BIT 7
OUTPUT
IT
REQUEST
CHARACTER
TRANSfER
WAIT
FOR
COMPLETION
FLAG
OUTPUT?
YES
NO,
EXTRACT
CHARACTER
LINE
FEED?
YES
NO,
RUBQUT?
YES
NO,
NULL
OR
X-OFF?
YES
f\JO,
'_'
?
YES
NO
EXIT
ON
VARIOUS
FORMS
OF
ESCAPE
[F]
[F]
[F)
[Fj
[F]
[Fl
![](asset-4e.png)
PAGE
0078
#01
12:13
PM
TUE.
, 23
OCT.
,
1979
ASR35
DRIVER
3395
02066
052334
CPA D8176
OR
3396
02067
026112
JMP
TTY5
ALT
MODE
3397
02070
072420
STA TTYTM SAVE
CHARACTER
3398
02071
066351
LOB
CeNTY
BACKSPACE
[F]
3399
02072
056333
CPS
D.72
IF
BUFFER
3400
02073
016126
JSB
BKSP
IS
FULL
3401
02074
066416
LOB
BU~AD
COMPUTE:
3402
02075
036416
ISZ
BUPAD
NEXT
BUFFER
3403
02076
004065
CLE,ERB ADDRESS
3404
02077
002041
SEZ,RSS POSITION
3405
02100
001737
ALF,
SLl'.,
ALP
AND
PORM
3406
02101
130001
lOR
1,1
BUFFER
WORD
3407
02102
170001
STA
1,1
STORE
AND
3408
02103
036351
rsz
CCNTY
COUNT
CHARACTER
[F]
3409
02104
062_4..20
LDA
TTYT-M
VI-AS
IT
A
3410
02105
052323
CPA
NBIS
CARRIAGE
RETURN?
[F]
3411
02106
126010
JMP
TTY35,!
YES
3412
02107
026040
JMP
TTY2
NO
3413
02110
016126
TTY4
JSB
BKSP
BACKSPACE
3414
02111
026040
JMP
TTY2
3415
02112
076417
TTY5
STS
TFf
..
AG
SET
TO
OUTPUT
MODE
3416
02113
046010
ADS
TTY35
SET
RETURN
3411
02114
076010
STS
TTY35
TO
l~PUT
CALL
3418
02115
062317
LOA
N.3
OUTPUT
~\~
A~D
[F]
3419
02116
066427
LOB
RVRSA
CARRIAGE
RETURN
-
3420
02117
026011
JMP
TTY35+1
LIN,E
FEED
3421
02120
066426
TTY6
LOB
IBUf'A
SET
UP
INPUT
3422
02121
176430
STa
AADRA,I
E\UFFER
3423
02122
076416
STB
BUFAD
POINTERS
3424
02123
072417
STA
TFIJAG
SET
TO
INPUT
MODE
3425
02124
062345
LOA
B160K SEND
INPUT
BITS
3426
02125
026037
JMP
TTY2-1
TO
ASR
35
3428*
*
3429**
BACKSPACE
ONE
CHARACTER
**
3430*
*
3431
02126
000000
BKSP
NOP
3432
02127
066351
fJDB
CeNTY
DECREMENT
(F]
3433
02130
006003
5ZB,RSS
CHARACTER
3434
02131
126126
JMP
BKSP,I
COUNT
3435
02132
046316
AOB
NMl
IF
(FJ
3436
02133
076351
STS
CCNTY
NON-ZERO
[F]
3437
02134
007400
CCB
BACKSPACE
3438
02135
046416
ADS
BUFAD
CHARACTER
3439
02136
076416
ST8
BUFAD
ADDRESS
3440
02137
004065
CLE,ERB
INSURE
3441
02140
160001
LOA
1,I
NEXT
CHARACTER
3442
02141
012346
AND
HIMSK
WILL
NOT
BE
3443
02142
170001
STA
1,I
GARBLED
3444
02143
062420
LDA
TTYTM
RETRIEVE
CHARACTER
FOR
CALT..IS
3445
02144
126126
JMP
BKSP,I
FROM
BUFFE:R
OVERFLOW
![](asset-4f.png)
PAGE
0079
#01
DISC
DRIVER
12:13
PM
rUE.,
23
OCT.,
1979
UPON
ENTRY
(A)
HOLDS
THE
DISC
ADDRESS
(BITS
15-14
DETERMINE
THE
DISC
REFERENCED)
AND
(8)
HOLDS
THE
COPE ADDRESS.
BIT
15
OF
(6)
IS
1
FOR
A TRANSFER
TO
CORE, 0
FOR
A
TRANSFER
TO
DISC.
IT
IS
ASSUMED
THAT
WORDe
HOLDS
THE
NEGATIVE
TRANSFER
LENGTH
IN
WORDS.
Dlscn
NOP
STA
DAODR
STS
CORE
LOA
WORDe
SZA,RSS
JMP
DISCD,I
SSB,RSS
A-N-Q
NM-6-4-
STA
waRDC
LOA
DADDR
RAL,RAL
AND
N.3
STA
DISCI
ADA
D5TBL
[,OA
0,
I
STA
FAIL
AND
0877
{JDB 0
ADA
DCHN
OTA
DMA
XOR
DSTC
STA
DISC3
INA
XOR
NB200
STA
DISCI
STA
DISC4
STA
DISCS
ADA
NBI00
STA
DISC2
LOB
CORE
eMS
RaL
LOA
FAIL
ALF,ALF
LSL 2
LOA
DADDR
RAL,
RAt"
LSL
6
RAL
SAVE DISC
AND
CORE
ADDRESSES
EXIT
ON
WORD
COUN'!'
OF
ZERO
ROUND
UP
TO
~ULL
-SECTOR
ON
WRITE
LOAD
DISC
SELECT
CODE
WORD
SAVE
IT
EXTRACT
SELECT
CODE
COpy
INTO
(S)
OUTPUT
DMA/DISC
LINKAGE
CONTROL
WORD
COMPUTE
AND
STORE
110
COMMANDS
SET
B(O]
TO
PROPER
DIRECTION
BIT
SET
B[2:0}
TO
PROPER
ADDRESS
PREFIX
EXTRACT
TRACK
NUMBER
REMOVE
BIT
7
[F'J
[F]
[F]
3447*
3448*
3449*
3450*
3451*
3452*
3453*
3454
3455
3456
3457
3458
3459
3460
3-4--61
3462
3463
3464
3465
3466
3467
3468
3469
3470
3471
3472
3473
3474
3475
3476
3477
3478
3479
3480
3481
3482
34B3
3484
3485
3486
3487
3488
3489
3490
3491
3492
3493
3494
3495
3496
3497
3498
3499
3500
3501
02145
000000
02146
072422
02147
076421
02150
062423
02151
002003
02152
126145
02153
006021
0-21-54-
()-1-
2-
3-
14
02155
072423
02156
062422
02157
001222
021.6001231.7
02161
072424
02162
042431
02163
160000
02164
072425
02165
012331
02166
064000
02167
042342
02170
102607
02171
022344
02172
072237
02173
002004
02174
022336
02175
072220
02176
072242
02177
072251
02200
042332
02201
072227
02202
066421
02203
007000
02204
005200
02205
062425
02206
0017'7
02207
100042
02210
062422
02211
001222
02212
100046
02213
001200
02214
101051
02215
072422
02216
066315
02217
076425
02220
102500
02221
000010
02222
026220
02223
001727
02224
002021
LSR
9
SHTFT
HARDWARE
ADDRESS
INTO
CA)
Sf
A
DADDR
LDR
NMI0
STB
FAIL
DISCl LIA 0
SLA
JMP
DISCI
ALF,ALF
SSA,RSS
SET
RETRY
COUNTER
WAIT
FrJR
DISC
CONTROLLER
FREE
AND
DISC
UP
TO
[F]
![](asset-50.png)
PAGE
0080
#01
12:13
PM
TUE.
,
23
OCT.,
1979
DISC
DRIVER
3502
02225
026220
JMP
DISC1
SPEED
3503
02226
062422
LD,~
DADOR
OUTPUT
3504
02227
102600
DISC2
OTA
0 DISC ADDRESS
3505
02230
106703
CLC
MAR
OUTPUT
3506
02231
062421
LDA
CORE
CORE
3507
02232
10260)
OTA
MAR
ADDRESS
3508
02233
102703
STC
MAR
OUTPUT
3509
02234
062423
LOA
WORDe
TRANSFER
3510
02235
102&03
OTA
MAR
LENGTH
3511
02236
103707
STC
DMA,C
INITIATE
3512
02237
102700
DISC3 STC 0
TRANSFER
3513
02240
102307
SfS
DMA
WAIT
FOR
3514
02241
026240
JMP
*-1
COMPLETION
FLAG
3515
02242
102500
DISC4
LILA
0
ABORT
3--5-1-&
Q--2-2-4-l--Q--1-
2--3-2-1
A-N-D-
N-B10
SIT
-
{FJ
3517
02244
002002
SZA SET?
3518
02245
026255
JMP
DlSC6
YES
3519
02246
062421
LDA
CORE
NO
3520
02247
002021
SSA,RSS
READ?
3521
02250
026312
JMP
DISC7
NO
3522
02251
102500
DISCS
LIA
0
YES
3523
02252
012326
AND
D832
FAULTY
3524
02253
002003
SZA,RSS
TRANSFER?
3525
02254
026312
JMP
DISC7
NO
3526
02255
036425
DISC6
ISZ FAIL YES,
TRY
AGAIN?
3527
02256
026220
~JMP
DISCl
YES
3528
02257
062324
LDA
D.16
NO,
PRINT
3529
02260
066435
LDB
DISFA
'DISC
3530
02261
016010
JSB
TTY35
F'AILURF.'
3531
02262
062424
LOA
DISCI
STORE
3532
02263
042330
ADA
D860
DISC
NUMBER
3533
02264
001727
ALF,ALF
AND
'I'
3534
02265
042337
ADA
SLASH
IN
3535
02266
172433
STA
EBFDA,I
BUFFER
[F]
3536
02267
006400
CLB
COMPUTE
3537
02270
062422
LOA
DADOR
3538
02271
001727
ALF,
A.LF
ASCII
3539
02272
001200
RAL
(F]
3540
02273
012331
AND
0877
3541
02274
100400
OIV
OB12
FOR
3542
02276
046330
ADS
D860
3543
02277
002003
SZA,RSS
TRACK
3544
02300
026303
JMP
*+3
3545
02301
042330
ADA
0860
NU~BER
3546
02302
001727
ALF,ALF
3547
02303
030001
lOR
1
3548
02304
172434
STA EBIDA,I
STORE
IT
[F]
3549
02305
062320
LOA
N.6
PRINT
(FJ
3550
02306
062320
LOA
N.6
PRINT (FJ
3551
02307
066433
LDB
EBFDA
'X/XX,
,
.3552
02310
016010
JSB TTY35
3553
02311
126432
JMP
ERPIA,I
TERMIN~TF
LOAD/DUMP
3554
02312
107707
DISC7
CLC
DHA,C
CLEAN
UP
3555
02313
126145
JMP
DISCD,J
![](asset-51.png)
PAGE
0081
#01
12:13
PM
TUE.
, 23
OCT.
,
1979
CONSTANTS,
TEMPORARIES,
ETC.
[P]
3557
02314
117100
NM64
DEC
-64
(F]
3558
02315
177166
NMI0
DEC
-10
[F]
3559
02316
117177
NMl
DEC
-1
[FJ
3560
02317
000003
N.3
DEC
3
[F)
3561
02320
000006
N.6
DEC
6
[F]
3562
02321
000010
NBI0
OCT
10
(F]
3563
02322
000012
DB12
OCT
12
3564
02323
000015
NB15
OCT
15
[F]
3565
02324
000020
D.16
DEC
16
3566
02325
000023
NB23
OCT
23
[F]
3567
02326
000032
0832
OCT
32
3568
02327
000033
OB33
OCT
33
3569
02330
000060
D860
OCT
60
3570
02331
000077
OB77
OCT
77
35-71
02132
0001-00
NBt-OO
O-CT
100
[F]
3572
02333
000110
0.72
DEC
72
3573
02334
000176
D8176
OCT
116
3574
02335
000177
DB177
OCT
177
3575
02336
000200
NB200
OCT
200
[Fl
3576
02337
000057
SLASH
OCT
57
'I'
3577
02340
000137
BKSPC
OCT
137
, ,
-
3578
02341
000175
ALTMD
OCT
175
3579
02342
020000
DCHN
OCT
20000
3580
02343
120000
B120K
OCT
120000
'PRINT
ONLY'
TTY
CONTROL
BITS
3581
02344
122700
nSTe
OCT
122700
3582
02345
160000
B160K
OCT
160000
'INPUT'
T'
CONTROL
BITS
3583
02346
177400
HIMSK
OCT
177400
3584
00011
TTYSC
EQU
I1B
ASR35
SELECT
CODE
3585
02347
056015
RVRSL
OCT
56015,5000
'\
CR
LF'
F'OR
LINE
DELETION
3586
02351
000000
CeNTY
sss
1
[F]
3587
02352
000000
INBUF
SSS
36
TTY
INPUT
BUFFER
3588
02416
000000
BUFAD
SSS
1
TTY
CHARACTER
ADDRESS
3589
02417
000000
TFLAG
BSS
1
TTY
110
MODE
3590
02420
000000
TTYTpI
BSS
1
TTY
TEMPORARY
3591
02421
000000
CORE
SSS
1
CORE
ADDRESS
FOR
DISC
3592
02422
000000
DADOR
BSS
1
DISC
ADDRESS
3593
02423
000000
WORDe
sss
1
BLOCK
WORD
COUNT
FOR
DISC
3594
02424
000000
DISC# BSS 1
DISC
NUMBER
3595
02425
000000
FAIL ass 1
DISC
RETRY
COUNTEH
3596
02426
004724
lBUFA
ASS
INBUF+INBUF
3597
02427
002347
RVRSA
DEF
RVRSI,
3598
02430
007423
BADRA
OEF
BADDR
ADDRESS
OF
CHARACTER
POlfllTF:R
3599
02431
000160
DSTBL
DEF
DTBL
DISC
SELECT
CODE
TABLE
ADDRESS
3600
02432
005427
ERRIA
DEF
ERRIN
ADDRESS
OF
ABORT
MESSAGE
CODE
3601
02433
011&41
EBFDA
DEF
EBUF~
ADDRESS
Of'
ERROR
BUFF~R
3602
02434
011642
EtilDA
DEF
EBUl""+l
[FJ
3603
02435
011732
DISFA
DEF
DIscr
![](asset-52.png)
PAGE
0082
#01
12:13
PM
TUE.,
23
OCT.,
1979
POST-SLEEP
DISC
LOADER
3605*
3606*
3607*
3608*
3609
3610
3611
3612
3613
3614
3615
3616
3617
3618
3-61-9
3620
3621
3622
3623
3624
3625
3626
3627
3628
3629
3630
3631
3632
3633
3634
3635
3636
3637
3638
3639
3640
3641
3642*
3643
3644
3645
3646
3647
3648
3649
3650
3651
3652
3653
3654*
3655
3656
3657
3658
HLT
2
IF
A
SYSTEM
READ
IS
BAD.
PRESS
~RUN~
TO
RETRY
SYSTEM
LOADING.
02436
107100
02437
062477
02440
102607
02441
062500
02442
102703
02443
102603
02444
066506
02445
062503
02446
102615
02447
106703
0-24-50 1-06-603-
02451
103707
02452
102714
02453
102307
02454
026453
02455
102515
02456
012512
02457
002003
02460
026463
02461
102002
02462
026436
02463
062501
02464
072423
02465
062504
02466
066507
02467
016145
02470
062502
02471
072423
02472
062505
02473
066510
02474
016145
02475
107700
02476
126511
02477
02500
02501
02502
02503
02504
02506
02507
02510
02511
02512
00007
00014
00003
00003
020014
166000
165300
1&7200
000003
000000
100000
114000
126500
005306
000032
BSf.JDR
CLC
0,
C
LOA
BLINK
OTA
DMA
LOA
BSYS1
STC
WCR
OTA
WCR
LDB
eSAOl
LOA
BOAD
OTA
BDISC+l
eLC
MAR
O-T-B
MAR
STC DMA,C
STC
BOIse
SFS
DMA
JMP
*-1
LIA
BOI5C+l
AND
BSL32
SZA,FSS
JMP
*+3
HLT
2
JMP
estOR
LOA
BSYS2
STA
WORDC
LOA
LORTT
LDB
BSAD2
JSB
Dlscn
LDA
8SYS3
STA
WORDe
LDA
LDRTT+l
1,08
BgAD3
JSB
DISCO
CLC
o,C
JMP
DATE?,I
OUTPUT DMA/DISC
LINKAGE
OUTPUT
FIRST
SEGMENT
WORD
COUNT
FIRST
CORE
ADDRESS
ESTABLISH
DISC
ADDRESS
ESTABLISH
CORE
··ADDR-SS-S
INITIATE
DMA
START
TRANSFER
WAIT
FOR
END
OF
TRANSFER
TRANSFER
OK?
YES
NO
TRY
AGAIN
ON
'RUN'
READ
SECOND
SEGMENT
READ
THIRD
SEGMENT
GET
DATE
AND
TIME
BLINK
ASS
eSYS1 ASS
BSYS2
ASS
BSYS3
ASS
BDAD
OCT
LDRTT
OCT
BSAD1
OCT
BSA02
OCT
BSAD3
OCT
DATEP
DEF
BSL32
OCT
20000B+BDISC
-12000B
14000B-265008
265008-373006
3
SEGMENT
WORD
COUNTS
SEGMENT
0,0
100000
114000
126500
LDR59
32
DMA
EQU
7
BOIse
EQU
148
MAR
EQU
3
WCR
EQU
3
DISC
ADDRESSES
SEGMENT
CORE
ADDRESSES
ENTRY
POINT
TO
DATE-TIME
CODE
DMA
CHANNEL
DISC SELECT
CODE
(LOWFR)
MEMORY
ADDRESS
REGISTER
WORD
COUNT
REGISTER
![](asset-53.png)
PAGE
0083
#01
12:13
PM
TUE.,
23
OCT.,
1979
'DISC
LOADER'
LOADER
3660*
3661*
3662*
3663*
3664*
3665*
3666*
3667*
3668*
3669*
3b70*
3671*
3672*
3673*
36-74
3675
3676*
3677
3678
3679
3680
3681*
3682
3683
3684
3685
3686
3687*
3688
3689
3690
3691
3692
3693
3694
3695
3696
3697
3698
3699
3700
3701
3702
3703
3704
3705
3706*
3707
3708
3709
3710
3711
3712
3713
3714
THE
FOLLOWING
IS
THE
FORMAT
FOR
THE
PORTION
OF
THE
BOOTSTRAP
LOADER
TO
BE
SET
IN
0,0.
THIS
SECT
rON
OF
THE
BOOTSTRAP
IS
LOADED
INTO
2
TO
77B
BY
THE
PROTECTED
BINARY
LOADER.
WHEN
IT
IS
READ
COMPLETELY
INTO
CORE
IT
CHECKS
fOR
READ
PARITY
ERRORS
DURING
ITS INPUT.
FOLLOWING
THIS, A
HALT
INSTRUCTION
PERMITS
THE
OPERATOR
TO
PROTECT
THE
BASIC
BINARY
LOADER
AND
SET
SWITCH
0
OF
THE
SWITCH
REGISTER
TO
0 (EITHER
R~AL
TIME
EXECUTIVE
OR
TTME-SHARED
BASTC)
OR
1 (DISC
MONITOR
SYSTEM). PRESSING 'RUN'
READS
THE
SELECTED
SYSTEM
LOADER
FROM
0,1
OR
0,2
RESPECTIVELY.
IBIS
PORTION
OF
THE
BOOTSTRAP
OPERATION
WILL
tHEN
LUAD
INTO
CORE
THE
SELECTED
SYSTEM
AND
TRANSFER
CONTROL
TO
IT.
000-00
00000
00000
000000
00002
000000
00003
000000
00004
103004
00005
070044
00006
034043
00007
10'2077
00010
060047
00011
10260b
00012
102501
00013
006404
00014
000010
00015
006004
00016
106600
00017
006304
00020
160001
00021
070046
00022
001225
00023
106702
00024
102602
00025
060051
00026
102702
00027
102602
00030
103706
00031
102700
00032
014034
00033
124046
00034
000005
00035
102500
00036
000010
00037
024035
00040
010050
00041
002003
00042
124034
00043
102000
BSBS-O
EQU
0
ORG
BSBSO
RLOAD
OCT
0,0
R'f/TS
OCT
0
DMS
OCT
0
ALT
4,C
ASSEMBLY
ORIGIN
DON'T
USE
CA)
AND
(B)
REAL
TIME
EXEC/TIME-SHARED
BASIC
DISC
MONITOR
SYSTEM
IN
CASE
OF
POwER
FAIL
BSLDO
STA
BSLD2-BSBSO+1
CHANGE
IRRECOVERABLE
HLT
0
ISZ BSLD2-BSBSO
INTO
RECOVERABLE
HLT
1
HLT
77B
PROTECT
BSL,
SET
SWR
FOR
SYSTEM
LOA
LINKG-BSBSO
SET
UP
DISC/DMA
OTA
6
LINKAGE
BSLDI
tIA
1
SELECT
SYSTEM
LOADER
CLB,INB
FROM
SWITCH
REGISTER:
SLA
SwR
= 0 IMPLIES
SECTOR
1
INB
SWR
= 1
IMPLI~S
s£crOR
2
DSK7
OTB
0
OUTPUT
DISC
ADDRESS
CCE,INB SAVE
LOA
1,1
CHOSEN
LOADER'S
STA
CORAD-BSBSO
ENTRY
POINT
RAL,ERA
ourpUT 'READ'
FORM
CLC
2
OF
LOADER'S
OTA
2
CORE
ADDRESS
LOA
.N64-BSBSO
OUTPUT
STC
2
TRANSFER
OTA
2
LENGTH
STC
6,C
START
DMA
DSK8
STC
0
START
DISC
TRANSFEP
JSB TSTAT-BSBSO
VALIDATE
READ
JMP
CORAD-BSBSO,I
TRANSFER
TO
SYSTEM
LOADER
TSTAT
DEF
BSLDO-BSBSO
(INITIAL
EXIT)
DSK9
LIA 0
WAIT
FOR
SLA
TRANSfER
JMP
*-BSBSO-2
COMPLETION
AND
BSB32-BSBSO
TRANSFER
SZA,RSS
OK?
JMP
TSTAT-BSRSO,I
YES
BSLD2
HLT
0
NO
(HLT
1,
NOP
AFTER
CHECK
![](asset-54.png)
PAGE
0084
#01
12:13
PM
TUE.,
23
OCT.,
1979
'DISC
LOADER'
LOADER
3715
00044
024043
3716
00045
024012
3717*
3718
3719
3720
3721
3722*
00046
000000
00047
020000
00050
000032
00051
177700
3723
00077
3724
00077
024035
3725
**
NO
ERRORS
*TOTAL
JMP
*-85B50-1
JMP
BSLD1-BSBSO
ON
BOOTSTRAP
ITSELF)
RETRY
LOAD
CORAD
OCT
0
LINKG
OCT
20000
BSB32
OCT
32
.N64
DEC
-64
ORG
BSBSO+77B
SYSTEM
LOADER
ENTRY
ADDRESS
DISC/DNA
LINKAGE
TEMPLATE
TRANSFER
VALIDATION
MASK
JMP
DSK9-BSBSO
TEST
BOOTSTRAP
LOAD
END
**RTE
ASMB
92067-16011**
![](asset-55.png)
PAGE
0085
CROSS-REFERENCE
SYMBOL
TABLE
12:13
PM
TUE"
,
23
OCT.
,
1979
**ORG
*****
00005 00009
00023
00030
00044
02070
03348
03675
03723
.12
01140
00083
01141
.13
01142
00761
01143
.15
01144
00094
00172
00258 00378
00423
00955
00984
.17
01145
00801
.19
01146
00241
.2
01134
002-9-8
00339
00452
00564
00573
00-676
.20
01147
00567
01029
.21
01148
00276
.22
01149
00226
01025
.23
01150
00271
.24
01151
00412
00950
.26
01152
0011H
01119
.3
01135
00915
.32
01153
00437 01154
.38
01155
00357
01020
.4
01136 00128 00334 01192
.5440
01162
00592 00704
,6
01137
00659
00668
.600
01161
00979
.7
01138 00212
00502
00640
00642
00644
00657
.B
01139
00936
00967
.85
01159 00609
.N
03284 02280
,N64
03721
03699
.Y
03285 02278
![](asset-56.png)
PAGE
0086
CROSS-REFERENCE
SYMBOL
TABLE
12:13
PM
TUE.,
23
OCT.
,
1979
?BEND
00056
00884
?BGIN
00055
00880
?BHED
00053
00872
?BSTR
00054
00876
110
00057 00888
?MASK
00052
00864
A
01166
00373
ASS
02598
02549
02559 02607
02608
AD02K
02315 02301
ADD3K
02316
02302
ADD4K
02317
02303
ADLEN
00014 00162
00169 00323
00555
00705
00128
01413
0141.9
01421
01666
01810
01884
01885
AOLOC
00013
00167
00478 00727
ADTBA
01199
00165
00289
00322 00337
00558 00710
00730
ADTBY
02012
01417
01669
01851
01872
ADTBL
01198
01199
01200
02012
ADVAI
01815
01799 01805
01811
ADVAL
01794 01239
01802
01808
01814
ADVLA
01239 00778
00781
ALTMD
03578
03393
ASR35
01235
00085
00087
00096
00120
00122
00174
00228
00230 00243
00359
003bl
00380 00414
00416
00425
00439
00569
00763 00803
00938
00940
00957
00969
00971
00986
01022
01027
01031
01121
ASRDA
02017
01371
01484
01498
01542
01565
01573
01623
01817
01836
01943
01945
01958
AUTCK
02801
02510
02796
02805
8100
01157
01190
01193
![](asset-57.png)
PAGE
0087
CROSS-REFERENCE
SYMBOL
TABLE
12:13
PM
TUE.
,
23
OCT.
,
1979
BI00K
03264
02248
8106
01158
01194
B120K
03580
03357
B14
01141
00116
00143
00269
B15
01143
00960
B160K
03582
03425
840
01154
00693
00840
8400
01160
00305
00547
00621
860
01156
00251
86400
02002
01494
BAOAD
02051
02043
BADD
02054
02044
BADDA
02044
01572
BADOR
02038
01916
01917 03598
SADP
02057
02045
BADPA
02045
01835
BADRA
03598
03422
BASPG
03287
02116
BOAD
03647
03616
BDADA
02043
01816
BOOL
01293 01258
02040
BODLA
02040
01370
01564
BOISC
03656
03617
03621
03624
03643
BOLA
01258
00259
BIT15
01163
00166 00432
00687
BKSP
03431
03400 03413
03434
03445
BKSPC
03577
03388
BLANK
01999 01923
![](asset-58.png)
PAGE
0088
CROSS-REFERENCE
SYMBOL
TABLE
12:13
PM
TUE.
,
23
OCT.
,
1979
BLORA
01263 00438
SLORe
01307
01263
BLINK
03643
03610
BMASK
02003
02015
BMSKA
02015
01394
BPAGA
02009
01806
BPLEN
02372
02113
B-SAD1
036-4-9
0361-5
BSAD2
03650
03290
03633
BSAD3
03651
03293
03638
BSB32
03720
0371,1
BSBSA
01216
00431
00461
BSBSO
03674
01216 03675
03682
03683
03685
0,3695
03699 03704
03705
03707
03710
037t1
03713
03715 0371b
03723
03724
BSL32
03653
03625
BSLDO
03682
03707
BSLD1
03688
03716
BSLD2
03714
03682 03683
aSLOR
03609
01217
03629
BSPGA
03286
02115
BSY1A
01210
00913
BSY2A
01211
00918
8SY3A
01212 00923
8SYS1
03644 01210
03612
BSYS2
03645
01211
03288 03630
BSYS3
03646 01212
03291
03635
BUFA
03274
02503
02558
02561
02581
02656
02697
02750
02884
02887
02973
03003
03036
03050
![](asset-59.png)
PAGE
0089
CROSS-REFERENCE
SYMBOL
TABLE
12:13
PM
TUE.
,
23
OCT.
,
1979
03068
BUFAD
03588
03354
03364 03365
03401
03402 03423
03438
03439
BUFL
03275 02502
02532
02548
02551
02660
02760
02772
02776
02872
02882
02901
02974
03049
030bO
03066
03067
03071
03083
C
01167 00376
ceNT
03272
02162
02165
CeNTY
03586
03350
03359
03363
03398
03408
03432
03436
CEQTA
01191
00148
CHKSA
01265
00802
CHKSM
01312
01265
CMAND
02812
02512
02575
02590
02616
02635
02642
02675
02680
02682
02133
02748
02817
CMHD
02382
02507
02536
02623 02624 02659
02701
02702
02707
02713
02720
02788
02802
02813
02814
02835 02837
02902
029]9
02976 02985
03022
03075
03106
03107
03111
03114
03132
03133
03134
CNT
03277
02556
02566
02579 02585
02594
02605
02654
02686
02695
02696
CNTR
02775
02650
02692 02785
COM6
00048 01066
03301
COM6A
03301
02241
COMMA
01164
00256
CONi
03164
03298
CON1A
03299
03152
CON2
03188
03299
CON2A
03299
03158
CON3
03217
03300
CON3A
03300 03160
CORAD
03718
03695
03705
![](asset-5a.png)
PAGE
0090
CROSS-REFERENCE
SYMBOL
TABLE
12:13
PM
TUE.
,
23
OCT.
,
1979
CORE
03591
03456
03483
03506
03519
COUNT
01224
00554
00561
00584
00595 00606 00766
00789
D
01168
00233
0.10
03234
02271
D.16
03565
0352ij
D.19
03240
02792 03098
D.24
03241
02334
0.25
03243
02806
03125
D.3
03227
02599 02917
D.4
03228
02789
0.5
03229
02784
03286
0.6
03230 02187
D.72
03572 03399
05440
03262
02159
02167
DADDR
03592
03455
03463
03489
03494
03503
03537
DASH
02001
01557
DATA
02383
02662
02664
02667
02669
02673
02703
02705 02709
02711
02715 02717
02722
02724
02731
02834
02957
02972
02978
02980
02984
03009
03021
03077
03079
DATE
00061
00951
0098<l
00990
DATEA
01266
00937
OATEP
03652
03641
DATER
01315 01266
0810
03232
02309
DBI00
03249
02571 02591
03304
OB101
03250
02541
02862
DBI05
03251
02860
![](asset-5b.png)
PAGE
0091
CROSS-REFERENCE
SYMBOlJ
TABLE
12:13
PM
TUE.
,
23
OCT.
,
1979
OB11
03233
02634
02681
08110
03253
02844
03131
OB12
03563
03381
03541
DB15
03236
02947
02993
DB17
03238
02283
DB176
03573
03395
DB177
03574
03370
03380
03383
08200
03256
02357
02576
02617 02643
02740
02873
DB201
032~7
02535
OB215
03254
02958
0823
03239 02700
03007
03240
08300
03258
02511
DB31
03242 02658
02970
03243
0832
03567
03523
DB33
035b8
03391
0835
03245
02641
0840
03246
0250&
02612 02683
08400
03259
02149
02172
02803
OB41
03247 02601
02679
02747
02919
02953
02991
03033
0860
03569 03532 03542
03545
DB7
03231
02515
02840
02841
DB733
03260
02676 02737
08757
03261
02734
DB77
03570 03470
03540
DCHN
03579
03472
DDIRA
03304
02119 02185
DEQTA
01192
00147
![](asset-5c.png)
PAGE
0092
CROSS-REFERENCE
SYMBOL
TABLE
12:13
PM
TUE.,
23
OCT.
,
1979
DEST
02035 01869 01877
01879
DIGCK
01896
01511
01520
01721
01750
01757
01900
01903
01905
01906
DIRBA
01203 00510
DIRBF
01279
01203
DIRE6
01194
00206
00496
00508
DIREA
01193 00635
DIREC
00010
00105
Dlse
012-3-6
0-0-1-49
0016-S
00433
0-04-5-5
004-59 0046-2
00511
00525
00605 00619
00681
00688
00731
00903
00917
00922
00927
01104
OISC#
03594
0346&
03531
DISC1
03497
03478
03499
03502
03527
DISC2
03504
03482
DISC3
03512
03475
DISC4
03515
03479
DISC5
03522
03480
DISC6
03526
03518
DISC7
03554
03521
03525
DISCO
03454
01236
03296
03459 03555
03634
03639
DISCF
03329
03603
OlseN
03296
02117
02128
02156
02194
02217
02222
02249
02256
OISFA
03603 03529
DISMA
01256
00227
DISMD
01288
01256
OM1
03226
02653
02657
02698
02968
DM10
03222
02690
DM255
03220
02085
02135
DM3
03225
02998
![](asset-5d.png)
PAGE
0093
CROSS-REFERENCE
SYMBOL
TABLE
12:13
PM
TUE.
,
23
OCT.
,
1979
0144
03224
02183
OMS
03223 02350
02652
02694
02753
03039
DM64
03221 02118
02243 03154
DMA
03655
03473
03511
03513
03554
03611
03620
03622
OMS
03679
00454
DMTRL
03307 02246
DONEA
03312 02310
DONEM
03320
03312
OSK7
03692 00434 00443
DSK8
03703
0044S
DSK9
03708
00447
03724
DSTBL
03599
03467
DSTe
03581
03474
DTBL
00016
00144
01196
02014
03599
OTBLA
01196
00481
DTMPO
03268
02086
02094
02136
02174
02184 02200
02227
02232
02251
02262
DTMPl
03269
02088
02091
02093
02138
02150
02173
02190
02198
02224
02228
02229
02230
02242
02245
02254
02260
DTMP2
03270
02154
02171
02247
02250
02252 02257
02261
DTRK8
03305
02130
02157 02166
02196
02258
02351
DTRKR
03306
02127
02155
02193
02255
DULTa
03303
02087
02137
DULTT
03302
02089
DZMBA
01259
00272
DZMBF
01296
01259
EB1DA
03602
03548
![](asset-5e.png)
PAGE
0094
CROSS-REFERENCE
SYMBOL
TABLE
12:13
PM
TUE.,
23
OCT.,
1979
EBFDA
03601
03535
03551
EBUF
03281
02016
03601
03602
EBUFA
02016
01495
01497
ECNT
03279
02691
02744
ENOR
02759
02708
02714
02721
ENORl
02772
02764
02767
02769
EOFER
01020
00198
00519
00545
00601
00615
00694
00826
00841
EOFM
01325
01270
EOFMA
01270
01021
EOTC
02819
02633 02648
02689
02824
EOTF
03278
02509
02644
02821
EOTM
01309
01264
EOTMA
01264 00762
EOTA
01190 00109 00195
EOTLN
01178
00106
ERR
02826
02685
02756
ERR.1
02900
02842
03042
ERR1
00094
00089
@ERR2
00172
ERR3
00241
00235
00238
00260 00273 00278
ERR4
00378
00363
00369
00372
ERRS
00567
02022
ERR5A
02022
01678
ERR6
00955
00944
00948
00962
00966
ERR7
00984 02023
ERR7A
02023
01749
01751
01756
01758
01765
ERRIA
03600
03553
![](asset-5f.png)
PAGE
0095
CROSS-REFERENCE
SYMBOL
TABLE
12:13
PM
TUE.
,
23
OCT.
,
1979
ERRIN
01029
00440
00570
01023
01122
03600
EXIT
02529
02560
02508
02583
02596
02630 02647
02678 02739
02178
FADT!
01852
01857
FAOTP
01847
01422
01466
01854
FAIL
03595
03469
03486
03496
03526
GAP
02632 0252b
GETCA
01249
00088
00231
00234
00237
00249
00274
0O-3-()-2
OG36-8-
0037-1
00417
0{}982
GETeR
01915
01249 01518
01527
01555 01719
01748
01755
01924 01926
01927
01928
01946
019bO
03294
GETMT
01940
01250 01941
01950
01959
01966
01967
GTDNI
01555
01559
GTDN2
01563
01556
GTON3
01567 01562
GTON4
01571
01581
GTDN5
01575
01570
GTON6
01583
01576
GTONA
01240 00246
GTONO
01553
01240
01349 01566 01574
01583
01584
GTMTI
01956
01962
GTMT2
01960
01955
GTMT3
01966
01953
GTMTA
01250
00182
GTTRl
01670
01677
GTTR2
01679
01674
GTTRA
01241
00394 00476 00499
GTTRK
01663
01241
01684
01690
![](asset-60.png)
PAGE
0096
CROSS-REFERENCE
SYMBOL
TABLE
12:13
PM
TUE.
,
23
OCT.,
1979
HIMSK
03583 03442
HLT22
02318 02304
I
01169
00230
IBUFA
03596
03421
IDLEN
00012 00515
00521
00702
00722
02124 02129
IDLOC
00011
00477
00523
00725 02126
IDTBA
01201
00516
00524
01202
IDTBL
01200
01201
03305
03306
ILDTA
01267
00956
ILDTE
01317
01267
ILIN
03323
01253
03313
ILINA
01253
00095
00173
00379
00424
ILINM
03313
02284
ILSCA
01260
00277
ILSCD
01299
01260
02041
ILSCL
02041 01541
01957
ILTIA
01269
00985
ILTIM
01322
01269
ILTRA
02042
01622
ILTRL
02048 02042
INBUF
03587
03596
03596
INCRE
00050
00892
00898
INF
01996
01732 01737
INRPA
02010 01809
INTGl
01718
01131
INTG2
01734
01720
01722
INTGA
01242
00941
00959
INTGR
01714
01242
01354
01373
01560
01618
01733
,
![](asset-61.png)
PAGE
0097
CROSS-REFERENCE
SYMBOl.!
TABLE
12:13
PM
TUE.
,
23
OCT.,
1979
01736
01738
ISQTA
01243
00349
01078
01082
ISOTL
01698
01243
01439
01471
01671
01705
JDRT1
03292
02220
JDRTT
03289
02215
JMPMl
02319
02307
JSAD2
03290
02216
JSAD3
03293
02221
J5YS2
03288
02213
JSYS3
03291
02218
L
01170
00367
L.I0
01980
01487
01725
01753
01981
L.l3
01982
01834
01983
L.IS
01984
01369
01563
L.17
01985
01571
01815
L.2
01977
01665
01686
01856
01880
L.20
01986 01482
L.21
01987
01540
01956
L.23
01988
01621
L.24
01989
01941
L.3
01978
01496 01700
L.39
01990
01629
L22A
02020
01350
01372
01453
01837
L46A
02021
01820
LABOA
01272 01030
LABOR
01329 01272
LBI00
01993
01638
LSll
01979 01812
![](asset-62.png)
PAGE
0098
CROSS-REFERENCE
SYMBOL
TABLE
12:13
PM
TUE.
,
23
OCT
..
,
1979
LB12
01981
01901
LB15
01983
01367
01374
01619
01925
01952
LB377
01994
01644 01704
01922
LB400
01995
01448
LB54
01991
01364
01561
LB60
01992
01488
01491
LBRY
01282 01252
LSRYA
0-12-52
0-0-0-84-
LD72
01972
01898
LD77
01971
01530
LOR
00079 00045
00097
02317
LOR1
00104
00093
LOR10
00262
00257
00275
LOR11
00266
00270
LDR12
00269
00265
LOR!3
00274 00252
LOR14
00287
00232
LDR1S
00300
00314
LDR16
00304
00299
LOR17
00313
00308
LOR1S
00334
00170
LDR19
00339
00344
LOR2
00110 00113
LOR20
00343
00353
LOR21
00346 00342
LOR22
00357
00345
00381
02020
LDR23
00389 00374
![](asset-63.png)
PAGE
0099
CROSS-REFERENCE
SYMBOL
TABLE
12:13
PM
TUE.
,
23
OCT.
,
1979
LDR24
00393
00398
LDR25
00412 00426
LDR26
00423
00418
LOR27
00428
00420
LOR28
00442
00422
LOR29
00456
00436
LDR3
00118
00124
LOR30
00482 00487
LOR31
00497
00504
LDR32
00548
00624
LOR33
00560
00566
LDR34
00571
00580
LDR35
00577
00563
LDR36
00587
00576
LOR37
00621
00550
LOR38
00646
00691
LOR39
00654
00662
LDR4
00130 00133
LDR40
00663 00655
LDR41
00668
00678
LDR42
00693
00650
LDR43
00702
00466
00514
LDR44 00711.
00715
00721
LDR45
00722
00707
LDR46
00753
00765
00794
00807
02021
LOR47
00756
00760
LDR48
00766
00758
LDR49
00782
00777
00790
![](asset-64.png)
PAGE
0100
CROSS-REFERENCE
SYMBOL
TABLE
12:13
PM
TUE.,
23
OCT.
,
1979
LDR5
00143
00183
LDR50 OOSl7
00738
LDR51
00823
00831
LDR52
00832
00839
LDR53
00840 00836
LDR54
00845 00772
LDR58
00863
00905
LDR59
00--9--36
009-$8
03-'52
LDR6
00158
00033
LDR60
00959
00954
LDR61
00967 00987
LDR62
00988
00983
LDR63
01013
01001
LOR7
00182
00091
LOR8
00226
00135
00244
00247
00255
00267 00268
LDR9
00245
00240
LORE1
00611
00594
LDRTA
01209 00400
LDRTT
03648
01209
03289
03292
03632
03b37
LDTBL
02014
01578 01600
01639
01701
LIA15
01183
00446
LIBRA
00047
00782 00799
00833
01064 01068
01103
01105
LINKA
01184 00448
LIHKG
03719
00449
03685
LKUN1
01369 01376
LKUN2
01373
01365
LKUN3
01387
01368
01452
![](asset-65.png)
PAGE
0101
CROSS-REFERENCE
SYMBOL
TABLE
12:13
PM
TUE.
,
23
OCT.,
1979
LKUN4
01429 01436
LKUN5
01447
01410
01415
01465
01480
01499
LKUN6
01464
01400
LKUN7
01482 01470
01474
LKUN8
01493
01490
LKUNA
01234 00366
00377
LKUNL
01347
01234
LMl
0-197-6 016-81
LlJf129
01969
01626
LM2
01975
01420
01429
01868
LM4
01974
01568
01605
01641
LM64
01970
01831
LM8
01973 01513
01522
LNKAD
01197 00776
LOOP
02713 03195
LSLTB
00046
01197
02374
02375
LSLTE
00071
02374
LTMPO
02027
01358
01427 01435 01554
01575 01577
01582
01850
01855
LTMPI
02028
01353
01391
01517
01525
01526
01529
01536
01606
01613
01633 01650
01{)64
01683
01754
01759 01795
01818
LTMP2
02029
01357
01379 01450 01486
01617
01635
01651
01668
01676
01685
01669
LTMP3
02030
01355
01363
01382
01451
01640
01643
01647
LTMP4
02031
01362
01387
01437
01447
01449 01467
01642
01648 01848
LTMP5
02032
01392
01397
01411
01412
01418
01423
01428 01432
01434
01438
01440
01441
01477
01479 01716
01723
01727
01735
![](asset-66.png)
PAGE
0102
CROSS-REFERENCE
SYMBOL
TABLE
12:13
PM
TUE.,
23
OCT.,
1979
LTMP6
02033
01396 01430
01431
01433 01478 01718
01724
01734
LTRAX
02013
01352
01609
LULC
01302
01261
LULCA
01261
00358
141
01133
00578
MI0
01131
00754
M12
01130 00125
M16
01129
00104
00855
M20
01128
00389
M255
01126
00296
00539
M256
01125 00670
00819
00832
01085
M4
01132
00204
00479
00682 01089
01107
M5440
01124
00596
00646
M64
01127
00145 00163
00194
00428 00450
00506
00703
HAGSe
00017
00189
00201
02071
02504
MAR
03657 03505 03507 03508 03510
03618
03619
MAXAD
02006
01797
MAXBA
02008
01803
MAXYR
01177 00964
MBIAS
01119
00980
MCNT
02037
01875
01882
MCPAC
03309 02289
MFLAG
02034
01347
01398
MGTCA
03294
02276
MLTBA
02379
02211
02223
MLTBE
02378
02380
MLTBL
02369 02225
02379
02380
![](asset-67.png)
PAGE
0103
CROSS-REFERENCE
SYMBOL
TABLE
12:13
PM
TUE.,
23
OCT.
,
1979
MOVU1
01876
01883
MOVUA
01244
00575
00718
MOVUP
01866
01244
01476
01688 01886
MSTOC
03308
02097
MT
.1
02802
02810
03188
MT.I0
02659
03205
MT.12
02788
02797
03189
MT
.14-
02813
03206
MT.15
02814
03200
MT.2
02667
03177
MT.20
02536
02542
03207
MT.21
02501
03190
MT.3
02669 03164
MT.30
02707
03196
MT.40
02701
03208
MT.41
02702
03211
MT.42
02703
03179
MT.43
02705
03167
MT.44
02709
03180
MT.45
02711
03170
MT.46
02715
02728
03181
MT.47
02717
03168
MT.48
02122
03182
MT.49
02724
03171
MT.5
02673
03172
MT.50
02731
03173
MT.51
02720
03197
![](asset-68.png)
PAGE
0104
CROSS-REFERENCE
SYMBOL
TABLE
12:13
PM
TUE.
,
23
OCT.
,
1979
@MT.52
02511
MT.8
02662
03178
MT.9
02664
03165
MTAPE
01237
00192 00196 00517
00543
00599
00613
00648
00824
00834
00842
MTBLN
02380
02210
MTO
02502
01237
02103
02105
02268
02294
02299
02323
02344
02352
02513 02514 02530
02531
02533
02539
02586
02593
02614
02628
02646
02742 02823
02828
02829
02839
02847 02898
02900
0-2-903-
MTDE1
02169
02161
MTDER
02333
02296
02297
02326
02327
02346
02347
02355
02356 02359
02730
03020
MTDll
03153
03162
MTDIA
01238
00191
MTDIN
03150
01238
02075
03161
MTOMO
02090
02095
MTOMl
02096
02313 02338
MTOM2
02150
02175
MTDM3
02172
02152
MTOM4
02186 02201
MTOM5
02199
02189
MTDM6
02228
02233
"'TOM7
02252
02263
MTOM8
02301
02073
@MTDMP
02071
MTDMU
02292
02281
MTDMV
02298 02267
MTENR
02282
02277
MTESQ
02270
02286
![](asset-69.png)
PAGE
0105
CROSS
....
REFERENCE
SYMBOL
TABLE
12:13
PM
TUE.,
23
OCT.
,
1979
MTFLA
02019
01951
01963
01965
MTFLG
01225
00134
00159
00188
00200
00203
00464
00512
00736
02019
MTGVT
02287
02279
MTLM
03331
03316
MTLMA
03316
02807
03126
MTRLA
01208
00820
00830
MTRLT
00035
01208
03307
MTRWD
02103
02109
MTSC
01286
02018
MTSCA
02018
01942
MTSCD
03280
03151
03155
03159
MTVFL
02324 02100
02265
02342
MTVFS
02099
02290
MTVLC
02725
02101
MTVLQ
03015 02102
MTWF
02340
02202
02264
02322
02328 02348 02358
MTWFY
02349 02343
MTWFZ
02357
02354
MTWR
02321
02120
02131
02139
02164
02170
02197
02212
02231
02259
02329
MXADT
01998
01414
MXDAY
01176 00946
N
01171
00092
00421
N.3
03560
03418
03465
N.6
03561
03549
03550
N5440
03219
02163
NBlO
03562
03516
![](asset-6a.png)
PAGE
0106
CROSS-REFERENCE
SYMBOL
TABLE
12:13
PM
TUE.
,
23
OCT.,
1979
NBlOO
03571
03481
NBIS
03564 03410
NB200
03575
03371
03477
NB23
03566
03386
NMl
03559
03362
03435
NMI0
03558
03495
NM64
03557
03461
NOISE
03030
03048
a
01172 00370
O.B
03132
03214
OOOSA
01274
00568
OODSP
01333
01274
OTB1S
01181
00435
00442
OUT
02661
02672
P
.1
02558 02550
02582
02587
P.2
02570 02553 02578 02580
P.3
02589
02563
02595
P.4
02585
02573
PARe1
01834
01381
PARCK
01829
0135&
01377
01833
PHl
01186
01003
PH2
01187
01006
PHIN1
00065 01004
PHIN2
00066
01007
PHIN3
00067
01009
PHIN4
00068
01012
PHNSC
00018
00999
POS
02548
02524
![](asset-6b.png)
PAGE
0101
CROSS-REFERENCE
SYMBOL
TABLE
12:13
PM
TUE.
I
23
OCT.
,
1979
PWRFL
00069
01013
ROMS
01305
01262
ROMSA
01262 00413
READ
01774 01245 01782
READ1
01776
01784
READA
01245
00756
00769
00770 00785
00792
READT
02689
02520
02755
READ-X
02--13-6
027-1-3
REJCT
03131
03110
RERED
02696
02149
RES
02541
02525
RETRY
02655
02687
REW
02535
02523
@RLOAD
03677
RQSTA
01257 00242
RQSTD
01290
01257
RSSA
01188
01008
RSYAl
01213
00921
RSYA2
01214
00926
RT/TS
03678
00457
RVRSA
03597
03419
RVRSL
03585 03597
RWEOF
02958
02955
S
01173
00239
5.1
02623
03191
5.2
02624
03193
S/TDO
01284
01254
![](asset-6c.png)
PAGE
0108
CROSS-REF'ERENCE
SYMBOL
TABLE
12:13
PM
TUE.,
23
OCT.,
1979
S/TDA
01254 00119
SELCl
01538
01543
SELC2
01540
01512
01515
01519
01521
01524
01532
01535
SELCA
01246
00253
SELCD
01510
01246
01533
01537
01539
01539
01948
SETO!
01605
01653
SETD2
01611
01614
SETO-3-
01-6-1-7
01-6:-03-
SETD4
01621
01628
01631
SETDS
01625
01620
SETD6
01638
01646
SET07
01643
01649
SETDA
01247
00123
00266
SETDS
01598 01247
01615
01616 01624
SGNBT
01997
01964
SHORT
02750
02746
SLO
02894
02836
SLASH
03576
03534
SLDIR
01231
01067
01087
01100
01101
SLSH
01165
00953
SOURe
02036
01867
01876
01878
01881
SPACE
02610
02554
02564 02619
02620
STAR
02000
01954
STAT
02627
02527
STC14
01182
00444
STIN
02622
02529
02570
02611
02625
02627
02736
02816
02820
02826
SWPAA
00060 00902
![](asset-6d.png)
PAGE
0109
CROSS-REFERENCE
SYMBOIJ
TABLE
12:13
PM
TUE.,
23
OCT.
,
1979
SWPIA
00058 00863
SWPLN
00059 00900
SYSL
01331
01273
SYSLI
01070 01075
SYSJ.,,2
01085
01062
SYSL4
01100
01118
SYSLS
01107
01092
SYSL-6
01119
011-1-0
SYSLA
01273
01120
SYSLB
01052 00783
00838
00845
01055
01106
SYSLF
01226
00081
00082 00160
00161
00209
00484
00488
00489
00491
00493 00734
0073!>
00800
00818
01053
01061
01065
01074
SYSSl
01229 01079 01090
01094
01095
SYSS2
01230 01083 01108
01112
01113
SYST1
01227 01077
01096
01098 01099
SYST2
01228
01081
01114
01116
01117
SYSTA
02007
01800
TAPEA
01271
01026
TAPER
01327
01271
TAPMA
03314
02335
TAPMS
03326
03314
TBASE
02519
02516
TEMPO
01219
00107
00112
00120
00132 00205
00213
00288
00303
00306
00336
00343
00390
00397
00480
00486
00495 00503
00540
00623
00636
00656
00658
00663
00685
00709
00720
00774
00787 00788
00856
00904
00942 00952
00974
00988
TEMPt
01220 00115
00248
00264
00295
00309
00310
00311
00312 00315 00392
00395
00396
00497
00500
00501
00542
00548
00590 00622
00666
![](asset-6e.png)
PAGE
0110
CROSS-REFERENCE
SYMBOL
TABLE
12:13
PM
TUE.
,
23
OCT.
,
1979
00677
00716
00719
00768
00780
00795
00804
00858
00896
00897
00899
02024
TEMP2
01221
0011.7
00262
00297
00313 00552
00587
00620
00796 00805
00860
00894
00895 02025
TEMP3
01222 00300
00304
00557
00565
00572
00582
00589
00b03
00608 00610
00617
00775
00798
00862 00865 00873
00877
00881.
00885 00889
00891
00893
TEMP4
01223
00509
00653
00661
00679
00684
00690
00821
00823 00828 00829
01069
01070 01072
TFLAG
03589
03356
03376
03415
03424
TIME
00062
00981
TIMEA
01268
00968
TIMER
01320
01268
TMPIA
02024
01599
01607
TMP2A
02025
01601
01636
TPERR
01025
00199 00520 00546
00602 00616
00651
00827
00837
TRAX
00015
01195
02013
TRAXA
01195
00127
00287
TRKNA
02046
01483
TRKNL
02060
02046
TRKTA
01206
00391
TRKTB
01232
00399 00920 00925 01076
01080
01206
01207
TSB
00064 01015
TSBBA
01211 00453
00456
TSTAT
03707
03704
03713
TT351
03295 02273
02275
02285
02311
02336 02794
02808
03100
03121
TTY1
03359
03318
TTY2
0337.3
03382
03384
03387
03412
03414
0)426
![](asset-6f.png)
PAGE
0111
CROSS-REFERENCE
SYMBOL
TABLE
12:13
PM
TUE.
,
23
OCT.
,
1979
TTY35
03349 01235
02017
03295
03361
03411
03416
03417 03420
03530.
03552
TTY4
03413
03389
TTY5 0.3415
03392
03394
03396
TTY6
03421
03352
TTYDA
00051
·00857
TTYSC
03584
03358
03372 03373
03374
03379
TrYTM
03590
03397
03409
03444
T·W-GO-A
0-12·4·8
009·72· 0.0·975
TWODG
01747
01248
01761
01762
01764
U
01174
00365
ULT"'1
0.1205
00638 00672
ULTTA
00070.
03302
ULTTB
0.1204
00541
UPRBA
01202
00598
0.0604
00.612
00618
00647
00667
0.0680
USTRA
01207
00859
VRFY
03337
03318
VRFYA
03318
02272
weNT
03276
02574 02589
02602
02615
02b55
02671
weR
03658 03613
03614
WEor
02640
02522
WNE
03334
03317
WNEA
03317
02793
03099
WNEC
02787
02632
02640
02649
02791
WORD
0.1215
00146
00164
00429
00451
00507
00522
00551
00591
00597
00607
00611
00652
00683
00729
00901
00914
00919
00924
01086
WORDe
03593
01215
03297
03457
03462
03509
03631
03636
![](asset-70.png)
PAGE
0112
CROSS-REFERENCE
SYMBOL
TABLE
12:13
PM
TUE.,
23
OCT.
,
1979
WORDN
03297
02114
02125
02153
02158
02169
02191
02195
02214
02219
02244
02253
WRITE
02648
02521
XABS
02915
02712
02759 02843 02846
02874
02889
02923
02925
03006
03012
03046
XATCK
03121
02838 03102
03124
03129
XBASE
02851
02848
XCMND
03105
02845
02864
02930
02948
02954
02959
02971
02992
02994
03008
03034
03113
03117
XCNT-R
030-82 0-28-80- 02-8-95
02911
02924
02-9-67
03-000
03001
03010
03085
03089
XEND1
03060
03055
XEND2
03057
03052
XENDR
03046
03029
XEOTC
03138
02928
02946
02962
02966
02995
02997
03143
XGAP
02945
02858,
XIT
02898
02886
02890
02949
02963
02990
03072
03087
XITl
02901
02866
02912
02934
03026
03142
XLOOP
03075
0301.8
03078
03198
XMTD
02831
02506
XOUT
02975
02983
XP.O
02891
02896
Xp.l
02887
02875
02913
XP.2
02905 02877
02892
02909
XP.5
02876
02879
02881
XPOS
02872
02856
XREAD
02997
02852
03041
XRERD
03002
03035
XRES
02860
02857
![](asset-71.png)
PAGE
0113
CROSS-REFERENCE
SYMBOL
TABLE
12:13
PM
TUE"
,
23
OCT.
,
1979
XREW
02862
02855
XS.O
03107
03194
XS.1
02938
02833
03094
03192
XSHRT
03036
03032
XSPCE
02926
02878
02893
02932
02935
02999
03030
XSTIN
02937
02831
02865
02899
02906
02941
02987
03024 03092
03116
03122
03139
XT.O
03134
03135
03202
XT.l
02837
03210
XT.10
02985
02986
03203
XT.l1
03009
03186
XT.12
02957
03187
XT.13
02834
03176
XT.14
03106
03136
03209
XT.15
031.14
03115
03201
XT.16
02835
03216
XT.2
02978
03183
XT.20
02976
02979 03199
XT.3
02980
03166
XT.4
02902
03215
XT.43
03079
03169
XT.46
03077
03184
XT.5
02984
02977
03114
XT.50
03021
03076
03175
XT.6
03133
03213
XT.7
03111
03212
XT.8
03022
03023
03204
XT.9
02972
03185
![](asset-72.png)
PAGE
0114
CROSS-REFERENCE
SYMBOL
TABLE
12:13
PM
TUE.,
23
OCT.
,
1979
XWAIT
03074
03011
03013
03080
XWEOF
02956
02854
XWEOR
02953
02961
XWNEC
03091
02699
02719
02725
02752
02920
02929
02945
02956
02965
02969
02982
03004
03014
03015
03038
03097
03103
0330R
03309
XWRTE
02965 02853
Y
01175
00090
00419
YEAR
00063
00963