Digital PDFs

AH-T884A-MC

July 1984

104 pages

Original

3.9MB

view download

OCR Version

3.4MB

view download

Document:	CZIEBA0 IEC11-A IEC11-A PDP-11 DIAG JUL 1984 bw
Order Number:	AH-T884A-MC
Revision:	000
Pages:	104
Original Filename:	CZIEBA0__IEC11-A__IEC11-A_PDP-11_DIAG__AH-T884A-MC__JUL_1984_bw.pdf

OCR Text

IECLI-H

L]
TEE

AePIP=dI TG

(c)

1976-8

IOENTIFICATION

DIGITAL
THIS

PRODUCT

CODE:

T883A MC

PRODUCT

TITLE:

CZIEBAO IEC11 A POP 11 DIAGNOSTIC

PRODUCT

DATE:

JANUARY

1984

DEPARTMENT ;

CSS. MUNICH

AUTHOR :

BERT HUBER

EQUIPMENT

SOFTWARE

AND COPIED ONLY

AND

WITH THE

AND

NWNERSHIP

SOF TWARE,
OTHERWISE

CORPORATION,

FURNISHED

ACCORDANCE

INCLUSION OF

OR ANY
MADE

MAYNARD,

MASSACHUSETTS 01754

WITH

TERMS OF

UNDER

A LICENSE

THE

THE ABOVE

AND MAY

COPYRIGMT NOTICE.

OTHER COPIES
AVAILABLE TO

THEREOF, MAY NOT BE
ANY OTHER
PERSON.

THE

SOF TWARE

HEREBY

USED

SUCH L1ENSE

TMIS

PROVIDED OR
NO TITLE TO

TRANSFERED.

THE INFORMATION IN THIS SOF TWARE IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT 8 DIGITAL
EQUIPMENT CORPORATION,
DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR
RELIABILITY
0F ITS SOFTWARE ON EQUIPMENT WHICHW IS NOT SUPPL IED B8y DIGITAL.

SEQ
1

C1
TARLE OF CONTENTS

e 2

1.0

ABSTRACT

2.0

REQUIREMENTS

5.0

LOADING PROCEDURE

a.c

STARTING PROCEDURE

S.0

OPERATING PROCEDURE

6.0

ERROR MANDLING

~.0

RESTRICTIONS

8.0

EXECUTION TIME

9.0

DIAGNOSTIC MONITOR

19.0

LISTING

AND ORIGINAL

EQUIPMENT

JESCRIPTION

D1
®&

SEQ

OIAGNOSTIC PROGRAM DESCRIPTION

000000000000000000000000080000000000000000

1.0

ABSTRACTY
THIS PROGRAM IS DESIGNED

TEST

IEC-11A IEC BUS CONTROLLER FOR
2.0

AND EXERCISE

THE PDP/11.

TwHE

REQUIREMENTS

Oom

3.0

POP

11/XX

CONSOL”

SYSTEM

TERMINAL WITHM STANDARD UNIB JS ADDRESSES.

A MINIMUM OF

ALL

MEMORY.

STANDARD PROCESSOR

TESTS MUST BE RUN SUCCESSFULLY

PROCEDURE

OO0 OPOOOIOOOOPOEPIIIDIOENINILLIEIOGEPNOEIOIEDIEPOGDS

B0 G0 G0 G0 60 B0 ©0

V0 V¢

00 B0

Gr GO VO B0

G0 G0

0000606000000 00000000000000000000000000000

02 VI

)

BOOT xxDP MEDIA,
COMMAND
:
21€8??

THEN RUN DIAGNOSTIC WITH FOLLOWING

?? REFERS

TO VERSION AND REV LEVEL.

4.0

G0 G0

NOTE:

STARTING

PROCEDURE

0000000060000

0000000006000000000

PROGRAM

G060

IF NOT OTHERWISE
THE

STARTED

LOC

SPECIFIED

PROGRAM RESTART

1000

THE

(OCTAL)

ABOVE NOTED ADDRESS

ADDRESS.

5.0

OPERATING

PROCEDURE

0000020000000

00000000000000000000000

THE FOLLOWING

TINITIAL DIALOGUE

THE PROGRAM

STARTED

IS PERFORMED AF TER

B¢

G2 Ve

ALSO

-- CSS DIAGNOSTIC MONITOR

HIGHEST

MEMORY

IEC-11A

B0 B¢

COM v3.2

TBRB3A M(C

ADDRESS
: XXXXXX

IEC BUS CONTROLLER BASIC

TESTS

ENTER FIRST REGISTER ADDRESS OF TEC11 A(DEFAWLT
ENTER AND TERMINATE
By TYPING A <CR»

IS 160010)

ENTER VECTOR ADORESS OF TECL1-A(DEFAWLT
ENTER AND TERMINATE B8y TYPING A <CR>

IS 270)

ENTER IEC BUS ADORESS OF IEC11-A(DEFALT
ENTER AND TERMINATE BY TYPING A <CR>

IS 35)

SET LON SWITCH ON IEC11-A TO POS.1 (ACTIVE)
TYPE

<CR>

WHEN READY

SET LON SWITCH ON IEC11-A TO POS.? (INACTIVE)
TYPE

<CR>

WHEN READY

D0 YOU WANT A PRINTOUT OF START,END MESSAGES?(Y OR N)
OEPENDING ON Y
AND END OF

EACH

OR N,

TEST

THE PROGRAM PRINTS QUT

NOT.

TO GO STEP 8Y

STEP

THE

START

TEST

TYPE

<CR>

TO RUN?

OTHERWISE

SPECIFY

THROUGH

ALL

TEST NUMBER (DECIMAL).

IEC

TESTS

B¢

TEST

ENO

TEST

START

TEST

END

TEST

START

TEST

......... ETC.

END TEST 14
END OF

TESTING

Q¢

®e

®s

START

@4
G
®e
WS

14).

TO SELECT A SINGLE TEST WHILE TEST PROGRAM IS ACTIVE,
TYPE
(CNTRL C) AND THEN “ABO"”. AFTERWARDS YOU CAN SELECT
A SINGLE TEST. THIS TEST RUNS IN AN ENODLESS LOOP UNTIL
THERE IS AN ERROR MESSAGE OR
(CNTRL C) AGAIN.

B¢

G0 OG0 Oo

SEQ 4

JEC REGISTER ADDRESS MAY
IEC 8US ADDRESS RANGE
:

ENTERED

IN FORMAT

16XXX0
o .
36

FL
&0

ERROR

SEQ S

LI IR I

HANDLING
BB

Be Gs

ALL ERROR MESSAGES ARE EITHER

FOLLOWING GENERAL

ERROR XXX

V4 B0

FOR A DETAILED DESCRIPTION OF

THIS PROGRAM HAVE
THE

APPROPRIATE

THE

A LOOK

PAGES

LATER

THE

DIFFERENT
THE

AND

377,

ERRORS

LISTING.

G¢

DEFINING OR OF

xax IS AN OCTAL ERROR NUMBER BETWEEN

WHERE

SELF

FORM:

B¢

NOTE:;
:
:

THIS DEPENDS ON THE STRUCTURE OF

TYE PROGRAM,

RESTRICTIONS
P00

NONE

0 000000000000

8.0

EXECUTION TIME
GO

AND ORIGINAL EQUIPMENT

PO POOPLPOOOEPIOPOPOIEIOELIIPIPOIEOIEOLELEIOEESNESESEDSNDI

B¢

7.0

B¢

ERRORS MAY NOT OCCUR IN SEQUENCE.
FOR EXAMPLE:
ERROR 45 MIGHT OCCUR BEFORE ERROR 21

THIS OIAGNOSTIC WAS DESIGNED AND TESTED AT
WITH THE ACCORDING CSS HARDWARE EQUIPMENT.
A NORMAL ERROR FREE RUN
TAKES ABOUT 4 MINUTES

THAT

EQUIPMENT

CSS/DP

61
LSBTTL

I€C ERROR DESCRIPTIONS

ERROR

SMR CONTENT

ERROR 2

CIR CONTENT

;

ERROR

;

ERROR

;

ERROR

ERRQOR

ERROR

SHOUWLD BE

ERROR

;

ERROR

IS NOT ZERO AFTER A MASTER CLEAR
WAS:

IN CIR NOT SET By

CIR CONTEN?

CIR CONTENT

"BIS” FUNCTION

SACS BI7T NOT RESET By MASTER CLEAR

CIR

SIC PRODUCES

13
14

ERROR

;

ERROR 20

CIR

“ILLEG.

CONTENT

SIC DOES NOT BRING
OCCURS.
=

CIR

MESS.” WITH SACS
R1

SIAS

CONTENT

SMR

B8UT NO
Rl

TRUE

‘' ILLEG.

CIR

SIAS DOES NOT

CIR

'STATc
=

BRING CACS.
R1

CACS

CIR

CHANLc

DOES NOT

CIR

SMR

NO <ILLEGAL
IS NOT SET,
RO = CIR
NO

IS NO LONGER

INTERRUPT

SMR

SIAS DOES NOT BECOME ZERQO AFTER MORE

MESS

SIR

SIAS BIT O TO 1 CHANGE DOES NOT PRODUCE
"STATE CHANGE®
.

WAS:

0O;

SACS BIT

AFTER A MASTER CLEAR

IOR CONTENT

S8:

SHOWLD BE:

IS ILLEGAL

SEQ 6

RESET

AFTER

*'SIAS'

.TRUE.

WHEN

'SIAS‘

<SICS>

WHEN

SMR

THAN 200 MS.

TO O CHANGE.

IS RESET

10 O.

CACS

MESSAGE>

OCCURED

(<ILLEGAL MESSAGE>
RO = CIR

SMR

AFTER

SENDING

<SACS»

<SIC»>.

SHOUWLD OCCUR AND BRING AN

INTERRUPT.)

H1
ERRUOR

THE

ACTUAL

CONTENT

=
=

THE
AND
RO

ERROR

ERROR 27

ERRCR

ERROR

<SRE>

CHANGE>.

ACTUAL

IN SMR NOT

CIR

<SRE>

‘SHOULD BE'
OF

SET

VALUE OF CIR BITS 8

CIR

SMR

WITH <SACS>

SMR

ICR

CIR

SET,

CONTENT

SMR

1 CHANGE DOES NOT PRODUCE
R1

IN SMR CAN T BE CLEARED BY

CIR

<STATE CHANGE>.

SMR

‘BIC

CLEARING OF

<SRE>

DOES NOT RESET

CLEARING OF

<«SRE>

DOES NOT OR NOT ONLY

CIR

CHANGE>.

<SRAS>

SMR

INSTRUCTION,
IN SMR.
PRODUCE

R1:=SMR

<INTERRUPT

ENABLE>

IN CIR CAN NOT

SET.

<INTERRUPT

ENABLE>

IN CIR CAN NOT

CLEARED.

«CSBS>

NOT

SET

<CSBS>

SETTING DOES NOT

ERRIR

CIR

CONTENT

<SRAS> O TO

ERROR

<«SIC»

<SRE> DOES NOT BRING <SRAS> BUT NO <ILLEGAL MESSAGE>

ERROR

CIR

A <STATE
RO = CIR

ERROR

CONTENT

<SRE> PRODUCES

ERROR

SETTING

INTERRUPT THAT OCCURED AFTER SEZTYING <SACS»
<SIC> WAS NOT OR NOT EXCLUSIVELY CAUSED By

<STATE

ERROR 24

AFTER

CIR
SMR

BITS 8-15 OF RS

OCCURED

SETTING OF <SACS> AND <«SIC> SHOULD BRING <SIAS»>,
WHICH IN TURN SHOWWD FORCE AN INTERRUPT BY SETTING
<STATE CHANGE>, BUT NO INTERRUPT OCCURED.

RO
R1

ERROR 23

THAT

WITHOUT <SACS> WAS NOT, OR NOT EXCLUSIVELY CAUSED
By <TLLEGAL MESSAGE>.
BITS 8-15 OF RS = 'SHOWD BE
CONTENT OF CIR BITS 8
RO

ERROR 22

INTERRUPT

CIR

AFTER

SETTING
Rl

<GTS»>.,

SMR

PRODUCE

SMR

<STATE

CHANGE
>,

OCCURS.

SEQ

I1
NO
IN

ERROR

ERROR 40

ERROR 41

<ILLEGAL MESSAGE>
"STANC BY' STATE.
=

CIR

<TCA>

<CSBS>

<TCA>
=

DOES NOT

RO= CIR

CHANGE>.
RO

TO SETTING OF
=

SMR

OR NOT

SMR

ONLY

PRODUCE

IN <CSBS> DOES NOT OR NOT ONLY

CIR

SEQ 8

<GIS»

<STATE

PRODUCE

SMR

<CACS>.

WHEN ADDRESSING THE TALKER IN <CACS>, NO INTERRUPT
OCCURED.
THE INTERRUPT SHOUW
D HAVE BEEN SET By «DATA ACCEPTED>.
RO = CIR
Rl = SMR
R2 = IOR

ERROR

INTERRUPT

BUT

ERROR 44

CIR

AFTER

SUCCESSFULLY

POSSIBLE
RO

OCCURED BY

ADDRESSING

THE

IT WAS NOT OR NOT ONLY CAUSED BY

TO SET

CIR

SMR

ADDRESSING

<CSBS>

=«

AND

SMR

THE

<TACS>

TALKER,

<DATA ACCEPTED>.

IOR

TALKER,

WHEN SENODING A DATA BYTE WITHOUT ADDRESSING
NO INTERRUPT OCCURED.
RO = CIR
R1 = SMR
R2 = IOR

ERROR 46

<TCS> DOES NOT
RO = CIR
R1 =

ERRCR

LOW ORDER BYTE OF
READ BACK

<ILLEG.

<GTS»>,

IOR

ERROR 45

PRODUCE
SMR

IS NOT

CORRECTLY BY

THE

LISTENER,

MESSAGE>

IOR <«BITS O 7> CNA NOT BE SET OR

CORRECTLY.

SHMOULD BE
= ALL ONES
*IS' = RO
BITS 8 15 CAN BE IGNORED BUT SHOULD BE ZERO.
ERROR

ERROR 51

ERROR

ERROR 54

WHEN

SENDING

THE

CIR

SENOING

WAS NOT

LISTENER

SMR

Re2

ADDRESS,

INTERRUPT

OCCURS.

IOR

THE LISTENER ADORESS FORCES AN INTERRUPT

OR NOT

RO-R2

SAME

AFTER

LISTENER

RO R2

SAME

ONLY

AS ERROR

CAUSED By

ADORESSING
ERROR

ERROR

THAT

AND

<GTS>

<LACS>

SET.

WHEN SENDING A SECOND
AGAIN <DATA ACCEPTED>
SEE

<DATA ACCEPTED»>.

NO INTERRUPT TO TALKER
RO R2 SEE ERROR S0

RO-R2

ADDRESSING

DATA BYTE
CAMt uP,

BEFORE

READING

THE

FIRST

J1
:

ERROR 55

ERROR 56

FIRST

DATA BYTE

SENT

RO R2

SEE

AFTER

READING

ERROR

THE

AND

FIRST

RECEIVED

SENT

DATA

NOT

BYTE,

THE

5€Q 9

SAME,

SECOND

SENT

DID NOT BRING <DATA ACCEPTED>.

RO R2

ERROR 57

ERROR 60

ERROR 61

SEE

ERROR 62

ERROR 63

ERROR 64

ERROR 65

ERROR

SENT AND RECEIVED

IS NOT

SEE

THE

SAME.

SENDING OF DATA BYTE DOES NOT PRODUCE
ERROR

INTERRUPT,

SENDING A DATA BYTE FORCES AN INTERRUPT THAT
OR NOT ONLY PRCOUCED BY <DATA ACCEPTED->.

RO-R2 SEE
:

ERROR

SECOND DATA BYTE

RO-R2

RO R2

SEE

WAS NOT

ERROR 50

DATA BYTES SENT AND RECEIVED ARE NOT EQUAL,

RO-R2

SEE

ERROR

RO-R2

SEE

ERROR

WHEN SENDING A BYTE

WITH

<«LAST

BYTE>

NO <END> TO <LAST BYTE>
RO-R2 SEE ERROR 50

DATA CHECK OTM

RO-R2

SEE

ERROR

S50

ERROR 66

NO <LACS>
RO-R2 SEE

TO <LTN>
ERROR S50

ERROR 67

AFTER

<«LCA5>

THE FOLLOWING COMMAND

{LTN-GTS-TCA-GTS]

SEQUENCE
.

RO-R2 SEE ERROR S50
:

ERROR

<LACS>

STILL

SET

AFTER

(LTN-GTS-TCA-LUN-GTS)

RO R2

ERROR

<BLOCK

RO-R2

ERROR

SEE

DAC>
SEE

SEE

DATA BYTES

CAN NOT BE

ERROR

SET

CAN NOT BE RESET

ERROR

SENOING A BYTE

RO-R2

ERROR

RO-R2

SEE

THE FOLLOWING SEQUENCE:

WITH

FORCES AN

INTERRUPT

ERROR S0

SENT AND RECEIVED WITH

NOT EQUAL
.
RO R2 SEE ERROR

«BLOCK

DAC>

ARE

SET,

iK1
<SRQ@>

TO <RSv»

ERROR

;

ERROR

;

ERROR

100

ERROR

101

;

ERROR

102

<RPP> CAN NOT BE SET
RO-R2 SEE ERROR 50

ERROR

103

<RPP> CAN NOT BE RESET
RO-R2 SEE ERROR 50

ERROR

104

NO <ILLEG.

E7.ROR

105

BIT 10 IN CIR NOT SETTABLE BY “BIS”
INSTRUCTION (INMIBIT SRQ@ INTERRUPT)

ERROR

106

BIT

ERROR

RO R2

SEE

NO <SPAS>
RO R2

SEE

ERROR 50

T0O <SPE>

ERROR 50

DATA CHECK ON STATUS BYTE
RO-R2

SEE

ERROR 50

<SRQ@> NOT OFF AFTER STATUS BYTE RECEIVED

RO R2

SEE ERROR

<TACS>

AFTER <SPD>

RO R2 SEE ERROR 50

MESSAGE> WHEN SENDING <SRE>

WITHOUT SENDING <SACS>
RO-R1 SEE ERROR 50

BEFORE.

10 IN CIR NOT RESETTABLE By

INSTRUCTION

"BIC'

ERROR

107

SEE ERROR

ERROR

110

BIT

ERROR

111

BIT 7 (INTERRUPT) SHOUWD BE SET WITH
CLEAR SRQ INT INMIBIT BIT (BIT 10 IN CIR)

;

ERROR

112

BIT
SRQ

;

ERROR

113

BIT 7 IN CIR NOT SET AGAIN WITH
INHIBIT SRQ INT B8IT CLEAR AGAIN

105

10 IN CIR NOT RESETTABLE Br MASTER CLEAR

7 (INTERRUPT) NOT CLEAR WITH INMIBIT
INTERRUPT BIT SET (CIR)

SEQ

L1
ERROR

114

CIR SHOULD CONTAIN #8602 (STATE CHGE, INT,LON)

ERROR

115

SMR SHOULD CONTAIN ONLY BIT

ERROR

116

CIR SHOUWLD CONTAIN ¢600 (STATE CHANGE, INT)

ERROR

117

LACS DISSAPPEARED WITH LON SWITCH IN INACTIVE

12 (LACS)

LON MUST BE CLEAR AGAIN

POSITION

(POS.

THIS SWITCH.

AFTER FORMER ACTIVATION

SEQ

SEQ 12

J
B
X
2N 3K BX 2N 2% B

[

S0
Ws
OV

O
S5

»
*

(VO1E0OQ)
(VO1€EO01)
(VO1EOQ2)
(VO2EOOQ)

20-JUN-76
29-SEP-76
27 JAN-77
O1-MAR-77
01-APR-77
01 FEB-80
22 APR 80
12-MAR-84

DATE:

TEST

®e

IEC-11A MAIN

NAME:

PRODUCT

T883A-MC

CODE:

)

PRODUCT

*®

[

[
L

S¢

0808048800080 80800404884040444000000000000

* 200460608088 44480804880804848480400444840040 -

[ 3R

(VO2EOl)
(VO3EO2)

(VvO3EO3)
(ZIEBARO)

[

CSS/DP MUNICH

MAINTAINER:

[}

AUTHOR
:

BERT HUBER CSS

UPDATED
UPDATED
UPDATED
UPDATED
UPDATED
UPDATED

10 VO1EQ2 BY
T0 VO2EOO BY
T0 VO2EO1 BY
T0 VO3EOQ2 BY
T0 VO3EO3 BY
TO ZIEBAO B8Y

L]
L]

8.BAUDISCH
8.BAUDISCH
8.BAUDISCH
G. SZENTES
G. SZENTES
J. LEVESQUE

L
L)
L)

L
*

9.0

DIAGNOSTIC MONITOR DESCRIPTION

STARTING

O°

[

PROCEDURE

EERER SRR EERE R E

ERRERERERERERNERHE.]

USING

A PROCESSOR

WITH

SWITCH PANEL

PRESS

“LOAD

PRESS

“START”

ADDRESS”

SWITCH

B¢

PLACE START ADDRESS INTO SWITCH REGISTER
(START ADDRESS IS 1000 OCTAL )

BEGIN

QUT

THE

IDENTIFICATION

B)IUSING

A LSI1

TYPE

ST,

ADDR.
,

(1000 OCTAL3} AND

lG:

INTO ONE

B¢

PROGRAM SHOULD
PRINTOUT,

PROGRAM

STARTS

WITH

IDENTIFICATION PRINTOUT,

LINE,

CYJISING A PROCESSOR WITHOUT A CONSOLE

SEQ 13

(11/04,11/34)

PRESS “CNTRL” AND “BOOT" BUTTONS. ODT CONSOLE
ROUTINE PRINTS A $ SIGN,
TYPE IN "L 1000° AND A <CR>,
TYPE AFTER THE “$
AN
S' AND <CR>. PROGRAM SHIWD BEGIN
PRINT IDENTIFICATION PRINTOUT.

PROCEDURES

G¢

OPERATING

OPERATE AN ERROR SEE UNDER
A)
MODIFY A LOCATION SEE UNDER
C)
OUMP A LOCATION SEE UNDER
8)
ABORT THE RUNNING PROGRAM SEE UNDER

ALL INPUT/0QUTPUT OPERATIONS
MONITOR. NO SWITCH SETTINGS
ALL COMMANDS, REQUIRED WHEN
ENTERED VIA THE TERMINAL.
THESE COMMANDS SET OR CLEAR

ARE OONE VIA THE
ARE USED.
AN ERROR OCCURS,

DIAGNOSTIC

BITS

LOCATION

ARE

MEMORY

CALLED PSEUDO-SWITCH REGISTER.
THE

FOLLOWING OPTIONS

ARE

AVAILABLE:

HALT

/NH

NO HALT

/PR

/NP

/CT
/NC

2
:

COUNT ERRORS
NO ERROR COUNT

CONTINUE

/SC
/NS

=
=

/CONT

AFTER

ERROR(DEFAWLT)

AFTER ERROR

ERROR

MESSAGE

(DEFAW
7°

PRINTOUT

SCOPE LOOP ON
NO SCOPE LOOP

(DEFAWLT)

THIS ERROR
(DEFAWL
T

SWITCH

WHEN

ERROR

OCCURS,

TrHt

FOLLOWING

TExT

PRINTED:

ERROR

000X XX

AT LOCATION:
XXX XXX
HALT AFTER ERROR
.

THE
THE

ERROR NUMBER CAN BE
LOCATION ADDRESS IS

THE

RANGE

37",

ABSOLUTE.

®¢

G¢

O¢

/HT

G»

O¢

G¢

TO
TO
TO
TO

WHEN AN ERROR
THE
ARE

ERROR NUMBER,
PRINTED. THEN

INPUT

OPTIONS.

FOUND,

THE

PROGRAM

INTERRPTED,

ERROR LOCATION AND PSE DC STOP MESSALE
THE DIGNOSTIC MONITOR waAl®
IR

AND THE
'PROMPT
A NEW LINE.

STRING"

PRINTED

5€Q

PRESS <«CNTRL. C>»
THE BEGINNING €~

COM»

(PROGRAM PRINTS WILL BE UNDERLINED FROM NOW)

G¢

wee

NOW YOU CAN SELECT
SYNTAX OF

THE OPTIONS YOU NEED TO FIND THE ERROR.

A COMMAND LINE

IS AS FOLLOWS:

THE

<«CR>

Gt OV

COM>ERR=/0PTL/0PT2/0PT3/,, .OPTN/CONT

THERE

IS A ERROR IN THE

INPUT LINE

1S PRINTED:

THE FOLLOWING

MESSAGE

SYNTAX ERROR

THE

INPUT,

OG0

YOU CAN NOW REPEAT

ANY COMBINATION OF OPTIONS IS LEGAL, BUT PROBABLY NOT
WHEN YOU TYPE
/SC/NS
THE FIRST OPTION IS OVER-

THE

COMMAND LINE

IS INTERPRETED FROM LEFT

TO RIGHT.

WRITTEN.

USEFWUL
.

Vs G0 Ve OU

THE LAST OPTION IN A LINE MUST BE
/CONT,
00000020000000000000000000000000000000000

THEN

THE MONITOR RETURNS CONTROL

THE

POINT

PROGRAM

OPTION

THIS OPTION CAN BE USED TO CHECK
MEMORY LOCATION OR A REGISTER.

THE

CONTENT

IT CAN ONLY BE CALLED AFTER AN ERROR OR WHEN

THE RUNNING PROGRAM BY PRESSING “"CNTRL C-.
EXAMPLE
:
AFTER AN ERROR PRINT YOU PRESSED “CNTRL C
RETURNED

THE

PROMPT

YOU

AND

INTERRUPTED

THE

MONITOR

STRING:

@0 B¢ B0 G0 B0 VI €0 B¢ G

G¢ Gs

G0 Bs

WHERE THE ERROR WAS ENCOUNTERED AND THE PROGRAM CONTINUES
WITrt THE ENTERED OPTIONS.

COoM»
IF YOU WANT TO CHECK LOCATION 1000 AND
€.G. 012767, SO YOU MAVE TO TYPE AFTER

COM>DMP /001000<CR>
012727
ssseanre

IT CONTAINS
THE PROMPT STRING

SEQ 15
INTO

ITS WAIT

ROUTINE

AND WAITS

CONTENT

V¢

OS2 80

THE MONITOR RETURNS NOW
FOR FURTHER [INPUTS,

SET

OPTION

G4 @0

THIS OPTION CAN BE

USED

MEMORY LOACTION OR OF

IT CAN

TO MODIFY

A REGISTER,

00
G0

BE CALLED ONLY AFTER AN ERROR OR WHEN YOU INTERRUPT

THE P'UNNING PROGRAM., TO CALL
MONITOR ANSWERS, AS PREVIOUS

G0 _GF

THE

THE MONITOR PRESS
SEEN, BY PRINTING

"CNTRL

com»

YOU WANT
ON

THE

TO CHANGE LOCATION 1000,

SAME

L INE

YOU HAVE

TYPE

G0 G0

COM>SE T/001000/000000<CR>

THE

LOCATION CONTAINS NOW

SIX

ZERO. INPUT OF NEW MEMORY LOCATION CONTENT MUST BE
OCTAL DIGITS LONG WITH LEADING ZERO'S,

ABO

OPTION

THIS OPTION CAN BE USED ONLY

AFTER AN ERROR OR WHEN

G0
B
G0
G0

SUPPORTED,

TO CALL

A SUBTEST,

"CNTRL

SAME

L INE

THE

MONITOR RETURNS

AFTER PRESSING

comM»
NOW

THE

TYPE

B¢

COM>ABO<«CR>

G0 B4

AND THE PROGRAM WILL GO TO BEGIN OF
IF YOU ENTER O OR <CR>» OR TO A

ROUTINE

00
B
B8
@6

YOU

INTERRUPT THE RUNNING PROGRAM By PRESSING “CNTRL C" .
USING THIS OPTION ALLOWS TO ABORT THE PROGRAM AT CURRENT
POINT OF TEST AND EITHER TO GO TO BEGIN OF TEST , OR IF

10.0

LISTING
®0

0000

WHERE

YOU CAN SELECT

TEST

SUBTEST

WITH

AND

THE

30 MAR 84 16:00

1230

1252
1285
1317
1418
1437
1463

62
107
209
234
255
284
314
379

402
444

514

534
646

770

849
910
970

1064
1089
1118
1120
1178

o
o
o
.
e
o

OO APAPOOPORPANA
NN

ron

. .ADP
.T07
. .BUF

TEST

SELECT ROUTINE

LOCAL MACRO DEF INITIONS
TEST LON SWITCH FEATURE
TEST
EXECUTE MASTER CLEAR
TESTY
TEST SACS BIT IN CIR
TEST
TEST CIR BIT 10 INHIBIT SRQ INTERRUPT
TES]
TESTY SACS SIC SIAS ILLMSG CACS
TEST
TESY INT ENB
TEST
TEST INTERRUPT WITH STATE CHGE
TESTY
TEST STATE CHGE INTERRUPT WITH SRAS
TEST
- IOR DATA TEST
TEST
TEST STATE CHGE INTERRUPT WITH GTS AND SIC
TESTY 10 TEST DATA TRANSFER WITH INTERRUPT
TEST 10A
-RANDOM TALKER AND LISTENER DATA TEST
TEST 11 -- TEST FUNCTION OF <LTN> AND <LUN>
TEST 12 TEST FUNCTION OF «BLOCK DAC»
TEST 13 -- TEST FUNCTION OF <RSV>,<SR@> AND <SPAS»
TEST 14 --- TEST RPP BIT R/W
IEC-INTERRUPT MANDLER
SUBTEST ADDRESS TABLE
VR NOVNE W

979

1162

873

661
712
759

508
536
590

EMT
.TRP
.I0T
. .PWR
RSV
. .RRS
.KBI
.INP
. IAY
.. IAA
..IAD
.. IAE
..RED
. .WRT
. .K80

430
482

329
399

INITIALISATION

MEMORY TEST WITH MEMORY MANAGEMENT UNIT SETUP
. .HMAP MAPPING ROUTINE

267

LOW CORE

53
108
215

O® - s NN DT,

1 HBED: o MEBRPENIRO0

MESSAGES

CONSTANTS AND PARAMETERS

SEQ 16

EC2
A DTAGNOSTIC

MACRO

M1200

30 MAR

[» VN XY VY

PAGE

.ENABL
.ENABL
LIST
.SBTTL
.MCALL
INIT
ME

SEQ 17

AMA
ABS
ME
LOW CORE
INIT

MAYNARD MASSACHUSETTS

THIS SOFTWARE

IS FURNISHED UNDER

A LICENSE

FOR USE

ON A

SINGLE COMPUTER SYSTEM
AND MAY BE
COPIED ONLY WITH THE
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOF TWARE, 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
}3 Sgg OWNERSHIP OF THE SOFTWARE SHALL AT ALL

TERMS. TITLE
TIMES REMAIN

©¢

LIST

16:02

IEC11

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT By DIGITAL
EQUIPMENT CORPORATION.

DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY
ITS SOFTWARE ON EQUIPEMENT WHICH IS NOT SUPPLIED Br DEC.

Fe
IECl& A DIAGNOSTIC
CORE

000000

16:02

PAGE

SEQ

CSSMON

MZ001

THE PSW BY

ALLOWS

TO USE

A MACRO

"CLR"

"MTPS:',

ALLOWS

START

THAT

EITHER

CLEARS

GS001

B¢

THIS CHANGE

.PSECT

THIS CHANGE

THE

PROGRAM AT

LOC.

200

®e

000000

LASECT
.%0
.REPT
.2
107
.ENDR
IO

000200

001000

003126

002326
002524

000030

000137
000137

000137
000100

001000

001204

10¢:

.PWR

1PRICRITY

= O

{PRIORITY

:PRIORITY

sPRIORITY

s POWERFAIL -RESTART -HANDLER

;EMT -HANDLER

..TRP

.REPT
.*c
10T
.ENDR
JMP
.REPT
.02
10T
.ENDR
JMP
.REPT

sPOINT TO VECTOR 2
tHANDLE ILLEGAL TRAP
:
s ILLEGAL TRAP -HANDLER

—

003056

000020
000022
000024
000026
000030
C J0%2
000034
000036

000000
000004

[eX Yo R'" Yo R" Yo X3

30 MAR

®e

LOW

MACRO M1200

: TAP -HANDLER

10¢
137

START
100

H
sPOINTER TO VECTOR .2
sHANOLE ILLEGAL TRAP
:
s INITIALIZE SYSTEM
H
sPOINTER TO VECTOR 2
sHANDLE ILLEGAL TRAP
:
: INITIALIZE SYSTEM
;STACK

AREA

:02GS001%e

;06GS001ee

;08GS001¢»

s
;68GS001
104GS0014e

10e¢GS001ee

e
;48GS00]
;64GS0012s
:406GS001se

G2
ESE[&OQEDIAGNOSIIC

MACRO

M1200

30 MAR

001204
001206
001212
001220
001224
001230
001232
001240
001242
001246
001252
001260
001266
001274
001302
001306
70 001310
71 001314
72 001316

73
74 001324
75 001350
76 001360

77 001366
78 001372
79 001374
80 001374
81 001400
82 001402
83 001410
84 001414
85 001416
86 001424
87 001424
88 001430
89 001434
90 001436
91 001440
92 001442
93 001444
94 001446
95 001450
96 001460
97 001470
98 001476
99 001504
100 001510
101 001512

PAGE

SEQ 19

@
®¢

MZ001

AS VERY FIRST INSTRUCTION DO A "RESET” TO CLEAR
ALL HARDWARE THAT IS IN AN UNOEFINED STATE

50
51
52
53
54
5%
56
57
58
59
60
61
62
63
64
65
66
67
68
69

16:02

a7
48
49

000005
012706
012737
005037
005037
000240
012737
000404
005037

012737
012737
012737
012737
012700
005020
020027
001374
012737

001204
001242
000006

START:
000004

177776

177777

$..TYP:

000006
000004
003424
000340
007026

TYP, .E:

012737
004737
000414

007026

012700
005001
012737
012706
005740

160000

001516

000060
000062
1%:

052737
012737
005737
001375
000137

CLR
cHe
BNE

000004

010614

177560

01..KB1,d060
#340,8062
OKBBUFF ,RO

(RO).

RO, 6PROMF S
18
€1000,SCOPAD

MOV
CLR

0160000,R0
R1

1CLEAR THE WORLD

$MZ001

1 SETUP SP

:PREP FOR

TEST

:+IS IT A PDP OR A LSI

sIT IS A PODP
:SKIP LSI PART
: INDICATE A LSI
;sREBUILD
:

sSETUP KEYBOARD VECTOR
3

sRESET

ALL

;

FLAGS

’

:IF NO SCOPE LABEL IS SET
; THEN GOTO START

sSET PS TO O

1MZ2001

1 SAY HELLO TO EVERYBODY

;SETUP INPUT-BUFFER-POINTER
sCALL MEM, TEST WITH MEM. MANAGEM. SETUP ;BB001
:GO TO SAVE MIGHEST MEMORY ADDRESS
;88001
:88001
sHERE IF NO MEMORY MANAGEMENT FOUND
$SETUP MAXIMUM CORE -ADDRESS
;188001
;SETUP FOR MEMEND.2 FOR UNMAPPED PROC.
1 SETUP

TRAPHANDL
ING

-(RO)

s TOP OF

MOV
MOV

RO ,MEMEND
R1,MEMEND
.2

;1 SAVE HIGHEST MEMORY ADOR.
:SAVE EXTENSION BITS
:PUT ADDR16 INTO CARRY

Q.+6,804

OSTART,SP

;REBUILD STACKPOINTER
CORE?

;REBUILD TRAP TO 4 VECTOR
tHERE

IF HIGHEST MEMORY

ADODRESS FOUND

;88001

0BIT6,38TKS

;188001
;88001
;188001
;PUT ADDR17 INTO CARRY
1ROTATE ADDR17 INTQO MSB8 OF RO
:88001
tRESET CARRY
;188001
;SHIFT OUT THE LS-OCT DIGIT OF PHYS ADDR ;8B001
;DUMP ADDRESS
tPRINT LS-OCT-DIGIT ALWAYS AS "6
°
188001
$ENABLE TTY INTERRUPTS

OUTFLG

; SYNCHRONISE

ASR
ROR
ASR
ROR

R1
RO
R1
RO

ROR

WRITE
8IS
MOV
ST

NO6

BNE
JMP

IN THE PROGRAM

AFTER ERR=/SC

MOV
MOV
TSTY
REMVEC

DuUMP

000040

06,4
04,6

JSR
B8R

CLC

000100
000042
007152

0-1,88PTYP
TYP. .E
$$PTYP

00
MVERSN
OKBBUFF ,KBBPNT
PC.M.
. .TST
M..SAV

MOV

007146

007022
007024

MOV
MOV
MOV
MOV
MOV

PSET
WRITE

M. .SAvV:

010037
010137
006201
006000
006201
006000
000241
006000

B8R
CLR
STCKUP

MOV

007172

M,.TSE:

001410
001204

CLR
CLR

OSTART,SP
0s..TYP,4
6
oPs

MOV

007016

001000

INITIALISATION

NOP

007016

007202

.SBTTL

RESET
MOV
MOV

1ROTATE

OCT,RO
942,84040
4

COM. .E

tPREP

ADDR16

THIS

INTO MSB

LOCATION FOR

OUTPUT

: NOW WE ARE ON THE AIR

USING

xXxDP

B¢ 16702 PAGE 5
BERDAT*1REOCII3 Benonr HERREEHRRTOuNDD HPG
{82

105

‘

)

.SBTTL
SUBROUTINE:

L E R EEREREENER]

SEQ 20

MTMMEMORY TEST WITH MEMORY MANAGEMENT UNIT SETLP
M, TST
aeoeesSss

108
109
110

;s THIS ROUTINE CHECKS THE AVAILABILITY OF A MEMORY MANAGEMENT UNIT
;IN PDP 11 PROCESSORS AND SETS KISARO,...KISAR3 10O THE LOW 24K -WORDS
;0F THE COMPUTER MEMORY .

112

;KISAR6 IS USED TO MAP THE MIGHEST MEMORY ADDRESS CHECK POINTER

114

s INPUT:

(SP)

*RETURN ADDRESS

sOUTPUT

sLOW 16 ADDRESS BITS OF HIGHEST MEMORY ADDRESS

s AUTHOR ;

BERNHARD BAUDISCH CSS/DP MUNICH 19 DEC

111

1KISAR7

113

115

116

117
118

:
H

119

120
121

122
123
124
125

126
127
128
129

0015:6
001516
001524
001530

012737
005037
012737

131 001566

012737

001574
001576
001600
001606
001610
001612
001612

139 001636
140 001646

141 001652
142 001660

143 001662
144 001662
145
146
147

148 001700

012700
(05710
103031
162737
002401
000771

012716

042737
000422

001776
000252
001776

000006
002006
007400
000001

000004

000001

177572
M..DET:

000005

103402
000001

012737
012737

000004
000006

000402

012737

40$:
45%;

160000

000252

000250
000252
000004

M,
. RET:

;GET HIGHEST ADDRESS WITHIN APR6 RANGE

172354

001374

16,17

0157776 .,RO

000200

30%:

MOV

20¢:

ADDRESS BITS

;sREFERENCE LABEL
;SETUP SEGMENTATION TRAP CATCHER
$.o.
;SETUP TRAP-4 CATCHER

000004

157776

012701
006316
006101
042700
050016
012600

158 001734
159 001742

=8ITS 0,1

1/0 PAGE

oM. . TRP, 80250
80252
oM. . TRP, 304

001766

151
152
153
154
155
156

157 001726

SO-CALLED

MOV
CLR
MOV

172354
007020

005001

001706
001712
001714
001716
001722
001724

000250

M,.TST:

CLR
CALL
MOV
MOV

149 001702

150 001704

THE

005037
004737
012737
012737

130 001562

TO MAP

001536
001542
001546
001554

132
133
134
135
136
137
138

IS USED

806
M. .MM
07400 ,KISAR6
o1, 8SMTYP

oM. . HIM, 804

TST
8CC
SuB
BLT
BR

8RO
M..0ET
0200 ,KISAR6
303
208

PSET
WRITE
MOV

&0
MEMDEF
oM, . TSE,(SP)

PUSH
.REPT
ASL
.ENDR

KISAR6
S
(SP)

CLR

8IC
B8R

o81T0,SR0O
M..RET

B8CS

408

B8R

45¢%

MOV
ASL
ROL
8IC
8IS
MOV

MOV
MOV
MOV

e8ITO,R1
(SP)
R1
9160000,R0
RO, (SP)
(sP).,RO

#4252 ,84250
24,80252
06,804

PR
;SETUP DEFAULT MAPPING,ENABLE TMMM
{MAP WITH KISAR6 THROUGH MEMORY
tREMEMBER THAT WE HAVE MEMORY MANAGEMENT!

1SET UP TRAP 4 CATCHER

;SEE IF ADDRESS PRESEN!
soC IF ADDRESS FOUND
sMAP TO NEXT LOWER 4K WORD BANK
s THIS CASE SHOULD NEVER HAPPEN
1CHECK NEXT LOWER 4-K WORDS
sHERE ONLY IF MAIN PROCESSOR HARDWARE ERROR
$SET PRIORITY TO O
;MEMORY
tMODIFY

MANAGEMENT DEFECT
RETURN ADDRESS TO UNMAPPED

:OISABLE MM
sAND GO AHEAD LIKE UNMAPPED SYSTEM

SYSTEM

sHIGHEST MEMORY ADDRESS FOUND
sGET MAP REGISTER CONTENTS
H
;PUT ADDRESS BIT 17 INTO PSW CARRY
H

:+CS

IF ADDRESS B8YT

{HERE

IF BIT17 NOT

17 SET

SET

;FLAG BIT 17 FOUND
tGET ADDRESS BIT 16
s INSERT BIT IN MEMORY EXTENSION MASK
tMASK QUT APR SELECTION BITS
1BUILD 16 BIT BASE ADDRESS
;- ->RO FOR OUTPUT TO CALLER

sRESET SEGMENTATION TRAP CATCHER
oo
tRESET

TRAP-4 CATCHER

Ie
oITH MEMORY

165 001750

161 001756
162 001760
163 001760
164 001764
165 001766
166 001766
167 001774
168
169 001776
170 001776
171 002000
172 002002
173

000006

MOV
RTS

012737
000207

000004

012716
000760

0N1374

052766
000002

000001

U..DET:
M. JHIM:

000002

022626
005726
000137

191
192
193
194
195 002006
002006
197 002014
198 002020
199 002024
200 002030
201 002032
202 002034
203 002036
204 002042
205 002044
206 002050
207 002054
208 002060
209 002064
210 002070
°ll 002074
212 002100
213 002106
214 002114
215

..TRP:

000207

10¢:

000200
000400
000600
001000
001200
001400
007600
000001

TO CALLER

B8R

+MODIFY RETURN ADDRESS
sRETURN COMMON
i TRAP
-4 AND SEGMENTATION

8IS

08IT0,2(5P)

tSET CARRY IN RETURN PSW SETUP

cHpP
TST
JMP

(SP)e ,(SP)
(SP)»
v..0e7

tCLEAN STACK OF INT, VALUES
sCLEAN STACK FROM RETURN ADDRESS

{HERE

IF MEMORY MANAGEMENT

tRETURN WITH CARRY

sNO MEMORY

SET

MANAGEMENT

ADDRESS NOT

TRAP

CATCHER

INDICATOR

UNIT

AVAILABLE

SUBROUTINE M. .MMM
THIS ROUTINE IS CALLED TO SET UP
REGISTER WITH DEFAULT VALUES AND
MANAGEMENT
.

INPUT:
OUTPUT;

NONE
ALL PDRS ARE PRESET WITH
APRO IS PRESET WITH O
APR1
“
200
APR2

400

APR7

7600

MOV

DEC
BNE

CLR

177572

44,806

oM., TSF,(SP)
M..RET

MOV

172340

SEQ 21

MOV

MOV
MOV
MOV

077406
000010
172300

tRETURN

PUSH

012700
012701
012702
010022
005301
001375
012702
005022
012722
012722
012722
012722
012722
012722
012712
052737

RTI

001760

174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190

PAGE

MOV
MOV
MOV
MOV
MOV
MOV
MOV

77406

IS ENABLED

RO,R1.R2
©77406,R0
08. ,R1
OKISDRO,R2

RO,(R2).

10
OKISARO,R2
(R2)»
#200,(R2)+
2400,(R2)»
0600,(R2)»
01000,(R2).

01200,(R2)
.

BIS
popP

01400,(R2).
07600,8R2
oBIT0,SRO
R2,R1,RO

.SBTTL

$..MAP

RETURN

THE APR AND PDR
TO ENABLE MEMORY

: SAVE
:GET PAGE DESCRIPTOR REGISTER SETULP
;SETUP FOR 8 PDR'S
$+GET KISDRO ADDRESS
1SETUP NEXT PDR
s COUNT SETUPS
tNE IF MORE TO 0O
iGET KISAR BASE ADDRESS
1SETUP KISAR
1SETUP KISAR
;SETUP KISAR
;SETUP KISAR
$SETUP KISAR
1SETUP KISAR
1 SETUP KISAR
OB UWN-O

TEST

16:02

MACRQ M1200
30 MAR-84
MANAGEMENT UNIT SETUP

X o o @0 @0 @0 @0 ©s @0 G0 Bs S0 G e B0 G S5 00 S0 B0 S0 S0 0o

IeC1

-A_DIAGNOSTIC

$1SETUP KISAR

TO I/0 PAGE

tENABLE MEMORY MANAGEMENT

tRESTORE

$BACK

MAPPING ROUTINE

REGS.

TO CALLER

FOUND

Je
1€

DIAGNQOST

A RMBE
MG .

MACRO

M1200

30 MAR 84

a17?

219

218

;

220
221

H
;

224

222
223

16:0

16:02

SUBROUTINE:

PAGE6

sea 22

§..MAP

Ssarssssssszszsaszsas

H
H

THIS ROUTINE IS USED TO MAP WITH APR6 TO THE PHYSICAL MEMORY
ABOVE 28. K AND COMPARE ODMA READ AND WRITE DATA

H
H
H

INPUT:

229
230
231
232

H
:
H
:

OUTPUT:

KERNEL APR6 IS MAPPED TO BUFFER START ADDRESS
MAPPING POINTER IS SET TO BASE ADDRESS OF APR6=140000
CARRY IS SET IF NO MEMORY AVAILABLE
BREAKPOINT TRAP, IF YOU TRY TO MAP TO CDM (0 4.K)

234

AUTHOR:

ALBERT BREM CSS MUC

$..MAP:

PUSH
RO,R1
§SAVE REGISTERS
IF 6(SP) GE €200 GOTO 10$;00NT MAP TO SYSTEM AREA
8PT
;OONT MAP TO SYSTEM AREA
JHP
2%
s LEAVE
CALL
M. .MM
;ENABLE MM, SETUP DEFAULT MAPPING
MOV
MEMEND ,RO
t1SAVE HIGHEST MEMORY LOCATION

225
226
227

228

233

235
236

237
238
239
240
241
242
243

002116
002122
002136

002140
002144
002150

244

245
246
247
248
249
250
251
252
253

254

255
256
257
258
259
260
€61
ggg
264
265

002170
002174

002224
002226
002234
002240
002242
002262
002266
002306
002310
002316
002322
002324

H
:

000003
000137
004737
013700

000006

042700
013701
000012

002316
002006
007022

.REPT

ROR

.ENDR
8IC
MOV
.REPT
ASL
.ENDR
ADD
BIC
cre

176000
007024

060001
042737
020166
002023

000001
000006

052700

000001

000403
016637

000006

012616
000207

10¢:

177776

B8GE

172354

1:
2s:

PREAD
8IS
PSET
BR
MOV
POP
MOV
RE TURN

(SP)
2(SP)
4(SP)

sRETURN ADDRESS
s100 OCTAL BYTE BLOCK OFFSET
*MAPPING POINTER

16-JUAN-79

sCOMPUTE

#176000,R0
MEMEND .2 ,R1
10,
R1

"
s SAVE MEMORY

RO,R1
o8170,8ePS
R1,6(SP)
14
RO
08170,RO
RO
24
6(SP),KISAR6
R1,RO
(SP).,(SP)

s TOTAL BLOCKS OF 32.WORDS MEMORY
;CLEAR CARRY
: IS MEMORY AVAILABLE?
s YES
: SAVE CURRENT PSuW
;SET CARRY FOR ERROR INOICATION
I
;OONT TOUCH APR6
sMAP TO BUFFER AREA
;RESTORE REGISTERS
;CLEAN STACK OF ARGUMENT
$sBACK TO CALLER

;COMPUTE

100 QCTAL BYTE BLOCKS
EXTENSION

ADOITIONAL

BLOCKS

K2
{EC&A'A OIAGNOSTIC

MACRO M1200

30 MAR

B84

16:02

267

268
269
270
271

272
273
274

PAGE

SEQ 23

.SBTTL

$..EMT

SUBROUTINE
:

$..EMT

: THIS ROUTINE HANDLES ALL EMT-TRAPS THAT MIGHT OCCUR
:IN A DIAGNOSTIC PROGRAM, AND DIRECTS THE PROGRAM TO
tCONTINUE AT THE APPROPRIATE FUNCTION SUBROUTINES.

27?5
276
277

: INPUT
:

2(SP)

;OUTPUT ;

BERT

HUBER

NONE

s AUTHOR ;

= PS

(SP)

CSS/DP MUNICH

14-ULI

H
H

002326
002332
002336
002342
002346
002350
002354
002356
002366
002400
002404
002410
002414
002416
002420
002422
002424

012746
066616
017616
042716
006316
021627

101413

000137
062716
017616
000136
002424
002432
002470

177776
000002
000000
177400

$..EMT:

.ENABL
MOV
ADD
MOV

8IC
ASL

000004

cHe

B8LOS

001000
002416
000000

18:
EMTTBL:
EMTTND:

WRITE
ourw
JMP
ADD
MOV
JMP
EMTO
EMTL
EMT2

LS8
0-2,-(SP)

1REBUILD EMT-ADDR.

2(SP),(SP)
8(SP),(SP)

]
;GET

(SP)

1 CONVERT

€177400,(SP)

"
EMT-CODE

tEXTRACT EMT-NR.
TO

TABLE-OFFSET

(SP),0EMTTND-EMTTBL 2;VALID EMT-NR.?

MILEMT
OCT,2(SP)
801000
QEMTTBL,(SP)
a(sP),(sP)
8(SP)»

;IF LOS,

YES

;s ILLEGAL

EMT

H
sRESTART PROGRAM
$GET FUCTION CODE
H

ADDR.

tENTER FUCTION SUBROUTINE

:SUBROUTINE TO SAVE SCOPE-LOOP ADDR.
002424
002430

011637
000002

EMTO:

007172

MOV

RTI

(SP),SCOPAD

:SAVE ADDR.
;RETURN

SCOPE-LOOP

TO CALLER

:SUBROUTINE TO SETUP A VECTOR
002432
002436
002444
002450
002454
002460
002464
002466

017646
016676
062716
016636
012666
012666
005726
000002

000010
000010
000002

000000

EMTL:

000004

MOV
MOV
ADD
MOV
MOV
MOV
TST
RTI

810(SP), -(SP)
10(SP),a(SP)
02,(SP)
6(SP),8(SP).
(SP)+,4(SP)

(SP)+,4(SP)

(SP)»s

;GET POINTER TO VECTOR ADDR.
$SETUP VECTOR
1POINT TO NEW PS
sSETUP NEW PS
sCLEAN WP STACK

:
]

tRETURN

TO CALLER

: SUBROUTINE TO RESET A VECTOR
002470
002474
002476
323 002502

017646
011646
062716
012636

000004
000002

]

EMT2:

MOV
MOV
ADD
MOV

84(SP), -(SP)

1GET POINTER

02,(SP)

1BUILD

(SP), -(SP)

(SP)+,8(SP)e

tODUPLICATE
tRESET

TO VECTOR A

ADDRESS OF

VECTOR

L2
IEC%I

$..EMT

A DIAGNOSTIC

324
325
3206
327

002504
002512
002520
002522

012776
016666
012616
000002

MACRO

000004
000002

M1200

30 MAR

177774
000004

16:02

MOV
MOV
MOV
RTI

PAGE

SEQ 24

04 ,8-4(SP)

2(SP),4(SP)
(SP).,(SP)

t{RESET

VECTOR

sCLEAN STACK
i

sRETURN

TO CALLER

Me
;EC*&pA DIAGNOSTIC

MACRO M1200

30 MAR 84

$..TRP

SUBROUTINE
:

$..TRP

SEQ 25

PAGE 8

.SBTTL

329
330
331
332
333
334
335
336
37
338
339

THIS ROUTINE HANDLES ALL TRAPS TO LOC 34 THAT MIGHT
OCCUR IN A CSS-DIGNOSTIC PROGRAM.
AS THE TRAP INSTRUCTION IN THIS DIAGNOSTICS IS ONLY USED TO
INDICATE AN ERROR CONDITION, THIS TRAP-HANOLER IS A (PSEUDO-)
SWITCH-REGISTER CONTROLLED ERROR HANDLER. FOR THE DEFINITION
OF ALL AVAILABLE 'SWITCH' -OPTIONS,
LATER IN THIS LISTING.

REFER

TO SUBROUTINE

"$..IAE"

2(SP)
(SP)

INPUT

B¢

340
341
342
343
344
345
346

=
=

PS
PC

B¢

LOW ORDER BYTE OF TRAP INSTRUCTION = ERROR NUMBER
QUTPUT:
AUTHOR:

DEPENDING ON OPTIONS SELECTED
14 JUL-76
BERT HUBER, CSS/DP MUNICH

347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370

16:02

002524
002530

002534
002540
002544

002550
002552
002556
002560
002564
002566
002576
002610
002614
002620
002626
002630
002640
002652
002662
371 002674
372 002702
373 002704
374 002710
375 002712
376 002722
377 002734
378 002742
379 002744
380 002752
381 002754
382 002762
383 002764
384 002774
385 003002

012746
066616
017616
042716
005737
001421
005737
100020

021637

001415

011637
032737
001022

032737
001414
005276
001011

..TRP:

177776

000002
000000

MOV

ADD
MOV

8IC

177400
007166

1ST
BEQ
TST
8PL

007160

cMP

007166

007166
040000

: PSECT
.ENABL

8EQ
WRITE

007160

2$:
3s:

GOTO
MOV

8IT
BNE

WRITE
ouMP
WRITE

020000

007160

000002

BIT
BEQ
INC
BNE

CSSMON
LS8
@-2,-(SP)
2(SP),(SP)
8(sP),(SP)
9177400,(SP)
$..ER
23
PSDSWR
34

(SP),$..ER
34

MILSCP

0CT,2(SP)
START
(SP),s..ER
0BIT14,PSDSWR
4%
MERROR

DEC,(SP)

MERRP2

0CT7,2(SP)
@8IT13,PSDSWR

032737
001014
032737
001010
032737
001004

040000

007160

100000

007160

010000

007160

032737
001004

010000

007160

S5¢:

6$:

TRAP ADDRESS

;GET TRAP CODE

;EXTRACT ERROR NUMBER
sFIRST

ERROR OCCURENCE

s IF EQ,

FIRST PASS

: SCOPE LOOP ?
H

s SAME SCOPE LOOP

s IF EQ, YES
;s ILLEGAL SCOPE LOOP
;:DUMP ADDRESS OF ERROR
;RESTART

PROGRAM

1 STORE ERROR NUMBER

s INHIBIT PRINTOUT

s IF NE, YES
;PRINT ERROR MESSAGE PART

;PRINT

;DUMP ERROR NUMBER

ERROR MESSAGE PART

;:DUMP ERROR PC

;sCOUNT ERRORS ?
+IF EQ,

;COUNT !
1 IF EQ, OVERFLOW

:ERROR COUNTER OVERFLOW

WRITE

OuMP
BIT
BNE
BIT
BNE
8IT
BNE
WRITE
BIT
BNE

;REBUILD

64
ORIT15,PSDSWR
64

#8IT12,PSDSWR

64
MERMHLT
08IT12,PSDSWR
78

;DUMP ERROR NUMBER
tPRINT 2 ?
sIF NE,

;sSCOPE LOOP ?
s IF

SCOPE,

NO PRINT

sHALT AFTER ERROR SELECTED
1IF NE, YES
;STOP MESSAGE
sHALT ?
s IF EQ, YES

N2
IEC*I-A OIAGNOSTIC
$..TRP

386
387
388
389
390
391
392
393
394
395
39¢
39~

003004
003012
003014

003022
003026
003030
003034
003036
003042
003046
003050
003054

032737
001770
042737
005737
100005
005726
000177
005037
005726
062716
000002

MACRO M1200

30-MAR

004000

007160

004000
007160

007160

004130
007166
000002

7$:

8s:

16:02

BIT
BEQ
BIC
TST
BPL
STCKUP
1ST7T
JMP
CLR
TST
ADD
RTI

PAGE

8-1

#8IT11,PSDSWR

o8IT11,PSDSWR

PSDSWR

SEQ 26

: IMMEDIATE CONTINUE
:IF

NE,YES

:SCOPE LOOP ?
H

s IF

PL,

(SP).
a@SCOPAD

$ADJUST STACKPOINTER
tENTER SCOPE LOOP

(SP).

;READJUST STACK

$..ER

02,(SP)

;RESET

ERROR

NUMBER

;:BUILD RETURN ADDRESS

;RETURN

CALLER

B3
gEC}6'l OIAGNOSTIC

MACRO M12,00

30 MAR

16:02

.. 10T

SUBROUT INE :.

$..107

O
G0
Gv
Gs

ILLEGAL

TRAPS OR

INTERRUPTS,

THIS SUBROUTINE HANOLES

IF SUCH A TRAP OR INTERRUPT OCCURS,

PRINTED,

SHOWING

GO
B+

INPUT

415

417

B¢

414

TRAPPED

A MESSAGE
TO,

AND

THE

PROGRAMS PC

6(SP)

PS OF PROGRAM

2(SP)
(spP)

.
.

PS OF VECTOR
PC OF VECTOR

PROGRAM

oUTPUT

MESSAGE TO THE OPERATOR

AUTHOR :

BERT MUBER,

CSS/DP MUNICH

22 JA -76

416

VECTOR

4(SP)

413

THE

WHERE IT WAS INTERRUPTED.
THE PROGRAM HALTS THEN, AND MUST BE RESTARTED.

GO Gs

411

412

418
419
420
421
422
423
424
425
426
427
4.8

SEQ 27

.SBTTL

399

400
401
402
403
404
405
406
40°
408
409
410

PAGE

1 .PSECT CSSMON
003056
003066
003072
003102
003112
003124

162716

000002

LI0T:

.ENABL

LS8

SuUB
oum

02,(5P)
oCr,(sSP)

WRITE
WRI

000777

ouMP
B8R

.OSABL

MILTR1

: SEND FIRST MESSAGE PART

MILTRZ

1SEND SECOND MESSAGE

OCT,4(SP)
.
LS8

sCOMPUTE VECTOR
1OUMP VECTOR ADDRESS
1OUMP PROGRAM PC
tHANG UP SYSTEM

PART

IEC11

$..PWR

A DTIAGNOSTIC

MACRO M1°00

30 MAR

B84

16:02

PAGE

.SBTTL

430
431
432
433
434
435
4%
a3?
438
439
440
a4)

1 SUBROUT
INE :
!

1 THIS ROUTINE

470
a7
472
473

474
475
476
477
478
479
480
48}
482
483
484
485
486

ENTERED

THE POWER-UP INTERRUPT

1AUTHOR:

AFTER EACH POWER-FAIL

MZ2001

TO RESTORE

POWER-FAIL RESTART,

BERT HMUBER,
SAVE

THE

SAVED REGISTERS

A SHMORT

IS PRINTED.

CSS/DP MUNICH 27-MAY-76

THE OUTFLAG IN 38

AFTER PRINTOUT

AND RESTORE

THE POWERFAIL

MESSAGE

s . PSECT CSSMON

003126
003142
003144
003146
003154
003160
003162
003166
003170
003172
003174
003176

449
450
451
452
453
454
455
456
457
458 003202
459 003204
460 003210

463
464
465
466
467
468
469

IS DIRECTLY

MESSAGEW

444

461
462

$..PWR

IAFTER A SUCCESFULL

tAFTER

445
447

$..PWR

AND IS USED

443

448

SEQ 28

1HANDLE THE NECESSARY REGISTER SAVE OPERATIONS,

442

446

002214
003220
003226
003242
003246
003250
003260
003264
003266
003274
003302
003306
003310
003316
003324
003332
003336
003340
003350
003356

010627
000000
012737
013727
000000
013727
000000
000777
005002
005202
020227
001374
013706

005037

. .PWR:
003172
007152

000024

1¢:

007150

LS8
RO,R1,R2,R3,R4
RS

SP,(PC)»
0

1 SAVE STACK-POINTER
SAVE -AREA
1 STACKPO-INTER

OUTFLG,(PC).
0
INFLAG,(PC).
0

1SAVE PRINT FLAG
$MZ2001
$1SAVE FOR FLAG
;MZ001
$ SAVE INPUT FLAG
1 SAVE WORD FOR INPUT FLAG

024,8024

3s:
Ss:

2s:

177777
007152

007150
003126

013727
000000

005700

005737
001375

007152

013737
005737
001411
013737

003160
007152

007152

003246

005700

112737
005737
001407

000012
003166

177566

013/37

003166

007150

1SETUP VECTOR FOR RESTART

Re
R2
R2,0177777

tWAIT FOR POWER DOWN
1DELAL
1 THE
s1POWER UP START

OVUTFLG

sALLOW PRINTOUT OF PWFRL MES,

.-6
18,SP

003144

005037
012737

000002

. ENABL
PUSH

1FOR 1SECOND
sREBUILD STACKPOINTER

INFLAG
3
8. .PUR,8024
sREBUILD VECTOR
RS,R4,R3,R2.R1,.RO

000024
8%:

1SAVE OLD MESSAGE POINTER
$SAVE WORD FOR OLD MESSAGE POINTER

80TKS
38 ,OUTFLG
OUTFLG
’s

88,8, .MSP
80TPS

012,807PB

7¢:

BEQ

WRITE

6t
PROME S

MOV

Ss, INFLAG

.DSABL
.SBTTL

LS8
$..RSYV

RTI

:
SUBROUTINE

;M2001

$..MSP,(PC).
0

MPWRF L
OQUTFLG

.
SETUP

$..RSY

1SEND POWER-FAIL -MESSAGE
tWAIT FOR OUTPUT COMPLETE
1MZ2001

1MZ001
1MZ001

1ENABLE FURTHER TTY-.INTERRUPTS
sRESTORE FLAG IF IT WAS SET
1MZ2001
1 IF AN OUTPUT BEFORE PWRFL WAS RUNNING
$

s THEN RESTORE OLD MESSAGE POINTER
$AND ENABLE INT IN TPS
tAND START

INTERRUPT

1 IF AN INP FLG BEFORE PWRFL WAS NOT
1GOTO 68
1ELSE WRITE

tRESTORE INPUT FLAG IF IT WAS SET
sCONTINUE WITH PROGRAM

SET

D3
‘Ec‘év‘ DIAGNOSTIC

MACRO M1°200

30 MAR 84

:gg

489

]

:g?

497

::g

RS
R4

:
3

6(SP)
10(SP)

=«

R2 CONTENT
R1 CONTENT

12(SP)

RO CONTENT

(sP)

OUTPUT:

4(SP)

14(SP)

AUTHOR:

000176

000014

SEQ 29

(SP)
2(SP)

502
503
S04 003360
505 003374
506

INPUT:

gOO

THIS ROUTINE SAVES RO RS ONTO THE STACK

495
490

CALLER PC

1
:

4934

PAGE

492
493

16:02

$..RSV:

: .PSECT
.ENABL
PUSH
JMP
.D5ABL

BERT HUBER,

CONTENT
CONTENT

R3 CONTENT

CALLER

CSS/DP MUNICH

CSSMON
LSB
RO,R1,R2,R3,R4
RS
814(sP)
tRETUM'e
LSB

12 APR

TO CALLER

ES
IEC11 A DIAGNOSTIC
$..RRS

MACRO M1200

30 MAR

.SBTTL

5EQ 30

$..RRS

SUBROUT
INE :
THIS

SUBROUTINE

RESTORES R5 RO FROM

THE

STACK

G¢

513
514
515

(SP)
2(SP)

CALLER PC
SAVED RS

6(SP)
10(SP)
12(SP)
14(SP)
16(SP)

=
=
=«
=

SA/ED R3
SAVED R2
SAVED R1
SAVED RO
OLD CALLER PC

INPUT

S16
517
518
519
320
521
522
S23
S24
525
526
327

SAYED R4

OUTPUT;

REGISTERS

ARE

AUTHOR:

BERT MUBER,

RESTORED

AND

STACK

IS CLEANED

CSS/DP MUNICH

12 APR-76

B¢

®e

4(SP)

: PSECT CSSMON

528

533 003420
534

PAGE

508
509
319
511
512

529
530 003400
531 003402
532 003416

16:02

..RRS:

005726
005726
000176

177760

.ENABL
TST

LS8

(SP).

:POINT

TST
JMP
.DSABL

(SP 2.
ang(SP)

;SKIP OLD CALLER PC
sRETURN TO CALLER

pPOP

RS,R4 ,R3,R2,R1,RO

TO SAVED RS

F3
IEC11-A DIAGNOSTIC

MACRO M1200

30 MAR 84

16:02

PAGE

SEQ 31

$..xB81

570
571
S72
573

574
575
576
577

578
579

580
581
582
583
584
585
586
587
588

$..KBI

SUBROUTINE:

$..KBI

THIS RQUTINE

IS ENTERED

INPUT

2(SP)=
(SP)

OUTPUT

NONE

AUTHOR;

BERT HMUBER,

FROM

TTY-KEYBOARD.

ALL

IMMEDIATELY

REGISTERS

ARE

AFTER AN
SAVED

INTERRUPT

ACR(OSS

CALL.

PS
=

B¢

.SBTTL

CSS/DP MUNICH

S-APR

536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
S54
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569

;s .PSECT CSSMON

003424
003430
003432
003434
003440
003444
003452
003456
003462
003464

005737
001422

007152

005037
013700
012737
042700
022700
001003
012737

177560
177562

$..KBI:

.ENABL
TST

8EQ

PUSH

CLR

000100

177560

0071777

007170

000200
000003

MOV
MOV

LSB

OUTFLG

44
RO

80TKS
80TKB8,RO

9100,80TKS
0200,R0
#3,R0

134

@7777,SPEFLG

13 :OUTPUT RUNNING ?
33 IF NE, IGNORE INTERRULPT
: : SAVE
s 1 s INHMIBIT INTERRUPT
1 11GET CHARACTER
: 1RE -ENABLE
s 3 sMASK QUT ASCII
133 IS IT <«CNTRL C> ?
1:3IF NOT, RETURN
1::SET A SPECIAL FLAG
313 THIS FLAG IS USED TO FINISH
s3131A RUNNING PRINTOUT AND THEN TO
;3 ;REMEMBER

003472
003474
003476
003502
003506
003512
003516
003520
003520
003524
003526
003532
003534
003540
003544
003546
003552
003556
003562
003566
003572

13s:

000436
004737
013700
042700
122700
001003

003360
177562
000200
000003

004737

006136

000420
005737

001415
004737
020027
001010
005037
012701
010137
004737
004737
000002

$$SPE:

007150

18:

003574
000015

Ss:

007150
007026
007146

004010
003400

RO
L3]
$..RSV

80TKB,RO
4200,R0
03.RO
1
$..PRO

2
INFLAG

2%
$..INP

RO, 215
2
INFLAG

OKBBUFF ,R1
R1,KBBPNT

$..IAY

$..RRS

LS8

THAT

<«CNTRL

$ 1 1REBUILD
$1:3 RETURN TO CALLER
::31SAVE ALL REGISTERS
$13:GET INPUT BYTE
133BUILD REAL ASCII
$33<CNTRL C> FUNCTION ?
s33IF NE, NO

$ 1 1SEND PROMPT STRING
s sRETURN
1131 INPUT FLAG SET ?
s3:IF EQ, NO
s 3 sPROCESS INPUT
;31WAS IT A <CR> ?
s33IF NE, NO
s s tRESET INPUT MODE FLAG
1 3 sREBUILD BUFFER POINTER
i3

11 sANALYZE INPUT
13 sRESTORE REGISTERS
$133RETURN TO CALLER

WAS MHIT

G3
{EC}kék OTAGNOSTIC

MACRO M12C0

16:02

PAGE

SEQ

. INP
s,

$ SUBROUTINE :
;s THIS

595

SUBROUTINE

$..INP
IS

THE

INPUT

HANDLER

FOR

ALL

TERMINALS

{tUSED I? ALL CSS-MUNICH DIAGNOSTIC SOF TWARE GENERATED NOW

596
597
598
599
600
601
692
603
604
605
606
607
608
609
610
611
612
613
614
615

:AND LATER,

s THE SPECIAL FUCTIONS HANOLED BY THIS ROUTINE ARE:
<CNTRL U> FOR LINE RUBOUT
l
;ALL

:IN

<DELETE> FOR CHARACTER RUBOUT

OTHER

INPUT

THE KEYBOARD

;

617
618

619
620
621
622
623
624

000451
122700
001436
122700
001016
005737
001005
010637
012700
004712
020127
001434
114100
004712
000431
005737
001407

625

626

627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642

012700
004712
005037

643
644
645
003740

004712

007146
006122
007146

sOUTPUT

NONE

sAUTHOR :

BERT

.INP:

000025

18:

000177

2s:

007162
000057

3s:

000057
007162

HUBER

CSS/DP

MUNICH

/v1.0/

1
825,R0

s133IF NE, NO
133 <CNTRL U»?

LSB
YBBPNT ,R1

OKBBEND ,R1

B8EQ

CLR
WRITE

cMPB
BEQ

INFLAG
MKBOVF
7
025 ,RO
6

BNE

BNE
MOV
MOV
CALL
cMp
BEQ

3
SP,RUBFLG
e'/.,RO
8rR2
R1,0KBBUFF
INP. E

cMPB

CALL
BR

STORED

CURRENT INPUT CHARACTER

1:1POINT

AND

CALLER PC

3. .KBO,R2

MOvB

007162

ASCI-TEXT

MOV

.ENABL
MOV

007162

NORMAL

CSSMON

cMPB
B8EQ

007150

.PSECT

BNE
cMP

000177

007026

.IDENT

cMP

000025

HANOLED

INPUT BWFFER,

:
013701
012702
022701
001015
022700
001415
122700
001407
005037

(sP)

s INPUT:

616

646

LSBTTL

590
591
592
593
594

30 MAR

2177,.RO
1§

8177,.R0

RUBFLG

(R1),RO

$::GET CURRENT BUFFER POINTER
TO KEYBOARD -ECHO

INPUT-BUFFER FULL?

IF EQ,

YES.

133<DELETE>»?
s1:IF EQ, YES.

1 11RESET INPUTFLAG
1 1 3PRINT OVERFLOW MESS,
s : tPROMPTY

FOR

INPULT

333 <CNTL U»?
133 IF NE, NO

$33<DELETE>?
1::IF

NE,

1 sFIRST

RUBOUT?

s13IF NE, NO
:33FLAG RUBOUT MODE
s 1 1PRINT /"
it
“
$33FULL LINE DELETED?
133 IF EQ, YES
s 1 iNO,

REMOVE

CHARACTER

TS7

ar2
INP., . E
RUBFLG

:33AND ECHO IV
33 WAIT FOR NEXT
13 sRUBOUT MODE?

PUSH

$33YES,

MOV
CALL
CLR

o'/ ,RO
aRe
RUBFLG

+ 3 iND OF RUBOUT
1 33ECHO /¢
;1 i sRESET RUBOUT MODE FLAG

aR2

$131ECHO

B8tQ

POP

CALL

113 IF EQ, NO

$13310ET

SAVE

CURRENT

INP
N1

INPUT

AGAIN

H3
IECLIL A OIAGNOSTIC

MACRO M1200

30-MAR-84

16:02

PAGE

SEQ

$..INP

647
648
649
650
651
652
653
654
655
656
657
658
659

003742
003744
003746
00375¢
003754
003760
003762
003766
003772
003776
004002
004006

110021
000414
012700
304712
V12700
004712

005037

012701
004737
010137
116100
000207

000136

6%:

RO,(R1).
INP,
E
2136,RO
anre

11 1SAVE IN IPUT BUFFER
13 tWAIT FOR NEXT INPUT
11 ECHO "t

CALL
CLR
MOV
CALL
MOV
MOVB
RETURN
.DSABL

8R2
RUBFLG
OKBBUFF ,R1
$..PRO
R1,KBBPNT
-1(R1),RO

MOV

0001c5
007162
007026
006136
007146
177777

MOVB
BR
MOV
CALL

7%:

INP
.

o'V,RO

LS8

1 11ECHO V"
"

s 1 sLEAVE RUBOUT MODE

131 1RESET INPUT BUFFER POINTER
13 1PROMPT FOR INPUT

333 SAVE POINTER
t 1 1SAVE LAST CHARACTER
;11 3RETURN TO CALLER

13
JEC11

s.. 1A

A DIAGNOSTIC

MACRO

M1200

699
701
702

703
704

16:02

PAGE

INE :
1 SUBROUT

SEQ

$..IAY

‘Il.........

:LEGAL INPUT TYPES ARE:
H

ERR=

SET»
NONFORMATTED INPUT FOR

sINPUT: (SP)=
s OUTPUT
:

s AUTHOR;
:

004010
004014
004016
004022
004024
004030
004032
004036
004040
004044
004046
004052
004054
004060
004062
004066
004070
004074
004076
004102
004104
004110
004112
004116

122711

001440
005737
001035

122711
001003
004737
000427
122711
001003
004737
000421
122711
001003
004737
000413
122711
001003
004737
000405
005737

001002
004737
000207

$..IAY:

007174

TST

1%:

cMPB

004402

2%:

cMPB

004472
48 ;

cMPB

006262

CSSMON
LS8
€15,(R1)
IAY
. .E
$ . $ASF
. E
IAY
1
$..IAD
TIAY. .E
0'S.aR1
2
$..IAS
IAY
. .E
0'E,8R]
41
$..IAE

IAY
., .E

&'A,3R1

$..TAA

004120

007156

NONE

€'0,(R1)

004210

000101

RETURN PC

BERT HUBER,

000104

000105

SPECIAL REQ.

28-JUN

CSS/DP MINICH

000015

000123

FOR ERROR -HANOL ING
FOR CORE -DUMP OPTIONS
FOR DEBUGGING OPTIONS

OMP=

674

694
695
696
697
698

.SBTTL

661
662
663
664
665
666
667
668
669
670
671
67
673
675
6”6
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693

30 MAR

S$:

TST

IAY.
. E: RETURN

IAY
. .E
INPREQ
.E
IAY.
$..5Tx
LS8

133<CR>?
s:3IF EQ., SKIP ANALIZATION
: 3 sOONT ANALYZE IF ASCII INPUT RINNING
ss3IF NE, YES.
s31'OMP” REQUESTED?
s IF NE, NO
$ssANALIZE DUMP REQUEST
131 1RETURN

TO CALLER

$33'SET” REQUESTED?
s3IF NE, NO

:1 1 ANALYZE SET REQUEST
s s sRETURN TO CALLER

$3:"ERR" -REQUEST?

133 IF NE,

13 sANALYZE

ERROR

REQUEST

:33RETURN TO CALLER

331 "ABO"

REQUESTED

:13:IF NE, NO

331 1ANAL YZE ABO-REQUEST
;s sRETURN TO CALLER

133NO SYNTAX ERROR IF
A
HEN
;3 s SYNTAX ERROR

$:sRETURN TO CALLER

SPECIAL

INPUT RUNNING

TIEC11-A DIAGNOSTIC
s$..Iay

MACRO M1200

30 MAR 84

706
707
708
709
710
711
712
713

16:02

PAGE

.SBTTL

$..IAA

j"ssszenssss

asssss

;:LEGAL

INPUT

INPUT:

QUTPUT:

725

726
727
728
729
730
731

MZ001

“ABO”
NONE

IN THE PROGRM THE LABEL

”""$..SPC""

THIS LABEL

THE

; AUTHOR :

IS USED,

THE STACK WILL BE INITIALIZED AND A JUMP TO
THIS LABEL IN THE DEVICE TEST PROGRAH IS PERFORMED,
AND A JUMP TO
IS PERFORMED.

THE MACRO "PSET"ALLOWS
OR ON LSI.

732
733
734
735
736

ZILLER,

IS NOT

THE

USED,

BEGIN OF

TO RUN

THE

STACK

THE DEVICE

COM EITHER

CSS/0P MUNICH

OCT.

INITIALIZED

TEST

PROGRAM

ON POP

1976

s .PSECT CSSMON

004120
737 004122
738 004130

012706

001204

.ENABL
RESET
SET6
MOV

004134

012746

011342

MOV

747
748
749
750
751
752

SEQ

$..IAA

3 SUBROUT INE :

720
721
722
723
724

741
742
743
744
745
746

714
715
716
717
718
719

739
740

004140
004164
004170
004172
004176
004200
004206

$..IAA:

000005

JIF DF

.ENDC
.IF NOF

MOV
.ENOC

012700
005020
020027
001374
012737
000207

007026

1%:

007202
007026

007146

LSB

80TKS
#START,SP
$,,SPC
es..5PC,-(SP)

$..SPC

oCOM, .E,

(SP)

PSET
MOV

40
oKBBWFF ,RO

cMP

RO, OPROMES

CLR
BNE

;STOP ANY ACTIONS
sSWITCH ON TTY INT,

s INITIALIZE STACK
$;SET

MOV
RE TURN

OKBBUFF ,KBBPNTY

.DSABL

LS8

''$..SPC”" FOR DESTINATION

$1SET END OF MONITOR FOR DESTINATION
;CLEAR PS

tRESET

(RO).
18

THE LABEL

BUFFERS

+M2001

1
‘

tREBUILD

BEGIN

ADDRESS

;GOTO POINT OF CONTINUATION

I<3
IEC11

$..IAA

A DIAGNOSTIC

MACRO M1200

30-MAR-84

16:02

PAGE

S5€Q

s .PSECT CSSMON

754
755
750

757

758

.SBTTL

759
760
761
762

INE
: SUBROUT

763
764
765
766
767

800
801
802
803
804
805

. IAD

MZ001

MODIFICATION TO ALLOW THE

THIS SUBROUTINE

<CR>

AFTER

INPUT

IS ENTERED WHEN A DUMP REQUEST

DEPENDING ON HOW THE REQUEST IS TERMINATED,
WAYS FOR RETURN:

ANALYZED.

THERE ARE

TWO

®e

®o

@¢

©»

TO COMPLETE.

768
769
770
m”m
T2
773
774
175
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799

$..IAD

;s INPUT

004210
004212
004216
004220
004224
004226
004232
004234
004240
004242
004246
004250
004256
004262
004264
004274
004276
004302

005201
122127
001027
122127
001024
122127
001021
004737

103416
105737
100375

012737

105737
100375

000402
004737
000207

WHEN TERMINATED BY <CR> THE CONTENT OF A LOCATION IS
PRINTED AND THE RETURN IS PERFORMED
WHEN INPUT IS TERMINATED BY A ““/~"THE MONITOR WAITS

FOR INPUT AND LOADS THIS INPUT

;0UTPUT :

(SP)
*RETURN ADDRESS
MODIFIED LOCATION IF REQUESTED

: AUTHOR;

ZILLER,

CSSMON
LSB

$..IAD:

000115

(R1)e+,0'M

000120

(R1)s,0 P

000057

(R1)+,0

77%

$..NOR

004304

773

177564
000012

177564

006262

11¢:

177566

12¢:

77%:

IAD. .E:

CALL

RE TURN

8eTPS
11%
912,307PB
80TPS
128
0oCT1,(RO)
IAD. .E
$..STx

INTO

THE EXAMINED LOCATION.

OCTOBER

SS/DP MUNICH

1976

TO "M~

sPOINT

s IS IT A ‘M
:NO IF NE

P’

IS IT A

:NO IF NE
sIS IT A /"
tNO IF NE
;RETRIEFE

: IS CS.
;IS THE
:

;PRINT

sOONE

INPUT

INPUT FORMAT ERROR
<«CR> FINISHED ? ;MZOO1
:MZ2001
<LF

;WAIT FOR COMLETION

:AND PRINT
1GO TO END
;WRITE

;RETURN

SYNTAX ERROR MESSAGE
TO MAIN

| 3

o Ho”

OTAGNOSTIC

807
808
809
810
811 004304
812 004306
813 004312
814 004316
815 004320
816 004324
817 004326
818 004332
819 004334
820 004340
821 004342
822 004344
823 004346
824 004350
825 004352
826 004354
827 004356
828 004362
829 004364
830 004370
831 004372
832 004374
833 004376
834 004400
835
836
837
838
839

MACRO M1200

30 MAR 84

THIS

005000
012702

121127
001425
121127
001422
142711
100421
121127
101016
006300
006300
006300
152100
005302
001356
121127
001403
121127
001002
000241
000207

PAGE

16:02

THE ROUTINE

%6 ,R2
8R1,015
NOR. .E
8R1,08'/
NOR. .E
060, 8R1
NOR .ER
8R1,087
NOR .ER

000057

000060

000007

000015
000057
NOR. .E:

NOR .ER:

000261
000207

840
841
842
843

OCTAL

VALUE

THE

ADDRESS

sIF MI, IT WAS LOWER THAN 60
1 IS IT REAL OCTAL ?
s IF

HI,NO REAL

sMULTIPLY
;WITH

sALL

DONE?

OCTAL

sOCTAL
;SET THE TRUE BITS
;:COUNT DIGITS BUILT

(R1)+,RO

R2
14

s IS THE LAST ¢« 1 BYTE A TERMINATOR?
;1 IF YES THEN SYNTAX OK

8R1,015

NOR. .E

s TERMINATOR

8R1,0'/

IN SET

COMMAND?

:IF NOT THEN SYNTAX ERROR
; INDICATE SUCCESSFUL OPERATION

NOR .ER

RE TURN

: INDICATE FAILURE

SEC
RETURN

INE :
: SUBROUT

THE

;BUILD REAL BINARY

RO
RO
RO

BISB
DEC
BNE
cMPB
BEQ
cHPB
BNE
CLC

GET

;1CLEAR STORAGE OF NUMBER
:CLEAR DIGIT COUNTER
+IS IT A TERMINATOR ?
+IF EQ, (ES

000015

SEQ 37

17/

$..IAS

:THIS SUBROUTINE IS ENTERED IF THE INPUT ANALYZER DETECTS A SET-COMMAND
e

INPUT:

(SP)

= RETURN ADDRESS
=
BEGIN OF

INFUT STRING

844
845

MODIFIED LOCATION

004402
004404
004410
004412
004416
004420
004424
004426
004432
004434

004440
004444
004446
004452
004454

005201
122127
001024
122127
001021
122127
001016
004737
103413
010037
122127
001006
004737
103403
010077

OUTPUT;

000105
000124

000057

004304

004470
000057
004304
000010

.IAS:

INC

CHPB
BNE
CMPB
BNE
cMPB
BNE

CALL
8Cs

MOV

CMPB
BNE
CALL
8CS
MOV

(R1).,2'E
76%
(R1)e,
0
76%

(R1).,0
76
$..NOR

76%
RO,2$
(R1).,0'/
768
$..NOR
764
RO,a°%

:POINT TO "E*"
;1CORRECT
iNO

tNO

tCORRECT SYNTAX ?
:NO IF NE
{CORRECT SYNTAX ?

1BUILD ADDRESS T0O MODIFY

1 IF CS,

FORMAT ERROR

CS,

FORMAT ERROR

;sSAVE
;CORRECT SYNTAX ?
iNO IF NE
;BUILD DATA TO INSERT
;sIF

$ AND LOAD

M3
i%?ikon

864
865
866
867
868

DIAGNOSTIC

004460
004462
004466
004470

000402
004737
000207
000000

MACRO M1200

006262

30 MAR

76%:

IAS. .E:
2$:

16:02

B8R
CALL
RETURN
.WORD
.DSABL

PAGt

IAS. .E
$..5Tx

SEQ

.GO TO END
ERROR MESSAGE
iWRITE

: RE TURN

0
LS8

1 SORAGE FOR ADDRESS TU MODIFY

IEC11-A DIAGNOSTIC

MACRO M1200

30 MAR 84

16:02

PAGE

SEQ 39

$..IRD

870
871
872
873
874
875
876
877
878

.SBTTL
i SUBROUTINE:

:AN"ERR"- INPUT STRING AND PROCESSES
{REQUESTED ' SWITCHREGISTER OPTIONS'
.

/HT

/NP

/CT

/NC

75C

/NS

/CONT

121127
001472
121127
00110+

; PSECT CSSMON
LS8
.ENABL

MOV

007160
000003
000075
1$:

000:10

000120

(R1).,0
2%

R2
778

118

2s:

R2
R4
(R1:,0
3%
R1
R4

L I

(R1.0
5%

000116

000103

(R1)+,0
778

153

000123

9PSDSWR,R3
R4
o3,R1

o
(R1O,

(]

000057

SP,R2

14}

(R1),o

94
0
(R1)Y,
"’

121127
001426
121127
001437

$..IAE:

BERT HUBER,

004544
004546
004552
004554
004560
923 004562
924
92% 004570
K PLS 004574

=START ADDR.OF TEXT STRING
BIT-SETUP IN SOF TWARE SWITCH REGISTER

I AUTHOR:
010602
012703
005004
062701
122127
001137
122127
001403
005702
001132
000526
005002
005204
121127
001002
005201

(DEFAULT)

s INPUT;
;OUTPUT;

898
899
900
901

AFTER ERROR

NO HALT AFTER ERROR
DRINT ERROR MESSAGE (DEFAULT)
INHIBIT ERROR PRINTOUT
COUNT ERROR
NO ERROR COUNTING (DEFAWLT)
SCOPE LOOP ON THIS ERROR
NO SCOPE LOOP (DEFAWLT)
IMMEDIATE CONTINUE SWITCH

/PR

894
895
896
897

914
915
916
917
918
919
920
921
922

HALT

/NH

891
892
893

905
906
907
908
909
910
911
912
913

THE

{LEGAL SWITCH OPTIONS ARE:

882
883
884
885
886
887
888
889
890

904

$..IAE

: THIS ROUTINE CHECKS THE CORRECT SYNTAX OF

879
880
881

902
903

$..IAE

HE4

CSS/DP MUNICH

28-JULY

:s:FLAG FOR VERY FIRST CHARACTER
:::GET ‘SWR"” ADDRESS

s33USE

CHARACTER

1°

;31 3SKIP IDENTIFYER
s :CORRECT SYNTAX?
:: sBRANCH IF NOT
:::IS NEXT CHAR, A /s IF EQ, YES
1;;VERY FIRST?
IF YES: SYNTAX ERROR
;33
;3 sASSUME END OF STRING
::sNO LONGER VERY FIRST

1:3SET FOR 'Cl* FLAG
/N OPTION?
33315 IT THE
NOTY
IF
CH
s 3 sBRAN
: s sADVANCE TO NEXT CHARACTER
FLAG
sssRESET ‘Cl
s33IS IT A 'S 2
;3 sBRANCH IF vES
2
C
sl IT A
ES
BRANCH IF
i
2
si3IS IT A m
i3 BRANCH IF ES
2
P
si:ls IT A
33318

NO:

SINTAY ERRQOR

DIAGNOSTIC

927 004576
004600
004602
004606
004610
004612
004614
004620
004622
004626
004630
004632
004634
004640
004642

MACRO M1200

30 MAR 84

157

005704

001004
052713
005201

000741
005201

122127

001074
042713
000732
005704
001003
042718
000762
005201

16:0°

040000

30%:
44

000122
040000
St

100000
64

BNE
BIS
INC
B8R
INC
Cre8
BNE
8IC
BR

b4
PAGE

SEQ 40

R4
44

#BIT14,(RS)

(R1).,0'R
778

MIT14,(R3)
14

TS7

BNE
8IC
B8R

M|IT15,(R3)
30¢

(R1).,0°C

122127

000103

052713

100000

126127

000001

000117

126127
001045
126127

000002

000116

2(R1),0'N

000003

000124

3(R1),0'T

004000
000005

007160

BIT11,PSDSWR

001060

000716
001016

001041
052737
062701
0004 30
005704

001003
042713
000724
005201
122127

001022
052713
000660
005704
001003
052713
000710
005201
122127
001006
042713
000644
124127
001402
004737
000207

174

BIT15,(RY)
78:

1(R1), 00
704

774

o5 ,R1
708

11¢

#BIT13,(R3)
30

020000

000124

(R1)s,0

020000

BIT13,(R3)
1

778

10$

M1IT12,(RY)

010000
000124

304

10¢:

(R1)e,0

774

M|IT12,(RY)

010000
000015

11$:

006262

77%::

IAF ..E:

(R1),015

IAE. .E
8EQ
$..STx
CALL
RETURN
.DSABL LSB

sIS IT A P 2
$ 11BRANCH IF YES
133SET SR-BIT FOR /NP
11 1ADVANCE TO NEXT CHARACTER
¢ 1CHECK FOR NEXT SWITCH
11 INEXT CHARACTER
$1IS IT A /PR 2
131IF NO: SYSNTAX ERROR
111SET /PR’ -OPTION
13 1CHECK NEXT SWITCH
s33IS IV 'S/ 2
1 1 1BRANCH IF YES
133SETUP FOR “ /NS* OPTION
133 TRY

NEXTY

$ s INEXT CHARACTER
s33IS IV A /SC 2
133IF NO: SYNTAX ERROR
113SETUP FOR ' /SC' OPTION
1331CHECK NEXT SWITCH
19 1CHECK FOR ' /CONT
133IF NE , OTHER
133CHECK FOR ; /CONT"
133IF NO: SYNTAX ERROR
111CHECK FOR * /CONT"’
t113IF NO: SYSNTAX ERROR
$133SET ' IMMEDIATE CONTINUE
133ADJUST POINTER
18 1END THIS SCAN
s331S IT A /CT 2
1 3 1BRANCH IF YES
113SETUP FOR */NC* OPTION
153 TRY NEXT SWITCH
$ 3 sADVANCE TO NEXT CHARACTER
OPTION ?
113IS IT A /CT
133IF NO: SYNTAX ERROR
/CT' OPTION
$131SETUP FOR
133CHECK NEXT SWITCH
s411S IT /N7 ?
33 sBRANCH [F YES
1531SETUP FOR ' /NP' OPTION
133 TRY NEXT SWITCH

11 3ADVANCE TO NEXT CHARACTER
133IS IV A /T 2
133IF NO: SYNTAX ERROR
$31SETUP FOR ' /MT' OPTION
133 TRY NEXT SWITCH
s33WAS LASTY BYTE A

1 13BRANCH IF YES
13 1SYNTAX ERROR

$11sRETURN 10 CALLER

«CR»?

IECllol OIAGNOSTIC

MACRO M1200

30 MAR

16:0>

PAGE

LSBTTL

SEQ 4}

¢, .RED

‘0

$..RtD

1 SUBROUT INE

'.-.l..I.I.

LA N

3
]

(eeee

ABOO

THE

CARRY

BIT

SET

]

1 THIS

SUBROUTINE

1SETUP BY

tLEGAL

HWANOLES

ALL

TYPES

THE PROGRAMMER

INPUT

THROUGH A

INPUT

SPECIAL

READ

TYPES THAT CAN BE HMANDLED ARE:

lBINARY FORMAT (EXx:
‘

A ZERQ OCTAL

(ONLY

CR,NO DATA)

HAPPENS

INPUT

REQUESTS

MACRO.

1001101101010001)

---------------------------

zIN’UY CAN BE UP T0O 16-DIGITS OF THE FORM O OR 1.
1LESS THAN 16 DIGIT INPUT IS FILLED WITH LEADING ZEROES
i INPUT IS RETURNED IN RO.
1 THE PREVIOUS CONTEND OF RO WILL BE

OVERWRITTEN,

IOCYAL FORMAT (EX:176523)

1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035 005020

sINPUT CAN BE UP TO 6 DIGITS OF THE FORM O-7,
:IN CASE OF A 6-DIGIT-WIDE INPUT,THE LEFTMOST(HIGH ORDER)
1DIGIT IS TRUCTATED TO THE RIGHTMOST (LOW ORDER)BIT,
s IN CASE OF LESS THAN 6 DIGITS INPUT, LEADING ZERO DIGITS
$ARE INSERTED.
1 THE RESWT IS RETURNED IN RO,MHEREBY OVERWRITING
s THE PREVIOUS CONTENT

RO,

]

IOECIHAL FORMAY (EX: 96003)

xINPUY CAN BE UP TO S DIGITS OF THE FORM O 9.
tLESS THEN FIVE DIGITS INPUT ARE FILLED UP WITH

tLEADING ZEROE OIGITS.

tMAXIMUM NUMBER ALLOWED

32656.

t INPUT IS RETURNED IN RO, HEREBY OVERWRITING THE

;PREVIOUS CONTENT

;ASCI FORHAY

86T¢&L)

(EX:

RO,

lINPUT CAN BE ANY LEGAL ASCII CHARACTER.
s IF INPUT INTO A BUFFER IS REQUESTED, UP TO 80
1CHARACTERS CAN BE

s IF

INPUT,

INPUT RETURN IN RO IS REQUESTED,ONLY

THE FIRST

lgpASSCYER WILL BE RETURNED IN THE LOW OROER BYTE
1OLO CONTEND OF RO IS OVERWRITTEN IN THIS CASE.
sIF

THE ONLY

INPUT

IS <CR>,

ZERO WILL BE RETURNED IN RO

$1AS WELL AS IN THE FIRST BYTE OF THE SPECIFIED BUFFER,
3

s AUTHOR:

004737

006136

]

$..ReD:

BERT

CALL

HUBER,

$..PRO

CSS/DP MUNICH

1PRINT

PROMPT

29 AN

STRING

IEC11

$..RED

A DIAGNOSTIC

1036
1037
1038
1039

005024
005030
005036
005040
005044
005044
005050
1043 005052
1044 005064
005070
005074
005100
005102
005104
005106
005110
005112
005114
005120
005124
005126
005140
005144
005146
005152
005154
005156
005160
005162

010637
026627
003402
010637

007156
000002

005737
001375

007150

012701
016602
000172
005112
005270
005504
005444
005464
005000
005037

007026
000014
005100

121127

001014

011666
005726
005037

1085
1088
1089
1090
1091
1092

30 MAR

007174
1004
:
18:

2%:

000557
005000
005004
122721
001402
005204
000772
012701
020427

19-1

1SET SPECIAL REQUST FLAG

TST

INFLAG

IMAIT FOR INPUT COMPLETE

BNE
PUSH
MOV
MOV
JHP

$..0CY
$..D€EC
$..8IN
$..00F
$..ASC

1
R1,R2,R3,R4
RS
oBBUFF ,R1
14(SP),R2
828(R2)

(SP),2(SP)

007156

CLR
SEC

TSt

Ss:

64:

000015

7¢:

..DFC:
000015

007026
000005

(SP).

INPREQ

RO
RO
RO

1SAVE REGS
1GET INPUTPIONTER
1tGET INPUTMOFE INDICATOR
1SELECT REQ. INPUT
tHANDLE OCTAL

INPUT

sHANDLE ASCII

INPUT

1CLEAR INPUT POINTER
tRESET COUNTER
1 ZERO INPUT ?
1 IF NE, SKIP
1060AB00:
1#60AB00:
1006ABOO;

RESTORE
REAJUST

INTO BUFFER

GEN. REGISTERS
RETURN ADDRESS

1660AB0O0: RESET SPECIAL REQUEST COUNTER

1000ABO0:
166¢AB00:

SET
AND

CARRY AS ZERO INPUT
GO BACKX TO CALLER

MILOCT
R5,R4,R3,R2.R1
$..RtD
060, 8R1

INC
.WORD
CMPB

(PC).
O
8R1,015

cHe

635,01

(R1).,RO

BNE
SEC

ar
CLR
CLR
oy
8EQ
INC

RED. .£
RO
R4
015,(R1).
28
R4

MOV
cHP

OKBBUFF ,R1
R4, 05

INODICATOR

$ADUUST INPUT CHARACTER
3

tLEGAL OCTAL DIGIT
1 IF LOS, YES

WRITE
POP
BR
8ICB

B8R

4
8R1, 067

8IsS8

INPUT RUNNING

8R1, 860

8Lo
c8

B8LOS

ASCII

INO ASCII INPUT
1SET SPECIAL ASCII INPUT FLAG

tALL INPUT HANDLED ?
tMORE THAN 6 DIGITS INPUT
tLEGAL OCTAL DIGITY 2?2

68,06

B8NE

000001

R5,R4,R3,R2,R1

BEQ

cHPg8

000060

005244

RETURN
ASL
ASL
ASL

1DETECT SPECIAL

tHANDLE DEC.MAL INPUT
tHANDLE BINARY INPUT
sHANDLE ASCII INPUT INTO BUFFER

MOV

SEQ 42

SP, INPREQ
0
2(SP),
1004
SP,$.8ASF

POP

000067

MOV
cHP
BLe
MOV

000002

005244
000015

000060

000672
142711
152100
005227
000000
121127
001341
023727
001001
000261

PAGE

RO
63
8R1,015
3

005244

101412

16:00

CLR
CLR
o )
BNE

..0CT:

3s:

005164
005172

005174
005200
005202
005206
005210
005220
005232
005234
005240
005242
005244
005246
005252
005254
005262
005264
005266
005266
005270
005272
005274
005300
005302
005304
005306
005312

MACRO M1200

1 JILLEGAL OCTAL INPUT

tRESTORE
1RESTART

REGS
INPUT

SEQUENCE

1BUILD BINARY
s INSERT INTO BUFFER

1COUNT INPUTS HANDLED
tDIGIT COUNTER

1END OF INPUT DETECTED?
sIF NE , NO
1SET CARRY IF ONLY CR WAS
!

1SET CARRY

1END OF

INPUT

1 IF EQ,

YES

;CLEAR TRANSFER BUFFER
tRESET COUNTER
tEND OF INPUT ?

t1OIGIT COUNTER
sCEEP COUNTING
1SET INPUT BIFFER POINTER
sMORE

THAN S DIGITS

THE

INPLIT

IEC11 A OTAGNOSTIC

$..RED

1093 005316
1094 005320
1095 005330
1096
1097
1098
1099
1100
1101
1102

1103
1104
1105
1106
1107
1108

1109
1110
1111
1112

1113

1114
1115
1116
1117
1118
1119
1120
1121
1122

1123
1124

1125
1126
1127
1128
1129
1130
1131
1132
1133
1134
1135
1136
113/
1138
1139
1140
1141
1142
1143
1144
1145
1146
1147
1148

005342
005344
005346
005350
005352
005356
005360
005366
005374
005376
005400
005402
005406
005410
005414
005416
005422
005424
005426
005430
005432
005434
005436
005440
005442
005444
005450
005452
005454
005456
005462
005464
005466
005472
005476
005500
005502
005504
005506
005512
005516
005520
005526
005530
005540
005552
005556
005562

005564
005570
005572
005574
005600
005602

MACRO M1200

30 MAR 84

101412

16:02
B8L0OS
WRITE

3s:

POP

000626
005704
001527
006304
016402
000406
000000
000144
006204
005003

112103

020327
103744
020327
101341
042703
005703
001405
000241
060200
103732
005303
001373
005304
000740
122711
001001

005011
010100
005037
000461
005000
005037
122711
001453
111100
000451
005000
005037
122711
001443
022737
001013

ASc

005360

000001
001750

MOV
000012
023420

Ss:

B8R
. WORD

64:

ASR

000060

000071

177760
7%:

13¢:

000015

1¢:

007174

$..ASC:

007174
000015

005624
000015

000021

005624

1s:

005020
000060

2%:

000061

B8R
CLR
CLR
cMPB
BEQ
cHe
BNE

WRITE
POP

JMP
cMPB
BEQ
cHPB
BNE

3s:

8IS
B8R
ASL

SEQ 43

s IF LOS, NO
1 ILLEGAL DECIMAL
sREST, REGS
tRESTART

INPUT

1ZERO DIGIT COUNT ?
1 IF EQ, YES
1BUILD TABLE OFFSET
$SETUP CORRECT PARAMETER
1SKIP TABLE

0,1,10.,100.,1000.,10000.

RS, #60

ASL

000001

cHP

8LO
cHP
8HI
8IC
1ST
8EQ
CLC
ADD
8CS
OEC
BNE
DEC
BR
CMPB
BNE
CLR
MOV
CLR
B8R
CLR
CLR
cMP8
8EQ

MILDEC
RS,R4
,R3 R2,R1
$..RED
R4
RED. .E
R4
S$(R4),
R2
6s

R4
R3

MOVB

$..BIN:

CLR

MOVB

Ss:

000137
121127
001407
121127
001011
006300
052700
000401
006300

BR
TST
BEQ

PAGE

(R1). ,R3
33

R3, o7
3
€177760,R3
R3

13$

R2.RO
33
R3
74
R4
43

215,(R1)
18

tREBUILD R4 CONTENT

sRESET

SAVE BUFFER

1GET FIRST DIGIT
sCHECK LOWER DIGIT RANGE
1 IF LO, ERROR
1CHECK UPPER DIGIT RANGE
1 IF WI, ERROR
sCONVERT TO OCTAL
1+ ZERO DIGIT?
s IF EQ, YES
tRESET CARRY
:BUILD OCTAL NUMBER
;ERROR IF OVERFLOW
sALL DONE?
1 IF NE, NO
sNEXT DIGIT
i

1ZERO DIGIT

;1 SKIP IF NOT

tRESET FIRST INPUT WORD
(R1)
R1,RO
s TRANSFER BUFFER ADDRESS
$. $ASF
1CLEAR SPECIAL ASCII FLAG
Rtv. .E
tEND OF INPUT
RO
4
$ . $ASF
1CLEAR SPECIAL ASCII INPUT
#15,8R1
1 ZEROC INPUT
RED. .E
s IF €EQ, YES
8R1,RO
;GET FIRST BYTE
RED. .E
tEND OF INPUT
RO
3
tRESET COUNTER
6
215,8R1
1ZERO INPUT?
RED. .E
tEND OF INPUT
@17, .,6%
1 TOO MANY DIGITS?
1 IF NE, NO
2
MILBIN
s ILLEGAL INPUT MESSAGE
RS,.R4,R3,R2,.R1
1REST. REGS
$..RED
1REENTER
8R1,060 ;ZERO DIGIT ?
3
1BRANCH IF YES

8R1,061

44
RO
08ITO,RO
78
RO

FLAG

sONE DIGIT ?
$BRANCH IF NOT
$ADJUST TRANSFER BUFFER
$ INSERT INTO TRANSFER BUFFER
i

$ADJUST

TRANSFER BUFFER

Fyg

$SCado" DIAGNOSTIC
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159

005604
005606
005612
005614
005620
005622
005624
005626
005640
005644
005646
1160 005652

005201
005237

000742

121127
001343

MACRO M1200

005624

000015

000401
000000

011666
005726
0050387
000207

000002
007156

30 MAR

73:

64:
RED. .E:

16:02

PAGE

INC
INC

B8R
CrMPB

19-3

R1
64

. WORD

18
aR1,e15
St
RED. .E
0

CLR

(SP).
INPREQ

BNE
BR

POP
MOV
TS7

RE TURN

RS5,R4,.R3,R2,R1
(SP),2(SP)

SEQ 44

sPOINT TO NEXT INPUT
sCOUNT INPUTS
;CHECK NEXT
tEND OF

iNO,

INPUT

ILLEGAL CHARACTER

1COUNTER

tREST. REGS
tREADJUST STACK

RETURN ADDRESS

tRESET SPECIAL REQUEST POINTER
tRETURN

TO CALLER

)
IEC11-A DIAGNOSTIC

MACRO M1200

30 MAR

$..WRY

SEQ 45

$..WRT

H8R4

$ SUBROUTINE:

1166

1167
1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184 005654
1185
1186 005662
1187 005666

1213
1214
1215
1216
1217
1218

PAGE 20

.SBTTL

1162
1163
1164
1165

1188
1189
1190
1191
1192
1193
1194
1195
1196
1197
1198
1199
1200
1201
1202
1203
1204
1205
1206
1207
1208
1209
1210
1211
1212

16:02

005670
005674
005700
005702
005710
005716
005720
005726
005732
005734
005736
005744
005746
005750
005756
005760
005760
005766
005770
005776

005014
006020
006022
006026
006034
006042
006044
006052
006056

: THIS ROUTINE
;sALL PRINTING
3

s INPUT

$..WRT

IS CALLED TO SETTUP A MESSAGE PRINTOUT
IS CONTROLLED BY INTERRUPT EXEPT <CR>,

2(SP)
(SP)

:
H

.
.

ADDRESS OF

MESSAGE

CALLER PC

ON CONSOLE
<LF>,

TEXT

MESSAGE ON TERMINA!

sOUTPUT
H

BERT HUBER CSS/DP MUNICH

s AUTHOR;
3

tMODIFIED B8Y:

JOHN LEVESQUE

28 JUUN

23-JAN 83

CSS ISG

MOOIFICATION REQUIRED TO HANDLE

XON AND XOFF

s .PSECT CSSMON

005737

007152

005737
001372
010637
016627
000000
012737
012737
012616
052737
005737
001375
000207
122737

007150

001375

001401
000404
122737
001367

127727
001434
127727
001022
042737
012737
105737
100375
005237
012737
052737
000002
117737
005237
000002

$..WRT:

MOV
MOV

014,8064
4340, 8066

BNE
TSY

$..MSP:

005736
000340

000064
000066

000100
007152

177564

000023

177562

18:

000021

177562

3s:

177714

000135

177704

000133

000100
000015

177564
177566

005700
000012
000100

177566
177564

177630

177566

005700

MOV

LSB
OUTFLG
$..WRT
INFLAG
$..WRT
SP,0UTFLG
g(SP).(PC).

BNE
MOV

007152
000002

177564

.ENABL
TST

. WORD

MOV
8IS

TS7
BNE
RETURN

204
:

c“PB
BEQ
B8R
cHPB
B8NE
cMP8
BEQ
cMPB
8NE
BIC
MOV
TS718

8PL
INC
MOV
8IS

30%:

RTI

MOVB
INC
RTI

(SP)s+,(SP)

0100,80TPS

OUIFLG

sOUTPUT RUNNING ?
s IF NE, YES - WAIT

1 INPUT RUNNING ?

1 IF NE,

YES

143

34
208
021,30TKB
18

8%..MSP,0'
)

tENABLE INTERRUPTS
tOUTPUT RUNNING?

sIF NE

131
s33
:3:
i13
133

,YES->WAIT

TO CALLER

IF EC

;END OF MESSAGE
YES

308
©100,80TPS

133IF NE,

015,807P8

801PS
.-4

$..MSP
212,807P8
#100,80TPS

8¢. .MSP,.84TPB
$..MSP

:¢eGS0001ae
;06GS000]1
e

CHECK FOR XOFF
XOFF CONDITION WAIT TO CLEAR
NO XOFF THEN CONTINUE
CHECK FOR XON
NO XON GO WAIT FOR IT

WRT, .E

8. .MSP, 0 (

WAIT

tUPDATE STACK

sRETURN

023,80TKB

$SET OUTPUTFLAG
sGET MESSAGE POINTER
tMESSAGE POINTER
1SETUP VECTOR

133<CR>,<LF>?

s 33DISABLE INTERRUPTS
13 31SEND <«CR>
11 3WAIT FOR DONE
31

$33POINT TO NEXT CHARACTER
1331SEND <LF>
33 sRE-ENABLE

INTERRUPT

113RETURN TO MAIN PROGRAM
33 1SEND NEXT CHARACTER
$33POINT TO NEXT
1313RETURN

TO CALLER

T OIAGNOSTIC
0"
1219
1220
1221
1222
1223
1224
1225
1226
1227
1228

006060
006066
006072
006076
006100
006104
006110
006114
006120

042737
005037
005737
001410
005037
005037
004737
000137
000002

MACRO M1200

000100
007152
007170
007170
007156
003360
003520

30 MAR

177564

16:02

WRT, .E:

BIC
CLR
197
BEQ
CLR
CLR
CALL
JMP

4% ;

RTI

PAGE

#100,88TPS
OUTFLG
SPEFLG
48
SPEFLG
INPREQ
$..RSYV
$3SPE

.DSABL LS8

SEQ 4%

11 10ISABLE OQUTPUT INTERRUPT

$133RESET

QUTPUT

FLAG

$133THIS FLAG IS SET ONLY
1 s tWHEN DURING A PRINTOUT
333 THE <«CNTRL C> COMMAND WAS
1 1 INECCESARY T0O INTERRUPT THE
1 1 sRUNNING PRINTOUT
133NOW NEW SPEC. INPUT IS PROCESSED
131 iRETURN TO MAIN PROGRAM

14
IEClé A DIAGNOSTIC
$..KBO

MACRO M1200

16:02

PAGE

.SBTTL

1230
1231
1232
1233
1234
1235
12%
1237
1238
1239

1240
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250

30 MAR

SEQ 47

¢, .80

1 SUBROUT INE :

$..KBO

;KEYBOARD ECHO ROUTINE FOR TEMINAL INPUT
:

(SP)

it INPUT
:

sOUTPUT

s AUTHOR;
P

CALLER PC

PATTERN
PATTERN

TO ECHO

TERMINAL

BERT HUBER CSS/DP MUNICH

28-JUN

s .PSECT CSSMON

006122
006126
006130
006134

105737
100375

010037
000207

177564
177566

$..XBO:

.ENABL
7STB
8PL

LSB
80TPS
$..X80

.DSABL

LSB

MOV
RE TURN

RO,807PB

tECHO RUNNING ?

s IF

PL,

WAIT

;ECHO CHARACTER

sRETURN

CALLER

J4
IEC&& A DIAGNOSTIC
$..PRY

MACRO M1200

16:02

PAGE

.SBTTL

1252
1253
1254
1255
1256
1257
1258
1259

1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282
1283

30 MAR

2¢

SEQ 48

$..PRO

‘0

1 SUBROUTINE :

$..PRO

s THIS ROUTINE IS CALLED TO PRINT THE DEFAUWLT KEYBOARD
:PROMPT STRING ON THE TERMINAL, AND TO SET THE INPUT FLAG.
:

s INPUT ;

(SP)

;OUTPUT
H

MZ2001

‘

asesas

CALLER PC

PROMPT STING ON TERMINAL

s AUTHOR ;

BERT HMUBER CSS/DP MUNICH

THE USE

THIS MACRO'S ALLOWS

.IDENT

/vl .0/

.ENABL
CLR
PREAD

LS8
INFLAG
STATUS

WRITE

PROMES

PSET

STATUS

ON LSI AND PDP,

28-JN 76

TO USE

ONE

VERSION OF

3 .PSECT CSSMON

006136

006142
006166
006212
006222
006226
006230
006254
006260

005037

007150

$..PRD:

PSET

005737
001375

007152

010637
000207

007150

1%:

1ST
BNE

MOV

RE TURN
.DSABL

OUTFLG
1s

$ s 3sRESET INPUT FLAG
;SAVE STATUS
1M2001
1CLEAR PS
:M2001
;1 tWRITE PROMPT STRING

SP, INFLAG
LSB

sWAIT FOR OQUTPUT COMPLETE
:
tRELOAD

STATYS

;MZ001

tRETURN

TO CALLING PROGRAM

1311SET INPUT FLAG

CDMTM

K4
{?F%*‘A DIAGNOSTIC

MACRO M1200

30 MAR-84

16:02

1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299

1307
1308
1309
1310
1311
1312
1313
1314
1315

$..5Tx

i SUBROUTINE :

1287
1288

SEQ 49

¢..STx

.SBTTL

1285

1286

1300
1301
1302
1303
1304
1305
1306

PAGF

; THIS ROUTINE

PRINTS

THME

‘SYNTAX ERROR'

MESSAGE

INPUTS ;

(SP)s

{OUTPUT

MESSAGE ON TERMINAL

{AUTHOR :

CALLER PC

BERT MUBER CSS/DP MUNICH

28 JUN 76

L
i

;
3

MZ001

ssses

THE

USE

THIS MACRO’'S

ALLOWS

RUN

ONE

VERSION

ON LSI AND POP.

+ .PSECT CSSMON
006262
006264
006310
006334
006344
006350
006352
006376

$..5TXx:

000240

005737
001375
000207

007152

14:

.ENABL

LSB

NOP
PREAD
PSET
WRITE

STATUS
0
MSYERR

TST
BNE

PSET
RE TURN

.DSABL

OUTFLG
)§ ]
STATUS

LSB

;s SAVE

;3 10UMMY
STATUS
1MZ001

:CLEAR PS

1MZ001

tWRITE SYNTAX ERROR MESSAGE
sWAIT FOR OUTPUT COMPLETE
:

:M2001
sRELOAD PS
$3:RETURN TO CALLER

COM

L4
JECAALA DIAGNOSTIC

1317

1318

{;ég

MACRO M1200

30 MAR 84

16:02

.SBTTL

1 SUBROUT INE ;

‘.........-.

PAGE

SEQ 50

§..DMP

-0

s$..0MP
[ F N

)

1321
1322

:
: THIS ROUTINE PRINTS ON THE

1328

1323
1324
1325
1326
1327

1329

TERMINAL PRINTER NUMBERS
:IN BINAR:, DECIMAL AND OCTAL FORMAT, DEPENDING ON THE
: TYPE -ARGUMENT OF THE CALLING DUMP MACRO.
:
THIS MONITOR WAS MODIFIED IN JANUARY 1983 TO INCLUDE XON AND XOFF
TERMINAL FEATURES. ALSO INCLUDED SOME MACRO DIRECTIVES TO ALLOW
i
3
ASSEMBLY ON VAX,

M4
IEC11

$..0MP

A DTAGNOSTIC

MACRO M1200

30 MAR

1331

VALUE

2(SP)

=TYPE OF DUMP

(skP)

*RETURN PC

T0 DUMP

4(SP)

SEQ S1

Be
®¢

= OCTAL
DECIMAL
BINARY

1329

1364
1365
1366
1367
1368
1369
1370
1371
1372
1373
1374
1375
1376
1377
1378
1379
1380
1381
1382
1383
1384
1385
1386
1387

PAGE

s INPUT

1336
1337
1338

1362
1363

16:02

1332
1333
1334
1335

1340
1341
1342
1343
1344
1345
1346
1347
1348
1349
1350
1351
1352
1353
1354
1355
1356
1357
1358
1359
1360
1361

016600

005737
001375
000170
006426
006520

006630
012746
016646
012700
006316
103001
005200
004737
005366
001415
012700
006316

;OUTPUT

OUMP ON TERMINAL

: AUTHOR:

BERT HUBER CSS/DP MUNICH

..0MP:
007152
006420

LLTYP:
$..00C:

000010
000060

PUSH
MOV
TST

B8NE
JMP

$..00C
$..00C
$..08N

RO
4(SP),RO

: SAVE

OUTFLG
. 4
80..TYP(RO)

;OUTPUT RUNNING ?
sIF NE, WAIT
$SELECT FUNCTION ROUTINE

06, -(SP)
10(SP), -(SP)

$SETUP DIGIT COUNT
:GET VALUE TO OUMP

(sP)
1$

;BUILD FIRST DIGIT
sIF CC, DIGIT IS A

0'0,RO

006122
000002

1%:

CALL

RO
$..KBO

000060

2(SP)

44
:

(SP)
3
(RO)+,(RO)
(SP)
14

000005
000010

..0DC:

1C(SP), -(SP)

€'0,RO

000060
006122
000060
000044

000034
006122
000002

(SP)+,(SP)»

OMP. .E

LS8
LSB
05, -(SP)

3s:

006614

ARGUMENT

ASCII

VALUE

‘O
A

BASE

;BUILD NEXT DIGIT
s IF CC, DIGIT INCLUDES

RO
1%

022626
000466

;SETUP BASIC

TYPE

sIF EQ, ALL OONE
1SETUP NEXT DIGIT

04 ,RO

3s:

:GET

sCOUNT DIGITS DUMPED

(SP)
23

2s:

;OTHERWISE OIGIT
:OUMP DIGIT

44
¢'0,RO

103002
062700
006316
103001
122020
006316
103360
005200
000756

012746
016646
012700
004737
012700
027716
101004
005200
167716
000771
004737
062737

s PSECT CSSMON
LS8
.ENABL

28-JUN-76

tOIGIT

BASE.4

222?22

sANALYZE NEXT BIT
sIF CC, DIGIT INCLUDES 222??
sOIGIT = DIGIT » 2
sANALIZE LAST BIT OF DIGIT
sIF CC, DIGIT MUST BE EVEN
sOCTHERWISE OIGIT
:1GO AND DUMP

IS 00D

sREADJUST STACK

;END OF DUMP
tSETUP

A DIGIT

tGET VALUE

;BUILD LEADING

ZERO

COUNT

TO DUMP

$..KBO
3}AND PRINT
9'0,RO
;SETUP BASIC ASCII VALUE
A$POINT,(SP)
;CMP VALUE WITH ACT. DEC. DIGIT
34
{VALUE IS SMALLER
RO
;COUNT NUMBER OF ODIVISIONS
S$POINT,(SP)
+OIVIDE BY ACT., DEC. DIGIT
;D0 NEXT
23
$..KBO
tPRINT THIS DEC. DIGIT
02, $POINT
sPOINT TO NEXT DEC. VALUE

IEC11 A DIAGNOSTIC
.DMP

1388
1389
1390
1391
1392
1393
1394
1395
1396
1397
1398
1399
1400
1401
1402
1403

006574

006600
006602
006610
006612
006614
006616
006620
006622
006624
006626

006630
006636

006640
1404 006644

1405

1406
1407
1408
1409
1410
1411
1412
1413
1414
1415
14,6

MACRO M1200

005366
001357
012737
022626
000430
006616
023420
001750
000144
000012
000001

000002

012766

000020

000241
006166

103410
012700
004737
005366
001365
000403
012700
000767
062706
000176

006616

30-MAR-84

DEC
BNE

006614

MOV

$POINT:
$TABLE:

000006

000004

$..08N:
1¢:

000060
006122
000004

24:

000061

3s:

000006

177772

16:02

. E:
OMP

PAGE

25-1

igSP)
#3$TABLE, $POINT

(SP)+,(SP).

., . F
OMP

LSB
LS8
#16.,4(SP)

6(SP)
3
60,R0

$..KBO
4(sSP)
1%

. .E
OMP
961,RO
2
LS8

SEQ 52

sCOUNT NUMBER OF CONF., DIGITS
sALL DONE
tREBUILD FOR NEXT USER
1 CORRECT STACK FOR RETURN
tFND OF

DEC.

;RESET

CARRY

nume

;SETUP PRINT POINTER

1SELECT FIRST CHARACTER

sIF

" BRANCH

{1SETUP A 0" CHARACTER
;OUMP CHARACTER
s COUNT CHARACTERS DUMPED
; IF NE, CONTINUE
;END OF DUMP
;SETUP A " 1

;ouMe IT

;RESTORE

6 ,SP
3-6(SP)
LS8

;RETURN

" CHARACTER

;READJUST STACK

TO CALLER

IEC11 A DIAGNOSTIC
ADP

MACRO M1200

30 MAR 84

16:02

PAGE

.S8TIL

1418
1419

S€EQ 53

$..ADP

1420
1421
1422

1428

THIS SUBROUTINE

IS USED

TO PRINT

OUT

ADDITIONAL

ABOUT AN ERROR. MOSTTIMES IT WILL BE USED
DATA IN CASE OF DATA ERROR,

1424
1425

INPUTS

(SP)

OouUTPUT ;

NONE

INFORMATION

TO PRINT
-

THE

<ACORESS OF FIRST ARGUMENT

1426

1427
1428
1429
1430
1431
1432
1433
1434
1435

006706
006716
006730
006740
006752

AUTHOR :

..ADP:

WRITE

ouw

WRITE

000207

o P

RE TURN

MICHAEL ZILLER

€SS OP

0CT,$SMLD

;OUMP DATA

OCT, $WAS

;OUMP

MER]

MER2

1 "SHMOLD BE
"~

1 "WAS"”

tRETURN

MUNICH MAY

DATA

TO MAIN

1977

CH
‘Ec*bil OIAGNOSTIC

MACRO M1°,00

30 MAR 84

16:02

1487

.SBTTL

1438
1439

1 THIS ROUTINF

144}
1442

1 INPUT:

27/

5€Q 54

¢, .707

IS ENTERED AFTER

1AND A BUS TIMEOUT HAS HAPPENED

1440

14483

1444
1445
1446
1447
1448
1449
1450
1451
1452
1453
1454
1455
1456
1457
1458
1459
1460
1461

PAGE

4(SP)

= PC FOR

THE MACRO

THE ERROR MESSAGE:

1 AUTHOR ;

ALBERT BREM,CSS MUC

THIS

MHAS BEEN EVOCED

PROGRAM CONTINUATION

» REGISTER ADDRESS (E.G.

tOUTPUT ;
:

“ADRTST

ADORESS

IS NOT

164000) WHICH SHOWD BE

AVAILABLE

ON UNIBUS:

FEB 1979

TESTED

164000

006754
006760
006770
007000
007004
007006
007014

$..70T.

062706
005737
001375
012737
000136

ouMP

007152
000006

ADD

WRITE

000004

o4 ,SP

$MNOAYV

OCT,RO

tCORRECT

1 SAY ADORESS NOT AVAILABLE ON UNIBUS
;OUMP REGISTER ADDRESS

;a{

OQUTFLG

1SYNCHRONIZE PRINTOUT

MOV
JMP

06,804
8(SP).

sREBUILD TRAP CATCHER
$JUMP TO CONTINUATION LABEL

. -4

D5
‘EC“ A DIAGNOSTIC

MACRO M1200

30 MAR

16:02

1463

.SBTTL

1464

PAGF

SEQ 5SS

¢, .B»F

{SUBSECTION TO CONTAIN ALL COM BUFFERS, CONSTANTS AND

1465

1 "NOT MACRO DEF INED'

1466
1467
1468
1469
1470

1AUTHOR :
:

1471
1472

1473

1479

1480
1481
1482
1488
1484
1485

KDSDRO=172320

K ISARO=172340
KISARS=172352
KISARG6=172354
KISAR7172356

KISORO=172300
KISOR6+1727%14
KISDR7«172316

SISOR0=172200
UDSARQ=177660
UDSDRO=177620
UISARO=177640
UISARA 177650
UISARS=177652
UISARG+=177654
UISAR7+177656
UISDRO=177600
UISOR4=177610
UISORS=177612
UISOR6+=177614
UISDR7+177616
UBMPR=170200
= 140000
CMODE

177640
177650
177652
177654
177656
177600
177610
177612

1487
1488
1489
1490
1491
1492
1493
1494
1495
1496

177614
177616
170200
140000

1499

177572
172516

1497
1498

1500 007016
1501 007020
1502 007022

1 .PSECT CSSMON

KDSARQ=172360

177620

1486

MUBER CSS/DP MUNICH

.ENABL
LS8
sMEMORY MANAGEMENT DEF INITIONS

172360
17230
172340
172352
172354
172356
172300
172314
172316
172200
177660

1474
147S
1476
1477
1478

BERT

PARAME TERS.

PMOOE
= 30000

SRO=177572
SR3+172516
$$PTYP: _WORD

000000

$SMTYP:

MEMEND:

_WORD

.WORD

$IF O:+LSI;

0.0

;TOP OF CORE AND CORE EXTENSION
1STARTING FROM HERE TILL PROMES

(o]

3 IF O:NO MM;

1:-PDP

1:WITH MM

; THE CONTENTS WILL BE CLEARED

KBBEND :
KBBPNT:

.BLKB

80.

.WORD

KBBUFF

INFLAG:
OQUTFLG:

.WORD
.WORD

INPREQ:

.WORD

ERRFLG:

.WORD

PSDSWR:

., WORD

STATUS:

.WORD

RUBFLG:

$..ER;
SPEFLG:

SCOPAD:
$.8ASF:

.WORD

. WORD
.WORD

1000

_WORD

000000000

XKBBUFF:

007026
007146
007146
007150
007152
007154
007156
007160
007162
007164
007166
007170
007172
007174

1WITH

"ABO”

s TERMINAL
;INPUT

INPUT BUFFER

tREFERENCE LABEL

BUFFER

POINTER

s INPUT ' RUNNING” FLAG
tOUTPUT *RUNNING” FLAG

;' ERROR HANDLING REQ.'

:'WAIT FOR SPECIAL
;1 SOF TWARE

FLAG

INPUT" FLAG

SWITCHREGISTER

tRUBOUTMODE
- INDICATOR FLAG

1BUFFER PS-CONTENT

IF SAVED

sHOLDS CURRENT ERROR NUMBER
tUSED IN $..KBI AND $..WRT

1SAVE AREA FOR SCOPE LOOP ADDRESS
1SPECIAL

ASCII

INPUT

FLAG

{EC&E’A DIAGNOSTIC
1520
1521
1522
1523
1524
1525
1526
1527
1528
1529
1530
1531
1532

MACRO M1200

007176
007200

000000
000000

1537

007202
007210
007213
007256
007316
007360
007421
007445
007503
007524
007601
007652
007662
007704
007737

133
133
133
133
133
133
133
133
133
133
133
133
040
133
133

1539
1540
1541
1542
1543
1544
1545
1546
1547

010032
010101
010144
010156
010252
010304
010333
010351
010426

133
133
040
133
110
133
040
133
133

1533
1534

1535
1536

1538 010002

1548
1549
1550
1551
1552
1553
1554

010472
010542
010612

010614

133

133
133
066

30 MAR 84 16:02
$SMLD:
$WAS:

103
040
113
111
111
111
111
102
123
123
123
105
040
120
105

056

117
111
040
133
111
040
040
133
115
111
127
135

104
135
105
114
114
114
114
131
131
103
125
122

040
122
122

056

120
114
040
133
107
103
040
124
105
114
105

PROMES:
OuMMES:
MXBOVF:
MILOCT:
MILOEC:
MILBIN:
MILEMT:
MILADR:
MSYERR:
MILSCP:

.WORD
.WORD
.NLIST
.ASCII
.ASCII
.ASCII
.ASCI.
.ASCII
.ASCII
_ASCII
.ASCII
,ASCII
.ASCII

MERROR:

LASCITI
.ASCII

MERCOV:

.ASCII

MERRP2:
MTMMPWRFL:

MERMLT:

MNOSUB:
MILTR1:
MILTR2:
MVERSN:
MERL:
MER2:
$MNOAV:
MEMOEF:
MAPER:
NO6 :

CDM, .E:

.ASCII
.ASCII

_ASCI1

.ASCII
.ASCII
.ASCII
.ASCII
ASCII
LASCII
LASCII
.ASCII
.ASCII

-ES
PAGE 28 1

SEQ 56

O
1USED IN §, ADP
O
tUSED FOR $ . ADP
BEX
/(COM>1/
/({ )/
/(XEYBOARD BUFFER OVERFLOW! REENTER)/
/[ILLEGAL OCTAL INPUT !! REENTER)/
/({ILLEGAL DECIMAL INPUT ¢! REENTER)/
/([ILLEGAL BINARY INPUT !! REENTER]}/
/([ILLEGAL EMT-NUMBER)/
/(BYTE ADDRESS IS NOT ALLOWED )/
/[SYNTAX ERROR !()/
/([SCOPE LOOP SKIPPED TO A SUBSEQUENT ERROR
/([SUSPECT

/[ERROR

AN INTERMITTEND MARDWARE

ERROR[ ]/

!'[/

7
AT LOCATION : )/
/[PROGRAM MADE POWER FAIL

(1/

/[ERROR COUNTER OVERFLOW ON ERROR:

/(...HALT AFTER ERROR...]}/

/(OPTION NOT SUPPORTED IN THIS COM VERSION]/
/[ILLEGAL INTERRPT OR TRAP T0 : )/
7/
FROM: )/
/((((
COM v3.5 -- CSS DIAGNOSTIC MONITOR
/MIGHEST MEMORY ADDRESS : 1/
/[ CONTENT SHOUWLD BE : )/
7/
BUT WAS : )/
/([THIS ADORESS IS NOT AVAILABLE ON UNIBUS:
)/
/(MEMORY MANAGEMENT UNIT IS DEFECT!!!/

,ASCII
CASCIT

/([ILLEGAL MAPPING ADDRESS SPECIFIED!'!'!(])/
/(W€ WILL TRY WITHOUT MEMORY MANAGEMENT(
)/

JASCII
.EVEN
.LIST
.DSABL

761/

BEX
LS8

(ees

F5
gECé&'fl DIAGNOSTIC

MACRO M1200

30 MAR 84

1
2

LTITLE
NLIST

.LIST

4
S 010614
010614
010620

012746
004737

021606
005654

010628
010630

012746
004737

021510
005654

010634

005046

6
7 010624

8 010634

010636

9 010642

004737

005700
001402
000137

11 010656
12 010662
13 010664

032700
001360

000007

020027

160010

020027
101401

177776

10 010652

010664

010670
010672

14 010674
010674

010700

010702

15 010704
010704
010712
010716
010720
010726
16 010730

17 010734

18 010740

010740

010746
010752
010754
010762
010764
010770
010774
010774
011002
011006
011010
011016
011020

23 011024

24 011030
25 011034
26 011040
011040

012700

103001
000754

3
RGAIN:

010656

160010

18:

062700

012737

012746
005710
012737
005726
010037
062700

CJX0006

000004

024204

000002

WRITE

MESL

tENTER FIRST

READ

OCT,RO

s INPUT REQUEST

MOV
CALL

006754

000004

000006

000004

010624

024206
000002
000004

000006

000004

010037
062700

024210
000001

024212

000001

006754

(sSP)

$..RED

TST
BEQ
JHP

RO
. +6
14

RO NE

MOV

o0 GOTO

REG OF

IEC11

1SAVE #MESL1 ONTO STACK
s INITIATE PRINTOUT

1 INDICATE OCTAL INPUT REQUIRED

#160010,R0O

s ACCEPT

INPUT

$:IS RO ZERO
H
3

t SAVE DEFAULT VALUE

8IT
7,R0
sCHECK THREE LSB OF INPUT
BNE
RGAIN
s IF NOT CLEAR,REQUEST AGAIN
IF RO LO #160010 GOTO RGAIN
]
RO, 0160010

;COMPARE RO AND 0160010

IF RO HI #177776 GOTO RGAIN
cMP
RO, 8177776
8L0S
. +4

:
sCOMPARE RO AND #177776

ADRTST
MOV
MOV
TST
MOV
TST
MOV

Y
RGAIN

RGAIN

RGAIN
s, . T07,804
#RGAIN, -(SP)
(RO)
6,604
(SP).
RO,CIR

#2,R0O

1 SAVE

1PROVIDE TIMEOUT ENTRY
;1SAVE RETURN ADDRESS ON STACK
:+ IS ADDRESS AVAILABLE ?
sRESTORE TIMOUT VECTOR
tCORRECT STACK
CIR ADORESS

1BUILD NEXT ADDRESS

ADRTST

RGAIN

MOV
TST
MOV
18T
MOV
ADD
ADRTST
MOV
MOV
ST
MOV
TST
MOV

ORGAIN, -(SP)
(RO)
06,804
(SP)»
RO, SMR
02 .RO
RGAIN
8%..707,804
ORGAIN, -(SP)
(RO)
06,304
(SP).
RO, IOR

1 SAVE RETURN ADDRESS ON STACK
1 IS ADDRESS AVAILABLE ?
tRESTORE TIMOUT VECTOR
;CORRECT STACK
iSAVE SMR REG ADDRESS
1BUILD NEXT ADDRESS

MOV
ALD
ADRTST
MOV

RO, IORHB
21,RO
RGAIN
s, .707,304

sOF IOR
;BUILD NEXT

MOV

ADD

000004

MMESL, -(SP)
$..WRT

CALL

ADD

006754
010624

012737

s IDENTIFY TEST
1SAVE M1 ONTO STACK
1 INITIATE PRINTOUT

B8R

012737
012746
005710
012737
005726
010037

062700

M1
oMy, -(SP)
$..WRT

000004

IEC11 A DIAGNOSTIC
CND

MEB

B8HIS
B8R

006754
010624

SEQ S7

WRITE
MOV
CALL

000750
012737
012746
005710
012737
005726
010037

PAGE 29

CLR

005020

010642
010644
010646

19
2C
21

16:02

os.. 707,804

21.R0O

tPROVIDE

1 SAVE

TIMEOUT ENTRY

1PROVIDE TIMEOUT ENTRY
i SAVE RETURN ADDRESS ON STACK
1 IS ADDRESS AVAILABLE ?
tRESTORE TIMOUT VECTOR
1CORRECT STACK
IOR REG ADDRESS

;1BUILD HIGH-BYTE ADDRESS
ADDRESS

{PROVIDE

TIMEOUT

ENTRY

IECél-fl OIAGNOSTIC
$.

.80

MACRO M1200

011046
011052
011054
011062
27 011064
28 011070
011070
011074

012746
005710
012737
005726
010037

010624

012746
004737

021666
005654

011100
011102

005046
004737

011106

005700

29 011100
30 011106

011110
011112

31 011116

32 011122
011122
011126

001402
000137

012700

000006

020077

017046

012746
004737
000137
010037

022034
005654
011070
024224

011174

012746
004737

021750
005654

011200

005046

011206
011210

005700
001402

42 011216
43 011222
011222
011226
011230

012700

35 011146

36 011150
011150
011154
37 011160
38 011164
39 011170
011170

011200

011202
011206

011212

011232

011232
011236
011240

45 011242
46 011246

000753

001406

004737

2%:

011222

020027
103001

000001

020027
101401
000753

000044

MOV
1St
MOV
1ST
MOV
WRITE
MOV
CALL

ORGAIN, (SP)
(RO)
6,804
(SP).
RO, VSR
MES2
oMES2, (SP)
$..WRT

CLR
CALL

-(SP)
$..RED

OoCT,RO

00 GOTO 2%

1ST

MOV

9270,R0

8EQ
JMP

s INDICATE OCTAL INPUT REQUIRED
s ACCEPT INPUT
$IS RO ZERO ?
:
}

;1SAVE DEFAULT VALUE

VECAIN

RO, 8VSR

BEQ

SAV:
ADORIN:

OCT.RO

CLR

(SP)

s INPUT

PRINTOUT

s INDICATE

OCTAL

;ACCEPT

INPUT

RO, @36.
. +4
ADDRIN

s COMPARE

MOV
8IS

:PRE ADDRESS LISTENER
:+ SAVE TALKER ADDRESS

MOV
MOV

GOTO

RO, IECAAD
2100, TALKER

49 011266

050037

024220

8IS

940,.LISTNR
RO, TALKER
RO,LISTNR

50 011272
51 011276

004737
017700

011740
012712

JSR
MOV

PC,TESTO
avSR,RO

REQUIRED

cHe
B8LOS
B8R

036.

INPUT

DEFAULT VALUE
i
sCOMPARE RO AND 01
i

RO HI

s INITIATE

1 IS RO ZERO
:

024226
000100

8s:

TO VSR

INPUT AND CONTINUE

MOV
#35,R0
IF RO LO &1 GOTO ADDRIN
cHe
RO, 01
BMIC
. v4
B8R
ADDRIN
IF

024220

YES,SAVE

RO
.6

JHP

2%:

}

INPUT EQUAL

1 IF NOT,WRITE MESSAGE
$SAVE #MES6 ONTO STACK
s INITIATE PRINTOUT
sREENTER
1SAVE IEC11-A VECTOR ADDRESS
sREQUEST TEC11-A BUS ADDRESS
s SAVE OMESS ONTO STACK

$..WRT

READ

1S7
8EQ

024216

+IF

WRITE
MES6
MOV
OMESE, - (SP)
CALL
$. . WRT
JHP
VECAIN
MOV RO,VECA
WRITE
MESS
MOV
oMESS, -(SP)

CALL
$..RED
IF RO NE 00 GOTO

38:

: IS

SAvV

CALL

000035

000040
024216

s INPUT REQUEST

IF RO LO 440 GOTO VECAIN
:
ce
RO, 040
;COMPARE RO AND 040
BHIS
. +4
i

B8R

000757

012737
050037

s SAVE RETURN ADORESS ON STACK
1 IS ADDRESS AVAILABLE ?
tRESTORE TIMOUT VECTOR
s CORRECT STACK
;}SAVE VSR REG ADORESS
tREQUEST VECTOR ADDRESS OF IEC11 A
1SAVE OMES2 ONTO STACK
s INITIATE PRINTOUT

.6
28

010037
012737

47 011254
48 011262

SEQ S8

BR
VECAIN
IF RO HI #774 GOTO VECAIN
:
cHP
RO, 0774
sCOMPARE RO AND 0774
8LOS
. o4
H

005020

000137

PAGE 29 1

IF RO NE

000270

000774

16:02

RPEAD

011122

020027
101401

011140

VECAIN:

005020

000040

34 011142

000004

024214

020027
103001
000757

011130
33 011132
011132
011136

30 MAR 84

:SAVE

ADDRIN

'
}

RO AND

03¢.

1SAVE IEC11 A BUS ADDRESS
s PRE -ADDRESS TALKER

1 SAVE

LISTENER

ADDRESS

s TEST LON SWITCH FEATURE;
;CHECK VECTOR ADDRESS

¢avO2EQQes

15504 DIAGNOSTC

MACRO M1200

52 011302
53 011306
011310
55 011314
011316
011316

020027
101003
020027
103005

000774

012746

021666

57 011326
011330
S9 011334
011336

000763
020027
10%*” 0
010037

011322

004737

30 MAR 84

308 :

005654

024222

29 2

SEQ 59

RO, #774

sLEGAL VECTOR ?

cHP
8MIS

RO, #40
as

tLEGAL VECTOR

MOV

MES2,

WRITE

CALL

as:

PAGE

cHe

B8MI

000040

16:02

cHe
8LO
MOV

304,

MES2,

$..WRT

8%;

(SP)

RO, 040;
308,
RO,VECTOR

1 IF HI NO

10eVO1EQ2e
e

s IF

s0eVOL1EQ20
s

MIS

YES

106eVO1EQ290e

1REQUEST ANOTHER VECTOR ADDRESS
sSAVE #MES2 ONTO STACK
s INITIATE PRINTOUT
N
AGAI
CK
1CHE
; CHECK RANGE
s IF LO, INVALID
;tGET VECTOR ADDRESS

JEC11 A DIAGNOSTIC
TEST

SELECT

78
79

81
82
83

85
87
89
91
92
93

30 MAR

16:02

PAGE

SEQ 60

ROUTINE

62
63 011342
011342
011346
64 011350
65 011354
66 011356
67 011360
011360
68 011366
011366
011372
69 011376
011376
011402
011406
011406
011412
011414
71 011420
72 011424
73 011426
74 011432
011432
011436
75 011442
011442
76

MACRO M1200

011446
011452
011452
011456
011460
011462
011462
0l1464
011466
011472
011500

011502
011504
011506
011514
011522
011530
011534
011536
011544
011550
011552
011560
011566
011572
011600
011602
011610
o11612
o116t12

012746
104002
005737
001375
000005

024224

052737

000100

012746
004737

024070
005654

012746
004737

000010
005020

020027

000131

001402
000137
005037
000402
005237

007152

177560

CALL

READ
MOV

012746
004737

000002
005020

020027
101401
000764

000016

B8eQ

JMP

SFLAG:
LAB1l1:

. -4

80TKS
08176,80TKS

TPMSG
#TPMSG, -(SP)
$..WRT

ASC

.+6

SFLAG

000000
011530

011666

011550
000100
000072
011550

011664
011664

062737
000760

000002

011550

012746

024166

SEQPNT:
SEQ:

011662

FOR

OR N?

PRINTING

START

MESSAGES

$§SAVE @#TPMSG ONTO STACK
s INITIATE PRINTOUT

: INODICATE ASCII
s ACCEPT INPUT
:SET FLAG
;COMPARE RO AND &'
Y

INPUT

IN RO REQUIRED

MSGFLG
ME SNE X
OMESNEX, -(SP)
$. . WRT

tNO PRINT 0QUT
;REQUEST NEXT TEST TO RUN
;sSAVE OMESNEX ONTO STACK
s INITIATE PRINTCUT

LAB11

DEC.RO
02, (SP)

RO, 014.
.+4

LAB11

RO,.(PC)»

ADD
MOV
JSR

OTY , OF FCNT
BOFFCNT
,OF FCNT
PC,80FFCNT

.WORD
MOV

tWAIT

START/END MESSAGES

FOR INPUT
s INDICATE

;sCOMPARE

sACCEPT
:

RO AND

DECIMAL

INPUT

INPUT REQUIRED

@14,

MOV

0
OFFSET ,OFFCNT

;

;IS RO ZERO ?
:
:
;LOOP ON SINGLE TESTS
;BUILD

WCRD

:AND SAVE

OFFSET

INTC

TABLE

1 HOLDS CURRENT
:

TEST NUMBER

sGOTO SELECTED

TEST

SINGLE

;REPEAT TEST

MOV
.WORD
MOV

0TT+2,(PC)o
0
SEQPNT ,OF FCNT

sGET ADORESS OF FIRST TEST
1POINTER FOR TEST IN PROGRESS
tLOAD ADDRESS OF NEXT TEST

JSR
crp

PC,80FFCNT
SEQPNT ,Q0TTE 4

1GOTO EXECUTE
sALL DONE ?

ADD

02, SEQPNT

;POINT

TO NEXT

tEND OF

TEST

B8R

MOV

B8EQ
TESTL1:

;ASK.

INC
WRITE
MOV
CALL

B8R

ASL

TESTAL:

1CLEAR THE WORLD
$RE-ENABLE TTY

IF RO EQ €0 GOTO TESTAL
1S7
RO
BNE
.*6
JMP
TESTAL
MOV
Q177777,TSTREP

OFFSET:
SINGLE:

VECTOR

;PRINT OUT

cMP
BLOS

011664
011664
011664

oVECA

CALL
$..RED
IF RO HI @14, GOTO LAB11

011504
011626
000136
000130

sRESET

sWAIT FOR ANY QUTPUT COMPLETE

OUTFLG

MSGFLG

READ
MOV

011666

1 SAVE OVECA ONTO STACK

CLR

B8R

011536
1777177

TEST SELECT ROUTINE
OVECA
QVECA, (sP)
2

$..RED
CALL
IF RO NE &'Y GOTO SFLAG
cMe
RO,0'Y

011670
024044
005654

.SBTTL

REMVEC
MOV
EMT
TST
BNE
RESET
SET6
BIS
WRITE
MOV

011426
011670

012746
004737

005700
001002
000137
012737
006300
010027
000000
013737
062737
017737
004777
000764
012737
012727
000000
013737
017737
004777
023727
001404

$..SPC:

00, TSTREP

QOFFCN
,OF FCNT
T

TESTLL

B8R

SEQ

MOV

OMESEND,

WRITE MESEND

tNO LOOP

+IF EQ,

ON SINGLE

YES

sAND DO NEXT
(SP)

s SAVE

TESTS

TEST
TEST

@MESEND ONTO STACK

J5
IEC11-A DIAGNOSTIC

TEST

SELECT

ROUTINE

MACRO M1200

30 MAR 84 16:02

011616

004737

005654

99 011626
011634

000000
012456

012106
012700

012250
013302

014516

015400

98 011622

011642

100 011646
011654

101
102
103
104

011662

011664
011666
011666
011670

000137

013444

014372

017046
021114

000000
000000
000000

011536

013754

017510

CALL
1TT:

020176
OFFCNT:
TTE:
TSTREP:
MSGFLG:

JMP

PAGE 30-1

SEQ 61

$..WRT

1 INITIATE PRINTOUT

TESTAL

.MORD

O,TEST1,TEST2,TESTS,TESTA,TESTS,TEST6,TEST?

.WORD

TESTS,TEST9,TEST10,TEST11,TEST12,TEST13,TEST14

.WORD

.WORD
.WORD

O
O

tMESSAGE FLAG

IJ
MACRO M1200
IEC1I1 A DIAGNOSTIC
LOCAL MACRO DEF INITIONS

107
108
109
110
111
112

113
114
115

116

117

118
119
120
121
122

123
124
125
126

127
128

129
130
131
132
133
134
135
136
137
138
139

140
141
142
143
144
145
146
147
148
149

150
151
152
153
154
155
156
157
158
159
160
161
162

163

30 MAR

16:02

PAGE

.SBTTL

EQ 62

LOCAL MACRO DEF INITIONS

THIS SECTION CONTAINS ONLY MACRO DEF INITIONS

¢ USED IN THE IEC-11A OIAGNOSTIC.
i

.MACRO
8IS
.ENDM

MCLEAR
o8ITS,aCIR

.MACRO
8IS
. ENDM

SACS
e8IT0,8CIR
SACS

1S5ET SACS BIT IN CIR

.MACRO
8IS
. ENOM

INHSRQ
#8IT10,8CIR
INHSRQ

iSET INHIBIT SRQ INTERRUPT

.MACRO
8IS
.ENOM

INTENB
o8IT76,aCIR

.MACRO
TS7Y
BNE

TSTEND
MSGFLG
L
MTE'A;

.ENDM

TSTEND

.MACRO
BIS
.ENOM

SIC
081 "6,85MR
SIC

1SEND INTERFACE CLEAR

.MACRO

SAVCIR
aCIR,RO
SAVCIR

;SAVE

SAVSMR
8SMR ,R1
SAVSMR

; SAVE SMR CONTENT

WRITE
RETURN;

MOV

.ENDM
.MACRO

MOV

. ENOM
.MACRO

MCLEAR

INTENB

A,72L

SAVIOR

MOV

.ENDM

8I0R,R2
SAVIOR

.MACRO
8IS
.ENDM

GTS
eBIT2,8SMR
GTS

.MACRO

LIN
8SMR
LTN

.MACRO
SETS
. ENDM

LUN

SET4
. ENDM

SMR

LUN

tEXECUTE MASTER CLEAR

¢eVO2EQQee

;

*eVO2EQQse

;ENABLE INTERRUPT IN IEC 1l1A

:PRINTOUT

NOT?

;TEST'A END MESSAGE
;RETURN TO CALLER

CIR CONTENT

s SAVE IOR CONTENT

$GO TO STAND BY

L5
ESE*&

°fl888638§I§SYIONS MACRO M1200

30 MAR

B84

16:02

PAGE

32-1

SEQ 63

.MACRO
SET?
.ENDM

SRt
8SMR
SRE

1SEND REMOTE ENABLE

.MACRO
BIS
. ENOM

TCA
o8IT1,a85MR
TCA

s TAKE

172
173

.MACRO
SETO
.ENOM

TCS
8SMR
TCS

s TAKE CONTROL SYNCR.

176

.MACRO
SAVCIR
SAVSMR
SAVIOR
LENDM

SAVIEC

164

165
160

167
168
169
1°0
171

174
17
177
178

179
180
181
182
183
184
185
186
187
188

189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207

011672
011676
011702
011704
011706
011710
011712
011714
011716
011720
011722
011726
011732
01.734
011736

013746
013700
006316
005500
006200

005516
061600
005616
060016
005600

012637
010037
000207

135753

024642

011734
011736

RANDOM:

LOOP

MOV
MOV
ASL
ADC
ASR
ADC
ADD

RA, (SP)
RB.RO
asP
RO
RO
asP
asP RO

ADD

RO, 85P

MOV
MOV
RETURN

(SP). ,RA
RO,RB

.MORD

024642

SB8C

011734
011736
RA:
RB:

oA, C

.ENDM

SB8C

. WORD

ASYNC

SAVIEC

.MACRO
LOOP
A.8,2C
DEC
(PC).
A
.WORD
IF C NE 00 GOTO B

MOV

CONTROL

8sP

135753

;COUNT LOOPS
;SETUP NEW LOOP COUNT

M5
*ES*‘tGND c

3 T }EATURE MACRO
CRO M M1200

<09

210 011740

211 011742
011742
011746
212 011752
011752
011754
213 011760

104000

TESTO:

012746
004737

022112
005654

005046
004737

005020

011760

052777

000040

215 011774

001404

214 011766

216 011776
011776
012000
217 012002
218 012006
219 012014
220 012016
012016
012020
221 012022
222 012026
012026

012032
223 012036
012036
012040
224 012044

225 012052

226 012054
012054
012056
227 012060

228 012064

229 012072
230 012074
012074
012076
231 012100
232 012104

30 MAR 84 84

027727

104562
000000
000137
027727
001404

012212

011740
012174

104563
000000
000137

011740

012746
004737

022216
005654

005046
004737
022777
001404

005020
000600

104564
000000
000137

027727
001404

104565
000000

000137
000207

011740

012116

011740

012216

000602

010000

1%:

2s:

:02
16:0

P AGE

.SBTTL

TEST LON SWITCH FEATURE

WRITE
MOV
CALL
READ
CLR
CALL
MCLEAR

SLON
OSLON, (SP)
$..WRT
OCT,.RO
-(SP)
$..RED

;SET LON SW MESSAGE
1 ¢4VO2EQO+»
1SAVE #SLON ONTO STACK
s INITIATE PRINTOUT

8IS

cMe

oB8IT7S5,8CIR

B8EQ

8CIR, 0602

sEXECUTE MASTER CLEAR

SCOPE

ERROR
TRAP
.MORD
JHP
cHe
BEQ
ERROR
TRAP
.WORD
JHP
WRITE
MOV

114,
114,
O
TESTO
8SMR,8BIT12
24
115.
115.
O
TESTO
CLON
OCLON, (SP)

CLR
CALL
cHP
B8EQ

-(SP)
$..RED
#600,8CIR

CALL
READ

012132

010000

3%:

5S€EQ 64

$. . WRT
OCT.RO

¢aVO2EQQse

$1STATE CHGE, INT,LON

¢sVO2EQOe

t1CIR CONT NOT 0602
;ERROR 114,
tERROR COUNT

¢sVOREQQse»

$1BRANCH IF CORRECT

tLACS SET EXCLUSIVELY?
:BRANCH IF 0.K.
tLACS NOT OR NOT ONLY
{ERROR 115.
;ERROR COUNT

sLACS STILL SET?

4
117,
117,
O
TESTO

;

;
;
3
:

¢sVO2EQOQee

¢eVO2EQQe»
4eVO2EQOQse
¢sVO2EQQee
¢sVO2EQQee

i ¢eVO2EQQee
tRESET LON SW MSG
3 #4VO2EOQOQe»
:SAVE O0CLON ONTO STACK
s INITIATE PRINTOUT

asSMR,eBIT12

8EQ
ERROR
TRAP
.WORD
JHP
RE TURN

cMe

INPUT REQUIRED

116.
116.
O
TESTO

#eVO2EQOQ+s

1 INOICATE OCTAL
sACCEPT INPUT
1PROOUCE CLEAN STATUS

s INDICATE OCTAL
sACCEPT INPUT
1STATE CHGE, INT
1BRANCH IF 0.K,

ERROR
TRAP
.WORD
N

1CIR CONTENT NOT 0600
tERROR 116.
;ERROR COUNT
;BRANCH IF YES
;ERROR IF NO
sERROR 117,
;ERROR COUNT
;RETURN FROM SUBTEST

INPUT REQUIRED
;

¢eVO2EQQe»

¢sVO2EQQe»

;

¢aVO2EOQQee

¢eVO2EQQee

*eVO2EQOs«

1
i

¢4VO2EQQee
¢eVO2EOQQs+»

3
3

¢eVO2EQQes
¢oVO2EQOee

NS
§E£+11A B{EEfi?éYgSSIER CEESEO M1200
234
235 012106
236 012112
237 012114

012114
012120
238 012124
239 012126
012126
240 012134
241 012140
242 012142
12142
012144
243 012146
244 012152

012152
245 012156
246 012160

012160

012162
247 012164
248 012170

249 012174
250 012176
012176
012200
251 012202
252 012206
012206
012210
012212
012216
012220
012222
253 012230
012230
012234
012236
012242
012246

005737
001004

011670

012746
004737
104000

022324
005654

052777
017700
001404

000040

104401
000000
000137
017700
001404
104402
000000
000137
017700
001404

104403
000000
000137
005327
177777
005737
001401
000741
012737
005737
001004
012746
004737
000207

012046

30 MAR 84

TEST1:

16:02

PAGE

.SBTTL

TST

BNE

WRITE
MOV

LOPTL:

CALL
SCOPE

MCLEAR

8IS
MOV

012050

B8EQ
ERROR
TRAP

012106

18:

012026

. WORD
JMP
SAVCIR

MOV

B8EQ
ERROR
TRAP

012106
012016

2s:

. WORD
JMP

MOV

8EQ
ERROR
TRAP

. WORD

012106

3%
64%:

012210
177777

012210

011670

022371
005654

JHP
LOOP
DEC
. WORD
TS7
BEQ
B8R
MOV
TSTEND
TS7
BNE
MOV

664
:

CALL

RETURN;

TEST

SEQ 65

EXECUTE MASTER CLEAR

1PRINTOUT

MSGFLG
LOPT1
MT1S

aMT1S,
$..WRT

(SP)

OR NOT?

s TEST1 START MESSAGE
1SAVE OMT1S ONTO STACK
s INITIATE PRINTOUT
1 SCOPE LOOP MARKER

#BIT7S,aCIR
8SMR,RO
1
1.
1.
0
TESTL

tEXECUTE MASTER CLEAR
$SAVE SMR CONTENT

s IF EQ, YES
s ILLEGAL SMR AFTER MC
sERROR 1.

;ERROR COUNT

;SAVE CIR CONTENT
+IF EQ, NO BIT SET

8CIR,RO
28
2.
2.
0
TEST1

s ILLEGAL CIR AFTER M(C
;ERROR 2.,

s+ERROR COUNT

3.
3.
0

;SAVE IOR CONTENT
;IF EQ, NO BIT SETY
;sILLEGAL IOR AFTER MC
;ERROR 3,
:ERROR COUNT

1,LO0PT1
(PC)H»

;COUNT LOOPS

8I0R,RO
3t

TESTL

-1
643
.4

LOPT1
o

{SETUIP NFW | ONP CONNT

1,648

;PRINTOUT OR NOT?

MSGFLG

MMTEL,
$. . WRT

;IS 64% ZERO ?

:SAVE #MTE1 ONTO STACK

(SP)

;RETURN

: INITIATE PRINTOUT

TO CALLER

IECL 1 A DIAGNOSTIC
TEST 2
TEST SACS BIT

255
256 012250
257 0102254
258 012256
012256
012262

259 012266
012266

260 012274
261 012276
012276
262 012304
012304
2¢3 012310
012310
264 012314
265 012316
012316
012320
266 012322
267 012326
268 012330
012330
269 012336
012336
270 012342
012342
271 012346
27 012350
012350
012352
273 012354
274 012360
275 012362
012362
276 012370
012370
277 012376

012376
278 012402
279 012404
012404
012406
280 012410
281 012414
012414
012416
012420
012424
012426

012430
282 012436
012436
012442
012444
012450
012454

MACRO M1200

30 MAR 84

16:02

PAGE

5€Q 66

IN CIR

005737

011670

012746
004737

022405
005654

052777
104000

0C0040

011710

052777

000001

011700

017700

011674

032700

000001

001004

104404
000000
000137
104000

TEST?:

157

017700

ol11642

032700
001404

000001

8IT75,8CIR
eBIT0,8CIR

#B8IT0,RO
1

012250

052777

000001

0527717

000040

8CIR,RO

e8IT0,RO
28
S.
S.
0

017700
001404

011602

001401
000717
012737

005737
001004
012746
004737
000207

TEST?

#MBIT5,8CIR

1l
644

1SET

SACS BIT

1 IF NE,

s TRY

TO RESET

1SAVE CIR CONTENT
$SACS RESET ?
+IF

€EQ,

RE TURN;

YES

31SACS NOT RESET 8y BIC
1ERROR S,
1ERROR COUNT

1SET SACS BIT

IN CIR

tEXECUTE MASTER CLEAR

1 IS SACS CLEAR AFTER MC

1COUNT LOOPS
1 IS 648 ZERO ?
'

1SETUP NEW LOOP COUNT
tPRINTOUT

MSGFLG

CALL

SACS BIT

]

664
MTE2,
$..WRT

SET

1SCOPE LOOP MARKER

LOPT?2

012416

IN CIR

]

011670
022452
005654

tERROR 6.
1ERROR COUNT

1,L0PT?
(PC)e

6448

1SCOPE LOOP MARKER

1SACS NOT RESET BY

0
TEST2

3s:

1EXECUTE MASTER CLEAR

1SAVE CIR CONTENT
s IF EQ, YES

3%
6.
6.

012416

177777

#8I70,8CIR

8CIR,RO

012250

1PRODUCE CLEAR CONTROLLER STATE

1SCOPE LOOP MARKER

2%:

011606

s TEST2 START MESSAGE
1SAVE #MT2S ONTO STACK
tINITIATE PRINTOUT

Ol1614

OR NOT?

1ERROR 4.
tERROR COUNT

oCIR
#81T710,8CIR

011646

IN CIR

1PRINTOUT

$SACS BIT NOTV SET

0
TEST?
18:

SACS BIT

1SAVE CIR CONTENT

8CIR,RO

104405

000000
000137

005327
177777
005737

(SP)

012250
000001

104406
000000
000137

LOPT2

MT12S
MT2s,
$..WRT

LOPT?2:

TEST

4,
4,

042777

104000

TEST

MSGFLG

OR NOT?

1SAVE #MTE2 ONTO STACK

(SP)
tRETURN

s INITIATE

TO CALLER

PRINTOUT

Cé

23400 Q¢8YTMP2AT01r 10 TRATEIT1ERE (AP RABRP4 16:02 PAGE 3o
284
285 012456
286 012462
287 012464

012464
012470
288 012474
012474
289 012502

290 0123504
012504
291 012512
012512
292 012520
293 012522
0123522
012524
294 012526
295 012532
012532
012540
012540
297 012546
298 012550
012550
012552
012554

301
302
303

305

307
309
310
311

312

012560
012562
012562
012570
012570
012576
012600
012600
012602
012604
012610
012610
012616
012616
012624
012626
012626
012630
012632
012636
012636
012640
012642
012646
012650
01265¢
012660
012660

012664
012666

005737
001004

TESTS.:

011670

012746
004737

022466
005654

052777
104000

000040

011502

052717

002000

011472

032777
001004

002000

011464

LOPTZ2A:;

012456

0427177

002000

011444

032777
001404

002000

011436

BIT
BNE
ERROR

1¢:

8IT
8EQ
ERROR
TRAP

000137
104000

012456

052777

002000

Oliala

032777

002000

011406

28:

15710

TRAP

005327
177777
005737
001401
000711
012737
005737
001004
012746

. WORD

JMP

012456

052777

104556
000000
000137

. WORD
JHP
SCOPE
INHSRQ
8IS

a1y
BNE
ERROR

104553

032777
001404

. WORD
JMP
CLR10
8IC

TST10

104552

000000
000137

CALL
MCLEAR
8IS
SCOPE
INMSRQ
8IS

TRAP

000000
000137

001004

BNE
WRITE
MOV

TST10

104551

000000

SBTTL

fs?

011366
002000

MCLEAR
8IS
7ST10

BIT
8EQ

011360

ERROR
TRAP

. WORD

012456

644

012640

177777
011670

022554

012640

JHP
LOOP
0eC
. WORD
TST
BEQ
B8R
MOV

TSTEND
1ST7

BNE
MOV

TEST

56Q &7
3

MSOHFLG

TEST

LOPT2A

CIR BIT

INHIBIT

SRQ

INTERRUPT

1PRIN OUT OR NOT?

MT2AS
MT2AS, -(SP)
$. WPT

1GIVE

®BITS, TR

1EXECUTE MASTER CLEAR

#8IT10,8CIR
8CIR
#8IT10,8CIR
1

TESTS START MSG
§ 20V02€0Qee
1 SAVE #MT2AS ONTO STACK

1PRODUCE

sINITIATE PRINTOUT
CLEAR

CONTR

STATE

1SCOPE LOOP ENTRY
$1SET SRQ INT INMIBIT

;

eeVO2EQOee

3
;:

*eVO2€O00ee
¢8VO2EQOee

eeVO2EO0Qee

1SET INMIBIT SRQ INTERRUPT
; ¢sVO2EQQse
+1IS BIT 10 IN CIR SET?2
1BRANCH

SET

¢eVO2EOQee

105,
105.

1BIT 10 IN CIR NOT SET
sERROR 105,
tERROR COUNT

;

8CIR
#1710,8CIR
8CIR
e8IT10,8CIR

tRESET BIT 10 IN CIR

;

6oVO2EQQee

;CLEAR AGAIN ?

;

s
8eVO2EOQQe

1BRANCH

¢eVO2EOQee

¢aVO2EQQee

0
TESTS

2
106.
106.
0

:BIT

TESTS

®1IT7:0,8CIR
8CIR
®BIT10,8CIR
3
107,
107.
0
TESTS

110,
110.
0

1,LOPT2A
(PCH.

1
644

tBRANCH IF 0.K.
tBIT 10 IN CIR NOT

¢sVO2EQQee

: 6eVO2EOQse
SET AGAIN ; ¢eVO2EQQee

sRESET BIT1O IN CIR BY MC
1EXECUTE MASTER CLEAR
sLOOK

IF DONE

¢eVO2EQOee

¢eV02EOQQes

tBRANCH IF 0.K,
t
1BIT10 IN CIR
NOT CLEAR;
1ERROR 110.

8eVO2EOQee
4eVO2EOQes

0oVO2EQQee

1LOOP

IN STEP?

1COUNT LOOPS
i

.+4
LOPT2A

¢eVO2EOQe
e

1 1S 64% Z2ERO ?
}
]

1SETUP NEW LOOP COUNT

1,64

tRETURN TO CALLER
sPRINTOUT OR NOT?

MSGFLG
MTE2A,

$1SET SRQ INT INMIBIT
; oeVO2EOOQee
1SET INMIBIT SRQ INTERRUPT
sLOOX IF SET AGAIN
;3 0eVO2EQQee

tERROR COUNT

TESTS

664

YES

tERROR 107,
1ERROR COUNT

MIT5,8CIR
8CIR
e8IT10,aCIR

10 NOT CLEAR
tERROR 106.
1ERROR COUNT

e
0eVO2EOQe

(SP)

$1SAVE OMTE2A ONTO STACK

SEQ 68

i QFOPNORAIRIY 10 TOABHITICRE 1RPeHARRP4 16:02 PAGE 3o 1
FECH
012672
012676

004737
00020

005654

6¢:

INITIATE PRINTOUT

yRETURN 10 CALLER

E6
D 1AGNO
TE
SY

SACS

314
315 012700
310 012704
317 012706
012706
012712
318 012716
012716
319 012724
012724
320 012732
31 012734
012734
322 012742
323 012744
324 012746
325 012750
012750
326 012754
012754
327 012760
012760
328 012766
012766
329 012772
330 012774
012774
012776
331 013000
332 013004
013004

333 013010
334 013012
013012
013014
335 013016
336 013022
013022
337 013026
338 013030
013030
013032
339 013034
340 013040
013040
341 013044
342 013046
013046
013050
343 013052
344 013056
345 013062
013062
346 013070
347 013072
348 013074
349 013076

SIC

SIAS

005737
001004

012746
004737

HleogACSO MAR
ILLHSG

TESTA:

011670
022570
005654

LOPTS:

000040

011260

052777
104000

000001

011252

0527177

000100

011244

000240

011230

017701

011226

042777

000400

032700
001404

010000

032701
001004
104412
000000
000137
032700
001004

104413
000000
000137
032701
001004

104414
000000
000137
005037
032777
001407
005227
000000
001371

.SBTTL

PAGE

TEST 4

TST

MSGF LG

WRITE

MT3S

BNE

CALL
MCLEAR
8IS
SACS
BIS
SCOPE
SIC
BIS
NOP
NOP

SEQ 69
TEST

LOPTS

MT3S,

$..WRT

(SP)

#B8ITS,8CIR
oB8ITO,8CIR
oB1T6,8S5MR

SACS

SIC

SIAS

ILLMSG CACS

tPRINTOUT OR NOT?
1START MESSAGE

TEST 4

1SAVE #MT3S ONTQ STACK
s INITIATE PRINTOUT

1EXECUTE MASTER CLEAR
!

1SET SACS BIT IN CIR
1 SCOPE LOOP MARKER
$1SEND INTERFACE CLEAR
31SEND INTERFACE CLEAR
sWAIT SOME MICRO SECONDS

NOP

017700

104407
000000
000137

16:02

MOV

052717

000240
000240

SAVCIR
MOV
SAVSMR
MOV
CLRS
8IC

011216

TST12

8Iv
8EQ
ERROR
TRAP

.MORD

012700

1¢:

020000

JMP

24:

000400

3%:

000400

020000

10¢:

011116

118

#8IT12,RO
1s
7.

1578

BIT
BNE
ERROR

O
TESTA
RO

#8IT18,RO
3%
11.
11.

TST8

EQ,

$ERROR COUNT

$SIAS SET

s IF NE, YES
:SIAS NOT SET

:ERROR

10.

;ERROR COUNT

;STATE

CHANGE

s IF NE, YES
tNO STATE CHANGE TO SIAS
;ERROR

11,

tERROR COUNT

TEST4

#B8IT8,R1
10¢
12.

+IF NE, YES
3CACS NOT SET BY SIAS

12.

.WORD
JMP
CLR

O
TESTA
118

elIT

MBIT13,85MR

TST13

:IF

8Iv
BNE
ERROR

i ILLEGAL MESSAGE

TESTA

.WORD

JMP

$SAVE SMR CONTENT
$1SAVE SMR CONTENT
" BIT
tRESET “STATE CHANGE

10.
10.

.WMORD
JHP

1 SAVE CIR CONTENT

s ILLEGAL MESSAGE
;ERROR 7,

ERROR
TRAP

TRAP

012700
013074

Rl
8IT13,R1

TRAP

012700

8SMR ,R1
8CIR
#B8IT8,8CIR

TST13
BIT

B8NE

012700

8CIR,RO

8SMR

8EQ
Ss
INC (PC).
.WORD
O
4as
BNE

:CACS SET

1ERROR 12,
tERROR COUNT

]
}

$SIAS RESET
1 IF EQ,
tWAIT
:
:

VYES

A WHILE

F6
MACRO ng&ogncgo MAR 84 16:02
PESH
WM RESTMERLEC SIC SIAS ILL

350 013100
013100
01._.02
013104

351
352 013110
013110
353 013114
013114
354 013120

013120
355 013124
356 013126
013126
013130
357 013132
358 013136
013136
359 013142
360 013144
013144
013146
361 013150
013154
363 013156
013156
365
367

368
369
370
371
372

373
374

375
376

377

013164
013164
013170
013170
013174
013176
n13176
v 13200
013202
013206
013210
013210
013216
013216
013222
013222
013226
013230
013230
013232
013234
013240
013240
013242
013244
013250
013252
013254
013262
013262
013266

013270

104415

000000
000137

012700

017700

011070

017701

011066

032700
001004

000400

104416
000000
000137

032701
001004

104417
000000
000137
104000

ERROR
TRAP
.WORD
P
SAVCIR
MOV

~AVSMR
el
7ST8

012700
64:

000400

012700
000040

017701

011016

032701
001404

000400

7¢:

011020

SCOPE
MCLEAR
8IS
SAVSMR
MOV

010000

eIrY

005737
001004
012746

011670

022647

013242

14,

s IF

NE,

YES

sNO STATE CH"'wsE TO SIAS n" CET
+urRROR

14,

;ERROR COUNT

TESTA

}

B8IT8,R1

15.
15.
o]
TEST4

: SCOPE LOOP MARKER

BITS,CIR
8SMR ,R1
R1
B8IT8,R!
as
16.
16.

0
TESTA

#8IT12.R0O

;EXECUTE MASTER CLEAR

$SAVE NEW SMR CONTENT
;SAVE SMR CONTENT
3sCACS RESET ?
s IF EQ,

YES

$CACS NOT RESET WITH MC
tERROR 16.
;ERROR COUNT
3

i1 SCOPE LOOP MARKER

#BIT76,95MR

;SEND INTERFACE CLEAR

8CIR,RO

TST12

1SAVE CIR CONTENT
;IS ILL. MESS' SET

BNE

1 IF NE,

TRAP

17.

ERROR

177777

$1STATE CHANGE

1 IF NE, YES
iCACS RESET WITH SIAS RESET
tERROR 15.
sERROR COUNT

032700
001004

013242

9SMR,R1
RO

ERROR
TRAP
.WORD
JMP

010762

644

1 SAVE CIR CONTENT
$1SAVE SMR CONTENT
$SAVE SMR CONTENT

8CIR,RO

BNE

017700

005327
177777
005737
001401
000621
012737

sCACS STILL SET

eIrT

000100

13,

0527717

012700

1ERROR

1ERROR COUNT

0
TESTA

TS18

JMP

. WORD
JMP
SCOPE
SIC
8IS
SAVCIR
MOV

104421
000000
000137

1SIAS NOT RESET

13.
13,

ERROR
TRAP

010770

S€Q

. WUrU

TST8

8s:

oB8IT8,RO
64
14,

817
BEQ

012700

8IT
BNE
ERROR
TRAP

0527717

104420
000000
000137
104000

Ss:

PAGE

17.

BEQ
BR

MOV
TSTEND

ToT

BNE

MOV

.+4
LOPTS

s COUNT LOOPS
'

1 IS 643 ZERO ?
i

;SETUP NEW LOOP COUNT
sPRINTOUT

MSGFLG

oMTES,

tERROR 1TM,
sERROR COUNT

0-1,648
3

664

rES

tNO ILL MESS TO SICS wW/0 SACS

.WORD
0
JMP TESTA
LOOP
-1,L0PT3
DeC
(PC).
.WORD
1

TSTY

(SP)

OR NOT?

{SAVE

OMTE3 ONTO STACK

IEC11

TEST

A DIAGNOSTIC
TEST

SACS

013274

013300

SIC

004737

000207

MACRO M1200

SIAS

ILLMSG

005654

30 MAR 84

CACS

664 :

16:02

CALL

PAGE

RETURN;

3/.2

$..WRT

SEQ

tRETURN

s INITIATE PRINTOQUT

TO CALLER

FESHS" RESTMINT TEne
379
380 013302
381 013306
382 013310
013310
013314
383 013320

384
385
386

387
388
389
390

391
392
393

013320
013326
013332
013334
013334
013340
013340
013344
013346
013350
013350
013352
013354
013356
013360
013360

394 013364
013364
395 013370
013372
397 013374
013374
013376
398 013400
399 013402
013402
013404
013406
013412
013414
013416
400 013424
013424
013430
013432
013436
013442

MACRO M1200

005737
001004

011670

012746
004737

022663
005654

052777
013701
104000

000040

052711

000100

032711
001004
011100

000100

024204

30 MAR

TESTS:

010656

LOPT3A:

16:02

.SBTTL
TST

BNE
WRITE

MOV
CALL

MCLEAR

8IS

042711

000100

SCOPE
CLRé
8IC

032711
001404
011100

000100

817

TST6

005327

005737
001401
000741
012737

013404

005737

011670

001004
012746
004737
000207

177777

644

005654

TESTS

8R1
BIT6,8R1
08176,8R1

8R1

LOOP
OEC
. WORD

-1,LOPT3A
(PC)
-1

B8R

34,

TESTS

1514

641

B8R

LOPT3A

TSTEND

T1ST

INT ENB
tPRINTOUT OR NOT?
t1START

MESSAGE

TEST

1 SAVE #MT3AS ONTO STACK
s INITIATE PRINTOUT

tMASTER CLEAR

tEXECUTE MASTER CLEAR

;GET CIR ADDRESS
1 SCOPE LOOP MARKER
:TRY TO SET INTERRUPT ENABLE
;IS

INT

s IF NE,

ENBL

SET

YES

:SAV CIR
1 INTERRUPT ENBALE NOT SET
;ERROR

33,

tERROR COUNT

s SCOPE LOOP MARKER
s TRY TO RESET INTERRUPT ENABLE
s IS

INT

ENABLE

RESET

tERROR

34,

tERROR COUNT

s COUNT LOOPS

;1S 648 ZERO ?

#-1,64%

$SETUP NEW LOOP COUNT

MSGFLG

sPRINTOUT OR NOT?

663

CALL
RETURN;

$. . WRT

OMTE3SA, -(SP)

sIF EQ, YES
s SAVE CIR
s INTERRUPT ENABLE NOT RESET?

. ¢4

BNE

MOV
668 :

33,

. WORD

MOV

022720

8R1
o8IT6,8R1
SR1
081T6,8R])
1s

23
8R1,RO
34,

BEG

013404

o8171S5,8CIR

BEQ
MOV
ERROR
TRAP

2%:

TEST

MMT3AS, -(SP)
$..WRT

8R1,R0O
313,

B8R

S€Q

LOPT3A
MT3AS

MOV
ERROR
.MORD

104442
000000
000740

TEST S
MSGFLG

CIR,R}

TRAP

1%:

MOV
SCOPE
SETé
8IS
1576
8IT
BNE

104441
000000
000752
104000

1777177

PAGE

;RETURN

TO CALLER

$SAVE OMTE3A ONTO STACK

s INITIATE PRINTOUT
;RETURN TO CALLER

13110 ?ég?N?N!E uP 1
STI

402
403 013444
404 013450
40% 013432

406

407
408
409
410
411
412

413

414
415
416
417
418

419

420
421
422

013452
013456
013462
013462
013466
013472
013476
013500
013502
013502
013510
013514
013520
013520
013526
013532
013532
013540
013544
013546
013550
013552
013552
013556
013562
013566
013566
013570
013572
013574
013576
013576
013600
013602
013604

423
424
425 013606
013606
426 013614
427 013620
428 013624
013624
429 013632

013632

430 013640
013640
431 013646
432 013652
433 013654

013656
435 013660
013660
013664
01370

30 MAR 84
MACRQ TM EOO
WITH STA
CHGE
TesT6:

005737
001004

011670

012746
004737

022734
005654

012746
012746
012746
104001
104000

024222
021334
000000

052777
012705
012704

000040
010000

010474

052777
105037

000100
177776

010456

052777
005037
005227
000000
001375

000100

010446

017700
017701
017702

010426
010424
010424

10s¢:

LOPTA

013574

013546

I6
16:02

.SBTTL

PAGE

TEST

SEQ
6

TEST

?g?FLG

WRITE
MOV
CALL

MTAS
t1TEST
mTasS, (SP)
$. . WRT
OVECTOR,0IECINT, #0
OVECTOR, (SP)
QIECINT, -(SP)
00, -(SP)

BNE

SETVEC

000000
000720
104000

START MESSAGE
1SAVE #MT4S ONTO STACK
s INITIATE PRINTOUT
3SET VECTOR

s SAVE #VECTOR ONTO STACK

1 SAVE OIECINT ONTO STACK
$1SAVE #0 ONTO STACK
1SETUP OVECTOR VECTOR

1 SCOPE LOOP MARKER

#8176.8CIR

$ENABLE INTERRUFT IN IEC-11A
1ENABLE INTERRUPTS

BIT6,ISMR
28

$SEND INTERFACE CLEAR

(PCH.
0
18

tWAIT FOR

8CIR,RO
8SMR ,R1
®I0R,R2
20.

$SAVE CIR CONTENT
$SAVE SMR CONTENT
1SAVE IOR CONTENT
iNO INTERRUPT TO SIC

LIF CC, INTERRUPT Ok
s ILLEGAL INTERRUPT
sERROR 21,
:ERROR COUNT

20.
0
TEST6

104425

CHGE

OR NOT?

sEXECUTE MASTER CLEAR
1SETUP INTERRUPT MASK
1SETUP RETURN ADORESS

80PS

WITH STATE

sPRINTOUT

BITS,aCIR
®8IT12,RS
034 ,R4

104424
000000
000724
103003

INTERRUPT

187

2l.
21.
0
TEST6

INTERRUPT

sERROR 20.
sERROR COUNT

$ SCOPE LOOP MARKER

#BIT8.RS
e7% R4

tEXECUTE MASTER CLEAR
;SETUP INTERRUPT MASK
sSETUP INTERRUPT RETURN ADDRESS

010352

8I76.8CIR

1ENABLE

000001

010344

o8170,8CIR

$SET SACS BIT IN CIR

052777
005037
005227
000000
001375

000100
013654

010340

BIT6,aSMR
63

tWALT FOR

017700
017701

010320
010316

052777
012705
012704

000040
000400
013702

010370

052777

000100

052777

017702

010316

#BI75,38CIR

S8:
64:

(PC)e.

0
St

8CIR,RO
SMR R
8I0R R

INTERRUPT

IN IEC

1SEND INTERFACE CLEAR

1 SAVE

:GAVE
:SAVE
1SAVE

ALL

INTERRUPT

IEC REGISTERS

CIR CONTENT
SMR CONTENT
10R CONTENT

11A

¢eVO3EQ2ese

TEST INTERRUPT WITH STATE CHGE

OTAGNOSTIC

013674
013674
013676
437 013700
438 01370¢
439 013704

440

aa)

013704
013706

013710

013712
013712
013714
013716
013722
013724
013726
442 013734
013734
013740
013742
013746
015752

MACRO M1200

30 MAR 84

ERROR

104426
000000
000661
103003

TRAP

7¢:

104427

005737
001004

012746
004737
000207

. WORD
BR
8CC

ERROR

TRAP

000000
000655

005327
177777
005737
001401
000665
012737

16;
16:02

. WORD
as:

644

013714

1777717

GE 39 1

5€Q

22.
22.
0

tNO INTERRUPT TO SIC AND SACS
tERROR 22,

8
28.
23.
0

sIF CC, INTERRUPT Ox
s ILLEGAL INTERRUPT
;ERROR 23,
:ERROR COUNT

1ERROR COUNT

TESTE

TEST6

1,LOPTa
(PC)H.
1

s COUNT LQOPS
:

6as

.04
LOPTA

013714

$sSETUP NEW LOOP COUNT

MSGFLG

669
MTESA,

023013
005654

$.
. WRT

664
:

]

1,648

011670

1 IS 648 ZERO
i

sPRINTOUT

(SP)

iSAVE
;RETURN

NOT?

#MTEQ

ONTO

STACH

s INITIATE PRINTOUTY

CALLER

I<6

PEEH A QESTMETALE crce PREERRUAFO01 1R0RAS 84 16:02 PAGE 40
444
445 013754
440 013760
447 013762

448

449

450
451

013762
013766
013772
013772
014000
014000
014006
014010
014010
014016

452
453 014022
454 014024
014024
455 014030

CHGE

INTERRUPT

052777

000040

010204

052777
104000

000001

010176

#8IT0,8CIR

052777

000200
010164

010170

BIT7,aSMR
8SMR
St

017700

010154

8CIR,.RO

tSAVE CIR CONTENT

017701

010152

8SMR,R1

$ SAVE SMR CONTENT
sSRE NOT SET

105777
100407

032777
001407

010000

010126

014060

017700

014064
463 014070
014070
014072
464 014074
465 014076
466 014102
014102
467 014110
468 014112
469 014114
470 014116
471 014120
014120
014124
014130
472 014134
014134
014136
473 014140
474 014142
014142
475 014150
476 014152
014152
014154

017701

462 014064

STATE

023027
005654

LOPTS:

104430

000000
000745

(SP)

#8IT7S,.8CIR

4.
2a.
0
TEST?

sSTART MESSAGE TEST 7
1SAVE #MTSS ONTO STACK
1 INITIATE PRINTOUT

tMASTER CLEAR
;EXECUTE MASTER CLEAR
sSET CONTROLLER ACTIVE STATE

:SET SACS BIT IN CIR
1 SCOPE LOOP MARKER
1SEND REMOTE ENABLE

tSRE SET ?
s IF MI, YES

sERROR 24.
sERROR COUNT

;1E €EQ, NO

010120

8CIR,RO

{SAVE CIR CONTENT

010116

8SMR,R1

{SAVE SMR CONTENT
1 ILLEGAL MESSAGE

25.
25.

014114

017700
017701
017702

010060
010056
010056

1%:

010076

10$:

9s:

0
TEST?
9
8SMR
o8IT14,aSMR
24
(PC)H»
0
10¢

8CIR,RO
8SMR ,R1
8I0R,Re
26.
26.
0

104432

000000
000705

104433

MT5S,
. WRT
$..

WITH SRAS

OR NOT?

040000

000000

LOPTS

sPRINTOUT

{RESET STATE CHANGE

032777
001014
005227
000000
001371

032777
001003

MSGFLG

8CIR
o8I78,8CIR
8CIR
e8IT12,3CIR

S5$:

104431

000000
000727
005037

1ST

MTSS

010134

460
461 014060

TEST

012746
004737

TEST?:

000400

459

011670

042777

457

458

TEST

005737
001004

014030
014034
014034
014036
014040
014042
014042
014050
014050
014056

456

LSBTTL

SEQ 75

TEST?

000400

010034

2s:

aCIR
#8I78,aCIR
33
27.
27.
o

: ILLEGAL MESSAGE

;ERROR 25

:ERROR COUNT

tWAIT A SHORT
3SRAS SET ?
s IF NE,

sSAVE
$SAVE
$SAVE
1SAVE
1 SRAS

[TMt

YES

ALL
CIR
SMR
IOR
NOT

IEC REGISTERS
CONTENT
CONTENT
CONTENT
SET

;ERROR

26,

;ERROR COUNT
i

$1STATE

CHANGE

s IF NE,

YES

+NO

STATE CHANGE
;ERROR 27,
tERROR COUNT

L 6

PESH* RESYMETARE croe TRTERRUAT WITH SRAS
00

477 014156
478 014160
014160
479 014166
480 014170
481 014172
482 014174

014174
483 014200
014200
484 014204
485 014206
486 014210
014210
014212
487 014214
488 014216
014216
489 014224
014224
490 014230
491 014232
014232
014234
492 014236
493 014240
494 014242
014242
495 014246
496 014250
497 014252
014252
014254
498 014256
499 014260
014260
500 014266
501 014270
014270
502 014276
S03 014300
014302
505 014304
014304
506 014310
014310
507 014314
014314
508 014320
509 014322
014322
014324
510 014326
511 014330
014330
014332
014334

30 MAR 84

000676

042777
000240
000240
000240

000200

017700

010004

017701
105701
100003

010002

010020

. WORD

042777

000400

032701
001403

040000

007760

TEST?

85MR
BIT7,95MR

&CIR,RO
8SMR,R1

TEST?
RO
RO
14
RO

32.
32.
0

TEST?

052777
104000

000040

007716

052777
000240
000240
000240

000200

007710

017700

007674

017701

007672

032700
001003

010000

7¢:

#B8ITS,aCIR

0B8I77,85MR

8CIR,RO
8SMR,R1

eB8IT12,RO

ERROR

104550
000000
000612

TRAP

.WORD
84%:

014332

644
:

LOoP
otC
.WORD
ST

{+SAVE CIR CONTENT
1 SAVE CIR CONTENT

;sSAVE SMR CONTENT

tSAVE SMR CONTENT
1GRE RESET ?

;SRAS RESET

o81I78,RO

104440
000000
000636

sWAIT SOME MICRO SFCONDS

31.
31.
0

000400

SRE

sIF PL,

tRESET

64
30,
30.
0
TEST?

8CIR
oBIT8,aCIR

6s:

5€EQ

981IT14,R1

104437
000000
000646
000300

005327
177777
005737

PAGE

B8R
CLR?
8IC
NOP
NOP
NOP
SAVCIR
MOV
SAVSMR
MOV
1578
8PL
ERROR
TRAP

104436

000000
000657

032700
001004
000300

16:0°

104,
104,

0
TEST?

1,LOPTS
(PC)H.

1
64

YES

$SRE NOT RESET
;ERROR 30,

tERROR COUNT

sRESET STATE CHANGE

:IF EQ,

YES

1 SRAS NOT RESET

sERROR 31.

;ERROR COUNT

:
i

;STATE CHANGE SET

s IF NE, YES
tREBUILD ORIGINAL CONTENT

iNO STATE CHANGE
tERROR

32,

;ERROR COUNT

sMASTER

CLEAR

:EXECUTE MASTER CLEAR
1 SCOPE LOOP MARKER
$SEND REMOTE ENABLE
tWALT

SOME

MICRO SECONDS

$SAVE CIR CONTENT
:SAVE CIR CONTENTY
1 SAVE SMR CONTENT
$ SAVE SMR CONTENT
s ILLEG., MESSAGE ?
s IF NE, YES
tNO ILLEG. MESSAGE

tERROR 104.
tERROR COUNT

;COUNT LNOPS
1 IS 648 Z2ERO ?

M6
IEC11

TEST

A OTAGNOSTIC
TEST

STATE

014340
014342
014344
512 014352
014352
014356
014360
014364
014370

CHGE

001401
000613
012737

005737
001004
012746
004737
000207

MACRO M1200
30 MAR 84
T WITH SRAS
INTERR

1777717

014332

PAGE

. o4
LOPTS

BNE

MSGFLG
664
MTES, -(SP)

MOV

664

40 2

BEQ
B8R

MOV
TSTEND
1S7

011670
023113
005654

16:02

CALL

RETURN;

#-1,648

$..WRT

SEQ

i
3

;SETUP NEW LOOP COUNT
tPRINTOUT OR NOT?

;RETURN

1 SAVE OMTES ONTO STACK
;s INITIATE PRINTOUT

CALLER

IEC11-A OIAGNOSTIC
&8
IOR DATA TEST

MACRO M1200

30 MAR

16:02

PAGE

TEST

S14
515 014372
516 014376
517 014400
014400
014404
518 014410
519 014412

520
521
522
S23
524
525
526

014412

014420
014424
014426
014430
014432
014434
0144 56
014436
014440
014442

014444
014446
014452
014454
014454
014456
014460
014464
014466
014470
532 014476
014476
014502
014504
014510
014514

005737
001004

011670

012746
004737
104000

023127
005654

052777
013704

000040
024212

005003
110314

TESTS:

007564

10
LOPTSA:

CALL
SCOPE

MCLEAR

8IS

MOV
13:

011402
020302
001403

LSBTTL

1S7
BNE
WRITE
MOV

CLR

104457

000000
000753
005203
020327
001365

005327
001750
005737
001401

000751
012737
005737
001004
012746
004737
000207

TEST 8
MSGFLG

108

IOR DATA TEST
tPRINTOUT OR NOT?

MTSAS
OMTSAS, -(SP)
$..WRT

6 [75,8CIR
IOR,R4

R3S
R3, 8R4
R4 ,R2
R3,R2
28
47,
47,

0
TESTS
R3
R3, 9400

28:

000400

644%:

014456

001750

1000, ,LOPTSA
(PC)e
1000.

t4s

.48

LOPTSA

01000. ,64%

014456

011670
023165
005654

664
:

MOV
CALL

RETURN;

SA
MSGFLG
668
OMTESA, -(SP)
. WRT
$.

1START MESSAGE

TEST 8

1 SAVE OMTSAS ONTO STACK
s INITIATE PRINTOUT

sEXECUTE MASTER CLEAR

1GET IOR AODRESS
s PREPARE

DATA

(WRITE PATTERN INTO IOR
sREAD BACK

PATTERN FROM

sPATTERN EQUAL

IOR

s IF EQ, YES
;OATA CHECK IN IOR
;ERROR 47,

tERROR COUNT
;RESTART TEST
;BUILD NEXT PATTERN
sALL DONE ?
1IF NE, NO

; COUNT LOOPS
:

;IS 648 ZERO ?
i

;SETUP NEW LOOP COUNT

tRETURN TO MAINPROGRAM
sPRINTQUT OR NOT?

s SAVE

OMTESA ONTO STACK

s INITIATE PRINTOUT

;RETURN TO CALLER

MACRO M1200

30 MAR B84

16:02

INTERRUPT WITH GTS AND SIC

S%6
S53°
538
539

012746
012746
012746
104001
005737
001004

TEST9:

024222
021334

000000
011670

05e71?

000040

007424

052717

000001

052777

000100
024204

LOPT6:

&7
J

MOV

80, -(SP)

TsTY

MSGFLG

MOV
CALL

MT6S, (SP)
f..WRY

MOV
MOV

MTMMCLEAR

OVECTOR, -(SP)
QIECINTY, -(SP)
1

LOPTE
MT6S

8IS

MBITS5,8CIR

O007416

8IS

MI170,8CIR

007412

MBIT6,85MR
CIR,RO
8RO
#BI78,.8R0
14

#B8IT8,8R0

SACS

SIC

032710
001775
104000

000400

042710

000400

8IS
MOV
7578
8IT
B8EQ
SCOPE
CLRS
8IC

032710
001775

000400

BIT

042710

000400

CLRS
BIC

8RO
#B8178,8R0

052777

000004

8IS

MB1I72,85MR

1S19
8IT7

OSMR
®BIT9,8SMR

005037

032777

001012
005227
000000
001371

014652

001000

1¢:

TStT8

8tQ
GTS

007352

007340

es:

3s:

017700

007322

017701

007320

000400

017700

007276

017701

007274

104444

8RO
#B81I78,8R0

INTERRUPT WITH GTS AND SIC
$1SET VECTOR
; oeVO3EOQL2ee

$1SAVE OVECTOR ONTO STACK
1SAVE @IECINT ONTO STACK

1SAVE #0 ONTO STACK

1SETUP @VECTOR VECTOR

sPRINIQUT OR NOT?

1START MESSAGE TEST 9

1SAVE #MT6S ONTO STACK
tINITIATE PRINTOUT

tMASTER CLEAR

tEXECUTE MASTER CLEAR
$1SET CONTROLER ACTIVE

1SET SACS BIT IN CIR

1SEND INTERFACE CLEAR
1GET CIR ADORESS
tWALIT FOR STATE CHANGE
1PRODUCED BY SIAS
1SCOPE LOOP MARKER
tRESET STATE CMHANGE

8RO

IWAIT FOR SIAS E*TM

10eVO1EQLee

.-4

’

10oVO1EQlee

1RESET STATE CHANGE
1GO

TO STAND BY

:1GO TO STAND BY

8NE

NE
SAVCIR

!
1SAVE CIR CONTENT

(PC)e.
0

:
3

ERROR

SSMR ,R1
55.

1SAVE CIR CONTENT
tSAVE SMR CONTENT
1 SAVE SMR CONTENT
1NO CSBS

. WORD
B8R

0
TEST9

1ERROR COUN
tRESTART TEST

1578

8IY
BNE

SAVCIR

oCIR,RO

35.

8RO

MBIT8,8R0
St

MOV
SAVSMR

8CIR,RO

TRAP
.WORD
B8R

36.
0
TEST9

MOV
ERROR

8SMR,R1
36.

19eVO1EOQL
s

STATE

tWAIT FOR CSBS

INC
. WORD

STATE

$1SEND INTERFACE CLEAR

TRAP

032710
001007

000000
000677

CLR

MOV
SAVSMR
MOV

104443

000000
000711

SEQ

TEST 9
TEST STATE CHGE
OVECTOR,OIECINT,®0

BNE
WRITE

023201
005654

.SBTTL
SETVEC

EMT

012746
004787

013700

566

PAGE

1ERROR

35,

sOID CSBS BRING STATE

1IF NE,

CHMANGE

YES

1SAVE CIR CONTENT

1SAVE CIR CONTENT
$1SAVE SMR CONTENT

1 SAVE SMR CONTENT
tNO STATE CHANGE TO (CSBS
1ERROR 36,
1ERROR COUNT
IRESTART TEST

OIAGNOSTIC
TEST

STATE

014720
014720
014724
014726
014726
014734
014740
014740
014744

MACRO M1200
CHGE

042710
104000

000400

052777
005037

000004
014750
010090

014746

014754

017700

007224

017701

007222

577 014760
014760
578 014764
014764
014766
014770
014772
014774
014776
015000
015000
015006
015012
015016
015020
015022
015024
015026
015026
015032
015032
015036
015036
015040
015042
015046
015052
015054
015060
015062
015062
015066
015066
015072
015072
015074
601 015076
015102
603 015104
604 015106
605 015112
606 015116
015116

007252
64:

7¢:

000002
015022
000001

007200
9s:

108

000000
001372

017700

007152

017701

007150

014516

024206

119

000001}

007116

017701

007114

052717

BNE
INC

LHMORD
BNE
SAVCIR
MOV
SAVSMR
MOV
ERROR

124%:

100000
015200
000100

007060

MB|IT2,85M
74
8RO
#8I112,8R0

5eQ 80
1RESET

STATE

CHANGE

1SCOPE LOOP MARKER

1FORCE ILLEGAL MESSAGE
1GO TO STAND BY
1WAIT

FOR

ILLEGAL

O
64

8CIR,RO
OSMR ,R1
37.
37.

INC
SCoPT
CLR8
TCA
8IS
CLR

B8EQ

114

TEST9

8RO
MBIT1,95MR
10¢

1SAVE CIR CONTENTY

1 SAVE CIR CONTENT
1 SAVE SMR CONTENT
1SAVE SMR CONTENT
iNO ILLEGAL MESSAGE

tERROR 37,
1ERROR COUNT

tRESTART TESTO
sPOINT TO CIR MIGH BYTE

1SCOPE LOOP MARKER

tRESET INTERRUPT CONDITIONS
; TAKE CONTROL ASYNC
;s TAKE CONTROL ASYNC

tWAIT FOR CACS

cHP8

#1,8R0

INC
.MORD
BNE
SAVCIR
MOV
SAVSMR
MOV
ERROR

(PC)»
O
94

]

.WORD

8CIR,RO
8SMR
.
1
40,
40,

JMP TESTO

$1SAVE CIR
1SAVE CIR
1SAVE SMR
1SAVE SMR
1 TCA DOES
{RESTART

1ERROR COUNT
TEST9

1GET ADDRESS OF SMR
1ADDRESS MIGH BYTE OF
tCACS SET AGAIN ?
1 IF EQ, YES

ERROR

41,

1 TCA WITH CSBS

O
TEST9

tRESTART

8SMR ,R1

8RO
o8IT1S5,.RS
®15¢,R4

B8176,aCIR

¢eV0O2EQQee

tERROR 40.

SMR,R1]
R}
o1,8R1
124

8CIR,.RO

CONTENT
CONTENT
CONTENT
CONTENT
NOT PRODUCE STATE CHANGE

MOV
INC
cMPB
BEQ
SAVCIR
MOV
SAVSMR

LHORD
JMP
SCOPE
CLRB
MOV
MOV
INTENB
8IS

MESSAGE

as
(PC).

TRAP

014516

8RO
#178,8R0

LHORD

MOV

104451

104000
105010
012705
012704

IST12
81T

TRAP

017700

000000
000137

CLRS
8IC
SCOPE
GTS
81S
CLR

B8R

105010

104450
000000
000137
013701
005201
122711
001410

PAGE

TRAP

104445

000000
000652
005200
104000

0527717
005037
122710
001413
005227

16:02

INTERRUPT WITM GTS AND SIC

032710
001012
005227
000000
001372

574 014750
575 014752
S76 014754

30 MAR 84

SMR

tSAVE CIR CONTENT
tSAVE CIR COMTENT
1SAVE SMR CONTENT

1SAVE SMR conreage
1ERROR 44
.

S NOT PRODUCE CACS

1ERROR COWNT
TEST

1SCOPE LOOP MARKER
tRESET

INTERRUPT

CONDITIONS

1SETUP INTERRUPT MASK
1SETUP INTERRUPT RETURN ADDRESS

1ENABLE
(ENABLE

TEC INTERRUPT
INTERRUPT IN IEC

11A

13140 PROGNESAEE cnce SHFERAUBFORTAOCTERAY 48402
607 015124
608 0151
015130
609 015134
610 015142
611 015146
612 015150
ol3 015152
614 015154
015154
615 015160
015160
616 015164
015164
617 015170
015170
015172
618 015174
619 015200
620 015202
015202
015204
621 015206
622 015212
015212
623 015220
624 015224
015230
626 015232
627 015234
628 015236
629 015240
015240
630 015244
015244
631 015250
015250
632 015254
015254
015256
633 015260
634 015264
015204
635 015272
636 015274
015274
637 015300
015300
638 015304
015304
639 015310
015310
015312
640 015314
641 015320
015320
642 015326

105037

177776

017700

007050

113777
005037
005227

024216
015150

007050
18¢:

000000
001375

144

01770

007032

017700

007020

017701

007016

BNE
SAVIOR
MOV

SAVCIR

MOV
SAVSMR
MOV
ERROR

104452

000000
000137

103004

TRAP

014516

104453
000000
000137

014516

052777
005037
122711

000004
015234
000012

001415
005227
000000
001372

006766

168

17¢:

188
006740

017701

006736

017702

006736

032777
001012

15%:

ERROR

SAVIOR
MOV
ERROR

,WORD

004000

017701

006702

017702

006702

006712

19¢:

JMP
TST11
8ry
BNE
SAVCIR
MOV
SAVSMR
MOV
SAVIOR

000040

006656

204
:

sALLOW SYSTEM INTERRIPTS
$SAVE CIR CONTENT
1SAVE CIR CONTENT
1 ADORESS TALKER !
tWAIT FOR INTERRUP!
'
'
'

8SMR,R1
42,

1SAVE TOR CONTENT
$1SAVE TOR CONTENT
1SAVE CIR CONTENT
;SAVE CIR CONTENT
1SAVE SMR CONTENT
1SAVE SMR CONTENT
iNO INTERRUPT TO TALKER ADORESSING

O
TEST9

tRESTART

8IO0R,R2
8CIR,.RO

42.

164

43,

1ERROR 42,

tERROR COUNT
TESTO

s IF CC, INTERRUPT 0K
s ILLEGAL INTERRUPT
1ERROR 43,

1RESTART

tERROR COUNT
TEST

1GOTO STANDBY STATE
1GO TO STAND 8Y
sWAIT

FOR

CSBS

AND

CIR
CIR
SMR
SMR

CONTENT
CONTENT
CONTENT
CONTENT

3
3

'
3

8SMR ,R1

$SAVE
$SAVE
1SAVE
1 SAVE

3I0R,R2
44,

sNO CSBS AND TACS

44,

TEST9
aCIR

e8IT11,aCIR
204
&CIR,.RO

aSMR
.
1

$SAVE
;SAVE

IOR CONTENT
IOR CONTENT

tRESTART

1ERROR 44,
tERROR COUNT
TESTO

+IS NO LAC SET
1 IF NE,

1SAVE
1SAVE
$1SAVE
$1SAVE

1 SAVE

YES

CIR
CIR
SMR
SMR

CONTENT
CONTENT
CONTENT
CONTENT

IOR CONTENT

4S5,

.WORD
JMP

O
TEST9

tRESTART

8IS

o8I75,8CIR

MCLEAR

LooP

8I0R,R2
45,

1,L0PTE

TACS

ERROR
TRAP

014516

8CIR, RO
TALKER,8IOR
14
(PC)H.
O
138

SEQ A1

$1SAVE IOR CONTENT
1 "NO LAC' NOT SET

MOV

104455

9ePS

.WORD
O
JMP TESTO
GTS
8IS
8IT2,8SMR
188
CLR
cHPB
012,8R1
19¢
8eQ
INC
(PC).
.MORD
O
BNE
178
SAVCIR
MOV
8CIR,RO
SAVSMR

MOV

014516

006704

052777

8ccC

TRAP

017700

000000
000137

.MORD
JMP
TRAP

017700

104454
000000
000137

CLR8
SAVCIR
MOV
MOve
CLR
INC
.WORD

PAGE 42 2

tERROR 45,

1ERROR COUNT
SUBTEST

tRESET IEC 11A
1EXECUTE MASTER CLEAR

E/
MACRO M1200
30 MAR 84 16:02
INTERRUPT WITH GTS AND SIC

005327
177777
005737

015330

000137
012737

014552
177777

012746
104002

024222

005737
001004
012746
004737
000207

011670

[

‘-

001402

015376

023274
005654

644 :

PAGE 42 3

DEC

1
644

JMP
MOV

LOPT6
4-1,648

MOV
EMT

OVECTOR, -(SP)
2

B8EQ
015330

REMVEC

TSTEND
TST

668 :

(PC)H.

. WORD
TS7

BNE
MOV
CALL
RETURN;

5EQ 82

1 COUNT LOOPS
1 IS 648 ZERO ?

.+6

@VECTOR

6
MSGFLG
664
MTEG, -(SP)
$..WRT

'
]

1SETUP NEW LOOP COUNT
sREMOVE

VECTOR

o6VO3EQ2ee

§SAVE OVECTOR ONTO STACK
tRESET @VECTOR VECTOR

1END OF SUBTEST

tPRINTOUT

OR NOT?

1SAVE #MTE6 ONTO STACK
tRETURN

s INITIATE PRINTOUT

TO CALLER

F7
MACR
M 1?2?ER80 MAR 84 16:02
I3 RESEBRIAC TRANSFER
WITH
uPT

646
647 015400
015400

015404
015410
015414
648 015416
649 015422
650 015424
015424
015430
651 015434
015434
652 015442
015442
653 015450
015450
654 015456
015456
655 015464
656 015466
015466
657 015474
015474
658 015502
659 015504
015504
660 015512
015512
661 015520
662 015522
015522
663 015530
015532
015532
665 015540
666 015544

667
668

669
670
671

015544
015552
015554
015556
015560
015562
015562

672 015566
015566
673 015572
015572
015574
674 015576
675 015602
676 015610
015610
677 015616
015616
678 015624
679 015626

012746
012746
012746
104001
005737
001004

TEST10:

024222
021334
000000

.SBTTL

SETVEC
v

PAGE 43

SEQ 83

TEST 10 TEST DATA TRANSFER WITH INTERRUPT
OVECTOR,#IECINT,#0
§
1SET VECTOR
OVECTOR, -(SP)
1SAVE #VECTOR ONTO STACK
®IECINT, -(SP)
1SAVE @TECINT ONTO STACK

1SAVE #0 ONTO STACK

:O.-(SP)

1SETUP #VECTOR VECTOR

011670

MSGFLG

1PRINTOUT

012746
004737

023310
005654

MT7S
MT7S, -(SP)
$..WRT

1START MESSAGE

052717

000040

006542

052777

000001

006534

052777

000100

006530

LOPT?

LOPT7:

8IT5,8CIR
BITO0,8CIR

032777
001774

000400

042777

000400

006510

032777
001774

000400

006502

#8I76,85MR
8CIR
o8IT8,aCIR
138
8CIR
oB8ITS8,aCIR
8CIR
OBéTB.SCIR

006520

13s:

042777

000400

006472

8CIR
o8IT8,aCIR

052777
104000

000004

006466

0BIT2,89S5MR

032777
001774

001000

006456

052777
005037

asMR
08179,8SMR
1s

000001
015556

032777
001013
005227
000000
001371

010000

017700

006416

017701

1s:

006446

006432

28:

08IT0,85MR
33
aCIR
81712,8CIR

OR NOT?

TEST

1SAVE OMT7S ONTO STACK
1 INITIATE PRINTOUT

tMASTER

CLEAR

tEXECUTE MASTER CLEAR
1SET CONTROLLER ACTIVE STATE
1SET

SACS BIT

IN CIR

1SEND INTERFACE CLEAR

tWALIT FOR
H

tRESET
;WAIT

sRESET

STATE

CMHANGE

INTERRUPT CONDITIONS
FOR

SIAS END

STATE

;0eVO1EOlee

CHANGE

;60VO1EOLse

;¢0VO1lEOQlee

GO TO STANDBY STATE
GO TO STAND BY
$SET SCOPE LOOP MARKER

iWAIT
:

s TAKE
i

sWAIT

FOR

CSBS

CONTROL

FOR

SYNCR.

ILLEGAL

MESSAGE

3s:

(PC)»
0
2%

8CIR,RO

006414

8SMR ,R1

46,

104456
000000
000137
042777

015400
177400

052777
032777
001774

46.

80VO3EQ2e

stSAvE CIR CONTENT
$SAVE

CIR CONTENT

1 SAVE SMR CONTENT
;1SAVE SMR CONTENT

tNO ILLEGAL MESSAGE
;ERROR 46.

006374

0
TEST10
#177400,8CIR

tRESTART

000002

006370

OBIAL.SSHR

000400

006360

;s TAKE
s TAKE
tWAIT

tRESET

tERROR COUNT
SUBTEST

INTERRUPT CONDITIONS

CONTROL ASYNCR.
CONTRHOL ASYNC
FOR STATE CMHANGE

tCACS SET

7R0endGp AR 80 16:02 PAGE 45 1
DACD 1TAC
PBR
rmnse
i QEA
FESH
680
681
682
683
684
685

686

687
688
639
690

691
692
693

694

695
696
697
698
699

015626
015634
015636
015640
015646
015652
015656
015656
015662
015662
015670
015674
015702
015706
015710
015712
015714
015714
015720
015720
015724
015724
015730
015730
015732
015734
015740
015742
015742
015744
015746
015752

700
701
702 015754
703 015762

015766

705 015772
706

707
708
709
710

711

712
713
714

715
716

717
718

015772
015776
015776
016004
016010
016016
016022
016024
016026
016030
016030
016034
016034
016040
016040
016044
016044
016046
016050
016054
016054

032777
001774
104000
042777
012705

000400

006352
006336

012704

177400
100000
015740

017700

006322

052777

000100
177776

105037
113777
005037
005227

024220
015710

BIY
8EQ
SCOPE
8IC
MOV
MOV

SAVCIR
MOV
INTENB
8IS
CLRB

006314

006310

MOvB

7%:

000000
001375

8s:

CLR

B8IT8,95MR

#177400,8CIR

®8IT15,RS

9% R4

8CIR,RO
#8IT6,8CIR
80PS
LISTNR,BIOR
8s
(PC)He.
0
78

017700

006264

8CIR,RO

017701

006262

8SMR,R1

017702

006262

8I0R,R2
50.
50.
0

104462

000000
000137

103004

015400
9s:

104463

000000
000137

104000
042777
012705
012704
017700

015400

177400

100000
016054

006222

10¢:

TEST10

108
S51.
51.

0
TEST10
0177400,8CIR

#8IT15,RS
0148 R4

006206

aCIR,.RO

SEQ B4

+IF €EQ, NO
1SET SCOPE LOOP MARKER
tRESET INTERRUPT BI'1SETUP INTERRUPT MASK
1SETUP INTERRUPT RETURN ADDRESS
1SAVE CIR CONTENT
1SAVE CIR CONTENT
1ENABLE IEC-INTERRUPT
tENABLE INTERRUPT IN IEC 11A
sENABLE SYSTEM INTERRUPT
$SEND LISTENER ADORESS
3

tWAIT FOR INTERRUPT
3
]

$1SAVE CIR CONTENT
1 SAVE CIR CONTENT
1SAVE SMR CONTENT
1 SAVE SMR CONTENT
1SAVE IOR CONTENT
3 SAVE IOR CONTENT
:NO INTERRUPT TO LISTENER ADDRESSING
tERROR S50,
sERROR COUNT

tRESTART SUBTEST
1 IF CC. INTERRUPT OK

s ILLEGAL

tRESTART SUBTEST
1SET SCOPE LOOP MARKER
1CLEAR INTERRUPT BITS
$3SET INTERRUPT MASK
1SETUP INTERRUPT RETURN
$SAVE CIR CONTENT
$SAVE

CIR CONTENT

tENABLE

052777
105037
113777
005037
005227
000000
001375

000100
17777¢
024216
016024

017700

006150

aCIR,RO

017701

006146

ASMR ,R1

017702

006146

8I0R,R2
53.
58.

s SAVE

TEST10

tRESTART

o8116,8CIR
84PS

006200

006174

TALKER,8I0R

128
(PC)H.
0
11$

104465

000000
000137

052777

015400
000004

006124

14¢%:

oBITC,8SMR

INTERRUPT

1ERROR S1.
1ERROR COUNT

$ENABLE

IEC INTERRUPT
INTERRUPT

IEC

11A

tENABLE SYSTEM INTERRUPTS
s ADDRESS TALKER AGAIN
iWAIT FOR INTERRUPT
i
3
H

CIR CONTENT
CIR CONTENT
E
SMR CONTENT
1 SAV
1 SAVE
1 SAVE

$ SAVE SMR CONTENT
1SAVE IOR CONTENT
IOR CONTENT

iNO INTERRUPT

1O TALKER ADDRESSING

tERROR 53,
tERROR COUNT
SUBTEST

1GOTO STANDBY STATE
;GO TO STAND By

AR B4 16:02 PAGE 43 2
C
tRT: nAQpP
ERCHP1H!IA
rmansrBR
HEEE .3 QESY
’19 016062
016062
720 016070
21 016072
016072
722 016100
T2 016102
016102

724 016106
016106

725 016112

oié6l11e

726 016116
016116

016120
727 o16122
728 016126
729 016134
016134
730 016142
731 016144
016144
732 016152
016152
733 016160
734 016164
735 016166
736 016170
737 016172
016172
738 016200
739 016202
016202
740 016206
016206
016212
016212
742 016216
016216
016220
743 016222
744 016226
016226
745 016232
746 016234
147 016240
748 016242
749 016244
016244
750 016250
016250
751 016254
016254
016256
752 016260
753 016264
016264

15¢:

1519

-39
8EQ

8SMR
®MBIT9,85MR
159
OSMR
MB|IT12,95MR
168

0327177
001774

001000

032777
001012

010000

017700

006076

017701

006074

8SMR
.
1

017702

006074

8I0R,R2
52
S2.
0

104464
000000
000137

000116

8CIR,RO

TEST10

006056

032777
001774

100000

006042

042777

100000

006032

042777
105377

000400
006026

006024

005227
000000
001375

BIY
BNE
SAVCIR

006106

015400
17772727

112777

T1ST12

164
17s:

8CIR
#BIT15,8CIR
178

8CIR

#MBIT15,8CIR
8CIR
e8IT8,8CIR
8I0R
18

005776

8CIR,RO

017701

005774

8SMR ,R1

017702

005774

8IO0R,R2
54,
54,

017702
000302
120227
001411
000302

005760

TEST10

017701

005736

017700

005730

@I0R,R2

R2
R2,08377

000377

208

8SMR R1

8CIR,RO

SS.
55.
0

104467

000000
000137

015400

032777

100000

TEST10

005712

20s:

1 IF €EQ, NO
$SAVE CIR CONTENT
1SAVE CIR CONTENT
1SAVE SMR CONTENT
$SAVE SMR CONTENT
1SAVE IOR CONTENT
s SAVE IOR CONTENT
1NO LACS
tERROR S2.
tRESTART

aCir

e8IT1S,aCIRr

1ERROR COUN
SUBTEST

1SEND A DATA BYTE
sOATA ACCEPTED ?

1 IF EQ, WAITY
sRESET DATA ACCEPTED
tRESET STATE CHANGE
;SEND NEXT DATA B°TE
tWAIT

s IF EQ,

017700

tLACS SET ?

19¢

100000

015400

1WALIT FOR CSBS

8CIR
B8IT15,8CIR

006004

SEQ 85

(PC)s
0
18¢

032777
001412

104466
000000
000137

H /7

SHORT

TIMt

;0eVO1EQ2ee

]

:DATA ACCEPTED ?
NO

s SAVE CIR CONTENT
$sSAVE CIR CONTENT

1SAVE

;SAVE
$SAVE
;SAVE
sDATA

SMR CONTENT

SMR CONTENT
IOR CONTENT
IOR CONTENT
ACCEPTED TO SECOND DATA BYTE
1ERROR 5S4,

;ERROR COUN
sRESTART SUBTEST

sGET IOR CONTENT
$SAVE IOR (ONTENT
4

s10ATA Ox

1 IF €Q, YES
iNO, REBUILD DATA PATTERN READ
1SAVE SMR CONTENT
$SAVE SMR CONTENT
$SAVE CIR CONTENT
1SAVE

CIR CONTENT

1DATA CHECK ON IEC TALKER OR LISTENER
tERROR 5SS,
1ERROR COUNT
sRESTART

1SECOND

SUBTEST

"DATA ACCEPTED

PEEH
1S QESTMBRIAC rranseE
54
755

756

58
759
760
761
762

763

7€4
765

766
767

768

016272
016274
016274
016300
016300
016304
016304
016310
016310
016312
016314
016320
016320
016324
016326
016332
016334
016336
016336
016342
016342
016346
016346
016350
016352

I7
cfi?tfi‘ffi?snéfip?m 84

001012

BNE

017700

0V5704

017701

005702

017702

005702

104470
000000
000137

015400

017702

005666

122702
001411

000376

000302
000302

005642

017701

005640

000137

SAVCIR
MOV
SAVSMR

MOV
SAVIOR
MOV
ERROR

2l1s:

TRAP
MORD
JHP
SAVIOR
MOV

SWAB

cMPB
BEQ

SWAB

017700

104471
000000

16:02

015400

SAVCIR
MOV
SAVSMR
MOV
ERROR

TRAP
.WORD

JMP

PAGE

2l
8CIR,RO
8SMR R}
SIOR,R2
S6.

56.
O
TEST10

8I0R,R2

56Q A5

sIF NE,

1SAVE
1SAVE
1SAVE
1SAVE
1SAVE
1SAVE

VES

CIR
CIR
SMR
SMR
IOR
IOR

CONTENT
CONTENT
CONTENT
CONTENT
CONTENT
CONTENT

1NO SECOND
OATA ACCEPTED
1ERROR 56.
1tERROR COUNT
tRESTART

SUBTEST

1GET SECONFO DATA BrTE
1SAVE IOR CONTENT

+IF EQ, YES
sNO, REBUILD PATTERN READ
:SAVE CIR CONTENT

0376 ,R2
TST10A
8CIR,RO

S8SMR R
57.

57.
O

TEST1O

3 IS SECOND DATA BYTE

$1SAVE
1SAVE
$SAVE
tOATA

CIR CONTENT
SMR CONTENT
SMR CONTENT

CHECK N SECOND BYTE
;ERROR 57,
tERROR COUNT
sRESTART SUBTEST

;6eVOlEOPee

J7
IEC11 A DIAGNOSTIC

TEST

10A

RANDOM

MACRO M1200

30 MAR 84

TALKER AND LISTENER DATA

770

PAGE 44

.SBTTL

mmn
772

I
H

;;g

778

THIS

TEST

SEQ 87
10A

TEST CNA NOT BE

RANDOM

TALKER AND LISTENER DATA

CALLED SEPARATELY,

SETUP TO BRING THE BUS INTO THIS STATE.

DUE

THE

TESTY

NECESSARY

77?7
778 016356

005037

780 016364

005237

779 016362

781 016370
782 016374
783 016400

005046

016604

TST10A:

024204

105077
005337
104000

005610
024204

012704
042777

016474
177400

005564

016420

052777

000100

005556

789 016432

011677

005554

791 016442

005227

016450

017700

784 016402

785 016406
786 016412
787 016420

788 016426
79C 016436

792 016444
793 016446
794 016450

016454
016460

795 016464

016464
016466
796 016470

797

16:0TM

TEST

016474

798 016476
016476
016500
799 016502

800 016506

801 016512
802 016514
803 016516
016516
016520
016522
804 016526
016526
016532
016536
805 016542
806 016544
016544
016546
807 016550
808 016554
016554

016560

012705

105037

005037

016444

000000
001375

017701
017702
104474
000000
000137
103004

104475
000000
000137

017703

105003
000303

020316
001002
000137
017700
017701
017702
011604

18:

44 :

005452
005450
005450

015400

005737

016604

Ss:

tDISABLE RANDOM MODE

-(SP)

;CLEAR DATA BUFFER

8CIR
CIR

sRESET INTERRUPT BITS
tREBUILD FULL CIR ADORESS
i1SET SCOPE LOOP MARKER

MIT1S5,.RS

234 ,R4
#177400,8CIR

#8176, ,8CIR

s ADDRESS CIR MIGH BYTE

1SETUP INTERRUPT MASK

1SETUP INTERRUPT RETURN ADDRESS
sRESET INTERRUPTY BITS
sENABLE IEC INTERRUPT

;ENABLE INTERRUPT IN IEC

CLRB

80PS

1ENABLE

CLR

tWAIT FOR INTERRUPT

. WORD
BNE
SAVIEC

0
1

MOV
MOV

MOV

016554

104476
000000
000137

001402

BIS

005526
005526

005500

CIR

MOV
8IC
INTENB

005530

015400

INC

CLR

LOPT7A: MOV

2s:

015400

LS8
RANMOD

Ct RB
OeC
SCOPE

100000

177776

.ENABL
CLR

INC

(SP).3I0R

(PCH.

:SEND

A DATA BYTE

H
H
:SAVE

ALL

8SMR ,R1
8I0R,R2

1SAVE
1SAVE

SMR CONTENT
IOR CONTENT

IEC

REGISTERS

MOV

8CIR,.RO

ERROR

60.

TRAP
.WORD
JMP

60.
0
TEST10

:ERROR 60.
1ERROR COUNT
;RESTART TEST

ERROR
TRAP
. WORD
JMP

61.
61.
0
TEST10

s ILLEGAL

8CC

MOV

8I0OR,R3

CLRB
R3
SWAB
R3
IF R3 EQ (SP) GOTO S
cre
R3,(5P)
BNE
.6
JMP
St
SAVIEC
MOV
&CIR,RO
MOV
8SMR ,R1
MOV
8I0R,R2
MOV
(SP),R4
ERROR
62.
TRAP
62.
. WORD
0
JMP
TEST10
If RANMOD NE @0 GOTO &8
1ST
RANMOD

B8EQ

.06

11A

SYSTEM INTERRUPT

; SAVE CIR CONTENT
tNO

s IF

INTERRUPT

CC,

TO DATA

INTERRUPT

SENDING

INTERRUPT TO DATA SENDING
tERROR 61.
;ERROR COUNT
sRESTART TEST

sREAD BACK DATA B TE

;PREPARE DATA
3
H
;:COMPARE R3 AND (SP)
H
H
$SAVE ALL IEC REGISTERS
1SAVE CIR CONTENT
sSAVE SMR CONTENT
$1SAVE IOR CONTENT
1 SAVE ' SHOUWWLD BE
VAL L
tDATA CHECK ON IEC BULS
tERROR 62.
sERROR COUNT
iRESTART TEST
;1S RANMOD JERO

1</
}EC}I
EST

A D!flGNO&;éS

10A

MACRQ TMM1200

016562
809 016566
810 016570

000137
005216

016606

016570
016574

021627

000400

016576

001401

000701

811
812
813
814
815
816
817
818
819
820
821

016600
016604
016606
016612
016614
016620
016622
016624
016626
016632
016636
016636
016644
016650
016654
016654
016662

012727
000000
004737
010016
042716
005227
000000
001266
005037
012716

827 016666

000000

822
823
824
825

826 016664

828 016670
829 016672
016672
016676
016702
830 016706
016706

016710

831 016712
832 016716
016716
833 016724
834 016726
016726
016732

83L

016736
016742

016742
016744
836 016746
837 016752
838 016756

839 016760

840 016762
016762

016766

841

016770
016774
016774
017000
017004

842 017010

30 MAR 84

TALKER AND LISTENER DATA

177777

RANMOD:
64:

011672

177400

016604
000222
005340

032777
001015

100000

005322

005227

7¢:

8s%:

001371

005306
005304
005304

104477

000137

015400

032777

020000

017700
017701

005252
005250

001012

017702

104500
000000
000137
017703
105003

000303

000222

000137

017020

017700
017701
017702

005204
005202
005202

56EQ A3

(SP), #2400

1COMPARE (SP) AND 0400

B8R

LOPT7A

INC

(PC)e

.WORD

.MORD

8CIR,RO
8SMR ,R1
9I0R,R2
63.
63.
O

BNE
SAVIEC
MOV
MOV
MOV
ERROR
TRAP
JMP
TST13
8Iv
BNE
SAVIEC
MOV
MOV

MOV
ERROR

10¢:

MOV
¢-1,(PC)e
.WORD
O
CALL RANDOM
MOV
RO,(SP)
BIC
#177400,(SP)
INC
(PC).
.WORD
©
BNE
LOPT7A
CLR
RANMOO
MOV
0222,(5P)
SETZ
8CIR
8IS
®IT2,8CIR
MOV
(SP).,8I0R
CLR
8
TST1S
8CIR
81T
o8IT15,8CIR
BNE
94

TRAP
.MORD
N d
MOV
CLRB
SWAB

020327

001002

9 :
005260

005250

015400
005234

BEQ

000004
005342
016666

000000

PAGF

JHP
64
)
INC
(SP)
;BUILD NEXT DATA PATTERN
IF (SP) NE @400 GOTO LOPT?A

052777
012677
005037

017700
017701
017702

16:07

TEST

BNE

JMP
SAVIEC
MOV
MOV
MOV

ERROR

"DATA ACCEPTED"

sERROR COUNT
?

s IF NE, YES
$SAVE ALL IEC REGISTERS
;SAVE CIR CONTENT
$SAVE SMR CONTENT
1 SAVE IOR CONTENT
:+NO “END” TO ”"LAST BYTE'
;ERROR 64.
tERROR COUNT
tRESTART TEST
;READ BACK DATA BYTE
}

aIO0R,R2
64,
64,
O
TEST10
JIOR,R3
R3
R3

aCIR,RO
8SMR ,R1
8I0R,R2
65.

tLOAD I7
;WAIT FOR
:

sRESTART TEST
+IS "END* SET

8CIR,RO
8SMR ,R1

118

;SWITCH BACK TO NORMAL MODE
1PREPARE LAST DATA PATTERN
s INDICATE “LAST BYTE'

H
:SAVE ALL IEC REGISTERS
$SAVE CIR CONTENT
1 SAVE SMR CONTENT
:SAVE TOR CONTENT
iNO DATA ACC WHEN SENDING LAST
;ERROR 63,

TEST10
aCIR
e8IT13,3CIR
10¢

.+6

IF R3 EQ 6222 GOTO
cHP
R3, 2222

1SWITCH TO RANDOM MODE
1RANDOM MODE FLAG
:GET A RANDOM PATTERN IN RO
sMOVE PATTERN ONTO STACK
3BUILD A BYTE
:LOOP 65536 TIMES
}

t1PREPARE

:COMPARE

FOR

]

CMECK

R3 AND

#8220

$
1 SAVE ALL IEC REGISTERS
:SAVE CIR CONTENT
:SAVE SMR CONTENT
$SAVE TOR CONTENT
;OATA CHECK ON 'LAST BYTE

BYTE

L7
MACRQ M1200
30 MAR 84 16:02
1 A OIAGNOSYIC
OA
RANDOM TALKER AND LISTENER DATA TEST
017010
017012
843 017014

104501
000000
000137

015400

017020

052777

000040

017026
017032
017034
017040
017044

005737
001004
012746
004737
000207

011670

844 017020
845 017026

846
8az

023373
005654

005156

11¢%:

684 :

PAGE 44 2

TRAP
.WMORD
JMP

MCLEAR
BIS

TSTEND
ST
BNE
MOV
CALL
RETURN;
.DSABL

65.
O
TEST10

o8ITS,8CIR
7
MSGFLG
684
MTE7, (SP)
$..WRT
LS8

SEQ A9
$ERROR 65,
tRESTART

1ERROR COUNT
SUBTEST

tMASTER CLEAR
JEXECUTE MASTER CLEAR

1END OF SUBTEST
1PRINTOUT

OR NOT?

1SAVE #MTE7 ONTO STACK
s INITIATE PRINTOUT
tRETURN TO CALLER

M7
M1200
30 MAR 84 16:02
133 0% OI“?~8?‘}UNCYION"0$R 0<LTN>
AND
<LUN>
A

849

851
852

853
854

855
856

85?7
858
859
860
861

863
865

867
868

017046
017052
017054
017054
017060
017064
017066
017066
017074
017074
017102
017102
017110
017110
017116
017120
017126
017126
017134
017136
017140
017142
017142
017150
017150
017156
017160
017164
017164
017172
017174
017176

869
870
871
872 017200
873 017202
017202
017206
017212
874 017216
017216
017220
875 017222
876 017226
877 017234
017234
878 017242
017242
879 017250
880 017252
017252
881 017260
882 017264
017264
883 017272
884 017274
885 017276
886 017300

TEST11:

005737
001004

011670

012746
004737
104000

023410
005654

052777

000040

005110

052777

000001

005102

052777

000100

005076

032777
001374
042777

020000

005070

177400

005056

052777
000240
000240
000240

000020

005052

052777

000004

005036

0327177
001774
005037

001000

005030

LOPTS:

017176

032777
001015
005227
000000
001371

010000

017700
017701
017702

004776
004774
004774

18:

2%:

005014

TST

TEST 11
MSGFLG

WRITE
MOV

MT8S
MT8S,

.SBTTL

BNE

CALL
SCOPE

MCLEAR

8IS
SACS
8IS
SIC
8IS

TST13

8IT
BNE
8IC

LTN
8IS
NOP
NOP
NOP
GTS
8IS

TS79

8IT
BEQ
CLR

T1ST12

81T
BNE
INC
. WORD
BNE
SAVIEC
MOV
MOV
MOV

104502
000000
000137
042777

017046
177400

004750

052777

000002

004744

032777
001774

000400

052777
005037

000004
017276

004726

032777
001015
005227
000000
001371

010000

004714

004736

Ss:
6%:

7%:

8s%:

PAGE 45

ERROR
TRAP
.WORD
JMP
BIC
TCA
BIS
1578

8IT
8EQ
GTS
8IS

CLR

1ST12

BIT
BNE
INC
. WORD
BNE

5eQ 90
--

TEST

LOPTS

$..WRT

(spP)

#8IT5,8CIR
#8IT70,8CIR
98176,85MR
8SMR
08IT13,85MR
1s

#177400,8CIR

0BIT4,8S5MR

e8IT2,aSMR
8SMR
08IT9,8SMR
28

8SMR
08IT12,95MR
St
(PC)»
0
34

8CIR,RO
aSMR ,R1
8IOR,R2
66.
66.
0

TEST11
9177400,3CIR

o8IT1,aSMR
aSMR
48178,85MR

08IT2,85MR
8%
8SMR
081IT12,aS5MR
9

(PC)»

0
7%

FUNCTION OF

<LTN>

tPRINTOUT OR NOT?

AND

tSTART MESSAGE TEST

<LUN>

1SAVE #MT8S ONTO STACK

s INITIATE PRINTOUT
1SET SCOPE LOOP MARKER
tMASTER CLEAR

1EXECUTE MASTER CLEAR
$SET CONTROLER ACTIVE
$1SET SACS B8IT IN CIR
$SEND INTERFACE CLEAR
$1SEND INTERFACE CLEAR
IWAIT FOR SIAS OFF
i

$RESET

INTERRUPT

sLISTEN

CONOITIONS

;GOTO STANO BY
;GO 7O STAND BY
;WAIT FOR CSBS
]

tWALT

FOR LACS

;1 SAVE ALL IEC REGISTERS
$:SAVE CIR CONTENT
$1SAVE SMR CONTENT
1 SAVE IOR CONTENT
:NO LACS TO LTN
tERROR 66.
{ERROR COUNT

sRESET

ALL

INTERRUPT

:+GO BACK TO CACS

s TAKE

CONTROL

CONDITIONS

ASYNC

tWAIT FOR CACS AGAIN
i

: TRY

AGAIN

TO GET

:1GO TO STAND BY
4
i

LACS

N/
C
fESH DIA??g?Y UNCTION

MACRO M1200

<LTN>

AND

30 MAR 84

887 017302
017302
017306
017312
888 017316

017700
017701
017702

889

000000
000137
042777

017046
177400

004650

052717

000002

004644

032777
001774

000400

004636

052777
000240
000240
000240

000040

891

892

893
894

895
897
898
899
901

902
903

017316
017320
017322
017326
017334
017334
017342
017342
017350
017352
017352
017360
017362
017364
017366
017366
017374
017374
017402
017404
017404
017412
017414
017414
017420
017424
017430
017430
017432

017434
017440
017440

017446
017446
017450
017452
017456
017460
017462
908 017470
017470
017474
017476
017502
017506

UN>

ERROR
TRAP

032777
001774

001000

004604

032777
001412

010000

004574

017700
017701
017702

004564
004562
004562

017046

052777

000040

104:

.WORD
JMP
BIC
TCA
8IS
TST8
8IT

BEQ

LUN

004626

004612

104506
000000
000137

11%:

8IS
NOP
NOP
NOP
GTS
8IS

TS719

8IT
BEQ

TST12

8IT
BEQ
SAVIEC

MOV
MOV
MOV

ERROR
TRAP

.WORD

004536

644
:

017450

177777

12¢:

017450

023472
005654

JMP
MCLEAR
BIS
LOOP
DEC
.WORD
TS7
BEQ
B8R

MOV
TSTEND

011670

TST
BNE

MOV

664:

SEQ 91

45-1
,

SAVIEC

004674
004674

052777

005737
001004
012746
004737
000207

PAGE

MOV
MOV
MOV

004676

104503

005327
177777
005737
001401
000601
012737

16:02

CALL

RETURN;

1SAVE

8CIR,RO

8SMR,R1
8I0R,R2
67.
67,
0
TEST11
€177400,8CIR

o8IT1,8SMR
aSMR
48178,95MR
10¢

4BITS5,8S5MR

IEC REGISTERS

1SAVE CIR CONTENT
1SAVE SMR CONTENT
1SAVE IOR CONTENT
i1NO LACS AFTER (LTN-GTS-TCA-GTS)
;ERROR 67.

{RESTART

sERROR COUNT
SUBTEST

tRESET ALL INTERRUPT CONDITIONS
;GO BACK TO CACS
1 TAKE CONTROL ASYNC
tWAIT FOR CACS
i

1LOCAL UNLISTEN

]

08I72,85MR
8SMR
08179,85MR
11¢
8SMR
e8IT12,85MR
124

:1GO AGAIN TO STAND BY STATE
1GO TO STAND BY
tWAIT

70.
70.
0
TEST11

sIF EQ, NO
1SAVE ALL

(PC)H»
1

;ERROR 70.
;ERROR COUNT
SUBTEST

; COUNT LOOPS
;IS 648 ZERO

LOPTS

;SETUP NEW LOOP COUNT

1,648

:PRINTOUT

MSGFLG

663
MMTES,
$..WRT

IEC REGLSTERS

tMASTER CLEAR
;EXECUTE MASTER CLEAR

648
. +4
o

STATE

CIR CONTENT
'
SMR CONTENT
IOR CONTENT
STILL SET AFTER (LTN-GTS-TCA LUN-GTS)

;RESTART

e8I75,8CIR
1,LOPT8

STAND BY

IS LACS STILL SET ?
;1SAVE
s SAVE
$SAVE
sLACS

&CIR,RO
8SMR,R1
8I0R,R2

FOR

OR NOT?

{SAVE

(SP)
sRETURN

OMTES ONTO STACK

s INITIATE PRINTQUT

CALLER

B8
MACRO M1200
30 MAR 84
TEST FUNCTION OF «BLOCX DAC»

OTAGNOSTIC

017510
017514
017516
017516
017522
017526
017530
017530
017536
017536
017544
017544
017552
017554
017554
017560
017564
920 017570
017570
017572

921 017574
922 017576

017576
923 017604

017604
924 017612
925 017614
017614
017620
017624
926 017630
017630
017632
927 017634
928 017636
929 017640
017640
930 017646
017646
931 017654
017654
932 017662
017662
933 017670
934 017672
017672
935 017700
936 017706
017706
937 017714
938 017716
939 017724
940 017732
017732
941 017740
942

017742

005787
001004

TesTie:

011670

16:02

.SBTTL

1S7

BNE

WRITE
MOV

012746
004737
104000

023507
005654

052777

000040

004446

052777

000010

004440

CALL
SCOPE
MCLEAR
8IS
SET3
8IS

032777
001011

000010

004432

BIY

017700
017701
017702

004424
004422
004422

LOPTO:

PAGE 4o

SEQ 92
TEST FUNCTION OF

TEST 12
MSGF LG

1PRINTOUT

LOPT9

MT9S
MT19s5,
$..WRTY

(SP)

MBITS5,8CIR

s INITIATE PRINTOUT
1SET SCOPE LOOP MARKER

tMASTER CLEAR

1EXECUTE MASTER CLEAR
1 TRY

TO SET

<BLOCK

DAC»

1 IS «BLOCK DAC>» SET

1473

1 IF NE,

tSAVE

YES

JOR CONTENT

3 <BLOCK DAC> NOT SET

104507

;ERROR

71.

tERROR COUNT

042777

000010

004400

032777

000010

004372

017700
017701
017702

004362
004362

tRESTART SUBTEST
1 TRY TO RESET «BLOCK

18:

BITS,8CIR

8CIR,.RO
8SMR ,R1
8IO0R,R2

004 364

72.
12.

104510
000000
000725
104000

0
TEST1Z2
2%:

052777

000040

004336

BITS,8CIR

052717

000001

004330

®I70,8CIR

0527177

000100

004324

032777
001374

020000

004316

052777
013777

000010
024220

004304
004304

032777
001774
042777
013777

100000

004270

177400

024216

004260
004260

100000

004244

177400

004234

032777
001774
042777

1START MESSAGE TEST 12
1SAVE OMT9S ONTO STACK

1SAVE ALL IEC REGISTERS
$1SAVE CIR CONTENT
1SAVE SMR CONTENT

000000
000745

001411

<BLOCK DAC»

OR NOT?

3s:

TST13

SETS
8IS
4%

S5¢:

1ST1S

8IY
BEQ
8IC
MOV

15715

8IT
B8EQ
8IC

#8176,8SMR
8SMR
0BIT13,85MR
3
8CIR
#BITS,8CIR
LISTNR,S8IOR
8CIR
:eIYIS.GCIR
#177400,8CIR
TALKER,SIOR

SCIR
MBIT15,8CIR

S
0177400,aCIR

DAC»

1+ IS «BLOCK DAC> RESET
s IF EQ, YES
1SAVE ALL IEC REGISTERS

$SAVE CIR CONTENT
$ SAVE SMR CONTENT

1SAVE

IOR CONTENT

3 <BLOCK DAC> NOT RESET
tERROR

sRESTART

72.

1ERROR COUNT
SUBTEST

$1SET SCOPE LOOP MARKER
tMASTER CLEAR

1EXECUTE MASTER CLEAR

$1SET CONTROLLER ACTIVE
1SET SACS BIT IN CIR
1SEND INTERFACE CLEAR
1SEND INTERFACE CLEAR
sWAIT FOR SIAS OFF
:

$SET <BLOCK DAC»

1SEND LISTENER ADORESS

iWAIT FOR
]

tRESET

ALL

INTERRUPT

CONDITIONS

ALL

INTERRUPT

CONDITIONS

$SEND TALKER ADDRESS
tWAIT FOR <DATA ACCEPTED]

tRESET

OIAGNOSTIC
TEST

017750
017750
017756
017756

017764

951

957
958
959

960

017766
017774
017776
020002
020002
020010

020014
020022
020024
020026

020030
020032
020032
020036
020042
020046
020046
020050
020052
020056
020062
020064

962 020066
020066
020072
020074
963 020100
020100
020104
020110
020114
020114
020116
965 020120
020124
020124
967 020132
020132
020134
020136
020142
020144
020150
9%8 020156
020156
020162
020164
020170
020174

MACRO M1200
30 MAR 84
<BLOCK DAC»

FUNCTION OF

052777

000004

004230

032777

010000

004222

042777
005005
012704

177400

004210

020032

052777
005037

000100
177776

001774

012777
005227
000000
001375

000333

64:

017703
105003
000303

TST12

004174

004170

7¢:

004146
004144
004144

000333

017700
017701
017702

004100
004076
004076

94
:

020124

017510

052777

000040

005327
000024
005737

020134

001402
000137
012737

017526
000024

004052

10¢:

654

020134

M8176,8CIR
8PS
0333,81I0R
(PC).
0
74

SAVIEC
OV

8CIR,.RO

ERROR
TRAP
.WORD
P
MOV

78,
73.

R3,0333

. *6
10¢

B8€EQ

.+6

1SEND A DATA PATTERN
IWAIT A SHORT TIME
]

10, NO INTERRUPT OCCURED
1SAVE ALL JEC REGISTERS

1ERROR 73,

;RESTARY

1ERROR COUNT
SUBTESTY

1GET INPUT BUFFER CONTENTY
1PREPARE FOR CHECK
3

1COMPARE R3 AND #333
IEC REGISTERS

IOR CONTENT

tERROR 74,
tERROR COUNT
tRESTART SUBTEST

LOPT9O
#20.,65%

CALL

INTERRUPT MASK

1SETUP INTERRUPT RETURN ADDRESS
1ENABLE IEC INTERRUPT
1ENABLE INTERRUPT IN IEC-11A
1ENABLE SYSTEM INTERRUPTS

s JEC DATA CHECK WITH <BLOCK DAC»

JMP
MOV

RE TURN;

1SETUP

$SAVE

654

9
MSGFLG

$..WRT

JRESET ALL INTERRUPT CONDITIONS

1SAVE CIR CONTENT
1SAVE SMR CONTENT

TS7

OMTE9,

STATE

MITS,aCIR
20.,L0PT9
(PC)»
20.

678

1GO TO STAND BY
I1WAIT FOR <LACS»

1SAVE ALL

74
.

0
TEST1Z2

1GOTO «STAND By>

8CIR,RO
8SMR,R1
8I0R,R2
74
.

. WORD
JHP
MCLEAR
8IS
LooP
OeC
. WORD

SEQ 93

1SAVE CIR CONTENT
1SAVE SMR CONTENT
1SAVE IOR CONTENT
t INTERRUPT WITH <«BLOCK DAC»

8SMR
. 1
8I0R,R2

cHP

MOV

678:

BNE
JMP
SAVIEC
MOV
MOV
MOV
ERROR

BNE

023565
005654

o83

0]
TEST12
SIOR,R3
R3
CLRB
R3
SWAB
IF R3S €Q 0333 GOTO 10

TSTEND
TS7

011670

8SMR

INTENB
8IS
CLR
MOV
INC
.WORD
BNE

TRAP

104512
000000
000137

MIT2,85MR

CLR

01"
201"

017510
004130

46-1

M|IT12,85MR
64
#177400,8CIR
RS

8IY
BEQ
BIC

B8R

020327
001002
000137

005737
001004
012746
004737
000207

8IS

MOV

104511

000000
000137

PAGE

GTS

000412

017700
017701
017702

16:02

tMASTER

CLEAR

$EXECUTE MASTER CLEAR

;COUNT LOOPS
i

1 IS 658 ZERO ?
i
i

tEND OF

$1SETUP NEW LOOP COUNT

TEST

1tPRINTOUT OR NOT?
$SAVE

(SP)

sRETURN

OMTESQ ONTO STACK

s INITIATE PRINTOUT

TO CALLER

IEC11 A DIAGNOSTIC

TEST

970
971 020176
972 020202
9783 020204

020204
020210
974 020214
975 020216

978

979

980
981
982
983
984
985
986
987
938

989

991

FUNCTION OF

005737
001004

30 MAR 84 16:02
<RSV>, <«SRQ> AND <SPAS»

011670

TEST13:

012746
004737
104000

LOPT10:

020216

052777

000040

003760

020224
020232
020232
020240
020240
020246
020250
020256
020256
020264
020270
020270
020276
020300
020302
020304
020306
020306
020312
020316
020322
020322
020324
020326

052777

000001

003752

0527717

000100

003746

032777
001374
042777

020000

003740

177400

003726

052777
005037

000020
020302

003720

976 020224
977

MACRO M1200

020332
020332
992 020340
993 020342
020342
020344
020346
020352
020352
020360
020360
020366
020370
020370

020372
020374
020400
020400
020406
020406
1002 020414
1003 020416
020416

032777
001015
005227
000000
001371

040000

017700
017701
017702

003672
003670
003670

104513
000000
000137

032777
001004

104557
000000
000137

003706

2s:

CALL
SCOPE
MCLEAR
8IS
SACS
8IS
SIC
8IS
TST13
8IT
BNE
8IC
SET4
8IS
1ST14

TEST 13
MSGFLG

TEST

LOPT1O

MT10S
MT10S, -(SP)

$..WRT

®MIT75,8CIR
#8IT0,8CIR
®MBIT6,85MR
SSMR
:?IYIB.BSHR
0177400,8CIR

8CIR
#B81T4,.8CIR
33

8CIR
MIT14,.8CIR

. WORD

(PC)He
0
2t

8CIR,RO
8SMR ,R1

S8IOR,R2
75.
75.

020176
000200

.SBTTL

T1ST
BNE
WRITE
MOV

SEQ 94

FUNCTION OF <RSV>,<SRQ>
1PRINTOUT OR NOT?
1START MESSAGE

1ST17

003644

020176

032777
001404

000200

003616

104560
000000
000137

020176

042777

002000

003576

032777
001004

000200

003570

s INITIATE PRINTOUT

1SCOPE LOOP MARKER
tMASTER CLEAR

1EXECUTE MASTER CLEAR

1SET CONTROLLER ACTIVE
1SET SACS 8IT IN CIR
1SEND INTERFACE CLEAR
1SEND INTERFACE CLEAR
1WAIT FOR SIAS

sRESET

ALL

1SET <RSV>
IMAIT FOR

TO GO OFF

INTERRUPT CONDITIONS
<SRQ»

$1SAVE ALL IEC REGISTERS
1SAVE CIR CONTENT
$ SAVE SMR CONTENT
s SAVE IOR CONTENT
iNO <SRQ» TO <RSV»>
tERROR

q1%:

INHSRQ

414

;BRANCH IF SET
s INT BIT NOT SET

1SEE

CLR10

TESTPART

INT BIT SET
AT

1ERROR 111.
tERROR COUNT

SRQ

;

¢eVO2EOQOQee

3
;

¢eVO2EQQee
¢eVO2EQOss

6eVO2EOQes

6oVO2EOOQse

e8IT10,8CIR
8CIR

$SET SRQ INT INMIBIT
i ¢eVO2EOQOQee
1SET INMIBIT SRQ INTERRUPT
s INTERRUPT BIT SET?
: ¢eVO2EOQee

424

$BRANCH

8IT7,8CIR

42%:

75,

1tERROR COUNT

sRESTART

TESV13

003624

«SPAS>

1SAVE #MT10S ONTO STACK

TEST1S

8CIR
8IT7,8CIR

111.
ill.
0

002000

TEST

AND

3%:

052777

104561

PAGE 4/

NOT

112.
112.
0

$ INT BIT NOT CLEAR
tERROR 112,
1tERROR COUNT

8CIR
e8IT10,aCIR
8CIR
e8IT77,8CIR

tRESET SRQ INT INMIBIT

TEST13

434

113.
113,

sLOOK FOR

1BRANCH IF

INT BIT

SET AGAIN

1BIT 7 STILL CLEAR
tERROR

113,

¢eVO2EOQes

¢eVO2EQQs
e
¢sVOEOOQs
s
e eVO2EDQe
e
¢eVO2EQOQe
e
4oV02EQ
e

E8
M
HESH,8A MR T FScrionMACRO
B OaEE%%snd0
S

020420
1004 020422
1005 020426

000000
000137
013777

020434
020442
020444
020452
020460
020460
020466
020470
020476
020504
020504
020512

032777
001774
042777
013777

1006 020434
1007
1008
1009
1010
1011
1012
1013
1014
1015

1016 020514
1017 020522
020522
1018 020530

1019 020534
020534
1020 020542
1021 020544
1022 020546
1023 020550
1024 020552
020552
020556
020562
1025 020566
020566
020570
1026 020572
1027 020576
1028 020604
1029 020612

020612
1030 020620
1031 020622
020622
1032 020626
1033 020630
1034 020632
020632
020636
020640
1035 020644
020644

020176
024220

003556

100000

003542

177400
024216

003532
003532

100000

003516

177400
000030

003506
003506

100000

003472

042777

177400

003462

052777

000004

003456

032777
001774
042777
012777
032777
001774

005037

020546

032777
001015
005227

100000

017700
017701
017702

003426
003424
003424

104514
00070
0001357
042777

020176
177400

000000
001371

012777

000100

032777
001774

100000

017702
105002
000302

003364

000100

020650

017700
017701
017702

003334
003332
003332

020660
020662

104515
000000

1037 020664

1038 020670
020670

S5¢:

64:

74:

8s:

9s:

020227
001002
000137

020654
1036 020660

003444

43%:

003400

003364

10%:
11%:

020670

000137

020176

032777

040000

:
28phEi02
PRCE 411

.WORD
JMP
MOV

O
TEST13
LISTNR,SIOR

8IT
8EQ
8IC
MOV
TST15S
8Iv
BEQ
8IC
MOV
TST15
8IT
8EQ

MIT15,8CIR
S
#177400,8CIR
TALKER,8I0R
8CIR
BIT15 3CIR
68
€177400,8CIR
€30,8I0R
8CIR
8IT15,8CIR
7

TST1S

8IC
GTS
8IS
CLR

1ST1S
8IT
BNE
INC
.WORD
BNE
SAVIEC
MOV
MOV
MOV
ERROR
TRAP
.WORD
JHP
B8IC
MOV
TST1S

12%:
003306

1SEND LISTENER ADORESS

3
tRESET ALL INTERRUPT CONDITIONS
1SENDO <SERIAL POLL ENABLE>
tWAIT FOR <DATA ACCEPTED»
)

tRESET ALL INTERRUPT CONDITIONS
1GOTO «STAND 8Y> STATE

#MBIT2,85MR

1GO TO STAND BY
}
tWALIT FOR

8CIR,RO
8SMR,R1
8I0R,R2
76.
76.
O
TEST13
0177400,8CIR
®MIT6,8I0R
&CIR
®BIT1S,8CIR
11¢

TRAP
.MORD

17.
O

TST14
8IT

8CIR
#B8IT14,8CIR

TEST13

<SPAS»>

'
]
H
]
$SAVE ALL IEC REGISTERS
1SAVE CIR CONTENT
1 SAVE SMR CONTENT
1SAVE IOR CONTENT
;+ NO <SPAS> TO <SPE>
tERROR 76.
:ERROR COUNT
tRESTART SUBTEST
$RESET ALL INTERRUPT CONDITIONS

O
8¢

8I0R,R2
17.

¢eVO2EQQee

s
tRESET ALL INTERRUPT CONDITIONS
1SEND TALKER ADDRESS
IMAIT FOR <DATA ACCEPTED>

94
8SMR
BIT1S5,a5MR
10$
(PC)e

asMR Rl

IWAIT FOR <DATA ACCEPTED>

#177400,8CIR

MOV

JMP

1ERRCR COUNT

8CIR

8ITY
BEQ
SAVIOR
MOV
8I0R,R2
CLRB
R2
SWAB
R2
IF R2 EQ 68176 GOTO
cMP
R2,.08IT6
BNE
.+6
JMP
128
SAVIEC
MOV
8CIR,RO
MOV
ERROR

sta o5

$SEND STATUS BYTE
tWAIT FOR <DATA ACCEPTED>

3
1SAVE IOR CONTENT
tSAVE IOR CONTENT
{PREPARE FOR DATA CHECK
12%

:
;

1SAVE
1SAVE

1SAVE

1 COMPARE R2 ANU #8ITo
i
$
ALL IEC REGISTERS
CIR CONTENT
SMR

CONTENT

1SAVE IOR CONTENT
s IEC DATA CHECK ON STATUS BYTE

sRESTART
1 IS

1ERROR 77,
$tERROR COUNT

«SRQ>

TEST

OFF

SENDING

§H,8

F8
DIfl?gg?Y

1039 020676
1040 020700
020700
020704
020710
1041 020714
020714
020716
1042 020720
1043 020724
1044 020732
020732
1045 020740
020740
1046 020746
1047 020750
1048 020756
020756
1049 020764
1050 020766
020766
1051 020774
1052 021000
021000
1053 021006
1054 021010
1055 021012
1056 021014
1057 021016
021016

1058
1059
1060
1061

1062

021022
021026
021032
021032
021034
021036
021042
021042
021050
021050
021052
021054
021060
021062
021066
021074
021074
021100
021102
021106
021112

MACRO M1200
C
0 -MAR 84 Agi02
<RSV>,<SR@> AND <SP
UNC TION

8EQ
SAVIEC
MOV
MOV
MOV
ERROR

001412
017700
017701
017702

oN 3300
003276
003276

104544

000000
000137
042777

TRAP

020176
177400

003252

052777

000002

003246

032777
001774
012777

000400

003240

000031

003234

032777
001774

100000

052777
005037

000004
021012

032777
001015
005227
000000
001371

004000

01/700
017701
017702

003162
003160
003160

020176

052777

000040

005737
001004
012746
004737
000207

003220

13%:
148

1S¢:

. WORD
JMP
8IC
TCA

8IS

1578

81T
8EQ
MOV

TST1S

8IT
8EQ

003212
003200

168

104545
000000
000137

005327
177777
005757
001402
00015/
012737

PAGE 47-2

1 IF €EQ, YES
1SAVE ALL IEC REGSITERS
1SAVE CIR CONTENT
$SAVE SMR CONTENT
1SAVE TOR CONTENT

8CIR,RO

8SMR,R1
8IO0R,R2
100.
100.
0
TEST13

$1<SRQ> NOT OFF AFTER STATUS BYTE

#177400,8CIR

MBIT1,8SMR
aSMR
o8IT8,85MR
144
031,8I0R

INTERRUPT

CONDITIONS

$1SEND <SERIAL POLL DISABLE>

8CIR,RO

$SAVE CIR CONTENT

$1TRY

<DATA

TO GET

tWAIT FOR

ACCEPTED»

<TACS>

WHEN ENTERING

TO BECOME

TRUE

1SAVE ALL IEC REGISTERS

$SAVE SMR CONTENT
$SAVE IOR CONTENT
tNO <TACS> AFTER <SPD>
;ERROR 101.
sERROR COUNT
tRESTART SUBTEST
tMASTER CLEAR

tEXECUTE MASTER CLEAR
s TOUNT LOOPS
1IS 658

ZERO

. *0

020214

LOPT10

021052

]

;SETUP NEW LOOP COUNT

0-1,658

TSTEND
TST

011670

BNE

023674
005654

MOV

67%:

CALL

RETURN;

tEND OF

MSGFLG

678
OMTELOQ,
. WRT
$.

TEST

tPRINTOUT

(sP)

SENDING

sWAIT FOR <CACS>

1GO TO STAND 8Y

08I75,8CIR
-1,L0PT10
(PC)H.
-1
654

65¢:

ALL

#8IT2,85MR
17¢
8SMR
08IT11,85MR
183
(PC).
0
16%

Y
TEST13

18¢:

tRESET

$ENTER <«CACS»
s TAKE CONTROL ASYNC

tWAIT FOR

101.
101.

003134

1ERROR 100,
tERROR COUNT
tRESTART TEST

8CIR
IR
oBIT1S,a
153

8SMR,R1
8I0R,R2

021052

177777

SEQ@ 96

OR NOT?

$SAVE OMTELO ONTO STACK
s INITIATE PRINTOUT
tRETURN TO CALLER

«(CSBS»

PEEH4 OIACHERT ther B11"ROGRO M1200
1064

1065 021114
1066 021120
1067 021122
021122

021126
1068 021132
1069 021134
021134
1070 021142
021142
1071 021150
021150
1072 021156
021156
1073 021164
1074 021166
021166
1075 021174
021174
1076 021202
1077 021204
021204
021210
021214
1078 021220

021220
021222
1079 021224
1080 021230
021230
1081 021236

021236

1082 021244
1083 021246
021246
021252
021256
1084 021262
021262
021264
1085 021266
1086 021272
021272
021274
021276
021302
021304
021306
1087 021314
021314
021320
021322
021326
021332

005737
001004

G8
30 MAR

011670

TEST14:

16:02

PAGE

.SBTTL

1ST

SEQ 97

TEST 14
MSGFLG

LOPT11

MT11S
oMT11S, -(SP)
$..WRT

023711
005654

052777

000040

003042

BIT75,8CIR

0527177

000001

003034

#8I70,8CIR

052717

000100

003030

032777
001374

020000

LOPT1:

003022

052777

000010

003012

032777
001012

000010

003004

017700
017701
017702

104546
000000
000137

#MI76,85MR
8SMR

35:

;?ITIS.OSHR
8SMR
BIT3,85MR
8SMR
:?ITS.OS"R

002774
002772
002772

042777

000010

002750

032777
001412

000010

002742

017700
017701
017702

002732
002730
002730

000000
000137

005327
177777
005737
001401
000712
012737
005737
001004
012746
004737
000207

. WORD

021114

021274

177777

2s:

LOOP

6As:

. WORD
TST
8EQ

DEC

B8R
MOV

021274

TSTEND
TSTY

011670

8NE

023752
005654

MOV

664
:

CALL

RETURN;

8SMR,R1
8I0R, R
103,
103.
0

1MASTER

CLEAR

tEXECUTE MASTER CLEAR
1SET <CONTROLLER ACTIVE> STATE
1SET SACS BIT IN CIR
$SEND <INTERFACE CLEAR>
1SEND INTERFACE CLEAR

IWAIT FOR
3

1TRY

<SIAS

TO SET

1 IS <RPP>
sIF NE,

SET

YES

IEC-REGISTERS

;1 <RPP>

NOT SET
sERROR

102,

sERROR COUNT

sRESTART TEST
s TRY TO RESET

<RPP>

1 IS BIT RESET

s IF EQ, YES
$1SAVE ALL IEC-REGISTERS
$SAVE CIR CONTENT
1 SAVE SMR CONTENT
1 SAVE IOR CONTENT

s <RPP>

NOT

RESET

tERROR 103.

tERROR COUNT

;RESTART

1,L0PT11
(PC).
1

s COUNT LOOPS

648

.4
LOPT11

TEST

1 IS 648 ZERO ?
'
3

$1SETUP NEW LOOP

1,648

COUNT

MSGFLG

sPRINTOUT

668

oMTELL,
8. .WRT

TO GO OFF

<RPP>

TEST14

; SAVE SMR CONTENT
:SAVE IOR CONTENT

8CIR,RO

104547

TEST

1SAVE OMT11S ONTO STACK
s INITIATE PRINTOUT
1SCOPE LOOP MARKER

iSAVE CIR CONTENT

102.
0
TEST14
8SMR
#BIT3,85MR
8SMR
eBIT3, aS5MR
24

1s:

1START MESSAGE

$SAVE ALL

8CIR,RO
8SMR ,R1
8I0R,R2
102.

021114

R/W

tPRINTOUT OR NOT?

012746
004737

104000

TEST RPP BIT

(SP)

$SAVE

NOT?

OMTEL]l

ONTO

s INITIATE PRINTOUT
;:RETURN TO CALLER

STACK

e
PG bRAGEYORARGL

MACRO M1200

30 MAR 84

1089

1090 021334
021334
021336

021340
1091 021342
021342
021346
021352
1092 021356

1093 021360
1094 021364
1095 021366
021366
1096 021374
1097 021376
1098 021400
1099 021402
1100 021404
1101

1102
1103
1104
1105
1106
1107
1108

1109
1110
1111

1112

1113

1114

1115
1116

021410

021410
021412
021414
021416
021420
021422
021426
021432
021434
021436
021436
021440
021442
021444
021446
021452
021452
021456
021462
021462
021464
021466
021472
021476
021500
021506

IECINT:

010046
010146
010246

. SBTTL
PUSH

000001

IN;%RRUPT HANOLER
1.

$1SAVE RO ONTO STACw

1SAVE R1 ONTO STACK
1SAVE R2 ONTO STACK

8CIR,RO

1SAVE CIR CONTENT

1SAVE IOR CONTENT
;BRING INTERRUPT STATUS INTO LOW BYTE

8SMR ,R1
8I0R,R2

€6 RO

10(5P)
#BIT0,10(5P)

000010

RS,RO

RO
RS

000012

212,¢P

RO,R1
. R2

(SP)+ ,RO
(SP). ,R1
(SP). ,R2

R4 ,6(SP)

024204

CIR,R4
R4
(R4)

(SP)+ RO

o4 ,SP

TOUT:

000004

MNOAY

023767
005654

MNOAV, -(SP)
$..WRT

OCT.RO

RO,

006400
007152
000006

18:

0C0004

CALL
1St

MOV

SMR CONTENT

tMASK

OUT

BITS 9 AND

1BRING INTERRUPT MASK

10 OF

1ASSUME ALL IS O

CIR

INTO LOw BrTE

1SUSPECTED INTERRUPT ?
1IF EQ, YES
sREBUILD SAVED CIR CONTENT
sREBUTLD ' SHOULD BE* CONTENT
1REBUILD STACK POINTER

1REBUILD RO,R1

AND R?

;0eVO3EQOLee

sRESTORE RO FROM STACK
sRESTORE R1 *ROM STA(CK
iRESTORE R FROM STACK

;SET ERROR INDICATOR

;0eVO3EQLee

:BUILD RETURN ADORESS
sPREPARE TO CLEAR INTERRUPT BITS
3

RZ,R1,RO
(SP). ,R2
(sP).,R1

012600

1SAVE

tRETL RN

(R4)

012602
012601

010046
005046
004737
005737
001375
012737
000111

IEC
.

SEQ 98

R2,-(SP)

042766
120500
001411
000300
00030<
062706

012746
004737

RO, -(SP)

0026 36
002634
002634

000002
062706

PAGE

R1,-(SP)

017700
017701
017702
000300
042700
000305

012600
012601
012602
000261
000114
010466
013704
005204
105014

16:02

(SP)

(SP)
$..0MP
OUTFLG
14
06,804
(R1)

1CLEAR INTERRIPT BITS
sRESTORE
tRESTORE

R2 FROM STACK
R1 FROM STA(CK

tRESTORE RO FROM STACK

tRETURN FROM INTERRUPT
: INCREASE SP Bv

: SAVE OMNOAV ONTO STACK
s INITIATE PRINTOUTY
3

;SAVE RO ONTO STACK
:

:ENTER DUMP ROUTINE
H

I8
IEC11 A DIAGNOSTIC

SIBTEST

1118

ADDRE
SS TABLE

MACRO M1200

30 MAR 84 16:02
.SBTTL

PALE S50
SUBTEST ADORESS TABLE

SEQ 99

J8
TEC11 A DIAGNOSTIC

MACRO M1200

>
MESSAGE

1120
1121

30 MAR 84

1122 021510
llsz 021560

133
133

105
050

116
104

TMMESL:

1125 021606
{136 021651

133
133

111
101

105
103

M1:

1128 021666
llgg 021726

133
133

105
050

116
104

MESZ:

1131 021750
llgg 022012

133
133

105
050

116
104

MESS

11;; 022034

133

126

105

MEL.:

1136
1137
1138
1139
1140
1141
1142

133
133
133
133
133
133
133
133
133

133
124
133
124
133
105
133

123
131
123
:31
123
116
123

SLON:

1143
1144
1145
1146

1147
1148
1149
1150
1151
1152
1153
1154

022112
022167
022216
022275
022324
022371
022405

022452
022466
022554
022570

022647
022663
022720
022734
023013
023027
023113
023127

133
133
133
133
133
133
133
133

023373
023410
023472
023507
023565

023602
023674
023711
023752
023767
024044

133
133
133
133
133
133
133
133
133
133
133
133
133
133
133
133
133

{};é 024070
1173 024166
1174
1175
1176

1155 023165
1156 023201
1157 023274

1158 023310
1159
1160
1161
1162
1163

1164
1165
1166
1167
1168
%{gg

105
133
105
133

105
133
105
133
105
133
105
133

116
123
116
123

116
123
116
123
116
123
116
123

CLON:
MT1S:
MTEL:
MT12S:
MTE2:
MT2AS:

MTE2A:
MT13S:
MIES:
MT3AS:
MTE3A:
MTAS:
MTEA4:
MISS:

105
133
105
133
105

116
123
116
123
116

123
116
123
116
124
116

MTES:
MTISAS:
MTESA:
MT6S:
MTEG:
MT7S:
MTE?:
MT8S:
MTES:
MT9S:
MTE9:
MT10S:
MTE10:
MT11S:
MTE11:
MNOAV:
MESNEX:

133

104

TPMSG:

133

105

MESEND:

105
133
105

133

133
105
133
105
138
133

116
123
116

123

16:02

PAGE 51

.SBTTL
LNLIST

LASCII
.SSEII
.EVEN

S€Q 100

MESSAGES
BEX

/[ENTER FIRST REGISTER ADORESS OF
/{(DEFARLT IS 160010)}/

IEC11 A/

LASCII
.SSE£I

/[IEC11 A BUS CONTROLLER BASIC TESTS/
/(AC-T883A MC)/

LASCII
.QSEII

/[ENTER VECTOR ADDRESS OF
/[ (DEFAWLT IS 270))/

LASCII
.25251

/{ENTER IEC BUS
ADORESS OF
/[(DEFAWLT IS 35))/

.2525!

/(VECTOR INPUT IS NOT EQUAL TO CONTENTS OF VSR])/

LASCII
LASCII
LASCI1
LASCII
ASCII
LASCII
LASCII

/([(SET LON SWITCH ON IEC11-A TO POS.1 (ACTIVE)/
/(TYPE <CR> WHEN READY(
)/
/([(SET LON SWITCH ON IEC11-A TO POS.2 (INACTIVE)/
/[TYPE <CR> WHEN READY(
)/
/[[START TEST 1: EXECUTE MASTER CLEAR]/
/[END TEST 1)/
/[[START TEST 2: TEST SACS BIT IN CIR)/

.EVEN
.EV

.EV

.ASCII
.ASCII
_ASCII
LASCITI

.ASCII
.ASCII
.ASCII
LASCII
.ASCII
LASCII
.ASCII
.ASCII

_ASCII
LASCII
.ASCII

LASCII

.ASCII
LASCITI
ASCII
LASCII
.ASCII

.ASCII
.ASCII
.ASCII
.ASCII
ASCII
.SSEII
.EVEN

.ASCII
.EVEN
.ASCII
.EVEN
.LIST
.EVEN

/[END TEST 2)/
/(({START TEST 3:
/(END TEST 3)/
/[[START TEST 4:

/(END TEST 4}/
/((START TEST S:
/[END TEST S)/
/(([START TEST 6:
/[END TEST 6}/
/[(START TEST 7:
/(END TEST 7]}/
/({START TEST 8:
/[END TEST 8]}/
/[(START TEST 9:
/(END TEST 9]}/

/[{[START

TEST

10:

/[END TEST 10}/
/{[START TEST 11:
/[END TEST 11}/
/(([START TEST 12:
/(END TEST 121/

IEC11 A/
IEC11 A/

TEST CIR BIT

10 INMIBIT SRQ INTERRUPT]/

TEST SACS SIC SIAS ILLMSG CACS])/
TEST

INT ENB]/

TEST

INTERRUPT WITH STATE CHGE ]/

TEST STATE CHGE
IOR DATA
TEST

INTERRUPT WITH SRAS}/

TEST}/

STATE CHGE

TEST DATA

INTERRUPT

WITH GTS AND SIC)/

TRANSFER WITH INTERRUPT}/

TEST FUNCTION OF

<LTN>

AND

<LUN>]/

TEST FUNCTION OF

<BLOCK DAC»>)/

/[[START TEST 13: TEST FUNCTION OF <RSV>,<SRQ>, AND
/[END TEST 13)/
/[{START TEST 14: TEST RPP BIT RW]/
/[END TEST 14}/
/[(THIS ADDRESS IS NOT AVAILABLE ON UNIBUS:
1}/
/[ [NEXT TEST TO RUN?]/

/((DO YOU WANT
/([END OF

BEX

A PRINTQUT OF

TEST]/

START,END

<SPAS>],

TEST MESSAGES?2(Y

OR N)).

IECL] AN, QUAGNOSTIC
| MACRO M1200
1178
1179
1180
1181
1182
1183
1184
1185

024, 4
024206
024210

024212

024214
024216
024220
1186 024222
1187 024224
1188 024226
1189

160010
160012
160015
160014
160016
000100
000040
000270
000270
000035
001204

30 MAR 84 16:02
CIR:
SMR;
IORMB:
IOR:

VSR:
TALKER:
LISTNR:
VECTOR:
VECA:
IECAAD:

.SBTTL

.WORD

. WORD
. WORD
. WORD
. WORD
. WORD
.WORD
. WORD
. WORD
. WORD

.END

PAGE 5

<8
SEQ 101

CONSTANTS AND PARAMETERS
160010
1ADDRESS OF IEC CONTROL AND INTERRUPT REGISTER
160012
+ADDRESS OF IEC STATUS AND MESSAGE REGISTER
160015
1 IOR HIGH-BYTE ADORESS DEFAULT VALUE
160014
160016
100

270
270
35
START

1ADDRESS
+ADDRESS
1ADDRESS
tADDRESS
tADDORESS
sDEFAULT
+IEC11 A

OF IEC INPUT/OUTPUT REGISTER
OF IEC VECTOR SWITCH REGISTER
OF TALKER
OF LISTENER
OF IEC-VECTOR
OF IEC11-A VECTOR ADDRESS
BUS ADDRESS DEFAULT VALUE

L8
DIA
7 IC
!EgébL A TR&L&NOS

MACRO
CRO M M1200

ADDRIN

011170

LAB11

011432

MTES

023113

SFLAG

011426

EMTTND
EMTO

002424
002424

MER?
MESEND

010333
024166

M..SAV
M..TRP

001424
001776

TEST7
TESTS

013754
014372

8IT0
=
8IT1
=
8IT10 =
8IT11 =
8IT12 =
BIT13 =«
8IT14 =
8IT1S =
8IT2
=
8ITS
=
BIT4
=
8ITS
=
8IT6
=
BIT7?
=
B8IT8
=
8IT9
=
COM. .E
CIR
CLON
CMODE =
OMP.
.E
OUMMES
D..TYP
EMTTBL

30 MAR 84 84

PA GE

EMT1

002432

MESNEX

024044

M..TSE

001374

TEST9

IAD..E
IAE..E
IAS.
€

004302
005016
004466

MESS
MES6
MILADR

021750
022034
007445

N
= 000003
NOR.ER
004376
NOR..E
004372

TOUT
P8
TPMSG

IAY. .E

004116

IECARD
IECINT

024226
021334

INP,
E
IOR
IORHB
I1..0MP=

003776
024212
024210
000001

INFLAG
INPREQ

KBBEND

MES1
MES2

MILBIN

MILOEC
MILEMT

007150
007156

MILOCT
MILSCP

MILTR1
MILTR2
MKBOVF
MNOAV

007316
007421

007256
007524

010104
010144
007213
023767

OFFCNT
OFFSET

OUTFLG
PMODE =

010612

011664
011504

007152
030000

PROMES
007202
PS
= 177776
PSOSWR
007160
RA
011734

TKB
TKS

TPS

TSTREP
TST10A

=
=

17
TTE

024224

$..0MP
$..00C

006400
006426

VECAIN
VECTOR
VSR
WRT..E
X
=
XX
=
Z88Z
=
28882 =
$MNOAV
$POINT
$SHLD
$TABLE
$WAS
$SMTYP
$SPTYP
$8SPE
$.$ASF
$..ADP
$..ASC
$..BIN
$..BUF
$..0BN
$..00C
$..0EC

014516

$..EMT

002326

021446
177566
024070

$..IAD
$..IAE
$..IAS

004210
004472
004402

177562
177560

177564

011666
016356

011626
011666

TYP..E
001252
UBMPR = 170200
UDSARQ= 177660
UDSORO= 177620
UISARO= 177640

$..ER
$..IAA

$..IAY

$..INP
$..10T

$..KBI
$..KBO

$..MAP
$..MSP
$..NOR
$..0CT
$..PRO

011070
024222
024214
006060
000152
000004
000004
000000
010351
006614
007176
006616
007200
007020
007016
003520
007174
006706
005464
005504
005444
006630
006520
005270

007166
004120

004010

003574
003056
003424
006122
002116
005700
004304
005112
006136

RANDOM

011672

MPWRFL

007704

RANMOD

016604

UISAR4=

177650

$..PWR

003126

KBBUFF

007026

MSGFLG

011670

011736

UISARS=

177652

$..RED

005020

172316

MTE4

023013

SEQPNT

011550

ABS.

172360
172320
172340
172352
172354
172356
172300
172314

024230
006G00

MSYERR
MTEL
MTE1O0
MTEL1l
MTE2
MTE2A
MTE3
MTE3A

000
001

010032

NO6

001516
021606

VECA

011506
172200
022112
024206
007170
177572
172516
001204
007164
024216
011536
011612
011740
012106
015400
017046
017510
020176
021114
012250
012456
012700
013302
013444

007146

MNOSUB

007360

M,..TST
M1

SINGLE
SISDRO=
SLON
SMR
SPEFLG
SRO
=
SR3
=
START
STATUS
TALKER
TESTAL
TESTL1
TESTO
TESTL
TEST10
TEST11
TEST12
TEST13
TEST14
TEST2
TEST3
TESTA
TESTS
TEST6

KBBPNT
KDSARO=
KDSDRO=
KISARO=
KISARS=
KISAR6=
KISAR7=
KISORO=
KISOR6=
KISDR7=

007146

021510
021666

023165
023274
023373
023472
023565
022324
023602
023711
022466
022405
022663
022570
022734
023127
023027
023201
023310
023410
023507
010156
001662
001766
002006
001726

SEQ 102

LISTNR
LOPT1
LOPT10
LOPT11
LOPT2
LOPT2A
LOPTS
LOPT3A
LOPT4
LOPTS
LOPTSA
LOPT6
LOPT?
LOPT7A
LOPT8
LOPT9
MAPER
MEMOEF
MEMEND
MERCOV
MERHLT
MERROR
MERRP2
MER1

002470
007154

MTESA
MTE6
MTE?
MTES
MTE9
MT1S
MT10S
MT11S
MT2AS
MT2S
MT3AS
MT3S
MT4S
MTSAS
MTSS
MT6S
MT7S
MT8S
MT9S
MVERSN
M,..DET
M. .HIM
M..MMM
M..RET

S52-1

000001
000002
002000
004000
010000
020000
040000
100000
000004
000010
000020
000040
000100
000200
000400
001000
010614
024204
022216
140000
006674
007210
006420
002416

EMT2
ERRFLG

024220
012124
020214
021132
012266
012474
012716
013320
013500
013772
014412
014552
015434
016402
017064
017526
010472
010426
007022
007737
010002
007652
007662
010304

:
16:02

007503
022371
023674
023752
022452
022554
022647
022720

RED..E
RGAIN
RUBFLG
R..TYP=
SAV
SCOPAD
SCOPE =
SeQ

005626
010624
007162
000001
011164
007172
104000
011552

UISAR6=
UISAR7=
UISDRO=
UISDR4=
UISORSe=
UISDR6+
UISDR?7=
U..DET

177654
177656
177600
177610
177612
177614
177616
001760

$..RRS
$..RSV
$..S5PC
$..5TX
$..7T0T
$..TRP
$..TYP
$..WRT

003400
003360
011342
006262
006754
002524
001242
005654

I€EC11 A DIAGNOSTIC
SYMBOL TABLE

CSSMON
000000
ERRORS DETECTED:

MACRO M1200

30 MAR 84

002

VIRTUAL MEMORY USED:
14133 WORDS
( 56 PAGES)
OYNAMIC MEMORY:
20060 WORDS
( 77 PAGES)
ELAPSED TIME:
00:02:12
ZIEBAO,ZIEBAO/ -SP=NEWMAC/ML,COM, ZIEBAO
4

16:02

PAGE 52-2

M8
SEQ

103