20_DISKCOP 20 DISKCOP
User Manual: Pdf 20_DISKCOP
Open the PDF directly: View PDF 
.
Page Count: 27
| Download | |
| Open PDF In Browser | View PDF |
Vl.0
ASSEMSLER/OS3
CENGTHOF
U8/21/74 2236
PRG
PAGE
OISKCOP
D:f403'
1
2
3
3 +0 0 1
···4 ....
5
6
7
8
·8
()
10
11
12
13
14
()
15
16
17
18
19
o
o
o
o
1
GGOOi
IoENT
oISKCOP
INCLUo E
COSY;
l'SYSt'lAC
'''_.,
S YS ~I A C
i1A C R 0
o:3
Vito1
o INTC
NA
IF 1'1£.....
'OEJUG'EQ 0,
.. ::;.o·
CRA
ASE
HLT
08/17/74
0453
EXIT'
Q
END
NACRO
"NAl"! E·······
IF
EXT
H1A
ASE
Hl:T
END
El{U
LEVELC
OE~~§ EQ 0,
(J
0.:> t.:lij
()
EXIT
'0
I NTPOL
I NIP 0 L
".lj."
1
FelIS T
·············· . ········PltE
FINK
F INKP
FIRE'"
FIREP1
FIX ......
FLOAT
F REEFILE
o
o
o
············FREPAN1C .. ····.. ··· . ····· ..·· .... ···
GETBUFF
GETGORE .
'GI'IEHJFF
GIVdUFFA
. G IvaUFFP.
o
o
o
o
Q
o
fJ
Q
0'
Q.,
o
o
IMPURE05
MSC
··MSCPTR· .. ···
H X8T
!~ XNE:
. . . . . . . . . . . . . . . ············.··.. 'C"·,,·,·,,·v·····..·. · · · ·...... · l1xotliJO
Mxbc CH
.. · .... ·.. ·•··....... ·.. ···.··.·c~"·.!l" , ..................... 1:1 XQCS.r AI.
~1 XQER R
MXCHSTA.T
I
o
()
.'"
.01313
1]1324
00545
fJ1353 .p
U0033 P
o
o
o
MX:(J:f~
~1 XQ\~C
~fXSl 1ST
PORE
a5"
RESERVE
...... REWRIIE ..
REWRITEX
o
RTN
o
o
o
o
U0540 IF
LENGTH OF OKSIATAB
o
o
A SSD!OLER/US j
(1'
~;
,
(
~
I
I
!
I
Vi.)I 09/21/74 2236
Pi\ GE
OISKCOP
2
""""t:xr'
f8
7S
80
81
82
C)
86'
0
87
F REEB LK
G EH1EM
12
EXT
,rOdOUND
IOBUSY
M ACHERR
EXT
EXT
90
()
HOUR
,·"····'11
,.,
.. EXT
88,
a9
1.1
EXT
FREE MEI·j
"'GET8t'K
EXT
EXT
EXT
84
85
L,
,·FLAGS .".,.,
EXT
EXT
.' 83
()
F7
FBPP
EXT
EXT
o
II 0
()
0
o
I
0
0
""0
0
o
0
o
0
o
0
o
FILE BLOCK
SiO
()
".
- ••• --'--~-"".- • • - - . - - -
0
(IN WORDS)
o
FCBOEF
•••_---
-
••
-~-~-.--
.~.*+.4*
~-
~.~4
q
1
..2
1
-¥>
.
--,._-
• • +¥ • • • • • • ¥+¥ • • • • ¥¥ • • • • w ••• + ••••••••••••••••••••••••••••••
o
0
SIZ~
r
"ACCOUNTING ' WC~O "'CHOSTeEO
"if.·'
LO.A.D POINT 8l0CK
CORE POINTER IF NCN."ZERO
IF 8IT23
1t CORE BLOCK HAS
8EEN WRITTEN INTO
·9t.O CK"N ti H 8 EROF'T HE CUR RE NT~'8 t-OI'· ... ·,",····· ..·_···..·············w......_.....• , ••.............................
=
CURRENT POSITION FOINTER
0"
..... 81
0':
52
83
·84'
55
86
8T
0"
I)
DODOS
0:'
3]
\,-
0
00006
88
.89
90
91
"9 2
93
ULKR
EQU
.. ,Jf:" ............................
EPP
eou
.'1....................... "'''•. .>J..,...... .......... ........ ..... ................
"l-
•
o
BIT22 SEZ AT LOAD POINT
.. 8IT21SEZENO·O F·OATA
81T20 SEZ FILE MARK JUST READ
•
o
•
o
BIT17 SEZ ABNORMAL/UNAVAILABLE
~
5
6
o
o
(RELo POSIT. kITHIN BLOCK CBP)
..
. 8IT2
:rSEZREA 0:;' ONLY ..........,.... .... " .
·········81:T18····SEZ,B·INAR;Y,REB(JR[)·PROflE·S
....
..... • .>f"1-...
o
BIT16 SEZ ADDRESS ERROR
8111'5'SE2 SAVED FILE'
NUMBER OF BLOCKS BEYOND
THLCURRElXTBLCCK
END POSITION POINTER
81122 SEZ THE FILE HAS CHANGED
•
..... '1-.
.>f
~
>I-
•
~
•
..
8IfZ1'" SE'Z "P6:SfT'IONER'REkOY'-"""'~""'"''''''
8IT20 SEZ OESTRUBTIVE READ
~
o
o
o
-- --- - - --'- - - -- -
_.- - -
_._._- -
~
'-'-
- - - - -- -'--'- -.- ----_._-----_._---- -
- - - - -.- -"--'- - -'- -- --- _.- -
-,--.-_.- -- --- - - - - - - - - - -
-
-
-
-
--
LIn
()
(;0
()
'10
()
,0
o
'
......."
20000
261
H)T
o
D5T·--·
StH
.1:31\3J .lS3H:JI4 ... .3H L .. 3B._.. lSfUi. .. SI.Hl
o
9
l.
***********~**********************************************************~***
"*:/I:
S3III~OI~d ~3~SN~~1 39~~OlS ss~w
*
*
*.
. **** it******·************·**** ********* **:ft:*** *-**f:i*·**-***-f1.:*:f<**.j,:**-Cj,**:****-**1..--** .
o
'tl3.:lSN\j~ltj .30_131\3J. AHJDI::Jd
l~OSlNI AS n3N~n13~ snl~lS
o
SfH'lflS 13NNljHO
S:U.5-5lC! 3;'1\·0·:]
NI SS3~OOtj NJII31d~JJ S118
9 ~3ddn NI ~38HnN 3:JIA3G lV81901
S.US 5T-?:LiMJ1NT- lNnO;:JQ¢lflM
S118 5 ~3dd1 NI lS3nD3~ OII
o
S1I8 21 ?:J3ddn NI INn08
SS3~08tJ
3~OJ
..
00I·~
£0000·······
I,D fJ 00
90000
OTO 00-
.:0
21000
.. -9.:17 .I.D !1
:'0
to
TPl
....1 \i.l STtJX N_
t
9
'0
r + ~l '-1 tJx ~~
::-; 0 [) 00
f;
51_1821... ?:J3M O] .. \JI_L"nD8 .... 31.~L\jH01-':H:I.
o
o
0 QD
o
~O~~3
lIB 9T
·?Ja8WAN······)!:)·O :}8-311:1 .....~ o··ss:zrClG-J\1· >i S;[O--
o
o
**************************************************************************
£~-
SNOIIHH.:i3Cl
.**
r\
,--'
hl
-k
.fo:
o
**************************************************************************
SlI8
0,:, . . .
V ClOd 3NI! 38N3M3dJ3C1 lSVl
NI J/I ION
o
>I:l o::t 8i 3~D 8-3::tI d
STHl ~o~ ~38~nN >18018 ~SIO
>13018 10~lNO:J
~9 dO ~d .3H 1 OlC:l31N I 0 d-19ll1
~38wnN 39tJd ~31~vnO/5V
O.:lA
o
£0000
jt. ..
~O.:i
3~V
9NIM0110~
8100
S~8018 NI Hl~N31 111101
NOIIISOd ON3 NIIU\l08+rl-OO S1I8
.,.
1H 3Hl NII11N08
91-~T
0000
x
x·
03;:j31·::j'l;/·
*.* * *.*** *. *. *.*.**.*.>".**..*.* . * * ****: *_**_** *.* . *. *.fr.*.*·it * 11; ***>"* .*. :,\' ** ** >'i:* _..
SlN3W313 lSI10d
**.
n03
ntJ3
Mn03····
ntl3
n03
mn
(:)03
n03··
n03
2
T
9+]T
* ..
._*
. Si-fTH
£-+;T
2+,1········
Prj:
-3~O8
OOl:.:ld
.. _.)180.10
l£TM
.. ··8(:)·\1
9£T
5£T
ljSd
XddO
·0 Q Of; O·
10000
2.2.0. 00_ ...
£f:'T
2£T
LOOOO
:176
£
39\1d
9£22
()
C)
o
o
o
"x
£0000
Z()Or)O
TOOOO
:17£1
~lSNO
£x
TOOOD
O£ 1
621
1~1
S118
£000[1
·20000
1£1
2X
1X
t? 2T
L6
90··
SF)
*•
.
-It •
."
311~
d08>1S1O
.. ="~~,-." .• ~.,-.
~,.,~""
nOODO
7_'7't
*
3Hl
**************************************************************************
--1:1'4 2 *~J01::ld··
..
nB.3..
01.1
6£1
9£T
~
1..1118
£X
2X
1X
f~.,
A~Ola3~10
o
20000
......................... :>!JO.18.3C!O::L 3.11.:L.
SS3H9J~d
...
x
x
03Idn:J80
NI 0 II
SIHttlS
SS3~90:t!d
6~3d::W3HJ NT
** *.*_.*.*.*.*.*.*.*.*.*.*:fr.*. *. *.*.*.
*
(l'
~
o
:"'
82__2._
0"
....
:7T811:}I··\t f\ I1N n·,q·tf·t4·~·.o N8.tf ...
7
c
n03
l
£
()
*
*
V,
*
ID::
. -.. ",~
~L/T2i60
G"TA
ESO/~31Gi~3SS\j
o
()
(v
!,D
.. •. '''''''~" ..,·'''"~"'' ...,'q"¥-'''''''''''_''"''...'"'"_~~O,..''''''"f_OO_~..,..."".",~~.y""""""".""'D.'>.""""~"...JMC]'!tJ'_"-"""U"-M",,,,",'~(~.'/Ij _ _'~Jl!I;M"""-;',_FfflRWilf!t.jH9l1f~'>1r':""i'-f",'iAll;.>t:
0
Duoao
01000000
00;)03
25001HiO[]
FILE
0
GO
STAQ
LOAQ
OCOOU010
..... 010 GOU 0 [] .........................................................
00007
00010
.
••.•• "f ... Jf'
45001345 P
250000D5 P
·tJ;jp
0
F IRE-i
'""'''1'1 XS HAR E'
0
00014
01015U 0016
o
00023
"··(tOtJucro't2·~
0100000D
o
01000036 P
...
"
.. , ...
,
..
00027
00030
25QQ0024 P
01000U36 P
u0 0 31
! .•
'0
i
i
I
0"
1"][2.
0/
o
G0 Q2 it
Q 0 0 IJ 0 0 0 3
Gd025
01000000
'DO 026"if5'U G13 t f S'P'"
.........
0
FIREP
U0021 45001345 P
J 0022"'2 SilO 0017 . P
o
0
00012
"UDI)'i?'"
[J0020
d'
I-
0
(JOOT3
o
0
~, "
0
·IHPUR
MXAQ
·UJP··
' 0 00lt'OiOOOQ'36'P"
0
-v·>;<.·.·~.·Jf->(.'f.·¥·:y.)i • • • >f¥
~U(SHARE.
00004 .....J1LOOO.O
o00005
OJ 06
¥¥-", • • Jif:¥>J.'¥';IJ.¥ >J.>J. ... -i;. ",''!;.:Jt.:>;. :;[. • "1' ¥¥ 1I;f'"
F IlEPR
IMPURE
MXAQ"
FILE-l
000000D2
00001
""'"(JUl)O'2'H45 OU:t34S-
0
:,f.'Jf.JI;5,f::;:!(;>J..:Jt.~.J'f ~ • • J{;.~'i;~
•
•
."
•J;I......................
•
IT USES THE FOLLOWING ROU1INES
GETNEM
CONVERT
MXADOGEN DKHNDLR
~
0
0;
PRIORITY OF THE TRANSFER
IMMEDIATE RETURN ADDRESS
'ASSUMEOTO"HAve"'UNIl NUM8E'f;.•.>;..>I-.. >;.N-.. >;.. >1.-. ~<¥-.-'l->J,.¥-.>;.,>;. '>;',"'>1->;' .>;. 'I->l-N- JJ. >;. .>;,..:>;...•'J....Ji,.-¥O ...... ," ..N-' .... N-.... '>;. >;. >;.>;.. 'f.Jf. 'f-'/..-¥O.>;'.>;', >;..>;.-'/..>;. ..>1.-'/....>1 Jf-..>I~.JI.-'I.>;.JJ..J;I. Jf JI..Jf-Jl.-1f. ;If..JI.-;lf.'I-'
~
KLUDGE TO COUNT DISK TRANSFERS
JI.
o
o
u
-',
C-..L,'
("'1'
"-i:-,.. ) f j
tJ 0 D4 2 ... 530 2 U0 28
Ul...)" ....
rM,IJL
v,-
276
277
278
00043 15410000
00044 ··04104000 ..
00045
15470000
ua046
53420020
;,
279
280
282
aOU4 7
47 3U 13 () 6 P
00053
00052
14300003
U0777777 X
00055
13017760
00J50
77550000
U0051·42005714 .p ········01·3·60·U
000 54531'lJ 0000
.
U0050
21001366 P
U 00 6 1 . ·4530 0 a..[) 4- ..
00062
20001357 P
4U3iJ0007
00064"'25'001345 P
U0065 45300001
00066 1300003U
001]63
~0067 '54~rr1352p
00070
..................... ·00071
00072
5320000Q
176tlQ002·
03100160 P
00 tl73" 14"20Lr163 . P
00074 47201356 P
U0075 2030U002
00076 ... T207 7755'
00077 53600000
............. .001 OOIJiG 00 234.P
o
()
GET AN EIGHT WORD BLOCK OF
FREE STORAGE
WORD' COUNT"YO"'A
SAVE IN Q
I/.O REQUEST .r C.A.
MERGE TOGETHER
LOAD THE COMPLETION ADDRESS
SAVE THE GCOO STUFF 11\ THE8LCCK·
SAVE THE PRIORITY LEVEL IN THE
BLOCK
.'. uuGETT HE FI LE'EL COK NU MBERANO"THE"
CORE ADDRESS AND SAVE THEM
·····289
293
294··
295
296
"297
298
gk8y ~N~~~·S~rl~tOQ.(Q
,~gINlH~of f~~
299
·······'300
301
302
383
304
·~HECK·-FORA
ENTERT HER Eltf R N 'A 0 DR ESS'" .......
GEITHf VNIJ.
............ ,·
.... .
I\U~6ER
30 9
"''''J'i"''3
31. 4
1'''''>/I'''''' ,
(-,~
US~RD~S~PACK
u . . . . . . ·......,
.310·
311
312
.
,-,v
JUMP IF A SYSTEM PACK
JUMP IF A SYSTEM PACK
GET THE FILE BLOCK NUMBER
JUMFIF NCTTHESAMEONE' .................. ..
GET THE STATUS WORO
LOA
315
ISE
SKIP
IF A READ
REQUEST .
JLJMPTFNCr
...........................
':J1:6 '
UJP
31 7
JUMP IF THIS IS A READ AND rap
AZJtLT
LPA
IS.. THE BLOCK CCCUP! EO
·318
AZJ,EQ
31 ~
JUMP IF NOT
320
LOA
GET THE POINTER TO THE CONTROL
· . ·.... ···.....T·AT··
•••·. . ····. ·· .. •.. ·3 ·2··:1;:·····.. •···
BLOO
0113
146UUQ(lO
322
ENA
TELL WHO EVER IT IS THAT THINKS
3,~ :3
00114 4020U002
STA
HE HAS
THIS
HE.
..
",.,...
DOES
Ncr"
.. , ......SLOCK
,..... ...... THAT
........... ,.......
32"tf """00115
21300002
325
MXSR02
LD
MXQQ,X3
GET THE CORE ADDRESS
00 l L 6 . Q O ? D l 0 3 t ) . P 3 2&· .
RT.CO.NVE RT..................... .
Gr:'T THE.PCINTER TO THE FCLIST ..... ,.
00117 14477777
327
EN ,5
777778
ELEMENT
.
00120 40200003
32e
ST
FC8,X2
SET
THE
BLOCK
NUMBER
TO -0
0·01·2. 1· .. '" 2·0 2 Cl·Q . £j· 0 2. . ····.... · .............................................,," ..,.. ,.. ··,:::H;;g· ..................................... ' .. ·..............,,·I::EJA
. F'GA''j'kc''''''''
'MOVE)\ L·1: .. r NFORMATItJNA'8 Olff··' . . . . '..........................
U0122
4410D003
330
SWA
FCA+l,Xl
THIS SLOCK TO THE ELEMENT
00123
20100001
331
LOA
FCS+l Xl
ADO.THE
lOP BIT TFG8
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
···ON··
THEREPT.AGEMEN
00124 "35077777 X
332'
....... ···ssA
IOp·L
00125 40100001
333
STA
FCS+l,X1
REMOVE IO ReITONT HE •••
... .00126.202Il0 00 U
334.L
O
'AA···
F7,··C7S7't:7X·i:::B~·
A
N
00127 17677777
3 3 5 . " f
•• oORIGINAL FILE CORE BLOCK
00130
40200000
335
Sf A
FCS,X2
G01:31" '11·7 tJ 0 0 0 0 6 OuO GO'····:33t..
eeHA:',S' ""'''''300'00 n··p··" ........· . ·. ··· . . ,', .......... ·. . ·. ·,..·.. · .... ·. ···· .. , ..·........ , ....... " . . .
00132 37100003
338
LPA
.
FGA+l, 1
GET THE 1/4 PAGE NUMBER
gRl~~··· ·,~·~·~~·H5E~'
~~6'
§~l
···k~QQ·,X3·
SAVE THE 18 .BITCQgE.AQDRE~:5,
00135 14100211 P
341
MXNEX
ENI
MXXIT,X1
SET THE RETURN
...... "'" .........
. .... 00 L36E.
, 3 4 2 . , J1XNE
..... EQU,.... ................,......Jf:....,......,.,....... .......
...
,. . . . . . .,' ,.
00136 14677777 X
343
ENA
MS8IT
TELL INTSORT THAT MASS STORAGE
00137 35077777 X
344
SSA
FLAGS
HAS FINISHED
. U·O·.!: 4·0 ..... ,. . . .It:. O· tJ Q. O..j:·,j7 ··X"' ..·..•...·. ··,
· . ·..3. 4·5 ...... ·.. ·,·.. "....· ................ . . . .
. . . . . . ·ST·A..·......·.. ·..·· . . ,............ F··L·AS· S· ..........................." ........... ,
..........,.......................
J0141 53300GOO
346
TIA
X3
MXQ BLOCK ADDRESS TO A
LU142 '3'507
40300000
347
STA
0,X3
'U'U143
7777' "X' ........
·..·· ....·348.. ........... .. ,....... .. .....5'5' A······ ··.... ·· .... ·BTTf'T ....····
LTNKTHE'SLOCKINTO 'THE ........ ",
00144
40401347 P
34~
STA,I
MSGPTR
COMFLETION QUEUE
00101
2010000lJ
;J 0102'u350 0:1: 5SP
00103 201.00001
00104
04277777 X
a OTOS 01000T46 P
00106 0330D160 P
~Oi07
37n72777x
00110
03000115 P
00111
20100003
0112'''' 530'Qfjuuu
o
o
o
(J)
284 .
285
286
287
288
290
291
. '292
53200000
0'01] 57 "130 UO oi7
00056
0;
p
~lXS
ROl
LQA
. . ·····,AQd'NE·
..
o
o
o
o
o
o
........".u .....
o
I,'
0
1
....
0":
7
0.
.;
· ·. · · · .
o
o
o
o
M
.Q0145011QOOOIL
.... 35.0
351
352
· · .. 60·[)OO,'u..... ... 35·3
..... UJ/?...... .O,X1
... ,EXIT
o
o
o
o
ASSENSLER/OS3
CI-
V1.0
09/21/74 2236
.... '00'141"37"1000'0'3
00150
12000022
6
DISKCOP
.... ·····356 ...........................................
I)
357
00153 14477777
358
"00154"'40 10000 i f · · · · 3 SS
00155
20100001
360
()
00156 53500000
361
"00T5T" 0'2 50 [) fa i . P
362
00160
21001345 P
363
· .. ·································0·G.161 ··.14·2·.0 0 · · t 6 · 3 · · · · P · 3 6 4
()
00162
01000214 P
365
.......
t-l XS R 03
366
b1bs··P······..····
3'67"· ·········.. ~1·XSRO·8·· ·"EQU"··· ......... ~."
533 0000
368
rIA
X3
54101365 P
35S
LOI
TEMP8 Xl
····37'0·
....· ·
'SGA'M-:l(WAItCf,Xi
3617777TX
04600000
371
ASE
0
0·0167 . ,01000211 p . . . . . ,. . . . . . . . . . . . . . .
3 l 2 U J P · M X X I T ..·
00170
53100000
373
TIA
Xl
00171 14700477
374
ENQ
4778
······3't5
.... S HAQ'
1'5'
"·ou 172" "1300001'7
00173 14177777 X
376
ENI
DKSTATBl Xi
Q6177777 X
.... · . -u00174
0175--' .007'17777 .. X
J~I
···~~}·~~~t~kAB:.l
0017b 14777000
ENQ
770008
~7S
........... ,...J. 0 0171 ··2710-01 74-· x· .
...... ,j tiO············,············.. ····················
·LOL
. · .. ·0 KSTATAB ,x 1··
00200 14177777 X
381
EN!
NUMOKCON,X1
00201
05177777 X
382
MEQ
DKCONTAB,1
·······RTj····"········SySERR···
o 0202"" (:) 07 U ot75X-00203 20100201 X
LOA
DKGONTA8,Xi
U02U4 03300211 P
.. ~~~d~J
.. ~{~JJ
J u205 '1213 77 760'·--' ....... .
00206 53500000
TAl
Xl
....... 0020.7 ··i43D0211··fL ....................... _......................·····. ··..···. · · · · · · · ..·'v V·Q .....................
.." ..... ·....ENI····.:'f:·+2.,X3 .....
OU210 01077777 X
UJP
DKINT
00163
00164
"00165
00166
()
0
0
CURRENTLY WCRKI~G WITH
.....................
ITS THE SAME ONE
,.. ............
..
0
01,.
I
0
. ,....... ....... ....... . ......
"'M x-xI·r . ····· . . .
·'·(J·"iJ·Z·:!::t "p""'" ......... ,........-...........................,...... ,··....·..
00211 22005714 P
00212 7754QQOO
0'0 213iJI4J 1360
-"
..- i"Q)
,
GET THE POINTER TO THE NEXT ELEME
PUT IT INTO Xl
"ANDLtCPTI((DC~E
LOAD THE FILE BLOCK NUMBER
ENTE-RTHERETURN
GO LINK THE BLOCK INTO THE
PROPER QUEUE
CURRENT BLOCK ADDRESS TO (Al
LOAD THE LOGICIAL DEVICE NUMBER
IS THIS BLOCK ON THE FRONIOF ...... .
ITtS QUEUE
JU·MP·IF NCT
DEVICE NUMBER TO A
WHICH CONTROLLER IS THE DEVICE
. USING
~·Q'1·
01363 0
()
()
()
...
..
,-
0
,
...... .
0
(Ji
8[(lC"R'Ir1 TD; '!'iO"""T HE'ONEWEA Rt:
355
D151363U0002
00152
0300U155 P
a)
PAGE
............. 354
J
I (
FOR CHAN~EL AND EQUIPMENT
CHANNEL ANOEQUIPME·N,T
NUMBER OF OISK CONTROLLERS
MASK
...... LOAD
THE CONTROLLER BUSY
JUMP IF IT IS
"FAKE ·AN·EQUIPt"'ENT 'INTERRUPT
IS
I
0
0
0
···0·niH··.. ··· ...... ·....·..· .........·,··,· .. .,.
C IRT ENP
RESTORE THE CHANNEL
REGISrE
·..··.. ·····...." ..·······EXIT······
INDEX
0
C)
()
0
o
0
a
0
0
o
0
0\ '.
0
0
0
0
(J
-
- -~---
..
..
----------..,.---.--.-.,-.-.-.-,-"----~-"---,-.--~--.~----- ----------.--,--.----.---.,-~-,--
-_._._---,-------_.-_.- -.--.--- --.-.- - - _._,-
Vi.U 09/21/74 2236
ASSEM~LER/OS3
PAGE
7
OISKCOP
*~¥~~~~~¥~~~¥¥
397
398 .
399
400
. MXADDGEN ...
TEMPS
TEMP-g·
ZOOOi35G P
MXSCKi
t1XSCK2
()
o
MASS STORAGE UNIT THE TRANSFER IS FOR
AODRE..:iS
. RETURN
SAVE
MXSLIST
Xi
'0
i.O
1,Xl
2,Xl
07177777 v
01000315 ~
00233
13000030
UIlZ.;:,t4 P
4130D001
b
LOAD THE NEW BLOCK NUMBER
CHECK
FOR NEXT
MULTIPLE
SU8STITUTIO~S
LOAD THE
F CTNH:R
.... . . ..... . .
JUMP F LIST IS NOT EMPTY
XSCK2
....... FILE
13000U30
00231
00232
;
···";.JUMP 'IP'N e So 8 STIT'UTI'ON"
XSGK1...
.................. M
0,)(1
X
'r
·JUMP· IF NosueST ITUTION
MXSCK4
'M'XS CK·S'·'.. ········
.... u0226 .. p
00234
00235
..••
... ;c)
:iI .!,J.SE.;:;. THE ..fQLLOJH N.G.. J.E MPS
00222 21100002
00223
01000215 P
.... 00224 .... 201DtlOIJO
00225
03100217 P
•••.• _"
'I-
OISK BLOCK NUMEER
LOO
MXQ P GIN TER,X3 ....
ENI
RETURN,X2
fvI XAOOGEN
······UJP
CLO BBERS Xi, X2, A, AND Q
T EMP9, X2 ....
D0220 20100001
........ IJ0221 ····035t10·2·ci.t··P'
~"·,,e_
PLACE
>i-
00216 .. 0;5 0 l) 0226 P
00217 53500000
""
PROPER
LOr
0021400214 "47201366
14577777
11- .
'I-
-r Nt/IX yJ A I T U · · ·
.".
408
"409
410
411
4·12·····
413
414
415
00227
...
fHIS ROUTINE WILL LINK A OISK TRANSFER INTO THE
-'I-
4(J4
405
406
407
o0'2301!f 27777("
••~ •• V4¥ •• ¥¥4
..
403
00226
~.~¥
>I-
.. .. .... .....
401
402
00215
•• ~~.~¥~ •• ¥~ • • ~~.~.44 •• ~.~¥ ••• ¥ •• ~ ••• ¥ •••••
..
M
••• "
... \\1 XAODOL
20301J005
00·236·:t2·QOflOG6
00237 17477700
00240 53240
0024"1"1 2 (rD 0"''''''''' ., .............
o
o
LGCK····NU·jV·BER····TS· ··N··CH········IN····Q
LOCK AT ALL THE 8ITS
SEARCH THE MASS STORAGE TABLES
JUMP IF ILLEGAL ADDRESS
0001 X "JUM P IF I LL EGA. LA.DORES·S
DISK ADDRESS TO Q
SAVE THE DISK ADDRESS
PUT
THE UNIT
Mxa"8LOCK-......... NUMBER INTO ..THE
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .,. . ,. . . .
. . . . •• • • • • • ,··.
()
o
,-"
PUT THEW
00242 40
002..43 ..... 20
00244 03
w ••.•.•.••• ·••·.·•.
o
0 . tnrCX'TCGETHER
······0·024-5···
00246
............................................0., 0 24 7..........-: "'•.
00250
.. 00251
00252
'0
SAVE THE DEVICE NUMBER
GET THE POINT ERTOTHE.fIRSTELEM .....
47201365 P
.. 20200165 .. X ..............................................................
WE HAVE NOT FOUND A MATCH
lit 200 Ii 00
002:::;3 P
·········002~3
00254
·17577'771········
JUMP IF AT THE END OF THE QUEUE
POINTER TO Xi
····GETTHE 'ADDRESSONTHTS'ELEMENT
JUMP IF DIFFERENT .
03000254 P
00255
535000UO
00256 .. '20nr0001'
00257
035Q0262 P
o
.... PUT.THE P.OINTERINTOX2 ..........................................
.0.026.0. 53 iOJ}(UJO ..
00261
53600000
00262
2010DOOO
8 0 263~-·nl00·0253P
GET
....... AN H ...· t .. ·HI·'·
55 OF
THE
o
o
NEXT BLOCK
o
o
o
o
o
Of
-- -
-
-
-
-
-
--
- - - - - --- -
-~-
- - - - - - -_._- - - - - - - - - - - - - -
--- - ---.- - - -- ---- - --- -,- -- - -----.-- -.--.- - - --'-- -,--- - 4
-- ---------_._----.'- --
-.-.~
--._'-'--- - -
-- - -
-- - ---,- -,-,'-,-,-,----,--- -----
ASSEMBLER/OS3
G:J
00273
CD
00275
00276
. '00277
,
,
!
~.
~
I
o00303
202JOOGG
00305
53300000
44200000
(j
03 0 7
0
UJP
H5/- .•••.:;. J~':;, >;-~J,< >/-,..,..,,<:;. 'I- >;-:;;. J;:>;-T :;'Jt..lJ.'J. iJ.'J. .>,Of"·'" Jf:;':;' Jf:t;. ':';-.J}.>;- JJ. >;-"<'1- :t;. Jf >;:>;- Jf:} :v "If.'J. 'I- :v 'f >0' 'I- >J. >;- :;. :;oJ;. JI."JI. 'f Jf >J. V. Jf ¥V.
~<
'J.
>f
· - r l X aT
518
51 9
520'"
521
522
523
(J
2~g
"f
··;:)..)0
...... ¥:
531.
532
>I.If.
5313
534
GETM EM' . ,.... 'M XAO OGEN' GE T B LK
>I- • • • • • Jf.¥~ • • • • • • • • JI. • • • • • • • JI. • • • • • • • • • • >J. • • • • • • • • ~.>J..~ • • • >J. • • • • • • • • • • • • • • • JI. • • •
""~
OQ326 P
00331
35300004
C10332
TIO·333
00334
o
o
.--U033~i
00336
00337
01)340
00341
U0342
40300004
120000 Of; .
03377777 X
5330J)000
• >-,-,
,
. ",.
()
··CHECK······FCR . NOS !J8STUTICNS
...................-.. . .
5360DODO
14-300002
OH WELL
MXQ~POINTERTClX2
-
o
T 4 WORDS FOR A MXSLIST ELEMENT
8LOCK NUMBER
8lUCKINTO"THEMXSCIST"
RIGI~AL
alOCK
.. '00343
D0344
C)
•
LOAD THE REQUEST HORD
RESTORE THE ORIGINAL REQUEST
"(}0330~ ~120iJ"OOO~J
o
o
......,.. ¥-
2030000 1+
37077777 X
()
IT USES THE FOLLOWING ROUTINES
,-
00326
00327
if'
IT USES THE FOLLOWING TE~PS
TEMPi
NEW 8LOCK NUMBER
TEHP2
ORIGINAL BLOCK NUMBER
TEt1P5
MASS" STbRAGEUNITTHEORItINAL'SlCCK WAsoN
524
525
526
527
. 528
o
o
o
(])
'f
THIS ROUTINE IS ENTERED FROM DKHNOLR AFTER A FATAL DISK
. . ERROR"IFTHE'REQUEST 'WAS A READ OR WRrrENS'THEHCAtLER'IS
INFORMED THAT THE REQUEST WAS BAD OTHER~ISE A SU8STUTICN IS
MADE FOR THE BAD . ADDRESS .. IfTHE WQRO COUNT OF .. THE TRANSFER
.. IS ONE FILE BLOCK A FILE BLOCKISUSECFOR THE suaSTUTION .
OfHERWISE A PAGE IS ALWAYS USED
······"517·
Q
."
00345
U0346
LOAD THE UNIT
00:147
o
l\U !'leER
NUN
R
'-'~Of}350
o
o
00351
00352
.1
-"00'"35-;)"'
II (} 35 4
.. ~. Q 0355
I:31.,O.CK
OGKS/PAGE
DO
00356
JO 357
O~03ErO"
0,
Q 0361
CLEAR
0_"
POINT TO THE PReFER ELEMENT
.••
0)
MH~>'
PUT
-1HE~FeI'
N TER
r-~rf'fl""\("?"~~"""'"
.............................. ~, ....~................~..............,~............. ,,. .. ,...........~. . .,..~.............. ~, .........."'-............... ~ ............... ,.....,
KT' "C[CCX"AnORE"SS
IS THIS THE SAME BLOCK
,. . . . . . . . . . . ,.~'" ....... LO' A·f) .... ··f-HE·· .. 0 RIG 1 N'A 1:, .... 8l:0frK· . ·~N lJH 8'ER .....................,........... ",.......... ,~........,.....
JUMP IF NOT
REM0VE . .THIS BLOCK
FROM THIS
QUEUE
... -. ..."....
. ......
SET THE PRIORITY WORD
LOAD THE NEW EL K NUMBER
SAVE
THEHE'"QUEUE
SITION
.'. EN"TE R'"T
R£ Tl;;R f\i ................................
GO lINK THE ala
INT a T HE NEW
~....-
o
q
............. "
......
•
·.~
mm>.'............... ,,,.
......
o
o
~
M."~ ...... , .........
q
~
............. .......
~
.................. ,.............
~.,,
.............................
~
o
o
o
o
o
o
...... "
.....
~
. . . . ., -. . .,
. . . . . . . . . . . . . .-
. . . . . . . . . . . . . . . . . . .,
.......
..
o
o
ASSEHRLER./OS3
V1.0 D9/21/74 2236
PAGE
DISKCOP
1U
"4 4¥>j.4"~"iflJ." ~"if.¥:Ji.
593
594
595
596
597
598
599
600
601
o
o
o
o
6U2
"I-">;.":f: >;,"'f. .~"+"¥-"¥
¥>r>;.¥""¥ 'I-"'J:¥"'I-"ij.
>[.
"¥>;.
'1-".1;. .>f."if.lf""if. JI."if."'I-"y."JJ.lJ.">[::;'":;'1J."lf"':;' '111-'1-"4 'I- ;;'>[:1J. li;.1J.">J. J.1J.iJ:>[:
,..""iJ.">;. '1:;v->;."
1J.
•
".
NASSSTORAGE"GOMPLETION ROUTINE"
".
THIS ROUTINE IS ENTERED IF THE MSBIT IS SET
1J.
"lJ.
•
IN FLAGS
>J.
' 1 - ' " " " " " " " " " " "
THIS WILL RETURN 10 A ROUTINE AFTER A REQUESTED DISK
Tl~ANSFE"R IS FINISHED
THE RETURN AODRESS IS 11\ X3 ANDJHE
Q REGESTER" RASTHEADDRESSOF THE FILE CORE BLOCK THAT WAS
USED
>;.
>;.
~
¥
""J}:"
"'""""""
"'""""'"""
"'"
,,, • • • ,,.>;..If • • • • ,,..,,,,,.,,.>;.1J..,,..,,.1J.,,.>J.>J. • • • • ,,. • • ,,. • • • • • • • • • 'I-.lJ. • • • 1J.44
""
'i'
4">I1J.
""""
00411
53500000
00413
03277777 X
00412 """ 12000 lHl 0"
(J0414
77730DO[l
004:t 5 " 21illfj'OQa"
00416
27000143 X
00417
031D0421 P
U0421
41001347 P
00420" "' f470 1347 P
o042"2531tlDllOG,
o
00423
U0424
00425"
00426
o
o
00427
OD430
143U0003
001777T? X
~lSC
EQU
VFD
LOA
TAl
-SHA
AZJ,GE
VFO
··toa"
LOL
AZ.J.,.N.E ...
ENQ
SlQ
··TIA ..
ENI
RT J
tOO"
08
b
LN .t
UJ~"';I;,I
•A12/EINT
HSCPTR .........
Xl.
'0'""""
R.£TURN
A12/DINT
(I,Xl
8IT17
""+2
t"1SCFlT
t-1 sePT
Xi
3 X3
FREEMEI1
. . . . . . ,.,' MXQtlr X1'"
MXQISTAT,X1
M~'"'
x-·
~l~gl;b~;"XT
"",
• • • • • • • 1J. • • • • • • • • • • • • •
60Lj
00407 P
00407 777401100
J041"0""2 uO rf13 47P"
'i'"""'
GET THE QUEOEPCINTER ...
PUT IT INTO Xi
EXIT IF THE QlEUE IS EMPTY
o
o
o
LO AD THE FORWARD'PO INTER
CHECK THE INDIRECT8IT
JUMP .IF" NOT .E~PJY
SET "THE 'POINTER "PROPEHLYIF EMPTY
FREE THE TRANSFER BLOCK
0
1.•
"11
'0
o
()
o
o
o
o
o
o
o
o
d
o
o
()
~j
I)
o
o
o
o
o
o
ASSEH8LER/OS3
Vi.D 09/21/74 22J6
PAGE
11
DISKCOP
'f. ~< ,"f. ..ci[: ~<:;. ,<". ';'.If
627
628
629
637
>t'J.
6
()
""639
640
641
642 ,,""
o
643
644
645
646
"
551
652
o
()
o
o
o
. . ...,. ....
".~.""
TOIP?
¥
()
•
"."""""",, ....... ,,""
..,. •• .If ••••••••• .If.:v-.¥¥¥'f:v-•••••• :v-:v- ••••• :v- •••• ¥4 • • • • • 'f4 • • • • • :v-.:v-:v-.:v-.:v-.>;:v- •••••••• :v-
o
SAVE-TRE-INTERRUP~~DDR£SS~
TEI"lPT"
TEI'IP4,X3
SAVE INDEX 3
SAVE "INDEX 1
INITIAL AGE VALUE
NBIT23
FClIST,X2'"''
o
"'GET-STARTOFFC LIST·
F C'V D4
()
JUMP IF 1/0 11\ PROGRESS
. GET RESERVED 8IT
004<+4
" " ,,0 OJf45
00446
JUMP IF H.ESERVED
GET ALTERED AND OCCUPIED BITS
" " "". " "",.".""."". PUTuA""INT 0 "'''Xi-'
LEAVE THE IMPORTANT BITS
GET i:3LeCK NUM8ER
SKIP"IF OCCUPIED
JUMP IF A FRE 2LCCK FOUND
-EEl TH~.LAST EfERENCE TIME
BIAS THE TIME WITH ALTERED AND •••
••• CCCUPIEO. JUMP IF NOT OLDER
'" GE1"'''T hE UtoE ST·A G£·r N'lOQ
"""""""""""""._ .
SAVE POINTER TO OLDER Fe BLOCK
~E T A [) OR:E,,$ ~ PFNE )( T F C_.1.,.. 1.5 IE: L",,!
SKIP IF LAST cLEMENT
a 0 Lt 4 7
00451
0 452
00"453"
00 Lt5 4
"i.l"O"4.55,,
00456
00457
I]
24"
O,X
FCV
GET THE TIME RIGHT NOW
53020022
00467"""3t107"7777 X
00470
15470137
00473
47201354 P
o
o
C)
"""",,,,,u",,,,,,,,",,,,,,,,,,,,,,,, ••• ,,,,,,,,,,,,,,,,,,,,,,, ""."" ••""""".:"""""""",,""""""''' •• '''''''''''''''''' ,,'"'''' "."""""""."-",, ••
L OWVALFC, X2
F
OS, X2 "
xz························
03700473 P
u,..·
"-,,,.,,,,!, \
. GET STATUS
00471
o
. .. _- ...... _--
D044:r
0460
(,-
..,.
CALLERS Xi
TEHP7,Xl
00461
00462
" 0 0 463
00464
00465
o
()
".
... if···
._.
4Z1l.l1364P
00466
. If...
IT USES THE FOLLOWING TEMPS
TEI"IP3
INTERRUPT RETURN ADDRESS
TEMP4
CALLERS X3
"rf1MEoIATE ."RE TURN " ADDRESS
TEMPS
0045 On
o
o
,,;()
.....
110437
010
•
:v-
IF NO BLOCKS ARE AVAILABLE THE CALL IS QUEUEO IN CHAITQ
;';;1 "CNTHE "H1MEOIATF"RE TURNAFTERE LOC KS8ECOME
AVAILABLE RTN WILL CALL THE ROUTINE BACK
T E!1P 5
00442
JJ.
M~OA=
44001363 P
77630000
00440
21077777 X
{} 0441:542
>r
>f
00431
00432
0"04"35 ""410IJ1"361 P"
G0436
473U1362 P
>t- 'f- ¥- 'f->f :v- 'f.lf "I-lI- lI- >t- '': >t- "¥- >j. 'i ¥- >j. >,qJ. if,." ¥" if >r >i 'f .If:f. '. Jj.ij.:v- 'f :,. ¥-. 'f >t- 41- ¥ >t- JI.:V-
GET8UFF
rHI~ ROUTINE IS CALLED Te GET A FILE CORE dleCK
DINT
INTERRUPT RETURN
ENQ
rMMtnlATE~tTuR~
ENA
GETaUFF
UJP
...
INDEXES 1 AND 3 ARE SAVED
THE ROUTINE RETURNS THE 1/4 PAGE NUMEER OF A FILE CORE BLOCK
. . . . ,,. ······TN······THE"·A"·REGISTER"""······
Ho4?
548
649
"" """ """650
0"
'f.>;''',:- :;.":f..If >;. :;.>; >;,j" if.
•
.
'J.
:v-
638
I
.. J(,
630
""""""""""""""""",, 631
632
633
634
635
6~3
()
¥¥ J;. 'f
'J.
o
o
"""""""""""""""""""'"'''''''''''''''''''''''''''''''''''~''''''''''''''''_''''' """W,,
ADJUST TIME FOR 4 SEC. AGO
JUKe If NOT 4 SEC. OLD
SAVE POINTER TO AVAILABLE ELEMENT
.,-_
SKIP IF NC AVftIlA8lE FC BLOCK
JUMP IF A USEABLE BLOCK FOUND
""SH OUL D'WE""··Ql:JEUE'''TH:rs''''eAl:''L'~·''''"·#''''
JUMP IF NOT
]TI~72-542Gr3S4-p
....
0''';
o
o
"GEJ .4..... W(JKQ;:;" . F c: R"A ... C.. hA IIQi::1"E:~IE:NI
0::;
..... " ... "
SET THE POINTER HORD
...... SE1 THEINDIREC T8IT """"""",," ""."",,.
PUT THE ELEMENT INTO THE QUEUE
GET THE INTERRUPT ACDRESS
......." . . ·ANO·"··THE"CAl:I.:E·RtS"""..INDE)( ..3""··.. ,,·,, ..·,,·
SAY THE CALL WAS QUEUED
o
-- - -.-.- -_.. - - ---.- - - -.-- ---.-.-- - - - - - -,-,-_.- - ---- - - - --- ~,- - -.- - -~-.~ -_. -- - -- - - - -,------ - --- -- -- - - - - -
-......-.-
-,'-
o
.. ",,
- ~-,,- --,- ----.-- -.-,- --_.-.--- -"-'-.- -,-,-,- -- -.-- _._,-- -
o
o
_.- - -"- ----_._._._----,-_._._--,......:
(1",
\.j)
ASSEM8LER/OS3
Vl.0 09;21/74
~Z3G
PAGE
12
OISKCOP
. "O'0'~IO""'O'r000521+ 'F'"
00511 P
()
o
o
o
GET THESTATUSIWRD ..
IS THE 8LOCK CCCUPIED
JUMP IF IT IS
CLOBBER ANY STATUS BITS
S.J.O.RE ....lHE.STAIUS. ... .8A.CK .. AND ...........................................................
SAY THAT 1/0 IS HAPPENING
GET THE 1/4 PAGE NUMBER
U0511···212U 0000··············· ................
00512
27000107 X
00513 031U0527 P
'0051'4"200 U03&2 X'
00515 17777777
00516 4120QOOD
'0'0517 :)420tlOUO
00520 21200002
. ····00521····130 00G·11·
00522 14577777
00S23
41200D03
. 00524" '5 tr3lt136Z"'P'
00525
54101364 P
. . . . . . . . . . ..........OO.~. 2.6....... QJIt a.A 3 6..3P................................................
00527 P
·.. 0·0-5272020·00 02·
o
GTCi.O
'f-
Lt·,,· ..· .. ·· .. ····
00530
53500000
00531
27077777
00532·' 03100535" D··········
00533/+0100002
:J 0 S3 4"
FCA . , X 2·· ......
CNaLK
ALI
GTC1.t ............................. .
CORE ,CN8LK
....... GJG.Q .~............................. .
OIOJjO~t!t.J)
GTC11
o
o
o
LOAa.
·RTJ .
UJP
COREP 1
.REWRlf
GTCOS
1
.....
GETTHEGGNTRCLB LOCK ADDRESS . · ..
PUT IT INTO Xi
HAS THE BLOCK BEEN ALTERED ................................... " .......................................... ..
STEAL THE BLOCK IF IT HAS NOT
o
JIj MP;-;>J.
740
741
742
7'+3
'f>J.J,0f:;' 'f. y.:;.>,o;:>,' 'J."Jj."JI.>J. )J.JI. Y. 'f Jj.
¥'~
'J. >J.¥ Jj.>f
>" ¥ ¥¥ Jj. 't/-.IJ.'I: if ¥ ¥ ¥JI. ¥'lj. >;. ¥
¥!J..:J. :;.pJ.',r>P/· "" .... ,..''f lJ. ¥¥ Jj. "" ¥". ¥ ¥"I-
¥
'f
.".. THI·S··,. "R··QU·T,INE",,·RETURNS····,A..· BLOCK,. OF ··CCR.Ee
, .. ~;. .. -
OR GIVES IT
'I-
TO
A QUEUED REQUEST IN
~"ro·"
THE
F··CLI·S:T,,~-
'"
,.~
•
C~AI1Q
'f Jj.)J. •.;-Jj.Jj.:,J.:r ¥ 'I.JJ.:>J.!J.Jj. ¥ ,.. Jf. Jj. Jj.
745
. 00544 .... 00777777 'X
o
o
o
14477776
005'+5
(J0546 ······34001353 P
[) 0547 P
(J0547 77630000
. 00552 '007lltO'36 p.
U0 553 1300U030
00554 20200000
00S55 370ilO627 P
00556 40200000
o
o
o
o
00565
ll0566
00567
00570
[10564 P
762
763'"
010(J!J5?O P
53020022
.30 0.0 D46'7. X.
402Ll(lOOl
01300000
41100003
F CS, X2
····1
RTN03
C\'iAITQ,Xl
C WAITQ,Xl
RTN04
761
764
. . . . . . . . . . . . . . . . . 765
766
767
RX3
CLOCK
TMA
. . ADA
S1 t\
. HOUR .
Fcr, x2
O,X3
UJP
3, Xi
Q
iT, Xl
8 IT1?
i···············.. ········..·····.... ····· .. ········
GET THE CLRRENT TIME
STORE IT INTO THE FCLIST ELEMENT
,
". ,
,~""
.,
"'-
-"
.,.,'
...
EXIT
SAVE THE FILE CCRE BLOCK 1/4 PAGE
ADDRESS 11\ THE CHArTa ELEMENTo
"GETTHE'PCINTERWOROOF THEN£XT
CHAlTQ ELEMENT REMOVE THIS BLOCK
.... SK Ifl.IF. ThE QUEUE.IS .. NCTEHPTY .
,X3
,Xi
:3
ATOP·
o
F CS, X2
SHAG
9
'ENtl,'S'''777'77B' ..,
STU
F 08, X2
NSC ;.!."1"X2·0"/,11"
......ENI
,.,..,.....
.
...
·
....
R··T'!··'I
L~) U
l:'It "..... oJ
't
045CQ)QC1G
0061301DOQ617
00614 2101J135t
00E15
04-701.35i
{lO 616"1:4·20f162fi
00617
0150D1HI1.
00520
... [Hl621
14300407 P
1457777?
00622
14600624 P
Ll 0 623 .. 01000431
00624
03300567
00625 13077760
d0062 6' "010 DO
:il··""·Pd.d""""",,
O~;E
,s
\)
: J J P R ; TN
LOt)
QSE
ENIh""
UJP, I
EN!
CWAITQ.
"++'2,X2
1, Xi
MSC,:<:3
777778'"
'[NO,
[~NA
"'+2
GET8UFF
.'.JJP...
AZJ ,Ll
SH/\Q
:jJP
l ) . .:..................
ChAI Q
R X3
-15
.. ",u"RfNfY1
200
.....? O.O. ?!.!.??
.................
,.,......... ,.
...........................................................................
o
. . . . . . . . . . . . . . . . 1.,0
o
o
o
o
REEH
'0 (j6Df
00627
DOES ANYBODY WANT A FILE CORE
S KIP '''I FI\ or
. . . . . . . . . . . . . ". . .
"91:0C K
C W.41 TO
GvlAITQ
1 ......
00575
00612
o
................................. 1J:
'EJW'
o
··",,··,,··· .... · .... · , · , · ·"· .... GET ···THE·.· PCINTERTO "THE' FCLTST
24
SHA·
AZJ
758
'CONVERT'
"}
"k~~fr~§K .............. .
GO 376
00577
OOEllO
o
0'
SHAQ
LOA
· ,.· · · · · · · ·,. .. · · · · · · · ..············[PA
00574
(} 0 60 7
00610
0061T
Oi'"
755
OINIC
RT j . '
. . 00573
o
{~
754
u.
LOI'
UnEi06
I
753
• ".",,,,,
FIX THE 0 CU!l.TER·
~
. "'00571
00572
00602
·00603
00604
00605
o
"'752
O . d• • "
MEMORY P"ARITYERRCR
RTNGOUNT·
EQU
759
'" '760'
113300564 P
IJ
lJ 0564
751
·RAO,.······
RTNOl
54101351 P
04101351 P
Q 0 561
00563
750
.. NACHERR
-1
'HTJ'
ENA,S
RTN
STA
1201].UOO1.·
00562
..... \
74 e
748
756
757
00557
tJ0560
746
"'747 .
RESTORE INDEX 3 FOR THE INTERRUPT
---SET lOP I~lO THE STATUS
.... SA y ... NO "... FI i.: f 8 to CK"'A SSO or ATeo WiTH······" .. ",,,. . . . . . ,. .,
THIS FCLISl ELEMENl
RETURN TO MSC
WILL' BTCCKSHECCMEAVAIl:A8IE
SKIP IF NOT
EXIT I F.T HEY WILL
......
IF NO REWRITTING IS QUEUED AND
CHAITQ IS NOT EMPTY
.......... dRET URN TO·H ERE"
CALL THE ROUTINE THAT NEEDED THE
BLOCKNOT ENTER
THE THE
RETURN
ADDRESS
SAY
TO QUEUE
CALL
..............................................
SET THE R.fTURJ\
GO ASKFORA BLCC.K
DONT PANIC IF ~E DIONOT GET ONE
FORM CORE ADDRESS IN Q
u
. " ....... ' . . . . . . . . . . . . . ." • • • • • , ..••"."•.
o
o
". . . . . , • • " , ... ..
o
o
o
o
o
i
0"
o
Q •.
o
o
ct
ASS Et'l8 LERI'O S3
Vi.O 09/21/74 2236
PAGE
14
DISKCOP
GIVBUFF
>1-.....
CALL TO GIVE UP A FILE ceRE BLOCK
IF WE SHOULD REMEM8ER THE INFORMATION IN THE BLOCK
CO"O"
ENI
UJP
o
o
o
o
o
o
o
()
"'''''-~'''''',,,,~~,,,,,-
o
>J.
•
•• ..
......•.
••
-'l':....
·Ip·WE··WAN'r·'fO·····PORGET..·..·rHE··INFORMA·I'IO N IN'T HE'S to CK ....... , ...............
F 1/4 PAGE NUMBER IS IN A CALL GIV8UFFA
FTi4PAG"E'NUR8ERlS"" INPFLOC'CALL""G rV80FFP
IF 18 BIT CORE ADDRESS IS IN Q CALL GIV8UFFX
"1"1.. __
........."1-.
• • • • • • • • • • • • 4 • • • • • • • • • • • • • 4 • • • • • • • • • :;. • • • >1-.• • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • •
~
o
.-.
00630
776500lH
D063f ·..·f307776G·
00632 P
....... \.l.0632
.776300DG
00635
00701036
00636
14477777
00B3 7' "4(}20D
00640
010JD
P
PFLOC+PFR
.
GEJ .GLC8AlPAGE ... N.UM.l3.ER fROM.PFlOG
';;:1.5
'CONVERT TC A CORE ADDRESS
•
...... -..
ONVERT
GO LOOK FOR THE FeLIST ELEMENT
77778
FORGET
CS·,X2·· ................................................. at:
DC )(. .. THE INFORMATION IN THE
~.
IV3UFG1
o
.",.
00642
lJ 0 64:5
0064/f· .
00 OLt 5
OOfA6
'0'0647
00650
o
•
......
'..··1"'B"·'"·8~I··r '-"COR'E'~' 'A-o CR ES S
RETURN X3
.. GIVBUFF ....
~1I1.
00652
X
00653
4 2Q
(l
"OfJ654··14 60 fitTH:!:" . .
3itOU1353
00660
~10U0136
oD55 6
~
.LOAD·!
00651
00655
FIND THE FeLIST ELEMENT
,>__
. __...
PUT THE RETURN ADDRESS IN Xi
SAVE THE CORE· ADDRESS··""
GET 8 WORDS FOR A FAKE MASS
STORAGE
CCMPLETIC~ BLeCK
SA \(TC' RETORNrORTN ........... .
0_'·'
KE T
ST A.T US WORD
......
CORE BLOCK UNAVAILABLE
o
o
o
o
210 Q1357
DOSST'li:r:rOIJC 02
P
o
o
00661
QQ 00 0 D0 [J
A241 IMPURE
o
o
On
o
o
o
o
o
o
(J
A SS
rl'\
E~li3LER/;)S
3
Vl.0
09/21/7'+ 223G
PAGE
15
\jj
OISKCOP
.~~~.~¥.*¥.~
>;.
861
862
()
o
o
o
o
.. o'" . .
.~o
........ >f'
871
872
00662
14200001
00663'00777777 X'"
00564
00E65
14200000
01000000
00 EG 7
05:) 000 01
00671
00672
47200664 P
055001]02
874
..' 875
876
877
· ·.. ··87·8··
B7 s:
880
88:1'"
00670 . ···0,1 0 00665, P
o067,3010 U 0662
00674
47100712
00675 47300713
o 0676 130 OU !r3C1
00677
34001355
Ll07Dl
00702"
00703
00704
~¥¥ • • ~
• • *.~.~
••• ¥¥.¥ • • •
44~ • • • • •
d)
¥4 • • • • • • ¥ • • 4*.~¥~.¥~
>;.
i>Q)
.JI,.
JI,
..
".'
•
;;
>;.
o
47301356 P
J0710
14300712 P
03201005 P
141ll!} (l
143J
U0715
o
00717
00720
0.0 7.35.. 3000L355 .
40001355
2i07l77T
OOI40''':/:,''42DO iHliJ ..
00741
05400000
03700744 P
14200003'
47200024 P
. [1.OZ45 .. 77.650uOL.
1307776G
0075005400001
(JO]S4
00755
00756
1~100002
142!1010.4X
·F REEFLA'G;:O
F RE EFlAG, X3
.,I08USY .. · .
"1+2 X3
I
FILE"St:OCK ..
1
1.0
<1
0
RESTOR.E A AND Q
PUT THEM INTO THE QUEUE ELEMENT
·······························LINKTHE ELEMENT INTO' THE LIST ........
FIX UP THE ENC POINTER
·· . · · . · · .... · · .... ·LCAO THE·SUSYFLAG
ENTER THE RETURN ADDRESS
JUMP IF THE QUEUE IS NOT
0
0
BUSY
I HPURE, X3
..... FREEX2
0
.
.. SAVSTHE
14300716 P
17577000
M
~.""
....
..."
934
·93·5
936
......." ..... M
• ....• ....
9·3· ..].... . ·....
938
................. .........
SHAQ
·. ··!::!lA..··.....,....·
ASG,S
. . . ". . . . . . . . . .' ' . . . . . . . . . . . . . . . '. · . ···~~X. ···.
933
...............................
. . . " ........................... 0·0",75,,7· .......... 01:··00· 0 ·0 . 2·6. ,. , p~ ......................"...... ' ...
Q . ,.
X3
FR~t.r"t~IDT'
t. ~ ~ ~
"'IMPURE,'Xl
928
, ................. ,,,., ................ ,...... 9·2·9·. , ..·
930
()\i · · ...... ··.... ············~H~§ ~gg~g g&~~.E...§~~
J0753
1
' · m...' .......
00742
00743
00744
.......... , ...................... ·0 ·O . 7·4·r·, .... ,2·Q·Q·1J.4Q. (lO .. ·····. ·
''''GE'T Ii E 1-1···. '· . . ····".. ····
P~
007.32
00733'403
GOI ..
00734 144 7776-
00746
TH1P1
2,X3
TEMPi
0
SAVE .~J NO E:X ..~
COUNT UP THE TOTAL NUMBER OF
..·.BLOCKS THATNEE0108E FREED
SAVE A AND Q
. GET FOUR WORDS OF FREE MEMORY
•••
'3 iJ i
902
(9 (] 3
oD73·1·
0,
. . . . . . . ., . . . . . .
INDEX
(:
2
IRRECOVERABLE 110 ERROR
RETURN ADDRESS ..
GET POINIER TC QUEUE ELEMENT
904
FILE
CORE GE·Fli:.E"·
BLOCK 1/4 PAGE NO. ... "TO
A
FIX"T HE
..,. . ". . " .......................',............
9US
06
FF~E E IR
ANY NON ZERO VALUE SEZZ NO ERROR
Ii?
JUMP IF IR IIC ERROR
IH)'"
·LOAD .. TH~8tOCKNUMBER
SPECIFY A SINGLE FILE BLOCK
90 '9
FREET HtELGCK ..
9.1,u""T"'"
911
LOAD THE COUNT OF BLOCKS IN THE
912
FILE AND DEGREASE IT 8Y CHE
''''
.....
,'''',
.
,.,
.
'.,
....
""
.................
··,
....
S
I'('IP"J:FT woe ~ . ····MO RE'" tEFl....·' . '.... ............... ,. .
·91:3····,
9 <\ If
ONE BLeCK ONLy CAN BE FREED
WITH NO 1/0 TRANSFERS
~1:I
"
STA"T,X,3 " S T ORE!), WAY TH ECOUNT"
'ne"
'31 '7
EN.lX,S
-1
918. ................................
..... j\OA ............................ COlmL.~cOuNTom1N THE .TOTALCOUNr
919
STA
GOUNT
STORE IT BACK
LOQ
MSQTOTAL
GET THE AMOUNT OF UNUSED SPACE
920
2Nl"
"'j]',X2:'"
.... ' .
~.,,·
'SET' PR EE 1: I'dIi····PR1: OR:n;Y . T'O~ZfR0.. ·.... ....,..,. ~ ... , ........... ,
Y2"j:""o,'
922
FREPANIC ASG,S
IMPURE
SKIP IF 10% OF THE STORAGE NEEDS
AQJ,LT
~+2
TO 8E FREED
923
· · · ·..· · · · ..·....· . · · · ..· · ..···924
ENI
.. " ' F R E E P R , X 2 " S E T THE FREEING PRIORITY'
925
srI
FREEPRWD,X2
.. 92.. 6 ...
. P E A . . . P FLOG+PFR . .
..GETTHE.114PAGE.I\U MBER OF .THE
927
CORE WE ARE USI~G
4700072
4731JIHl2
i4.3iJGDCl
130000
00730
.,." . ,............... "
'0"
COUNT
goer
U 0726 ..
00737
RAD
.... .597
898
899
00727
U0736
.. ,
24
89
89
o
SA VE
FREEX3' X3
•• ,
................... 89
00725
i
srI
SHlJ;Q
INDEX
NO . . . QUEUEI I\:GTC '" FR Ef1
FREE Xi, Xi
890
891
'·892'
89
00721·7764 0
00722
00723
00724'
o
o
FREElfP
SIr
·······889·
I
SAVE
2
888
45300(]
00706
U 0716
FREEX2, X2
887
0 07 ,·",..,u:,..,·'''''
250Q13
THERE ARE NO ·SlOCKS ·INTHEFILE
·······FRfEFILE·
Q:::'G,S
lJJP
'-
0
'''Af2fdINT' .
1
VFO'"
srI
He;:;
143
010u
IMPURE, X2
IMPURE
FREEINIT ENI
ENI
o
.......... O ( j " ' r - · ........•· ..·'·· ....•...... ~........ ··..
1
...w •• ••• ••• , ......
c)
c)
0
0
0
• M ' ........... , , ' . . . . . . . . . . . . . . . . . . . ' . . . . . .
0
PUlTT" INTO TEE"Q UEUEELEMENT····· ....· .. · · · · · · · · · · . . · ·
READ IN THE peINTER WORDS
2 X1
......
0
FORM A CORE ADDRESS IN (Q)
..··· .. "GE·T, ....f HE"F e RWA RO'··PO'lNT:ER,,,,,···. ~" .. ·. . ,......· .. '···. ···'w ................~, ...............' . '......."
,X3.. ········ .............. ~...
M
0
,~
• •••
· · ; ..
READ,X2
EN(·
D7·70NoEot~3
ANQ,S
UU
. ... " . . . .".............~ . . , ..., ...·... H,dP. . ·" ... ·~ ......·w·..··....·...... F·REE P<.1::. . ·'·· .
()
0
SPECIFY A SINGLE BLOCK
FREE T HEFTLE8LOCK
of RfE8LK
QSG,S
885
450
1,X2
ENI
···RT::J .
ENI
E. UJ?
.... ····UJP
883
.. 0 070].2007771'7' .... X
00711
00712
00713
GO 714
fRE:E:F:II".
'884"
'OOr05']f77ff13
()
FRE EX2
882
..
00700
FREElIP
'873"
. U0666T7 7300UO
c)
o
..
870···
o
0
¥.~.¥~~
THIS ROUTINE IS TO FR£EA FILE OR PART,·CF A FILE TO THE FREE
FILE BLOCK TAdlE
ENTER WITH THE NUMBER OF BLOCKS TO 8E FREED IN Q AND THE
'" NUM8EROF'THEFIRST'St:OC K'IN'T HE ....A'RE GTSTERo
RTJ
FREEFILE
.... II-iI.SRQlJJIN.ERESJO.RESALL Qf THE INDEX. REGI,STERS
863
864
865
866
867
868
.•
,
.......
INTERRUPT TO DONE WHEN THE 1/0
FORM AN 18 6IT CORE ADDRESS
GO· . ·I;· N. I·T·'l A·l E·, "l HE. . . T'RA· NS"F E'R'~
..........""...... ,,, ...., . . .'"''' . . . .
0
0
...... . . . ." . , .. , .., ..
~
, ................................. _
..........M m..
0
0
ASSEM8LER/OS3
(J)
.,
PAGE
16
OISKCOP
FREEl< Ir"TOA"
.... J 0"161 ·14200001················· ............................
()
f,.
f~,
Vl.0 09/21/74 2236
00762
iJ0763
i
007U0726 X
14477775
·· ..GET·TREACDRES·SOF "TRE'LAsrBCOCK .....
OF THE FILE
SPECIFY· A SINGLE FILE BLOCK·
FREE THE LAST BLOCK
0016434-001355""" P
1
00765
()
!I 0
I
I 0
II
GET ADDRESS OF NEXT QUEUE ELEMENT
203iJOOOO
.. AOV.A..N.CL.T. HEQl.iEUE.POINTER.
00766 4L~OQG717 E....
00767 53300 DOD'
00770 14300002
. ·00T71 ... 00·70·060·0 X
00772
77650001
0077~
1307776J
FREET HE·Q U EU E·E LEM ENT
00774" u"20001-:355--P"'u,,,,
00775 54300025 P
00776
03101015 P
U0777-"4to 77777'K
01000 14600717 P
·····Q·l001
. . . . . . , ••...•...••.... u ·. .
0
01002
. 17117
44,0013 56··P····
D1000632 P
,,,uu01003 ·······ltT200Q25·PN .
01004
01001014 P
I
I 0
SAVc·····THERETtJRN·ADORESS·
01007
0
147G1003
u
01017
01000753 f-'
01020
01021
14
47
"....... H····~·.,,·tJl 022····
0
0
01023
o0102
f02
"~2
........................ ...
PRINT 5 DIGITS
CLEAR THE ERROR FLAG
0004
0722 P
03()0·00:1.:· ...~~.....~..~'"
13077747"
~1.D77771
4 j 40 5 l 34-
01026
02%
tHO 2711tHl
U1030
01031
...................................,. . . . . ;,0
N
,
0
.. · · .
GO GET A FILE CORE BLeCK
EXIT IF THE CALL WAS QUEUED
'SAVETHE······RETUR NAOCRESS"'·········..·,············..·'··· .
FORM AN 18 BIT CORE ADDRESS IN Q
.~.E;J ..IJjE. pc:rNI ER,J.O. THE ...J~.IJ.~J..J.E.... E..LI;.M
01014
0101S
OTOT6
o
. ENTER··THEIMMEADIAT·ERETURN
......•.•
"'''01'013
0
o
. . . . . . . . . . . . . . . . . . . . . . . SAY. WE ... AHE ... .fRE.EIN,:,,................................................
SET THE INTERRUPT ADDRESS
01005
14600070
01006' 42'00U 777;;(
01 Gl Q·l46 01 012 .. l"' ..............•
01011
01000£+31
01012 033U0557
o
1/4 PAGE NUMBER TO A
FORM A CORE ADORES IN Q
LOAD THE RETURN ADDRESS
...JU NP .IFN .OREJ3L CC KS
CLEAR THE BUSY FLAG
ADJUS~ T~E .. ENO-POINTER
GIVE UP THE FILE CORE BLOCK
l!tlO
1420
.
-3
•__ ."
_c
ENTER
C HA RAGT E;~ C aUNT
.. ' . ' ...
o
o
o
o
0
o
0
o
q?
o
d;
0
o
o
og
o
0;0
o
0'"
o
:J[)
o
0'
(')
ASSEi'I~llER/OS3
V1.0 09/21/74 2236
PAGE
989
980
991
9'32
.. 993
994
995
()
17
DISK COP
'f
:;.
>:- If>;->:-'-';. ,;,::;,>"'{.>J.'I-·"''I-·'I-·>:-'f.lf·''}- ';">;"\'>;'>:- If If¥- 'I- ¥~< ¥-Jf>P;·>:->,<>;':;'·'f -\' ¥-If¥-lf'}'} 'I- ¥>:- >1-"1-"":;' >">:--'/-¥- :;:>1-\<'/->;";'>:- >;.>I-'l->,'>:-¥-"
¥
THE
CORE
... ¥-'
ADDRESS
'i ( )
'I... '1-...
.y.
"0
"10ll1
o
01035 12400022
01036 0100 amra
01037
77630000
... 01042 ... 14 600D 0 O· ...
01043 17577000
01044 13000036
01045 13077'756
01046 536QOGDO
01047 1307777
01050 ·'2027777
0105
.01051·· 53.6Ullaa
01052 1170000
01053
3720000
tliO :; if aU 340103'5·
010S5
202110000
U1 0.5 (l . . 0:1.0 01 O.~..1.
o
o
o
o
o
00000 0
1002
1003
1004
1005
1006
i007
10(H
"1-009
1010
1011.
"101Z"
1013
·1D14
101~
1016
18
CCNVERTD SHQ
CONVERT-UJP
DINTC
··ENA
ANQ,S
IMPURE
o
770008
24+6
-17
SHAQ
'''''SHAQ
X2
-7
PAGET
TAr
SHAG
"'-LOA""'"
CCNVE
X EOU
TAl ...
~
X2
ECHA,S
LPA
n···"·',····,,····
o
GET JUST THE 1/4 FAGE ADDRESS
o
CO N VERr T C-A FAGENUM8ER'"
l, X2
.....
3000008
FORMlq CeR.E . AD.DRESS.IN..JO)
FCA, )(2
CON VERT 0 . .
O,X2
~QN 'I.E ftT X.
1/.4 pAGENUMBERTQHIGH(Q)
'LOAC; FeLl ST' peItHER ........... .
POIKIER TC X2
CHECK
FOR
l'HE
PROPER
JUMP IF IT IS
POINT TO
.~NP. L QPP
THE NEXT
8 A.CK
o
1/4 PAGE
FCtIST ELEMENT
o
o
o
o
o
o
o
o
o
o
d'
o
o
o
0':
O.
\)
"
.................... ..............._......................
"
o
o
o
Q,
o
o
A SSEH8LER/OS:5
j.
~
1040
FLOAT
FLOAT"
. . . . ..
. . .FLOAT
... .
...~.
44>j.4 • • • • • • • • • • • • • • • • • • • • • • • • • • •
FLOATX
··'''·~··········:1.0 3T······~···············FCtroR·
1038
·······1Q·3·g···
LDAQ
RT J
········EKlI
UJP
·OINIe···
LEVELC
1041
STI
104'2'PPA"
1043
SHAQ
1044
RfJ
OT07553020022"~li145
·····TMA
01076 3U000565 X
1046
ADA
0107 7 ltD 20·000·1·
·1Q 4 l · · · S T A
COREP t CN8LK
REWRI E
'~TMP\JRE';'X2~
IMPURE
THE CORE BLOCK
."
¥.¥~~¥.¥¥.¥
• • • 4¥¥ • • • • • • • • • • • • • •
GET THE CORE ADDRESS AND FILE
BLOCK NUMBER AND REWRITE
RESTOREINOEX2"
............................ . IH~.... S.LOC
RETURN
( )
SAVE INDEX 2READ IHEFTtE CGREBLGC:KNUMBER
FORM THE CORE ADDRESS IN (Q)
FCLI~T POIN-ER TO X2
...C.ONVERL.
.
......
".~
..
"
......
"
.
.
.
.
.
.
.
··~~CO·MFU1ElHEJREF
ERE NeE'''T n~E'ON
CLOCK
THIS BLOCK
HOUR
·ANOS AVErTl I\THE . FCLIST·EbEMENI
"FGT,X·201100 53100000
1048
TIA
SAVE THE CONTROL BLeCK ADDRESS
C NBLK
UllU1
44200002
10Lt9
SWA
FGA,X2
IN THE FCLIST ELEMENT
, .................... ,... ........ .................
·01102 .... 20'ltJ·O· 0 OZ .. ·· . . . . " . . · · · ; · : 1 : 1 J 5 0 · · . . · .. ··· ········ .. ····t B'A'"
·····COREPrCNB.tK··
01103 12077747
1051
SHA
-24
ONE HORD FULL OF ALTERED 8ITS
01104 12LtODGOl
1052
SHQ
PUT
THE
ALTERED
THE.
1
AD DRE
SSIN
(0) . . . . . BIT
" ..... ...ON
. . ..............
"011.0'5'1301'7176
1 0 53'~'SHAQ
-'1
AND SAVE THE ADDRESS IN THE
01106 41100002
1054
STQ
COREP,CN8LK
.............................................................···· ....·..·. ~ .. · ·.. ···. ·····10 35..
.......{'...........
CONTROL· 8 LOCK··
01107 37000531 X
1056
LEAVE THE ALTERED BIT
01110
35200000
1057
OR IN THE REST OF THE STATUS
. 0111"1"37 o(ttY4 4 \1 . . . . v .. · .·· ................. ,......
.,...... ,.;, i1,;;,··Il· .... ",,· ..,·,"", ..,,·,",·..···.. •.., .. ,,···,·..• ......
Q.I'I"""""'"'' "., ......... ''''''ld 1'"
. "INOI CA. TE···NO·liO .. XN. . . . PR OGRESS""
SET THE OCCUPIED BIT
01112 35000512
SAVE THE NEW STATUS'
01113 it0200000
"'CHECKFOR RESERVED············
Off14 1200"0001
REWRITE THE BLOCK IF RESERVED
01115
033U1051 P
FLOATX
.............. ~................. .iHii6 ········2.1.·0·1} 13·S1·P
C W·ATT·Q····
01117 20001353 P
RTNGOUNT
01120 04701351 P
CWAITQ
o
o
o
FLOOR,X2
'PFLOCiPPFR"
-15
...
o
•.. , II
,
o
"
o
c)
,'"''''''''''1'
C)
o
".'" "." , ...., ...'w""·l1. d2 . 1· . · u30 111 0 ;;;".,. . £j ......, .. " ...." ..
()
01122
","e""
O,,"~
. . . "'"
o
o
·····pl::O·A'r·x·
o
o
Q
o
d
o
q
o
o
o
o
o
o
ASSOWLER/OS3
(Ii
Vl~U
09/21/74 2236
PAGE
OISKCOP
19
~,
1071
';'
1073
>f-
01132
01133
()
53100000
40377777
OT13 4' 53 30 0 0 0 0
01135 15677777 X
01136 .. 40377777· X
O·"
01137
01140
01141
01142
o
o
14701146 P
14601142 P
01'000431 p,.
03301157 P
01143
7764DuQl
0114444377777 X
01145 01401123 P
01146
44301144 X
01147
13077760
"'011'50 '''1447"7'777' X
01151
34377777 X
47377777 X
01152
OT153 '14677777 X
01154 35000140 X
01155 ...... 40.00.1154 X
01156
Qi200000
()
1157
011.60
01161
01162
U1163
(j
o
o
o
o
146
34301151 X
20001123 P
1+03011,35
iJl077.7.77.
1/. 'f 'f Jf;;' 1,< ¥ ¥
¥Jf 'I-
{f
'>J >J.>J Jf.',pt:iI- :j, >i- >/0 'I-
107 L,
>;-
CALL IT BY DISA8LH1G THE INTERRUPTS AND EXECUTING AN
--;.
RTJ
VFO
DINTC
'LE-VEtC
TIA
""10"
1f
Gf. T A CORE BLOCK
,()
Jj.
iie)'
r
A9/JMP,Ai5/IMPURE
..
'0'"
Xi
STA
TIA'
INA
SIA
"10B6
1097
1098
109
GETCORE
,.,
1085
1093
I09£f
1095
1·0336·· .......................
Jf
.1f
Jf
1f
- -_...
GET CORE
1084
1087
1U88
1089
1090
'1091""
1092
v .ij.iI->J.iJ. 41-if >J. >i "10
THIS ··ROUTINEGETSA BLCCKOFCORE
>:-
1079
1080
1081
1082
'1083
~
'" Jf:V-Jf 'f. Jf >J. Jf ¥
>:-
1076
1077 .
01123
000;)0000
01124
77630000
"01:1:2753020036
Jr Jf
·1072
"'1075 .
()
:::- JJ- 'I- ¥ 'I- >;- ~, ''I-'Jt-' :;. >i >f.;;.1;: ,.:',/- 'f.'1/.' ¥- 'f Ji.>i>;''I->,q.;'}.>f.Jj.
CONTROL BLOCK ADDRESS TO A
SAVE IT IN THE USERtS
IN.DEX . l.
PSA FO!NTERTCA
...... ,.
POINl TO THE F7 WORD
SAVE-ITASTHE USERSFRGGRAM
"~§$/~SA.
F7
GETCOREX
-¥-+2
GEr·aUFF·
SWEAT
P FLOC+PFW
PG,P·SA
ENQ
ENA
... • I:;l()
,LT
AF
·······SW·",·············.. ·········· ·····PFr,·PSA·
UJP,I
GET CORE
..
-GETGOREX SWA
PF1, PSA
SHAQ
-15
N MSW'AIT .................... ,....,'
AZ
."
·········eNA,S··
RAD
110
1101
TI02
SAVE THE 1/4 PAGE NUMBER IN THE
PSA
FORM THE CORE ADDRESS IN Q
o
.... §~~~¥'p::;~
SSA
FLAGS
FLAGS.
STA
UJP
1106
..
I 080UND, PSA
SrI
ENA··
1103
110it.
1105
()
RETURN
o
LOAD fA ERETUR N·ADORESS
o
"
0,X2
.. ,"
.•.. ,"1- ..
110'7
1108
1109
l'lfTr
~1SWAIT
IOBOUND
GETCORE 1
F7,PSA
:1.111
1112
STORE THE RETURN ADDRESS INTO F7
RMDONE
GET THE HELL cu:r····OF··HERE
o
o
o
d
o
i
10,.
o
Oi.:
o
o
0"
o
0 ......
o
O'!
- -
-
.
-- -- - - - - - - " - - - _ _ _ _ _ _ _ _ ._______ ._ -
-
-
_, _ _ ._
__ -
-
-
-
-
_ _ ,_. __ .m_. _
_ ._._._ _ _ _ _ _ _ , _ _ . _ _ ,_ _ _ _ , _ _ ._. _ _ _ _ _ _ . _ _ _ _ _ _ _ _
.~.
_ _ _ .--._
-.~_._,
_ _ _ _ _ _ ._ _ _ _ _ _ ._ _ _ _ _ ._. _ _
A SSErldLER/OS3
Vl.0 09/21/74 2236
PAGE
DISKCOP
20
-- ,,-" ."-, ".. -.---~,,~ ---" '''"j;:):.:'>;.' ~l·" J.i..··J.t' ¥-f.. ."':;" J;.."JJ..-jJ."~(">;:"ia";' ''';;'-"'4t~:;.-·ij..-':;'"'v.~-~t '¥);.' '¥'-'){.. '¥ ')1- ":'~">;'"J;" '}~":;;.' ~"iJ.' ;,( '¥.,;.... ~ :;.···JJ.'lJ.· ¥''V-''>t-''~''J:i. "Jit..~-¥"'¥"¥'¥ "JI. "lj.'ij"""'1/o"'JI":f."'if ¥:Ji'¥'¥ 'Ji." JI."JI.:.>J.-lj.- jJ."ij.":;f."¥".J#.'
1115
·····1116
1117
11189""
.....,............... ,.....,.................,. . ." ..............,............. ".....' .. ········111
1120
1121
1122
()
C)
Q
o
o
o
01104
OOOJOOOO
0·1165 .. ·"7763tlOo'a ..··· . .
01170
53020036
01173
20001164 P
OT1Tlt '''44T77 777 ... X
01175
00701123 P
. 0117620J01174X····
01177
40301162 X
01200 77650001
. 01201"'" 13Q777 (jij
~
'f
······TH I S·ROUTIN EIS·TO·REAOA ····FILE·BLOC KSPECIFIED SY .. THECBP· ............."
~
WORD OF THE FILE CONTROL BLOCK POINTED TO 8Y THE CNBLK INDEXo ~
•
THE BLOCK IS READ INTO THE CORE BLOCK SPECIFIED BY FFLCG
•
" f . · · ' e A L t ....THE .. RtnJTINe .. SY·OISA81.: ING'''THE'I NTER RUPTS'''ANO'EXECU'TE''AN'''' ,......
.'f..
I~T J..................fI.X
. . .........1124 ............................................................. .
1125
1126
FIX
VFD
.......................... ·. 1·1·2·7····· .
. . . . "..,............ ·. ··......·. ' ..... 0·1 NY. e. ···. . ·
1128
LEVELC
1129
LOA
1131)"············....·.. ········. ·· ....·..· · ·
1131
1132................... .
1133
(I
"."o~_""'
'SWA
RTJ
LOA . .
STA
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .FIX. . JJ.l..E . CURREt--r .. EII.:E 8JL.OCK
A9/JMP A15/IMPURE
()
FIX
'''T2,PSA
GETGORE
II
.............................. q(]iJ
()
L
()
SAVE
THEEOI
RETURN
IN CASE
IS QUEO
NGETCORE"
... ........THE
... ....CALL
...... .
....... GETTHERETURN·ADORESS
SAVE IT IN THE F7 WROO IN THE PSA
READ THE FILE ceRE BLOCK NUMBER
. . SAVE·THE' .. 1881TAOORESS'INQ· .. ··
FClIST ELEMENT ADDRESS TO INDEX 2
GET THE ADDRESS
OF THE PSA
····. ··· . ······ ...... ·SAVE'IWTHE
FCLISTELEMENT
·· ..I2,PSA·····
F7,PSA
1134
PFA
PFI.:OC+PFR
'113 5.......· . ·. ·,··,·, ..,,····... ,··. . ,·····
····SH·AQ..
·········· ... 1:5
01202 00701036 P
1136
RT J
CONVERT
01203
5330UOOO
'1137 . ··
TIA
PSA
........ 01204'"442D·0
0'02
........ . ......... .
..1138·
S W A F CA,X2·.......
U1205
14601157 X
1139
ENA
NSWAIT
RAO
rOBOUND , . PSA·
......
......... .
01206 ·····J·43G·i160·····X·
·······1140 .. ·
01207 2010lJOfJ3
1141
LOA
CBPICNBLK
LOAD THE FILE BLOCK NUMBER
01210 40377777 X
1142
STA
A,P~A
SAVE IT IN THE PSA ALSO
......................................,. . ·'·....·E
NI ...........
., ''''R
E. AO . , ...X'2.............. ,.....,...............................................................
,. ,....
. . . . . . . '..............................................,..........
.......................... '··1'1·4·3'....·
................. ···O:t211~ ..:l:420'G'1' 5 If'X-"'"
01212 14301217 P
1144
ENI
FIXED,X3
ENTER THE RETLRN ADDRESS
01213 14-H11000
1145 .. ··.. ·
ENI
HPF8+2 Xi
ENTER THE WORD COUNT
· .. ··.. 114·6·
'01214' ... 0·07 00013P ...
RTJ
FEAR'" ...L..........
. •... CALCTH E'F I GRER PRI CRIT 'I ROUTT NE '
01215
U1J01163 X
1147
UJP
RMOONE
GO TERMINATE THE USER TEMPORARILY
...................................................................................
..
· ..1·148
01216 470U1235 P
1149
IRRECOVERABLE 1/0 ERROR
srI
IRFI.:AG,°
01217
a07U1036 P
1150
FIXED
RTJ
CONVERT
FCLIST ELEMENT ADDRESS TC INDEX 2
...... "CD ·.A. . ·. ....·..... ,.......... .. . . . F" C"A:',' X'Z ......··· ... ,,, . . . " .......
···········GET······TH E··PSA'''' A CO RESS""OF''''Y'HE'PR
............................
01220 '" ' · Z 0 2 u f l 0 0 2 , ·. t:t5;-:!
01221 535UOOOO
1152
TAl
X1
USER
PUT IN INDEX 1
01222 1120UGOli
01223"
l6U Qr ? 7 1 i 51153
4 . . . . . . . . . . . . . . . . ,.......... .
.. ~~ EEI~~R·~t ~LbB{ENUM8ER .OF.THE ..
···········~~·~·····il7Er··· .
01224 44101146 X
1155
SI'IA
PF1,X1
AND SAVE IT IN THE PSA
......................................................................' L D A . . A , X 1
···Ql·2 25..2 G1G121 D . X··
·1156
........................... LOAO· ..IHE·FILE ··BLOCK·NUMBER··
, , .. f)
()
.0
,
---,
--,.,....
r" 1
0
0
..
0
~
o
o
01226
40200003
01231
14601153 X
14401150 X
.01'231) . . "34:1: U1. 206 . ·X"······....·......... ," ..
01227
01232
.... '0'1'23'3"·
01234
......................... . . 01235
35Dil1155 X
. !tun 01232' X
47101152 X
.040i}007l ..
01236
OL~UGf.lQ(j
01237
14677777 X
'''012 Lj:D '''''Lj:Qltll'171''X
01241 20177777 X
01242 53500000
. 01243200U0572X
01244
35100004
.
012451+ 01001][14.......................................... .
01246
01247
14600U77
44001235 P
'''01'250 ""146(1000
01251
40100002
O:j . . . . . . . . . . . . . . . . . . . . 0 125 2 0 1 a0 0 I) 32 P
n"
""
1157
1158
'''·11 '39
1160
STA
ENA,S
',,· . ,. . '..·. RA
. O...... . . . . . . . .
EN A
SSA
FCB,X2
"1'NMSWAIT
OBOUND,. XI . ·· . . . ·. . .· . . . . . . . . ·
S ~li:3I T
AND SAVE IT IN THE FCLIST EI.:EMENT
...... ··CtE·. A: R. · · . M. S·W· A. IT . . . . . . . ·. ·. ·..·......·. ·. . ·. ·. ·. . ·" . . ·····, ........,....................
INITIATE SWITCHING
FLAGS
-'STA"FCA GS"
S11
XFLAG,X1
INDICATE SWITCHING PREFERENCE
IRFLAG.... 15E·
.7 7d+J:MPURE ,0· ....................................................
..
UJP
O,X3
AND RETURN
E~A
READRTN
CHANGE THE CO~PLETION ADDRESS
·.·ST.iX,...F?',.X·.i
.............
LOA
SELECT,Xi
GET THE CCNTROL BLOCK POINTER
TA!
C NBLK
.. "'TO"A ..................·A08·
.
[OAD THEABNORMAC/UNAYAI LABlE 'BIT
SSA
GPP,CN8LK
SET IT INTO THE STATUS
M
..STA...
ENA
SWA
. EN A' ..........
STA
UJP
0
0
0
....................... , . , . . . . . . . , . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .. .
.... CPP·,CN8LK·
77B
IRFLAG
. .. ··0····· .....· .................."'..................,....................... .
COREP~CN8LK
GIV8Ut-FX
0
SAY NO IRRECOVERABLE ERROR
.................. ...................... , ........................
CLEAR THE USERS CORE POINTER
GI VE .. LJ..P Hi ~F.. IL£::.9QR. ~ J:ll: (J (;1<
0
0
,
0
0'
c)
o
0
0
0
o
ASSEM8LER/OS3
V1~O
09/21/74
2236
PAGE
21
DISK COP
~'lI- '.'''' ".' )~
1180
,.t:;. 'J. >J. 'f 4' ~~". JJ.>J. 't'-'r .>$.' lj.·.lf4·:;.>;'Jf.~' '1- Jf.'.'I-'I- 'I- ... -lo' Jf >J. Jf. Jf. Jf. 'f .!i Ji.'1J..'J.
1182
11133
1184
1185
1186
'1187
1188
,1188
\J)
>J.Jr'f·Jj.·;';;'f Jf. 1f. lJ'lJ. 'f''f ¥ JJ. 'I- ¥'f . . . . 'I-¥ VoJf. ¥'I-
*
.If
THIS ROUTINE IS TO RESERVE A BLOCK·CFCCRE WHICH WAS
PREVIOUSLY FLOATED BUT HAS NOT BEEN REWRITTEN
ENTER WITH THE INTERRUPTS DISABLED AND THE CCREF WORD WHICH
. . POINTS"i'OT HE8'LOCKINTHEAREGISTER8YEXEC tn INGAN
... RIJ
... Rl;SE..RVr::
.RESl:R\/E: THE.GO.RESLOCK
INDEX 2 IS SET EQUAL TO THE ADDRESS GF THE CORE BLOCK
l1Bl·
(7'.
¥ >"'1-
~
... .If....
... -.
• • • • .If.'I- • • • • • ¥¥Jf. • • • • 'f.lf.9JJ..'f • • ¥'f . . . . . . . . . . . . . . .If.lf • • • .If.lf • • .If • • • • 'f • • • Jf. • • • • • • .If • • • .If.
.j ()
1191
01253
01254
01000000
12077766
"01255 "'T7600777
01256
77640001
01257 .1307.7760
U1260 53020036
01263
o
J07010J6 P
01264 '20000652 X
01265 352011000
01266
01267
40200000
rrfODIZ53 P
·········1192
1193
1194
·······1195··
1196
1197
1198
1199
1200
1201
1202
120'3
f~
ES ERVE
UJP
SHA
·At..fA"
APF
SHAQ
lEVELC
RTJ
LDk
SSA
STA
UJP
IMPURE
-9
····7773 .. ·
PFLOC+PFW
. ··-15
.~~~~lg~FP~~~'t~~~ ~~ETOR IGHI OFA
LOAD THE PAGE FILE WORD
8UFFERAODRESS ·10(0)
( )
CONVERT
"IOP
F CS, X 2
F.GS,X2
RESERVE.
FCLIST ElEMEN1 ADDRESS TO X2
TELL THE WORLD ~E ARE USING THIS
alOCK AGAIN
. RETURN
o
10
r)
\.
o
o
o
o
10
()
o
o
o
o
o
o
q.,
o
d
o
o
OL:
o
o
U
1(",...
C)
o
o·
o
a,
/4 SSt:fj8LER/OS3
Vi.O 09/21/74 2236
PAGE
'v:
1206
1207
rJ)
1208
1209
'1210""
~.
~,
l
I
¥-·-Jj.·':;"·'·isr;.-~':f"¥·~~¥· Jj.-,)J.··'~/"j;.-Ji."'J/."· ~
¥::¥ ..!J.-~":Jj."){..'''!J..''Jj.''J;..'"¥ '~':-':1-">;"~)~:-¥ If.''.tf. Ji-"'~"l'I-~'J;. ':y."':;'''J/.'.1J.'Jf"'.1J.''!J.''!/-''JI.'"Jf'''JIo 1f¥ Jf ':J~"-4I' Jf ).f."1/- 'J:j."lJ.'.lJ..~'J;J. :"'Jf'..:J. J}. ~':;"-~'Jf.'¥'4-"¥'lJ..
>f
>;.,
~
~
",---",,,,~.
OJ
,A • • _ " , , , , , , , _ _
>,~
··,,,THIS···,ROUTINE··RE·vJRITES,,,THE8LOCK OF CeRE WHOSE CORE POINTER ....,.......,....... .
IS IN THE A REGISTER INTO THE FILE alOCK WHCSE BLOCK NUM8ER
~
IS IN THE Q REGISTER.
~
""
'·'At·t:····~·N·OEX·R
EGIS;TERS·"AR·[·SAV·EO··AN·O·····RES TORED8Y"THIS""ROUlINE""" . . . . . .>jo,.,,"', •.•... ,
TO CALL IT, DISABLE THE INTERRUPTS AND EXECUTE AN
"'RTJ"'''''''REWRrrE
.... FEWRITEANO' RELEASE'THE SLOCK'
~
~
,¥'
•
4<'10'
•
1214
0
()
····"0127"0' "4:1:001'3 97"P'"
1
!
1211
1212
'1213' ....
()~
I
!
DISKCOP
22
()
I
I 0
I
I 0
I
I
0
0
0
01271 13000030
01272 14600001
OT2T3 "340dT3S3 P
01274
00701036 P
·",·0.1,275, " ,2·,Q,O·O,i·264X
01276
01277
G
35200000
4020DOOO
"0:1:300' 200013'5'1'P'"
01301
40200003
01302 ll~1Ul000
OT3O'3"T4277777 X
01304 14300545 P
U"GEl"THE"BLOCK'Nt!MB
SAVE IT
CALL
",,·,013 05· ·,00 7,Q,{j,u·Q 1, p.,.
0
01322
130000:;)0
14301306
"
¥ •• ~ ••
Jf.
"~_"
1249
.,'
.,_.
w__
¥* ............ •••••••••••• 4 • • • • • ¥ • • • 4
,_~
~
"'J;f,'4'¥lj,¥~+¥"• •"O/: %,¥:!j.
a
01327
.,___,...
r~~ E~~
-
.
~
REWRITE
EWRrTEX
01000000
21100003
o
•••••••••••••••••••••••••••••••
NTRY'···\~HICHPERPORMS·······IMpnRTANT"80CKKEEPING·'''·",..
'{-
01324
01325
o
IF ALREACY REWRITTEN
INDEX 2
INDEX 3
IF'l'!' M!jST'~8 E'RE WRITrEN
ADDRESS TO THE Q REGISTER
FORGt:TABOUT ~RITING IT .OUT
GIVE UP THE'F1LECOREB(OCK
0132301000641
0
NO
JUMP
SAVE
SAVE
""j U MP
CORE
473o.131Q P
0
•• , .•• ".,.
SANE INDEX 1
47201307 P
0
REWRITTEN
i '• • • . , . " " . • . ,
G1'320'tJ33iH27 UP'
01321
WHEN
r ELEMENT
RESTORE INDEX 1
RESTORE INDEX 2
"RESTO RE' .. r'ND EX····3 ....",.,,", ...• ""'.""'."".' .• . .
TELL THE CONTROL BLOCK THAT IT
L,ON(;E::gH.A..S.Ttt!;.FJ L!;.CO.RE f?LQ CK
0,1,31:5,··,·",· 471013D6,P
01316
RTN
THE FCt:
.. INITIATETHETRANSF£R, .
01306 14100000
01307 14200000
0'1:3 :1:0"1:43 OOu ti
U1311 1460000
01312
4010000
01313 DIDO IlOO
01314
03001313 P
01317
I~
o
.'f.¥::If.¥.
* ••• •'¥¥:tp+'>J·,y, .'¥ Ji.;"Jf. •
¥-¥~.'.+
•• '•
THE
RESERVED BLOCK
.""
•.. ,
•
.1$. • • • • • • • . • "" • • • 'if • • '. if • • .>jo"'4-.~.:• • iIJ.'
o
o
o
'''--
RIT E x:
0:1:328 'trtJitJOu03""'"
01332
7? 63 (j COD
53020036
01335' 2G001275X
01336
3710000E~
G13J740i [l 0002
o
i )
B rrZ3'
COREP,CNSLK
"··,,C·OREP,CNBLK
GET Jt!ST THE CH~NGEQ 8IT
"STORE TTBACK
GET THE ADDRESS
FORM THE 1/4 FA
0':
o
o
o
On
o
10'
o
d'
01340
01341
77650001
12000Q11
·····'u1:342·"351:iJO 002 .... "..,,,,,,,... ,, ..
0,
I
01343 [10701313
oJ3 44. .,Q j,0PJ,3,?4
P FLOC+PFR
9
.u'Ct)RE peNS!:: K"
REWRItE
.,,,FU;~g:rJ~.Z:.
'CHANGE I:)
.... ,..u.,,,. u
RJ;.TUB N.
FIL
I
~.
o
I
I 0·····
I
o
ASSEM8LER/OS3
·····u 1345
QUO GOO 0 .
00001347
01350
··0 00000 a o·
01352
00000000
'0 00 00 00 O·
00000000
01351
00U01351
01353
.Ol;3~5
o
G
o
.
1271
·1272
1273
1274
.
1275'
1276
1277
ooouoooo
1c7e
01356
00000717
01357·, ,DO 000000
01360 P
01361
00000000
01362 P
01363
00000000
05714'p
... 01364
0000'0 000
01365
01366
01367
U1374
23
OISKCOP
~j XA Q
VFO
i'ISCPTR
VFO
12('0
CJ
01J47
01354
PAGE
Vi.O 09/21/74 2236
1279
1280
1281
1282
'1283
1284
1285
"1286
1287
00000000
aOOUOOO a
1288
67676767
1289
1290
626,37767
" 00026
·1:29-1·····
1292
()
LINES
A9/IMPURE,A15/~+IMPURE
... IMPURE . . . .....
.... . POI·NTER··TO· SUBSTITUTION LIST
vF 0
A9/IMPURE 1 A15/·+IMFURE
FCLIST
VFD
A9/000,A1?IIMFURE
'RTNCOl:JNT VFO
A2 l t/IMPURE
NUM8EROF8LOCKS 8EINGREWRITTEN
LCWVALFC VFD
AgiO ,A15/IMPURE
TOTAL
FILEFREED
BLOCKS .
COUNT
VFO
l,,( ."
.. A24/IMPURE
. . . .. ... ....... .
WHICH NUMBER
REMAIN' OF
Te8E
FREEFLAG VFO
A6/IMPURE,03/D,A15/FREEQ8+IMPURE
TENP1VFD
A24/IMPURE,A24/INPURE
TEMP2
fQU
TEMP1+1
TEMP3
VFO
A24/IMPURE,09/000,A15/IMPURE
T H1 P 4 . . ·EQUMM·T Et1 P 3··t!'
TEMPS
VFO
A6/IMPURE,03/0,A15/IMPURE
¥l~-?~t\P t~g,·G·6 ~~b~O,AT51Il1FURE
.1.... CHARAGJ E;R Of lEMPORAR'l .STORAGE
TEMP8
VFO
A24/IMPURE
· T E M P 8 V F 0 0 9 / G OO,A1S/IMPURE
LOSTMSG dCD,C
23 XXXXX FILE BLOCKS LOSTA
IF
OE~UG,8AOBLOCK BCO,C 22,XXXXXXXX eAD BLOCK NOA
"IF"OEl3UG, BADal KL' EQU, C 'V--8AOBLOCK"
HXSLI:::;l
(; \~ A I T Q
.
··00
o
o
1,0
.END
WITH ERRORS
o
i
o
..
.....12(1:3..
NO
A~~llMPURE,A24/INpu~E
""'0
o
o
()
o
o
o
o
o
o
o
o
o
(~;.
o
d
o
0,
o
0'"
fO
o
o
o·
- --- --- -
~-
- -
~
-
- - - - - - _._------- -.-.-
- -
---.-- - - -
- - - - - - - - - - - - ..
-.~-
-
-,- -
-,- -.- -
-,-- - - -- -- -- _._._,- - - -
o
- - -
-
~,-
- -
--
- - - -,- -,- - . - - - - - - - - ---.-.- -
-
-.--.
ASSEM8LER/US3
Q;
Vl.0 09/21/74 2236
~,
<]}
,
I
ACCWORD
x
x
A U(~
'3Al) '3 t K L'
"'lJ0026 ".
8A 0 3L OCI<
8IT15
()
x
x'
x
""""""81116
8IT17
x
81T23
:;. f3LKR
3LOCKT8L
3'f2 01'9113
0
I
II 0
I
OODOO
x
,ALT,
ARRAYTdL
~
~
~
01374P
71
,153
66
00005
CrOCK"""
0
·,70"
88
COREP
C aUNT
cpp
... ····,>J."CPpx··
0
1277
77
DrJD2 .
1351P
CHAITQ
0
1004
"
N
348 00143P
56800 362p··"·,,
614
Q0416P
,,1261013 35 P
1257 01325P
1258 01326P
392 00211P
··········764'OD564P'
''''':1.:'04'S''01075?
724 OOS30P
727 D0533P
1035 Di057?
····",·1,171,0,1244 P
,li4101207P
1169,01242P··
1258 (J1326P
1262 Cl1336P
1263 01337P
326 OD116P
752 00552P
831 00635P
""'''ilS'!]'D1217P ""'".'""" ··1199····0I263'P
··t2220t274P' .
1017 Oi054P
1019 01(J55P
·"'939'tf076l:),P"
"~29007 ~ 7P
76 O[)UGOP
323 00114P
727 OD53JP
105,4 Q,l,lU.6F.,
1236 iJ1312P
··117'501251 P
d85 D!J677P
918 00735P
919 00736P
li71 01244P
1172 Oi245P
..•. .... •... , ..
70i 0051)4P
759 aOSSIP
791 OiJ615P
iJ§J . . 0.J:lJ.6 P
9{"lraTD24FJ'
7 OOD37P
00232P
00233P
"
1
, D1'O
DE8UG
506 00322P
700
0050~P
772 00572F
o
434 00231P
. "'''''''''''''7'2'''''''''' """""""540 'M O' 0'3'2'7 'P"'"
76
1141 01207P
1285
286 OU051P
...... ". iLi'O "656"({Oi+'66P
00002
Ot35SP
00004
'
152" OO'uOOFl"
137 OOUODP
··15100000P
504 00320P
71
133
CONVERT
01 OJ 6P
CONVERTD
010
CONVERTX
... CO'RE"'''' ........... 010
040
0
aODGi
7- ,,0 06-32··P-
0
T G116SP
1291 01.402P
···'D'J:NT· .."".... ".,.",.
o
1048 011nOF
1172·Q1245P
1266 01342P
8.37 0064iF
1050 01102P
,1176'OI251P
1044 01D?4P
730 005::EiP
1262,01336F<
944 00764P
1035 01057P
1263·01337P
952 00774P
774 00574P
775 OQ575P
1054
1257
1136. 1 .. 0 2P
1050 ... l l
··1266
ij
LS;t
,
01 {) .37P,,,,,,,,,,
Q1170 ?
499 00315F
OH153P""·,,,,16 0·1·0-··6·6P·····
D1260P
7 01327P
7 iJ0432P
,,"{ ···0,1·1·24P"
16 01332P
o
7'
D5 L,·yP
0.:··7 e
iH374P
16,G.~.·1.
1290
DKCONTA;3
OKHH
D'KSTATA9
o KSTAT ·3L
C)
0
',<
DONE
EINT
EPP
o
FCA
330
o
FCB
(J0122P
1049 Off 01 F····
GO;:;
573 CG452P
338 00132P
113'80 i'20'4P
717 OQ523P
FC L IS (
FCS
l)
'--I
t:.
G1.35,2P
OUOGO
F,GV02
0n
FILE'"
FILEPR
0'"
0;
0'
FINK ....
FINKP1
_"
E
FIREPR
FTX······"'FIXED
FLAGS
·Fl:OOR·
:KJ.
-
000D2
0002 OP
00021P
FINKPR
OU012
FIRE'"'''E''''' 0013 06 P' ......
FIREPl
00007P
FLOAT
FLOATX
FORGET
-I' ~·-2 ""(j ()'"
o
Jouri='
o
FCVO 3
FCV04
·'FCVt16·······,
FEAR
F EARPR
785
Q ,,-.;?f-'
~
o
····FCr
FCVOl
i
354
1151
o
'"
0
o
o
. ""··"'''''·'F'7
F::3PP
0
0
DISKCOP
""""""507"OU'32'3F-'
1291 01402P
153 OOOOOP
67
C I~BU<
d
1
725",00531 P "",.," ,·,,105 6 ,0 1107 P
446 OU243P
1170 01243P
137
:r291··'····,···,··
1290
""68'"
69
C8P
CIRTEHP
!
I
PAGE
·····65"
'"
00010
·'U:f164P
01217P
131062P
Ul057P
"""01061P
01020P
o
"12311J1305P
231 OOODOP
,29 GOOJlIP
.252,00022P
251
30 OOOGOP
189
2~9 00017P
...... '238 . " " " ' U . . " 3'1'OOOf}O P ."""'''·'''2~0' '(}0010 u···,·······",···,,···,"
239
32 DOOGOP
190
237 00005P
' 1 1 2 6 3 3 00 iTO I J P T l 2 90 1173P
1150
1144 01212P
,80,344,00137 P
3450 OL40P,11G.30 1154P
1038
34 DOOGOP
1035
1062 01115?
1066 01121P
"'1 '0 (3 7'" "·'1 041'''l}1071P'''' . . . . ·······,,10 6 8 ... 01 :te2?"'''''''' 'M.'.,.... "", ••
974
907 U0723P
194
.,250
o
o
.1.10401155P
1161 0123 2P,
o
o
o
Vl.0 09/21/74 2236
00764P
944
256
OlJ025P
ASS:: t'l 8 L E RIO S 3
FORGETX"
FREE
FREE8LK
FREECI
FREECIC
"""FREEFTL2"" ~
FREEFLAG
FREEHIIT
FREEIR""""
FREELOAD
" FREEMEr1
FREEP1
FREEPR
"FREEPRi'!D
o
..81
01003P
01014P
00665P
01356P
(J0753P
00722P
OlG1SP
.X
n"n
0002bP
00003
·0 0 02L~p-
""
007llP
Dl005P
FREEQ8
o
FREESTRT
--""""FREEXf""
FREEX2
FREEX3"
FREEXlr
FREEZIP
"FREPANIe _
GET3LK
GET3UFF
GETCORE
GETCOREX
" " ""G E rUE~!
GIViJUFOl
GIV8UFF
_
GIVi3UFFA"'E "
GIV8UFFP ;::
GIV8UFFX
GTCHS """
GT C06
GIGO?".""
GT C08
GTCag
o
o
o
o
(J07i2p·
D060ltP
·0071·3P
00760?
00662P
····OIJ74lp··
960·
969
. ·8"'15
1279
933
906
9,0
.. ·82
257
193
255
903
962
··897
874
895
939
872
PAGE
2
OISI,< MXSR 04
MXSR05
MXSR06
o
o
o
I~X
iTp
421 n02iS?
552
16Fi
l1
1"
25 gOOD 3D?
1
0
0
srro8
472 U0270
. . . . . . . . . , ...... ·,385 Il0204
569 OIJ363P
570 00364P
0
NUMOKCON
()
0
43P
357 OOiS2P
MXWAITQ
......... ·. . .·......·....... IMXXI·f .. ·
N81T23
NIOP
NMSWAT'T'
o
'247
0
OCC
'dPNSG
OPMSGX
,.PAGET·A8l··
o
PC
PF 1
pp·toc"'"
()
.~
PFR .........., . . . . ..
'''PFH
1155
. ,' .~ ~..... ,. ':3' 0'5'
1.196
0
950
·····..·1196
tOa8
PSA
···11U
o
PURE05
1142
E
·····uOli.r5·P···~·················· ·····~950
·~n ~1"7·r)'-I
G1340P
QJ!lT?.f
4
011~4F
D ··u l·.ii··Y·F·
'OO'772P
t .+ ..:3':+ wO.:t...~O OF ..
10S7 D1146P
11~2
.lJit·] 6P·
1~ 6Lt
.•.1:5
:1100 0 .... 51P
1133· Jj, •• ·:l f.~:F
(J
0
READ"
REAORTN
RESERVE
........... R
Sf< ...
o
0
E's~rA
x
RETURN
.REWRITE·
REWRITEX
x
R~WONE
'RH~'
...............1-
0'1
RTN04
0 :. . . . . . . . . . ·. . . . . . . . . . RTNCOUN r -
00570P
01353P
RHRTi
o.
o·
01306P
01307P
...~~'uDi31fJP·
SViAPEXIT
01270P
x
)(
S~JAPPR
. ,,··,,··S·\'iAPX .., ......... '
S~I8IT
I 0'
I
0f15 Lr:iP·····
OGS47P
00617P
UOS64P
RTN01
RT
N02
. "RTNG3 ...
R\AIRT2
RWR"T3'
RWRTX
RX3
SELECT
SUBPR
SI-
>:
UO 776
"'00001
1281
1282
1283
128,4
1286
1287
1288
97
734
124
114
:130
PAGE
4
1092 01142 P
378 D017SP
1281 01J61p···
851 00656P
394 a0213P
1283 '01363P
659 OOLd6P
1285 01364P
. 656 0043iP
660 00437P
369··00·1·64P
284 00047P
383 00202P
·27100036P"
887 00700P
551 00342P
6580G435P
718 (J0524P
557 G03S0P
720 00526P
719 00525P
453 00250,P·,
293 UOD60P
OG353P
1145 Oi213P
.... "133 . 0 DCfOOP
w2680D 035 P
314 ClOIIJ3P
320 00ll1P
1229 01303P
a 01.35P
362 00lS7P
381 00200P
.
. ..···.··35G!lG145 P
369 0016itP
384 00203P
4:5900255 P'
50S OG321P
622 G0426?
67700455P
71'1 00571
o
tH1712
o
01132
Q1234
~~600391P
0026 7P·
306 00074F
471
'278 OOD44P'
330 00122P
···354 ··O·D14·7·P·····
370 0 G16SP
387 00206F
46(!'OD256P
562 00355P
624 00430P
7i9 "lJD52 s: P'
w
776 GOS7oP
·'933····0·Q75··3P .
1.145 01213P
1167 01240P
rriJ2T4P"
00252P
GO 21SF·
uQ336P
0036?F
oQlrit'3P
00464P
(luSi??
o
DG566P
oQ3 Cf; F
····587 00403P
1226 01300P
. 841 0'],:':·+4
,;()
",-".
496 00314P
289000 5 4P~
.3 00" 0 00 6 7 P 3 1 2 '00 .~:JI.;:J
333 00125P
338 001 ~p
J600D155P3&1 001
~
376 00173P
380 OOL/P
424 00220P
426 00 __ 22
'464' 00262P
501 003'1:5P
6 13 0 0 4 15 P
6 18 0 a'!· .C: p
671 00450P
672 OO~SlF
331 00123P
35·9 . G0154 F
373 (fOlIO?
423 002l7f
462002EOP'
tOg OG411P
660 OG437P
······73000535P
77S 006G1P
97401020P
1152 012Zl?
1168 01241P
305 00073P
~~Q GU120F
'f,)"
G02 30 P
463 O(J2clF
479 0 a27·6F····
SSG
00341P
576 OG370P
Ei73 0' Qff52 p.
69U OQ472P
714 (laS20?
-:1:1'08'" Oi'2CrI,fF"
01266P
Oi315P
Ou05ZP
a
1041 OiO?lP
1224
01276P
·7 5900S0tP
793
······975
1155
1228
00617P
01021P
01224P
01302P
3 !J 5 iJ 0 0 74 P
t6~O
00 SiJ:2P
3
a9
555
584
6?6
691
717
7e 5
872
D0346P
D0400P
0045 5P
00473P
558 00~51P
588 00404P
1047 010?l?
1049 011GLP
00240 P
469 00265P
··~,484 003 D1P
487·
a0 ~
J3f·
680 004(:;1 P_N
693 004742
00523P
723 00S27P
no 6·07P
786 0 OE lOP
09662P
874 QOE6~P
925 U 074 4 P , 9 34 0075 '-iP
1012 OiOSOP
1014 01051P
.. '''114'3''012'11P'u "'11510:1:2'2uP1225 01277P
1227 01301P
'2900 0063P
298~wOO OSSP
347 D0142P
356 00151P
4~~ 00242P .
45Du002~~P
489 a0305P
491 0038YP
546 00335P
548 003Jl~
..... ,,, 5 6. 9'U0363P'S;7 0003!::F{:(""
58J D0377P
586 004D2P
699 OOS02P
703 D0506P
839' OD6 l f ZP"
888 00701P
891 007L4F
902!H}716P~
'903 . 00 7:t]L.
935 00755P
945 007lSP
970 01015P
971 010j6P
'"12'~'fl-01'i3 D'4P'''''' .A·"'12'3 if ·······013j0-(»"
10'"
x
0·-'
o
.;0
0 0 (i :' !' tP
334 0012GP
446 00 c/o, :,::r
471 OO~67P
....... "443
"/,
840 OOb43F
978-0102SF,
1156 01')5 G
1232 ol~5b~ .. ,....." ...•.. ,'..,
329 00121P
"794 II 06 20 P~ .
XFLAG
()
.575 0036?P
420 00214P
U1'156po",
o
0,
57..3
U1031P
G106iP
X3
...
- tel2G06 04F
848 QD6S3P
'924 (J 0743F
1010 0104E:P
lJ Oc:51P
Df.l74GP
o
565 a0360r
1218 01270P
702 0050SP"'"
1228 01302P
il0114P
o
o
581 00375P
u69S{J0476pu
OOu70r
00,0 2
X2
2·9.5 00 0 62 P
890 00703P
. '67'7 . . . Ouit 56P"
62 OOO'OOP
560
,341
o
OISKGOP
o
o
o
o
o
o
o
o
11 '5
o
0';
o
o
o
.
-------~-----"-~---------~-,-----.-.-~-,------------~.------------~~,---.-~
..- - - - - - , - . - - - - - - - - - . - - - - - - - . - -..
-.---,-.~-.-------.----.------
Source Exif Data:
File Type : PDF File Type Extension : pdf MIME Type : application/pdf PDF Version : 1.3 Linearized : No XMP Toolkit : Adobe XMP Core 4.2.1-c041 52.342996, 2008/05/07-21:37:19 Create Date : 2018:04:26 10:54:47-08:00 Modify Date : 2018:04:26 14:06:48-07:00 Metadata Date : 2018:04:26 14:06:48-07:00 Producer : Adobe Acrobat 9.0 Paper Capture Plug-in Format : application/pdf Document ID : uuid:f450b219-61a9-1443-8178-e941424eb3ae Instance ID : uuid:077a752c-cf42-a04c-b528-4ed40df07b0c Page Layout : SinglePage Page Mode : UseNone Page Count : 27EXIF Metadata provided by EXIF.tools