Digital PDFs

AH-T884A-MC

July 1984

104 pages

Original

40MB

view download

OCR Version

48MB

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_gray.pdf

OCR Text

IECLI-H

L]
TEE

AePIP=dI TG

(c)

1976-8

.........

PRODUCT CODE:

AC-T883A-MC

PRODUCT

TITLE:

CZIEBAO IEC11-A PDP-11 DIAGNOSTIC

PRODUCT

DATE:

JANUARY

1984

DEPARTMENT :

CSS., MUNICH

AUTHOR :

BERT HMUBER

DIGITAL EQUIPMENT CORPORATION,

MAYNARD, MASSACMUSETTS 01754

THIS
SOFTWARE IS
FURNISHED
UNDER A LICENSE AND MAY BE USED
AND COPIED ONLY IN
ACCORDANCE WITH THE TERMS OF SUCH LICENSE
AND
WITH THE
INCLUSION OF THE ABOVE COPYRIGHMT NOTICE.
TWIS

SOF TWARE, OR ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR
OTHERWISE
MADE
AVAILABLE TO ANY OTHER
PERSON.
NO TITLE TO
AND OWNERSHIP OF

THE

SOF TWARE

IS MEREBY

TRANSFERED.

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR
RELIABILITY
OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED By DIGITAL.

SEQ
1

TABLE OF CONTENTS
[\

ABSTRACT

REQUIREMENTS

LOADING PROCEDURE

STARTING PROCEDURE

OPERATING PROCEDURE

ERROR MANDL ING

7.0

RESTRICTIONS

8.0

EXECUTION TIME AND ORIGINAL EQUIPMENT

9.0

DIAGNOSTIC MONITOR DESCRIPTION

10.0

LISTING

SEQ 2

D1
3
SEQ
0000000000000 000000000000000000000000000

DIAGNOSTIC PROGRAM DESCRIPTION

1.0
THIS PROGRAM IS DESIGNED

TEST

AND EXERCISE

IEC-11A IEC-BUS CONTROLLER FOR THE PDP/11.

PDP

11/XX

THE

SYSTEM

CONSOLE TERMINAL WITH STANDARD UNIBUS ADDRESSES.

A MINIMUM OF SK MEMORY
.

ALL STANDARD PROCESSOR TESTS MUST BE RUN SUCCESSFULLY

LOADING
IR R

PROCEDUVRE
R

BOOT XxXxDP MEDIA,
COMMAND
:

THEN RUN DIAGNOSTIC WITH FOLLOWING

R ZIEB??

NOTE:
4.0

?? REFERS TO VERSION AND REV LEVEL.

STARTING
AR E

PROGRAM

PROCEDURE
R

IS STARTED AT

LOC

1000 (OCTAL)

IF NOT OTHERWISE SPECIFIED THE ABOVE NOTED ADDRESS
ALSO THE PROGRAM RESTART ADDRESS.

5.0

OPERATING
PP

PROCEDUVRE

00000000000000 0000000000000

THE FOLLOWING INITIAL DIALOGUE
THE PROGRAM IS STARTED :

COM v3.2

IS PERFORMED AFTER

---CSS DIAGNOSTIC MONITOR- - -

HIGHEST MEMORY ADDRESS:XXXXXX
IEC-11A

---

AC-T883A-MC

IEC-BUS CONTROLLER BASIC

TESTS

El
ENTER FIRST REGISTER ADDRESS OF TEC11-A(DEFAULT
BY TYPING A <CR>
ENTER AND TERMINATE

IS 160010)

ENTER VECTOR ADDRESS OF IECL1-A(DEFAULT IS 270)
ENTER AND TERMINATE BY TYPING A <CR>

ENTER IEC BUS ADDRESS OF IEC11-A(DEFAULT IS 35)
ENTER AND TERMINATE BY

TYPING A <CR>

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

DO YOU WANT A PRINTOUT OF START,END MESSAGES?(Y OR N)
DEPENDING ON Y OR N,

THE PROGRAM PRINTS OUT

AND END OF EACH TEST OR NOT.

THE START

TEST TO RUN?

TYPE

<CR>

TO GO STEP BY STEP THROUGH ALL

OTHERWISE SPECIFY TEST NUMBER (DECIMAL).

IEC TESTS (1

TEST

END TEST

@6 B

B0 S5

START

TEST 2

END TEST 2

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 ENDLESS LOOP UNTIL
THERE IS AN ERROR MESSAGE OR
(CNTRL C) AGAIN.

GF B¢

S0 S0

G0 S0

B0 B0 B0

G4 S0 B0 B0

S0 B0

4
SEQ

BTART

TEBT

Lcvenvans EvC.

END TEST 14
END OF

TESTING

IEC REGISTER ADDRESS MAY BE ENTERED
IEC-BUS ADDRESS RANGE
:

IN FORMAT

16XXX0
0 ... 36

F1
6.0

ERROR-HANDLING
SR

00000 000000 00000000

ALL ERROR MESSAGES ARE EITHER SELF -DEFINING OR OF

FOLLOWING GENERAL FORM:

THE

ERROR XXX
:
WHERE XxX IS AN OCTAL ERROR NUMBER BETWEEN 1 AND 377.
FOR A DETAILED DESCRIPTION OF THE DIFFERENT ERRORS
OF THIS PROGRAM HAVE A LOOK
AT

THE APPROPRIATE PAGES LATER IN THE LISTING.

NOTE:;
3
:

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

7.0

THIS DEPENDS ON THE STRUCTURE OF THE PROGRAM,

RESTRICTIONS
CE 2000000000000
0 00000

NONE

8.0

EXECUTION TIME AND ORIGINAL EQUIPMENT
AR A

THIS DIAGNOSTIC WAS DESIGNED AND TESTED AT CSS/DP
WITH THE ACCORDING CSS-HARDWARE EQUIPMENT.
A NORMAL ERROR-FREE RUN ON THAT EQUIPMENT
TAKES ABOUT 4 MINUTES

S
SEQ

G1
LSBTTL

SEQ
6

IEC -ERROR DESCRIPTIONS

ERROR 1

SMR CONTENT IS ILLEGAL AFTER A MASTER CLEAR

ERROR 2

CIR CONTENT IS NOT ZERO AFTER A MASTER CLEAR

ERROR

IOR CONTENT IS NOT ZERO AFTER A MASTER CLEAR
SB: 0;
WAS: RO

SHOULD BE

SHOUWLD BE:

WAS:

SACS BIT IN CIR NOT SET By

ERROR

CIR CONTENT

RO
RO

"BIS” FUNCTION

RO = CIR CONTENT

SACS BIT NOT RESET By MASTER CLEAR

ERROR

SIC PRODUCES "ILLEG. MESS."” WITH SACS TRUE

ERROR

RO = CIR CONTENT
10

ERROR

;

'SIAS'

CIR CONTENT

= SMR

BUT NO ' ILLEG. MESS’

SHR

SIAS BIT O TO 1 CHANGE DOES NOT PRODUCE A
' STATE CHANGE'

RO = CIR
ERROR

SIC DOES NOT BRING
OCCURS.
RO

ERROR

= CIR

‘R1 = SMR

SIAS DOES NOT BRING CACS.

CIR

SMR

SIAS DOES NOT BECOME ZERO AFTER MORE THAN 200 MS.

CIR

SMR

ERROR

NO *STATE CHANLc®

AFTER

*SIAS'

ERROR

CACS IS NO LONGER

.TRUE.

WHEN 'SIAS'

ERROR

MC DOES NOT RESET CACS

ERROR

NO <ILLEGAL MESSAGE>
IS NOT SET.
RO = CIR

;

ERROR 20

CIR

SMR

TO O CHANGE.
IS RESET

TO 0.

SMR

TO <SICS> WHEN <SACS»

NO INTERRUPT OCCURED AFTER SENDING <SIC»>.
(<ILLEGAL MESSAGE> SHOULD OCCUR AND BRING AN INTERRUPT.)

CIR

H1
THE

ERROR

INTERRUPT

THAT OCCURED AFTER SETTING <SIC>

WITHOUT <SACS> WAS NOT, OR NOT EXCLUSIVELY CAUSED
BY <ILLEGAL MESSAGE>.
BITS 8-15 OF RS = 'SHOULD BE' CONTENT OF CIR BITS 8-15
RO = ACTUAL CONTENT OF CIR

ERROR 22

SETTING OF <SACS> AND <SIC> SHOULD BRING <SIAS>,
WHICH IN TURN SHOULD FORCE AN INTERRUPT BY SETTING

<STATE CHANGE>, BUT NO INTERRUPT OCCURED.

RO
R1

ERROR 23

= CIR
= SMR

THE INTERRUPT THAT OCCURED AFTER SETTING <SACS>
AND <SIC> WAS NOT OR NOT EXCLUSIVELY CAUSED BY
<STATE CHANGE»>.

BITS 8-15 OF RS =

'SHOUWLD BE'

RO = ACTUAL CONTENT OF CIR
ERROR 24
ERROR 25

<SRE>

SMR

<SRE> PRODUCES <ILLEGAL MESSAGE> WITH <SACS> SET.

RO
RO

ERROR 27

ERROR

= CIR CONTENT

= SMR CONTENT

ICR

SMR

<SRAS> O TO 1 CHANGE DOES NOT PRODUCE <STATE CHANGE>.

= CIR

= SMR

<SRE> IN SMR CAN'T BE CLEARED BY A 'BIC’'

RO
ERROR 31

ERROR 32

ERROR 33

ERROR

IN SMR NOT SET

CIR

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

ERROR

VALUE OF CIR BITS 8-15

= CIR

CLEARING OF <SRE> DOES NOT RESET <SRAS>

CIR

INSTRUCTION.

SMR
SMR

IN SMR.

CLEARING OF <SRE> DOES NOT OR NOT ONLY PRODUCE

A <STATE CHANGE>.
RO = CIR

R1=SMR

IN CIR CAN NOT BE SET.

<INTERRUPT ENABLE>
RO = CIR

IN CIR CAN NOT BE CLEARED.

CIR

<CSBS> NOT SET AFTER SETTING <GTS>,

CIR

SMR

<CSBS> SETTING DOES NOT PRODUCE

CIR

SMR

<STATE CHANGE>.

7
SEQ

I1
ERROR

NO <ILLEGAL MESSAGE>
IN "STAND BY' STATE.
RO

ERROR 40

TO SETTING OF

= CIR

«<TCA>

SMR

IN <CSBS> DOES NOT OR NOT ONLY PRODUCE

CHANGE>.

R1 = SMR

RO= CIR

SEQ
8

<GTS»>

<STATE

ERROR 41

<TCA> IN <CSBS> DOES NOT OR NOT ONLY
RO = CIR
R1 = SMR

PRODUCE

<CACS>.

ERROR 42

fiwssrm THE TALKER IN <CACS>, NO INTERRUPT

THE INTERRUPT SHOULD MAVE BEEN SET BY <DATA ACCEPTED>.

RO = CIR
ERROR 43

ERROR 44

R1 = SMR

AN INTERRUPT OCCURED BY ADDRESSING THE

AFTER SUCCESSFULLY ADDRESSING THE TALKER, IT IS NOT
POSSIBLE TO SET <CSBS> AND <TACS> CORRECTLY BY <GTS»>,

ERROR 47

= SMR

R2
= IOR

WHEN SENDING A DATA BYTE WITHOUT ADDRESSING THE LISTENER,
NO INTERRUPT OCCURED.

RO = CIR
ERROR 46

TALKER,

BUT IT WAS NOT OR NOT ONLY CAUSED BY <DATA ACCEPTED>.
RO = CIR
R1 = SMR
R2
= IOR

RO = CIR
ERROR 45

R2
= IOR

Rl = SMR

<TCS> DOES NOT PRODUCE

RO = CIR

= SMR

<ILLEG.

R2
= IOR

MESSAGE>

LOW ORDER BYTE OF IOR <BITS O0-7> CNA NOT BE SET OR

READ BACK CORRECTLY.

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

ERROR

WHEN SENDING THE LISTENER ADDRESS, NO INTERRUPT OCCURS.

RO
= CIR

ERROR S1

Rl
= SMR

R2
= IOR

SENDING THE LISTENER ADDRESS FORCES AN INTERRUPT

WAS NOT OR NOT ONLY

CAUSED BY

RO-R2 SAME AS ERROR S0

<DATA ACCEPTED>.

ERROR 52

AFTER LISTENER ADDRESSING AND
RO-R2 SAME AS ERROR S0

ERROR 53

NO INTERRUPT TO TALKER ADDRESSING
RO-R2 SEE ERROR 50

ERROR

WHEN SENDING A SECOND DATA BYTE BEFORE READING

AGAIN <DATA ACCEPTED> CAME UP,

RO-R2 SEE

ERROR 50

<GTS> NO

<LACS>

THAT

IS SET.

THE FIRST

J1
ERROR 55
ERROR

FIRST DATA BYTE SENT AND RECEIVED
RO-R2 SEE ERROR 50

IS NOT

AFTER READING THE FIRST SENT DATA BYTE,

DID NOT BRING <DATA ACCEPTED>.

THE

SAME.

THE SECOND SENT

RO-R2 SEE ERROR 50

ERROR 57
ERROR 60

ERROR 61

SECOND DATA BYTE SENT AND RECEIVED IS NOT

RO-R2 SEE ERROR SO

THE SAME.

SENDING OF DATA BYTE DOES NOT PRODUCE AN INTERRUPT,

RO-R2 SEE ERROR 50

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

RO-R2 SEE ERROR 50

;

ERROR 62

DATA BYTES SENT AND RECEIVED ARE NOT EQUAL.

ERROR 63

NO <DATA ACCEPTED> WHEN SENDING A BYTE WITH <LAST BYTE> SET,

ERROR

NO <END>

ERROR 65
ERROR

RO-R2 SEE ERROR 50

RO-R2 SEE ERROR S50

TO <LAST BYTE>

RO-R2 SEE ERROR 50

DATA CHECK ON <LAST BYTE»>

RO-R2 SEE ERROR S0

NO <LACS>

TO <LTN>

RO-R2 SEE ERROR 50

ERROR 67

NO <LCAS> AFTER THE FOLLOWING COMMAND SEQUENCE.

[LTN-GTS-TCA-GTS])

RO-R2 SEE ERROR 50

ERROR 70

<LACS> STILL SET AFTER THE FOLLOWING SEO\ENCE

(LTN-GTS-TCA-LUN-GTS)

RO-R2 SEE ERROR 50

ERROR 71

<BLOCK DAC> CAN NOT BE SET

RO-R2 SEE ERROR S0

;
;

ERROR 72
ERROR 73

<BLOCK DAC> CAN NOT BE RESET

RO-R2 SEE ERROR S0

SENDING A BYTE WITH <BLOCK DAC> FORCES AN INTERRUPT

RO-R2 SEE ERROR 50

ERROR 74

DATA BYTES SENT AND RECEIVED WITH <BLOCK DAC>
NOT EQUAL
.
RO-R2 SEE ERROR 50

ARE

9
SEQ

iK1
ERROR 75

NO <SR@> TO <RSV>
RO-R2 SEE ERROR 50

ERROR 76

NO <SPAS> TO <SPE>
RO-R2 SEE ERROR S0

ERROR 77
ERROR 100

DATA CHECK ON STATUS BYTE

RO-R2 SEE ERROR 50

<SR@> NOT OFF AFTER STATUS BYTE RECEIVED

RO-R2 SEE ERROR 50
NO <TACS> AFTER <SPD>
RO-R2 SEE ERROR S0

ERROR

101

ERROR

102

ERROR

103

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

ERROR

104

NO <ILLEG. MESSAGE> WHEN SENDING <SRE>

<RPP>

CAN NOT

SET

RO-R2 SEE ERROR S0

WITHOUT SENDING <SACS> BEFORE.

RO-R1 SEE ERROR 50
“ROR

105

BIT 10 IN CIR NOT SETTABLE By "BIS”
INSTRUCTION (INHIBIT SRQ INTERRUPT)

ERROR

106

BIT 10 IN CIR NOT RESETTABLE By

ERROR

107

SEE ERROR 105

ERROR

110

BIT 10 IN CIR NOT RESETTABLE By MASTER CLEAR

ERROR

111

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

ERROR

112

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

ERROR

113

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

INSTRUCTION

"BIC”

SEQ 10

L1
ERROR

114

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

ERROR

115

SMR SHOULD CONTAIN ONLY BIT

ERROR

116

ERROR

117

12 (LACS)

CIR SHOULD CONTAIN #600 (STATE CHANGE, INT)

LON MUST BE CLEAR AGAIN

LACS DISSAPPEARED WITH LON SWITCH IN INACTIVE
POSITION (POS. 2) AFTER FORMER ACTIVATION
OF THIS SWITCH.

SEQ 11

M1
SEQ 12

2328800008000 800000200000000000000000000000
*

PRODUCT NAME:

IEC-11A MAIN TEST

AC-T883A-MC

PRODUCT CODE:

DATE: 20-JUN-76

(VO1E00)

01-FEB-80

(VO3EO02)

L3
*
k]

22-APR-80
12-MAR-84

(VO1EO1)
(VO1E02)
(VO2EO0)
(VO2€EO01)

29-SEP-76
27-JAN-77
01-MAR-77
01-APR-77

(VO3EO03)
(ZIEBAO)

L K

2N 2R

s
@

MAINTAINER:

(CSS/DP MUNICH

#
*

AUTHOR:

BERT HUBER CSS

UPDATED
UPDATED
UPDATED
UPDATED
UPDATED
UPDATED

TO
TO
TO
TO
TO
TO

kS
*
%

kS
#*
*

VO1EO2
VO2EOO
VO2EOl
VO3EO2
VO3EO3
ZIEBAO

BY
BY
BY
BY
BY
BY

B.BAUDISCH
B.BAUDISCH
B.BAUDISCH
G. SZENTES
G. SZENTES
J. LEVESQUE

&
&
*

L4
@

k3 $80000000000000000000000000000000000000 &

9.0

DIAGNOSTIC MONITOR DESCRIPTION

STARTING

PROCEDURE

A) USING A PROCESSOR WITH A SWITCH PANEL

PLACE START ADDRESS

INTO SWITCH REGISTER

(START ADDRESS IS 1000 OCTAL

PRESS

“LOAD ADDRESS"

PRESS

“START”

SWITCH

PROGRAM SHOULD BEGIN TO PRINT
PRINTOUT,

BIUSING

)

OUT

THE

IDENTIFICATION-

A LSI11

TYPE

IN ST.

ADDR.,

PROGRAM STARTS WITH

(1000 OCTAL)

AND

nG "

INTO ONE LINE.

IDENTIFICATION PRINTOUT,

SEQ 13

@0 W

COUSING A PROCESSOR WITHOUT A CONSOLE (11/04,11/34)

OPERATING

TO
TO
TO
TO

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

COMMANDS SET

OR CLEAR BITS

THE FOLLOWING OPTIONS ARE

/CT

COUNT ERRORS

/SC

/NC

/NS

NO ERROR COUNT (DEFAWLT)

SCOPE LOOP ON THIS ERROR

NO SCOPE

LOOP

(DEFAWLT)

CONTINUE -SWITCH

WHEN AN ERROR OCCURS,

THE

FOLLOWING

TExXT

IS PRINTED:

ERROR

000XXX

AT LOCATION:
XXX XXX
HALT AFTER ERROR
e

THE ERROR NUMBER CAN BE IN THE RANGE
THE LOCATION ADDRESS IS ABSOLUTE.

877,

@6 ®%

S0 G0

/CONT

AFTER ERROR(DEFAWLT)

NO HALT AFTER ERROR
PRINT ERROR MESSAGE (DEFAWT)
NO ERROR PRINTOUT

HALT

=
=
=

LOCATION

AVAILABLE:

/NH
/PR
/NP

IN A MEMORY

THESE

CALLED PSEUDO-SWITCH REGISTER.
/HT

ALL INPUT/QUTPUT OPERATIONS ARE DONE VIA THE DIAGNOSTIC
MONITOR. NO SWITCH SETTINGS ARE USED.
ALL COMMANDS, REQUIRED WHEN AN ERROR OCCURS, ARE
ENTERED VIA THE TERMINAL.

G0 S0

PROCEDUVURES

G0 G0 G0 S0 S8 S8 S8

G0 G0 G0

G0 GF W

G0 G0 S0 G0 G0 G0 G0 G0 G0 @0 S

S0 S0

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 SHOULD BEGIN
PRINT IDENTIFICATION PRINTOUT.

WHEN AN ERROR IS FOUND, THE PROGRAM IS5 INTERRUPTED.
THE ERROR NUMBER, ERROR LOCATION AND PSEDO STOP MESSAGE
ARE PRINTED. THEN THE DIGNOSTIC MONITOR wAITS ¢OR

INPUT OF OPTIONS.

Be
S8 90 B0 S0 B0 S0 S0 e

PRESS <CNTRL., C> AND THE "PROMPT
THE BEGINNING O° A NEW LINE.

CoM»
eee

IS PRINTED AT

(PROGRAM PRINTS WILL BE UNDERLINED FROM NOW)

NOW YOU CAN SELECT THE OPTIONS YOU NEED TO FIND THE ERROR.
THE SYNTAX OF A COMMAND LINE

IS AS FOLLOWS:

SF G0 G0 B0 G0 B0 S

COM>ERR=/0PT1/0PT2/0PT3/, . .0PTN/CONT

<CR>

IF THERE IS A ERROR IN THE INPUT LINE THE FOLLOWING

MESSAGE

IS PRINTED:

G0 B0 G0 S

SYNTAX ERROR

YOU CAN NOW REPEAT

THE

INPUT,

S0 G0 S0 WF B¢ S0

ANY COMBINATION OF OPTIONS IS LEGAL, BUT PROBABLY NOT USEFWL.
WHEN YOU TYPE
/SC/NS
THE FIRST OPTION IS OVERWRITTEN. THE COMMAND LINE IS INTERPREYED FROM LEFT TO RIGHT,
THE LAST OPTION IN A LINE MUST BE

/CONT,

000000000000000000000000000000000000000000

98 B¢ B0 S
S8 G0 B¢ B0 S0
GF S5 S8 ©F G4 G0 G
08 S¢ S
% B5 B9 9% 86 99

STRING”

THEN THE MONITOR RETURNS CONTROL TO THE POINT OF PROGRAM
WHERE THE ERROR WAS ENCOUNTERED AND THE PROGRAM CONTINUES
WITH THE ENTERED OPTIONS.

OPTION

THIS OPTION CAN BE USED

oMP

TO CHECK

THE CONTENT OF

MEMORY LOCATION OR A REGISTER.
IT CAN ONLY BE CALLED AFTER AN ERROR OR WHEN YOU INTERRUPTED
E;fi RUENI'G PROGRAM BY PRESSING "CNTRL C-~.
AFTER AN ERROR PRINT

YOU PRESSED

RETURNED THE PROMPT STRING:

“CNTRL

AND

THE

MONITOR

CcoM»
IF YOU WANT TO CHECK LOCATION 1000 AND IT CONTAINS
E.G. 012767, SO YOU HAVE TO TYPE AFTER THE PROMPT STRING
COM>DMP 7001000<CR >
012727

SEQ 14

THE

CONTENT

OF LOCATION 1000.

THE MONITOR RETURNS NOW INTO ITS WAIT ROUTINE AND WAITS

FOR FURTHER

OPTION

SET

THIS OPTION CAN BE USED TO MODIFY

IT CAN

THE CONTENT OF A

BE CALLED ONLY AFTER AN ERROR OR WHEN YOU INTERRUPT

THE RUNNING PROGRAM, TO CALL THE MONITOR PRESS “CNTRL C" AND THE
MONITOR ANSWERS, AS PREVIOUS SEEN, BY PRINTING

coM»

IF YOU WANT TO CHANGE LOCATION 1000,
TYPE ON THE SAME LINE

YOU HAVE TO

CDH’SEY/001000/000000¢CR»
THE LOCATION CONTAINS NOW

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

ABO

THIS OPTION CAN BE USED ONLY AFTER AN ERROR OR WHEN 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
SUPPORTED, TO CALL
A SUBTEST.

SF @6 B8 S5 G5 G5 G

AFTER PRESSING

“CNTRL C”

THE MONITOR RETURNS WITH

coM»>
TYPE NOW ON THE SAME LINE

96 G5 G4

COM>ABO<«CR>
AND

THE PROGRAM WILL GO

TO BEGIN OF

TEST

IF YOU ENTER O OR <«CR> OR TO
A
ROUTINE WHERE YOU CAN SELECT A SUBTEST

G5 S5 S
W% B0 B

INPUTS,

MEMORY LOACTION OR OF A REGISTER

S8 GF G0 B¢ G4

G0 G0 S8 G0 G0 S0 B0 G0 S5 G0 S8 S0 G4 S0 B0 G0 B8 B0 B0 B0 S8 B0 B8 S0 S0 SF Br 8

THE MONITOR WILL PRINT

10.0

LISTING
L

SEQ 15

O0 30-MAR-84 16:02
N}R
D
RPE
E
o "BE
YHB
4

53
103
215
267

LOW -CORE
INITIALISATION

MEMORY

TEST WITH MEMORY MANAGEMENT UNIT SETUP

$..MAP MAPPING ROUTINE

329
399

430
482

508
536
590

661
712
759

873

979

TEST SELECT ROUTINE

LOCAL MACRO DEFINITIONS
TEST LON SWITCH FEATURE
TEST
EXECUTE MASTER CLEAR
TEST SACS BIT IN CIR
TEST
TEST
TEST CIR BIT 10 INHIBIT SRQ INTERRUPT
TEST
TEST SACS SIC SIAS ILLMSG CACS
TEST
TEST INT ENB
TEST
TEST INTERRUPT WITH STATE CHGE
TEST
TEST STATE CHGE INTERRUPT WITH SRAS
TEST
- IOR DATA TEST
TEST
TEST STATE CHGE INTERRUPT WITH GTS AND SIC
TEST 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 <RSvV>,<SRQ> AND <SPAS>»
VRNV
W -

1162
1230
1252
1285
1317
1418
1437
1463

TEST

1118
1120
1178

14 --- TEST RPP BIT R/W
IEC-INTERRUPT MANDLER
SUBTEST ADDRESS TABLE
MESSAGES
CONSTANTS AND PARAMETERS

SEQ 16

Ee
MACRO M1200

30-MAR-84

PAGE 2

.ENABL

SEQ 17

AMA

ABS

M
LIST
LOW-CORE
.SBTTL
MCALL INIT

INIT

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 TERMS.
}8 SEMg OWNERSHIP OF

THE SOF TWARE SHALL AT ALL

TITLE

TIMES REMAIN

LIST

THE INFORMATION IN THIS DOCUMENT

IS SUBJECT TO CHANGE WITHOUT

EQUIPMENT CORPORATION.

NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT By DIGITAL

®e

000000

16:02

.ENABL

000000

CND
NN -

IEC11-A DIAGNOSTIC

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

I Cl&-l DIAGNOSTIC

LOW-CORE

MACRO M1200

30-MAR-84

16:02

.PSECT

PAGE

SEQ 18

CSSMON

MZ001
THIS CHANGE ALLOWS TO USE A MACRO THAT EITHER CLEARS
THE PSW BY A “CLR” OR A "MTPS",

GS001
THIS CHANGE ALLOWS

TO START

THE PROGRAM AT LOC.

200

.ASECT

sPOINT TO VECTOR «2
tHANDLE ILLEGAL TRAP
'

003056
000000
003126

s ILLEGAL TRAP -HANDLER

1PRIORITY

sPRIORITY = O
sEMT -HANDLER
sPRIORITY = O
s TAP -HANDLER

002326
002524
000000
000030

000200

001000

000137
000137

000137
000100

= O

s POWERFAIL -RESTART -HANDLER

001000

001204

10¢
137

10%:

START
100

:PRIORITY = O
:

sPOINTER TO VECTOR +2
sHANDLE ILLEGAL TRAP

s
:04GS001
;24GS001ee
¢
;¢2GS001

;44GS0014e

:10¢GS0012»

s INITIALIZE SYSTEM

sPOINTER TO VECTCR .2
tHANDLE ILLEGAL TRAP
:

¢+

INITIALIZE SYSTEM

K
- AREA
: STAC

:¢4GS0014e

:44GS001ee
2
:¢4GS001
:1¢4GS001+e

G2
ESS%édaEDIAGNOSTIC

MACRO M1200

30-MAR-84

a7
48
49

50
51
52
53

16:02

PAGE 4

SEQ 19

MZ001

AS VERY FIRST

INSTRUCTION DO A

ALL HARDWARE THAT

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

001324
001350
001360
001366
001372
001374
001374
001400
001402
001410
001414
001416
001424
001424
001430
001434
001436
001440
001442
001444
001446
001450
001460
001470
001476
001504
001510
101 001512

000005
012706
012737
005037
005037

000240

012737
000404
005037

012737
012737
012737
012737
012700
005020
020027
001374
012737

START:

001204
001242
000006
177776

177777
007016

$..TYP:

000006
000004
003424
000340
007026

TYP,. .E:

001000

012737
004737
000414

007026
001516

012700
005001
012737
012706
005740

160000

1$:

007172

007146
M,..TSE:

007022
007024

052737
012737
005737
001375
000137

000100

OSTART,SP
0s..TYP,4
6
80PS
0-1,88PTYP
TYP, .E
$SPTYP

06,4
04,6

#340,8062
OKBBUFF ,RO

(RO)»

RO, OPROMES
13
©1000,SCOPAD
00
MVERSN
OKBBUFF ,KBBPNT
PC,M,
. TST
M. .SAV

2160000,R0
R1
Q.+6,004

001410
001204

010037
010137
006201
006000
006201
006000
000241
006000

INITIALISATION

0s..KBI,a060

000062

007202

.SBTTL

RESET
MOV

OSTART,SP

-(RO)

M..SAV:

"RESET”

TO CLEAR

IS IN AN UNDEFINED STATE

RO, MEMEND
R1,MEMEND+2

+CLEAR THE WORLD
s SETUP SP
:+PREP FOR

$MZ001

TEST

+IS IT A PDP OR A LSI ?
§

+IT IS A POP
1 SKIP LSI PART

s INDICATE A LSI

sREBUILD
'

+SETUP KEYBOARD VECTOR
3

sRESET ALL FLAGS
"

‘

:IF NO SCOPE LABEL IS SET IN THE PROGRAM
; THEN GOTO START AFTER ERR=/SC
;SET PS TO O

1MZ001

$SAY HELLO TO EVERYBODY
:SETUP INPUT-BUFFER-POINTER
;CALL MEM. TEST WITH MEM. MANAGEM. SETUP ;BB001
31GO TO SAVE HIGHEST MEMORY ADDRESS
;88001
sHERE IF NO MEMORY MANAGEMENT FOUND
;88001
$SETUP MAXIMUM CORE -ADDRESS
:SETUP FOR MEMEND.2 FOR UNMAPPED PROC.
;88001
:SETUP TRAPHANDL
ING

+REBUILD STACKPOINTER
1 TOP OF CORE?
;REBUILD TRAP TO 4 VECTOR

sHERE IF HIGHEST MEMORY ADDRESS FOUND
$1SAVE HIGHEST MEMORY ADDR.

:SAVE EXTENSION BITS
+PUT ADDR16 INTO CARRY

188001

sRESET CARRY

188001

+ROTATE ADDR16 INTO MSB OF RO
:PUT ADDR17 INTO CARRY
+ROTATE ADDR17 INTO MSB OF RO
RO

007152
010614

177560

000040

OCT,RO
NO6
oBIT6,30TKS
42,8040

OUTFLG
. -4

COM. .E

;B8B8001

188001
;88001
;88001

sSHIFT OUT THE LS-OCT-DIGIT OF PHYS ADDR

;DUMP ADDRESS

tPRINT LS-OCT-DIGIT

tENABLE
sPREP

TTY

ALWAYS AS

INTERRUPTS

THIS LOCATION FOR USING XxXxDP

: SYNCHRONISE OUTPUT
;

“6"

i+ NOW WE ARE ON THE AIR

;88001

188001

Remony MARRBEMERTONE] LE8Re 16:02 PAGE 5
A REACURSA:
RERB
103

.SBTTL

105
106
107
108
109
110

SUBROUTINE:

104

;OF THE COMPUTER MEMORY

;KISAR7 IS USED TO MAP THE SO-CALLED I/0 PAGE .
iKISAR6 IS USED TO MAP THE HIGHEST MEMORY ADDRESS CHECK POINTER .
:

;s INPUT:

114
115
116

sOUTPUT:

117

.
3

s AUTHOR:
001516
001516
001524
001530
001536
001542
001546
001554
001562
001566
001574
001576

001600
001606

001610
001612
001612
001636
140 001646
141 001652

150
151
152
153
154
155
156
157
158
159

M..TST

+IN PDP-11 PROCESSORS AND SETS KISARO...KISARS TO THE LOW 24K -WORDS

112
113

142
143
144
145
146
147
148
149

MEMORY TEST WITH MEMORY MANAGEMENT UNIT SETUP

s THIS ROUTINE CHECKS THE AVAILABILITY OF A MEMORY MANAGEMENT UNIT

111

118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139

SEQ 20

001660
001662

001662

001700
001702
001704
001706
001712
001714
001716
001722
001724
001726
001734
001742

012737
005037
012737
005037
004737
012737
012737
012700

(SP)

*RETURN ADDRESS

RO
R1

=LOW 16 ADDRESS BITS OF HWIGHEST MEMORY ADDRESS
=BITS 0,1 ADDRESS BITS 16,17

BERNHARD BAUDISCH CSS/DP MUNICH 19-DEC-78
sREFERENCE LABEL

1SETUP SEGMENTATION TRAP CATCHER

000250
oM,
. TRP,804
806

M. .MMM

97400,KISARG
01,88MTYP
0157776,R0O
oM, .HIM, 804

172354
007020

012737
005710

8RO

103031
162737

M. .DET
9200 ,KISAR6

172354

002401
000771

30$
204
90

012716

042737

000422

001374
000001

MEMDEF

oM. . TSE,(SP)
#8170,SRO
M..RET

177572
PUSH

.REPT

000005

ASL

103402
005001

000402
012701
006316
006101
042700
050016
012600
012737
012737
012737

40%:
45%:;

000001

160000
000252

000250
000252
000004

M..RET:

KISAR6
S

(SP)

.ENDR
BCS
CLR
B8R
MOV

408
R1
454

BIC

R1
©160000,R0
RO,(SP)

ASL
ROL

BIS
MOV

MOV

MOV
MOV

#8IT0,R1
(SP)

(SP)+,RO
0252,80250

04 ,30252
06,304

'..l

;:SETUP TRAP-4 CATCHER
$oee

:SETUP DEFAULT MAPPING,ENABLE MM
tMAP WITH KISAR6 THROUGH MEMORY

sREMEMBER THAT WE MAVE MEMORY MANAGEMENT!
tGET HIGHEST ADDRESS WITHIN APR6 RANGE

1SET UP TRAP 4 CATCHER

:+SEE _IF ADDRESS PRESENI
1CC_IF ADDRESS FOUND
tMAP TO NEXT LOWER 4K WORD BANK
s THIS CASE SHOULD NEVER HAPPEN

1CHECK NEXT LOWER 4-K WORDS
¢HERE ONLY

IF MAIN PROCESSOR HARDWARE ERROR

1SET PRIORITY TO O
sMEMORY MANAGEMENT DEFECT
tMODIFY RETURN ADDRESS TO UNMAPPED SYSTEM
:DISABLE MM
+AND GO AHEAD LIKE UNMAPPED SYSTEM
sHIGHEST MEMORY ADDRESS FOUND

:GET MAP REGISTER CONTENTS
:

:PUT ADDRESS BIT 17 INTO PSW CARRY
3

+CS _IF ADDRESS BIT 17 SET
sHERE IF BIT17 NOT SET
"..

tFLAG BIT

17 FOUND

1GET ADDRESS BIT 16
s INSERT BIT IN MEMORY EXTENSION MASK
sMASK OUT APR SELECTION BITS

+BUILD 16 BIT BASE ADDRESS

i -->RO FOR OUTPUT TO CALLER
+RESET SEGMENTATION TRAP CATCHER
B

;RESET

TRAP-4 CATCHER

30-MAR-84

HANAGEMERT UNIT SETup

012737
000207

000004

012716
000760

001374

052766
000002

000001

022626
005726
000137

000006

..DET:

000002

. HIM:

001760

191
192

SEQ 21

RTS

MOV

04,806
PC

MOV
BR

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

BIS

o8IT0,2(SP)

CMP

(SP)+,(SP)+
(SP).
VU..DET

TST
JMP

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

000207

PAGE S-1

RTI

..TRP:

176

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

16:02

$oee

1SET CARRY IN RETURN PSW SETUP
tRETURN WITH CARRY SET INDICATOR

+CLEAN STACK OF INT. VALUES
;CLEAN STACK FROM RETURN ADDRESS

tNO MEMORY MANAGEMENT UNIT AVAILABLE

THIS ROUTINE IS CALLED TO SET UP THE APR AND PDR
REGISTER WITH DEFAULT VALUES AND TO ENABLE MEMORY
MANAGEMENT
.
NONE
INPUT:
OUTPUT: ALL PDRS ARE PRESET WITH 77406
APRO IS PRESET WITH O
"
200
APR 2
"
400

APR 1

APR7

7600

MM IS ENABLED

i1SAVE
:GET PAGE DESCRIPTOR REGISTER SETUP
:SETUP FOR 8 PDR'S
;:GET KISDRO ADDRESS
$1SETUP NEXT PDR
;COUNT SETUPS

OKISARO,R2

:GET KISAR BASE ADDRESS

08. ,R1
OKISDRO,R2

RO,(R2).

10%:

10¢

(R2)»

9200,(R2)+

001200
001400
007600
000001

1 TRAP-4 AND SEGMENTATION TRAP CATCHER

SUBROUTINE M. .MMM

RO,R1,R2
©77406,R0

077406
000010
172300

tRETURN TO CALLER
tHERE IF MEMORY MANAGEMENT ADDRESS NOT FOUND
+MODIFY RETURN ADDRESS
tRETURN COMMON

.SBTTL

1SETUP
;SETUP
;SETUP
1SETUP

KISAR
KISAR
KISAR
KISAR

1SETUP KISAR
1SETUP KISAR

#8ITO0,SRO
R2,R1,RO

tRESTORE REGS.

177572

sNE IF MORE TO DO
OB WN=O

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
174
175

M1200

‘xuuufluuuu“uflnu“fl“auflflnfi

" TESTCNTT
REROA

TIC
MACRO
H MEMORY

1SETUP KISAR
;SETUP KISAR 7 TO I/0 PAGE
;ENABLE MEMORY MANAGEMENT

1BACK TO CALLER

$..MAP MAPPING ROUTINE

A<AREPESTM

R0 M1200

MACRO

30-MAR-84

217
218

f
+

219

226
g?;
2

236
237 002116
238 002122

239 002136

240 002140
241 002144
242 002150
243

244

245

246 002170
247 002174
248
g‘Sg

251
252
253
254

INPUT:

000003

000137
004737
013700

000006

042700
013701

=100 OCTAL BYTE BLOCK OFFSET
*MAPPING POINTER

:
3
:
:

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 COM (0-4.K)

AUTHOR:

000012

10$:

ALBERT BREM CSS MUC 16-JAN-79

256 002262
257 002266

052700

000001

258 002306
259 002310

000403
016637

000006

261 002322
ggg 002324

012616
000207

JMP
CALL
MOV

24
M. .MMM
MEMEND ,RO

3LEAVE
sENABLE MM,SETUP DEFAULT MAPPING
1 SAVE HIGHEST MEMORY LOCATION

ROR

:COMPUTE 100 OCTAL BYTE BLOCKS

€176000,R0
MEMEND+2,R1

1 SAVE MEMORY EXTENSION

.REPT

.ENDR

176000
007024

000001
000006

260 002316

*RETURN ADDRESS

:
$..MAP: PUSH
RO
1 SAVE REGISTERS
IF 6(SP) GE 0200 GOTO 10$;DONT
MAP TO SYSTEM AREA
BPT
;DONT MAP TO SYSTEM AREA

002316
002006
007022

060001
042737
020166
002023

255 002242

(SP)

2(SP)
4(SP)

002224
002226
002234
002240

264
265

gg;

$..MAP

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

sea 22

:
:

229
230
231
2§§

Pace 6

"ssrsssssassssssssas

225

SUBROUTINE:

222
222

16:02
t6i02

8IC
MOV

.REPT
Aéhm

177776

1$:
2%:

10.
R1

;:COMPUTE ADDITIONAL BLOCKS

ADD
8IC
CcMP
BGE

RO,R1
eBITO,80PS
R1,6(SP)
18

s TOTAL BLOCKS OF 32.WORDS MEMORY
;:CLEAR CARRY
;IS MEMORY AVAILABLE?
s YES

BIS
PSET

#817T0,RO
RO

:SET CARRY FOR ERROR INDICATION
2"

PREAD

172354

BR
MOV
POP
MOV
RETURN

2s
6(SP),KISAR6

R1,RO

(SP)+,(SP)

:SAVE CURRENT PSW

:DONT TOUCH APR6
+MAP TO BUFFER AREA

+RESTORE REGISTERS

:CLEAN STACK OF ARGUMENT
:BACK TO CALLER

{ECLAR

DIAGNOSTIC

K2
MACRO M1200

30-MAR-84

267
268
269

270
271

272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295

16:02

PAGE

.SBTTL

§..EMT

SUBROUTINE:

§..EMT

SEQ 23

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

;s INPUT ;

2(SP) = PS

3
;OUTPUT

(SP) = PC
NONE

s AUTHOR ;

BERT HUBER CSS/DP MUNICH 14-JULI-76

002326
002332
002336
002342
002346
002350.
002354
002356

012746
066616
017616
042716
006316
021627
101413

002400
002404
002410
002414
002416
002420
002422
002424

000137
062716
017616
000136
002424
002432
002470

177776

000002
000000

$..EMT:

177400

.ENABL LSB
MOV
@-2,-(SP)

2(SP),(SP)
8(SP),(SP)
€177400,(SP)

cMP
8LOS

(SP),0EMTTND-EMTTBL
-2; VALID EMT-NR.?
1
:IF LOS, YES

ASL

000004

(SP)

WRITE MILEMT

001000
002416

1$:

sREBUILD EMT-ADDR.

ADD
MOV
BIC

DUMP

OCT,2(SP)

MOV

a(sP),(sSP)

JMP
ADD

JMP
EMTTBL: EMTO
EMT1
EMT2
EMTTND:

3
v
sGET EMT-CODE
$EXTRACT EMT-NR.

s CONVERT TO TABLE-OFFSET
;s ILLEGAL EMT

801000
QEMTTBL,(SP)

sRESTART PROGRAM
sGET FUCTION CODE ADDR.

8(SP).

;ENTER FUCTION SUBROUTINE

;SUBROUTINE TO SAVE SCOPE -LOOP ADDR.
002424
002430

011637
000002

007172

EMTO:

MOV
RTI

(SP),SCOPAD

:SAVE ADDR. OF SCOPE-LOOP
sRETURN TO CALLER

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

000010

EMTL:

810(SP), -(SP)

ADD

02,(SP)

tPOINT

(SP)+,4(SP)

MOV

;

}

6(SP),a(SP)«
(SP)+,4(SP)

TST
RTI

(SP).

;GET POINTER TO VECTOR ADDR.

:SETUP VECTOR

TO NEW PS

:1SETUP NEW PS
;CLEAN UP STACK

3
*
;RETURN TO CALLER

SUBROUTINE TO RESET A VECTOR

EMT2:
000002

10(SP),a(sSP)

MOV
MOV

MOV

002470
002474
002476
002502

MOV

MOV
MOV

ADD
MOV

84(SP), -(SP)
(SP),-(SP)
02,(SP)
(SP)+,8(SP)+

tGET POINTER TO VECTOR A
;DUPLICATE IT
;BUILD ADDRESS OF
tRESET VECTOR

VECTOR

L2
{ECéAiA DIAGNOSTIC
324 002504
325 002512
326 002520

327 002522

012776
016666
012616

000002

MACRO M1200
000004
000002

30-MAR-84 16:02

177774
000004

MOV
MOV
MOV
RTI

PAGE 7-1
04,8-4(SP)
2(SP),4(SP)
(SP)+,(SP)

SEQ 24
sRESET VECTOR +2
1CLEAN STACK
P

+RETURN TO CALLER

1ot DIAGNOSTIC

MACRO M1200

30-MAR-84

16:02

.SBTTL

‘..t”

329
330
331
332
333
334
335
336
387
338
339
340

SEQ 25

PAGE 8

SUBROUTINE:

..QtRp

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-HANDLER IS A (PSEUDO-)
SWITCH-REGISTER CONTROLLED ERROR HANDLER. FOR THE DEFINITION
OF ALL AVAILABLE 'SWITCH'-OPTIONS, REFER TO SUBROUTINE “$..IAE"

LATER IN THIS LISTING.

=
=

INPUT:

2(SP)
(SP)

OQUTPUT;

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

PC
LOW ORDER BYTE OF TRAP INSTRUCTION = ERROR NUMBER

AUTHOR:

: LPSECT CSSMON

002524
002530
002534
002540
002544
002550
002552
002556
002560
002566
002576
002610
002614
002620
002626
002630
002640
002652
002662
002674
002702
002704
002710
002712
002722
002734
002742
002744
002752
002754
002762
002764
002774
003002

012746
066616
017616
042716
005737
001421
005737
100020
021637
001415

011637
032737
001022

.ENABL
..TRP: MOV
ADD
MOV
8IC

177776

000002
000000

177400
007166

007160

2(SP),(SP )
a(sP),(SP )
9177400,
( SP)
$..ER
2s
PSDSWR
34

(SP),$..ER

007166

007166
040000

LS8

38
MILSCP

OCT,2(SP)
START
(SP),s..ER
:EITIQ.PSDSHR

007160

MERROR
DEC,(SP)

MERRP2
032737
001414
005276
001011

032737

020000

007160

S5$
MERCOV

007160

100000

007160

032737
001004

010000

007160

032737
001004

010000

007160

001010

0CT1,2(SP)
gBITlB.PSDSHR
82(SP)

000002

040000

001014
032737

4%;

S$:

6%:

DEC,(SP)
@8IT14,PSDSWR

63
ORIT15,PSDSWR
63
z?ITIZ.PSDSHR

MERHLT
;?ITI?.PSDSUR

;REBUILD TRAP ADQRESS
0

;:GET TRAP CODE

;EXTRACT ERROR NUMBER

+FIRST ERROR OCCURENCE ?
s IF EQ, FIRST PASS
+SCOPE LOOP ?
H

:SAME SCOPE LOOP ?
:IF EQ, YES

s ILLEGAL SCOPE LOOP
:DUMP ADDRESS OF ERROR +2
;RESTART PROGRAM

1 STORE ERROR NUMBER
sINHIBIT PRINTOUT ?
s IF NE, YES

;PRINT ERROR MESSAGE PART

;:DUMP ERROR NUMBER
;1PRINT ERROR MESSAGE PART 2
;DUMP ERROR PC +2
s COUNT ERRORS ?
:IF EQ, NO
tCOUNT !
1IF EQ, OVERFLOW
:ERROR COUNTER OVERFLOW

:DUMP ERROR NUMBER
tPRINT

:IF NE,

:SCOPE LOOP ?
:+IF SCOPE, NO PRINT

sHALT AFTER ERROR SELECTED
+IF NE, YES

:STOP MESSAGE

sHALT

: IF EQ, YES

JEchis

DIAGNOSTIC

003004
003012
003014
003022
390 003026
391 003030
392 003034
003036

386
387
388
389

003042

003046
003050
003054

032737
001770
042737
005737
100005
005726
000177
005037
005726
062716
000002

MACRO M1200

30-MAR-84

004000

007160

004000
007160

007160

004130
007166
000002

7%:

16:02

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

PAGE 8-1

#8IT11,PSDSWR

(SP).
aSCOPAD
$..ER
(SP)e.
02,(SP)

SEQ 26

s IMMEDIATE CONTINUE ?
: IF NE,YES
+SCOPE LOOP ?
i

s IF PL,

sADJUST STACKPOINTER
sENTER SCOPE LOOP
;RESET ERROR NUMBER
sREADJUST STACK
:BUILD RETURN ADDRESS
;RETURN TO CALLER

§EC§6'-Q DIAGNOSTIC

MACRO M1200

30-MAR-84 16:02

399
400

:8§

401

48‘5

PAGE 9

LSBTTL

.. 107

SUBROUTINE:

§..IO0T

®"essssssese

SEQ 27

sessne~

THIS SUBROUTINE HANDLES ILLEGAL TRAPS OR INTERRUPTS,

406

: IF SUCH A TRAP OR INTERRUPT OCCURS, A MESSAGE IS

412
413

3
3

407
408
403

1 PRINTED, SHOWING THE VECTOR TRAPPED TO, AND THE PROGRAMS PC
+ WHERE IT WAS INTERRUPTED.
i THE PROGRAM HALTS THEN, AND MUST BE RESTARTED.

411

1 INPUT:

:{g

PS OF PROGRAM

(SP)

PC OF VECTOR .2

PC OF PROGRAM
PS OF VECTOR

1 OUTPUT:

MESSAGE TO THE OPERATOR

i+ AUTHOR:

BERT HUBER, CSS/DP MUNICH

:{g

4(SP)
2(SP)

:l?

6(SP)

22-JUWL-76

420

3 .PSECT CSSMON

421

422 003056

423 003066

424 003072

162716

425 003102

426 003112
427 003124
428

000002

$..I0T:

.ENABL

LSB

SuUB

02,(SP)

WRITE

MILTR1

;SEND FIRST MESSAGE PART

ocr,(SP)

;O0uMP VECTOR ADDRESS

ouMP

OCT,4(SP)

.DSABL

LS8

WRI o

000777

MILTRZ

1COMPUTE VECTOR

1SEND SECOND MESSAGE PART

1OUMP PROGRAM PC

tHANG UP SYSTEM

TIEC11-A DIAGNOSTIC
$..PWR

MACRO M1200

30-MAR-84

UT:
1 SUBROINE

a33
a3
a3s
a6
a37?

s THIS ROUTINE

477
478
479
480
481
482
483
485
486

SEQ 28

$..PWR
IS DIRECTLY ENTERED AFTER EACH POWER-FAIL

tAFTER A SUCCESFULL POWER-FAIL RESTART,
:

1 AUTHOR;
MZ001
'
'

aa3
444
4as

473
474

tAFTER THE POWER-UP INTERRUPT TO RESTORE THE SAVED REGISTERS

aa)
aa2

449

tHANDLE THE NECESSARY REGISTER SAVE OPERATIONS, AND IS USED

a3s
439
440

aa7
448

PAGE

$..PWR

430
a3y

446

16:02

asses

A SHORT MESSAGEW IS PRINTED.

BERT MUBER, CSS/DP MUNICH 27-JULY-76
SAVE THE OUTFLAG IN 3% AND RESTORE IT
AFTER PRINTOUT OF

THE POWERFAIL MESSAGE

: .PSECT CSSMON
010627
000000
012737
013727
000000
013727
000000
000777
005002
005202
020227
001374
013706
005037
005037
012737

003172
007152

000024

007150

.ENABL

PUSH

18:

. WORD

3s:

. WORD

Ss:

. WORD

28:

CLR

R2
R2
R2.0177777

177777
003144
007152
007150
003126

LS8

RO,R1,R2,R3,R4,RS

$..PWR:

SP,(PC).

1 STACKPOINTER - SAVE -AREA
1SETUP VECTOR FOR RESTART

1SAVE FOR FLAG

OUTFLG,(PC)e.

INFLAG,(PC).

1%,SP

%’J_Fkg
L

0%. .PWR,8024

000024

013727
000000

005700

005737
001375

007152

013737
005737
001411
013737

003160
007152

007152

003246

005700

112737
005737
001407

000012
003166

177566

013/37
000002

003166

007150

1SAVE STACK-POINTER

0
024,8024

1SAVE PRINT FLAG

1 SAVE INPUT FLAG

;MZ001

1MZ001

1SAVE WORD FOR INPUT FLAG

tWAIT FOR POWER DOWN
sDELAI
s THE
1POWER UP START

1tFOR 1SECOND

sREBUILD STACKPOINTER

sALLOW PRINTOUT OF PWFRL MES.
3

$MZ001

sREBUILD VECTOR SETUP

RS,R4,R3,R2,R1,RO

4% :

$..MSP,(PC).

$1SAVE OLD MESSAGE POINTER

MPWRF L
OUTFLG

1SEND POMWER-FAIL -MESSAGE
IWALIT FOR OUTPUT COMPLETE

8%:

TST

8O0TKS

33 ,0UTFLG

C’)UYFLG

63:

TST

BEQ
WRITE
MOV
RTI
.DSABL
.SBTTL

1MZ001

1ENABLE FURTHER TTY-INTERRUPTS
tRESTORE FLAG IF IT WAS SET

$MZ001

:IF AN OUTPUT BEFORE PWRFL WAS RUNNING

:
s THEN RESTORE OLD MESSAGE POINTER

012,807PB
St
6

tAND START INTERRUPT
1IF AN INP FLG BEFORE PWRFL WAS NOT SET
1GOTO 63

PROMES
Ss, INFLAG
LS8
$..RSV

3+ SUBROUTINE:

$MZ001
1MZ001

i
88,8, .MSP

80TPS
7%:

1SAVE WORD FOR OLD MESSAGE POINTER

$..RSV

1AND ENABLE INT IN TPS

tELSE WRITE »
tRESTORE INPUT FLAG IF IT WAS SET
sCONTINUE WITH PROGRAM

‘EC“\)A DIAGNOSTIC

D3
MACRO M1200

30-MAR-84 16:02

:gg

489

]

:gg

492
49%

31
:

4343
495
490
497

S02
S03

S04 003360

505 003374
506

INPUT:

(sP)

OUTPUT;

000176

000014

(SP)
2(SP)

CALLER PC

=
=

RS CONTENT
R4
CONTENT

RO CONTENT

:
:
:

4(SP)
6(SP)
10(SP)

=
=
=

14(SP)

12(SP)

5580
1

SEQ 29

THIS ROUTINE SAVES RO-RS ONTO THE STACK

::g

PAGE 10-1

R3 CONTENT
R2 CONTENT
R1 CONTENT
CALLER PC

1+ AUTHOR:
:-

BERT HUBER,

CSS/DP MUNICH

$..RSV:

RO,R1,R2,R3,R4,RS

12-APR-76

1 .PSECT CSSMON
.ENABL LSB

PUSH

JMP
.DSABL

814(SP)
LSB

sRETURPN TO CALLER

E3
TECLL
A DIAGNOSTIC
$..RRS

508
509
510
511
512
513
514
515
S16
517
S18
519
520
521
522
523
524
525
526
527
528
529
530 003400
531 003402
532 003416
533 003420
534

MACRO M1200

30-MAR-84

16:02

PAGE

SEQ 30

$..RRS

SUBROUT
INE :

$..RRS

THIS SUBROUTINE RESTORES R5-RO FROM THE

INPUT:

STACK

(SP)
2(SP)

=
=

CALLER PC
SAVED RS

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

=
=
=
=
=

SAVED R3
SAVED R2
SAVED R1
SAVED RO
OLD CALLER PC

4a(SP)

SAVED R4

OUTPUT;

REGISTERS ARE RESTORED AND STACK IS CLEANED

AUTHOR:

BERT HUBER, CSS/DP MUNICH

12-APR-76

: PSECT CSSMON

005726

005726
000176

..RRS:
177760

.ENABL
TST

LS8

JMP
.DSABL

8-20(SP)

POP
TST

(SP).

;POINT TO SAVED RS

RS,R4 ,R3,R2,R1,R0O

(SP3.

LS8

:SKIP OLD CALLER PC

;RETURN TO CALLER

IEC11-A DIAGNOSTIC
$..xB1

MACRO M1200

30-MAR-84

16:02

PAGE

.SBTTL

SEQ 31

., .xBI

536
537
538
539

SUBROUT INE :

$..KBI

THIS ROUTINE

IS ENTERED IMMEDIATELY AFTER AN INTERRUPT

INPUT:

2(SP)=
(SP)

OUTPUT ;

NONE

AUTHOR :

BERT HUBER,

FROM TTY-KEYBOARD.

ALL REGISTERS ARE

PS
5

SAVED ACROSS CALL.

CSS/DP MUNICH

S-APR-76

: .PSECT CSSMON
003424
003430
003432
003434
003440
003444
003452
003456
003462
003464

003472
003474
003476
003502
003506
003512
003516

003520
003524
003526
003532
003534
003540
003544
003546
003552
003556
003562
003566
003572

005737
001422

007152

005037
013700
012737
042700
022700
001003
012737

177560
177562
000100

0004 36
004737
013700
042700
122700
001003

$..KBI:

177562

177560

007170

000200
000003

$$SPE:

004737

006136

005737
001415
004737
020027
001010

007150

18:

003574
000015

Ss:

012701
010137
004737
004737
000002

007150
007026
007146
004010
003400

BEQ

CLR
MOV
MOV
BIC
cMP
BNE
MOV

13s:
003360

LSB

PUSH

000003

007777

.ENABL

TST

2%:
3s:

OUTFLG

13 3OUTPUT RUNNING ?

1 s SAVE

80TKS
80TKB,RO
€100,80TKS
©200,RO
#3,RO
134
@7777,SPEFLG

POP
BR

RO
3

MOV
8IC
cMPB
BNE

80TKB,RO
€200,R0O
#3,.R0
1

CALL

TST
BEQ
CALL
cMP
BNE
CLR
MOV
MOV
CALL
CALL
RTI
.DSABL

$..RSYV

$..PRO

INFLAG
24
$..INP
RO, 215
2
INFLAG
OKBBUFF ,R1
R1,KBBPNT
$..IAY
$..RRS
LSB

$133IF NE,

IGNORE INTERRUPT

33 s INHIBIT INTERRUPT
1 33GET CHARACTER
s sRE -ENABLE
s 3 sMASK OUT ASCII
s33 IS IT <«CNTRL C> ?
s133IF NOT, RETURN

$3:SET A SPECIAL FLAG
333 THIS FLAG IS USED TO FINISH
$33A RUNNING PRINTOUT AND THEN TO
+ 3 sREMEMBER THAT <CNTRL C> WAS MWIT

: 3 sREBUILD
333 RETURN TO CALLER
333SAVE ALL REGISTERS
$133GET INPUT BYTE
133BUILD REAL ASCII
:33<CNTRL C> FUNCTION ?
s33IF NE, NO
:133SEND PROMPT STRING
13 sRETURN
;33 INPUT FLAG SET ?
:3:3IF EQ, NO
: s sPROCESS INPUT
$133WAS IT A <CR> ?
s33IF NE, NO
: 3 sRESET INPUT MODE FLAG
1 s sREBUILD BUFFER POINTER
' ' '

1 3 sANALYZE INPUT
1 s 3sRESTORE REGISTERS
133RETURN TO CALLER

DIAGNOSTIC

MACRO M1200

30-MAR-84

16:02

PAGE

.SBTTL

SEQ 32

s..INP

t SUBROUTINE :

$..INP

: THIS SUBROUTINE IS THE INPUT-HANDLER FOR ALL TERMINALS
"AJ'SSDLE'Y‘E:LL CSS-MUNICH DIAGNOSTIC SOF TWARE GENERATED NOW
.

: THE SPECIAL FUCTIONS HANDLED BY THIS ROUTINE ARE:
<CNTRL U> FOR LINE RUBOUT
l
<DELETE> FOR CHARACTER RUBOUT

3RLL OTHER INPUT IS HANDLED AS NORMAL ASCI-TEXT AND STORED
:+ IN THE KEYBOARD INPUT BUFFER.
H

;s INPUT ;
:

(SP)

3
:

BERT HUBER CSS/DP MUNICH

s AUTHOR :

013701
012702
022701
001015
022700
001415
122700
001407
005037
000451
122700
001436
122700
001016
005737
001005
010637
012700
004712
020127

001434
114100
004712
000431
005737
001407
012700
004712
005037

004712

007146
006122
007146

.IDENT

.PSECT

.ENABL

$..INP: MOV
MOV

18:

000177

2%:

007162
007162
000057
007026

3s:

007162

Ss:

13:GET CURRENT BUFFER-POINTER
1 s sPOINT TO KEYBOARD-ECHO

CMPB

€177,RO

133<DELETE>»?

INFLAG

WRITE
BR

MKBOVF
74

BEQ

TST

RUBFLG

cMPB

cMPB
BNE

#25,.R0

€177,RO
4

BNE
MOV
MOV
CALL
cMP
BEQ
MOVB
CALL
BR

¢'/,RO
8R2
R1,9KBBUFF
INP. E
-(R1),R0O
aR2
INP. .E

BEQ

TST

PUSH

000057

KBBPNT ,R1
@%..KBO,R2

s33IF NE, NO
$133<CNTRL U>»?

CLR

000025

LSB

OKBBEND,R1
1
#25,R0

BEQ

007150

/V1.0/

CSSMON

cMP
BNE
cMP

BEQ

000177

CALLER PC

CURRENT INPUT CHARACTER

NONE

;:OUTPUT :

=
.

MOV
CALL
CLR
POP
CALL

3
SP ,RUBFLG

RUBFLG
RO

®'/,RO
aR2
RUBFLG
RC
aR2

: 33 INPUT-BUFFER FULL?

133
IF EQ,

YES.

s33IF EQ,

YES.

313 sRESET INPUTFLAG

33 sPRINT OVERFLOW-MESS.
33 sPROMPT FOR INPUT

$33<CNTL U»?

s3sIF NE, NO

:33<DELETE>»?
s3:IF NE, NO
$:3FIRST RUBOUT?
s:3IF NE, NO
:33FLAG R\BOUT MODE

33 3PRINT "/
183
.
$133FULL LINE DELETED?

133IF EQ, YES
:3:NO, REMOVE CHARACTER
:33AND ECHO IT
$33WAIT FOR NEXT INPUT
1 3 sRUBOUT MODE?
s33IF EQ,
:133YES,

SAVE CURRENT

INPUT

:133ND OF RUBOUT
1 33ECHO /"
13 3RESET RUBOUT MODE FLAG
133GET CURRENT INPUT AGAIN
133:ECHO IT

DIAGNOSTIC
003742
003744
003746
003752
003754
003760
003762
003766
003772
003776
004002
004006

110021
000414
012700
004712
012700
004712
005037
012701
004737
010137
116100
000207

MACRO M1200

000136

30-MAR-84

006136
007146
177777

PAGE

13-1

MOVB

RO,(R1).

MOV
CALL
MOV
CALL
CLR
MOV

2136,R0
aRrR2
@'VU,RO
8R2
RUBFLG
OKBBUFF ,R1

INP, .E: MOV
MOVB

R1,KBBPNT
-1(R1),RO

6%:

000125
007162
007026

16:02

7%:

CALL

RETURN

.DSABL

INP, .. .E

$..PRO

LSB

H3
SEQ 33

1313SAVE IN IPUT BUFFER

3 33WAIT FOR NEXT INPUT
s33ECHO "t~
X1

13 31ECHO :U"
1

+ 3 sLEAVE RUBOUT MODE
$33RESET INPUT BUFFER POINTER
: 1 sPROMPT FOR INPUT
13 sSAVE POINTER
:33SAVE LAST CHARACTER
:133RETURN TO CALLER

IEC}I -A DIAGNOSTIC

s$..IAY

MACRO M1200

30-MAR-84

16:02

PAGE

.SBTTL

661
662

1 SUBROUTINE :

663

664
665
666
667
668
669
670
671
672
673

SEQ 34

§..IAY

$..IAY

sLEGAL INPUT TYPES ARE:

ERR=

FOR ERROR -HANDL ING

SET

FOR DEBUGGING OPTIONS

W-

FOR CORE -DUMP OPTIONS

WWTTED INPUT FOR SPECIAL REQ.

s INPUT: (SP)=
;OUTPUT;

;s AUTHOR ;

RETURN PC

NONE

BERT HUBER, CSS/DP MUNICH

28-JUN 76

‘-

: .PSECT CSSMON

122711

000015

s..IAY:

.ENABL
CMPB

LSB
015,(R1)

133<CR>?

005737
001035
122711
001003
004737

007174

3s:

TST

$ . SASF

33 sDONT ANALYZE IF ASCII INPUT RUNNING

001440

BEQ
BNE

IAY, .E
IAY, .E

000104

CcMPB

¢'D,(R1)

004210

CALL

$..IAD

000123

BNE

18:

004402

000105

2%:

004472
000101

4%:

004120

007156
006262

S$:

IAY. .E

CMPB
BNE
CALL

@'S,8R1
23
$..IAS

cMPB
BNE
CALL
B8R
CMPB
BNE
CALL

¢'E,8R1
as
$..IAE
IAY. .E
@'A,3R1
Ss
$..IAA

TST

INPREQ

BNE
CALL

IAY, .E: RETURN
.DSABL

IAY, .E

IAY, .E
$..5TX
LSB

s33IF EQ., SKIP ANALIZATION
s33IF NE, YES.

:33'OMP” REQUESTED?
s133IF NE, NO

: s sANALIZE DUMP REQUEST
133RETURN TO CALLER

$33'SET"” REQUESTED?
s:IF NE, NO
s 33ANALYZE SET REQUEST
:ssRETURN TO CALLER

:33"ERR” -REQUEST?
s33IF NE, NO
:: sANALYZE ERROR REQUEST
:33RETURN TO CALLER
:33"ABO" REQUESTED ?
s33IF NE, NO
1 :3ANAL YZE ABO-REQUEST
:1s3RETURN TO CALLER

:133NO SYNTAX ERROR IF SPECIAL INPUT RUNNING

sis"
: 3 sSYNTAX -ERROR

:3ssRETURN TO CALLER

IEC11-A DIAGNOSTIC
$..IAY

MACRO M1200

30-MAR-84

16:02

PAGE

SEQ 35

706

707

708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724

.SBTTL

s SUBROUTINE:
:

sLEGAL INPUT IS
INPUT
OUTPUT:

$..IAA
N“On

NONE

IF IN THE PROGRM THE LABEL ""$,.SPC"" IS USED,

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

IF THIS LABEL IS NOT USED,

725

MZ001

726

727
728
729

730
731
732
733
734
735
736 004120
737 004122
738 004130
739
740 004134

741
742
743
744
745 004140

746
747
748
749
750
751
752

$..IAA

004164
004170
004172
004176
004200
004206

AND A JUMP TO THE BEGIN OF
IS PERFORMED.

THE STACK IS INITIALIZED
THE DEVICE-TEST PROGRAM

THE MACRO “PSET”ALLOWS TO RUN THE CDM EITHER ON PDP
OR ON LSI.

sAUTHOR ;
‘

M. ZILLER,

CSS/DP MUNICH

ocrT.

1976

: .PSECT CSSMON
$..IAA:

000005

.ENABL

LSB

80TKS
O@START,SP

1STOP ANY ACTIONS
sSWITCH ON TTY-INT,
s INITIALIZE STACK

@s..5PC,-(SP)

$SET THE LABEL

RESET

012706

001204

SETé
MOV

012746

011342

MOV

JIF DF
.ENDC
.IF NOF

020027
001374
012737
000207

007026

1$:

007202
007026

007146

$..SPC

""$..SPC"" FOR DESTINATION

MOV

oCDM,
.E, -(SP)

$SET END OF MONITOR FOR DESTINATION

PSET

CLR
cMP

(RO).
RO, OPROMES

;:CLEAR PS
sRESET BUFFERS

.ENDC

012700

8,.SPC

MOV

BNE

OKBBUFF ,RO

MOV

OKBBUFF ,KBBPNT

.DSABL

LSB

RETURN

$MZ0O01

sREBUILD BEGIN ADDRESS
:GOTO POINT OF CONTINUATION

}EC%:;A DIAGNOSTIC

MACRO M1200

30-MAR-84 16:02

754

PAGE 1o

SEQ 36

s .PSECT CSSMON

755

758

760
761

:
: SUBROUT INE

763

756
757

IK3

:
:

759
762

.SBTTL

j*ssssssass

;6g

s..IAD
:

$..IAD
ssssss

MZ001

766

MODIFICATION TO ALLOW THE <CR> AFTER INPUT

769

767

770
771
;;g

:
H
:
N

774

775
776
;;7
8

:
3
:
H

779

:005201

789 004216

001027

791 004224

001024

793 004232
794 004234
795 004240

001021
004737
103416

797 004246

100375

122127

000115

122127

000120

122127

000057

177564

798 004250

012737

000012

800 004262

100375

801 004264
802 004274
803 004276

804 004302

805

(SP)

105737

000402
004737
000207

177564

006262

177566

12%:

77%:

IAD..E:

*RETURN ADDRESS

OCTOBER 1976

s .PSECT CSSMON

.ENABL

LSB

CMPB

(R1)+,0'M

INC

sPOINT

77%

iNO

cMPB

(R1)+,0'P

cMPB

(R1)+,8'/

TSTB

80TPS

MOV

€12,80TPB

BPL

BNE

11%:

THE CONTENT OF A LOCATION IS

M. ZILLER, SS/DP MUNICH

BNE

004304

105737

799 004256

$..IAD:

WHEN TERMINATED BY <CR>

PRINTED AND THE RETURN IS PERFORMED
WHEN INPUT IS TERMINATED BY A ““/""THE MONITOR WAITS
FOR INPUT AND LOADS THIS INPUT INTO THE EXAMINED LOCATION.
MODIFIED LOCATION IF REQUESTED

787 004210

796 004242

s AUTHOR :

785

792 004226

784

790 004220

THIS SUBROUTINE IS ENTERED WHEN A DUMP-REQUEST IS ANALYZED.
DEPENDING ON HOW THE REQUEST IS TERMINATED, THERE ARE TwWO
WAYS FOR RETURN:

;OUTPUT

;gg

788 004212

TO COMPLETE.

s INPUT

;:(1)

786

sssew

BNE
CALL
BCS
BPL

1ST8

ouMP
B8R
CALL

RETURN

77%

77
$..NOR
77%
118

80TPS

OCT,(RO)
IAD. .E
$..STX

"M"

IS IT A "M”
IF NE

IS IT A "P”
sNO IF NE

838 2% A

iNO IF NE
sRETRIEFE INPUT
;IS CS, INPUT FORMAT ERROR

:IS THE <CR> FINISHED ?
:

sPRINT A <LF
:DONE

;MZ001

:MZ001

;WAIT FOR COMLETION

sAND PRINT
;GO TO END
sWRITE SYNTAX ERROR MESSAGE
sRETURN TO MAIN

s ks

DIAGNOSTIC

MACRO M1200

30-MAR-84 16:02

807
808

SEQ 37

PAGE 1/

THIS IS THE ROUTINE GET THE OCTAL VALUE OF THE ADDRESS

809

810

811
812
813

000006
000015

814
815
816
817
818
819

.NOR: CLR

000057

000060

06 ,R2
8R1,015
NOR. .E
SR1,0'/
NOR. .E
#60,8R1

cMPB
BHI
ASL
ASL

8R1,087
NOR.ER
RO
RO

BMI

000007

ASL

BISB
DEC
BNE

000015

cMPB

BEQ

CMPB
BNE

000057

NOR. .E: CLC
NOR.ER:

1CLEAR STORAGE OF NUMBER
tCLEAR DIGIT COUNTER
+IS IT A TERMINATOR ?
+IF EQ, YES

MOV
cMPB
BEQ
cMPB
BEQ
8ICB

:
:

;BUILD REAL BINARY

sIF MI, IT WAS LOWER THAN 60
+IS IT REAL OCTAL ?
s IF HI,NO REAL OCTAL

NOR.ER

sMULTIPLY

sWITH 10 IN

sOCTAL

;SET THE TRUE BITS
sCOUNT DIGITS BUILT

(R1)+,RO
R2
1$

sALL DONE?

;IS THE LAST « 1 BYTE A TERMINATOR?

8R1,015

:IF YES THEN SYNTAX OK

NOR. .E

8R1,0'/
NOR.ER

;s TERMINATOR IN SET COMMAND?

:IF NOT THEN SYNTAX ERROR
;s INDICATE SUCCESSFUL OPERATION

RETURN

+ INDICATE FAILURE

SEC

RETURN

H
HEd

s SUBROUTINE :

'.--......'-

$..IAS
sSsssas

:
‘

;THIS SUBROUTINE IS ENTERED IF THE INPUT ANALYZER DETECTS A SET-COMMAND
i

:
:
5

INPUT:

(SP)
R1

= RETURN ADDRESS
=
BEGIN OF

OUTPUT :

INFUT STRING

MODIFIED LOCATION

i
;.

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

000105
000124

000057
004304

004470
000057
004304
000010

$..IAS:

INC

;POINT

TO “E"

cMPB

(R1)+,0'7

;1CORRECT
iNO IF NE
;CORRECT SYNTAX ?

cMPB

(R1)+,0'/

;CORRECT SYNTAX ?

cMPB

BNE

BNE
CALL
BCS

MOV
CcMPB
BNE
CALL
B8CS
MOV

(R1)+,0'E
76

76
$..NOR

768

RO,2$
(R1)e,0'/
76
$..NOR
76%
RO,a2$

iNO IF NE

;BUILD ADDRESS TO MODIFY
+IF CS, FORMAT ERROR
: SAVE
;CORRECT SYNTAX ?
iNO IF NE
;BUILD DATA TO INSERT
+IF CS, FORMAT ERROR
1 AND LOAD

M3
‘EC}&-’A DIAGNOSTIC
864 004460
866

867 004470

868

MACRO M1200

30-MAR-84 16:02

000402

000000

2%:

N 3

WORD

.DSABL

PAGE 17-1
IAS, .E

LSB

SEQ 38
;GO TO END
§

URN

1 SORAGE FOR ADDRESS TO MODIFY

I EC11-A DIAGNOSTIC
$ ..IAD

MACRO M1200

30-MAR-84

16:02

PAGE

SEQ 39

870
871

872
873
874
875
876
877
878
879

.SBTTL
H4

s SUBROUTINE :

§..IAE

$..IAE

:TNIS ROUTINE CHECKS THE CORRECT SYNTAX OF
;AN"ERR”- INPUT STRING AND PROCESSES THE
+REQUESTED 'SWITCHREGISTER-OPTIONS'.
B

sLEGAL SWITCH OPTIONS ARE:
:

/HT

HALT AFTER ERROR (DEFAULT)

3
H

/PR
/NP

=
=

DRINT ERROR MESSAGE (DEFAULT)
INHIBIT ERROR PRINTOUT

/NC

/NS

/NH

/CT

/SC

/CONT

NO HALT AFTER ERROR

COUNT ERROR

NO ERROR COUNTING (DEFAWLT)

NO SCOPE LOOP (DEFAULT)

SCOPE LOOP ON THIS ERROR

IMMEDIATE CONTINUE SWITCH

3
:

s INPUT ;
;OUTPUT ;

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

s AUTHOR :

BERT HUBER, CSS/DP MUNICH
;s .PSECT CSSMON
.ENABL

007160

$..IAE: MOV

MOV

CLR

000003
000075

000057

18:

ADD
cMPB
BNE

cMPB8

BEQ

004552

004570
004574

121127
001002
005201
005004
121127
001426

121127

001437
121127
001472

121127

001106

000123
000103

000110
000120

zs:

:133FLAG FOR VERY FIRST CHARACTER

:33USE AS 'CHARACTER 1°
:33sSKIP IDENTIFYER

OPSDSWR,R3
o3,R1
(R1)+,0'=
778

(R1)+,0'/

BR
CLR
INC

11%
R2
R4

BNE
INC

3
R1
R4

BEQ
cMPB
BEQ

Ss
(R1),0°'C
78

:1]

BNE

178

cMPB

000116

LSB

SP,.R2

TST

BNE
28:

28-JULY-76

CLR
cMP8

cMPB

cMPB8

77%

(R1),&'N

(R1),& S

(R1), o2~

(R1),2 P

33:GET 'SWR” ADDRESS

:3:CORRECT SYNTAX?
: s sBRANCH IF NOT
:3:IS NEXT CHAR, A '/’
;33 IF EQ, YES
133 VERY FIRST?
s33IF YES: SYNTAX ERROR
:33ASSUME END OF STRING

::sNO LONGER VERY FIRST
:33:SET FOR 'C1' -FLAG
s3:IS IT THE ' /N“-OPTION?
33 sBRANCH IF NOT
: s sADVANCE TO NEXT CHARACTER
:33RESET ‘Cl' -FLAG
s33IS IT A 'S*?
;3 :BRANCH IF YES
sssIS IT A C 2
YES
BRANCH IF
333
333IS IT Arm 2
i:3 BRANCH IF YES
7}
9
22118 EV A
s331F NO: SINTAX ERROR

DIAGNOSTIC

927 004576
928 004600
929 004602
930 004606
931 004610
932
933
934
935
936
937
938
939

004770
004774
004776

005010
005012
005016

350 -MAR-84 16:02

001004
052713
005201
000741
005201

122127

001074
042713
000732
005704
001003
042713
000762
005201

001060
052713
000716
126127
001016
126127
001045
126127
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

PAGE

TST

005704

122127

004740
004744

MACRO M1200

BNE

040000

30%:
4%

000122
040000

Ss:
100000

68:

000103

8IS

78:

000116

000124

708

020000
000124

8s:

93:
010000

000124

108:

(R1)+,0'R
77
MBIT14,(R3)
1
R4
[X]
BIT15,(R3)
308
R1
(R1).,0'C
774

INC

cMP8

MBIT15,(R3)

1(R1),¢'0

BNE
cMPB
BNE
cHP8
BNE

708
2(R1),0'N

ADD
BR

5,R1
11¢

778

S(R1),0'T
778

BIT11,PSDSWR

TST

BIC
B

MIT13,(R%)
308

BNE

INC
cMP8

BIS

MBIT13,(RY)

TST

BIS

MIT12,(R3)

B8R

BNE

(R1)s,0'7
77

BR
INC
cMB

304
R1
(R1)s,0'7

B8IC

BIT12,(R3)

cMPB

(R1),015

BNE

010000

MIT14,(R3)

cCMPB
BNE
B8IC
Br
TsTY
BNE
B8IC
B8R
INC
cMPB
BNE

BNE

020000

R1
1

BIS

007160

INC
[E14

8IS

000117

18-1

000015

11%:

006262

778:
CALL
IAF . .E: RETURN

BEQ

77%

IAE. .E

$..5Tx

.DSABL LSB

SEQ 40

s0sIS IT A 'P' 2
11 1BRANCH IF YES
131SET SR-BIT FOR /NP
s s sADVANCE TO NEXT CHARACTER
30 9CHECK FOR NEXT SWITCH

1 1 INEXT CHARACTER

$93IS IT A /PR’ 2
s33IF NO: SYSNTAX ERROR
$33SET ' /PR’ -OPTION
13 3CHECK NEXT SWITCH
s3sIS IT 'S/t 2
11 1BRANCH IF YES
133SETUP FOR ' /NS' OPTION
133 TRY NEXT

s s sNEXT CHARACTER
s33IS IT A /SC* ?
s33IF NO: SYNTAX ERROR
133SETUP FOR */SC' -OPTION
s 3sCHECK NEXT SWITCH
11 3sCHECK FOR ' /CONT'
sssIF NE , OTHER
33 3CHECK FOR ;/CONT’
ss3IF NO: SYNTAX ERROR
s 33sCHECK FOR * /CONT'®
133IF NO: SYSNTAX ERROR
133SET ' IMMEDIATE CONTINUE
13 3ADJUST POINTER
133:END THIS SCAN
s1331IS IT A */CT" 2
1 1 sBRANCH IF YES
$33SETUP FOR

' /NC' -OPTION

3133 TRY NEXT SWITCH
13 sADVANCE TO NEXT CHARACTER
133IS IT A*/CT' -OPTION ?
s33IF NO: SYNTAX ERROR
$133SETUP FOR ' /CT* OPTION
133CHECK NEXT SWITCM
$33IS IT '/HT* 2
1 1 3BRANCH IF YES
$33SETUP FOR

' /NP' -OPTION

$33TRY NEXT

SWITCH

$33TRY NEXT

SWITCH

1 8 sADVANCE TO NEXT CHARACTER
133IS IT A "/HT* 2
s33IF NO: SYNTAX ERROR
133SETUP FOR ' /MT' -OPTION
$33WAS LAST BYTE A <«CR»?
11 $1BRANCH IF YES
133SYNTAX ERROR

13sRETURN TO CALLER

}ECééél DIAGNOSTIC

MACRO M1200

30-MAR-84 16:02
.SBTTL

980

’o

jeeescsssns

981

PAGE 19

1 SUBROUT INE

983

985

1eeee ABOO

984

SEQ 41

¢, .RED

$..RED
sesses

986
987

B
:

THE CARRY BIT IS SET IF A ZERO OCTAL INPUT (ONLY CR,NO DATA)
HAPPENS

990

1 THIS SUBROUTINE HANDLES ALL TYPES OF SPECIAL INPUT REQUESTS

991
:g

1SETUP BY THE PROGRAMMER THROUGH A ' READ ' MACRO.
sLEGAL INPUT TYPES THAT CAN BE MANDLED ARE:
i

?’:‘5

lBMV FORMAT (EXx:

990
997
998

1001101101010001)

aIWY CAN BE UP TO 16-DIGITS OF THE FORM O OR
1
sLESS THAN 16 DIGIT INPUT IS FILLED UWITH LEADIl(i ZEROES
s INPUT IS RETURNED IN RO.

1 THE PREVIOUS CONTEND OF RO WILL BE OVERWRITTEN.
H

{ggé

lmTflL FORMAT (EX:176523)

1003
1004
1005
1006

lIWT CAN BE UP TO 6 DIGITS OF THE FORM O-7,
:IN CASE OF A 6-DIGIT-WIDE INPUT, THE LEF"QS?(NIGN ORDER)
1DIGIT IS TRUCTATED TO THE RIGNT'QSY (LOW ORDER)BIT.
sIN CASE OF LESS THAN 6 DIGITS INPUT, LEADING ZERO DIGITS

1008

s THE RESULT IS RETURNED IN RO,HEREBY OVERWRITING

1007

sARE INSERTED.

}8(1)8

1 THE PREVIOUS CONTENT OF RO.
i

{g{;

IWCINN. FORMAT (EX: 96003)

1013

1014

IIWT CAN BE UP TO S DIGITS OF THE FORM 0-9.
sLESS THEN FIVE DIGITS INPUT ARE FILLED UP WITH

%8{3

s1PREVIOUS CONTENT OF RO.

1015
1016
1017

sLEADING ZEROE DIGITS.
sMAXIMUM NUMBER ALLOWED IS 32656.
s INPUT IS RETURNED IN RO, HEREBY OVERWRITING THE
:

1020

sASCI FORMAT (EX: B6TSEL)

1021
1022
1023

e eecececccncancnccanann
:
s INPUT CAN BE ANY LEGAL ASCII CHARACTER.

1024

s IF INPUT INTO A BUFFER IS REQUESTED, UP TO 80

1025
1026

sCHARACTERS CAN BE INPUT,
s IF INPUT RETURN IN RO IS REQUESTED,ONLY THE FIRST

{85;

;&MSSCTER WILL BE RETURNED IN THE LOW ORDER BYTE
i

1029
1030

;OLD CONTEND OF RO IS OVERWRITTEN IN THIS CASE.
s IF THE ONLY INPUT IS <CR>, ZERO WILL BE RETURNED IN RO

{ggé

sAS WELL

]

{83

s AUTHOR ;

THE FIRST BYTE

BERT HUBER,

THE

SPECIFIED BUFFER,

CSS/DP MUNICH

29-JUN-76

‘.

1035 005020

004737

006136

$..RED:

CALL

$..PRO

1PRINT PROMPT

STRING

IEC11-A DIAGNOSTIC

MACRO M1200

30-MAR-84

$..RED

007156
000002

1036 005024
1037 005030
1038 005036
1039 005040

007174

1040
1041 005044
1042

1043

1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059

1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077

100%:

007150
012701
016602
000172
005112
005270
005504
005444
005464
005000
005037
121127
001014

1044
1045
1046

000004

14:

007026
000014

005100

2%:

$..0CT:

005244
000015

005312

SP, INPREQ
2(SP),0a
1004
SP,§,SASF

1SET SPECIAL REQUST FLAG
1DETECT SPECIAL ASCII INPUT RUNNING
iNO ASCII INPUT

TST
BNE
PUSH
MOV
MOV
JMP

INFLAG
14
R1,R2,R3,R4,RS
MKBBUFF ,R1
14(SP),R2
828(R2)

tWALIT FOR INPUT COMPLETE

$..DEC
$..BIN
$..8UF
$..ASC
CLR

$..0CT

007156

CLR

INPREQ

4%;

000060

Ss:
68:

000015
000001

7%:

$..0EC:

000015

SEC
RE TURN

14:

007026

2%:

1SAVE REGS
1GET INPUTPIONTER
1GET INPUTMOFE INDICATOR
1SELECT REQ. INPUT
tHANDLE OCTAL INPUT
yMANDLE DEC(MAL INPUT
1HANDLE BINARY INPUT
tHANDLE ASCII INPUT INTO BUFFER
sHANDLE ASCII

INPUT

1CLEAR INPUT POINTER
tRESET COUNTER

INTO BUFFER

1+ZERO INPUT ?
1 IF NE, SKIP
1444AB00: RESTORE GEN. REGISTERS
1044AB00: REAJUST RETURN ADDRESS

1044ABOO:

1040AB00: RESET SPECIAL REQUEST COUNTER
1000AB00:

SET CARRY AS ZERO INPUT INDICATOR

1#44AB00: AND GO BACK TO CALLER

1 ADJUST .x.wur CHARACTER

RO
RO
RO

BEQ

sALL INPUT MANDLED ?
stMORE THAN 6 DIGITS INPUT

MILOCT

sLEGAL OCTAL DIGIT ?
s IF LOS, YES
s ILLEGAL OCTAL INPUT

cMP8
BLO
cMPB
BLOS

WRITE

POP

BR
8ICB
B8IS8
INC
.WORD
cMPB
BNE
cHP
BNE
SEC

648,06
8R1, 060
4%
8R1,067
Ss
RS,R4 ,R3,R2.R1

$..RED
060,8R1
(R1)+,RO
(PC)e.
0
8R1,015
3
68,01
14}

eRr

RED. .E

CLR

cMPB

015,(R1).

BEQ

INC

000005

(SP).

1SET SPECIAL ASCII INPUT FLAG

ASL
ASL
ASL

cHp

000067

005244

CLR
cMPB
BNE
TST

000006

SEQ 42

MOV
cHP
BLE
MOV

POP
MOV

000060

000557
005000
005004
122721
001402
005204
000773
012701
020427

19-1

000002

005244

000672
142711
152100
005227
000000
121127
001341
023727
001001
000261

PAGE

6
8R1,015
3
RS,R4 ,R3,R2,R1
(SP),2(SP)

3s:

121127
101412

16:02

MOV

cMP

R4
OKBBUFF ,R1

R4,05

sLEGAL OCTAL DIGITY

sRESTORE REGS
sRESTART

INPUT SEQUENCE

1BUILD BINARY

s INSERT INTO BUFFER
sCOUNT INPUTS MANDLED
tDIGIT COUNTER

1END OF INPUT DETECTED?

1 IF NE , NO
1SET CARRY IF ONLY CR WAS THE INPUT

:SEY CARRY
1END OF INPUT
1CLEAR TRANSFER BUFFER
tRESET COUNTER
1END OF INPUT ?

;:DIGIT COUNTER
1CEEP COUNT ING
1SET INPUT BI¥FER POINTER
tMORE THAN S DIGITS ?

{Ec‘l.ééfl DIAGNOSTIC
1093 005316
1094
1095
1096
1097
1098

005320
005330
005342
005344
005346

005704

1103 005374

006204

1105 005400
1106 005402
1107 005406
1108 005410
1109 005414
1110 005416
1111 005422

1112
1113
1114
1115
1116

005424
005426
005430
005432
005434

1117 005436
1118 005440

1119 005442
1120 005444
1121 005450
1122 005452
1123 005454
1124 005456
1125 005462
1126 005464
1127 005466
1128 005472
1129 005476
1130 005500
1131 005502
1132 005504
1133 005506
1134 005512
1135 005516
1136 005520
1137 005526
1138 005530

1139
1140
1141
1142
1143
1144
1145

000000
000144

as:

005360
000001
001750

000012
023420

005003

112103
020327
103744
020327
101341
042703
005703

000137
121127
001407
121127
001011
006300

1147 005600
1148 005602

000401
006300

052700

6$:

000071
177760
7%:

13%:

000015

007174
000015

005624
000015

005020
000060

005624

+IF LOS, NO

R4
S$(R4),R2
68

1BUILD TABLE OFFSET
1SETUP CORRECT PARAMETER
1SKIP TABLE

.WORD

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

ASL
MOV
BR

tREBUILD R4 CONTENT

MOV
cMP
8LO
cMpP
BHI
8IC

(R1)+,R3
R3, 060
33
R3, 071
33
0177760,R3

1GET FIRST DIGIT
1CHECK LOWER DIGIT RANGE
+IF LO, ERROR
1CHECK UPPER DIGIT RANGE
1 IF HI, ERROR
sCONVERT TO OCTAL

CLR

8EQ
CLC
ADD
8Cs
DEC
BNE
DEC

134

8R1,060
33
8R1,061
43

POP
JMP
cMP8
BEQ
CMPB
BNE
ASL

8IS
BR
ASL

7%
RO

+ZERO DIGIT?

+IF NE, NO
¢NEXT DIGIT

RS,R4,R3,R2,R1
$..RED

RO
o8ITO,RO

sRESET SAVE BUFFER

1 IF EQ, YES
tRESET CARRY
:BUILD OCTAL NUMBER
;ERROR IF OVERFLOW
sALL DONE?

R2,RO
3%
R3
78
R4

2s:

3s:

s ILLEGAL DECIMAL INPUT
REST, REGS
tRESTART INPUT
+ZERO DIGIT COUNT ?
+IF EQ, YES

ASR

4
@15,(R1)
14
(R1)
R1,RO
$ . SASF
REv. .E
RO
$.SASF
#15,8R1
RED. .E
8R1,RO
RED. .E
RO
63
@15,8R1
RED. .E
e17.,6%
2
MILBIN

000001

SEQ 43

MILDEC
R5,R4,R3,R2,R1
$..RED
R4
RED. .E

BR
CMPB
BNE
CLR
1%:
MOV
CLR
BR
$..ASC: CLR
CLR
CcMP8
BEQ
MOVB
BR
$..BIN: CLR
CLR
CMPB
BEQ
1%:
cHP
BNE
S$:
WRITE

000061

PAGE 19-2

WRITE
POP
B8R
TST
BEQ

$..BUF:

007174

000021

BLOS

TST

001373
005304

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

S¢%:

000060

001405
000241
060200
103732
005303

005540
005552
005556
005562
005564
005570
005572

1146 005574

3s:

000626

1099 005350
1100 005352
1101 005356

1104 005376

30-MAR-84 16:02

101412

001527
006304
016402
000406

1102 005360
005366

MACRO M1200

:
+ZERO DIGIT ?
1 SKIP IF NOT
tRESET FIRST INPUT WORD
1 TRANSFER BUFFER ADDRESS
tCLEAR SPECIAL ASCII FLAG
1END OF INPUT
:
tCLEAR SPECIAL ASCII INPUT FLAG
1 ZERO INPUT
+IF EQ, YES
;GET FIRST BYTE
tEND OF INPUT
:
tRESET COUNTER
+ZERO INPUT?
1END OF INPUT
1700 MANY DIGITS?
+IF NE, NO
s ILLEGAL INPUT MESSAGE

;;REST. REGS
1REENTER
;ZERO DIGIT ?
1BRANCH IF YES
tONE DIGIT ?
1BRANCH IF NOT
tADJUST TRANSFER BUFFER

: INSERT INTO TRANSFER BUFFER
)

1ADJUST

TRANSFER BUFFER

Fq
DIAGNOSTIC

005604
005606
005612
005614
005622
005624
005626
005640
005644
005646
005652

005201
005237
000742
121127
001343
000401
000000
011666
005726
005037
000207

MACRO M1200

005624
000015

16:02

7%:

INC
INC
BR
CcMPB
BNE
BR

R1
63
14
8R1,015
Ss
RED. .E

POP
MOV

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

64:

000002

007156

PAGE

30-MAR-84

“D.

.WORD

TST

CLR

RETURN

19-3

(SP).

INPREQ

SEQ 44

tPOINT TO NEXT INPUT
1COUNT INPUTS
1CHECK NEXT
?
tEND OF INPUT

mo. ILLEGAL CHMACTER

CMTER

lflEST REGS

nREAo.MST STACK RETURN ADDRESS

tRESET SPECIAL REQUEST POINTER
sRETURN TO CALLER

TIEC11-A DIAGNOSTIC
$..WRT

MACRO M1200

30-MAR-84 16:02

.SBTTL

1162
1163
1164
1165

PAGE 20

SEQ 45

.. .m'

s SUBROUTINE:

1166

.. .mr

+ THIS ROUTINE IS CALLED TO SETTUP A MESSAGE PRINTOUT ON CONSOLE

1167
1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181

1ALL PRINTING IS CONTROLLED BY INTERRUPT EXEPT <CR>,

s INPUT;

2(SP)
(SP)

'
:

=
.

<LF>,

ADDRESS OF MESSAGE TEXT
CALLER PC

MESSAGE ON TERMINAI

sOUTPUT:
3

BERT HUBER CSS/DP MUNICH

s AUTHOR;
:

+MODIFIED BY:
:

JOHN LEVESQUE

28-JUN-76

CSS ISG

23-JAN-83

MODIFICATION REQUIRED TO HANDLE XON AND XOFF

:
:
'-

: .PSECT CSSMON

005710
005716

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

007152

$..WRT:

BNE
TST

007150

BNE
MOV
MOV
$..MSP: .WORD
MOV

007152
000002
005736
000340

MOV

MOV
BIS

000100
007152

177564

000023

177562

1s:

122737
001367

000021

177562

3s:
200

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

177714

000404

.ENABL
TST

TST

BNE
RETURN

LSB
OUTFLG
$..WRT
INFLAG
$..WRT
SP,OUTFLG
2(SP),(PC)»
O
01%,8064
#340,8066
(SP)+,(SP)
0100,80TPS
OUTFLG

.-4

cMPB
BEQ
BR
cMPB

023,80TKB
34
208
021,30TKB

000135

CcMPB

8%..M5P,0')

177704

000133

CMPB

8s..MSP, o' [

000100
000015
177564

177564
177566

005700
000012
000100

177630
005700

BEQ

YES - WAIT

;s INPUT RUNNING ?

:1IF NE, YES - WAIT
1SET OUTPUTFLAG
:GET MESSAGE POINTER
s1MESSAGE POINTER
:SETUP VECTOR
83

sUPDATE STACK
;ENABLE INTERRUPTS
;OUTPUT RUNNING?

;IF NE ,YES->WAIT
tRETURN TO CALLER

i3s3
333
333
i3s3
333

:4eGS0001
¢

NO XON GO WAIT FOR IT

:END OF MESSAGE ?

30$

133IF NE, NO

TST8
BPL

80TPS
.-4

133WAIT FOR DONE
13

MOV

012,807PB

0100,80TPS
€15,807P8

:¢eGS0001
2

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

133 IF EC.

BIC
MOV

YES

$33<CR>,<LF>?

13 3DISABLE INTERRUPTS
133SEND <CR»>

$..MSP

33 3POINT TO NEXT CHARACTER

BIS

0100,80TPS

3 s sRE-ENABLE INTERRUPT

MOVB
INC

8%..MSP,80TPB
$..MSP

INC

30$:

;IF NE,

WRT. .E

B8NE

177566
177564

177566

BNE

;OUTPUT RUNNING ?

RTI

$133SEND <LF>

133RETURN TO MAIN PROGRAM

:133SEND NEXT CHARACTER
s 33POINT TO NEXT

133RETURN TO CALLER

H4
iccuia DIAGNOSTIC

1219 006060
1220 006066
1221 006072
1222 006076
1223 006100
1224 006104
1225 006110
1226 006114
1227 006120
1228

042737
005037
005737
001410
005037
005037
004737
000137
000002

MACRO M1200

000100
007152
007170
007170
007156
003360
003520

30-MAR-84 16:02

177564

WRT,.E: BIC
CLR
TST
BEQ
CLR
CLR
CALL
JMP
4as:
RTI

PAGE 20-1

#100,80TPS
OUTFLG
SPEFLG
as
SPEFLG
INPREQ
$..RSV
$$SPE

.DSABL LSB

SEQ 46

133DISABLE OUTPUT INTERRUPT
13 3RESET OUTPUT FLAG
133 THIS FLAG IS SET ONLY
13 sWHEN DURING A PRINTOUT
133 THE <CNTRL C> COMMAND WAS
+ 1 yNECCESARY TO INTERRUPT THE
1 3 IRUNNING PRINTOUT
$33sNOW NEW SPEC. INPUT IS PROCESSED
13 3RETURN TO MAIN PROGRAM

14
T
{EC&O-A DIAGNOSTIC

MACRO M1200

1230
1231
1232
1233
1234
1235
1236
1237
1238
1239

1240
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250

30-MAR-84

16:02

SEQ 47

PAGE 21

s SUBROUT INE :

$..KBO

{KEYBOARD ECHO ROUTINE FOR TEMINAL INPUT
i

s INPUT ;

(SP)

:OUTPUT:

PRINT PATTERN TO TERMINAL

s AUTHOR ;

BERT MUBER CSS/DP MUNICH

CALLER PC

PATTERN TO ECHO

28-JUN-76

+ .PSECT CSSMON

006122
006126
006130
006134

105737
100375
010037
000207

177564
177566

$..XKBO:

.ENABL
T7STB

LSB
80TPS

MOV
RE TURN
.DSABL

RO,80TPB

B8PL

$..XBO

LSB

1ECHO RUNNING ?

s IF PL, WAIT

:ECHO CHARACTER
tRETURN TO CALLER

gEC“dl DIAGNOSTIC

J4
MACRO M1200

30-MAR-84

SEQ 48

§..PRO

s SUBROUT INE :

$..PRO

s THIS ROUTINE IS CALLED TO PRINT THE DEFAULT KEYBOARD
sPROMPT STRING ON THE TERMINAL, AND TO SET THE INPUT FLAG.
i

s INPUT ;

1261
1262

(SP)

IWYPUT:

1263
1264
1265

Aumoa

1266

CALLER PC

PROMPT STING ON TERMINAL
MZ001

BERT HUBER CSS/DP MUNICH

28-JUN-76

THE USE OF THIS MACRO'S ALLOWS TO USE ONE VERSION OF COM
ON LSI AND POP,

1267

1268
1269
1270

1276
1277
1278
1279
1280
1281
1282
1283

PAGE 22

.SBTTL

1252
1253
1254
1255
1256
1257
1258
1259
1260

1271
1272
1273
1274
1275

16:02

.IDENT

/v1.0/

.ENABL

LS8

PREAD
PSET

STATUS
o0

: .PSECT CSSMON
005037

007150

$..PRO: CLR

005737
001375

007152

18:

010637
000207

007150

INFLAG

WRITE

PROMES

PSET

$
STATUS

RETURN
.DSABL

LSB

;ag

MOV

13 3RESET INPUT FLAG

;SAVE SYAYUS
:CLEAR PS

gUTFLG

SP, INFLAG

$MZ001
$MZ001

:33WRITE PROMPT STRING

sWAIT FOR OUTPUT COMPLETE
:
sRELOAD SYATUS

$MZ001

:SET INPUT FLAG

1 RE TURN YO CALL ING PROGRAM

K4
MACRO M1200

30-MAR-84

16:02

PAGE 23

.SBTTL

1285
4

s SUBROUT INE :

SEQ 49

§..STX

$..5Tx

s+ THIS ROUTINE PRINTS THE
:

'SYNTAX ERROR' 'MESSAGE

s INPUTS :

(SP)=

:WTPUT:

MESSAGE ON TERMINAL

AUTHOR :

CALLER PC

BERT HMUBER CSS/DP MUNICH

28-JUN-76

MZ001
THE USE OF THIS MACRO'S ALLOWS TO RUN ONE VERSION OF COM
ON LSI AND POP.

+ .PSECT CSSMON

.ENABL
$..5TX: NOP
PREAD

000240
006310
006334
006344
006350
006376

005737

001375

000207

007152

1$:

LSB

STATUS

PSET

[]

;'Sé'

?.JI’FLG

WRITE

MSYERR

PSET

STATUS

.DSABL

LSB

RE TURN

3 3 sDUMMY
;SAVE STATUS
1MZ001

s1CLEAR PS

$1MZ001

sWRITE SYNTAX ERROR MESSAGE

sWAIT FOR OUTPUT COMPLETE
:

sRELOAD PS

:MZ001

:33sRETURN TO CALLER

L4
*ECbhéA DIAGNOSTIC

MACRO M1200

30-MAR-84 16:02

1317
1318

'...........

1;53

LSBTTL

1 SUBROUT INE :

PAGE 24

s..0MP

$..0MP
sSesess

1321
1322

:
: THIS ROUTINE PRINTS ON THE TERMINAL PRINTER NUMBERS

1328
1329

1323
1324
1325
1326
1327

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

SEQ SO

M4
IEC11-A DIAGNOSTIC

O..GHP

MACRO M1200

30-MAR-84

16:02

PAGE 25

1331
1332
1333
1334
1335
1336
1337
1338

1339
1340
1341
1342
1343
1344
1345
1346
1347
1348
1349
1350
1351
1352
1353
1354
1355
1356
1357
1358
1359
1360
1361
1362
1363
1364
1365
1366
1367
1368
1369
1370
1371
1372
1373
1374
1375
1376
1377

4(SP)

SEQ S1

VALUE TO DuMP

2(SP)

«TYPE OF DUMP

(sP)

*RETURN PC

0 = OCTAL

2 = DECIMAL
4

= BINARY

DUMP ON TERMINAL
BERT HUBER CSS/DP MUNICH

28-JUN-76

: .PSECT CSSMON
.ENABL

1 SAVE RO

'o”’ooc

8D..TYP(RO)

s SELECT FUNCTION ROUTINE

MOV
TST
BNE

007152
006420

LSB

PUSH

4(SP),RO
OUTFLG
. -4

;GET TYPE ARGUMENT
;OUTPUT RUNNING ?
s IF NE, WAIT

$..00C

$..0BN

MOV

06, -(SP)

$1SETUP DIGIT COUNT

MOV

¢'0,RO

3;SETUP BASIC ASCII VALUE

8CC

;IF CC, DIGIT IS A 'O

43
¢'0,RO
(SP)
2s
04 ,RO

s IF EQ, ALL DONE
1SETUP NEXT DIGIT BASE
;BUILD NEXT DIGIT
s IF CC, DIGIT INCLUDES 22222
1DIGIT = BASE+4

MOV

000010

ASL

1%:

006122
000002

062700
006316

2%:

103001

122020
006316
103360
005200
000756
022626
000466
012746
016646
012700
004737
012700
027716
101004
005200
167716
000771
004737
062737

3s:

ASL

(SP)

BEQ
MOV
ASL
8CC
ADD

8CC
cMPB

ASL

B8R

DMP. .E

cMP

006614

3s:

;OTHERWISE DIGIT IS A ?
;:OUMP DIGIT
sCOUNT DIGITS DUMPED

(SP)

1$
RO
1%

sGET VALUE TO DUMP
;:BUILD FIRST DIGIT

33
(RO)+,(RO).

8CC
INC
BR

(SP)+,(SP)e»

.DSABL
.ENABL

LSB
LSB

MOV

1C(SP), -(SP)

05, -(SP)

sANALYZE NEXT BIT

sIF CC, DIGIT INCLUDES 222?
sDIGIT = DIGIT « 2

sANALIZE LAST BIT OF DIGIT

;IF CC, DIGIT MUST BE EVEN
;OTHERWISE DIGIT IS 0ODD
:1GO AND DUMP

sREADJUST STACK

;:END OF DUMP

t;SETUP A DIGIT COUNT
sGET VALUE TO DUMP

MOV

©'0,R0

cMP

@S$POINT,(SP)

1CMP VALUE WITH ACT, DEC. DIGIT

INC
SuUB

RO
@S$POINT,(SP)

;COUNT NUMBER OF DIVISIONS
:DIVIDE BY ACT. DEC. DIGIT

ADD

02, $POINT

BHI

000034
006122
000002

RO
$..KBO
2(SP)

CALL
MOV

000044

(SP)

INC
CALL
DEC

MOV

000005
000010
000060
006122

10(SP), -(SP)

BR
CALL

$..KBO
©'0,R0O

;BUILD LEADING ZERO

1AND PRINT
;;SETUP BASIC ASCII VALUE

24
$..KBO

sVALUE IS SMALLER
;100 NEXT
t1PRINT THIS DEC.
sPOINT

DIGIT

TO NEXT DEC.

VALUE

IEC11-A DIAGNOSTIC
DMP

1388 006574
1389 006600
1390 006602
1391 006610
1392 006612
1393 006614
1394 006616
1395 006620
1396 006622
1397 006624
1398
1399

005366
001357
012737

MACRO M1200

006616

(SP)+,(SP)e

18:

2%:

1407
1408

STABLE

CLC

CALL

DMP. .E

LS8
LS8

6(SP)
3
©60,R0

$..KBO
4(SP)
1

OMP. .E
#61,RO

1409
1410
1411
1412

000006
177772

@3 TABLE, $POINT

006614

$..0BN: MOV

1403

PAGE 25-1

"
$POINT:
$TABLE:

1404
1405
1406

1413

16:02

000002

1400
1401
1402

1414
1415
14i6

30-MAR-84

2s
LSB
RO
06,SP
8-6(SP)
LS8

SEQ 52

;COUNT NUMBER OF CONF. DIGITS
1ALL DONE
tREBUILD FOR NEXT USER
sCORRECT STACK FOR RETURN
tEND OF DEC. humP

;SETUP PRINT POINTER
;RESET CARRY
1 SELECT FIRST CHARACTER

sIF

" BRANCH

1SETUP A 0" CHARACTER
;1OUMP CHARACTER

|COUNT CHARACTERS DUMPED
s IF NE, CONTINUE
;:END OF DUMP
;SETUP A " 1 " CHARACTER
;:OUMP IT

+RESTORE RO
sREADJUST STACK
;sRETURN TO CALLER

DI
T
;EC&-A DIAGNOSTIC

30-MAR-84

16:02

PAGE 26

.SBTTL

1418
1419
1420

SEQ 53

$..ADP

1 THIS SUBROUTINE IS USED TO PRINT OUT ADDITIONAL INFORMATION
s+ ABOUT AN ERROR, MOSTTIMES IT WILL BE USED TO PRINT THE

1421
1422

+ DATA IN CASE OF DATA ERROR.

1423
1424
1425

INPUTS

1426

1427
1428

(SP) =ADDRESS OF FIRST ARGUMENT

OUTPUT :

1429

1430
1431
1432
1433
1434
1435

MACRO M1200

006706
006716
006730
006740
006752

AUTHOR:

..ADP: WRITE
ouMP
WRITE

000207

ourP

RE TURN

MICHAEL ZILLER

MER1

OCT,$SHM.D

MER2

OCT, SuWAS

CSS DP

3 “SHMOULD BE"

MUNICH MAY

1DUMP DATA

1 "WAS
"
sOUMP

DATA

tRETURN TO MAIN

1977

MACRO M1200

1437
1438
1439
1440

PAGE 27

C5S
SEQ S4

s..T07

.YHIS ROUTINF. IS ENTERED AFTER THE MACRO "ADRTST" MAS BEEN EVOCED
1AND
A BUS TIMEOUT MAS MAPPENED

lI"UY: 4'(“5”) = PC FOR

PROGRAM CONTINUATION

* REGISTER ADDRESS (E.G.

1443

1444
1445
1446
1447
1448
1449
1450

1OUTPUT:

1452 006760

1453 006770

007000
007004
007006
007014

062706

005737
001375
012737
000136

$MNOAV

007152

164000) WHICH SHOUWLD BE TESTED

THE ERROR MESSAGE
:
THIS ADDRESS IS NOT AVAILABLE ON UNIBUS:

ALBERT BREM,CSS MUC

1451 006754

1458
1459
1460
1461

16:02

.SBTTL

1441
1442

1454
1455
1456
1457

30-MAR-84

WIFLG
06,804

8(SP).

FEB 1979

164000

1CORRECT SP
1SAY ADDRESS NOT AVAILABLE ON UNIBUS
1OUMP REGISTER ADDRESS
.smcmouue PRINTOUT
IRECUILD TRAP CATCHER
1JUMP TO CONTINUATION LABEL

;ecwn DIAGNOSTIC

D5
MACRO M1200

30-MAR-84

16:02

1463

LSBTTL

1464

PAGE 28

SEQ S5

o, .BUF

‘.

1SUBSECTION TO CONTAIN ALL COM-BUFFERS, CONSTANTS AND
1 'NOT MACRO-DEF INED' PARAMETERS.

1465
1466
1467

BERT MUBER CSS/DP MUNICH

1 AUTHOR :

1468

1469
1470
1471
1472
1473
1474
1475

1 .PSECT CSSMON
.ENABL

LSB

sMEMORY MANAGEMENT DEF INITIONS

KDSARO=172360

KDSDRO=172320

KISARO=172340
KISARS=172352

1476

1477
1478

KISAR6=172354
KISAR7=172356
KISDRO=172300
KISOR6=172314
KISDR7-172316
SISDRO=172200

1484
1485
1486

1487
1488
1489
1490
1491
1492
1493
14934
1495
1496

1497
1498
1499
1500 007016
1501 007020
1502 007022

UDSARO=177660
UDSDRO=177620
UVISARQO=177640
UISAR4=177650
VISARS=177652
UVISAR6=177654
VISAR7=177656
UISDRO=177600
UISOR4=177610
VISORS=177612
UVISDR6=177614
VISDR7+=177616
UBMPR=170200
= 140000
CMODE
PMODE
= 30000

SRO=177572
SR3+172516
$SPTYP:
$SMTYP:

,WORD
_WORD

$IF O:=LSI;
(=

1483

1479

1480
1481
1482

-1:<PDP

$IF O:NO MM; IF 1:WITH MM
s TOP OF CORE AND CORE EXTENSION

sSTARTING FROM HERE TILL PROMES

.WORD

INFLAG:
OUTFLG:
ERRFLG:
INPREQ:
PSDSWR:

.WORD
.WORD
.WORD
.WORD
.WORD

KBBPNT:

®
-

.BLKB

KBBEND :

O0000000O

KBBUFF :

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

2 8

s THE CONTENTS WILL BE CLEARED

tWITH “ABO”
s TERMINAL INPUT BUFFER

tREFERENCE LABEL

: INPUT BUFFER POINTER

1 INPUT 'RUNNING" FLAG
1OUTPUT *RUNNING” FLAG
+'ERROR HANDLING REQ.' FLAG
1 'WAIT FOR SPECIAL INPUT" FLAG
1SOF TWARE SWITCHREGISTER

INDICATOR FLAG
+RUBOU-TMODE

1BUFFER PS-CONTENT IF SAVED
tHOLDS CURRENT ERROR NUMBER
tUSED IN $..KBI AND §$..WRT

1SAVE AREA FOR SCOPE LOOP ADDRESS

1SPECIAL ASCII INPUT FLAG

007202
007210
007213
007256
1527 007316
1528 007360
1529 007421
1530 007445
1531 007503
1532 007524
1533 007601
1534 007652
1535 007662
1536 007704
1537 007737
1538 010002
1539 010032
1540 010104
1541 010144
1542 010156
1543 010252
1544 010304
1545 010333
1546 010351
1547 010426
1548 010472
1549 010542
1550 010612
1551
1552
1553
1554 010614

133
133
133
133
133
133
133
133
133
133
133
133
040
133
133
133
133
133
040
133
110
133
040
133
133
133
133
066

$SHLD:
SMWAS:

PROMES:

DUMMES:

MKBOVF
;
MILOCT:
MILDEC:
MILBIN:
MILEMT:
MILADR:

MSYERR:

MILSCP:

16:02

. WORD
.WORD
JNLIST
.ASCII
.ASCII
+ASCII
.ASCII
+ASCII
+ASCII
.

MERROR:
MERRP2:
MERCOV:
MERMLTY:

MER1:
MERZ2:

SEQ 56

tUSED IN §, ADP
tUSED FOR $.
. ADP

’°‘%"”’
[ KEYBOARD BUFFER OVERFLOW! REENTER]/
/

ILLEGAL OCTAL INPUT !! REENTER)/
[ILLEGAL DECIMAL INPUT !! REENTER)/

[ ILLEGAL BINARY INPUT 1! REENTER)/
[ ILLEGAL EMT -NUMBER
)/
BYTE ADDRESS xs NOT ALLOWED
SYNTAX ERROR ![ )/

[ SCOPE LOG’ SKIPPED TO A SUBSEQUENT ERROR !![/

[SUSPECT
AN INTERMITTEND MARDWARE ERROR( ]/
ERROR )/

AT LOCATION

(PROGRAM MADE POMER FAIL ()/

MPWRFL
:
MNOSUB
:
MILTR]:
MILTR2:
MVERSN:

PAGE 28-1

800

000000
000000

-ES

\\\\\\\\\\\\\\

007176
007200

30-MAR-84

7/[ERROR COUNTER OVERFLOW ON ERROR:

7(...MALT AFTER ERROR...)/

7/[{OPTION NOT SUPPORTED IN THIS CDM VERSION)/

7/{ILLEGAL INTERRPT OR TRAP TO :
FROM:

1520
1521
1522
1523
1524
1525
1526

MACRO M1200

7eCee

/{ CONTENT SHOULD BE
BUT WAS

COM v3.5 ---CSS DIAGNOSTIC MONITOR---((([/

/HIGHEST MEMORY ADDRESS
N

DIAGNOSTIC

$MNOAV
;

/([ THIS ADDRESS IS NOT AVAILABLE ON UNIBUS:

MAPER:

/[ ILLEGAL MAPPING ADDRESS SPECIFIED!!!!(])/

MEMDEF;

/[MEMORY MANAGEMENT UNIT

;?1‘ WILL
/

COM, .E:

BEX
LS8

IS DEFECT!!!/

TRY WITHOUT MEMORY MANAGEMENT(
]/

1}/

FS
*EC&!}-A DIAGNOSTIC

MACRO M1200

30-MAR-84 16:02

1
2
2

SEQ S7

LTITLE
.NLIST

IEC11-A DIAGNOSTIC
CND
.LIST MEB

S 010614
010614
6

PAGE 29

010620

7 010624

012746

004737

021606

005654

010624
010630
8 010634
010634
010636

012746
004737

021510
005654

005046
004737

005020

010642

005700

010646
10 010652
11 010656
12 010662

000137
012700
032700
001360

010656
160010
000007

010664
010670
010672

020027
103001
000754

010674
010700
010702

9 010642

RGAIN:

WRITE
MOV

M1
M1, -(SP)

s IDENTIFY TEST
1SAVE M1 ONTO STACK

WRITE

MES1

;ENTER FIRST REG OF IEC11-A

CALL

MOV
CALL
READ
CLR
CALL

$..WRT

MESL, -(SP)
$..WRT
OCT,.RO
-(SP
$..RED

IF RO NE @0 GOTO 1

TST

JMP
MOV
BIT
BNE

1s
©160010,R0
@7,RO
RGAIN

160010

cHP
BHIS
BR

RO, 2160010
.*4
RGAIN

020027
101401
000750

177776

cMP
BLOS
B8R

RO,9177776
. +4
RGAIN

010704
010712

012737
012746

006754
010624

000004

MOV
MOV

0s..707,804
ORGAIN, -(SP)

010720
010726
16 010730
17 010734

012737
005726
010037
062700

000006

000004

MOV
TST
MOV
ADD

06,804
(SP).
RO,CIR
02,R0

012737
012746

006754
010624

000004

012737
005726
010037
062700

000006

000004

010774
011002

012737
012746

006754
010624

000004

011010
011016
22 011020
23 011024
24 011030

012737
005726
010037
062700
010037

000006

000004

010644

13 010664

14 010674

15 010704

010716

18 010740
010740
010746
010752
010754
010762
19 010764
20 010770
21 010774

011006

25 011034

26 011040

011040

001402

005710

BEQ

18:

024204
000002

024206
000002

062700

024212
000001
024210
000001

012737

006754

$SAVE #MESL ONTO STACK
s INITIATE PRINTOUT
s INPUT REQUEST
s INDICATE OCTAL INPUT REQUIRED
sACCEPT INPUT

[

:+IS RO ZERO ?
3

3
1SAVE DEFAULT VALUE
sCHECK THREE LSB OF INPUT
s IF NOT CLEAR,REQUEST AGAIN

IF RO LO 160010 GOTO RGAIN

’

IF RO HI #177776 GOTO RGAIN

ADRTST
ST

ADRTST
MOV
MOV
TST

MOV
TST
MOV
ADD
ADRTST
MOV
MOV
TST

RGAIN
(RO)

RGAIN
0s..707,804 .
ORGAIN, -(SP)
(RO)
06,804
(SP)+
RO, SMR
02,RO
RGAIN

0s..T07,804
ORGAIN, -(SP)
(RO)

MOV
TST
MOV
ADD
MOV

06,804
(SP).
RO, IOR
€1,RO
RO, IORHB

ADRTST

RGAIN

ACD

000004

. *6

s INITIATE PRINTOUT

MOV

¢1,R0O

0s,..707,804

;COMPARE RO AND 160010
H
;COMPARE RO AND #177776
:
:
sPROVIDE TIMEOUT ENTRY
$1SAVE RETURN ADDRESS ON STACK
+IS ADDRESS AVAILABLE

;RESTORE TIMOUT VECTOR
sCORRECT STACK
1SAVE CIR ADDRESS
;BUILD NEXT ADDRESS

1PROVIDE TIMEOUT ENTRY
$1SAVE RETURN ADDRESS ON STACK
+IS ADDRESS AVAILABLE

sRESTORE TIMOUT VECTOR
;CORRECT STACK
:SAVE SMR REG ADDRESS
;BUILD NEXT ADDRESS

1PROVIDE TIMEOUT ENTRY
:1SAVE RETURN ADDRESS ON STACK
1+ IS ADDRESS AVAILABLE

sRESTORE TIMOUT VECTOR
1CORRECT STACK
1SAVE IOR REG ADDRESS
sBUILD HIGH-BYTE ADDRESS
:OF IOR

;BUILD NEXT ADDRESS

:PROVIDE TIMEOUT ENTRY

IECi1-A DIAGNOSTIC

MACRO M1200

30-MAR-84

16:02

PAGE 29-1

SEQ S8

$..BUF

011046
011052
011054

011062

27 011064
28 011070
011070
011074
011100

011100
011102
011106
011106
011110
o11112

31 o11116
32 o11122

o11122

011126
011130
33 011132
011132
011136
011140

O11142
35 011146
011150
011150
011154
37 011160
011164
39 011170
011170
011174
40 011200
011200
011202
41 011206
011206
011210
o11212
42 011216
43 011222
011222
011226
011230
a4 011232
011232
011236
011240
as 011242
a6 011246
a7 011254
a8 011262
a9 011266
011272
51 011276

012746
005710
012737
005726
010037

010624

012746
004737

021666
005654

005046
004737

005020

005700
001402
000137
012700

000006

020027
101401
000753
020077

000774

012746
004737
000137
010037

022034
005654
011070
024224

012746
004737

021750
005654

005046
004737

2%:

000044

024226
000100
000040
024216
024220
011740

012712

MOV

RO, VSR

MOV
CALL

OMES2, -(SP)
$..WRT

WRITE

MES2

OCT,RO
-(SP)

$..RED

TST

JMP

CLR
CALL

OCT,RO

-(SP)
$..RED

IF RO NE @0 GOTO 3

TST

JMP
MOV

33
@35,R0

BEQ

2%:

8¢:

1SAVE VSR REG ADDRESS

sREQUEST VECTOR ADDRESS OF IEC11-A

$1SAVE OMES2 ONTO STACK
s INITIATE PRINTOUT

s INPUT REQUEST
s INDICATE OCTAL INPUT REQUIRED
:

sACCEPT INPUT

:+IS RO ZERO ?

.*6

IF RO LO @1 GOTO ADDRIN

:1SAVE IEC11-A VECTOR ADDRESS
sREQUEST IEC11-A BUS ADDRESS
sSAVE OMESS ONTO STACK
s INITIATE PRINTOUT
s INPUT

;s INDICATE OCTAL INPUT REQUIRED
;:ACCEPT INPUT
+IS RO ZERO

3
:SAVE DEFAULT VALUE
:

cMP
RO, 01
;COMPARE RO AND o1
BHIS
. *4
3
ADDRIN
B
IF RO HI 036. GOTO ADDRIN
:
cMP
RO, 036.
;COMPARE RO AND 036.
BLOS
.+4
:
BR

024216
024220

MOV
#270,R0
1SAVE DEFAULT VALUE
IF RO LO €40 GOTO VECAIN
3
cMP
RO, 040
;COMPARE RO AND @40
BHIS
. +4
3
BR
VECAIN
:
IF RO HI @774 GOTO VECAIN
cMP
RO,0774
;COMPARE RO AND @774
BLOS
. +4
3
.
VECAIN
BR
cHp
RO,8VSR
:IS INPUT EQUAL TO VSR ?
BEQ
SAV
s+ IF YES,SAVE INPUT AND CONTINUE
WRITE
MES6
s+IF NOT,WRITE MESSAGE
MOV
OMES6, -(SP)
:SAVE OMES6 ONTO STACK
CALL
$..WRT
sINITIATE PRINTOUT
JMP
VECAIN
sREENTER

READ

3s:

s IS ADDRESS AVAILABLE

. *6

SAV:
MOV RO,VECA
ADDRIN: WRITE
MESS
MOV
OMESS, -(SP)
CALL
$..WRT

011222
000035

020027
101401
000753
010037
012737
012737
050037
050037
004737
017700

tRESTORE TIMOUT VECTOR
1CORRECT STACK

BEQ

005020

000001

06,804
(SP)+

(RO)

IF RO NE 00 GOTO 2%

01%046

020027
103001
000757

MOV
TST

CALL

005700

001402
000137
012700

1SAVE RETURN ADDRESS ON STACK

READ
CLR

000270

000040

001406

VECAIN:

011122

020027
103001
000757

ORGAIN, -(SP)

TST

000004

024214

MOV

MOV
MOV
MOV
BIS
BIS
JSR

MOV

ADDRIN

RO, IECAAD
©100, TALKER
040,LISTNR
RO, TALKER
RO,LISTNR
PC,TESTO

8VvVSR,RO

1SAVE IEC11-A BUS ADDRESS
1 PRE -ADDRESS TALKER
:PRE -ADDRESS LISTENER
1 SAVE TALKER ADDRESS
:1SAVE LISTENER ADDRESS
s TEST LON SWITCH FEATURE; ¢eVO2EQQee

;CHECK VECTOR ADDRESS

HS
JECALA DTAGNOSTTC

011302

020027

?i 011306 101003

MACRO M1200

30-MAR-84 16:02

000774

S5 011314

56 011316
011316
011322
S7 011326
S8 011330
S9 011334

60 011336

103005

012746 021666
004737 005654
000763
020027 000040
10%7.0
010037

024222

308
as;

SEQ S9

RO, 0774

ILE

cHP

304,

RO, #40

WRITE
MOV
CALL
B8R
cHP
8LO

sLEGAL VECTOR

MES2;
OMES2, -(SP)
$..WRT
8s;
RO, 040;
308;

+IF MIS YES

g’x

S4 011310 020027 000040

PAGE 29-2

BHMIS

MOV

RO,VECTOR

.'fr% %

CTOR ?

106VO1E020 0
;#eVO1EO24e

;66VO1E02¢
s

;REQUEST ANOTHER VECTOR ADORESS
sSAVE OMES2 ONTO STACK
s INITIATE PRINTOUT
;CHECK AGAIN
s CHECK RANGE
+IF LO, INVALID
+GET VECTOR ADDRESS

IEC11-A DIAGNOSTIC

TEST SELECT ROUTINE

62
63 011342
011342
011346
64 011350
65 011354
66 011356
67 011360
011360
68 011366
011366
011372
69 011376
011376
011402

70 011406

71
72
73
74

011406
o11412
011414
011420
011424
011426
011432
011432
011436
011442
011442
011446
011452
011452
011456
011460
011462
011462
011464
011466
011472
011500
011502
011504
011506
011514
011522
011530
011534
011536
011544
011550
011552
011560
011566
011572
011600
011602
011610
o11612
011612

MACRO M1200

012746
104002
005737
001375
000005

024224

052737

000100

012746
004737

024070
005654

012746
004737

000010

020027
001402
000137
005037

000131

000402
005237

020027
101401
000764

000016

012746

PAGE 30

TEST SELECT ROUTINE
@VECA
OVECA, -(SP)
2
OUTFLG
. -4

BIS

80TKS
081T6,80TKS

MOV
CALL

@TPMSG, -(SP)
$..WRT

SFLAG:
LAB11:

011666

011504
011626
000136
000130

011664
011664
011664

000000
011630

011666

011550
000100
000072
011550

011664
011664

000002

011550

024166

$SAVE @VECA ONTO STACK
sRESET OVECA VECTOR
sWAIT FOR ANY OUTPUT COMPLETE
'...

tCLEAR THE WORLD
sRE-ENABLE TTY

TPMSG

;ASK FOR PRINTING START MESSAGES

READ

ASC

1Y OR N?

CcMP

RO, @'Y

;COMPARE RO AND @'Y

B8LOS
B8R

. *4
LAB11

TST
BNE

RO
. +6

MOV
ASL

0177777,TSTREP
RO

WRITE

1SAVE @TPMSG ONTO STACK
sINITIATE PRINTOUT

BEQ
. +6
3
JMP
SFLAG
i
sPRINT OUT START/END MESSAGES
CLR
MSGFLG
BR
LAB11
INC
MSGFLG
tNO PRINT OUT
sREQUEST NEXT TEST TO RUN
WRITE
MESNEX
MOV
OMESNEX, -(SP)
s SAVE OMESNEX ONTO STACK
$..WRT
CALL
s INITIATE PRINTCUT
tWAIT FOR INPUT
READ
DEC,RO
MOV
02, -(SP)
s+ INDICATE DECIMAL INPUT REQUIRED
CALL
$..RED
sACCEPT INPUT
IF RO HI @14. GOTO LAB11
'
CcMP
:COMPARE RO AND @14,
RO, 014,

IF RO EQ @0 GOTO TESTAL

011536
177777

SEQ 60

MOV
€10, -(SP)
s INDICATE ASCII INPUT IN RO REQUIRED
CALL
$..RED
sACCEPT INPUT
IF RO NE @'Y GOTO SFLAG sSET FLAG

011670

000002
005020

023727
001404
062737
000760

177560

011426
011670

012746
004737

017737
004777

TST
BNE
RESET
SET6

005020

024044
005654

16:02

.SBTTL
$..SPC: REMVEC
MOV
EMT

007152

012746
004737

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

30-MAR-84

011662

JMP
MOV
OFFSET: .WMORD
SINGLE
: MOV
ADD
MOV
JSR
BR
TESTAL
: MOV

TESTAL

RO,(PC).
O
OFFSET,OF FCNT
@TT,0FFCNT
SO0FFCNT
, OFFCNT
PC,80FFCNT
SINGLE
00, TSTREP

0TT+2,(PC)»
MOV
SEQPNT: .MORD
O
,OF FCNT
SEQPNT
SEQ:
MOV
,OF FCNT
SOFFCNT
MOV
JSR
PC,80FFCNT
SEQPNT ,@TTE-4
cMP
BEQ
TESTL1
02, SEQPNT
ADD
BR
SEQ
TESTLL: WRITE MESEND
MOV
OMESEND, -(SP)

;

:IS RO ZERO ?
i
:

;LOOP ON SINGLE TESTS
;BUILD WCRD OFFSET INTO TABLE

:AND SAVE
tHOLDS CURRENT TEST NUMBER
:
:

1GOTO SELECTED TEST
+REPEAT TEST
tNO LOOP ON SINGLE TESTS
1GET ADDRESS OF FIRST TESTY
sPOINTER FOR TEST IN PROGRESS
1LOAD ADDRESS OF NEXT TEST
H

1GOTO EXECUTE TEST
sALL DONE ?
: IF EQ,

YES

1POINT TO NEXT
sAND DO NEXT

1END OF TEST

TEST

1SAVE OMESEND ONTO STACK

CALL

005654

011536

012106
012700

013754
014516
017510

16:02

012250
013302

015400
020176

OFFCNT

TTE:
TSTREP:
MSGFLG:

PAGE

30-1

. ,WRT

J5
s INITIATE PRINTOUT

T
TESTAL
TEST6, TEST?
0 +TEST1,TEST2,TESTS,TESTA,TESTS,

TEST8,TEST9,TEST10,TEST11,TEST12,TEST13,TEST14

(=X
=]

103 011666
104 011670

30-MAR-84

THE

101

EIEEnSSE

100

sessegggo =
gg g:fizix

MACRO M1200

+MESSAGE FLAG

MACRO M1200
IEC11-A DIAGNOSTIC
LOCAL MACRO DEF INITIONS

30-MAR-84

16:02

PAGE 32

.SBTTL

SEQ 62

LOCAL MACRO DEFINITIONS

s THIS SECTION CONTAINS ONLY MACRO DEFINITIONS
+ USED IN THE IEC-11A DIAGNOSTIC.

8IS

.ENDM

MCLEAR
e8ITS5,aCIR
MCLEAR

sEXECUTE MASTER CLEAR

.MACRO
8IS
.ENDM

SACS
o8I70,8CIR
SACS

;SET SACS BIT IN CIR

BIS
.ENDM

INHSRQ
#8IT10,8CIR
INHSRQ

1SET INHIBIT SRQ INTERRUPT

BIS

e8I76,8CIR

.ENOM

INTENB

INTENS

TSTEND
TST
MSGFLG
L
BNE
MTE'A;
WRITE
RETURN;
TSTEND
.ENDM

A, 7L

¢eVO2EQQee

;

*eVO2EQQs»

+ENABLE INTERRUPT IN IEC-11A

+PRINTOUT OR NOT?
s TEST'A END MESSAGE
sRETURN TO CALLER

BIS
.ENDM

SIC
o8I76,8SMR
SIC

:SEND INTERFACE CLEAR

MOV
.ENDM

SAVCIR
8CIR,RO
SAVCIR

:SAVE CIR CONTENT

.MACRO
MOV
.ENDM

SAVSMR
8SMR,R1
SAVSMR

:SAVE SMR CONTENT

.MACRO

SAVIOR
8I0R,R2
SAVIOR

:SAVE IOR CONTENT

MOV

.ENDM

.MACRO
8IS
. ENDM

GTS

SET4
. ENDM

.MACRO

LTN
8SMR
LTN

.MACRO
SETS
.ENDM

LUN
SSMR
LUN

o81T2,3SMR

GTS

1GO TO STAND BY

r 1oNs MACRO M1200 30-MAR-84 16:02 PAGE 32-1
EBEAL ‘ARAGCHEPIAT
.MACRO

164
165
166

168
169
170
171
172
173
174
175
176

SSMR

1SEND REMOTE ENABLE

.MACRO
BIS
.ENDM

TCA
e8IT1,8SMR
TCA

s TAKE CONTROL ASYNC

.MACRO

178
179
180
181
182
183
184
185
186
187
188
189
190
191

SRE

TCS

SETO

8SMR

.MACRO
SAVCIR
SAVSMR
SAVIOR
.ENDM

SAVIEC

.ENDM

177

SRE

SET7

.ENDM

167

SEQ 63

MACRO

DEC

s TAKE CONTROL SYNCR.

TCS

SAVIEC

LOOP

(PC).

A,B,2C

A
.WMORD
IF C NE @0 GOTO B

MOV

192 011672
193 011676
011702
011704
011706
011710
011712
011714
011716
011720
o11722

011726
011732

01.734
011736

013746
013700
006316
005500
006200
005516
061600
005616
060016
005600
012637
010037
000207

135753
024642

011734
011736

RANDOM:

oA,C

.ENDM

LOOP

MOV
MOV

RA, -(SP)
RB,RO

ADC

ASL

asP

ASR

MOV

RO,.RB

.WORD
.WORD

135753
024642

ADC
ADD
SB8C
ADD
SBC
RETURN

asP
asP,RO
asP
RO,8SP
RO

s COUNT LOOPS

:SETUP NEW LOOP COUNT

FESH ANDRAGYRS FEarune MACRO M1200 30-MAR-84 16:02 PAGE 33
209
210 011740
211 o11742
011742
O11746
212 011752

011752
011754

213 011760
011760
214 011766
215 o11774
216 011776
011776
217
218
219
220
221
222
223
224

226
227
228

230
231
232

012000
012002
012006
012014
012016
012016

TTL

TESTO: éE%PE

104000
012746
004737

022112
005654

005046
004737

005020

052777
027727
001404

104562
000000
000137
027727
001404

WRITE

012216
000602

011740
012174

010000

#SLON,

(SP)

o8IT75,8CIR
8CIR, 0602

18:

14
114,
114,
0
TESTO
g%HR.OOITIZ

115.
115.

011740

012746
004737

022216
005654

005046
004737
022777
001404

005020
000600

2%:

012132

104564

000137
000207

SLON

oCT,RO
-(SP)
$..RED

000040
012212

000000
000137

104565
000000

SEQ 64

TEST LON SWITCH FEATURE

$..WRT

104563

000000
000137
027727
001404

011740
012116

011740

010000

3s:

0
TESTO
CLON
OCLON, -(SP)
$..WRT
OCT,.RO
-(SP)
$..RED
0600,8CIR
3
116.
116.
0
TESTO

s INDICATE OCTAL INPUT REQUIRED
+ACCEPT INPUT
4eVO2EQQs
s
1PRODUCE CLEAN STATUS
+EXECUTE MASTER CLEAR
44VO2EQO»
s STATE CHGE, INT,LON
#4VO2EQQ+»
sBRANCH IF CORRECT
;s ¢sVO2EQOQ+»
sCIR CONT NOT 0602
+ERROR 114,
tERROR COUNT
tLACS SET EXCLUSIVELY?
+BRANCH IF 0.K,
sLACS NOT OR NOT ONLY
;ERROR 115.
$ERROR COUNT
+RESET LON SW MSG

¢eVO2EOQOs»

4eVO2E0Qs
e
¢aVO2EQQs»
44VO2EQQe
¢
;
;

¢sVO2EOQQe+»
#4VO2EO0Qe»

:SAVE OCLON ONTO STACK
s INITIATE PRINTOUT

s INDICATE OCTAL INPUT REQUIRED
sACCEPT INPUT
4eVO2EQQee
$sSTATE CHGE, INT
;s ¢aVO2EOQee
;BRANCH IF 0.K.
4eVO2EQQs
;:CIR CONTENT NOT 0600
sERROR 116.
sERROR COUNT

2%"9.081712

sLACS STILL SET?

117.
117,

:ERROR IF NO
+ERROR

0
TESTO
44

¢eVO2EQQs
e

44VO2EQQ2»
+SET LON SW MESSAGE
1SA VE OSLON ONTO STACK
s INITIATE PRINTOUT

:+BRANCH IF YES

117.

sERROR COUNT

tRETURN FROM SUBTEST

«+«VO2EQQe
e
#eVO2E0Q2
e

«eVO2EQQe
e

4eVO2EOQe
e
«aVO2EQQs
e
4eVO2EQQs
e

NS
Em'&STEfl Cm M1200

234
235 012106
236 012112
237 012114

005737
001004

011670

012114
012120

012746
004737
104000

022324

005654

012126

052777
017700

000040
012046

238 012124
239 012126

240 012134
241 012140
242 012142
012142
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

001404

104401
000000
000137

012106

017700

012026

001404

104402
000000
000137
017700
001404

30-MAR-84

TEST1:

005327
177777
005737
001401
000741
012737

LOPT1:

005737
001004
012746

004737
000207

EXECUTE MASTER CLEAR
sPRINTOUT OR NOT?

MT1S

oMT1S, -(SP)
$..WRT

SSMR

18:

t.
1.
0
TEST1

8CIR,RO

24
2.
2.
0
2s:

3s:

TEST1

8IOR,RO
3%
3.
3.
0
TEST1

-1,LO0PT1
(PC)H.

-1
644
..‘

012210

022371
005654

TEST 1
MSGFLG
LOPT1

SEQ 65

012106

011670

BNE

PAGE 34

o8IT75,8CIR

012050

012106
012016

177777

.SBTTL

TST

WRITE

104403

000000
000137

16:02

012210

LOPT1
—

PEEH
A

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

;1EXECUTE MASTER CLEAR
:1SAVE SMR CONTENT
s IF EQ, YES
sILLEGAL SMR AFTER MC

+SAVE CIR CONTENT
+IF EQ, NO BIT SET

s ILLEGAL CIR AFTER MC
B

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

:COUNT LOOPS
3

;IS 64% ZERO ?
:

;

;SETUP NEW 1L OOP COUNT

MSGFLG
664

sPRINTOUT OR NOT?

$..WRT

; INITIATE PRINTOUT
;RETURN TO CALLER

:SAVE OMTELl ONTO STACK

IEC11-A DIAGNOSTIC
MACRO M1200
TEST SACS BIT IN CIR
2

012250

012254
012256
012256
012262
012266
012266
012274
012276
012276
012304
012304
012310
012310
012314
012316
012316
012320
012322
012326
012330
012330
012336
012336
270 012342
012342
271 012346
272 012350
012350
012352
273 012354
274 012360
275 012362
276

277
278
279

280
281

282

012362
012370
012370
012376
012376
012402
012404
012404
012406
012410
012414
012414
012416
012420
012424
012426
012430
012436
012436
012442
012444
012450
012454

30-MAR-84

005787
001004

011670

012746
004737

022405
005654

052777
104000

0C0040

011710

052777

000001

011700

017700

011674

TESTZ2:

16:02

LSBTTL

MSGFLG

WRITE

MT2S

CALL

§..WRT

BNE

MCLEAR
IS
SCOPE
SACS
8IS
SAVCIR
MOV

011646

017700

TST0

032700
001404

104000

2s:

052777

o11614

052777

011606

017700
001404

104406

000000
000137

005327
177777
005737
001401

000717
012737

005737
001004
012746
004737
000207

3s:

012416

177777
011670
022452
005654

6648

TEST2

8CIR
®IT10,8CIR
8CIR.RO

SCOPE
SACS
BIS
MCLEAR
8IS
SAVCIR
MOV
BEQ
ERROR

TEST2

#I70,8CIR
BITS,8CIR

8CIR,RO
3
6.

TRAP

JMP

TEST2

LOOP
DEC
. WORD

-1,L0PT2
(PC)e
-1

LOPT?2

TSTEND
TST

2
MSGFLG

BNE
MOV
CALL

RETURN;

[

$SACS BIT NOT SET
1ERROR 4,
1ERROR COUNT
i

1SCOPE LOOP MARKER
s TRY

TO RESET SACS BIT

1SAVE CIR CONTENT

1SACS RESET ?

1+ IF EQ, YES
$1SACS NOT RESET By BIC
1ERROR S.
1ERROR COUN

1+ SCOPE LOOP MARKER
3

1SET SACS BIT IN CIR

:EXECUTE MASTER CLEAR

1 IS SACS CLEAR AFTER MC ?

1SAVE CIR CONTENT
+IF EQ, YES
$SACS NOT RESET BY MC

TST

BEQ
012416

. WORD

012250

®BIT0,RO

®8IT0,RO
i)
y W

1SCOPE LOOP MARKER

1SAVE CIR CONTENT

8IT
BEQ
ERROR
TRAP

104405

000000
000137

1SAVE OMT2S ONTO STACK
s INITIATE PRINTOUT
1PRODUCE CLEAR CONTROLLER STATE
1EXECUTE MASTER CLEAR

8CIR,.RO

SCOPE
CLRO
8IC
SAVCIR
MOV

1TEST2 START MESSAGE

:SEY SACS BIT IN CIR

. WORD

-(SP)

#IT0,8CIR

18
4,

TRAR

tPRINTOUT OR NOT?

BITS,.8CIR

BNE
ERROR

104404
000000
000137
104000

042777

MT2S,

BIT

TEST SACS BIT IN CIR

LOPT2

TST0

032700
001004

18:

TEST 2

MOV
LOPT2:

PAGE 35

664
OMTE2, -(SP)
$..WRT

1COUNT LOOPS
1 IS 643 ZERO ?
3

1SETUP NEW LOOP COUNT
tPRINTOUT OR NOT?

1SAVE OMTE2 ONTO STACK
s INITIATE PRINTOUT
tRETURN TO CALLER

Cé6

A PEOPNERA
fEE
611 10 TRRTEP12RE (RP:RABP* 16:02 PAGE 36
012456
012462

012464
012464
012470

012474

005787

011670

012746
004737

022466
005654

052777
104000

000040

001004

TESTS:

fi"l.
WRITE
MOV

CALL

011502

052777

011472

032777
001004

011464

LOPT2A: ;fiLEM

!téa}l.é

TEST Cll.

LOPT2A

042777

011444

032777

011436

001404

000137
104000

012456

052777

002000

032777
001004

e8ITS5,8CIR

nExECUtE MASTER CLEAR

e8IT10,8CIR

18:

28:

107,
107.

312

005327
177777
005737
001401
000711
012737
005737
001004
012746

0
TESTS

012456

BIT5,8CIR
8CIR
e8IT10,aCIR

011366
002000

011360

110.
110.

012456

012640
177777

011670

022554

012640

0
TESTS

-1,LOPT2A

(PC).
-1
644
. +4
LOPT2A

2A
MSGFLG
664
OMTEZ2A, -(SP)

#eVO2EOQQee

$SAVE OMT2AS ONTO STACK
sINITIATE PRINTOUT

sPRODUCE CLEAR CONTR STATE

;

¢eVO2EOQOee

1SCOPE LOOP ENTRY
1SET SRQ INT INMIBIT

3 #eVO2E0Oes
3 ¢8VO2EQQee

1BRANCH IF SET

1 ¢eVO2EO0Qee

1SET INMIBIT SRQ INTERRUPT
+IS BIT 10 IN CIR SET?
; ¢eVO2EOQQse

1ERROR 105.
tERROR COUNT

;

eeVO2EOQee

oeVO2EQQee

tRESET BIT 10 IN CIR

i ¢eVO2EOQee

sCLEAR AGAIN ?

; eVO2EO0Qee

1BRANCH IF YES

;

:B8IT 10 NOT CLEAR
1ERROR 106.

1ERROR COUNTY

TESTS

e8IT:10,8CIR
8CIR
;exno.acm

o11414

011406

052777

310
311

TESTS

8CIR
BIT10,8CIR
8CIR
gxuo.xm
106.
106.
0

104553

104556
000000
000137

Tvemet

1GIVE TESTS START MSG

#8IT10,8CIR
aCIR

104552

032777
001404

31BIT 10 IN CIR NOT SET

000000
000137

BRI

MT2AS
OMT2AS, -(SP)
$..WRT

104551

000000

SEQ 67

¢eVO2EO0Qee

3 ¢eVO2EQOQee
; ¢eVO2EQQee

2eVO2EQQee
31SET SRQ INT INMIBIT
?
$SET INMIBIT SRQ INVEW
sLOOK IF

SET AGAIN

¢eVO2EQQee

1BRANCH IF 0.K,
: ¢aVO2EOQee
31BIT 10 IN CIR NOT SET AGAIN ; ¢eVO2EQQee
tERROR 107.
1ERROR COUNT

tRESET BIT10 IN CIR BY MC ; ¢eVO2EQQee
1EXECUTE MASTER CLEAR
sLOOK

IF DONE

:1BRANCH IF 0.K

¢eVO2EQQee

0aVO2EQQs
e

aBIHO IN CIR NOT CLEAR; ¢eVO2EOQQse
1ERROR 110.
tERROR COUNT

1LOOP IN STEP?
1COUNT LOOPS

i1
i

¢eVO2EOQQee
¢eVO2EQQee

1 IS 648 ZERO ?
:
8

1SETUP NEW LOOP COUNT
tRETURN TO CALLER
tPRINTOUT OR NOT?

1SAVE OMTE2A ONTO STACK

D6
FECH1&® QFOPNERAIEIT 10 TRRDET1CRE 1RPcHABP4 16:02 PAGE 3o-1
01 2672
012676

004737
000207

005654

664%:

&%L
$..WRT
URN;

SEQ 68
’IN ITIATE PRINTOUT
tRETURN TO CALLER

TESH
" PSP R s1c TS TOLNEE
30 AR-84 16:02 PAGE 37
314
315 012700
316 012704
57 012706

012706
012712
318 012716
012716
319 012724
012724
320 012732
521 012734
012734
012742
012744
012746
012750
012750
012754
012754
012760
012760
012766
012766
012772
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
013056
345 013062
013062
346 013070
347 013072
348 013074
349 013076

005737

011670

012746
004737

022570
005654

001004

TESTA:

000040

011260

052777
104000

000001

011252

052777

000100

011244

017700

011230

017701

011226

042777

000400

032700

010000

001404

104407
000000
000137
032701
001004

104412
000000
000137
032700
001004

104413
000000
000137
032701
001004

104414
000000
000137
005037
032777
001407
005227
000000
001371

BNE

WRITE

052777

000240
000240
000240

.SBTTL

TST

LOPTS:

MOV
CALL
MCLEAR
BIS
SACS
8IS
SCOPE
SIC
8IS
NOP
NOP

28:

000400

8SMR,R1

$SAVE SMR CONTENT
1SAVE SMR CONTENT

TST12

s ILLEGAL MESSAGE ?

JHP

TST1S

BIT
BNE
ERROR

3%:

020000

100
011116
118

#8IT12,.RO
14
7,
¥s

JMP

:IF EQ, NO
s ILLEGAL MESSAGE

sERROR 7,

$ERROR COUNT

oBIT13,R1
2t
10.

s IF NE,

10.

TEST4

oBIT8,RO
33
11.

:SIAS SET ?
YES

1SIAS NOT SET
:ERROR 10.
tERROR COUNT
8

s STATE CHANGE ?

1 IF NE, YES

11.

i1NO STATE CHANGE TO SIAS
;ERROR 11.

TEST4

R1
eBIT8,R1

.WORD

CLR

11%

TST13

“STATE CHANGE" BIT

T1ST8
8IT
BNE
ERROR

JMP

tRESET

TESTA

BIT
BNE
ERROR

sWAIT SOME MICRO SECONDS

TST8

JMP

TRAP

012700
013074

8CIR
oBIT8,8CIR

.WMORD

000400

#8IT0,8CIR

.WMORD

TRAP

012700

lEXECUTE MASTER CLEAR

:1SAVE CIR CONTENT

TRAP

012700

eBITS5,8CIR

s INITIATE PRINTOUT

8CIR,RO

.MORD

18:

$..WRT

NOP
SAVCIR
v
SAVSMR
MOV

TRAP

020000

TEST 4
TEST SACS SIC SIAS ILLMSG CACS
tPRINTOUT OR NOT?
MSGFLG
LOPTS
MT3S
1START MESSAGE TEST 4
oMT3S, -(SP)
1SAVE #MT3S ONTO STACK

o8IT6,8SMR

BIT
BEQ
ERROR

012700

SEQ 69

lSET SACS BIT IN CIR
1SCOPE LOOP MARKER
1SEND INTERFACE CLEAR
$SEND INTERFACE CLEAR

CLRS
8IC

011216

10%
12,

12.

TEST4

BIT
@B8IT13,9SMR
Ss
BEQ
INC (PC).
.WORD
O
4
BNE

tERROR COUNT

+CACS SET ?
+IF NE, YES
1CACS NOT SET BY SIAS
:ERROR 12,
1ERROR COUNT
3

1SIAS RESET ?
s IF EQ,

sWAIT
:
:

YES

A WHILE

4" QESYMERLECs1c SIRSCROLNARORACE0 AR -84 16:02 PAGE 37-1
PESH
350 013100
013100

012402

351 013104
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
362 013154
363 013156
013156
364 013164
013164
365 013170

366
367
368
369
370
3n
372

373
374
375
376

377

013170
013174
013176
013176
V13200
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

ERROR
TRAP
.WORD
JMP

13.
13.
0

MOV

8CIR,RO

000000
000137

012700

017700

011070

017701

011066

MoV

032700
001004

000400

BIT

104416
000000
000137

032701
001004

Ss$:

SAVSMR

64:

000400

012700

052777

000040

017701

011016

032701
001404

000400

7%:

011020

012700

052777

000100

017700

010762

032700
001004

010000

005737
001004
012746

6
14,

JMP

74
1S.

. WORD
JMP

SCOPE
MCLEAR
8IS
SAVSMR

011670

022647

013242

#BITS,aCIR

BIT
BEQ

#8IT8,R1
8s

16.
16.

0
TEST4

. WORD

#8IT12,R0

17.

JMP TEST4

-1,LOPT3
(PC)e
-1

TST
BEQ

64
. +4

MOV

@-1,648

BNE
MOV

1SAVE CIR CONTENT
1SAVE SMR CONTENT
1SAVE SMR CONTENT
s STATE CHANGE ?

s IF NE, YES
iNO STATE CHANGE TO SIAS RESET
sERROR 14,
:ERROR COUN
'

sCACS STILL SET ?
1IF NE, YES
sCACS RESET WITH SIAS RESET
;:ERROR 15.
;ERROR COUNT

: SCOPE LOOP MARKER
sEXECUTE MASTER CLEAR
$SAVE NEW SMR CONTENT
:SAVE SMR CONTENT
sCACS RESET ?

+IF EQ, YES
sCACS NOT RESET WITH MC
tERROR 16.
:ERROR COUNT
'

:SCOPE LOOP MARKER

$1SAVE CIR CONTENT

9
27

TSTEND
TST

$ERROR COUNT

8CIR,RO

BNE
ERROR

1SIAS NOT RESET
sERROR 13,

:SEND INTERFACE CLEAR

LOOP
DEC
.WORD

SEQ 70

#BIT6,95MR

TST12

TRAP

177777

0
TEST4

SSMR ,R1

BIT

013242

o8IT8,R1

MOV

SCOPE
SIC
8IS
SAVCIR

9s:

TEST4

BNE
ERROR

BIT

MOV

012700

14,
v

. WORD
JMP
010770

#B8IT8,.RO

TSY8

TST8

104420

005327
177777
005737
001401
000621
012737

BNE
ERROR

ERROR
TRAP

000000
000137
104000

8SMR,R1

TRAP

104417

TESTA

TST8

TRAP
« WURY

012700

000000
000137
104000

104421
000000
000137

SAVCIR

LOPT3

3
MSGFLG

66$
OMTES, -(SP)

+IS "ILL. MESS'

SET ?

s IF NE, YES
sNO ILL MESS TO SICS W/0 SACS
sERROR 17.

sERROR COUNT

1COUNT LOOPS
'

+IS 643 ZERO ?
:
5

;SETUP NEW LOOP COUNT
tPRINTOUT OR NOT?

1SAVE OMTE3 ONTO STACK

IEC11-A DIAGNOSTIC

TEST 4

TEST

MACRO M1200

30-MAR-84 16:02

SACS SIC SIAS ILLMSG CACS

013274
013300

004737
000207

005654

668 :

PAGE 37-2

CALL
RETURN;

$..WRT

SEQ 71

s INITIATE PRINTOUT
tRETURN TO CALLER

PESH
S RESTMERT
e
379
380 013302
381 013306
382 013310
013310
013314
383 013320
013320
384 013326
385 013332
386 013334
013334
387 013340
013340
388 013344
389 013346
390 013350
013350
013352
391 013354
392 013356
393 013360
013360
394 013364
013364
395 013370
396 013372
397 013374

013374
013376
398 013400
399 013402
013402
013404
013406
013412
013414
013416
400 013424
013424
013430
013432
013436
013442

005737
001004

MACRO M1200

30-MAR-84

TESTS:

011670

012746
004737

022663
005654

052777
013701
104000

000040
024204

052711

000100

032711
001004
011100

000100

010656

BNE
WRITE
MOV
CALL
LOPT3A: MCLEAR
BIS
MOV
SCOPE
SET6
8IS
T1ST6

TEST S

MSGFLG

LOPT3A

TEST INT ENB
tPRINTOUT OR NOT?

MT3AS
OMT3AS, -(SP)
$..WRT

o8IT75,8CIR
CIR,R1
8R1
o8IT6,8R1
8R 1
oBIT6,8R1

1%:

000100

032711
001404
011100

000100

104442
000000
000740

2%:

177777

022720
005654

8R1
oBIT6,8R1
8R 1
081IT6,8R1
2s
8R1,RO
“.
“.
0o
TESTS

-1,LOPT3A
(PC)e»

3A
MSGFLG
663
OMTE3A «-(SP)
$..WRT
66%:

s TRY

TO SET

INTERRUPT ENABLE

+IS INT ENBL SET ?

s INTERRUPT ENBALE NOT SET
;ERROR 33,
1ERROR COUNT

0-1,64%

011670

1+SCOPE LOOP MARKER

33.
33.
0
TESTS

LOPT3A

013404

s INITIATE PRINTOUT

tMASTER CLEAR
1EXECUTE MASTER CLEAR
1GET CIR ADDRESS

sIF NE,

-1
644

013404

1START MESSAGE TEST S
1SAVE OMT3AS ONTO STACK

8R1,RO

042711

005737
001004
012746
004737
000207

PAGE 38

LSBTTL

1S T

BIT

104441
000000
000752
104000

005327
177777
005737
001401
000741
012737

16:02

1SAV CIR

YES

: SCOPE LOOP MARKER
s TRY

TO RESET

INTERRUPT ENABLE

+IS INT ENABLE RESET ?
:IF EQ,

YES

$1SAVE CIR
s INTERRUPT ENABLE NOT RESET
;1ERROR 34,
;ERROR COUNT
‘

s COUNT LOOPS
:IS 643 ZERO ?
:
§

s SETUP NEW LOOP COUNT
tRETURN TO CALLER
sPRINTOUT OR NOT?
$SAVE OMTE3SA ONTO STACK
: INITIATE PRINTOUT
CALLER
TO
RN
tRETU

fESH
" RSP iRtifnuer
402
403 013444

“??sflgtz*iogncgo-fldfl-OQ 16:02

TESTG:

005737
001004

011670

013452
013456
406 013462
013462
013466
013472
013476
407 013500
408 013502
013502
409 013510
410 013514
411 013520
013520
412 013526
413 013532
013532
&414 013540
415 013544
416 013546
417 013550
418 013552
013552
013556
013562

012746
004737

022734
005654

012746
012746
012746
104001
104000

024222
021334
000000

052777
012705
012704

000040
010000
013574

010474

052777
105037

000100
177776

010456

052777
005037
005227
000000
001375

000100
013546

010446

017700
017701
017702

010426
010424
010424

013566
013570
013572
013574
013576
013576
013600
013602
013604
013606
013606
013614
013620
013624
013624
013632
013632
013640
013640
013646
013652
013654
013656
013660
013660
013664
013670

104424
000000

LI) 013450
405 013452

419 013566

420
421
422

423

424
425

426
427
428
429

430
431
433
434
435

10%:

LOPTA;

.SBTTL

TST

BNE

WRITE
MOV
CALL

SETVEC
MOV
MOV
MOV
EMT
SCOPE

PAGE

TEST 6
TEST
MSGFLG
104
MTAS
OHTCS. (SP)

tPRINTOUT OR NOT?

1 TEST 6 START MESSAGE

:0.-(59)

1SAVE OMT4S ONTO STACK
s INITIATE PRINTOUT
;: #oVO3EQ2ee
1SET VECTOR
:SAVE OVECTOR ONTO STACK
1 SAVE @IECINT ONTO STACK
1SAVE 00 ONTO STACK
1 SETUP OVECTOR VECTOR

:SCOPE LOOP MARKER
#8I75,8CIR
MBIT12,RS

sEXECUTE MASTER CLEAR
1SETUP INTERRUPT MASK
1SETUP RETURN ADDRESS

8176,8CIR

sENABLE INTERRUFT IN IEC-11A
1ENABLE INTERRUPTS

oBIT6,8SMR
28

1 SEND INTERFACE CLEAR

(PC).

iWAIT FOR INTERRUPT

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

1SAVE CIR CONTENT
:SAVE SMR CONTENT

0o
14

000724

103003
104425

TESTé

104000

INTERRUPT WITH STATE CHGE

OVECTO“.OIECINT 00

80PS

000000
000720

SEQ 73

OVECTOR, -(SP)
QIECINT, -(SP)

033 ,.R4

18:
28:

1SAVE IOR CONTENT

tNO INTERRUPT TO SIC
:ERROR 20.
tERROR COUNT
+IF CC, INTERRUPT 0K
s ILLEGAL INTERRUPT
1ERROR 21.
sERROR COUNT
B

:SCOPE LOOP MARKER

eBITS,aCIR
eB8IT8,.RS

sEXECUTE MASTER CLEAR

07% R4

:SETUP INTERRUPT MASK
:SETUP INTERRUPT RETURN ADDRESS

010352

e8IT6,.3CIR

tENABLE INTERRUPT IN IEC-11A

000001

010344

o8I70,3CIR

+SET SACS BIT IN CIR

052777
005037
005227
000000
001375

000100
013654

010340

oB1IT76,3SMR

1SEND INTERFACE CLEAR

017700
017701
017702

010320
010316
010316

052777
012705
012704

000040
000400
013702

010370

052777

000100

052777

Ss:
64:

63
(PC).
0
Ss

8CIR,RO
@5MR ,R1
810R,R2

tWALIT FOR

INTERRUPT

1SAVE ALL IEC-REGISTERS
1SAVE CIR CONTENT
sSAVE SMR CONTENT

iSAVE IOR CONTENT

DIAGNOSTIC
TEST

MACRO M1200

INTERRUPT WITH ST ATE

013674
013674
013676
013700
01370
013704
013704
013706

013710

013712
013712
013714
013716
013722
013724
013726
44?2 013734
013734
013740
013742
013746
013752

30-MAR-84

CHGE

104426
000000
000661

103003

7%:

104427

005737
001004

012746
004737
000207

J6
PAGE

39-1

ERROR
TRAP
. WORD
B8R
8CC
ERROR

1ERROR 22,

1ERROR COUNT

+IF CC, INTERRUPT Ox
s ILLEGAL INTERRUPT
tERROR 23,
{ERROR COUNT

. WORD
BR
LOOP
DEC

013714

177777
011670
023013
005654

sCOUNT LOOPS

1ST

013714

+IS 643 Z2ERO ?

8EQ
BR
MOV

:
K

$SETUP NEW LOOP COUNT

TSTEND
1ST

BNE
MOV
CALL
RETURN;

SEQ 74

iNO INTERRUPT TO SIC AND SACS

TRAP

000000
000655

005327
177777
005737
001401
000665
012737

16:02

sPRINTOUT OR NOT?

$..WRT

i SAVE OMTE4 ONTO STACK

s INITIATE PRINTOUT
+RETURN TO CALLER

TEGH 1 DESPOTAIE crce TATERAIFO0,1205004 16102 PAGE 40
444
445 013754
440 013760
447 013762

LSBTTL

TEST 7
MSGFLG
LOPTS

IK6
SEQ 7S
TEST SVATE CHGE INTERRUPT WITH SRAS
PRINTOUT OR NOT?

005737

011670

013762
013766
a4ag 013772
013772

012746
004737

023027
005654

052777

000040

010204

014000

052777

000001

010176

o8IT0,8CIR

014010
452 014016
453 014022
454 014024
014024
455 014030

052777
105777
100407

000200
010164

010170

oBIT7,85MR
SSMR
S

017700

010154

017701

010152

449 014000

450 014006
451 014010

014030
456 014034
014034
014036
457 014040
458 014042
014042
459 014050
014050
014056
461 014060
014060
462 014064
014064
463 014070
014070
014072
464 014074
465 014076
014102
014102
467 014110
468 o14112
014114
470 014116
471 014120
014120
014124
014130
472 014134
014134

014136
473 014140
474 014142
014142
475 014150
a76 014152
014152

014154

001004

104000

TEST?7:

LOPTS:

TST
BNE

MTSS

{START MESSAGE TEST

.. Om'

JMASTER CLEAR

@8IT5,8CIR

8CIR,RO

104430

042777

000400

010134

032777
001407

010000

010126

017700

017701

:SAVE CIR CONTENT

s ILLEGAL MESSAGE ?

010120

8CIR,RO

:SAVE CIR CONTENT

010116

8SMR,R1
25.
25.

:SAVE SMR CONTENT

014114
040000

017700
017701
017702

010060
010056
010056

18:

010076

10%:

9%:

000000
000705

000400

0
TEST?
9

SSMR
08IT14,3SMR

2
(PC)»
0
10

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

104432

104433

sSRE SET ?
s IF MI, YES

8CI
:EITIZ.BCIR

032777
001014
005227
000000
001371

000000

JEXECUTE MASTER CLEAR
YSET CONTROLLER ACTIVE STATE
{SET SACS BIT IN CIR
1 SCOPE LOOP MARKER
1SEND REMOTE ENABLE

:RESET STATE CHANGE

Ss:

104431

032777
001003

INITIATE PRINTOUT

1SAVE SMR CONTENT
sSRE NOT SET
sERROR 24,
sERROR COUNT

000000
000745

000000
000727
005037

'SAVE OMTSS ONTO STACK

010034

2s:

26.
26.
0
TEST?

aCIR
o8IT8,3CIR

3
27.
27.
0

+IE EQ, NO

+' ILLEGAL MESSAGE’
:

sWAIT

A SHORT

1SRAS SET ?
+IF NE,

ITME

YES

:SAVE ALL
s SAVE CIR
1 SAVE SMR
1SAVE IOR
1SRAS NOT

IEC REGISTERS
CONTENT
CONTENT
CONTENT
SET

1ERROR 26.
:ERROR COUNT

1 STATE CHANGE

+IF NE,

YES

iNO STATE CHANGE

:ERROR 27,

tERROR COUNT

5 QIAPETATE once TATERAATOR. 1305HAT 04 16102
FESH
477 014156
47 8 014160
014160
479 014166

000676

042777

000200

014174

017700

010004

017701

010002

480 014170
481 014172
482 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

A5G4 014242
014242
495 014246
496 014250
497 014252
014252
014254
014256
014260
014260

014266
014270
014270
014276
014300
014302
014304
014304
014310
014310
014314
014314
014320
014322
014322
014324
510 014326
511 014330
014330
014332
014334

000240
000240
000240

105701
100003

010020

042777

000400

032701

040000

007760

64:

.WORD
BR
CLR8
BIC

TST14

4%;

052777
104000

000040

007716

052777
000240
000240
000240

000200

007710

017700

007674

017701

007672

032700
001003

010000

104550
000000
000612

014332

8SMR,R1
R1
64
30.
30.

O
TEST?
8CIR
oBIT78,8CIR
R1

O
TEST?
RO

TST8

B8R

MCLEAR

BIS

SCOPE
SRE
BIS
NOP
NOP
NOP
SAVCIR
MOV
SAVSMR

31.

o8IT8,RO
7%
RO
32.
32.
O

TEST?

eBITS,aCIR
e8IT7,35MR

8CIR,RO

v
TST12

aSMR,R1
RO

ERROR
TRAP

104,
104,

BIT
BNE

8%:

8CIR,RO

.WORD
BR
SWAB

TRAP
.WORD

7%:

0BIT7,8SMR

o8IT14 ,R1
a8
31.

BIT
BNE
SWAB
ERROR

000400

TEST?
8SMR

BIT
BEQ
ERROR
TRAP

104440
000000
000636

005327
177777
005737

B8IC

NOP
NOP
NOP
SAVCIR
MOV
SAVSMR
MOV
TST8
BPL
ERROR

104437

000000
000646
000300

032700
001004
000300

BR
CLR?

TRAP

104436
000000
000657

001403

3s:

L6
PAGE 40-1

.WORD
BR
LOOP
DEC
.WORD
TST

8IT12,R0O
8s
O
TEST?
-1,LOPTS
(PC)e
-1
64%

SEQ 76

:NESEY SRE
sWAIT SOME MICRO SECONDS
1SAVE CIR CONTENT
$1SAVE CIR CONTENT
$SAVE SMR CONTENT
;SAVE SMR CONTENT
sSRE RESET ?
s IF PL, YES
$SRE NOT RESET

sERROR 30.

sERROR COUN
:

tRESET STATE CHANGE
1SRAS RESET ?

+ IF EQ, YES
1SRAS NOT RESET
+ERROR 31.
sERROR COUNT
.
i

1STATE CHANGE SET

+IF NE, YES
tREBUILD ORIGINAL CONTENT
iNO STATE CHANGE

sMASTER CLEAR
1EXECUTE MASTER CLEAR
1 SCOPE LOOP MARKER
$1SEND REMOTE ENABLE

sWAIT SOME MICRO SECONDS

1SAVE
1 SAVE
1SAVE
$1SAVE

CIR
CIR
SMR
SMR

CONTENT
CONTENT
CONTENT
CONTENT

+ ILLEG. MESSAGE ?

s IF NE, YES
iNO ILLEG. MESSAGE
1ERROR 104,

tERROR COUNT

;COUNT LOOPS
:

1 IS 64s ZERO ?

M6
30-MAR-84 16:02

TES" REST'STATE cvoe TNTERRUBT
UtM SRAS
014340
014342
014344
512 014352
014352
014356
014360

014364
014370

BEQ

001401

000613
012737

005737
001004
012746
004737
000207

177777
011670
023113
005654

014332

. o4

LOPTS

TSTEND
TST

S
MSGFLG

MOV

BNE
MOV
CALL

SEQ 77

PAGE 40-2

RETURN;

0-1,64%

664
OMTES, -(SP)
$..WRT

B
i

1SETUP NEW LOOP COUNT
+PRINTOUT OR NOT?

1SAVE OMTES ONTO STACK
s INITIATE PRINTOUT

tRETURN TO CALLER

IEC11-A DIAGNOSTIC
TEST 8

IOR DATA TEST

514
515 014372
516 014376
S17 014400
014400
014404
518 014410
519 014412
014412

014420
014424
014426
014430
014432
014434
014436
014436
014440
014442
014444
014446
014452
014454
014454
014456
014460
014464
014466
014470
532 014476
014476
014502
014504
014510
014514

MACRO M1200

005737
001004

011670

012746
004737
104000

023127

052777
013704
005003
110314

000040

30-MAR-84 16:02

TEST8:

.SBTTL
TST
BNE

005654

024212

007564

IOR DATA TEST

$..WRT
@B IT75,8CIR

sEXECUTE MASTER CLEAR

47.
47.
0
TEST8
R3
R3, 0400
1

104457

000000
000753
005203
020327
001365

2s:

1000. ,LOPTSA
(PC)e
1000.

014456

001750
011670

023165
005654

€4

014456

TSTEND
TST
BNE
MOV

CALL

RETURN;

tPRINTOUT OR NOT?

1START MESSAGE TEST 8
1SAVE OMTSAS ONTO STACK
s INITIATE PRINTOUT

MTSAS

IOR,R4

020302
001403

005737
001004
012746
004737
000207

TEST 8 MSGFLG
10¢

R3
R3,8R4
8R4 ,R2
R3,R2

011402

005327
001750
005737
001401
000751
012737

PAGE 41

.4
LOPTSA
€1000. ,64%
SA
MSGFLG
663
OMTESA, -(SP)
$..WRT

tWRITE PATTERN INTO IOR

sREAD BACK PATTERN FROM IOR

tPATTERN EQUAL

1DATA CHECK IN IOR
:ERROR 47,
}

sRESTART TEST
;BUILD NEXT PATTERN
sALL DONE

1IF NE, NO

: COUNT LOOPS
’

;IS 648 ZERO ?
'
'

;SETUP NEW LOOP COUNT

tRETURN TO MAINPROGRAM

sPRINTOUT OR NOT?

:SAVE OMTESA ONTO STACK
; INITIATE PRINTOUT

sRETURN TO CALLER

FESHs* RESTSTALE cvce TNTERRUBT
wrthG1s
mD ST o ¥
534
535 014516
014516
014522
014526
014582
536 014534
537 014540
538 014542
014542
014546
539 014552
014552
014560
014560
014566
014566
014574

014600
014600
014604
014606
014610
014610
014614
014614
014620
014622
014622
014626
014626
014634
014640
014640

014646
014650
014652
014654
014656
014656
014662
014662
014666
014666
014670
014672
014674
014674
014700
014702
014702
014706
014706
014712
014712
014714
014716

TEST9:

LSBTTL
SETVEC

012746
012746
012746
104001
005737

024222
021334
000000

012746
004737

023201
005654

052777

000040

007424

052777

000001

007416

052777

000100
024204

007412

032710
001775
104000

000400

042710

000400

8IC

032710
001775

000400

BIT

042710

000400

052777
005037

000004
014652

007352

032777

001000

007340

001004

013700

001012
005227
000000
001371

011670

LOPT6:

18:

007322

017701

007320

EMT
TST
BNE
WRITE
MOV
CALL
MCLEAR
BIS
SACS
8IS
SIC
BIS
MOV

2%:

4% ;

LOPTE
MT6S

MT6S, -(SP)
$..WRT
BITS,8CIR
®8I70,8CIR

M|IT6,85MR
CIR,RO

BEQ
SCOPE

eBIT8,8R0

CLRS

B8RO

TST8

8IC
GTS
BIS
CLR

#BIT8,8R0
#B1IT8,8R0

-4

8RO

#B178,8R0

MBIT2,85MR
3

TS719

8SMR

BNE

BIT

INC
. WORD
BNE
SAVCIR
MOV
SAVSMR
MOV
ERROR

BIT9,85MR

(PC).
0
2t

tPRINIOUT

*SEYU' OVECTOR VECTOR
OR NOT?

1START MESSAGE TEST 9

$SAVE #MT6S ONTO STACK
INITIATE PRINTOUT
sMASTER CLEAR
1EXECUTE MASTER CLEAR
1SET CONTROLER ACTIVE STATE
1SET SACS BIT IN CIR
$1SEND INTERFACE CLEAR
1SEND INTERFACE CLEAR
1GET CIR ADDRESS

sMAIT FOR STATE CHANGE

1PRODUCED BY SIAS
1SCOPE LOOP MARKER

sRESET STATE CMANGE
sWAIT FOR SIAS END

10eVO1EOL
e

1oeVO1EQL
e

sRESET STATE CHANGE

30eVO1EQLee

31GO TO STAND BY STATE
31GO TO STAND BY
sWAIT FOR CSBS

[}

3
[l
3

8SMR ,R1
35.

.MORD
BR
1S78

O
TEST9
[2{e]

tERROR COUN
sRESTART TEST
sDID CSBS BRING STATE CHANGE

8CIR,RO

1 IF NE, YES
1SAVE CIR CONTENT
1SAVE CIR CONTENT
1SAVE

8CIR,RO

35,

032710
001007

000400

017700

007276

BNE
SAVCIR
v

017701

007274

MOV

8SMR,R1

TRAP
.WMORD

36.
O

104444
000000
000677

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

1SAVE CIR
$SAVE CIR
1SAVE SMR
1SAVE SMR
sNO CSBS

TRAP

104443
000000
000711

OVECTOR, -(SP)
@IECINT, -(SP)
00, -(SP)
1
MSGFLG

[22le]

CLRS

SEQ 79

TEST 9
TEST STATE CHGE INTERRUPT WITH GTS AND SIC
OVECTOR,OIECINT,
00
3SET VECTOR
3 0eVO3EOQ2ee

T1ST18

BIT

BEQ

33:

017700

MOV
MOV
MOV

BIT

SAVSMR

ERROR

eBIT8,8R0

36.

TEST9

CONTENT
CONTENT
CONTENT
CONTENT

1ERROR 35,

1SAVE

SMR CONTENT

1NO STATE CHANGE

tRESTART

TO CSBS

1ERROR 36.
1ERROR COUNT
TEST

IEC11-A DIAGNOSTIC
TEST

TEST STATE CHGE

567 014720
014720

568 014724
569 014726
014726
570 014734
57N 014740
014740
572 014744
573 014746
574 014750
014752
576 014754
014754
577 014760
014760
578 014764
014764
014766
014770
014772
014774

MACRO M1200

30-MAR-84

042710
104000

000400

052777
005037

000004
014750

032710
001012
005227
000000
001372

010000

017700

007224

017701

007222

S%:

007252
64:

78:

8IT

8RO
axna.no

INC

LMORD

BNE

ERROR

TRAP

.MORD

BR
INC

SCOPT.

000002
015022
000001

9s:

108:

68
8CIR,RO

8SMR ,R1
37

37.

TEST9
RO

8IS
CLR
cMP8

eBIT1,aSMR
10¢
#1,8R0

LMORD

BNE

SAVCIR

114
(PC)e.

017700

007152

MOV

8CIR,RO

017701

007150

MOV

8SMR ,R1

SAVSMR

ERROR

104450

000000
000137
013701
005201

014516
024206

11%:

cvP8
BEQ

122711
001410

000001

017700

007116

MOV

017701

007114

MOV

104451
000000
000137
104000
105010
012705
012704
052777

SAVCIR
SAVSMR

12%:

100000
015200
000100

007060

SMR,R1
R1

o1,8R1
124

8CIR,RO
8SMR,R1

ERROR

41,

.WORD

TRAP

014516

40.

TRAP
40,
O
.MORD
JMP TEST9

MOV
INC

JMP

SCOPE

CLRB
MOV
MOV

INTENB
BIS

tRESET STATE CHANGE
1SCOPE LOOP MARKER

1FORCE ILLEGAL MESSAGE
1GO _TO STAND BY

tWAIT FOR ILLEGAL MESSAGE

(PC).

8RO

BEQ
INC

SEQ 80

CLR8B
TCA

007200

e8I178,8R0

BIT2,85MR

SAVSMR

105010

8RO

8IS

MOV

000000
001372

015116

CLRO

8IC
SCOPE

SAVCIR

000000
000652
005200
104000

005037
122710
001413
005227

PAGE 42-1

GTS

104445

052777

16:02

INTERRUPT WITH GTS AND SIC

41,

TEST9

8RO
eBIT15,RS
0154 ,R4
oB81IT76,8CIR

1SAVE CIR CONTENT
sSAVE CIR CONTENT
$1SAVE SMR CONTENT
1SAVE SMR CONTENT
sNO ILLEGAL MESSAGE
1ERROR 37,

1ERROR COUNT
tRESTART TEST9
sPOINT TO CIR HIGH BYTE

1SCOPE LOOP MARKER

sRESET INTERRUPT CONDITIONS
s TAKE CONTROL ASYNC
s TAKE CONTROL ASYNC
tWAIT FOR CACS

: ¢eVO2EQQee

’

1SAVE CIR CONTENT

1SAVE CIR CONTENT
sSAVE SMR CONTENT
1SAVE SMR CONTENT
s TCA DOES NOT PRODUCE STATE CHANGE
1ERROR 40.
1ERROR COUNT

aRESVAl" TEST9
1GET ADDRESS OF SMR

1ADDRESS HMIGH BYTE OF SMR
t1CACS SET AGAIN ?

1 IF EQ,

1SAVE
1SAVE
1SAVE
1SAVE

YES

CIR CONTENT
CIR COMTENT
SMR CONTEN
SMR CG"E&I.

s TCA WITH CSBS

S NOT PRODUCE CACS

C T
Eaaoa
TEST9 M
sRESTARTLOOP
MARKER

1SCOPE
tRESET INTERRUPT CONDITIONS
1SETUP INTERRUPT MASK
1SETUP INTERRUPT RETURN ADDRESS
1ENABLE IEC INTERRUPT
1ENABLE INTERRUPT IN IEC-11A

FECH " REEPEPATE crce Wn%fl"& QR RO 607
608
609
610
611
612
613
614

615
616

617

618

619
620

151
313180

015130
015134
015142
015146
015150
015152

015154
015154
015160
015160
015164
015164
015170
015170
015172
015174
015200

631

632

638

639
640
641
642

007050
024216
015150

01770>

007032

017700

007020

017701

007016

007050

13s:

14%;

015264
015272
015274
015274
015300
015300
015304
015304
015310
015310
015312
015314
015320
015320
015326

MOV
MOVB
CLR
INC
.MORD
BNE
SAVIOR

8CIR,RO
TALKER,QIOR
144
(PC)»
O
138

014516

15s:

014516
000004

015234

006766

000012

16%:

18%:
006740

017701

006736

017702

006736

8SMR,R1
42,

.WORD

032777
001012

004000

017700

006704

017701

006702

017702

006702

104455
000000
000137

014516

052777

000040

JMP
8CC

006712

19%:

CLR

cHP8

006656

42.

TEST9

164

184

012,8R1

8EQ
INC

19¢
SPC)o

BNE
SAVCIR
v
SAVSMR
MOV
SAVIOR
MOV
ERROR

17¢

sALLOW %vStEH INTERRUPTS

1SAVE CIR CONTENT
1SAVE CIR CONTENT
sADDRESS TALKER !
sMAIT FOR INTERRUP1
'
f
B

1SAVE IOR CONTENT
1SAVE IOR CONTENT
1SAVE CIR CONTENT
1SAVE CIR CONTENT
1SAVE SMR CONTENT
1SAVE SMR CONTENT
tNO INTERRUPT TO TALKER ADDRESSING
1ERROR 42,
tERROR COUNT
TEST9
RT
tRESTA
1 IF CC, INTERRUPT OK
1tILLEGAL INTERRUPT
1ERROR 43,

1tERROR COUNT
TEST 9
RT
tRESTA
1GOTO STANDBY STATE
1GO _TO STAND BY
tWAIT FOR CSBS AND TACS
v

TRAP

8IOR,R2
44,
44,

1SAVE CIR CONTENT
$1SAVE CIR CONTENT
1SAVE SMR CONTENT
$SAVE SMR CONTENT
1SAVE IOR CONTENT
$SAVE IOR CONTENT
s1NO CSBS AND TACS
tERROR 44,

JMP

TEST9

|RESTAR7

TST11

BIT
BNE
SAVCIR
MOV
SAVSMR
MOV

8CIR,RO
8SMR ,R1

8CIR

e8IT11,8CIR
20%
8CIR,RO
SSMR,R1

SAVIOR
MOV
ERROR

8IO0R,R2
4S5,

.WORD

TRAP

208

8CIR,RO

ERROR
43,
TRAP
43,
WORD
O
JMP TESTO
GTS
8IS
BIT2,8SMR

.MORD

014516

S8IOR,R2

SAVCIR
MOV
SAVSMR
MOV
ERROR
TRAP

017700

104454
000000
000137

AVCIR

104452

000000
000137
103004

052777
005037
122711
001415
005227
000000
001372

630

637

017700
113777
0050387
005227
000000
001375

000000
000137

623
624
625
626
627
628
629

635
636

177776

104453

621
622

633
634

105037

SEQ 81

JMP

MCLEAR
BIS
LOOP

a5,

TEST9

e8IT5,8CIR
-1,LOPT6

1ERROR COUNT
TEST9

:IS NO LAC SET

1IF NE, YES
1SAVE CIR CONTENT
1SAVE CIR CONTENT
1SAVE SMR CONTENT
1SAVE SMR CONTENT

1SAVE IOR CONTENT

1 “NO LAC” NOT SET

1ERROR 45,
1ERROR COUNT

IRESYART SUBTEST

sRESET IEC-11A

1EXECUTE MASTER CLEAR

ITRTG TS ARG 43007 PAGE 42-3
Tests" PESTITATE cvoe INTERRUP
015326
015330
015332

cas

015364
015366
015372
015376

005327
177777

005737
001402

644

015330

000137
012737

014552
177777

012746
104002

024222

005737
001004
012746
004737
000207

011670

023274
005654

015330

DEC

(PC)»

. WORD
ST
BEQ
JMP
MOV

-1
648
.*6
LOPT6
0-1,64%

MOV

OVECTOR, -(SP)

REMVEC
EMT
TSTEND
TST

BNE
668:

oVECTOR

2
6
MSGFLG

568

MOV
oMTEG6, -(SP)
CALL
$..WRT
RETURN;

SEQ 82

sCOUNT LOOPS
i

11S 648 ZERO ?
i

1SETUP NEW LOOP COUNT
sREMOVE VECTOR

§ #eVO3EQ2es

$SAVE OVECTOR ONTO STACK
tRESET OVECTOR VECTOR
1END OF SUBTEST
tPRINTOUT OR NOT?
1SAVE OMTE6 ONTO STACK
s INITIATE PRINTOUT
CALLER
TO
N
sRETUR

FEEH
18 FESTBRTAC
rmansr ERCE TN ER0enROST R -84 16:02 PAGE 43
646

647 015400
015400
015404

012746
012746

015410

012746

649 015422

001004

015414
648 015416

650 015424

015424
015430

104001
005737

TEST10:

024222
021334

000000
011670

052777

000040

006542

052777

000001

006534

052777

000100

006530

032777
001774

000400

006520

042777

000400

006510

032777
001774

000400

006502

042777

000400

006472

052777
104000

000004

006466

032777
001774

001000

006456

015532
665 015540
666 015544
015544
667 015552
668 015554

052777
005037

000001
015556

006446

032777
001013
005227

010000

006432

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

001371

662 015522
015522
663 015530

664 015532

669 015556

000000

LOPT7:

138:

1s:

2s:

38:

017700

006416

017701

006414

104456
000000
000137
042777

015400
177400

006374

052777

000002

006370

032777
001774

000400

006360

43:

Ss:
6%:

TEST 10 TEST DATA TRANSFER WITH INTERRUPT

@VECTOR,QIECINT,00
OVECTOR, -(SP)
@IECINT, -(SP)

EMT
TST

1
MSGFLG

*SETW OVECTOR VECTOR
1PRINTOUT
OR NOT?

WRITE

MT7S

:START MESSAGE TEST 10

BNE

023310
005654

SEQ 83

SETVEC
MOV
MOV

MOV

012746
004737

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

.SBTTL

MOV
CALL

MCLEAR
8IS
SACS
8IS
SIC
BIS
TST8
BIT
BEQ
CLR8
BIC
TST8
BIT
BEQ
CLR8
8IC
GTS
8IS
SCOPE

TST9
BIT
BEQ
TCS
8IS
CLR
TST12
BIT
BNE
INC
.MORD

BNE
SAVCIR
Vv
SAVSMR
MOV
ERROR
TRAP
.WORD
JMP
BIC
TCA
BIS
1ST8
8IT
BEQ
TST8

00, -(SP)

LOPT?

MT7S, -(SP)
$..WRT

®BIT5,8CIR
e8IT70,8CIR
oBIT6,aSMR
8CIR
o8IT8,aCIR
138
8CIR
o8IT8,8CIR
8CIR
oB8IT8,3CIR
.-6
8CIR
oBIT8,aCIR

eBIT2,8SMR
SSMR
0BIT9,8SMR
18
e8ITO,8SMR

38
&CIR
o8IT12,8CIR
43
(PC)e»
O
24

o8IT1,aSMR
8CIR
oBIT8,8CIR
Ss
8SMR

1SET VECTOR
i
1SAVE OVECTOR ONTO STACK
1SAVE @IECINT ONTO STACK

44VO3EQ2se

1SAVE #0 ONTO STACK

1SAVE OMT7S ONTO STACK
s INITIATE PRINTOUT

tMASTER CLEAR
tEXECUTE MASTER CLEAR
1SET CONTROLLER ACTIVE STATE
$SET SACS BIT IN CIR
1 SEND INTERFACE CLEAR
$+SEND INTERFACE CLEAR
tMAIT FOR STATE CHANGE
:
sRESET INTERRUPT CONDITIONS
tWAIT FOR SIAS END

;44VO1EOQL
e

:
sRESET STATE CHANGE

;04VOL1EOQLe»
164VO1EQL
e

:GO TO STANDBY STATE
1GO TO STAND BY
:SET SCOPE LOOP MARKER
sWAIT FOR CSBS

.
s TAKE CONTROL SYNCR.
:
sWAIT FOR ILLEGAL MESSAGE

:
'
'

i
1SAVE CIR CONTENT
1SAVE CIR CONTENT
1SAVE SMR CONTENT
$1SAVE SMR CONTENT
tNO ILLEGAL MESSAGE
1ERROR 46.
tERROR COUNT
tRESTART SUBTEST
tRESET INTERRUPT CONDITIONS
s TAKE CONTROL ASYNCR.
s TAKE CONTROL ASYNC
tWAIT FOR STATE CHANGE
'
1CACS SET

FEEH
8 QL APNBRIAC rransr ERCBD 1 SR nAS VAR -84 16:02 PAGE 43-1
680
€81
682
683
684
685
686

687
688
639

690
691
692
693
694

695
696

015626

032777
001774
104000
042777
012705
012704

015740

oBIT1S,.RS
9% R4

017700

006322

8CIR,RO

052777
105037
113777
005037
005227

000100
177776
024220
015710

000400

006352

177400
100000

006336

0BIT8,aSMR

006314

78:

8s:

001375

017702

8IO0R,R2
”.
”.

104000

015400

9s:

015400

177400

006222

10%:

052777
105037
113777
005037

717
718

005227
000000
001375

0
TEST10
10s
51.
51.
0
TEST10

€177400,8CIR

#8IT1S,RS

016054

0143 R4

017700

716

PSS
LISTNR,SIOR
8s
(PC)e
0
78

8SMR,R1

042777
012705
012704

715

tRESET INTERRUPT BIT.

017701

000000
000137

714

#177400,8CIR

8CIR,.RO

104463

713

1 IF EQ, NO

017700

104462
000000
000137
103004

aCIR,RO
000100
177776
024216
016024

eB8176,8CIR
8ePsS
TALKER,8I0R
124
(PC).
0
11$

006200

006174

017700

006150

8CIR,RO

017701

006146

8SMR,R1

017702

006146

8I0R,R2
S3.
S3.
0

104465
000000
000137

015400

052777

000004

006124

14%;

SEQ 84

#81I76,8CIR

006310

000000

TEST10

oBIT2,85MR

$1SET SCOPE LOOP MARKER

1SETUP INTERRUPT MASK
1SETUP INTERRUPT RETURN ADDRESS
1SAVE CIR CONTENT
1SAVE CIR CONTENT
1ENABLE IEC-INTERRUPT
tENABLE INTERRUPT IN IEC-11A
$ENABLE SYSTEM INTERRUPT

sSEND LISTENER ADDRESS
'

tWAIT FOR INTERRUPT
:
3

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

1SAVE SMR CONTENT
1SAVE IOR CONTENT
tSAVE IOR CONTENT
iNO INTERRUPT TO LISTENER ADDRESSING
1ERROR 50.
tERROR COUN
tRESTART SUBTEST
+IF CC, INTERRUPT OK
s ILLEGAL INTERRUPT
L

tRESTART SUBTEST

1SET SCOPE LOOP MARKER
1CLEAR INTERRUPT BITS
1SET INTERRUPT MASK
1SETUP INTERRUPT RETURN
1SAVE CIR CONTENT

1SAVE CIR CONTENT
tENABLE IEC INTERRUPT
tENABLE INTERRUPT IN IEC-11A
1ENABLE SYSTEM INTERRUPTS
1 ADDRESS TALKER AGAIN
tWAIT FOR INTERRUPT
i
:

1SAVE
1SAVE
$1SAVE
1SAVE
1SAVE
1SAVE

CIR
CIR
SMR
SMR
IOR

CONTENT
CONTENT
CONTENT
CONTENT
CONTENT

IOR CONTENT

tNO INTERRUPT TO TALKER ADDRESSING
tERROR S53.
tERROR COUNT
sRESTART SUBTEST
1GOTO STANDBY STATE
1GO TO STAND BY

FECH1
18 DEOPNBRTAC
rransr ERCET rH $RPenROsPAR -84 16:02 PAGE 45-2
719 016062
016062

032777

720 016070 001774
721 016072

016072

032777

722 016100 001012

001000

010000

006116

15%:

BEQ

006106

016116
016120

104464
000000

728 016126
729 016134
016134

112777

727 016122

000137

015400

032777

100000

730 016142 001774

177777

ERROR

006056 .168:
17¢:
006042

52,
O

MOVB
TST1S
8IT

@-1,8I0R
@CIR
#81IT15,8CIR
&CIR
e8IT15,aCIR
e81I78,8CIR

737 016172

016172

738 016200
739 016202

032777

001412

006004

SIOR

;SEND NEXT DATA BYTE

LMORD

TST1S

&CIR

:DATA ACCEPTED

8EQ
SAVCIR

194

104466
000000

743 016222
744 016226

000137

745 016232

000302

747 016240

001411

ERROR
TRAP
LMORD

015400

19¢:

016226 017702 005760

746 016234

748 016242

749 016244

120227

000377

000302

752 016260
753 016264
016264

MOV

000137

015400

032777

100000

184

e81T15,8CIR

54
Sa4.
O

TEST10

SI0R,R2

{MAIT A SHORT TIME
:

;DATA ACCEPTED TO SECOND DATA BYTE
{ERROR 54
;ERROR COUN
JRESTART SUBTEST
:GET IOR CONTENT

:SAVE IOR CONTENT

204

:IF EQ, YES

ERROR
TRAP
.WORD
M
TST1S
8IT

SS.
S5,
O

TEST10
@CIR
eBIT1S5,aCIR

:SAVE CIR CONTENT
1SAVE SMR CONTENT
:SAVE SMR CONTENT
sSAVE TOR CONTENT
;SAVE IOR CONTENT

BEQ

;eeVO1EO02es

;IF €EQ, NO
:SAVE CIR CONTENT

R2,0377

MOV
@SMR,R1
SAVCIR
MOV
8CIR,RO

005712

JRESET DATA ACCEPTED

SAVSMR

208:

SUBTEST

sSEND A DATA BYTE
:DATA ACCEPTED ?

SWAB

016244 017701 005736
016250 017700 005730
104467
000000

P
SAVIOR

CMPB

750 016250
751 016254
016254
016256

(PC)»

MOV
8CIR.RO
SAVSMR
MOV
8SMR,R1
SAVIOR
MOV
SIO0R,R2

016206 017701 005774
781 016212
016212 017702 005774
742 016216
016216
016220

INC

8IT

016202 017700 005776
740 016206

JERROR S2.
;ERROR COUN

DECB

BNE
100000

sNO LACS

{RESET STATE CMANGE

8IC

CLR8

001375

sSAVE CIR CONTENT
1SAVE SMR CONTENT
sSAVE TOR CONTENT
sSAVE IOR CONTENT

1SAVE SMR CONTENT

&CIR

006024

000000

1SAVE CIR CONTENT

+IF EQ, WALT

000400

735 016166

+IF €EQ, NO

174

BEQ

042777

736 016170

JRESTART

016152

188:

JLACS SET

TEST10

006032

006026

S2.

TRAP
LMORD

100000

105377

81712, 95MR

MOV
8CIR,RO
SAVSMR
MOV
@SMR,R1
SAVIOR
MOV
SI0R,R2

042777

734 016164 005227

164

CLR1S
8IC

733 016160

BNE

731 016144
016144

732 016152

iWAIT FOR CSBS

o8179,85MR

@SMR

SAVCIR

016102 017700 006076
724 016106
016106 017701 006074
725 016112
016112 017702 006074

SSMR

TST12

8IT

723 016102

726 016116

T%T’

BIT

SEQ 85

{DATA OK
NO.

REBUILD DATA PATTERN READ

1SAVE SMR CONTENT

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

JDATA CHECK ON IEC TALKER OR LISTENER
{ERROR SS.
+ERROR COUNT
{RESTART SUBTEST
{SECOND “DATA ACCEPTED®

FEGHi8 DEAPBRTC
rmanse DACER T R0End0o AR 04 16:02 PAGE 45.3
754 016272
755 016274
016274
756 016300
016300
57 016304
016304
758 016310
016310
016312
759 016314
760 016320
016320
761 016324
762 016326
763 016332
7€4 016334
765 016336
016336
766 016342

016342
767 016346

016346
016350
768 016352

001012

BNE

017700

005704

017701

005702

017702

005702

SAVCIR
MOV
SAVSMR

104470

000000
000137

017702
000302
122702

001411
000302

015400
005666
000376

21s:

214

8CIR,RO
SMR,R1
®I0R,R2
“.
“.
0
TEST10

SIO0R,R2

0376 ,R2

TST10A

017700

8CIR,RO

017701

SSMR,R1
S7.
57.
0

104471
000000
000137

TEST10

17
SEQ 85

s IF NE,

YES

1SAVE CIR CONTENT

1SAVE CIR CONTENT
1SAVE SMR CONTENT
1SAVE SMR CONTENT
1SAVE IOR CONTENT
1SAVE IOR CONTENT
iNO SECOND “DATA ACCEPTED"
tERROR S6.
1ERROR COUNT
tRESTART SUBTEST
sGET SECONFD DATA BrTE
sSAVE IOR CONTENT
'l

3 IS SECOND DATA BYTE OK ? ;eeVO1EOQ2ee
+IF EQ, YES
iNO, REBUILD PATTERN READ
1SAVE CIR CONTENT
1SAVE CIR CONTENT

sSAVE SMR CONTENT

$SAVE SMR CONTENT
sDATA CHECKX ON SECOND BYTE
sERROR S7.,
tERROR COUNT
sRESTART

SUBTEST

IE (s:l
MACRO M1200
30-MAR-84 16:02
-A DIWSYIC
RANDOM TALKER AND LISTENER DATA TEST
10A

TEST

773
774
775
776
777
778
779
780
781
782
783
784
785
786
787

TEST

10A

SEQ 87
RANDOM TALKER AND LISTENER DATA

TEST

THIS TEST CNA NOT BE CALLED SEPARATELY, DUE TO THE NECESSARY
SETUP TO BRING THE BUS INTO THIS STATE.

016356
016362
016364
016370
016374
016400
016402
016406
O16412
016420
016420
016426
016432
016436
016442
016444
016446

005037

016604

005237
105077
005337
104000
012705
012704
042777

024204
005610
024204

016450
016454
016460
795 016464
016464
016466
016470
016474
016476
016476
016500
016502
016506
016512
016514
016516
016516
016520
016522
016526
016526
016532
016536
805 016542
016544
016544
016546
807 016550
808 016554
016554
016560

788

PAGE 44

.SBTTL

770
771
772

789
790
791
792
793
794 016450

TST10A:

177400

005564

052777
105037
011677
005037
005227
000000
001375

000100
177776
005554
016444

005556

017700
017701
017702

005530
005526
005526

2%:

015400

017700
017701
017702
011604

034 ,R4

-(SP)

#BIT15,.RS

8IC
INTENS
BIS

0177400,8CIR

CLR

.MORD

INC

BNE

ERROR
TRAP
.WORD

JMP
8CcC

1DISABLE RANDOM MODE
s+CLEAR DATA BUFFER

+ADDRESS CIR HIGH BYTE

sRESET INTERRUPT BITS

sREBUILD FULL CIR ADDRESS
1SET SCOPE LOOP MARKER
1SETUP INTERRUPT MASK

1SETUP INTERRUPT RETURN ADDRESS
tRESET INTERRUPT BITS
tENABLE IEC INTERRUPT

0PS
(SP),3I0R

sENABLE INTERRUPT IN IEC-11A
sENABLE SYSTEM INTERRUPT
:SEND A DATA BYTE

(PC).

#B1I76,8CIR

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

tWAIT FOR INTERRUPT
‘
i

:SAVE ALL IEC REGISTERS
+SAVE CIR CONTENT
:SAVE SMR CONTENT
s SAVE IOR CONTENT
iNO INTERRUPT TO DATA SENDING
1ERROR 60.
tERROR COUNT

TEST10
4%

;RESTART TEST

TEST10

tRESTART

61.
61.
O

s IF CC, INTERRUPT Ok
s ILLEGAL INTERRUPT TO DATA SENDING
1ERROR 61.
tERROR COUNT

CLR8

;READ BACK DATA BYTE
;PREPARE DATA

cMP

R3,(SP)

016554

JMP

005452
005450
005450

MOV
MOV

aCIR,RO
8SMR,R1

3s:

ERROR
TRAP
.MORD

JMP

015400
005500

SWAB
R3
IF R3 EQ (SP) GOTO S¢$

000303

020316
001002
000137

MOV

MOV
MOV
MOV

104475

000137
017703
105003

CIR
aCIR
CIR

SAVIEC

104474
000137
103004

INC
CLRB
DEC

CLR

CLRB
MOV

18:

LSB

RANMOD

SCOPE
LOPT7A: MOV

100000

016474

LENABL

CLR

BNE

SAVIEC

MOV

104476

000137

015400

005737
001402

016604

S5%:

.+6

@I0R,R2
(SP),R4

ERROR
TRAP
.WORD

62.
62.
O

1ST

RANMOD

JMP
TEST10
IF RANMOD NE 00 GOTO 6%
BEQ

TEST

:+COMPARE R3 AND (SP)
i

1SAVE
1 SAVE
:SAVE
1SAVE
:SAVE

ALL
CIR
SMR
IOR

IEC REGISTERS
CONTENT
CONTENT
CONTENT

'SHOULD BE

VALUE

:DATA CHECK ON IEC BUS
1ERROR 62.
;RESTART

tERROR COUNT
TEST

: IS RANMOD ZERO ?
'

FESH 10" *MORARSom TALKER AnD
016562
809 016566
810 016570
016570
016574
016576
811 016600
812 016604
813 016606
814 016612
815 016614
816 016620
817 016622
818 016624
819 016626
820 016632
821 016636
016636
822 016644
823 016650
824 016654
016654
825 016662
826 016664
827 016666
828 016670
829 016672
016672
016676
016702
830 016706
016706
016710
831 016712
832 016716
016716
833 016724
834 016726
016726
016732
016736
83:c 016742
016742
016744
836 016746
837 016752
016756
839 016760
840 016762
016762
016766
016770
016774
016774
017000
017004
842 017010

g'O?

PAGE 44

-1

000137
005216

016606

JMP
INC

6
(SP)

021627

000400

cHP
BEQ
Be

(SP), 0400
Y)
LOPT7A

001401
000701

012727
000000
004737
010016
042716
005227
000000
001266
005037
012716

052777
012677
005037

011672

64:

.MORD
O
CALL RANDOM

MOV
8IC

177400

INC

.WORD

BNE

CLR

016604
000222

MOV

SET2
8IS

005340

005322

032777
001015
005227
000000
001371

MOV
78:

LOPT7A

@8CIR

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

. 63,
O

TEST10

+IF NE, YES
:SAVE ALL IEC REGISTERS
:SAVE CIR CONTENT
:SAVE SMR CONTENT
$SAVE IOR CONTENT
iNO “END” TO "LAST BYTE"
:ERROR 64.

eBIT13,3CIR

64,
O

MOV
CLRB
SWAB

8I0R,R3
R3
R3

cMP
BNE
JMP

R3, 0222
. *6
118

MOV
MOV
MOV
ERROR

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

017700
017701
017702

005204
005202
005202

sRESTART TEST

10¢

BIT

TRAP
.WORD

017020

$SAVE ALL IEC REGISTERS
:SAVE CIR CONTENT
1 SAVE SMR CONTENT
:SAVE IOR CONTENT
sNO DATA ACC WHEN SENDING LAST BYTE
tERROR 63.
;:ERROR COUNT

BNE

ERROR

001002
000137

s+ IS "END" SET ?

104500

000222

;WAIT FOR "DATA ACCEPTED"

aCIR

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

020327

tPREPARE LAST DATA PATTERN

MOV
MOV
MOV

10%:

TST13

SAVIEC

015400
005234

sLOAD IT

017700
017701
017702
000000
000137
017703
105003
000303

IMOVE PATTERN ONTO STACK
{BUILD A BYTE
1LOOP 65536 TIMES

(SP)+,8I0R

IT2,8CIR

JMP

'GET A RANDOM PATTERN IN RO

s INDICATE “LAST BYTE"

0222,(SP)

BNE

TRAP
.MORD

JSWITCH TO RANDOM MODE

IRANDOM MODE FLAG

8CIR

9§
(PC)e

ERROR

sSWITCH BACK TO NORMAL MODE

BNE
INC

104477

1+COMPARE (SP) AND 0400

RANMOD

oBIT1S,8CIR

MOV
MOV
MOV

005260

(PC).

BIT

TST1S

017700
017701
017702

9¢:

€177400,(SP)

SAVIEC

000000
000137

RO,(SP)

CLR

.WORD

032777
001012

;BUILD NEXT DATA PATTERN

IF (SP) NE #400 GOTO LOPT7A

177777

000004
005342
016666

SEQ 83

JMP

64,

TEST10

IF R3 EQ 0222 GOTO 11

SAVIEC

tERROR COUNT
sRESTART TEST

+READ BACK DATA BYTE
'

1PREPARE FOR CHECK
B

;COMPARE R3 AND @222
i

1SAVE ALL IEC REGISTERS

i SAVE CIR CONTENT
:SAVE SMR CONTENT
1SAVE IOR CONTENT

;DATA CHECK ON “LAST BYTE"

L7
"
30-MAR-84 16:02
JESH 1-A
10DOI TACNOR
IR oM TALKER ANDM1200
CISTENGR
DATA Teot
017010
017012
843 017014
844 017020
017020
845 017026
017026
017032
017034
017040
017044

846

104501
000000
000137

015400

052777

000040

005737

011670

001004
012746
004737

000207

023373
005654

005156

118:

688:

PAGE 44-2

RAP
.MORD
M
MCLEAR
8IS
TSTEND
TST
BNE
MOV
CALL
RETURN;

65.
O
TEST10

eBITS,8CIR
7
MSGFLG

688
OMTE7,-(SP)
§..WwRT

DSABL LS8

ne®»
JERROR 65.
JERROR COUNT
JRESTART SUBTEST
IMASTER CLEAR
JEXECUTE MASTER CLEAR
{END OF SUBTEST 7
IPRINTOUT OR NOT?
JSAVE OMTE? ONTO STACK
VINITIATE PRINTOUT

JRETURN 10 CALLER

‘Eg*l
11 OIS Fonc T IOC"&.OL T&
849
850 017046
851 017052
852 017054
017054
017060
853 017064
854 017066
017066
855 017074
017074
856 017102
017102
857 017110
017110
858 017116
859 017120
860 017126
017126
861 017134
862 017136
863 017140
864 017142
017142
865 017150
017150
866 017156
867 017160
868 017164
017164
869 017172
870
871
872
873

874
875
876
877
878

879

881

883
885
886

017174
017176
017200
017202
017202
017206
017212
017216
017216
017220
017222
017226
017234
017234
017242
017242
017250
017252
017252
017260
017264
017264
017272
017274
017276
017300

M7
SOM 84 16:02

TEST11:

SGYTL

PAGE 45

TEST 11 -- TEST FWTIO‘ OF <LTN> AND <LUN>

005737
001004

011670

012746
004737
104000

023410
005654

052777

000040

005110

@8IT5,8CIR

052777

000001

005102

e8IT70,8CIR

052777

000100

005076

032777
001374
042777

020000

005070

177400

005056

#177400,8CIR

052777
000240
000240
000240

000020

005052

0BIT4,8SMR

052777

000004

005036

032777
001774
005037

001000

005030

081T2,8SMR
8SMR
08IT9,8SMR
24

032777
001015
005227
000000
001371

010000

017700
017701
017702

004776
004774
004774

104502
000000
000137
042777

017046
177400

004750

052777

000002

004744

LOPTS:

017176
005014

18:

2%:

3s:

MSGFLG
LOPTS
MT8S
oMT8S, -(SP)
. . ‘mt

oB8IT6,8SMR
SSMR
SIYIS.M

8SMR
grna.esm

032777
001774

000400

052777
005037

000004
017276

004726

032777
001015
005227
000000
001371

010000

004714

004736

8SMR,R1
8I0R,R2
“.
“.
0
TEST11
0177400,8CIR
081IT1,8SMR

64:

7%:

PRINTOUT OR NOT?

1START MESSAGE TEST 11
1SAVE OMT8S ONTO STACK
&NITIATE PRINTOUT
LOOP MARKER
1SET _SC
tMASTER CLEAR

tEXECUTE MASTER CLEAR
+SET CONTROLER ACTIVE
1SET SACS BIT IN CIR
s+SEND INTERFACE CLEAR
1SEND INTERFACE CLEAR
tWAIT FOR SIAS OFF
:

tRESET INTERRUPT CONDITIONS
sLISTEN !!

+GOTO STAND BY
+GO TO STAND BY

iWAIT FOR CSBS
'

tWAIT FOR LACS
:

(PC).

0
38

8CIR,RO

Ss:

SEQ 90

aSMR

0BIT8,8SMR

$1SAVE ALL IEC REGISTERS
$SAVE CIR CONTENT
$SAVE SMR CONTENT
:SAVE IOR CONTENT
sNO LACS T0 LTN
66
;ERROR

;:ERROR COUNT

tRESET ALL INTERRUPT CONDITIONS
:GO BACK TO CACS
s TAKE CONTROL ASYNC

tWAIT FOR CACS AGAIN

08IT2,8SMR
84
8SMR

081712 8SMR
(PC)O
78

: TRY AGAIN TO GET LACS

1GO TO STAND BY
:

131 OGRS
OF <L TN>
eTION
887 017302
017302
017306
017312
017316
017316
017320
889 017322
890 017326
891 017334
017334
892 017342
017342
893 017350
894 017352
017352
895 017360
896 017362
897 017364

104503

017046
177400

052777

000002

032777
001774

000400

004650

004636

9s:

10¢:

004612

001000

11%:

004574

SAVIEC
MOV
MOV
MOV
ERROR
TRAP
. WORD
JMP
8IC
TCA
8IS
TST8

8CIR,RO
SSMR,R1
8IO0R,R2
67.
67.
0

TEST11
0177400,8CIR

o8IT1,8SMR
SSMR
oBIT8,85MR
10¢

0BIT2,85MR

8SMR

0BIT9,8S5MR
113
SSMR
08IT12,8SMR
124

004562

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

017046

0
TEST11

004564

000040

#BITS,a5MR

000040

010000

PAGE 45-1

70.
7°'

004536

12%:

oBITS5,aCIR
(PC).

-1
64
. +4

017450

000601
012737
005737
001004
012746
004737
000207

177777

011670
023472
005654

017450

SEQ 9

004676
004674
004674

000000
000137
042777

898 017366
017366
017374
017374
900 017402
901 017404
017404
902 017412
903 017414
017414
017420
017424
017430
017430
017432
017434
017440
017440
017446
017446
017450
017452
017456
017460
017462
017470
017470
017474
017476
017502
017506

017700
017701
017702

!OM“16102

LOPTS
0-1,64%
8

MSGFLG
663
OMTES, -(SP)
$..WRT

1SAVE IEC REGISTERS
1SAVE CIR CONTENT
1SAVE SMR CONTENT
1SAVE IOR CONTENT
sNO LACS AFTER (LTN-GTS-TCA-GTS)
sERROR 67.
1ERROR COUNT
tRESTART SUBTEST
tRESET ALL INTERRUPT CONDITIONS
1+GO BACK TO CACS

s TAKE CONTROL ASYNC
;WAIT FOR CACS
5

sLOCAL UNLISTEN

1GO AGAIN TO STAND BY STATE
1GO TO STAND BY
sWAIT FOR STAND BY STATE
B

+IS LACS STILL SET ?

1 IF EQ, NO
1SAVE ALL IEC REGISTERS
1SAVE CIR CONTENT
'
1SAVE SMR CONTENT
T
CONTEN
+SAVE IOR
sLACS STILL SET AFTER (LTN-GTS-TCA-LUN-GTS)
lim 70.

RROR COUNT
ST
SLOYE
;RESTART
tMASTER CLEAR

sEXECUTE MASTER CLEAR

;COUNT LOOPS
:

:IS 648 ZERO ?
:
i

:SETUP NEW LOOP COUNT
¢

;PRINTOUT OR NOT?

:SAVE OMTES ONTO STACK
s INITIATE PRINTOUT

;RETURN TO CALLER

;EC}I-A DIAGNOSTIC
EST

MACRO M1200

30-MAR-84 16:02

TEST FUNCTION OF <BLOCK DAC»

910

911 017510
912 017514

005737
001004

011670

017516
017522

012746
004737

023507
005654

913 017516

914 017526

915 017530

017530
916 017536
017536
917 017544
017544

918 017552
919 017554

104000

004446

052777

000010

004440

032777

000010

004432

017700
017701
017702

017570
017572

104507
000000

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

LOPT9:

000040

001011

000010

004400

032777
001411

000010

004372

017700
017701

004364
004362

104510

000000

24:

004336

017646

052777

000001

017654

052777

933 017670

934 017672
017672
935 017700

936 017706
017706
937 017714

938 017716
939 017724

940 017732
017732
941 017740

942 017742

MT9S

BIT5,8CIR
IR
#BITS,8CIR
e8IT3,8CIR

LOOP MARKER

1EXECUTE MASTER CLEAR
1 TRY TO SET <BLOCKX DAC>
+IS «BLOCK DAC> SET ?

71.
O

CLR3
8IC
TSTS
8IT

IR
oBITS,8CIR

MOV
MOV

8CIR,RO
8SMR ,R1

71.

TEST12

eBITS,8CIR
4

MOV

S8IOR,R2

TRAP

72.

B8R
SCOPE

MCLEAR

72.

TEST12

8IS

e8IT70,8CIR

000100

004324

8IS

B176,85MR

032777
001374

020000

004316

052777
013777

000010
024220

004304
004304

032777
001774

100000

004270

042777
013777

177400
024216

004260
004260

032777

100000

004244

042777

177400

004234

SIC

TST13
BIY
BNE
SETS
8IS
MOV
TST1S
BIT
BEQ

8IC
MOV
1ST15
BIT
BEQ

8IC

8SMR
oBIT13,3SMR
38

8CIR
o8IT3,8CIR
LISTNR,SIOR

8CIR
o8IT15,8CIR
a4

tMASTER CLEAR

TRAP
.MORD

004330

001774

1SET SC

TEST

1SAVE #MT9S ONTO STACK
#NIYIA!E PRINTOUT

1SAVE CIR CONTENT
1SAVE SMR CONTENT
1SAVE IOR CONTENT

SACS

S¢:

1START MESSAGE

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

eBITS,aCIR

as:

1PRINTOUT OR NOT?

MOV
MOV
MOV

8IS

3s:

TEST FUNCTION OF «BLOCK DAC»

1 IF NE, YES

.MORD

000725
104000

SEQ 92

ERROR

000040

932 017662
017662

SCOPE

MCLEAR

BEQ
SAVIEC

004362

052777

931 017654

oMT9S, -(SP)
§..WRT

ERROR

042777

MOV
CALL

8IS
TSTS
BIT
BNE

14:

TEST 12

MSGFLG
LOPTY

8IS
SETS

004424
004422
004422

017640

930 017646

LSBTTL

TST
BNE

SAVIEC

000745

017702

PAGE 4o

WRITE

052777

017554
017560
017564

920 017570

TEST12:

1SAVE ALL IEC REGISTERS

1<BLOCK DAC> NOT SET

sem 71.
RROR COUNT

tRESTARTY SWTESY

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

$SAVE CIR CONTENT
1SAVE SMR CONTENT

1SAVE IOR CONTENT

1<BLOCK DAC> NOT RESET

1ERROR 72.

1ERROR COUNT

tRESTART SUBTEST
1SET SCOPE LOOP MARKER
tMASTER CLEAR

1EXECUTE MASTER CLEAR

$SET CONTROLLER ACTIVE

1SET SACS BIT IN CIR
1SEND

INTERFACE CLEAR

1SEND INTERFACE CLEAR
tWAIT FOR SIAS OFF
[

1SET <«BLOCK DAC»
1SEND LISTENER ADODRESS
tWAIT FOR <DATA ACCEPITED»

0177400,8CIR
TALKER,S8IOR

|RESET ALL INTERRUPT CONDITIONS
1 SEND TALKER ADDRESS

8CIR
eB8IT15,8CIR

0177400,8CIR

tWALT FOR <DATA ACCEPTED»

tRESET ALL

INTERRUPT CONDITIONS

MACRO TM 1200
IECI 1-A DIAGOST IC
30-MAR-84 16:02
TEST FUNCTION OF ‘INK DAC»
12

943 017750
44

945
946
947
948
949

017750
017756
017756
017764
017766
017774
017776
020010

052777

000004

004230

032777
001774
042777
005005
012704

010000

004222

177400

004210

052777
005087
012777
005227
000000
001375
000412

000100
177776
000333

017700
017701
017702

004146
004144
004144

104511
000000
000137
017703
105003
000303

959

9%1

9%3

GTS

64:

020032

74:

8s:

020124
020124
020132
020132
020134
020136
020142
020144
020150
020156
020156
020162
020164
020170
020174

000333

017700
017701
017702

004100
004076
004076

94:

8I76,8CIR
80PS

MOV
INC

LMORD

BNE
BR

SAVIEC

MOV
MOV
MOV

017510

052777

000040

74
94
8CIR,RO
8SMR,R1
®I0R,R2
73,

78.

TEST12

SIOR,R3
R3
R3

004052

654:

67%:

1SETUP INTERRUPT RETURN ADDRESS

1ENABLE IEC INTERRUPT
1ENABLE INTERRUPT IN IEC-11A
1ENABLE SYSTEM INTERRUPTS
1SEND A DATA PATTERN

IWAIT A SHORT TIME
3
3

10K, NO INTERRUPT OCCURED
1SAVE ALL IEC REGISTERS
1SAVE CIR CONTENT

1SAVE SMR CONTENT
1SAVE IOR CONTENT
t INTERRUPT WITH <BLOCK DAC>

lflESYAflT SUBTEST

1GET INPUT BUFFER CONTENT
1PREPARE FOR CHECK
3

8CIR,RO
8SMR,R1
8IOR,R2
74,

JMP

TEST12

IRESYMY SWTESY

BIS
LOOP
DEC

eBITS,8CIR
20.,LOPT9
(PC).

1EXECUTE MASTER CLEAR

TST

654

JMP
MOV

LOPT9
020, ,65%

MCLEAR

.WORD

TSTEND
TST

011670

tRESET ALL INTERRUPT CONDITIONS
1SETUP INTERRUPT MASK

MOV
MOV
MOV
ERROR

BEQ

020134

1SAVE ALL IEC REGISTERS
1SAVE CIR CONTENT
1SAVE SMR CONTENT
$SAVE IOR CONTENT
s JEC DATA CHECK WITH <«BLOCK DAC>

TRAP
.WMORD

108:

1GOTO «STAND BY> STATE
1GO_TO STAND BY
IMAIT FOR <LACS»

R3,0333
. *6
108

SAVIEC

020134

023565
005654

SEQ 93

BNE
JMP

cHP

005327

017526
000024

JMP
MOV
CLRB
SWAB

0333,3I0R
(PC)e

IF RS EQ @333 GOTO 108

020124

000000
000137

005737
001004
012746
004737
000207

8IS
CLR

L.MORD

017510
004130

OSMR

MIT12,85MR
6
#177400,8CIR
RS
084 R4

TRAP

020327
001002
000137

000024
005737
001402
000137
012737

TST12

MBIT2,85MR

BIT
BEQ
8IC
CLR
MOV

ERROR

104512

020120

8IS

INTENB

004174
004170

PAGE 4o-1

BNE
MOV
CALL

RETURN;

74
.
O

20.

9
MSGFLG

678
OMTE9, -(SP)
$..WRT

1COMPARE R3S AND 0333
L
8

.emoa ILR

RROR COUNT

tMASTER CLEAR

+COUNT LOOPS
'

+IS 658 ZERO ?
:
'

1SETUP NEW LOOP COUNT

1END OF TEST

tPRINTOUT OR NOT?

1SAVE OMTE9 ONTO STACK
s INITIATE PRINTOUT

tRETURN TO CALLER

IEC11-A DIAGNOSTIC
TEST

- -

MACRO M1200

30-MAR-84 16:02

TEST FUNCTION OF <RSV>,<SRQ> AND <SPAS»>

970
971 020176
972 020202
973 020204

005737
001004

011670

020204
020210

012746
004737

023602
005654

974 020214

975 020216
020216
976 020224

020224

977 020232
020232

978 020240
020240

979 020246

980 020250
981 020256
020256
982 020264
983 020270
020270
984 020276
985 020300
986 020302
987 020304
988 020306
020306
020312

020316
989 020322
020322
020324
990 020326
991 020332
020332
992 020340
993 020342
020342
020344
994 020346
995 020352
020352
996 020360
020360
997 020366
998 020370
020370
020372
999 020374
1000 020400
020400
1001 020406
020406
1002 020414
1003 020416
020416

104000

TEST1S:

LOPT10:

052777

000040

003760

052777

000001

003752

052777

000100

003746

032777

020000

003740

042777

177400

003726

052777
005037

000020
020302

003720

032777
001015
005227
000000
001371

040000

003706

017700
017701

003672
003670

001374

017702

032777

000200

104557
000000

TEST 13
MSGFLG
LOPT10
MT10S

MOV
CALL

OMT10S, -(SP)
$..WRT

MCLEAR
8IS
SACS

BITS,8CIR

SCOPE

003644

4%:

#BI170,8CIR

TST1S
BIT

BIT6,85MR
@SMR
eBIT13,85MR

SIC
8IS

#177400,8CIR
8CIR
oBIT4,8CIR
3
8CIR
B8IT14,8CIR
4%
(PC)»
O
24

TRAP
.MORD

75.
O
TEST13
8CIR
eBIT7,8CIR
414
111.
ill.
O
TEST13

JHP
TST7
8IY

BNE
ERROR
TRAP

052777

002000

003624

032777
001404

000200

003616

104560
000000
000137

020176

042777

002000

003576

032777
001004

000200

003570

a1s:

JMP
INHSRQ
8IS
TST17
BIT
BEQ
ERROR

TRAP
.WMORD

424:

JMP
CLR10
B8IC
1ST7
BIT
BNE
ERROR
TRAP

8CIR,RO
8SMR,R1
8IOR,R2
75,

e8IT10,8CIR
8CIR
e8IT77,8CIR
424
112.
112.
O
TEST13
8CIR
#8IT10,aCIR
8CIR
oB8IT7,8CIR
43s
113,
113.

SEQ 94

TEST FUNCTION OF <RSV>,<SRQ@>
1PRINTOUT OR NOT?

8IC
SET4
8IS
CLR
TST14
8IT
BNE
INC
.WMORD
BNE
SAVIEC
MOV
MOV

.MORD

020176

8IS

MOV
ERROR

000137

104561

24:

003670

020176

SBTTL
TST
”
WRITE

BNE

38:

104513
000000
000137
001004

1%:

PAGE 4/

1START MESSAGE

TEST

AND <SPAS>

1SAVE OMT10S ONTO STACK
1 INITIATE PRINTOUT

1SCOPE LOOP MARKER

tMASTER CLEAR
1EXECUTE MASTER CLEAR
1SET CONTROLLER ACTIVE

1SET SACS BIT IN CIR

1SEND INTERFACE CLEAR
$1SEND INTERFACE CLEAR
tWAIT FOR SIAS

TO GO OFF

sRESET ALL INTERRUPT CONDITIONS
1SET <RSV»
tWAIT FOR <SRQ»

:
'
;
:
1SAVE ALL IEC REGISTERS
1SAVE CIR CONTENT
1SAVE SMR CONTENT
1SAVE IOR CONTENT
sNO <SRQ@> TO <RSV>
tERROR 75,
tERROR COUNT
aflESTARY TESTPART
1SEE IF INT BIT SET

¢eVO2EOQQees

:BRANCH IF SET
+ INT BIT NOT SET AT SRQ l
1ERROR 111.

¢4VO2EQQe»
#4VO2EQQe»

tERROR COUNT

l 44VO2EQQe»
:SET SRQ INT INMIBIT
¢aVO2EQQe»
1SET INMIBIT SRQ INTERRUPY
: INTERRUPT BIT SET?
i #eVO2EQQee
1BRANCH IF NOT
$ INT BIT NOT CLEAR

i
i

¢oVO2EOQQe»
¢4VO2EQQee

tRESET SRQ INT

i
;

¢eVO2EOQQs»
«eVO2EQQes

sLOOK FOR INT BIT

¢eVO2EOQes

1BRANCH IF SET AGAIN
1BIT 7 STILL CLEAR
1ERROR 113,

i
i

*eVO2EQQee
¢eVO2EQQee

tERROR 112.
tERROR COUNT
INMIBIT

d02 PAGE 47-1
6a480
B 94,
18 OTAGHET A e rionBFROrEN2%0
FESHL
000000
000137
013777

032777
001774
042777
013777
032777
001774
042777
012777

LWMORD

020176
024220

003556

100000

003542

177400
024216

003532
003532

100000

003516

177400
000030

003506
003506

032777
001774
042777

100000

003472

177400

003462

052777
005037

000004
020546

003456

032777
001015
005227

100000

003444

1025

1026
1027
1028
1029

1030
1031
1032
1033
1034

1035

1036
1037
1038

104514
0001790
000137
042777
012777

68:

7¢:

032777
001774

100000

003364

017702
105002
000302

003364

020227
001002
000137

000100
020670

017700
017701
017702

003334
003332
003332

104515
000000
000137

020176

032777

040000

11%:

eB8IT1S,8CIR

TALKER,SIOR

#177400,8CIR

¢eVO2EO0Qs»

tWAIT FOR <DATA ACCEPTED>

@8CIR

BEQ

MOV

030,8I0R

TST1S

BIT
BEQ
BIC
GTS
BIS
CLR

#IT1S.aCIR

0177400,8CIR

@8CIR

001715 8CIR

0177‘00 8CIR
#8IT2,85MR
9

TST1S

SSMR

BNE
INC

(PC)e»

L.MORD

BNE

eBIT1S,8SMR

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

sRESET ALL INTERRUPT CONDITIONS
1GOTO «<STAND BY> STATE
1GO TO STAND BY
I3

tWAIT FOR <SPAS>

10$

MOV
MOV
MOV

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

TRAP

76.

$1SAVE ALL IEC REGISTERS
$SAVE CIR CONTENT
$1SAVE SMR CONTENT
$SAVE IOR CONTENT
3 NO <SPAS> TO <SPE>

.MORD

BIC

tRESTART SWTEST
sRESET ALL INTERRUPT CONDITIONS

TST1S

8CIR

sWAIT FOR <DATA ACCEPTED>

JMP
MOV

BIT
BEQ
SAVIOR

CLRB

TEST13

#BIT6,8I0R

®BIT15,8CIR
11

8I0R,R2

SWAB
R2
IF R2 EQ #8176 GOTO 12%

cMP
BNE
JMP

R2,08IT6
.+6
12‘

MOV

8CIR,RO

MOV

BIOR R2

TRAP
.WORD

77
O

TST14
BIT

8CIR
081IT14,8CIR

SAVIEC

MOV

ERROR

12%:

1SEND LISTENER ADDRESS

TST1S

BIT

MOV

003306

1ERROR COUNT

ORESEY ALL INTERRUPT CONDITIONS
1SEND TALKER ADDRESS
tWAIT FOR <DATA ACCEPTED>

ERROR

000100

@8CIR

MOV

BIT

10%:

TEST13
LISTNR,SIOR
Ss

SAVIEC

003400
003400

SEQ 95

BEQ

BIC

003426
003424
003424

020176
177400

TST1S

BIT

8IC

9s:

000000

001371

017700
017701
017702

438
Ss:

JMP
MOV

JMP

8SMR ,R1

TEST13

:SEND STATUS BYTE
$

1SAVE IOR CONTENT
$SAVE IOR CONTENT

1PREPARE FOR DATA CHECK
L
$

1COMPARE R2 AND #BITe
i
5

1SAVE ALL IEC REGISTERS
1SAVE CIR CONTENT
1SAVE SMR CONTENT
1SAVE IOR CONTENT
+IEC DATA CHECK ON STATUS BYTE SENDING
1ERROR 77,
1ERROR COUNT

sRESTART TEST
1 IS <SRQ> OFF

13 TR F e r1oN OF RoYS DOsRES AND cepA§i02 PAGE 47-2
TESH
1039 020676
1040 020700
020700
020704
020710
1041 020714
020714
020716
1042 020720
1043 020724
1044 020732
1045 020740
1046 020746
1047 020750
1048 020756
1049 020764

1050 020766

1058 021032

1059 021036
1060 021042

021042

001412

017700
017701
017702

13¢
043300
003276
003276

8CIR,RO

104544

000000
000137
042777

020176

177400

003252

052777

000002

003246

032777
001774
012777

000400

003240

000031

003234

100000

003220

032777
001774
052777
005037

621012

003212

032777
001015
005227
000000
001371

004000

003200

017700
017701
017702

003162
003160
003160

104545
000000
000137

020176

052777

000040

1061 021050
021050
005327
021052
177777
021054
005737
021060 001402
021062
000137/
021066
012737
1062 021074
021074
005737
021100
001004
021102
012746
021106
004737
021112
000207

13s:
143

15s:

16$:

17%:

e8IT1,8SMR
8SMR
o8IT8,8SMR
148
031,8I0R

8CIR
o8IT15,8CIR
15¢
BIT2,85MR
174
8SMR
#8IT11,8SMR
18¢
(PC)»
0
164

8CIR,RO

8SMR,R1
8IOR,R2
101.
101.
0
003134

18%:

65%:

021052
020214
177777

8SMR,R1
8IOR,R2
100.
100.
0
TEST13
#177400,8CIR

021052

TEST13

#B8ITS,aCIR
-1,LOPT10
(PC)e
-1
654
. *6
LOPT10

011670

MSGFLG

023674
005654

OMTEL0, -(SP)
$..WRT

678

67%:

SEQ 9%

1 IF EQ, YES
1SAVE ALL IEC REGSITERS

1sSAVE CIR CONTENT
1SAVE SMR CONTENT
$SAVE IOR CONTENT

1<SR@>

NOT OFF

AFTER STATUS BYTE

sERROR 100.

SENDING

tERROR COUNT
sRESTART TEST
sRESET ALL INTERRUPT CONDITIONS

$ENTER <CACS»>
s TAKE CONTROL ASYNC
tWAIT FOR <CACS>
§

1SEND <SERIAL POLL DISABLE>
sWAIT FOR <DATA ACCEPTED»
v

s TRY TO GET

<TACS> WHEN ENTERING <CSBS>

1GO TO STAND BY
3

sWAIT FOR <TACS>

TO BECOME TRUE

$SAVE ALL IEC REGISTERS
$SAVE CIR CONTENT
1SAVE SMR CONTENT
1SAVE IOR CONTENT
tNO <TACS> AFTER <SPD»>
3

sRESTART SUBTEST

tMASTER CLEAR
tEXECUTE MASTER CLEAR

1COUNT LOOPS

o8 656 ZWW0
7
i

1SETUP NEW LOOP COUNT

:END OF TEST 13

s1PRINTOUT OR NOT?

$1SAVE OMTE10 ONTO STACK
s INITIATE PRINTOUT

tRETURN TO CALLER

PS4 Q!Qfivgglls” .Itflasso M1200
1064

30-MAR-84 16:02

.SBTTL
TST
BNE

1065 021114

005737
001004

011670

TEST14:

021122
021126
1068 021132
1069 021134

012746
004737
104000

023711

MOV
CALL
LOPT11: SCOPE

1066 021120
1067 021122

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

WRITE

005654

PAGE 48
TEST 14
MSGFLG
LOPT11
MT11S

SEQ 97
---

OMT11S, -(SP)
$..WRT

052777

003042

®BITS,8CIR

052777

003034

#8170,8CIR

052777

003030

032777
001374

003022

BIT6,8SMR
SSMR

052777

000010

003012

032777
001012

000010

003004

017700
017701
017702

002774
002772
002772

35:

SSMR
eBIT3,85MR
SSMR
SIYS.M

8CIR,RO

104546

000000
000137

021114

042777

000010

002750

032777
001412

000010

002742

017700
017701
017702

002732
002730
002730

104547
000000
000137

005327
177777

021274

005737
001004
012746
004737
000207

011670

177777

023752
005654

18:

8SMR,R1
®IO0R,R2
102.
102.
0
TEST14
8SMR
oBIT3,8SMR
SSMR
oBITS,aSMR
24

8CIR,RO
8SMR ,R1
8IOR,R2
103,
103,
0

021114

005737
001401
000712
012737

;21113.89“

2s:

TEST RPP BIT R/W
tPRINTOUT OR NOT?

1START MESSAGE TEST

tMASTER CLEAR

1EXECUTE MASTER CLEAR
1SET <CONTROLLER ACTIVE> STATE
1SET SACS BIT IN CIR

1SEND <INTERFACE CLEAR>

1SEND INTERFACE CLEAR
sWAIT FOR <SIAS TO GO OFF
:

1TRY

<RPP>

1 IS <RPP> SET ?

s IF NE, YES
1SAVE ALL IEC-REGISTERS
:SAVE CIR CONTENT
:SAVE SMR CONTENT
$SAVE IOR CONTENT
1<RPP> NOT SET
;ERROR 102.
$ERROR COUNT
sRESTART TEST
sTRY TO RESET <RPP>
+ IS BIT RESET ?

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

1<RPP> NOT RESET

TEST14

(:C)o

;COUNT LOOPS

64s

021274

TO SET

tERROR 103.
tERROR COUNT
sRESTART TEST

.+4
LOPT11

11
MSGFLG
664
OMTELL, -(SP)
$..WRT

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

1IS 648 ZERO ?
:
5

1SETUP NEW LOOP COUNT
5

tPRINTOUT OR NOT?

$SAVE OMTE11l ONTO STACK
s INITIATE PRINTOUT
;RETURN TO CALLER

PEE! n e RACBYORARGLen

MACRO M1200

30-MAR-84

1089

1090 021334
021334
021336
021340
021342
021342
021346
021352
021356
021360
021364
021366
021366
021374
021376
021400
021402
021404

021410
021410

16:02

SBTTL

IECINT: PUSH

SAVIEC

002636
002634

042766

000012

021412

1112

1113
1114
1115
1116

021456
021462
021462
021464
021466
021472
021476
021500
021506

8CIR,RO
8SMR,R1
®IO0R,R2
RO
06 ,RO

1SAVE RO ONTO STACK
1SAVE R1 ONTO STACK
1SAVE R2 ONTO STACK
1SAVE CIR CONTENT
1SAVE SMR CONTENT
1SAVE IOR CONTENT
;BRING INTERRUPT STATUS INTO LOW BYTE
tMASK OUT BITS 9 AND

10 OF CIR

tBRING INTERRUPT MASK INTO LOw BYTE
tASSUME ALL IS Ox

R5,RO

sSUSPECTED INTERRUPT ?
1 IF EQ, YES
sREBUILD SAVED CIR CONTENT
sREBUILD 'SHOULD BE' CONTENT
tREBUILD STACK POINTER

sREBUILD RO,R1 AND R2
;64VO3EQL
e
sRESTORE RO FROM STACK
tRESTORE R1 #ROM STACK
tRESTORE R2 FROM STACK

021414

021416
021420
021422
021426
021432
1107 021434
1108 021436
021436
021440
021442
1109 021444
1110 021446
1111 021452
021452

.R1,Re

10(SP)
#8IT0,10(SP)

000010

SEQ 98

ggc -INTERRUPT MANDLER

MOV
MOV
MOV

010046
010146
010246

017700
017701
017702
000300
042700
000305

PAGE 49

:SET ERROR INDICATOR
18:

MOV

;0eVO3EQL
e

s RE TURN
;:BUILD RETURN ADDRESS
;PREPARE TO CLEAR INTERRUPT BITS

:CLEAR INTERRUPT BITS

TOUT:

sRESTORE R2 FROM STACKX
sRESTORE R1 FROM STACK
;RESTORE RO FROM STACK
tRETURN FROM INTERRUPT
+ INCREASE SP By 4
:

023767
005654

$1SAVE OMNOAV ONTO STACK
s INITIATE PRINTOUT
;

iSAVE RO ONTO STACK
006400
007152

18:

tENTER DUMP ROUTINE
:

IEC11-A DIAGNOSTIC

SUBTEST

1118

ADDRESS TABLE

MACRO M1200

30-MAR-84 16:02
.SBTTL

PAGE S0

SUBTEST ADDRESS TABLE

SEG 99

IEC11-A DIAGNOSTIC
S
ME SSAGE

MACRO M1200

30-MAR-84 16:02

1120
1121

PAGE S1

SEQ 100

.SBTTL

MESSAGES

.ASCII
:32'!‘!

/[ENTER FIRST REGISTER ADDRESS OF IEC11-A/
/[ (DEFAUWLT IS 160010))/

LNLIST

BEX

1122 021510
“g} 021560

133
133

105
050

116
104

MES1:

1125 021606

133

111

105

Mi:

.ASCII

/[IEC11-A BUS CONTROLLER BASIC TESTS/

1128 021666
{{233 021726

133
133

105
050

116
104

MES2:

.ASCII
EVSE'I‘I

/[ENTER VECTOR ADDRESS OF IEC11-A/
/[(DEFAWLT IS 270))/

1131 021750
Hgg 022012

133
133

105
050

116
104

MESS:

.ASCII
2%9141

/[ENTER IEC BUS ADDRESS OF IEC11-A/
/((DEFAWLT IS 35))/

ll;; 022034

133

126

105

MESS:

2%'1‘1

/[VECTOR INPUT IS NOT EQUAL TO CONTENTS OF VSR)/

1136 022112
1137 022167
1138 022216
1139 022275
1140 022324
1141 022371
1142 022405
1143 022452
1144 022466
1145 022554

133
133
133
133
133
133
133
133
133
133

133
124
133
124
133
105
133
105
133
105

123
131
123
i31
123
116
123
116
123
116

SLON:

.ASCII
LASCII
.ASCI1
LASCII
LASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCII

/[[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)/
/[END TEST 2)/
/[([START TEST 3: TEST CIR BIT 10 INMIBIT SRQ INTERRUPT]/
/(END TEST 3)/

{{S‘-’ 021651

1146 022570
1147 022647
1148 022663
1149 022720
1150 022734
1151 023013
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162

023027
023113
023127
023165
023201
023274
023310
023373
023410
023472
023507

1164
1165
1166
1167
1168

023602
023674
023711
023752
023767

1163 023565

Hgg 024044

133

133
133
133
133
133
133

133
133
133
133
133
133
133
133
133
133
133

133

133
133
133
133
133

133

101

133
105
133
105
133
105

133
105
133
105
133
105
133
105
133
105
133
105

133
105
133
105
133

133

103

123
116
123
116
123
116

123
116
123
116
123
116
123
116
123
116
123
116

123
116
123
116
124

116

CLON:
MT1S:
MTELl:
MT2S:
MTE2:
MT2AS:

MTE2A:
MT3S:
MTES:

MT3AS:
MTE3A:
MTAS:
MTEA:
MTSS:
MTES:

2%'10!

.ASCII
.ASCII
.ASCII
_ASCII
LASCII
.ASCII

MTE7:
MT8S:
MTES:
MT9S:

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

MT10S:
MTE10:
MT11S:
MTE11l:
MNOAV:

.ASCII
.ASCII
.ASCII
.ASCII
,ASCII

MTSAS:
MTESA:
MT6S:
MTE6:
MT7S:

MTE9:

MESNEX:

}{;5 024070

133

104

TPMSG:

1173 024166
1174
1175
1176

133

105

MESEND:

.ASCII

.esgzl
.EV

/[AC-T883A-MC)/

/[[START TEST 4:
/[END TEST 4)/
/[([START TEST S:
/[END TEST S)/
/[[START TEST 6:
/[END TEST 6)/

TEST SACS SIC SIAS ILLMSG CACS)/
TEST INT ENB)/

TEST INTERRUPT WITH STATE CHGE )/

/[[START TEST 7: TEST STATE CHGE INTERRUPT WITH SRAS)/
/[END TEST 7)/
/((START TEST 8: IOR DATA TEST)/
/(END TEST 8]}/
/[[START TEST 9: TEST STATE CHGE INTERRUPT WITH GTS AND SIC)/
/[END TEST 9)/
/[[START TEST 10: TEST DATA TRANSFER WITH INTERRUPT)/
/[END TEST 10)/
/[[START TEST 11: TEST FUNCTION OF <LTN> AND <LUN>)/
/[END TEST 11)/
/[[START TEST 12: TEST FUNCTION OF <BLOCK DAC»>)/
/[END TEST

12)/

/[([START TEST 13: TEST FUNCTION OF <RSV>,<SRQ>, AND <SPAS>]/
/(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?)/

.ESEII

/[(DO YOU WANT A PRINTOUT OF START,END TEST MESSAGES?(Y

.ASCII
.EVEN
LIST
.EVEN

/[[END OF

.EVEN

BEX

TEST])/

OR N))/

E&C‘;’avglmukm“sm M1200

1178

1179

024, 4

1180 024206
1181 024210
1182 024212
1183 024214
1184 024216
1185 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:

.SBTTL
. WORD

IORMB:

.WORD

IOR:
VSR:

TALKER:

LISTNR:
VECTOR:

.WORD
.WORD

.WORD

.WORD
.WORD
.WORD
.WORD
.END

K8
PAGE S2

SEQ 101

CONSTANTS AND PARAMETERS
160010
160012
160015
160014
160016

100

270
270

g?fl"

;ADDRESS OF IEC CONTROL AND INTERRUPT REGISTER
;ADDRESS OF IEC STATUS AND MESSAGE REGISTER
;;IOR HIGH-BYTE ADDRESS DEFAULT VALUE
;ADDRESS OF IEC INPUT/OUTPUT REGISTER
;ADDRESS OF IEC VECTOR SWITCH REGISTER

1ADDRESS OF TALKER

sADDRESS OF LISTENER

+ADDRESS OF IEC-VECTOR
sDEFAULT OF IEC11-A VECTOR ADDRESS

+IEC11-A BUS ADDRESS DEFAULT VALUE

§$fifib;-A ‘RLCENOS T IC

MACRO

ADDRIN
011170
8ITO
= 000001
BITL
= 000002

LAB11
LISTNR
LOPT1

011432
024220
012124

MTES
MTESA
MTE6

023113
023165
023274

BIT12 =
BIT13 =
B8IT14 =
BIT1S =
BIT2
=
BITS
=
BIT4
=
BITS
=
BIT6
=
BIT7
=
8IT8
=
BIT9
=
COM..E

010000
020000
040000
100000
000004
000010
000020
000040
000100
000200
000400
001000
010614

LOPT2
LOPT2A
LOPTS
LOPT3A
LOPT4
LOPTS
LOPTSA
LOPT6
LOPT?
LOPT7A
LOPT8
LOPT9
MAPER

012266
012474
012716
013320
013500
013772
014412
014552
015434
016402
017064
017526
010472

MTE9
MT1S
MT10S
MT11S
MT2AS
MT2S
MT3AS
MT3S
MT4S
MTSAS
MTSS
MT6S
MT7S

023565
022324
023602
023711
022466
022405
022663
022570
022734
023127
023027
023201
023310

CLON
CMODE =
OMP..E
DUMMES
D..TYP
EMTTBL

022216
140000
006674
007210
006420
002416

EMTO
EMT1

002424
002432

BIT10 = 002000
BIT11 = 004000

CIR

EMTTND

EMT2

ERRFLG
IAD..E
IAE..E
IAS..E

IAY..E

IECAAD
IECINT

INFLAG
INPREQ

INP..E

I0R

IORMB

M M1200

LOPT10
LOPT11

024204

MEMDEF

MEMEND
MERCOV
MERHLT
MERROR
MERRP2
MER1

002424

MER2

MESEND
MESNEX

002470

MES1

007154

MES2

004302
005016
004466

MESS
MES6
MILADR

004116

MILBIN

024226
021334

MILDEC
MILEMT

007150

MILOCT

007156

MILSCP

003776

MILTR1

024212

MILTR2

024210

KISARO=
KISARS=

MSYERR
MTE1

172340

MTEL10

172352

MTE1l

KISAR6= 172354
KISAR7=

172356

KISDR6=
KISDR7=

172314
172316

KISDRO=

ABS.

MTE2

MTE2A

172300

024230
000000

MTES

MTE3A
MTE4

000
001

010333

024166
024044

021510

021666

021750
022034
007445

P PAGE S52-1
2-

MTE?
MTES

MT8S

MT9S
MVERSN
M..DET
M..HIM
M..MMM
M..RET

020176

$..ADP

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

021114
012250
012456
012700
013302
013444

TEST8
TEST9

014372
014516

TEST?

TKB

= 177564

$..IAY

011626

010104

PROMES

007202

TYP..E

011670

007503
022371

023674

023752

022452
022554

022647

022720
023013

TSTREP
TST10A

TTE

011666
016356

011666

001252

= 177776

UBMPR = 170200

011734

UDSDRO= 177620

PSDSWR

007160

RANDOM
RANMOD

011672
016604

RED..E
RGAIN

005626
010624

RUBFLG

R..TYP=

011736
007162
000001

SAV

011164

SCOPE =

104000

SCOPAD

SEQ
SEQPNT

007172

011552
011550

$..ER

TPS

TOUT
021446
TPB
= 177566
TPMSG
024070

141

023767

177562

$..00C
$..EMT

$..IAA

007152

010144

$..0MP

= 177560

OUTFLG

PMODE = 030000

013754

$..ASC
$..BIN
$..BUF
$..0BN
$..00C
$..DEC

TKS

007256

011664
011504

007170
177572
172516
001204
007164
024216
011536
011612
011740
012106
015400
017046
017510

TEST14
TEST2
TEST3
TEST4A
TESTS
TEST6

010612

007524

000152
000004
000004
000000
010351
006614
007176
006616
007200
007020
007016
003520
007174

TEST13

021606

OFFCNT
OFFSET

B
=
XX
=
2882
=
Z$$32 =
$MNOAV
SPOINT
$SHLD
$TABLE
SWAS
$SMTYP
$SPTYP
$$SPE
$.3ASF

023410

SPEFLG
SRO
=
SR3
=
START
STATUS
TALKER
TESTAL
TESTL1
TESTO
TESTL
TEST10
TEST11
TEST12

NO6

007316
007421

024224
011070
024222

VSR
WRT..E

001516

VECA
VECAIN
VECTOR

022112
024206

001776
001374

M..TST

SFLAG
011426
SINGLE
011506
SISDRO= 172200

SLON
SMR

001424

M..TRP
M..TSE

SEQ 102

023373
023472

023507
010156
001662
001766
002006
001726

M..SAV

007360

010032
007704

MSGFLG

172360
172320

007026

007022
007737
010002
007652
007662
010304

MNOSUB
MPWRFL

KBBUFF

KDSARO=
KDSDRO=

010426

007213

MNOAV

007146
007146

020214
021132

MKBOVF

I..0MP= 000001

KBBEND
KBBPNT

30 -MAR - 84 16:02

$..KBI

$..KBO
$..MAP

$..MSP

$..PRO
$..PWR

UISAR6=
UVISAR7=

177654
177656

$..RRS
$..RSV

VISDR4=

177610

VISDR6=

177614

U..DET

001760

UISDR7=

177616

006426
002326
007166

004120

003574
003056

177640
177650

VISDRS= 177612

006400

$..INP
$..I0T

UISARO=
UISAR4=

177600

005464
005504
005444
006630
006520
005270

004210
004472
004402

177660

VISDRO=

006706

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

UDSARO=

VISARS= 177652

024214
006060

$..NOR

$..0CT

$..RED
$..SPC

$..STX

$..T0T

$..TRP

$..TYP
$..WRT

004010

003424

006122

002116

005700
004304

005112

006136
003126

005020
003400
003360

011342

006262

006754
002524

001242
005654

IEC11-A DIAGNOSTIC
SYMBOL TABLE

CSSMON 000000
ERRORS DETECTED:

MACRO M1200

30-MAR-84 16:02

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

PAGE 52-2

M8.

SEQ 103