DTTCA B

DTTCA-B DTTCA-B

User Manual: DTTCA-B

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

Download
Open PDF In Browser	View PDF

r-tA(y 11

801

21 (732 ) 2'f ... S£P·7& 1'f : 00 PAGE: 1

IO£~TlfICHTION
• . ,. . . . _

q.

....

"'I<

..- • • • . _ _. . . . . . . . _

~oc~ 1:00£ :

"" nac "'11-01 TCA--B

pqoox r

~:

1'C II

.~ .'4 .

1.WM£
. · ... · . 1
IS .
"I9£.·
... !)
D .iHX. \ . A.· lIC£:&
...;c.lJ".l£
..y.
L£ ~~ysTD' ~ ~y E "a:JilEO ~'fWITH
(I't .(1 tl€ ~ ·CCPYRn·
1 ·NOTIC£. THIS

t£~ :;F. ~OUT I N£

F'lR

~c.

CtC.....

r..; I

.~
........·. ,~
......
~.si
. . .•. . . r:.:t'JIl
.. ·.~.. ttr.
.·. ...1 ... ··.·ff«t
. . ~6ll€R
. ·HO.T. BE. ~x l F~·
_crt. '. . n.&:
SlXHS'YS~
TO tK ...0 ~O
.~ ~

,..

T[.~. 111...£ 'Yo ·ClKRSHIP f6 T~
. ... ,.... #lJ.. TIrts ~l" 1M ~C.

114: 1tf'~1'I(»l~r4
TH S ..' . T IS SL6JECT TO C~
W. p'hUf-MOTl~~·. " ...... TIEC0r6TUO AS A CO,'UTf!£N1'
Ft, 01Jl11-.. £~l .... Cr~lI:tt.
~C

Of::'

~ A£SPOHSlSII.JiY FOf( US( 0f1 RELIHSI; !i'Y
sorT..n·cr. £QUIM!'iT .... ICH IS NO:SUP?LI£~ BY

DJI'I[S

~INOEC-

l"'OTTCA-B lClllTU56 DEvICE ROUTINE FOR MPG

O!TCHS.P 1

REVISION HISTORY

.....
~5

%
.......
J

"9
....q
-~
...
.... I

!:iii.

t::;)
"""l
!::l ...

......

S~

·•

·

··••

·••
•·
·
,·•
·,

~Vll

COl
27(732i 2'f-S£P-7b

l'i!OO PAGE: 2

• SBTTL REVISION H~STOR'
APR 7b DTTCA-B RELEASE
DEC 7S

DEC

IN OCTAL FOR
W~7r
LIfi§i'
• ~YTE
I·' I UN0JfiAY~
IE
f1ESAGE
•

7S MOE CHANGES REQUIRED FOR THE MEMORY MANAG£M£NT

VERSION OF f1PG.
AUG 75 DTTCA-A INITIAIL RELEASE

SEQ 0355

~!riD£C"'ll-CiTC~-B Tel:
t:rn;:~. p 11
srAtiO~Ru

001

MACYll 27(732)

2~-SEP-7b

• S8TT..

ST~

ROL!TI~E

• TITLE

MHINOEC-ll-OTrCIi-8

rUSb DEVICE ROUTINE FOR !'fPC
JEvICE ROUTIr£ THBlE

DEVICE

l~:Oa

PACE 3

TABLE

Tell/lUSt. DEvICE ROUT!NE FOR r1PG

;REVISION 'c].
;FILENAME OF "TTC~.I1PG'" ON t1PQ/XXDP MEDIA
; MACYll: :"IiTCA' OTTCi1? ICRf: 5Yf'IIlPOC;o:CTTCA7. p 11
: LNJ(Xll: D!TCA MPG/B~O"~TTCA~G~; . C'.
• PAPER TAPE. PUNCH OT CA .!'PC. . h.E. .........
f
(

"i'

•

I

• CSECT

!'\·s''''~
• ,,1..,g1..

. ~ORD

.wORO

, 1(\:1'\

• ~""l,

,v

. WORD
. wORD

. wORn
, 0
SIZE:
ERR:
OREGHO:
IVCT~:
pswo:

·.~RD
•WORD
•wORD
. wORD

• WORD
• wORD

• WORD

eLlST:
8INASC:
8TASLZ:
O£CASC:
CSYSf"w:
SErVEC:
CLRVEC:
TSTVEC;

aI/REND" .

a

t"!

u

o
o
o
a
o
1
o

1773'-+0
21i1

300

o

HSKEEP- .

. WORD

REPQRT- .

.WO.RO

rou~~::
a

. WORD
.WORO

•WORD
iUPc.£R· .WO~
llLIST: • •WORD
~IOOSY~

iC 11

ro,
I,IgI..

• WORD

•~O+41)

li..l

J .,,':)

,j.'1....

.ll13
l~';

t"+5
1%
1"+7'
lli8
l+j
lSJ
151,

..,.?52
lSJ
'

is'''
155

!5b
157

CNl~

0521O'i

OOOiS'+'

120
00015&' 0013"+0

201

0001&0"
130
OOClb2' OO13t-. ...
000lb'1'
37h
OCOlbb' 001300
I.AJ
,
~.o""",'"0'
375
'-'nO''''2'
..11.,,' .l i
00125"+
000:7';'
371-+
OOeJ! 7h' ()((f,(l?
'1::0200'
....'
...
37'3
000202' 00057&
ClOQ2O-t.
-1"'2
..
II
.'I....~. 00127:.1
0002";.]'
37 1
... ·
,j.. ".~
..\ 2'. 00'2'
3.,.n
';.i
1... •
300216" 0013bO
.::>
•,
3&7'

2!Jl
000
000

~

001:;60

3&0

00022b' 00137'1
365
OOl4t02

000230'

....
'sa 0002 !
JE)'1
lSQ 0002~ir
160 0002:1:> • OOl~lJ
lb .. OtlO2'+O·
3bJ
lE>2 OO~2' 001-.2&
' t,.........
1&3 0OO2*il.f' 17"'

ibb

OVCMOS: .BYTe:
. wORD
.ByrE
• WORD

Dec

.8YTE
• lJORO
.BYTE
. WORD
.BYTE

000

.8YTE

,..tORD

. WORD
• S)~TE
,WORD

aoo

~8YT£

DOC

• WORD
• BY"'£:

ace
coe

. WORD
. BYTE
.WOR~
· evrE
.wvRO
.BYTE
. WORD
.BYTE
•wORD
. BYTE

000
000

000

oeD

Ib7

1"'
' • 1'
000211f;' QY75lt;
.... 15 r::..... ...
....... 0'10527
\"\rH''l2C:~
.;lit;)
000
..... 0521!1
\.) , .,r;:l
OO;,125b • 0200110 I"\liOc
..,i",Jy

""""'

f

g
DVREGS-,

8~~~::

DI/MVTE ...
DVCPTE-.
DV1W51-,

/ieST/
0

/TCCMI
...;J

1Lf; 00

PAGE 3-1

Sf:' 0357

;RETURN FROM INT ROUT BR HOR
;~~T O~7A BYTE ROJT BR AOR
'~T ~TA BYTE ROUT 9R ~p
;AOR Of DEVICE REGISTER NAMES
. AOR Of DEVICE FUNCTIONS
; AOR Of PACK TBl. EXT£NS I ON
.~ OF MODEL VECTOR TSL EXTE~.

;AOR OF COMPILER TSl

; ~R Of DEV INTERFACE

EXTEN.
SYM T8'-.

we

;VAlID DEVICE REGISTER NAMES
: 1'HEIR POSITIONS RELATIVE TC

/TCWC /

1.1

. WORD

• WORD
f'\V~'TE
••
iJ
,. 1",

.ASCI!

.eYTE

· ASCII

l~O 201
~ ,\oiO- •

l30 201
WRltE- •

376 0

"I0WAIT- .
:)"'5 t 0

.... 1,

~A.!

; VALID DEV 1 CE FUNCTIONS
; FLAG BYTE:

BIT 7 = NPR oe:v
BrT 3 :: MASSBUS DEV
elr 0 = 2' WORDS FOR HOR
(18 elr AeRS:

-.

37Y 0

REP6RT-.
373 0

REP6RT- .
1"';:)

__ I ....

a

qo£O- .

371.0
370,0

REv-.

RDNUf1-.

3&7,0

....

RDMLi
. -

~e-.
3bS,D

WATM-.
3b"~O

510 -.

303 0
STP~l- .

177777

iNOWAIT

37b,O
;'

wAIr'

~

; THE DEVICE R£GISTERS BASE ADDRESS.

. ASCII reBA!
. WORD b
· ASCII 'TeOT I
. WORD 10

I ..

lbi1
1&5

0

oVR£ G£:: ·

0001511'

,;\.~

. wORD

0'+0502

00011.f'i' 0000Cl6
0001%' CNlS?f
000152 000010

. .'

MACY 11 27 (732)

DEvICE ROUTINE TABLE

.... I

...".-..f

EOl 2Lf-SEP-7fJ

Tell/rUSE! DEVICE ROUTINE FOR MPG

;TABLE TER~INATJR
:PACK T~8LE [XTENS:J""

FOl

NACYll 27(732) 211-SEP-7c 111:00 PAGE 3-2
J:~(l,:!:r'1 •
'~~O~:~J) ,

01""''+·. . ),·''·i~.y'

)7'5
052;.23
"~4

]00

052 l r,!
OO~
011712
.j.YA

~gl§;,.b
• DI.i7~Oj
..... J "':. (
ii
rOil3
373
000
""J
....
w 4i'
DOO306- 020(:'1.+0 CN30l.tQ
000
OOO:JIY'
372
i(ln3 t ' , O200YO 051n'"40
.;. '''' ,. b
37.1
If'oJO
GDG32Y'
rV·',!"'J3
a,
•
0510YO 04i7104
~HJ· *""
00:)
370
CJ(103J'i '
000336 ' 0510110 04.t05O'1
DOll
Jb7
00034... '
au03'1~
. .'0 , OS::M~O
CN0522
000
~
.'
~,h

~,

0003bi.ff

02004ID

3bS

QOO'+~'

19'+
1~'

.. -;r;;J

1%

197

I1j8
lc:J<3

200
201

202
203
2...'lJ.;
20S

20&
207
20B
2t)q

210

211
212
213
21~

215

21&
217
218

21q

000

051525

051524.t
(N2I27
053105
CNb525
0'+01111

0'i&1l11
~21

050117
o·,w~2b 011&1111
aOD
3hJ

ooo3Ob' 0200lofO
3fJii
cfJ037&' 052123

00'137'+'

051127

• 8v"~
,1 __

052123

QQO

000'42b' OOC372

OOCHbS'

1"):00'17(1 ,

OOO~7"1·

000371

0Q0b3.2
000&32

00037'0 00C1b33
0003&7

()(l')3&O

0CJ03l)5

0003&1.f

0003&3

D03
OJLf537
003

000&33

000b1.f2
000b1.f2
000b32
000b32

l

"

{

~

1

i '

STOP
E
.~YI~
• HSt. ..r /~T~ LL /
.BYTE 3b3.0
.ASCII

. wORD
• WORD

. WORD

/'

3#~

37b,lNWAIT-LOCZ
375,L.WAIT-LOCZ
37'+. LSTATS-LOCZ
373, LCOUNT-LOCZ
372,LFWO-LOCZ
371, lREV-l.OCZ
370,lROHl.lf-LOCZ
3&7, LROAi.L -LOCZ
3&&,LWRALL-LOCZ
3bS,LWRTr1-LCCZ
3E)I1.lSTOP-lOCZ
3&3, LSTAlL-LOCZ

COMPILER TABLE EXTENSION
OVCPTE: .8'(TE 3 37&

':1'''S

000512
...,..,..

.iJORO

'

.Jf::>

COO'-1lfl' 00"+537 000012
37'-t
000502'
00'1
f'l!...i. ,
t'W"\u'" ':)...
Orll'Y::
\..IV;;;IU'
UV'"!"":).;:! I
000012 001002
373
000512'
001
00051'1 ' OCN537 000012 001001
372
000S22'
003
00052'-+ CiO'f537 000012
371
000530'
003
OOJS32' 00+SJ7 000012
3iO
00053b'
ODS
0005'+0' 00+537 000012 000000

OOOSLf&' 000002
005
220 000550'
221 000552' 001.f537
0005bO' 0000C2

375 0
/~TATUS/
3 ~ 0

lCOUtHS/
373.0
/
FWD;
372,0
REVI
371 0
· ASCII / R6NUMI
.BYTE 370 0
• ASCII /RDALLl
. clYTE J&t 0
iJr"
• J·tt..:..,' .
·:,QS"'Tr
(,.....
.BYTE 30& C
' WRpL
• r:1<:1'''1
........ .J.
.BYTE 3b5.0

OVMVTE: ,WORD
. WORD
.WORO
. WORD
• WORD
. WORD
. WORD
• WORD
,WORD

OOtNOb' 00037& 000b32
000!o112, 000375 DOOb32
OOO'il&' 00037'i OOOb32
oot"'i22' 000373 OOOb32
00Cl'f32'
O£'lDi1Jb •
00Q&.tl.f2·
QOOi+'ib'
JOO'+S2'
OO0'15b'
ODO'+h2'

.AS l 1
.BY Y
..
.ASC11
.BYTE
• ASCII
.BYTE
• ASCII
.BYTE

000000

SEQ J3'58

8'{rl:'
·.!JORD
''-

.8YTE
• wORD
.BYTE

. wORD
. BYTE
• WORD

. BYTE
. WORD
. BYTE
,WORD
.BYTE
. WORD

Y~3~lO.
3 3,

yS3741O.

lot .... 7

1"\0·t.... '....i
. ,"IV
•

I

.... '~EN
:. :, .
VECTOR '1,/"I'1"81 E ,"'

; NO WAIT
;~An

~537 31.0. ,10D2
Y 37
,+53:"2 10 .,1001

;STATUS
: COUNTS
: FORt~ARG
; REVERSE
;REGO NUMBER

5 3b7

:REAO ALL

3 37
"+~37110.
3 37
'+537 10.
5 37 0
Y~37 , 10 .. 0 . 2
Y~3'"I ••I~~.w.':
f'\"'"

i..

).,

, !".AI1'iDEC- 1-0 ~ rCA .. 8 "'Cll ,'TUS& DEVICE ROUTINE: FOR MPG
. DTTCA8. P :.
STA~DARO DEVICE ROUTIt£ TABLE
222

OQ(jSb2

i

005

l&b

223 0005&4' 00'"+537 000U12 000000
000572? 000002

~~ : OO'"+~ ooo~y~

22S

OOObCJ1 ' 0ClCl002
000b~'
003

000&10'
229 000&1 ~.
22g 000&1&'
22~

~~i

003

OO~537

23CJ

000000

3Ed

000012
3&3

.
OC8c22' 0'1bl02 020113
000&3C' 177777
DCOS2S' 0000D'1

000&32'
COOS32 ,
0001)32'

000£,32'

OO::tb32~

251

q~~~;lO.tO.2

;WRITE TIMING

.BYTE
•WORD
. BYTE

3 30Lt
1.f$37,,10.
3 364
'1$37,10.

;STOP
;STOP ALL

DEVICE INTERFACE
. WORD
. WORD

WO~O

~

MARK

...
iH l...t.
SYMBOL "'''8"

faLK /

DEVHrH

177777

MODEL STATEMENT TABLE

L~WHIT:

000&32'
OOOb32'
000b32'
OOOS33'
!JOOb33'
OOObI.fO' 000377
OO~1.f2·

LWRAll:

OOOQY2' Q'L+3377 0'17522 177515 LWRTM:
000
OOObSO'
DOOSS2'
253
;)!"'";.J
.... ::l '
'''''",r;
... r::2 '
HSKPST:
255
~""~"..~
ISTAT:
OOOt.52'
25b
OOObS2' 000000
257
:>t:o XObS~", 000000
.........
?Sg OOObSb' 000000
2bO OO~O' 00000o
f

000&&2' 000000

OOOOhY t 000005

2&'1

2&5 DefOC 7f.,' 000000
2&t:
2&7
2bB

. WORD

LWArT :
LSTATS:
LCOUNT:
LFWO:
LREV:
LSTOP:
LSTAlL: .BYTE o
000
LRONUM:
377 0'+7111 0'1752'1 lRDALL: .ASCIZ ,377>/INTO/<377i

.252

2bl
2S2
... :'3

;WRIiE ALL

';$37, 10. , 0, 2

OVIWST: • ASCII

.

11.f:OO PAGE 3-3

5 3&0

.BYTE
. WORD
.BYTE

. WORD

000012

GOl 2Lt-SEP-7f.,

MACYll 27(732)

000700'000000
000702' 00000o

00070*'+ ' 000000
00070&' 000000
270 000710' 000000
2f)'3

271 G00712' 000000
272 C0071Y' 000000
273 00071f.,' 000000

.ASCIZ <377>IFROMl(377)
.EVEN

.

. WORD
. WORD
. WORD
. WORD
. WORD
CSTAT: .8LKW
BYRD:
. WORD
. WORD
8YWR:
. WORD
. wORD
ROCNT: . WORD
WRCNT; . WORD
MISCNT: . WORD
ERRCNT: . WORD
DATAER: .WORD

o
o
o
o

; STORAGE FOR DEV REG' S AT PH

r,

I.i

5

o
o
o
o
o
o
o
o
o

;OEV REG CURRENT VALUES STORAGE
; SYTES READ COUNT (READ. RDALL. S RDNU~~ ';
;8YTES WRITTEN COUNT (WRITE. WRALL. &
: WRTM)
;READ CNNO COUNT (REAO RDALL. &RDNUM;
: WRITE CMNO COUNT n~RI t E1 WRALL. S ~~R7'~
;MISC. CMND COUNT (STOP ~ STPALU
;DEVICE ERRORS COuNT
;DATA ERRORS COUNT

MAlt'lDEC-ll-OTTCA-8 Tell /TUSb DEvICE ROUTINE FOR f1PG
DTTCAB. P11
STHtiDriRD DEVICE ROUTINE TABLE
27~ 000720' 000000
INTCNT: .WORD
27~
2i~ 000722' 000000
TOECNT: . WORD
277 0007~' 000000
ERRAOR: . WORD
278 00072b' 000000
CNTADR: . WORD
27q 000730' 000000
CURF'LG: . WORD
.?SO 000732 ~ 000000
CURCNT: . WORD
281 oa07~· 000000
CURCMO: • WORD
282 00073b' 00000o
INBlKN: . WORD
FINCNT: . WORD
283 0007'+0' 00000o
REVCNT: . WORD
28~ 0007~2' 000000
285
Q007Lf~ •
HSKPEN:
2Sb
;::::lI
xx::x= 0
000080
....,f"". .....

HOI

MACY 11 27' 732)

o
o
o
o
o
o
o
o
o
o

2~-SC:P-7b

SEQ 0360

Pt: 00 PAGE 3-'1

;INTERRUPTS COUNT
;' OF ENTRIES INTO TIO ERROR POGr
'CURR ADR IN USER PROG
;ADR OF' BYTE COUNT TOTALS
; FLAG WORD OF CURR CMNO
-WORD CNT FOR CURR CMNO

; CURRENT 8LK ORIENTED CMNO
; INITIAL BLK • FOR SEARCH

-FINAL WORD COUNT (TeWC)

;TAPE DIRECTION REVERSAL CNT

;VALUE TC BE TAILORED BY DEV

RO~T

: ~HINDEC- I-DTTCA-S iCll/TUSElDEVICE ROUTINE FOR MPG
, OTTCAB. P 1
TC 11 SUPPORT ROUTINES ENTERED FROM MPG

I01

~ACY 11

27( 732>

PAGE Y

IY: 00

21.f-SEP-7E>

.SSTTl Tell SUPPORT ROUTINES ENTERED FROM

MPG

;DEYICE ROUTINE HOUSEKEEPING
;JS~
,
;

;R2

= PROG'S

~D£STROYS

OD07~."

0007~b'

005725
001003

000750' 032702 DOOaDY

0007511' 001010
00075b' 010700
DOO7bO' Ob2700
OOO~I.f' 012701
000770' 005020

177072
000035

000772 '005301
0OO77~'

311
31,2

001375
0OO77fl' 000205

HSKEEP: rST
SHE

crr

IDS:
20$:
30$:

eNE
MOV
ADO
MOV

CLR

DEC

SNE

RTS
;TCll

313
31"+
":),1"""
~:Lb

3c:b

no:r-~o'

"''''' I•.! J.

Rl

20$

RS

;£XIT IN-LI.NE

REPORT RuUTINE
R5 AREPORT
FL~D

~~i

.":

005720
OOlO2bt 001003
0010..1'1' UOSJOl
C(ll032 , OO137'-f
00103'+' 000513
00311"1
8810~'
'. 10'12'
~
00l(Nl1' 0327(141 000002
OOlO5(P 001~3
OO]Q2lo+'

001052' .()()&+567 00312"+
OOIOSO' 177&06
0010&0' O!O700
177570
OOlObC t
27OO 000005
OOl0b6' 8Y127r:
001072' 005720
00107... , 001003
00107&' 005301

S ./~
,.

r-t'l!
~
"'H.....

F1AGWORD
8IT 15
BIT q
SIT
SIT

REPORT: JSR
SIT
8ME

001012

177&&2
000012

;N Y-IOS

'H~KPST-. RO
'HSKPEN-H~KPST/2.Rl
(ROH

31'3
320

OCU012' 010700
OCl1 n...,l.·I.P Ob270(J
('lrl ; Oc'"'O • 012701

jUNCOHDITI0NAlLY DO HSKP"
; OPS1~ SPEC I~Y EACH PASS HSj(,P7
;Y N-3D$
;SET UP FIRST WO AOR
;S£T UP I OF WORDS
;HSKP ALL NECESSARY AREAS

RSH

317

32'+
325

OPSW

RO,Rl

3:8

32!
322 DOl ODD' D040b7 003120
323 OaH)O~' 0327'15 177770

CALL

DO HSkP PER OPSW
1 :: UNCONO. 00 HSt(P

10$
IHSKPEP,R2
30$
PC RO

;JSR
; ,!~ORD

...' J,:::l

oSIR::

R5...~SKEEP
0 10m 1

; . wuRD

55:

lOS:

;GET I or CNT WORDS
;THIS eMf WORD = C.,
;Y (i-lOS

(RO)

lOS

8HE
DEC
SHE:

Rl
5$

JSR
MOV

PCtSUPTAD

SEQ

OISCNT

RIT

15R
. WORD
MOV
AOD

20$:

.lO .... R1

lST

BR

MOV

TST
BNE

DEC

STMNT CALL

1:: 00 SiATUS REPORT
0:: DO COUNTS REFOR1

;SAVE REG'S
;DISPtAYING
;PROG PASS'
;S£T UP AOR

I

PC.RO
ISYRD- •• RO

MOV

MODE CALL

RJ SAYREG
itl 7777b (f:(S ~
lOS

ADD

MOV

= CMND
= PROG

DVRE,:

(R_)+ t R\of
12 R\of

RStSTSTAT
CS AT ....
PC RO
IISTAT-.,RO
R1
.S6
(R )+

30$

Rl

j

otCR

WORD

RO - R5
CNTS AT END OF
(Y.N-10Sl

OFCNTS

ern

;CK'EO ALL WOROSt (Y N-S$
.~o TO EXIT -- ALL CNTS AR£J'S
;~ET LIP PROG TBL ADR IN R3
: ...ET FLAGWORO
;GOING TO DO STATUS OISPlAv:>
~~ONS~~~N~TATUS REG'S
;5£T UP ADR OF REG'S AT
;LAST !NT
:5£T UP • OF REG'S
;All REG'S = 0'
:N,'r'-YO$

""rc~

3YS
3ib

347

3"18
3liq
350

35!

.. 8 TCll/TUS& DEVICE ROUTINE FOR MPG
r~:l

SUPPORT ROUTINES ENTERED FROM MPG

JOllOO' 001]7"+
CO II 02 ' 00 '112
OOllOY' - 7&7
001113' OOi.fSSl

00111 y t
GOlUb'

001120'

GD3Y37

00311b
003310

"..,," .,
",:::l
(

CO,~ l!.fO'

[,fa.1
-, 1 1~ L1:J'
,c:;
00 11 y~+

:)03ttY,,+

?"lOOO "'i t:::j

.,:. b5
:ibb
3b7

3bB

3bq
370
371

372
37'3

37'-+

375

3~

311

378

00 .. ,2 i.Ji2?OO
00117i) , 01£1701
881200' rb?7~
. 120l.J' ~ln~.

383

177&;7&
001206' 062702 OOOOb6
000012
["l01::>12'
002702
&11216'
001222'
17bfl2b
00122'-+'
0012~ •
002702
001232'
001230'

oa12~2'

oo-t5b7
0Cl3"+ 3'i
000221
00'-+5b7

005725
~20S

00127.. • 003Y70
001 27f;. , OOi.'17e

~~ 001300' OOJS12
393 00 1302' 003520
~

3qs

DC 1JO'+ ' C03545
00 1JOb ' OC35bD

3% 001310' 003575
3"11 001312' 00362L.1
398 001314' 003b~1
3qq 00131b' 003bb'
ui'"tC
"-,..
'

0031&2
003152

OO12bO' 0033Jb

081
;)~o:
0 1~(2

,,+0$:

i.l5S:

8R
JSR

J5"

• WORD

iJORD
...

JSR

WORD
JSR
8R

\,J¥

ADD
ADD
RP~lP:
MGoI
JSR
MOV
JSR
RPTBA5: .WORD
JSR
~I OLIv
n

T~'"

OtC

OOl~O'

~ 88f~: b646b~

3ab
~
388
38<:1
390
~c:,~

. WORD

CISCNT: JSR
DISCT1: eiT
~~;1
000012~ ,

V.4,~.

3?q D01?i~'
390 00 1250'
381 3012S2 ,
382 OOl2SIot'

jg~RO

•

i.'~,;

' OQ"+5b7 0031'i&
CO 11 SO , 17751 Y
fl·
i ,:'"2'
....
~7b7 003230
~ 01 4"~
001156' C1JCN02
3S2 001 lbO' OOY707 0030~2
J&3 0011&... • C~27~ 000001
~~~ 0011t~o: QQ I "+31

358
JSq
~I' 0
.;)0
:fbI

. WORD

88~~~, 003172

352 00112"+' :77520
JS] COl.2b' 000"+02
35'1 081130' ODY7&7 003072
~SS G0113Y· 00'15b7 003272
3Sb

30$:

BNE
SR
JSR
JSR

002050

J01

MACY 11 27( 73;:1) 2Lf-SEP-7& 111: 00 PAGE 'i-I
20$

YO$

PC.DI5UNM
RS PRINT
ATtMSG-.
~~t'
DISPST
IS AT-.
'iSS
PC,DISUNM

~aA~~a~~

IJ.
RStl'lSPST
CS AT-.
PC PRTIWD
OISCn
PC,OISUNM
/itl R'i
RPtENO
.10,o·,RD

P , ,-

, \,..,1"';'

IBYR, D-. FIt
PC R2 '

.R£PTBl-. J.. R2
(R2 ~ +I,RPTI:jAS
R01SAvREG
(R J RO

~~x~eINASC
RD~RESREG
~Rl J+

RG
RPTLP
RStPRINT
eN
SMG- .
CNTSEN-CNTSMG
RS.PRINT
RENDMG- .
-13
ROJ.,R£5REG

8M£
JSR
. WORS
.WOR
RPTENO: JSR
. WORD
. WORD
DVREX: JSR
TST
RiS

RS

REPT8L: . WORD
. WORD
. WORD
. WORD
. WORD
. WORD
. WORD
. WORD
. WORD
. WORD

SCMRD-RPTSAS
BCMRD+&-RPT,BAS
BCMWR-RPTSHS
BCMWR+b-RPTBAS
CMOCRO-RPTBAS
CMOCWR-RPT9AS
CMOCr1S-RPT~S
crfTERRM ~PTSAS
CNTDER-RPT8f:iS
CNTINT-RPT8AS

(R::,)+

-DISPLAY CURR UNIT.
;ISSUE 'AT LAST INT' MSG
;GO DISPLAY STATUS AT LAST INT
;CONTINUE DISPLAY
·QISPLAY CURR UNIT.
;ISSUE 'CURRENTLY~ MSG
;GO DISPLAY CURRENT STATUS
:GO DISPLAY INFO WORDS
;CH£CK FOR COUNTS DISPLAY
;OISPLAY CURR UNIT •
.DISPLAY COUNTS"
;Y N-RPTEND
;stT UP • OF WORDS
;5ET UP ADR OF CHTS
;5ET UP TBL ADR
:MOV MSG AOR TO SIR INKH(;E
'SAVE ALL REG'S
;GET CURRENT COUNT
;CONVERT IT TO ASCII
;RESTORE REG'S
;P8INT AT NXT CHT
;0 HE ALL WORDS?
iY N-RPTLP
;G6 ISSUE COUNTS MSG
jISSUE "END OF REPORT"' MSG
;RESTORE REGISTERS
;SET UP RETURN POINT
;EXIT IN-LINE

SEQ C3E:.2

!

KOI

TTCA-S TG .. liTUSb DEVICE ROUTINE FOR MPG
I1ACYll 27(732) 2'1-SEP-7& lL+:OO PAGE '1-2
Tell SUPPORT ROUTINES ENTERED FROM MPG

M~INO£C-:
DTTC~B.Fi;

4 i"'lt

,-...,1'40-

: TIMEOUT ERROR ROUTINE
YOy
;JSR
RS,TOUTER
'..\85
liDo 001320' 0052b7 177'37&
TOUTER: INC
rOECNT
liD!' r'013~\1 ' 02£,727 177372 000007
CMP
TOE~NT.17
TOUTEX
BriE
"+08 OQ13,?2' 001031
liOq OO133l.1' t(I~ab7 0025&'1
JSR
RO.SAVRfG
JSR
PC~SUPTAO
'HO 001 3i.iO , O{J-f7&7 002012
y . "i 00131..?1i' OOI.fS&7 002&32
JSR
R5 t STSTAT
. WORD CS AT-.
"H2. OQ135O' li"731i.f
JSR
Y13 001352' OO"t5b7 ~!j251b
~8iTVECT
"+1'4 00135&' O()(P-t{);
SR
415 D013&O~ 11271~ 000011
Move
Illt/RY)
L .. t..
PC INTV
JSR
OOl3b~'
ClO'i7&7
~bO
.. '"
I'·,l
IDS:
eIC
IWt'1IOT 'R3)
OOl370' ~2713 000010
JSR
RS ERRCS1
'''dB OOlJN' 00'+5&7 001&71+
111<3 OOl'iOCP 00'553
,wORO
roto--ERM8AS
. WORD 1'1.
'i20 88P)~'
JSR
'121
1'i P ~~ 002530
f~~RESREG
( .) + RS
MOV
'122 881'+10' OJ2bOS
;CUPGtR
'i23
JMP
1'412' 000ln 17b'i32
TourEx: RTS
l.f2l.t 001Y11)' 000205
RS
4"1:)
,'-'''''

~O3

~e'

,

,.

~

~

rl..t ....

I.J::>S
.....
112b
l.f27
1.f2B
"+2<3
'i30

L.t31

1.f32

'i33 001'+20'

'+3'1 OOll.t2'+'
1.t3S 00.'''12&'

'136 oo1'i32 ,
"'137 001&,+'10'
l.T38 001'i'1'i'

SiR CALL
;IHCR I OF TIMEOUTS THAT OCCURRED
;THIS SEVENTH TIMEOUT IN A ROW?
;Y N-TOUTEX
;sAvr: ALL REGISTERS
;SET UP TeCM : PROG TBl ADR'S
;STORE CURRENT STATUS
jCK IF' I HAVE VECTOR CONTRJL
~8R IF I DON'T
:RESET INT ENABLE &STOP THE TAPE
;RESE7 THE INTERRiJPT VECTOR
;RESET WAITING FOR I/O flAG
jISSUE TIMEOUT ERROR MSG
-RESTORE REGISTERS
;REMOVE RETURN ADR
JCO TO ERROR EXIT
;EXIT IN-LINE

;I DEVICE ROUTINE FOR MPG
MACYll 27(732) 21i ... SEP-7& 1L.t:OO PAGE 5
: DTTCAB.Pll
Tell FUNCTIOt-l ROUTINES
oS8TTL TCII FUNCTION ROUTIriES
; "WAIT" FUNCTION ROUTINE
: JSR

OOlY"tb' 0"+27&7 100000 17&32& WAIT:
OOL.t7&7 00150&
88f~ga: 88d~B~ 0023bL.t
001 L.t5L.t ~

812
JSR

~~~

RS, WS.UT

1100000J,.DFLGWD

PC,CKOa~Y

k~·RINTV

; "NOWAlr FUi~CTION ROUTINE
;JSR
Rs,NOWAIT

FUNCTION CALL
;RESET THE "NOWAlT" FLAG
;WAIT IF BUSY &DO TERMINATION
jRESET THE INTERRUPT VECTOR
;EXIT IN-LINE

t

OOlL.tC&' 0527b7 100000 17&300 NOWA!T: 8IS
OOlL.t7'i' 000205
FUNCEX: F,'7'S

#lOOOOO,DFL~WD

Rs

OOl'17&~ 01.f27&7 OOL.tOOO
17&27& FWD:
00150"+' 000205

; "FWO" FUNCTION ROUTINE
;J5R
RS,FWu
BIC
IL.tOOO.OFLGWO
RTS
R5

0015Ob' 0527&7 00"+000
001 51 L.t, 000205

; "REV" FUNCTION ROUTINE
;JSR
R5,REV
aIS
.L.tOOO,OFLGWO
RTS
RS

00151S'
001522'
00152&'
0015.12'
00153&'
0015'10'
OOlsi1L.t'

012701 000105
012702 000011
OOi.f7&f 001"+3Y
0052&7 177150
010700
0&2700 1771L.tO
OOOL.tSb

17£,2&0 REV:

READ!
RDCOM:

j"REAO" FUNCTION ROUTINE
;JSR
R5 AREAD
: . WORD AOt'(
; . WORD AOR
',.WORD CNT
;. WORD DEV
MOV
II05,Rl
MOV
lOll R2
JSR
PCcCKOaSY
RO NT
INC
MOv
PC RO
ADD
'8YRD+2-.,RO
CMDCOM
8R

FUNCTION CALL
;5ET THE "NOWAIT" FLAG
;EXIT IN-LINE

FUNCTIOH CALL
;RESET THE REVERSE FLAG
; EXIT IN-LINE

FliNCTION CALL

:SET THE REVERSE FLAG
: EXIT IN-LIHE

FUNCTION CALL
DATA ADDRESS (BITS IS 5 I7J
OATA ADDRESS (SITS 0 - 15)
8YTE COUNT
(NOT USED)
;SET UP rtEAD CI'1ND CODE
;SET UP READ FLAG WORD
;GO CK IF DEV IS BUSY
:AOD 1 TO READ CMND eN:
;SET UP ADR OF BYTES READ CNT
:GO TO CMND COMMON PROCESSING

SEQ 03b"f

MAINOEC-ll-OTTCA-8 Tell /TUSe DEVICE ROUTINE: FOR MPG
OTTCH8.Pll
Tell FUNCTION ROUTINES
~':'J'1

: J~R

i.i':lS

Y'jb

4SL1

500
5Ql 00154&'
502 001 S52 ~
-f"l3
OOlS5&t
::,:...
504 001562'
S05 0015&b'
SOb 001570'

012701 000115
000011
00;7&7 00l~0'1
0052b7 177122

012102
010700

~700

0015?tf' 000*1'i2

WRITE:
WRCOM:

17711"+

.$..

512

:11.3

'4,

~.i.

515
SIb

00157£" 012701 000103
001&02' 012702 000102
518 001&0&' 0007117
51'3
520

RDNUM:

'-1'"
:::l
.. i

521
522
523
S?1
"'"521:
.:;1
52b

527 001&10' 012701 000007
528 001&1'"+' 012702 000232
52q 001&20' 0007~2
530

l~:OO

PAGE 5-1

IUS.Rl

IOIIR2

PCtCKDBSY
WR NT
PC RO
.ahUH2-. , RO
eMDCOM

MOY

MOV
BR

II03,Rl

U02.R2

RDCOM

rUNC1ION CALL
DATA ADDRESS (BITS 1& & 17)
DATA ADDRESS (8ITS 0 - 15)
BYTE COUNT
(NOT USED)
;SET UP WRITE eMMO CODE
; SET UP CHNO FLAG WORD
~GO CK IF O£V IS BUSY
! ADO 1 TO WRITE CMNO OH
; SET UP ADR OF BYTES WRITTEN eNT
;GO TO eMND COMMON PROCESSING

FUNC Tl ON CALL
DATA ADDRESS
BYTE COUNT
;5£T UP RONUM CMND CODE
. SET UP CMND FLAG ~~ORO
;GO TO COMMON READ PROCESSIN~

;"RDALL" FUNCTION ROUTINE

; JSR . . RS ... RDALL
; . WORD AOI'<
; . WORD CNT
ROALL:

..,'
5,.;.

532

533
53"i

535
536

537
S38 001622' 012701 000017
53QOOl&2&' 012702 000032
5~O DOlb32' 000751

MOV
MOV
JSR
INC
MOV
ADD
BR

: "RDNUM" FliNCTION ROUTINE
;J:;R
RS RDNUM
; . WORD ADR
; . WORD CNT

510
S i .r..1
~.

RS",WRITE

wJRD ADI'<
: • WORD ADR
i . WORD CNT
i . WORD DEV
j •

4C37
"+'38

508
50q

2~-SEP-7b

j"WRITE" FUNCTION ROUTINE

''ig3

507

MOl

NACYI1 27(732)

WRAlL:

MOV
MOV
BR

::007, Rl
.232L R2
RDCOf'l

;"WRnl'» FUNCTION ROUTINE
;JSR
RS",WRALl
; •WORD AOI'<
; . WORD eriT
MOV
,C1i,Rl
MO";
.032. R2
BR
WRCOM

FUiiCTION CALL.
DATA ADDRESS

BYTE COUNT
;5£T UP ROALL eMND CODE
:SET UP eMNO FLAG WORD
~GO TO COMMON READ PROCESSI~G

FUNCTION CA:"'L
ADDRESS
BYTE' COUNT
SET UP WAALL. CMND CODE
SET UP CMN(; FLAG WORD
GO TO COMMO~ WRITE PRGC~SSING

DATA

SEQ 03&5

Tell/rUSe DEVICE ROUTINE FOR MPG
Tell FUNCTION ROUTiNES

~AI~OEC-II-DTTCA-8

DTTCAB.Pll

; "WRT","

NOl

MACYll 27(732)

I

000013
000022

WRTM.:

MOV

NOV

BR

RS J.. WRTM
AO~

eNT

.013.Rl

'O~21.R2

WRCOr.

FUNcno~

;JSR
DOlbY£:' 0127:)1
001&52' 012702

aOOll1
0000411
001&5&' OO~7b7 001304
DOlbb2' 0052&7 17702"1
p

00l&bb' DOOltOS

STjP:
'1rSCOM:

MOV

Mev

JSR
INC

BR

l~:OO

PAGE 5-2

FUr.;CT ION ROUTINE
.: JSP
.WOR8
; .WOR

OOlb3~' 012701
0010'10' 0127C2
OOlf:LfY' 0007'1'i

2~-5EP-7&

FUNCTION CALL
DAT. A ADDRESS
9YTE COUNT
;5E1 UP WRTM eMNO COOt
'SET UP CMHO FLAG WORD
;GO TO COMMOI'1 WRITE PROCESSING

ROuTINE

R5,STOP

111 L PI
.D"IL.f'R2

PC:KDBSY

MISCH!

CMOCOM

;"STPAll" tUNCTION

ROU~INE

FUNCTION CAL ..

001&70' 012701 OaDlr!
001&7"1' 012702 OOOO~4
Da1700~ a007ot)

STPALl: "'!OV
MOV
8R

ilO1. HI

flD4~",R2

MISCv~

~:Ni.,I"\((D;~':H9. P

COl 211-SEP-7£,

-D~;CA-8

TCll.'TUSc OEvICE ROUTINE FOR MPG
REVISION HISTOR~'

P1ACYll 27(732)

•sarTL
~PR

HISTORY
7& OTTCA-t1 RELEASE

DEC 7S

DEC

111:00 PAGE 2

is

RE~ISION

¥~~~~u2iriAtJ~ ~~~A~~:rE IN O~TAL FOR

HADE CHANGES REQUIRED FOR IHE MEMORY

~ERS I ON

OF MPG.

PUG 7S OTTCA-A INITIAIL RELEASE

MANHGE~ENT

C02 21i-SEP-7e

MACYll 27{732}

eIT

17&&00

000001

17&SbIof

1757P+
000011
17o~

SEQ

l'i:OO

PAGE s-~

: "HIS '+ BlK SEARCH TYPE OF

1l0,R2
50S

C~?

;Y N-SOI
; INITIALIZE BLI( I FOR SEARCH 5/Ff
; SET UP "RONiM" CP1NO COO£

17bbSO

MOV

3LK"IN8LKN

001101

eM?
alO5
JSR

BLK,i577.

; ! S BLOCk • vAl IO?

RS.ERRCS
rNVeKN-ERttBAS

; RtpORT I NV BLK • ERFOR

EAAoH

; SET HE ERROR INOICATQP
; REMOVE THf LAOOED TO Q€V ERR

REi/biT

; RESET Ttl: ERROR F'i..ACS
: RESET TAPE REVERSAL CNT

17Sb7b

MOV

30$:

•W'JRO
•WORD

INC

~ov

DEC

175bIiO 50S:

JMP
ele

CLR

aIr

000020

BNE
CLR
CLR

175610

SIS
815

MOve

TST

8tU

JSR

IIO.:s,Rl

50S

'3.
DATHER
III ERR

120,RZ
PTOCNT(R3)
Toe:CNT
12 DFLGWD
IwtlofIOT, (R3)

Rl, (R'i)
OFL.QI,()

WTHOT
R5,~IOBSV
PC,PROCT11

wTNOT:

'WTI1IOT.
CMOEX

BIC
SR

.. TO OATA ERR eNT
1

NOthNT

RS

1-50S

~ADO

6lCUPClER
IU DFLGWO

CMOEND: JSi<
CI1)£X: Rrs

'N

(f~3)

;GO TO r9G ERJo( RETN POINI

C~7

;NON-INTERRUPT SERVICING?

; NJ,Y-NONINT

; 1I1ITI~IZE TIMEOUT CWirER

; RES£T • Of TIJlllEOUTS

; SET TI£ "PROCESS TERPHNATIOtf" F;..;'C.
;5£T ~ITING FOR I/O TERf1 c'L. A~
: ! SSl£ Tr£ elM)

'-MOWAIT- SIr SET'

!N Y-wTNOi

;WA!T
;~

FOR 1/0

ro

COMPLETE

PROCESS ~ iRf1INATIOH

:EXIT IN-LINE TO USER
;R~SET

WAITING FOR

; GO TO EXIT

1/0

PROc~

TERM

.

M.,,\

l~

I •N~'Yr:
,'" .., ... "

:-:'';''''C~-8

: OTT:~.P "

002 2"i ..S£P-7Ei

T~l.i,'TUSc

DEVICE ROUTINE FOR t1PG
HACYll 27(732}
"ell NON-INTERRUPT COMMANO " OATA SERVICING

rell

.S8TTL
'."

.

()~,l

b.b2
bSJ
b.S~

NOHINT: B...,·,,,,,'"
MOve
BIT
aFQ
rST ~
lOS:

000100
on0010

8Fl

'70~

(R'i)

.:05

a3.Rl

BR

2S~

8N :

lOS
PC}..NINTSU

SIT

17&'+'+2

.LOO FU
Ilu,R2

RJJ,(~"+)

MOV

JSR

000010

NON-INTER~JPT

J~~

.j.:"
S""'

8EQ

PC",S£ARCH

110. CIJRFLG

12uO,R2
50$

COMMAND

lY:CO PAGE &

&DATA SERVICING

;R~SET INT EHABLE IN CMHO
; I :.5UE RONU'lIWRTM CMNO
; 8LK SEARCH TYPE OF' CMNO"
:Y.N-7OS

;R£AOY SET?

;Y N-IQlS

;str UP RONUM CMND CODE

; GO SEARCH FOR BLK
• ERROR ., (N Y-2SS)
; FOUND THE ~Lj(?
.y f'i-1OS

;GO

SET-UP REGISTERS

i "RDALL" C~D?

: 1'. ti-SOS

; .oRDALL" SERVIC!NG

205:

~-TB
.:" ,

BPL

TST

8MI

MOV

SIC
~OV
INC
B£Q
MOV
:NC

aNt:

SR

175'130

255:
30$:

;;os:

JSR

SIS
~ov

MOV

201

PC.NINTSU
*1.DFlGWO
Rl.FINCNT

RL2(~j

iSlB
BPL

50$

TST

~r.""?
~J1I,.., i

;Y N-COS

305

~~ ~fJ~~~

BMI
MOV
BIC

'R;:-noy

• • """"n

;ERROR BIT SET?
;H y-JOS
'~2(R'1) R2
;G£r TeST REG WITY erTS IS ! 17
1177774 f R2
;RESET OTHER BITS
Re, (Ra)+
jSTORE WORD WITH BITS 1& & 17
Rl
: DECR NEG WORD ern
YOS
; OfT :: 0" (N Y-'+OS)
:R3), (RO)+
-STORE SITS 0-15 FROM TeDT
; DEeR NEG WORD CNT
Ri
;CNT :: 0' (Y,N-2O$)
2DS
"fOS
;GO TO TERMlNA!ION
; riO~- p,T CI'!iO TERMINATION
tRY)

MOv
JSR
• WORO
TST
Move
JSR
Bf<

SuS:

'. R'1)

RO,'1(R'1)

R5+STSTAT
ISdn- .
(R3)

Cn.uEND
;"WRALL" SERVICING
~R"')

(R'1)

305

(RD)+
R2
........... 4 u R2

•

~I'I(('.

;5£1 UP CORRECT REG VALUES
:STORE FINAl WORD CNT
;MOVE FI~ CNT TO TCWC
;MOVE FINAl sus AOR TO TeBA
;STORE AlL ST~TUS REGISTERS
i KNOCK DOWN READY IF STILL UP
:S£T THE -ERROR- FLAG

~ A~~%~S~2b~ ¥~ HOR

; GO PROCESS TERMINATION

~

EXI:-

;R£ADY SET?

;Y N-50$
: E~ROR 8 IT SE T"

;N Y-305

;GET WORD WITH SITS lS ~ 17
;RESET OTHER arrs

E02 2~""SEP-7e,

l'1AINDEC- 1-[:r7CA-8 Tell/TUSb DEVICE ROUTINE FOR. MPG
MHCYll 27(732)
DTTCAB.P ~
7C11 tiON-INTERi:WPT cOt~'1AHO & ~TA SERVICING
715
7' 1b

OQ,>+2b' Gl02E;;>;
OG.:""'4..j 32 • 005201

177770

~!~~: B?~?~

flg

720
:'21
722
7'~:3
7~

~~qQ'

~1.f2'
002\.f~I.f'

0327:'11

0021152' DOlitY
0021.f5Y· 00073[,

R2, -2(R~)
R1

INC
8IT

Rl
SOS
11000. -2{R~)

~~e

005201

OOl3b2

MOV
I HC

001000 17777& bOS:

BriE

BEQ
SR

725
.,.:,~

00003"+

, ...... l

729

72<3
730

70$:

80$:

73,;
732
733
7J1i
735

000310

738

739
7&.fO
7'+1
71.f2

qOS:

100S:

7118

~1$

BEQ

'IDS

INC

Rl

00251£,' OlbL.iOO

002S22' OH;uOl
~' OlCN03
002530 1 Ob2703
002S~'

000207

0000011

000002

GOODOe,

NI~7SU:

(RO H. (R3)

BR

80$

DEC

R2
1DOS
YOS

MOV

SHE

BR

N3

7..,g

80$
( RI.f I

MOV

7~

7'+5

1
I .•
"'5

(R4)

I=IMT

;5£T BITS 1& & 17 INTO TeST

; DEeR NEG WORD CNT

-eNT = 0' (M Y-DOS)
;MOVE SITS O!lS WORD TO TCDT
JDEeR NEG WORD eNT
-eNT = O? (Y N-SOS)
;DATA MISSED' SET YET?

;Y N-bOS

SERVICING

Pi'"
w"N""'SU
,,,,I1.!.
I

TSTB
BFL

PAGE: e,-1

iG6 TO TERMINATION

JSR

1ST

737

7%
7'+7

e,OS
\.fOS

:"WRT~

""'2S..,.

N"4

?~~)+, (R3)

11.f:OO

.200. I R2

;SET UP REGISTERS
;READY SET YET?
:Y N-SO$
;EAAOR arr SET?
'M Y-30!
;WMO CHT = 0'
;N Y-90S
;M6Vi DATA WORD TO TCDT
;OECI'< NEG WORD CNT

; GO w.-:l I T FOR NEXT WORD
; SET UP O€lAY CNT
; DELAY FEW HUNORED MICRC'SEC 5

;GO TO TERMINATION

; NON'~ INT REGISTER SETUP SiR
'HR~) ,RO
MDV
2 i R'1} R1
MOV
MOV
PI.f.R3
ADD
lo.R3
RTS
PC
I

;MOVE BUS ADR TO RO
; "OVE NEG WORD CN; TO Rl
;5ET UP TeDT AD~ IN R3
;EXIT IN-L !N£

SE":I 0370

F02

MHC Y11 27 ( 732) 2,{-SEr .. 7& 1l.f: 00 PAGE 7
.S8TTL
OOLf067

17b1
52S7 001
l.tfb7
LiO'i
..,.

88
~

{

l{
Ii
01&702

,

TCINT:

Q013~

~~Pl

72' 01270,

7'b' 00i7&
002b02' 000l.f03

001 Li2Li
17011.f~

000010

8fT

103
888130

MOV

atQ

Q02bO"i' tlOO"1%

55:

002bl.lb' 00571t.t

OO2blO'

1(){)()Ob

002&12' 0527b7 OOOOO!
J02b20' :127Pi 000011
002£.2"+ • 0001131
Cl02b2&' 032702
002&.32' OOlli21

OQ2b3'1'

01&"+01

OOOlJO

1751&2

'1"5 ••
.l.W
205:

305:

OOOOOb

002&'+0' D1b'tOO OOOOtM
0026'fi' 00;777 175230
002b50' 000301
002&52' 001777 175222
002&5b' 0100&"+ OOOOQt4
f.Xl2bb2' 0052b"+ 000002

ooooLiO

J5R
8R
8R
iST
BPL
8IS
MOVe

R.OtSAVREG
IN CNT

PC.SUPTAQ
RSt5TSTAT

IS RT-.
CURFLG,R2
'lO,RE
55
1103 Rl
i8~stARCH
bOS
0(11)

30$

I1,DFLGWO
.0..1, (FN)
50$
BR
;"RONUNr USER CMND INi

BIT

SEQ
MO~
MOV
JSR
SWAB
JSR
MOV
INC

SEQ

"0$:

00270'+ • (N27l Li 000100
002710' 01&%7 000002 17&022 50$:
00271&' QLf2713 000010
~O$:
002722' OO~O&7 001212
0027?b' 000177 1751"+2

8IT

SEQ
BIC
MOV

SIC
JSR

JM?

REGISTERS
INTERRUPT CNT
;5ET UP ?ROG TSL &TceM ADR'S
;sTORE ALL DEV REG'S
JGET THIS CMNQ'S FLGWO
i IN BlOCK SEARCH MODE"
;Y H-SS
;str UP RONUM WITH INT ENABLE
iCO SEARCH FOR SPECIFIED au;:;
;ERROR ON SEAPCH? ("',Y-IO$)
;GO TO INT EXIT
; IS THERE AN ERr: CONDITION?
.y N-3O$
;Sti THE ERROR FLAG
;STOP TAPE &RESET INT ENA8LE
;GO T~ CMND TERMINATION
\'t.lvE A~L
.; ~oo
1 10

1l00,R2

;OOING A USER "RONUM- CMND'

SCRI.f) ,Rl
~H RI.f) RD

;GET au( • READ

,0$

PC,GlPUTBYT
Rl
PC,;JPUT8YT

RO,&. ,of( R'i)
2(K"')

205
MOva 1103, (RI.f)
bOS
8R
;f"rNAL IHTERRUPT PROCESSING

00175"+
002&70' 11271"+ 000103
0CJ2EI7'-f ' eWU2

1)Q2bbb'

:J02b7&' 03.2702
002702' 00 1711&

JSR
INC
J5R
JSR
• WORD
MOV

11 INTERRUPT SERVICE ROUTINE

.1f0 , R2

205
.100 (RI.f)

2(RI.f~6FINCNT

.WTYI T~(R3)
~R NINT

ROtRESR~G

;Y !"i-IfOi

; GET CURRENT OATH AOR
;HAVE MPG STORE 1 BYTE
; SET UP FOR 2NO BYTE
-STORE IT TOO
; STORE fiEW DATA AOR
; DEeR NEG WORD CNT
; CNT = OlJ..N.J1-205)
; ISSUE "I'(unun-- CMND AGA!N
;GO TO INTERRUPT EXIT
; ISSUE "STOP'· CMNO AT FINAL INT"
'N Y-205
;R£SET INT ENABLE
;STORE FINAL WORD COUNT
; RESET wAITING FOR I/O TERM
; RESTORE ALL REGISTERS
;EXIT FROM INTERRUPT

SE~

0371

: MAP1DEC- I-DTTCA-8 TeU ,'TUSS DEVICE ROUTINE FOR MPG
. DTTC:A3. P 1
TC 11 SEARCH FOR OECTAPE BLOCK SIR

G02

:1ACYll 27(732)

2~-SEP-7o

l~:OO

PAGE 8

.SBTTL Tell SEARCH FOR DECTAPE BLOCK SIR
;SEARCH FOR SPECIFIED BLOCK
;jSR
PC~EARCH
;BR
LAt2t.L

SIR CALL
EXECUTEC IF AN ERROR

; Rl = RONUt1 CMNO WITH OR W/O HH ENABLE
;R3 = PROG TBL ADR
jFN

= TceM

;DESTROVS

732'

(",

.;"..,{

.. ~~no
60LOO

7lb002"'40' 050001

""

~

SEARCH: MOVH
5WA
SIS
MOV

000035

f

0027112' 01b700 17 503&

TST

O~r-+b'

00571'+
002750' 100"+75
002752' 0327&7
..II, • (
"""12"'00'
0010"+&

OOLiOOO

8MI

BIT

175022

8NE

OCk~7b2' 02&1&7
00000& 1757'1&
002770' OOl~3n
002772' OO2'i21
bO$~
002rn' 1&2700 000002
003000' f"l52701 ()(NOOO
0030(}l1' 8327ti.f OO~OOO
003010' 001012
OC'3012 , 00S2b7 17572'+
70S:
(((::01&' 02&727 175720 0000U6

003Q2it' 103'1:JL+
OQ302b' 0527b7
0030311' OOO'-lOS

000010 17'171.f&
80S:
'liJ3U3b' Ol00b7 175b7'1
gt:s·
0()3(M2' 0101111
.... .
~' Ob271& 000002
88S:
0Cl3050' 000Z01
'30S:
003052' 032711.1 Wtooo
0Cl.305b1 00lJ11f>
955:
0030&0' 10S0Dl
003lb2' 15&701 175&4&
003CIbb' ~2707 oonOl0 175&34
00307"4 • 0007&2
004000
02&l.fb7 000006 175£:.2&
001411

100$:

0011000

102$:

00307S' 052701
003102'

.........to'

OO~l

OO~112' 003351
DO 114' 0"12701
Ofi112O'
0&2700
v-..

.....

OO-:'~4'
'
~

000002
03271Y OOliOOO

eMP

SEQ

BLT

SUB
815

BIT

8"fE
INC

CMP

BlO
8R
MOV

815
MOV

ADO

RTS

BIT

8N£

ClRS

8158
SIC

BR

SIS

CNP
SEQ
8GT
BIC
;100
Bli

AOR

RO,Rl

PCURDV(R3),RO

RO

;G£T CURR DEli ,.
;ALIG!~

DEli

#

8ITS

RO Rl
;5ET DEV # INTO CMNO
8lK.RO
;GET DESIRED 8LOCK •
i RI.f)
; RR. OR IT SET?
110S
; H Y- 11 OS
IYOOO,DFlGWD
;OOING IrO'S IN REVERSE'
100S
;N,Y-I005
;SEARCH FOR BlK FOR FWD I/O
S(R"I ) , I NBlKN
;AT THE BLK WE'RE LOOKING FOR?
90$
;N '1'-90$
80$
:pAST THE BLOCK? {Y,N-80S1
12 RO
;SU8 2 FROM ORG BLK •
Ii.fOOO,Rl
; 3ET REV BIT IN eMMD
.~ooo, (RLi)
;AlR£AOY GOING REV?
80$
'N Y-80S
REVCNT
; r(tCR REVERSAL CHT
REVCHT, IE>
;OO!'iE b DIRECTION REVERS~LS'
80$
;Y !'i-80S
110 DFlGWD
;SET glK SRCH ERR FlG
98S'
JGO T ERROR EXIT
RO,INBlKH
;SAVE BLK • (ORG OR ADJUSTED]
RI. (RI.f)
; ISSUE DEC TAPE CMNO
.2. (SP)
~ SET UP NORMAL RET ADR
PC
; EXIT IN-lINE
14000, (RL.f)
;ARE WE GOING FWO?
&0$
;Y,N-bOS
RI
;ClEAR CMMO CODE FIELD
;S£T IN REQUESTED eNND CODE
CURCMBkRl
110,C FLG
;RESET BlK SEARCH MODE FLAG
85$
;GO ISSUE eNND
;S£ARCH FOR BlK FOR REV I/O
£.
, ..

ItliOOO.Rl
b(RY),IN8lKN
105$

80$

II.fOOO.Rl
12 RO
.IiDOO. (RY)

.8,

; HiITIALIZE TO REV DIRECTION
;THIS THE BLOCK WE WANP
:N V-lOSS
;IN FRONT OF THE BlK? (Y,N-SO)}
;5ET DIR TO FWD
;AllOW FOR TURN AROUND
:ALREAOY GOING FWD?

OTTCAB.Pll
853 003130'
85-+ 003132'
855 0031~'
SSe 0031"10'
eS7 0031'12'
958
esC] 0031Lf'1'
9&0 003150·

MACYl1 27(732)

0017...2

SEQ
8R

30$
70$

BR

95$
102$
-2(R'1)

000727

03271"+ 00'1000

0013';7
oo07£:,'1

0057Sl.,i

17777£:,

100337
8S1 003152' 03271"+ 004000
8£:,2 oo31Sb' 001315
8£:'3 0031&0' 052701 00'1000
BS'"

H02

TCll/l'US& DEVICE ROUiINE FOR MPG
Tell SEARCH FOR DECTAPE BLOCK SIR

MAHiDEC-ll-DTTCA-8

003 :S,"+' 000712

105!:
110$:

SIT
BHE

TST
8IT
SriE
SIS
SR
8PL

'!ioao, (R"i )

88$

''1000. (R4)

70$

'!iOOO,Rl

70$

2'1-SEP"'7&

1'1:00

PAGE 8-1

; N '(-80$
;G6 CK REVERSAL eNT
;ARE WE GOING REV?

;N y-gS$

; G6 STORE ADJUSTED BU( •
jENO ZONE?

:Y N-98$
;GOINGREV?
~N Y-70S
;stT DIRECTION TO REV
;GO CK REVERSAL C~T

S£(j 0373

: MAINDEC-Il-DTrCA-B

. DTTCA8. P11
8SS

TCllTUSo DEVICE ROUTINE FOR MPG

SUBROUTINES FOR Tell FUNCTION ROUTINES
. S8TT'. SU8ROUTINES F'OR TCll FUNCTION ROUTINES

8b/

868

as"
87.J
C,''''

.
~

a~3

3-'~
.~i"'''~

(j

;CHECK IF DEVICE IS aUSY AHD WAIT IF' IT IS
SIR CALL
;JSR
PC.CKDBSY
;DESTROYS RO,R3.R4
; ON EXIT:
;R3 = PROG TBl ADR
;Ri1 = TCCM ADR
000704
CI22
;GO SET UP THE VECTOR
"+OS:
. WORD XXXX
: INT VECTOR AOR
XXXX
1.f55:
• WORD
; P~
. WORD TCnn- .
j
REL INT ROUT AOR
MOV
RS,ERRADR
1754"+0
:SAVE CURR USER STMNT ADR
1'1,ERRADR
SUB
DOOO()L+ 175""+0
PC
RTS
; EXIT IN-LINE

'a~2
.:l

I02

MACYll 27(732) 2'1-SEP-7c 1'1:00 PAGE

::;;

....... ,..

:::L b

~r""

S'~"9

-'

J,

r''"'32.L -=-.

~~fJ

"!

'eX)

!'V'O''''C.~··'''f·
~fw
f...,,;:,.

003272' 175372

0G327~' 0127&7
003...102 ' 00Cl'103

00330-+' 0127&7
003312' 0l2S.&7

:>:'",(331 b 0125&7
f

003322' 0Q52t;7

00332&'lJ327e3

~:8?~~~

0033'+u' OOSOOi

0033'+2' ClO'+7&7

ERRCS:

000710
000100

ERRCSl:

175250 000070
00003"+
000032

ERRIS:
ERRCOM:

1752&2

1753bc
020000 000002
aOOf:lf:lO

0033%' 00'15&7 0010co
003352' 000000
003354' 000000

ERM8AS:

:ERROR INFORMATION DISPLAY SIR
;JSR
R5,Lt':xx
. WORD xxx x

5/K CAll FOR CURR STATUS
SIR CALL FO~ INT STATUS
REL ADR OF ERROR MSG
• OF BYTES IN ERROR MGG

;STOR£ CURR STATUS
;5TOR£ ADR OF CURR STATUS
;00 TO COMMON POINT
;STORE ADR OF LAST INT STHTUS
;STORE MSG ADR
;STORE MSG CNT
;ADO 1 TO ERROR eNT
jERROR PRINTING INHIBITED'
'N Y-ERREX
!SAVE R'+
;SET USER MODE PRINT FLAG
;OISPLAY UNIT.
;PR!NT ERROR MSG SPECIFIED

J02

f"Er.
j
\J

TCll/TU5fl DEVICE ROUTINE FOR MPG
MACYll 27( 732) 211-SEp··7b 14: 00 PAGE "-1
DTlCA8.P
SUBROUTINES FOP TCll FUNCTION ROUTINES
OQJ3Sb' 02b71:?l 177770 001701
CMP
; INVALID UNIT It ERROR?
ERMBAS,IINVDVN-ERf'l8AS
I'1AINDEC-

TCH~B

(.103:36'"+'

oS ',
7'"'

":l'"

1777&0

DOi.fSb7
D
..00000
Q(N7bi'

000711.t

~h! 4b3

OOJ3?'b'
003402'
'Ii 386
111001

001713

~~: ~f8i

175300

0034bQ'
003'1&2'
0034&Lt'
003Ltb&'

IDS:

;OiSPLAY

001511&
17'H 1'of

eM?

SR

TST

S86
JSR
~~~

001534

00 15Iii
1777&2
012&04
000205

MOVB

SEQ
ADO

20S:

~~: &Wsg~ ~~

R5,DISPST

. WORD

Rf'SKN: JSR
RRSNM: MOV

0031130' 000771

OW-&f'12' OfJiS77

JSR

~EQ

~RSTAO:

000,"70
000022

000004

ERRSNt'!
~~~~R' IINVSKN-ERMBAS

;N Y-ERRSNM

I"MP.

SEQ

jJ01~1l

:"l::.?f.

ERREX:

_WORD
. WORD
MOV
RTS

XXXX

PC PRTIWO

PS~C::T (R3) ,RC

(RO) RI
~(RO~ .ERRADR
20$ .

~AH~~~~r:I~~OCK • ERROR?
STATUS REG'S

~8t~P~~ 8~~R~~T~NTS

'SAvE STMNT LENGTH
;ERROR OCCUR ON THIS STMNT?

;N Y-2OS

;P6INT AT NXT STMNT

Rl",RO
ID~

(RO)+
pt Rl
tStMNUM-. 1.RI
R5 ~CAS\..

~~~9NfTMHJM+~

STMNMG-.
-PL

(SF)+, R4

-GO CK NXT STMNT
;SET UP ADR Of'STMNT • DATA
;5£T UP DATA OUTPUT AOR
; CONVERT IT TO ASCI I
jSET 2 lOW DIGITS TO SPACES
; ISSUE STMNT • MSG
jRESTORE R4

RS

i EXIT

IN-LINE

: PROCESS TERMINATION OF PREVIOUS I/O FWiCTION

;JSR
PROCTM: JSR
DCaY7Q' DOYOb7 000i30
aIC
OOOO~ 17Y300
BIT
003502' 0327b7 OOOOU. 175220

00:1'+7'+' a.,27b7

OO::t51 0' 001010
I"'ri"x
.. :"1. f'.:>' 0,lb
' r 7"")
~.;;,_
1.Ii.

00351&' 010701

003522' 100001

8NE

MOV

17S21Y
17521&

MOV

BPL

0032-+' 0051101

25:

00352b' IbOl00

00.:1530' 00b300
Q'13532' :11 (()b 7
00353b' 01b701
0035l.f2' Clb..'lJ 11

liY2&2
1751&4

OCi35!fti' OCSS'11

17"+23&

000010

17Y200

fi:

010102
012700
112722

005300

000023

OOOOLtD

,

Rl,RO
RO

RO SIZE
CNtADR,R1

~?

MOV
ADD

10$:

2$

Rl

MOV

BIT
SEQ

8H£

Qb2701 OOlLt22

li.I,CURFLG
S5
CURCNT RO
FI/liCtiT'Rl

RO~(Rl)
-(r • 00 1003
qgq C:"l)bO' Ob2700
StCJO 003bb"+ ' 000770
Cjql ~t OOS71b
9C32 00Jb70' 00 1I+0c?
993 007EJ72' 112721
1'39"+ ~7b' 00S21h
m
• 112021
~
, 112021
~ 003'i'[N t 112021
~ ~' 112021

m

OOOl~~

112001
NJS7CN
003&52 ' 00 Ili2l

ge7 003b51.f'

gas

SHE
MOV

30S~

OOOOOIi
~OS:

00OO5~

SOS!

1773bO

bOS:
&5$:

f~

IN7Lf2

70S:

1810

1 11

m:
B
003752' 00Lf707

000072

~: ~~I 17731~
1015 003"2' fXD)lb
l~lb OOJr~' 0007SS

!017

1018

lOlCJ

1020

f~

1023
1~

I~

1028

J~~

BOS:

~~~TB'"

,RQ

'I~TAT+l-.,R2

-(SP)

(RO)+,R'4

R'i",(R2)
LJ'),.

.~",RO
20~

( SP)

505

~~p\ (RI)+
eRQH, {RI)'t
eRQH, HUH

:~iID
• WORD

PAGE q-2

; SET UP AOR OF

STOriE~

~~Risb~~R BIT SET IN STATUS BYTE'
'N Y-~OS
;P6INT AT NXT COot TSl ENTRY
• GO CK FOR NXT COOE
; FIRST ERROR COOE IN MSG?
'N Y-50S
; M6VE COf1M TO MSG
; INC I OF COO£S IN THE r1SG
; MOVE ERROR CODE TO MSG

( RO) : ... (R 1 H

~cit

(.

::>r")
(515)+

!RtSTCRE

R5 ERRIS

TCtr1SG-E·Rrl3AS

~~:RINTV

RS,~GER

PC.RINTV

RO,RESREG

~

;PUT ~ CODES IN
.y N-2OS

EARlS

8St~R"ERMBAS
1~.

THE MSG'

ST~K

; GO ISSUE ST~TUS ERROR MSG
;~O RESET INT VECTOR
; RESTORE REG' 5
;GO TO f1PG ERR RETN POINT

;EXIT IN-lINE
·ADO 1 TO ERROR eNf

; GO RESET 1NT VECTOR

;RESTORE REG'S

; (XU IN-lINE

; ISSUE BlK SRCH ERR MSG

&55

; GO TO ERROR RETURN

•.-:csCII
•ASCII

/PM£l
<~)/f1KTEI
<. ) IILOPI

;ERROR MSG CODE THaLE

<01 )/$£L[I

. ASCII (00"t ) I&~I(M/

:~8n
,BYTE

.EVEN

DEV REG'S

:~,Tl~biEs9~~TcOOE

BR

:~8U
.ASen

SEQ 037&

(RQ>+,CRIH

t~CNT

J5R

l~:OO

; Et()OF Tfo£ CODE TSL?

R~

&CJ5

~~~

JSR

2~-SEP-7b

; SET UP AOR OF ERROR CODE TBl

RO,RESR£G

RTS
'305:

105

PC RO

~r

JSR

1012 ~t ~7

iSla

Mova
Move

• WORD

1N 1CJI.t

£Xl37Sb • 0JIG7 000156

INC

BN£

~

1007 00J1't0' r:t:I6n

MOV8

eMF'

Hi m: fmt

1003 003'72'+' 00 1b'*l

8ITB

SHE
ADD
SR
TST
8E Q

Move
Move

Xt:!llO' OCZ71b OOOOOI.f
00371 ~' W~~

l~ ~t.8:~,

CLR

Move
TST
BE Q

K02

MAeYll 27(732)

"I

<.002>
IOAT.
(001) {NEXt'"

a

:TABL£ TERMINATOR

~lUNOEC"'ll"O'rTCA-B

DTTCAS.Pll

TCll/TUSe. DEVICE ROUTINE FOR MPG

SUBROUTINES FOR TCll FUNCTION ROUTINES

1030
1031

; RESET

1012

1033
10.11
1035
lO~

:~37

1~38

103<3
lQl-tO

000020
1737~

17"1000

RINTV:
oooo~
RINTEx~

!~

JS,R

RS.t.TYECT

;CO CK IF I HAVE VECTOR CONiROt
;SR IF I DON'T
;G£T CLRRINT VEer AOR

RlnTEX

JSR

R5,,~lrc::
.........
, :)2b

.S8TTL

T(;11 r£SSAGE

STORAGE

M£~

."-

1:)2'"
.....
'

1228
12~
~ :)30
......
'

1231

':,::132
......

• NlIST SEX

~~:

1233 DO'-tSS3'

Ot.~.

123'-+
• :)3S
..,;:
~ "'3&

~.:b'

1237
~ :,::138

~:

.. 4..,,..,

,

....:)JC!
~

~l~
. ioU.;;'"

PNl'ttSG:

PROGl'f1:

011

:~gH

IP,I

IXX/

101 02012~ O'-tOSl'i ~nMSG: •ASCII fAT LAST INT INOH-INT TERM:'
025CJ3 051122 01.47105 CURr1SG: .ASe!! ICURAENThl:l
PORT I
0'+7105 02010'+ tw31l7 R£K)f1C: •ASCII IEr() OF'
.000
1IIIITe11 DECTAPE UNIT: I
~~:
oS\t~
....('I • :~gH IXXXXXXI

m

.4 ...

. .EVEri

~

,;.2'40 ~iO· ~l~
8~'
vRCOT;
1
l.?il 0CNb1'b~f~
l?il? fX\"+7'fJ+ ' 09f5Q2 0'f252't 035123 CNT:Sr9G:

~~

~ff5 ~f~
~:E!~
15

~~
.......
12'+5 OCN'7'5D"
l,?lob

. EV£~•

~7&0' O't PUI

0't7115

OSlSCN

:~H

.RST
I
18=; •:~
ASCII
CRLF':

m:

1;(,'(;(;(= l

IXXX)(XXI

RO= I
IXXXXXXXXAXXX WR:

IBYTES~

IXXXXXXXXX'XXXI

(015)<012)

( 011 ) ICPI()S:

RO= /

•ASCII
??'S'
1.)) ~1.lJ ~130
.ASe I IXXXXX)( ~:: I
: •ASCII IXXXXX)(
12'48 COSOIO' 05'113) 09tl3l
''130
QI)C?tS: •ASCII 1XXXXX)(~)<06f>
l~ cn5D25'
IXl 09ft.))
:
V: /
1250 Dl5D35'
.ASe I 
011 osuos ~~
1251 (J)S(JSlf • C9t1:11 OSJot1XJ 05'f130 CNT£RR: •ASCII IX)(XXXX DATA:: I
CNTDER: •ASCII IXXXXX)(I(i~O~2i
1252 005D71 '
1:JJ O9tlXJ
103 005101'
<011>/l"T
T:
011 ~111
.~II IXXXXX)(1
13)
IX) eNTINT: .
II
1& OClSlli'
IXi
12$
CNTS£N= •
txEl2S'
•ASCII ' j IP£t\lT ON 1/ 0.
1256 CXJ5125'
12't QlfbSll 0'f7505 IOTO:
102 a-tSSl'4
1251 0051'43·
BSCt£R: .~II tal( SEARCH ERR /
/a.J(~ I
IN='~:
1258 Blbl'
1~ ~1't
'11 . IWC8(: :~II 1)()()('X..a..'(1
'H3)
1259
1&6' 05'+1
12'+7

"bSC: /

F

la,o
12&1
lib2

12&3
12&"+

t~
12f.>?'

E

==...~I!
E:I: ~iM Ft~ r""'
12'

~t

Et•

Ifj
.

III

III

~Ht ~8

•EVEN

• /
I
: •• "'II
ISTATUS ERROR:
CODFLO: •a.t: 100
OOIOT: '+0
AUTMP= 20
AlIft:P: 10
HSKPEP= ~

~

CXDl20

COOl I 0

CXXXOi

PF'&80V: 2
HOCOPF= 1

mY

OOOO~

PFWHOR=
PASCIH:
PNAf1E=
PROlOA=
PWRlOA:
PSRCST=
POBJST:

00002&

PLNGTH: +22.

000030

prOCHT: +2'+.

000020

000022

,
;
;
;

1
1
1
1
1

= COtlSOlE OR PRINTER 1/0 IN
= THIS PROG SET T~ PAT DEV
= 08J Coo[ IS PRESENT

PROGRESS
DEDICATED F"LHG

= THIS PROO USES T~ ~Ieus MAP (r£" P1Gr!NT ONL 'f ;
= PROGRM IS ACtIVE (SPECIfIED FOR EX£CUTlJ;Ni

If

OOERCK= ~
SPOPER: 200

Cl10200

00001&

f ~ :I;~F~SI~6~Il.Sf¥ONPROGRAM

biB

002{X)Q

000010

'+0
100
200
100000

TASLE LENGTH - NON MEM MGMNT

;PROQRArI'S OPERATION SWITCI£S - 1 WORO
; 1 : STOP PROG EX£CtJT ION UPON ERROR
STONl::R:
CYCPRG:
: 1 " CYCLE PROOAAl1 CON C~NT DEVICE)
PROr£R:
; 1 : 00 HOT PRINT ON ERROR
BIT12= 1()(XX) '. 0 ..- '''''
t.lJ'\ '"
; 0 ::: NOT~ ..
B1Tll= '+Cal
CYCDVL= 2Cm
; 1 : CYCLE TI-£ DEVICE LIST
GTNXTO: 1000
; 1 : CYCLE ON SAME DEVICE UPON ERROR

O'+COOO
020c00
010000
W+CXlO

OOOOOb

;~

~~Irr~

0000'+0

~

F~T

VERSION OF J-1P(,
jCPTlGTH= 212. jPROGRAft T~E LENGTH - MEM MGMNT VERSION Of MPGj
PFLGWD: +0.
; PROGRAI1 FLAG WORD - 1 WORD
l.RSTOP= 2
1 = USER HAS STOPPED THIS ~
PTLGTH: 1&2.

000010
000020

000002

TAeLE

+'4.
+&.
+8.
+1'4.
+1&.
+18.
+20.

::: ()()NT T 00 £RROR Mel< INC
::: DEVICE SPECIAL OPERATION
= NOT U5£O
: 00 NOT-PERF'ORf1 1/0 TIP£OUT
: 00 NOT AUT()ItATlc.:u Y DISPLAY COUNTS
: ~TOI£~AY COlIfTS AT EtC) Of FINAl PASS ONlY
=
c~Ott. Y AT Rtri COfttANO
= PRIN KEEP
F T
BYTE OPt... Y ON VERIFY
; 1 : 00 NOT ~'HT
COt-flLETEO f'1SC

;
;
;
;
;
;
:
;

1
1
0
1
1
1
1
1

; *; PROGRAM FLAGWORO

~SS

- 1 WORD

; PROORAf1' S NlItB£R IN ASC I I .. 1 WORO

jPROGRAM'S NAME IN ASCII - &BYTES
: ADDRESS Of REA[) IIO AREA - 1 WORD
;ADORESS OF WRITE V'O MEA" 1 WORD

;SOURCE STATEf1£NTS

ST~T

ADDRESS - 1 WORD

:OBJECT CODE START ADDRESS" 1 WORD

;PROC AREA LENGTH (08J END MINUS PROG TSL STARTi
; llO TIMEOUT COUNT - 1 WORD

- 1

wORD

0382

E03

~INDEC-ll-DTTCH-S

DTTCAS.Pll
lJ213

':'Cll,. TUSE> DEVICE ROUTINE FOR MPG
"Aey 11 27( 732) 2Lt .. SEP-7c 1~: 00
FORMATS rOR PROGRAM & D£VICE ROUTInE TABlES
; O£v ROUT 1'100€!.. I CODE - 1 wORD
fOMOLCO= +2&.
000032

1330
1331

oooo~

1333

000035

l332
•..;:i'">,3'1
.•
lJJS
lJ3S

133-

1338
:3,~!g

,::~l4a

00003&
00005&

OOOObO

.,:~~ 1

OOOOb2

1:t"'3

0000&"+

l::.NS
131.+b
lSi?
:3'18

~

:3..2
:3~

l:~q

1~50

00007'0

000072

, -~S'
135.2
l3S3

00007&

·~5""
": ~

000100

Av'"l

1315\4
""'\ow;

13Se

00007~

1~~7

000102

:3'S~

000101

1361

-"""
:.3E;3

OOOlOb
000110

'3&5

000112

:35..'3

.'3bO
':;&2

llbt.t

I..

'.,

. 3£/e
13t7
13&9
..'3E,,:l
1370
~'"

~

:371
1372

OOOll~

00011&

000120

1373

000122

1375

OD012~

13'7!.f
• '")7"

.. ..,Ie

,.,..,...,.

.. tJ t f

;1,Q
• ..,.t
I".,;

...'" '-',""'q
J( ".

1380
139:
'?8'...
4-

OOO12b
000222
OOC23b

fOOPNTR= +28.
PCUROV: +2<3.
PONUf1S: +30.
PTEMO: +'1&.
PTEMl= +"'8.
PTEN2: +50.
PTEM3= +52.
PTE MY: +S"f.
PTE!1S= +5&.
PTEMt>: +58.
PTErot': +&0.
PTEM8: +&2.
PTEM<3= +b"f.
PTEMIO: +&6.
PTEMll= +&8.
PTEM12= +70.
PTEMI3: +72.
PTEM1"f: +7"+.
PTEMI5:; +70.
PNBR= +78.
PSRC: +90.
c:mS1'+82.
• ..,

1-

PSTKCT= +8~.
PSTKSV: +8e.

PSVRECa=

"'l~o.

PUSRPC:: +158.

PAGE 12-1

;CURRENT DEVICE NUMBER POINTER - 1 8YTE
;CURRENT DEVICE' - 1 BYTE
j DEVICE NUMBERS - 1& BYlES
;USER PROGRAM TEMPORARY STORAGE- 1 WORD
;USER PROGRAM TEMPORARY STORAGE - 1 WORD
; USER PROGRAM TEMPORARY STORAGE - 1 WORD
;USER PROGRAM TEMPORARY STORAGE - 1 WORD
JUSER PROGRAM TEMPORARY STORAGE - 1 WORD
; USER PROGAAM TEMPORARY STORAGE - 1 WORD
;USER PROGRAM TEMPORARY STORAGE - 1 WORD
;USER PROGRAM TEMPORARY STORAGE - 1 WORD
; USER pRQGAAM TEMPORARY STORAGE - 1 WORD
JUSER PROGRAM TEMPORARY STORAGE - 1 wORD
;USER PROGRAM TEr1PORAAY STORAGE - 1 wORD
; USER PROGRAM TEMPORARY STORAGE - 1 WORD
:USER PROGRAM TEMPORMY STORAGE - 1 WORD
; USER PROGRAM TEi1PORARY STORAGE - 1 WORD
;USER PROGRAt1 TEMPORARY STORAGE - 1 wORD
;USER PROGRAM TEMPORARY STORAGE - 1 wORD
; NU?'l9ER Of BYTES TOTRAHSfER ON MOvE (NSR - 1 w'JRC
;~TA SOURCE ADDRESS ON MOVE (SRCI - 1 WORD
; D.-:tTA DESTINATION ADDRESS ON MOVE (DS"; - 1 ~ORC
;' OF WORDS (X 2) SAVED OFF STACK - 1 WORD
;STACI< WORDS STORAGE AREA - 30 WORDS
: USER 5 RO THfW RS REGISTERS STORAGE AREA - S WCRCS
;USEP'S CURPENT PROGRAM COUNTER - i. WORD
t

F03

MA!NO£C-ll-DTTCA-8 Tell/TUs.e, DEVICE ROUTINE FOR MPC
MACYll 27(73C)
OT"rCAB. p 11
FORMATS FOR PROGRAM & DEVICE ROUTINE TABLES

~002"'2

2'+-SEP-7& 1'+:00

~GE

12 .. 2

jF'OLLOWING ENTRIES (PROlOX THRU PUBMAP) ARE ONLY IN MEM MGMNT VERSION
; (PROIOX= +1&0. ;18/22 BIT ABSOLUTE ~DRESS Of READ 1/0 AREA - 2 WORDS)
; (PRDIOV= +1&'+. ;19 BIT VIRTUAL ADDRESS Of READ 1/0 AREA - 2 WORDS)
; (PWRIOX= +1&8. ;19/22 BIT ABSOLUTE ~SS Of WRITE 1/0 AREA - 2 WORDS)
; (PWRIOV= +172. ;19 9IT VIRTUAl ADDRESS Of WRITE 1/0 AREA - 2 WORDS)
; (PUPARS= +17&. ;STORAGE AREA FOR USER'S PAR'S 0 THRU 7 - 8 WORDS)
; (PUPORS= +1C32. ; STORhGE AREA FOR US£R' S PDR' S 0 THRU 7 - 8 WORDS)
; (PUBr1AP= +208. ;151" UNIBUS MAP REG. AND. OF REGS USED - 1 WORD)
;END OF ME" f1GMNT ONLY ENTRIES
PTS!ZE= +1&0.
;PROGRAM TABLE SIZE IN BYTES - 1 WORD - NON MEM MGM~T
; (PTSIZE= +210. ;PROGRAM TABLE SIZE IN BYTES - 1 WORD - MEM MGMNT VERSION:
PTENO= .1&2.
jENO OF PROGRAM TABLE - NON MEM MGMNT VERSION
; ;PTEND= *212. :ENO OF PROGRAM TABLE -, MEN NGMNT VERSIOf'1:

SEQ 039'-+

G03

: MA!HOEC-ll-OTTCA-B Tell/TUSE» 8EVleE R8UT1NE FOR I1PG
MACYll 27(732) 2&+-SEP-7& 111:00 PAGE 12-3
: OTTCAS. Pll
FORMATS FOR PR GRAM & EVICE ROUTINE TABLES
1"+10
DEVICE ROUTINE TABLE
Pi 11
1'4i2
1'413
1'41"+

00011&

DRTLTH= 78.

;DEVICE ROUTINE TABLE LENGTH

11115
l1.;lS

000000

10;:3
l ... ~g

000002

1~2!J

OOOOOI.f

OEVRSZ= +0.
DEVFWO= +2.
DEVIW1= +'+.
DEV!W2= +0.
OEVIW3= +8.
DEVIW,+= +10.
DEVIWS= +12.
DEVIW&= +111.
DEVIW7= +10.
OEVIW8= +l8.
OEVORA= +20.
DEVIVA= +22.
DEVRPS= +211.
OEVWPS= +2b.
DHKPAO= +28.
DERPAO= +30.
OKILA£)= +32.
DECTAD= +3;';.
OTOEAD= +3&.
DEVIOB= +38.
DEVDER= +'10.
DVUPRT= +'+2.
DVCPRT= +;.;;.;.
DEveTA= +'+&.
DveTDA= +48.

;DEVICE ROUTINE SIZE IN BYTES - 1 WORD
;DEVICE ROUTINE F1AGWORO - 1 WORD
jDEVICE INTERFACE WORD. 1 - 1 WORD
;DEVICE INTERFACE WORD. 2 - 1 WORD
jDEVICE INTERFACE WORD. 3 - 1 WORD
;OEVICE INTERFACE WORD. '+ - 1 WORD
;OEVICE INTERFACE WORD. 5 - 1 WORD
jDEVICE INTERFACE WORD. & - 1 WORD
jOEVICE INTERFACE WORD. 7 - 1 WORD (SIZE)
jDEVICE INTERFACE WORD. 8 - 1 WORD (ERR)
;DEVICE REGISTERS ADDRESS - 1 WORD
.DEVICE INTERRUPT VECTOR ADDRESS - 1 WORD
;DEVICE READ PROCESSOR STATUS WORD (BUS REQ) - 1 WORD
jDEVICE WRITE PROC STATUS WORD (BUS REQ) - 1 WORD
;DEVICE ROUT HOUSEKEEPING ROUT REL ENTRY ADR - 1 wORD
;OEVICE ROUT REPORT ROUT REL ENTRY AOR - 1 WORD
;OEVICE ROUT KILL ROUTH~E R£L ENTRY AOR - 1 WORD
;OEVICE ROUT ERROR COUNTER REL ADR - 1 wORD
jO[VICE ROUT TIMEOUT ERR ROUT REL ENTRY HDR - 1 weRD
:DEVICE 110 BUSY BAAHCH ADDRESS (ClOBSY) - 1 weRO
jDEVICE ERROR BRANCH ADDRESS (CUPGER) - 1 WORD
; USER MODE PRINT BRANCH ~DRESS WLlST) - 1 WORD
;CMNO MODE PRINT BRANCH ADDRESS (CLIST) - 1 WORD
jCONVERT BINARY TO ASCII BR ADR (BINASC) - 1 WORD
;CONVERT BINARY TO DECIMAL .:lSCII 8R ADR (BTASLZ) - 1 ~~CRC

1~17

: ... 21
:"'22
...'~::l3
....

00000&

'

ll;~

000010

1112b

000012

11.f28

00001'+
00001&

1'-125
~~27

1"+c<3
.;. ...30

1"+31

1'+32

000020

1"'3-1
ll.!JS
1"+3b

000022

1'438
1'43'3

OOOOCb

1"+33

11.f31
P~;';O

000021.f

000030

141.41
1'4'+2

000032

1"':';11
11.;"+£

00OO3l.f

1~"3

:"'%
14"+7
1~'+8

1"'..,13

1"'50
1'+51

1
.
''''52
l~53

1"+5'+
1"tS5
1'15&
1"+57
1"+58
11'4513

14&0

1"+&1

14&2
14&3
14b'1

14tS

000030

0000'+0
OOOtr+2

0000......
0000'"+&

000050
000052
00005'+
00005&
0000&0

.
;

SE~

0385

; DEVICE ROUT REL SYMBOL TABLE POHHER - 1 WORe
;OEVICE ROUT REL ENTRY TABLE POINTER - 1 wORD
;PACK TABLE EXTEN. REl POINTER - 1 WORD
;VECTOR TABlE EXTEN. REL POINTER - 1 wORD
;COMPILER TBl EXTEN. REl POINTER - 1 WORD
; DEVICE INTERFACE WORD SYMBOL TBL REL POHHER ; END OF DEvrCE ROUTINE TABLE

wORC

r03

MIiCY 12

¥,.,,,, ,

"}
',- ,t."I,,."i \i 11_

r'
,l': ,," I "",'lo... "'l' .{Io.r'1"",-

'".\

'J :'1 "

',:> '-

l,J\, '1...)' We fwJ
~q~,··~OO'

!"..J!it..
"l"!>;...I'_

,

;,,\,\.I\
.. 1
v~'

' ...•

DEVIw2= 000006

':)EVrW3: 000010

002

C02

002
002

002

002

OEVIW!i: 000012
DEVI16= 00'001"'1
f'l.r
ILL ~!h'10'
1.1
t.. H• r~ 1iIfQ..
11•.> .... 1b'
DEVlla./7= 000020
D. ;:£ VI . W.a=
.22
.DEVRPS:30
DEVRSZ= 000000

DEI/STP: 000 102
OCVWPS: 000032
UFLGWn 000002R
DHKPAO:: 00003"+

DLSeNi' OOll&OR

002
002

DrSCT 1 OOllb'iR
, lJ..,,,J,;'
' c:pr T
0r143
\•R
D
u.,.b

oo..~

DISUh'

002

OIS~l1L

002

on·'

052
002

002
002
002
002
002

~

002

002
002
002
002

~

nOl.i2b"fR

OO~312R

DISUHM OOl.l22bR

:0 I SUPR
CtKH.. AD=

3Q'iR

a

OO£RCK= 0001100
OOlor = 000010
OREGAD 00002"iR
(lI1TENO= 00011&
0001 HI

002

58~
~
~

002
002

oon
. TH=
DTOEAD:

OO:')Qt;11
ova fOA: OClOObO

DVCMOS OOOlSliR
crVCPRT::
I.i
DVCPTE
bbR
DVCTEP: UOOi12
DVCVEC: O'D0070
OVMVT£OOO1ObR
VPD.
'. TA::

8,vPI(lE

CO()
. (L2
.' .

O~

vp rEP:: OOCI.
'. lOb
OVPUTB::OOO 100

002

002

002
002
002

D.{·

002
002

DVREGE:: OOC1S'iR

OVREGS

coo 11 bR

DVRE1f)= OL1527bR
OVREX 00 12b'iR

DVRQO T 00'i67bR

OVRGI'lG

OO~E>7OR

DVTV( ':=

000072

OVRINT= 00007"+
DVSFWO= 0000&"1
DV$VEC= OOOObb

..

F' I Non

000D52
i"'t{,,\I"'.,i! 1 '.n
D0377bR
003352R
003~0'1R
000022R
v"00
til"'Il:>"tR
0OO71"+R
·12R
bbR
00327lfR
003"+~bR
003304.lR
003i.flDR
~.,.H.,l:itJ;'.{..

002

002
002
002
002
002

2Y-SEP-

';".J

t; "

O(Ol.!02R

OO"i
7!.fOR

002

002
002
002
002

002

88~

002

002
002
002
002

FWD
DD.11.:f7oR
G(-TBYT
7bR

002
002
002
002

'7Y"!R

002

' j,L:
F"Ui>.I"'EX

\'J"'I'
. _L~ ,.i ,4'-'uR
, l -l

1.

Gl'NX TO::
HSKEEP

000

H$KP£H=
7!i"lR
HSKPEP: 00000'1
HSKPST= OOObS2R
INBLKN 0OO73bR

IMF"OBK OOSl&oR
lblR
INTeNT
720R
INVSKN 0052E>SR

INFOMG

OVGf..· lB.:.-.ooao
. . 7S

OV I WSP= 000 11 't
DV I WST ClOCIb22R

DVUPRT=
''tE·PERCDTS
ERHBAS
ERPBKN
ERR
,-c·}"'t\""R
t.!'\~"lJ
ERRCNT
ERRCOM
ERRCS
ERRCSl
ERREX
ERRIS
£RRSNM
ERSTAD
ERSTOP=

l732)

HNDVti

I~+gT

005253R

:: 88B~~~~
IVCTAO 00002bR

KILL
KILLEX
LCOUNT
""tW4.J
Jr.
LNlr4AIT
LOC!
LRDALL

00 1"+20R
OOllof114R
ODOb32R

E
...... ,.1

LRDNUr1
LR'£V

gOO9QOR
.' OO&33R

000.b33RR
000b32

LSTAlL OOOb32R
LSTATS 000032R
LSTOP ClOOC32R
LWA IT
000b32R
LWRAlL 000b'+2R
LWRTM OOO&Lf2R
MISCNT 000712R
MISCOM OOlb5bR
NINTSU 002S1bR
NOCOMP= 000001

002

Oun:.J..
002

002

002
002
002
002
002
002
002
002
002
002
002
002
002
002

88~

002
002
002

002

g8~

002
002
002

lL1:

SE'~

PAGE 13

N""'~lN'"i
i'lj".l~·~ii',·

il
!O",)UAl,.:\..
..

I\lf'
~ ,U1'uri
IU"1 ,i,".

'"",~,,.. 0

R

t1 ;12::1b'"

r', nc· 1 '11.':. "bR

OCPRES: 000100

002
002

PASC I N= OOf)OO&
pi"
-·"0':r)O··Q tiU 7
~ \,..,
"''fI",

PCURDV= 000035
PDHUf1S= 00OO3b
POPHTR= 00003"+
PocT - oon12~
PFBBOV; ro0002
PFLGWO= 000000
PFWAOR= OOOOOl.f
PLNGTH= 00002b
PMDLCO= 000032
PNHME = 000010
PrieR = aOOilo
PNMMSG OO"tS'fbR
POBJST=
'Ii
POPSW =
2
PRO I OH:·
lS
PRINT
,32R
PROGTt1 003'170R
PROG.NM OOYSSOR
PRONER= 020000
PRTEX OOl.fSI1QR
PRTIWO OOY~ObR
PSRC : 000120
PSRCST=
22
PSTKCT= 002Y
PSTKSV= 00012b
PSVREG: 000222
P<;WO
00003JR
pfEMO = 00OO5S
PTEMI :: OOOObO
prEMiO= 000102
PTEMll= DOOlOY
PTEM12: OOOlOS
T. ;:'Ml.3= 0.0'0110
;')TEMI "+= 000112
p.

PIEMlS:: 00011"1
PTENE = 0000&2
PT~M3 :: oaOOElI1
PTtMY = DOODDb
PTEM5 = 000070
PTEMo = 000072
PTEM7 = 00007Y
PTEMa = 00007S
PTEMQ = 000100
PTENO :: 0002"+2
PTLGTH,= 0002Y2
PTOCNT= 000030
PTSIZE= 0002YO
PUSRPC= 00023b

?UTBYT CiOO WOR
CIU,Q
i ·u,~ n-.;""
1"._. "":'100: 2(i
• jOif",..
,.;
RDALL DOiSlOR
ROCHT OOQ?06R
RDCOM OOlS2bR
ROHUM 00157&1'1
~EAO
OOlS16K
RENOMG QOYb16R
R~PORT 00lg00R
Rt.PTBL CO L.. 7 I.fR
RESREG 0011 1-40R
REV
jG1506R
rn07"
~R
1'"'(''''('M'T
1,. .,.... 1
",l..", '1 t:
RI IHEX OOl.f072R
R~ rnv
OOl.iOSQR
RPTBAS 001230R
RPTEND OD12SYR
RPTLP D01212R
RTNINT Cl007'tR
-'Y.nr'Oliu:"'l(1
.R i1
Rl
=%QOGOCi
R2
=%(}OOOO;:\
R3
=/';.000003
RY
=%00000'1
RS
=:%000005
SAVREG OQI.112YR
SEARCH 002732R
SETDED:
a6R
SETVEC
SIZE
00002 OR
Sf'
:::%DOOOOb
SPOPER= 000200
STMNMG OOS17"fR
STMHUM G0520"+R
STONeR= 100000
STOP
OOlSYbR
STPAlL DOIblOR
ST5TAT OOY202R
SUPTAO OOY15bR
TCEMSG 005212R
TCINT 002S3bR
TOECNT 00(1722R
TOUTER 001320R
TOUTEX DOIYlbR
TSTVEC 00OO72R
TVEeT OOYD7Y:R
TVECTX 00'1~22R
ULIST ooor:;S2R
UNASC I OCYt,' ?q
UNITMG OC~S •.",~
URSTOP: 000002
USEU9M= 000200
WUT
0014YSR

038 7

002

i

002

, .....,

002

88~
002
002

002

-.+¥I..J

~

........

002
002
C02

· n:;)
O
.......

O-C2
002
002

002
002
002
002

002
002

002

002
002

002
002
002
002
002
~t;~
..J'"",,~.

DTTCAB.Pll
SYMBOL TABLE
WRAU..
OOl&22R
002 WRCO~
. ASS. 000000
000
Tell
ERRORS

005270

800000

001
002

DETECTED:

a

DEFAUl T GlOBALS GENERATED:

0

f.DTTCAB/Nl.:TOClOOC::DTTCAB.Pl1
SECONDS
RUN-TIl1E ~Tr0: 171/1"'=11.5
:ORE USED: 5;( (g PA,G£S}
RUN-Ti.M£: I.f q .'3

COCUMENT PAGES:

J03

MACYll 27(732)

TCll,TUS& DE''i'ICE ROuliNE FOR MFG

~ArNOEC-II-DTTCA-9

3S

OO15SeR

002

WRTM

OOlb3'1R

2Y-5EP-7b lY:DO PAGE 13-1
002

WTYIOT= 000010

SEJ 0388

002

K03
1111111111111111111a
111 1122222222223321

_$&7~12Jf15&7:~"'12

11111111111:

+*a

1111~

ilgRm&mm8~;;t~~~mmr66i~Wl~'77mm78ii8;eS;~m~~mmOOOOl1111111112222222,-~21331 ~



File Type                       : PDF
File Type Extension             : pdf
MIME Type                       : application/pdf
PDF Version                     : 1.6
Linearized                      : No
Create Date                     : 2016:09:24 18:51:46-08:00
Modify Date                     : 2016:09:24 20:21:01-07:00
XMP Toolkit                     : Adobe XMP Core 4.2.1-c041 52.342996, 2008/05/07-21:37:19
Metadata Date                   : 2016:09:24 20:21:01-07:00
Producer                        : Adobe Acrobat 9.0 Paper Capture Plug-in
Format                          : application/pdf
Document ID                     : uuid:35f8ee0c-d15a-5147-bdf9-facdd0f3cfce
Instance ID                     : uuid:f2c4cb6c-66e5-0f4b-aac8-ae2f72482648
Page Layout                     : SinglePage
Page Mode                       : UseNone
Page Count                      : 36