File: BOOTW.PA of Tape: Various/System-Tapes/s5
(Source file text)
/14 BOOT - OS/8 V4
/
/
/
/
/
/
/
/
/
/COPYRIGHT (C) 1974 BY DIGITAL EQUIPMENT CORPORATION
/
/
/
/
/
/
/
/
/
/
/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
/AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
/CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
/FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
/
/THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
/UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
/(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
/
/DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
/OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
/DIGITAL.
/
/
/
/
/
/
/
/
/
/
/ DEC-08-OBOTA-A
/ COPYRIGHT 1973
/ DIGITAL EQUIPMENT CORPORATION
/SR
PTR=14
OLDLOC=15
NEWLOC=16
CDOIO=27
SCAN=17
*1
HLT
JMP I (7600
*100
INNER, 0
OUTR, -20
CODE, 0
LENGTH, 0
*200
START, CLA /ALLOW BEING CHAINED TO
TAD I (7600
SPA CLA
JMP OS8IN
ISZ INNER
JMP .-1
ISZ OUTR
JMP .-3
JMS I (TESTRK
COSIN, TAD I (7776
COMN, CIA
DCA CODE
TAD (TABLE-1
DCA PTR
LOOP, TAD I PTR
SNA
JMP OS8
TAD CODE
SZA CLA
JMP NXT
IOF
STA
TAD I PTR
DCA OLDLOC
STA
TAD I PTR
DCA NEWLOC
TAD I PTR
CIA
DCA LENGTH
TAD I OLDLOC
DCA I NEWLOC
ISZ LENGTH
JMP .-3
TAD I PTR
DCA TEMP
TAD HLTSWT
SNA CLA
HLT
CLL
JMP I TEMP
HLTSWT, 1
NXT, TAD PTR
TAD (4
DCA PTR
JMP LOOP
OS8, TAD ("N
JMS I (PUT
TAD ("O
JMS I (PUT
CLA IAC
DCA HLTSWT
RETRY, JMS I (CRLF
TAD ("/
JMS I (PUT
JMS I (GET
SKP
JMP RETRY
CLL RTL
RTL
RTL
DCA TEMP
JMS I (GET
SKP
JMP RETRY
TAD TEMP
DCA TEMP
JMS I (GET
JMP .-1
CLA
JMS I (CRLF
TAD TEMP
JMP COMN
OS8IN, TAD I (7600
TAD (-4207
SZA CLA
JMP RETRY
TAD I (1000
TAD (777
SNA CLA
TAD (600
TAD (1000-1
DCA SCAN
SKAN, TAD I SCAN
SNA
JMP RETRY
AND (177
TAD (-"/!7600
SZA CLA
JMP SKAN
TAD I SCAN
AND (77
CLL RTL
RTL
RTL
DCA TEMP
TAD I SCAN
AND (77
TAD TEMP
DCA TEMP
TAD I SCAN
AND (177
TAD (-".!7600
DCA HLTSWT
TAD TEMP
JMP COMN
TEMP, 0
PAGE
TABLE, 2403 /TC
DECTAP
7554
25
7554
2213 /RK
RKADR, RK8
21
11
21
2404 /TD
TD8E
7277
34
7277
1424 /LT
LINCTP
4400
7
4400
2206 /RF
RF08
7746
7
7746
2024 /PT
BINLDR
7626
152
7700
3205 /ZE
ZERO
4
6
4
2431 /TY
TYPSET
7730
42
7730
0414 /DL
DIAL
4012
6
4012
0301 /CA
CAS
4000
40
4000
0415 /DM
DSKMON
171
16
174
2605 /VE
VERS
VERS
1
VERS
0424 /DT
TAPE
TAPE
1
TAPE
0413 /DK
DISK
DISK
1
DISK
2205 /RE
RK8E
21
11
21
2311 /SI
SIDK
0
6
0
2523 /US
1
1
1
RETRY
0
DECTAP, 7600
6774
1374
6766
6771
5360
7240
1354
3773
1354
3772
1375
6766
5376
7754
7755
0600
0220
6771
5376
RK8, 6732
6751
6745
5023
6742
6753
6755
6733
5031
RK8E, 7000
7000
7000
7000
7201
6742
6742
6743
5031
SIDK, 6502
0000
6517
6512
6514
5005
TD8E, 6007
1312
4312
4312
6773
5303
6777
3726
2326
5303
5732
2000
1300
6774
6771
5315
6776
0331
1327
7640
5315
2321
5712
7354
7756
7747
0077
7400
LINCTP, 6141
1020
0020
0004
0700
0000
6020
RF08, 6643
6615
7600
6603
6622
5352
5752
/ 1000 IS OS/8 LINE BUUFFER
/ 1600 IS PS/8 LINE BUFFERE
*2000
BINLDR, 0000
3212
4260
1300
7750
5237
2212
7040
5227
1212
7640
5230
1214
0274
1341
7510
2226
7750
5626
1214
0256
1257
3213
5230
0070
6201
0000
0000
6031
5262
6036
3214
1214
5660
6011
5270
6016
5265
0300
4343
7041
1215
7402
6032
6014
6214
1257
3213
7604
7700
1353
1352
3261
4226
5313
3215
1213
3336
1214
3376
4260
3355
4226
5275
4343
7420
5336
3216
1376
1355
1215
5315
0000
3616
2216
7600
5332
0000
1376
7106
7006
7006
1355
5743
5262
0006
0000
0000
6014
6011
5357
6016
7106
7006
7510
5374
7006
6011
5367
6016
7420
3776
3376
5357
0000
5301
ZERO, 1005
3410
5004
5404
0011
2010
DIAL, 6141
1020
0020
0004
0701
7300
/ 7300
/ 6002
/ 6042
/ 6022
/ 6012
/ 6032
/ 6601
/ 6764
/ 1221
/ 3010
/ 1622
/ 2222
/ 7450
/ 5620
/ 3410
/ 5212
/ 7730
/ 7727
/ 0223
TYPSET, 6774
1347
4341
7240
1353
3355
1352
4341
5753
7777
6766
3354
6771
5344
5741
4600
7777
7777
4220
7400
7777
7777
7777
6014
6011
5360
7106
6012
7420
5357
5756
4356
3373
4356
PTCLEV, 40
L3, "4
LV, "V
VERS, TAD LV
JMS I (PUT
TAD L3
JMS I (PUT
TAD PTCLEV
JMS I (PUT
JMP I PRETRY
PRETRY, RETRY
DSKMON, 7577
7750
7751
1171
3572
1172
3573
6643
6615
6603
6602
5203
5606
7600
CAS, 1237
1206
6704
6706
6703
5204
7264
6702
7610
3211
3636
1205
6704
6706
6701
5216
7002
7430
1636
7022
3636
7420
2236
2235
5215
7346
7002
3235
5201
7737
3557
7730
PAGE
L2213, 2213
DIML=6615
DISK, CLA IAC
DIML
SNA CLA
JMP GOTRF
TAD (70
6732
SNA CLA
JMP GOTRK8
CLA IAC
6744
SNA CLA
JMP GOTRE
STA
6512
CLA
6513
TAD (-17
SZA CLA
JMP I PRETR
TAD L2311 /SI
JMP I PCOMN
L2311, 2311
GOTRE, STA /RE
GOTRF, TAD L2206 /RF
JMP I PCOMN
L2206, 2206
GOTRK8, TAD L2213 /RK
JMP I PCOMN
PRETR, RETRY
TAPE, 6141 /LINC
17 /COMPL AC
2 /PDP
IAC
SNA CLA
JMP GOTLTA
TAD (70
6774
CLA
6772
NOP
TAD M70
SNA CLA
JMP GOTTC
STL CLA RAR
6774
CLA
6776
SMA CLA
JMP I PRETR
GOTTD, CLA IAC
GOTTC, TAD L2403 /TC
JMP I PCOMN
GOTLTA, TAD L1424 /LT
JMP I PCOMN
L1424, 1424
L2403, 2403
PCOMN, COMN
M70, -70
/ 0000
CRLF, 0
TAD L215
JMS PUT
TAD L212
JMS PUT
JMP I CRLF
L215, 215
L212, 212
PUT, 0
TLS
TSF
JMP .-1
CLA
JMP I PUT
GET, 0
KSF
JMP .-1
KRB
AND (177
TLS
TSF
JMP .-1
TAD (-003
SNA
JMP I (7605
TAD (003-177
SNA
JMP I (RETRY
TAD (177-015
SNA
ISZ GET
TAD (015
AND (77
JMP I GET
TESTRK, 0
TAD (70
6732
SNA CLA
JMP I TESTRK
RK05, TAD (RK8E
DCA I (RKADR
JMP I TESTRK
FIELD 0
*200
$