25_MOVEBUFF 25 MOVEBUFF
25_MOVEBUFF 25_MOVEBUFF
User Manual: Pdf 25_MOVEBUFF
Open the PDF directly: View PDF 
.
Page Count: 34
o
o
o
o
o
o
o
o
o
ASSEM8LER/OS3
Vl.U
09/24/74
0310
PAGE
LENGTH
OF
P~G
01503
01.375
P
01456
P
00500
P
00
GO
(}
".
P
',""
00023
o i
242
01240
1
2
4
"5'
6
7
8
9
··10
11
12
OF."
.....
,
..
"
....
,
o
;,
o
1
hOVE8UFF
IOENT
twlOVE8UFF
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
>I-
' •
, r
HIS
'PRO
GRA"MI
S'fHE
81.:0
eKE:
RIO
ESt
0 C K E
RFO
RAt
LTH
E
UNIT
RECORD
EQUIPMENT.
IT
CAN
BE
THOUGHT
OF
AS
3E I
NG
TWO
DIFFERENT
ROUTINES
U
RBLOK
(READ
.llNCDESt
aCK),
ANOUWB[O
K .
rw
RITE
AND
8 LOC
k).
. . .
..
. .....
....
.
COMMENTS
OESCRIBING
THE·FUNCTIONOF
EACH·HALFARE
AT
THE
BEGINNING
OF
THAT
HALF.
INCLUDE
~SYSMAC
S
VS
MAC·
.
COS
Y
10'3
......
...
.....
lt~I
ENTRY
·HSINP
ENTRY
IMPURED4
ENTRY
KILL
""ENTRY
'P
URE
04'
ENTRY
QPNT
ENTRY
SENOT
ENIR'r··
S
EJ40T
ENTRY
SIRT
,
..
.E
ti··T
R.Y
..
U·Rf.H.
0 K
ENTRY
UR8LOKI
ENTRY
URBLOKIZ
"'ErJ-TRY'"''UR8LOKQ'''''
,
ENTRY
LJRBLOKNX
ENTRY
URBLOKQX
"·ENTR.V . [fWt3IDCK'
ENTRY
UWaLOCKB
AGGNUM
BIT17
NKS
'
13
'\
9
21r"'
2.
}::'R~;-~"'L}
",,,.,.F·:~EE
k
~
t~l
I:.
RO
THAT
SEZZ
FORMS
················,.,"'UTTNE
TC'F;:(EEFTLE
BLOCK
ROUTINE
TO
FREE
FILE
,
....
.J~ourI
NE .
TGGI\i£fi
A C K
ERE
EST
0
RA
G E
...
ROUTINE
TO
GET
DISK
BLOCK
ROUTINE
TO
SET
CORE
BUFFER
II
()
."'
I)
0
0
0
p'
......
,eU
i,
0
0
0
0
0
0
0
0
0
G ET8 L K
GET8UFF
'''S;;T,.,I\;::::M
G
I\/[~
LJFF
GI'J8UFFA
";;:'0
iJ
liNE
..
f'C·
SET'
..
FiR
EE"'S
'1'
eRA
GE
....."
'c'"''''''''''''''''''''''''''''''''
,.,,,.,
"."",.,,,.,.,,.,
",,,
•.
,.,.,.,,,
""",,,.,,,
.•
"
ROUTINE
Ie
GIVE
BACK
CORE
BUFFER
..
'TFEND
.........
.
I FEX
IT
INHIBI
T
...
,
....
"
...
,
...
,
...
".,,,
...
,,,.,.,"',
....
,,.,",
..
,,",
... ,
..
I
08US
Y
IOCLEAR
FILES
lEFT
TO
DO
.
"·······RO'tJTI
NE"TC-'
TYFE'MESSAGE
TO
"OPERAT"'"
0
0
0
0
0
0
(I
I
1 (lll
~
~
I
1
()
1 0
!
i
I
I
I
I
I 0
I
I
I
I 0
I
I °
°
°
0
0
C)
0
0
0,
0
0"
0'::
00
0"
=ro:
0:>
ASSEMBLER/OS3
Vl~U
09/24/74
0310
oooot
'00
002
00003
·0
OOOL~
00005
00006
····d·O
U 0
']'
...............
,
.............
.
00010
00011
····
..
00·Q12.·
00013
00014
00015
00016
00017
..
u 0 a
12
PAGE
2
~1OVE
8U
FF
EXT'···
.............
·Sf
NClrA81"
EXT
SENOTAGL
EX
T
···vJ
RIT E
..
·
................
.
()
::0
(.
0
0
Ie)
,
0
····
..
···FIRsr
..
A·CDrlESS
.....
ceNTRO
tL:ED··ay'··
.....
.........
.
0
FILE
LOCATION
ONE.
WORD
LENGTHO.FFILE.8LOCK
HEAOER~
U::NGTH'O'fFILESLoCkS
.....
.....
..
...................................
. 0
0
MAX
L:ENGT
hFOI1
A
FCRMSREGORO
0
"t
•.
':7'~"'"
···,
..
·····,
..
····,···
..
•
..
••
..
··'*,
..
•·•·
..........
••
..
·•·•
..
s
EZ
·z·
..
ecNTRCt
...
·
..
CAR
0
SE
ZZ
F
ILf:
~'1ARK
0
/~..,.
U
0
0
0
.................. ,
.........................
..
0
c)
0
0
0
A
SSEM8LER/OS3
V1.0
09/24/74
0310
()
o
o
o
o
o
o
o
o
o
o
a
do
o 1
o
(")
0····
PAGE
3
MOVEC3UFF
UNBLOCKING
ROUTINE
>i-
4'44;<>1-
>;'-'/-
>;-::;.
¥
....
>,<
:>;.>;.>;-
¥
~u,<>J.
¥"P,;.
¥.tJ..tJ.
¥.tJ.
Jf.
>;.
>1--'1->;-
JI.
"I-¥-''I-
¥-'f.J,c'f
'f'lI-
'.tJ.
""
>1-"1-
>i
>;.
JJ.
Jf
1f.¥
'f 'f
11
4''''''1-'1-
'II-
1;104.tJ.Jf.tJ. Jl.1f.
,.IfoJl.
Jt.
..
JI.
lU5
~
~
·106,
107
108
f·URSLOK
•
109
'"
.....
Jj-
•....
110
111
f12
113
~
114
..........
>f-
115
116
117
118
119
120
121
122
123
124
~,
.1;-
...
¥'
THIS
IS
THE
UNIT
RECORD
OEBLOCKER.
IN
ADDITICN
TO
DEBLOCKING,oUtPUT'FILES
THIseODE'H
A N
uLES""'"
KILLING
OUTPUT
FILES
ALL
OPERATOR
MESSAGES
AND
RESPONSES
"
RESULTING
FROM'"
SPEC I A
L"
FO
R
~lS'"
.,"
ALL
OPERATOR
MESSAGES
AND
RESPO~SES
RESULTINGFRON,THE
REQUESTTNG
OF
DEVICES
THAT
NEED
TO
BE
READIED
BY
THE
OPERATOR
BEFORE
OUTPUT
CANBEGI'N.
TO
INITIALIZE
PROCESSING
Of
A FILE
ENI
'"",.,
,
.,'",
8
LOCK;Xf
"'"
'"
..
,
ENTER"ADm~ESSC
FCONT
ROC
SLOCK
ENI
RETURN
1
X3
ENTER
RETURN
ADDRESS
UJF··"
URBLOKl
URBLOKI
WILL
MAKE
THE
IMMEDIATE
RETURN
TO
THE
'AOORESS"IN"X3ANu"REfURNTOuTHECALt:
'8ACK'A
CORESS"
CAS
DEFINED
av
THE
CONTROL
BLOCK
MACRO}
WHEN
DATA
IS A
VA
I
LA
BL
E.
UR8LOKI
Vi
ILL
GHEC
K
TO
SEE
IF
THE
"OUT
PUTOEVICE
NEEDS'
Ie
'HAVE
FdRHSREMOV
ED"
FRO~THE'
PREVIOUS
CUTPUT
FILE
AND
IF
SO
WILL
SET
A BIT
IN
THE·FORMSHORO
TO
SAY
THAT
THE
NEXT
Fli..ESHCUlO
BE
SENT
TO
THE
ORIVER
WHEN
THE
OPERATOR
STARTS
THE
DEVICE
ANO
THEN
EXI1.
IT
ALSO
WILL
CHECK
TO
..
SEE"IP"'TH
EDEVIGE·IS··ONE·THAT
"THE
OPERAl'OR1'\U
ST'
READY
ORE
IT
CAN
BE
USED
(SUCH
AS
THE
PLOTTER)
AND
IF
IS
IT
WILL
PRINT
OUT
A
MESSAGE
OF
THE
F'
Q
R'
f.,f
..
-----
--'.""--~
- - -
.,REt~[lY
...
ABCD,
W
HER
E
,Ai3CD--TST
H
E,
GEV
ICEl\AME
CONTROL
HORC
AND
EXIT
--OKTHE····DEVleE.·······
tED
BY
THE
CPERATOR
HANDLING
IS
RECUIRED
--oaTAI
NAF
Itt.
CC~.E
..
DRIVER
TO
READ
IN
ON
A FILE
,
..
,:,;. .
'"
,
..
"'--
'"
'I-
~
>f
'''··'ENT
ER'GOI';1'RCt'B
tOCK'AODRESS
..
··....""····
..
,····
ENTER THE RETURN ADDRESS
I,DDRESS·
INX
31FT
HE'
IN
X3
PLUS
CNE
CALL
SACK
REJURN
S
IN
ITo
ON
EITHER
E
OF
THE
FOLLCWING
'CFT
FrED
IF
FE
HE
NT
TYPE
S a
F'
VARIOUS
D1UVERS
ISFOUNOURBtCKWILL.
····················WH
HE
RECORD
BUFFER
OF
THE
DEVICE
AND
THEN
COpy
Rt:STOF··THE
RECORD····TNTO···THE····SUFFER
. trSNCRMAL······
o
USE
A.S
.AN
OPERATCR
COt-lMENT.
WHEN
THE
REGORD
. "HAS
8EEN
...
MOVED,TO,.IHE.SUEFER
....
OP/'LSG,,,lSCALLEO
TO
...
PRINT
THE
MESSAGE
ON
THE
CONSOLE,
A
BIT
IS
SET
IN
THE
FORMS
HORD
TO
SAY
THAT
THE
DEVICE
IS
WAITING
"ON--FOR
MS·ANa··E-)<Fr"·IS·
NAO·E'··T0':FHE··Ncr··cot'PI.::FIE'O·'·
..
, ...... "
RETURN.
AFTER
THE
OPERATOR
HAS
OKtEO
THE
DEVICE
THE
NEXT
RECORD
IS
MOVED
INTO
THE
BUFFER
AS
NCR~AL
··'·''F'''''··'''''''A'ND''TRE'CArSAfCRETURN'rSTA
KEf\J"'OW E
XIT~"
.
IN
AN
EFFCRT
TO
SIMPLIFY
THE
DRIVERS
THEY
SHOULD
..
USE
THLQUEUEI.N
G.,
..
RDUTI.NES
..
.IN
....
TJiI.SPRO.GR
AM..
..1
HESE,
ROUTINES
WILL
DO
ALL
THE
NECESSARY
CHECKING
FOR
THE
DRIVER.
SEVERAL
ENTRY
POINTS
ARE
PROVICEO
.....
.1:8:t·,·,··¥··········w
.•
,.
A·NEl···ARE'·EX'P·I:.:A':f
NEO···SEL·QW·o····f
HE·Y·'USE
···f
H
E·
FO
L LOWiN'G"
CAlLI'N
G·..···,·
..
··
182
Jj-
SEQUENCE:
I
:\
'-'a".
,j
o
o
o
()
o
o
o
o
o
o
o
o
,
O
'~
o
o
o
eli
E·,
~"
r.
I
()
1
I
0
I 0
I
I 0
I
I
/ 0
I
0
0
0
"''',
U
0
()
0
Q
d
0.)
0:
0(.
O·
I1:
0;'
ASSEM8LER/OS3
V14U
09,24/74
0310
PAGE
4
f'JOVE8UFF
".if.
....
184
>(-
UNBLOCKING
ROUTINE
;;.
:v.
......................................................
·····························185*·····················
...........
.
ENI
ENI
ENI
~
~~8~~;~2'
..
·
..
ENTERCONTROL8
LOCK
ADDRESS
'f
..
186
'f
ENTER
RETURN
ADDRESS
,..
187
"I-
FC3,X3
ENTER
FILE
CO~TROL
BLCCK
ADDRESS
'I-
..........
"
......
,'...
.......
...........................
,
..............
,
......
,
.......
'1.
b .
8""
'N
••
•
'......
..,
~<
••.•.•
189
"I-
UJP
190
'I-
.
...
,
............
,
.........
""
..•
,""'.
P
ROPER
ENTRY
'IF'
··CALlTC·"··UR8l:.·CKQ""·ORtJR8L·OKQX"·""":v.
11-
>;-
"'19:[
.....
.If.
...
-
UR
BCO
KQ
...
....
,...
...
,
192
>t-
,,,
...
,,,
...........
'193
~<
THIS-
ENTRY
..
HILLCHEGK
·TO
..
SEE
..
I FTHEDEV·IC€··IS·
8USY····,·
194 *
AND
IF
NOT
WILL
MOVE
THE
NEEDED
INFORMATION
FROM
195
"I-
THE
FILE
CONTROL
BLOCK
TO
THE
DEVICE
CO~TROL
MACRO
.....
,
......
,.",
.........
',
.................
,
...
,
....
"",'".,
....
,""
....
"
...
" ... " ..
',
...
"
..
,""
..
·
..
····
..
·····
..
·,,···,········
..
,········
..
•·
..
·1·'l"~
..
"
...
,
.•.
,
...
,...
.,;........
...
"
.........
""'A
NOwE
NTER"TH
E'"
DR-I'V'E
R"'f"
H'R
tJ"'T'H E'"
ST'
R'Y
LOC"
"A 0'0 R E SS'''l'N''''''
-'f
",.
\).1;
....................
"f.
..........
.
>I-
.J1.
THE
DEVICE
CONTROL
MAGRO.
IF
THE
DEVICE
IS
BUSY
....
8
...
CA.L.l,.
.....
WlL1
..
SE.:
..
MA1JE
..
TQ.
JJ..Ej3hQJ<:QX~
......
,
............
,
...
..
UR8LOKQX
CALL
GETHEM
TO
REQUEST
A
FOLR
HORD
RY
TO
SAVE
THE
NEEDED
INFORMATICN
ABOUT
•
1J!.
.......
,,''',
..
, ........ ,
...
:v.
.....
.
•
>I-
..•
"
........
,
.•..............................
.>j;
:v.
'f.
".
•
IT
..
,,.,.(""'.'"
E'A
ND
LINK"
INTO
A QUEUE'iJE F:INEOBy
..
·..
................,
..
,
.....
""
>to
...
¥
..........................
.
IN
THE
OEVICE
CONTROL
MACRO.
...
JI.:.
NTRY
. HILL CHECK· I F
THERE
·AREFI
LESWAI
lING·
•
OUTPUT
TO
THE
DEVICEo
IF
THERE
ARE
NCT
EXIT
•
LL
SE
MADE
TO
THE
QEMPTY
LOCATION
DEFINED
BY
THE
'f
.
......
•
'f
'f
•
¥.
.·.MM
....
•
..
·CEV'f'CE
..
eO·NTROt·MACRO.'TF
·THERE'''ARE'THE'''NEEDE
..
,
............
,
..............
,
.......
"
.....................
,
....
,
..
JI.
...
..
•
INFORMATION
AdeUT
THE
FILE
ON
THE
FRONT
OF
TH
:;.
QUEUE
WILL
BE
COPIED
INTO
THE
DEVICE
GOhTROL
")J..
M{U·TH
EO
RrVER'IHlLBE'EN
rEREOT
RRUT
HE
AoOK
•
DEFINED
BY
THE
STRTLOC
WORD
IN
THE
DeVICE
co
:;.
····r1ACRO
G
';
)
....
,
.............
()
..,
........................... "
.....
" ........
..
()
o
o
....
10
o
o
o
o
o
o
o
o
o
o
o
o
o
o
ASSE~8LER/OS3
Vl.J
09/24/74
0310
outioa
00001
00002
00003
ODD
05
OuOO&
...
00007
."
00010
0001i
00
ClT2
·····00013
o
[)
flO
o Q
00
PAGE
221
'3
6
7
8
9
10
11
12
13
14
15
16
········17
1
MOVE
8U
FF
URaOEF
UNBLOCKING
ROUTINE
.~
~
•
'I-¥.¥'J:.,q'
'1-'>"
"f.>1-
¥>;''I->;'>''
>;'>"
>;.
.. "..'10>;'". 'I-,¥-'l-
..
'I-
¥
..
lJ.
..
1J.>I-
..
'I,lfI.'I-'l->J.>:-3·lfI..¥.1J. "f."f.'f.
>J..:'i1:
>I-.:'I-.'1
..
"f'l-
..
'I-'l.
..
'I:
1j1.
••...
"f".'f.~>J..v,
..
".."f
...
>i-"f'f. "f¥-.Jt.4J.."'.
."f
>J.
·
~
UR8l0CK
BLOCK
OEFINITIO~S
i'
Jt.
•
v.
Fa
.....
SLF
8F8GN
...
"f~
dFCPP
• •
..
;.J[.~"
.J[.
EQU
EQU
EQU
EQU
. 0
.....
FB+i
BlF+1
8F8GN+1
CAL8AK
.....
EQU
..........
~
...
~
.......................
8ECPp:H
..
.
".:y.
. . ....... .
·
'"
IMAO······
...
•
'f
l. NIt"!
·······K·IlLFLA
ENAG
NJM
ENIT
•
>l-
t
,\<
..
• •
•
JI.
"'
•
OF·
···EQU
GAL8AK+i
I
~lAO
+1
..
,
.............
·t:NfM+1~······
KILLFLAG+1
ENAO+l
·········~~·JM+i
"
'ENIT+T
DEV8lK+i
..
C
GUNT+l
P
OSI
+ 1
pn~(JRC
>I-
POINTER
Te
NEXT
FILE
BLOCK
¥
COUNTC
Fe
Loe
KS'IN
TH
ISF
I
LE
..
''If.
QUARTER
PAGE
~UM8ER
OF
CURRENT
¥-.
512WOR
D···
8
LOC
K
..
..
"f
POINTER
TO
~EXT
WORD
TO
8E
".
LOADED
FRCM
THIS
BLOCKe
THIS
".
'POINTER'ISuRELATIVE"TO'THE
>J.
BEGINNING
OF
THE CURRENT
BLOCK
1J.
GO
.
.TO
.THIS
AOORESS
...
WHEN.8UFFER
1J.
IS
DONE
AFTER
AN
INTERRUPT
...
~.
8IT23
SEZZ
CALBAK
•
LOCATICN··hHERE·RECORD
IS
TO
BE
"f
PLACED
OR
MOVED
FROM.
~
MAXIMUM
ALLOHABLE
RECORD
SIZE •
..
ST1-¥-,0
.
'J/.'
.
ENI
BLOCK~X1
J/.
UJP
IMPURE
•
TEH~FORuT~OtXU3
¥u
IF
81T23
DEVICE
MUST
BE
STARTED
'"
...
BYOPERATOR
.>1-.
IF
81122
00
NOT
PROCESS
FORMS
ON~
THIS
DEVICE
"f
'IF8I:f21"THEN'
STOP'~MA
CRO~~···~·
.....
.1fe~
IF
8112D
THEN
BUFFER
IS
UNSAFE
1J.
BIT 19 IS A
QUEUEING
FLAG
•
PTRTO
/.fWORD
BlaCK
.~....
...
.............
.
...
~
...
.
COUNT
OF
hOROS
IN
RECORD
•
RELATTVElOCATICN.INBUEFER.
.~
.....
.
CONTENTS
OF
PF1
'"
·erTt9·SEz··WAITI
!\GFOR
OPERATOR
TO
READY
DEVICE
BIT20
SEZ
WANTS
FORMS
61
f2iSEZ
HAS
FCRMS
B1122
SEZ
TAKE
FORMS
OUT
..
·
..
·.·.·.·
..
·.·.·
..
·.·
..
·
..
·.·.·8
IT
2 3 SEZ
SANE
AS.8IT228UT
DRIVER
IS
WAITING
TO
OUTFUT
FILE
,
..
u·......,.
u8Cu·.IDENT"
OFT
HE"OEVICE
'"
..
.. .
.....
¥:
...
NEXTJI.
•
ENI
BLOCK
Xi
...
UJP IMPURt
'"
AU
DRESS
TO
GO
TO
..
WHEN"
FILES'·
ARE
UNEQUIPPED
•
..
POINTER.TC.NXPTR.ANO.
L
XFIR··
•
ADDRESS
TO
fEll
DRIVER
THAT
IT
•
HAS
TO
MORE
FILES
TO
curFUT
..
'AD
DR
F:S
s:rO'TE
t:t:·
OR'I'V
E R
·TO·S'TART"····
FILE •
1J.
··c
,;:,
..........
~
..........................
, :lI"!.·:.>;:.·
•••
·•
J{.'¥:1J.
..
'f.¥¥,"'f."".
¥.'Jf"¥"I-Jf. .y.*
••
•
'.'f;
•.•
;¥~¥
•.
""
¥¥
""".l"'¥
JI.
•••.
'rI;¥-"
.>fl"'¥'f
"1
••
"1':;'
.'11".4411""".11'
>to.¥
)(""f'
o
o
o
o
o
o
o
o
o
o
o
o
o
o
()
o
~.,
~,
!
I
I
l
1
i
1
I
,
!
I
I
I
J
I
G';
(j)
C)
()
0
0
(",
'-
()
0
0
0
0
o
o
q
dl
0:
1
ASSEMBLER/OS3
Vlo0
09/24/74
0310
PAGE
00000
P
OOOuO
40300002
·OODOt·5.32000utJ
'.
00002
44300021
o G 0
(j
3
.1:>
..
"'00'003
'14'6
GOOO;::·
000Q4
4030{;)003
·0000514600052
·R
00006
01000420
P
..
trOOll?·"1773"(rO
0 0
00010
20iU0012
00011
03200030.?
'i}0012-20100016
00013
35077777
X
..............................
0·D014 ····..·401000
16
J0015
37077777
X
00016
03100021
P
00
01y·
..
·
't46·tl
00'01'"
00020
34077777
X
00021
53300001}
....................
··
..
··00·02
2"S.l60G(fOO
............................
"
.....
.
00023
20100017
00024···
4 Oll
015(H
rl
..
"...........
.. ..
00025
11006375
01477
1
00026
14-7lJ00
lLj·
".
0
002
..
7··
..
..,
0107777'1""
X··'"
0"0030
OJ
031
·0·0·0·32
00033
00034
U 0
21T
OU
"."."
... ,
........
.
270uOQ15
X
03000D3SP
34100016
013JODOO
01 .
6
MOVE8UFF
UNBLOCKING
ROUTINE
>t-
BF8GN,X3
SAVE
QUARTER
PAGE
ADDRESS
··············X·2
..
·····•·•·
.•..•...
"
..•....•..........
"
.....
"
.......
"
.....
""
................................
"
...................
"
....
.
URdEXIT,X3
SAVE
THE
RETURN
ADDRESS
>t-
""
..
HLNT
..
EtHER~WRD·co
UN
TOF
HEADER
BFCPP,X3
AND
SAVE
IN
CONTROL
BLOCK
UR8LOKA..
.
......
ENTE·RRETURNAOORESS
C
ALLFINK
SHOULD
THE
OPERATOR
BE
WARNED
ABJJl,lTTfi.IS.[JI:VI
C~
REMEMBER
ABOUT
ASKING
TO
BE
...
·"STA
RTEO
...
.
......
.
...............
.
IF
8IT22
IS
SET
THE
NOISE
MAKER
IS
ALL
READY
eN
FOR
ThIS
DEVICE
so·
OONtr
..
INcREMENTSCREAM·
..
····
....
·
...
··
....
··
..
·
..
··
..
·
...
..P.U.I
....
LH.E
....
RE:.IVRN"
...
AO
.oRE.S
.S."
..
.1
NIO
...
)C2
LOAD
THE
DEVICE
10
ENTER
THE
MESSAGE
ADDRESS
AND
LENGTH
UNIT
...
HAVE FdRMS
IN"
Ir·
()
()
o
o
o
o
o
o
o
o
o
o
o
o
o
o
ASSEMBLER/OS3
V1.0
09/24/74
0310
P{\GE
274····
275
7
I-lOVE
au
FF
UNBLOCKING ROUTINE
Q
()
.,
0
,
o
o
o
o
o
o
o
C)
00047
.
nnoooo
00050
53300000
00
05144100
U
21
00052
P
00052
20100012
....
,
'000531200'0002
OU054
03300320
P
00J55
77650001
(iaOS6
..
44100016
00057
201000U2
..
00060
..
776400Gl
..
OU061
14300063
P
a0062
01000376
P
00063'
2
OO~77
777
'X'
00064
03400227
P
00065
05500001
00 a
660TO'O
0233P
00067
27077777
X
00070
!tOl0G015
00071
17777777
00072
41100014
00073
. 2
{HO
00
06"
00074
05700013
00075
01000104
00076D3500Li6
'0001'7
00000TIJ02
···0 0
00100
1100
l'
00101
1470
2
'00102"
:1:42n024
I
f'P"
00103
01000D21
X
o
.00104.2[J[i[j
00105
3710
00106
351iJ
~",~.~
...
,.,
..
,....
001·07
"031:G
00110
14300
00111
OiUUO
001T2
20
OT7
00113
035Ull
00114.20100
00115
05600
00116 01000
•.
~~
••..••.•.•.•••••••
,
•.
j 0
:l::17
......
"'l:46V[I
£lOS:'
00120
44100015
()
00121
20100015
"
······
..
~········
..
·········o
0122
'175T7???'
00123
35077777
X
0:: -
..............................
·~lt~~·
.
~l~lg
~l8
p
o.
0'
IJU4S6 Q
276·
276+001
276+002
U~8[Ok"
VFD
TIA
SWA
UR8LOKA
EQU
LOA
A12/DINT
X3
URBEXIT,
Xl
;J.
SAVE~HERETURN
ADDRESS
SEE
IF
PHANTOK
SEZ
STOP
.......
'276+00'3'"
SHA
AZJ,lT
ENIT,Xl
2'3"21
STOPGIT"l'CJ
POST
....
276+004
276+005
278
' ....... .
27
9
·280
281
282
'283
284
285
286'"
287
·····288
289
290
291
298
PFA
SWA
LOA
APF
EN
I
UJP
LOA'
AQJ,EQ
8J~"~"
......
.
tElL
STA
ANQ
SIQ
t!),A~'
QSG
UJP
AQJ,
S
TOP
IT
PFLOC+PFR
P
FWORO,
Xl"
BFBGN,X1
··P.FLOC+PFW
.....
;J.+2,X3
GETWORD
'8
IT23
..
~
.............
,
......
.
FILEM
1
TER~rF·"···"
BITl
B
POSI,Xl
777778
C
CUN
T,
Xl
'LNi'M
Xl~"
F ORMREC+l
CHEGFORI'!
PLST···············
JUMP
Te
STOP
MACRO
SAVE
.PF
:1:
LOAD
QUARTER
PAGE
NUMBER
GET
A
WORD
FRCM
THE
FILE
BLOCK
········
..
·········CHEC
K······FOR··FILE~tJ,ARK
JUMP
IF
FILE
MARK
............
"HOPEFUCLYENOOFOATA'
ONLY
WANT
BINARY
8IT
··SET
INITIAL
P·CSITIGN·TOZERO··
MASK
TO
weRD
COUNT
SA\I'E
CCUNT
LOAD
..
ALLOWEtJCOUWl'FORO
EVIC£
SKIP
IF
IT
CANtT
8E
FCRMS
JUMP!
f'
NO··ERRO R
__
'f. *
..
'1-.
"t.>;'
'f
>t~.
>{.J,i.'f
'tI'.>;.
*
'It
l<~
.If.
'f.>I-.*
:>.1:.
11:.'1:;;;'
.Jf.
."1:
..
'11:
¥.Jf.
.....
¥-
¥:'f
'f.>;t"f¥-~
"'
..
"f.
"f:\,:.
'1:'''1-.''1:
>r.>f
Jf
~
~.>f:
.'f.lf . .J;
'f
....
Jf..¥ .'f.>!:"l'l-.>f¥:.1I-:\,:>J."''f:Ji.
'f
'f'f.
Jf..
.If.
'"
.If.
IF
THE
FOLLOWING
CODE
IS
EXECUTEO
SOMETHING
IS
SADLY •
"""'MAtFU
N
Or'10
NING.··PR
OBABL:'E'ITE
M
Sf
CdC H
ECKAR
E"THE'O
I S
KS····.·
""
{HARO~iARE
OR
SOFTW.ll,REl
OR
SYSTEM
TIMING.
11-'
:;If.
"l
',\<THISCmJE'HASNOT'SEENEXLCUTED
SINCE
EARLVVERSIOl\l
3~'O
...
'(.
•
HOWEVER
IT
IS
LEFT
HERE
FOR
OLD
TIMES
SAKE.
THE
HLT
·+1
•
.~.--
....................
ll'..IS
..
ASS
EMBlEO
N·8ECAUSEWE
<
OSUl·HAVEL1
TILE
01
SKTROUBLE
".
¥
HOWEVER
IF
or
K
TROUBLE
BECOMES
A REAL
FRGBLEM
THE
HALT
•
¥
SHOULD
8E
DEL
TEO.
IF
IT
IS
THE
SYSTEM
HILL
RECOVER
FROM
"f
BAa"RE:AElS··ALfrO~tATICtY.
.
(01/01172)'
•...
+
••
~
•••
*
••••••••••••
~
••••••••••••••
"f
•••••••
"f
••••••••••••••
"f
••
"f"f
•••••
"f
•••
"f."f
SS.A
.........
~
........................................
STA
UJP
..
'(.
AP
FOR
BAD
'0
L'
TPUTFILE
··OUTPUT
FILE
···SY·N·C····ERROR·····
ENTER
ADDRESS
OF
MESSAGE
ENTER
COUNT
FOR
MESSAGE
"'ENTER~
RETt:;RN"A5DRESS
..
~~
......
",
...
~
..
,,~.~
.........
~
.......
~.~
...
,
..
,.
PRINT tOUTPUT FILE
SYNC
ERRORt
T
NON-FCRMSAELE
DEVICE
BIT
o
BINARY
RECORD
BIT
MFI·P·NGT'TceO·PORMS'·
..
··TSTir
RETLAG\WRD
..
JUMP
IF
NCT
..........................................
HAS.
THE.OEVICE.8E
EN
KILLED
SKIP IF
NOT
'd
A I
TIN
G
PN.EQB.t1S::3.IT.
.................................................
(J
/
DC/)
(;
()
()
0
,,,
.. ) 0
:0
':,(
/
.....
\...-)
0
0
."~
"
~~)
()
0
(,
---)
0
0
0
0
0
0
0
0
~
~.
t;
~
I
I
I
I
I
I
I
I
I
I
CD
Cl
.J
ASSEMBLER/OS3
V1.0
Ug/24/74
0310
P t\
GE
(3
~iOVE
au
FF
UN8LOCKING
ROUTINE
.
"J
aT
2E;
'-15477
77
00127
4Ul00011+
..
······
..
3
:34'"
·······
..
··
..
··Txrsr
·····IHA,·S
00130
201000
lS·
00131
15600001
Sf
A COUNT 1Xl
··
..
········
..
···
..
············LOA
POSI,Xl
INA
i
COLJNT·uc~rN·C(rC
NT
ER
SAVE
COUNTER
LOAD
CURREN·T
··FCSITION
SAVE
eACK
COUNTED
UP
VERSION
Q:
...
f)Q;
00132
40100015
'00133"'''301000
05
00134
536lJGOOO
335
336
337
338
"339'"
340
STA
POSI,Xi
'ADA ···r·MAD,·Xl·· ....•
,...
...
··..ADC·ON-THEBUFFERAlJDR£SS
()
0
()
0
0
0
0
0
0
0
()
0
0
Oi
0.,
01:
00135
41277776
. (J013 6
14300140'
p'
00137
01000376
P
...
·····0·0
140····P···
00140
2010001LI-
00141
031U0126
P
...
""'001'42"'241-000
1-S
001L~3
53040000
00144
LH]u003a
'{1'OT4'5
······2
OlO'OUTG
00146
12000003
-
,0
O~14·7e
03,2,0.,022,3 ,p"
..
00150
04577771
00151
00000100
p;
00152'2
Gl0Dat6'
00153
77640001
00154
14600001
001553400'0020
X
00156
2U100005
00157
..
·53
60u
(l·D
O·
00160
201000.13
00
161
'5:3
70 0
(]
00
.
'00
16'2---24'
07'7'777-
00163
37300003
00164
14300166
..
"'001650100032'6
00166
1-+5200003
·-00167-
2·[I··10·0G::L·3
80170
5370QGOO
00171
20300£)00
001'72""'1'2Q
ODD
(18'
00173
17500017
00174
213·0f.lC!J2
-00:1.7513000(;11
00176
120UD!l11
......
....
...0017-7-
···
..
·14-30·0201
00200
01000325
00201
452U0&105
......••
M············O·
02cr2'
"'20nO'1
lrr
!.f'-P-
002()3
40200000
00204
200Cl046£+
'00205'21
fO'ClG:f7
00206
13iJi.HlfH4
00
2
07
45
2 DOl}
01
00210
20100015
00211
536
L
.·000[1
~tl
343
344
345
346
"''''00212''1307'7747'--
........
.......................,'$6'<;'
00213
14477777
310
00214
4Q200UDO
371
00215
"'2orD
(1021"372'
00216
53600DDO
373
00217..
..
20100005
.........
·
....
3-24.
0022D
1300D002
375
00221
15700001
376
TAl
x 2
'peST
............
~~.~
...
;i2;~5
UJP
GETWORO
NOTFREQ.U
.l!:.
LOA
COUNT,Xi
AZJ,NE IXTST
.....
...
to
'k""
......
,.....
PO S'I
·'ix'l·
..
·
AQA
SHAG!
2.4
...................... .
LOA' FORMSWRO,
Xi
SHA
23-20
·AlJ,
··N·OTFORNS····
USE
-6
HLT'
SYNC
t.O;2\"·
·
..
···PF\~
OR
D,X
l'
APr
PFLOC+PFW
ENA
1
...
RAO·..·S
CREA
M
LOA
IMAD,X1
TAIX2
LOA
OEV8LK,X1
TAIX3
3,X2
·0
EV8LK
,Xt·
X·3
O,X3
i\
......
•·
..
··~·
..
·
..........
•···
..
··6·
..
···
..
·
..
·
....
·
778
.................
2
..
,X3
....
9
9
.3I·+2,X3
...
NUMGONV
?,X2
..
·····
..
·FORf'1
......
·
....
·
..
•
....
···
..
0,
Xc.
8L4NKSS
......
···
..
·TDENT,xl·
12
..
·1,Xi2·_·-
POSI,X:l.
:x:
2 .
Il02Z'ZO:!::'OQiJ
103
X"·3;'('7
..........................
,
..
.
"'\]022'3
P
00223
201D0015
...
00224
4D10
0014
00225
045000DG
00226
00000100
P
:5l'iS
379
380
"NOTFORMSEQU
381
LOA
382
SIA
383
QSE,S
384
HlT
.'¥
POSI,
Xi
GOUNT,
Xi
o
SYNC
1 i ••
""00227P
00227
20100007
00230
04600000
00231
'0100030'4
"F
·35S·
i
""'···FILE
M'
"H""EQ
Lt·
.,
.........
--lo'-
•.. , .......................... .
0
0;
o
00232
01000237
P
00233
P
............. '
..
0
0233"·2010D·0
Oi"
....
00234
04777777
386
LOA
387
ASE
-388
',LtJP
388+001
LtJP
396
3g7
KILLFLAG,X1
o
FTLEX'
K ILL
IT
398
IERHF
EOLt
¥
.
..
"
·,·····
..
·399
...........
""
............
"
..........
"
..........
"
......................
LB·A·
..
··
........
·w
......
···
..
·
....
e
..
LF
..
,.x·t·
..
400
QSE
777778
PLACE
AODRESS
I~TO
INDEX
TWO
.STCRL
..
OAl,ll
..
WCJ~n
...
I
tUCaUFEER
.
GET
WORD
FRCM
FILE
BLeCK
GET
CCUNT
OF
kORDS
TO
MOVE
GO
ON
IF
~OT
ZERO
ARE'''r'HE
."
LEADI
f'\·Q
..
ANO····TRA·ltTNG
..
··
..
··
........
~
..............................
.
WORD
COUNTS
TbE
SAME
SAVE
OIFFERENtE
INQ
SHotlU
~£SCR£ARABOQT-F~RHS
SKIP IF
WORD
COUNTS
ARE
OK
LEADINGANO
TRAILING
WORD
COUNTS
"UO'Nor'MAT
CH······
RESTORE
THE
PAGE
FILE
...
M.A
..
KE
. .TtI
..
ECQN:S.CLE
..
C.RJ_
LOAD
THE
ADDRESS
OF
THE
RECORD
._.
-
GET
POINTER
Te
JOB
NUM8ER
PUT
IN
USEFUL
PLACE
·ANOOFf···A80RT~Af'\O·FOR~S"
aIrs
....
··•
..
·
..
_··············
..
•
........
···•
..
_
..........................
..
GET
Joe
NLil'18ER
RETURN
'CONVERT"TO
OECfl"'AL
SAVE
IN
MESSAGE
-·
..
·POINTER
TOtW
t-:8ER
OF-RECORDS
GET
UPPER
5 SITS
CF
RECCRD
COUNT
AND
OFF
.GET
..
NEXT
...
9SIIS.QLRECQROCGUNI
RETURN
CONVERT
TO
OECI~AL
SAVE
IN
MESSAGE
...........
MO\JE··THc
..
ST;itNE1ARO·STtlPp··IN
..
TO·THE'
..
·
..
····
..
···
....
····
.............................
..
MESSAGE
GENERATE
Tf-::!f:
..
lDE.NT
IN.LO
....
TJIE
ME:'SSAGE
....
"--
POINT
TO
THE
EI~O
OF
THE
RECORD
ADDRESS'
LO
ADIHE
..
FI
RST
VlO
RDADOR
E5S·
CONVERT
TO
CHARACTERS
LOAD
CURRENT
POSITION
SET
QOUNT
8ACK
INTOWCRO
SKIF
IF
WORD
COUNTS
ARE
OK
LOAD
KILL
REQUEST
FLAG
SKIP IF
TIME
TO
QUIT
......
JUMP'
ON
IT
NO
r
...........
.
·····IS·······'fH·IS-THE··tfjS·f····8tOCK'·~
.... --··
..
EOD
WORD
MUST
BE
+0
THE
()
o
10
o
o
o
o
o
o
o
o
o
o
o
o
o
ASSEMBLER/OS3
V1.0
09/24/74
0310
00235114-4000IJO
00236
00000100
P
00237-
20100013
lJ0240
53708000
00241
25300001
00242
17777777
00243
00777777
X
00244
P_
00244
20
iOO
0
13
002
L
t5
17677777
0024614300002
00247
00777777
X
00250
14600000
00251"'4'01UU'013"
.
00252
14600000
OU253
40100000
00254-14477776
00255
34077777
X
00256-53100
GDI)
C0257
53700000
00260
1560U007
00261'
441tlO
!HJ7
00262
153(j(jQiiJ
00263
1!t600267
00
26'4-· 44TO{J
Off
00265
20100002
._
...
_
..............
·00266-
01G777i'7
X
00267
P
00267
21100016
·
..
·····00270
..
·270
:77'777
U0271
03·0003
U0272
341000
...
-002T3'
20
1000
0027,+
40001
7
..
00275146
UO
00276
34000
II
0 2 7 7 1
1+
7
IJ
[I
"00300
11(H)01473U'
00301
142
.0.030.2
01
0
..
"'
...
.,.
...
:::
...
".,
...
."
.........
,
..........
00303
P.
OO:~03
14577777
01]30 1
+ P
,
'uO·304····2·0·1tH1016
00305
77640001
00306
20100021
'003
or"
5'37000!J
iT·
00310
13
..
00311
...
21
00312
05
00313
GiGO
........
..
..
0·03:1:4
"!H3
i1
00315
1777
(J0316
4110
·························
..
··_·····00317
015!J
00320
P
PAGE
9
t,;OVE8UFF
1+
(]
1
4U2
4 0 2 + 0 0 1 K I L
LI
T
402+002
402+003
402+004······
402+005
403
..
.T.!;.RMF x
403+001
40:3+002
403+003·
..
·
..
···············
403+004
403+005
3+000······
..
·ASE~
S .
HLT
LOA
TAl
LOAQ
ANQ
RTJ
EQU
lOA
ANA
····EN-I
RTJ
ENA
"STA
ENA
STA
ENA;S
RAD
TIA
TAr
INA
··SWI:"
INI
ENA
,
'S¥fA'
LOA
UJP
EQU
LOQ
................
tti
1::'
AZJ,EQ
............................................................
R.A
D
LDA
"'
STA
···············_·············ENA
RAO
ENQ
EC"H'A"J'
ENI
......
lJJP
FORI"lSWRD,
Xi
.
SIr2l'u
,
..
·
..
·
...
u
••....•.•
,
••
OONTSTOP
F
ORI"IS
NRD
IOENT,
Xi'
NOIOENT
MUS
r
ElF
T
HELP
ST
at
O"CI<
GET·
..
·POJNTER·rc G
BLOCK-
A=LP
Q=TFL
·KEEp·O·t\LYTPL·····
GET
RIO
OF
FILE
PTRT04
WORD
BLOCK
JUST
IN
CASE
......
SAY
4
WORD·
8L
C
CK
FREE
fv1EMORY
·CLEAR·······MACRO·'·····
SAY
THAT
THIS
DEVICE
IS
NO
LON.GER
.O.PING
ANYTHING
ONE
LESS
OUTPUT
FILE
CONTROL8hOCK···ACORESS-IO
·X3
RESTORE
THE
KILL
REQUEST
FLAG
POINT
TO
THE
RETURN
ADDRESS
SET
THE
ADDRESS
INTO
THE
CONTROL
BLoCK-
................................
..........
_u
._-
••
LOAD
FILE
CORE
BLOCK
AODRESS
GI~E
QUARTER-··FAGE··~ACK·
DOES
THE
DEVICE
HAVE
FORMS
IN IT
JUMP
IF
NOT
SET
THE
tTAKE
UT
FORMSt
8IT
SET
THE
IOEhT
t\TC
-THE
MESSAGE
SAY
END
OF
D/lTA
E"upAGE 'FI1:E'''WORG
R N
..
___
....
0
•...
" .. , .. , ..
"'
...
ROUTINE
TO
STOP
MACRO
FOR
PHANTOM
·GET"-SIOFer·l·····················
..
··
REMOVE STOP
BIT
SET
THE
CAL8ACK
FLAG
('r.·'
\.t'
,;()
C)
o
o
.........
,
u
o
o
o
o
o
o
o
o
o
o
o
(T
<Ii
~
()
I
()
1
()
I 0
I
I 0
I
I 0
I 0
0
0
0
0
C)
q;:
di
0
i'i
0;':;
03
0····
"]CIs
0>
ASSEt~BLER/OS3
V1.0
09/24/74
0310
.
"'LfO"326'P"
.........
.
00326
14-700060
0032712400022
003.30
45200000
OU331
14700000
···········0·0332"'4120
tl002
00333
21200000
00334
146000(]Q
'0'0335
,
..
"510
77
7 77 X
00336
402QOOOO
00337
146uOO
G
U·
00340
.322000G1
00341
13000052
'003
42"
-4
52
a
GO
01
00343
17700077
00344
04-70U060
.
00345'"
'010'00333
00346
212UiJOG2
·00347,,·01300GDO
Pt\
GE
10
HOVE!:3UFF
UNBLOCKING
ROUTINE
...
UJ~X.3·····
ROUTINE
TO
CdKVtRi
81NJff{Y--ro'DEC
ENTER
WITH:
A=NUM8E~TO
SE
CONVERTED
X2=POINTER
TO
3
WORDS
OF
TEMP
X3=RETURN
ADDRESS
RETRUN
SW
ITHICIGITS'IN'AQ"
FOLLOWED
BY
BLANK
PRESET
THE
TEMPS
GET
REMAINDER
OF
NUMBER
SAVE
QUOTIENT
ADD
TO
PREVIOLS
NUMBER
GOTO
NEXT
POSITION
'SAVEAGAIN
KEEP LAST
'~u~t;PT"I
IN·h;::QO
,_
~,
,~v
lI.....
···RETURN .
Q'
(;' )
()
()
:j
o
1.0
o
o
o
o
o
o
o
o
o
o
o
(I'
' ,
aD
()
~
()
I
,
I
()
I
I
i
I 0
0
0
I 0
0
0
0
0
0
CL
d)
0
0'
0
0"
Oh
"
'0
ASSEM8LER/DS3
V1.J
U9,24/74
0310
PAGE
11
hOVEBUFF
UNBLOCKING
ROUTINE
00350'
p'
00350
240U0123
X
00351
",37100012,
00352
4010U012
00353
2010U012
0035
L
r"'
53
71J
0
DO
0
00355
77650001
00356
44100016
'"Q
0357
·'2
a
TO
0002
00360
77640001
.,00361
·
.....
2 U
10
0
013
00362
14700000
00363
13077160
00364
..
··12400017··
00365
41100013
00366
17600777
'DO
3670
SoU
DO
02
U0370
14600U02
00371
15600001
00372,
40100
U
03
00373
53600000
00374
21203777
00375
···0131]0
croo
...
00376
20100003.
00377
03601000
00400
01000371
P
00401
533000UO
004u2
44100012
00403531000l.fO
00404
53700000
..
00405
20
Qi)'4f.HIO
00406
21100013
00407
12477760
..
·····00410
·····D5700002.
00411
4U301]0QO
00412
2010001&
OQ413
,
77
640
iTO
:r
00414
200U0350
G
0415.
3510.0.0t
2
00416
40100012
00417
1460035
00420
00421
00422
00423
00424
00425
00426
00427
00430
00431
00432
00433
00434
00435
'''''00436
01
G 00
14
77777
X
··01:-(1771'77<:<····
448
448+001
" ,
44
8 +0 0 2 '
448+U03
449
"'450
451
452
453
454
,454+001
454+002
454+003
FLWDA
45'4 +0
04""
454+005
454+006
454+007
455
4,56","~
457
45
E
FLWD
.
..
GETWORO
"EQLT
LCA
8IT2U
LP
AE
NIT
,Xl
Sf A ENIT,X1
LDA
ENIT,Xi
r
AIX3'
"""""'"
PFA
PFLOC+PFR
~WA
PFWORO
Xi
TO
A
8F8GN,
b.
"'"
APF
PFLOC+PFW
,LOA
,0
EV
dL
K,X1,
'"
'
ENQ
0
SHAQ
-i5
""SH
Q"
""""",,,,
""'2-4-9
SiQ
OEVdLK,X1
ANA
777<3
'"
ASG
RLNT'"
""
ENA
H LNT
INA
S·TA···
'fAI
LDQ
.
UJP'"
1
8Fepp
,Xl
X2
CORE-1
X2
n'\/.3
....
. L
..
""
,
/\,
X3
E NI T
Xi
Xl····'
..
X3
.
CORE·,,,,,,·,,,,,,,,·,
OEV8lK,Xl
-15
",,'"
,."".""'"
",,",
"",,",0,
r~·",'·"""'·'·"'''''''-
tNT"
,."
"""
""""".,.
.
S,
X 3
nWRD
Xi
FLOC+PFW·
SIT2D
"',,'
"".E
NIT t
Xi
ENIT,
Xl
FU~DA
GET
NOT(8UFFER
UNSAFE
FLAG)
AND
OF
FIN
FLJl G
,1-/
ORO
S10RE
BACK
INDEX
3
SAVE
PFLOC
'POINT-TOTRE
CURRENT
FILE'CORE
BLOCK
",GET"",PHANT,OM""CHANGE
FLAG""
FLAG
TO
A--PTR
TO
Q
"PT'R'TO
LeW2R"'C
RESTORE
OEV8LK
fLAG
,
SKI
P
IF'PHA
NTCI1
HAS
BEEN
RERE
ENTER COUNT
OF
HEADER
WORDS
COUNT
UP
PICKUP
POINTER
ANOS
AVE··!T·
ADDRESS
TO
INDEX
TWO
LOAD
weRO
FRC~
BLOCK
RETUR N
.,"',
..
,
.................
,".""
LOAO~CUNTER
FOR,PIGKUP
SKIP
IF
END
OF
fILE
BLOCK
GET
INDEX
THREE
SAVE
INDEX
THREE
PUT8L'C
CKI
NDEX·l
NTO'X3 "
LOAD
THE
FORWARu·"FOTNTER
SEE
If
PHANTO~
hAS
BEEN
HERE
F"
PHAN
TCMHAS
....
8EENHER
E
S
THE
CURRENT
BLeCK
f:
J
Hi::
pp
GE
..
fJ
LE
GET
BUFFER
UNSAFE
FLAG
SET
··lNT
awaRD
STORE
StiCK
ENTER
THE
RETURN
SAVE
THE
RETURN
ADDRESS
SET
THE
ADDRESS
FOR
THE'
OISK
CDMPLETION
"
.....
,'
.....
COUNT[]
OWN
THE
!\UM8EROF,8LOGKS
HOWEVER
CHECK
TO
SEE
IF
NOT
PAST
THE
END
OF
THE
FILE
'i:;OADnFlt:E
nBl:.OCK"nNUMBER"
n"
LOAD
PAGE
FILE
ADDRESS
COMPUTE RETUR
t\FR
OM
FINK
HE
ARE
FAKING
A
RTJ
GO
t'lP
UTE I
NT
ERR
U
PI
RETURN
~IORD
COUNT·
READ
OPERATION
···CAl:.t
l'hE"'OTSKtl
RIVER
t''Il?"
~
C)
o
,0
;;'0
o
o
o
o
o
o
o
o
o
o
o
o
o
--
- -
--
--
-
--
-
-- --
-
---
--
-----
----
-
----
- - -
----
--
--
-~
------
-
~-
~-
--
-
--.--
-,--
----
----
--
---.---._--
---'--"--_.
__
.-.-'--
---.----.-
-
---------------,-----
'·"".'~"i"W«'l:!S~?,f~'I;:;;;il~,Q-;'iw.»'.m,!(,.,'iiIW'~:.f~~'t:'~~·'~:;.t$l$·-="lcwnn5~;"1;i_M':';,,~ilWi-~",'iWrti!'<;':<':W_'_~"""""'~""""'''''''_~'''ao/'''_''''''''''',,",,~~_<''_~'''''''''"M",",_~"",""",,'='-_"""''''"-'''w''''~~~
.",_~~.,..,~,
......
"
.,""
__ ,
~
..
~~,
..
~,.,""
__
,"_
..
___
.>
••
CI)
(f\
,
t,
()
~
, I
~
i
()
~
I
()
1
I
I 0
I
I 0
I
I 0
I 0
0
0
0
()
0
Q,
J,;
d'
0
<)
01:
I
0,
0'
':l
\,
ASSEMBLER/US3
V1.0
OY/24/74
0310
OOL~37
P
'00437'"
53300000
00440
44100021
00441,,12477766
'
00442
41100002
00443
20000322
X
0044'4'351:U'0
e
04"
00
1
-+45
40100004
00446
21100007
'"''''
,""
",",
00447"0570
0001
00450
01000237
P
0,OL61
14477776
00452
34100001
OOlf53
20100016
00434'
"'5360000'U
00455
01200000
0'0456"460'463'4
00027
,,""",','
""""
,0
0
463,
00464
606Q6260
PAGE
496
497
498
12
, hOVE
BU
FF
UNBLOCKING
ROUTINE
¥-'>,<''1'¥-'Jj.'',<'
¥'J.Cj;:¥-").l:::;'~'C':if:');,"f',,(:r:
"f'¥J..('f:;.>,<'
.....
);,¥-~nil¥¥
....
'¥::i
JJ.';"
'i
....
JJ.¥-'
'{if;q.' ¥-if";:'iJ.',{lf"f J{i;.Jj.'"i}."i}.'J{:Jf".>;.4¥'¥:,T..>;.
JJ.'
>I->I-lj.¥-' .,..'JJ.Jf.1J.JJ."
¥
JJ.
>f.
RETURN~JOHERE"AF1ER,HASS
STORAGE TRANSFERS ,,..
SAVE
THE
RETURN ADDRESS
FO
RM,1l4,
P·AGE
..
,NUM
8ER··
..
SET
THE
CALBAK
WORD
WAS
THERE
ANIROISK"ERRCR
5
kJ
P
'1
F'NoT·
...
....
FORGET THE REST
OF
THIS
FILE
DECREMENT ,THE
FIL
ELENGTH··
LOAD
THE
CALLING
ADDRESS
...
"
..
".,.
"
..
,
"""'"
".,.,
".,""""
...
G'
/
()
o
o
o
o
o
o
o
o
o
o
o
o
o
o
o
ASSE1-ElLER/OS3
V1.U
09/24/74
0310
PAGE
13
~WVE
au
FF
UNBLOCKING
ROUTINE
81T19
QUEUEING
SECTION
o
o
o
o
o
o
o
o
o
o
o
01
o
ot:
o
0:
····OD465
00466
00467
00470
..
00
1.71'
00472
00
1.73
'00'474"
00475
. 2 0 0
00
0
1::;
X
35100012
40100012
00470
P
47201457
P
5331JOU
0 0
53600000
14300002
007l7777'X
2020DuOO
00476
13077766
00477
"178UO
0
77"
00500
12000022
00501
40300008
"
00
502
202
DOCfO?
00503
1300D011
.....
"ODS
04
.
··iC~GO
0 011'
....
00505
40300002
00506
20200001
00507
40.3000
00510
2020DO
00511
37001]
"'00512"""12000
00513
40300
o a 51
4"
53
Ll
2
0·(1
'00515
3700U4
00516
343000
00'5t7
·····532 OOfH}
0'
00520
130T7?lfl
00521
53300000
005225360ihHlCr
C0523
13000030
. ",,005
24
,,143u.Q
ell]
3"
00525
007D0247
x
00526
54377777
X
'00527'2
00530
00531
...
"
.....
"
...........
"
...........
00532
00533
,,00,,534
UQ535
00536
······
..
··0
U537'"
00540
Q
0541
iJ0542
00543
.
00544
00545
···00540'
00547
03
00550
25
'0055117
o 0
55
2 4 5
10
G Q Q
00553
..
5320Il000
00554
4010001.3
00555
54301457
P
GO
5 5
o'dt'lfJOH2?
d
••••
•
•••••
,·
•••••
00557"
20100023
00560
53700000
,,00561
...
,,2030.0
O.cLO
00562
21077777
X
00563
i7l77??r
x
00554"0570
GOal
00565
05600001
00566
01100024
. 0
0567'
"4T2014ST"P
00570
53800000
0.0
~j7
L
1467777.7..
o
0572
3720
0 0 ° 0
00573
4!t3ULJtlOO
"
.......
'
......
•
........
w
·,,0
..
057'
4"'''0·3.1:0
055
0"
p.
00575
53300
000
o
527+
0
01
527+0U2
···527+·003
.
527+U04
527+005
527+006
527+007
UR3 LOKQ
LOA
SSA
STA
UR8LOKQX
EOU
EtHT,
Xl
ENIT,X1"
.:;.
STr UNLINK,X2
TTA'''X3+
eNS L
K"
.
TAL
X
2+CN8LK
ENI
2,X3
RT
JG
ETHEM
URBLOKC
FLAG
SET
INTO
FLAG
WORD
STORE
\.lORD
SAVE
RETURN
ACORESS
"!'10VEC
C
NTR
OL8t
(CK'P01
NT
ER'
TOA
,"
AND
THENCE
TO
X2
(;£1,
A
,,4
WORO
8L(JCKOFMEMORY
527+008
527+U09
527+010
LOA
ACGWORO,X2+CN8LK
G£T
NUM8ER
OF
RECORDS
527+011
....
'1:
..
"
..
~o;,
NOT
E~~
...
".
527+012
't-
NUMBER
OF
REGORDS
HAS
BEEN
DIVIDED
BY
512
ALREADY
BY
REQUEST
527+U13
SHAQ
-9
ANAl7B'
SHA
24-6
u,,,
••
u
...........
JUST"
IN
CAS
E'"
MOVE
Te
TOP
6 BITS
7+U14
7+015
7+016
········,,·
..
··········
..
·····;::,···:;:;7+
017""
ST
A 0 X3
LDA'TPC:;X2+CN81K
..
S.AVE
11'\
'+
..
I:'LGRC
.SLOCK
MERGE
WITH
REST
OF
RECORe
COUNT
6ACKINTO
pas
IT
ION
7+01B
7+019···
7+020
7+U21
SHAQ 9
...
"
.......................
·~HIA
,,24-
9
2,X3
LP,X2+CNBLK
··1'X3
......
..
r-.
1p X2+i":N::Il
K'
ef'
,
.....
1
__
81T19
3
""
3~,X3
'lId
IT
X
.
...
.
...
ORBLOKN
X 'ELlA . Q
PNT
,
)(
1"
&9
TAl
X3
..........................
"
.......
"
........
"."
..................
;.1.<:0.
LOA
Q.,X3
.....
"
..
·c""
..
" ..
····
..
····
....
""··
....
,,·
1
LDQ
INHIBIT
2 ANQ
DIEPSUS
..
··5;7
..
3
..
·,
.................
........
'm
.........
.....
·
....
,
......
·QS-G·····
...
··
..
·
....
···1··
.......
..........
u ......
·...
.......
...........
.
574
ASG
1
575
UJP
QEMPTY,X1
575
····STr
UNCTNK,X2
577
TAl
X2
577+0Q1
..
.ENA1Z7
ZZ
8."
577+002
LPA
O,X2
577+003
SWA.
0,X3
,...."
...
·577+
0 04····
............
, ,
....
,..Ab:JyN
e'
..
·
..
·..
"""
UR8 Q"20':'"
577+005
IIA
X3
GET
LOAD
POINT
ADDRESS
GET
FORMS
FLAG
KEEP
ONLY
FCRMSfLA"G
r"iOVtA
"str"
" .
AND
SAVE
.
"GET
USERSA60RT
BIT
KEEP
ONLY ABORT
BIT
SET
INTO
BLOCK
CONTROLBLOCK······ADDRE'SS·TO···A···
NO
Ii
TO
Q
SAVE
4
WO
~.O~K
APP~~SS
INX2"
.........
.
CONTROL
BLOCK
ADDRESS
TO
A
..
8"
WORD"BLOCK .
FREE
IT
GET
POINTER
TO
USER
..
·····G
EI····:;J08,NU
N8 E
R"
MASK"
NOW
GET
JOB
NUMBER
PUT
INTO
BLOCK
.
GET
UR8LCICO/Q:X
FLA.G"
KEEP
ONLY
THAT
BIT
JUMP
"IF
UR8LOC·Q
"
GET
POINTER
Ie
QUeUE
PUT
IN
Xi
....
,'
'4WORD'8t:O
C
K"Ae
D
RES
S'TOw
A'
POINT
LAST
ELEMENT
TO
THIS
THIS
IS
LAST
ELEMENT
......
"HE
TO
RN""
.....
... ...
.....
....
.
.....
KIPL
El'tEN1FUI
G
T
RIO
OF
1i
JUMP
IF
MACRO
BUSY
GET
LP
AND
TFL
ANC
OFFGAR8AGE
STORE
INTO
t1.l\CRO
4"""WORD
BLOCK
ADDRESS
SAVE
IN
MACRO
LOAD
RETURN
ACDRESS
TOA
Sf
ART;'''······
.....................................
,
...................
..
"'ISANYT
RING'
ELSEWATTTNG"
LOAD"P
or
NIE
RIO
N EX
T£
L EM£
NT
.
SEE
IF
DIE
OR
SUSPEND
SET
·,
....
"
..
SKIP,··I·F·EI'THER·····S-ET··
SKIP
IF
POINTER
IS
PRESENT
TELL
THE
DRIVER
THAT
IT .IS
DONE
SAVETRERETUR
N ADDRESS""
SAVE
ELEMENT
ADDRESS
IN
X2
EN
TERA
.MA
SKu
GET
POINTER
Te
NEXT
BLOCK
STORE
IN
0
FOINTER
,
....
""
.....
,
NOW'''S'YAR
T"'M
,ocR
OH-OH,
MUST
SE
.,()
.
..•..•
"CJ
o
o
o
...............
""
....
"
..............
"
................
"
........
"
................
10
""0
o
o
C)
o
..
"""
-,
..
0
0
0
0
0
0
C)
0
0
0
(]::
~~,
(J)
~;"
i
1
()
0
I
I 0
I 0
0
0
0
C)
c)
0
0
0
0 I:>
di
0
.....
0
o .
. )
0;
~]C1.
0"
ASSEM8LER/GS3
Vi.O
09/24114
0310
PAGE
14
U
0576
4430
0 0 0 t
"""
..
'H.~~","_'.wo
'''''''5''7''1
+"-0'0'"6"'--
00577
U1000550
P
577+007
.
..
. ... . .,...
,,,
.....•....
, "
..•..
l'iOVE
cU
FF
·····'S~rA
U.;P
........,
....
"
.........
,"',
.......
"
..
" .... ' ..
,.,
, ..
,'"
UNBLOCKING
ROUTINE
QUEUEING
SECTIGN
f~X3""'"
..
TOCP'OJNTER
UR8Q20
NOW
START
MACRO
a
',
/
'''
..
()
o
'0
o
o
o
o
o
.....
,'"
.......
,'''".,.,''',
....
'''' 0
o
o
o
,.,
.....
,
.....
,",
....
0
o
o
o
!
I,
t
J
'~
I
~
1
I
I
I
I
I
I
([,
(1'
j
()
0
0
0
0
0
0
0
0
0
0
()
0,
j
,'~
01
'lJ
0
0""
1
0
0'
Q,
0
ASSEM8LER/OS3
ViDO
09/24/74
0310
PAGE
15
f'iOVU:lUFF
UNdLOCKING
ROUTINE
OPERATOR
CONTROL
SECTION
o
fJ
0 P
00600
14111
? X
'u
0601
"1457'7717
00602
2020U001
00603062l17fii'
00604
01377'776
00605
,0060.6
OU607
00610
0061
0061
0061
0061
[J06i
.U061
iJ061
0062
o
624
00625
,······fJO
E'26
00627
00630
00531····
00632
.00633
00534
00535
uQ
0 El36
00637
00640
"2"f"iJf}{]
0300Cl
53040
''00
G06 L
d
40100
..
OOE42
...
1447]
00643
34
000
00644
200UO 1 X
'
••
n
00645'
'35'1-00G04~"'"
00646
4Ql0000L~
00547
01000047
P
592
···593
594
595
596
597
598
599
600
"I-
:;<~s.<'f"uj.:;.
Jj.
';.'¥Jj.'1->;>;-
¥Jj.Jj.".'
'"
>J.¥--'i-
>j.
¥¥Jj.~
¥-.'If v..lJ.JI. 'I-
¥¥
>;ott·Jj.
JI.
¥¥':.;.
¥-
>r>;''fJj.
'f
~<.l/-
...
'f'J.'f
'f
>;0
>J.-'J.
>;'JI.'If 'f!J1. >;:JJ.'If
>l-Ji.
Jj.
'3-
¥
11-
¥
.lJ.
'f
.....
.lJ.
..
'
THIS
SECTION
PROCESSES
KILL ANDSIARTREGUESTS
WHEN
OPMSG
DECODES
A
KILL
OR
STRT
MESSAGE
IT
WILL
"j
U MP'''lO''TH
E-PRO
P ER'R
OUTl
NEH ERE.'
80TH
ROUTINES
SEARCH
THE
t8LOCKt
TABLE
CREATED
BY
IN
IT
lAC
TODETERHlNE
IFA
LEGAT DEVICE
IDENr~A'S"
USED
JI.
".
>i-
.....
"1-
..
'If
""
....
".
601
.....
~'1-
"I-
.11-
Jj.
602
"I-
603
..
°604
605
606
607
08
09
10
11
ON
KILL
REQUESTS
THE
KILLFLAG
WORD
IS
SET
Te
ZERO
'TN"THEDEVI
CE-
CON
T
ROt"'M
A
eR
0 'AND'U R
810
K
WI
Lt"
FAK
E'"
AN
END-OF-FILE
RETURN
ON
THE
NEXT
CALL
FRCM
THE
URIVER.
WHEN
THE
OPERATOR
KILLS
A
DEVICE
THE
'FORMS'C'ON
TROC'WbROISCCEAREOON
THE ASSUHP
II
CN
THAT THE OPERATOR SHOULD STOP
TH
DEVICE
BEFORE
KILLING
IT
A.NOHESHOULDHAVE
THSI1ARTS·TO·REMOVE
ANY
FORMS
THAT
ARE
IN
IT
BEFORE
TURNING IT
8ACK
ON
¥
THE
FORMS',WORl1IIx
THE OEVICEuCONTROL
............
jf.
TO
SEE
IF
THE
RECUEST
IS
LEGAL
AND
•
...
!..
~JA.RLS.Ij::!.r:JJf5~JI.I;R.
I.E
LL
..
I.S
.....
WA.IT.lN.G.
:..
...
"1-.1"
"1-"1-
*,*''i"!>f.. "
..
'1'
>;00;.
"f
**¥
¥¥:Jf.
¥ ¥ Jf./f.-\<.'f..I;f.."I- ¥.'I--¥--¥-¥!>f.-i<>J.-v.!>f.¥-¥ . .y..>[."f''i' ¥
"'¥"I-.lJ.~
¥
>J.>J.-!f"l-
¥-¥->J. :J{.!>f."";!('lI';!(''''
Jj.Jj.
'I-¥
¥>J.
>#-.-!I-"1-:J{.
KILL
...
B
x
FOR!'JSWRO.,.Xl
8Il1'3
S
nu
G5
··············
...
···········sr·f20
S
TRT
0 2
F
SWRO,Xl
ILLEGAL
IDENT
LOAG
THE
CONTROL
BLOCK
ADDRESS
IS
THE
VICE
BUSY
REQUEST
S
ILLEGAL
IF
NOT
.....................••.•••..
ARE.
WE
~t
REQVES,
SET
THE
IS
THE
..
ST.ARlED
IS
THE
Ju~rp
IF
lING
TO
TAKE
FORMS
OUT
ILLEGAL
IF
WE
ARE
A
G"'""
.,~
-~-.,
.....
~
..
"'"
..
,-
... _
..........
" ,
ICE
HAlTING
TO
BE
JUNP··
IF
SO
VICE
WAITING
ON
FORMS
or
EAR
fill
T
INT
CNE
L BITS
.!l.,.tNf;
.
,""
...
__
.....
"
..
,"
",
..
"
IL
LE
GJ\L
I
DENT
LOAUThFCONTRor
BLOGKADDRESS
...
THIS
AN
CPERATOR
READIED
VICE
JUMP
IF
so
··
..
·ARE······WE···i<lA:ln:NG····Ck·'FORMS··'·',·
..
JUMP
IF
NOT
...
ClEAB
;tWAJUNG;t
1PRESENTt
SET
THE
CAL8AK
WORD
.....
I~.
THE.DRIVER.
W.AIlING
THE
OPERATOR
IS
CONFUSED
AGAIN
------ -
~-
-
--
--
- - -- -
-.-
---
--
- -
---.-
-
_.,_.-
-
----
-
--_._----
--
-- -
~~.~
- -
--'-
-
_.-.--.-
--
_._,-
-.~
--
-.-,-
-
-.--.,-
_ ... -- -
._.-
-
--
- -
--
---.-
--
_.,_.-._._.-
-
-.-
- - --
--
-
---
-
--
--
!,
(]
.-
""(];
'!
()
0
0
0
;,0
I-
()
0
0
0
C)
0
()
0
C)
0
0
0
0
,
......
U
0
~.
,
~
(JI
l
1
()
i Q
1
I 0
I
I
I
I 0
I
I
I 0
0
0
, 0
0
C)
0
0 ,
d;
0
L'!
0'
0.,
0"
fJ:;
0
ASSEtv18LER/OS3
Vl.D
U9/2
t
t/74
Ll
0 E55
--_
..
_
......
00656
00657
00660
"n065S"P
17777777
41100016·
..
·_··
03300007
P
u1300000
00-6'61
p'
00661
17777777
00662
41100016
·····
..
····
..
IJO-663·
'14477776
U0664
3+000653
X
00665
..
0100
0
035P
031lJ
PAGE
16
~iOVE
au
FF
UNBLOCKING
ROUTINE
OPERATOR
CONTROL
SECTION
670"
'STi<T04'
671
ANQ
777778
CLEAR
ALL
THE
FCRMS
BITS
..
6725TQ
FORMS
I--JRD
,Xl
673
AZJ,LT
URaLOKI
674
UJP
0,X3
,._-,--
,.,'-,
JUMP
IF
THE
DRIVER
HAS
BEEN
START
EXIT
.
....
675.
0
"'
•••••
•
····STRTO
O·..·"[::(}U··· ........
".
.................
.
676
ANQ
777778
CLEAR
ANY
FORMS
BITS
............
~~{-
·~~~-9s-S~Rr:lswRD,X1
..
lURN
OFF
THE
NCISE-
679
RAD
SCREAM
680···
·········--UJP···
·URBLOKI-Z--
..................
_.---
o
o
o
o
o
o
o
o
o
o
o
o
o
o
o
(I,
"
ASSEMBLER/OS3
GJ
..
~,
ff
W
;,1
()
I
0 1
1
I
()
I 0
I
)
0
0
0
0
0
0
0
C)
0
0:
0
0"
0 D
0"
(4;"",,,,,,,,,,
0;'
V1.U
09/24/74
0310
PAGE:.
684
685
686
6e7
688"
689
690
,
"691
"'"
692
'"
""
6,93,
694
695
"696
697
698
"""'"
'6~f9
700
,,7Q 1"
lU2
703
"704
70
::;
7U
E
""'7";:'»"'),"'·_'
! U t'
708
7Cl·8
710
711
17
I'ia
VL:lU
FF
SLeCKING
r~OUTINE
'"
'1-':\(";.'4-""1-'1-"1-
JJ.''I-'l-'l-4Ji'~';
Ji'¥'
"I-
"..'if.
:J.".".'iJ.'¥'Jf'ilf'iJ.ilf,,;;.4:;.'J.
¥J,t
"""','J.
iJ.".
'1-';,;.
:V:iJ.
>J.
'J.
iJ.4;:;."..
JJ.iJ."..",;:;.
~<
¥¥
'.>;."1-''10:;''''
>J.'iJ.
".:;:;
"I-
>;.:;'.>J.
11J.>J.
>J.
¥
11J.
"
"'"""U~~t3LOC
K "",,11J.,
THIS
IS
THE
UNIT
RECORD
BLOCKING ROUTINEo
IN
""'ADDITION'TO'
PRO
CESSINGT
hE08VTOUS""ThTN
GS"t'IKE
""""""
CARD
READER
FILES
AND
PAPER TAPE READER
FILES
THIS
HANDLES OTHER
INPUT
DEVICES
(LIKE
THE
RADIATION
'¥CEI'i
TERf'8YPR£TENOINGTHE
Y
AREPAPE
R
rAPE'REAOERS~
>J.
THERE
ARE
TWO
MAIN
ENTRY
POINTS
INTO
THIS
RCUTINE
"'"
"T, '" "",
"",
"'"
ONE"
,UW8LOGK"WILLWRITE"OUTANYTHI
NG,THAT,lS,GIVEN
JJ.
TO
IT.
THE
OTHER,
UWbLCCK8
1
IS
USED
FOR
CARD
READER
'I-
INPUT.
IT
SCANS
THE
INPUT
uATA
AND
CALLS
UWBLOCK
"JJ.''''''''''''''''''''
""""''''''''''''TOWRI'TE'OUT''ONtY'''THE'INFORMATION'THAT"IS"8ETWEEW
,
",.,"1-
A
JOB
CARD
AND
THE
CORRESPONDING
LOGOFF
CARe
·~~~h~c~~c
HAh~~ggl§sI~~
5··
.~E~~~R
~2p8lR~
i[~o~·~t
~AT
THEY
CAN
8E
MULTI-PROGRAMMED.
THE
FOllOHING
.
ASSUMPTIOI\SARE
USEOIN,THISPROGEOURE:"
~
~FJg~s~~p~Ia~T~DI~YT~U~J~~~N
~~R~S
CK
TO
ST'ARTA'N
Eri'
CARO"RE
AOER
FltEW
HE
NEVER
>J.
"""JI.'
,
¥-
!J.
.>J.
l(.
'f
..
¥
JI.
o
o
o
A
J08AE~~~B~ITgA~D[t~GS~~CEg~~8
·'fFC
'IS
TRUElrrs
CKTO'ENDAFItf""
WHENEVER
A FILL OUT
REQUEST
IS
,,,,,,,,,,,,
..
,,,,.,,,,,,,,,,,,
...
,,
..
,,,0
RECEIVEOFROM,A
DRIVER,
IF
FOR
SOME
REASON
{JOB
SEQUENCING)
A
USER
WANTS
""1-'""
..
''''' ..
'''''''.''''''''''.''''
OR
MORE';:JOSS'I
NTHE'
SA
ME"l'NP
U1FI
tE'
HE
CAN'
",
..
"",,,
..
,,,,,,,,,,,,,,.,,,,,,.,,,
"JI.'
"",,,,,,,,,,,,,,,,,,,,,,,,,,,
,,,,,,"'"'''''''''''''''''''''''''''''''''''''''''''' "".'''''.
THIS
BY
HAf(ING
HIS
JOB
CARDS
NON-STANDA
.IE:
...
........
"
..
·······TJ08
~
......
··0
R
··TJO
8·
·"OR
.......
.
(
JOB,
.,,'
,"",",","
,3
MAKING
HIS
LOGOF
ROSNON~S.:rANlltlRD
[LOGOFF 0
[LOGOFF,
",.,.,
..
,
,,,"""""""""
ENCV
FFECTEO
BY
THES
CONT
EXCEPT
THAT
J
MAY~QJ
RAN}1
EYCOULD8E~·······
ALSO
TFGNS
TRAILING
BLANKS
CR
ZEROS
(DEPENDING
,
..
",,,,-,,,,I-lODE
OF,THE,.RECORD.(
MODE
IS
A
SSUMEOTO
IF
WORD
COUNT
IS
GREATER
THAN
20).
ERMINES'T"HAT···'"FHEREWlt:t"·8E"NO""'··'"''
(EMPTY
HOPPER
ON
A 405) IT
SHOULD
OCK
REQUEST
TO
FREEUP
THE
FILE
·······''''~i'''''';;';;;''''".''r'·''''STO
R.tfGET
R:tHAREBUS
YFR
CCES
SING
REQUEST IS A NORMAL REQUEST
COUNT
IS"ZERC
..
COMPLETION
....
BLOCK,
GBIENT
ERCON1ROLSTOCKAODRESS
WORD
COUNT,X2
ONLY
IF
GALL
Te
UW8LOCKB
I
Ht"lEllIATERETURN,X3
PROPER
ENTRY
FeINT
.>J.
>J.
¥
:II-
.....
11J.
:II-
¥
¥
>J.
-l;I-
'}j.
11J.
..
'f
".
".
.>J.'"''''''''''
".
".
""""""
JI., """",n,,","
''''''''''''''''''''''''
""""""".""","""""""""""
...
JI.
.....
.
"I-
EU
t\SONRETURN
.,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,J/!.,,,,,,,,
I
OPER~\TION'
HH1EOTATtVCOMPLETED
REIURN
IS
THE
ADORE
S
IN
Q
AND
X3
HILL
BE
COPIED
IF
THE
CALL
IS
QUEUED,
UPON
COMPLETION
RETURN
WILL
"8E'·I'lA[}E"T'O"THE"'ADORE"SS'''IN'"Q
··WI1'HfHE,oNEW"RE
TURN"
,,,,,.,,,,,,,,,.,.,,,,,,,,,.
ADDRESS
IN
X2
11J.
".
1f.'
J/!.
,..
:II-
>J.
1f.
¥-
JI.
'0
o
o
o
o
o
"
0
,-
o
o
o
o
o
o
ct·
C)
f
I
!
()
1
I 0
I 0
I 0
0
0
0
0
("\
\..../
0
0
0
o.
j,',
d'
I 0
0"
0
0
:rJ
~'"
,i
o·
ASS
EN8LER/OS3
V1.U
09/24174
0310
00000
o Gtl
01
00002
18
MOVEBUFF
BLOCKING
ROUTINE
..................
F'C"
8"l.J
E
F'......
.
Pi\
GE
r'"
65
·66
6?
•.
'10
>f.
o.,'I:'Y1f'fc>/..>/:-.
""-.>1>
...
>1-.
.>l:"'f..>:,.'c
..
>l:.
>/,
..
>1>
>/.
..
>,<
>1>.
'f.>fo.>fo
>I:
..
""-.>/'
..
'<:.>('.>f
...
>('
>1:.
T
..
>f
.>ie
..
>f
T.'I:.>f X
."1:.
't
..
'1-.
'1:.
'f.X
>t."I:.>l:'lfJ{,'f'f.'f'lf
..
'f'f'f'f
>foe.'ll-
'f
...
¥
'!I'
...
'\<
'Ie
"f."I:
".
>'!;'f
"f
'"
.'"
1f
68
o·
FILE
CONTROL
BLOCK
DEFINITIONS
".
oS
• .
...
>f
......................
.
70
.>.<
71
ACCWORD
EQU
72
.
····Cp
...
"'EQU'"
ACCOUNTING
WORQ
<MUST8E
~
•
[O'AO'P'dINT 'SL'CCK
.........
. ........
..
';,;."
t··············································
73
COREP
EQU
......
.
74
•.
>1:
..
75
.'<:
CORE
peINTER
IF
NON-ZERO
¥
..
IF.8IT23=·1,·GORE.BLOCKHAS
.....•.....
BEEN
WRITTEN
INTO
•
2
76
cap
COREP+l
BLOCK
NUMBER
OF
THE
CURRENT
BLOC>'!;
o
........•.•.......•.•..
·········77·································e··pp·····
.....•...
····4·····
......
·
...
·•·
.....................
"
.............•........•.•......
·······CtJR
R
E'N
r·.,·p·OS·I··T·IO·N··
..
·PO·1N·lER·
.
.,
.................................................................................
.,
.............................................................
"'
{
78
•
>f.
79
'<:
8
lJ
•
81
.*
............
82
..
...•
'1:
....
83
.>f
84
.>f.
...
·······"8·5·····
86
U0007
97
EQU
7
(REl.
FOSIT.
WITHIN
BLOCK
CBP)
•
81T23
SEZ
READ-ONLY
¥
"'BI'T22'
SEZ
AT"
L'oAO'
POINl····
':q;'
......................................................................................................
o
81T21
SEZ
END
OF
DATA
".
BIT20SEZ··
F
lLEMA
RK JU
ST·
READ
>;,
•
• o
BIT18
SEZ
BINARY
RECORD
PROCESS
BIT1?
S
El
utll-3
NCRNAt:IU
N
AV
Alt:ABtE"'~
'
......
u
....
,
...............................
,
.....................................
.
81T16
SEZ
ADDRESS
ERROR
¥
···~Q~~~Rs·8~··
~el~{~sE
~~~ON[J'"''
........
:
THE
CURRENT
BLOCK
¥
END··POSIT·IONf
GINTER·
...
'f
8IT22
SEZ
THE
FILE
HAS
CHANGED
¥
BIT21
SEZ
POSITIONER
READY
····...··SIl
u2 O
..
S
EZ""DESTRUCT'!VE"'REAO'"''''''
'""''"¥,
FILE
DIRECTCRY
¥
BITS
15-18
CONTAIN
THE
HT
¥
8I
1S'00
';;14Cotlt"AI
N'ENDPdSIT
ION
..
¥
TOTAL
LENGTH
IN
8l0CKS
.........................
,
...
~
.....
,
..........
,.,
..
!O
o
............••.•...............••••
,
.......................................................................................
,
...................................................................................................................................
, o
o
o
................................................ ,
...............................................................................................................................................
. o
o
...
()
o
o
o
o
o
o
o
o
o
o
o
o
o
o
o
o
o
a
0'
o
oj
ASSEMaLER/OS3
Vi.8
09/24/74
0310
00000
00001
···00002
00003
00004
OiJ006
o
ooro
00U11
00012
00013
00013
00015
Q0015
ODOf7
UOG20
··DOD
21
on
U 0 G
2.0
IJOG21
PA
GE
759
102
iiJ3··
10~
lU5
t06'
107
10d
109
110
11.1
li2
113
114
.
115
115
I1T
118
1·i·9·····
1.20
121
19
MOVEBUFF
8LOCKING
ROUTINE
UWaOEF
•
:If.
.'H<
>f>f >fJf.:,f>f.'f
"f"f'f't
"f
>f.>f.*
**
"f
..
'f
..
*.
'1:
..
*
>f*.>f
..
'I:
>f
*.:'1,"'1-
.:;'.''1:
..
'1-.
Jf>f
>;,
>f
..
::;'
'f.*
*
'f
Jf
...
'1-
'f
.'I:
..
>f.>f.¥
'f
>f."f¥.'f>;-.>f*.>1- >;-'f>f>f.>J.'f.>f:>f¥
>1-..,.
.If
•
·
If
......•
'~M
.....
o If.
e
ON
BLOC
K
EQU
"JFP
TR
..
EOU
•
>;.
8LKPOS
······EQU
IMADR
EUU
CALLBAO
EQU
••
>;.
•••
ROIST
•
'10
WGN
C
3L
OGK
TIMAO·
PSA
LOC
o
I,~;
KBIJS
Y
>f.
..
M
......
.
.xI T
F5A
!'lew
UWB
uwa
•
'10
.:if.
•
EQU
EQ
EQU
EQU·
EQU
EQU
EQU
EQU
UWBLOCK
BLOCK
OEFINITIO~S
o
C
ONtj[
oC
K+l
8
FPTR+l·
aLKPOS+l
I
NA0R
+1
CALLBAD+2
.
ROIST+2
.....
.
W
CNT
+1
····C8LOCK+1
TIMAD+l
PSALOC
PSAlOC+2
E
XII'
ADO
+1
'PFsrfIlE+r"
U
Wt3\'iC+1
. U!ti8HG+2
+1
U
Wt~A
X
IA+
...
OEVTYPE+l
:if.
POINTER
TO
8
WORD
CONTROL
BLOCK
~
POINi
ER
T o
CURRENT
CORE
8UFFER~;:
-0
IF
NO
BUFFER
PRESENT
~
CU
RRE
NT·S
LOCK
·pes
.IlIa
N . .
..
~
...
ADDRESS
OF
WORD
COUNT
AND
IMAGE
•
CALL
BACK
ADDRESS
~
RTJMACHERR"····················.y.
ENI
BLOCK,CBI
~
UJPIMFURE
:if.
TE
MPOR.lIRYWCR
cec
UNT*
ADDRESS
OF
CURRENT
BLeCK
•
·T£.MFORARY·
FORCliRRENTPOSITION
".
ADDRESS
OF
ASSOCIATED
PSA
~
BUFFER
UNSAFE
FLAG
•
ENI'BLOCK~CBI
..
.y.
UJF
IMPUR~
RETLRN
ADDRESS
•
TEMP
TO
SAVE
THE
CONTENTS
OF
PF1*
··TEMp····rc
'"
SAVEWC·ANO···CAlC8A·CK
......
'.
ADDRESS
IF
CAll
TO
UW8l0CK8
~
TEMP
Ie
S.AVE..
RETURN
AODRESSIF
...
'L
.
CALL
TC
UWBlOCKE
*
81T23
IF
LAST
RECORD
WAS
[LO
FF*
····POI·NTERTO···lHE·PROPERS·AICH·····
DESTINATION
LINE
PRINTER
COD
...
NlUI.
8ER.CfHORCS.JN.
j~
L.OC.K
E·FOLLOIHNGAREUSEO
···O·NL·Y··
..
·FOR····'i-
....
VICES
THAT
COME
FROM
THE
POP8
*
T23
SEZZ
EXFECTING
DATA
•
14--frHAVE--64WORu"8LO
E55
•
IT BYTES
WITH
THE
CONTROL *
kINFOR]{,:HICI\
.........
...................
...........
...•
4--Q
hA~E
UWBLOCK
ROUTINE
•
R
.~
.
OF
WORDS
IN LONGER
BLOCKS*
Jf
·······::!:.i.r6·
.......
'
•.•
:if.~'f.
....
'f.>f.~'f..>f.Jf.*>f.+:if.Jf..Jf.'O;'.+*.Jf.,...¥:if.>J.+++'f.".'O;'>J.*.+*."f.:>f..+++."..:if."..+.~.:if.Jf+Jf.>f.*++*+++"'1-**.>f.->f.+.++++z;.+*.;;..;;.
..
'j'
;;U;
()
o
o
dO'~
,
o
o
o
o
o
o
o
o
o
o
o
o
o
o
- - - - - - - - - -
---
-
---------
-~
---.-
..
--
-,-
--
---
- -
.-.-
--
--_._-----,----
---
- -
---
--
-,--
--
----
--.-
------,~
-.-,--,--~
-
--,----_._._----
-,-,~-
CD
I
(J)
()
~
1
! 0
I
I 0
I
I
I
I 0
I
I
I 0
I 0
0
0
(-.\
~..,
0
C)
0
0
d
0
0:'
i
0:
10"
~1
0'
ASSEM8LER/OS3
Vi.O
09/24/74
0610
'OU666
00666
40300001
00667
····533000
0
0·-··
00670
5350UOOO
00671
53200000
00672
0100
()
67
F.:;
'p
00673
P.
00673451.00'00-3
00674
77730000
00675
... ·53·3
U·0.1JO·0···
00676
P
D0676
4lt1U0015
0067·7·········
·20:1:00·001:·············
00700
03200720
P
"lf070r'ZU50'CIO
ir~~'"
007u2
03000762
P
00703
1·4·4770
Di
00704
401000(J2
00705
53100000
.
Oil
706
'53700
OOU'
OU707
14700666
00710
14600712
0071
r ,
..
orOODO'+:)
00712
03200717
P
l10713-2(lDlJ06,ltl~
x:
00714
35100013
00715
40100013
'.".,"",
"·00716
"ilt5fltltli
007
000
PAGE
·····76·2
763
7·6L~
765
766
···767·····
76
~
76
S
?TO
771
·····-·772·
773
774
20
~10VE
8U
FF
"lWADR
E<JU
STA
·····r
IA
TAl
TIA
UJP
.l)\~8LQCK
EQU
ST
AQ'
....
'"_0.'''
RG8NS
VFD
IIA
...
EQU
SWA
..........
-
.......
-
..••
·············t:O·A
AZJ,GE
BLCCKING
ROUTINE
'J.'
8FPTR,X3
.....
X3
cal
X2
··········RG8NS·····
'I-
IMADR;C8I
A12/0INT
X3
Jf
EXITADO,C8I
"BFPTR",CBI'
.....
.
HW8UF
.
RE-rURNFRCf1GE
T8U
FF
SAVE
NEW
BUFFER
FCINTER
~
-....
GET
8ACK
CURRENT BLOCK
POINTER
RETURN ADDRESS
TO
A
ENTRY
FOR
BUFFER
OUTPUT
SAVE
THE
WORD
. COUNT
ADDRESS
REIURN·-AD
DRESS
TC·····A
SAVE THE RETURN
ADDRESS
IN
BLOCK
JUMP
IF
SUFFE~
PRESENT
LoAOT"HEwORC
CoO NT
WO-RO
EXIT
If
FILL
CUT BLOCK
SET
BLeCK
POSITION
FOR
NEW
BLOCK
ON
LYINDEXTHREE
'I'"SREsr'ORED
ENTER
LATER
RETURN
FOR
GETBUFF
ENTER
RETURN
ADDRESS
GET"
A GO-RE-e,UFF1:R"-
JUMP
IF
BUFFER
AVAILABLE
OTHERW
AND'''E
r91NJE.B.
FLAG
()
o
o
o
o
o
o
o
o
o
o
o
o
()
, .
..,
U
o
o
CD
(1)
(}J
~.
I
I
()
! Q
I
I
()
I
I
I 0
I
I 0
()
0
C)
(-"
u
I 0
0
0 1''';
C>
Ci
0::
0
\)
0':
QI:
0;
ASSEM8LER/OS3
Vl.G
U9/24/14
0310
U0720
P
00720
77050001
00721
4010
00
16
00722
2Lll00001
00723
71640001
00724'
2010
0
00
3
00725
53700000
00726
20300DOO
OTl72
703001
OSlP
U0730
17677777
·a0731046000DO
00732
15400001
00733
P
110733
'40100010
00734
20100U02
00735
53600000
0~07
36
..
213
00
000
00737
lt12J50GO
0074015480001
00741
032U0765
P
00742
P
00742
.
'40
llHiO
02
00743
15300001
00744
20100010
U
0745
'~T5477776
00746
032Q0733
P
00747
201000
00750
776400
""~"'00751
·
..
··20100
00752
03200
P
00753
37077777
X
00754
40100013
o Q
7S
5.
..
20
10
0 0
o a
75
6 :; 3
70
U I]
00757
144777
U
0760'
U45
(,Hit;
00761
007717
00762
201LJOO
"00763~
53600
Q
00764
Oi500U04
PAGE
795
7':)6
··797
798
799
'800'
..
801
802
803
8U4
21
t'llJVEBUFF
HWI3UF
EQU
PFA
STA
LOA
APF
LOA
TAl
LOA
AZJ;EQ
BLOCKING
ROUTINE
PFLOC+PFR
PFSAVE,C81
BFPTR,C8I
PFLOC+PFW
····
..
·IMADR
..
C8T
X 3 '
o
X3
F
iLLoor
.
777778
805··
...........................
~
......
.
ANA
ASE
INA,S
o
~
..
806
507
a08
809
810
8TI···
..
812
~8i3·
.
814
815
PLCLOP
PLCR
1
EQU
>J.
STA
"weNT'
,CSl"
....,.,
LOA
BLKPOS,CBI
TAl X 2
LOQ
"~(J,
xT
STU
CORE+WPFB,X2
INA,
'
..
-~,1
AZJ,
G8H~
EUU
>(.
'STA-"
'''''8
t
K:
pas
,C8T
INI
1,X3
LD
A~.WCNI,G8J;
...
INA;
-1
.AZJ)
PLCLOP
PFSAVE,GBI
P FLOG+PFW
·
••
"",,,,~c,··
..
,
..
DISKBUSY,C81
C
Ot.-jEX
IT
N8IT23
OISKi3USY,Car
.
·~····.P·SALO
C,·CBT~
...
X
3+PSA
NCR~:A
IT
Or,X3+PSA
I
DeLEAR.
EXITAOO
C3I
..
~.
'V'
c
",.~~.
•
........
~...
,
............
.
/\
c:
CALLBAD,CBI
SAVE
PFLOC
SET
PFLOC
. LOAD
AODR£SSOP'''SUFF£R
SET
INDEX
LOAD FIRST
WORD
(WORD
COUNT)
.
rlR
ITEO
UTTHI
S~
8UFF£R'TFZ£RO
MOVE
ONE
W
ORO
~~lFFILE~MARK
MOVE
(COUNT+2)
WORDS
'SA:
V
E···
..
PR
ES
E
NT
....
WORo"C
OUN
T"
LOAD
CURRENT
SLOCK
POSITION
MOVE
POSITION
TO
INDEX
LOAD
WORD
.
TO
EEHOVED
.....
PLACE
INTO
CORE
BUFFER
COUNT
UP
CURRENT POSITION
JUMP
IF
BLOCK
OVERFLOW
RETURN
IF
INTERRUPTED
SAVE"
NEW'"
BLC(JKPOSI'TION'····
COUNT
UP
PRESENT
BUFFER
POSITION
LOAD
PRESENT
COUNT
'~COaNrIJOIHr~COQ
NT~
...
JUMP
IF
STILL
WCRDS
TO
MOVE
RESTORE
PAGE
FILE
NORMAL
EXIT
IF
NOT
DISK8USY
CLEAR
OISKBUSY
FLAG
5K
IP
..
IFPSAIJOES'NOT'EXISi;
OTHERWISE
CLE~R
CRHAIT
LO A OREJlJR!'iAP DRES$
CALL
BACK
CI
>:
./
(j;
I'
()
....
()
()
0
·,0
;:i
0
"''')
"-
0
0
0
0
0
0
C)
0
0
0
0
0
0
!
~
(j1
\';1
I
()
11
I
0
0
0
0
0
0
0
()
0
0
0
O.
),':
I d
OH
0
0
0';
r~~
-L'-.4:l
0'
ASSEM8LER/OS3
Vl.G
J9/24114
0310
PAG~
00765
00766
00767
00
76~P"
5:5300000
···it
010·00·12
14477777
00770
P
00770"
4 00
04
001
00771
200J0713
X
00772
35100013
"'0077
3'40TOO
013
00774
53100000
,,·0077
55.37
O··[)
0
00
00776
14-100001
00777
14200001
01000"J077777Y'-XM
01001
l.0004GDO
01002
21300011
OTO'OT'4030
0011
01004
14601021
P
.,
01,0
0
S4!t·3
tlfJ
U
01
01006
20300016
01007
7764000
..
.
'.
0:1
010
...
'131.1
GO
01011
21300
01012
12400
0101,;
'.1.53U"0
01014
47377
,0
·10·15
·,,153?
r
01016
14-101
01017
14277
X
83'8
8:59
840
841
842
'843"
..
8!~
4
845
846
847
···848
84S
850
·······8·5·:1
852
853
····854'
22
tfJOVEBUFF
8LOCKING
ROUTINE
TIA
X3
SAVE
CURRENT
8LFFER
POSITION
STATHIAD
,GBI,
ENA,S
-0
EQU
"l-
G
>Jl
W S TA-
..,
.....
'
....
COR
(+t,
..
..........
"SET'BACKPOINT
ER
LOA
81T23
SSA
OISK8USY
G8I
S
TADI
SI<
[3
us
Y:C8 r
......
SE.T TH.EO
ISKeU
SY
.
FLA.G
TIA
CBI
MOVE
THE
cel
INDEX
TO
AN
UNUSED
TAT
·X-3,
INOEXSO
WECANCALLGET8LK
ENI
1,X1
PREFER
BLeCK
eN
DISK
ONE
ENI
1,X2
WANT
SINGLE
BLOCK
.,'M
..
"
........
·.
··········RT;J·····
....
····GET·aLK..·'
....
'···
..
,·
..
·····GETNEXTOISK·
....
S·UFFER....·
STA
CORE
SET
FORWARD
peINTER
LOQ
CBlOCK
X3
GET
THIS
BLOCKS
DESTINATION
SHe"
"'CBLOCK!X3
....
"SAVENEXTDISk'AODRESS'
...................
.
ENA
UWDISK
SET
UP
THE
RETURN
ADDRESS
IN
,S~iA,RDLST
+,1,-X3,
THEMACROCONT
R
Ct,
BLOCK
LUA
PFSAVE,X3
RESTORE
PAGE
FILE
ONE
APF
PFLOC+PFW
SHACt24
..
LDO
BFPTR,X3
5HQ,
9
IN!
EXITAOO-
,
DISK
ADDRESS TC'A
....
LOAD
BUFFER
peINTER
..........
AN
D.TURN
..
,
IN
T 0 C
..
CRE
....
.AO.DRE.SS,.,
..
KLUDGE
A
RETURN
ADDRESS
.~If
.....
t~~~l~~XITAOO+1
,X3
,GENERATEAODRESSFGRTNTERRUPT
EN!
HPF3,X1
LENGTH
OF
TRANSFER
ENI
WRITE,X2
.....
OtH
20'
0101·77r'?·X"
....
·
..
,,·
•·
......
··•
....
•••·
..
··••
.... ·····l'Il·';O ...
,~·········,
..
·
..
••
..
····.", ...............
',....................................
..
....
··'
..
P·IREPi'·······.,··
.,
...........
,
...........
.,
....
······,,···,·····
..
IN·l'r·I-·A·T2···0tITPUT··'
..
····
....
···
.....
,
...
."
.......
,
....................
.,
.....
,.,
................
"
........................................
,
..
,
............
,
.............
,
.........
,
............
.
01021
P
..
,..01021
·····2.!}lGllDO.Q
01022
536000DO
01[)23
144U0001
'U'1024
01iJ25
01026
'on
21
01030
01031
01032
.
'''OlG3'3
01034
01035
"OTll36
01037
U1041)
DISK
TRANSFER
GCNE
,
...
LOAO.THEGONTROL,8LOCK
..
AODRESS,·
·COliNT······ljp··rOTAt·'
....
FIlEt
AND
BLOCKS
RE~AINING
SA
E...
WJ~N
JHJCRES,S
weNT
-0
TO
DISCARD
BUfFER
il
o
o
..
()
o
o
o
o
o
(J
o
o
o
o
o
o
o
o
a>
",}
I
(j)
()
1 0
I 0
I
I
I
,--.,
V
I 0
0
0
C)
0
0
0
0
0:::
I.
di
0:;
0"
0 "
0:'
if,
0;
0>
ASSEM8LER/OS3
V1De
Og/24/74
0310
U 1
J41'
P
01041
77650001
01042
·40·10·0016
01043
20100001
01044
77640001
'01
I] 4:> "
20100
012
01046
53700000
01047
14477001
.
'01050
"Ul00
0
742
P
01051
D1052
01053
01054
OT055
01056
.
01057
01060
01U51
P
20100002
"5370
0000
14400000
40305000
1447777T
1+0100010
···04377001
010tlU770
P
U
1061
21':1:iJ
GiHJi
01062
12.400011
01063
20100016
..
01064
'7T640
iT
III
01065
14477777
01066
..
,01001032
P
p~\
GE
'890
891
892
89
:~
804
895
a96
897
598
8Y9
900
901
902
······90,:)
904
905
9(f6'
87
D,S
I)
"'
...
v
'~
to
2;)
t'IOVE
GU
FF
RPlCW
EQU
PFA
....
STA
LOA
APF
LOA
TAl
EN.A.,S
UJP
FILLOUT
EQU
~
LOA
TAT··
..
··
ENA,S
STA
'EN'A,S"
STA
ISE
UJP
SLeCKING
ROUTINE
">J.
PFlUC+PFR
..
P F S A V E
1..
C
81
.
8FPTR,G8l
PFLOC+PFW
TIMAO'·C8r--··
x 3 '
HLNT-WPFB
.
pLCR
......... .
>f.
BLKPOS,C81
X3"
o
.E8RE±klPF
$,X:3
..
weNT,
caI
HUH
-~PFB,
X3·
GBUI
E C8I
+PFW'"
Qi
IJ
XIf·······
"-""
SET
PAGE FILE
ONE
···
..
····LOAo
"'CURRENT'BUFFERPCINTER
FOR
END
OF
8UFFER
..
SET
POSITTO/'i·····
SE
INlERQ
REC.cRO
LENGTH
SET
END
OF
FILE
FLAG
SKIP
IF·THE8LOCK
IS···£MFTY
HElIIfPAGE:NUMBER'
M
THE
CORE
ADDRESS
S
.LO.RE:
..
Pf
l.C.C
.....
.
..
--.
,,,.-
IT'
:w
~:)
'0
()
,
0
0
~
;.
0
,0
<
;,
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
---------------------------------------------------------------------------------------------------------------
r
~
~
,
1
1
!
I
I
I
I
I
I
I
I
I
I
I
i
cI:;
(Jj
()
()
()
0
0
0
0
0
,..
..
~.
u
0
0
,"
)
'--,
OJ
Oi
ASSEMBLER/OS3
V1.O
09/24/74
0310
"~""'i)T067
01067
45100017
0107-053300000·
.
01071
44100021
01072
02601104
P
0107'3
'20100021
................
".
01074
03201076
P
.0107~
..
14701100
P
"01076
P
01076
14677777
X
OiD77
·010U0673P
0110
a P
"01100
·~·OO·701·457"P············
01101
14600000
PAGE
24
MOVEciU
FF
0LCCKING
ROUTINE
nr"'-CfW8Td
CKtfCGfO·····
........>;.:...
......... .
919
STAQ
UW8WC,CBI
920
TIA
··X3·
..
920+001
SWA
UWBX3,C8I
921 IJD
UWdNOTF,X2
923"
'''[ClA'
.......
"
.....
lJW
8X3,
C
81
924
AZJ,GE
~+2
.
~~tuIWFr[L·~~8·~WBFILLD
927
ENA KZERO
928
. ····UJP
..
· .
·····UW3LOGK··
...
929
930 UW8FIlLO
EQU
'i
SAVE
we
AND
INTERRUPT
RETURN
RETURN·AOORESSIC
A·
SAVE
FOR
LATER
JUMP
IF
NOT
A FILL
OUT
BLOCK
WAST
HE"LASTCARD···tOGOFF
JUMP
IF
IT
WAS
NOT
..
CHANGETHL
RETURN.
IF.
LOGOFF
....
SAY
TO
GENERATE
FILL
OUT
BtOCK
···"·9
..
3·1········
....
····~·
.................
~
........
-
............
···RT·j·······
tJNl·INK"······
o
..
,.,
......
.,·········,··,····,·,,····'
..
F R
EE"TH
e·
C
ONT
R a L 8 to c
v····
..
,,··,·········
...
·,
....
.,
932
ENA
FORGET
THE
GC~TROL
8l
CK
933
STA
01102
401110000
0110'3"'0150
IJ02
O'
......................................................
··············931+
"'UW3EXIT
OJP;T··
··8~~~k~~~8~8J
...
..
RETURN
To'
lRECACCER
.
01i04P
01104
20iQOU17
01105
5324UOOO
01106'537[)!}OOO
.
011L17
14700000
01110
05200024
011
iT
210T7777T
.
01112
20300001
01113...
03501117.P
01114
03701117
P
01115
15377776
01116"Q2&d11:1:2
'
01117
15200001
01120
20100017
.
0112153
7u
0000'
01122
20000067
X
..
"
...
,
....................
011235
324
OD
0
()
..
~
01124
05700001
01125
01001143
P
01126
01127
····OT130
01131
01132,
01133
U1134
>"'"'011:35'''
01136
01137
"""01140"
01141
G1142
01143
..
······~····
..
·······.,H··1·
01144
01145
··
..
·
..
···············
..
····OT146
01147
...............
0115,0
01151
01152
[Jii
:;
01153
3500114
935
836
9313
9~~
S
"940
91
+0+001
941
941+001
...
943
...................................................
943:+:001
943+002
94&
U\i8 SH1C
--,,-
"
LOAD
THE
WORD
CCUNT
ADDRESS
POINT
TO
THE
END
OF
THE
RECORD
BINARY
RECORD
FILLER
SKIP IF A
BINARY
RECORD
. ······SCO·RECOR1J··FTLLER
..............
'
SUPPRESS
TRAILING
ZEROS
1"QAO
.C
Q.lJ
NT
....
A
..
lJ..O.RJ;:SS
LOAD
THE
BINARY
INDICATOR
Ann··T
NTHE,WORDG
OU
NT
..
SKIP IF
BCD
RECORD
GO
STORE
THE
WORD
COUNT
WORD
1STH
IF
SJ4
DONT
CHECK
CONTROL
CARDS
.....................
,LOOKATTHE·FIRSTCHARACTER
H eNTROL
CARD
.....
"
....................
"
........
m
....
•
•••••••
,
...................
.
UST
FILE
MARK
JUMP
IF
CGNIRCL
CARD
....................................................
" ....
,.
·LOA
D····
FILE···N A RK····SP·EC·IF
IER
...
U~i6X.3,GBI
X3
X2···
..
C
ON
a L
OC
K , C B I
LL\~BEXTl····
uwm~c
CBI
UrlBlOCK
~
BHZ
SAVE
THE
HORD
COUNT
LOAD
THE
RETURN
ADDRESS
PUT
THE
RETURN
ADDRESS
INTO
X3
ANOX2
'H1CtlSEWE'ARE
IGNORING
DO
HE
HAVE
A ceNTROl
BLOCK
EXIT
IF
NOT
....
....
.
......
RESTORE
we
AND
INTERRUPT
ADDRESS
PRETEND
ORDINARY
GALt
0
::;1
..............................................
01'1544030
cro'o
..............
,,:c;:,:,',,,
..............................................
'IT
',;f3
SET
THE
CONTRCL
MODE
BIT
SAVETHE"'W
ORO'COONTW
a
REI
LOAD
THE
FIRST
Twa
WORDS
oji
Or
..
Oi'
:[),
,
'.'
0/
01155
25300001
0115613077755
01157
20001453
P
01160
03501165
P
Ij
11'61
·
..
···±470it
..
lS
p"'
......
,
......
01162
20100021
01163
53700000
01:1'6 4 "'0
10
01
fJ76'P'
.
01165
P
U1165
25300001
01166
33001451
P
01167
····l;·3·40060tJ
01170
03101144
P
LOAQ
1,X3
.....
c
.......................
SHAQ
.................................
~18.
LOA
J
08
AQJ,NE
NOTJOB
·····•
..
···ENil
...
··Uwse·A"l::Ls·
LOA
uwaX3,CBI
TAI
X3
'O::JP
OWBFILL
....
.Eo.O .
LOAQ
SSAQ
..
'
.....................................
··,·
..
··S·C·
A·Q""'··
AZJ,NE
...
T
1,X3
LOGOFF
,,,"._",,
CHECK
FOR
A
Joe
CARD
JUMP
IF
NOT
A
JCB
CARD
HITER·'COMPI:E·TIO'N
...
·AOBRESS··
.........................
.
LOAD
THE
RETURN
'FORcr'ATIlTCOT
BeOCK'
IS THIS A
LOGOFF
NOT
LOGOFF
EITHER
a
'"
'I
./
()
()
o
o
I.
•.
o
o
o
o
()
o
o
o
o
o
o
o
cr'
o
()
()
()
o
()
o
o
o
o
o
o
O.
')
0)
ASSEM8LER/OS3
Vi.a
09/24/74
0310
OTITi
'20iG0021
PA
GE
25
:1.
0
06+001
1006+002
1006+003
lU09
1010
01172
35001153
X
...
011
7:3
··40
lU
0021
01174
Oi001144P
··t.lit75
P
01175
53200000
01176
40100021
01i77'
00701457
P
01200
14300003
D120t
007~0474
X
01202401UOOUO
01203
53100000
012
il4'350
01'45u'P
U1205
40300006
0'1206'''ZOliJO'OI7
\11207
536i.JOOOO
01210
·30200000
01211
17677777
01212
41)300007
01213····13077717
01214
45300003
01215
40300005
OT21640300r.nnr
01217
15200GOi
01220
147;]1222
01221
01001334
"
"'[11222"010
01226'
01223
L~i300[JOO
01224
14701226
......
,
...........
,
01225
0 f!lO
1334'
01226
055000
..
01227
.010012
01230
413000
01231
147012
'01232
Oi'Ou:!::)
01233
Jl0012
01234
413000
" .,
,,"'
., ..
,~,.
".,
··10tl·············
1012
1012+801
i014
.....
1015
·1016··
1017
1021
"'1'023
.
1024
1025
1026"
1027
···--~1·(l2
e
10~~
10j\J
:I:
1
1
....
~
...
tl0VEBUFF
TOtC'
SSA
·····SlA
UJP
UlJ3CAt:t8EQU
TIA
STA
'RfJ'
ENI
··RTJ··
STA
TIA
·····SS·A········
..
··
STA
eDA
TAl
ADA
ANA
3TA
SHAC(
STAQ
STA
"STA'
dLOCKING
ROUTINE
"UfI8
X3
,C
8T
;]
1T23
·U
WBX3
~
C8l,
UW8LDRET
, ...........
>;-
X2
U wax
.3
,
C.S
I
..
UNLINK
3
X3
···G
tn'lE~l
..
CON3LOCK,C81
car
'fJESRDCR'
EPP,X3+CNBLK
SAY
WE
SAW
A
LOGOFF
CARD
AND·REMEMBER
IT
RETURN
ADDRESS
TO
A
(ALSO
CLEAR
LOGCFF
LAST
CARD
BIT)
$~JIZZECTHECtNrROcBLcCK
..
, ............ .
GET
THE
CORE
FOR
A
NEW
ceNTROl
SLOCK
MACRO
FaINTER
TO
A
'oE
STRUC'TIVER
EAD'
AND"CR'ST
ATUS"
U\{tJWC,C8
IPO'I
NTER'TO'fiGROC
bUNTW(n~D
X2
X2
WILL
PCINT
AT
RECORD
START
..........
Q.,
X
2·········
,
...........
,
...
.
777778
REMOVE
CONTROL
CARD
BIT
TFl,X3+CNBLK
SAVE
IN
A
TEMF
.........
-
48'THISSHOULO'Z
ERCAANOQ""
CBP,X3+CNBLK
ZERO
JOB
NO.
aND
VAL.
CODE
SPOT
BLKR
X3+CN8LK
ZERO
ANOTHER
TEMP
........
AGeN
bRO,X3+C
NECK'
""ZERO'ourOESTI
NATTON'QUQll£
1,X2
DONT
LCOK
AT
WORD
0
OF
CARD
PACK
FIRST ITE!'!·
····NUM8ER·POtJNO
BCD
SYMBOL/QUEUE
OESTINAOION
PACi(NEXTSY
[.
JOB
NUM8ERS
MLST
..
BCO·S
Y
M8
OLlER
RC
R
SAVE
JCB
NUM8ER
GET"liAL'COO
IGHTlY
HISlE
E
.VA.L,
IDI:nG
BY
GOO,
1
THI~K
WE
HAVE
DONE
IT.
··SAY
REGULAR
Q
..
l;
E
UEAT-FIRST
GET
QUEUE
DESTINATION
JUMP
IF
NOT
SPECIFIED
·tENST
H
'OFSENO
T
AS'
.................
"
..
"
.....................
"
..
"
............................
"
..................
"
............
.
BASK FOf( SEARCH
LOOK
FOR
THIS
QUEUE
NDT
..
~aUNG'~~
DSE~NORMAL
UEUE
E I
ThIS
IS
A
NAME
OF
A
QUEUE
ROw
R
E:.ry
PET
C.L
eWER
9
EP
AROWA~E
TYPE
ONLY
IP
F A
BAlCH
QUEUE
NAME
Q'AIN
....
,
....................................................
"
...............................................
..
INTO
Q
GET
AOJUSTEDCBTBAGK
BACK
TO
Xi
G
o
o
o
o
o
o
o
o
o
o
o
o
o
o
o
cr,
t,·
,
I
()
1(}
()
()
o
10
o
ASSEM8LER/OS3
V1.U
09/24/74
0310
PAGE
26
~IOVE8UFF
SLOCKING
ROUTINE
()
01300
P
1101+017
NGETCHR
EQU
•
·····01300
.
403
O·G
002··
...
,
..
,
......
,.,.
1101
+018··,···",
..
,
,$
lA
..
,
..
·
·,·G·OREP..·X
3+
C
N8
LK
,....
..
,
.......
, S A V
E·,
RETURN
AGO
RES S, ,.".,'.,',
...
,
..
01301
20300005
1101+019
LOA
BLKR,~3+CN8LK
GET
SHIFT
POSITION
01302
15600006
1101+020
INA
6
FOR
NEXT
TIME
"
""
.....
, iJ:l:3
03"lJS
6CiOU"3,1
....
'....""1:1:
0'1+0
..
2,·:1:·',
....
,,·,"",..
'ASG
..
"........,
"2
If
+:1:'''''''''''''
SKI
P
'''''1'
C
G'
O"'TON
EX'T"WOR
H""
,",'
..
,.,~""',',',,,"
......
",'
..
,',,',"
..
"",','
...
, .. "''''.
"""""""""""""''''''''
"
..
,,',"
'"~'''''''''''''''''''''''
fll
01304
01Q81314
P
1101+022
UJP
MGC04
01305
15200001
1101+023
INI
lt
X2,.......
INCREMENLWORO
POINTER"
...
,
..
,
..
,.
,',
013d6"532UuUOO":i.rO·1:FQ24rIAXc:·""·"'·"
SEE
IF
WE
ARE
THROUGH
WITH
CARD
U1307
31300007
1101+025
SBA
TFL,X3+CN8LK
COMPARE
WITH
LENGTH
OF
CARD
01310
..
033013
..
13
P:
''''''''''''''"
...
"'',
......
,·······
.....
,'"",,,1101+026
AZJ,LT..
MGCU3
".""
JU-MfLIF
.....
STIL·L·""
..
MCRE-
CARD
""
..
01311
03101235
P
1101+027
AZJ,NE
OCOEXT
JUMP
IF
SECOND
CALL
PAST
CARD
U1312
01700002
1101+028
UJP,I
COREP,X3+CNBLK
RETURN
"''''01313''''1'4
600nD
tj""
""tiO1'+0
29""
MGCO'3""''''''EN'A''''''6'"
,,,,,,,,,,,,,"''''''''''''
"
..
,,,"'"''
01314
403Q0005
1101+030
MGC04
STA
BLKR,X3+CN8LK SAVE
NEW
SHIFT
o
1315
53
:;;
GOO
00
110
1 + 0
31
r A I X 1 S H
1FT
CO
U
NT
T C
Xi""
"0'1316'''''''' 2'020U (rOi
'IH1:CfC32
"'TOAI;X'2""'''''''''''''''''GE:T
""THE"WORO'"''''''
01317
121UOOOO
1101+033
SHA
O,Xl
POSITICN
CHARACTER
o
1320
,,176G
..
O 0
..
77
11u"i+llJI+
"
.....
"'..........
,ANA
773
..
,,,
KE"EP"
..
"
..
"ONLY P"ROFER"
CHARACTER·
01~21
53500000
11Gl+035
TAI
X1
CHAR
TO
X
o
o
01322
20001454
P
1101+036
LOA
ClASHRDi
GET
BIT
",.n".'·'
,,',,' .•...
········0
..
1
32
·3·"
......
···05tUOfJt2'···
·····•
..
'·110
j;'+
t)
·3?·····,···
..
·,,·····
..
·"'·""IS
..
G··
'''10r
Xl"
•........
.
.....
SK'IP",
..
tJN
o
o
()
o
r"'i
U
] "
0""
o
~Ai
1
'"'""'Tr""~
10;!"
01324
0170000
1101+D38
UJP,I
COREP,X3+CNBLK DIGIT R
U1325
0510006
1101+039
ISG
608
Xi
'01326'
05100031IOTf04iJ·ISG
308:
Xi
."
...
01327
20001455
P
1101+0~1
LOA
CLASWR02
01330
..
12100
..
UO:o.
1101+C42
SHA
..
O,Xl.
01331
01700002
1101+043
UJP,I
COREP,X3+CN8LK
GET
BITS
FOR
12-27
AND
60-77
··POSITION
.
ALPHjl····
EIT
RETURN
o
o
o
o
.r"'
........
U
o
o
o
o
o
o
(I,
()
()
o
o
o
o
o
o
o
()
o
q
0:
0'5
ASSE!18LER/OS;)
Vi.G
09,24/74
0310
Pt\
GE
27
BLOCKING
ROUTINE
01332
14601334
P
01333
01001300
P
0133~
ITJtOf332"P
01335
4130000i
01336-,53100000···
01337
05100012
01340
01Q01373
P
'0134
1'''1
l
l-:>
7
7700
01342
531013000
01343
12000022
0'1344' ··T:.roOOU06
01345
03001361
P
0-1346
146G1350
P
01347
010Q1300
P
01350
033Q1342
P
01351
".
':14 6uil'!HHI'N
01352
130U0006
01353
16700068
01354
0
:3
1 0 1.35:1. P
01355
14600001
01356
.3
43JU
110
1,
01357
01700llDl
'01360
0
01361
01362
--_
..
".,-,.
-_.,.
0136J
1~6Ul~65
P
..... 0-136 L,
010
Oi,j
0 G P
01365
051!JOG1.2
01366
03301370
P
.'.'
.....
0 Ct13fJ7' ··EH70DiJU:l;·······
01370
130UOC30
01371
50000335
X
013T2
'S'31'4QQ!JO
01373
130
0137.4
111.0
MPACK
ROUTINE-TO
PACK
NUt-lBERS-
AND
SYN80LS
'ENT£RW
ITH
QTH
E"RETURN
.
AD
DR
ES
S'A
N
D'ATH
E
AL
P H
ABTT'POR"t:AST
CHARACTER
FETCHED
AND
Xi
THE
LAST
CHARACTER
FETCHED
RETURNS TORTN
wIlHNUMSE.RINaCR
IORIN+l
WITHSYMBOCINQ
l1U1+057
ENA
1101+058
UJP
.
'lHT1
+ 05'9
'}1'ptfC
RAZJ
, G E
1181+060
STU
-11·(j1+0
61
TI
A
1101+062
ISG
1101+063
UJP
0'1101
+064:
..
'
ENQ,S
liOi+D65
MPACli
TIA
1101+066
SHA
<
'i'ielf1.-~f-(16'7···-
,~"
S}fA'Q~
1101+06
AZJ,
·
..
11Jt+D6
ENA
1101+D7
UJP
1101+071
AZJ
LT
"ciiOt·+!J72·~ftP.!.\:CtX'
'ENA
1101+073
SHAQ
.,±
f~
ltg~~a2g,
1101+076
MPACL2
ENA
-iiAll,+O'1
'1
·-RAG
.
11D1+078
UJP,I
l1Ul+079
..
MPACK
..
MC;,EJCJtR
"'"
-2
lP,X3+CN8lK
Xi
10,Xl
MPAC02
.......
"777008'
Xi
18
'r"
.--
0<
M
PACL3
¥:-+2
~1GETCHR
MPACLi
1
8
X
l
R,X3+CN8LK
lP,X3+GN8LK
.C;EJ
NE.X
T
..
CHA.Ri1
CJ£
R ..... '
...
JUMF
IF
LAST
CHARACTER
SPECIAL
SAVE
RETURN
ADDRESS
INCASE
OF
DrGIT
SKIP IF NOT DIGIT
PACK
NUN8ER
INITIALIZE-Q'
CHARACTER
TO
r.
TOP
OF
A
-""INT Ol.:!lWER
JUMP
IF
Feu
Th
CHARACTER
JUMP
IF
ALPHA~UMERIC
....
'.vFOR········n-jE'AZ;j8EtO\~··"
..
n
JUSTIFY
BLANK
FILL
tONTINUETI[[
UCN£'-
INCREMENT
RETURN
ADDRESS
RETURN
JU
MPI
P'NCN-A
L:P
HA
NU
ME
RIC'"
CHARACTER
GETNE
XT01
GI
T
SKIP
IF
NOT
A DIGIT
JUMP
IF
NCT
E~O
OF
CARD
RET-URN
NUMBER
TO
A
ADonr
DIGIT
NUMBER
TO
Q
>r
....
Ji.
.
..
11-
".
'>J.
>J.
>f
....
11-
>J.
Q
,,0'
"
o
.0
'"
!,<
o
o
o
o
o
o
o
o
o
o
o
o
o
()
--
--
--
---
--
--
- - - - -
--------
-
--
- -
..
~-
--
-
--
--
-.--,-
- - --
-,-
-,-
~
-
---
-~
----,-
---
--,-'-
--,
----
-.-.-
----- -
-,----
-_._--
---'--
--
-----
---.-
-,,-
-.-
--,-
-
----
~
t
1"
!!'
,
;
I
I
I
I
,
(j"
()
..
,~
()
0
0
0
0
()
0
0
()
0
0
0
ASSEI19LER/OS3
Vi.O
09/24/74
0310
01375
P
···,01375··
53·50rruoo
01376
20100024
01377
03277777
X
..
"0'1400'"533
UuIJu'a
U1401
40100024
01402
47077777
X
OT403'fTOotfOf3'
01404
17603777
..
,
....
Ot41l5
.... 535DOfHW,·
01'+ 0
60S
40
(J
0
77
01407
0540iHl
1
014::t4
P
·0·14·1f.t...·5437.17i7.
01415
14701417
01416
01500026
,uu01417
'47'Z0t414"X'"
o i
42
0
2010
G 0
26
01421
033Q1.44L,p
01422
.201000
01423
35001
·01424
401tH!
01425
31]0
01426
7(jO
0142
01430
01431
·
..
·aT432~
01433
01434
••
,
.............
II.
"U'143 '3'
..
.
0
'/
d'
0
"'3
0"'
0
0"
3J
( "
~.
0'"
01436
01437
01440
01441
U144·2
IH443
01444
01445
01446
......
U14LI-
7
0145
U
01451
o
14S3
01454
.
01455
01456
01
3700Q
40100
'01
14601[1
X
QIQQ14i4fl
0440000G
17434627
41462273
6007773L
t
1774017Z
00000000
PAGE
1134
··1135
1136
1137
1'13'8
1139
1140
1141"
28
hOVE
SU
FF
BLOCKING
ROUTINE
~jf.5;..'-'iJ.Cij.'
~i..-Jj..';ij.~jl::;""~--ij..--JJ.-~i;.
-jj.·¥·'jf.··¥"'ij.-":Ji:£J."ijjj..'1j'j~')j.'J,CJi-"ij..·ij.~ij.~ij."¥")j."]f"¥-"'"if.
'~'J;.
'Jj.0¥'
if."ij.'.2;.'
-ll'i;."")j.'Ji.'"i{ij:lj.
¥"i'",v,'
~-Jl."'
~""-:f"Ji-'f"-:;,
ij.-i;.' :,j.'ij."'J;.'i;."Jj.'
:,.--y."".
.i;."
......
e.
,.--",,,.-~--.,,.
• •
..
,.,
..
, HIG
HS
PEED
II~
PUT,
THIS
ROUTINE
IS
USED
TO
PROCESS
HIGH
SPEED
SLeCKED
"INPUT'OEV1CES"CONNEC'T'ED""TO'T
HEP
OP8'.;"····,
,.,.Jif,
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
••
_.,.
___
•
___
,.
__
'
••
0"
0
.~"
['II
8I
r 2 3
OEVTYPE
CBl
..
+
...............
J
...........
.
KZE-:RO
UWl
05/2,A4/HTCR,A15/0
i.:Sb
~
..
~QEf
60077734
....
.17140171
.
A24/IMPURE
····CONTRClBl
CCKAOORESSTC
csr
ARE
WE
EXPECTING
ANYTHING
JUI'l?
IF
NOT
f;.
OGRESS'
'0
FT
H
iE"8t:OCK
SAVE
THE
64
weRD
~mRDcaUNT'T
d
'ff
,
...
JUST
THE
COUNT
····AND
·INCEX
TWO··
SKIP IF A
DATA
BLOCK
STORE
.
FORN'"
.........
",
..
"
.............
,.,
.....
,
..
,.
IT
INTO
THE
BLOCK
IHE
..
fTNA
LRETURN
THE
COMFLETION
RETURN
HE
8LCC~IhG
ROUTINE
FREE
THE
64
WCRO
BLOCK
SAVE
12
8ITS
M
ER
THE
FILL OUT
AF
I LE
·MAR
KI
N THE
FILE
CLEAR
THE
FILL
CUT
BIT
SAY
TO
FREE
THE
FILE
CORE
BLOCK
UESTRUCTIVE
READ
AND
CARD
READER
END
OF
PURE
REGION
04
()
o
o
/
......
\
....
~
....
~
....
IS
•
..)
o
o
o
o
o
()
o
o
o
o
o
o
o
o
()
()
o
o
o
o
o
o
o
cr
o.
Q.
o
ASS E HclLER./O
S6
Vi.D
09,24/74
0310
PAGE
29
~iOVE
8U
FF
BLOCKING
ROUTINE
12f1
01457
01·0.0·0·
000
U1460
2010000(;
01461
03001451
P
0146253700000
01463
20100023
01
L
.64
Lf.1.;30000b
1212
1213
····UNLINK
UJP
LOA
AZJ,EQ
It>lPURE··
GONdlOCK
C81
UN
L·I
NK
THECC
1\
T RCL
BleCK
FROM
THE
MACRO
0146520100013
01466
537JOuOU
01467
141+00757 X .
01470
0430UOOO
01471
30700761
X
01472
.
'0100
lL
.S7P
01477
7751252:1.
064tl4
.p
.....
.
UQu14
NO
LINES
WITH
ERRORS
1214
1215
. ······1216
1216+001
1216+002
1219
..
1220
1221
1222
1223
····1224···
1225
1226
1227
1228
··122<3
1230
············'fAI"
LOA
SWA
LDA"
TAl
ENA,S
ISE
RTJ
UJP
ENOI'IESS
aco;'c
FOR~1
EQU
'.'
ENOIGENT
EQU··
U
NL
INK '
'X3+CNBtK'"
.
DESTLP,CBI
EPP
X3+CNBLK
PSAtoc,car
..
X3+PSA
·NCRl~AIT
O,X3+PSA
IOCLEAR
UNLINK'~""""
.
EXIT
IF
NO
CC~TROL
ClCCK
GET
DESTINATICN
lP
PUT
DESTINATICN
CODE
INTO
CNBlK
OOESTHE"FILE8ECONG
TO
A
RUNNING
USER
·GlE~R
CR-WAIT-IF-A·
RU~NrNGUSER
SKIP
IF
NO
USER PRESENT
.
'17~END
FOR
I1S
..
XXX;':A
E
NDMESS+l
..
·ENOMESS+3
12,READY
A8CD"
R
DYMESS+7'
.
"'-RonlESS
.........
~
...................................
~~
•.•.••.•..•.••................
~
......
'
.............
'
~
..
~'..
...
..
........... .
.,
CI;
:)a
.'
"j
,()
()
0
b 0
;.0
I
0
0
0
()
0
0
,....~.,
1-.)
0
0
0
0
C)
0
0
0
o
O
·
o
o
o
()
o
o
o
at
O'i
ASSEM8lER/OS3
Vi.O
U9/24/74
0310
PAGE
1
.,.,'
"'Ace
NUlf""''''
,.',.
"X
1
"52'7+39
I)0530"P
527+10
00475P
·131
··00
a,66F,
15
DODGOP
486
00427P
""'15'
""'1'9
'UOOO'Op"
ACCWORD
OUOOO
71
1U33+1
01216P
1035+4
01223P
1087+2
0123EF
1094+6
01271P
·8ATCHPNT
OU022130
·1084+3·
01266
p
..
BF8GN
00002'
13
228
OOOOOP
270
00044P
279
0OO57F
415
00265P
453
a0357P
""'8FCPP
iJ
FPTR
8INARY'
BIT17
,.
alT18·
8IT19
8IT20
"""'''~'''''8
'1-'T'2±'''''''
81T22
.".".,
...
J3.::U.?,~
..
""
...
,
....
"
..
""".".
"B.1T2:3
Z.z
BLANKS
BLAI'lI<SS
'"9'LF'-'''
''''''"'-
r3LKPOS
."-"~
t~~KS
8LOCKSL
8
LO
C KS
Pi·,·
CABK
CAU3AK
"C8LtlC
cap
CHECFORN
'crAS
i,-IROI'
CLASHR02
CNODE
CN8LK
. GOHEXIT
COt~~IO
RD
CONBLOCK
CORE'"
COREP
COUNT
CPP"
CRFC3lK
01.0
JCDEXT
DESROCR
·······OESTl::P··········
..
o
::V8L
K
'0
EVT
YFE
,,'
..
or
EPSU S
OINT
01SKBU,jY
DONTSTOP
·EMPTyX1T····
ENAD
OU003'"
o U
(]
01
506
00442P
··''''''233·'0000
4p~"·"m···"···4
5
9"0
037
2 P
109
111
00666P
882
01032P
763
00606P
775
00677P
':CUT
, .....
95J"b
fT22P
~.
9,;:).01,,0.':t.~J?
8.1.1
... G .
.1.0".P
1F
02
1094+10
01275P
,,34,
10100U
Q a
Ft
...
"..
···,,-287
·0006
Tp···,
35
241
DOQ13P
527+1
00465P
36
330'
00123P
448+1
00350P
••
_w
,_""'
527+24
00511P
475+1
00414P
464
00316P
793
OG717F
798
00722P
860
01011P
.,".,
"._>
,---
"
"-.-,
_ ...... _
...
'''---
''''-'"''
527+
42
00533F
632
a061S?
650
00634P
634
OOo17P
652
00636P
""M'3',,?"'"''''''''
""'''''''''''trt
g""'O'
'0'
2"10'
p""'"
".
'·""'·'''·4,,·trEr+'3''''··0
0'3"2'{}'
P"'"''
",."'"'
..
"",,,,,.,'''''
i.M.",
".,,,,,,.MMM"''''''''''''''
,"
68
243
00015P
257
0003tP
.,
..
,,4,9.,
.....
, 2 8 3 0 0 0
63
P 6 +
:5
0 0 3
22
P
····"T8'8·0nr13'p··'
8'
41f"'OO
7 7f'P"
23P
1
0144
x·
..
,,"
x
52P
OQS2
liiP
204,P
G"G'P"""
66
p
p
P
965
01127P
4L
•
6:i~2b00335
p,
01235P
1035+8
01227P
01450P
1023
01204P
Uti
O~2·3~~"u..
.
......
"u'132
'0066o"P""·M'U
00013
37
OOOOOP
454+1
00361P
000'26
142'
'T44"0
0666
F
X 45
572
00563P
..
07773,93",.2.37
..
0.0
Q.O
..
LP
U0013
121
789
Ou714P
OJ3D3P
432
420
002?lP
liiH+9Cl
1101+27
tliJ23'3P
OQ7uitP
JJ:1.215P
QUo27P
00525P
G
06··3,1·.p,···
..
013718
01311
P
"12'1:6+1"01:463'
P,u
360+1
0Olo0P
454+5
00365
P
·'1'169'014'16'
P
.....
...
274
aOO4ZP
790
00715P
428
00301P
'01:032P"·''''88t·916''''''01:i:l6
6
u'''''''·~··,~''·''u,'''.''',
00010
26
27
00000
410
00260P
318+2
00104P
507
00443P
"'''971'
orr42P"
1191
01442P
....
·"E,65",O,065!JP·
527+28
00515P
629
00612P
659
00644P
.....
99001153
P'l
006+2
0
fI72P'''''f094+90
1'274
P'
'4820042'3P'
.....
···
..
"51"7!10452P
B09 DD734P
816
00742P
902
D1DS1P
"
.1
o
Sto
..
±.2
........
0J
.25.,.
E
.....
".,1.1.
OJ.
tl,9
...
01..3Q1
E
..
".,
...
1.1.o."1±.3.0"Ol.31A~",,
4 5
D0316P
~46
00317P
446+6
00323P
446+1
00324P
O""IJIJ645P
...................
~.,"
·····'66:t·'QG6'4ep·····"·
..
·····
"'"."",.,,"''''',.,
,
T78'l,10701F
781'"
00704P"·
793
007l7?
797
00721P
·····",·8·16
..
···O·U7·4·2·PB18
00744P,
834
Oa762P
836
00764P
872
01021P
878
01027P
""·892·0:1:0'!f
2p··
...........
·""893
'"
···01 a
lf3
P
..
"".
913
01D63P
919
010G7P
938
011.DlfP
94~
01120P
g9S
'f1116'2Pl0
06+
1"
011?iP"
1026
01206P
1090
01253P
115201376P
..
115501401P,
1178
01427P
1186
01435P
1219
01465P
521+10
DD475P
527+17
OOS02P
527+21
OD506P
527+23
DOSi0P
875
G1D24F
a76
01025F
1024
01205P
1030
012i2P
":11l
:1'3
Fl'"
tlt21GP"'''··'·'1:·0:~5'+q··13!·22'3P·H
..h1
O~
5''+9·1)
12'30
p"
'"
····t
Q\35+13'''0123lfP'
1090+2
01255P
1090+4
D1257P
10S2
G1261P
1094
01263P
1101.18
G130DP
11D1*19
013C1P
1101+25
D1307P
1101+28
01312P
I1Gl+43
0
13:31p
11.
Gft6u
0'133
SFif'[flt
77013
?'6P
1101+7
80i357P
1216+2
C1464P
"I
N'
Y,""I",';,'~,
<
if,",',",~"'N
,"'<w",,"~~'"''
""0'1,'-"0,
",
~"'" o,','~'"""'"
I
360+8
00167P
402+1
00237P
472+1
00406P
527+60
00554P
1171
'OT42UP ········1186 OT435P
171
00674P
824
00751P
828
00754P
411
00261P
412
00262F
1017
012Q2P
·"852·
...
01
a
DiP
1101+
38
0132
4P
~§~
..
P.O.2.24P
403+1
00244P
1190
o
144TP
845
00772P
490
00433P
1214
01460P
905""'01054 P
1101+43
01331P
403+6
00251P
1'196 ···01445P
846
00773P
Q;
7:
,-
()(}J
i/
()
()
0
(:)
0
;.0
L
0
()
0
0
()
0
0
0
0
0
0
0
0
0
0
f
~,
l
t
~.
i
l
j
I
I
I
1
I
I
I
I
I
I
(1
Q\
,I
()
()
0
CJ
0
C)
(-)
'-
0
0
0
0
0
q
dJ
0.,
0;'
0 t',
0'
,~
,,,
Q.
OJ
ASSEM8LER/OS3
ENDIOEl'H
ENDMESS
Vi-O
09/24/74
0310
PAGE
2 f"iOVEBUFF
EN
IT····
EPP
EXITAOO
EXPOATA
FB
FILEl"!
FILEX
FILEXA····
FILLOUT
FINK
FHlI<Pl
FIRE
FI
REP·1·
Fum
FLWOA
F
t1ARK
FORM
FORMFLAG
FORi1REC .
F
OR~1S\1RO
x
·x
x
~J.
FREE>3LK
x
FREEFILE'X
FREEMErvl x
G8HI
····GBLW·'·
G
cNOW
GET8LK
..
GET3UFF
GETl1EM
01476V
f22~
423
'011'2
7Lf P
1228
01417P
...
·36
00000
F
44E+300352P
527+3
00467P
'gO"52'/+2'3
00510
p'
01473P
1227
0001228
0'u006
00015
00024
..
o U
000
00227P
()0304P
00267P
.
01051P
D0371P
OO.350P
0:1.71'1
01474P
····OOlli2
00
016
120
124
00666P
878
01027P
'13714'000'666
p
11
12
OOOOUP
626006
OlP
""
385
284
00064P
434
388
00231P
'41'7"413
00263P'
901
803
00727P
47
489
00432P
.
"48'
"49'3IJO'i+
36 P
49
863
Oi014P
S
0867
01·0·2·0.p
458
466
0040GP
448
476
00417P
9
g'
9
75
'01
t''fiJ
P
1228
361
002G2P
51
321
00112P
95
292rrua7~p'
40
Q
U0012P
o OG·145P
9
00654P
·····"GEHWRO
U03?'6P
GIVaUFF x
GIV8UFFA
HLNT
...
""J)
0 D
02
HSH1P,..
E.
HSINPFIL
HTCI~
··)J.HTFILE
)J.
HTLP
HHt~SK
"¥-HTMAX
~
HH1SF
.:O<
....
HIML
'f
HTNULL
¥-
HIPLOT
········'l-HTPTp· 21·7
• HTPUN
207
~
HTRAF
214
...
HTTASl<
213
'1087+11
~
HTTTY
210
\t.
HT TV
213
'
HW8UF
795
776
G07DOP
IADR
227
261
OOU~1P
..
I,DENT ....
49,5D··8GI}{lOF
IFENO
X 60
1133
01377P
IFEXIT X
51
1167
01414P
IMAO"GOOGS
22·
"24'0
ODo-iJP~··
IMAOR
00003
112
113
D066SP
.,IHOR
...
iJ.OOJJ3P,
..................
231.
.....2,71
..
.oa.cL4.5,P
IMPURE
QUOaD
77
1207
D1455P
IMPURE04
E
01455P
1207
19
DOOGOP
··I·NHI8II······
······
....
x .........,.
·62
·····
..
51iOI}562P
10
BU
S Y X
63
4 0 7 0 0 25:; P
IOCLEAR X
64
833
00761P
HrADR
····OUE6'6p.. .
"762
784:"OOT07F
IXTST
G0126P
334 346
00141P
.
JOB
01453PL204+L
9,93+1.1111.57J?
KILL
E OU60GP
618
20
DOOGOP
1229
01477
P
238
0OO10P
449
00353P
527+41
DG532P
lU24'01205P
'.,
774
00676
P
1152
01376P
405
00253
P
242
OOOi4P
418
aD2.c.7?
...
672
GOeSSP
······24·g~·uO
Oi417P
'OU133P~
00673P
1213
Q1457P
1223
01471
427
00300P
276+2
OOQ52P·····
469
00402P
527+52
00544P
'lil88
O'1252P
791
D0716P
1155
'o:f4DIP
473
00411P
255
OG030P
···421,
aU272P
677
OG662P
p
54 OD2u5P
359
0
alSoF
778
O!J701P
KILlFlAG
00007
25 26
GOOoor
323
00114P
386
00227P
········K
..
IL·LI1
..
··
..
,~
..
·....*IJG,2·3"rP
..
"··
..
,·
4i}2+1···~·······388+
±'
..
O·(H~·32P
..
"..,
..
·,··
..
,5J:·3······00,4:
5 0 ·P'·'M
....
'
.......
,
.•......••........
"'~
..
.
KZERO
X
65
927
01076P
1198
014~6
~
318+3
a
Qi·OSP
475+2
00415P
~·'t216+2·
"O:l:'4'64P'"
834
007E2P
1173
,.,~
di422P
485
00426F
259
oa033P
..
6280
C611F
37400Z17P"
800
0072f-j.p
511
00446F
,··446+4· 0032··tP
475+3
00416P
862
01013P
i175
Ot424P
527+53
00545P
328
00121P
64900633P
448+2
00351P
527+2
00466P
864
01015P
527+58
00552P
331
QOi24P
656
00641P
OuT03P'~"'89TOi047P
.~
631
00614P
...
_.,-,--
--
--
--"-----_.-
--
-.-'-
-
---.-----.-
--
----
-,--
---
._"-
--
-,-
-
--.---.--.--.-
-,---
- -
-'--
-,-,-
--'--
-,--
--
.---
--
--
-,-
-
-,-
--
- -
-,-,-
--,-,--
-
-.--.-
--
-.-
---
--
-- -
--
- - -
--
G
I~"
.~i
u(1;
',)
()
()
t
0
0
;
..
0
<!,
0
0
0
C)
0
0
'-'"
U
0
........
u
0
0
0
0
0
0
(J)
(
(J)
,.
w·
I
.,
,
~:
()
Ii!
~
I
0
0
0
0
0
0
()
0
0
(0)
.......
0
Q
di
0(1
OS
0;,
0'
=rd.
cr
ASSEMBLER/OS3
[~iItf"'"
LOGOFF
-LP
11
GC
0 3
V1.il
09/24/14
0310
PAGE
3
MOVEBUFF
Ou
00
6"
5
'OOlrolfV
..
'''--''
29r'
U'O'OT3P
01451P
1204
1004
01166P
OD
00
1-
.".
78
··,··527+
210
·U.S,[J·6f'.···
01313P
1101+29
1101+26
01310P
01314P
1101+30
1101+22
01304P
10.
80
+4
..
0.12
57
P
110.1+·77
·Oi356F
.
11:01+78···
01:357p·,···
·--1101+88
01367p·
MG
COLt
t~GETCHR""
MFACOi
"01300
P'tt01"+17'''1t01+'9'BOt'333P-~'''1'1tJ1+70'
Ot3'47pw-
"'1101+82'01362P'
.,.
'1101+85
'0 t3E:
4P'
",
...
"
............
,
....
,.,'
...
,
....
,.,
.....
.."
... ,
..
,'
............
,
..
,
.........
"
M
PACO
2
....
HP'ACK
...
01J63P
1101+84
1101+93
01374P
01373P
1101+92 1101+63
01340P
. 0
i:S34P
flOTt-59"
....
1035+'201'2'2'1[51035+"6'
0'1225 P
G1342P
1i01+E5
1101+71
01350P
M
FACt
1
MPAGL2
~lPACL3
""".,
.................
013S5Pl101+76
1101+80
D1360R,
01361P
1101+81
11U1+68
01345P
M
PACt
X
NBIT23
......
NCRWAIT
NDATA
'NoATAoz'
......
NJM
....
···
..
,··-···-N01FOR1'1S·······
NOTFR
NOTJ08
01351P
1101+72
1101+75
013S4P
. x
..
·..
Er··'·
..
··..,·" 82'7'"
OQ'l5'3P"""'''''i:t
9S"'014'44P'"
X
67
831
00757P
1221
01457P
o.1433P
'O:[L~46P
au
D
11
·0.02·2
ZIP
OU140P
(lllS
SP
1183
1162
01410P
"'1'
1137
····'lTlfe"·o-f43lF-'-
27
DaDODP
.
·380CHH47P
344
OD113P
i002
01150P
414
00264P
325
00116P
:3
60+17
....
C1020tJP'
1035+:C1
01232P
...
flOT+S70f332P
....
481
00422P
332
00125P
NtJMCONV····
NUMCV02
OPMSG
,
..
,."
........
,
...............
PDP88TK"-
x .
..00:1,
0.,
9 e
....................
,..
...
"
.......
,~".,
......
,
.......
__
""'."
..
'"
..
""
.~.Q,~.E
...
PDP8CTLX
.,PFLOC,
V
A
X
......
PFR
..
······
....
·
..
·
..
·
....
,"'
....
·
......
·
..
,
..
·
..
·
..
,
..
PFSAVE
...
,.,
..
,
...........
ef.W
PF
~~
ORO
PLCLOP
PLCR.
····PLSr
..
POSI
SI
RUYMESL
ROYHESS
READ
REGQ
'''''''·''''
..
··
..
''
....
'RG
BNS'
......
"···
......
"
.....
RPLCW
R
PSAPTR
""S
CRAW·····
SCREAM
SENDLOOP
SENOTAS
SENDTABl
SENDTABt:
x
, --,
x
x
·X
01241.P
SENOTA3P
01242P
SENDTLP
0124DP
,
.........................
STOP
IT'
On3Z0P
STRT
_
00624P
S1
RT
D:L,
.......tJ
0641
P
STRT02 G0650P
STRT04
00655P
··"
....
STRTO
6"0
0661:P
STRTERR
0063DP
STRTLOC
00025
""SYNC
.
.......
0010
U F
SYNCL
00027
-SYNCM D
045
6P
TERMF
00233P
TERMFX
OU244P
1Ft·····
.~'
.......
H'
···
.. {JOOOl
TIMAD
00012
641,
655
664
6/'Q
..
··
..
"0'75
...
·
046
57
311"
523
522
398
403
97
11
'3
D02fJF
1:2SiJP
a
12
42
P
U124
i
.P
......
.j.j::.".
......
?;l..!,.,
•.
;)124
Of>
nuuoop
OQOOOP
OOiJ54P'
ooooop
00623R,
(J0637P
63
OU620P
63'3-0Q'6"16'P'
627
D0610P
27+62
00556P
-354IJOT5TP
314
0010iP
-523
0.
0,4'&3 F
..
,---
286
00066P
315
QOi02P
1087+13
01251P
.......
·,
..
··
....
·
......
6'·5
..
1:
....
···0··0
630
00
384"
a0226F
...
313001
..
00P
'52l+
ly"O"0502P''''
··"
..
'
..
8?S
..
wU1:024p
..
·
..
"·
120.
a0666P
840
00766P
OG756P
O-tl?55 p.
527+44
..f!
flit
..........
"
...
""
....
,:.:.,"'.~,
.,
............
.
666
006S1P
4'U2' 0"'0236P
356
OGlS3P
.....
799
00723P
327
0012Gr
832
00760P
,11)93--01262F,
..
658
OD643F
436-
tl
030
SP-
823
00750P
892
01042P
.4J.5
Q O
..
413P
435
o.0304P
336
00130P
.1220
01lt66P
·12,19
·01465P
.
568
OOSS?P
.6.
In'O
1
..
0
.;31F
568
OQ653P
451
..
OO35SfL
858
01007P
913
01063P
79.9 o g
7.~.~P
452
00356P
338
00132P
1222
01470P
679
00664P
o
o
o
o
o
o
o
o
o
o
o
o
o
o
o
............
-
..
-
..................
-"
.....
-
......
--
...........
_-
z (J)
...........................
-
......................
sC1
...............................
_
.............................................
_.;)
(j
o 2 - ......................................................................................... -............ -............................................. -............ -
.............
--
.......
--
...
·
..
·
..
-
....
-
..
··
..
·
..
--
....
·c·
........
··
.. -·
..
:--·
........
--
........ -
.................
-................
--
...........
---
.............................
--
..
---
........
--
....
-..... -................... -.............................. ,.
..
-
....
,.-.......... -.. -.... -..
---
........... -....
--
....... ---
..
-
......
---
...........
--
..
---
...... -.. -
.....
-........ -
....
--
.......
-
..
-.. -........ -..... -... " ...
--
..
--
.. -
.....
-
....
--
..
---
......
---.. 0
ASSEI'lBLER/OS3
V1.0
09/24/74
0310
PAGE
~IOVE
au
FF
36D+1.0
··-00174f
T·_····--·360-+Tb-·O·OT77p·
402+2'0-0240
P '402+3-
0024
i P
403+3
Ifo'246p
412
00262P
438
OD3D7P
443
00314P
446+36
00347F
450
00354P
468
·O·04·01P··
.......-
47.1···U
04Ll4P-·
·····47300411P
.
··479
O·0420P···
481
·0
0422p··
485
00426P
486
00427P488
D0431F
489
00432F
490
00433P
527+6
00471P
527+8
OD473P
527+16
00501P
527+20
oososp
527+22
00507P
52·7+29·0U516p·······
5'27+3-Z-0'U521P"
······527+3500524pw
527+37
"'0
0526P····~n7+··39··005·3·0·PM
569
005GOP
570
D05SiP
577+3
OU573P
577+5
OOS7SP
577+6
DOS76P
646
00630P
674
D0660P
763
006G6P
7t4
006E7F
772
0067SP
"80100725P
-"tf020Q726P'"
81flJ0736'P
8f700743P830
00756P
839
00765P
848
00775P
853
01002P
€54
01003F
856
0100SP
860
010
il·P·862
U10i3P
86301014P
887
01037P
e96
01046P
903
01052P
940
01iD6P
943
01112P
946
0111SP
()
864-01-015
P
··877
01026?
.
S05
01054F
S08
010S7P
950
01121P
969
01l32P
'979'
ati4'3P"""
·······9·82-·
O:tt-l.f5P 99i··Oll·5LtP············
992
011·55p···
....
••
..
999
..
01·163p·
1015
01200F
1024
01205P
1030
01212F
1035+4
01223P
1035+9
01230P
1035+13
01234P
····10
llo+4" 0'12
57p'i
er9
2 'of'Z'6:CP" ... _ ..
'10
g"L
t
'Of263F
()
1032
01214F
1033
0121SP
1087+2
01236P
1088
01252P
10'34+5
G1270F
"'i09/f"+6'0127:fP
1101+19
01301P
1101+25
01J07P
1101+28
U1312P
1101+30
01314P
1101+38
01324P
·11.01+60-01.
J
3SP··
·1101+
(·7lLt3
56
fL·-ii·Oit?
13013
57F
1164
G1412P
1167
01414P
1176
01425P
o 1·101+8,[3
G1367P
115Lj!l14IJOp·
1216
D14E2P
1216+2
01464P
1222
01470P
o
o
o
()
()
o
o
o
d
00
0·····
0'
409'002S7"P-."
...
IT
462
0037SP
482
00
423P
i)U'.,<
503
00437P
.
527+26
00513P
527+61"OOS'55P
623
00604P
I~~
gg
~g8~
,;Cl
857
01006P
-~~~~I8~~~'
..
.
()
973
01136P
100301165p···'
/
1033+1
012l6P
1090+2
0125SP
11
01
+
18
...
01
30
Of>
1101+43
01331P
1163···
0141·iP-······
1220
01466P
"
,~-
()
0 0
i)1,
;;0
0
0
0
0
0
0
0
...........
u
0
0
0
0
0
0
