20_DISKCOP 20 DISKCOP

User Manual: Pdf 20_DISKCOP

Open the PDF directly: View PDF PDF.
Page Count: 27

Download20_DISKCOP 20 DISKCOP
Open PDF In BrowserView 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                      : 27
EXIF Metadata provided by EXIF.tools

Navigation menu