PDF Printing 600 Dpi MAINDEC 11 DZDLC B D_DL11C_D_E Off Line _May77 D DL11C E May77

MAINDEC-11-DZDLC-B-D_DL11C_D_E-Off-Line-_May77 MAINDEC-11-DZDLC-B-D_DL11C_D_E-Off-Line-_May77

User Manual: MAINDEC-11-DZDLC-B-D_DL11C_D_E-Off-Line-_May77

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

Download
Open PDF In Browser	View PDF

IDENTIFICATION
Product Code:
Product Names

DL11/C,/D, or /E Off Line Test

Date Created:

MAY 1977

Maintainer:

Dlaqnostlc

Authorz

E. Crowley/B. Burgess

~ELEASE

ENGINEERING

Copyright eel 1975, 1977 Dlg1tel Equipment Corporation
This sOftware is furnished under a license for use only on a sinqle
computer SYstem and may be copied only with the inclusion of the above
copyright notice, This software, or any other copies thereof, may not
be prOVided or otherwise made available to any other perSOn except for
use on such system and to one who agrees to these license terms,
Title tosnd ownerShip of the software shall at all times remain in
DEC.
The information in this document 1s Subject to chenge without notice
and shOUld not be construed as a commitment by DiQital Equipment
Corporation •.

DEC aSSumes no responsibility for the use or reliability
software on equipment which is not SUPPlied by DEC.

of.

its

Page 2

TABLE OF CONTENTS
PROGRAM PURPOSE (ABSTRACT)
SYSTEM REQUIREMENTS
3,.0

RELATED DOCUMENTS AND STANDARDS
DIAGNOSTIC HIERARCHY PREREQUISITES

5.0

LOAOING AND STARTING PROCEDURE
SPECIAL ENVIRONMENTS

7.0

PROGRAM OPTIONS

8.0

EXECUTION TIMES
ERROR INfORMATION
Error Reporting
Error Hal ts
PERFORMANCE AND PROGRESS REPORTS
DEVICE INFORMATION TABLES

12.0

SUBROUTINE SUMMARIES

THRU
12.20

MISCELLANEOUS
14 .0
14.1
14.2
14.3
14.4

USER SELECTION PROGRAMS
Program #2 Description
Program #3 Description
program #4 Description
proqram #5 Description
PROGRAM FUNCTIONAL FLOW CHARTS
PROGRAM LISTING

Page 3
1.0

P~OGRAM

PURPOSE (A8STRACT)

This program has the ability to test the OLtl (Asynchronous
MOdem Interface), off line, Models able to be tested are C,
0, and E onlY, The use of a modem Is not required for
testing,
however, a speCial cable 'connector BC05C and a
SPecial modem test connector H315A is reqUired. This program
is capable of the fol10wingl
a,
b.
c.
d.

e.
f.
g.
h.
i.
"
k.
1.

Verification of maintenance bit
Verification that transmitter can cause an interrupt
Verification that receiver 'OONE- can cause an interrUpt
Checks that -REQ TO SENO- asserts -RING'
CheCkS that 'SEC XMIT' asserts 'SEC REC' and 'DATA SET
INT'
Checks that 'OTR' can assert 'CLR TO SENO' and 'CAR OET'
Verifies that 'O~TA SET I,E,' can cause a RECVR INTR
CheCkS the 'BREAK' feature
Performs null-del-null pattern
Performs binary up count pattern
performs binary down count pattern
Runs a worse case pattern

Included In the program are special user routines - PRG #2,
#3,
PRG #4, and PRG #5 (which will be 'described fUrther
Into this document).

P~G

Note well two(2) polntsl
1.

This program Is capable of testing sixteen(16) OL11's and
assumes contiguous addreSSing from 1st device to last.
a,

If mUltiple devices are not being tested, thus not
a pass thru the program once per device,
then the program will defaUlt to testing the 1st
possible OLt1-E device I.e., FCSR address = 775610,
and test thll device onlY,
r~qu!rlng

b.

If mUltiple devlce telting is not belng conducted,
and the device eXisting Is not the defaUlt OLll-E,
then the user on starting the program will have
set SWCO>=1 to enter the question' answer mode,

to

2.

2,0

ThiS prooram has provision for Character length i.e., It
assumes data is 8 bIts, but also has the ability to
handle S, 6, or 7 bIts of data as well.

SYSTEM REQUIREMENTS
a.

Hardware RequIrements
POP-ii family processor wIth 8K of memory
M7800 OL1! asynchronous lIne interface module

Page 4
BCOSC special cable connector
H315A special modem test connector
b.

Software Requirements
This program was specifically designed for the 11/40
Front End of the 1080 Console Processor System, In this
environment it would be loaded by the TCDP (Dectape)
diagnostic monItor.
However, any 11/40 user with 8K of
memory can run thIs program to test onaCl) or multiple
DL11'S,
The program has the proper interface code to allow
running under the automated manufacturing test line
system • ACT!l.

3.0

RELATED DOCUMENTS AND STANDARDS

a.
b.

c.
d.

e.

4,0

programming Practices • Document No. 175-003-009-00
PDP1'/40 Processor HandbOOk
DLll Asynchronous Line Interface Manual
Document No. DEC-I1-HDLAA
PDP-l1 Maindec £YSMAC' Utility PaCkage
MAINDEC-I1-DZQAC-C3
Applicable Circuit Schematic
M7800

DIAGNOSTIC HIERARCHY PREREQUISITES
Before running this program, the following two(2) diagnostic
programs should be run for verifIcation of functionalIty of
the II-instruction set and memory a
1.
2.

5,0

MAINDEC-I1-DBQEA and,
MAINDEC-I1-DZQMC

LOADING AND STARTING PROCEDURE
Load program in memory Using ABS loader
Load address 200,

NOTE
In the case of a 1080 IYltem environment
load
the
program
using
the TCDP
Cdectape) Diagnostic Monitor.
PreSS
a,

sta~t.

There are alSO three(3) optional start addresses for
program a

the

Page 5
204 .. selects program
210 • selects program
214 .. selects program
220 • selects program

6.0

#2
#3
#4
#5

SPECIAL ENVIRONMENTS
If thil program js run in QuIck Ver1fy Mode under
program il done after the first pass.

7,0

the

PROGRAM OPTIONS
SWITCH

USE

••••••

"'

15:1 or UP
14:1 or up
13:1 Of up
12:1 or up
11:1 or up
10:1 or up
9=1 or UP
8=1 or up
<7,0>
0=1

or up

.....

Halt on error
Loop on test
lnhibit error typeouts
IC or 10 mOdel being tested
InhibIt Iterat10ns
Bell on error
Loop on error
Loop on test In SWR<7:0>
HoldS test no. Of test to be looped on.
Used
in conjunction with SW<9>.
Used In deVice table creation (i to 16 devices)
1.e., default device not deSIred. AlSO used for
character length setting,
11 NOTE wELL 11
If sw<08> 15 set the user can only 'looP
on a test' of the default device i,e. •
OL1!/E RCSR = 775610.
It
the
USer
desires to 'loOP on a test' of other
than the default device he must first
patCh the five (5) locations labeled

.- ..

OLFlCSRa
OLVECTz

DLRDBR8

DLXCSR,

DLXDBRZ

that appear under 'DLll Defin1tIons'
headIng at the front of the listing.
I.e" -with Iw<08> set sw Is not
functional.

8,0

ACT11

EXECUTION TIMES
EXecution tIme is dependent on type of

memory

and

Page 6
of DL11's being tested,
time for 1 error free pass 15:

~umber

11/40 •

A representative

core memory • 1 DLI1/E • 20 seconds

There are a total of seVen(7) types of error
reports generated by the program, The tey column
headings will be described below for Clarity •
This Is the address of the receiVer
control status register for the falling
OLl1

DEVAOR

ThiS is the address of
the
register on whiCh testing is
conducted
WAS

•

This is What the contents of
the
register of the OLt1 Undergoing test
was (address is under column '(R2)·)
This is What the contents of
the
register of the OL11 Undergoing test
Should be (address 15 under column

SIR

'(R2)')

WASADR

•

This 1s What the memory add~ess
be (output data bUffer address)

SHBADR

•

9.2

This is What the memory address
(input data buffer address)

was

ShoUld

This 15 the contents of the
DL11
receiver data buffer in error (address
1s under column '(R2)')

Error Halts
With the 'Halt on Error' switCh (5W15) not
four(4) programmed 'HALTS· in the program,

set

a.

In the cale of error reporting and there is
to allow the information transfer,

b.

In the power fall routine if the pawer

up

there
no

are

terwlnal

sequence

was

Page 7
started before the
complete Itslef.

power down sequence had a chance to

e.

In the end of pass routine if mUltiPle device testing
being conducted but no devices are shown as active.

d.

In the case of SW(OS> being set.

10.0

PEpFORMANCE AND PROGRESS REPORTS

11.0

DEvICE INFORMATION TABLES

a.

1s

The following Is a picture view of a DLI1-E Receiver
Control Status Register, which will show bit aSSignments
and definitions, to provide a handy reference I

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

I

I

I

!

1

I

lDS1PIlCT1C lR 15 1
11 INGI 51 01 A1 RS

r

I

I

1
1
1

lR lRIlDll
1 D1ENIENl

I

I

I

I

I

I

15 IRTtDT!
! XIS lR 1

r
1
1

I
I
I
I
1 I
I I
I
I
I
!
I
I
...
_--_I .••.•...•....
__ ........
_-_
.......
-- ......
-I

15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00

Sit aSSignments are defined as follows:
BIT15

Data set Interrupt

1. Interrupt

sequence
initiated when BITOS set,
2, Sets whenever bits 10, 11,
12 or 14 change state
3. Cleared by IN!T or reading
RC5~

BI114

Ring

1. When

set,
indicates
a
control
signal
being
received from dataset.

BIT13

Clear to send

1, When set
Indicates
ON
condition,
when
clear
indicates OFF condition,
2, Dependent on
state
of
·CTS' Signal from dataset

B1T12

Carrier Detect

1. Sets when data
carrier
received
2. When clear indicates end
of current transmission or
an error condItIon.

Page 8
AIT!1

Peeel vel' Act! ve

1. When

set

receiver

indicates
interface
1s

active.

or

2. Cleared by INI!
DONE (BIT07).

RCVR

81TI0

Secondary Receive or
supervisory Peceived
Data

1. Provides receive capability, when set, for reverse
Channel of remote station.
Sets When BIT03 1s set.
2, Cleared by IN I!

9IT07

Receiver Done

1. Sets

when

Character

has

been
received.
Will
Initiate
an
interrupt
providing B1T06 is also

set

2. Cleared

when
RDBR
1s
addressed or BITOO Is set.

3, AlSO, cleared by INI!
81T06

Receiver Interrupt
Enable

1.

When set, allows interrupt
providing BIT07 is set,

2, Cleared by INIT
3. ***READ/WRITE BIT***

Dataset Interrupt
Enable

When set, allows interrupt
providing SIT1S is set,
2. Cleared by INIT
1.

3, ***READ/WRITE 61T***
BIT03

Secondary Transmit or
Supervisory Transmitted
DATA

1. Provides
transmit
cap·
ability,
when set, for
reverse channel of remote

station.
is set.

sets when BIT10

2, Cleared by INIT
3. ***READ/WRITE BIT***
91T02

Requnt to Send

BITOl

Data Terminal
Ready

1, Jumper ties

this

bit

to

REQ TO SEND in dataset.
2. Required for transmission
3, Cleared by INIT
4, ***READ/WRITE 81T***
1. When set,

permits connec·
t1ol"l to Channel.
2, When clear,
disconnects
1nterface from channel,
3, MUST be cleared by program
4. ***READ/WRITE BIT***

***Spec1al Notes on ReSR Reg1ster***
1.

Addresses Should fall

1n

the

range

of

175610

to

Page 9

176170

b.

2.

BITOI (Data terminal
after power ... up,

state

3.

On DL11-C or -0 options bits 15, 14, 13, 12,
3, 2, and 1 are not used.

4.

On DL11-C and -0 options blt is 'ROR ENsr,
OLI1-E oPtion this bit IS unused.

Re~dY)

is

not

defined
10,

5,

On a

The following Is a pieture view of ill DLU .. E transmitter
control status register, Which wUl show bit assiqnments
and definitions, to provide a handy reference:
. - • • • • • • - •••• P- ••••• - •• ~-- •• - . - . - . - - . - - • • • • • • • • - .

I

I

1
1

1
1

I

I

I
1
I

1
1
!
I

I

I

1
1

1
1

I

I

I

I

1

1

lXP1Xll
1DYl EN 1

I

I

I

I

I

I
1

I

1

!

...15 --......-.....-.- .. -.......-- ... ---..
14 13 12 11 10 09 08 07 06 05 04 03 02
I

1

I

I

I

I

I

tBR!
1 K!
1 I

1M 1
1 At

I

I

~.----

!

..

01 00

Bit assignments are defined as follows:
8lT07

Transmitter Ready

Set When XDSR can accept
will
another Character.
initiate an Interrupt 1£
81T06 also set.
2. Also set by INIT
3. Cleared by lOading XDBR

B1T06

Transl!lltter Interrupt
Enable

When set, allows Interrupt
prOViding BIT07 is set,
:2 • Cleared by IN!!
3. ***READ/WRITE BIT***

B1T02

Maintenance

1. When set, disables

1•

1•

serial
Input to receiver &
con~ects
XMIT output to
receiver
input
which
d1sconnects
external
device input. This forces
receiver to rUn at xmitter
speed.
2. Cleared by IN IT
3, ***READ/WRITE BIT***
line

61rOO

1. When

set,
transmits
continuous
space
external deviCe
2. Cleared by IN IT
3. ***READ/WRITE BIT***

Break

11 NOTE £!

a
to

Page 10
DL11-C and .0 options are the same.

e.

The following is a picture view of the OL11.g receiver
and transmitter data butfer registers, to provIde a handy
reference •
•••••••••••••••••••••••••••••••••••••••••••••••••
I I I I I I I I t I 1 I 1 1 I I I
lER10R1FRIPEl 1 1 1 1 1 10 SA 1T lA I ! 1
I I I I r I I I I I I 1 I I I 1 I

-...-.--......---..--.--....-.....

-.-.-.----~

...-

15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00

B1t assignments are detined as follows:
BITS 07-00 Data

1, Character
to
be
transferred to external
devlee.
2. If character less than 8
Dits it must be loaded
right justified.
3. ***WPITE ONLY 61T5***

BIT 15

Error

1, ***REAO ONLY 81T***
2. Cleared by error removal

SIT 14

Overrun

1. Same as BIT 15
2. RCVR DONE not cleared

BrT 13

Framing

1. Same as BIT 15
2. No valid STOP bit

en

parlty

1, Same as BIT 15
2. Parity
other
expected

12

NoTEI

8Its<15112> only appear 1n the rcvr data buffer
DLll-C and -0 oPtions are the same.

12,0

SUBROUTINE SUMMARIES

12.1

OLADOR
This routine I.ts up the following.
RCSR
RBUF
XCSR
XBUF

•
•
-

Receiver StatUI Register
Receiver Buffer Register
Transmltter Status Register
Transmitter Buffer Register

than

Page 11
The setup Is done, InltlellY, In response to

user reply to
1st devlc@ he wants tested, and thereafter, at the end of a
program pass to allow cycling thru all devices for multiple
device testl"9 (If required).
12.2

SEoP
This routine Is SUPPlied by ~AINOEC-l1·DZQACC3,
Malndec
'SYSMAC'
utility
package,
This
responsible for the followings
a.
b,

the PDP-l1
routine Is

Incrementing the pass number (SPASS)
Typing 'END PASS # XXX' (where -XXX' Is a deCimal

valu~)

NOTE

If multiple device testing Is being
conducted,
then
$PASS
Is
onlY
Incremented after testing of all devices
has
transpired
(mUltiple
testing).
Therefore, e,g" If 10 devices have been
tested then 'END PASS #1' would be typed
out, 'END PASS #2' would be typed out
after the 10 devices have once again
been tested by the program, etc.
c.
d.

12.3

Goes to a monitor, If there Is one
If there Is no monitor transfers
beginning of the program.

control

baCk

to

$SCOPE

ThiS routine Is SUPPlied by MAINDEC·I1-0ZQAC-C3,
Maindee 'SYSMAC' utility paCkage.

the

This routine Is entered before and after
ascertain the following condltionsl

subtest

every

PDP-l1

a.

Loop on test just executed?
Thi. condition Is enabled when SW<14> Is set to a '1',

b,

LooP on test If an error has occurred during the test?
This condition is enabled When SW<09> Is set to a '1'.

c.

Loop

on

sW~<7io>?

test

speCified

bY

test

no,

appearing

This condition Is enabled when SW<08> 1& set to a '1',
d.

Inhibit subtest iterations?
Th!S condition is enabled when SW<11> Is set to a '1',

to

In

Page 12

ThiS routine is supplied by MAINDEC-l1-DZQAC-e3,
Maindec ·SYSMAC~ utllity paC~age,
.

the

PDP-li

Tnis routine handles the following reactions to an error when
an error 1s encountered:

a,
b.

e.

"HALT4i' on Error?
Thh condition ls

enable<~

when 81'1<15> is set to a '1'.

lUng "Bell~ on Error?
This condition is enable" when 51'1<10> 1£1 set to a ' 1 - ,
Loop on Error
conc'ition is enabled When 51'1<09> 1s set to a '1

Thh

d.

II •

Inh1bi tError Typeouts
Thi& condition is enablt,j When SW<13> is set to a " 11' •
NOTE
On encountering an error while executing
the program this routine will transfer
control to 'SER?Typll routine shown below
(presumes ~HALT' on error 5W<15> not
set).

12.5

$ERRTYP

This routine is supplied by MAINDEC-ll-0ZQAC-C3,
Maindec ·SY5MAcr utility paCkage.
Thts routine handles
tyoeouts as followS.

tne

information

for

the

efror

PDP-i1

message

ThiS routine uses the 'Item Control Byte- (SITEMB) to
determine which error is to be reported. It then obtains,
from the 'error Table' (SERRTB) the addresses of where the
information,
for printout, 1s $tored~
and causes the
appropriate information concerning the error to be printed
OUt.

Note:

1,

The variable 'SITEMB' is supplied
'SYSMAC~ utility paCkage routine.

2.

The 1st address 'SERRTB' for location of 'error
table' information is also SUPPlied by .SCMTAG.

3.

It the 'SITEMB' Value is zero(O), then only a
program counter (PC) is printed out, It has no
label, it is a pure number.

by

.SCMTAG,

a

Page 13
12.6

$TyPOC
This routine is supplied by MAINDEC-l1-0ZQAC-C3, the PDP-ll
Maindee 'SISMAC~ utility package. Th1s toutlne is used for
all octal typeouts (16 bit YRlues) throughout the program.

12.7

STYPDS
This routine is supplied by MAINDEC-l1-DZQAC-C3, the PDP-II
Matndec 'SYSMAC' utility package. ThIs routine is used to
type a decimal value at the end of a pass of the program of
the form 'END PASS # XXX'" where "XXX, Is the decimal value.

12.9

SRoCHR, $RDLIN, SRDOCT

These routines
PDp-li Malndec
folloWSl

afe SUPPlied by MAINDEC-1l-DZQAC-C3, the
"'SYSMAC' utility package. Their uses are as

a.

$RDCHR· Handles a Single Character coming
TTY.
The Character Is placed
stack for future use.

b.

SRDLIN - Handles a string of Characters coming in from
the TTY.
The address of the 1st character Is
placed on top of the stack for future use.

c,

SRDDeT - Handles an

number coming 1n from the
decimal # input TTY. Low
order bits are stored on top of the stackJ high
order
hits are stored in location sHIOCT.
SHIOCT is supplied by p$CMTAG, a
'SYSMAC'
paCkage utility routine,
SROOEC

12.9

in from tne
on top of the

octal

104420

TTY

STyPE

ThiS routine Is supplied by MAINDEC-ll-0ZQAC-C3, the PDP-Ii
Maindec ·SYSMAC· utility paCkage. ThiS routine Is used to
type ASCII messages (which must terminate with a 0 byte) as
well as all other forms of typed information. The routine is
also responsible for inserting a number of £111 Characters·
after a line feed.
Note:

1.

$NULL contains the Character to be used as fill,

2.

$FILLS contains the number
req"'d.

3.

$FILLC contains the character to fill after,

of

filler

characters

Page 14
4.

The above
,SCMTAG, a

three(3)
~SYSMAC'

variables are supplied
package utility ~outlne.

by

STpAP, $TRPAO
These routlnes are sUPPlied by MAINOEC-l1-0ZQAC-C3, the
pDp-St Malndec 'SYSMAC' uti11ty package, The 'STRAP' routine
wlll strip off the lower byte of a trap instruetlon and use
it to l~dex thru the trap table (STRPAO) for the starting
address ~t the desired routine.
Then using the address
obtained it will then transfer program control to that
routine.
The following table defines all routines In
called by a 'TRAP' instruction by Showing
equivalences •
STyPE

104400
104402
104404
104406
104410
t04412
104414
104416

STYPOC
STyPOS
STYPON
STyPOS
SROCHR
SROLIN
SROOeT

the program
their 'TRAPg

TTY typeout routine
Type octal • (with leading zeros)
Type octal # (no leading zeros)
Type octal # (per last character method)
Type decimal # (with slgn)
TTY character Input
TTY string input
TTY octal # input

SPWRON, SPWRUP
These routines are SUPPlied by MAINDEC-l1-DZQAC-C3, the
POp-11 ~aindec 'SYSMAC' utility package,
These routines
handle the 'Power Down and Up' sequence, The program may be
power failed when running' however, use caution in turning
power offlon while the power fall message Is being typed - it
may cause staCK overflOW.
NOTE
When power returns
automatically start
beginn1ng,

12.12

the program will
itself over at the

XINT, RINT
XINT

•

This is the transmitter interrupt
for 256(10) byte blOCk tranSfers.

service

routine

RINT

•

This Is the receiver interrupt service routine
256(10) byte block tranSfers,

for

Page 15
OELAY, STALL, DATCHK, TIMERX, TIMETX
These routines .are all used by programs 2, 3, 4 and 5.
programs 2 through 5 are the ~Special' user interaction
routines which will be defined later in this document,
The
above routine uses are as follows:
a.

DELAY

• ThiS routine is used by all the utl1ity programs
to wait a no, of milliseconds between character
tra"sfers as specified by the user,

b.

STALL

• This routlne 1s used by program #4 and will
allow a random no, of milliseconds to transpire
before a transmission of a Character,
This
routine is activated based on user response.

c.

DA'l'CHK .. ThIs routine is used by program #4 and will
checle tor correct expected and received data
after character transmiSSion as well as any
error bit condltions,

d.

TIMERX + TIMETX ..
These two(2) routines are used by program #4 to
verlfy the ~DnNE' bit after both transmitter and
receiver operations.

SUERR1, SUER2
These two(2) routines are used throughout the progralll to set
up the error information for ~Error Reporting' before the
'Error Report' call 15 IlIade.
~Error
Report' calls appear
thrOughout the program 1n the form "ERROR + XX" where 'XX'
indicates the particular error table (ERRTSl) entrY used by
the Error Serv1ce Routine.

ThiS routine is used to let up the data buffers an the device
under test for each 256(10) byte block transfer,

CLDLSF
This routine 11 used In conjunction with routine ~PRIME'
clear Input and output buffers before data tranSfers,

LDoUT1, LDOUT2, LDOUT3, LDOUT4

to

Page 16

The routines are all used for set up and loadln9 purposes

as

1011o\l1U

a.
b.

c.
d,

LDOUTl .. is call ed
LDOUT2 .. 15 call ed
pattern
LOOUT) .. Is called
pattern
LDOUT4 .. 115 called
pattern

to set up the -null-del-null· pattern

to

load

an

aSl:ending

binary

count

to

load

a

deseending

binary

count

to !
"
,"

.

72
73
74
75
76
71
7R
79
RO
RI
82
83

R4
05
86
ij7
88
ij9
90
91
92
93
94

95
96
97
98
99
100
101
102
103
104
105
106
107
IDe
109
110
III
112

USE

HALT ON ERROR
LOOP ON TEST
INHIBIT ERROR TYPEOUTS
Ie OR ID MODEL
INHIBIT IT.RATlONS
BELL ON ERRO.
LOOP 0' ERROR
LOOP 0/11 TI':51 IN S,oJR<7: 0>

15
14

13

I>

12
II
10

,-

8

I'

,-,"

9

"

CREATIOl; Of D€VICE/S TABLt:

DP CHANGE

~*

.SBTTL

CHARACTE~

,*ALL UNUSED LQCATIONS FROM 4 - 776

000t74
000176

0001'14
0001)00

swpgGI

000000

!l00'21

n

000137
000137
0110137

CV~TATN

001446
006344
006604
007054
007446

0

.wOR~

0 0 0,14

00(1)7

000137

0001)52

.=52:

OOUoil)2

000000

.WORD

; ,SOfiTWAFll-: SWITCH REGIS'J'EP

12-JUL-77
10,02
BASIC DEFItlITlONS

.SBTTL

~ASIC

M~~OFY

SIZE

PAGE 2

DEFINITIONS

11

DEFINITIONS
, ,CODE FOR HORIZO~TAL TAB
, ,CODE FOR LINE FHD
I,CODE FOR CARRl AGE PI';TURN
"CODE FOR CARRIAGE RETURN·LINE FEED
"PROCESSOR STATUS WORD

177774
177172
177570
177570

000000
000001
000002
000003
000004
000005
000006
000007
000.0.06
000007

,>GENERAL PURPOSE REGISTER DEFINITIONS
RD'
lO
"GENERAL REGISTER
Rl =
"GENERAL REGISTER
%I
R2=
"GENERAL REGISTER
%2
R3.
%3
"GENERAL REGISTER
R4.
"GENERAL REGISTER
85=
%5
"GENERAL REGISTER
R6=
U
"GENERAL REGISTER
"GENERAL REGISTER
.7'
%7
SP.
\6
"STACK POINTER
PC=
"PROGRAM COUNTER
\?

000000
000040
00.0100
000140
00.0200
000240
000300
000340

,"PRIORITY LEVEL DEFINITIONS
PRO=
0
, ,PRIORITY
PR1=
40
'I PRIORITY
PR2=
100
"PRIORITY
PR3=
140
"PRIORITY
PR4=
200.
"PRIORITY
PRS.
240
"PRIORITY
300
PR6'
" PRIORITY
, ,PRIORITY
PR7=
340

0000.20
000010
000004

<61T14=0>

8P~R~TION

,"INITIAL ADDRESS OF THE STACK POINTER *** 1100 ***
STACK=
I I 00
.EOUIV EMT,ERROR
/fBASIC DEFINITION Of ERROR CALI.
.EQUIV
lOT. SCOPE
I,BASIC DEFINITION OF SCOPE CALL
"MISCELLAN~OOS

0000.40

DgpEND~~T

~UTD"ATIC

HT=
LF=
CRe
CRLF:
PS=
.EQUIV
STKLMT=
PIRQa
OSWRII
DOISP.

100.000
040')00
020000
010000
004000
002000
001000
OU0400
000200
000100

NO. 4
NO. 5

,"10 pnWER fAlL Pf!:QUIRED (IHT15::;O)

JIS NOT

30(1046)

PROGRAM

'0, 2
NO. 3

1INFOFI"'lATIOtl (JOCATION FOR ACT11

,IS SUITABLE FOR

000011
000012
0\.10015
000200
117776

".+~,HALT"

STARTING ADDRESS(ES)
JMP
~'BEGIN "JllflP TO STAPTING ADDRESS IJf
:JUMF TO USER PROGRAM
JMP
@'PRG2
JHP
@'PRG3
:JUMP TO USER PROGRAM
;JU~P TO USER PROGR~M
JMP
@'PPG4
:JUMF TO USEP PROGNAM
JOP
@'PRG5

000270

001100

A

,"'SEQUENCE TO CAl'CH ILLEGA.L TRAPS At.J[1 INTERRUPTS
"LOCAnON 0 CONTAI"S a TO CATCH l,eHnpI':Rf,Y LOAn~D VECT'JRS
.=174
DIpPHEG, .woRn
:, SllFTWARE: DISPLAY PtGlST'E:R
.S8TTL

orto?OO
00°2 0 4

~ENGTH

TRAP CATCHER

.=0

000000

MAINDEC-II-OZDLC,P
MACYII
DZDLCB,PI I
06-MAY-77 10104
57
58
59
60
61
62
63
64
65
66
61
6e
69
10
71

OPERATIONAL SWITCH SETTINGS
SWITCH

12
15
200
177776
PS, PSW
177774
177772
177570
177570

"STACK LIMIT REGISTER
"PROGRAM INTERRUPT REQUEST REGISTER
"HARDWARF SWITCH REGISTER
"HARDWARE DISPLAY REGISTER

"

LEVEL
LEVEL
LEVEL
f"EVEL
L.EVEL
LEVEL
LEVEL
LEVEL

r*"·5WITCH REGISTER" SWITCH DEFINITIONS
SW1S_
100000
SW14=
40000
SW13=
20000
SWI210000
SW11z
4000
5W1011
2000
swa9:
1000
swos400
SW07c
200
SW06a
100
swos= 40
SW04=
20
SW03z
10
SW02=
4



MAINDEC-II-nZDLc.a
MACYI1
DZDLca,Pl!
06-MAY-77 10104
113
114
115
116
117
118
119
120
121
122

00000.
000001

30tl046)

1'-JUL-77
10'02
BASIC DEFINITIONS
SWOI=

2

.E:QUIV
• EOU IV
.EQUIV

SW09,SW9
SWOB,SW8
SW07,S.7
5W06,SW6
SW05,5WS

swon:z

,EQUIV

.EQUIV

123
124
125
126
127
128
129
130
131
132

100000
04()000
020000
01000n
004000
002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
ooonOI

133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
149
149
150
lSI
152
153
154
155
156
.157
158
159
160
161
162
163
164
165
166
167

,EQUIV

5W04,SW4
aW03,Sw3
SW02, aW2

.EQUIV

SW01,SWl

aEQutv

SWOO,SWO

,"DATA 8IT DEFINITIO~S (BITOO TO BITI5)
BITI5_
100000
8IT14. 40000
BITI3. .0000
BITI210000
4000
BITI I'
BITt 0=
2000
BIT09=
1000
400
BlTOS'
aIT07.
200
BIT06.
100
aIT05.
40
BIT04_ 20
81T033
10
BIT02=
4
BITOI_ 2
BIlOOI
,EQIJJV
81T09,BIT9
,EOUIV BIT08,81T8
,EGlUIV BIT07,BtT7
,EQUIV
BIT06, BIT6
.EQUIV
BIT05,BITS
.EQUIV
BIT04, BIT4
,EQUIV 81T03,BIT3
,EQUIV
BIT02,BIT2
.EQUIV BlTOI,BITI
• E;QUI V BITOO,BITO
r~BASIC

000004
000010
000014
0000 14
000014
u00020
000024
000030
000034
000060
000064
000240

I

.EQUIV
,EQUIV

"CPUH TRAP VECTOP ADDRESSES

J,J,R€SERVED

ERRVEC. 4
PESVEC= 10
T8ITVEC=14
TRTVEC. I'
BPTVEC= 14
IOTVEC= 20

TIME OUT AND nTIib.R P;RRORS

205
206
207
209
209
210
211
212
213
214
215
216
217
21B
219
220
221

222
223

l~STRUCTIO~S

(BPT)

J,ltrpUT/OUIPllT TR4P (lOT)
"PO~ER fAIL

r ,EMULATOR THAP

O~MT)

*~scorE**

*""'EflRGFHH4

, t "TRAP" TRAP
, ,TT¥ KEYBOARD v~crOR
"TTY PRINn:R VECTOR

TRAPVEC=34
T"VEC. 60
TPVfC- 64
PIRQVrC.240

COM~ON

ILL~GAL

I ,BREAKPOINT TRAP

P-liRVEC= 24
E:MrVEC= 30

,SBTTL

A~r

,,"T" BIT
"TRACE TRAP

J ,PROGPAM

MACYII 30(1046)
12-JUL-77
10.n
HAINDEC-II-aZDLC-!
COMMON TAGS
06- M AY-77 10104
DZDLeB, PII
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
193
194
IRS
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204

PAGE 3

1~1·gRf.lUP'[

RI:.:UIJP.:S1

VECTOR

PAGE •

TAGS

,,**********************************.****************************

,>THIS TA8LE CONTAINS VARIOUS COMMO' STOPIGE LOCATIO_S

,*USED IN THE PROGRAM,
.:1100

001100
SCMTAGI
$PASS,
$TSTNM.
SERfLG.
$lCNT,
SLPADR,
$LPERR,
S ERTTL.
sITEMB,
SERMAX,
SERRPC.
8 GDADP.
SBDADR.
8GDDAT,
SBDOAT.

001100
001100
001102
001103
001104
00 It 06
00 I 11 0
001112
001114
001115
00 1116
001120
001122
001124
DOl I 26
001130
001132
001134
001135
00 I 136
001140
001142
001144
00 1146
001150
001152
001154
001155
001156
001157
001160

000000
000
000
000000
000000
000000
000000
000
001
000000
000000
000000
000000
000000
000000
000000
000
000
000000
177570
177570
177560
177562
177564
177566
000
002
012
000
000000

eTKS.
STKB.
STPS.
STP8.
SNULL.
SFILLS.
HILLC,
eTPFLG.
.REGAD.

001162
00 1164
001166
001170
001172
001174
001176
001200
001202
001204
001206
001210
00 1212
001214
001216
001220
00)222

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

SREGO.
SREG1,
.REG2.
SREG3,
SREG4,
$REGS.
SREG6.
GREG7.
STMPOI
STMPI.
STNP2.
STMP3.
$TMP4.
UNP51
• TMP6.
$IMP7,
ITMPIO.

$AUTOS.
$INTAG.
SWR'
DISP~AY'

dSTAR'T' UF CO'1MON T,ilGS

; ,CONTAINS PASS COUN1'

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

, ,CONrA1NS THE
, ,CUNTAINS
, ,CONTAINS
"CO'TAINS
, ,CO'TAINS

.WORD
,RnE
,BYTE
,WORD
,WORD
gWORD

,wORD
,WORD
.WORD
.WORD
,BYTE
.BYTE
.WORD
,WORD
,WORD
177560
177562
177564
177566
.BYTE
,BYTE
,BYTE
,BYTE
,WORD

,WORD
,WORD
,WORD
,WORD
,WORD

DWORD
.WORD

.WORD
.WORD
.WORD
.WORD
,WORD
,WORD
,WORD
,WORD
,WORD
,WORD

T~S'I'

NU~~Eq

; ,CONTAINS EPROR nAG
, ,CONTAINS SURTES! lTE~ArrvN COUNT

0
0
0

a
0
0

I,CONTAINS
; ,CON'rAINS
J ICONTAINS
; JCON't'AINS

SCops LOOP ADDRESS
SCOPE RETUR" FOR ~RRnRS
TOTAL ERRDRS DETECTED
ITEM CONTROL BVTE
MAX, ERROPS PER TEST
PC or LAS1 ERROR INSTRUCTIUN
ADDRESS OF "GOOo'" DATA
ADDRESS OF 'BAD' DATA

"CONTAINS "GOOD' DATA
"CONTAINS "BAO· DATA.
• "RESERVED.-IDT TO ~. USED

a
a
a

"AUTOM'TIC MODF IHICATOR
:, INTERRUPT MODE INDICATOR

DSWR
DDISP

"ADDRESS
"AOORESS
"TTY KBD
, ,TTY KBD

OF SWITCH REGISTER
OF DISPLAY PEGISnR
STATUS
BUFFER

"TTY PRINTER STATUS RI:;G.

a
2
12
0

a
a
0
0

a
a
a
a

AnDRess

"TTY PRI~TER BlJHER REG, ADDR.SS
"CONTAINS NULL CHARACTER FOR FILLS
"CONTAINS I OF FILLER CHARACTERS REQUIHED
"INSERT FILL CHARS, AFTER A "LINE t'Et:DU
,r J uTERMIJljAL AVAILASL'E." FLAG (BIT<07>.0=YES)
"CONTAINS THE ADDRESS fPOM
(SREGO) WAS OBTAI_ED
, ,.'HICH
"CONTAINS (($REGAD)+O)
, ,CONTAINS ((SREGAD1+2)
, ,CONTAINS ( ('REGADl+4)
, ,CONTAINS ((SREGAD)+6)
"cnNTAINS ((SREGAD)+IO)
, ,CONTAINS ((SREGAD1+12J
"CONTAINS ( (SREGAD)+14)
"CONTAINS ( (SREGADlt16)
"USER DEFINED
"USER DEFINED
.,USER DEFINED
"USER DEFINED
"USER DEFINED
, ,USER DEn NED
"USER DEFINED
"USER DEFINED
"USER DEFINED

MAINDEC-I,-nZDLC-B
MACYII
DZDLCB,PII
06-.AY·77 10,04
224

225
226
227
22~

229
230

231
232

233
234
235
236

001274
001,26
0012]0
001232
001234
001236
001240
0012 4 2
001244
0111246

OUI252
001253
001254

30(1046)

000000
000000
000000

ST"PIII
GTM?12'
STMPI3,
$TMPI4,

(100000

000000
000000
000000
000000
000000
177607
0"/7
015
000012

12-JUL-77
10,02
COMMON TAGS

.WORD
,WORD
,WORD
,WORO

8Tf'PI5. ,WORD
$TMPI6 • • WOPD
GTMPI7I ,WORD
STIMES, 0
SESCAPE.O
GBELL.
.ASCIZ
S OUES,
,ASCII
SCRLY,
.ASCll
$LY,
,ASCIZ

000377

PAGE 5

"U5[R DEFINED
, ,USER DEFINED
USER DEn NED
IIUSER DEn NEn
;,USER DEFINIiD
, ; USER DEFINED
; ,us~:p DEn NED
, ,MAX. NUMBER Of ITfRATIONS
:,ESCAP~ ON ERROR ADDRESS
<207><377><377> "CODE fOR SELL
"QUESTION MARK
111
<15>
"CARRIAGE RETURN
, ,LINE n:ED
<12>

r,

237

"*****~*********.*******************.*********.****** ***********

238
239
240
241

,THE FOLLOWING TAG(S) ARg USER SUPPLlM BY CALLING TH': "ACRO
,'MOREnGS' AS ONE OF THE ARCUMPNTS TO THE S¥SMAC ROUTINE .SCMlAG

242

001256

000000

TAFfLG,

,AN INDICATOR TO SHOW THAT THE
: INf'OR"'ATIUN FOR f,1UVl1PLE DEVICE
,TESTI.G HAS AL"EAP' TRANSPIREQ
,& 'MAINDEC' NAME HAS BEEN PRINTED
,STORAGE' WORKING LOCATION FOR A DEVICE
,R~CEIVER STATUS REGISTER ADDRESS
,STOPAGE LOCATION FUR THE 1ST
,DEVICE RCS. FROM WHICH

• "'-ORD

243

244
245
246
247
248
249
250

001260

oooono

DLBASE,

,WOPI)

001262

000000

KEEPAn,

,wORD

001264

01')0000

BASEADO I • WORD

;'8ASgADD' IS ReSTORED AT THE
: END OF A COMPLETE; PROGRAM PASS.

2~1

252

,STORAGE LOCATION WHICH HOLDS

253

;T~F

254

,DEVICE DURING -ULTIPLE TESTING
,STORAGE LOCATION 'OR THE 1ST
,DEV ICE RECE I VER VECTOR FROM

255
156

Q()J?66

000("100

KEEPIV,

,WORD

001270

ooooeo

BASEIV,

,WORD

257
258

259
260

:WHICH 'BASElV' IS RESTORE" AT T~E
;END Of A COMPLETE PkOGPAM PASS
,STORACE LOCATION _HICh HOLDS

fTHE VECTI1R
001212

ouoooo

MULTO,

,WORD

:FJJAG

:T[STI~G

264
265
001274

onoooo

AC'fRE:G:

268
270

271

,US~R

UOl276

ROTADD I • WORD

000000

~A

001300

; ReSR

OACYII
10,04

30(1046)

12-JUL-77
10'02
CUMMON TAGS

PRUGRAM QOESTIONS

Ia SIGNAL

IF LESS
ADDP~55

~TESTED

001102

000000

DLPPl:

,WORD

001304

000000

LESS!

r

,WORD

001106

177740

STLMSK,

A fUL[,

I~A~

COMPL~­

OF'

TH~

LAST

[)~:VICE

PAGE 6

283
286
287

288
289
177740

(rF MULTIPLe DEVICE

,TESTING -AS SI::LECTEIl BY USER)
,STORAGE LOCATION f'OR THE DEVICE
,INIERRUPT PRIORITY LEV~L
,THE PRIORITY LEVEL THE CPU
,MUST BE AT TO ALLO- DEVICE INTERRUPTS.
,THIS WILL BE I LEVEr, LESS THAN
,THE DEVICE LEVEL [PASED 0" &
,CALCULftTED FROM USER RESPONSE TO
,DEVICE PRIORITY LEWL QUESTION)

;THIS MASK IS USED

~y

THE 'STALL'

~POUTTNE WHICH wAITS A RANDOM NO,
:OF MILLISECONDS, ITS' USE PREVENTS

292

293

,A STALL> 17 MSEC,
THIS LOCATION
,HOWEVER, CAN BE PATCHED BY THE

294

iUSER TO ALLOW LARGt:R 'STALLS"',

295
296

'Q7

TO

pnI~JTER

,flE"T Of DEVICES ()6)WAS SELECTeD
,STO~AGE I,OCATION fUB THE

LASTAOO,.WDRD

01)0000

MAINOEC-II-DZOLC-B
OZDLea,Pl1
06-MAY-77

290
291

CONDUCTE0

&~l~G

RESPONSE

R.OTATl~'G

JnO~E)

277

284
285

IS

,TH! LAST DM¥ICE l~~TEO (IF
,MULTIPL. DEVICE TESTING wAS BEING

271
275
276

280
281
282

•

Tr l 'END OF PASS"

;(A MAX. OF 16) THAT lS TO UNDERGO
~TESTING.
THls LOCATIO~ IS
:AUTOMATICALLY FILLEr) BAstu ON

269

278
279

rr~D!CATE

~ O=~JO,
l=Y€S
,THIS IS THE DEVICE ACTIVE REGISnR
;A i:llT IS SE'T U;iTARTING A.T
,BIT01FOF EACH CONTIGUOUS DEVICE

,WORD

261

272
273

to

,ROUTINE THAT MULTIPLE DEVICE

263

266

OF THE 'NEXT'

ADOR~S5

,DEVICE DUpING >lULTlPLE TFSTING

261

262

RCSR AODRESS UF THE 'NF.XT'

,END OF USER SOPPLIEO TAG[S)

MAINDEC-ll-0ZDLc-e
MACYII 30(1046)
12-JUL-77
10.02
PAGE 7
DZDLCB,P!1
06-MAY-77 10.04
ERROR POINTER T~BLE
,BBTTL

29B

299
300
301
302
303
304
305
306
307
3Qa
309
310
~ II
312
313
314
315
316
317
31 B
319
320
321
322
323
324
325
326
327
328
329
330
331

332
333
334
335
336
317
318
339

340
341
342
343
344
345
346
347
348

"

",-"

35 ~

, ,POINTS TO
II POINTS TO
, ,POINTS TO
, ,POINTS TO

EM
OH
DT
OF

THE
l'HE
THE
THE

ERR-OF r,jli~s.sAG~
DATA HEADfR
DATA
DATA F'OR/o'IAT

SERRTS,

OOIJIO

;ERROFI TABLE rrgM FOR ERROR MESSAGE I

001310
001312
001314
001316

015146
015215
015274
000000

001320
001322
001124

015312
015336
015434
000000

,,.

J "or,l J RI:;GISTER fC:EFEflENCE

EMI
DHI
OT!
0

(SP)
( PC)
( PS)
(R7 )
(PO)
(PS")
,PRINT ALL OCTAL

,.

CAUS~D TIMEOUT"
REGADR
nST
DEVAOP
(R2)
(RO)
(RI)

, ERROR TABLE ITEM FOR ERROR MESSAGE 2

00132~

,,..

EM2
OH2

012

OLII RFGISTER ERROR "
(PC)
(PS)
(SP)
TEST
(PSw)
(P6 )
(R7l
("0 )

DEODH
(Rll

REG.OR
(R3 )
(R21

\~AS

SIB

(k4 )

,PRINT ALL flCTAL

0

, ERROR TABLE ITEM FOR ERPOR MESSAGE 3
00 I J 30
001332
00133 4
001336

015456
015506
015604
000000

001340
001342
001344
~01J46

015626
015700
015736
000000

(10' 350
00lJ52
001354
001356

015750
016025
016114
000000

001360
001362
001]64

015146
UI6134
016174

,,"..

DLII DATA CO~Pl\RE ERI-IOR "
(SO)
'T'£ST
',..ASADF
(PC)
( PS)
( PSW)
(PO)
(R7l
(P6)
(P \l
,PRINT ALL OCTAL

E"3
DH3
OT3
0

.

SJ-{HADR

(R2)

'l/A~

SIB

(R4)

(R3 )

, ERROR TABLE ITEM FOR ERROR MESSAGE 4

,

EI"4
OH4
DT4
0

UNEXPECTED rRAP TO VECTO~ At j,nCATION XXX
(PC)
(PS)
(SP)
TF:ST
(PO)

"

,"" (R7) (PS.) (P6)
,PRINT ALL OCTAL

,f-RROR TABLE ITEM FOR ERROR MESSAG!

,,"'
,"

EM5
OR5
OT5
0

5

DLII SOFT "-HROP (PlIl-l ITY, fR.t MU:G, OR I1VEJ.<"PUrJ)
(SP)
(PC)
(PS)
n~vADH
PEGADR (ReG)
TEST
(R6)
(RO)
( PSW)
(P3 )
(R7l
(PI)
("2 )

,ERROR TABLE ITEM FOR ERROR MESSAGE 6

349
350
351
352

ERROR POINTER TABLE

,>THIS TABLE CONTAINS THE INFO.~'ATrON FOR EACH ERPO" THAT CAN DCCUI<,
"THE INFORMATION IS OBTAINED By USING THE INDEX 'U.B~A FOUND IN
,"LOCATION UTEMB, THIS NUMBER INDICATES WHICH ITEM IN THE TABLE 15 HeRTlNE"T,
IF SITEMS IS 0 THE UNLY PERTINENT DATA IS (SERRPe),
,"NOTEI,
,ONOTE2,
EACH ITEM IN THE TABLE CO'TAI'S 4 POINTERS EXPj,AIN!.1l AS FOLf,OWS,

, 'OLII REGISTER REF.,;RE'CE CMJSED TIMI=,;OUT"
(SP)
(PC)
(PS)
REGADP"

EMI
OH6
OT6

,'

~$ERRPC,ST~PO,SREG6,SRg~2

MAINOEC-II-nZOLC-R
MACYII 30 (I 04.)
12-JUL-77
10.02
PAGE
06-MAY-77 10, 04
ERROR POINTER TABLE
DZOLCB ,PII
354
355
356
357
358
359
360
361
362
363
364
365
366
367
36B
369
370
311
372
313
314
375
376
371
378
379
380
381
382
383
384
385
386
387
388
389
)90
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409

DOl

~66

,PRINT A!,L OCTAL

OQOOOO

,ERROR TABLE ITEM FOR ERROR MESSAGE 7
001)70
001372
001374
001316

," DL11 SOFT f.RPOr:: (PARITY,F'RAMlNG,
," (PC)
DEVADR
Re;GADP
(I-If,Gl"
, $EFlRPC, S REGl , $ RE:G2, $ REG3
,PRINT AIIL OCTA!,

EMS
OH7
OT7

015750
016206
016246
000000

o

OR

OVE~Pll,~)

,ERROR TABLE ITEM FOR ERROR MESSAGE 10
001400
001402
001404
001406

, II
OLll DA.TA COMPAFE ERkOR II
"
(PC)
OEVAOR
R£GAOP
(RfG)
SIH'
I SEP~PC, SFl:E.Gl, SREG2, $PE.G3, $ ~f:G4
,PRINT ALL OCTAL

EM3
OHIO
OTIO

015456
016260
016326
000000

o

"*************************************************~** ***********

,DLII DEFINITIONS

''**************************************************** ***********
OLRCSR, 175610
OLROSR. 175612
OLXCSR. 115614
DLXDBRI 175616
DLVECT, 300
XFLGO I
o
RFLGO,
o
o
RFLGI,
o
RTRY'
OPTR,
o
o
IPTRI
o
LOOUT.
o
TIMRI.
o
T1MR2.
INTFLG, o

001410
001412
001414
001416
001420
001422
001424
001426
001430
001432
001434
001436
001440
001442
001444

175610
175612
175614
175616
000300
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

001446

000240

001450
001454
001456
001462
001464

012706
005026
022706
001374
012106

001140

001470
001476
001504
001512
001520
001526
001534
001542

012137
012731
012131
012737
012737
012737
012737
012737

010416
000340
010746
000340
013066
000340
013146
000340

,CO~TAINS ADDRESS Of RCVR CSR
:CONTA.l~S ADDRESS uF RCVFI: DPR
,CONTAINS ADDRESS Of XMIT CSR
,CONHINS ADDRESS OF XMIT DAR
,COt"TAI"S VECTOR AOORESS OF CURReNT Dj,11
,FLAG FOR HARD XMIT ERRORI
,FLAG FOR HARD RCVR ERRORS
,FLAG FOR SOFT RC VR ERRORS
,COUNTS NO, Of RE,TRIES ON SOfT ERRORS
;COJl'TAINS PO!r.JTER TO OUTPlJT BUf'ji'ER
,CONTAINS POINTER TO INPUT BUfFER
,CO~TAINS POINTER TO LOAD BUfFER RUUllNo
:TIMERS fOR 256. ByTE BLOCK TRANSfERS

, SOFTWARE INTP. FLAG

,PROGRAM WIT,L START "!;RE
BEGIN .. NOP
INITIALIZ~ THE COMMON TAGS
,SBTTL
"CLEAR THE COMMON TAGS ($CMTAG) AREA
MOV
!SCMTAG,R6
"FIRST LOCATION TO BE CLEARED
CLR
(R6)+
"CLEAR MEMORY LOCATIO.
CMP
'SWR,R6 "DONE?

001100

eN!:
001100
000020
000022
000030
000032
000034
000036
000024
000026

,-6

;JLOOP BACK If NO

"SEI'UP THE STACK POINTER
MOV
'STACK,SP
"INITIALIZE A FEW VECTORS
MOV
'SSCOPE'~'IOTVEC "lOT VECTOR FOR SCOPE ROUTINE
MOV
'340,i'IOTVEC+2 "LEVEL 7
MOV
I$ERROR,UEMTVEC IJEMT VECTOR FOR ERROR ROUTINI:;
MOV
.340,i.EMTVEC+2 "LEVEL 1
HOV
'8TRAP,i,TRAPVEC "TRAP VECTOR FOR TRAP CALLS
MOV
'340,i,TRAPVEC+2,LEVEL 1
MOV
UPWRDN,UPWRVEC, ,PO.ER FAILUR'- VECTOR
MOV
.340,i.PWRVEC+2 "LEVEL 7

"

MAINDIC-II-aZDLe-s
MACYlI 30(1046)
06-MAY-77 10104
DZDLca,Pl1
410
411
412
413
414
415
416
417
418
419
420
421
422

423
424
425
426
427
429
429
4]0
431
432
433
4H
4]5
436
437
HB
4H
440
441
442
443
444
445

005067
005067
112767
012767
012767

177466
177464
000001
001566
001574

177 32V
17731 ?
177 306

001602
001606
001614
001622
001630
001636

013746
012737
012767
012767
022777
001012

000004
001642
177570
177570
177777

000004
177316
177312
177302

oot fl40
001642
001646
001650
001656
001664

000403
012716
000002
012767
012767
012637

001670

005067

177 376

CLR

MULTD

001674
001700

005067
012767

177 356
000010

CI,R
MOV

TABFLG

"-1",

001650
000176
000174
000004

177262
177256

177 326

.e.,$TMP1~

:L~~GTH

ASSUMED 8Y tHE PROGRAM

;THE QUESTION AND At-.SwER CYCLE

:tNITIATED BY
001706

012767

000200

MOV

177 360

nOO,DLPRI

SETTI~G

sw TO A

,SET STANDARD PRIORITY LEVEL

;FOR I'}EVICE
001714
001722

032777
001411

000400

177216

,

BIT
BEQ

ISWB,~SWR

:15 THE 'LOOP o~ TEST" SWITCH SET?
: BRAIJCH If NOT

1$

,I F THE 'Loap ON TEST" SWITCH WAS SET WE wILL TAKE TH NEXT BRANCH
,INSTRUCTION THUS BYPASSING TA8LE CREATION

,

,IF THE US1':R DESIRED TO LOOP ON A TEST OF OTHE~ THA~' THE DEFAULT DEVICE
I THEN HE SHOULD HAVE PREVIOUSLY FIoLED THE fOLLOwING PROGRAM LOCATIONS
,wITH THE DESIRED DEVICE REGISTER VALUES,

,
,,

UNDER

******************************
,DLII DEfINITIONS

ABOVE

******************************
DLRCSR,
DLRD8R'
DLXCSRI
DLXOBRI
DLVECT,
001724
001730
001734
001736

104401
10440 I
104000
104 4 01

u21251

0111742
001,44
001746

TYPE,

STMES
FAILSA
+~

TYllE.,

PC.SG

THE ADDRESS OF THE
T~E ADDRESS OF THE
THE ADDRESS OF THE
THE ADDRESS OF THE
THE VECTOR ADDRESS

HCV R CSR

RCVR DBR

XMI'I CSR
Xf"'I'f OBFi
OF THIS OLII

: P}oI:lr.'l' OUT "r.1Al~DEC" NA~E
;Tl"PE FA.ILSA.FE ~IESSAGE
; TYPE OUT "Ht: PC VAl.UE
,FOLLOWED fly =PC

12·JUL·77
10'02 PAGE 10
INITIALIZE THE COMMON TAGS
HALT
BR

000000
00044]

ONCE

,WAIT FOR USER TO RESPUND
,GO TO TEST O~VICE pnCHED IN BY USER

IS,

473

474
475
476

477
012767
004767

175610
006110

177304

001754
001760
001766

012767
005067

000300
177264

177432

00 I, 7 2
001776
002004
002012
002020

012706
012737
n 12737
0\2737
012737

00 II 00
0150]4
000340
015060
000340

00174~

PATCH
PATCH
PATCH
PATCH
PATCH

ERROR

TYPE,

016651
020673

472

478
479
480
48 I
492
493

,CLEAR MULTIPLE DEVICE
,TES'flNG FLAG
,CLEAR TABLE CREATION HAG
,SET CHARACTER LENGTH DESIGNATOR
;F'OIJ 9 BITS --- THIS IS THE DEFAULT
,UNLESS THE USER CHANGES IT THRU

MAINOIC-II-0ZDLc.a
MAcr11 30(1046)
DZDLca,Pl1
06- MAY.77 10,04
466
467
46B
469
470
471

;,INITIALIZE NUMBER OF ITERATIONS
CLR
$TIMES
CLR
,ESCAPE
"CLEAR THE ESCAPE ON ERROR ADDRESS
MOVB
# I, aERMAX
"ALLOw ONE ERROR PER TEST
MOV
/II., SLPADR
"INITIALIZE THE LOOP ADDRESS FOR SCOPE
Mav
It., SLPERFI:
, ,SETUP THE ERROR LOOP ADDRESS
,.SIZE FOR A HARDWARE SWITCH REGISTER, IF NOT FOUND OR IT IS
SETUP FOR A SOFTwARE SwITCH REGISTER,
"EQUAL TD A
MOV
~'ERRVEC,-(SP)
I,SAVE ERROR VECTOR
MOV
'648, uERRVEC
"SET UP ERROR VECTOR
MOV
I,SETUP FOR A HARDWARE SWICH REGISTER
'DSWR,SWR
MOV
,DDlSP, DISPuAY
"AND A HARDWAR~ DISPLAY REGISTER
CMP
'-I,@SWR
I,TPI TO REFERENCE HARDWARE SWR
BNE
66$
I,BRA"CH IF NO TIMEOUT TRAP OCCURRED
THE HARDWARE SWP IS NOT = -I
" AND
, ,BHANCH IF 1110 TIM~;OUT
SR
65$
MOV
165S, (SP)
"SET UP FOR TRAP PErUPN
64$'
RT!
MOV
65$,
jl:SWFH:G.SwR
:, POINT TO SOFTWARE SWR
MOV
IDISPPEG, DlSPLA I
66$,
MaV
(SP1+,@tERRVEC
"RESTORE ERROR VECTOR

001550
001554
001560
001566
001574

446
447
448
H9
450
151
452
453
454
455
456
457
459
459
460
461
462
463
464
465

12-JUL-77
10,02
PAGE 9
INITIALIZE THE COMMON TAGS

,ENSURE THAT IF ~'ULTIPLE DEVICE TESTING wAS BEING DONE
,AND THE USER 'HALTED' THE PROGRAM BEFORE ALL DEVICES
,WERE COMPLETED AND WENT BACK TO 'LOAD ADDRESS 200'
,TO PESTART THE PROGRAM THAT AS A BARE MINIMU.
,HE CAN RUN THE DEFAULT DEVICE (151 RFCEIVER
,STATUS REGISTER ADDRES5 175610)
,NOTE,
IF THIS IS NOT SUITABLE THE USER wILl.
,
HAVE TO SET SWO=I (OR UP) I" ORDER TO
,
RECREATE THE TABLE HE DESTRO¥ED FROM
,
ABOVE
MOV
#175610,DI,BASE
,I ST POSSIRL! RECEIVER CSR
JSR
PC, DLADDR
,FORM OL >ODRESSES fOR
,1ST POSSI8LE DEVICE
MOV
1300,Ol.VECT
,1ST POSSI8LE INTERPUPT VECTOR
TABFLG
CLR
,CLEAR TABLE CREATION FLAG

484
495
486

487
499

489

000004
000006
000010
000012

490
491
492
493
002025
002032

105767
001010

171224

002034

104401

016651

002040

105167

177212

002044

032777

000001

002052
002054
002060
002064
0020 7 0
002074

001012
005077
005077
005777
005777
000167

177334
117324
177 322
177116
00.0670

497
499
499
500
501
502
503
504
505
506
501
509
509
510
511
512
513
514
515
516

MOV

1770b6

,

OO~

I 00

104401

017233

I STACK, SP
.BUSERR,@.ERRVEC
1340,@#ERRVFC+2
# RSVERR, U RESVEC
#340, URESVEC+2

,Sr.T UP STACK POINTER
,SET UP BlIS ERROR VECTOR
,SET UP RSVD INSTR, VECTOR

, THIS
NEXT SECTION WILL CHECK TO SEE IF MULTIPLE DEVICE TESTING
,WILL TAKE PLACE I,E,"
A)
HAS FREE RUNNING DEVIC~ TABLE ALREADY BE~N CREATED, A"D/OR
B)
IF IT HAS, DOES USER WISH TO CHANGE IT, OR 00 WE TEST DEFAULT DEVICE?
TsrB
TABrLG
,HAS TABLE CREATION BEEN PERFORMED?
BNE
ONCE
,BRANCH IF YES TO SKIP 'MAINDEC
,TITLE' MESSAGE
TYPE
,STMES
,OTHERWIse, PFINT OUT 'MAINCEC'
,NAME
COMB
,IF
TABLE CREATION HAS NOT BEEN
TABfLG
,PERFORMED, THEN SET FLAG, AND 00 SO
BIT
ISWO,@5WR
,THE PROGRAM HAS OBVIOUSLY BEEN
,RESTARTED· DOES USER WISH TO
IRESELECT VECTOR AND CONTROL REGISTER
,ADDRESSES I,E, - CREATE A NEW TABLE?
BNE
GO
,BRANCH IF YES
ONCEI
CLR
@DLXCSR
,CLEAR OUT BOTW C5R'S
CLR
tDLRCSR
@DLRDBR
TST
7FLUSH RCVR "DONEII BIT
@DLRDBR
TST
JMP
T5TI
,OTHERWISE, GO WITH EXISTING
,TABLE OR NOT USE ANY TABLE AT
,ALL WHICHEVER THE CASE MAY BE
,(DEFAULT CASE IS 1ST POSSIBLE
,DEVICE)
, IF WE COME THIS PATH THE USER HAS DECIDED I OF 2 ALTERNATIVES,
A)
TO RUN MULTIPLE DEVICES
5) TO CREATE A NEW TABLE TO RUN FROM, OR
Cl
TO CHANGE THE CHARACTER LENGTH
GO,
TYPE,
LENGTH
,ASK USER FOR THE CHARACTER LENGTH
,FOR WHICH HIS DEVICE IS SET

,,

517
518
519
520
521

MOV

,,

494
495
496

RESTRT, MOV
MOV
HOV

MAINDEC-Il-0ZDLC-B
"ACYlI 30(1046) 12-JUL-n 10102 PAGE II
DZDLca,Plt
06-MAi-77 10104
I'lITIALIZE THE COMMON TAGa
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
5SB
559
560
561
562
563
564
565
566
567
56B
569

002104

104411

002106
002110
002114
002116
002122
002124

012600
020027
101114
020027
103511
010067

002130

104401

002134
002136
002140
0021 42
002146
002152
002156
002162
002164
002166
002170
002172
002176

104410
005726
001002
000137
012700
012701
012702
010110
005011
060200
060201
022701
002771

002200

104401

002204

104410

~ ACCE-PT THE ANSWER TYPED Br USER
RDDEC
,CHECK TO SEE IF USER RESPONSi!: WAS WITHIN LIMITS
THE ANS_ER TIPED
,GET
(SP)+,RO
HOV
,IS THE NUMBER TOO HIGH?
eMP
RO,'8.
RETRY
,IF YES - GO TO RETRY SITUATION
aMI
,IS THE NUMBER TOO "OW?
CMP
RO,IS,
,IF tES - GO TO RETRY SITUATION
BLO
RETRY
,THE VALUE TYPED IS OK
MOV
RO, STMPI5
,STORE FOR FUTURE USE
~ASK USER IF H~ WISHES TO TEST OTH!R
TYPE,
DEFAULT
,THAN THE DEFAU"T DrVICE
,ACCEPT THE ANSOER TrPEO BY USER
RDOCT
,"OOK AT THE AN5WER
TST
(5P).
,BRANCH IF REPLY _AS YES
SNE
,OTHERWISE, SKIP REST OF INTERROGATION
J~P
@~FLUSH
,START RESTORATIOo OF TRAPCATCH!R
MOV
flOO,PO
,AREA FROM LOCATIONS 300 TO 77&
MOV
B02,Rl
MOV
,4,R2
: SO THAT HE CREATE THf: "U"TIP"E
MOV
RI,(RO)
~OEVICES TABLE wITH A CLEAN SLATE
281
CL"
(RI)
ADO
R2,RO
I
ADD
P2,RI
CMP
1l000,RI
BLT
28
"
,THE TRAPCATCHER VECTOR AREA FROM JOO - 776 SHOULU "OW ~E RESTORED,
IPROCEED TO FINO our THE \ST DEVICE RECEIVER CONTROL PFGISTER
,ADDRESS
~ASK USER FOR THE RfCEIVER CONTROL
, MFIRSTD
FlRSTD, TYPE
~REGISTER ~DDRE55 or HIS FIRST
,DEVICE
J ACCEPT THE ANS"iER rYPFO BY USER
RDOCT

002206
002210
002214
002216
002722
002224

012600
020027
101060
020027
103455
132700

,CHECK TO SEE IF USER RESPONSE
MOV
(SP)+,RO
CMP
RO,#176170
BHI
RETRYO
CMP
RO,H75&10
EtLO
RETRIO
BITB
IBITO,RO

002230

001052

0022 32

032700

000001

002236
002240

001047
010067

177014

57~

0022 44
002252

016767
004767

177010
005612

177010

002256
002264
002270

0167&7
104401
104410

177000
017510

177000

571
572
573
574

575
576
577

000010
000005
177104
017315

l'

002724
000300
000302
000004

,

001000

017422

:AND STORE ON TOP Oli ST.aCK

176170
175610
000001

w~s

"ITHIN LIMIT';

rGET THE AfJ5hER TYP~·O

IS THE NUMER TOO ~IGH?
~ H' YES-GO TO RETRY SITUATION
:IS THE ~UM8ER TOO LOW?
:Tf YES - GO TO HETP! SITUAtION
:NUMBER IS IN RANGl BUT IS IT
:ON AN EVEN 8{lU~OAHY?
,IF NO - GU TO PE-TRY SITUATION
BNE
RETPIO
,CHECK TO SEE IF USER RESPONSF. ~~5 TRULY A RCVR STA1US HEG15TEB
,WAS THE "EAST SIC;,:tflCANT DIGIT U!
BIT ."RO
~ llSER RESPONSE ~~UAl TO A ZERO?
:BRANCH IF' NOT
RETRYO
:TllE 1ST ADDRESS VAl·UE TYP~D 15 OK
RO,DLBAsE
;STI1RE FO~ FUTU~~ U~E
,NOW WE A.PE READY TO FINO OUT TH!; DEVICE INTERRUPT ~ECTOR
DLBASE,KEEPADD ~GET 1ST AUDPESS VALUE
MOV
PC,OLADOR
,GO FORM DL ADDREsS_S FOR
JSR
,1ST DEVICE SELECHeL'
KEEPADO,BASIADD ,RESTORE 1ST DEVICE. ADDRESS
MOV
,MVECT
,AS' USER fOR A VECWR 00DR[:s5
TYPE
VECT'
~ ACCEPt THE ANSWER TYPEn BY USER
RDOCT
;AND STORK O~ TOP OF ST~CK
,CHECK TO SEE IF USER RESPONSE WAS wITHIN LIMITS
~

THE.

MACYlI 30(1046) 12-JUL-77 10,02 PAGE 12
HAINDEC-I I.DZDLC·~
INITIALIZE THE COMMON TAGS
O&-MAY-77 10,04
DZDLCS.PII
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
6\7
618
619
620
621
622
623
624
625
626
627
628
629
630
631
6]2
633

MOV
CMP
8HI
CMP
SLO
SITS

(SPl+,RO
RO,I776
RETRI!
RO,ODO
RETRI!
.BITO, PO

002272
002274
002]00
002302
002306
002310

012600
020027
101032
020027
103427
132700

002314

001024

00231S

032700

002322
002324

00\021
010067

002]30
002336
002)44

0167&7
016767
0004\4

177064
177056

002)46

104401

001252

RETRII

002352
002356

000167
104401

177522
001252

JMP
RETRYO, TYPE

GO
,IQUES

002362
002366

000167
104401

177612
001252

JMP
RETRY II TYPE

FIRSTO
,SQUES

002372
002376

000167
10440 I

177666
017566

HOWMANIITYPE

000776
000300
000001

:GlT THE I\fIISI'IRR TYPlD

,IS THE NU~BER TUO HIGH?
;IF IEs - GO TU RETPY SITUATION
:IS tHE NUMREP Turl LOW?
;IF ):ES •

GO TO R£TI-IY SITUATION

;NUMBER IS IN RANGE BUT IS IT

';i~ ~~ :v~g ~~u:~~:;? SITUATION
SNE
RETRY!
,CHECK TO SEE IF THE USIR RESPONSE wAS TRULY A RCVR Vf;CTOP ADURi::SS
J (;n IN IS OK

1STORE FOR FUTURE

002656
002662
002666
002672
002676
002702

006367
006367
006367
006367
006367
016767

176420
176414
176410
176404
176400
176374

U~~

,THIS SECTION WILL CALCULATE THE PRIORITY LEVEL ~'DR THE
,PROCESSOR RASED ON THE USER RESPONSE fOR PRIORITY ',EVEL OF THE
, DEVICE
,FOR~ BITS <7-5> Of PSW
ASL
DLPSI
ASL
DLPRI
ASL
DLPRI
I
ASL
DLPRI
~SL
DLPRI
:
MOV
DLPRI,LES51
,STh?T TO FORM LEVEl, TO ALLOW

,

176174

.

;INTERRUPTS
002710

162767

000001

176366

SUB

." LESSI

002716

042767

000037

176J60

BIC

#37, LESSI

002724
002730
002734
002740
002744
002750

005077
1105077
005777
005777
000167
104401

176464
176454
176452
176446
000020
001252

CLR
CLR
TST
TST
JMP
RETRYl. TYPE

002754
002760

000167
104401

177466
001252

JMP
RETRY3. TYPE

002764

000167

177636

FLUSH.

722
JMP

@DLXCSR
@DLRCSR
@DLRDBR
@DLRDBR
TSTI
,SQUES

:DHOP DEVICE LEVEL PRIORITY
IB~ I LEVEL FOR PSW

:MAKE SURE THE T,N,Z,V , C
:8ITS FOR THE PROCESSOR ARE CLEAR
,CL"'AR OUT BOTH CSR'S

,FLUSH RCVR "DONE" BIT
: BEGIN TESTING

:TYPE '?' INDICATING USER TYPED
:SOMETHING WRONG FOR LAST ADDRESS
,GO BACK TO REISSUE QUESTIO"
:TYPE'?' INDICATING USER TYPED
:SOMETHING WRONG FOR PRIORITY
CONQUES
: GO BACK TO REISSUE QUESTION
LASTO
,SQUES

11**************************************************** ***********

726

,-TEST I

727
728
729

002770

730

002772

731
732
733
734
735
736
737
738
739
740
741
742
743
744

002776
003004
003010
003012
003014
003020
003026
003030
003032

745

CONTINIJ~

:AND STORE ON TOP OF STACK

691
692
683
6R4
695
6.6
687
6BR

723
724
725

:GO TO

)$.
, I f WE TAKE THIS PATH IT APPEARS THAT THEPE ARE flaT AT LEAST
,TWO DEVICES PRESENT - IN RESPONSf TO USER TYPING 'YES' TO MULTIPLE
,DEVICES QUESTION
MOV
KEEPADD,BASEADD :RESET 1ST DEVICE RECEIVER
:CONTROLLER REGISTER ADURESS
TYPE
,"RANGE
,INFORM USER TO CHECK AND RETYPE
:THE [.AST DeVICE RCSR ADDRESS
,~CCEP'f THE A"S"o" TYPED B~ USER
RDOCT

680

690
691
692
69 J
694
695
696
697
69B
699
700
701
}02
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
719
719
720
721

ADDRESS FOR

R~GIST£R

,LATER USE I ' END O' PASS ROUTI"'

672
675
676
677
678
679

FOR -ACTREG' FOR

'l,ROTADD
KEEPAD,BASEADD

~69

670
671

POIWT~R

MOV
HOV

003036
003040

000004
016746
012767
016702
005712
000407
004767
012767
104001
022626
012667

TSTI.
175006
003014
176400

011112
003030

175000

IS.
176216

174746

SCOPE
MOV
MOV
MOV
TST
BR
JSR
MOV
ERROR.I
CMP
MOV

ERRVEC,' (SP 1
HS,ERRVEC
OLRCSR,S2
CR2l

3S
PC,SUERTI
#28,SESCAPE
CSP)" (SPl.
(SP l+, ERRVEC

,SAVE THE TIMEOUT VECTOR
,GO TO 1$ IF TIMEOUT
,REGADR • RCSR AOR
.USE REGADR ON BUS
:,
:GO SET UP ERROR INFO
,RETURN TO 28 AFTER ERROR PRINT
:DL REFERENCE CAUSED BUS TIMEOUT
,CLEAN STACK FROM TIMEOUT
,RESTORE TIMEOUT VECTOR

JI**"***************************************.****.***************
,"TEST 2
TEST THAT R~FERENCE TO XCSR DOES NOT C~USE TIMEOUT
, , ** * ** ...... * ...... * .......... *' ** ... * * ... * *•• ** *** *.... * *... * ... *.* *** .. ** ... ** ... ********* ...

000004

016746

TEST THAT REFERENCE TO RCSR DOES NOT CAUSE TIMEOUT

,J ************ .. ******** .... ****************************************

TST2'
174740

SCOPE
MOV

ERPVEC,-CSPl

,SAVE THE TIMEOUT VECTOR

MAINDEC-II-DZDLC-S
MACYII 30(1046) 12-JUL-77 10102 PAGE 15
T2
TEST THAT REFERENCE TO xeBR DOES 'OT CAUSE TIMEOUT
DZDLCS,PII
06 •• AY-77 10104
746
747
74B
749
750
751

752
753
754
755
756
757
75B
759
760
761
762
763
764
765
766
767
76B
769
770
771
772
713
774
775
776
777
77B
779
7BO
781
7B2
7B3
7B4
785

003044
003052
003056
003060
003062
003066
003074
003076
003100

012767
016702
005712
000407
'004767
012167
104001
022626
012667

DOli 04
DOli 06

000004
016746
012767
016702
005712
000407
004767
012767
104001
022626
012667

003tl2
003120
001124
001126
DOli 30
001134
001142
003144
001146

003152
001154
003160
001166
001172
003174
DOlt 76
003202
001710
003212
003214

000004
016746
012767
016702
005712
000401
004767
012167
104001
022626
012667

00]062
176336

174732

011044
003076

176150

281
174700

381

174672
003130
176266

174664

010776
003144

176102

\$,

281
]SI

174632

MOV
MOV
MOV
TST
SR
JSR
MOV
ERROR+I
CMP
MOV

ERRVEC,-(SP)
'U,ERRVEC
OLROBR, R2
(R21
38
PC,SUEATI
nS,USCAPE
(SP)+, (SP)+
(SP)+,ERRVEC

,SAVE THE TIMEOUT VECTOR
,GO Tn IS If TIMEOUT
,REGADR _ RDSR ADP
IUS~ REGADR ON BUS
,,
,GO SET UP ERROR IH~'O
,RETURN TO 2$ AfTER ERROR PRINT
,OL R~FERENCE CAUSED ~US TI~EOUT
,CLEAN STACK FROM TIOI£OUT
,Rf'STORE TlI~EOUT VECTOR

rr········*·········_···_·····························***********
I*TEST 4
TEST THAT REFERENCE TO XDBR DOES NOT CAUSE TIMEOUT
'r················.······-·······················-··******.******
TST41
SCOPE
174624
003\ 76
176224

174616

0107]0
003212

176034

1$1

174564

MOV
MOV
MOV
TST
BR
JSP
MOV
ERROR+I
CMP
MOV

ERRVEC,-(SP)
tl8,EPRVEC
DLXOSR,P2
(R21
38
PC,SUERT!
128,SESCAPE

(SP'+,(SPl+
(SPI+,ERRVEC

,SAVE THE TIMEOUT VECTOR
,GO TO 1$ If TI"£OUT
,R~GADR
XOBR ADR
,USE REGAOR ON BUS
,,
,GO SET UP ERROR IOYO
,RETURN TO 2$ AFTER ERADR PRINT
,DL REFERE~CE CAUSEr, SUS TIMEOUT
,CLEAN STACK fROM Tl~~U'JT
,RESTORE TI"EOUT VECTOR

=

······-·_················*····**********.*

78B
7B9

003220

7-90

003222

791

003224
003230
003232
001734

Jr·*.· •••••
••••••••••
__
,"TEST
5
TtST THAT
RCSR IS ALI. ZEROES ON ENTRY
r,********************·*·*·*********···************·** ••• ***.****
TST51
SCOPE
,R~SULT IN PCSR SIS
0
CLR
R4
,REGAOR = RCSR ADR
MOV
DLRCSR,R2
,[RCSRI_ooooar, 11
R4,(R2)
C~P
BF-Q
,,
TST6
,GO SET UP ERROR IN~O
PC,SUER2
J5R
,RCSR NOT CLEAR O. START UP
ERRnR+2

001740

000004
005004
016702
020412
00140]
004767
104002

=

176160
010612

Jr····················································******
.....
TEST THAT "READY" BIT IS ONLY BIT
I" XCSR
•.
=

I"TEST 6

797

79B
799
BOO
BOI

(SP)., (SP).
(SP)+,ERRVEC

IGO TO II If TIMEOUT
,REGADR • XCSR ADR
,USE REGlDR O~ BUS
,,
,GO SET UP ERROR INfO
,RETURN TO 21 AfTER ERROR PRINT
,DL REFERENCE CAUSEU SUS TIMEOUT
,CLEAN STACK FROM TIMEOUT
,RESTORE TI_EOUT VECTOR

,r········_····*··.·······_·*······················-··***********
,.TEST 3
TEST THAT REfERENCE TO RDBR DOES NOT CAUSE TIMEOUT
,r·······*·····_·····················*·············
__ ·***********
SCOPE

786

793
794
795
796

.II,ERRVEC
DLXCSR,R2
(R21
38
PC,SUERTI
nl,$ESCAPE

TSTlI

787

792

1$1

MOV
"OV
TST
SR
JSR
HOV
ERROR. I
CMP
HOV

00]242
00]244

000004
012704

003250

01670'

S~T

r,······_········-·-··············_········-··········
.~ * •• *.*.
TST61
SCOPE
MOV
non,R4
,RESULT IN XCSR SIB = 000200
MOV
DLXCSR,R2
'R~GADR
XCSR Aon

000200
176140

MACH I ]0(1046) 12-JUL-77 10102 PAGE 16
MAINDEC-II-DZOLC-S
T6
TEST THAT "READY. BIT IS ONJ.Y aIT SET IN XCSR
DZOLca,l'1I
06-MU-77 10104
B02
80]

804
B05
B06
B07
BOB
B09
810
BII
8\2
Btl
BU
815
BI6
817
BIB
819
B20
821
822
B21
824
825
826
827
828
829
830
831
832
833
B34

003254
00)256
003260
003264

020412
001403
004767
104002

,(XCSRI=000200 11
n<8~ IF YES>
,GU SFTUP ERROR INfU
,tXCSRJ INCORRECT G' START liP

".**
••*•••••••••••
_*_ ...... _.. _.... _.. * ___ •• * •••• _••• *_.*.* •••
TEST THAT
BIT CAN
SET AND CLF-ARED
I*TEST 7

ff

,,*_.* •••• ,_._-•• *••••••• _._._ ••• _-, •••••••BE-•••••• _** •••• *_._***"~AINT"

003266
00)270
001274

003]00
003]04
003]06
003310
003]14

003]16
003322
003]26
003]30
003]32
00])]6

000004
012704
016102
052712
020412
001403
004767
104002
012704
042712
020412
001403
004767
104002

TST71
000204
176114
000004

SCOPE
MOV

U04,R4
IR~SULT IN XCSR SIS = 0(10204
,REGAOR • XCS~ ~Ok
DLXCSR, R2
.BIT2, (R2)
:SET TH~ "MAINT" BIT
C~P
R4, (R2) ,RESULT IN XC SA OK 11
BEQ
n 

11
,GO SET UP F.RROR INfO
PC,SUER2
JSR
,MAINT, BIT 'AILED ro SET PROPE"LY
ERROR.2
~OV
noo,R4
,RESULT IN XCSR SIB = 000200
:NOW CLEAR THE UMAINT" BIT
UIT2, (R21
SIC
R4, (R2)
,RESULT IN XCSR OK ?1
CMP
SEQ
TSTIO
::<8R l' rES>
,GO SET UP ERROR INfO
PC,SUER2
JSR
,MAINT BIT FAILED TO CLEAR PROPERLY
ERROR+2
~OV

BIS

010536
000200
000004

lSI

010514

".•_•••••.. __ •• _•.•___._•. _..•.....•. _. ___•__._.*.*.._* __
,*TEST 10

003]40
00]342
003]46
003]52
003]60
003]66

003]70
003374
003400
835 003404
836 003410
837 003412
83B 00]414
839 003416
840. 003422
BU 003426
842 003434
B43 0034]6
B44 00)436
645 003440
846 00)444
847 00]450
UB 003452
849 003454
850 003456
851 003462

000004
005067
016705
012765
016765
005005
0\2704
016102
052712
005761
001020
005305
001373
0\2104
004167

012761
104002
000412
005161
042712
000002
020412
001403
004761
104002

TEST THAT XMIT I,E, CAN CAUSE AN

f •• lf ••

I~TP

,J*.* •• _.-.-•••• -._._-_ •••••••••• _.-.-*_.---.---... -.. f_.*I •• f f • •

TSTIOI
116076
116046
003440
1151\6

000004
000006

000200
1160\4
000100
176034

1$1

SCOPE
CLR
HOV
MOV
MOV
CLR
MOV
MOV
SIS
TST
BNE

000300
010424
003436

DEC
SNE
HOV
JSR
MOV
ERROR+2

175610
411

176000
000100

281
]

010370

852
85]

854
855
856
857

R4, (R21
C"P
BEQ
TST7
PC, SUER2
JSR
ERROR+2

010566

..

SR
COM
SIC
RTI
CMP
BEQ
JSR
ERROR+2

INTfLG
DLVECT,RS
nS,4(R5)
DLPRI,6(R5)
R5
1200, R4
DLXCSR, R2
UOO'(R2)
INTFLG
18
R5
It

noo,R4
PC,SUEU
148, $ESCAPE
I

!STII
INTFLG
UOO, (R2)
R4,(R2)
TSTII

IINIT SOfTWARE INTR FLAG
,GET VECTOR ADDRESS
IGO TO 48 ON INTR
,PRIORITY LEVEL 4
,INIT INTR, TIMER
,RESULT IN XCSR SIB = 000200
IREGAOR
XCSR ADR
ISET I~TR, ENABLE BIT 06
,DID INTR OCCUR YET 17
,8R If IT DID
ICOUNT THE TIMER
18R IF NO TIM~OUT
I RESULT IN XCSR S/~ = 000300
,GO SETUP ERROR INfO
I RETURN TO 4S AfTER ERROR PRINT
,INTR, FAILED

=

,,
,SET THE SOFTWARE fLAG
,TURN OFF I,E, BIT
,RETURN CONTROL TO INTR, ROUTINE
,RESULT IN XCBR OK 77
,,

,GO SET UP ERROR INfO,
,X_IT INTR, NOT SERVICED PROPERLY

.,I.TEST
................................................ _..._._ ..._....
TEST THAT RCVR I,E, BIT CAN BE SET AND CLEARED
11
PC,SUER2

., •••••••••••••••••••••••••••••••••• *••••••••••••••••••••• _••••••

003464
003466
00341'2

000004
012704
016702

1'STI1I
000100
115112

SCOPE
MOV
~DV

tlOO,Rt
DLRCSR,R2

,RESULT IN ReaR S/~
,REGADR • RCSR AOR

= 000100

M~INDgC·I1·DZDLC.8

DZDLCB,PII
AS8
859
860
861
862
B63
864
865
866
867
86B
869
B70
B71
B72
873

974
8n
876
B77
B7B
879
B80
BBI
BB2
BB3

BB4
Bij5
B86
B87
888
889
890
891
892
891
894
895
A96
897
89B
899
900
901
002

003476
noH02
003504
003506
003512
003514
003516
003522
003524
003526
003532

HACYlI 30(1046)
12-JUL-77 10.01 PAGE 17
06·MAY-77 10.04
TIL
frST THAT PCVR I.E. BIT
052712
020412
001403
004767

000100

BIS
CMP
8EQ
JSR
ERROR+2
CLR
elC
CMP
BEQ
JSR
ERROR+2

010340

104002

005004
042712
02041 2
001403
004767
104002

000100
010320

IRIT6,(R2)
R4. (R2)
\$

PC,SUER2
R4
IBIT6'(R2)
R4,(82)
TSTI2
PC.SUER2

904
905

907
90B
909
910
911
912
913

BE SIT IND CLEARED

ISET I,E 1 BIT
,DID IT SET PROPERLY 11
,,
,GU SET UP ERPOP INFO,
,ReVR I.E. BIT FAILED Tn SET PROPERLY
,RESULT IN RCSR SIB
000000

=

;CLEAR THE I,E. BIT
,DID IT CI,EAR PROPEBLY 11
: J 


:GO SET UP ERROR INFO

,RCVR I.E. BIT FAILED TO CLEAR PROPERLY
, J * **** *** ************.** ********.** *****'" ************~**********

TEST THAT RCVR "DONE" CAN GENERATE AN INTR,
,J***************************************************************
,*TEST 12

003534
003536
')03542
')03546
003552
00);56
003560
1)03564

003570
003572
003'576
Ill)3604

003612
003616

000004
016705
012725
016715
005067
005005
105067
QI6702
0()5012
052112
052762
112767
004767

T5T12.
175656
003720
175530
175666

000004
175372

175410
175404
175610

onooi.lo

003712

005762

000002

00J716
003720
003726
0017 34
003740

000437
042762
116267
042712
005167

000004
000002
000100
175500

(J03744

000002

003746
n03750
003752

005004
005712

on31;42

003650
003656
003662
003666
003670
Il03612

003676

'~OV

000100
000004
000252
011126

003702
003710

003630
003634
003636
003640

"'10 V

MOV
CLR
CLR
CLRS

175420
175620

116700
116762
005767
001044
005305
001373
013767
042762
042712
010667
010201
011203
012704
004767
012767
104002

003622

177776
0000,04

CL"
SIS
SIS
MOVS
J5R
MOVS

Move

IS,

175332
000004

000100
175310
000200
010176
003712

SCOPE
MOV

175334

TST
BNE
DEC
BNE
MOV
alC
BIC
MOV
MOV
MOV
MOV
JSR
MOV

DLVECT.R5
nSdR5)+
DLPRl, (R5)
INTFLG
R5
STMPI
DLBCSR,R2
(82)
.BIT6. (82)
#8IT2.4(82)
#252,STMPI
PC. UPMASK
SH1P14.RO
6TM814.6(82)
INTfLG
4S

R5
IS
~'PSW, $TMPO
#8IT204(R2)
#100, (R2)

SP, SREG6

R2,Fl1
(R2), R3
#200,R4
PC, SUERRI
1f2S,SESCAPE

26.

ERROR+2
TST
2(R2)

3S I

SP
BIC

qd3

90&

CI~

000004
175250

MOV~

4S.

00141)]

BIC
COM
BTl
CLR
TST
8Ea

TSTI3
#8IT2,4(R2)
2(R2),$TMPI
#BIT6,(R2)
INTnG

,GET THE V!:CTOR ADDRESS
:GO TO 3$ ON RCVR INTR,

,AT LEVEL 4
,INIT THE SOfTOIRE r~AG
,INIT INTR. TIMER
: INIT WHEHF, DATA WILL BE STORED
,REGADR • RCSR AUR
~INIT

tHE RCSR TO 000000

:E.AbLE RCVR INTERRUPTS
:NDW TURN ON ~AINT ~:ODE
,GET DATA PATTERN A~O
,GO MASK OFf BITS AS A FUNCTION OF
:ChA~ACTER 1,ENGTH ( 5, 6, 7, OR 8 BITS)
;5AVE DATA PA.TT!l:;RN fOR FURfHER USE
:LnAD IM1T BUFFER REG~
:D10 RCVR rNT~. Y~T 11
:BH IF IT DID
;COUlVT ThE Tl~ER
:BR IF NO TIMEOUT
;SAVI::: ERROR PSw
:OlSABLE ~AINT MODE
,DISABLE RCVR IN'R,
,SAVE THE EOROR SP
:DEVADR = RCSR ADR
;GE'f THE WAS DATA
: (HCSRl 5/& = 000200
;GO SET UP ERROR INfO.
: RETUR" TO 2$ AFTER ';RROR ALWHS
,RCVR INTERPUPT ~'AILEO
,REFERENC'; RCVR DATA RUFFER
;TU CLEAR RCSR IN CAS~ RCVR
,INTERRUPTS CnU[,D ~OT BE ENABLED
:,

;DlSA8LE THE

~AI~T

MOUE

,GET THE RECEIVW DATA
;TURN OFr RCVR INTR. ENA6
,SET THE SOFTWAPE FLAG
: RETURN TO MA INLINf

,(RCSA) S/B=O
,IS IT ALL ZEROES ?1

R4
(82)
5$

: r 

MAINDEC-ll-0Z0LC·S
"ACYlI 30(104&)
12-JUL-77 10.02 PAGE 18
DZDLC8,Pl1
06.MAY-77 10104
T12
TEST THAT RCVP "DDNr" CAN GENERATE AN INTR.
914
915
916
917
918
919

003754
003760
003762
003766
003772

004767
104002
016701
016702
0047&7

010072

003776
004002
004004
004006
004010
1'04014

116703
110004
02040]
001403
004767
104003

1752)0

004016
004020
004026
004030
004034
004040
004042
004046
()04054
004056
004062

000004
032777
001047
012704
016702
005012
052712
032777
001003
004767
104002

004064
004070
004072
004074
004100
004102
004104
004110
004116
004120
004124
004126
004130
004132
004136
004144

012704
020412
001403
004767
104002
005004
042712
032777
001403
004767
104002
020412
001406
004767
016767
104002

175424
175424
010746

5$ I

JSR
ERkOR+2
MOV
MOV
JSR

PC, SUER2
DLROBR.RI
DLXDBR,R2
PC, UPMASK

920
921
922
923
924
925
926
927
928
929
930
931
932
933
9)4
935
936
937
938
939
940
941
942
943
944
945
946
947
94B
949
950
951
952
953
954
955
956
957
958
959
960
961
962
96]
964
965
966
967
96B
969

"OVB
MOVB
CMP
BEQ
JSR
ERROR+3

010004

STMP14,R3

RO,R4
11.4, ~3
TSTI3
PC,SUEPRl

;GO S~T UP ERROR IN~O
,RCVR INT8 NOT SERVICED PROPERLY
,SAVE WAS ADDRESS
iSAVE THE S/8 ADDRESS
,GET THE WAS DATA AND
,GO MASK OFF BITS AS A FUNCTION OF
,CHARACTER LENGTH ( 5, 6. 7, OR 8 BITS)
,SET UP FOR ERROR CHECKING
:GET THE SIR DATA
;WAS ::: SIB 11

,,
:GO SEI UP THE ERROR INFO

; DATA CO,.lPARE ERROR
, 1** ** .... ************************* ***********************"'********
,*TEST 13

TEST THAT "REO

TO SEND" ASSERTS IIRING"

,,***************************************************************

TSTI3.
010000

175112

140004
175350
000004
100000

1,'75334

007770
1$,

040004
007752

261
000004
100000

175272

007726
36.
007714
000002

175034

SCOPE
BIT
8NE
MOV
MOV
CLR
BIS
BIT
BNE
JSR
EOROR+2

I'OV
CMP
BEQ
JBR
ERROR+2
CLR
BIC

#SWI2,~SWR

TSTl4
1140004,R4
DLRCSR,R2
(R2)
.8IT2, (R2)

,ARE WE TESTlttG IC OR 10 MODEL?
,,
,RESULT IN RCSR SIB = 140004
,REGADR
RCSR ADR
,INIT THE RCSR TO 000000
JSET "REQ '1'0 SEND"

=

.BIT15,@DL~CSR

,DIO "RING" SET "DATA SET INT"

1$

, ,

,GO SET UP ERROR INfO,

PC,SUER2

,"RING"

T~ANSITION

FAILED TO SET "DATA SET INT"

,NOTEl "BIT #BITlSdR2l" RESETS BITl5
#40004,R4
,RESULT IN RCSR SIB. 40004
R4,(R2)
~BOTH "RING" AND "REQ TO SEND" ASSERTED
2$
,,
PC,SUER2
,GO SET UP ERROR IN~'O.
R4
#BI12. (R2)

BIT

IBrTI5,~DLRCSR

BEQ
JSR
ERROR+2
CMP
BEQ
JSR
MOV
ERROR+2

38
PC, BUER2

;"RING" OR "REQ TO SEND" rAILED TO SET
,RESULT IN RCBR SIB = 000000
1CLEAR "REQ TO SEND"
,oro "DATA SET INT" GET SET ?1
,,

,GO SET UP ERROR INFO

:CLEARING "RING" SET "DATA SET INT"
R4, (R2)
T5TI4
PC, SUER2

1I+6,GREG7

,RCSR CONTAIN ALL ZEROES 11
,,

:GO SET UP ERROR INFO.
,SAVE THE ERROR PC
,CLEARING "REQ TO SEND" FAILED TO CLEAR "RING"

,,***************************************************************

,oTEST 14
004146
004150
004156
OOU60
004164
004166
004172
004176
004204

000004
032777
001046
016702
005012
012704
052712
032777
00100]

TEST THAT "SEC XMIT" ASSERTS "SEC REe" AND "DATA SET INT"

,,***************************************************************

TSTI41
010000

174762

SCOPE
BrT

BN!
MOV
CLR
MOV

175224
102010
000010
100000

aiS
175204

BIT
B~E

ISWI2,@SWR
T8I15
DLRCSR,R2
(R2)
U02010,~4

,BIT3, (R2)
,8ITI5.@DLRCSR
18

,ARE WE TESTING IC OR 10 MODEL?
,,
,REGADR z RCSR ADR
,INIT RCSR TO 000000
,CONTENTS OF RCSR SIB. 102010
,SET "SEC XMIT' BIT
,DID "DATA SET INT" SET 1?
" 


PAGE 19
M~CYI I 30 (I 046)
12-JUL-77
10102
MAINDEC-I 1 -oZDLC-B
T25T THAT "SEC XMIT"
TI4
DZDLeB,Pl1
Ob-MAY-77 10.04
970
971
972
973
974
975
976
977
978
979
980
9BI
982
983
984
985
986
987
98B
989
990
991
992
993
994
995
996
997
99~

999
1000
1001
1002
1003
1004
1005
1006
1007
100B
1009
1010
lOll
1012
1013
101 ~
lOIS
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025

004206
004212

004767
104002

007640

004214
004220
004222
004224
004230

012704
020412
001403
004767
104002

002010

004232
004236
004142
004250
004252
004256

012704
042712
032777
001003
004767
104002

004260
004262
004264
004266
004272

005004
020412
001403
004767
104002

I$I

MOV
CMP
SEQ

JSR
ERROR<2

007622

26.

IOOOO~

000010
100000

175140

007574

lS.
007560

Mav
8IC
BI T
BNE
JSR
ERROR<2
CLl<
CMP
BEa
JSR
ERROR.2

" SEC REC" ANO "DATA

AS5E~TS

PC. SUER2

ERROR<2

W2010,R4
R4, (R2)
2.
PC,SUER2

_BITI5,R4
_BITl,(R2)
_BITI5,~DLRCSR

3S
PC,SUER2

,

R4
R4,(R2)
TSTI5
PC, SUER2

sn

INT"

,Gli SET UP ERROR INfO
, "DATA SET INT" fAILED TO SET-NOTE 'fHAT
,n~IT
'BITl5'(?2)" RESBTS BITI5
,RESULT IN ResR 5/8 = 2010
~AR~ "SEC XMIT" AND "SEC 'REC" BOTH SE r
II

,GO SET UP ERROR INFO
J "SEC XMI T" OR uSEC REC" fAILED TO SET
,OR "DATA SET INTI! "AILED TO BE CLEAhcD
~WHEN REFERENCING RCSR
,RESULT IN RCSR SIS = 100000
,CLEAR "SEC X~IT" BIT
,DID CLEARING IT SET "DATA SET INTI! 71
; r<8R IF YES>
,GO SET UP ERROR INrO.
,CLEAPING "SEC XMIT" VAILFD TO SET "[)ATA
,SET I"'T. (NOTE THAT REFERENCING RCSR
CI.HRS "DATA SET I NT"
: Rt:SULT IN RCSR Sib
000000
: "SEC XMl Til A.D "SEC REel' CLEAR
; ,

,GO

=

S~TUP

: "SE.C

iOR

ERROR

XMITIt OR

I~FO
II

REFERENCI~G

SF.;C

Rge" FAILED TO

CLt;A~

FAILED TO Cll£A.Fi ItllATA SET 1 ~JT"

RCSR

'J*****************************4*****************~*~*************
TEST THAT "DTR" C~N ASSEPT "eLF< TO SI!:HD" ANO "CAR lJE'f"

r*TEST 15

004274
004276
004304
004306
004312
004314
004320
004324
004332
004334
004340

000004
032777
001046
016702
005012
012704
052712
032777
001003
004767
104002

004342
004346
004350
004352
004356

012704
020412
001403
004767
104002

C04360
004364
004370
004376
004400
004404

012704
u42712
032777
001003
004767
104002

00440.
004410
004412

005004
020412
001403

11***************************************************************

TSTI5.
010000

004414
004420

004767
104002

174634

SCOPE
8IT
ANE
(~ov

175076

CLR
130002
000002
100000

Mey

I SI

030002
007474

loonoo
000002
100000

2S'

MOY
CMP
BBQ
JSR
ERROR<2
!~['JV

H.

PC,5UEF2

,Bll'15,F!4
#BITI ,(R2)
#8ITt5,ri'lOLRCSFI
3S
PC, SUER2

CLk
CMP
8EQ

R4
R4,IR2)
T5TI6

BNE
JSR
EPROR<2

007446

330002,P4
R4,(R2)
2.

"IT

BIC
17~012

30(1046)

.SW12,11l5WR
TSTI6
OLRCSR, R2
(R2)
U 30002, R4
_SITI,(R2)
'BIT15,raOLRCSF<

BIS
BIT
AHE
1$
JSR
PC,SUER2
ERROR<2

175056

007512

M~CYII
MAINOEC-II-oZOLC-B
DZDLC~,PII
06-MAY-" 10104

1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
105B
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1090
10el

JSR

~ API!, 'I..JE: T8ST!:"G IC OR ITl MLlDEL?
J ,

:P.EGADR :: kCSR AOR
1INIT RCSR Tn OOQOOO
; R£SULT IN RCSR SIB
130002
;SET "DTR" BIT
,DID "DATA SET INT" gEl 11
1 J
; GLl S·ET UP ERHOFI INFO.
i "DATA SET It-IT" FAILE;O TO SET AHOVE wILL
J NOTE I I H~: REfERE"Cf TO RCSB

; o'/ILL UfoiCONIHTI"NALLY CIJEAP FlC5F! "IT 15.
, RESULT I" RCSR SIB
30002
r"DTP","CLR TO SEND", AND "CA.R DETII AUSET
~ f (BF If nL SET>
,GU SET UP ERJ:l.O~ INIl'O
: "orR", "CLF: Tn SEND" O~ "CAR DET" I'A1L!::w
,TO SET UR "DI\TA Su INTI! fAiLED TO CLt:M~
100(lOll
, RESULT IN RC5k 5/B
: NO\oJ CLEAR "[lTFI"
; 010 "DATA S.T IJ~T" 5ET 1?
;, 
: GO SF:TUP .RRO. 1 ~ F'~)
: "DATA SET I NT" fA 1 LEO TO SET ~HEtJ "OTR"
; ~E~T TO A ZERD.
;RESULT IN PCSP SIB
000000
:D1D ALL BITS CLEAF??
; f

=

=

=

12-JUL-77
PAGE 20
10,02
TIS
TEST THAT "DTR" CAN ASSERT "eLR 10 5ENU" '00 "CAR DE!"
PC, SUER2
JSP
ERROR<2

007432

1 GU SET UP FFROR 1 'IrQ

;"PTR","CLR TO SEloJD" OR "CA'R DET" rAlt..EO
;TO CLEA.R PJ:lOPERLY

*****************
***********,.. **********-* ****** ****** **** *'* **
TEST THAT "OATA SET INT ENA~" CAN SfT ANC CLEAR
, J ****************************** *******************.iI iI-**.:d ********
TS1161
SCOPE
J , ..
I"TEST 16

004422
004424
004432
004434
004440
004444
004450
004452
004454
004460
004462
004464
004470
004472
004474
004500

000004
032777
001023
016702
012704
052712
020412
001403
004767
104002
005004
042712
020412
001403
004767
104002

010000

17450b

SIT
~~E
~OY

174750
000040
000040
007372
I SI
000040
0073S2

MOV
BIS
C"P
BEQ
JSR
ERROR<2
CLF
aIC
CMP
BEO
JSR
ERROR<2

II:Sw12,(aSWR
TSTI7
OLRCSR, R2

»40,R4
'RITS, (R2)
R4, (R2)
IS
PC, SUER2
R4
fBIT5,( R2)
R4,(R2)
TSTI7
PC,SUER2

J ARE' wE TESTI"JG IC OR
, ,
; REGADP
}oI.CSR 4DR

ID '-IODEL1

=

:RESULT I~ RCSR Sib = OOOO4n
;5E1' THE "DATA SET I.E.t! BIT

:010 IT SET OK ?1
: ,

,GO SET UP ERROR IN'O

:"DAT SFT I. E. fA ILED TO SET
;MAKE SIB DATA = OOlJOOO
J~O~ CLEAR THE "DATA SET I, E.
BIT
,010 IT CLEAR OK 11
; ,


,GU SF-T UP FRROR INFO.
;"OATI1, SET

rt~.n

fAILED TO CLEAR

r, *TEST
r ******************
**************,************ ********** **** ****
TEST THE "DATA SET I.E," CAN CAUSE A RCVR INT~
17
004502
004504
004512
004514
004520
004524
004530
004532
004536
004540
004544
004550
004554
004560
004562
004564
004566
004572
004574
004602
004604
004604
004606
004610
004614
004616
004622
004624
004630
004632
004634

000004
032777
001054
016705
012725
016715
005005
005067
005004
016702
052712
052712
005767
001016
005305
001373
004767
005012
012767
104002

, , ***************************************
************** ** ********
SCOPE

TSTI7.
010000

174426

SrT
BNE
MOV
MOV
MOV

174700
004606
174552

CL~

CL~

174706
174644
000040
000002
174664

I$I

007260
004604

174442

CLR
MOV
8IS
BIS
TST
BNE
DEC
BNE
JSR
CLR
MOV
ERROR<2

HWI2,@SWR
TSnO
DLVECT,R5
03$,( R5) <
DLPRI,(R5)
R5
INTFLG
R4
DLRCSR, R2
#5IT5.(R2)
JBITI'(R2)
INTfLG
4S
R5
1$

PC,SUER2
(R2)
_28,GESCAPE

,ARE: WE TESTING A IC OR 10 "ODEL?
, ,<8PANCH If YES>
,GET THE VECTOR ADDR

:CO TO 3$ ON
,AI' LEVEL 4

RCVR

I~TF!.

IINIT INTR. TI'lER
,INIT SOfTWARE FLAG
,RESULT IN RCSR 5/8

=

=0

AFTER INTR,

;REGAn~
RCSR ADP
,SET THE uD.ATfi SET I,E,
BIT
;NOW SlT "DTR" TO GEtJ INTR,

"

,OlD INTR OCCUR YET 1?
;SR IF YES
:COUNT THE TIMER

,BR If NO TIMEOUT
,GO.SET UP ERROR INfO
;TURN IT ALL OFf
1CQME BACK TO 2$ J N ALJ~ CASES
1 "DATA SET" INTR fAILED TO OCCUR

21.
000417
005012
005167
000002
032712
001003
004767
104002
020412
001403

3$ I
174630
100000

4$.

007222
581

BR
CLR
COM
RTI
8IT
BNE
JSR
ERROR.2
CMP
BEQ

TST20
(82 )
INTFLG
,BITI5,(R2)
58
PC,SUER2
R4, (R2)
T5T20

:,

,ZERO THE PCSR
ISET THE SOfTWARE FLAG
,RETURN TO SENDER
, DID "DATA SET INT" GET SET BY INTR. SERVICE 11
I! <8R IF YES>
I GO SET UP ERROR INfO
,DATA SET INTR, NOT SERVICED PROPERJJY
,ALL BITS IN RCSR CLEAR ?1
,,<8A IF YES>

MAINDEC-II-nZDLC-B
MACY!I 30(104&J
12-JUL-77 10,02 PAGE 21
DZDLCB,PII
OS-MAY·77 10,04
TI7
TEST THE 'DATA SET I,E," CAN CAUSE A RCVR INTR
1082
IOR3
IOR4
1085
1086
10~7

1088
1089
1090
1091
1092
1093
1094
1095
1096
IOQ7
1098
1099
1100
1101
11 02

004767
104002

007210

JSA
PC, SUEA2
ERROA+2

;GO SET UP ERROR INfO
; I.TR, SERVICE fAILED TO CLEAR RCSR

J J ** *** ********************** ** ...... ******'********* ****************

,
,RESULT SIB. 201 I" ICSR
,SET UP REGADR
:5ET THE "BREAK" BIT
;DlD IT SET PROPERL~ 11

~~~i~~i:~l

R4,(R2)
IS

; f 

PC, SUEH2

; GO SF:T UP ERROR It'lF'O.

;"BREAK" aIT FAILED TO SfT PROPERLY
;RESULT SIB. 200 IN XCSR
;CLEAR THE "BREAf{" IHT

#200,R4

'BITOdR2)
H4, fR2)
TST23

;010 IT CLEAR PROPERLY??
/I 

;GO SET UP ERROR INfO

JSR
PC,SUER2
ERROR+2

J"BREAK" FAILED TO CLEAR PROPERLY

1103

1104
II as
1106

;,***************************************************************
r*TEST 21

IIOR
II 09
1110
1111
1112
1113
1114
1115
1116
II !1

TST211

004726
004730
004734

000004
012704
016702

000200
374454

004740

052712

000n01

004744
004746
004750
004752

(00001)

U04156

020412
0014 ll)

004767
104002

TrST THAT A "RESET" CLEARS THE "BREAK" BIT

,,******-********************************************************

l' 01

007074

SCOPE
MOV
MOV
BIS
RESET
C"P
BEQ
JSR
ERROR+2

uJ4
II 35
1136
1137
113"
II 39
1140
1141
1142
1143
1144
1145
1146
1147
1148
1t49
U50
1151
U52
US 3
U54
115~

U56
US7
1158
1159
1160
1161
3162
U63
U64
1165
1166
1167
1168
1169
1170
1171
1172
1173

CLEAP IT WITH A "RESET!!
11 W IT CLEAR 11

R4.cR21
TST22
PC,SUEP2

MAlNDEC-It-OZOLC-S
MACYI! 30(1046)
12-JUL-77 10.02 PAGE 22
DZDLCB,PII
06-MAY-77 30.04
T22
TEST TO TURN AROU"D
111 a
1119
U20
3121
1122
1123
1124
1l2S
1126
1127
112B
U29
100
3131
1132
U33

RESULT 5/8 • 200
SET UP REGADR
S~T THE "SPEAK" RIT

#200,R4

DLXCSR, R2
.8trO.cR2)

,
GO SEI UP ERROR INfO,
p.:sn I"STR, "ILED TO CLEAR "f\REAK"

NULL-D~L-NULL

PATTERN

, J * ************** *it************* .. ** ********** 4** ••• **************

,*TEST 22
004760
004702
004770
004774
005000
005006
005012
005016
005020
005024
005026
005032
005034
005042
00 5 0 44
005050
005052
005056
005060
005064
0050 6 6
005074
005102
005106
005114
005 \16
[105116
005120
005124
005130
005132
005136
005142
005150
005152
005152
005154
005160
005362
005164
00~170

005174
005202
005204
005204
005206
00S212
005216
005222
005226
005234
005236
005242

000004
012767
004767
005067

012767
004767
005767
001040
005767
001053
005767
001065
022767
001003
004767
000500
005367
001355
005367
001352
042777
042777
104401
012757
104000

TEST TO TURN AROUND NULL-DEL-NULL PATTERN

r:*****************************".********"**************.*****it**

TST22.
000001
007232
174430
014362
007222
174404

174252
174<30

I$I

2$,

174400
174374

SCOPE
HOV
JSR
CLR
MOV
JSR
TS1
BNE
TST
BNI
TST
BNF.

022260

174372

C"P
SNE
JSR
BR
DgC
BNE
DEC
BNE
SIC
SIC
TYPE
MOV
ERROR

007456
174362
174356
000100
000104
016342
005116

174J14
174312
174130

II, STlMES
PC, SUVf.C
RTRr
• LDOUT I, LDOUT
PC, PRIME
XFLGO

:1DIJ 1 ITlPATION
,GO SET UP VECTORS
;INITIALIZE RETRY fLAG
,SET POINTEP TO LOAD ROUTINE
;GO SET UP BUFFERS AND DEVICE
;A"Y HARD XMIT ERRORS ??

5$

~BR

RFLGO

,ANY HARD RECEIVE? ERROR ??
~Bk IF YES
;ANY SOfT RECEIVER ERRORS ??
;SR IF Y~S
;RECEIVEO 256, SYTES 1?
,RR IF NOT
; GO CHECK THE DATA ~UFfERS
;,
;DEC TIMEOUT COUNTER I

7S
RFLGI
9$
#SUFEND,IPTR
J$

PC,CHKDAT
TST23
TIMRI
2$
TIMR2
2$
1100,~DLRCSP

IF YE";S

;BR IF NO TIMEOUT
,DEC TIMEOUT COU"TE"
1BR IF NO TIMEOUT

;TURN

orr

THE INTRS.

U04,~DLXCSR

, XMSGI
H$,$ESCAPE

,GO TYPE TIMEOUT MESS~GE
,GU TO 4$ AFTER ERROR PRINT
,PRINT ERROR PC

B"
MOV
MOV
MOV
MOV
JSR
MOV
ERROR+2

TST23
DLRCSR,Rl
DLXCSR,R2
IR2),R3
1204,R4
PC, SUERRI
'6S,SESCAPE

,,
;PUT DEVADR IN Rl
,PUT REGADR IN R2
; GET THE "AS DATA
,PUT SIS UATA IN R4
;GO SET UP ERROR INFO
,GO TO 6$ AFTER PRINTltlG ERROR
;TRANSMITTER FALSE INTERRUPT

BR
MOV
MOV
MOV
MOV
JSR
MOV
ERROR+2

TST23
DLRCSR,Rl
RI, R2
(R2), R3
'200,R4
PC, SUERRI
'8S,SESCAPE

,,(GO TO NEXT TEST>
I SAVE THE DEVADR
;SAVE THE REGADR
,GET THE WAS DATA
;RESULT SIB = 200
,GO SET UP ERROR IN~O
,GO TO 8$ AFTER ERROR PRINT
;RECEIVER FALSE INTERRUPT

BR
MOV
MOV
MOV
JSR
MOV
ERROR+S
INC
CMP

TST23
DLPeSR,Rl
DLRDSR,R2
STMP1,R3
PC,SUERRI
1I0S, SESCAPE

;,
,SAVE THE DEVADR
; SAVE REGADR
,GET CONTENTS Of ERROR RDBR
;GO SETUP ERROR INFO
;GO TO lOS AFTER ERROF PRINT
IREPORT SOFT ERROR (PARITY,FRAMING, OR OVERRUN
,COUNT ONE TRY
,TRIED THREE TIMES

4$ ,
000455
036701
016702
011203
012704
004767
012767
104002

5$,

17426'
174264
000204
006736
005152

174074
6$ I

000437
016701
010102
011203
012704
004767
012767
104002

7$,

174230
000200
006704
oos 204

174042
8S'

000422
016701
016702
016703
004767
012767
104005
005267
022767

174176
174174
173762
006652
005236

174010

174166
000003

174160

IDS'

RTRY
#3,RTRY

MAINOEC-It-OZDLC-S
MACYI!
DZDLca.P!1
06-"AI-77 10.04
1174

005250

30(1046)

12-JUL-77
10.02
PAGE 23
T22
TEST TO TURN AROUND NULL-DEL-NULL ?ATTEPN
BNE

001253

IS

JP,R IF' NOT

I2-JUL-77
10.02 PAGE 24
MAINOEC-'I-OZDLC-8
"ACYl I 30C 1046)
TEST TO TURN AROUND BINARY lip
T23
06-MAY-77 10'04
OZDLCB,PII
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184

,*TE5T 23

PATTERN

TEST TO TURN AROllND BINAF'l UP COUNT PATTgPN

JJ*************************************************~** ***********

1186
\187
1188
I1A9
1190
1191
1192
1193
1194
1195
1196
1197
1198
1199
1200
1201
1202
1203
1204
1205
1206
1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
1217
1219
1219

005252
005254
005262
005266
005272
005300
005304
005310
005312
005316
005]20
005324
005326
005334
005336
005342
005344
005350
005352
005356
005360
005366
005374
005400
005406
005410
005410
005412
005416
005422
005424
005430
005434
005442
005444
005444
005446
005452
005454
005456
005462
005466

1220

005474

1221
1222
1223
12H
1225
1226
1227
1229
1229
1230

005476
005476
005500

II 85

C~UNI

,,***********************************************-***************

005504
005510
005514
005520

005526
005530
005534

000004
012767
004767
005067
012767
004767
005767
001040
005767
001053
005767
001065
022767
001003
004767
000500
005367
001355
005367
001352
042777
042777
104401
012767
104000

TST23.
000001
006720
174136
014404
006730
174112

1737'0
174136

lSI
2S,

174106
174102
022260

174100

007164

lS.

174070
174064
000100
000 I 04
016421
005410

1740.2
174020
173636

SCOPE
MOV
JSR
CLR
MOV
JSR
TST
aNE
TST
BNE
TST
BNE
CMP
8NE
JSR
BR
DEC
aNE
DEC
SNE
aIC
SIC
TYPE
MOV
ERROR

U, STIMES
PC,SUVEC
RTRY
#LDOOT2,LDOUT
PC,PRIME
XFLGO
58
RFLGO
7S
RFLGI
96
.BUFEND,IPTR
3$
PC,CH~DAT

T5124
TIMRI
2S
TIMR2
29
UOO,@DLRCSR
1I04,9DLXCSR
, XMSG2
14$, SESrAPE

,,00 I

ITERATIOH

1GO SET UP VECTORS

rINITIALIZE RETRY FLAG
;5£T POlfla'l'E.R TO LOAD ROUTINE
,GO SET UP BUFFERS '.0 DEVICE

:ANY HARD XMIT F-RROHS 11
,SR IF YES
,ANY HARD RECEIVER fRRUR 11
:SF IF YES
,ANY SOFT RECEIVER fRPOHS 11
,RR IF YES
:Re:CEIVED 256. RYTES 11
,SR IF NOT
,GO CHECK THE DATA RUFFERS
, ,
,DEC TI'

SR
HOV
MOV
MOV
MOV
JSR
MOV
ERROR+2

TST24
D~RCSR, RI
Rt ,R2
(R2l,R3
1200,R4
PC, SUERRI
198, IESCAPE

,,
,SAVE THE OEVADR
,SAVE THE REGAUR
,GET THE WAS DATA
,RESULT SIB. 200
,GO SET UP ERROR I~FO
,GO TO as AFTER ERROR PRI"T
,RECEIVER FALSE INTERRUPT

BR
MOV
MOV
HOV
JSR
MOV
ERROR+S
INC
CMP

TST24
OLRCSR,RI
DLRDBR,R2
$TMP1,R3
PC,SUERRI
U OS, $ESCAPE

, ,
,SAVE THE DEVADR
,SAVE REGADR
,GET CONTENTS OF ERROR ROBR
,GO SETUP ERROR INFO
,GO TO lOS AFTER ERROR PRINT
,REPORT SOFT ERROR CPAR ITY, FRAMING, UP OVERRUN
,COUNT ONE TRY
,TRIED THREE TIMES

1PUT DEVAnR IN R1
,PUT REGADR IN R2
,GET T~E "AS DATA

iPUT SIR DATA IN R4
,GO SET UP ERROR INFO
,GO TO 6$ AFTER PAI'TING ERROR
,TRANSMITTER FALSE I"TERRUPT

68.

000437
016701
010102
011203
012704
004767
012767
104002

7$,

173736
000200
006412

005476

173550
8$1

000422
016701
016702
016703
004767
012767
104005
005267
022767

9 ..

173704

173702
173470
006360
005530

173516

173674

000003

10'1
173666

PTRY
83, "TRY

MAINDEC-ll-0Z0Lc-e
MACYll
OZOLCB,P'I
06-MAY·77 10104
1231

005542

1232
1233
12J4
1235
123~

1217
123S
1239
1240
1241
1242
124 3
1244
1245
1746
1747
124B
1249
1250
1251
1252
1253
1254
1255
1256
1257
125R
1259
1260
1261
1262
1263
1264
1265
1266
1267
12~B

1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1291
1282
1283
1284
1285
1286
1297

12-JUL-77 10102 PAGE 25
T23
TEST TO TURN AROUND BINARY UP COUNT PATTER'
BNE

001253

MAINDEC·II-OZDLC-~

DZDI,C8,Pl1

"30(10~6)

"ACYl I 30( 1046)

06.MAY·77 10,04

:~p

IF NOT

12-JUL.17 10102 PAGE 26
TE:ST TO TURN AROUND BINARY DOW"

T24

COU~T

PATTERN

, , .... *.. * ......... ** *." f*' "ft_ ** .. * •• ** ... ** ** .... ** .. *. *........... *. ,.,. *** * .... *

005544
005546
005554
005560
005~64

005572
005576
(105602
005&04
005610
005612
005616
(105620
005626
005630
005634
005636
005642
005&44
005650
005652
005660
005666
005672
005700
005702
005702
005704
005710
005714
005716
005722
005726
005734
005736
005736
005740
005744
005746
005750
005754
005760
005766
005770
005770
005772
005776
006002
006006
006012
006020
006022
006026

000004
012767
004767
005067
012767
004767
005767
001040
005767
001053
005767
001065
022767
001003
004767
000500
005J67
001355
005361
001352
042777
042771
104401
012767
104000
000455
016701
016702
011203
012704
004767
012767
104002
000437
016701
010102
011203
012704
004767
012767
104002
000422
016701
016702
016703
004767
012167
104005
005267
022767

"'.*

000001
006426
173644
014424
006436
173620

173466
173644

173614
173610
022260

173606

006672
173576
17 3S 7 2
000100
000104
016502
005702

173530
173526
173344

173500
173500
000204
006152
005736

173310

173444
000200
006120
005770

173256

173412
173410
173176
006066
006022

173224

173402
000003

173374

.*.

,
3$,
,DEC TIMEOUT COUNTER
DEC
TIMRI
SNE
,BR IF NO TIMEOUT
2S
DEC
TIMR2
,DEC TIMEDUT CDUNTER
SNE
;BR IF ND TIMEOUT
28
SIC
UOO, ~DLRCSR
:TURN OFF TH£ INTRS.
BIC
1104, ~DLXCSR
TYPE
, X~SG3
; GO TYPE TIMEOUT ~ESSAGE
MOV
14$, SESCAPE
,GD TO 48 AFTEF ERRDR PRINT
ERROR
,PRINT ERROR PC
46 I
BR
TST25
; J 
MOV
DLRCSR,RI
,PUT D~VADR IN RI
581
MOV
DLXCSR,R2
,PUT REGADR IN R2
MOV
,GET THE WAS OATA
(F2),R3
MDV
_204,R4
,PUT SIB DATA IN R4
JSR
PC,SUERRI
,GD SET UP ERROR INFO
MOV
#68, SESCAPE
,GO TO 6$ AFTER PRINTING ERRDR
ITRANSMITTER FALSE INTERRUPT
ERROR+2
6$1
BR
, ,
TS125
MOV
7$1
DLRCSR,RI
,SAVE THE DEVADR
MOV
,SAVE THE REGADR
RI, R2
MOV
,GET THE WAS OATA
(R2l,R3
MOV
#200,R4
,RESULT SIB. 200
JSR
PC,SUERRI
,GO SET UP ERROR INFO
MOV
,GO TO S8 AFTER ERROR PRINT
'BS,SESCAPE
ERROR+2
,RECEIVER FALSE INTERRUPT
881
SR
TST25
,,
9$1
MOV
DLRCSR, RI
I SAVE THE DEVADR
HOV
,SAVE REGADR
DLROSR,R'
HOV
,GET CONTENTS OF ERRDR RDBR
$THPI,R3
JSM
PC,SUERRI
,GO SETUP ERRDR INFO
HOV
#lOS,SESCAPE
IGO TO lOS AFTER ERROR PRINT
ERROR+S
,REPORT SOFT ERROR (PARITy,FRAMING, OR OVERRUN
10$ ,
INC
ICOUNT ONE TRY
RTRY
CMP
13, RTRY
,TRIED THREE TIMES

MUNDEC-II-DZDLC.8
MACYlI 30(1046)
12-IIUL-77 10102 PAGE 27
DZDLCB.PI1
06-MU-" 10104
T24
TEST TO TURN AROUND 8INAIIY DOWN CQUNT PATTE ....
1288

006034

8NE

00125)

IS

..

MACYlI 30( 1046)
12-JUL-77 10102 PAGE 28
MAINDEC-II-OZOLC-S
TEST TO TURN AROUND WORST CASE PATTERN
725
DZDLCB,~II
06-MU-77 10104
1289
1290
1291
1292
1293
1294
1295
1296
\297
1298

1299
\300
\301
1302
1303
1304
\3 OS
1306
1307
U08
1309
1310
13\1
\312
U13
13\4

1315
1316
\3\7
1318
1319
1320
1321
\322
1323
1324
1325
1326
1327
1328
!l29
\330
1])1

1332
\3ll
1134
1l3S
1116
1337
1338
1139
1140
1341

Iln

uu

1344

J'._* ••••--*.*_ ••TEST
-••*•••
_--_._-_._.-._--_ •• _-* ........ *** •• *****.
TO TURN AROUND WORST CASE PATTERN
J, ••••*_.-..**-_.-.-----*--_ ... -* ••• _•• _*-_ ......... _****
TST251
SCOPE

.*.....

,"TEST 2!

006036
006040
00 6046
006052
006056
006064
006070
006074
0060 7 6
006102
006104
00611'0
0061 \2
006120
006122
006126
006\32
006\36
006140
006144
006146
006154
006162
006166
006174
006176
006202
006206
006212
006214
006220
006224
006232
006234
006240
U06244
006246
006250
006254
006260
006266
006270
006274
006300
006)04
006310
006]14
006)22
006324
006]30
006)36
006]40

000004
012767
004767
005U67
012767
004767
005767
001042
005767
001056

005767
00107\
022767
001004
004767
000167
005367
00\354
005367
001351
042777
042777
104401
0\2767
104000
000167
016701
016702
011203
012704
004767
012767
104002
000167
016701
010102
011203
012704
004767
012767
104002
000\67
016701
016702
01670)
004767

0\2767
104005
005267
022767
001247
000167

000001

173\14

006134
173352
014460
006144
173326

173352

1$,
211

MOV
JSR
CloP
MOV
JSR
TST
8NE

TST
8NE
TST
BNE
CMP
8NE
JSR

173322
173316
022260

173314

006400
002012
173302

J~P

3S1

173276
000100
000104
016565
006'176

173234
173232
173050

001742
173202
113202
000204
005654
006234

411
511

173012
6$1
HI

001704
173144
000200
005620
006270

172756

001650
171110
173106
172674
005564
006324

172722

173100
000003

173072

001600

8"
981

IOU

DEC
BNE
O!:C
BNE
BIC
BIC
TYPE
MOV
ERROR
JMP
NOV
MOV
MOV
HDV
JSR
MOV
ERRORt2
JMP
HOV
MOV
MOV
MOV
JSR
MOY
ERRORt2
JMP
MOV
MOV
MOV
JSR
MOV
ERRORt!
INC
CMP
8NE
JMP

" , STINES
PC,SUVEC
RTRY
I LDOUT4, LDOUT
PC, PRIME
XFLCO
51
RFLGO
71
RFLGI

9.

.BUFEND,IPTR

31
PC,CHKOAT
SEOP
TIMRI
21
TlMn
2.
#I00,'Dt.RCSR
tl04, 'Ot.XCSR
,XMSG4
14$, SESCAPE
SEOP
DLRCSR,RI
D\.XCSR,R2
(R21,n
n04,R4
PC,BUERRI
"8,$ESCAPE

nop
DLRCSR.RI
RI,R2
(R2),U

nbo, ..

PC,SUERRI
U.,USCAPE
UOP
Dt.RCSR"RI
0t.RD8R,R2
UHPI,R3
PC,SUERRI
tlOI,$ESCAPE
RTRY
Il,RTRY

U
SEOP

"DO I ITERATION
,GO SET UP VECTORS
,~NITIALIZ£ RETRY FLAG
,SET POINTER TO LOAD ROUTINE
,GO SET UP BUHERS AtiO D~VICE
,ANY HARD XMIT ERROPS 11
,BR IF YES
,ANY HARD RECEIVER ';RROR ?1
,8P If YES
,AI,Y 50FT RECEIVER f:RRO.S 11
,SR IF YES
,PECEIVED 256. 8YT~5 11
,SR IF NOT
,GO CIISC~ TK~ DATA BU'FFERS
,GO TO ~EXT TE5T
,DEC TI~EOUT COUNTE~ I
,BR IF NO UMEOUl
,DEC TI~EOUT COUhTER
'18R IF NO TIMEOUT
,TURN OFF THE I"l'RS.
,GO TYPE TIMEOUT .~SSAGE
,GO TO 4$ AFTER ERROR PRIN'r
,PRINT ERROR PC
,GO TO NEXT TEST
,PUT 9EVADR IN RI
,PU1' REGADR IN H2
,GET THE WA5 DATA
,PUT S/8 DATA IN R4
,GO &ET UP ERROR INFO
,GU TO 6$ AFTER PRI"TlNG ERROR
,TRANSMITTER FALSE I~TERRUPT
,GO TO NEXT TEST
,SAVE THE DEVADR
,SAVE THi: REGADR
,CET THE WAS DATA
,RESULT SIB. 200
,GO SET UP ERROR INFO
,GU TO 88 AFTER ERROR PRINT
,RECEIVER FALSE IOTFRPUPT
,GO TO NEXT TEST
,SAVE THE DEYADR
,SAVE REGADR
IGET CONTENTS OF ERROR RDBR
,GO SETUP ERROR INFO
,GO TO 10$ AFTER ERROR PRINT
,REPORT SOrT ERROR (PARITY, FRAMING, OR OVERRUN
,COUNT ONE TRY
,TRIED THREE TIMES
,8R IF NOT
,GO TO END OF PASS ROOTINE

MACHI 30( 1046) 12-JUL-77 10'02 PAGE 29
MAINDEC-II-oZDLC-8
T25
TEST TO TURN AROUND WORST CASE PATTERN
DZDLCB,PII
Oe-MU-" .10'04
U45
1346
1347
1348
1349
1350
1351
1352
1]53
1354
1355
1356
1357
1358
1359
1360
!l61
1362
136)
1]64
1365
1366
1367
1368
1l6q
1370
Inl
1]72
1313
1374
1375
1376
1]77
1378
1379
1390
!let
!l92

,THIS IS PROGRAM 12

USER UTILITY
wILL ALLOW,
,,,THE FOLLOWING
A) SELECTION OF A TRANSMITTER DATA BUfFER
8) SELECTION OF A CHARACTER FOR CONTINUOUS TRANSFER
,,
C) SELECTION or AN EXPIRATION TIME IN "ILLISECONDS
BETWEEN EACH TRANSMITTEP DATA BUFFER CHARACTER TRANSFER
,
A TIGHT SCOPE LOOP LOCK ON A SPECIFIC CHARACTER
PROGRA~

,

006144
006]50
006]56
006364
006172
006400

012706
012731
017737
012731
012131
104401

001100
011066
000340
010746
000340
016700

006404

104401

020322

006410

104410

012607
020227
101065
006422 020227
006426' I 034~2
006430 132702
006412
006414

176176

Ql)6420

175616
000001

006434

001057

006436
006440

010203
142703

000]70

006444

122703

000006

006450
006452

001051
010267

112524

0~6456

016746
012167
005712

171122
006474

I7IU4

005460
006510

172~36

1)8]

1384
138~

1186
1387
1188

I3R9
1390
139'
1392
\393
1394
1l'~

139b
1397

13.'
t39q

006462
006470
OOH72

006474
006500
006~06

OOb~l~

006517
006516
006~20

000412
004167
012767
104006
012626
011667

000426
012661

,INITIALIZE THE STACK POINTER
tsTACK.SP
;TRAP VECTOP FOR TRAP CALLS
ISTRAP." TRAPVEC
U40.UTUPVEC+2
,LEVEL '.
,EMT V~CTOR fOR ERROR ROUTINE
.. ERROR ... E"TVEC
,LEVEL 7
1340. UEMTVEC+2
M
,INDICATE
THAT USER SELECnO
.rRDG2
,PROGRAM '2
,AS~ US!R FOR THE TRA.S~ITTER
PRG2A, TYPE
• LINTAD
:DATA Bun'EP ADDRESS OF THE DEVICE
,HE WISH~S TO TEST
,ACCEPT THE ANSWER T¥PED BY USER
RDOCT
,A.P STORE ON TOP OF ST~CK
,CHECK TO SEE IF THE USER RESPONSE WAS .ITHI~ LIMITS
,GET THE ANSWER TYPED
HOV
(SP)+.R2
,IS TRE NUMBER TOO HIGH1
C~~
P2.1176176
8HI
REDOI
:IF YES - GO TO RETH SITUATION
,IS T~E NUHBE~ TOO LO-,
R2.1175616
C-P
,If ~ES - GO TO RETRY SITUATION
8LO
REDOI
81T8
,_UMBER IS TN RANG~ BUT IS IT
,SITO.R2
,ON AN EV~~ BOUNDARY1
,IF NOT GO TO RETRY SITUATION
.SNE
REDOI
,CHECK TO SEE IF USER RESPONSE WAS TRULY A XMIT BUFFER REGISTER
MOV
:GET THE USEP RF.5PO~lSF.
R2.R3
BICB
,MASK OFF LO.~R 8YT~ EXCEPT FOR
1370.R3
,LEAST SIG'IFICANT DIGIT
,WAS THE LEAST SIGNIFICANT DIGIT 01" TH~
C.PB
*6.R3
,USER RESPONSE EQUAL TO A SIX?
SHE
REDO I
:8RANCH IF NOT
MOV
:T~E TRANSMITTER ADDR~S5
R2.$TMPO
,TYPED IS OK - STORE FOR
,FUTURE USE
:NOW CHECK TO MAKE SURE THE DEVICE IS PRESENT
,SAVE TH~ Tr.~OUT VECTOR
MOV
ERRVEC.-(SP)
MOV
,SET UP TIMEOUT SERVIC!~ ADDRESS
I2s.ERRVEC
(R2)
,IF PRESENT wE _ILL EXECUTE THE
TST
; NEXT IN5TRUCtIOh - IF -aT
,WE GO TO 2S'
,8RANCH IF PRESENT
B~
4$
,GU SET UP FOR ~RROP INFORMATION
PC.SUERT2
281
u5R
MOV
: POINT 0.' RE'IUR" AfTER fRROR REPORT
I3S. SESCAPE
ERROR
+6
:XDeR REFERENCE CAUSED TIMEOUT
,CLEAN SUCK FROM TIMEOUT
)$ I
CMP
(SP)+. (SP)+
MOV
(SP)+.ERRVEC
,RESTORE "TIMEOUT V~CTOR
,GO TO PETRY SITUAtION
BR
REDOI
MOV
(SP)+.ERRVEC
:DEVICE REGISTE" IS PRESENT I
4St
,RESTORE TIMEOUT VECTOR
,WE ARE NOW READY FOR THE CHARACTER TO BE T~A'S~ITTED. AND THE
PRG2,

000034
000036
000010
000032

171266
171260

1400

0)

MOV
MOV
MOV
MOV
MOV
TYPE

MACYII 30(1046) 12-JUL-77 10,02 PAGE 30
MAINOEC-II-DZDLc-e
TEST TO TURN AROU~D WORST CASE PAT1·ERN
125
06··~AY-77 10'04
DZDLca,l'l1
1401
1402
140)
1404
140~

.

1406
1407
14(18
1409
1410
1411
1412
1413
1414
1415
1416
1417
1418
I4lq
1420

02040]

006~24

104401

006530

104410

006~l2

012667

172446

006536

104401

020511

00bS42

104410

006544
00fi~50

012667
116767

172436
172432

000012

006556

116777

172422

172416

006564

004767

004750

:DELAY T1"E (IN MILLISECONDS) THAT IS TO TRANSPIRE BETWEEN
,SUCCESSIVE CHARACTER TRANSFERS
PRG2S1 TYPE
.SELCAR
,ASK USER F"P THE C"ARACTER HE
,WISHES TO TRANSFER
,ACCEPT TH~ A"SOER TYPED ~Y
IIDOCT
,USER ANO STORE ON ·/UP OF STAC~
~10V
:GET THr. ANSWFR TYPED
(SP)+.fTMPI
:NOTE, THE USEP RESPONSE FOR TH~ CHARACTER WAS TO BE THE
OCTAL AsCII EQUIVALENT OF 1riE CHAPACTER E,G, AclOI
:
,ASK THF USER FOR THE DELAY
TYPE
.SELDLY
,IN "SEC (OCTAL NO,> BET~F.EN
,CHARACTER T~ANSFERS
ROOCT
,ACCEPT THE ANSWER TYPED BY
,USER ANU STORE O. TOP 0'· STACK
140V
(SP)+.STMP2
,GET THE ANS'ER TYPED
,SET THE OtLAY COUNT ARGUMENT
MOVB
STMP2.2S
IS'
:FOP TIMER ROUTIfiE
MOV8
,LOAD THE 1RANSMITTER OATA
STMPI. "T"PO
,BUFFER WITH THE CHJRACTER
uSR
:GO orF TO WAIT THf. SPECIFIED
PC.DELAY

MACYII 30(1046) 12-JUL-" 10102 PAGE 31
MAINDEC-Il-DZDLC-B
TEST TO TU~N A~OUND WOPST CASE
T25
DZDLCB,PI t
06-MU-" 10104
1421
1422
1423
1424
1425
1426
1427
1428
1429
1430
1431
1432
1433
1434
1415
1436
1437
1438
1439
1440
1441
1442
1443
1444
1445
1446
1447
1448
1449
1450
1451
1452
1453
1454
1455
1456
1457
1458
1459
1460
1461
1462
1463
14b4
1465
1466
1467
IH8
1469
1470
1471
1472
1473
1474
1415
1476

006570
006572
006574
006600

000000
000166
104401
000167

PATTER~

,NO, OF MSEC, BEFOPt: ISSUING
,ANOTHER CHARACTER
,THIS IS WHERE THE DELAY COUNT RESIDES
,GO BACK TO ISSUE ANOTHER CHARACTER
,TYPE A QUESTION MAPK(?)
,REITERATE THE XUBR QUESTION TO USE~

.WOPD
0
BP
18
TYPE
, SaUES
.IMP
PRG2A
,THIS IS PROGRAM .3
,THE rOLLo.ING USER UTILITY PROGRAM WILL ALLOWI
Al SELECTION or A TRANSMITTER DATA BUFFER
I
B) SELECTION or A CHAPACTER FOR CONTINUOUS TRANSFER
IN MAINTENANCE MODE
C) SELECTION OF AN EXPIPA'rION 11"£ IN MILLISECONDS
BETWEEN EACH TRANSMITTER DATA BurFER CHARACT~R TRANSFER
Dl A TIGHT SCOPE LOOP LOCK ON _ SPECIFIC CHARACTER

281

PEDOII

001252
177600

,
006604
006610
006616
006624
0066)2
006640

012706
012731
012737
012737
012737
104401

001100
013066
OOOHO
010746
000340
016744

006644

104401

020322

006650

104410

006652
006654
00666D
0066 70

012602
020227
101071
020227
103466
132702

006662
006666

PRG31
000n34
000036
000030
000032

176176
175616
000001

ooU74

001063

006676
006700

010203
142703

000370

006704

122703

000006

006710
006712

01026.7

172264

006716
006722
006730

016746
012767
005712

171062
006134

006732

000412
004767
012767
104006

MOV
MOV
MOV
HOV
100V
TYPE

:INITIALIZE THE STACK POINTER
UTACK,SP
,TRAP VECTOR FOR TRAP CALLS
"TRAP, JITRAPVEC
'340,~fTRAPVEC+2

JJ... EVE.:L 7

,EMT VECTOR fUR ERROR ROUTINE
UERROR, UEMTVEC
1340, UEMTVEC+2
,LEVEL 7
,INDICATE THAT USER SELECTED
,PROG3M
;PROGRAM '3
,ASK USER fOR THE TRANSMITTER DATA
.LlNTAD
PRG3AI TYPE
,BUFFER ADDRESS OF THE DEVICF
:HE .IS~ES TO TEST
,ACCEPT THE A"SWEP TYPED BY
RDOCT
,USER AND STORE ON TUP OF STACK
,CHECK TO SEE IF USER RESPONSE "AS WITHIN LIMITS
MOV
;GET THE ANS~ER TIPfD
(SPl+,R2
;IS TH~ NUMBER TUO HIGH?
CMP
P2, U 76176
RE002
;IF YES - GO TO RETRY SITUATION
eHI
,IS THE hUMBER TOO (.O_?
CMP
R2,1I75616
eLO
:IF YE5 • GO TO RET"Y SITUATION
RED02
nITO,R2
,NU"BER IS IN RANGE BUT IS IT
BITB
ION AN EVE. B(JUIIOA~Y?
B~E
,IF NOT - GO TO ~glRY SITUATION
RED02
ICHECK TO SEE II' lIsrR RESPONSE WAS TR"LY A XDBR DBR ADDRESS
MOV
,GET TriE USER ~ESPO'SE
R2, R3
;MASK ur, LOWER BYTE ~XCEPT FOR
BICB
#370,R3
,LEAST SIG'IfIC'NT OIGIT
,_AS THE LEAST SIG~IfICAhT DIGIT or THE
CMPB
.6,R3
:USE~

171054

R~SPONSE

EQUAL TO A TWO?

,BRANCH If _01
,THE TRANSMITTER _DDRESS TYPED IS
,0' - STOR~ fOR FUTURE USE
,NOW CHECK TO MAKE SURE THE DEVICE IS PRESENT
MOV
,S4VE THE TIMEOUT VECTOR
ERRVEC,-(SP)
MOV
,SET UP TIMEOUT SERVICE APDRESS
.2S,EPRVEC
,IF
PRESEN! WE WILL EXECUTE THE
(R2l
T5T
;NEXT I'STRUCTIO~ - IF NOT ~E
BNE
MOV

001055

RED02
R2, STMPO

:GO TO 2S1

006734

006740
006746

005220

006750

172276

281

BP
JSR
MOV
E~ROR

4S

PC, SUERT2
nl.USCAPE
+6

,8RANCH If PRESENT
,GO SET UP FOR ERROR INFORMATION
:PUINT OF RErURN AfTfR FRRO" PEPORT
:XORR REF£RFNCE CAUSEO TIMEOUT

~ACY1t 30(1046)
12-JUl.-77 10102 PAGE 32
MAINDEC-II-DZDLC-B
TEST TD TURN A~OUND oOPST CASE PATTERN
T25
06-oU-77 10104
DZDLC8,PII

006150
006752
006756
006160

022626

012661

171020

006764

104401

020403

006770

104410

1489
1490

006772

012667

112206

006776

104401

020511

1491
1492
1493
1494
1495
1496
1497
1499
1499
1500
1501
1502

012667

171 026

000432

1505
1506
1507
1508
1509
ISIO
15\1
1512
15U
1514
1515
1516
1517

104410

007004

012667

112176

007010

162702

000002

007014
007020

052712

116761

000004
112162

000012

007026

116777

172152

172146

007034

004767

004500

001040

000000

001042

000764

001044
007050

104401

001252

000167

117510

MOV
BP
MOV

(SPl+, (SPl+
(SPl+,ERRVEC
RED02
(SPl+,ERRVEC

,THUI IS

PROGRA~

•4

USER UTILITY
WILL ALLOW I
,,ITHE FOLLOWING
A) SELECTION OF
TRANSMITTER DATA BUFFEP
e) SELECTION OF A SINGLE CHARACTER TO BE
,,
AHD CHECKED WITH MAINTENANCE BIT SET
PROGR~M

~

ISIB

1519
1520
1521
1522
1523
1524
1525
1526
1527
1528
1529
IUO
1531
1532

C~P

,

007002

1503
1504

:CLEAN SIACK f'R~~ lIMWUT
;RESTORE TI_EOUT VECTOR
;GO TO RETRY SITUA1ION
,DEVICE REGISTEP IS PRESENT I
411
,RESTORE TiMEOUT VErTOR
NOW
READY
FOR
THE
CHAR~CTf.R
'1'0 BE TRA'ISMITTEIl. loNO THE
ARE
IWE
,DELAY TIME (IN MILLISECONDSl THAT IS TO TRANSPlf~ ~ET.EEN SUCCESSIVE
,CHARACTER T~ANSFERS
,SELCAR
,ASK USER FO~ THE CHARACTER
PRG3BI TYPE
,HE olSHES TO TRANSfER
:ACCEPT THE ANS~ER IYPED BY USER
RDOCT
,AND STORE 01< TO~ Of STACK
;G~T THE Ar,swER TYPI,D
HOV
(SP)+,ITMPI
,NDTEI THE USER RESPONSE FOR THE CHARACTER wAS TO BE T~E
OCTAL ASCII EQUIVALENT Of THE CHARACTER E.G. 8=102
,ASK THE 05!:R FOR THE DELAY
TYPE
,SELDLY
:IN MSEC (OCTAL NO,) BETWEEN
;CHARACTER TpANSfFRS
,ACCEPT THE ANSWER lYPEO BY
ROOCT
;USER AND STORE 0" TOP or STACK
,GET THE ANSW~R TYPlO
HOV
(SPl+,nMP2
IGET THE COPRESPONDING XCSR
SUB
",R2
,ADDRESS rOR TRANSMITTER UNDER:GOING TEST
,SET MAINTENANCE Sn IN XCSR
.B112, (R2)
BIS
lSI
:SET THE DELAY COUNT ARGUMENT
MOVB
STHP2,2S
,FOR TIMER ROUTINE
,LOAO THE TRANSMITT~R DATA BUFnR
MOVB
8TMPI,UTMPO
;WITH THE CHARACTER
PC,DELAY
,GO orF TO WAIT THE SPECIFIED
JSR
;NO, or MSEC. 8EfORE ISSUI~G
;ANOTHER ChAR~CTER
,THIS IS wHERE THE DELAY COUNT ~ESIDlS
,WDRD
0
2'1
;GO BACK TO ISSUE A'·OTHI'R CHARACTER
BR
18
,.aUES
,TYPE A QUESTION "A"K(?)
RED021 TYP!
.IMP
,REITE"ATE THE XD~R ~UESTION TO
PRG3~
,USER
3S1

1477
147B
1479
1480
1481
1482
1483
1484
1485
1486
1487
1488

007\10

012706
012731
012737
012731
012737
104401

~01114

104401

007120

104410

007054
007060
001066

007074
007102

001100
013066

000034

000340
010746
OOOUO

000036

PRG41

MOV
MOV
MOV
HOV
"OV
TYPE

PRGUI

TYPE

000030
000032

011010

020322

RDOCT

S~NT,

RECEIVED

,INITIALIZE THE STACK POINTER
.STACK,SP
"TRAP, UTRAPVEC
'TR~P VECTOR FOR TRAP CALLS
,LEVEL 7
1340, UTIlAPVEC+2
IEMT VECTOR rOR ERRDR ROUTINE
"ERROR, UEMTVEC
1340, UtMTVEC+2
,LEVEL 7
,PROG4M
;INDICATE THAT USER SELECTED
;PROGRAM '4
,ASK USER FOR THE TRANS_ITTER
, LJNTAD
,DATA BUFFER ADDRE~S OF THE
,DEVICE HE wISHES TO TEST
,ACCEPT THE ANSWER TYPED BY

.

MAINDEC-II·oZO~C·B

DZDLC8,P! I

ISH
1534
1535
1536
\537
1538
1539
1540
1541
1542

150
1544
1545
1546
1517
154"
1549
1550
155 ,
1552
1553
1554
1555
1556
1557
1558
1559
15bO
1561
1562
1563
1564

1565
1566
1561
\568
1569
1510
1511
1572
1513
1574
1575
1576
1577
1578
1579

a6-MAY-"

MACHI
10104

007140

012602
020227
10113b
020227
103533
132702

007114

001130

007146
00 7 150

010203
142703

000370

007154

122703

000006

007160
00 7 162

001122
010267

172014

007122
007124
007130
007132
1"107136

30(1046)

10102 PAGE 33
TEST TO TURN ARDUND wORST

C~SE

PATTERN

1 USER AND STORE ON TOP uf STACK
,CHECK TO SEE IF THE USER RESPONSE wAS WITHIN LIMITS
MOV
CSP)+,R2
IGET THE ANSWER TYPED
CMP
R2,II76176
lIS IHE NUMBER TOO HIGH?
8HI
RED03
I l f yes - GO TO RETRY SITUATION
eMP
R2,W175616
lIS THE NUMBER TOO LOW?
RLO
RED03
,If' YES • GO 'fa RETRY SITUATION

176176
175616
000001

81 T8

IBITO,F2

;NUM8ER IS IN RANGl BUT IS IT
:ON AN gV~N BOUNDARY?

BNE
RED03
,If NO - GO IO RETRY SITUATION
,CHECK TO SEE IF USER RESPONSE WAS TRULY A IMIT BUffER REGISTER
MOV
R2,R3
; G~T THE USER RESPOtJSF.:
~ 'oi,ASK orf LOwER BYTE' EXCEPT FOR
PTCR
'370,R3
ILE~ST SIGNIfICANT DIGIT
»6,R3
,WAS THE LEAST SIGNIfICANT DIGIT OF THE
,USER RESPONSE EQUAL TO A SIX?
SHE
~BHANCH If N'OT
RED03
~OV

R::?,STMPO

~1'~if.

TRANS~IITTER

ADDRESS

T~pk:n

:15 UK - STORE fOP FUTUPE USE
(107166
0 1)7172
007200

016746
0' 2707
005712

007202
01')7204
007210
0"7216
007220
0('17230

000412
004167
012767
1 114006
022626
012667
000477
012667

007134

11')4401

,NOW CHECK TO MAKE SURE THE DEVICE IS PRESENT
MOV
ERRVEC,-CSP)
,SAVE THE TIMEOUT VECTOR
.OV
12$,ERRVEC
,S~'f UP TTMEOUT SERVICE AIWRESS
1'Sr
(R2)
I I f PRESE"T OE "ILL EXECUTE THE

170612
007204

lNSTRUCTION - IF NOT WE

:~~XT

: GO TO

007222
0.,7226

SP

170556

MOV

170550

BR
MOV

4$
PC, SUERT2
.3$, SESCAP~
+6
(SP)+, (SP)+
CSP)+.ERRHC
RED03
CSP)+,ERRVEC

TYPE

,RSTALL

0 0 4750
Ou7220

2$1

JSR

38.

ERROR
CMp

172026

MOV

45:

020604

ROOCT

104410
012667

MOV

171740

(SP)+,$T~P2

2$ I

;8RANCH If PRESE~T
;GO SFT UP FOR EFPOR INFORMATION
:POINT nr PETUR~ AfTER gpROR REPORT
,XDYR REfERENCE CAUSED TIMEOUT

;CLEAN SlACK FROM TIMEOUT
~RESTORE TIMEOUT VECTOR
,GO TO RETRY SitUATION
IDEVICE RIGISTER IS PRESENT I
: Rf.Sl'ORE TIMEflUT V~CTOR
;~bK

THE USFR If

H~

DESIR~S

SOME

;RANDO., JW. ur 'lSe-:C. WAIT TIME;
;fH.. fOI-?E CHECI\ING F'O~ XCSR DONE
1 fl,AG
; ACCEPT TtiE ANS10JFR l'YPEO BY USEP

;ANU STORE o~ TOP n~ ST~CK
:Ggr TH~ A~SW~R TYPED

,WE ARE NOW HADY FOR THE CHARAClER TO bE TRANS"I TTED
007246

104401

C07252

104410

007254

012667

020403

PRG48z

171724

,,

,NOTEI

007260

104401

007264

104411

0072(,6
007270

012600
070027

TYPE

,SELCAP

RDOCT

1580

1581
1582
1583
1584
15"5
1586
1587
1588

!2-JU~-77

T25

:JlSK USFR ff'Jf< TH.E: CriARACTF.R tif::
: ..,:1 SHES TO TRANSfER
;Acc~pr

TH~

ANSw~R

TYPED Ay USER

:AiW srOHE nN TOP OF STA.CK
,Gf:.T TtiE ANSI'lER T'tPED
THE USER PESPONSE FOR THE CHARACTER WAS TO bE THE OCTAL
~ov

(SP)+,STMPI

ASC II EQU I VALENT OF THE CHARACTER E, G, C= 103

TYPE,
,ASK USER FOR THE CHARACTER [,ENGTH
LENGTH
IYOR WHICH HIS DEVICF IS SET
RDDEC
IACCEPT THE ANSWER TYPED BY USER
,CHECK TO SEE IF USER RESPONSE WAS ~lTHIN LIMfTS
;G~T THE ANSkER TYP~D
MOV
CSP)+,RO
: IS l'HF, ,...JU~lBlR TOO HIGH?
CMP
Ra,.e.

PRG4C:

017733

000010

MAINDf,C.', -oZDLC-R
MACY11 30( 104&)
12-JUL-77
PAGE 34
10102
06- M AY.77 10104
TgST TU TURN AROUND WORST CASE PATlERN
DZDl,CB.Pll
T25
1599
'590
1~91

1592
1593
1594
1595
1596
1597
11598
1599
1600
16('1
1602
1603

1604
Ib05
1606
1607
1608
1609
1610
1611
1612
1613
1614
1615
1616
1617
161 e
16'9
1620
1621
1622
1623
1624
1625
1626
1627
1629
1629
1630
1631
1632
1633
1634
1635
1636
1637
1638
1639

007214
007776
0(7)02
007304

101060
020027
103455
010067

CIl7310
007]16

OfJ7324
007330
007332
007136

016767
162767
005767
001402
004767
004767

171666
000002
171651;

007342
007346
007350

104401
104000
052777

017120
00000'

171632

007356

016777

171622

171616

171724

PHI
CMP
BLO
MOV

REDOH

MOV

STMPO, STMP3
#2, STMP]
$TMP2
2$
PC,STALL
PC,TIMETX

RO,.5,
RED03A

RO,STMP15

:IY YES - GO TO RETRY SITUATION
,IS THE NUMBER TOO LOW?
ITE YES - GO TO RETRY SITUATION
: Tlig VALUE TYPED IS OK
; STORE FOP FUTURE,; USE

171672
171664

SU~

\&.

004246
004352

2S.

TST
BE",
JSR
JSR
TYPE
eRROR
BIS

, XDB

~1OV

STMP1,@STMPO

JSR

PC,TIMERX

TYPE
ERROR
MOV

,POB
+0
STMP 3, S TMP4

004306
017167
171606

171606

007404

162767

00000'2

171600

SUB

#2, STMP4

171574

MOV

@8TMP4,STMP5

JSP

PC,DATCHK

BR
TYPE
JMP

1$
,SQUES
PRG4A
$QUES

171574

004767

004326

007424
007426
007432
007436

000737
104401
000167
104401

001252
177456
001252

007442

000167

177612

RED031

RED03AI TYPE,
JMP

RANDOM STALL?

;XCSR DONE SIT NEVER

104401
104000
016767

017767

~E

,BRANCH I f IT WAS~·T DESIRED
,GO STALL RA~DOM VA LUg OF MSEC,
,GO .AIT FOR TRA~SMITTER DONE
IBIT TO SET
,TYPE T"ANSMITTER DONE BIT MESSAGE
,SET THE MAINTENANCE aIT IN THE
,TRANSMITTER CONTROL STATUS REGISTER
,LOAD TRANSMITTER DATA BUffER
,Wl'rH SELECTED CHARACTER
1 GO WAIT FOR RECEIVER OON~: BIT
ITO SET
,TYPE RECEIVER DONE BIT MESSAGE
,RCSR DONE BIT "EVER SET
IGET THE TRANSMITTER CONTROL
,STATUS REGISTER ADORESS
IrORY THE RECEIVER DATA BUfFER
,ADDRESS
,STORE THE CHARACTER FROM THE
IRECEIVER BUFFER + PEST Of CONTENTS
IGO TO COMPARE EXPECTEO & RECEIVED
;DATA
IGO BACK TO ISSUE ANOTHER CHARACTER
ITYPE A QUESTION MARKC?)
IREITERATE THE XDBR QUESTION TO USER
;TYPE '1' INDICATING USER TYPED
,SOMETHING WRONG FOR CHARACTER LENGTH
IGO BACK TO REISSUE QUESTION

004767

007420

;DO

'BIT2,~$TMP3

007370
007374
007376

007412

IGET THE <12>/E"D .PA8S "

000043
,S8TTL

SCOPE HANDLER POUTINE

,,0THIS
,*--*••••
--••••••••••••••••• _----, ••• _--.,••••• _------.*---••••POUT IN! CONTPOLS THE LOOPING or SU8TESTS, IT WILL INCPEMENT

,UND LOAD THE TEST NUMBEPUTSTNM) INTO THE DISPLAY REG,(DISPLAY<1I0»
,UNO LOAD THE ERPOR FLAG (U:~FLG) INTO DlSPLAY<15101>
,*THE SWITCH OPTIONS PPOVlDED BY THIS ROUTINE AREI
,*SWI4=1
LOOP ON TEST
,*SWll-l
INHIBIT ITERATIONS
,*SW09=1
LOOP 0lI EPROP

MAINDEC-II-0ZDLc-e
MACYlI 30(1046)
12-~UL-77
10102 PAGE 19
DZDLCB,PII
06-~AY-77 10104
SCOPE HANDLER ROUTINE
1869
1810
1811
1872
1873
1874
1875
1876
1877
1818
1879
1880
\881
1882
1883
IH4
1885
1886
1881
1888
1889
1890
1991
1992
1893
1894
189~

1896
1897
1899
1899
1900
1901
1902
1901
1904
1905
1906
1907
1908
1909
1910
1911
1912
1913
1914
1915
1916
1911
1918
1919
1920
1921
1922
1923
1924

,-SWOB=I
,·CALL

,*
0104'6
0'0476
010504

032777
0011\1

1110506

000416

010510
010514
010522
010526
010532
OIOS34
010536
010542
010544
010544
010552
010554
010562
010564
010570
010572
010600
010602
010610
0'0612
010620
010622
010626
010632
010634
010642
010644
010650
010652
010656
010664
010666
010674
010702
010706
010712
01 0716
010722
010730
010736
01'>742
010744

0\3746
012737
005137
012637
000463
022626
012637
000423

000004
010534
177060
000004

032777
001404
127767
001462
105767
001421
126761
101015
032777
001404
016767
000441
105067
005067
000415
032777
001011
005167
001406
005267
026161
002021
012761
016167
105267
011661
011667
005061
112761
016177
016716
000002
000100

000400

110]66

170360

170320

040000

170434

000004

000004

170313
170317

17030]

001000

170330

170272

170266

170255
170410
004000

170276

17023n
170226
170360
000001
000044
170174
170174
170112
170322
onOOOI
170146
170144

170720
170210
170340

170165
170204

LOOP ON TEST IN SWR<7,O.
If SCOPE: 1 OT

SCOPE

esCOPE.
;,LOOP ON PRESENT TgST?
BIT
'BITI4.~SWR
lSI
8NE
SOVER
"YES IF S"14=1
,,, "!START Of' CODE FOR THE XOR TESTERU."
I,IF RU_NING ON THE "XOR" TESTER CHANGE
SXTSTR. BR
6S
;,THIS INSTRUCTION TO A "NOP" (NOP=240)
MOV
"SAVE THE CO'T~NTS or THE ERROR VECTUR
UERRVEC.-(SPI
., . . . . ERRVEC
;,SET FOR TIMEUUT
MOV
;,TIME OUT ON XOR?
TST
"177060
MOV
(SP)+."ERRVEC ;,RESTORE THE ERROR VECTOP
"GO TO THE NEXT T~ST
8R
SSVLAO
(SP) •• (SP)+
"CLEAR THE STACK ArTF-R A TIME OUT
CMP
5 ••
MOV
(SP) . . . . ERRVEC
;,RESTORE THE ERROR VECTOR
;, LOOP ON THE PRESE"T TEST
BR
7$
UIl . . . . . EIlD OF CODE FOR THE XOP TESTER . . . . .
;,LOOP ON SPEC, TEST?
BIT
'BIT08.~SWR
BEQ
"BR IF NO
28
CMPB
:,ON THE PIGHT TEST?
SWR<1,0>
t5WR.STSTNM
BEQ
:,8R IF YES
SOVER
;,HAS AN ERROR OCCURRED?
TSTB
SERFLG
28.
BEQ
iJbR tr NO
3S
;,MAX, ERRORS FOR THIS TEST OCCURRED?
C.PB
IERHAX. SERFLG
,,8R
IF NO
BMI
38
;,~OOP 0'" EPROR?
I8rT09. t5WR
BIT
BEQ
:,8~
If
NO
41
;,SET LOOP ADDRESS TO LAST SCOPE
8LPERR.SLPADR
781
"'OV
'OVF.R
BR
;jZERO THE FRROR fLAG
CLRB
SERrLG
48.
"CLEAR TH~ NUMBE:R OF IrERATIONS TU MAIlE
STIMES
CLR
;,ESCAPE TU THE NEXT TEST
BR
IS
;,INHIBIT IT~RATIONS?
BIT
#BITII.'SWR
8NE
IIBP IF YES
IS
:,IF FIRST PASS OF PROGRAM
TST
SPASS
BEQ
INHI8IT ITE~ATIONS
18
;rlNCRE~E"T ITERATION COUNT
SICNT
INC
nCHECK THE: NU"SEP OF ITERATIONS .A~E
CMP
STIMES.SICNT
;;BR IF MORE ItERATION REQUIRED
BGE
SOVER
;,REINITIALIZE THE ITERATION COU.TE"
.OV
H.SICNT
IS.
;:SET NUMBER OF ITE.AIIONS TO DO
HOV
SMXCNT.STINES
;:COU~T lEST ~UMB~RS
$SVLAO. I NCB
$TSTNM
; ,SAY!: SCOPE LOOP ADDRESS
~OV
(SP)'SLPADR
:,SAVE ERROR LOOP ADDRESS
MOV
(SP)'SLPERR
;,CLEAR THE ESCAPE FROM ERROR ADDRESS
CLR
$EsCAPE
;,ONU ALLOW ON~:CIJ ,:RROR ON NEXT HSl
MOVB
#\. SERMAX
;,DISPLAI
TEST NUMBER
ITSTNM.
~DISPLA
Y
.OVER. MDV
i,FUDGE RETUR~ ADDRESS
MOV
SLPAOR. (SP)
RTI
"fIXES PS
'J~AX. NUMBEP or ITERATJONS
•• XCNTI 100
,SBTTL

ERROR

JjA~OLER

ROUTINE:

,,-** •• -•••••• *_ ••• -* •••• -••••• _.* •. * •• _••••••••••• -•• ***********

MAINDEC-II-oZDLC-B
MAcn I 30 (1046)
Il-~UL-77
10 I 02 PAGE 40
DZDLca,Pl1
06-MAY-77 10104
ERROR HANDLER ROUTINE
1925
1926
1927
1925
1929
1930
1931
1932
1933
1934
1935
1916
1937
1938
1939
1940
1941
1942
1943
1944
1945
1946
1947
1948
1949
1950
1951
1952
1953
1954
1955
1956
1957
1958
1959
1960
1961
1962
1963
1964
1965
1966
1967
1968
1969
1970
1971
1972
1973
1974
1975
1976
1977
1978
1979
1980

:.THIS ROUTINE WILL INCREMENT THE ERROR FLAG ~I'D THE. ~RRQP COUNT.
,.SAVE THE ERROR ITEM NUMBER AND THE ~DOR';SS 0,' T~E I:.RROR CALL
I.AND GO TO IERRTYP ON ERROR
,OTHE S~ITCH OPTIONS PROVIDED BY THIS ROUTINE AR~'
,.SWIS_I
HALT ON ERROR
I*SWI3-1
INHIBIT ERROR TYPF.QUTS
,*SWIO-\
BELL ON ER~OR
,*SW09=1
LOOP ON ERROR
,*CALL
,.
ERROR
"ERROR:~"T AND N=~RROR ITE" NUMBER
010746
010746
010752
010754
010762
010770
010772
010776
01\002
011006
011014
011022
011030
011032
011036
011042
011042
011046
011050
Oil 052
011060
011062
011066
011072
011074
011100
011100

105267
001775
016777
032777
001402
104401
005267
011667
162767
117767
032777
001004
004767
104401
005777
100001
000000
032777
001402
016716
005767
001402
016716

170111
170122
002000

170160
110150

00\246
1701\0
1701\0
000002
170076
020000

170102
170072
170110

$ERROR I
781
INCB
BEQ
MOV
BIT
BEQ
TYPE
1$:
INC
MOV
SUB
MOVB
BIT
SNE
~SR

000044
00125]

TYPE
2081
2"

170072
.001000
170022
170152

170060

3'1

TST
BPL
HALT
BIT
SEQ
~OV

481

170144

TST
BEQ
MOV

IERFLG

7.
eTSTNM.PDISPLAY
UIT10.UWR
\8
•• BELL
8ERTTL
(SP).$ERRPC
.2 •• ERRPC
"ERRPC, SI TEMB
IBITIl.fSWR
'
201
PC.IERRTYP
.ICRLF
8SWR

3.
UIT09.UWR
48
8LPERR. (SP)
• ESC APE
58
SESCAPE. (SP)

;,SET THE ~RROR YLA ..
; ,DON'T LET THE FLAG GO TO ZERU
: ,DISPLH lES.T NUMBER AND ERROR FLAG
"BELL Oh ERROR?
SKIP
; 'RING .8thL
: ,COUNT THE ~UM~~R Of ~RRORS
"GET ADDRESS OF ERROR INSTRUCTION

",W -

"STRIP A"O SAVE THE ERRUP ITEM CODE
"SKIP TYPEOUT IF S~T
;,SKIP TYPEOUTS
; ,GO TO USER ERROR ROUTINE
: I HALT ON ERROR
:,SKIP IF CONTI"UE
;,HALT ON ERROR I
"LOOP ON ERROR SWITCH SET?
: ,BR IF NO
"FUDGE RETURN FOR LOOPING
; ,CHECK FOR AN ESCAPE ADDRESS
"SR IF NOHE
;,FUDGE RETUN' ADDRESS FOR ~SCAPE

511
RTI

000002
,SBTTL

, 'RETURN

ERROR MESSAGE TYPEOUT ROUTINE

" •••••• * •••••••• ** ••••••••• ***.** •• ******.** •••• ***** •• *.*.*****

,*THIS ROUTINE USES THE "ITEM CONTROL BYTE" ($ITEMB) TO DETERMINE WHICH
,*ERROR IS TO BE REPORTED, IT THEN OBTAINS. FROM THE "ERROR TABL~' (S~RATB),
,.ANO REPORTS THE APPROPRIATE INFORMATIUN CONCERNING THE ERROR,

SERRTYPI

011\02
0lH02
Ollt 06
Oil 110
01\11l
Oil 116

104401
010046
005000
153700
001004

001253

0\1120

016746

167772

011124

104402

001114

UPE
MOV
CLR
BlSB
BNE
MOV
TYPOC

•• CRLF
RO.-(SP)

RO
'UITEMB.RO
11

,,"CARRIAGE RETURN" , "LINE FEEO"
;,SAVE RO
;,PICKUP THE ITEM INDEX
;,IF ITEM NUMBER IS ZERO. ~UST
II TYPE THE PC OF THE ERROR
"SAVE ,ERRPC FOR TYPEOUT
"ERROR ADOIIESS
.
IIGO TYPE··OCTAL ASCII(ALL DIGITS)

MAINDEC'II'OZDLC'B
MACYII 30(1046)
12-JUL-77
10.02
PAGE 41
DZDLca,PII
06-MAY-77 10,04
ERROR MESSAGE TYPEOUT ROUTINE

198 I
1982
1983
1984
1985
1986
1987
1988
1989
1990
199 I
1992
1993
1994
1995
1996
1997
199"
1999
2000
2001
2002
2003
2004
2005
2006
2007
200e
2009

o \I I 26
011130
011132
01 I I 34
011136
011140
011144
011150
u, I 152
011154
011156
011162
011166
01 I \10
011172
01117 4
01'200
011202
0" 204
011206
011212
0112'4
n11214
011216
(111220
011222
011224
011230
(} 1 t 7.32

20tO

000426
005300
006300
006300
006300
062700
012067
001404
104401
000000
104401
012067
001404
104401

I'"
001310
000004

2S.
001253
000004

lSI

45.

OOO(JQO

104401
011000
001004
012600
104401
000207

001253
58.
68,
001253

BR
DEC
ASL
ASL
ASL
ADO
MOV
BEQ
TYPE

,GET OUT
,ADJUST THE INDEX SO THAT IT WILL
,
WORK FOR THE ERROR T~BLE

6a
RO
RO
RO
RO
UERRTB. RO
(RO) •• 2e

:,rORM TABLE POINTER
:IPICKUP "~RROR MESSAGE" POINTER

3G

,:SKIP TYPEOUT IF NO POINTER

.wORD

o

TYPE
MOV
BEQ
TYPE
.WORD
TYPE
MOV

,aCRLF
(RO)+.4S

58

o
, SCPLF
CRO) ,RO

B~E

7S

MDV
TIPE
RTS

CSP).,RO
, SCRLF
PC

MOV
TYPOC
TST
BEQ
TYPt
BR
,ASCIZ
,EVEN

@(M).,-(SP)

1JTYP£ THE "ERROR MESSAGE"
,,'ERROR MESSAGE" POINTER GOES HERE

f,"CARRIAGE RETURN" , "LINE FEED"
"PICKUP "DATA HEADER' POINTER
"SKIP TYPEOUT IF 0
"TYPE THE 'DATA HEADER'
,,'OATA HEADER' POI'TER GOES HERE

J,"CARRIAGE RETURN" & "LINE FEED"
"PICKUP "OATA TABLE" POINTER
"GU TYPE THE
"RESTURE RO

D~TA

:,"CARRIAGE AETURN" & "LINE FEED"
" RETURN

7S,
013046
104402
OO~710

001770
104401
000771
020040
01 1236

011232
8a,

000

2011
2012
2013

,SBTTL

~014

(RO)
68
.9S
7$
I

"SAVE ~[RO)' rOR TYPEOUT
"GO TYPE"OCTH ASCll(ALL DIGITS)
"IS THERE ANUTHER NUMBER?
nBR If NO
"TYPE TwO(2) SPACES

;,LOOP
"T.OC~)

SPACES

BINARY TO OCTAL (ASCII) AND TYPF

J , *************************.*********************** **** **********
"THIS ROUTINE IS USED TO CHANGE A 16-aIT BINARY NUMBER TO A 6-DIGIT
"OCTAL (ASCII) NUMBER AND TYPE IT,
,'STYPUS···ENTER HERE TO SETUP SUPPRESS Z~ROS AND NUM8~R OF DIGITS TO TYPE

2015
20t b

20,7
2018
2019
2070
2021
2U22
2023
2024
2025
2026
2027
202"
2029
2030
2031
20]2
2033
2034
2(135
2036

;*CALLt

,"
,"
"
"

MOV
THOS
,BYTE

,BYTE

N
M

"
,"
,"
'.STYPON····ENTER

"NUMBER TO BE TYPED
"CALL FOR TYPEOUT
"N=I TO 6 FOR NUMBER OF DIGITS TO TYPE
IIM=I OR 0
:,I=TYPE LEADING ZEROS
"O=SUPPRESS LEADING ZEROS

HERE TO TYPE OUT WITH THE SAf.\E PARAMETERS AS THE LAST
"ST!POS OR 8THOC
,"CALL,
MOV
NUM,-CSP)
;;NUMRER TO bE TtPED
TYPON
"CALL FOR TYPEOUT

"
""STYPOC--·ENTER
""CALL.

,"
,"

HERE FOR TYPEOUT OF A 16 SIT NUMBER

MOV
TYPOC

: f rlUM8ER TO BE TYPEO

"CALL FOR TYPEOUT

MAINDEC'II'OZDLC-B
MACYI I 30(1046)
12'JUL-77
10,02
PAGE 4~
DZDLca,Pl1
06-"AY-77 10.04
BINARY TO OCTAL (ASCII) AND TYPE
~037

2038
2039
2040
~041

2042
2043
2044
2(145
2046
21)47
2041=1
'1.049

2050
~05 I
2052
2053
2054
2055
2056
2057
~05B

2059
20~0

2061
2062
2063
2064
2065
~066

2067
~06e

2069
2070
2071
2072
~073

2074
~075
~076

2077
207B
2079
~ORO

20R I
~082

2083
~084

20B5
20B6
20B1
~088

011236
011242
01125Q

011254
01 1260
0' 1262
011270
Oll276
011304
011306
011]10

U11312
011316
01 I 320
011324
011)30
011334
011 140
011342
011344
011346
011350
011352
01 I 354
o I 1356
011360
011364
011366
011372
01 I 374
011376
011400
011402
0\1406
011412
011416
01 1422
011426
011430
011432
011434
011436
011440
011442
011444
011452
011454
011456
011457
011460
011461
0\1462

01764&

nooooo

I I 6667
I I 2667
062716
00040b
112761
I 127&7
112767

000001
000207
000002

000211

000001
000006
000005

000171
000165
000154

1)10346
010446
01054&
116704
005404
06~704

110467
116704
016605
005003
006105
000404
006105
"06105
0061 O~
010503
006103
105367
100016
042703
001002
005104
001403
005204
05~703

052703
110367
104401
105367
003347
002402
005204
000744
012605

$TYPOS.

MOVS

ADD
BR
aTYPOC,

Mova

aTYPON.

Move

I-'tOVB

MOV
MOV
HOV

Mova

000145

Nf.G
ADD

000006
000132
000125
0000 I ~

MOVB
MOVS

MOV
CLR
ROL
SP
ROL
2$.
HaL
ROL
MOV
ROL
DEca
BPL
BIC
BNE
TST
BEQ
48.
INC
BIS
BIS
MOVB
TYPE
78,
DECB
BGT
BLT
INC
BR
MOV
MOV
MOV
MOV
MOV
RTI
8S,
,8YTE
,BYTE
,BYTE
SOCNT'
,OFILL. ,BYTE
SOMODE. .WORD

ta:

000076
177770

000060
000040
000040
011456
000032

sa.

01~604

012603
016666
012616
000002
000
000
000
000
000000

,mv

Move

000n02

000004

@CSP).-(SP)
ICSP).SOFILL
(SP).,SOMODE'I
_2,(SP)
$TYPON
#I, SOFlLL
'6.S0MODE+1
o5,SCCNT
R3,-(SP)
H4.-CSP)
R5,-(SP)
$OMODE+I. R4
R4
'6,R4
R4. SOMODE
aOFILL, R4
12(SP).R5
R3
R5

38
R5
R5
R5
R5,R3
R3
SOMODE

78
U77770.R3
41
R4

58
R4
,., 0, R3
#. , R3
R3.BS

,Bs

SOCNT

2.
6a
R4

2.

(SP).,R5
(SP) •• R4
(SP)'.R3
2(SP).4(SP)
(SP)+,(SP)

"PICKUP THE MODE
"LOAD ZERO FILL SWITCH
" NUMBER or DIGITS TO TYPE
;: ADJUST RETURN AOD~ESS
"SET THE Z~RO FILL SWITCH
"SET FOH SIX(6) DIGITS
"SET THE ITERATION COUNT
"SAVE R3
"SAVE R4
"SAVE R5
"GET THE NUMBER OF DIGITS TO TYPE
"SUBTRACT IT FOR MAX, ALLOWED
"SAVE IT FOR USE

"GET THE ZERO FILL SWITCH
"PICKUP THE INPUT NUMBER
"CLEAR THE OUTPUT WORD

:,ROTATE Mse INTO "e"
:,GO DO MSB
"FORM THIS DIGIT

"GET LSB OF THIS DIGIT
"TIPt THIS DIGIT?
"BR IF NO
, ,GET RIO OF JUNK
J ,TEST

FOR 0

"SUPPRESS THIS 01
"BR IF yES
, ,DON' T SUPPRESS ANYMORE 0' 5
IIMAKE THIS DIGIT ASCII
"MAKE ASCII IF NOT ALREADY
"SAVE FOR TYPING
"GO TYPE THIS DIGIT
I,COUNT BY I
"BP IF MORE TO DO
"SH IF DONE
"INSURE LAST DIGIT ISN'T A BLANK
"GO DO THE LAST DIGIT
, ,RESTORE RS
"RESTORE R4
"RESTORE R3
I,SET THE STACK FOR RETURNING
11F1.ETURN
"STORAGE FOR ASCII DIGIT
"TERMINATOR FOR TYPE ROUTINE
"OCTAL DIGIT COUNTER
"ZERO FILL SWITCH
"NUMBER OF DIGITS TO TYPE

2089
2090
2091

,SBTTL

2092

rJ***************************************************************

CONVERT BINARY TO DtCINAL AND TYPE ROUTINE

MAINDEC-I1-0ZDLc-e
M'CYII 30(1046)
12-JUL-77
10,02
PAGE 43
azaLea,P11
06oMAY-?? 10104
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE
2093
2094
2095
2096
2097
2098
2099
2100
2101
2102
2103
2104
2105
2106
2107
210B
2109
2110
2111
2112
2113
2114
2115
2116
2117
211 B
2119
2120
2121
2122
2123
2124

"THI8 ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A SoOIGIT
,.SIGNED DEC IMAL (ABC II) NUMBER AND TYPE IT. DEPEND I NG ON WHETHER THE
,.NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
,*BErORE THE rIPST DIGIT OF THE NllMBER, LEADING ZEROS WILL ALWAYS BE
,"REPLACED WITH SPACES.
,-CALL,
,"
Mav
NUM,-(SP)
I,PUT THE BINARY NUM6gR ON THE STACK
J*
TYPOS
, ,GO TO THE ROUTINE
011464
0\1464
011466
011470
011472
011474
011476
011502
011506
011510
011512
011520
011522
011526
011532
011534
011540
011542
011544
(J II 546
011550
011552
011554

212~

011556

2126
2' 27
212B
2129
2130
2131
2132
2133
2134
2135
2136
2137
2138
2\J9
2140
2141
2142
2143
2144
2115
2146
2147
2148

0\1560
011562
011564
011566
0\1574
011600
011604
" 11606
011610
011614
01l6H
011620
011622
011624
011626
011630
011636
011640
011642
011644
(111646

011650
011652

srYPDS I
010046
010146
010246
010346
010546
012746
016605
100004
005405
112766
005000
012703
112723
005002
016001
160105
002402
DOS 202
000774
060105
005702
001002
1057t 6
100407
106316
103003
116663
052702
052702
110223
005720
020027
002746
003002
010502
000764
105726
100003
116663
105013
012605
012603
012602
012601
012600
104401

020200
000020
000055

000001
1S I

011700
000040

2S1
011670

4S.

581
000001
000060
000040

177777
6$1

7S.

000010

BSI
177777

177776
981

MDV
MDV
MOV
MOV
MOV
MOV
MOV
8PL
NEG
f40VB
CLR
MOV
MOVB
CLR
MOV
SUB
61,T
INC
BR
ADD
TST
BNE
TSTR
BMI
ASLB
BCC'
MOVB
BIS
BI5
MOVB
1ST
CMP
"LT
BGT
MDV
BR
TST8
BPL
MOVR
Cf.JRB

Mav
Mav
MOV
MOV
MOV
TYPF

01\700

RO, -(SP)
R1,-(SP)
R2,-(sP)
R3,-(SP)
RS,-(SP)
#20200,-(SP)
20(SP),R5

II PUSH RO ON STACK

"PUSH Rt ON STACK
l,PUSH R2 ON STACK
I' PUSH R3 ON STACK
:J PIJSH R5 ON STACK

I,SET BLANK SWITCH AND SIGN
I,GET THE INPUT NUMBER

IF INPUT IS POS,

IS

;J~R

RS
'-·,1(SP)
RO
UDBLK,R3
I' ,(R3)+
R2
SDTBL(Ra),R1

:,MAKE THE BINARY NUMBER

Rt, RS
4$
R2
l$

Rt, RS
R2
58
( SP)
7$
(SP)
68
I (SP),-1 (R3)
#,. 0, R2
"
, R2
R2,(R3)+

+

;rMAKE THE ASCII

NU~8ER

I,ADD BACK THE CONSTANT
I,CHECK IF BCD DIGIT=O
I,FALL THROUGH IF 0
"STILL DDING LEADING O'S?
"BR IF YES
" MSD?
"BR IF NO

JJY£S·-SEr TrlE

SIG~

I,MAKE THE BCD DIGIT ASCII
I,MAKE IT A SPACE I" _OT ALREADY A

RO, '1(1

28

: r GO DO THE

BS

; ,GO TO lXIT
"G~T THE LSD

R5,R2
68
(8P)+
9$
-1(BP),-2(S3)
(R3)
(SP)+,R5
(SP)+,R3
(SP)+,R2
(SP)+,R1
(SP)+,PO
, SDBLK

OI~ll

: rPUT THIS CHARACTER IN THE OUTPUT qUfo'FJ::R

;,JUST INCREMENTING
;,CHKCK THE TAbLE INDEX

(RO)

pas.
NEG.

I,ZERO THE CONSTANTS INDEX
I' SETUP T~E O'lTPUT POINnR
:J SET THE fIRST CHARACTER TO A BLANK
I,CLEAR THE !>CD NUM~ER
"GET THE CO'STANT
I,FORM THIS BCD DIGIT
:J BR IF DUNE
I' INCREASE THE BCl' UIGIT BY 1

fJ~XT

DJGl T

:,Gn CHANGE TO ASCII
'I"AS THE LSD THE fiRST NON-ZERO?
"BR IF NO
;lY~S--SET

THE SIGN FOR TYPING

; ,SET
"POP
"POP
"POP

THE TEP!HNAHJH
STACK INTO R5
STACK INTU "3
STACK I"TO R2
;: pap STACK l1'ITO R1
;;POP STACK I~TO Po
; I NOw 'rYPI-; THE NUMBE.R

12-JUL-77
10.02 PAGE 44
MAINDfC-11-DZDLC-S
"ACYl 1 30(1046)
CONVERT BINARY TO DECIMAL AND TYP!' ROUTINE
06-MAY-77 10104
DZDLCB,P11
2149
2150
2151
2152
2153
2154
2155
2156
2157
2158
2159
2160
2161
2162
2163
2164
2165
2166
2167
216B
2169
2170
2171
2172
2173
2174
2175
2176
2177
217B
2179
2\80
2191
21B2
2183
2184
2U5
21B6
2187
2188
2189

2190
2191
2192
2193
2194
219S
2196
2197
219B
2199
2200
2201

2202
220]
2204

011656
011664
011666
011670
011672
011674
011676
011700

016666
012616
000002
023420
001750
000144
000012
000004

000002

r~av

000004

2(SP),4(SP)
(SP)+'(SP)

GDBLKI

Mav
RT!
10000.
1000.
100,
10,
.BLKW

,8BTTL

TTY INPUT ROUTINE

GDTBLI

"ADJUST THE STACK
~

,RETURN TO USr.R

Jr·**************************************************************
,ENABL

LSB

,DSABL

LSB

,.***************************************************************
,*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY
,"CALL,
"INPUT A SINGLE CHARACTER FROM THE. TTY
ROCHR
; ,CHARACTER IS ON THE STACK
RETURN HERE
I"
~,wITH PARIT! BIT STRIPPED OFF

,"
,,"
011710
011712
011720
011724
011726
0117)4
011742
011750
011752
011756
011760
011764
011770
011774
011776
012000
012006
012010
012016
012020
012026

011646
016666

000004

105777

167220

100375
117766

042766
026627
001013
105777
100375
117746
042716
022627
001366
000750
026627
002407
026627
003003
042766
000002

167214
177600
000004

000002
000004
000004
000023

167166
167162
177600
000021
000004

000140

000004

000175

000040

000004

$RDCHR. MOV
MOV
\$,
TSTB
BPL
MOVB
RIC
CMP
BNE
TSTB
28.
BPL
MOVB
SIC
CMP
BNE
BS
3$,
CMP
BLT
CMP
BGT
BIC
RTI
4$1

(SP),-(SP)
4[SP),2(SP)
@STKS
\8
UTKB,4(SP)
'·C·I77>,4(SP)
4(SP),'23
3$
@$TKS
28
@8TKB,-(SP)
#-CI77.csP)
(SP)+.#21
28

; 1PUSH DUWN THE PC

;,SAVE

TH~

PS

;JwAIT FOR
"A CHARACTER
I,PEAD THE TTY
I,GET RID OF JUNK If A'Y
"IS IT A CONTROL-S?
"HRA"CH IF NO
"wAIT FOR A CHARACT.P
I,LOOP UNTIL ITS THgRE
I' GET CHARACTgR
"MAKE IT 7-BIT ASCII
"IS IT A CONTROL-Q?
I,IF ~OT DISCARD IT
RESU~E

IS

; 1 YES,

4(Sf),8140
4$
4(SP), U 75
4S
#40,4(SP)

"IS IT UPPER CAS~?
"BRANCH IF YES
"IS IT A SPECIAL CHAR?
"BRANCH IF YES
I,MAKE IT UPPER CASE
"GO SACK TO USER

r , **** ** ...... ****it*** .... * ** ..... * * .. * ****** ** ... ** ... * * *** ** *" * ***** ***** ... "**

I*THIS ROUTINE WILL INPUT A STRING FROM THE TTY
,'CALL,
ROLIN
I,INPUT A STRING 'ROM THE TTY
RETURN HERE
"ADDRESS OF FIRST CHARACTER "ILL BE UN THE STACK
"HRMINA1'OR IIILL BE A BYTE OF ALL O'S

••
,"
012030
012032
0120H

010346
005046
012703

"

012264

$RDLHII MOV
CLR
MOV
13,

R3,-[SP)
-(SP)
UTTYIN, R3

"SAVE R3
" CLEAR TH~ RuaOUT KEY
" GET ADDRESS

HAINDEC-!!-DZDLC-B
MACY1! 30(104b}
12-JUL-71
10102
DZDLCa,Pll
Db-MAY-11 10104
TTY INPUT ROUTINE
2205
220b
2201
2208
2209
2210
2211
2212
2213
2214
2215
22lb

2211
2218
2219
22?O
2221
2222
2223
2224
2225
222&
2221
2228
2229
2230
2231
2232
2233
2234
2235
2236
2231
2219
2239
2240
2241
2242
2143
2244
2245
224b
2241
'224R

2249
2250
22S1
2252
2253
2254
2255
2256
2251
2258
2259
2260

012040
012044
012046
012050
012052
012056
012060
012062
012064
012072
012076
012102
0121 04
"'2110
012112
012116
012122
011124
012126
U12130
012136
0'2142
0121 44
012150
012152
012156
011160
0'2164
0121b6
012170
0121 74
012200
012202
flJ2206

012210
012214
012220
012224
fJt 2226
012232
012236
012240
012242
012244
DInS?
012260
012262
012263
012264
f112274
012301
012306
012314
012317
012324

022703
101456
104406
11261l
122113
001022
005716
001001
112767
10440 1
012116
005303
020327
103434
111361
10440 I
000746
005716
001406
112767
104401
005016
122113
001003
104401
000126
12271l
ODI011
105013
104401
104401
000711
104401
000712
111161
104401
12212l

012274

261

CMP
BLOS
RDCHR

000111

lOS!

CMPB
BNE
TST
SNE
MOVB
TYPE
MOV
DEC
CMP

Move

000134
012262
177177

000170
6S,

012264

B[,Q

MOVB
TVPE

000144
012262
5S1
000124

000025

79'

012274

as,

000022
001253
012264

49 I

001252
000046
012262
000015

0(11305

10506l
104401
005126
012603
011646
016666
012766

177771
001254

,9$
"SET THE RUBUUT

R3
R3, UTTYIN
48
("3l,9$
,9$

"STACK EMPTy?
"SF If n;s
"slTUP TO TYPEOUT THE DELETED CHAR,
I! GO TYPE

f,GO READ ANOTHER CHAR.
:,RUBOUT KEY SET?

MOVB
TYPE
CLR
CMPS
bNE
tyPE
6P
CMPB
BNE
CLRB
TnE
TYPE
BR
TYPE
BP
MOVB
TYPE
CMPB
BNE
CLRB
TYPE
TST

MOV
991

000

; J BR

005015
006501
053523
000
047040
000040

000
000012
U20122
051505

BTTYI"1 , BLf(,B
SCNTLU, • ASC IZ
SCNTLG, .ASCIZ
sM5WRr

,ASCIZ

$MNEWr

.ASCIZ

IF NO

• '" 9$

:,rYPE A BACK SLASH

as

"CLEAR THE RUBOUT KEY
:, IS CHARACTER. CTH U1
:rBR If' f'jO

, 9$
(SPl
125. (R3l

:,tYPE A CONTROL "Un

.SCNTLU
18
122'(R3l
3S
( Rll
,SCRLF
,&TTHN

"GO START OVER

:,15 CHARACTER A "-R"?
i,BRANCH IF "'0
: ,CLEAR THE CHARACTER

;ITYPE A nCR" , "LF"
1,'ftPE THE INPUT STRING

2.

"GO PICKUP ANOTHfR CHACTER
n1'YPE A '1'

,6QUe:S
1$

"CLEAR THE BUFFER AND LOOP
, ,ECHO THE CHARACTEP

(R3l,9$
,9$
#l5.(R3l.
28
-1("3)
,eLf'
(SP)'
(SP).,R3
(SPl,-(SPl
4(SPl.2{SP)
HTTYIN.4(SP}

; ,CIiECK FOR RF:TllfHl
~OT
RErUp'~

"LOOP If
; :CLEAR

RETURN
(THE

15)

"TYPE A LI"E FEED
: ,CLEAN PHeOUT K.EY
; J /-tt:STOPE k3

FRO""

THE

STACK

"ADJUST THE ATACK 'ND PUT ADDRESS Of THE
"
FIRST ASCII CHARACTER ON IT
"RETURN
"STORAGE fOR ASCII CHAR, TO TYPE

,SYTE

.PYTE

(100(110

KE~

BY ONE

1J~ACKUP

RTI

Ul)0002
000

052536
136
005015
020075
040
036440

'-',96
~-I'(SPl

2$

MOV

000004

(SP)., (Rll
>l77,(R3)
5S
(SPl
6S

(SPl
76

~,ov

000002

"BUFFER FULL?
"BR If XES
"GO READ ONE CHARACTER fROM THE TTY
, ,GET CHARACTER
"IS IT A PUBOUT
IrSR II" ~lO
,115 THIS THE fIRST RUBDOT?
"aR If NO
"TXPE • BACK SLASH

TST

MOV

000004
012264

#STTYIN+S, ,R3
48

BR

~Ea

000134
012262

PAGE 45

u

; r TFRMINA'rOR

6.
I"U/<12>
I"G/<15><12>
<15><12>/S.R

"RESERVE B

NEW

=

; ,CONTROL

~YTES

"un

fOR TTY I"PUT

:JCONTROL "G"
1

1

!

TSTB
BPL
HALT

DEC6
SI,T
JSR
orCB
SR

esr

"10'18

9S1

JSR
BITS
BNE
rST

000052

SR

STYPECI TSIB

166304

STpnG
1$

2377
2378

2379
2laO
2381
2382
2383
2384

012644
012646
012654
012662
012664
012670
012672
012700
012702
012704
012706

SCHARCNT
2&
PC. GrYPFC
&FILLC. (SP).
2&
GNULL.-(SP)
\(SP)
68
PC. STYPEC
GCHARCNT
7$

#.,

000002
000015

166276
000002

000014
000012

000002

BPL
MOVB
CMPB
eNE
CLRB
BP
lSI
CMp.
BEQ
INC.
sCHAPCNTl,WORO
STYPEXI RTS

, (SP)

PC. $TYPEC
#7. SCHARCNT

9S
(SPl+
26
@STPS

MACYlI 30(1046)
12-JUL-77
10102
06·.AY-77 10104
TYPE ROUTINE
100375
116677
122766
001003
105067
000406
122766
001402
105227
000000
000207

nSAVF. RO

TERMINATU~

;,RETURN

~AINDEC-l1.DZDLC·B

2375
2376

I,MESAOR IS FIRST ADDRESS Of AN ASCIZ STRING

,"

166463

012470
012474
012476
012500
012502
012504
012510
012512
012514
012516
012520
012524
012526
0125 3 2
012534
012540
0125 4 2
012544
0125 46
012550
012554
012556
012562
012566
012570

DZDLce,Pl1
237)
2374

PAGE 47

"BRANCH If NOT 
:;P(JP
POSITIVE 32767 TO NEGATIVE 3J7&8,
I"CALL.
,.
RODEC
"READ A DECIMAL NUMBER
1*
RETURN HE~E
'INU~BER IS ON TOP O. THE STACK

:
012710
012712
012720
012722
012724
012726
012730
012732
012736
012740
012742
012746
012750
012752
012754
012756
012762
012764
012770
01277 2
012776
013000
013002
013004
013006
013010
0\3012
013014
013020

011646
016666
010046
010146
010246
104407
012600
010067
005046
005002
122710
001001
112002
112001
001424
122701
003032
122701
002427
032716
001024
006316
011646
006316
006316
062616
102416
162701
060116

000004

000120
000055

000060
000071
170000

000002

,ROOECI MOV
MOV
MOV
MOV
MOV
IS:
POLIN
MOV
MOV
CLR
CLR
CMPB
BNE
MOVB
2$1
MOVB
BEQ
CMPB
BGT
CMPB
8LT
BIT
BNE
ASL
MOV
A5L
ASL
ADD

ave

000060

SUB
ADD

(SP)'-(SP)
4(SP).2CSP)
RO.-(5P)
RI.-(SP)
R2.-(SP)
(SP)+.M
BO,68
-(SP)
R2
II '-, (RO)

2S
(POH.R2
(Ml+,Rl
3$

.'O,Ri
58

"PROVIDE SPACE FOR
"THE INPUT NUMBER
, , PUSH RO ON STACK
"PUSH Rl ON STAC~
"PUSH R2 ON STACK
"READ AN ASCIZ LINE
:IADDRESS OF 1ST CIAR,
"SAVE INCASE OF BAD INPUT
"CLEAR DATA WORD
"SIGfl SET POSITIVE
'I SEE IF A MINUS SIGN wAS TYPED
"BR IF NO MINUS SIGN
"SAVE FOR LATER USE
"PICKUP THIS CHARACTER
:, GET OUT IF ZERO
"MAKE SURE THIS CHARACTER
, ,IS A DIGIT BETWEE_ 0 & 9

"9,Rt

5.

,'C7777, (SP)
58
(SP)
(SP),-(SP)
(SP)
(SP)
(SP)., (SP)
58
• '0, Rl
RI, (SP)

"DON'T LET NUMBER GET TO BIG
"SP If NUMBER WOULD OVERfLOW
JJ *2
"SAVE FOR LATER
11*4
S • *8"

,,*10.

"OVERFLOW ISN'T ALLOWED
"STRIP AWAY THE ASCII JUNK
"ADD IN THIS DIGIT

MAIND~C·ll·DZDLC-B

DZDLCB.Pll
24?9
2430
2431
24 ]2

2433
2434
243~

2436
2437
243S

MACYlI
Ob-MU-n 10'04

013022
013024
013026
013010
013032
013034
013040
0130 42
0130 4 4
0130 4 6

102412
000752
005702
001401
005416
012666
012602
012601
012600
000002

011050
013052
011054
013056
01 l060
013064

005726
105Ul0

30(1046)

12-JUL-77
10,02
PAGE 49
READ A DECIMAL NU"BER FPOM THE TTY

4S,

000012

"OY~RrLO"

ISN'T ALLOW~D

BVS
BR
TST
SEQ
NEG
MOV
MOV
MOV
MOV
RTI

5$
28
R2
48
(SP)
(SPl+,12(SP)
(SP).,R2
(SP)., Rl
(SP).,RO

TST
CLR8
TYPE
,WORD
TYPE
BR

(SP).
(RO)

~ ,SET

a

"TYPE THE INPUT UP TO 8AD CHAR,
"POINTER GOES HERE

,SQUES
1$

11"1" "CR n &tlLf"
"TRY AGAIN

; ,LOOP
; ,CHECK If'

"UMB~R

IS NEG

~.8:RrrNO

;,IES--NEGATE THE NUMBER
;,SAVE THE RESULT
"POP STACK INTO R2
"POP STACK INTO RI

:,POP STACK INTO RO
"RETURN

2439
2440
2441

2442
2443
2444
244~

581

1~4401

uooooo
104401
000720

6$,
001252

1446
2447

,SBrTL

IICLEAN PARTIAL NUMBER FROM STACK
A TERMli'fATOP

TRAP DECODER

244~

2449
2450
2451

r , ********tI-*******.************ ********************* *************

I*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TPAP' INSTRUCTION
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
,-OF THE ~ESIRED ROUTINE, THEN usr.G THE ADDRESS OB7AINFD IT WILL

2452
2453
2454
2455
2456
2457
2458

2459
2460
24b I

,*GO TO THAT ROUTINE,
013066
IJ13070
0130 74

013076
UIlIOO
013102
013106

010046
016600
005740
111000
OOb lOa
016000
000200

STRAP'
000002

Olll22

RO,-(SP)
2(SP),PO
-(RO)
(RO), RO
RO
,TRPAD(RO) ,PO
RO

MOV
HOV
TST
MOY8
ASL
MOV
RTS

;JSAVE RO
; ,GET TRAP ADDRESS
"BACKUP BY 2
"GET RIGHT BYTE OF TRAP
;,PUSITION FOR INOEXlNG
~

J INDEX TO TASLF'

; ,GO TO ROUT l"E

1462
2463
2464
2465
2466
2467
246B
2469
2470
2471
2472

"THIS IS USE TO HANDLE THE "GETPRIP MACRO
ot 3t 1 0
3\ 12
013120

1)\

U 11646
016666
000002

000004

,SBTTL

24~O

24BI
2482
2483
24Q4

~JMOVE

THE

Fe

O()~N

PS~

DO~N

THIi.. PSw

TRAP TABL,:

,*BY THE PTRAP"

T~E

STARTING ADDR"sSES

or

T"E

~OUTI"ES

CALLED

INST~UCTION.

I

013122
013124
01312b
013130
013132
013134

Ollila
012470
011262
011236
011276
0\1464

STFl:PADt

,WORD

STYPE
$T¥POC
STYPOs
STiPON
$TYPDS

12-JUL-77
MAINDEC-II-OZDLC-B
MACYII 30(1046)
06-MAY-77 IO,U4
TRAP TA8LE
DZDLCR.PII
24A5
2486
24R7
24AA
2499
2490
2491
2492
249 J
2494
2495
2496
2497
2498
2499
2500
25UI
2502
2503
25U4
25U5
2506
2507
2508
2509
2510
2511
2512
2513
2514
2515
2516
2517
2518
2519
2520
2521
2522
2523
2524
2525
2526
2527
2528
2529
2530
2531
2532
2533
2534
2535
2536
2537
2538
2539
2540

; : r10VE THE

:, RF:5TORE

,>THIS TABLE CONTAINS

247l
2474
2475
2476
2477
247B
2479

(BP),-(SP)
4(SP),2(SP)

8TRAP2\ MOV
MOV
HTI

013136
o I l t 40
013142
UIlI44

10:02

SRDCHR
SPOLIN
SRDOCT
SRDDEC

011710
012030
012330
012710
,SBTTL

STRAP2
, ,CALL=TYPE
, ,CALL=TYPOC
, ,CALL=TYPOS
I,CALL-TYPON
, ,CALL-THDS

TRAP+I (104401)
1RO"+2(104402)
TRAP+3 (104403)
TRAP.4(104404)
TRAP+5 (I 04405)

TTY HPE~UT ROUTINE
TYPE OCTAL NUMBER (Wl'lH LEADING ZEROS)
TYPE OCTAL NUMBER (NO L~ADING ZEROS)
TIPt OCTAL NU"BER (AS PIR LAST CALL)
TYPf DECIMAL NUMBER (wiTH SIGN)

PAGE 50

, I C ALL-ROCHP
, ,CALL.RDLIN
, ,C ALL=RDOCT
"CALL_RDOEC

TRAP+6 (I 04406)
TTl TYPEIo CHARACTER HOUTINE
TRAP+7 (104407)
TTY TYPEIN STRING ROUTINE
TRAP+l0(04410) READ AN OCTAL hUMBER rRwM TTY
TRAP+l1(104411) READ A DECIMAL NUMBER FROM TTY

POWER DOWN AND UP ROUTINES

Jr····***·***·****_·***********-···************·*****************

U\3146
013154
0131 62
013164
013166
013170
013\ 72
" I l l 74
OIl! 76
013202
013206
013214
013216

0127 ]7
012737
010046
010146
010246
010346
a 10446
010546
017746
010667
012737
000000
000776

013312
000340

000024
000026

165736
000110
013220

000024

013220
013226
013232
013236
013242
013244
013250
013252
013254
013256
013260
013262
013264
013272
013300
013302
013304
013306
013310
013312
013314
013316
013]10
013326

012737
016706
005067
005267
001375
012677
012605
012604
012603
012602
012601
012600
012737
012737
104401
013320
012716
001772
000002
000000
000776
000000
005015
000122

013312
000064
000060
000054

,POWER DOWN ROUTINE
MOV
#SILLUP,@IPWRVEC "SET FOR fAST UP
Mav
1340, UPWRVEC+2 :rPR1OI7
MOV
RO,-(sP)
II PUSR RO ON STACK
MOV
RI,-(SP)
II PUSH Rl ON STACK
MOV
R2,-(SP)
I,PUSH R2 ON STACK
MOV
R3,-(SP)
n PUSH P3 ON STACK
MOV
R4,-(sP)
;,PUSR R4 ON STACK
MOV
R5, -(SP)
; I PUSH R5 ON STACK
MOV
@SWR,-(SP)
"PUSH @SWR ON STACK
MOV
SP,SSAVP6
:,5AVE SP
MOV
UPWRUP,@IPWRVEC "SET UP VECTOR
HALT
8R
.-2
" HANG UP

$PWRONI

JJ***************************************************************

000024

165670

013146
000340

000024
000026

047520

042527

IPOWER UP ROUTINE
UILLUP,@#PWRVEC Il SET FOR fAST DOWN
sPWRUPI MOV
MOV
6SAYR6,SP
"GET SP
; I WAIT LOOP FOR THE TTY
CLR
SSAVR6
;, WAIT FOR THE INC
INC
1 $1
$SAVR6
SNE
WORD
15
nOF
MOY
(SP).,PSWR
"pap STACK INTry @SWR
MOV
(SP).,R5
"POP STACK INTO R5
MOV
(SP).,R4
"POP STACK INTO R4
MOV
(SP).,R3
"POP STACK INTO R3
MOV
(SPI., R2
"POP STACK INTO R2
MOV
(SP)+, RI
"POP STACK INTO RI
MOV
(SP)+,RO
IIPOP STACK INTO RO
MOV
UPWRDN, UPWRVEC , J SET UP THE POWER DOWN VECTOR
MOV
#340,@IPWPVEC+2 "PRIO,7
TYPE
,REPORT THE POWER FAILURE
sPWRMG, ,WORD
8 POWER
"PowER FAIL MESSAGE POINTER
MOV
(PC).,csP)
I,RESTART AT RESTRT
sPWRAD, ,WORD
RESTRT
"RESTART ADDRESS
RTI
SILLUP, HALT
I,THE POWER UP SEQU~NCE WAS STARTED
,-2
BEFORE THE POWER DOWN WAS COMPLETE
BR
$SAVR6, 0
I,PUT THE SP HERE
8POWER, ,ASCIZ <15><12>'POWER'

"

,EVEN

Jr·_·****·******·**-***********·**·_·*************-**************

,TRANSMIT INTERRUPT SERVICE ROUTINE FOR 256, BYTE BLOCK TRANSFERS

J'****.*** ••••• _*.**_.** •• * •• * •• ***-*.**._***-**-*.**-***********

013330

105777

166060

XINTI

TST8

~OLXCBR

:"RE:ADY" SET 11

~ACYII 30(1046)
MAINDEC-II-OZOLc.e
DZDLCa,Pl1
06-MAY-77 10.04

2541
2542
2543
2544
2545
2546
2547
2548
2549
2550
2551
2552
2553
2554
2555
2556
2557
2558
2559
2560
2561
2562
2563
2564
2565
2566
2567
2568
2569
2570
2571
2572
2573
2574
2575
2576
2577
2578
2579
2580
2581
25~2

2583
2584
2585
2586
2587
2588
2589
2590
2591
2592
2593
2594
2595
2596

013334
013)36
013]44
013350
0\3354'
013362
013370
013372
013400
013402
013410
013414

12-JUL-77 10.02 PAGE 51
DOWN AND UP POUTINES

POWE~

BMI

100416
013767
010667
005167
042777
042777
000411

177776
165626
166046
000100
000100

166026
166024

022767

021660

166032

001405
117777
005267
000002

166024
166016

166006

165636

UPSW,ITMPO
SP,8~EG6

B~

\8.

281

\I

~OV

MOV
COM
BIC
BIC
CMP
BEQ
MOVB
INC
RT!

XFLGO
1\ 00, 'DLPCSP
1100, PDLXCSP
28
.DLBUFl,OPTP
21
'OPT~,'DLXDBR
OPT~

:ap IF YES
:SAVE THE ER~OR psw
,SAVE THE EPROR STACK POINTER
,SET XMlf SOFTwARE ERRO~ FLAG
,TURN OFF THE INTERRUPT ENABLES
:GO TO EXIT
,XMITTED 256, BYTES YET 11
,SR IF YES
,OUTPUT A BYTE
,UPDATE BUFFER POI~IER
,RETURN TO MAiNLINE TEST

".*.***** ••• *********.****** •• ** •• ** •• ********.******* •• ********
,~ECEIVER

INTE~RUPT

SERVICE ROUTINE FOR 256, BYTE BLOCK TPANSFERS

,,**** •• *•• *****.**.* ••• **.* ••• * ••••• *.**.**** •• *** ••• ***********
013416
0\3422
013424
013432
013436
0\3442
013444
013450
013452
013460
013464
013472
013476
013504
013512
013514
013522
013524
011532
013516

105777
100410
0\3767
010667
005167
000415
005777
100021
0\3767
010&67
017767
005167
042777
042777
000411
022767
001405
117777
005267
000002

165766
177776
165540
165762

UNT.
165550

18.

165742
177776
165512
165722
165730
000100
000100

165522

165710
16567b

28.

022260

165712

3$.

165662
165676

165702

165512

481

TSTB
8MI
MOV
MOV
COM
BR
TST
BPL
MOV
MOV
MOV
COM
aIC
RIC
BP
CMP
SEQ
MOVB
INC
IITI

,"DONE· SET 11
,BR IF YES
,SAVE THE ERROR PS.
,SAV~ THE ERROR STACK POINTER
,SET HA~O RCVR ERRO~ FLAG
,GO EXIT
,ANY SOFT ERROPS ??
,eR IF NOT
,SAVE THE ERROP PS_
,SAVE THE ERROR STACK P01NtER
,SAVE THE ERPOR REGISTER IN T"PI
,SET IHE SOFT EPPOR FLAG
:TURN OFF THE INT~, ENABLES
1I00,'DLXCS~
1\ 00, ,DLRCSP
4$
,GO TO EXIT
.aUFEND,IPTP
:~EC~IVED 256, BYTES Y.T 1?
:BP IF YES
48
:INPUT A BYTE FROM THE OLII
'OLPDB~, UPTR
,UPDATE BUfrER POINTER
IPrR
,R~TURN TO MAINLINE TEST
'DL~CSR

IS

UPSW,8TMPO
SP,UEG6
RFLGO
28
'DLRDBR
38
~,psw, STHPO
SP,8REG6
fDLRDBR,lTMPI
PFLGI

ITHE FOLLOWING ROUTINE IS USED BY IHE USER UTILITY PROGRAMS TO WAIT
,A SPECIFIED NO, OF MILLISECONOS 8ET~EE. CHARACTER TRANSfERS
013540

017667

000000

013546
013552
0\3556
013560

000002
000024

013566

062716
005167
001410
012746
005316
001376

0135 70
013572

005726
005367

013576

001370

011600

000207

013~64

000014

000226

DELAY.

IS.
28.

000004

MOV

'( P6), OELCNT

ADD
TST
aEQ
MOV
DF-C
SNE

12, (R6)
DELCNT
II

TST
DEC

(SP).
DELCNT

BNE

IS

RTS

PC

#226, -(SP)
(SP)
21

:GET THg NO, OF MSEC, DELAY COUNT
,npE~ IN BY lISER
,SET UP THIS ~OUTINE'S EXIT ADDRESS
,IS THE DELAY COUNT ZERO?
,8RANC~ IF YES
,PUSH A I MSEC, COUNT TO STACK
,DECRE~ENT THE I "SEC, COUNT BY
,BRANCH IF I "SEC, NOT EATEN
,A.AY YET
,RESET STACK AfTER I MSEC, TIME UP
,DECREMENT THE TOTAL NO, OF
: MSEes, COUNt

381

,8RANCH If WE HAVE "OPE MSECS,
,TO WAlT
,GO BACK TO ~EISSUE A CHARACTER

MACYI 1 30(1046) I2-JIlL-77 10102 PAGE 52
MArnDEC·ll-nZDLC-B
POWEP DOWN AND UP ROUTINES
DZDLCB,PII
06-"U-77 10104
2597
2598
2599
2600
2601
2602
2603
2604
2605
2606
2607
2608
2609
2610
2611
2612
26t3
2614
2615
2616
2617
2618
2619
2620
2621
2622
2623
2624
2625
2626
2627
2628
2629
2630
26]1
2632
2633
26)4
2635
2636
2637
2638
2639
2640
2641
2642
2643
2644
2645
2646
2647
2648
2649
2650
2651
2652

011602

000000

013604
0136\0
otl612
0136\4
011620
Ot3624
013626
01l6l0
0t36l4
0\3636
Ot3640
013644
011650

016700
006100
006100
066700
010067

;THE NO, Of MS~CS. NEEDED TO
,TRANSPIRE RESIDES HERE
,THE FOLLOWING ROUTINE IS USED BY US"R P~OG~AM 14 AND "ILl, ALLOW
,A RANDOM NUMBER OF MILLISECONDS BEFORE TRANSMISSION OF CHAR~eTER

OELCNTI .WORD

,

STALL.

000062

~OL

ADD
MOV
ROL
ROL
ADO
ROL
ROL

000054
000046

006100

006100
066700
006100
006100
010067
016700
046700

HOV
ROL

000040

HUMONE,RO
RO
RO
HUHTWO,RO
RO, NUMONE
RO

PO

NUMTWO,~O

RO
RO
RO,NU"TWO
NUMONE,RO

;GE.T THE LO\'l Lli40.

RO,SREGO
RI, SREGI
R2,SREG2
H3,SREG3
R4,SREG4
PC

SAVE [RO) THRU [R4J

: RETUPN

PSW, S TMPO
aTSTNM, RO
DLRCSR,Rl
RO,SREGO
RI,SREGI
UPSW,$TMPI
SP,SREG6
#2,SREG6
R2,SREG2
PC

TO

I "I PO

CALLI~G

tEST

,SAVE THE [PSWJ
,PUT TEST NO, IN RO
;PUT DEVADR IN RI
,SAVE IRO]
,SAVE [RI]
,SAVE THE IPS.)
,SAVE THE [SP)
,CORRECT FOR CALLI~G JSR
;SAVE [R2J

@I

J RETURN

,SUBROUTINE TO SETUP VECTORS FOR 256, BYTE BLOCK TRANSFER TESTS
014206
014212
014216
014222
014226
0'4232

0\6705
012725
016725
012725
016715
000207

165206
013416
165060
013330
165050

014234
014"0
014244
014250
014254
014260
1)14266
014274
014300
014304
014310
014]16
014322
014326
014334
014342

005077
005077
005067
005067
005067
012767
012767
004767
004777
005067
012767
005777
005717
052777
052777
000207

165154
165144
165152
165150
165146
021260
021660
000044
165132
165130
000036
16·5070
165064
000 I 00
000104

SUVEC I

MOV
MOV
MOV
MOV
MOV
RTS

DLVECT,R5
#BINT, [RSJ.
DLPRI,[R5l+
UINT'[R5l+
DLPRI,[R5l
PC

,GET FIRST VECTOR ADDRESS
;SET UP RCVR VECTOR
,SET UP XMIT VECTOR
: RETURN TO CALLER

, SUBROUTINE TO PRIME DATA BUFFERS AND DEVICE fOR 256, BYTE TRANSFER
PRIME,

165144
165140

165124
165054
165052

CLR
CLR
CLR
CLR
CLR
MOV
MOV
JSR
JSR
CLR
MOV
TST
TST
BIS
BIS
RTS

@DLXCSR
'DLRCSR
XFLGO
RFLGO
RFLGI
.OLBUFO,OPTR
,OLBUFI,IPTR
PC,CLDLBF
PC,~LDOUT

TIMRI
130 .. TIMR2
PDLRDBR
'OLROBR
#lOO,@DLRCSR
#104, PDLXCSR
PC

~CLEAR

XMIT AND RCVR CSR'S

,INITIALIZE ERROR FLAGS
I SET UP OUTPUT POINTER
,SET UP INPUT POINTER
,GO CLEAR THE BUFFERS
,GO SET UP THE PATTERN
,INIT TIMEOUT COUNTERS
;FLUSH,'OONE' BIT IN RCVR CSR
,ENABLE RCVR INTR,
,ENABLE XMIT INTR. AND MAINT MODE

,THIS ROUTINE IS CALLEO TO CLEAR THE INPUT AND OUTPUT BUFFERS

MAINDEC-II-nZDLC-B
MACYlI 30(1046) 12-JUL-77 10102 PAGE 55
DZDLCB,PII
06-~A¥-77 10104
POWER DOWN AND UP ROUTINES
2734
2135
2736
2137
2738
2739

014344
(114350
(J14352
"14356
014360

012105
005025
022105
001374
000207

CLDLBFI MOV
1$,
CLR
CMP
BNE
ATS

021260
022260

2740
2741

IDLBUFO,R5
("SH
IBUrEND,RS

:RS POINTS TO BEGIN"ING OF BUFfER AREA
;CLEAR A ';JORD

\G

,DONE ALL wO~DS 17
,BR If NOT

PC

: RETURN TO CALLER

,THIS ROUTINE IS CALLED TO BE" UP THE NULL-DEL-NULL PATTERN

2742

2743
2744
2745
2746
2747
2748
2749
2150
2751
2752
2753
2754
2755
2756
2757
2758
2759
27bO
2761
2762
2763
2764
2765
2766
2767
276B
2769
2770
2771
2172
2773
277 4
2775
2716
2777
2178
2779
2180
2181
2782
2783
2784
2785
21~6

2787
2788
2789

014362
014366
014370
014374
014400
014402

012705
105025
112725
022705
001372
000207

014404
014406
014412
014414
014420
014422

005005
It 0565
005205
022705
001372
000201

021260

LDOUTII MOV
1$1
CLRS

000377
021660

MOV8
C~P

.DLBurO,R5
(R5).
#377,(R5)+
,DLSUn,85

BNE
RTS

PC

IS

,R5 POINTS TO OIiTPUT HUffER
:MOVE A NULL CHAR
,MOV A DEL CHAR
,ALL DONE ??
,8P IF NUT
~PETURN to CALLER

,THIS RQUTINE IS USED TO LOAD AN ASCENDING BINARI ceUNT PATTERN
021260

112767
012705
116725
022705
001403
105361
000710
000207

000377
021260
164556
021660

014460
014464
014410
014474
014504
014510
014516
014522
014524

012705
005067
116125
105161
116725
105267
116767
022705
001362
000207

021260
164530
164524
164520
164514
164511
164505
021660

014.26
014534
014542
014546

042777
042771
012702
004767

000104
000100
021260
000070

: PR If'

,RETURN TIl CALLFR

R5,DLBUfO(R5)
R5

MOVe

INC
CMP
bNE
PTS

164566

IS

PC

~5

1S I

000400

014424
o 14412
014436
014442
014446
014450
014454
014456

if400,RS

,START .IT~ 000
;LOAD ONE B'tTF
;INCREMENT BYTE
;OO~E 000 THPU 377 11

LDOUT2, CLR

DESCENDI~G

LOOUTJ, MOV8

:STAPT WITH A 371 BYTE

B77, STMP7
.DLBUfO, R5
GTMP7'< P5l+
.OLBUn, R5
2S
STMP7

MOV

IS I

164544
2$1

MOVB
CMp
BEQ
OECB
BR
PIS

I$I

CLH
Muve
co~e

ROVB
INCB
MOVB
CM?
BNE
RTS

164502

,THIS ROUTINE

:RS POIlas TO OUTPUT BUP"F'ER
; LOAD ONE BYTF:

,ALL DONE 11
;BR IF" YES

IS

PC

; RETURN TO

COMPLE~EfJTtr.G

iRS

9~TE

CA.t~Lf.~F.

WORST CASF PATTER/'..
POINTS TO OUTPUT BurFER

;INIT.

S~TE GENERATUR
,MOVE ~ BYTE
,CO"Pl,EMENT IT

STMP7,(RS)+

:NOW LOAD THE 1·5

STMP7+1
STMPHI,STMP7

:INCREMENT THE BYTE
;5£1 UP TO LOAD N~XT Twrl
;ALL DONE 11

.OLBUrI, RS

COMPLgME:~T

~jQT

1$

; 8J:< IF

PC

:RETURN TO CALLgR

CHEC~S

CHKDAT. SIC
BIC
HOV
JSH

BI~AR~

:GENEPATE NEXT
;GO MOVE IT

.DLBUFO,R5
STMP7
STMP7.(R51+
sr"P7

LOO{IT4r MOV

164660
164646

COUNT PATTERN

,THIS ROUTINE IS USED TO LOAD

,THIS ROUtINE LOADS

Ot41)00

~JOT

FOR DATA COMPARE EPRORS IN 256. BYTE

,I 04, ~DLXCSR
#I 00, ~DLRCSR
• OLBUFO, R2
PC, MASKING

:OI5A8LE 80TH

X~IT

8LOO

TRANSfHS

AND RCVR INTR. tNAb.

;R2 POINTS TU SIb DATA IN OOTPUT BU!"rt:B
:GO TO ~ASK OFF ~IT5 AS A rU"ICTION Or

MAINDEC-I1-0ZDLC-R
MACHI 30(10461 12-JUL-77 10102 PAGE 56
DZDLCB,PII
06-"AY·77 10104
POWER DOWN AND UP ROUTINES
2790
2791
2792
2793
2794
2795
2796
2797
2798
2799
2800
2801
2802
2803
2804
2805
2806
2807
2808
2809
2810
28 II
2812
2913
2814
2815
2816
2817
281B
2819
2820
2821
2822
2823
2824
2B25
2826
2821
2828
2829
2830
2831
2832
2833
2834
2835
2836
2837
2838
2839
2840
2841
2842
2843
2B44
2845

Ol4552
014556
(114560
014562
01 4 566
014570
01 4572
014600
014604
014606
014612
014~14

014620
014624
()14632
014634
()11636
014640

012701
122221
001004
022701
001373
000207
013767
010667
114204
042704
114103
042703
004767
012767
104003
005202
005201
000750

021660
1$1

25,

022260
177776
164372

164402

3$1

177400
177400
177254
014634

164412
4$,

Mav
CMPB
bNE
CMP
BNE
RTS
MOV
MOV
MOVR
BIC
MOVB
aIC
JSR
MV
ERROR+3
INC
INC
BR

#DLBun,RI
(R21.,(RII.
lS

#BUfEND,RI
1$

PC
UPSW, STMPO
SP,GREG6
-(R2I.R4
'177400,R4
-(RIl,R3
U77400,R3
PC, SUERR I
#4$, $ESCAP~
R2
RI
2$

:CHARACTER LENGTHC5, 6, 7, OP B B1TS)
:Rl POINTS TO ~AS DATA IN RCV~. BUFrEH
,DID SIR = WAS 11
,BH IF NOT
,CHECKED ALL BYTES ?1
:BJ.! IF ~JOT
/ ; RETURN TO CALLER

,SAVE THE [PSWl
,SAVE THE [SPl
:GET THE SIS DATA
:CLEAR JUNK FROM HI 8YTE
: Gt-:T THe:: wAS DA1'A

,CLEAR JUNK fROM HI BYTE
,GO SET UP ERROR INro,
,RETURN TO 4G AfTER ERROR PRINT
:DATA COMPARE ERROR
;REPOSITION BurPEP POINT~RS
:GO CHECK NEXT B¥TE

,THIS ROUTINE IS USED BY THE PATTE~N T~STS
,IT WILL MASK OFF THE CHARACTER SENT OUT BI THE X"ITTER
,SEFORE THE COMPARISON OF DATA OF .HAT WAS R~CEIVED A~D WHAT "AS TRANSMITTED
, IS DONE, THE ~ASKING IS DONE AS A fUNCTION DF CH~nACTER LENGTH WH ICH
,CAN BE EITHER 5, 6, 7, OR 8 BITS
MASKING I

014642

005005

014644
014652
014654

022767
001427
062705

000010

014660
014666
014670

022767
001410
062705

000007

014674
014702
014704

022767
001402
062705

000006

014710
014714
014716
014720

016505
005105
140522
022702

014734

014724
014726
014732

001374
012702
000207

014734
014736
014740
014742

000377
000177
000077
000031

#8., $THPIS
3.
12, R5

164346

CMP
BEQ
ADO

n.,n"PIS
11
'2,R5

164332

CMP
BEQ
ADD

#6"STMP15

000002

000002
1$1

281

021260

R5

CMP
BEQ
ADD

000002

021660

CLR

164362

MOV
COM
BICB
CMP

·18

'2, R5

CHARL(RS),R5
R5
R5,CR2)+
IDLBUFI,R2

BNE
2.
MOV
.DLBUFO,R2
RTS
PC
361
ITABLE Of MASK WORDS
CHARLI
,WORD
377
,WORD
177
,WORD
77
.WORD
37

,INITIALIZE TABLE OffSET
: FOR PICKING UP MASK WORD
, IS THE CHARACTER LENGTH 8 BITS?
,BRANCH IF IT IS
, SET UP FOR NEXT MASK .ORD
,IT COULD BE THIS O"E
,IS THE CHARACTER Lf.NGTH 7 BITS?
,BRANCH IF IT IS
; S!!:T UP FOR NEXT IIOV

RO.SREGO
2(SP).STMPO
",S.SESCAPE
(SP).SREG7

MOV
HOV
MOV
ERROR+4
J"P

~RROR

@'RESTRT

;SAVE TEST"

;SAVE T~E ERROR PSW
;GO TO 1$ AfTER ERROR PRINT
; SAV~ THE ERROR PC
;REPORTED TRAP ERROR
;ATTE"" TO RESTART IHE PROGRAM
~AND

2R9A

AND RSVO INSTP ERRORS

,SA H THE TRAP SP
:PUT TEST NO, l~ ~o

TRY AGAIN

rl************************************************************.**

,ERROR MESSAGE INFORMATION

2899
2900
2901

r'*****************·*~*****·***.********.******** ••

*.* ***********

MAINDEC-II-oZDLC-S
MACYII 30(1046)
12-JUL-77 10102 PAGE 59
POWER om,N AND UP ROUTINES
DZDLca,Pl1
06-MAY-77 10104
2902
2903
2904
2905
2906
2907
790e
2909
2910
2911
2912
2913
2914
2915
2916
2917
2918
2919
2920
2921
2922
2923
2924
2925
2926
2927
2928
2929
2930
2931
2932
2933
2934
2935
2936
2937
2938
2939
2940
2941
2942
2943
2944
2945
2946
2947
2949
2949
2950
2951
2952
2953
2954
2955
2956
2957

,INFORMATION POR ERROR MESSAGE
030461
051511
042522
041516
051525
046511
000
050050
020040
u20040
024520
042524
042040
020122
042101

051040
042524
042506
020105
042105
0475U5

EMil

,ASCIZ

'OLII REGISTER REFERENCE CAUSED TIMEOUT'

015162
015170
015,76
l'15204
015212
015215
0.5222
015230
015236
015244
015252
015260
015266

046104
043505
020122
042522
040503
052040
052125
u40
020040
024523
051450
020040
0,0040
042101
043505

024503
050050
020040
020040
052123
053105
051040
000122

DHII

,ASCIZ

,

015274
302
015310

001116
001162
000000

001202
001164

001176
Oul166

,EVEN
OT11

.WORD

SERRPC. ST"PO. SREG6. SREGO. SREGI. SREG2. 0

015312
015320
015326
015334
015336
015)44
015352
015360
015366
015374
015402
015410
015416
015424
015432

Ol04'61
051511
051105

051040
042524
047522

E"21

, ASCIZ

'DLII REGISTER ERROR'"

041520
024040
020040
020051
051505
042504
020040
051104
051501
051440

020051
051520
024040
020040
0201'24
040526
042522
020040
020040
041057

DH21

,ASCIZ

'

015434
015442
015450

046104
043505
020122
000122
024040
020040
020051
050123
052040
020040
051104
040507
053440
020040
000
015434
001116
001162
001 170

001202
001164
001172

001176
001166
000000

Dn,

,WORD

SERRPC.STMPO.SREG6.$REGO.SREGI.SREG2.SREG3.SREG4.0

015456
015464
015472
015500
015506
015514
015522
015530
015536
015544

046104
052101
050115
051105
024040
020040
020051
050123
052040
020040

030461
020101
051101
047522
041520
024040
020040
020051
051505
040527

042040
047503
020105
000122
020051
051520
024040
020040
020124
040523

EM31

,ASCIZ

'OLII DATA COMPARE ERROR'

DH31

,ASCIZ

.

015146
(115t54

()IS

(PC)

(PS)

(SP)

TEST

DEVADR

REGAOR'

IINFORMATION FOR ERROR MESSAGE

(PC)

(PS)

(SP)

TEST

DEVADR

REGADR

WAS

S/BfJ

.EVEN

,INFORMATION FOR MESSAGE 3

(PC)

(PS)

(SP)

TEST

WASADR

SHBADR

WAS

SIS'

MACYII 30 [I 046)
12-JUL-77 10102 PAGE 59
MAINDEC -11-0Z0LC-a
POWER DOWN ANO UP ROUTINES
06-MAY-77 10104
DZDLCB,PII
295B
2959
2960
2961
2962
2963
2964
2965
2966
2967
2968
2969
2970
2971
2972
2973
2974
'975
2976
2977
2978
2979
2980
2991
2992
299 ]
2984
2985
2986
2997
2999
2989
2990
2991
2992
2993
2994
2995
2'96
2997
2998
2999
3000
3001
3002
3003
3004
3005
3006
)007
)008
3009
3010
3011
3012
3013

015552
015560
015566
015574
015602

051104
040502
020040
020040
000102

020040
051104
040527
020040

044123
0'0040
020123
027523

015604
015612
015620

001116
001162
001170

001202
001164
001172

001176
001166
000000

OT31

015626
015634
015642
015650
015656
015664
015672
015700
015706
015714
015722
015730

047125
052103
040522
053040
020122
041517
020116
024040
020040
020051
050123
052040

0541 05
042105
020120
041505
052101
052101
020040
041520
024040
020040
020051
051505

042520
052040
047524
047524
046040
047511
000040
020051
051520
024040
020040

EM41

.ASCIZ

'UNEXPECTED TRAP TO VECTOR AT LOCATION

DH41

,ASCIZ

,

015736
015744

001200
001162

001202
000000

001170

,EVEN
OT41

,WORD

,REG7, UMPO, "REG6. GREGO, a

015750
015756
015764
015712
016000
016006
016014
016022
016025
016032
016040
016046
01 6 05 4
016062
016070
016076
016104
016112

046104
043117
047522
051101
051106
026107
as 3117
024516
040
020040
024523
051450
020040
020040
042101
043505
020040
000051

030461
020124
020122
052111
046501
047440
051105
000
050050
020040
020040
024520
042524
042040
020122
042101
051050

051440
051105
050050
026131
047111
020122
052522

EMSI

,ASCIZ

"OLlt SOFT ERROR

024503
050050
020040
020040
052123
053105
051040
020122
043505

OH5 ,

• ABC IZ

'

016114
U16122
016\30

001116
001162
001170

001202
001164
000000

001176
001106

DT51

.WORD

$ ERRPC, STI-'PO, SREG6-1 SREGO .,9REG-I, SRf.G2, SRlG3, 0

041520

020051

DH61

.!;VEN

.WORD

8ERRPC. GTMPO. GREG6. 61«':11>0. 911EG1.

$~EG2.

9PEG3. $ REG4. 0

,INFORMATION FOP MESSAGE 4

(PC)

(PS)

(SP)

TEST'

(100124

,ERROR INFORMATION fOR ERROR MESSAGE 5

(PS!')

(PC)

(?cARITy,F~AMl'Nr;,

TEST

(SPJ

OR r)VEHPUN)

DEVADP

r

REGADR

(R!:G) •

,EVEN

,lNfOPMATION FOR EPROP MESSAGE
016114

024040

.ASCIZ

• (PC)

( P8')

(SP)

REGA-OR"

12-JUL-77
10102 PAGE 60
HAINDEC-II-DZDLc-e
"ACYl I )0 (I 046)
POWER DOWN AND UP ROUTINES
06-MAY-77 10104
DZOLCR ,PII
3014
]015
3016
3017
]01 B
3019
3020
3021
3022
3023
3024
3025
3026
3027
3028
3029
3030
3031
3032
3033
]034
3035
]036
3037
3038
3039
3040
3041
3042
]043
3044
3045
3046
3047
3048
3049
3050
3051
3052
3053
3054
]055
]056
3057
3058
3059
3060
3061
3062
3063
3064
3065
3066
]067
3068
3069

016142
016150
016156
016164
0161 7 2
016174
016~02

020040
u20051
050123
042522
000
016174
001116
001166

024040
020040
020051
040507

051520
024040
020040
051104

001204
000000

001170

DT61

024040
020040
051104
040507
024040
000
016246
001116
001170

041520
042504
020040
051104
042522

020051
040526
042522
020040
024507

DH71

001164
000000

001166

DT71

il

EVEN

,WORD

$ERRPC, STMP1, SREG&, S REG·2, 0

,INFOPMATION FOP ERPOR MESSAGE 7
016206
016214
016222
016230
016236
016244
016246
016254

(PC)

,ASCIZ

DEVADR

PEGADR

(PEGl'

.EVEN

,WORD

$ ERPPC, SPEGI. $,REG2. SR'EGJ. 0

'"

IINFORMATION FOP ERROR MESSAGE 10
016260
016266
016274
016302
016310
016316
016324

024040
020040
051104
040507
024040
020040
000102

041520
042504
020040
051104
042522
020040

020051
040526
042522
020040
024507
027523

OHI01

016326
016)34

001116
001170

001164
001172

001166
000000

DTtOI

,ASC I Z

,

(PC)

OEVAPR

PEGkDR

(PEG)

S/8"

.'
.EVEN

,WORD

URRPC, GREGI. GREG2. SPEG3, BIlEG4. a

,M ISCELLANEOUS MESSAGES
016342
016]50
016356
016364
016372
016400
016406
016414
016421
016426
016434
016442
016450
016456
016464
016472
016500
016502
016510
016516
016524

052516
046105
020114
047105
0465 II
040440
046114
020107
102
020131
052517
050505
020105
052517
043040
044527
000103
044502
042040
047503
042523

046114
047055
042523
042503
047505
020124
053517
041520
047111
050125
052116
042525
044524
020124
046117
043516

042055
046125
052521
052040
052125
047506
047111
000
051101
041440
051440
041516
042515
052101
047514
050040

040516
053517
047125
052521

054522
020116
020124
047105

SEQ~,ENCE

XMSGII

,ASCIZ

' NULL-DEL-NULL

TIMEOUT AT FOLLOWING PC'

XMSG21

,ASCIZ

'BINARY UP COUNT SEQUENCE TIMEOUT AT FOLLOWlhG PC'

XMSG31

,ASCIZ

'BINARY DOWN COUNT SEQ(}ENCE TIMI>OUT AT FOLLOWING PC'

MAINDEC-II-DZDLC-B
MACYlI 30(1046) 12-JUL-77 10102 PAGE 61
DZDLCB ,PI I
06-MAY-17 10 .. 04
POWF.R DOWN AND UP ROUTINES
3070
3071
3072
307)
3074
3075
3076
3077
3078
3079
3090
3081
3082
3083
3084
3085
3086
3087
3088
3089
3090
3091
3092
3093
3094
3095
3096
3097
3098
3099
3100
3101
3102
3103
3104
3105
3106
3107
31 ~8
3/09
3110
3111
3112
3113
3114
311S
3116
3117
3118
3119
3120
3'21
3122
3123
3114
3125

016532
016540
016554
016562
016565
016S72
016600
016606
016614
016622
016630
016636
016644

042503
047S05
020124
053517
041520
127
041440
040'20
020116
04710S
046511
04044Q
046114
020107

OS2040
052125
047506
047111
000
OSI1I7
051501
052124
042523
042503
04750S
020lH
053517
041520

052123
020 I 05
051105
052521
052040
OS2125
047506
047111
000

XMSG41

,lSCn

'WORST CASE PATTERN SEQUENCE TIMEOUT AT FOLLOWING PC'

016651
016656
016664
016672

015
042116
026461
026503

046412
041505
055104
006502

044501
030455
046104
000012

STMESI

.lSCn

<15><12>'MAINDEC-II-DZDLC-B'<15><12>

016700
016706
016714
016722
016730
016736
016744
016752
016760
016766
016774
017002
Ol7nlO
017016
017024
017032
017040
017046
017054
017062
017070
017076
017104
017t12
017120
0171 26
0\7134
017,42
017,50
017156
0\7,b4
017,67
017174
017202
017210
017216

0050\5
040510
046105
020104
040522
0200S6
00SOl5
040510
046105
020104
040522
020()56
005015
040510
046105
020104
040522
0200S6
00sol5

047531
042526
041505
051120
020115
006462
047531
042526
04lS05
051120
020115
006463
047531
042526
041505
051120
020115
006464
047531
042526
041S05
051120
020115
006465
051124
052111
047504
OS2111
051105
020040
000
051012
042526
042S16
047040
051440

020125
051440
042524
043517
047S16
000012
020125
051440
042524
043517
047516
0000\2
020115
051440
042524
043517
047S16
000012
020125
051440
042524
043517
04751.
000012
047101
0'2524
042516
047040
051440
041520

PROG2MI .ASCIZ

<15><12>'YOU HAVE SELECTED PROGRAM

PROG3MI ,ASCIZ

<15>'YOU HAYE SELECTED PROGRAM 110, 3'

PROG4MI .A8CIZ

<12>'YOU HAVE SELECTED PRUGRA" "0, 4'<15><12>

PROG5MI .ASCIZ

<15><12>'YOU HAVE SELF.CTED PROGRAM NO. 5'<15><12>

XDSI

.ASCIZ

<15><12>'TRAHSMJTTER DONE 8IT NEYFP. SET

RDSI

.ASClZ

<15>'~ECElV!'R

016~46

040~10

046105
020104
040522
020056
005015
046523
020122
041040
053105
05210S
020075
015
044505
047504
052111
051105

046511
040440
04611'4
020 I 07

041505
020122
041040
0531 OS
052'05

~O,

DONE BIT NEVER SEl

2'<12>

PC- •

PC=

MAINDEC-II-nZDLC-S
MACYI I 30 (I 0461
I2-JUL-n 10102 PAGE 62
POWER DO.~ AND UP ROUTINES
DZDLCR.PII
06--AY-77 10104

%,

.,

3126 017224
3127 017232
3128
3129
3130 /)172))
3131 017240
3132 0\7246
3133 0172S4
3134 017262
3135 017270
3136 017276
3137 017)04
3138 PI 7312
3139 017315
lI40 017322
3141 017330
3142 017)36
3143 017344
lI44 017152
3145 017360
3146 017161
3147 017366
3148 017374
3149 017402
3150 011410
3151 017416
3152 017422
3153 017430
3154 , OH436
3155 017444
3156 017452
31S7 017460
3158 017466
3159 017474
3160 017502
3161 017510
3162 017S16
3163 017S24
3164 017532
316S 01-7540
3166 017546
3167 0175S4
3168 017562
3169 01 7 566
3170 017574
3171 017602
3172 017610
3173 017616
3174 017624
3175 017632
3176 017640
3177 017646
3178 017653
3179 017660
3180 017666
3181 017674

020040
000

041520

020075

015
020124
04251Q
040S22
046040
020110
033454
020070
037451
015
047S3I
044123
042524
044124
040510
105
015
052S01
053105
030450
OS4440
024S17
005015
044440
020105
042522
OSlI05
052524
044507
040440
051523
005015
044440
020105
042522
051105
052103
042104
020077
005015
052517
020124
051505
OS2114
042040
051505
OS447S
037517
015
020124
042S10
052524

053412
051SI1
041440
052103
04710S
0324S0
047UO
044502
000
042012
020125
052040
OS2123
051105
020116

040510
052040
040510
051105

IMESSAGES SEEKING USER RESPONSE

042012
052114
04t511
0300S!7
05150S
000077
044127
020123
051461
042503
OS1440
020121
052123
042104
020077
044127
020123
051461
042503
020123
OSI1I7
042522
000040
047S04
053440
04'7S24
020124
050111
053105
030440
05150S
020040
053412
OSI511
051440
020123

LENGTH I .ASCIZ

<15><12>'OO YOU WISH TO TEST OTHER THAN THE'

043105
042040
020105
036440
047057

,ASCIZ

052101
0441 24
020124
05HII
040524
042522
051105
042S22
000040
052101
044124
020124
053111
042526
040440
051523

MFIRSTDI.ASCIZ

<12>'WHAT IS THE 1ST

MVECTI

<12>'WHAT IS THE 1ST RECEIVER"S VECTOR ADDRESS?

054440
047101
052040
052515
042514
041511
0300S7
047057
000
040510
052040
040524
042522

MULDEYI ,ASCIZ

<15><12>'00 YOU WANT TO TEST MULTIPLE DEVICES 1/0-IEa/NO?

MUSTO I ,ASClZ

<15><12>'wHAT IS THE STATUS REGISTER

,ASCIZ

'OEFAULT DEVICE (1/0 • YES/I.on'

RECEIVE~

STATUS REGISTER

~DORESS

ADD~EsS1

or THE LAST RECEIVER?

MACYlI 10(1046) 12·.1UL-n 10102 PAGE 61
MAINDEC·II-0Z0Lc·e
POWER DOWN AND UP ROUTINES
06-MU-n 10104
DZDLCB,PII
1182
3181
3184
1185
1186
3197
3188
1189
1190
1191
1192
1191
1194
1195
3196
3197
3198
3199
3200
1201
3202
3201
3204
3205
3206
1207
3208
3209
3210
3211
3212
3213
3214
3215
3216
3217
3218
3219
3220
]221
3222
]223
3224
3225
3226
3227
3228
1229
3230
3231
]232
3233
3214
]235
3236
3237

017702
017710
011716
017724
017712
017740
011746
017751
017756
017764
011772
020000
020006
020014
020022
020010
020015
020042
020050
020056
0'0064
020072
020100
020106
020110
020116
020124
020132
020140
020146
020154
020162
020170
020176
020177
020204
020212
020220
020226
020234
020236
020244
020252
020260
020266
020274
020302
020310
020316
020122
"20]30
020336
020344
020]52
020}60
020]66

044507
040440
051521
044124
052121
044505
020040
015
052105
051440
040455
020122
040514
042525
020116
020516
015
020124
052517
042524
020124
044522
053105
000040
005015
040522
044526
052103
047514
047117
051527
042504
040440
105
015
051440
020110
040440
024040
042116
005015
047503
042525
047507
020113
053105
042523
047511
044501
005015
044440
020105
046523
020122
041U40
020122

051105
042522
020106
040514
041505
037522

052123
042104
047440
020105
051040
042526
000
051412
044510
047522
051516
044124
052123
052123
041501
020040
051412
051511
020122
051122
051120
054524
046105

046517
041516
041516
042527
020105
050440
047511
0445Ul
000
040510
054440
047111
050125
047511
046040
020077

MRANGEI ,ASCIZ

<15><12>' SOMETHING WRONG-ANSWER THE LAST QUESTION

PLEVELI ,ASCIZ

<15><12>'WHAT IS YOUR INTERRUPT PRIORITY LEVELl

051120
020115
042503
053111
040503
051440
047040
044526
052101

041517
042504
040440
020105
044524
047510
020117
04250]
(153111

FOULUPI ,ASCII

<15><12>'PROGRAM DEVICE ACHVE LOCHlON

051412
044527
020060
047440
024461

052105

,ASCll

<15><12>'SET SWITCH 0 TO A ONE (1) AND'

044510
052116
052040
041040
047524
041511
042514
020116
000116
044127
020123
051124
052111
040504
043125
042101

020124
047 til
020117
041501
042040
02010S
05210]
043501

,ASCIZ

<15><12>'HIT CONTINUE TO GO BACK TO DnICE SELECTION AGA1'"

052101
044124
047101
042524
040524
042506
0511 (14

LINTADI ,ASCIZ

5~U'S

NO

AGAl~

I

DEVIC~

ACTIVE'

04l~24

047524
042516
040440

<15><12>'WHAT IS

DATA BUFFER ADDRESSl

TH~

T~ANSMITTER

T~E

CHARACTER TO 8E TRANSMITTED (OCTAL ASCII E,G, P.=IOJ

MAINDEC-ll-0ZDLC-B
MACY11 30(1046) 12",jUL-77 10102 PAGE 64
PO.ER DOWN AND UP ROUTINES
OZDLca,Pll
06-"n-n 10104
1238
3239
3240
3241
3242
3243
3244
3745
3246
3247
3248
3249
1250
3251
1252
3253
3254
3255
3256
3257
1258
3259
3260
1261
3262
3263
1264
3265
3266
3267
3268
3269
3270
3271
3272
3273
3274
3275
1276
3271
3278
3279
3280
3281
3282
3281
3284
3285
3286
3287

3288
3289
3290
3291
3292
3293

020374
020402
020403
020410
020416
020424
020432
020440
020446
020454
020462
020470
020476
020504
020511
020516
020524
020532
020540
020546
020554
020562
020570
020576
020604
020612
020620
020626
020614
020642
020650
020656
020664
020672
020673
020700
020706
020714
020722
020730
020716
020744
020746
020754
020762
020770
020776
021004
021012
021020
021026
021034
021042
021050
021056
021064

051505
000
015
020124
042510
040522
052040
052040
044515
024040
020114
020111
040440
037451
015
020124
042510
051111
042523
046105
041517
027105
036460
024451
005015
051040
020115
052040
046450
020051
042522
010057
047057
000
015
044040
051523
052105
041511
020107
047440
052123
005015
054440
042117
020104
051120
046040
047511
051117
00501S
042503
020124
040527
020117
077

037523

020040

053412
051511
041440
052103
020117
040522
052124
041517
051501
021105
030475
020040
053412
051511
042040
042105
027101
054501
040524
027107
024070
020077
051511
047101
040527
046511
042523
042504
020104
054475
037517

040510
052040
040510
OS 11 05
042502
051516
042105
040524
044503
027107
030460
000
040510
052040
051505
046440
042040
024040
020114
010440
030061
000040
040HO
047504
052111
020105
027101
044523
030440
051505
020040

SELCARt .ASClZ

<15><12>'WHAT IS

SE~DLYI

<15><12>'WHAT IS THE DESIREO MSEC, OELAY (OCTAL E,G, 10=8(10))1

054412
053101
034122
044440
052101
047514
020116

052517
020105
051440
042116
047111
050117
042524

FAILSAI ,ASCII

<15><12>'YOU HAVE SWR8 SET INDICATING LOOP Oh TEST'

040510
052517
043111
044124
050117
041517
051516
052040
042504
052040
047531
052116
042524

042526
046440
042511
020105
051105
0S2101
041040
042510
044526
040510
020125
052040
052123

,ASCII

<12>'HAVE YOU MODIFIED THE PROPER LOCATIONS FOR

,ASCII

<15><12>'DEVICE THAT YOU WANT TO TEST?'

,lSCIZ

RSTALLI .ASClZ

<15><12>'15 A RANDOM WAIT TIME (MSEC,) DESIRED

I/O=~ES/NOl

"

TH~'

MAINDEC-II-oZOLC-B
MACYlI 30(1046)
12-JUL-77
10102 PAGE 65
06_MAY-77 10104
POWER DOWN AND UP ROUTINES
DZDLCS,PII
3294
3295
3296
3297
3298
3299
3300
3301
3302
3303
3304
3305
3306
3307
3308
3309
3310
3311
3312
3313
3314
33'5
331&
3317
331 B
3319
3320
3321
3322
3323
3n4
3325
3376
3317
H2B
3329
3330
3331

01 1065
021072
021100
021106
021114
021122
OHI30
021136
021144
021152
021160
021166
021\ 74
021202
021204
021212
021,20
021226
021234
0212 42
021250

015
047023
042522
042510
044524
053523
005015
052117
042117
044124
050117
041517
051516
047105
005015
051101
020105
040522
040440
051523
000

044412
026440
051523
041440
052516
052111
043111
026440
043111
020105
051105
052101
020054

020106
050040
052040
047117
020105
044103
047040
046440
020131
051120
046040
047511
044124

042522
020124
051120
0'0115
042104
031040

021,51
021256

040
000040

020075

,ASCII

(IS'<12>'lf 50 -

,ASCII

<15'<12"IF NOT - MODI'Y THE PROPER LOCATIONS, THEN'

052123
044124
043517
052101
042522
030060

,ASCIZ

<15'<12>'RESTART THE

041520

PC~SGI

,ASCII
,ASCIZ

'

.

PRESS THE CONTINUE S-ITCH'

PROGRA~

AT AOOPBSS 200'

PC'

.EVE:N

,512, WORDS RESERVEO FOR TWO 256.
021260

000400

DLBUfOI ,BLKB

256.

021660

000400

O~BUFI

256,

000000

BUFENDI 0

000001

,END

022260

I .BLl

2791
277 3
704_

2833
2788
70S-

3325>
2836
706*

3322#
707

830

875

1056

2706

509>
1004

7141018
1271
2714_
510
2568
590*
713'
13\3917
419

732
1035
1280
2726>
715
2575

857
11411318

879
1148
1326

934
1157
1334

937
1166
\743-

949
1198*
1813-

964
1205
2545-

968
1214
2558

982
12n
2571'

762
2725
828
811
1812'

1167

1224

128 I

1335

1747'

1814

873
833
2540

1054
1091
254&*

1806*

747
1319
1755.

791
1060
1312'
2787.
716
2724
593
801
1751>
2550.

1110
2570*

1826"
1142'
2713-

2704
1149
272?>

1199_
2786_

120b

2633'
40529041

2640
1357.

2645'
\358-

1440'

1441_

1525-

152.-

1634-

1&35*

2875-

2a80-

2B9 I_

2882>

2970.

429.
776.
1565.

486.
7840
1662

4B7.
1386
1663>

730
1381*
1672>

J396*
1674*

73913981879

745
1468
1890>

1469·
1882'

154*
1478>
1 BAS*

1490*

2480

2481

2492

2485

7.486

24B7

24~

1074'

126~

2693
509
2564
482.
507.
1263
777
195
292°'
3045.
2942#
2964#
2983#
300H
302°'
3032#
2629404*
351
2926.
365
2873358
417
769>
1554.
32721
bOI
713#
3206.
2478
520'
605.
2344
827.
402*

1133
570*
592.
64a*
6270
112527430
2752.
2761#
2713.
1583
707.
2379

2948.
2874*
2998.
4180
775
1563-

2479
598
2385
835
4031190
573
1824
660
720
1182'

1678
709_
2385

S92

916

731'

888

909*

1058*

1063

1247
667

1304
675

2573
1823

2515*

257&*

2719-

1239'

1296_

2721

845*

876*

746*

760

8

3130.
111*

MACYlI 30e 1046)
12-JUL-77 10,02 PAGE 69
MAINOEC-ll-0Z0LC-B
CROSS REfERENCE TABLE .- USER SYMBOLS
DZOLCB,P11
06-MAY-77 10,04
LINTAO
MASK IN
MFIRST
MLASTO
MRANGE
MULOEV
MULTO
MVECT
NUMONE
NUMTWO
ONCE
OPTR
PCMSG
PIRQ
PIRQVE=
PLEVEL
PRG2
PRG2A
PRG2B
PRG3
PRG3A
PRG3e
PRG4
PRG4A
PRG4e
PRG4C
PRGS
PRGSA
PRGSS
PRGSC
PRIME
PROG2M
PROG3M
PROG4M
PROGSM
PM
•
PR1
•
PR2
•
PR3
•
PR4
•
PRS
•
PR6
•
PR7
•
PS
•
P8W
PWRVEC.
ROB
RDCHR •
RDDEC •
ROLIN •
ROOCT •

020322
014642
017422
017653
017751
On566
001272
017510
013672
013614
0020S.
001432
011251
177712
000240
020035
006344
006404
006524
006604
006644
006764
007054
007114
007246
007260
OOH46
007506
007676
007626
014234
016700
016744
017010
017054
000000
000040
000100
000140
000200
000240
000300
000)40
177776
177776
000024
017167
104406
104411
104407
104410

REDO I
REOO2
REDOl
R!DOlA

006574
007044
007426
007436

·

·

1361
2789
549
630
677
605
262'
574
2602
2605
467
3BH
465
721
166t
698
47
13610
14031
48
14440
1485'
49
1529.
1575'
1583#
50
1638.
1697#
1678#
11"26
1359
1442
1527
1636
89'
90.
911
92'
931
94.
95»
961
69#
70»
1611
1609
2207
522
2280
533
1532
1369
1452
1537
1589

1444
2Blb.
3152.
3178'
]189'
3169.
431'
3161#
2606.
2609
496
2548
3316.

1529

1638

6120

615.

2613
2612'
5011
2550

26221
26231
2551.

3231.

618

1773

I

1783*

2718.

31981
13544
1426

.

141H
1512
15220
1621
1624
1631 #
1730
1727
1733
\183
3090!
3096#
31021
3108'

70
892
4080
1717
2485.
1585
2405
552
1571
1371
1454
1539
1591

1240

1297

271H

2542
409.
31211

2560
2494.

2566
2495.

2678
2504_

2691
2510.

1690
249H
575
1577
1374
1457
1542
1622#

2488.
633
1690
1397
1479
1564

679
248H
1425.
15111
1620'

689

607
1641

1381
1464
1549

2696
2522.

2797
2523.

1364

1405

1413

1447

1487

1495

MAINDEC-II-OZOLC-B
"ACY II
06-MAY-77 10 I 1276

020604
015060
001430

020403
11'20511
STACK = 001100
STALL
013604
STKLMT= 177774
STL"SO (H11106
STMES
016651
SUERRI
014100
SUERTI
SUEPT2
SUER2

0'41 3 2
014160
014052

SUVEC
S'R
S.REG
SWO

swoo

014206
001140

=

SWot

SW02
SW03
5W04
5W05
5W06
8W07
SWOR
SW09
SWI
SWIO
SWII
SWJ1
SWI3
5Wl4
SW,S
SW2
SW3
SW4
SW5

=

(100176
000001

000001
000002
000004
rlOOO10

UOO020
000040

= 000100
000200
= 000400
001000
000002
002000
004000
"'0000
020000

= 040000

=

t 00000

000004

=

000010
000020

= 000040

1646
1684
4B5.
156#
526
557
580
638
693
380'
381#
255B'
273'
1567
4BB
3B2.
1403
1410
60'
159B

71'

290.
462
B99
1337
735
,392

3Q(1046)
1648
1686
1795
488528
559
502
640
695
1129
1\ J I
2705
624*
1689
2B90,
1124>
1495
1492
40U
1707
2614
498
925
'6~3N

750
1474

7H

B04

970
1095
1123

976
11 01
1180
39B
I BSB
427
502
124
123
122
'21
12U
119
lIB
\17
lIb
115

195 it

1874
441
124#
114#
1131
112'
111#
110,
109'
lOB'
1070
106'
105.
123'
1040
103#
1020
1014
100.
990
122#
121<
120'
IIQ.

931

12-JUL-77 10102 PAGE 70
CROSS REFERENCE TABLE
USER sYMBOLS
1651
17310
1854
489.
596.
562
585
643
7210
llBb
\I BB

1658

1673

2527

2B94

566
589
647
1243
1245

17291

599.
6021

71B.
130q
1302

25622569¥

271627\7_
b65*

65232621

654

6570

664

1172.
1575
32521
4B5
26020

1173
3240.

'IB 1_

1229_

1230

1354

1437

1522

1631

1795_

1800

1821-

123B-

1286*

1287

1295*

1340*

1341

lOBS.
1152
280l
765
1559
815
9B4
1115
1237
419*
1890

1161

1169

1209

121B

1226

1266

1275

1283

1322

1330

7BO
166B
821
991
2678'
1294
421
IB96

269U
2696.
B40
1006

B50
1013

861
1020

B67
1026

914
1040

939
1046

945
1067

951
107B

955
10B2

27040
427*
1903

442
1940

502
1947

931
1952

962
1955

99B
2502

1033
2515·

1052

108B

962

998

1033

1052

108B

605
1410
1609
1844
2220
24781

1425
1620
1942
2225
2524

MACY 11 31>( I 046)
MA I NDEC· 11 -OZOLC-B
12-JUL-77
10102 PAGE 71
06-MAY-77 10104
CROSS REfERENCE TABLE -- USER SY"AOLS
DZDLC8,P'I
SW6

1)(')Ot 00

SW7

000200

swe
5W9
=
TABFLG
TBITVE=
TCONT
T1"ERX
TI"ETX
TIMPI
TIMR2
TKVEC =
TPVEC =

000400

001000
001256
uooo14
013722
013676
013714
001440
001442
000060
000064

TRAPVE-= OllOo34

TRPCOM
TRTVEC=
TSTI
TSTIO
T5Tl1
TSTI2
TST13
TSTI4
T5TI5
TSTI6
TSTI7
TS12
TST20
TST21
TST22
TST23
TS124
T5125
TST)
TST4
T5T5
T5T6
TST7
TYPOS'
TYPE •

015104
000014
002770
003340
003464
003514
004016
0041 46
0042'74

004422
004502
003036
004644
004726
1)04760
005252
005544
006036
/Jolt 04
003152
003220
'J03242
003266
104405
104401

TYPOC • 104402
TYPON :II 104404
TYPOS' 104403
UPMASK 014744
VECT
002264
XOB
017120
XFLCO
001422
UNT
013]30
XMSGI
016342
XMSG2
016421
XMSG3
016502
XMSG4
016565

11 ~.
117#
116,
lISt
242#
IS"
2631
1607
1599
386'
3870
164#
165'
163#
2976
15B'
511
820
844
866
905
932
963
999
1034
74U
1053
1089
1114
1136
1193
1250
759'
7741
789.
793
803
1843
462
677
1442
1622
1950
2229
19BO
24Bll
2480'
e84

574.
16nl
3791
2540.
1143
1200
1257
1314

442
433'
2635 ,
1716

4B30

1137<
1139.

2627>
2633#
1194_
1196_

406*
2&R3

407.
2BB7#

717

729.

17()8

495

500*

1784-

1251_
1253'

130B*
1310*

2722'
2721.

1355.

1356_

143B_

1439*

1523*

1524*

1632.

1633*

574
1314
1567
1729
2007
2311

596
1359
1575
1731
2072
2349

599
1361
1583
177B
214B
2442

602
1403
1601
1841
2214
2444

IBI6

82b#

B49
972#
924
954
990
1025
1045
1072
1100
11211
1147
1204
12&1

799.
B09.
2482#
463
688
1444
'636
1972

2234
2004
91B
604
1710
1127
2707
3049'
3057#
30661
3075.

B55.
930.
961#
997#
1032.
10510
1081
110B.

10BH

1156
1213
1270

1165
1222
1279

11781
12351
12921

465
71 B
14B5
1638
1989
2235
24791

49B
721
1492
1678
1991
2237

520
1143
1511
1689
1994
2240

531
'1200
1527
1710
1996
2244

549
1257
1529
1717
2000
2309

2662

28501

31141
1184

1241

1298

2544*

2715*

630

12-JUL-77
10102 PAGE 72
MACYlI 30(1046)
MAINDEC-II-DZDLC-B
CROSS REFf;RENCE TABLE •• USER SYMBOLS
DZOLca. PII
06-MAY-77 10104
$ AUTOB
SBOAOR
S BODAT
GBELL
SCHARC
SCKSWRSCMTAG
;\I
SCMI
eCM2 •
sCM3 =
GCM4 =:

001134
001122
001126
001246
012704

SCNTLG
SCNTLU
SCRLF
$DBLK
SOOAG"
sOTBL
SENDAO
SENOCT
SENDMG
SENULL
SEOP
BEOPCT
SERnG
SER"AX
sERROR
SERPPC
SERRT&
SERRTY
SEPTTL
SESCAP

012301
012274
001253
011700
010452
011670
010442
010410
010461
010456
010144
010402
001103
001115
010746
001116
001310
01 1 102
001112
001244

SFILLC
SF ILLS
SGOADR
SGODAT
sGET42

SGTSWR=
sHD
SHIOCT
$lCNT
SILLUP
SINTAG
$ITEMB

SLY
eLP.OR
SLPF.RR
SMAIL •

SMNEW
SMSWR
SMXCNT
SNULL
$NWTST'

******

001100
000010
000020
000010
000020

U

001156
001155
001120
001124
010432

***.**

000001
012466
001104
013312
001135
001114
001254
001106
001110

**** .. *

012317
Ol230b
010744
001154
000001

tJ

1921
18H
189.
2330
23512495
175#
207#
207#
2U5'
215.
2281
22551
2229
235.
2114
I B37
2117
IB48'
1839'
1841
1844
\307
1836.
178 #
1841
404
185'
312#
1949
1821
232#
1201_
1475.
2031
2020
186#
1B8'
1845.
2484
16
2302_
179.
2494
193#
19)#
236'
180.
1811
431
2258'
2256'
1911
20\#
726'
10298

1942
2361395
208'
208.
207
21b#
229.
2254#
1950
2148
1846
2152#
1856.
1855'
131 7

1963
2368

2377.

23821

396
209,
209,

404
210<
210.

410
2111
211#

411
212'
2121

213#
2130

214'
2141

2151
215.

217#
2301

218.
2310

21H

2201

221#

2220

423.

2385

2446

2942

2964

3007

1020

3032

3045

900*
12840
2804*

IOb913152991*

t 144*

1323-

1153'
1331-

l1b2'
1338*

1393-

801)'

82311

8520

869'

9270

958'

994#

1232#

1289.

1963

1978

2920

781<
12674
1960

841*
1276*
1963

2314
1918
1920

2385
1920
1957

2446

786.
111 8.

796'
1175'

1325

1333

1343

1767#

1892
1894
1440
1945-

1894
1916_
1525
1946

1900*
1921
1634
19"63

1921

1963
736.
1219.
1669.
2395

751'
12271915_

766*
12581958

1908
2529.

1910'

1920

1963
2244
1898>
1898
1952

1975
2254
1913t914*
2338

2385
756.
10B4,

7711
1105'

221#

2350

1'l37·

1996

2261

2314

2234

1991

2251

2254

2000

1972

1963
21561
1852#

2241

1~40

1&64
412.
1357
1944.
19R6
1971.
1943'
4110
1210.
15602354
23B5

17
23131
1907*
2510
19461963

4t3*
414'
1913
1920.
2356

7411
1 04B.

193611

1170*

MACHI 30(1046)
12-JUL-77
10102 PAGE 73
MAINOEC-II-DZDLC.S
CROSS REFERENCE TABLE -- USER SYM"OLS
06-.AY-77 10104
OZDLC~.PII
SOCNT
SOMODE
SOVER
SPASS
SPOWER
SPWRAO
SPWRON
$PWRMG
SPWPUP
$QUES
SRDC~R

GRDDEC
sROLIN
SROOCT
$ROSZ S
SREGAD
SREGO
aREGI
SREG2
,REG3
SREG4
GREG5
$REG6
GREG7
$RTNAO
SR2A
•
SSAVREs
S5AVR6
SSCOPE
.SETUP.

011460
011462
1}10730

001100
013320
013306
01 3 146
013]02
013220
001252
011710
012710
012030
012330
000010
001160
001162
001164
001166
001170
001172
001174
001176
001200
010454

******
***-**

0\3316
010476
000017

.STUP • 177777
SSVLAD 010702
$SWR • 167400

,SWPMK.
STIMES
GTKB
STKS
GTMPO

000000
001242
001146
001144
001202

UMPI

001204

UHP10
STMP11
STMPI2
STMPIl
STMP\4
UMP15
STMPI6

001222
001224
001226
001210
001232
001234
001236

U
U

2044*
2039*
1875
1761
2525
252"
408
2525'
2504
2340
2237
2174.
2400.
22020
2275.
2195_
205.
2071
208.
209.
210.
21 \#
2120
213#
2964
21H
1854#
2489
2489
2503.
402
392#
1962
392#
1883
H

410
873
1832
1892
1932
31
231#
1988
1970
21S1
2560'
216!
1605
2231
2241
2251
226'
2271

2281
229#

21,.173*
2043*
1891
1833.
25]20

2086,
2048
1899
1834-

2494.

2522

20511909
1842

2062*
19171
1855

2088.
1905

1921

599
2311

b02
23\4

718
2385

721
2444

1425
2446

1511

1620

1622

17 29

1731

2684>
26540
2652'
26580
2667.

2694_
2656.
2654
26RH
2688.

2889_
2685'
2686'
2942
2942

2920
2695.
2699'
2964
2964

2942
2920
2920
3007
]045

2964
2942
2942
3032

2983
2964
2964
3045

3007
30 1)7
30 r),

3032
3020

3045
3032

3045

895.
2983
9560

25430
3007
2892.

25613020
2983

2561*

2681-

2682'

2691*

269B_

2798'

2887'

2920

2942

2511
18730
401
2163

2512.

2513.

2531#

404

406

408

410

411

413

1811

1874

1937

1955

26
730
1033
1865
1902
'1955
1890
1236.

27
745
1052
1866
1903
1963

28
760
IOB8
1867
'.914
2528

29
775
1109
1868
1917

30
790
1122
1869
1920

31
800
1179
1874
1928

231
810
123b
18B6
1929

232
827
1293
1888
1930

233
856
1764
1889
1931

1293_

IB32'

1901*

1908

1911-

Ino

1504'
2890'
1225
2850

1550_
2920
1282
3020

1594
2942
1336

1605>
2964
1407.

1659_
2983
1418

1703
3007
1489-

1714'

2542'

1504

1579-

28502822

286S'
2826

2B54

2858

2862

2510'
596
2254
2485
2488
2486
2487

402
2260

19121
16
411
931
1847
1893
1940
32
410.
2161
2161
892.
2566>
878'
1701'

24
413
962
1853
1894
1947
1869
1122.
2178
2176
1382.
26780
883.
1714

25
414
998
1855
1901
1952
1870
1179.
2184
2182
1418.
2691'
907.
2568*

1696.
1691*

1697
169h

1700'
1699_

1700

1701

886

887
529_

921
1592'

2664
1687'

2667
281B

434-

1465.
2791*
1168
2696>

1963

MACYl1
MAlNDaC-ll"OZDLC.S
D6-MAy-n 10104OZDLCB,PII
UHPI7
SToP2
STMP3
STMP4
STMPS
STMP6
sTOP7
STN

=

STPB
$TPFLG
STPS
STRAP
STRAP2
STRP
STRPAD

.

~

'TST~IM

$TTYIN
$TYP9NGTYPDS
$TYPE
STYPEC
$TYPEX
STYPOC
S TYPON
$TYPOS
SXTSTR
SSGET4.
SOflLL
$40CAT.
•

230.
21 ,.
218'
219.
220.
22U
2221
16.
800.
87)0
999
1089
1193
200.
2041
199.
406
2466.
1470'
2460
1770
2204
2483
2102#
2332#
2353
2378
2042'
2041
20370
18770
18471
2038>
1874
38'
1963
3019'

001240
001206
001210
001212
001214
001216
001'20
000026

001152
I)Ot157

001150
0130&6
013110
000012
013122
OUll02
012264

***.**
0114&4

U

017470
012640
011706
011262
nl1276
UI1236
III 0506
000000
0114&1

*** ... **

0222&2

~u(!046)

1415.
15940
16111615.
2635.
27610
726
803
905
1025
1100
1204
237'·
7332
2372
1355
2477
24791
24771
1810>
2205
24B2
2470
2360
2HO
2479
2(044.
2480
20421949
42.
2010.
303U

12-JUL-77 10102 PAGE 74
CROSS REFERENCE TABLE
USER SYMBOLS
1416
1595.
1613.
1723.
2636.
2763
730.
B06
924
1029
1105
1213
2385
2385
2385
1438

1497*
1603·
1615
2650
2650'
2766.
741
B Hil
927
1033#
1109.
1222

1502
161\
1719_
2658
2660
2774745.
820
93U
1034 '
1114
1232

1573'
1703'
17212664

1596
1704_
1723

1692'
17122652

1705
1719

2775
756
B23
932
1045
1\ 18
12361

2776.
7601
827#
954
104B
1122'
1250

2777
771
844
958
10521
113&
12&1

2778_
775.
849

2480.

1523

1632

2455.

2481'

2482'

1831>
2217

24831

24a5

2486.

24870

2488'

24891

1864
2235

1890
2249

1912'
22531

1917

1921

1939

196]

2478
2367
238H

237"

2373

399
2254

4\3
2260

414
2314

956
2385

9~2#

1053
1147
1270

2627

2633

2779.
78&
852
963
1072
1156
1279

7901
B561
990
lOB I
1165
1289

793
866
994
IOB4
\175
12931

796
B69
99BI
IOB81
11791

2683

2692

2888

1855
2446

1859
2506

1920
25]0

1921
2941#

2481

2052

208H

52#
2156.
3322.

174'
2161
3325.

237
22531

MAINDEC-I,-OZDLC-8
MACYiI 30(1046)
12-JUL-n 10102 PAGE 7&
DZDLCK,PII
06-MAY-77 10:04
CROSS R€FERENCE TABLE -- MACRO NAMES
COM.fN
ENDCOM
EOPBEG
ERROR

ESCAPE
GETPRI
GETS."
MORETA
MULT
NEWTST
POP
PUSH
REPOR1'
SCOPE
SErPRl
SETTRA
SETUP
SKIP

SLASH
SPACE
STARS

SWRSU
TRMTPP
TYPBl N
TYPDEC
TYPNAM
TypNUM
TYPOCS
TYPOCT
TYPTXT
$SCORE
$SCMT"
$$ESCA
8$NEWT
USET
SSSKIP
,EQUAT
,HEADE

,SETUP

1671
167#
19.
610

915
1047
125 9
t 71 8
1670
1671
16"
181
1671
1671
1048
4#
H
1671
6"
1051
1670
2470'
41

167#
924
1025
1164
1671
1671
4#
7R8
994
1234
2388
1671
2470.
1671
167#
167#
1671
167#
1671
16"
168#
1681
229
1671
1671
1048
2470.
1671
1034
1222
41
41
U

1768
464
926
1070
1268
2669

737
940
1079
1277
2&71

726
1084
1&71
1671

752
946
1083

782
957
1102
\324

795
971
1116
1332

805
977
1145
1339

816
985
1154
\394

822
992
1163
1476

842
1007
1171
1561

851
1014
1202
1602

862
1021
1211
1610

8&8
1027
1220
1670

901
1041
1228
1711

2605

767
952
1096
1316
2893

741
1105
2143
7102

156
1118
2)03
2217

771
1175
2435
2402

786
1232
2515
2496

796
1289
2516
2502

806

823

852

869

927

958

994

1029

729
1087

744
1108

759
1121

774
1178

789
1235

799
1292

809
1772

826

855

872

930

961

997

1032

2479
16"
734
932
1034
1193

2480
394
749,
938
1039
1203

2481

2482

2485

2486

2487

2488

764
944
1045
1212

779
950
1053
1221

793
954
1071
1250

803
963
1077
1260

814
969
1081
1269

820
975
1089
1278

843
983
1094

849
990
1100

860
999
1114

866
1005
1136

905
1012
1146

913
1019
1155

1&71
796
99&
1289
2449
415#

170
798
1029
1291
2492

237
a06
1011
1761
2508

370
908
1048
1830
2536

372
823
1050
1861
2538

72&
825
1084
1924
2554

728
852
1086
1966
2556

741
854
1105
2014
2674

743
869
1107
2092
2676

756
871
1118
2160
2898

758
927
1120
2166
2900

771
929
1175
2195

773
958
1177
2263

786
960
1232
2317

214
222

223

224

225

22&

227

228

12~5

238

1942

1978

2002

207
215
230

208
216

209
217

210
218

211
219

212
220

213
221

726
1084
2479
793
1045
1250
57
6
392

741
1105
2480
803
1053
1261

756
III B

771
1175
2482
844
1081
1279

786
1232
2485
849
1089

796
1289
2486
866
1100

806

823

852

869

927

959

994

1029

248 I
820
1072
1270

2487
905
1114

2488
924
1136

932
1147

954
115&

963
1165

990
1193

999
1204

1025
1213

MACYII 30(1046) 12-JUL-77 10.02 PAGE 77
06-MAY-77 10.04
CROSS REfERENCE TABLE _. MACRO NAMES

M~INDEe·ll·DZDLC·B

DZDLC6.Pll
.SWRHI
,SWPLO
,SCATe
,8CMTA
.SEOP
,SERRO
•• ERRT
,8POWE
,tRDDE
,SPDOC
,$READ
,SSCOP
.STRAP
,STYPD
,STYPE
,$TYPO
• ABS,

4t

20
32'
36
168
1759
1922
1964
2490
238&
2261
2158
1859
2447
2090
2315
2012

022262

000

4#

H
41
U

41

41
H

U
U

41
U

41
4'
41
41

33

ERRORS DETECTED I
DS~Z'DZDLe8.8IN,DSKZIDZDLCB.LST/eMf/SOL/'L.Toe.DSKZIDZDLce.PII

RUN-TIME. 21 10 I SECONDS
RUN. TIME PATIO. 314/33"9.4
CORE USEDI 25K [49 PAGES)

j



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-c043 52.372728, 2009/01/18-15:56:37
Format                          : application/pdf
Creator                         : Copier User
Title                           : PDF Printing 600 dpi
Create Date                     : 2005:01:05 13:53:53Z
Creator Tool                    : Oce-Technologies
Modify Date                     : 2013:11:26 09:33:44-08:00
Metadata Date                   : 2013:11:26 09:33:44-08:00
Oce Scan Application Selector String: Scanjob
Oce Scan Compression            : 8
Oce Scan Hostcomputer           : pr342
Oce Scan Identification Number String: 4573
Oce Scan Image Logic            : 1
Oce Scan Image Orientation      : 8
Oce Scan Job Description        : PDF Printing 600 dpi
Oce Scan Model                  : 166010924l
Oce Scan Resolution             : 600
Producer                        : Adobe Acrobat 9.55 Paper Capture Plug-in
Document ID                     : uuid:011948c5-5544-4044-bd30-9f716c8b4ec9
Instance ID                     : uuid:c3096273-9967-42eb-a1db-42440da78025
Page Count                      : 59
Author                          : Copier User