25_MOVEBUFF 25 MOVEBUFF
25_MOVEBUFF 25_MOVEBUFF
User Manual: Pdf 25_MOVEBUFF
Open the PDF directly: View PDF 
.
Page Count: 34
| Download | |
| Open PDF In Browser | View PDF |
ASSEM8LER/OS3
LENGTH OF
Vl.U 09/24/74
P~G
0310
PAGE
hOVE8UFF
1
01503
1
2
4
IOENT
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
>I-
'
COMMENTS OESCRIBING THE·FUNCTIONOF EACH·HALFARE
AT THE BEGINNING OF THAT HALF.
11
12
S VS MAC·
00023
oi 242
01240
o
o
o
()
rw
9
··10
00500 P
00 GO (} ". P ',""
II
UNIT RECORD EQUIPMENT.
IT CAN BE THOUGHT OF AS
3E I NG TWO DIFFERENT ROUTINES U RBLOK
(READ .llNCDESt aCK),
ANOUWB[O K .
RITE AND 8 LOC k).
. ..
. . . .....
.... .
7
8
01456 P
•
, r HIS 'PRO GRA"MI S'fHE 81.:0 eKE: RIO ESt 0 CK ERFO RAt LTH E
"5'
6
01.375 P
twlOVE8UFF
INCLUDE
~SYSMAC
. COS
Y1 0 ' 3
...... ... .....
ENTRY
ENTRY
."' I)
0
0
lt~I
·HSINP
IMPURED4
ENTRY
0
KILL
""ENTRY
'P URE 04'
ENTRY
QPNT
ENTRY
ENIR'r··
p' ......
SENOT
S EJ40T
ENTRY
, .. .E ti··T R.Y
,eU
SIRT
.. U·Rf.H. 0 K
ENTRY
i,
UR8LOKI
URBLOKIZ
0
LJRBLOKNX
URBLOKQX
[fWt3IDCK'
UWaLOCKB
0
AGGNUM
0
ENTRY
"'ErJ-TRY'"''UR8LOKQ''''' ,
ENTRY
ENTRY
"·ENTR.V
ENTRY
o
.
BIT17
NKS '
13
o
0
'\ 9
21r"'
2.
o
o
o
0
0
0
0
RO THAT SEZZ FORMS
················,.,"'UTTNE TC'F;:(EEFTLE BLOCK
}::'R~;-~"'L}
",,,.,.F·:~EE k~ t~l I:.
GET8 L K
GET8UFF
'''S;;T,.,I\;::::M
o
OF." ....., .."....,
;,
ROUTINE TO FREE FILE
NE .TGGI\i£fi ACK ERE EST 0 RA GE ...
ROUTINE TO GET DISK BLOCK
.J~ourI
ROUTINE TO SET CORE
0
BUFFER
";;:'0 iJ liNE . f'C· SET' .. FiR EE"'S '1' eRA GE ....." 'c'"'''''''''''''''''''''''''''''''' ,.,,,.,
GI\/[~ LJFF
ROUTINE
GI'J8UFFA
. 'TFEND ......... .
I FEX IT
INHIBI T ... ,. . ". .,...,... ".,,,...,,,.,.,"',.... ,,.,",.. ,,", ... ,..
I 08US Y
IOCLEAR
o
,. .
Ie GIVE BACK CORE BUFFER
FILES lEFT
TO DO
. "·······RO'tJTI NE"TC-' TYFE'MESSAGE TO "OPERAT"'"
"."",.,,,.,.,,., ",,,•.,.,.,.,,, """,,,.,,, .• "
0
0
0
0
0
o
0
ASSEMBLER/OS3
(I
Vl~U
09/24/74 0310
I
PAGE
2
~1OVE
8U FF
EXT'··· ............. ·Sf NClrA81"
EXT
1
~
~
I
11
!
i
I
EX T
(lll
()
II
I
I
I
()
OOOL~
::0
·0
0
00005
00006
····d·O U0']' ...............,..............
(.
00010
00011
····.. 00·Q12.·
0
I
I
oooot
'00 002
00003
I
II
SENOTAGL
···vJ RIT E ..· ................ .
0
00013
00014
0
0
00015
00016
00017
°
°
Ie)
,
0
····. ···FIRsr .. A·CDrlESS . . . ceNTRO tL:ED··ay'·· ...............
FILE LOCATION ONE.
WORD LENGTHO.FFILE.8LOCK
°
U::NGTH'O'fFILESLoCkS
.....
0
.....
0
HEAOER~
......................................
0
0
0
.. u0 a12
C)
MAX L:ENGT hFOI1
"t•. ':7'~"'" ···,.. ·····,.. ····,··· ..•..•• ..··'*, ..•·•· .......... ••..·•·•..
0
s EZ ·z· . ecNTRCt. . ·. CAR 0
SE ZZ F ILf:
0
A FCRMSREGORO
~'1ARK
0
0
/~..,.
U
0,
0
0
0
0"
0
0'::
0
0
.................., . . . . . . . . . . . . . . . . . . . . . . . . ...
0
c)
0"
0
=ro:
0
0:>
0
ASSEM8LER/OS3
V1.0 09/24/74 0310
PAGE
MOVEC3UFF
3
>i- 4'44;<>1- >;'-'/- >;-::;.
lU5
¥ ....
UNBLOCKING ROUTINE
>,< :>;.>;.>;-
¥
~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.
~
~
f·URSLOK
THIS IS THE UNIT RECORD OEBLOCKER. IN ADDITICN TO
'" .....
DEBLOCKING,oUtPUT'FILES THIseODE'H ANuLES""'"
110
KILLING OUTPUT FILES
111
ALL OPERATOR MESSAGES AND RESPONSES
" RESULTING FROM'" SPEC I AL" FO R~lS'" .,"
f12
113
~
ALL OPERATOR MESSAGES AND RESPO~SES
114 .......... >fRESULTINGFRON,THE REQUESTTNG OF
115
DEVICES THAT NEED TO BE READIED
116
BY THE OPERATOR BEFORE OUTPUT
117
CANBEGI'N.
118
119
TO
INITIALIZE
PROCESSING
Of A ENTER"ADm~ESSC
FILE
ENI '"",.,
,.,'", 8 LOCK;Xf
"'" '"
.. ,
FCONT ROC
120
121
ENI
RETURN 1 X3
ENTER RETURN ADDRESS
122
UJF··"
URBLOKl
123
124
URBLOKI WILL MAKE THE IMMEDIATE RETURN TO THE
'AOORESS"IN"X3ANu"REfURNTOuTHECALt: '8ACK'A CORESS"
CAS DEFINED av THE CONTROL BLOCK MACRO} WHEN DATA
.1;IS AVA 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 ..-----
·106,
107
108
109
()
o
o
o
o
o
•
'-'a".
I
Jj-•....
o
o
SLOCK
.. ,:,;.
,
.
.,REt~[lY
o
,
..
'"'"-'"
'I~
>f
()
... ABCD,
WHER E ,Ai3CD--TST HE, GEV ICEl\AME
o
CONTROL HORC AND EXIT
--OKTHE····DEVleE.·······
tED BY THE CPERATOR
HANDLING IS RECUIRED
--oaTAI NAF Itt. CC~.E ..
DRIVER TO READ IN
o
o
o
o
ON A FILE
'''··'ENT ER'GOI';1'RCt'B tOCK'AODRESS .. ··....""····..,····
ENTER THE RETURN ADDRESS
o
I,DDRESS· INX 31FT HE'
o
IN X3 PLUS CNE
CALL SACK REJURN
S IN ITo ON EITHER
E OF THE FOLLCWING
o
a
'CFT FrED IF FE HE NT TYPE S
VARIOUS D1UVERS
aF'
ISFOUNOURBtCKWILL.
do
····················WH
o
o
~,
--'.""--~
o
:\
,j
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 . .
1
(")
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-);-
.... , .............
•
()
....... ,,''',.., ........,. . :v.. . . .
•>I-
..• " ........ ,.•...............................>j;
'f.
.J1.
""
>to
... ¥ .......................... .
CALL GETHEM TO REQUEST A FOLR HORD
RY TO SAVE THE NEEDED INFORMATICN ABOUT
E'A ND LINK" INTO A QUEUE'iJE F:INEOBy . ·.. ................, . ,.....
IN THE OEVICE CONTROL MACRO.
.·.MM
....
".
•
.
"
.....
"
..........
()
o
......
'f
o
.... 10
•
OUTPUT TO THE DEVICEo IF THERE ARE NCT EXIT
LL SE MADE TO THE QEMPTY LOCATION DEFINED BY THE
·CEV'f'CE . eO·NTROt·MACRO.'TF ·THERE'''ARE'THE'''NEEDE
. ,............,.............. , ......." ..................... ,. . ,..•
NTRY . HILL CHECK· I F THERE ·AREFI LESWAI lING·
. . JI.:.
.., ...........................
:v.
>I-
•
•
¥.
•
:;.
")J..
•
:;.
11-
UR8LOKQX
"f. .......... .
I T ..,,.,.(""'.'"
0
'IF' ··CALlTC·"··UR8l:.·CKQ""·ORtJR8L·OKQX"·""":v.
1J!.
>t-
194
,""'.
.. ·.. ENTERCONTROL8 LOCK ADDRESS
'f ..
ENTER RETURN ADDRESS
,..
ENTER FILE CO~TROL BLCCK ADDRESS 'I-
UR BCO KQ ......., . . . ...,
.If.. . . -
-'f
I
I
..,
....., ......,.", .........', .................,... , ...."",'".,....,"" .... " ..." ..."..',..."..,""..·..····.. ·····..·,,···,········.. ,········.. •·.. ·1·'l"~ .. " ... ,.•. ,... ,... .,;..........."
II 0
/
ENI
~ ~~8~~;~2'
ENI
ENI ....,............ ........."" ..•FC3,X3
UJP
P ROPER ENTRY
'f
"I' N•• • ' . . . . . .
)
;;.
184
>(......................................................·····························185*····················· . . . . . ..
E·,
G';
UNBLOCKING ROUTINE
".if. ....
•.
INFORMATION AdeUT THE FILE ON THE FRONT OF TH
QUEUE WILL BE COPIED INTO THE DEVICE GOhTROL
M{U·TH EO RrVER'IHlLBE'EN rEREOT RRUT HE AoOK
DEFINED BY THE STRTLOC WORD IN THE DeVICE co
····r1ACRO
'f
'f
JI. ... ..
o
o
U
o
0
o
()
o
0
o
Q
o
d
o
0.)
o
0:
o
0(.
O·
o
o
I1:
o
"''',
0;'
o
ASSE~8LER/OS3
Vl.J 09/24/74 0310
PAGE
221
'3
6
7
8
9
outioa
00001
00002
00003
10
11
12
13
14
15
16
········17
1
ODD 05
OuOO&
... 00007 ."
00010
0001i
00 ClT2
.~
UNBLOCKING ROUTINE
MOVE 8U FF
URaOEF
• 'I-¥.¥'J:.,q' '1-'>"
"f.>1- ¥>;''I->;'>''
·
UR8l0CK BLOCK
>;'>"
~
>;..."..'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
~
i' Jt.
• v.
Fa
..... SLF
8F8GN
... "f~
dFCPP
•
OEFINITIO~S
>I-
EQU
EQU
. 0 .....
FB+i
EQU
BlF+1
8F8GN+1
EQU
..•;.J[.~"
.J[.
CAL8AK
".:y.
. . ........
..... EQU
. . . . . ~. . ~ . . . . . . . . . . . . 8ECPp:H . .
IMAO······ ... ···EQU
GAL8AK+i
·'"
• 'f
l. NIt"!
·······K·IlLFLA
ENAG
NJM
ENIT
.. ,.............
I
~lAO
+1
·t:NfM+1~······
KILLFLAG+1
ENAO+l
·········~~·JM+i "
• >lt
,\< ..
••
• JI.
·····00013
'ENIT+T
o[)
oQ
DEV8lK+i
.. C GUNT+l
P OSI + 1
flO
00
"f¥-.Jt.4J.."'.
>J.
pn~(JRC
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
PLACED OR MOVED FROM.
"f
~
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 /.fWORD
IS A QUEUEING
FLAG
PTRTO
BlaCK
. . .............
.... • ....
.~....
COUNT OF hOROS IN RECORD
CONTENTS OF PF1
RELATTVElOCATICN.INBUEFER.
·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 NEXTJI.
FILE
•
, ..u·......,. u8Cu·.IDENT" OFT HE"OEVICE
ENI BLOCK Xi
...
UJP IMPURt
'"
AU DRESS TO GO TO .. WHEN" FILES'·
ARE UNEQUIPPED
•
.. POINTER.TC.NXPTR.ANO. LXFIR··
•
ADDRESS TO fEll DRIVER THAT IT •
HAS TO MORE FILES TO curFUT
..
.
o
o
o
o
o
o
o
o
'AD DR F:S s:rO'TE t:t:· OR'I'V E R ·TO·S'TART"····
"'•
OF·
· · c ,;:, ..........~.......................... :lI"!.·:.>;:.·
,
• • •·• J{.'¥:1J. ..'f.¥¥,"'f."". ¥.'Jf"¥"I-Jf.
FILE
.y.* • • • '.'f; • . •;¥~¥ •. "" ¥¥ """.l"'¥ JI. • • • .'rI;¥-" .>fl"'¥'f "1 • • "1':;' .'11".4411""".11' >to.¥
•
1J.
)(""f'
o
o
o
o
o
o
()
o
ASSEMBLER/OS3
G';
(j)
00000 P
OOOuO
40300002
·OODOt·5.32000utJ '.
00002
44300021
~.,
~,
!
II
Vlo0 09/24/74 0310
C)
oG0 (j 3
.1:> ..
"'00'003 '14'6 GOOO;::·
000Q4
4030{;)003
·0000514600052 ·R
00006
01000420 P
()
. trOOll?·"1773"(rO 0 0
l 0
i
00010
20iU0012
00011
03200030.?
'i}0012-20100016
00013 35077777 X
1
.............................. 0·D014 ····..·401000 16
,I
!
J0015
37077777 X
0
I
00016
03100021 P
00 01y·. · 't46·tl 00'01'"
00020
34077777 X
(",
000212"S.l60G(fOO
53300001} ............................". . ..
. . . . . . . . . . ·· .. ··00·02
J
00023
20100017
00024··· 4 Oll 015(H rl .. "...........
.. ..
()
00025
11006375
01477 1
00026 14-7lJ00 lLj·
". 0 002 . 7·· . .., 0107777'1"" X··'"
1
I
I
'-
I
0
0"0030
OJ 031
·0·0·0·32
00033
00034
0
21T U
OU0 "."." ...,. . . . .
270uOQ15 X
03000D3SP
34100016
013JODOO
PAGE
6
MOVE8UFF
UNBLOCKING ROUTINE
>t-
BF8GN,X3.•..•..."..•....•.........."..... "......." ..... ""................................
SAVE "QUARTER PAGE ADDRESS
................... ". . .
URdEXIT,X3
SAVE
THE
RETURN
ADDRESS
>t"". HLNT
. EtHER~WRD·co UN TOF HEADER
BFCPP,X3
AND SAVE IN CONTROL BLOCK
UR8LOKA..
....... ENTE·RRETURNAOORESS
CALLFINK
··············X·2 .. ·····•·•·
SHOULD THE OPERATOR BE WARNED
ABJJl,lTTfi.IS.[JI:VI C~
()
REMEMBER ABOUT ASKING TO BE
. ................
IF 8IT22 IS SET THE NOISE MAKER
IS ALL READY eN FOR ThIS DEVICE
so· OONtr . INcREMENTSCREAM· .. ···· . . ·...··.... ··. ·. ··. ·
()
... ·"STA RTEO ... . ......
.....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
q
o
0
0
d
o
l
o
o
o
o
o
0:
1
0
1
.
o
ASSEMBLER/OS3
V1.0 09/24/74 0310
00047 . nnoooo
00050 53300000
00 05144100 U21
00052 P
00052 20100012
...., '000531200'0002
OU054
00J55
03300320 P
77650001
(iaOS6 .. 44100016
00057 201000U2
.. 00060 .. 776400Gl.
Q
OU061
a0062
00063'
00064
00065
()
00071
00072
14300063 P
VFD
UR8LOKA
SWA
EQU
PFLOC+PFR
P FWORO, Xl"
BFBGN,X1
··P.FLOC+PFW .....
;J.+2,X3
GETWORD
'8 IT23 .. .............,.......
EN I
UJP
LOA'
~
285
AQJ,EQ
8J~"~"
287
tElL
STA
289
290
FILEM
....
1
TER~rF·"···"
BITl B
POSI,Xl
777778
C CUN T, Xl
ANQ
SIQ
t!),A~'
QSG
291
298
ENIT,Xl
2'3"21
S TOP IT
LOA
SHA
APF
·····288
*.
'LNi'M
'1-. "t.>;' 'f >t~. >{.J,i.'f
'tI'.>;.
*'It
Xl~"
F ORMREC+l
UJP
AQJ,
.If.
.If.
(J
/
SAVE~HERETURN
;J.
AZJ,lT
PFA
SWA
LOA
286'"
17777777
41100014
UNBLOCKING ROUTINE
A12/DINT
X3
URBEXIT, Xl
TIA
__ 'f.
o
o
o
o
o
o
U~8[Ok"
281
282
'283
284
01000376 P
2 OO~77 777 'X'
03400227 P
05500001
00073 . 2 {HO 00 06"
00074 05700013
00075
01000104
00076D3500Li6
o
7
274····
275
276·
276+001
276+002
....... '276+00'3'"
276+004
276+005
278 '....... .
27 9
·280
00 a660TO'O 0233P
00067 27077777 X
00070
!tOl0G015
0,.,
I-lOVE au FF
P{\GE
CHEGFORI'!
PLST···············
l<~ .If. 'f.>I-.* :>.1:.
11:.'1:;;;' .Jf. ."1: ..'11: ¥.Jf. .....¥- ¥:'f
SEE
IF PHANTOK
ADDRESS
SEZ
STOPGIT"l'CJ POST....
DC/)
STOP
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
0
............ "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
, , ,..
:0
.'f.lf..J; 'f .... Jf..¥ .'f.>!:"l'l-.>f¥:.1I-:\,:>J."''f:Ji. 'f 'f'f. Jf..
""
/
',\;t"f¥-~ "'.."f. "f:\,:. '1:'''1-.''1: >r.>f Jf ~ ~.>f:
()
."~
"
~~)
()
0
o
.00104.2[J[i[j
00105
3710
00106
351iJ
~",~.~ ... ,., .. ,. .
001·07 "031:G
C)
00110
T
o
" · · · ..
~········
.. ··TSTir RETLAG\WRD ..
JUMP IF NCT
SKIP IF NOT
. . . . . . . . . . . . . . . . . . . . . HAS. THE.OEVICE.8E EN KILLED
00120
44100015
00121 20100015
..·········o 0122 '175T7???'
00123
'd AI TIN G PN.EQB.t1S::3.IT.
35077777 X
0:: -.. . . . . . . . . . . . . . . ·~lt~~· .~l~lg ~l8
(,
---)
MFI·P·NGT'TceO·PORMS'·
14300
00111
OiUUO
001T2
20 OT7
00113
035Ull
00114.20100
00115
05600
00116
01000
•. ~~••..••.•.•.••••••• ,•. j 0 :l::17 . . . "'l:46V[I £lOS:'
()
NON-FCRMSAELE DEVICE BIT
BINARY RECORD BIT
p
SS.A
.........~. . . . . . . . . . . . . . . . . . . . STA
UJP
.................................................
0
0
0
0
o.
0
0'
0
0
0
ASSEMBLER/OS3
CD
. "J aT 2E; '-15477 77
00127
4Ul00011+
00130
201000 lS·
00131
15600001
00132
40100015
'00133"'''301000 05
00134
536lJGOOO
00135
41277776
. (J013 6 14300140' p'
00137
01000376 P
... ·····0·0 140····P···
00140
2010001LI00141
031U0126 P
. . ""'001'42"'241-000 1-S
Cl
.J
~
~.
t;
~
()
I
0
II
001L~3
()
00144
P t\ GE
00146
I
- ,0 O~14·7e
I 0
0
340
'ADA
TAl
337
338
"339'"
0
0
00176
()
00 2 07
0
00210
AQA
SHAG!
LOA'
SHA
·AlJ,
LH]u003a
12000003
03,2,0.,022,3 ,p" ..
HLT'
APr
00223
... 00224
00225
00226
1:
1
0
i ••
00227
00230
00231
00232
4D10 0014
045000DG
00000100 P
""00227P
20100007
04600000
'0100030'4 "F
01000237 P
0;
00233 P
............. '.. 0 0233"·2010D·0 Oi" ....
00234 04777777
o
-6
SKIP IF WORD COUNTS ARE OK
1
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
.
20100015
201D0015
SAVE OIFFERENtE INQ
···PF\~ OR D,X l '
SHotlU
LEADINGANO TRAILING
"UO'Nor'MAT CH······
o
RESTORE THE PAGE FILE
... M.A ..KE ..TtI..ECQN:S.CLE .. C.RJ_
THE ADDRESS OF THE RECORD
GET POINTER Te JOB NUM8ER
PUT IN USEFUL PLACE
LOAD
._.
Joe
NLil'18ER
o
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
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 ....
CONVERT TO
"--
POINT TO THE
EI~O
10
aIrs ....· · • ..·.._·············· .. •........···• . _............................
·ANOOFf···A80RT~Af'\O·FOR~S"
OF THE RECORD
LO ADIHE . FI RST VlO RDADOR E5S·
CONVERT TO CHARACTERS
o
o
o
o
o
o
o
..........................,. .
"NOTFORMSEQU
LOA
SIA
QSE,S
381
382
383
384
HlT
·35S· ""'···FILE M' "H""EQ Lt·
i
386
-388
388+001
LOA
ASE
',LtJP
LtJP
o
.'¥
POSI, Xi
GOUNT, Xi
o
SYNC
KILLFLAG,X1
o
FTLEX'
K ILL IT
,.x·t·.
QSE
LOAD CURRENT POSITION
SET QOUNT 8ACK INTOWCRO
SKIF IF WORD COUNTS ARE OK
.,.........--lo'- •.. , ...........................
IERHF
EOLt
¥
.. "·,·····..·399 ........... ""............"..........".........."...................... LB·A·. ·· ........ ·w . . . ···.. ·.... e.. LF..
400
WORD COUNTS
ADDRESS'
380
396
3g7
398
~£SCR£ARABOQT-F~RHS
THE
:5l'iS
379
387
()
~
2.4.......................
X·3
O,X3
45 2 DOl} 01
"'\]022'3 P
COUNT,Xi
IXTST
PO S'I ·'ix'l· .. ·
3,X2
Il02Z'ZO:!::'OQiJ 103 X " · 3 ; ' ( ' 7
0.,
GETWORO
.l!:.
·0 EV8LK ,Xt·
120UD!l11
... f)Q;
SAVE eACK COUNTED UP VERSION
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
GET
00213 14477777
310
00214
4Q200UDO
371
00215 "'2orD ( 1 0 2 1 " 3 7 2 '
00216
53600DDO
373
00217.. .. 20100005
......... · .... 3-24.
0022D
1300D002
375
00221 15700001
376
Oi
;i2;~5
PFLOC+PFW
... RAO·..·S CREA M
LOA
IMAD,X1
TAIX2
LOA
OEV8LK,X1
TAIX3
ENA
COUNTER
....• ,... ... ··..ADC·ON-THEBUFFERAlJDR£SS
SYNC
t.O;2\"· ·..
Q:
NT ER
LOAD CURREN·T ··FCSITION
FORMSWRO, Xi
23-20
··N·OTFORNS····
USE
00211
536 L.·000[1
"''''00212''1307'7747'-- ........ .......................,'$6'<;'
0
POSI,Xi
···r·MAD,·Xl··
x2
............~~.~ ...
UJP
NOTFREQ.U
LOA
AZJ,NE
...... . to 'k"" ...... ,.....
53040000
SAVE
i
'peST
343
344
345
346
...... .... ...0017-7- ···.. ·14-30·0201
00200
01000325
00201
452U0&105
......••M············O· 02cr2' "'20nO'1 l rr !.f'-P002()3
40200000
00204
200Cl046£+
'00205'21 fO'ClG:f7
00206 13iJi.HlfH4
0
1 Xl
POSI,Xl
COUNT
STA
~tl
ROUTINE
COLJNT·uc~rN·C(rC
INA
. '00 16'2---24' 07'7'77700163
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
0
UN8LOCKING
·····IHA,·S
Sf A
·· ..········..··· ..············LOA
335
001553400'0020 X
00156
2U100005
00157 .. ·53 60u (l·D O·
00160
201000.13
00 161
'5:3 70 0 (] 00
II
au FF
336
00150
04577771
00151
00000100 p;
00152'2 Gl0Dat6'
00153
77640001
00154 14600001
0
0
~iOVE
(3
.. ······.. 3 :34'" ·······..·· ..··Txrsr
'{1'OT4'5 ······2 OlO'OUTG
I
II
V1.0 Ug/24/74 0310
777778
LOAD KILL REQUEST FLAG
IF IT
TIME
QUIT.
ON
NO TO
r ...........
o
...... SKIP
JUMP'
o
....--·· .
·····IS·······'fH·IS-THE··tfjS·f····8tOCK'·~
EOD WORD MUST BE +0
o
o
V1.0 09/24/74 0310
ASSEMBLER/OS3
PAGE
..
1
00235114-4000IJO
1+ (]
00236
00000100 P
00237- 20100013
4U2
00241
00242
00243
402+004······
lJ0240
00244
002 Lt5
53708000
25300001
17777777
00777777 X
00244 P_
20 iOO 0 13
17677777
0024614300002
00247
00777777 X
00250 14600000
00251"'4'01UU'013" .
00252
14600000
OU253
40100000
00254-14477776
00255
00261'
00262
00263
00 26'4-·
00265
00301
.0.030.2
403+003·..·.. ···············
403+004
403+005
3+000······
RTJ
EQU
lOA
ANA
····EN-I
RTJ
ENA
"STA
ENA
ENA;S
1!t600267
44TO{J Off
20100002
40001
1 1+ 7 IJ [I
11(H)01473U'
142
01 0. "'....,.. . :::. ".,. .." . . . . .,
14577777
00305
77640001
ENA
LOA
UJP
EQU
LOQ
................ tti 1::'
AZJ,EQ
............................................................ LDA
R.A D "'
STA
···············_·············ENA
RAO
ElF T HELP ST
('r.·'
\.t'
at O"CI<
,;()
C)
CONTROL8hOCK···ACORESS-IO ·X3
RESTORE THE KILL REQUEST FLAG
POINT TO THE RETURN ADDRESS
SET
THE ................................
ADDRESS INTO..........
THE CONTROL
BLoCKLOAD FILE CORE BLOCK AODRESS
, 'S¥fA'
7
.......... 00303
TIA
··SWI:"
INI
441tlO !HJ7
153(j(jQiiJ
r
GET· . ·POJNTER·rc G BLOCKA=LP Q=TFL
·KEEp·O·t\LYTPL·····
GET RIO OF FILE
PTRT04 WORD BLOCK
JUST IN CASE
...... SAY 4 WORD· 8L CCK
FREE fv1EMORY
·CLEAR·······MACRO·'·····
SAY THAT THIS DEVICE IS NO
LON.GER .O.PING ANYTHING
ONE LESS OUTPUT FILE
ANQ
1560U007
OO:~03
_u
GI~E
FORI"lSWRD, Xi
.SIr2l'u
OONTSTOP
F ORI"IS NRD
IOENT, Xi'
NOIOENT
,. ·. ·...
. _ -
o
••
QUARTER-··FAGE··~ACK·
THE DEVICE HAVE FORMS IN IT
JUMP IF NOT
SET THE tTAKE UT FORMSt 8IT
DOES
u ••....•.• , ••
SET THE IOEhT
t\TC -THE MESSAGE
20100021
'003 or" 5'37000!J iT·
00310
13
ENI
o
...... lJJP
o
SAY END OF D/lTA
E"upAGE 'FI1:E'''WORG
R N . ___ . .
0 •..." .. , .. , .. " '...
00315
1777
4110
015!J
00320 P
o
o
o
00312 05
00313
GiGO
........ .. .. 0·03:1:4 "!H3 i1
(J0316
.........,
u
EC"H'A"J'
.. 00311 ... 21
························· .. ··_·····00317
o
o
ENQ
P.
01]30 1+ P
, 'uO·304····2·0·1tH1016
00306
403+001
40:3+002
MUS
LOAQ
TAr
INA
.. 00275146 UO
00276 34000
II 0 2 7 7
"00300
402+005
403
.. .T.!;.RMF x
S.
HLT
LOA
TAl
RAD
U0272 341000
... -002T3' 20 1000
0027,+
K I L LI T
34077777 X
01G777i'7 X
00267 P
00267
21100016
·..·····00270 .. ·270 :77'777
U0271
03·0003
._..._.............. ·00266-
4 0 2 +0 0 1
402+002
402+003
·ASE~
STA
00256-53100 GDI)
C0257
53700000
00260
t,;OVE8UFF
9
ROUTINE TO STOP MACRO FOR PHANTOM
o
SET THE CAL8ACK FLAG
o
·GET"-SIOFer·l·····················..·
REMOVE STOP BIT
o
o
o
V1.0 09/24/74 0310
. "'LfO"326'P" ..........
ASSEt~BLER/OS3
(T
Pt\ GE
HOVE!:3UFF
10
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
o
ASSEM8LER/DS3
(I'
'
00350
()
,I
I
I
Ii
I
00353
2010U012
0035 Lr"'
00355
53 71J 0 DO 0
PAGE
hOVEBUFF
11
448
448+001
" , 44 8 +0 0 2 '
448+U03
449
"'450
451
452
453
454
,454+001
77650001
00356
44100016
'"Q 0357 ·'2 TO 0002
a
00360
77640001
.,00361 ·..... 2 U10 0 013
00362 14700000
00363
13077160
00364 . ··12400017··
00365
41100013
00366 17600777
'DO 3670 SoU DO 02
U0370
14600U02
()
()
0
00371
00372,
00373
00374
0
FLWDA
UNBLOCKING ROUTINE
"EQLT
8IT2U
LP A E NIT ,Xl
Sf A
ENIT,X1
LDA
ENIT,Xi
r A I X 3 ' """""'"
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
454+002
454+003
45'4 +0 0 4 " "
454+005
454+006
454+007
455
4,56","~
457
45 E
15600001
40100 U 03
53600000
... 00376
00377
00400
FLWD
'" ASG
ENA
RLNT'" ""
H LNT
INA
1
8Fepp ,Xl
S·TA···
. UJP'"
""
00412
2010001&
00414
200U0350
3510.0.0t 2
OQ413 , 77 640 iTO
G 0415.
00416
00417
0
, SKI P IF'PHA NTCI1 HAS BEEN RERE
ENTER COUNT OF HEADER WORDS
GET INDEX THREE
X3
SAVE INDEX THREE
PUT8L'C CKI NDEX·l NTO'X3
r~·",'·"""'·'·"'''''''-
:r
X3
OEV8lK,Xl
CORE·,,,,,,·,,,,,,,,·,
SEE If
-15
tNT" ,." """ """"".,.
S, X 3
nWRD Xi
ENIT, Xl
FU~DA
00422
00423
00424
00425
ENTER
"
00426
CL
d)
00427
00430
00431
00432
00433
00434
00435
'''''00436
hAS BEEN HERE
F" PHAN TCMHAS . . 8EENHER E
FLOC+PFW·
40100012
PHANTO~
S THE CURRENT BLeCK
f: J Hi:: pp GE . fJ LE
GET BUFFER UNSAFE FLAG
SET ··lNT awaRD
STORE StiCK
SIT2D
"',,' "".E NIT t Xi
1460035
"
LOAD THE FORWARu·"FOTNTER
00420
00421
0
,0
/\,
E NI T Xi
Xl····'
..
",,'" ,."".""'" ",,", "",,",0,
C)
o
COUNT UP PICKUP POINTER
ANOS AVE··!T·
ADDRESS TO INDEX TWO
LOAD N
weRO
BLOCK
RETUR
.,"',FRC~
.. , .................
,".""
01000371 P
.. ·····00410 ·····D5700002.
00411
4U301]0QO
0
FLAG TO A--PTR TO Q
LeW2R"'C
RESTORE OEV8LK fLAG
LOAO~CUNTER FOR,PIGKUP
SKIP IF END OF fILE BLOCK
.
~
"PT'R'TO
03601000
533000UO
44100012
00403531000l.fO
00404 53700000
.. 00405 20 Qi)'4f.HIO
00406
21100013
00407
12477760
0
,
t''Il?"
",GET"",PHANT,OM""CHANGE FLAG""
.. GETWORO
20100003.
004u2
0
'
X2
CORE-1
n'\/.3 .... . L X2
..
'fAI
LDQ
21203777
00401
0
GET NOT(8UFFER UNSAFE FLAG)
AND OF FIN FLJl G,1-/ ORO
S10RE BACK
INDEX 3
SAVE PFLOC
'POINT-TOTRE CURRENT FILE'CORE
BLOCK
LCA
00375 ···0131]0 croo
0
I
00350' p'
240U0123 X
00351 ",37100012,
00352
4010U012
aD
~
V1.J U9,24/74 0310
,
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
01 G00
14 77777 X
··01:-(1771'77<:<····
;;'0
o
o
o
o
o
o
o
o
o
0
0'
0
o
0"
o
Oh
o
'0
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''''~~~ .",_~~.,..,~, ......" .,"" __ , ~ .. ~~, .. ~,.,"" __ ,"_ .. ___ .> ••
,
ASSEMBLER/US3
CI)
V1.0
OY/24/74 0310
~
~
i
~
12
hOVE BU FF
UNBLOCKING ROUTINE
¥-'>,<''1'¥-'Jj.'',<' ¥'J.Cj;:¥-").l:::;'~'C':if:');,"f',,(:r: "f'¥J..('f:;.>,<'.....
496
497
498
(f\,
t,
PAGE
, I
()
'00437'"
OOL~37
53300000
44100021
);,¥-~nil¥¥
¥
>f.
.... '¥::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.
RETURN~JOHERE"AF1ER,HASS
STORAGE TRANSFERS
I ()
1
I 0
SET
I 0
THE
CALBAK WORD
()
ANIROISK"ERRCR
5WAS
kJ PTHERE
'1 F'NoT·
... ....
FORGET THE REST OF THIS FILE
DECREMENT ,THE FIL ELENGTH··
00452
34100001
OOlf53
20100016
00434' "'5360000'U
00455
01200000
I
,,..
SAVE THE RETURN ADDRESS
FO RM,1l4, P·AGE ..,NUM 8ER·· ..
'"'''' ,"" ",", 00447"0570 0001
00450
01000237 P
0,OL61
14477776
I
/
P
00440
00441,,12477766 '
00442 41100002
00443 20000322 X
0044'4'351:U'0 e 04"
00 1-+45 40100004
00446
21100007
()
G'
LOAD THE CALLING
ADDRESS
o
0'0456"460'463'4
I
,,""",',' """" ,0 0 463,
I 0
00464
00027
606Q6260
I
o
o
0
0
0
o
o
()
o
0
o
0
Q,
o
d'
o
J,;
0
0
I
<)
1:
...
"
. ." . , .
"
..
,
"""'"
".,., " . , " " " "
...
o
o
0,
o
0'
o
':l
o
\,
o
ASSE1-ElLER/OS3
····OD465
00466
00467
00470
. 00 1.71'
00472
00 1.73
'00'474"
00475
o
09/24/74
V1.U
.2 0 0 00 0 1::; X
35100012
40100012
00470 P
47201457 P
5331JOU 0 0
53600000
14300002
007l7777'X
2020DuOO
o
o
o
00501
" 00 502
40.3000
2020DO
527+0U2
···527+·003 .
527+U04
527+005
527+006
527+007
527+008
527+U09
527+010
UR3 LOKQ
UNBLOCKING ROUTINE
LOA
81T19
SSA
EtHT, Xl
STA
ENIT,X1"
.:;.
UR8LOKQX EOU
STr
UNLINK,X2
TTA'''X3+ eNS L K" .
TAL
X2+CN8LK
ENI
2,X3
RT J G ETHEM
~o;,
7+U14
7+016
· · · · , ·. · · · · · . ·····;::,···:;:;7+
017""
7+01B
7+019···
LOA
NOT E~~ ... ".
LP,X2+CNBLK
o
o
o
o
o
00525
00526
IT
X
x
00536
······ . ··0 U537'"
00540
Q 0541
iJ0542
.... ,'
00554
00555
03
o
ot:
00557"
00560
54301457 P
"
d
• • • •• • • • • • , · • • • • •
20100023
53700000
21077777 X
00563 i7l77??r x
00554"0570 GOal
00562
00565
05600001
00566
01100024
. 0 0567' "4T2014ST"P
00570
53800000
0.0 ~j7 L 1467777.7..
o 0572
3720 0 0 0
°
0:
.......' ......• ........ w
o
..
"""
-, ..
0
0
JUMP IF MACRO BUSY
GET LP AND TFL
ANC OFFGAR8AGE
0
4"""WORD BLOCK ADDRESS TOA
SAVE IN MACRO
LOAD RETURN ACDRESS .....................................,....................
Sf ART;'''······
0
STORE INTO t1.l\CRO
4 5 10 G Q Q
. 5320Il000
4010001.3
,,00561 ... ,,2030.0 O.cLO
o
C)
POINT LAST ELEMENT TO THIS
T RIO OF 1i
GO 5 5 o'dt'lfJOH2?
o
o
'4WORD'8t:O CK"Ae DRES S'TOw A'
KIPL El'tEN1FUI G
00550
25
'0055117
1
""0
PUT IN Xi
THIS
IS LAST .....ELEMENT
...... "HE
TO RN""
... ... ..... .... ......
00543 .
00544
00545
0
. . . . . . . . "" . .". . . . . . . "................". . . . ". . . . . . . . 10
SAVE
WO.
~.O~K APP~~SS
INX2"4 .........
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
53300000
00533
,,00,,534
UQ535
00553
COUNT
CONTROLBLOCK······ADDRE'SS·TO···A···
NO Ii TO Q
00530
00531
. . "....."...........". . . . . . 00532
o0 55 2
o
o
o
11'\ '+ .. I:'LGRC .SLOCK
. "GET USERSA60RT BIT
KEEP ONLY ABORT BIT
SET INTO BLOCK
54377777 X
'00527'2
00547
. ..•..• "CJ
AND SAVE
3~,X3
130T7?lfl
007D0247
.,()
REQUEST
MERGE WITH REST OF RECORe
6ACKINTO pas IT ION
GET LOAD POINT ADDRESS
GET FORMS FLAG
KEEP ONLY FCRMSfLA"G
r"iOVtA "str" " .
..
···00540'
o
S.AVE
'lId
005225360ihHlCr
C0523
13000030
. ",,005 24 ,,143u.Q ell] 3"
,"
...........
81T19
3
""
oa
00521
u,,, • • u
ef'
. . . . 1__ K'
r-.1 p , .
X2+i":N::Il
00513
40300
51 4" 53 Ll 2 0·(1
'00515
3700U4
00516
343000
00'5t7 ·····532 OOfH} 0'
00520
G£T NUM8ER OF RECORDS
BEEN DIVIDED BY 512 ALREADY BY
JUST" IN CAS E'"
MOVE Te TOP 6 BITS
HAS
2,X3
··1'X3 ......
7+020
7+U21
TOA
(;£1, A ,,4 WORO 8L(JCKOFMEMORY
LDA'TPC:;X2+CN81K ..
SHAQ
9
..."....................... ·~HIA
,,24- 9
00511
37001]
"'00512"""12000
o
o
QUEUEING SECTION
URBLOKC FLAG
SET INTO FLAG WORD
STORE \.lORD
SAVE RETURN ACORESS
"!'10VEC C NTR OL8t (CK'P01 NT ER'
AND THENCE TO X2
ACGWORO,X2+CN8LK
NUMBER OF REGORDS
SHAQ
-9
ANAl7B'
SHA
24-6
ST A
0 X3
't-
7+015
40300008
00507
00510
527+ 0 01
au FF
527+U13
202 DOCfO?
00503
1300D011
..... "ODS 04 . ··iC~GO 0 011' ....
00505
40300002
20200001
~WVE
13
527+012
12000022
00506
PAGE
527+011 .... '1:.."..
00476 13077766
00477 "178UO 0 77"
00500
0310
00573
4!t3ULJtlOO
·,,0 . 057' 4"'''0·3.1:0 055 0" p.
00575
53300 000
. ... .... ORBLOKN X 'ELlA
&9
TAl
.........................."......."........ "." . . . . . . . . . ;.1.<:0.
1
LOA
LDQ
2
ANQ
. ··5;7 . 3 .. ·, ................. ........
' m .........
..... ·. . . . , ......
574
575
575
577
577+0Q1
577+002
577+003
. Q PNT , )( 1"
X3
Q.,X3 .....". ·c"" .. "..···· .. ····....""··...., ·
·QS-G·····
ASG
UJP
INHIBIT
... ··. ·.... ···1·· ....... . . . . .
····STr
TAl
..
DIEPSUS
u
...... ·... .................. .
1
QEMPTY,X1
UNCTNK,X2
X2
.ENA1Z7 ZZ 8."
LPA
O,X2
SWA.
,...." ...·577+ 0 04···· . . . . . . , , ....,..Ab:JyN e' . ·. ·.
577+005
IIA
0,X3
""" UR8 Q"20':'"
X3
"'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
0
0
C)
0
0
0
ASSEM8LER/GS3
(]::
~~,
~;"
i
Vi.O 09/24114 0310
U 0576
4430 0 0 0 t
""" ..
00577
U1000550 P
'H.~~","_'.wo
PAGE
14
l'iOVE cU FF
'''''''5''7''1 +"-0'0'"6"'--
·····'S~rA
U.;P
577+007
UNBLOCKING ROUTINE
f~X3""'"
UR8Q20
a',
QUEUEING SECTIGN
.. TOCP'OJNTER
NOW START MACRO
/
(J)
()
10
I
I 0
'''
. .. . ... . .,...
I0
,,,
.....•.... ,
"
..•..
..
()
o
0
0
0
. . . . . . . . ,....
"
.........
,"',
....... "
.. "
....
'
..
,., ,
..
,'"
'0
C)
o
c)
o
0
o
0
o
0
o
0
I:>
..... ,'" . . . . ,'' ".,.,'' , . . '''' 0
i
o
0 ..
o
0
o
d
o.
,., .....,. . ,", .... 0
0;
o
~]C1.
o
0"
o
.
)
ASSEM8LER/OS3
([,
ViDO 09/24/74 0310
PAGE
f'iOVU:lUFF
15
UNdLOCKING ROUTINE
"I- :;<~s.<'f"uj.:;. Jj. ';.'¥Jj.'1->;>;- ¥Jj.Jj.".' '" >J.¥--'i-
!I,
t
J
592
···593
(1'j
596
597
598
599
()
~
600
601
602
1 0
.....
~'1"I-
605
606
607
08
09
I
I 0
¥ Jf./f.-\<.'f..I;f.."I- ¥.'I--¥--¥-¥!>f.-i<>J.-v.!>f.¥-¥ ..y..>[."f''i' ¥
0061
.U061
iJ061
0062
Ju~rp
INT .....CNE
..
.. L
.
0
............ jf.
•
: . . ...
Jj.Jj.
0
,""
... __
"
-~-.,
~
," " ,
BITS
"
x
FOR!'JSWRO.,.Xl
8Il1'3
.00633
00534
S nu G5
00535
0 El36
00637
00640
"2"f"iJf}{]
G06 Ld
40100
uQ
'lJ
0
·············· ... ···········sr·f20
S TRT 0 2
0300Cl
53040
''00
1
'••
0
n
F
...
C)
THIS AN CPERATOR READIED
VICE
JUMP IF so
· .. ·ARE······WE···iJ. >#-.-!I-"1-:J{.
00625
,······fJO E'26
0,
0
0
or
IF
EAR fill T
0
j
¥
¥ >J.>J.-!f"l- ¥-¥->J. :J{.!>f."";!('lI';!(''''
.,~
[J06i
o
()
.11-
LOAG THE CONTROL BLOCK ADDRESS
IS THE
VICE BUSY
REQUEST
S
ILLEGAL IF NOT
.....................••.•••..
ARE. WE ~t lING TO TAKE FORMS OUT
REQVES,
ILLEGAL .....IF
ARE" ,
A G"'""
.. "'" WE
.. ,-... _..........
SET THE
IS THE
ICE HAlTING TO BE
.. ST.ARlED
JUNP·· IF SO
IS THE
VICE WAITING ON FORMS
0061
0061
()
'!
"I-
ILLEGAL IDENT
0061
0
.- ""(];
()
,0060.6
OU607
00610
0
"'¥"I-.lJ.~
(]
I-
00603062l17fii'
00604
01377'776
00605
0
""
.... ".
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.
**¥ ¥¥:Jf. ¥
!,
'If
KILL
0 P
00600 14111
? X
'u 0601 "1457'7717
00602 2020U001
0
¥ 11- ¥
'f
JI.
".
>i..... "1- ..
THE FORMS',WORl1IIx THE OEVICEuCONTROL
"1-.1" "1-"1- *,*''i"!>f.. " .. '1' >;00;. "f
o fJ
>;:JJ.'If >l-Ji. Jj. '3-
ANY FORMS THAT ARE IN IT BEFORE TURNING IT 8ACK ON
. . !..
0
>J.-'J. >;'JI.'If 'f!J1.
KILLING IT A.NOHESHOULDHAVE THSI1ARTS·TO·REMOVE
11
I
I
'f >;0
'FORMS'C'ON TROC'WbROISCCEAREOON THE ASSUHP II CN
THAT THE OPERATOR SHOULD STOP TH
DEVICE BEFORE
10
I
... 'f'J.'f
Jj.
.. °604
I0
OPERATOR CONTROL SECTION
v..lJ.JI. 'I- ¥¥ >;ott·Jj. JI. ¥¥':.;. ¥- >r>;''fJj. 'f ~<.l/-
ON KILL REQUESTS THE KILLFLAG WORD IS SET Te ZERO
'TN"THEDEVI CE- CON TROt"'M A eR 0 'AND'U R810 K WI Lt" FAK E'"
AN END-OF-FILE RETURN ON THE NEXT CALL FRCM THE
URIVER. WHEN THE OPERATOR KILLS A DEVICE THE
603
0
¥¥Jj.~ ¥-.'If
..' 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
594
595
'~
I
.lJ.
......lJ.
>j.
- - -
~-
-
-- -- - - - -
- -.- - - - -- - -
---.- -
_.,_.-
- ---- -
--_._---- - - - - - ...
~~.~
- - --'- -
_.-.--.- - - _._,-
-.~
- - -.-,- - -.--.,- _...- -
- ._.- - -- - -
-- ---.- - -
0
_.,_.-._._.- - -.- - - - - - - -
--- -
--
--
ASSEtv18LER/OS3
Vl.D
U9/2 t t/74 031lJ
"n065S"P
Ll 0 E55
--_.. _ ...... 00656
00657
00660
,
~.
~
03300007 P
u1300000
00-6'61 p'
00661
17777777
00662
41100016
····· .. ···· ..IJO-663· '14477776
(JI
l
17777777
41100016· .. ·_··
U0664
3+000653
()
1
iQ
670"
X
~iOVE
au FF
ANQ
. 6725TQ
673
674
. .... 675.
............ ~~{679
680···
UNBLOCKING ROUTINE
OPERATOR CONTROL SECTION
'STiJ.
"'" "T, '" "", " " , "'"
JJ.
'I"JJ.''''''''''''''''''''
".:;:; "I- >;.:;'.>J. 11J.>J. >J.
K
"",,11J.,
>J.
"""JI.' ,
¥!J.
rAPE'REAOERS~
.>J.
THERE ARE TWO MAIN ENTRY POINTS INTO THIS RCUTINE
ONE" ,UW8LOGK"WILLWRITE"OUTANYTHI NG,THAT,lS,GIVEN
TO IT.
THE OTHER, UWbLCCK8 1 IS USED FOR CARD READER
INPUT.
IT SCANS THE INPUT uATA AND CALLS
UWBLOCK
l(.
'f..
¥
o
·~~~h~c~~c HAh~~ggl§sI~~ 5·· .~E~~~R ~2p8lR~ i[~o~·~t ~AT
698
"""'" '6~f9
700
THEY CAN 8E MULTI-PROGRAMMED.
THE FOllOHING
. ASSUMPTIOI\SARE USEOIN,THISPROGEOURE:"
~
, ",.,"1-
! U t'
708
7Cl·8
710
711
""1-'"" ..''''' ..'''''''.''''''''''.''''
o
~FJg~s~~p~Ia~T~DI~YT~U~J~~~N ~~R~S CK TO
ST'ARTA'N Eri' CARO"RE AOER FltEW HE
NEVER
A J08AE~~~B~ITgA~D[t~GS~~CEg~~8
·'fFC 'IS TRUElrrs CKTO'ENDAFItf""
WHENEVER A FILL OUT REQUEST IS
RECEIVEOFROM,A DRIVER,
IF FOR SOME REASON {JOB SEQUENCING) A USER WANTS
OR MORE';:JOSS'I NTHE' SA ME"l'NP U1FI tE' HE CAN'
THIS BY
HIS......JOB
.IE: ...
........HAf(ING
" . ·······TJ08
··0 RCARDS
··TJO 8·NON-STANDA
·"OR ....... .
,,,,,,,,,,,,. ,,,,.,,,,,,,,,,,,...,, .. ,,,0
'0
",.. "",,, ..,,,,,,,,,,,,,,.,,,,,,.,,, "JI.' "",,,,,,,,,,,,,,,,,,,,,,,,,,, ,,,,,,"'"''''''''''''''''''''''''''''''''''''''''''''"".'''''.
.>J.
>J.
¥
~
.,,' ,"",","," ,3
0
( JOB,
:II-
ROSNON~S.:rANlltlRD
MAKING HIS LOGOF
[LOGOFF
[LOGOFF,
ENCV
CONT
.....11J.
:II¥
¥
>J.
0
",.,., .., ,,,"""""""""
0
FFECTEO
BY
THES
EXCEPT THAT J
MAY~QJ
o
'}j.
11J.
. 'f
IF WORD COUNT IS GREATER THAN 20).
o
".
".
ERMINES'T"HAT···'"FHEREWlt:t"·8E"NO""'··'"''
.>J.'"''''''''''
(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
0
o
COUNT IS"ZERC ..
C)
".
".
"""""" JI.,
0
"""",n,,"," '''''''''''''''''''''''' """"""".""","""""""""""
o
COMPLETION
.... BLOCK, G B I E N T ERCON1ROLSTOCKAODRESS
WORD
0:
COUNT,X2
I Ht"lEllIATERETURN,X3
ONLY
OPER~\TION'
0"
(4;"",,,,,,,,,,
0;'
Q
"
"I-
11J.
".
AND X3
0,-
.,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,J/!.,,,,,,,,
HILL BE COPIED
1f.'
,..
o
J/!.
:II-
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
D
... JI.......
HH1EOTATtVCOMPLETED REIURN IS
THE ADORE S IN
0"
Te UW8LOCKB
t\SONRETURN
I
0
IF GALL
PROPER ENTRY FeINT
EU
0
o
-l;I-
RAN}1
EYCOULD8E~·······
ALSO TFGNS TRAILING BLANKS CR ZEROS (DEPENDING
,.. ",,,,-,,,,I-lODE OF,THE,.RECORD.( MODE IS A SSUMEOTO
0
o
JI.
""""''''''''''''TOWRI'TE'OUT''ONtY'''THE'INFORMATION'THAT"IS"8ETWEEW
A JOB CARD AND THE CORRESPONDING LOGOFF CARe
7U E
0
"""','J. iJ.". '1-';,;. :V:iJ. >J. 'J. iJ.4;:;.".. JJ.iJ."..",;:;. ~< ¥¥ '.>;."1-''10:;'''' >J.'iJ.
11J.
""'7";:'»"'),"'·_'
0
"..'if. :J.".".'iJ.'¥'Jf'ilf'iJ.ilf,,;;.4:;.'J. ¥J,t
' ¥ C E I ' i TERf'8YPR£TENOINGTHE Y AREPAPE R
lU2
0
r~OUTINE
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
697
703
"704
70 ::;
JJ.''I-'l-'l-4Ji'~'; Ji'¥' "I-
"'"""U~~t3LOC
,,7Q 1"
0
SLeCKING
¥
6e7
688"
692
'" "" 6,93,
694
I ()
I
I'ia VL:lU FF
'" '1-':\(";.'4-""1-'1-"1-
~,
;,1
17
>J.
1f.
¥JI.
o
o
o
o
o
ASS EN8LER/OS3
ct·
V1.U 09/24174 0310
C)
70
()
00000
oGtl 01
00002
!
1I 0
71
72
73
...... . 74
75
•.'10
o.,'I:'Y1f'fc>/..>/:-. ""-.>1> . . >1-. .>l:"'f..>:,.'c..>l:. >/,..>1> >/.. >,< >1>.
o·
.'"
81
............ 82
83
0
84
. .·······"8·5·····
>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
.. . >f". ...................... .
.>.<
ACCWORD
EQU
. ····Cp
... "'EQU'"
COREP
EQU
•. >1:
..
o
.'<:
'<:
•
.*
.. ...•
ACCOUNTING 'SL'CCK
WORQ .........
'!;
····4·····......·. . ·•· .....................".............•........•.•...... ·······CtJR RE'N r·.,·p·OS·I··T·IO·N··.. ·PO·1N·lER· ..,..................................................................................,. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ."' {
(REl. FOSIT. WITHIN BLOCK CBP) •
81T23 SEZ READ-ONLY
¥
......................................................................................................
"'BI'T22' SEZ AT" L'oAO' POINl····
':q;'
81T21 SEZ END OF DATA
".
t··············································
BIT20SEZ·· F lLEMA RK JU ST· READ
'1: ....
.>f
.>f.
Alt:ABtE"'~
···~Q~~~Rs·8~·· ~el~{~sE ~~~ON[J'"''
0
o
o
>;, •
BIT18 SEZ BINARY RECORD PROCESS
BIT1? S El utll-3 NCRNAt:IU NAV
81T16 SEZ ADDRESS ERROR
86
0
>f.
'f.>fo.>fo >I: .. ""-.>/'.. '<:.>('.>f...>('
FILE CONTROL BLOCK DEFINITIONS
•
79
8 lJ
BLOCKING ROUTINE
.................. F'C" 8"l.J EF'...... .
76
cap
........•.•.......•.•.. ·········77·································e··pp·····. . .•. .
78
• >f.
I0
I
MOVEBUFF
18
r'"
65
·66
6?
68
oS
f
I
Pi\ GE
•
' ...... u. . ,............................... ,..................................... .
¥
........ :
. . . . . . . . . . . . .,...~.....,.......... ,.,. !O
THE CURRENT BLOCK
¥
END··POSIT·IONf GINTER·
... 'f
8IT22 SEZ THE FILE HAS CHANGED ¥
BIT21 SEZ POSITIONER READY
····...··SIl 2 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
u
0
U0007
............••.•...............•••• ,
0
97
EQU
......................................................................................., ...................................................................................................................................,
7
o
o
o
("\
\..../
o
o
o
0
0
................................................,................................................................................................................................................
0
o.
...
()
j,',
I
d'
o
0
o
0"
o
0
o
0
o
:rJ
,i
o
o·
o
~'"
ASSEMaLER/OS3
Vi.8 09/24/74 0310
19
PA GE
MOVEBUFF
• :If.
.'H< >f>f >fJf.:,f>f.'f "f"f'f't "f >f.>f.* ** "f. 'f ..*. '1: .*
10~
.If
If
·
lU5
00001
o
···00002
00003
00004
o
OiJ006
o
oooro
00U11
00012
00013
00013
......•
t06'
107
10d
'~M
00015
Q0015
o
o
··DOD 21
UWBLOCK BLOCK
.....
o
e ON BLOC K EQU
"JFP TR
110
11.1
li2
113
114 .
115
..
C ONtj[ oC K+l
EOU
• >;.
8LKPOS ······EQU
IMADR
EUU
CALLBAO
EQU
•• >;. •••
EQU
ROIST
• '10
WGN
EQ
EQU
C3L OGK
TIMAO·
EQU·
PSA LOC
EQU
o>f.I,~;. KBIJS Y EQU
115
I1T
118
1·i·9·····
1.20
121
8 FPTR+l·
aLKPOS+l
I NA0R +1
CALLBAD+2
. ROIST+2 ..... .
WCNT +1
····C8LOCK+1
TIMAD+l
PSALOC
...... .
PSAlOC+2
.xI T
EXII' ADO +1
F5A
!'lew
UWB
ODOf7
UOG20
'PFsrfIlE+r"
U Wt3\'iC+1
uwa
.U!ti8HG+2
• '10
.:if.
+1
OEFINITIO~S
()
POINTER TO 8 WORD CONTROL BLOCK ~
POINi ER To 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 U N T *
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*
o
o
dO'~
,
····POI·NTERTO···lHE·PROPERS·AICH·····
DESTINATION LINE PRINTER COD
... NlUI. 8ER.CfHORCS.JN. j~ L.OC.K
o
E·FOLLOIHNGAREUSEO ···O·NL·Y·· .. ·FOR····'i- ....
o
U Wt~A X
on
o
* 'f Jf...'1- 'f .'I:..>f.>f.¥ 'f >f."f¥.'f>;-.>f*.>1- >;-'f>f>f.>J.'f.>f:>f¥ >1-..,.
:if.
o If.
109
>f*.>f..'I: >f *.:'1,"'1- .:;'.''1:.. '1-. Jf>f >;, >f.. ::;' 'f.*
•
M
o
'j'
;;U;
UWaOEF
759
102
iiJ3··
00000
8LOCKING ROUTINE
IA+
U 0 G2.0
EQU
IJOG21
EQU
...
OEVTYPE+l
o
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*
o
o
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;.+*.;;..;;.
o
o
o
o
a
o
0'
o
o
o
o
o
o
o
oj
-
-
-
-
-
-
-
.
-
o
-
- ---
-
---------
-~
---.-..-- -,- - - --- - - .-.- -- --_._-----,---- --- -
- --- -- -,-- - - ---- --.-
------,~
-.-,--,--~
- --,----_._._----
-,-,~-
CD
I~
(J)
0
I
0
I
I
'OU666
00670
5350UOOO
00671
00672
53200000
0100 () 67 F.:; 'p
00673 P.
00675 ...·53·3 U·0.1JO·0···
00676 P
D0676
4lt1U0015
00700
03200720 P
0067·7········· ·20:1:00·001:·············
I
I
09/24/74 0610
00673451.00'00-3
00674
77730000
II 0
I
Vi.O
00666 40300001
00667 ····533000 0 0·-··
()
1
!I
ASSEM8LER/OS3
0
I
0
0
"lf070r'ZU50'CIO ir~~'"
007u2
03000762 P
00703 1·4·4770 Di
00704 401000(J2
00705
53100000
. Oil 706 '53700 OOU'
OU707
00710
0071 r
00712
,.
14700666
14600712
orOODO'+:)
03200717 P
l10713-2(lDlJ06,ltl~
00714
35100013
00715
40100013
'.".,"", "·00716 "ilt5fltltli
007
000
x:
PAGE
·····76·2
763
20
~10VE
"lWADR
7·6L~
765
766
···767·····
76 ~
76 S
.l)\~8LQCK
771
773
774
EJ.
EQU
507
PLCLOP
STA
"weNT' ,CSl" ....,.,
a08
809
LOA
BLKPOS,CBI
810
TAl
X2
8TI··· .
LOQ
"~(J, xT
812
STU
CORE+WPFB,X2
INA,
' .. -~,1
~8i3· .
AZJ,
G8H~
814
EUU
815
PLCR
'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
PAGE
21
>(.
·••
P
37077777 X
40100013
.. 20 10 0 0
U 0760' U45 (,Hit;
I
P
00720
77050001
00721
4010 00 16
00722 2Lll00001
00723
71640001
00724' 2010 0 00 3
00725
53700000
(1)
I
Vl.G U9/24/14 0310
>:
CI./
SAVE PFLOC
(j;
SET PFLOC
. LOAD
AODR£SSOP'''SUFF£R
SET INDEX
LOAD
FIRST
WORD
(WORD
I'
COUNT)
. rlR ITEO UTTHI S~ 8UFF£R'TFZ£RO
MOVE ONE WORO
~~lFFILE~MARK
MOVE (COUNT+2) WORDS
'SA: VE···. 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
()....
()
()
0
·,0
;:i
0
.., ..
C Ot.-jEX IT
N8IT23
OISKi3USY,Car
. ·~····.P·SALO C,·CBT~...
X 3+PSA
NCR~:A
Or,X3+PSA
c
/\ c:
•
........
,
............
CALLBAD,CBI
"''')
"-
CLEAR OISKBUSY FLAG
0
IT
I DeLEAR.
C3I
..~. EXITAOO
'V' ",.~~.
~...
NORMAL EXIT IF NOT DISK8USY
.
5K IP . IFPSAIJOES'NOT'EXISi;
OTHERWISE CLE~R CRHAIT
LO A OREJlJR!'iAP DRES$
CALL BACK
0
(-"
u
0
0
0
0
0
0
1''';
0
C>
C)
Ci
0
0::
0
0
0
\)
0':
0
QI :
0
0;
0
ASSEM8LER/OS3
Vl.G J9/24114 0310
00
!
~
(j1
\';1
I
()
00765
00766
00767
76~P"
5:5300000
···it 010·00·12
14477777
00770 P
00770" 4 00 04 001
00771 200J0713 X
00772
35100013
00774
53100000
00776
14-100001
"'0077 3'40TOO 013
11
00777
14200001
01000"J077777Y'-XM
01001
l.0004GDO
01002
21300011
OTO'OT'4030 0011
0
01004
14601021 P
., 01,0 0S4!t·3 tlfJ U 01
0
01006
01007
01011 21300
01012 12400
0101,; '.1.53U"0
01014
47377
,0 ·10·15 ·,,153? r
0
01016
01017
14-101
14277
'843"
8!~ 4
845
846
84S
850
·······8·5·:1
852
853
····854'
8LOCKING ROUTINE
TIA
X3
SAVE CURRENT 8LFFER POSITION
STATHIAD ,GBI,
ENA,S
-0
EQU
"lG >Jl W
il
STA-. . , .....'. . COR (+t, ..
.......... "SET'BACKPOINT ER
.
LOA
81T23
SSA
OISK8USY G8I
......SE.T TH.EO ISKeU SY . FLA.G
ST A D I SI< [3 us Y:C8 r
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
··········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 .
DISK ADDRESS TC'A ....
LDO
BFPTR,X3
LOAD BUFFER peINTER
.. ()
5HQ,
9
.......... AN D.TURN.., IN T0 C. CRE .....AO.DRE.SS,., ..
IN!
EXITAOO- ,
KLUDGE A RETURN ADDRESS
.~If
t~~~l~~XITAOO+1 ,X3 ,GENERATEAODRESSFGRTNTERRUPT
EN!
HPF3,X1
LENGTH OF TRANSFER
ENI
WRITE,X2
.. · ..••.. ····.", ...............',....................................
...... ··'.. P·IREPi'·······.,·· ., ........... ,. . . . . . ., .... ······,,···,·····. IN·l'r·I-·A·T2···0tITPUT··' .. ···· ....··· ..... , . . " ......., .................... ., .....,., ................ " ........................................ , .. ,............ ,.............,........., .............
.,'M .. "
........
·.
o
o
20300016
7764000
.. .'. 0:1 010 . . '131.1 GO
0
840
841
842
847
···848
,,·0077 55.37 O··[) 0 00
I0
83'8
8:59
tfJOVEBUFF
22
PAG~
...
X
..... OtH 20' 0101·77r'?·X" .... ·..,,·
o
•·...... ··• .... •••· ..··••....·····l'Il·';O... ,~·········,
o
0
. ,..01021
01022
01[)23
0
'U'1024
()
0
01iJ25
01021 P
·····2.!}lGllDO.Q
536000DO
144U0001
DISK TRANSFER GCNE
, ... LOAO.THEGONTROL,8LOCK .. AODRESS,·
·COliNT······ljp··rOTAt·' . . FIlEt
AND BLOCKS
RE~AINING
WJ~N JHJCRES,S
01032
o
o
01034
01035
o
01026
'on 21
01030
01031
SA
E...
weNT -0 TO DISCARD BUfFER
. '''OlG3'3
0
"OTll36
01037
U1041)
0
O.
o
d
o
OH
o
0
o
0
o
0';
o
),':
I
(J
-L'-.4:l
o
0'
o
r~~
ASSEM8LER/OS3
a>
V1De Og/24/74 0310
p~\
GE
t'IOVE GU
2;)
FF
SLeCKING ROUTINE
IT'
:w
",}
I
U1 J41' P
(j)
()
I
'01 I] 4:> " 20100 012
804
895
01046
01047
. '01050
53700000
14477001
"Ul00 0 742 P
01U51 P
.
,--.,
V
01051
20100002
D1052 "5370 0000
01053
14400000
01054
40305000
OT055
1447777T
01056 1+0100010
01057 ···04377001
01060
010tlU770 P
U1061
21':1:iJ GiHJi
01062 12.400011
01063
20100016
.. 01064 '7T640 iT III
01065
14477777
01066 .. ,01001032 P
0
0
I.
891
892
20100001
77640001
II 0
I
I
01041
77650001
01042 ·40·10·0016
01043
01044
10
'890
RPlCW
EQU
PFA
.... STA
LOA
89 :~
a96
APF
LOA
TAl
598
EN.A.,S
UJP
897
8Y9
900
901
902
904
905
EQU
LOA
TAT·· .. ··
ENA,S
STA
'EN'A,S"
STA
9(f6'
87
ISE
UJP
D,S
I)
PFlUC+PFR
8FPTR,G8l
PFLOC+PFW
.. P F S A V E 1.. C81 .
TIMAO'·C8r--··
xHLNT-WPFB
3
'
~:)
"-""
SET
PAGE
'0
FILE ONE
· ·..····LOAo "'CURRENT'BUFFERPCINTER
()
. pLCR ......... .
,
..--.
FILLOUT
······90,:)
v
">J.
"'...
'~
to
>f.
BLKPOS,C81
X3"
o
FOR
END
. SET POSITTO/'i·····
.E8RE±klPF $,X:3 ..
SE
weNT, caI
SET END OF FILE FLAG
HUH -~PFB, X3·
GBUI
0
OF 8UFFER
0
INlERQ REC.cRO LENGTH
SKIP IF·THE8LOCK IS···£MFTY
,,,.-
~
;.
0
HElIIfPAGE:NUMBER'
E C8I
+PFW'"
M THE CORE ADDRESS
S .LO.RE: .. Pf l.C.C......
,0
Qi
IJ
XIf·······
<;,
0
0
0
C)
0
0
0
0
0
0
0
0
0
0:::
0
d
i
0
0:;
0
0"
0
0
0
"
0:'
0
if,
0;
0
0>
0
--------------------------------------------------------------------------------------------------------------~
ASSEMBLER/OS3
cI:;
"~""'i)T067
(Jj
,
~
()
1 ()
1!
I
I
I
()
0
01104
01105
'''[ClA'
AZJ,GE
924
01116"Q2&d11:1:2 '
01117 15200001
01120
20100017
. 0112153 7u 0000'
01122 20000067 X
I
I 0
I
0LCCKING ROUTINE
'I
........>;.:... ......... .
927
928
929
ENA
. ····UJP .. ·
~+2
····~·
UW8FIlLO EQU
................. ........-............ ···RT·j·······
ENA
STA
"'UW3EXIT OJP;T··
~
KZERO
. ·····UW3LOGK··
..
'i
tJNl·INK"······
o
01125
..,.,...... .,·········,··,····,·,,····'.. FR EE"TH e· CONT Ra L 8 to c v···· .. ,,··,·········...·, .....,
··8~~~k~~~8~8J
935
836
9313
9~~ S
FORGET THE GC~TROL 8l CK
.. RETURN To' lRECACCER .
.
--,,-
"940
9 1+0+001
941
.
941+001 ...
943
. . . . . . . . . . . . . . . . . . . . . . . . . . 943:+:001
943+002
94&
01001143 P
IF SJ4 DONT CHECK CONTROL CARDS
..................... ,LOOKATTHE·FIRSTCHARACTER
01132,
01133
U1134
H
>"'"'011:35'''
G1142
'--,
....................................................".... ,.
U\i8 SH1C
01143
.. ······~···· . ·······.,H··1·
U~i6X.3,GBI
X3 .
X2···
01145
·· ..·..···············..····OT146
01147
C ON a L OC K, CBI
............... 0115,0
01151
Oi
LL\~BEXTl····
uwm~c
01152
i
0
[Jii :;
::;1
oji
01160
03501165 P
11'61 ·..···±470it..lS p " '...... , ......
01162 20100021
01163 53700000
01:1'6 4 "'0 10 01 fJ76'P'
Ij
Or .
Oi'
:[),'.'
,
0/
CBI
UrlBlOCK
3500114
. . . . . . . . . . . . . . . . . . . . . . . 01153
01'1544030
cro'o
01155 25300001
0115613077755
01157
20001453 P
. 01165 P
U1165
25300001
01166
33001451 P
01167 ····l;·3·40060tJ
01170
03101144 P
........m
....• ••••••• , ....................
o
I. •.
o
o
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
~
. . . . . . . ,,:c;:,:,',,, . . . . . . . . . . . . . . . . . . . . . . . 'IBHZ
T ',;f3
LOAQ
..... c.......................
1,X3
SHAQ .................................~18.
LOA
J 08
AQJ,NE
·····•.. ···ENil
LOA
TAI
'O::JP
.Eo.O .
LOAQ
SSAQ
.. ' .....................................··,· .. ··S·C· A·Q""'··
AZJ,NE
NOTJOB
...··Uwse·A"l::Ls·
uwaX3,CBI
X3
OWBFILL ....
...T
1,X3
LOGOFF
o
o
JUMP IF CGNIRCL CARD
·LOA D···· FILE···N ARK····SP·EC·IF IER ...
SAVE THE HORD
01144
OJ
CARD
UST FILE MARK
eNTROL
....." .................... "
01136
01137
"""01140"
01141
," )
o
1STH
01131
0
"
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
WORD
01127
····OT130
0
()
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
01126
~.
u
./
()
..". . ,.................... 011235 324 OD 0 () ..~
01124
05700001
0
a'"
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
UW8WC,CBI
UWBX3,C8I
UWdNOTF,X2
....... "..... lJW 8X3, C81
··X3· ..
. ~~tuIWFr[L·~~8·~WBFILLD
5324UOOO
01106'537[)!}OOO .
011L17
14700000
01110 05200024
011 iT 210T7777T .
0
,....
921
01i04P
20iQOU17
01112 20300001
01113... 03501117.P
01114 03701117 P
01115 15377776
STAQ
TIA
SWA
IJD
923"
930
···"·9..3·1········. .
"01100 ·~·OO·701·457"P············
01101 14600000
932
01102 401110000
933
...................................................... ··············931+
0110'3"'0150 IJ02 O'
I
I
24
MOVEciU FF
nr"'-CfW8Td CKtfCGfO·····
920
920+001
0110 a P
II 0
I
PAGE
919
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
r
~
V1.O 09/24/74 0310
SET THE CONTRCL MODE BIT
SAVETHE"'W ORO'COONTW aREI
LOAD THE FIRST Twa WORDS
,,,"._",,
CHECK FOR A Joe CARD
JUMP IF NOT A JCB CARD
HITER·'COMPI:E·TIO'N. . ·AOBRESS·· ..........................
LOAD THE RETURN
'FORcr'ATIlTCOT BeOCK'
()
o
o
o
o
IS THIS A LOGOFF
o
NOT LOGOFF EITHER
o
o
ASSEM8LER/OS3
cr'
Vi.a 09/24/74 0310
OTITi '20iG0021
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
o
()
0'1206'''ZOliJO'OI7
\11207
536i.JOOOO
01210 ·30200000
()
01211
17677777
01214
01215
45300003
40300005
01217
15200GOi
01212
41)300007
01213····13077717
()
OT21640300r.nnr
o
01220
147;]1222
01001334
" "'[11222"010 01226'
01221
01223
......,........... , 01224
01225
()
L~i300[JOO
14701226
0 f!lO 1334'
01226 055000
.. 01227 .010012
01230 413000
01231 147012
o
'01232
o
"
01233
01234
.,..
., , , " '
,~,.
".,
Oi'Ou:!::)
Jl0012
413000
PA GE
25
:1. 0 06+001
1006+002
1006+003
lU09
1010
··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
dLOCKING ROUTINE
"UfI8 X3 ,C 8T
;] 1T23
·U WBX3 ~ C8l,
UW8LDRET
, ........... >;-
X2
TIA
STA
U wax .3 , C.S I .
'RfJ'
UNLINK
ENI
3 X3
···G tn'lE~l ..
··RTJ··
STA
CON3LOCK,C81
car
TIA
·····SS·A········..··
'fJESRDCR'
STA
EPP,X3+CNBLK
eDA
TAl
ADA
ANA
3TA
SHAC(
STAQ
STA
"STA'
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 I P O ' I NTER'TO'fiGROC bUNTW(n~D
X2
X2 WILL PCINT AT RECORD START
777778
REMOVE CONTROL CARD BIT
TFl,X3+CNBLK
SAVE IN A TEMF
......... - 4 8 ' T H I S S H O U L O ' 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
.......... Q., X 2········· ,...........,. ..
PACK FIRST ITE!'!·
BCD SYMBOL/QUEUE OESTINAOION
o
····NUM8ER·POtJNO
PACi(NEXTSY
[.
JOB NUM8ERS MLST
SAVE JCB NUM8ER
.. BCO·S YM8 OLlER RC R
o
o
GET"liAL'COO
IGHTlY HISlE
E .VA.L, IDI:nG
BY GOO, 1 THI~K WE HAVE DONE IT.
GET QUEUE DESTINATION
JUMP H
IF'OFSENO
NOT SPECIFIED
·tENST
TAS' .................". ".....................".. "............................ " .................. " .............
··SAY REGULAR Q. l; EUEAT-FIRST
o
o
o
G
BASK FOf( SEARCH
LOOK FOR THIS QUEUE
NDT .. ~aUNG'~~ DSE~NORMAL
UEUE
E I ThIS IS A NAME OF A QUEUE
ROw RE:.ry PET C.L eWER 9
EP AROWA~E TYPE ONLY
IP F
A BAlCH QUEUE NAME
Q'AIN
....,...................................................."............................................... ..
INTO Q
GET AOJUSTEDCBTBAGK
o
o
o
o
o
BACK TO Xi
o
o
o
o
O.
')
o
o
o
0)
o
cr,
ASSEM8LER/OS3
V1.U 09/24/74 0310
PAGE
26
~IOVE8UFF
SLOCKING ROUTINE
,
t,·
I1(}()
()
·····01300
01301
01302
()
01300 P
. 403 O·G 002··
20300005
1101+017
NGETCHR
... ,.. ,......,.,. 1101 +018··,···",
1101+019
15600006
1101+020
01Q81314 P
1101+022
" "" . . . , iJ:l:3 03"lJS 6CiOU"3,1....' . . . . " " 1 : 1 : 0'1+0 . 2,·:1:·', ....,,·,"",..
01304
()
•
·,·G·OREP..·X 3+ C N8 LK ,.... .. ,....... , S A VE·, RETURN AGO RES S, ,.".,'.,',... ,.
BLKR,~3+CN8LK
6
'ASG .."........, "2 If +:1:'''''''''''''
UJP
MGC04
01305
15200001
1101+023
INI
l t X2,.......
013d6"532UuUOO":i.rO·1:FQ24rIAXc:·""·"'·"
U1307
01310
01311
o
31300007
. 033013.13 P:
03101235 P
U1312
01700002
"''''01313''''1'4 600nD t j " "
01314
o1315
0
1
EQU
LOA
INA
.. , , $ lA . , . ·
403Q0005
53 :;; GOO 00
"0'1316'''''''' 2'020U (rOi
01317
121UOOOO
o 1320 ,,176G. O0. 77
01~21
53500000
o
01322
20001454 P
",.n".'·' ,,',,' .•... ········0 . 1 32 ·3·" ...... ···05tUOfJt2'···
01324
0170000
TFL,X3+CN8LK
MGCU3
".""
1101+027
OCOEXT
1101+028
COREP,X3+CNBLK
""tiO1'+0 29"" MGCO'3""''''''EN'A''''''6'"
1101+030 MGC04
STA
BLKR,X3+CN8LK
1101+025
''''''''''''''". ."'', ...... ,· · · · . . . ,'"",,,1101+026
110 1 + 0 31
'IH1:CfC32
SBA
AZJ,LT..
AZJ,NE
UJP,I
r AI
X1
POINTER" ...,. ,.. ,. ,',
SEE IF WE ARE THROUGH WITH CARD
COMPARE WITH LENGTH OF CARD
JU-MfLIF ..... STIL·L·"". MCRE- CARD "" .
JUMP IF SECOND CALL PAST CARD
RETURN
INCREMENLWORO
,,,,,,,,,,,,,"'' ' ' ' ' ' ". ,,,"'"'
SAVE NEW SHIFT
CO UNT TC Xi""
POSITICN CHARACTER
KE"EP". ". "ONLY P"ROFER" CHARACTER·
CHAR TO X
GET BIT
.. . . SK'IP", . tJN
DIGIT R
S H 1FT
"'TOAI;X'2""'''''''''''''''''GE:T ""THE"WORO'"''''''
O,Xl
TAI
X1
1101+036
LOA
ClASHRDi
·····• . '·110 j;'+ t) ·3?·····,··· . ·,,·····. ·"'·""IS. G·· ' ' ' 1 0 r Xl" •........
1101+D38
UJP,I
COREP,X3+CNBLK
1101+033
11u"i+llJI+ "..... "'..........
11Gl+035
GET SHIFT POSITION
FOR NEXT TIME
SKI P '''''1' C G' O"'TON EX'T"WOR H"" ,",'.. ,.,~""',',',,,"......",' .. ,',,',".."",',' ... ,.."''''. """""""""""""'''''''' "..,,'," '"~''''''''''''''''''''''' fll
SHA
,ANA
773 . ,,,
o
o
o
o
o
o
o
r"'i
U
U
o
U1325
'01326'
01327
01330
01331
o
()
0510006
1101+039
608 Xi
ISG
05100031IOTf04iJ·ISG
20001455 P
1101+0~1
LOA
. 12100. UO:o.
1101+C42
SHA
01700002
1101+043
UJP,I
308: Xi ." ...
..
CLASWR02
O,Xl.
COREP,X3+CN8LK
GET BITS FOR 12-27 AND 60-77
RETURN
··POSITION . ALPHjl···· EIT
.r"' ........
o
o
]
"
0""
o
1
'"'""'Tr""~
~Ai
10;!"
o
o
o
o
(I,
ASSE!18LER/OS;)
Vi.G 09,24/74 0310
Pt\ GE
BLOCKING ROUTINE
27
>r
MPACK
ROUTINE-TO PACK NUt-lBERSSYN80LS
AND
'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
.... Ji.. ..
11".
'>J.
>J.
>f
.... 11-
>J.
()
Q
01332
01333
()
0133~
01342
0'1101 +064:
liOi+D65
12000022
1101+066
0'1344' ··T:.roOOU06
01345
0-1346
01347
01350
03001361
146G1350
010Q1300
033Q1342
01352
01353
01354
01355
130U0006
<
P
P
01351 ". ':14 6uil'!HHI'N
01357
MPACli
'i'ielf1.-~f-(16'7···-
1101+073
lP,X3+CN8lK
MPAC02
....... "777008'
TIA
Xi
SHA
18.--
'r"
0<
MPACL3
¥:-+2
~1GETCHR
MPACLi
AZJ LT
'ENA
SHAQ
.,± f~ ltg~~a2g,
1101+076
-iiAll,+O'1 '1
MPACL2
JUMP IF ALPHA~UMERIC
JUSTIFY
BLANK FILL
tONTINUETI[[ UCN£'INCREMENT RETURN ADDRESS
RETURN
JU MPI P'NCN-A L:P HA NU ME RIC'"
CHARACTER
.... '.vFOR········n-jE'AZ;j8EtO\~··" ..
8
ENA
·-RAG .
UJP,I
11D1+078
l1Ul+079
01700llDl
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
Xi
10,Xl
UJP
"ciiOt·+!J72·~ftP.!.\:CtX'
.C;EJ NE.X T ..CHA.Ri1 CJ£ R .....' ...
"'" -2
ENA
1101+D7
1101+071
P
MPACK
.. MC;,EJCJtR
AZJ,
· .. 11Jt+D6
P
..' ENQ,S
,~" S}fA'Q~
1101+06
16700068
0 :3 1 0 1.35:1. P
14600001
.3 43JU 110 1,
01356
'01360
1
X
l R,X3+CN8LK
lP,X3+GN8LK
0
01361
o
01362
-_.,.
--_ .. ".,-,.
0136J
..... 0-136 L,
01365
01366
. ' . ' ..... 0
o
ITJtOf332"P
531013000
01343
o
()
l1U1+057
ENA
1101+058
UJP
. 'lHT1 + 05'9 '}1'ptfC R A Z J , GE
1181+060
STU
-11·(j1+0 61
TI A
1101+062
ISG
1101+063
UJP
01335 4130000i
01336-,53100000···
01337
05100012
01340
01Q01373 P
'0134 1'''1 l l-:> 7 7700
o
o
o
o
o
14601334 P
01001300 P
1~6Ul~65
01371
o
'"
.0
!,<
n
o
o
o
P
010 Oi,j 0 G P
051!JOG1.2
03301370 P
GETNE XT01 GI T
SKIP IF NOT A DIGIT
JUMP IF NCT E~O OF CARD
RET-URN
NUMBER TO A
ADonr DIGIT
Ct13fJ7' ··EH70DiJU:l;·······
01370
,,0'
"
130UOC30
50000335 X
013T2 'S'31'4QQ!JO
01373
130
0137.4
111.0
NUMBER TO
o
o
Q
o
q
o
o
o
0:
o
o
0'5
o
o
--
-- -
- ---
--
-- - -
- - -
.
-------- - -- - -
()
..~-
-- - -- -
- -.- -,- -
- - - -,- -,- - --~
-~
----,- - - - --,-'- --, - - -
- -.-.- - - - -
- - -,---- -_._-- - - - ' - - --
----- ---.- -,,- -.- --,- - - - - -
ASSEI19LER/OS3
(j"
Vi.O 09/24/74 0310
,
1"
hOVE SU FF
28
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;.
1134
··1135
1136
1137
1'13'8
1139
1140
1141"
~
t
PAGE
()
.
,~
!!'
; ()
I0
•
.. ,., .., HIG HS PEED
'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.
,.--",,,.-~--.,,.
•
PUT,
THIS ROUTINE IS USED
II~
,.,.Jif,
TO PROCESS HIGH SPEED
"INPUT'OEV1CES"CONNEC'T'ED""TO'T HEP OP8'.;"····,
SLeCKED
()
I
I
I
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
0
• • _ . , . ___ •
01375 P
···,01375·· 53·50rruoo
0
01376
01377
OT403'fTOotfOf3'
01404
.~"
csr
X
17603777
····AND ·INCEX TWO··
SKIP IF A DATA BLOCK
......... .." ............. ,.,..... .. ,.
",
INTO
,
THE BLOCK
. FORN'"
014::t4 P
·0·14·1f.t...·5437.17i7.
01415
14701417
IHE.. fTNA LRETURN
THE COMFLETION RETURN
HE 8LCC~IhG ROUTINE
01416
01500026
,uu01417 '47'Z0t414"X'"
oi 42 0 2010 G0 26
01421
01422
01423
0
0
· ..
0
•• ,
'/
d'
0145 U
01451
o14S3
01454
0
. 01455
0"
01456
~.
35001
401tH!
31]0
7(jO
FREE
THE 64 WCRO BLOCK
SAVE 12 8ITS
o
o
o
()
01433
01434
"U'143 '3' . .
01436
01437
01440
01441
U144·2
IH443
01446
...... U14LI- 7
0"'
0'"
II.
o
o
033Q1.44L,p
.201000
·aT432~
01444
01445
"'3
( "
3J
.............
·01424
01425
01426
0142
01430
01431
o
/ ......\
....~ .... ~ .... IS•..)
SAVE THE 64 weRD
~mRDcaUNT'T d 'ff ,...
JUST THE COUNT
STORE IT
()
o
f;. OGRESS' '0 FT H iE"8t:OCK
01'+ 0 60S 40 (J 0 77
01407
0540iHl 1
0
0
0
JUI'l? IF NOT
0
0
_ _ ' •• 0"
ARE WE EXPECTING ANYTHING
.. ,.... Ot41l5 ....535DOfHW,·
()
,.
····CONTRClBl CCKAOORESSTC
20100024
03277777 X
.. "0'1400'"533 UuIJu'a
U1401
40100024
01402
47077777
0
,
___
o
M ER THE FILL
OUT
AF I LE ·MAR KI N THE FILE
01
3700Q
40100
'01
14601[1
X
QIQQ14i4fl
0440000G
17434627
41462273
6007773Lt
1774017Z
00000000
['II 8I r 2 3
CBl .
..OEVTYPE
+ ............... J ...........
KZE-:RO
UWl
05/2,A4/HTCR,A15/0
i.:Sb ~. ~QEf
60077734
.....17140171 .
A24/IMPURE
CLEAR THE FILL CUT BIT
SAY
TO FREE THE
o
o
FILE CORE BLOCK
o
UESTRUCTIVE READ AND CARD READER
o
END OF PURE REGION 04
o
o
o
ASS E HclLER./O S6
01457
U1460
01461
Vi.D 09,24/74 0310
01·0.0·0· 000
2010000(;
03001451 P
0146253700000
01463
20100023
01 L.64
Lf.1.;30000b
()
0146520100013
01466 537JOuOU
01467 141+00757 X .
01470
0430UOOO
01471
30700761 X
01472 . '0100 l L.S7P
()
o
o
o
01477
7751252:1.
PAGE
12f1
1212
1213
1214
1215
29
~iOVE
····UNLINK
BLOCKING ROUTINE
UJP
LOA
LOA
1221
PSAtoc,car .
X3+PSA
O,X3+PSA
UJP
FOR~1
'17~END
EQU
E NDMESS+l
.. ·ENOMESS+3
'.' ENOIGENT EQU··
12,READY
064tl4 .p ......
()
.
FOR I1S
.
"j
,()
CR-WAIT-IF-A· RU~NrNGUSER
SKIP IF NO USER PRESENT
UNLINK'~""""
aco;'c
.'
USER
IOCLEAR
RTJ
:)a
·GlE~R
·NCRl~AIT
ISE
ENOI'IESS
FROM THE
MACRO
EXIT IF NO CC~TROL ClCCK
GET DESTINATICN lP
PUT DESTINATICN CODE INTO CNBlK
OOESTHE"FILE8ECONG TO A RUNNING
U NL INK
'
'X3+CNBtK'" .
DESTLP,CBI
EPP X3+CNBLK
SWA
LDA"
TAl
ENA,S
1216+002
1219
..
1220
UN L·I NK THECC 1\ TRCL BleCK
It>lPURE··
AZJ,EQ
1216+001
., CI;
GONdlOCK C81
············'fAI"
. ······1216
1222
1223
····1224···
1225
1226
1227
1228
··122<3
1230
8U FF
0
.. XXX;':A
b
A8CD"
0
R DYMESS+7' .
UQu14
"'-RonlESS
;.0
NO LINES WITH ERRORS
I
0
0
o
......... ................................... •.•.••.•..•.••................
~
~~
~
...... .............
'
'
~
..
~'..
... ............. .
0
()
o
o
o
0
0
,....~.,
1-.)
0
cr
0
0
0
o.
C)
0
Q.
0
o
0
ASSEM8lER/OS3
1
ACCWORD
BF8GN
OU003'"
oU (] 01
""'8FCPP
iJ FPTR
BIT17
,. alT18·
8IT19
8IT20
."."., . . J3.::U.?,~. "" ... , . . ".." ".".
x· .. ,,"
x
'"9'LF'-''' ''''''"'r3LKPOS
."-"~ t~~KS
8 LO C KS Pi·,·
CABK
CAU3AK
4 5 D0316P
~46
00317P
"C8LtlC
cap
CHECFORN
'crAS i,-IROI'
CLASHR02
CNODE
521+10 DD475P
875 G1D24F
":11l :1'3 Fl'"
O'i
1090+2
1101.18
I1Gl+43
1216+2
. GOHEXIT
tlt21GP"'''··'·'1:·0:~5'+q··13!·22'3P·H ..h1 O~
01255P
G130DP
0 13:31p
C1464P
CRFC3lK
JCDEXT
DESROCR
01.0
4 L•
01235P
·"852· ... 01 a DiP
'0 EVT YFE ,,' ..
X
00013
000'26
6:i~2b00335
p,
1101+ 38 0132 4P
~§~ .. P.O.2.24P
446+1 00324P
45
37 OOOOOP
454+1 00361P
'T44"0 0666 F
572 00563P
U0013
121
432
789 Ou714P
420 002?lP
00010
26
142'
(:)
0
;.0
0
()
0
0
()
1214 01460P
905""'01054 P
1101+43 01331P
0
0
0
0
0
"I N'
Y,""I",';,'~, <
if,",',",~"'N
,"'
8INARY'
o
1
I)0530"P
00475P
··00 a,66F,
DODGOP
486 00427P
OUOOO
71
OU022130
00002'
13
·8ATCHPNT
"B.1T2:3 Z.z
BLANKS
PAGE
"52'7+39
527+10
·131
15
Vi.O U9/24/74 0310
.,.,' "'Ace NUlf""'''' ,.',. "X
527+60
0
0
ASSEM8LER/OS3
(1
EN IT····
Q\
,I
t
~.
il
()
j
I
()
II
1
I
II 0
EPP
EXITAOO
0'u006
00015
EXPOATA
FB
00024 ..
FILEl"!
FILEX
FILEXA····
FILLOUT
FINK
00227P
oU000
()0304P
00267P .
01051P
FHlI3LK
x
FREEFILE'X
~J.
(-)
'-
0310
01476V
f22~
01473P
1227
0001228
ENDIOEl'H
ENDMESS
f~,
l
Vi-O
X
····OUE6'6p..
G0126P
·62
63
64
. "762
334
01453PL204+L
OU60GP
00007
618
25
······24·g~·uO
Oi417P
'OU133P~
00673P
54 OD2u5P
0
37400Z17P"
359 0 alSoF
778 O!J701P
800
0072f-j.p
1213 Q1457P
0
1223 01471
0
····· .. 51iOI}562P
4 0 7 0 0 25:; P
833
00761P
784:"OOT07F
346 00141P
9,93+1.1111.57J?
20 DOOGOP
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
511 00446F
0
631 00614P
0
OJ
... _.,-,-- -- -- --"-----_.- - - -.-'- -
---.-----.- -- ---- -,--
--- ._"- - - -,- - --.---.--.--.- -,--- - - -'-- -,-,- - - ' - - -,-- -- .--- - - -- -,- ~
0
-,- --
- - -,-,- --,-,-- - -.--.- -- - . - - - - -- -
-
-
-- - - -
--
V1.il 09/24/14 0310
ASSEMBLER/OS3
(J)
PAGE
3
MOVEBUFF
Ou 00 6"
5 'OOlrolfV ..'''--'' 29r' U'O'OT3P
LOGOFF
01451P
1204
1004 01166P
OD 00 1- . " . 78 ··,··527+ 210 ·U.S,[J·6f'.···
10. 80 +4 . 0.12 57 P
110.1+·77 ·Oi356F . 11:01+78··· 01:357p·,··· ·--1101+88 01367p·
-LP
,.( (J)
11 GC 0 3
01313P
1101+29
1101+26 01310P
w·
MG COLt
01314P
1101+30
1101+22 01304P
"01300 P'tt01"+17'''1t01+'9'BOt'333P-~'''1'1tJ1+70' Ot3'47pw- "'1101+82'01362P' .,. '1101+85 '0 t3E: 4P' ",... " ............,.... ,.,' ...,....,., ..... . " ...,.. ,' ............,.., ......... "
t~GETCHR""
.,,
MFACOi
01J63P
1101+84 1101+93 01374P
()
01373P
1101+92 1101+63 01340P
MPACO 2
Ii!
.... HP'ACK ...
1035+:C1 01232P ... flOT+S70f332P ....
. 0 i:S34P flOTt-59" .... 1035+'201'2'2'1[51035+"6' 0'1225 P
~
M FACt 1
G1342P
1i01+E5 1101+71 01350P
1101+80 D1360R,
MPAGL2 """.,................. 013S5Pl101+76
~lPACL3
01361P
1101+81
11U1+68 01345P
0
MPACt X
01351P
1101+72 1101+75 013S4P
NBIT23......
. x. ·.
Er··'· . ··..,·" 82'7'" OQ'l5'3P"""'''''i:t 9S"'014'44P'"
NCRWAIT
X
67
831 00757P
1221 01457P
NDATA
o.1433P
1183
1162 01410P
0
'NoATAoz'......
"'1' 1137
····'lTlfe"·o-f43lF-''O:[L~46P
au D11
27
DaDODP
414 00264P
481 00422P
NJM
. ·380CHH47P
....···.. ,··-···-N01FOR1'1S·······
·0.02·2 ZIP
OU140P
NOTFR
344
OD113P
325 00116P
332 00125P
0
(lllS SP
i002
01150P
NOTJ08
NtJMCONV····
:3 60+17 . . C1020tJP'
[~iItf"'"
I
~:
I
NUMCV02
0
x
, . ,." ........,. . . . . . . . OPMSG
PDP88TK"-
. ..00:1, 0.,9
V
e. . . . . . . ,.. . .". . . .,~"., . . ,. . . ._ ""'." . '" .""
o
.~.Q,~.E...
A
PDP8CTLX
X
.,PFLOC,
0
356 OGlS3P .....
00723P
799
. . . PFR..······. . ·..·.·. . ,"' . . ·. . . ·. ,.. ·. ·. ,.
PFSAVE
... ,., . ,. . . . . . ef.W
PF ~~ ORO
0
()
436- tl 030 SP-
823 00750P
451 .. OO35SfL
858 01007P
o
892 01042P
913
01063P
o
435 o.0304P
452 00356P
.4J.5 QO..413P
79.9
og 7.~.~P
o
PLCLOP
PLCR.
····PLSr ..
POSI
0
OG756P
O-tl?55 p.
0
327 0012Gr
336 00130P
832 00760P
,11)93--01262F, .
.1220 01lt66P
·12,19 ·01465P .
.......
.6. In'O 1. 0.;31F
..f! flit . . . . . "..."". . ,:.:.,"'.~, .,.............
SI
1222 01470P
568 OOSS?P
527+44
(0)
338 00132P
o
o
o
RUYMESL
READ
REGQ
ROYHESS
0
'''''''·'''' .·· ..'' .... 'RG BNS' ......"··· . . . ". . .
d
o
RPLCW
""S CRAW·····
Q
R PSAPTR
SCREAM
SENOTAS
SENDLOOP
i
,
x
x
--,
01241.P
x
SENDTABl
·X
SENDTABt:
SENOTA3P
01242P
0124DP
0(1 ,......................... SENDTLP
STOP IT'
On3Z0P
STRT
_
00624P
S1 RT D:L,
.......tJ 0641 P
OS
STRT02
G0650P
STRT04
00655P
··"....STRTO 6 " 0 0661:P
0;,
0'
=rd.
cr
STRTERR
STRTLOC........
""SYNC
SYNCL
- SYNCM
TERMF
TERMFX
1Ft·····
TIMAD
0063DP
00025
0010 UF
00027
D 045 6P
00233P
....... H '
.~'
··· ..
OU244P
{JOOOl
00012
...... .j.j::.". ......?;l..!,., •.
D02fJF
1:2SiJP
a12 42i P
U124 .P
;)124 Of>
658 OD643F
1087+13 01251P
nuuoop
. ··. "0'75 ... ·
046
57
311"
523
522
398
403
97
11 '3
00664P
o
ooooop
641,
6/'Q
679
o
OQOOOP
OOiJ54P'
655
664
568 OQ653P
63
00623R,
(J0637P
OU620P
63'3-0Q'6"16'P'
....... ·,.··.... ·. . . 6'·5 . 1:. . ···0··0
627 D0610P
27+62 00556P
-354IJOT5TP
314 0010iP
-523 0. 0,4'&3 F . ,--286 00066P
315 QOi02P
'52l+ ly"O"0502P'''' ··"
120. a0666P
630 00
666 006S1P
384" a0226F
4'U2' 0"'0236P
... 313001 . 00P
o
o
o
. '. 8?S . wU1:024p . ·.. "·
840 00766P
o
o
............ -.. -..................-".....-...... --..........._ - z (J)
........................... -...................... sC1
............................... _............................................._.;)
(j
o
2 - .........................................................................................-............- .............................................- ............-.............--.......--... ·..·..-....-..··..· ..--....·c·........··..-· ..:--·........--........-................. - ................ --...........---.............................--..---........--.... -.....-................... -..............................,...-.... ,.-..........-..-....-..---...........-.... --.......--- ..-...... ---........... --..---......-.. -.....-........ -....-- .......-..-..-........-.....-..."...--.. --..-.....-....--..---...... ---..
0
ASSEI'lBLER/OS3
V1.0
09/24/74 0310
PAGE
~IOVE
au FF
409'002S7"P-." ... IT
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
462 0037SP
468 ·O·04·01P·· .......- 47.1···U 04Ll4P-·
·····47300411P .
··479 O·0420P···
481 ·0 0422p··
482 00 423P
i)U'.,<
485 00426P
486 0 0 4 2 7 P 4 8 8 D0431F
489 00432F
490 00433P
503 00437P
.
527+6 00471P
527+8 OD473P
527+16 00501P
527+20 oososp
527+22 00507P
527+26 00513P
52·7+29·0U516p······· 5'27+3-Z-0'U521P" ······527+3500524pw 527+37 "'0 0526P····~n7+··39··005·3·0·PM
527+61"OOS'55P
569 005GOP
570 D05SiP
577+3 OU573P
577+5 OOS7SP
577+6 DOS76P
623 00604P
646 00630P
674 D0660P
763 006G6P
7t4 006E7F
772 0067SP
I~~
~g8~
,;Cl
"80100725P
-"tf020Q726P'"
81flJ0736'P
8 f 7 0 0 7 4 3 P 8 3 0 00756P
839 00765P
848 00775P
853 01002P
€54 01003F
856 0100SP
857 01006P
860 010 i l · P · 8 6 2 U10i3P
86301014P
864-01-015 P
··877 01026? .
-~~~~I8~~~'
887 01037P
e96 01046P
903 01052P
S05 01054F
S08 010S7P
940 01iD6P
943 01112P
946 0111SP
950 01121P
969 01l32P
973 01136P
992 011·55p··· .... •• .. 999 .. 01·163p·
'979' ati4'3P"""
·······9·82-· O:tt-l.f5P
99i··Oll·5LtP············
100301165p···' /
1015 01200F
1024 01205P
1030 01212F
1032 01214F
1033 0121SP
1033+1 012l6P
()
1035+4 01223P
1035+9 01230P
1035+13 01234P
1087+2 01236P
1088 01252P
1090+2 0125SP
····10 llo+4" 0'12 5 7 p ' i er9 2 'of'Z'6:CP" ... _.. '10 g"Lt 'Of263F
11 01 +18 ... 01 30 Of>
10'34+5 G1270F
"'i09/f"+6'0127:fP
1101+19 01301P
1101+25 01J07P
1101+28 U1312P
1101+30 01314P
1101+38 01324P
1101+43 01331P
1·101+8,[3 G1367P
115Lj!l14IJOp·
·11.01+60-01. J 3SP·· ·1101+ (·7lLt3 56 fL·-ii·Oit? 13013 57F
1163··· 0141·iP-······ 0
1164 G1412P
1167 01414P
1176 01425P
1216 D14E2P
1216+2 01464P
1220 01466P
0
1222 01470P
i)1,
36D+1.0 ··-00174fT ·_····--·360-+Tb-·O·OT77p·
gg
. .()
()
()
o
o
o
o
;;0
"
,~-
0
0
()
0
()
0
o
0
o
0
o
0
...........
u
d
0
0
0
0
0
0
0·····
0
0
0'
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:59-08:00 Modify Date : 2018:04:26 11:39:23-07:00 Metadata Date : 2018:04:26 11:39:23-07:00 Producer : Adobe Acrobat 9.0 Paper Capture Plug-in Format : application/pdf Document ID : uuid:8738bc47-d605-5142-ad13-64ff134d90e9 Instance ID : uuid:ef7ee889-5b27-0f4b-9234-9646679e8d7c Page Layout : SinglePage Page Mode : UseNone Page Count : 34EXIF Metadata provided by EXIF.tools